← Back to branch summary

~ubuntu-branches/ubuntu/karmic/luatex/karmic

« back to all changes in this revision

Viewing changes to source/texk/web2c/cwebboot.c

  • Committer: Bazaar Package Importer
  • Author(s): Fabrice Coutadeur
  • Date: 2009-05-29 04:44:18 UTC
  • mfrom: (1.1.6 upstream) (4.1.5 sid)
  • Revision ID: james.westby@ubuntu.com-20090529044418-b4d230tscam6pgt3
Tags: 0.40.2-1ubuntu1
https://launchpad.net/bugs/381539
* Merge with Debian (LP: #381539). No changes remaining.
* debian/patches/ubuntu_libpoppler-0.11: fix a FTBFS because of unuseful
  call to GfxFont destructor (virtual and protected).

Show diffs side-by-side

added added

removed removed

Lines of Context:
source/texk/web2c/cwebboot.c
 
1
/*1:*/
 
2
#line 58 "./cwebdir/common.w"
 
3
 
 
4
/*5:*/
 
5
#line 102 "./cwebdir/common.w"
 
6
 
 
7
#include <ctype.h> 
 
8
 
 
9
/*:5*//*8:*/
 
10
#line 165 "./cwebdir/common.w"
 
11
 
 
12
#include <stdio.h> 
 
13
 
 
14
/*:8*//*22:*/
 
15
#line 471 "./cwebdir/common.w"
 
16
 
 
17
#line 151 "./cwebdir/comm-w2c.ch"
 
18
#include <stdlib.h>  
 
19
#define CWEB
 
20
#include "cpascal.h"
 
21
#include <kpathsea/kpathsea.h>  
 
22
#include "help.h"
 
23
 
 
24
/*:22*/
 
25
#line 59 "./cwebdir/common.w"
 
26
 
 
27
#define ctangle 0
 
28
#define cweave 1 \
 
29
 
 
30
#define and_and 04
 
31
#define lt_lt 020
 
32
#define gt_gt 021
 
33
#define plus_plus 013
 
34
#define minus_minus 01
 
35
#define minus_gt 031
 
36
#define not_eq 032
 
37
#define lt_eq 034
 
38
#define gt_eq 035
 
39
#define eq_eq 036
 
40
#define or_or 037
 
41
#define dot_dot_dot 016
 
42
#define colon_colon 06
 
43
#define period_ast 026
 
44
#define minus_gt_ast 027 \
 
45
 
 
46
#define buf_size 100
 
47
#define longest_name 1000
 
48
#define long_buf_size (buf_size+longest_name) 
 
49
#define xisspace(c) (isspace(c) &&((unsigned char) c<0200) ) 
 
50
#define xisupper(c) (isupper(c) &&((unsigned char) c<0200) )  \
 
51
 
 
52
#define max_include_depth 10 \
 
53
 
 
54
#define max_file_name_length 1024
 
55
#define cur_file file[include_depth]
 
56
#define cur_file_name file_name[include_depth]
 
57
#define cur_line line[include_depth]
 
58
#define web_file file[0]
 
59
#define web_file_name file_name[0] \
 
60
 
 
61
#define lines_dont_match (change_limit-change_buffer!=limit-buffer|| \
 
62
strncmp(buffer,change_buffer,limit-buffer) )  \
 
63
 
 
64
#define if_section_start_make_pending(b) {*limit= '!'; \
 
65
for(loc= buffer;xisspace(*loc) ;loc++) ; \
 
66
*limit= ' '; \
 
67
if(*loc=='@'&&(xisspace(*(loc+1) ) ||*(loc+1) =='*') ) change_pending= b; \
 
68
} \
 
69
 
 
70
#define max_sections 2000 \
 
71
 \
 
72
 
 
73
#define too_long() {include_depth--; \
 
74
err_print("! Include file name too long") ;goto restart;} \
 
75
 
 
76
#define kpse_find_cweb(name) kpse_find_file(name,kpse_cweb_format,true)  \
 
77
 
 
78
#define max_bytes 90000 \
 
79
 
 
80
#define max_names 4000 \
 
81
 \
 
82
 
 
83
#define length(c) (c+1) ->byte_start-(c) ->byte_start
 
84
#define print_id(c) term_write((c) ->byte_start,length((c) ) )  \
 
85
 
 
86
#define hash_size 353 \
 
87
 
 
88
#define llink link
 
89
#define rlink dummy.Rlink
 
90
#define root name_dir->rlink \
 
91
 \
 
92
 
 
93
#define first_chunk(p) ((p) ->byte_start+2) 
 
94
#define prefix_length(p) (int) ((unsigned char) *((p) ->byte_start) *256+ \
 
95
(unsigned char) *((p) ->byte_start+1) ) 
 
96
#define set_prefix_length(p,m) (*((p) ->byte_start) = (m) /256, \
 
97
*((p) ->byte_start+1) = (m) %256)  \
 
98
 
 
99
#define less 0
 
100
#define equal 1
 
101
#define greater 2
 
102
#define prefix 3
 
103
#define extension 4 \
 
104
 
 
105
#define bad_extension 5 \
 
106
 
 
107
#define spotless 0
 
108
#define harmless_message 1
 
109
#define error_message 2
 
110
#define fatal_message 3
 
111
#define mark_harmless {if(history==spotless) history= harmless_message;}
 
112
#define mark_error history= error_message \
 
113
 
 
114
#define confusion(s) fatal("! This can't happen: ",s)  \
 
115
 \
 
116
 
 
117
#define show_banner flags['b']
 
118
#define show_progress flags['p']
 
119
#define show_stats flags['s']
 
120
#define show_happiness flags['h']
 
121
#define show_kpathsea_debug flags['d'] \
 
122
 \
 
123
 
 
124
#define update_terminal fflush(stdout)  \
 
125
 
 
126
#define new_line putchar('\n') 
 
127
#define putxchar putchar
 
128
#define term_write(a,b) fflush(stdout) ,fwrite(a,sizeof(char) ,b,stdout) 
 
129
#define C_printf(c,a) fprintf(C_file,c,a) 
 
130
#define C_putc(c) putc(c,C_file)  \
 
131
 \
 
132
 
 
133
#define ctangle_banner "This is CTANGLE, Version 3.64"
 
134
#define cweave_banner "This is CWEAVE, Version 3.64" \
 
135
 
 
136
 
 
137
#line 60 "./cwebdir/common.w"
 
138
 
 
139
/*2:*/
 
140
#line 73 "./cwebdir/common.w"
 
141
 
 
142
#line 75 "./cwebdir/common.w"
 
143
boolean program;
 
144
 
 
145
/*:2*//*7:*/
 
146
#line 159 "./cwebdir/common.w"
 
147
 
 
148
char buffer[long_buf_size];
 
