Add primitive _model-procedures

Author: arthurhjorth

src/main/ChildModel.java

@@ -18,7 +18,6 @@
 import org.nlogo.prim.*;
 import org.nlogo.workspace.AbstractWorkspace;
 
-
 public abstract class ChildModel {
     private final World parentWorld;
     private JobOwner owner;
@@ -204,12 +203,18 @@ public LogoList listBreedsOwns() {
 
     }
 
+    public LogoList listObserverProcedures(){
+        return null;
+    }
+
+    public LogoList listTurtleProcedures(){
+        return null;
+    }
+
     public LogoList listGlobals() {
         LogoListBuilder llb = new LogoListBuilder();
 
         for (int i = 0; i < workspace().world().observer().getVariableCount(); i++){
-//				theList.add(myWS.world().observer().variableName(i));
-            // we add all of them. We can manually edit the json file later.
             llb.add(workspace().world().observer().variableName(i));
         }
         return llb.toLogoList();
@@ -359,4 +364,26 @@ private Procedure getCommandRunner(Reporter task, Object[] taskArgs) {
         commandRunner.code[0].args = makeArgumentArray(task, taskArgs);
         return commandRunner;
     }
+
+    public LogoList getProcedures() {
+        LogoListBuilder outerLLB = new LogoListBuilder();
+        for (String pName : workspace().getProcedures().keySet()){
+            LogoListBuilder pList = new LogoListBuilder();
+            Procedure p = workspace().getProcedures().get(pName);
+            pList.add(pName);
+            pList.add(p.tyype.toString());
+            pList.add(p.usableBy);
+            LogoListBuilder argLLB = new LogoListBuilder();
+            // args contains dummies (temp 'lets') so we don't include them.
+            // localsCount contains number of lets so we just subtract that
+            for (int i = 0; i < p.args.size() - p.localsCount;i++){
+                String theString = p.args.get(i);
+                argLLB.add(theString);
+            }
+//            p.syntax().
+            pList.add(argLLB.toLogoList());
+            outerLLB.add(pList.toLogoList());
+        }
+        return outerLLB.toLogoList();
+    }
 }

src/main/LevelsSpace.java

@@ -17,6 +17,7 @@
 
 import org.nlogo.api.*;
 import org.nlogo.api.Argument;
+import org.nlogo.api.CommandTask;
 import org.nlogo.api.Context;
 import org.nlogo.app.App;
 import org.nlogo.api.ExtensionObject;
@@ -78,6 +79,8 @@ public void load(PrimitiveManager primitiveManager) throws ExtensionException {
         primitiveManager.addPrimitive("ask-descendant", new HierarchicalAsk());
         primitiveManager.addPrimitive("of-descendant", new HierarchicalOf());
         primitiveManager.addPrimitive("uses-level-space?", new UsesLevelSpace());
+        primitiveManager.addPrimitive("_model-procedures", new ModelProcedures());
+
 
         if (useGUI()) {
             // Adding event listener to Halt for halting child models
@@ -242,7 +245,7 @@ public void perform(Argument[] args, Context context) throws LogoException, Exte
             String command = args[1].getString();
             Object[] actuals = getActuals(args, 2);
             for (ChildModel model : toModelList(args[0])) {
-                model.ask(command, actuals);
+              model.ask(command, actuals);
             }
         }
     }
@@ -460,6 +463,18 @@ public Object report(Argument[] args, Context context) throws ExtensionException
         }
     }
 
+    // this returns the path of the model
+    public static class ModelProcedures extends DefaultReporter{
+        public Syntax getSyntax(){
+            return Syntax.reporterSyntax(new int[] {Syntax.NumberType()},
+                    Syntax.ListType());
+        }
+        public Object report(Argument[] args, Context context) throws ExtensionException, LogoException {
+            int modelNumber = args[0].getIntValue();
+            return getModel(modelNumber).getProcedures();
+        }
+    }
+
     public static class SetName extends DefaultCommand {
 
         @Override