6

我有一个 Cocoa 应用程序,它带有一个在 .sdef XML 文件中描述的 AppleScript 字典。sdef 中定义的所有 AppleScript 类、命令等都是工作属性。

除了我的“提交表单”命令。“提交表单”命令是我唯一尝试将参数传递的命令,该参数是从 AppleScript 到 Cocoa 的任意信息哈希表。我认为这应该通过传递一个 AppleScript 来完成record,它将NSDictionary在 Cocoa 端自动转换为一个。

tell application "Fluidium"
    tell selected tab of browser window 1
        submit form with name "foo" with values {bar:"baz"}
    end tell
end tell

“with values”参数是我遇到问题的record->参数。NSDictionary请注意,不能预先知道/定义记录/字典的键。他们是任意的。

这是我的 sdef XML 中此命令的定义:

<command name="submit form" code="FuSSSbmt" description="...">
    <direct-parameter type="specifier" optional="yes" description="..."/>
    <parameter type="text" name="with name" code="Name" optional="yes" description="...">
        <cocoa key="name"/>
    </parameter>
    <parameter type="record" name="with values" code="Vals" optional="yes" description="...">
        <cocoa key="values"/>
    </parameter>
</command>

我有一个“选项卡”对象,它在 sdef 中响应这个命令:

<class name="tab" code="fTab" description="A browser tab.">
    ...
    <responds-to command="submit form">
        <cocoa method="handleSubmitFormCommand:"/>
    </responds-to>

和可可:

- (id)handleSubmitFormCommand:(NSScriptCommand *)cmd {
    ...
}

“选项卡”对象正确响应我定义的所有其他 AppleScript 命令。如果我不发送可选的“带值”参数,“选项卡”对象也会响应“提交表单”命令。所以我知道我的基础设置正确。唯一的问题似乎是任意的record->NSDictionary参数。

当我在 中执行上面的 AppleScript 时AppleScript Editor.app,我在 Cocoa 端收到此错误:

+[NSDictionary scriptingRecordWithDescriptor:]: unrecognized selector sent to class 0x7fff707c6048

而这个在 AppleScript 方面:

error "Fluidium got an error: selected tab of browser window 1 doesn’t understand the submit form message." number -1708 from selected tab of browser window 1

谁能告诉我我错过了什么?作为参考,整个应用程序在 GitHub 上是开源的:

http://github.com/itod/fluidium

4

4 回答 4

7

Cocoa 会无缝地将NSDictionary对象转换为 AppleScript (AS) 记录,反之亦然,您只需告诉它如何做到这一点。

首先,您需要record-type在脚本定义 ( .sdef) 文件中定义 a,例如

<record-type  name="http response" code="HTRE">
    <property name="success" code="HTSU" type="boolean"
        description="Was the HTTP call successful?"
    />

    <property name="method" code="HTME" type="text"
        description="Request method (GET|POST|...)."
    />

    <property name="code" code="HTRC" type="integer"
        description="HTTP response code (200|404|...)."
    >
        <cocoa key="replyCode"/>
    </property>

    <property name="body" code="HTBO" type="text"
        description="The body of the HTTP response."
    />
</record-type>

name是该值在 AS 记录中的名称。NSDictionary如果 name 与key相等,<cocoa>则不需要标签(success上例中为method, body),如果不是,则可以使用<cocoa>标签告诉 Cocoa 读取此值的正确键(上例code中为 AS 中的 name记录,但在NSDictionary密钥中将replyCode改为;我只是为了演示目的而制作的)。

告诉 Cocoa 该字段应具有什么 AS 类型非常重要,否则 Cocoa 不知道如何将该值转换为 AS 值。默认情况下,所有值都是可选的,但如果它们存在,它们必须具有预期的类型。这是最常见的 Foundation 类型如何与 AS 类型匹配的小表格(不完整):

 AS Type     | Foundation Type
-------------+-----------------
 boolean     | NSNumber
 date        | NSDate
 file        | NSURL
 integer     | NSNumber
 number      | NSNumber
 real        | NSNumber
 text        | NSString

参见Apple 的“ Cocoa 脚本简介指南”的表 1-1

当然,一个值本身可以是另一个嵌套记录,只需record-type为它定义一个,使用规范中的record-type名称,然后值必须是匹配的字典。propertyNSDictionary

好吧,让我们尝试一个完整的样本。让我们在.sdef文件中定义一个简单的 HTTP get 命令:

<command name="http get" code="httpGET_">
    <cocoa class="HTTPFetcher"/>
    <direct-parameter type="text"
        description="URL to fetch."
    />
    <result type="http response"/>
