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

* options.h, options.c: Options now have documentation strings.

Browse source 
Also added a long explanatory commentary.
This commit is contained in:
Mikael Djurfeldt 1996-08-23 01:20:00 +00:00
parent cbff1d8959
commit fe90df5148
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
libguile/options.h
View file

@ -55,19 +55,22 @@ typedef struct scm_option
{ {
int type; int type;
char *name; char *name;
int val; unsigned long val;
SCM sym; char *doc;
} scm_option; } scm_option;
#define SCM_OPTION_BOOLEAN 0 #define SCM_OPTION_BOOLEAN 0
#define SCM_OPTION_INTEGER 1 #define SCM_OPTION_INTEGER 1
#define SCM_OPTION_SCM 2
extern SCM scm_yes_sym, scm_no_sym;
#ifdef __STDC__ #ifdef __STDC__
extern SCM scm_change_options (SCM new_mode, scm_option options[], int n, char *s); extern SCM scm_options (SCM new_mode, scm_option options[], int n, char *s);
extern void scm_init_opts (SCM (*func) (SCM), scm_option options[], int n); extern void scm_init_opts (SCM (*func) (SCM), scm_option options[], int n);
extern void scm_init_options (void); extern void scm_init_options (void);
#else /* STDC */ #else /* STDC */
extern SCM scm_change_options (); extern SCM scm_options ();
extern void scm_init_opts (); extern void scm_init_opts ();
extern void scm_init_options (); extern void scm_init_options ();
#endif /* STDC */ #endif /* STDC */