code.vuplus.com Git - vuplus_webkit/blob - Tools/DumpRenderTree/mac/AppleScriptController.m

   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