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