cstubgenerator.java

已经移植好的java虚拟机

/*
 *	CStubGenerator.java	1.8	99/06/22 SMI
 *
 * Copyright (c) 1998 Sun Microsystems, Inc. All Rights Reserved.
 *
 * This software is the confidential and proprietary information of Sun
 * Microsystems, Inc. ("Confidential Information").  You shall not
 * disclose such Confidential Information and shall use it only in
 * accordance with the terms of the license agreement you entered into
 * with Sun.
 *
 * SUN MAKES NO REPRESENTATIONS OR WARRANTIES ABOUT THE SUITABILITY OF THE
 * SOFTWARE, EITHER EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR
 * PURPOSE, OR NON-INFRINGEMENT. SUN SHALL NOT BE LIABLE FOR ANY DAMAGES
 * SUFFERED BY LICENSEE AS A RESULT OF USING, MODIFYING OR DISTRIBUTING
 * THIS SOFTWARE OR ITS DERIVATIVES.
 * Use is subject to license terms.
 */

package runtime;
import vm.Const;
import util.*;
import components.*;
import vm.*;
import java.io.PrintStream;
import java.util.Enumeration;
import java.util.Vector;
import java.util.Hashtable;

public class CStubGenerator{
    char		CDelim = '_';
    String		exportPrefix = "";
    boolean		tracemode;
    String		outfileName;
    final static char	DIR_DELIM = '/';
    final static char	INNER_DELIM = '$';
    PrintStream		o;

    public CStubGenerator( boolean dotrace, PrintStream outfile ){
	tracemode = dotrace;
	o = outfile;
    }

    // this data is really per-header.
    // it is guarded by synchronous method access
    String      className;

    static String
    strsub( String src, char substitute ){
	return src.replace( DIR_DELIM, substitute).replace(INNER_DELIM, substitute );
    }

    class StubGenerator extends util.SignatureIterator{
	public String funcName;
	public boolean tracemode;
	public boolean isStatic;
	public int    argn;
	public String retTypeWord = null;
	public String params;
	public String proto	  = "";
	public String protoThis;
	public String result	  = "";
	String quotedClassFunc;
	String methodName;

	public StubGenerator( String name, boolean isStaticMember, String initialProto, String sig, boolean tm, String mname ){
	    super( sig );
	    funcName  = name;
	    isStatic  = isStaticMember;
	    if ( isStaticMember ){
		params    = "NULL";
		argn      = 0;
	    } else {
		params    = "_P_[0].p";
		argn      = 1;
	    }
	    protoThis = initialProto;
	    tracemode = tm;
	    methodName = mname;
	}

	private void prefix( String returntype ){
	    result += "	extern "+returntype+" "+funcName+"("+protoThis+proto+");\n";
	    if ( tracemode ){
		quotedClassFunc = "\""+className+"\",\""+methodName+"\"";
		String thisParam = isStatic ? ",%s,\"NULL\"" : ",0x%08x,_P_[0].p";
		result += "	ENTER_STUB("+quotedClassFunc+thisParam+",\""+proto+"\");\n";
	    }
	}
    
	private void suffix( String fmt, String val, String rtn ){
	    if ( tracemode ){
		if ( fmt == null )
		    result += "	EXIT_VOID_STUB("+quotedClassFunc+");\n";
		else
		    result += "	EXIT_STUB("+quotedClassFunc+",\""+fmt+"\","+val+");\n";
	    }
	    result += rtn;
	}

	public void do_scalar( char t ){
	    // default scalar types: int, char, byte, short
	    if (  isReturnType ){
		prefix( "long" );
		result += "	_P_[0].i = "+funcName+"("+params+");\n";
		suffix( "%d", "_P_[0].i", "\treturn _P_ + 1;\n");
	    } else {
		params += ", _P_["+argn+"].i";
		proto  += ",int";
		argn += 1;
	    }
	}

	public void do_float(){
	    if ( isReturnType ){
		prefix( "float" );
		result += "	_P_[0].f = "+funcName+"("+params+");\n";
		suffix( "%f", "_P_[0].f", "\treturn _P_ + 1;\n");
	    } else {
		params += ", _P_["+argn+"].f";
		proto  += ",float";
		argn += 1;
	    }
	}

	public void do_double(){
	    if ( isReturnType ){
		result += "	Java8 _tval;\n";
		prefix( "double" );
		result += "	SET_DOUBLE(_tval, _P_, "+funcName+"("+params+"));\n";
		suffix( null, null, "\treturn _P_ + 2;\n" );
	    } else {
		result += "	Java8 _t"+argn+";\n";
		params += ",GET_DOUBLE(_t"+argn+", _P_+"+argn+") ";
		proto  += ",double";
		argn += 2;
	    }
	}

