Changeset 4ad636 in git

Timestamp:

Dec 12, 2008, 6:19:59 PM (15 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

148455ccfcf8b41197478663486901ebf24ab661

Parents:

81b85b4555ad8c8181b96feb0ccf68fe7f607a0e

Message:

*hannes: duplicate proc name: shortid->shortid_L


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

File:

• Singular/LIB/groups.lib (modified) (7 diffs)

Singular/LIB/groups.lib

@@ -1 @@
-// $Id: groups.lib,v 1.3 2005-05-06 14:38:34 hannes Exp $
+// $Id: groups.lib,v 1.4 2008-12-12 17:19:59 Singular Exp $
 //(GP, last modified 26.10.01)
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: groups.lib,v 1.3 2005-05-06 14:38:34 hannes Exp $";
+version="$Id: groups.lib,v 1.4 2008-12-12 17:19:59 Singular Exp $";
 category="Applications";
 info="
@@ -331 +331 @@
          {
             "split";
-            pr=splitS1(shortid(K,3),2);
+            pr=splitS1(shortid_L(K,3),2);
             q=pr[1];
             qr=insResult(qr,pr[2]);
@@ -387 +387 @@
                "split again";
                K=q[1];
-               J=shortid(K,3+n);
+               J=shortid_L(K,3+n);
                pr=splitS1(J,5);
                if(size(pr[1])>1)
@@ -468 +468 @@
    option(redThrough);
    option(contentSB);
-   ideal J=shortid(I,3);
+   ideal J=shortid_L(I,3);
    ideal K;
    number n;
@@ -612 +612 @@
          qr=insResult(qr,pr[2]);
          "in splitting";
-         J=shortid(J,3);
+         J=shortid_L(J,3);
          pr=splitS(J,s);
          l=pr[1];
@@ -745 +745 @@
       p[k]=pr[1];
       qr=insResult(qr,pr[2]);
-      J=shortid(p[k],1);
+      J=shortid_L(p[k],1);
       if((size(J)>0)&&(deg(J[1])>=1))
       {
@@ -1008 +1008 @@
 ///////////////////////////////////////////////////////////////////////////////
 
-static proc shortid (ideal id,int n)
+static proc shortid_L (ideal id,int n)
 {
   ideal Lc;