</command>

现在我们需要在 Obj-C 中实现该命令,这非常简单:

#import <Foundation/Foundation.h>

// The code below assumes you are using ARC (Automatic Reference Counting).
// It will leak memory if you don't!

// We just subclass NSScriptCommand
@interface HTTPFetcher : NSScriptCommand
@end


@implementation HTTPFetcher

static NSString
    *const SuccessKey   = @"success",
    *const MethodKey    = @"method",
    *const ReplyCodeKey = @"replyCode",
    *const BodyKey      = @"body"
;

// This is the only method we must override
- (id)performDefaultImplementation {
    // We expect a string parameter
    id directParameter = [self directParameter];
    if (![directParameter isKindOfClass:[NSString class]]) return nil;

    // Valid URL?
    NSString * urlString = directParameter;
    NSURL * url = [NSURL URLWithString:urlString];
    if (!url) return @{ SuccessKey : @(false) };

    // We must run synchronously, even if that blocks main thread
    dispatch_semaphore_t sem = dispatch_semaphore_create(0);
    if (!sem) return nil;

    // Setup the simplest HTTP get request possible.
    NSURLRequest * req = [NSURLRequest requestWithURL:url];
    if (!req) return nil;

    // This is where the final script result is stored.
    __block NSDictionary * result = nil;

    // Setup a data task
    NSURLSession * ses = [NSURLSession sharedSession];
    NSURLSessionDataTask * tsk = [ses dataTaskWithRequest:req
        completionHandler:^(
            NSData *_Nullable data,
            NSURLResponse *_Nullable response,
            NSError *_Nullable error
        ) {
            if (error) {
                result = @{ SuccessKey : @(false) };

            } else {
                NSHTTPURLResponse * urlResp = (
                    [response isKindOfClass:[NSHTTPURLResponse class]] ?
                    (NSHTTPURLResponse *)response : nil
                );

                // Of course that is bad code! Instead of always assuming UTF8
                // encoding, we should look at the HTTP headers and see if
                // there is a charset enconding given. If we downloaded a
                // webpage it may also be found as a meta tag in the header
                // section of the HTML. If that all fails, we should at
                // least try to guess the correct encoding.
                NSString * body = (
                    data ?
                    [[NSString alloc]
                        initWithData:data encoding:NSUTF8StringEncoding
                    ]
                    : nil
                );

                NSMutableDictionary * mresult = [
                    @{ SuccessKey: @(true),
                        MethodKey: req.HTTPMethod
                    } mutableCopy
                ];
                if (urlResp) {
                    mresult[ReplyCodeKey] = @(urlResp.statusCode);
                }
                if (body) {
                    mresult[BodyKey] = body;
                }
                result = mresult;
            }

            // Unblock the main thread
            dispatch_semaphore_signal(sem);
        }
    ];
    if (!tsk) return nil;

    // Start the task and wait until it has finished
    [tsk resume];
    dispatch_semaphore_wait(sem, DISPATCH_TIME_FOREVER);

    return result;
}

当然,nil在内部故障的情况下返回是不好的错误处理。我们可以改为返回错误。好吧,我们甚至可以在这里使用针对 AS 的特殊错误处理方法(例如,设置我们从 继承的某些属性NSScriptCommand),但这毕竟只是一个示例。

最后我们需要一些AS代码来测试它:

tell application "MyCoolApp"
    set httpResp to http get "http://badserver.invalid"
end tell

结果:

{success:false}

正如预期的那样,现在成功了:

tell application "MyCoolApp"
    set httpResp to http get "http://stackoverflow.com"
end tell

结果:

{success:true, body:"<!DOCTYPE html>...",  method:"GET", code:200}

也如预期。

但是等等,你想要反过来,对吧?好的,我们也试试。我们只是重用我们的类型并发出另一个命令:

<command name="print http response" code="httpPRRE">
    <cocoa class="HTTPResponsePrinter"/>
    <direct-parameter type="http response"
        description="HTTP response to print"
    />
</command>

我们也实现了该命令:

#import <Foundation/Foundation.h>

@interface HTTPResponsePrinter : NSScriptCommand
@end


@implementation HTTPResponsePrinter

- (id)performDefaultImplementation {
    // We expect a dictionary parameter
    id directParameter = [self directParameter];
    if (![directParameter isKindOfClass:[NSDictionary class]]) return nil;

    NSDictionary * dict = directParameter;
    NSLog(@"Dictionary is %@", dict);
    return nil;
}

@end

我们对其进行测试:

