[dennou-ruby:000441] Re: proto2c

[Naoki Kawanabe <kawanabe@xxxxxx>]

锟斤拷锟斤拷锟秸でわ拷锟斤拷

>锟斤拷锟斤拷锟秸わ拷锟睫★拷
>C 锟斤拷锟斤拷锟斤拷趣锟斤拷违锟斤拷锟斤拷锟斤拷锟斤拷椤umArray 锟斤拷锟街ワ拷锟斤拷锟斤拷锟饺わ拷锟斤拷乜锟斤拷锟�
>锟斤拷锟斤拷锟狡わ拷椁拷蓼锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟疥い锟斤拷锟睫わ拷锟斤拷

PTR2NARY锟剿わ拷锟睫わ拷锟界う锟斤拷锟斤拷趣悉锟斤拷锟绞わ拷韦扦锟斤拷绀︼拷锟斤拷锟�

VALUE
PTR2NARY(double *c_ptr, int size)
{
    BNA *bna;
    NA *n_ary;
    double *dp;
    
    shape = xmalloc(sizeof(int));
    shape[0] = size;

    bna = alloc_bna(tDOUBLE, size);
    dp = bna->ptr;
    dp = c_ptr;

    n_ary = alloc_na(bna, 1, shape); 
    
    return Data_Wrap_Struct(cNumArrayDouble, 0, free_na, n_ary);
}

Ruby锟斤拷锟街ワ拷锟斤拷锟斤拷锟饺わ拷锟街わ拷锟斤拷辘拷锟絥umarray锟轿癸拷陇锟轿わ拷锟街わ拷锟桔わ拷锟斤拷锟斤拷锟斤拷锟斤拷
锟饺わ拷锟斤拷锟绞わ拷

NA *
PTR2NARY(double *c_ptr, int size)
{
    BNA *bna;
    double *dp;

    shape = xmalloc(sizeof(int));
    shape[0] = size;

    bna = alloc_bna(tDOUBLE, size);
    dp = bna->ptr;	
    dp = c_ptr;
    
    return alloc_na(bna, 1, shape); 
}

锟饺わ拷锟斤拷锟斤拷锟剿なわ拷蓼锟斤拷锟斤拷嗓锟斤拷椁拷锟斤拷锟斤拷扦锟斤拷绀︼拷锟斤拷锟�

--------------------------------------------------
 锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟斤拷锟饺彩池革拷锟芥セ锟襟タ★拷
 锟斤拷锟侥革拷锟芥技锟斤拷锟轿ｏ拷锟斤拷锟斤拷  锟斤拷锟斤拷锟斤拷 木锟斤拷  
 e-mail: kawanabe@xxxxxx
--------------------------------------------------