TrappingDispatcher.cpp
Go to the documentation of this file.
1 /*----------------------------------------------------------------------------*/
2 /* */
3 /* Copyright (c) 1995, 2004 IBM Corporation. All rights reserved. */
4 /* Copyright (c) 2005-2009 Rexx Language Association. All rights reserved. */
5 /* */
6 /* This program and the accompanying materials are made available under */
7 /* the terms of the Common Public License v1.0 which accompanies this */
8 /* distribution. A copy is also available at the following address: */
9 /* http://www.oorexx.org/license.html */
10 /* */
11 /* Redistribution and use in source and binary forms, with or */
12 /* without modification, are permitted provided that the following */
13 /* conditions are met: */
14 /* */
15 /* Redistributions of source code must retain the above copyright */
16 /* notice, this list of conditions and the following disclaimer. */
17 /* Redistributions in binary form must reproduce the above copyright */
18 /* notice, this list of conditions and the following disclaimer in */
19 /* the documentation and/or other materials provided with the distribution. */
20 /* */
21 /* Neither the name of Rexx Language Association nor the names */
22 /* of its contributors may be used to endorse or promote products */
23 /* derived from this software without specific prior written permission. */
24 /* */
25 /* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS */
26 /* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT */
27 /* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS */
28 /* FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT */
29 /* OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, */
30 /* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED */
31 /* TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, */
32 /* OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY */
33 /* OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING */
34 /* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS */
35 /* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */
36 /* */
37 /*----------------------------------------------------------------------------*/
38 
39 #include "RexxCore.h"
40 #include "TrappingDispatcher.hpp"
41 #include "Interpreter.hpp"
42 #include "InterpreterInstance.hpp"
43 #include "RexxActivity.hpp"
44 #include "RexxNativeActivation.hpp"
45 
46 
47 /**
48  * Default virtual method for handling a run() methods on
49  * an activity dispatcher.
50  */
52 {
53  // this just returns
54 }
55 
56 
57 /**
58  * Default handler for any error conditions. This just sets the
59  * condition information in the dispatch unit.
60  *
61  * @param c The condition information for the error.
62  */
64 {
65  // save the condition information
66  rc = r;
67  conditionData = c;
68 }
69 
70 
71 /**
72  * Default handler for any error conditions. This just sets the
73  * condition information in the dispatch unit.
74  *
75  * @param c The condition information for the error.
76  */
78 {
79  // this only gets added if there is a condition
80  if (c != OREF_NULL)
81  {
82  // raise this as a normal error by default
84  }
85 }
86 
87 
#define OREF_NULL
Definition: RexxCore.h:60
virtual void handleError(wholenumber_t, RexxDirectory *)
RexxDirectory * conditionData
RexxNativeActivation * activation
ssize_t wholenumber_t
Definition: rexx.h:230