Changeset 70bf188 in git

Timestamp:

Jun 28, 2011, 2:19:31 PM (13 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')

Children:

7959ec93769d80d56f9893f174493c33cfc6a5b1

Parents:

a2dde000d30c3959f561880bd909b298a306bb48

Message:

changing a ring for the interpreter

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

File:

• HOWTO-libsingular (modified) (1 diff)

HOWTO-libsingular

@@ -85 +85 @@
   }
 
+  // changing a ring for the interpreter
+  // re-using n and R from above
+  R=rDefault(32003,3,n);
+  idhdl newRingHdl=enterid("R" /* ring name*/,
+                           0, /*nesting level, 0=global*/
+                           RING_CMD,
+                           &IDROOT,
+                           FALSE);
+   IDRING(newRingHdl)=R;
+   // make R the default ring (include rChangeCurrRing):
+   rSetHdl(newRingHdl);
+   err=iiEStart(omStrDup("poly p=x;listvar();return();\n"),NULL);
+
   // calling a kernel function via the interpreter interface
   sleftv r1; memset(&r1,0,sizeof(r1));