Changeset a1a1f37d for libcfa/src/iostream.cfa
- Timestamp:
- Jul 14, 2024, 6:00:32 PM (5 weeks ago)
- Branches:
- master
- Children:
- d796be70, eb5dbfd
- Parents:
- 2e6b2a0
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
libcfa/src/iostream.cfa
r2e6b2a0 ra1a1f37d 10 10 // Created On : Wed May 27 17:56:53 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Mon Jul 8 23:45:06202413 // Update Count : 201 812 // Last Modified On : Fri Jul 12 05:45:45 2024 13 // Update Count : 2019 14 14 // 15 15 … … 891 891 } // for 892 892 if ( sign ) ullli = -ullli; 893 } else if ( sign ) ungetc( is, '-'); // return minus when no digits893 } else if ( sign ) ungetc( '-', is ); // return minus when no digits 894 894 return is; 895 895 } // ?|? … … 1069 1069 // fprintf( stderr, "peek %d '%c'\n", args, peek ); 1070 1070 if ( ! eof( is ) ) { // can only fail at eof 1071 ungetc( is, peek);1071 ungetc( peek, is ); 1072 1072 if ( ! isspace( peek ) ) throwResume ExceptionInst( cstring_length ); 1073 1073 } // if … … 1092 1092 if ( ! eof( is ) ) { 1093 1093 if ( peek != delimiters[0] ) { 1094 ungetc( is, peek);1094 ungetc( peek, is ); 1095 1095 throwResume ExceptionInst( cstring_length ); 1096 1096 } // if … … 1112 1112 // fprintf( stderr, "peek %d '%c'\n", args, peek ); 1113 1113 if ( ! eof( is ) ) { 1114 ungetc( is, peek);1114 ungetc( peek, is ); 1115 1115 if ( flags.inex ^ strchr( scanset, peek ) != 0p ) throwResume ExceptionInst( cstring_length ); 1116 1116 } // if
Note: See TracChangeset
for help on using the changeset viewer.