Return to icon CVS log

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

Annotation of researchv10dc/630/bin/icon, revision 1.1.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.