mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 20:30:28 +02:00
Code Activity

(scm_newline, scm_write_char, scm_simple_format): Added texinfo markup.

Browse source
This commit is contained in:
Martin Grabmüller 2001-02-17 11:29:58 +00:00
parent 3b64451459
commit eca65e90f7
1 changed files with 13 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

22
libguile/print.c
View file

@ -964,13 +964,17 @@ scm_display (SCM obj, SCM port)
SCM_DEFINE (scm_simple_format, "simple-format", 2, 0, 1, SCM_DEFINE (scm_simple_format, "simple-format", 2, 0, 1,
(SCM destination, SCM message, SCM args), (SCM destination, SCM message, SCM args),
"Write MESSAGE to DESTINATION, defaulting to `current-output-port'.\n" "Write @var{message} to @var{destination}, defaulting to\n"
"MESSAGE can contain ~A (was %s) and ~S (was %S) escapes. When printed,\n" "the current output port.\n"
"the escapes are replaced with corresponding members of ARGS:\n" "@var{message} can contain @code{~A} (was @code{%s}) and\n"
"~A formats using `display' and ~S formats using `write'.\n" "@code{~S} (was @code{%S}) escapes. When printed,\n"
"If DESTINATION is #t, then use the `current-output-port',\n" "the escapes are replaced with corresponding members of\n"
"if DESTINATION is #f, then return a string containing the formatted text.\n" "@var{ARGS}:\n"
"Does not add a trailing newline.") "@code{~A} formats using @code{display} and @code{~S} formats\n"
"using @code{write}.\n"
"If @var{destination} is @code{#t}, then use the current output\n"
"port, if @var{destination} is @code{#f}, then return a string\n"
"containing the formatted text. Does not add a trailing newline.")
#define FUNC_NAME s_scm_simple_format #define FUNC_NAME s_scm_simple_format
{ {
SCM answer = SCM_UNSPECIFIED; SCM answer = SCM_UNSPECIFIED;
@ -1035,7 +1039,7 @@ SCM_DEFINE (scm_simple_format, "simple-format", 2, 0, 1,
SCM_DEFINE (scm_newline, "newline", 0, 1, 0, SCM_DEFINE (scm_newline, "newline", 0, 1, 0,
(SCM port), (SCM port),
"Send a newline to PORT.") "Send a newline to @var{port}.")
#define FUNC_NAME s_scm_newline #define FUNC_NAME s_scm_newline
{ {
if (SCM_UNBNDP (port)) if (SCM_UNBNDP (port))
@ -1050,7 +1054,7 @@ SCM_DEFINE (scm_newline, "newline", 0, 1, 0,
SCM_DEFINE (scm_write_char, "write-char", 1, 1, 0, SCM_DEFINE (scm_write_char, "write-char", 1, 1, 0,
(SCM chr, SCM port), (SCM chr, SCM port),
"Send character CHR to PORT.") "Send character @var{chr} to @var{port}.")
#define FUNC_NAME s_scm_write_char #define FUNC_NAME s_scm_write_char
{ {
if (SCM_UNBNDP (port)) if (SCM_UNBNDP (port))