149
char*buffer_end= buffer+buf_size-2;
 
150
char*limit= buffer;
 
151
char*loc= buffer;
 
152
 
 
153
/*:7*//*10:*/
 
154
#line 214 "./cwebdir/common.w"
 
155
 
 
156
int include_depth;
 
157
FILE*file[max_include_depth];
 
158
FILE*change_file;
 
159
char file_name[max_include_depth][max_file_name_length];
 
160
 
 
161
char change_file_name[max_file_name_length];
 
162
#line 222 "./cwebdir/common.w"
 
163
int line[max_include_depth];
 
164
int change_line;
 
165
int change_depth;
 
166
boolean input_has_ended;
 
167
boolean changing;
 
168
boolean web_file_open= 0;
 
169
 
 
170
/*:10*//*20:*/
 
171
#line 418 "./cwebdir/common.w"
 
172
 
 
173
typedef unsigned short sixteen_bits;
 
174
sixteen_bits section_count;
 
175
boolean changed_section[max_sections];
 
176
boolean change_pending;
 
177
 
 
178
boolean print_where= 0;
 
179
 
 
180
/*:20*//*29:*/
 
181
#line 594 "./cwebdir/common.w"
 
182
 
 
183
typedef struct name_info{
 
184
char*byte_start;
 
185
/*33:*/
 
186
#line 631 "./cwebdir/common.w"
 
187
 
 
188
struct name_info*link;
 
189
 
 
190
/*:33*//*42:*/
 
191
#line 730 "./cwebdir/common.w"
 
192
 
 
193
union{
 
194
struct name_info*Rlink;
 
195
 
 
196
char Ilk;
 
197
}dummy;
 
198
 
 
199
/*:42*//*57:*/
 
200
#line 1062 "./cwebdir/common.w"
 
201
 
 
202
char*equiv_or_xref;
 
203
 
 
204
/*:57*/
 
205
#line 597 "./cwebdir/common.w"
 
206
 
 
207
}name_info;
 
208
typedef name_info*name_pointer;
 
209
char byte_mem[max_bytes];
 
210
char*byte_mem_end= byte_mem+max_bytes-1;
 
211
name_info name_dir[max_names];
 
212
name_pointer name_dir_end= name_dir+max_names-1;
 
213
 
 
214
/*:29*//*31:*/
 
215
#line 617 "./cwebdir/common.w"
 
216
 
 
217
name_pointer name_ptr;
 
218
char*byte_ptr;
 
219
 
 
220
/*:31*//*34:*/
 
221
#line 644 "./cwebdir/common.w"
 
222
 
 
223
typedef name_pointer*hash_pointer;
 
224
name_pointer hash[hash_size];
 
225
hash_pointer hash_end= hash+hash_size-1;
 
226
hash_pointer h;
 
227
 
 
228
/*:34*//*58:*/
 
229
#line 1082 "./cwebdir/common.w"
 
230
 
 
231
int history= spotless;
 
232
 
 
233
/*:58*//*69:*/
 
234
#line 1220 "./cwebdir/common.w"
 
235
 
 
236
int argc;
 
237
char**argv;
 
238
char C_file_name[max_file_name_length];
 
239
char tex_file_name[max_file_name_length];
 
240
char idx_file_name[max_file_name_length];
 
241
char scn_file_name[max_file_name_length];
 
242
boolean flags[128];
 
243
 
 
244
/*:69*//*79:*/
 
245
#line 1370 "./cwebdir/common.w"
 
246
 
 
247
FILE*C_file;
 
248
FILE*tex_file;
 
249
FILE*idx_file;
 
250
FILE*scn_file;
 
251
#line 576 "./cwebdir/comm-w2c.ch"
 
252
FILE*active_file;
 
253
char*found_filename;
 
254
#line 1376 "./cwebdir/common.w"
 
255
 
 
256
/*:79*/
 
257
#line 61 "./cwebdir/common.w"
 
258
 
 
259
/*3:*/
 
260
#line 83 "./cwebdir/common.w"
 
261
int phase;
 
262
 
 
263
/*:3*//*11:*/
 
264
#line 240 "./cwebdir/common.w"
 
265
 
 
266
char change_buffer[buf_size];
 
267
char*change_limit;
 
268
 
 
269
/*:11*/
 
270
#line 62 "./cwebdir/common.w"
 
271
 
 
272
/*35:*/
 
273
#line 650 "./cwebdir/common.w"
 
274
 
 
275
#line 260 "./cwebdir/comm-w2c.ch"
 
276
extern int names_match P4H(name_pointer,char*,int,char);
 
277
#line 652 "./cwebdir/common.w"
 
278
 
 
279
/*:35*//*40:*/
 
280
#line 703 "./cwebdir/common.w"
 
281
 
 
282
#line 280 "./cwebdir/comm-w2c.ch"
 
283
extern void init_p P2C(name_pointer,p,char,t);
 
284
#line 705 "./cwebdir/common.w"
 
285
 
 
286
/*:40*//*48:*/
 
287
#line 852 "./cwebdir/common.w"
 
288
 
 
289
#line 327 "./cwebdir/comm-w2c.ch"
 
290
extern void init_node P1C(name_pointer,node);
 
291
#line 854 "./cwebdir/common.w"
 
292
 
 
293
/*:48*//*55:*/
 
294
#line 1017 "./cwebdir/common.w"
 
295
 
 
296
#line 373 "./cwebdir/comm-w2c.ch"
 
297
int section_name_cmp P3H(char**,int,name_pointer);
 
298
#line 1019 "./cwebdir/common.w"
 
299
 
 
300
/*:55*//*59:*/
 
301
#line 1092 "./cwebdir/common.w"
 
302
 
 
303
#line 392 "./cwebdir/comm-w2c.ch"
 
304
void err_print P1H(char*);
 
305
#line 1094 "./cwebdir/common.w"
 
306
 
 
307
/*:59*//*62:*/
 
308
#line 1140 "./cwebdir/common.w"
 
309
 
 
310
#line 410 "./cwebdir/comm-w2c.ch"
 
311
int wrap_up P1H(void);
 
312
extern void print_stats P1H(void);
 
313
#line 1143 "./cwebdir/common.w"
 
314
 
 
315
/*:62*//*65:*/
 
316
#line 1173 "./cwebdir/common.w"
 
317
 
 
318
#line 427 "./cwebdir/comm-w2c.ch"
 
319
void fatal P2H(char*,char*);
 
320
void overflow(char*);
 
321
#line 1175 "./cwebdir/common.w"
 
322
 
 
323
/*:65*//*71:*/
 
324
#line 1251 "./cwebdir/common.w"
 
325
 
 
326
#line 495 "./cwebdir/comm-w2c.ch"
 
