/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*-
 *
 * The contents of this file are subject to the Netscape Public
 * License Version 1.1 (the "License"); you may not use this file
 * except in compliance with the License. You may obtain a copy of
 * the License at http://www.mozilla.org/NPL/
 *
 * Software distributed under the License is distributed on an "AS
 * IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
 * implied. See the License for the specific language governing
 * rights and limitations under the License.
 *
 * The Original Code is the JavaScript 2 Prototype.
 *
 * The Initial Developer of the Original Code is Netscape
 * Communications Corporation.  Portions created by Netscape are
 * Copyright (C) 1998 Netscape Communications Corporation. All
 * Rights Reserved.
 *
 * Contributor(s): 
 *
 * Alternatively, the contents of this file may be used under the
 * terms of the GNU Public License (the "GPL"), in which case the
 * provisions of the GPL are applicable instead of those above.
 * If you wish to allow use of your version of this file only
 * under the terms of the GPL and not to allow others to use your
 * version of this file under the NPL, indicate your decision by
 * deleting the provisions above and replace them with the notice
 * and other provisions required by the GPL.  If you do not delete
 * the provisions above, a recipient may use your version of this
 * file under either the NPL or the GPL.
 */

#ifdef _WIN32
#include "msvc_pragma.h"
#endif


#include <algorithm>
#include <list>
#include <map>
#include <stack>

#include "world.h"
#include "utilities.h"
#include "js2value.h"
#include "numerics.h"
#include "reader.h"
#include "parser.h"
#include "regexp.h"
#include "js2engine.h"
#include "bytecodecontainer.h"
#include "js2metadata.h"

namespace JavaScript {    
namespace MetaData {

js2val error_ConstructorCore(JS2Metadata *meta, JS2Class *errorClass, js2val arg)
{
    JS2Object *obj = new SimpleInstance(meta, OBJECT_TO_JS2VAL(errorClass->prototype), errorClass);
    js2val thatValue = OBJECT_TO_JS2VAL(obj);

    if (!JS2VAL_IS_VOID(arg)) {
        errorClass->writePublic(meta, thatValue, errorClass, &meta->world.identifiers["message"], true, meta->engine->allocString(meta->toString(arg)));
    }

    return thatValue;
}

js2val Error_Constructor(JS2Metadata *meta, const js2val /*thisValue*/, js2val *argv, uint32 argc)
{
    return error_ConstructorCore(meta, meta->errorClass, argv[0]);
}

js2val EvalError_Constructor(JS2Metadata *meta, const js2val /*thisValue*/, js2val *argv, uint32 argc)
{
    return error_ConstructorCore(meta, meta->evalErrorClass, argv[0]);
}

js2val RangeError_Constructor(JS2Metadata *meta, const js2val /*thisValue*/, js2val *argv, uint32 argc)
{
    return error_ConstructorCore(meta, meta->rangeErrorClass, argv[0]);
}

js2val ReferenceError_Constructor(JS2Metadata *meta, const js2val /*thisValue*/, js2val *argv, uint32 argc)
{
    return error_ConstructorCore(meta, meta->referenceErrorClass, argv[0]);
}

js2val SyntaxError_Constructor(JS2Metadata *meta, const js2val /*thisValue*/, js2val *argv, uint32 argc)
{
    return error_ConstructorCore(meta, meta->syntaxErrorClass, argv[0]);
}

js2val TypeError_Constructor(JS2Metadata *meta, const js2val /*thisValue*/, js2val *argv, uint32 argc)
{
    return error_ConstructorCore(meta, meta->typeErrorClass, argv[0]);
}

js2val UriError_Constructor(JS2Metadata *meta, const js2val /*thisValue*/, js2val *argv, uint32 argc)
{
    return error_ConstructorCore(meta, meta->uriErrorClass, argv[0]);
}



js2val Error_toString(JS2Metadata *meta, const js2val thisValue, js2val *argv, uint32 argc)
{
    js2val thatValue = thisValue;
    js2val result;
    Multiname mn(&meta->world.identifiers["message"], meta->publicNamespace);

    JS2Class *c = meta->objectType(thatValue);
    if (c->readPublic(meta, &thatValue, c, &meta->world.identifiers["message"], RunPhase, &result)) {
        if (JS2VAL_IS_STRING(result))
            return result;
        else
            return meta->engine->allocString(meta->toString(result));
    }
    else
        return JS2VAL_UNDEFINED;
}

static void initErrorClass(JS2Metadata *meta, JS2Class *c, Constructor *constructor)
{
    meta->initBuiltinClass(c, NULL, constructor, constructor);
    c->prototype = OBJECT_TO_JS2VAL(new SimpleInstance(meta, meta->errorClass->prototype, meta->errorClass));
    meta->createDynamicProperty(JS2VAL_TO_OBJECT(c->prototype), &meta->world.identifiers["name"], meta->engine->allocString(c->name), ReadAccess, true, true);
    meta->createDynamicProperty(JS2VAL_TO_OBJECT(c->prototype), &meta->world.identifiers["message"], meta->engine->allocString("Message"), ReadAccess, true, true);
}

void initErrorObject(JS2Metadata *meta)
{

   FunctionData errorProtos[] = 
    {
        { "toString",           0, Error_toString },
        { NULL }
    };

    NamespaceList publicNamespaceList;
    publicNamespaceList.push_back(meta->publicNamespace);

    meta->initBuiltinClass(meta->errorClass, NULL, Error_Constructor, Error_Constructor);
    meta->errorClass->prototype = OBJECT_TO_JS2VAL(new SimpleInstance(meta, meta->objectClass->prototype, meta->errorClass));
    meta->createDynamicProperty(JS2VAL_TO_OBJECT(meta->errorClass->prototype), &meta->world.identifiers["name"], meta->engine->allocString("Error"), ReadAccess, true, true);
    meta->createDynamicProperty(JS2VAL_TO_OBJECT(meta->errorClass->prototype), &meta->world.identifiers["message"], meta->engine->allocString("Message"), ReadAccess, true, true);
    meta->initBuiltinClassPrototype(meta->errorClass, errorProtos);


    initErrorClass(meta, meta->evalErrorClass, EvalError_Constructor);
    initErrorClass(meta, meta->rangeErrorClass, RangeError_Constructor);
    initErrorClass(meta, meta->referenceErrorClass, ReferenceError_Constructor);
    initErrorClass(meta, meta->syntaxErrorClass, SyntaxError_Constructor);
    initErrorClass(meta, meta->typeErrorClass, TypeError_Constructor);
    initErrorClass(meta, meta->uriErrorClass, UriError_Constructor);


}

}
}