sigrid/cweb

Makefile+2−1

 # This file is part of CWEB.
 # It is distributed WITHOUT ANY WARRANTY, express or implied.
-# Version 3.63 --- January 2001
+# Version 3.64 --- February 2002
 # Copyright (C) 1987,1990,1993,2000 Silvio Levy and Donald E. Knuth
 	comm-pc.ch ctang-pc.ch cweav-pc.ch comm-amiga.ch \
         comm-bs.ch ctang-bs.ch cweav-bs.ch makefile.bs \
 	comm-ql.ch ctang-ql.ch cweav-ql.ch readme.ql \
+	comm-w32.ch ctang-w32.ch cweav-w32.ch \
 	comm-os2.ch comm-mac.ch cweb.1 cweb.el c++lib.w README
 .SUFFIXES: .dvi .tex .w .pdf

README+5−1

@@ -27,6 +27,7 @@ comm-man.ch · 26 unmodified lines
27	comm-pc.ch	27	comm-pc.ch
28	comm-ql.ch	28	comm-ql.ch
29	comm-vms.ch	29	comm-vms.ch
		30	comm-w32.ch
30	common.c	31	common.c
31	common.h	32	common.h
32	common.w	33	common.w
@@ -35,6 +36,7 @@ ctang-man.ch · 2 unmodified lines
35	ctang-pc.ch	36	ctang-pc.ch
36	ctang-ql.ch	37	ctang-ql.ch
37	ctang-vms.ch	38	ctang-vms.ch
		39	ctang-w32.ch
38	ctangle.c	40	ctangle.c
39	ctangle.w	41	ctangle.w
40	cweav-bs.ch	42	cweav-bs.ch
@@ -42,6 +44,7 @@ cweav-man.ch · 1 unmodified line
42	cweav-pc.ch	44	cweav-pc.ch
43	cweav-ql.ch	45	cweav-ql.ch
44	cweav-vms.ch	46	cweav-vms.ch
		47	cweave-w32.ch
45	cweave.w	48	cweave.w
46	cweb.1	49	cweb.1
47	cweb.el	50	cweb.el
@@ -59,10 +62,11 @@ The files common.c and ctangle.c are used for bootstrapping. · 11 unmodified lines
59	The file cweb.1 is a manual page.	62	The file cweb.1 is a manual page.
60	The file cweb.el is suggested for GNU-Emacs users.	63	The file cweb.el is suggested for GNU-Emacs users.
61	The file c++lib.w is for C++ users (say `@i c++lib.w' at beginning of program).	64	The file c++lib.w is for C++ users (say `@i c++lib.w' at beginning of program).
62	The files *-man.ch are used if you want to make the full 237-page CWEB manual.	65	The files *-man.ch are used if you want to make the full 239-page CWEB manual.
63	The files -bs.ch are used instead of -pc.ch if you are doing BIG programs.	66	The files -bs.ch are used instead of -pc.ch if you are doing BIG programs.
64	You can use makefile.bs to make CWEB with *-bs.ch.	67	You can use makefile.bs to make CWEB with *-bs.ch.
65	The files *-ql.ch are for QDOS/SMSQ systems; see readme.ql for further info.	68	The files *-ql.ch are for QDOS/SMSQ systems; see readme.ql for further info.
		69	The files *-w32.ch use __fastcall conventions on win32 systems.
66	The file comm-mac.ch is for Macintosh conventions.	70	The file comm-mac.ch is for Macintosh conventions.
67	The other files named *.ch are sample change files for local customization.	71	The other files named *.ch are sample change files for local customization.
68		72

comm-mac.ch+2−2

@@ -4,9 +4,9 @@ No changes to CTANGLE or CWEAVE are needed. · 3 unmodified lines
4	(Contributed 13 Oct 2000 by AndPio@aol.com; slightly edited by Don Knuth)	4	(Contributed 13 Oct 2000 by AndPio@aol.com; slightly edited by Don Knuth)
5		5
6	@x in limbo, change the title page document to specify Mac version	6	@x in limbo, change the title page document to specify Mac version
7	\centerline{(Version 3.61)}	7	\centerline{(Version 3.64)}
8	@y	8	@y
9	\centerline{(Version 3.61 for MacOS)}	9	\centerline{(Version 3.64 for MacOS)}
10	@z	10	@z
11		11
12	@x section 9: Make input_ln accept \n, \r, \n\r, or \r\n as line endings	12	@x section 9: Make input_ln accept \n, \r, \n\r, or \r\n as line endings

comm-man.ch+1−1

@@ -16,7 +16,7 @@ under the terms of a permission notice identical to this one. · 15 unmodified lines
16	}	16	}
17	@y	17	@y
18	\def\botofcontents{\vfill\titlefalse}	18	\def\botofcontents{\vfill\titlefalse}
19	\def\contentspagenumber{27}	19	\def\contentspagenumber{28}
20	\def\title{APPENDIX D: COMMON}	20	\def\title{APPENDIX D: COMMON}
21	\let\K=\leftarrow	21	\let\K=\leftarrow
22	@z	22	@z

comm-ql.ch+4−4

