Return to func.mm CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / X / uwm

Annotation of 43BSD/contrib/X/uwm/func.mm, revision 1.1

1.1     ! root        1: 
        !             2: #/***********************************************************************
        !             3: # *                                                                    *
        !             4: # *                  Placed in the public domain by                    *
        !             5: # *            Digital Equipment Corporation, Maynard, MA              *
        !             6: # *                                                                    *
        !             7: # *    The information in this software is subject to change without   *
        !             8: # *    notice and should not be construed as a commitment by Digital   *
        !             9: # *    Equipment Corporation.  Digital makes no representations        *
        !            10: # *    about suitability of this software for any purpose. It is       *
        !            11: # *    supplied "as is" without express or implied warranty.           *
        !            12: # *                                                                    *
        !            13: # ***********************************************************************/
        !            14: #
        !            15: #/*
        !            16: # * MODIFICATION HISTORY
        !            17: # *
        !            18: # * 000 -- M. Gancarz, DEC Ultrix Engineering Group
        !            19: # */
        !            20: 
        !            21: #
        !            22: # func.mm -- "menu maker" script for 'uwm' window manager
        !            23: #            Uses ctags to create a series of menus for a uwm startup
        !            24: #            file.  Selecting an item off the menu invokes 'vi -ta'
        !            25: #            on the appropriate function.  The slip-off menus are bound
        !            26: #            to 'ctrl|shift' on the left button in any context.
        !            27: #
        !            28: #            To change the bindings, alter the print statements for the
        !            29: #            awk portion.
        !            30: #
        !            31: 
        !            32: FILE=functions.uwmrc
        !            33: MENUSIZE=10
        !            34: if test -s $FILE ; then uwm -f $FILE
        !            35: else
        !            36: ctags *.c
        !            37: cat >awktmp <<!
        !            38: BEGIN {
        !            39: print "resetvariables;resetbindings;resetmenus;autoselect"
        !            40: print "delta=25;freeze;grid;hiconpad=5;hmenupad=6"
        !            41: print "iconfont=oldeng;menufont=timrom12b;resizefont=helv12b"
        !            42: print "viconpad=5;vmenupad=3;volume=7;zap"
        !            43: print "f.menu=c|s::left down:\"EDIT FUNCTIONS\""
        !            44: print "menu=\"EDIT FUNCTIONS\"(White:Black:White:Red){"
        !            45: i = 2
        !            46: }
        !            47: { if (NR > $MENUSIZE) {
        !            48:       print "}"
        !            49:       printf "f.menu=c|s::left down:\"EDIT FUNCTIONS #%d\"\n", i
        !            50:       printf "menu=\"EDIT FUNCTIONS #%d\"(White:Black:White:Red){\n", i
        !            51:       NR = 1
        !            52:       ++i
        !            53:   }
        !            54: }
        !            55: {printf "%s:(Black:White):!\"xterm =80x65+0+0 -s -bw 5 -fg White -bg '#004900' -bd '#ffff00' -cr Red -e vi -ta %s&\"\n",\$1,\$1}
        !            56: END {print "}"}
        !            57: !
        !            58: awk -f awktmp tags >>functions.uwmrc
        !            59: rm -f awktmp &
        !            60: uwm -f functions.uwmrc
        !            61: fi

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