unit UTslVclFackInterface;
interface
{**
@nickname(底层伪接口) %%
@explan(说明)
该文件提供底层接口的说明无具体实现
该单元中的类型和函数可以直接使用 %%

**}
function getsenderdatabyid();
function gettslvariableptr(obj);
function getctypesize();
type aefclassobj_=class
    {**
    @nickname(内存管理对象) %%
    @explan(说明)内存操作底层接口伪类 %%

    **}
    function tmalloc(sz);
    begin
        {**
        @explan(说明)内存分配 %%
        @param(sz)(integer)大小 %%
        @return(pointer)分配的内存的句柄 %%
        **}
    end
    function trealloc(p,sz);
    begin
        {**
        @explan(说明)重新内存分配 %%
        @param(sz)(integer)大小 %%
        @param(p)(pointer)内存地址 %%
        @return(pointer)新的内存地址 %%
        **}
    end
    function tfree(p);
    begin
        {**
        @explan(说明) 释放内存 %%
        @param(p)(pointer)内存地址 %%
        **}
    end
    function tmcopy();
    begin
    end
    function tmset(p,sz);
    begin
        {**
        @explan(说明) 初始化内存 %%
        @param(sz)(integer)大小 %%
        @param(p)(pointer)内存地址 %%
        **}
    end
    function readbyte(p);
    begin
        {**
        @explan(说明) 读取一个byte %%
        @param(p)(pointer)内存地址 %%
        **}
    end
    function writebyte(p,v);
    begin
        {**
        @explan(说明) 写入一个beyte %%
        @param(p)(pointer)内存地址 %%
        @param(v)(integer)值 %%
        **}
    end
    function readint();
    begin
        {**
        @explan(说明) 读取一个byte %%
        @param(p)(pointer)内存地址 %%
        **}
    end
    function writeint(p,v);
    begin
    end
    function writedouble(p,v);
    begin
        {**
        @explan(说明) 读取一个double %%
        @param(p)(pointer)内存地址 %%
        **}
    end
    function readdouble(p);
    begin
        {**
        @explan(说明) 读取一个double %%
        @param(p)(pointer)内存地址 %%
        **}
    end
    function writellong(p,v);
    begin
        {**
        @explan(说明) 写入一个long%%
        @param(p)(pointer)内存地址 %%
        **}
    end
    function readlong(p);
    begin
        {**
        @explan(说明) 读取一个long %%
        @param(p)(pointer)内存地址 %%
        **}
    end
    function writeshort(p,v);
    begin
        {**
        @explan(说明) 写入一个short%%
        @param(p)(pointer)内存地址 %%
        **}
    end
    function readshort();
    begin
        {**
        @explan(说明) 读取一个short %%
        @param(p)(pointer)内存地址 %%
        **}
    end
    function writebytes(p,sz,v);
    begin
        {**
        @explan(说明) 写入一组short %%
        @param(p)(pointer)内存地址 %%
        **}
    end
    function readbytes(p,sz);
    begin
        {**
        @explan(说明) 读取一组byte %%
        @param(p)(pointer)内存地址 %%
        @param(sz)(pointer)大小 %%
        **}
    end
    function writeshorts(p,sz,v);
    begin
        {**
        @explan(说明) 写入一组short %%
        @param(p)(pointer)内存地址 %%
        **}
    end
    function readshorts(p,sz);
    begin
        {**
        @explan(说明) 读取一组short  %%
        @param(p)(pointer)内存地址 %%
        @param(sz)(pointer)大小 %%
        **}
    end
end
Implementation
function gettslvariableptr(obj);
begin
    {**
    @explan(说明) 获取变量的地址,在send消息使用 %%
    @param(obj)(obj) tsl变量 %%
    @return(integer) 变量地址 %%
    **}
end
function getctypesize();
begin
    {**
    @explan(说明) 获取类型占用内存大小 %%
    @return(array) 以类型字符串为下标的数字数组,数字表示该类型的内存大小 %%
    **}
end
function getsenderdatabyid();
begin
    {**
    @explan(说明) 获取变量的地址,在send消息使用 %%
    @return(obj) tsl变量 %%
    **}
end
end.