ModIni.c

/*
 * LSI-11 linker
 * æÕÎËÃÉÉ ÄÏÓÔÕÐÁ Ë ÏÂ'ÅËÔÎÙÍ ÍÏÄÕÌÑÍ
 * éÓÐÏÌØÚÕÅÔÓÑ a.out-ÐÏÄÏÂÎÙÊ ÆÏÒÍÁÔ, ÎÏ ÚÁÇÏÌÏË ÎÁÈÏÄÉÔÓÑ × ÓÔÁÔØÅ.
 */
#include <FileStruct>
#include <FileSystem>
#define LFNAME  sizeof(Fname)
#include <FileIO>
#define READL   2
#include <SysErrors>
#include <SysStrings>         /* MVS() */
#include "LinkerDefs"
#include "CatalDefs"

static Module  modvect[ MAXMOD ];    static int Nmods;
static Library libvect[ MAXLIB ];    static int Nlibs;

#define ReadLeng (SectorSize*4)
static struct {
    int bounder;
    char buffer[ ReadLeng ];
} bu;

 /* ïÐÉÓÁÔÅÌØ ÔÅËÕÝÅÇÏ ÂÕÆÅÒÁ */
static int savactual;
static unsigned savblock;
static unsigned savleng;

 /* ïÐÉÓÁÔÅÌØ ÔÅËÕÝÅÇÏ ÍÏÄÕÌÑ */
static unsigned blbase; /* âÁÚÁ ÍÏÄÕÌÑ × ÆÁÊÌÅ (ÓÅËÔÏÒ É ÉÎÄÅËÓ)... */
static int ibase;       /* .. ÄÌÑ ÍÏÄÕÌÑ × ÏÔÄÅÌØÎÏÍ ÆÁÊÌÅ == 0,0   */
static unsigned block;  /* õËÁÚÁÔÅÌØ × ÆÁÊÌ (ÓÅËÔÏÒÙ). äÌÑ ÂÉÂÌÉÏÔÅËÉ
                         * ÍÏÖÎÏ ÎÅÐÏÓÒÅÄÓÔ×ÅÎÎÏ ÉÓÐÏÌØÚÏ×ÁÔØ × io() */
static unsigned fstop;  /* äÌÉÎÁ × ÓÅËÔÏÒÁÈ, ÄÌÑ ÂÉÂÌÉÏÔÅÞÎÏÇÏ -
                         * ÁÄÒÅÓ ÂÌÏËÁ ÓÌÅÄÕÀÝÅÇÏ ÆÁÊÌÁ */
static int lastfill;    /* ëÏÌÉÞÅÓÔ×Ï ÂÁÊÔ × ÐÏÓÌÅÄÎÅÍ ÓÅËÔÏÒÅ */
static int begind;      /* óÍÅÝÅÎÉÅ ÏÔÎÏÓÉÔÅÌØÎÏ block */
static int secsize;     /* òÁÚÍÅÒ ÓÅËÔÏÒÁ × ÂÁÊÔÁÈ */
static Module *curmod;  /* ôÅËÕÝÉÊ ÍÏÄÕÌØ */
static char flab;       /* íÅÔËÁ ÆÁÊÌÁ (ÅÓÌÉ ÎÅ ÂÉÂÌÉÏÔÅÞÎÙÊ) */

#define SECTOR secsize

static int modnext;

/*
 * éÎÉÃÉÁÃÉÑ × ÎÁÞÁÌÅ ×ÓÅÊ ÒÁÂÏÔÙ
 */
void ModIni()
{
    FileItem *ip;
    int rc;

    /* ïÔËÒÙ×ÁÅÍ ×ÓÅ ÂÉÂÌÉÏÔÅËÉ */
    Nlibs = 0;
    CatIni( WorkCatal );
    while( (ip = CatNext()) != NULL ){
        if( (ip->type & 0x7F) == 'U' ){
            if( (rc = FindFile( ip, WorkCatal )) < 0 ){
                Error(3);        /* ôÁËÏ×ÁÑ ÎÅ ÎÁÊÄÅÎÁ */
            }
            libvect[ Nlibs ].Lparent = WorkCatal;
            libvect[ Nlibs ].Llabel = (char) rc;
            MVS( ip->name.c, LFNAME, libvect[ Nlibs ].Lname );
            Nlibs++;
        }
    }

    Nmods = 0;                   /* Bss Õ ÎÁÓ ÎÅ ÞÉÓÔÉÔÓÑ */
    modnext = 0;                 /* ÄÌÑ ×ÔÏÒÏÇÏ ÐÒÏÈÏÄÁ */
}

 /* ÷ÙÄÅÌÅÎÉÅ É ÚÁÐÏÌÎÅÎÉÅ ÜÌÅÍÅÎÔÁ ÔÁÂÌÉÃÙ ÍÏÄÕÌÅÊ */
 /* ëÏÅ-ÞÔÏ ÚÁÐÏÌÎÑÅÔÓÑ ÐÏÔÏÍ: Mlibflag É Mxxxbase */
