/* * "Software pw3270, desenvolvido com base nos códigos fontes do WC3270 e X3270 * (Paul Mattes Paul.Mattes@usa.net), de emulação de terminal 3270 para acesso a * aplicativos mainframe. Registro no INPI sob o nome G3270. * * Copyright (C) <2008> * * Este programa é software livre. Você pode redistribuí-lo e/ou modificá-lo sob * os termos da GPL v.2 - Licença Pública Geral GNU, conforme publicado pela * Free Software Foundation. * * Este programa é distribuído na expectativa de ser útil, mas SEM QUALQUER * GARANTIA; sem mesmo a garantia implícita de COMERCIALIZAÇÃO ou de ADEQUAÇÃO * A QUALQUER PROPÓSITO EM PARTICULAR. Consulte a Licença Pública Geral GNU para * obter mais detalhes. * * Você deve ter recebido uma cópia da Licença Pública Geral GNU junto com este * programa; se não, escreva para a Free Software Foundation, Inc., 59 Temple * Place, Suite 330, Boston, MA, 02111-1307, USA * * Este programa está nomeado como rxapimain.c e possui - linhas de código. * * Contatos: * * perry.werneck@gmail.com (Alexandre Perry de Souza Werneck) * erico.mendonca@gmail.com (Erico Mascarenhas Mendonça) * */ /* * * Reference: * * http://www.oorexx.org/docs/rexxpg/x2950.htm * */ #include "rx3270.h" #include #include #ifdef HAVE_SYSLOG #include #endif // HAVE_SYSLOG #include #if defined WIN32 BOOL WINAPI DllMain(HANDLE hinst, DWORD dwcallpurpose, LPVOID lpvResvd); static int librx3270_loaded(void); static int librx3270_unloaded(void); #else int librx3270_loaded(void) __attribute__((constructor)); int librx3270_unloaded(void) __attribute__((destructor)); #endif /*--[ Globals ]--------------------------------------------------------------------------------------*/ // LIB3270_EXPORT RexxRoutineEntry rx3270_functions[]; // LIB3270_EXPORT RexxPackageEntry rx3270_package_entry; /*--[ Implement ]------------------------------------------------------------------------------------*/ #if defined WIN32 BOOL WINAPI DllMain(HANDLE hinst, DWORD dwcallpurpose, LPVOID lpvResvd) { // Trace("%s - Library %s",__FUNCTION__,(dwcallpurpose == DLL_PROCESS_ATTACH) ? "Loaded" : "Unloaded"); switch(dwcallpurpose) { case DLL_PROCESS_ATTACH: librx3270_loaded(); break; case DLL_PROCESS_DETACH: librx3270_unloaded(); break; } return TRUE; } #endif int librx3270_loaded(void) { trace("%s",__FUNCTION__); return 0; } int librx3270_unloaded(void) { trace("%s",__FUNCTION__); return 0; } // now build the actual entry list RexxRoutineEntry rx3270_functions[] = { REXX_TYPED_ROUTINE(rx3270version, rx3270version), REXX_TYPED_ROUTINE(rx3270QueryCState, rx3270QueryCState), REXX_TYPED_ROUTINE(rx3270Disconnect, rx3270Disconnect), REXX_TYPED_ROUTINE(rx3270Connect, rx3270Connect), REXX_TYPED_ROUTINE(rx3270isConnected, rx3270isConnected), REXX_TYPED_ROUTINE(rx3270WaitForEvents, rx3270WaitForEvents), REXX_TYPED_ROUTINE(rx3270Sleep, rx3270Sleep), REXX_TYPED_ROUTINE(rx3270SendENTERKey, rx3270SendENTERKey), REXX_TYPED_ROUTINE(rx3270SendPFKey, rx3270SendPFKey), REXX_TYPED_ROUTINE(rx3270SendPAKey, rx3270SendPAKey), REXX_TYPED_ROUTINE(rx3270WaitForTerminalReady, rx3270WaitForTerminalReady), REXX_TYPED_ROUTINE(rx3270WaitForStringAt, rx3270WaitForStringAt), REXX_TYPED_ROUTINE(rx3270GetStringAt, rx3270GetStringAt), REXX_TYPED_ROUTINE(rx3270IsTerminalReady, rx3270IsTerminalReady), REXX_TYPED_ROUTINE(rx3270queryStringAt, rx3270queryStringAt), REXX_TYPED_ROUTINE(rx3270SetStringAt, rx3270SetStringAt), REXX_TYPED_ROUTINE(rx3270CloseApplication, rx3270CloseApplication), REXX_TYPED_ROUTINE(ebc2asc, ebc2asc), REXX_TYPED_ROUTINE(asc2ebc, asc2ebc), // rx3270Popup REXX_LAST_METHOD() }; RexxMethodEntry rx3270_methods[] = { REXX_METHOD(rx3270_method_version, rx3270_method_version ), REXX_METHOD(rx3270_method_revision, rx3270_method_revision ), REXX_METHOD(rx3270_method_init, rx3270_method_init ), REXX_METHOD(rx3270_method_uninit, rx3270_method_uninit ), REXX_METHOD(rx3270_method_connect, rx3270_method_connect ), REXX_METHOD(rx3270_method_disconnect, rx3270_method_disconnect ), REXX_METHOD(rx3270_method_sleep, rx3270_method_sleep ), REXX_METHOD(rx3270_method_is_connected, rx3270_method_is_connected ), REXX_METHOD(rx3270_method_is_ready, rx3270_method_is_ready ), REXX_METHOD(rx3270_method_wait_for_ready, rx3270_method_wait_for_ready ), REXX_METHOD(rx3270_method_set_cursor, rx3270_method_set_cursor ), REXX_METHOD(rx3270_method_set_cursor, rx3270_method_get_cursor_addr ), REXX_METHOD(rx3270_method_set_cursor, rx3270_method_set_cursor_addr ), REXX_METHOD(rx3270_method_enter, rx3270_method_enter ), REXX_METHOD(rx3270_method_pfkey, rx3270_method_pfkey ), REXX_METHOD(rx3270_method_pakey, rx3270_method_pakey ), REXX_METHOD(rx3270_method_get_text, rx3270_method_get_text ), REXX_METHOD(rx3270_method_get_text_at, rx3270_method_get_text_at ), REXX_METHOD(rx3270_method_set_text_at, rx3270_method_set_text_at ), REXX_METHOD(rx3270_method_cmp_text_at, rx3270_method_cmp_text_at ), REXX_METHOD(rx3270_method_event_trace, rx3270_method_event_trace ), REXX_METHOD(rx3270_method_screen_trace, rx3270_method_screen_trace ), REXX_METHOD(rx3270_method_ds_trace, rx3270_method_ds_trace ), REXX_METHOD(rx3270_method_set_option, rx3270_method_set_option ), REXX_METHOD(rx3270_method_test, rx3270_method_test ), REXX_METHOD(rx3270_method_wait_for_text_at, rx3270_method_wait_for_text_at ), REXX_METHOD(rx3270_method_get_field_len, rx3270_method_get_field_len ), REXX_METHOD(rx3270_method_get_field_start, rx3270_method_get_field_start ), REXX_METHOD(rx3270_method_get_next_unprotected, rx3270_method_get_next_unprotected ), REXX_METHOD(rx3270_method_get_selection, rx3270_method_get_selection ), REXX_METHOD(rx3270_method_set_selection, rx3270_method_set_selection ), REXX_METHOD(rx3270_method_get_clipboard, rx3270_method_get_clipboard ), REXX_METHOD(rx3270_method_set_clipboard, rx3270_method_set_clipboard ), REXX_METHOD(rx3270_method_popup, rx3270_method_popup ), REXX_METHOD(rx3270_method_get_filename, rx3270_method_get_filename ), REXX_METHOD(rx3270_method_get_cursor_addr, rx3270_method_get_cursor_addr ), REXX_METHOD(rx3270_method_set_cursor_addr, rx3270_method_set_cursor_addr ), REXX_METHOD(rx3270_method_input_text, rx3270_method_input_text ), REXX_METHOD(rx3270_method_get_display_charset, rx3270_method_get_display_charset ), REXX_METHOD(rx3270_method_get_host_charset, rx3270_method_get_host_charset ), REXX_METHOD(rx3270_method_set_host_charset, rx3270_method_set_host_charset ), REXX_LAST_METHOD() }; RexxPackageEntry rx3270_package_entry = { STANDARD_PACKAGE_HEADER REXX_CURRENT_INTERPRETER_VERSION, // anything after 4.0.0 will work "rx3270", // name of the package PACKAGE_VERSION, // package information NULL, // no load/unload functions NULL, rx3270_functions, // the exported functions rx3270_methods // no methods in rx3270. }; // package loading stub. /* OOREXX_GET_PACKAGE(rx3270); */ BEGIN_EXTERN_C() LIB3270_EXPORT void rx3270_set_package_option(RexxOption *option) { static const RexxLibraryPackage package = { "rx3270", &rx3270_package_entry }; option->optionName = REGISTER_LIBRARY; option->option = (void *) &package; } LIB3270_EXPORT RexxPackageEntry * RexxEntry RexxGetPackage(void) { return &rx3270_package_entry; } END_EXTERN_C()