46 lines
1.3 KiB
C
46 lines
1.3 KiB
C
|
|
/*
|
|
* io.h
|
|
*
|
|
* Communication between PSSE and the outside world, via libcurl.
|
|
*
|
|
* (c) 2019 Simon Brooke <simon@journeyman.cc>
|
|
* Licensed under GPL version 2.0, or, at your option, any later version.
|
|
*/
|
|
|
|
#ifndef __psse_io_h
|
|
#define __psse_io_h
|
|
#include <curl/curl.h>
|
|
#include "memory/consspaceobject.h"
|
|
|
|
extern CURLSH *io_share;
|
|
|
|
int io_init( );
|
|
|
|
#define C_IO_IN L"*in*"
|
|
#define C_IO_OUT L"*out*"
|
|
|
|
extern struct cons_pointer lisp_io_in;
|
|
extern struct cons_pointer lisp_io_out;
|
|
|
|
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 cons_pointer get_default_stream( bool inputp, struct cons_pointer env );
|
|
|
|
struct cons_pointer
|
|
lisp_close( struct stack_frame *frame, struct cons_pointer frame_pointer,
|
|
struct cons_pointer env );
|
|
struct cons_pointer
|
|
lisp_open( struct stack_frame *frame, struct cons_pointer frame_pointer,
|
|
struct cons_pointer env );
|
|
struct cons_pointer
|
|
lisp_read_char( struct stack_frame *frame, struct cons_pointer frame_pointer,
|
|
struct cons_pointer env );
|
|
struct cons_pointer
|
|
lisp_slurp( struct stack_frame *frame, struct cons_pointer frame_pointer,
|
|
struct cons_pointer env );
|
|
|
|
char *lisp_string_to_c_string( struct cons_pointer s );
|
|
#endif
|