/*=gfunc c_string
*
* what: emit string for ANSI C
* general_use:
*
* exparg: string, string to reformat
*
* doc:
* Reform a string so that, when printed, the C compiler will be able to
* compile the data and construct a string that contains exactly what the
* current string contains. Many non-printing characters are replaced with
* escape sequences. Newlines are replaced with a backslash, an @code{n}, a
* closing quote, a newline, seven spaces and another re-opening quote. The
* compiler will implicitly concatenate them. The reader will see line
* breaks.
*
* A K&R compiler will choke. Use @code{kr-string} for that compiler.
*
=*/
SCM
ag_scm_c_string(SCM str)
{
char const * pz = ag_scm2zchars(str, "cstr");
SCM res;
pz = optionQuoteString(pz, C_STRING_NEWLINE);
res = AG_SCM_STR02SCM(pz);
AGFREE(pz);
return res;
}
static void
print_one_paragraph(char const * text, bool plain, FILE * fp)
{
if (plain) {
#ifdef ENABLE_NLS
#ifdef HAVE_LIBINTL_H
#ifdef DEBUG_ENABLED
#undef gettext
#endif
char * buf = dgettext("libopts", text);
if (buf == text)
text = gettext(text);
#endif /* HAVE_LIBINTL_H */
#endif /* ENABLE_NLS */
fputs(text, fp);
}
else {
char const * t = optionQuoteString(text, LINE_SPLICE);
fprintf(fp, PUTS_FMT, t);
AGFREE((void *)t);
}
}
