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

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.