yacas r3216 (ba2a4f8). Ablauf edited.

Author: qwert2003

Ablauf.md

@@ -0,0 +1,56 @@
+# Ablauf
+
+### Fetch the current scripts and JavaYacas sources
+
+    cd yacas:
+
+    ant clean
+(rm -r build)
+(rm -r dist)
+(rm JavaYacas/CVersion.java)
+
+    cd JavaYacas
+    svn update
+    cd ../scripts
+    svn update
+  
+**Versionsnummer** (svn) **notieren**. Git commit Nr. von Webseite holen.
+
+### Rebuild the jar
+
+*build.xml*: Version (svn commit Nr.) **anpassen**!
+
+
+Kontrollieren, dass in scripts diese Dateien gelöscht sind: *Makefile.am*, *maketest*
+
+Kontrollieren, dass in JavaYacas diese Dateien gelöscht sind:
+alle ausser CVersion.java.in (also auch CVersion.java löschen, wird durch ant neu generiert)
+
+Kontrollieren, dass in JavaYacas das Verzeichnis gelöscht ist: *lib*
+
+    cd ..
+
+    ant
+(äquivalent zu ant jar)
+
+### Create the corresponding source archive
+
+    cd ..
+in dotar allenfalls die Versionsnummer **anpassen**!
+
+    ./dotar
+(oder
+tar -czf dist/yacas-1.3.6+.tar.gz --exclude=.svn yacas/scripts yacas/JavaYacas yacas/build.xml yacas/COPYING
+)
+
+
+# GitHub
+
+### Commit
+
+Version (svn commit Nr. / git commit nr) **anpassen**!
+
+    git commit -a -m 'yacas r3216 (ba2a4f8)'
+    
+    git push origin master
+

Ablauf.txt

@@ -5,7 +5,7 @@ Building JavaYacas (https://github.com/grzegorzmazur/yacas). To get executable j
 Get the last built executable *yacas.jar* from the directory *dist*.
 
 ## Rebuild the executable jar and source tar.gz ##
-See Ablauf.txt
+See Ablauf.md
 
 - Fetches the current scripts and JavaYacas sources from the yacas repository (https://github.com/grzegorzmazur/yacas). Uses subversion (svn).
 - Rebuilds the jar.

README.md

@@ -1,5 +1,5 @@
 package net.sf.yacas;
 
 class CVersion {
-    static String VERSION = "1.3.6+ (svn r3197)";
+    static String VERSION = "1.3.6+ (svn r3216)";
 }

dist/yacas-1.3.6+.tar.gz

@@ -572,10 +572,12 @@ public void AddCommands(LispEnvironment aEnvironment)
     aEnvironment.CoreCommands().put(
          "DebugLine",
          new YacasEvaluator(new LispDebugLine(),1, YacasEvaluator.Fixed|YacasEvaluator.Function));
+    aEnvironment.CoreCommands().put(
+         "Interpreter",
+         new YacasEvaluator(new LispInterpreter(),0, YacasEvaluator.Fixed|YacasEvaluator.Function));
     aEnvironment.CoreCommands().put(
          "Version",
          new YacasEvaluator(new LispVersion(),0, YacasEvaluator.Fixed|YacasEvaluator.Function));
-
     aEnvironment.CoreCommands().put(
          "Exit",
          new YacasEvaluator(new LispExit(),0, YacasEvaluator.Fixed|YacasEvaluator.Function));
@@ -4192,6 +4194,15 @@ public void Eval(LispEnvironment aEnvironment,int aStackTop) throws Exception
     }
   }
 
+  class LispInterpreter extends YacasEvalCaller
+  {
+    @Override
+    public void Eval(LispEnvironment aEnvironment,int aStackTop) throws Exception
+    {
+      RESULT(aEnvironment,aStackTop).Set(LispAtom.New(aEnvironment,"\"jyacas\""));
+    }
+  }
+
   class LispVersion extends YacasEvalCaller
   {
     @Override

dist/yacas.jar

@@ -2,7 +2,7 @@
   <description>
     JavaYacas build file
   </description>
-  <property name="version" value="1.3.6+ (svn r3197)" />
+  <property name="version" value="1.3.6+ (svn r3216)" />
   <property name="default.javac.source" value="1.6"/>
   <property name="default.javac.target" value="1.6"/>
   <property name="main" value="net.sf.yacas.YacasConsole" />

yacas/JavaYacas/.svn/pristine/42/42a25dc3219429f0e5d060061f71acb49bf010a0.svn-base

@@ -443,27 +443,26 @@ Macro("MacroMapArgs",{expr,oper})
 UnFence("MapArgs",2);
 HoldArg("MapArgs",oper);
 
+10 # DeepCopy(l_IsList) <-- [
+    Local(r);
+    r := {};
+    ForEach(e, l)
+        DestructiveAppend(r, DeepCopy(e));
+    r;
+];
 
-10 # FillList(_item, 0) <-- {};
+20 # DeepCopy(_e) <-- e;
 
-20 # FillList(item_IsList, length_IsPositiveInteger) <-- [
-    Local(i, n, result);
-    result := {};
-    n := Length(item);
-    For(i:=0, i < length, i++)
-        DestructiveInsert(result, 1, Take(item, n));
-    result;
-];
+10 # FillList(_item, 0) <-- {};
 
-30 # FillList(_item, length_IsPositiveInteger) <-- [
+20 # FillList(_item, length_IsPositiveInteger) <-- [
     Local(i, result);
     result := {};
     For(i:=0, i < length, i++)
-        DestructiveInsert(result, 1, item);
+        DestructiveInsert(result, 1, DeepCopy(item));
     result;
 ];
 
-
 /* ***** Drop ***** */
 
 /* Needs to check the parameters */