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

A bit of work on time, but it doesn't actually work yet.

Browse source
This commit is contained in:
Simon Brooke 2019-02-05 09:59:05 +00:00
parent 8cab28f6c8
commit 23e4f0befa
8 changed files with 155 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/io/io.c
View file

@ -266,16 +266,8 @@ struct cons_pointer add_meta_string( struct cons_pointer meta, wchar_t *key,
char *value ) {
value = trim( value);
wchar_t buffer[strlen( value ) + 1];
/* \todo something goes wrong here: I sometimes get junk characters on the
* end of the string. */
mbstowcs( buffer, value, strlen( value ) + 1 );
/* hack: get rid of 32766 as a junk character, to see whether there are
* others.
for (int i = 0; i < wcslen( buffer); i++) {
if (buffer[i] == (wchar_t)32766) buffer[i] = (wchar_t)0;
} */
return make_cons( make_cons( c_string_to_lisp_keyword( key ),
c_string_to_lisp_string( buffer ) ), meta );
}

4
src/io/print.c
View file

@ -22,6 +22,7 @@
#include "integer.h"
#include "stack.h"
#include "print.h"
#include "time.h"
/**
* Whether or not we colorise output.
@ -210,6 +211,9 @@ struct cons_pointer print( URL_FILE * output, struct cons_pointer pointer ) {
case SPECIALTV:
url_fwprintf( output, L"<Special form>" );
break;
case TIMETV:
print_string(output, time_to_string( pointer));
break;
case TRUETV:
url_fwprintf( output, L"t" );
break;