tell application "MyCoolApp"
    set httpResp to http get "http://stackoverflow.com"
    print http response httpResp
end tell

她是我们的应用程序记录到控制台的内容:

Dictionary is {
    body = "<!DOCTYPE html>...";
    method = GET;
    replyCode = 200;
    success = 1;
}

所以,当然,它是双向的。

好吧,您现在可能会抱怨这并不是真正的任意,毕竟您需要定义哪些键(可能)存在以及如果它们存在它们将具有什么类型。你说的对。但是,通常数据并不是那么随意,我的意思是,毕竟代码必须能够理解它,因此它至少必须遵循某种规则和模式。

如果您真的不知道要期待什么数据,例如转储工具,它只是在两种明确定义的数据格式之间转换而对数据本身没有任何了解,您为什么将它作为记录传递呢?为什么不直接将该记录转换为易于解析的字符串值(例如属性列表、JSON、XML、CSV),然后将其作为字符串传递给 Cocoa,最后将其转换回对象?这是一个非常简单但非常强大的方法。在 Cocoa 中解析属性列表或 JSON 可能只需要四行代码。好吧,这可能不是最快的方法,但是在一个句子中提到 AppleScript 和高性能的人一开始就犯了一个根本性的错误;AppleScript 当然可能很多,但“快速”并不是您可以期望的属性。

于 2016-05-19T15:20:48.307 回答
3

正确 - NSDictionaries 和 AppleScript 记录似乎会混合使用,但实际上它们并没有(NSDictionaries 使用对象键 - 比如说字符串)AppleScript 记录使用四个字母字符代码(这要归功于他们的 AppleEvent/Classic Mac OS 遗产)。

在 Apple 的 AppleScript 实施者的邮件列表中查看此线程

因此,在您的情况下,您实际需要做的是解压缩您拥有的 AppleScript 记录并将其转换为您的 NSDictionary。您可以自己编写代码,但它很复杂并且深入到 AE 管理器中。

然而,这项工作实际上已经在appscript/appscript-objc的一些底层代码中为您完成(appscript 是 Python、Ruby 和 Objective-C 的库,它允许您与 AppleScriptable 应用程序进行通信,而无需实际使用 AppleScript。appscript-objc可以在使用 Cocoa 脚本的地方使用,但该技术的糟糕限制较少。)

该代码可在 sourceforge 上找到。几周前我向作者提交了一个补丁,这样你就可以构建 appscript-objc 的底层基础,这就是你在这种情况下所需要的:你需要做的就是打包和解包 Applescript/AppleEvent 记录。

对于其他谷歌用户,还有另一种方法可以做到这一点,即不使用 appscript: ToxicAppleEvents。那里有一种方法可以将字典翻译成 Apple 事件记录。

于 2010-01-23T19:17:20.823 回答
3

如果您知道要包装的字典中的字段并且您想要映射到/从 AppleScript 映射的键的类型是可预测的,那么似乎最好的解决方案是使用另一个答案中提到的记录定义,该答案也有助于链接到 Apple 的文档至少我个人完全错过了脚本指南。

如果上述要求无论出于何种原因都不能满足您的需求,则另一种解决方案是+scriptingRecordWithDescriptor:作为 NSDictionary 的一个类别来实现。我在提到的问题的Fluidium项目中找到了这个解决方案。这是来自NSDictionary+FUScripting.m的粘贴:

@implementation NSDictionary (FUScripting)

+ (id)scriptingRecordWithDescriptor:(NSAppleEventDescriptor *)inDesc {
    //NSLog(@"inDesc: %@", inDesc);

    NSMutableDictionary *d = [NSMutableDictionary dictionary];

    NSAppleEventDescriptor *withValuesParam = [inDesc descriptorForKeyword:'usrf']; // 'usrf' keyASUserRecordFields
    //NSLog(@"withValuesParam: %@", withValuesParam);

    NSString *name = nil;
    NSString *value = nil;

    // this is 1-indexed!
    NSInteger i = 1;
    NSInteger count = [withValuesParam numberOfItems];
    for ( ; i <= count; i++) {
        NSAppleEventDescriptor *desc = [withValuesParam descriptorAtIndex:i];
        //NSLog(@"descriptorAtIndex: %@", desc);

        NSString *s = [desc stringValue];
        if (name) {
            value = s;
            [d setObject:value forKey:name];
            name = nil;
            value = nil;
        } else {
            name = s;
        }
    }

    return [d copy];
}

@end

我可以确认使用 +scriptingRecordWithDecriptor: 和等效类型的自定义命令对我有用。

于 2014-08-25T22:16:23.657 回答
0

