Mercurial > octave
diff libinterp/parse-tree/pt-select.h @ 23075:4e3d47dc7e25
move parse tree classes inside octave namespace
* lex.h, lex.ll, oct-parse.in.yy, parse.h, pt-all.h, pt-arg-list.cc,
pt-arg-list.h, pt-array-list.cc, pt-array-list.h, pt-assign.cc,
pt-assign.h, pt-binop.cc, pt-binop.h, pt-bp.cc, pt-bp.h, pt-cbinop.cc,
pt-cbinop.h, pt.cc, pt-cell.cc, pt-cell.h, pt-check.cc, pt-check.h,
pt-classdef.cc, pt-classdef.h, pt-cmd.cc, pt-cmd.h, pt-colon.cc,
pt-colon.h, pt-const.cc, pt-const.h, pt-decl.cc, pt-decl.h,
pt-eval.cc, pt-eval.h, pt-except.cc, pt-except.h, pt-exp.cc, pt-exp.h,
pt-fcn-handle.cc, pt-fcn-handle.h, pt-funcall.cc, pt-funcall.h, pt.h,
pt-id.cc, pt-id.h, pt-idx.cc, pt-idx.h, pt-jump.cc, pt-jump.h,
pt-loop.cc, pt-loop.h, pt-mat.cc, pt-mat.h, pt-misc.cc, pt-misc.h,
pt-pr-code.cc, pt-pr-code.h, pt-select.cc, pt-select.h, pt-stmt.cc,
pt-stmt.h, pt-unop.cc, pt-unop.h, pt-walk.h, token.cc, token.h:
Move classes and most functions inside octave namespace.
Change all uses.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Thu, 19 Jan 2017 23:41:54 -0500 |
parents | f75d289645ec |
children | ef4d915df748 |
line wrap: on
line diff
--- a/libinterp/parse-tree/pt-select.h Thu Jan 19 14:47:19 2017 -0500 +++ b/libinterp/parse-tree/pt-select.h Thu Jan 19 23:41:54 2017 -0500 @@ -25,277 +25,293 @@ #include "octave-config.h" -class expression; -class tree_statement_list; - -class tree_walker; - #include "base-list.h" #include "comment-list.h" #include "pt-cmd.h" #include "symtab.h" -// If. +namespace octave +{ + class tree_expression; + class tree_statement_list; + + class tree_walker; + + // If. + + class tree_if_clause : public tree + { + public: -class -tree_if_clause : public tree -{ -public: + tree_if_clause (int l = -1, int c = -1) + : tree (l, c), expr (0), list (0), lead_comm (0) { } + + tree_if_clause (tree_statement_list *sl, octave_comment_list *lc = 0, + int l = -1, int c = -1) + : tree (l, c), expr (0), list (sl), lead_comm (lc) { } + + tree_if_clause (tree_expression *e, tree_statement_list *sl, + octave_comment_list *lc = 0, + int l = -1, int c = -1) + : tree (l, c), expr (e), list (sl), lead_comm (lc) { } + + // No copying! - tree_if_clause (int l = -1, int c = -1) - : tree (l, c), expr (0), list (0), lead_comm (0) { } + tree_if_clause (const tree_if_clause&) = delete; + + tree_if_clause& operator = (const tree_if_clause&) = delete; + + ~tree_if_clause (void); + + bool is_else_clause (void) { return ! expr; } + + tree_expression *condition (void) { return expr; } + + tree_statement_list *commands (void) { return list; } - tree_if_clause (tree_statement_list *sl, octave_comment_list *lc = 0, - int l = -1, int c = -1) - : tree (l, c), expr (0), list (sl), lead_comm (lc) { } + octave_comment_list *leading_comment (void) { return lead_comm; } + + tree_if_clause *dup (symbol_table::scope_id scope, + symbol_table::context_id context) const; + + void accept (tree_walker& tw); + + private: + + // The condition to test. + tree_expression *expr; + + // The list of statements to evaluate if expr is true. + tree_statement_list *list; - tree_if_clause (tree_expression *e, tree_statement_list *sl, - octave_comment_list *lc = 0, - int l = -1, int c = -1) - : tree (l, c), expr (e), list (sl), lead_comm (lc) { } + // Comment preceding ELSE or ELSEIF token. + octave_comment_list *lead_comm; + }; + + class tree_if_command_list : public octave::base_list<tree_if_clause *> + { + public: + + tree_if_command_list (void) { } + + tree_if_command_list (tree_if_clause *t) { append (t); } + + // No copying! - // No copying! + tree_if_command_list (const tree_if_command_list&) = delete; + + tree_if_command_list& operator = (const tree_if_command_list&) = delete; - tree_if_clause (const tree_if_clause&) = delete; - - tree_if_clause& operator = (const tree_if_clause&) = delete; + ~tree_if_command_list (void) + { + while (! empty ()) + { + iterator p = begin (); + delete *p; + erase (p); + } + } - ~tree_if_clause (void); + tree_if_command_list *dup (symbol_table::scope_id scope, + symbol_table::context_id context) const; + + void accept (tree_walker& tw); + }; - bool is_else_clause (void) { return ! expr; } + class tree_if_command : public tree_command + { + public: - tree_expression *condition (void) { return expr; } + tree_if_command (int l = -1, int c = -1) + : tree_command (l, c), list (0), lead_comm (0), trail_comm (0) { } - tree_statement_list *commands (void) { return list; } + tree_if_command (tree_if_command_list *lst, octave_comment_list *lc, + octave_comment_list *tc, int l = -1, int c = -1) + : tree_command (l, c), list (lst), lead_comm (lc), trail_comm (tc) { } + + // No copying! + + tree_if_command (const tree_if_command&) = delete; + + tree_if_command& operator = (const tree_if_command&) = delete; - octave_comment_list *leading_comment (void) { return lead_comm; } + ~tree_if_command (void); + + tree_if_command_list *cmd_list (void) { return list; } - tree_if_clause *dup (symbol_table::scope_id scope, + octave_comment_list *leading_comment (void) { return lead_comm; } + + octave_comment_list *trailing_comment (void) { return trail_comm; } + + tree_command *dup (symbol_table::scope_id scope, symbol_table::context_id context) const; - void accept (tree_walker& tw); + void accept (tree_walker& tw); -private: + private: - // The condition to test. - tree_expression *expr; + // List of if commands (if, elseif, elseif, ... else, endif) + tree_if_command_list *list; - // The list of statements to evaluate if expr is true. - tree_statement_list *list; + // Comment preceding IF token. + octave_comment_list *lead_comm; - // Comment preceding ELSE or ELSEIF token. - octave_comment_list *lead_comm; -}; + // Comment preceding ENDIF token. + octave_comment_list *trail_comm; + }; -class -tree_if_command_list : public octave::base_list<tree_if_clause *> -{ -public: + // Switch. - tree_if_command_list (void) { } - - tree_if_command_list (tree_if_clause *t) { append (t); } - - // No copying! + class tree_switch_case : public tree + { + public: - tree_if_command_list (const tree_if_command_list&) = delete; - - tree_if_command_list& operator = (const tree_if_command_list&) = delete; + tree_switch_case (int l = -1, int c = -1) + : tree (l, c), label (0), list (0), lead_comm (0) { } - ~tree_if_command_list (void) - { - while (! empty ()) - { - iterator p = begin (); - delete *p; - erase (p); - } - } + tree_switch_case (tree_statement_list *sl, octave_comment_list *lc = 0, + int l = -1, int c = -1) + : tree (l, c), label (0), list (sl), lead_comm (lc) { } - tree_if_command_list *dup (symbol_table::scope_id scope, - symbol_table::context_id context) const; - - void accept (tree_walker& tw); -}; + tree_switch_case (tree_expression *e, tree_statement_list *sl, + octave_comment_list *lc = 0, + int l = -1, int c = -1) + : tree (l, c), label (e), list (sl), lead_comm (lc) { } -class -tree_if_command : public tree_command -{ -public: + // No copying! + + tree_switch_case (const tree_switch_case&) = delete; - tree_if_command (int l = -1, int c = -1) - : tree_command (l, c), list (0), lead_comm (0), trail_comm (0) { } + tree_switch_case& operator = (const tree_switch_case&) = delete; + + ~tree_switch_case (void); - tree_if_command (tree_if_command_list *lst, octave_comment_list *lc, - octave_comment_list *tc, int l = -1, int c = -1) - : tree_command (l, c), list (lst), lead_comm (lc), trail_comm (tc) { } + bool is_default_case (void) { return ! label; } - // No copying! + bool label_matches (const octave_value& val); - tree_if_command (const tree_if_command&) = delete; - - tree_if_command& operator = (const tree_if_command&) = delete; + tree_expression *case_label (void) { return label; } - ~tree_if_command (void); + tree_statement_list *commands (void) { return list; } - tree_if_command_list *cmd_list (void) { return list; } + octave_comment_list *leading_comment (void) { return lead_comm; } - octave_comment_list *leading_comment (void) { return lead_comm; } + tree_switch_case *dup (symbol_table::scope_id scope, + symbol_table::context_id context) const; - octave_comment_list *trailing_comment (void) { return trail_comm; } - - tree_command *dup (symbol_table::scope_id scope, - symbol_table::context_id context) const; + void accept (tree_walker& tw); - void accept (tree_walker& tw); + private: -private: - - // List of if commands (if, elseif, elseif, ... else, endif) - tree_if_command_list *list; + // The case label. + tree_expression *label; - // Comment preceding IF token. - octave_comment_list *lead_comm; - - // Comment preceding ENDIF token. - octave_comment_list *trail_comm; -}; + // The list of statements to evaluate if the label matches. + tree_statement_list *list; -// Switch. - -class -tree_switch_case : public tree -{ -public: + // Comment preceding CASE or OTHERWISE token. + octave_comment_list *lead_comm; + }; - tree_switch_case (int l = -1, int c = -1) - : tree (l, c), label (0), list (0), lead_comm (0) { } + class tree_switch_case_list : public octave::base_list<tree_switch_case *> + { + public: - tree_switch_case (tree_statement_list *sl, octave_comment_list *lc = 0, - int l = -1, int c = -1) - : tree (l, c), label (0), list (sl), lead_comm (lc) { } + tree_switch_case_list (void) { } - tree_switch_case (tree_expression *e, tree_statement_list *sl, - octave_comment_list *lc = 0, - int l = -1, int c = -1) - : tree (l, c), label (e), list (sl), lead_comm (lc) { } + tree_switch_case_list (tree_switch_case *t) { append (t); } + + // No copying! - // No copying! + tree_switch_case_list (const tree_switch_case_list&) = delete; - tree_switch_case (const tree_switch_case&) = delete; + tree_switch_case_list& operator = (const tree_switch_case_list&) = delete; - tree_switch_case& operator = (const tree_switch_case&) = delete; - - ~tree_switch_case (void); - - bool is_default_case (void) { return ! label; } - - bool label_matches (const octave_value& val); - - tree_expression *case_label (void) { return label; } - - tree_statement_list *commands (void) { return list; } + ~tree_switch_case_list (void) + { + while (! empty ()) + { + iterator p = begin (); + delete *p; + erase (p); + } + } - octave_comment_list *leading_comment (void) { return lead_comm; } - - tree_switch_case *dup (symbol_table::scope_id scope, - symbol_table::context_id context) const; - - void accept (tree_walker& tw); + tree_switch_case_list *dup (symbol_table::scope_id scope, + symbol_table::context_id context) const; -private: + void accept (tree_walker& tw); + }; - // The case label. - tree_expression *label; - - // The list of statements to evaluate if the label matches. - tree_statement_list *list; + class tree_switch_command : public tree_command + { + public: - // Comment preceding CASE or OTHERWISE token. - octave_comment_list *lead_comm; -}; + tree_switch_command (int l = -1, int c = -1) + : tree_command (l, c), expr (0), list (0), lead_comm (0), + trail_comm (0) { } -class -tree_switch_case_list : public octave::base_list<tree_switch_case *> -{ -public: - - tree_switch_case_list (void) { } - - tree_switch_case_list (tree_switch_case *t) { append (t); } + tree_switch_command (tree_expression *e, tree_switch_case_list *lst, + octave_comment_list *lc, octave_comment_list *tc, + int l = -1, int c = -1) + : tree_command (l, c), expr (e), list (lst), lead_comm (lc), + trail_comm (tc) { } - // No copying! + // No copying! - tree_switch_case_list (const tree_switch_case_list&) = delete; + tree_switch_command (const tree_switch_command&) = delete; - tree_switch_case_list& operator = (const tree_switch_case_list&) = delete; + tree_switch_command& operator = (const tree_switch_command&) = delete; - ~tree_switch_case_list (void) - { - while (! empty ()) - { - iterator p = begin (); - delete *p; - erase (p); - } - } + ~tree_switch_command (void); + + tree_expression *switch_value (void) { return expr; } + + tree_switch_case_list *case_list (void) { return list; } - tree_switch_case_list *dup (symbol_table::scope_id scope, - symbol_table::context_id context) const; + octave_comment_list *leading_comment (void) { return lead_comm; } + + octave_comment_list *trailing_comment (void) { return trail_comm; } - void accept (tree_walker& tw); -}; + tree_command *dup (symbol_table::scope_id scope, + symbol_table::context_id context) const; -class -tree_switch_command : public tree_command -{ -public: + void accept (tree_walker& tw); - tree_switch_command (int l = -1, int c = -1) - : tree_command (l, c), expr (0), list (0), lead_comm (0), - trail_comm (0) { } + private: + + // Value on which to switch. + tree_expression *expr; - tree_switch_command (tree_expression *e, tree_switch_case_list *lst, - octave_comment_list *lc, octave_comment_list *tc, - int l = -1, int c = -1) - : tree_command (l, c), expr (e), list (lst), lead_comm (lc), - trail_comm (tc) { } + // List of cases (case 1, case 2, ..., default) + tree_switch_case_list *list; - // No copying! - - tree_switch_command (const tree_switch_command&) = delete; - - tree_switch_command& operator = (const tree_switch_command&) = delete; + // Comment preceding SWITCH token. + octave_comment_list *lead_comm; - ~tree_switch_command (void); - - tree_expression *switch_value (void) { return expr; } - - tree_switch_case_list *case_list (void) { return list; } + // Comment preceding ENDSWITCH token. + octave_comment_list *trail_comm; + }; +} - octave_comment_list *leading_comment (void) { return lead_comm; } - - octave_comment_list *trailing_comment (void) { return trail_comm; } +#if defined (OCTAVE_USE_DEPRECATED_FUNCTIONS) - tree_command *dup (symbol_table::scope_id scope, - symbol_table::context_id context) const; - - void accept (tree_walker& tw); +OCTAVE_DEPRECATED ("use 'octave::tree_if_clause' instead") +typedef octave::tree_if_clause tree_if_clause; -private: +// tree_if_command_list is derived from a template. - // Value on which to switch. - tree_expression *expr; +OCTAVE_DEPRECATED ("use 'octave::tree_if_command' instead") +typedef octave::tree_if_command tree_if_command; - // List of cases (case 1, case 2, ..., default) - tree_switch_case_list *list; +OCTAVE_DEPRECATED ("use 'octave::tree_switch_case' instead") +typedef octave::tree_switch_case tree_switch_case; - // Comment preceding SWITCH token. - octave_comment_list *lead_comm; +// tree_switch_case_list is derived from a template. - // Comment preceding ENDSWITCH token. - octave_comment_list *trail_comm; -}; +OCTAVE_DEPRECATED ("use 'octave::tree_switch_command' instead") +typedef octave::tree_switch_command tree_switch_command; #endif +#endif