Le papa, la maman et les petits "nenfants"
Dans la serie, "j'ai rien d'autre a foutre que toujours poser des questions sur des trucs impossible à faire"
J'en avais déja causé il y a longtemps avec mon ami FLAITH...et j'en ai recausé hier et aujourd'hui avec mon ami FLAITH...
Et peut etre.....que je vais en recauser demain avec mon ami FLAITH
Je voudrais avoir le listing, complet d'un code source y compris tous ses includes
J'ai pensé que seul le compiler a la possibilité de connaitre tous les chemins, car necessairement chaque ligne lui arrive sous le PIF avant de la compiler...je pense pas trop prendre de risque en disant ça
Alors si FRED y rode par la ...je le vois quand c'est lui...c'est rouge
Est ce qu'il aurait une combine pour piquer ces lignes au compilateur avant qu'il les coompile
Ou sinon est ce quelqu'un aurait une autre idée
Bon j'ai essayé et je suis arrivé a tout faire...sauf ce qui est dur
Si "quinquin" y me sort un "pinous" de son chapeau, et arrive a choper les IncludesFiles contenant des variables (Constantes et non)....
Je me marie !!!!
Code : Tout sélectionner
ProcedureDLL ListingSourcePB(CheminCodeSource.s) ; Donne la liste de toutes les lignes de code d'une source include non constant compris
If Right(CheminCodeSource, 3) <> ".pb" And Right(CheminCodeSource, 4) <> ".pbi"
MessageRequester("ListingSourcePB", "Le code source ''" + CheminCodeSource + "'' n'est pas un fichier PureBasic.")
ProcedureReturn #False
EndIf
If FileSize(CheminCodeSource) = - 1
MessageRequester("ListingSourcePB", "Le code source ''" + CheminCodeSource + "'' n'a pas été trouvé.")
ProcedureReturn #False
EndIf
CheminRepCodeSource.s = GetPathPart(CheminCodeSource)
CanalFichier = ReadFile(#PB_Any, CheminCodeSource)
Repeat
Donnee$ = ReadString(CanalFichier)
If FindString(Donnee$, "IncludeFile", 1) And Not FindString(Donnee$, "#", 1)
Source$ = ReplaceString(Donnee$, "IncludeFile", "")
Source$ = Trim(ReplaceString(Source$, Chr(34), ""))
PointVirgule = FindString(Source$, ";", 1)
If PointVirgule
Source$ = Trim(Left(Source$, PointVirgule - 1))
EndIf
ListingSourcePB(CheminRepCodeSource + Source$)
EndIf
Debug donnee$
Until Eof(CanalFichier) <> 0
CloseFile(CanalFichier)
EndProcedure
ListingSourcePB("c:\SourceFile.pb")
