Changeset 65fb13 in git

Timestamp:

Mar 20, 2018, 3:50:26 PM (5 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

01a1e69963e02904f3ebb7e48ddd938c9489cc76

Parents:

9118cce767324c1d0bde747134d7ee5cae6df8a5

Message:

add: system("GF",p,p,"a") -> create GF(p^n,a)

Location:

Singular

Files:

• extra.cc (modified) (1 diff)
• subexpr.cc (modified) (1 diff)

Singular/extra.cc

@@ -3781 +3781 @@
     }
     else
+/*==================== GF(p,n) ==================================*/
+    if(strcmp(sys_cmd,"GF")==0)
+    {
+      const short t[]={3,INT_CMD,INT_CMD,STRING_CMD};
+      if (iiCheckTypes(h,t,1))
+      {
+        int p=(int)(long)h->Data();
+        int n=(int)(long)h->next->Data();
+        char *v=(char*)h->next->next->CopyD();
+        GFInfo param;
+        param.GFChar = p;
+        param.GFDegree = n;
+        param.GFPar_name = v;
+        coeffs cf= nInitChar(n_GF, &param);
+        res->rtyp=CRING_CMD;
+        res->data=cf;
+        return FALSE;
+      }
+      else
+        return TRUE;
+    }
+    else
 /*==================== power* ==================================*/
     #if 0

Singular/subexpr.cc

@@ -497 +497 @@
       {
         coeffs cf=(coeffs)d;
-        if ((cf->ref<=1)&&
+        if ((cf->ref<1)&&
         ((cf->type <=n_GF)
           ||((cf->type >=n_long_C)&&(cf->type <=n_CF))))