Changeset 70b4f4 in git for HOWTO-libsingular

Timestamp:

May 20, 2011, 1:07:47 PM (12 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a657104b677b4c461d018cbf3204d72d34ad66a9')

Children:

f6c50d15094fcdfe9d9f134bb3b061760aa62b3e

Parents:

b5cd25f4f43ce3d4a37ddaab1030082d1f09c0b1

Message:

improved libsingular example

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

File:

• HOWTO-libsingular (modified) (3 diffs)

HOWTO-libsingular

@@ -26 +26 @@
 the example:
 #include <libsingular.h>
-void main()
+main()
 {
   // init path names etc.
-  siInit((char *)"/home/hannes/singular-gap/Singular/p_Procs_FieldZp.so");
+  siInit((char *)"/...Singular-3-1-3/Singular/libsingular.so");
 
   // construct the ring Z/32003[x,y,z]
@@ -36 +36 @@
   n[0]=omStrDup("x");
   n[1]=omStrDup("y");
-  n[2]=omStrDup("z");
+  n[2]=omStrDup("z2");
 
   ring R=rDefault(32003,3,n);
@@ -58 +58 @@
   pWrite(p1); 
 
-  // cleanup:
+  // clean up:
   pDelete(&p1);
   rKill(R);
+
+  currentVoice=feInitStdin(NULL);
+  // hook for error handling:
+  // WerrorS_callback=......; of type p(const char *)
+  int err=iiEStart(omStrDup("int ver=system(\"version\");export ver;return();\n"),NULL);
+  if (err) errorreported = 0; // reset error handling
+  printf("interpreter returns %d\n",err);
+  idhdl h=ggetid("ver");
+  if (h!=NULL)
+    printf("singular variable ver of type %d contains %d\n",h->typ,(int)(long)IDDATA(h));
+  else
+    printf("variable ver does not exist\n");
+
+  // calling a singular-library function
+  idhdl datetime=ggetid("datetime");
+  if (datetime==NULL)
+    printf("datetime not found\n");
+  else
+  {
+    leftv res=iiMake_proc(datetime,NULL,NULL);
+    if (res==NULL) { printf("datetime return an error\n"); errorreported = 0; }
+    else           printf("datetime returned type %d, >>%s<<\n",res->Typ(),(char *)res->Data());
+  }
+
+  // calling a kernel function via the interpreter interface
+  sleftv r1; memset(&r1,0,sizeof(r1));
+  sleftv arg; memset(&arg,0,sizeof(r1));
+  arg.rtyp=STRING_CMD;
+  arg.data=omStrDup("huhu");
+  err=iiExprArith1(&r1,&arg,TYPEOF_CMD);
+  printf("interpreter returns %d\n",err);
+  if (err) errorreported = 0; // reset error handling
+  else printf("typeof returned type %d, >>%s<<\n",r1.Typ(),r1.Data());
+  // clean up r1:
+  r1.CleanUp();
 }