Reviewed by Eric.
[WebKit-https.git] / WebKitTools / DumpRenderTree / 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 "AppleScriptController.h"
31
32 #import <WebKit/WebView.h>
33 #import <WebKit/WebViewPrivate.h>   // for aeDescByEvaluatingJavaScriptFromString, which is pending API review
34
35 @implementation AppleScriptController
36
37 + (BOOL)isSelectorExcludedFromWebScript:(SEL)aSelector
38 {
39     if (aSelector == @selector(doJavaScript:))
40         return NO;
41     return YES;
42 }
43
44 + (NSString *)webScriptNameForSelector:(SEL)aSelector
45 {
46     if (aSelector == @selector(doJavaScript:))
47         return @"doJavaScript";
48
49     return nil;
50 }
51
52 - (id)initWithWebView:(WebView *)wv
53 {
54     self = [super init];
55     webView = wv;
56     return self;
57 }
58
59 - (NSString *)doJavaScript:(NSString *)aString
60 {
61     NSAppleEventDescriptor *aeDesc = [webView aeDescByEvaluatingJavaScriptFromString:aString];
62     if (!aeDesc)
63         return @"(null)";
64     
65     id value = nil;
66
67     DescType descType = [aeDesc descriptorType];
68     switch (descType) {
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     }
77  
78     if (!value)
79         value = [aeDesc stringValue];
80     if (!value)
81         value = [aeDesc data];
82
83     char descTypeStr[5];
84     descTypeStr[0] = descType >> 24;
85     descTypeStr[1] = descType >> 16;
86     descTypeStr[2] = descType >> 8;
87     descTypeStr[3] = descType;
88     descTypeStr[4] = 0;
89     
90     return [NSString stringWithFormat:@"%@ ('%s')", value, descTypeStr];
91 }
92
93 @end