Changeset 8124c2 in git

Timestamp:

May 7, 1998, 5:25:19 PM (25 years ago)

Author:

Jens Schmidt <schmidt@…>

Branches:

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

Children:

d3e360e83253aed6abe1b84a4aade310e0c2c926

Parents:

d48da699b92b698bc47c56fba783c9cf60ba8624

Message:

	* factorize.m4 (main): accepts optional variable now


git-svn-id: file:///usr/local/Singular/svn/trunk@1647 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• factory/ftest/factorize.m4 (modified) (3 diffs)

factory/ftest/factorize.m4

@@ -1 +1 @@
 /* emacs edit mode for this file is -*- C++ -*- */
-/* $Id: factorize.m4,v 1.1 1997-11-05 16:11:06 schmidt Exp $ */
+/* $Id: factorize.m4,v 1.2 1998-05-07 15:25:19 schmidt Exp $ */
 
 ftestSetNameOfGame( factorize, `"
-Usage: factorize [<options>] [<envSpec>] <f>
-  factorizes canonical form f.
+Usage: factorize [<options>] [<envSpec>] <f> [<v>]
+  factorizes canonical form <f>.
+  If algebraic variable <v> is specified, factorizes in
+  algebraic extension by <v>.
 "'`' )
 
@@ -34 +36 @@
     ftestOutVar( CFFList, result );
     ftestInVar( CanonicalForm, f );
+    ftestInVar( Variable, v );
 
     // process argument list and set environment
@@ -39 +42 @@
     ftestGetEnv();
     ftestGetInVar( f );
+    ftestGetInVar( v, Variable() );
 
     // do the test!
-    ftestRun(
-        result = factorize( f ); );
+    if ( ftestArgGiven( v ) ) {
+        ftestRun( result = factorize( f, v ); );
+    } else {
+        ftestRun( result = factorize( f ); );
+    }
 
     // print results
-    ftestOutput( "factorize(f)", result );
+    if ( ftestArgGiven( v ) ) {
+        ftestOutput( "factorize(f, v)", result );
+    } else {
+        ftestOutput( "factorize(f)", result );
+    }
 
     // clean up