Changeset c728c0 in git


Ignore:
Timestamp:
Feb 9, 2011, 7:54:23 PM (13 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '648d28f488f6ff08f5607ff229b9ad9e4a5b93c2')
Children:
76b37cc99585766333fcee968b6b6dad3541da2c
Parents:
091193e7e2364864e1fb2c03057d6e8181254316
Message:
check for blackbox

git-svn-id: file:///usr/local/Singular/svn/trunk@13836 2c84dea3-7e68-4137-9b89-c4e89433aadc
Location:
Singular
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • Singular/bigintm.cc

    r091193e rc728c0  
    124124      return TRUE;
    125125    }
    126     default:
    127       Werror("op %d not implemented for type %d",op,a1->Typ());
    128       break;
    129126  }
    130   return TRUE;
     127  return blackboxDefaultOp2(op,res,a1,a2);
    131128}
    132129// BOOLEAN opM(int op, leftv res, leftv args)
  • Singular/blackbox.cc

    r091193e rc728c0  
    5353  return TRUE;
    5454}
    55 BOOLEAN blackbox_default_Op2(int op,leftv l, leftv r1, leftv r2)
     55BOOLEAN blackboxDefaultOp2(int op,leftv l, leftv r1, leftv r2)
    5656{
    5757  Werror("blackbox_Op2 of type %s(%d) for op %s(%d) not implemented",
     
    7272}
    7373
     74BOOLEAN blackbox_default_Check(blackbox *b, void *d)
     75{
     76  return FALSE;
     77}
    7478int setBlackboxStuff(blackbox *bb, const char *n)
    7579{
     
    8589  if (bb->blackbox_Copy==NULL)    bb->blackbox_Copy=blackbox_default_Copy;
    8690  if (bb->blackbox_Op1==NULL)     bb->blackbox_Op1=blackboxDefaultOp1;
    87   if (bb->blackbox_Op2==NULL)     bb->blackbox_Op2=blackbox_default_Op2;
     91  if (bb->blackbox_Op2==NULL)     bb->blackbox_Op2=blackboxDefaultOp2;
    8892  if (bb->blackbox_Op3==NULL)     bb->blackbox_Op3=blackbox_default_Op3;
    8993  if (bb->blackbox_OpM==NULL)     bb->blackbox_OpM=blackbox_default_OpM;
     94  if (bb->blackbox_Check==NULL)   bb->blackbox_Check=blackbox_default_Check;
    9095  blackboxTableCnt++;
    9196  return blackboxTableCnt+BLACKBOX_OFFSET-1;
  • Singular/blackbox.h

    r091193e rc728c0  
    3333  /// interpreter: operations with undefined number of operands
    3434  BOOLEAN (*blackbox_OpM)(int op,leftv l, leftv r);
     35  /// check internal structure
     36  BOOLEAN (*blackbox_Check)(blackbox *b,void *d);
    3537  /// additional type info
    3638  void *data;
     
    4042/// default procedure blackboxDefaultOp1, to be called as "default:" branch
    4143BOOLEAN blackboxDefaultOp1(int op,leftv l, leftv r);
     44/// default procedure blackboxDefaultOp2, to be called as "default:" branch
     45BOOLEAN blackboxDefaultOp2(int op,leftv l, leftv r1, leftv r2);
    4246
    4347/// return the structure to the type given by t
Note: See TracChangeset for help on using the changeset viewer.