327
void scan_args P1H(void);
 
328
#line 1253 "./cwebdir/common.w"
 
329
 
 
330
/*:71*/
 
331
#line 63 "./cwebdir/common.w"
 
332
 
 
333
 
 
334
/*:1*//*4:*/
 
335
#line 89 "./cwebdir/common.w"
 
336
 
 
337
void
 
338
#line 51 "./cwebdir/comm-w2c.ch"
 
339
 common_init P1H(void)
 
340
#line 92 "./cwebdir/common.w"
 
341
{
 
342
#line 57 "./cwebdir/comm-w2c.ch"
 
343
/*32:*/
 
344
#line 621 "./cwebdir/common.w"
 
345
 
 
346
name_dir->byte_start= byte_ptr= byte_mem;
 
347
name_ptr= name_dir+1;
 
348
name_ptr->byte_start= byte_mem;
 
349
 
 
350
/*:32*//*36:*/
 
351
#line 655 "./cwebdir/common.w"
 
352
 
 
353
for(h= hash;h<=hash_end;*h++= NULL);
 
354
 
 
355
/*:36*//*43:*/
 
356
#line 737 "./cwebdir/common.w"
 
357
 
 
358
root= NULL;
 
359
 
 
360
/*:43*/
 
361
#line 57 "./cwebdir/comm-w2c.ch"
 
362
;
 
363
/*24:*/
 
364
#line 188 "./cwebdir/comm-w2c.ch"
 
365
 
 
366
kpse_set_program_name(argv[0],"cweb");
 
367
#line 473 "./cwebdir/common.w"
 
368
 
 
369
/*:24*/
 
370
#line 58 "./cwebdir/comm-w2c.ch"
 
371
;
 
372
#line 94 "./cwebdir/common.w"
 
373
/*70:*/
 
374
#line 1233 "./cwebdir/common.w"
 
375
 
 
376
#line 487 "./cwebdir/comm-w2c.ch"
 
377
show_banner= show_happiness= show_progress= 1;
 
378
#line 1235 "./cwebdir/common.w"
 
379
 
 
380
/*:70*/
 
381
#line 94 "./cwebdir/common.w"
 
382
;
 
383
/*80:*/
 
384
#line 1377 "./cwebdir/common.w"
 
385
 
 
386
scan_args();
 
387
if(program==ctangle){
 
388
if((C_file= fopen(C_file_name,"w"))==NULL)
 
389
fatal("! Cannot open output file ",C_file_name);
 
390
 
 
391
}
 
392
else{
 
393
if((tex_file= fopen(tex_file_name,"w"))==NULL)
 
394
fatal("! Cannot open output file ",tex_file_name);
 
395
}
 
396
 
 
397
/*:80*/
 
398
#line 95 "./cwebdir/common.w"
 
399
;
 
400
}
 
401
 
 
402
/*:4*//*9:*/
 
403
#line 172 "./cwebdir/common.w"
 
404
 
 
405
#line 67 "./cwebdir/comm-w2c.ch"
 
406
int input_ln P1C(FILE*,fp)
 
407
#line 175 "./cwebdir/common.w"
 
408
{
 
409
register int c= EOF;
 
410
register char*k;
 
411
if(feof(fp))return(0);
 
412
limit= k= buffer;
 
413
while(k<=buffer_end&&(c= getc(fp))!=EOF&&c!='\n')
 
414
if((*(k++)= c)!=' ')limit= k;
 
415
if(k> buffer_end)
 
416
if((c= getc(fp))!=EOF&&c!='\n'){
 
417
ungetc(c,fp);loc= buffer;err_print("! Input line too long");
 
418
 
 
419
}
 
420
if(c==EOF&&limit==buffer)return(0);
 
421
 
 
422
return(1);
 
423
}
 
424
 
 
425
/*:9*//*12:*/
 
426
#line 251 "./cwebdir/common.w"
 
427
 
 
428
void
 
429
#line 88 "./cwebdir/comm-w2c.ch"
 
430
 prime_the_change_buffer P1H(void)
 
431
#line 254 "./cwebdir/common.w"
 
432
{
 
433
change_limit= change_buffer;
 
434
/*13:*/
 
435
#line 265 "./cwebdir/common.w"
 
436
 
 
437
while(1){
 
438
change_line++;
 
439
if(!input_ln(change_file))return;
 
440
if(limit<buffer+2)continue;
 
441
if(buffer[0]!='@')continue;
 
442
if(xisupper(buffer[1]))buffer[1]= tolower(buffer[1]);
 
443
if(buffer[1]=='x')break;
 
444
if(buffer[1]=='y'||buffer[1]=='z'||buffer[1]=='i'){
 
445
loc= buffer+2;
 
446
err_print("! Missing @x in change file");
 
447
 
 
448
}
 
449
}
 
450
 
 
451
/*:13*/
 
452
#line 256 "./cwebdir/common.w"
 
453
;
 
454
/*14:*/
 
455
#line 282 "./cwebdir/common.w"
 
456
 
 
457
do{
 
458
change_line++;
 
459
if(!input_ln(change_file)){
 
460
err_print("! Change file ended after @x");
 
461
 
 
462
return;
 
463
}
 
464
}while(limit==buffer);
 
465
 
 
466
/*:14*/
 
467
#line 257 "./cwebdir/common.w"
 
468
;
 
469
/*15:*/
 
470
#line 292 "./cwebdir/common.w"
 
471
 
 
472
{
 
473
change_limit= change_buffer+(limit-buffer);
 
474
strncpy(change_buffer,buffer,limit-buffer+1);
 
475
}
 
476
 
 
477
/*:15*/
 
478
#line 258 "./cwebdir/common.w"
 
479
;
 
480
}
 
481
 
 
482
/*:12*//*16:*/
 
483
#line 320 "./cwebdir/common.w"
 
484
 
 
485
void
 
486
#line 96 "./cwebdir/comm-w2c.ch"
 
487
 check_change P1H(void)
 
488
#line 323 "./cwebdir/common.w"
 
