Changeset 49f94f in git for Singular/LIB/ainvar.lib

Timestamp:

Oct 1, 2008, 5:29:23 PM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

238c959ae4616e6b794e6679468a388c696c97fd

Parents:

e9fdf62fe3498dea063e83aeb0033b227a0b08c7

Message:

*hannes: typos reported by gorzel


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

File:

• Singular/LIB/ainvar.lib (modified) (2 diffs)

Singular/LIB/ainvar.lib

@@ -1 @@
-// $Id: ainvar.lib,v 1.8 2006-07-18 12:17:36 Singular Exp $
+// $Id: ainvar.lib,v 1.9 2008-10-01 15:29:23 Singular Exp $
 /////////////////////////////////////////////////////////////////////////////
-version="$Id: ainvar.lib,v 1.8 2006-07-18 12:17:36 Singular Exp $";
+version="$Id: ainvar.lib,v 1.9 2008-10-01 15:29:23 Singular Exp $";
 category="Invariant theory";
 info="
@@ -26 +26 @@
 proc sortier(id)
 "USAGE:   sortier(id);  id ideal/module
-RETURN:  the same ideal/module but with generators ordered by there
-         leading term, starting with the smallest
+RETURN:  the same ideal/module but with generators ordered by their
+         leading terms, starting with the smallest
 EXAMPLE: example sortier; shows an example
 "
 {
   if(size(id)==0)
-  {return(id);
-  }
+  {return(id); }
   intvec i=sortvec(id);
   int j;
   if( typeof(id)=="ideal")
-  { ideal m;
-  }
+  { ideal m; }
   if( typeof(id)=="module")
-  { module m;
-  }
- if( typeof(id)!="ideal" and  typeof(id)!="module")
- { "// input must be of type ideal or module"
-     return();
- }
- for (j=1;j<=size(i);j++)
+  { module m; }
+  if( typeof(id)!="ideal" and  typeof(id)!="module")
+  { ERROR("input must be of type ideal or module"); }
+  for (j=1;j<=size(i);j++)
   {
     m[j] = id[i[j]];