contrib/bool_plperl/bool_plperl.c

   1 #include "postgres.h"
   2
   3 #include "fmgr.h"
   4 #include "plperl.h"
   5
   6
   7 PG_MODULE_MAGIC;
   8
   9 PG_FUNCTION_INFO_V1(bool_to_plperl);
  10
  11 Datum
  12 bool_to_plperl(PG_FUNCTION_ARGS)
  13 {
  14         dTHX;
  15         bool            in = PG_GETARG_BOOL(0);
  16
  17         return PointerGetDatum(in ? &PL_sv_yes : &PL_sv_no);
  18 }
  19
  20
  21 PG_FUNCTION_INFO_V1(plperl_to_bool);
  22
  23 Datum
  24 plperl_to_bool(PG_FUNCTION_ARGS)
  25 {
  26         dTHX;
  27         SV                 *in = (SV *) PG_GETARG_POINTER(0);
  28
  29         PG_RETURN_BOOL(SvTRUE(in));
  30 }