| 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))) ) |
![[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