Return to icon CVS log

Up to [Research Unix] / researchv10dc / 630 / bin

Annotation of researchv10dc/630/bin/icon, revision 1.1

1.1     ! root        1: #       Copyright (c) 1987 AT&T   
        !             2: #       All Rights Reserved       
        !             3: 
        !             4: #       THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T   
        !             5: #       The copyright notice above does not evidence any     
        !             6: #       actual or intended publication of such source code.  
        !             7: 
        !             8: # @(#)icon.sh  1.1.1.5 6/2/87
        !             9: 
        !            10: USAGE="Usage: icon [-c] [-x m] [-y n]"
        !            11: xval="50"
        !            12: yval="50"
        !            13: cval=""
        !            14: 
        !            15: #
        !            16: # Layers environment
        !            17: #
        !            18: 
        !            19: if ismpx -
        !            20: then
        !            21: 
        !            22: #
        !            23: # SVR2: use getopt(1)
        !            24: # SVR3: use getopts(1)
        !            25: #
        !            26: 
        !            27: #   if [ # getopts exists ]
        !            28: #   then
        !            29: #      while getopts cx:y: c
        !            30: #      do
        !            31: #              case $c in
        !            32: #              x) xval=$OPTARG;;
        !            33: #              y) yval=$OPTARG;;
        !            34: #              c) cval="-c";;
        !            35: #              \?) echo $USAGE; exit 2;;
        !            36: #              esac
        !            37: #      done
        !            38: #               
        !            39: #   else
        !            40: 
        !            41:        set -- `getopt cx:y: $*`
        !            42:        if [ $? != 0 ]
        !            43:        then
        !            44:                echo $USAGE
        !            45:                exit 2
        !            46:        fi
        !            47:    
        !            48:        while [ true ]
        !            49:        do
        !            50:                case "$1" in
        !            51:                -x) xval=$2; shift 2;;
        !            52:                -y) yval=$2; shift 2;;
        !            53:                -c) cval=$1; shift;;
        !            54:                --) shift; break;;
        !            55:                esac
        !            56:        done
        !            57: 
        !            58: #   fi
        !            59: 
        !            60:     echo $xval $yval | ${DMD}/bin/jx ${DMD}/lib/icon.m ${cval} -d ${DMD} 
        !            61: 
        !            62: #
        !            63: # Non-layers environment: not supported
        !            64: #
        !            65: 
        !            66: else
        !            67:    echo "icon only runs under layers"
        !            68:    exit 1
        !            69: fi

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