|
7
|
1 " Vim syntax file
|
|
|
2 " Language: MetaPost
|
|
|
3 " Maintainer: Andreas Scherer <andreas.scherer@pobox.com>
|
|
|
4 " Last Change: April 30, 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 let plain_mf_macros = 0 " plain.mf has no special meaning for MetaPost
|
|
|
15 let other_mf_macros = 0 " cmbase.mf, logo.mf, ... neither
|
|
|
16
|
|
|
17 " Read the Metafont syntax to start with
|
|
|
18 if version < 600
|
|
|
19 source <sfile>:p:h/mf.vim
|
|
|
20 else
|
|
|
21 runtime! syntax/mf.vim
|
|
|
22 endif
|
|
|
23
|
|
|
24 " MetaPost has TeX inserts for typeset labels
|
|
|
25 " verbatimtex, btex, and etex will be treated as keywords
|
|
|
26 syn match mpTeXbegin "\(verbatimtex\|btex\)"
|
|
|
27 syn match mpTeXend "etex"
|
|
|
28 syn region mpTeXinsert start="\(verbatimtex\|btex\)"hs=e+1 end="etex"he=s-1 contains=mpTeXbegin,mpTeXend keepend
|
|
|
29
|
|
|
30 " MetaPost primitives not found in Metafont
|
|
|
31 syn keyword mpInternal bluepart clip color dashed fontsize greenpart infont
|
|
|
32 syn keyword mpInternal linecap linejoin llcorner lrcorner miterlimit mpxbreak
|
|
|
33 syn keyword mpInternal prologues redpart setbounds tracinglostchars
|
|
|
34 syn keyword mpInternal truecorners ulcorner urcorner withcolor
|
|
|
35
|
|
|
36 " Metafont primitives not found in MetaPost
|
|
|
37 syn keyword notDefined autorounding chardx chardy fillin granularity hppp
|
|
|
38 syn keyword notDefined proofing smoothing tracingedges tracingpens
|
|
|
39 syn keyword notDefined turningcheck vppp xoffset yoffset
|
|
|
40
|
|
|
41 " Keywords defined by plain.mp
|
|
|
42 if !exists("plain_mp_macros")
|
|
|
43 let plain_mp_macros = 1 " Set this to '0' if your source gets too colourful
|
|
|
44 endif
|
|
|
45 if plain_mp_macros
|
|
|
46 syn keyword mpMacro ahangle ahlength background bbox bboxmargin beginfig
|
|
|
47 syn keyword mpMacro beveled black blue buildcycle butt center cutafter
|
|
|
48 syn keyword mpMacro cutbefore cuttings dashpattern defaultfont defaultpen
|
|
|
49 syn keyword mpMacro defaultscale dotlabel dotlabels drawarrow drawdblarrow
|
|
|
50 syn keyword mpMacro drawoptions endfig evenly extra_beginfig extra_endfig
|
|
|
51 syn keyword mpMacro green label labeloffset mitered red rounded squared
|
|
|
52 syn keyword mpMacro thelabel white base_name base_version
|
|
|
53 syn keyword mpMacro upto downto exitunless relax gobble gobbled
|
|
|
54 syn keyword mpMacro interact loggingall tracingall tracingnone
|
|
|
55 syn keyword mpMacro eps epsilon infinity right left up down origin
|
|
|
56 syn keyword mpMacro quartercircle halfcircle fullcircle unitsquare identity
|
|
|
57 syn keyword mpMacro blankpicture withdots ditto EOF pensquare penrazor
|
|
|
58 syn keyword mpMacro penspeck whatever abs round ceiling byte dir unitvector
|
|
|
59 syn keyword mpMacro inverse counterclockwise tensepath mod div dotprod
|
|
|
60 syn keyword mpMacro takepower direction directionpoint intersectionpoint
|
|
|
61 syn keyword mpMacro softjoin incr decr reflectedabout rotatedaround
|
|
|
62 syn keyword mpMacro rotatedabout min max flex superellipse interpath
|
|
|
63 syn keyword mpMacro magstep currentpen currentpen_path currentpicture
|
|
|
64 syn keyword mpMacro fill draw filldraw drawdot unfill undraw unfilldraw
|
|
|
65 syn keyword mpMacro undrawdot erase cutdraw image pickup numeric_pickup
|
|
|
66 syn keyword mpMacro pen_lft pen_rt pen_top pen_bot savepen clearpen
|
|
|
67 syn keyword mpMacro clear_pen_memory lft rt top bot ulft urt llft lrt
|
|
|
68 syn keyword mpMacro penpos penstroke arrowhead makelabel labels penlabel
|
|
|
69 syn keyword mpMacro range numtok thru clearxy clearit clearpen pickup
|
|
|
70 syn keyword mpMacro shipit bye hide stop solve
|
|
|
71 endif
|
|
|
72
|
|
|
73 " Keywords defined by mfplain.mp
|
|
|
74 if !exists("mfplain_mp_macros")
|
|
|
75 let mfplain_mp_macros = 0 " Set this to '1' to include these macro names
|
|
|
76 endif
|
|
|
77 if mfplain_mp_macros
|
|
|
78 syn keyword mpMacro beginchar blacker capsule_def change_width
|
|
|
79 syn keyword mpMacro define_blacker_pixels define_corrected_pixels
|
|
|
80 syn keyword mpMacro define_good_x_pixels define_good_y_pixels
|
|
|
81 syn keyword mpMacro define_horizontal_corrected_pixels
|
|
|
82 syn keyword mpMacro define_pixels define_whole_blacker_pixels
|
|
|
83 syn keyword mpMacro define_whole_vertical_blacker_pixels
|
|
|
84 syn keyword mpMacro define_whole_vertical_pixels endchar
|
|
|
85 syn keyword mpMacro extra_beginchar extra_endchar extra_setup
|
|
|
86 syn keyword mpMacro font_coding_scheme font_extra_space font_identifier
|
|
|
87 syn keyword mpMacro font_normal_shrink font_normal_space
|
|
|
88 syn keyword mpMacro font_normal_stretch font_quad font_size
|
|
|
89 syn keyword mpMacro font_slant font_x_height italcorr labelfont
|
|
|
90 syn keyword mpMacro makebox makegrid maketicks mode_def mode_setup
|
|
|
91 syn keyword mpMacro o_correction proofrule proofrulethickness rulepen smode
|
|
|
92
|
|
|
93 " plus some no-ops, also from mfplain.mp
|
|
|
94 syn keyword mpMacro cullit currenttransform gfcorners grayfont hround
|
|
|
95 syn keyword mpMacro imagerules lowres_fix nodisplays notransforms openit
|
|
|
96 syn keyword mpMacro proofoffset screenchars screenrule screenstrokes
|
|
|
97 syn keyword mpMacro showit slantfont titlefont unitpixel vround
|
|
|
98 endif
|
|
|
99
|
|
|
100 " Keywords defined by other macro packages, e.g., boxes.mp
|
|
|
101 if !exists("other_mp_macros")
|
|
|
102 let other_mp_macros = 1 " Set this to '0' if your source gets too colourful
|
|
|
103 endif
|
|
|
104 if other_mp_macros
|
|
|
105 syn keyword mpMacro circmargin defaultdx defaultdy
|
|
|
106 syn keyword mpMacro boxit boxjoin bpath circleit drawboxed drawboxes
|
|
|
107 syn keyword mpMacro drawunboxed fixpos fixsize pic
|
|
|
108 endif
|
|
|
109
|
|
|
110 " Define the default highlighting
|
|
|
111 " For version 5.7 and earlier: only when not done already
|
|
|
112 " For version 5.8 and later: only when an item doesn't have highlighting yet
|
|
|
113 if version >= 508 || !exists("did_mp_syntax_inits")
|
|
|
114 if version < 508
|
|
|
115 let did_mp_syntax_inits = 1
|
|
|
116 command -nargs=+ HiLink hi link <args>
|
|
|
117 else
|
|
|
118 command -nargs=+ HiLink hi def link <args>
|
|
|
119 endif
|
|
|
120
|
|
|
121 HiLink mpTeXinsert String
|
|
|
122 HiLink mpTeXbegin Statement
|
|
|
123 HiLink mpTeXend Statement
|
|
|
124 HiLink mpInternal mfInternal
|
|
|
125 HiLink mpMacro Macro
|
|
|
126
|
|
|
127 delcommand HiLink
|
|
|
128 endif
|
|
|
129
|
|
|
130 let b:current_syntax = "mp"
|
|
|
131
|
|
|
132 " vim: ts=8
|
