| version 1.55, 2006/10/26 10:49:16 |
version 1.56, 2007/11/23 05:43:23 |
|
|
| * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
| * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
| * |
* |
| * $OpenXM: OpenXM_contrib2/asir2000/builtin/array.c,v 1.54 2006/06/17 10:12:06 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/array.c,v 1.55 2006/10/26 10:49:16 noro Exp $ |
| */ |
*/ |
| #include "ca.h" |
#include "ca.h" |
| #include "base.h" |
#include "base.h" |
| Line 391 void Pnewvect(NODE arg,VECT *rp) |
|
| Line 391 void Pnewvect(NODE arg,VECT *rp) |
|
| if ( argc(arg) == 2 ) { |
if ( argc(arg) == 2 ) { |
| list = (LIST)ARG1(arg); |
list = (LIST)ARG1(arg); |
| asir_assert(list,O_LIST,"newvect"); |
asir_assert(list,O_LIST,"newvect"); |
| |
#if 0 |
| for ( r = 0, tn = BDY(list); tn; r++, tn = NEXT(tn) ); |
for ( r = 0, tn = BDY(list); tn; r++, tn = NEXT(tn) ); |
| if ( r > len ) { |
if ( r > len ) { |
| *rp = vect; |
*rp = vect; |
| return; |
return; |
| } |
} |
| |
#endif |
| for ( i = 0, tn = BDY(list), vb = BDY(vect); tn; i++, tn = NEXT(tn) ) |
for ( i = 0, tn = BDY(list), vb = BDY(vect); tn; i++, tn = NEXT(tn) ) |
| vb[i] = (pointer)BDY(tn); |
vb[i] = (pointer)BDY(tn); |
| } |
} |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to array.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / builtin