Changeset a1a1f37d for libcfa/src/iostream.cfa

Timestamp:

Jul 14, 2024, 6:00:32 PM (5 weeks ago)

Author:

Peter A. Buhr <pabuhr@…>

Branches:

master

Children:

d796be70, eb5dbfd

Parents:

2e6b2a0

Message:

change order of ungetc parameters to harmonize with C ungetc

File:

• libcfa/src/iostream.cfa (modified) (5 diffs)

libcfa/src/iostream.cfa

@@ -10 +10 @@
 // Created On       : Wed May 27 17:56:53 2015
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Mon Jul  8 23:45:06 2024
-// Update Count     : 2018
+// Last Modified On : Fri Jul 12 05:45:45 2024
+// Update Count     : 2019
 //
 
@@ -891 +891 @@
                         } // for
                         if ( sign ) ullli = -ullli;
-                } else if ( sign ) ungetc( is, '-' );                   // return minus when no digits
+                } else if ( sign ) ungetc( '-', is );                   // return minus when no digits
                 return is;
         } // ?|?
@@ -1069 +1069 @@
                                 // fprintf( stderr, "peek %d '%c'\n", args, peek );
                                 if ( ! eof( is ) ) {                                    // can only fail at eof
-                                        ungetc( is, peek );
+                                        ungetc( peek, is );
                                         if ( ! isspace( peek ) ) throwResume ExceptionInst( cstring_length );
                                 } // if
@@ -1092 +1092 @@
                                         if ( ! eof( is ) ) {
                                                 if ( peek != delimiters[0] ) {
-                                                        ungetc( is, peek );
+                                                        ungetc( peek, is );
                                                         throwResume ExceptionInst( cstring_length );
                                                 } // if
@@ -1112 +1112 @@
                                         // fprintf( stderr, "peek %d '%c'\n", args, peek );
                                         if ( ! eof( is ) ) {
-                                                ungetc( is, peek );
+                                                ungetc( peek, is );
                                                 if ( flags.inex ^ strchr( scanset, peek ) != 0p ) throwResume ExceptionInst( cstring_length );
                                         } // if