Implement 'file tempfile'

From TIP #201: http://www.tcl.tk/cgi-bin/tct/tip/210.html

1 files changed, 28 insertions, 0 deletions

diff --git a/jim-file.c b/jim-file.c
index 30f5cf3..e6de923 100644
--- a/jim-file.c
+++ b/jim-file.c
@@ -344,6 +344,27 @@ static int file_cmd_mkdir(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
     return JIM_OK;
 }
 
+static int file_cmd_tempfile(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
+{
+    int fd;
+    char *filename;
+    const char *template = "/tmp/tcl.tmp.XXXXXX";
+    if (argc >= 1) {
+        template = Jim_GetString(argv[0], NULL);
+    }
+    filename = Jim_StrDup(template);
+
+    fd = mkstemp(filename);
+    if (fd < 0) {
+        Jim_SetResultString(interp, "Failed to create tempfile", -1);
+        return JIM_ERR;
+    }
+    close(fd);
+
+    Jim_SetResult(interp, Jim_NewStringObjNoAlloc(interp, filename, -1));
+    return JIM_OK;
+}
+
 static int file_cmd_rename(Jim_Interp *interp, int argc, Jim_Obj *const *argv)
 {
     const char *source = Jim_GetString(argv[0], NULL);
@@ -614,6 +635,13 @@ static const jim_subcmd_type command_table[] = {
         .maxargs = -1,
         .description = "Creates the directories"
     },
+    {   .cmd = "tempfile",
+        .args = "?template?",
+        .function = file_cmd_tempfile,
+        .minargs = 0,
+        .maxargs = 1,
+        .description = "Creates a temporary filename"
+    },
     {   .cmd = "rename",
         .args = "?-force? source dest",
         .function = file_cmd_rename,