489
{
 
490
int n= 0;
 
491
if(lines_dont_match)return;
 
492
change_pending= 0;
 
493
if(!changed_section[section_count]){
 
494
if_section_start_make_pending(1);
 
495
if(!change_pending)changed_section[section_count]= 1;
 
496
}
 
497
while(1){
 
498
changing= 1;print_where= 1;change_line++;
 
499
if(!input_ln(change_file)){
 
500
err_print("! Change file ended before @y");
 
501
 
 
502
change_limit= change_buffer;changing= 0;
 
503
return;
 
504
}
 
505
if(limit> buffer+1&&buffer[0]=='@'){
 
506
char xyz_code= xisupper(buffer[1])?tolower(buffer[1]):buffer[1];
 
507
/*17:*/
 
508
#line 358 "./cwebdir/common.w"
 
509
 
 
510
if(xyz_code=='x'||xyz_code=='z'){
 
511
loc= buffer+2;err_print("! Where is the matching @y?");
 
512
 
 
513
}
 
514
else if(xyz_code=='y'){
 
515
if(n> 0){
 
516
loc= buffer+2;
 
517
printf("\n! Hmm... %d ",n);
 
518
err_print("of the preceding lines failed to match");
 
519
 
 
520
}
 
521
change_depth= include_depth;
 
522
return;
 
523
}
 
524
 
 
525
/*:17*/
 
526
#line 342 "./cwebdir/common.w"
 
527
;
 
528
}
 
529
/*15:*/
 
530
#line 292 "./cwebdir/common.w"
 
531
 
 
532
{
 
533
change_limit= change_buffer+(limit-buffer);
 
534
strncpy(change_buffer,buffer,limit-buffer+1);
 
535
}
 
536
 
 
537
/*:15*/
 
538
#line 344 "./cwebdir/common.w"
 
539
;
 
540
changing= 0;cur_line++;
 
541
while(!input_ln(cur_file)){
 
542
if(include_depth==0){
 
543
err_print("! CWEB file ended during a change");
 
544
 
 
545
input_has_ended= 1;return;
 
546
}
 
547
include_depth--;cur_line++;
 
548
}
 
549
if(lines_dont_match)n++;
 
550
}
 
551
}
 
552
 
 
553
/*:16*//*18:*/
 
554
#line 378 "./cwebdir/common.w"
 
555
 
 
556
void
 
557
#line 104 "./cwebdir/comm-w2c.ch"
 
558
 reset_input P1H(void)
 
559
#line 381 "./cwebdir/common.w"
 
560
{
 
561
limit= buffer;loc= buffer+1;buffer[0]= ' ';
 
562
/*19:*/
 
563
#line 393 "./cwebdir/common.w"
 
564
 
 
565
#line 116 "./cwebdir/comm-w2c.ch"
 
566
if((found_filename= kpse_find_cweb(web_file_name))==NULL||
 
567
(web_file= fopen(found_filename,"r"))==NULL){
 
568
fatal("! Cannot open input file ",web_file_name);
 
569
}else if(strlen(found_filename)<max_file_name_length){
 
570
strcpy(web_file_name,found_filename);
 
571
free(found_filename);
 
572
}
 
573
#line 399 "./cwebdir/common.w"
 
574
 
 
575
 
 
576
web_file_open= 1;
 
577
#line 129 "./cwebdir/comm-w2c.ch"
 
578
if((found_filename= kpse_find_cweb(change_file_name))==NULL||
 
579
(change_file= fopen(found_filename,"r"))==NULL){
 
580
fatal("! Cannot open change file ",change_file_name);
 
581
}else if(strlen(found_filename)<max_file_name_length){
 
582
strcpy(change_file_name,found_filename);
 
583
free(found_filename);
 
584
}
 
585
#line 404 "./cwebdir/common.w"
 
586
 
 
587
/*:19*/
 
588
#line 383 "./cwebdir/common.w"
 
589
;
 
590
include_depth= 0;cur_line= 0;change_line= 0;
 
591
change_depth= include_depth;
 
592
changing= 1;prime_the_change_buffer();changing= !changing;
 
593
limit= buffer;loc= buffer+1;buffer[0]= ' ';input_has_ended= 0;
 
594
}
 
595
 
 
596
/*:18*//*21:*/
 
597
#line 426 "./cwebdir/common.w"
 
598
 
 
599
#line 143 "./cwebdir/comm-w2c.ch"
 
600
int get_line P1H(void)
 
601
#line 428 "./cwebdir/common.w"
 
602
{
 
603
restart:
 
604
if(changing&&include_depth==change_depth)
 
605
/*27:*/
 
606
#line 537 "./cwebdir/common.w"
 
607
{
 
608
change_line++;
 
609
if(!input_ln(change_file)){
 
610
err_print("! Change file ended without @z");
 
611
 
 
612
buffer[0]= '@';buffer[1]= 'z';limit= buffer+2;
 
613
}
 
614
if(limit> buffer){
 
615
if(change_pending){
 
616
if_section_start_make_pending(0);
 
617
if(change_pending){
 
618
changed_section[section_count]= 1;change_pending= 0;
 
619
}
 
620
}
 
621
*limit= ' ';
 
622
if(buffer[0]=='@'){
 
623
if(xisupper(buffer[1]))buffer[1]= tolower(buffer[1]);
 
624
if(buffer[1]=='x'||buffer[1]=='y'){
 
625
loc= buffer+2;
 
626
err_print("! Where is the matching @z?");
 
627
 
 
628
}
 
629
else if(buffer[1]=='z'){
 
630
prime_the_change_buffer();changing= !changing;print_where= 1;
 
631
}
 
632
}
 
633
}
 
634
}
 
635
 
 
636
/*:27*/
 
637
#line 431 "./cwebdir/common.w"
 
638
;
 
639
if(!changing||include_depth> change_depth){
 
640
/*26:*/
 
641
#line 520 "./cwebdir/common.w"
 
642
{
 
643
cur_line++;
 
644
while(!input_ln(cur_file)){
 
645
print_where= 1;
 
646
if(include_depth==0){input_has_ended= 1;break;}
 
647
else{
 
648
fclose(cur_file);include_depth--;
 
649
if(changing&&include_depth==change_depth)break;
 
650
cur_line++;
 
651
}
 
652
}
 
653
if(!changing&&!input_has_ended)
 
654
if(limit-buffer==change_limit-change_buffer)
 
655
if(buffer[0]==change_buffer[0])
 
656
if(change_limit> change_buffer)check_change();
 
657
}
 
658
 
 
659
/*:26*/
 
660
#line 433 "./cwebdir/common.w"
 
661
;
 
662
if(changing&&include_depth==change_depth)goto restart;
 
663
}
 
664
if(input_has_ended)return 0;
 
665
loc= buffer;*limit= ' ';
 
666
if(buffer[0]=='@'&&(buffer[1]=='i'||buffer[1]=='I')){
 
667
loc= buffer+2;*limit= '"';
 
668
while(*loc==' '||*loc=='\t')loc++;
 
669
if(loc>=limit){
 
670
err_print("! Include file name not given");
 
671
 
 
672
goto restart;
 
673
}
 
674
if(include_depth>=max_include_depth-1){
 
675
err_print("! Too many nested includes");
 
676
 
 
677
goto restart;
 
678
}
 
679
include_depth++;
 
680
/*25:*/
 
681
#line 474 "./cwebdir/common.w"
 
682
{
 
683
#line 201 "./cwebdir/comm-w2c.ch"
 
684
char*cur_file_name_end= cur_file_name+max_file_name_length-1;
 
685
char*k= cur_file_name;
 
686
#line 479 "./cwebdir/common.w"
 
687
 
 
688
if(*loc=='"'){
 
689
loc++;
 
690
while(*loc!='"'&&k<=cur_file_name_end)*k++= *loc++;
 
691
if(loc==limit)k= cur_file_name_end+1;
 
692
}else
 
693
while(*loc!=' '&&*loc!='\t'&&*loc!='"'&&k<=cur_file_name_end)*k++= *loc++;
 
694
if(k> cur_file_name_end)too_long();
 
695
 
 
696
*k= '\0';
 
697
#line 208 "./cwebdir/comm-w2c.ch"
 
698
if((found_filename= kpse_find_cweb(cur_file_name))!=NULL&&
 
699
(cur_file= fopen(found_filename,"r"))!=NULL){
 
700
 
 
701
if(strlen(found_filename)<max_file_name_length){
 
702
strcpy(cur_file_name,found_filename);
 
703
free(found_filename);
 
704
}
 
705
#line 490 "./cwebdir/common.w"
 
706
cur_line= 0;print_where= 1;
 
707
goto restart;
 
708
}
 
709
#line 517 "./cwebdir/common.w"
 
710
include_depth--;err_print("! Cannot open include file");goto restart;
 
711
}
 
712
 
 
713
/*:25*/
 
714
#line 452 "./cwebdir/common.w"
 
715
;
 
716
}
 
717
return 1;
 
718
}
 
