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
C: <foo> foo
CONSTRUCTOR: <circle> circle ( radius -- obj ) ;
CONSTRUCTOR: <circle> circle ( radius -- obj ) definition... ;
! Private definitions
@ -105,6 +106,8 @@ drop ! wrong
GENERIC#: word 1 ( stack -- effect )
MATH: + ( x y -- z ) foldable flushable
C: <foo> foo
CONSTRUCTOR: <circle> circle ( radius -- obj ) ;
CONSTRUCTOR: <circle> circle ( radius -- obj ) definition... ;
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 factorSymbol start=/\v<SYMBOL:>/ end=/\v<\S+>/ 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 cluster factorSlotAttr contains=factorSlotAttrInitial,factorSlotAttrReadOnly
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 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 factorPredicate matchgroup=factorPredicateDelims start=/\v<%(PREDICATE):>/ end=/\v<;>/ contains=@factorComment,factorTupleSlotName
" Abnormally named because factor*Error is reserved for syntax errors.
syn region factorErrorSyn start=/\v<ERROR:>/ 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 factorConstant Define
HiLink factorAlias Define
HiLink factorSingleton Define
HiLink factorSingletons Define
HiLink factorSingleton Typedef
HiLink factorSingletons Typedef
HiLink factorMixin Typedef
HiLink factorInstance Typedef
HiLink factorHook Typedef
@ -508,6 +509,8 @@ if !exists('g:factor_syn_no_init')
HiLink factorSlotAttrReadOnly factorSlotAttr
HiLink factorStructSlotAttr factorSlotAttr
HiLink factorStructSlotAttrBits factorStructSlotAttr
HiLink factorPredicate Typedef
HiLink factorPredicateDelims factorTuple
HiLink factorTuple Typedef
HiLink factorTupleDelims factorTuple
HiLink factorTupleSlot factorSlot