Return to subst.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

Annotation of OpenXM_contrib2/asir2000/builtin/subst.c, Revision 1.1.1.1

1.1       noro        1: /* $OpenXM: OpenXM/src/asir99/builtin/subst.c,v 1.1.1.1 1999/11/10 08:12:26 noro Exp $ */
                      2: #include "ca.h"
                      3: #include "parse.h"
                      4:
                      5: void Psubst(), Ppsubst(), Psubstf();
                      6:
                      7: struct ftab subst_tab[] = {
                      8:        {"subst",Psubst,-99999999},
                      9:        {"psubst",Ppsubst,-99999999},
                     10:        {"substf",Psubstf,-99999999},
                     11:        {0,0,0},
                     12: };
                     13:
                     14: void Psubst(arg,rp)
                     15: NODE arg;
                     16: Obj *rp;
                     17: {
                     18:        Obj a,b,t;
                     19:        LIST l;
                     20:        V v;
                     21:
                     22:        if ( !arg ) {
                     23:                *rp = 0; return;
                     24:        }
                     25:        asir_assert(ARG0(arg),O_R,"subst");
                     26:        reductr(CO,(Obj)ARG0(arg),&a);
                     27: /*     a = (Obj)ARG0(arg); */
                     28:        arg = NEXT(arg);
                     29:        if ( arg && (l = (LIST)ARG0(arg)) && OID(l) == O_LIST )
                     30:                arg = BDY(l);
                     31:        while ( arg ) {
                     32:                asir_assert(BDY(arg),O_P,"subst");
                     33:                v = VR((P)BDY(arg)); arg = NEXT(arg);
                     34:                if ( !arg )
                     35:                        error("subst : invalid argument");
                     36:                asir_assert(ARG0(arg),O_R,"subst");
                     37:                reductr(CO,(Obj)BDY(arg),&b); arg = NEXT(arg);
                     38: /*             b = (Obj)BDY(arg); arg = NEXT(arg); */
                     39:                substr(CO,0,a,v,b,&t); a = t;
                     40:        }
                     41:        *rp = a;
                     42: }
                     43:
                     44: void Ppsubst(arg,rp)
                     45: NODE arg;
                     46: Obj *rp;
                     47: {
                     48:        Obj a,b,t;
                     49:        LIST l;
                     50:        V v;
                     51:
                     52:        if ( !arg ) {
                     53:                *rp = 0; return;
                     54:        }
                     55:        asir_assert(ARG0(arg),O_R,"psubst");
                     56:        reductr(CO,(Obj)ARG0(arg),&a);
                     57: /*     a = (Obj)ARG0(arg); */
                     58:        arg = NEXT(arg);
                     59:        if ( arg && (l = (LIST)ARG0(arg)) && OID(l) == O_LIST )
                     60:                arg = BDY(l);
                     61:        while ( arg ) {
                     62:                asir_assert(BDY(arg),O_P,"psubst");
                     63:                v = VR((P)BDY(arg)); arg = NEXT(arg);
                     64:                if ( !arg )
                     65:                        error("psubst : invalid argument");
                     66:                asir_assert(ARG0(arg),O_R,"psubst");
                     67:                reductr(CO,(Obj)BDY(arg),&b); arg = NEXT(arg);
                     68: /*             b = (Obj)BDY(arg); arg = NEXT(arg); */
                     69:                substr(CO,1,a,v,b,&t); a = t;
                     70:        }
                     71:        *rp = a;
                     72: }
                     73:
                     74: void Psubstf(arg,rp)
                     75: NODE arg;
                     76: Obj *rp;
                     77: {
                     78:        Obj a,t;
                     79:        LIST l;
                     80:        V v,f;
                     81:
                     82:        if ( !arg ) {
                     83:                *rp = 0; return;
                     84:        }
                     85:        asir_assert(ARG0(arg),O_R,"substf");
                     86:        reductr(CO,(Obj)ARG0(arg),&a);
                     87: /*     a = (Obj)ARG0(arg); */
                     88:        arg = NEXT(arg);
                     89:        if ( arg && (l = (LIST)ARG0(arg)) && OID(l) == O_LIST )
                     90:                arg = BDY(l);
                     91:        while ( arg ) {
                     92:                asir_assert(BDY(arg),O_P,"substf");
                     93:                v = VR((P)BDY(arg)); arg = NEXT(arg);
                     94:                if ( !arg || (int)v->attr != V_SR )
                     95:                        error("substf : invalid argument");
                     96:                f = VR((P)BDY(arg)); arg = NEXT(arg);
                     97:                if ( (int)f->attr != V_SR )
                     98:                        error("substf : invalid argument\n");
                     99:                substfr(CO,a,((FUNC)v->priv)->f.puref,((FUNC)f->priv)->f.puref,&t);
                    100:                a = t;
                    101:        }
                    102:        *rp = a;
                    103: }