Return to destroy.c CVS log

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

Annotation of researchv9/jerq/sgs/libsdp/destroy.c, revision 1.1.1.1

1.1       root        1: static char ID[] = "@(#) destroy.c: 1.2 12/8/82";
                      2: #include <stdio.h>
                      3: #include "sdp.h"
                      4: #include "define2.h"
                      5: #include "define3.h"
                      6: 
                      7: #ifdef SHORT
                      8: #define DE01   "DE01 "
                      9: #define DE02   "DE02 "
                     10: #define DE03   "DE03 "
                     11: #define DE04   "DE04 "
                     12: #define DE05   "DE05 "
                     13: #define DEAU   "DEAU"
                     14: #else
                     15: #define DE01   "DE01 -- error return from rdSPACE\n%s\n",name
                     16: #define DE02   "DE02 -- fail to unlink header file\n%s\n",sp->head_name
                     17: #define DE03   "DE03 -- fail to build name\n%s%d\n",sp->head_name,i
                     18: #define DE04   "DE04 -- fail to unlink file\n%s\n",file_name
                     19: #define DE05   "DE05 -- unknown descriptor value\n%d\n",sp->fileinfo[i].desc
                     20: #define DEAU   "%s","DEAU -- audit failed in sdp_destroy\n"
                     21: #endif
                     22: 
                     23: #ifdef SWEET
                     24: #define PROLOG
                     25: #define EPILOG
                     26: #else
                     27: #define PROLOG         if( (aud_flag == AUDITON) && (aud_check() == ERROR) )\
                     28:                                ERR_RET(DEAU,ERROR)
                     29: #define EPILOG         if(aud_flag == AUDITON)\
                     30:                                aud_set() ;\
                     31:                        if(hist_fp != NULL)\
                     32:                                fprintf(hist_fp,"DE\t%s\n",name) ;
                     33: #endif
                     34: 
                     35: 
                     36: extern int aud_flag ;
                     37: extern struct LIBFILE *Glib_file ;
                     38: extern FILE *hist_fp ;
                     39: extern struct LIBFILE lib_file ;
                     40: 
                     41: extern char *BUILDNAME() ;
                     42: extern aud_set() ;
                     43: extern int aud_check() ;
                     44: extern FATAL() ;
                     45: extern FREE() ;
                     46: extern struct SPACE *rdSPACE() ;
                     47: extern UNLINK() ;
                     48: 
                     49: int                                    /* SUCCESS or ERROR */
                     50: sdp_destroy(name,library)
                     51: char           *name ;
                     52: struct LIBFILE *library ;
                     53: {
                     54:        register int            i ;
                     55:        register struct SPACE   *sp ;
                     56:        register char           *file_name ;
                     57: 
                     58:        PROLOG
                     59: 
                     60:        Glib_file = (library == NULL) ? &lib_file : library ;
                     61:        if( (sp = rdSPACE(name)) == NULL )
                     62:                ERR_RET(DE01,ERROR)
                     63: 
                     64:        if(MUNLINK(sp->head_name) == ERROR)
                     65:                ERR_RET(DE02,ERROR)
                     66: 
                     67:        for(i=0 ; i<sp->numbfile; i++)
                     68:                switch(sp->fileinfo[i].desc)
                     69:                {
                     70:                        case CLOSED:
                     71:                                if( (file_name = MBUILDNAME(sp->head_name,i)) == NULL )
                     72:                                        ERR_RET(DE03,ERROR)
                     73:                                if(MUNLINK(file_name) == ERROR)
                     74:                                        ERR_RET(DE04,ERROR)
                     75:                                FREE(file_name) ;
                     76:                                break ;
                     77: 
                     78:                        case NOTMADE:
                     79:                                break ;
                     80: 
                     81:                        default:
                     82:                                ERR_RET(DE05,ERROR)
                     83:                                break ;
                     84:                }
                     85: 
                     86:        FREE(sp->head_name) ;
                     87:        sp->head_name = NULL ;
                     88:        FREE((char *)sp->fileinfo) ;
                     89:        sp->fileinfo = NULL ;
                     90:        FREE((char *)sp->staxinfo) ;
                     91:        sp->staxinfo = NULL ;
                     92:        FREE((char *)sp) ;
                     93:        sp = NULL ;
                     94: 
                     95:        EPILOG
                     96:        return(SUCCESS) ;
                     97: }

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