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
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
# Style sheet for Pascal
# Copyright (c) 1988, 89, 90, 91, 92, 93 Miguel Santana
# Copyright (c) 1995, 96, 97, 98 Akim Demaille, Miguel Santana
# $Id: pascal.ssh,v 1.1.1.1.2.1 2007/12/29 01:58:31 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.8 Akim Demaille <akim@freefriends.org>
# Added `destructor' (reported by Daniel.Meier@ascom.ch)
## 1.7 Akim Demaille <akim@freefriends.org>
# Highlights functions and procedures.
# Removed write and so one.
# Fixed strings.
style Pascal is
written by "Akim Demaille <akim@freefriends.org>"
version is 1.9
requires a2ps version 4.12a
documentation is
"The standard Pascal is covered by this style."
"But some extension have been added too, hence modern Pascal programs"
"should be correctly handled."
"Heavy highlighting maps mathematical symbols to their typographic"
"equivalents."
end documentation
alphabets are
"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz_"
keywords in Keyword_strong are
and, array, begin, constructor, const, dec, destructor, downto, do,
else, "end", exit, false, file, forward, for, goto, halt, if, inc,
"in", label, new, nil, not, object, of, or, packed, record, repeat,
set, shl, shr, then, to, true, type, until, uses, var, while, with,
xor
end keywords
keywords in Keyword are
abs, boolean, byte, div, integer, length, mod, odd, pointer, real,
registers, string, text, trunc, word
end keywords
keywords in Label are
interface
end keywords
optional keywords are
"in" \in,
not \not,
and \wedge,
or \vee
end keywords
optional operators are
-> \rightarrow,
<= \leq,
>= \geq,
:=,
<> \neq,
= \equiv
end operators
# Highlighting the functions and procedures
operators are
(/(procedure|function)([[:blank:]]+)([^ \t(;]+)/
\1 Keyword_strong, \2 Plain, \3 Label),
(/(unit|interface|implementation|program)([[:blank:]]+)([^ \t(;]+)/
\1 Keyword_strong, \2 Plain, \3 Label_strong)
end operators
sequences are
"(*" Comment_strong "*)",
{ Comment },
# Pascal strings are not exactly C-char, since 'Foo''bar'
# represents "Foo'bar"
"\'" Plain String "\'" Plain
exceptions are
"\'\'"
end exceptions
end sequences
end style
|
