Return to syshs.c CVS log

Up to [Research Unix] / researchv10no / cmd / spitbol / cint

Annotation of researchv10no/cmd/spitbol/cint/syshs.c, revision 1.1

1.1     ! root        1: /*
        !             2: /   syshs - host functions
        !             3: */
        !             4: 
        !             5: #include "osint.h"
        !             6: #include "spitblks.h"
        !             7: 
        !             8: extern WORD    gblargc;
        !             9: extern char    *gblargv[];
        !            10: extern char    *uarg;
        !            11: extern WORD    cmdcnt;
        !            12: 
        !            13: extern struct icblk    ticblk;
        !            14: extern struct scblk    tscblk;
        !            15: 
        !            16: extern WORD    ic_type;
        !            17: extern WORD    sc_type;
        !            18: 
        !            19: syshs()
        !            20: {
        !            21:        WORD    retval;
        !            22:        register struct icblk *icp = WA (struct icblk *);
        !            23:        register struct scblk *scp;
        !            24: 
        !            25: /*
        !            26: /   If argument one is an integer ...
        !            27: */
        !            28:        if ( icp->typ == ic_type )
        !            29:            switch( icp->val )
        !            30:            {
        !            31: 
        !            32: /*
        !            33: /          HOST( 0 ) returns the -u command line option argument
        !            34: */
        !            35:            case 0:
        !            36:                if ( uarg )
        !            37:                {
        !            38:                    cpys2sc( uarg, 0, &tscblk, tscblk.len );
        !            39:                    SET_XL( &tscblk );
        !            40:                    return  EXIT_3;
        !            41:                }
        !            42:                else
        !            43:                    return  EXIT_4;
        !            44: 
        !            45: /*
        !            46: /          HOST( 1, "command" ) executes "command"
        !            47: */
        !            48:            case 1:
        !            49:                scp = XL( struct scblk * );
        !            50:                if ( scp->typ == sc_type )
        !            51:                {
        !            52:                    if ( scp->len != 0 )
        !            53:                        dosys( scp );
        !            54:                    return  EXIT_4;
        !            55:                }
        !            56:                else
        !            57:                    return  EXIT_1;
        !            58: 
        !            59: /*
        !            60: /          HOST( 2, n ) returns command line argument n
        !            61: */
        !            62:            case 2:
        !            63:                icp = XL( struct icblk * );
        !            64:                if ( icp->typ == ic_type )
        !            65:                {
        !            66:                    retval = arg2scb( icp->val, gblargc, gblargv, &tscblk );
        !            67:                    if ( retval < 0 )
        !            68:                        return  EXIT_6;
        !            69:                    if ( retval == 0 )
        !            70:                        return  EXIT_1;
        !            71:                    SET_XL( &tscblk );
        !            72:                    return  EXIT_3;
        !            73:                }               
        !            74:                else
        !            75:                    return  EXIT_1;
        !            76: 
        !            77: /*
        !            78: /          HOST( 3 ) returns the command count
        !            79: */
        !            80:            case 3:
        !            81:                if ( cmdcnt )
        !            82:                {
        !            83:                    ticblk.val = cmdcnt;
        !            84:                    SET_XR( &ticblk );
        !            85:                    return  EXIT_5;
        !            86:                }
        !            87:                else
        !            88:                    return  EXIT_6;
        !            89: 
        !            90: /*
        !            91: /          HOST( 4, "env-var" ) returns the value of "env-var" from
        !            92: /          the environment.
        !            93: */
        !            94:            case 4:
        !            95:                scp = XL( struct scblk * );
        !            96:                if ( scp->typ == sc_type )
        !            97:                {
        !            98:                    if ( scp->len == 0 )
        !            99:                        return  EXIT_1;
        !           100:                    if ( rdenv( scp, &tscblk ) < 0 )
        !           101:                        return  EXIT_6;
        !           102:                    SET_XL( &tscblk );
        !           103:                    return  EXIT_3;
        !           104:                }
        !           105:                else
        !           106:                    return  EXIT_1;
        !           107: 
        !           108: /*
        !           109: /          Any other integer value is an error
        !           110: */
        !           111:            default:
        !           112:                return  EXIT_1;
        !           113:            }           
        !           114: 
        !           115: 
        !           116: /*
        !           117: /    ... else just return the host string
        !           118: */
        !           119:        else
        !           120:        {
        !           121:            gethost( &tscblk, TSCBLK_LENGTH );
        !           122:            if ( tscblk.len == 0 )
        !           123:                return  EXIT_4;
        !           124:            SET_XL( &tscblk );
        !           125:            return  EXIT_3;
        !           126:        }
        !           127: 
        !           128: /*
        !           129: /   Control SHOULD NEVER GET HERE!!
        !           130: */
        !           131:        return  EXIT_1;
        !           132: }

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