Hallo,
wir setzen in unserer Firma eine eigene Scripting-Language ein.
Für diese Scripting-Language habe ich eine
IDE geschrieben. Was
mir jetzt noch fehlt ist ein Code-Fomatter in Form von DelForEx
oder
Jedi Code Formatter.
Leider habe ich keine Ahnung wo ich da ansetzen soll. Hat jemand
eine Idee oder Erfahrung wie man so etwas angeht.
hier mal so ein Code-Auszug aus der Language
Delphi-Quellcode:
Uses ("..\Lib\Util.csl")
[b]Vorher:[/b]
/*-----------------------------------------------------------------------------------------*\
Detect ()
Result : Detect
Access
\*-----------------------------------------------------------------------------------------*/
Function Main (bValidate
As Bool, uText
As DynStruct)
As Bool
Dim bRet
As Bool = CheckDetect ()
Dim lsInfo
As List
Of String = RestoreMessage ()
// Version und Application konnten nicht initialisiert werden Util-Function
// Meldung wird in Util generiert (RestoreMessage). Detect im Restore-Modus
// sind die Version differnt so benötigt das Module ein Mapfile. Ist dieses
// nicht vorhanden so ist kein Restore möglich.
If ((
Not cpStoring)
And (
Not bRet))
uText.Title = lsInfo [1]
uText.Description = lsInfo [2]
EndIf
Return (bRet)
EndFunction
[b]Nachher:[/b]
Uses ("..\Lib\Util.csl")
/*-----------------------------------------------------------------------------------------*\
Detect ()
Result : Detect
Access
\*-----------------------------------------------------------------------------------------*/
Function Main (bValidate
As Bool, uText
As DynStruct)
As Bool
Dim bRet
As Bool = CheckDetect ()
Dim lsInfo
As List
Of String = RestoreMessage ()
// Version und Application konnten nicht initialisiert werden Util-Function
// Meldung wird in Util generiert (RestoreMessage). Detect im Restore-Modus
// sind die Version differnt so benötigt das Module ein Mapfile. Ist dieses
// nicht vorhanden so ist kein Restore möglich.
If ((
Not cpStoring)
And (
Not bRet))
uText.Title = lsInfo [1]
uText.Description = lsInfo [2]
EndIf
Return (bRet)
EndFunction