rio.c

Go to the documentation of this file.

/*
%M This module contains the funtions to manipulate the input and output
   for the Relax program.
%a Joao Luiz Elias Campos.
%d September 2nd, 1998.
%r $Id: rio.c,v 1.1 2004/06/22 05:29:59 joaoluiz Exp $
%w (C) COPYRIGHT 1995-1996, Eduardo Nobre Lages.
   (C) COPYRIGHT 1997-1998, 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:    28-Apr-2005    Alexandre A. Del Savio
 *     Foram substituídas todas as alocações dinâmicas feitas com malloc 
 *     por calloc.
 *
 *   Modified:    13-Sep-2005    Alexandre A. Del Savio
 *     Criada a funcao IoReset.
 *
 *   Modified:    13-Jan-2006    Juan Pablo Ibañez
 *     Modificada a chamada da funcão SllRmvTop para RSllRmvTop, e
 *     SllAddEnd para RSllAddEnd. Modificado o tipo Sll para RSll
 *     nessas funcões.    
 *
 *   Modified:    22-Fev-2006    Juan Pablo Ibañez   
 *     Modificadas as funcões IoReadFile, IoOpenFiles, IoFindResultTag, 
 *     _IoCopyInputFile, IoWriteFile, que passam a retornar 0 ou 1 
 *     em caso de falha ou sucesso respectivamente.
 *
 *   Modified:    Jul-2007    André Luis Muller
 *     Modificado para BUFSIZ o "tamanho" dos arquivos.
 *
 */

/*
** ------------------------------------------------------------------------
** Global variables and symbols:
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#ifdef WIN32
# include <sys\stat.h>
#else
# include <sys/stat.h>
#endif

#include "rio.h"
#include "nfi.h"
#include "sll.h"

/*
%V Handle to the input, output, config and temporary files
*/
FILE *nf   = 0L;
FILE *pos  = 0L;
FILE *cfg  = 0L;
FILE *ndlr = 0L;
FILE *elmr = 0L;


/*
** ------------------------------------------------------------------------
** Local variables and symbols:
*/

/*
%T Temp. file tag descriptor
*/
typedef struct _tmptag
{
 struct _tmptag *next;
 int  id;
 long ndlrpos;
 long elmrpos;
} sTmpFileTags;


/*
%V Input, output, config and temporary files names
*/
static char arqnf[BUFSIZ];
static char arqpos[BUFSIZ];
static char arqdat[BUFSIZ];
static char arqcfg[BUFSIZ];
static char arqndlr[BUFSIZ];
static char arqelmr[BUFSIZ];


/*
%V Total number of result tags
*/
static int _iNumFileTags = 0;


/*
%V Temp. file tags list
*/
static sTmpFileTags *TmpFileTag = 0L;


/*
** ------------------------------------------------------------------------
** Local functions:
*/
static void _IoInitScreen     ( void );
static int  _IoCopyInputFile  ( void );
static void _IoRemoveTempFiles( void );


/*
%F This function display the intial screen.
*/
static void _IoInitScreen( void )
{

 printf( "\n\n\n\n\n\n\n\n" );
#if 0
 printf( "\t====================================================\n\n" );
 printf( "\t PONTIFICIA UNIVERSIDADE CATOLICA DO RIO DE JANEIRO \n" );
 printf( "\t          DEPARTMENT OF CIVIL ENGINEERING           \n" );
 printf( "\t                GEOTECHNICAL DIVISION               \n" );
 printf( "\t                      R E L A X                     \n" );
 printf( "\t   FINITE ELEMENT METHOD - Dynamic relaxation alg.  \n\n" );
 printf( "\t                   Version: 2.9.94C - February/2001 \n" );
 printf( "\t                   Version: 3.0.00A - August/2005   \n" );
 printf( "\t====================================================\n\n" );
#endif
 printf( "\tEnter the input file name [.nf|.dat]: " );

} /* End of _IoInitScreem */


