xgplib.c

Go to the documentation of this file.

/*
%M This module contains the functions to interface the numerical program 
   with the graphic program.
%d January 12sd, 1999.
%a Joao Luiz Elias Campos.
%r $Id: xgplib.c,v 1.1 2004/06/22 05:29:59 joaoluiz Exp $
%w (C) COPYRIGHT 1999, Joao Luiz Elias Campos.
   All Rights Reserved
   Duplication of this program or any part thereof without the express
   written consent of the author is prohibited.
*
*  Modified:  23-Fev-06  Juan Pablo Ibañez
*    Modificada a funcão _XGPStartGraphic, onde trocou-se o comando exit 
*    pelo comando return.
*/

/*
** ------------------------------------------------------------------------
** Global variables and symbols:
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#ifdef WIN32
# include <io.h>
# include <fcntl.h>
# include <process.h>
#else
# include <unistd.h>
#endif


int    GpType       = 0;
int    NumMaxPoints = 0;
int    NumCurves    = 0;
char **Labels       = 0L;
/*
** ------------------------------------------------------------------------
** Local variables and symbols:
*/

static int fd[2];

#ifdef WIN32
# define PIPE(_)   _pipe(_,1024,O_BINARY)
# define EXECLP(_) spawnl(P_NOWAIT,_,#_,"relax",fdout,0L)
#else
# define PIPE(_)   pipe(_)
# define EXECLP(_) execlp(_,#_,"relax",fdout,0L)
#endif

/*
** ------------------------------------------------------------------------
** Local functions:
*/
static int  _XGPStartGraphic();
static void _XGPSendCommand ( char * );
static void _XGPSendInteger ( int );
static void _XGPSendLabel   ( char * );

static int _XGPStartGraphic()
{
 int   pid;
 char  fdout[20], xgraph[256];
 char *tectos_dir = 0L;
 char *tec_uname = 0L;

 if( PIPE(fd) == 1 ) {
  printf( "\n\nError on trying to open a pipe.\n\n" );
  return 0;
 }

 sprintf( fdout, "%d", fd[0] );
 if( (tectos_dir = getenv( "TECTOSDIR" )) == 0L ) {
  printf( "\n\tThe environment variable TECTOSDIR does not exist.\n\n" );
  return 0;
 }
#ifdef WIN32
 if( (tec_uname = getenv( "TEC_SYSNAME" )) == 0L ) {
  printf( "\n\tThe environment variable TEC_SYSNAME does not exist.\n\n" );
  return 0;
 }
 sprintf( xgraph, "%s\\bin\\%s\\xgraph.exe", tectos_dir, tec_uname );
 if( (pid = (int)EXECLP(xgraph)) == -1 ) {
  printf( "\n\nError on execute xgraph program.\n\n" );
  return 0;
 }
#else
 if( (tec_uname = getenv( "TEC_UNAME" )) == 0L ) {
  printf( "\n\tThe environment variable TEC_UNAME does not exist.\n\n" );
  return 0;
 }
 sprintf( xgraph, "%s/bin/%s/xgraph", tectos_dir, tec_uname );
 if( (pid = fork()) == -1 ) {
  printf( "\n\nError on trying to fork a child process.\n\n" );
  return 0;
 }
 else if( pid == 0 ) {
  if( EXECLP(xgraph) ==  -1 ) {
   printf( "\n\nError on execute xgraph program.\n\n" );
   return 0;
  }
  return 0;
 }
#endif
 return 1;

} /* End of _XGPStartGraphic */

static void _XGPSendCommand( char *command )
{
 write( fd[1], command, sizeof(command) );

} /* End of XGPSendCommand */


static void _XGPSendInteger( int number )
{
 write( fd[1], &number, sizeof(int) );

} /* End of XGPSendInteger */


static void _XGPSendLabel( char *string )
{
 int len = (int)strlen( string );

 write( fd[1], &len, sizeof(int) );
 write( fd[1], string, len );

} /* End of XGPSendString */


/*
** ------------------------------------------------------------------------
** Public functions:
*/
void XGPBegin    ( void );
void XGPEnd      ( void );
void XGPSendPoint( int, double, double );


/*
%F
*/
void XGPBegin( void );
void XGPBegin( void )
{
 int i;

 if( (NumCurves == 0) || !_XGPStartGraphic() )
  return;
 
/* Create graphic
 */
 _XGPSendCommand( "%l" );
 _XGPSendInteger( NumCurves );
 for( i = 0; i < NumCurves; i++ )
  _XGPSendLabel( Labels[i] );
 _XGPSendCommand( "%c" );
 _XGPSendInteger( GpType );
 _XGPSendInteger( NumMaxPoints );
 _XGPSendInteger( NumCurves );

} /* End of XGPBegin */


/*
%F
*/
void XGPEnd( void );
void XGPEnd( void )
{

 if( NumCurves == 0 )
  return;
 
 write( fd[1], "%e", 4 );

} /* End of XGPEnd */


/*
%F
*/
void XGPSendPoint( int, double, double );
void XGPSendPoint( int curve, double x, double y )
{

 write( fd[1], "%i", 4 );
 write( fd[1], &curve, sizeof(int) );
 write( fd[1], &x, sizeof(double) );
 write( fd[1], &y, sizeof(double) );

} /* End of XGPSendPoint */


/* =======================================================  End of File  */

---