719
 
 
720
/*:21*//*28:*/
 
721
#line 569 "./cwebdir/common.w"
 
722
 
 
723
void
 
724
#line 252 "./cwebdir/comm-w2c.ch"
 
725
 check_complete P1H(void){
 
726
#line 572 "./cwebdir/common.w"
 
727
if(change_limit!=change_buffer){
 
728
strncpy(buffer,change_buffer,change_limit-change_buffer+1);
 
729
limit= buffer+(int)(change_limit-change_buffer);
 
730
changing= 1;change_depth= include_depth;loc= buffer;
 
731
err_print("! Change file entry did not match");
 
732
 
 
733
}
 
734
}
 
735
 
 
736
/*:28*//*37:*/
 
737
#line 660 "./cwebdir/common.w"
 
738
 
 
739
name_pointer
 
740
#line 271 "./cwebdir/comm-w2c.ch"
 
741
 
 
742
id_lookup P3C(char*,first,char*,last,char,t)
 
743
#line 666 "./cwebdir/common.w"
 
744
{
 
745
char*i= first;
 
746
int h;
 
747
int l;
 
748
name_pointer p;
 
749
if(last==NULL)for(last= first;*last!='\0';last++);
 
750
l= last-first;
 
751
/*38:*/
 
752
#line 683 "./cwebdir/common.w"
 
753
 
 
754
h= (unsigned char)*i;
 
755
while(++i<last)h= (h+h+(int)((unsigned char)*i))%hash_size;
 
756
 
 
757
 
 
758
/*:38*/
 
759
#line 673 "./cwebdir/common.w"
 
760
;
 
761
/*39:*/
 
762
#line 691 "./cwebdir/common.w"
 
763
 
 
764
p= hash[h];
 
765
while(p&&!names_match(p,first,l,t))p= p->link;
 
766
if(p==NULL){
 
767
p= name_ptr;
 
768
p->link= hash[h];hash[h]= p;
 
769
}
 
770
 
 
771
/*:39*/
 
772
#line 674 "./cwebdir/common.w"
 
773
;
 
774
if(p==name_ptr)/*41:*/
 
775
#line 706 "./cwebdir/common.w"
 
776
{
 
777
if(byte_ptr+l> byte_mem_end)overflow("byte memory");
 
778
if(name_ptr>=name_dir_end)overflow("name");
 
779
strncpy(byte_ptr,first,l);
 
780
(++name_ptr)->byte_start= byte_ptr+= l;
 
781
if(program==cweave)init_p(p,t);
 
782
}
 
783
 
 
784
/*:41*/
 
785
#line 675 "./cwebdir/common.w"
 
786
;
 
787
return(p);
 
788
}
 
789
 
 
790
/*:37*//*44:*/
 
791
#line 764 "./cwebdir/common.w"
 
792
 
 
793
void
 
794
#line 289 "./cwebdir/comm-w2c.ch"
 
795
 print_section_name P1C(name_pointer,p)
 
796
#line 768 "./cwebdir/common.w"
 
797
{
 
798
char*ss,*s= first_chunk(p);
 
799
name_pointer q= p+1;
 
800
while(p!=name_dir){
 
801
ss= (p+1)->byte_start-1;
 
802
if(*ss==' '&&ss>=s){
 
803
term_write(s,ss-s);p= q->link;q= p;
 
804
}else{
 
805
term_write(s,ss+1-s);p= name_dir;q= NULL;
 
806
}
 
807
s= p->byte_start;
 
808
}
 
809
if(q)term_write("...",3);
 
810
}
 
811
 
 
812
/*:44*//*45:*/
 
813
#line 783 "./cwebdir/common.w"
 
814
 
 
815
void
 
816
#line 299 "./cwebdir/comm-w2c.ch"
 
817
 sprint_section_name P2C(char*,dest,name_pointer,p)
 
818
#line 788 "./cwebdir/common.w"
 
819
{
 
820
char*ss,*s= first_chunk(p);
 
821
name_pointer q= p+1;
 
822
while(p!=name_dir){
 
823
ss= (p+1)->byte_start-1;
 
824
if(*ss==' '&&ss>=s){
 
825
p= q->link;q= p;
 
826
}else{
 
827
ss++;p= name_dir;
 
828
}
 
829
strncpy(dest,s,ss-s),dest+= ss-s;
 
830
s= p->byte_start;
 
831
}
 
832
*dest= '\0';
 
833
}
 
834
 
 
835
/*:45*//*46:*/
 
836
#line 804 "./cwebdir/common.w"
 
837
 
 
838
void
 
839
#line 308 "./cwebdir/comm-w2c.ch"
 
840
 print_prefix_name P1C(name_pointer,p)
 
841
#line 808 "./cwebdir/common.w"
 
842
{
 
843
char*s= first_chunk(p);
 
844
int l= prefix_length(p);
 
845
term_write(s,l);
 
846
if(s+l<(p+1)->byte_start)term_write("...",3);
 
847
}
 
848
 
 
849
/*:46*//*47:*/
 
850
#line 825 "./cwebdir/common.w"
 
851
 
 
852
#line 318 "./cwebdir/comm-w2c.ch"
 
853
 
 
854
int web_strcmp P4C(char*,j,int,j_len,char*,k,int,k_len)
 
