-----		FORTRAN
# descrip.mms

callFor :	callFor.class java$calledFor_shr.exe
	write sys$output "done

callFor.class :	callFor.java
	- javac "callFor.java

java$calledFor_shr.exe : calledFor.obj calledFor.opt 
	link/share/exec=$@ $+/opt
	def/nolog/job java$calledFor_shr sys$disk:[]java$calledFor_shr

calledFor.obj :	calledFor.for
	fort $</name=as_is

calledFor.opt :
	open/write opt $@
	write opt "case_sensitive=YES
	write opt "SYMBOL_VECTOR=(Java_callFor_forIntProc=PROCEDURE)
	write opt "SYMBOL_VECTOR=(Java_callFor_forIntFunc=PROCEDURE)
	write opt "case_sensitive=NO
	write opt "GSMATCH=LEQUAL,1,1
	write opt "SYS$SHARE:JAVA$JAVA_SHR/SHARE
	close opt

clean :
	purge
	del *.obj;
	del *.opt;
	
clobber :	clean
	del java$calledFor_shr.exe;
	del callFor.class;
	deassign/job java$calledFor_shr
-+-
class callFor {
   public native void forIntProc (int arg1);
   public static native int forIntFunc (int arg1);

    static {
        System.loadLibrary("calledFor");
        }

    public static void main (String[] args) {
        new callFor().forIntProc (4711);
	System.out.println ("FORTRAN returns: "+forIntFunc(7));
        }
}
-+-
	subroutine	Java_callFor_forIntProc (m, n, i)
c			Java-prefix
c			     class name
c				    delimiter
c				     method

c	i is passed by value, FORTRAN expects it by reference, therefore the
c	passed data is %loc
	integer	i

c	m is really the interface pointer JNIenv, not used here
c	n is really the Java object jobject, not used here
	integer	m, n

	type	*, 'hello FORTRAN'
	type	*, 'forIntProc: ', %loc(i)
	end

	function	Java_callFor_forIntFunc (m, n, i)
c			Java-prefix
c			     class name
c				    delimiter
c				     method

c	i is passed by value, FORTRAN expects it by reference, therefore the
c	passed data is %loc
	integer	i

c	m is really the interface pointer JNIenv, not used here
c	n is really the Java object jobject, not used here
	integer	m, n

	type	*, 'hello FORTRAN'
	type	*, 'forIntFunc: ', %loc(i)
	Java_callFor_forIntFunc= %loc(i)*%loc(i)
	return
	end
-+-
$ java "callFor
hello FORTRAN
forIntProc:                   4711
hello FORTRAN
forIntFunc:                      7
FORTRAN returns: 49
$
-----		java_g
#
callFor :	callFor.class java$calledFor_g_shr.exe
	@ write sys$output "$ java_g:==$sys$system:java$java_g_debug
	@ write sys$output "$ java_g ""callFor

callFor.class :	callFor.java
	- javac "callFor.java

java$calledFor_g_shr.exe : calledFor.obj calledFor.opt 
	link/debug/share/exec=$@ $+/opt
	def/nolog/job java$calledFor_g_shr sys$disk:[]java$calledFor_g_shr

calledFor.obj :	calledFor.for
	fort $</name=as_is/debug/noopt

calledFor.opt :
	open/write opt $@
	write opt "case_sensitive=YES
	write opt "SYMBOL_VECTOR=(Java_callFor_forIntProc=PROCEDURE)
	write opt "SYMBOL_VECTOR=(Java_callFor_forIntFunc=PROCEDURE)
	write opt "case_sensitive=NO
	write opt "GSMATCH=LEQUAL,1,1
	write opt "SYS$SHARE:JAVA$JAVA_G_SHR/SHARE
	close opt

clean :
	purge
	del *.obj;
	del *.opt;
	
clobber :	clean
	del java$calledFor_g_shr.exe;
	del callFor.class;
	deassign/job java$calledFor_g_shr
	del/symb/gl java_g
-+-
$ java_g "callFor

         OpenVMS Alpha DEBUG Version V7.1-03R

%DEBUG-I-INITIAL, Language: C, Module: MAIN_JACKET
%DEBUG-I-NOTATMAIN, Type GO to reach MAIN program
predefined trace on activation at MAIN_JACKET\__main in %PROCESS_NUMBER 1

DBG_1> g
%DEBUG-I-DYNIMGSET, setting image JAVA$JAVA_G_DEBUG
break at routine MAIN_JACKET\main in %PROCESS_NUMBER 1
%DEBUG-W-UNAOPNSRC, unable to open source file _LAMBIK$DKB100:[JAVASRC.079BE020$
BFS]0732C235$BFS.;1
-RMS-F-DEV, error in device name or inappropriate device type for operation
  5703: Source line not available
DBG_1> set image java$java_g_shr
DBG_1> set break sysDynamicLink do (ex /asciz @r16)
DBG_1> g
%DEBUG-I-DYNIMGSET, setting image JAVA$JAVA_G_SHR
%DEBUG-I-DYNMODSET, setting module LINKER_MD
break at routine sysDynamicLink in %PROCESS_NUMBER 1
%DEBUG-W-UNAOPNSRC, unable to open source file _LAMBIK$DKB100:[JAVASRC.078EC0F2$
BFS]071EA933$BFS.;1
-RMS-F-DEV, error in device name or inappropriate device type for operation
 15798: Source line not available
2063001216:     "Java_java_lang_System_currentTimeMillis_stub"
DBG_1> g
...
DBG_1> g
break at routine sysDynamicLink in %PROCESS_NUMBER 1
 15798: Source line not available
2063003552:     "Java_callFor_forIntProc_stub"
DBG_1> g
break at routine sysDynamicLink in %PROCESS_NUMBER 1
 15798: Source line not available
2063002816:     "Java_callFor_forIntProc"
DBG_1> sh image
 image name                      set    base address           end address
...
 JAVA$CALLEDFOR_G_SHR            no     000000000113E000       000000000115E1FF
...
DBG_1> set image JAVA$CALLEDFOR_G_SHR
DBG_1> set break Java_callFor_forIntProc
DBG_1> g
break at routine Java_callFor_forIntProc in %PROCESS_NUMBER 1
    15:         type    *, 'hello FORTRAN'
DBG_1>