mirror of
https://gitlab.gnome.org/GNOME/gimp
synced 2024-10-23 04:51:44 +00:00
157 lines
5.6 KiB
Plaintext
157 lines
5.6 KiB
Plaintext
#include "config.h"
|
|
|
|
#include <libgimp/gimp.h>
|
|
|
|
/* FIXME */
|
|
/* sys/param.h is redefining these! */
|
|
#undef MIN
|
|
#undef MAX
|
|
|
|
/* dunno where this comes from */
|
|
#undef VOIDUSED
|
|
|
|
#include "EXTERN.h"
|
|
#include "perl.h"
|
|
#include "XSUB.h"
|
|
#define NEED_newCONSTSUB
|
|
#include "ppport.h"
|
|
|
|
/* FIXME */
|
|
/* dirty is used in gimp.h. */
|
|
#ifdef dirty
|
|
# undef dirty
|
|
#endif
|
|
#include "extradefs.h"
|
|
|
|
#if GIMP_MAJOR_VERSION>1 || (GIMP_MAJOR_VERSION==1 && GIMP_MINOR_VERSION>=1)
|
|
# define GIMP11 1
|
|
# define GIMP_PARASITE 1
|
|
#endif
|
|
|
|
/* expect iso-c here. */
|
|
#include <signal.h>
|
|
|
|
MODULE = Gimp PACKAGE = Gimp
|
|
|
|
PROTOTYPES: ENABLE
|
|
|
|
void
|
|
_exit()
|
|
CODE:
|
|
#ifdef HAVE__EXIT
|
|
_exit(0);
|
|
#elif defined(SIGKILL)
|
|
raise(SIGKILL);
|
|
#else
|
|
raise(9);
|
|
#endif
|
|
abort();
|
|
|
|
void
|
|
xs_exit(status)
|
|
int status
|
|
CODE:
|
|
exit (status);
|
|
|
|
# this one is for prefix mismatch check.
|
|
# should be replaced by a generic config mechanism
|
|
char *
|
|
_gimp_prefix()
|
|
CODE:
|
|
RETVAL = GIMP_PREFIX;
|
|
OUTPUT:
|
|
RETVAL
|
|
|
|
char *
|
|
_gimp_path()
|
|
CODE:
|
|
RETVAL = GIMP_PATH;
|
|
OUTPUT:
|
|
RETVAL
|
|
|
|
BOOT:
|
|
{
|
|
HV *stash = gv_stashpvn("Gimp", 4, TRUE);
|
|
|
|
newCONSTSUB(stash,"ADDITION_MODE",newSViv(ADDITION_MODE));
|
|
newCONSTSUB(stash,"BG_IMAGE_FILL",newSViv(BG_IMAGE_FILL));
|
|
newCONSTSUB(stash,"COLOR_MODE",newSViv(COLOR_MODE));
|
|
newCONSTSUB(stash,"DARKEN_ONLY_MODE",newSViv(DARKEN_ONLY_MODE));
|
|
newCONSTSUB(stash,"DIFFERENCE_MODE",newSViv(DIFFERENCE_MODE));
|
|
newCONSTSUB(stash,"DISSOLVE_MODE",newSViv(DISSOLVE_MODE));
|
|
newCONSTSUB(stash,"GRAY",newSViv(GRAY));
|
|
newCONSTSUB(stash,"GRAYA_IMAGE",newSViv(GRAYA_IMAGE));
|
|
newCONSTSUB(stash,"GRAY_IMAGE",newSViv(GRAY_IMAGE));
|
|
newCONSTSUB(stash,"HUE_MODE",newSViv(HUE_MODE));
|
|
newCONSTSUB(stash,"INDEXED",newSViv(INDEXED));
|
|
newCONSTSUB(stash,"INDEXEDA_IMAGE",newSViv(INDEXEDA_IMAGE));
|
|
newCONSTSUB(stash,"INDEXED_IMAGE",newSViv(INDEXED_IMAGE));
|
|
newCONSTSUB(stash,"LIGHTEN_ONLY_MODE",newSViv(LIGHTEN_ONLY_MODE));
|
|
newCONSTSUB(stash,"MULTIPLY_MODE",newSViv(MULTIPLY_MODE));
|
|
newCONSTSUB(stash,"NORMAL_MODE",newSViv(NORMAL_MODE));
|
|
newCONSTSUB(stash,"OVERLAY_MODE",newSViv(OVERLAY_MODE));
|
|
newCONSTSUB(stash,"PARAM_BOUNDARY",newSViv(PARAM_BOUNDARY));
|
|
newCONSTSUB(stash,"PARAM_CHANNEL",newSViv(PARAM_CHANNEL));
|
|
newCONSTSUB(stash,"PARAM_COLOR",newSViv(PARAM_COLOR));
|
|
newCONSTSUB(stash,"PARAM_DISPLAY",newSViv(PARAM_DISPLAY));
|
|
newCONSTSUB(stash,"PARAM_DRAWABLE",newSViv(PARAM_DRAWABLE));
|
|
newCONSTSUB(stash,"PARAM_END",newSViv(PARAM_END));
|
|
newCONSTSUB(stash,"PARAM_FLOAT",newSViv(PARAM_FLOAT));
|
|
newCONSTSUB(stash,"PARAM_FLOATARRAY",newSViv(PARAM_FLOATARRAY));
|
|
newCONSTSUB(stash,"PARAM_IMAGE",newSViv(PARAM_IMAGE));
|
|
newCONSTSUB(stash,"PARAM_INT16",newSViv(PARAM_INT16));
|
|
newCONSTSUB(stash,"PARAM_INT16ARRAY",newSViv(PARAM_INT16ARRAY));
|
|
newCONSTSUB(stash,"PARAM_INT32",newSViv(PARAM_INT32));
|
|
newCONSTSUB(stash,"PARAM_INT32ARRAY",newSViv(PARAM_INT32ARRAY));
|
|
newCONSTSUB(stash,"PARAM_INT8",newSViv(PARAM_INT8));
|
|
newCONSTSUB(stash,"PARAM_INT8ARRAY",newSViv(PARAM_INT8ARRAY));
|
|
newCONSTSUB(stash,"PARAM_LAYER",newSViv(PARAM_LAYER));
|
|
newCONSTSUB(stash,"PARAM_PATH",newSViv(PARAM_PATH));
|
|
newCONSTSUB(stash,"PARAM_REGION",newSViv(PARAM_REGION));
|
|
newCONSTSUB(stash,"PARAM_SELECTION",newSViv(PARAM_SELECTION));
|
|
newCONSTSUB(stash,"PARAM_STATUS",newSViv(PARAM_STATUS));
|
|
newCONSTSUB(stash,"PARAM_STRING",newSViv(PARAM_STRING));
|
|
newCONSTSUB(stash,"PARAM_STRINGARRAY",newSViv(PARAM_STRINGARRAY));
|
|
newCONSTSUB(stash,"PROC_EXTENSION",newSViv(PROC_EXTENSION));
|
|
newCONSTSUB(stash,"PROC_PLUG_IN",newSViv(PROC_PLUG_IN));
|
|
newCONSTSUB(stash,"PROC_TEMPORARY",newSViv(PROC_TEMPORARY));
|
|
newCONSTSUB(stash,"RGB",newSViv(RGB));
|
|
newCONSTSUB(stash,"RGBA_IMAGE",newSViv(RGBA_IMAGE));
|
|
newCONSTSUB(stash,"RGB_IMAGE",newSViv(RGB_IMAGE));
|
|
newCONSTSUB(stash,"RUN_INTERACTIVE",newSViv(RUN_INTERACTIVE));
|
|
newCONSTSUB(stash,"RUN_NONINTERACTIVE",newSViv(RUN_NONINTERACTIVE));
|
|
newCONSTSUB(stash,"RUN_WITH_LAST_VALS",newSViv(RUN_WITH_LAST_VALS));
|
|
newCONSTSUB(stash,"SATURATION_MODE",newSViv(SATURATION_MODE));
|
|
newCONSTSUB(stash,"SCREEN_MODE",newSViv(SCREEN_MODE));
|
|
newCONSTSUB(stash,"STATUS_CALLING_ERROR",newSViv(STATUS_CALLING_ERROR));
|
|
newCONSTSUB(stash,"STATUS_EXECUTION_ERROR",newSViv(STATUS_EXECUTION_ERROR));
|
|
newCONSTSUB(stash,"STATUS_PASS_THROUGH",newSViv(STATUS_PASS_THROUGH));
|
|
newCONSTSUB(stash,"STATUS_SUCCESS",newSViv(STATUS_SUCCESS));
|
|
newCONSTSUB(stash,"SUBTRACT_MODE",newSViv(SUBTRACT_MODE));
|
|
newCONSTSUB(stash,"TRANS_IMAGE_FILL",newSViv(TRANS_IMAGE_FILL));
|
|
newCONSTSUB(stash,"TRACE_NONE",newSViv(TRACE_NONE));
|
|
newCONSTSUB(stash,"TRACE_CALL",newSViv(TRACE_CALL));
|
|
newCONSTSUB(stash,"TRACE_TYPE",newSViv(TRACE_TYPE));
|
|
newCONSTSUB(stash,"TRACE_NAME",newSViv(TRACE_NAME));
|
|
newCONSTSUB(stash,"TRACE_DESC",newSViv(TRACE_DESC));
|
|
newCONSTSUB(stash,"TRACE_ALL",newSViv(TRACE_ALL));
|
|
newCONSTSUB(stash,"VALUE_MODE",newSViv(VALUE_MODE));
|
|
newCONSTSUB(stash,"WHITE_IMAGE_FILL",newSViv(WHITE_IMAGE_FILL));
|
|
#if HAVE_DIVIDE_MODE || IN_GIMP
|
|
newCONSTSUB(stash,"DIVIDE_MODE",newSViv(DIVIDE_MODE));
|
|
#endif
|
|
#if GIMP11
|
|
newCONSTSUB(stash,"FG_IMAGE_FILL",newSViv(FG_IMAGE_FILL));
|
|
newCONSTSUB(stash,"NO_IMAGE_FILL",newSViv(NO_IMAGE_FILL));
|
|
#endif
|
|
#if GIMP_PARASITE
|
|
newCONSTSUB(stash,"PARAM_PARASITE",newSViv(PARAM_PARASITE));
|
|
newCONSTSUB(stash,"PARASITE_PERSISTENT",newSViv(PARASITE_PERSISTENT));
|
|
newCONSTSUB(stash,"PARASITE_PARENT_PERSISTENT",newSViv(PARASITE_PARENT_PERSISTENT));
|
|
newCONSTSUB(stash,"PARASITE_GRANDPARENT_PERSISTENT",newSViv(PARASITE_GRANDPARENT_PERSISTENT));
|
|
newCONSTSUB(stash,"PARASITE_ATTACH_PARENT",newSViv(PARASITE_ATTACH_PARENT));
|
|
newCONSTSUB(stash,"PARASITE_ATTACH_GRANDPARENT",newSViv(PARASITE_ATTACH_PARENT));
|
|
#endif
|
|
}
|
|
|