mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* read.h: Defines for reader options.

Browse source
This commit is contained in:
Mikael Djurfeldt 1996-08-20 17:11:34 +00:00
parent a16f6fe77f
commit ba99801ada
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/read.h
View file

@ -66,9 +66,18 @@
#define SCM_WHITE_SPACES SCM_SINGLE_SPACES: case '\t' #define SCM_WHITE_SPACES SCM_SINGLE_SPACES: case '\t'
#ifdef READER_EXTENSIONS
extern scm_option scm_read_opts[];
#define RECORD_POSITIONS scm_read_opts[0].val
#define COPY_SOURCE scm_read_opts[1].val
#define N_READ_OPTIONS 2
#endif
#ifdef __STDC__ #ifdef __STDC__
extern SCM scm_read_options (SCM new_values);
extern SCM scm_read (SCM port, SCM casep, SCM sharp); extern SCM scm_read (SCM port, SCM casep, SCM sharp);
extern char * scm_grow_tok_buf (SCM * tok_buf); extern char * scm_grow_tok_buf (SCM * tok_buf);
extern int scm_flush_ws (SCM port, char *eoferr); extern int scm_flush_ws (SCM port, char *eoferr);
@ -79,6 +88,7 @@ extern SCM scm_lreadparen (SCM * tok_buf, SCM port, char *name, int case_i, SCM
extern void scm_init_read (void); extern void scm_init_read (void);
#else /* STDC */ #else /* STDC */
extern SCM scm_read_options ();
extern SCM scm_read (); extern SCM scm_read ();
extern char * scm_grow_tok_buf (); extern char * scm_grow_tok_buf ();
extern int scm_flush_ws (); extern int scm_flush_ws ();