Return to aux.c CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / cdb / transBsd

Annotation of cci/usr/src/usr.bin/cdb/transBsd/aux.c, revision 1.1

1.1     ! root        1: /* $Header: aux.c,v 1.1 86/03/24 16:19:19 rcs Exp $ */
        !             2: /* (C) Copyright 1985 Third Eye Software, Inc. - All Rights Reserved */
        !             3: 
        !             4: #include "tes42.h"
        !             5: 
        !             6: 
        !             7: /* A U X   B T   I N T */
        !             8: 
        !             9: export void AuxBtInit()
        !            10: {
        !            11:     AddAux(0);
        !            12:     AddAux(AuxFBType(btInt));
        !            13:     AddAux(AuxFBType(btChar));
        !            14:     AddAux(AuxFBType(btLong));
        !            15:     AddAux(AuxFBType(btShort));
        !            16:     AddAux(AuxFBType(btUChar));
        !            17:     AddAux(AuxFBType(btUShort));
        !            18:     AddAux(AuxFBType(btULong));
        !            19:     AddAux(AuxFBType(btUInt));
        !            20:     AddAux(AuxFBType(btFloat));
        !            21:     AddAux(AuxFBType(btDouble));
        !            22:     AddAux(AuxFBType(btNil));
        !            23:     AddAux(AuxFBType(btNil));
        !            24: } /* AuxBtInit */
        !            25: 
        !            26: 
        !            27: /* A D D   A U X */
        !            28: 
        !            29: export int AddAux(aux)
        !            30: AUXU   aux;
        !            31: {
        !            32:     if (viauxMac >= viauxMax)
        !            33:        panic("Aux overrrun");
        !            34:     viaux = viauxMac++;
        !            35:     vrgAux[viaux]= aux;
        !            36: 
        !            37:     return(viaux);
        !            38: } /* Add Aux */
        !            39: 
        !            40: 
        !            41: /* C H A N G E   A U X */
        !            42: 
        !            43: export void ChangeAux(iaux, aux)
        !            44: int    iaux;
        !            45: AUXU   aux;
        !            46: {
        !            47:     if (iaux > viauxMac)
        !            48:        panic("Change non-existant aux");
        !            49:     vrgAux[iaux]= aux;
        !            50: } /* ChangeAux */
        !            51: 
        !            52: 
        !            53: /* A U X   F   I A U X */
        !            54: 
        !            55: export AUXU AuxFIaux(iaux)
        !            56: {
        !            57:     if (iaux >= viauxMac)
        !            58:        panic("Change non-existant aux");
        !            59:     return(vrgAux[iaux]);
        !            60: } /* AuxFIaux */
        !            61: 
        !            62: 
        !            63: /* A D D   T Q */
        !            64: 
        !            65: export void AddTq(iaux, tq)
        !            66: int    tq;
        !            67: int    iaux;
        !            68: {
        !            69:     AUXU       aux;
        !            70: 
        !            71:     aux = AuxFIaux(iaux);
        !            72:     if (aux.ti.tq5 != tqNil)
        !            73:        panic("tq overflow");
        !            74: 
        !            75:     aux.ti.tq5=        aux.ti.tq4;
        !            76:     aux.ti.tq4=        aux.ti.tq3;
        !            77:     aux.ti.tq3=        aux.ti.tq2;
        !            78:     aux.ti.tq2=        aux.ti.tq1;
        !            79:     aux.ti.tq1=        aux.ti.tq0;
        !            80:     aux.ti.tq0=        tq;
        !            81: 
        !            82:     ChangeAux(iaux, aux);
        !            83: } /* AddTq */
        !            84: 
        !            85: 
        !            86: /* A U X   F   B T */
        !            87: 
        !            88: export AUXU AuxFBType(bt)
        !            89: int    bt;
        !            90: {
        !            91:     AUXU       aux;
        !            92: 
        !            93:     aux.isym = 0;      /* zero out the word */
        !            94:     aux.ti.bt= bt;
        !            95:     return(aux);
        !            96: } /* AuxFBType */
        !            97: 
        !            98: 
        !            99: /* I A U X   F   C O P Y   T Y */
        !           100: 
        !           101: export int IauxFCopyTy(iauxType)
        !           102: long   iauxType;
        !           103: {
        !           104:     int                iaux;
        !           105:     AUXU       aux;
        !           106:     int                cAux= 0;
        !           107: 
        !           108:     aux = AuxFIaux(iauxType);
        !           109:     if (FComplexBt(aux.ti.bt))
        !           110:        cAux++;
        !           111:     if (aux.ti.tq0 == tqArray) cAux++;
        !           112:     if (aux.ti.tq1 == tqArray) cAux++;
        !           113:     if (aux.ti.tq2 == tqArray) cAux++;
        !           114:     if (aux.ti.tq3 == tqArray) cAux++;
        !           115:     if (aux.ti.tq4 == tqArray) cAux++;
        !           116:     if (aux.ti.tq5 == tqArray) cAux++;
        !           117: 
        !           118:     iaux= AddAux(aux);
        !           119:     for (iauxType++; cAux; cAux--)
        !           120:        AddAux(AuxFIaux(iauxType++));
        !           121: 
        !           122:     return(iaux);
        !           123: } /* IauxFCopyTy */
        !           124: 
        !           125: 
        !           126: /* P A T C H   T Q */
        !           127: 
        !           128: export void PatchTq(iaux, tq)
        !           129: int    tq;
        !           130: int    iaux;
        !           131: {
        !           132:     AUXU       aux;
        !           133: 
        !           134:     aux= AuxFIaux(iaux);
        !           135: 
        !           136:     if (aux.ti.tq0 == tqNil)
        !           137:        aux.ti.tq0= tq;
        !           138:     else if (aux.ti.tq1 == tqNil)
        !           139:        aux.ti.tq1= tq;
        !           140:     else if (aux.ti.tq2 == tqNil)
        !           141:        aux.ti.tq2= tq;
        !           142:     else if (aux.ti.tq3 == tqNil)
        !           143:        aux.ti.tq3= tq;
        !           144:     else if (aux.ti.tq4 == tqNil)
        !           145:        aux.ti.tq4= tq;
        !           146:     else if (aux.ti.tq5 == tqNil)
        !           147:        aux.ti.tq5= tq;
        !           148:     else
        !           149:        panic("ran out of tqs");
        !           150: 
        !           151:     ChangeAux(iaux, aux);
        !           152: } /* PatchTq */
        !           153: 
        !           154: 
        !           155: /* A U X   D I M */
        !           156: 
        !           157: export void AuxDim(dim)
        !           158: int    dim;
        !           159: {
        !           160:     AUXU       aux;
        !           161: 
        !           162:     aux.dim.dnLow = 0;
        !           163:     aux.dim.dnMac = dim;
        !           164:     AddAux(aux);
        !           165: } /* AuxDim */

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