version 1.12, 2001/09/03 01:04:28 |
version 1.13, 2001/09/03 07:01:10 |
|
|
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* |
* |
* $OpenXM: OpenXM_contrib2/asir2000/parse/eval.c,v 1.11 2001/08/31 02:47:19 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/parse/eval.c,v 1.12 2001/09/03 01:04:28 noro Exp $ |
*/ |
*/ |
#include <ctype.h> |
#include <ctype.h> |
#include "ca.h" |
#include "ca.h" |
|
|
FNODE f1; |
FNODE f1; |
UP2 up2; |
UP2 up2; |
UP up; |
UP up; |
|
UM um; |
GF2N gf2n; |
GF2N gf2n; |
GFPN gfpn; |
GFPN gfpn; |
|
GFSN gfsn; |
|
|
#if defined(VISUAL) |
#if defined(VISUAL) |
if ( recv_intr ) { |
if ( recv_intr ) { |
|
|
break; |
break; |
case I_GFPNGEN: |
case I_GFPNGEN: |
up = UPALLOC(1); |
up = UPALLOC(1); |
up->d=1; |
DEG(up)=1; |
up->c[0] = 0; |
COEF(up)[0] = 0; |
up->c[1] = (Num)ONELM; |
COEF(up)[1] = (Num)ONELM; |
MKGFPN(up,gfpn); |
MKGFPN(up,gfpn); |
val = (pointer)gfpn; |
val = (pointer)gfpn; |
|
break; |
|
case I_GFSNGEN: |
|
um = UMALLOC(1); |
|
DEG(um) = 1; |
|
COEF(um)[0] = 0; |
|
COEF(um)[1] = _onesf(); |
|
MKGFSN(um,gfsn); |
|
val = (pointer)gfsn; |
break; |
break; |
case I_STR: |
case I_STR: |
MKSTR(str,FA0(f)); val = (pointer)str; break; |
MKSTR(str,FA0(f)); val = (pointer)str; break; |