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
*/
50
void
ActivityDispatcher::run
()
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
*/
62
void
ActivityDispatcher::handleError
(
wholenumber_t
r,
RexxDirectory
*c)
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
*/
76
void
ActivityDispatcher::handleError
(
RexxDirectory
*c)
77
{
78
// this only gets added if there is a condition
79
if
(c !=
OREF_NULL
)
80
{
81
handleError
(
activity
->
errorNumber
(c), c);
82
}
83
}
84
85
86
/**
87
* Invoke the dispatcher on a newly created interpreter instance.
88
*/
89
void
ActivityDispatcher::invoke
()
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
*/
102
void
ActivityDispatcher::invoke
(
RexxOption
*options)
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
}
ActivityDispatcher.hpp
Interpreter.hpp
InterpreterInstance.hpp
RexxActivity.hpp
RexxCore.h
OREF_NULL
#define OREF_NULL
Definition:
RexxCore.h:61
ActivityDispatcher::handleError
virtual void handleError(wholenumber_t, RexxDirectory *)
Definition:
ActivityDispatcher.cpp:62
ActivityDispatcher::activity
RexxActivity * activity
Definition:
ActivityDispatcher.hpp:67
ActivityDispatcher::conditionData
RexxDirectory * conditionData
Definition:
ActivityDispatcher.hpp:63
ActivityDispatcher::run
virtual void run()
Definition:
ActivityDispatcher.cpp:50
ActivityDispatcher::rc
wholenumber_t rc
Definition:
ActivityDispatcher.hpp:62
ActivityDispatcher::invoke
virtual void invoke()
Definition:
ActivityDispatcher.cpp:89
InstanceBlock
Definition:
Interpreter.hpp:200
InstanceBlock::activity
RexxActivity * activity
Definition:
Interpreter.hpp:207
RexxActivity::run
void run()
Definition:
RexxActivity.cpp:1708
RexxActivity::errorNumber
wholenumber_t errorNumber(RexxDirectory *conditionObject)
Definition:
RexxActivity.cpp:423
RexxDirectory
Definition:
DirectoryClass.hpp:49
wholenumber_t
ssize_t wholenumber_t
Definition:
rexx.h:230
_RXSYSEXIT
Definition:
rexx.h:190
RexxOption
Definition:
oorexxapi.h:417
oorexx
executor
sandbox
jlf
trunk
interpreter
concurrency
ActivityDispatcher.cpp
Generated by
1.9.2