	public void do_long(){
	    if ( isReturnType ){
		result += "	Java8 _tval;\n";
		prefix ("int64_t");
		result += "	SET_INT64(_tval, _P_, "+funcName+"("+params+"));\n";
		suffix( null, null, "\treturn _P_ + 2;\n" );
	    } else {
		result += "	Java8 _t"+argn+";\n";
		params += ",GET_INT64(_t"+argn+", _P_+"+argn+")";
		proto  += ",int64_t";
		argn += 2;
	    }
	}

	public void do_void(){
	    if ( isReturnType ){
		prefix("void");
		result += "	(void) "+funcName+"("+params+");\n";
		suffix( null, null, "\treturn _P_;\n" );
	    } else {
		System.out.println(Localizer.getString("cstubgenerator.void_parameter_type"));
	    }
	}

	public void do_boolean(){
	    if ( isReturnType ){
		prefix("long");
		result += "	_P_[0].i = "+funcName+"("+params+")? TRUE : FALSE;\n";
		suffix( "%d", "_P_[0].i", "\treturn _P_ + 1;\n");
	    } else {
		params += ", _P_["+argn+"].i";
		proto  += ",int";
		argn += 1;
	    }
	}

	public void do_object( int startname, int endname ){
	    if ( isReturnType ){
		prefix ("void*");
		result += "	_P_[0].p = "+funcName+"("+params+");\n";
		suffix("0x%08x", "_P_[0].p", "\treturn _P_ + 1;\n");
	    } else {
		params += ", _P_["+argn+"].p";
		proto  += ",void *";
		argn += 1;
	    }
	}

	public void do_array( int depth, int startname, int endname ){
	    if ( isReturnType ){
		prefix ("void*");
		result += "	_P_[0].p = "+funcName+"("+params+");\n";
		suffix("0x%08x", "_P_[0].p", "\treturn _P_ + 1;\n");
	    } else {
		params += ", _P_["+argn+"].p";
		proto  += ",void *";
		argn += 1;
	    }
	}
    }

    private boolean printStub( MethodInfo m ){
	if ( (m.access&Const.ACC_NATIVE) == 0 )
	    return false; // we're here in error.
	String  mName    = strsub( m.name.string, CDelim );
	String  funcName = className+"_"+mName;
	String  stubName = "Java_"+funcName+"_stub";

	StubGenerator g = new StubGenerator( funcName, m.isStaticMember(), "void *", m.type.string, tracemode, mName );
	try {
	    g.iterate_parameters();
	    g.iterate_returntype();
	} catch ( DataFormatException e ){
	    e.printStackTrace();
	    return false;
	}

	o.println(exportPrefix+"stack_item *"+stubName+"(stack_item *_P_,struct execenv *_EE_) {");
	o.print( g.result );
	o.println("}");
	return true;
    }

    private void prolog(){
	o.println("/* Stubs for class "+className+" */");
    }
    private void epilog(){
    }

    void fileProlog(){
	o.println("/* DO NOT EDIT THIS FILE - it is machine generated */");
	o.println("#include <StubPreamble.h>");
	if ( tracemode ){
	    o.println("#include <threads.h>\n");
	    o.println("#ifndef ENTER_STUB");
	    o.println("#define ENTER_STUB(n,fcn,fmt,s,p)\\");
	    o.println("	printf(\"0x%08x: %s_%s(\" #fmt \"%s)\\n\", threadSelf(), n, fcn, s, p);");
	    o.println("#endif");
	    o.println("#ifndef EXIT_STUB");
	    o.println("#define EXIT_STUB(n,f,fmt,r)\\");
	    o.println("	printf(\"0x%08x: %s_%s returned \" #fmt \"\\n\", threadSelf(), n, f, r);");
	    o.println("#define EXIT_VOID_STUB(n,f)\\");
	    o.println("	printf(\"0x%08x: %s_%s returned\\n\", threadSelf(), n, f);");
	    o.println("#endif");
	}
    }

    private
    void dumpStubs( ClassInfo c ){
	className = strsub( c.className, CDelim );
	if ( (c.methods == null) || (c.methods.length==0 ))
		return;
	prolog();
	MethodInfo t[] = c.methods;
	for ( int i = 0; i < t.length; i++ ){
	    if ( (t[i].access&Const.ACC_NATIVE) != 0 )
		printStub( t[i] );
	}
	epilog();
    }

    synchronized public void
    writeStubs( ClassInfo c[], int nclasses, ClassnameFilterList nativeTypes ){
	fileProlog();
	for ( int i = 0; i < nclasses; i++ ){
	    String[] types = nativeTypes.getTypes( c[i].className );
	    for ( int j = 0; j < types.length; ++j ) {
		String type = types[j];
		if ( type.substring(0, 3).equals("JDK") ){
		    dumpStubs( c[i] );
		    break;
		}
	    }
	}
    }

}