855
#line 829 "./cwebdir/common.w"
 
856
{
 
857
char*j1= j+j_len,*k1= k+k_len;
 
858
while(k<k1&&j<j1&&*j==*k)k++,j++;
 
859
if(k==k1)if(j==j1)return equal;
 
860
else return extension;
 
861
else if(j==j1)return prefix;
 
862
else if(*j<*k)return less;
 
863
else return greater;
 
864
}
 
865
 
 
866
/*:47*//*49:*/
 
867
#line 855 "./cwebdir/common.w"
 
868
 
 
869
name_pointer
 
870
#line 340 "./cwebdir/comm-w2c.ch"
 
871
 
 
872
add_section_name P5C(name_pointer,par,int,c,char*,first,char*,last,
 
873
int,ispref)
 
874
#line 863 "./cwebdir/common.w"
 
875
{
 
876
name_pointer p= name_ptr;
 
877
char*s= first_chunk(p);
 
878
int name_len= last-first+ispref;
 
879
if(s+name_len> byte_mem_end)overflow("byte memory");
 
880
if(name_ptr+1>=name_dir_end)overflow("name");
 
881
(++name_ptr)->byte_start= byte_ptr= s+name_len;
 
882
if(ispref){
 
883
*(byte_ptr-1)= ' ';
 
884
name_len--;
 
885
name_ptr->link= name_dir;
 
886
(++name_ptr)->byte_start= byte_ptr;
 
887
}
 
888
set_prefix_length(p,name_len);
 
889
strncpy(s,first,name_len);
 
890
p->llink= NULL;
 
891
p->rlink= NULL;
 
892
init_node(p);
 
893
return par==NULL?(root= p):c==less?(par->llink= p):(par->rlink= p);
 
894
}
 
895
 
 
896
/*:49*//*50:*/
 
897
#line 884 "./cwebdir/common.w"
 
898
 
 
899
void
 
900
#line 354 "./cwebdir/comm-w2c.ch"
 
901
 extend_section_name P4C(name_pointer,p,char*,first,char*,last,int,ispref)
 
902
#line 891 "./cwebdir/common.w"
 
903
{
 
904
char*s;
 
905
name_pointer q= p+1;
 
906
int name_len= last-first+ispref;
 
907
if(name_ptr>=name_dir_end)overflow("name");
 
908
while(q->link!=name_dir)q= q->link;
 
909
q->link= name_ptr;
 
910
s= name_ptr->byte_start;
 
911
name_ptr->link= name_dir;
 
912
if(s+name_len> byte_mem_end)overflow("byte memory");
 
913
(++name_ptr)->byte_start= byte_ptr= s+name_len;
 
914
strncpy(s,first,name_len);
 
915
if(ispref)*(byte_ptr-1)= ' ';
 
916
}
 
917
 
 
918
/*:50*//*51:*/
 
919
#line 912 "./cwebdir/common.w"
 
920
 
 
921
name_pointer
 
922
#line 364 "./cwebdir/comm-w2c.ch"
 
923
 
 
924
section_lookup P3C(char*,first,char*,last,int,ispref)
 
925
#line 917 "./cwebdir/common.w"
 
926
{
 
927
int c= 0;
 
928
name_pointer p= root;
 
929
name_pointer q= NULL;
 
930
name_pointer r= NULL;
 
931
name_pointer par= NULL;
 
932
 
 
933
int name_len= last-first+1;
 
934
/*52:*/
 
935
#line 936 "./cwebdir/common.w"
 
936
 
 
937
while(p){
 
938
c= web_strcmp(first,name_len,first_chunk(p),prefix_length(p));
 
939
if(c==less||c==greater){
 
940
if(r==NULL)
 
941
par= p;
 
942
p= (c==less?p->llink:p->rlink);
 
943
}else{
 
944
if(r!=NULL){
 
945
printf("\n! Ambiguous prefix: matches <");
 
946
 
 
947
print_prefix_name(p);
 
948
printf(">\n and <");
 
949
print_prefix_name(r);
 
950
err_print(">");
 
951
return name_dir;
 
952
}
 
953
r= p;
 
954
p= p->llink;
 
955
q= r->rlink;
 
956
}
 
957
if(p==NULL)
 
958
p= q,q= NULL;
 
959
}
 
960
 
 
961
/*:52*/
 
962
#line 926 "./cwebdir/common.w"
 
963
;
 
964
/*53:*/
 
965
#line 961 "./cwebdir/common.w"
 
966
 
 
967
if(r==NULL)
 
968
return add_section_name(par,c,first,last+1,ispref);
 
969
 
 
970
/*:53*/
 
971
#line 927 "./cwebdir/common.w"
 
972
;
 
973
/*54:*/
 
974
#line 969 "./cwebdir/common.w"
 
975
 
 
976
switch(section_name_cmp(&first,name_len,r)){
 
977
 
 
978
case prefix:
 
979
if(!ispref){
 
980
printf("\n! New name is a prefix of <");
 
981
 
 
982
print_section_name(r);
 
983
err_print(">");
 
984
}
 
985
else if(name_len<prefix_length(r))set_prefix_length(r,name_len);
 
986
 
 
987
case equal:return r;
 
988
case extension:if(!ispref||first<=last)
 
989
extend_section_name(r,first,last+1,ispref);
 
990
return r;
 
991
case bad_extension:
 
992
printf("\n! New name extends <");
 
993
 
 
994
print_section_name(r);
 
995
err_print(">");
 
996
return r;
 
997
default:
 
998
printf("\n! Section name incompatible with <");
 
999
 
 
1000
print_prefix_name(r);
 
1001
printf(">,\n which abbreviates <");
 
1002
print_section_name(r);
 
1003
err_print(">");
 
1004
return r;
 
1005
}
 
1006
 
 
1007
/*:54*/
 
1008
#line 928 "./cwebdir/common.w"
 
1009
;
 
1010
}
 
1011
 
 
1012
/*:51*//*56:*/
 
1013
#line 1020 "./cwebdir/common.w"
 
1014
 
 
1015
#line 384 "./cwebdir/comm-w2c.ch"
 
1016
int section_name_cmp P3C(char**,pfirst,int,len,name_pointer,r)
 
1017
#line 1025 "./cwebdir/common.w"
 
