===================================================================
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;
 }