/*
 * Copyright (c) 1998-2006 Caucho Technology -- all rights reserved
 *
 * This file is part of Resin(R) Open Source
 *
 * Each copy or derived work must preserve the copyright notice and this
 * notice unmodified.
 *
 * Resin Open Source is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * Resin Open Source 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, or any warranty
 * of NON-INFRINGEMENT.  See the GNU General Public License for more
 * details.
 *
 * You should have received a copy of the GNU General Public License
 * along with Resin Open Source; if not, write to the
 *
 *   Free Software Foundation, Inc.
 *   59 Temple Place, Suite 330
 *   Boston, MA 02111-1307  USA
 *
 * @author Scott Ferguson
 */

package com.caucho.quercus.module;

import java.io.IOException;

import com.caucho.quercus.expr.Expr;

import com.caucho.quercus.env.Env;
import com.caucho.quercus.env.Value;
import com.caucho.quercus.env.JavaValue;
import com.caucho.quercus.env.BooleanValue;
import com.caucho.quercus.env.NullValue;

import com.caucho.quercus.gen.PhpWriter;

import com.caucho.quercus.program.JavaClassDef;

import com.caucho.util.L10N;

/**
 * Code for marshalling arguments.
 */
public class JavaMarshall extends Marshall {
  private static final L10N L = new L10N(JavaMarshall.class);

  private final JavaClassDef _def;
  private final boolean _isNotNull;
  private final boolean _isUnmarshallNullAsFalse;

  public JavaMarshall(JavaClassDef def,
                      boolean isNotNull)
  {
    this(def, isNotNull, false);
  }

  public JavaMarshall(JavaClassDef def,
                      boolean isNotNull,
                      boolean isUnmarshallNullAsFalse)
  {
    _def = def;
    _isNotNull = isNotNull;
    _isUnmarshallNullAsFalse = isUnmarshallNullAsFalse;
  }

  public Object marshall(Env env, Expr expr, Class argClass)
  {
    Value value = expr.eval(env);

    return marshall(env, value, argClass);
  }

  public Object marshall(Env env, Value value, Class argClass)
  {
    if (! value.isset()) {
      if (_isNotNull) {
        env.warning(L.l("null is an unexpected argument, expected {0}",
                        shortName(argClass)));
      }

      return null;
    }

    if (argClass.isArray()) {
      Class<?> componentType = argClass.getComponentType();

      if (componentType == null || ! value.isArray())
        env.error(L.l("Can't assign {0} with type {1} to {2}", value, value.getClass(), argClass));

      return value.valuesToArray(env, componentType);
    }

    Object obj = value.toJavaObject();

    if (obj == null) {
      if (_isNotNull) {
        env.warning(L.l("null is an unexpected argument, expected {0}",
                        shortName(argClass)));
      }

      return null;
    }
    else if (! argClass.isAssignableFrom(obj.getClass())) {
      //env.error(L.l("Can't assign {0} to {1}", obj, argClass));
      env.warning(L.l("'{0}' of type '{1}' is an unexpected argument, expected {2}", value, shortName(value.getClass()), shortName(argClass)));
      return null;
    }

    return obj;
  }

  public void generate(PhpWriter out, Expr expr, Class argClass)
    throws IOException
  {
    if (argClass.isArray()) {
      Class<?> componentType = argClass.getComponentType();

      expr.generate(out);
      out.print(".valuesToArray(env, ");
      out.print(componentType.getName());
      out.print(".class)");
    }
    else if (_isNotNull) {
      out.print("(" + argClass.getName() + ") ");
      expr.generate(out);
      out.print(".toJavaObjectNotNull(env, " + argClass.getName() + ".class)");
    } else {
      out.print("(" + argClass.getName() + ") ");
      expr.generate(out);
      out.print(".toJavaObject(env, " + argClass.getName() + ".class)");
    }
  }

  public Value unmarshall(Env env, Object value)
  {
    return env.wrapJava(value, _def, _isUnmarshallNullAsFalse);
  }

  public void generateResultStart(PhpWriter out)
    throws IOException
  {
    out.print("env.wrapJava(");
  }

  public void generateResultEnd(PhpWriter out)
    throws IOException
  {
    if (_isUnmarshallNullAsFalse)
      out.print(", true");

    out.print(")");
  }

  private static String shortName(Class cl)
  {
    String name = cl.getName();

    int p = name.lastIndexOf('.');

    if (p > 0)
      return name.substring(p + 1);
    else
      return name;
  }
}

