[Guile-commits] GNU Guile branch, master, updated. release_1-9-11-73-gedb3cfc

[Thien-Thi Nguyen]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=edb3cfc37de8c216e3b1c06970ef39e3638560be

The branch, master has been updated
       via  edb3cfc37de8c216e3b1c06970ef39e3638560be (commit)
       via  0faca15c33cfbe1ef25fd6b4bbc7f92b57659345 (commit)
       via  e05b7850e90991d1901872b953b05db0a61adae5 (commit)
       via  687340b3a4b05cf390cce48dc1c3f9c69517f23b (commit)
       via  8c8279aa5d79fa4f144f75554d79115846fa2a95 (commit)
       via  7af5ad48f34af9287f4dee0b864cbf7307c71499 (commit)
       via  6f5612459b1e414c33b5a1814a5bec57eb81052e (commit)
      from  1772145c0222e4826e5113c14ee96fd95b263420 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit edb3cfc37de8c216e3b1c06970ef39e3638560be
Author: Thien-Thi Nguyen <address@hidden>
Date:   Tue Jun 15 13:19:35 2010 +0200

    [maint] Add configure.ac abstraction: GUILE_CONFIG_SCRIPT
    
    * configure.ac (GUILE_CONFIG_SCRIPT): New ‘AC_DEFUN’; use it for:
    check-guile, benchmark-guile, meta/guile, meta/uninstalled-env,
    meta/gdb-uninstalled-guile, meta/guile-tools, libguile/guile-snarf,
    libguile/guile-doc-snarf, libguile/guile-func-name-check,
    libguile/guile-snarf-docs test-suite/standalone/test-use-srfi,
    test-suite/standalone/test-fast-slot-ref.

commit 0faca15c33cfbe1ef25fd6b4bbc7f92b57659345
Author: Thien-Thi Nguyen <address@hidden>
Date:   Mon Jun 14 21:57:01 2010 +0200

    Init shell var properly in git-version-gen.
    
    * build-aux/git-version-gen: Ensure shell var
    is not influenced by an env var of the same name.

commit e05b7850e90991d1901872b953b05db0a61adae5
Merge: 687340b3a4b05cf390cce48dc1c3f9c69517f23b 
1772145c0222e4826e5113c14ee96fd95b263420
Author: Thien-Thi Nguyen <address@hidden>
Date:   Mon Jun 14 14:40:38 2010 +0200

    Merge branch 'master' of ssh://address@hidden/srv/git/guile

commit 687340b3a4b05cf390cce48dc1c3f9c69517f23b
Merge: 8c8279aa5d79fa4f144f75554d79115846fa2a95 
36b5e394072c94b062a69a6d77b418e16ce70fce
Author: Thien-Thi Nguyen <address@hidden>
Date:   Fri May 7 15:33:38 2010 +0200

    Merge branch 'master' of ssh://address@hidden/srv/git/guile

commit 8c8279aa5d79fa4f144f75554d79115846fa2a95
Merge: 7af5ad48f34af9287f4dee0b864cbf7307c71499 
adbdfd6d2418b1404af48d480c2273f501517d6e
Author: Thien-Thi Nguyen <address@hidden>
Date:   Fri Feb 26 15:02:38 2010 +0100

    Merge branch 'master' of ssh://address@hidden/srv/git/guile

commit 7af5ad48f34af9287f4dee0b864cbf7307c71499
Merge: 6f5612459b1e414c33b5a1814a5bec57eb81052e 
60b6a84f0f2d8d43491835a518463f4a8273bf87
Author: Thien-Thi Nguyen <address@hidden>
Date:   Sun Feb 14 19:51:23 2010 +0100

    Merge branch 'master' of ssh://address@hidden/srv/git/guile

