POC #972 use FullDefiniton,Save,Get

TODO
- `FullDefinition` must recursively determine all non-`Protected` symbol
definitions
- `Definition`, `FullDefinition` must contain an empty line between any
singular definition line to use the `Package` parser in the `Get`
function
- `FullDefinition(In)` can be used to get all input definitions

Author: axkr

symja_android_library/matheclipse-core/src/main/java/org/matheclipse/core/builtin/FileFunctions.java

@@ -94,6 +94,7 @@ private static void init() {
         S.Put.setEvaluator(new Put());
         S.Read.setEvaluator(new Read());
         S.ReadString.setEvaluator(new ReadString());
+        S.Save.setEvaluator(new Save());
         S.StringToStream.setEvaluator(new StringToStream());
         S.URLFetch.setEvaluator(new URLFetch());
         S.Write.setEvaluator(new Write());
@@ -872,7 +873,8 @@ public IExpr evaluate(final IAST ast, EvalEngine engine) {
 
         final int argSize = ast.argSize();
         if (!(ast.last() instanceof IStringX)) {
-          return Errors.printMessage(S.Put, "string", F.List(), engine);
+          // String expected at position `1` in `2`.
+          return Errors.printMessage(S.Put, "string", F.List(F.ZZ(argSize), ast), engine);
         }
         IStringX fileName = (IStringX) ast.last();
 
@@ -1186,6 +1188,44 @@ public int[] expectedArgSize(IAST ast) {
     }
   }
 
+  private static final class Save extends AbstractFunctionEvaluator {
+
+    @Override
+    public IExpr evaluate(final IAST ast, EvalEngine engine) {
+      if (Config.isFileSystemEnabled(engine)) {
+
+        if (!(ast.arg1() instanceof IStringX)) {
+          // String expected at position `1` in `2`.
+          return Errors.printMessage(S.Save, "string", F.List(F.C1, ast), engine);
+        }
+        IStringX fileName = (IStringX) ast.arg1();
+        IExpr arg2 = ast.arg2();
+        StringBuilder buf = new StringBuilder();
+        if (arg2.isSymbol()) {
+          buf.append(((ISymbol) arg2).definition());
+        }
+        try (FileWriter writer = new FileWriter(fileName.toString())) {
+          writer.write(buf.toString());
+        } catch (IOException e) {
+          LOGGER.log(engine.getLogLevel(), "Save: file {} I/O exception !", fileName, e);
+          return F.NIL;
+        }
+        return S.Null;
+      }
+      return F.NIL;
+    }
+
+    @Override
+    public int[] expectedArgSize(IAST ast) {
+      return ARGS_2_2;
+    }
+
+    @Override
+    public void setUp(ISymbol newSymbol) {
+      newSymbol.setAttributes(ISymbol.HOLDREST);
+    }
+  }
+
   private static final class StringToStream extends AbstractFunctionEvaluator {
 
     @Override

symja_android_library/matheclipse-core/src/main/java/org/matheclipse/core/builtin/PatternMatching.java

@@ -93,6 +93,7 @@ private static void init() {
         S.ClearAll.setEvaluator(new ClearAll());
         S.Context.setEvaluator(new Context());
         S.Definition.setEvaluator(new Definition());
+        S.FullDefinition.setEvaluator(new FullDefinition());
         S.OptionsPattern.setEvaluator(OptionsPattern.CONST);
         S.OwnValues.setEvaluator(new OwnValues());
         S.Repeated.setEvaluator(Repeated.CONST);
@@ -722,6 +723,73 @@ public int[] expectedArgSize(IAST ast) {
     }
   }
 
+  private static final class FullDefinition extends AbstractCoreFunctionEvaluator {
+
+    @Override
+    public IExpr evaluate(final IAST ast, EvalEngine engine) {
+      // TODO copied from Definition. Implement FullDefinition details.
+      IExpr arg1 = Validate.checkSymbolType(ast, 1, engine);
+      if (arg1.isPresent()) {
+        ISymbol symbol = (ISymbol) arg1;
+        try {
+          String definitionString;
+          if (symbol.equals(S.In)) {
+            IAST list = engine.getEvalHistory().definitionIn();
+            definitionString = definitionToString(S.In, list);
+          } else if (symbol.equals(S.Out)) {
+            IAST list = engine.getEvalHistory().definitionOut();
+            definitionString = definitionToString(S.Out, list);
+          } else {
+            definitionString = symbol.definitionToString();
+          }
+          return F.stringx(definitionString);
+        } catch (IOException ioe) {
+          return Errors.printMessage(S.Definition, ioe, engine);
+        }
+      }
+      return S.Null;
+    }
+
+    @Override
+    public int[] expectedArgSize(IAST ast) {
+      return ARGS_1_1;
+    }
+
+    @Override
+    public void setUp(ISymbol newSymbol) {
+      newSymbol.setAttributes(ISymbol.HOLDALL);
+    }
+
+    public static String definitionToString(ISymbol symbol, IAST list) {
+
+      StringWriter buf = new StringWriter();
+      IAST attributesList = AttributeFunctions.attributesList(symbol);
+      if (attributesList.size() > 1) {
+        buf.append("Attributes(");
+        buf.append(symbol.toString());
+        buf.append(")=");
+        buf.append(attributesList.toString());
+        buf.append("\n");
+      }
+
+      EvalEngine engine = EvalEngine.get();
+      OutputFormFactory off = OutputFormFactory.get(engine.isRelaxedSyntax());
+      off.setIgnoreNewLine(true);
+
+      // IAST list = definition();
+      for (int i = 1; i < list.size(); i++) {
+        if (!off.convert(buf, list.get(i))) {
+          return "ERROR-IN-OUTPUTFORM";
+        }
+        if (i < list.size() - 1) {
+          buf.append("\n");
+          off.setColumnCounter(0);
+        }
+      }
+      return buf.toString();
+    }
+  }
+
 
   /**
    *