1018
{
 
1019
char*first= *pfirst;
 
1020
name_pointer q= r+1;
 
1021
char*ss,*s= first_chunk(r);
 
1022
int c;
 
1023
int ispref;
 
1024
while(1){
 
1025
ss= (r+1)->byte_start-1;
 
1026
if(*ss==' '&&ss>=r->byte_start)ispref= 1,q= q->link;
 
1027
else ispref= 0,ss++,q= name_dir;
 
1028
switch(c= web_strcmp(first,len,s,ss-s)){
 
1029
case equal:if(q==name_dir)
 
1030
if(ispref){
 
1031
*pfirst= first+(ss-s);
 
1032
return extension;
 
1033
}else return equal;
 
1034
else return(q->byte_start==(q+1)->byte_start)?equal:prefix;
 
1035
case extension:
 
1036
if(!ispref)return bad_extension;
 
1037
first+= ss-s;
 
1038
if(q!=name_dir){len-= ss-s;s= q->byte_start;r= q;continue;}
 
1039
*pfirst= first;return extension;
 
1040
default:return c;
 
1041
}
 
1042
}
 
1043
}
 
1044
 
 
1045
/*:56*//*60:*/
 
1046
#line 1095 "./cwebdir/common.w"
 
1047
 
 
1048
void
 
1049
#line 401 "./cwebdir/comm-w2c.ch"
 
1050
 err_print P1C(char*,s)
 
1051
#line 1099 "./cwebdir/common.w"
 
1052
{
 
1053
char*k,*l;
 
1054
printf(*s=='!'?"\n%s":"%s",s);
 
1055
if(web_file_open)/*61:*/
 
1056
#line 1115 "./cwebdir/common.w"
 
1057
 
 
1058
{if(changing&&include_depth==change_depth)
 
1059
printf(". (l. %d of change file)\n",change_line);
 
1060
else if(include_depth==0)printf(". (l. %d)\n",cur_line);
 
1061
else printf(". (l. %d of include file %s)\n",cur_line,cur_file_name);
 
1062
l= (loc>=limit?limit:loc);
 
1063
if(l> buffer){
 
1064
for(k= buffer;k<l;k++)
 
1065
if(*k=='\t')putchar(' ');
 
1066
else putchar(*k);
 
1067
putchar('\n');
 
1068
for(k= buffer;k<l;k++)putchar(' ');
 
1069
}
 
1070
for(k= l;k<limit;k++)putchar(*k);
 
1071
if(*limit=='|')putchar('|');
 
1072
putchar(' ');
 
1073
}
 
1074
 
 
1075
/*:61*/
 
1076
#line 1102 "./cwebdir/common.w"
 
1077
;
 
1078
update_terminal;mark_error;
 
1079
}
 
1080
 
 
1081
/*:60*//*63:*/
 
1082
#line 1150 "./cwebdir/common.w"
 
1083
 
 
1084
#line 419 "./cwebdir/comm-w2c.ch"
 
1085
int wrap_up P1H(void){
 
1086
#line 1152 "./cwebdir/common.w"
 
1087
putchar('\n');
 
1088
if(show_stats)
 
1089
print_stats();
 
1090
/*64:*/
 
1091
#line 1160 "./cwebdir/common.w"
 
1092
 
 
1093
switch(history){
 
1094
case spotless:if(show_happiness)printf("(No errors were found.)\n");break;
 
1095
case harmless_message:
 
1096
printf("(Did you see the warning message above?)\n");break;
 
1097
case error_message:
 
1098
printf("(Pardon me, but I think I spotted something wrong.)\n");break;
 
1099
case fatal_message:printf("(That was a fatal error, my friend.)\n");
 
1100
}
 
1101
 
 
1102
/*:64*/
 
1103
#line 1155 "./cwebdir/common.w"
 
1104
;
 
1105
if(history> harmless_message)return(1);
 
1106
else return(0);
 
1107
}
 
1108
 
 
1109
/*:63*//*66:*/
 
1110
#line 1179 "./cwebdir/common.w"
 
1111
void
 
1112
#line 437 "./cwebdir/comm-w2c.ch"
 
1113
 fatal P2C(char*,s,char*,t)
 
1114
#line 1182 "./cwebdir/common.w"
 
1115
{
 
1116
if(*s)printf(s);
 
1117
err_print(t);
 
1118
history= fatal_message;exit(wrap_up());
 
1119
}
 
1120
 
 
1121
/*:66*//*67:*/
 
1122
#line 1190 "./cwebdir/common.w"
 
1123
void
 
1124
#line 446 "./cwebdir/comm-w2c.ch"
 
1125
 overflow P1C(char*,t)
 
1126
#line 1193 "./cwebdir/common.w"
 
1127
{
 
1128
printf("\n! Sorry, %s capacity exceeded",t);fatal("","");
 
1129
}
 
1130
 
 
1131
 
 
1132
/*:67*//*72:*/
 
1133
#line 1254 "./cwebdir/common.w"
 
1134
 
 
1135
void
 
1136
#line 504 "./cwebdir/comm-w2c.ch"
 
1137
 scan_args P1H(void)
 
1138
#line 1257 "./cwebdir/common.w"
 
