version 1.1.1.1, 1999/12/03 07:39:11 |
version 1.4, 2000/03/28 06:32:22 |
|
|
/* $OpenXM: OpenXM/src/asir99/io/ox.c,v 1.7 1999/11/19 04:15:49 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/io/ox.c,v 1.3 2000/02/08 04:47:11 noro Exp $ */ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
|
#include "signal.h" |
#include "wsio.h" |
#include "wsio.h" |
#include "ox.h" |
#include "ox.h" |
|
|
Line 19 unsigned int ox_serial; |
|
Line 20 unsigned int ox_serial; |
|
int ox_flushing; |
int ox_flushing; |
int ox_batch; |
int ox_batch; |
int ox_check=1; |
int ox_check=1; |
|
int ox_exchange_mathcap=1; |
jmp_buf ox_env; |
jmp_buf ox_env; |
|
|
MATHCAP my_mathcap; |
MATHCAP my_mathcap; |
Line 565 int ox_check_cmo(int s, Obj obj) |
|
Line 567 int ox_check_cmo(int s, Obj obj) |
|
case O_DP: |
case O_DP: |
return ox_check_cmo_dp(s,(DP)obj); |
return ox_check_cmo_dp(s,(DP)obj); |
case O_N: |
case O_N: |
if ( NID((Num)obj) == N_Q ) { |
switch ( NID((Num)obj) ) { |
if ( INT((Q)obj) ) |
case N_Q: |
return check_by_mc(s,OX_DATA,CMO_ZZ); |
if ( INT((Q)obj) ) |
else |
return check_by_mc(s,OX_DATA,CMO_ZZ); |
return check_by_mc(s,OX_DATA,CMO_QQ); |
else |
} else |
return check_by_mc(s,OX_DATA,CMO_QQ); |
return 0; |
case N_R: |
|
return 1; |
|
default: |
|
return 0; |
|
} |
|
break; |
case O_LIST: |
case O_LIST: |
for ( m = BDY((LIST)obj); m; m = NEXT(m) ) |
for ( m = BDY((LIST)obj); m; m = NEXT(m) ) |
if ( !ox_check_cmo(s,(BDY(m))) ) |
if ( !ox_check_cmo(s,(BDY(m))) ) |