Mercurial > hg > octave-nkf
changeset 1406:034a57daf076
[project @ 1995-09-15 06:03:10 by jwe]
author | jwe |
---|---|
date | Fri, 15 Sep 1995 06:03:17 +0000 |
parents | ac4b467e9352 |
children | 9517c453c9ab |
files | src/variables.cc src/variables.h |
diffstat | 2 files changed, 14 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/variables.cc +++ b/src/variables.cc @@ -1488,6 +1488,15 @@ } void +bind_builtin_variable (const char *varname, const tree_constant& val, + int protect, int eternal, sv_Function sv_fcn, + const char *help) +{ + tree_constant *tc = new tree_constant (val); + bind_builtin_variable (varname, tc, protect, eternal, sv_fcn, help); +} + +void install_builtin_variables (void) { // XXX FIXME XX -- these should probably be moved to where they
--- a/src/variables.h +++ b/src/variables.h @@ -116,6 +116,11 @@ sv_Function f = (sv_Function) 0, const char *help = 0); +extern void bind_builtin_variable (const char *, const tree_constant&, + int protect = 0, int eternal = 0, + sv_Function f = (sv_Function) 0, + const char *help = 0); + extern void install_builtin_variables (void); extern char *maybe_add_default_load_path (const char *p);