mirror of https://github.com/python/cpython.git
547 lines
12 KiB
C
547 lines
12 KiB
C
/***********************************************************
|
|
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);
|
|
}
|