Jaa!!! Es ist da!!! Ich, der einfache Hobbyprogrammierer habe ein Syntaxhighlighter für T.A.G. Source Code Dateien erstellt.
WIE INSTALLIEREN???
Einfach den Code am Ende des Beitrags in eine leere Datei kopieren, als "tag.sch" im Ordner "syntaxschemes" abspeichern. Gehighlightet werden Schlüsselwörter wie "wenn", "sei" oder "Obj" und die Standartbefehle aus dem Handbuch. schaut's euch einfach mal an
P.Name = 'T.A.G. Source File'
P.SyntaxBlocks = <
item
Name = 'Default'
ID = 0
FIIntNum = 4
FIFloatNum = 5
FIHexNum = 6
UseComments = True
UseSingleLineComments = True
UseMultiLineComments = True
UseStrings = True
UseMultiLineStrings = True
UseNumbers = True
UseKeywords = True
BlockDelimiters = <>
SingleLineCommentDelimiters = <
item
FontID = 1
LeftDelimiter = '!'
end
item
FontID = 11
LeftDelimiter = '#'
end>
MultiLineCommentDelimiters = <
item
FontID = 2
LeftDelimiter = '/*'
RightDelimiter = '*/'
end>
MultiLineStringDelimiters = <
item
FontID = 3
LeftDelimiter = #39
RightDelimiter = #39
end>
KeywordSets = <
item
FontID = 8
Name = 'bezeichner'
Keywords =
'*,Adj,Aktion,Antw,Anz,Attr,Ausf,Bed,Bef,BefVar,Besch,Dabei,dann,' +
'Daran,Darauf,Darin,Deko,Ende,EndeAusf,Erst,Feld,Flagge,Gew,InBes' +
'ch,Integer,Konst,Nachausf,Name,Obj,ObjAttr,ObjVar,oder,Ort,Plura' +
'l,Pr'#228'p,Pseudo,Raum,RaumAttr,RaumVar,RitgVar,sonst,Std,String,Sub' +
'st,Synonym,Syntax,Text,und,Var,Vol,Vor,VorAusf,VorReakt,Weg,wenn' +
',Zust,ZustVar'
end
item
FontID = 7
Name = 'Befehle'
Keywords =
'AttrDazu,AttrHin,AttrWeg,Ausf,Auswahl,Box,GeheZu,InhListe,JaNein' +
',MutterObj,ObjGew,ObjInh,ObjListe,ObjNach,ObjPunkte,ObjZust,Puff' +
'er,Punkte,RaumPunkte,SeiRaum,SeiRitg,SetzeZeit,StammObj,StammRau' +
'm,Tausche,WarteZeit,Zufallstext'
end
item
FontID = 9
Name = 'Sonderbefehle'
Keywords = 'Absatz,Gestorben,Gewonnen,Stop,Text'
end
item
FontID = 10
Name = 'Variablenzuweisung'
Keywords =
'Belege,Daten,Dekr,Div,FeldPos,Inkr,Lese,Mod,Mult,Sei,SeiBed,Setz' +
'e,Zufall'
end>
end>
P.FontTable = <
item
FontID = 1
Font.Charset = DEFAULT_CHARSET
Font.Color = clSilver
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = [fsItalic]
end
item
FontID = 2
Font.Charset = DEFAULT_CHARSET
Font.Color = clSilver
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = [fsItalic]
end
item
FontID = 3
Font.Charset = DEFAULT_CHARSET
Font.Color = clOlive
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
end
item
FontID = 4
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
end
item
FontID = 5
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
end
item
FontID = 6
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
end
item
FontID = 8
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = [fsBold]
end
item
FontID = 7
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = [fsBold]
end
item
FontID = 9
Font.Charset = DEFAULT_CHARSET
Font.Color = clGray
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = [fsBold]
end
item
FontID = 10
Font.Charset = DEFAULT_CHARSET
Font.Color = clFuchsia
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = [fsBold]
end
item
FontID = 11
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = [fsItalic]
end>
P.SyntaxVersion = 3
end```
