granicus.if.org Git - postgresql/blob - src/pl/plperl/SPI.xs

   1 /* system stuff */
   2 #include <stdio.h>
   3 #include <stdlib.h>
   4 #include <stdarg.h>
   5 #include <unistd.h>
   6 #include <fcntl.h>
   7 #include <string.h>
   8 #include <setjmp.h>
   9
  10 /* postgreSQL stuff */
  11 #include "executor/spi.h"
  12 #include "commands/trigger.h"
  13 #include "utils/elog.h"
  14 #include "utils/builtins.h"
  15 #include "fmgr.h"
  16 #include "access/heapam.h"
  17
  18 #include "tcop/tcopprot.h"
  19 #include "utils/syscache.h"
  20 #include "catalog/pg_proc.h"
  21 #include "catalog/pg_type.h"
  22
  23 /* perl stuff */
  24 /*
  25  * Evil Code Alert
  26  *
  27  * both posgreSQL and perl try to do 'the right thing'
  28  * and provide union semun if the platform doesn't define
  29  * it in a system header.
  30  * psql uses HAVE_UNION_SEMUN
  31  * perl uses HAS_UNION_SEMUN
  32  * together, they cause compile errors.
  33  * If we need it, the psql headers above will provide it.
  34  * So we tell perl that we have it.
  35  */
  36 #ifndef HAS_UNION_SEMUN
  37 #define HAS_UNION_SEMUN
  38 #endif
  39
  40 #include "EXTERN.h"
  41 #include "perl.h"
  42 #include "XSUB.h"
  43
  44 #include "eloglvl.h"
  45
  46
  47
  48 MODULE = SPI PREFIX = elog_
  49
  50 PROTOTYPES: ENABLE
  51 VERSIONCHECK: DISABLE
  52
  53 void
  54 elog_elog(level, message)
  55         int level
  56         char* message
  57         CODE:
  58         if (level > 0)
  59                 return;
  60         else
  61                 elog(level, message);
  62
  63
  64 int
  65 elog_DEBUG()
  66
  67 int
  68 elog_ERROR()
  69
  70 int
  71 elog_NOTICE()