11.9.2016, Mac OS 10.11.6 问题是:如何将 AppleScript 记录转换为可可世界中的 NSDictionary ?

AppleScript 记录使用 AppleScript 属性作为键,使用数字或字符串作为值。

NSDictionary 使用相应的 cocoa 键作为键(以 NSString 对象的形式)和 NSNumber 或 NSString 值用于 AppleScript 记录中四种最基本的类型:字符串、整数、双精度和布尔值。

+ (id)scriptingRecordWithDescriptor:(NSAppleEventDescriptor *)inDesc 的建议解决方案在我的情况下不起作用。

我实现的基本变化是 AppleScript 环境中的每个类都定义了自己的属性和 AppleScript 代码。要确定的关键对象是一个 NSScriptClassDescription,其中包含 AppleScript 代码和 Cocoa 键之间的关系。另一个复杂情况是,在方法中用作参数的 NSAppleEventDescriptor 表示传入的 AppleScript 记录(或在我的情况下的记录列表)。这个 NSAppleEventDescriptor 可以有不同的形式。

AppleScript 记录中的一个条目是特殊的:{class:"script class name"}。代码测试它的存在。

您必须在代码中做的唯一替换是为 "Name of your apple script suite" 引入您的应用程序 AppleScript 套件的名称。该方法被实现为 NSDictionary 上的类别

#import "NSDictionary+AppleScript.h"

@implementation NSDictionary (AppleScript)

