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