playbook/skills/tsl-api-reference/references/codegen/builtin/function_pointers.md

Builtin - 函数指针与原生回调

DeleteInstance(obj)

声明：function

删除由 MakeInstance 生成的函数指针。

参数	类型	说明
obj	pointer	MakeInstance 生成的指针。

返回：Boolean，删除成功返回真，否则返回假。

示例

删除尚未包装调用的函数指针：

func_ptr := MakeInstance(thisFunction(ReturnOne), "cdecl", 0);
echo DeleteInstance(func_ptr);

function ReturnOne(): integer;
begin
    return 1;
end;
// 输出：1

MakeInstance(fun, mode, threadmode)

声明：function

将 TSL 函数或类成员函数生成可供 C 等外部程序调用的函数指针。

传入的 TSL 函数必须声明参数类型和返回类型。当前文档说明其返回类型支持单精度浮点、双精度浮点和整数。

参数	类型	说明
fun	String|TFunction	TSL 函数或 TSL 类成员函数。
mode	string	可选。cdecl 或 stdcall，默认 cdecl；Win32 下须与宿主回调约定一致。
threadmode	integer	可选。0 为单线程，1 为多线程单模，2 为多线程多模，默认 0。

返回：pointer，等同于 C 语言函数指针，可供外部程序调用。

示例

将 TSL 函数包装成外部函数指针，并在 TSL 内通过 external 函数指针声明重新调用：

func_ptr := MakeInstance(thisFunction(Add), "cdecl", 0);
wrapped_func := function(a: integer; b: integer): integer; external func_ptr;
echo func_ptr <> nil, "\n";
echo ##wrapped_func(3, 4), "\n";
wrapped_func := nil;
echo DeleteInstance(func_ptr);

function Add(a: integer; b: integer): integer;
begin
    return a + b;
end;
// 输出：1
// 输出：7
// 输出：1

也可以用函数名取得指针：MakeInstance(findFunction("Add"), "cdecl", 0)。

findFunction(name)

声明：function

按名称查找函数或 unit，找不到时返回 0

参数	类型	说明
name	string|unit	函数名称或 unit 名称

返回：tfunction|unit|integer

示例

范例01：查找并调用函数

func := findFunction("addValues");
echo call(func, 2, 3);
// 输出：5

function addValues(a, b);
begin
    return a + b;
end;

findFunction(name, target)

声明：function

从对象或类中查找方法，找不到时返回 0

参数	类型	说明
name	string	方法名称
target	object|tclass	对象或类

返回：tfunction|integer

示例

范例01：查找并调用对象方法

obj := new Calculator();
func := findFunction("add", obj);
echo call(func, 2, 3);
// 输出：5

type Calculator = class
public
    function add(a, b);
    begin
        return a + b;
    end;
end;

thisFunction(target)

声明：function

返回当前函数或指定函数、对象方法、类方法的函数值

参数	类型	说明
target	any	可选。函数名、对象方法或类方法，省略时返回当前函数

返回：tfunction

示例

范例01：取得指定函数并调用

func := thisFunction(addValues);
echo call(func, 2, 3);
// 输出：5

function addValues(a, b);
begin
    return a + b;
end;