/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*-
 *
 * ***** BEGIN LICENSE BLOCK *****
 * Version: MPL 1.1/GPL 2.0/LGPL 2.1
 *
 * The contents of this file are subject to the Mozilla 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/MPL/
 *
 * 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 the Initial Developer are Copyright (C) 1998
 * the Initial Developer. All Rights Reserved.
 *
 * Contributor(s):
 *
 * Alternatively, the contents of this file may be used under the terms of
 * either the GNU General Public License Version 2 or later (the "GPL"), or
 * the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
 * in which case the provisions of the GPL or the LGPL are applicable instead
 * of those above. If you wish to allow use of your version of this file only
 * under the terms of either the GPL or the LGPL, and not to allow others to
 * use your version of this file under the terms of the MPL, indicate your
 * decision by deleting the provisions above and replace them with the notice
 * and other provisions required by the GPL or the LGPL. If you do not delete
 * the provisions above, a recipient may use your version of this file under
 * the terms of any one of the MPL, the GPL or the LGPL.
 *
 * ***** END LICENSE BLOCK ***** */

#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)
{
	DEFINE_ROOTKEEPER(meta, rk, arg);
	JS2Object *obj = NULL;
	DEFINE_ROOTKEEPER(meta, rk1, obj);
    obj = new (meta) SimpleInstance(meta, OBJECT_TO_JS2VAL(errorClass->prototype), errorClass);
    js2val thatValue = OBJECT_TO_JS2VAL(obj);

    if (!JS2VAL_IS_VOID(arg)) {
		const String *str = NULL;
		DEFINE_ROOTKEEPER(meta, rk2, str);
		str = meta->toString(arg);
        errorClass->WritePublic(meta, thatValue, meta->world.identifiers["message"], true, meta->engine->allocString(str));
    }

    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 nameVal;
    js2val messageVal;
	String s;

    JS2Class *c = meta->objectType(thatValue);
    if (c->ReadPublic(meta, &thatValue, meta->world.identifiers["name"], RunPhase, &nameVal)) {
		s = *meta->toString(nameVal);
		if (c->ReadPublic(meta, &thatValue, meta->world.identifiers["message"], RunPhase, &messageVal)) {
			s += widenCString(":");
			s += *meta->toString(messageVal);
		}
    }
    return meta->engine->allocString(s);
}

static void initErrorClass(JS2Metadata *meta, JS2Class *c, Constructor *constructor)
{
    meta->initBuiltinClass(c, NULL, constructor, constructor);
    c->prototype = OBJECT_TO_JS2VAL(new (meta) 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 (meta) 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);


}

}
}