=================================================================== RCS file: /home/cvs/OpenXM_contrib2/asir2000/parse/struct.c,v retrieving revision 1.2 retrieving revision 1.9 diff -u -p -r1.2 -r1.9 --- OpenXM_contrib2/asir2000/parse/struct.c 2000/08/21 08:31:47 1.2 +++ OpenXM_contrib2/asir2000/parse/struct.c 2018/03/29 01:32:54 1.9 @@ -23,7 +23,7 @@ * shall be made on your publication or presentation in any form of the * results obtained by use of the SOFTWARE. * (4) In the event that you modify the SOFTWARE, you shall notify FLL by - * e-mail at risa-admin@flab.fujitsu.co.jp of the detailed specification + * e-mail at risa-admin@sec.flab.fujitsu.co.jp of the detailed specification * for such modification or the source code of the modified part of the * SOFTWARE. * @@ -45,7 +45,7 @@ * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. * - * $OpenXM: OpenXM_contrib2/asir2000/parse/struct.c,v 1.1.1.1 1999/12/03 07:39:12 noro Exp $ + * $OpenXM: OpenXM_contrib2/asir2000/parse/struct.c,v 1.8 2017/02/07 08:30:31 noro Exp $ */ #include "ca.h" #include "parse.h" @@ -54,231 +54,109 @@ struct oSS oLSS; SS LSS = &oLSS; -void structdef(name,member) -char *name; -NODE member; +int structdef(char *name,NODE member) { - int i,j,k,type; - SDEF sdef,s; - NODE n,ms; - char *mname,*sname; + int i,j; + SDEF sdef,s; + NODE n; + char *mname; - for ( s = LSS->sa, i = 0; i < LSS->n; i++ ) - if ( !strcmp(s[i].name,name) ) { - fprintf(stderr,"redeclaration of %s\n",name); break; - } - if ( !LSS->sa || ((i == LSS->n)&&(LSS->n==LSS->asize)) ) - reallocarray((char **)&LSS->sa,(int *)&LSS->asize,(int *)&LSS->n,(int)sizeof(struct oSDEF)); - sdef = &LSS->sa[i]; - if ( i == LSS->n ) - LSS->n++; - for ( i = 0, n = member; n; n = NEXT(n), i++ ); - sdef->name = (char *)MALLOC(strlen(name)+1); - bcopy(name,sdef->name,strlen(name)+1); - for ( j = 0, n = member; n; n = NEXT(n) ) - for ( ms = NEXT((NODE)BDY(n)); ms; ms = NEXT(ms), j++ ); - sdef->n = j; - sdef->f = (struct oFIELD *)MALLOC(sdef->n*sizeof(struct oFIELD)); - for ( j = 0, n = member; n; n = NEXT(n) ) { - ms = (NODE)BDY(n); - if ( sname = (char *)BDY(ms) ) { - for ( s = LSS->sa, k = 0; k < LSS->n; k++ ) - if ( !strcmp(s[k].name,sname) ) - break; - if ( k == LSS->n ) { - fprintf(stderr,"%s: undefined structure\n",sname); return; - } else - type = k; - } else - type = -1; - for ( ms = NEXT(ms); ms; ms = NEXT(ms), j++ ) { - mname = (char *)MALLOC(strlen(BDY(ms))+1); - bcopy(BDY(ms),mname,strlen(BDY(ms))+1); - sdef->f[j].name = mname; sdef->f[j].type = type; - } - } + /* search the predefined structure */ + for ( s = LSS->sa, i = 0; i < LSS->n; i++ ) + if ( !strcmp(s[i].name,name) ) { + fprintf(stderr,"redeclaration of %s\n",name); break; + } + if ( !LSS->sa || ((i == LSS->n)&&(LSS->n==LSS->asize)) ) + asir_reallocarray((char **)&LSS->sa,(int *)&LSS->asize,(int *)&LSS->n,(int)sizeof(struct oSDEF)); + /* sdef = room for new structure definition */ + sdef = &LSS->sa[i]; + if ( i == LSS->n ) + LSS->n++; + /* set the name of structure */ + sdef->name = (char *)MALLOC(strlen(name)+1); + bcopy(name,sdef->name,strlen(name)+1); + /* count the total number of members */ + for ( j = 0, n = member; n; n = NEXT(n), j++ ); + sdef->n = j; + sdef->member = (char **)MALLOC(sdef->n*sizeof(char *)); + /* set the names of members */ + for ( j = 0, n = member; n; n = NEXT(n), j++ ) { + mname = (char *)MALLOC(strlen((char *)BDY(n))+1); + bcopy((char *)BDY(n),mname,strlen((char *)BDY(n))+1); + sdef->member[j] = mname; + } + return i; } -void setstruct(name,vars) -char *name; -NODE vars; +void newstruct(int type,COMP *rp) { - SDEF s; - int i; - NODE n; - - for ( s = LSS->sa, i = 0; i < LSS->n; i++ ) - if ( !strcmp(s[i].name,name) ) - break; - if ( i == LSS->n ) { - fprintf(stderr,"%s: undefined structure\n",name); return; - } - s = &LSS->sa[i]; - for ( n = vars; n; n = NEXT(n) ) - CPVS->va[(int)BDY(n)].type = i; + if ( type < 0 || type >= LSS->n ) error(""); + NEWCOMP(*rp,LSS->sa[type].n); (*rp)->type = type; } -void newstruct(type,rp) -int type; -COMP *rp; +int structtoindex(char *name) { - NEWCOMP(*rp,LSS->sa[type].n); (*rp)->type = type; -} + SDEF s; + int i; -int structtoindex(name) -char *name; -{ - SDEF s; - int i; - - for ( s = LSS->sa, i = 0; i < LSS->n; i++ ) - if ( !strcmp(s[i].name,name) ) - break; - if ( i == LSS->n ) { - fprintf(stderr,"%s: undefined structure\n",name); return -1; /* XXX */ - } else - return i; + for ( s = LSS->sa, i = 0; i < LSS->n; i++ ) + if ( !strcmp(s[i].name,name) ) + break; + if ( i == LSS->n ) { + fprintf(stderr,"%s: undefined structure\n",name); return -1; /* XXX */ + } else + return i; } -int membertoindex(type,name) -int type; -char *name; +int membertoindex(int type,char *name) { - SDEF s; - FIELD f; - int i; + SDEF s; + char **member; + int i; - s = &LSS->sa[type]; - for ( f = s->f, i = 0; i < s->n; i++ ) - if ( !strcmp(f[i].name,name) ) - break; - if ( i == s->n ) { - fprintf(stderr,"structure has no member named `%s'\n",name); - return -1; - } else - return i; + s = &LSS->sa[type]; + for ( member = s->member, i = 0; i < s->n; i++ ) + if ( !strcmp(member[i],name) ) + break; + if ( i == s->n ) + return -1; + else + return i; } -int indextotype(type,index) -int type,index; +int getcompsize(int type) { - return LSS->sa[type].f[index].type; + return LSS->sa[type].n; } -int gettype(index) -unsigned int index; +Obj memberofstruct(COMP a,char *name) { - if ( MSB & index ) - return (int)GPVS->va[index&~MSB].type; - else - return (int)CPVS->va[index].type; -} + int type,ind; + char buf[BUFSIZ]; -int getcompsize(type) -int type; -{ - return LSS->sa[type].n; + if ( !a || OID(a) != O_COMP ) + error("object is not a structure"); + type = a->type; + ind = membertoindex(type,name); + if ( ind < 0 ) { + sprintf(buf,"structure has no member named `%s'",name); + error(buf); + } + return (Obj)a->member[ind]; } -void getmember(expr,memp) -FNODE expr; -Obj *memp; +void assign_to_member(COMP a,char *name,Obj obj) { - int i; - FNODE root; - COMP t; - PV v0; - NODE2 mchain; + int type,ind; + char buf[BUFSIZ]; - root = (FNODE)FA1(expr); mchain = (NODE2)FA2(expr); - if ( ID(root) == I_PVAR ) { - i = (int)FA0(root); - v0 = i>=0?&CPVS->va[(unsigned int)i]:&GPVS->va[((unsigned int)i)&~MSB]; - t = (COMP)v0->priv; - } else - t = (COMP)eval(root); - for ( ; mchain; mchain = NEXT(mchain) ) - t = (COMP)(t->member[(int)BDY1(mchain)]); - *memp = (Obj)t; -} - -void getmemberp(expr,addrp) -FNODE expr; -Obj **addrp; -{ - int i; - FNODE root; - COMP t; - PV v0; - COMP *addr; - NODE2 mchain; - - root = (FNODE)FA1(expr); mchain = (NODE2)FA2(expr); - if ( ID(root) == I_PVAR ) { - i = (int)FA0(root); - v0 = i>=0?&CPVS->va[(unsigned int)i]:&GPVS->va[((unsigned int)i)&~MSB]; - addr = (COMP *)&v0->priv; - } else { - t = (COMP)eval(root); - addr = (COMP *)&t; - } - for ( ; mchain; mchain = NEXT(mchain) ) - addr = (COMP *)&((*addr)->member[(int)BDY1(mchain)]); - *addrp = (Obj *)addr; -} - -void getarrayp(a,ind,addrp) -Obj a; -NODE ind; -Obj **addrp; -{ - Obj len,row,col; - Obj *addr; - - switch ( OID(a) ) { - case O_VECT: - len = (Obj)BDY(ind); - if ( !rangecheck(len,((VECT)a)->len) ) - error("getarrayp : Out of range"); - else - addr = (Obj *)&(BDY((VECT)a)[QTOS((Q)len)]); - break; - case O_MAT: - row = (Obj)BDY(ind); col = (Obj)BDY(NEXT(ind)); - if ( !rangecheck(row,((MAT)a)->row) - || !rangecheck(col,((MAT)a)->col) ) - error("getarrayp : Out of range"); - else - addr = (Obj *)&(BDY((MAT)a)[QTOS((Q)row)][QTOS((Q)col)]); - break; - default: - addr = 0; - break; - } - *addrp = addr; -} - -void memberofstruct(pexpr,name,exprp) -FNODE pexpr; -char *name; -FNODE *exprp; -{ - NODE2 n,*np; - int type,ind; - - if ( pexpr->id != I_CAST ) { - if ( pexpr->id == I_PVAR ) - pexpr = (FNODE)mkfnode(3,I_CAST,gettype((unsigned int)pexpr->arg[0]),pexpr,0); - else - error("memberofstruct : ???"); - } - if ( !pexpr->arg[2] ) { - np = (NODE2 *)&(pexpr->arg[2]); type = (int)pexpr->arg[0]; - } else { - for ( n = (NODE2)pexpr->arg[2]; NEXT(n); n = NEXT(n) ); - np = &NEXT(n); type = (int)BDY2(n); - } - ind = membertoindex(type,name); - MKNODE2(*np,ind,indextotype(type,ind),0); - *exprp = pexpr; + if ( !a || OID(a) != O_COMP ) + error("object is not a structure"); + type = a->type; + ind = membertoindex(type,name); + if ( ind < 0 ) { + sprintf(buf,"structure has no member named `%s'",name); + error(buf); + } + a->member[ind] = obj; }