gambas-source-code/main/lib/compress/CUncompress.c
Benoît Minisini f9d3bcc1f5 Fix some typos.
[GB.COMPRESS]
* BUG: Fix some typos.
2023-09-21 23:00:52 +02:00

172 lines
4 KiB
C

/***************************************************************************
CUncompress.c
(c) 2003-2004 Daniel Campos Fernández <danielcampos@netcourrier.com>
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 <stdio.h>
#define Check_Driver() if (!THIS->driver) { GB.Error("No driver specified"); return; }
static void set_type(void *_object, const char *type)
{
if (THIS->stream.desc)
{
GB.Error("Type can not be changed while the stream is opened");
return;
}
THIS->driver = COMPRESS_GetDriver(type);
}
static void *create_uncompress(const char *type)
{
COMPRESS_DRIVER *driver;
void *_object;
driver = COMPRESS_GetDriver(type);
if (!driver)
return NULL;
_object = GB.New(GB.FindClass("Uncompress"), NULL, NULL);
THIS->driver = driver;
return _object;
}
//*************************************************************************
//#################### INITIALIZATION AND DESTRUCTION #####################
//*************************************************************************
/*************************************************
Gambas object "Constructor"
*************************************************/
BEGIN_METHOD_VOID(Uncompress_new)
THIS->driver=NULL;
THIS->stream.desc=NULL;
END_METHOD
/*************************************************
Gambas object "Destructor"
*************************************************/
BEGIN_METHOD_VOID(Uncompress_free)
if (THIS->stream.desc && THIS->driver)
THIS->driver->Compress.Close(&THIS->stream);
END_METHOD
BEGIN_METHOD (Uncompress_File, GB_STRING Source; GB_STRING Target)
Check_Driver();
THIS->driver->Uncompress.File(STRING(Source), STRING(Target));
END_METHOD
BEGIN_METHOD(Uncompress_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 (Uncompress_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 (Uncompress_Type)
if (READ_PROPERTY)
{
if (!THIS->driver)
{
GB.ReturnNull();
return;
}
GB.ReturnNewZeroString(THIS->driver->name);
return;
}
set_type(THIS, GB.ToZeroString(PROP(GB_STRING)));
END_PROPERTY
BEGIN_METHOD(Uncompress_get, GB_STRING type)
GB.ReturnObject(create_uncompress(GB.ToZeroString(ARG(type))));
END_METHOD
/*******************************************************************
Interface declaration
*******************************************************************/
GB_DESC UncompressDesc[] =
{
GB_DECLARE("Uncompress", sizeof(CUNCOMPRESS)),
GB_INHERITS("Stream"),
GB_PROPERTY("Type", "s", Uncompress_Type),
GB_METHOD("_new", NULL, Uncompress_new, NULL),
GB_METHOD("_free", NULL, Uncompress_free, NULL),
GB_METHOD("String", "s", Uncompress_String,"(Source)s"),
GB_METHOD("File", NULL, Uncompress_File, "(Source)s(Target)s"),
GB_METHOD("Open", NULL, Uncompress_Open, "(Path)s"),
GB_STATIC_METHOD("_get", "Uncompress", Uncompress_get, "(Type)s"),
GB_END_DECLARE
};