OpenXM_contrib2/asir2000/io/cio.c - diff

Return to cio.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / io

version 1.20, 2015/08/18 02:26:05

version 1.21, 2016/03/31 05:30:32

Line 44

* OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/io/cio.c,v 1.19 2015/08/14 13:51:55 fujimoto Exp $

* $OpenXM: OpenXM_contrib2/asir2000/io/cio.c,v 1.20 2015/08/18 02:26:05 noro Exp $

#include "ca.h"

#include "parse.h"

Line 758 void read_cmo_p(FILE *s,P *rp)

P v,p;

VL tvl,rvl;

char *name;

FUNC f;

read_cmo(s,&obj); vlist = (LIST)obj;

nv = length(BDY(vlist));

Line 765 void read_cmo_p(FILE *s,P *rp)

Line 766 void read_cmo_p(FILE *s,P *rp)

for ( i = 0, t = BDY(vlist); i < nv; t = NEXT(t), i++ ) {

/* cmoname_to_localname(BDY((STRING)BDY(t)),&name); */

name = BDY((STRING)BDY(t));

makevar(name,&v); vtab[i] = VR(v);

gen_searchf_searchonly(name,&f,1);

if ( f )

makesrvar(f,&v);

else

makevar(name,&v);

vtab[i] = VR(v);

}

remote_vtab = vtab;

read_cmo(s,&obj); p = (P)obj;