使用Tcl API创建VFS时如何在pathInFilesystemProc中获取注册的自定义结构体

核心实现逻辑 #

你可以通过Tcl内置的Tcl_FSGetFileSystemForPath接口先从路径对象拿到对应文件系统的指针，再调用Tcl_FSData获取注册时传入的自定义数据。同时你原有代码存在两处需要修正的问题：

• Tcl_Filesystem结构体不能定义为createFS函数内的局部变量，函数返回后局部变量内存会被回收，会触发野指针问题，需要动态分配存储
• Tcl_FSRegister调用参数错误：第一个参数就是你要绑定的自定义FSBackend实例，第二个参数需要传入Tcl_Filesystem结构体的指针

修正后的代码示例 #

首先是createFS函数的修正：

typedef struct {
    FILE* dbFile;
    /*...*/
} FSBackend;

// Tcl_Filesystem需要和后端绑定存储，避免释放
typedef struct {
    Tcl_Filesystem tfs;
    FSBackend backend;
} MyFsInstance;

void createFS(const char* dbFile)
{
    // 动态分配文件系统实例
    MyFsInstance* fsInst = (MyFsInstance*)malloc(sizeof(MyFsInstance));
    memset(fsInst, 0, sizeof(MyFsInstance));
    
    // 初始化数据库后端
    initDb(&fsInst->backend, dbFile);
    
    // 初始化文件系统配置
    fsInst->tfs.typeName = "Db Fs";
    fsInst->tfs.structureLength = sizeof(Tcl_Filesystem);
    fsInst->tfs.version = TCL_FILESYSTEM_VERSION_1;
    fsInst->tfs.pathInFilesystemProc = inFsProc;
    /* 其余回调初始化逻辑 */
    
    // 注册文件系统，第一个参数传入自定义后端数据
    Tcl_FSRegister(&fsInst->backend, &fsInst->tfs);
}

然后是inFsProc回调的实现：

int inFsProc(Tcl_Obj* pathPtr, ClientData* cd)
{
    // 从路径对象获取对应的文件系统指针
    Tcl_Filesystem* currFs = Tcl_FSGetFileSystemForPath(pathPtr);
    if (currFs == NULL) {
        return -1;
    }
    
    // 从文件系统中取出注册时绑定的FSBackend实例
    FSBackend* bk = (FSBackend*)Tcl_FSData(currFs);

    int len;
    const char* searchPath = Tcl_GetStringFromObj(pathPtr, &len);
    char* foundPath = findFileInDb(searchPath, bk);

    if (foundPath == 0) {
        return -1;
    }

    // 注意要解引用指针赋值，否则修改的是局部变量不生效
    *cd = buildInternalRep(foundPath, bk);
    return TCL_OK;
}

注意事项 #

如果需要卸载文件系统，调用Tcl_FSUnregister后要记得手动释放动态分配的MyFsInstance内存，避免内存泄漏。

内容的提问来源于stack exchange，提问作者Samuel