diff options
| author | Karl Berry <karl@freefriends.org> | 2008-03-23 23:39:58 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2008-03-23 23:39:58 +0000 |
| commit | 346f174c635d39f3b92ea9dcfc72412420fb0b2d (patch) | |
| tree | 0bfd7d92c1b4830e920a13b071be2229f4911e56 /Build/source/texk/web2c/cpascal.h | |
| parent | fa218d57052492e2c5d06aa29a6d8926cefc5041 (diff) | |
use new routine printcstring rather than fputs, so the new help message ends up in the log
git-svn-id: svn://tug.org/texlive/trunk@7111 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/cpascal.h')
| -rw-r--r-- | Build/source/texk/web2c/cpascal.h | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/cpascal.h b/Build/source/texk/web2c/cpascal.h index 1a830596730..4ee02aac7fc 100644 --- a/Build/source/texk/web2c/cpascal.h +++ b/Build/source/texk/web2c/cpascal.h @@ -198,6 +198,14 @@ typedef unsigned char *pointertobyte; #define promptfilenamehelpmsg "(Press Enter to retry, or Control-D to exit" #endif +/* We use this rather than a simple fputs so that the string will end up + in the .log file, too. */ +#define printcstring(STR) \ + do { \ + char *ch_ptr = (STR); \ + while (*ch_ptr) \ + printchar(*(ch_ptr++)); \ + } while (0) /* Tangle removes underscores from names. Put them back for things that |