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)  

PointerClass.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.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 /* REXX Kernel RexxPointer.hpp */
40 /* */
41 /* Primitive Pointer Class Definitions */
42 /* */
43 /******************************************************************************/
44 #ifndef Included_RexxPointer
45 #define Included_RexxPointer
46 
47 #include "ObjectClass.hpp"
48 
49 class RexxPointer : public RexxObject
50 {
51 public:
52  inline void *operator new(size_t, void *ptr) { return ptr; }
53  inline void operator delete(void *, void *) { ; }
54  void *operator new(size_t);
55  inline void operator delete(void *) { ; }
56 
57  inline RexxPointer() { pointerData = NULL; };
58  inline RexxPointer(void *ptr) { pointerData = ptr; };
59  inline RexxPointer(RESTORETYPE restoreType) { ; };
60  inline void *pointer() { return pointerData; }
61 
64 
65  RexxObject *isNull();
66  virtual HashCode getHashValue();
67  virtual RexxString *stringValue();
68 
69  RexxObject *newRexx(RexxObject **args, size_t argc);
70 
71  static void createInstance();
72 
73  static RexxClass *classInstance; // singleton class instance
74  static RexxPointer *nullPointer; // single version of a null pointer
75 
76 protected:
77  void *pointerData; /* actual pointer value */
78 };
79 
80 
81 inline RexxPointer *new_pointer(void *p)
82 {
83 
84  return new RexxPointer(p);
85 }
86 #endif
RexxPointer::pointer
void * pointer()
Definition: PointerClass.hpp:60
RexxPointer::equal
RexxObject * equal(RexxObject *)
Definition: PointerClass.cpp:72
RexxPointer::createInstance
static void createInstance()
Definition: PointerClass.cpp:55
RexxPointer
Definition: PointerClass.hpp:49
RexxPointer::nullPointer
static RexxPointer * nullPointer
Definition: PointerClass.hpp:74
RexxPointer::RexxPointer
RexxPointer(void *ptr)
Definition: PointerClass.hpp:58
HashCode
size_t HashCode
Definition: ObjectClass.hpp:77
RexxPointer::RexxPointer
RexxPointer(RESTORETYPE restoreType)
Definition: PointerClass.hpp:59
RexxClass
Definition: ClassClass.hpp:49
RexxPointer::classInstance
static RexxClass * classInstance
Definition: PointerClass.hpp:73
RexxPointer::newRexx
RexxObject * newRexx(RexxObject **args, size_t argc)
Definition: PointerClass.cpp:128
RexxPointer::pointerData
void * pointerData
Definition: PointerClass.hpp:77
ObjectClass.hpp
RexxPointer::notEqual
RexxObject * notEqual(RexxObject *other)
Definition: PointerClass.cpp:92
RexxPointer::isNull
RexxObject * isNull()
Definition: PointerClass.cpp:155
RexxPointer::RexxPointer
RexxPointer()
Definition: PointerClass.hpp:57
RexxPointer::stringValue
virtual RexxString * stringValue()
Definition: PointerClass.cpp:144
new_pointer
RexxPointer * new_pointer(void *p)
Definition: PointerClass.hpp:81
RESTORETYPE
RESTORETYPE
Definition: ObjectClass.hpp:80
RexxPointer::getHashValue
virtual HashCode getHashValue()
Definition: PointerClass.cpp:108
RexxObject
Definition: ObjectClass.hpp:311
RexxString
Definition: StringClass.hpp:119