diff options
Diffstat (limited to 'Build/source/texk/web2c/cwebdir/ctang-w32.ch')
-rw-r--r-- | Build/source/texk/web2c/cwebdir/ctang-w32.ch | 62 |
1 files changed, 20 insertions, 42 deletions
diff --git a/Build/source/texk/web2c/cwebdir/ctang-w32.ch b/Build/source/texk/web2c/cwebdir/ctang-w32.ch index 523985ce3da..01b22a3d662 100644 --- a/Build/source/texk/web2c/cwebdir/ctang-w32.ch +++ b/Build/source/texk/web2c/cwebdir/ctang-w32.ch @@ -4,63 +4,41 @@ This is the change file for CWEB's CTANGLE under Win32 Changes necessary for compiling with Borland C/C++ @x section 1 -@d banner "This is CTANGLE (Version 3.64)\n" +@d banner "This is CTANGLE (Version 4.0)" @y -@d banner "This is CTANGLE (Version 3.64win32)\n" +@d banner "This is CTANGLE (Version 4.0win32)" @z @x -@ We predeclare several standard system functions here instead of including -their system header files, because the names of the header files are not as -standard as the names of the functions. (For example, some \CEE/ environments -have \.{<string.h>} where others have \.{<strings.h>}.) - -@<Predecl...@>= -extern int strlen(); /* length of string */ -extern int strcmp(); /* compare strings lexicographically */ -extern char* strcpy(); /* copy one string to another */ -extern int strncmp(); /* compare up to $n$ string characters */ -extern char* strncpy(); /* copy up to $n$ string characters */ -@y -@z - -@x -int names_match(p,first,l) -name_pointer p; /* points to the proposed match */ -char *first; /* position of first character of string */ +boolean names_match(@t\1\1@> +name_pointer p, /* points to the proposed match */ +const char *first, /* position of first character of string */ +size_t l, /* length of identifier */ +eight_bits t@t\2\2@>) /* not used by \.{TANGLE} */ @y -int __cdecl names_match(p,first,l) -name_pointer p; /* points to the proposed match */ -char *first; /* position of first character of string */ +boolean __cdecl names_match(@t\1\1@> +name_pointer p, /* points to the proposed match */ +const char *first, /* position of first character of string */ +size_t l, /* length of identifier */ +eight_bits t@t\2\2@>) /* not used by \.{TANGLE} */ @z @x void -init_node(node) -name_pointer node; +init_node( +name_pointer node) { - node->equiv=(char *)text_info; + node->equiv=(void *)text_info; } void -init_p() {} +init_p(name_pointer p,eight_bits t) {@+(void)p;@+(void)t;@+} @y void -init_node(node) -name_pointer node; +init_node( +name_pointer node) { - node->equiv=(char *)text_info; + node->equiv=(void *)text_info; } void __cdecl -init_p() {} -@z - -@x -@ @<Include...@>= -#include <ctype.h> /* definition of |isalpha|, |isdigit| and so on */ -#include <stdlib.h> /* definition of |exit| */ -@y -@ @<Include...@>= -#include <ctype.h> /* definition of |isalpha|, |isdigit| and so on */ -#include <stdlib.h> /* definition of |exit| */ -#include <string.h> +init_p(name_pointer p,eight_bits t) {@+(void)p;@+(void)t;@+} @z |