Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-and-itasks
clm
Commits
87b3dd8f
Commit
87b3dd8f
authored
Oct 27, 2003
by
Diederik van Arkel
Browse files
Disable quickParse syntax colouring until bugs are fixed;
parent
87c11330
Changes
1
Show whitespace changes
Inline
Side-by-side
CleanIDE/Ed/syncol.icl
View file @
87b3dd8f
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment