diff options
Diffstat (limited to 'genvim.txr')
-rw-r--r-- | genvim.txr | 186 |
1 files changed, 126 insertions, 60 deletions
@@ -9,7 +9,6 @@ static void dir_tables_init(void) @(end) @(bind tl-orig-sym @(append-each* ((entry (package-alist)) - (pkg-name [mapcar car entry]) (pkg [mapcar cdr entry])) (append-each ((sym (package-symbols pkg))) (when (or (boundp sym) (fboundp sym) @@ -25,7 +24,9 @@ static void dir_tables_init(void) ("keyword" ":") ("usr" "") (t `@{pkg-name}:`)))) - (list `@qualif@(symbol-name sym)`)))) + (if (eq sym 'contains) + '("contain[s]") ;; Vim doesn't like the word "contains" + (list `@qualif@(symbol-name sym)`))))) @(do (set [txr-sym 0..0] '("end" "and" "or" "catch" "finally" "until" "last" @@ -36,13 +37,20 @@ static void dir_tables_init(void) @(set (tl-sym tl-orig-sym) @(multi-sort (list tl-sym tl-orig-sym) [list less])) @(bind bs "\\\\") +@(bind ws "[\\t\\n ]") @(bind hex "0-9A-Fa-f") @(bind at "\\(@[ \\t]*\\)") @(bind alpha "A-Za-z_") +@(bind alpha-noe "A-DF-Za-dfz_") @(bind alnum "A-Za-z_0-9") @(bind dig "0-9") +@(bind dig19 "1-9") @(bind oct "0-7") -@(bind chesc `abtnvfre@bs \\n`) +@(bind digsep `\\([@dig][,@dig]*[@dig]\\|[@dig]\\)`) +@(bind hexsep `\\([@hex][,@hex]*[@hex]\\|[@hex]\\)`) +@(bind octsep `\\([@oct][,@oct]*[@oct]\\|[@oct]\\)`) +@(bind binsep `\\([01][,01]*[01]\\|[01]\\)`) +@(bind chesc `abtnvfre@bs `) @(bind glyph `!$%&*+\\-<=>?@{bs}_~`) @(bind lispwords @(append-each ((sym tl-orig-sym) (text tl-sym)) @@ -58,8 +66,39 @@ static void dir_tables_init(void) meth umeth usl)) (list text))))) @(bind comments #"\\;\\;\\; \\;\\; \\;") +@(bind txr-elem "txr_error,txr_atat,txr_comment,txr_contin,\ + txr_char,txr_error,txr_char,txr_regdir,txr_variable,\ + txr_splicevar,txr_metanum,txr_directive,txr_bracevar,\ + txr_bracket") +@(bind txr-qelem "txr_splicevar,txr_metanum,txr_qbracevar,txr_list,\ + txr_bracket,txr_escat,txr_stresc,txr_numesc,txr_badesc") +@(bind bvar "txr_num,txr_pnum,tl_ident,tl_splice,tl_metanum,\ + txr_metaat,txr_circ,txr_braced_ident,txr_dot,\ + txr_dotdot,txr_string,txr_list,txr_bracket,\ + txr_regex,tl_regex,txr_quasilit,\ + txr_chr,txr_nested_error") +@(bind dir "txr_keyword,txr_string,txr_list,txr_bracket,\ + txr_quasilit,txr_num,txr_pnum,\ + txr_badnum,tl_ident,tl_regex,txr_string,txr_chr,\ + txr_quote,txr_unquote,txr_splice,txr_dot,txr_dotdot,\ + txr_metaat,txr_circ,txr_ncomment,txr_nested_error") +@(bind list "tl_keyword,txr_string,tl_regex,txr_num,txr_pnum,\ + txr_badnum,tl_ident,txr_metanum,\ + txr_ign,txr_ign_json,txr_list,txr_bracket,\ + txr_quasilit,txr_chr,txr_buf,txr_quote,txr_unquote,\ + txr_splice,txr_dot,txr_dotdot,txr_metaat,txr_circ,txr_jhash,\ + txr_jarray,txr_jatom,txr_ncomment,tl_error,txr_nested_error") +@(bind jlist "txr_jarray_in,txr_jhash_in,txr_jkeyword,txr_jstring,\ + txr_jnum,txr_jpunc,txr_junqlist,txr_junqbkt,txr_junqtok,\ + txr_circ,txr_jerr") +@(bind jsonkw #"true false null") +@(bind jerr ".") +@(bind jpunc "[,: \\t\\n]") +@(bind jesc "\\\\[bfnrt\"\\\\/]") +@(bind juesc `\\\\u[@hex][@hex][@hex][@hex]`) +@(bind jnum `-\\?\\(0\\|[@dig19][@dig]*\\)\\([.][@dig]\\+\\)\\?\\([Ee][+-]\\?[@dig]\\+\\)\\?`) @(define generate (txr-p)) -@ (output @(if txr-p "txr.vim" "tl.vim") :named out) +@ (output @(if txr-p "txr.vim" "tl.vim")) " VIM Syntax file for txr " Kaz Kylheku <kaz@@kylheku.com> @@ -82,26 +121,23 @@ syn spell toplevel setlocal iskeyword=a-z,A-Z,48-57,!,$,%,&,*,+,-,<,=,>,?,\\,_,~,/,^ @ (rep) @{tl-sym}@(mod 0 4)@\nsyn keyword tl_keyword contained @{tl-sym}@(end) -@ (end) @ (if txr-p) -@ (output :continue out) -@ (rep) @{txr-sym}@(mod 0 4)@\nsyn keyword txr_keyword contained @{txr-sym}@(end) -syn match txr_error "@at[*]\?[\t ]*." -syn match txr_atat "@at@@" -syn match txr_comment "@at[#;].*" -syn match txr_contin "@at\\$" -syn match txr_char "@at\\." -syn match txr_error "@at\\[xo]" -syn match txr_char "@at\\x[@hex]\+;\?" -syn match txr_char "@at\\[@oct]\+;\?" -syn match txr_regdir "@at/\(\\/\|[^/]\|\\\n\)*/" -@ (end) +@ (rep) @{txr-sym}@(mod 0 4)@\nsyn keyword txr_keyword contained @{txr-sym}@(end) +syn match txr_at "@at" nextgroup=@{txr-elem} +syn match txr_error "[*]\?[\t ]*." contained +syn match txr_atat "@@" contained +syn match txr_comment "[#;].*" contained +syn match txr_contin "\\$" contained +syn match txr_char "\\." contained +syn match txr_error "\\[xo]" contained +syn match txr_char "\\x[@hex]\+;\?" contained +syn match txr_char "\\[@oct]\+;\?" contained +syn match txr_regdir "/\(\\/\|[^/]\|\\\n\)*/" contained @ (end) -@ (output :continue out) syn match txr_nested_error "[^\t ]\+" contained -syn match txr_variable "@at[*]\?[ \t]*[@alpha][@alnum]*" -syn match txr_splicevar "@@[ \t,*@@]*[@alpha][@alnum]*" contained -syn match txr_metanum "@@\+[0-9]\+"@(if txr-p " contained") +syn match txr_variable "[*]\?[ \t]*[@alpha][@alnum]*" contained +syn match txr_splicevar "[ \t,*@@]*[@alpha][@alnum]*" contained +syn match txr_metanum "@at\+[0-9]\+"@(if txr-p " contained") syn match txr_badesc "\\." contained syn match txr_escat "\\@@" contained syn match txr_stresc "\\[@chesc"`']" contained @@ -109,7 +145,7 @@ syn match txr_numesc "\\x[@hex]\+;\?" contained syn match txr_numesc "\\[@oct]\+;\?" contained syn match txr_regesc "\\[@chesc/sSdDwW()\|.*?+~&%\[\]\-]" contained -syn match txr_error "#[^HSR]"@(if txr-p " contained") +syn match tl_error "#[^HSRTN]"@(if txr-p " contained") syn match txr_chr "#\\x[@hex]\+"@(if txr-p " contained") syn match txr_chr "#\\o[@oct]\+"@(if txr-p " contained") @@ -119,64 +155,86 @@ syn match txr_ncomment ";.*"@(if txr-p " contained") syn match txr_hashbang "\%^#!.*" +syn match txr_qat "@at" nextgroup=@{txr-qelem} contained syn match txr_dot "\." contained syn match txr_ident "[@alnum@glyph]*[@alpha@glyph^][@alnum@glyph^]*" contained -syn match tl_ident "[:@@][@alnum@glyph^/]\+"@(if txr-p " contained") -syn match txr_braced_ident "[:][@alnum@glyph^/]\+" contained -syn match tl_ident "[@alnum@glyph/]\+[@alnum@glyph^/#]*"@(if txr-p " contained") -syn match txr_pnum "#[xob][+\-]\?[@alnum]\+" contains=txr_xnum,txr_bnum,txr_onum@(if txr-p " contained") -syn match txr_xnum "#x[+\-]\?[@hex]\+" containedin=txr_pnum contained -syn match txr_onum "#o[+\-]\?[@oct]\+" containedin=txr_pnum contained -syn match txr_bnum "#b[+\-]\?[01]\+" containedin=txr_pnum contained -syn match txr_num "[+\-]\?[@dig]\+\([^@alnum@glyph^/#]\|\n\)"me=e-1@(if txr-p " contained") -syn match txr_badnum "[+\-]\?[@dig]*[.][@dig]\+\([eE][+\-]\?[@dig]\+\)\?[@alpha@glyph^/#]\+"@(if txr-p " contained") -syn match txr_num "[+\-]\?[@dig]*[.][@dig]\+\([eE][+\-]\?[@dig]\+\)\?\([^@alnum@glyph^/#]\|\n\)"me=e-1@(if txr-p " contained") -syn match txr_num "[+\-]\?[@dig]\+\([eE][+\-]\?[@dig]\+\)\([^@alnum@glyph^/#]\|\n\)"me=e-1@(if txr-p " contained") -syn match tl_ident ":"@(if txr-p " contained") +syn match txr_braced_ident "\(#\?:\)\?[[@alnum@glyph^/]\+" contained +syn match tl_ident "\(#\?:\)\?[@alnum@glyph/]\+[@alnum@glyph^/#]*"@(if txr-p " contained") +syn match txr_pnum "#[xob][+\-]\?[@alnum,]\+" contains=txr_xnum,txr_bnum,txr_onum@(if txr-p " contained") +syn match txr_xnum "#x[+\-]\?@hexsep" containedin=txr_pnum contained +syn match txr_onum "#o[+\-]\?@octsep" containedin=txr_pnum contained +syn match txr_bnum "#b[+\-]\?@binsep" containedin=txr_pnum contained +syn match txr_num "[+\-]\?@digsep"@(if txr-p " contained") +syn match txr_num "[+\-]\?@digsep\?[.]@digsep\([eE][+\-]\?[@dig]\+\)\?"@(if txr-p " contained") +syn match txr_num "[+\-]\?@digsep[.]\?\([eE][+\-]\?[@dig]\+\)"@(if txr-p " contained") +syn match txr_badnum "[+\-]\?@digsep\?[.]@digsep\([@{alpha-noe}@glyph^/#]\|[eE][^+\-@dig]\|[eE][+/-]\?$\|[eE][+\-][^0-9]\)"@(if txr-p " contained") +syn match txr_badnum "[+\-]\?@digsep[.]\?\([@{alpha-noe}@glyph^/#]\|[eE][^+\-@dig]\|[eE][+/-]\?$\|[eE][+\-][^0-9]\)"@(if txr-p " contained") +syn match tl_ident "#\?:"@(if txr-p " contained") syn match tl_splice "[ \t,]\|,[*]"@(if txr-p " contained") syn match txr_unquote "," contained syn match txr_splice ",\*" contained -syn match txr_quote "'" contained -syn match txr_quote "\^" contained +syn match txr_quote "'"@(if txr-p " contained") +syn match txr_quote "\^"@(if txr-p " contained") syn match txr_dotdot "\.\." contained -syn match txr_metaat "@@" contained -syn match txr_circ "#[0-9]\+[#=]" +syn match txr_metaat "@@"@(if txr-p " contained") syn match txr_buf_error "[^']" contained syn match txr_buf_interior "\([@hex][\n\t ]*[@hex]\|[\n\t ]\+\)" contained -syn region txr_bracevar matchgroup=Delimiter start="@@[ \t]*[*]\?{" matchgroup=Delimiter end="}" contains=txr_num,txr_pnum,tl_ident,tl_splice,tl_metanum,txr_metaat,txr_circ,txr_braced_ident,txr_dot,txr_dotdot,txr_string,txr_list,txr_bracket,txr_mlist,txr_mbracket,txr_regex,txr_quasilit,txr_chr,txr_nested_error -@ (end) +syn region txr_bracevar contained matchgroup=Delimiter start="[*]\?{" matchgroup=Delimiter end="}" contains=@bvar +syn region txr_qbracevar contained matchgroup=Delimiter start="[*]\?{" matchgroup=Delimiter end="}" contains=@bvar @ (if txr-p) -@ (output :continue out) -syn region txr_directive matchgroup=Delimiter start="@@[ \t]*(" matchgroup=Delimiter end=")" contains=txr_keyword,txr_string,txr_list,txr_bracket,txr_mlist,txr_mbracket,txr_quasilit,txr_num,txr_pnum,txr_badnum,tl_ident,tl_regex,txr_string,txr_chr,txr_quote,txr_unquote,txr_splice,txr_dot,txr_dotdot,txr_metaat,txr_circ,txr_ncomment,txr_nested_error -@ (end) +syn region txr_directive contained matchgroup=Delimiter start="(" matchgroup=Delimiter end=")" contains=@dir @ (end) -@ (output :continue out) -syn region txr_list @(if txr-p "contained ")matchgroup=Delimiter start="\(#[HSR]\?\)\?(" matchgroup=Delimiter end=")" contains=tl_keyword,txr_string,tl_regex,txr_num,txr_pnum,txr_badnum,tl_ident,txr_metanum,txr_ign_par,txr_ign_bkt,txr_list,txr_bracket,txr_mlist,txr_mbracket,txr_quasilit,txr_chr,txr_buf,txr_quote,txr_unquote,txr_splice,txr_dot,txr_dotdot,txr_metaat,txr_circ,txr_ncomment,txr_nested_error -syn region txr_bracket @(if txr-p "contained ")matchgroup=Delimiter start="\[" matchgroup=Delimiter end="\]" contains=tl_keyword,txr_string,tl_regex,txr_num,txr_pnum,txr_badnum,tl_ident,txr_metanum,txr_ign_par,txr_ign_bkt,txr_list,txr_bracket,txr_mlist,txr_mbracket,txr_quasilit,txr_chr,txr_buf,txr_quote,txr_unquote,txr_splice,txr_dot,txr_dotdot,txr_metaat,txr_circ,txr_ncomment,txr_nested_error -syn region txr_mlist @(if txr-p "contained ")matchgroup=Delimiter start="@@[ \t^',]*(" matchgroup=Delimiter end=")" contains=tl_keyword,txr_string,tl_regex,txr_num,txr_pnum,txr_badnum,tl_ident,txr_metanum,txr_ign_par,txr_ign_bkt,txr_list,txr_bracket,txr_mlist,txr_mbracket,txr_quasilit,txr_chr,txr_buf,txr_quote,txr_unquote,txr_splice,txr_dot,txr_dotdot,txr_metaat,txr_circ,txr_ncomment,txr_nested_error -syn region txr_mbracket matchgroup=Delimiter start="@@[ \t^',]*\[" matchgroup=Delimiter end="\]" contains=tl_keyword,txr_string,tl_regex,txr_num,txr_pnum,txr_badnum,tl_ident,txr_metanum,txr_ign_par,txr_ign_bkt,txr_list,txr_bracket,txr_mlist,txr_mbracket,txr_quasilit,txr_chr,txr_buf,txr_quote,txr_unquote,txr_splice,txr_dot,txr_dotdot,txr_metaat,txr_circ,txr_ncomment,txr_nested_error -syn region txr_string @(if txr-p "contained ")start=+#\?\*\?"+ end=+["\n]+ contains=txr_stresc,txr_numesc,txr_badesc -syn region txr_quasilit @(if txr-p "contained ")start=+#\?\*\?`+ end=+[`\n]+ contains=txr_splicevar,txr_metanum,txr_bracevar,txr_mlist,txr_mbracket,txr_escat,txr_stresc,txr_numesc,txr_badesc -syn region txr_regex @(if txr-p "contained ")start="/" end="[/\n]" contains=txr_regesc,txr_numesc,txr_badesc -syn region tl_regex @(if txr-p "contained ")start="#/" end="[/\n]" contains=txr_regesc,txr_numesc,txr_badesc +syn region txr_list @(if txr-p "contained ")matchgroup=Delimiter start="\(#[HSRTN]\?\)\?(" matchgroup=Delimiter end=")" contains=@list +syn region txr_bracket @(if txr-p "contained ")matchgroup=Delimiter start="\[" matchgroup=Delimiter end="\]" contains=@list +syn region txr_string @(if txr-p "contained ")start=+#\?\*\?"+ skip=+\\\n+ end=+["\n]+ contains=txr_stresc,txr_numesc,txr_badesc +syn region txr_quasilit @(if txr-p "contained ")start=+#\?\*\?`+ skip=+\\\n+ end=+[`\n]+ contains=txr_qat,txr_stresc,txr_numesc,txr_badesc +syn region txr_regex @(if txr-p "contained ")start="/" skip=+\\\n+ end="[/\n]" contains=txr_regesc,txr_numesc,txr_badesc +syn region tl_regex @(if txr-p "contained ")start="#/" skip=+\\\n+ end="[/\n]" contains=txr_regesc,txr_numesc,txr_badesc syn region txr_buf @(if txr-p "contained ")matchgroup=txr_buf start="#b'" end="'" contains=txr_buf_interior,txr_buf_error -syn region txr_ign_par @(if txr-p "contained ")matchgroup=Comment start="#;[ \t',]*\(#[HSR]\?\)\?(" matchgroup=Comment end=")" contains=txr_ign_par_interior,txr_ign_bkt_interior -syn region txr_ign_bkt @(if txr-p "contained ")matchgroup=Comment start="#;[ \t',]*\(#[HSR]\?\)\?\[" matchgroup=Comment end="\]" contains=txr_ign_par_interior,txr_ign_bkt_interior -syn region txr_ign_par_interior contained matchgroup=Comment start="(" matchgroup=Comment end=")" contains=txr_ign_par_interior,txr_ign_bkt_interior -syn region txr_ign_bkt_interior contained matchgroup=Comment start="\[" matchgroup=Comment end="\]" contains=txr_ign_par_interior,txr_ign_bkt_interior +syn region txr_ign @(if txr-p "contained ")matchgroup=Comment start="#;" end="[ \(\)\[\]]"me=e contains=@list +syn region txr_ign @(if txr-p "contained ")matchgroup=Comment start="#;[ \t',^@@]*\(#[HSRTN]\?\)\?(" matchgroup=Comment end=")" contains=txr_ign_interior +syn region txr_ign @(if txr-p "contained ")matchgroup=Comment start="#;[ \t',^@@]*\(#[HSRTNJ]\?\)\?\[" matchgroup=Comment end="\]" contains=txr_ign_interior +syn region txr_ign_json @(if txr-p "contained ")matchgroup=Comment start="#;[ \t',^@@]*#J[~^]*{" matchgroup=Comment end="}" contains=txr_ign_interior +syn region txr_ign_json @(if txr-p "contained ")matchgroup=Comment start="#;[ \t',^@@]*#J[~^]*\[" matchgroup=Comment end="\]" contains=txr_ign_interior +syn region txr_ign_json @(if txr-p "contained ")matchgroup=Comment start="#;[ \t',^@@]*#J[~^]*(" matchgroup=Comment end=")" contains=txr_ign_interior +syn region txr_ign_interior contained matchgroup=Comment start="(" matchgroup=Comment end=")" contains=txr_ign_interior +syn region txr_ign_interior contained matchgroup=Comment start="\[" matchgroup=Comment end="\]" contains=txr_ign_interior +syn region txr_ign_interior contained matchgroup=Comment start="{" matchgroup=Comment end="}" contains=txr_ign_interior + +syn match txr_jerr "@jerr" contained +syn match txr_jpunc "@jpunc" contained +syn match txr_jesc "@jesc" contained +syn match txr_juesc "@juesc" contained +syn match txr_jnum "@jnum" contained +syn match txr_jkeyword "@(join-with "\\|" . jsonkw)" contained + +syn region txr_jatom @(if txr-p "contained ")matchgroup=Delimiter start="#J\^\?@ws*"rs=e end="@ws\|[\])}]"re=e-1 contains=@jlist +syn region txr_junqtok contained matchgroup=Delimiter start="\~" end="[ \(\)\[\]{}]"re=s contains=@list +syn region txr_junqlist contained matchgroup=Delimiter start="\~\*\?#\?(" end=")" contains=@list +syn region txr_junqbkt contained matchgroup=Delimiter start="\~\*\?\[" end="\]" contains=@list +syn region txr_jstring contained matchgroup=Delimiter start=+"+ end=+["\n]+ contains=txr_jesc,txr_juesc,txr_badesc +syn region txr_jarray @(if txr-p "contained ")matchgroup=Delimiter start="#J\^\?@ws*\[" matchgroup=Delimiter end="\]" contains=@jlist +syn region txr_jhash @(if txr-p "contained ")matchgroup=Delimiter start="#J\^\?@ws*{" matchgroup=Delimiter end="}" contains=@jlist +syn region txr_jarray_in contained matchgroup=Delimiter start="\[" end="\]" contains=@jlist +syn region txr_jhash_in contained matchgroup=Delimiter start="{" end="}" contains=@jlist + +syn match txr_circ "#[0-9]\+[#=]" contained hi def link txr_at Special hi def link txr_atstar Special hi def link txr_atat Special +hi def link txr_qat Special hi def link txr_comment Comment hi def link txr_ncomment Comment hi def link txr_hashbang Preproc hi def link txr_contin Preproc hi def link txr_char String +@ (if txr-p) hi def link txr_keyword Keyword +@ (end) hi def link tl_keyword Type hi def link txr_string String hi def link txr_chr String @@ -210,14 +268,22 @@ hi def link txr_circ Special hi def link txr_munqspl Special hi def link tl_splice Special hi def link txr_error Error +hi def link tl_error Error hi def link txr_nested_error Error hi def link txr_buf String hi def link txr_buf_interior String hi def link txr_buf_error Error -hi def link txr_ign_par Comment -hi def link txr_ign_bkt_interior Comment -hi def link txr_ign_par_interior Comment -hi def link txr_ign_bkt Comment +hi def link txr_ign_interior Comment +hi def link txr_ign Comment +hi def link txr_ign_json Comment + +hi def link txr_jkeyword Type +hi def link txr_jnum Number +hi def link txr_jstring String +hi def link txr_jesc Special +hi def link txr_juesc Special +hi def link txr_jpunc Special +hi def link txr_jerr Error let b:current_syntax = "lisp" |