Changeset a1a1f37d
- Timestamp:
- Jul 14, 2024, 6:00:32 PM (3 months ago)
- Branches:
- master
- Children:
- d796be70, eb5dbfd
- Parents:
- 2e6b2a0
- Location:
- libcfa/src
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
libcfa/src/fstream.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 : Sun Feb 11 20:55:45202413 // Update Count : 58 012 // Last Modified On : Fri Jul 12 05:45:49 2024 13 // Update Count : 581 14 14 // 15 15 … … 280 280 } // read 281 281 282 ifstream &ungetc( ifstream & is, char c) {282 ifstream &ungetc( char c, ifstream & is ) { 283 283 if ( fail( is ) ) { 284 284 abort | IO_MSG "attempt ungetc I/O on failed stream"; -
libcfa/src/fstream.hfa
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 : Sun Feb 11 20:35:00 202413 // Update Count : 27 412 // Last Modified On : Fri Jul 12 05:45:50 2024 13 // Update Count : 275 14 14 // 15 15 … … 118 118 void nlOff( ifstream & ); 119 119 int fmt( ifstream &, const char format[], ... ) __attribute__(( format(scanf, 2, 3) )); 120 ifstream & ungetc( ifstream & is, char c);120 ifstream & ungetc( char c, ifstream & is ); 121 121 bool eof( ifstream & is ); 122 122 -
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 -
libcfa/src/iostream.hfa
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 : Sat Jul 6 11:33:31202413 // Update Count : 75 812 // Last Modified On : Fri Jul 12 05:45:48 2024 13 // Update Count : 759 14 14 // 15 15 … … 312 312 void nlOff( istype & ); // scan newline 313 313 int fmt( istype &, const char format[], ... ) __attribute__(( format(scanf, 2, 3) )); 314 istype & ungetc( istype &, char);314 istype & ungetc( char, istype & ); 315 315 bool eof( istype & ); 316 316 void clear( istype & ); -
libcfa/src/strstream.cfa
r2e6b2a0 ra1a1f37d 10 10 // Created On : Thu Apr 22 22:24:35 2021 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Fri Aug 18 10:42:49 202313 // Update Count : 11 212 // Last Modified On : Fri Jul 12 05:45:47 2024 13 // Update Count : 113 14 14 // 15 15 … … 166 166 } // fmt 167 167 168 istrstream &ungetc( istrstream & is, char c) {168 istrstream &ungetc( char c, istrstream & is ) { 169 169 // if ( ungetc( c, (FILE *)(is.file$) ) == EOF ) { 170 170 // abort | IO_MSG "ungetc" | nl | strerror( errno ); -
libcfa/src/strstream.hfa
r2e6b2a0 ra1a1f37d 10 10 // Created On : Thu Apr 22 22:20:59 2021 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Fri Aug 18 10:41:14 202313 // Update Count : 5 512 // Last Modified On : Fri Jul 12 05:45:48 2024 13 // Update Count : 56 14 14 // 15 15 … … 96 96 97 97 int fmt( istrstream &, const char format[], ... ) __attribute__(( format(scanf, 2, 3) )); 98 istrstream & ungetc( istrstream &, char);98 istrstream & ungetc( char, istrstream & ); 99 99 bool eof( istrstream & ); 100 100
Note: See TracChangeset
for help on using the changeset viewer.