From bb4d9d9d43cb49a731d9037cf8fd48d0f5e8d546 Mon Sep 17 00:00:00 2001
From: perry.werneck@gmail.com <perry.werneck@gmail.com@d25448e0-c022-0410-b998-a785f7053de0>
Date: Tue, 16 Oct 2012 14:54:03 +0000
Subject: [PATCH] Iniciando implementação dos métodos no plugin rexx

---
 pw3270.cbp                      |  8 ++------
 src/include/plugin.mak.in       | 16 ++++++++--------
 src/plugins/rx3270/rxapimain.cc | 39 ++++++++++++++++++++++++++++-----------
 3 files changed, 38 insertions(+), 25 deletions(-)

diff --git a/pw3270.cbp b/pw3270.cbp
index 8414037..ac233a6 100644
--- a/pw3270.cbp
+++ b/pw3270.cbp
@@ -232,13 +232,9 @@
 			<Option compilerVar="CC" />
 		</Unit>
 		<Unit filename="src/plugins/rx3270/Makefile.in" />
-		<Unit filename="src/plugins/rx3270/pluginmain.c">
-			<Option compilerVar="CC" />
-		</Unit>
+		<Unit filename="src/plugins/rx3270/pluginmain.cc" />
 		<Unit filename="src/plugins/rx3270/rx3270.h" />
-		<Unit filename="src/plugins/rx3270/rxapimain.c">
-			<Option compilerVar="CC" />
-		</Unit>
+		<Unit filename="src/plugins/rx3270/rxapimain.cc" />
 		<Unit filename="src/pw3270/Makefile.in" />
 		<Unit filename="src/pw3270/actions.c">
 			<Option compilerVar="CC" />
diff --git a/src/include/plugin.mak.in b/src/include/plugin.mak.in
index d4add82..fba1478 100644
--- a/src/include/plugin.mak.in
+++ b/src/include/plugin.mak.in
@@ -59,17 +59,17 @@ DLL_NAME=@DLLDIR@/@DLLPREFIX@$(MODULE_NAME)@DLLEXT@.@VERSION@
 PLUGIN_NAME=plugins/$(MODULE_NAME)@DLLEXT@
 
 ifeq ($(LIB3270_MODE),Debug)
-	PW3270_LIBS="-L$(BINDBG)@DLLDIR@ -l3270"
-	PW3270_CFLAGS="-I../../../src/include"
-	LIB3270_LIBS="-L$(BINDBG)@DLLDIR@ -l3270"
-	LIB270_CFLAGS="-I../../../src/include"
+	PW3270_LIBS=-L$(BINDBG)@DLLDIR@ -l3270
+	PW3270_CFLAGS=-I../../../src/include
+	LIB3270_LIBS=-L$(BINDBG)@DLLDIR@ -l3270
+	LIB270_CFLAGS=-I../../../src/include
 endif
 
 ifeq ($(LIB3270_MODE),Release)
-	PW3270_LIBS="-L$(BINRLS)@DLLDIR@ -l3270"
-	PW3270_CFLAGS="-I../../../src/include"
-	LIB3270_LIBS="-L$(BINRLS)@DLLDIR@ -l3270"
-	LIB270_CFLAGS="-I../../../src/include"
+	PW3270_LIBS=-L$(BINRLS)@DLLDIR@ -l3270
+	PW3270_CFLAGS=-I../../../src/include
+	LIB3270_LIBS=-L$(BINRLS)@DLLDIR@ -l3270
+	LIB270_CFLAGS=-I../../../src/include
 endif
 
 ifeq ($(LIB3270_MODE),Default)
diff --git a/src/plugins/rx3270/rxapimain.cc b/src/plugins/rx3270/rxapimain.cc
index 39fe135..279f755 100644
--- a/src/plugins/rx3270/rxapimain.cc
+++ b/src/plugins/rx3270/rxapimain.cc
@@ -68,7 +68,7 @@ BOOL WINAPI DllMain(HANDLE hinst, DWORD dwcallpurpose, LPVOID lpvResvd)
 
 int librx3270_loaded(void)
 {
-	trace("%s %04x",__FUNCTION__,REXX_CURRENT_INTERPRETER_VERSION);
+	trace("%s %04x %s %s",__FUNCTION__,REXX_CURRENT_INTERPRETER_VERSION,__DATE__,__TIME__);
 	return 0;
 }
 
@@ -80,27 +80,45 @@ int librx3270_unloaded(void)
 
 RexxRoutine0(CSTRING, rx3270version)
 {
-   return "Teste";
+	return lib3270_get_version();
+}
+
+RexxRoutine0(CSTRING, rx3270QueryCState)
+{
+	return "";
+}
+
+RexxRoutine0(int, rx3270Disconnect)
+{
+	return 0;
+}
+
+RexxRoutine2(int, rx3270Connect, CSTRING, hostname, int, timeout)
+{
+	return 0;
 }
 
 
 // now build the actual entry list
 RexxRoutineEntry rx3270_functions[] =
 {
-    REXX_TYPED_ROUTINE(rx3270version, rx3270version),
-    REXX_LAST_METHOD()
+	REXX_TYPED_ROUTINE(rx3270version, 		rx3270version),
+	REXX_TYPED_ROUTINE(rx3270QueryCState,	rx3270QueryCState),
+	REXX_TYPED_ROUTINE(rx3270Disconnect,	rx3270Disconnect),
+	REXX_TYPED_ROUTINE(rx3270Connect,		rx3270Connect),
+	REXX_LAST_METHOD()
 };
 
 RexxPackageEntry rx3270_package_entry =
 {
     STANDARD_PACKAGE_HEADER
-    REXX_CURRENT_INTERPRETER_VERSION,	// anything after 4.0.0 will work
-    "pw3270",                            // name of the package
-    "5.0",                               // package information
-    NULL,                                // no load/unload functions
+    REXX_CURRENT_INTERPRETER_VERSION,		// anything after 4.0.0 will work
+    "pw3270",								// name of the package
+    PACKAGE_VERSION,						// package information
+    NULL,									// no load/unload functions
     NULL,
-    rx3270_functions,                    // the exported functions
-    NULL                                 // no methods in rxmath.
+    rx3270_functions,						// the exported functions
+    NULL									// no methods in rx3270.
 };
 
 // package loading stub.
@@ -111,7 +129,6 @@ OOREXX_GET_PACKAGE(rx3270);
 BEGIN_EXTERN_C()
 LIB3270_EXPORT RexxPackageEntry * RexxEntry RexxGetPackage(void)
 {
-	trace("%s struct size=%d ****************************************************",__FUNCTION__,(int) sizeof(RexxPackageEntry));
 	return &rx3270_package_entry;
 }
 END_EXTERN_C()
--
libgit2 0.21.2