Add ability to import jars using import statement (simple wrapper aro…

…ud library.load)

base/importlib.aya

@@ -11,6 +11,8 @@ def importlib::aya_dir :(sys.ad)
 .# Dictionary of files which have been imported
 def importlib::imported :{}
 
+def importlib::loaded_jars []
+
 def importlib::path [
     importlib.aya_dir "std" :9s + +    .# <aya>/base
 ]
@@ -164,7 +166,9 @@ def importlib::import {__name : importlib^,
             __name importlib.from_path
         } (__name :T ::str =) {
             { .# Determine load command based on string type
-                (__name ".aya" H) {
+                (__name ".jar" H) {
+                    __name importlib.load_library
+                } (__name ".aya" H) {
                     __name importlib.from_file
                 } (__name.[0] '/ =) {
                     __name importlib.load_file
@@ -181,6 +185,13 @@ def importlib::import {__name : importlib^,
 }
 
 
+def importlib::load_library {jar_file : importlib^,
+    importlib.loaded_jars jar_file H ! {
+        jar_file :(library.load) ;
+        jar_file importlib.loaded_jars .B ;
+    } ?
+}
+
 
 def importlib::is_exportall {
     { .# try

src/web/WebAvailableNamedInstructionStore.java

@@ -43,6 +43,14 @@ public void execute(BlockEvaluator blockEvaluator) {
 					// Unimplemented
 					throw new UnimplementedError();
 				}
+			},
+
+			new NamedOperator("library.load", "load a jar file") {
+				@Override
+				public void execute(BlockEvaluator blockEvaluator) {
+					// Unimplemented
+					throw new UnimplementedError();
+				}
 			}
 		);
 	}