Mercurial > hg > octave-jordi
changeset 3010:1aeb8869e464
[project @ 1997-06-01 19:24:02 by jwe]
author | jwe |
---|---|
date | Sun, 01 Jun 1997 19:29:53 +0000 |
parents | ea9af2ffa80d |
children | 2ad9af85b89b |
files | src/defun.cc src/help.cc src/load-save.cc src/mappers.cc src/pt-binop.h src/pt-id.h src/pt-idx.h src/pt-indir.h src/pt-pr-code.cc src/pt-pr-code.h src/pt-unop.h src/pt-walk.h |
diffstat | 12 files changed, 23 insertions(+), 25 deletions(-) [+] |
line wrap: on
line diff
--- a/src/defun.cc +++ b/src/defun.cc @@ -41,7 +41,7 @@ symbol_record *sym_rec = global_sym_tab->lookup (mf->name (), true); unsigned int t - = symbol_def::BUILTIN_FUNCTION | symbol_def::MAPPER_FUNCTION; + = symbol_record::BUILTIN_FUNCTION | symbol_record::MAPPER_FUNCTION; sym_rec->unprotect (); sym_rec->define (mf, t); @@ -58,10 +58,10 @@ symbol_record *sym_rec = global_sym_tab->lookup (name, true); - unsigned int t = symbol_def::BUILTIN_FUNCTION; + unsigned int t = symbol_record::BUILTIN_FUNCTION; if (is_text_fcn) - t |= symbol_def::TEXT_FUNCTION; + t |= symbol_record::TEXT_FUNCTION; sym_rec->unprotect (); sym_rec->define (new octave_builtin (f, name, doc), t);
--- a/src/help.cc +++ b/src/help.cc @@ -490,14 +490,14 @@ // XXX FIXME XXX -- is this distinction needed? - LIST_SYMBOLS (symbol_def::TEXT_FUNCTION, + LIST_SYMBOLS (symbol_record::TEXT_FUNCTION, "text functions (these names are also reserved)"); - LIST_SYMBOLS (symbol_def::MAPPER_FUNCTION, "mapper functions"); + LIST_SYMBOLS (symbol_record::MAPPER_FUNCTION, "mapper functions"); - LIST_SYMBOLS (symbol_def::BUILTIN_FUNCTION, "general functions"); + LIST_SYMBOLS (symbol_record::BUILTIN_FUNCTION, "general functions"); - LIST_SYMBOLS (symbol_def::BUILTIN_VARIABLE, "builtin variables"); + LIST_SYMBOLS (symbol_record::BUILTIN_VARIABLE, "builtin variables"); // Also need to list variables and currently compiled functions from // the symbol table, if there are any.
--- a/src/load-save.cc +++ b/src/load-save.cc @@ -2283,7 +2283,7 @@ int count; symbol_record **vars = curr_sym_tab->glob - (count, pattern, symbol_def::USER_VARIABLE, SYMTAB_ALL_SCOPES); + (count, pattern, symbol_record::USER_VARIABLE, SYMTAB_ALL_SCOPES); int saved = count; @@ -2302,7 +2302,7 @@ if (! error_state && save_builtins) { symbol_record **vars = global_sym_tab->glob - (count, pattern, symbol_def::BUILTIN_VARIABLE, SYMTAB_ALL_SCOPES); + (count, pattern, symbol_record::BUILTIN_VARIABLE, SYMTAB_ALL_SCOPES); saved += count;
--- a/src/mappers.cc +++ b/src/mappers.cc @@ -25,6 +25,7 @@ #endif #include <cctype> +#include <cfloat> #include "lo-mappers.h"
--- a/src/pt-binop.h +++ b/src/pt-binop.h @@ -67,7 +67,7 @@ octave_value rvalue (void); - octave_value_list rvalue (int nargou); + octave_value_list rvalue (int nargout); void eval_error (void);
--- a/src/pt-id.h +++ b/src/pt-id.h @@ -79,6 +79,12 @@ void mark_as_formal_parameter (void); + // We really need to know whether this symbol referst to a variable + // or a function, but we may not know that yet. + + bool lvalue_ok (void) const + { return true; } + octave_value rvalue (void); octave_value_list rvalue (int nargout);
--- a/src/pt-idx.h +++ b/src/pt-idx.h @@ -63,6 +63,9 @@ tree_argument_list *arg_list (void) { return list; } + bool lvalue_ok (void) const + { return expr->lvalue_ok (); } + bool rvalue_ok (void) const { return true; }
--- a/src/pt-indir.h +++ b/src/pt-indir.h @@ -58,7 +58,7 @@ string name (void) const; - bool rvalue_ok (void) const + bool lvalue_ok (void) const { return true; } octave_value rvalue (void);
--- a/src/pt-pr-code.cc +++ b/src/pt-pr-code.cc @@ -440,7 +440,7 @@ print_parens (expr, "("); - tree_expression *e= expr.expression (); + tree_expression *e = expr.expression (); if (e) e->accept (*this); @@ -546,12 +546,6 @@ } void -tree_print_code::visit_oct_obj (tree_oct_obj&) -{ - ::error ("visit_oct_obj: internal error"); -} - -void tree_print_code::visit_constant (tree_constant& val) { indent ();
--- a/src/pt-pr-code.h +++ b/src/pt-pr-code.h @@ -90,8 +90,6 @@ void visit_no_op_command (tree_no_op_command&); - void visit_oct_obj (tree_oct_obj&); - void visit_constant (tree_constant&); void visit_parameter_list (tree_parameter_list&);
--- a/src/pt-unop.h +++ b/src/pt-unop.h @@ -96,7 +96,7 @@ octave_value rvalue (void); - octave_value_list rvalue (int nargou); + octave_value_list rvalue (int nargout); void eval_error (void);
--- a/src/pt-walk.h +++ b/src/pt-walk.h @@ -46,7 +46,6 @@ class tree_matrix; class tree_multi_assignment; class tree_no_op_command; -class tree_oct_obj; class tree_constant; class tree_parameter_list; class tree_plot_command; @@ -142,9 +141,6 @@ visit_no_op_command (tree_no_op_command&) = 0; virtual void - visit_oct_obj (tree_oct_obj&) = 0; - - virtual void visit_constant (tree_constant&) = 0; virtual void