/*
%F This function make a copy of the input file in the output file.
*/
static int _IoCopyInputFile( void )
{
 char s[BUFSIZ+1], *c;

/* Rewind input file
 */
 rewind( nf );

/* Copy input file in output file
 */
 c = fgets( s, BUFSIZ+1, nf );
 while( (strncmp( s, "%END", 4 ) != 0) && (c != 0L) )
 {
  fprintf( pos, "%s", s );
  c = fgets( s, BUFSIZ+1, nf );
 }

 if( c == 0L )
 {
  printf( "\n\nNo END label was found in input file.\n\n" );
  return 0;
 }

 rewind( nf );

 return 1;

} /* End of _IoCopyInputFile */


/*
%F
*/
static void _IoRemoveTempFiles( void )
{
 sTmpFileTags *item = 0L;

/* Remove temporary files
 */
 remove( arqndlr );
 remove( arqelmr );
 
/* Release temp. file tags list
 */
 while( TmpFileTag != 0L )
 {
  item = TmpFileTag;
  TmpFileTag = (sTmpFileTags *)RSllRmvTop( (RSll *)item );
  free( item );
 }

} /* End of _IoRemoveTempFiles */


/*
** ------------------------------------------------------------------------
** Public functions:
*/


/*
%F This function opens the input/output files that used by the Relax 
   program.
%i Number of arguments in the command line.
%i Arguments values in the command line.
*/
int IoOpenFiles( int argc, char *argv[] )
{
/* Display the program initial screen
 */
 _IoInitScreen( );

/* Get the input file name
 */
 if( argc > 1 )
 {
  strcpy( arqnf, argv[argc-1] );
  printf( "%s\n\n\n", arqnf );
 }
 else
 {
  fscanf( stdin, "%s", arqnf );
  printf( "\n\n" );
 }
 
/* Define the output, the data and the temporary files
 */
 strcpy( arqpos, arqnf );
 strcpy( arqdat, arqnf );
 strcpy( arqndlr, arqnf );
 strcpy( arqelmr, arqnf );

/* Set the defaults extensions
 */
 strcat( arqnf, ".nf" );
 strcat( arqdat, ".dat" );
 strcat( arqpos, ".pos" );
 strcat( arqndlr, "_1.tmp" );
 strcat( arqelmr, "_2.tmp" );

/* Try to open a file with the Neutral File extension. If the file does not 
 * exists, try to open a file with the Data file extension.
 */
 if( (nf = fopen( arqnf, "r" )) == 0L )
 {
  if( (nf = fopen( arqdat, "r" )) == 0L )
  {
   printf( "\n\n\tCould not open the given input file.\n\n" );
   return 0;
  }
 }

/* Open the output file
 */
 if( (pos = fopen( arqpos, "w" )) == 0L )
 {
  printf( "\n\n\tCould not open the given output file.\n\n" );
  return 0;
 }

/* Make a copy of the input file
 */
 if( !_IoCopyInputFile( ) ) return 0;
 
 return 1;

} /* End of IoOpenFiles */


/*
%F This function closes all opened files.
*/
void IoCloseFiles( void )
{
/* Close input and output files
 */
 fclose( nf );
 fclose( pos );

} /* End of IoCloseFiles */


/*
%F This function reads the input file. This function sets the current
   input file for the Neutral File interpreter module and call it to 
   interprete the input file.
*/
int IoReadFile( void )
{
/* Show feedback
 */
 printf( "\tReading input file..................." );
 fflush( stdin );

/* Set the input file
 */ 
 NfiSetFileHandle( nf );

/* Interprete the input file
 */
 if ( !NfiInterpFile() ) return 0;

/* Check to see if the configuration parametere was read from the 
 * Neutral File. If not, search for the relax config file.
 */
 if( !NfiCheckParameters() ) {
 /* Check to see if the config exists in the current directory.
  */
  struct stat statres;
  if( stat( "relax.cfg", &statres ) == -1 ) {
   char *apldir;
   if( (apldir = getenv( "TECTOSDIR" )) != 0L )
#ifdef WIN32
    sprintf( arqcfg, "%s\\%s", apldir, "relax.cfg" );
#else
    sprintf( arqcfg, "%s/%s", apldir, "relax.cfg" );
#endif
   else
    strcpy( arqcfg, "relax.cfg" );
  }
  else {
   strcpy( arqcfg, "relax.cfg" );
  }

 /* Open the config file
  */
  if( (cfg = fopen( arqcfg, "r" )) == 0L ) {
   printf( "\n\n\tCould not open the given config file.\n\n" );
   return 0;
  }
  NfiSetFileHandle( cfg );
  if( !NfiReadConfigFile() ) return 0;

 /* Close config file
  */
  fclose( cfg );
 }

/* Show feedback
 */
 printf( "\n\n\n" );

 return 1;

} /* End of IoReadFile */


