Liste des mots-clé de Panoramic avec leur classification

Dernière édition par Klaus le Mar 30 Nov 2010 - 22:45, édité 1 fois

J'ai fait un petit utilitaire qui sera peut-être utile à tous ceux qui cherchent à analyser un source Panoramic.

Mon programme produit une liste des mots-clé de Panoramic, avec une indication sur le type de ce mot-clé: commande, directive, fonction ou variable système. Le résultat est un fichier texte avec une ligne par mot-clé, classé alphabétiquement. Chaque ligne a le format suivant:
t mot-cle
t = type: C,D,F ou V
Exemple
C GOTO
D #INCLUDE
F ABS(
V NUMBER_OBJECTS

Les mots-clé des fonctions comportent la parenthèse ouverte ce qui permet de chercher directement cette chaîne de caractères.

Mon programme prend en entrée un fichier ppp.res et produit en sortie le fichier ppp_keywords.txt. Le fichier en entrée doit être produit à l'aide du freeware Ressource Hacker disponible par exemple ici:
http://www.commentcamarche.net/download/telecharger-34055196-resource-hacker

Le mode d'emploi est donné dans les commentaires du programme.

Voici le source de mon programme extract_keywords.bas:

Code:: ' ******************************************************************
' *
' * Extraction des mots réservés de l'éditeur Panoramic
' *
' * L'extraction proprement-dite est faite avec Ressource Hacker (freeware).
' * Ce programme lance cet outil, ouvre PANORAMIC_EDITOR.exe, sélectionne TCData,
' * puis KEYWORDS, puis la ligne 1036 marquée avec une icône fleur. puis copie
' * tout le contenu un fichier ppp.res (contenu du manuel de référence) dans le
' * répertoire de extract_keywords.bas. Puis, ce programme extrait les mots_clé
' * de ce fichier et les affiche dans une liste, puis la trie. A la fin, un
' * bouton "Sauver" apparaît. En cliquant dessus, le programme sauvegarde cette
' * liste dans le fichier ppp_keywords.txt. Tout est automatique.
' *
' * ATTENTION: il faut adapter les 2 variables suivantes pour les répertoires:
' * panoramic_editor$ = "C:\Progra~1\Panora~1\PANORAMIC_EDITOR.exe"
' * ResHacker$ = "C:\Progra~1\ResHack\ResHacker.exe"
' * en fonction de votre installation !
' *
' * Le programme reconnaît la nature des mots-clé et marque chaque ligne d'un
' * indicateur de type:
' * C commande
' * D directive
' * F fonction
' * V variable
' *
' *******************************************************************

label save

dim s$, s1$, f%, panoramic_editor$, ResHacker_params$, ResHacker$

panoramic_editor$ = "C:\Progra~1\Panora~1\PANORAMIC_EDITOR.exe"
ResHacker$ = "C:\Progra~1\ResHack\ResHacker.exe"
ResHacker_params$ = " -extract "+panoramic_editor$+", ppp.res, RCData, KEYWORDS, 1036"

height 0,700

execute_wait ResHacker$+ResHacker_params$

file_open_read 10,"ppp.res"

list 1 : top 1,10 : left 1,10 : width 1,200 : height 1,600
button 2 : hide 2 : top 2,630 : left 2,10 : caption 2,"Sauver"
on_click 2,save

while file_eof(10)=0
file_readln 10,s$
if s$="0"
f% = 0
file_readln 10,s$
if left$(s$,1)="#"
s$ = "D "+s$
f% = 1
end_if
if right$(s$,2)="()"
s$ = "F "+left$(s$,len(s$)-1)
f% = 1
end_if
repeat
file_readln 10,s1$
until s1$="3"
file_readln 10,s1$
if instr(s1$,"Type : variable")=1
s$ = "V "+s$
f% = 1
end_if
if f%=0 then s$ = "C "+s$
item_add 1,s$
end_if
end_while
sort 1

show 2

end

save:
file_save 1,"ppp_keywords.txt"
return

Merci Klaus, je regarderai ce soir...
A+
Smile

A titre d'information, voici le résultat pour la dernière version instantanée: 0.9.20i3:

Code:: C 2D_CIRCLE
C 2D_CLEAR
C 2D_FILL_COLOR
C 2D_LINE
C 2D_PEN_COLOR
C 2D_PEN_WIDTH
C 2D_POINT
C 2D_POLY_FROM
C 2D_POLY_TO
C 2D_RECTANGLE
C 2D_TARGET_IS
C 3D_ACTOR
C 3D_BOX
C 3D_CHAIN
C 3D_CHAIN_BREAK
C 3D_COLOR
C 3D_CONE
C 3D_CUBE
C 3D_CYLINDER
C 3D_DELETE
C 3D_DELETE_ALL
C 3D_DODECAHEDRON
C 3D_HIDE
C 3D_LINE
C 3D_LINE_WIDTH
C 3D_LOAD_OBJECT
C 3D_LOAD_TEXTURE
C 3D_MESH
C 3D_MOVE
C 3D_POINT_OBJECT
C 3D_SHOW
C 3D_SPHERE
C 3D_TARGET_IS
C 3D_TEAPOT
C 3D_TEXT
C 3D_TEXT_CHANGE
C 3D_TORUS
C 3D_TRANSPARENT
C 3D_X_POSITION
C 3D_X_ROTATE
C 3D_X_SCALE
C 3D_Y_POSITION
C 3D_Y_ROTATE
C 3D_Y_SCALE
C 3D_Z_POSITION
C 3D_Z_ROTATE
C 3D_Z_SCALE
C ACTIVE
C ALPHA
C AND
C AXES_HIDE
C AXES_SHOW
C BAR_BOTH
C BAR_HORIZONTAL
C BAR_NONE
C BAR_VERTICAL
C BEEP
C BORDER_HIDE
C BORDER_NORMAL
C BORDER_SMALL
C BRIGHTNESS
C BUTTON
C CAM_POSITION
C CAM_X_POSITION
C CAM_Y_POSITION
C CAM_Z_POSITION
C CAPTION
C CARET_POSITION
C CASE
C CHAIN
C CHECK
C CLEAR
C CLIPBOARD_COPY
C CLIPBOARD_CUT
C CLIPBOARD_PASTE
C CLIPBOARD_STRING_COPY
C CLS
C COLOR
C COMBO
C COMMAND_TARGET_IS
C CONTAINER_OPTION
C CONTRAST
C CURSOR_ARROW
C CURSOR_BEAM
C CURSOR_CROSS
C CURSOR_DEFAULT
C CURSOR_HELP
C CURSOR_HIDE
C CURSOR_HOURGLASS
C CURSOR_NOPARKING
C CURSOR_POINT
C DATA
C DELETE
C DIM
C DIR_MAKE
C DIR_REMOVE
C DISPLAY
C DLIST
C DLL_OFF
C DLL_ON
C EDIT
C ELSE
C END
C END_IF
C END_SELECT
C END_WHILE
C ERROR_ENGLISH
C ERROR_FRENCH
C EXCEL_FILE_CLOSE
C EXCEL_FILE_NEW
C EXCEL_FILE_OPEN
C EXCEL_START
C EXCEL_STOP
C EXCEL_WRITE
C EXECUTE
C EXECUTE_WAIT
C EXIT_FOR
C EXIT_REPEAT
C EXIT_WHILE
C FILE_ADD
C FILE_CLOSE
C FILE_DELETE
C FILE_FIND_CLOSE
C FILE_LOAD
C FILE_OPEN_APPEND
C FILE_OPEN_READ
C FILE_OPEN_WRITE
C FILE_READ
C FILE_READBUF
C FILE_READLN
C FILE_RENAME
C FILE_SAVE
C FILE_WRITE
C FILE_WRITEBUF
C FILE_WRITELN
C FILEBIN_BLOCK_READ
C FILEBIN_BLOCK_WRITE
C FILEBIN_CLOSE
C FILEBIN_HEXA_READ
C FILEBIN_HEXA_WRITE
C FILEBIN_OPEN_READ
C FILEBIN_OPEN_WRITE
C FILEBIN_POSITION
C FILEBIN_READ
C FILEBIN_WRITE
C FILTER
C FONT_BOLD
C FONT_BOLD_OFF
C FONT_COLOR
C FONT_ITALIC
C FONT_ITALIC_OFF
C FONT_NAME
C FONT_NAMES_ADD
C FONT_NAMES_LOAD
C FONT_SIZE
C FONT_STRIKE
C FONT_STRIKE_OFF
C FONT_UNDERLINE
C FONT_UNDERLINE_OFF
C FOR
C FORM
C FULL_SPACE
C GAMMA
C GOSUB
C GOTO
C HEIGHT
C HIDE
C HINT
C HINT_HIDE
C HORIZONTAL
C IF
C INACTIVE
C INPUT
C INPUT_MARK_OFF
C INPUT_MARK_ON
C INPUT_REDO_OFF
C INPUT_REDO_ON
C INPUT_SOURCE_IS
C INPUT_VISIBLE_OFF
C INPUT_VISIBLE_ON
C ITEM_ADD
C ITEM_DELETE
C ITEM_INSERT
C LABEL
C LEFT
C LIGHT_POSITION
C LIGHT_X_POSITION
C LIGHT_Y_POSITION
C LIGHT_Z_POSITION
C LIST
C MAIN_MENU
C MARK_OFF
C MARK_ON
C MAX
C MEMO
C MESSAGE
C MIDI_OFF
C MIDI_ON
C MIDI_PLAY
C MIDI_VOLUME
C MIN
C MOVIE
C NEXT
C NOT
C OFF_CHANGE
C OFF_CLICK
C OFF_ERROR_GOTO
C OFF_KEY_DOWN
C OFF_KEY_UP
C ON_CHANGE
C ON_CLICK
C ON_ERROR_GOTO
C ON_KEY_DOWN
C ON_KEY_UP
C ON_TIMER
C OPEN_DIALOG
C OPTION
C OR
C PARALLEL_OFF
C PARALLEL_ON
C PARALLEL_OUT
C PARENT
C PICTURE
C PLAY
C PLAY_WAIT
C POINT_POSITION
C POINT_X_POSITION
C POINT_Y_POSITION
C POINT_Z_POSITION
C POSITION
C PRINT
C PRINT_LOCATE
C PRINT_TARGET_IS
C PRINT_X_LOCATE
C PRINT_Y_LOCATE
C PROGRESS_BAR
C READ
C REM
C REPEAT
C RESTORE
C RETURN
C RMDIR
C SAVE_DIALOG
C SCENE2D
C SCENE3D
C SCROLL_BAR
C SECRET_OFF
C SECRET_ON
C SELECT
C SELECT_TEXT
C SET_FOCUS
C SHOW
C SORT
C SORT_OFF
C SORT_ON
C SOUND
C SPIN
C SPRITE
C SPRITE_DELETE
C SPRITE_DELETE_ALL
C SPRITE_FILE_LOAD
C SPRITE_HIDE
C SPRITE_POSITION
C SPRITE_SCALE
C SPRITE_SHOW
C SPRITE_TARGET_IS
C SPRITE_X_POSITION
C SPRITE_X_SCALE
C SPRITE_Y_POSITION
C SPRITE_Y_SCALE
C STEP
C STOP
C STRETCH_OFF
C STRETCH_ON
C SUB_MENU
C TERMINATE
C TEXT
C THEN
C TIMER
C TIMER_INTERVAL
C TIMER_OFF
C TIMER_ON
C TO
C TO_BACKGROUND
C TO_FOREGROUND
C TOP
C TRACK_BAR
C UNTIL
C VERTICAL
C WAIT
C WHILE
C WIDTH
D #INCLUDE
F ABS(
F ACOS(
F ADR(
F ASC(
F ASIN(
F ATN(
F BIN_AND(
F BIN_OR(
F BIN_XOR(
F CAPTION$(
F CHECKED(
F CHR$(
F CLICKED(
F COLOR_PIXEL_BLUE(
F COLOR_PIXEL_GREEN(
F COLOR_PIXEL_RED(
F COS(
F COUNT(
F DIR_EXISTS(
F DLL_CALL0(
F DLL_CALL1(
F DLL_CALL2(
F DLL_CALL3(
F DLL_CALL4(
F DLL_CALL5(
F DLL_CALL6(
F EVEN(
F EXCEL_READ$(
F EXP(
F FILE_EOF(
F FILE_EXISTS(
F FILE_NAME$(
F FILEBIN_POS(
F FILEBIN_SIZE(
F FRAC(
F HANDLE(
F HANDLE_CANVAS(
F HCOS(
F HEIGHT(
F HSIN(
F HTAN(
F INSERT$(
F INSTR(
F INT(
F ITEM_INDEX$(
F ITEM_INDEX(
F ITEM_READ$(
F LEFT$(
F LEFT(
F LEN(
F LOG(
F LOG10(
F LOG2(
F LOWER$(
F LTRIM$(
F MESSAGE_CONFIRMATION_OK(
F MESSAGE_CONFIRMATION_YES_NO(
F MESSAGE_ERROR_OK(
F MESSAGE_ERROR_YES_NO(
F MESSAGE_INFORMATION_OK(
F MESSAGE_INFORMATION_YES_NO(
F MESSAGE_INPUT$(
F MESSAGE_INPUT(
F MESSAGE_WARNING_OK(
F MESSAGE_WARNING_YES_NO(
F MID$(
F MOUSE_LEFT_DOWN(
F MOUSE_LEFT_UP(
F MOUSE_RIGHT_DOWN(
F MOUSE_RIGHT_UP(
F MOUSE_X_LEFT_DOWN(
F MOUSE_X_LEFT_UP(
F MOUSE_X_POSITION(
F MOUSE_X_RIGHT_DOWN(
F MOUSE_X_RIGHT_UP(
F MOUSE_Y_LEFT_DOWN(
F MOUSE_Y_LEFT_UP(
F MOUSE_Y_POSITION(
F MOUSE_Y_RIGHT_DOWN(
F MOUSE_Y_RIGHT_UP(
F NUMERIC(
F O3D_X_POSITION(
F O3D_X_ROTATE(
F O3D_X_SCALE(
F O3D_Y_POSITION(
F O3D_Y_ROTATE(
F O3D_Y_SCALE(
F O3D_Z_POSITION(
F O3D_Z_ROTATE(
F O3D_Z_SCALE(
F ODD(
F PARALLEL_INP(
F PARAM_VALUE$(
F POSITION(
F POWER(
F RIGHT$(
F RND(
F RTRIM$(
F SELECT_READ$(
F SGN(
F SIN(
F SPRITE_X_POSITION(
F SPRITE_Y_POSITION(
F SQR(
F STR$(
F STRING$(
F TAN(
F TEXT$(
F TOP(
F TRIM$(
F UPPER$(
F VAL(
F WIDTH(
V CLIPBOARD_STRING_PASTE$
V DATE$
V DIR_CURRENT$
V ERROR_LINE
V ERROR_NUMBER
V ERROR_TYPE$
V FILE_FIND_FIRST$
V FILE_FIND_NEXT$
V INKEY$
V KEY_DOWN_CODE
V KEY_DOWN_SPECIAL
V KEY_UP_CODE
V KEY_UP_SPECIAL
V MESSAGE_TEXT$
V NUMBER_3D_OBJECTS
V NUMBER_EVENTS
V NUMBER_OBJECTS
V NUMBER_SPRITES
V NUMBER_VARIABLES
V PARAM_NUMBER
V SCANCODE
V SCREEN_X
V SCREEN_Y
V TIME$

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

Je m'étais imprimé quelque chose du même genre, liste des mots-clés classés par catégorie (graphisme 2D, graphisme 3D, déroulement du programme, entrées/sorties, fonctions chaînes, fonctions polices, fonctions système, souris/curseur, fonctions mathématiques et logiques, répertoires et fichiers, etc.), que je consulte en permanence, avec en plus une ligne de commentaire à côté (résumé succinct).
Mais je vais regarder ta liste avec intérêt, la mienne n'est plus très à jour.

C'est pas mal ce que t'avais fait on dirait Jl35, un jour si tu en fais un programme je serais intéresse.

@ Dragonno: c'est justement un programme, mis en ligne dans mon premier post de ce fil de discussion, avec la doc qui va avec...

Voici une nouvelle version du programme extract_keywords.bas qui lance automatiquement Ressource Hacker et extrait les mots-clé du fichier Panoramic_editor.exe. On n'a plus besoin de lancer cet utilitaire à la main. La doc est dans les commentaires. Mais attention: il faut adapter deux variables contenant le chemin et le nom pour le Ressource Hacker et pour l'éditeur Panoramic qui reflètent ma configuration personnelle. Ne touchez PAS à la variable qui contient les paramètres à Ressource Hacker !

Programme extract_keywords.bas:

Code:: ' ******************************************************************
' *
' * Extraction des mots réservés de l'éditeur Panoramic
' *
' * L'extraction proprement-dite est faite avec Ressource Hacker (freeware).
' * Ce programme lance cet outil, ouvre PANORAMIC_EDITOR.exe, sélectionne TCData,
' * puis KEYWORDS, puis la ligne 1036 marquée avec une icône fleur. puis copie
' * tout le contenu un fichier ppp.res (contenu du manuel de référence) dans le
' * répertoire de extract_keywords.bas. Puis, ce programme extrait les mots_clé
' * de ce fichier et les affiche dans une liste, puis la trie. A la fin, un
' * bouton "Sauver" apparaît. En cliquant dessus, le programme sauvegarde cette
' * liste dans le fichier ppp_keywords.txt. Tout est automatique.
' *
' * ATTENTION: il faut adapter les 2 variables suivantes pour les répertoires:
' * panoramic_editor$ = "C:\Progra~1\Panora~1\PANORAMIC_EDITOR.exe"
' * ResHacker$ = "C:\Progra~1\ResHack\ResHacker.exe"
' * en fonction de votre installation !
' *
' * Le programme reconnaît la nature des mots-clé et marque chaque ligne d'un
' * indicateur de type:
' * C commande
' * D directive
' * F fonction
' * V variable
' *
' *******************************************************************

label save

dim s$, s1$, f%, panoramic_editor$, ResHacker_params$, ResHacker$

panoramic_editor$ = "C:\Progra~1\Panora~1\PANORAMIC_EDITOR.exe"
ResHacker$ = "C:\Progra~1\ResHack\ResHacker.exe"
ResHacker_params$ = " -extract "+panoramic_editor$+", ppp.res, RCData, KEYWORDS, 1036"

height 0,700

execute_wait ResHacker$+ResHacker_params$

file_open_read 10,"ppp.res"

list 1 : top 1,10 : left 1,10 : width 1,200 : height 1,600
button 2 : hide 2 : top 2,630 : left 2,10 : caption 2,"Sauver"
on_click 2,save

while file_eof(10)=0
file_readln 10,s$
if s$="0"
f% = 0
file_readln 10,s$
if left$(s$,1)="#"
s$ = "D "+s$
f% = 1
end_if
if right$(s$,2)="()"
s$ = "F "+left$(s$,len(s$)-1)
f% = 1
end_if
repeat
file_readln 10,s1$
until s1$="3"
file_readln 10,s1$
if instr(s1$,"Type : variable")=1
s$ = "V "+s$
f% = 1
end_if
if f%=0 then s$ = "C "+s$
item_add 1,s$
end_if
end_while
sort 1

show 2

end

save:
file_save 1,"ppp_keywords.txt"
return

Extraction des mots_clé de la version officielle 0.9.20 du 29/11/2010:

Code:: C 2D_CIRCLE
C 2D_CLEAR
C 2D_FILL_COLOR
C 2D_FILL_CROSS
C 2D_FILL_DIAGONAL_CROSS
C 2D_FILL_DIAGONAL_DOWN
C 2D_FILL_DIAGONAL_UP
C 2D_FILL_HORIZONTAL
C 2D_FILL_SOLID
C 2D_FILL_VERTICAL
C 2D_FLOOD
C 2D_LINE
C 2D_PEN_COLOR
C 2D_PEN_DASH
C 2D_PEN_DASH_DOT
C 2D_PEN_DASH_DOT_DOT
C 2D_PEN_DOT
C 2D_PEN_SOLID
C 2D_PEN_WIDTH
C 2D_POINT
C 2D_POLY_FROM
C 2D_POLY_TO
C 2D_RECTANGLE
C 2D_TARGET_IS
C 3D_ACTOR
C 3D_BOX
C 3D_CHAIN
C 3D_CHAIN_BREAK
C 3D_COLLISION_AS_CUBE
C 3D_COLLISION_AS_ELLIPSOID
C 3D_COLLISION_AS_FACES
C 3D_COLLISION_AS_POINT
C 3D_COLLISION_AS_SPHERE
C 3D_COLOR
C 3D_CONE
C 3D_CUBE
C 3D_CYLINDER
C 3D_DELETE
C 3D_DELETE_ALL
C 3D_DODECAHEDRON
C 3D_HIDE
C 3D_LINE
C 3D_LINE_WIDTH
C 3D_LOAD_OBJECT
C 3D_LOAD_TEXTURE
C 3D_LOAD_TEXTURE_BACK
C 3D_LOAD_TEXTURE_BOTTOM
C 3D_LOAD_TEXTURE_FRONT
C 3D_LOAD_TEXTURE_LEFT
C 3D_LOAD_TEXTURE_RIGHT
C 3D_LOAD_TEXTURE_TOP
C 3D_MESH
C 3D_MOVE
C 3D_PLANE
C 3D_POINT_OBJECT
C 3D_POSITION
C 3D_ROTATE
C 3D_SCALE
C 3D_SHOW
C 3D_SKYBOX
C 3D_SPHERE
C 3D_TARGET_IS
C 3D_TEAPOT
C 3D_TEXT
C 3D_TEXT_CHANGE
C 3D_TORUS
C 3D_TRANSPARENT
C 3D_U_TILE
C 3D_V_TILE
C 3D_X_POSITION
C 3D_X_ROTATE
C 3D_X_SCALE
C 3D_Y_POSITION
C 3D_Y_ROTATE
C 3D_Y_SCALE
C 3D_Z_POSITION
C 3D_Z_ROTATE
C 3D_Z_SCALE
C ACTIVE
C ALPHA
C AND
C AXES_HIDE
C AXES_SHOW
C BAR_BOTH
C BAR_HORIZONTAL
C BAR_NONE
C BAR_VERTICAL
C BEEP
C BORDER_HIDE
C BORDER_NORMAL
C BORDER_SMALL
C BRIGHTNESS
C BUTTON
C CAM_POSITION
C CAM_X_POSITION
C CAM_Y_POSITION
C CAM_Z_POSITION
C CAPTION
C CARET_POSITION
C CASE
C CHAIN
C CHECK
C CLEAR
C CLIPBOARD_COPY
C CLIPBOARD_CUT
C CLIPBOARD_PASTE
C CLIPBOARD_STRING_COPY
C CLIPBOARD_STRING_PASTE$
C CLS
C COLOR
C COMBO
C COMMAND_TARGET_IS
C CONTAINER_OPTION
C CONTRAST
C CURSOR_ARROW
C CURSOR_BEAM
C CURSOR_CROSS
C CURSOR_DEFAULT
C CURSOR_HELP
C CURSOR_HIDE
C CURSOR_HOURGLASS
C CURSOR_NOPARKING
C CURSOR_POINT
C DATA
C DATE$
C DELETE
C DIM
C DIR_CURRENT$
C DIR_DIALOG
C DIR_MAKE
C DIR_REMOVE
C DISPLAY
C DLIST
C DLL_OFF
C DLL_ON
C EDIT
C ELSE
C END
C END_IF
C END_SELECT
C END_WHILE
C ERROR_ENGLISH
C ERROR_FRENCH
C ERROR_LINE
C ERROR_NUMBER
C ERROR_TYPE$
C EXCEL_FILE_CLOSE
C EXCEL_FILE_NEW
C EXCEL_FILE_OPEN
C EXCEL_START
C EXCEL_STOP
C EXCEL_WRITE
C EXECUTE
C EXECUTE_WAIT
C EXIT_FOR
C EXIT_REPEAT
C EXIT_WHILE
C FILE_ADD
C FILE_CLOSE
C FILE_DELETE
C FILE_FIND_CLOSE
C FILE_FIND_FIRST$
C FILE_FIND_NEXT$
C FILE_LOAD
C FILE_OPEN_APPEND
C FILE_OPEN_READ
C FILE_OPEN_WRITE
C FILE_READ
C FILE_READBUF
C FILE_READLN
C FILE_RENAME
C FILE_SAVE
C FILE_WRITE
C FILE_WRITEBUF
C FILE_WRITELN
C FILEBIN_BLOCK_READ
C FILEBIN_BLOCK_WRITE
C FILEBIN_CLOSE
C FILEBIN_HEXA_READ
C FILEBIN_HEXA_WRITE
C FILEBIN_OPEN_READ
C FILEBIN_OPEN_WRITE
C FILEBIN_POSITION
C FILEBIN_READ
C FILEBIN_WRITE
C FILTER
C FOG_COLOR
C FOG_DISTANCE_MAX
C FOG_DISTANCE_MIN
C FOG_OFF
C FOG_ON
C FONT_BOLD
C FONT_BOLD_OFF
C FONT_COLOR
C FONT_ITALIC
C FONT_ITALIC_OFF
C FONT_NAME
C FONT_NAMES_ADD
C FONT_NAMES_LOAD
C FONT_SIZE
C FONT_STRIKE
C FONT_STRIKE_OFF
C FONT_UNDERLINE
C FONT_UNDERLINE_OFF
C FOR
C FORM
C FULL_SPACE
C GAMMA
C GOSUB
C GOTO
C GRID
C GRID_COLUMN
C GRID_COLUMN_FIXED
C GRID_COLUMN_WIDTH
C GRID_FIXED_COLOR
C GRID_RAW
C GRID_RAW_FIXED
C GRID_RAW_HEIGHT
C GRID_WRITE
C HEIGHT
C HIDE
C HINT
C HINT_HIDE
C HORIZONTAL
C IF
C INACTIVE
C INKEY$
C INPUT
C INPUT_MARK_OFF
C INPUT_MARK_ON
C INPUT_REDO_OFF
C INPUT_REDO_ON
C INPUT_SOURCE_IS
C INPUT_VISIBLE_OFF
C INPUT_VISIBLE_ON
C ITEM_ADD
C ITEM_DELETE
C ITEM_INSERT
C KEY_DOWN_CODE
C KEY_DOWN_SPECIAL
C KEY_UP_CODE
C KEY_UP_SPECIAL
C LABEL
C LEFT
C LIGHT_POSITION
C LIGHT_X_POSITION
C LIGHT_Y_POSITION
C LIGHT_Z_POSITION
C LIST
C MAIN_MENU
C MARK_OFF
C MARK_ON
C MAX
C MEMO
C MESSAGE
C MESSAGE_TEXT$
C MIDI_OFF
C MIDI_ON
C MIDI_PLAY
C MIDI_VOLUME
C MIN
C MOVIE
C NEXT
C NOT
C NUMBER_3D_OBJECTS
C NUMBER_CHANGE
C NUMBER_CLICK
C NUMBER_EVENTS
C NUMBER_KEY_DOWN
C NUMBER_KEY_UP
C NUMBER_OBJECTS
C NUMBER_SPRITES
C NUMBER_VARIABLES
C OFF_CHANGE
C OFF_CLICK
C OFF_ERROR_GOTO
C OFF_KEY_DOWN
C OFF_KEY_UP
C ON_CHANGE
C ON_CLICK
C ON_CLOSE
C ON_ERROR_GOTO
C ON_KEY_DOWN
C ON_KEY_UP
C ON_TIMER
C OPEN_DIALOG
C OPTION
C OR
C PARALLEL_OFF
C PARALLEL_ON
C PARALLEL_OUT
C PARAM_NUMBER
C PARENT
C PICTURE
C PLAY
C PLAY_WAIT
C POINT_POSITION
C POINT_X_POSITION
C POINT_Y_POSITION
C POINT_Z_POSITION
C POSITION
C PRINT
C PRINT_LOCATE
C PRINT_TARGET_IS
C PRINT_X_LOCATE
C PRINT_Y_LOCATE
C PROGRESS_BAR
C READ
C REM
C REPEAT
C RESTORE
C RETURN
C RMDIR
C SAVE_DIALOG
C SCANCODE
C SCENE2D
C SCENE3D
C SCREEN_X
C SCREEN_Y
C SCROLL_BAR
C SECRET_OFF
C SECRET_ON
C SELECT
C SELECT_TEXT
C SET_FOCUS
C SHOW
C SORT
C SORT_OFF
C SORT_ON
C SOUND
C SPIN
C SPRITE
C SPRITE_DELETE
C SPRITE_DELETE_ALL
C SPRITE_FILE_LOAD
C SPRITE_HIDE
C SPRITE_POSITION
C SPRITE_SCALE
C SPRITE_SHOW
C SPRITE_TARGET_IS
C SPRITE_X_POSITION
C SPRITE_X_SCALE
C SPRITE_Y_POSITION
C SPRITE_Y_SCALE
C STEP
C STOP
C STRETCH_OFF
C STRETCH_ON
C SUB_MENU
C TERMINATE
C TEXT
C THEN
C TIME$
C TIMER
C TIMER_INTERVAL
C TIMER_OFF
C TIMER_ON
C TO
C TO_BACKGROUND
C TO_FOREGROUND
C TOP
C TRACK_BAR
C UNTIL
C VERTICAL
C WAIT
C WHILE
C WIDTH
D #INCLUDE
F ABS(
F ACOS(
F ACTIVE(
F ADR(
F ASC(
F ASIN(
F ATN(
F BIN_AND(
F BIN_OR(
F BIN_XOR(
F CAPTION$(
F CHECKED(
F CHR$(
F CLICKED(
F COLOR_PIXEL_BLUE(
F COLOR_PIXEL_GREEN(
F COLOR_PIXEL_RED(
F COS(
F COUNT(
F DIR_EXISTS(
F DLL_CALL0(
F DLL_CALL1(
F DLL_CALL2(
F DLL_CALL3(
F DLL_CALL4(
F DLL_CALL5(
F DLL_CALL6(
F EVEN(
F EXCEL_READ$(
F EXP(
F FILE_EOF(
F FILE_EXISTS(
F FILE_NAME$(
F FILEBIN_POS(
F FILEBIN_SIZE(
F FRAC(
F GRID_READ$(
F HANDLE(
F HANDLE_CANVAS(
F HCOS(
F HEIGHT(
F HIDE(
F HSIN(
F HTAN(
F INACTIVE(
F INSERT$(
F INSTR(
F INT(
F ITEM_INDEX$(
F ITEM_INDEX(
F ITEM_READ$(
F LABEL(
F LEFT$(
F LEFT(
F LEN(
F LOG(
F LOG10(
F LOG2(
F LOWER$(
F LTRIM$(
F MESSAGE_CONFIRMATION_OK(
F MESSAGE_CONFIRMATION_YES_NO(
F MESSAGE_ERROR_OK(
F MESSAGE_ERROR_YES_NO(
F MESSAGE_INFORMATION_OK(
F MESSAGE_INFORMATION_YES_NO(
F MESSAGE_INPUT$(
F MESSAGE_INPUT(
F MESSAGE_WARNING_OK(
F MESSAGE_WARNING_YES_NO(
F MID$(
F MOUSE_LEFT_DOWN(
F MOUSE_LEFT_UP(
F MOUSE_RIGHT_DOWN(
F MOUSE_RIGHT_UP(
F MOUSE_X_LEFT_DOWN(
F MOUSE_X_LEFT_UP(
F MOUSE_X_POSITION(
F MOUSE_X_RIGHT_DOWN(
F MOUSE_X_RIGHT_UP(
F MOUSE_Y_LEFT_DOWN(
F MOUSE_Y_LEFT_UP(
F MOUSE_Y_POSITION(
F MOUSE_Y_RIGHT_DOWN(
F MOUSE_Y_RIGHT_UP(
F NUMERIC(
F O3D_COLLISION(
F O3D_X_POSITION(
F O3D_X_ROTATE(
F O3D_X_SCALE(
F O3D_Y_POSITION(
F O3D_Y_ROTATE(
F O3D_Y_SCALE(
F O3D_Z_POSITION(
F O3D_Z_ROTATE(
F O3D_Z_SCALE(
F ODD(
F PARALLEL_INP(
F PARAM_VALUE$(
F POSITION(
F POWER(
F RIGHT$(
F RND(
F RTRIM$(
F SELECT_READ$(
F SGN(
F SHOW(
F SIN(
F SPRITE_X_POSITION(
F SPRITE_Y_POSITION(
F SQR(
F STR$(
F STRING$(
F TAN(
F TEXT$(
F TOP(
F TRIM$(
F UPPER$(
F VAL(
F VARIABLE(
F WIDTH(

Vous constaterez que tous les nouveaux mots-clé y figurent. Ca prend environ 10 secondes pour l'extraction...

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

Très intéressant cette extraction de mots-clés, ça permet de tenir une liste à jour en permanence;

Manque plus qu'à rajouter un résumé de la fonction à côté, mais ça ça paraît difficile à faire automatiquement...

à l'attention de dragonno: si tu es intéressé par ma liste de fonctions commentées, tu la trouveras ici:
http://www.2shared.com/document/oGOQKf6y/Fonctions.html
mais attention elle n'est pas à jour des dernières fonctions (il faudrait bien que je m'y mette...)

Dernière édition par Klaus le Mar 30 Nov 2010 - 22:43, édité 1 fois

Oh non, ce n'est pas difficile ! Regarde la structure du fichier ppp.res qui est créé par l'appel à RessourceHacker et qui sert d'entrée à mon programme. Tu vous que pour chaque commande, il y a une série de sections de texte. Chaque section est précédée d'une ligne contenant un seul caractère (0,1 2,... ou des lettres). Chaque caractère définit un type d'information bien précis pour la section concernée. Ainsi, la lettre "a" donne le titre en français sur la ligne suivante. Voici une version de mon programme qui permet de choisir "avec" ou "sans" descriptif:

Code:: ' ******************************************************************
' *
' * Extraction des mots réservés de l'éditeur Panoramic
' *
' * L'extraction proprement-dite est faite avec Ressource Hacker (freeware).
' * Ce programme lance cet outil, ouvre PANORAMIC_EDITOR.exe, sélectionne TCData,
' * puis KEYWORDS, puis la ligne 1036 marquée avec une icône fleur. puis copie
' * tout le contenu un fichier ppp.res (contenu du manuel de référence) dans le
' * répertoire de extract_keywords.bas. Puis, ce programme extrait les mots_clé
' * de ce fichier et les affiche dans une liste, puis la trie. A la fin, un
' * bouton "Sauver" apparaît. En cliquant dessus, le programme sauvegarde cette
' * liste dans le fichier ppp_keywords.txt. Tout est automatique.
' *
' * ATTENTION: il faut adapter les 2 variables suivantes pour les répertoires:
' * panoramic_editor$ = "C:\Progra~1\Panora~1\PANORAMIC_EDITOR.exe"
' * ResHacker$ = "C:\Progra~1\ResHack\ResHacker.exe"
' * en fonction de votre installation !
' *
' * Le programme reconnaît la nature des mots-clé et marque chaque ligne d'un
' * indicateur de type:
' * C commande
' * D directive
' * F fonction
' * V variable
' *
' *******************************************************************

label save, start

dim s$, s1$, f%, t$, panoramic_editor$, ResHacker_params$, ResHacker$

panoramic_editor$ = "C:\Progra~1\Panora~1\PANORAMIC_EDITOR.exe"
ResHacker$ = "C:\Progra~1\ResHack\ResHacker.exe"
ResHacker_params$ = " -extract "+panoramic_editor$+", ppp.res, RCData, KEYWORDS, 1036"

height 0,700

execute_wait ResHacker$+ResHacker_params$

file_open_read 10,"ppp.res"

list 1 : top 1,10 : left 1,10 : width 1,200 : height 1,600
button 2 : hide 2 : top 2,630 : left 2,10 : caption 2,"Sauver"
on_click 2,save
check 3 : top 3,10 : left 3,240 : caption 3,"Avec description"
t$ = ""
button 4 : top 4,40 : left 4,240 : caption 4,"Démarrer" : on_click 4,start

end

start:

while file_eof(10)=0
file_readln 10,s$
if s$="0"
f% = 0
file_readln 10,s$
if left$(s$,1)="#"
s$ = "D "+s$
f% = 1
end_if
if right$(s$,2)="()"
s$ = "F "+left$(s$,len(s$)-1)
f% = 1
end_if
if checked(3)=1
t$ = ""
repeat
file_readln 10,s1$
until s1$="a"
file_readln 10,t$
t$ = " ==> " + t$
end_if
repeat
file_readln 10,s1$
until s1$="3"
file_readln 10,s1$
if instr(s1$,"Type: variable")=1
s$ = "V "+s$
f% = 1
end_if
if f%=0 then s$ = "C "+s$
item_add 1,s$+t$
end_if
end_while
sort 1

show 2
return

save:
file_save 1,"ppp_keywords.txt"
return

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

Là pour moi ça devient intéressant !

C'est une liste à imprimer et à garder sous le coude comme aide-mémoire, bien plus pratique que la doc en ligne, à consulter celle-ci quand on a besoin de précisions.

Merci Klaus.

Super Klaus !!
Ca va m'aider à mettre à jour mon fichier de coloration syntaxique de PsPad !
Wink

Enfin un utilitaire qui sert à quelque chose !! (c'est pas comme moi... Wink

)

Rectification :

Une petite erreur c'est glissée dans le code concernant la détection des variables système:
il faut enlever l'espace entre 'Type' et les ':'
Wink

Merci, Nardo26 ! J'ai corrigé dans la dernière distribution. Cela a changé depuis les versions instantanées où il y avait bien un espace avant le ":" !

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

Pour mon usage personnel, je me suis permis de rajouter un sous-programme de conversion du fichier résultat en .RTF, avec mise en gras des mots-clés, puis appel de wordpad, comme ça c'est prêt pour l'impression (mais ça faite quand même 7 ou 8 pages):

Liste des mots-clé de Panoramic avec leur classification Image

Bonne idée !

Pour ma part je suis en train de modifier le prog pour générer les fichiers de coloration syntaxique et d'aide pour PsPad...
Klaus, tu as eu une une super bonne idée d'utiliser ResHack !
Wink

@cosmos: te prend pas la tête, je mettrai les 3 fichiers sur mon site...

Merci beaucoup Klaus et Jl35 pour ce programme superbe !!!
Et aussi pour la version rtf que je prefere.

Klaus :

Citation :: ATTENTION: il faut adapter les 2 variables suivantes pour les répertoires:
' * panoramic_editor$ = "C:\Progra~1\Panora~1\PANORAMIC_EDITOR.exe"
' * ResHacker$ = "C:\Progra~1\ResHack\ResHacker.exe"

Pourquoi mettre un chemin à partir du racine ? il n'y a pas moyen que le programme cherche ces deux fichiers dans son dossier de travail, sans avoir à lui indiquer le chemin complet à partir du racine ?

Mais si, bien sûr. Tu adaptes simplement les chemins dans ces variables, en fonction de l'endroit où tu places ces programmes. Et pourquoi pas tout mettre dans le répertoire de l'éditeur Panoramic, auquel cas il n'y a plus de chemin, simplement les noms des exécutables...

» Liste des mots-clé de Panoramic
» Liste des mots-clés
» Nouvelle version 0.34
» Outils de récupération et gestion des mots clés Panoramic
» Nouveaux mots-clés et astuces Panoramic.