DIRECTORY ExpressProc, ExpressTree, RealFns USING [Sin]; ExpressProcExampleClient: CEDAR PROGRAM IMPORTS ExpressProc, ExpressTree, RealFns ~ { OPEN ET: ExpressTree; Test2: PROC [] RETURNS [proc: PROC ANY RETURNS ANY] ~ { tree: ET.XTree _ ET.ApplyTrinOp [ $If, ET.ApplyBinOp [ $GT, ET.XTreeFromId[$Id1], ET.XTreeFromConstant[.5] ], ET.ApplyFcn [ RealFns.Sin, LIST [ET.XTreeFromId[$Id1]] ], ET.ApplyUnOp [ $Negate, ET.XTreeFromId[$Id2] ] ]; proc _ ExpressProc.GetProc[tree]; }; Test: PROC [] RETURNS [proc: PROC ANY RETURNS ANY] ~ { tree: ET.XTree _ ET.XTreeFromId[$Id4]; proc _ ExpressProc.GetProc[tree]; }; }. †ExpressProcExampleClient.mesa Created July 11, 1984 10:24:42 pm PDT Last edited by Eric Nickell, July 18, 1984 1:23:39 pm PDT ĘJ˜™J™%J™9J™—šĪk ˜ J˜ J˜ Jšœœ˜J˜—šœ ˜'Jšœ"˜)Jšœ˜Jšœœ˜—J˜šĪnœœœœœœœ˜7šœœ œ˜!J˜šœ ˜J˜Jšœ˜Jšœ˜J˜—šœ ˜ J˜ Jšœœ˜J˜—šœ ˜J˜J˜J˜—J˜—Jšœ!˜!J˜J˜—šžœœœœœœœ˜6Jšœœ œ˜&Jšœ!˜!J˜J˜—Jšœ˜—…—h8