Changeset 7f30e2 in git for Singular/LIB/parallel.lib

Timestamp:

Nov 25, 2011, 5:22:38 PM (11 years ago)

Author:

Andreas Steenpass <steenpass@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

Children:

f1cfef36a45967a6dc88672e6efc050bf9c592b1

Parents:

4093f96acfcc6419c56ee983c447099c3b87a36e

git-author:

Andreas Steenpass <steenpass@mathematik.uni-kl.de>2011-11-25 17:22:38+01:00

git-committer:

Andreas Steenpass <steenpass@mathematik.uni-kl.de>2012-08-02 18:26:02+02:00

Message:

improve modstd.lib and parallel.lib

modstd.lib:
  - change heuristics for variants
  - parallelize lifting
  - parallelize finding new primes
parallel.lib:
  fix behaviour for several arguments applied to a kernel command

File:

• Singular/LIB/parallel.lib (modified) (3 diffs)

Singular/LIB/parallel.lib

@@ -368 +368 @@
     }
     write(l(i), quote(execute("result = "+eval(commands[k])
-                                    +"(currentargs[1..size(currentargs)]);")));
+      +"("+argsToString("currentargs", size(currentargs))+");")));
     assignment[i] = k;
     k++;
@@ -455 +455 @@
       }
       write(l(wait), quote(execute("def result = "+eval(commands[k])
-                                     +"(currentargs[1..size(currentargs)]);")));
+        +"("+argsToString("currentargs", size(currentargs))+");")));
       assignment[wait] = k;
       k++;
@@ -717 +717 @@
   return(i);
 }
+
+static proc argsToString(string name, int length)
+{
+  string arglist;
+  if(length > 0) {
+    arglist = name+"[1]";
+  }
+  int i;
+  for(i = 2; i <= length; i++) {
+    arglist = arglist+", "+name+"["+string(i)+"]";
+  }
+  return(arglist);
+}