Return to quote.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / parse

Annotation of OpenXM_contrib2/asir2000/parse/quote.c, Revision 1.1

1.1     ! noro        1: #include "ca.h"
        !             2: #include "parse.h"
        !             3:
        !             4: void addquote(vl,a,b,c)
        !             5: VL vl;
        !             6: QUOTE a,b;
        !             7: QUOTE *c;
        !             8: {
        !             9:        FNODE fn;
        !            10:
        !            11:        fn = mkfnode(3,I_BOP,addfs,BDY(a),BDY(b));
        !            12:        MKQUOTE(*c,fn);
        !            13: }
        !            14:
        !            15: void subquote(vl,a,b,c)
        !            16: VL vl;
        !            17: QUOTE a,b;
        !            18: QUOTE *c;
        !            19: {
        !            20:        FNODE fn;
        !            21:
        !            22:        fn = mkfnode(3,I_BOP,subfs,BDY(a),BDY(b));
        !            23:        MKQUOTE(*c,fn);
        !            24: }
        !            25:
        !            26: void mulquote(vl,a,b,c)
        !            27: VL vl;
        !            28: QUOTE a,b;
        !            29: QUOTE *c;
        !            30: {
        !            31:        FNODE fn;
        !            32:
        !            33:        fn = mkfnode(3,I_BOP,mulfs,BDY(a),BDY(b));
        !            34:        MKQUOTE(*c,fn);
        !            35: }
        !            36:
        !            37: void divquote(vl,a,b,c)
        !            38: VL vl;
        !            39: QUOTE a,b;
        !            40: QUOTE *c;
        !            41: {
        !            42:        FNODE fn;
        !            43:
        !            44:        fn = mkfnode(3,I_BOP,divfs,BDY(a),BDY(b));
        !            45:        MKQUOTE(*c,fn);
        !            46: }
        !            47:
        !            48: void pwrquote(vl,a,b,c)
        !            49: VL vl;
        !            50: QUOTE a,b;
        !            51: QUOTE *c;
        !            52: {
        !            53:        FNODE fn;
        !            54:
        !            55:        if ( !b || OID(b) != O_QUOTE )
        !            56:                error("pwrquote : invalid argument");
        !            57:        fn = mkfnode(3,I_BOP,pwrfs,BDY(a),BDY(b));
        !            58:        MKQUOTE(*c,fn);
        !            59: }
        !            60:
        !            61: void chsgnquote(a,c)
        !            62: QUOTE a;
        !            63: QUOTE *c;
        !            64: {
        !            65:        FNODE fn;
        !            66:
        !            67:        fn = mkfnode(3,I_BOP,subfs,0,BDY(a));
        !            68:        MKQUOTE(*c,fn);
        !            69: }