Changeset 1ae39f6e for src

Timestamp:

Aug 24, 2017, 3:08:38 PM (7 years ago)

Author:

Peter A. Buhr <pabuhr@…>

Branches:

ADT, aaron-thesis, arm-eh, ast-experimental, cleanup-dtors, deferred_resn, demangler, enum, forall-pointer-decay, jacob/cs343-translation, jenkins-sandbox, master, new-ast, new-ast-unique-expr, new-env, no_list, persistent-indexer, pthread-emulation, qualifiedEnum, resolv-new, with_gc

Children:

3eab308c

Parents:

a4d9b77

Message:

change gmp to use references, add fstream_test to tests

Location:

src

Files:

• libcfa/gmp (modified) (2 diffs)
• tests/.expect/fstream_test.txt (added)
• tests/.expect/gmp.txt (moved) (moved from src/tests/.expect/64/gmp.txt) (1 diff)
• tests/.in/fstream_test.txt (added)
• tests/.in/gmp.txt (added)
• tests/fstream_test.c (modified) (2 diffs)
• tests/gmp.c (modified) (2 diffs)

src/libcfa/gmp

@@ -10 +10 @@
 // Created On       : Tue Apr 19 08:43:43 2016
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Fri Jul  7 09:33:20 2017
-// Update Count     : 15
+// Last Modified On : Thu Aug 24 09:24:51 2017
+// Update Count     : 16
 //
 
@@ -252 +252 @@
 // I/O
 static inline forall( dtype istype | istream( istype ) )
-istype * ?|?( istype * is, Int * mp ) {
-        gmp_scanf( "%Zd", mp );
+istype * ?|?( istype * is, Int & mp ) {
+        gmp_scanf( "%Zd", &mp );
         return is;
 } // ?|?

src/tests/.expect/gmp.txt

@@ -27 +27 @@
 16666666666666666666, 2 16666666666666666666, 2
 x:16666666666666666666 y:2
+
+12345678901234567890123456789 12345678901234567890123456789 12345678901234567890123456789
 
 Fibonacci Numbers

src/tests/fstream_test.c

@@ -7 +7 @@
 // fstream_test.c -- 
 //
-// Author           : Richard C. Bilson
+// Author           : Peter A. Buhr
 // Created On       : Wed May 27 17:56:53 2015
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Mon May  2 15:25:54 2016
-// Update Count     : 61
+// Last Modified On : Thu Aug 24 11:30:26 2017
+// Update Count     : 65
 //
 
@@ -19 +19 @@
         int nombre;
         sout | "Entrez un nombre, s'il vous plaît:" | endl;
-        sin  | &nombre;
-        sout | "Vous avez entré" | nombre | "stocké à l'adresse" | &nombre | endl;
-        sout | "nombre" | nombre | "est"
-                 | (nombre > 0 ? "plus grand que" : nombre == 0 ? "égal à" : "moins de")
-                 | "zéro" | endl;
+        sin  | nombre;
+        sout | "Vous avez entré" | nombre | endl;
+        sout | "le nombre" | nombre | "est"
+                 | (nombre > 0 ? "positif" : nombre == 0 ? "zéro" : "négatif") | endl;
 
         sout | "Entrez trois nombres, s'il vous plaît: " | endl;
         int i, j, k;
-        sin  | &i | &j | &k;
+        sin  | i | j | k;
         sout | "Vous avez entré" | "i:" | "" | i | "j:" | "" | j | "k:" | "" | k | endl;
 }

src/tests/gmp.c

@@ -10 +10 @@
 // Created On       : Tue Apr 19 08:55:51 2016
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Thu Jul 13 16:35:01 2017
-// Update Count     : 541
+// Last Modified On : Thu Aug 24 09:33:26 2017
+// Update Count     : 543
 // 
 
@@ -70 +70 @@
         sout | endl;
 
+        sin | x | y | z;
+        sout | x | y | z | endl;
+
+        sout | endl;
+
         sout | "Fibonacci Numbers" | endl;
         Int fn, fn1, fn2;