Commit 1a9fbc9b authored by Diederik van Arkel's avatar Diederik van Arkel

Disable quickParse syntax colouring until bugs are fixed;

parent f978b794
......@@ -4,7 +4,7 @@ implementation module syncol
import StdArray, StdClass, StdBool, StdList, StdFunc, StdString
import StrictList
import StdTuple
import StdMisc
//import nodebug
//import dodebug // StdDebug
......@@ -68,8 +68,10 @@ where
*/
quickParse :: !Int !Int !(StrictList (!Info,!String)) -> (Int,Int,StrictList (!Info,!String))
//quickParse fln lln text
// = (0,slLength text - 1,firstParse (slMap snd text))
quickParse fln lln text
// revert to firstParse until quickParse is debugged
= (0,slLength text - 1,firstParse (slMap snd text))
/*
quickParse beg end lines
# (s,f,l) = before 0 slFromList iniState [] lines
// # l` = firstParse (slMap snd text)
......@@ -111,7 +113,7 @@ where
| not (state.typedecl) && state`.typedecl
= after beg idx {state & typedecl=True} (patch res acc) [] old
= after beg (inc idx) state` res (acc++[(info`,line)]) lines
*/
copy res acc rest
= res (acc ++ rest)
patch res acc rest
......
Markdown is supported
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