Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Add MetaPost support #2095

Open
wants to merge 2 commits into
base: master
Choose a base branch
from
Open

Add MetaPost support #2095

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
2506b5a
start metapost file
chupinmaxime Dec 10, 2024
af9ce60
Add MetaPost support
chupinmaxime Dec 11, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
1 change: 1 addition & 0 deletions docs/Languages.md
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -128,6 +128,7 @@
- Mathematica (`mathematica`)
- MATLAB (`matlab`)
- Meson (`meson`)
- MetaPost/MetaFont (`metapost`)
- MiniZinc (`minizinc`)
- Mojo (`mojo`)
- MoonScript (`moonscript`)
Expand Down
15 changes: 15 additions & 0 deletions lib/rouge/demos/metapost
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,15 @@
beginfig(223)
numeric n;
n:=10;
path p;
p := for i=0 upto n-1:
((1cm + 3mm*normaldeviate,0) rotated (i*360/n)) ..
endfor cycle;
for i=0 step 2mm until 3cm:
draw fullcircle scaled i;
endfor;
clip currentpicture to p;
draw p;
endfig;

end.
244 changes: 244 additions & 0 deletions lib/rouge/lexers/metapost.rb
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,244 @@
# -*- coding: utf-8 -*- #
# Maxime Chupin

module Rouge
module Lexers
class MetaPost < RegexLexer
title "MetaPost"
desc "MetaPost graphic language"
tag 'metapost'
aliases 'mp','mf','metapost','metafont'
filenames '*.mp','*.mf'
mimetypes 'text/x-metapost', 'application/x-metapost'


