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)  

SupplierClass.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 SupplierClass.hpp */
40 /* */
41 /* Primitive Supplier Class Definition */
42 /* */
43 /******************************************************************************/
44 #ifndef Included_RexxSupplier
45 #define Included_RexxSupplier
46 
47  class RexxSupplier : public RexxObject {
48  public:
49  inline RexxSupplier(RESTORETYPE restoreType) { ; };
51  RexxSupplier();
52 
53  void *operator new(size_t);
54  inline void *operator new(size_t size, void *ptr) { return ptr; };
55 
56  void live(size_t);
57  void liveGeneral(int reason);
58  void flatten(RexxEnvelope *);
60  RexxObject *next();
61  RexxObject *value();
62  RexxObject *index();
64 
65  static void createInstance();
67 
68  protected:
69  RexxArray *values; /* array of values */
70  RexxArray *indexes; /* array of indexes */
71  size_t position; /* current array position */
72 
73  };
74  class RexxSupplierClass : public RexxClass {
75  public:
76  RexxObject *newRexx(RexxObject **, size_t);
77  };
78 
79 
80  inline RexxSupplier *new_supplier(RexxArray *c, RexxArray *f) { return new RexxSupplier(c, f); }
81  #endif
RexxArray
Definition: ArrayClass.hpp:100
RexxSupplierClass
Definition: SupplierClass.hpp:74
RexxSupplierClass::newRexx
RexxObject * newRexx(RexxObject **, size_t)
Definition: SupplierClass.cpp:245
RexxSupplier::live
void live(size_t)
Definition: SupplierClass.cpp:89
RexxSupplier::initRexx
RexxObject * initRexx(RexxArray *values, RexxArray *indexes)
Definition: SupplierClass.cpp:220
new_supplier
RexxSupplier * new_supplier(RexxArray *c, RexxArray *f)
Definition: SupplierClass.hpp:80
RexxSupplier
Definition: SupplierClass.hpp:47
RexxEnvelope
Definition: RexxEnvelope.hpp:53
RexxSupplier::RexxSupplier
RexxSupplier()
Definition: SupplierClass.cpp:79
RexxSupplier::values
RexxArray * values
Definition: SupplierClass.hpp:69
RexxSupplier::createInstance
static void createInstance()
Definition: SupplierClass.cpp:59
RexxSupplier::RexxSupplier
RexxSupplier(RESTORETYPE restoreType)
Definition: SupplierClass.hpp:49
RexxClass
Definition: ClassClass.hpp:49
RexxSupplier::index
RexxObject * index()
Definition: SupplierClass.cpp:166
RexxSupplier::liveGeneral
void liveGeneral(int reason)
Definition: SupplierClass.cpp:99
RexxSupplier::indexes
RexxArray * indexes
Definition: SupplierClass.hpp:70
RexxSupplier::classInstance
static RexxClass * classInstance
Definition: SupplierClass.hpp:66
RexxSupplier::position
size_t position
Definition: SupplierClass.hpp:71
RexxSupplier::available
RexxInteger * available()
Definition: SupplierClass.cpp:122
RexxSupplier::flatten
void flatten(RexxEnvelope *)
Definition: SupplierClass.cpp:109
RexxSupplier::next
RexxObject * next()
Definition: SupplierClass.cpp:131
RESTORETYPE
RESTORETYPE
Definition: ObjectClass.hpp:80
RexxInteger
Definition: IntegerClass.hpp:56
RexxSupplier::value
RexxObject * value()
Definition: SupplierClass.cpp:146
RexxObject
Definition: ObjectClass.hpp:311