Commit 9f0e9f3d123be745752fe76bf6172536ea6d29ed
1 parent
87b4a51a
Exists in
master
and in
1 other branch
Refactoring IPC compatiblity module for linux.
Showing
5 changed files
with
150 additions
and
136 deletions
Show diff stats
hllapi.cbp
@@ -3,11 +3,12 @@ | @@ -3,11 +3,12 @@ | ||
3 | <FileVersion major="1" minor="6" /> | 3 | <FileVersion major="1" minor="6" /> |
4 | <Project> | 4 | <Project> |
5 | <Option title="pw3270 HLLAPI v5.1 compatibility plugin" /> | 5 | <Option title="pw3270 HLLAPI v5.1 compatibility plugin" /> |
6 | + <Option makefile_is_custom="1" /> | ||
6 | <Option pch_mode="2" /> | 7 | <Option pch_mode="2" /> |
7 | <Option compiler="gcc" /> | 8 | <Option compiler="gcc" /> |
8 | <Build> | 9 | <Build> |
9 | <Target title="Debug"> | 10 | <Target title="Debug"> |
10 | - <Option output=".bin/Debug/pw3270 HLLAPI v5" prefix_auto="1" extension_auto="1" /> | 11 | + <Option output=".bin/Debug/ipc3270c" prefix_auto="1" extension_auto="1" /> |
11 | <Option object_output=".obj/Debug/" /> | 12 | <Option object_output=".obj/Debug/" /> |
12 | <Option type="1" /> | 13 | <Option type="1" /> |
13 | <Option compiler="gcc" /> | 14 | <Option compiler="gcc" /> |
@@ -16,7 +17,7 @@ | @@ -16,7 +17,7 @@ | ||
16 | </Compiler> | 17 | </Compiler> |
17 | </Target> | 18 | </Target> |
18 | <Target title="Release"> | 19 | <Target title="Release"> |
19 | - <Option output=".bin/Release/pw3270 HLLAPI v5" prefix_auto="1" extension_auto="1" /> | 20 | + <Option output=".bin/Release/ipc3270c" prefix_auto="1" extension_auto="1" /> |
20 | <Option object_output=".obj/Release/" /> | 21 | <Option object_output=".obj/Release/" /> |
21 | <Option type="1" /> | 22 | <Option type="1" /> |
22 | <Option compiler="gcc" /> | 23 | <Option compiler="gcc" /> |
@@ -31,6 +32,21 @@ | @@ -31,6 +32,21 @@ | ||
31 | <Compiler> | 32 | <Compiler> |
32 | <Add option="-Wall" /> | 33 | <Add option="-Wall" /> |
33 | </Compiler> | 34 | </Compiler> |
35 | + <Unit filename="src/plugin/linux/daemon.h" /> | ||
36 | + <Unit filename="src/plugin/linux/globals.h" /> | ||
37 | + <Unit filename="src/plugin/linux/gobject.c"> | ||
38 | + <Option compilerVar="CC" /> | ||
39 | + </Unit> | ||
40 | + <Unit filename="src/plugin/linux/main.c"> | ||
41 | + <Option compilerVar="CC" /> | ||
42 | + </Unit> | ||
43 | + <Unit filename="src/plugin/linux/misc.c"> | ||
44 | + <Option compilerVar="CC" /> | ||
45 | + </Unit> | ||
46 | + <Unit filename="src/plugin/linux/service.h" /> | ||
47 | + <Unit filename="src/testprogram/testprogram.c"> | ||
48 | + <Option compilerVar="CC" /> | ||
49 | + </Unit> | ||
34 | <Extensions> | 50 | <Extensions> |
35 | <code_completion /> | 51 | <code_completion /> |
36 | <envvars /> | 52 | <envvars /> |
src/dbus3270/test.sh
@@ -1,126 +0,0 @@ | @@ -1,126 +0,0 @@ | ||
1 | -#!/bin/bash | ||
2 | - | ||
3 | -SESSION=a | ||
4 | -DEST=br.com.bb.pw3270 | ||
5 | -BPATH=/br/com/bb/pw3270 | ||
6 | - | ||
7 | -run_command() | ||
8 | -{ | ||
9 | - | ||
10 | - case $1 in | ||
11 | - | ||
12 | - revision) | ||
13 | - dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.getRevision | ||
14 | - ;; | ||
15 | - | ||
16 | - message) | ||
17 | - dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.getMessageID | ||
18 | - ;; | ||
19 | - | ||
20 | - ssl) | ||
21 | - dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.getSecureState | ||
22 | - ;; | ||
23 | - | ||
24 | - connect) | ||
25 | - dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.connect string:$2 int32:10 | ||
26 | - ;; | ||
27 | - | ||
28 | - disconnect) | ||
29 | - dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.disconnect | ||
30 | - ;; | ||
31 | - | ||
32 | - url) | ||
33 | - dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.getURL | ||
34 | - ;; | ||
35 | - | ||
36 | - quit) | ||
37 | - dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.quit | ||
38 | - ;; | ||
39 | - | ||
40 | - get) | ||
41 | - dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.getScreenContents | ||
42 | - ;; | ||
43 | - | ||
44 | - gettext) | ||
45 | -# addr,len,lf | ||
46 | -# dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.getText int32:1 int32:-1 byte:0 | ||
47 | - dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.getText int32:1 int32:-1 byte:10 | ||
48 | - ;; | ||
49 | - | ||
50 | - protect) | ||
51 | - dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.getIsProtectedAt int32:$2 int32:$3 | ||
52 | - ;; | ||
53 | - | ||
54 | - set) | ||
55 | - dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.setTextAt int32:$2 int32:$3 string:$4 | ||
56 | - ;; | ||
57 | - | ||
58 | - action) | ||
59 | - dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.action string:$2 | ||
60 | - ;; | ||
61 | - | ||
62 | - enter) | ||
63 | - dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.enter | ||
64 | - ;; | ||
65 | - | ||
66 | - isconnected) | ||
67 | - dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.isConnected | ||
68 | - ;; | ||
69 | - | ||
70 | - hostcharset) | ||
71 | - dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.getHostCharset | ||
72 | - ;; | ||
73 | - | ||
74 | - displaycharset) | ||
75 | - dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.getDisplayCharset | ||
76 | - ;; | ||
77 | - | ||
78 | - unlockdelay) | ||
79 | - dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.setUnlockDelay int32:$2 | ||
80 | - ;; | ||
81 | - | ||
82 | - *) | ||
83 | - echo "Comando $1 desconhecido" | ||
84 | - ;; | ||
85 | - | ||
86 | - esac | ||
87 | -} | ||
88 | - | ||
89 | - | ||
90 | - | ||
91 | -until [ -z "$1" ] | ||
92 | -do | ||
93 | - if [ ${1:0:2} = '--' ]; then | ||
94 | - tmp=${1:2} | ||
95 | - parameter=${tmp%%=*} | ||
96 | - parameter=$(echo $parameter | tr "[:lower:]" "[:upper:]") | ||
97 | - value=${tmp##*=} | ||
98 | - | ||
99 | - case "$parameter" in | ||
100 | - SESSION) | ||
101 | - SESSION=$value | ||
102 | - ;; | ||
103 | - HELP) | ||
104 | - echo "$0 options" | ||
105 | - echo "" | ||
106 | - echo "Options:" | ||
107 | - echo "" | ||
108 | - echo " --session pw3270's session manager" | ||
109 | - echo "" | ||
110 | - exit 0 | ||
111 | - ;; | ||
112 | - | ||
113 | - *) | ||
114 | - eval $parameter=$value | ||
115 | - ;; | ||
116 | - | ||
117 | - esac | ||
118 | - | ||
119 | - else | ||
120 | - run_command $@ | ||
121 | - exit 0 | ||
122 | - fi | ||
123 | - | ||
124 | - shift | ||
125 | -done | ||
126 | - |
src/plugin/linux/gobject.c
@@ -66,11 +66,12 @@ static void pw3270_dbus_class_init(PW3270DbusClass *klass) | @@ -66,11 +66,12 @@ static void pw3270_dbus_class_init(PW3270DbusClass *klass) | ||
66 | GObjectClass *object_class; | 66 | GObjectClass *object_class; |
67 | object_class = G_OBJECT_CLASS (klass); | 67 | object_class = G_OBJECT_CLASS (klass); |
68 | object_class->finalize = pw3270_dbus_finalize; | 68 | object_class->finalize = pw3270_dbus_finalize; |
69 | + debug("%s",__FUNCTION__); | ||
69 | } | 70 | } |
70 | 71 | ||
71 | -static void pw3270_dbus_init(PW3270Dbus G_GNUC_UNUSED(*object)) | 72 | +static void pw3270_dbus_init(PW3270Dbus *object) |
72 | { | 73 | { |
73 | - | 74 | + debug("%s(%p)",__FUNCTION__,object); |
74 | } | 75 | } |
75 | 76 | ||
76 | PW3270Dbus * pw3270_dbus_new(void) | 77 | PW3270Dbus * pw3270_dbus_new(void) |
@@ -80,12 +81,8 @@ PW3270Dbus * pw3270_dbus_new(void) | @@ -80,12 +81,8 @@ PW3270Dbus * pw3270_dbus_new(void) | ||
80 | 81 | ||
81 | void pw3270_dbus_get_revision(PW3270Dbus *object, DBusGMethodInvocation *context) | 82 | void pw3270_dbus_get_revision(PW3270Dbus *object, DBusGMethodInvocation *context) |
82 | { | 83 | { |
83 | - trace("%s object=%p context=%p",__FUNCTION__,object,context); | ||
84 | -#ifdef PACKAGE_REVISION | ||
85 | - dbus_g_method_return(context,PACKAGE_REVISION); | ||
86 | -#else | ||
87 | - dbus_g_method_return(context,BUILD_DATE); | ||
88 | -#endif | 84 | + debug("%s object=%p context=%p",__FUNCTION__,object,context); |
85 | + dbus_g_method_return(context,lib3270_get_revision()); | ||
89 | } | 86 | } |
90 | 87 | ||
91 | void pw3270_dbus_connect(PW3270Dbus *object, const gchar *uri, DBusGMethodInvocation *context) | 88 | void pw3270_dbus_connect(PW3270Dbus *object, const gchar *uri, DBusGMethodInvocation *context) |
src/plugin/linux/main.c
@@ -171,6 +171,7 @@ | @@ -171,6 +171,7 @@ | ||
171 | 171 | ||
172 | H3270 * pw3270_dbus_get_session_handle(PW3270Dbus G_GNUC_UNUSED(*object)) | 172 | H3270 * pw3270_dbus_get_session_handle(PW3270Dbus G_GNUC_UNUSED(*object)) |
173 | { | 173 | { |
174 | + debug("%s=%p",__FUNCTION__,lib3270_get_default_session_handle()); | ||
174 | return lib3270_get_default_session_handle(); | 175 | return lib3270_get_default_session_handle(); |
175 | } | 176 | } |
176 | 177 |
@@ -0,0 +1,126 @@ | @@ -0,0 +1,126 @@ | ||
1 | +#!/bin/bash | ||
2 | + | ||
3 | +SESSION=a | ||
4 | +DEST=br.com.bb.pw3270 | ||
5 | +BPATH=/br/com/bb/pw3270 | ||
6 | + | ||
7 | +run_command() | ||
8 | +{ | ||
9 | + | ||
10 | + case $1 in | ||
11 | + | ||
12 | + revision) | ||
13 | + dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.getRevision | ||
14 | + ;; | ||
15 | + | ||
16 | + message) | ||
17 | + dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.getMessageID | ||
18 | + ;; | ||
19 | + | ||
20 | + ssl) | ||
21 | + dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.getSecureState | ||
22 | + ;; | ||
23 | + | ||
24 | + connect) | ||
25 | + dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.connect string:$2 int32:10 | ||
26 | + ;; | ||
27 | + | ||
28 | + disconnect) | ||
29 | + dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.disconnect | ||
30 | + ;; | ||
31 | + | ||
32 | + url) | ||
33 | + dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.getURL | ||
34 | + ;; | ||
35 | + | ||
36 | + quit) | ||
37 | + dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.quit | ||
38 | + ;; | ||
39 | + | ||
40 | + get) | ||
41 | + dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.getScreenContents | ||
42 | + ;; | ||
43 | + | ||
44 | + gettext) | ||
45 | +# addr,len,lf | ||
46 | +# dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.getText int32:1 int32:-1 byte:0 | ||
47 | + dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.getText int32:1 int32:-1 byte:10 | ||
48 | + ;; | ||
49 | + | ||
50 | + protect) | ||
51 | + dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.getIsProtectedAt int32:$2 int32:$3 | ||
52 | + ;; | ||
53 | + | ||
54 | + set) | ||
55 | + dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.setTextAt int32:$2 int32:$3 string:$4 | ||
56 | + ;; | ||
57 | + | ||
58 | + action) | ||
59 | + dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.action string:$2 | ||
60 | + ;; | ||
61 | + | ||
62 | + enter) | ||
63 | + dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.enter | ||
64 | + ;; | ||
65 | + | ||
66 | + isconnected) | ||
67 | + dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.isConnected | ||
68 | + ;; | ||
69 | + | ||
70 | + hostcharset) | ||
71 | + dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.getHostCharset | ||
72 | + ;; | ||
73 | + | ||
74 | + displaycharset) | ||
75 | + dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.getDisplayCharset | ||
76 | + ;; | ||
77 | + | ||
78 | + unlockdelay) | ||
79 | + dbus-send --session --print-reply --dest=$DEST.$SESSION $BPATH $DEST.setUnlockDelay int32:$2 | ||
80 | + ;; | ||
81 | + | ||
82 | + *) | ||
83 | + echo "Comando $1 desconhecido" | ||
84 | + ;; | ||
85 | + | ||
86 | + esac | ||
87 | +} | ||
88 | + | ||
89 | + | ||
90 | + | ||
91 | +until [ -z "$1" ] | ||
92 | +do | ||
93 | + if [ ${1:0:2} = '--' ]; then | ||
94 | + tmp=${1:2} | ||
95 | + parameter=${tmp%%=*} | ||
96 | + parameter=$(echo $parameter | tr "[:lower:]" "[:upper:]") | ||
97 | + value=${tmp##*=} | ||
98 | + | ||
99 | + case "$parameter" in | ||
100 | + SESSION) | ||
101 | + SESSION=$value | ||
102 | + ;; | ||
103 | + HELP) | ||
104 | + echo "$0 options" | ||
105 | + echo "" | ||
106 | + echo "Options:" | ||
107 | + echo "" | ||
108 | + echo " --session pw3270's session manager" | ||
109 | + echo "" | ||
110 | + exit 0 | ||
111 | + ;; | ||
112 | + | ||
113 | + *) | ||
114 | + eval $parameter=$value | ||
115 | + ;; | ||
116 | + | ||
117 | + esac | ||
118 | + | ||
119 | + else | ||
120 | + run_command $@ | ||
121 | + exit 0 | ||
122 | + fi | ||
123 | + | ||
124 | + shift | ||
125 | +done | ||
126 | + |