Software Público Brasileiro

/*
 * "Software pw3270, desenvolvido com base nos códigos fontes do WC3270  e X3270
 * (Paul Mattes Paul.Mattes@usa.net), de emulação de terminal 3270 para acesso a
 * aplicativos mainframe. Registro no INPI sob o nome G3270. Registro no INPI sob o nome G3270.
 *
 * Copyright (C) <2008> <Banco do Brasil S.A.>
 *
 * Este programa é software livre. Você pode redistribuí-lo e/ou modificá-lo sob
 * os termos da GPL v.2 - Licença Pública Geral  GNU,  conforme  publicado  pela
 * Free Software Foundation.
 *
 * Este programa é distribuído na expectativa de  ser  útil,  mas  SEM  QUALQUER
 * GARANTIA; sem mesmo a garantia implícita de COMERCIALIZAÇÃO ou  de  ADEQUAÇÃO
 * A QUALQUER PROPÓSITO EM PARTICULAR. Consulte a Licença Pública Geral GNU para
 * obter mais detalhes.
 *
 * Você deve ter recebido uma cópia da Licença Pública Geral GNU junto com este
 * programa; se não, escreva para a Free Software Foundation, Inc., 51 Franklin
 * St, Fifth Floor, Boston, MA  02110-1301  USA
 *
 * Este programa está nomeado como remotectl.c e possui - linhas de código.
 *
 * Contatos:
 *
 * perry.werneck@gmail.com	(Alexandre Perry de Souza Werneck)
 * erico.mendonca@gmail.com	(Erico Mascarenhas Mendonça)
 *
 * Agradecimento:
 *
 * Hélio Passos
 *
 */

 #include "remotectl.h"
 #include <pw3270.h>
 #include <pw3270/plugin.h>
 #include <pw3270/v3270.h>
 #include <errno.h>
 #include <string.h>

/*--[ Implement ]------------------------------------------------------------------------------------*/

#ifdef WIN32

 void popup_lasterror(const gchar *fmt, ...)
 {
 	char 		buffer[4096];
	va_list		arg_ptr;
	int			sz;
 	DWORD 		errcode = GetLastError();
 	char		*ptr;
    LPVOID 		lpMsgBuf = 0;

	FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM |FORMAT_MESSAGE_IGNORE_INSERTS, NULL, errcode, MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), (LPTSTR) &lpMsgBuf, 0, NULL);

	for(ptr=lpMsgBuf;*ptr && *ptr != '\n';ptr++);
	*ptr = 0;

	va_start(arg_ptr, fmt);
	vsnprintf(buffer,4095,fmt,arg_ptr);
	va_end(arg_ptr);

	sz = strlen(buffer);
	snprintf(buffer+sz,4096-sz,": %s\n(rc=%d)",lpMsgBuf,(int) errcode);

	printf("%s\n",buffer);

#ifdef DEBUG
	fprintf(stderr,"%s\n",buffer);
	fflush(stderr);
#endif

	LocalFree(lpMsgBuf);
 }

#endif // WIN32

 LIB3270_EXPORT int pw3270_plugin_init(GtkWidget *window)
 {
#ifdef WIN32
	char id;

	for(id='A';id < 'Z';id++)
	{
		gchar	* pipename	= g_strdup_printf("\\\\.\\pipe\\%s%c",pw3270_get_session_name(window),id);

		HANDLE	  hPipe		= CreateNamedPipe(	TEXT(pipename),				// pipe name
												PIPE_ACCESS_DUPLEX |		// read/write access
												FILE_FLAG_OVERLAPPED,		// overlapped mode
												PIPE_TYPE_MESSAGE |			// pipe type
												PIPE_READMODE_MESSAGE |		// pipe mode
												PIPE_WAIT,					// blocking mode
												1,							// number of instances
												PIPE_BUFFER_LENGTH,   		// output buffer size
												PIPE_BUFFER_LENGTH,			// input buffer size
												0,							// client time-out
												NULL);						// default security attributes

		trace("%s = %p",pipename,hPipe);
		g_free(pipename);

		if(hPipe != INVALID_HANDLE_VALUE)
		{
			gchar *session = g_strdup_printf("%s:%c",pw3270_get_session_name(window),id);
			pw3270_set_session_name(window,session);
			g_free(session);

			init_source_pipe(hPipe);
			return 0;
		}

	}

	popup_lasterror( "%s", _( "Can´t create remote control pipe" ));
	return -1;

#else

	#error Nao implementado

#endif // WIN32

	return 0;
 }

 LIB3270_EXPORT int pw3270_plugin_deinit(GtkWidget *window)
 {
#ifdef WIN32

#else

	#error Nao implementado

#endif // WIN32
	return 0;
 }

 static int cmd_connectps(H3270 *hSession, unsigned short rc, char *string, unsigned short length)
 {
 	g_message("%s","HLLAPI ConnectPS request received");
	return v3270_set_script(pw3270_get_terminal_widget(NULL),'H',1);
 }

 static int cmd_disconnectps(H3270 *hSession, unsigned short rc, char *string, unsigned short length)
 {
 	g_message("%s","HLLAPI DisconnectPS request received");
	return 0;
 }

 static int cmd_getrevision(H3270 *hSession, unsigned short rc, char *string, unsigned short length)
 {
	strncpy(string,lib3270_get_revision(),length);
	return 0;
 }

 static int cmd_setcursor(H3270 *hSession, unsigned short rc, char *string, unsigned short length)
 {
	if(!lib3270_connected(hSession))
		return ENOTCONN;

	lib3270_set_cursor_address(hSession,(int) rc);
	return 0;
 }

 static int cmd_sendstring(H3270 *hSession, unsigned short rc, char *text, unsigned short length)
 {
	if(!lib3270_connected(hSession))
		return ENOTCONN;

	#warning Converter formato da string
	lib3270_emulate_input(hSession,text,strlen(text),0);

	return 0;
 }

 static int cmd_wait(H3270 *hSession, unsigned short rc, char *text, unsigned short length)
 {
	return lib3270_wait_for_ready(hSession,60);
 }

 int run_hllapi(unsigned long function, char *string, unsigned short length, unsigned short rc)
 {
	static const struct _cmd
	{
		unsigned long function;
		int (*exec)(H3270 *hSession, unsigned short rc, char *string, unsigned short length);
	} cmd[] =
	{
		{ HLLAPI_CMD_CONNECTPS,		cmd_connectps		},
		{ HLLAPI_CMD_DISCONNECTPS,	cmd_disconnectps	},
		{ HLLAPI_CMD_INPUTSTRING,	cmd_sendstring		},
		{ HLLAPI_CMD_WAIT,			cmd_wait			},
		{ HLLAPI_CMD_SETCURSOR,		cmd_setcursor		},
		{ HLLAPI_CMD_GETREVISION,	cmd_getrevision 	}
	};
	int f;

	trace("HLLAPI function %d",(int) function);

	for(f=0;f<G_N_ELEMENTS(cmd);f++)
	{
		if(cmd[f].function == function)
			return cmd[f].exec(lib3270_get_default_session_handle(),rc,string,length);
	}

	g_warning("Unexpected HLLAPI function %d",(int) function);
 	return EINVAL;
 }