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

Moved everything from ops/stack_ops (which were not ops) to payloads/stack.

Browse source 
Added io functions to function_bindings.
This commit is contained in:
Simon Brooke 2026-05-05 19:16:44 +01:00
parent 4d480798e8
commit 818293d4f1
34 changed files with 217 additions and 94 deletions
Download patch file Download diff file Expand all files Collapse all files

37
src/c/io/io.h
View file

@ -11,8 +11,8 @@
#ifndef __psse_io_io_h
#define __psse_io_io_h
#include <stdbool.h>
#include <curl/curl.h>
#include <stdbool.h>
/*
* wide characters
@ -24,12 +24,11 @@
extern CURLSH *io_share;
int initialise_io( );
struct pso_pointer initialise_default_streams( struct pso_pointer
frame_pointer,
struct pso_pointer env );
int initialise_io();
struct pso_pointer initialise_default_streams(struct pso_pointer frame_pointer,
struct pso_pointer env);
#define C_IO_IN L"*in*"
#define C_IO_IN L"*in*"
#define C_IO_OUT L"*out*"
#define C_IO_LOG L"*log*"
#define C_IO_READBASE L"*read_base*"
@ -50,25 +49,19 @@ extern struct pso_pointer lisp_stderr;
extern struct pso_pointer lisp_io_prompt;
URL_FILE *file_to_url_file(FILE *f);
wint_t url_fgetwc(URL_FILE *input);
wint_t url_ungetwc(wint_t wc, URL_FILE *input);
struct pso_pointer push_back_character(struct pso_pointer c,
struct pso_pointer r);
URL_FILE *file_to_url_file( FILE * f );
wint_t url_fgetwc( URL_FILE * input );
wint_t url_ungetwc( wint_t wc, URL_FILE * input );
struct pso_pointer get_default_stream(bool inputp, struct pso_pointer env);
URL_FILE *stream_get_url_file(struct pso_pointer s);
struct pso_pointer push_back_character( struct pso_pointer c,
struct pso_pointer r );
struct pso_pointer get_default_stream( bool inputp, struct pso_pointer env );
URL_FILE *stream_get_url_file( struct pso_pointer s );
struct pso_pointer
lisp_close( struct pso_pointer frame_pointer, struct pso_pointer env );
struct pso_pointer
lisp_open( struct pso_pointer frame_pointer, struct pso_pointer env );
struct pso_pointer
lisp_slurp( struct pso_pointer frame_pointer, struct pso_pointer env );
struct pso_pointer lisp_close(struct pso_pointer frame_pointer);
struct pso_pointer lisp_open(struct pso_pointer frame_pointer);
struct pso_pointer lisp_slurp(struct pso_pointer frame_pointer);
#endif