*** empty log message ***

diff --git a/lang/cem/ctest/ctstruct/str.c b/lang/cem/ctest/ctstruct/str.c
new file mode 100644 (file)
index 0000000..17884b6
--- /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) ;
+}