1139
{
 
1140
char*dot_pos;
 
1141
char*name_pos;
 
1142
register char*s;
 
1143
boolean found_web= 0,found_change= 0,found_out= 0;
 
1144
 
 
1145
boolean flag_change;
 
1146
 
 
1147
while(--argc> 0){
 
1148
if((**(++argv)=='-'||**argv=='+')&&*(*argv+1))/*76:*/
 
1149
#line 528 "./cwebdir/comm-w2c.ch"
 
1150
 
 
1151
{
 
1152
if(strcmp("-help",*argv)==0||strcmp("--help",*argv)==0)
 
1153
/*84:*/
 
1154
#line 605 "./cwebdir/comm-w2c.ch"
 
1155
 
 
1156
usagehelp(program==ctangle?CTANGLEHELP:CWEAVEHELP,NULL);
 
1157
 
 
1158
 
 
1159
/*:84*/
 
1160
#line 531 "./cwebdir/comm-w2c.ch"
 
1161
;
 
1162
if(strcmp("-version",*argv)==0||strcmp("--version",*argv)==0)
 
1163
/*85:*/
 
1164
#line 614 "./cwebdir/comm-w2c.ch"
 
1165
 
 
1166
printversionandexit((program==ctangle?ctangle_banner:cweave_banner),
 
1167
"Silvio Levy and Donald E. Knuth",NULL, NULL);
 
1168
 
 
1169
 
 
1170
/*:85*/
 
1171
#line 533 "./cwebdir/comm-w2c.ch"
 
1172
;
 
1173
#line 1346 "./cwebdir/common.w"
 
1174
if(**argv=='-')flag_change= 0;
 
1175
#line 539 "./cwebdir/comm-w2c.ch"
 
1176
else flag_change= 1;
 
1177
if(*(*argv+1)=='d')
 
1178
if(sscanf(*argv+2,"%u",&kpathsea_debug)!=1)/*77:*/
 
1179
#line 1352 "./cwebdir/common.w"
 
1180
 
 
1181
{
 
1182
#line 562 "./cwebdir/comm-w2c.ch"
 
1183
if(program==ctangle){
 
1184
fprintf(stderr,"ctangle: Need one to three file arguments.\n");
 
1185
usage("ctangle");
 
1186
}else{
 
1187
fprintf(stderr,"cweave: Need one to three file arguments.\n");
 
1188
usage("cweave");
 
1189
}
 
1190
#line 1362 "./cwebdir/common.w"
 
1191
}
 
1192
 
 
1193
/*:77*/
 
1194
#line 541 "./cwebdir/comm-w2c.ch"
 
1195
;
 
1196
#line 1348 "./cwebdir/common.w"
 
1197
for(dot_pos= *argv+1;*dot_pos> '\0';dot_pos++)
 
1198
#line 547 "./cwebdir/comm-w2c.ch"
 
1199
flags[(unsigned char)*dot_pos]= flag_change;
 
1200
#line 1350 "./cwebdir/common.w"
 
1201
}
 
1202
 
 
1203
/*:76*/
 
1204
#line 1266 "./cwebdir/common.w"
 
1205
 
 
1206
else{
 
1207
s= name_pos= *argv;dot_pos= NULL;
 
1208
while(*s){
 
1209
if(*s=='.')dot_pos= s++;
 
1210
else if(*s=='/')dot_pos= NULL,name_pos= ++s;
 
1211
else s++;
 
1212
}
 
1213
if(!found_web)/*73:*/
 
1214
#line 1292 "./cwebdir/common.w"
 
1215
 
 
1216
{
 
1217
if(s-*argv> max_file_name_length-5)
 
1218
/*78:*/
 
1219
#line 1364 "./cwebdir/common.w"
 
1220
fatal("! Filename too long\n",*argv);
 
1221
 
 
1222
 
 
1223
/*:78*/
 
1224
#line 1295 "./cwebdir/common.w"
 
1225
;
 
1226
if(dot_pos==NULL)
 
1227
sprintf(web_file_name,"%s.w",*argv);
 
1228
else{
 
1229
strcpy(web_file_name,*argv);
 
1230
*dot_pos= 0;
 
1231
}
 
1232
#line 1303 "./cwebdir/common.w"
 
1233
sprintf(tex_file_name,"%s.tex",name_pos);
 
1234
sprintf(idx_file_name,"%s.idx",name_pos);
 
1235
sprintf(scn_file_name,"%s.scn",name_pos);
 
1236
sprintf(C_file_name,"%s.c",name_pos);
 
1237
found_web= 1;
 
1238
}
 
1239
 
 
1240
/*:73*/
 
1241
#line 1275 "./cwebdir/common.w"
 
1242
 
 
1243
else if(!found_change)/*74:*/
 
1244
#line 1310 "./cwebdir/common.w"
 
1245
 
 
1246
{
 
1247
if(strcmp(*argv,"-")==0)found_change= -1;
 
1248
else{
 
1249
if(s-*argv> max_file_name_length-4)
 
1250
/*78:*/
 
1251
#line 1364 "./cwebdir/common.w"
 
1252
fatal("! Filename too long\n",*argv);
 
1253
 
 
1254
 
 
1255
/*:78*/
 
1256
#line 1315 "./cwebdir/common.w"
 
1257
;
 
1258
if(dot_pos==NULL)
 
1259
sprintf(change_file_name,"%s.ch",*argv);
 
1260
else strcpy(change_file_name,*argv);
 
1261
found_change= 1;
 
1262
}
 
1263
}
 
1264
 
 
1265
/*:74*/
 
1266
#line 1276 "./cwebdir/common.w"
 
1267
 
 
1268
else if(!found_out)/*75:*/
 
1269
#line 1323 "./cwebdir/common.w"
 
1270
 
 
1271
{
 
1272
if(s-*argv> max_file_name_length-5)
 
1273
/*78:*/
 
1274
#line 1364 "./cwebdir/common.w"
 
1275
fatal("! Filename too long\n",*argv);
 
1276
 
 
1277
 
 
1278
/*:78*/
 
1279
#line 1326 "./cwebdir/common.w"
 
1280
;
 
1281
if(dot_pos==NULL){
 
1282
sprintf(tex_file_name,"%s.tex",*argv);
 
1283
sprintf(idx_file_name,"%s.idx",*argv);
 
1284
sprintf(scn_file_name,"%s.scn",*argv);
 
1285
sprintf(C_file_name,"%s.c",*argv);
 
1286
}else{
 
1287
strcpy(tex_file_name,*argv);
 
1288
strcpy(C_file_name,*argv);
 
1289
if(flags['x']){
 
1290
*dot_pos= 0;
 
1291
sprintf(idx_file_name,"%s.idx",*argv);
 
1292
sprintf(scn_file_name,"%s.scn",*argv);
 
1293
}
 
1294
}
 
1295
found_out= 1;
 
1296
}
 
1297
 
 
1298
#line 528 "./cwebdir/comm-w2c.ch"
 
1299
/*:75*/
 
1300
#line 1277 "./cwebdir/common.w"
 
1301
 
 
1302
else/*77:*/
 
1303
#line 1352 "./cwebdir/common.w"
 
1304
 
 
1305
{
 
1306
#line 562 "./cwebdir/comm-w2c.ch"
 
1307
if(program==ctangle){
 
1308
fprintf(stderr,"ctangle: Need one to three file arguments.\n");
 
1309
usage("ctangle");
 
1310
}else{
 
1311
fprintf(stderr,"cweave: Need one to three file arguments.\n");
 
1312
usage("cweave");
 
1313
}
 
1314
#line 1362 "./cwebdir/common.w"
 
1315
}
 
1316
 
 
1317
/*:77*/
 
1318
#line 1278 "./cwebdir/common.w"
 
1319
;
 
1320
}
 
1321
}
 
1322
if(!found_web)/*77:*/
 
1323
#line 1352 "./cwebdir/common.w"
 
1324
 
 
1325
{
 
1326
#line 562 "./cwebdir/comm-w2c.ch"
 
1327
if(program==ctangle){
 
1328
fprintf(stderr,"ctangle: Need one to three file arguments.\n");
 
1329
usage("ctangle");
 
1330
}else{
 
1331
fprintf(stderr,"cweave: Need one to three file arguments.\n");
 
1332
usage("cweave");
 
1333
}
 
1334
#line 1362 "./cwebdir/common.w"
 
1335
}
 
1336
 
 
1337
/*:77*/
 
1338
#line 1281 "./cwebdir/common.w"
 
1339
;
 
1340
#line 513 "./cwebdir/comm-w2c.ch"
 
1341
if(found_change<=0)strcpy(change_file_name,DEV_NULL);
 
1342
#line 1283 "./cwebdir/common.w"
 
1343
}
 
1344
 
 
1345
/*:72*/