Download as
Browse Code »

Commit b6e92ddd2c62a23f57ac641e55d2fe14730f74bd

Authored by Perry Werneck
1 parent 28ade9a4
Exists in master and in 1 other branch develop

Adding snippet. 

Refactoring hllapi module.
Showing 10 changed files with 824 additions and 641 deletions   Show diff stats
Makefile.in
  Diff comments   View file @b6e92dd
... ... @@ -94,6 +94,8 @@ CFLAGS= \
94 94 -DBUILD_DATE=`date +%Y%m%d` \
95 95 @IPC3270_CFLAGS@
96 96  
  97 +LDFLAGS=@LDFLAGS@
  98 +
97 99 LIBS= \
98 100 @LIBS@ \
99 101 @IPC3270_LIBS@
... ...
configure.ac
  Diff comments   View file @b6e92dd
... ... @@ -72,17 +72,14 @@ dnl ---------------------------------------------------------------------------
72 72 dnl Check for OS specifics
73 73 dnl ---------------------------------------------------------------------------
74 74  
75   -DLLPREFIX="lib"
76   -
77 75 case "$host" in
78 76 *-mingw32|*-pc-msys)
79 77 app_cv_osname="windows"
80 78  
81 79 CFLAGS="$CFLAGS -pthread -D_WIN32_WINNT=0x0600"
82 80 LIBS="$LIBS -lws2_32 -lwtsapi32 -lcomdlg32"
83   - STATIC_LDFLAGS="-static-libgcc -static-libstdc++"
  81 + LDFLAGS="$LDFLAGS -static-libgcc -static-libstdc++"
84 82 DLLEXT=".dll"
85   - DLLPREFIX=""
86 83  
87 84 app_win32_revision=$(date +%-y.%-m.%-d.%-H)
88 85 AC_SUBST(WIN32_VERSION,$app_win32_revision)
... ... @@ -90,7 +87,7 @@ case "$host" in
90 87 app_win32_file_version=$(date +%-y,%-m,%-d,%-H)
91 88 AC_SUBST(WIN32_FILE_VERSION,$app_win32_file_version)
92 89  
93   - AC_CONFIG_FILES(src/hllapi/windows/resources.rc)
  90 + AC_CONFIG_FILES(src/core/windows/resources.rc)
94 91 ;;
95 92  
96 93 *)
... ... @@ -205,7 +202,32 @@ dnl ---------------------------------------------------------------------------
205 202 dnl Check for IPC3270
206 203 dnl ---------------------------------------------------------------------------
207 204  
208   -PKG_CHECK_MODULES( [IPC3270], [ipc3270], AC_DEFINE(HAVE_IPC3270), AC_MSG_ERROR([LIB3270 not present.]))
  205 +AC_ARG_WITH([static-ipc3270],
  206 + [AS_HELP_STRING([--with-static-ipc3270], [Uses static version of ipc3270])],
  207 +[
  208 + app_cv_static_ipc3270=$withval
  209 +],[
  210 + app_cv_static_ipc3270="auto"
  211 +])
  212 +
  213 +if test "$app_cv_static_ipc3270" == "auto"; then
  214 + case "$host" in
  215 + *-mingw32|*-pc-msys)
  216 + app_cv_static_ipc3270="yes"
  217 + ;;
  218 +
  219 + *)
  220 + app_cv_static_ipc3270="no"
  221 +
  222 + esac
  223 +
  224 +fi
  225 +
  226 +if test "$app_cv_static_ipc3270" == "yes"; then
  227 + PKG_CHECK_MODULES( [IPC3270], [ipc3270-static], AC_DEFINE(USING_STATIC_IPC3270), AC_MSG_ERROR([IPC3270 not present.]))
  228 +else
  229 + PKG_CHECK_MODULES( [IPC3270], [ipc3270], AC_DEFINE(USING_SHARED_IPC3270), AC_MSG_ERROR([IPC3270 not present.]))
  230 +fi
209 231  
210 232 AC_SUBST(IPC3270_LIBS)
211 233 AC_SUBST(IPC3270_CFLAGS)
... ...
hllapi.cbp
  Diff comments   View file @b6e92dd
... ... @@ -39,21 +39,10 @@
39 39 <Unit filename="src/core/get.cc" />
40 40 <Unit filename="src/core/hllapi.cc" />
41 41 <Unit filename="src/core/private.h" />
  42 + <Unit filename="src/core/set.cc" />
42 43 <Unit filename="src/core/windows/resources.rc" />
43 44 <Unit filename="src/include/config.h" />
44 45 <Unit filename="src/include/lib3270/hllapi.h" />
45   - <Unit filename="src/ipc3270c/linux/gobject.c">
46   - <Option compilerVar="CC" />
47   - </Unit>
48   - <Unit filename="src/ipc3270c/linux/main.c">
49   - <Option compilerVar="CC" />
50   - </Unit>
51   - <Unit filename="src/ipc3270c/linux/misc.c">
52   - <Option compilerVar="CC" />
53   - </Unit>
54   - <Unit filename="src/ipc3270c/windows/main.c">
55   - <Option compilerVar="CC" />
56   - </Unit>
57 46 <Unit filename="src/testprogram/testprogram.cc" />
58 47 <Extensions>
59 48 <code_completion />
... ...
snippets/sample.vbs 0 → 100644
  Diff comments   View file @b6e92dd
