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
|
# Style sheet for modula-3
# Copyright (c) 1988, 89, 90, 91, 92, 93 Miguel Santana
# Copyright (c) 1995, 96, 97, 98 Akim Demaille, Miguel Santana
# $Id: modula3.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.1 Akim Demaille
# Added Doc.
style "Modula 3" is
written by "Akim Demaille <akim@freefriends.org>"
version is 1.1
requires a2ps version 4.9.7
documentation is
"Modula-3 is a member of the Pascal family of languages. Designed in"
"the late 1980s at Digital Equipment Corporation and Olivetti, Modula-3"
"corrects many of the deficiencies of Pascal and Modula-2 for practical"
"software engineering. In particular, Modula-3 keeps the simplicity of"
"type safety of the earlier languages, while providing new facilities"
"for exception handling, concurrency, object-oriented programming, and"
"automatic garbage collection. Modula-3 is both a practical"
"implementation language for large software projects and an excellent"
"teaching language."
""
"This sheet was designed based on url(http://www.research.digital.com/SRC/modula-3/html/home.html)url(Modula 3 home page)url."
end documentation
alphabets are
"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz_"
case sensitive
# Common to Modula 2 and Modula 3
keywords in Keyword_strong are
AND, ARRAY, BEGIN, BY, CASE, CONST, DIV, DO, ELSE, ELSIF, END, EXIT,
FOR, FROM, IF, IMPORT, IN, LOOP, MOD, MODULE, NOT, OF, OR,
PROCEDURE, RECORD, REPEAT, RETURN, SET, THEN, TO, TYPE, UNTIL, VAR,
WHILE, WITH
end keywords
# Modula 3 only
keywords in Keyword_strong are
ANY, AS, BITS, BRANDED, EVAL, EXCEPT, EXCEPTION, EXPORTS, FINALLY,
GENERIC, INTERFACE, LOCK, METHODS, OBJECT, OVERRIDES, RAISE, RAISES,
READONLY, REF, REVEAL, ROOT, TRY, TYPECASE, UNSAFE, UNTRACED, VALUE
end keywords
keywords in Keyword are
ABS, BYTESIZE, EXTENDED, INTEGER, MIN, NUMBER, TEXT, ADDRESS,
CARDINAL, FALSE, ISTYPE, MUTEX, ORD, TRUE, ADR, CEILING, FIRST,
LAST, NARROW, REAL, TRUNC, ADRSIZE, CHAR, FLOAT, LONGREAL, NEW,
REFANY, TYPECODE, BITSIZE, DEC, FLOOR, LOOPHOLE, NIL, ROUND, VAL,
BOOLEAN, DISPOSE, INC, MAX, NULL, SUBARRAY
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
sequences are
"(*" Plain Comment "*)" Plain,
C-string,
C-char
end sequences
end style
|
