makewithbaseuri.java

A framework written in Java for implementing high-level and dynamic languages, compiling them into J

// Copyright (c) 2006  Per M.A. Bothner
// This is free software;  for terms and warranty disclaimer see ./COPYING.

package gnu.kawa.xml;
import gnu.bytecode.*;
import gnu.mapping.*;
import gnu.expr.*;
import gnu.lists.*;
import gnu.xml.*;

/** A Procedure to create an included entity object, or
 * set the base-uri property for a document or fragment.
 * This procedure takes two paramaters: The base-uri, and the "contents".
 */

public class MakeWithBaseUri extends NodeConstructor
{
  public static final MakeWithBaseUri makeWithBaseUri = new MakeWithBaseUri();

  public int numArgs() { return 0x2002; }

  public void apply (CallContext ctx)
  {
    Consumer saved = ctx.consumer;
    Consumer out = NodeConstructor.pushNodeContext(ctx);
    Object baseUri = ctx.getNextArg();
    Object node = ctx.getNextArg();
    if (out instanceof XConsumer)
      ((XConsumer) out).beginEntity(baseUri);
    try
      {
        Values.writeValues(node, out);
      }
    finally
      {
        if (out instanceof XConsumer)
          ((XConsumer) out).endEntity();
        if (out instanceof TreeList)
          ((TreeList)out).dump();
	NodeConstructor.popNodeContext(saved, ctx);
      }
  }


  public void compileToNode (ApplyExp exp, Compilation comp,
				      ConsumerTarget target)
  {
    Variable consumer = target.getConsumerVariable();
    Expression[] args = exp.getArgs();
    int nargs = args.length;
    CodeAttr code = comp.getCode();
    code.emitLoad(consumer);
    args[0].compile(comp, Target.pushObject);
    code.emitInvokeInterface(beginEntityMethod);
    compileChild(args[1], comp, target);
    code.emitLoad(consumer);
    code.emitInvokeInterface(endEntityMethod);
  }

  static final ClassType typeXConsumer = ClassType.make("gnu.lists.XConsumer");
  static final Method beginEntityMethod
    = typeXConsumer.getDeclaredMethod("beginEntity", 1);
  static final Method endEntityMethod
    = typeXConsumer.getDeclaredMethod("endEntity", 0);
}