... ... @@ -0,0 +1,250 @@
  1 +REM Software pw3270, desenvolvido com base nos códigos fontes do WC3270 e X3270
  2 +REM (Paul Mattes Paul.Mattes@usa.net), de emulação de terminal 3270 para acesso a
  3 +REM aplicativos mainframe. Registro no INPI sob o nome G3270.
  4 +REM
  5 +REM Copyright (C) <2008> <Banco do Brasil S.A.>
  6 +REM
  7 +REM Este programa é software livre. Você pode redistribuí-lo e/ou modificá-lo sob
  8 +REM os termos da GPL v.2 - Licença Pública Geral GNU, conforme publicado pela
  9 +REM Free Software Foundation.
  10 +REM
  11 +REM Este programa é distribuído na expectativa de ser útil, mas SEM QUALQUER
  12 +REM GARANTIA; sem mesmo a garantia implícita de COMERCIALIZAÇÃO ou de ADEQUAÇÃO
  13 +REM A QUALQUER PROPÓSITO EM PARTICULAR. Consulte a Licença Pública Geral GNU para
  14 +REM obter mais detalhes.
  15 +REM
  16 +REM Você deve ter recebido uma cópia da Licença Pública Geral GNU junto com este
  17 +REM programa; se não, escreva para a Free Software Foundation, Inc., 51 Franklin
  18 +REM St, Fifth Floor, Boston, MA 02110-1301 USA
  19 +REM
  20 +REM Contatos:
  21 +REM
  22 +REM perry.werneck@gmail.com (Alexandre Perry de Souza Werneck)
  23 +REM erico.mendonca@gmail.com (Erico Mascarenhas Mendonça)
  24 +REM
  25 +
  26 +REM Inicializa a biblioteca
  27 +
  28 +rem hllapi_init() - Inicia uma sessão 3270
  29 +rem
  30 +rem hllapi_init pode receber como argumento o nome de uma janela já aberta,
  31 +rem por exemplo, "pw3270:a" para com que atue direto sobre ela, ou,
  32 +rem com uma string vazia ("") para tentar criar uma sessão sem janela.
  33 +rem
  34 +Declare Function hllapi_init Lib "libhllapi.dll" (ByVal tp as string) as Long
  35 +
  36 +rem hllapi_deinit() - Encerra uma sessão 3270
  37 +rem
  38 +rem Finaliza a sessão 3270 liberando os recursos usados.
  39 +rem
  40 +Declare Function hllapi_deinit Lib "libhllapi.dll" () as Long
  41 +
  42 +rem hllapi_get_revision - Obtém a revisão do pw3270 que está sendo usada.
  43 +rem
  44 +Declare Function hllapi_get_revision Lib "libhllapi.dll" () as Long
  45 +
  46 +rem hllapi_connect() - Conecta a um host 3270
  47 +rem
  48 +rem Efetua a conexão ao host 3270, recebe 2 parâmetros
  49 +rem
  50 +rem uri - URI com o endereço de conexão ao host
  51 +rem wait - Quantos segundos a função deve esperar até o estabelecimento da sessão
  52 +rem
  53 +Declare Function hllapi_connect Lib "libhllapi.dll" (ByVal uri as string, ByVal wait as Integer) as Long
  54 +
  55 +rem hllapi_disconnect() - Desconecta do host 3270
  56 +rem
  57 +Declare Function hllapi_disconnect Lib "libhllapi.dll" () as Long
  58 +
  59 +rem hllapi_wait_for_ready() - Aguarda que o terminal fique disponível
  60 +rem
  61 +rem Suspende a atividade até que o terminal esteja pronto para receber comandos.
  62 +rem
  63 +rem Recebe apenas um valor numérico com o tempo em segundos a esperar; caso esse
  64 +rem tempo seja atingido sem o terminal ficar disponível a função retorna erro.
  65 +rem
  66 +Declare Function hllapi_wait_for_ready Lib "libhllapi.dll" (ByVal timeout as Integer) as Long
  67 +
  68 +rem hllapi_wait() - Aguarda por "x" segundos
  69 +rem
  70 +rem Suspende a atividade do script mantendo a comunicação com o host ativa; pode ser usada
  71 +rem para parar por um tempo específico enquanto o host executa algum processo.
  72 +rem
  73 +rem Recebe apenas um valor numérico com o tempo em segundos a esperar.
  74 +rem
  75 +Declare Function hllapi_wait Lib "libhllapi.dll" (ByVal timeout as Integer) as Long
  76 +
  77 +rem hllapi_get_message_id() - Obtém o código da mensagem atual da OIA
  78 +rem
  79 +rem Obtém o código numérico correspondente à mensagem de status da OIA.
  80 +rem
  81 +Declare Function hllapi_get_message_id Lib "libhllapi.dll" () as Long
  82 +
  83 +rem hllapi_is_connected() - Verifica se existe uma conexão com o host
  84 +rem
  85 +Declare Function hllapi_is_connected Lib "libhllapi.dll" () as Long
  86 +
  87 +rem hllapi_get_screen() - Obtém conteúdo de uma parte do terminal pelo endereço
  88 +rem
  89 +rem Preenche a string com o conteúdo do termina na posição desejada
  90 +rem
  91 +rem Recebe 3 parâmetros:
  92 +rem
  93 +rem - Posição na tela
  94 +rem - String com espaço suficiente
  95 +rem - Tamanho desejado (se for -1 usa o tamanho da string)
  96 +rem
  97 +Declare Function hllapi_get_screen Lib "libhllapi.dll" (ByVal offset as Integer, ByVal text as String, ByVal length as Integer) as Long
  98 +
  99 +rem hllapi_get_screen_at() - Obtém o conteúdo de uma parte da tela do terminal.
  100 +rem
  101 +rem Preenche a string com o conteúdo do terminal a partir da linha e coluna
  102 +rem desejadas.
  103 +rem
  104 +rem Recebe 3 parâmetros:
  105 +rem
  106 +rem - Linha da posição inicial
  107 +rem - Coluna da posição inicial
  108 +rem - String já com o tamanho desejado
  109 +rem
  110 +Declare Function hllapi_get_screen_at Lib "libhllapi.dll" (ByVal row as Integer, ByVal col as Integer, ByVal text as String) as Long
  111 +
  112 +rem hllapi_set_text_at() - Aplica string na tela do terminal.
  113 +rem
  114 +rem Aplica a string na linha e coluna informadas; atentar para o fato de que
  115 +rem a posição deve estar disponível para escrita.
  116 +rem
  117 +rem Recebe 3 parâmetros:
  118 +rem
  119 +rem - Linha da posição inicial
  120 +rem - Coluna da posição inicial
  121 +rem - String que será aplicada
  122 +rem
  123 +Declare Function hllapi_set_text_at Lib "libhllapi.dll" (ByVal row as Integer, ByVal col as Integer, ByVal text as String) as Long
  124 +
  125 +rem hllapi_cmp_text_at() - Compara conteúdo da tela.
  126 +rem
  127 +rem Compara o conteúdo da tela na posição informada, recebe 3 parâmetros.
  128 +rem
  129 +rem - Linha da posição inicial
  130 +rem - Coluna da posição inicial
  131 +rem - String a comparar
  132 +rem
  133 +rem Retorna 0 se o valor contido na tela é igual ao informado, diferente de zero se não for.
  134 +rem
  135 +Declare Function hllapi_cmp_text_at Lib "libhllapi.dll" (ByVal row as Integer, ByVal col as Integer, ByVal text as String) as Long
  136 +
  137 +rem hllapi_find_text
  138 +rem
  139 +rem Obtém a posição da string na tela.
  140 +rem
  141 +rem - String a pesquisar
  142 +rem
  143 +rem 0 se a string não foi encontrada, a posição na tela se encontrar.
  144 +rem
  145 +Declare Function hllapi_find_text Lib "libhllapi.dll" (ByVal text as String) as Long
  146 +
  147 +rem hllapi_enter()
  148 +rem
  149 +rem Envia um [ENTER] para o host.
  150 +rem
  151 +Declare Function hllapi_enter Lib "libhllapi.dll" () as Long
  152 +
  153 +rem hllapi_pfkey()
  154 +rem
  155 +rem Envia uma [PF] para o host.
  156 +rem
  157 +rem Recebe como argumento o número da PF que será enviada.
  158 +rem
  159 +Declare Function hllapi_pfkey Lib "libhllapi.dll" (ByVal keycode as Integer) as Long
  160 +
  161 +rem hllapi_pakey()
  162 +rem
  163 +rem Envia uma [PA] para o host.
  164 +rem
  165 +rem Recebe como argumento o número da PA que será enviada.
  166 +rem
  167 +Declare Function hllapi_pakey Lib "libhllapi.dll" (ByVal keycode as Integer) as Long
  168 +
  169 +rem hllapi_set_session_parameter()
  170 +rem
  171 +rem Configura um parâmetro da sessão
  172 +rem
  173 +rem Recebe como argumentos:
  174 +rem
  175 +rem 1. Nome do parâmetro a ser ajustado
  176 +rem 2. Tamanho do nome do parâmetro (ou 0)
  177 +rem 3. Valor a atribuir
  178 +rem
  179 +Declare Function hllapi_set_session_parameter Lib "libhllapi.dll" (ByVal text as String, ByVal len as Integer, ByVal value as Integer) as Long
  180 +
  181 +rem hllapi_set_charset()
  182 +rem
  183 +rem Configura a página de código
  184 +rem
  185 +rem Recebe como argumentos:
  186 +rem
  187 +rem 1. Nome da página de código desejada (UTF-8, CP1252, ISO-8859-1, etc).
  188 +rem
  189 +Declare Function hllapi_set_charset Lib "libhllapi.dll" (ByVal text as String, ByVal len as Integer, ByVal value as Integer) as Long
  190 +
  191 +rem hllapi_set_unlock_delay()
  192 +rem
  193 +rem Define o tempo (em milisegundos) que o terminal
  194 +rem espera para desbloquear a sessão após um comando.
  195 +rem
  196 +rem Recebe como argumento o valor do delay em milisegundos.
  197 +rem
  198 +Declare Function hllapi_set_unlock_delay Lib "libhllapi.dll" (ByVal delay as Integer) as Long
  199 +
  200 +rem hllapi_get_cursor_address() - Obtém a posição atual do cursor
  201 +rem
  202 +rem Obtém a posição atual do cursor dentro da tela do terminal
  203 +rem
  204 +Declare Function hllapi_get_cursor_address Lib "libhllapi.dll" () as Long
  205 +
  206 +rem hllapi_set_cursor_address()
  207 +rem
  208 +rem Define a posição atual do cursor
  209 +rem
  210 +rem Recebe 1 argumento:
  211 +rem
  212 +rem Novo endereço do cursor dentro da tela do terminal.
  213 +rem
  214 +Declare Function hllapi_set_cursor_address Lib "libhllapi.dll" (ByVal addr) as Long
  215 +
  216 +Sub Main
  217 +
  218 + if hllapi_init("") <> 0 then
  219 + print "Erro ao inicializar a biblioteca"
  220 + Exit Sub
  221 + End If
  222 +
  223 + hllapi_connect("fandezhi.efglobe.com:23",0)
  224 +
  225 + Do While hllapi_is_connected() = 0
  226 +
  227 + hllapi_wait(1)
  228 +
  229 + Loop
  230 +
  231 + if hllapi_wait_for_ready(60) <> 0 then
  232 + print "Conexão não se estabilizou no tempo esperado"
  233 + Exit Sub
  234 + End If
  235 +
  236 + Dim text as string
  237 + text = space(2000)
  238 +
  239 + if hllapi_get_screen_at(1,1,text) <> 0 then
  240 + print "Erro ao tentar obter conteudo do terminal"
  241 + Exit Sub
  242 + End If
  243 +
  244 + print text
  245 +
  246 + hllapi_disconnect()
  247 + hllapi_deinit()
  248 +
  249 +End Sub
  250 +
... ...
src/core/calls.cc
  Diff comments   View file @b6e92dd
... ... @@ -76,7 +76,8 @@
76 76 hllapi_lasterror = e.what();
77 77 }
78 78  
79   - return 0;
  79 + return HLLAPI_STATUS_SUCCESS;
  80 +
80 81 }
81 82  
82 83 HLLAPI_API_CALL hllapi_get_state(void) {
... ... @@ -137,7 +138,7 @@
137 138  
138 139 }
139 140  
140   - return 0;
  141 + return HLLAPI_STATUS_SUCCESS;
141 142  
142 143 }
143 144  
... ... @@ -190,7 +191,7 @@
190 191  
191 192 host.pfkey((unsigned short) key);
192 193  
193   - return 0;
  194 + return HLLAPI_STATUS_SUCCESS;
