% DO NOT EDIT THIS FILE - it is machine generated % Sat Apr 26 15:15:59 BST 2014 % Java Version: 1.6.0_25-b06 % OS: Windows 7 % JifGen:MCP 45.9 (Cycle 999, Patch 999) % Build: 4039 IC: 39 % ---------------- START EXCEL_ % Callers must include the JNI defintions prior to including this file. % INCLUDE JNI="*DIR/JRE6/JDK/INCLUDE/JNILIB/ALGOL ON DISK" % These items must be declared by the caller. % REAL ARRAY envEtc[0:JNI_MIN_ENV_ARRAY_SIZE+JNI_MIN_JVM_ARRAY_SIZE ]; % ARRAY JNIEnv[0] = envEtc; % ARRAY JavaVM[-JNI_MIN_ENV_ARRAY_SIZE] = envEtc; % com.mcpjava.mcp.spreadsheet.ExcelReaderLibrary DOUBLE CLASS_ExcelReaderLibrary_REF; EBCDIC VALUE ARRAY EXCEL__StringPool ( 80"com/mcpjava/mcp/spreadsheet/ExcelReaderLibrary" 48"00" 80"openWorkSheet" 48"00" 80"(Ljava/lang/String;I)I" 48"00" 80"getRow" 48"00" 80"(I)[Ljava/lang/String;" 48"00" 80"nextRow" 48"00" 80"()[Ljava/lang/String;" 48"00" 80"" 48"00" 80"()V" 48"00" ); % Initialize library: EXCEL_ PROCEDURE INITIALIZE_EXCEL_; BEGIN % com/mcpjava/mcp/spreadsheet/ExcelReaderLibrary CLASS_ExcelReaderLibrary_REF := JNI_FIND_CLASS_E( JNIEnv, EXCEL__StringPool, 0 ); END INITIALIZE_EXCEL_; % ALGOL interfaces for % class:com.mcpjava.mcp.spreadsheet.ExcelReaderLibrary % java source code: ExcelReaderLibrary.java % % Class: com_mcpjava_mcp_spreadsheet_ExcelReaderLibrary % Method: openWorkSheet % Signature: (Ljava/lang/String;I)I % ID: 1 % INTEGER PROCEDURE EXCEL__EXCEL_READER_LIBRARY_OPEN_WORK_SHEET (ARG0, ARG0_OFFSET, ARG0_SIZE, ARG1); VALUE ARG0_OFFSET, ARG0_SIZE, ARG1 ; EBCDIC ARRAY ARG0[0]; % Input INTEGER ARG0_OFFSET; INTEGER ARG0_SIZE; % Input INTEGER ARG1; % Input BEGIN LABEL xit; OWN DOUBLE methodID; LABEL errexit; REAL hParams; IF JNI_IsNull(methodID) THEN BEGIN methodID := JNI_GET_STATIC_METHOD_ID_E( JNIEnv, CLASS_ExcelReaderLibrary_REF, EXCEL__StringPool, 47, % openWorkSheet EXCEL__StringPool, 61 ); % (Ljava/lang/String;I)I IF JNI_Check_Exception( JNIenv ) THEN GO TO xit; END IsNull; hParams := JNI_CREATE_PARAMETER_LIST( JNIEnv, methodID, EXCEL__StringPool, 61, 100 ); % (Ljava/lang/String;I)I IF hParams EQL 0 THEN GO TO xit; JNI_SET_STRING_EBCDIC_PARAMS_LEN(JNIEnv, hParams, ARG0, ARG0_OFFSET, ARG0_SIZE); IF JNI_Check_Exception( JNIenv ) THEN GO TO errexit; JNI_SET_INT_PARAMS(JNIEnv, hParams, ARG1); IF JNI_Check_Exception( JNIenv ) THEN GO TO errexit; EXCEL__EXCEL_READER_LIBRARY_OPEN_WORK_SHEET := JNI_CALL_STATIC_INT_METHOD_P( JNIEnv, CLASS_ExcelReaderLibrary_REF, methodID, hParams); GO TO xit; errexit: IF hParams NEQ 0 THEN JNI_CANCEL_PARAMETER_LIST(JNIEnv, hParams); xit: END EXCEL__EXCEL_READER_LIBRARY_OPEN_WORK_SHEET; % % Class: com_mcpjava_mcp_spreadsheet_ExcelReaderLibrary % Method: getRow % Signature: (I)[Ljava/lang/String; % ID: 2 % DOUBLE PROCEDURE EXCEL__EXCEL_READER_LIBRARY_GET_ROW (ARG0); VALUE ARG0 ; INTEGER ARG0; % Input BEGIN LABEL xit; OWN DOUBLE methodID; LABEL errexit; REAL hParams; IF JNI_IsNull(methodID) THEN BEGIN methodID := JNI_GET_STATIC_METHOD_ID_E( JNIEnv, CLASS_ExcelReaderLibrary_REF, EXCEL__StringPool, 84, % getRow EXCEL__StringPool, 91 ); % (I)[Ljava/lang/String; IF JNI_Check_Exception( JNIenv ) THEN GO TO xit; END IsNull; hParams := JNI_CREATE_PARAMETER_LIST( JNIEnv, methodID, EXCEL__StringPool, 91, 0 ); % (I)[Ljava/lang/String; IF hParams EQL 0 THEN GO TO xit; JNI_SET_INT_PARAMS(JNIEnv, hParams, ARG0); IF JNI_Check_Exception( JNIenv ) THEN GO TO errexit; EXCEL__EXCEL_READER_LIBRARY_GET_ROW := JNI_CALL_STATIC_OBJECT_METHOD_P( JNIEnv, CLASS_ExcelReaderLibrary_REF, methodID, hParams); GO TO xit; errexit: IF hParams NEQ 0 THEN JNI_CANCEL_PARAMETER_LIST(JNIEnv, hParams); xit: END EXCEL__EXCEL_READER_LIBRARY_GET_ROW; % % Class: com_mcpjava_mcp_spreadsheet_ExcelReaderLibrary % Method: nextRow % Signature: ()[Ljava/lang/String; % ID: 3 % DOUBLE PROCEDURE EXCEL__EXCEL_READER_LIBRARY_NEXT_ROW; BEGIN LABEL xit; OWN DOUBLE methodID; IF JNI_IsNull(methodID) THEN BEGIN methodID := JNI_GET_STATIC_METHOD_ID_E( JNIEnv, CLASS_ExcelReaderLibrary_REF, EXCEL__StringPool, 114, % nextRow EXCEL__StringPool, 122 ); % ()[Ljava/lang/String; IF JNI_Check_Exception( JNIenv ) THEN GO TO xit; END IsNull; EXCEL__EXCEL_READER_LIBRARY_NEXT_ROW := JNI_CALL_STATIC_OBJECT_METHOD_P( JNIEnv, CLASS_ExcelReaderLibrary_REF, methodID, 0); xit: END EXCEL__EXCEL_READER_LIBRARY_NEXT_ROW; % % Class: com_mcpjava_mcp_spreadsheet_ExcelReaderLibrary % Constructor: ExcelReaderLibrary % Signature: ()V % ID: 4 % DOUBLE PROCEDURE EXCEL__EXCEL_READER_LIBRARY_EXCEL_READER_LIBRARY; BEGIN LABEL xit; OWN DOUBLE methodID; IF JNI_IsNull(methodID) THEN BEGIN methodID := JNI_GET_METHOD_ID_E( JNIEnv, CLASS_ExcelReaderLibrary_REF, EXCEL__StringPool, 144, % EXCEL__StringPool, 151 ); % ()V IF JNI_Check_Exception( JNIenv ) THEN GO TO xit; END IsNull; EXCEL__EXCEL_READER_LIBRARY_EXCEL_READER_LIBRARY := JNI_NEW_OBJECT_P( JNIEnv, CLASS_ExcelReaderLibrary_REF, methodID, 0); xit: END EXCEL__EXCEL_READER_LIBRARY_EXCEL_READER_LIBRARY; % ---------------- END EXCEL_