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

(scm_dirname, scm_basename): Added docstrings.

Browse source
This commit is contained in:
Martin Grabmüller 2001-02-16 15:15:50 +00:00
parent 67941e3cb5
commit fa6a543f0d
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/filesys.c
View file

@ -1352,7 +1352,9 @@ SCM scm_dot_string;
SCM_DEFINE (scm_dirname, "dirname", 1, 0, 0, SCM_DEFINE (scm_dirname, "dirname", 1, 0, 0,
(SCM filename), (SCM filename),
"") "Return the directory name component of the file name\n"
"@var{filename}. If @var{filename} does not contain a directory\n"
"component, @code{.} is returned.")
#define FUNC_NAME s_scm_dirname #define FUNC_NAME s_scm_dirname
{ {
char *s; char *s;
@ -1382,7 +1384,10 @@ SCM_DEFINE (scm_dirname, "dirname", 1, 0, 0,
SCM_DEFINE (scm_basename, "basename", 1, 1, 0, SCM_DEFINE (scm_basename, "basename", 1, 1, 0,
(SCM filename, SCM suffix), (SCM filename, SCM suffix),
"") "Return the base name of the file name @var{filename}. The\n"
"base name is the file name without any directory components.\n"
"If @var{suffix} is privided, and is equal to the end of\n"
"@var{basename}, it is removed also.")
#define FUNC_NAME s_scm_basename #define FUNC_NAME s_scm_basename
{ {
char *f, *s = 0; char *f, *s = 0;