Return to rdSPACE.c CVS log

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

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

1.1       root        1: static char ID[] = "@(#) rdSPACE.c: 1.1 3/16/82";
                      2: #include <stdio.h>
                      3: #include "sdp.h"
                      4: #include "define2.h"
                      5: #include "define3.h"
                      6: 
                      7: #ifdef SHORT
                      8: #define RS01   "RS01 "
                      9: #define RS02   "RS02 "
                     10: #define RS03   "RS03 "
                     11: #define RS04   "RS04 "
                     12: #define RS05   "RS05 "
                     13: #define RS06   "RS06 "
                     14: #define RS07   "RS07 "
                     15: #define RS08   "RS08 "
                     16: #define RS09   "RS09 "
                     17: #define RS10   "RS10 "
                     18: #define RS11   "RS11 "
                     19: #define RS12   "RS12 "
                     20: #else
                     21: #define RS01   "RS01 -- fail to allocate for header file\n%s\n",sp->head_name
                     22: #define RS02   "RS02 -- error return from buildname\n%s\n",name
                     23: #define RS03   "RS03 -- fail to open header file\n%s\n",sp->head_name
                     24: #define RS04   "RS04 -- fail to position header file\n%s\n",sp->head_name
                     25: #define RS05   "RS05 -- fail to read header file\n%s\n",sp->head_name
                     26: #define RS06   "RS06 -- fail to allocate for file information\n%s\n",sp->head_name
                     27: #define RS07   "RS07 -- fail to position header file for file information\n%s\n",sp->head_name
                     28: #define RS08   "RS08 -- fail to read header file for file information\n%s\n",sp->head_name
                     29: #define RS09   "RS09 -- fail to allocate for stack information\n%s\n",sp->head_name
                     30: #define RS10   "RS10 -- fail to position header file for stack information\n%s\n",sp->head_name
                     31: #define RS11   "RS11 -- fail to read stack information\n%s\n",sp->head_name
                     32: #define RS12   "RS12 -- fail to close header file\n%s\n",sp->head_name
                     33: #endif
                     34: 
                     35: extern struct LIBFILE *Glib_file ;
                     36: extern int *ALLOC() ;
                     37: extern char *BUILDNAME() ;
                     38: extern FATAL() ;
                     39: 
                     40: struct SPACE *                         /* pointer to configuration structure or NULL */
                     41: rdSPACE(name)
                     42: char   *name ;
                     43: {
                     44:        register FD             fd ;
                     45:        char                    *head_name ;
                     46:        register struct SPACE   *sp ;
                     47: 
                     48:        if( (sp = (struct SPACE *)ALLOC(sizeof(struct SPACE))) == NULL )
                     49:                ERR_RET(RS01,NULL)
                     50: 
                     51:        if( (head_name = MBUILDNAME(name,-1)) == NULL )
                     52:                ERR_RET(RS02,NULL)
                     53: 
                     54:        if( (fd=MOPEN(head_name,RNLY)) == ERROR )
                     55:                ERR_RET(RS03,NULL)
                     56:        if(MSEEK(fd,0l) == ERROR)
                     57:                ERR_RET(RS04,NULL)
                     58: 
                     59:        if(MREAD(fd,sp,sizeof(struct SPACE)) == ERROR)
                     60:                ERR_RET(RS05,NULL)
                     61: 
                     62:        sp->head_name = head_name ;
                     63: 
                     64:        if( (sp->fileinfo = (struct FILEINFO *)ALLOC(sp->numbfile*sizeof(struct FILEINFO))) == NULL )
                     65:                ERR_RET(RS06,NULL)
                     66: 
                     67:        if(MSEEK(fd,(long)sizeof(struct SPACE)) == ERROR)
                     68:                ERR_RET(RS07,NULL)
                     69: 
                     70:        if(MREAD(fd,sp->fileinfo,sp->numbfile*sizeof(struct FILEINFO)) == ERROR)
                     71:                ERR_RET(RS08,NULL)
                     72: 
                     73:        if( (sp->staxinfo = (struct STAXINFO *)ALLOC(sp->numbstax*sizeof(struct STAXINFO))) == NULL )
                     74:                ERR_RET(RS09,NULL)
                     75: 
                     76:        if(MSEEK(fd,(long)(sp->numbfile*sizeof(struct FILEINFO)+sizeof(struct SPACE))) == ERROR)
                     77:                ERR_RET(RS10,NULL)
                     78: 
                     79:        if(MREAD(fd,sp->staxinfo,sp->numbstax*sizeof(struct STAXINFO)) == ERROR)
                     80:                ERR_RET(RS11,NULL)
                     81: 
                     82:        sp->next_space = NULL ;
                     83:        sp->environ = NULL ;
                     84: 
                     85:        if(MCLOSE(fd) == ERROR)
                     86:                ERR_RET(RS12,NULL)
                     87: 
                     88:        return(sp) ;
                     89: }

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