simon/post-scarcity
1
0
Fork 0
Code Issues 18 Pull requests Projects Releases Packages Wiki Activity Actions

Ran a 'make format', because !'m close to being able to merge this feature.

Browse source
This commit is contained in:
Simon Brooke 2026-05-06 16:45:56 +01:00
parent 5e64a33965
commit 80049f2272
52 changed files with 936 additions and 843 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/c/io/read.c
View file

@ -146,15 +146,17 @@ struct pso_pointer read_number( struct pso_pointer frame_pointer ) {
URL_FILE *input = pointer_to_object( stream )->payload.stream.stream;
for ( ; iswdigit( c ) || c == L','; c = url_fgetwc( input ) ) {
if ( iswdigit( c ) ){value = ( value * base ) + ( ( int ) c - ( int ) L'0' );}
if ( iswdigit( c ) ) {
value = ( value * base ) + ( ( int ) c - ( int ) L'0' );
}
}
url_ungetwc( c, input );
result = make_integer( frame_pointer, value );
} // else exception?
#ifdef DEBUG
debug_printf( DEBUG_IO, 0, L"\nRead number %ld\n", value );
debug_dump_object(result, DEBUG_IO, 1);
debug_printf( DEBUG_IO, 0, L"\nRead number %ld\n", value );
debug_dump_object( result, DEBUG_IO, 1 );
#endif
return result;
@ -185,13 +187,12 @@ struct pso_pointer read_symbol( struct pso_pointer frame_pointer ) {
url_ungetwc( c, input );
result = c_reverse( frame_pointer, result );
}
#ifdef DEBUG
debug_print( L"\nRead symbol `", DEBUG_IO, 0 );
debug_print_object( result, DEBUG_IO, 0);
debug_print( L"`\n\t", DEBUG_IO, 0);
debug_dump_object(result, DEBUG_IO, 1);
#endif
debug_print( L"\nRead symbol `", DEBUG_IO, 0 );
debug_print_object( result, DEBUG_IO, 0 );
debug_print( L"`\n\t", DEBUG_IO, 0 );
debug_dump_object( result, DEBUG_IO, 1 );
#endif
return result;
}
@ -283,8 +284,8 @@ struct pso_pointer read( struct pso_pointer frame_pointer ) {
#ifdef DEBUG
debug_print( L"Read expression: `", DEBUG_IO, 0 );
debug_print_object( result, DEBUG_IO, 0 );
debug_print( L"`\n", DEBUG_IO, 0 );
debug_dump_object(result, DEBUG_IO, 1);
debug_print( L"`\n", DEBUG_IO, 0 );
debug_dump_object( result, DEBUG_IO, 1 );
#endif
return result;