| version 1.188, 2010/04/26 01:10:04 |
version 1.189, 2010/05/06 09:22:09 |
|
|
| /* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.187 2010/04/26 01:06:22 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.188 2010/04/26 01:10:04 noro Exp $ */ |
| |
|
| #include "nd.h" |
#include "nd.h" |
| |
|
| Line 6967 void parse_nd_option(NODE opt) |
|
| Line 6967 void parse_nd_option(NODE opt) |
|
| if ( !value || OID(value) != O_LIST ) |
if ( !value || OID(value) != O_LIST ) |
| error("nd_* : invalid value for gbblock option"); |
error("nd_* : invalid value for gbblock option"); |
| u = BDY((LIST)value); |
u = BDY((LIST)value); |
| nd_gbblock = MALLOC(2*length(t)+1); |
nd_gbblock = MALLOC((2*length(u)+1)*sizeof(int)); |
| for ( i = 0; u; u = NEXT(u) ) { |
for ( i = 0; u; u = NEXT(u) ) { |
| p = BDY((LIST)BDY(u)); |
p = BDY((LIST)BDY(u)); |
| s = nd_gbblock[i++] = QTOS((Q)BDY(p)); |
s = nd_gbblock[i++] = QTOS((Q)BDY(p)); |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to nd.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / engine