mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

(progargs_fluid): New.

Browse source 
(scm_program_arguments, scm_set_program_arguments): Use it instead
of scm_progargs.
(scm_init_feature): Allocate it.  Also, only add "threads" feature
when SCM_USE_PTHREAD_THREADS is true.
This commit is contained in:
Marius Vollmer 2005-03-02 19:40:20 +00:00
parent 5c6148424b
commit 731294434a
1 changed files with 11 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

16
libguile/feature.c
View file

@ -29,14 +29,15 @@
#include "libguile/root.h" #include "libguile/root.h"
#include "libguile/strings.h" #include "libguile/strings.h"
#include "libguile/validate.h" #include "libguile/validate.h"
#include "libguile/fluids.h"
#include "libguile/feature.h" #include "libguile/feature.h"
static SCM progargs_fluid;
static SCM features_var; static SCM features_var;
void void
scm_add_feature (const char *str) scm_add_feature (const char *str)
{ {
@ -56,7 +57,7 @@ SCM_DEFINE (scm_program_arguments, "program-arguments", 0, 0, 0,
"options like @code{-e} and @code{-l}.") "options like @code{-e} and @code{-l}.")
#define FUNC_NAME s_scm_program_arguments #define FUNC_NAME s_scm_program_arguments
{ {
return scm_progargs; return scm_fluid_ref (progargs_fluid);
} }
#undef FUNC_NAME #undef FUNC_NAME
@ -69,9 +70,10 @@ SCM_DEFINE (scm_program_arguments, "program-arguments", 0, 0, 0,
void void
scm_set_program_arguments (int argc, char **argv, char *first) scm_set_program_arguments (int argc, char **argv, char *first)
{ {
scm_progargs = scm_makfromstrs (argc, argv); SCM args = scm_makfromstrs (argc, argv);
if (first) if (first)
scm_progargs = scm_cons (scm_from_locale_string (first), scm_progargs); args = scm_cons (scm_from_locale_string (first), args);
scm_fluid_set_x (progargs_fluid, args);
} }
@ -80,6 +82,8 @@ scm_set_program_arguments (int argc, char **argv, char *first)
void void
scm_init_feature() scm_init_feature()
{ {
progargs_fluid = scm_permanent_object (scm_make_fluid ());
features_var = scm_c_define ("*features*", SCM_EOL); features_var = scm_c_define ("*features*", SCM_EOL);
#ifndef _Windows #ifndef _Windows
scm_add_feature("system"); scm_add_feature("system");
@ -96,8 +100,10 @@ scm_init_feature()
#ifndef CHEAP_CONTINUATIONS #ifndef CHEAP_CONTINUATIONS
scm_add_feature ("full-continuation"); scm_add_feature ("full-continuation");
#endif #endif
#if SCM_USE_PTHREAD_THREADS
scm_add_feature ("threads"); scm_add_feature ("threads");
#endif
scm_c_define ("char-code-limit", scm_from_int (SCM_CHAR_CODE_LIMIT)); scm_c_define ("char-code-limit", scm_from_int (SCM_CHAR_CODE_LIMIT));
#include "libguile/feature.x" #include "libguile/feature.x"