194 195  
195 196 } catch(std::exception &e) {
196 197  
... ... @@ -213,7 +214,7 @@
213 214  
214 215 host.pakey((unsigned short) key);
215 216  
216   - return 0;
  217 + return HLLAPI_STATUS_SUCCESS;
217 218  
218 219 } catch(std::exception &e) {
219 220  
... ... @@ -225,87 +226,40 @@
225 226  
226 227 }
227 228  
228   - /*
  229 + HLLAPI_API_CALL hllapi_set_unlock_delay(WORD ms) {
229 230  
230   - HLLAPI_API_CALL hllapi_wait(WORD seconds)
231   - {
232   - if(!hllapi_is_connected())
233   - return HLLAPI_STATUS_DISCONNECTED;
  231 + try {
234 232  
235   - session::get_default()->wait(seconds);
  233 + getSession().setUnlockDelay((unsigned short) ms);
  234 + return HLLAPI_STATUS_SUCCESS;
236 235  
237   - return hllapi_get_state();
238   - }
  236 + } catch(std::exception &e) {
239 237  
240   - HLLAPI_API_CALL hllapi_set_text_at(WORD row, WORD col, LPSTR text)
241   - {
242   - if(!hllapi_is_connected())
243   - return HLLAPI_STATUS_DISCONNECTED;
  238 + hllapi_lasterror = e.what();
244 239  
245   - try
246   - {
247   - session::get_default()->set_string_at(row,col,text);
248   - }
249   - catch(std::exception &e)
250   - {
251   - return HLLAPI_STATUS_SYSTEM_ERROR;
252 240 }
253 241  
254   - return HLLAPI_STATUS_SUCCESS;
  242 + return HLLAPI_STATUS_SYSTEM_ERROR;
255 243 }
256 244  
257   - HLLAPI_API_CALL hllapi_cmp_text_at(WORD row, WORD col, LPSTR text)
258   - {
  245 + HLLAPI_API_CALL hllapi_set_charset(LPSTR text) {
259 246  
260   - if(!hllapi_is_connected())
261   - return HLLAPI_STATUS_DISCONNECTED;
262   -
263   - int rc = HLLAPI_STATUS_SYSTEM_ERROR;
264   -
265   - try
266   - {
267   - rc = session::get_default()->cmp_string_at(row,col,text);
268   - }
269   - catch(std::exception &e)
270   - {
271   - return HLLAPI_STATUS_SYSTEM_ERROR;
272   - }
  247 + try {
273 248  
274   - return rc;
275   - }
  249 + getSession().setCharSet((const char *) text);
  250 + return HLLAPI_STATUS_SUCCESS;
276 251  
277   - HLLAPI_API_CALL hllapi_find_text(LPSTR text)
278   - {
279   - if(!hllapi_is_connected())
280   - return HLLAPI_STATUS_DISCONNECTED;
281   -
282   - return (int) session::get_default()->find_string((const char *) text, false);
283   - }
284   -
285   - HLLAPI_API_CALL hllapi_set_unlock_delay(WORD ms)
286   - {
287   - session::get_default()->set_unlock_delay(ms);
288   - return 0;
289   - }
290   -
291   - HLLAPI_API_CALL hllapi_set_charset(LPSTR text)
292   - {
293   - try
294   - {
  252 + } catch(std::exception &e) {
295 253  
296   - session::get_default()->set_display_charset(NULL, (const char *) text);
  254 + hllapi_lasterror = e.what();
297 255  
298   - }
299   - catch(std::exception &e)
300   - {
301   - return HLLAPI_STATUS_SYSTEM_ERROR;
302 256 }
303 257  
304   - return 0;
  258 + return HLLAPI_STATUS_SYSTEM_ERROR;
305 259 }
306 260  
307   - HLLAPI_API_CALL hllapi_get_datadir(LPSTR datadir)
308   - {
  261 + HLLAPI_API_CALL hllapi_get_datadir(LPSTR datadir) {
  262 +
309 263 #ifdef _WIN32
310 264 HKEY hKey = 0;
311 265 unsigned long datalen = strlen(datadir);
... ... @@ -324,332 +278,51 @@
324 278 return *datadir;
325 279 }
326 280  
327   - HLLAPI_API_CALL hllapi_emulate_input(const LPSTR buffer, WORD len, WORD pasting)
  281 + /*
  282 +
  283 + HLLAPI_API_CALL hllapi_wait(WORD seconds)
328 284 {
329 285 if(!hllapi_is_connected())
330 286 return HLLAPI_STATUS_DISCONNECTED;
331 287  
332   - try
333   - {
334   - session::get_default()->input_string(buffer);
335   - }
336   - catch(std::exception &e)
337   - {
338   - return HLLAPI_STATUS_SYSTEM_ERROR;
339   - }
  288 + session::get_default()->wait(seconds);
340 289  
341   - return HLLAPI_STATUS_SUCCESS;
  290 + return hllapi_get_state();
342 291 }
343 292  
344   - char * hllapi_get_string(int offset, size_t len)
  293 + HLLAPI_API_CALL hllapi_cmp_text_at(WORD row, WORD col, LPSTR text)
345 294 {
  295 +
  296 + if(!hllapi_is_connected())
  297 + return HLLAPI_STATUS_DISCONNECTED;
  298 +
  299 + int rc = HLLAPI_STATUS_SYSTEM_ERROR;
  300 +
346 301 try
347 302 {
348   - string str = session::get_default()->get_string(offset-1,len);
349   - char * ret = strdup(str.c_str());
350   - return ret;
  303 + rc = session::get_default()->cmp_string_at(row,col,text);
351 304 }
352 305 catch(std::exception &e)
353 306 {
  307 + return HLLAPI_STATUS_SYSTEM_ERROR;
354 308 }
355 309  
356   - return NULL;
357   - }
358   -
359   - void hllapi_free(void *p)
360   - {
361   - free(p);
  310 + return rc;
362 311 }
363 312  
364   - HLLAPI_API_CALL hllapi_input_string(LPSTR input, WORD length)
  313 + HLLAPI_API_CALL hllapi_find_text(LPSTR text)
365 314 {
366   - static const char control_char = '@';
367   -
368   - size_t szText;
369   - char * text;
370   - int rc = 0;
371   -
372   - if(!hllapi_is_connected()) {
  315 + if(!hllapi_is_connected())
373 316 return HLLAPI_STATUS_DISCONNECTED;
374   - }
375   -
376   - if(!input)
377   - {
378   - return HLLAPI_STATUS_BAD_PARAMETER;
379   - }
380   -
381   - if(length > 0 )
382   - szText = length;
383   - else
384   - szText = strlen(input);
385   -
386   - text = (char *) malloc(szText+2);
387   - memcpy(text,input,szText);
388   - text[szText] = 0;
389   -
390   - trace("input[%s]",text);
391   -
392   - if(strchr(text,control_char))
393   - {
394   - // Convert control char
395   - char * buffer = text;
396   - char * ptr;
397   -
398   - for(ptr = strchr(text,control_char);ptr;ptr = strchr(buffer,control_char))
399   - {
400   - *(ptr++) = 0;
401   -
402   - trace("input[%s]",buffer);
403   - hllapi_emulate_input(buffer,-1,0);
404   -
405   - switch(*(ptr++))
406   - {
407   - case 'P': // Print
408   - rc = hllapi_print();
409   - break;
410   -
411   - case 'E': // Enter
412   - hllapi_enter();
413   - break;
414   -
415   - case 'F': // Erase EOF
416   - hllapi_erase_eof();
417   - break;
418   -
419   - case '1': // PF1
420   - hllapi_pfkey(1);
421   - break;
422   -
423   - case '2': // PF2
424   - hllapi_pfkey(2);
425   - break;
426   -
427   - case '3': // PF3
428   - hllapi_pfkey(3);
429   - break;
430   -
431   - case '4': // PF4
432   - hllapi_pfkey(4);
433   - break;
434   -
435   - case '5': // PF5
436   - hllapi_pfkey(5);
437   - break;
438   -
439   - case '6': // PF6
440   - hllapi_pfkey(6);
441   - break;
442   -
443   - case '7': // PF7
444   - hllapi_pfkey(7);
445   - break;
446   -
447   - case '8': // PF8
448   - hllapi_pfkey(8);
449   - break;
450   -
451   - case '9': // PF9
452   - hllapi_pfkey(9);
453   - break;
454   -
455   - case 'a': // PF10
456   - hllapi_pfkey(10);
457   - break;
458   -
459   - case 'b': // PF11
460   - hllapi_pfkey(11);
461   - break;
462   -
463   - case 'c': // PF12
464   - hllapi_pfkey(12);
465   - break;
466   -
467   - case 'd': // PF13
468   - hllapi_pfkey(13);
469   - break;
470   -
471   - case 'e': // PF14
472   - hllapi_pfkey(14);
473   - break;
474   -
475   - case 'f': // PF15
476   - hllapi_pfkey(15);
477   - break;
478   -
479   - case 'g': // PF16
480   - hllapi_pfkey(16);
481   - break;
482   -
483   - case 'h': // PF17
484   - hllapi_pfkey(17);
485   - break;
486   -
487   - case 'i': // PF18
488   - hllapi_pfkey(18);
489   - break;
490   -
491   - case 'j': // PF19
492   - hllapi_pfkey(19);
493   - break;
494   -
495   - case 'k': // PF20
496   - hllapi_pfkey(20);
497   - break;
498   -
499   - case 'l': // PF21
500   - hllapi_pfkey(21);
501   - break;
502   -
503   - case 'm': // PF22
504   - hllapi_pfkey(22);
505   - break;
506   -
507   - case 'n': // PF23
508   - hllapi_pfkey(23);
509   - break;
510   -
511   - case 'o': // PF24
512   - hllapi_pfkey(24);
513   - break;
514   -
515   - case '@': // Send '@' character
516   - hllapi_emulate_input((LPSTR) "@",-1,0);
517   - break;
518 317  
519   - case 'x': // PA1
520   - hllapi_pakey(1);
521   - break;
522   -
523   - case 'y': // PA2
524   - hllapi_pakey(2);
525   - break;
526   -
527   - case 'z': // PA3
528   - hllapi_pakey(3);
529   - break;
530   -
531   - case 'B': // PC_LEFTTAB = "@B"
532   - break;
533   -
534   - case 'T': // PC_RIGHTTAB = "@T"
535   - break;
536   -
537   - case 'N': // PC_NEWLINE = "@N"
538   - break;
539   -
540   - case 'C': // PC_CLEAR = "@C"
541   - hllapi_erase_input();
542   - break;
543   -
544   - case 'D': // PC_DELETE = "@D"
545   - break;
546   -
547   - case 'H': // PC_HELP = "@H"
548   - break;
549   -
550   - case 'I': // PC_INSERT = "@I"
551   - break;
552   -
553   - case 'L': // PC_CURSORLEFT = "@L"
554   - break;
555   -
556   - case 'R': // PC_RESET = "@R"
557   - hllapi_reset();
558   - break;
559   -
560   - case 'U': // PC_CURSORUP = "@U"
561   - break;
562   -
563   - case 'V': // PC_CURSORDOWN = "@V"
564   - break;
565   -
566   - case 'Z': // PC_CURSORRIGHT = "@Z"
567   - break;
568   -
569   - case '0': // PC_HOME = "@0"
570   - break;
571   -
572   - case 'p': // PC_PLUSKEY = "@p"
573   - break;
574   -
575   - case 'q': // PC_END = "@q"
576   - break;
577   -
578   - case 's': // PC_SCRLK = "@s"
579   - break;
580   -
581   - case 't': // PC_NUMLOCK = "@t"
582   - break;
583   -
584   - case 'u': // PC_PAGEUP = "@u"
585   - break;
586   -
587   - case 'v': // PC_PAGEDOWN = "@v"
588   - break;
589   -
590   - case '/': // PC_OVERRUNOFQUEUE = "@/" ' Queue overflow, used in Get Key only
591   - break;
592   -
593   - case '$': // PC_ALTCURSOR = "@$" ' Presentation Manager only, unused in VB environment
594   - break;
595   -
596   - case '<': // PC_BACKSPACE = "@<"
597   - break;
598   -
599   -
600   -// Global Const PC_TEST = "@A@C"
601   -// Global Const PC_WORDDELETE = "@A@D"
602   -// Global Const PC_FIELDEXIT = "@A@E"
603   -// Global Const PC_ERASEINPUT = "@A@F"
604   -// Global Const PC_SYSTEMREQUEST = "@A@H"
605   -// Global Const PC_INSERTTOGGLE = "@A@I"
606   -// Global Const PC_CURSORSELECT = "@A@J"
607   -// Global Const PC_CURSLEFTFAST = "@A@L"
608   -// Global Const PC_GETCURSOR = "@A@N"
609   -// Global Const PC_LOCATECURSOR = "@A@O"
610   -// Global Const PC_ATTENTION = "@A@Q"
611   -// Global Const PC_DEVICECANCEL = "@A@R"
612   -// Global Const PC_PRINTPS = "@A@T"
613   -// Global Const PC_CURSUPFAST = "@A@U"
614   -// Global Const PC_CURSDOWNFAST = "@A@V"
615   -// Global Const PC_HEX = "@A@X"
616   -// Global Const PC_FUNCTIONKEY = "@A@Y"
617   -// Global Const PC_CURSRIGHTFAST = "@A@Z"
618   -
619   -// Global Const PC_REVERSEVIDEO = "@A@9"
620   -// Global Const PC_UNDERSCORE = "@A@b"
621   -// Global Const PC_BLINK = "@A@c"
622   -// Global Const PC_RED = "@A@d"
623   -// Global Const PC_PINK = "@A@e"
624   -// Global Const PC_GREEN = "@A@f"
625   -// Global Const PC_YELLOW = "@A@g"
626   -// Global Const PC_BLUE = "@A@h"
627   -// Global Const PC_TURQOISE = "@A@i"
628   -// Global Const PC_WHITE = "@A@j"
629   -// Global Const PC_RSTHOSTCOLORS = "@A@l"
630   -// Global Const PC_PRINTPC = "@A@t"
631   -
632   -// Global Const PC_FIELDMINUS = "@A@-"
633   -// Global Const PC_FIELDPLUS = "@A@+"
634   -
635   - }
636   -
637   - buffer = ptr;
638   -
639   - }
640   -
641   - if(*buffer)
642   - hllapi_emulate_input(buffer,-1,0);
643   -
644   - }
645   - else
646   - {
647   - hllapi_emulate_input(text,szText,0);
648   - }
  318 + return (int) session::get_default()->find_string((const char *) text, false);
  319 + }
649 320  
650   - free(text);
651 321  
652   - return rc;
  322 + void hllapi_free(void *p)
  323 + {
  324 + free(p);
653 325 }
654 326  
  327 +
655 328 */
... ...
src/core/cursor.cc
  Diff comments   View file @b6e92dd
