add syntax

1 files changed, 156 insertions, 0 deletions

diff --git a/syntax/pir.vim b/syntax/pir.vim
new file mode 100644
index 0000000..338cc81
--- /dev/null
+++ b/syntax/pir.vim
@@ -0,0 +1,156 @@
+" Vim syntax file
+" Language:	Parrot IMCC
+" Maintainer:	Luke Palmer <fibonaci@babylonia.flatirons.org>
+" Modified: Joshua Isom
+" Last Change:	Jan 6 2006
+
+" For installation please read:
+" :he filetypes
+" :he syntax
+"
+" For version 5.x: Clear all syntax items
+" For version 6.x: Quit when a syntax file was already loaded
+"
+if version < 600
+  syntax clear
+elseif exists("b:current_syntax")
+  finish
+endif
+
+syntax clear
+
+syn include @Pod syntax/pod.vim
+syn region pirPod start="^=[a-z]" end="^=cut" keepend contains=@Pod
+
+syn keyword pirType int float num string pmc
+syn match   pirPMC  /\.\(Compiler\|Continuation\|Coroutine\|CSub\|NCI\|Eval\|Sub\|Scratchpad\)/
+syn match   pirPMC  /\.\(BigInt\|Boolean\|Complex\|Float\|Integer\|PMC\|String\|Hash\)/
+syn match   pirPMC  /\.\(Fixed\|Resizable\)\(Boolean\|Float\|Integer\|PMC\|String\)Array/
+syn match   pirPMC  /\.\(IntList\|Iterator\|Key\|ManagedStruct\|UnManagedStruct\|Pointer\)/
+syn match   pirPMC  /\.\(FloatVal\|Multi\|S\|String\)\?Array/
+syn match   pirPMC  /\.Perl\(Array\|Env\|Hash\|Int\|Num\|Scalar\|String\|Undef\)/
+syn match   pirPMC  /\.Parrot\(Class\|Interpreter\|IO\|Library\|Object\|Thread\)/
+syn keyword pirPMC self
+
+syn keyword pirOp   goto if unless global addr
+
+syn match pirDirective  /\.\(sub\|endm\|pcc_sub\|macro\|end\|emit\|eom\)/
+syn match pirDirective  /\.\(local\|sym\|const\|lex\|global\|globalconst\)/
+syn match pirDirective  /\.\(endnamespace\|namespace\)/
+syn match pirDirective  /\.\(param\|arg\|return\|yield\)/
+syn match pirDirective  /\.\(pragma\|HLL_map\|HLL\|include\|loadlib\)/
+syn match pirDirective  /\.\(pcc_begin\|pcc_call\|pcc_end\|invocant\|meth_call\|nci_call\)/
+syn match pirDirective  /\.\(pcc_begin_return\|pcc_end_return\)/
+syn match pirDirective  /\.\(pcc_begin_yield\|pcc_end_yield\)/
+
+syn match pirDirective  /:\(main\|method\|load\|anon\|multi\|immediate\|outer\|lex\)/
+syn match pirDirective  /:\(flat\|slurpy\|optional\|opt_flag\|named\)/
+
+" Macro invocation
+syn match pirDirective  /\.\I\i*(/he=e-1
+
+
+" pirWord before pirRegister
+" FIXME :: in identifiers and labels
+syn match pirWord           /[A-Za-z_][A-Za-z0-9_]*/
+syn match pirComment        /#.*/
+syn match pirLabel          /[A-Za-z0-9_]\+:/he=e-1
+syn match pirRegister       /[INPS]\([12][0-9]\|3[01]\|[0-9]\)/
+syn match pirDollarRegister /\$[INPS][0-9]\+/
+
+syn match pirNumber         /[+-]\?[0-9]\+\(\.[0-9]*\([Ee][+-]\?[0-9]\+\)\?\)\?/
+syn match pirNumber         /0[xX][0-9a-fA-F]\+/
+syn match pirNumber         /0[oO][0-7]\+/
+syn match pirNumber         /0[bB][01]\+/
+
+syn region pirString start=/"/ skip=/\\"/ end=/"/ contains=pirStringSpecial
+syn region pirString start=/<<"\z(\I\i*\)"/ end=/^\z1$/ contains=pirStringSpecial
+syn region pirString start=/<<'\z(\I\i*\)'/ end=/^\z1$/
+syn region pirString start=/'/ end=/'/
+syn match  pirStringSpecial "\\\([abtnvfre\\"]\|\o\{1,3\}\|x{\x\{1,8\}}\|x\x\{1,2\}\|u\x\{4\}\|U\x\{8\}\|c[A-Z]\)" contained
+
+" Define the default highlighting.
+" For version 5.7 and earlier: only when not done already
+" For version 5.8 and later: only when an item doesn't have highlighting yet
+if version >= 508 || !exists("did_pasm_syntax_inits")
+  if version < 508
+    let did_pasm_syntax_inits = 1
+    command -nargs=+ HiLink hi link <args>
+  else
+    command -nargs=+ HiLink hi def link <args>
+  endif
+
+  HiLink pirPod             Comment
+  HiLink pirWord            Normal
+  HiLink pirComment         Comment
+  HiLink pirLabel           Label
+  HiLink pirRegister        Identifier
+  HiLink pirDollarRegister  Identifier
+  HiLink pirType            Type
+  HiLink pirPMC             Type
+  HiLink pirString          String
+  HiLink pirStringSpecial   Special
+  HiLink pirNumber          Number
+  HiLink pirDirective       Macro
+  HiLink pirOp              Conditional
+
+  delcommand HiLink
+endif
+
+let b:current_syntax = "pir"
+
+" Ops -- dynamically generated from ops2vim.pl
+syn keyword pirOp band bands bnot n_bnot bnots n_bnots bor bors shl shr
+syn keyword pirOp lsr rot bxor bxors eq eq_str eq_num eq_addr ne ne_str
+syn keyword pirOp ne_num ne_addr lt lt_str lt_num le le_str le_num gt
+syn keyword pirOp gt_str gt_num ge ge_str ge_num cmp cmp_str cmp_num and
+syn keyword pirOp not n_not or xor issame isntsame istrue isfalse isgt
+syn keyword pirOp isge isle islt iseq isne if_null unless_null end noop
+syn keyword pirOp cpu_ret check_events check_events__ wrapper__
+syn keyword pirOp prederef__ reserved load_bytecode branch branch_cs bsr
+syn keyword pirOp ret jsr jump enternative if unless invokecc invoke
+syn keyword pirOp yield tailcall returncc newclosure set_args get_results
+syn keyword pirOp get_params set_returns result_info set_addr get_addr
+syn keyword pirOp push_eh clear_eh throw rethrow die exit pushmark
+syn keyword pirOp popmark pushaction debug bounds profile trace gc_debug
+syn keyword pirOp interpinfo warningson warningsoff errorson errorsoff
+syn keyword pirOp runinterp getinterp sweep collect sweepoff sweepon
+syn keyword pirOp collectoff collecton needs_destroy loadlib dlfunc dlvar
+syn keyword pirOp compile compreg new_callback debug_init debug_load
+syn keyword pirOp debug_break debug_print backtrace getline getfile
+syn keyword pirOp print_newline gcd splice slice iter morph exec
+syn keyword pirOp classname trap pow getclass new instantiate pmcinfo
+syn keyword pirOp add_io_event need_finalize close fdopen getfd getstdin
+syn keyword pirOp getstdout getstderr setstdout setstderr pioctl open
+syn keyword pirOp print printerr read readline peek stat seek tell socket
+syn keyword pirOp sockaddr connect recv send poll bind listen accept
+syn keyword pirOp infix n_infix abs n_abs add cmod dec div fdiv ceil
+syn keyword pirOp floor inc mod mul neg n_neg sub sqrt acos asec asin
+syn keyword pirOp atan cos cosh exp ln log10 log2 sec sech sin sinh tan
+syn keyword pirOp tanh lcm fact callmethodcc callmethod tailcallmethod
+syn keyword pirOp DELETED_fetchmethod addmethod can does isa newclass
+syn keyword pirOp subclass singleton class addparent removeparent
+syn keyword pirOp addattribute removeattribute getattribute setattribute
+syn keyword pirOp classoffset adddoes removedoes covers exsec hav vers
+syn keyword pirOp pic_infix__ pic_inline_sub__ pic_get_params__
+syn keyword pirOp pic_set_returns__ pic_callr__ typeof find_type
+syn keyword pirOp valid_type get_repr find_method defined exists delete
+syn keyword pirOp elements push pop unshift shift setprop getprop delprop
+syn keyword pirOp prophash freeze thaw mmdvtregister mmdvtfind register
+syn keyword pirOp unregister hash get_mro clone exchange set assign
+syn keyword pirOp setref deref setp_ind setn_ind sets_ind seti_ind null
+syn keyword pirOp cleari clearn clears clearp saveall restoreall
+syn keyword pirOp entrytype depth lookback save savec restore rotate_up
+syn keyword pirOp stm_start stm_validate stm_commit stm_wait stm_abort
+syn keyword pirOp stm_depth ord chr chopn concat repeat length bytelength
+syn keyword pirOp pin unpin substr substr_r index sprintf find_encoding
+syn keyword pirOp stringinfo upcase downcase titlecase join split charset
+syn keyword pirOp charsetname find_charset trans_charset encoding
+syn keyword pirOp encodingname trans_encoding is_cclass find_cclass
+syn keyword pirOp find_not_cclass escape compose spawnw err time gmtime
+syn keyword pirOp localtime decodetime decodelocaltime sysinfo sleep
+syn keyword pirOp sizeof store_lex find_lex get_namespace
+syn keyword pirOp get_hll_namespace get_root_namespace get_global
+syn keyword pirOp get_hll_global get_root_global set_global
+syn keyword pirOp set_hll_global set_root_global store_global find_global
+syn keyword pirOp find_name