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