1*c87b03e5Sespie /* ansify.c
2*c87b03e5Sespie Copyright (C) 1997 Free Software Foundation, Inc.
3*c87b03e5Sespie Contributed by James Craig Burley.
4*c87b03e5Sespie
5*c87b03e5Sespie This file is part of GNU Fortran.
6*c87b03e5Sespie
7*c87b03e5Sespie GNU Fortran is free software; you can redistribute it and/or modify
8*c87b03e5Sespie it under the terms of the GNU General Public License as published by
9*c87b03e5Sespie the Free Software Foundation; either version 2, or (at your option)
10*c87b03e5Sespie any later version.
11*c87b03e5Sespie
12*c87b03e5Sespie GNU Fortran is distributed in the hope that it will be useful,
13*c87b03e5Sespie but WITHOUT ANY WARRANTY; without even the implied warranty of
14*c87b03e5Sespie MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15*c87b03e5Sespie GNU General Public License for more details.
16*c87b03e5Sespie
17*c87b03e5Sespie You should have received a copy of the GNU General Public License
18*c87b03e5Sespie along with GNU Fortran; see the file COPYING. If not, write to
19*c87b03e5Sespie the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
20*c87b03e5Sespie 02111-1307, USA. */
21*c87b03e5Sespie
22*c87b03e5Sespie #include "hconfig.h"
23*c87b03e5Sespie #include "system.h"
24*c87b03e5Sespie
25*c87b03e5Sespie #define die_unless(c) \
26*c87b03e5Sespie do if (!(c)) \
27*c87b03e5Sespie { \
28*c87b03e5Sespie fprintf (stderr, "%s:%lu: %s\n", argv[1], lineno, #c); \
29*c87b03e5Sespie die (); \
30*c87b03e5Sespie } \
31*c87b03e5Sespie while(0)
32*c87b03e5Sespie
33*c87b03e5Sespie static void ATTRIBUTE_NORETURN
die(void)34*c87b03e5Sespie die (void)
35*c87b03e5Sespie {
36*c87b03e5Sespie exit (1);
37*c87b03e5Sespie }
38*c87b03e5Sespie
39*c87b03e5Sespie int
main(int argc,char ** argv)40*c87b03e5Sespie main(int argc, char **argv)
41*c87b03e5Sespie {
42*c87b03e5Sespie int c;
43*c87b03e5Sespie static unsigned long lineno = 1;
44*c87b03e5Sespie
45*c87b03e5Sespie die_unless (argc == 2);
46*c87b03e5Sespie
47*c87b03e5Sespie printf ("\
48*c87b03e5Sespie /* This file is automatically generated from `%s',\n\
49*c87b03e5Sespie which you should modify instead. */\n\
50*c87b03e5Sespie #line 1 \"%s\"\n\
51*c87b03e5Sespie ",
52*c87b03e5Sespie argv[1], argv[1]);
53*c87b03e5Sespie
54*c87b03e5Sespie while ((c = getchar ()) != EOF)
55*c87b03e5Sespie {
56*c87b03e5Sespie switch (c)
57*c87b03e5Sespie {
58*c87b03e5Sespie default:
59*c87b03e5Sespie putchar (c);
60*c87b03e5Sespie break;
61*c87b03e5Sespie
62*c87b03e5Sespie case '\n':
63*c87b03e5Sespie ++lineno;
64*c87b03e5Sespie putchar (c);
65*c87b03e5Sespie break;
66*c87b03e5Sespie
67*c87b03e5Sespie case '"':
68*c87b03e5Sespie putchar (c);
69*c87b03e5Sespie for (;;)
70*c87b03e5Sespie {
71*c87b03e5Sespie c = getchar ();
72*c87b03e5Sespie die_unless (c != EOF);
73*c87b03e5Sespie switch (c)
74*c87b03e5Sespie {
75*c87b03e5Sespie case '"':
76*c87b03e5Sespie putchar (c);
77*c87b03e5Sespie goto next_char;
78*c87b03e5Sespie
79*c87b03e5Sespie case '\n':
80*c87b03e5Sespie putchar ('\\');
81*c87b03e5Sespie putchar ('n');
82*c87b03e5Sespie putchar ('\\');
83*c87b03e5Sespie putchar ('\n');
84*c87b03e5Sespie ++lineno;
85*c87b03e5Sespie break;
86*c87b03e5Sespie
87*c87b03e5Sespie case '\\':
88*c87b03e5Sespie putchar (c);
89*c87b03e5Sespie c = getchar ();
90*c87b03e5Sespie die_unless (c != EOF);
91*c87b03e5Sespie putchar (c);
92*c87b03e5Sespie if (c == '\n')
93*c87b03e5Sespie ++lineno;
94*c87b03e5Sespie break;
95*c87b03e5Sespie
96*c87b03e5Sespie default:
97*c87b03e5Sespie putchar (c);
98*c87b03e5Sespie break;
99*c87b03e5Sespie }
100*c87b03e5Sespie }
101*c87b03e5Sespie break;
102*c87b03e5Sespie
103*c87b03e5Sespie case '\'':
104*c87b03e5Sespie putchar (c);
105*c87b03e5Sespie for (;;)
106*c87b03e5Sespie {
107*c87b03e5Sespie c = getchar ();
108*c87b03e5Sespie die_unless (c != EOF);
109*c87b03e5Sespie switch (c)
110*c87b03e5Sespie {
111*c87b03e5Sespie case '\'':
112*c87b03e5Sespie putchar (c);
113*c87b03e5Sespie goto next_char;
114*c87b03e5Sespie
115*c87b03e5Sespie case '\n':
116*c87b03e5Sespie putchar ('\\');
117*c87b03e5Sespie putchar ('n');
118*c87b03e5Sespie putchar ('\\');
119*c87b03e5Sespie putchar ('\n');
120*c87b03e5Sespie ++lineno;
121*c87b03e5Sespie break;
122*c87b03e5Sespie
123*c87b03e5Sespie case '\\':
124*c87b03e5Sespie putchar (c);
125*c87b03e5Sespie c = getchar ();
126*c87b03e5Sespie die_unless (c != EOF);
127*c87b03e5Sespie putchar (c);
128*c87b03e5Sespie if (c == '\n')
129*c87b03e5Sespie ++lineno;
130*c87b03e5Sespie break;
131*c87b03e5Sespie
132*c87b03e5Sespie default:
133*c87b03e5Sespie putchar (c);
134*c87b03e5Sespie break;
135*c87b03e5Sespie }
136*c87b03e5Sespie }
137*c87b03e5Sespie break;
138*c87b03e5Sespie
139*c87b03e5Sespie case '/':
140*c87b03e5Sespie putchar (c);
141*c87b03e5Sespie c = getchar ();
142*c87b03e5Sespie putchar (c);
143*c87b03e5Sespie if (c != '*')
144*c87b03e5Sespie break;
145*c87b03e5Sespie for (;;)
146*c87b03e5Sespie {
147*c87b03e5Sespie c = getchar ();
148*c87b03e5Sespie die_unless (c != EOF);
149*c87b03e5Sespie
150*c87b03e5Sespie switch (c)
151*c87b03e5Sespie {
152*c87b03e5Sespie case '\n':
153*c87b03e5Sespie ++lineno;
154*c87b03e5Sespie putchar (c);
155*c87b03e5Sespie break;
156*c87b03e5Sespie
157*c87b03e5Sespie case '*':
158*c87b03e5Sespie c = getchar ();
159*c87b03e5Sespie die_unless (c != EOF);
160*c87b03e5Sespie if (c == '/')
161*c87b03e5Sespie {
162*c87b03e5Sespie putchar ('*');
163*c87b03e5Sespie putchar ('/');
164*c87b03e5Sespie goto next_char;
165*c87b03e5Sespie }
166*c87b03e5Sespie if (c == '\n')
167*c87b03e5Sespie {
168*c87b03e5Sespie ++lineno;
169*c87b03e5Sespie putchar (c);
170*c87b03e5Sespie }
171*c87b03e5Sespie break;
172*c87b03e5Sespie
173*c87b03e5Sespie default:
174*c87b03e5Sespie /* Don't bother outputting content of comments. */
175*c87b03e5Sespie break;
176*c87b03e5Sespie }
177*c87b03e5Sespie }
178*c87b03e5Sespie break;
179*c87b03e5Sespie }
180*c87b03e5Sespie
181*c87b03e5Sespie next_char:
182*c87b03e5Sespie ;
183*c87b03e5Sespie }
184*c87b03e5Sespie
185*c87b03e5Sespie die_unless (c == EOF);
186*c87b03e5Sespie
187*c87b03e5Sespie return 0;
188*c87b03e5Sespie }
189