Changeset 14634

Timestamp:

03/03/14 19:14:04 (9 years ago)

Author:

Mark Evenson

Message:

Methods to load Lisp code directly from an InputStream?.

File:

• trunk/abcl/src/org/armedbear/lisp/Load.java (modified) (1 diff)

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

@@ -128 +128 @@
         return load(pathname, verbose, print, ifDoesNotExist, false, Keyword.DEFAULT);
     }
+  
+    public static final LispObject load(InputStream in) 
+    {
+      return load(in, new SimpleString("UTF-8"));
+    }
+  
+    public static  final LispObject load(InputStream in, LispObject format) {
+        Stream stream = new Stream(Symbol.SYSTEM_STREAM, in, Symbol.CHARACTER, 
+                                   format);
+        final LispThread thread = LispThread.currentThread();
+        return loadFileFromStream(null, 
+                                  null,
+                                  stream,
+                                  Symbol.LOAD_VERBOSE.symbolValue(thread) != NIL,
+                                  Symbol.LOAD_PRINT.symbolValue(thread) != NIL,
+                                  false);
+    }
+
 
     public static final LispObject load(final Pathname pathname,