Add some more meat to the plperl6_func_handler skeleton

leto · Jun 9, 2010 · 8c00aa8 · 8c00aa8
1 parent 3f8e574
commit 8c00aa8
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/plparrot.c b/plparrot.c
@@ -180,6 +180,15 @@ static Datum
 plperl6_func_handler(PG_FUNCTION_ARGS)
 {
     Datum retval, procsrc_datum;
+    char *proc_src, *errmsg, *tmp;
+    char *perl6_src;
+    char perl6_begin[7] = "sub r {";
+    char perl6_end[1]    = "}";
+    int numargs, rc, i, length;
+
+    if ((rc = SPI_connect()) != SPI_OK_CONNECT)
+        elog(ERROR, "SPI_connect failed: %s", SPI_result_code_string(rc));
+
     retval = PG_GETARG_DATUM(0);
     return retval;
 }