Return to alg.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / engine

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

1.1       noro        1: /* $OpenXM: OpenXM/src/asir99/engine/alg.c,v 1.1.1.1 1999/11/10 08:12:26 noro Exp $ */
                      2: #include "ca.h"
                      3: #include "base.h"
                      4:
                      5: extern VL ALG;
                      6:
                      7: Obj ToAlg();
                      8:
                      9: Obj ToAlg(a)
                     10: Num a;
                     11: {
                     12:        Obj t;
                     13:
                     14:        if ( !a || (NID(a) != N_A) )
                     15:                t = (Obj)a;
                     16:        else
                     17:                t = BDY((Alg)a);
                     18:        return t;
                     19: }
                     20:
                     21: void addalg(a,b,c)
                     22: Num a,b,*c;
                     23: {
                     24:        Obj t;
                     25:        Alg r;
                     26:
                     27:        addr(ALG,ToAlg(a),ToAlg(b),&t); MKAlg(t,r); *c = (Num)r;
                     28: }
                     29:
                     30: void subalg(a,b,c)
                     31: Num a,b,*c;
                     32: {
                     33:        Obj t;
                     34:        Alg r;
                     35:
                     36:        subr(ALG,ToAlg(a),ToAlg(b),&t); MKAlg(t,r); *c = (Num)r;
                     37: }
                     38:
                     39: void mulalg(a,b,c)
                     40: Num a,b,*c;
                     41: {
                     42:        Obj t;
                     43:        Alg r;
                     44:
                     45:        mulr(ALG,ToAlg(a),ToAlg(b),&t); MKAlg(t,r); *c = (Num)r;
                     46: }
                     47:
                     48: void divalg(a,b,c)
                     49: Num a,b,*c;
                     50: {
                     51:        Obj t;
                     52:        Alg r;
                     53:
                     54:        divr(ALG,ToAlg(a),ToAlg(b),&t); MKAlg(t,r); *c = (Num)r;
                     55: }
                     56:
                     57: void chsgnalg(a,c)
                     58: Num a,*c;
                     59: {
                     60:        Obj t;
                     61:        Alg r;
                     62:
                     63:        chsgnr(ToAlg(a),&t); MKAlg(t,r); *c = (Num)r;
                     64: }
                     65:
                     66: void pwralg(a,b,c)
                     67: Num a,b,*c;
                     68: {
                     69:        Obj t;
                     70:        Alg r;
                     71:
                     72:        pwrr(ALG,ToAlg(a),(Obj)b,&t); MKAlg(t,r); *c = (Num)r;
                     73: }
                     74:
                     75: int cmpalg(a,b)
                     76: Num a,b;
                     77: {
                     78:        return compr(ALG,ToAlg(a),ToAlg(b));
                     79: }