... ... @@ -40,7 +40,7 @@
40 40 if(!host.isConnected())
41 41 return HLLAPI_STATUS_DISCONNECTED;
42 42  
43   - host.setCursorPosition((unsigned short) pos -1);
  43 + host.setCursor((unsigned short) pos -1);
44 44  
45 45 return 0;
46 46  
... ... @@ -67,7 +67,7 @@
67 67 if(!host.isConnected())
68 68 return 0;
69 69  
70   - return (DWORD) (host.getCursorPosition()+1);
  70 + return (DWORD) (host.getCursorAddress()+1);
71 71  
72 72 } catch(std::exception &e) {
73 73  
... ...
src/core/get.cc
  Diff comments   View file @b6e92dd
... ... @@ -90,3 +90,52 @@
90 90  
91 91 }
92 92  
  93 + HLLAPI_API_CALL hllapi_get_lu_name(LPSTR buffer, WORD len) {
  94 +
  95 + try {
  96 +
  97 + TN3270::Host &host = getSession();
  98 +
  99 + if(!host.isConnected())
  100 + return HLLAPI_STATUS_DISCONNECTED;
  101 +
  102 + if(!(buffer && *buffer))
  103 + return HLLAPI_STATUS_BAD_PARAMETER;
  104 +
  105 +
  106 + if(len == 0)
  107 + return HLLAPI_STATUS_BAD_PARAMETER;
  108 +
  109 + string luname = host.getLUName();
  110 +
  111 + memset(buffer,' ',len);
  112 + strncpy((char *) buffer, luname.c_str(), std::min((size_t) len,luname.size()));
  113 +
  114 + } catch(std::exception &e) {
  115 +
  116 + hllapi_lasterror = e.what();
  117 + return HLLAPI_STATUS_SYSTEM_ERROR;
  118 +
  119 + }
  120 +
  121 + return HLLAPI_STATUS_SUCCESS;
  122 +
  123 + }
  124 +
  125 +
  126 + /*
  127 + char * hllapi_get_string(int offset, size_t len)
  128 + {
  129 + try
  130 + {
  131 + string str = session::get_default()->get_string(offset-1,len);
  132 + char * ret = strdup(str.c_str());
  133 + return ret;
  134 + }
  135 + catch(std::exception &e)
  136 + {
  137 + }
  138 +
  139 + return NULL;
  140 + }
  141 + */
... ...
src/core/hllapi.cc
  Diff comments   View file @b6e92dd
... ... @@ -27,6 +27,7 @@
27 27 *
28 28 */
29 29  
  30 + #include "private.h"
