summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/cpascal.h
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-03-23 23:39:58 +0000
committerKarl Berry <karl@freefriends.org>2008-03-23 23:39:58 +0000
commit346f174c635d39f3b92ea9dcfc72412420fb0b2d (patch)
tree0bfd7d92c1b4830e920a13b071be2229f4911e56 /Build/source/texk/web2c/cpascal.h
parentfa218d57052492e2c5d06aa29a6d8926cefc5041 (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.h8
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