要用 PL/Tcl 语言创建函数，可使用标准语法

CREATE FUNCTION funcname (argument-types) RETURNS return-type AS '
    # PL/Tcl function body
' LANGUAGE 'pltcl';
     

PL/TclU 的写法相同，只是语言应指定为 'pltclu'。

函数体就是一段 Tcl 脚本。调用函数时，参数值以变量 $1 ... $n 传入 Tcl 脚本。结果由 Tcl 代码按通常方式用 return 语句返回。例如，一个返回两个整数值中较大值的函数可以定义为：

CREATE FUNCTION tcl_max (integer, integer) RETURNS integer AS '
    if {$1 > $2} {return $1}
    return $2
' LANGUAGE 'pltcl' WITH (isStrict);
     

注意子句 WITH (isStrict)，它让我们不必考虑 NULL 输入：如果传入的是 NULL，函数根本不会被调用，而是会自动返回 NULL 结果。

在非严格函数中，如果某个参数的实际值为 NULL，对应的 $n 变量会被设置为空串。要检测某个特定参数是否为空值，可使用函数 argisnull。例如，假设我们希望 tcl_max 在一个参数为 null、另一个非 null 时返回非 null 的参数，而不是返回 NULL：

CREATE FUNCTION tcl_max (integer, integer) RETURNS integer AS '
    if {[argisnull 1]} {
        if {[argisnull 2]} { return_null }
        return $2
    }
    if {[argisnull 2]} { return $1 }
    if {$1 > $2} {return $1}
    return $2
' LANGUAGE 'pltcl';
     

如上所示，要从 PL/Tcl 函数返回空值，请执行return_null。无论函数是否为严格函数，都可以这样做。

复合类型参数会作为 Tcl 数组传递给过程。 数组元素名就是该复合类型的属性名。如果传入行中的某个属性为 NULL，它就不会出现在数组中！下面是一个在 PL/Tcl 中定义 overpaid_2 函数（见旧版 PostgreSQL 文档）的例子：

CREATE FUNCTION overpaid_2 (EMP) RETURNS bool AS '
    if {200000.0 < $1(salary)} {
        return "t"
    }
    if {$1(age) < 30 && 100000.0 < $1(salary)} {
        return "t"
    }
    return "f"
' LANGUAGE 'pltcl';
     

目前尚不支持返回复合类型的结果值。

提供给 PL/Tcl 函数脚本的参数值，只是将输入参数转换成文本形式（就像用 SELECT 语句将它们显示出来一样）。反过来，return命令会接受任何字符串，只要它是该函数声明返回类型的可接受输入格式。因此，在 PL/Tcl 函数内部，所有值都只是文本字符串。

有时需要在两次过程调用之间保留某些全局状态数据，或者在不同过程之间共享。这很容易做到，因为同一后端中执行的所有 PL/Tcl 过程共享同一个安全的 Tcl 解释器。因此，任何全局 Tcl 变量都可以被所有 PL/Tcl 过程调用访问，并在 SQL 客户端连接的整个期间持续存在。（注意 PL/TclU 函数同样共享全局数据，但它们位于另一个不同的 Tcl 解释器中，无法与 PL/Tcl 函数通信。）

为帮助防止 PL/Tcl 过程无意间彼此干扰，每个过程都可通过upvar命令访问一个全局数组。该变量的全局名称是过程的内部名称，局部名称是GD。建议将 GD 用于保存过程的私有状态数据。只有当你明确希望某些值在多个过程之间共享时，才应使用常规的 Tcl 全局变量。

下面spi_execp的示例展示了GD的用法。

在 PL/Tcl 过程体中可以使用下列命令来访问数据库：

触发器过程可以用 PL/Tcl 编写。按照 PostgreSQL 的惯例，要作为触发器调用的过程 必须声明为一个无参数、返回类型为 opaque 的函数。

来自触发器管理器的信息通过下列变量传入过程体：

触发器过程的返回值可以是字符串 OK 或 SKIP，也可以是 array get Tcl 命令返回 的列表。如果返回值为 OK，触发该触发的操作 （INSERT/UPDATE/DELETE）将 正常进行。SKIP 告诉触发器管理器静默地取消 针对该行的操作。如果返回的是列表，则告诉 PL/Tcl 向触发器 管理器返回一个修改后的行，用该行代替 $NEW 中给出 的行被插入（这只对 INSERT/UPDATE 有效）。不用说，所有这些只在触发器是 BEFORE 且为 FOR EACH ROW 时才有意义； 否则返回值会被忽略。

下面是一个简单的触发器过程示例，它强制用表中的一个整数值记录 对该行执行的更新次数。对于新插入的行，该值被初始化为 0，之后 每次更新操作都将其递增。

CREATE FUNCTION trigfunc_modcount() RETURNS OPAQUE AS '
    switch $TG_op {
        INSERT {
            set NEW($1) 0
        }
        UPDATE {
            set NEW($1) $OLD($1)
            incr NEW($1)
        }
        default {
            return OK
        }
    }
    return [array get NEW]
' LANGUAGE 'pltcl';

CREATE TABLE mytab (num integer, description text, modcnt integer);

CREATE TRIGGER trig_mytab_modcount BEFORE INSERT OR UPDATE ON mytab
    FOR EACH ROW EXECUTE PROCEDURE trigfunc_modcount('modcnt');
     

注意，触发器过程本身并不知道列名；列名由触发器参数提供。这使 得该触发器过程可以在不同的表中复用。

PL/Tcl 支持在使用时自动装载（auto-loading）Tcl 代码。它会识别一张特殊的表 pltcl_modules，该表被假定包含若干 Tcl 代码模块。 如果这张表存在，模块 unknown 会从该表取出，并在 创建解释器之后立即装载到 Tcl 解释器中。

虽然 unknown 模块实际上可以包含你需要的任何初始化 脚本，但它通常会定义一个 Tcl “unknown” 过程，每当 Tcl 无法识别被调用的过程名时，就会调用该过程。PL/Tcl 的这一过程的标准 版本会尝试在 pltcl_modules 中找到一个能够定义所需 过程的模块。如果找到了，就把它装载到解释器中，然后允许继续执行最初 尝试的过程调用。辅助表pltcl_modfuncs提供了哪个模块 定义了哪些函数的索引，使查找相当快速。

PostgreSQL发行版中包含用于维护这些表的 支持脚本：pltcl_loadmod、pltcl_listmod、 pltcl_delmod，以及标准 unknown 模块 的源代码，位于share/unknown.pltcl。要支持自动装载 机制，最初必须把这个模块装载到每个数据库中。

表 pltcl_modules 和 pltcl_modfuncs 必须对所有用户可读，但最好只让数据库管理员拥有并可以写入它们。

在PostgreSQL中，只要参数个数或参数类型不同，就可以复用同一个函数名。不过，Tcl 要求所有过程名都必须不同。PL/Tcl 处理这一问题的方式是：在内部 Tcl 过程名中包含系统表 pg_proc 中该过程所在行的对象 ID 作为其名称的一部分。因此，名称相同但参数类型不同的PostgreSQL函数，也会对应不同的 Tcl 过程。这通常不是 PL/Tcl 程序员需要关心的事情，但在调试时可能会看见。