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
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
.TH ratfor 1
.SH NAME
ratfor - ratfor preprocessor for fortran77
.SH SYNOPSIS
ratfor [-l n] [-C] [-o output] [-s type] input
.SH PARAMETERS
.IP "-l n"
user sets starting label n
.IP "-o output"
specify output file, otherwise it is stdout
.IP -C
keep comments in (useful for compiler directives)
.IP "-s type"
specify element type of array used for strings, by default integer
.SH DESCRIPTION
.PP
Ratfor has the following syntax:
.nf
prog: stat
prog stat
stat: if (...) stat
if (...) stat else stat
while (...) stat
repeat stat
repeat stat until (...)
for (...;...;...) stat
do ... stat
switch (intexpr) { case val[,val]: stmt ... default: stmt }
break n
next n
return (...)
digits stat
{ prog } or [ prog ] or $( prog $)
anything unrecognizable
.fi
.PP
where stat is any Fortran or Ratfor statement, and intexpr is an
expression that resolves into an integer value. A statement is
terminated by an end-of-line or a semicolon. The following translations
are also performed.
.nf
< .lt. <= .le.
== .eq.
!= .ne. ^= .ne. ~= .ne.
>= .ge. > .gt.
| .or. & .and.
! .not. ^ .not. ~ .not.
.fi
.PP
Integer constants in bases other that decimal may be specified as
n%dddd... where n is a decimal number indicating the base and dddd...
are digits in that base. For bases > 10, letters are used for digits
above 9. Examples: 8%77, 16%2ff, 2%0010011. The number is converted
the equivalent decimal value using multiplication; this may cause sign
problems if the number has too many digits.
.PP
String literals ("..." or '...') can be continued across line boundaries
by ending the line to be continued with an underline. The underline is
not included as part of the literal. Leading blanks and tabs on the
next line are ignored; this facilitates consistent indentation.
include file
.PP
will include the named file in the input.
define (name,value) or
define name value
.PP
defines name as a symbolic parameter with the indicated value. Names of
symbolic parameters may contain letters, digits, periods, and underline
character but must begin with a letter (e.g. B.FLAG). Upper case is
not equivalent to lower case in parameter names.
string name "character string" or
string name(size) "character string"
.PP
defines name to be an integer array long enough to accomodate the ascii
codes for the given character string, one per word. The last word of
name is initialized to the symbolic parameter EOS, and indicates the end
of string.
.SH LIMITATIONS
.PP
The file parameter to the include directive must be no more than
62 characters in length, or 60 characters if it is a quoted string.
.PP
The program must ensure that EOS is defined before using
the string directive.
.PP
The string directive produces an array declaration followed by a data
statement. A series of string directives (separated by optional semicolons and
newlines only) will produce all their data statements at the end of the series.
If you are using an old Fortran compiler that does not tolerate intermixture of
declarations and other statements, then your string directives must be
carefully arranged at the end of the rest of your other declarations to avoid
violating this constraint.
.PP
IMPLICIT UNDEFINED and IMPLICIT NONE directives are incompatible with
the Ratfor switch statement. This is because the Ratfor switch statement
produces a new integer variable to contain the value of the switched-upon
expression.
.SH KEYWORDS
ratfor, fortran, preprocessor, fortran77, ratfor77, spp
.SH "SEE ALSO"
.BR f77 (1)
|
