ActivityDispatcher.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 "ActivityDispatcher.hpp"
41 #include "Interpreter.hpp"
42 #include "InterpreterInstance.hpp"
43 #include "RexxActivity.hpp"
44 
45 
46 /**
47  * Default virtual method for handling a run() methods on
48  * an activity dispatcher.
49  */
51 {
52  // this just returns
53 }
54 
55 
56 /**
57  * Default handler for any error conditions. This just sets the
58  * condition information in the dispatch unit.
59  *
60  * @param c The condition information for the error.
61  */
63 {
64  // save the condition information
65  rc = r;
66  conditionData = c;
67 }
68 
69 
70 /**
71  * Default handler for any error conditions. This just sets the
72  * condition information in the dispatch unit.
73  *
74  * @param c The condition information for the error.
75  */
77 {
78  // this only gets added if there is a condition
79  if (c != OREF_NULL)
80  {
82  }
83 }
84 
85 
86 /**
87  * Invoke the dispatcher on a newly created interpreter instance.
88  */
90 {
91  // this creates a new instance to run under, with an active activity
92  InstanceBlock instance;
93 
94  // go run the instance on the current activity
95  instance.activity->run(*this);
96 }
97 
98 
99 /**
100  * Invoke the dispatcher on a newly created interpreter instance.
101  */
103 {
104  // this creates a new instance to run under, with an active activity
105  InstanceBlock instance(options);
106 
107  // go run the instance on the current activity
108  instance.activity->run(*this);
109 }
110 
111 
112 /**
113  * Invoke the dispatcher on a newly created interpreter instance.
114  */
115 void ActivityDispatcher::invoke(PRXSYSEXIT exits, const char *env)
116 {
117  // this creates a new instance to run under, with an active activity
118  InstanceBlock instance(exits, env);
119 
120  // go run the instance on the current activity
121  instance.activity->run(*this);
122 }
#define OREF_NULL
Definition: RexxCore.h:61
virtual void handleError(wholenumber_t, RexxDirectory *)
RexxDirectory * conditionData
RexxActivity * activity
wholenumber_t errorNumber(RexxDirectory *conditionObject)
ssize_t wholenumber_t
Definition: rexx.h:230