Proceduren suchen Listen ?

[dater]

Hallo,
ich suche eine Möglichkeit, im Programm alle Procduren aufzulisten, und einen Pointer und Name da von zu erstellen?

global dim pointer.l(1000)
global dim procname.s(1000)

;procdure suchen
For i=0 to 1000
?? a=FindProcdure()
?? pointer(i)=a
?? procname(i)=a
next i


so oder so ähnlich....

Dater

[edel]

Mit PureBasic ist das nicht moeglich.

[Fluid Byte]

Darf man fragen wozu du das benötigst?

[Franky]

An sich möglich ist es schon, allerdings nur vor dem Compilieren, nicht zur Laufzeit.

Seit PB 4.0 kann man in der DataSection auch Procedure-Pointer Speichern.

Du könntest dir ein kleines Programm schreiben, das deinen Quelltext durchgeht und alle selbstdeklarierten Proceduren aufsammelt.

Sprich, wo LCASE(Left(Trim(text),9))="procedure", nimmste den LTrim-Teil des Stringfield(mid(text,10),0,"(") und trägst ihn in ne Liste ein.
Am Ende musste dann nur ne Data-Section erstellen lassen ala

Code: Alles auswählen

string="DataSection"+chr(13)+chr(10)+"Adressen:"+Chr(13)+chr(10)
ForEach Funktion()
       string=string+"Data.l @"+Funktion()+"()"+Chr(13)+Chr(10)
Next
string=string+"Namen:"+chr(13)+chr(10)
ForEach Funktion()
   string=string+"Data.s "+chr(34)+Funktion()+"()"+Chr(34)+Chr(13)+Chr(10)
Next 

Lass dir den Code Ausgeben oder als .txt speichern, fertig ist die Datasection

Das musste dann nur noch über Read einlesen in dein Array.
Achja, 3 Dinge

1.)Musst bei "Procedure.s" und so aufpassen, sprich erst gucken, wo ein Rückgabewert deklariert ist, damit du den Namen auch richtig einliest
2.)Schreib auch die Menge der Funktionen in die DataSection, damit du weißt, wo die Adressen aufhören und die Namen beginnen.
3.)Meine Codes hier sind nur Pseudocode, ich will dir ja nicht deine Arbeit wegnehmen
Viel Spass

[AND51]

Meine Tests schlugen fehl, aber ich dachte, man könnte zur Laufzeit vielleicht so an die im eigenen Programm gespeicherten Prozedurnamen und -adressen kommen:

Code: Alles auswählen

Procedure eins()
	MessageRequester("", "eins")
EndProcedure
ProcedureDLL zwei()
	MessageRequester("", "zwei")
EndProcedure

If OpenLibrary(1, ProgramFilename())
	If ExamineLibraryFunctions(1)
		While NextLibraryFunction()
			Debug LibraryFunctionName()
			Debug LibraryFunctionAddress()
			Debug ""
		Wend
	Else
		Debug "Kann sich selbst nicht untersuchen"
	EndIf
Else
	Debug "Kann sich selbst nicht öffnen"
EndIf

Gibt bei mir leider einen IMA in Zeile 11. Versteh ich nicht. Die EXE kann zwar geöffnet und untersucht werden, aber laut CountLibraryFunctions() gibt es in der EXE keine Funktionen - wie kann die dann untersucht werden?

Kommentiert man die Zeilen 11 und 12 aus, wird die While-Schleife trotzdem 6x durchlaufen? Weiß jemand, was hier vor sich geht??

[Kaeru Gaman]

weil es keine ProcedureDLL deklarationen sind.
für normale Procs werden keine Namen gespeichert und sie sind von außen nicht erreichbar.

wenn ein alter Hase wie edel im zweiten posting dieses threads schreibt "geht nicht",
dann wird da schon was dahinter stecken....

[AND51]

> weil es keine ProcedureDLL deklarationen sind
...sagte jemand, der sich den Code nicht genau genug ansah...

> wenn ein alter Hase wie edel im zweiten posting dieses threads schreibt "geht nicht", dan...
...sorry ich vergaß! Kann ja nicht jeder so ein

super-coder

sein...

[Kaeru Gaman]

dann hab ich halt nicht richtig hingesehen...

ich schätze mal, die eigentliche schnapsidee dürfte sein,
dass die laufende exe versucht sich selbst als library zu öffnen.

aber da ich nicht wirklich weiß was da vor sich geht,
warte ich halt mal ab, ob sich noch einer erbarmt...

[edel]

wenn ein alter Hase wie edel im zweiten posting dieses threads schreibt "geht nicht",
dann wird da schon was dahinter stecken....

Was nichts heissen muss.

Die Methode von AND51 kann gar nicht gehen, da PB es voellig egal ist ob
da Procedure oder ProcedureDLL steht. Solange es nicht als DLL kompiliert
wird, wird man da auch nichts auslesen koennen.

[Falko]

Darf man fragen wozu du das benötigst?

+1