GNU Octave  4.0.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Properties Friends Macros Pages
pt-except.cc
Go to the documentation of this file.
1 /*
2 
3 Copyright (C) 1996-2015 John W. Eaton
4 
5 This file is part of Octave.
6 
7 Octave is free software; you can redistribute it and/or modify it
8 under the terms of the GNU General Public License as published by the
9 Free Software Foundation; either version 3 of the License, or (at your
10 option) any later version.
11 
12 Octave is distributed in the hope that it will be useful, but WITHOUT
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
15 for more details.
16 
17 You should have received a copy of the GNU General Public License
18 along with Octave; see the file COPYING. If not, see
19 <http://www.gnu.org/licenses/>.
20 
21 */
22 
23 #ifdef HAVE_CONFIG_H
24 #include <config.h>
25 #endif
26 
27 #include "quit.h"
28 
29 #include "error.h"
30 #include "oct-lvalue.h"
31 #include "ov.h"
32 #include "pt-bp.h"
33 #include "pt-cmd.h"
34 #include "pt-except.h"
35 #include "pt-exp.h"
36 #include "pt-id.h"
37 #include "pt-jump.h"
38 #include "pt-stmt.h"
39 #include "pt-walk.h"
40 #include "unwind-prot.h"
41 #include "variables.h"
42 
43 // Simple exception handling.
44 
46 {
47  delete expr_id;
48  delete try_code;
49  delete catch_code;
50  delete lead_comm;
51  delete mid_comm;
52  delete trail_comm;
53 }
54 
58 {
59  return new
60  tree_try_catch_command (try_code ? try_code->dup (scope, context) : 0,
61  catch_code ? catch_code->dup (scope, context) : 0,
62  expr_id ? expr_id->dup (scope, context) : 0,
63  lead_comm ? lead_comm->dup () : 0,
64  mid_comm ? mid_comm->dup () : 0,
65  trail_comm ? trail_comm->dup () : 0,
66  line (), column ());
67 }
68 
69 void
71 {
72  tw.visit_try_catch_command (*this);
73 }
74 
75 // Simple exception handling.
76 
78 {
79  delete unwind_protect_code;
80  delete cleanup_code;
81  delete lead_comm;
82  delete mid_comm;
83  delete trail_comm;
84 }
85 
89 {
91  (unwind_protect_code ? unwind_protect_code->dup (scope, context) : 0,
92  cleanup_code ? cleanup_code->dup (scope, context) : 0,
93  lead_comm ? lead_comm->dup () : 0,
94  mid_comm ? mid_comm->dup () : 0,
95  trail_comm ? trail_comm->dup () : 0,
96  line (), column ());
97 }
98 
99 void
101 {
102  tw.visit_unwind_protect_command (*this);
103 }
tree_identifier * expr_id
Definition: pt-except.h:83
void accept(tree_walker &tw)
Definition: pt-except.cc:100
virtual void visit_unwind_protect_command(tree_unwind_protect_command &)=0
tree_statement_list * try_code
Definition: pt-except.h:77
octave_comment_list * mid_comm
Definition: pt-except.h:89
tree_statement_list * catch_code
Definition: pt-except.h:80
tree_statement_list * unwind_protect_code
Definition: pt-except.h:141
tree_command * dup(symbol_table::scope_id scope, symbol_table::context_id context) const
Definition: pt-except.cc:56
virtual void visit_try_catch_command(tree_try_catch_command &)=0
octave_comment_list * lead_comm
Definition: pt-except.h:86
tree_identifier * dup(symbol_table::scope_id scope, symbol_table::context_id context) const
Definition: pt-id.cc:139
static llvm::LLVMContext & context
Definition: jit-typeinfo.cc:76
octave_comment_list * trail_comm
Definition: pt-except.h:92
tree_command * dup(symbol_table::scope_id scope, symbol_table::context_id context) const
Definition: pt-except.cc:87
tree_unwind_protect_command(int l=-1, int c=-1)
Definition: pt-except.h:108
octave_comment_list * trail_comm
Definition: pt-except.h:154
tree_statement_list * cleanup_code
Definition: pt-except.h:145
tree_try_catch_command(int l=-1, int c=-1)
Definition: pt-except.h:42
virtual int line(void) const
Definition: pt.h:45
void accept(tree_walker &tw)
Definition: pt-except.cc:70
octave_comment_list * mid_comm
Definition: pt-except.h:151
octave_comment_list * lead_comm
Definition: pt-except.h:148
octave_comment_list * dup(void) const
Definition: comment-list.cc:33
virtual int column(void) const
Definition: pt.h:47
tree_statement_list * dup(symbol_table::scope_id scope, symbol_table::context_id context) const
Definition: pt-stmt.cc:271