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
|
/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
*/
#include "ratlibc/ratdef.h"
int xargc;
char **xargv;
extern int INITST (void);
extern int RATFOR (void);
extern int ENDST (void);
/* RPP -- Second pass of the SPP preprocessor. Converts a Ratfor like
* input language into Fortran. RPP differs from standard tools ratfor
* in a number of ways. Its input language is the output of XPP and
* contains tokens not intended for use in any programming language.
* Support is provided for SPP language features, and the output fortran
* is pretty-printed.
*/
int main (int argc, char *argv[])
{
xargc = argc;
xargv = argv;
INITST();
RATFOR();
ENDST();
return (0);
}
|
