mirror of
https://git.wownero.com/wownero/wownero.git
synced 2024-08-15 01:03:23 +00:00
156 lines
4.9 KiB
OpenEdge ABL
156 lines
4.9 KiB
OpenEdge ABL
/*
|
|
* file_py3.i: Typemaps for FILE* for Python 3
|
|
*
|
|
* Copyright (c) 2011, Karel Slany (karel.slany AT nic.cz)
|
|
* All rights reserved.
|
|
*
|
|
* Redistribution and use in source and binary forms, with or without
|
|
* modification, are permitted provided that the following conditions are met:
|
|
*
|
|
* * Redistributions of source code must retain the above copyright notice,
|
|
* this list of conditions and the following disclaimer.
|
|
* * Redistributions in binary form must reproduce the above copyright
|
|
* notice, this list of conditions and the following disclaimer in the
|
|
* documentation and/or other materials provided with the distribution.
|
|
* * Neither the name of the organization nor the names of its
|
|
* contributors may be used to endorse or promote products derived from this
|
|
* software without specific prior written permission.
|
|
*
|
|
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
|
|
* AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
|
* ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
|
|
* LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
|
|
* CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
|
|
* SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
|
|
* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
|
|
* CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
|
|
* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
|
|
* POSSIBILITY OF SUCH DAMAGE.
|
|
*/
|
|
|
|
%{
|
|
#include <unistd.h>
|
|
#include <fcntl.h>
|
|
%}
|
|
|
|
%types(FILE *);
|
|
|
|
//#define SWIG_FILE3_DEBUG
|
|
|
|
/* converts basic file descriptor flags onto a string */
|
|
%fragment("fdfl_to_str", "header") {
|
|
const char *
|
|
fdfl_to_str(int fdfl) {
|
|
|
|
static const char * const file_mode[] = {"w+", "w", "r"};
|
|
|
|
if (fdfl & O_RDWR) {
|
|
return file_mode[0];
|
|
} else if (fdfl & O_WRONLY) {
|
|
return file_mode[1];
|
|
} else {
|
|
return file_mode[2];
|
|
}
|
|
}
|
|
}
|
|
|
|
%fragment("is_obj_file", "header") {
|
|
int
|
|
is_obj_file(PyObject *obj) {
|
|
int fd, fdfl;
|
|
if (!PyLong_Check(obj) && /* is not an integer */
|
|
PyObject_HasAttrString(obj, "fileno") && /* has fileno method */
|
|
(PyObject_CallMethod(obj, "flush", NULL) != NULL) && /* flush() succeeded */
|
|
((fd = PyObject_AsFileDescriptor(obj)) != -1) && /* got file descriptor */
|
|
((fdfl = fcntl(fd, F_GETFL)) != -1) /* got descriptor flags */
|
|
) {
|
|
return 1;
|
|
}
|
|
else {
|
|
return 0;
|
|
}
|
|
}
|
|
}
|
|
|
|
%fragment("obj_to_file","header", fragment="fdfl_to_str,is_obj_file") {
|
|
FILE *
|
|
obj_to_file(PyObject *obj) {
|
|
int fd, fdfl;
|
|
FILE *fp;
|
|
if (is_obj_file(obj)) {
|
|
fd = PyObject_AsFileDescriptor(obj);
|
|
fdfl = fcntl(fd, F_GETFL);
|
|
fp = fdopen(dup(fd), fdfl_to_str(fdfl)); /* the FILE* must be flushed
|
|
and closed after being used */
|
|
#ifdef SWIG_FILE3_DEBUG
|
|
fprintf(stderr, "opening fd %d (fl %d \"%s\") as FILE %p\n",
|
|
fd, fdfl, fdfl_to_str(fdfl), (void *)fp);
|
|
#endif
|
|
return fp;
|
|
}
|
|
return NULL;
|
|
}
|
|
}
|
|
|
|
/* returns -1 if error occurred */
|
|
/* caused magic SWIG Syntax errors when was commented out */
|
|
#if 0
|
|
%fragment("dispose_file", "header") {
|
|
int
|
|
dispose_file(FILE **fp) {
|
|
#ifdef SWIG_FILE3_DEBUG
|
|
fprintf(stderr, "flushing FILE %p\n", (void *)fp);
|
|
#endif
|
|
if (*fp == NULL) {
|
|
return 0;
|
|
}
|
|
if ((fflush(*fp) == 0) && /* flush file */
|
|
(fclose(*fp) == 0)) { /* close file */
|
|
*fp = NULL;
|
|
return 0;
|
|
}
|
|
return -1;
|
|
}
|
|
}
|
|
#endif
|
|
|
|
%typemap(arginit, noblock = 1) FILE* {
|
|
$1 = NULL;
|
|
}
|
|
|
|
/*
|
|
* added due to ub_ctx_debugout since since it is overloaded:
|
|
* takes void* and FILE*. In reality only FILE* but the wrapper
|
|
* and the function is declared in such way.
|
|
*/
|
|
%typemap(typecheck, noblock = 1, fragment = "is_obj_file", precedence = SWIG_TYPECHECK_POINTER) FILE* {
|
|
$1 = is_obj_file($input);
|
|
}
|
|
|
|
%typemap(check, noblock = 1) FILE* {
|
|
if ($1 == NULL) {
|
|
/* The generated wrapper function raises TypeError on mismatching types. */
|
|
SWIG_exception_fail(SWIG_TypeError, "in method '" "$symname" "', argument "
|
|
"$argnum"" of type '" "$type""'");
|
|
}
|
|
}
|
|
|
|
%typemap(in, noblock = 1, fragment = "obj_to_file") FILE* {
|
|
$1 = obj_to_file($input);
|
|
}
|
|
|
|
/*
|
|
* Commented out due the way how ub_ctx_debugout() uses the parameter.
|
|
* This typemap would cause the FILE* to be closed after return from
|
|
* the function. This caused Python interpreter to crash, since the
|
|
* function just stores the FILE* internally in ctx and use it for
|
|
* logging. So we'll leave the closing of the file on the OS.
|
|
*/
|
|
/*%typemap(freearg, noblock = 1, fragment = "dispose_file") FILE* {
|
|
if (dispose_file(&$1) == -1) {
|
|
SWIG_exception_fail(SWIG_IOError, "closing file in method '" "$symname" "', argument "
|
|
"$argnum"" of type '" "$type""'");
|
|
}
|
|
}*/
|