« back to all changes in this revision
Viewing changes to debian/patches/20-Web--common.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/20-Web--common.c.patch
1
From ba576b3bb5d3003325a5a1bfb48a7a5d8c74934a Mon Sep 17 00:00:00 2001
2
From: Jari Aalto <jari.aalto@cante.net>
3
Date: Fri, 18 Nov 2011 15:31:45 +0200
4
Subject: [PATCH] Web/common.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/common.c | 1776 ++++++++++++++++++++++++++++++++++++++++++++++++++--------
12
1 files changed, 1528 insertions(+), 248 deletions(-)
13
14
diff --git a/Web/common.c b/Web/common.c
15
index 41bad7d..65c8906 100644
16
--- a/Web/common.c
17
+++ b/Web/common.c
18
@@ -1,15 +1,15 @@
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/common -A -# --F -= 1.62/Web/common.c"\
23
- RUN TIME: "Friday, September 25, 1998 at 8:02."\
24
- WEB FILE: "Web/common.web"\
25
+ FTANGLE v1.61,\
26
+ created with UNIX on "Friday, September 25, 1998 at 8:02." \
27
+ COMMAND LINE: "./ftangle ./common -uCONFIG -mCONFIG -mGCC -= common.c"\
28
+ RUN TIME: "Tuesday, December 14, 1999 at 0:39."\
29
+ WEB FILE: "./common.web"\
30
CHANGE FILE: (none)
31
#endif
32
#define _COMMON_h
33
#define COMMON_FCNS_ \
34
35
-#define VERSION "1.61"
36
+#define VERSION "1.62"
37
#define RELEASE_DATE "September 23, 1998" \
38
39
#define normal 0
40
@@ -94,17 +94,17 @@ its present value of %lu characters."),buf_size); \
41
42
#define MARK(type,delim,len)mark_cmnt(type,delim,len,p) \
43
44
-#define BLANK_OUT(d)MEMSET((d)->pos,040,(d)->len) \
45
+#define BLANK_OUT(d)MEMSET((d)->pos,' ',(d)->len) \
46
47
#define is_C_style_cmnt (C_style_cmnt= ((short_cmnt= Cpp_comments&&*lp== \
48
-057&&*(lp+1)==057))||(*lp==057&&*(lp+1)==052)) \
49
+'/'&&*(lp+1)=='/'))||(*lp=='/'&&*(lp+1)=='*')) \
50
51
#define start_comment (is_C_style_cmnt||(*lp==(char)begin_comment0) \
52
||(*lp==(char)begin_comment1)) \
53
54
#define start_Rcomment ((R_style_cmnt= BOOLEAN(*lp==cmnt_char&& \
55
*(lp+1)!=cmnt_char&&*(lp-1)!=cmnt_char&& \
56
-!(*(lp-1)==0100)))||is_C_style_cmnt) \
57
+!(*(lp-1)=='@')))||is_C_style_cmnt) \
58
59
#define k0 cur0_prms->K0
60
#define found_at cur0_prms->Found_at
61
@@ -136,15 +136,15 @@ if(*end==BP_MARKER&&np!=npmax)end= ((BP*)end)->byte_start \
62
63
#define hash_size 353 \
64
65
-#define stringg (eight_bits)02 \
66
+#define stringg (eight_bits)'\2' \
67
68
-#define constant (eight_bits)03
69
+#define constant (eight_bits)'\3'
70
#define begin_Xmeta or_or
71
#define end_Xmeta star_star
72
-#define cdir (eight_bits)06
73
-#define colon_colon (eight_bits)011 \
74
+#define cdir (eight_bits)'\6'
75
+#define colon_colon (eight_bits)'\11' \
76
77
-#define join (eight_bits)0177 \
78
+#define join (eight_bits)'\177' \
79
80
#define ID0 0200
81
#define TOKEN1(a)((a)<ID0) \
82
@@ -167,84 +167,84 @@ if(*end==BP_MARKER&&np!=npmax)end= ((BP*)end)->byte_start \
83
84
#define ignore 0 \
85
86
-#define begin_comment0 (eight_bits)0376
87
-#define begin_comment1 (eight_bits)0375 \
88
+#define begin_comment0 (eight_bits)'\xFE'
89
+#define begin_comment1 (eight_bits)'\xFD' \
90
91
-#define module_number (eight_bits)0201
92
-#define identifier (eight_bits)0202
93
-#define id_keyword (eight_bits)0203 \
94
+#define module_number (eight_bits)'\201'
95
+#define identifier (eight_bits)'\202'
96
+#define id_keyword (eight_bits)'\203' \
97
98
-#define L_switch (eight_bits)0257
99
-#define begin_FORTRAN (eight_bits)0260
100
-#define begin_RATFOR (eight_bits)0261
101
-#define begin_C (eight_bits)0262
102
-#define begin_LITERAL (eight_bits)0263 \
103
+#define L_switch (eight_bits)'\257'
104
+#define begin_FORTRAN (eight_bits)'\260'
105
+#define begin_RATFOR (eight_bits)'\261'
106
+#define begin_C (eight_bits)'\262'
107
+#define begin_LITERAL (eight_bits)'\263' \
108
109
-#define verbatim (eight_bits)0264 \
110
+#define verbatim (eight_bits)'\264' \
111
\
112
113
-#define invisible_cmnt (eight_bits)0265
114
-#define compiler_directive (eight_bits)0266
115
-#define Compiler_Directive (eight_bits)0267 \
116
+#define invisible_cmnt (eight_bits)'\265'
117
+#define compiler_directive (eight_bits)'\266'
118
+#define Compiler_Directive (eight_bits)'\267' \
119
120
-#define keyword_name (eight_bits)0270 \
121
+#define keyword_name (eight_bits)'\270' \
122
123
-#define no_index (eight_bits)0300
124
-#define yes_index (eight_bits)0301 \
125
+#define no_index (eight_bits)'\300'
126
+#define yes_index (eight_bits)'\301' \
127
128
-#define ascii_constant (eight_bits)0302
129
-#define begin_vcmnt (eight_bits)0303
130
-#define big_line_break (eight_bits)0304 \
131
+#define ascii_constant (eight_bits)'\302'
132
+#define begin_vcmnt (eight_bits)'\303'
133
+#define big_line_break (eight_bits)'\304' \
134
135
-#define begin_bp (eight_bits)0305
136
-#define insert_bp (eight_bits)0306 \
137
+#define begin_bp (eight_bits)'\305'
138
+#define insert_bp (eight_bits)'\306' \
139
140
-#define begin_meta (eight_bits)017
141
-#define end_meta (eight_bits)027 \
142
+#define begin_meta (eight_bits)'\17'
143
+#define end_meta (eight_bits)'\27' \
144
145
-#define TeX_string (eight_bits)0307
146
-#define xref_roman (eight_bits)0310
147
-#define xref_typewriter (eight_bits)0311
148
-#define xref_wildcard (eight_bits)0312 \
149
+#define TeX_string (eight_bits)'\307'
150
+#define xref_roman (eight_bits)'\310'
151
+#define xref_typewriter (eight_bits)'\311'
152
+#define xref_wildcard (eight_bits)'\312' \
153
154
-#define control_text (eight_bits)0313 \
155
+#define control_text (eight_bits)'\313' \
156
157
-#define begin_nuweb (eight_bits)0314
158
-#define no_mac_expand (eight_bits)0315
159
-#define set_line_info (eight_bits)0316
160
-#define short_fcn (eight_bits)0317 \
161
+#define begin_nuweb (eight_bits)'\314'
162
+#define no_mac_expand (eight_bits)'\315'
163
+#define set_line_info (eight_bits)'\316'
164
+#define short_fcn (eight_bits)'\317' \
165
166
-#define formatt (eight_bits)0320 \
167
+#define formatt (eight_bits)'\320' \
168
169
-#define limbo_text (eight_bits)0323
170
-#define op_def (eight_bits)0324
171
-#define macro_def (eight_bits)0325 \
172
+#define limbo_text (eight_bits)'\323'
173
+#define op_def (eight_bits)'\324'
174
+#define macro_def (eight_bits)'\325' \
175
176
-#define ignore_defn (eight_bits)0327 \
177
+#define ignore_defn (eight_bits)'\327' \
178
179
-#define new_output_file (eight_bits)0331 \
180
+#define new_output_file (eight_bits)'\331' \
181
182
-#define definition (eight_bits)0332
183
-#define undefinition (eight_bits)0333
184
-#define WEB_definition (eight_bits)0334 \
185
+#define definition (eight_bits)'\332'
186
+#define undefinition (eight_bits)'\333'
187
+#define WEB_definition (eight_bits)'\334' \
188
189
-#define m_ifdef (eight_bits)0335
190
-#define m_ifndef (eight_bits)0336
191
-#define m_if (eight_bits)0337
192
-#define m_else (eight_bits)0340
193
-#define m_elif (eight_bits)0341
194
-#define m_endif (eight_bits)0342
195
-#define m_for (eight_bits)0343
196
-#define m_endfor (eight_bits)0344
197
-#define m_line (eight_bits)0345
198
-#define m_undef (eight_bits)0346 \
199
+#define m_ifdef (eight_bits)'\335'
200
+#define m_ifndef (eight_bits)'\336'
201
+#define m_if (eight_bits)'\337'
202
+#define m_else (eight_bits)'\340'
203
+#define m_elif (eight_bits)'\341'
204
+#define m_endif (eight_bits)'\342'
205
+#define m_for (eight_bits)'\343'
206
+#define m_endfor (eight_bits)'\344'
207
+#define m_line (eight_bits)'\345'
208
+#define m_undef (eight_bits)'\346' \
209
210
-#define end_of_buffer (eight_bits)0347 \
211
+#define end_of_buffer (eight_bits)'\347' \
212
213
-#define begin_code (eight_bits)0350
214
-#define module_name (eight_bits)0351 \
215
+#define begin_code (eight_bits)'\350'
216
+#define module_name (eight_bits)'\351' \
217
218
-#define new_module (eight_bits)0352 \
219
+#define new_module (eight_bits)'\352' \
220
221
#define MAX_ERR_BUF 160 \
222
223
@@ -317,9 +317,13 @@ if(mp+(n)>buf_end) \
224
OVERFLW("Keyword buffer","") \
225
226
#define CUR_QUOTE ((eight_bits)(single_quote||(!double_quote&&R77_or_F)? \
227
-047:042)) \
228
+'\'':'"')) \
229
230
+/* 2: */
231
+#line 44 "./common.web"
232
233
+/* 5: */
234
+#line 16 "./typedefs.hweb"
235
236
237
#ifndef part
238
@@ -331,6 +335,9 @@ OVERFLW("Keyword buffer","") \
239
#endif
240
241
242
+/* :5 */
243
+/* 6: */
244
+#line 42 "./typedefs.hweb"
245
246
247
#if(part == 0 || part == 1)
248
@@ -344,19 +351,32 @@ OVERFLW("Keyword buffer","") \
249
#endif
250
251
252
+/* :6 */
253
+#line 45 "./common.web"
254
255
256
+/* 34: */
257
+#line 440 "./typedefs.hweb"
258
259
#include "typedefs.h"
260
261
262
263
+#line 65 "./common.web"
264
265
+#line 8 "./xrefs.hweb"
266
267
+/* :34 */
268
+/* 48: */
269
+#line 72 "./common.web"
270
271
#include "map.h"
272
273
+/* :48 */
274
+#line 47 "./common.web"
275
276
+/* 50: */
277
+#line 84 "./common.web"
278
279
280
#ifdef ibmpc
281
@@ -366,6 +386,9 @@ extern unsigned _stklen= STKLEN;
282
#endif
283
284
285
+/* :50 */
286
+/* 52: */
287
+#line 184 "./common.web"
288
289
290
IN_COMMON ASCII xord[last_text_char+1];
291
@@ -374,17 +397,26 @@ ASCII xxord[last_text_char+1];
292
#endif
293
IN_COMMON outer_char xchr[0200];
294
295
+/* :52 */
296
+/* 65: */
297
+#line 475 "./common.web"
298
299
300
extern DOTS dots0[],mcmds[];
301
302
303
+/* :65 */
304
+/* 66: */
305
+#line 483 "./common.web"
306
307
308
IN_COMMON BUF_SIZE delta_dots;
309
IN_COMMON BUF_SIZE ndots;
310
IN_COMMON DOTS HUGE*dots,HUGE*dots_end,HUGE*next_dot;
311
312
+/* :66 */
313
+/* 72: */
314
+#line 661 "./common.web"
315
316
317
IN_COMMON BUF_SIZE buf_size;
318
@@ -408,20 +440,32 @@ ASCII HUGE*pos;
319
IN_COMMON CMNT_DATA posns[CMNT_MARKS],HUGE*pcmnt CSET(posns),
320
HUGE*pcmnt_end CSET(posns+CMNT_MARKS);
321
322
+/* :72 */
323
+/* 96: */
324
+#line 1504 "./common.web"
325
326
327
IN_COMMON ASCII HUGE*pk;
328
329
+/* :96 */
330
+/* 98: */
331
+#line 1549 "./common.web"
332
333
334
IN_COMMON ASCII HUGE*lp,HUGE*semi_pos;
335
IN_COMMON boolean found_text,text,C_style_cmnt,short_cmnt,R_style_cmnt;
336
337
+/* :98 */
338
+/* 103: */
339
+#line 1693 "./common.web"
340
341
342
IN_COMMON ASCII HUGE*last_pos;
343
IN_COMMON ASCII cmnt_char;
344
345
+/* :103 */
346
+/* 130: */
347
+#line 2443 "./common.web"
348
349
350
IN_COMMON sixteen_bits module_count;
351
@@ -440,6 +484,9 @@ IN_COMMON boolean no_more_input CSET(NO);
352
353
354
355
+/* :130 */
356
+/* 162: */
357
+#line 3325 "./common.web"
358
359
360
361
@@ -512,16 +559,25 @@ IN_COMMON boolean no_more_input CSET(NO);
362
#endif
363
364
365
+/* :162 */
366
+/* 171: */
367
+#line 3678 "./common.web"
368
369
370
IN_COMMON name_pointer name_ptr;
371
IN_COMMON ASCII HUGE*byte_ptr;
372
373
+/* :171 */
374
+/* 214: */
375
+#line 4962 "./common.web"
376
377
378
IN_COMMON ASCII HUGE*pformat,HUGE*pdefault,HUGE*pdata,
379
HUGE*pbp,HUGE*pinclude,HUGE*ppragma,HUGE*pcontains;
380
381
+/* :214 */
382
+/* 216: */
383
+#line 4996 "./common.web"
384
385
386
IN_COMMON outer_char outp_buf[MAX_OUTPUT_LINE_LENGTH];
387
@@ -536,17 +592,26 @@ IN_COMMON outer_char prefix_end_char CSET(PREFIX_END_CHAR);
388
389
IN_COMMON boolean all_std CSET(NO);
390
391
+/* :216 */
392
+/* 263: */
393
+#line 6559 "./common.web"
394
395
396
IN_COMMON STMT_LBL max_stmt CSET(STARTING_DO_NUM);
397
IN_COMMON int not;
398
399
+/* :263 */
400
+/* 283: */
401
+#line 7419 "./common.web"
402
403
404
IN_COMMON double g_ratio CSET(G_RATIO);
405
IN_COMMON unsigned short marginal_cases CSET(MARGINAL_CASES);
406
IN_COMMON CASE_TYPE max_spread CSET(MAX_SPREAD);
407
408
+/* :283 */
409
+/* 335: */
410
+#line 8869 "./common.web"
411
412
413
IN_COMMON CONST char*day[]
414
@@ -562,6 +627,9 @@ IN_COMMON CONST char*month[]
415
#endif
416
;
417
418
+/* :335 */
419
+/* 338: */
420
+#line 8943 "./common.web"
421
422
423
#if TIMING
424
@@ -593,7 +661,11 @@ return t1-t0;
425
426
#endif
427
428
+/* :338 */
429
+#line 48 "./common.web"
430
431
+/* 37: */
432
+#line 79 "./xrefs.hweb"
433
434
435
typedef struct xref_info0
436
@@ -609,12 +681,18 @@ typedef ASCII HUGE*XREF_POINTER;
437
438
439
440
+/* :37 */
441
+/* 39: */
442
+#line 27 "./tokens.hweb"
443
444
445
typedef sixteen_bits Token;
446
typedef Token HUGE*token_pointer;
447
typedef token_pointer HUGE*text_pointer;
448
449
+/* :39 */
450
+/* 41: */
451
+#line 44 "./scraps.hweb"
452
453
454
typedef struct
455
@@ -626,15 +704,23 @@ eight_bits mathness;
456
union
457
{
458
text_pointer Trans;
459
+/* 49: */
460
+#line 77 "./common.web"
461
462
463
+/* :49 */
464
+#line 55 "./scraps.hweb"
465
466
}trans_plus;
467
}scrap;
468
469
typedef scrap HUGE*scrap_pointer;
470
471
+/* :41 */
472
+/* 46: */
473
+#line 46 "./stacks.hweb"
474
475
+#line 47 "./stacks.hweb"
476
477
typedef struct{
478
eight_bits HUGE*end_field;
479
@@ -649,6 +735,9 @@ eight_bits HUGE*macro_buf,HUGE*mp,HUGE*macro_buf_end;
480
481
typedef output_state HUGE*stack_pointer;
482
483
+/* :46 */
484
+/* 169: */
485
+#line 19 "./trunc.hweb"
486
487
488
#if(0)
489
@@ -679,7 +768,11 @@ ASCII HUGE*id,HUGE*id_end;
490
BP HUGE*first,HUGE*last;
491
struct Trunc HUGE*next;
492
}TRUNC;
493
+#line 3628 "./common.web"
494
495
+/* :169 */
496
+/* 237: */
497
+#line 5713 "./common.web"
498
499
500
typedef struct
501
@@ -694,24 +787,38 @@ IN_COMMON SECT_INFO HUGE*sect_info;
502
IN_COMMON outer_char HUGE*HUGE*mod_names;
503
IN_COMMON outer_char HUGE*HUGE*next_mod_name,HUGE*HUGE*last_mod_name;
504
505
+/* :237 */
506
+#line 49 "./common.web"
507
508
+/* 74: */
509
+#line 761 "./common.web"
510
511
512
IN_COMMON long start_line CSET(1);
513
514
IN_COMMON long end_line CSET(LONG_MAX);
515
516
+/* :74 */
517
+/* 136: */
518
+#line 2576 "./common.web"
519
520
521
IN_COMMON int stored_line_length;
522
IN_COMMON ASCII HUGE*stored_line;
523
524
+/* :136 */
525
+/* 138: */
526
+#line 2624 "./common.web"
527
528
529
IN_COMMON outer_char last_include_file[MAX_FILE_NAME_LENGTH]CSET(""),
530
this_include_file[MAX_FILE_NAME_LENGTH]CSET("");
531
532
+/* :138 */
533
+#line 50 "./common.web"
534
535
+/* 33: */
536
+#line 426 "./typedefs.hweb"
537
538
539
540
@@ -725,10 +832,16 @@ this_include_file[MAX_FILE_NAME_LENGTH]CSET("");
541
542
543
544
+/* :33 */
545
+/* 36: */
546
+#line 47 "./xrefs.hweb"
547
548
549
EXTERN boolean change_exists;
550
551
+/* :36 */
552
+/* 38: */
553
+#line 111 "./xrefs.hweb"
554
555
556
#ifndef COMMON_FCNS_
557
@@ -746,7 +859,11 @@ EXTERN boolean defd_switch;
558
EXTERN NAME_TYPE defd_type SET(NEVER_DEFINED);
559
EXTERN boolean typd_switch;
560
EXTERN boolean index_short;
561
+#line 8 "./tokens.hweb"
562
563
+/* :38 */
564
+/* 40: */
565
+#line 37 "./tokens.hweb"
566
567
568
EXTERN long max_toks;
569
@@ -764,7 +881,11 @@ EXTERN text_pointer text_ptr;
570
571
EXTERN token_pointer mx_tok_ptr;
572
EXTERN text_pointer mx_text_ptr;
573
+#line 8 "./scraps.hweb"
574
575
+/* :40 */
576
+/* 42: */
577
+#line 67 "./scraps.hweb"
578
579
580
EXTERN long max_scraps;
581
@@ -779,6 +900,9 @@ EXTERN scrap_pointer hi_ptr;
582
583
EXTERN scrap_pointer mx_scr_ptr;
584
585
+/* :42 */
586
+/* 47: */
587
+#line 82 "./stacks.hweb"
588
589
590
EXTERN output_state cur_state;
591
@@ -788,12 +912,19 @@ EXTERN long stck_size;
592
EXTERN output_state HUGE*stack;
593
EXTERN stack_pointer stck_end;
594
EXTERN stack_pointer stck_ptr;
595
+#line 70 "./common.web"
596
597
+/* :47 */
598
+/* 91: */
599
+#line 1356 "./common.web"
600
601
602
IN_COMMON ASCII string_char;
603
IN_COMMON boolean in_char_string;
604
605
+/* :91 */
606
+/* 121: */
607
+#line 2196 "./common.web"
608
609
610
IN_COMMON INPUT_PARAMS change_params0
611
@@ -802,35 +933,55 @@ IN_COMMON INPUT_PARAMS change_params0
612
#endif
613
;
614
615
+/* :121 */
616
+/* 140: */
617
+#line 2695 "./common.web"
618
619
620
IN_COMMON BUF_SIZE max_ifiles;
621
IN_COMMON outer_char**ifiles;
622
IN_COMMON int num_ifiles;
623
624
+/* :140 */
625
+/* 150: */
626
+#line 3051 "./common.web"
627
628
629
IN_COMMON BUF_SIZE max_keywords;
630
IN_COMMON RCS HUGE*rcs;
631
IN_COMMON unsigned num_keywords;
632
633
+/* :150 */
634
+/* 155: */
635
+#line 10 "./mem.hweb"
636
637
+#line 11 "./mem.hweb"
638
639
#ifndef C_TYPES
640
#include SFILE(y_type.h)
641
#endif
642
+#line 3163 "./common.web"
643
644
+/* :155 */
645
+/* 156: */
646
+#line 3168 "./common.web"
647
648
649
IN_COMMON BUF_SIZE total_mem CSET(0);
650
651
IN_COMMON BUF_SIZE max_mem CSET(0);
652
653
+/* :156 */
654
+/* 161: */
655
+#line 3312 "./common.web"
656
657
658
IN_COMMON boolean show_mem CSET(SHOW_MEM);
659
IN_COMMON BUF_SIZE show_size CSET(10000);
660
661
+/* :161 */
662
+/* 163: */
663
+#line 3398 "./common.web"
664
665
666
IN_COMMON MEM mem[]
667
@@ -914,6 +1065,9 @@ DFLT_MAX_TOKS_W,UL(65536L)},
668
669
IN_COMMON size_t sizeof_mem CSET(sizeof(mem));
670
671
+/* :163 */
672
+/* 182: */
673
+#line 3895 "./common.web"
674
675
676
IN_COMMON boolean info_option CSET(NO);
677
@@ -926,6 +1080,9 @@ IN_COMMON RSRVD rsrvd
678
IN_COMMON outer_char HUGE*style_args CSET(NULL);
679
IN_STYLE ASCII HUGE*at_codes;
680
681
+/* :182 */
682
+/* 197: */
683
+#line 4204 "./common.web"
684
685
686
IN_COMMON CONST char*origin_name[]
687
@@ -934,12 +1091,18 @@ IN_COMMON CONST char*origin_name[]
688
#endif
689
;
690
691
+/* :197 */
692
+/* 218: */
693
+#line 5044 "./common.web"
694
695
696
IN_COMMON boolean found_web,found_change;
697
IN_COMMON outer_char wbflnm0[MAX_FILE_NAME_LENGTH];
698
699
700
+/* :218 */
701
+/* 221: */
702
+#line 5147 "./common.web"
703
704
705
IN_COMMON outer_char
706
@@ -952,51 +1115,79 @@ IN_COMMON outer_char HUGE*HUGE*pn0;
707
IN_COMMON outer_char HUGE*HUGE*pn1;
708
IN_COMMON FILE*ini_file CSET(NULL);
709
710
+/* :221 */
711
+/* 226: */
712
+#line 5366 "./common.web"
713
714
715
IN_COMMON INCL_PATHS incl;
716
IN_COMMON INCL_PATHS hdr_incl;
717
718
+/* :226 */
719
+/* 243: */
720
+#line 5912 "./common.web"
721
722
723
jmp_buf top_of_get_arg;
724
725
+/* :243 */
726
+/* 249: */
727
+#line 6138 "./common.web"
728
729
730
IN_COMMON outer_char style_file_name[MAX_FILE_NAME_LENGTH]
731
CSET(STYLE_FILE_NAME);
732
IN_COMMON boolean renamed_style CSET(NO);
733
734
+/* :249 */
735
+/* 252: */
736
+#line 6175 "./common.web"
737
738
739
IN_COMMON boolean doing_cmd_line;
740
IN_COMMON boolean cmd_prms;
741
742
+/* :252 */
743
+/* 291: */
744
+#line 7691 "./common.web"
745
746
747
IN_COMMON ASCII HUGE*fbuffer,HUGE*flimit,HUGE*floc;
748
749
750
+/* :291 */
751
+/* 295: */
752
+#line 7760 "./common.web"
753
754
755
IN_COMMON BUF_SIZE starting_memory CSET(ULONG_MAX);
756
757
758
+/* :295 */
759
+/* 308: */
760
+#line 8096 "./common.web"
761
762
763
IN_COMMON outer_char*extra_args;
764
765
IN_COMMON boolean mod_warning_flag CSET(NEVER_USED);
766
767
+/* :308 */
768
+/* 348: */
769
+#line 9221 "./common.web"
770
771
772
IN_COMMON boolean single_quote CSET(NO),double_quote CSET(NO);
773
774
+/* :348 */
775
+#line 51 "./common.web"
776
777
778
779
780
#if(part != 2)
781
+/* 53: */
782
+#line 204 "./common.web"
783
784
785
SRTN
786
@@ -1011,6 +1202,8 @@ translate_ASCII= YES;
787
788
is_Rat_present();
789
790
+/* 54: */
791
+#line 243 "./common.web"
792
793
{
794
STRNCPY(xchr," !\"#$%&'()*+,-./0123456789\
795
@@ -1019,11 +1212,17 @@ sizeof(xchr));
796
797
798
xchr[tab_mark]= '\t';
799
-xchr[012]= '\n';
800
+xchr['\n']= '\n';
801
802
+/* 60: */
803
+#line 411 "./common.web"
804
805
806
+/* :60 */
807
+#line 253 "./common.web"
808
;
809
+/* 55: */
810
+#line 260 "./common.web"
811
812
{
813
int i;
814
@@ -1032,9 +1231,9 @@ int i;
815
816
for(i= first_text_char;i<=last_text_char;i++)
817
{
818
-xord[i]= 040;
819
+xord[i]= ' ';
820
#ifdef scramble_ASCII
821
-xxord[i]= 040;
822
+xxord[i]= ' ';
823
#endif
824
}
825
826
@@ -1058,10 +1257,16 @@ xord[(eight_bits)XCHR_[i]]= (ASCII)i;
827
#endif
828
}
829
830
+/* :55 */
831
+#line 254 "./common.web"
832
;
833
}
834
835
+/* :54 */
836
+#line 218 "./common.web"
837
838
+/* 212: */
839
+#line 4729 "./common.web"
840
841
{
842
int k;
843
@@ -1069,34 +1274,41 @@ int k;
844
for(k= 0;k<128;k++)
845
TeX[k]= TeX_other;
846
847
-for(k= 0101;k<=0132;k++)
848
+for(k= 'A';k<='Z';k++)
849
TeX[k]= TeX_letter;
850
851
-for(k= 0141;k<=0172;k++)
852
+for(k= 'a';k<='z';k++)
853
TeX[k]= TeX_letter;
854
855
-TeX[0134]= TeX_escape;
856
-TeX[0173]= TeX_bgroup;
857
-TeX[0175]= TeX_egroup;
858
-TeX[044]= TeX_math_shift;
859
-TeX[046]= TeX_alignment_tab;
860
-TeX[012]= TeX_eol;
861
-TeX[043]= TeX_parameter;
862
-TeX[0136]= TeX_superscript;
863
-TeX[0137]= TeX_subscript;
864
+TeX['\\']= TeX_escape;
865
+TeX['{']= TeX_bgroup;
866
+TeX['}']= TeX_egroup;
867
+TeX['$']= TeX_math_shift;
868
+TeX['&']= TeX_alignment_tab;
869
+TeX['\n']= TeX_eol;
870
+TeX['#']= TeX_parameter;
871
+TeX['^']= TeX_superscript;
872
+TeX['_']= TeX_subscript;
873
TeX[0]= TeX_ignored;
874
-TeX[040]= TeX[tab_mark]= TeX_space;
875
-TeX[0176]= TeX_active;
876
-TeX[045]= TeX_comment;
877
+TeX[' ']= TeX[tab_mark]= TeX_space;
878
+TeX['~']= TeX_active;
879
+TeX['%']= TeX_comment;
880
TeX[0177]= TeX_invalid;
881
}
882
883
+/* :212 */
884
+#line 219 "./common.web"
885
;
886
+/* 124: */
887
+#line 2221 "./common.web"
888
889
{
890
ALLOC(INPUT_PRMS,prms,"id",max_include_depth,1);
891
}
892
893
+/* :124 */
894
+/* 174: */
895
+#line 3708 "./common.web"
896
897
898
hash= GET_MEM("hash",hash_size,name_pointer);
899
@@ -1104,6 +1316,9 @@ hash_end= hash+hash_size-1;
900
901
for(h= hash;h<=hash_end;*h++= NULL);
902
903
+/* :174 */
904
+/* 215: */
905
+#line 4969 "./common.web"
906
907
{
908
pformat= x__to_ASCII(OC("format"));
909
@@ -1121,19 +1336,29 @@ conv_dot(dots0);
910
conv_dot(mcmds);
911
}
912
913
+/* :215 */
914
+/* 262: */
915
+#line 6551 "./common.web"
916
917
918
SET_VAL(mbuf_size,"mb");
919
920
+/* :262 */
921
+/* 300: */
922
+#line 7865 "./common.web"
923
924
{
925
init_buf(&sput_buf,10);
926
init_buf(&c_buf,10);
927
}
928
929
+/* :300 */
930
+#line 220 "./common.web"
931
;
932
predefine_macros();
933
934
+/* 213: */
935
+#line 4761 "./common.web"
936
937
{
938
params.uses= 0;
939
@@ -1331,10 +1556,16 @@ translate_ASCII= YES;
940
global_params= params;
941
}
942
943
+/* :213 */
944
+#line 223 "./common.web"
945
946
947
+/* 325: */
948
+#line 8594 "./common.web"
949
950
{
951
+/* 326: */
952
+#line 8619 "./common.web"
953
954
{
955
int k;
956
@@ -1348,6 +1579,8 @@ for(k= 0;k<NUM_LANGUAGES;k++)
957
new_fname(params.outp_nm+k,NULL,NULL);
958
}
959
960
+/* :326 */
961
+#line 8596 "./common.web"
962
963
scan_args();
964
965
@@ -1356,6 +1589,8 @@ if(found_web)
966
{
967
ini_input_prms(WEB_FILE,(outer_char HUGE*)"",ABORT_ON_ERROR);
968
969
+/* 328: */
970
+#line 8671 "./common.web"
971
972
{
973
outer_char temp1[100],temp2[1000],
974
@@ -1393,6 +1628,8 @@ STRCAT(cmd_ln_buf,temp1);
975
STRCAT(cmd_ln_buf,temp2);
976
}
977
978
+/* :328 */
979
+#line 8604 "./common.web"
980
;
981
982
if(program==weave)
983
@@ -1407,6 +1644,8 @@ ini_language(XORD(*LANGUAGE_CODE(GLOBAL_LANGUAGE)));
984
global_params= params;
985
}
986
987
+/* :325 */
988
+#line 225 "./common.web"
989
;
990
991
#if 0
992
@@ -1414,6 +1653,8 @@ banner();
993
#endif
994
995
996
+/* 67: */
997
+#line 490 "./common.web"
998
999
{
1000
DOTS HUGE*d;
1001
@@ -1432,6 +1673,9 @@ confusion(OC("dots allocation"),OC("Invalid dot code"));
1002
}
1003
}
1004
1005
+/* :67 */
1006
+/* 125: */
1007
+#line 2230 "./common.web"
1008
1009
{
1010
BUF_SIZE cur_prms_units;
1011
@@ -1444,20 +1688,32 @@ prms= (INPUT_PRMS*)REALLOC(prms,
1012
(DFLT_MAX_INCLUDE_DEPTH+1)*sizeof(INPUT_PRMS));
1013
}
1014
1015
+/* :125 */
1016
+/* 131: */
1017
+#line 2462 "./common.web"
1018
1019
1020
ALLOC(boolean,chngd_module,"m",max_modules,0);
1021
1022
+/* :131 */
1023
+/* 141: */
1024
+#line 2702 "./common.web"
1025
1026
{
1027
ALLOC(outer_char*,ifiles,"if",max_ifiles,0);
1028
}
1029
1030
+/* :141 */
1031
+/* 151: */
1032
+#line 3058 "./common.web"
1033
1034
{
1035
ALLOC(RCS,rcs,"rk",max_keywords,0);
1036
}
1037
1038
+/* :151 */
1039
+/* 168: */
1040
+#line 3615 "./common.web"
1041
1042
1043
ALLOC(ASCII,byte_mem,"b",max_bytes,0);
1044
@@ -1470,11 +1726,18 @@ name_end= name_dir+max_names-1;
1045
ALLOC(ASCII,mod_text,"ln",longest_name,1);
1046
mod_end= mod_text+longest_name;
1047
1048
+#line 8 "./trunc.hweb"
1049
1050
+/* :168 */
1051
+/* 238: */
1052
+#line 5728 "./common.web"
1053
1054
1055
ALLOC(SECT_INFO,sect_info,"m",max_modules,0);
1056
1057
+/* :238 */
1058
+/* 334: */
1059
+#line 8854 "./common.web"
1060
1061
{
1062
if(program==tangle)
1063
@@ -1484,7 +1747,11 @@ max_margs++;
1064
}
1065
}
1066
1067
+/* :334 */
1068
+#line 232 "./common.web"
1069
1070
+/* 172: */
1071
+#line 3684 "./common.web"
1072
1073
1074
CAST(name_pointer,name_dir)->byte_start= byte_ptr= byte_mem;
1075
@@ -1493,11 +1760,18 @@ name_ptr= name_dir+1;
1076
CAST(name_pointer,name_ptr)->byte_start= byte_mem;
1077
1078
1079
+/* :172 */
1080
+/* 190: */
1081
+#line 4027 "./common.web"
1082
1083
1084
root= NULL;
1085
1086
+/* :190 */
1087
+#line 233 "./common.web"
1088
;
1089
+/* 183: */
1090
+#line 3910 "./common.web"
1091
1092
{
1093
if(rsrvd.args)see_reserved(&rsrvd);
1094
@@ -1507,6 +1781,8 @@ if(!found_web&&info_option&&!at_codes)
1095
wrap_up();
1096
}
1097
1098
+/* :183 */
1099
+#line 234 "./common.web"
1100
1101
1102
more_includes(&incl,wt_style.Idir);
1103
@@ -1515,6 +1791,9 @@ if(found_web)
1104
read_aux();
1105
}
1106
1107
+/* :53 */
1108
+/* 56: */
1109
+#line 299 "./common.web"
1110
1111
1112
ASCII HUGE*
1113
@@ -1538,6 +1817,9 @@ else
1114
return(ASCII HUGE*)p0;
1115
}
1116
1117
+/* :56 */
1118
+/* 57: */
1119
+#line 325 "./common.web"
1120
1121
1122
ASCII HUGE*
1123
@@ -1578,6 +1860,9 @@ else
1124
return(ASCII HUGE*)p0;
1125
}
1126
1127
+/* :57 */
1128
+/* 58: */
1129
+#line 366 "./common.web"
1130
1131
1132
ASCII HUGE*
1133
@@ -1593,6 +1878,9 @@ for(p= (ASCII HUGE*)p0;*p;p++)
1134
return(ASCII HUGE*)p0;
1135
}
1136
1137
+/* :58 */
1138
+/* 59: */
1139
+#line 383 "./common.web"
1140
1141
1142
outer_char HUGE*
1143
@@ -1607,6 +1895,9 @@ for(p= (outer_char HUGE*)p0;*p;p++)*p= XCHR(*(ASCII HUGE*)p);
1144
return(outer_char HUGE*)p0;
1145
}
1146
1147
+/* :59 */
1148
+/* 62: */
1149
+#line 422 "./common.web"
1150
1151
1152
boolean
1153
@@ -1619,10 +1910,13 @@ if(m4&&is_in(incl_likes,id_first,id_loc))return YES;
1154
1155
if(program==tangle)return NO;
1156
1157
-if(!(*id_first==044||*id_first==0137))return NO;
1158
+if(!(*id_first=='$'||*id_first=='_'))return NO;
1159
return is_in(WEB_incl_likes,id_first,id_loc);
1160
}
1161
1162
+/* :62 */
1163
+/* 63: */
1164
+#line 439 "./common.web"
1165
1166
SRTN conv_bi FCN((b))
1167
BUILT_IN HUGE*b C1("")
1168
@@ -1639,6 +1933,9 @@ for(;d->code!=0;d++)
1169
d->symbol= x__to_ASCII((outer_char*)d->symbol);
1170
}
1171
1172
+/* :63 */
1173
+/* 64: */
1174
+#line 457 "./common.web"
1175
1176
1177
boolean
1178
@@ -1656,6 +1953,9 @@ return YES;
1179
return NO;
1180
}
1181
1182
+/* :64 */
1183
+/* 68: */
1184
+#line 510 "./common.web"
1185
1186
1187
ASCII HUGE*
1188
@@ -1671,6 +1971,9 @@ p[k]= A_TO_UPPER(p[k]);
1189
return p;
1190
}
1191
1192
+/* :68 */
1193
+/* 69: */
1194
+#line 528 "./common.web"
1195
1196
1197
boolean
1198
@@ -1683,10 +1986,10 @@ ASCII temp[MAX_DOT_LENGTH];
1199
1200
1201
for(p= loc,n= 0;n<MAX_DOT_LENGTH;n++,p++)
1202
-if(*p==056||!isAlpha(*p))
1203
+if(*p=='.'||!isAlpha(*p))
1204
break;
1205
1206
-if(*p!=056||p==loc)
1207
+if(*p!='.'||p==loc)
1208
return NO;
1209
1210
1211
@@ -1696,6 +1999,9 @@ return BOOLEAN(CHOICE(dot_code(dots,uppercase(temp,n),temp+n,dot_const),
1212
YES,NO));
1213
}
1214
1215
+/* :69 */
1216
+/* 70: */
1217
+#line 557 "./common.web"
1218
1219
1220
eight_bits
1221
@@ -1748,6 +2054,9 @@ next_dot->len= 0;
1222
goto re_dot;
1223
}
1224
1225
+/* :70 */
1226
+/* 71: */
1227
+#line 611 "./common.web"
1228
1229
1230
eight_bits
1231
@@ -1766,6 +2075,9 @@ return 0;
1232
}
1233
1234
1235
+/* :71 */
1236
+/* 73: */
1237
+#line 692 "./common.web"
1238
1239
1240
boolean
1241
@@ -1810,14 +2122,19 @@ return NO;
1242
1243
if(column_mode&&FORTRAN_LIKE(language)&&
1244
PTR_DIFF(size_t,limit,cur_buffer)==2&&
1245
-((!auto_semi&&(cur_buffer[1]==073||cur_buffer[1]==040))||
1246
-(auto_semi&&cur_buffer[1]==073&&(cur_buffer[0]=='C'||
1247
-cur_buffer[0]==0143||cur_buffer[0]==052))))
1248
+((!auto_semi&&(cur_buffer[1]==';'||cur_buffer[1]==' '))||
1249
+(auto_semi&&cur_buffer[1]==';'&&(cur_buffer[0]=='C'||
1250
+cur_buffer[0]=='c'||cur_buffer[0]=='*'))))
1251
empty_line:
1252
limit= cur_buffer;
1253
1254
+/* :73 */
1255
+/* 73: */
1256
+#line 746 "./common.web"
1257
1258
#if(DEBUG)
1259
+/* 75: */
1260
+#line 768 "./common.web"
1261
1262
{
1263
register ASCII HUGE*k;
1264
@@ -1860,12 +2177,17 @@ puts("\"");
1265
}
1266
}
1267
1268
+/* :75 */
1269
+#line 748 "./common.web"
1270
;
1271
#endif
1272
1273
return YES;
1274
}
1275
1276
+/* :73 */
1277
+/* 76: */
1278
+#line 816 "./common.web"
1279
1280
1281
boolean
1282
@@ -1874,9 +2196,13 @@ rd_free_form(VOID)
1283
register int c= '\0';
1284
register ASCII HUGE*k;
1285
1286
+/* 77: */
1287
+#line 830 "./common.web"
1288
1289
{
1290
if(num_in_buffer!=0)
1291
+/* 82: */
1292
+#line 1011 "./common.web"
1293
1294
{
1295
STRNCPY(cur_buffer,k0,num_in_buffer);
1296
@@ -1885,19 +2211,26 @@ limit= cur_buffer+num_in_buffer-N_END;
1297
num_in_buffer= 0;
1298
}
1299
1300
+/* :82 */
1301
+#line 833 "./common.web"
1302
1303
else
1304
{
1305
if(feof(cur0_prms->File))
1306
return NO;
1307
1308
+/* 78: */
1309
+#line 857 "./common.web"
1310
1311
{
1312
k= cur_buffer;
1313
1314
+/* :78 */
1315
+/* 78: */
1316
+#line 867 "./common.web"
1317
1318
while(k<=buffer_end&&(c= getc(cur0_prms->File))!=EOF&&c!='\n')
1319
-if((*(k++)= XORD(c))!=040)limit= k;
1320
+if((*(k++)= XORD(c))!=' ')limit= k;
1321
1322
1323
1324
@@ -1912,15 +2245,25 @@ if(c==EOF&&limit==cur_buffer)
1325
return NO;
1326
}
1327
1328
+/* :78 */
1329
+#line 839 "./common.web"
1330
;
1331
+/* :77 */
1332
+/* 77: */
1333
+#line 843 "./common.web"
1334
}
1335
}
1336
1337
+/* :77 */
1338
+#line 824 "./common.web"
1339
1340
1341
return YES;
1342
}
1343
1344
+/* :76 */
1345
+/* 80: */
1346
+#line 940 "./common.web"
1347
1348
1349
boolean
1350
@@ -1940,6 +2283,8 @@ in_char_string= NO;
1351
1352
for(k= limit;;k= k0= (limit+= N_END),first_line= NO,cur_line++)
1353
if(num_in_buffer==0)
1354
+/* 83: */
1355
+#line 1020 "./common.web"
1356
1357
{
1358
int i;
1359
@@ -1955,9 +2300,13 @@ goto concatenate_cmnts;
1360
1361
k0= limit;
1362
1363
+/* 85: */
1364
+#line 1121 "./common.web"
1365
1366
{
1367
if(ignore_C)
1368
+/* 87: */
1369
+#line 1218 "./common.web"
1370
1371
{
1372
first_char:
1373
@@ -1986,12 +2335,14 @@ break;
1374
}
1375
}
1376
1377
+/* :87 */
1378
+#line 1124 "./common.web"
1379
1380
1381
while(k<=buffer_end&&(c= getc(cur0_prms->File))!=EOF&&c!='\n')
1382
if(c=='\t'&&k<=buffer_end-6)
1383
for(i= 0;i<6;++i)
1384
-*(k++)= 040;
1385
+*(k++)= ' ';
1386
1387
else
1388
{
1389
@@ -2000,7 +2351,7 @@ outer_char c1;
1390
1391
if(c==';')
1392
c= XCHR(interior_semi);
1393
-else if(point_comments&&(*k0!=0100)&&
1394
+else if(point_comments&&(*k0!='@')&&
1395
(escaped_char= BOOLEAN(c=='\\')))
1396
{
1397
c= getc(cur0_prms->File);
1398
@@ -2015,7 +2366,7 @@ c= '\\';
1399
1400
1401
if((*(k++)= CHOICE(IS_POINT(c)&&!escaped_char,
1402
-(ASCII)begin_comment1,XORD(c)))!=040)
1403
+(ASCII)begin_comment1,XORD(c)))!=' ')
1404
limit= k;
1405
}
1406
1407
@@ -2030,18 +2381,20 @@ if(c==EOF&&limit==cur_buffer)return NO;
1408
1409
}
1410
1411
+/* :85 */
1412
+#line 1035 "./common.web"
1413
;
1414
1415
1416
1417
-MEMSET(limit,040,N_END);
1418
+MEMSET(limit,' ',N_END);
1419
num_in_buffer= 0;
1420
1421
1422
1423
-at_line= BOOLEAN(*k0==0100&&*(k0+1)!=057);
1424
+at_line= BOOLEAN(*k0=='@'&&*(k0+1)!='/');
1425
1426
-if(at_line&&(*(k0+1)==052||*(k0+1)==040))
1427
+if(at_line&&(*(k0+1)=='*'||*(k0+1)==' '))
1428
found_at= YES;
1429
1430
1431
@@ -2065,6 +2418,8 @@ continue;
1432
}
1433
1434
if(!(at_line||scanning_C_cmnt))
1435
+/* 86: */
1436
+#line 1172 "./common.web"
1437
1438
{
1439
boolean is_cmnt= NO,Fortran_cmnt= NO,C_cmnt= NO;
1440
@@ -2075,9 +2430,9 @@ ASCII HUGE*p= k0;
1441
1442
switch(*k0)
1443
{
1444
-case 0103:
1445
-case 0143:
1446
-case 052:
1447
+case 'C':
1448
+case 'c':
1449
+case '*':
1450
case(ASCII)begin_comment0:
1451
case(ASCII)begin_comment1:
1452
is_cmnt= Fortran_cmnt= YES;
1453
@@ -2086,11 +2441,11 @@ break;
1454
default:
1455
1456
for(;p<limit;p++)
1457
-if(*p!=040)
1458
+if(*p!=' ')
1459
break;
1460
1461
-if((*p==057&&(*(p+1)==052
1462
-||(*(p+1)==057&&Cpp_comments&&!ignore_C)))
1463
+if((*p=='/'&&(*(p+1)=='*'
1464
+||(*(p+1)=='/'&&Cpp_comments&&!ignore_C)))
1465
||*p==(ASCII)begin_comment0
1466
||*p==(ASCII)begin_comment1)
1467
is_cmnt= C_cmnt= YES;
1468
@@ -2098,6 +2453,8 @@ break;
1469
}
1470
1471
if(is_cmnt)
1472
+/* 88: */
1473
+#line 1250 "./common.web"
1474
1475
{
1476
if(limit==k0+1)
1477
@@ -2111,7 +2468,7 @@ goto concatenate_cmnts;
1478
}
1479
1480
if(k0>cur_buffer)
1481
-MEMSET(k0-N_END,040,N_END);
1482
+MEMSET(k0-N_END,' ',N_END);
1483
1484
if(Fortran_cmnt)
1485
*p= begin_comment1;
1486
@@ -2131,12 +2488,16 @@ continue;
1487
}
1488
1489
1490
+/* :88 */
1491
+#line 1205 "./common.web"
1492
1493
1494
1495
1496
1497
-if(limit-k0>=5&&!(k0[5]==040||k0[5]==060))
1498
+if(limit-k0>=5&&!(k0[5]==' '||k0[5]=='0'))
1499
+/* 89: */
1500
+#line 1289 "./common.web"
1501
1502
{
1503
register ASCII HUGE*l;
1504
@@ -2155,7 +2516,7 @@ continue;
1505
stuff_in_1_5= NO;
1506
1507
for(l= k0;l<k0+5;++l)
1508
-if(*l!=040)
1509
+if(*l!=' ')
1510
{
1511
stuff_in_1_5= YES;
1512
break;
1513
@@ -2166,15 +2527,19 @@ break;
1514
1515
if(stuff_in_1_5)goto neither_cmnt_nor_continuation;
1516
1517
-*l= 040;
1518
+*l= ' ';
1519
scan_for_cmnts();
1520
continue;
1521
}
1522
1523
+/* :89 */
1524
+#line 1211 "./common.web"
1525
1526
}
1527
1528
1529
+/* :86 */
1530
+#line 1070 "./common.web"
1531
1532
1533
1534
@@ -2197,6 +2562,8 @@ continue;
1535
1536
}
1537
1538
+/* 84: */
1539
+#line 1098 "./common.web"
1540
1541
{
1542
last_of_read:
1543
@@ -2214,13 +2581,21 @@ cur_line--;
1544
break;
1545
}
1546
1547
+/* :84 */
1548
+#line 1092 "./common.web"
1549
;
1550
}
1551
1552
+/* :83 */
1553
+#line 959 "./common.web"
1554
1555
else
1556
+/* 81: */
1557
+#line 984 "./common.web"
1558
1559
{
1560
+/* 82: */
1561
+#line 1011 "./common.web"
1562
1563
{
1564
STRNCPY(cur_buffer,k0,num_in_buffer);
1565
@@ -2229,6 +2604,8 @@ limit= cur_buffer+num_in_buffer-N_END;
1566
num_in_buffer= 0;
1567
}
1568
1569
+/* :82 */
1570
+#line 986 "./common.web"
1571
;
1572
1573
1574
@@ -2251,22 +2628,30 @@ last_was_empty= BOOLEAN(limit==cur_buffer);
1575
scan_for_cmnts();
1576
}
1577
1578
+/* :81 */
1579
+#line 961 "./common.web"
1580
1581
1582
1583
1584
-if(*cur_buffer==0100&&!(limit==cur_buffer+1||*(cur_buffer+1)==052||
1585
-*(cur_buffer+1)==040))
1586
+if(*cur_buffer=='@'&&!(limit==cur_buffer+1||*(cur_buffer+1)=='*'||
1587
+*(cur_buffer+1)==' '))
1588
for(k= cur_buffer+2;k<limit;++k)
1589
-if(*k==073)
1590
+if(*k==';')
1591
{
1592
-*k= 040;
1593
+/* :80 */
1594
+/* 80: */
1595
+#line 973 "./common.web"
1596
+*k= ' ';
1597
break;
1598
}
1599
1600
return YES;
1601
}
1602
1603
+/* :80 */
1604
+/* 90: */
1605
+#line 1326 "./common.web"
1606
1607
1608
SRTN
1609
@@ -2296,6 +2681,9 @@ pcmnt->len= 0;
1610
pcmnt->pos= limit;
1611
}
1612
1613
+/* :90 */
1614
+/* 92: */
1615
+#line 1365 "./common.web"
1616
1617
1618
SRTN
1619
@@ -2322,9 +2710,11 @@ p= limit;
1620
MARK(SHORT_CMNT,END,0);
1621
break;
1622
1623
-case 047:
1624
-case 042:
1625
+case '\'':
1626
+case '"':
1627
if(!scanning_C_cmnt)
1628
+/* 93: */
1629
+#line 1430 "./common.web"
1630
1631
{
1632
if(!in_char_string)
1633
@@ -2343,20 +2733,22 @@ break;
1634
in_char_string= NO;
1635
}
1636
1637
+/* :93 */
1638
+#line 1394 "./common.web"
1639
1640
break;
1641
1642
-case 057:
1643
+case '/':
1644
if(in_char_string||scanning_C_cmnt)
1645
break;
1646
1647
-if(*(p+1)==057&&Cpp_comments&&!ignore_C)
1648
+if(*(p+1)=='/'&&Cpp_comments&&!ignore_C)
1649
{
1650
MARK(SHORT_CMNT,START,2);
1651
p= limit;
1652
MARK(SHORT_CMNT,END,0);
1653
}
1654
-else if(*(p+1)==052)
1655
+else if(*(p+1)=='*')
1656
{
1657
MARK(LONG_CMNT,START,2);
1658
p++;
1659
@@ -2364,11 +2756,11 @@ p++;
1660
1661
break;
1662
1663
-case 052:
1664
+case '*':
1665
if(in_char_string)
1666
break;
1667
1668
-if(scanning_C_cmnt&&*(p+1)==057)
1669
+if(scanning_C_cmnt&&*(p+1)=='/')
1670
{
1671
MARK(LONG_CMNT,END,2);
1672
p++;
1673
@@ -2378,6 +2770,9 @@ break;
1674
}
1675
}
1676
1677
+/* :92 */
1678
+/* 94: */
1679
+#line 1452 "./common.web"
1680
1681
1682
SRTN
1683
@@ -2394,7 +2789,7 @@ for(d= posns+1;d<pcmnt;d+= 2)
1684
found_text= NO;
1685
1686
for(l= d->pos+d->len;l<(d+1)->pos;l++)
1687
-if(*l!=040)
1688
+if(*l!=' ')
1689
{
1690
found_text= YES;
1691
break;
1692
@@ -2406,8 +2801,8 @@ if(d->type==SHORT_CMNT)
1693
{
1694
BLANK_OUT(d-1);
1695
*((d-1)->pos)= begin_comment0;
1696
-*(d->pos)= 052;
1697
-*(d->pos+1)= 057;
1698
+*(d->pos)= '*';
1699
+*(d->pos+1)= '/';
1700
}
1701
}
1702
else if(d->type==(d+1)->type)
1703
@@ -2418,6 +2813,8 @@ d->type= (d+1)->type= NO_CMNT;
1704
}
1705
}
1706
1707
+/* 99: */
1708
+#line 1555 "./common.web"
1709
1710
{
1711
boolean text_after= NO;
1712
@@ -2426,10 +2823,10 @@ if(pcmnt>posns)
1713
{
1714
if(!scanning_C_cmnt)
1715
for(l= limit-1;l>(pcmnt-1)->pos+(pcmnt-1)->len;l--)
1716
-if(*l!=040)
1717
+if(*l!=' ')
1718
{
1719
text_after= YES;
1720
-*(l+1)= 073;
1721
+*(l+1)= ';';
1722
break;
1723
}
1724
1725
@@ -2464,9 +2861,11 @@ lmin= (pcmnt-1)->pos+(pcmnt-1)->len;
1726
1727
for(l= pcmnt->pos-1;l>=lmin;l--)
1728
{
1729
-if(*l!=040)
1730
+if(*l!=' ')
1731
{
1732
semi_pos= pcmnt->pos;
1733
+/* 100: */
1734
+#line 1628 "./common.web"
1735
1736
{
1737
*(semi_pos+1)= (ASCII)(((pcmnt+1)->type==LONG_CMNT?begin_comment0:
1738
@@ -2476,32 +2875,38 @@ begin_comment1));
1739
1740
1741
1742
-if(semi_pos>cur_buffer&&*(semi_pos-1)==0100)
1743
+if(semi_pos>cur_buffer&&*(semi_pos-1)=='@')
1744
{
1745
-*(semi_pos--)= 0100;
1746
+*(semi_pos--)= '@';
1747
}
1748
1749
-*semi_pos= 073;
1750
+*semi_pos= ';';
1751
1752
1753
+/* 101: */
1754
+#line 1650 "./common.web"
1755
1756
1757
for(lp= semi_pos-1;lp>cur_buffer;lp--)
1758
{
1759
-if(*lp==040)continue;
1760
+if(*lp==' ')continue;
1761
1762
-if(*lp==057&&*(--lp)==0100)
1763
+if(*lp=='/'&&*(--lp)=='@')
1764
{
1765
-*semi_pos= 040;
1766
-*lp= 073;*(lp+1)= 0100;*(lp+2)= 057;
1767
+*semi_pos= ' ';
1768
+*lp= ';';*(lp+1)= '@';*(lp+2)= '/';
1769
}
1770
break;
1771
}
1772
1773
1774
+/* :101 */
1775
+#line 1645 "./common.web"
1776
;
1777
}
1778
1779
+/* :100 */
1780
+#line 1603 "./common.web"
1781
1782
goto done_auto_insert;
1783
}
1784
@@ -2514,9 +2919,9 @@ pcmnt-= 2;
1785
else
1786
{
1787
for(l= limit-1;l>=cur_buffer;l--)
1788
-if(*l!=040)
1789
+if(*l!=' ')
1790
{
1791
-*(l+1)= 073;
1792
+*(l+1)= ';';
1793
break;
1794
}
1795
}
1796
@@ -2525,11 +2930,16 @@ done_auto_insert:
1797
;
1798
}
1799
1800
+/* :99 */
1801
+#line 1492 "./common.web"
1802
1803
1804
pcmnt= posns;
1805
}
1806
1807
+/* :94 */
1808
+/* 102: */
1809
+#line 1667 "./common.web"
1810
1811
1812
boolean
1813
@@ -2542,9 +2952,13 @@ boolean found_semi;
1814
string_char= '\0';
1815
in_char_string= NO;
1816
1817
+/* 77: */
1818
+#line 830 "./common.web"
1819
1820
{
1821
if(num_in_buffer!=0)
1822
+/* 82: */
1823
+#line 1011 "./common.web"
1824
1825
{
1826
STRNCPY(cur_buffer,k0,num_in_buffer);
1827
@@ -2553,19 +2967,26 @@ limit= cur_buffer+num_in_buffer-N_END;
1828
num_in_buffer= 0;
1829
}
1830
1831
+/* :82 */
1832
+#line 833 "./common.web"
1833
1834
else
1835
{
1836
if(feof(cur0_prms->File))
1837
return NO;
1838
1839
+/* 78: */
1840
+#line 857 "./common.web"
1841
1842
{
1843
k= cur_buffer;
1844
1845
+/* :78 */
1846
+/* 78: */
1847
+#line 867 "./common.web"
1848
1849
while(k<=buffer_end&&(c= getc(cur0_prms->File))!=EOF&&c!='\n')
1850
-if((*(k++)= XORD(c))!=040)limit= k;
1851
+if((*(k++)= XORD(c))!=' ')limit= k;
1852
1853
1854
1855
@@ -2580,18 +3001,27 @@ if(c==EOF&&limit==cur_buffer)
1856
return NO;
1857
}
1858
1859
+/* :78 */
1860
+#line 839 "./common.web"
1861
;
1862
+/* :77 */
1863
+/* 77: */
1864
+#line 843 "./common.web"
1865
}
1866
}
1867
1868
+/* :77 */
1869
+#line 1679 "./common.web"
1870
1871
1872
1873
1874
-if(*cur_buffer==0100&&(limit==cur_buffer+1
1875
-||*(cur_buffer+1)==052||*(cur_buffer+1)==040))
1876
+if(*cur_buffer=='@'&&(limit==cur_buffer+1
1877
+||*(cur_buffer+1)=='*'||*(cur_buffer+1)==' '))
1878
column_mode= NO;
1879
else
1880
+/* 104: */
1881
+#line 1702 "./common.web"
1882
1883
{
1884
last_was_continued= continuing_line;
1885
@@ -2600,9 +3030,9 @@ continuing_line= NO;
1886
if(limit==cur_buffer)
1887
return YES;
1888
1889
-limit[0]= limit[1]= limit[2]= limit[3]= 040;
1890
+limit[0]= limit[1]= limit[2]= limit[3]= ' ';
1891
1892
-cmnt_char= 043;
1893
+cmnt_char= '#';
1894
1895
found_semi= found_text= text= NO;
1896
1897
@@ -2610,31 +3040,31 @@ semi_pos= NULL;
1898
1899
1900
1901
-if(!free_form_input&&!(*cur_buffer==0100&&*(cur_buffer+1)==043))
1902
+if(!free_form_input&&!(*cur_buffer=='@'&&*(cur_buffer+1)=='#'))
1903
{
1904
for(lp= cur_buffer;;)
1905
if(!skip_Rtext()||!skp_cmnt())break;
1906
1907
switch(*last_pos)
1908
{
1909
-case 053:case 055:case 052:case 075:case 0173:case 0175:
1910
-case 0136:case 046:case 0174:case 050:case 072:
1911
-case 076:case 074:case 0133:case 054:case 0134:
1912
+case '+':case '-':case '*':case '=':case '{':case '}':
1913
+case '^':case '&':case '|':case '(':case ':':
1914
+case '>':case '<':case '[':case ',':case '\\':
1915
continuing_line= YES;
1916
break;
1917
1918
1919
-case 0137:
1920
+case '_':
1921
if(last_pos>cur_buffer)
1922
{
1923
ASCII c;
1924
1925
c= *(last_pos-1);
1926
if(isAlpha(c)||isDigit(c)||
1927
-c==0137||c==044)
1928
+c=='_'||c=='$')
1929
goto not_continuation;
1930
}
1931
-*last_pos= 040;
1932
+*last_pos= ' ';
1933
continuing_line= YES;
1934
break;
1935
1936
@@ -2647,7 +3077,9 @@ break;
1937
1938
1939
1940
-if(!text&&semi_pos!=NULL)
1941
+if(!text&&semi_pos!=NULL)/* 100: */
1942
+#line 1628 "./common.web"
1943
+
1944
{
1945
*(semi_pos+1)= (ASCII)(((pcmnt+1)->type==LONG_CMNT?begin_comment0:
1946
begin_comment1));
1947
@@ -2656,50 +3088,63 @@ begin_comment1));
1948
1949
1950
1951
-if(semi_pos>cur_buffer&&*(semi_pos-1)==0100)
1952
+if(semi_pos>cur_buffer&&*(semi_pos-1)=='@')
1953
{
1954
-*(semi_pos--)= 0100;
1955
+*(semi_pos--)= '@';
1956
}
1957
1958
-*semi_pos= 073;
1959
+*semi_pos= ';';
1960
1961
1962
+/* 101: */
1963
+#line 1650 "./common.web"
1964
1965
1966
for(lp= semi_pos-1;lp>cur_buffer;lp--)
1967
{
1968
-if(*lp==040)continue;
1969
+if(*lp==' ')continue;
1970
1971
-if(*lp==057&&*(--lp)==0100)
1972
+if(*lp=='/'&&*(--lp)=='@')
1973
{
1974
-*semi_pos= 040;
1975
-*lp= 073;*(lp+1)= 0100;*(lp+2)= 057;
1976
+*semi_pos= ' ';
1977
+*lp= ';';*(lp+1)= '@';*(lp+2)= '/';
1978
}
1979
break;
1980
}
1981
1982
1983
+/* :101 */
1984
+#line 1645 "./common.web"
1985
;
1986
}
1987
1988
+/* :100 */
1989
+#line 1757 "./common.web"
1990
1991
-else if(found_text&&limit>cur_buffer)*limit++= 073;
1992
+else if(found_text&&limit>cur_buffer)*limit++= ';';
1993
1994
break;
1995
}
1996
}
1997
}
1998
1999
+/* :104 */
2000
+#line 1687 "./common.web"
2001
;
2002
2003
return YES;
2004
}
2005
2006
+/* :102 */
2007
+/* 106: */
2008
+#line 1800 "./common.web"
2009
2010
boolean skip_Rtext(VOID)
2011
{
2012
-static ASCII blank= 040;
2013
+static ASCII blank= ' ';
2014
2015
+/* 107: */
2016
+#line 1836 "./common.web"
2017
2018
2019
if(scanning_C_cmnt)return YES;
2020
@@ -2707,10 +3152,12 @@ if(scanning_C_cmnt)return YES;
2021
2022
2023
for(;lp<limit;++lp)
2024
-if(!(*lp==040||*lp==tab_mark))break;
2025
+if(!(*lp==' '||*lp==tab_mark))break;
2026
2027
if(lp>=limit)return NO;
2028
2029
+/* :107 */
2030
+#line 1805 "./common.web"
2031
;
2032
2033
last_pos= ␣
2034
@@ -2729,18 +3176,21 @@ if(start_Rcomment)
2035
if(R_style_cmnt)
2036
{
2037
*lp= cmnt_char= begin_comment0;
2038
-*limit++= 052;*limit++= 057;
2039
+*limit++= '*';*limit++= '/';
2040
}
2041
if(++lp<limit)return YES;
2042
}
2043
2044
-if(*lp!=040&&*lp!=tab_mark)
2045
+if(*lp!=' '&&*lp!=tab_mark)
2046
last_pos= lp;
2047
}
2048
2049
return NO;
2050
}
2051
2052
+/* :106 */
2053
+/* 108: */
2054
+#line 1848 "./common.web"
2055
2056
boolean skp_cmnt(VOID)
2057
{
2058
@@ -2764,11 +3214,11 @@ for(++lp;lp<limit;lp++)
2059
{
2060
if(*lp==(ASCII)begin_comment0||*lp==(ASCII)begin_comment1)
2061
{
2062
-*lp= 0143;
2063
+*lp= 'c';
2064
continue;
2065
}
2066
2067
-if(*lp==052&&*(lp+1)==057)
2068
+if(*lp=='*'&&*(lp+1)=='/')
2069
{
2070
lp+= 2;
2071
if(lp<=limit)return YES;
2072
@@ -2781,14 +3231,17 @@ else
2073
{
2074
for(++lp;lp<limit;lp++)
2075
if(*lp==(ASCII)begin_comment1)
2076
-*lp= 041;
2077
+*lp= '!';
2078
2079
-*(limit-2)= 052;*(limit-1)= 057;
2080
+*(limit-2)= '*';*(limit-1)= '/';
2081
}
2082
2083
return NO;
2084
}
2085
2086
+/* :108 */
2087
+/* 111: */
2088
+#line 1941 "./common.web"
2089
2090
2091
SRTN
2092
@@ -2806,6 +3259,8 @@ column_mode= change_params.Column_mode;
2093
2094
change_limit= NULL;
2095
2096
+/* 112: */
2097
+#line 1978 "./common.web"
2098
2099
2100
WHILE()
2101
@@ -2820,17 +3275,23 @@ goto done_priming;
2102
2103
if(limit<cur_buffer+2)continue;
2104
2105
-if(cur_buffer[0]!=0100)continue;
2106
+if(cur_buffer[0]!='@')continue;
2107
2108
+/* 114: */
2109
+#line 2056 "./common.web"
2110
2111
2112
-if((cur_buffer[1]>=0130&&cur_buffer[1]<=0132)||cur_buffer[1]==0111)
2113
-cur_buffer[1]+= 0172-0132;
2114
+if((cur_buffer[1]>='X'&&cur_buffer[1]<='Z')||cur_buffer[1]=='I')
2115
+cur_buffer[1]+= 'z'-'Z';
2116
2117
+/* :114 */
2118
+#line 1994 "./common.web"
2119
;
2120
+/* 115: */
2121
+#line 2063 "./common.web"
2122
2123
2124
-if(cur_buffer[1]==0151)
2125
+if(cur_buffer[1]=='i')
2126
{
2127
loc= cur_buffer+2;
2128
2129
@@ -2838,19 +3299,23 @@ err0_print(ERR_C,OC("Sorry, no includes allowed in change file"),0);
2130
2131
}
2132
2133
+/* :115 */
2134
+#line 1995 "./common.web"
2135
;
2136
-if((c= cur_buffer[1])==0170)break;
2137
+if((c= cur_buffer[1])=='x')break;
2138
2139
-if(c==0171||c==0172)
2140
+if(c=='y'||c=='z')
2141
{
2142
loc= cur_buffer+2;
2143
2144
err0_print(ERR_C,OC("Where is the matching @x?"),0);
2145
2146
}
2147
-else
2148
+else/* 113: */
2149
+#line 2008 "./common.web"
2150
+
2151
{
2152
-if(c==0154)
2153
+if(c=='l')
2154
if(limit==cur_buffer+2)
2155
2156
err0_print(ERR_C,OC("Missing language character after @L"),0);
2157
@@ -2858,51 +3323,71 @@ else c= cur_buffer[2];
2158
2159
switch(c)
2160
{
2161
+/* 10: */
2162
+#line 95 "./typedefs.hweb"
2163
2164
-case 0143
2165
+case 'c'
2166
2167
+/* :10 */
2168
+#line 2017 "./common.web"
2169
:
2170
language= change_params.Language=
2171
-(cur_buffer[2]==053)?C_PLUS_PLUS:C;
2172
+(cur_buffer[2]=='+')?C_PLUS_PLUS:C;
2173
column_mode= change_params.Column_mode= NO;
2174
continue;
2175
2176
+/* 11: */
2177
+#line 98 "./typedefs.hweb"
2178
2179
-case 0162
2180
+case 'r'
2181
2182
+/* :11 */
2183
+#line 2023 "./common.web"
2184
:
2185
if(!RAT_OK("Language change ignored"))continue;
2186
2187
language= change_params.Language=
2188
-(cur_buffer[2]==071)?RATFOR_90:RATFOR;
2189
+(cur_buffer[2]=='9')?RATFOR_90:RATFOR;
2190
continue;
2191
2192
+/* 12: */
2193
+#line 101 "./typedefs.hweb"
2194
2195
-case 0156
2196
+case 'n'
2197
2198
+/* :12 */
2199
+#line 2030 "./common.web"
2200
:
2201
language= change_params.Language=
2202
-(cur_buffer[2]==071)?FORTRAN_90:FORTRAN;
2203
+(cur_buffer[2]=='9')?FORTRAN_90:FORTRAN;
2204
continue;
2205
2206
+/* 14: */
2207
+#line 107 "./typedefs.hweb"
2208
2209
-case 0166
2210
+case 'v'
2211
2212
2213
2214
+/* :14 */
2215
+#line 2035 "./common.web"
2216
:
2217
language= change_params.Language= LITERAL;continue;
2218
2219
+/* 13: */
2220
+#line 104 "./typedefs.hweb"
2221
2222
-case 0170
2223
+case 'x'
2224
2225
+/* :13 */
2226
+#line 2038 "./common.web"
2227
:
2228
language= change_params.Language= TEX;continue;
2229
2230
-case 0133:
2231
+case '[':
2232
column_mode= change_params.Column_mode= YES;continue;
2233
2234
-case 0135:
2235
+case ']':
2236
column_mode= change_params.Column_mode= NO;continue;
2237
2238
default:
2239
@@ -2913,10 +3398,16 @@ continue;
2240
}
2241
}
2242
2243
+/* :113 */
2244
+#line 2004 "./common.web"
2245
2246
}
2247
2248
+/* :112 */
2249
+#line 1959 "./common.web"
2250
;
2251
+/* 116: */
2252
+#line 2074 "./common.web"
2253
2254
2255
do
2256
@@ -2932,6 +3423,8 @@ goto done_priming;
2257
}
2258
while(limit==cur_buffer);
2259
2260
+/* :116 */
2261
+#line 1960 "./common.web"
2262
;
2263
2264
done_priming:
2265
@@ -2945,6 +3438,9 @@ changing= NO;
2266
cur0_prms= cur_prms.web;
2267
}
2268
2269
+/* :111 */
2270
+/* 117: */
2271
+#line 2096 "./common.web"
2272
2273
2274
SRTN
2275
@@ -2967,19 +3463,27 @@ change_limit= NULL;changing= NO;prn_where= YES;
2276
return;
2277
}
2278
2279
+/* 118: */
2280
+#line 2138 "./common.web"
2281
2282
2283
-if(limit>cur_buffer+1&&cur_buffer[0]==0100)
2284
+if(limit>cur_buffer+1&&cur_buffer[0]=='@')
2285
{
2286
+/* 114: */
2287
+#line 2056 "./common.web"
2288
2289
2290
-if((cur_buffer[1]>=0130&&cur_buffer[1]<=0132)||cur_buffer[1]==0111)
2291
-cur_buffer[1]+= 0172-0132;
2292
+if((cur_buffer[1]>='X'&&cur_buffer[1]<='Z')||cur_buffer[1]=='I')
2293
+cur_buffer[1]+= 'z'-'Z';
2294
2295
+/* :114 */
2296
+#line 2142 "./common.web"
2297
;
2298
+/* 115: */
2299
+#line 2063 "./common.web"
2300
2301
2302
-if(cur_buffer[1]==0151)
2303
+if(cur_buffer[1]=='i')
2304
{
2305
loc= cur_buffer+2;
2306
2307
@@ -2987,16 +3491,18 @@ err0_print(ERR_C,OC("Sorry, no includes allowed in change file"),0);
2308
2309
}
2310
2311
+/* :115 */
2312
+#line 2143 "./common.web"
2313
;
2314
2315
-if(cur_buffer[1]==0170||cur_buffer[1]==0172)
2316
+if(cur_buffer[1]=='x'||cur_buffer[1]=='z')
2317
{
2318
loc= cur_buffer+2;
2319
2320
err0_print(ERR_C,OC("Where is the matching @y?"),0);
2321
2322
}
2323
-else if(cur_buffer[1]==0171)
2324
+else if(cur_buffer[1]=='y')
2325
{
2326
if(n>0)
2327
{
2328
@@ -3009,6 +3515,8 @@ return;
2329
}
2330
}
2331
2332
+/* :118 */
2333
+#line 2118 "./common.web"
2334
;
2335
changing= NO;prn_where= YES;
2336
2337
@@ -3029,10 +3537,14 @@ if(LINES_DONT_MATCH)n++;
2338
}
2339
}
2340
2341
+/* :117 */
2342
+#line 56 "./common.web"
2343
2344
#endif
2345
2346
#if(part != 1)
2347
+/* 119: */
2348
+#line 2171 "./common.web"
2349
2350
2351
SRTN
2352
@@ -3042,31 +3554,46 @@ FCLOSE(prms[WEB_FILE].web.File);
2353
FCLOSE(prms[WEB_FILE].change.File);
2354
2355
ini_input_prms(WEB_FILE,(outer_char HUGE*)"",ABORT_ON_ERROR);
2356
+/* 120: */
2357
+#line 2191 "./common.web"
2358
2359
2360
-limit= cur_buffer;loc= cur_buffer+1;cur_buffer[0]= 040
2361
+limit= cur_buffer;loc= cur_buffer+1;cur_buffer[0]= ' '
2362
2363
+/* :120 */
2364
+#line 2180 "./common.web"
2365
;
2366
2367
+/* 122: */
2368
+#line 2205 "./common.web"
2369
2370
{
2371
cur0_prms= cur_prms.change;
2372
changing= YES;
2373
change_params= change_params0;
2374
prime_the_change_buffer();
2375
+/* 120: */
2376
+#line 2191 "./common.web"
2377
2378
2379
-limit= cur_buffer;loc= cur_buffer+1;cur_buffer[0]= 040
2380
+limit= cur_buffer;loc= cur_buffer+1;cur_buffer[0]= ' '
2381
2382
+/* :120 */
2383
+#line 2211 "./common.web"
2384
;
2385
}
2386
2387
+/* :122 */
2388
+#line 2182 "./common.web"
2389
2390
2391
incl_depth= WEB_FILE;
2392
input_has_ended= NO;
2393
}
2394
2395
+/* :119 */
2396
+/* 126: */
2397
+#line 2243 "./common.web"
2398
2399
2400
boolean
2401
@@ -3108,6 +3635,9 @@ STRCPY(this_include_file,web_level?
2402
return YES;
2403
}
2404
2405
+/* :126 */
2406
+/* 127: */
2407
+#line 2285 "./common.web"
2408
2409
2410
boolean
2411
@@ -3158,6 +3688,9 @@ return NO;
2412
return YES;
2413
}
2414
2415
+/* :127 */
2416
+/* 128: */
2417
+#line 2339 "./common.web"
2418
2419
2420
FILE*
2421
@@ -3206,6 +3739,9 @@ path= p1+1;
2422
return NULL;
2423
}
2424
2425
+/* :128 */
2426
+/* 129: */
2427
+#line 2391 "./common.web"
2428
2429
2430
FILE*
2431
@@ -3248,12 +3784,17 @@ return file_ptr;
2432
return NULL;
2433
}
2434
2435
+/* :129 */
2436
+/* 132: */
2437
+#line 2469 "./common.web"
2438
2439
2440
boolean
2441
get_line(VOID)
2442
{
2443
if(return_toggle)
2444
+/* 137: */
2445
+#line 2584 "./common.web"
2446
2447
{
2448
return_toggle= NO;
2449
@@ -3267,7 +3808,7 @@ return NO;
2450
STRNCPY(cur_buffer,stored_line,stored_line_length);
2451
FREE_MEM(stored_line,"stored_line",stored_line_length,ASCII);
2452
limit= cur_buffer+stored_line_length;
2453
-*limit= 040;
2454
+*limit= ' ';
2455
2456
if(popped)
2457
{
2458
@@ -3280,12 +3821,16 @@ else
2459
goto process_line;
2460
}
2461
2462
+/* :137 */
2463
+#line 2475 "./common.web"
2464
2465
2466
restart:
2467
if(changing)
2468
chngd_module[module_count]= YES;
2469
else
2470
+/* 147: */
2471
+#line 2888 "./common.web"
2472
2473
{
2474
popped= NO;
2475
@@ -3342,6 +3887,8 @@ if(return_toggle)
2476
no_more_input= input_has_ended;
2477
input_has_ended= NO;
2478
popped= YES;
2479
+/* 135: */
2480
+#line 2559 "./common.web"
2481
2482
{
2483
return_toggle= YES;
2484
@@ -3353,11 +3900,13 @@ STRNCPY(stored_line,cur_buffer,stored_line_length);
2485
loc= cur_buffer+2;
2486
get_fname(prms[1].web.File_name);
2487
loc= limit= cur_buffer;
2488
-*limit++= 0100;*limit++= '\001';*limit= 040;
2489
+*limit++= '@';*limit++= '\001';*limit= ' ';
2490
2491
return YES;
2492
}
2493
2494
+/* :135 */
2495
+#line 2944 "./common.web"
2496
2497
}
2498
2499
@@ -3368,10 +3917,14 @@ if(cur_buffer[0]==change_buffer[0])
2500
if(change_limit>change_buffer)chk_change();
2501
}
2502
2503
+/* :147 */
2504
+#line 2481 "./common.web"
2505
;
2506
2507
if(changing)
2508
{
2509
+/* 153: */
2510
+#line 3109 "./common.web"
2511
2512
{
2513
if(!input_ln(CHANGE_FILE))
2514
@@ -3379,21 +3932,27 @@ if(!input_ln(CHANGE_FILE))
2515
2516
err0_print(ERR_C,OC("Change file ended without @z"),0);
2517
2518
-cur_buffer[0]= 0100;cur_buffer[1]= 0172;limit= cur_buffer+2;
2519
+cur_buffer[0]= '@';cur_buffer[1]= 'z';limit= cur_buffer+2;
2520
}
2521
2522
if(limit>cur_buffer+1)
2523
-if(cur_buffer[0]==0100)
2524
+if(cur_buffer[0]=='@')
2525
{
2526
+/* 114: */
2527
+#line 2056 "./common.web"
2528
2529
2530
-if((cur_buffer[1]>=0130&&cur_buffer[1]<=0132)||cur_buffer[1]==0111)
2531
-cur_buffer[1]+= 0172-0132;
2532
+if((cur_buffer[1]>='X'&&cur_buffer[1]<='Z')||cur_buffer[1]=='I')
2533
+cur_buffer[1]+= 'z'-'Z';
2534
2535
+/* :114 */
2536
+#line 3121 "./common.web"
2537
;
2538
+/* 115: */
2539
+#line 2063 "./common.web"
2540
2541
2542
-if(cur_buffer[1]==0151)
2543
+if(cur_buffer[1]=='i')
2544
{
2545
loc= cur_buffer+2;
2546
2547
@@ -3401,21 +3960,25 @@ err0_print(ERR_C,OC("Sorry, no includes allowed in change file"),0);
2548
2549
}
2550
2551
+/* :115 */
2552
+#line 3122 "./common.web"
2553
;
2554
2555
-if(cur_buffer[1]==0170||cur_buffer[1]==0171)
2556
+if(cur_buffer[1]=='x'||cur_buffer[1]=='y')
2557
{
2558
loc= cur_buffer+2;
2559
err0_print(ERR_C,OC("Where is the matching @z?"),0);
2560
2561
}
2562
-else if(cur_buffer[1]==0172)
2563
+else if(cur_buffer[1]=='z')
2564
{
2565
prime_the_change_buffer();prn_where= YES;
2566
}
2567
}
2568
}
2569
2570
+/* :153 */
2571
+#line 2485 "./common.web"
2572
;
2573
2574
if(!changing)
2575
@@ -3425,9 +3988,11 @@ chngd_module[module_count]= YES;goto restart;
2576
}
2577
2578
process_line:
2579
-loc= cur_buffer;*limit= 040;
2580
+loc= cur_buffer;*limit= ' ';
2581
2582
if(return_toggle)
2583
+/* 135: */
2584
+#line 2559 "./common.web"
2585
2586
{
2587
return_toggle= YES;
2588
@@ -3439,21 +4004,25 @@ STRNCPY(stored_line,cur_buffer,stored_line_length);
2589
loc= cur_buffer+2;
2590
get_fname(prms[1].web.File_name);
2591
loc= limit= cur_buffer;
2592
-*limit++= 0100;*limit++= '\001';*limit= 040;
2593
+*limit++= '@';*limit++= '\001';*limit= ' ';
2594
2595
return YES;
2596
}
2597
2598
+/* :135 */
2599
+#line 2497 "./common.web"
2600
2601
2602
-if(*cur_buffer==0100)
2603
+if(*cur_buffer=='@')
2604
switch(*(cur_buffer+1))
2605
{
2606
-case 0151:
2607
-case 0111:
2608
+case 'i':
2609
+case 'I':
2610
+/* 133: */
2611
+#line 2512 "./common.web"
2612
2613
2614
-if(*(cur_buffer+1)==0111&&(skip_includes||
2615
+if(*(cur_buffer+1)=='I'&&(skip_includes||
2616
(program==weave&&toggle_includes&&CUR_FILE==WEB_FILE)))
2617
{
2618
if(skip_includes)
2619
@@ -3464,6 +4033,8 @@ goto restart;
2620
else if(toggle_includes&&CUR_FILE==WEB_FILE)
2621
{
2622
toggling= YES;
2623
+/* 135: */
2624
+#line 2559 "./common.web"
2625
2626
{
2627
return_toggle= YES;
2628
@@ -3475,15 +4046,19 @@ STRNCPY(stored_line,cur_buffer,stored_line_length);
2629
loc= cur_buffer+2;
2630
get_fname(prms[1].web.File_name);
2631
loc= limit= cur_buffer;
2632
-*limit++= 0100;*limit++= '\001';*limit= 040;
2633
+*limit++= '@';*limit++= '\001';*limit= ' ';
2634
2635
return YES;
2636
}
2637
2638
+/* :135 */
2639
+#line 2525 "./common.web"
2640
2641
}
2642
}
2643
else
2644
+/* 139: */
2645
+#line 2630 "./common.web"
2646
2647
{
2648
boolean found_include;
2649
@@ -3510,6 +4085,8 @@ err0_print(ERR_C,OC("Include file name not given"),0);
2650
else
2651
{
2652
if(skip_ifiles)
2653
+/* 142: */
2654
+#line 2708 "./common.web"
2655
2656
{
2657
int j;
2658
@@ -3533,6 +4110,8 @@ STRCPY(ifiles[num_ifiles],cur_file_name);
2659
num_ifiles++;
2660
}
2661
2662
+/* :142 */
2663
+#line 2654 "./common.web"
2664
2665
2666
if(!get_fname(change_file_name))
2667
@@ -3552,19 +4131,27 @@ if(found_include)
2668
if(ini_input_prms(CUR_FILE,incl.list,DONT_ABORT_ON_ERROR))
2669
{
2670
if(cur_prms.change->File!=prms[incl_depth-1].change.File)
2671
+/* 122: */
2672
+#line 2205 "./common.web"
2673
2674
{
2675
cur0_prms= cur_prms.change;
2676
changing= YES;
2677
change_params= change_params0;
2678
prime_the_change_buffer();
2679
+/* 120: */
2680
+#line 2191 "./common.web"
2681
2682
2683
-limit= cur_buffer;loc= cur_buffer+1;cur_buffer[0]= 040
2684
+limit= cur_buffer;loc= cur_buffer+1;cur_buffer[0]= ' '
2685
2686
+/* :120 */
2687
+#line 2211 "./common.web"
2688
;
2689
}
2690
2691
+/* :122 */
2692
+#line 2673 "./common.web"
2693
2694
else*cur_prms.change= prms[incl_depth-1].change;
2695
2696
@@ -3584,8 +4171,12 @@ incl_depth--;
2697
goto restart;
2698
}
2699
2700
+/* :139 */
2701
+#line 2529 "./common.web"
2702
2703
2704
+/* :133 */
2705
+#line 2504 "./common.web"
2706
2707
break;
2708
}
2709
@@ -3593,6 +4184,9 @@ break;
2710
return(boolean)(!input_has_ended);
2711
}
2712
2713
+/* :132 */
2714
+/* 143: */
2715
+#line 2733 "./common.web"
2716
2717
2718
boolean
2719
@@ -3605,26 +4199,28 @@ outer_char HUGE*k;
2720
skip_white:
2721
2722
2723
-while(loc<=limit&&(*loc==040||*loc==011||*loc==042))loc++;
2724
+while(loc<=limit&&(*loc==' '||*loc=='\t'||*loc=='"'))loc++;
2725
2726
2727
2728
if(loc>=limit)return NO;
2729
2730
+/* 144: */
2731
+#line 2772 "./common.web"
2732
2733
{
2734
-if(*loc==057)
2735
+if(*loc=='/')
2736
{
2737
-if(*(loc+1)==057)
2738
+if(*(loc+1)=='/')
2739
{
2740
loc= limit+1;
2741
return NO;
2742
}
2743
2744
-if(*(loc+1)==052)
2745
+if(*(loc+1)=='*')
2746
{
2747
for(loc+= 2;loc<=limit;loc++)
2748
-if(*loc==052&&*(loc+1)==057)
2749
+if(*loc=='*'&&*(loc+1)=='/')
2750
{
2751
loc+= 2;
2752
goto skip_white;
2753
@@ -3636,21 +4232,29 @@ err0_print(ERR_C,OC("Can't continue comments on @i lines"),0);
2754
}
2755
}
2756
2757
+/* :144 */
2758
+#line 2751 "./common.web"
2759
2760
2761
k= file_name;j= loc;
2762
2763
2764
-while(*loc!=040&&*loc!=011&&*loc!=042)*k++= XCHR(*loc++);
2765
+while(*loc!=' '&&*loc!='\t'&&*loc!='"')*k++= XCHR(*loc++);
2766
TERMINATE(k,0);
2767
2768
2769
+/* :143 */
2770
+/* 143: */
2771
+#line 2765 "./common.web"
2772
2773
add_prefix(file_name);
2774
2775
return YES;
2776
}
2777
2778
+/* :143 */
2779
+/* 145: */
2780
+#line 2799 "./common.web"
2781
2782
2783
SRTN
2784
@@ -3671,6 +4275,9 @@ STRCPY(file_name,temp);
2785
}
2786
}
2787
2788
+/* :145 */
2789
+/* 146: */
2790
+#line 2822 "./common.web"
2791
2792
2793
SRTN
2794
@@ -3739,6 +4346,9 @@ STRCPY(name,temp);
2795
#endif
2796
}
2797
2798
+/* :146 */
2799
+/* 148: */
2800
+#line 2958 "./common.web"
2801
2802
2803
boolean
2804
@@ -3752,7 +4362,7 @@ return NO;
2805
2806
2807
2808
-limbo_material= BOOLEAN(cur_buffer[0]==0100&&cur_buffer[1]==0172);
2809
+limbo_material= BOOLEAN(cur_buffer[0]=='@'&&cur_buffer[1]=='z');
2810
2811
if(limbo_material)
2812
do
2813
@@ -3770,7 +4380,7 @@ find_keywords(cur_buffer,limit);
2814
2815
2816
}
2817
-while(!(cur_buffer[0]==0100&&cur_buffer[1]==0170));
2818
+while(!(cur_buffer[0]=='@'&&cur_buffer[1]=='x'));
2819
2820
2821
2822
@@ -3784,6 +4394,9 @@ return NO;
2823
return YES;
2824
}
2825
2826
+/* :148 */
2827
+/* 149: */
2828
+#line 3007 "./common.web"
2829
2830
2831
SRTN
2832
@@ -3795,38 +4408,41 @@ ASCII HUGE*pk,HUGE*pk_end,HUGE*ptext,HUGE*ptext_end;
2833
2834
*p_end= '\0';
2835
2836
-pk= (ASCII HUGE*)STRCHR(p,044);
2837
+pk= (ASCII HUGE*)STRCHR(p,'$');
2838
2839
if(!pk)
2840
return;
2841
2842
-pk_end= (ASCII HUGE*)STRCHR(pk,072);
2843
+pk_end= (ASCII HUGE*)STRCHR(pk,':');
2844
2845
if(!pk_end)
2846
return;
2847
2848
-if(pk_end[1]!=040)
2849
+if(pk_end[1]!=' ')
2850
return;
2851
2852
-ptext_end= (ASCII HUGE*)STRCHR(pk_end+1,044);
2853
+ptext_end= (ASCII HUGE*)STRCHR(pk_end+1,'$');
2854
2855
if(!ptext_end)
2856
return;
2857
2858
-if(ptext_end[-1]!=040)
2859
+if(ptext_end[-1]!=' ')
2860
return;
2861
2862
2863
-for(ptext= pk_end+2;*ptext==040;ptext++)
2864
+for(ptext= pk_end+2;*ptext==' ';ptext++)
2865
;
2866
2867
2868
-for(ptext_end--;*ptext_end==040;ptext_end--)
2869
+for(ptext_end--;*ptext_end==' ';ptext_end--)
2870
;
2871
2872
add_keyword(pk+1,pk_end,ptext,ptext_end+1);
2873
}
2874
2875
+/* :149 */
2876
+/* 152: */
2877
+#line 3064 "./common.web"
2878
2879
2880
SRTN
2881
@@ -3871,6 +4487,9 @@ STRCPY(prcs->txt,pt);
2882
prcs->next= NULL;
2883
}
2884
2885
+/* :152 */
2886
+/* 154: */
2887
+#line 3139 "./common.web"
2888
2889
2890
SRTN
2891
@@ -3888,6 +4507,9 @@ err0_print(ERR_C,OC("Change file entry did not match"),0);
2892
}
2893
}
2894
2895
+/* :154 */
2896
+/* 157: */
2897
+#line 3175 "./common.web"
2898
2899
2900
void HUGE*
2901
@@ -3943,6 +4565,9 @@ show_alloc('+',why,nunits,(BUF_SIZE)nsize,nbytes,p,total_mem);
2902
return p;
2903
}
2904
2905
+/* :157 */
2906
+/* 158: */
2907
+#line 3231 "./common.web"
2908
2909
2910
SRTN
2911
@@ -3962,6 +4587,9 @@ printf("(%s total)\n",commas(total_mem));
2912
free_buf(&c_buf);
2913
}
2914
2915
+/* :158 */
2916
+/* 159: */
2917
+#line 3259 "./common.web"
2918
2919
2920
SRTN
2921
@@ -3980,6 +4608,9 @@ PTR_BASE
2922
printf(ptr_string,p,(char HUGE*)p+nbytes);
2923
}
2924
2925
+/* :159 */
2926
+/* 160: */
2927
+#line 3279 "./common.web"
2928
2929
2930
SRTN
2931
@@ -4007,6 +4638,9 @@ show_alloc('-',why,nunits,(BUF_SIZE)nsize,nbytes,p,total_mem);
2932
FREE(p);
2933
}
2934
2935
+/* :160 */
2936
+/* 164: */
2937
+#line 3485 "./common.web"
2938
2939
2940
MEM HUGE*
2941
@@ -4048,6 +4682,9 @@ mark_harmless;
2942
return m;
2943
}
2944
2945
+/* :164 */
2946
+/* 165: */
2947
+#line 3530 "./common.web"
2948
2949
2950
void HUGE*
2951
@@ -4069,6 +4706,9 @@ else
2952
return get_mem0(abbrev,(*pnunits)+dn,nsize);
2953
}
2954
2955
+/* :165 */
2956
+/* 166: */
2957
+#line 3552 "./common.web"
2958
2959
MEM HUGE*
2960
find_abbrev FCN((abbrev))
2961
@@ -4086,6 +4726,9 @@ confusion(OC("find_abbrev"),OC("Bad alloc abbreviation \"%s\""),abbrev);
2962
return NULL;
2963
}
2964
2965
+/* :166 */
2966
+/* 167: */
2967
+#line 3573 "./common.web"
2968
2969
#ifdef mcc
2970
2971
@@ -4120,6 +4763,9 @@ return new_ptr;
2972
2973
#endif
2974
2975
+/* :167 */
2976
+/* 170: */
2977
+#line 3633 "./common.web"
2978
2979
2980
unsigned
2981
@@ -4160,6 +4806,9 @@ n= PTR_DIFF(int,p1,p0);
2982
return n;
2983
}
2984
2985
+/* :170 */
2986
+/* 175: */
2987
+#line 3719 "./common.web"
2988
2989
2990
name_pointer
2991
@@ -4183,13 +4832,19 @@ for(last= first;*last!='\0';last++)
2992
}
2993
2994
l= PTR_DIFF(int,last,first);
2995
+/* 186: */
2996
+#line 3977 "./common.web"
2997
2998
2999
h= *i;
3000
3001
while(++i<last)h= (h+h+*i)%hash_size;
3002
3003
+/* :186 */
3004
+#line 3742 "./common.web"
3005
;
3006
+/* 187: */
3007
+#line 3986 "./common.web"
3008
3009
p= hash[h];
3010
3011
@@ -4202,9 +4857,13 @@ p->link= hash[h];hash[h]= p;
3012
3013
}
3014
3015
+/* :187 */
3016
+#line 3743 "./common.web"
3017
;
3018
3019
if(p==name_ptr)
3020
+/* 188: */
3021
+#line 4002 "./common.web"
3022
3023
{
3024
if(byte_ptr+l>byte_end)OVERFLW("bytes","b");
3025
@@ -4217,6 +4876,8 @@ if(program==weave)
3026
ini_p(p,t);
3027
}
3028
3029
+/* :188 */
3030
+#line 3746 "./common.web"
3031
;
3032
3033
if(!(p->Language&(boolean)language))
3034
@@ -4246,6 +4907,9 @@ default:;
3035
return p;
3036
}
3037
3038
+/* :175 */
3039
+/* 176: */
3040
+#line 3780 "./common.web"
3041
3042
3043
sixteen_bits
3044
@@ -4299,12 +4963,16 @@ STRCPY(a,s);
3045
i= first= to_ASCII((outer_char*)a);
3046
last= first+l;
3047
3048
+/* 186: */
3049
+#line 3977 "./common.web"
3050
3051
3052
h= *i;
3053
3054
while(++i<last)h= (h+h+*i)%hash_size;
3055
3056
+/* :186 */
3057
+#line 3833 "./common.web"
3058
3059
p= hash[h];
3060
while(p&&!(STRNCMP(first,p->byte_start,l)==0))
3061
@@ -4321,7 +4989,11 @@ FREE_MEM(a,"find_s",l+1,ASCII);
3062
return n;
3063
}
3064
3065
+#line 8 "./t_codes.hweb"
3066
3067
+/* :176 */
3068
+/* 180: */
3069
+#line 3852 "./common.web"
3070
3071
3072
sixteen_bits
3073
@@ -4332,6 +5004,9 @@ eight_bits a1 C1("")
3074
return find_n(IDENTIFIER(a0,a1));
3075
}
3076
3077
+/* :180 */
3078
+/* 181: */
3079
+#line 3863 "./common.web"
3080
3081
3082
SRTN
3083
@@ -4363,6 +5038,9 @@ if(!prsrvd||prsrvd->keywords)
3084
pr_lan("keyword ",np->keyword);
3085
}
3086
3087
+/* :181 */
3088
+/* 184: */
3089
+#line 3922 "./common.web"
3090
3091
3092
SRTN
3093
@@ -4391,10 +5069,14 @@ printf("(none)");
3094
3095
printf(" }");
3096
3097
+#line 3951 "./common.web"
3098
3099
puts("");
3100
}
3101
3102
+/* :184 */
3103
+/* 185: */
3104
+#line 3956 "./common.web"
3105
3106
3107
BUF_SIZE
3108
@@ -4412,6 +5094,9 @@ putchar('\n');
3109
return n;
3110
}
3111
3112
+/* :185 */
3113
+/* 191: */
3114
+#line 4042 "./common.web"
3115
3116
3117
name_pointer
3118
@@ -4443,6 +5128,9 @@ return NULL;
3119
return install_node(q,c,k,PTR_DIFF(int,l,k)+1);
3120
}
3121
3122
+/* :191 */
3123
+/* 192: */
3124
+#line 4075 "./common.web"
3125
3126
3127
LEXI
3128
@@ -4461,6 +5149,9 @@ else if(*j<*k)return LESS;
3129
else return GREATER;
3130
}
3131
3132
+/* :192 */
3133
+/* 193: */
3134
+#line 4101 "./common.web"
3135
3136
3137
name_pointer
3138
@@ -4483,6 +5174,9 @@ STRNCPY(byte_ptr,j,name_len);
3139
return node;
3140
}
3141
3142
+/* :193 */
3143
+/* 194: */
3144
+#line 4129 "./common.web"
3145
3146
3147
name_pointer
3148
@@ -4519,6 +5213,9 @@ err0_print(ERR_C,OC("Ambiguous prefix"),0);
3149
return r;
3150
}
3151
3152
+/* :194 */
3153
+/* 195: */
3154
+#line 4165 "./common.web"
3155
3156
3157
unsigned
3158
@@ -4533,6 +5230,9 @@ r= prefix_lookup((ASCII HUGE*)s,(ASCII HUGE*)(s+STRLEN(s)));
3159
return r?prn_id(r):0;
3160
}
3161
3162
+/* :195 */
3163
+/* 198: */
3164
+#line 4213 "./common.web"
3165
3166
3167
SRTN
3168
@@ -4599,6 +5299,8 @@ printf(".");
3169
3170
3171
if(err_origin==ERR_S)
3172
+/* 201: */
3173
+#line 4384 "./common.web"
3174
3175
{
3176
CONST outer_char HUGE*k,HUGE*l;
3177
@@ -4624,8 +5326,12 @@ putchar(*k>127?' ':*k);
3178
putchar('\n');
3179
}
3180
3181
+/* :201 */
3182
+#line 4279 "./common.web"
3183
3184
else
3185
+/* 199: */
3186
+#line 4304 "./common.web"
3187
3188
{
3189
if(cur0_prms)
3190
@@ -4663,7 +5369,7 @@ l= cur_buffer+MAX_ERR_BUF;
3191
}
3192
3193
for(k= cur_buffer;k<l;k++)
3194
-if(*k==011)
3195
+if(*k=='\t')
3196
putchar(' ');
3197
else
3198
putchar(*k>127?' ':XCHR(*k));
3199
@@ -4687,13 +5393,15 @@ putchar(*k>127?' ':XCHR(*k));
3200
3201
}
3202
if(limit!=NULL)
3203
-if(*limit==0174)putchar('|');
3204
+if(*limit=='|')putchar('|');
3205
3206
putchar(' ');
3207
err_happened= YES;
3208
}
3209
}
3210
3211
+/* :199 */
3212
+#line 4281 "./common.web"
3213
3214
}
3215
3216
@@ -4708,6 +5416,9 @@ free_buf(&sput_buf);
3217
set_color(NORMAL);
3218
}
3219
3220
+/* :198 */
3221
+/* 202: */
3222
+#line 4413 "./common.web"
3223
3224
3225
int
3226
@@ -4753,6 +5464,9 @@ return wrap_up();
3227
3228
}
3229
3230
+/* :202 */
3231
+/* 203: */
3232
+#line 4467 "./common.web"
3233
3234
3235
int
3236
@@ -4788,6 +5502,9 @@ I'M CONFUSED; this shouldn't happen. PLEASE REPORT THIS!!! "),OC(temp));
3237
}
3238
3239
3240
+/* :203 */
3241
+/* 204: */
3242
+#line 4500 "./common.web"
3243
3244
3245
SRTN
3246
@@ -4811,6 +5528,9 @@ fatal(ERR_NULL,OC("!!! Sorry, CAPACITY EXCEEDED: "),OC("Too many %s. Current n
3247
}
3248
3249
3250
+/* :204 */
3251
+/* 205: */
3252
+#line 4527 "./common.web"
3253
3254
3255
SRTN
3256
@@ -4825,6 +5545,9 @@ of %i;",name,value);
3257
OVERFLW(temp,"");
3258
}
3259
3260
+/* :205 */
3261
+/* 206: */
3262
+#line 4547 "./common.web"
3263
3264
3265
#if(VMS)
3266
@@ -4844,6 +5567,8 @@ see_statistics();
3267
prn_time();
3268
#endif
3269
3270
+/* 208: */
3271
+#line 4609 "./common.web"
3272
3273
{
3274
if(msg_level>=SHORT_INFO
3275
@@ -4887,7 +5612,11 @@ CLR_PRINTF(ALWAYS,program_name,("]\n"));
3276
set_color(NORMAL);
3277
}
3278
3279
+/* :208 */
3280
+#line 4566 "./common.web"
3281
3282
+/* 207: */
3283
+#line 4597 "./common.web"
3284
3285
{
3286
if(cur_prms.web&&cur_prms.web->File)
3287
@@ -4899,6 +5628,8 @@ fclose(cur_prms.change->File);
3288
cls_files();
3289
}
3290
3291
+/* :207 */
3292
+#line 4567 "./common.web"
3293
3294
3295
SET_COLOR(ordinary);
3296
@@ -4926,6 +5657,9 @@ exit(1);
3297
return-1;
3298
}
3299
3300
+/* :206 */
3301
+/* 209: */
3302
+#line 4654 "./common.web"
3303
3304
3305
char
3306
@@ -4945,6 +5679,9 @@ else
3307
return '!';
3308
}
3309
3310
+/* :209 */
3311
+/* 210: */
3312
+#line 4675 "./common.web"
3313
3314
3315
SRTN
3316
@@ -4956,6 +5693,9 @@ fatal(ERR_C,OC("Output error"),OC("from %s (quota exceeded?)."),fcn);
3317
}
3318
3319
3320
+/* :210 */
3321
+/* 211: */
3322
+#line 4691 "./common.web"
3323
3324
3325
boolean
3326
@@ -5002,6 +5742,9 @@ fflush(stdout);
3327
return(STRCMP(buf,"yes")==0);
3328
}
3329
3330
+/* :211 */
3331
+/* 219: */
3332
+#line 5051 "./common.web"
3333
3334
3335
SRTN
3336
@@ -5024,6 +5767,8 @@ banner();
3337
if(statistics)
3338
mem_avail(0);
3339
3340
+/* 233: */
3341
+#line 5593 "./common.web"
3342
3343
{
3344
outer_char HUGE*dot_pos;
3345
@@ -5056,6 +5801,8 @@ TERMINATE(dot_pos,0);
3346
}
3347
}
3348
3349
+/* 235: */
3350
+#line 5641 "./common.web"
3351
3352
{
3353
if(p)
3354
@@ -5071,15 +5818,23 @@ STRCPY(wbflnm0,wbflnm);
3355
}
3356
}
3357
3358
+/* :235 */
3359
+#line 5622 "./common.web"
3360
3361
}
3362
3363
+/* :233 */
3364
+#line 5073 "./common.web"
3365
3366
3367
+/* 250: */
3368
+#line 6145 "./common.web"
3369
3370
{
3371
read_sty(style_file_name,renamed_style);
3372
3373
+/* 251: */
3374
+#line 6155 "./common.web"
3375
3376
{
3377
DOT_DELIMITER HUGE*d= &wt_style.dot_delimiter;
3378
@@ -5093,11 +5848,17 @@ t_style.ASCII_fcn= x__to_ASCII((outer_char*)t_style.ASCII_fcn);
3379
}
3380
}
3381
3382
+/* :251 */
3383
+#line 6149 "./common.web"
3384
3385
}
3386
3387
+/* :250 */
3388
+#line 5075 "./common.web"
3389
3390
3391
+/* 232: */
3392
+#line 5568 "./common.web"
3393
3394
{
3395
int k;
3396
@@ -5122,6 +5883,8 @@ set_name(RATFOR_90,wt_style.output_ext.R90_);
3397
set_name(TEX,wt_style.output_ext.X_);
3398
}
3399
3400
+/* :232 */
3401
+#line 5077 "./common.web"
3402
;
3403
3404
if(!(found_web||info_option))
3405
@@ -5131,6 +5894,9 @@ if(!found_change)
3406
*change_file_name= '\0';
3407
}
3408
3409
+/* :219 */
3410
+/* 220: */
3411
+#line 5096 "./common.web"
3412
3413
3414
outer_char HUGE*
3415
@@ -5175,6 +5941,9 @@ STRCPY(--b,line1);
3416
return buf;
3417
}
3418
3419
+/* :220 */
3420
+/* 222: */
3421
+#line 5169 "./common.web"
3422
3423
3424
SRTN
3425
@@ -5199,6 +5968,8 @@ k= 0;
3426
3427
ini_args= GET_MEM("ini_args",MAX_INI_ARGS,outer_char HUGE*);
3428
3429
+/* 223: */
3430
+#line 5231 "./common.web"
3431
3432
{
3433
outer_char*p_root,ini_root[MAX_FILE_NAME_LENGTH];
3434
@@ -5222,10 +5993,14 @@ ini_file= FOPEN(mk_fname(ini_file_name,MAX_FILE_NAME_LENGTH,
3435
HOME,YES,ini_root),"r");
3436
}
3437
3438
+/* :223 */
3439
+#line 5193 "./common.web"
3440
3441
3442
3443
if(ini_file)
3444
+/* 224: */
3445
+#line 5256 "./common.web"
3446
3447
{
3448
outer_char CONST HUGE*b,HUGE*blimit;
3449
@@ -5255,6 +6030,8 @@ goto done;
3450
case '"':
3451
case '\'':
3452
blank= NO;
3453
+/* 225: */
3454
+#line 5329 "./common.web"
3455
3456
{
3457
outer_char delim= *b;
3458
@@ -5292,6 +6069,8 @@ else
3459
*t++= *b++;
3460
}
3461
3462
+/* :225 */
3463
+#line 5285 "./common.web"
3464
3465
goto done;
3466
3467
@@ -5336,6 +6115,8 @@ putchar('\n');
3468
#endif
3469
}
3470
3471
+/* :224 */
3472
+#line 5197 "./common.web"
3473
3474
3475
3476
@@ -5362,6 +6143,9 @@ FREE_MEM(buffer,"buffer",T_SIZE,char);
3477
FREE_MEM(temp,"temp",T_SIZE,char);
3478
}
3479
3480
+/* :222 */
3481
+/* 227: */
3482
+#line 5375 "./common.web"
3483
3484
3485
SRTN
3486
@@ -5412,6 +6196,9 @@ pincl->num++;
3487
}
3488
}
3489
3490
+/* :227 */
3491
+/* 228: */
3492
+#line 5427 "./common.web"
3493
3494
3495
int
3496
@@ -5429,6 +6216,9 @@ return n;
3497
}
3498
3499
3500
+/* :228 */
3501
+/* 229: */
3502
+#line 5445 "./common.web"
3503
3504
3505
char*
3506
@@ -5482,6 +6272,9 @@ STRCPY(buffer,file_name);
3507
return(char*)buffer;
3508
}
3509
3510
+/* :229 */
3511
+/* 230: */
3512
+#line 5495 "./common.web"
3513
3514
3515
boolean
3516
@@ -5500,6 +6293,9 @@ return YES;
3517
return NO;
3518
}
3519
3520
+/* :230 */
3521
+/* 231: */
3522
+#line 5515 "./common.web"
3523
3524
3525
SRTN
3526
@@ -5540,6 +6336,9 @@ pn++;
3527
}
3528
}
3529
3530
+/* :231 */
3531
+/* 234: */
3532
+#line 5626 "./common.web"
3533
3534
3535
SRTN
3536
@@ -5553,6 +6352,9 @@ if(*params.outp_nm[k= lan_num(l)]=='\0')
3537
new_fname(params.outp_nm+k,wbflnm0,output_ext);
3538
}
3539
3540
+/* :234 */
3541
+/* 236: */
3542
+#line 5659 "./common.web"
3543
3544
3545
outer_char HUGE*
3546
@@ -5599,6 +6401,9 @@ return*pout_name;
3547
}
3548
3549
3550
+/* :236 */
3551
+/* 239: */
3552
+#line 5737 "./common.web"
3553
3554
3555
SRTN
3556
@@ -5624,6 +6429,8 @@ last_mod_name= mod_names+MAX_MOD_NAMES;
3557
if(TeX_processor!=LaTeX_p)
3558
return;
3559
3560
+/* 240: */
3561
+#line 5781 "./common.web"
3562
3563
{
3564
outer_char*dot_pos;
3565
@@ -5655,6 +6462,8 @@ reading(aux_file_name,YES);
3566
3567
}
3568
3569
+/* :240 */
3570
+#line 5762 "./common.web"
3571
3572
3573
modno= 0;
3574
@@ -5666,6 +6475,8 @@ aline++;
3575
if(STRNCMP(buffer,"\\Newlabel",9)!=0)
3576
continue;
3577
3578
+/* 242: */
3579
+#line 5826 "./common.web"
3580
3581
{
3582
#if(!ANSI_SSCANF)
3583
@@ -5749,6 +6560,8 @@ pmcount= 1;
3584
}
3585
}
3586
3587
+/* :242 */
3588
+#line 5773 "./common.web"
3589
3590
}
3591
3592
@@ -5756,6 +6569,9 @@ sect_info[modno].subpage_flag= BOOLEAN(pmcount!=1);
3593
fclose(fa);
3594
}
3595
3596
+/* :239 */
3597
+/* 245: */
3598
+#line 5994 "./common.web"
3599
3600
3601
outer_char HUGE*
3602
@@ -5773,13 +6589,13 @@ outer_char c,letter[2];
3603
letter[1]= '\0';
3604
3605
c= (ps->subpage_flag?
3606
-XCHR(modno-ps->modno0+0141-1):'\0');
3607
+XCHR(modno-ps->modno0+'a'-1):'\0');
3608
3609
if(c)
3610
{
3611
-if(XORD(c)>0172)
3612
+if(XORD(c)>'z')
3613
c= '?';
3614
-else if(c==0140)
3615
+else if(c=='`')
3616
c= '\0';
3617
}
3618
3619
@@ -5803,6 +6619,9 @@ confusion(OC("mod_trans"),OC("too many unfreed mod names"));
3620
return*(next_mod_name++)= mod_temp;
3621
}
3622
3623
+/* :245 */
3624
+/* 246: */
3625
+#line 6038 "./common.web"
3626
3627
3628
SRTN
3629
@@ -5821,6 +6640,9 @@ FREE(*next_mod_name);
3630
}
3631
}
3632
3633
+/* :246 */
3634
+/* 247: */
3635
+#line 6062 "./common.web"
3636
3637
3638
int
3639
@@ -5865,6 +6687,9 @@ default:return NO_LANGUAGE;
3640
}
3641
}
3642
3643
+/* :247 */
3644
+/* 248: */
3645
+#line 6109 "./common.web"
3646
3647
int
3648
lan_index FCN((Language))
3649
@@ -5891,6 +6716,9 @@ default:Language= global_language;goto proper_language;
3650
}
3651
}
3652
3653
+/* :248 */
3654
+/* 253: */
3655
+#line 6181 "./common.web"
3656
3657
3658
SRTN
3659
@@ -5930,6 +6758,8 @@ pa= pa_begin= *(argv++);
3660
3661
3662
if((a_file_name= BOOLEAN(*pa!='-'))||*(pa+1)=='\0')
3663
+/* 254: */
3664
+#line 6227 "./common.web"
3665
3666
{
3667
if(doing_cmd_line)
3668
@@ -5940,6 +6770,8 @@ STRCPY(wbflnm,THE_FILE_NAME);
3669
*pfound_web= YES;
3670
}
3671
else if(!*pfound_change)
3672
+/* 255: */
3673
+#line 6250 "./common.web"
3674
3675
{
3676
if(a_file_name&&STRLEN(pa)>MAX_FILE_NAME_LENGTH-5)
3677
@@ -5964,8 +6796,12 @@ nsprintf(change_file_name,OC("%s"),1,THE_FILE_NAME)>=(int)(MAX_FILE_NAME_LENGTH)
3678
*pfound_change= YES;
3679
}
3680
3681
+/* :255 */
3682
+#line 6237 "./common.web"
3683
3684
else
3685
+/* 321: */
3686
+#line 8545 "./common.web"
3687
3688
{
3689
printf("! Warning: Ignoring multiple change file \"%s\".\n",
3690
@@ -5974,6 +6810,8 @@ mark_harmless;
3691
continue;
3692
}
3693
3694
+/* :321 */
3695
+#line 6239 "./common.web"
3696
;
3697
}
3698
else
3699
@@ -5984,8 +6822,12 @@ mark_harmless;
3700
}
3701
}
3702
3703
+/* :254 */
3704
+#line 6220 "./common.web"
3705
3706
else
3707
+/* 264: */
3708
+#line 6572 "./common.web"
3709
3710
{
3711
outer_char mc;
3712
@@ -6015,6 +6857,8 @@ tracing= VERBOSE;
3713
break;
3714
3715
case '@':
3716
+/* 265: */
3717
+#line 6853 "./common.web"
3718
3719
{
3720
if(!at_codes)
3721
@@ -6027,11 +6871,15 @@ STRCAT(at_codes,to_ASCII(pa));
3722
info_option= YES;
3723
}
3724
3725
+/* :265 */
3726
+#line 6601 "./common.web"
3727
3728
continue;
3729
3730
case 'a':
3731
case 'A':
3732
+/* 266: */
3733
+#line 6870 "./common.web"
3734
3735
{
3736
#if(TRANSLATE_ASCII || DEBUG_XCHR)
3737
@@ -6042,10 +6890,14 @@ translate_ASCII= NOT(TRANSLATE_ASCII0);
3738
}
3739
3740
3741
+/* :266 */
3742
+#line 6606 "./common.web"
3743
3744
break;
3745
3746
case 'b':
3747
+/* 267: */
3748
+#line 6882 "./common.web"
3749
3750
{
3751
params.Block_nums[LN(FORTRAN)]
3752
@@ -6055,6 +6907,8 @@ params.Block_nums[LN(FORTRAN)]
3753
= NOT(BLOCK_NUMS);
3754
}
3755
3756
+/* :267 */
3757
+#line 6610 "./common.web"
3758
3759
break;
3760
3761
@@ -6062,15 +6916,25 @@ case 'B':
3762
beeps= NOT(BEEPS);
3763
break;
3764
3765
+/* 15: */
3766
+#line 118 "./typedefs.hweb"
3767
3768
case 'c'
3769
3770
+/* :15 */
3771
+#line 6617 "./common.web"
3772
:
3773
+/* 268: */
3774
+#line 6894 "./common.web"
3775
3776
{
3777
+/* 315: */
3778
+#line 8468 "./common.web"
3779
3780
cant_negate(pa-2);
3781
3782
+/* :315 */
3783
+#line 6896 "./common.web"
3784
3785
3786
Cpp= BOOLEAN(*pa=='+');
3787
@@ -6095,6 +6959,8 @@ break;
3788
}
3789
3790
3791
+/* :268 */
3792
+#line 6618 "./common.web"
3793
3794
break;
3795
3796
@@ -6104,9 +6970,13 @@ pa++;
3797
break;
3798
3799
case 'D':
3800
+/* 269: */
3801
+#line 6928 "./common.web"
3802
3803
{
3804
if(*pa=='[')
3805
+/* 270: */
3806
+#line 6950 "./common.web"
3807
3808
{
3809
for(++pa;*pa!=']';pa++)
3810
@@ -6143,6 +7013,8 @@ break;
3811
pa++;
3812
}
3813
3814
+/* :270 */
3815
+#line 6931 "./common.web"
3816
3817
else
3818
{
3819
@@ -6162,6 +7034,8 @@ rsrvd.args= pa;
3820
info_option= YES;
3821
}
3822
3823
+/* :269 */
3824
+#line 6627 "./common.web"
3825
3826
continue;
3827
3828
@@ -6169,11 +7043,17 @@ case 'd':
3829
number_dos= NOT(NUMBER_DOS);
3830
3831
case ':':
3832
+/* 271: */
3833
+#line 6987 "./common.web"
3834
3835
{
3836
+/* 315: */
3837
+#line 8468 "./common.web"
3838
3839
cant_negate(pa-2);
3840
3841
+/* :315 */
3842
+#line 6989 "./common.web"
3843
3844
3845
max_stmt= STARTING_DO_NUM;
3846
@@ -6189,6 +7069,8 @@ err0_print(ERR_C,OC("Starting DO number must be < 99999; assuming %lu"),-1-1,max
3847
}
3848
3849
3850
+/* :271 */
3851
+#line 6634 "./common.web"
3852
3853
continue;
3854
3855
@@ -6196,11 +7078,17 @@ case 'e':
3856
try_extensions= NOT(TRY_EXTENSIONS);break;
3857
3858
case 'E':
3859
+/* 272: */
3860
+#line 7007 "./common.web"
3861
3862
{
3863
+/* 315: */
3864
+#line 8468 "./common.web"
3865
3866
cant_negate(pa-2);
3867
3868
+/* :315 */
3869
+#line 7009 "./common.web"
3870
3871
3872
if(*pa)
3873
@@ -6210,6 +7098,8 @@ else
3874
err0_print(ERR_C,OC("Missing character after -E option; option ignored"),-1-0);
3875
}
3876
3877
+/* :272 */
3878
+#line 6641 "./common.web"
3879
3880
break;
3881
3882
@@ -6223,14 +7113,20 @@ case 'g':
3883
dbg_output= NOT(DBG_OUTPUT);break;
3884
3885
case 'h':
3886
+/* 315: */
3887
+#line 8468 "./common.web"
3888
3889
cant_negate(pa-2);
3890
3891
+/* :315 */
3892
+#line 6654 "./common.web"
3893
3894
help();
3895
continue;
3896
3897
case 'H':
3898
+/* 275: */
3899
+#line 7078 "./common.web"
3900
3901
{
3902
outer_char HUGE*p= pa;
3903
@@ -6261,10 +7157,14 @@ continue;
3904
3905
}
3906
3907
+/* :275 */
3908
+#line 6659 "./common.web"
3909
3910
break;
3911
3912
case 'i':
3913
+/* 276: */
3914
+#line 7114 "./common.web"
3915
3916
{
3917
switch(*pa++)
3918
@@ -6287,16 +7187,22 @@ continue;
3919
}
3920
}
3921
3922
+/* :276 */
3923
+#line 6663 "./common.web"
3924
3925
break;
3926
3927
case 'I':
3928
+/* 277: */
3929
+#line 7142 "./common.web"
3930
3931
{
3932
more_includes(read_iformats?&hdr_incl:&incl,pa);
3933
3934
}
3935
3936
+/* :277 */
3937
+#line 6667 "./common.web"
3938
3939
continue;
3940
3941
@@ -6307,33 +7213,55 @@ case 'k':
3942
lc_keywords= NOT(LC_KEYWORDS);break;
3943
3944
case 'L':
3945
+/* 278: */
3946
+#line 7151 "./common.web"
3947
3948
{
3949
switch(*pa)
3950
{
3951
+/* 15: */
3952
+#line 118 "./typedefs.hweb"
3953
3954
case 'c'
3955
3956
+/* :15 */
3957
+#line 7155 "./common.web"
3958
:
3959
+/* 17: */
3960
+#line 124 "./typedefs.hweb"
3961
3962
case 'n'
3963
3964
+/* :17 */
3965
+#line 7156 "./common.web"
3966
:
3967
+/* 16: */
3968
+#line 121 "./typedefs.hweb"
3969
3970
case 'r'
3971
3972
+/* :16 */
3973
+#line 7157 "./common.web"
3974
:
3975
goto reswitch;
3976
3977
+/* 19: */
3978
+#line 130 "./typedefs.hweb"
3979
3980
case 'v'
3981
3982
3983
3984
+/* :19 */
3985
+#line 7160 "./common.web"
3986
:
3987
+/* 315: */
3988
+#line 8468 "./common.web"
3989
3990
cant_negate(pa-2);
3991
3992
+/* :315 */
3993
+#line 7161 "./common.web"
3994
3995
switch(*(pa+1))
3996
{
3997
@@ -6351,13 +7279,21 @@ break;
3998
}
3999
break;
4000
4001
+/* 18: */
4002
+#line 127 "./typedefs.hweb"
4003
4004
case 'x'
4005
4006
+/* :18 */
4007
+#line 7178 "./common.web"
4008
:
4009
+/* 315: */
4010
+#line 8468 "./common.web"
4011
4012
cant_negate(pa-2);
4013
4014
+/* :315 */
4015
+#line 7179 "./common.web"
4016
4017
switch(*(pa+1))
4018
{
4019
@@ -6381,10 +7317,14 @@ break;
4020
}
4021
}
4022
4023
+/* :278 */
4024
+#line 6677 "./common.web"
4025
4026
continue;
4027
4028
case 'l':
4029
+/* 279: */
4030
+#line 7205 "./common.web"
4031
4032
{
4033
prn_input_lines= BOOLEAN(YES^not);
4034
@@ -6416,10 +7356,14 @@ prn_input_addresses= YES;
4035
}
4036
}
4037
4038
+/* :279 */
4039
+#line 6681 "./common.web"
4040
4041
continue;
4042
4043
case 'M':
4044
+/* 288: */
4045
+#line 7576 "./common.web"
4046
4047
{
4048
if(!*pa)
4049
@@ -6439,20 +7383,31 @@ msg_level= EVERYTHING;
4050
}
4051
4052
4053
+/* :288 */
4054
+#line 6685 "./common.web"
4055
4056
continue;
4057
4058
case 'm':
4059
+/* 289: */
4060
+#line 7601 "./common.web"
4061
4062
{
4063
switch(*pa)
4064
{
4065
case '4':
4066
4067
+/* 315: */
4068
+#line 8468 "./common.web"
4069
4070
cant_negate(pa-2);
4071
4072
+/* :315 */
4073
+#line 7607 "./common.web"
4074
4075
+/* :289 */
4076
+/* 289: */
4077
+#line 7611 "./common.web"
4078
m4= !M4_;
4079
pa++;
4080
break;
4081
@@ -6487,6 +7442,8 @@ continue;
4082
}
4083
}
4084
4085
+/* :289 */
4086
+#line 6689 "./common.web"
4087
4088
break;
4089
4090
@@ -6503,6 +7460,8 @@ overload_ops= NOT(OVERLOAD_OPS);
4091
break;
4092
4093
case 'p':
4094
+/* 286: */
4095
+#line 7483 "./common.web"
4096
4097
{
4098
IN_STYLE outer_char HUGE*sprm_buf,HUGE*sprm_ptr,HUGE*sprm_end;
4099
@@ -6539,10 +7498,14 @@ sprm_ptr+= n;
4100
*sprm_ptr++= '\n';
4101
}
4102
4103
+/* :286 */
4104
+#line 6705 "./common.web"
4105
4106
continue;
4107
4108
case 'P':
4109
+/* 287: */
4110
+#line 7524 "./common.web"
4111
4112
{
4113
switch(*pa)
4114
@@ -6573,6 +7536,8 @@ pa++;
4115
}
4116
4117
4118
+/* :287 */
4119
+#line 6709 "./common.web"
4120
4121
break;
4122
4123
@@ -6581,9 +7546,13 @@ free_form_input= NOT(FREE_FORM_INPUT);
4124
Ratfor77= NOT(RATFOR77);
4125
break;
4126
4127
+/* 16: */
4128
+#line 121 "./typedefs.hweb"
4129
4130
case 'r'
4131
4132
+/* :16 */
4133
+#line 6717 "./common.web"
4134
:
4135
if(!RAT_OK("Language command ignored"))
4136
break;
4137
@@ -6591,6 +7560,8 @@ FR_args(RATFOR);
4138
continue;
4139
4140
case 's':
4141
+/* 294: */
4142
+#line 7733 "./common.web"
4143
4144
{
4145
statistics= NOT(STATISTICS);
4146
@@ -6611,23 +7582,35 @@ mark_harmless;
4147
}
4148
}
4149
4150
+/* :294 */
4151
+#line 6724 "./common.web"
4152
4153
continue;
4154
4155
case 't':
4156
+/* 302: */
4157
+#line 7917 "./common.web"
4158
4159
{
4160
+/* 315: */
4161
+#line 8468 "./common.web"
4162
4163
cant_negate(pa-2);
4164
4165
+/* :315 */
4166
+#line 7919 "./common.web"
4167
4168
ntrunc();
4169
}
4170
4171
+/* :302 */
4172
+#line 6728 "./common.web"
4173
4174
continue;
4175
4176
case 'T':
4177
+/* 306: */
4178
+#line 8034 "./common.web"
4179
4180
{
4181
outer_char HUGE*p= pa;
4182
@@ -6671,10 +7654,14 @@ break;
4183
}
4184
}
4185
4186
+/* :306 */
4187
+#line 6732 "./common.web"
4188
4189
continue;
4190
4191
case 'u':
4192
+/* 307: */
4193
+#line 8080 "./common.web"
4194
4195
{
4196
if(not)
4197
@@ -6689,6 +7676,8 @@ save_macro(OC("#undef"),pa);
4198
}
4199
4200
4201
+/* :307 */
4202
+#line 6736 "./common.web"
4203
4204
continue;
4205
4206
@@ -6713,6 +7702,8 @@ input_macros= NOT(INPUT_MACROS);
4207
continue;
4208
4209
case 'W':
4210
+/* 309: */
4211
+#line 8108 "./common.web"
4212
4213
{
4214
outer_char HUGE*p= pa;
4215
@@ -6799,6 +7790,8 @@ break;
4216
}
4217
}
4218
4219
+/* :309 */
4220
+#line 6760 "./common.web"
4221
4222
continue;
4223
4224
@@ -6817,6 +7810,8 @@ flags3(BOOLEAN(!not));
4225
continue;
4226
4227
case 'y':
4228
+/* 311: */
4229
+#line 8260 "./common.web"
4230
4231
{
4232
outer_char abbrev[80],HUGE*a;
4233
@@ -6825,9 +7820,13 @@ MEM HUGE*m,HUGE*mmin= NULL,HUGE*mmax= NULL;
4234
boolean query_mode= NO;
4235
4236
4237
+/* 315: */
4238
+#line 8468 "./common.web"
4239
4240
cant_negate(pa-2);
4241
4242
+/* :315 */
4243
+#line 8268 "./common.web"
4244
4245
4246
if(!*pa)
4247
@@ -6880,15 +7879,23 @@ msearch(abbrev,nunits);
4248
info_option= YES;
4249
}
4250
4251
+/* :311 */
4252
+#line 6778 "./common.web"
4253
4254
continue;
4255
4256
case 'z':
4257
+/* 312: */
4258
+#line 8323 "./common.web"
4259
4260
{
4261
+/* 315: */
4262
+#line 8468 "./common.web"
4263
4264
cant_negate(pa-2);
4265
4266
+/* :315 */
4267
+#line 8325 "./common.web"
4268
4269
4270
if(STRLEN(pa)<MAX_FILE_NAME_LENGTH)
4271
@@ -6911,6 +7918,8 @@ than %d characters"),-1-2,pa,MAX_FILE_NAME_LENGTH);
4272
}
4273
4274
4275
+/* :312 */
4276
+#line 6782 "./common.web"
4277
4278
continue;
4279
4280
@@ -6942,9 +7951,13 @@ chk_ifelse= NOT(CHK_IFELSE);break;
4281
4282
case '>':
4283
case '=':
4284
+/* 315: */
4285
+#line 8468 "./common.web"
4286
4287
cant_negate(pa-2);
4288
4289
+/* :315 */
4290
+#line 6813 "./common.web"
4291
4292
if(doing_cmd_line||phase==2)
4293
redirect_output();
4294
@@ -6983,10 +7996,15 @@ spurious(pa);
4295
}
4296
4297
4298
+/* :264 */
4299
+#line 6222 "./common.web"
4300
;
4301
}
4302
}
4303
4304
+/* :253 */
4305
+/* 256: */
4306
+#line 6279 "./common.web"
4307
4308
4309
SRTN
4310
@@ -7002,15 +8020,15 @@ ini_language(l);
4311
4312
if(!IS_WHITE(*loc))
4313
{
4314
-if(*loc!=0133)
4315
+if(*loc!='[')
4316
{
4317
-*pa++= 055;
4318
+*pa++= '-';
4319
*pa++= l;
4320
4321
WHILE()
4322
{
4323
-if(IS_WHITE(*loc)||*loc==0133)break;
4324
-if(*loc==0174&&parsing_mode==INNER)
4325
+if(IS_WHITE(*loc)||*loc=='[')break;
4326
+if(*loc=='|'&&parsing_mode==INNER)
4327
{
4328
4329
err0_print(ERR_C,OC("WARNING: Code mode ended during \
4330
@@ -7023,13 +8041,13 @@ COPY_TO_ARG_BUFFER(*loc++);
4331
}
4332
4333
4334
-if(*loc==0133)
4335
+if(*loc=='[')
4336
{
4337
-COPY_TO_ARG_BUFFER(040);
4338
+COPY_TO_ARG_BUFFER(' ');
4339
4340
for(loc++;;)
4341
{
4342
-if(*loc==0135)
4343
+if(*loc==']')
4344
{
4345
loc++;
4346
break;
4347
@@ -7046,6 +8064,9 @@ do_args(NO,argc,args,&found_web,(outer_char*)NULL,&found_change);
4348
fin_language();
4349
}
4350
4351
+/* :256 */
4352
+/* 257: */
4353
+#line 6341 "./common.web"
4354
4355
4356
SRTN
4357
@@ -7057,40 +8078,60 @@ l= A_TO_LOWER(l);
4358
4359
switch(l)
4360
{
4361
+/* 10: */
4362
+#line 95 "./typedefs.hweb"
4363
4364
-case 0143
4365
+case 'c'
4366
4367
+/* :10 */
4368
+#line 6352 "./common.web"
4369
:
4370
language= (Cpp?C_PLUS_PLUS:C);
4371
break;
4372
4373
+/* 11: */
4374
+#line 98 "./typedefs.hweb"
4375
4376
-case 0162
4377
+case 'r'
4378
4379
+/* :11 */
4380
+#line 6356 "./common.web"
4381
:
4382
if(!RAT_OK("Invalid @r command; language set to C"))language= C;
4383
else language= (Fortran88?RATFOR_90:RATFOR);
4384
break;
4385
4386
+/* 12: */
4387
+#line 101 "./typedefs.hweb"
4388
4389
-case 0156
4390
+case 'n'
4391
4392
+/* :12 */
4393
+#line 6361 "./common.web"
4394
:
4395
language= (Fortran88?FORTRAN_90:FORTRAN);
4396
break;
4397
4398
+/* 14: */
4399
+#line 107 "./typedefs.hweb"
4400
4401
-case 0166
4402
+case 'v'
4403
4404
4405
4406
+/* :14 */
4407
+#line 6365 "./common.web"
4408
:
4409
language= LITERAL;
4410
break;
4411
4412
+/* 13: */
4413
+#line 104 "./typedefs.hweb"
4414
4415
-case 0170
4416
+case 'x'
4417
4418
+/* :13 */
4419
+#line 6369 "./common.web"
4420
:
4421
language= TEX;
4422
break;
4423
@@ -7104,6 +8145,9 @@ cmd_language= language;
4424
ini0_language();
4425
}
4426
4427
+/* :257 */
4428
+/* 258: */
4429
+#line 6386 "./common.web"
4430
4431
4432
SRTN
4433
@@ -7161,6 +8205,9 @@ break;
4434
}
4435
}
4436
4437
+/* :258 */
4438
+/* 259: */
4439
+#line 6444 "./common.web"
4440
4441
4442
SRTN
4443
@@ -7197,11 +8244,17 @@ if(program==tangle)
4444
out_file= params.outp_file[lan_num(out_language)];
4445
}
4446
4447
+/* :259 */
4448
+/* 260: */
4449
+#line 6481 "./common.web"
4450
4451
4452
SRTN
4453
frz_params(VOID)
4454
{
4455
+/* :260 */
4456
+/* 260: */
4457
+#line 6489 "./common.web"
4458
4459
cont_char= XORD(in_escape);
4460
free_90= BOOLEAN(Fortran88&&free_form_input);
4461
@@ -7210,6 +8263,9 @@ free_Fortran= BOOLEAN((language==FORTRAN_90)&&free_90);
4462
if(!prn_semis&&free_Fortran&&auto_pseudo_semis)
4463
prn_semis= YES;
4464
4465
+/* :260 */
4466
+/* 260: */
4467
+#line 6502 "./common.web"
4468
4469
if(program==tangle&&free_90)
4470
switch(language)
4471
@@ -7225,6 +8281,9 @@ default:;
4472
4473
}
4474
4475
+/* :260 */
4476
+/* 261: */
4477
+#line 6519 "./common.web"
4478
4479
4480
int
4481
@@ -7257,6 +8316,9 @@ TERMINATE(p,0);
4482
return n;
4483
}
4484
4485
+/* :261 */
4486
+/* 273: */
4487
+#line 7023 "./common.web"
4488
4489
4490
SRTN
4491
@@ -7273,6 +8335,8 @@ or see the info(1) man-page entry for FWEB."),fflush(stdout);
4492
}
4493
4494
#if(HAVE_INFO)
4495
+/* 274: */
4496
+#line 7047 "./common.web"
4497
4498
{
4499
outer_char temp[500],buf[500],*pmenus;
4500
@@ -7302,6 +8366,8 @@ system((char*)temp);
4501
}
4502
}
4503
4504
+/* :274 */
4505
+#line 7039 "./common.web"
4506
4507
#endif
4508
4509
@@ -7309,6 +8375,9 @@ usage("",NO);
4510
}
4511
4512
4513
+/* :273 */
4514
+/* 280: */
4515
+#line 7239 "./common.web"
4516
4517
4518
SRTN
4519
@@ -7319,9 +8388,13 @@ int lnum;
4520
4521
if(isdigit(*pa))
4522
{
4523
+/* 315: */
4524
+#line 8468 "./common.web"
4525
4526
cant_negate(pa-2);
4527
4528
+/* :315 */
4529
+#line 7249 "./common.web"
4530
4531
4532
switch(*pa++)
4533
@@ -7358,9 +8431,13 @@ case '\\':
4534
case '&':
4535
4536
4537
+/* 315: */
4538
+#line 8468 "./common.web"
4539
4540
cant_negate(pa-2);
4541
4542
+/* :315 */
4543
+#line 7285 "./common.web"
4544
4545
4546
if(FORTRAN90_LIKE(language))
4547
@@ -7412,17 +8489,25 @@ break;
4548
4549
case 'g':
4550
case 'G':
4551
+/* 315: */
4552
+#line 8468 "./common.web"
4553
4554
cant_negate(pa-2);
4555
4556
+/* :315 */
4557
+#line 7336 "./common.web"
4558
4559
4560
+/* 282: */
4561
+#line 7395 "./common.web"
4562
4563
{
4564
if(is_RATFOR_(Language))
4565
{
4566
if(!RAT_OK("'g' command ignored"))
4567
break;
4568
+/* 284: */
4569
+#line 7436 "./common.web"
4570
4571
{
4572
while(*pa)
4573
@@ -7469,17 +8554,23 @@ break;
4574
}
4575
}
4576
4577
+/* :284 */
4578
+#line 7401 "./common.web"
4579
;
4580
}
4581
else
4582
bad_loption(Language);
4583
}
4584
4585
+/* :282 */
4586
+#line 7338 "./common.web"
4587
4588
return;
4589
4590
case 'k':
4591
suppress_cmds= BOOLEAN(YES^not);
4592
+/* 285: */
4593
+#line 7469 "./common.web"
4594
4595
{
4596
if(!*pa)
4597
@@ -7489,11 +8580,15 @@ STRNCPY(abbrev_cmds,pa,NUM_RATFOR_CMDS);
4598
}
4599
4600
4601
+/* :285 */
4602
+#line 7343 "./common.web"
4603
4604
return;
4605
4606
case 'K':
4607
suppress_cmds= BOOLEAN(NO^not);
4608
+/* 285: */
4609
+#line 7469 "./common.web"
4610
4611
{
4612
if(!*pa)
4613
@@ -7503,6 +8598,8 @@ STRNCPY(abbrev_cmds,pa,NUM_RATFOR_CMDS);
4614
}
4615
4616
4617
+/* :285 */
4618
+#line 7348 "./common.web"
4619
4620
return;
4621
4622
@@ -7512,9 +8609,13 @@ prn_semis= NOT(PRN_SEMIS);
4623
break;
4624
4625
case '{':
4626
+/* 315: */
4627
+#line 8468 "./common.web"
4628
4629
cant_negate(pa-2);
4630
4631
+/* :315 */
4632
+#line 7357 "./common.web"
4633
4634
pa--;
4635
set_filter(language);
4636
@@ -7523,9 +8624,13 @@ return;
4637
case '\0':
4638
4639
4640
+/* 315: */
4641
+#line 8468 "./common.web"
4642
4643
cant_negate(pa-2);
4644
4645
+/* :315 */
4646
+#line 7365 "./common.web"
4647
4648
ini_language(XORD(*LANGUAGE_CODE(Language)));
4649
return;
4650
@@ -7540,6 +8645,9 @@ if(*pa)
4651
spurious(pa);
4652
}
4653
4654
+/* :280 */
4655
+/* 290: */
4656
+#line 7647 "./common.web"
4657
4658
4659
SRTN
4660
@@ -7583,6 +8691,9 @@ for(;p<mp+2;p++)
4661
*p= XORD(*p);
4662
}
4663
4664
+/* :290 */
4665
+/* 292: */
4666
+#line 7697 "./common.web"
4667
4668
4669
SRTN
4670
@@ -7603,6 +8714,9 @@ limit= end;
4671
from_buffer= YES;
4672
}
4673
4674
+/* :292 */
4675
+/* 293: */
4676
+#line 7718 "./common.web"
4677
4678
SRTN
4679
undivert(VOID)
4680
@@ -7615,6 +8729,9 @@ from_buffer= NO;
4681
}
4682
4683
4684
+/* :293 */
4685
+/* 296: */
4686
+#line 7766 "./common.web"
4687
4688
4689
SRTN
4690
@@ -7641,6 +8758,9 @@ free_buf(&c_buf);
4691
SET_COLOR(ordinary);
4692
}
4693
4694
+/* :296 */
4695
+/* 297: */
4696
+#line 7794 "./common.web"
4697
4698
4699
SRTN
4700
@@ -7666,6 +8786,9 @@ commas(abs_max_num),(char*)ctrl_chars);
4701
free_buf(&c_buf);
4702
}
4703
4704
+/* :297 */
4705
+/* 298: */
4706
+#line 7820 "./common.web"
4707
4708
4709
BUF_SIZE
4710
@@ -7676,6 +8799,9 @@ return MIN(starting_memory,abs_max_num);
4711
}
4712
4713
4714
+/* :298 */
4715
+/* 299: */
4716
+#line 7833 "./common.web"
4717
4718
4719
SRTN
4720
@@ -7707,6 +8833,9 @@ while(p->n>0)
4721
FREE(p->s[--p->n]);
4722
}
4723
4724
+/* :299 */
4725
+/* 301: */
4726
+#line 7872 "./common.web"
4727
4728
4729
outer_char*
4730
@@ -7749,6 +8878,9 @@ return push_buf(&c_buf,temp1);
4731
}
4732
4733
4734
+/* :301 */
4735
+/* 303: */
4736
+#line 7924 "./common.web"
4737
4738
4739
SRTN
4740
@@ -7767,34 +8899,54 @@ if(isdigit(*pa))
4741
l= (language==NO_LANGUAGE)?GLOBAL_LANGUAGE:language;
4742
else switch(*pa++)
4743
{
4744
+/* 15: */
4745
+#line 118 "./typedefs.hweb"
4746
4747
case 'c'
4748
4749
+/* :15 */
4750
+#line 7942 "./common.web"
4751
:
4752
l= lcase(C,'\0',C_PLUS_PLUS,'+',&pa);
4753
break;
4754
+/* 16: */
4755
+#line 121 "./typedefs.hweb"
4756
4757
case 'r'
4758
4759
+/* :16 */
4760
+#line 7945 "./common.web"
4761
:
4762
l= lcase(RATFOR,'7',RATFOR_90,'9',&pa);
4763
break;
4764
+/* 17: */
4765
+#line 124 "./typedefs.hweb"
4766
4767
case 'n'
4768
4769
+/* :17 */
4770
+#line 7948 "./common.web"
4771
:
4772
l= lcase(FORTRAN,'7',FORTRAN_90,'9',&pa);
4773
break;
4774
+/* 19: */
4775
+#line 130 "./typedefs.hweb"
4776
4777
case 'v'
4778
4779
4780
4781
+/* :19 */
4782
+#line 7951 "./common.web"
4783
:
4784
l= LITERAL;break;
4785
+/* 18: */
4786
+#line 127 "./typedefs.hweb"
4787
4788
case 'x'
4789
4790
+/* :18 */
4791
+#line 7953 "./common.web"
4792
:
4793
l= TEX;break;
4794
default:
4795
@@ -7820,6 +8972,9 @@ set_filter(l);
4796
}
4797
}
4798
4799
+/* :303 */
4800
+/* 304: */
4801
+#line 7978 "./common.web"
4802
4803
4804
LANGUAGE
4805
@@ -7845,6 +9000,9 @@ return l1;
4806
return l0;
4807
}
4808
4809
+/* :304 */
4810
+/* 305: */
4811
+#line 8006 "./common.web"
4812
4813
4814
SRTN
4815
@@ -7870,6 +9028,9 @@ return;
4816
}
4817
4818
4819
+/* :305 */
4820
+/* 310: */
4821
+#line 8203 "./common.web"
4822
4823
4824
SRTN
4825
@@ -7923,6 +9084,9 @@ break;
4826
no_xref= BOOLEAN(!(prn_index||prn_modules));
4827
}
4828
4829
+/* :310 */
4830
+/* 313: */
4831
+#line 8356 "./common.web"
4832
4833
4834
SRTN
4835
@@ -7963,41 +9127,61 @@ pname= pa;
4836
4837
switch(c)
4838
{
4839
+/* 15: */
4840
+#line 118 "./typedefs.hweb"
4841
4842
case 'c'
4843
4844
+/* :15 */
4845
+#line 8396 "./common.web"
4846
:
4847
set_fname(lcase(C,'\0',C_PLUS_PLUS,'+',&pa),pname,YES);
4848
break;
4849
4850
+/* 16: */
4851
+#line 121 "./typedefs.hweb"
4852
4853
case 'r'
4854
4855
+/* :16 */
4856
+#line 8400 "./common.web"
4857
:
4858
if(!RAT_OK("Redirection ignored"))break;
4859
4860
set_fname(lcase(RATFOR,'7',RATFOR_90,'9',&pa),pname,YES);
4861
break;
4862
4863
+/* 17: */
4864
+#line 124 "./typedefs.hweb"
4865
4866
case 'n'
4867
4868
+/* :17 */
4869
+#line 8406 "./common.web"
4870
:
4871
set_fname(lcase(FORTRAN,'7',FORTRAN_90,'9',&pa),pname,YES);
4872
break;
4873
4874
+/* 19: */
4875
+#line 130 "./typedefs.hweb"
4876
4877
case 'v'
4878
4879
4880
4881
+/* :19 */
4882
+#line 8410 "./common.web"
4883
:
4884
set_fname(LITERAL,pname,YES);
4885
break;
4886
4887
+/* 18: */
4888
+#line 127 "./typedefs.hweb"
4889
4890
case 'x'
4891
4892
+/* :18 */
4893
+#line 8414 "./common.web"
4894
:
4895
set_fname(TEX,pname,YES);
4896
break;
4897
@@ -8021,6 +9205,9 @@ break;
4898
}
4899
}
4900
4901
+/* :313 */
4902
+/* 314: */
4903
+#line 8440 "./common.web"
4904
4905
4906
SRTN
4907
@@ -8048,6 +9235,9 @@ new_fname(params.outp_nm+lan_num(l),*s?s:(outer_char HUGE*)"stdout",NULL);
4908
}
4909
4910
4911
+/* :314 */
4912
+/* 316: */
4913
+#line 8472 "./common.web"
4914
4915
4916
SRTN
4917
@@ -8062,6 +9252,9 @@ mark_harmless;
4918
}
4919
}
4920
4921
+/* :316 */
4922
+/* 317: */
4923
+#line 8487 "./common.web"
4924
4925
4926
SRTN
4927
@@ -8073,6 +9266,9 @@ CONST outer_char HUGE*pa0 C1("")
4928
err0_print(ERR_C,OC("Invalid language %s \"%s\""),-1-2,type,pa0);
4929
}
4930
4931
+/* :317 */
4932
+/* 318: */
4933
+#line 8498 "./common.web"
4934
4935
4936
SRTN
4937
@@ -8084,6 +9280,9 @@ printf("! Invalid language option \"%s\" for %s.\n",
4938
mark_harmless;
4939
}
4940
4941
+/* :318 */
4942
+/* 319: */
4943
+#line 8510 "./common.web"
4944
4945
4946
SRTN
4947
@@ -8096,6 +9295,9 @@ err0_print(ERR_C,OC("Missing argument for `-%c' option; \
4948
should be one or more letters in set {%s}"),-1-2,option,letters);
4949
}
4950
4951
+/* :319 */
4952
+/* 320: */
4953
+#line 8522 "./common.web"
4954
4955
4956
SRTN
4957
@@ -8115,6 +9317,9 @@ else
4958
wrap_up();
4959
}
4960
4961
+/* :320 */
4962
+/* 322: */
4963
+#line 8554 "./common.web"
4964
4965
4966
SRTN
4967
@@ -8124,6 +9329,9 @@ too_long(VOID)
4968
fatal(ERR_NULL,OC("!! Filename too long: "),OC("%s."),(CONST outer_char*)pa);
4969
}
4970
4971
+/* :322 */
4972
+/* 323: */
4973
+#line 8566 "./common.web"
4974
4975
4976
SRTN
4977
@@ -8134,6 +9342,9 @@ cmd_prms?"Command line":".fweb",(char*)pa_begin);
4978
mark_harmless;
4979
}
4980
4981
+/* :323 */
4982
+/* 324: */
4983
+#line 8578 "./common.web"
4984
4985
4986
SRTN
4987
@@ -8146,6 +9357,9 @@ language)
4988
err0_print(ERR_C,OC("WARNING: Command-line language %s overridden in limbo by %s"),2,languages[lan_num(cmd_language)],languages[lan_num(language)]);
4989
}
4990
4991
+/* :324 */
4992
+/* 327: */
4993
+#line 8636 "./common.web"
4994
4995
4996
SRTN
4997
@@ -8181,6 +9395,9 @@ was_opened(temp,0,pname,&temp_file_ptr);
4998
}
4999
}
5000
5001
+/* :327 */
5002
+/* 329: */
5003
+#line 8714 "./common.web"
5004
5005
5006
unsigned
5007
@@ -8219,6 +9436,9 @@ TERMINATE(pt,0);
5008
return n;
5009
}
5010
5011
+/* :329 */
5012
+/* 331: */
5013
+#line 8768 "./common.web"
5014
5015
5016
SRTN
5017
@@ -8239,15 +9459,15 @@ for(p= p0,a1= atemp;p<p1;a1++,p++)
5018
switch(*p)
5019
{
5020
case interior_semi:
5021
-*a1= 073;
5022
+*a1= ';';
5023
break;
5024
5025
case MACRO_ARGUMENT:
5026
-*a1++= 0133;
5027
-*a1++= 0133;
5028
-*a1++= (ASCII)(060+*(++p));
5029
-*a1++= 0135;
5030
-*a1= 0135;
5031
+*a1++= '[';
5032
+*a1++= '[';
5033
+*a1++= (ASCII)('0'+*(++p));
5034
+*a1++= ']';
5035
+*a1= ']';
5036
break;
5037
5038
default:
5039
@@ -8272,15 +9492,22 @@ else
5040
n_out= FWRITE(atemp,n,file_ptr);
5041
5042
if(n_out!=1)
5043
+/* 332: */
5044
+#line 8825 "./common.web"
5045
5046
{
5047
5048
fatal(ERR_NULL,OC("! WRITE ERROR: "),OC("nbytes = %u, %u items written\n%s"),(unsigned)n,(unsigned)n_out,strerror(errno));
5049
}
5050
5051
+/* :332 */
5052
+#line 8821 "./common.web"
5053
5054
}
5055
5056
+/* :331 */
5057
+/* 333: */
5058
+#line 8834 "./common.web"
5059
5060
5061
#if !HAVE_STRERROR
5062
@@ -8297,6 +9524,9 @@ return temp;
5063
5064
#endif
5065
5066
+/* :333 */
5067
+/* 336: */
5068
+#line 8885 "./common.web"
5069
5070
5071
struct tm*
5072
@@ -8309,6 +9539,9 @@ time(&the_tm);
5073
return localtime(&the_tm);
5074
}
5075
5076
+/* :336 */
5077
+/* 337: */
5078
+#line 8898 "./common.web"
5079
5080
5081
CONST outer_char*
5082
@@ -8349,6 +9582,9 @@ return(CONST outer_char*)time_buf;
5083
}
5084
#undef NTIME
5085
5086
+/* :337 */
5087
+/* 339: */
5088
+#line 8975 "./common.web"
5089
5090
5091
#if TIMING
5092
@@ -8362,6 +9598,9 @@ clock0= clock();
5093
5094
#endif
5095
5096
+/* :339 */
5097
+/* 340: */
5098
+#line 8993 "./common.web"
5099
5100
5101
#if TIMING
5102
@@ -8403,12 +9642,18 @@ printf(" CPU/REAL = %.1f%%.",100.0*(cpu/wall));
5103
5104
5105
5106
+/* :340 */
5107
+/* 340: */
5108
+#line 9040 "./common.web"
5109
5110
SET_COLOR(ordinary);
5111
}
5112
5113
#endif
5114
5115
+/* :340 */
5116
+/* 342: */
5117
+#line 9051 "./common.web"
5118
5119
5120
SRTN
5121
@@ -8423,6 +9668,9 @@ local_banner= OC(LOCAL_BANNER);
5122
ini_style();
5123
}
5124
5125
+/* :342 */
5126
+/* 343: */
5127
+#line 9067 "./common.web"
5128
5129
5130
SRTN
5131
@@ -8453,6 +9701,9 @@ color_mode?(char*)termcap:"",
5132
SET_COLOR(ordinary);
5133
}
5134
5135
+/* :343 */
5136
+/* 344: */
5137
+#line 9098 "./common.web"
5138
5139
5140
SRTN
5141
@@ -8471,6 +9722,9 @@ if(emit_newline)
5142
putchar('\n');
5143
}
5144
5145
+/* :344 */
5146
+/* 345: */
5147
+#line 9117 "./common.web"
5148
5149
5150
SRTN
5151
@@ -8492,6 +9746,9 @@ CLR_PRINTF(SHORT_INFO,info,("..."));
5152
fflush(stdout);
5153
}
5154
5155
+/* :345 */
5156
+/* 346: */
5157
+#line 9139 "./common.web"
5158
5159
5160
SRTN
5161
@@ -8500,7 +9757,7 @@ progress(VOID)
5162
if(msg_level<EVERYTHING)
5163
return;
5164
5165
-if(loc[-1]==052)
5166
+if(loc[-1]=='*')
5167
{
5168
if(err_happened)
5169
{
5170
@@ -8516,6 +9773,9 @@ CLR_PRINTF(EVERYTHING,module_num,("*%d",module_count));
5171
UPDATE_TERMINAL;
5172
}
5173
5174
+/* :346 */
5175
+/* 347: */
5176
+#line 9168 "./common.web"
5177
5178
5179
int
5180
@@ -8556,13 +9816,20 @@ va_end(arg_ptr);
5181
return num_char;
5182
}
5183
5184
+/* :347 */
5185
+#line 60 "./common.web"
5186
5187
#endif
5188
5189
5190
+#line 1 "./typedefs.hweb"
5191
5192
5193
+#line 8 "./formats.hweb"
5194
5195
+/* :2 */
5196
+/* 200: */
5197
+#line 4373 "./common.web"
5198
5199
SRTN
5200
multi_chars FCN((c,n))
5201
@@ -8573,6 +9840,9 @@ while(--n>=0)
5202
putchar(c);
5203
}
5204
5205
+/* :200 */
5206
+/* 241: */
5207
+#line 5812 "./common.web"
5208
5209
void
5210
seea(int n,char*s)
5211
@@ -8580,6 +9850,9 @@ seea(int n,char*s)
5212
printf("Arg %i = \"%s\"\n",n,s);
5213
}
5214
5215
+/* :241 */
5216
+/* 244: */
5217
+#line 5920 "./common.web"
5218
5219
outer_char*
5220
get_arg FCN((result,s,ldelim,rdelim))
5221
@@ -8649,6 +9922,9 @@ longjmp(top_of_get_arg,4);
5222
}
5223
}
5224
5225
+/* :244 */
5226
+/* 281: */
5227
+#line 7384 "./common.web"
5228
5229
SRTN
5230
spurious FCN((pa1))
5231
@@ -8659,6 +9935,9 @@ multi_chars(' ',STRLEN(SPURIOUS_MSG)+2+pa1-pa_begin);
5232
puts("^");
5233
}
5234
5235
+/* :281 */
5236
+/* 349: */
5237
+#line 9226 "./common.web"
5238
5239
5240
SRTN
5241
@@ -8722,4 +10001,5 @@ BCHECK(1,"quote1");
5242
*pmp= mp;
5243
}
5244
5245
+/* :349 */
5246
5247
--
5248
1.7.7.1
5249
Loggerhead is a web-based interface for Breezy
Version: 2.0.1