Return to num.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / engine

Annotation of OpenXM_contrib2/asir2000/engine/num.c, Revision 1.1.1.1

1.1       noro        1: /* $OpenXM: OpenXM/src/asir99/engine/num.c,v 1.1.1.1 1999/11/10 08:12:26 noro Exp $ */
                      2: #include "ca.h"
                      3:
                      4: void addnum(vl,a,b,c)
                      5: VL vl;
                      6: Num a,b,*c;
                      7: {
                      8:        (*addnumt[MAX(a?NID(a):0,b?NID(b):0)])(a,b,c);
                      9: }
                     10:
                     11: void subnum(vl,a,b,c)
                     12: VL vl;
                     13: Num a,b,*c;
                     14: {
                     15:        (*subnumt[MAX(a?NID(a):0,b?NID(b):0)])(a,b,c);
                     16: }
                     17:
                     18: void mulnum(vl,a,b,c)
                     19: VL vl;
                     20: Num a,b,*c;
                     21: {
                     22:        (*mulnumt[MAX(a?NID(a):0,b?NID(b):0)])(a,b,c);
                     23: }
                     24:
                     25: void divnum(vl,a,b,c)
                     26: VL vl;
                     27: Num a,b,*c;
                     28: {
                     29:        (*divnumt[MAX(a?NID(a):0,b?NID(b):0)])(a,b,c);
                     30: }
                     31:
                     32: void pwrnum(vl,a,b,c)
                     33: VL vl;
                     34: Num a,b,*c;
                     35: {
                     36:        (*pwrnumt[MAX(a?NID(a):0,b?NID(b):0)])(a,b,c);
                     37: }
                     38:
                     39: void chsgnnum(a,c)
                     40: Num a,*c;
                     41: {
                     42:        (*chsgnnumt[a?NID(a):0])(a,c);
                     43: }
                     44:
                     45: int compnum(vl,a,b)
                     46: VL vl;
                     47: Num a,b;
                     48: {
                     49:        return (*cmpnumt[MAX(a?NID(a):0,b?NID(b):0)])(a,b);
                     50: }