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)  

RexxCompoundElement.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 /* REXX Kernel RexxCompoundElement.cpp */
40 /* */
41 /* Primitive Compound Variable Element Class */
42 /* */
43 /****************************************************************************/
44 #include "RexxCore.h"
45 #include "RexxCompoundElement.hpp"
46 #include "RexxActivity.hpp"
47 
48 void RexxCompoundElement::live(size_t liveMark)
49 /******************************************************************************/
50 /* Function: Normal garbage collection live marking */
51 /******************************************************************************/
52 {
55  memory_mark(this->dependents);
56  memory_mark(this->parent);
57  memory_mark(this->left);
58  memory_mark(this->right);
60 }
61 
63 /******************************************************************************/
64 /* Function: Normal garbage collection live marking */
65 /******************************************************************************/
66 {
74 }
75 
77 /******************************************************************************/
78 /* Function: Flatten an object */
79 /******************************************************************************/
80 {
82 
83  flatten_reference(newThis->variableValue, envelope);
84  flatten_reference(newThis->variable_name, envelope);
85  flatten_reference(newThis->dependents, envelope);
86  flatten_reference(newThis->parent, envelope);
87  flatten_reference(newThis->left, envelope);
88  flatten_reference(newThis->right, envelope);
89  flatten_reference(newThis->real_element, envelope);
90 
92 }
93 
94 
96  RexxString *name) /* the name of the variable */
97 /****************************************************************************/
98 /* Function: Create a new REXX compound variable object */
99 /****************************************************************************/
100 {
101  /* Get new object */
103  newObj->variable_name = name; /* fill in the name */
104  return newObj; /* return the new object */
105 }
RexxCompoundElement::right
RexxCompoundElement * right
Definition: RexxCompoundElement.hpp:76
RexxCompoundElement
Definition: RexxCompoundElement.hpp:50
T_CompoundElement
Definition: ClassTypeCodes.h:176
RexxCompoundElement::left
RexxCompoundElement * left
Definition: RexxCompoundElement.hpp:75
memory_mark_general
#define memory_mark_general(oref)
Definition: RexxMemory.hpp:437
RexxVariable::variable_name
RexxString * variable_name
Definition: RexxVariable.hpp:97
RexxCompoundElement::real_element
RexxCompoundElement * real_element
Definition: RexxCompoundElement.hpp:80
RexxCompoundElement::flatten
void flatten(RexxEnvelope *)
Definition: RexxCompoundElement.cpp:76
RexxCompoundElement::parent
RexxCompoundElement * parent
Definition: RexxCompoundElement.hpp:77
RexxEnvelope
Definition: RexxEnvelope.hpp:53
flatten_reference
#define flatten_reference(oref, envel)
Definition: RexxMemory.hpp:440
cleanUpFlatten
#define cleanUpFlatten
Definition: RexxMemory.hpp:432
RexxCompoundElement::newInstance
static RexxCompoundElement * newInstance(RexxString *name)
Definition: RexxCompoundElement.cpp:95
RexxVariable::variableValue
RexxObject * variableValue
Definition: RexxVariable.hpp:98
memory_mark
#define memory_mark(oref)
Definition: RexxMemory.hpp:436
RexxCompoundElement::live
void live(size_t)
Definition: RexxCompoundElement.cpp:48
RexxCompoundElement.hpp
RexxVariable::dependents
RexxIdentityTable * dependents
Definition: RexxVariable.hpp:100
setUpFlatten
#define setUpFlatten(type)
Definition: RexxMemory.hpp:427
RexxCompoundElement::liveGeneral
void liveGeneral(int reason)
Definition: RexxCompoundElement.cpp:62
RexxActivity.hpp
RexxCore.h
new_object
RexxObject * new_object(size_t s)
Definition: RexxMemory.hpp:422
RexxString
Definition: StringClass.hpp:119