将记录类型返回到applescript(来自Objective-C)

时间:2014-03-03 10:46:23

标签: objective-c applescript cocoa-scripting

我正在尝试将记录返回到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>

这是Objective-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}

1 个答案:

答案 0 :(得分:0)

您的sdef和实现很好,但是您在sdef中定义的术语在AppleScript tell块之外是不可用的。你的脚本应该是:

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

或者,如果由于某种原因你真的需要在tell块之外的消息:

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