API/JSBase.cpp

   1 // -*- mode: c++; c-basic-offset: 4 -*-
   2 /*
   3  * Copyright (C) 2006, 2007 Apple Inc. All rights reserved.
   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  * 1. Redistributions of source code must retain the above copyright
   9  *    notice, this list of conditions and the following disclaimer.
  10  * 2. Redistributions in binary form must reproduce the above copyright
  11  *    notice, this list of conditions and the following disclaimer in the
  12  *    documentation and/or other materials provided with the distribution.
  13  *
  14  * THIS SOFTWARE IS PROVIDED BY APPLE COMPUTER, INC. ``AS IS'' AND ANY
  15  * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  16  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  17  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL APPLE COMPUTER, INC. OR
  18  * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
  19  * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
  20  * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
  21  * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY
  22  * OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  23  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
  24  * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  25  */
  26
  27 #include "config.h"
  28 #include "JSBase.h"
  29
  30 #include "APICast.h"
  31 #include "SourceCode.h"
  32 #include <kjs/ExecState.h>
  33 #include <kjs/JSGlobalObject.h>
  34 #include <kjs/JSLock.h>
  35 #include <kjs/interpreter.h>
  36 #include <kjs/object.h>
  37
  38 using namespace KJS;
  39
  40 JSValueRef JSEvaluateScript(JSContextRef ctx, JSStringRef script, JSObjectRef thisObject, JSStringRef sourceURL, int startingLineNumber, JSValueRef* exception)
  41 {
  42     JSLock lock;
  43     ExecState* exec = toJS(ctx);
  44     JSObject* jsThisObject = toJS(thisObject);
  45     UString::Rep* scriptRep = toJS(script);
  46     UString::Rep* sourceURLRep = sourceURL ? toJS(sourceURL) : &UString::Rep::null;
  47     SourceCode source = makeSource(UString(scriptRep), UString(sourceURLRep), startingLineNumber);
  48     // Interpreter::evaluate sets "this" to the global object if it is NULL
  49     Completion completion = Interpreter::evaluate(exec->dynamicGlobalObject()->globalExec(), source, jsThisObject);
  50
  51     if (completion.complType() == Throw) {
  52         if (exception)
  53             *exception = toRef(completion.value());
  54         return 0;
  55     }
  56
  57     if (completion.value())
  58         return toRef(completion.value());
  59
  60     // happens, for example, when the only statement is an empty (';') statement
  61     return toRef(jsUndefined());
  62 }
  63
  64 bool JSCheckScriptSyntax(JSContextRef ctx, JSStringRef script, JSStringRef sourceURL, int startingLineNumber, JSValueRef* exception)
  65 {
  66     JSLock lock;
  67
  68     ExecState* exec = toJS(ctx);
  69     UString::Rep* scriptRep = toJS(script);
  70     UString::Rep* sourceURLRep = sourceURL ? toJS(sourceURL) : &UString::Rep::null;
  71     SourceCode source = makeSource(UString(scriptRep), UString(sourceURLRep), startingLineNumber);
  72     Completion completion = Interpreter::checkSyntax(exec->dynamicGlobalObject()->globalExec(), source);
  73     if (completion.complType() == Throw) {
  74         if (exception)
  75             *exception = toRef(completion.value());
  76         return false;
  77     }
  78
  79     return true;
  80 }
  81
  82 void JSGarbageCollect(JSContextRef)
  83 {
  84     JSLock lock;
  85     if (!Collector::isBusy())
  86         Collector::collect();
  87     // FIXME: Perhaps we should trigger a second mark and sweep
  88     // once the garbage collector is done if this is called when
  89     // the collector is busy.
  90 }