runtime/syntax/mf.vim

   1 " Vim syntax file
   2 " Language:     Metafont
   3 " Maintainer:   Andreas Scherer <andreas.scherer@pobox.com>
   4 " Last Change:  April 25, 2001
   5
   6 " For version 5.x: Clear all syntax items
   7 " For version 6.x: Quit when a syntax file was already loaded
   8 if version < 600
   9   syn clear
  10 elseif exists("b:current_syntax")
  11   finish
  12 endif
  13
  14 " Metafont 'primitives' as defined in chapter 25 of 'The METAFONTbook'
  15 " Page 210: 'boolean expressions'
  16 syn keyword mfBoolExp true false known unknown odd charexists not and or
  17
  18 " Page 210: 'numeric expression'
  19 syn keyword mfNumExp normaldeviate length ASCII oct hex angle turningnumber
  20 syn keyword mfNumExp totalweight directiontime xpart ypart xxpart xypart
  21 syn keyword mfNumExp yxpart yypart sqrt sind cosd mlog mexp floor
  22 syn keyword mfNumExp uniformdeviate
  23
  24 " Page 211: 'internal quantities'
  25 syn keyword mfInternal tracingtitles tracingequations tracingcapsules
  26 syn keyword mfInternal tracingchoices tracingspecs tracingpens
  27 syn keyword mfInternal tracingcommands tracingrestores tracingmacros
  28 syn keyword mfInternal tracingedges tracingoutput tracingonline tracingstats
  29 syn keyword mfInternal pausing showstopping fontmaking proofing
  30 syn keyword mfInternal turningcheck warningcheck smoothing autorounding
  31 syn keyword mfInternal granularity fillin year month day time
  32 syn keyword mfInternal charcode charext charwd charht chardp charic
  33 syn keyword mfInternal chardx chardy designsize hppp vppp xoffset yoffset
  34 syn keyword mfInternal boundarychar
  35
  36 " Page 212: 'pair expressions'
  37 syn keyword mfPairExp point of precontrol postcontrol penoffset rotated
  38 syn keyword mfPairExp scaled shifted slanted transformed xscaled yscaled
  39 syn keyword mfPairExp zscaled
  40
  41 " Page 213: 'path expressions'
  42 syn keyword mfPathExp makepath reverse subpath curl tension atleast
  43 syn keyword mfPathExp controls cycle
  44
  45 " Page 214: 'pen expressions'
  46 syn keyword mfPenExp nullpen pencircle makepen
  47
  48 " Page 214: 'picutre expressions'
  49 syn keyword mfPicExp nullpicture
  50
  51 " Page 214: 'string expressions'
  52 syn keyword mfStringExp jobname readstring str char decimal substring
  53
  54 " Page 217: 'commands and statements'
  55 syn keyword mfCommand end dump save interim newinternal randomseed let
  56 syn keyword mfCommand delimiters outer everyjob show showvariable showtoken
  57 syn keyword mfCommand showdependencies showstats message errmessage errhelp
  58 syn keyword mfCommand batchmode nonstopmode scrollmode errorstopmode
  59 syn keyword mfCommand addto also contour doublepath withpen withweight cull
  60 syn keyword mfCommand keeping dropping display inwindow openwindow at from to
  61 syn keyword mfCommand shipout special numspecial
  62
  63 " Page 56: 'types'
  64 syn keyword mfType boolean numeric pair path pen picture string transform
  65
  66 " Page 155: 'grouping'
  67 syn keyword mfStatement begingroup endgroup
  68
  69 " Page 165: 'definitions'
  70 syn keyword mfDefinition enddef def expr suffix text primary secondary
  71 syn keyword mfDefinition tertiary vardef primarydef secondarydef tertiarydef
  72
  73 " Page 169: 'conditions and loops'
  74 syn keyword mfCondition if fi else elseif endfor for forsuffixes forever
  75 syn keyword mfCondition step until exitif
  76
  77 " Other primitives listed in the index
  78 syn keyword mfPrimitive charlist endinput expandafter extensible
  79 syn keyword mfPrimitive fontdimen headerbyte inner input intersectiontimes
  80 syn keyword mfPrimitive kern ligtable quote scantokens skipto
  81
  82 " Keywords defined by plain.mf (defined on pp.262-278)
  83 if !exists("plain_mf_macros")
  84   let plain_mf_macros = 1 " Set this to '0' if your source gets too colourful
  85                           " metapost.vim does so to turn off Metafont macros
  86 endif
  87 if plain_mf_macros
  88   syn keyword mfMacro abs addto_currentpicture aspect_ratio base_name
  89   syn keyword mfMacro base_version beginchar blacker blankpicture bot bye byte
  90   syn keyword mfMacro capsule_def ceiling change_width clear_pen_memory clearit
  91   syn keyword mfMacro clearpen clearxy counterclockwise culldraw cullit
  92   syn keyword mfMacro currentpen currentpen_path currentpicture
  93   syn keyword mfMacro currenttransform currentwindow cutdraw cutoff d decr
  94   syn keyword mfMacro define_blacker_pixels define_corrected_pixels
  95   syn keyword mfMacro define_good_x_pixels define_good_y_pixels
  96   syn keyword mfMacro define_horizontal_corrected_pixels define_pixels
  97   syn keyword mfMacro define_whole_blacker_pixels define_whole_pixels
  98   syn keyword mfMacro define_whole_vertical_blacker_pixels
  99   syn keyword mfMacro define_whole_vertical_pixels dir direction directionpoint
 100   syn keyword mfMacro displaying ditto div dotprod down downto draw drawdot
 101   syn keyword mfMacro endchar eps epsilon extra_beginchar extra_endchar
 102   syn keyword mfMacro extra_setup erase exitunless fill filldraw fix_units flex
 103   syn keyword mfMacro font_coding_scheme font_extra_space font_identifier
 104   syn keyword mfMacro font_normal_shrink font_normal_space font_normal_stretch
 105   syn keyword mfMacro font_quad font_setup font_size font_slant font_x_height
 106   syn keyword mfMacro fullcircle generate gfcorners gobble gobbled grayfont h
 107   syn keyword mfMacro halfcircle hide hround identity image_rules incr infinity
 108   syn keyword mfMacro interact interpath intersectionpoint inverse italcorr
 109   syn keyword mfMacro join_radius killtext labelfont labels left lft localfont
 110   syn keyword mfMacro loggingall lowres lowres_fix mag magstep makebox makegrid
 111   syn keyword mfMacro makelabel maketicks max min mod mode mode_def mode_name
 112   syn keyword mfMacro mode_setup nodisplays notransforms number_of_modes numtok
 113   syn keyword mfMacro o_correction openit origin pen_bot pen_lft pen_rt pen_top
 114   syn keyword mfMacro penlabels penpos penrazor penspeck pensquare penstroke
 115   syn keyword mfMacro pickup pixels_per_inch proof proofoffset proofrule
 116   syn keyword mfMacro proofrulethickness quartercircle range reflectedabout
 117   syn keyword mfMacro relax right rotatedabout rotatedaround round rt rulepen
 118   syn keyword mfMacro savepen screenchars screen_rows screen_cols screenrule
 119   syn keyword mfMacro screenstrokes shipit showit slantfont smode smoke softjoin
 120   syn keyword mfMacro solve stop superellipse takepower tensepath titlefont
 121   syn keyword mfMacro tolerance top tracingall tracingnone undraw undrawdot
 122   syn keyword mfMacro unfill unfilldraw unitpixel unitsquare unitvector up upto
 123   syn keyword mfMacro vround w whatever
 124 endif
 125
 126 " Some other basic macro names, e.g., from cmbase, logo, etc.
 127 if !exists("other_mf_macros")
 128   let other_mf_macros = 1 " Set this to '0' if your code gets too colourful
 129                           " metapost.vim does so to turn off Metafont macros
 130 endif
 131 if other_mf_macros
 132   syn keyword mfMacro beginlogochar
 133 endif
 134
 135 " Numeric tokens
 136 syn match mfNumeric     "[-]\=\d\+"
 137 syn match mfNumeric     "[-]\=\.\d\+"
 138 syn match mfNumeric     "[-]\=\d\+\.\d\+"
 139
 140 " Metafont lengths
 141 syn match mfLength      "\<\(bp\|cc\|cm\|dd\|in\|mm\|pc\|pt\)\>"
 142 syn match mfLength      "\<[-]\=\d\+\(bp\|cc\|cm\|dd\|in\|mm\|pc\|pt\)\#\=\>"
 143 syn match mfLength      "\<[-]\=\.\d\+\(bp\|cc\|cm\|dd\|in\|mm\|pc\|pt\)\#\=\>"
 144 syn match mfLength      "\<[-]\=\d\+\.\d\+\(bp\|cc\|cm\|dd\|in\|mm\|pc\|pt\)\#\=\>"
 145
 146 " Metafont coordinates and points
 147 syn match mfCoord       "\<[xy]\d\+\>"
 148 syn match mfPoint       "\<z\d\+\>"
 149
 150 " String constants
 151 syn region mfString     start=+"+ end=+"+
 152
 153 " Comments:
 154 syn match mfComment     "%.*$"
 155
 156 " synchronizing
 157 syn sync maxlines=50
 158
 159 " Define the default highlighting
 160 " For version 5.7 and earlier: only when not done already
 161 " For version 5.8 and later: only when an item doesn't have highlighting yet
 162 if version >= 508 || !exists("did_mf_syntax_inits")
 163   if version < 508
 164     let did_mf_syntax_inits = 1
 165     command -nargs=+ HiLink hi link <args>
 166   else
 167     command -nargs=+ HiLink hi def link <args>
 168   endif
 169
 170   HiLink mfBoolExp      Statement
 171   HiLink mfNumExp       Statement
 172   HiLink mfInternal     Identifier
 173   HiLink mfPairExp      Statement
 174   HiLink mfPathExp      Statement
 175   HiLink mfPenExp       Statement
 176   HiLink mfPicExp       Statement
 177   HiLink mfStringExp    Statement
 178   HiLink mfCommand      Statement
 179   HiLink mfType Type
 180   HiLink mfStatement    Statement
 181   HiLink mfDefinition   Statement
 182   HiLink mfCondition    Conditional
 183   HiLink mfPrimitive    Statement
 184   HiLink mfMacro        Macro
 185   HiLink mfCoord        Identifier
 186   HiLink mfPoint        Identifier
 187   HiLink mfNumeric      Number
 188   HiLink mfLength       Number
 189   HiLink mfComment      Comment
 190   HiLink mfString       String
 191
 192   delcommand HiLink
 193 endif
 194
 195 let b:current_syntax = "mf"
 196
 197 " vim: ts=8