Download as
Browse Code »

Commit 3f54fda911a1bba1696d1d1326cc82017cd644ac

Authored by Perry Werneck
1 parent 62f1e686
Exists in master

Iniciando reimplementação do módulo ooRexx.

Showing 5 changed files with 149 additions and 139 deletions   Show diff stats
pw3270-rexx.cbp
  Diff comments   View file @3f54fda
... ... @@ -35,12 +35,15 @@
35 35 </Build>
36 36 <Compiler>
37 37 <Add option="-Wall" />
  38 + <Add option="`pkg-config --cflags gtk+-3.0`" />
38 39 </Compiler>
39 40 <Linker>
  41 + <Add option="`pkg-config --libs gtk+-3.0`" />
40 42 <Add library="pw3270cpp" />
41 43 </Linker>
  44 + <Unit filename="src/plugin.cc" />
  45 + <Unit filename="src/private.h" />
42 46 <Unit filename="src/rexx_methods.cc" />
43   - <Unit filename="src/rx3270.h" />
44 47 <Unit filename="src/typed_routines.cc" />
45 48 <Extensions>
46 49 <code_completion />
... ...
src/private.h 0 → 100644
  Diff comments   View file @3f54fda
... ... @@ -0,0 +1,143 @@
  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 private.h 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 +#ifndef RX3270_H_INCLUDED
  31 +
  32 + #define RX3270_H_INCLUDED 1
  33 +
  34 + #define ENABLE_NLS
  35 + #define GETTEXT_PACKAGE "pw3270"
  36 +
  37 + #include <libintl.h>
  38 + #include <glib/gi18n.h>
  39 + #include <gtk/gtk.h>
  40 +
  41 + #include <stdint.h>
  42 + #include <errno.h>
  43 + #include <stdio.h>
  44 + #include <stdarg.h>
  45 + #include <pw3270cpp.h>
  46 + #include <oorexxapi.h>
  47 +
  48 +/*---[ Rexx entry points ]-----------------------------------------------------------------------------------*/
  49 +
  50 + REXX_TYPED_ROUTINE_PROTOTYPE(rx3270version);
  51 + REXX_TYPED_ROUTINE_PROTOTYPE(rx3270QueryCState);
  52 + REXX_TYPED_ROUTINE_PROTOTYPE(rx3270Disconnect);
  53 + REXX_TYPED_ROUTINE_PROTOTYPE(rx3270Connect);
  54 + REXX_TYPED_ROUTINE_PROTOTYPE(rx3270isConnected);
  55 + REXX_TYPED_ROUTINE_PROTOTYPE(rx3270WaitForEvents);
  56 + REXX_TYPED_ROUTINE_PROTOTYPE(rx3270Sleep);
  57 + REXX_TYPED_ROUTINE_PROTOTYPE(rx3270SendENTERKey);
  58 + REXX_TYPED_ROUTINE_PROTOTYPE(rx3270SendPFKey);
  59 + REXX_TYPED_ROUTINE_PROTOTYPE(rx3270SendPAKey);
  60 + REXX_TYPED_ROUTINE_PROTOTYPE(rx3270WaitForTerminalReady);
  61 + REXX_TYPED_ROUTINE_PROTOTYPE(rx3270WaitForStringAt);
  62 + REXX_TYPED_ROUTINE_PROTOTYPE(rx3270GetStringAt);
  63 + REXX_TYPED_ROUTINE_PROTOTYPE(rx3270IsTerminalReady);
  64 + REXX_TYPED_ROUTINE_PROTOTYPE(rx3270queryStringAt);
  65 + REXX_TYPED_ROUTINE_PROTOTYPE(rx3270SetStringAt);
  66 + REXX_TYPED_ROUTINE_PROTOTYPE(rx3270CloseApplication);
  67 + REXX_TYPED_ROUTINE_PROTOTYPE(ebc2asc);
  68 + REXX_TYPED_ROUTINE_PROTOTYPE(asc2ebc);
  69 +
  70 + REXX_TYPED_ROUTINE_PROTOTYPE(rx3270Erase);
  71 + REXX_TYPED_ROUTINE_PROTOTYPE(rx3270EraseEOF);
  72 + REXX_TYPED_ROUTINE_PROTOTYPE(rx3270EraseEOL);
  73 + REXX_TYPED_ROUTINE_PROTOTYPE(rx3270EraseInput);
  74 +
  75 + REXX_TYPED_ROUTINE_PROTOTYPE(rx3270IsProtected);
  76 + REXX_TYPED_ROUTINE_PROTOTYPE(rx3270IsProtectedAt);
  77 + REXX_TYPED_ROUTINE_PROTOTYPE(rx3270SetUnlockDelay);
  78 +
  79 + REXX_METHOD_PROTOTYPE(rx3270_method_version);
  80 + REXX_METHOD_PROTOTYPE(rx3270_method_revision);
  81 + REXX_METHOD_PROTOTYPE(rx3270_method_init);
  82 + REXX_METHOD_PROTOTYPE(rx3270_method_uninit);
  83 + REXX_METHOD_PROTOTYPE(rx3270_method_connect);
  84 + REXX_METHOD_PROTOTYPE(rx3270_method_disconnect);
  85 + REXX_METHOD_PROTOTYPE(rx3270_method_sleep);
  86 + REXX_METHOD_PROTOTYPE(rx3270_method_is_connected);
  87 + REXX_METHOD_PROTOTYPE(rx3270_method_is_ready);
  88 + REXX_METHOD_PROTOTYPE(rx3270_method_wait_for_ready);
  89 + REXX_METHOD_PROTOTYPE(rx3270_method_set_cursor);
  90 + REXX_METHOD_PROTOTYPE(rx3270_method_get_cursor_addr);
  91 + REXX_METHOD_PROTOTYPE(rx3270_method_set_cursor_addr);
  92 + REXX_METHOD_PROTOTYPE(rx3270_method_enter);
  93 + REXX_METHOD_PROTOTYPE(rx3270_method_erase);
  94 + REXX_METHOD_PROTOTYPE(rx3270_method_erase_eof);
  95 + REXX_METHOD_PROTOTYPE(rx3270_method_erase_eol);
  96 + REXX_METHOD_PROTOTYPE(rx3270_method_erase_input);
  97 + REXX_METHOD_PROTOTYPE(rx3270_method_pfkey);
  98 + REXX_METHOD_PROTOTYPE(rx3270_method_pakey);
  99 + REXX_METHOD_PROTOTYPE(rx3270_method_get_text);
  100 + REXX_METHOD_PROTOTYPE(rx3270_method_get_text_at);
  101 + REXX_METHOD_PROTOTYPE(rx3270_method_set_text_at);
  102 + REXX_METHOD_PROTOTYPE(rx3270_method_cmp_text_at);
  103 + REXX_METHOD_PROTOTYPE(rx3270_method_event_trace);
  104 + REXX_METHOD_PROTOTYPE(rx3270_method_screen_trace);
  105 + REXX_METHOD_PROTOTYPE(rx3270_method_ds_trace);
  106 + REXX_METHOD_PROTOTYPE(rx3270_method_set_option);
  107 + REXX_METHOD_PROTOTYPE(rx3270_method_test);
  108 + REXX_METHOD_PROTOTYPE(rx3270_method_wait_for_text_at);
  109 + REXX_METHOD_PROTOTYPE(rx3270_method_get_field_len);
  110 + REXX_METHOD_PROTOTYPE(rx3270_method_get_field_start);
  111 + REXX_METHOD_PROTOTYPE(rx3270_method_get_next_unprotected);
  112 + REXX_METHOD_PROTOTYPE(rx3270_method_get_is_protected);
  113 + REXX_METHOD_PROTOTYPE(rx3270_method_get_is_protected_at);
  114 + REXX_METHOD_PROTOTYPE(rx3270_method_get_selection);
  115 + REXX_METHOD_PROTOTYPE(rx3270_method_set_selection);
  116 + REXX_METHOD_PROTOTYPE(rx3270_method_get_clipboard);
  117 + REXX_METHOD_PROTOTYPE(rx3270_method_set_clipboard);
  118 + REXX_METHOD_PROTOTYPE(rx3270_method_popup);
  119 + REXX_METHOD_PROTOTYPE(rx3270_method_get_filename);
  120 + REXX_METHOD_PROTOTYPE(rx3270_method_get_cursor_addr);
  121 + REXX_METHOD_PROTOTYPE(rx3270_method_set_cursor_addr);
  122 + REXX_METHOD_PROTOTYPE(rx3270_method_input_text);
  123 + REXX_METHOD_PROTOTYPE(rx3270_method_get_display_charset);
  124 + REXX_METHOD_PROTOTYPE(rx3270_method_set_display_charset);
  125 + REXX_METHOD_PROTOTYPE(rx3270_method_get_host_charset);
  126 + REXX_METHOD_PROTOTYPE(rx3270_method_set_host_charset);
  127 + REXX_METHOD_PROTOTYPE(rx3270_method_set_unlock_delay);
  128 +
  129 +/*---[ Globals ]---------------------------------------------------------------------------------------------*/
  130 +
  131 +/*--[ 3270 Session ]-----------------------------------------------------------------------------------------*/
  132 +
  133 +#ifdef __cplusplus
  134 + extern "C" {
  135 +#endif
  136 +
  137 + LIB3270_EXPORT void rx3270_set_package_option(RexxOption *option);
  138 +
  139 +#ifdef __cplusplus
  140 + }
  141 +#endif
  142 +
  143 +#endif // RX3270_H_INCLUDED
