From e2c5191f0c1c249a3a007a7e0b4200d4e0984c3d Mon Sep 17 00:00:00 2001
From: keie <none@none>
Date: Fri, 11 Jan 1985 13:13:56 +0000
Subject: [PATCH] *** empty log message ***

---
 lang/cem/ctest/ctstruct/str.c | 170 ++++++++++++++++++++++++++++++++++
 1 file changed, 170 insertions(+)
 create mode 100644 lang/cem/ctest/ctstruct/str.c

diff --git a/lang/cem/ctest/ctstruct/str.c b/lang/cem/ctest/ctstruct/str.c
new file mode 100644
index 000000000..17884b64e
--- /dev/null
+++ b/lang/cem/ctest/ctstruct/str.c
@@ -0,0 +1,170 @@
+/*
+ * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
+ *
+ *          This product is part of the Amsterdam Compiler Kit.
+ *
+ * Permission to use, sell, duplicate or disclose this software must be
+ * obtained in writing. Requests for such permissions may be sent to
+ *
+ *      Dr. Andrew S. Tanenbaum
+ *      Wiskundig Seminarium
+ *      Vrije Universiteit
+ *      Postbox 7161
+ *      1007 MC Amsterdam
+ *      The Netherlands
+ *
+ */
+
+/* Author: E.G. Keizer */
+
+/* test for structure parameters, assignment and return */
+# define ASIZE 26
+
+struct w1 { int w1_i ; } ;
+struct w2 { int w2_i ; double w2_d ; } ;
+struct w3 { char w3_a[ASIZE] ; double w3_x ; } ;
+
+struct w1 es1 ;
+struct w1 es2[3] ;
+
+main() {
+	asst() ;
+	part() ;
+	callt() ;
+	return 0 ;
+
+}
+
+asst() {
+	/* test structure assignment */
+	struct w1 st1, st2, *st3 ;
+	struct w2 s2t1, s2t2, *s2t3 ;
+	struct w3 s3t1, s3t2, *s3t3 ;
+
+
+	register int i ;
+
+	printf("w1\n") ;
+	st1.w1_i = 506 ;
+	st2 = st1 ;
+	printf("\tst2.w1_i %d\n",st2.w1_i) ;
+	st3 = &st1 ;
+	printf("\t(*st3).w1_i %d\n",(*st3).w1_i) ;
+	es1.w1_i = 711 ;
+	st1 = st2 = es1 ;
+	printf("\tst1.w1_i %d\n",st1.w1_i) ;
+	printf("\tst2.w1_i %d\n",st2.w1_i) ;
+	es2[2] = st1 ;
+	printf("\tes2[2].w1_i %d\n",es2[2].w1_i) ;
+
+	st1.w1_i = -577 ;
+	es1.w1_i = 577 ;
+	for ( i=0 ; i<2 ; i++ ) {
+		st2 = ( i ? st1 : es1 ) ;
+		printf("\tst2.w1_i %d\n",st2.w1_i) ;
+	}
+
+	st1 = ( i , es1 ) ;
+	printf("\tst1.w1_i %d\n",st1.w1_i) ;
+
+	printf("w2\n") ;
+	s2t1.w2_i = 18000 ;
+	s2t1.w2_d = 3.1415 ;
+	s2t2 = s2t1 ;
+	printf("\ts2t2: .w2_i %d .w2_d %f\n",s2t2.w2_i,s2t2.w2_d) ;
+	s2t3 = &s2t2 ;
+	printf("\ts2t3->w2_d %f\n",s2t3->w2_d) ;
+
+	printf("w3\n") ;
+	for ( i = 0 ; i<ASIZE ; i++ ) {
+		s3t1.w3_a[i]= 'a'+i ;
+	}
+	s3t1.w3_x = 1.0 ;
+	s3t2 = s3t1 ;
+	s3t3 = &s3t1 ;
+	for ( i = 0 ; i<ASIZE ; i++ ) {
+		printf("s3t2.w3_a[%2d] %c\n",i,s3t2.w3_a[i]) ;
+	}
+	printf("s3t2.w3_x %f\n",s3t2.w3_x) ;
+	s3t2.w3_x = 1/3.1415 ;
+	for ( i = 0 ; i<ASIZE ; i++ ) {
+		s3t2.w3_a[i]= 'A'+i ;
+	}
+	*s3t3 = s3t2 ;
+	for ( i = 0 ; i<ASIZE ; i++ ) {
+		printf("s3t1.w3_a[%2d] %c\n",i,s3t1.w3_a[i]) ;
+	}
+	printf("s3t1.w3_x %f",s3t1.w3_x) ;
+}
+
+struct w3 epars ;
+
+part() {
+	/* test structure parameters */
+
+	struct w3 pars ;
+
+	register i ;
+
+	for ( i=0 ; i<ASIZE ; i++ ) {
+		pars.w3_a[i]=i+1 ;
+	}
+	pars.w3_x = 2.81 ;
+	printf("\nstructure parameters\n") ;
+	psc(-1,pars,1000) ;
+}
+
+psc(before,str,after) int before, after ; struct w3 str ; {
+	register int i ;
+
+	printf("before %d\n",before) ;
+	for ( i=0 ; i<ASIZE ; i++ ) {
+		printf("str.w3_a[%2d]\t%d\n",i,str.w3_a[i]) ;
+	}
+	printf("str.w3_x %f\n",str.w3_x) ;
+	printf("after %d\n",after) ;
+}
+
+callt() {
+	/* test structure valued functions */
+	extern struct w3 setp1(), setp2() ;
+	struct w3 myp ;
+	register int i ;
+
+	printf("\nStucture valued functions\n") ;
+	myp = setp1(ASIZE) ;
+	printf("myp.w3_a:\n") ;
+	for ( i=0 ; i<ASIZE ; i++ ) {
+		printf("\t%2d\t%d\n",i,myp.w3_a[i]) ;
+	}
+
+
+	myp = setp2() ;
+	for ( i=0 ; i<ASIZE ; i++ ) {
+		printf("\t%2d\t%d\n",i,myp.w3_a[i]) ;
+	}
+}
+
+struct w3 setp1(count) {
+	struct w3 myp ;
+
+	if ( count<0 ) {
+		return(myp) ;
+	}
+	myp = setp1(count-1) ;
+	myp.w3_a[count] = 99-count ;
+	return(myp) ;
+}
+
+static struct w3 myp2 ;
+
+struct w3 setp2() {
+	struct w3 *w3p ;
+	register i ;
+
+	for ( i=0 ; i<ASIZE ; i++ ) {
+		myp2.w3_a[i]= 99+i ;
+	}
+	w3p = &myp2 ;
+	return(*w3p) ;
+}
-- 
2.34.1