static Module *EnterModule( FileItem *ip );
static Module *EnterModule( ip )
    FileItem *ip;
{
    Module *mp;
    char *pci;

    if( Nmods == MAXMOD ) Error(5);
    mp = & modvect[ Nmods++ ];
    MVS( ip->name.c, LFNAME, mp->Mfilnam );    SetDiag( ip->name.c );
    mp->Mldbase = 0;    mp->Mbssoff = 0;     /* üÔÏ ÚÁÐÏÌÎÑÅÔ Tcopy() */
     /* åÄÉÎÓÔ×ÅÎÎÏ ÐÅÒÅÎÏÓÉÍÙÊ ÓÐÏÓÏ ÞÔÅÎÉÑ ÓÔÁÔØÉ ÆÁÊÌÁ */
    pci = (char*) &ip->info;
    mp->Mtextsize = (pci[ 0 ] << 8) + pci[ 1 ];
    mp->Mdatasize = (pci[ 2 ] << 8) + pci[ 3 ];
    mp->Mbsssize  = (pci[ 4 ] << 8) + pci[ 5 ];
    mp->Msymsize  = (pci[ 6 ] << 8) + pci[ 7 ];

    mp->Mbegsym = NULL;

    return mp;
}

/*
 * ïÔËÒÙ×ÁÅÍ ÆÁÊÌ É ÚÁÐÏÌÎÑÅÍ ÓÔÁÔÉÞÅÓËÕÀ ÉÎÆÏÒÍÁÃÉÀ (2 ×ÁÒÉÁÎÔÁ)
 */
static void OpenLib( FileItem *, Module * );
static void OpenLib( ip, mp )
    FileItem *ip;
    Module *mp;
{
    SECTOR = GetSectorSize( mp->Mvar.Mlib.Mlibptr->Llabel );
    if( SECTOR > ReadLeng ) Error(15);
    blbase = block = ip->ident;
    ibase = begind = ip->p.shift;
    fstop = (ip+1)->ident;
    lastfill = (ip+1)->p.shift;
    if( lastfill != 0 ) fstop++;  else lastfill = SECTOR;
    flab = 0;
}

static void OpenObj( char );
static void OpenObj( fl )
    char fl;
{

    SECTOR = GetSectorSize( fl );
    if( SECTOR > ReadLeng ) Error(15);
    block = blbase = 0;
    fstop = (int) GetFileLeng( fl );
    lastfill = SECTOR;    begind = ibase = 0;
    flab = fl;
}

/*
 * ïÔËÒÙÔØ ÍÏÄÕÌØ ÐÏ ÉÍÅÎÉ (Ô.Å. ÐÏÉÓË)
 * éÚ ÐÏÓÌÅÄÎÅÇÏ ÏÔËÒÙÔÏÇÏ ÍÏÄÕÌÑ ×ÏÚÍÏÖÎÏ ÞÔÅÎÉÅ.
 */
Module *ModOpen( name )
    char *name;
{
    static FileItem ipar;

    Module *mp;
    FileItem *ip;

    { register int i;    register char *ns = name;
        for( i = 0; i < LFNAME; i++ ){
            ipar.name.c[ i ] = (*ns != '\0') ? *ns++ : ' ';
        }
        ipar.type = 'O';
    }

    savactual = FALSE;              /* ôÅÒÑÅÍ ÂÕÆÅÒ (ÄÒÕÇÏÇÏ ÆÁÊÌÁ) */

    /*
     * éÝÅÍ × ÒÁÂÏÞÅÍ ËÁÔÁÌÏÇÅ
     */
    {  register rc;
        rc = FindFile( &ipar, WorkCatal );
        if( rc >= 0 ){              /* æÁÊÌ ÍÏÄÕÌÑ ÎÁÊÄÅÎ */
            ip = GetFileItem( (char) rc );
            mp = EnterModule( ip ); /* òÅÚÅÒ×ÉÒÕÅÍ ÏÐÉÓÁÔÅÌØ */
            mp->Mlibflag = Mobjfile;
            OpenObj( (char)rc );    /* úÁÄÁÎÉÅ ÓÔÁÔÉËÉ ÄÌÑ ÞÔÅÎÉÑ */
            return curmod = mp;
        }else if( rc != ErrFile ){  /* ëÁËÁÑ-ÔÏ ÏÛÉÂËÁ ÆÁÊÌ. ÓÉÓÔÅÍÙ */
            Error(4);
        }
    }

    /*
     * éÝÅÍ × ÂÉÂÌÉÏÔÅËÁÈ
     */
    {  int lct;                     /* Libraries CounTer */
        for( lct = 0; lct < Nlibs; lct++ ){
            CatIni( libvect[ lct ].Llabel );
            while( (ip = CatNext()) != NULL ){
                if( (ip->type & 0x7F) == 'O' &&
                    _cmps( ip->name.c, ipar.name.c, LFNAME ) == 0 )
                {
                    mp = EnterModule( ip );   /* ðÏÌÕÞÁÅÍ ÏÐÉÓÁÔÅÌØ */
                    mp->Mlibflag = Mlibrary;  /* úÁÎÏÓÉÍ ×ÁÒÉÁÎÔ */
                    mp->Mvar.Mlib.Mlibptr = & libvect[ lct ];
                    OpenLib( ip, mp );
                    return curmod = mp;
                }
            }
        }
    }

    Diagnose( 1, name );                    /* óÏÏÂÝÁÅÍ, ÞÔÏ ÎÅ ÎÁÛÌÉ*/
    return curmod = NULL;                   /* æÉÇÁ Ó ÍÁÓÌÏÍ */
}

