/*
 * The builtin Object object.
 * Copyright (c) 1998 New Generation Software (NGS) Oy
 *
 * Author: Markku Rossi <mtr@ngs.fi>
 */

/*
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Library General Public
 * License as published by the Free Software Foundation; either
 * version 2 of the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Library General Public License for more details.
 *
 * You should have received a copy of the GNU Library General Public
 * License along with this library; if not, write to the Free
 * Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
 * MA 02111-1307, USA
 */

/*
 * $Source: /tmp/cvsroot-15-2-2007/clamav-devel/libclamav/js/b_object.c,v $
 * $Id: b_object.c,v 1.2 2006/10/28 11:27:44 njh Exp $
 */
#if HAVE_CONFIG_H
#include "clamav-config.h"
#endif

#ifdef	CL_EXPERIMENTAL

#include "jsint.h"

/*
 * Static functions.
 */

/* Global method proc. */
static void
global_method (JSVirtualMachine *vm, JSBuiltinInfo *builtin_info,
	       void *instance_context, JSNode *result_return,
	       JSNode *args)
{
  if (args->u.vinteger > 1)
    {
      sprintf (vm->error, "Object(): illegal amount of arguments");
      js_vm_error (vm);
    }
  if (args->u.vinteger == 0
      || (args->u.vinteger == 1
	  && (args[1].type == JS_NULL
	      || args[1].type == JS_UNDEFINED)))
    {
      /* Create a fresh new object. */
      result_return->type = JS_OBJECT;
      result_return->u.vobject = js_vm_object_new (vm);
    }
  else
    {
      /* We have one argument.  Call ToObject() for it. */
      js_vm_to_object (vm, &args[1], result_return);
    }
}

/* Method proc. */
static int
method (JSVirtualMachine *vm, JSBuiltinInfo *builtin_info,
	void *instance_context, JSSymbol method, JSNode *result_return,
	JSNode *args)
{
  JSNode *n = instance_context;

  if (method == vm->syms.s_toSource)
    {
      char *source;

      if (instance_context)
	{
	  result_return->type = JS_UNDEFINED;
	  /* XXX 15.2.4.3 */
	}
      else
	{
	  source = "new Object()";
	  js_vm_make_static_string (vm, result_return, source,
				    strlen (source));
	}
    }
  /* ********************************************************************** */
  else if (method == vm->syms.s_toString)
    {
      if (instance_context)
	js_vm_make_static_string (vm, result_return, "[object Object]", 15);
      else
	js_vm_make_static_string (vm, result_return, "Object", 6);
    }
  /* ********************************************************************** */
  else if (method == vm->syms.s_valueOf)
    {
      if (instance_context)
	JS_COPY (result_return, n);
      else
	{
	  n = &vm->globals[js_vm_intern (vm, "Object")];
	  JS_COPY (result_return, n);
	}
    }
  /* ********************************************************************** */
  else
    return JS_PROPERTY_UNKNOWN;

  return JS_PROPERTY_FOUND;
}


/* Property proc. */
static int
property (JSVirtualMachine *vm, JSBuiltinInfo *builtin_info,
	  void *instance_context, JSSymbol property, int set, JSNode *node)
{
  if (!set)
    node->type = JS_UNDEFINED;

  return JS_PROPERTY_UNKNOWN;
}

/* New proc. */
static void
new_proc (JSVirtualMachine *vm, JSBuiltinInfo *builtin_info, JSNode *args,
	  JSNode *result_return)
{
  if (args->u.vinteger == 0)
    {
    return_native_object:
      result_return->type = JS_OBJECT;
      result_return->u.vobject = js_vm_object_new (vm);

      /* Set the [[Prototype]] and [[Class]] properties. */
      /* XXX 15.2.2.2 */
    }
  else if (args->u.vinteger == 1)
    {
      switch (args[1].type)
	{
	case JS_OBJECT:
	  JS_COPY (result_return, &args[1]);
	  break;

	case JS_STRING:
	case JS_BOOLEAN:
	case JS_INTEGER:
	case JS_FLOAT:
	case JS_NAN:
	  js_vm_to_object (vm, &args[1], result_return);
	  break;

	case JS_NULL:
	case JS_UNDEFINED:
	  goto return_native_object;
	  break;

	default:
	  /* The rest are implementation dependent. */
	  JS_COPY (result_return, &args[1]);
	  break;
	}
    }
  else
    {
      sprintf (vm->error, "new Object(): illegal amount of arguments");
      js_vm_error (vm);
    }
}


/*
 * Global functions.
 */

void
js_builtin_Object (JSVirtualMachine *vm)
{
  JSNode *n;
  JSBuiltinInfo *info;

  info = js_vm_builtin_info_create (vm);
  vm->prim[JS_OBJECT] = info;

  info->global_method_proc	= global_method;
  info->method_proc		= method;
  info->property_proc		= property;
  info->new_proc		= new_proc;

  /* Define it. */
  n = &vm->globals[js_vm_intern (vm, "Object")];
  js_vm_builtin_create (vm, n, info, NULL);
}
#endif	/*CL_EXPERIMENTAL*/