Changeset d5add65 in git for Singular/ipid.cc

Timestamp:

Nov 16, 2011, 4:00:01 PM (12 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

b565d4f69d962cf1746a77db46934de7cc17f5e4

Parents:

9875202a2c72496bbc39676b4ca272ba4da36c09

git-author:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2011-11-16 16:00:01+01:00

git-committer:

Martin Lee <martinlee84@web.de>2013-01-18 16:15:04+01:00

Message:

add: names(int level) added

Conflicts:

	Singular/iparith.cc
	Singular/ipid.cc
	Singular/ipid.h

File:

• Singular/ipid.cc (modified) (2 diffs)

Singular/ipid.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
+
 /*
 * ABSTRACT: identfier handling
@@ -519 +520 @@
 }
 
+lists ipNameListLev(idhdl root, int lev)
+{
+  idhdl h=root;
+  /* compute the length */
+  int l=0;
+  while (h!=NULL) { if (IDLEV(h)==lev) l++; h=IDNEXT(h); }
+  /* allocate list */
+  lists L=(lists)omAllocBin(slists_bin);
+  L->Init(l);
+  /* copy names */
+  h=root;
+  l=0;
+  while (h!=NULL)
+  {
+    if (IDLEV(h)==lev)
+    {
+      /* list is initialized with 0 => no need to clear anything */
+      L->m[l].rtyp=STRING_CMD;
+      L->m[l].data=omStrDup(IDID(h));
+      l++;
+    }
+    h=IDNEXT(h);
+  }
+  return L;
+}
+
 /*
 * move 'tomove' from root1 list to root2 list