Changeset 8f8e18 in git for libpolys

Timestamp:

Jul 28, 2017, 11:33:33 AM (7 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

9c8c05991ae275df479287d61b5f9afae8b8fe5c

Parents:

6310b17eabaf8a6adfd0f335e522b7de83ddd648

Message:

more julia.cc stuff

File:

• libpolys/coeffs/juliacf.cc (modified) (5 diffs)

libpolys/coeffs/juliacf.cc

@@ -38 +38 @@
   jcf_number r=(jcf_number)omAlloc(sizeof(jcf_struct));
   r->val=v;
-  // ????
+  // ????: secure v against gc
+  //       set pos
   return (number)r;
 }
@@ -44 +45 @@
 void jcfFree(jcf_number n,  const coeffs cf)
 {
-  // ???
+  // ??? undo jcfNew
+  omFreeSize((ADDRESS)n,sizeof(jcf_struct));
 }
 
@@ -57 +59 @@
 
 
-static BOOLEAN jcfGreaterZero (number k, const coeffs r)
-{
+static BOOLEAN jcfGreaterZero (number a, const coeffs r)
+{
+  // this is used in the output of polynomials:
+  // GreaterZero(a) <=> '+' is required before a monomial start with a
+  jcf_number aa=(jcf_number)a;
+  jl_value_t *bb = jl_box_int64(0);
+  jl_function_t *func = jl_get_function(jl_base_module, ">");
+  jl_value_t *res=jl_call2(func, aa->val, bb->val);
+  if (jl_unbox_bool(res)) return TRUE;
+  else                    return FALSE;
 }
 
@@ -84 +94 @@
 }
 
-static void jcfDelete)(number * a, const coeffs r)
+static void jcfDelete(number * a, const coeffs r)
 {
   jcf_number aa=(jcf_number)(*a);
@@ -195 +205 @@
   jl_function_t *func = jl_get_function(jl_base_module, "string");
   jl_value_t *res=jl_call1(func, aa->val);
-  // ???
+  // ???: produce the string representaion of a
+  //      and apply it to StringAppendS
   // char *s=jl_unbox_charptr(res);
   // StringAppendS(s);