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

* * read.c: New procedure: scm_read_options

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

29
libguile/read.c
View file

@ -51,6 +51,32 @@
#ifdef READER_EXTENSIONS
scm_option scm_read_opts[] = {
{ SCM_OPTION_BOOLEAN, "positions", 0 },
{ SCM_OPTION_BOOLEAN, "copy", 0 }
};
SCM_PROC (s_read_options, "read-options", 0, 1, 0, scm_read_options);
#ifdef __STDC__
SCM
scm_read_options (SCM new_values)
#else
SCM
scm_read_options (new_values)
SCM new_values;
#endif
{
SCM ans = scm_change_options (new_values,
scm_read_opts,
N_READ_OPTIONS,
s_read_options);
if (COPY_SOURCE)
RECORD_POSITIONS = 1;
return ans;
}
#endif
SCM_PROC (s_read, "read", 0, 3, 0, scm_read); SCM_PROC (s_read, "read", 0, 3, 0, scm_read);
#ifdef __STDC__ #ifdef __STDC__
SCM SCM
@ -592,6 +618,9 @@ void
scm_init_read () scm_init_read ()
#endif #endif
{ {
#ifdef READER_EXTENSIONS
scm_init_opts (scm_read_options, scm_read_opts, N_READ_OPTIONS);
#endif
#include "read.x" #include "read.x"
} }