Age Owner TLA Line data Source code
1 : #include "postgres.h" 2 : 3 : #include "fmgr.h" 4 : #include "plperl.h" 5 : 6 : 1129 tgl 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 : }