Branch data     Line data    Source code

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