mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 14:21:10 +02:00
Code Activity

* * feature.c (scm_set_program_arguments): New function.

Browse source 
* feature.h: New declaration for the above.
This commit is contained in:
Jim Blandy 1996-10-23 02:14:09 +00:00
parent e4c5095fda
commit 0b886892da
2 changed files with 12 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/feature.c
View file

@ -62,14 +62,24 @@ scm_add_feature(str)
SCM_PROC(s_program_arguments, "program-arguments", 0, 0, 0, scm_program_arguments); SCM_PROC(s_program_arguments, "program-arguments", 0, 0, 0, scm_program_arguments);
SCM SCM
scm_program_arguments () scm_program_arguments ()
{ {
return scm_progargs; return scm_progargs;
} }
/* Set the value returned by program-arguments, given a normal
argc/argv array. */
void
scm_set_program_arguments (argc, argv)
int argc;
char **argv;
{
scm_progargs = scm_makfromstrs (argc, argv);
}

1
libguile/feature.h
View file

@ -48,6 +48,7 @@
extern void scm_add_feature SCM_P((char* str)); extern void scm_add_feature SCM_P((char* str));
extern SCM scm_program_arguments SCM_P((void)); extern SCM scm_program_arguments SCM_P((void));
extern void scm_set_program_arguments SCM_P ((int argc, char **argv));
extern void scm_init_feature SCM_P((void)); extern void scm_init_feature SCM_P((void));
#endif /* FEATUREH */ #endif /* FEATUREH */