diff options
Diffstat (limited to 'Build/source/texk/web2c/cwebdir/comm-w2c.ch')
-rw-r--r-- | Build/source/texk/web2c/cwebdir/comm-w2c.ch | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/cwebdir/comm-w2c.ch b/Build/source/texk/web2c/cwebdir/comm-w2c.ch index 07a945b69b2..bd6ac50e1e0 100644 --- a/Build/source/texk/web2c/cwebdir/comm-w2c.ch +++ b/Build/source/texk/web2c/cwebdir/comm-w2c.ch @@ -84,6 +84,14 @@ Section 7. @d buf_size 1000 /* for \.{CWEAVE} and \.{CTANGLE} */ @z +@x l.156 +@d xisspace(c) (isspace(c)&&((unsigned char)c<0200)) +@d xisupper(c) (isupper(c)&&((unsigned char)c<0200)) +@y +@d xisspace(c) (isspace((unsigned char)c)&&((unsigned char)c<0200)) +@d xisupper(c) (isupper((unsigned char)c)&&((unsigned char)c<0200)) +@z + Section 9. @x l.173 @@ -122,6 +130,12 @@ static void prime_the_change_buffer (void) @z +@x l.271 + if (xisupper(buffer[1])) buffer[1]=tolower(buffer[1]); +@y + if (xisupper(buffer[1])) buffer[1]=tolower((unsigned char)buffer[1]); +@z + Section 16. @x l.321 @@ -132,6 +146,12 @@ static void check_change (void) /* switches to |change_file| if the buffers match */ @z +@x l.340 + char xyz_code=xisupper(buffer[1])? tolower(buffer[1]): buffer[1]; +@y + char xyz_code=xisupper(buffer[1])? tolower((unsigned char)buffer[1]): buffer[1]; +@z + Section 18. @x l.380 @@ -286,6 +306,12 @@ Replaced by Kpathsea `kpse_find_file' Section 26. +@x l.553 + if (xisupper(buffer[1])) buffer[1]=tolower(buffer[1]); +@y + if (xisupper(buffer[1])) buffer[1]=tolower((unsigned char)buffer[1]); +@z + @x l.571 check_complete(){ @y |