Une idée pour l'IDE pour la déclaration des variables
Publié : jeu. 22/janv./2009 8:31
Que pensez vous de l'idée Suivante !
Lorsqu'on veut compiler un programme qui a beaucoup de fichier a inclure.
L'IDE scanne tout les fichiers du programme et récupère tout ce qui se trouve entre les balise ;[START HEADER] et ;[STOP HEADER]
et les places au tout début du programme avant de l'envoyer a la compilation.
exemple :
fichier : Font.pbi
Qu'en pensez vous ? ça permettrait d'avoir ainsi la déclaration des variables et les procedures qui si rapporte dans un même fichier ce qui est quand même bien plus pratique que d'avoir 2 fichiers un pour les déclarations et l'autre pour les procédures et cela sans avoir les problèmes de trouver le bon ordre pour inclure les différents fichier.
On pourrait aussi poussé le vis pour scanner automatique le reste du programme pour y inclure directement les "déclarations des procédures"
Alors ? vous trouvez ça une bonne idée ou je retourne me coucher ?
Lorsqu'on veut compiler un programme qui a beaucoup de fichier a inclure.
L'IDE scanne tout les fichiers du programme et récupère tout ce qui se trouve entre les balise ;[START HEADER] et ;[STOP HEADER]
et les places au tout début du programme avant de l'envoyer a la compilation.
exemple :
fichier : Font.pbi
Code : Tout sélectionner
;[START HEADER]
Structure font_param
Name.s ; Font Name
Size.l ; Font Size
Option.l; Font Option (#PB_Font_Bold,#PB_Font_Italic,#PB_Font_Underline,#PB_Font_StrikeOut,#PB_Font_HighQuality)
EndStructure
;
Global NewList Font.font_param()
;[STOP HEADER]
Procedure CheckFontExist(Name.s,Size.l,Option.l)
Debug "Check if i already use the font:"+Name
Found.l=-1
If ListSize(Font())>0
For z=0 To ListSize(Font())
SelectElement(Font(), z)
If Font()\Name=Name And Font()\Size=Size And Font()\Option=Option
Found=z;
EndIf
Next
EndIf
Debug "Use it ? :"+Str(Found)
ProcedureReturn Found
EndProcedure
Procedure AddFont(Name.s,Size.l,Option.l)
Found=CheckFontExist(Name.s,Size.l,Option.l)
If Found>-1
ProcedureReturn Found
Else
Prefs\NbFont+1
If LoadFont(Prefs\NbFont,Name,Size,Option)=0
Debug "I can't load this font"
Else
Debug "LoadFont:"+Str(Prefs\NbFont)
AddElement(Font())
Font()\Name=Name
Font()\Size=Size
Font()\Option=Option
EndIf
EndIf
ProcedureReturn Prefs\NbFont
EndProcedure
On pourrait aussi poussé le vis pour scanner automatique le reste du programme pour y inclure directement les "déclarations des procédures"
Alors ? vous trouvez ça une bonne idée ou je retourne me coucher ?
