Commit 5772698d authored by Diederik van Arkel's avatar Diederik van Arkel
Browse files

updated syntax colouring;

parent 23835bdc
...@@ -25,7 +25,7 @@ export TextAnnot Void, SyncInf, ConsInf ...@@ -25,7 +25,7 @@ export TextAnnot Void, SyncInf, ConsInf
*/ */
:: LineAnnot :== Info :: LineAnnot :== Info
dummyLineAnnot :== (0,False,False,0) dummyLineAnnot :== (0,False,False,0,False)
annotLine :== slMap (\s->(dummyLineAnnot,s)) annotLine :== slMap (\s->(dummyLineAnnot,s))
annotWhole :== firstParse annotWhole :== firstParse
annotPart :== quickParse annotPart :== quickParse
......
...@@ -94,7 +94,7 @@ optDrawS :== pictdrawstring // use non-optimised versions ...@@ -94,7 +94,7 @@ optDrawS :== pictdrawstring // use non-optimised versions
optDrawC :== pictdrawchar // " optDrawC :== pictdrawchar // "
tabDrawStringC :: !Point2 !(!Info,!String) !FontInfo !*Picture -> *Picture tabDrawStringC :: !Point2 !(!Info,!String) !FontInfo !*Picture -> *Picture
tabDrawStringC point ((clevel,typedef,typedecl,_),string) tabDrawStringC point ((clevel,typedef,typedecl,_,_),string)
{tabSize,charWidth,thefont, showTabs, syntaxColours={textColour, backgroundColour,tabColour, commentColour, stringColour, charColour, keywordColour, typedefColour, typedeclColour}} {tabSize,charWidth,thefont, showTabs, syntaxColours={textColour, backgroundColour,tabColour, commentColour, stringColour, charColour, keywordColour, typedefColour, typedeclColour}}
picture picture
#! strings = splitAtTabs string #! strings = splitAtTabs string
......
...@@ -12,6 +12,7 @@ import StrictList ...@@ -12,6 +12,7 @@ import StrictList
// ,!Bool // in typedecl at start of line // ,!Bool // in typedecl at start of line
,!Bool // is typedecl line ,!Bool // is typedecl line
,!Int // context offside level ,!Int // context offside level
,!Bool // flush accu
) )
// pack bools into bitfield? // pack bools into bitfield?
......
This diff is collapsed.
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment