steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

misc/vim: highlight predicate classes.

master
John Benediktsson 2020-08-14 13:28:48 -07:00
parent 5176b270d2
commit 60dd083bcb
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
misc/syntax-test.factor
View File

@ -87,6 +87,7 @@ drop ! wrong
MATH: + ( x y -- z ) foldable flushable MATH: + ( x y -- z ) foldable flushable
C: <foo> foo C: <foo> foo
CONSTRUCTOR: <circle> circle ( radius -- obj ) ; CONSTRUCTOR: <circle> circle ( radius -- obj ) ;
CONSTRUCTOR: <circle> circle ( radius -- obj ) definition... ;
! Private definitions ! Private definitions
@ -105,6 +106,8 @@ drop ! wrong
GENERIC#: word 1 ( stack -- effect ) GENERIC#: word 1 ( stack -- effect )
MATH: + ( x y -- z ) foldable flushable MATH: + ( x y -- z ) foldable flushable
C: <foo> foo C: <foo> foo
CONSTRUCTOR: <circle> circle ( radius -- obj ) ;
CONSTRUCTOR: <circle> circle ( radius -- obj ) definition... ;
PRIVATE> PRIVATE>

9
misc/vim/syntax/factor.vim
View File

@ -245,7 +245,7 @@ syn region factorRename start=/\v<RENAME:>/ skip=/\v<!>.*/ end=
syn region factorSingletons start=/\v<SINGLETONS:>/ end=/\v<;>/ contains=@factorComment syn region factorSingletons start=/\v<SINGLETONS:>/ end=/\v<;>/ contains=@factorComment
syn region factorSymbol start=/\v<SYMBOL:>/ end=/\v<\S+>/ contains=@factorComment syn region factorSymbol start=/\v<SYMBOL:>/ end=/\v<\S+>/ contains=@factorComment
syn region factorSymbols start=/\v<SYMBOLS:>/ end=/\v<;>/ contains=@factorComment syn region factorSymbols start=/\v<SYMBOLS:>/ end=/\v<;>/ contains=@factorComment
syn region factorConstructor2 start=/\v<CONSTRUCTOR:>/ end=/\v<;>/ contains=@factorComment syn region factorConstructor2 start=/\v<CONSTRUCTOR:>/ end=/\v<;>/ contains=@factorComment,factorStackEffect
syn region factorIntersection start=/\v<INTERSECTION:>/ end=/\v<;>/ contains=@factorComment syn region factorIntersection start=/\v<INTERSECTION:>/ end=/\v<;>/ contains=@factorComment
syn cluster factorSlotAttr contains=factorSlotAttrInitial,factorSlotAttrReadOnly syn cluster factorSlotAttr contains=factorSlotAttrInitial,factorSlotAttrReadOnly
syn cluster factorTupleSlotAttr contains=@factorSlotAttr syn cluster factorTupleSlotAttr contains=@factorSlotAttr
@ -256,6 +256,7 @@ syn match factorTupleSlotClass /\v<\S+>/ nextgroup=factorTupleSlotAttrS
syn match factorTupleSlotClassSkip /\v%(\_\s+%(!>.*)?)*/ contains=@factorComment nextgroup=factorTupleSlotClass,@factorTupleSlotAttr transparent contained syn match factorTupleSlotClassSkip /\v%(\_\s+%(!>.*)?)*/ contains=@factorComment nextgroup=factorTupleSlotClass,@factorTupleSlotAttr transparent contained
syn region factorTupleSlot matchgroup=factorTupleSlotDelims start=/\v<\{>/ end=/\v<\}>/ contains=@factorComment,factorTupleSlotName,@factorTupleSlotAttr contained syn region factorTupleSlot matchgroup=factorTupleSlotDelims start=/\v<\{>/ end=/\v<\}>/ contains=@factorComment,factorTupleSlotName,@factorTupleSlotAttr contained
syn region factorTuple matchgroup=factorTupleDelims start=/\v<%(TUPLE|BUILTIN):>/ end=/\v<;>/ contains=@factorComment,factorTupleSlotName,factorTupleSlot syn region factorTuple matchgroup=factorTupleDelims start=/\v<%(TUPLE|BUILTIN):>/ end=/\v<;>/ contains=@factorComment,factorTupleSlotName,factorTupleSlot
syn region factorPredicate matchgroup=factorPredicateDelims start=/\v<%(PREDICATE):>/ end=/\v<;>/ contains=@factorComment,factorTupleSlotName
" Abnormally named because factor*Error is reserved for syntax errors. " Abnormally named because factor*Error is reserved for syntax errors.
syn region factorErrorSyn start=/\v<ERROR:>/ end=/\v<;>/ contains=@factorComment syn region factorErrorSyn start=/\v<ERROR:>/ end=/\v<;>/ contains=@factorComment
syn region factorUnion start=/\v<UNION:>/ end=/\v<;>/ contains=@factorComment syn region factorUnion start=/\v<UNION:>/ end=/\v<;>/ contains=@factorComment
@ -486,8 +487,8 @@ if !exists('g:factor_syn_no_init')
HiLink factorSymbols Define HiLink factorSymbols Define
HiLink factorConstant Define HiLink factorConstant Define
HiLink factorAlias Define HiLink factorAlias Define
HiLink factorSingleton Define HiLink factorSingleton Typedef
HiLink factorSingletons Define HiLink factorSingletons Typedef
HiLink factorMixin Typedef HiLink factorMixin Typedef
HiLink factorInstance Typedef HiLink factorInstance Typedef
HiLink factorHook Typedef HiLink factorHook Typedef
@ -508,6 +509,8 @@ if !exists('g:factor_syn_no_init')
HiLink factorSlotAttrReadOnly factorSlotAttr HiLink factorSlotAttrReadOnly factorSlotAttr
HiLink factorStructSlotAttr factorSlotAttr HiLink factorStructSlotAttr factorSlotAttr
HiLink factorStructSlotAttrBits factorStructSlotAttr HiLink factorStructSlotAttrBits factorStructSlotAttr
HiLink factorPredicate Typedef
HiLink factorPredicateDelims factorTuple
HiLink factorTuple Typedef HiLink factorTuple Typedef
HiLink factorTupleDelims factorTuple HiLink factorTupleDelims factorTuple
HiLink factorTupleSlot factorSlot HiLink factorTupleSlot factorSlot