source/texk/web2c/cwebdir/ctang-w2c.ch

   1 % Kpathsea changes for CWEB by Wlodek Bzyl and Olaf Weber
   2 % Copyright 2002 Wlodek Bzyl and Olaf Weber
   3 % This file is in the Public Domain.
   4
   5 @x l.27
   6 \def\title{CTANGLE (Version 3.64)}
   7 \def\topofcontents{\null\vfill
   8   \centerline{\titlefont The {\ttitlefont CTANGLE} processor}
   9   \vskip 15pt
  10   \centerline{(Version 3.64)}
  11   \vfill}
  12 @y
  13 \def\title{CTANGLE (Version 3.64k)}
  14 \def\topofcontents{\null\vfill
  15   \centerline{\titlefont The {\ttitlefont CTANGLE} processor}
  16   \vskip 15pt
  17   \centerline{(Version 3.64k)}
  18   \vfill}
  19 @z
  20
  21 This change can not be applied when `tie' is  used
  22 (TOC file can not be typeset).
  23
  24 %@x l.48
  25 %\let\maybe=\iftrue
  26 %@y
  27 %\let\maybe=\iffalse % print only sections that change
  28 %@z
  29
  30
  31 Section 1.
  32
  33 @x l.49
  34 The ``banner line'' defined here should be changed whenever \.{CTANGLE}
  35 is modified.
  36
  37 @d banner "This is CTANGLE (Version 3.64)\n"
  38 @y
  39 The ``banner line'' defined here should be changed whenever \.{CTANGLE}
  40 is modified.
  41
  42 @d banner "This is CTANGLE, Version 3.64"
  43 @z
  44
  45
  46 Section 2.
  47
  48 @x l.72
  49 @ We predeclare several standard system functions here instead of including
  50 their system header files, because the names of the header files are not as
  51 standard as the names of the functions. (For example, some \CEE/ environments
  52 have \.{<string.h>} where others have \.{<strings.h>}.)
  53
  54 @<Predecl...@>=
  55 extern int strlen(); /* length of string */
  56 extern int strcmp(); /* compare strings lexicographically */
  57 extern char* strcpy(); /* copy one string to another */
  58 extern int strncmp(); /* compare up to $n$ string characters */
  59 extern char* strncpy(); /* copy up to $n$ string characters */
  60 @y
  61 @z
  62
  63 Section 3.
  64
  65 @x l.92
  66 int main (ac, av)
  67 int ac;
  68 char **av;
  69 @y
  70 int main (int ac, char **av)
  71 @z
  72
  73 @x l.100 - Add Web2C version to banner.
  74   if (show_banner) printf(banner); /* print a ``banner line'' */
  75 @y
  76   if (show_banner) {
  77     printf("%s%s\n", banner, versionstring); /* print a ``banner line'' */
  78   }
  79 @z
  80
  81 @x l.112
  82 @d max_bytes 90000 /* the number of bytes in identifiers,
  83 @y
  84 @d max_bytes 1000000 /* the number of bytes in identifiers,
  85 @z
  86
  87 @x l.114
  88 @d max_toks 270000 /* number of bytes in compressed \CEE/ code */
  89 @d max_names 4000 /* number of identifiers, strings, section names;
  90 @y
  91 @d max_toks 1000000 /* number of bytes in compressed \CEE/ code */
  92 @d max_names 10239 /* number of identifiers, strings, section names;
  93 @z
  94
  95 @x l.117
  96 @d max_texts 2500 /* number of replacement texts, must be less than 10240 */
  97 @d hash_size 353 /* should be prime; used in |"common.w"| */
  98 @y
  99 @d max_texts 10239 /* number of replacement texts, must be less than 10240 */
 100 @d hash_size 8501 /* should be prime; used in |"common.w"| */
 101 @z
 102
 103 @x l.121
 104 @d buf_size 100 /* for \.{CWEAVE} and \.{CTANGLE} */
 105 @y
 106 @d buf_size 1000 /* for \.{CWEAVE} and \.{CTANGLE} */
 107 @z
 108
 109 Section 5.
 110
 111 @x common.h l.30 - boolean comes from kpathsea.
 112 typedef short boolean;
 113 @y
 114 @z
 115
 116 Section 6.
 117
 118 @x common.h l.36
 119 #include <stdio.h>
 120 @y
 121 #include <kpathsea/kpathsea.h>
 122 #include <stdio.h>
 123 @z
 124
 125 @x common.h l.65
 126 @d xisalpha(c) (isalpha(c)&&((eight_bits)c<0200))
 127 @d xisdigit(c) (isdigit(c)&&((eight_bits)c<0200))
 128 @d xisspace(c) (isspace(c)&&((eight_bits)c<0200))
 129 @d xislower(c) (islower(c)&&((eight_bits)c<0200))
 130 @d xisupper(c) (isupper(c)&&((eight_bits)c<0200))
 131 @d xisxdigit(c) (isxdigit(c)&&((eight_bits)c<0200))
 132 @y
 133 @d xisalpha(c) (isalpha((eight_bits)c)&&((eight_bits)c<0200))
 134 @d xisdigit(c) (isdigit((eight_bits)c)&&((eight_bits)c<0200))
 135 @d xisspace(c) (isspace((eight_bits)c)&&((eight_bits)c<0200))
 136 @d xislower(c) (islower((eight_bits)c)&&((eight_bits)c<0200))
 137 @d xisupper(c) (isupper((eight_bits)c)&&((eight_bits)c<0200))
 138 @d xisxdigit(c) (isxdigit((eight_bits)c)&&((eight_bits)c<0200))
 139 @z
 140
 141 Section 9.
 142
 143 @x common.h l.109 - protos now all in cweb.h.
 144 extern name_pointer id_lookup(); /* looks up a string in the identifier table */
 145 extern name_pointer section_lookup(); /* finds section name */
 146 extern void print_section_name(), sprint_section_name();
 147 @y
 148 #include "cweb.h"
 149 @z
 150
 151 Section 10.
 152
 153 @x common.h l.123 - explicit types, protos now all in cweb.h.
 154 extern history; /* indicates how bad this run was */
 155 extern err_print(); /* print error message and context */
 156 extern wrap_up(); /* indicate |history| and exit */
 157 extern void fatal(); /* issue error message and die */
 158 extern void overflow(); /* succumb because a table has overflowed */
 159 @y
 160 extern int history; /* indicates how bad this run was */
 161 @z
 162
 163 Section 11.
 164
 165 @x common.h l.131 - max_file_name_length is way too small.
 166 @d max_file_name_length 60
 167 @y
 168 @d max_file_name_length 1024
 169 @z
 170
 171 @x common.h l.138 - explicit types.
 172 extern include_depth; /* current level of nesting */
 173 @y
 174 extern int include_depth; /* current level of nesting */
 175 @z
 176
 177 @x common.h l.148 - explicit types.
 178 extern line[]; /* number of current line in the stacked files */
 179 extern change_line; /* number of current line in change file */
 180 @y
 181 extern int line[]; /* number of current line in the stacked files */
 182 extern int change_line; /* number of current line in change file */
 183 @z
 184
 185 @x common.h l.153 - protos now all in cweb.h.
 186 extern reset_input(); /* initialize to read the web file and change file */
 187 extern get_line(); /* inputs the next line */
 188 extern check_complete(); /* checks that all changes were picked up */
 189 @y
 190 @z
 191
 192 Section 15.
 193
 194 @x common.h l.192 - protos now all in cweb.h.
 195 extern void common_init();
 196 @y
 197 @z
 198
 199 Section 21.
 200
 201 @x l.184
 202 int names_match(p,first,l)
 203 name_pointer p; /* points to the proposed match */
 204 char *first; /* position of first character of string */
 205 int l; /* length of identifier */
 206 @y
 207 int names_match (name_pointer p, const char *first, int l, char t)
 208 @z
 209
 210 Section 22.
 211
 212 @x l.200
 213 init_node(node)
 214 name_pointer node;
 215 @y
 216 init_node (name_pointer node)
 217 @z
 218
 219 @x l.207
 220 init_p() {}
 221 @y
 222 init_p (name_pointer p, char t) {}
 223 @z
 224
 225 Section 26.
 226
 227 @x l.261
 228 void
 229 store_two_bytes(x)
 230 sixteen_bits x;
 231 @y
 232 static void
 233 store_two_bytes (sixteen_bits x)
 234 @z
 235
 236 Section 30.
 237
 238 @x l.337
 239 void
 240 push_level(p) /* suspends the current level */
 241 name_pointer p;
 242 @y
 243 static void
 244 push_level (name_pointer p) /* suspends the current level */
 245 @z
 246
 247 Section 31.
 248
 249 @x l.356
 250 void
 251 pop_level(flag) /* do this when |cur_byte| reaches |cur_end| */
 252 int flag; /* |flag==0| means we are in |output_defs| */
 253 @y
 254 static void
 255 pop_level (int flag) /* do this when |cur_byte| reaches |cur_end| */
 256 @z
 257
 258 Section 33.
 259
 260 @x l.392
 261 void
 262 get_output() /* sends next token to |out_char| */
 263 @y
 264 static void
 265 get_output (void) /* sends next token to |out_char| */
 266 @z
 267
 268 Section 37.
 269
 270 @x l.482
 271 void
 272 flush_buffer() /* writes one line to output file */
 273 @y
 274 static void
 275 flush_buffer (void) /* writes one line to output file */
 276 @z
 277
 278 Section 41.
 279
 280 @x l.534
 281 void phase_two();
 282 @y
 283 static void phase_two (void);
 284 @z
 285
 286 Section 42.
 287
 288 @x l.537
 289 void
 290 phase_two () {
 291 @y
 292 static void
 293 phase_two (void) {
 294 @z
 295
 296 Section 43.
 297
 298 @x l.577 Use binary mode for output files
 299     C_file=fopen(output_file_name,"w");
 300 @y
 301     C_file=fopen(output_file_name,"wb");
 302 @z
 303
 304 Section 46.
 305
 306 @x l.603
 307 void output_defs();
 308 @y
 309 static void output_defs (void);
 310 @z
 311
 312 Section 47.
 313
 314 @x l.606
 315 void
 316 output_defs()
 317 @y
 318 static void
 319 output_defs (void)
 320 @z
 321
 322 Section 48.
 323
 324 @x l.649
 325 static void out_char();
 326 @y
 327 static void out_char (eight_bits);
 328 @z
 329
 330 Section 49.
 331
 332 @x l.653
 333 out_char(cur_char)
 334 eight_bits cur_char;
 335 @y
 336 out_char (eight_bits cur_char)
 337 @z
 338
 339 Section 58.
 340
 341 @x l.814
 342 eight_bits
 343 skip_ahead() /* skip to next control code */
 344 @y
 345 static eight_bits
 346 skip_ahead (void) /* skip to next control code */
 347 @z
 348
 349 Section 60.
 350
 351 @x l.849
 352 int skip_comment(is_long_comment) /* skips over comments */
 353 boolean is_long_comment;
 354 @y
 355 static int
 356 skip_comment (boolean is_long_comment) /* skips over comments */
 357 @z
 358
 359 Section 62
 360
 361 @x l.889 - add declaration of versionstring.
 362 #include <ctype.h> /* definition of |isalpha|, |isdigit| and so on */
 363 @y
 364 @z
 365
 366 Section 63.
 367
 368 @x l.901
 369 eight_bits
 370 get_next() /* produces the next input token */
 371 @y
 372 static eight_bits
 373 get_next (void) /* produces the next input token */
 374 @z
 375
 376 Section 63.
 377
 378 @x l.954
 379     else if (*loc=='>') if (*(loc+1)=='*') {loc++; compress(minus_gt_ast);}
 380                         else compress(minus_gt); break;
 381 @y
 382     else if (*loc=='>') {if (*(loc+1)=='*') {loc++; compress(minus_gt_ast);}
 383                          else compress(minus_gt);} break;
 384 @z
 385
 386 @x l.974
 387   while (isalpha(*++loc) || isdigit(*loc) || isxalpha(*loc) || ishigh(*loc));
 388 @y
 389   while (isalpha((unsigned char)*++loc) || isdigit((unsigned char)*loc) || isxalpha(*loc) || ishigh(*loc));
 390 @z
 391
 392 Section 76.
 393
 394 @x l.1200
 395 void
 396 scan_repl(t) /* creates a replacement text */
 397 eight_bits t;
 398 @y
 399 static void
 400 scan_repl (eight_bits t) /* creates a replacement text */
 401 @z
 402
 403 Section 77.
 404
 405 @x l.1232 -- rename local var, not to shadow previous local
 406 {int a=id_lookup(id_first,id_loc,0)-name_dir; app_repl((a / 0400)+0200);
 407   app_repl(a % 0400);}
 408 @y
 409 {int a_l=id_lookup(id_first,id_loc,0)-name_dir; app_repl((a_l / 0400)+0200);
 410   app_repl(a_l % 0400);}
 411 @z
 412
 413 Section 82.
 414
 415 @x l.1320
 416         c=toupper(*id_first)-'A'+10;
 417 @y
 418         c=toupper((unsigned char)*id_first)-'A'+10;
 419 @z
 420 @x l.1325
 421         c=16*c+toupper(*id_first)-'A'+10;
 422 @y
 423         c=16*c+toupper((unsigned char)*id_first)-'A'+10;
 424 @z
 425
 426 Section 83.
 427
 428 @x l.1358
 429 void
 430 scan_section()
 431 @y
 432 static void
 433 scan_section (void)
 434 @z
 435
 436 Section 90.
 437
 438 @x l.1458
 439 void phase_one();
 440 @y
 441 static void phase_one (void);
 442 @z
 443
 444 Section 91.
 445
 446 @x l.1461
 447 void
 448 phase_one() {
 449 @y
 450 static void
 451 phase_one (void) {
 452 @z
 453
 454 Section 92.
 455
 456 @x l.1476
 457 void skip_limbo();
 458 @y
 459 static void skip_limbo (void);
 460 @z
 461
 462 Section 93.
 463
 464 @x l.1479
 465 void
 466 skip_limbo()
 467 @y
 468 static void
 469 skip_limbo (void)
 470 @z
 471
 472 Section 95.
 473
 474 @x l.1535
 475 print_stats() {
 476 @y
 477 print_stats (void) {
 478 @z