TLA  Line data    Source code

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