History

CWEB — Release 3.3, 1994-12-06.

Andreas Scherer committed 15 years ago

Commit 22cd55e1 parent 6f710fc16 files · +379 −303Browse files

Showing the changes to common.c (1 of 16 files). Show all

Unified · Split

common.c+126−125
@@ -7,12 +7,12 @@ · 6 unmodified lines
77 #include <ctype.h>
88
99 /*:5*//*8:*/
10−#line 163 "common.w"
10+#line 164 "common.w"
1111
1212 #include <stdio.h>
1313
1414 /*:8*//*22:*/
15−#line 468 "common.w"
15+#line 469 "common.w"
1616
1717 #include <stdlib.h>
1818
@@ -39,9 +39,10 @@ · 20 unmodified lines
3939 #define minus_gt_ast 027 \
4040
4141 #define buf_size 100
42−#define long_buf_size 500
43−#define xisspace(c)(isspace(c)&&((unsigned char)c<0200))
44−#define xisupper(c)(isupper(c)&&((unsigned char)c<0200)) \
42+#define longest_name 1000
43+#define long_buf_size (buf_size+longest_name)
44+#define xisspace(c) (isspace(c) &&((unsigned char) c<0200) )
45+#define xisupper(c) (isupper(c) &&((unsigned char) c<0200) ) \
4546
4647 #define max_include_depth 10 \
4748
@@ -53,27 +54,27 @@ · 5 unmodified lines
5354 #define web_file_name file_name[0] \
5455
5556 #define lines_dont_match (change_limit-change_buffer!=limit-buffer|| \
56−strncmp(buffer,change_buffer,limit-buffer)) \
57+strncmp(buffer,change_buffer,limit-buffer) ) \
5758
58−#define if_section_start_make_pending(b){*limit= '!'; \
59−for(loc= buffer;xisspace(*loc);loc++); \
59+#define if_section_start_make_pending(b) {*limit= '!'; \
60+for(loc= buffer;xisspace(*loc) ;loc++) ; \
6061 *limit= ' '; \
61−if(*loc=='@'&&(xisspace(*(loc+1))||*(loc+1)=='*'))change_pending= b; \
62+if(*loc=='@'&&(xisspace(*(loc+1) ) ||*(loc+1) =='*') ) change_pending= b; \
6263 } \
6364
6465 #define max_sections 2000 \
6566 \
6667
67−#define too_long(){include_depth--; \
68−err_print("! Include file name too long");goto restart;} \
68+#define too_long() {include_depth--; \
69+err_print("! Include file name too long") ;goto restart;} \
6970
7071 #define max_bytes 90000 \
7172
7273 #define max_names 4000 \
7374 \
7475
75−#define length(c)(c+1)->byte_start-(c)->byte_start
76−#define print_id(c)term_write((c)->byte_start,length((c))) \
76+#define length(c) (c+1) ->byte_start-(c) ->byte_start
77+#define print_id(c) term_write((c) ->byte_start,length((c) ) ) \
7778
7879 #define hash_size 353 \
7980
@@ -82,11 +83,11 @@ err_print("! Include file name too long");goto restart;} \ · 2 unmodified lines
8283 #define root name_dir->rlink \
8384 \
8485
85−#define first_chunk(p)((p)->byte_start+2)
86−#define prefix_length(p)(int)((unsigned char)*((p)->byte_start)*256+ \
87−(unsigned char)*((p)->byte_start+1))
88−#define set_prefix_length(p,m)(*((p)->byte_start)= (m)/256, \
89−*((p)->byte_start+1)= (m)%256) \
86+#define first_chunk(p) ((p) ->byte_start+2)
87+#define prefix_length(p) (int) ((unsigned char) *((p) ->byte_start) *256+ \
88+(unsigned char) *((p) ->byte_start+1) )
89+#define set_prefix_length(p,m) (*((p) ->byte_start) = (m) /256, \
90+*((p) ->byte_start+1) = (m) %256) \
9091
9192 #define less 0
9293 #define equal 1
@@ -100,10 +101,10 @@ err_print("! Include file name too long");goto restart;} \ · 7 unmodified lines
100101 #define harmless_message 1
101102 #define error_message 2
102103 #define fatal_message 3
103−#define mark_harmless {if(history==spotless)history= harmless_message;}
104+#define mark_harmless {if(history==spotless) history= harmless_message;}
104105 #define mark_error history= error_message \
105106
106−#define confusion(s)fatal("! This can't happen: ",s) \
107+#define confusion(s) fatal("! This can't happen: ",s) \
107108 \
108109
109110 #define show_banner flags['b']
@@ -111,13 +112,13 @@ err_print("! Include file name too long");goto restart;} \ · 1 unmodified line
111112 #define show_stats flags['s']
112113 #define show_happiness flags['h'] \
113114
114−#define update_terminal fflush(stdout) \
115+#define update_terminal fflush(stdout) \
115116
116−#define new_line putchar('\n')
117+#define new_line putchar('\n')
117118 #define putxchar putchar
118−#define term_write(a,b)fflush(stdout),fwrite(a,sizeof(char),b,stdout)
119−#define C_printf(c,a)fprintf(C_file,c,a)
120−#define C_putc(c)putc(c,C_file) \
119+#define term_write(a,b) fflush(stdout) ,fwrite(a,sizeof(char) ,b,stdout)
120+#define C_printf(c,a) fprintf(C_file,c,a)
121+#define C_putc(c) putc(c,C_file) \
121122
122123
123124 #line 59 "common.w"
@@ -129,7 +130,7 @@ typedef short boolean; · 5 unmodified lines
129130 boolean program;
130131
131132 /*:2*//*7:*/
132−#line 157 "common.w"
133+#line 158 "common.w"
133134
134135 char buffer[long_buf_size];
135136 char*buffer_end= buffer+buf_size-2;
@@ -137,7 +138,7 @@ char*limit= buffer; · 1 unmodified line
137138 char*loc= buffer;
138139
139140 /*:7*//*10:*/
140−#line 212 "common.w"
141+#line 213 "common.w"
141142
142143 int include_depth;
143144 FILE*file[max_include_depth];
@@ -154,7 +155,7 @@ boolean changing; · 10 unmodified lines
154155 boolean web_file_open= 0;
155156
156157 /*:10*//*20:*/
157−#line 416 "common.w"
158+#line 417 "common.w"
158159
159160 typedef unsigned short sixteen_bits;
160161 sixteen_bits section_count;
@@ -164,17 +165,17 @@ boolean change_pending; · 3 unmodified lines
164165 boolean print_where= 0;
165166
166167 /*:20*//*27:*/
167−#line 586 "common.w"
168+#line 587 "common.w"
168169
169170 typedef struct name_info{
170171 char*byte_start;
171172 /*31:*/
172−#line 623 "common.w"
173+#line 624 "common.w"
173174
174175 struct name_info*link;
175176
176177 /*:31*//*40:*/
177−#line 722 "common.w"
178+#line 723 "common.w"
178179
179180 union{
180181 struct name_info*Rlink;
@@ -183,12 +184,12 @@ char Ilk; · 2 unmodified lines
183184 }dummy;
184185
185186 /*:40*//*55:*/
186−#line 1054 "common.w"
187+#line 1055 "common.w"
187188
188189 char*equiv_or_xref;
189190
190191 /*:55*/
191−#line 589 "common.w"
192+#line 590 "common.w"
192193
193194 }name_info;
194195 typedef name_info*name_pointer;
@@ -198,13 +199,13 @@ name_info name_dir[max_names]; · 3 unmodified lines
198199 name_pointer name_dir_end= name_dir+max_names-1;
199200
200201 /*:27*//*29:*/
201−#line 609 "common.w"
202+#line 610 "common.w"
202203
203204 name_pointer name_ptr;
204205 char*byte_ptr;
205206
206207 /*:29*//*32:*/
207−#line 636 "common.w"
208+#line 637 "common.w"
208209
209210 typedef name_pointer*hash_pointer;
210211 name_pointer hash[hash_size];
@@ -212,12 +213,12 @@ hash_pointer hash_end= hash+hash_size-1; · 1 unmodified line
212213 hash_pointer h;
213214
214215 /*:32*//*56:*/
215−#line 1074 "common.w"
216+#line 1075 "common.w"
216217
217218 int history= spotless;
218219
219220 /*:56*//*67:*/
220−#line 1212 "common.w"
221+#line 1213 "common.w"
221222
222223 int argc;
223224 char**argv;
@@ -228,7 +229,7 @@ char scn_file_name[max_file_name_length]; · 4 unmodified lines
228229 boolean flags[128];
229230
230231 /*:67*//*77:*/
231−#line 1366 "common.w"
232+#line 1367 "common.w"
232233
233234 FILE*C_file;
234235 FILE*tex_file;
@@ -244,7 +245,7 @@ FILE*active_file; · 9 unmodified lines
244245 int phase;
245246
246247 /*:3*//*11:*/
247−#line 238 "common.w"
248+#line 239 "common.w"
248249
249250 char change_buffer[buf_size];
250251 char*change_limit;
@@ -253,48 +254,48 @@ char*change_limit; · 2 unmodified lines
253254 #line 61 "common.w"
254255
255256 /*33:*/
256−#line 642 "common.w"
257+#line 643 "common.w"
257258
258259 extern int names_match();
259260
260261 /*:33*//*38:*/
261−#line 695 "common.w"
262+#line 696 "common.w"
262263
263264 void init_p();
264265
265266 /*:38*//*46:*/
266−#line 844 "common.w"
267+#line 845 "common.w"
267268
268269 extern void init_node();
269270
270271 /*:46*//*53:*/
271−#line 1009 "common.w"
272+#line 1010 "common.w"
272273
273274 int section_name_cmp();
274275
275276 /*:53*//*57:*/
276−#line 1084 "common.w"
277+#line 1085 "common.w"
277278
278279 void err_print();
279280
280281 /*:57*//*60:*/
281−#line 1132 "common.w"
282+#line 1133 "common.w"
282283
283284 int wrap_up();
284285 extern void print_stats();
285286
286287 /*:60*//*63:*/
287−#line 1165 "common.w"
288+#line 1166 "common.w"
288289
289290 void fatal(),overflow();
290291
291292 /*:63*//*69:*/
292−#line 1243 "common.w"
293+#line 1244 "common.w"
293294
294295 void scan_args();
295296
296297 /*:69*//*81:*/
297−#line 1407 "common.w"
298+#line 1408 "common.w"
298299
299300 extern int strlen();
300301 extern int strcmp();
@@ -313,19 +314,19 @@ void · 12 unmodified lines
313314 common_init()
314315 {
315316 /*30:*/
316−#line 613 "common.w"
317+#line 614 "common.w"
317318
318319 name_dir->byte_start= byte_ptr= byte_mem;
319320 name_ptr= name_dir+1;
320321 name_ptr->byte_start= byte_mem;
321322
322323 /*:30*//*34:*/
323−#line 647 "common.w"
324+#line 648 "common.w"
324325
325326 for(h= hash;h<=hash_end;*h++= NULL);
326327
327328 /*:34*//*41:*/
328−#line 729 "common.w"
329+#line 730 "common.w"
329330
330331 root= NULL;
331332
@@ -333,7 +334,7 @@ root= NULL; · 1 unmodified line
333334 #line 92 "common.w"
334335 ;
335336 /*68:*/
336−#line 1225 "common.w"
337+#line 1226 "common.w"
337338
338339 show_banner= show_happiness= show_progress= 1;
339340
@@ -341,7 +342,7 @@ show_banner= show_happiness= show_progress= 1; · 1 unmodified line
341342 #line 93 "common.w"
342343 ;
343344 /*78:*/
344−#line 1373 "common.w"
345+#line 1374 "common.w"
345346
346347 scan_args();
347348 if(program==ctangle){
@@ -360,7 +361,7 @@ fatal("! Cannot open output file ",tex_file_name); · 12 unmodified lines
360361 }
361362
362363 /*:4*//*9:*/
363−#line 170 "common.w"
364+#line 171 "common.w"
364365
365366 int input_ln(fp)
366367 FILE*fp;
@@ -382,14 +383,14 @@ return(1); · 15 unmodified lines
382383 }
383384
384385 /*:9*//*12:*/
385−#line 249 "common.w"
386+#line 250 "common.w"
386387
387388 void
388389 prime_the_change_buffer()
389390 {
390391 change_limit= change_buffer;
391392 /*13:*/
392−#line 263 "common.w"
393+#line 264 "common.w"
393394
394395 while(1){
395396 change_line++;
@@ -406,10 +407,10 @@ err_print("! Missing @x in change file"); · 10 unmodified lines
406407 }
407408
408409 /*:13*/
409−#line 254 "common.w"
410+#line 255 "common.w"
410411 ;
411412 /*14:*/
412−#line 280 "common.w"
413+#line 281 "common.w"
413414
414415 do{
415416 change_line++;
@@ -421,10 +422,10 @@ return; · 5 unmodified lines
421422 }while(limit==buffer);
422423
423424 /*:14*/
424−#line 255 "common.w"
425+#line 256 "common.w"
425426 ;
426427 /*15:*/
427−#line 290 "common.w"
428+#line 291 "common.w"
428429
429430 {
430431 change_limit= change_buffer-buffer+limit;
@@ -432,12 +433,12 @@ strncpy(change_buffer,buffer,limit-buffer+1); · 1 unmodified line
432433 }
433434
434435 /*:15*/
435−#line 256 "common.w"
436+#line 257 "common.w"
436437 ;
437438 }
438439
439440 /*:12*//*16:*/
440−#line 318 "common.w"
441+#line 319 "common.w"
441442
442443 void
443444 check_change()
@@ -460,7 +461,7 @@ return; · 16 unmodified lines
460461 if(limit>buffer+1&&buffer[0]=='@'){
461462 if(xisupper(buffer[1]))buffer[1]= tolower(buffer[1]);
462463 /*17:*/
463−#line 356 "common.w"
464+#line 357 "common.w"
464465
465466 if(buffer[1]=='x'||buffer[1]=='z'){
466467 loc= buffer+2;err_print("! Where is the matching @y?");
@@ -478,11 +479,11 @@ return; · 11 unmodified lines
478479 }
479480
480481 /*:17*/
481−#line 340 "common.w"
482+#line 341 "common.w"
482483 ;
483484 }
484485 /*15:*/
485−#line 290 "common.w"
486+#line 291 "common.w"
486487
487488 {
488489 change_limit= change_buffer-buffer+limit;
@@ -490,7 +491,7 @@ strncpy(change_buffer,buffer,limit-buffer+1); · 1 unmodified line
490491 }
491492
492493 /*:15*/
493−#line 342 "common.w"
494+#line 343 "common.w"
494495 ;
495496 changing= 0;cur_line++;
496497 while(!input_ln(cur_file)){
@@ -506,14 +507,14 @@ if(lines_dont_match)n++; · 9 unmodified lines
506507 }
507508
508509 /*:16*//*18:*/
509−#line 376 "common.w"
510+#line 377 "common.w"
510511
511512 void
512513 reset_input()
513514 {
514515 limit= buffer;loc= buffer+1;buffer[0]= ' ';
515516 /*19:*/
516−#line 391 "common.w"
517+#line 392 "common.w"
517518
518519 if((web_file= fopen(web_file_name,"r"))==NULL){
519520 strcpy(web_file_name,alt_web_file_name);
@@ -527,7 +528,7 @@ if((change_file= fopen(change_file_name,"r"))==NULL) · 7 unmodified lines
527528 fatal("! Cannot open change file ",change_file_name);
528529
529530 /*:19*/
530−#line 381 "common.w"
531+#line 382 "common.w"
531532 ;
532533 include_depth= 0;cur_line= 0;change_line= 0;
533534 change_depth= include_depth;
@@ -536,14 +537,14 @@ limit= buffer;loc= buffer+1;buffer[0]= ' ';input_has_ended= 0; · 2 unmodified lines
536537 }
537538
538539 /*:18*//*21:*/
539−#line 424 "common.w"
540+#line 425 "common.w"
540541
541542 int get_line()
542543 {
543544 restart:
544545 if(changing&&include_depth==change_depth)
545546 /*25:*/
546−#line 529 "common.w"
547+#line 530 "common.w"
547548 {
548549 change_line++;
549550 if(!input_ln(change_file)){
@@ -574,11 +575,11 @@ prime_the_change_buffer();changing= !changing;print_where= 1; · 24 unmodified lines
574575 }
575576
576577 /*:25*/
577−#line 429 "common.w"
578+#line 430 "common.w"
578579 ;
579580 if(!changing||include_depth>change_depth){
580581 /*24:*/
581−#line 512 "common.w"
582+#line 513 "common.w"
582583 {
583584 cur_line++;
584585 while(!input_ln(cur_file)){
@@ -597,7 +598,7 @@ if(change_limit>change_buffer)check_change(); · 12 unmodified lines
597598 }
598599
599600 /*:24*/
600−#line 431 "common.w"
601+#line 432 "common.w"
601602 ;
602603 if(changing&&include_depth==change_depth)goto restart;
603604 }
@@ -617,7 +618,7 @@ goto restart; · 13 unmodified lines
617618 }
618619 include_depth++;
619620 /*23:*/
620−#line 471 "common.w"
621+#line 472 "common.w"
621622 {
622623 char temp_file_name[max_file_name_length];
623624 char*cur_file_name_end= cur_file_name+max_file_name_length-1;
@@ -660,14 +661,14 @@ include_depth--;err_print("! Cannot open include file");goto restart; · 36 unmodified lines
660661 }
661662
662663 /*:23*/
663−#line 449 "common.w"
664+#line 450 "common.w"
664665 ;
665666 }
666667 return(!input_has_ended);
667668 }
668669
669670 /*:21*//*26:*/
670−#line 561 "common.w"
671+#line 562 "common.w"
671672
672673 void
673674 check_complete(){
@@ -681,7 +682,7 @@ err_print("! Change file entry did not match"); · 7 unmodified lines
681682 }
682683
683684 /*:26*//*35:*/
684−#line 652 "common.w"
685+#line 653 "common.w"
685686
686687 name_pointer
687688 id_lookup(first,last,t)
@@ -696,17 +697,17 @@ name_pointer p; · 8 unmodified lines
696697 if(last==NULL)for(last= first;*last!='\0';last++);
697698 l= last-first;
698699 /*36:*/
699−#line 675 "common.w"
700+#line 676 "common.w"
700701
701702 h= (unsigned char)*i;
702703 while(++i<last)h= (h+h+(int)((unsigned char)*i))%hash_size;
703704
704705
705706 /*:36*/
706−#line 665 "common.w"
707+#line 666 "common.w"
707708 ;
708709 /*37:*/
709−#line 683 "common.w"
710+#line 684 "common.w"
710711
711712 p= hash[h];
712713 while(p&&!names_match(p,first,l,t))p= p->link;
@@ -716,10 +717,10 @@ p->link= hash[h];hash[h]= p; · 3 unmodified lines
716717 }
717718
718719 /*:37*/
719−#line 666 "common.w"
720+#line 667 "common.w"
720721 ;
721722 if(p==name_ptr)/*39:*/
722−#line 698 "common.w"
723+#line 699 "common.w"
723724 {
724725 if(byte_ptr+l>byte_mem_end)overflow("byte memory");
725726 if(name_ptr>=name_dir_end)overflow("name");
@@ -729,13 +730,13 @@ if(program==cweave)init_p(p,t); · 3 unmodified lines
729730 }
730731
731732 /*:39*/
732−#line 667 "common.w"
733+#line 668 "common.w"
733734 ;
734735 return(p);
735736 }
736737
737738 /*:35*//*42:*/
738−#line 756 "common.w"
739+#line 757 "common.w"
739740
740741 void
741742 print_section_name(p)
@@ -756,7 +757,7 @@ if(q)term_write("...",3); · 14 unmodified lines
756757 }
757758
758759 /*:42*//*43:*/
759−#line 775 "common.w"
760+#line 776 "common.w"
760761
761762 void
762763 sprint_section_name(dest,p)
@@ -779,7 +780,7 @@ s= p->byte_start; · 16 unmodified lines
779780 }
780781
781782 /*:43*//*44:*/
782−#line 796 "common.w"
783+#line 797 "common.w"
783784
784785 void
785786 print_prefix_name(p)
@@ -792,7 +793,7 @@ if(s+l<(p+1)->byte_start)term_write("...",3); · 6 unmodified lines
792793 }
793794
794795 /*:44*//*45:*/
795−#line 817 "common.w"
796+#line 818 "common.w"
796797
797798 int web_strcmp(j,j_len,k,k_len)
798799 char*j,*k;
@@ -808,7 +809,7 @@ else return greater; · 9 unmodified lines
808809 }
809810
810811 /*:45*//*47:*/
811−#line 847 "common.w"
812+#line 848 "common.w"
812813
813814 name_pointer
814815 add_section_name(par,c,first,last,ispref)
@@ -839,7 +840,7 @@ return par==NULL?(root= p):c==less?(par->llink= p):(par->rlink= p); · 24 unmodified lines
839840 }
840841
841842 /*:47*//*48:*/
842−#line 876 "common.w"
843+#line 877 "common.w"
843844
844845 void
845846 extend_section_name(p,first,last,ispref)
@@ -863,7 +864,7 @@ if(ispref)*(byte_ptr-1)= ' '; · 17 unmodified lines
863864 }
864865
865866 /*:48*//*49:*/
866−#line 904 "common.w"
867+#line 905 "common.w"
867868
868869 name_pointer
869870 section_lookup(first,last,ispref)
@@ -878,7 +879,7 @@ name_pointer par= NULL; · 8 unmodified lines
878879
879880 int name_len= last-first+1;
880881 /*50:*/
881−#line 928 "common.w"
882+#line 929 "common.w"
882883
883884 while(p){
884885 c= web_strcmp(first,name_len,first_chunk(p),prefix_length(p));
@@ -905,19 +906,19 @@ p= q,q= NULL; · 20 unmodified lines
905906 }
906907
907908 /*:50*/
908−#line 918 "common.w"
909+#line 919 "common.w"
909910 ;
910911 /*51:*/
911−#line 953 "common.w"
912+#line 954 "common.w"
912913
913914 if(r==NULL)
914915 return add_section_name(par,c,first,last+1,ispref);
915916
916917 /*:51*/
917−#line 919 "common.w"
918+#line 920 "common.w"
918919 ;
919920 /*52:*/
920−#line 961 "common.w"
921+#line 962 "common.w"
921922
922923 switch(section_name_cmp(&first,name_len,r)){
923924
@@ -951,12 +952,12 @@ return r; · 27 unmodified lines
951952 }
952953
953954 /*:52*/
954−#line 920 "common.w"
955+#line 921 "common.w"
955956 ;
956957 }
957958
958959 /*:49*//*54:*/
959−#line 1012 "common.w"
960+#line 1013 "common.w"
960961
961962 int section_name_cmp(pfirst,len,r)
962963 char**pfirst;
@@ -990,7 +991,7 @@ default:return c; · 27 unmodified lines
990991 }
991992
992993 /*:54*//*58:*/
993−#line 1087 "common.w"
994+#line 1088 "common.w"
994995
995996 void
996997 err_print(s)
@@ -999,7 +1000,7 @@ char*s; · 2 unmodified lines
9991000 char*k,*l;
10001001 printf(*s=='!'?"\n%s":"%s",s);
10011002 if(web_file_open)/*59:*/
1002−#line 1107 "common.w"
1003+#line 1108 "common.w"
10031004
10041005 {if(changing&&include_depth==change_depth)
10051006 printf(". (l. %d of change file)\n",change_line);
@@ -1019,20 +1020,20 @@ putchar(' '); · 13 unmodified lines
10191020 }
10201021
10211022 /*:59*/
1022−#line 1094 "common.w"
1023+#line 1095 "common.w"
10231024 ;
10241025 update_terminal;mark_error;
10251026 }
10261027
10271028 /*:58*//*61:*/
1028−#line 1142 "common.w"
1029+#line 1143 "common.w"
10291030
10301031 int wrap_up(){
10311032 putchar('\n');
10321033 if(show_stats)
10331034 print_stats();
10341035 /*62:*/
1035−#line 1152 "common.w"
1036+#line 1153 "common.w"
10361037
10371038 switch(history){
10381039 case spotless:if(show_happiness)printf("(No errors were found.)\n");break;
@@ -1044,14 +1045,14 @@ case fatal_message:printf("(That was a fatal error, my friend.)\n"); · 5 unmodified lines
10441045 }
10451046
10461047 /*:62*/
1047−#line 1147 "common.w"
1048+#line 1148 "common.w"
10481049 ;
10491050 if(history>harmless_message)return(1);
10501051 else return(0);
10511052 }
10521053
10531054 /*:61*//*64:*/
1054−#line 1171 "common.w"
1055+#line 1172 "common.w"
10551056 void
10561057 fatal(s,t)
10571058 char*s,*t;
@@ -1062,7 +1063,7 @@ history= fatal_message;exit(wrap_up()); · 4 unmodified lines
10621063 }
10631064
10641065 /*:64*//*65:*/
1065−#line 1182 "common.w"
1066+#line 1183 "common.w"
10661067 void
10671068 overflow(t)
10681069 char*t;
@@ -1072,7 +1073,7 @@ printf("\n! Sorry, %s capacity exceeded",t);fatal("",""); · 3 unmodified lines
10721073
10731074
10741075 /*:65*//*70:*/
1075−#line 1246 "common.w"
1076+#line 1247 "common.w"
10761077
10771078 void
10781079 scan_args()
@@ -1086,7 +1087,7 @@ boolean flag_change; · 7 unmodified lines
10861087
10871088 while(--argc>0){
10881089 if((**(++argv)=='-'||**argv=='+')&&*(*argv+1))/*74:*/
1089−#line 1340 "common.w"
1090+#line 1341 "common.w"
10901091
10911092 {
10921093 if(**argv=='-')flag_change= 0;
@@ -1096,7 +1097,7 @@ flags[*dot_pos]= flag_change; · 3 unmodified lines
10961097 }
10971098
10981099 /*:74*/
1099−#line 1258 "common.w"
1100+#line 1259 "common.w"
11001101
11011102 else{
11021103 s= name_pos= *argv;dot_pos= NULL;
@@ -1106,17 +1107,17 @@ else if(*s=='/')dot_pos= NULL,name_pos= ++s; · 3 unmodified lines
11061107 else s++;
11071108 }
11081109 if(!found_web)/*71:*/
1109−#line 1284 "common.w"
1110+#line 1285 "common.w"
11101111
11111112 {
11121113 if(s-*argv>max_file_name_length-5)
11131114 /*76:*/
1114−#line 1360 "common.w"
1115+#line 1361 "common.w"
11151116 fatal("! Filename too long\n",*argv);
11161117
11171118
11181119 /*:76*/
1119−#line 1287 "common.w"
1120+#line 1288 "common.w"
11201121 ;
11211122 if(dot_pos==NULL)
11221123 sprintf(web_file_name,"%s.w",*argv);
@@ -1133,22 +1134,22 @@ found_web= 1; · 10 unmodified lines
11331134 }
11341135
11351136 /*:71*/
1136−#line 1267 "common.w"
1137+#line 1268 "common.w"
11371138
11381139 else if(!found_change)/*72:*/
1139−#line 1302 "common.w"
1140+#line 1303 "common.w"
11401141
11411142 {
11421143 if(strcmp(*argv,"-")==0)found_change= -1;
11431144 else{
11441145 if(s-*argv>max_file_name_length-4)
11451146 /*76:*/
1146−#line 1360 "common.w"
1147+#line 1361 "common.w"
11471148 fatal("! Filename too long\n",*argv);
11481149
11491150
11501151 /*:76*/
1151−#line 1307 "common.w"
1152+#line 1308 "common.w"
11521153 ;
11531154 if(dot_pos==NULL)
11541155 sprintf(change_file_name,"%s.ch",*argv);
@@ -1158,20 +1159,20 @@ found_change= 1; · 3 unmodified lines
11581159 }
11591160
11601161 /*:72*/
1161−#line 1268 "common.w"
1162+#line 1269 "common.w"
11621163
11631164 else if(!found_out)/*73:*/
1164−#line 1315 "common.w"
1165+#line 1316 "common.w"
11651166
11661167 {
11671168 if(s-*argv>max_file_name_length-5)
11681169 /*76:*/
1169−#line 1360 "common.w"
1170+#line 1361 "common.w"
11701171 fatal("! Filename too long\n",*argv);
11711172
11721173
11731174 /*:76*/
1174−#line 1318 "common.w"
1175+#line 1319 "common.w"
11751176 ;
11761177 if(dot_pos==NULL){
11771178 sprintf(tex_file_name,"%s.tex",*argv);
@@ -1195,10 +1196,10 @@ found_out= 1; · 17 unmodified lines
11951196 }
11961197
11971198 /*:73*/
1198−#line 1269 "common.w"
1199+#line 1270 "common.w"
11991200
12001201 else/*75:*/
1201−#line 1348 "common.w"
1202+#line 1349 "common.w"
12021203
12031204 {
12041205 if(program==ctangle)
@@ -1212,12 +1213,12 @@ else fatal( · 7 unmodified lines
12121213 }
12131214
12141215 /*:75*/
1215−#line 1270 "common.w"
1216+#line 1271 "common.w"
12161217 ;
12171218 }
12181219 }
12191220 if(!found_web)/*75:*/
1220−#line 1348 "common.w"
1221+#line 1349 "common.w"
12211222
12221223 {
12231224 if(program==ctangle)
@@ -1231,7 +1232,7 @@ else fatal( · 7 unmodified lines
12311232 }
12321233
12331234 /*:75*/
1234−#line 1273 "common.w"
1235+#line 1274 "common.w"
12351236 ;
12361237 if(found_change<=0)strcpy(change_file_name,"/dev/null");
12371238 }

Keyboard shortcuts

General

Show keyboard shortcuts
?
Focus the current search
/

Issues and pull requests

Open filters
f

Issues, pull requests and Inbox

Select next item
j↓
Select previous item
k↑
Open selected item
Enter
Dismiss filters or clear selection
Esc

Repository code

Go to file
t