30 31 #include <lib3270/hllapi.h>
31 32  
32 33 /*--[ Prototipes ]-----------------------------------------------------------------------------------*/
... ... @@ -84,21 +85,26 @@
84 85  
85 86 /*--[ Implement ]------------------------------------------------------------------------------------*/
86 87  
87   -/*
88   -HLLAPI_API_CALL hllapi(const LPWORD func, LPSTR buffer, LPWORD length, LPWORD rc)
89   -{
90   - unsigned int f;
  88 +HLLAPI_API_CALL hllapi(const LPWORD func, LPSTR buffer, LPWORD length, LPWORD rc) {
91 89  
92   - trace("%s(%d)",__FUNCTION__,*func);
  90 + for(unsigned int f=0;f < (sizeof (hllapi_call) / sizeof ((hllapi_call)[0]));f++) {
  91 +
  92 + if(hllapi_call[f].func == *func) {
  93 +
  94 + try {
  95 +
  96 + return hllapi_call[f].exec(buffer,length,rc);
  97 +
  98 + } catch(std::exception &e) {
  99 +
  100 + hllapi_lasterror = e.what();
  101 + *rc = HLLAPI_STATUS_SYSTEM_ERROR;
  102 + return *rc;
  103 +
  104 + }
93 105  
94   - for(f=0;f< (sizeof (hllapi_call) / sizeof ((hllapi_call)[0]));f++)
95   - {
96   - if(hllapi_call[f].func == *func)
97   - {
98   - int status = hllapi_call[f].exec(buffer,length,rc);
99   - trace("hllapi(%d) exits with rc=%d",*func,status);
100   - return status;
101 106 }
  107 +
102 108 }
103 109  
104 110 trace("hllapi(%d) failed",*func);
... ... @@ -108,14 +114,13 @@ HLLAPI_API_CALL hllapi(const LPWORD func, LPSTR buffer, LPWORD length, LPWORD rc
108 114  
109 115 }
110 116  
111   -static int invalid_request(char *buffer, unsigned short *length, unsigned short *rc)
112   -{
  117 +static int invalid_request(char *buffer, unsigned short *length, unsigned short *rc) {
113 118 *rc = HLLAPI_STATUS_BAD_PARAMETER;
114 119 return *rc;
115 120 }
116 121  
117   -static int connect_ps(char *buffer, unsigned short *length, unsigned short *rc)
118   -{
  122 +static int connect_ps(char *buffer, unsigned short *length, unsigned short *rc) {
  123 +
119 124 char *tempbuffer = NULL;
120 125  
121 126 trace("%s: len=%d buflen=%d",__FUNCTION__,*length,(int) strlen(buffer));
... ... @@ -140,64 +145,87 @@ static int connect_ps(char *buffer, unsigned short *length, unsigned short *rc)
140 145 if(tempbuffer)
141 146 free(tempbuffer);
142 147  
143   - return 0;
  148 + return HLLAPI_STATUS_SUCCESS;
  149 +
144 150 }
145 151  
146   -static int disconnect_ps(char *buffer, unsigned short *length, unsigned short *rc)
147   -{
  152 +static int disconnect_ps(char *buffer, unsigned short *length, unsigned short *rc) {
148 153 *rc = hllapi_deinit();
149   - return 0;
  154 + return HLLAPI_STATUS_SUCCESS;
150 155 }
151 156  
152   -static int get_library_revision(char *buffer, unsigned short *length, unsigned short *rc)
153   -{
  157 +static int get_library_revision(char *buffer, unsigned short *length, unsigned short *rc) {
154 158 *rc = hllapi_get_revision();
155   - return 0;
  159 + return HLLAPI_STATUS_SUCCESS;
156 160 }
157 161  
158   -static int get_cursor_position(char *buffer, unsigned short *length, unsigned short *rc)
159   -{
160   - int pos = hllapi_getcursor();
  162 +static int get_cursor_position(char *buffer, unsigned short *length, unsigned short *rc) {
  163 +
  164 + try {
  165 +
  166 + TN3270::Host &host = getSession();
  167 +
  168 + if(!host.isConnected())
  169 + return HLLAPI_STATUS_DISCONNECTED;
  170 +
  171 + *rc = (unsigned short) (host.getCursorAddress()+1);
  172 +
  173 + } catch(std::exception &e) {
  174 +
  175 + hllapi_lasterror = e.what();
  176 + return HLLAPI_STATUS_SYSTEM_ERROR;
161 177  
162   - trace("%s(%d)",__FUNCTION__,pos);
  178 + }
163 179  
164   - if(pos < 0)
165   - return -1;
  180 + return HLLAPI_STATUS_SUCCESS;
166 181  
167   - *rc = pos;
168   - return 0;
169 182 }
170 183  
171   -static int set_cursor_position(char *buffer, unsigned short *length, unsigned short *rc)
172   -{
173   - trace("%s(%d)",__FUNCTION__,*rc);
174   - *rc = hllapi_setcursor(*rc);
175   - return 0;
  184 +static int set_cursor_position(char *buffer, unsigned short *length, unsigned short *rc) {
  185 +
  186 + try {
  187 +
  188 + TN3270::Host &host = getSession();
  189 +
  190 + if(!host.isConnected())
  191 + return HLLAPI_STATUS_DISCONNECTED;
  192 +
  193 + host.setCursor((unsigned short) *rc -1);
  194 +
  195 + return HLLAPI_STATUS_SUCCESS;
  196 +
  197 + } catch(std::exception &e) {
  198 +
  199 + hllapi_lasterror = e.what();
  200 +
  201 + }
  202 +
  203 + return HLLAPI_STATUS_SYSTEM_ERROR;
  204 +
176 205 }
177 206  
178   -static int copy_ps_to_str(char *buffer, unsigned short *length, unsigned short *rc)
179   -{
  207 +static int copy_ps_to_str(char *buffer, unsigned short *length, unsigned short *rc) {
180 208  
181 209 // Length Length of the target data string.
182 210 // PS Position Position within the host presentation space of the first byte in your target data string.
183 211 *rc = hllapi_get_screen(*rc,buffer,*length);
184 212  
185   - return 0;
  213 + return HLLAPI_STATUS_SUCCESS;
186 214 }
187 215  
188   -static int input_string(char *buffer, unsigned short *length, unsigned short *rc)
189   -{
  216 +static int input_string(char *buffer, unsigned short *length, unsigned short *rc) {
190 217 *rc = hllapi_input_string(buffer,*length);
191   - return 0;
  218 + return HLLAPI_STATUS_SUCCESS;
192 219 }
193 220  
194   -static int search_ps(char *buffer, unsigned short *length, unsigned short *ps)
195   -{
  221 +static int search_ps(char *buffer, unsigned short *length, unsigned short *ps) {
  222 +
196 223 //
197 224 // Data String Target string for search.
198 225 // Length Length of the target data string. Overridden in EOT mode.
199   - // PS Position Position within the host presentation space where the search is to begin (SRCHFRWD option) or to end
200   - // (SRCHBKWD option). Overridden in SRCHALL (default) mode.
  226 + //
  227 + // PS Position Position within the host presentation space where the search is to begin (SRCHFRWD option) or to end
  228 + // (SRCHBKWD option). Overridden in SRCHALL (default) mode.
201 229 //
202 230 // Return in *ps:
203 231 //
... ... @@ -206,65 +234,95 @@ static int search_ps(char *buffer, unsigned short *length, unsigned short *ps)
206 234 //
207 235 // Return code:
208 236 //
209   - // 0 The Search Presentation Space function was successful.
210   - // 1 Your program is not connected to a host session.
211   - // 2 An error was made in specifying parameters.
212   - // 7 The host presentation space position is not valid.
213   - // 9 A system error was encountered.
214   - // 24 The search string was not found.
  237 + // 0 HLLAPI_STATUS_SUCCESS The Search Presentation Space function was successful.
  238 + // 1 HLLAPI_STATUS_DISCONNECTED Your program is not connected to a host session.
  239 + // 2 HLLAPI_STATUS_BAD_PARAMETER An error was made in specifying parameters.
  240 + // 7 HLLAPI_STATUS_BAD_POSITION The host presentation space position is not valid.
  241 + // 9 HLLAPI_STATUS_SYSTEM_ERROR A system error was encountered.
  242 + // 24 HLLAPI_STATUS_NOT_FOUND The search string was not found.
215 243 //
216 244 //
217   - size_t szBuffer = strlen(buffer);
218   - char * text;
219   - int rc = HLLAPI_STATUS_SYSTEM_ERROR;
220 245  
221   - if(!hllapi_is_connected())
222   - return HLLAPI_STATUS_DISCONNECTED;
  246 + try {
223 247  
224   - if(*length < szBuffer)
225   - szBuffer = *length;
  248 + TN3270::Host &host = getSession();
226 249  
  250 + if(!host.isConnected())
  251 + return HLLAPI_STATUS_DISCONNECTED;
227 252  
228   - text = hllapi_get_string(*ps,szBuffer);
229   - if(!text)
230   - return HLLAPI_STATUS_SYSTEM_ERROR;
  253 + string contents = host.toString(0,-1,0);
  254 +
  255 + if( ((size_t) *ps) >= contents.size())
  256 + return HLLAPI_STATUS_BAD_POSITION;
  257 +
  258 + size_t pos = contents.find(buffer, ((size_t) *ps));
  259 +
  260 + if(pos == string::npos) {
  261 + *ps = 0;
  262 + return HLLAPI_STATUS_NOT_FOUND;
  263 + }
  264 +
  265 + *ps = pos;
  266 +
  267 + return HLLAPI_STATUS_SUCCESS;
  268 +
  269 + } catch(std::exception &e) {
  270 +
  271 + hllapi_lasterror = e.what();
231 272  
232   - if(strncmp(text,buffer,szBuffer))
233   - {
234   - // String not found
235   - *ps = 0;
236   - rc = HLLAPI_STATUS_NOT_FOUND;
237   - }
238   - else
239   - {
240   - // String found
241   - *ps = 1;
242   - rc = HLLAPI_STATUS_SUCCESS;
243 273 }
244 274  
245   - hllapi_free(text);
  275 + return HLLAPI_STATUS_SYSTEM_ERROR;
246 276  
247   - return rc;
248 277 }
249 278  
250   -static int copy_ps(char *buffer, unsigned short *length, unsigned short *rc)
251   -{
  279 +static int copy_ps(char *buffer, unsigned short *length, unsigned short *rc) {
  280 +
252 281 //
253   - // Data String Preallocated target string the size of your host presentation space. This can vary depending on how your host presentation space is configured. When the Set Session Parameters (9) function with the EAB option is issued, the length of the data string must be at least twice the length of the presentation space.
254   - // DBCS Only: When the EAD option is specified, the length of the data string must be at least three times the length of the presentation space. When both the EAB and EAD options are specified, the length of the data string must be at least four times the length of the presentation space.
  282 + // Data String Preallocated target string the size of your host presentation space. This can vary depending on how your host presentation space
  283 + // is configured. When the Set Session Parameters (9) function with the EAB option is issued, the length of the data string must be
  284 + // at least twice the length of the presentation space.
  285 + // DBCS Only: When the EAD option is specified, the length of the data string must be at least three times the length of the
  286 + // presentation space. When both the EAB and EAD options are specified, the length of the data string must be at least four times
  287 + // the length of the presentation space.
255 288 //
256 289 // Length NA (the length of the host presentation space is implied).
257 290 // PS Position NA.
258 291 //
259 292 // Return values:
260 293 //
261   - // 0 The host presentation space contents were copied to the application program. The target presentation space was active, and the keyboard was unlocked.
262   - // 1 Your program is not connected to a host session.
263   - // 4 The host presentation space contents were copied. The connected host presentation space was waiting for host response.
264   - // 5 The host presentation space was copied. The keyboard was locked.
265   - // 9 A system error was encountered.
  294 + // 0 HLLAPI_STATUS_SUCCESS The host presentation space contents were copied to the application program. The target presentation space was active, and the keyboard was unlocked.
  295 + // 1 HLLAPI_STATUS_DISCONNECTED Your program is not connected to a host session.
  296 + // 4 HLLAPI_STATUS_TIMEOUT The host presentation space contents were copied. The connected host presentation space was waiting for host response.
  297 + // 5 HLLAPI_STATUS_KEYBOARD_LOCKED The host presentation space was copied. The keyboard was locked.
  298 + // 9 HLLAPI_STATUS_SYSTEM_ERROR A system error was encountered.
266 299 //
267 300 //
  301 + try {
  302 +
  303 + TN3270::Host &host = getSession();
  304 +
  305 + if(!host.isConnected())
  306 + return HLLAPI_STATUS_DISCONNECTED;
  307 +
  308 + string contents = host.toString(0,-1,0);
  309 +
  310 + size_t szBuffer = std::min(contents.size(), ((size_t) *length));
  311 + *length = (unsigned short) szBuffer;
  312 +
  313 + strncpy(buffer,contents.c_str(),szBuffer);
  314 +
  315 + return hllapi_get_state();
  316 +
  317 + } catch(std::exception &e) {
  318 +
  319 + hllapi_lasterror = e.what();
  320 +
  321 + }
  322 +
  323 + return HLLAPI_STATUS_SYSTEM_ERROR;
  324 +
  325 + /*
268 326 size_t szBuffer = strlen(buffer);
269 327 char * text;
270 328  
... ... @@ -281,10 +339,13 @@ static int copy_ps(char *buffer, unsigned short *length, unsigned short *rc)
281 339 hllapi_free(text);
282 340  
283 341 return hllapi_get_state();
  342 + */
  343 +
  344 + return HLLAPI_STATUS_SYSTEM_ERROR;
