Return to mid.c CVS log

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

Annotation of researchv9/jerq/sgs/compress/mid.c, revision 1.1.1.1

1.1       root        1: /*
                      2: *     static char ID_mid[] = "@(#) mid.c: 1.3 6/29/82";
                      3: */
                      4: 
                      5: #include <stdio.h>
                      6: #include "sdp.h"
                      7: #include "sdp1.h"
                      8: #include <signal.h>
                      9: #include "syms.h"
                     10: #include "tagitem.h"
                     11: 
                     12: 
                     13: /*     before starting pass 2 of utility, a table for index of
                     14:        tag must be built.  The tagitem and storage area for tags 
                     15:        saved in pass 1 are freed
                     16:  */
                     17: 
                     18: #define YES    1
                     19: #define NO     0
                     20: struct table{
                     21:        long    oldlcn;
                     22:        long    newlcn;
                     23:        long    real_loc;
                     24: } *tbl_head;
                     25: 
                     26: 
                     27: extern long    szecnt;
                     28: extern  char   *malloc();
                     29: extern long    tag_sum;
                     30: extern int     vflag;
                     31: extern char      tagname[];
                     32: extern int      framsz;
                     33: extern int        framect;
                     34: 
                     35: extern struct SPACE    *TAGSPACE;
                     36: extern struct ENVIRON  *ENV;
                     37: extern struct SPACE    *SYMSPACE;
                     38: 
                     39: 
                     40: build()
                     41: {
                     42: 
                     43: 
                     44:        extern ITEMID           ti_head;
                     45: 
                     46:        TAGITEM *tag_ptr, *tag_ptr2;
                     47:        ITEMID  tagid;
                     48:        struct table    *tbl_ptr;
                     49: 
                     50:        long            i;
                     51:        char           *p;
                     52: 
                     53: 
                     54:        if (symfini()!=YES)
                     55:                {
                     56:                fprintf(stderr,"could not close SDP\n");
                     57:                return (NO);
                     58:                }
                     59:        if (sdp_disconnect(TAGSPACE) == SDPERROR)       
                     60:                {
                     61:                fprintf(stderr,"Failed to close SDP for tag");
                     62:                return(NO);
                     63:                }
                     64:        if (sdp_vacate(ENV) == SDPERROR)
                     65:                {
                     66:                return (NO);
                     67:                }
                     68:        tbl_head = (struct table *) calloc((unsigned)tag_sum, sizeof(struct table));
                     69:        if ( tbl_head == NULL ) {
                     70:                fprintf(stderr,"No space for table\n");
                     71:            return(NO);
                     72:            }
                     73:        tbl_ptr = tbl_head;
                     74: 
                     75:        tagid = ti_head;
                     76: /*
                     77:        printf("framect=%d framsz=%d tagsum=%ld tab=%d\n",framect,framsz,
                     78:        tag_sum,sizeof(struct table));
                     79: */
                     80:        framect=((long) framect * framsz -  tag_sum * sizeof(struct table)) / framsz;
                     81: 
                     82:        if (framect < 2)
                     83:                {
                     84:                fprintf(stderr,"nospace for secondary house\n");
                     85:                return (NO);
                     86:                }
                     87:        ENV = sdp_house(framect,framsz,NULL);
                     88:        if (ENV == NULL)
                     89:                {
                     90:                fprintf(stderr,"secondary house failed\n");
                     91:                return (NO);
                     92:                }
                     93:        if ((int)(TAGSPACE=sdp_connect(tagname,ENV,NULL,RNLY)) == SDPERROR)
                     94:                {
                     95:                fprintf(stderr,"Failed to reinitialized SDP symbol space\n");
                     96:                return (NO);
                     97:                }
                     98:        tag_ptr = (TAGITEM *) sdp_use(TAGSPACE,tagid,RNLY);
                     99: 
                    100:        /*
                    101:         * build table
                    102:         */
                    103: 
                    104:        for ( i=0L; i < tag_sum; i++) {
                    105:                tbl_ptr->oldlcn = tag_ptr->oldloc;
                    106:                tbl_ptr->newlcn = tag_ptr->newloc;
                    107:                if ( tag_ptr->p_realtag == 0L)
                    108:                        tbl_ptr->real_loc = tbl_ptr->newlcn;
                    109:                else {
                    110:                        tag_ptr2 = (TAGITEM *)sdp_use(TAGSPACE,tag_ptr->p_realtag,RNLY);
                    111:                        tbl_ptr->real_loc = tag_ptr2->newloc;
                    112:                        sdp_unuse(TAGSPACE,tag_ptr->p_realtag,RNLY);
                    113:                        }
                    114: 
                    115:                ++tbl_ptr;
                    116:                sdp_unuse(TAGSPACE,tagid,RNLY);
                    117:                tagid = tag_ptr->next_ti;
                    118:                if ( (i+1) < tag_sum )
                    119:                        tag_ptr = (TAGITEM *) sdp_use(TAGSPACE,tagid,RNLY);
                    120:        }
                    121: 
                    122:        return( YES );
                    123: }

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