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)  

DoBlock.hpp
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 DoBlock.hpp */
40 /* */
41 /* Primitive Do Block Class Definitions */
42 /* */
43 /******************************************************************************/
44 #ifndef Included_RexxDoBlock
45 #define Included_RexxDoBlock
46 
48 
50  public:
51 
52  void *operator new(size_t);
53  inline void *operator new(size_t size, void *ptr) {return ptr;};
54  inline void operator delete(void *) { ; }
55  inline void operator delete(void *, void *) { ; }
56 
58  inline RexxDoBlock(RESTORETYPE restoreType) { ; };
59  void live(size_t);
60  void liveGeneral(int reason);
61  void flatten(RexxEnvelope *);
62 
63  inline RexxObject * getTo() {return this->to;};
64  inline wholenumber_t getFor() {return this->forcount;};
65  inline int getCompare() {return (int)(this->compare);};
66  inline RexxObject * getBy() {return this->by;};
67  inline RexxBlockInstruction * getParent() {return this->parent;};
68  inline void setTo(RexxObject * value) {this->to = value;};
69  inline void setBy(RexxObject * value) {this->by = value;};
70  inline void setCompare(int value) {this->compare = (unsigned short)value;};
71  inline void setFor(wholenumber_t value) {this->forcount = value;};
72  inline bool testFor() {return (this->forcount--) <= 0;};
73  inline size_t getIndent() { return this->indent; };
74  inline void setPrevious(RexxDoBlock *block) { this->previous = block; }
75  inline RexxDoBlock *getPrevious() { return previous; }
76 
77 protected:
78 
79  RexxDoBlock *previous; /* previous stacked Do Block */
80  RexxBlockInstruction *parent; /* parent instruction */
81  RexxObject *to; /* final target value */
82  RexxObject *by; /* control increment value */
83  wholenumber_t forcount; /* number of iterations */
84  size_t indent; /* base indentation */
85  int compare; /* type of comparison */
86 };
87 #endif
RexxDoBlock::compare
int compare
Definition: DoBlock.hpp:85
RexxDoBlock::setBy
void setBy(RexxObject *value)
Definition: DoBlock.hpp:69
RexxDoBlock::setPrevious
void setPrevious(RexxDoBlock *block)
Definition: DoBlock.hpp:74
RexxDoBlock::indent
size_t indent
Definition: DoBlock.hpp:84
RexxInternalObject
Definition: ObjectClass.hpp:206
RexxDoBlock::by
RexxObject * by
Definition: DoBlock.hpp:82
RexxDoBlock::getCompare
int getCompare()
Definition: DoBlock.hpp:65
RexxDoBlock::setFor
void setFor(wholenumber_t value)
Definition: DoBlock.hpp:71
RexxDoBlock::to
RexxObject * to
Definition: DoBlock.hpp:81
RexxEnvelope
Definition: RexxEnvelope.hpp:53
RexxDoBlock::setCompare
void setCompare(int value)
Definition: DoBlock.hpp:70
RexxDoBlock::previous
RexxDoBlock * previous
Definition: DoBlock.hpp:79
RexxDoBlock::parent
RexxBlockInstruction * parent
Definition: DoBlock.hpp:80
RexxDoBlock::forcount
wholenumber_t forcount
Definition: DoBlock.hpp:83
RexxDoBlock::RexxDoBlock
RexxDoBlock(RESTORETYPE restoreType)
Definition: DoBlock.hpp:58
RexxDoBlock::getIndent
size_t getIndent()
Definition: DoBlock.hpp:73
RexxDoBlock::getFor
wholenumber_t getFor()
Definition: DoBlock.hpp:64
RexxDoBlock::getParent
RexxBlockInstruction * getParent()
Definition: DoBlock.hpp:67
RexxDoBlock::getBy
RexxObject * getBy()
Definition: DoBlock.hpp:66
RexxDoBlock::getPrevious
RexxDoBlock * getPrevious()
Definition: DoBlock.hpp:75
wholenumber_t
ssize_t wholenumber_t
Definition: rexx.h:229
RexxDoBlock::testFor
bool testFor()
Definition: DoBlock.hpp:72
RexxDoBlock::getTo
RexxObject * getTo()
Definition: DoBlock.hpp:63
RexxDoBlock::RexxDoBlock
RexxDoBlock(RexxBlockInstruction *, size_t)
Definition: DoBlock.cpp:49
RexxDoBlock::setTo
void setTo(RexxObject *value)
Definition: DoBlock.hpp:68
RESTORETYPE
RESTORETYPE
Definition: ObjectClass.hpp:80
RexxDoBlock::live
void live(size_t)
Definition: DoBlock.cpp:60
RexxBlockInstruction
Definition: RexxInstruction.hpp:91
RexxDoBlock::flatten
void flatten(RexxEnvelope *)
Definition: DoBlock.cpp:82
RexxDoBlock
Definition: DoBlock.hpp:49
RexxObject
Definition: ObjectClass.hpp:311
RexxDoBlock::liveGeneral
void liveGeneral(int reason)
Definition: DoBlock.cpp:71