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 <kjs/ExecState.h>
  32 #include <kjs/JSGlobalObject.h>
  33 #include <kjs/JSLock.h>
  34 #include <kjs/interpreter.h>
  35 #include <kjs/object.h>
  36
  37 using namespace KJS;
  38
  39 JSValueRef JSEvaluateScript(JSContextRef ctx, JSStringRef script, JSObjectRef thisObject, JSStringRef sourceURL, int startingLineNumber, JSValueRef* exception)
  40 {
  41     JSLock lock;
  42     ExecState* exec = toJS(ctx);
  43     JSObject* jsThisObject = toJS(thisObject);
  44     UString::Rep* scriptRep = toJS(script);
  45     UString::Rep* sourceURLRep = sourceURL ? toJS(sourceURL) : &UString::Rep::null;
  46     // Interpreter::evaluate sets "this" to the global object if it is NULL
  47     Completion completion = Interpreter::evaluate(exec->dynamicGlobalObject()->globalExec(), UString(sourceURLRep), startingLineNumber, UString(scriptRep), jsThisObject);
  48
  49     if (completion.complType() == Throw) {
  50         if (exception)
  51             *exception = toRef(completion.value());
  52         return 0;
  53     }
  54
  55     if (completion.value())
  56         return toRef(completion.value());
  57
  58     // happens, for example, when the only statement is an empty (';') statement
  59     return toRef(jsUndefined());
  60 }
  61
  62 bool JSCheckScriptSyntax(JSContextRef ctx, JSStringRef script, JSStringRef sourceURL, int startingLineNumber, JSValueRef* exception)
  63 {
  64     JSLock lock;
  65
  66     ExecState* exec = toJS(ctx);
  67     UString::Rep* scriptRep = toJS(script);
  68     UString::Rep* sourceURLRep = sourceURL ? toJS(sourceURL) : &UString::Rep::null;
  69     Completion completion = Interpreter::checkSyntax(exec->dynamicGlobalObject()->globalExec(), UString(sourceURLRep), startingLineNumber, UString(scriptRep));
  70     if (completion.complType() == Throw) {
  71         if (exception)
  72             *exception = toRef(completion.value());
  73         return false;
  74     }
  75
  76     return true;
  77 }
  78
  79 void JSGarbageCollect(JSContextRef)
  80 {
  81     JSLock lock;
  82     if (!Collector::isBusy())
  83         Collector::collect();
  84     // FIXME: Perhaps we should trigger a second mark and sweep
  85     // once the garbage collector is done if this is called when
  86     // the collector is busy.
  87 }