initial commit

tools/qed/syntax/pas.syn

@@ -0,0 +1,87 @@
+
+;********************************************************
+[Pascal source]
+;********************************************************
+Txttype = "pas","i"
+Active = TRUE
+CaseSensitive = FALSE
+Token = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyz"
+
+
+<Comment>
+From = "(*"
+To = "*)"
+(Color2)
+Attribs = LIGHT
+(Color16)
+Color = 11
+Selcolor = 3
+(Color256)
+Color = 11
+Selcolor = 3
+
+<Comment>
+From = "{"
+To = "}"
+
+<String>
+From = "'"
+To = "'"
+(Color16)
+Color = 9
+Selcolor = 9
+(Color256)
+Color = 9
+Selcolor = 9
+
+<Array>
+Keyword = "[","]"
+(Color2)
+Attribs = BOLD
+(Color16)
+Attribs = BOLD
+(Color256)
+Attribs = BOLD
+
+<Keywords>
+Keyword = "and","begin","const","case","downto","div","do","external"
+Keyword = "exit","else","end","function","forward","for","goto","if","in"
+Keyword = "label","loop","mod","not","otherwise","or","procedure"
+Keyword = "program","repeat","set","type","then","to","until","var"
+Keyword = "while","with"
+(Color2)
+Attribs = BOLD
+(Color16)
+Attribs = BOLD
+(Color256)
+Attribs = BOLD
+
+<Variable types>
+Keyword = "array","alfa","boolean","byte","char","integer","long_integer"
+Keyword = "of","packed","real","short_integer","string","text"
+(Color2)
+Attribs = BOLD
+(Color16)
+Attribs = BOLD
+(Color256)
+Attribs = BOLD
+
+<Hex constants>
+From = "$"
+While = "0"-"9","A"-"F","a"-"f"
+(Color16)
+Color = 12
+Selcolor = 5
+(Color256)
+Color = 12
+Selcolor = 5
+
+<Decimal constants>
+From = "0"-"9"
+While = ".","0"-"9"
+(Color16)
+Color = 12
+Selcolor = 5
+(Color256)
+Color = 12
+Selcolor = 5