@@ -10,24 +10,24 @@ ex <dev_>cc;'-v -h -c -=500000 -DCWEBINPUTS=flp2_ common_c' · 9 unmodified lines
10	@x	10	@x
11	\def\v{\char'174} % vertical (\|) in typewriter font	11	\def\v{\char'174} % vertical (\|) in typewriter font
12		12
13	\def\title{Common code for CTANGLE and CWEAVE (Version 3.61)}	13	\def\title{Common code for CTANGLE and CWEAVE (Version 3.64)}
14	\def\topofcontents{\null\vfill	14	\def\topofcontents{\null\vfill
15	\centerline{\titlefont Common code for {\ttitlefont CTANGLE} and	15	\centerline{\titlefont Common code for {\ttitlefont CTANGLE} and
16	{\ttitlefont CWEAVE}}	16	{\ttitlefont CWEAVE}}
17	\vskip 15pt	17	\vskip 15pt
18	\centerline{(Version 3.61)}	18	\centerline{(Version 3.64)}
19	\vfill}	19	\vfill}
20	\def\botofcontents{\vfill	20	\def\botofcontents{\vfill
21	\noindent	21	\noindent
22	@y	22	@y
23	\def\v{\char'174} % vertical (\|) in typewriter font	23	\def\v{\char'174} % vertical (\|) in typewriter font
24		24
25	\def\title{Common code for CTANGLE and CWEAVE (QL Version 3.61)}	25	\def\title{Common code for CTANGLE and CWEAVE (QL Version 3.64)}
26	\def\topofcontents{\null\vfill	26	\def\topofcontents{\null\vfill
27	\centerline{\titlefont Common code for {\ttitlefont CTANGLE} and	27	\centerline{\titlefont Common code for {\ttitlefont CTANGLE} and
28	{\ttitlefont CWEAVE}}	28	{\ttitlefont CWEAVE}}
29	\vskip 15pt	29	\vskip 15pt
30	\centerline{(Version 3.61)}	30	\centerline{(Version 3.64)}
31	\vfill}	31	\vfill}
32	\def\botofcontents{\vfill	32	\def\botofcontents{\vfill
33	\noindent	33	\noindent

comm-w32.ch+94−0

@@ -0,0 +1,94 @@
	1	This is the change file for CWEB's COMMON under Win32
	2	(Contributed by Fabrice Popineau, February 2002 <Fabrice.Popineau@supelec.fr>)
	3
	4	The Microsoft C compiler included in Visual Studio allows for different
	5	parameter passing conventions than the standard one. This is actually
	6	specified with the Intel IA32 architecture. There exist three
	7	calling conventions under the IA32 architecture as defined by Intel.
	8
	9	One of them is the standard C calling convention: Parameters are passed on
	10	the stack, calling function is responsible to unstack arguments. Names are
	11	decorated with a prefixed underscore. It is called the __cdecl convention.
	12
	13	Another calling convention is the __fastcall convention. The first two 32bits
	14	arguments are passed on the stack. The called function is responsible for
	15	stack maintenance. Names are decorated with an @ sign as prefix, and another
	16	@ sign followed by the size of the arguments as suffix.
	17
	18	The third one is the __stdcall convention and is basically the Pascal calling
	19	convention.
	20
	21	Using the __fastcall convention is usually faster on Intel architecture. Names
	22	are decorated because obviously a __cdecl function can't behave the same way
	23	as a __fastcall one of the same prototype. So the new full prototype includes
	24	the keyword __cdecl or __fastcall. A compiler option allows to compile all
	25	functions using one or the other calling convention. If you compile using
	26	__fastcall, then you are bound to explicitly declare a few functions as
	27	__cdecl : the ones that are passed to the C library (like function pointers
	28	for qsort() or signal()) or functions that replace functions from the C
	29	library, because the standard headers have a __cdecl prototype for these
	30	functions. Also, you cannot declare a library function without giving it the
	31	exact prototype used in the library headers files. So you'd better use the
	32	header files to be safe.
	33
	34	Admittedly, this is not vital for cweb, except that I build the whole texlive
	35	set of programs using the __fastcall convention.
	36
	37	@x
	38	@<Include files@>=
	39	#include <ctype.h>
	40	@y
	41	@<Include files@>=
	42	#include <ctype.h>
	43	#include <string.h>
	44	@z
	45
	46	@x
	47	@ @<Predec...@>=
	48	extern int names_match();
	49	@y
	50	@ @<Predec...@>=
	51	extern int __cdecl names_match();
	52	@z
	53
	54	@x
	55	@<Pred...@>=
	56	void init_p();
	57	@y
	58	@<Pred...@>=
	59	void __cdecl init_p();
	60	@z
	61
	62	@x section 69
	63	An omitted change file argument means that \|"/dev/null"\| should be used,
	64	@y
	65	An omitted change file argument means that \|"NUL"\| should be used,
	66	@z
	67
	68	@x section 70 (this change copied from comm-bs.ch, July 94)
	69	else if (*s=='/') dot_pos=NULL,name_pos=++s;
	70	@y
	71	else if (s == ':' \|\| s == '\\' \|\| *s == '/')
	72	dot_pos=NULL,name_pos=++s;
	73	@z
	74
	75	@x section 70
	76	if (found_change<=0) strcpy(change_file_name,"/dev/null");
	77	@y
	78	if (found_change<=0) strcpy(change_file_name,"NUL");
	79	@z
	80
	81	@x
	82	@ We predeclare several standard system functions here instead of including
	83	their system header files, because the names of the header files are not as
	84	standard as the names of the functions. (For example, some \CEE/ environments
	85	have \.{<string.h>} where others have \.{<strings.h>}.)
	86
	87	@<Predecl...@>=
	88	extern int strlen(); /* length of string */
	89	extern int strcmp(); /* compare strings lexicographically */
	90	extern char* strcpy(); /* copy one string to another */
	91	extern int strncmp(); /* compare up to $n$ string characters */
	92	extern char* strncpy(); /* copy up to $n$ string characters */
	93	@y
	94	@z

common.c+93−87

 #include <stdio.h>
 /*:8*//*22:*/
-#line 470 "common.w"
+#line 471 "common.w"
 #include <stdlib.h>
 boolean print_where= 0;
 /*:20*//*27:*/
-#line 588 "common.w"
+#line 594 "common.w"
 typedef struct name_info{
 char*byte_start;
 /*31:*/
-#line 625 "common.w"
+#line 631 "common.w"
 struct name_info*link;
 /*:31*//*40:*/
-#line 724 "common.w"
+#line 730 "common.w"
 union{
 struct name_info*Rlink;
 }dummy;
 /*:40*//*55:*/
-#line 1056 "common.w"
+#line 1062 "common.w"
 char*equiv_or_xref;
 /*:55*/
-#line 591 "common.w"
+#line 597 "common.w"
 }name_info;
 typedef name_info*name_pointer;
 name_pointer name_dir_end= name_dir+max_names-1;
 /*:27*//*29:*/
-#line 611 "common.w"
+#line 617 "common.w"
 name_pointer name_ptr;
 char*byte_ptr;
 /*:29*//*32:*/
-#line 638 "common.w"
+#line 644 "common.w"
 typedef name_pointer*hash_pointer;
 name_pointer hash[hash_size];
 hash_pointer h;
 /*:32*//*56:*/
-#line 1076 "common.w"
+#line 1082 "common.w"
 int history= spotless;
 /*:56*//*67:*/
-#line 1214 "common.w"
+#line 1220 "common.w"
 int argc;
 char**argv;
 boolean flags[128];
 /*:67*//*77:*/
-#line 1364 "common.w"
+#line 1370 "common.w"
 FILE*C_file;
 FILE*tex_file;
 #line 62 "common.w"
 /*33:*/
-#line 644 "common.w"
+#line 650 "common.w"
 extern int names_match();
 /*:33*//*38:*/
-#line 697 "common.w"
+#line 703 "common.w"
 void init_p();
 /*:38*//*46:*/
-#line 846 "common.w"
+#line 852 "common.w"
 extern void init_node();
 /*:46*//*53:*/
-#line 1011 "common.w"
+#line 1017 "common.w"
 int section_name_cmp();
 /*:53*//*57:*/
-#line 1086 "common.w"
+#line 1092 "common.w"
 void err_print();
 /*:57*//*60:*/
-#line 1134 "common.w"
+#line 1140 "common.w"
 int wrap_up();
 extern void print_stats();
 /*:60*//*63:*/
-#line 1167 "common.w"
+#line 1173 "common.w"
 void fatal(),overflow();
 /*:63*//*69:*/
-#line 1245 "common.w"
+#line 1251 "common.w"
 void scan_args();
 /*:69*//*81:*/
-#line 1405 "common.w"
+#line 1411 "common.w"
 extern int strlen();
 extern int strcmp();
 common_init()
 {
 /*30:*/
-#line 615 "common.w"
+#line 621 "common.w"
 name_dir->byte_start= byte_ptr= byte_mem;
 name_ptr= name_dir+1;
 name_ptr->byte_start= byte_mem;
 /*:30*//*34:*/
-#line 649 "common.w"
+#line 655 "common.w"
 for(h= hash;h<=hash_end;*h++= NULL);
 /*:34*//*41:*/
-#line 731 "common.w"
+#line 737 "common.w"
 root= NULL;
 #line 93 "common.w"
 ;
 /*68:*/
-#line 1227 "common.w"
+#line 1233 "common.w"
 show_banner= show_happiness= show_progress= 1;
 #line 94 "common.w"
 ;
 /*78:*/
-#line 1371 "common.w"
+#line 1377 "common.w"
 scan_args();
 if(program==ctangle){
 #line 292 "common.w"
 {
-change_limit= change_buffer-buffer+limit;
+change_limit= change_buffer+(limit-buffer);
 strncpy(change_buffer,buffer,limit-buffer+1);
 }
 return;
 }
 if(limit> buffer+1&&buffer[0]=='@'){
-if(xisupper(buffer[1]))buffer[1]= tolower(buffer[1]);
+char xyz_code= xisupper(buffer[1])?tolower(buffer[1]):buffer[1];
 /*17:*/
 #line 358 "common.w"
-if(buffer[1]=='x'||buffer[1]=='z'){
+if(xyz_code=='x'||xyz_code=='z'){
 loc= buffer+2;err_print("! Where is the matching @y?");
 }
-else if(buffer[1]=='y'){
+else if(xyz_code=='y'){
 if(n> 0){
 loc= buffer+2;
 printf("\n! Hmm... %d ",n);
 #line 292 "common.w"
 {
-change_limit= change_buffer-buffer+limit;
+change_limit= change_buffer+(limit-buffer);
 strncpy(change_buffer,buffer,limit-buffer+1);
 }
 restart:
 if(changing&&include_depth==change_depth)
 /*25:*/
-#line 531 "common.w"
+#line 537 "common.w"
 {
 change_line++;
 if(!input_ln(change_file)){
 ;
 if(!changing||include_depth> change_depth){
 /*24:*/
-#line 514 "common.w"
+#line 520 "common.w"
 {
 cur_line++;
 while(!input_ln(cur_file)){
 ;
 if(changing&&include_depth==change_depth)goto restart;
 }
+if(input_has_ended)return 0;
 loc= buffer;*limit= ' ';
-if(*buffer=='@'&&(*(buffer+1)=='i'||*(buffer+1)=='I')){
+if(buffer[0]=='@'&&(buffer[1]=='i'||buffer[1]=='I')){
-loc= buffer+2;
+loc= buffer+2;*limit= '"';
-while(loc<=limit&&(*loc==' '||*loc=='\t'||*loc=='"'))loc++;
+while(*loc==' '||*loc=='\t')loc++;
 if(loc>=limit){
 err_print("! Include file name not given");
 }
 include_depth++;
 /*23:*/
-#line 473 "common.w"
+#line 474 "common.w"
 {
 char temp_file_name[max_file_name_length];
 char*cur_file_name_end= cur_file_name+max_file_name_length-1;
 char*k= cur_file_name,*kk;
 int l;
+if(*loc=='"'){
+loc++;
+while(*loc!='"'&&k<=cur_file_name_end)*k++= *loc++;
+if(loc==limit)k= cur_file_name_end+1;
+}else
 while(*loc!=' '&&*loc!='\t'&&*loc!='"'&&k<=cur_file_name_end)*k++= *loc++;
 if(k> cur_file_name_end)too_long();
 }
 /*:23*/
-#line 451 "common.w"
+#line 452 "common.w"
 ;
 }
-return(!input_has_ended);
+return 1;
 }
 /*:21*//*26:*/
-#line 563 "common.w"
+#line 569 "common.w"
 void
 check_complete(){
 }
 /*:26*//*35:*/
-#line 654 "common.w"
+#line 660 "common.w"
 name_pointer
 id_lookup(first,last,t)
 if(last==NULL)for(last= first;*last!='\0';last++);
 l= last-first;
 /*36:*/
-#line 677 "common.w"
+#line 683 "common.w"
 h= (unsigned char)*i;
 while(++i<last)h= (h+h+(int)((unsigned char)*i))%hash_size;
 /*:36*/
-#line 667 "common.w"
+#line 673 "common.w"
 ;
 /*37:*/
-#line 685 "common.w"
+#line 691 "common.w"
 p= hash[h];
 while(p&&!names_match(p,first,l,t))p= p->link;
 }
 /*:37*/
-#line 668 "common.w"
+#line 674 "common.w"
 ;
 if(p==name_ptr)/*39:*/
-#line 700 "common.w"
+#line 706 "common.w"
 {
 if(byte_ptr+l> byte_mem_end)overflow("byte memory");
 if(name_ptr>=name_dir_end)overflow("name");
 }
 /*:39*/
-#line 669 "common.w"
+#line 675 "common.w"
 ;
 return(p);
 }
 /*:35*//*42:*/
-#line 758 "common.w"
+#line 764 "common.w"
 void
 print_section_name(p)
 }
 /*:42*//*43:*/
-#line 777 "common.w"
+#line 783 "common.w"
 void
 sprint_section_name(dest,p)
 }
 /*:43*//*44:*/
-#line 798 "common.w"
+#line 804 "common.w"
 void
 print_prefix_name(p)
 }
 /*:44*//*45:*/
-#line 819 "common.w"
+#line 825 "common.w"
 int web_strcmp(j,j_len,k,k_len)
 char*j,*k;
 }
 /*:45*//*47:*/
-#line 849 "common.w"
+#line 855 "common.w"
 name_pointer
 add_section_name(par,c,first,last,ispref)
 }
 /*:47*//*48:*/
-#line 878 "common.w"
+#line 884 "common.w"
 void
 extend_section_name(p,first,last,ispref)
 }
 /*:48*//*49:*/
-#line 906 "common.w"
+#line 912 "common.w"
 name_pointer
 section_lookup(first,last,ispref)
 int name_len= last-first+1;
 /*50:*/
-#line 930 "common.w"
+#line 936 "common.w"
 while(p){
 c= web_strcmp(first,name_len,first_chunk(p),prefix_length(p));
 }
 /*:50*/
-#line 920 "common.w"
+#line 926 "common.w"
 ;
 /*51:*/
-#line 955 "common.w"
+#line 961 "common.w"
 if(r==NULL)
 return add_section_name(par,c,first,last+1,ispref);
 /*:51*/
-#line 921 "common.w"
+#line 927 "common.w"
 ;
 /*52:*/
-#line 963 "common.w"
+#line 969 "common.w"
 switch(section_name_cmp(&first,name_len,r)){
 }
 /*:52*/
-#line 922 "common.w"
+#line 928 "common.w"
 ;
 }
 /*:49*//*54:*/
-#line 1014 "common.w"
+#line 1020 "common.w"
 int section_name_cmp(pfirst,len,r)
 char**pfirst;
 }
 /*:54*//*58:*/
-#line 1089 "common.w"
+#line 1095 "common.w"
 void
 err_print(s)
 char*k,*l;
 printf(*s=='!'?"\n%s":"%s",s);
 if(web_file_open)/*59:*/
-#line 1109 "common.w"
+#line 1115 "common.w"
 {if(changing&&include_depth==change_depth)
 printf(". (l. %d of change file)\n",change_line);
 }
 /*:59*/
-#line 1096 "common.w"
+#line 1102 "common.w"
 ;
 update_terminal;mark_error;
 }
 /*:58*//*61:*/
-#line 1144 "common.w"
+#line 1150 "common.w"
 int wrap_up(){
 putchar('\n');
 if(show_stats)
 print_stats();
 /*62:*/
-#line 1154 "common.w"
+#line 1160 "common.w"
 switch(history){
 case spotless:if(show_happiness)printf("(No errors were found.)\n");break;
 }
 /*:62*/
-#line 1149 "common.w"
+#line 1155 "common.w"
 ;
 if(history> harmless_message)return(1);
 else return(0);
 }
 /*:61*//*64:*/
-#line 1173 "common.w"
+#line 1179 "common.w"
 void
 fatal(s,t)
 char*s,*t;
 }
 /*:64*//*65:*/
-#line 1184 "common.w"
+#line 1190 "common.w"
 void
 overflow(t)
 char*t;
 /*:65*//*70:*/
-#line 1248 "common.w"
+#line 1254 "common.w"
 void
 scan_args()
 while(--argc> 0){
 if((**(++argv)=='-'||**argv=='+')&&*(*argv+1))/*74:*/
-#line 1338 "common.w"
+#line 1344 "common.w"
 {
 if(**argv=='-')flag_change= 0;
 }
 /*:74*/
-#line 1260 "common.w"
+#line 1266 "common.w"
 else{
 s= name_pos= *argv;dot_pos= NULL;
 else s++;
 }
 if(!found_web)/*71:*/
-#line 1286 "common.w"
+#line 1292 "common.w"
 {
 if(s-*argv> max_file_name_length-5)
 /*76:*/
-#line 1358 "common.w"
+#line 1364 "common.w"
 fatal("! Filename too long\n",*argv);
 /*:76*/
-#line 1289 "common.w"
+#line 1295 "common.w"
 ;
 if(dot_pos==NULL)
 sprintf(web_file_name,"%s.w",*argv);
 }
 /*:71*/
-#line 1269 "common.w"
+#line 1275 "common.w"
 else if(!found_change)/*72:*/
-#line 1304 "common.w"
+#line 1310 "common.w"
 {
 if(strcmp(*argv,"-")==0)found_change= -1;
 else{
 if(s-*argv> max_file_name_length-4)
 /*76:*/
-#line 1358 "common.w"
+#line 1364 "common.w"
 fatal("! Filename too long\n",*argv);
 /*:76*/
-#line 1309 "common.w"
+#line 1315 "common.w"
 ;
 if(dot_pos==NULL)
 sprintf(change_file_name,"%s.ch",*argv);
 }
 /*:72*/
-#line 1270 "common.w"
+#line 1276 "common.w"
 else if(!found_out)/*73:*/
-#line 1317 "common.w"
+#line 1323 "common.w"
 {
 if(s-*argv> max_file_name_length-5)
 /*76:*/
-#line 1358 "common.w"
+#line 1364 "common.w"
 fatal("! Filename too long\n",*argv);
 /*:76*/
-#line 1320 "common.w"
+#line 1326 "common.w"
 ;
 if(dot_pos==NULL){
 sprintf(tex_file_name,"%s.tex",*argv);
 }
 /*:73*/
-#line 1271 "common.w"
+#line 1277 "common.w"
 else/*75:*/
-#line 1346 "common.w"
+#line 1352 "common.w"
 {
 if(program==ctangle)
 }
 /*:75*/
-#line 1272 "common.w"
+#line 1278 "common.w"
 ;
 }
 }
 if(!found_web)/*75:*/
-#line 1346 "common.w"
+#line 1352 "common.w"
 {
 if(program==ctangle)
 }
 /*:75*/
-#line 1275 "common.w"
+#line 1281 "common.w"
 ;
 if(found_change<=0)strcpy(change_file_name,"/dev/null");
 }

common.w+18−12

 % This program by Silvio Levy and Donald E. Knuth
 % is based on a program by Knuth.
 % It is distributed WITHOUT ANY WARRANTY, express or implied.
-% Version 3.61 --- July 2000 (works with later versions too)
+% Version 3.64 --- January 2002
 % Copyright (C) 1987,1990,1993,2000 Silvio Levy and Donald E. Knuth
 \def\v{\char'174} % vertical (|) in typewriter font
-\def\title{Common code for CTANGLE and CWEAVE (Version 3.61)}
+\def\title{Common code for CTANGLE and CWEAVE (Version 3.64)}
 \def\topofcontents{\null\vfill
   \centerline{\titlefont Common code for {\ttitlefont CTANGLE} and
     {\ttitlefont CWEAVE}}
   \vskip 15pt
-  \centerline{(Version 3.61)}
+  \centerline{(Version 3.64)}
   \vfill}
 \def\botofcontents{\vfill
 \noindent
 @ @<Move |buffer| and |limit| to |change_buffer| and |change_limit|@>=
 {
-  change_limit=change_buffer-buffer+limit;
+  change_limit=change_buffer+(limit-buffer);
   strncpy(change_buffer,buffer,limit-buffer+1);
 }
       return;
     }
     if (limit>buffer+1 && buffer[0]=='@@') {
-      if (xisupper(buffer[1])) buffer[1]=tolower(buffer[1]);
+      char xyz_code=xisupper(buffer[1])? tolower(buffer[1]): buffer[1];
       @<If the current line starts with \.{@@y},
         report any discrepancies and |return|@>;
     }
 }
 @ @<If the current line starts with \.{@@y}...@>=
-if (buffer[1]=='x' || buffer[1]=='z') {
+if (xyz_code=='x' || xyz_code=='z') {
   loc=buffer+2; err_print("! Where is the matching @@y?");
 @.Where is the match...@>
   }
-else if (buffer[1]=='y') {
+else if (xyz_code=='y') {
   if (n>0) {
     loc=buffer+2;
     printf("\n! Hmm... %d ",n);
     @<Read from |cur_file| and maybe turn on |changing|@>;
     if (changing && include_depth==change_depth) goto restart;
   }
+  if (input_has_ended) return 0;
   loc=buffer; *limit=' ';
-  if (*buffer=='@@' && (*(buffer+1)=='i' || *(buffer+1)=='I')) {
+  if (buffer[0]=='@@' && (buffer[1]=='i' || buffer[1]=='I')) {
-    loc=buffer+2;
+    loc=buffer+2; *limit='"';
-    while (loc<=limit && (*loc==' '||*loc=='\t'||*loc=='"')) loc++;
+    while (*loc==' '||*loc=='\t') loc++;
     if (loc>=limit) {
       err_print("! Include file name not given");
 @.Include file name ...@>
     include_depth++; /* push input stack */
     @<Try to open include file, abort push if unsuccessful, go to |restart|@>;
   }
-  return (!input_has_ended);
+  return 1;
 }
 @ When an \.{@@i} line is found in the |cur_file|, we must temporarily
   char *k=cur_file_name, *kk;
   int l; /* length of file name */
-  while (*loc!=' '&&*loc!='\t'&&*loc!='"'&&k<=cur_file_name_end) *k++=*loc++;
+  if (*loc=='"') {
+    loc++;
+    while (*loc!='"' && k<=cur_file_name_end) *k++=*loc++;
+    if (loc==limit) k=cur_file_name_end+1; /* unmatched quote is `too long' */
+  } else
+    while (*loc!=' '&&*loc!='\t'&&*loc!='"'&&k<=cur_file_name_end) *k++=*loc++;
   if (k>cur_file_name_end) too_long();
 @.Include file name ...@>
   *k='\0';

ctang-bs.ch+2−2

@@ -17,12 +17,12 @@ by using "huge" pointers. · 16 unmodified lines
17	The ``banner line'' defined here should be changed whenever \.{CTANGLE}	17	The ``banner line'' defined here should be changed whenever \.{CTANGLE}
18	is modified.	18	is modified.
19		19
20	@d banner "This is CTANGLE (Version 3.62)\n"	20	@d banner "This is CTANGLE (Version 3.64)\n"
21	@y	21	@y
22	The ``banner line'' defined here should be changed whenever \.{CTANGLE}	22	The ``banner line'' defined here should be changed whenever \.{CTANGLE}
23	is modified.	23	is modified.
24		24
25	@d banner "This is CTANGLE (Version 3.62pc/big)\n"	25	@d banner "This is CTANGLE (Version 3.64pc/big)\n"
26	@z	26	@z
27		27
28		28

ctang-man.ch+1−1

@@ -16,7 +16,7 @@ under the terms of a permission notice identical to this one. · 15 unmodified lines
16	}	16	}
17	@y	17	@y
18	\def\botofcontents{\vfill\titlefalse}	18	\def\botofcontents{\vfill\titlefalse}
19	\def\contentspagenumber{62}	19	\def\contentspagenumber{63}
20	\def\title{APPENDIX E: CTANGLE}	20	\def\title{APPENDIX E: CTANGLE}
21	\let\K=\leftarrow	21	\let\K=\leftarrow
22	@z	22	@z

ctang-pc.ch+2−2

@@ -9,9 +9,9 @@ that allows >64K arrays. If you need lots of bytes and toks, try the · 8 unmodified lines
9	alternate change files with -bs suffix instead of -pc.	9	alternate change files with -bs suffix instead of -pc.
10		10
11	@x section 1	11	@x section 1
12	@d banner "This is CTANGLE (Version 3.62)\n"	12	@d banner "This is CTANGLE (Version 3.64)\n"
13	@y	13	@y
14	@d banner "This is CTANGLE (Version 3.62pc)\n"	14	@d banner "This is CTANGLE (Version 3.64pc)\n"
15	@z	15	@z
16	@x section 4	16	@x section 4
17	@d max_bytes 90000 /* the number of bytes in identifiers,	17	@d max_bytes 90000 /* the number of bytes in identifiers,

ctang-ql.ch+4−4

@@ -7,15 +7,15 @@ ex <dev_>cc;"-v -h -c -=500000 ctangle_c" · 6 unmodified lines
7		7
8		8
9	@x	9	@x
10	\def\title{CTANGLE (Version 3.62)}	10	\def\title{CTANGLE (Version 3.64)}
11	@y	11	@y
12	\def\title{CTANGLE (QL Version 3.62)}	12	\def\title{CTANGLE (QL Version 3.64)}
13	@z	13	@z
14		14
15	@x section 1	15	@x section 1
16	@d banner "This is CTANGLE (Version 3.62)\n"	16	@d banner "This is CTANGLE (Version 3.64)\n"
17	@y	17	@y
18	@d banner "This is CTANGLE (QL Version 3.62)\n"	18	@d banner "This is CTANGLE (QL Version 3.64)\n"
19	@z	19	@z
20		20
21	@x	21	@x

ctang-vms.ch+2−2

@@ -10,9 +10,9 @@ created: · 9 unmodified lines
10	(these changes not necessary for initial bootstrapping)	10	(these changes not necessary for initial bootstrapping)
11		11
12	@x section 1 (01-FEB-1992 ST)	12	@x section 1 (01-FEB-1992 ST)
13	@d banner "This is CTANGLE (Version 3.62)\n"	13	@d banner "This is CTANGLE (Version 3.64)\n"
14	@y	14	@y
15	@d banner "This is CTANGLE (VAX/VMS Version 3.62)\n"	15	@d banner "This is CTANGLE (VAX/VMS Version 3.64)\n"
16	@z	16	@z
17		17
18	@x section 6 (from common.h) (01-FEB-1992 ST)	18	@x section 6 (from common.h) (01-FEB-1992 ST)

ctang-w32.ch+66−0

@@ -0,0 +1,66 @@
	1	This is the change file for CWEB's CTANGLE under Win32
	2	(Contributed by Fabrice Popineau, February 2002)
	3
	4	Changes necessary for compiling with Borland C/C++
	5
	6	@x section 1
	7	@d banner "This is CTANGLE (Version 3.64)\n"
	8	@y
	9	@d banner "This is CTANGLE (Version 3.64win32)\n"
	10	@z
	11
	12	@x
	13	@ We predeclare several standard system functions here instead of including
	14	their system header files, because the names of the header files are not as
	15	standard as the names of the functions. (For example, some \CEE/ environments
	16	have \.{<string.h>} where others have \.{<strings.h>}.)
	17
	18	@<Predecl...@>=
	19	extern int strlen(); /* length of string */
	20	extern int strcmp(); /* compare strings lexicographically */
	21	extern char* strcpy(); /* copy one string to another */
	22	extern int strncmp(); /* compare up to $n$ string characters */
	23	extern char* strncpy(); /* copy up to $n$ string characters */
	24	@y
	25	@z
	26
	27	@x
	28	int names_match(p,first,l)
	29	name_pointer p; /* points to the proposed match */
	30	char first; / position of first character of string */
	31	@y
	32	int __cdecl names_match(p,first,l)
	33	name_pointer p; /* points to the proposed match */
	34	char first; / position of first character of string */
	35	@z
	36
	37	@x
	38	void
	39	init_node(node)
	40	name_pointer node;
	41	{
	42	node->equiv=(char *)text_info;
	43	}
	44	void
	45	init_p() {}
	46	@y
	47	void
	48	init_node(node)
	49	name_pointer node;
	50	{
	51	node->equiv=(char *)text_info;
	52	}
	53	void __cdecl
	54	init_p() {}
	55	@z
	56
	57	@x
	58	@ @<Include...@>=
	59	#include <ctype.h> /* definition of \|isalpha\|, \|isdigit\| and so on */
	60	#include <stdlib.h> /* definition of \|exit\| */
	61	@y
	62	@ @<Include...@>=
	63	#include <ctype.h> /* definition of \|isalpha\|, \|isdigit\| and so on */
	64	#include <stdlib.h> /* definition of \|exit\| */
	65	#include <string.h>
	66	@z

ctangle.c+61−60

 /*:62*/
 #line 65 "ctangle.w"
-#define banner "This is CTANGLE (Version 3.62)\n" \
+#define banner "This is CTANGLE (Version 3.64)\n" \
 #define max_bytes 90000 \
 int no_where;
 /*:61*//*75:*/
-#line 1199 "ctangle.w"
+#line 1195 "ctangle.w"
 text_pointer cur_text;
 eight_bits next_control;
 /*:75*//*82:*/
-#line 1349 "ctangle.w"
+#line 1350 "ctangle.w"
 extern sixteen_bits section_count;
 static void out_char();
 /*:48*//*90:*/
-#line 1456 "ctangle.w"
+#line 1457 "ctangle.w"
 void phase_one();
 /*:90*//*92:*/
-#line 1474 "ctangle.w"
+#line 1475 "ctangle.w"
 void skip_limbo();
 }
 /*:57*//*71:*/
-#line 1120 "ctangle.w"
+#line 1116 "ctangle.w"
 section_text[0]= ' ';
 /*:71*/
 else if(print_where&&!no_where){
 print_where= 0;
 /*77:*/
-#line 1229 "ctangle.w"
+#line 1225 "ctangle.w"
 store_two_bytes(0150000);
 if(changing)id_first= change_file_name;
 else continue;
 }
 loc++;
-if(xisdigit(c)||c=='\\'||c=='.')/*66:*/
+if(xisdigit(c)||c=='.')/*66:*/
 #line 978 "ctangle.w"
 {
 id_first= loc-1;
 if(*id_first=='.'&&!xisdigit(*loc))goto mistake;
-if(*id_first=='\\')while(xisdigit(*loc))loc++;
-else{
 if(*id_first=='0'){
 if(*loc=='x'||*loc=='X'){
 loc++;while(xisxdigit(*loc))loc++;goto found;
 if(*++loc=='+'||*loc=='-')loc++;
 while(xisdigit(*loc))loc++;
 }
-}
 found:while(*loc=='u'||*loc=='U'||*loc=='l'||*loc=='L'
 ||*loc=='f'||*loc=='F')loc++;
 id_loc= loc;
 else if(c=='\''||c=='"'||(c=='L'&&(*loc=='\''||*loc=='"')))
 /*67:*/
-#line 1009 "ctangle.w"
+#line 1006 "ctangle.w"
 {
 char delim= c;
 id_first= section_text+1;
 #line 928 "ctangle.w"
 else if(c=='@')/*68:*/
-#line 1053 "ctangle.w"
+#line 1050 "ctangle.w"
 {
 c= ccode[(eight_bits)*loc++];
 switch(c){
 case ignore:continue;
-case output_defs_code:output_defs_seen= 1;return(c);
 case translit_code:err_print("! Use @l in limbo only");continue;
 case control_text:while((c= skip_ahead())=='@');
 case section_name:
 cur_section_name_char= *(loc-1);
 /*70:*/
-#line 1102 "ctangle.w"
+#line 1098 "ctangle.w"
 {
 char*k;
 /*72:*/
-#line 1122 "ctangle.w"
+#line 1118 "ctangle.w"
 k= section_text;
 while(1){
 }
 c= *loc;
 /*73:*/
-#line 1146 "ctangle.w"
+#line 1142 "ctangle.w"
 if(c=='@'){
 c= *(loc+1);
 }
 /*:73*/
-#line 1131 "ctangle.w"
+#line 1127 "ctangle.w"
 ;
 loc++;if(k<section_text_end)k++;
 if(xisspace(c)){
 if(*k==' '&&k> section_text)k--;
 /*:72*/
-#line 1104 "ctangle.w"
+#line 1100 "ctangle.w"
 ;
 if(k-section_text> 3&&strncmp(k-2,"...",3)==0)
 cur_section_name= section_lookup(section_text+1,k-3,1);
 }
 /*:40*/
-#line 1110 "ctangle.w"
+#line 1106 "ctangle.w"
 ;
 return(section_name);
 }
 /*:70*/
-#line 1068 "ctangle.w"
+#line 1064 "ctangle.w"
 ;
 case string:/*74:*/
-#line 1168 "ctangle.w"
+#line 1164 "ctangle.w"
 {
 id_first= loc++;*(limit+1)= '@';*(limit+2)= '>';
 while(*loc!='@'||*(loc+1)!='>')loc++;
 }
 /*:74*/
-#line 1069 "ctangle.w"
+#line 1065 "ctangle.w"
 ;
 case ord:/*69:*/
-#line 1081 "ctangle.w"
+#line 1077 "ctangle.w"
 id_first= loc;
 if(*loc=='\\'){
 return(ord);
 /*:69*/
-#line 1070 "ctangle.w"
+#line 1066 "ctangle.w"
 ;
 default:return(c);
 }
 }
 /*:63*//*76:*/
-#line 1203 "ctangle.w"
+#line 1199 "ctangle.w"
 void
 scan_repl(t)
 {
 sixteen_bits a;
 if(t==section_name){/*77:*/
-#line 1229 "ctangle.w"
+#line 1225 "ctangle.w"
 store_two_bytes(0150000);
 if(changing)id_first= change_file_name;
 app_repl(a%0400);}
 /*:77*/
-#line 1209 "ctangle.w"
+#line 1205 "ctangle.w"
 ;}
 while(1)switch(a= get_next()){
 /*78:*/
-#line 1239 "ctangle.w"
+#line 1235 "ctangle.w"
 case identifier:a= id_lookup(id_first,id_loc,0)-name_dir;
 app_repl((a/0400)+0200);
 case section_name:if(t!=section_name)goto done;
 else{
 /*79:*/
-#line 1267 "ctangle.w"
+#line 1268 "ctangle.w"
 {
 char*try_loc= loc;
 while(*try_loc==' '&&try_loc<limit)try_loc++;
 }
 /*:79*/
-#line 1245 "ctangle.w"
+#line 1241 "ctangle.w"
 ;
 a= cur_section_name-name_dir;
 app_repl((a/0400)+0250);
 app_repl(a%0400);
 /*77:*/
-#line 1229 "ctangle.w"
+#line 1225 "ctangle.w"
 store_two_bytes(0150000);
 if(changing)id_first= change_file_name;
 app_repl(a%0400);}
 /*:77*/
-#line 1249 "ctangle.w"
+#line 1245 "ctangle.w"
 ;break;
 }
-case output_defs_code:
+case output_defs_code:if(t!=section_name)err_print("! Misplaced @h");
+else{
+output_defs_seen= 1;
 a= output_defs_flag;
 app_repl((a/0400)+0200);
 app_repl(a%0400);
 /*77:*/
-#line 1229 "ctangle.w"
+#line 1225 "ctangle.w"
 store_two_bytes(0150000);
 if(changing)id_first= change_file_name;
 app_repl(a%0400);}
 /*:77*/
-#line 1255 "ctangle.w"
+#line 1254 "ctangle.w"
-;break;
+;
+}
+break;
 case constant:case string:
 /*80:*/
-#line 1278 "ctangle.w"
+#line 1279 "ctangle.w"
 app_repl(a);
 while(id_first<id_loc){
 app_repl(a);break;
 /*:80*/
-#line 1257 "ctangle.w"
+#line 1258 "ctangle.w"
 ;
 case ord:
 /*81:*/
-#line 1294 "ctangle.w"
+#line 1295 "ctangle.w"
 {
 int c= (eight_bits)*id_first;
 if(c=='\\'){
 break;
 /*:81*/
-#line 1259 "ctangle.w"
+#line 1260 "ctangle.w"
 ;
 case definition:case format_code:case begin_C:if(t!=section_name)goto done;
 else{
 case new_section:goto done;
 /*:78*/
-#line 1214 "ctangle.w"
+#line 1210 "ctangle.w"
 case')':app_repl(a);
 if(t==macro)app_repl(' ');
 }
 /*:76*//*83:*/
-#line 1356 "ctangle.w"
+#line 1357 "ctangle.w"
 void
 scan_section()
 next_control= 0;
 while(1){
 /*84:*/
-#line 1395 "ctangle.w"
+#line 1396 "ctangle.w"
 while(next_control<definition)
 }
 /*:84*/
-#line 1370 "ctangle.w"
+#line 1371 "ctangle.w"
 ;
 if(next_control==definition){
 /*85:*/
-#line 1402 "ctangle.w"
+#line 1403 "ctangle.w"
 {
 while((next_control= get_next())=='\n');
 if(next_control!=identifier){
 }
 /*:85*/
-#line 1372 "ctangle.w"
+#line 1373 "ctangle.w"
 continue;
 }
 if(next_control==section_name){
 p= cur_section_name;
 /*86:*/
-#line 1427 "ctangle.w"
+#line 1428 "ctangle.w"
 while((next_control= get_next())=='+');
 if(next_control!='='&&next_control!=eq_eq)
 continue;
 /*:86*/
-#line 1380 "ctangle.w"
+#line 1381 "ctangle.w"
 ;
 break;
 }
 }
 no_where= print_where= 0;
 /*87:*/
-#line 1432 "ctangle.w"
+#line 1433 "ctangle.w"
 /*88:*/
-#line 1437 "ctangle.w"
+#line 1438 "ctangle.w"
 store_two_bytes((sixteen_bits)(0150000+section_count));
 /*:88*/
-#line 1433 "ctangle.w"
+#line 1434 "ctangle.w"
 ;
 scan_repl(section_name);
 /*89:*/
-#line 1441 "ctangle.w"
+#line 1442 "ctangle.w"
 if(p==name_dir||p==0){
 (last_unnamed)->text_link= cur_text-text_info;last_unnamed= cur_text;
 /*:89*/
-#line 1435 "ctangle.w"
+#line 1436 "ctangle.w"
 ;
 /*:87*/
-#line 1386 "ctangle.w"
+#line 1387 "ctangle.w"
 ;
 }
 /*:83*//*91:*/
-#line 1459 "ctangle.w"
+#line 1460 "ctangle.w"
 void
 phase_one(){
 }
 /*:91*//*93:*/
-#line 1477 "ctangle.w"
+#line 1478 "ctangle.w"
 void
 skip_limbo()
 if(ccode[(eight_bits)c]==new_section)break;
 switch(ccode[(eight_bits)c]){
 case translit_code:/*94:*/
-#line 1506 "ctangle.w"
+#line 1507 "ctangle.w"
 while(xisspace(*loc)&&loc<limit)loc++;
 loc+= 3;
 }
 /*:94*/
-#line 1490 "ctangle.w"
+#line 1491 "ctangle.w"
 ;break;
 case format_code:case'@':break;
 case control_text:if(c=='q'||c=='Q'){
 }
 /*:93*//*95:*/
-#line 1532 "ctangle.w"
+#line 1533 "ctangle.w"
 void
 print_stats(){

ctangle.w+28−27

 % This program by Silvio Levy and Donald E. Knuth
 % is based on a program by Knuth.
 % It is distributed WITHOUT ANY WARRANTY, express or implied.
-% Version 3.62 --- September 2000
+% Version 3.64 --- February 2002
-% (same as Version 3.5 except for minor typographic/stylistic corrections)
+% (same as Version 3.5 except for minor corrections)
 % (also quotes backslashes in file names of #line directives)
 % Copyright (C) 1987,1990,1993,2000 Silvio Levy and Donald E. Knuth
 \mathchardef\RA="3221 % right arrow
 \mathchardef\BA="3224 % double arrow
-\def\title{CTANGLE (Version 3.62)}
+\def\title{CTANGLE (Version 3.64)}
 \def\topofcontents{\null\vfill
   \centerline{\titlefont The {\ttitlefont CTANGLE} processor}
   \vskip 15pt
-  \centerline{(Version 3.62)}
+  \centerline{(Version 3.64)}
   \vfill}
 \def\botofcontents{\vfill
 \noindent
 The ``banner line'' defined here should be changed whenever \.{CTANGLE}
 is modified.
-@d banner "This is CTANGLE (Version 3.62)\n"
+@d banner "This is CTANGLE (Version 3.64)\n"
 @c
 @<Include files@>@/
       else continue;
     }
     loc++;
-    if (xisdigit(c) || c=='\\' || c=='.') @<Get a constant@>@;
+    if (xisdigit(c) || c=='.') @<Get a constant@>@;
     else if (c=='\'' || c=='"' || (c=='L'&&(*loc=='\'' || *loc=='"')))
         @<Get a string@>@;
     else if (isalpha(c) || isxalpha(c) || ishigh(c))
 @ @<Get a constant@>= {
   id_first=loc-1;
   if (*id_first=='.' && !xisdigit(*loc)) goto mistake; /* not a constant */
-  if (*id_first=='\\') while (xisdigit(*loc)) loc++; /* octal constant */
+  if (*id_first=='0') {
-  else {
+    if (*loc=='x' || *loc=='X') { /* hex constant */
-    if (*id_first=='0') {
+      loc++; while (xisxdigit(*loc)) loc++; goto found;
-      if (*loc=='x' || *loc=='X') { /* hex constant */
-        loc++; while (xisxdigit(*loc)) loc++; goto found;
-      }
     }
+  }
+  while (xisdigit(*loc)) loc++;
+  if (*loc=='.') {
+  loc++;
+  while (xisdigit(*loc)) loc++;
+  }
+  if (*loc=='e' || *loc=='E') { /* float constant */
+    if (*++loc=='+' || *loc=='-') loc++;
     while (xisdigit(*loc)) loc++;
-    if (*loc=='.') {
-    loc++;
-    while (xisdigit(*loc)) loc++;
-    }
-    if (*loc=='e' || *loc=='E') { /* float constant */
-      if (*++loc=='+' || *loc=='-') loc++;
-      while (xisdigit(*loc)) loc++;
-    }
   }
-  found: while (*loc=='u' || *loc=='U' || *loc=='l' || *loc=='L'
+ found: while (*loc=='u' || *loc=='U' || *loc=='l' || *loc=='L'
              || *loc=='f' || *loc=='F') loc++;
   id_loc=loc;
   return(constant);
   c=ccode[(eight_bits)*loc++];
   switch(c) {
     case ignore: continue;
-    case output_defs_code: output_defs_seen=1; return(c);
     case translit_code: err_print("! Use @@l in limbo only"); continue;
 @.Use @@l in limbo...@>
     case control_text: while ((c=skip_ahead())=='@@');
     app_repl(a % 0400);
     @<Insert the line number into |tok_mem|@>; break;
   }
-case output_defs_code:
+case output_defs_code: if (t!=section_name) err_print("! Misplaced @@h");
-  a=output_defs_flag;
+@.Misplaced @@h@>
-  app_repl((a / 0400)+0200);
+  else {
-  app_repl(a % 0400);
+    output_defs_seen=1;
-  @<Insert the line number into |tok_mem|@>; break;
+    a=output_defs_flag;
+    app_repl((a / 0400)+0200);
+    app_repl(a % 0400);
+    @<Insert the line number into |tok_mem|@>;
+  }
+ break;
 case constant: case string:
   @<Copy a string or verbatim construction or numerical constant@>;
 case ord:

cweav-bs.ch+2−2

@@ -20,12 +20,12 @@ This file contributed by Barry Schwartz, trashman@crud.mn.org, 28 Jun 94. · 19 unmodified lines
20	The ``banner line'' defined here should be changed whenever \.{CWEAVE}	20	The ``banner line'' defined here should be changed whenever \.{CWEAVE}
21	is modified.	21	is modified.
22		22
23	@d banner "This is CWEAVE (Version 3.61)\n"	23	@d banner "This is CWEAVE (Version 3.64)\n"
24	@y	24	@y
25	The ``banner line'' defined here should be changed whenever \.{CWEAVE}	25	The ``banner line'' defined here should be changed whenever \.{CWEAVE}
26	is modified.	26	is modified.
27		27
28	@d banner "This is CWEAVE (Version 3.61pc/big)\n"	28	@d banner "This is CWEAVE (Version 3.64pc/big)\n"
29	@z	29	@z
30		30
31		31

cweav-man.ch+1−1

@@ -16,7 +16,7 @@ under the terms of a permission notice identical to this one. · 15 unmodified lines
16	}	16	}
17	@y	17	@y
18	\def\botofcontents{\vfill\titlefalse}	18	\def\botofcontents{\vfill\titlefalse}
19	\def\contentspagenumber{107}	19	\def\contentspagenumber{109}
20	\def\title{APPENDIX F: CWEAVE}	20	\def\title{APPENDIX F: CWEAVE}
21	\let\K=\leftarrow	21	\let\K=\leftarrow
22	@z	22	@z

cweav-pc.ch+2−2

@@ -11,9 +11,9 @@ that allows >64K arrays. (If you need lots more bytes, try the alternate · 10 unmodified lines
11	change files that have -bs in their name instead of -pc.)	11	change files that have -bs in their name instead of -pc.)
12		12
13	@x section 1	13	@x section 1
14	@d banner "This is CWEAVE (Version 3.61)\n"	14	@d banner "This is CWEAVE (Version 3.64)\n"
15	@y	15	@y
16	@d banner "This is CWEAVE (Version 3.61pc)\n"	16	@d banner "This is CWEAVE (Version 3.64pc)\n"
17	@z	17	@z
18		18
19	@x section 4	19	@x section 4

cweav-ql.ch+4−4

@@ -7,15 +7,15 @@ ex <dev_>cc;"-v -h -c =500000 cweave_c" · 6 unmodified lines
7		7
8		8
9	@x	9	@x
10	\def\title{CWEAVE (Version 3.61)}	10	\def\title{CWEAVE (Version 3.64)}
11	@y	11	@y
12	\def\title{CWEAVE (QL Version 3.61)}	12	\def\title{CWEAVE (QL Version 3.64)}
13	@z	13	@z
14		14
15	@x section 1	15	@x section 1
16	@d banner "This is CWEAVE (Version 3.61)\n"	16	@d banner "This is CWEAVE (Version 3.64)\n"
17	@y	17	@y
18	@d banner "This is CWEAVE (QL Version 3.61)\n"	18	@d banner "This is CWEAVE (QL Version 3.64)\n"
19	@z	19	@z
20		20
21	@x	21	@x

cweav-vms.ch+2−2

@@ -13,9 +13,9 @@ modified: · 12 unmodified lines
13	(also modified by Don Knuth to keep version numbers uptodate)	13	(also modified by Don Knuth to keep version numbers uptodate)
14		14
15	@x section 1 (01-FEB-1992 ST)	15	@x section 1 (01-FEB-1992 ST)
16	@d banner "This is CWEAVE (Version 3.61)\n"	16	@d banner "This is CWEAVE (Version 3.64)\n"
17	@y	17	@y
18	@d banner "This is CWEAVE (VAX/VMS Version 3.61)\n"	18	@d banner "This is CWEAVE (VAX/VMS Version 3.64)\n"
19	@z	19	@z
20		20
21	@x section 6 (from common.h) (01-FEB-1992 ST)	21	@x section 6 (from common.h) (01-FEB-1992 ST)

cweav-w32.ch+52−0

@@ -0,0 +1,52 @@
	1	This is the change file for CWEB's CWEAVE under Win32
	2	(Contributed by Fabrice Popineau, February 2002)
	3
	4	@x section 1
	5	@d banner "This is CWEAVE (Version 3.64)\n"
	6	@y
	7	@d banner "This is CWEAVE (Version 3.64win32)\n"
	8	@z
	9
	10	@x
	11	@ We predeclare several standard system functions here instead of including
	12	their system header files, because the names of the header files are not as
	13	standard as the names of the functions. (For example, some \CEE/ environments
	14	have \.{<string.h>} where others have \.{<strings.h>}.)
	15
	16	@<Predecl...@>=
	17	extern int strlen(); /* length of string */
	18	extern int strcmp(); /* compare strings lexicographically */
	19	extern char* strcpy(); /* copy one string to another */
	20	extern int strncmp(); /* compare up to $n$ string characters */
	21	extern char* strncpy(); /* copy up to $n$ string characters */
	22	@y
	23	@z
	24
	25	@x
	26	int names_match(p,first,l,t)
	27	name_pointer p; /* points to the proposed match */
	28	@y
	29	int __cdecl names_match(p,first,l,t)
	30	name_pointer p; /* points to the proposed match */
	31	@z
	32
	33	@x
	34	void
	35	init_p(p,t)
	36	name_pointer p;
	37	@y
	38	void __cdecl
	39	init_p(p,t)
	40	name_pointer p;
	41	@z
	42
	43	@x
	44	@ @<Include...@>=
	45	#include <ctype.h> /* definition of \|isalpha\|, \|isdigit\| and so on */
	46	#include <stdlib.h> /* definition of \|exit\| */
	47	@y
	48	@ @<Include...@>=
	49	#include <ctype.h> /* definition of \|isalpha\|, \|isdigit\| and so on */
	50	#include <stdlib.h> /* definition of \|exit\| */
	51	#include <string.h> /* definition of \|strncmp\| and \|strncpy\| */
	52	@z

cweave.w+8−10

 % This program by Silvio Levy and Donald E. Knuth
 % is based on a program by Knuth.
 % It is distributed WITHOUT ANY WARRANTY, express or implied.
-% Version 3.61 --- July 2000
+% Version 3.64 --- February 2002
 % (essentially the same as version 3.6, which added
 %  recently introduced features of standard C++ to version 3.4)
 \def\skipxTeX{\\{skip\_\TEX/}}
 \def\copyxTeX{\\{copy\_\TEX/}}
-\def\title{CWEAVE (Version 3.61)}
+\def\title{CWEAVE (Version 3.64)}
 \def\topofcontents{\null\vfill
   \centerline{\titlefont The {\ttitlefont CWEAVE} processor}
   \vskip 15pt
-  \centerline{(Version 3.61)}
+  \centerline{(Version 3.64)}
   \vfill}
 \def\botofcontents{\vfill
 \noindent
 The ``banner line'' defined here should be changed whenever \.{CWEAVE}
 is modified.
-@d banner "This is CWEAVE (Version 3.61)\n"
+@d banner "This is CWEAVE (Version 3.64)\n"
 @c @<Include files@>@/
 @h
 {
   argc=ac; argv=av;
   program=cweave;
-  make_xrefs=force_lines=1; /* controlled by command-line options */
+  make_xrefs=force_lines=make_pb=1; /* controlled by command-line options */
   common_init();
   @<Set initial values@>;
   if (show_banner) printf(banner); /* print a ``banner line'' */
     @<Check if we're at the end of a preprocessor command@>;
     if (loc>limit && get_line()==0) return(new_section);
     c=*(loc++);
-    if (xisdigit(c) || c=='\\' || c=='.') @<Get a constant@>@;
+    if (xisdigit(c) || c=='.') @<Get a constant@>@;
     else if (c=='\'' || c=='"' || (c=='L'&&(*loc=='\'' || *loc=='"'))@|
            || (c=='<' && sharp_include_line==1))
         @<Get a string@>@;
 and hexadecimal numbers; it is reasonable to stick to each convention
 within its realm.  Thus the \CEE/ part of a \.{CWEB} file has octals
 introduced by \.0 and hexadecimals by \.{0x}, but \.{CWEAVE} will print
-with \TeX/ macros that the user can redefine to fit the context.
+with \TEX/ macros that the user can redefine to fit the context.
 In order to simplify such macros, we replace some of the characters.
 Notice that in this section and the next, |id_first| and |id_loc|
 @<Get a constant@>= {
   id_first=id_loc=section_text+1;
-  if (*(loc-1)=='\\') {*id_loc++='~';
+  if (*(loc-1)=='0') {
-  while (xisdigit(*loc)) *id_loc++=*loc++;} /* octal constant */
-  else if (*(loc-1)=='0') {
     if (*loc=='x' || *loc=='X') {*id_loc++='^'; loc++;
       while (xisxdigit(*loc)) *id_loc++=*loc++;} /* hex constant */
     else if (xisdigit(*loc)) {*id_loc++='~';

cweb.1+76−44

@@ -1,26 +1,30 @@
1	.TH CWEB 1L 6/15/92	1	.TH CWEB 1L 2002-Apr-13
		2	.
2	.SH NAME	3	.SH NAME
3	ctangle, cweave \- translate CWEB to C and/or TeX	4	ctangle, cweave \- translate CWEB to C and/or TeX
		5	.
4	.SH SYNOPSIS	6	.SH SYNOPSIS
		7	.na
5	.B ctangle	8	.B ctangle
6	[	9	[
7	.B \-bhp	10	.B \-bhp
8	] [	11	] [
9	.B \+s	12	.B +s
10	] webfile[.w] [changefile[.ch]] [outputfile[.c]]	13	] webfile[.w] [changefile[.ch]] [outputfile[.c]]
11	.br	14	.br
12	.B cweave	15	.B cweave
13	[	16	[
14	.B \-bfhpx	17	.B \-befhpx
15	] [	18	] [
16	.B \+es	19	.B +s
17	] webfile[.w] [changefile[.ch]] [outputfile[.tex]]	20	] webfile[.w] [changefile[.ch]] [outputfile[.tex]]
18		21	.ad
		22	.
19	.SH DESCRIPTION	23	.SH DESCRIPTION
20	The	24	The
21	.I ctangle	25	.I ctangle
22	program converts a CWEB	26	program converts a CWEB
23	source document into a C program that may be compiled in the usual way.	27	source document into a C\ program that may be compiled in the usual way.
24	The output file includes #line specifications so that debugging can be	28	The output file includes #line specifications so that debugging can be
25	done in terms of the CWEB source file.	29	done in terms of the CWEB source file.
26	.PP	30	.PP
@@ -34,73 +38,101 @@ extensive cross-index information that it gathers automatically. · 7 unmodified lines
34	.PP	38	.PP
35	CWEB allows you to prepare a single	39	CWEB allows you to prepare a single
36	document containing all the information that is needed both to produce	40	document containing all the information that is needed both to produce
37	a compilable C program and to produce a well-formatted document	41	a compilable C\ program and to produce a well-formatted document
38	describing the program in as much detail as the writer may desire. The	42	describing the program in as much detail as the writer may desire.
39	user of CWEB ought to be familiar with TeX as well as C.	43	The user of CWEB ought to be familiar with TeX as well as\ C.
40	.PP	44	.PP
41	The command line should have one, two, or three names on it.	45	The command line should have one, two, or three names on it.
42	The first is taken as the CWEB file (and .w is added if there is no	46	The first is taken as the CWEB file (and .w is added if there is no
43	extension). If that file cannot be opened, the extension .web is	47	extension).
44	tried instead. (But .w is recommended, since .web usually implies Pascal.)	48	If that file cannot be opened, the extension .web is tried instead.
		49	(But .w is recommended, since .web usually implies Pascal.)
45	If there is a second name, it is a change file (and .ch is added if there is	50	If there is a second name, it is a change file (and .ch is added if there is
46	no extension). The change file overrides parts of the WEB file,	51	no extension).
47	as described in the documentation. If there is a third name, it overrides	52	The change file overrides parts of the WEB file,
		53	as described in the documentation.
		54	If there is a third name, it overrides
48	the default name of the output file, which is ordinarily the same as	55	the default name of the output file, which is ordinarily the same as
49	the name of the input file (but on the current directory) with the	56	the name of the input file (but on the current directory) with the
50	extension .c or .tex.	57	extension .c or .tex.
51	.PP	58	.PP
52	Options in the command line may be either turned off with -	59	Options in the command line may be either turned off with\ \-
53	(if they are on by default) or turned on with + (if they are off by	60	(if they are on by default) or turned on with\ + (if they are off by
54	default). In fact, the options are processed from left to right,	61	default).
55	so a sequence like -f +f corresponds to +f (which is the default).	62	In fact, the options are processed from left to right,
		63	so a sequence like -f\ +f corresponds to +f (which is the default).
56	.PP	64	.PP
57	The	65	The
58	.B \-b	66	.B \-b
59	option suppresses the banner line that normally appears on your terminal	67	option suppresses the banner line that normally appears on your terminal
60	when ctangle or cweave begins. The	68	when ctangle or cweave begins.
		69	The
61	.B \-h	70	.B \-h
62	option suppresses the happy message that normally appears if the processing	71	option suppresses the happy message that normally appears if the processing
63	was successful. The	72	was successful.
		73	The
64	.B \-p	74	.B \-p
65	option suppresses progress reports (starred module numbers) as the processing	75	option suppresses progress reports (starred module numbers) as the processing
66	takes place. If you say -bhp, you get nothing but error messages.	76	takes place.
		77	If you say -bhp, you get nothing but error messages.
67	.PP	78	.PP
68	The \+s option prints statistics about memory usage at the end of a run	79	The
		80	.B +s
		81	option prints statistics about memory usage at the end of a run
69	(assuming that the programs have been compiled with the -DSTAT switch).	82	(assuming that the programs have been compiled with the -DSTAT switch).
70	.PP	83	.PP
71	The \+e option encloses C material formatted by	84	There are three other options applicable to
72	.I cweave
73	in brackets
74	\\PB\{...\}, so that special hooks can be used. This is commonly used by
75	.I cweb-latex
76	, although it can mess up index entries of PDF output if
77	module names refer to C objects (as they often do).
78	.PP
79	There are two other options applicable to
80	.I cweave	85	.I cweave
81	only:	86	only:
82	.B \-f	87	.B \-f
83	means do not force a newline after every statement in the formatted output.	88	means do not force a newline after every statement in the formatted output.
		89	.B \-e
		90	inhibits the enclosure of C\ material formatted by
		91	.I cweave
		92	in brackets
		93	\ePB{...}.
		94	Such brackets are normally inserted so that special hooks
		95	can be used by
		96	.I cweb-latex
		97	and similar programs.
84	.B \-x	98	.B \-x
85	means omit the index and table of contents.	99	means omit the index and table of contents.
86	.PP	100	.
87	.SH FILES	101	.SH FILES
88	/usr/local/lib/tex/inputs/cwebmac.tex TeX macros used by cweave output.	102	.TP
89	.br	103	/usr/local/lib/tex/inputs/cwebmac.tex
90	/usr/local/src/cweb/cwebman.tex The user manual.	104	TeX macros used by cweave output.
91	.br	105	.TP
92	/usr/local/src/cweb/examples/wc.w An introductory example.	106	/usr/local/src/cweb/cwebman.tex
93	.br	107	The user manual.
94	/usr/local/lib/cweb Directory for cweb "include" files.	108	.TP
		109	/usr/local/src/cweb/examples/wc.w
		110	An introductory example.
		111	.TP
		112	/usr/local/src/cweb/examples/wmerge.w
		113	Patch program based on CWEB-style change files.
		114	.TP
		115	/usr/local/lib/cweb
		116	Directory for cweb "include" files.
		117	.
95	.SH "SEE ALSO"	118	.SH "SEE ALSO"
		119	.TP
96	.I Literate Programming	120	.I Literate Programming
97	by D.E. Knuth.	121	by D. E. Knuth
98	.br	122	.TP
99	.I Weaving a Program	123	.I Weaving a Program
100	by Wayne Sewell	124	by Wayne Sewell
101	.br	125	.TP
		126	.I The CWEB System of Structured Documentation
		127	by Donald E. Knuth and Silvio Levy (hardcopy version of cwebman.tex
		128	and the source code listings)
		129	.TP
102	tex(1), cc(1)	130	tex(1), cc(1)
103	.SH "AUTHORS"	131	.
104	Don Knuth wrote WEB for TeX and Pascal. Silvio Levy designed and developed CWEB	132	.SH AUTHORS
105	by adapting the WEB conventions to C and by recoding everything in CWEB.	133	Don Knuth wrote WEB for TeX and Pascal.
		134	Silvio Levy designed and developed CWEB
		135	by adapting the WEB conventions to\ C and by recoding everything in CWEB.
106	Knuth began using CWEB and made further refinements.	136	Knuth began using CWEB and made further refinements.
		137	Many other helpers are acknowledged in the CWEB manual.
		138

cwebmac.tex+178−79

@@ -1,15 +1,16 @@
1	% standard macros for CWEB listings (in addition to plain.tex)	1	% standard macros for CWEB listings (in addition to plain.tex)
2	% Version 3.63 --- January 2001	2	% Version 3.64 --- February 2002
3	\ifx\documentstyle\undefined\else\endinput\fi % LaTeX will use other macros	3	\ifx\documentstyle\undefined\else\endinput\fi % LaTeX will use other macros
4	\xdef\fmtversion{\fmtversion+CWEB3.63}	4	\xdef\fmtversion{\fmtversion+CWEB3.64}
		5	\chardef\cwebversion=3 \chardef\cwebrevision=64
5	\newif\ifpdf	6	\newif\ifpdf
6	\ifx\pdf+\pdftrue\fi	7	\ifx\pdf+\pdftrue\fi
7	% Uncomment the following line if you want PDF goodies to be the default	8	% Uncomment the following line if you want PDF goodies to be the default
8	%\ifx\pdf-\else\pdftrue\fi	9	%\ifx\pdf-\else\pdftrue\fi
9	\def\pdflinkcolor{0 0 1} % the RGB values for hyperlink color	10	\def\pdflinkcolor{0 0 1} % the RGB values for hyperlink color
10	\newif\ifpdftex	11	\newif\ifpdftex
11	\ifx\pdfoutput\undefined \pdftexfalse	12	\ifx\pdfoutput\undefined \pdftexfalse \else\ifnum\pdfoutput=0 \pdftexfalse
12	\else \pdftextrue \pdfoutput=1 \pdfcompresslevel=9 \input pdfcolor \fi	13	\else \pdftextrue \pdfoutput=1 \input pdfcolor \let\setcolor\pdfsetcolor \fi\fi
13	\newif\ifacro \ifpdf\acrotrue\fi \ifpdftex\acrotrue\fi	14	\newif\ifacro \ifpdf\acrotrue\fi \ifpdftex\acrotrue\fi
14		15
15	\let\:=\. % preserve a way to get the dot accent	16	\let\:=\. % preserve a way to get the dot accent
@@ -120,49 +121,52 @@ · 104 unmodified lines
120	\def\?{\mathrel?}	121	\def\?{\mathrel?}
121	\def\note#1#2.{\Y\noindent{\hangindent2em%	122	\def\note#1#2.{\Y\noindent{\hangindent2em%
122	\baselineskip10pt\eightrm#1~\ifacro{\pdfnote#2.}\else#2\fi.\par}}	123	\baselineskip10pt\eightrm#1~\ifacro{\pdfnote#2.}\else#2\fi.\par}}
123	% The following are pdf macros	124
124	\newtoks\toksA \newtoks\toksB \newtoks\toksC \newtoks\toksD	125	\newtoks\toksA \newtoks\toksB \newtoks\toksC \newtoks\toksD
		126	\newtoks\toksE \newtoks\toksF \newtoks\usersanitizer
125	\newcount\countA \countA=0 \newcount\countB \countB=0	127	\newcount\countA \countA=0 \newcount\countB \countB=0
126	\def\thewidth{\the\wd0\space}	128	\newcount\countC \countC=0
127	\def\theheight{\the\ht0\space}	129	\newif\iftokprocessed \newif\ifTnum \newif\ifinstr
128	\def\thedepth{\the\dp0\space}	130	{\def\\{\global\let\spacechar= }\\ }
		131
		132	\ifacro % The following are pdf macros
		133	\def\thewidth{\the\wd0 \space}
		134	\def\theheight{\the\ht\strutbox\space}
		135	\def\thedepth{\the\dp\strutbox\space}
129	\ifpdftex	136	\ifpdftex
130	\ifx\pdfannotlink\undefined\let\pdfannotlink\pdfstartlink\fi% for pdfTeX 0.14	137	\ifx\pdfannotlink\undefined\let\pdfannotlink\pdfstartlink\fi% for pdfTeX 0.14
131	\def\pdflink#1#2{\hbox{\pdfannotlink attr{/Border [0 0 0]} goto num #1	138	\def\pdflink#1#2{\hbox{\pdfannotlink height\ht\strutbox depth\dp\strutbox
132	\BlueGreen #1\Black\pdfendlink}}	139	attr{/Border [0 0 0]} goto num #1 \BlueGreen #1\Black\pdfendlink}}
133	\else\def\pdflink#1#2{\setbox0=\hbox{\special{pdf: bc [ \pdflinkcolor ]}{#1}%	140	\else\def\pdflink#1#2{\setbox0=\hbox{\special{pdf: bc [ \pdflinkcolor ]}{#1}%
134	\special{pdf: ec}}\special{pdf: ann width \thewidth\space height \theheight	141	\special{pdf: ec}}\special{pdf: ann width \thewidth height \theheight
135	\space depth \thedepth\space << /Type /Annot /Subtype /Link	142	depth \thedepth << /Type /Annot /Subtype /Link
136	/Border [0 0 0] /A << /S /GoTo /D (#2) >> >>}\box0\relax}\fi	143	/Border [0 0 0] /A << /S /GoTo /D (#2) >> >>}\box0\relax}\fi
137	\def\pdfnote#1.{\setbox0=\hbox{\toksA={#1.}\toksB={}\maketoks}\the\toksA}	144	\def\pdfnote#1.{\setbox0=\hbox{\toksA={#1.}\toksB={}\maketoks}\the\toksA}
138	\def\firstsecno#1.{\setbox0=\hbox{\toksA={#1.}\toksB={}	145	\def\firstsecno#1.{\setbox0=\hbox{\toksA={#1.}\toksB={}%
139	\def\makenote{\addtokens{\toksB}{\the\toksC}\def\makenote{\toksD={}	146	\def\makenote{\addtokens\toksB{\the\toksC}\def\makenote{\toksD={}
140	\toksC={}\let\space\empty}\makenote}\maketoks}}	147	\toksC={}\let\space\empty}\makenote}\maketoks}}
141	\def\addtokens#1#2{\edef\addtoks{\noexpand#1={\the#1#2}}\addtoks}	148	\def\addtokens#1#2{\edef\addtoks{\noexpand#1={\the#1#2}}\addtoks}
142	\def\adn#1{\addtokens{\toksC}{#1}\global\countA=1\let\next=\maketoks}	149	\def\poptoks#1#2\|ENDTOKS\|{\let\first=#1\toksD={#1}%
143	\def\poptoks#1#2\|ENDTOKS\|{\let\first=#1\toksD={#1}\toksA={#2}}	150	\ifcat\noexpand\first0\countB=`#1\else\countB=0\fi\toksA={#2}}
144	\def\maketoks{%	151	\def\maketoks{\expandafter\poptoks\the\toksA\|ENDTOKS\|%
145	\expandafter\poptoks\the\toksA\|ENDTOKS\|	152	\ifnum\countB>`9 \countB=0 \fi
146	\ifx\first0\adn0	153	\ifnum\countB<`0
147	\else\ifx\first1\adn1 \else\ifx\first2\adn2 \else\ifx\first3\adn3	154	\ifnum0=\countC\else\makenote\fi
148	\else\ifx\first4\adn4 \else\ifx\first5\adn5 \else\ifx\first6\adn6	155	\ifx\first.\let\next=\maketoksdone\else
149	\else\ifx\first7\adn7 \else\ifx\first8\adn8 \else\ifx\first9\adn9	156	\let\next=\maketoks
150	\else	157	\addtokens\toksB{\the\toksD}
151	\ifnum0=\countA\else\makenote\fi	158	\ifx\first,\addtokens\toksB{\space}\fi
152	\ifx\first.\let\next=\done\else	159	\fi
153	\let\next=\maketoks	160	\else \addtokens\toksC{\the\toksD}\global\countC=1\let\next=\maketoks
154	\addtokens{\toksB}{\the\toksD}	161	\fi
155	\ifx\first,\addtokens{\toksB}{\space}\fi	162	\next
156	\fi
157	\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
158	\next
159	}	163	}
160	\def\makenote{\addtokens{\toksB}%	164	\def\makenote{\addtokens\toksB
161	{\noexpand\pdflink{\the\toksC}{\romannumeral\the\toksC}}\toksC={}\global\countA=0}	165	{\noexpand\pdflink{\the\toksC}{\romannumeral\the\toksC}}\toksC={}\global\countC=0}
162	\def\done{\edef\st{\global\noexpand\toksA={\the\toksB}}\st}	166	\def\maketoksdone{\edef\st{\global\noexpand\toksA={\the\toksB}}\st}
163	\def\pdfURL#1#2{\ifpdftex\pdfannotlink attr {/Border [0 0 0]} user {	167	\def\pdfURL#1#2{\ifpdftex\pdfannotlink height\ht\strutbox depth\dp\strutbox
164	/Type /Action /Subtype /Link /A << /S /URI /URI (#2) >>	168	attr {/Border [0 0 0]} user { /Type /Action /Subtype /Link /A
165	}\BlueGreen #1\Black \pdfendlink	169	<< /S /URI /URI (#2) >>}\BlueGreen #1\Black \pdfendlink
166	\else \ifpdf{\setbox0=\hbox{\special{pdf: bc [ \pdflinkcolor ]}{#1}%	170	\else \ifpdf{\setbox0=\hbox{\special{pdf: bc [ \pdflinkcolor ]}{#1}%
167	\special{pdf: ec}}\special{pdf: ann width \thewidth\space height \theheight	171	\special{pdf: ec}}\special{pdf: ann width \thewidth\space height \theheight
168	\space depth \thedepth\space << /Border [0 0 0]	172	\space depth \thedepth\space << /Border [0 0 0]
@@ -170,7 +174,105 @@ · 1 unmodified line
170	\else #1 ({\tt#2})\fi\fi}	174	\else #1 ({\tt#2})\fi\fi}
171	{\catcode`\~=12 \gdef\TILDE/{~}} % ~ in a URL	175	{\catcode`\~=12 \gdef\TILDE/{~}} % ~ in a URL
172	{\catcode`\_=12 \gdef\UNDER/{_}} % _ in a URL	176	{\catcode`\_=12 \gdef\UNDER/{_}} % _ in a URL
173	% End of pdf macros	177	\def\sanitizecommand#1#2{\addtokens\usersanitizer
		178	{\noexpand\dosanitizecommand\noexpand#1{#2}}}
		179	\def\dosanitizecommand#1#2{\ifx\nxt#1\addF{#2}\fi}
		180
		181	\catcode`\[=1 \catcode`\]=2 \catcode`\{=12 \catcode`\}=12
		182	\def\lbchar[{] \def\rbchar[}]
		183	\catcode`\[=12 \catcode`\]=12 \catcode`\{=1 \catcode`\}=2
		184	\catcode`\~=12 \def\tildechar{~} \catcode`\~=13
		185	\catcode`\\|=0 \|catcode`\|\=12 \|def\|bschar{\} \|catcode`\|\=0 \catcode`\\|=12
		186	\def\makeoutlinetoks{\Tnumfalse\afterassignment\makeolproctok\let\nxt= }
		187	\def\makeolnexttok{\afterassignment\makeolproctok\let\nxt= }
		188	\def\makeolgobbletok{\afterassignment\makeolnexttok\let\nxt= }
		189	\def\addF#1{\addtokens\toksF{#1}\tokprocessedtrue}
		190	% now comes a routine to "sanitize" section names, for pdf outlines
		191	\def\makeolproctok{\tokprocessedfalse
		192	\let\next\makeolnexttok % default
		193	\ifx\nxt\outlinedone\let\next\outlinedone
		194	\else\ifx{\nxt \else\ifx}\nxt \Tnumfalse \instrfalse % skip braces
		195	\else\ifx$\nxt % or a $ sign
		196	\else\ifx^\nxt \addF^\else\ifx_\nxt \addF_% sanitize ^ and _
		197	\else\ifx\nxt\spacechar \addF\space
		198	\else\if\noexpand\nxt\relax % we have a control sequence; is it one we know?
		199	\ifx\nxt~\addF\space
		200	\else\ifx\nxt\onespace\addF\space
		201	\else\the\usersanitizer
		202	\iftokprocessed\else\makeolproctokctli
		203	\iftokprocessed\else\makeolproctokctlii
		204	\iftokprocessed\else\makeolproctokctliii % if not recognised, skip it
		205	\fi\fi\fi\fi\fi
		206	\else % we don't have a control sequence, it's an ordinary char
		207	\ifx/\nxt \addF{\string\/}% quote chars special to PDF with backslash
		208	\else\ifx(\nxt \addF{\string$}\else\ifx)\nxt \addF{\string$}%
		209	\else\ifx[\nxt \addF{\string\[}\else\ifx]\nxt \addF{\string\]}%
		210	\else\expandafter\makeolproctokchar\meaning\nxt
		211	\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
		212	\next
		213	}
		214	\def\makeolproctokchar#1 #2 #3{\addF{#3}}
		215	\def\makeolproctokctli{%
		216	\ifx\nxt\CEE\addF{C}\let\next\makeolgobbletok % \CEE/
		217	\else\ifx\nxt\UNIX\addF{UNIX}\let\next\makeolgobbletok % \UNIX/
		218	\else\ifx\nxt\TEX\addF{TeX}\let\next\makeolgobbletok % \TEX/
		219	\else\ifx\nxt\TeX\addF{TeX}\else\ifx\nxt\LaTeX\addF{LaTeX}%
		220	\else\ifx\nxt\CPLUSPLUS\addF{C++}\let\next\makeolgobbletok % \CPLUSPLUS/
		221	\else\ifx\nxt\Cee\addF{C}%
		222	\else\ifx\nxt\PB \let\next\makeolgobbletok \tokprocessedtrue % \PB{...}
		223	\else\ifx\nxt\.\tokprocessedtrue\instrtrue % \.{...}
		224	% skip \\|
		225	\else\ifx\nxt\\\ifinstr\addF{\bschar\bschar}\else\tokprocessedtrue\fi
		226	\else\ifx\nxt\&\ifinstr\addF&\else\tokprocessedtrue\fi
		227	\else\ifx\nxt\~\ifTnum\addF{0}\else\addF\tildechar\fi % 077->\T{\~77}
		228	\else\ifx\nxt\_\ifTnum\addF{E}\else\addF_\fi % 0.1E5->\T{0.1\_5}
		229	\else\ifx\nxt\^\ifTnum\addF{0x}\else\addF^\fi % 0x77 -> \T{\^77}
		230	\else\ifx\nxt\$\ifTnum\tokprocessedtrue\else\addF$\fi % \T{77\$L}
		231	\else\ifx\nxt\{\addF\lbchar \else\ifx\nxt\}\addF\rbchar
		232	\else\ifx\nxt\ \addF\space \else\ifx\nxt\#\addF{\string\#}%
		233	\else\ifx\nxt\PP\addF{++}\else\ifx\nxt\MM\addF{--}%
		234	\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
		235	}
		236	\def\makeolproctokctlii{%
		237	\ifx\nxt\MG\addF{->}\else\ifx\nxt\GG\addF{>>}%
		238	\else\ifx\nxt\LL\addF{<<}\else\ifx\nxt\NULL\addF{NULL}%
		239	\else\ifx\nxt\AND\addF&\else\ifx\nxt\OR\addF\|%
		240	\else\ifx\nxt\XOR\addF^\else\ifx\nxt\CM\addF\tildechar
		241	\else\ifx\nxt\MOD\addF{\string\%}\else\ifx\nxt\DC\addF{::}%
		242	\else\ifx\nxt\PA\addF{.}\else\ifx\nxt\MGA\addF{->}%
		243	\else\ifx\nxt\this\addF{this}\else\ifx\nxt\?\addF?%
		244	\else\ifx\nxt\E\addF{==}\else\ifx\nxt\G\addF{>=}%
		245	\else\ifx\nxt\I\addF{!=}\else\ifx\nxt\K\addF{=}%
		246	\else\ifx\nxt\l\addF{l}\else\ifx\nxt\L\addF{L}%
		247	\else\ifx\nxt\o\addF{o}\else\ifx\nxt\O\addF{O}%
		248	\else\ifx\nxt\R\addF!%
		249	\else\ifx\nxt\T \Tnumtrue \let\next\makeolgobbletok
		250	\tokprocessedtrue % \T{number}
		251	\else\ifx\nxt\AM\addF&\else\ifx\nxt\%\addF{\string\%}%
		252	\fi\fi\fi\fi\fi \fi\fi\fi\fi\fi
		253	\fi\fi\fi\fi\fi \fi\fi\fi\fi\fi
		254	\fi\fi\fi\fi\fi\fi
		255	}
		256	\def\makeolproctokctliii{%
		257	\ifx\nxt\V\addF{\|\|}\else\ifx\nxt\W\addF{&&}\else\ifx\nxt\Z\addF{<=}%
		258	\else\ifx\nxt\\addF\else\ifx\nxt\Xand\addF{\space and\space}%
		259	\else\ifx\nxt\Xandxeq\addF{\space and_eq\space}%
		260	\else\ifx\nxt\Xbitand\addF{\space bitand\space}%
		261	\else\ifx\nxt\Xbitor\addF{\space bitor\space}%
		262	\else\ifx\nxt\Xcompl\addF{\space compl\space}%
		263	\else\ifx\nxt\Xnot\addF{\space not\space}%
		264	\else\ifx\nxt\Xnotxeq\addF{\space not_eq\space}%
		265	\else\ifx\nxt\Xor\addF{\space or\space}%
		266	\else\ifx\nxt\Xorxeq\addF{\space or_eq\space}%
		267	\else\ifx\nxt\Xxor\addF{\space xor\space}%
		268	\else\ifx\nxt\Xxorxeq\addF{\space xor_eq\space}%
		269	\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
		270	\fi\fi\fi\fi\fi
		271	}
		272	\def\outlinedone{\edef\outlinest{\global\noexpand\toksE={\the\toksF}}%
		273	\outlinest\let\outlinedone=\relax}
		274	\fi % End of pdf macros
		275
174	\def\lapstar{\rlap{*}}	276	\def\lapstar{\rlap{*}}
175	\def\stsec{\rightskip=0pt % get out of C mode (cf. \B)	277	\def\stsec{\rightskip=0pt % get out of C mode (cf. \B)
176	\sfcode`;=1500 \pretolerance 200 \hyphenpenalty 50 \exhyphenpenalty 50	278	\sfcode`;=1500 \pretolerance 200 \hyphenpenalty 50 \exhyphenpenalty 50
@@ -208,13 +310,20 @@ · 31 unmodified lines
208	% \L is Polish letter suppressed-L	310	% \L is Polish letter suppressed-L
209	\outer\def\M#1{\MN{#1}\ifon\vfil\penalty-100\vfilneg % beginning of section	311	\outer\def\M#1{\MN{#1}\ifon\vfil\penalty-100\vfilneg % beginning of section
210	\vskip\intersecskip\startsection\ignorespaces}	312	\vskip\intersecskip\startsection\ignorespaces}
211	\outer\def\N#1#2#3.{\gdepth=#1\gtitle={#3}\MN{#2}% beginning of starred section	313	\outer\def\N#1#2#3.{% beginning of starred section
		314	\ifacro{\toksF={}\makeoutlinetoks#3\outlinedone\outlinedone}\fi
		315	\gdepth=#1\gtitle={#3}\MN{#2}%
212	\ifon\ifnum#1<\secpagedepth \vfil\eject % force page break if depth is small	316	\ifon\ifnum#1<\secpagedepth \vfil\eject % force page break if depth is small
213	\else\vfil\penalty-100\vfilneg\vskip\intersecskip\fi\fi	317	\else\vfil\penalty-100\vfilneg\vskip\intersecskip\fi\fi
214	\message{*\secno} % progress report	318	\message{*\secno} % progress report
215	\edef\next{\write\cont{\ZZ{#3}{#1}{\secno}% write to contents file	319	\def\stripprefix##1>{}\def\gtitletoks{#3}%
216	{\noexpand\the\pageno}}}\next % \ZZ{title}{depth}{sec}{page}	320	\edef\gtitletoks{\expandafter\stripprefix\meaning\gtitletoks}%
217	\ifpdf\special{pdf: outline #1 << /Title (#3) /Dest	321	\edef\next{\write\cont{\ZZ{\gtitletoks}{#1}{\secno}% write to contents file
		322	{\noexpand\the\pageno}{\the\toksE}}}\next % \ZZ{title}{depth}{sec}{page}{ss}
		323	\ifpdftex\expandafter\xdef\csname curr#1\endcsname{\secno}
		324	\ifnum#1>0\countB=#1 \advance\countB by-1
		325	\advancenumber{chunk\the\countB.\expnumber{curr\the\countB}}\fi\fi
		326	\ifpdf\special{pdf: outline #1 << /Title (\the\toksE) /Dest
218	[ @thispage /FitH @ypos ] >>}\fi	327	[ @thispage /FitH @ypos ] >>}\fi
219	\ifon\startsection{\bf#3.\quad}\ignorespaces}	328	\ifon\startsection{\bf#3.\quad}\ignorespaces}
220	\def\MN#1{\par % common code for \M, \N	329	\def\MN#1{\par % common code for \M, \N
@@ -245,17 +354,9 @@ · 24 unmodified lines
245	\let\ZZ=\let % now you can \write the control sequence \ZZ	354	\let\ZZ=\let % now you can \write the control sequence \ZZ
246	\let\=	355	\let\=
247		356
248	\let\Xand=\W	357	\def\Xand{\W} \def\Xandxeq{\MRL{{\AND}{\K}}} \def\Xbitand{\AND}
249	\def\Xandxeq{\MRL{{\W}{\K}}}	358	\def\Xbitor{\OR} \def\Xcompl{\CM} \def\Xnot{\R} \def\Xnotxeq{\I} \def\Xor{\V}
250	\let\Xbitand=\AND	359	\def\Xorxeq{\MRL{{\OR}{\K}}} \def\Xxor{\XOR} \def\Xxorxeq{\MRL{{\XOR}{\K}}}
251	\let\Xbitor=\OR
252	\let\Xcompl=\CM
253	\let\Xnot=\R
254	\let\Xnotxeq=\I
255	\let\Xor=\V
256	\def\Xorxeq{\MRL{{\OR}{\K}}}
257	\let\Xxor=\XOR
258	\def\Xxorxeq{\MRL{{\XOR}{\K}}}
259		360
260	%\def\oct{\hbox{\rm\char'23\kern-.2em\it\aftergroup\?\aftergroup}} % WEB style	361	%\def\oct{\hbox{\rm\char'23\kern-.2em\it\aftergroup\?\aftergroup}} % WEB style
261	%\def\hex{\hbox{\rm\char"7D\tt\aftergroup}} % WEB style	362	%\def\hex{\hbox{\rm\char"7D\tt\aftergroup}} % WEB style
@@ -268,10 +369,11 @@ · 6 unmodified lines
268	\def\onmaybe{\let\ifon=\maybe} \let\maybe=\iftrue	369	\def\onmaybe{\let\ifon=\maybe} \let\maybe=\iftrue
269	\newif\ifon \newif\iftitle \newif\ifpagesaved	370	\newif\ifon \newif\iftitle \newif\ifpagesaved
270		371
271	\def\lheader{\mainfont\the\pageno\eightrm\qquad\grouptitle\hfill\title\qquad	372	\newif\ifheader
272	\mainfont\topsecno} % top line on left-hand pages	373	\def\lheader{\headertrue\mainfont\the\pageno\eightrm\qquad\grouptitle
273	\def\rheader{\mainfont\topsecno\eightrm\qquad\title\hfill\grouptitle	374	\hfill\title\qquad\mainfont\topsecno} % top line on left-hand pages
274	\qquad\mainfont\the\pageno} % top line on right-hand pages	375	\def\rheader{\headertrue\mainfont\topsecno\eightrm\qquad\title\hfill
		376	\grouptitle\qquad\mainfont\the\pageno} % top line on right-hand pages
275	\def\grouptitle{\let\i=I\let\j=J\uppercase\expandafter{\expandafter	377	\def\grouptitle{\let\i=I\let\j=J\uppercase\expandafter{\expandafter
276	\takethree\topmark}}	378	\takethree\topmark}}
277	\def\topsecno{\expandafter\takeone\topmark}	379	\def\topsecno{\expandafter\takeone\topmark}
@@ -356,18 +458,6 @@ · 78 unmodified lines
356	\if L\lr\else\null\vfill\eject\fi % finish the current page	458	\if L\lr\else\null\vfill\eject\fi % finish the current page
357	\parfillskip 0pt plus 1fil	459	\parfillskip 0pt plus 1fil
358	\def\grouptitle{NAMES OF THE SECTIONS}	460	\def\grouptitle{NAMES OF THE SECTIONS}
359	\ifacro \def\outsecname{Names of the sections} \let\Xpdf\X \fi
360	\ifpdftex \makebookmarks \pdfdest name {NOS} fitb
361	\pdfoutline goto name {NOS} count -\secno {\outsecname}
362	\def\X##1:##2\X{\Xpdf##1:##2\X
363	\firstsecno##1.\toks0{##2}\pdfoutline goto num \the\toksA {\the\toks0}}
364	\else\ifpdf
365	\special{pdf: outline -1 << /Title (\outsecname)
366	/Dest [ @thispage /FitH @ypos ] >>}
367	\def\X##1:##2\X{\Xpdf##1:##2\X
368	\firstsecno##1.\toks0{##2} \special{pdf: outline 0 << /Title
369	(\the\toks0) /A << /S /GoTo /D (\romannumeral\the\toksA) >> >>}}
370	\fi\fi
371	\let\topsecno=\nullsec	461	\let\topsecno=\nullsec
372	\message{Section names:}	462	\message{Section names:}
373	\output={\normaloutput\page\lheader\rheader}	463	\output={\normaloutput\page\lheader\rheader}
@@ -378,20 +468,29 @@ · 4 unmodified lines
378	\def\U{\note{Used in section}} % crossref for use of a section	468	\def\U{\note{Used in section}} % crossref for use of a section
379	\def\Us{\note{Used in sections}} % crossref for uses of a section	469	\def\Us{\note{Used in sections}} % crossref for uses of a section
380	\def\I{\par\hangindent 2em}\let\=	470	\def\I{\par\hangindent 2em}\let\=
		471	\ifacro \def\outsecname{Names of the sections} \let\Xpdf\X
		472	\ifpdftex \makebookmarks \pdfdest name {NOS} fitb
		473	\pdfoutline goto name {NOS} count -\secno {\outsecname}
		474	\def\X##1:##2\X{\Xpdf##1:##2\X \firstsecno##1.%
		475	{\toksF={}\makeoutlinetoks##2\outlinedone\outlinedone}%
		476	\pdfoutline goto num \the\toksA \expandafter{\the\toksE}}
		477	\else\ifpdf
		478	\special{pdf: outline -1 << /Title (\outsecname)
		479	/Dest [ @thispage /FitH @ypos ] >>}
		480	\def\X##1:##2\X{\Xpdf##1:##2\X \firstsecno##1.%
		481	{\toksF={}\makeoutlinetoks##2\outlinedone\outlinedone}%
		482	\special{pdf: outline 0 << /Title (\the\toksE)
		483	/A << /S /GoTo /D (\romannumeral\the\toksA) >> >>}}
		484	\fi\fi\fi
381	\readsections}	485	\readsections}
382	\def\makebookmarks{% read contents info for PDF outlines (twice)	486	\def\makebookmarks{\let\ZZ=\writebookmarkline \readcontents\relax}
383	\let\ZZ=\scanbookmarkline \readcontents\relax
384	\let\ZZ=\writebookmarkline \readcontents\relax}
385	\def\expnumber#1{\expandafter\ifx\csname#1\endcsname\relax 0%	487	\def\expnumber#1{\expandafter\ifx\csname#1\endcsname\relax 0%
386	\else \csname#1\endcsname \fi} % Petr Olsak's macros from texinfo.tex	488	\else \csname#1\endcsname \fi} % Petr Olsak's macros from texinfo.tex
387	\def\advancenumber#1{\countA=\expnumber{#1}\relax \advance\countA by1	489	\def\advancenumber#1{\countA=\expnumber{#1}\relax \advance\countA by1
388	\expandafter\xdef\csname#1\endcsname{\the\countA}}	490	\expandafter\xdef\csname#1\endcsname{\the\countA}}
389	\def\scanbookmarkline#1#2#3#4{% remember last level item and add to parent	491	\def\writebookmarkline#1#2#3#4#5{{%
390	\expandafter\xdef\csname curr#2\endcsname{#3}	492	\let$=\let \let$=\let \let\[=\let \let\]=\let \let\/=\let
391	\ifnum#2>0\countB=#2 \advance\countB by-1	493	\pdfoutline goto num #3 count -\expnumber{chunk#2.#3} {#5}}}
392	\advancenumber{chunk\the\countB.\expnumber{curr\the\countB}}\fi}
393	\def\writebookmarkline#1#2#3#4{\pdfoutline goto num #3
394	count -\expnumber{chunk#2.#3}{#1}}
395	\def\con{\par\vfill\eject % finish the section names	494	\def\con{\par\vfill\eject % finish the section names
396	% \ifodd\pageno\else\titletrue\null\vfill\eject\fi % for duplex printers	495	% \ifodd\pageno\else\titletrue\null\vfill\eject\fi % for duplex printers
397	\rightskip 0pt \hyphenpenalty 50 \tolerance 200	496	\rightskip 0pt \hyphenpenalty 50 \tolerance 200
@@ -405,7 +504,7 @@ · 7 unmodified lines
405	\let\ZZ=\contentsline	504	\let\ZZ=\contentsline
406	\readcontents\relax % read the contents info	505	\readcontents\relax % read the contents info
407	\botofcontents \end} % print the contents page(s) and terminate	506	\botofcontents \end} % print the contents page(s) and terminate
408	\def\contentsline#1#2#3#4{\ifnum#2=0 \smallbreak\fi	507	\def\contentsline#1#2#3#4#5{\ifnum#2=0 \smallbreak\fi
409	\line{\consetup{#2}#1	508	\line{\consetup{#2}#1
410	\rm\leaders\hbox to .5em{.\hfil}\hfil	509	\rm\leaders\hbox to .5em{.\hfil}\hfil
411	\ \ifacro\pdflink{#3}{\romannumeral#3}\else#3\fi\hbox to3em{\hss#4}}}	510	\ \ifacro\pdflink{#3}{\romannumeral#3}\else#3\fi\hbox to3em{\hss#4}}}

cwebman.tex+61−13

 \def\tangref{3} % where the main explanation of CTANGLing is given
 \input cwebmac
+\acrofalse\pdffalse\pdftexfalse
 \def\page{\box255 } \normalbottom
 \parskip 0pt plus 1pt
 \def\RA{\char'31 } % right arrow
 \def\lheader{\mainfont\the\pageno\hfill\sc\runninghead\hfill}
 \def\rheader{\hfill\sc\runninghead\hfill\mainfont\the\pageno}
-\def\runninghead{{\tentt CWEB} USER MANUAL (VERSION 3.63)}
+\def\runninghead{{\tentt CWEB} USER MANUAL (VERSION 3.64)}
 % This verbatim mode assumes that ! marks are !! in the text being copied.
 \def\verbatim{\begingroup
 \null\vfill
 \centerline{\titlefont The {\ttitlefont CWEB} System of
     Structured Documentation}
-\vskip 18pt\centerline{(Version 3.63 --- January 2001)}
+\vskip 18pt\centerline{(Version 3.64 --- February 2002)}
 \vskip 24pt
 \centerline{\authorfont Donald E. Knuth and Silvio Levy}
 \vfill
 tex "\\let\\pdf+ \\input cob"\cr
 dvipdfm cob\cr
 acroread cob.pdf\cr}}$$
-instead of invoking \TeX\ in the normal way. (Thanks to Hans Hagen and
+instead of invoking \TeX\ in the normal way. (Thanks to Hans Hagen,
-C\'esar Augusto Rorato Crusius for the macros that make this work.)
+C\'esar Augusto Rorato Crusius, and Julian Gilbey
+for the macros that make this work.)
 Alternatively, thanks to H\`an Th\^e\kern-.3em\raise.3ex\hbox{\'{}} Th\`anh
 and Andreas Scherer, you can generate \.{cob.pdf} in one step by simply
 saying `\.{pdftex}~\.{cob}'.
 \vskip6pt
 \begingroup \def\tt{\eighttt} \baselineskip9pt
-\def\printmacs{\input cwebmac}
+\def\printmacs{\begingroup
-\verbatim
+  \def\do##1{\catcode`##1=12 } \dospecials
-!printmacs
+  \parskip 0pt \parindent 0pt
-!endgroup
+  \catcode`\ =13 \catcode`\^^M=13
+  \tt \verbatimdefs \input cwebmac \endgroup}
+\printmacs
 \endgroup
 \vfill\eject
 output will look the same in both cases, but the second alternative
 doesn't put \\{identifier} into the index, since
 it bypasses \.{CWEAVE}'s translation from \CEE/ mode. In the second
-case you have to put a backslash before each underline character
+case you must put a backslash before each underline character
 in the identifier.
 \point 3. To get typewriter-like type, as when referring to `\.{CWEB}', you
   \.{ { }\\titlefalse \% include headline on the contents page}\cr
   \.{ { }\\def\\rheader\{\\mainfont The \{\\tt CWEAVE\}{ }processor\\hfil\}}\cr
   \.{ { }\\centerline\{\\titlefont The \{\\ttitlefont CWEAVE\}{ }processor\}}\cr
-  \.{ { }\\vskip 15pt \\centerline\{(Version 3.61)\}{ }\\vfill\}}\cr}$$
+  \.{ { }\\vskip 15pt \\centerline\{(Version 3.64)\}{ }\\vfill\}}\cr}$$
 Redefining \.{\\rheader}, which is the headline for right-hand pages,
 suffices in this case to put the desired information at the top of the
 contents page.
 \point 9. Data for the table of contents is written to a file that
 is read after the indexes have been \TEX/ed; there's one line of data
 for every starred section. The file \.{common.toc} might look like this:
-$$\lpile{\.{\\ZZ \{Introduction\}\{0\}\{1\}\{26\}}\cr
+$$\lpile{\.{\\ZZ \{Introduction\}\{0\}\{1\}\{28\}\{\}}\cr
-  \.{\\ZZ \{The character set\}\{2\}\{5\}\{27\}}\cr}$$
+  \.{\\ZZ \{The character set\}\{2\}\{5\}\{29\}\{\}}\cr}$$
 and so on. The \.{\\topofcontents} macro could
 redefine \.{\\ZZ} so that the information appears in any desired format.
+(See also point~19 below.)
 \point 10. Sometimes it is necessary or desirable to divide the output of
 \.{CWEAVE} into subfiles that can be processed separately. For example,
  \\pdfURL\{the author\}\{mailto:andreas.scherer@@pobox.com\}\cr
 or visit \\pdfURL\{his home page\}\{http://www.pobox.com/%
        \\TILDE/scherer\}.\cr}}$$
-In a PDF document, the first argument will appear in blue as
+In a {\mc PDF} document, the first argument will appear in blue as
 clickable text; the Acrobat reader, if correctly configured, will then
 redirect those links to the user's browser and open either the
 email client or the HTML viewer. In a hardcopy document, both arguments
 will not confuse them with formatting controls: Use \.{@@} for \.@
 and \.{\\TILDE/} for \.\~ and \.{\\UNDER/} for \.\_.
+\point 19. {\mc PDF} documents contain bookmarks that list all the major group
+titles in the table of contents, some of which will be subsidiary to
+others if the depth feature of \.{@*} has been used.
+Such bookmark entries are also known as ``outlines.''
+Moreover, the final group title, `Names of the sections',
+can be opened up to list every section name; Acrobat users can therefore
+navigate easily to any desired section.
+The macros of \.{cwebmac.tex} are careful to ``sanitize'' all the names
+that appear as bookmarks, by removing special characters and
+formatting codes that are inappropriate for the limited typographic
+capabilities of {\mc PDF} outlines. For example, one section of \.{CWEAVE}
+is named `Cases for \\{case\_like}', which is represented by the \TeX\ code
+`\.{Cases} \.{for} \.{\\PB\{\\\\\{case\\\_like\}\}}' in \.{cweave.tex}; its
+sanitized name is simply `\.{Cases} \.{for} \.{case\_like}'.
+(When \.{.pdf} files are produced, the fifth parameter of every \.{\\ZZ} in
+the \.{.toc} file is set to the sanitized form of the first parameter;
+see point~9 above and point~20 below.)
+In general, sanitization removes \TeX\ control sequences and braces,
+except for control sequences defined by \.{CWEB} itself. Such a translation
+works most of the time, but you can override the defaults and obtain any
+translation that you want by using \TeX nical tricks. For example, after
+$$\.{\\sanitizecommand\\foo\{bar\}}$$
+the control sequence \.{\\foo} will sanitize to `\.{bar}'. And after
+$$\.{\\def\\kluj\#1\\\\\{foo\}}$$
+the \TeX\ code `\.{\\kluj bar\\\\}' will print as `foo' but sanitize
+to `\.{bar}', because the control sequences \.{\\kluj} and
+\.{\\\\} are removed by sanitization.
+\point 20. Furthermore, group titles can be converted to an arbitrary
+sanitized text while also changing their form in running headlines, by
+using \.{\\ifheader}. Consider, for example, a \.{CWEB} source file that
+begins with the two lines
+$$\lpile{\.{\\def\\klujj\#1\\\\\{\\ifheader FOO\\else foo\\fi\}}\cr
+\.{@*Chinese \\klujj bar\\.}\cr}$$
+This coding introduces a major group entitled `{\bf Chinese foo}', with
+running headline `{\eightrm CHINESE FOO}' and table-of-contents entry
+`Chinese foo'. The corresponding bookmark is, however, `\.{Chinese} \.{bar}'.
+And the corresponding \.{.toc} file entry is
+`\.{\\ZZ \{Chinese \\klujj bar\\\\\}\{1\}\{1\}\{1\}\{Chinese bar\}}'.
 \vfill\end

examples/wmerge.w+29−21

+% Modified 16 Jan 2002 to agree with COMMON version 3.64
 \def\9#1{} % this hack is explained in CWEB manual Appendix F11
 @* Introduction.  This file contains the program \.{wmerge},
 which takes two or more files and merges them according
 to the conventions of \.{CWEB}. Namely, it takes an ordinary \.{.w}
 file and and optional \.{.ch} file and sends the corresponding
 \.{.w}-style file to standard output (or to a named file),
 expanding all ``includes''
 that might be specified by \.{@@i} in the original \.{.w} file.
 (A more precise description appears in the section on ``command line
 \.{WEAVE} know that this is a type, either by including the \.{.h} file
 at \.{WEB} time (saying \.{@@i /usr/include/sys/types.h}), or by
 using \.{WEB}'s format command (saying \.{@@f caddr\_t int}).  Either of
 these will make {\bf caddr\_t} be treated in the same way as |int|.
 @<Func...@>=
 input_ln(fp) /* copies a line into |buffer| or returns 0 */
 @ @<Move |buffer| and |limit| to |change_buffer| and |change_limit|@>=
 {
-  change_limit=change_buffer-buffer+limit;
+  change_limit=change_buffer+(limit-buffer);
   strncpy(change_buffer,buffer,limit-buffer+1);
 }
       return;
     }
     if (limit>buffer+1 && buffer[0]=='@@') {
-      if (isupper(buffer[1])) buffer[1]=tolower(buffer[1]);
+      char xyz_code=isupper(buffer[1])? tolower(buffer[1]): buffer[1];
       @<If the current line starts with \.{@@y},
         report any discrepancies and |return|@>;
     }
 }
 @ @<If the current line starts with \.{@@y}...@>=
-if (buffer[1]=='x' || buffer[1]=='z') {
+if (xyz_code=='x' || xyz_code=='z') {
   loc=buffer+2; err_print("! Where is the matching @@y?");
 @.Where is the match...@>
   }
-else if (buffer[1]=='y') {
+else if (xyz_code=='y') {
   if (n>0) {
     loc=buffer+2;
     fprintf(stderr,"\n! Hmm... %d ",n);
 check the value of that variable after calling the procedure.
 @<Fun...@>=
-get_line() /* inputs the next line */
+int get_line() /* inputs the next line */
 {
   restart:
   if (changing && include_depth==change_depth)
     @<Read from |cur_file| and maybe turn on |changing|@>;
     if (changing && include_depth==change_depth) goto restart;
   }
+  if (input_has_ended) return 0;
   loc=buffer; *limit=' ';
-  if (*buffer=='@@' && (*(buffer+1)=='i' || *(buffer+1)=='I')) {
+  if (buffer[0]=='@@' && (buffer[1]=='i' || buffer[1]=='I')) {
-    loc=buffer+2;
+    loc=buffer+2; *limit='"';
-    while (loc<=limit && (*loc==' '||*loc=='\t'||*loc=='"')) loc++;
+    while (*loc==' '||*loc=='\t') loc++;
     if (loc>=limit) {
       err_print("! Include file name not given");
 @.Include file name ...@>
       err_print("! Too many nested includes");
 @.Too many nested includes@>
       goto restart;
     }
     include_depth++; /* push input stack */
     @<Try to open include file, abort push if unsuccessful, go to |restart|@>;
   }
-  return (!input_has_ended);
+  return 1;
 }
 void put_line()
 stop reading it and start reading from the named include file.  The
 \.{@@i} line should give a complete file name with or without
 double quotes.
 If the environment variable \.{CWEBINPUTS} is set, or if the compiler flag
 of the same name was defined at compile time,
 \.{CWEB} will look for include files in the directory thus named, if
 it cannot find them in the current directory.
 (Colon-separated paths are not supported.)
 The remainder of the \.{@@i} line after the file name is ignored.
 @d too_long() {include_depth--;
         err_print("! Include file name too long"); goto restart;}
 @ @<Try to open...@>= {
   char temp_file_name[max_file_name_length];
   char *cur_file_name_end=cur_file_name+max_file_name_length-1;
   char *k=cur_file_name, *kk;
   int l; /* length of file name */
-  while (*loc!=' '&&*loc!='\t'&&*loc!='"'&&k<=cur_file_name_end) *k++=*loc++;
+  if (*loc=='"') {
+    loc++;
+    while (*loc!='"' && k<=cur_file_name_end) *k++=*loc++;
+    if (loc==limit) k=cur_file_name_end+1; /* unmatched quote is `too long' */
+  } else
+    while (*loc!=' '&&*loc!='\t'&&*loc!='"'&&k<=cur_file_name_end) *k++=*loc++;
   if (k>cur_file_name_end) too_long();
 @.Include file name ...@>
   *k='\0';
   if ((cur_file=fopen(cur_file_name,"r"))!=NULL) {
     cur_line=0;
     goto restart; /* success */
   }
   kk=getenv("CWEBINPUTS");
     if ((l=strlen(CWEBINPUTS))>max_file_name_length-2) too_long();
     strcpy(temp_file_name,CWEBINPUTS);
 #else
     l=0;
 #endif /* |CWEBINPUTS| */
   }
   if (l>0) {
     strcpy(cur_file_name,temp_file_name);
     cur_file_name[l]='/'; /* \UNIX/ pathname separator */
     if ((cur_file=fopen(cur_file_name,"r"))!=NULL) {
       cur_line=0;
       goto restart; /* success */
     }
   }
 @.Where is the match...@>
       }
       else if (buffer[1]=='z') {
         prime_the_change_buffer(); changing=!changing;
       }
     }
   }

CWEB — Release 3.64, 2002-07-12.

Keyboard shortcuts

General

Issues and pull requests

Issues, pull requests and Inbox

Repository code