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: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>