/*************************************************************************** CUncompress.c (c) 2003-2004 Daniel Campos Fern�dez This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. ***************************************************************************/ #define __CUNCOMPRESS_C #include "CUncompress.h" #include "main.h" #include #define Check_Driver() if (!THIS->driver) { GB.Error("No driver specified"); return; } //************************************************************************* //#################### INITIALIZATION AND DESTRUCTION ##################### //************************************************************************* /************************************************* Class "Constructor" *************************************************/ BEGIN_METHOD_VOID(CUNCOMPRESS_init) END_METHOD /************************************************* Class "Destructor" *************************************************/ BEGIN_METHOD_VOID(CUNCOMPRESS_exit) END_METHOD /************************************************* Gambas object "Constructor" *************************************************/ BEGIN_METHOD_VOID(CUNCOMPRESS_new) THIS->driver=NULL; THIS->stream.desc=NULL; END_METHOD /************************************************* Gambas object "Destructor" *************************************************/ BEGIN_METHOD_VOID(CUNCOMPRESS_free) if (THIS->stream.desc && THIS->driver) THIS->driver->Compress.Close(&THIS->stream); END_METHOD BEGIN_METHOD (CUNCOMPRESS_File,GB_STRING Source;GB_STRING Target;) Check_Driver(); THIS->driver->Uncompress.File(STRING(Source),STRING(Target)); END_METHOD BEGIN_METHOD (CUNCOMPRESS_String,GB_STRING Source;) char *target=NULL; unsigned int lent=0; Check_Driver(); if (!LENGTH(Source)) { GB.ReturnVoidString(); return; } THIS->driver->Uncompress.String(&target,&lent,STRING(Source),LENGTH(Source)); if (!lent) { GB.ReturnVoidString(); return; } GB.ReturnNewString (target,lent); GB.Free(POINTER(&target)); END_METHOD BEGIN_METHOD (CUNCOMPRESS_Open,GB_STRING Path;) Check_Driver(); if (THIS->stream.desc) { GB.Error ("File is already opened"); return; } THIS->driver->Uncompress.Open(STRING(Path),&THIS->stream); END_METHOD BEGIN_PROPERTY (CUNCOMPRESS_Type) if (READ_PROPERTY) { if (!THIS->driver) { GB.ReturnNull(); return; } GB.ReturnNewZeroString(THIS->driver->name); return; } if (THIS->stream.desc) { GB.Error("Type can not be changed while the stream is opened"); return; } if (!(THIS->driver = COMPRESS_GetDriver(GB.ToZeroString(PROP(GB_STRING))))) { GB.Error("Cannot find driver &1", GB.ToZeroString(PROP(GB_STRING))); } END_PROPERTY /******************************************************************* Interface declaration *******************************************************************/ GB_DESC CUncompressDesc[] = { GB_DECLARE("Uncompress", sizeof(CUNCOMPRESS)), GB_INHERITS("Stream"), GB_PROPERTY("Type","s",CUNCOMPRESS_Type), GB_STATIC_METHOD("_init", NULL, CUNCOMPRESS_init, NULL), GB_STATIC_METHOD("_exit", NULL, CUNCOMPRESS_exit, NULL), GB_METHOD("_new", NULL, CUNCOMPRESS_new, NULL), GB_METHOD("_free", NULL, CUNCOMPRESS_free, NULL), GB_METHOD("String","s",CUNCOMPRESS_String,"(Source)s"), GB_METHOD("File",NULL,CUNCOMPRESS_File,"(Source)s(Target)s"), GB_METHOD("Open",NULL,CUNCOMPRESS_Open,"(Path)s"), GB_END_DECLARE };