ccompress.c

Gambas is a graphical development environment based on a Basic interpreter, like Visual Basic. It us

/***************************************************************************

  CCompress.c

  Compression Library - Compression Class

  (c) 2003-2004 Daniel Campos Fern�dez <[e-mail]>

  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 1, 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., 675 Mass Ave, Cambridge, MA 02139, USA.

***************************************************************************/
#define __CCOMPRESS_C


#include "CCompress.h"
#include "main.h"
#include <stdio.h>

#define Check_Driver()  if (!THIS->driver) { GB.Error("No driver specified"); return; }

#define Check_Level() 	if (!MISSING(Level)) \
				level=VARG(Level); \
			else \
				level=THIS->driver->default_compression(); \
									\
			if ( (level < THIS->driver->min_compression()) || (level > THIS->driver->max_compression()) ) \
			if (level != THIS->driver->default_compression()) \
			{ \
				GB.Error("Invalid compression level"); \
				return; \
			} 




//*************************************************************************
//############################### COMPRESS ################################
//*************************************************************************
/*************************************************
 Class "Constructor"
 *************************************************/
BEGIN_METHOD_VOID(CCOMPRESS_init)

	

END_METHOD
/*************************************************
 Class "Destructor"
 *************************************************/
BEGIN_METHOD_VOID(CCOMPRESS_exit)



END_METHOD
/*************************************************
 Gambas object "Constructor"
 *************************************************/
BEGIN_METHOD_VOID(CCOMPRESS_new)

	THIS->driver=NULL;
	THIS->stream.desc=NULL;

END_METHOD
/*************************************************
 Gambas object "Destructor"
 *************************************************/
BEGIN_METHOD_VOID(CCOMPRESS_free)

	

END_METHOD

BEGIN_METHOD (CCOMPRESS_String,GB_STRING Source;GB_INTEGER Level;GB_BOOLEAN AllowGrow;)

	int level;
	char *target=NULL;
	unsigned long lent;
	int allow=0;
	
	Check_Driver();
	Check_Level();
	lent=0;
	if (!MISSING(AllowGrow)) 
		if ( VARG(AllowGrow) ) allow=1;
	
	THIS->driver->Compress.String(&target,&lent,STRING(Source),LENGTH(Source),level);
		
	if (!lent) { GB.ReturnNewString(NULL,0); return; }
	if ( (!allow) && (LENGTH(Source)<=lent) ) 
	{
		if (target) GB.Free((void**)&target); 
		GB.ReturnNewString (STRING(Source),LENGTH(Source)); 
		return; 
	}
	
	GB.ReturnNewString (target,lent);
	if (target) GB.Free((void**)&target);
	
END_METHOD


BEGIN_METHOD (CCOMPRESS_File,GB_STRING Source;GB_STRING Target;GB_INTEGER Level;)

	int level;
	
	Check_Driver();
	Check_Level();
	THIS->driver->Compress.File(STRING(Source),STRING(Target),level);
	
	


END_METHOD

BEGIN_METHOD (CCOMPRESS_Open,GB_STRING Path;GB_INTEGER Level;)

	int level;

	Check_Driver();
	Check_Level();
	
	if (THIS->stream.desc) 
	{
		GB.Error ("File is already opened");
		return;
	}
	
	THIS->driver->Compress.Open(STRING(Path),level,&THIS->stream);

END_METHOD

BEGIN_PROPERTY ( COMPRESS_Min )

	if (!THIS->driver) { GB.ReturnInteger(0); return; }
	GB.ReturnInteger(THIS->driver->min_compression());

END_PROPERTY

BEGIN_PROPERTY ( COMPRESS_Max )

	if (!THIS->driver) { GB.ReturnInteger(0); return; }
	GB.ReturnInteger(THIS->driver->max_compression());

END_PROPERTY

BEGIN_PROPERTY ( COMPRESS_Default )

	if (!THIS->driver) { GB.ReturnInteger(0); return; }
	GB.ReturnInteger(THIS->driver->default_compression());

END_PROPERTY

BEGIN_PROPERTY ( COMPRESS_Type )

	if (READ_PROPERTY)
	{
		if (!THIS->driver) { GB.ReturnNewString(NULL,0); return; }
		GB.ReturnNewString(THIS->driver->name,0);
		return;
	}
	
	if (THIS->stream.desc) { GB.Error("Type can not be changed while the stream is opened"); return; }
	if (!PROP(GB_STRING)) { GB.Error("Invalid driver name"); 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 CCompressDesc[] =
{

  GB_DECLARE("Compress", sizeof(CCOMPRESS)),
  
  GB_INHERITS(".Stream"),
  
  GB_PROPERTY_READ("Min","i",COMPRESS_Min),
  GB_PROPERTY_READ("Max","i",COMPRESS_Max),
  GB_PROPERTY_READ("Default","i",COMPRESS_Default),
  GB_PROPERTY("Type","s",COMPRESS_Type),

  GB_STATIC_METHOD("_init", NULL, CCOMPRESS_init, NULL),
  GB_STATIC_METHOD("_exit", NULL, CCOMPRESS_exit, NULL),
  GB_METHOD("_new", NULL, CCOMPRESS_new,NULL),
  GB_METHOD("_free", NULL, CCOMPRESS_free, NULL),
  
  GB_METHOD("String","s",CCOMPRESS_String,"(Source)s[(Level)i(AllowGrow)b]"),
  GB_METHOD("File",NULL,CCOMPRESS_File,"(Source)s(Target)s[(Level)i]"),
  GB_METHOD("Open",NULL,CCOMPRESS_Open,"(Path)s[(Level)i]"),
  
    
  GB_END_DECLARE
};