From 06e0c8a769af2d1e0fb8459f44910979c7ff1955 Mon Sep 17 00:00:00 2001 From: perry.werneck@gmail.com Date: Sat, 23 Feb 2013 14:56:35 +0000 Subject: [PATCH] Exportando mais funcoes para uso em VB --- pw3270.cbp | 3 +++ src/include/pw3270/hllapi.h | 22 +++++++++++++++++++--- src/plugins/remotectl/Makefile.in | 6 +++--- src/plugins/remotectl/calls.c | 252 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ src/plugins/remotectl/hllapi.c | 1 - src/plugins/remotectl/testprogram.c | 26 +++++++++++++++++++++++++- 6 files changed, 302 insertions(+), 8 deletions(-) create mode 100644 src/plugins/remotectl/calls.c diff --git a/pw3270.cbp b/pw3270.cbp index e07b3aa..b3dc6bd 100644 --- a/pw3270.cbp +++ b/pw3270.cbp @@ -244,6 +244,9 @@ + + diff --git a/src/include/pw3270/hllapi.h b/src/include/pw3270/hllapi.h index efbedbe..c05c0c6 100644 --- a/src/include/pw3270/hllapi.h +++ b/src/include/pw3270/hllapi.h @@ -67,12 +67,28 @@ extern "C" { unsigned short rc; /**< Short argument/return code */ unsigned int value; /**< Requested value */ char string[1]; /**< String argument */ - } HLLAPI_DATA; + } HLLAPI_DATA; + #pragma pack() #ifdef _WIN32 - // http://www.mingw.org/wiki/Visual_Basic_DLL - __declspec (dllexport) int __stdcall hllapi(const LPWORD func, LPSTR str, LPWORD length, LPWORD rc); + // http://www.mingw.org/wiki/Visual_Basic_DLL + __declspec (dllexport) int __stdcall hllapi(const LPWORD func, LPSTR str, LPWORD length, LPWORD rc); + + __declspec (dllexport) int __stdcall hllapi_init(LPSTR mode); + __declspec (dllexport) int __stdcall hllapi_deinit(void); + + __declspec (dllexport) int __stdcall hllapi_get_revision(LPDWORD rc); + __declspec (dllexport) int __stdcall hllapi_connect(LPSTR uri); + __declspec (dllexport) int __stdcall hllapi_disconnect(LPWORD rc); + __declspec (dllexport) int __stdcall hllapi_get_message_id(LPWORD rc); + __declspec (dllexport) int __stdcall hllapi_get_screen_at(WORD row, WORD col, LPSTR buffer); + __declspec (dllexport) int __stdcall hllapi_enter(LPWORD rc); + __declspec (dllexport) int __stdcall hllapi_set_text_at(LPWORD rc, WORD row, WORD col, LPSTR text); + __declspec (dllexport) int __stdcall hllapi_cmp_text_at(LPWORD rc, WORD row, WORD col, LPSTR text); + __declspec (dllexport) int __stdcall hllapi_wait_for_ready(LPWORD rc, WORD seconds); + __declspec (dllexport) int __stdcall hllapi_wait(LPWORD rc, WORD seconds); + #else LIB3270_EXPORT int hllapi(const unsigned long *func, char *str, unsigned short *length, unsigned short *rc); #endif // _WIN32 diff --git a/src/plugins/remotectl/Makefile.in b/src/plugins/remotectl/Makefile.in index 7a566ef..731c9fe 100644 --- a/src/plugins/remotectl/Makefile.in +++ b/src/plugins/remotectl/Makefile.in @@ -31,7 +31,7 @@ MODULE_NAME=remotectl DEPENDS=*.h ../../include/*.h ../../include/lib3270/*.h Makefile PLUGIN_SRC=remotectl.c pipesource.c -HLLAPI_SRC=hllapi.c +HLLAPI_SRC=hllapi.c calls.c #---[ Paths ]------------------------------------------------------------------ @@ -58,8 +58,8 @@ XGETTEXT=@XGETTEXT@ DLL_FLAGS=@DLL_FLAGS@ DEBUG_CFLAGS=-DDEBUG=1 -g -Wall -PW3270_LIBS ?= `pkg-config --libs pw3270 lib3270` -PW3270_CFLAGS ?= `pkg-config --cflags pw3270 lib3270` +PW3270_LIBS ?= `pkg-config --libs lib3270` +PW3270_CFLAGS ?= `pkg-config --cflags lib3270` GTK_CFLAGS ?= @GTK_CFLAGS@ @GTKMAC_CFLAGS@ GTK_LIBS ?= @GTK_LIBS@ @GTKMAC_LIBS@ diff --git a/src/plugins/remotectl/calls.c b/src/plugins/remotectl/calls.c new file mode 100644 index 0000000..d1aca5d --- /dev/null +++ b/src/plugins/remotectl/calls.c @@ -0,0 +1,252 @@ +/* + * "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 calls.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) + * + */ + + #include + #include + #include + #include + #include + #include + #include + #include + +/*--[ Globals ]--------------------------------------------------------------------------------------*/ + + HMODULE hModule = NULL; + H3270 * hSession = NULL; + + static H3270 * (*session_new)(const char *model) = NULL; + static void (*session_free)(H3270 *h) = NULL; + static const char * (*get_revision)(void) = NULL; + static int (*host_connect)(H3270 *h,const char *n, int wait) = NULL; + static int (*wait_for_ready)(H3270 *h, int seconds) = NULL; + static void (*host_disconnect)(H3270 *h) = NULL; + static int (*script_sleep)(H3270 *h, int seconds) = NULL; + static LIB3270_MESSAGE (*get_message)(H3270 *h) = NULL; + static char * (*get_text)(H3270 *h, int row, int col, int len) = NULL; + static void * (*release_memory)(void *p) = NULL; + static int (*action_enter)(H3270 *h) = NULL; + static int (*set_text_at)(H3270 *h, int row, int col, const unsigned char *str) = NULL; + static int (*cmp_text_at)(H3270 *h, int row, int col, const char *text) = NULL; + + static const struct _entry_point + { + void **ptr; + const char * name; + } entry_point[] = + { + { (void **) &session_new, "lib3270_session_new" }, + { (void **) &session_free, "lib3270_session_free" }, + { (void **) &get_revision, "lib3270_get_revision" }, + { (void **) &host_connect, "lib3270_connect" }, + { (void **) &host_disconnect, "lib3270_disconnect" }, + { (void **) &wait_for_ready, "lib3270_wait_for_ready" }, + { (void **) &script_sleep, "lib3270_wait" }, + { (void **) &get_message, "lib3270_get_program_message" }, + { (void **) &get_text, "lib3270_get_text_at" }, + { (void **) &release_memory, "lib3270_free" }, + { (void **) &action_enter, "lib3270_enter" }, + { (void **) &set_text_at, "lib3270_set_string_at" }, + { (void **) &cmp_text_at, "lib3270_cmp_text_at" }, + + { NULL, NULL } + }; + + +/*--[ Implement ]------------------------------------------------------------------------------------*/ + + __declspec (dllexport) int __stdcall hllapi_init(LPSTR mode) + { + if(!mode) + return EINVAL; + + if(hModule) + return EBUSY; + + if(!*mode) + { + // Direct mode, load lib3270.dll, get pointers to the calls + int f; + + hModule = LoadLibrary("lib3270.dll"); + if(hModule == NULL) + return GetLastError(); + + // Get library entry pointers + for(f=0;entry_point[f].name;f++) + { + void *ptr = (void *) GetProcAddress(hModule,entry_point[f].name); + if(!ptr) + { + fprintf(stderr,"Can´t load \"%s\"\n",entry_point[f].name); + hllapi_deinit(); + return ENOENT; + } + *entry_point[f].ptr = ptr; + } + + // Get session handle + hSession = session_new(""); + + return 0; + } + + // Set entry pointers to pipe based calls + + + return -1; + } + + __declspec (dllexport) int __stdcall hllapi_deinit(void) + { + int f; + + // Release session + if(hSession && session_free) + session_free(hSession); + + for(f=0;entry_point[f].name;f++) + *entry_point[f].ptr = NULL; + + + if(hModule != NULL) + { + FreeLibrary(hModule); + hModule = NULL; + } + + return 0; + } + + __declspec (dllexport) int __stdcall hllapi_get_revision(LPDWORD rc) + { + if(!get_revision) + return EINVAL; + + *rc = (DWORD) atoi(get_revision()); + + return 0; + } + + __declspec (dllexport) int __stdcall hllapi_connect(LPSTR uri) + { + if(!(host_connect && hSession && uri)) + return EINVAL; + + return host_connect(hSession,uri,0); + } + + __declspec (dllexport) int __stdcall hllapi_disconnect(LPWORD rc) + { + if(!(host_disconnect && hSession)) + return EINVAL; + + host_disconnect(hSession); + + return 0; + } + + __declspec (dllexport) int __stdcall hllapi_wait_for_ready(LPWORD rc, WORD seconds) + { + if(!(wait_for_ready && hSession)) + return EINVAL; + + *rc = (WORD) wait_for_ready(hSession,(int) seconds); + + return 0; + } + + __declspec (dllexport) int __stdcall hllapi_wait(LPWORD rc, WORD seconds) + { + if(!(script_sleep && hSession)) + return EINVAL; + + *rc = (WORD) script_sleep(hSession,(int) seconds); + + return 0; + + } + + __declspec (dllexport) int __stdcall hllapi_get_message_id(LPWORD rc) + { + if(!(get_message && hSession)) + return EINVAL; + *rc = get_message(hSession); + return 0; + } + + __declspec (dllexport) int __stdcall hllapi_get_screen_at(WORD row, WORD col, LPSTR buffer) + { + char * text; + int len = strlen(buffer); + + if(!(get_text && release_memory && hSession)) + return EINVAL; + + text = get_text(hSession,row,col,len); + + if(!text) + return EINVAL; + + strncpy(buffer,text,len); + release_memory(text); + + return 0; + } + + __declspec (dllexport) int __stdcall hllapi_enter(LPWORD rc) + { + if(!(action_enter && hSession)) + return EINVAL; + + *rc = (WORD) action_enter(hSession); + + return 0; + } + + __declspec (dllexport) int __stdcall hllapi_set_text_at(LPWORD rc, WORD row, WORD col, LPSTR text) + { + if(!(set_text_at && hSession)) + return EINVAL; + + *rc = (WORD) set_text_at(hSession,row,col,(const unsigned char *) text); + + return 0; + } + + __declspec (dllexport) int __stdcall hllapi_cmp_text_at(LPWORD rc, WORD row, WORD col, LPSTR text) + { + if(!(cmp_text_at && hSession)) + return EINVAL; + + *rc = (WORD) cmp_text_at(hSession,row,col,(const char *) text); + + return 0; + } + diff --git a/src/plugins/remotectl/hllapi.c b/src/plugins/remotectl/hllapi.c index 1d22a5b..96ba93e 100644 --- a/src/plugins/remotectl/hllapi.c +++ b/src/plugins/remotectl/hllapi.c @@ -237,4 +237,3 @@ return 0; } - diff --git a/src/plugins/remotectl/testprogram.c b/src/plugins/remotectl/testprogram.c index aaa17e2..e607ee3 100644 --- a/src/plugins/remotectl/testprogram.c +++ b/src/plugins/remotectl/testprogram.c @@ -35,7 +35,30 @@ #define BUFFER_LENGTH 8000 /*---[ Implement ]--------------------------------------------------------------------------------*/ - + + int main(int numpar, char *param[]) + { + DWORD revision; + int rc; + + rc = hllapi_init(""); + if(rc) + { + printf("Init exits with rc=%d\n",rc); + return rc; + } + + if(!hllapi_get_revision(&revision)) + printf("Library revision is %d\n",(int) revision); + + + printf("Deinit exits with rc=%d\n",rc); + rc = hllapi_deinit(); + + return rc; + } + +/* int main(int numpar, char *param[]) { char buffer[BUFFER_LENGTH]; @@ -99,3 +122,4 @@ return 0; } +*/ -- libgit2 0.21.2