Initial revision

lang/cem/ctest/ctconv/conv.c

@@ -0,0 +1,114 @@
+/*
+ * (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 */
+
+main() {
+	t1() ;
+	return 0 ;
+}
+
+t1() {
+	char c ; int i ; long l ; unsigned u ; float f ;
+
+	/* test conversions */
+
+	/* first some conversions on constants */
+
+	printf("(int) '\\377' = %d\n",(int) '\377') ;
+	printf("(long) -1 = %ld\n",(long) -1 ) ;
+	printf("(float) 12 = %f\n",(float) 12 ) ;
+	printf("(int) 3.14 = %d\n",(int) 3.14 ) ;
+	printf("(int) 32767L = %d\n",(int) 32767L ) ;
+	printf("(int) -32768L = %d\n",(int) -32768L ) ;
+	printf("(char) 128L = %d\n",(char) 128L) ;
+	printf("(char) 0377 = %d\n",(char) 0377 ) ;
+	printf("(char) -1 = %d\n",(char) -1 ) ;
+	printf("(char) 10000 = %d\n",(char) 10000 ) ;
+
+	/* conversions from characters */
+	printf("From character\n") ;
+	c = 127 ;
+	i=c ;
+	l=c ;
+	u=c ;
+	f=c ;
+	printf("\tchar %5d, int %6d, unsigned %6o, long %11ld, float %f\n",c,i,u,l,f) ;
+	c = -1 ;
+	i=c ;
+	l=c ;
+	u=c ;
+	f=c ;
+	printf("\tchar %5d, int %6d, unsigned %6o, long %11ld, float %f\n",c,i,u,l,f) ;
+	c = 0377 ;
+	i=c ;
+	l=c ;
+	u=c ;
+	f=c ;
+	printf("\tchar %5d, int %6d, unsigned %6o, long %11ld, float %f\n",c,i,u,l,f) ;
+
+	/* from integer */
+	printf("From integer\n") ;
+	i= -64 ;
+	c=i ;
+	l=i ;
+	u=i ;
+	f=i ;
+	printf("\tchar %5d, int %6d, unsigned %6o, long %11ld, float %f\n",c,i,u,l,f) ;
+
+	/* from long */
+	printf("From long\n") ;
+	l = -3 ;
+	c = l ;
+	i = l ;
+	u = l ;
+	f = l ;
+	printf("\tchar %5d, int %6d, unsigned %6o, long %11ld, float %f\n",c,i,u,l,f) ;
+
+	printf("From float\n") ;
+	f = 121.5 ;
+	c = f ;
+	i = f ;
+	u = f ;
+	l = f ;
+	printf("\tchar %5d, int %6d, unsigned %6o, long %11ld, float %f\n",c,i,u,l,f) ;
+	f = 1e-4 ;
+	c = f ;
+	i = f ;
+	u = f ;
+	l = f ;
+	printf("\tchar %5d, int %6d, unsigned %6o, long %11ld, float %f\n",c,i,u,l,f) ;
+	f = 3276.6e1 ;
+	i = f ;
+	u = f ;
+	l = f ;
+	printf("\tint %6d, unsigned %6o, long %11ld, float %f\n",i,u,l,f) ;
+	f = 1223432e3 ;
+	l = f ;
+	printf("\tlong %11ld, float %f\n",l,f) ;
+
+	/* some special cases */
+	{
+		int a[4] ;
+
+		l = 3 ; a[3]= -17 ;
+		printf("a[l] (l==%ld) %d\n",l,a[l]) ;
+		printf("a[3l] %d\n",a[3l] ) ;
+
+	}
+	return 0 ;
+}

lang/cem/ctest/ctconv/conv.cem.g

@@ -0,0 +1,25 @@
+(int) '\377' = 255
+(long) -1 = -1
+(float) 12 = 12.000000
+(int) 3.14 = 3
+(int) 32767L = 32767
+(int) -32768L = -32768
+(char) 128L = 128
+(char) 0377 = 255
+(char) -1 = 255
+(char) 10000 = 16
+From character
+	char   127, int    127, unsigned    177, long         127, float 127.000000
+	char   255, int    255, unsigned    377, long         255, float 255.000000
+	char   255, int    255, unsigned    377, long         255, float 255.000000
+From integer
+	char   192, int    -64, unsigned 177700, long         -64, float -64.000000
+From long
+	char   253, int     -3, unsigned 177775, long          -3, float -3.000000
+From float
+	char   121, int    121, unsigned    171, long         121, float 121.500000
+	char     0, int      0, unsigned      0, long           0, float 0.000100
+	int  32766, unsigned  77776, long       32766, float 32766.000000
+	long  1223432064, float 1223432064.000000
+a[l] (l==3) -17
+a[3l] -17

lang/cem/ctest/ctconv/run

@@ -0,0 +1 @@
+make "P=conv" -fsk ../makefile ${1-gen}