3

iPhone アプリケーションに .clp ファイルを読み込もうとしています。そのために私は以下のコードを使用しています

    NSString *filePath = [[NSBundle mainBundle]
                          pathForResource:@"autodemo" ofType:@"clp"];

    environment = CreateEnvironment();
    char *clipsFileChar = (char *)[filePath cStringUsingEncoding:NSASCIIStringEncoding];
    Load(clipsFileChar);
    Reset();
    Run(-1);

    NSString *evalS = [NSString stringWithFormat:@"(find-all-facts ((?f state-list)) TRUE)"];
    char * evalStr = (char *)evalS;

    DATA_OBJECT obj;// = {0,-1};
//    obj.type = STRING;
//    obj.value = evalStr;

    int i = Eval(evalStr, &obj);
    NSLog(@"%d",i);

このコードを実行すると、Eval(evalStr, &obj)毎回表示0されます。このリンク
から autodemo.clp ファイルを使用しています。 では、コマンドを機能させる方法と、clp ファイルから返される応答を取得するにはどうすればよいですか?
Eval()

ありがとう、

4

1 に答える 1

1

以下のコードは私の問題を解決しました。他の誰かに役立つことを願っています.. :)

InitializeEnvironment();
Clear();

NSString *filePath = [[NSBundle mainBundle]
                      pathForResource:@"autodemo" ofType:@"clp"];
char *clipsFileChar = (char *)[filePath cStringUsingEncoding:NSASCIIStringEncoding];

IncrementGCLocks();
Load(clipsFileChar);
Reset();
Run(-1);
DecrementGCLocks();

[self nextUIState];

- (void)nextUIState
{
    DATA_OBJECT theDO;
    NSString * evalS = @"(find-all-facts ((?f state-list)) TRUE)";
    char *evalStr = (char *)[evalS cStringUsingEncoding:NSASCIIStringEncoding];

    int j = EnvEval(GetCurrentEnvironment(), evalStr, &theDO);
    NSLog(@"j = %d",j);

    if(factDict)
    {
        [factDict release];
        factDict = nil;

        factDict = [[NSMutableDictionary alloc] init];
    }

    id value = [self objectForDataObject:&theDO];

    NSLog(@"%@",[value description]);    
}

-(id) objectForDataObject: (DATA_OBJECT*) arg
{
    switch(arg->type)
    {
        case FACT_ADDRESS:
        {

            DATA_OBJECT data = { 0 };
            struct fact* aFact = (struct fact*) arg->value;

            if(EnvGetFactSlot(GetCurrentEnvironment(),aFact,(char*)[@"current" UTF8String],&data))
            {
                [factDict setObject:[self objectForDataObject: &data] forKey:@"current"];
                [factDict retain];
            }
            return factDict;
        }
        case SYMBOL:
        {
            NSString *str = [NSString stringWithUTF8String: ValueToString(arg->value)];
            if ([str isEqual: @"nil"]) return nil;
            if ([str hasPrefix: @"<<<"] && [str hasSuffix: @">>>"])
            {
                return [self dataFromSymbolString: str];
            }
            return str;
        }
        case STRING:
        {
            return [NSString stringWithUTF8String: ValueToString(arg->value)]; 
        }
        case INTEGER:
        {
            return [NSNumber numberWithInt: ValueToInteger(arg->value)];
        }
        case FLOAT:
        {
            return [NSNumber numberWithDouble: ValueToDouble(arg->value)];
        }
        case EXTERNAL_ADDRESS:
        {
            return (id) arg->value;
        }
        case MULTIFIELD:
        {
            int i, count = GetpDOLength(arg);
            NSMutableArray *args = [NSMutableArray arrayWithCapacity: count];
            FIELD_PTR fptr = (FIELD_PTR) GetMFPtr(GetpValue(arg),GetpDOBegin(arg));
            for(i = 0; i < count; ++i, ++fptr)
            {
                DATA_OBJECT dobj;
                dobj.type = fptr->type;
                dobj.value = fptr->value;
                [args addObject: [self objectForDataObject: &dobj]];
            }
            return args;
        }
        default:
            return nil;
    }
}

他に良い方法があれば（もちろんありますが）、教えてください。:)

于 2012-08-02T04:33:22.073 に答える