54 lines
1.3 KiB
Factor
Executable File
54 lines
1.3 KiB
Factor
Executable File
USING: xmode.marker.context xmode.rules
|
|
xmode.tokens namespaces kernel sequences assocs math ;
|
|
IN: xmode.marker.state
|
|
|
|
! Based on org.gjt.sp.jedit.syntax.TokenMarker
|
|
|
|
SYMBOL: line
|
|
SYMBOL: last-offset
|
|
SYMBOL: position
|
|
SYMBOL: context
|
|
|
|
SYMBOL: whitespace-end
|
|
SYMBOL: seen-whitespace-end?
|
|
|
|
SYMBOL: escaped?
|
|
SYMBOL: process-escape?
|
|
SYMBOL: delegate-end-escaped?
|
|
|
|
: current-rule ( -- rule )
|
|
context get line-context-in-rule ;
|
|
|
|
: current-rule-set ( -- rule )
|
|
context get line-context-in-rule-set ;
|
|
|
|
: current-keywords ( -- keyword-map )
|
|
current-rule-set rule-set-keywords ;
|
|
|
|
: token, ( from to id -- )
|
|
pick pick = [ 3drop ] [ >r line get subseq r> <token> , ] if ;
|
|
|
|
: prev-token, ( id -- )
|
|
>r last-offset get position get r> token,
|
|
position get last-offset set ;
|
|
|
|
: next-token, ( len id -- )
|
|
>r position get 2dup + r> token,
|
|
position get + dup 1- position set last-offset set ;
|
|
|
|
: push-context ( rules -- )
|
|
context [ <line-context> ] change ;
|
|
|
|
: pop-context ( -- )
|
|
context get line-context-parent
|
|
dup context set
|
|
f swap set-line-context-in-rule ;
|
|
|
|
: init-token-marker ( main prev-context line -- )
|
|
line set
|
|
[ ] [ f <line-context> ] ?if context set
|
|
0 position set
|
|
0 last-offset set
|
|
0 whitespace-end set
|
|
process-escape? on ;
|