Changeset 13942

Timestamp:

05/24/12 09:50:34 (12 years ago)

Author:

Mark Evenson

Message:

Implement EXT:MAKE-TEMP-DIRECTORY.

Docstrings for MAKE-TEMP-DIRECTORY and MAKE-TEMP-PATHNAME

Adjust the signature of the GENSYM primitive to allow its use in Java
code. As far as I am concerned, all primitives should be public, as
they constitute the API of the Java part of the implementation.

Location:

trunk/abcl/src/org/armedbear/lisp

Files:

• Extensions.java (modified) (2 diffs)
• Primitives.java (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/Extensions.java

@@ -258 +258 @@
   }
 
-  // ### make-temp-file => pathname
-  private static final Primitive MAKE_TEMP_FILE = new make_temp_file();
+  public static final Primitive MAKE_TEMP_FILE = new make_temp_file();
+  @DocString(name="make_temp_file",
+             doc="Create and return the pathname of a previously non-existent file.")
   private static class make_temp_file extends Primitive { 
     make_temp_file() {
@@ -277 +278 @@
           Debug.trace(e);
         }
+      return NIL;
+    }
+  }
+
+  public static final Primitive MAKE_TEMP_DIRECTORY = new make_temp_directory();
+  @DocString(name="make_temp_directory",
+             doc="Create and return the pathname of a previously non-existent directory.")
+  private static class make_temp_directory extends Primitive { 
+    make_temp_directory() {
+      super("make-temp-directory", PACKAGE_EXT, true, "");
+    }
+    @Override
+    public LispObject execute()
+    {
+      try {
+          String tmpdir = System.getProperty("java.io.tmpdir");
+          String name = Primitives.GENSYM.execute().getStringValue();
+          File dir = new File(tmpdir, name);
+          File file = new File(dir, "xx");
+
+          if (file.mkdirs()) {
+            return new Pathname(dir + "/");
+          }
+      } catch (Throwable t) {
+        Debug.trace(t);
+      }
       return NIL;
     }

trunk/abcl/src/org/armedbear/lisp/Primitives.java

@@ -3072 +3072 @@
 
     // ### gensym
-    private static final Primitive GENSYM = new pf_gensym();
+    public static final Primitive GENSYM = new pf_gensym();
     private static final class pf_gensym extends Primitive {
         pf_gensym() {