« back to all changes in this revision
Viewing changes to debian/patches/24-Web--ratfor.c.patch
- browse files at revision 4
- compare with another revision
- download diff
- download tarball
- view history from revision 4
- Committer: Package Import Robot
- Author(s): Jari Aalto
- Date: 2011-11-18 21:05:43 UTC
- Revision ID: package-import@ubuntu.com-20111118210543-i4gn84g98pi86war
Tags: 1.62-11.1
* Non-maintainer upload.
- Move to packaging format "3.0 (quilt)".
* debian/compat
- Update to 8.
* debian/control
- (Build-Depends): update to debhelper 8.
- (Description): Adjust first line (lintian).
- (Homepage): Add.
- (Recommends): Change to tetex-base to texlive (Closes: #601268).
- (Standards-Version): Update to 3.9.2.
- (Suggests): Remove tetex-base.
Package fweb-doc
- (Description): Extend first line (Lintian).
- (Depends): Add ${misc:Depends}, add dpkg (>= 1.15.4) | install-info
- (Section): Add doc.
* debian/copyright
- Remove obsolete FSF address. Correct GPL path.
* debian/idxmerge.1
- Fix hyphen-used-as-minus-sign (Lintian).
* debian/patches
- New. Convert embedded changes to upstream code into individual patches.
* debian/rules
- Replace obsolete dh_clean with dh_prep
- (build-arch, build-indep): New (W: Lintian).
- (clean): Adjust make call Web/Makefile (Lintian).
Delete generated files: Web/fweave.mds Web/fweave.ndx
- (docdir): Install docs to $package-doc.
- (infodir): New variable.
- (install): Don't create directory doc-base (lintian).
Don't create empty info dir (Lintian).
- (tmpdir): Install to $package, not tmp dir thus no longer needing
dh_movefiles.
* debian/source/format
- New file.
* fweb-doc.doc-base
- (Section): Update from Apps/Programming to Programming.
- Move to packaging format "3.0 (quilt)".
* debian/compat
- Update to 8.
* debian/control
- (Build-Depends): update to debhelper 8.
- (Description): Adjust first line (lintian).
- (Homepage): Add.
- (Recommends): Change to tetex-base to texlive (Closes: #601268).
- (Standards-Version): Update to 3.9.2.
- (Suggests): Remove tetex-base.
Package fweb-doc
- (Description): Extend first line (Lintian).
- (Depends): Add ${misc:Depends}, add dpkg (>= 1.15.4) | install-info
- (Section): Add doc.
* debian/copyright
- Remove obsolete FSF address. Correct GPL path.
* debian/idxmerge.1
- Fix hyphen-used-as-minus-sign (Lintian).
* debian/patches
- New. Convert embedded changes to upstream code into individual patches.
* debian/rules
- Replace obsolete dh_clean with dh_prep
- (build-arch, build-indep): New (W: Lintian).
- (clean): Adjust make call Web/Makefile (Lintian).
Delete generated files: Web/fweave.mds Web/fweave.ndx
- (docdir): Install docs to $package-doc.
- (infodir): New variable.
- (install): Don't create directory doc-base (lintian).
Don't create empty info dir (Lintian).
- (tmpdir): Install to $package, not tmp dir thus no longer needing
dh_movefiles.
* debian/source/format
- New file.
* fweb-doc.doc-base
- (Section): Update from Apps/Programming to Programming.
- files added:
- .pc
- .pc/01-Web--Makefile.patch
- .pc/01-Web--Makefile.patch/Web
- .pc/02-Web--configure.patch
- .pc/02-Web--configure.patch/Web
- .pc/10-Manual--fweb.texi.patch
- .pc/10-Manual--fweb.texi.patch/Manual
- .pc/12-Web--common.web.patch
- .pc/12-Web--common.web.patch/Web
- .pc/14-Web--fweave.web.patch
- .pc/14-Web--fweave.web.patch/Web
- .pc/16-Web--ratfor.web.patch
- .pc/16-Web--ratfor.web.patch/Web
- .pc/18-Web--style.web.patch
- .pc/18-Web--style.web.patch/Web
- .pc/20-Web--common.c.patch
- .pc/20-Web--common.c.patch/Web
- .pc/22-Web--fweave.c.patch
- .pc/22-Web--fweave.c.patch/Web
- .pc/24-Web--ratfor.c.patch
- .pc/24-Web--ratfor.c.patch/Web
- .pc/26-Web--style.c.patch
- .pc/26-Web--style.c.patch/Web
- debian/patches
- debian/source
- files removed:
- Web/fweave.mds
- files modified:
- debian/changelog
added
removed
debian/patches/24-Web--ratfor.c.patch
1
From c3bd441280e855a84e86e0ec2bc5c1fdaab79821 Mon Sep 17 00:00:00 2001
2
From: Jari Aalto <jari.aalto@cante.net>
3
Date: Fri, 18 Nov 2011 15:33:54 +0200
4
Subject: [PATCH] Web/ratfor.c: miscellaneous
5
Organization: Private
6
Content-Type: text/plain; charset="utf-8"
7
Content-Transfer-Encoding: 8bit
8
9
Signed-off-by: Jari Aalto <jari.aalto@cante.net>
10
---
11
Web/ratfor.c | 687 ++++++++++++++++++++++++++++++++++++++++++++--------------
12
1 files changed, 522 insertions(+), 165 deletions(-)
13
14
diff --git a/Web/ratfor.c b/Web/ratfor.c
15
index 444a144..f6d7ebb 100644
16
--- a/Web/ratfor.c
17
+++ b/Web/ratfor.c
18
@@ -1,23 +1,23 @@
19
#if(0)
20
- FTANGLE v1.60,\
21
- created with UNIX on "Thursday, September 24, 1998 at 16:12." \
22
- COMMAND LINE: "Web/ftangle Web/ratfor -A -# --F -= 1.62/Web/ratfor.c"\
23
- RUN TIME: "Friday, September 25, 1998 at 8:02."\
24
- WEB FILE: "Web/ratfor.web"\
25
+ FTANGLE v1.61,\
26
+ created with UNIX on "Friday, September 25, 1998 at 8:02." \
27
+ COMMAND LINE: "ftangle ./ratfor -uCONFIG -mCONFIG -mGCC -= ratfor.c"\
28
+ RUN TIME: "Tuesday, June 29, 1999 at 21:24."\
29
+ WEB FILE: "./ratfor.web"\
30
CHANGE FILE: (none)
31
#endif
32
#define _RATFOR_h
33
#define _ratfor_ \
34
35
-#define stringg (eight_bits)02 \
36
+#define stringg (eight_bits)'\2' \
37
38
-#define constant (eight_bits)03
39
+#define constant (eight_bits)'\3'
40
#define begin_Xmeta or_or
41
#define end_Xmeta star_star
42
-#define cdir (eight_bits)06
43
-#define colon_colon (eight_bits)011 \
44
+#define cdir (eight_bits)'\6'
45
+#define colon_colon (eight_bits)'\11' \
46
47
-#define join (eight_bits)0177 \
48
+#define join (eight_bits)'\177' \
49
50
#define ID0 0200
51
#define TOKEN1(a)((a)<ID0) \
52
@@ -40,84 +40,84 @@
53
54
#define ignore 0 \
55
56
-#define begin_comment0 (eight_bits)0376
57
-#define begin_comment1 (eight_bits)0375 \
58
+#define begin_comment0 (eight_bits)'\xFE'
59
+#define begin_comment1 (eight_bits)'\xFD' \
60
61
-#define module_number (eight_bits)0201
62
-#define identifier (eight_bits)0202
63
-#define id_keyword (eight_bits)0203 \
64
+#define module_number (eight_bits)'\201'
65
+#define identifier (eight_bits)'\202'
66
+#define id_keyword (eight_bits)'\203' \
67
68
-#define L_switch (eight_bits)0257
69
-#define begin_FORTRAN (eight_bits)0260
70
-#define begin_RATFOR (eight_bits)0261
71
-#define begin_C (eight_bits)0262
72
-#define begin_LITERAL (eight_bits)0263 \
73
+#define L_switch (eight_bits)'\257'
74
+#define begin_FORTRAN (eight_bits)'\260'
75
+#define begin_RATFOR (eight_bits)'\261'
76
+#define begin_C (eight_bits)'\262'
77
+#define begin_LITERAL (eight_bits)'\263' \
78
79
-#define verbatim (eight_bits)0264 \
80
+#define verbatim (eight_bits)'\264' \
81
\
82
83
-#define invisible_cmnt (eight_bits)0265
84
-#define compiler_directive (eight_bits)0266
85
-#define Compiler_Directive (eight_bits)0267 \
86
+#define invisible_cmnt (eight_bits)'\265'
87
+#define compiler_directive (eight_bits)'\266'
88
+#define Compiler_Directive (eight_bits)'\267' \
89
90
-#define keyword_name (eight_bits)0270 \
91
+#define keyword_name (eight_bits)'\270' \
92
93
-#define no_index (eight_bits)0300
94
-#define yes_index (eight_bits)0301 \
95
+#define no_index (eight_bits)'\300'
96
+#define yes_index (eight_bits)'\301' \
97
98
-#define ascii_constant (eight_bits)0302
99
-#define begin_vcmnt (eight_bits)0303
100
-#define big_line_break (eight_bits)0304 \
101
+#define ascii_constant (eight_bits)'\302'
102
+#define begin_vcmnt (eight_bits)'\303'
103
+#define big_line_break (eight_bits)'\304' \
104
105
-#define begin_bp (eight_bits)0305
106
-#define insert_bp (eight_bits)0306 \
107
+#define begin_bp (eight_bits)'\305'
108
+#define insert_bp (eight_bits)'\306' \
109
110
-#define begin_meta (eight_bits)017
111
-#define end_meta (eight_bits)027 \
112
+#define begin_meta (eight_bits)'\17'
113
+#define end_meta (eight_bits)'\27' \
114
115
-#define TeX_string (eight_bits)0307
116
-#define xref_roman (eight_bits)0310
117
-#define xref_typewriter (eight_bits)0311
118
-#define xref_wildcard (eight_bits)0312 \
119
+#define TeX_string (eight_bits)'\307'
120
+#define xref_roman (eight_bits)'\310'
121
+#define xref_typewriter (eight_bits)'\311'
122
+#define xref_wildcard (eight_bits)'\312' \
123
124
-#define control_text (eight_bits)0313 \
125
+#define control_text (eight_bits)'\313' \
126
127
-#define begin_nuweb (eight_bits)0314
128
-#define no_mac_expand (eight_bits)0315
129
-#define set_line_info (eight_bits)0316
130
-#define short_fcn (eight_bits)0317 \
131
+#define begin_nuweb (eight_bits)'\314'
132
+#define no_mac_expand (eight_bits)'\315'
133
+#define set_line_info (eight_bits)'\316'
134
+#define short_fcn (eight_bits)'\317' \
135
136
-#define formatt (eight_bits)0320 \
137
+#define formatt (eight_bits)'\320' \
138
139
-#define limbo_text (eight_bits)0323
140
-#define op_def (eight_bits)0324
141
-#define macro_def (eight_bits)0325 \
142
+#define limbo_text (eight_bits)'\323'
143
+#define op_def (eight_bits)'\324'
144
+#define macro_def (eight_bits)'\325' \
145
146
-#define ignore_defn (eight_bits)0327 \
147
+#define ignore_defn (eight_bits)'\327' \
148
149
-#define new_output_file (eight_bits)0331 \
150
+#define new_output_file (eight_bits)'\331' \
151
152
-#define definition (eight_bits)0332
153
-#define undefinition (eight_bits)0333
154
-#define WEB_definition (eight_bits)0334 \
155
+#define definition (eight_bits)'\332'
156
+#define undefinition (eight_bits)'\333'
157
+#define WEB_definition (eight_bits)'\334' \
158
159
-#define m_ifdef (eight_bits)0335
160
-#define m_ifndef (eight_bits)0336
161
-#define m_if (eight_bits)0337
162
-#define m_else (eight_bits)0340
163
-#define m_elif (eight_bits)0341
164
-#define m_endif (eight_bits)0342
165
-#define m_for (eight_bits)0343
166
-#define m_endfor (eight_bits)0344
167
-#define m_line (eight_bits)0345
168
-#define m_undef (eight_bits)0346 \
169
+#define m_ifdef (eight_bits)'\335'
170
+#define m_ifndef (eight_bits)'\336'
171
+#define m_if (eight_bits)'\337'
172
+#define m_else (eight_bits)'\340'
173
+#define m_elif (eight_bits)'\341'
174
+#define m_endif (eight_bits)'\342'
175
+#define m_for (eight_bits)'\343'
176
+#define m_endfor (eight_bits)'\344'
177
+#define m_line (eight_bits)'\345'
178
+#define m_undef (eight_bits)'\346' \
179
180
-#define end_of_buffer (eight_bits)0347 \
181
+#define end_of_buffer (eight_bits)'\347' \
182
183
-#define begin_code (eight_bits)0350
184
-#define module_name (eight_bits)0351 \
185
+#define begin_code (eight_bits)'\350'
186
+#define module_name (eight_bits)'\351' \
187
188
-#define new_module (eight_bits)0352 \
189
+#define new_module (eight_bits)'\352' \
190
191
#define cur_end cur_state.end_field
192
#define cur_byte cur_state.byte_field
193
@@ -247,20 +247,20 @@ copy_out(save_buffer,psave_buffer,!macro) \
194
#define NUMBER(lbl)out_label(PRINT_IF_0,(STMT_LBL)(lbl)) \
195
\
196
197
-#define PARENS copyd(TO_OUTPUT,XPN_CASES,050,051,NO) \
198
+#define PARENS copyd(TO_OUTPUT,XPN_CASES,'(',')',NO) \
199
\
200
201
-#define NL out_char(012)
202
-#define LP out_char(050)
203
-#define RP out_char(051)
204
-#define COMMA out_char(054)
205
-#define NOT out_char(041)
206
-#define EQUALS out_char(075)
207
-#define MINUS out_char(055)
208
+#define NL out_char('\n')
209
+#define LP out_char('(')
210
+#define RP out_char(')')
211
+#define COMMA out_char(',')
212
+#define NOT out_char('!')
213
+#define EQUALS out_char('=')
214
+#define MINUS out_char('-')
215
#define EQ_EQ out_char(eq_eq)
216
#define OR out_char(or_or)
217
-#define LT out_char(074)
218
-#define GT out_char(076) \
219
+#define LT out_char('<')
220
+#define GT out_char('>') \
221
222
#define IF(stmt_num)LABEL(stmt_num);id0(id__IF)
223
#define THEN id0(id__THEN);NL
224
@@ -289,7 +289,11 @@ copy_out(save_buffer,psave_buffer,!macro) \
225
#define NCASES 257
226
#define cur_switch switches[switch_level] \
227
228
+/* 1: */
229
+#line 27 "./ratfor.web"
230
231
+/* 4: */
232
+#line 16 "./typedefs.hweb"
233
234
235
#ifndef part
236
@@ -301,6 +305,9 @@ copy_out(save_buffer,psave_buffer,!macro) \
237
#endif
238
239
240
+/* :4 */
241
+/* 5: */
242
+#line 42 "./typedefs.hweb"
243
244
245
#if(part == 0 || part == 1)
246
@@ -314,19 +321,32 @@ copy_out(save_buffer,psave_buffer,!macro) \
247
#endif
248
249
250
+/* :5 */
251
+#line 28 "./ratfor.web"
252
253
254
+/* 33: */
255
+#line 440 "./typedefs.hweb"
256
257
#include "typedefs.h"
258
259
260
261
+#line 46 "./ratfor.web"
262
263
+#line 8 "./t_codes.hweb"
264
265
+/* :33 */
266
+/* 45: */
267
+#line 55 "./ratfor.web"
268
269
#include "map.h"
270
271
+/* :45 */
272
+#line 30 "./ratfor.web"
273
274
+/* 37: */
275
+#line 47 "./texts.hweb"
276
277
278
typedef struct
279
@@ -348,6 +368,9 @@ nbytes:19;
280
281
typedef text HUGE*text_pointer;
282
283
+/* :37 */
284
+/* 39: */
285
+#line 46 "./stacks.hweb"
286
287
288
typedef struct{
289
@@ -363,6 +386,9 @@ eight_bits HUGE*macro_buf,HUGE*mp,HUGE*macro_buf_end;
290
291
typedef output_state HUGE*stack_pointer;
292
293
+/* :39 */
294
+/* 41: */
295
+#line 11 "./val.hweb"
296
297
298
299
@@ -397,7 +423,11 @@ VALUE value;
300
TYPE type;
301
struct val HUGE*last,HUGE*next;
302
}VAL;
303
+#line 8 "./macs.hweb"
304
305
+/* :41 */
306
+/* 42: */
307
+#line 49 "./macs.hweb"
308
309
310
typedef struct
311
@@ -406,6 +436,9 @@ sixteen_bits token[MAX_XLEVELS];
312
int level;
313
}XIDS;
314
315
+/* :42 */
316
+/* 44: */
317
+#line 19 "./trunc.hweb"
318
319
320
#if(0)
321
@@ -436,7 +469,11 @@ ASCII HUGE*id,HUGE*id_end;
322
BP HUGE*first,HUGE*last;
323
struct Trunc HUGE*next;
324
}TRUNC;
325
+#line 53 "./ratfor.web"
326
327
+/* :44 */
328
+/* 123: */
329
+#line 2413 "./ratfor.web"
330
331
332
IN_RATFOR int switch_level RSET(0);
333
@@ -469,12 +506,20 @@ boolean has_default;
334
335
IN_RATFOR SWITCH HUGE*switches;
336
337
+/* :123 */
338
+#line 31 "./ratfor.web"
339
340
+/* 46: */
341
+#line 59 "./ratfor.web"
342
343
344
#include "t_type.h"
345
346
+/* :46 */
347
+#line 32 "./ratfor.web"
348
349
+/* 32: */
350
+#line 426 "./typedefs.hweb"
351
352
353
354
@@ -488,6 +533,9 @@ IN_RATFOR SWITCH HUGE*switches;
355
356
357
358
+/* :32 */
359
+/* 38: */
360
+#line 69 "./texts.hweb"
361
362
363
EXTERN long max_texts;
364
@@ -515,7 +563,11 @@ EXTERN eight_bits HUGE*mx_tok_ptr,HUGE*mx_dtok_ptr;
365
366
367
EXTERN text_pointer macro_text;
368
+#line 8 "./stacks.hweb"
369
370
+/* :38 */
371
+/* 40: */
372
+#line 82 "./stacks.hweb"
373
374
375
EXTERN output_state cur_state;
376
@@ -525,7 +577,11 @@ EXTERN long stck_size;
377
EXTERN output_state HUGE*stack;
378
EXTERN stack_pointer stck_end;
379
EXTERN stack_pointer stck_ptr;
380
+#line 8 "./val.hweb"
381
382
+/* :40 */
383
+/* 43: */
384
+#line 58 "./macs.hweb"
385
386
387
IN_COMMON STMT_LBL max_stmt;
388
@@ -537,7 +593,11 @@ EXTERN sixteen_bits outp_line[NUM_LANGUAGES]
389
#endif
390
#endif
391
;
392
+#line 8 "./trunc.hweb"
393
394
+/* :43 */
395
+/* 47: */
396
+#line 68 "./ratfor.web"
397
398
399
EXTERN boolean mac_protected,in_string;
400
@@ -550,6 +610,9 @@ EXTERN eight_bits sent;
401
IN_COMMON STMT_LBL max_stmt;
402
IN_COMMON sixteen_bits outp_line[];
403
404
+/* :47 */
405
+/* 50: */
406
+#line 102 "./ratfor.web"
407
408
409
410
@@ -593,6 +656,7 @@ IN_RATFOR sixteen_bits
411
id__CONTAINS,id__CYCLE,id__ENDWHERE,id__INTERFACE,id__MODULE,
412
id__SELECT,id__TYPE,id__WHERE;
413
414
+#line 146 "./ratfor.web"
415
416
417
418
@@ -689,10 +753,16 @@ IN_RATFOR SPEC spec90_tokens[]
419
#endif
420
;
421
422
+/* :50 */
423
+/* 53: */
424
+#line 287 "./ratfor.web"
425
426
427
IN_RATFOR sixteen_bits sym_label RSET(0);
428
429
+/* :53 */
430
+/* 61: */
431
+#line 525 "./ratfor.web"
432
433
434
IN_RATFOR boolean saved_token RSET(NO);
435
@@ -701,12 +771,18 @@ IN_RATFOR int last_bytes;
436
437
438
439
+/* :61 */
440
+/* 64: */
441
+#line 659 "./ratfor.web"
442
443
444
IN_RATFOR eight_bits HUGE*cmnt_buf RSET(NULL),
445
HUGE*cmnt_buf_end RSET(NULL),
446
HUGE*cmnt_pos RSET(NULL);
447
448
+/* :64 */
449
+/* 69: */
450
+#line 781 "./ratfor.web"
451
452
typedef struct
453
{
454
@@ -727,21 +803,33 @@ IN_RATFOR int wlevel RSET(0);
455
456
457
458
+/* :69 */
459
+/* 73: */
460
+#line 884 "./ratfor.web"
461
462
463
IN_RATFOR boolean balanced RSET(YES);
464
IN_RATFOR ASCII cur_delim RSET('\0');
465
466
+/* :73 */
467
+/* 85: */
468
+#line 1316 "./ratfor.web"
469
470
471
IN_RATFOR eight_bits HUGE*save_buffer RSET(NULL),HUGE*psave_buffer;
472
473
+/* :85 */
474
+/* 94: */
475
+#line 1576 "./ratfor.web"
476
477
478
IN_RATFOR outer_char HUGE*cmd_fmt;
479
IN_RATFOR ASCII HUGE*cmd_msg,HUGE*cmd_end;
480
IN_RATFOR BUF_SIZE cmd_fsize,cmd_size;
481
482
+/* :94 */
483
+/* 125: */
484
+#line 2532 "./ratfor.web"
485
486
487
IN_COMMON double g_ratio;
488
@@ -750,11 +838,15 @@ IN_COMMON unsigned short marginal_cases;
489
490
IN_EVAL VAL HUGE*val_ptr,HUGE*val_heap;
491
492
+/* :125 */
493
+#line 33 "./ratfor.web"
494
495
496
497
498
#if(part != 2)
499
+/* 48: */
500
+#line 82 "./ratfor.web"
501
502
503
SRTN
504
@@ -763,6 +855,9 @@ is_Rat_present(VOID)
505
Rat_is_loaded= YES;
506
}
507
508
+/* :48 */
509
+/* 49: */
510
+#line 91 "./ratfor.web"
511
512
513
boolean
514
@@ -772,6 +867,9 @@ outer_char*msg C1("")
515
return YES;
516
}
517
518
+/* :49 */
519
+/* 51: */
520
+#line 244 "./ratfor.web"
521
522
523
SRTN
524
@@ -796,6 +894,8 @@ confusion(OC("ini_RAT_tokens"),OC("Language should be RATFOR-like here"));
525
}
526
527
ini_univ_tokens(language0);
528
+/* 52: */
529
+#line 271 "./ratfor.web"
530
531
{
532
ASCII HUGE*pd;
533
@@ -803,15 +903,20 @@ ASCII HUGE*pd;
534
535
break_tokens[0]= LEFT(id_break,ID0);
536
break_tokens[1]= RIGHT(id_break);
537
-break_tokens[2]= 073;
538
+break_tokens[2]= ';';
539
540
pd= x_to_ASCII(OC("data"));
541
id_data= ID_NUM(pd,pd+4);
542
}
543
544
+/* :52 */
545
+#line 267 "./ratfor.web"
546
547
}
548
549
+/* :51 */
550
+/* 54: */
551
+#line 300 "./ratfor.web"
552
553
554
int
555
@@ -819,7 +924,7 @@ chk_lbl(VOID)
556
{
557
sixteen_bits a;
558
559
-if(next_byte()==072)
560
+if(next_byte()==':')
561
{
562
sym_label= (sixteen_bits)cur_val;
563
564
@@ -854,6 +959,9 @@ BACK_UP
565
return NO;
566
}
567
568
+/* :54 */
569
+/* 55: */
570
+#line 349 "./ratfor.web"
571
572
573
SRTN
574
@@ -906,6 +1014,9 @@ FREE_MEM(temp,"RAT_error:temp",N_MSGBUF,char);
575
FREE_MEM(temp1,"RAT_error:temp1",N_MSGBUF,char);
576
}
577
578
+/* :55 */
579
+/* 56: */
580
+#line 412 "./ratfor.web"
581
582
583
SRTN
584
@@ -939,6 +1050,9 @@ RAT_error(ERROR,OC("Output ended %s"),1,temp);
585
fatal(ERR_R,OC("ABORTING!"),OC(""));
586
}
587
588
+/* :56 */
589
+/* 57: */
590
+#line 438 "./ratfor.web"
591
592
593
outer_char HUGE*
594
@@ -975,6 +1089,9 @@ default:return OC("UNKNOWN CMD");
595
}
596
}
597
598
+/* :57 */
599
+/* 58: */
600
+#line 476 "./ratfor.web"
601
602
603
SRTN
604
@@ -986,6 +1103,9 @@ RAT_error(ERROR,OC("Misplaced keyword: \
605
\"%s\" must be used only inside \"switch\""),1,s);
606
}
607
608
+/* :58 */
609
+/* 59: */
610
+#line 487 "./ratfor.web"
611
612
SRTN didnt_expand FCN((c0,c,op))
613
eight_bits c0 C0("")
614
@@ -997,6 +1117,9 @@ RAT_error(ERROR,OC("Was expecting '%c', not '%c', after \"%s\"; \
615
expansion aborted"),3,XCHR(c0),XCHR(c),op);
616
}
617
618
+/* :59 */
619
+/* 60: */
620
+#line 500 "./ratfor.web"
621
622
boolean
623
char_after FCN((c))
624
@@ -1013,6 +1136,9 @@ return NO;
625
return YES;
626
}
627
628
+/* :60 */
629
+/* 62: */
630
+#line 536 "./ratfor.web"
631
632
633
eight_bits
634
@@ -1067,6 +1193,8 @@ last_bytes= 1;
635
break;
636
}
637
638
+/* 63: */
639
+#line 599 "./ratfor.web"
640
641
{
642
a= IDENTIFIER(a0,last_a= *cur_byte++);
643
@@ -1120,6 +1248,8 @@ OUT_CHAR(module_number);
644
}
645
}
646
647
+/* :63 */
648
+#line 590 "./ratfor.web"
649
650
}
651
652
@@ -1128,6 +1258,9 @@ cur_val= cur_val0;
653
return a0;
654
}
655
656
+/* :62 */
657
+/* 65: */
658
+#line 666 "./ratfor.web"
659
660
661
SRTN
662
@@ -1142,7 +1275,7 @@ cmnt_pos= cmnt_buf= GET_MEM("cmnt_buf",SAVE8,eight_bits);
663
cmnt_buf_end= cmnt_buf+SAVE8;
664
}
665
666
-while((a= copy_comment(save_comments))==012);
667
+while((a= copy_comment(save_comments))=='\n');
668
669
if(a==ignore)
670
output_ended(OC("while skipping newlines"),0);
671
@@ -1150,6 +1283,9 @@ output_ended(OC("while skipping newlines"),0);
672
BACK_UP
673
}
674
675
+/* :65 */
676
+/* 66: */
677
+#line 691 "./ratfor.web"
678
679
eight_bits
680
copy_comment FCN((save_comments))
681
@@ -1184,6 +1320,9 @@ while((a= get_output())!=stringg);
682
DUMMY_RETURN(ignore);
683
}
684
685
+/* :66 */
686
+/* 67: */
687
+#line 728 "./ratfor.web"
688
689
690
SRTN
691
@@ -1200,6 +1339,9 @@ FREE_MEM(cmnt_buf,"cmnt_buf",SAVE8,eight_bits);
692
cmnt_buf= cmnt_buf_end= cmnt_pos= NULL;
693
}
694
695
+/* :67 */
696
+/* 68: */
697
+#line 747 "./ratfor.web"
698
699
700
SRTN
701
@@ -1215,6 +1357,9 @@ out_ptrunc(cur_val);
702
out_state= NUM_OR_ID;
703
}
704
705
+/* :68 */
706
+/* 71: */
707
+#line 810 "./ratfor.web"
708
709
710
int
711
@@ -1243,6 +1388,9 @@ icase= ignore;
712
return wlevel;
713
}
714
715
+/* :71 */
716
+/* 72: */
717
+#line 845 "./ratfor.web"
718
719
720
SRTN
721
@@ -1273,6 +1421,9 @@ OUT_CHAR(XORD(*p));
722
OUT_CHAR(constant);
723
}
724
725
+/* :72 */
726
+/* 74: */
727
+#line 918 "./ratfor.web"
728
729
730
SRTN
731
@@ -1293,16 +1444,18 @@ boolean found_semi;
732
boolean balanced0= balanced;
733
ASCII cur_delim0= cur_delim;
734
735
+/* 75: */
736
+#line 997 "./ratfor.web"
737
738
739
switch(l)
740
{
741
-case 0173:
742
-l0= 050;r0= 051;
743
+case '{':
744
+l0= '(';r0= ')';
745
break;
746
747
-case 050:
748
-l0= 0173;r0= 0175;
749
+case '(':
750
+l0= '{';r0= '}';
751
break;
752
753
default:
754
@@ -1310,9 +1463,11 @@ default:
755
confusion(OC("copyd"),OC("Invalid left delimiter 0x%x"),l);
756
}
757
758
+/* :75 */
759
+#line 938 "./ratfor.web"
760
761
762
-if(l==0173&&xpn_cases)
763
+if(l=='{'&&xpn_cases)
764
{
765
if(DONE_LEVEL&&!pop_level())
766
output_ended(OC("after '{'"),0);
767
@@ -1357,14 +1512,18 @@ a= (sixteen_bits)(*output_rtn)();
768
if(to_memory&&a==(sixteen_bits)stringg)
769
in_string= BOOLEAN(!in_string);
770
771
-if(!in_string)
772
+if(!in_string)/* 76: */
773
+#line 1016 "./ratfor.web"
774
+
775
{
776
if(a==ignore)
777
output_ended(OC("while scanning for '%c'. Scan began \
778
with delimiter '%c' at line %u"),3,XCHR(r),XCHR(l),starting_line);
779
780
if(a==(sixteen_bits)l)bal0[++bal]= 0;
781
-else if(a==(sixteen_bits)r)
782
+else if(a==(sixteen_bits)r)/* 77: */
783
+#line 1039 "./ratfor.web"
784
+
785
{
786
if(bal<=0)
787
{
788
@@ -1385,14 +1544,14 @@ else OUT_CHAR(r0);
789
790
if(--bal==0)
791
{
792
-if(semi_allowed&&last_token&&last_token!=073)
793
+if(semi_allowed&&last_token&&last_token!=';')
794
{
795
796
RAT_error(WARNING,OC("Supplied missing ';' before \
797
delimiter '%c'"),1,r);
798
799
-if(to_memory)SAVE_IN_MEM(073)
800
-else OUT_CHAR(073);
801
+if(to_memory)SAVE_IN_MEM(';')
802
+else OUT_CHAR(';');
803
}
804
805
if(to_memory)SAVE_IN_MEM(r)
806
@@ -1405,9 +1564,13 @@ break;
807
}
808
}
809
810
+/* :77 */
811
+#line 1022 "./ratfor.web"
812
813
else if(a==l0)bal0[bal]++;
814
-else if(a==r0)
815
+else if(a==r0)/* 78: */
816
+#line 1080 "./ratfor.web"
817
+
818
{
819
if(bal0[bal]<=0)
820
{
821
@@ -1418,10 +1581,12 @@ continue;
822
else bal0[bal]--;
823
}
824
825
+/* :78 */
826
+#line 1024 "./ratfor.web"
827
828
else if(a!=stringg)
829
{
830
-if(a==073)
831
+if(a==';')
832
if(semi_allowed)found_semi= YES;
833
else
834
RAT_error(ERROR,OC("Spurious semicolon"),0);
835
@@ -1433,9 +1598,13 @@ else last_token= a;
836
}
837
}
838
839
+/* :76 */
840
+#line 984 "./ratfor.web"
841
842
843
-if(to_memory)
844
+if(to_memory)/* 79: */
845
+#line 1095 "./ratfor.web"
846
+
847
{
848
if(TOKEN1(a))
849
{
850
@@ -1456,6 +1625,8 @@ RAT_error(ERROR,OC("@o command not allowed inside switch"),0);
851
else
852
{
853
if(xpn_cases)
854
+/* 80: */
855
+#line 1128 "./ratfor.web"
856
857
{
858
eight_bits a0,a1;
859
@@ -1466,15 +1637,17 @@ a= IDENTIFIER(a0= (eight_bits)a,a1= next_byte());
860
if(a==id_switch)
861
{
862
SAVE_16;
863
-copyd(TO_MEMORY,DONT_XPN_CASES,050,051,NO);
864
+copyd(TO_MEMORY,DONT_XPN_CASES,'(',')',NO);
865
skip_newlines(COPY_COMMENTS);
866
-copyd(TO_MEMORY,DONT_XPN_CASES,0173,0175,YES);
867
+copyd(TO_MEMORY,DONT_XPN_CASES,'{','}',YES);
868
}
869
else if(a==id_case)x_case();
870
else if(a==id_default)x_default();
871
else SAVE_16;
872
}
873
874
+/* :80 */
875
+#line 1115 "./ratfor.web"
876
877
else
878
{
879
@@ -1484,6 +1657,8 @@ SAVE_IN_MEM(next_byte())
880
}
881
}
882
883
+/* :79 */
884
+#line 986 "./ratfor.web"
885
886
}
887
888
@@ -1491,13 +1666,16 @@ balanced= balanced0;
889
cur_delim= cur_delim0;
890
}
891
892
+/* :74 */
893
+/* 81: */
894
+#line 1149 "./ratfor.web"
895
896
897
SRTN
898
cp_fcn_body(VOID)
899
{
900
brace_level++;
901
-copyd(TO_OUTPUT,XPN_CASES,0173,0175,YES);
902
+copyd(TO_OUTPUT,XPN_CASES,'{','}',YES);
903
904
if(--brace_level==0)
905
{
906
@@ -1507,6 +1685,9 @@ rlevel--;
907
}
908
}
909
910
+/* :81 */
911
+/* 83: */
912
+#line 1222 "./ratfor.web"
913
914
915
SRTN
916
@@ -1519,7 +1700,7 @@ sixteen_bits a;
917
EAT_AUTO_SEMI;
918
skip_newlines(COPY_COMMENTS);
919
920
-if((a= next_byte())!=0173)
921
+if((a= next_byte())!='{')
922
{
923
if(a==ignore)
924
output_ended(OC("at beginning of statement"),0);
925
@@ -1530,7 +1711,7 @@ if(brace_only)
926
927
RAT_error(WARNING,OC("Inserted '{'"),0);
928
BACK_UP
929
-copyd(to_memory,XPN_CASES,0173,0175,YES);
930
+copyd(to_memory,XPN_CASES,'{','}',YES);
931
return;
932
}
933
934
@@ -1556,11 +1737,14 @@ BACK_UP
935
x_stmt();
936
}
937
}
938
-else copyd(to_memory,XPN_CASES,0173,0175,YES);
939
+else copyd(to_memory,XPN_CASES,'{','}',YES);
940
941
}
942
943
944
+/* :83 */
945
+/* 84: */
946
+#line 1277 "./ratfor.web"
947
948
949
SRTN
950
@@ -1574,13 +1758,13 @@ if((a= get_output())==ignore)
951
output_ended(OC("during scan of simple \
952
statement "),0);
953
954
-if(a==073&&!in_string)break;
955
+if(a==';'&&!in_string)break;
956
}
957
958
959
if((a= next_byte())!=stringg){BACK_UP return;}
960
961
-if(*cur_byte!=012){BACK_UP return;}
962
+if(*cur_byte!='\n'){BACK_UP return;}
963
964
965
OUT_CHAR(a);
966
@@ -1588,6 +1772,9 @@ while((a= get_output())!=stringg);
967
}
968
969
970
+/* :84 */
971
+/* 86: */
972
+#line 1337 "./ratfor.web"
973
974
975
eight_bits HUGE*
976
@@ -1614,13 +1801,13 @@ p_end= p+nmax-1;
977
978
switch(r_after)
979
{
980
-case 051:
981
-l= (eight_bits)050;
982
+case ')':
983
+l= (eight_bits)'(';
984
bal= 1;
985
break;
986
987
-case 0175:
988
-l= (eight_bits)0173;
989
+case '}':
990
+l= (eight_bits)'{';
991
bal= 1;
992
break;
993
994
@@ -1647,6 +1834,8 @@ if(p>=p_end)resize(pp,nmax,&p,&p_end);
995
if(TOKEN1(a= next_byte()))
996
{
997
if(!in_string)
998
+/* 87: */
999
+#line 1411 "./ratfor.web"
1000
1001
{
1002
if(a==ignore)
1003
@@ -1654,7 +1843,9 @@ output_ended(OC("while scanning from line %u \
1004
for delimiter (r_before = '%c', r_after = '%c')"),3,starting_line,XCHR(r_before),XCHR(r_after));
1005
1006
if(a==l)bal0[++bal]= 0;
1007
-else if(a==r_after&&r_after!=NOT_AFTER)
1008
+else if(a==r_after&&r_after!=NOT_AFTER)/* 88: */
1009
+#line 1430 "./ratfor.web"
1010
+
1011
{
1012
if(l&&bal<=0)
1013
{
1014
@@ -1666,11 +1857,11 @@ else
1015
{
1016
if(bal0[bal]!=0)
1017
{
1018
-inserted(bal0[bal],0173,0175,l,bal);
1019
+inserted(bal0[bal],'{','}',l,bal);
1020
1021
while(bal0[bal]--)
1022
{
1023
-*p++= 0175;
1024
+*p++= '}';
1025
if(p>=p_end)resize(pp,nmax,&p,&p_end);
1026
}
1027
}
1028
@@ -1684,6 +1875,8 @@ return p;
1029
}
1030
}
1031
1032
+/* :88 */
1033
+#line 1418 "./ratfor.web"
1034
1035
else if(a==r_before&&r_before!=NOT_BEFORE)
1036
{
1037
@@ -1691,23 +1884,31 @@ BACK_UP;
1038
*p= '\0';
1039
return p;
1040
}
1041
-else if(a==0173)bal0[bal]++;
1042
-else if(a==0175)
1043
+else if(a=='{')bal0[bal]++;
1044
+else if(a=='}')/* 89: */
1045
+#line 1461 "./ratfor.web"
1046
+
1047
{
1048
if(bal0[bal]<=0)
1049
{
1050
p--;
1051
-unmatched(0173,0175);
1052
+unmatched('{','}');
1053
continue;
1054
}
1055
else bal0[bal]--;
1056
}
1057
1058
+/* :89 */
1059
+#line 1426 "./ratfor.web"
1060
1061
}
1062
1063
+/* :87 */
1064
+#line 1395 "./ratfor.web"
1065
1066
1067
+/* 90: */
1068
+#line 1473 "./ratfor.web"
1069
1070
{
1071
*p++= a;
1072
@@ -1725,6 +1926,8 @@ break;
1073
}
1074
}
1075
1076
+/* :90 */
1077
+#line 1397 "./ratfor.web"
1078
1079
}
1080
else
1081
@@ -1738,6 +1941,9 @@ DUMMY_RETURN(NULL);
1082
}
1083
1084
1085
+/* :86 */
1086
+/* 91: */
1087
+#line 1491 "./ratfor.web"
1088
1089
1090
outer_char*
1091
@@ -1750,6 +1956,9 @@ sprintf((char*)q0,delim?"'%c'":"?",XCHR(delim));
1092
return q0;
1093
}
1094
1095
+/* :91 */
1096
+/* 92: */
1097
+#line 1505 "./ratfor.web"
1098
1099
1100
SRTN
1101
@@ -1769,33 +1978,50 @@ old_len*sizeof(eight_bits));
1102
*pp_end= *pp+new_len-1;
1103
}
1104
1105
+/* :92 */
1106
+#line 38 "./ratfor.web"
1107
1108
#endif
1109
1110
#if(part != 1)
1111
+/* 95: */
1112
+#line 1584 "./ratfor.web"
1113
1114
1115
SRTN
1116
alloc_Rat(VOID)
1117
{
1118
+/* 70: */
1119
+#line 802 "./ratfor.web"
1120
1121
1122
ALLOC(LBL,lbl,"lb",max_lbls,0);
1123
lbl_end= lbl+max_lbls;
1124
1125
+/* :70 */
1126
+/* 96: */
1127
+#line 1593 "./ratfor.web"
1128
1129
1130
ALLOC(outer_char,cmd_fmt,"cf",cmd_fsize,0);
1131
ALLOC(ASCII,cmd_msg,"cg",cmd_size,0);
1132
cmd_end= cmd_msg+cmd_size;
1133
1134
+/* :96 */
1135
+/* 100: */
1136
+#line 1720 "./ratfor.web"
1137
1138
1139
begun= GET_MEM("begun",max_lbls,BEGUN);
1140
1141
+/* :100 */
1142
+#line 1589 "./ratfor.web"
1143
1144
}
1145
1146
+/* :95 */
1147
+/* 97: */
1148
+#line 1603 "./ratfor.web"
1149
1150
1151
SRTN
1152
@@ -1826,11 +2052,15 @@ fmt0= va_arg(arg_ptr,char*);
1153
va_arg(arg_ptr,int);
1154
#endif
1155
1156
+/* 99: */
1157
+#line 1702 "./ratfor.web"
1158
1159
{
1160
static outer_char brkset[3]= "*?";
1161
1162
+#ifndef strpbrk
1163
char*strpbrk();
1164
+#endif
1165
boolean found_abbrev;
1166
1167
1168
@@ -1841,6 +2071,8 @@ if(suppress_cmds){if(found_abbrev)return;}
1169
else{if(!found_abbrev)return;}
1170
}
1171
1172
+/* :99 */
1173
+#line 1633 "./ratfor.web"
1174
1175
1176
if(emit_continue)
1177
@@ -1853,6 +2085,8 @@ CONTINUE(ignore);
1178
if(
1179
nsprintf(cmd_fmt,OC("--- %s \"%s%s\" ---"),3,beginning,cmd_name(begun[rlevel-1].cmd),fmt0)>=(int)(cmd_fsize))OVERFLW("cmd_fmt","");
1180
1181
+/* 98: */
1182
+#line 1657 "./ratfor.web"
1183
1184
{
1185
outer_char HUGE*p;
1186
@@ -1894,14 +2128,19 @@ va_end(arg_ptr);
1187
OUT_MSG(cmd_msg,q);
1188
}
1189
1190
+/* :98 */
1191
+#line 1644 "./ratfor.web"
1192
;
1193
1194
if(Fortran88&&symbolic_label)
1195
{
1196
-id0(symbolic_label);OUT_CHAR(072);
1197
+id0(symbolic_label);OUT_CHAR(':');
1198
}
1199
}
1200
1201
+/* :97 */
1202
+/* 101: */
1203
+#line 1725 "./ratfor.web"
1204
1205
1206
SRTN
1207
@@ -1919,6 +2158,9 @@ begun[rlevel].level= wlevel;
1208
rlevel++;
1209
}
1210
1211
+/* :101 */
1212
+/* 103: */
1213
+#line 1758 "./ratfor.web"
1214
1215
1216
X_FCN
1217
@@ -1940,7 +2182,7 @@ didnt_expand('(',c,"while");
1218
return;
1219
}
1220
};
1221
-pa= SAVE_AFTER(&a,SAVE8,051);
1222
+pa= SAVE_AFTER(&a,SAVE8,')');
1223
1224
1225
out_cmd(YES,'w',OC(""),OC("(%s)"),2,a,pa);
1226
@@ -1971,6 +2213,9 @@ rlevel--;
1227
FREE_MEM(a,"while:a",SAVE8,eight_bits);
1228
}
1229
1230
+/* :103 */
1231
+/* 104: */
1232
+#line 1803 "./ratfor.web"
1233
1234
1235
X_FCN
1236
@@ -1982,7 +2227,7 @@ sixteen_bits a;
1237
if(wlevel==0&&switch_level==0)
1238
{
1239
NOT_LOOP("break"," or \"switch\"");
1240
-COPY_TO(073);
1241
+COPY_TO(';');
1242
return;
1243
}
1244
1245
@@ -2010,6 +2255,9 @@ char_after(';');
1246
rlevel--;
1247
}
1248
1249
+/* :104 */
1250
+/* 105: */
1251
+#line 1845 "./ratfor.web"
1252
1253
1254
SRTN
1255
@@ -2022,6 +2270,9 @@ RAT_error(WARNING,OC("Misplaced keyword: \
1256
\"%s\" must appear inside loop%s; command ignored"),2,id,msg);
1257
}
1258
1259
+/* :105 */
1260
+/* 106: */
1261
+#line 1860 "./ratfor.web"
1262
1263
1264
X_FCN
1265
@@ -2033,7 +2284,7 @@ sixteen_bits a;
1266
if(wlevel==0)
1267
{
1268
NOT_LOOP("next","");
1269
-COPY_TO(073);
1270
+COPY_TO(';');
1271
return;
1272
}
1273
1274
@@ -2058,6 +2309,9 @@ char_after(';');
1275
rlevel--;
1276
}
1277
1278
+/* :106 */
1279
+/* 108: */
1280
+#line 1910 "./ratfor.web"
1281
1282
1283
X_FCN
1284
@@ -2102,7 +2356,7 @@ didnt_expand('(',c,"until");
1285
return;
1286
}
1287
};
1288
-pu= SAVE_AFTER(&u,SAVE8,051);
1289
+pu= SAVE_AFTER(&u,SAVE8,')');
1290
1291
out_cmd(NO,'p',OC(""),OC("(%s)"),2,u,pu);
1292
1293
@@ -2123,6 +2377,9 @@ wlevel--;
1294
rlevel--;
1295
}
1296
1297
+/* :108 */
1298
+/* 110: */
1299
+#line 1981 "./ratfor.web"
1300
1301
X_FCN
1302
x_do(VOID)
1303
@@ -2156,7 +2413,7 @@ BACK_UP
1304
1305
if(!(a==id_while))
1306
{
1307
-id0(id__DO);if(!Fortran88)LABEL(s_next);COPY_2TO(0173,073);NL;
1308
+id0(id__DO);if(!Fortran88)LABEL(s_next);COPY_2TO('{',';');NL;
1309
INDENT;
1310
stmt(TO_OUTPUT,0);
1311
OUTDENT;
1312
@@ -2177,6 +2434,9 @@ wlevel--;
1313
rlevel--;
1314
}
1315
1316
+/* :110 */
1317
+/* 112: */
1318
+#line 2059 "./ratfor.web"
1319
1320
1321
X_FCN
1322
@@ -2199,9 +2459,9 @@ didnt_expand('(',c,"for");
1323
return;
1324
}
1325
};
1326
-pa= SAVE_AFTER(&a,SAVE8,073);
1327
-pb= SAVE_AFTER(&b,SAVE8,073);
1328
-pc= SAVE_AFTER(&c,SAVE8,051);
1329
+pa= SAVE_AFTER(&a,SAVE8,';');
1330
+pb= SAVE_AFTER(&b,SAVE8,';');
1331
+pc= SAVE_AFTER(&c,SAVE8,')');
1332
1333
1334
out_cmd(YES,'f',OC(""),OC("(%s;%s;%s)"),6,a,pa,b,pb,c,pc);
1335
@@ -2237,6 +2497,9 @@ FREE_MEM(b,"for:b",SAVE8,eight_bits);
1336
FREE_MEM(c,"for:c",SAVE8,eight_bits);
1337
}
1338
1339
+/* :112 */
1340
+/* 114: */
1341
+#line 2131 "./ratfor.web"
1342
1343
1344
X_FCN
1345
@@ -2259,6 +2522,9 @@ rlevel--;
1346
}
1347
1348
1349
+/* :114 */
1350
+/* 115: */
1351
+#line 2152 "./ratfor.web"
1352
1353
1354
SRTN
1355
@@ -2278,6 +2544,9 @@ stmt(TO_OUTPUT,0);
1356
OUTDENT;
1357
}
1358
1359
+/* :115 */
1360
+/* 116: */
1361
+#line 2172 "./ratfor.web"
1362
1363
1364
boolean
1365
@@ -2342,6 +2611,9 @@ return NO;
1366
}
1367
}
1368
1369
+/* :116 */
1370
+/* 117: */
1371
+#line 2238 "./ratfor.web"
1372
1373
1374
X_FCN
1375
@@ -2356,6 +2628,9 @@ x_els_if(VOID)
1376
UNEXPECTED("elseif");
1377
}
1378
1379
+/* :117 */
1380
+/* 118: */
1381
+#line 2256 "./ratfor.web"
1382
1383
1384
X_FCN
1385
@@ -2418,6 +2693,9 @@ x_until(VOID)
1386
UNEXPECTED("until");
1387
}
1388
1389
+/* :118 */
1390
+/* 120: */
1391
+#line 2338 "./ratfor.web"
1392
1393
1394
X_FCN
1395
@@ -2435,6 +2713,9 @@ ENDWHERE;
1396
rlevel--;
1397
}
1398
1399
+/* :120 */
1400
+/* 121: */
1401
+#line 2357 "./ratfor.web"
1402
1403
1404
SRTN
1405
@@ -2445,6 +2726,9 @@ CONST outer_char id[]C1("Error message.")
1406
RAT_error(WARNING,OC("Unexpected keyword \"%s\" ignored"),1,id);
1407
}
1408
1409
+/* :121 */
1410
+/* 124: */
1411
+#line 2454 "./ratfor.web"
1412
1413
1414
X_FCN
1415
@@ -2488,7 +2772,7 @@ didnt_expand('(',c,"switch");
1416
return;
1417
}
1418
};
1419
-pa= SAVE_AFTER(&a,SAVE8,051);
1420
+pa= SAVE_AFTER(&a,SAVE8,')');
1421
1422
1423
out_cmd(YES,'s',OC(""),OC("(%s)"),2,a,pa);
1424
@@ -2504,7 +2788,9 @@ if(Fortran88)
1425
{
1426
computed_goto= NO;
1427
}
1428
-else
1429
+else/* 126: */
1430
+#line 2541 "./ratfor.web"
1431
+
1432
{
1433
unsigned short k;
1434
VAL val;
1435
@@ -2573,9 +2859,13 @@ mcases<max_spread)?YES:
1436
not_integer:;
1437
}
1438
1439
+/* :126 */
1440
+#line 2503 "./ratfor.web"
1441
;
1442
1443
-if(computed_goto)
1444
+if(computed_goto)/* 127: */
1445
+#line 2614 "./ratfor.web"
1446
+
1447
{
1448
CASE_TYPE m;
1449
unsigned short k;
1450
@@ -2613,8 +2903,12 @@ rlevel--;
1451
}
1452
}
1453
1454
+/* :127 */
1455
+#line 2505 "./ratfor.web"
1456
+
1457
+else/* 128: */
1458
+#line 2655 "./ratfor.web"
1459
1460
-else
1461
{
1462
boolean case_ended_with_break= NO;
1463
boolean made_temp= YES;
1464
@@ -2634,6 +2928,8 @@ id0(icase);EQUALS;copy_out(a,pa,!macro);NL;
1465
}
1466
1467
for(k= 1;k<=cur_switch.ncases;k++)
1468
+/* 131: */
1469
+#line 2737 "./ratfor.web"
1470
1471
{
1472
cur_case= &cur_switch.cases[k];
1473
@@ -2642,6 +2938,8 @@ if(Fortran88)
1474
if(k==1)s_case= max_stmt++;
1475
else
1476
{
1477
+/* 132: */
1478
+#line 2798 "./ratfor.web"
1479
1480
{
1481
CASE HUGE*last_case= &cur_switch.cases[k-1];
1482
@@ -2653,6 +2951,8 @@ BOOLEAN(MEMCMP(last_case->txt.next-3,break_tokens,3)==0);
1483
else case_ended_with_break= NO;
1484
}
1485
1486
+/* :132 */
1487
+#line 2745 "./ratfor.web"
1488
1489
if(!case_ended_with_break){GOTO(s_case);}
1490
}
1491
@@ -2666,10 +2966,10 @@ id0(id__CASE);
1492
if(cur_case->is_default)id0(id__DEFAULT);
1493
else
1494
{
1495
-if(*cur_case->case_txt.start!=050)LP;
1496
+if(*cur_case->case_txt.start!='(')LP;
1497
copy_out(cur_case->case_txt.start,cur_case->case_txt.next,
1498
!macro);
1499
-if(*(cur_case->case_txt.next-1)!=051)RP;
1500
+if(*(cur_case->case_txt.next-1)!=')')RP;
1501
}
1502
NL;
1503
INDENT;
1504
@@ -2703,6 +3003,8 @@ copy_out(cur_case->txt.start,cur_case->txt.next,!macro);
1505
rlevel--;
1506
}
1507
1508
+/* :131 */
1509
+#line 2673 "./ratfor.web"
1510
1511
1512
if(!Fortran88)
1513
@@ -2715,6 +3017,8 @@ GOTO(s_default);
1514
}
1515
}
1516
1517
+/* :128 */
1518
+#line 2506 "./ratfor.web"
1519
1520
OUTDENT;
1521
1522
@@ -2734,6 +3038,9 @@ switch_level--;
1523
FREE_MEM(a,"switch:a",SAVE8,eight_bits);
1524
}
1525
1526
+/* :124 */
1527
+/* 129: */
1528
+#line 2687 "./ratfor.web"
1529
1530
1531
SRTN
1532
@@ -2754,6 +3061,9 @@ out_cmd(NO,'c',OC(""),OC(" %s:"),2,cur_case->case_txt.start,cur_case->case_txt.n
1533
}
1534
}
1535
1536
+/* :129 */
1537
+/* 130: */
1538
+#line 2710 "./ratfor.web"
1539
1540
1541
STMT_LBL
1542
@@ -2780,6 +3090,9 @@ if(cur_case->is_default)return s_default;
1543
return s_break;
1544
}
1545
1546
+/* :130 */
1547
+/* 133: */
1548
+#line 2810 "./ratfor.web"
1549
1550
X_FCN x_case(VOID)
1551
{
1552
@@ -2791,6 +3104,8 @@ return;
1553
1554
expanding(case_CMD);
1555
1556
+/* 134: */
1557
+#line 2832 "./ratfor.web"
1558
1559
1560
*cur_case->txt.next= '\0';
1561
@@ -2813,10 +3128,14 @@ cur_case->txt.end= cur_case->txt.start+BIG_SAVE8;
1562
1563
cur_case->txt.next= cur_case->txt.start;
1564
1565
+/* :134 */
1566
+#line 2821 "./ratfor.web"
1567
;
1568
-cur_case->case_txt.next= SAVE_AFTER(&cur_case->case_txt.start,SAVE8,072);
1569
+cur_case->case_txt.next= SAVE_AFTER(&cur_case->case_txt.start,SAVE8,':');
1570
cur_case->is_default= NO;
1571
1572
+/* 135: */
1573
+#line 2855 "./ratfor.web"
1574
1575
{
1576
unsigned short k;
1577
@@ -2838,11 +3157,16 @@ break;
1578
}
1579
}
1580
1581
+/* :135 */
1582
+#line 2825 "./ratfor.web"
1583
1584
1585
rlevel--;
1586
}
1587
1588
+/* :133 */
1589
+/* 136: */
1590
+#line 2878 "./ratfor.web"
1591
1592
1593
X_FCN
1594
@@ -2861,6 +3185,8 @@ if(cur_switch.has_default)
1595
RAT_error(ERROR,OC("Only one default allowed per switch"),0);
1596
else cur_switch.has_default= YES;
1597
1598
+/* 134: */
1599
+#line 2832 "./ratfor.web"
1600
1601
1602
*cur_case->txt.next= '\0';
1603
@@ -2883,6 +3209,8 @@ cur_case->txt.end= cur_case->txt.start+BIG_SAVE8;
1604
1605
cur_case->txt.next= cur_case->txt.start;
1606
1607
+/* :134 */
1608
+#line 2895 "./ratfor.web"
1609
;
1610
cur_case->case_txt.next= cur_case->case_txt.start;
1611
cur_case->is_default= YES;
1612
@@ -2893,6 +3221,9 @@ char_after(':');
1613
rlevel--;
1614
}
1615
1616
+/* :136 */
1617
+/* 138: */
1618
+#line 3083 "./ratfor.web"
1619
1620
1621
1622
@@ -2909,7 +3240,7 @@ WHILE()
1623
{
1624
a= next_byte();
1625
1626
-if(!(a==040||a==tab_mark))
1627
+if(!(a==' '||a==tab_mark))
1628
break;
1629
}
1630
1631
@@ -2933,19 +3264,19 @@ id0(id_program);id0(cur_fcn);
1632
1633
if(cur_fcn==id_procedure)
1634
{
1635
-COPY_TO(073);NL;
1636
+COPY_TO(';');NL;
1637
}
1638
else
1639
{
1640
b= next_byte();BACK_UP
1641
-if(b==050)PARENS;
1642
+if(b=='(')PARENS;
1643
NL;
1644
EAT_AUTO_SEMI;
1645
skip_newlines(COPY_COMMENTS);
1646
INDENT;
1647
copy_out(insert.program.start,insert.program.end,!macro);
1648
-out_char(073);
1649
-COPY_2TO(0173,NOT_AFTER);
1650
+out_char(';');
1651
+COPY_2TO('{',NOT_AFTER);
1652
if(psave_buffer>save_buffer)NL;
1653
brace_level++;
1654
stmt(TO_OUTPUT,BRACE_ONLY);
1655
@@ -2975,7 +3306,7 @@ WHILE()
1656
{
1657
a= next_byte();
1658
1659
-if(!(a==040||a==tab_mark))
1660
+if(!(a==' '||a==tab_mark))
1661
break;
1662
}
1663
1664
@@ -2999,19 +3330,19 @@ id0(id_module);id0(cur_fcn);
1665
1666
if(cur_fcn==id_procedure)
1667
{
1668
-COPY_TO(073);NL;
1669
+COPY_TO(';');NL;
1670
}
1671
else
1672
{
1673
b= next_byte();BACK_UP
1674
-if(b==050)PARENS;
1675
+if(b=='(')PARENS;
1676
NL;
1677
EAT_AUTO_SEMI;
1678
skip_newlines(COPY_COMMENTS);
1679
INDENT;
1680
copy_out(insert.module.start,insert.module.end,!macro);
1681
-out_char(073);
1682
-COPY_2TO(0173,NOT_AFTER);
1683
+out_char(';');
1684
+COPY_2TO('{',NOT_AFTER);
1685
if(psave_buffer>save_buffer)NL;
1686
brace_level++;
1687
stmt(TO_OUTPUT,BRACE_ONLY);
1688
@@ -3041,7 +3372,7 @@ WHILE()
1689
{
1690
a= next_byte();
1691
1692
-if(!(a==040||a==tab_mark))
1693
+if(!(a==' '||a==tab_mark))
1694
break;
1695
}
1696
1697
@@ -3065,19 +3396,19 @@ id0(id_subroutine);id0(cur_fcn);
1698
1699
if(cur_fcn==id_procedure)
1700
{
1701
-COPY_TO(073);NL;
1702
+COPY_TO(';');NL;
1703
}
1704
else
1705
{
1706
b= next_byte();BACK_UP
1707
-if(b==050)PARENS;
1708
+if(b=='(')PARENS;
1709
NL;
1710
EAT_AUTO_SEMI;
1711
skip_newlines(COPY_COMMENTS);
1712
INDENT;
1713
copy_out(insert.subroutine.start,insert.subroutine.end,!macro);
1714
-out_char(073);
1715
-COPY_2TO(0173,NOT_AFTER);
1716
+out_char(';');
1717
+COPY_2TO('{',NOT_AFTER);
1718
if(psave_buffer>save_buffer)NL;
1719
brace_level++;
1720
stmt(TO_OUTPUT,BRACE_ONLY);
1721
@@ -3107,7 +3438,7 @@ WHILE()
1722
{
1723
a= next_byte();
1724
1725
-if(!(a==040||a==tab_mark))
1726
+if(!(a==' '||a==tab_mark))
1727
break;
1728
}
1729
1730
@@ -3131,19 +3462,19 @@ id0(id_function);id0(cur_fcn);
1731
1732
if(cur_fcn==id_procedure)
1733
{
1734
-COPY_TO(073);NL;
1735
+COPY_TO(';');NL;
1736
}
1737
else
1738
{
1739
b= next_byte();BACK_UP
1740
-if(b==050)PARENS;
1741
+if(b=='(')PARENS;
1742
NL;
1743
EAT_AUTO_SEMI;
1744
skip_newlines(COPY_COMMENTS);
1745
INDENT;
1746
copy_out(insert.function.start,insert.function.end,!macro);
1747
-out_char(073);
1748
-COPY_2TO(0173,NOT_AFTER);
1749
+out_char(';');
1750
+COPY_2TO('{',NOT_AFTER);
1751
if(psave_buffer>save_buffer)NL;
1752
brace_level++;
1753
stmt(TO_OUTPUT,BRACE_ONLY);
1754
@@ -3173,7 +3504,7 @@ WHILE()
1755
{
1756
a= next_byte();
1757
1758
-if(!(a==040||a==tab_mark))
1759
+if(!(a==' '||a==tab_mark))
1760
break;
1761
}
1762
1763
@@ -3197,19 +3528,19 @@ id0(id_blockdata);id0(cur_fcn);
1764
1765
if(cur_fcn==id_procedure)
1766
{
1767
-COPY_TO(073);NL;
1768
+COPY_TO(';');NL;
1769
}
1770
else
1771
{
1772
b= next_byte();BACK_UP
1773
-if(b==050)PARENS;
1774
+if(b=='(')PARENS;
1775
NL;
1776
EAT_AUTO_SEMI;
1777
skip_newlines(COPY_COMMENTS);
1778
INDENT;
1779
copy_out(insert.blockdata.start,insert.blockdata.end,!macro);
1780
-out_char(073);
1781
-COPY_2TO(0173,NOT_AFTER);
1782
+out_char(';');
1783
+COPY_2TO('{',NOT_AFTER);
1784
if(psave_buffer>save_buffer)NL;
1785
brace_level++;
1786
stmt(TO_OUTPUT,BRACE_ONLY);
1787
@@ -3239,7 +3570,7 @@ WHILE()
1788
{
1789
a= next_byte();
1790
1791
-if(!(a==040||a==tab_mark))
1792
+if(!(a==' '||a==tab_mark))
1793
break;
1794
}
1795
1796
@@ -3263,19 +3594,19 @@ id0(id_interface);id0(cur_fcn);
1797
1798
if(cur_fcn==id_procedure)
1799
{
1800
-COPY_TO(073);NL;
1801
+COPY_TO(';');NL;
1802
}
1803
else
1804
{
1805
b= next_byte();BACK_UP
1806
-if(b==050)PARENS;
1807
+if(b=='(')PARENS;
1808
NL;
1809
EAT_AUTO_SEMI;
1810
skip_newlines(COPY_COMMENTS);
1811
INDENT;
1812
copy_out(insert.interface.start,insert.interface.end,!macro);
1813
-out_char(073);
1814
-COPY_2TO(0173,NOT_AFTER);
1815
+out_char(';');
1816
+COPY_2TO('{',NOT_AFTER);
1817
if(psave_buffer>save_buffer)NL;
1818
brace_level++;
1819
stmt(TO_OUTPUT,BRACE_ONLY);
1820
@@ -3292,6 +3623,9 @@ cur_fcn= NO_FCN;
1821
rlevel--;
1822
}
1823
1824
+/* :138 */
1825
+/* 139: */
1826
+#line 3093 "./ratfor.web"
1827
1828
1829
X_FCN
1830
@@ -3317,6 +3651,9 @@ id0(a);
1831
}
1832
}
1833
1834
+/* :139 */
1835
+/* 141: */
1836
+#line 3135 "./ratfor.web"
1837
1838
1839
X_FCN
1840
@@ -3329,6 +3666,9 @@ NL;
1841
INDENT;
1842
}
1843
1844
+/* :141 */
1845
+/* 143: */
1846
+#line 3210 "./ratfor.web"
1847
1848
1849
1850
@@ -3338,8 +3678,8 @@ sixteen_bits a;
1851
eight_bits b;
1852
1853
b= next_byte();BACK_UP
1854
-if(b==054){}
1855
-else if(b==050)
1856
+if(b==','){}
1857
+else if(b=='(')
1858
{
1859
id0(id_type);
1860
return;
1861
@@ -3373,7 +3713,13 @@ char_after(';');OUT_CHAR(';');
1862
wlevel--;
1863
rlevel--;
1864
}
1865
+/* :143 */
1866
+/* 143: */
1867
+#line 3215 "./ratfor.web"
1868
1869
+/* :143 */
1870
+/* 144: */
1871
+#line 3219 "./ratfor.web"
1872
1873
1874
X_FCN
1875
@@ -3384,7 +3730,7 @@ eight_bits HUGE*return_expr= NULL,HUGE*pr;
1876
expanding(return_CMD);
1877
1878
1879
-if((pr= SAVE_AFTER(&return_expr,SAVE8,073))>return_expr)
1880
+if((pr= SAVE_AFTER(&return_expr,SAVE8,';'))>return_expr)
1881
{
1882
if(!is_function)
1883
1884
@@ -3403,6 +3749,9 @@ rlevel--;
1885
FREE_MEM(return_expr,"return_expr",SAVE8,eight_bits);
1886
}
1887
1888
+/* :144 */
1889
+/* 145: */
1890
+#line 3250 "./ratfor.web"
1891
1892
1893
X_FCN
1894
@@ -3434,7 +3783,7 @@ return;
1895
}
1896
};
1897
1898
-pI= SAVE_AFTER(&I,SAVE8,054);
1899
+pI= SAVE_AFTER(&I,SAVE8,',');
1900
1901
if(TOKEN1(*I))
1902
{
1903
@@ -3444,13 +3793,13 @@ expansion aborted"),0);
1904
return;
1905
}
1906
1907
-pImin= SAVE_AFTER(&Imin,SAVE8,054);
1908
+pImin= SAVE_AFTER(&Imin,SAVE8,',');
1909
imin= neval(Imin,pImin);
1910
1911
-pImax= SAVE_AFTER(&Imax,SAVE8,054);
1912
+pImax= SAVE_AFTER(&Imax,SAVE8,',');
1913
imax= neval(Imax,pImax);
1914
1915
-pDi= SAVE_AFTER(&Di,SAVE8,051);
1916
+pDi= SAVE_AFTER(&Di,SAVE8,')');
1917
di= neval(Di,pDi);
1918
1919
EAT_AUTO_SEMI;
1920
@@ -3458,7 +3807,7 @@ skip_newlines(NO);
1921
1922
c= next_byte();
1923
1924
-if(!(c==0173||c==050))
1925
+if(!(c=='{'||c=='('))
1926
{
1927
1928
RAT_error(ERROR,OC("Was expecting '{' or '(', not '%c', after $DO(); \
1929
@@ -3469,7 +3818,7 @@ return;
1930
1931
1932
mac_protected= YES;
1933
-ptxt= SAVE_AFTER(&txt,BIG_SAVE8,c==0173?0175:051);
1934
+ptxt= SAVE_AFTER(&txt,BIG_SAVE8,c=='{'?'}':')');
1935
mac_protected= NO;
1936
1937
n= name_dir+IDENTIFIER(*I,*(I+1));
1938
@@ -3507,6 +3856,9 @@ FREE_MEM(Imax,"unroll:Imax",SAVE8,eight_bits);
1939
FREE_MEM(txt,"unroll:txt",SAVE8,eight_bits);
1940
}
1941
1942
+/* :145 */
1943
+/* 146: */
1944
+#line 3347 "./ratfor.web"
1945
1946
1947
SRTN
1948
@@ -3526,10 +3878,15 @@ insert.interface.start= insert.interface.end=
1949
GET_MEM("interface",2,eight_bits);
1950
}
1951
1952
+/* :146 */
1953
+#line 42 "./ratfor.web"
1954
1955
#endif
1956
1957
+#line 1 "./typedefs.hweb"
1958
1959
1960
+#line 8 "./formats.hweb"
1961
1962
+/* :1 */
1963
1964
--
1965
1.7.7.1
1966
Loggerhead is a web-based interface for Breezy
Version: 2.0.1