syncol.dcl 544 Bytes
Newer Older
Diederik van Arkel's avatar
Diederik van Arkel committed
1 2
definition module syncol

3
// provides preparsing for Clean syntax colouring.
Diederik van Arkel's avatar
Diederik van Arkel committed
4 5 6 7

import StdString
import StrictList

8 9 10 11 12 13
:: Info	:== 
	(!Int		// comment nesting level at start of line
//	,!Bool		// in typedef at start of line
	,!Bool		// is typedef line
//	,!Bool		// in typedecl at start of line
	,!Bool		// is typedecl line
Diederik van Arkel's avatar
Diederik van Arkel committed
14
	,!Int		// context offside level
15 16
	)
// pack bools into bitfield?
Diederik van Arkel's avatar
Diederik van Arkel committed
17

18 19
firstParse :: !(StrictList String) -> StrictList (!Info,!String)
quickParse :: !Int !Int !(StrictList (!Info,!String)) -> (Int,Int,StrictList (!Info,!String))