git@sv / enscript.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
Simply avoid warnings of modern gcc
[enscript.git] / states / hl / matlab.st
1 /**
2  * Name: matlab
3  * Description: Matlab programming language.
4  * Author: Jack Dunn <h.j.dunn@larc.nasa.gov>
5  */
6
7 m_keyword_re =
8 /\b(break|cl(ear|ose)|e(nd|lse|lseif|rror)|f(or|unction)|if|keyboard|otherwise\
9 |quit|return|switch|while)\b/;
10
11 /* Taken fron the Matlab Function Reference, version 5.2 */
12 m_type_re =
13 /\b(abs|acopy|acos|acosh|acot|acoth|acsc|acsch|addpath|airy|all|and|angle|ans|any\
14 |arc(cosecant|cosine|cotangent|secant|sine|tangent)|area\
15 |arename|asech|asin|asinh|atan(|2)|atanh|axes|axis|balance|bar(|3|3h|h)\
16 |base2dec|bessel(h|i|j|k|y)|beta(|inc|ln)\
17 |bicgstab|bin2dec|bit(and|cmp|get|max|or|set|shift|xor)|blanks\
18 |box|brighten|builtin|calendar|cam(dolly|light|lookat|orbit|pan|pos|proj\
19 |roll|target|up|va|zoom)|capture|case|cat(|ch)|caxis|cd|cdf2rdf\
20 |cell(|2struct|plot)|cgs|char|chol(|inc|update)|cla(|bel|ss)\
21 |clc|clf|clock|col(mmd|or(bar|map)|perm)|com(bs|et|et3|pa(n|ss))|computer\
22 |cond(|eig|est)|conj|con(tour(|3|c|f))|contrast|conv(|2)|convhull|conv\
23 |copy(file|obj)|corrcoef|cos|cosh|cot|coth|cov|cplxpair|cputime|cross\
24 |csc|csch|cum(prod|trapz)|cylinder|daspect|date|date(num|str|vec)\
25 |db(clear|cont|down|mex|quit|stack|status|step|stop|type|up)\
26 |dd(eadv|eexec|einit|epoke|ereq|eterm|eunadv)|de(al|blank|(c2(base|bin|hex))\
27 |conv)|default4|del2|delaunay|de(lete|t)|diag|diary|diff|dir|disp\
28 |dlm(read|writ)|dmperm|double|dragrect|drawnow|dsearch|echo|eig|eigs|ellipj\
29 |ellipke|eomday|eps|erf(|c|cx)|etime|eval|evalin|exist|exp|expint|expm|eye\
30 |ezplot|factor|fclose|feather|feof|ferror|feval|fft(|2|n|shift)\
31 |fget(l|s)|fid|figflag|figure|fileparts|fill|fill3|filter(|2)|find(|obj|str)\
32 |fix|flip(dim|lr|ud)|floor|flops|fmin(|s)|fopen|format|fplot|fprintf\
33 |frame(2im|edit)|fread|freqspace|frewind|fscanf|fseek|ftell|full|funm|fwrite\
34 |fzero|gallery|gamma(|inc|ln)|g(ca|cd|cf|co)|gestalt|get(|field|frame)\
35 |ginput|global|gmres|gplot|gradient|graymon|grid(|data)|gsvd|gtext|hadamard\
36 |hankel|hdf|help|hess|hex2(dec|num)|hidden|hilb|hist|hold|home|horzcat\
37 |hsv2rgb|i|ifft(|2|n|shift)|im2frame|imag|image|imagesc|im(finfo|read|write)\
38 |ind2sub|Inf|inferiorto|inline|inpolygon|input|int2str|interp(1|2|3|ft|n)\
39 |intersect|inv|invhilb|ipermute|is(a|cell(|str)|char|empty|equal|field\
40 |finite|global|handle|hold|ieee|inf|letter|logical|member|nan|numeric\
41 |object|ppc|prime|real|space|sparse|str|struct|student|unix|vms)\
42 |j|kron|last(err|warn)|lcm|ldivide|legend(|re)|length|light(|angle|ing)\
43 |lin2mu|line|linspace|load|log(|10|2|ical)|loglog(|m|space)|lookfor\
44 |lower|lscov|lu|luinc|magic|mat2str|material|max|mean|median|menu\
45 |mesh(|c|grid|z)|min|minus|mislocked|mkdir|ml(divide|ock)|mod|more|movie(|in)\
46 |mpower|mrdivide|mtimes|mu2lin|munlock|NaN|narg(chk|in|out)|nd(grid|ims)\
47 |newplot|nextpow2|nnls|nnz|nonzeros|norm|normest|not|now|null|num2(cell|str)\
48 |nzmax|ode(45|file|get|set)|ones|or|orient|orth|pack|pagedlg|pareto|pascal\
49 |patch|path|pause|pbaspect|pcg|pcode|pcolor|perms|permute|persistent\
50 |pi|pie(|,3)|pinv|plot(|3|matrix|yy)|plus|pol2cart|polar|poly(|area|der\
51 |eig|fit|val|valm)|pow2|power|primes|print(|dlg|frame|opt)|prod\
52 |profile|qmr|qr(|delete|insert)|qtwrite|quad|quad8|quiver(|3)|qz\
53 |rand(|n|perm)|rank|rat(|s)|rbbox|rcond|rdivide|readsnd|real(|max|min)\
54 |recordsound|refresh|rem|repmat|reset|reshape|residue|rgb(2hsv|plot)\
55 |ribbon|rmfield|rmpath|roots|rose|rot90|rotate(|3d)|round|rref(|movie)\
56 |rsf2csf|save|scatter(|3)|schur|script|sech|semilog(x|y)|set(|diff|feild|xor)\
57 |shading|shiftdim|sign|sin|sinh|size|slice|sliders|sort|sortrows|sound(|cap)\
58 |sp(alloc|arse|convert|diags|eak|eye|fun|h2cart|here|inmap|line\
59 |ones|parms|rand|randn|randsym|rintf|y)|sqrt(|m)|squeeze|sscanf|stairs\
60 |startup|std|stem(|3)|str(2(cell|num)|cat|cmp|cmpi|ings|just|match|ncmp\
61 |ncmpi|rep|tok|uct2cell,vcat)|sub(2ind|plot|s(asgn|pace|ref))|sum|superiorto\
62 |surf(|ace|c|l|norm)|svd(|s)|sym(mmd|rcm)|tan|tanh|tempdir|tempname\
63 |terminal|text|tic|times|title|toc|toeplitz|trace|transpose|trapz\
64 |tri(l|mesh|surf|u)|try|tsearch|type|ui(control|getfile|menu|nt8|putfile\
65 |resume|setcolor|setfont)|uminus|union|unique|unwrap|uplus|upper|varargout\
66 |vectorize|ver(|sion|tcat)|view|viewmtx|voronoi|wait(bar|for(|buttonpress))\
67 |warndlg|warning|waterfall|wav(read|write)|weekday|what(|snew)|which|who(|s)\
68 |wilkinson|wk1(read|write)|writesnd|xlabel|xlgetrange|xlim|xlsetrange|xor\
69 |ylabel|ylim|zeros|zlabel|zlim|zoom\
70 )\b/;
71
72 state m_string extends Highlight
73 {
74   /\\\\./ {
75     language_print ($0);
76   }
77   /[\']/ {
78     language_print ($0);
79     return;
80   }
81 }
82
83 state matlab extends HighlightEntry
84 {
85   /* Comments. */
86   /%/ {
87     comment_face (true);
88     language_print ($0);
89     call (eat_one_line);
90     comment_face (false);
91   }
92
93   /* Continuation. */
94   /\.\.\./ {
95     keyword_face (true);
96     language_print ($0);
97     keyword_face (false);
98   }
99
100   /* Matrix start.  */
101   /\[/ {
102     type_face (true);
103     language_print ($0);
104     type_face (false);
105   }
106
107   /* Matrix end. */
108   /\]/ {
109     type_face (true);
110     language_print ($0);
111     type_face (false);
112   }
113
114   m_type_re {
115     type_face (true);
116     language_print ($0);
117     type_face (false);
118   }
119
120   m_keyword_re {
121      keyword_face (true);
122      language_print($0);
123      keyword_face (false);
124   }
125
126   /* Transpose. */
127   /* variable' or )' */
128   /([a-zA-Z][a-zA-Z_0-9]*|\))([\'])/ {
129     language_print ($1);
130     keyword_face (true);
131     language_print ($2);
132     keyword_face (false);
133   }
134   /* ]' */
135   /([a-zA-Z][a-zA-Z_0-9]*|])([\'])/ {
136     type_face (true);
137     language_print ($1);
138     type_face (false);
139     keyword_face (true);
140     language_print ($2);
141     keyword_face (false);
142   }
143
144   /* Strings. */
145   /*  'any number of characters'  */
146   /[\']/ {
147     string_face (true);
148     language_print ($0);
149     call (m_string);
150     string_face (false);
151   }
152 }
153
154 \f
155 /*
156 Local variables:
157 mode: c
158 End:
159 */
enscript