ooRexx  4.2.0-source
About: ooRexx (Open Object Rexx) is a free implementation of Object Rexx. Object Rexx is an enhancement of the classic Rexx interpreter; a full-featured programming language with a human-oriented syntax.
  Fossies Dox: ooRexx-4.2.0-source.tar.gz  ("inofficial" and yet experimental doxygen-generated source code documentation)  

ExitHandler.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.ibm.com/developerworks/oss/CPLv1.0.htm */
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 
40 #include "RexxCore.h"
41 #include "ExitHandler.hpp"
42 #include "RexxActivity.hpp"
43 #include "ActivityManager.hpp"
44 #include "RexxInternalApis.h"
45 
46 
59 int ExitHandler::call(RexxActivity *activity, RexxActivation *activation, int function, int subfunction, void *parms)
60 {
61  if (type == REGISTERED_NAME)
62  {
63  ExitHandlerDispatcher dispatcher(entryPoint, function, subfunction, parms);
64 
65  // run this and give back the return code
66  activity->run(dispatcher);
67  return dispatcher.rc;
68  }
69  else
70  {
71  ContextExitHandlerDispatcher dispatcher(entryPoint, function, subfunction, parms);
72 
73  // run this and give back the return code
74  activity->run(dispatcher);
75  return dispatcher.rc;
76  }
77 }
78 
79 
86 void ExitHandler::resolve(const char *name)
87 {
90 }
91 
92 
100 {
101  entryPoint = (REXXPFN)handler;
102  type = DIRECT;
103 }
104 
105 
106 
111 {
112  RexxExitHandler *exit_address = (RexxExitHandler *)entryPoint;
113  rc = (int)(*exit_address)(major, minor, (PEXIT)parms);
114 }
115 
116 
117 
122 {
124 
125  ExitContext context;
126 
127  // build a context pointer to pass out
129 
130  rc = (int)(*exit_address)(&context.threadContext, major, minor, (PEXIT)parms);
131 }
RexxExitHandler
int REXXENTRY RexxExitHandler(int, int, PEXIT)
Definition: rexx.h:628
ExitHandler::DIRECT
Definition: ExitHandler.hpp:83
ExitHandlerDispatcher::parms
void * parms
Definition: ExitHandler.hpp:104
CallbackDispatcher::activation
RexxNativeActivation * activation
Definition: CallbackDispatcher.hpp:63
ActivityManager.hpp
RexxActivity::run
void run()
Definition: RexxActivity.cpp:1384
RexxActivity::createExitContext
void createExitContext(ExitContext &context, RexxNativeActivation *owner)
Definition: RexxActivity.cpp:3161
CallbackDispatcher::activity
RexxActivity * activity
Definition: CallbackDispatcher.hpp:62
ExitHandlerDispatcher
Definition: ExitHandler.hpp:92
RexxResolveExit
int REXXENTRY RexxResolveExit(const char *, REXXPFN *)
Definition: RegistrationAPI.cpp:405
ExitHandler.hpp
ExitHandlerDispatcher::major
int major
Definition: ExitHandler.hpp:101
PEXIT
char * PEXIT
Definition: rexx.h:215
ExitHandler::entryPoint
REXXPFN entryPoint
Definition: ExitHandler.hpp:87
ContextExitHandlerDispatcher::run
virtual void run()
Definition: ExitHandler.cpp:121
RexxActivity
Definition: RexxActivity.hpp:127
ExitHandlerDispatcher::minor
int minor
Definition: ExitHandler.hpp:102
REXXPFN
void * REXXPFN
Definition: rexxapitypes.h:63
ExitHandlerDispatcher::rc
int rc
Definition: ExitHandler.hpp:100
ExitHandler::REGISTERED_NAME
Definition: ExitHandler.hpp:82
ExitHandlerDispatcher::entryPoint
REXXPFN entryPoint
Definition: ExitHandler.hpp:103
RexxInternalApis.h
RexxContextExitHandler
int REXXENTRY RexxContextExitHandler(RexxExitContext *, int, int, PEXIT)
Definition: oorexxapi.h:165
RexxActivation
Definition: RexxActivation.hpp:156
ContextExitHandlerDispatcher
Definition: ExitHandler.hpp:108
ExitHandlerDispatcher::run
virtual void run()
Definition: ExitHandler.cpp:110
ExitHandler::resolve
void resolve(const char *name)
Definition: ExitHandler.cpp:86
RexxActivity.hpp
ExitContext
Definition: ActivationApiContexts.hpp:84
ExitHandler::type
ExitType type
Definition: ExitHandler.hpp:88
RexxCore.h
ExitHandler::call
int call(RexxActivity *activity, RexxActivation *activation, int major, int minor, void *parms)
Definition: ExitHandler.cpp:59
ExitContext::threadContext
RexxExitContext threadContext
Definition: ActivationApiContexts.hpp:86