src/pl/tcl/sql/pltcl_call.sql

   1 CREATE PROCEDURE test_proc1()
   2 LANGUAGE pltcl
   3 AS $$
   4 unset
   5 $$;
   6
   7 CALL test_proc1();
   8
   9
  10 CREATE PROCEDURE test_proc2()
  11 LANGUAGE pltcl
  12 AS $$
  13 return 5
  14 $$;
  15
  16 CALL test_proc2();
  17
  18
  19 CREATE TABLE test1 (a int);
  20
  21 CREATE PROCEDURE test_proc3(x int)
  22 LANGUAGE pltcl
  23 AS $$
  24 spi_exec "INSERT INTO test1 VALUES ($1)"
  25 $$;
  26
  27 CALL test_proc3(55);
  28
  29 SELECT * FROM test1;
  30
  31
  32 -- output arguments
  33
  34 CREATE PROCEDURE test_proc5(INOUT a text)
  35 LANGUAGE pltcl
  36 AS $$
  37 set aa [concat $1 "+" $1]
  38 return [list a $aa]
  39 $$;
  40
  41 CALL test_proc5('abc');
  42
  43
  44 CREATE PROCEDURE test_proc6(a int, INOUT b int, INOUT c int)
  45 LANGUAGE pltcl
  46 AS $$
  47 set bb [expr $2 * $1]
  48 set cc [expr $3 * $1]
  49 return [list b $bb c $cc]
  50 $$;
  51
  52 CALL test_proc6(2, 3, 4);
  53
  54
  55 -- OUT parameters
  56
  57 CREATE PROCEDURE test_proc9(IN a int, OUT b int)
  58 LANGUAGE pltcl
  59 AS $$
  60 elog NOTICE "a: $1"
  61 return [list b [expr {$1 * 2}]]
  62 $$;
  63
  64 DO $$
  65 DECLARE _a int; _b int;
  66 BEGIN
  67   _a := 10; _b := 30;
  68   CALL test_proc9(_a, _b);
  69   RAISE NOTICE '_a: %, _b: %', _a, _b;
  70 END
  71 $$;
  72
  73
  74 -- syntax error in result tuple
  75
  76 CREATE PROCEDURE test_proc10(INOUT a text)
  77 LANGUAGE pltcl
  78 AS $$
  79 return [list a {$a + $a}])
  80 $$;
  81
  82 CALL test_proc10('abc');
  83
  84
  85 DROP PROCEDURE test_proc1;
  86 DROP PROCEDURE test_proc2;
  87 DROP PROCEDURE test_proc3;
  88
  89 DROP TABLE test1;