Commit 0e3d730ada9f89651598638a8e393a3be24c68d8
1 parent
f58e1770
Exists in
master
and in
5 other branches
Melhorando macros para StarBasic/VB
Showing
5 changed files
with
344 additions
and
24 deletions
Show diff stats
pw3270.cbp
| @@ -247,6 +247,7 @@ | @@ -247,6 +247,7 @@ | ||
| 247 | <Unit filename="src/plugins/remotectl/calls.c"> | 247 | <Unit filename="src/plugins/remotectl/calls.c"> |
| 248 | <Option compilerVar="CC" /> | 248 | <Option compilerVar="CC" /> |
| 249 | </Unit> | 249 | </Unit> |
| 250 | + <Unit filename="src/plugins/remotectl/client.h" /> | ||
| 250 | <Unit filename="src/plugins/remotectl/hllapi.c"> | 251 | <Unit filename="src/plugins/remotectl/hllapi.c"> |
| 251 | <Option compilerVar="CC" /> | 252 | <Option compilerVar="CC" /> |
| 252 | </Unit> | 253 | </Unit> |
src/include/pw3270/hllapi.h
| @@ -85,9 +85,10 @@ extern "C" { | @@ -85,9 +85,10 @@ extern "C" { | ||
| 85 | 85 | ||
| 86 | __declspec (dllexport) DWORD __stdcall hllapi_get_revision(void); | 86 | __declspec (dllexport) DWORD __stdcall hllapi_get_revision(void); |
| 87 | 87 | ||
| 88 | - __declspec (dllexport) DWORD __stdcall hllapi_connect(LPSTR uri); | 88 | + __declspec (dllexport) DWORD __stdcall hllapi_connect(LPSTR uri, WORD wait); |
| 89 | __declspec (dllexport) DWORD __stdcall hllapi_disconnect(void); | 89 | __declspec (dllexport) DWORD __stdcall hllapi_disconnect(void); |
| 90 | __declspec (dllexport) DWORD __stdcall hllapi_get_message_id(void); | 90 | __declspec (dllexport) DWORD __stdcall hllapi_get_message_id(void); |
| 91 | + __declspec (dllexport) DWORD __stdcall hllapi_is_connected(void); | ||
| 91 | __declspec (dllexport) DWORD __stdcall hllapi_get_screen_at(WORD row, WORD col, LPSTR buffer); | 92 | __declspec (dllexport) DWORD __stdcall hllapi_get_screen_at(WORD row, WORD col, LPSTR buffer); |
| 92 | __declspec (dllexport) DWORD __stdcall hllapi_enter(void); | 93 | __declspec (dllexport) DWORD __stdcall hllapi_enter(void); |
| 93 | __declspec (dllexport) DWORD __stdcall hllapi_set_text_at(WORD row, WORD col, LPSTR text); | 94 | __declspec (dllexport) DWORD __stdcall hllapi_set_text_at(WORD row, WORD col, LPSTR text); |
src/plugins/remotectl/calls.c
| @@ -36,6 +36,9 @@ | @@ -36,6 +36,9 @@ | ||
| 36 | #include <stdio.h> | 36 | #include <stdio.h> |
| 37 | #include <lib3270/log.h> | 37 | #include <lib3270/log.h> |
| 38 | #include "client.h" | 38 | #include "client.h" |
| 39 | + | ||
| 40 | + #undef trace | ||
| 41 | + #define trace( fmt, ... ) { FILE *out = fopen("c:\\Users\\Perry\\hllapi.log","a"); if(out) { fprintf(out, "%s(%d) " fmt "\n", __FILE__, __LINE__, __VA_ARGS__ ); fclose(out); } } | ||
| 39 | 42 | ||
| 40 | /*--[ Globals ]--------------------------------------------------------------------------------------*/ | 43 | /*--[ Globals ]--------------------------------------------------------------------------------------*/ |
| 41 | 44 | ||
| @@ -46,6 +49,7 @@ | @@ -46,6 +49,7 @@ | ||
| 46 | static void (*session_free)(void *h) = NULL; | 49 | static void (*session_free)(void *h) = NULL; |
| 47 | static const char * (*get_revision)(void) = NULL; | 50 | static const char * (*get_revision)(void) = NULL; |
| 48 | static int (*host_connect)(void *h,const char *n, int wait) = NULL; | 51 | static int (*host_connect)(void *h,const char *n, int wait) = NULL; |
| 52 | + static int (*host_is_connected)(void *h) = NULL; | ||
| 49 | static int (*wait_for_ready)(void *h, int seconds) = NULL; | 53 | static int (*wait_for_ready)(void *h, int seconds) = NULL; |
| 50 | static void (*host_disconnect)(void *h) = NULL; | 54 | static void (*host_disconnect)(void *h) = NULL; |
| 51 | static int (*script_sleep)(void *h, int seconds) = NULL; | 55 | static int (*script_sleep)(void *h, int seconds) = NULL; |
| @@ -70,8 +74,9 @@ | @@ -70,8 +74,9 @@ | ||
| 70 | { (void **) &get_revision, (void *) hllapi_pipe_get_revision, "lib3270_get_revision" }, | 74 | { (void **) &get_revision, (void *) hllapi_pipe_get_revision, "lib3270_get_revision" }, |
| 71 | { (void **) &host_connect, (void *) hllapi_pipe_connect, "lib3270_connect" }, | 75 | { (void **) &host_connect, (void *) hllapi_pipe_connect, "lib3270_connect" }, |
| 72 | { (void **) &host_disconnect, (void *) hllapi_pipe_disconnect, "lib3270_disconnect" }, | 76 | { (void **) &host_disconnect, (void *) hllapi_pipe_disconnect, "lib3270_disconnect" }, |
| 73 | - { (void **) &wait_for_ready, (void *) NULL, "lib3270_wait_for_ready" }, | ||
| 74 | - { (void **) &script_sleep, (void *) NULL, "lib3270_wait" }, | 77 | + { (void **) &host_is_connected, (void *) NULL, "lib3270_in_tn3270e" }, |
| 78 | + { (void **) &wait_for_ready, (void *) NULL, "lib3270_wait_for_ready" }, | ||
| 79 | + { (void **) &script_sleep, (void *) NULL, "lib3270_wait" }, | ||
| 75 | { (void **) &get_message, (void *) hllapi_pipe_get_message, "lib3270_get_program_message" }, | 80 | { (void **) &get_message, (void *) hllapi_pipe_get_message, "lib3270_get_program_message" }, |
| 76 | { (void **) &get_text, (void *) hllapi_pipe_get_text_at, "lib3270_get_text_at" }, | 81 | { (void **) &get_text, (void *) hllapi_pipe_get_text_at, "lib3270_get_text_at" }, |
| 77 | { (void **) &release_memory, (void *) hllapi_pipe_release_memory, "lib3270_free" }, | 82 | { (void **) &release_memory, (void *) hllapi_pipe_release_memory, "lib3270_free" }, |
| @@ -98,9 +103,21 @@ | @@ -98,9 +103,21 @@ | ||
| 98 | 103 | ||
| 99 | trace("%s(%s)",__FUNCTION__,(char *) mode); | 104 | trace("%s(%s)",__FUNCTION__,(char *) mode); |
| 100 | 105 | ||
| 101 | - if(!(mode && *mode)) | 106 | + if(mode && *mode) |
| 107 | + { | ||
| 108 | + // Get pointers to the pipe based calls | ||
| 109 | + int f; | ||
| 110 | + | ||
| 111 | + trace("%s: Loading pipe based calls",__FUNCTION__); | ||
| 112 | + for(f=0;entry_point[f].name;f++) | ||
| 113 | + *entry_point[f].call = entry_point[f].pipe; | ||
| 114 | + | ||
| 115 | + } | ||
| 116 | + else | ||
| 102 | { | 117 | { |
| 103 | // Direct mode, load lib3270.dll, get pointers to the calls | 118 | // Direct mode, load lib3270.dll, get pointers to the calls |
| 119 | + static const char *dllname = "lib3270.dll." PACKAGE_VERSION; | ||
| 120 | + | ||
| 104 | int f; | 121 | int f; |
| 105 | HKEY hKey = 0; | 122 | HKEY hKey = 0; |
| 106 | HMODULE kernel; | 123 | HMODULE kernel; |
| @@ -109,11 +126,13 @@ | @@ -109,11 +126,13 @@ | ||
| 109 | HANDLE (*AddDllDirectory)(PCWSTR NewDirectory); | 126 | HANDLE (*AddDllDirectory)(PCWSTR NewDirectory); |
| 110 | BOOL (*RemoveDllDirectory)(HANDLE Cookie); | 127 | BOOL (*RemoveDllDirectory)(HANDLE Cookie); |
| 111 | UINT errorMode; | 128 | UINT errorMode; |
| 129 | + char datadir[4096]; | ||
| 112 | 130 | ||
| 113 | trace("hModule=%p",hModule); | 131 | trace("hModule=%p",hModule); |
| 114 | if(hModule) | 132 | if(hModule) |
| 115 | return EBUSY; | 133 | return EBUSY; |
| 116 | 134 | ||
| 135 | + *datadir = 0; | ||
| 117 | kernel = LoadLibrary("kernel32.dll"); | 136 | kernel = LoadLibrary("kernel32.dll"); |
| 118 | AddDllDirectory = (HANDLE (*)(PCWSTR)) GetProcAddress(kernel,"AddDllDirectory"); | 137 | AddDllDirectory = (HANDLE (*)(PCWSTR)) GetProcAddress(kernel,"AddDllDirectory"); |
| 119 | RemoveDllDirectory = (BOOL (*)(HANDLE)) GetProcAddress(kernel,"RemoveDllDirectory"); | 138 | RemoveDllDirectory = (BOOL (*)(HANDLE)) GetProcAddress(kernel,"RemoveDllDirectory"); |
| @@ -123,27 +142,41 @@ | @@ -123,27 +142,41 @@ | ||
| 123 | 142 | ||
| 124 | if(RegOpenKeyEx(HKEY_LOCAL_MACHINE,"Software\\pw3270",0,KEY_QUERY_VALUE,&hKey) == ERROR_SUCCESS) | 143 | if(RegOpenKeyEx(HKEY_LOCAL_MACHINE,"Software\\pw3270",0,KEY_QUERY_VALUE,&hKey) == ERROR_SUCCESS) |
| 125 | { | 144 | { |
| 126 | - char data[4096]; | ||
| 127 | - unsigned long datalen = sizeof(data); // data field length(in), data returned length(out) | 145 | + unsigned long datalen = sizeof(datadir); // data field length(in), data returned length(out) |
| 128 | unsigned long datatype; // #defined in winnt.h (predefined types 0-11) | 146 | unsigned long datatype; // #defined in winnt.h (predefined types 0-11) |
| 129 | - if(RegQueryValueExA(hKey,"datadir",NULL,&datatype,(LPBYTE) data,&datalen) == ERROR_SUCCESS) | 147 | + if(RegQueryValueExA(hKey,"datadir",NULL,&datatype,(LPBYTE) datadir,&datalen) == ERROR_SUCCESS) |
| 130 | { | 148 | { |
| 131 | // Datadir is set, add it to DLL load path | 149 | // Datadir is set, add it to DLL load path |
| 132 | wchar_t path[4096]; | 150 | wchar_t path[4096]; |
| 133 | - mbstowcs(path, data, 4095); | ||
| 134 | - trace("Datadir=[%s] AddDllDirectory=%p RemoveDllDirectory=%p\n",data,AddDllDirectory,RemoveDllDirectory); | 151 | + mbstowcs(path, datadir, 4095); |
| 152 | + trace("Datadir=[%s] AddDllDirectory=%p RemoveDllDirectory=%p\n",datadir,AddDllDirectory,RemoveDllDirectory); | ||
| 135 | if(AddDllDirectory) | 153 | if(AddDllDirectory) |
| 136 | cookie = AddDllDirectory(path); | 154 | cookie = AddDllDirectory(path); |
| 137 | } | 155 | } |
| 138 | RegCloseKey(hKey); | 156 | RegCloseKey(hKey); |
| 139 | } | 157 | } |
| 140 | 158 | ||
| 141 | - hModule = LoadLibraryEx("lib3270.dll.5.0",NULL,LOAD_LIBRARY_SEARCH_DEFAULT_DIRS); | 159 | +// hModule = LoadLibraryEx("lib3270.dll.5.0",NULL,LOAD_LIBRARY_SEARCH_DEFAULT_DIRS|LOAD_LIBRARY_SEARCH_DLL_LOAD_DIR); |
| 160 | + hModule = LoadLibrary(dllname); | ||
| 142 | rc = GetLastError(); | 161 | rc = GetLastError(); |
| 143 | - trace("hModule=%p rc=%d",hModule,(int) rc); | ||
| 144 | 162 | ||
| 145 | SetErrorMode(errorMode); | 163 | SetErrorMode(errorMode); |
| 146 | 164 | ||
| 165 | + trace("%s hModule=%p rc=%d",dllname,hModule,(int) rc); | ||
| 166 | + | ||
| 167 | + if(rc == ERROR_MOD_NOT_FOUND && *datadir) | ||
| 168 | + { | ||
| 169 | + char buffer[4096]; | ||
| 170 | +#ifdef DEBUG | ||
| 171 | + snprintf(buffer,4096,"%s\\.bin\\Debug\\%s",datadir,dllname); | ||
| 172 | +#else | ||
| 173 | + snprintf(buffer,4096,"%s\\%s",datadir,dllname); | ||
| 174 | +#endif // DEBUG | ||
| 175 | + | ||
| 176 | + hModule = LoadLibrary(buffer); | ||
| 177 | + trace("%s hModule=%p rc=%d",buffer,hModule,(int) rc); | ||
| 178 | + } | ||
| 179 | + | ||
| 147 | if(cookie && RemoveDllDirectory) | 180 | if(cookie && RemoveDllDirectory) |
| 148 | RemoveDllDirectory(cookie); | 181 | RemoveDllDirectory(cookie); |
| 149 | 182 | ||
| @@ -170,16 +203,6 @@ | @@ -170,16 +203,6 @@ | ||
| 170 | } | 203 | } |
| 171 | 204 | ||
| 172 | } | 205 | } |
| 173 | - else | ||
| 174 | - { | ||
| 175 | - // Get pointers to the pipe based calls | ||
| 176 | - int f; | ||
| 177 | - | ||
| 178 | - for(f=0;entry_point[f].name;f++) | ||
| 179 | - *entry_point[f].call = entry_point[f].pipe; | ||
| 180 | - | ||
| 181 | - } | ||
| 182 | - | ||
| 183 | // Get session handle | 206 | // Get session handle |
| 184 | hSession = session_new((const char *) mode); | 207 | hSession = session_new((const char *) mode); |
| 185 | trace("%s ok hSession=%p\n",__FUNCTION__,hSession); | 208 | trace("%s ok hSession=%p\n",__FUNCTION__,hSession); |
| @@ -214,12 +237,20 @@ | @@ -214,12 +237,20 @@ | ||
| 214 | return (DWORD) atoi(get_revision()); | 237 | return (DWORD) atoi(get_revision()); |
| 215 | } | 238 | } |
| 216 | 239 | ||
| 217 | - __declspec (dllexport) DWORD __stdcall hllapi_connect(LPSTR uri) | 240 | + __declspec (dllexport) DWORD __stdcall hllapi_connect(LPSTR uri, WORD wait) |
| 218 | { | 241 | { |
| 219 | if(!(host_connect && hSession && uri)) | 242 | if(!(host_connect && hSession && uri)) |
| 220 | return EINVAL; | 243 | return EINVAL; |
| 221 | 244 | ||
| 222 | - return host_connect(hSession,uri,0); | 245 | + return host_connect(hSession,uri,wait); |
| 246 | + } | ||
| 247 | + | ||
| 248 | + __declspec (dllexport) DWORD __stdcall hllapi_is_connected(void) | ||
| 249 | + { | ||
| 250 | + if(!(host_is_connected && hSession)) | ||
| 251 | + return EINVAL; | ||
| 252 | + | ||
| 253 | + return host_is_connected(hSession); | ||
| 223 | } | 254 | } |
| 224 | 255 | ||
| 225 | __declspec (dllexport) DWORD __stdcall hllapi_disconnect(void) | 256 | __declspec (dllexport) DWORD __stdcall hllapi_disconnect(void) |
src/plugins/remotectl/hllapi.c
| @@ -47,9 +47,54 @@ | @@ -47,9 +47,54 @@ | ||
| 47 | LIB3270_EXPORT int hllapi(const unsigned long *func, char *buffer, unsigned short *length, unsigned short *rc) | 47 | LIB3270_EXPORT int hllapi(const unsigned long *func, char *buffer, unsigned short *length, unsigned short *rc) |
| 48 | #endif // _WIN32 | 48 | #endif // _WIN32 |
| 49 | { | 49 | { |
| 50 | + switch(*func) | ||
| 51 | + { | ||
| 52 | + case HLLAPI_CMD_CONNECTPS: | ||
| 53 | + break; | ||
| 50 | 54 | ||
| 55 | + case HLLAPI_CMD_DISCONNECTPS: | ||
| 56 | + break; | ||
| 51 | 57 | ||
| 52 | - return -1; | 58 | + case HLLAPI_CMD_INPUTSTRING: |
| 59 | + break; | ||
| 60 | + | ||
| 61 | + case HLLAPI_CMD_WAIT: | ||
| 62 | + break; | ||
| 63 | + | ||
| 64 | + case HLLAPI_CMD_COPYPS: | ||
| 65 | + break; | ||
| 66 | + | ||
| 67 | + case HLLAPI_CMD_SEARCHPS: | ||
| 68 | + break; | ||
| 69 | + | ||
| 70 | + case HLLAPI_CMD_QUERYCURSOR: | ||
| 71 | + break; | ||
| 72 | + | ||
| 73 | + case HLLAPI_CMD_COPYPSTOSTR: | ||
| 74 | + break; | ||
| 75 | + | ||
| 76 | + case HLLAPI_CMD_COPYSTRTOPS: | ||
| 77 | + break; | ||
| 78 | + | ||
| 79 | + case HLLAPI_CMD_SETCURSOR: | ||
| 80 | + break; | ||
| 81 | + | ||
| 82 | + case HLLAPI_CMD_SENDFILE: | ||
| 83 | + break; | ||
| 84 | + | ||
| 85 | + case HLLAPI_CMD_RECEIVEFILE: | ||
| 86 | + break; | ||
| 87 | + | ||
| 88 | + case HLLAPI_CMD_GETREVISION: | ||
| 89 | + break; | ||
| 90 | + | ||
| 91 | + default: | ||
| 92 | + *rc = EINVAL; | ||
| 93 | + return EINVAL; | ||
| 94 | + } | ||
| 95 | + | ||
| 96 | + | ||
| 97 | + return 0; | ||
| 53 | } | 98 | } |
| 54 | 99 | ||
| 55 | /* | 100 | /* |
| @@ -0,0 +1,242 @@ | @@ -0,0 +1,242 @@ | ||
| 1 | +/* | ||
| 2 | + * "Software pw3270, desenvolvido com base nos códigos fontes do WC3270 e X3270 | ||
| 3 | + * (Paul Mattes Paul.Mattes@usa.net), de emulação de terminal 3270 para acesso a | ||
| 4 | + * aplicativos mainframe. Registro no INPI sob o nome G3270. | ||
| 5 | + * | ||
| 6 | + * Copyright (C) <2008> <Banco do Brasil S.A.> | ||
| 7 | + * | ||
| 8 | + * Este programa é software livre. Você pode redistribuí-lo e/ou modificá-lo sob | ||
| 9 | + * os termos da GPL v.2 - Licença Pública Geral GNU, conforme publicado pela | ||
| 10 | + * Free Software Foundation. | ||
| 11 | + * | ||
| 12 | + * Este programa é distribuído na expectativa de ser útil, mas SEM QUALQUER | ||
| 13 | + * GARANTIA; sem mesmo a garantia implícita de COMERCIALIZAÇÃO ou de ADEQUAÇÃO | ||
| 14 | + * A QUALQUER PROPÓSITO EM PARTICULAR. Consulte a Licença Pública Geral GNU para | ||
| 15 | + * obter mais detalhes. | ||
| 16 | + * | ||
| 17 | + * Você deve ter recebido uma cópia da Licença Pública Geral GNU junto com este | ||
| 18 | + * programa; se não, escreva para a Free Software Foundation, Inc., 59 Temple | ||
| 19 | + * Place, Suite 330, Boston, MA, 02111-1307, USA | ||
| 20 | + * | ||
| 21 | + * Este programa está nomeado como calls.c e possui - linhas de código. | ||
| 22 | + * | ||
| 23 | + * Contatos: | ||
| 24 | + * | ||
| 25 | + * perry.werneck@gmail.com (Alexandre Perry de Souza Werneck) | ||
| 26 | + * erico.mendonca@gmail.com (Erico Mascarenhas Mendonça) | ||
| 27 | + * | ||
| 28 | + */ | ||
| 29 | + | ||
| 30 | + #include <lib3270.h> | ||
| 31 | + #include <malloc.h> | ||
| 32 | + #include <string.h> | ||
| 33 | + #include <errno.h> | ||
| 34 | + #include <stdio.h> | ||
| 35 | + #include <lib3270/log.h> | ||
| 36 | + | ||
| 37 | + #include "client.h" | ||
| 38 | + #include "packets.h" | ||
| 39 | + | ||
| 40 | +/*--[ Globals ]--------------------------------------------------------------------------------------*/ | ||
| 41 | + | ||
| 42 | +/*--[ Implement ]------------------------------------------------------------------------------------*/ | ||
| 43 | + | ||
| 44 | + void * hllapi_pipe_init(const char *id) | ||
| 45 | + { | ||
| 46 | + HANDLE hPipe = INVALID_HANDLE_VALUE; | ||
| 47 | + static DWORD dwMode = PIPE_READMODE_MESSAGE; | ||
| 48 | + char buffer[4096]; | ||
| 49 | + char * name = strdup(id); | ||
| 50 | + char * ptr; | ||
| 51 | + | ||
| 52 | + trace("%s(%s)",__FUNCTION__,id); | ||
| 53 | + | ||
| 54 | + for(ptr=name;*ptr;ptr++) | ||
| 55 | + { | ||
| 56 | + if(*ptr == ':') | ||
| 57 | + *ptr = '_'; | ||
| 58 | + } | ||
| 59 | + | ||
| 60 | + snprintf(buffer,4095,"\\\\.\\pipe\\%s",name); | ||
| 61 | + | ||
| 62 | + free(name); | ||
| 63 | + | ||
| 64 | + trace("Opening \"%s\"",buffer); | ||
| 65 | + | ||
| 66 | + if(!WaitNamedPipe(buffer,NMPWAIT_USE_DEFAULT_WAIT)) | ||
| 67 | + { | ||
| 68 | + trace("%s: Pipe not found",__FUNCTION__); | ||
| 69 | + errno = ENOENT; | ||
| 70 | + return NULL; | ||
| 71 | + } | ||
| 72 | + | ||
| 73 | + hPipe = CreateFile(buffer,GENERIC_WRITE|GENERIC_READ,0,NULL,OPEN_EXISTING,0,NULL); | ||
| 74 | + | ||
| 75 | + if(hPipe == INVALID_HANDLE_VALUE) | ||
| 76 | + { | ||
| 77 | + errno = GetLastError(); | ||
| 78 | + return NULL; | ||
| 79 | + } | ||
| 80 | + | ||
| 81 | + if(!SetNamedPipeHandleState(hPipe,&dwMode,NULL,NULL)) | ||
| 82 | + { | ||
| 83 | + errno = GetLastError(); | ||
| 84 | + return NULL; | ||
| 85 | + } | ||
| 86 | + | ||
| 87 | + trace("hPipe=%p",(void *) hPipe); | ||
| 88 | + return hPipe; | ||
| 89 | + } | ||
| 90 | + | ||
| 91 | + void hllapi_pipe_deinit(void *h) | ||
| 92 | + { | ||
| 93 | + trace("%s(%p)",__FUNCTION__,h); | ||
| 94 | + | ||
| 95 | + if(!h) | ||
| 96 | + return; | ||
| 97 | + | ||
| 98 | + CloseHandle((HANDLE) h); | ||
| 99 | + } | ||
| 100 | + | ||
| 101 | + const char * hllapi_pipe_get_revision(void) | ||
| 102 | + { | ||
| 103 | + return PACKAGE_REVISION; | ||
| 104 | + } | ||
| 105 | + | ||
| 106 | + int hllapi_pipe_connect(void *h, const char *n, int wait) | ||
| 107 | + { | ||
| 108 | + struct hllapi_packet_connect * pkt; | ||
| 109 | + struct hllapi_packet_result response; | ||
| 110 | + DWORD cbSize; | ||
| 111 | + | ||
| 112 | + if(!n) | ||
| 113 | + n = ""; | ||
| 114 | + | ||
| 115 | + cbSize = sizeof(struct hllapi_packet_connect)+strlen(n); | ||
| 116 | + pkt = malloc(cbSize); | ||
| 117 | + | ||
| 118 | + pkt->packet_id = HLLAPI_PACKET_CONNECT; | ||
| 119 | + pkt->wait = (unsigned char) wait; | ||
| 120 | + strcpy(pkt->hostname,n); | ||
| 121 | + | ||
| 122 | + trace("Sending %s",pkt->hostname); | ||
| 123 | + | ||
| 124 | + if(!TransactNamedPipe((HANDLE) h,(LPVOID) pkt, cbSize, &response, sizeof(response), &cbSize,NULL)) | ||
| 125 | + { | ||
| 126 | + errno = GetLastError(); | ||
| 127 | + response.rc = -1; | ||
| 128 | + } | ||
| 129 | + | ||
| 130 | + free(pkt); | ||
| 131 | + | ||
| 132 | + return response.rc; | ||
| 133 | + } | ||
| 134 | + | ||
| 135 | + void hllapi_pipe_disconnect(void *h) | ||
| 136 | + { | ||
| 137 | + static const struct hllapi_packet_query query = { HLLAPI_PACKET_DISCONNECT }; | ||
| 138 | + struct hllapi_packet_result response; | ||
| 139 | + DWORD cbSize = sizeof(query); | ||
| 140 | + TransactNamedPipe((HANDLE) h,(LPVOID) &query, cbSize, &response, sizeof(response), &cbSize,NULL); | ||
| 141 | + } | ||
| 142 | + | ||
| 143 | + LIB3270_MESSAGE hllapi_pipe_get_message(void *h) | ||
| 144 | + { | ||
| 145 | + static const struct hllapi_packet_query query = { HLLAPI_PACKET_GET_PROGRAM_MESSAGE }; | ||
| 146 | + struct hllapi_packet_result response; | ||
| 147 | + DWORD cbSize = sizeof(query); | ||
| 148 | + TransactNamedPipe((HANDLE) h,(LPVOID) &query, cbSize, &response, sizeof(response), &cbSize,NULL); | ||
| 149 | + return (LIB3270_MESSAGE) response.rc; | ||
| 150 | + } | ||
| 151 | + | ||
| 152 | + char * hllapi_pipe_get_text_at(void *h, int row, int col, int len) | ||
| 153 | + { | ||
| 154 | + struct hllapi_packet_query_at query = { HLLAPI_PACKET_GET_TEXT_AT, }; | ||
| 155 | + struct hllapi_packet_text * response; | ||
| 156 | + DWORD cbSize = sizeof(struct hllapi_packet_text)+len; | ||
| 157 | + char * text = NULL; | ||
| 158 | + | ||
| 159 | + response = malloc(cbSize+2); | ||
| 160 | + memset(response,0,cbSize+2); | ||
| 161 | + | ||
| 162 | + if(!TransactNamedPipe((HANDLE) h,(LPVOID) &query, sizeof(struct hllapi_packet_query_at), &response, cbSize, &cbSize,NULL)) | ||
| 163 | + return NULL; | ||
| 164 | + | ||
| 165 | + if(response->packet_id) | ||
| 166 | + errno = response->packet_id; | ||
| 167 | + else | ||
| 168 | + text = strdup(response->text); | ||
| 169 | + | ||
| 170 | + free(response); | ||
| 171 | + return text; | ||
| 172 | + } | ||
| 173 | + | ||
| 174 | + int hllapi_pipe_enter(void *h) | ||
| 175 | + { | ||
| 176 | + static const struct hllapi_packet_query query = { HLLAPI_PACKET_ENTER }; | ||
| 177 | + struct hllapi_packet_result response; | ||
| 178 | + DWORD cbSize = sizeof(query); | ||
| 179 | + TransactNamedPipe((HANDLE) h,(LPVOID) &query, cbSize, &response, sizeof(response), &cbSize,NULL); | ||
| 180 | + return response.rc; | ||
| 181 | + } | ||
| 182 | + | ||
| 183 | + int hllapi_pipe_set_text_at(void *h, int row, int col, const unsigned char *str) | ||
| 184 | + { | ||
| 185 | + struct hllapi_packet_text_at * query; | ||
| 186 | + struct hllapi_packet_result response; | ||
| 187 | + DWORD cbSize = sizeof(struct hllapi_packet_text_at)+strlen((const char *) str); | ||
| 188 | + | ||
| 189 | + query = malloc(cbSize); | ||
| 190 | + query->packet_id = HLLAPI_PACKET_SET_TEXT_AT; | ||
| 191 | + query->row = row; | ||
| 192 | + query->col = col; | ||
| 193 | + strcpy(query->text,(const char *) str); | ||
| 194 | + | ||
| 195 | + TransactNamedPipe((HANDLE) h,(LPVOID) query, cbSize, &response, sizeof(response), &cbSize,NULL); | ||
| 196 | + | ||
| 197 | + free(query); | ||
| 198 | + | ||
| 199 | + return response.rc; | ||
| 200 | + } | ||
| 201 | + | ||
| 202 | + int hllapi_pipe_cmp_text_at(void *h, int row, int col, const char *text) | ||
| 203 | + { | ||
| 204 | + struct hllapi_packet_text_at * query; | ||
| 205 | + struct hllapi_packet_result response; | ||
| 206 | + DWORD cbSize = sizeof(struct hllapi_packet_text_at)+strlen(text); | ||
| 207 | + | ||
| 208 | + query = malloc(cbSize); | ||
| 209 | + query->packet_id = HLLAPI_PACKET_CMP_TEXT_AT; | ||
| 210 | + query->row = row; | ||
| 211 | + query->col = col; | ||
| 212 | + strcpy(query->text,text); | ||
| 213 | + | ||
| 214 | + TransactNamedPipe((HANDLE) h,(LPVOID) query, cbSize, &response, sizeof(response), &cbSize,NULL); | ||
| 215 | + | ||
| 216 | + free(query); | ||
| 217 | + | ||
| 218 | + return response.rc; | ||
| 219 | + } | ||
| 220 | + | ||
| 221 | + int hllapi_pipe_pfkey(void *h, int key) | ||
| 222 | + { | ||
| 223 | + struct hllapi_packet_keycode query = { HLLAPI_PACKET_PFKEY, key }; | ||
| 224 | + struct hllapi_packet_result response; | ||
| 225 | + DWORD cbSize = sizeof(query); | ||
| 226 | + TransactNamedPipe((HANDLE) h,(LPVOID) &query, cbSize, &response, sizeof(response), &cbSize,NULL); | ||
| 227 | + return response.rc; | ||
| 228 | + } | ||
| 229 | + | ||
| 230 | + int hllapi_pipe_pakey(void *h, int key) | ||
| 231 | + { | ||
| 232 | + struct hllapi_packet_keycode query = { HLLAPI_PACKET_PAKEY, key }; | ||
| 233 | + struct hllapi_packet_result response; | ||
| 234 | + DWORD cbSize = sizeof(query); | ||
| 235 | + TransactNamedPipe((HANDLE) h,(LPVOID) &query, cbSize, &response, sizeof(response), &cbSize,NULL); | ||
| 236 | + return response.rc; | ||
| 237 | + } | ||
| 238 | + | ||
| 239 | + void hllapi_pipe_release_memory(void *p) | ||
| 240 | + { | ||
| 241 | + free(p); | ||
| 242 | + } |