Return to hist.c CVS log

Up to [Research Unix] / researchv9 / jerq / sgs / libsdp

Annotation of researchv9/jerq/sgs/libsdp/hist.c, revision 1.1

1.1     ! root        1: static char ID[] = "@(#) hist.c: 1.2 6/29/82";
        !             2: #include <stdio.h>
        !             3: #include "sdp.h"
        !             4: #include "define3.h"
        !             5: 
        !             6: 
        !             7: #ifdef SHORT
        !             8: #define HI01   "HI01 "
        !             9: #define HI02   "HI02 "
        !            10: #define HI03   "HI03 "
        !            11: #define HIAU   "HIAU "
        !            12: #else
        !            13: #define HI01   "HI01 -- unable to close stream\n%o\n",hist_fp
        !            14: #define HI02   "HI02 -- unable to close previous stream\n%o\n%s\n",hist_fp,name
        !            15: #define HI03   "HI03 -- unable to open history file\n%s\n",name
        !            16: #define HIAU   "%s","HIAU -- audit failed in sdp_hist\n"
        !            17: #endif
        !            18: 
        !            19: #ifdef SWEET
        !            20: #define PROLOG
        !            21: #define EPILOG
        !            22: #else
        !            23: #define PROLOG         if( (aud_flag == AUDITON) && (aud_check() == ERROR) )\
        !            24:                                ERR_RET(HIAU,NULL)
        !            25: #define EPILOG         if(aud_flag == AUDITON)\
        !            26:                                aud_set() ;\
        !            27:                        if(hist_fp != NULL)\
        !            28:                                fprintf(hist_fp,"HI\t%s\n",name) ;
        !            29: #endif
        !            30: 
        !            31: extern int aud_flag ;
        !            32: extern struct LIBFILE *Glib_file ;
        !            33: extern FILE *hist_fp ;
        !            34: 
        !            35: extern aud_set() ;
        !            36: extern int aud_check() ;
        !            37: extern FATAL() ;
        !            38: 
        !            39: MY_FILE *                              /* FILE pointer */
        !            40: sdp_hist(name)
        !            41: char *name ;
        !            42: {
        !            43: 
        !            44:        PROLOG
        !            45: 
        !            46:                if(name == NULL)
        !            47:                {
        !            48:                        if(fclose(hist_fp) == EOF)
        !            49:                                ERR_RET(HI01,NULL)
        !            50:                        hist_fp = NULL ;
        !            51:                }
        !            52:                else
        !            53:                {
        !            54:                        if( (hist_fp != NULL) && (fclose(hist_fp) == EOF) )
        !            55:                                ERR_RET(HI02,NULL)
        !            56:                        if( (hist_fp = fopen(name,"w")) == NULL )
        !            57:                                ERR_RET(HI03,NULL)
        !            58:                }
        !            59: 
        !            60:        EPILOG
        !            61:        return((MY_FILE *)hist_fp) ;
        !            62: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.