]> git.stg.codes - stg.git/blob - stglibs/ibpp.lib/blob.cpp
Fix compilation issues on FreeBSD4
[stg.git] / stglibs / ibpp.lib / blob.cpp
1 ///////////////////////////////////////////////////////////////////////////////\r
2 //\r
3 //      File    : $Id: blob.cpp,v 1.2 2009/03/19 20:00:28 faust Exp $\r
4 //      Subject : IBPP, Blob class implementation\r
5 //\r
6 ///////////////////////////////////////////////////////////////////////////////\r
7 //\r
8 //      (C) Copyright 2000-2006 T.I.P. Group S.A. and the IBPP Team (www.ibpp.org)\r
9 //\r
10 //      The contents of this file are subject to the IBPP License (the "License");\r
11 //      you may not use this file except in compliance with the License.  You may\r
12 //      obtain a copy of the License at http://www.ibpp.org or in the 'license.txt'\r
13 //      file which must have been distributed along with this file.\r
14 //\r
15 //      This software, distributed under the License, is distributed on an "AS IS"\r
16 //      basis, WITHOUT WARRANTY OF ANY KIND, either express or implied.  See the\r
17 //      License for the specific language governing rights and limitations\r
18 //      under the License.\r
19 //\r
20 ///////////////////////////////////////////////////////////////////////////////\r
21 //\r
22 //      COMMENTS\r
23 //      * Tabulations should be set every four characters when editing this file.\r
24 //\r
25 ///////////////////////////////////////////////////////////////////////////////\r
26 \r
27 #ifdef _MSC_VER\r
28 #pragma warning(disable: 4786 4996)\r
29 #ifndef _DEBUG\r
30 #pragma warning(disable: 4702)\r
31 #endif\r
32 #endif\r
33 \r
34 #include "_ibpp.h"\r
35 \r
36 #ifdef HAS_HDRSTOP\r
37 #pragma hdrstop\r
38 #endif\r
39 \r
40 #include <cstring>\r
41 \r
42 using namespace ibpp_internals;\r
43 \r
44 //      (((((((( OBJECT INTERFACE IMPLEMENTATION ))))))))\r
45 \r
46 void BlobImpl::Open()\r
47 {\r
48         if (mHandle != 0)\r
49                 throw LogicExceptionImpl("Blob::Open", _("Blob already opened."));\r
50         if (mDatabase == 0)\r
51                 throw LogicExceptionImpl("Blob::Open", _("No Database is attached."));\r
52         if (mTransaction == 0)\r
53                 throw LogicExceptionImpl("Blob::Open", _("No Transaction is attached."));\r
54         if (! mIdAssigned)\r
55                 throw LogicExceptionImpl("Blob::Open", _("Blob Id is not assigned."));\r
56 \r
57         IBS status;\r
58         (*gds.Call()->m_open_blob2)(status.Self(), mDatabase->GetHandlePtr(),\r
59                 mTransaction->GetHandlePtr(), &mHandle, &mId, 0, 0);\r
60         if (status.Errors())\r
61                 throw SQLExceptionImpl(status, "Blob::Open", _("isc_open_blob2 failed."));\r
62         mWriteMode = false;\r
63 }\r
64 \r
65 void BlobImpl::Create()\r
66 {\r
67         if (mHandle != 0)\r
68                 throw LogicExceptionImpl("Blob::Create", _("Blob already opened."));\r
69         if (mDatabase == 0)\r
70                 throw LogicExceptionImpl("Blob::Create", _("No Database is attached."));\r
71         if (mTransaction == 0)\r
72                 throw LogicExceptionImpl("Blob::Create", _("No Transaction is attached."));\r
73 \r
74         IBS status;\r
75         (*gds.Call()->m_create_blob2)(status.Self(), mDatabase->GetHandlePtr(),\r
76                 mTransaction->GetHandlePtr(), &mHandle, &mId, 0, 0);\r
77         if (status.Errors())\r
78                 throw SQLExceptionImpl(status, "Blob::Create",\r
79                         _("isc_create_blob failed."));\r
80         mIdAssigned = true;\r
81         mWriteMode = true;\r
82 }\r
83 \r
84 void BlobImpl::Close()\r
85 {\r
86         if (mHandle == 0) return;       // Not opened anyway\r
87 \r
88         IBS status;\r
89         (*gds.Call()->m_close_blob)(status.Self(), &mHandle);\r
90         if (status.Errors())\r
91                 throw SQLExceptionImpl(status, "Blob::Close", _("isc_close_blob failed."));\r
92         mHandle = 0;\r
93 }\r
94 \r
95 void BlobImpl::Cancel()\r
96 {\r
97         if (mHandle == 0) return;       // Not opened anyway\r
98 \r
99         if (! mWriteMode)\r
100                 throw LogicExceptionImpl("Blob::Cancel", _("Can't cancel a Blob opened for read"));\r
101 \r
102         IBS status;\r
103         (*gds.Call()->m_cancel_blob)(status.Self(), &mHandle);\r
104         if (status.Errors())\r
105                 throw SQLExceptionImpl(status, "Blob::Cancel", _("isc_cancel_blob failed."));\r
106         mHandle = 0;\r
107         mIdAssigned = false;\r
108 }\r
109 \r
110 int BlobImpl::Read(void* buffer, int size)\r
111 {\r
112         if (mHandle == 0)\r
113                 throw LogicExceptionImpl("Blob::Read", _("The Blob is not opened"));\r
114         if (mWriteMode)\r
115                 throw LogicExceptionImpl("Blob::Read", _("Can't read from Blob opened for write"));\r
116         if (size < 1 || size > (64*1024-1))\r
117                 throw LogicExceptionImpl("Blob::Read", _("Invalid segment size (max 64Kb-1)"));\r
118 \r
119         IBS status;\r
120         unsigned short bytesread;\r
121         int result = (*gds.Call()->m_get_segment)(status.Self(), &mHandle, &bytesread,\r
122                                         (unsigned short)size, (char*)buffer);\r
123         if (result == isc_segstr_eof) return 0; // Fin du blob\r
124         if (result != isc_segment && status.Errors())\r
125                 throw SQLExceptionImpl(status, "Blob::Read", _("isc_get_segment failed."));\r
126         return (int)bytesread;\r
127 }\r
128 \r
129 void BlobImpl::Write(const void* buffer, int size)\r
130 {\r
131         if (mHandle == 0)\r
132                 throw LogicExceptionImpl("Blob::Write", _("The Blob is not opened"));\r
133         if (! mWriteMode)\r
134                 throw LogicExceptionImpl("Blob::Write", _("Can't write to Blob opened for read"));\r
135         if (size < 1 || size > (64*1024-1))\r
136                 throw LogicExceptionImpl("Blob::Write", _("Invalid segment size (max 64Kb-1)"));\r
137 \r
138         IBS status;\r
139         (*gds.Call()->m_put_segment)(status.Self(), &mHandle,\r
140                 (unsigned short)size, (char*)buffer);\r
141         if (status.Errors())\r
142                 throw SQLExceptionImpl(status, "Blob::Write", _("isc_put_segment failed."));\r
143 }\r
144 \r
145 void BlobImpl::Info(int* Size, int* Largest, int* Segments)\r
146 {\r
147         char items[] = {isc_info_blob_total_length,\r
148                                         isc_info_blob_max_segment,\r
149                                         isc_info_blob_num_segments};\r
150 \r
151         if (mHandle == 0)\r
152                 throw LogicExceptionImpl("Blob::GetInfo", _("The Blob is not opened"));\r
153 \r
154         IBS status;\r
155         RB result(100);\r
156         (*gds.Call()->m_blob_info)(status.Self(), &mHandle, sizeof(items), items,\r
157                 (short)result.Size(), result.Self());\r
158         if (status.Errors())\r
159                 throw SQLExceptionImpl(status, "Blob::GetInfo", _("isc_blob_info failed."));\r
160 \r
161         if (Size != 0) *Size = result.GetValue(isc_info_blob_total_length);\r
162         if (Largest != 0) *Largest = result.GetValue(isc_info_blob_max_segment);\r
163         if (Segments != 0) *Segments = result.GetValue(isc_info_blob_num_segments);\r
164 }\r
165 \r
166 void BlobImpl::Save(const std::string& data)\r
167 {\r
168         if (mHandle != 0)\r
169                 throw LogicExceptionImpl("Blob::Save", _("Blob already opened."));\r
170         if (mDatabase == 0)\r
171                 throw LogicExceptionImpl("Blob::Save", _("No Database is attached."));\r
172         if (mTransaction == 0)\r
173                 throw LogicExceptionImpl("Blob::Save", _("No Transaction is attached."));\r
174 \r
175         IBS status;\r
176         (*gds.Call()->m_create_blob2)(status.Self(), mDatabase->GetHandlePtr(),\r
177                 mTransaction->GetHandlePtr(), &mHandle, &mId, 0, 0);\r
178         if (status.Errors())\r
179                 throw SQLExceptionImpl(status, "Blob::Save",\r
180                         _("isc_create_blob failed."));\r
181         mIdAssigned = true;\r
182         mWriteMode = true;\r
183 \r
184         size_t pos = 0;\r
185         size_t len = data.size();\r
186         while (len != 0)\r
187         {\r
188                 size_t blklen = (len < 32*1024-1) ? len : 32*1024-1;\r
189                 status.Reset();\r
190                 (*gds.Call()->m_put_segment)(status.Self(), &mHandle,\r
191                         (unsigned short)blklen, const_cast<char*>(data.data()+pos));\r
192                 if (status.Errors())\r
193                         throw SQLExceptionImpl(status, "Blob::Save",\r
194                                         _("isc_put_segment failed."));\r
195                 pos += blklen;\r
196                 len -= blklen;\r
197         }\r
198         \r
199         status.Reset();\r
200         (*gds.Call()->m_close_blob)(status.Self(), &mHandle);\r
201         if (status.Errors())\r
202                 throw SQLExceptionImpl(status, "Blob::Save", _("isc_close_blob failed."));\r
203         mHandle = 0;\r
204 }\r
205 \r
206 void BlobImpl::Load(std::string& data)\r
207 {\r
208         if (mHandle != 0)\r
209                 throw LogicExceptionImpl("Blob::Load", _("Blob already opened."));\r
210         if (mDatabase == 0)\r
211                 throw LogicExceptionImpl("Blob::Load", _("No Database is attached."));\r
212         if (mTransaction == 0)\r
213                 throw LogicExceptionImpl("Blob::Load", _("No Transaction is attached."));\r
214         if (! mIdAssigned)\r
215                 throw LogicExceptionImpl("Blob::Load", _("Blob Id is not assigned."));\r
216 \r
217         IBS status;\r
218         (*gds.Call()->m_open_blob2)(status.Self(), mDatabase->GetHandlePtr(),\r
219                 mTransaction->GetHandlePtr(), &mHandle, &mId, 0, 0);\r
220         if (status.Errors())\r
221                 throw SQLExceptionImpl(status, "Blob::Load", _("isc_open_blob2 failed."));\r
222         mWriteMode = false;\r
223 \r
224         size_t blklen = 32*1024-1;\r
225         data.resize(blklen);\r
226 \r
227         size_t size = 0;\r
228         size_t pos = 0;\r
229         for (;;)\r
230         {\r
231                 status.Reset();\r
232                 unsigned short bytesread;\r
233                 int result = (*gds.Call()->m_get_segment)(status.Self(), &mHandle,\r
234                                                 &bytesread, (unsigned short)blklen,\r
235                                                         const_cast<char*>(data.data()+pos));\r
236                 if (result == isc_segstr_eof) break;    // End of blob\r
237                 if (result != isc_segment && status.Errors())\r
238                         throw SQLExceptionImpl(status, "Blob::Load", _("isc_get_segment failed."));\r
239 \r
240                 pos += bytesread;\r
241                 size += bytesread;\r
242                 data.resize(size + blklen);\r
243         }\r
244         data.resize(size);\r
245         \r
246         status.Reset();\r
247         (*gds.Call()->m_close_blob)(status.Self(), &mHandle);\r
248         if (status.Errors())\r
249                 throw SQLExceptionImpl(status, "Blob::Load", _("isc_close_blob failed."));\r
250         mHandle = 0;\r
251 }\r
252 \r
253 IBPP::Database BlobImpl::DatabasePtr() const\r
254 {\r
255         if (mDatabase == 0) throw LogicExceptionImpl("Blob::DatabasePtr",\r
256                         _("No Database is attached."));\r
257         return mDatabase;\r
258 }\r
259 \r
260 IBPP::Transaction BlobImpl::TransactionPtr() const\r
261 {\r
262         if (mTransaction == 0) throw LogicExceptionImpl("Blob::TransactionPtr",\r
263                         _("No Transaction is attached."));\r
264         return mTransaction;\r
265 }\r
266 \r
267 IBPP::IBlob* BlobImpl::AddRef()\r
268 {\r
269         ASSERTION(mRefCount >= 0);\r
270         ++mRefCount;\r
271         return this;\r
272 }\r
273 \r
274 void BlobImpl::Release()\r
275 {\r
276         // Release cannot throw, except in DEBUG builds on assertion\r
277         ASSERTION(mRefCount >= 0);\r
278         --mRefCount;\r
279         try { if (mRefCount <= 0) delete this; }\r
280                 catch (...) { }\r
281 }\r
282 \r
283 //      (((((((( OBJECT INTERNAL METHODS ))))))))\r
284 \r
285 void BlobImpl::Init()\r
286 {\r
287         mIdAssigned = false;\r
288         mWriteMode = false;\r
289         mHandle = 0;\r
290         mDatabase = 0;\r
291         mTransaction = 0;\r
292 }\r
293 \r
294 void BlobImpl::SetId(ISC_QUAD* quad)\r
295 {\r
296         if (mHandle != 0)\r
297                 throw LogicExceptionImpl("BlobImpl::SetId", _("Can't set Id on an opened BlobImpl."));\r
298         if (quad == 0)\r
299                 throw LogicExceptionImpl("BlobImpl::SetId", _("Null Id reference detected."));\r
300 \r
301         memcpy(&mId, quad, sizeof(mId));\r
302         mIdAssigned = true;\r
303 }\r
304 \r
305 void BlobImpl::GetId(ISC_QUAD* quad)\r
306 {\r
307         if (mHandle != 0)\r
308                 throw LogicExceptionImpl("BlobImpl::GetId", _("Can't get Id on an opened BlobImpl."));\r
309         if (! mWriteMode)\r
310                 throw LogicExceptionImpl("BlobImpl::GetId", _("Can only get Id of a newly created Blob."));\r
311         if (quad == 0)\r
312                 throw LogicExceptionImpl("BlobImpl::GetId", _("Null Id reference detected."));\r
313 \r
314         memcpy(quad, &mId, sizeof(mId));\r
315 }\r
316 \r
317 void BlobImpl::AttachDatabaseImpl(DatabaseImpl* database)\r
318 {\r
319         if (database == 0) throw LogicExceptionImpl("Blob::AttachDatabase",\r
320                         _("Can't attach a NULL Database object."));\r
321 \r
322         if (mDatabase != 0) mDatabase->DetachBlobImpl(this);\r
323         mDatabase = database;\r
324         mDatabase->AttachBlobImpl(this);\r
325 }\r
326 \r
327 void BlobImpl::AttachTransactionImpl(TransactionImpl* transaction)\r
328 {\r
329         if (transaction == 0) throw LogicExceptionImpl("Blob::AttachTransaction",\r
330                         _("Can't attach a NULL Transaction object."));\r
331 \r
332         if (mTransaction != 0) mTransaction->DetachBlobImpl(this);\r
333         mTransaction = transaction;\r
334         mTransaction->AttachBlobImpl(this);\r
335 }\r
336 \r
337 void BlobImpl::DetachDatabaseImpl()\r
338 {\r
339         if (mDatabase == 0) return;\r
340 \r
341         mDatabase->DetachBlobImpl(this);\r
342         mDatabase = 0;\r
343 }\r
344 \r
345 void BlobImpl::DetachTransactionImpl()\r
346 {\r
347         if (mTransaction == 0) return;\r
348 \r
349         mTransaction->DetachBlobImpl(this);\r
350         mTransaction = 0;\r
351 }\r
352 \r
353 BlobImpl::BlobImpl(DatabaseImpl* database, TransactionImpl* transaction)\r
354         : mRefCount(0)\r
355 {\r
356         Init();\r
357         AttachDatabaseImpl(database);\r
358         if (transaction != 0) AttachTransactionImpl(transaction);\r
359 }\r
360 \r
361 BlobImpl::~BlobImpl()\r
362 {\r
363         try\r
364         {\r
365                 if (mHandle != 0)\r
366                 {\r
367                         if (mWriteMode) Cancel();\r
368                         else Close();\r
369                 }\r
370         }\r
371         catch (...) { }\r
372         \r
373         try { if (mTransaction != 0) mTransaction->DetachBlobImpl(this); }\r
374                 catch (...) { }\r
375         try { if (mDatabase != 0) mDatabase->DetachBlobImpl(this); }\r
376                 catch (...) { }\r
377 }\r
378 \r
379 //\r
380 //      EOF\r
381 //\r