summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/cwebdir/ctang-bs.ch
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/cwebdir/ctang-bs.ch')
-rw-r--r--Build/source/texk/web2c/cwebdir/ctang-bs.ch192
1 files changed, 0 insertions, 192 deletions
diff --git a/Build/source/texk/web2c/cwebdir/ctang-bs.ch b/Build/source/texk/web2c/cwebdir/ctang-bs.ch
deleted file mode 100644
index 55cc27cd00e..00000000000
--- a/Build/source/texk/web2c/cwebdir/ctang-bs.ch
+++ /dev/null
@@ -1,192 +0,0 @@
-Changes for CTANGLE for MSDOS and Borland C++ 3.1 using the following
-options (and perhaps others):
-
- -mc -w-pro -Ff=5000 -Z- -O-p
-
-The options -Z- and -O-p explicitly turn off optimizations that break
-the code. (See makefile.bs.)
-
-The main purpose of these changes is to support MSDOS with full-size arrays
-by using "huge" pointers.
-
-(This file contributed by Barry Schwartz, trashman@crud.mn.org, 28 Jun 94;
- revised 24 Jul 94.)
-
-
-@x Section 1.
-The ``banner line'' defined here should be changed whenever \.{CTANGLE}
-is modified.
-
-@d banner "This is CTANGLE (Version 4.2)"
-@y
-The ``banner line'' defined here should be changed whenever \.{CTANGLE}
-is modified.
-
-@d banner "This is CTANGLE (Version 4.2pc/big)"
-@z
-
-
-@x Section 9.
- for section names */
-
-@<Common code...@>=
-typedef struct name_info {
- char *byte_start; /* beginning of the name in |byte_mem| */
- struct name_info *link;
- union {
- struct name_info *Rlink; /* right link in binary search tree for section
- names */
- char Ilk; /* used by identifiers in \.{CWEAVE} only */
- } dummy;
- void *equiv_or_xref; /* info corresponding to names */
-} name_info; /* contains information about an identifier or section name */
-typedef name_info *name_pointer; /* pointer into array of \&{name\_info}s */
-typedef name_pointer *hash_pointer;
-extern char byte_mem[]; /* characters of names */
-extern char *byte_mem_end; /* end of |byte_mem| */
-extern char *byte_ptr; /* first unused position in |byte_mem| */
-extern name_info name_dir[]; /* information about names */
-extern name_pointer name_dir_end; /* end of |name_dir| */
-extern name_pointer name_ptr; /* first unused position in |name_dir| */
-extern name_pointer hash[]; /* heads of hash lists */
-extern hash_pointer hash_end; /* end of |hash| */
-extern hash_pointer h; /* index into hash-head array */
-@y
- for section names */
-
-@f huge extern
-
-@<Common code...@>=
-typedef struct name_info {
- char huge* byte_start; /* beginning of the name in |byte_mem| */
- struct name_info *link;
- union {
- struct name_info *Rlink; /* right link in binary search tree for section
- names */
- char Ilk; /* used by identifiers in \.{CWEAVE} only */
- } dummy;
- union {
- char *equiv_member;
- char huge* xref_member;
- } ptr_union; /* info corresponding to names */
-} name_info; /* contains information about an identifier or section name */
-typedef name_info *name_pointer; /* pointer into array of \&{name\_info}s */
-typedef name_pointer *hash_pointer;
-extern char huge byte_mem[]; /* characters of names */
-extern char huge* byte_mem_end; /* end of |byte_mem| */
-extern name_info name_dir[]; /* information about names */
-extern name_pointer name_dir_end; /* end of |name_dir| */
-extern name_pointer name_ptr; /* first unused position in |name_dir| */
-extern char huge* byte_ptr; /* first unused position in |byte_mem| */
-extern name_pointer hash[]; /* heads of hash lists */
-extern hash_pointer hash_end; /* end of |hash| */
-extern hash_pointer h; /* index into hash-head array */
-@z
-
-
-@x Section 17.
-@ The following parameters were sufficient in the original \.{WEB} to
-handle \TEX/, so they should be sufficient for most applications of
-\.{CWEB}.
-
-@d max_bytes 1000000 /* the number of bytes in identifiers,
- index entries, and section names */
-@d max_toks 1000000 /* number of bytes in compressed \CEE/ code */
-@d max_names 10239 /* number of identifiers, strings, section names;
- must be less than 10240 */
-@d max_sections 4000 /* greater than the total number of sections */
-@d max_texts 10239 /* number of replacement texts, must be less than 10240 */
-@d longest_name 10000 /* file and section names and section texts shouldn't be longer than this */
-@d stack_size 500 /* number of simultaneous levels of macro expansion */
-@d buf_size 1000 /* maximum length of input line, plus one */
-@y
-@ The following parameters were sufficient in the original \.{WEB} to
-handle \TEX/, so they should be sufficient for most applications of
-\.{CWEB}.
-
-(This is a modified version of \.{CTANGLE}, and in fact one of the parameters
-has been reduced in value. The parameter |max_toks|
-has been reduced from 270000 [which
-was sufficient to handle \TEX/] to
-170000, so that \.{CTANGLE}
-may be run on {\mc MSDOS}
-systems that are tight on memory. Consider, for
-instance, an 80286-based machine with several TSRs and drivers, trying
-to run \.{CTANGLE} from a makefile.)
-
-@d max_bytes 90000 /* the number of bytes in identifiers,
- index entries, and section names */
-@d max_toks 170000 /* number of bytes in compressed \CEE/ code */
-@d max_names 4000 /* number of identifiers, strings, section names;
- must be less than 10240 */
-@d max_sections 4000 /* greater than the total number of sections */
-@d max_texts 2500 /* number of replacement texts, must be less than 10240 */
-@d longest_name 10000 /* file and section names and section texts shouldn't be longer than this */
-@d stack_size 50 /* number of simultaneous levels of macro expansion */
-@d buf_size 100 /* for \.{CWEAVE} */
-@z
-
-
-@x Section 16.
- eight_bits *tok_start; /* pointer into |tok_mem| */
- sixteen_bits text_link; /* relates replacement texts */
-} text;
-typedef text *text_pointer;
-@y
- eight_bits huge* tok_start; /* pointer into |tok_mem| */
- sixteen_bits text_link; /* relates replacement texts */
-} text;
-typedef text *text_pointer;
-@z
-
-
-@x Section 17.
-static eight_bits tok_mem[max_toks];
-static eight_bits *tok_mem_end=tok_mem+max_toks-1;
-static eight_bits *tok_ptr; /* first unused position in |tok_mem| */
-@y
-static eight_bits huge tok_mem[max_toks];
-static eight_bits huge* tok_mem_end;
-static eight_bits huge* tok_ptr; /* first unused position in |tok_mem| */
-@z
-
-
-@x Section 18.
-text_info->tok_start=tok_ptr=tok_mem;
-text_ptr=text_info+1; text_ptr->tok_start=tok_mem;
- /* this makes replacement text 0 of length zero */
-@y
-tok_mem_end=tok_mem+max_toks-1;
-text_info->tok_start=tok_ptr=tok_mem;
-text_ptr=text_info+1; text_ptr->tok_start=tok_mem;
- /* this makes replacement text 0 of length zero */
-@z
-
-
-@x Section 19.
-@d equiv equiv_or_xref /* info corresponding to names */
-@y
-@d equiv ptr_union.equiv_member /* info corresponding to names */
-@z
-
-
-@x Section 27.
- eight_bits *end_field; /* ending location of replacement text */
- eight_bits *byte_field; /* present location within replacement text */
-@y
- eight_bits huge* end_field; /* ending location of replacement text */
- eight_bits huge* byte_field; /* present location within replacement text */
-@z
-
-
-@x Section 49.
-out_char(
-eight_bits cur_char)
-{
- char *j, *k; /* pointer into |byte_mem| */
-@y
-out_char(cur_char)
-eight_bits cur_char;
-{
- char huge* j, huge* k; /* pointer into |byte_mem| */
-@z