def self.detect?(text)
return true if text =~ /\A\s*(input|verbatimtex|def|vardef|beginfig)/
end
# for all variables
id = /@?[_a-z']\w*/i

BUILTINS = /\b(?:
ahangle | ahlength |
bboxmargin |
charcode |
day | defaultcolormodel | defaultpen | defaultscale |
dotlabeldiam |
hour |
labeloffset |
linecap | linejoin |
minute | miterlimit | month | mpprocset |
pausing | prologues |
restoreclipcolor |
showstopping |
time |
tracingcapsules | tracingchoices | tracingcommands |
tracingequations | tracinglostchars | tracingmacros |
tracingonline | tracingoutput | tracingrestores |
tracingspecs | tracingstats | tracingtitles |
troffmode | truecorners |
warningcheck |
year |
filenametemplate |
jobname |
outputformat | outputtemplate |
background |
currentpen | currentpicture | cuttings |
defaultfont |
extra_beginfig | extra_endfig |
beveled | black | blue | bp | butt |
cc | cm |
dd | ditto | down |
epsilon | evenly | EOF |
false | fullcircle |
green |
halfcircle |
identity |
left |
mitered | mm | mpversion |
nullpen | nullpicture |
origin |
pc | pencircle | pensquare | pt |
quartercircle |
red | right | rounded |
squared |
true |
unitsquare | up |
white | withdots | of
)\b/x

KEYWORDS = /\b(?:
beginfig | begingroup | def | end | enddef |
endfig | endgroup | hide | image | input |
let | makepen | makepath | newinternal | primary |
primarydef | save | secondarydef | shipout |
special | tertiarydef | vardef |
else | elseif | endfor | exitif | exitunless | fi |
for | forever | forsuffix | if | step | until |
upto |
bot | dir | direction |
intersectionpoint | intiersectiontimes |
lft | llft | llcorner | lrcorner |
penoffset | point | postcontrol | precontrol |
rt | lrt | ulft | urt |
top |
ulcorner | unitvector | urcorner |
z | bbox |
center | cutafter | cutbefore |
dashpart | dashpattern |
glyph |
infont |
pathpart | penpart |
reverse |
subpath |closefrom |
fontpart |
readfrom |
str | substring |
textpart | abs | angle | arclength | arctime | ASCII |
blackpart | bluepart |
ceiling | char | colormodel | cosd | cyanpart |
decimal | decr | directionpoint | directiontime |
div | dotprod |
floor | fontsize |
greenpart | greypart |
hex |
incr |
length |
magentapart | max | mexp | min | mlog | mod |
normaldeviate |
oct |
redpart | round |
sind | sqrt |
uniformdeviate |
xpart | xxpart | xypart |
yellowpart | ypart | yxpart | yypart |
and |
bounded |
clipped |
filled |
known |
not |
odd |
or |
rgbcolor |
stroked |
textual |
unknown |colorpart | also |
buildcycle |
contour | controls | cycle |
doublepath |
setbounds |
to |
whatever | label |
label.bot |
label.top |
label.llft |
label.lft |
label.ulft |
label.lrt |
label.rt |
label.urt |
labels |
labels.bot |
labels.top |
labels.llft |
labels.lft |
labels.ulft |
labels.lrt |
labels.rt |
labels.urt |
thelabel |
thelabel.bot |
thelabel.top |
thelabel.llft |
thelabel.lft |
thelabel.ulft |
thelabel.lrt |
thelabel.rt |
thelabel.urt |
dotlabel |
dotlabel.bot |
dotlabel.top |
dotlabel.llft |
dotlabel.lft |
dotlabel.ulft |
dotlabel.lrt |
dotlabel.rt |
dotlabel.urt | about |
reflected | reflectedaround |
rotated | rotatedabout | rotatedaround |
scaled | slanted | shifted |
transformed |
xscaled |
yscaled |
zscaled | addto |
clip | cutdraw |
draw | drawarrow | drawdblarrow | drawdot |
fill | filldraw |
undraw | unfill | unfilldraw | curl |
dashed | drawoptions |
pickup |
tension |
withcmykcolor | withcolor |
withgreyscale | withpen | withpostscript | withprescript |
withrgbcolor | errhelp | errmessage |
fontmapfile | fontmapline |
interim |
loggingall |
message |
scantokens | show | showdependencies | showtoken | showvariable |
tracingall | tracingnone |
write to
)\b/x

TYPES = /\b(?:
boolean | color | cmykcolor | expr |
numeric | pair | path | pen | picture |
string | suffix | text | transform
)\b/x


PUNCTUATION = /[\[\]{}\(\),;]/

state :endstr do
rule %r/etex/, Str, :pop!
end
state :string do
rule %r/""/, Str::Escape
rule %r/"C?/, Str, :pop!
rule %r/[^"]+/, Str
end

state :root do
rule %r/\n/, Text
rule %r/[^\S\n]+/, Text
rule %r/\s+/m, Text
rule %r/%.*$/, Comment
rule %r/[*&\[\](){}<>+=:.\/-]/, Operator

# types
rule TYPES, Keyword::Type

# keywords
rule %r/(interim)\b/, Keyword::Declaration
rule KEYWORDS, Keyword

# BUILTINS
rule BUILTINS, Name::Builtin
# PUNCTUATION
rule PUNCTUATION, Other

# strings
rule %r/"/, Str, :string
rule %r/verbatimtex/, Str, :endstr
rule %r/btex/, Str, :endstr

# numbers
rule %r{((0(x|X)[0-9a-fA-F]*)|(([0-9]+\.?[0-9]*)|(\.[0-9]+))((e|E)(\+|-)?[0-9]+)?)(L|l|UL|ul|u|U|F|f|ll|LL|ull|ULL)?}, Num
rule %r/\d+/, Literal::Number::Integer
# rest (variable, etc)
rule id, Name
end
end
end
end
19 changes: 19 additions & 0 deletions spec/lexers/metapost_spec.rb
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,19 @@
# -*- coding: utf-8 -*- #
# frozen_string_literal: true

describe Rouge::Lexers::MetaPost do
let(:subject) { Rouge::Lexers::MetaPost.new }

describe 'guessing' do
include Support::Guessing

it 'guesses by filename' do
assert_guess :filename => 'foo.mp'
end

it 'guesses by mimetype' do
assert_guess :mimetype => 'text/x-metapost'
assert_guess :mimetype => 'application/x-metapost'
end
end
end
Loading
Loading