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
*/
:: LineAnnot :== Info
dummyLineAnnot :== (0,False,False,0)
dummyLineAnnot :== (0,False,False,0,False)
annotLine :== slMap (\s->(dummyLineAnnot,s))
annotWhole :== firstParse
annotPart :== quickParse
......
......@@ -94,7 +94,7 @@ optDrawS :== pictdrawstring // use non-optimised versions
optDrawC :== pictdrawchar // "
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}}
picture
#! strings = splitAtTabs string
......
......@@ -12,6 +12,7 @@ import StrictList
// ,!Bool // in typedecl at start of line
,!Bool // is typedecl line
,!Int // context offside level
,!Bool // flush accu
)
// 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