284 345 }
285 346  
286   -static int wait_system(char *buffer, unsigned short *length, unsigned short *rc)
287   -{
  347 +static int wait_system(char *buffer, unsigned short *length, unsigned short *rc) {
  348 +
288 349 //
289 350 // Checks the status of the host-connected presentation space. If the session is
290 351 // waiting for a host response (indicated by XCLOCK (X []) or XSYSTEM), the Wait
... ... @@ -303,13 +364,13 @@ static int wait_system(char *buffer, unsigned short *length, unsigned short *rc)
303 364 //
304 365 //
305 366  
306   - int state = hllapi_wait_for_ready(60);
307   - return (state == HLLAPI_STATUS_WAITING ? HLLAPI_STATUS_TIMEOUT : state);
  367 + int state = hllapi_wait_for_ready(60);
  368 + return (state == HLLAPI_STATUS_WAITING ? HLLAPI_STATUS_TIMEOUT : state);
308 369  
309 370 }
310 371  
311   -static int copy_str_to_ps(char *text, unsigned short *length, unsigned short *ps)
312   -{
  372 +static int copy_str_to_ps(char *text, unsigned short *length, unsigned short *ps) {
  373 + /*
313 374 //
314 375 // Call Parameters
315 376 //
... ... @@ -357,16 +418,17 @@ static int copy_str_to_ps(char *text, unsigned short *length, unsigned short *ps
357 418 }
358 419  
359 420 return hllapi_emulate_input(text,szText,0);
  421 + */
360 422 }
361 423  
362   -static int reset_system(char *buffer, unsigned short *length, unsigned short *rc)
363   -{
364   - return hllapi_reset();
  424 +static int reset_system(char *buffer, unsigned short *length, unsigned short *rc) {
  425 + return hllapi_kybdreset();
365 426 }
366 427  
367 428  
368   -static int pause_system(char *buffer, unsigned short *length, unsigned short *rc)
369   -{
  429 +static int pause_system(char *buffer, unsigned short *length, unsigned short *rc) {
  430 +
  431 + /*
370 432 if(!*length)
371 433 {
372 434 // If you use the IPAUSE option and the pause value is zero, then the function
... ... @@ -392,6 +454,7 @@ static int pause_system(char *buffer, unsigned short *length, unsigned short *rc
392 454 // #warning Mudar comportamento na lib!
393 455  
394 456 return hllapi_wait_for_ready((*length) / 2);
  457 + */
395 458 }
396 459  
397 460 static int set_session_parameters(char *buffer, unsigned short *length, unsigned short *rc)
... ... @@ -403,41 +466,38 @@ static int set_session_parameters(char *buffer, unsigned short *length, unsigned
403 466  
404 467 *rc = hllapi_set_session_parameter(buffer, *length, *rc);
405 468  
406   - return 0;
  469 + return HLLAPI_STATUS_SUCCESS;
407 470 }
408 471  
409 472 HLLAPI_API_CALL hllapi_set_session_parameter(LPSTR param, WORD len, WORD value)
410 473 {
411 474 if(!param)
412   - {
413 475 return HLLAPI_STATUS_BAD_PARAMETER;
414   - }
415 476  
416 477 if(!len)
417   - {
418 478 len = strlen(param);
419   - }
420 479  
421   - if(!strncasecmp(param,"IPAUSE",len))
422   - {
  480 + if(!strncasecmp(param,"IPAUSE",len)) {
  481 +
423 482 // IPAUSE
424 483 pause_mode = PAUSE_MODE_IPAUSE;
425   - }
426   - else if(!strncasecmp(param,"FPAUSE",len))
427   - {
  484 +
  485 + } else if(!strncasecmp(param,"FPAUSE",len)) {
  486 +
428 487 // FPAUSE
429 488 pause_mode = PAUSE_MODE_FPAUSE;
430   - }
431   - else if(!strncasecmp(param,"UNLOCKDELAY",len))
432   - {
  489 +
  490 + } else if(!strncasecmp(param,"UNLOCKDELAY",len)) {
  491 +
433 492 // UNLOCKDELAY
434 493 hllapi_set_unlock_delay(value);
435   - }
436   - else
437   - {
  494 +
  495 + } else {
  496 +
438 497 return HLLAPI_STATUS_BAD_PARAMETER;
  498 +
439 499 }
440 500  
441 501 return HLLAPI_STATUS_SUCCESS;
442 502 }
443   -*/
  503 +
... ...
src/core/set.cc 0 → 100644
  Diff comments   View file @b6e92dd
... ... @@ -0,0 +1,114 @@
  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 +
  32 + #include <string>
  33 +
  34 +
  35 +/*--[ Implement ]------------------------------------------------------------------------------------*/
  36 +
  37 + HLLAPI_API_CALL hllapi_set_text_at(WORD row, WORD col, LPSTR text) {
  38 +
  39 + try {
  40 +
  41 + TN3270::Host &host = getSession();
  42 +
  43 + if(!host.isConnected())
  44 + return HLLAPI_STATUS_DISCONNECTED;
  45 +
  46 + if(!(text && *text))
  47 + return HLLAPI_STATUS_BAD_PARAMETER;
  48 +
  49 + host.push(row,col,(const char *) text);
  50 +
  51 +
  52 + } catch(std::exception &e) {
  53 +
  54 + hllapi_lasterror = e.what();
  55 + return HLLAPI_STATUS_SYSTEM_ERROR;
  56 +
  57 + }
  58 +
  59 + return HLLAPI_STATUS_SUCCESS;
  60 +
  61 + }
  62 +
  63 + HLLAPI_API_CALL hllapi_input_string(LPSTR text, WORD length)
  64 + {
  65 +
  66 + try {
  67 +
  68 + TN3270::Host &host = getSession();
  69 +
  70 + if(!host.isConnected())
  71 + return HLLAPI_STATUS_DISCONNECTED;
  72 +
  73 + if(!(text && *text))
  74 + return HLLAPI_STATUS_BAD_PARAMETER;
  75 +
  76 + if(!length)
  77 + length = strlen(text);
  78 +
  79 + host.input((const char *) text, (size_t) length);
  80 +
  81 + } catch(std::exception &e) {
  82 +
  83 + hllapi_lasterror = e.what();
  84 + return HLLAPI_STATUS_SYSTEM_ERROR;
  85 +
  86 + }
  87 +
  88 + return HLLAPI_STATUS_SUCCESS;
  89 +
  90 +
  91 + }
  92 +
  93 +
  94 +
  95 + /*
  96 + HLLAPI_API_CALL hllapi_emulate_input(const LPSTR buffer, WORD len, WORD pasting)
  97 + {
  98 + if(!hllapi_is_connected())
  99 + return HLLAPI_STATUS_DISCONNECTED;
  100 +
  101 + try
  102 + {
  103 + session::get_default()->input_string(buffer);
  104 + }
  105 + catch(std::exception &e)
  106 + {
  107 + return HLLAPI_STATUS_SYSTEM_ERROR;
  108 + }
  109 +
  110 + return HLLAPI_STATUS_SUCCESS;
  111 + }
  112 +
  113 +
  114 + */
... ...
src/include/lib3270/hllapi.h
  Diff comments   View file @b6e92dd
... ... @@ -27,142 +27,149 @@
27 27 *
28 28 */
29 29  
30   - #ifdef __cplusplus
31   - extern "C" {
32   - #endif
33   -
34   - #define HLLAPI_MAXLENGTH 4096
35   -
36   - /**
37   - * @brief Function codes
38   - *
39   - * Reference http://www.ibm.com/support/knowledgecenter/SSEQ5Y_6.0.0/com.ibm.pcomm.doc/books/html/emulator_programming08.htm
40   - *
41   - */
42   - typedef enum hllapi_cmd {
43   - HLLAPI_CMD_CONNECTPS = 1, /// @brief connect presentation space
44   - HLLAPI_CMD_DISCONNECTPS = 2, /// @brief disconnect presentation space
45   - HLLAPI_CMD_INPUTSTRING = 3, /// @brief send string
46   - HLLAPI_CMD_WAIT = 4, /// @brief Wait if the session is waiting for a host response
47   - HLLAPI_CMD_COPYPS = 5, /// @brief Copies the contents of the presentation space into a string buffer.
48   - HLLAPI_CMD_SEARCHPS = 6, /// @brief Search the presentation space for a specified string.
49   - HLLAPI_CMD_QUERYCURSOR = 7, /// @brief Determines the location of the cursor in the presentation space.
50   - HLLAPI_CMD_COPYPSTOSTR = 8, /// @brief Copy presentation space to string
51   - HLLAPI_SET_SESSION_PARAMETERS = 9, /// @brief Lets you change certain default session options in EHLLAPI for all sessions.
52   - HLLAPI_CMD_COPYSTRTOPS = 15, /// @brief Copies an ASCII string directly to a specified position in the presentation space.
53   - HLLAPI_CMD_PAUSE = 18, /// @brief Waits for a specified amount of time.
54   - HLLAPI_RESET_SYSTEM = 21, /// @brief Reinitializes EHLLAPI to its starting state.
55   - HLLAPI_CMD_SETCURSOR = 40, /// @brief Places the cursor at a specified position in presentation space.
56   - HLLAPI_CMD_SENDFILE = 90, /// @brief Send file to the host
57   - HLLAPI_CMD_RECEIVEFILE = 91, /// @brief Receive a file from the host
58   -
59   - HLLAPI_CMD_GETREVISION = 2000 /// @brief Get lib3270 revision
60   - } HLLAPI_CMD;
61   -
62   -
63   - /**
64   - * @brief Standard Return Codes
65   - *
66   - * http://ps-2.kev009.com/tl/techlib/manuals/adoclib/3270hcon/hconugd/retrncod.htm#C20819C058kmar
67   - */
68   - typedef enum hllapi_status {
69   -
70   - /// @brief Good return code.
71   - ///
72   - /// Either the function was successfully executed, or there were no host updates since the last call was issued.
73   - HLLAPI_STATUS_SUCCESS = 0,
74   -
75   - /// @brief The presentation space was not valid or not connected.
76   - ///
77   - /// Either the presentation space short session ID was invalid, or the application is not connected.
78   - HLLAPI_STATUS_DISCONNECTED = 1,
79   -
80   - /// @brief An incorrect option was specified.
81   - HLLAPI_STATUS_BAD_PARAMETER = 2,
82   -
83   - /// @brief The execution of the function was inhibited because the target presentation space was busy.
84   - ///
85   - /// For example, X or XSYSTEM is displayed in the OIA for the 3270 terminal emulation.
86   - HLLAPI_STATUS_TIMEOUT = 4,
87   -
88   - /// @brief The execution of the function was inhibited for some reason other than the reasons stated in return code 4.
89   - HLLAPI_STATUS_KEYBOARD_LOCKED = 5,
90   -
91   - // 06 A data error occurred due to specification of an invalid parameter (for example, a length error causing truncation).
92   - // 07 The specified presentation space position was invalid.
93   - // 08 No prerequisite function was issued.
94   -
95   - /// @brief A system error occurred.
96   - HLLAPI_STATUS_SYSTEM_ERROR = 9,
97   -
98   - /// @brief The function number is not supported by the emulation program.
99   - HLLAPI_STATUS_UNSUPPORTED = 10,
100   -
101   - /// @brief Resource unavailable at this time.
102   - ///
103   - /// The resource that you requested is unavailable (for example, too many attempts have been made to connect to the same presentation space (PS) or another application is connected to the PS).
104   - HLLAPI_STATUS_UNAVAILABLE = 11,
105   -
106   - // 20 Invalid keystroke caused by ESC= option.
107   - // 21 OIA was updated.
108   - // 22 PS was updated.
109   - // 23 Both OIA and PS were updated.
110   -
111   - /// @brief Either the string was not found, or the presentation space is unformatted.
112   - HLLAPI_STATUS_NOT_FOUND = 24,
113   -
114   - // 25 Keystrokes were not available on input queue.
115   - // 26 A host event occurred. See QUERY HOST UPDATE (24) for details.
116   - // 28 Field length was 0.
117   - // 31 Keystroke queue overflow. Keystrokes were lost.
118   -
119   - } HLLAPI_STATUS;
120   -
121   - #define HLLAPI_STATUS_WAITING HLLAPI_STATUS_TIMEOUT
122   -
123   - #if defined(_WIN32)
124   -
125   - #include <windows.h>
126   -
127   - // http://www.mingw.org/wiki/Visual_Basic_DLL
128   - #define HLLAPI_API_CALL __declspec (dllexport) DWORD __stdcall
129   - #define HLLAPI_API_CSTR __declspec (dllexport) const char * __stdcall
130   -
131   - #else
132   -
133   - #include <cstdint>
134   -
135   - // From wtypesbase.h
136   - typedef uint8_t BYTE;
137   - typedef uint16_t WORD;
138   - typedef unsigned int UINT;
139   - typedef int INT;
140   - typedef uint32_t LONG;
141   - typedef LONG WINBOOL;
142   - typedef uint32_t DWORD;
143   - typedef void *HANDLE;
144   - typedef WORD *LPWORD;
145   - typedef DWORD *LPDWORD;
146   - typedef char CHAR;
147   - typedef CHAR *LPSTR;
148   - typedef const CHAR *LPCSTR;
149   - typedef char WCHAR;
150   - typedef WCHAR TCHAR;
151   - typedef WCHAR *LPWSTR;
152   - typedef TCHAR *LPTSTR;
153   - typedef const WCHAR *LPCWSTR;
154   - typedef const TCHAR *LPCTSTR;
155   - typedef HANDLE *LPHANDLE;
  30 +#ifndef HLLAPI_H_INCLUDED
156 31  
157   - #define LPWORD uint16_t *
  32 + #define HLLAPI_H_INCLUDED 1
158 33  
159   - #define LPSTR char *
160   - #define HANDLE int
  34 + #ifdef __cplusplus
  35 + extern "C" {
  36 + #endif
161 37  
162   - #define HLLAPI_API_CALL __attribute__((visibility("default"))) extern DWORD
163   - #define HLLAPI_API_CSTR __attribute__((visibility("default"))) extern const char *
  38 + #define HLLAPI_MAXLENGTH 4096
164 39  
165   - #endif // _WIN32
  40 + /**
  41 + * @brief Function codes
  42 + *
  43 + * Reference http://www.ibm.com/support/knowledgecenter/SSEQ5Y_6.0.0/com.ibm.pcomm.doc/books/html/emulator_programming08.htm
  44 + *
  45 + */
  46 + typedef enum hllapi_cmd {
  47 + HLLAPI_CMD_CONNECTPS = 1, /// @brief connect presentation space
  48 + HLLAPI_CMD_DISCONNECTPS = 2, /// @brief disconnect presentation space
  49 + HLLAPI_CMD_INPUTSTRING = 3, /// @brief send string
  50 + HLLAPI_CMD_WAIT = 4, /// @brief Wait if the session is waiting for a host response
  51 + HLLAPI_CMD_COPYPS = 5, /// @brief Copies the contents of the presentation space into a string buffer.
  52 + HLLAPI_CMD_SEARCHPS = 6, /// @brief Search the presentation space for a specified string.
  53 + HLLAPI_CMD_QUERYCURSOR = 7, /// @brief Determines the location of the cursor in the presentation space.
  54 + HLLAPI_CMD_COPYPSTOSTR = 8, /// @brief Copy presentation space to string
  55 + HLLAPI_SET_SESSION_PARAMETERS = 9, /// @brief Lets you change certain default session options in EHLLAPI for all sessions.
  56 + HLLAPI_CMD_COPYSTRTOPS = 15, /// @brief Copies an ASCII string directly to a specified position in the presentation space.
  57 + HLLAPI_CMD_PAUSE = 18, /// @brief Waits for a specified amount of time.
  58 + HLLAPI_RESET_SYSTEM = 21, /// @brief Reinitializes EHLLAPI to its starting state.
  59 + HLLAPI_CMD_SETCURSOR = 40, /// @brief Places the cursor at a specified position in presentation space.
  60 + HLLAPI_CMD_SENDFILE = 90, /// @brief Send file to the host
  61 + HLLAPI_CMD_RECEIVEFILE = 91, /// @brief Receive a file from the host
  62 +
  63 + HLLAPI_CMD_GETREVISION = 2000 /// @brief Get lib3270 revision
  64 + } HLLAPI_CMD;
  65 +
  66 +
  67 + /**
  68 + * @brief Standard Return Codes
  69 + *
  70 + * http://ps-2.kev009.com/tl/techlib/manuals/adoclib/3270hcon/hconugd/retrncod.htm#C20819C058kmar
  71 + */
  72 + typedef enum hllapi_status {
  73 +
  74 + /// @brief Good return code.
  75 + ///
  76 + /// Either the function was successfully executed, or there were no host updates since the last call was issued.
  77 + HLLAPI_STATUS_SUCCESS = 0,
  78 +
  79 + /// @brief The presentation space was not valid or not connected.
  80 + ///
  81 + /// Either the presentation space short session ID was invalid, or the application is not connected.
  82 + HLLAPI_STATUS_DISCONNECTED = 1,
  83 +
  84 + /// @brief An incorrect option was specified.
  85 + HLLAPI_STATUS_BAD_PARAMETER = 2,
  86 +
  87 + /// @brief The execution of the function was inhibited because the target presentation space was busy.
  88 + ///
  89 + /// For example, X or XSYSTEM is displayed in the OIA for the 3270 terminal emulation.
  90 + HLLAPI_STATUS_TIMEOUT = 4,
  91 +
  92 + /// @brief The execution of the function was inhibited for some reason other than the reasons stated in return code 4.
  93 + HLLAPI_STATUS_KEYBOARD_LOCKED = 5,
  94 +
  95 + // 06 A data error occurred due to specification of an invalid parameter (for example, a length error causing truncation).
  96 +
  97 + /// @brief The specified presentation space position was invalid.
  98 + HLLAPI_STATUS_BAD_POSITION = 7,
  99 +
  100 + // 08 No prerequisite function was issued.
  101 +
  102 + /// @brief A system error occurred.
  103 + HLLAPI_STATUS_SYSTEM_ERROR = 9,
  104 +
  105 + /// @brief The function number is not supported by the emulation program.
  106 + HLLAPI_STATUS_UNSUPPORTED = 10,
  107 +
  108 + /// @brief Resource unavailable at this time.
  109 + ///
  110 + /// The resource that you requested is unavailable (for example, too many attempts have been made to connect to the same presentation space (PS) or another application is connected to the PS).
  111 + HLLAPI_STATUS_UNAVAILABLE = 11,
  112 +
  113 + // 20 Invalid keystroke caused by ESC= option.
  114 + // 21 OIA was updated.
  115 + // 22 PS was updated.
  116 + // 23 Both OIA and PS were updated.
  117 +
  118 + /// @brief Either the string was not found, or the presentation space is unformatted.
  119 + HLLAPI_STATUS_NOT_FOUND = 24,
  120 +
  121 + // 25 Keystrokes were not available on input queue.
  122 + // 26 A host event occurred. See QUERY HOST UPDATE (24) for details.
  123 + // 28 Field length was 0.
  124 + // 31 Keystroke queue overflow. Keystrokes were lost.
  125 +
  126 + } HLLAPI_STATUS;
  127 +
  128 + #define HLLAPI_STATUS_WAITING HLLAPI_STATUS_TIMEOUT
  129 +
  130 + #if defined(_WIN32)
  131 +
  132 + #include <windows.h>
  133 +
  134 + // http://www.mingw.org/wiki/Visual_Basic_DLL
  135 + #define HLLAPI_API_CALL __declspec (dllexport) DWORD __stdcall
  136 + #define HLLAPI_API_CSTR __declspec (dllexport) const char * __stdcall
  137 +
  138 + #else
  139 +
  140 + #include <cstdint>
  141 +
  142 + // From wtypesbase.h
  143 + typedef uint8_t BYTE;
  144 + typedef uint16_t WORD;
  145 + typedef unsigned int UINT;
  146 + typedef int INT;
  147 + typedef uint32_t LONG;
  148 + typedef LONG WINBOOL;
  149 + typedef uint32_t DWORD;
  150 + typedef void *HANDLE;
  151 + typedef WORD *LPWORD;
  152 + typedef DWORD *LPDWORD;
  153 + typedef char CHAR;
  154 + typedef CHAR *LPSTR;
  155 + typedef const CHAR *LPCSTR;
  156 + typedef char WCHAR;
  157 + typedef WCHAR TCHAR;
  158 + typedef WCHAR *LPWSTR;
  159 + typedef TCHAR *LPTSTR;
  160 + typedef const WCHAR *LPCWSTR;
  161 + typedef const TCHAR *LPCTSTR;
  162 + typedef HANDLE *LPHANDLE;
  163 +
  164 + #define LPWORD uint16_t *
  165 +
  166 + #define LPSTR char *
  167 + #define HANDLE int
  168 +
  169 + #define HLLAPI_API_CALL __attribute__((visibility("default"))) extern DWORD
  170 + #define HLLAPI_API_CSTR __attribute__((visibility("default"))) extern const char *
  171 +
  172 + #endif // _WIN32
166 173  
167 174 HLLAPI_API_CALL hllapi(const LPWORD func, LPSTR str, LPWORD length, LPWORD rc);
168 175  
... ... @@ -196,15 +203,15 @@
196 203 HLLAPI_API_CALL hllapi_set_text_at(WORD row, WORD col, LPSTR text);
197 204 HLLAPI_API_CALL hllapi_cmp_text_at(WORD row, WORD col, LPSTR text);
198 205 HLLAPI_API_CALL hllapi_find_text(LPSTR text);
199   - HLLAPI_API_CALL hllapi_emulate_input(const LPSTR buffer, WORD len, WORD pasting);
200   - HLLAPI_API_CALL hllapi_input_string(LPSTR buffer, WORD len);
  206 + HLLAPI_API_CALL hllapi_emulate_input(const LPSTR buffer, WORD len, WORD pasting);
  207 + HLLAPI_API_CALL hllapi_input_string(LPSTR buffer, WORD len);
201 208 HLLAPI_API_CALL hllapi_wait_for_ready(WORD seconds);
202 209 HLLAPI_API_CALL hllapi_wait_for_change(WORD seconds);
203 210 HLLAPI_API_CALL hllapi_wait(WORD seconds);
204 211 HLLAPI_API_CALL hllapi_pfkey(WORD key);
205 212 HLLAPI_API_CALL hllapi_pakey(WORD key);
206 213  
207   - HLLAPI_API_CALL hllapi_set_session_parameter(LPSTR param, WORD len, WORD value);
  214 + HLLAPI_API_CALL hllapi_set_session_parameter(LPSTR param, WORD len, WORD value);
208 215  
209 216 HLLAPI_API_CALL hllapi_erase(void);
210 217 HLLAPI_API_CALL hllapi_erase_eof(void);
... ... @@ -220,8 +227,25 @@
220 227  
221 228 HLLAPI_API_CSTR hllapi_get_last_error();
222 229  
223   - #ifdef __cplusplus
224   - } /* end of extern "C" */
225   - #endif
  230 + HLLAPI_API_CALL hllapi_set_unlock_delay(WORD ms);
  231 +
  232 + /**
  233 + * @brief Get cursor address.
  234 + *
  235 + * @return Cursor address.
  236 + *
  237 + */
  238 + HLLAPI_API_CALL hllapi_get_cursor_address();
  239 +
  240 + /**
  241 + * @brief Get LU Name.
  242 + *
  243 + */
  244 + HLLAPI_API_CALL hllapi_get_lu_name(LPSTR buffer, WORD len);
  245 +
  246 + #ifdef __cplusplus
  247 + } /* end of extern "C" */
  248 + #endif
226 249  
227 250  
  251 +#endif // HLLAPI_H_INCLUDED
... ...