Commit 530bea6248cd5e6a283b1bd832b852cf631056cd
1 parent
4e94d4aa
Exists in
master
and in
1 other branch
Debugging HLLAPI module.
Showing
10 changed files
with
216 additions
and
49 deletions
Show diff stats
hllapi.cbp
| ... | ... | @@ -41,6 +41,7 @@ |
| 41 | 41 | <Unit filename="src/core/keyboard.cc" /> |
| 42 | 42 | <Unit filename="src/core/private.h" /> |
| 43 | 43 | <Unit filename="src/core/set.cc" /> |
| 44 | + <Unit filename="src/core/tools.cc" /> | |
| 44 | 45 | <Unit filename="src/core/windows/resources.rc" /> |
| 45 | 46 | <Unit filename="src/include/config.h" /> |
| 46 | 47 | <Unit filename="src/include/lib3270/hllapi.h" /> | ... | ... |
src/core/actions.cc
src/core/calls.cc
| ... | ... | @@ -223,25 +223,6 @@ |
| 223 | 223 | return HLLAPI_STATUS_SYSTEM_ERROR; |
| 224 | 224 | } |
| 225 | 225 | |
| 226 | - HLLAPI_API_CALL hllapi_get_datadir(LPSTR datadir) { | |
| 227 | - | |
| 228 | - #ifdef _WIN32 | |
| 229 | - HKEY hKey = 0; | |
| 230 | - unsigned long datalen = strlen(datadir); | |
| 231 | - | |
| 232 | - *datadir = 0; | |
| 233 | - | |
| 234 | - if(RegOpenKeyEx(HKEY_LOCAL_MACHINE,"Software\\pw3270",0,KEY_QUERY_VALUE,&hKey) == ERROR_SUCCESS) | |
| 235 | - { | |
| 236 | - unsigned long datatype; // #defined in winnt.h (predefined types 0-11) | |
| 237 | - if(RegQueryValueExA(hKey,"datadir",NULL,&datatype,(LPBYTE) datadir,&datalen) != ERROR_SUCCESS) | |
| 238 | - *datadir = 0; | |
| 239 | - RegCloseKey(hKey); | |
| 240 | - } | |
| 241 | -#endif // _WIN32 | |
| 242 | - | |
| 243 | - return *datadir; | |
| 244 | - } | |
| 245 | 226 | |
| 246 | 227 | HLLAPI_API_CALL hllapi_wait(WORD seconds) { |
| 247 | 228 | |
| ... | ... | @@ -321,20 +302,3 @@ |
| 321 | 302 | |
| 322 | 303 | } |
| 323 | 304 | |
| 324 | - DWORD hllapi_translate_keyboard_state(LIB3270_KEYBOARD_LOCK_STATE state, HLLAPI_STATUS def) { | |
| 325 | - | |
| 326 | - // Is unlocked. | |
| 327 | - if(state == LIB3270_KL_UNLOCKED) | |
| 328 | - return def; | |
| 329 | - | |
| 330 | - // Is connected? | |
| 331 | - if((state & LIB3270_KL_NOT_CONNECTED) != 0) | |
| 332 | - return HLLAPI_STATUS_DISCONNECTED; | |
| 333 | - | |
| 334 | - if( (state & (LIB3270_KL_AWAITING_FIRST|LIB3270_KL_OIA_TWAIT)) != 0) | |
| 335 | - return HLLAPI_STATUS_WAITING; | |
| 336 | - | |
| 337 | - return HLLAPI_STATUS_KEYBOARD_LOCKED; | |
| 338 | - | |
| 339 | - } | |
| 340 | - | ... | ... |
src/core/get.cc
| ... | ... | @@ -37,11 +37,13 @@ |
| 37 | 37 | |
| 38 | 38 | TN3270::Host &host = getSession(); |
| 39 | 39 | |
| 40 | - if(!host.isConnected()) | |
| 41 | - return HLLAPI_STATUS_DISCONNECTED; | |
| 42 | - | |
| 40 | + host.waitForReady(); | |
| 43 | 41 | worker(host); |
| 44 | 42 | |
| 43 | + } catch(const std::system_error &e) { | |
| 44 | + | |
| 45 | + return hllapi_translate_error(e); | |
| 46 | + | |
| 45 | 47 | } catch(std::exception &e) { |
| 46 | 48 | |
| 47 | 49 | hllapi_lasterror = e.what(); |
| ... | ... | @@ -66,7 +68,7 @@ |
| 66 | 68 | return get([row,col,buffer](TN3270::Host &host) { |
| 67 | 69 | |
| 68 | 70 | size_t length = strlen(buffer); |
| 69 | - string contents = host.toString( (int) row, (int) col, length); | |
| 71 | + string contents = host.toString( (unsigned int) row, (unsigned int) col, (int) length); | |
| 70 | 72 | |
| 71 | 73 | strncpy((char *) buffer, contents.c_str(), std::min(length,contents.size())); |
| 72 | 74 | ... | ... |
src/core/keyboard.cc
| ... | ... | @@ -64,6 +64,10 @@ static DWORD set(std::function<void(TN3270::Host &)> worker) noexcept { |
| 64 | 64 | |
| 65 | 65 | HLLAPI_API_CALL hllapi_pfkey(WORD key) { |
| 66 | 66 | |
| 67 | +#ifdef DEBUG | |
| 68 | + clog << __FUNCTION__ << "(" << key << ")" << endl; | |
| 69 | +#endif // DEBUG | |
| 70 | + | |
| 67 | 71 | return set([key](TN3270::Host &host) { |
| 68 | 72 | |
| 69 | 73 | host.pfkey((unsigned short) key); | ... | ... |
src/core/private.h
| ... | ... | @@ -36,6 +36,8 @@ |
| 36 | 36 | #include <string> |
| 37 | 37 | #include <cerrno> |
| 38 | 38 | #include <cstring> |
| 39 | + #include <iostream> | |
| 40 | + #include <system_error> | |
| 39 | 41 | #include <lib3270/ipc.h> |
| 40 | 42 | #include <lib3270/log.h> |
| 41 | 43 | #include <lib3270/hllapi.h> |
| ... | ... | @@ -44,10 +46,14 @@ |
| 44 | 46 | using std::string; |
| 45 | 47 | using TN3270::Host; |
| 46 | 48 | using std::exception; |
| 49 | + using std::clog; | |
| 50 | + using std::endl; | |
| 47 | 51 | |
| 48 | 52 | extern TN3270_PRIVATE std::string hllapi_lasterror; |
| 49 | 53 | |
| 50 | 54 | TN3270_PRIVATE TN3270::Host & getSession(); |
| 51 | - TN3270_PRIVATE DWORD hllapi_translate_keyboard_state(LIB3270_KEYBOARD_LOCK_STATE state, HLLAPI_STATUS def = HLLAPI_STATUS_SYSTEM_ERROR); | |
| 55 | + | |
| 56 | + TN3270_PRIVATE DWORD hllapi_translate_error(LIB3270_KEYBOARD_LOCK_STATE state); | |
| 57 | + TN3270_PRIVATE DWORD hllapi_translate_error(const std::system_error &error); | |
| 52 | 58 | |
| 53 | 59 | #endif // PRIVATE_H_INCLUDED | ... | ... |
src/core/set.cc
| ... | ... | @@ -45,6 +45,7 @@ |
| 45 | 45 | TN3270::Host &host = getSession(); |
| 46 | 46 | |
| 47 | 47 | kLock = host.waitForKeyboardUnlock(); |
| 48 | + | |
| 48 | 49 | if(kLock == LIB3270_KL_UNLOCKED) { |
| 49 | 50 | |
| 50 | 51 | try { |
| ... | ... | @@ -63,6 +64,9 @@ |
| 63 | 64 | |
| 64 | 65 | } |
| 65 | 66 | |
| 67 | + } catch(const std::system_error &e) { | |
| 68 | + | |
| 69 | + return hllapi_translate_error(e); | |
| 66 | 70 | |
| 67 | 71 | } catch(const std::exception &e) { |
| 68 | 72 | |
| ... | ... | @@ -78,7 +82,7 @@ |
| 78 | 82 | |
| 79 | 83 | } |
| 80 | 84 | |
| 81 | - return hllapi_translate_keyboard_state(kLock); | |
| 85 | + return hllapi_translate_error(kLock); | |
| 82 | 86 | |
| 83 | 87 | } |
| 84 | 88 | |
| ... | ... | @@ -102,6 +106,9 @@ |
| 102 | 106 | if(!(text && *text)) |
| 103 | 107 | return HLLAPI_STATUS_BAD_PARAMETER; |
| 104 | 108 | |
| 109 | + if(!length) | |
| 110 | + length = strlen(text); | |
| 111 | + | |
| 105 | 112 | return set([text,length](TN3270::Host &host) { |
| 106 | 113 | |
| 107 | 114 | host.input((const char *) text, (int) length, '@'); | ... | ... |
| ... | ... | @@ -0,0 +1,107 @@ |
| 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 - 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 "private.h" | |
| 31 | + #include <errno.h> | |
| 32 | + | |
| 33 | +/*--[ Implement ]------------------------------------------------------------------------------------*/ | |
| 34 | + | |
| 35 | + HLLAPI_API_CALL hllapi_get_datadir(LPSTR datadir) { | |
| 36 | + | |
| 37 | + #ifdef _WIN32 | |
| 38 | + HKEY hKey = 0; | |
| 39 | + unsigned long datalen = strlen(datadir); | |
| 40 | + | |
| 41 | + *datadir = 0; | |
| 42 | + | |
| 43 | + if(RegOpenKeyEx(HKEY_LOCAL_MACHINE,"Software\\pw3270",0,KEY_QUERY_VALUE,&hKey) == ERROR_SUCCESS) | |
| 44 | + { | |
| 45 | + unsigned long datatype; // #defined in winnt.h (predefined types 0-11) | |
| 46 | + if(RegQueryValueExA(hKey,"datadir",NULL,&datatype,(LPBYTE) datadir,&datalen) != ERROR_SUCCESS) | |
| 47 | + *datadir = 0; | |
| 48 | + RegCloseKey(hKey); | |
| 49 | + } | |
| 50 | +#endif // _WIN32 | |
| 51 | + | |
| 52 | + return *datadir; | |
| 53 | + } | |
| 54 | + | |
| 55 | + DWORD hllapi_translate_error(LIB3270_KEYBOARD_LOCK_STATE state) { | |
| 56 | + | |
| 57 | + // Is unlocked. | |
| 58 | + if(state == LIB3270_KL_UNLOCKED) | |
| 59 | + return HLLAPI_STATUS_SYSTEM_ERROR; | |
| 60 | + | |
| 61 | + // Is connected? | |
| 62 | + if((state & LIB3270_KL_NOT_CONNECTED) != 0) | |
| 63 | + return HLLAPI_STATUS_DISCONNECTED; | |
| 64 | + | |
| 65 | + if( (state & (LIB3270_KL_AWAITING_FIRST|LIB3270_KL_OIA_TWAIT)) != 0) | |
| 66 | + return HLLAPI_STATUS_WAITING; | |
| 67 | + | |
| 68 | + return HLLAPI_STATUS_KEYBOARD_LOCKED; | |
| 69 | + | |
| 70 | + } | |
| 71 | + | |
| 72 | + DWORD hllapi_translate_error(const std::system_error &error) { | |
| 73 | + | |
| 74 | + static const struct Translate { | |
| 75 | + int from; | |
| 76 | + HLLAPI_STATUS to; | |
| 77 | + } translate[] = { | |
| 78 | + { ENOTCONN, HLLAPI_STATUS_DISCONNECTED }, | |
| 79 | + { ECONNRESET, HLLAPI_STATUS_DISCONNECTED }, | |
| 80 | + { EHOSTDOWN, HLLAPI_STATUS_DISCONNECTED }, | |
| 81 | + { EINVAL, HLLAPI_STATUS_BAD_PARAMETER }, | |
| 82 | + { ETIMEDOUT, HLLAPI_STATUS_TIMEOUT }, | |
| 83 | + { EBUSY, HLLAPI_STATUS_TIMEOUT }, | |
| 84 | + { EPERM, HLLAPI_STATUS_KEYBOARD_LOCKED }, | |
| 85 | + { EROFS, HLLAPI_STATUS_KEYBOARD_LOCKED }, | |
| 86 | + { EOVERFLOW, HLLAPI_STATUS_BAD_POSITION }, | |
| 87 | + }; | |
| 88 | + | |
| 89 | + int value = error.code().value(); | |
| 90 | + | |
| 91 | + hllapi_lasterror = error.what(); | |
| 92 | + | |
| 93 | + hllapi_lasterror += " (rc="; | |
| 94 | + hllapi_lasterror += std::to_string(value); | |
| 95 | + hllapi_lasterror += ")"; | |
| 96 | + | |
| 97 | + for(size_t ix = 0; ix < (sizeof(translate)/sizeof(struct Translate)); ix++) { | |
| 98 | + | |
| 99 | + if(translate[ix].from == value) | |
| 100 | + return translate[ix].to; | |
| 101 | + | |
| 102 | + } | |
| 103 | + | |
| 104 | + return HLLAPI_STATUS_SYSTEM_ERROR; | |
| 105 | + | |
| 106 | + } | |
| 107 | + | ... | ... |
src/include/lib3270/hllapi.h
| ... | ... | @@ -199,7 +199,6 @@ |
| 199 | 199 | HLLAPI_API_CALL hllapi_get_state(void); |
| 200 | 200 | HLLAPI_API_CALL hllapi_get_screen_at(WORD row, WORD col, LPSTR buffer); |
| 201 | 201 | HLLAPI_API_CALL hllapi_get_screen(WORD pos, LPSTR buffer, WORD len); |
| 202 | - HLLAPI_API_CALL hllapi_enter(void); | |
| 203 | 202 | HLLAPI_API_CALL hllapi_set_text_at(WORD row, WORD col, LPSTR text); |
| 204 | 203 | HLLAPI_API_CALL hllapi_cmp_text_at(WORD row, WORD col, LPSTR text); |
| 205 | 204 | HLLAPI_API_CALL hllapi_find_text(LPSTR text); |
| ... | ... | @@ -213,6 +212,7 @@ |
| 213 | 212 | |
| 214 | 213 | HLLAPI_API_CALL hllapi_set_session_parameter(LPSTR param, WORD len, WORD value); |
| 215 | 214 | |
| 215 | + HLLAPI_API_CALL hllapi_enter(void); | |
| 216 | 216 | HLLAPI_API_CALL hllapi_erase(void); |
| 217 | 217 | HLLAPI_API_CALL hllapi_erase_eof(void); |
| 218 | 218 | HLLAPI_API_CALL hllapi_erase_eol(void); | ... | ... |
src/testprogram/testprogram.cc
| ... | ... | @@ -30,6 +30,7 @@ |
| 30 | 30 | #include <iostream> |
| 31 | 31 | #include <getopt.h> |
| 32 | 32 | #include <cstring> |
| 33 | + #include <cstdio> | |
| 33 | 34 | #include <lib3270/hllapi.h> |
| 34 | 35 | |
| 35 | 36 | #define SCREEN_LENGTH 2000 |
| ... | ... | @@ -43,7 +44,7 @@ |
| 43 | 44 | char buffer[SCREEN_LENGTH+1]; |
| 44 | 45 | |
| 45 | 46 | const char *host = ""; |
| 46 | - const char *session = ""; // "pw3270:A"; | |
| 47 | + const char *session = "pw3270:a"; | |
| 47 | 48 | |
| 48 | 49 | #pragma GCC diagnostic push |
| 49 | 50 | static struct option options[] = |
| ... | ... | @@ -92,11 +93,12 @@ |
| 92 | 93 | memset(buffer,' ',SCREEN_LENGTH); |
| 93 | 94 | buffer[SCREEN_LENGTH] = 0; |
| 94 | 95 | |
| 96 | + rc = HLLAPI_STATUS_SUCCESS; | |
| 97 | + | |
| 95 | 98 | if(strcasecmp(cmdline.c_str(),"connect") == 0) { |
| 96 | 99 | |
| 97 | 100 | cout << "Connecting..." << endl; |
| 98 | 101 | rc = hllapi_connect((LPSTR) host,1); |
| 99 | - cout << "hllapi_connect returns with rc=" << rc << " (" << hllapi_get_last_error() << ")" << endl; | |
| 100 | 102 | |
| 101 | 103 | } else if(strcasecmp(cmdline.c_str(),"wait") == 0) { |
| 102 | 104 | |
| ... | ... | @@ -107,15 +109,12 @@ |
| 107 | 109 | |
| 108 | 110 | cout << "Disconnecting..." << endl; |
| 109 | 111 | rc = hllapi_disconnect(); |
| 110 | - cout << "hllapi_disconnect returns with rc=" << rc << " (" << hllapi_get_last_error() << ")" << endl; | |
| 111 | 112 | |
| 112 | 113 | } else if(strcasecmp(cmdline.c_str(),"luname") == 0) { |
| 113 | 114 | |
| 114 | 115 | rc = hllapi_get_lu_name(buffer,SCREEN_LENGTH); |
| 115 | 116 | if(rc == HLLAPI_STATUS_SUCCESS) { |
| 116 | 117 | cout << "LU Name is " << buffer << endl; |
| 117 | - } else { | |
| 118 | - cout << "hllapi_get_lu_name returns with rc=" << rc << " (" << hllapi_get_last_error() << ")" << endl; | |
| 119 | 118 | } |
| 120 | 119 | |
| 121 | 120 | } else if(strcasecmp(cmdline.c_str(),"contents") == 0) { |
| ... | ... | @@ -124,11 +123,84 @@ |
| 124 | 123 | cout << "hllapi_get_screen returns with rc=" << rc << " (" << hllapi_get_last_error() << ")" << endl |
| 125 | 124 | << buffer << endl << endl; |
| 126 | 125 | |
| 126 | + } else if(strncasecmp(cmdline.c_str(),"cursor",6) == 0) { | |
| 127 | + | |
| 128 | + unsigned int row, col; | |
| 129 | + | |
| 130 | + switch(std::sscanf(cmdline.c_str()+6,"%u,%u",&row,&col)) { | |
| 131 | + case 1: | |
| 132 | + cout << "Moving cursor to " << row << endl; | |
| 133 | + rc = hllapi_set_cursor_address((WORD) row); | |
| 134 | + break; | |
| 135 | + | |
| 136 | + case 2: | |
| 137 | + cout << "Moving cursor to " << row << "," << col << endl; | |
| 138 | + rc = hllapi_set_cursor_position((WORD) row, (WORD) col); | |
| 139 | + break; | |
| 140 | + } | |
| 141 | + | |
| 142 | + } else if(strncasecmp(cmdline.c_str(),"at",2) == 0) { | |
| 143 | + | |
| 144 | + unsigned int row, col, len; | |
| 145 | + | |
| 146 | + switch(std::sscanf(cmdline.c_str()+3,"%u,%u,%u",&row,&col,&len)) { | |
| 147 | + case 3: | |
| 148 | + { | |
| 149 | + cout << "Getting " << len << " bytes from " << row << "," << col << endl; | |
| 150 | + | |
| 151 | + char * buffer = new char[len+1]; | |
| 152 | + memset(buffer,' ',len+1); | |
| 153 | + buffer[len] = 0; | |
| 154 | + | |
| 155 | + rc = hllapi_get_screen_at(row,col,buffer); | |
| 156 | + if(rc == HLLAPI_STATUS_SUCCESS) { | |
| 157 | + cout << "Contents:" << endl << buffer << endl; | |
| 158 | + } | |
| 159 | + | |
| 160 | + delete[] buffer; | |
| 161 | + } | |
| 162 | + break; | |
| 163 | + | |
| 164 | + case 2: | |
| 165 | + { | |
| 166 | + cout << "Getting " << col << " bytes from " << row << endl; | |
| 167 | + | |
| 168 | + char * buffer = new char[col+1]; | |
| 169 | + memset(buffer,' ',col+1); | |
| 170 | + buffer[col] = 0; | |
| 171 | + | |
| 172 | + rc = hllapi_get_screen(row,buffer,col); | |
| 173 | + if(rc == HLLAPI_STATUS_SUCCESS) { | |
| 174 | + cout << "Contents:" << endl << buffer << endl; | |
| 175 | + } | |
| 176 | + | |
| 177 | + delete[] buffer; | |
| 178 | + | |
| 179 | + } | |
| 180 | + break; | |
| 181 | + } | |
| 182 | + | |
| 183 | + } else if(strncasecmp(cmdline.c_str(),"enter",5) == 0) { | |
| 184 | + | |
| 185 | + rc = hllapi_enter(); | |
| 186 | + | |
| 187 | + } else if(strncasecmp(cmdline.c_str(),"pf ",3) == 0) { | |
| 188 | + | |
| 189 | + rc = hllapi_pfkey(atoi(cmdline.c_str()+3)); | |
| 190 | + | |
| 191 | + } else if(strncasecmp(cmdline.c_str(),"input ",6) == 0) { | |
| 192 | + | |
| 193 | + rc = hllapi_input_string((LPSTR) cmdline.c_str()+6,0); | |
| 194 | + | |
| 127 | 195 | } else { |
| 128 | 196 | |
| 129 | - cout << "Unknown command" << endl; | |
| 197 | + cout << "Unknown command \"" << cmdline << "\""<< endl; | |
| 130 | 198 | } |
| 131 | 199 | |
| 200 | + if(rc != HLLAPI_STATUS_SUCCESS) { | |
| 201 | + cout << "rc=" << rc << " (" << hllapi_get_last_error() << ")" << endl; | |
| 202 | + rc = HLLAPI_STATUS_SUCCESS; | |
| 203 | + } | |
| 132 | 204 | |
| 133 | 205 | cout << endl << ">"; |
| 134 | 206 | cout.flush(); | ... | ... |