/*
%F This function writes the output file. This function sets the current 
   file handle for the Neutral File interpreter module and call it to 
   write the results.
*/
int IoWriteFile( void )
{
/* Set the output file
 */
 NfiSetFileHandle( pos );

/* Write the results
 */
   
 if( !NfiWriteResults( ) ) return 0;

/* Close temp. files
 */
 _IoRemoveTempFiles( );

 return 1;

} /* End of IoWriteFile */


/*
%F This function open a temp. file to save the results.
*/
int IoStartSave( void )
{
 sTmpFileTags *item = 0L;

/* Create a temp. file tag item
 */
 item = (sTmpFileTags *)calloc(1, sizeof(sTmpFileTags));
 
/* Create a temp. file tag object
 */
 item->id      = _iNumFileTags++;
 item->ndlrpos = 0L;
 item->elmrpos = 0L;
 item->next    = 0L;
 
/* Open temp. files
 */
 if( (ndlr == 0L) && (elmr == 0L) )
 {
  ndlr = fopen( arqndlr, "w+b" );
  elmr = fopen( arqelmr, "w+b" );
  if( (ndlr == 0L) || (elmr == 0L) )
  {
   printf( "\n\n\tCould not open a temporary result file.\n\n" );
   return 0;
  }
 }

/* Get current tag position
 */
 item->ndlrpos = ftell( ndlr );
 item->elmrpos = ftell( elmr );

/* Add item on list
 */
 TmpFileTag = (sTmpFileTags *)RSllAddEnd( (RSll *)TmpFileTag, (RSll *)item );

   return 1;

} /* End of IoStartSave */


/*
%F This function ends the temp. file save. The function close the opened temp.
   file.
*/
void IoEndSave( void )
{
/* Close the opende temp. file
 */
 if( ndlr != 0L )
  fclose( ndlr );

 if( elmr != 0L )
  fclose( elmr );

} /* End of IoEndSave */


/*
%F This funtion finds the result tag in the temp. file.
*/
int IoFindResultTag( int id, long *ndlrpos, long *elmrpos )
{
 sTmpFileTags *item = 0L;

/* Find the tag by the id
 */
 item = TmpFileTag;
 while( (item != 0L) && (item->id != id) )
  item = item->next;

 if( item == 0L )
 {
  printf( "\n\n\tCould not find a result file tag.\n\n" );
  return 0;
 }

/* Get tag and set its position
 */
 (*ndlrpos) = item->ndlrpos;
 (*elmrpos) = item->elmrpos;

 fseek( ndlr, item->ndlrpos, SEEK_SET );
 fseek( elmr, item->elmrpos, SEEK_SET );
 
 return 1;
 
} /* End of IoFindResultTag */


/*
%F This function closes the temp. file
*/
void IoCloseTempFile( void )
{
/* Close opened files
 */
 IoEndSave( );

} /* End of IoCloseTempFile */


/*
%F This function reset this packtage.
*/
void IoReset( void )
{
  _iNumFileTags = 0;
  TmpFileTag    = 0L;
  nf   = 0L;
  pos  = 0L;
  cfg  = 0L;
  ndlr = 0L;
  elmr = 0L;

} /* End of IoReset */


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

---