Seite 1 von 1

PB TermLister

Verfasst: 09.06.2025 12:01
von gh249@online.de
Hallo,
kennt jemand das Programm PB TermLister oder PB ProcLister?
Wenn ja dann wüsste ich gerne wo man es herunterladen kann.
Ich möchte aus einem selbstgeschriebenen Programm alles überflüssige entfernen, das geht zwar auch zu Fuß aber das Programm ist ziemlich umfangreich und der Termlister könnte mir die Arbeit bestimmt erleichtern.

Re: PB TermLister

Verfasst: 09.06.2025 13:22
von dige

Re: PB TermLister

Verfasst: 09.06.2025 15:46
von Bisonte
Der Compiler selbst bietet diese Funktion m.o.w.

Hier mein kleines IDE - Tool um den aktuellen (gespeicherten) Code aus der IDE herraus direkt
dem "PreProcess" zu unterziehen ...

Code: Alles auswählen

; IDE TOOL PreProcess : "%FILE"

Global Param.s, PBC.s, File.s = RemoveString(ProgramParameter(0), Chr(34))

If FileSize(File) <= 0
  MessageRequester("Info", "Das File : " + File + #CR$ + "existiert nicht oder hat 0 Bytes.")
  End
EndIf

PBC = GetEnvironmentVariable("PB_TOOL_Compiler")
If FileSize(PBC) <= 0
  MessageRequester("Info", "IDE - Tool ... Muss von der IDE gestartet werden.")
  End
EndIf
DeleteFile(GetFilePart(File, #PB_FileSystem_NoExtension) + ".pre.pb")
OpenConsole()
PrintN(File)
PrintN(#DQUOTE$ + File + #DQUOTE$ + " /THREAD /PREPROCESS " + #DQUOTE$ + GetFilePart(File,#PB_FileSystem_NoExtension) + ".pre.pb")

RunProgram(PBC, #DQUOTE$ + File + #DQUOTE$ + " /THREAD /PREPROCESS " + #DQUOTE$ + GetFilePart(File,#PB_FileSystem_NoExtension) + ".pre.pb" + #DQUOTE$, GetPathPart(File), #PB_Program_Wait)

MessageRequester("Info", File)
CloseConsole()
Der "entschlackte" Quellcode steht dann nebem dem PureBasic File mit dem *pre.pb kürzel am Ende....
Entschlackt, weil alles ohne Verweis vom Compiler entfernt wird, auch kommentare...