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: Added prototype for scm_lreadrecparen

Browse source
This commit is contained in:
Mikael Djurfeldt 1996-09-18 19:36:09 +00:00
parent 09a4f0393d
commit 7e763bfcba
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/read.h
View file

@ -67,13 +67,11 @@
#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[]; extern scm_option scm_read_opts[];
#define SCM_COPY_SOURCE_P scm_read_opts[0].val #define SCM_COPY_SOURCE_P scm_read_opts[0].val
#define SCM_RECORD_POSITIONS_P scm_read_opts[1].val #define SCM_RECORD_POSITIONS_P scm_read_opts[1].val
#define SCM_N_READ_OPTIONS 2 #define SCM_N_READ_OPTIONS 2
#endif
@ -83,9 +81,10 @@ 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);
extern int scm_casei_streq (char * s1, char * s2); extern int scm_casei_streq (char * s1, char * s2);
extern SCM scm_lreadr (SCM * tok_buf, SCM port, int case_i, SCM sharp); extern SCM scm_lreadr (SCM * tok_buf, SCM port, int case_i, SCM sharp, SCM *copy);
extern scm_sizet scm_read_token (int ic, SCM * tok_buf, SCM port, int case_i, int weird); extern scm_sizet scm_read_token (int ic, SCM * tok_buf, SCM port, int case_i, int weird);
extern SCM scm_lreadparen (SCM * tok_buf, SCM port, char *name, int case_i, SCM sharp); extern SCM scm_lreadparen (SCM * tok_buf, SCM port, char *name, int case_i, SCM sharp, SCM *copy);
extern SCM scm_lreadrecparen (SCM * tok_buf, SCM port, char *name, int case_i, SCM sharp, SCM *copy);
extern void scm_init_read (void); extern void scm_init_read (void);
#else /* STDC */ #else /* STDC */
@ -97,6 +96,7 @@ extern int scm_casei_streq ();
extern SCM scm_lreadr (); extern SCM scm_lreadr ();
extern scm_sizet scm_read_token (); extern scm_sizet scm_read_token ();
extern SCM scm_lreadparen (); extern SCM scm_lreadparen ();
extern SCM scm_lreadrecparen ();
extern void scm_init_read (); extern void scm_init_read ();
#endif /* STDC */ #endif /* STDC */