1 /*

     2  * Copyright (C) 2006 Apple Computer, Inc.  All rights reserved.

     3  * Copyright (C) 2006 Alexey Proskuryakov (ap@nypop.com)

     4  *

     5  * Redistribution and use in source and binary forms, with or without

     6  * modification, are permitted provided that the following conditions

     7  * are met:

     8  *

     9  * 1.  Redistributions of source code must retain the above copyright

    10  *     notice, this list of conditions and the following disclaimer. 

    11  * 2.  Redistributions in binary form must reproduce the above copyright

    12  *     notice, this list of conditions and the following disclaimer in the

    13  *     documentation and/or other materials provided with the distribution. 

    14  * 3.  Neither the name of Apple Computer, Inc. ("Apple") nor the names of

    15  *     its contributors may be used to endorse or promote products derived

    16  *     from this software without specific prior written permission. 

    17  *

    18  * THIS SOFTWARE IS PROVIDED BY APPLE AND ITS CONTRIBUTORS "AS IS" AND ANY

    19  * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED

    20  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE

    21  * DISCLAIMED. IN NO EVENT SHALL APPLE OR ITS CONTRIBUTORS BE LIABLE FOR ANY

    22  * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES

    23  * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;

    24  * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND

    25  * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT

    26  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF

    27  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

    28  */

    29 

    30 #import "config.h"

    31 #import "AppleScriptController.h"

    32 

    33 #import <WebKit/WebView.h>

    34 #import <WebKit/WebViewPrivate.h>   // for aeDescByEvaluatingJavaScriptFromString, which is pending API review

    35 

    36 @implementation AppleScriptController

    37 

    38 + (BOOL)isSelectorExcludedFromWebScript:(SEL)aSelector

    39 {

    40     if (aSelector == @selector(doJavaScript:))

    41         return NO;

    42     return YES;

    43 }

    44 

    45 + (NSString *)webScriptNameForSelector:(SEL)aSelector

    46 {

    47     if (aSelector == @selector(doJavaScript:))

    48         return @"doJavaScript";

    49 

    50     return nil;

    51 }

    52 

    53 - (id)initWithWebView:(WebView *)wv

    54 {

    55     self = [super init];

    56     webView = wv;

    57     return self;

    58 }

    59 

    60 static id convertAEDescToObject(NSAppleEventDescriptor *aeDesc)

    61 {

    62     id value = nil;

    63 

    64     DescType descType = [aeDesc descriptorType];

    65     switch (descType) {

    66         case typeUnicodeText:

    67             value = [NSString stringWithFormat:@"\"%@\"", [aeDesc stringValue]];

    68             break;

    69         case typeLongDateTime:

    70             if ([[aeDesc data] length] == sizeof(LongDateTime)) {

    71                 LongDateTime d;

    72                 [[aeDesc data] getBytes:&d];

    73                 value = [NSString stringWithFormat:@"%016llX", (unsigned long long)d];

    74             }

    75             break;

    76         case typeAEList:

    77             value = [NSMutableString stringWithString:@"("];

    78             int numItems = [aeDesc numberOfItems];

    79             for (int i = 0; i < numItems; ++i) {

    80                 if (i != 0)

    81                     [(NSMutableString*)value appendString:@", "];

    82                 id obj = convertAEDescToObject([aeDesc descriptorAtIndex:(i + 1)]);

    83                 [(NSMutableString*)value appendString:[obj description]];

    84             }

    85             [(NSMutableString*)value appendString:@")"];

    86             break;

    87         case typeType: {

    88             OSType type = [aeDesc typeCodeValue];

    89 

    90             char typeStr[5];

    91             typeStr[0] = type >> 24;

    92             typeStr[1] = type >> 16;

    93             typeStr[2] = type >> 8;

    94             typeStr[3] = type;

    95             typeStr[4] = 0;

    96 

    97             value = [NSString stringWithFormat:@"'%s'", typeStr];

    98             break;

    99         }

   100     }

   101 

   102     if (!value)

   103         value = [aeDesc stringValue];

   104     if (!value)

   105         value = [aeDesc data];

   106 

   107     return value;

   108 }

   109 

   110 - (NSString *)doJavaScript:(NSString *)aString

   111 {

   112     NSAppleEventDescriptor *aeDesc = [webView aeDescByEvaluatingJavaScriptFromString:aString];

   113     if (!aeDesc)

   114         return @"(null)";

   115     

   116     DescType descType = [aeDesc descriptorType];

   117     char descTypeStr[5];

   118     descTypeStr[0] = descType >> 24;

   119     descTypeStr[1] = descType >> 16;

   120     descTypeStr[2] = descType >> 8;

   121     descTypeStr[3] = descType;

   122     descTypeStr[4] = 0;

   123 

   124     return [NSString stringWithFormat:@"%@ ('%s')", convertAEDescToObject(aeDesc), descTypeStr];

   125 }

   126 

   127 @end