4

Applescript にレコードを返そうとしています。現在の解決策は、NSDictionary を返し、sdef ファイルでレコード タイプ (Lyx の戻り値) を定義することですが、これは機能しません。特定の AppleScript オブジェクトを作成する必要がありますか?

ここにsdefファイルがあります

<!-- our special scripting suite for this example -->
<suite name="Lyx" code="LYX " description="LyX scripting facilities.">

    <record-type name="LyX return value" code="LyxR">
        <property name="code" code="code" type="integer"
            description="Error code (0 in case of success).">
            <cocoa key="code"/>
        </property>            
        <property name="message" code="mess" type="text"
            description="The returned message.">
            <cocoa key="message"/>
        </property>
    </record-type>

    <command name="run" code="SLyxComm" description="run a simple command with one parameter">
        <cocoa class="LyxCommand"/>

        <direct-parameter description="The command to be executed.">
            <type type="text" list="no"/>
        </direct-parameter>

        <parameter name="with argument" code="args" type="text">
            <cocoa key="arg"/>
        </parameter>

        <result type="LyX return value" description="Contains a code (0 for success) and the message returned by LyX"/>
    </command>

</suite>

ここに客観的なCコードがあります

@interface LyxCommand : NSScriptCommand {
}
- (id)performDefaultImplementation;
@end

@implementation LyxCommand
- (id)performDefaultImplementation {
    // Get the command and argument
    NSDictionary * theArguments = [self evaluatedArguments];

  NSString * directParameter = [self directParameter];
  NSString *arg = [theArguments objectForKey: @"arg"];


  // Execute the command
  LyXFunctionResult result = applescript_execute_command([directParameter UTF8String], [arg UTF8String]);

  // Construct the result record
  NSString *message = [NSString stringWithCString:result.message encoding:NSUTF8StringEncoding];
  free(result.message); 

  NSDictionary *objcResult = [NSDictionary dictionaryWithObjectsAndKeys: [NSNumber numberWithInt:result.code], @"code", message, @"message", nil];
  return objcResult;
}

@end

この単純な aplescript を試してみると

tell application "LyX-2.1-qt4"
set x to (run "server-get-filename" with argument "")
end tell
message of x

エラー メッセージは次のとおりerror "Can’t get message of {message:\"\", code:0}." number -1728 from message of {«class mess»:"", «class code»:0}です。

4

1 に答える 1