Changeset 29299e in git for Singular

Timestamp:

Nov 13, 2006, 12:36:31 PM (18 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')

Children:

11a4417493a03a79effa983f174d085bb0c77f5e

Parents:

7e6727cb6f504e34aa0527cb245dd36801940f69

Message:

*hannes: attrib(global)


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

File:

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

Singular/LIB/ring.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: ring.lib,v 1.28 2006-11-09 09:00:09 Singular Exp $";
+version="$Id: ring.lib,v 1.29 2006-11-13 11:36:31 Singular Exp $";
 category="General purpose";
 info="
@@ -561 +561 @@
 
 proc ord_test (r)
-"USAGE:   ord_test(r);  r ring
+"USAGE:   ord_test(r);  r ring/qring
 RETURN:  int 1 (resp. -1, resp. 0) if ordering of r is global (resp. local,
          resp. mixed)
@@ -567 +567 @@
 "
 {
-   if (typeof(r) != "ring")
+   if ((typeof(r) != "ring") or (typeof(r) != "qring"))
    {
       "// ord_test requires a ring as input";
       return();
    }
+   if (attrib(r,"global")==1) { return(1);}
    def BAS = basering;
    setring r;