commit 6f5612459b1e414c33b5a1814a5bec57eb81052e
Author: Thien-Thi Nguyen <address@hidden>
Date:   Fri Feb 12 16:01:16 2010 +0100

    Add tmpfile(3) to libguile.
    
    * libguile/posix.c (sym_tmpfile): New symbol.
      (scm_tmpfile): New primitive.
    * libguile/posix.h (scm_tmpfile): New func decl.
    
    * doc/ref/posix.texi (File System): Document `tmpfile'.

-----------------------------------------------------------------------

Summary of changes:
 build-aux/git-version-gen |    5 ++++-
 configure.ac              |   36 ++++++++++++++++++------------------
 doc/ref/posix.texi        |   14 ++++++++++++++
 libguile/posix.c          |   24 ++++++++++++++++++++++++
 libguile/posix.h          |    1 +
 5 files changed, 61 insertions(+), 19 deletions(-)

diff --git a/build-aux/git-version-gen b/build-aux/git-version-gen
index 9b821e0..5617eb8 100755
--- a/build-aux/git-version-gen
+++ b/build-aux/git-version-gen
@@ -1,6 +1,6 @@
 #!/bin/sh
 # Print a version string.
-scriptversion=2010-05-28.15; # UTC
+scriptversion=2010-06-14.19; # UTC
 
 # Copyright (C) 2007-2010 Free Software Foundation, Inc.
 #
@@ -78,6 +78,9 @@ tag_sed_script="${2:-s/x/x/}"
 nl='
 '
 
+# Avoid meddling by environment variable of the same name.
+v=
+
 # First see if there is a tarball-only version file.
 # then try "git describe", then default.
 if test -f $tarball_version_file
diff --git a/configure.ac b/configure.ac
index 1cdb471..6133954 100644
--- a/configure.ac
+++ b/configure.ac
@@ -1640,26 +1640,26 @@ AC_CONFIG_FILES([
 
 AC_CONFIG_FILES([meta/guile-2.0.pc])
 AC_CONFIG_FILES([meta/guile-2.0-uninstalled.pc])
-AC_CONFIG_FILES([check-guile], [chmod +x check-guile])
-AC_CONFIG_FILES([benchmark-guile], [chmod +x benchmark-guile])
-AC_CONFIG_FILES([meta/guile], [chmod +x meta/guile])
-AC_CONFIG_FILES([meta/uninstalled-env], [chmod +x meta/uninstalled-env])
-AC_CONFIG_FILES([meta/gdb-uninstalled-guile], [chmod +x 
meta/gdb-uninstalled-guile])
-AC_CONFIG_FILES([meta/guile-tools], [chmod +x meta/guile-tools])
-AC_CONFIG_FILES([libguile/guile-snarf],
-                [chmod +x libguile/guile-snarf])
-AC_CONFIG_FILES([libguile/guile-doc-snarf],
-                [chmod +x libguile/guile-doc-snarf])
-AC_CONFIG_FILES([libguile/guile-func-name-check],
-                [chmod +x libguile/guile-func-name-check])
-AC_CONFIG_FILES([libguile/guile-snarf-docs],
-                [chmod +x libguile/guile-snarf-docs])
-AC_CONFIG_FILES([test-suite/standalone/test-use-srfi],
-                [chmod +x test-suite/standalone/test-use-srfi])
-AC_CONFIG_FILES([test-suite/standalone/test-fast-slot-ref],
-                [chmod +x test-suite/standalone/test-fast-slot-ref])
 AC_CONFIG_FILES([doc/ref/effective-version.texi])
 
+dnl We can get fancy with m4sugar (m4_foreach et al) later.
+dnl NB: We don't jam everything into one GUILE_CONFIG_SCRIPT call
+dnl since that expands "chmod +x LONG-LIST-OF-FILES" multiply.  --ttn
+AC_DEFUN([GUILE_CONFIG_SCRIPT],[AC_CONFIG_FILES([$1],[chmod +x $1])])
+
+GUILE_CONFIG_SCRIPT([check-guile])
+GUILE_CONFIG_SCRIPT([benchmark-guile])
+GUILE_CONFIG_SCRIPT([meta/guile])
+GUILE_CONFIG_SCRIPT([meta/uninstalled-env])
+GUILE_CONFIG_SCRIPT([meta/gdb-uninstalled-guile])
+GUILE_CONFIG_SCRIPT([meta/guile-tools])
+GUILE_CONFIG_SCRIPT([libguile/guile-snarf])
+GUILE_CONFIG_SCRIPT([libguile/guile-doc-snarf])
+GUILE_CONFIG_SCRIPT([libguile/guile-func-name-check])
+GUILE_CONFIG_SCRIPT([libguile/guile-snarf-docs])
+GUILE_CONFIG_SCRIPT([test-suite/standalone/test-use-srfi])
+GUILE_CONFIG_SCRIPT([test-suite/standalone/test-fast-slot-ref])
+
 AC_OUTPUT
 
 dnl Local Variables:
diff --git a/doc/ref/posix.texi b/doc/ref/posix.texi
index c5106f5..3e58fef 100644
--- a/doc/ref/posix.texi
+++ b/doc/ref/posix.texi
@@ -948,6 +948,20 @@ which is usual for ordinary file creation,
 @end example
 @end deffn
 
address@hidden {Scheme Procedure} tmpfile
address@hidden {C Function} scm_tmpfile
+Return an input/output port to a unique temporary file
+named using the path prefix @code{P_tmpdir} defined in
address@hidden
+The file is automatically deleted when the port is closed
+or the program terminates.
+
+The name of the temporary file associated with the returned
+port is not available to Scheme programs;
address@hidden(port-filename (tmpfile))} always returns the
+symbol @code{tmpfile}.
address@hidden deffn
+
 @deffn {Scheme Procedure} dirname filename
 @deffnx {C Function} scm_dirname (filename)
 Return the directory name component of the file name
diff --git a/libguile/posix.c b/libguile/posix.c
index b228925..1fa9bb9 100644
--- a/libguile/posix.c
+++ b/libguile/posix.c
@@ -1372,6 +1372,30 @@ SCM_DEFINE (scm_mkstemp, "mkstemp!", 1, 0, 0,
 }
 #undef FUNC_NAME
 
+SCM_SYMBOL (sym_tmpfile, "tmpfile");
+
+SCM_DEFINE (scm_tmpfile, "tmpfile", 0, 0, 0,
+            (void),
+            "Return an input/output port to a unique temporary file\n"
+            "named using the path prefix @code{P_tmpdir} defined in\n"
+            "@file{stdio.h}.\n"
+            "The file is automatically deleted when the port is closed\n"
+            "or the program terminates.\n"
+            "\n"
+            "The name of the temporary file associated with the returned\n"
+            "port is not available to Scheme programs;\n"
+            "@code{(port-filename (tmpfile))} always returns the\n"
+            "symbol @code{tmpfile}.")
+#define FUNC_NAME s_scm_tmpfile
+{
+  FILE *rv;
+
+  if (! (rv = tmpfile ()))
+    SCM_SYSERROR;
+  return scm_fdes_to_port (fileno (rv), "w+", sym_tmpfile);
+}
+#undef FUNC_NAME
+
 SCM_DEFINE (scm_utime, "utime", 1, 5, 0,
             (SCM pathname, SCM actime, SCM modtime, SCM actimens, SCM 
modtimens,
              SCM flags),
diff --git a/libguile/posix.h b/libguile/posix.h
index f7a5bb3..ac774d3 100644
--- a/libguile/posix.h
+++ b/libguile/posix.h
@@ -68,6 +68,7 @@ SCM_API SCM scm_uname (void);
 SCM_API SCM scm_environ (SCM env);
 SCM_API SCM scm_tmpnam (void);
 SCM_API SCM scm_mkstemp (SCM tmpl);
+SCM_API SCM scm_tmpfile (void);
 SCM_API SCM scm_open_pipe (SCM pipestr, SCM modes);
 SCM_API SCM scm_close_pipe (SCM port);
 SCM_API SCM scm_utime (SCM pathname, SCM actime, SCM modtime,


hooks/post-receive
-- 
GNU Guile