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     ! 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: }