Mercurial > hg > octave-lyh
diff src/pt-pr-code.cc @ 2891:1a30f46e1870
[project @ 1997-04-28 01:49:00 by jwe]
author | jwe |
---|---|
date | Mon, 28 Apr 1997 02:01:22 +0000 (1997-04-28) |
parents | 55cca18e943a |
children | 5ed088015839 |
line wrap: on
line diff
--- a/src/pt-pr-code.cc +++ b/src/pt-pr-code.cc @@ -31,12 +31,13 @@ #include <iostream.h> #include "error.h" +#include "oct-usr-fcn.h" #include "pr-output.h" #include "pt-cmd.h" #include "pt-const.h" #include "pt-exp.h" -#include "pt-fcn.h" -#include "pt-fvc.h" +#include "pt-id.h" +#include "pt-indir.h" #include "pt-mat.h" #include "pt-misc.h" #include "pt-mvr.h" @@ -99,13 +100,6 @@ } void -tree_print_code::visit_builtin (tree_builtin& fcn) -{ - os << fcn.name () - << " can't be printed because it is a built-in function\n"; -} - -void tree_print_code::visit_colon_expression (tree_colon_expression& expr) { indent (); @@ -234,11 +228,11 @@ } void -tree_print_code::visit_function (tree_function& fcn) +tree_print_code::visit_octave_user_function (octave_user_function& fcn) { reset (); - visit_function_header (fcn); + visit_octave_user_function_header (fcn); tree_statement_list *cmd_list = fcn.body (); @@ -249,11 +243,11 @@ decrement_indent_level (); } - visit_function_trailer (fcn); + visit_octave_user_function_trailer (fcn); } void -tree_print_code::visit_function_header (tree_function& fcn) +tree_print_code::visit_octave_user_function_header (octave_user_function& fcn) { indent (); @@ -325,7 +319,7 @@ } void -tree_print_code::visit_function_trailer (tree_function&) +tree_print_code::visit_octave_user_function_trailer (octave_user_function&) { indent ();