Changeset 06babc in git


Ignore:
Timestamp:
Dec 17, 2008, 4:10:37 PM (16 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '79dfb9a6d258bfeb991428bdb25b8f55e9e809b2')
Children:
c13fbe98a2d05c35998930d431996de46717415f
Parents:
5d68a6461c92be4d1e47a759b7bafae1be5ffb12
Message:
*hannes: GF test


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

Legend:

Unmodified
Added
Removed
  • Singular/extra.cc

    r5d68a6 r06babc  
    22*  Computer Algebra System SINGULAR      *
    33*****************************************/
    4 /* $Id: extra.cc,v 1.285 2008-11-13 14:06:07 Singular Exp $ */
     4/* $Id: extra.cc,v 1.286 2008-12-17 15:10:37 Singular Exp $ */
    55/*
    66* ABSTRACT: general interface to internals of Singular ("system" command)
     
    5454#include "prCopy.h"
    5555#include "mpr_complex.h"
     56#include "ffields.h" // test GF only
    5657
    5758#ifdef HAVE_RINGS
     
    23192320#endif
    23202321/*==================== GF =================*/
    2321 #if 0
     2322#if 0 // for testing only
    23222323    if (strcmp(sys_cmd, "GF") == 0)
    23232324    {
    2324       int c=rChar(currRing);
    2325       setCharacteristic( c, 2);
    2326       CanonicalForm F( convSingGFClapGF( (poly)h->Data() ) );
    2327       res->rtyp=POLY_CMD;
    2328       res->data=convClapGFSingGF( F );
    2329       return FALSE;
     2325      if ((h!=NULL) && (h->Typ()==POLY_CMD))
     2326      {
     2327        int c=rChar(currRing);
     2328        setCharacteristic( c,nfMinPoly[0], currRing->parameter[0][0] );
     2329        CanonicalForm F( convSingGFFactoryGF( (poly)h->Data() ) );
     2330        res->rtyp=POLY_CMD;
     2331        res->data=convFactoryGFSingGF( F );
     2332        return FALSE;
     2333      }
     2334      else { Werror("wrong typ"); return TRUE;}
    23302335    }
    23312336    else
Note: See TracChangeset for help on using the changeset viewer.