Kawa/kawa/lang/AutoloadProcedure.java

package kawa.lang;
import gnu.mapping.*;
import gnu.expr.*;
import java.io.*;
import gnu.kawa.reflect.ClassMemberLocation;

/**
 * Implement autoloading of Procedures.
 * A named class is loaded, and apply requests are forwarded to it.
 * @author	Per Bothner
 */

public class AutoloadProcedure extends Procedure implements Externalizable
{
  /** The name of the class that defines the procedure.
   * It must be the name of a class in the CLASSPATH (for example:
   * "kawa.standard.list"), and the class must extend Procedure,
   * and have a default constructor.
   * If the Procedure is a ModuleBody, apply0() is applied,
   * and that is expected to define the Procedure in the global environment. */
  String className;

  Language language;

  /** The loaded procedure, or null if it has not yet been loaded. */
  Procedure loaded;

  public AutoloadProcedure ()
  {
  }

  public AutoloadProcedure (String name, String className)
  {
    super(name);
    this.className = className;
  }

  public AutoloadProcedure (String name, String className, Language language)
  {
    super(name);
    this.className = className;
    this.language = language;
  }

  public void print(java.io.PrintWriter ps)
  {
    ps.print ("#<procedure ");
    String name = getName();
    if (name != null)
      {
	ps.print (name);
	// ps.print (' ');
      }
    /*
    if (loaded != null)
      ps.print ("autoloaded");
    else
      {
	ps.print ("autoload ");
	ps.print (className);
      }
    */
    ps.print ('>');
  }

  private void throw_error (String prefix)
  {
    loaded = null;
    String name = getName();
    throw new RuntimeException (prefix + className
				+ " while autoloading "
				+ (name == null ? "" : name.toString ()));
  }

  static final Class classModuleBody = gnu.expr.ModuleBody.class;

  /** Load the class named in className. */
  void load ()
  {
    Object name = this.getSymbol();
    Language lang = this.language;
    if (lang == null)
      lang = Language.getDefaultLanguage();
    Environment env = lang.getLangEnvironment();
    // Should use something like isFunctionBound FIXME
    Symbol sym = (name instanceof Symbol ? (Symbol) name
                  : env.getSymbol(name.toString()));
    try
      {
        Class procClass = Class.forName(className);
        if (classModuleBody.isAssignableFrom(procClass))
          {
            ModuleContext context = ModuleContext.getContext();
            Object mod = context.searchInstance(procClass);
            if (mod == null)
              {
                try
                  {
                    mod = procClass.getDeclaredField("$instance").get(null);
                  }
                catch (NoSuchFieldException ex)
                  {
                    // Not a static module - create a new instance.
                    mod = procClass.newInstance();
                  }
              }
            ClassMemberLocation.defineAll(mod, lang, env);
            if (mod instanceof ModuleBody)
              ((ModuleBody)mod).run();

            Object value = env.getFunction(sym, null);
            if (value == null
                || !(value instanceof Procedure))
              throw_error
                ("invalid ModuleBody class - does not define " + name);
            loaded = (Procedure) value;
          }
        else
          {
            loaded = (Procedure) procClass.newInstance ();
            if (loaded == this)
              throw_error("circularity detected");
            if (name != null)
              {
                try
                  {
                    Object property = (lang.hasSeparateFunctionNamespace()
                                       ? EnvironmentKey.FUNCTION
                                       : null);
                    env.put(sym, property, loaded);
                  }
                catch (UnboundLocationException ex)
                  {
                  }
              }
          }
        if (name != null && loaded.getSymbol() == null)
          loaded.setSymbol(name);
      }
    catch (ClassNotFoundException ex)
      { throw_error ("failed to find class "); }
    catch (InstantiationException ex)
      { throw_error ("failed to instantiate class "); }
    catch (IllegalAccessException ex)
      { throw_error ("illegal access in class "); }
  }

  public Procedure getLoaded ()
  {
    if (loaded == null)
      load();
    return loaded;
  }

  public int numArgs ()
  {
    return getLoaded().numArgs();
  }

  public Object apply0 () throws Throwable
  {
    return getLoaded().apply0 ();
  }

  public Object apply1 (Object arg1) throws Throwable
  {
    return getLoaded().apply1 (arg1);
  }

   public Object apply2 (Object arg1,Object arg2) throws Throwable
  {
    return getLoaded().apply2 (arg1, arg2);
  }

  public Object apply3 (Object arg1, Object arg2, Object arg3) throws Throwable
  {
    return getLoaded().apply3 (arg1, arg2, arg3);
  }

  public Object apply4 (Object arg1, Object arg2,
			Object arg3, Object arg4)  throws Throwable
  {
    return getLoaded().apply4 (arg1, arg2, arg3, arg4);
  }

  public Object applyN (Object[] args) throws Throwable
  {
    if (loaded == null)
      load ();
    if (loaded instanceof AutoloadProcedure)
	  throw new InternalError("circularity in autoload of "+getName());
    return loaded.applyN (args);
  }

  public Procedure getSetter()
  {
    if (loaded == null)
      load ();
    if (loaded instanceof HasSetter)
      return loaded.getSetter();
    return super.getSetter();
  }

  public void writeExternal(ObjectOutput out) throws IOException
  {
    out.writeObject(getName());
    out.writeObject(className);
  }

  public void readExternal(ObjectInput in)
    throws IOException, ClassNotFoundException
  {
    setName((String) in.readObject());
    className = (String) in.readObject();
  }

  public Object getProperty(Object key, Object defaultValue)
  {
    Object value = super.getProperty(key, null);
    if (value != null)
      return value;
    return getLoaded().getProperty(key, defaultValue);
  }
}