New built-in module cl, the Compression Library.
This commit is contained in:
Sjoerd Mullender
parent
ba06615c9f
commit
c431549e21
546
Modules/clmodule.c
Normal file
546
Modules/clmodule.c
Normal file
@ -0,0 +1,546 @@
|
||||
/***********************************************************
|
||||
Copyright 1991, 1992 by Stichting Mathematisch Centrum, Amsterdam, The
|
||||
Netherlands.
|
||||
|
||||
All Rights Reserved
|
||||
|
||||
Permission to use, copy, modify, and distribute this software and its
|
||||
documentation for any purpose and without fee is hereby granted,
|
||||
provided that the above copyright notice appear in all copies and that
|
||||
both that copyright notice and this permission notice appear in
|
||||
supporting documentation, and that the names of Stichting Mathematisch
|
||||
Centrum or CWI not be used in advertising or publicity pertaining to
|
||||
distribution of the software without specific, written prior permission.
|
||||
|
||||
STICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO
|
||||
THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
|
||||
FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE
|
||||
FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
||||
WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
||||
ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
|
||||
OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||
|
||||
******************************************************************/
|
||||
|
||||
|
||||
/* Cl objects */
|
||||
|
||||
#include <cl.h>
|
||||
#include "allobjects.h"
|
||||
#include "modsupport.h" /* For getargs() etc. */
|
||||
#include "ceval.h" /* For call_object() */
|
||||
|
||||
typedef struct {
|
||||
OB_HEAD
|
||||
int ob_isCompressor; /* Compressor or Decompressor */
|
||||
CL_CompressorHdl ob_compressorHdl;
|
||||
long ob_dataMaxSize;
|
||||
object *ob_callbackFunc;
|
||||
object *ob_callbackID;
|
||||
object *ob_data;
|
||||
} clobject;
|
||||
|
||||
extern typeobject Cltype; /* Really static, forward */
|
||||
|
||||
#define is_clobject(v) ((v)->ob_type == &Cltype)
|
||||
|
||||
static object *
|
||||
cl_Compress(self, args)
|
||||
clobject *self;
|
||||
object *args;
|
||||
{
|
||||
object *data, *res;
|
||||
long frameIndex, numberOfFrames, dataSize, result;
|
||||
|
||||
if (!getargs(args, "(ii)", &frameIndex, &numberOfFrames))
|
||||
return NULL;
|
||||
|
||||
data = newsizedstringobject(NULL,
|
||||
numberOfFrames * self->ob_dataMaxSize);
|
||||
if (data == NULL)
|
||||
return NULL;
|
||||
|
||||
dataSize = numberOfFrames * self->ob_dataMaxSize;
|
||||
|
||||
result = clCompress(self->ob_compressorHdl, frameIndex, numberOfFrames,
|
||||
&dataSize, (void *) getstringvalue(data));
|
||||
|
||||
if (dataSize < numberOfFrames * self->ob_dataMaxSize)
|
||||
if (resizestring(&data, dataSize))
|
||||
return NULL;
|
||||
|
||||
res = mkvalue("(iO)", result, data);
|
||||
DECREF(data);
|
||||
return res;
|
||||
}
|
||||
|
||||
static object *
|
||||
cl_Decompress(self, args)
|
||||
clobject *self;
|
||||
object *args;
|
||||
{
|
||||
object *data, *res;
|
||||
long frameIndex, numberOfFrames, result;
|
||||
|
||||
if (!getargs(args, "(ii)", &frameIndex, &numberOfFrames))
|
||||
return NULL;
|
||||
|
||||
data = newsizedstringobject(NULL,
|
||||
numberOfFrames * self->ob_dataMaxSize);
|
||||
if (data == NULL)
|
||||
return NULL;
|
||||
|
||||
result = clDecompress(self->ob_compressorHdl, frameIndex,
|
||||
numberOfFrames, (void *) getstringvalue(data));
|
||||
|
||||
res = mkvalue("(iO)", result, data);
|
||||
DECREF(data);
|
||||
return res;
|
||||
}
|
||||
|
||||
static object *
|
||||
cl_GetCompressorInfo(self, args)
|
||||
clobject *self;
|
||||
object *args;
|
||||
{
|
||||
long result, infoSize;
|
||||
void *info;
|
||||
object *infoObject, *res;
|
||||
|
||||
if (!getnoarg(args))
|
||||
return NULL;
|
||||
|
||||
result = clGetCompressorInfo(self->ob_compressorHdl, &infoSize, &info);
|
||||
|
||||
infoObject = newsizedstringobject((char *) info, infoSize);
|
||||
|
||||
res = mkvalue("(iO)", result, infoObject);
|
||||
DECREF(infoObject);
|
||||
return res;
|
||||
}
|
||||
|
||||
static object *
|
||||
cl_GetDefault(self, args)
|
||||
clobject *self;
|
||||
object *args;
|
||||
{
|
||||
long initial, result;
|
||||
|
||||
if (!getargs(args, "i", &initial))
|
||||
return NULL;
|
||||
|
||||
result = clGetDefault(self->ob_compressorHdl, initial);
|
||||
|
||||
return newintobject(result);
|
||||
}
|
||||
|
||||
static object *
|
||||
cl_GetMinMax(self, args)
|
||||
clobject *self;
|
||||
object *args;
|
||||
{
|
||||
long param, min, max;
|
||||
|
||||
if (!getargs(args, "i", ¶m))
|
||||
return NULL;
|
||||
|
||||
clGetMinMax(self->ob_compressorHdl, param, &min, &max);
|
||||
|
||||
return mkvalue("(ii)", min, max);
|
||||
}
|
||||
|
||||
static object *
|
||||
cl_GetName(self, args)
|
||||
clobject *self;
|
||||
object *args;
|
||||
{
|
||||
long descriptor;
|
||||
char *name;
|
||||
|
||||
if (!getargs(args, "i", &descriptor))
|
||||
return NULL;
|
||||
|
||||
name = clGetName(self->ob_compressorHdl, descriptor);
|
||||
|
||||
return newstringobject(name);
|
||||
}
|
||||
|
||||
static object *
|
||||
doParams(self, args, func, modified)
|
||||
clobject *self;
|
||||
object *args;
|
||||
void (*func)(CL_CompressorHdl, long *, long);
|
||||
int modified;
|
||||
{
|
||||
object *list, *v;
|
||||
long *PVbuffer;
|
||||
long length;
|
||||
int i;
|
||||
|
||||
if (!getargs(args, "O", &list))
|
||||
return NULL;
|
||||
if (!is_listobject(list)) {
|
||||
err_badarg();
|
||||
return NULL;
|
||||
}
|
||||
length = getlistsize(list);
|
||||
PVbuffer = NEW(long, length);
|
||||
if (PVbuffer == NULL)
|
||||
return err_nomem();
|
||||
for (i = 0; i < length; i++) {
|
||||
v = getlistitem(list, i);
|
||||
if (!is_intobject(v)) {
|
||||
DEL(PVbuffer);
|
||||
err_badarg();
|
||||
return NULL;
|
||||
}
|
||||
PVbuffer[i] = getintvalue(v);
|
||||
}
|
||||
|
||||
(*func)(self->ob_compressorHdl, PVbuffer, length);
|
||||
|
||||
if (modified) {
|
||||
for (i = 0; i < length; i++)
|
||||
setlistitem(list, i, newintobject(PVbuffer[i]));
|
||||
}
|
||||
|
||||
DEL(PVbuffer);
|
||||
|
||||
INCREF(None);
|
||||
return None;
|
||||
}
|
||||
|
||||
static object *
|
||||
cl_GetParams(self, args)
|
||||
object *self, *args;
|
||||
{
|
||||
return doParams(self, args, clGetParams, 1);
|
||||
}
|
||||
|
||||
static object *
|
||||
cl_SetParams(self, args)
|
||||
object *self, *args;
|
||||
{
|
||||
return doParams(self, args, clSetParams, 0);
|
||||
}
|
||||
|
||||
static object *
|
||||
cl_QueryParams(self, args)
|
||||
clobject *self;
|
||||
object *args;
|
||||
{
|
||||
long bufferlength;
|
||||
long *PVbuffer;
|
||||
object *list;
|
||||
int i;
|
||||
|
||||
if (!getnoarg(args))
|
||||
return NULL;
|
||||
|
||||
bufferlength = clQueryParams(self->ob_compressorHdl, 0, 0);
|
||||
|
||||
PVbuffer = NEW(long, bufferlength);
|
||||
if (PVbuffer == NULL)
|
||||
return err_nomem();
|
||||
|
||||
bufferlength = clQueryParams(self->ob_compressorHdl, PVbuffer,
|
||||
bufferlength);
|
||||
|
||||
list = newlistobject(bufferlength);
|
||||
if (list == NULL) {
|
||||
DEL(PVbuffer);
|
||||
return NULL;
|
||||
}
|
||||
|
||||
for (i = 0; i < bufferlength; i++)
|
||||
setlistitem(list, i, newintobject(PVbuffer[i]));
|
||||
|
||||
DEL(PVbuffer);
|
||||
|
||||
return list;
|
||||
}
|
||||
|
||||
static struct methodlist compressor_methods[] = {
|
||||
{"Compress", cl_Compress},
|
||||
{"GetCompressorInfo", cl_GetCompressorInfo},
|
||||
{"GetDefault", cl_GetDefault},
|
||||
{"GetMinMax", cl_GetMinMax},
|
||||
{"GetName", cl_GetName},
|
||||
{"GetParams", cl_GetParams},
|
||||
{"QueryParams", cl_QueryParams},
|
||||
{"SetParams", cl_SetParams},
|
||||
{NULL, NULL} /* sentinel */
|
||||
};
|
||||
|
||||
static struct methodlist decompressor_methods[] = {
|
||||
{"Decompress", cl_Decompress},
|
||||
{"GetDefault", cl_GetDefault},
|
||||
{"GetMinMax", cl_GetMinMax},
|
||||
{"GetName", cl_GetName},
|
||||
{"GetParams", cl_GetParams},
|
||||
{"QueryParams", cl_QueryParams},
|
||||
{"SetParams", cl_SetParams},
|
||||
{NULL, NULL} /* sentinel */
|
||||
};
|
||||
|
||||
static void
|
||||
cl_dealloc(self)
|
||||
clobject *self;
|
||||
{
|
||||
if (self->ob_compressorHdl) {
|
||||
if (self->ob_isCompressor)
|
||||
clCloseCompressor(self->ob_compressorHdl);
|
||||
else
|
||||
clCloseDecompressor(self->ob_compressorHdl);
|
||||
}
|
||||
XDECREF(self->ob_callbackFunc);
|
||||
XDECREF(self->ob_callbackID);
|
||||
XDECREF(self->ob_data);
|
||||
DEL(self);
|
||||
}
|
||||
|
||||
static object *
|
||||
cl_getattr(self, name)
|
||||
clobject *self;
|
||||
char *name;
|
||||
{
|
||||
if (self->ob_isCompressor)
|
||||
return findmethod(compressor_methods, (object *)self, name);
|
||||
else
|
||||
return findmethod(decompressor_methods, (object *) self, name);
|
||||
}
|
||||
|
||||
static typeobject Cltype = {
|
||||
OB_HEAD_INIT(&Typetype)
|
||||
0, /*ob_size*/
|
||||
"cl", /*tp_name*/
|
||||
sizeof(clobject), /*tp_size*/
|
||||
0, /*tp_itemsize*/
|
||||
/* methods */
|
||||
cl_dealloc, /*tp_dealloc*/
|
||||
0, /*tp_print*/
|
||||
cl_getattr, /*tp_getattr*/
|
||||
0, /*tp_setattr*/
|
||||
0, /*tp_compare*/
|
||||
0, /*tp_repr*/
|
||||
0, /*tp_as_number*/
|
||||
0, /*tp_as_sequence*/
|
||||
0, /*tp_as_mapping*/
|
||||
};
|
||||
|
||||
static long
|
||||
GetFrame(callbackID, frameIndex, numberOfFrames, data)
|
||||
void *callbackID;
|
||||
long frameIndex;
|
||||
long numberOfFrames;
|
||||
void **data;
|
||||
{
|
||||
object *args;
|
||||
clobject *self = (clobject *) callbackID;
|
||||
object *result;
|
||||
|
||||
args = newtupleobject(3);
|
||||
if (args == NULL)
|
||||
return FAILURE;
|
||||
|
||||
XINCREF(self->ob_callbackID);
|
||||
settupleitem(args, 0, self->ob_callbackID);
|
||||
settupleitem(args, 1, newintobject(frameIndex));
|
||||
settupleitem(args, 2, newintobject(numberOfFrames));
|
||||
|
||||
if (err_occurred()) {
|
||||
XDECREF(self->ob_callbackID);
|
||||
return FAILURE;
|
||||
}
|
||||
|
||||
result = call_object(self->ob_callbackFunc, args);
|
||||
DECREF(args);
|
||||
if (result == NULL)
|
||||
return FAILURE;
|
||||
|
||||
if (!is_stringobject(result)) {
|
||||
DECREF(result);
|
||||
return FAILURE;
|
||||
}
|
||||
|
||||
XDECREF(self->ob_data);
|
||||
self->ob_data = result;
|
||||
|
||||
*data = (void *) getstringvalue(result);
|
||||
|
||||
return SUCCESS;
|
||||
}
|
||||
|
||||
static long
|
||||
GetData(callbackID, frameIndex, numberOfFrames, dataSize, data)
|
||||
void *callbackID;
|
||||
long frameIndex;
|
||||
long numberOfFrames;
|
||||
long *dataSize;
|
||||
void **data;
|
||||
{
|
||||
object *args, *result;
|
||||
clobject *self = (clobject *) callbackID;
|
||||
|
||||
args = newtupleobject(3);
|
||||
if (args == NULL)
|
||||
return FAILURE;
|
||||
|
||||
XINCREF(self->ob_callbackID);
|
||||
settupleitem(args, 0, self->ob_callbackID);
|
||||
settupleitem(args, 1, newintobject(frameIndex));
|
||||
settupleitem(args, 2, newintobject(numberOfFrames));
|
||||
|
||||
if (err_occurred()) {
|
||||
XDECREF(self->ob_callbackID);
|
||||
return FAILURE;
|
||||
}
|
||||
|
||||
result = call_object(self->ob_callbackFunc, args);
|
||||
DECREF(args);
|
||||
if (result == NULL)
|
||||
return FAILURE;
|
||||
|
||||
if (!is_stringobject(result)) {
|
||||
DECREF(result);
|
||||
return FAILURE;
|
||||
}
|
||||
|
||||
XDECREF(self->ob_data);
|
||||
self->ob_data = result;
|
||||
|
||||
*dataSize = getstringsize(result);
|
||||
*data = (void *) getstringvalue(result);
|
||||
|
||||
return SUCCESS;
|
||||
}
|
||||
|
||||
static object *
|
||||
cl_OpenCompressor(self, args)
|
||||
object *self, *args;
|
||||
{
|
||||
CL_CompressionFormat compressionFormat;
|
||||
long qualityFactor;
|
||||
object *GetFrameCBPtr;
|
||||
object *callbackID;
|
||||
clobject *new;
|
||||
long result;
|
||||
object *res;
|
||||
|
||||
if (!getargs(args, "((iiiiiiiiii)iOO)",
|
||||
&compressionFormat.width,
|
||||
&compressionFormat.height,
|
||||
&compressionFormat.frameSize,
|
||||
&compressionFormat.dataMaxSize,
|
||||
&compressionFormat.originalFormat,
|
||||
&compressionFormat.components,
|
||||
&compressionFormat.bitsPerComponent,
|
||||
&compressionFormat.frameRate,
|
||||
&compressionFormat.numberOfFrames,
|
||||
&compressionFormat.compressionScheme,
|
||||
&qualityFactor, &GetFrameCBPtr, &callbackID))
|
||||
return NULL;
|
||||
|
||||
new = NEWOBJ(clobject, &Cltype);
|
||||
if (new == 0)
|
||||
return NULL;
|
||||
|
||||
result = clOpenCompressor(&compressionFormat, qualityFactor, GetFrame,
|
||||
(void *) new, &new->ob_compressorHdl);
|
||||
|
||||
new->ob_isCompressor = 1;
|
||||
new->ob_callbackFunc = GetFrameCBPtr;
|
||||
XINCREF(new->ob_callbackFunc);
|
||||
if (callbackID == NULL)
|
||||
callbackID = None;
|
||||
new->ob_callbackID = callbackID;
|
||||
INCREF(new->ob_callbackID);
|
||||
new->ob_data = NULL;
|
||||
new->ob_dataMaxSize = compressionFormat.dataMaxSize;
|
||||
|
||||
res = mkvalue("(iO)", result, new);
|
||||
DECREF(new);
|
||||
return res;
|
||||
}
|
||||
|
||||
static object *
|
||||
cl_OpenDecompressor(self, args)
|
||||
object *self, *args;
|
||||
{
|
||||
CL_CompressionFormat compressionFormat;
|
||||
long infoSize;
|
||||
void *info;
|
||||
object *GetDataCBPtr;
|
||||
object *callbackID;
|
||||
clobject *new;
|
||||
long result;
|
||||
object *res;
|
||||
|
||||
if (!getargs(args, "(s#OO)", &info, &infoSize, &GetDataCBPtr,
|
||||
&callbackID))
|
||||
return NULL;
|
||||
|
||||
new = NEWOBJ(clobject, &Cltype);
|
||||
if (new == 0)
|
||||
return NULL;
|
||||
|
||||
result = clOpenDecompressor(&compressionFormat, infoSize, info,
|
||||
GetData, (void *) new,
|
||||
&new->ob_compressorHdl);
|
||||
|
||||
new->ob_isCompressor = 0;
|
||||
new->ob_callbackFunc = GetDataCBPtr;
|
||||
XINCREF(new->ob_callbackFunc);
|
||||
if (callbackID == NULL)
|
||||
callbackID = None;
|
||||
new->ob_callbackID = callbackID;
|
||||
XINCREF(new->ob_callbackID);
|
||||
new->ob_data = NULL;
|
||||
|
||||
res = mkvalue("(iO(iiiiiiiiii))", result, new,
|
||||
compressionFormat.width,
|
||||
compressionFormat.height,
|
||||
compressionFormat.frameSize,
|
||||
compressionFormat.dataMaxSize,
|
||||
compressionFormat.originalFormat,
|
||||
compressionFormat.components,
|
||||
compressionFormat.bitsPerComponent,
|
||||
compressionFormat.frameRate,
|
||||
compressionFormat.numberOfFrames,
|
||||
compressionFormat.compressionScheme);
|
||||
if (res == NULL) {
|
||||
XDECREF(new->ob_callbackFunc);
|
||||
XDECREF(new->ob_callbackID);
|
||||
}
|
||||
|
||||
DECREF(new);
|
||||
return res;
|
||||
}
|
||||
|
||||
static object *
|
||||
cl_AddParam(self, args)
|
||||
object *self, *args;
|
||||
{
|
||||
char *name;
|
||||
long type, min, max, initial, paramID, result;
|
||||
|
||||
if (!getargs(args, "(siiii)", &name, &type, &min, &max, &initial))
|
||||
return NULL;
|
||||
|
||||
result = clAddParam(name, type, min, max, initial, ¶mID);
|
||||
|
||||
return mkvalue("(ii)", result, paramID);
|
||||
}
|
||||
|
||||
static struct methodlist cl_methods[] = {
|
||||
{"AddParam", cl_AddParam},
|
||||
{"OpenCompressor", cl_OpenCompressor},
|
||||
{"OpenDecompressor", cl_OpenDecompressor},
|
||||
{NULL, NULL} /* Sentinel */
|
||||
};
|
||||
|
||||
void
|
||||
initcl()
|
||||
{
|
||||
(void) initmodule("cl", cl_methods);
|
||||
}
|
||||
Loading…
x
Reference in New Issue
Block a user