Age         Owner                    Branch data    TLA  Line data    Source code

                                  1                 :                : #include "postgres.h"
                                  2                 :                : 
                                  3                 :                : #include "fmgr.h"
                                  4                 :                : #include "plperl.h"
                                  5                 :                : 
                                  6                 :                : 
 1500 tgl@sss.pgh.pa.us           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                 :                : }