// returns a Dictionary from a apple script record
+ (NSArray <NSDictionary *> * )scriptingRecordWithDescriptor:(NSAppleEventDescriptor *)anEventDescriptor {
    NSScriptSuiteRegistry * theRegistry = [NSScriptSuiteRegistry sharedScriptSuiteRegistry] ;

    DescType theScriptClassDescriptor = [anEventDescriptor descriptorType] ;

    DescType printDescriptorType = NSSwapInt(theScriptClassDescriptor) ;
    NSString * theEventDescriptorType = [[NSString alloc] initWithBytes:&printDescriptorType length:sizeof(DescType) encoding:NSUTF8StringEncoding] ;
    //NSLog(@"Event descriptor type: %@", theEventDescriptorType) ; // "list" if a list, "reco" if a simple record , class identifier if a class

    // Forming a list of AppleEventDescriptors
    NSInteger i ;
    NSAppleEventDescriptor * aDescriptor ;
    NSMutableArray <NSAppleEventDescriptor*> * listOfEventDescriptors = [NSMutableArray array] ;
    if ([theEventDescriptorType isEqualToString:@"list"]) {
        NSInteger numberOfEvents = [anEventDescriptor numberOfItems] ;
        for (i = 1 ; i <= numberOfEvents ; i++) {
            aDescriptor = [anEventDescriptor descriptorAtIndex:i] ;
            if (aDescriptor) [listOfEventDescriptors addObject:aDescriptor] ;
        }
    }
    else [listOfEventDescriptors addObject:anEventDescriptor] ;

    // transforming every NSAppleEventDescriptor into an NSDictionary - key: cocoa key - object: NSString - the parameter value as string
    NSMutableArray <NSDictionary *> * theResult = [NSMutableArray arrayWithCapacity:listOfEventDescriptors.count] ;
    for (aDescriptor in listOfEventDescriptors) {
        theScriptClassDescriptor = [aDescriptor descriptorType] ;

        DescType printDescriptorType = NSSwapInt(theScriptClassDescriptor) ;
        NSString * theEventDescriptorType = [[NSString alloc] initWithBytes:&printDescriptorType length:sizeof(DescType) encoding:NSUTF8StringEncoding] ;
        //NSLog(@"Event descriptor type: %@", theEventDescriptorType) ;

        NSMutableDictionary * aRecord = [NSMutableDictionary dictionary] ;
        NSInteger numberOfAppleEventItems = [aDescriptor numberOfItems] ;
        //NSLog(@"Number of items: %li", numberOfAppleEventItems) ;

        NSScriptClassDescription * (^determineClassDescription)() = ^NSScriptClassDescription *() {
            NSScriptClassDescription * theResult ;

            NSDictionary * theClassDescriptions = [theRegistry classDescriptionsInSuite:@"Arcadiate Suite"] ;
            NSArray * allClassDescriptions = theClassDescriptions.allValues ;
            NSInteger numOfClasses = allClassDescriptions.count ;
            if (numOfClasses == 0) return theResult ;

            NSMutableData * thePropertiesCounter = [NSMutableData dataWithLength:(numOfClasses * sizeof(NSInteger))] ;
            NSInteger *propertiesCounter = [thePropertiesCounter mutableBytes] ;
            AEKeyword aKeyWord  ;
            NSInteger classCounter = 0 ;
            NSScriptClassDescription * aClassDescription ;
            NSInteger i ;
            NSString * aCocoaKey ;
            for (aClassDescription in allClassDescriptions) {
                for (i = 1 ; i <= numberOfAppleEventItems ; i++) {
                    aKeyWord = [aDescriptor keywordForDescriptorAtIndex:i] ;
                    aCocoaKey = [aClassDescription keyWithAppleEventCode:aKeyWord] ;
                    if (aCocoaKey.length > 0) propertiesCounter[classCounter] ++ ;
                }
                classCounter ++ ;
            }
            NSInteger maxClassIndex = NSNotFound ;
            for (i = 0 ; i < numOfClasses ; i++) {
                if (propertiesCounter[i] > 0) {
                    if (maxClassIndex != NSNotFound) {
                        if (propertiesCounter[i] > propertiesCounter[maxClassIndex]) maxClassIndex = i ;
                    }
                    else maxClassIndex = i ;
                }
            }
            //NSLog(@"Max class index: %li", maxClassIndex) ;
            //if (maxClassIndex != NSNotFound) NSLog(@"Number of matching properties: %li", propertiesCounter[maxClassIndex]) ;
            if (maxClassIndex != NSNotFound) theResult = allClassDescriptions[maxClassIndex] ;
            return theResult ;
        } ;

        NSScriptClassDescription * theRelevantScriptClass ;
        if ([theEventDescriptorType isEqualToString:@"reco"]) theRelevantScriptClass = determineClassDescription() ;
        else theRelevantScriptClass = [theRegistry classDescriptionWithAppleEventCode:theScriptClassDescriptor] ;
        if (theRelevantScriptClass) {
        //NSLog(@"Targeted Script Class: %@", theRelevantScriptClass) ;

            NSString * aCocoaKey, *stringValue ;
            NSInteger integerValue ;
            BOOL booleanValue ;
            id aValue ;
            stringValue = [theRelevantScriptClass implementationClassName] ;
            if (stringValue.length > 0) aRecord[@"className"] = aValue ;
            AEKeyword aKeyWord ;
            NSAppleEventDescriptor * parameterDescriptor ;
            NSString * printableParameterDescriptorType ;
            DescType parameterDescriptorType ;
            for (i = 1 ; i <= numberOfAppleEventItems ; i++) {
                aValue = nil ;
                aKeyWord = [aDescriptor keywordForDescriptorAtIndex:i] ;
                aCocoaKey = [theRelevantScriptClass keyWithAppleEventCode:aKeyWord] ;
                parameterDescriptor = [aDescriptor paramDescriptorForKeyword:aKeyWord] ;
                parameterDescriptorType = [parameterDescriptor descriptorType] ;
                printDescriptorType = NSSwapInt(parameterDescriptorType) ;
                printableParameterDescriptorType = [[NSString alloc] initWithBytes:&printDescriptorType length:sizeof(DescType) encoding:NSUTF8StringEncoding] ;
                //NSLog(@"Parameter type: %@", printableParameterDescriptorType) ;

                if ([printableParameterDescriptorType isEqualToString:@"doub"]) {
                    stringValue = [parameterDescriptor stringValue] ;
                    if (stringValue.length > 0) {
                        aValue = @([stringValue doubleValue]) ;
                    }
                }
                else if ([printableParameterDescriptorType isEqualToString:@"long"]) {
                    integerValue = [parameterDescriptor int32Value] ;
                    aValue = @(integerValue) ;
                }
                else if ([printableParameterDescriptorType isEqualToString:@"utxt"]) {
                    stringValue = [parameterDescriptor stringValue] ;
                    if (stringValue.length > 0) {
                        aValue = stringValue ;
                    }
                }
                else if ( ([printableParameterDescriptorType isEqualToString:@"true"]) || ([printableParameterDescriptorType isEqualToString:@"fals"]) ) {
                    booleanValue = [parameterDescriptor booleanValue] ;
                    aValue = @(booleanValue) ;
                }
                else {
                    stringValue = [parameterDescriptor stringValue] ;
                    if (stringValue.length > 0) {
                        aValue = stringValue ;
                    }
                }
                if ((aCocoaKey.length != 0) && (aValue)) aRecord[aCocoaKey] = aValue ;
            }
        }
        [theResult addObject:aRecord] ;
    }
    return theResult ;
}
@end
于 2016-09-11T17:42:26.980 回答