| 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))) ) |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to ox.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / io