PureBasic

Code : Tout sélectionner

Declare  list_fonction(*bidon)
Global Newlist TheFunctions.s()

; Appel
MessageRequester("info", "il y a " +str(list_fonction(*bidon) )+" Fonctions dans votre Purebasic")




Procedure list_fonction(*bidon) 
	;By Zorro
	; Cette Procedure recupere la liste des fonctions donné par le compilateur
	; cette list sert pour la coloration des nom de fonction de purebasic, et la complétion
	chemin_compiler_32$=#PB_Compiler_Home +"Compilers/pbcompiler.exe"
	
	If chemin_compiler_32$<>""
		compiler = RunProgram(chemin_compiler_32$, " /STANDBY ", "", #PB_Program_Open | #PB_Program_Read | #PB_Program_Write | #PB_Program_Hide)
		If Compiler=0
			MessageRequester("erreur" , "le compilateur ne se lance pas !!" ,#PB_MessageRequester_Ok)
			End
		Endif
	Else
		MessageRequester("erreur" , "pas trouvé le compilateur de Pb",#PB_MessageRequester_Ok)
	EndIf
	If compiler
		If IsProgram(compiler)
			Repeat
			Until ReadProgramString(compiler) = "READY"
			WriteProgramStringN(compiler, "FUNCTIONLIST")
			j = Val(ReadProgramString(compiler))
			For i = 1 To j
				AddElement(TheFunctions())
				TheFunctions() = ReadProgramString(compiler)
			Next
			WriteProgramStringN(compiler, "END")
			CloseProgram(compiler)
		EndIf
	EndIf
	ProcedureReturn J
EndProcedure
; Epb