shefclose.c

Go to the documentation of this file.

/*Translated by FOR_C, v3.4.2 (-), on 06/07/94 at 17:01:19 */
/*FOR_C Options SET: c=2 com=u do=r4 ftn=2ln6k op=iv s=dvn str=l sq=i */
#define _POSIX_SOURCE
#include <stdio.h>
#include <stdlib.h>
#include <ctype.h>
#include <dirent.h>
#include <unistd.h>
#include <math.h>
#include <string.h>
#include <fcntl.h>
#include <sys/stat.h>
#include "shef_structs_external.h"
 
/*---------------------------------------------------------------------
  
       NAME
         SUBROUTINE SHEFCLOSE
  
       PURPOSE                                                    
         Close the files
  
       VERSION and UPDATES
         1.0    MAY 94   David G. Brandon
                Also Translated to 'C' using FOR_C
         1.1    OCT 95   DGB
                Add closing of *sensors, *sqlerrors, *fp_postlog, *testfile
     1.2    MAR 30 2001 DGB
            Set filepointers to NULL after closing.
 *--------------------------------------------------------------------- */
 
 
void  shefclose()
{
 
    if ( fp_.icher != NULL )
        fflush( fp_.icher);
 
    if ( fp_.lchn != NULL )
    {
       fclose(fp_.lchn);
       fp_.lchn = 0;                                        /* dgb:03/30/01 */
    }
    if ( fp_.mchn != NULL )
    {
       fclose(fp_.mchn);
       fp_.mchn = 0;                                        /* dgb:03/30/01 */
    }
    if ( fp_.kchn != NULL )
    {
       fclose(fp_.kchn);
       fp_.kchn = 0;                                        /* dgb:03/30/01 */
    }    
    /*             If there are errors, always write out error file.
     *             If the control variable is set to '+', write
     *             out error file.  If the control variable is set to
     *             '-', and there are now warnings, do not write.
     * */
    if( error_.nerror != 0 || error_.nwarn != 0 )
    {
 
           if ( fp_.icher != NULL )
           {
              fclose(fp_.icher);
          fp_.icher = 0;                           /* dgb:03/30/01 */
           }
        }
        else
        {
 
           if( cont_.error_flag[0] != '+' )
           {
              if ( fp_.icher != NULL )
              {
                 fclose(fp_.icher);             /* dgb:03/30/01 */
                 remove(tempfiles_.err_file);
              }
           }
           else
           {
               if ( fp_.icher != NULL )
               {
                  fclose(fp_.icher);
                  fp_.icher = 0;                /* dgb:03/30/01 */
               }
           }
    }
 
    if( cont_.out_flag[0] == '+' )
        {
           if ( fp_.jchn != NULL )
           {
              fflush(fp_.jchn);
              fclose(fp_.jchn);
              fp_.jchn = 0;                         /* dgb:03/30/01 */
           }
        }
 
    if ( fp_postlog != NULL ) 
    {
           fflush(fp_postlog);
           fclose(fp_postlog);
       fp_postlog = 0;                                  /* dgb:03/30/01 */
    }
 
    if ( sensors != NULL )
    {
        fflush(sensors);
        fclose(sensors);
    sensors = 0;                                        /* dgb:03/30/01 */
    }
 
    if ( sqlerrors != NULL )
    {
       fflush(sqlerrors);
       fclose(sqlerrors);
       sqlerrors = 0;                                       /* dgb:03/30/01 */
    }
 
    if ( testfile != NULL )
    {
       fflush(testfile);
       fclose(testfile);
       testfile = 0;                                        /* dgb:03/30/01 */
    }
 
    return;
 
}