1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
# Style sheet for PostScript
# Copyright (c) 1988-1993 Miguel Santana
# Copyright (c) 1995-1999 Akim Demaille, Miguel Santana
# $Id: ps.ssh,v 1.1.1.1.2.1 2007/12/29 01:58:32 mhatta Exp $
#
#
# This file is part of a2ps.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; see the file COPYING. If not, write to
# the Free Software Foundation, 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
#
## 1.3 Akim Demaille
# Define Comment_strong after comments.
style PostScript is
written by "Akim Demaille <akim@freefriends.org>"
requires a2ps version 4.12a
version is 1.4
documentation is
"Only some keywords are highlighted, because otherwise listings are quickly"
"becoming a big bold spot."
end documentation
alphabets are
"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz_\\-"
case sensitive
keywords in Keyword_strong are
add, arc, array, begin, bind, clip, charpath, closepath, copy,
currentdict, currentfont, curveto, def, definefont, dict, div, dup,
"end", eq, exch, fill, for, forall, findfont, get, ge, grestore,
gsave, gt, if, ifelse, index, known, length, le, lineto, lt,
moveto, mul, neg, newpath, pop, put, restore, rlineto, rmoveto,
roll, rotate, save, scale, scalefont, setcachedevice, setfont,
setgray, setlinewidth, show, showpage, stringwidth, stroke, sub,
translate, where, xor
end keywords
operators in Label_strong are
# We make the bet that '\name {' is a function declaration
(/^(\/[-a-z_A-Z]*)([ \t]*\\{)/ \1, \2 Plain)
end operators
keywords in Keyword are
true, false
end keywords
optional keywords are
le \leq,
ge \geq,
eq \equiv,
ne \neq
end keywords
sequences are
% Comment,
"(" Plain String ")" Plain
exceptions are
"\\\\", "\\(", "\\)"
end exceptions,
%! Comment_strong,
%% Comment_strong
end sequences
end style
|