/*
 * þÔÅÎÉÅ ÉÚ ÍÏÄÕÌÑ (×ÏÚÍÏÖÎÏ, ÂÉÂÌÉÏÔÅÞÎÏÇÏ)
 */
void ModRead( ppbuff, pleng )
    char **ppbuff;
    int *pleng;
{
    IOl_block iopar;

    /*
     * ðÒÏ×ÅÒÑÅÍ ÎÁ ÐÏÐÁÄÁÎÉÅ × ÂÕÆÅÒ
     */
    if( savactual ){          /* ÷ ÂÕÆÅÒÅ ÞÔÏ-ÎÉÂÕÄØ ÅÓÔØ ? */
        if( block >= savblock && block < savblock + savleng/SECTOR ){
             /* ðÏÐÁÄÁÎÉÅ × ÂÕÆÅÒ */
            *ppbuff = bu.buffer + (block - savblock)*SECTOR + begind;
            *pleng = savleng - (*ppbuff - bu.buffer);
            if( savblock + savleng/SECTOR >= fstop ){
                *pleng -= (SECTOR-lastfill);
            }
            return;
        }
    }

    /*
     * úÁÐÏÌÎÑÅÍ É ÏÔÄÁÅÍ ÂÕÆÅÒ
     */
    if( curmod->Mlibflag != Mobjfile ){   /* âÉÂÌÉÏÔÅÞÎÙÊ ÍÏÄÕÌØ ? */
        iopar.label = curmod->Mvar.Mlib.Mlibptr->Llabel;
    }else{
        iopar.label = flab;
    }
    iopar.dir = READL;
    iopar.bufadr = bu.buffer;
    if( (iopar.buflen = ReadLeng)/SECTOR >= fstop-block ){
        iopar.buflen = (fstop-block)*SECTOR;
    }
    iopar.sector = (long) block;
    if( (int) _io_( &iopar ) >> 8 == (~0) ) Error(6);
    savblock = block;  savleng = iopar.buflen+(SECTOR-1) & ~(SECTOR-1);
    savactual = TRUE;           /* savxxxx ÔÅÐÅÒØ ÁËÔÕÁÌØÎÙ */
    block += iopar.buflen/SECTOR;

    *ppbuff = bu.buffer + begind;
    *pleng = iopar.buflen - begind;
    if( block >= fstop ) *pleng -= (SECTOR-lastfill);
    begind = 0;
}

/*
 * óÍÅÝÅÎÉÅ ÕËÁÚÁÔÅÌÑ ÞÔÅÎÉÑ
 */
void ModSeek( offset )
    unsigned offset;          /* óÍÅÝÅÎÉÅ ÚÁÄÁÅÔÓÑ × ÂÁÊÔÁÈ */
{
    block = blbase + (ibase + offset) / SECTOR;
    begind =         (ibase + offset) % SECTOR;
}

/*
 * ïÓ×ÏÂÏÖÄÅÎÉÅ ÍÅÔËÉ ÆÁÊÌÁ
 */
void ModClose()
{
    if( curmod->Mlibflag == Mobjfile ) CloseFile( flab );
    savactual = FALSE;
}

/*
 * ïÔËÒÙÔÉÅ ÍÏÄÕÌÑ ÎÁ ×ÔÏÒÏÍ ÐÒÏÈÏÄÅ, Ô.Å. ÂÅÚ ÐÏÉÓËÁ
 */
Module *ModNext()
{
    Module *mp;

    if( modnext == Nmods ) return NULL;
    mp = & modvect[ modnext++ ];
    if( mp->Mlibflag != Mobjfile ){     /* âÉÂÌÉÏÔÅËÁ */
        FileItem *ip;

        CatIni( mp->Mvar.Mlib.Mlibptr->Llabel );
        loop{
            if( (ip = CatNext()) == NULL ) Error(7);
            if( (ip->type & 0x7F) == 'O' &&
                _cmps( ip->name.c, mp->Mfilnam, LFNAME ) == 0 ) break;
        }
        OpenLib( ip, mp );
    }else{
        int rc;
        FileItem csv_par;

        csv_par.type = 'O';
        MVS( mp->Mfilnam, LFNAME, csv_par.name.c );
        if( (rc = FindFile( &csv_par, WorkCatal )) < 0 ) Error(4);
        OpenObj( (char)rc );
    }

    SetDiag( mp->Mfilnam );
    return curmod = mp;
}