RexxSmartBuffer.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 */
40 /* */
41 /* Primitive Smart Buffer Class */
42 /* */
43 /******************************************************************************/
44 #include <stdlib.h>
45 #include <string.h>
46 #include "RexxCore.h"
47 #include "BufferClass.hpp"
48 #include "RexxSmartBuffer.hpp"
49 
50 RexxSmartBuffer::RexxSmartBuffer(size_t startSize)
51 /******************************************************************************/
52 /* Function: Initialize a smart buffer object */
53 /******************************************************************************/
54 {
55  /* default initial buffersize, 1 page*/
56  /* for buffer + data. */
57  OrefSet(this, this->buffer, (RexxBuffer *)new_buffer(startSize));
58 }
59 
60 void RexxSmartBuffer::live(size_t liveMark)
61 /******************************************************************************/
62 /* Function: Normal garbage collection live marking */
63 /******************************************************************************/
64 {
65  memory_mark(this->buffer);
66 }
67 void RexxSmartBuffer::liveGeneral(int reason)
68 /******************************************************************************/
69 /* Function: Generalized object marking */
70 /******************************************************************************/
71 {
72  memory_mark_general(this->buffer);
73 }
74 
75 void RexxSmartBuffer::flatten(RexxEnvelope *envelope)
76 /******************************************************************************/
77 /* Function: Flatten an object */
78 /******************************************************************************/
79 {
80  setUpFlatten(RexxSmartBuffer)
81 
82  flatten_reference(newThis->buffer, envelope);
83 
84  cleanUpFlatten
85 }
86 
87 size_t RexxSmartBuffer::copyData(
88  void *start, /* data to be copied */
89  size_t length) /* length to copy */
90 /******************************************************************************/
91 /* Function: Copy data into the buffer at the very end. */
92 /******************************************************************************/
93 {
94  if (this->space() < length) /* enough room in buffer for data? */
95  {
96  /* not big enough, tell buffer to */
97  /* make itself bigger, and assign */
98  /* new buffer */
99  OrefSet(this, this->buffer, this->buffer->expand(length));
100  }
101  this->buffer->copyData(this->current, (char *)start, length);
102 
103  size_t dataLoc = this->current; /* save start location of copied data*/
104  /* bump pointer to end of copied */
105  /* data, (prepare for next copy) */
106  this->current = this->current + length;
107  return dataLoc; /* return location of copied data */
108 }
109 
110 void *RexxSmartBuffer::operator new(size_t size)
111 /******************************************************************************/
112 /* Function: Create a new translator object */
113 /******************************************************************************/
114 {
115  return new_object(size, T_SmartBuffer); /* get storage for a new object */
116 }
117 
118 size_t RexxSmartBuffer::space()
119 /******************************************************************************/
120 /* Function: Return the space remaining in the buffer */
121 /******************************************************************************/
122 {
123  return this->buffer->getBufferSize() - this->current;
124 }
125 
new_buffer
RexxBuffer * new_buffer(size_t s)
Definition: BufferClass.hpp:126
T_SmartBuffer
@ T_SmartBuffer
Definition: ClassTypeCodes.h:131
OrefSet
#define OrefSet(o, r, v)
Definition: RexxCore.h:101
memory_mark
#define memory_mark(oref)
Definition: RexxMemory.hpp:450
new_object
RexxObject * new_object(size_t s)
Definition: RexxMemory.hpp:436
flatten_reference
#define flatten_reference(oref, envel)
Definition: RexxMemory.hpp:498
memory_mark_general
#define memory_mark_general(oref)
Definition: RexxMemory.hpp:451
cleanUpFlatten
#define cleanUpFlatten
Definition: RexxMemory.hpp:484
setUpFlatten
#define setUpFlatten(type)
Definition: RexxMemory.hpp:478
RexxBufferBase::getBufferSize
size_t getBufferSize()
Definition: BufferClass.hpp:54
RexxBufferBase::copyData
void copyData(size_t offset, const char *string, size_t l)
Definition: BufferClass.hpp:57
RexxBuffer::expand
RexxBuffer * expand(size_t)
Definition: BufferClass.cpp:63
RexxSmartBuffer::buffer
RexxBuffer * buffer
Definition: RexxSmartBuffer.hpp:69
RexxSmartBuffer::live
void live(size_t)
Definition: RexxSmartBuffer.cpp:60
RexxSmartBuffer::copyData
size_t copyData(void *, size_t)
Definition: RexxSmartBuffer.cpp:87
RexxSmartBuffer::liveGeneral
void liveGeneral(int reason)
Definition: RexxSmartBuffer.cpp:67
RexxSmartBuffer::flatten
void flatten(RexxEnvelope *)
Definition: RexxSmartBuffer.cpp:75