如何使用PLI例程获取verilog向量端口的尺寸？

#include "vpi_user.h"

// PLI例程的入口点
PLI_INT32 get_vector_size()
{
    vpiHandle systf_handle, arg_iterator, port_handle;
    int vector_size;

    // 获取系统任务的句柄
    systf_handle = vpi_handle(vpiSysTfCall, NULL);

    // 获取参数迭代器
    arg_iterator = vpi_iterate(vpiArgument, systf_handle);

    // 获取向量端口的句柄
    port_handle = vpi_scan(arg_iterator);

    // 获取向量端口的尺寸
    vector_size = vpi_get(vpiSize, port_handle);

    // 返回向量端口的尺寸
    return vector_size;
}

// 注册PLI例程
void register_get_vector_size()
{
    s_vpi_systf_data tf_data;

    tf_data.type = vpiSysTask;
    tf_data.sysfunctype = 0;
    tf_data.tfname = "$get_vector_size";
    tf_data.calltf = get_vector_size;
    tf_data.compiletf = NULL;
    tf_data.sizetf = NULL;
    tf_data.user_data = NULL;

    vpi_register_systf(&tf_data);
}

// 初始化PLI例程
void (*vlog_startup_routines[])() = {
    register_get_vector_size,
    NULL
};

module test_module(input [7:0] data);
  reg [7:0] temp;
  
  initial begin
    $display("Vector size: %d", $get_vector_size(data));
  end
endmodule