version 1.3, 2000/02/08 04:47:11 |
version 1.4, 2000/03/28 06:32:22 |
|
|
/* $OpenXM: OpenXM_contrib2/asir2000/io/ox.c,v 1.2 2000/01/26 02:05:34 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 "signal.h" |
Line 567 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))) ) |