如何从C函数中返回CLIPS处理后的值或对象？

核心问题分析 #

你的代码未返回预期结果，主要源于以下几个关键错误：

1. println输出无法通过Eval返回
   (println "Hello World!")是直接输出到CLIPS的标准输出（stdout），而非作为Eval函数的返回值。你调用Eval(env, "(run)", &cv)获取到的只是规则执行完成后的状态符号TRUE，并非println的内容。

2. 代码逻辑冗余且存在风险

• 你在判断返回值类型前就直接调用SBAppend(sb, cv.lexemeValue->contents)，若返回值不是LEXEME类型会直接崩溃；
• 重复执行SBAppend操作，会导致结果内容重复；
• 调用Eval(env, "(reset)", &cv)后未处理返回值，直接被后续的(run)调用覆盖，属于无效操作。

3. 未利用CLIPS的输出路由机制
   CLIPS允许自定义输出路由，你没有通过该机制捕获println的输出内容，而是错误依赖Eval的返回值。

修正后的代码实现 #

以下是调整后的C函数，解决了上述问题并支持传入自定义CLIPS命令：

#include <clips/clips.h>
#include <string.h>

// 自定义打印路由回调：将CLIPS输出写入StringBuilder
void CustomPrintRouter(void *context, const char *str) {
    StringBuilder *sb = (StringBuilder *)context;
    SBAppend(sb, str);
}

char * test_clips(char *command) {
    CLIPSValue cv;
    Environment *env;
    StringBuilder *sb;
    char *out = NULL;
    
    env = CreateEnvironment();
    sb = CreateStringBuilder(env, 1024);
    
    // 重定向CLIPS标准输出到自定义StringBuilder
    SetPrintRouter(env, "stdout", CustomPrintRouter, sb);
    
    // 构建并执行Hello World规则
    Build(env, "(defrule hello => (println \"Hello World!\"))");
    Eval(env, "(reset)", NULL);
    Eval(env, "(run)", NULL);
    
    // 执行传入的自定义CLIPS命令（若存在）
    if (command != NULL && strlen(command) > 0) {
        if (Eval(env, command, &cv) == TRUE) {
            // 仅处理符号或字符串类型的返回值
            if (cv.header->type == SYMBOL_TYPE || cv.header->type == STRING_TYPE) {
                SBAppend(sb, "\nCommand result: ");
                SBAppend(sb, cv.lexemeValue->contents);
            }
            // 释放CLIPS分配的返回值内存
            ReleaseValue(env, &cv);
        }
    }
    
    out = SBCopy(sb);
    
    // 清理资源
    SBDispose(sb);
    DestroyEnvironment(env);
    
    return out;
}

关键修改说明 #

• 自定义输出路由：通过SetPrintRouter将CLIPS的标准输出导向StringBuilder，直接捕获println的内容；
• 安全处理返回值：在判断返回值类型后再访问内容，避免崩溃；
• 支持自定义命令：执行传入的CLIPS命令并追加返回结果，同时调用ReleaseValue避免内存泄漏；
• 简化无效操作：去掉不必要的返回值存储，优化代码逻辑。

Swift调用注意事项 #

Swift调用该C函数时，需手动管理C分配的内存：

import Foundation

// 声明C函数接口
func test_clips(_ command: UnsafeMutablePointer<CChar>?) -> UnsafeMutablePointer<CChar>?

// 调用示例
let customCommand = "(+ 3 4)"
if let cCommand = customCommand.cString(using: .utf8),
   let cResult = test_clips(cCommand) {
    let swiftResult = String(cString: cResult)
    print(swiftResult)
    // 释放C函数分配的内存
    free(cResult)
}

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