src/pl/plperl/spi_internal.c

   1 /*
   2  * $PostgreSQL:$
   3  *
   4  *
   5  * This kludge is necessary because of the conflicting
   6  * definitions of 'DEBUG' between postgres and perl.
   7  * we'll live.
   8  */
   9
  10 #include "postgres.h"
  11 /* Defined by Perl */
  12 #undef _
  13
  14 /* perl stuff */
  15 #include "plperl.h"
  16
  17 int
  18 spi_DEBUG(void)
  19 {
  20         return DEBUG2;
  21 }
  22
  23 int
  24 spi_LOG(void)
  25 {
  26         return LOG;
  27 }
  28
  29 int
  30 spi_INFO(void)
  31 {
  32         return INFO;
  33 }
  34
  35 int
  36 spi_NOTICE(void)
  37 {
  38         return NOTICE;
  39 }
  40
  41 int
  42 spi_WARNING(void)
  43 {
  44         return WARNING;
  45 }
  46
  47 int
  48 spi_ERROR(void)
  49 {
  50         return ERROR;
  51 }