... ...
src/rexx_methods.cc
  Diff comments   View file @3f54fda
... ... @@ -32,7 +32,7 @@
32 32 *
33 33 */
34 34  
35   - #include "rx3270.h"
  35 + #include "private.h"
36 36 #include <time.h>
37 37 #include <string.h>
38 38 #include <ctype.h>
... ...
src/rx3270.h
View file @62f1e68
... ... @@ -1,136 +0,0 @@
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 pluginmain.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   -#ifndef RX3270_H_INCLUDED
31   -
32   - #define RX3270_H_INCLUDED 1
33   -
34   - #include <stdint.h>
35   - #include <errno.h>
36   - #include <stdio.h>
37   - #include <stdarg.h>
38   - #include <pw3270cpp.h>
39   - #include <oorexxapi.h>
40   -
41   -/*---[ Rexx entry points ]-----------------------------------------------------------------------------------*/
42   -
43   - REXX_TYPED_ROUTINE_PROTOTYPE(rx3270version);
44   - REXX_TYPED_ROUTINE_PROTOTYPE(rx3270QueryCState);
45   - REXX_TYPED_ROUTINE_PROTOTYPE(rx3270Disconnect);
46   - REXX_TYPED_ROUTINE_PROTOTYPE(rx3270Connect);
47   - REXX_TYPED_ROUTINE_PROTOTYPE(rx3270isConnected);
48   - REXX_TYPED_ROUTINE_PROTOTYPE(rx3270WaitForEvents);
49   - REXX_TYPED_ROUTINE_PROTOTYPE(rx3270Sleep);
50   - REXX_TYPED_ROUTINE_PROTOTYPE(rx3270SendENTERKey);
51   - REXX_TYPED_ROUTINE_PROTOTYPE(rx3270SendPFKey);
52   - REXX_TYPED_ROUTINE_PROTOTYPE(rx3270SendPAKey);
53   - REXX_TYPED_ROUTINE_PROTOTYPE(rx3270WaitForTerminalReady);
54   - REXX_TYPED_ROUTINE_PROTOTYPE(rx3270WaitForStringAt);
55   - REXX_TYPED_ROUTINE_PROTOTYPE(rx3270GetStringAt);
56   - REXX_TYPED_ROUTINE_PROTOTYPE(rx3270IsTerminalReady);
57   - REXX_TYPED_ROUTINE_PROTOTYPE(rx3270queryStringAt);
58   - REXX_TYPED_ROUTINE_PROTOTYPE(rx3270SetStringAt);
59   - REXX_TYPED_ROUTINE_PROTOTYPE(rx3270CloseApplication);
60   - REXX_TYPED_ROUTINE_PROTOTYPE(ebc2asc);
61   - REXX_TYPED_ROUTINE_PROTOTYPE(asc2ebc);
62   -
63   - REXX_TYPED_ROUTINE_PROTOTYPE(rx3270Erase);
64   - REXX_TYPED_ROUTINE_PROTOTYPE(rx3270EraseEOF);
65   - REXX_TYPED_ROUTINE_PROTOTYPE(rx3270EraseEOL);
66   - REXX_TYPED_ROUTINE_PROTOTYPE(rx3270EraseInput);
67   -
68   - REXX_TYPED_ROUTINE_PROTOTYPE(rx3270IsProtected);
69   - REXX_TYPED_ROUTINE_PROTOTYPE(rx3270IsProtectedAt);
70   - REXX_TYPED_ROUTINE_PROTOTYPE(rx3270SetUnlockDelay);
71   -
72   - REXX_METHOD_PROTOTYPE(rx3270_method_version);
73   - REXX_METHOD_PROTOTYPE(rx3270_method_revision);
74   - REXX_METHOD_PROTOTYPE(rx3270_method_init);
75   - REXX_METHOD_PROTOTYPE(rx3270_method_uninit);
76   - REXX_METHOD_PROTOTYPE(rx3270_method_connect);
77   - REXX_METHOD_PROTOTYPE(rx3270_method_disconnect);
78   - REXX_METHOD_PROTOTYPE(rx3270_method_sleep);
79   - REXX_METHOD_PROTOTYPE(rx3270_method_is_connected);
80   - REXX_METHOD_PROTOTYPE(rx3270_method_is_ready);
81   - REXX_METHOD_PROTOTYPE(rx3270_method_wait_for_ready);
82   - REXX_METHOD_PROTOTYPE(rx3270_method_set_cursor);
83   - REXX_METHOD_PROTOTYPE(rx3270_method_get_cursor_addr);
84   - REXX_METHOD_PROTOTYPE(rx3270_method_set_cursor_addr);
85   - REXX_METHOD_PROTOTYPE(rx3270_method_enter);
86   - REXX_METHOD_PROTOTYPE(rx3270_method_erase);
87   - REXX_METHOD_PROTOTYPE(rx3270_method_erase_eof);
88   - REXX_METHOD_PROTOTYPE(rx3270_method_erase_eol);
89   - REXX_METHOD_PROTOTYPE(rx3270_method_erase_input);
90   - REXX_METHOD_PROTOTYPE(rx3270_method_pfkey);
91   - REXX_METHOD_PROTOTYPE(rx3270_method_pakey);
92   - REXX_METHOD_PROTOTYPE(rx3270_method_get_text);
93   - REXX_METHOD_PROTOTYPE(rx3270_method_get_text_at);
94   - REXX_METHOD_PROTOTYPE(rx3270_method_set_text_at);
95   - REXX_METHOD_PROTOTYPE(rx3270_method_cmp_text_at);
96   - REXX_METHOD_PROTOTYPE(rx3270_method_event_trace);
97   - REXX_METHOD_PROTOTYPE(rx3270_method_screen_trace);
98   - REXX_METHOD_PROTOTYPE(rx3270_method_ds_trace);
99   - REXX_METHOD_PROTOTYPE(rx3270_method_set_option);
100   - REXX_METHOD_PROTOTYPE(rx3270_method_test);
101   - REXX_METHOD_PROTOTYPE(rx3270_method_wait_for_text_at);
102   - REXX_METHOD_PROTOTYPE(rx3270_method_get_field_len);
103   - REXX_METHOD_PROTOTYPE(rx3270_method_get_field_start);
104   - REXX_METHOD_PROTOTYPE(rx3270_method_get_next_unprotected);
105   - REXX_METHOD_PROTOTYPE(rx3270_method_get_is_protected);
106   - REXX_METHOD_PROTOTYPE(rx3270_method_get_is_protected_at);
107   - REXX_METHOD_PROTOTYPE(rx3270_method_get_selection);
108   - REXX_METHOD_PROTOTYPE(rx3270_method_set_selection);
109   - REXX_METHOD_PROTOTYPE(rx3270_method_get_clipboard);
110   - REXX_METHOD_PROTOTYPE(rx3270_method_set_clipboard);
111   - REXX_METHOD_PROTOTYPE(rx3270_method_popup);
112   - REXX_METHOD_PROTOTYPE(rx3270_method_get_filename);
113   - REXX_METHOD_PROTOTYPE(rx3270_method_get_cursor_addr);
114   - REXX_METHOD_PROTOTYPE(rx3270_method_set_cursor_addr);
115   - REXX_METHOD_PROTOTYPE(rx3270_method_input_text);
116   - REXX_METHOD_PROTOTYPE(rx3270_method_get_display_charset);
117   - REXX_METHOD_PROTOTYPE(rx3270_method_set_display_charset);
118   - REXX_METHOD_PROTOTYPE(rx3270_method_get_host_charset);
119   - REXX_METHOD_PROTOTYPE(rx3270_method_set_host_charset);
120   - REXX_METHOD_PROTOTYPE(rx3270_method_set_unlock_delay);
121   -
122   -/*---[ Globals ]---------------------------------------------------------------------------------------------*/
123   -
124   -/*--[ 3270 Session ]-----------------------------------------------------------------------------------------*/
125   -
126   -#ifdef __cplusplus
127   - extern "C" {
128   -#endif
129   -
130   - LIB3270_EXPORT void rx3270_set_package_option(RexxOption *option);
131   -
132   -#ifdef __cplusplus
133   - }
134   -#endif
135   -
136   -#endif // RX3270_H_INCLUDED
src/typed_routines.cc
  Diff comments   View file @3f54fda
... ... @@ -27,7 +27,7 @@
27 27 *
28 28 */
29 29  
30   - #include "rx3270.h"
  30 + #include "private.h"
31 31 #include <time.h>
32 32 #include <string.h>
33 33 #include <exception>
... ...