home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / unix_c / info / unixtrks.txt < prev    next >
Encoding:
Internet Message Format  |  1989-03-21  |  121.3 KB
  1. From: Nancy Blachman <decvax!decwrl!sun!idi!resonex!nancy@Ucb-Vax.ARPA>
  2. To: net.unix, net.unix-wizards, net.sources
  3. Subject: Actual tricks, shells, csh aliases and the like, 1 of 3
  4. Date: 16 Oct 84 21:20:53 GMT
  5. Organization: Resonex Inc., Sunnyvale, CA
  6.  
  7. > [Know anybody with a GREAT .login or .cshrc?]
  8.  
  9. > I'm interested in collecting the little tricks, shell scripts, awk
  10. > hacks, csh aliases, and such that people have built to make their daily
  11. > life a little easier or more automatic.  Being a fairly new system
  12. > administrator I don't have the big toolbox that years of messing around
  13. > will leave you with.  If you have any hacks you're proud of (or that
  14. > you aren't proud of, but which work anyway), and you're willing to make
  15. > them public, mail them to me.  I'll collect, collate, shuffle, sort,
  16. > munge, judge, select and discard them and then "summarize to the net".
  17.  
  18. This article concentrates on  aliases, and .cshrc and .login files I received
  19. in response to my solicitation. The second article in this series focuses 
  20. shell scripts. The third article centers on C programs and awk scripts.
  21.  
  22. /\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\/
  23. > Nancy Blachman {allegra,hplabs,ihnp4,sun}!resonex!nancy  (408)720 8600 x37 <
  24. /\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\/
  25.  
  26. ::::::::::::::
  27. aliases/1
  28. ::::::::::::::
  29. Date: Thu, 13 Sep 84 07:27:35 est
  30. From: ihnp4!pur-ee!davy (Dave Curry)
  31. To: ihnp4!resonex!nancy
  32. Subject: aliases
  33.  
  34. Nancy:
  35.  
  36.     Here's a few handy aliases to put your current working
  37. directory into your prompt:
  38.  
  39. alias cd chdir \!:\* \; set prompt='${cwd}\[!\]\ ' \; setenv CWD '$cwd'
  40. alias pd pushd \!:\* \; set prompt='${cwd}\[!\]\ ' \; setenv CWD '$cwd'
  41. alias pp popd \!:\* \; set prompt='${cwd}\[!\]\ ' \; setenv CWD '$cwd'
  42.  
  43. These put the current directory into the environment also, this is
  44. for an editor used here locally which uses this information.  You can delete
  45. that part if you don't need it.
  46.  
  47. --Dave Curry
  48. ihnp4!pur-ee!davy
  49.  
  50.  
  51.  
  52. ::::::::::::::
  53. aliases/2
  54. ::::::::::::::
  55. From: hplabs!sdcrdcf!sdcsvax!greg (Greg Noel)
  56. Date: Thu, 13 Sep 84 10:57:51 pdt
  57. Return-Address: ucbvax!sdcsvax!greg or Greg@NOSC
  58. Organization: NCR Corporation, Torrey Pines
  59. To: sdcrdcf!hplabs!resonex!nancy
  60. Subject: Re: Tricks, shell and awk scripts, csh aliases and the like
  61.  
  62. I have three little gems from my bag of tricks that I'd like to show you,
  63. all for the C shell.  The first is an alias for the `pwd' command:
  64.     alias pwd    echo \$cwd
  65. The built-in variable `cwd' always contains the current working directory,
  66. and since `echo' is a built-in command, this is MUCH faster than invoking
  67. a program to calculate the actual location.  The only problem (and I don't
  68. have a solution) is that it gets confused by symbolic links to directories.
  69.  
  70. The second one is something that turns the directory structure from something
  71. passive into something active:
  72.     alias come    if -e .greg_come source .greg_come
  73.     alias go    if -e .greg_go   source .greg_go
  74.     alias cd    go \; set prev = \$cwd \; chdir \!\* \; \
  75.                 echo \$prev ==\\\> \$cwd \; come
  76. What this does is cause the shell to look for a specific file whenever it
  77. transfers into a directory, and if it is there, source it.  Also, whenever
  78. you leave a directory, it looks for a different file and sources that before
  79. leaving.  I use this to set up location-specific aliases or to have something
  80. happen auto-magicly whenever I work in some diretory -- for example, changing
  81. into my `play' directory invokes a menu that will set up the environment and
  82. run game programs -- different save files for `rogue' or other stuff that
  83. I don't want to carry around with me all the time.  It's more flexible than
  84. it seems at first glance; the only thing I can suggest is to try it and you
  85. will keep finding new ways to use it.
  86.  
  87. The last one is really a replacement for the `pushd' and `popd' commands --
  88. I didn't like the way they worked, so I did these.  It seperates the action
  89. of pushing a directory from the action of changing directories.  I wanted
  90. this since I also have a whole bunch of aliases to move between widely-
  91. seperated portions of the filesystem (something I do a lot) and it was
  92. easier for me to type `push; u test' (which pushes the current directory
  93. and takes me into the `test' subdirectory of something interesting) than
  94. to type `pushd /long/complicated/path/test'.  This isn't terribly original,
  95. but the gem, and something I find VERY useful is the `back' command, which
  96. takes you to the directory you last left, so you can bouce back and forth
  97. between two directories -- one is the source location and one the test
  98. location, for example.  Anyway, here's what it looks like:
  99.     alias push    set dirstack = \( \$cwd \$dirstack \) \; \
  100.                 echo Pushing \\\[\$\#dirstack] \$cwd \; \!\*
  101.     alias pop    cd \$dirstack\[1] \; set dirstack = \( \$dirstack\[2-] \)
  102.     alias back    set dirstack = \( \$prev \$dirstack \) \; pop
  103.     alias pp    set x = \$dirstack\[1] dirstack\[1] = \$cwd \; cd \$x
  104. Notice that it interacts with the previous alias for `cd' in that it expects
  105. the variable `prev' to have the previous directory (which is what `cd' leaves
  106. in it).  The `pp' alias is sometimes useful -- it pushes the current directory
  107. while transfering to the old top of stack, a simultaneous push-pop.
  108.  
  109. I hope you found these interesting and entertaining.
  110.  
  111. -- Greg Noel, NCR Torrey Pines       Greg@sdcsvax.UUCP or Greg@nosc.ARPA
  112.  
  113. ::::::::::::::
  114. cshrc/1
  115. ::::::::::::::
  116. From: <hplabs!tektronix!jerryp>
  117. Date: Thursday, 13 Sep 84 09:48:55 PDT
  118. To: resonex!nancy, jerryp
  119. Subject: Re: Tricks, shell and awk scripts, csh aliases and the like
  120.  
  121. Nancy,
  122.  
  123. I'll mail you a few .cshrc and .login files.  Unfortunately, I'm short on
  124. time... so I can't comment a lot... but I'd be glad to answer any questions
  125. you've got about how they work.
  126.  
  127. A summary of them:
  128.  
  129. 1)  This .cshrc file comes from the tektronix!tekred machine in Redmond,
  130. Oregon.  Its neat feature is that, when a user "su"'s to someone else's
  131. account, their prompt changes
  132. from    %
  133. to    account>
  134. where the "su"'d name appears before the >.  Very nice, I think.
  135.  
  136. Also, they do a standard thing around here.  The first line [if ($?prompt)]
  137. checks to see if the .cshrc is being scanned by an interactive shell.  If so,
  138. the commands below are executed.  If not (like a shell escape from "vi"), the
  139. commands aren't executed.  This really speeds up shell escapes!  (I do the
  140. same thing, in a different way, in my .cshrc file.)
  141.  
  142.  
  143. 2)  This is my .login file.  I should mention that I've got my own calendar
  144. system that's updated every morning at 1 AM by "at".  It sits in my
  145. ".calendar" directory.  You'll see a lot of that stuff in the .login file.
  146.  
  147.  
  148. 3 & 4)  I have *two* .cshrc files.  One, ".cshrc", is the standard file.  It
  149. contains a limited list of aliases and setup commands.  The other, ".cshrc2",
  150. is one I source when I'll be logged on for a long time and doing a lot of
  151. work.  The .cshrc2 has time-saving aliases like "alias m more" in it.  
  152.  
  153. At login, the .cshrc is always read.  This sets my prompt to something like
  154.     <directory,#>
  155. where # is the C-shell history number.  Also, since my system is so busy, I
  156. have a "quick login" setup in .cshrc to let me see my mail immediately and
  157. logout without doing anything else, if I want to.  This quick-login has a
  158.     $
  159. prompt set... the Bourne-shell prompt.
  160.  
  161. If I want an extended login, I execute the alias "res" (from .cshrc).  It sets
  162. alarms automatically (for meetings, etc... from my .calendar directory) and
  163. re-sets my prompt to something like
  164.     [directory,#]
  165. That way, I know that I've got all my aliases available.
  166.  
  167. Since my system is overloaded, this dual-.cshrc system saves me time and
  168. hassle... .cshrc2 takes a long time to source.
  169.  
  170.  
  171. --Jerry Peek, UNIX Training Instructor, Tektronix, Inc.
  172. US Mail:   MS 76-036, P.O. Box 500, Beaverton, OR 97077
  173. uucp:      {allegra,decvax,hplabs,ihnp4,mit-eddie,ucbvax}!tektronix!jerryp
  174. CSnet:     jerryp@tek
  175. ARPAnet:   jerryp.tek@csnet-relay
  176. Phone:     503/627-1603
  177.  
  178.  
  179. ---------------------------------------------------------------------------
  180. FILE #1 (.cshrc):
  181.  
  182. if ($?prompt) then
  183.     set history=20
  184.     set path=(. $home/bin /usr/local /usr/tek /usr/public /usr/ucb /bin /usr/bin)
  185.     set mail=(300 /usr/spool/mail/$home:t /etc/motd)
  186.     source ~/.aliases
  187.  
  188.     set prompt=`whoami | sed -e 's/ .*//' -e 's/user=//'`
  189.     if ($prompt == $user || $prompt == "") then
  190.         set prompt="% "
  191.     else
  192.         set prompt="$prompt> "
  193.     endif
  194. endif
  195. ---------------------------------------------------------------------------
  196. FILE #2 (.login):
  197. uptime            # show system load
  198. set ignoreeof        # do not logout on EOF (^D)
  199. set noclobber        # do not overwrite files with > or >>
  200. cp ~/.exrc8 ~/.exrc    # set up vi/ex to environment in ~/.exrc8
  201. setenv EDIT /usr/ucb/vi    # set default editor to vi
  202. setenv PRINTER uph    # if type "man -Tlpr", use "uph" to store for printing
  203. setenv NEWSBOX ~    # save news (readnews "s") in home directory or beneath
  204.  
  205. set noglob; eval `tset -srQm 'plugboard:?4025'`; unset noglob
  206.  
  207. stty new crt        # new tty driver, crt terminal, see newtty(4)
  208. stty tostop hup     # stop background jobs on output, hangup hw on logout
  209. limit filesize 2000    # do not write file > 2,000,000 bytes
  210. limit coredumpsize 0    # prevent core dumps when csh bombs
  211. touch .llog        # set correct last login time for finger
  212. if ($TERM == 'tek4023' || $TERM =~ aaa*inv ) then
  213.     # KEEP more FROM USING THE ul OPTION AND MESSING UP DISPLAY:
  214.     setenv MORE -u
  215. else if (($TERM == qume5) || ($TERM == dumb)) then
  216.     mesg n
  217.     exit 0
  218. endif
  219.  
  220. # immediate notification (every 60 seconds) of mail:
  221. set mail = (60 /usr/spool/mail/$user /etc/motd)
  222.  
  223. # check /etc/motd for changes; if any, show them and (maybe) add to calendar:
  224. diff ~/.calendar/last.motd /etc/motd >! /tmp/motd.diff
  225. if ( $status != 0 ) then
  226.     echo "< = old MOTD ... > = new MOTD"
  227.     more /tmp/motd.diff
  228.     echo "To read the new MOTD into the calendar, answer y.  To ignore it, answer q."
  229.     echo -n "Otherwise, hit RETURN: "
  230.     set ans = $<
  231.     if ($ans == "y") then
  232.         cat /etc/motd | tee -a ~/.calendar/calendar >! ~/.calendar/last.motd
  233.         vi + ~/.calendar/calendar
  234.         echo "To reset *today's* calendars, type 'calendar.set -F'."
  235.     else if ($ans == "q") then
  236.         cat /etc/motd >! ~/.calendar/last.motd
  237.     endif
  238. endif
  239.  
  240. echo "--------------------"
  241. inc        # put new mail, if any, in ~/.mail/inbox
  242.  
  243. echo "--------------------"
  244.  
  245. set time = 10    # for jobs that take longer than 10, show how long
  246. # IF THERE ARE LOGIN MESSAGES, SHOW THEM:
  247. if !(-z ~/.calendar/mesg.login) then
  248.     echo "Here are the login messages, "`date '+%a %D'`
  249.     echo ""
  250.     doublespace ~/.calendar/mesg.login
  251. endif
  252.  
  253. echo "For an uptime graph, type 'upgr'."
  254. ---------------------------------------------------------------------------
  255. FILE #3 (.cshrc):
  256. # if this is a non-interactive shell, quit.
  257. if ( ! $?prompt) exit 0
  258.  
  259. # save login system search path, removing leading "." (thanx to tekig!danr):
  260. if ( ! $?SYSPATH ) setenv SYSPATH "$path[2-]"
  261.  
  262. # set default places to find commands (put current and .bin directories first):
  263. set path=(. ~/.bin $SYSPATH /usr/public{,/texthelp} /usr3/{barbaraz/.,tcomm/}bin)
  264.  
  265. # CHECK FOR QUICK LOGIN:
  266. if (! $?LOGGEDIN) then
  267.     echo -n "For quick login (Bourne shell), answer y; otherwise, press RETURN: "
  268.     if ( "$<" =~ y* ) then
  269.         echo "To continue with login, press control-D; to logout, type 'stty 0'"
  270.         /bin/sh -i
  271.         echo "Continuing with standard login..."
  272.     endif
  273. endif
  274. setenv LOGGEDIN x
  275.  
  276. # set cd search path for directory names which aren't sub-directories:
  277. set cdpath=(~ `finddirs ~/training{,/*} /usr3/tcomm/unix{,/*}` ~/.bin ~/.log ~/.mail ~/stuff ~/tape*)
  278.  
  279. set history=1000    # keep the last 1000 commands in history
  280.  
  281. # use /usr/public/prompt to get massaged directory name for prompt-setting:
  282. set prompt = "<`prompt ~ $cwd`,"{\!}"> "
  283.  
  284. # edit my calendar:
  285. alias calen 'vi ~/.calendar/calendar; echo '"To reset today\'s calendars, type calendar.set -F"''
  286.  
  287. # change directory, reset prompt:
  288. alias cd 'chdir \!*; set prompt = "<`prompt ~ $cwd`,"{\!}"> "'
  289.  
  290. # add to specified .log directory
  291. alias log 'echo "Put a .ze at end of file, unless last log of this set.";vi + ~/.log/`cat ~/.log/latestlog`/\!*'
  292.  
  293. # create newterm command to allow terminal-type change
  294. alias newterm 'set noglob;eval `tset -srQ \!*`;unset noglob'
  295.  
  296. # sets alarms (if any) and sources '.cshrc2' (my other alias list)
  297. alias res '~/.bin/alarm.set ; source ~/.cshrc2'
  298.  
  299. alias todo 'vi ~/todo\!*'    # change one of the "to do" lists
  300. ---------------------------------------------------------------------------
  301. FILE #4 (.cshrc2):
  302.  
  303. # notify immediately when background jobs are finished
  304. set notify
  305.  
  306. # prompt with current directory name, history number:
  307. alias s_p 'set prompt = "[`prompt ~ $cwd`,"{\!}"] "'
  308. s_p
  309.  
  310. # set 'vi' for 4-character tabs/shifts:
  311. alias 4vi 'cp ~/.exrc{4,}; echo "MODE: programming"'
  312.  
  313. # set 'vi' for 8-character tabs/shifts:
  314. alias 8vi 'cp ~/.exrc{8,}; echo "MODE: text"'
  315.  
  316. # set 'vi' for quick work (no .exrc file):
  317. alias qvi 'rm ~/.exrc; echo "MODE: quick"'
  318.  
  319. # easy way to compile "C" programs (ring bell if filename ends with ".c"):
  320. alias C 'if ("\!*" =~ *.c) yes ;mv \!* ,\!*;echo \!*.c" SENT TO cc";cc \!*.c -o \!*;if (-e \!*) chmod 311 \!*'
  321.  
  322. # show alarms that (may be) set... and message explaining them:
  323. alias alarms 'echo "These alarms have been set:";cat ~/.calendar/mesg.alarm; \ps | fgrep ".bin/nleave"'
  324.  
  325. # change back to previous directory:
  326. alias c- 'set x=$cwd; chdir $lastdir; s_p; set lastdir=$x'
  327.  
  328. # edit my calendar:
  329. alias calen 'v8 ~/.calendar/calendar; echo '"To reset today\'s calendars, type calendar.set -F"''
  330.  
  331. # see today's calendars:
  332. alias cals 'cat ~/.calendar/mesg.*'
  333.  
  334. # save current directory for 'c-', change directory, reset prompt:
  335. alias cd 'set lastdir=$cwd; chdir \!*; s_p'
  336.  
  337. # see mail without inc'ing it:
  338. alias checkm 'see /usr/spool/mail/jerryp'    
  339.  
  340. # same as 'cd', but lists directory, too:
  341. alias cl 'set lastdir=$cwd; chdir \!*; ls -F; s_p'
  342.  
  343. # same as 'cl', but gives long list:
  344. alias cll 'set lastdir=$cwd; chdir \!*; ls -l; s_p'
  345.  
  346. alias f 'grep "^\!*" /etc/passwd'    # quick version of "finger -s"
  347.  
  348. alias H 'history -r | fgrep "\!*"'    # find something in history list
  349. alias h history 5    # show last five lines
  350. alias hi history 10    # show last ten lines
  351. alias his history 20    # show last twenty lines
  352. alias hist 'history 40|m'    # show last forty lines; pipe to 'more'
  353. alias histo 'history 70|m'    # show last seventy lines; pipe to 'more'
  354.  
  355. # send output of command to 'pr' (with command as header), then to uph:
  356. alias hpr '\!* | pr -h "\!*" | uph' 
  357.  
  358. alias j 'jobs -l >! /tmp/j$$; pushin /tmp/j$$; rm /tmp/j$$'
  359. # show job status (process numbers, too) squeezed onto one line each
  360.  
  361. alias lc 'ls *.c'    # list all C source code in this directory
  362.  
  363. # add to specified .log directory
  364. alias log 'echo "Put a .ze at end of file, unless last log of this set.";v8 + ~/.log/`cat ~/.log/latestlog`/\!*'
  365.  
  366. # list executable files, 5 columns, sorted across 80-wide line:
  367. alias lx 'lf -1 | fgrep \* | pr -t -5 -l1 -w80'
  368.  
  369. alias m more        # shortened form of 'more' command
  370.  
  371. # faster pwd (singlequotes prevent expansion before it's executed):
  372. alias pwd 'echo $cwd'
  373.  
  374. # re-start inverse video on Ann Arbors:
  375. alias reinv 'echo "[7m";clear'    
  376.  
  377. # lock terminal until ^C and login password are entered:
  378. alias somb /usr3/jos/bin/somb
  379.  
  380. alias showm 'inc;show'    # get new mail
  381.  
  382. # give more info (how much time I've used) when using "status":
  383. alias status 'source ~/.bin/status'
  384.  
  385. alias tcpr 'tcprint -p12 -m5 -ff \!* &'        # typical quick "tcprint" use
  386.  
  387. alias todo 'v8 ~/todo\!*'    # change one of the "to do" lists
  388.  
  389. alias up uptime
  390.  
  391. # make uptime graph:
  392. alias upgr '(nohup uptime_graph ~/,up`date +%m%d.%H%M` &)'
  393.  
  394. # show uptime today's graph:
  395. alias upsh 'uptime_show -20 ~/,up`date +%m%d`*'
  396.  
  397. # 'vi' for programming:
  398. alias v4 '4vi;vi \!*'
  399.  
  400. # 'vi' for standard text:
  401. alias v8 '8vi;vi \!*'
  402.  
  403. # call 'vi' with a search (must use 8vi because search requires a 'wrapscan')
  404. alias vs '8vi; vi +/\!*'
  405.  
  406. alias write '/usr4/danr/bin/rite -c \!*'   # show each character as it's typed
  407.  
  408. #UNUSED ALIASES:
  409. #alias cd 'set lastdir=$cwd;chdir \!*;set prompt="`~/.bin/prompt`"'
  410. # change to maps directory:
  411. #alias maps 'cd /usr/spool/news/lib/maps;echo "switching to newsa";su newsa;set $user=jerryp;c-'
  412. # keep "at" job from dying because of long EXINIT:
  413. #alias niterun 'setenv EXINIT "set sw=8";\niterun \!*;8vi'
  414. #alias du ~danr/bin/du    # improved version of "directory usage" query
  415. # format text, save in file".ty", then show it on the crt:
  416. #alias typeup '~/.bin/type \!* >! \!*:r; more \!*:r'
  417. # give description of 'ps' codes before doing the 'ps':
  418. #alias ps 'cat ~/.ps.man;\ps \!*'
  419. # easy way to compile and run "C" programs
  420. # (ring bell if filename ends with ".c"):
  421. #alias c 'if ("\!*" =~ *.c) yes ;mv \!* ,\!*;echo \!*.c" SENT TO cc";cc \!*.c -o \!*;echo "press ^C to stop execution";sleep 2;./\!*'
  422. # easy way to change editor environment files:
  423. #alias adde 'vi ~/.exrc\!*; set ex=(`cat ~/.exrc\!*`); setenv EXINIT "$ex"'
  424. #alias rmm '\rmm \!* &'  # remove mail in background
  425. # faster "man" listings:
  426. #alias man 'echo "man -q:"; \man -q \!*'
  427. # improved spell routine (write-protected dictionary):
  428. #alias spel 'chmod +w ~/.misspell; /usr/public/spel \!*;chmod -w ~/.misspell'
  429. # show whether using ~/.exrc4 or ~/.exrc8:
  430. #alias vi 'echo "MODE: "$EXSTAT;/usr/ucb/vi \!*'
  431. #alias comp '8vi;\comp \!*'    # set 'vi' for text before doing the 'comp'
  432. # show last ten users of "tcprint" program:
  433. #alias tcp tail /usr3/tcomm/.tcprint/log
  434. # favorite "ps" (gives PID, PPID, STAT, TT, TIME, and long description):
  435. #alias p 'ps lwx | cut -c12-22,53- | nfold'
  436.  
  437. ::::::::::::::
  438. cshrc/2
  439. ::::::::::::::
  440. Date: Thu, 13 Sep 84 02:16:31 edt
  441. From: ihnp4!seismo!umcp-cs!chris (Chris Torek)
  442. To: ihnp4!resonex!nancy
  443. Subject: Re:  Tricks, shell and awk scripts, ...
  444.  
  445. Actually Re: [Know anybody with a GREAT .login or .cshrc?]:
  446.  
  447. I don't know about *great*, but I'm probably one of the candidates for
  448. *slowest* . . . .  FYA (For Your Amusement), here's my .login and .cshrc
  449. on this machine (they're not the same on tove, gyre, gymble, and eneevax).
  450.  
  451. Chris
  452.  
  453. : Run this shell script with "sh" not "csh"
  454. PATH=:/bin:/usr/bin:/usr/ucb
  455. export PATH
  456. all=FALSE
  457. if [ $1x = -ax ]; then
  458.     all=TRUE
  459. fi
  460. /bin/echo 'Extracting .cshrc'
  461. sed 's/^X//' <<'//go.sysin dd *' >.cshrc
  462. #
  463. if ($?prompt) then
  464. echo -n '['
  465. set path=(. ~chris/bin ~chris/sys /usr/local/bin /g/local /usr/ucb /bin /usr/bin /usr/games /etc /usr/hosts)
  466. echo -n 'cshrc]'
  467. set ignoreeof history=100 time=2 mail=(10 /usr/spool/mail/chris) cdpath=(~ /g/VOTRAX ~/bin /g/chris ..) S=/usr/spool/uucp CICO=/usr/lib/uucp/uucico
  468. alias hh history;alias h 'history 20';alias j jobs;alias o popd
  469. alias status 'echo $status';alias so source;alias bye logout
  470. alias p pushd;alias done 'echo ';alias kb "rm -i .*.bak *.bak .*.CKP *.CKP"
  471. alias kc "rm -i .*.CKP *.CKP";alias e emacs;alias @@term 'kill -9 $$'
  472. alias af ~chris/af/af;alias cdl "cd \!:1;ls \!:2*";alias lsl "ls -li"
  473. alias lsa "ls -A";alias lsla "ls -lai";alias up "cd ..";alias upl "cd ..;ls"
  474. alias cdll "cd \!:1;lsl \!:2*";alias lsld "lsl -d";alias lslg "lsl -g"
  475. alias upll "cd ..;lsl";alias pl "pushd \!:1;ls \!:2*";alias z logout
  476. alias pll "pushd \!:1;lsl \!:2*";alias ol "popd;ls";alias oll "popd;lsl"
  477. alias cdla "cd \!:1;lsla \!:2*";alias v80 'echo -n "[?2l";set term=VT52'
  478. alias v132 'echo -n "[?2l";set term=VT52.132';alias ansi 'echo -n "<"'
  479. alias fix 'stty newcrt erase  kill ';alias ca 'ex "+1,.|q"' 
  480. alias own 'cp \!:1 /tmp/own$$;rm -f \!:1;mv /tmp/own$$ \!:1'
  481. alias save 'cp \!:1 \!:1.old;chmod a-w \!:1.old;chmod +w \!:1'
  482. alias c80 'echo -n "[?3l";set term=DT80';alias suspend 'suspend;dirs'
  483. alias col80 'echo -n "[?3l";colnum 80';alias a alias
  484. alias c132 'echo -n "[?3h";set term=DT80.132'
  485. alias col132 'echo -n "[?3h";colnum 132'
  486. alias hold 'echo -n "[H[J[12;20H[5mI'"'"'ll be right back[m[20H";lock;echo -n "[H[J"'
  487. alias feed '(sleep 3000;echo Feeding time\\!)&'
  488. alias open 'set noglob;eval `/usr/chris/bin/open \!:*`;unset noglob'
  489. alias loav /usr/mark/bin/load
  490. setenv VISUAL /usr/ucb/vi;setenv EDITOR /usr/local/bin/emacs
  491. setenv EPATH :/usr/chris/emacs:/usr/israel/emacs:/usr/emacs/loclib:/usr/emacs/maclib
  492. alias dir ls;alias era rm;alias printman /usr/man/printman;alias d dirs
  493. alias clx 'rm -f /tmp/X_lock.\!:1 /usr/spool/uucp/LCK..\!:1'
  494. alias aasize 'set noglob;eval `/usr/local/bin/aasize \!:1`;unset noglob'
  495. alias aasave 'set noglob;eval `/usr/local/bin/aasave \!:1`;unset noglob'
  496. alias down 'cd `echo */|awk '\''{print $1}'\''`;echo $cwd'
  497. alias downl 'down;ls';alias downll 'down;lsl';alias mark 'set \!:1=$cwd'
  498. alias lso 'lsla | sort +4 -rn';alias edenv 'source ~chris/bin/edenv'
  499. alias aibib 'echo \!*|lookbib -n -p /usr/randy/papers/airefs|page'
  500. alias checkque /usr/lib/mmdf/checkque;alias sum-dial /usr/lib/mmdf/sum-dial
  501. alias deliver 'sh -c "HOME=/ /usr/lib/mmdf/deliver \!:*"'
  502. alias ll 'ls -l';alias tm 'telnet 128.8.0.8'; alias  uptime
  503. endif
  504. umask 22
  505. if ($?prompt) then
  506.     set prompt='[\!] '
  507.     echo ''
  508. endif
  509. //go.sysin dd *
  510. made=TRUE
  511. if [ $made = TRUE ]; then
  512.     /bin/chmod 644 .cshrc
  513.     /bin/echo -n '    '; /bin/ls -ld .cshrc
  514. fi
  515. /bin/echo 'Extracting .login'
  516. sed 's/^X//' <<'//go.sysin dd *' >.login
  517. #
  518. stty erase ^H kill ^X intr  decctlq nl0 cr0 ff0
  519. cd;setenv TERMCAP /usr/chris/.termcap
  520. # cp .exrc1 .exrc
  521. # Set up the terminal
  522. # 4025=Tek4025 sd=dialup x1=Xer 1750 GG=Gigi d4=GT40 aaa=AAA else DT80
  523. # if (`slowtty` == y) then
  524. #    cp .mailrc2 .mailrc
  525. # else
  526. #    cp .mailrc1 .mailrc
  527. # endif
  528. set wantbaud=0
  529. top:
  530. switch ($TERM)
  531. case su:
  532. case network:
  533.     set wantbaud=1
  534. case sd:
  535. case unknown:
  536.     set term=`/ful/chris/bin/selterm`
  537.     goto top
  538. case 4025:
  539.     stty crt tabs;tabset.tek
  540.     breaksw
  541. case h6:
  542. case hp:
  543. case hp2623:
  544. case hp2626:
  545.     stty tabs crt
  546.     breaksw
  547. case v550:
  548.     stty crt;set prompt='[7m[\!][m '
  549.     breaksw
  550. case GG:
  551.     stty crt;unsetenv TERMCAP;set prompt='[7m[\!][m '
  552.     breaksw
  553. case d4:
  554.     set term=gt40;stty crt
  555.     breaksw
  556. case aaa:
  557. case aaa-60:
  558.     set term=aaa prompt='[7m[\!][m ';stty tabs crt;unsetenv TERMCAP
  559.     aakey -f /ful/chris/.aakeys
  560.     if (`tty` =~ /dev/tty*) then
  561.         echo -n 'Lines? [30] '
  562.         set lines=$<
  563.         if ($lines != ) then
  564.             aasize $lines
  565.         endif
  566.     endif
  567.     breaksw
  568. case h19:
  569. case h19a:
  570. case kb:
  571.     set term=h19a prompt='[7m[\!][m ';stty tabs crt crtkill
  572.     breaksw
  573. case Dq:
  574. case DT80:
  575. case D5:
  576. case vt100:
  577.     set term=DT80 prompt='[7m[\!][m '
  578.     echo -n '[?4l';stty crt
  579.     breaksw
  580. default:
  581.     unsetenv TERMCAP;echo "Wonder what $TERM is?"
  582.     breaksw
  583. endsw
  584. if ($wantbaud == 1) then
  585.     selbaud
  586. endif
  587. unset wantbaud lines
  588. # mailcount
  589. checknews
  590. setenv ROGUEOPTS 'jump,ask,terse,flush,passgo,fruit=hregfx'
  591. setenv PAGER /usr/ucb/page
  592. setenv SPELL_LISTS /ful/chris/.splist
  593. alias logout 'source /ful/chris/.logout.';alias exit logout
  594. # /usr/games/fortune
  595. w; # calend; /usr/chris/bin/ac 22:00
  596. echo ----------------------------------------------------------
  597. # rehist .history
  598. //go.sysin dd *
  599. made=TRUE
  600. if [ $made = TRUE ]; then
  601.     /bin/chmod 644 .login
  602.     /bin/echo -n '    '; /bin/ls -ld .login
  603. fi
  604.  
  605. ::::::::::::::
  606. cshrc/3
  607. ::::::::::::::
  608. Date: Fri, 14 Sep 84 14:59:01 pdt
  609. From: hplabs!sdcrdcf!sdcsvax!sdcc6!loral!hlb (Howard Brandell)
  610. To: sdcc6!sdcsvax!sdcrdcf!hplabs!resonex!nancy
  611. Subject: .cshrc
  612.  
  613. I am sending my entire .cshrc file because I have some things in it
  614. that help me out.
  615.  
  616. Firstly, note the aliases that allow me to selectively read those
  617. newsgroups of interest.  Aha! You may say I can put it all in the
  618. .newsrc file and have the system inform me when there is news and
  619. read it out simultaneously.  But, sometimes we get news during the
  620. course of the day and I like to check my favorites continuously.
  621.  
  622. Also, not the aliases for tip.  These allow me to dial my remote 
  623. locations with both spped and accuracy. As an aside,  I have
  624. created a .tiprc file which logs all my remote host conversation
  625. into a file.  In this way, nothing is lost.  Note the 'rt' command
  626. which allows me to purge tiplog.
  627.  
  628. alias a alias
  629. a sd   "msg,gju,glw,kay,sdi"
  630. a ds   "chmod 600 .signature"
  631. a es   "chmod 640 .signature"
  632. a vc   "ccalc"
  633. a m    "mail"
  634. a p    "more"
  635. a rk   "readnews -n net.kids"
  636. a ra   "readnews -n net.micro.apple"
  637. a ri   "readnews -n net.micro.pc"
  638. a rs   "readnews -n sdnet.computing"
  639. a rb   "readnews -n net.sport.baseball"
  640. a rn   "readnews -n net.columbia"
  641. a rw   "readnews -n net.wanted"
  642. a rl   "readnews -n net.legal"
  643. a r    "readnews"
  644. a logs "readnews -n net.sources -l>sources.log"
  645. a motd "cat /etc/motd|more"
  646. a h   "history -r \!*|more"
  647. a t1  "tip 561-7271"
  648. a t2   "tip 452-1869"
  649. a t3   "tip 283-1538" 
  650. a t4   "tip 692-1961"
  651. a t5   "tip 270-1166" 
  652. a t6   "tip 217-1900"
  653. a rt   "rm tiplog"
  654. a bye     logout
  655. a cd    "cd \!* ; dirs"
  656. a term    'set noglob; eval `tset -n -s \!*`'
  657. a wat    "ps -au | more"
  658. a pv    printenv
  659. a j    "jobs -l"
  660. a f    "finger|more"
  661. a l    ls -F
  662.  
  663. if ( $?prompt == 1 ) then
  664.     set prompt="\!: "
  665.     set mail=(60 /usr/spool/mail/$USER)
  666. endif
  667. set history =    24
  668. set cdpath = (. ~)
  669.  
  670. Also note the aliases for the more mundane commands, like mail
  671. and more -c.
  672.  
  673. Hope this has been of some help.  Please disregard my earlier
  674. transmission as I had some operational difficulties.  Thx.
  675.  
  676. ::::::::::::::
  677. cshrc/4
  678. ::::::::::::::
  679. From: sun!dagobah!mike
  680. Date: Mon, 17 Sep 84 23:27:05 pdt
  681. To: sun!resonex!nancy
  682. Subject: .cshrc
  683.  
  684. set mail=(10 /usr/spool/mail/$user)
  685. set path=(. ~/bin /usr/lfl/bin /usr/ucb /bin /usr/bin /usr/hosts /usr/suntool)
  686. set cdpath  = ( . .. ~ /usr /u0 /u1 /audio)
  687. set mail=(10 /usr/spool/mail/$user)
  688. set msgs=(10 /usr/msgs/bounds)
  689. set history = 50
  690.  
  691. source  ~/.aliases
  692. set D = /net/dagobah/u0/mike
  693. set d = /net/dim/u0/mike
  694. set k = /net/kessel/u0/mike
  695. set n = /net/nellybell/u0/mike
  696. if (! $?HOST) setenv HOST `hostname`
  697. alias s_prompt 'set prompt = "[$HOST\\\!$cwd]\\
  698. % "'
  699. alias cd 'cd \!*; s_prompt'
  700. s_prompt
  701.  
  702.  
  703. ::::::::::::::
  704. cshrc/5
  705. ::::::::::::::
  706. From: sun!dagobah!mike
  707. Date: Mon, 17 Sep 84 23:27:19 pdt
  708. To: sun!resonex!nancy
  709. Subject: .aliases
  710.  
  711. alias alice    cu -s 1200 2016654115
  712. alias rabbit    cu -s 1200 2016654150
  713. alias yale    cu -s 1200 2034323510
  714. alias ajax    cu -s 1200 2015828265
  715.  
  716. alias ts     'setenv TERM `tset - \!* -Q`;set term = $TERM;unsetenv TERMCAP;'
  717. alias aa    "ts aaa-26; aaapf"
  718. alias aaa    aa
  719.  
  720. alias h        history
  721. alias l        'ls -Fa'
  722. alias lp    l -t
  723. alias ll    'ls -laF | more'
  724. alias wo    /u0/td/bin/who
  725. alias m        'make \!* >>& errors &'
  726. alias mail    Mail
  727. alias ml    /bin/mail
  728. alias lm    ml
  729. alias rml    'rm -f /usr/spool/mail/mike'
  730. alias RM    '/bin/rm -rf'
  731. alias clean    'rm *.o core errors a.out'
  732. alias CLEAN    'RM *.o core errors a.out ~/.REMOVED; mkdir ~/.REMOVED'
  733. alias die    'clear; kill -HUP $$'
  734. alias tlog    tail -f /usr/spool/uucp/LOGFILE
  735. alias ter    tail -f errors
  736.  
  737.   #
  738.   # For job control:
  739.   # Use 'fg' to bring job into the foreground, 'bg' to run job in background.
  740.   #   'v', to restart vi editor
  741.   #   'W', to restart ice editor
  742.   #   'j', to list out jobs
  743.   #   'k', to kill jobs; 'k 2' kills job [2]; 'k' kills the most recent job (+).
  744. alias v       %vi
  745. alias j       jobs
  746. alias k       'kill %\!*'
  747. alias sysline ~/bin/sysline -Dhmrj
  748.  
  749.  
  750. ::::::::::::::
  751. cshrc/6
  752. ::::::::::::::
  753. Date: Fri, 21 Sep 84 01:17:43 cdt
  754. From: ihnp4!uiucdcs!liberte (Daniel LaLiberte)
  755. To: sun!resonex!nancy
  756. Subject: .cshrc trick
  757.     
  758. I like my recursive prompt that shows the depth of shell calls with added
  759. ">"s.  It also gives a different prompt for my superuser which has the same
  760. home.  Additionally, we have several vaxes, uiucdcs*, networked with
  761. ethernet.  Upgrades are easier with the same .cshrc on all machines.
  762.     
  763.     
  764. ...
  765. if (! $?PROMPT) setenv PROMPT ""    # initialize
  766. setenv PROMPT "$PROMPT>"        # add ">"
  767. if ($?prompt) then
  768.     set sys = `hostname`
  769.     if ("$prompt" == "% ") then    # regular user
  770.         set prompt = `echo $sys | sed s/uiucdcs//`
  771.     else if ("$prompt" == "# ") then    # super user
  772.         set prompt = "$sys#"
  773.     endif
  774.     set prompt = "$prompt\!$PROMPT "
  775. endif
  776.     
  777.     
  778. My login prompt (on uiucdcs) is:
  779.     
  780. 1>
  781.  
  782. A csh call will produce:
  783.     
  784. 1>>
  785.     
  786. Remote login to uiucdcsb, for example:
  787.     
  788. b1>
  789.     
  790. Superuser on uiucdcsb:
  791.     
  792. uiucdcsb#1>>
  793.     
  794.     
  795. I have an alarm script and a spooled rcp that both use `at`.
  796.  
  797. Daniel LaLiberte
  798. ihnp4!uiucdcs!liberte
  799.  
  800.  
  801. ::::::::::::::
  802. cshrc/7
  803. ::::::::::::::
  804. Date: Sun, 7 Oct 84 20:35:02 pdt
  805. From: Ken Greer <hplabs!kg>
  806. To: resonex!nancy
  807. Subject: Xmas is early this year...
  808.  
  809. Here's what I thought were the most interesting things in my 
  810. csh profile.
  811.  
  812. 1. Prompt is (curdir hist#), or [curdir hist#] if running as su.
  813.    The brackets stack, so if I login as kg and su to kgsu, my prompt
  814.    is [(curdir hist#)] indicating my previous shell was non-su.
  815.    In both cases, the current directory always appears in prompt.
  816.  
  817. 2. On that subject, I heartily recommend a separate su login
  818.    for each su-er on a system.  This lets everyone have their
  819.    own profile, and when they quit you don't have to change the su passwd,
  820.    just remove their su.
  821.  
  822. 3. The directory stuff. (I prefer it to pushd/popd.)
  823.    ds   - displays directory stack (set to length DSSIZE below).
  824.    go # - go to directory item number #
  825.    back - go to previous directory.
  826.    cd   - stack current directory and go to a new one.  Oldest directories
  827.       fall off end of stack (whose size is DSSIZE).
  828.  
  829. 4. The "e" and "ec" commands let you edit the last or any command.
  830.    If works with a special program.  Would you like that?
  831.  
  832. 5. Delete/Undelete - special program.  Lets you recover deleted
  833.    files up to three days (user selectable).
  834.  
  835. 6. Do you know about my tcsh?  Not sure how it fits in with tricks though.
  836.  
  837.                 -Ken
  838.  
  839.  
  840. # Fancy prompt...
  841. if ($?prompt) then
  842. if (! $?LEFTPROMPT) setenv LEFTPROMPT ""
  843. if (! $?RIGHTPROMPT) setenv RIGHTPROMPT ""
  844. if (`whoami` == root) then
  845.     setenv LEFTPROMPT '['"$LEFTPROMPT"
  846.     setenv RIGHTPROMPT "$RIGHTPROMPT"']'
  847.    set path=(~/bin /usr/local/etc /etc /usr/local/bin /usr/ucb /bin /usr/bin .)
  848. else
  849.     setenv LEFTPROMPT '('"$LEFTPROMPT"
  850.     setenv RIGHTPROMPT "$RIGHTPROMPT"')'
  851.     set path=(~/bin /usr/local/bin /usr/ucb /bin /usr/bin .)
  852. endif
  853. alias setprompt 'set prompt = "${LEFTPROMPT}${cwd} \\!${RIGHTPROMPT} "'
  854. setprompt
  855. alias a    alias
  856.  
  857. # directory manipulation...
  858. set DSSIZE = 10
  859. if (! $?DS) set DS = (~)
  860. a back    'set xx=$DS[$#DS] DS[$#DS]=$cwd; chdir $xx; unset xx; setprompt'
  861. a go    'set xx=$DS[\!*] DS[\!*]=$cwd; chdir $xx; unset xx; setprompt'
  862. a ds    'echo $DS | tr " " "\012" | cat -n'
  863. a cd   'if ($#DS >= $DSSIZE) shift DS; set DS = ($DS $cwd);chdir \!*; setprompt'
  864.  
  865. # virtual remove...
  866. a rm    del
  867. a rm!    /bin/rm
  868.  
  869. # edit command...
  870. a e    '/usr/local/bin/ec \!-1:q'
  871. a ec    '/usr/local/bin/ec "\!*:q"'
  872.  
  873. # misc...
  874. a j    jobs
  875. a ls    '/usr/ucb/ls -F'
  876. a tag    '/usr/ucb/vi -ta \!*'
  877. a ts    'set noglob;eval `tset -s -Q \!*`'
  878. a wd    'echo $cwd'
  879. endif
  880.  
  881.  
  882. ::::::::::::::
  883. cshrc/8
  884. ::::::::::::::
  885. Date: Thu, 13 Sep 84 08:36:47 edt
  886. From: sun!decvax!genrad!teddy!dls (Diana L. Syriac)
  887. To: genrad!decvax!decwrl!sun!idi!resonex!nancy
  888. Subject: Re: Tricks, shell and awk scripts, csh aliases and the like
  889.  
  890. I'm sorry, I don't really have any "tricks" to make life easier, I'm also
  891. a rather new Unix user....except for one:
  892.     I use setenv a lot to define a bunch of directories that I use
  893.     a lot.  For example, I have in my .cshrc:
  894.         setenv obc ~doc/rts/obc
  895.     So anytime I want to get to that directory (or just look at it), I
  896.     just type:    ls $obc/filename
  897.     These environment variables work inside of mail as well as inside of
  898.     emacs.
  899. I suppose you already have that one from other people.
  900.  
  901. We also have on our system some "local" programs that make life a lot easier:
  902. We have an "lf" and "dir" that replaces "ls" and "ls -l", but with an added
  903. feature:  directories are displayed in bold letter, executables are displayed
  904. in reverse video and special files are displayed in flashing letters.  It's
  905. quite easy to see at a glance what the files are or where you want to go.
  906.  
  907. We also have a "pushd" and "popd" which replace the "cd" command.  
  908.     pushd directory
  909. will pushd a directory onto the "stack", and change to it.  After you're
  910. finished with that directory, just typing
  911.     popd
  912. will put you back to where you were.  There is a "dirs" command to 
  913. allow you to look at the "stack" to see where you are, where you've been.
  914. If you use "cd" instead, it's smart enough to change your stack and replace
  915. the current directory with the one specified in "cd". And if you just say
  916. "pushd" by itself, it will SWAP the current directory with the last directory
  917. you were in, making it very easy to toggle between two directories.
  918.  
  919. Other things that we've done:
  920.     Built a script for the nroff command that is used by most people
  921. on the system, including macros and some "local" filters to make it look
  922. nice on terminal, line printer, and diablo.  I have also created a little
  923. program which can be used in conjunction with nroff to produce "change bars"
  924. at the left margin of documents.  We used the change bars quite a lot under
  925. vms rno.
  926.     We have a set of programs that produce "C" listings, with a table
  927. of contents showing all files AND routines, page numbered and file numbered,
  928. each file has a line number at left margin indicating file and line number
  929. (eg: 3.41 refers to file 3, line 41), and at the very end of listing, there
  930. is a cross-reference of all tokens, giving file.line references.  Part of
  931. this set of programs was taken directly off the net and modified for our
  932. own use.
  933.  
  934. Well, that's all that I can think of for now.  BUT what I really mailed
  935. to you was for something that I want.  At the last DECUS, one of the speakers
  936. demonstrated a little program that he wrote that allowed him to keep a
  937. running log of what he did every day.  The program started up when he logged
  938. on, and ran in the background.  Every 15 minutes, it would beep at him,
  939. asking him to input a line telling what he was currently doing.  If ignored,
  940. it would beep at him every minute until he input something to it.  I don't
  941. know who the guy was, and I lost his business card, but I'd sure like to
  942. get that program if you have it.  Thanks much.
  943.  
  944.             Diana L. Syriac
  945.             GenRad, Concord, Ma.
  946.             decvax!genrad!teddy!dls
  947.  
  948.  
  949. ::::::::::::::
  950. logins/1
  951. ::::::::::::::
  952. From: sun!dagobah!mike
  953. Date: Mon, 17 Sep 84 23:26:53 pdt
  954. To: sun!resonex!nancy
  955. Subject: .login
  956.  
  957. #tset -m dialup:aaa-60 -Q
  958. tset -m dialup:c100-4p -Q
  959. setenv TERM $term
  960. switch ($TERM)
  961.     case dialup:
  962.         set term = aaa-60; setenv TERM $term
  963.         ~/bin/aaapf
  964.         breaksw
  965.     case c100-4:
  966.     case c108-4p:
  967.         sysline
  968.     case c100-4p:
  969.         setkeys
  970. endsw
  971. stty new erase "^?"
  972.  
  973. biff y
  974. setenv notify true
  975. setenv CWD $cwd
  976. setenv SHELL /bin/csh
  977. setenv MAIL ~/Mail
  978. setenv MANPATH /u0/pn/man:/u0/mike/Man:/usr/lfl/man:/usr/man
  979. setenv INCPATH /usr/lfl/include:/usr/include:/u0/mike/Include
  980. setenv LIBPATH /usr/lfl/lib:/lib:/usr/lib:/u0/mike/Lib
  981. setenv LOADPATH /usr/src/lfl/bin/emacs.unipress/emacs4.2/maclib
  982. setenv EDITOR /usr/ucb/vi
  983. uupoll ucbvax
  984. msgs
  985.  
  986.  
  987. ::::::::::::::
  988. logins/2
  989. ::::::::::::::
  990. Date: Fri, 14 Sep 84 10:42:43 edt
  991. From: Jay Weber  <amd!mordor!ut-sally!seismo!rochester!jay>
  992. To: ut-sally!mordor!dual!amd!resonex!nancy
  993. Subject: Re: Tricks, shell and awk scripts, csh aliases and the like
  994.  
  995. I use the hold option in my .mailrc, which keeps messages around
  996. until you explicitly delete them.  That's a popular option since
  997. it makes it easy to keep around descriptions of things to do, but
  998. it gets hard to tell when you have new mail and how much.  So, I
  999. have this in my .login:
  1000.  
  1001. @ newmail= `from $mail[$#mail] |awk 'END{print NR}'` - `cat .mailsize`
  1002. if ($newmail == 1) then
  1003.   echo "(There is one new mail message.)"
  1004. else
  1005.   if ($newmail > 1) echo "(There are $newmail new mail messages.)"
  1006. endif
  1007. ------------
  1008. and this in my .logout:
  1009.  
  1010. if (-r $mail[$#mail]) then
  1011.   from $mail[$#mail] | awk 'END{print NR}' >~/.mailsize
  1012. endif
  1013. ------------
  1014.  
  1015. Jay Weber
  1016. ..!seismo!rochester!jay
  1017. jay@rochester.arpa
  1018.  
  1019.  
  1020. ::::::::::::::
  1021. logins/3
  1022. ::::::::::::::
  1023. Date: Fri, 14 Sep 84 15:16:00 cdt
  1024. To: ctvax!convex!allegra!resonex!nancy
  1025. From: allegra!convex!trsvax!gm  (George Moore)
  1026. Subject: neat .login's
  1027.  
  1028. Nancy,
  1029.    Here is some of the aliases I use, as well as part of my .login
  1030. file: (We are running 4.1BSD on a 11/780)
  1031.  
  1032.   alias back 'set back=$old; set old=$cwd; cd $back; unset back'
  1033.   alias cd 'set old=$cwd; chdir \!*; sp'
  1034.   alias sp 'set prompt="$cwd> "'
  1035. Those aliases allow my prompt to always be my current directory.
  1036. You never have to run "pwd" again. Looks kindof strange when you
  1037. are in a low directory like /g/usr/src/local/csh, but you get used
  1038. to it. It also allows you to cd to some low dir, and then type
  1039. "back" and you are back in the directory you started in.  
  1040.  
  1041. I have this line in my .login:
  1042.   sh -c "$HOME/bin/firstlog &"
  1043. This line allows you to spin off a background job without the
  1044. "[1] 22934"  message messing up your screen. Firstlog is done
  1045. below. I have a security program which goes out and checks a few
  1046. key files and directories (/etc/passwd, /etc/group, /usr/lib/crontab,
  1047. /etc). If anything has changed, it sends me mail informing me of the
  1048. fact. But I only wish it run once a day, at the time I first login for
  1049. the day. (I don't want it run from crontab, that makes things too
  1050. predictable for the users)
  1051.  
  1052. ---------------------------------------------------------------------
  1053. #! /bin/csh
  1054. #  Firstlog -- finds out if this is the first time I have logged in 
  1055. #              today and start-up all sorts of neat stuff if it is.
  1056.  
  1057. set date=`/bin/date`
  1058. set now=`/usr/ucb/last $user`
  1059. if ($date[2] != $now[13] || $date[3] != $now[14]) then
  1060.     sh -c "$HOME/personal/security/secure &"
  1061. endif
  1062. ---------------------------------------------------------------------
  1063.  
  1064. I hope this helps.                George Moore
  1065.                         gm@trsvax.UUCP
  1066.  
  1067.  
  1068. From: Nancy Blachman <decvax!decwrl!sun!idi!resonex!nancy@Ucb-Vax.ARPA>
  1069. To: net.unix,net.unix-wizards,net.sources
  1070. Subject: Actual Tricks, shells, csh aliases and the like, 2 of 3
  1071. Date: 16 Oct 84 21:22:55 GMT
  1072. Organization: Resonex Inc., Sunnyvale, CA
  1073.  
  1074. > [Know anybody with a GREAT .login or .cshrc?]
  1075.  
  1076. > I'm interested in collecting the little tricks, shell scripts, awk
  1077. > hacks, csh aliases, and such that people have built to make their daily
  1078. > life a little easier or more automatic.  Being a fairly new system
  1079. > administrator I don't have the big toolbox that years of messing around
  1080. > will leave you with.  If you have any hacks you're proud of (or that
  1081. > you aren't proud of, but which work anyway), and you're willing to make
  1082. > them public, mail them to me.  I'll collect, collate, shuffle, sort,
  1083. > munge, judge, select and discard them and then "summarize to the net".
  1084.  
  1085. This article focuses shell scripts I received in response to my solicitation.  
  1086. The first article of this series concentrates on  aliases, and .cshrc and 
  1087. .login files. The third article centers on C programs and awk scripts.
  1088.  
  1089. /\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\/
  1090. > Nancy Blachman {allegra,hplabs,ihnp4,sun}!resonex!nancy  (408)720 8600 x37 <
  1091. /\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\/
  1092.  
  1093. ::::::::::::::
  1094. shells/1
  1095. ::::::::::::::
  1096. Date: Thu, 13 Sep 84 12:49:57 edt
  1097. From: allegra!vax135!cornell!tesla!mac (Michael Mc Namara)
  1098. To: cornell!vax135!houxm!mhuxl!ulysses!allegra!resonex!nancy
  1099. Subject: Cute cshell - sh scripts
  1100.  
  1101.     If your are like most UNIX systems, you have a plethora of different
  1102. terminals that  your system  is supposed to support.  Sure, with termcap
  1103. and terminfo, and programs written to use them, the interface gets easier.
  1104. If you only ever login to one particular terminal, you can 
  1105.  
  1106. set term = "vt131"
  1107.  
  1108. or 
  1109.  
  1110. TERM=vt131
  1111. export TERM
  1112.  
  1113. in your .login or .profile.
  1114.  
  1115. But what if you,  or some of your users,  drift  around using different
  1116. terminal types-- You have a terminal room with many different terminals.
  1117.  
  1118. Here is a set of shell scripts & C programs that use the "echo terminal
  1119. type" command that many terminals support, to do automatic terminal type
  1120. identification and setting:  (of course I've only made it work for  the 
  1121. terminals we have here at Cornell, and some day I should write more of it
  1122. in C...)
  1123.  
  1124.     This one is written for cshell:
  1125.  
  1126. ##########################################
  1127. #    Identify and set terminal type (csh)#
  1128. ##########################################
  1129. set noglob
  1130. echo Please wait...
  1131. stty cbreak -echo
  1132. # this sequence will cause all terminals we have to echo something
  1133. # except for adm's; those users are told to hit 'a' when they see
  1134. # please wait
  1135. echo ' CZ[c'
  1136. sleep 1      
  1137. # this calls a c program to grab the id string from the terminal 
  1138. # program is included later...
  1139. set type = `/usr/new/rin.login`
  1140. stty -cbreak echo new crt
  1141. #########################
  1142. # the or in the vt100 terminal type is because vt100's respond
  1143. # to both ^[Z and ^[[c, but DEC threatens to eliminate one of 
  1144. # the responces (I forget which).. The extra stty back you see
  1145. # with DG terminals (Data General) is because their backspace is
  1146. # ^Y instead of ^H ( Home on DG terminals) This involves a modification
  1147. # of stty, which you would care about only if you have them--Write to me.
  1148. ##################
  1149. if ( $type == "[?1;0c" || $type == "[?1;0c[?1;0c" ) then
  1150.      set term = vt100
  1151.      echo "VT101"                            
  1152. else if ( $type == "[?1;2c" || $type == "[?1;2c[?1;2c" ) then
  1153.      set term = vt100
  1154.      echo "VT100"
  1155. else if ( $type == "[?1;11c[?1;11c") then
  1156.      set term = ct500
  1157.      echo "[7mCIT - 500[m"
  1158. else if ( $type == "[?12;5;0;102c" ) then
  1159.      set term = vt100
  1160.      echo "VT125"
  1161. else if ($type == "[?1;2c[?1;2c") then
  1162.      set term = vt100
  1163.      echo "VT100, with Selenar Graphics"
  1164. else if ( $type == "o#\!R" ) then
  1165.      set term = dg200
  1166.      stty stop undef start undef back  
  1167.      echo "DDG200E"
  1168. else if ( $type == "o#'C3" ) then
  1169.      set term = dg450
  1170.      stty back  
  1171.      echo "FS11BFS00 DATA GENERAL DASHER D450" 
  1172. else if ( $type == "o#'K3" ) then 
  1173.      set term = dg450
  1174.      stty back  
  1175.      echo "FS11BFS00 DATA GENERAL DASHER D450" 
  1176. else if ( $type == "/K" ) then
  1177.      set term = vt52
  1178.      echo "Visual 50"
  1179. else if ( $type =~ "\\4*" ) then
  1180.      set term = hp2621          
  1181.      echo HP2621
  1182. else if ( $type =~ "a" ) then
  1183.      set term = adm3a
  1184.      echo "adm3a"
  1185. else if ($type == "50" ) then
  1186.      set term = w50
  1187.      echo "WYSE50"
  1188. else
  1189. # Ask user for terminal type -- for some reason the above didn't work
  1190. set no_name_yet=1
  1191. set no_name_yet = 1;
  1192. while( $no_name_yet )
  1193.    echo -n "Please enter terminal type (hit return for menu) "
  1194.    set ttyname = ($< );
  1195.    switch( $ttyname )
  1196.    case d450:
  1197.    case dg450:
  1198.       set term=dg450;
  1199.       stty back 
  1200.       set no_name_yet = 0;
  1201.       breaksw;
  1202.    case vt100:
  1203.       set term=vt100;
  1204.       set no_name_yet = 0;
  1205.       breaksw;
  1206.    case v50:
  1207.    case vt52:
  1208.       set term=vt52;
  1209.       set no_name_yet = 0;
  1210.       breaksw;
  1211.    case hp2621:
  1212.    case hp:
  1213.       set term=hp2621;
  1214.       set no_name_yet = 0;
  1215.       breaksw;
  1216.    case wyse50:
  1217.       set term=w100;
  1218.       set no_name_yet = 0;
  1219.       breaksw;
  1220.    case adm5:
  1221.       set term=adm5;  
  1222.       set no_name_yet = 0;
  1223.       breaksw;
  1224.    case adm3+:                 
  1225.    case adm3:
  1226.    case adm3a:
  1227.       set term=adm3+;
  1228.       set no_name_yet = 0;
  1229.    case d200:
  1230.    case dg200:
  1231.       set term=dg200;
  1232.       stty stop undef start undef back ;
  1233.       set no_name_yet = 0;
  1234.       breaksw;
  1235.    case other:
  1236.       echo -n "Enter terminal name: "
  1237.       set term=($< );
  1238.       set no_name_yet = 0;
  1239.       breaksw;
  1240.    case '':
  1241.       echo Terminal abbreviations are:
  1242.       echo "Dasher 450 : dg450"
  1243.       echo "Dasher 200 : dg200"
  1244.       echo "Visual 50  : v50"
  1245.       echo "VT100      : vt100"
  1246.       echo "HP 2621    : hp2621"
  1247.       echo "ADM5       : adm5"
  1248.       echo "ADM3+      : adm3+"
  1249.       echo "Use 'other' to specify terminals not on this menu"
  1250.       breaksw;
  1251.    default:
  1252.       echo "I didn't understand that. Hit return for a menu."
  1253.    endsw
  1254. end
  1255. unset no_name_yet
  1256. unset ttyname
  1257. endif
  1258. stty -cbreak
  1259. stty echo
  1260. unset noglob
  1261.  
  1262. Ok, This one is used for Bourne shell lovers:  (I used /bin/test because
  1263. one user had an executable file called test somewhere in his path ahead
  1264. of where this program lived...That one took days to track down...)
  1265.  
  1266.  
  1267. echo "Please Wait..."
  1268. stty start  stop   crt new back  -echo cbreak
  1269. echo ' CZ[c'
  1270. sleep 1
  1271. TYPE=`/usr/new/rin.login`
  1272. stty echo -cbreak
  1273. if ( /bin/test \( $TYPE = "[?1;0c" \) -o \( $TYPE = "[?1;0c[?1;0c" \) ) then
  1274.      TERM=vt100
  1275.      echo "[7mVT101[m" 
  1276. elif ( /bin/test \( $TYPE = "[?1;2c" \) -o \( $TYPE = "[?1;2c[?1;2c" \)  ) then
  1277.      TERM=vt100
  1278.      echo "#3[7mVT100[m"
  1279.      echo "#4?[7mVT100[m"
  1280. elif ( /bin/test  $TYPE = "[?1;11c[?1;11c") then
  1281.      TERM=ct500
  1282.      echo "CT 500"
  1283. elif ( /bin/test  $TYPE = "o#!R" ) then
  1284.      TERM=dg200
  1285.      stty stop undef
  1286.      stty start undef
  1287.      stty crt
  1288.      stty back 
  1289.      echo "D DATA GENERAL DASHER D200E"
  1290. elif ( /bin/test $TYPE = "o#'C3" )  then
  1291.      TERM=dg450
  1292.      stty crt   
  1293.      stty back 
  1294.      echo "FS11BFS00 DATA GENERAL DASHER D450"
  1295. elif ( /bin/test $TYPE = "/K" ) then
  1296.      TERM=vt52
  1297.      echo "UVisual 50T"
  1298. elif ( /bin/test $TYPE = "50" ) then
  1299.      TERM=w50
  1300.      clear
  1301.      echo "WYSE 50"
  1302. elif ( /bin/test $TYPE = "\4088000" ) then
  1303.      TERM=hp2621
  1304.      echo HP2621
  1305. elif ( /bin/test $TYPE = "a" ) then
  1306.      TERM=adm3a
  1307.      echo ADM3a
  1308. else
  1309.      stty start 
  1310.      stty stop  
  1311.      stty new crt
  1312.      set no_name_yet=1
  1313. echo
  1314. while ($no_name_yet) do {
  1315.   echo
  1316.   echo Which terminal do you have?
  1317.   echo       Hit return for a menu.
  1318.   read INP
  1319.   case $INP
  1320.     in
  1321. 100 | v | vt100) {
  1322.                   TERM=vt100
  1323.                   break
  1324.              } ;;
  1325. adm5)            {
  1326.                  TERM=adm5
  1327.                  break
  1328.              } ;;
  1329. adm3+)           {
  1330.                  TERM=adm3+
  1331.                  break
  1332.              } ;;
  1333. 450 | dg450 | d450)  {
  1334.                   TERM=dg450
  1335.                   stty back 
  1336.                   break
  1337.              } ;;
  1338. 200 | dg200 | d200)  {
  1339.                   TERM=dg200
  1340.                   stty stop undef
  1341.                   stty start undef
  1342.                   stty back 
  1343.                   break
  1344.              }  ;;
  1345.  50 | vt52 | v50)   { 
  1346.                   TERM=vt52
  1347.                   break
  1348.              } ;;
  1349.  2621 | hp2621 | hp) {
  1350.                   TERM=hp2621
  1351.                   break
  1352.              } ;;
  1353.       other) {
  1354.                   echo -n Enter terminal name:
  1355.                   read tname
  1356.                   TERM=$tname
  1357.                   break
  1358.              } ;;
  1359.  ''|?|help)  {    echo Terminal abbreviations are:
  1360.                   echo 
  1361.                   echo Dasher 450:  dg450
  1362.                   echo Dasher 200:  dg200
  1363.                   echo Visual  50:  vt52
  1364.                   echo VT100     :  vt100
  1365.                   echo HP 2621   :  hp2621
  1366.                   echo ADM3+     :  adm3+
  1367.                   echo ADM5      :  adm5
  1368.                   echo "Use 'other' to specify other terminals."
  1369.                   echo
  1370.              } ;;
  1371.         * )  {   echo "I did not understand that."
  1372.              } ;;
  1373.   esac
  1374.   }
  1375. done
  1376. fi
  1377. export TERM
  1378.  
  1379. *********
  1380. And here is the c program that read's in the terminal ID string:
  1381.  
  1382.  
  1383. /* rin -- read in a char string which may not be terminated */
  1384. char buf[256];
  1385. int n;
  1386. main ()
  1387. {
  1388. n = read(0,buf,256);
  1389. write(1,buf,n);
  1390. printf("\n");
  1391. }
  1392.  
  1393. ***************
  1394.  
  1395.  
  1396.         Use them, abuse them.  Of course you have to paw through
  1397. your terminal manuanls to discover what (if any) string they respond to,
  1398. and test for the response accordingly...
  1399.  
  1400.                                         ---MAC
  1401.  
  1402.  
  1403.  
  1404. ::::::::::::::
  1405. shells/2
  1406. ::::::::::::::
  1407. From: hplabs!azure!billp
  1408. To: tektronix!hplabs!resonex!nancy
  1409. Date: Thursday, 13 Sep 84 09:23:49 PDT
  1410. Subject: Re: Tricks, shell and awk scripts, csh aliases and the like
  1411.  
  1412. Here are some that I like and use a lot.  'del' and 'undelete' are just two
  1413. links to the same file.  This way if somebody copies one, they get the
  1414. other too
  1415. -------------------------------------------------------------------------------
  1416. ::::::::::::::
  1417. : mv
  1418. ::::::::::::::
  1419. : 'prompts if the destination file already exists'
  1420. /bin/mv -i $*
  1421. -------------------------------------------------------------------------------
  1422. ::::::::::::::
  1423. : cp
  1424. ::::::::::::::
  1425. : 'prompts if the destination file already exists'
  1426. /bin/cp -i $*
  1427. -------------------------------------------------------------------------------
  1428. ::::::::::::::
  1429. : del, undelete
  1430. ::::::::::::::
  1431. : '"del" throws files into the waste basket'
  1432. : 'files preceded by "," are automagically removed after 7 days'
  1433. : '"undelete" pulls files out of the waste basket'
  1434. : 'if invoked without an argument, both commands list the contents of the'
  1435. : 'waste basket.'
  1436.  
  1437. case $0 in
  1438. *del)
  1439.     if test -z "$1"
  1440.     then
  1441.     ls -lus $HOME/.waste_basket
  1442.     else
  1443.     for i
  1444.     do
  1445.         echo -n "deleting "
  1446.         tmp=`basename $i`
  1447.         /bin/mv -i $i $HOME/.waste_basket/,$tmp
  1448.         echo $i
  1449.     done
  1450.     fi;;
  1451.  
  1452. *undelete)
  1453.     if test -z "$1"
  1454.     then
  1455.     ls -lus $HOME/.waste_basket
  1456.     else
  1457.     for i
  1458.     do
  1459.         echo -n "recovering "
  1460.         tmp=`basename $i`
  1461.         /bin/mv -i $HOME/.waste_basket/,$tmp $i
  1462.         echo $i
  1463.     done
  1464.     fi;;
  1465. esac
  1466. -------------------------------------------------------------------------------
  1467. ::::::::::::::
  1468. : vi
  1469. ::::::::::::::
  1470. : 'backs up file(s) before editing them'
  1471. : 'files preceded by "," are automagically removed after 7 days'
  1472. for i
  1473. do
  1474.     if test -f $i
  1475.     then
  1476.     echo -n "backing up "
  1477.     tmp=`basename $i`
  1478.     /bin/cp -i $i $HOME/.vi_backup/,$tmp
  1479.     echo $i
  1480.     fi
  1481. done
  1482. /usr/ucb/vi $*
  1483. -------------------------------------------------------------------------------
  1484.  
  1485.     Bill Pfeifer
  1486. {ucbvax,decvax,ihnp4,allegra,uw-beaver,hplabs} !tektronix!tekmdp!billp
  1487.  
  1488. ::::::::::::::
  1489. shells/3
  1490. ::::::::::::::
  1491. Date: Thu, 13 Sep 84 13:58:09 pdt
  1492. From: turtlevax!ken (Ken Turkowski)
  1493. To: resonex!nancy
  1494. Subject: Re: Tricks, shell and awk scripts, csh aliases and the like
  1495.  
  1496. You asked for it, you've got it!  Here's ALL of my personal nifties:
  1497.             Ken
  1498. **************************************************
  1499.  
  1500. echo x - bin
  1501. mkdir bin
  1502. echo x - bin/CC
  1503. cat >bin/CC <<'!Funky!Stuff!'
  1504. #
  1505. set outname=a.out
  1506. foreach file ($argv)
  1507.     if ("$file" =~ *.[cso]) then
  1508.     set outname=$file:r
  1509.         break
  1510.     endif
  1511. end
  1512. echo cc -o $outname $*
  1513. exec cc -o $outname $*
  1514. !Funky!Stuff!
  1515. echo x - bin/appt
  1516. cat >bin/appt <<'!Funky!Stuff!'
  1517. #
  1518. set notetype=$0
  1519. set notetype=$notetype:t
  1520. set notefile=~/.$notetype
  1521. # if ($notetype == appt) then
  1522. #     set notetype=appointment
  1523. #     set notefile=~/calendar
  1524. # endif
  1525.  
  1526. if ($#argv == 0) then
  1527.     test -t 0 && echo Please enter your $notetype entry '(^D to end):'
  1528.     echo ' ' >> $notefile
  1529.     exec cat >> $notefile
  1530. endif
  1531.  
  1532. switch ($1)
  1533.     case -:
  1534.     exec vi $notefile
  1535.     case -rm:
  1536.     cat /dev/null > $notefile
  1537.     exec echo The ${notetype}s are removed.
  1538.     case -what:
  1539.     exec cat $notefile
  1540.     default:
  1541.     echo '' >> $notefile
  1542.     echo "$*" >> $notefile
  1543. endsw
  1544. !Funky!Stuff!
  1545. echo x - bin/asfix
  1546. cat >bin/asfix <<'!Funky!Stuff!'
  1547. case $# in
  1548.     0)
  1549.     file=/tmp/afix$$
  1550.     trap "cat $file; rm $file; exit" 0
  1551.     trap "rm $file; exit" 3 9
  1552.     cat > $file ;;
  1553.     1)
  1554.     file=$1 ;;
  1555.     *)
  1556.     echo Usage `basename $0` ' [ <file> ]' ;;
  1557. esac
  1558. ed - $file << EOF
  1559. v/[:\.]/s/^/    /
  1560. g/:./s/:/:    /
  1561. wq
  1562. EOF
  1563. !Funky!Stuff!
  1564. echo x - bin/atcat
  1565. cat >bin/atcat <<'!Funky!Stuff!'
  1566. #
  1567. if ($#argv < 2) then
  1568.     set cmd=$0
  1569.     echo Usage: "$cmd:t <time> <word> [ <word> ... ]"
  1570.     exit
  1571. endif
  1572. set atcmd="echo $argv[2-] > `tty`"
  1573. at $1 << EOF
  1574. $atcmd
  1575. EOF
  1576. !Funky!Stuff!
  1577. echo x - bin/atecho
  1578. cat >bin/atecho <<'!Funky!Stuff!'
  1579. #
  1580. if ($#argv < 2) then
  1581.     set cmd=$0
  1582.     echo Usage: "$cmd:t <time> <word> [ <word> ... ]"
  1583.     exit
  1584. endif
  1585. set atcmd="echo $argv[2-] > `tty`"
  1586. at $1 << EOF
  1587. $atcmd
  1588. EOF
  1589. !Funky!Stuff!
  1590. echo x - bin/beautify
  1591. cat >bin/beautify <<'!Funky!Stuff!'
  1592. #
  1593. set TMP=/tmp/cb$$
  1594. foreach file (argv)
  1595.     echo Beautifying $file:
  1596.     cb < $file > $TMP
  1597.     cat $TMP > $file
  1598. end
  1599. rm $TMP
  1600. !Funky!Stuff!
  1601. echo x - bin/blankclean
  1602. cat >bin/blankclean <<'!Funky!Stuff!'
  1603. sed -e 's/^    $//' -e 's/ *$//' $*
  1604. !Funky!Stuff!
  1605. echo x - bin/bphone
  1606. cat >bin/bphone <<'!Funky!Stuff!'
  1607. phonefile=$HOME/.`basename $0`s
  1608.  
  1609. echo ' '
  1610.  
  1611. case $# in
  1612.     0)
  1613.     ed - $phonefile << EOF
  1614. g/./s/$/\\
  1615. /
  1616. g/    /s//\\
  1617. /g
  1618. g/;/s//    /g
  1619. 1,\$p
  1620. q
  1621. EOF
  1622.     exit ;;
  1623. esac
  1624.  
  1625. case $1 in
  1626.     -)
  1627.     chmod 644 $phonefile
  1628.     vi $phonefile
  1629.     chmod 444 $phonefile
  1630.     exit ;;
  1631. esac
  1632.  
  1633. trap "rm /tmp/data$$; exit" 0 2
  1634. for name
  1635. do
  1636.     grep -y "$name" $phonefile >> /tmp/data$$
  1637. done
  1638. ed - /tmp/data$$ << EOF
  1639. g/./s/$/\\
  1640. /
  1641. g/    /s//\\
  1642. /g
  1643. g/;/s//    /g
  1644. 1,\$p
  1645. q
  1646. EOF
  1647. !Funky!Stuff!
  1648. echo x - bin/catalog
  1649. cat >bin/catalog <<'!Funky!Stuff!'
  1650. # catalog - produce complete file structure list from directory
  1651. # 
  1652. # Parameters:     1: directory name (optional)
  1653. #         2: indentation string (empty on first call)
  1654. # 
  1655. # Produces on standard output the file structure emanating from
  1656. #   the current directory.  Each descent into a subdirectory
  1657. #    is indicated by further indentation.  Directories are indicated
  1658. #    by surrounding [], and executable files are prefaced with a *.
  1659. # 
  1660. if ( $#argv == 0) then
  1661.    echo "file structure from directory `pwd`"
  1662.    date
  1663.    echo ''
  1664. else
  1665.    cd $1
  1666. endif
  1667. foreach i ( * )
  1668.    if ( -d $i ) then
  1669.      echo "${2}[ $i ]"
  1670.      $0 $i "$2  . "
  1671.    endif
  1672.      if ( "$i" != '*' ) then
  1673.         if ( -x $i ) then
  1674.            echo "${2} *$i "
  1675.         else
  1676.            echo "${2}  $i "
  1677.         endif
  1678.      endif
  1679.    endif
  1680. end
  1681. !Funky!Stuff!
  1682. echo x - bin/circum
  1683. cat >bin/circum <<'!Funky!Stuff!'
  1684. there=$1
  1685. shift
  1686. otherstuff="$*"
  1687. back=`whoami`
  1688. last=`hostname`
  1689. IFS='     !    
  1690. '
  1691. for link in $there
  1692. do
  1693.     back="$last!$back"
  1694.     last=$link
  1695. done
  1696. IFS='     
  1697. '
  1698. echo mail $there!$back
  1699. (date; echo "$otherstuff") | mail -s "Circumlocution to $last" $there!$back
  1700. !Funky!Stuff!
  1701. echo x - bin/comfmt
  1702. cat >bin/comfmt <<'!Funky!Stuff!'
  1703. exec fmt | \
  1704. sed -e '1s/^\([     ]*\)/\1\/\* /' -e '2,$s/^\([     ]*\)/\1 \* /' -e '${P
  1705. s/\*.*/*\//
  1706. }'
  1707. !Funky!Stuff!
  1708. echo x - bin/comstrip
  1709. cat >bin/comstrip <<'!Funky!Stuff!'
  1710. exec sed -e 's/\/\*//' -e 's/\*\///' -e 's/^[     ]*\** *//'
  1711. !Funky!Stuff!
  1712. echo x - bin/decvert
  1713. cat >bin/decvert <<'!Funky!Stuff!'
  1714. #
  1715. if ($#argv == 0) then
  1716.     set args=`cat`
  1717.     if ($#args != 0) $0 $args
  1718.     exit
  1719. endif
  1720.  
  1721. foreach hexnum ($argv)
  1722. dc << EOF
  1723. 16i
  1724. ${hexnum}p
  1725. EOF
  1726. end
  1727. !Funky!Stuff!
  1728. echo x - bin/f77
  1729. cat >bin/f77 <<'!Funky!Stuff!'
  1730. PATH=/usr/bin
  1731. SPECLIB=/usr/ken/cmd/lib/libc.a
  1732. exec f77 "$@" $SPECLIB
  1733. !Funky!Stuff!
  1734. echo x - bin/famove
  1735. cat >bin/famove <<'!Funky!Stuff!'
  1736. #
  1737. if ($#argv != 2) then
  1738.     echo Usage: $0 '<source family root> <destination family root>'
  1739.     exit
  1740. endif
  1741. foreach file ($1.*)
  1742.     set suffix=`expr $file : "$1\.\(.*\)"`
  1743.     echo mv $file $2.$suffix
  1744.     mv $file $2.$suffix
  1745. end
  1746. if (-e $1) then
  1747.     echo mv $1 $2
  1748.     mv $1 $2
  1749. endif
  1750. !Funky!Stuff!
  1751. echo x - bin/gredit
  1752. cat >bin/gredit <<'!Funky!Stuff!'
  1753. #
  1754. set CAESAR=/mnt/cad/bin/caesar
  1755. set SEARCHPATH=(-p ::/usr/ken/caesar/symlib)
  1756. set COLORMAP=(-c mumap.cmap)
  1757. set GRTERM=ttyh7
  1758. set caesarfile=()
  1759. foreach parm ($argv)
  1760.     if ($?flag) then
  1761.     switch ($flag)
  1762.         case g:
  1763.         set GRTERM=$parm
  1764.         breaksw
  1765.         case p:
  1766.         set SEARCHPATH=(-p "$parm")
  1767.         breaksw
  1768.         case R:
  1769.         set SEARCHPATH=($SEARCHPATH:$parm)
  1770.         breaksw
  1771.         case c:
  1772.         set COLORMAP=(-c $parm)
  1773.         breaksw
  1774.     endsw
  1775.     unset flag
  1776.     continue
  1777.     endif
  1778.     if ($parm =~ -*) then
  1779.     switch ($parm)
  1780.         case -g:
  1781.         set flag=g
  1782.         continue
  1783.         case -p:
  1784.         set flag=p
  1785.         continue
  1786.         case -P:
  1787.         set SEARCHPATH=()
  1788.         continue
  1789.         case -R:
  1790.         set flag=R
  1791.         continue
  1792.         case -C:
  1793.         set COLORMAP=()
  1794.         continue
  1795.         case -c:
  1796.         set flag=c
  1797.         continue
  1798.     endsw
  1799.     else
  1800.     set caesarfile=($caesarfile $parm)
  1801.     endif
  1802. end
  1803. onintr -
  1804. $CAESAR -g $GRTERM $SEARCHPATH $COLORMAP $caesarfile
  1805. !Funky!Stuff!
  1806. echo x - bin/grindall
  1807. cat >bin/grindall <<'!Funky!Stuff!'
  1808. #
  1809. set flags=
  1810. set fileargs=
  1811. onintr cleanup
  1812. foreach file ($argv)
  1813.     if ($file =~ -*) then
  1814.     if ($file == -t) then
  1815.         set stdout
  1816.     else
  1817.         set flags=($flags $file)
  1818.     endif
  1819.     else
  1820.     set fileargs=($fileargs $file)
  1821.     endif
  1822. end
  1823.  
  1824. if ($?stdout) then
  1825.     foreach file ($fileargs)
  1826.     vgrind -t $flags $file
  1827.     end
  1828. else
  1829.     foreach file ($fileargs)
  1830.     vgrind -t $flags $file >> /usr/tmp/grind$$
  1831.     end
  1832.     vpr -T $fileargs[1] -t /usr/tmp/grind$$
  1833. endif
  1834.  
  1835. cleanup:
  1836. rm /usr/tmp/grind$$
  1837. !Funky!Stuff!
  1838. echo x - bin/hardasm
  1839. cat >bin/hardasm <<'!Funky!Stuff!'
  1840. #
  1841. grasm -1 -l -x $* |& pr -f -h "grasm -l -x $*" | vpr -l
  1842. !Funky!Stuff!
  1843. echo x - bin/hexvert
  1844. cat >bin/hexvert <<'!Funky!Stuff!'
  1845. #
  1846. if ($#argv == 0) then
  1847.     set args=`cat`
  1848.     if ($#args != 0) $0 $args
  1849.     exit
  1850. endif
  1851.  
  1852. foreach decnum ($argv)
  1853. dc << EOF
  1854. 16o
  1855. ${decnum}p
  1856. EOF
  1857. end
  1858. !Funky!Stuff!
  1859. echo x - bin/job
  1860. cat >bin/job <<'!Funky!Stuff!'
  1861. PATH=/usr/ken/cmd/bin:/usr/ucb:/bin:/usr/bin
  1862. case $# in
  1863.     0)
  1864.     exec echo Usage: `basename $0` '-;' or $0 '<job description>' ;;
  1865. esac
  1866. case $1 in
  1867.     -)
  1868.     exec ex $HOME/.joblog ;;
  1869.     -h | -hr | -hrs)
  1870.     shift
  1871.     hrs=$1
  1872.     shift
  1873.     exec echo '   job:' $hrs hours # $* >> $HOME/.joblog ;;
  1874.     -tail)
  1875.     exec tail -22 $HOME/.joblog ;;
  1876.     -today)
  1877.     {
  1878.         while read line
  1879.         do
  1880.         case $line in
  1881.             *login*)
  1882.             login="$line" ;;
  1883.         esac
  1884.         done
  1885.         echo -n "$login" "for "
  1886.         diffdate "$login" "`date`"
  1887.     } < $HOME/.joblog ;;
  1888.     -login)
  1889.     echo ' login:' "`date`" >> $HOME/.joblog ;;
  1890.     -summary)
  1891.     cat $HOME/.joblog |
  1892.         while read line
  1893.         do
  1894.         case $line in
  1895.             *login*)
  1896.             login="$line" ;;
  1897.             *logout*)
  1898.             logout="$line"
  1899.             echo -n "$login" "for "
  1900.             diffdate "$login" "$logout"
  1901.         esac
  1902.         done ;;
  1903.     *)
  1904.     exec echo '   job:' "`date`" # $* >> $HOME/.joblog ;;
  1905. esac
  1906. !Funky!Stuff!
  1907. echo x - bin/ledger
  1908. cat >bin/ledger <<'!Funky!Stuff!'
  1909. #
  1910. set notetype=$0
  1911. set notetype=$notetype:t
  1912. set notefile=~/.$notetype
  1913. # if ($notetype == appt) then
  1914. #     set notetype=appointment
  1915. #     set notefile=~/calendar
  1916. # endif
  1917.  
  1918. if ($#argv == 0) then
  1919.     test -t 0 && echo Please enter your $notetype entry '(^D to end):'
  1920.     echo ' ' >> $notefile
  1921.     exec cat >> $notefile
  1922. endif
  1923.  
  1924. switch ($1)
  1925.     case -:
  1926.     exec vi $notefile
  1927.     case -rm:
  1928.     cat /dev/null > $notefile
  1929.     exec echo The ${notetype}s are removed.
  1930.     case -what:
  1931.     exec cat $notefile
  1932.     default:
  1933.     echo '' >> $notefile
  1934.     echo "$*" >> $notefile
  1935. endsw
  1936. !Funky!Stuff!
  1937. echo x - bin/lstree
  1938. cat >bin/lstree <<'!Funky!Stuff!'
  1939. #
  1940. if ($#argv == 0) then
  1941.     set root=.
  1942. else
  1943.     set root=($*)
  1944. endif
  1945. exec find $root -print | sort | sed -e 's/[^ \/]*\//    /g'
  1946. !Funky!Stuff!
  1947. echo x - bin/match
  1948. cat >bin/match <<'!Funky!Stuff!'
  1949. cat $2 |
  1950. while read x
  1951. do
  1952.     for word in $x
  1953.     do
  1954.     case $word in
  1955.         $1)
  1956.         echo $word ;;
  1957.     esac
  1958.     done
  1959. done
  1960. !Funky!Stuff!
  1961. echo x - bin/narrow
  1962. cat >bin/narrow <<'!Funky!Stuff!'
  1963. echo \!
  1964. !Funky!Stuff!
  1965. echo x - bin/outmesg
  1966. cat >bin/outmesg <<'!Funky!Stuff!'
  1967. #
  1968. set notetype=$0
  1969. set notetype=$notetype:t
  1970. set notefile=~/.$notetype
  1971. # if ($notetype == appt) then
  1972. #     set notetype=appointment
  1973. #     set notefile=~/calendar
  1974. # endif
  1975.  
  1976. if ($#argv == 0) then
  1977.     test -t 0 && echo Please enter your $notetype entry '(^D to end):'
  1978.     echo ' ' >> $notefile
  1979.     exec cat >> $notefile
  1980. endif
  1981.  
  1982. switch ($1)
  1983.     case -:
  1984.     exec vi $notefile
  1985.     case -rm:
  1986.     cat /dev/null > $notefile
  1987.     exec echo The ${notetype}s are removed.
  1988.     case -what:
  1989.     exec cat $notefile
  1990.     default:
  1991.     echo '' >> $notefile
  1992.     echo "$*" >> $notefile
  1993. endsw
  1994. !Funky!Stuff!
  1995. echo x - bin/path
  1996. cat >bin/path <<'!Funky!Stuff!'
  1997. IFS="${IFS}:"
  1998. for cmddir in $PATH
  1999. do
  2000.     test -s $cmddir/$1 && echo "    $cmddir/$1"
  2001. done
  2002. !Funky!Stuff!
  2003. echo x - bin/pphone
  2004. cat >bin/pphone <<'!Funky!Stuff!'
  2005. phonefile=$HOME/.`basename $0`s
  2006.  
  2007. echo ' '
  2008.  
  2009. case $# in
  2010.     0)
  2011.     ed - $phonefile << EOF
  2012. g/./s/$/\\
  2013. /
  2014. g/    /s//\\
  2015. /g
  2016. g/;/s//    /g
  2017. 1,\$p
  2018. q
  2019. EOF
  2020.     exit ;;
  2021. esac
  2022.  
  2023. case $1 in
  2024.     -)
  2025.     chmod 644 $phonefile
  2026.     vi $phonefile
  2027.     chmod 444 $phonefile
  2028.     exit ;;
  2029. esac
  2030.  
  2031. trap "rm /tmp/data$$; exit" 0 2
  2032. for name
  2033. do
  2034.     grep -y "$name" $phonefile >> /tmp/data$$
  2035. done
  2036. ed - /tmp/data$$ << EOF
  2037. g/./s/$/\\
  2038. /
  2039. g/    /s//\\
  2040. /g
  2041. g/;/s//    /g
  2042. 1,\$p
  2043. q
  2044. EOF
  2045. !Funky!Stuff!
  2046. echo x - bin/progression
  2047. cat >bin/progression <<'!Funky!Stuff!'
  2048. last=
  2049. for backup in $1_??
  2050. do
  2051.     case $last in
  2052.     "")
  2053.         last=$backup
  2054.         continue;
  2055.     esac
  2056.     echo ''
  2057.     echo From $last to $backup:
  2058.     diff $last $backup
  2059.     last=$backup
  2060. done
  2061. echo ''
  2062. echo From $last to $1:
  2063. diff $last $1
  2064. !Funky!Stuff!
  2065. echo x - bin/query
  2066. cat >bin/query <<'!Funky!Stuff!'
  2067. #
  2068. set notetype=$0
  2069. set notetype=$notetype:t
  2070. set notefile=~/.$notetype
  2071. # if ($notetype == appt) then
  2072. #     set notetype=appointment
  2073. #     set notefile=~/calendar
  2074. # endif
  2075.  
  2076. if ($#argv == 0) then
  2077.     test -t 0 && echo Please enter your $notetype entry '(^D to end):'
  2078.     echo ' ' >> $notefile
  2079.     exec cat >> $notefile
  2080. endif
  2081.  
  2082. switch ($1)
  2083.     case -:
  2084.     exec vi $notefile
  2085.     case -rm:
  2086.     cat /dev/null > $notefile
  2087.     exec echo The ${notetype}s are removed.
  2088.     case -what:
  2089.     exec cat $notefile
  2090.     default:
  2091.     echo '' >> $notefile
  2092.     echo "$*" >> $notefile
  2093. endsw
  2094. !Funky!Stuff!
  2095. echo x - bin/releave
  2096. cat >bin/releave <<'!Funky!Stuff!'
  2097. #
  2098. set tty=`tty`
  2099. set tty=`expr $tty : '.*tty\(.*\)'`
  2100. set leaveproc=`ps gt$tty | grep -w leave`
  2101. kill -9 $leaveproc[1]
  2102. date
  2103. leave $*
  2104. !Funky!Stuff!
  2105. echo x - bin/reminder
  2106. cat >bin/reminder <<'!Funky!Stuff!'
  2107. #
  2108. set notetype=$0
  2109. set notetype=$notetype:t
  2110. set notefile=~/.$notetype
  2111. # if ($notetype == appt) then
  2112. #     set notetype=appointment
  2113. #     set notefile=~/calendar
  2114. # endif
  2115.  
  2116. if ($#argv == 0) then
  2117.     test -t 0 && echo Please enter your $notetype entry '(^D to end):'
  2118.     echo ' ' >> $notefile
  2119.     exec cat >> $notefile
  2120. endif
  2121.  
  2122. switch ($1)
  2123.     case -:
  2124.     exec vi $notefile
  2125.     case -rm:
  2126.     cat /dev/null > $notefile
  2127.     exec echo The ${notetype}s are removed.
  2128.     case -what:
  2129.     exec cat $notefile
  2130.     default:
  2131.     echo '' >> $notefile
  2132.     echo "$*" >> $notefile
  2133. endsw
  2134. !Funky!Stuff!
  2135. echo x - bin/reremind
  2136. cat >bin/reremind <<'!Funky!Stuff!'
  2137. #
  2138. set tty=`tty`
  2139. set tty=`expr $tty : '.*tty\(.*\)'`
  2140. set leaveproc=`ps gt$tty | awk '$5 ~ /^remind$/ { print $1 }'`
  2141. if ($#leaveproc > 1) echo $#leaveproc reminds were running
  2142. kill -9 $leaveproc
  2143. date
  2144. if ($#argv <= 1) then
  2145.     remind $*
  2146. else
  2147.     set time=$1
  2148.     shift
  2149.     remind $time "$*"
  2150. endif
  2151. !Funky!Stuff!
  2152. echo x - bin/restore
  2153. cat >bin/restore <<'!Funky!Stuff!'
  2154. # Truncate filename if necessary
  2155. set file=$1
  2156. if (`expr $file:t : '.*'` >= 11) then
  2157.     set savename=`expr $file : '\(.*\)'$file:t`
  2158.     set savename=$savename`expr $file:t : '\(...........\)'`
  2159. else
  2160.     set savename=$file
  2161. endif
  2162.  
  2163. switch ($#argv)
  2164.     case 1:
  2165.     set nonomatch
  2166.     set backup=(${savename}_[0-9][0-9])
  2167.     if ("$backup" == "${savename}_[0-9][0-9]") then
  2168.         echo Error: No backups found for $file
  2169.         exit
  2170.     endif
  2171.     set backup=$backup[$#backup]
  2172.     echo No backup number specified. Using latest: $backup
  2173.     breaksw
  2174.     case 2:
  2175.     set backup=${savename}_$2
  2176.     breaksw
  2177.     default:
  2178.     exec echo Usage: `basename $0` '<file>' '[<backup number>]'
  2179. endsw
  2180.  
  2181. if ( { cp $backup $file } ) then
  2182.     echo $file restored from $backup.
  2183.     echo -n Do you wish to keep "$backup? "
  2184.     set response=$<
  2185.     if ($response !~ y*) then
  2186.     rm $backup
  2187.     endif
  2188. endif
  2189. !Funky!Stuff!
  2190. echo x - bin/rot13
  2191. cat >bin/rot13 <<'!Funky!Stuff!'
  2192. tr "A-Za-z" "N-ZA-Mn-za-m"
  2193. !Funky!Stuff!
  2194. echo x - bin/shufcol
  2195. cat >bin/shufcol <<'!Funky!Stuff!'
  2196. trap 'rm /tmp/$$.*; exit' 0 2
  2197. cat > /tmp/$$.0
  2198. i=1
  2199. for cols
  2200. do
  2201.     cut -f$cols < /tmp/$$.0 > /tmp/$$.$i
  2202.     filelist="$filelist /tmp/$$.$i"
  2203.     i=`expr $i + 1`
  2204. done
  2205. paste $filelist
  2206. !Funky!Stuff!
  2207. echo x - bin/signature
  2208. cat >bin/signature <<'!Funky!Stuff!'
  2209. PATH=/bin:/usr/bin
  2210. cat
  2211. echo --
  2212. cat $HOME/.signature
  2213. !Funky!Stuff!
  2214. echo x - bin/swab
  2215. cat >bin/swab <<'!Funky!Stuff!'
  2216. #
  2217. if ($#argv == 0) then
  2218.     dd conv=swab
  2219. else
  2220.     onintr cleanup
  2221.     foreach file ($argv)
  2222.     cp $file /tmp/swab$$
  2223.     dd if=/tmp/swab$$ of=$file conv=swab
  2224.     end
  2225.     cleanup:
  2226.     rm /tmp/swab$$
  2227. endif
  2228. !Funky!Stuff!
  2229. echo x - bin/what
  2230. cat >bin/what <<'!Funky!Stuff!'
  2231. cat $HOME/.query
  2232. echo -n 'save? (n or d to delete, e to edit) '
  2233. read response
  2234. case $response in
  2235.     n | no | d | delete)
  2236.     rm $HOME/.query && echo The query is removed. ;;
  2237.     "" | y | yes | s | save)
  2238.     exit ;;
  2239.     e | edit)
  2240.     exec vi $HOME/.query < /dev/tty
  2241.     exit ;;
  2242.     *)
  2243.     echo Bad response: "$response"
  2244.     exec $0 ;;
  2245. esac
  2246. !Funky!Stuff!
  2247. echo x - bin/whereis
  2248. cat >bin/whereis <<'!Funky!Stuff!'
  2249. N=$#
  2250. command=echo
  2251. case "$1" in
  2252.     -*)
  2253.     command=`expr "$1" : '-\(.*\)'`
  2254.     shift
  2255.     N=`expr $N - 1` ;;
  2256. esac
  2257. case $N in
  2258.     0)
  2259.     exec echo Usage: `basename $0` [ -command ] pattern file ...  ;;
  2260.     1)
  2261.     files=`fgrep -l "$1" *` ;;
  2262.     *)
  2263.     files=`fgrep -l "$@"` ;;
  2264. esac
  2265. case $files in
  2266.     "")
  2267.         echo $1 not found in any files.
  2268.         exit ;;
  2269. esac
  2270. exec $command $files
  2271. !Funky!Stuff!
  2272. echo x - bin/wide
  2273. cat >bin/wide <<'!Funky!Stuff!'
  2274. echo \"
  2275. !Funky!Stuff!
  2276. echo x - bin/xprint
  2277. cat >bin/xprint <<'!Funky!Stuff!'
  2278. case $# in
  2279.     1)
  2280.     eval $1 | eval pr -f -h \"$1\" | vpr -l ;;
  2281.     *)
  2282.     command='cat $file'
  2283.     for file
  2284.     do
  2285.         case $file in
  2286.         -*)
  2287.             command=`expr "$file" : '-\(.*\)'`
  2288.             case $command in
  2289.             *\$file*)
  2290.                 ;;
  2291.             *)
  2292.                 command="$command \$file" ;;
  2293.             esac ;;
  2294.         *)
  2295.             eval $command | eval pr -f -h \"$command\" | vpr -l ;;
  2296.         esac
  2297.     done
  2298. esac
  2299. !Funky!Stuff!
  2300. echo x - bin/archives
  2301. mkdir bin/archives
  2302. echo x - bin/archives/newsweed
  2303. cat >bin/archives/newsweed <<'!Funky!Stuff!'
  2304. #
  2305. cd
  2306. if ($#argv == 0) then
  2307.     if (-e .newsweed) then
  2308.     set WEEDGROUPS=`cat .newsweed`
  2309.     else
  2310.     set WEEDGROUPS=
  2311.     endif
  2312. else
  2313.     set WEEDGROUPS=$*
  2314. endif
  2315. if ($#WEEDGROUPS == 0) then
  2316.     onintr
  2317.     echo Searching for articles in all newsgroups
  2318.     readnews -l | \
  2319.     grep Subject | \
  2320.     sed -e 's/Subject: *//' -e 's/^[rR][eE]:*  *//' | \
  2321.     sort -u > /tmp/weed$$a
  2322.     if (-z /tmp/weed$$a) then
  2323.     echo No news.
  2324.     else
  2325.     cp /tmp/weed$$a /tmp/weed$$b
  2326.     echo Please remove article titles which you do not wish to read
  2327.     sleep 1
  2328.     onintr -
  2329.     vi /tmp/weed$$b
  2330.     onintr cleanup
  2331.     comm -23 /tmp/weed$$a /tmp/weed$$b > /tmp/weed$$c
  2332.     echo Removing unwanted articles
  2333.     newsec -f /tmp/weed$$c
  2334.     endif
  2335. else
  2336.     foreach group ($WEEDGROUPS)
  2337.     echo Searching for articles in group\(s\):
  2338.     echo $group
  2339.     readnews -l -n $group | \
  2340.     grep Subject | \
  2341.     sed -e 's/Subject: *//' -e 's/^[rR]e:*  *//' | \
  2342.     sort -u > /tmp/weed$$a
  2343.     if (-z /tmp/weed$$a) then
  2344.         echo in newsgroups $group.
  2345.     else
  2346.         cp /tmp/weed$$a /tmp/weed$$b
  2347.         echo Please remove article titles which you do not wish to read
  2348.         sleep 1
  2349.         onintr -
  2350.         vi /tmp/weed$$b
  2351.         onintr cleanup
  2352.         comm -23 /tmp/weed$$a /tmp/weed$$b > /tmp/weed$$c
  2353.         echo Removing unwanted articles
  2354.         newsec -f /tmp/weed$$c
  2355.     endif
  2356.     end
  2357. endif
  2358.  
  2359. cleanup:
  2360. rm /tmp/weed$$?
  2361. !Funky!Stuff!
  2362. echo x - bin/archives/pk_01
  2363. cat >bin/archives/pk_01 <<'!Funky!Stuff!'
  2364. : Roff, nroff, or eqn input text
  2365. for file in `file $* | sed -n '/eqn input text$/s/:[^:]*$//p'`
  2366. do
  2367.     echo "echo x - $file"
  2368.     echo "sed 's/^x//' >$file <<'!Funky!Stuff!'"
  2369.     sed 's/^/x/' $file; echo "!Funky!Stuff!"
  2370. done
  2371. : Text files
  2372. for file in `file $* | sed -n -e '/commands text$/s/:[^:]*$//p' -e '/ascii text$/s/:[^:]*$//p'`
  2373. do
  2374.     echo "echo x - $file"
  2375.     echo "cat >$file <<'!Funky!Stuff!'"
  2376.     cat $file; echo "!Funky!Stuff!"
  2377. done
  2378. : Directories, recursively
  2379. for dir in `file $* | sed -n '/directory$/s/:.*//p'`
  2380. do
  2381.     echo "echo x - $dir"
  2382.     echo "mkdir $dir"
  2383.     file=`echo $dir/*`
  2384.     test "$file" != "$dir/*" && $0 $file
  2385. done
  2386. !Funky!Stuff!
  2387. echo x - bin/archives/pkf
  2388. cat >bin/archives/pkf <<'!Funky!Stuff!'
  2389.  
  2390. for dir
  2391. do
  2392.     echo "echo x - $dir"
  2393.     echo "mkdir $dir";
  2394.     for file in `file $dir/* | sed -n '/text$/s/:[^:]*$//p'`
  2395.     do
  2396.         echo "echo x - $file"
  2397.         echo "cat >$file <<'!Funky!Stuff!'"
  2398.         cat $file; echo "!Funky!Stuff!"
  2399.     done
  2400.     $0 `file $dir/* | sed -n '/directory$/s/:.*//p'`
  2401. done
  2402. !Funky!Stuff!
  2403. echo x - bin/archives/pkg
  2404. cat >bin/archives/pkg <<'!Funky!Stuff!'
  2405. for file
  2406. do
  2407.     echo "echo x - $file"
  2408.     echo "cat >$file <<'!Funky!Stuff!'"
  2409.     cat $file; echo "!Funky!Stuff!"
  2410. done
  2411. !Funky!Stuff!
  2412. echo x - bin/archives/pkn
  2413. cat >bin/archives/pkn <<'!Funky!Stuff!'
  2414.  
  2415. for dir
  2416. do
  2417.     echo "echo x - $dir"
  2418.     echo "mkdir $dir";
  2419.     for file in `file $dir/* | sed -n '/text$/s/:[^:]*$//p'`
  2420.     do
  2421.         echo "echo x - $file"
  2422.         echo "sed 's/^x//' >$file <<'!Funky!Stuff!'"
  2423.         sed 's/^/x/' $file; echo "!Funky!Stuff!"
  2424.     done
  2425.     $0 `file $dir/* | sed -n '/directory$/s/:.*//p'`
  2426. done
  2427. !Funky!Stuff!
  2428. echo x - bin/archives/prod
  2429. cat >bin/archives/prod <<'!Funky!Stuff!'
  2430. #
  2431. set flags=()
  2432. set syslist=()
  2433. foreach arg ($argv)
  2434.     switch ($arg)
  2435.     case -s*:
  2436.         if (`expr $arg : '.*'` > 9) then
  2437.         rm -f /usr/spool/uucp/STST.`expr $arg : '-s\(.......\)'`
  2438.         else
  2439.         rm -f /usr/spool/uucp/STST.`expr $arg : '-s\(.*\)'`
  2440.         endif
  2441.         set syslist=($syslist $arg)
  2442.         breaksw
  2443.     case -*:
  2444.         set flags=($flags $arg)
  2445.         breaksw
  2446.     default:
  2447.         if (`expr $arg : '.*'` > 7) then
  2448.         rm -f /usr/spool/uucp/STST.`expr $arg : '\(.......\)'`
  2449.         else
  2450.         rm -f /usr/spool/uucp/STST.$arg
  2451.         endif
  2452.         set syslist=($syslist -s$arg)
  2453.         breaksw
  2454.     endsw
  2455. end
  2456. foreach sys ($syslist)
  2457.     /usr/lib/uucp/uucico -r1 $flags $sys
  2458. end
  2459. !Funky!Stuff!
  2460. echo x - bin/bourne_scripts
  2461. mkdir bin/bourne_scripts
  2462. echo x - bin/bourne_scripts/lookdoc
  2463. sed 's/^x//' >bin/bourne_scripts/lookdoc <<'!Funky!Stuff!'
  2464. xtrap exit 2
  2465. xcase $# in
  2466. x    0)
  2467. x    ul | more
  2468. x    exit ;;
  2469. xesac
  2470. xfor names
  2471. xdo
  2472. x    case $names in
  2473. x    -n)
  2474. x        default=n ;;
  2475. x    -t)
  2476. x        default=t ;;
  2477. x    -m*)
  2478. x        macros="$macros $names" ;;
  2479. x    *.n | *.nr)
  2480. x        nroff $macros $names | ul | more ;;
  2481. x    *.t | *.tbl)
  2482. x        soelim $names | tbl | nroff $macros - | ul | more ;;
  2483. x    *)
  2484. x        case $default in
  2485. x        n)
  2486. x            nroff $macros $names | ul | more ;;
  2487. x        t)
  2488. x            soelim $names | tbl | nroff $macros - | ul | more ;;
  2489. x        "")
  2490. x            ul $names | more ;;
  2491. x        esac
  2492. x    esac
  2493. xdone
  2494. !Funky!Stuff!
  2495. echo x - bin/bourne_scripts/CC
  2496. cat >bin/bourne_scripts/CC <<'!Funky!Stuff!'
  2497. outname=a.out
  2498. for argv
  2499. do
  2500.     case $argv in
  2501.     *.[cos])
  2502.         outname=`expr $argv : '\(.*\)\.'`
  2503.         break ;;
  2504.     esac
  2505. done
  2506. cc -o $outname $*
  2507. !Funky!Stuff!
  2508. echo x - bin/bourne_scripts/appt
  2509. cat >bin/bourne_scripts/appt <<'!Funky!Stuff!'
  2510. case $0 in
  2511.     appt)
  2512.     notetype=appointment
  2513.     notefile=$HOME/calendar ;;
  2514.     *)
  2515.     notetype=$0
  2516.     notefile=$HOME/.$0 ;;
  2517. esac
  2518.  
  2519. case $# in
  2520.     0)
  2521.     test -t 0 && echo Please enter your $notetype '(^D to end):'
  2522.     echo '' >> $notefile
  2523.     exec cat >> $notefile ;;
  2524. esac
  2525. case $1 in
  2526.     -)
  2527.     exec vi $notefile ;;
  2528.     -rm)
  2529.     cat /dev/null > $notefile
  2530.     exec echo The ${notetype}s are removed. ;;
  2531.     -what)
  2532.     exec cat $notefile ;;
  2533.     *)
  2534.     echo '' >> $notefile
  2535.     exec echo "$*" >> $notefile ;;
  2536. esac
  2537. !Funky!Stuff!
  2538. echo x - bin/bourne_scripts/beautify
  2539. cat >bin/bourne_scripts/beautify <<'!Funky!Stuff!'
  2540. for files
  2541. do
  2542.     echo $files:
  2543.     cb < $files > /tmp/cb$$
  2544.     cat /tmp/cb$$ > $files
  2545. done
  2546. rm /tmp/cb$$
  2547. !Funky!Stuff!
  2548. echo x - bin/bourne_scripts/format
  2549. cat >bin/bourne_scripts/format <<'!Funky!Stuff!'
  2550. case $# in
  2551.     0)
  2552.     echo "Usage: `basename $0` [-flags] <filename> [ <filename> ... ]"
  2553.     exit 1 ;;
  2554. esac
  2555. for names
  2556. do
  2557.     case $names in
  2558.     -*)
  2559.         flags="$flags $names" ;;
  2560.     *.t)
  2561.         outfile=`expr $names : '\(.*\)\.'`.d
  2562.         soelim $names | tbl | nroff $flags - > $outfile ;;
  2563.     *.tbl)
  2564.         outfile=`expr $names : '\(.*\)\.'`.doc
  2565.         soelim $names | tbl | nroff $flags - > $outfile ;;
  2566.     *.n)
  2567.         outfile=`expr $names : '\(.*\)\.'`.d
  2568.         nroff $flags $names > $outfile ;;
  2569.     *.nr)
  2570.         outfile=`expr $names : '\(.*\)\.'`.doc
  2571.         nroff $flags $names > $outfile ;;
  2572.     *)
  2573.         echo Don\'t know what to do with $names ;;
  2574.     esac
  2575. done
  2576. !Funky!Stuff!
  2577. echo x - bin/bourne_scripts/print
  2578. cat >bin/bourne_scripts/print <<'!Funky!Stuff!'
  2579. PATH=/avsd/ava/turk/bin:/usr/local/bin:/usr/bin
  2580. indent=0
  2581. for names
  2582. do
  2583.     case $names in
  2584.     -i)
  2585.         indent=1 ;;
  2586.     *)
  2587.         args="$args $names" ;;
  2588.     esac
  2589. done
  2590. case $indent in
  2591.     0)
  2592.     pr $args | lpr ;;
  2593.     *)
  2594.     pr $args | indent | lpr ;;
  2595. esac
  2596. !Funky!Stuff!
  2597. echo x - bin/bourne_scripts/repeat
  2598. cat >bin/bourne_scripts/repeat <<'!Funky!Stuff!'
  2599. case $1 in
  2600.     -[0-9]*)
  2601.     number=`expr $1 : '-\(.*\)'`
  2602.     shift
  2603.     while test $number -gt 0
  2604.     do
  2605.         eval $*
  2606.         number=`expr $number - 1`
  2607.     done
  2608.     exit ;;
  2609.     *)
  2610.     echo Executing forever: $* 1>&2
  2611.     number=0
  2612.     trap 'echo Executed $number times.; exit' 2
  2613.     while true
  2614.     do
  2615.         eval $*
  2616.         number=`expr $number + 1`
  2617.     done ;;
  2618. esac
  2619. !Funky!Stuff!
  2620. echo x - bin/bourne_scripts/restore
  2621. cat >bin/bourne_scripts/restore <<'!Funky!Stuff!'
  2622. case $# in
  2623.     2) ;;
  2624.     *)
  2625.     exec echo Usage: `basename $0` '<file>' '<version>' ;;
  2626. esac
  2627. : Truncate filename if necessary
  2628. if test `expr $1 : '.*'` -gt 11
  2629. then
  2630.     savename=`expr $1 : '\(...........\)'`
  2631. else
  2632.     savename=$1
  2633. fi
  2634. savename=${savename}_$2
  2635. cp $savename $1 && rm $savename && echo $1 restored from $savename
  2636. !Funky!Stuff!
  2637. echo x - bin/bourne_scripts/save
  2638. cat >bin/bourne_scripts/save <<'!Funky!Stuff!'
  2639. for file
  2640. do
  2641.     if test `expr $file : '.*'` -gt 11
  2642.     then
  2643.     savename=`expr $file : '\(...........\)'`
  2644.     else
  2645.     savename=$file
  2646.     fi
  2647.     for copy in ${savename}_??
  2648.     do
  2649.     latest=$copy
  2650.     done
  2651.     if test $latest = "${savename}_??"
  2652.     then
  2653.     latest=${savename}_01
  2654.     else
  2655.     latest=`expr $latest : '.*_\([0123456789]*\)$' + 1`
  2656.     case $latest in
  2657.         ?)
  2658.         latest=0$latest
  2659.         ;;
  2660.     esac
  2661.     latest=${savename}_$latest
  2662.     fi
  2663.     cp $file $latest && echo $file saved as $latest
  2664. done
  2665. !Funky!Stuff!
  2666. echo x - bin/csh_scripts
  2667. mkdir bin/csh_scripts
  2668. echo x - bin/csh_scripts/newsweed
  2669. cat >bin/csh_scripts/newsweed <<'!Funky!Stuff!'
  2670. #
  2671. set TEMP=/tmp/weed$$
  2672. set NEWSRC=~/.newsrc
  2673. set AWKFILE=/usr/ken/cmd/lib/newsweed.awk
  2674. onintr
  2675. echo Searching for articles in all newsgroups
  2676. readnews -l $* | sort -o ${TEMP}a
  2677. if (-z ${TEMP}a) then
  2678.     echo No news.
  2679. else
  2680.     cp ${TEMP}a ${TEMP}b
  2681.     echo Please remove article titles which you do not wish to read
  2682.     sleep 1
  2683.     onintr -
  2684.     vi ${TEMP}b
  2685.     onintr cleanup
  2686.     if ( { cmp -s ${TEMP}a ${TEMP}b } ) then
  2687.     echo No articles deleted.
  2688.     else
  2689.     comm -23 ${TEMP}a ${TEMP}b | sed 's/ .*//' > ${TEMP}c
  2690.     echo Removing unwanted articles
  2691.     cp $NEWSRC $NEWSRC.old
  2692.     awk -f $AWKFILE $NEWSRC.old ${TEMP}c > ${TEMP}d
  2693.     cp ${TEMP}d $NEWSRC
  2694.     endif
  2695. endif
  2696. cleanup:
  2697. rm ${TEMP}?
  2698. !Funky!Stuff!
  2699. echo x - bin/csh_scripts/pathname
  2700. cat >bin/csh_scripts/pathname <<'!Funky!Stuff!'
  2701. #
  2702. foreach cmddir ($path)
  2703.     if ( -e $cmddir/$1 ) echo "    $cmddir/$1"
  2704. end
  2705. !Funky!Stuff!
  2706. echo x - bin/local
  2707. mkdir bin/local
  2708. echo x - bin/local/format
  2709. cat >bin/local/format <<'!Funky!Stuff!'
  2710. #
  2711. if ($#argv == 0) then
  2712.     set progname=$0
  2713.     set progname=$progname:t
  2714.     echo 'Usage:' $progname '[-v] [-n] [-print] [-troffflags] <filename> [ <filename> ... ]'
  2715.     exit (1)
  2716. endif
  2717. set flags
  2718. set formatter="vtroff -t"
  2719. set eqnsetter=eqn
  2720. set docsuf=v
  2721. set longdocsuf=vpr
  2722. set more=0
  2723. foreach name ($argv)
  2724.     if ($more > 0) then
  2725.     set flags="$flags $name"
  2726.     @ more--
  2727.     continue
  2728.     endif
  2729.     switch ($name)
  2730.     case -*:
  2731.         switch ($name)
  2732.         case -print:
  2733.             set print
  2734.             continue
  2735.         case -v:
  2736.             set formatter="vtroff -t"
  2737.             set eqnsetter=eqn
  2738.             set docsuf=v
  2739.             set longdocsuf=vpr
  2740.             continue
  2741.         case -n:
  2742.             set formatter=nroff
  2743.             set eqnsetter=neqn
  2744.             set docsuf=d
  2745.             set longdocsuf=doc
  2746.             continue
  2747.         case -[F123]:
  2748.             set more=1
  2749.         default:
  2750.             set flags="$flags $name"
  2751.         endsw
  2752.         continue
  2753.     case *.et:
  2754.         set outfile=$name:r.$docsuf
  2755.         eval soelim $name | tbl | $eqnsetter | $formatter $flags > $outfile
  2756.         breaksw
  2757.     case *.t:
  2758.         set outfile=$name:r.$docsuf
  2759.         eval soelim $name | tbl | $formatter $flags > $outfile
  2760.         breaksw
  2761.     case *.tbl:
  2762.         set outfile=$name:r.$longdocsuf
  2763.         eval soelim $name | tbl | $formatter $flags > $outfile
  2764.         breaksw
  2765.     case *.e:
  2766.         set outfile=$name:r.$docsuf
  2767.         eval $eqnsetter $name | $formatter $flags > $outfile
  2768.         breaksw
  2769.     case *.eqn:
  2770.         set outfile=$name:r.$longdocsuf
  2771.         eval $eqnsetter $name | $formatter $flags > $outfile
  2772.         breaksw
  2773.     case *.n:
  2774.         set outfile=$name:r.$docsuf
  2775.         eval $formatter $flags $name > $outfile
  2776.         breaksw
  2777.     case *.nr:
  2778.         set outfile=$name:r.$longdocsuf
  2779.         eval $formatter $flags $name > $outfile
  2780.         breaksw
  2781.     default:
  2782.         echo Don\'t know what to do with $name
  2783.         continue
  2784.     endsw
  2785.     if ($?print) then
  2786.     if ("$formatter" == nroff) then
  2787.         vpr $outfile
  2788.     else
  2789.         vpr -t $outfile
  2790.     endif
  2791.     endif
  2792. end
  2793. !Funky!Stuff!
  2794. echo x - bin/local/lntree
  2795. cat >bin/local/lntree <<'!Funky!Stuff!'
  2796. PATH=/usr/local/bin:/usr/ucb:/bin:/usr/bin
  2797. if test $1 = -v
  2798. then
  2799.     verbose=1
  2800.     shift
  2801. else
  2802.     verbose=0
  2803. fi
  2804. case $2 in
  2805.     /*)
  2806.     target=$2 ;;
  2807.     *)
  2808.     target=`pwd`/$2 ;;
  2809. esac
  2810. if test -f $2
  2811. then
  2812.     echo Error: $2 is not a directory
  2813.     exit 1
  2814. fi
  2815. cd $1
  2816. source=`pwd`
  2817. if test `expr $target : $source/` != 0
  2818. then
  2819.     echo Error: $2 may be a subdirectory of $1
  2820.     echo Try using the full path name of $2 \(no ..\'s\)
  2821.     exit 1
  2822. fi
  2823. if test $verbose = 1
  2824. then
  2825.     set -x
  2826. fi
  2827. files=`type -f`
  2828. case $files in
  2829.     "") ;;
  2830.     *)
  2831.     ln $files $target ;;
  2832. esac
  2833. for directory in `find '' -type d -a -print`
  2834. do
  2835.     mkdir $target$directory
  2836.     cd $source$directory
  2837.     files=`type -f`
  2838.     case $files in
  2839.     "") ;;
  2840.     *)
  2841.         ln $files $target$directory ;;
  2842.     esac
  2843. done
  2844. !Funky!Stuff!
  2845. echo x - bin/local/lookdoc
  2846. cat >bin/local/lookdoc <<'!Funky!Stuff!'
  2847. #
  2848. if ($#argv == 0) then
  2849.     more
  2850.     exit
  2851. endif
  2852. set macros pipespec args
  2853. foreach name ($argv)
  2854.     switch ($name)
  2855.     case -n:
  2856.         set pipespec=n
  2857.         breaksw
  2858.     case -t:
  2859.         set pipespec=t
  2860.         breaksw
  2861.     case -m*:
  2862.         set macros="$macros $name"
  2863.         breaksw
  2864.     case *.n:
  2865.     case *.nr:
  2866.         if ($pipespec != t) set pipespec=n
  2867.         set args="$args $name"
  2868.         breaksw
  2869.     case *.t:
  2870.     case *.tbl:
  2871.         set pipespec=t
  2872.         set args="$args $name"
  2873.         breaksw
  2874.     default:
  2875.         set args="$args $name"
  2876.     endsw
  2877. end
  2878.  
  2879. switch ($pipespec)
  2880.     case n:
  2881.     nroff $macros $args | more
  2882.     breaksw
  2883.     case t:
  2884.     soelim $args | tbl | nroff $macros - | col | more
  2885.     breaksw
  2886.     default:
  2887.     more $name
  2888.     breaksw
  2889. endsw
  2890. !Funky!Stuff!
  2891. echo x - bin/local/newsweed
  2892. cat >bin/local/newsweed <<'!Funky!Stuff!'
  2893. TEMP=/tmp/weed$$
  2894. NEWSRC=$HOME/.newsrc
  2895. AWKFILE=/usr/local/lib/newsweed.awk
  2896. trap 'rm ${TEMP}?; exit' 0 2
  2897. echo Making list of article titles
  2898. readnews -l $* | sort -o ${TEMP}a
  2899. if test -s ${TEMP}a
  2900. then
  2901.     cp ${TEMP}a ${TEMP}b
  2902.     echo Please remove article titles which you do not wish to read
  2903.     sleep 1
  2904.     reset    # So that vi's CRLF doesn't get trashed by another vi
  2905.     ${EDITOR-vi} ${TEMP}b
  2906.     if cmp -s ${TEMP}a ${TEMP}b
  2907.     then
  2908.     echo No articles deleted.
  2909.     else
  2910.     comm -23 ${TEMP}a ${TEMP}b | sed 's/ .*//' > ${TEMP}c
  2911.     echo Removing unwanted articles
  2912.     cp $NEWSRC $NEWSRC.old
  2913.     awk -f $AWKFILE $NEWSRC.old ${TEMP}c > ${TEMP}d
  2914.     cp ${TEMP}d $NEWSRC
  2915.     fi
  2916. else
  2917.     echo No news.
  2918. fi
  2919. !Funky!Stuff!
  2920. echo x - bin/local/nmail
  2921. cat >bin/local/nmail <<'!Funky!Stuff!'
  2922. #/bin/csh
  2923. set found = 0
  2924. set arg = 1
  2925. while($arg <= $#argv)
  2926.     if(`echo $argv[$arg] | grep \!` != "") then
  2927.         set tuple = `echo $argv[$arg] | sed s/\\!/\ /`
  2928.         set upath = `uupath $tuple[1]`
  2929.         set found = $status
  2930.         set argv[$arg] = "$upath\!$tuple[2]"
  2931.     else
  2932.         set found = 0
  2933.     endif
  2934.     if($found != 0) then
  2935.         set argv[$arg]
  2936.     endif
  2937.     @ arg = $arg + 1
  2938. end
  2939. echo "mail $argv"
  2940. mail $argv
  2941.  
  2942. !Funky!Stuff!
  2943. echo x - bin/local/peopledata
  2944. cat >bin/local/peopledata <<'!Funky!Stuff!'
  2945. peoplefile=$HOME/.peopledata
  2946.  
  2947. echo ' '
  2948.  
  2949. case $# in
  2950.     0)
  2951.     ed - $peoplefile << EOF
  2952. g/./s/$/\\
  2953. /
  2954. g/    /s//\\
  2955. /g
  2956. 1,\$p
  2957. q
  2958. EOF
  2959.     exit ;;
  2960. esac
  2961.  
  2962. case $1 in
  2963.     -)
  2964.     chmod 600 $peoplefile
  2965.     vi $peoplefile
  2966.     chmod 400 $peoplefile
  2967.     exit ;;
  2968. esac
  2969. trap "rm /tmp/data$$; exit" 0 2
  2970. for name
  2971. do
  2972.     grep -y "$name" $peoplefile >> /tmp/data$$
  2973. done
  2974. ed - /tmp/data$$ << EOF
  2975. g/./s/$/\\
  2976. /
  2977. g/    /s//\\
  2978. /g
  2979. 1,\$p
  2980. q
  2981. EOF
  2982. !Funky!Stuff!
  2983. echo x - bin/local/phone
  2984. cat >bin/local/phone <<'!Funky!Stuff!'
  2985. peoplefile=$HOME/.peopledata
  2986.  
  2987. case $# in
  2988.     0)
  2989.     ed - $peoplefile << EOF
  2990.     v/-/d
  2991.     g/./s/\([^    ]*\)[^-]*    \(.*-.*\)/\1    \2/
  2992.     1,\$p
  2993. EOF
  2994.     exit ;;
  2995. esac
  2996.  
  2997. case $1 in
  2998.     -)
  2999.     chmod 600 $peoplefile
  3000.     vi $peoplefile
  3001.     chmod 400 $peoplefile
  3002.     exit ;;
  3003. esac
  3004.  
  3005. trap "rm /tmp/data$$; exit" 0 2
  3006. for name
  3007. do
  3008.     grep -y "$name" $peoplefile >> /tmp/data$$
  3009. done
  3010. ed - /tmp/data$$ << EOF
  3011. g/./s/\([^    ]*\)[^-]*    \(.*-.*\)/\1    \2/
  3012. 1,\$p
  3013. q
  3014. EOF
  3015. !Funky!Stuff!
  3016. echo x - bin/local/pk
  3017. cat >bin/local/pk <<'!Funky!Stuff!'
  3018. for dir
  3019. do echo "mkdir $dir";
  3020.     for file in `file $dir/* | sed -n '/text$/s/:[^:]*$//p'`
  3021.     do    echo "echo x - $file"
  3022.         echo "cat >$file <<'#EOF#'"
  3023.         cat $file; echo "#EOF#"
  3024.     done
  3025.     pk `file $dir/* | sed -n '/directory$/s/:.*//p'`
  3026. done
  3027. !Funky!Stuff!
  3028. echo x - bin/local/save
  3029. cat >bin/local/save <<'!Funky!Stuff!'
  3030. #
  3031. if ("$1" =~ -*) then
  3032.     set suffix=`expr $1 : '-\(.*\)'`
  3033.     shift
  3034.     foreach file ($argv)
  3035.     if (`expr $file:t : '.*'` >= 11) then
  3036.         set savename=`expr $file : '\(.*\)'$file:t`
  3037.         set savename=$savename`expr $file:t : '\(...........\)'`
  3038.     else
  3039.         set savename=$file
  3040.     endif
  3041.     cp $file ${savename}_$suffix && \
  3042.         echo $file saved as ${savename}_$suffix
  3043.     end
  3044.     exit
  3045. endif
  3046. foreach file ($argv)
  3047.     if (`expr $file:t : '.*'` >= 11) then
  3048.     set savename=`expr $file : '\(.*\)'$file:t`
  3049.     set savename=$savename`expr $file:t : '\(...........\)'`
  3050.     else
  3051.     set savename=$file
  3052.     endif
  3053.  
  3054.     set nonomatch
  3055.     set latest=(${savename}_[0-9][0-9])
  3056.     if ("$latest" == "${savename}_[0-9][0-9]") then
  3057.     set latest=${savename}_01
  3058.     else
  3059.     set latest=$latest[$#latest]
  3060.     set latest=`expr $latest : '.*_\([0123456789]*\)$' + 1`
  3061.     if ($latest < 10) set latest=0$latest
  3062.     set latest=${savename}_$latest
  3063.     endif
  3064.     cp $file $latest && echo $file saved as $latest
  3065. end
  3066. !Funky!Stuff!
  3067. echo x - bin/local/shar
  3068. cat >bin/local/shar <<'!Funky!Stuff!'
  3069. : Roff, nroff, or eqn input text
  3070. for file in `file $* | sed -n '/eqn input text$/s/:[^:]*$//p'`
  3071. do
  3072.     echo "echo x - $file"
  3073.     echo "sed 's/^x//' >$file <<'!Funky!Stuff!'"
  3074.     sed 's/^/x/' $file; echo "!Funky!Stuff!"
  3075. done
  3076. : Text files
  3077. for file in `file $* | sed -n -e '/eqn input text$/d' -e '/text$/s/:[^:]*$//p'`
  3078. do
  3079.     echo "echo x - $file"
  3080.     echo "cat >$file <<'!Funky!Stuff!'"
  3081.     cat $file; echo "!Funky!Stuff!"
  3082. done
  3083. : Directories, recursively
  3084. for dir in `file $* | sed -n '/directory$/s/:.*//p'`
  3085. do
  3086.     echo "echo x - $dir"
  3087.     echo "mkdir $dir"
  3088.     file=`echo $dir/*`
  3089.     test "$file" != "$dir/*" && $0 $file
  3090. done
  3091. !Funky!Stuff!
  3092. echo x - bin/local/uuhosts
  3093. cat >bin/local/uuhosts <<'!Funky!Stuff!'
  3094. #!/bin/sh
  3095. # '@(#) uuhosts.sh 1.22 84/08/07'
  3096.  
  3097. # PATH will have to be adjusted for non-BSD systems.
  3098. PATH=/usr/local/bin:/usr/ucb:/bin:/usr/bin
  3099. LIB=/usr/lib
  3100.  
  3101. # Routing information produced by pathalias.
  3102. paths=$LIB/nmail.paths
  3103.  
  3104. # The directory $NEWSMAP should contain the USENET news map information
  3105. # from newsgroup net.news.map that is posted about once a month from
  3106. # cbosgd!map, extracted by a line like this in $LIB/news/sys:
  3107. #
  3108. #    newsmap:net.news.map:B:/usr/local/uuhosts -x
  3109. #
  3110. # Locally-known information should go in $LIB/news/net.news.map/Local.
  3111. # The directory $MAILMAP is extracted by the same command from the
  3112. # UUCP mail information posted to the same newsgroup.
  3113. NEWSMAP=$LIB/news/net.news.map
  3114. MAILMAP=$LIB/news/net.mail.map
  3115. cd $NEWSMAP
  3116.  
  3117. case $1 in
  3118.     -x)
  3119.         # extract a new map piece into the map directory
  3120.         temphead=/tmp/maphead.$$
  3121.         temptext=/tmp/maptext.$$
  3122.         awk '
  3123. BEGIN    {
  3124.     temphead = "'$temphead'";
  3125.     isnewsmap = 0; ismailmap = 0;
  3126.     shead = 0; stext = 1; snews = 2; smail = 3; scat = 4; scatting = 5;
  3127.     state = shead;
  3128.     print "Reply-To: news" >> temphead;
  3129. }
  3130. state == shead && /^From: /    {
  3131.     print "Original-" $0 >> temphead;
  3132. }
  3133. state == shead && /^Subject: /    {
  3134.     if ($2 != "Re:")
  3135.     for (x = 2; x <= NF; x++) {
  3136.         if ($x == "UUCPmap" || $x == "uucpmap" || $x == "UUCPMAP") {
  3137.             ismailmap = 1;
  3138.             break;
  3139.         }
  3140.         if ($x == "map" || $x == "Map" || $x == "MAP") {
  3141.             if (x <= 2)
  3142.                 continue;
  3143.             x--;
  3144.             if ($x == "USENET") {
  3145.                 isnewsmap = 1;
  3146.                 break;
  3147.             }
  3148.             if ($x == "UUCP") {
  3149.                 ismailmap = 1;
  3150.                 break;
  3151.             }
  3152.             x++;
  3153.         }
  3154.     }
  3155.     if (!isnewsmap && !ismailmap) {
  3156.         print "Subject:  not a map update" >> temphead;
  3157.         print "Original-" $0 >> temphead;
  3158.     } else
  3159.         print $0 >> temphead;
  3160. }
  3161. state == shead && /^$/    {
  3162.     if (isnewsmap != 0)
  3163.         state = snews;
  3164.     else if (ismailmap != 0) {
  3165.         state = scat;
  3166.     } else
  3167.         state = stext;
  3168.     next;
  3169. }
  3170. state == scat    {
  3171.     if ($1 != "cat")
  3172.         state = scatting;
  3173.     else
  3174.         state = smail;
  3175. }
  3176. state == scatting {
  3177.     if ($1 == ":")
  3178.         state = smail;
  3179.     else
  3180.         print;
  3181. }
  3182. state == smail    {
  3183.     print | "uuhosts -u";
  3184. }
  3185. state == snews    {
  3186.     print | "/bin/sh";
  3187. }
  3188. state == stext    {
  3189.     print;
  3190. }
  3191. ' > $temptext 2>&1
  3192.         cat $temphead $temptext | /bin/mail news
  3193.         rm -f $temphead $temptext
  3194.         exit 0
  3195.     ;;
  3196.  
  3197.     -u)
  3198.         # extract a UUCP map piece
  3199.         cd $MAILMAP
  3200.         /bin/sh
  3201.         for f in *map*.a *map*.ar
  3202.         do
  3203.             ar xv $f
  3204.             rm $f
  3205.         done
  3206.     ;;
  3207.  
  3208.     -g)
  3209.         # by geographical region
  3210.         shift
  3211.         if test $# -eq 0
  3212.         then
  3213.             exec ls
  3214.             exit 1
  3215.         fi
  3216.         exec cat $*
  3217.         exit 1
  3218.     ;;
  3219.  
  3220.     -k)
  3221.         # by keyword
  3222.         shift
  3223.         exec awk '
  3224. BEGIN        { inside = 1; outside = 0; state = outside; }
  3225. /^Name:/    { state = inside; count = 0; useit = 0; }
  3226. state == inside    { block[count++] = $0; }
  3227. /'"$*"'/    { useit = 1; }
  3228. /^$/ && state == inside    {
  3229.     if (useit == 1) {
  3230.         for (i = 0; i < count; i++) {
  3231.             print block[i];
  3232.         }
  3233.     }
  3234.     state = outside;
  3235. }
  3236. ' *
  3237.         exit 1
  3238.     ;;
  3239.  
  3240.     -*)
  3241.         # unknown option
  3242.     ;;
  3243.  
  3244.     "")
  3245.         # no arguments
  3246.     ;;
  3247.  
  3248.     *)
  3249.         # by site name
  3250.         for arg in $*
  3251.         do
  3252.             echo 'UUCP mail path:'
  3253.             grep '^'${arg} $paths
  3254.             echo '
  3255. UUCP mail host information:'
  3256.             cat $MAILMAP/${arg}* | tr % '\012'
  3257.             echo '
  3258. USENET news host information:'
  3259.             sed -n -e "/^Name:[     ]*${arg}/,/^$/p" *
  3260.         done
  3261.         exit 0
  3262.     ;;
  3263. esac
  3264.  
  3265. echo 'Usage:    'uuhosts' hostname ...
  3266. for information about a particular UUCP or USENET host or hosts, or
  3267.  
  3268.     'uuhosts' -g geographical-region
  3269. for information about USENET news sites in a geographical region, or
  3270.  
  3271.     'uuhosts' -g
  3272. for a list of known USENET geographical-regions.
  3273. '
  3274. exit 1
  3275. !Funky!Stuff!
  3276.  
  3277. ::::::::::::::
  3278. shells/4
  3279. ::::::::::::::
  3280. Date: Fri, 14 Sep 84 15:06:07 pdt
  3281. From: hplabs!sdcrdcf!sdcsvax!celerity!barto (David Barto)
  3282. To: sdcsvax!sdcrdcf!hplabs!resonex!nancy
  3283. Subject: Re: Tricks, shell and awk scripts, csh aliases and the like
  3284.  
  3285. Hi Nancy,
  3286.     I too am a 'new' system admin, and belive me, it won't take
  3287.     you too long to get quite a bag of tricks put together.
  3288.  
  3289.     Most of mine relate to source programs put together in
  3290.     shell scripts to keep track of things.
  3291.  
  3292.     I have 1 for news (at the end of the article) which keeps
  3293.     the active list up to date.
  3294.  
  3295.     Another nice program is one I call '#'.  It is owned by root
  3296.     and setuid/setgid to root/daemon.  I use it to 'become' root
  3297.     while doing 1 command
  3298.             # mv file1 file2
  3299.     which requires root permission.  It checks to see the normal
  3300.     userid is 'me' and then allows the command.  I will send it
  3301.     along if you want it.
  3302.  
  3303.     I have shell scripts for doing things such as 'rootedit'
  3304.     a file.  This is an alias for "alias re  '# vi -v \!*'"
  3305.  
  3306.     I too would love to see the things you get back from the
  3307.     net.  As well I have a sendmail config setup for making
  3308.     your configuration a breeze.  If you want it I can send
  3309.     it under seperate cover.
  3310.  
  3311.  
  3312.     barto (david barto)    Tele : (619) 271 9940
  3313.     uucp : {decvax || ucbvax || ihnp4}!sdcsvax!celerity!barto
  3314.     uucp : akgua!celerity!barto
  3315.     arpa : sdcsvax!celerity!barto@NOSC
  3316.  
  3317.  
  3318. : This is a shar archive.  Extract with sh, not csh.
  3319. echo x - Mkactive
  3320. cat > Mkactive << '!Funky!Stuff!'
  3321. #!/bin/sh
  3322. # see Update.active for this usage
  3323. #
  3324. sed -e '1,/---/d'\
  3325.     -e '1,/---/d'\
  3326.     -e 's/^[    ]//'\
  3327.     -e 's/    \(.*\)//'\
  3328.     active.current | sort | sed -e '1,/Newsgroup/d' > current
  3329. sed -e 's/ \(.*\)//' /usr/new/lib/news/active | sort > active
  3330. diff active current > /tmp/active.diff
  3331. echo "# active newsgroups not in local active file:"
  3332. fgrep ">" /tmp/active.diff
  3333. echo "# defunct newsgroups still in active file (also local groups):"
  3334. fgrep "<" /tmp/active.diff
  3335. /bin/rm current active /tmp/active.diff
  3336. !Funky!Stuff!
  3337. echo x - Mkdead
  3338. cat > Mkdead << '!Funky!Stuff!'
  3339. #!/bin/sh
  3340. # see Update.active for usage
  3341. # change all groups that we have (but shouldn't) to be removed,
  3342. # and change all groups that we dont have (but sould) to be a comment
  3343. sed    -e '/general/d'\
  3344.     -e '/control/d' \
  3345.     -e '/junk/d' \
  3346.     -e 's/</rmgroup/' \
  3347.     -e 's/>/#/'
  3348. !Funky!Stuff!
  3349. echo x - rmgroup
  3350. cat > rmgroup << '!Funky!Stuff!'
  3351. #! /bin/sh
  3352. # from : sdcsvax!sdcrdcf!hplabs!hao!seismo!rlgvax!cvl!umcp-cs!eneevax!chris
  3353. #
  3354. # @(#)rmgroup.sh    (U of Maryland) FLB 28-Jun-1983
  3355. #            Bug fixes 5 June 1984 Chris Torek
  3356. #
  3357. # Delete a newsgroup
  3358.  
  3359. lib=/usr/new/lib/news
  3360. spool=/usr/spool/news
  3361.  
  3362. group=$*
  3363.  
  3364. for group
  3365. do
  3366.     qgrp="`echo $group | sed 's/\./\\\./g'`"
  3367.     if
  3368.         grep -s "^$qgrp [0-9][0-9][0-9][0-9][0-9]$" $lib/active
  3369.     then
  3370.         ed - $lib/active << xxxFOOxxx
  3371. /^$qgrp [0-9][0-9][0-9][0-9][0-9]$/d
  3372. w
  3373. q
  3374. xxxFOOxxx
  3375.     else
  3376.         echo "$0: $group: no such active line" 2>&1
  3377.     fi
  3378.  
  3379.     dir=$spool/"`echo $group | sed 's/\./\//g'`"
  3380.     if
  3381.         [ -d "$dir" ]
  3382.     then
  3383.         /bin/rm -fr "$dir"
  3384.     else
  3385.         echo "$0: $dir: no spool directory" 2>&1
  3386.     fi
  3387. done
  3388. exit 0
  3389. !Funky!Stuff!
  3390.  
  3391. ::::::::::::::
  3392. shells/5
  3393. ::::::::::::::
  3394. Date: Thu, 20 Sep 84 01:20:29 pdt
  3395. From: turtlevax!ken (Ken Turkowski)
  3396. To: resonex!nancy
  3397. Subject: Handy new uucp utility: uuque
  3398.  
  3399. cat << EOF
  3400. I just completed a new useful uucp utility which lets you know what kind
  3401. of uucp work is in progress.  While uusnap just tells you the number of
  3402. files to be processed, uuque tells you exactly what kind of work is to
  3403. be performed.  I've only tried it on three kinds of work, namely mail,
  3404. news, and standard uucp transfers.  Give it a try, and see if it breaks
  3405. on any new types of uucp work.
  3406.                 Ken
  3407. P.S. This really should be a C program.
  3408. EOF
  3409. echo x - uuque
  3410. cat >uuque <<'!Funky!Stuff!'
  3411. #! /bin/sh
  3412. # uusnap
  3413. cd /usr/spool/uucp
  3414. LUUNAME=`uuname -l`
  3415.  
  3416. # Check for outgoing work
  3417. for cmdfile in C./*
  3418. do
  3419.     test -f $cmdfile || continue
  3420.     othersys=`expr $cmdfile : 'C./C.\(.*\).....'`
  3421.     cmd=
  3422.     dfile=
  3423.     xfile=
  3424.     ufile=
  3425.     cat $cmdfile | {
  3426.     while read cmd arg1 arg2 arg3 extra
  3427.     do
  3428.         case $cmd in
  3429.         S) ;;
  3430.         *)  echo Bad cmd in $cmdfile: $cmd $arg1 $arg2 $arg3 $extra
  3431.             exit ;;
  3432.         esac
  3433.         case $arg1 in
  3434.         D.${LUUNAME}X????)    # Remote execute file
  3435.             xfile=$arg1
  3436.             ;;
  3437.         D.${LUUNAME}?????)    # Data file ref'd by the execute file
  3438.             dfile=$arg1
  3439.             ;;
  3440.         *)            # Just a uucp
  3441.             dfile=$arg1
  3442.             ufile=$arg2
  3443.             from=$arg3
  3444.             ;;
  3445.         esac
  3446.     done
  3447.     case $xfile in
  3448.         "")            # uucp transfer
  3449.         echo `wc -c < $dfile`\     uucp $dfile $othersys!$ufile \($from\)
  3450.         ;;
  3451.         *)            # complex transfer
  3452.         cat D.${LUUNAME}X/$xfile | {
  3453.             while read xcmd arg1 arg2 extra
  3454.             do
  3455.             case $xcmd in
  3456.                 U)
  3457.                 from=$arg2!$arg1
  3458.                 ;;
  3459.                 F)
  3460.                 ;;
  3461.                 I)
  3462.                 ;;
  3463.                 C)
  3464.                 echo `wc -c < D.${LUUNAME}/$dfile`\     $arg1 $othersys!$arg2 \($from\)
  3465.                 ;;
  3466.                 *)
  3467.                 echo Unknown xcmd in $xfile: $xcmd $arg1 $arg2
  3468.                 exit
  3469.                 ;;
  3470.             esac
  3471.             done
  3472.         }
  3473.         ;;
  3474.     esac
  3475.     }
  3476. done
  3477.  
  3478. # Check for incoming work
  3479. for cmdfile in X./*
  3480. do
  3481.     test -f $cmdfile || continue
  3482.     othersys=`expr $cmdfile : 'X./X.\(.*\).....'`
  3483.     cat $cmdfile | {
  3484.     while read cmd arg1 arg2 extra
  3485.     do
  3486.         case $cmd in
  3487.         U)
  3488.             from=$arg2!$arg1
  3489.             ;;
  3490.         Z)
  3491.             ;;
  3492.         F)
  3493.             if test -f D./$arg1
  3494.             then
  3495.             dfile=D./$arg1
  3496.             elif test -f D./$arg2
  3497.             then
  3498.             dfile=D./$arg2
  3499.             else
  3500.             continue 2
  3501.             fi
  3502.             ;;
  3503.         C)
  3504.             xcmd=$arg1
  3505.             ;;
  3506.         *)  echo Bad cmd in $cmdfile: $cmd $arg1 $arg2 $extra
  3507.             exit ;;
  3508.         esac
  3509.     done
  3510.     echo `wc -c < $dfile`\     $xcmd $dfile \($from\)
  3511.     }
  3512. done
  3513. !Funky!Stuff!
  3514.  
  3515. ::::::::::::::
  3516. shells/6
  3517. ::::::::::::::
  3518. Date: Sat, 22 Sep 84 01:22:39 pdt
  3519. From: turtlevax!ken (Ken Turkowski)
  3520. To: resonex!nancy
  3521. Subject: Re:  uuque 
  3522.  
  3523. I've updated uuque to the point where it should probably instead be called
  3524. uusnoop.  Of course, it's not that interesting unless there are others on
  3525. your system that use uucp and net mail.
  3526.  
  3527.             Ken
  3528.  
  3529. echo x - uuque
  3530. cat >uuque <<'!Funky!Stuff!'
  3531. #! /bin/sh
  3532. # The user must have access to the /usr/spool/uucp/* directories and files.
  3533. # This can be easily done by making certain users members of the daemon
  3534. # and/or uucp groups, or by becoming super-user.
  3535. # uusnap
  3536. cd /usr/spool/uucp
  3537. LUUNAME=`uuname -l`
  3538.  
  3539. # Check for outgoing work
  3540. for cmdfile in C./*
  3541. do
  3542.     test -f $cmdfile || continue
  3543.     othersys=`expr $cmdfile : 'C./C.\(.*\).....'`
  3544.     cmd=
  3545.     dfile=
  3546.     xfile=
  3547.     ufile=
  3548.     cat $cmdfile | {
  3549.     while read cmd arg1 arg2 arg3 extra
  3550.     do
  3551.         case $cmd in
  3552.         S)                # uucp send
  3553.             case $arg1 in
  3554.             D.${LUUNAME}X????)    # Remote execute file
  3555.                 xfile=$arg1
  3556.                 ;;
  3557.             D.${LUUNAME}?????)    # Data file ref'd by xfile
  3558.                 dfile=D.${LUUNAME}/$arg1
  3559.                 ;;
  3560.             *)        # Just a uucp -- no intertpretation
  3561.                 echo `wc -c < $arg1`\     uucp $arg1 $othersys!$arg2 \($arg3\)
  3562.                 ;;
  3563.             esac
  3564.             ;;
  3565.         R)        # uucp receive
  3566.             echo '    ' uucp $othersys!$arg1 $arg2 \($arg3\)
  3567.             ;;
  3568.         *)  echo Bad cmd in $cmdfile: $cmd $arg1 $arg2 $arg3 $extra
  3569.             continue ;;
  3570.         esac
  3571.     done
  3572.     case $xfile in
  3573.         "")            # uucp transfer
  3574.         continue
  3575.         ;;
  3576.     esac
  3577.     cat D.${LUUNAME}X/$xfile | {    # complex transfer -- interpret xfile
  3578.         while read xcmd arg1 arg2 extra
  3579.         do
  3580.         case $xcmd in
  3581.             U)
  3582.             from=$arg2!$arg1
  3583.             ;;
  3584.             F)
  3585.             ;;
  3586.             I)
  3587.             ;;
  3588.             Z)
  3589.             ;;
  3590.             C)
  3591.             case $arg1 in
  3592.                 rmail)
  3593.                 from=`head -1 $dfile | ( read arg1 arg2 extra; echo $arg2 )`
  3594.                 echo `wc -c < $dfile`\     $arg1 $othersys!$arg2 \($from\)
  3595.                 echo -n '     '
  3596.                 grep '^Subject:' $dfile || echo ''
  3597.                 ;;
  3598.                 rnews)
  3599.                 echo `wc -c < $dfile`\     $arg1 $othersys  \($from\)
  3600.                 echo -n '     '
  3601.                 grep '^Newsgroups:' $dfile
  3602.                 echo -n '     '
  3603.                 grep '^Subject:' $dfile
  3604.                 ;;
  3605.                 *)
  3606.                 echo `wc -c < $dfile`\     $arg1 $arg2 $extra [$othersys $dfile] \($from\)
  3607.                 ;;
  3608.             esac
  3609.             ;;
  3610.             *)
  3611.             echo Unknown xcmd in $xfile: $xcmd $arg1 $arg2
  3612.             exit
  3613.             ;;
  3614.         esac
  3615.         done
  3616.     }
  3617.     }
  3618. done
  3619.  
  3620. # Check for incoming work
  3621. for cmdfile in X./*
  3622. do
  3623.     test -f $cmdfile || continue
  3624.     othersys=`expr $cmdfile : 'X./X.\(.*\).....'`
  3625.     comment=
  3626.     cat $cmdfile | {
  3627.     while read cmd arg1 arg2 extra
  3628.     do
  3629.         case $cmd in
  3630.         U)
  3631.             from=$arg2!$arg1
  3632.             ;;
  3633.         Z)
  3634.             ;;
  3635.         I)
  3636.             ;;
  3637.         F)
  3638.             if test -f D./$arg1
  3639.             then
  3640.             dfile=D./$arg1
  3641.             elif test -f XTMP/$arg2
  3642.             then
  3643.             dfile=XTMP/$arg2
  3644.             comment="(EXECUTING)"
  3645.             else
  3646.             continue 2
  3647.             fi
  3648.             ;;
  3649.         C)
  3650.             xcmd=$arg1
  3651.             xargs="$arg2 $extra"
  3652.             case $arg1 in
  3653.             rmail)
  3654.                 from=$othersys!`head -1 $dfile | ( read arg1 arg2 extra; echo $arg2 )`
  3655.                 echo -n '     '
  3656.                 grep '^Subject:' $dfile || echo ''
  3657.                 ;;
  3658.             esac
  3659.             ;;
  3660.         *)  echo Bad cmd in $cmdfile: $cmd $arg1 $arg2 $extra
  3661.             continue ;;
  3662.         esac
  3663.     done
  3664.     echo `wc -c < $dfile`\     $xcmd $xargs $comment \($from\)
  3665.     }
  3666. done
  3667. !Funky!Stuff!
  3668.  
  3669.  
  3670.  
  3671. From: Nancy Blachman <decvax!decwrl!sun!idi!resonex!nancy@Ucb-Vax.ARPA>
  3672. To: net.unix, net.unix-wizards, net.sources
  3673. Subject: Actual tricks, shells, csh aliases and the like, 3 of 3
  3674. Date: 16 Oct 84 21:24:32 GMT
  3675. Organization: Resonex Inc., Sunnyvale, CA
  3676.  
  3677. > [Know anybody with a GREAT .login or .cshrc?]
  3678.  
  3679. > I'm interested in collecting the little tricks, shell scripts, awk
  3680. > hacks, csh aliases, and such that people have built to make their daily
  3681. > life a little easier or more automatic.  Being a fairly new system
  3682. > administrator I don't have the big toolbox that years of messing around
  3683. > will leave you with.  If you have any hacks you're proud of (or that
  3684. > you aren't proud of, but which work anyway), and you're willing to make
  3685. > them public, mail them to me.  I'll collect, collate, shuffle, sort,
  3686. > munge, judge, select and discard them and then "summarize to the net".
  3687.  
  3688. This article centers on C programs and awk scripts I received in response to
  3689. my solicitation.  The first article concentrates on  aliases, and .cshrc and 
  3690. .login files.  The second article in this series focuses shell scripts. 
  3691.  
  3692. /\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\/
  3693. > Nancy Blachman {allegra,hplabs,ihnp4,sun}!resonex!nancy  (408)720 8600 x37 <
  3694. /\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\//\/
  3695.  
  3696. ::::::::::::::
  3697. programs/1
  3698. ::::::::::::::
  3699. Date: Sat, 15 Sep 84 02:45:08 pdt
  3700. From: <hplabs!intelca!t4test!chip>
  3701. To: intelca!hplabs!resonex!nancy
  3702. Subject: Re: Tricks, shell and awk scripts, csh aliases and the like
  3703.  
  3704. One thing I've put together is a bunch of scripts which give you a
  3705. status line on a DEC type terminal.  The thing is hardwired into VTxxx
  3706. type stuff rather than termcap for two reasons.  First, the cursor
  3707. save/restore function isn't part of termcap.  Secondly, the set
  3708. scrolling region is part of termcap, but it is for VT100 type
  3709. terminals.  Since we only have DEC terminals, it doesn't hurt us too
  3710. much.
  3711.  
  3712. Some history:  I used to like to display my current working directory
  3713. on my prompt line.  Later I wanted my terminal line there too.  (That
  3714. was in case a terminal I was on locked up, I could quickly tell what
  3715. terminal to kill.)  Later, when I had four accounts on the machine I
  3716. thought it would be nice to display my login name in my prompt.  The
  3717. straw which broke the camel's back was that we bought another VAX, and
  3718. I wanted to be able to see which machine I was logged on.  As you might
  3719. imagine, my prompt now extended about 60 columns across the screen.  My
  3720. answer was to take everything out of my prompt except the history
  3721. number and stick it at a status line at the bottom of my screen.
  3722.  
  3723. Below is a shar archive of the status line files.  You do a `source
  3724. stat.init' to get stuff initialized.  Then `son' and `soff' (which are
  3725. aliased to source the two other scripts) turn the status line on and
  3726. off.  These also define a bunch of aliases which help you work with
  3727. programs which don't like the status line.  So, I put a `source
  3728. /usr/public/stat.init' followed by a `son' in my `.login'.  (I don't
  3729. turn it on with my `.cshrc', my shell escapes would then get awfully
  3730. sloooooow.)
  3731.  
  3732. Also, you would need to add `vt100s' and `vt131s' to /etc/termcap.
  3733. This is to keep screen stuff (e.g. more, vi, etc.) happy if you run
  3734. them with the status line on.  This is what I use:
  3735.  
  3736.     ################      VT131 with 24th line reserved
  3737.     ################ d13s|vt131s|VT131S|vt-131s|pt131s|pt-131s|dec
  3738.     vt131s:\
  3739.         :li#23:tc=vt131
  3740.  
  3741. You will definately want to change the terminal identification stuff in
  3742. `stat.init'.  We run Eunice, so I use the `grep' to convert the Unix
  3743. style terminal line identification to a VMS terminal port.  
  3744.  
  3745. You can redefine `statin' in the `stat.init' script to put whatever you 
  3746. want on the status line.
  3747.  
  3748. Well...after all this, I hope you use VT1xx/VT2xx terminals.
  3749. Otherwise, this won't be real exciting.  (Unless you want to rewrite
  3750. `statterm.c')
  3751.  
  3752. ---
  3753.  
  3754. Chip Rosenthal, Intel/Santa Clara
  3755. { idi|intelca|icalqa|kremvax|qubix|ucscc } ! t4test ! { chip|news }
  3756.  
  3757. -----  cut here  -----------------------------------------------------------
  3758.  
  3759. : This is a shar archive.  Extract with sh, not csh.
  3760. : This archive contains the following files
  3761. :  Makefile stat.init stat.on stat.off statterm.c
  3762. : Total number of files: 5
  3763. echo x - Makefile [file 1 of 5]
  3764. sed 's/^|//' > Makefile << '!-FUNKY-STUFF-!'
  3765. |BIN=    /usr/public
  3766. |OBJS=    statterm
  3767. |
  3768. |IOBJS=    $(BIN)/statterm \
  3769. |    $(BIN)/stat.init \
  3770. |    $(BIN)/stat.on \
  3771. |    $(BIN)/stat.off
  3772. |
  3773. |SOURCES=Makefile \
  3774. |    stat.init \
  3775. |    stat.on \
  3776. |    stat.off \
  3777. |    statterm.c
  3778. |
  3779. |all:        $(OBJS)
  3780. |install:    $(IOBJS)
  3781. |shar:        stat.shar
  3782. |
  3783. |statterm:        statterm.c
  3784. |            cc -O statterm.c -o statterm
  3785. |
  3786. |$(BIN)/statterm:    statterm
  3787. |            cp $? $@
  3788. |            chmod 755 $@
  3789. |
  3790. |$(BIN)/stat.init:    stat.init
  3791. |            cp $? $@
  3792. |            chmod 755 $@
  3793. |
  3794. |$(BIN)/stat.on:        stat.on
  3795. |            cp $? $@
  3796. |            chmod 755 $@
  3797. |
  3798. |$(BIN)/stat.off:    stat.off
  3799. |            cp $? $@
  3800. |            chmod 755 $@
  3801. |
  3802. |stat.shar:        $(SOURCES)
  3803. |            shar $(SOURCES) > $@
  3804. |
  3805. |
  3806. !-FUNKY-STUFF-!
  3807. echo x - stat.init [file 2 of 5]
  3808. sed 's/^|//' > stat.init << '!-FUNKY-STUFF-!'
  3809. |alias a 'alias'
  3810. |
  3811. |# run statterm to verify terminal can do status line
  3812. |statterm
  3813. |if $status then
  3814. |    # status line not available on this terminal -- see if a
  3815. |    # baseterm is defined.  if so, then maybe $TERM is just
  3816. |    # messed up from earlier invocation of stat.init.
  3817. |    if $?baseterm then
  3818. |    # baseterm has been defined -- see if it will work
  3819. |    set temp=$TERM
  3820. |    setenv TERM $baseterm
  3821. |    statterm
  3822. |    if $status then
  3823. |        # nope -- baseterm will not work either
  3824. |        setenv TERM $temp
  3825. |        unset temp
  3826. |        goto failed
  3827. |    else
  3828. |        # yes -- baseterm will work
  3829. |        echo "changing terminal type from $temp to $TERM"
  3830. |        unset temp
  3831. |    endif
  3832. |    else
  3833. |    # no baseterm defined
  3834. |    goto failed
  3835. |    endif
  3836. |endif
  3837. |
  3838. |# status line will work with this terminal
  3839. |set baseterm=$TERM
  3840. |set ignoreeof
  3841. |
  3842. |# find user's system (ick)
  3843. |set system=`tr '[A-Z]' '[a-z]' < /usr/include/whoami`
  3844. |
  3845. |# find user's tty (ick ick ick)
  3846. |set temp=`tty`'$'
  3847. |set tty=`grep "$temp" /etc/dev.com | sed -e 's/^.*_\(.*\):.*/\1/'`
  3848. |unset temp
  3849. |
  3850. |# setup terminal strings
  3851. |set statin="`statterm in '${system}\\!${user}' '(${tty})'`" 
  3852. |set statout="`statterm out`" 
  3853. |set statoff="`statterm off`"
  3854. |echo -n "$statoff"
  3855. |
  3856. |# setup status commands
  3857. |#   son - turn on status mode
  3858. |#   soff - turn off status mode
  3859. |#   stat - draw status line
  3860. |#   nostat - erase status line
  3861. |#   termstat - setenv the terminal with status line protected
  3862. |#   termnorm - setenv the terminal without a status line
  3863. |#   ns - execute a command without a status line
  3864. |a son        'source /usr/public/stat.on'
  3865. |a soff        'source /usr/public/stat.off'
  3866. |a stat        ';'
  3867. |a nostat    ';'
  3868. |a termstat    ';'
  3869. |a termnorm    ';'
  3870. |a ns        'nostat ; termnorm ; \!* ; termstat ; stat ; echo ""'
  3871. |
  3872. |# alias the commands which maintain the status line
  3873. |a cd        'chdir \!* ; stat'
  3874. |a popd        'popd ; stat'
  3875. |a pushd        'pushd \!* ; stat'
  3876. |
  3877. |# alias the commands which (might) munch the status line
  3878. |a clear        'clear \!* ; stat'
  3879. |a mail        'mail \!* ; stat'
  3880. |a more        'more \!* ; stat'
  3881. |
  3882. |# alias the commands which should be done with the status line off
  3883. |a lo        'ns logout \!*'
  3884. |a LO        'ns logout \!*'
  3885. |a rn        'ns /local/bin/rn \!*'
  3886. |a pn        'ns /local/bin/pn \!*'
  3887. |a reply        'ns /local/bin/reply \!*'
  3888. |a sus        'ns suspend \!*'
  3889. |a vi        'ns /usr/ucb/vi \!*'
  3890. |a view        'ns /usr/ucb/view \!*'
  3891. |
  3892. |# that is all folks.  the status stuff is initialized
  3893. |# now all you need is a 'son' to turn it on
  3894. |exit 0
  3895. |
  3896. |failed:
  3897. |set baseterm=$TERM
  3898. |set temp="status line is not available for terminal type $TERM"
  3899. |echo $temp
  3900. |set statin=";"
  3901. |set statout=";"
  3902. |if     $?statoff == 0 then
  3903. |    set statoff=";"
  3904. |endif
  3905. |alias son echo "$temp"
  3906. |alias off 'source /usr/public/stat.off'
  3907. |unset temp
  3908. |soff
  3909. |exit 1
  3910. |
  3911. !-FUNKY-STUFF-!
  3912. echo x - stat.on [file 3 of 5]
  3913. sed 's/^|//' > stat.on << '!-FUNKY-STUFF-!'
  3914. |a stat        'echo -n "${statin}${cwd}${statout}"'
  3915. |a nostat    'echo -n "$statoff"'
  3916. |a termstat    'setenv TERM ${baseterm}s'
  3917. |a termnorm    'setenv TERM $baseterm'
  3918. |termstat
  3919. |stat
  3920. |echo ""
  3921. |set statmode
  3922. !-FUNKY-STUFF-!
  3923. echo x - stat.off [file 4 of 5]
  3924. sed 's/^|//' > stat.off << '!-FUNKY-STUFF-!'
  3925. |setenv TERM $baseterm
  3926. |echo -n "$statoff"
  3927. |unset statmode
  3928. |a termstat    ';'
  3929. |a termnorm    ';'
  3930. |a stat ';'
  3931. |a nostat ';'
  3932. !-FUNKY-STUFF-!
  3933. echo x - statterm.c [file 5 of 5]
  3934. sed 's/^|//' > statterm.c << '!-FUNKY-STUFF-!'
  3935. |/*
  3936. | * FILE:    statterm
  3937. | * VERSION:    V0.01 [preliminary]
  3938. | * DATE:    Mon Aug 27 16:43:13 PDT 1984
  3939. | * AUTHOR:      Chip Rosenthal/Intel Corporation
  3940. | * ADDRESS:    t4test!chip
  3941. | * PACKAGE:     'stat' terminal status line package
  3942. | * DESCRIPTION:    produces terminal escape sequences to implement status line
  3943. | * COMPILATION: cc -C statterm.c -o statterm
  3944. | *
  3945. | * REVISION NOTES:
  3946. | *
  3947. | * V1.00  Original program.
  3948. | *
  3949. | *
  3950. | * USAGE:
  3951. | *
  3952. | *    statterm 
  3953. | *        Verifies that the status line will work with current terminal.
  3954. | *        Returns a zero exit status if it will, nonzero if it won't.
  3955. | *
  3956. | *    statterm in [arg ...]
  3957. | *        Creates a string which opens up the status line.  Any
  3958. | *        arguments are placed at the beginning of the status
  3959. | *        line, and the cursor is left there.
  3960. | *
  3961. | *    statterm out
  3962. | *        Create string which closes the status line and returns
  3963. | *        cursor to position it was in prior to the last execution
  3964. | *        of a 'statterm in' string.
  3965. | *
  3966. | *    statterm off
  3967. | *        Creates a string which removes the status line.
  3968. | *
  3969. | *
  3970. | *    EXAMPLE:
  3971. | *        # this is a cshell script
  3972. | *        statterm 
  3973. | *        if $status then
  3974. | *            echo "status line will not work on this terminal"
  3975. | *            exit
  3976. | *        endif
  3977. | *        echo -n `statterm in $user`
  3978. | *        echo -n `pwd`
  3979. | *        echo `statterm out`
  3980. | *
  3981. | *
  3982. | * BUGS:       
  3983. | *
  3984. | *    This program is hardwired into the DEC VT100 terminal escape sequences.
  3985. | *    This is done because (unfortunately) 'termcap' doesn't offer a cursor
  3986. | *    position save/restore feature.
  3987. | *
  3988. | */
  3989. |
  3990. |#include <stdio.h>
  3991. |#define strmatch(A,B) (strcmp((A),(B))==0)
  3992. |
  3993. |/*
  3994. | * VT100 Terminal Escape Definitions -- all parameters are strings
  3995. | */
  3996. |#define ESC           putchar(27);              /* escape character          */
  3997. |#define CSI           ESC;putchar('[');         /* command string            */
  3998. |#define DECSC           ESC;putchar('7');         /* save cursor position      */
  3999. |#define DECRC           ESC;putchar('8');         /* restore cursor position   */
  4000. |#define CUP(L,C)      CSI;printf("%s;%sH",L,C); /* set cursor to line/col    */
  4001. |#define CUU1          CSI;printf("1A");        /* cursor up one line        */
  4002. |#define CUD1          CSI;printf("1B");        /* cursor down one line      */
  4003. |#define EL(MODE)      CSI;printf("%sK",MODE);   /* erase line                */
  4004. |#define ED(MODE)      CSI;printf("%sJ",MODE);   /* erase display             */
  4005. |#define DECSETBM(T,B) CSI;printf("%s;%sr",T,B); /* top/bot of scroll area    */
  4006. |/*
  4007. | * erasing modes:
  4008. | *   mode "0" - from cursor to end
  4009. | *   mode "1" - from beginning to cursor
  4010. | *   mode "2" - entire
  4011. | */
  4012. |
  4013. |
  4014. |main(argc,argv)
  4015. |int argc;
  4016. |char *argv[];
  4017. |{
  4018. |    char *term, *getenv();
  4019. |    int i;
  4020. |
  4021. |    if ( argc == 1 ) {
  4022. |    term=getenv("TERM");
  4023. |    if ( term == NULL )
  4024. |        exit(1);
  4025. |    if ( strmatch(term,"vt100") || strmatch(term,"vt131") )
  4026. |        exit(0);
  4027. |    else
  4028. |        exit(1);
  4029. |    }
  4030. |
  4031. |    if ( strmatch(argv[1],"in") ) {
  4032. |    /*
  4033. |     * Save cursor position, go to line 24, print out the arguments, and
  4034. |     * erase the rest of the status line.  Cursor remains in status line.
  4035. |     */
  4036. |    DECSC;
  4037. |    CUP("24","1");
  4038. |    for ( i=2 ; i<argc ; ++i ) 
  4039. |        printf("%s  ",argv[i]);
  4040. |    EL("0");
  4041. |    } else if ( strmatch(argv[1],"out") ) {
  4042. |    /*
  4043. |     * Protect status line from scrolling and restore cursor to location 
  4044. |     * prior to the last 'in' call.  Move the cursor up and down one line.
  4045. |     * This will keep it out of the status line area if it was there when 
  4046. |     * 'in' was called.
  4047. |     */
  4048. |    DECSETBM("1","23");
  4049. |    DECRC;
  4050. |    CUU1;
  4051. |    CUD1;
  4052. |    } else if ( strmatch(argv[1],"off") ) {
  4053. |    /*
  4054. |     * Save the current cursor position, unprotect the status line, erase 
  4055. |     * the status line, and restore the cursor position.
  4056. |     */
  4057. |    DECSC;
  4058. |    DECSETBM("1","24");
  4059. |    CUP("24","1");
  4060. |    EL("2");
  4061. |    DECRC;
  4062. |    } else
  4063. |    exit(1);
  4064. |
  4065. |}
  4066. !-FUNKY-STUFF-!
  4067. exit
  4068.  
  4069.  
  4070.  
  4071. ::::::::::::::
  4072. programs/2
  4073. ::::::::::::::
  4074. From: ihnp4!mcnc!malloy@ittral
  4075. Date: Thu, 13 Sep 84 21:35:18 edt
  4076. To: ihnp4!resonex!nancy@mcnc
  4077. Subject: Tricks
  4078.  
  4079. Well it depends upon what you mean. The big problem with having lots of aliases
  4080. and such is they start taking up large amounts of memory.  Take it from someone
  4081. who knows.  But here's a few things.  Some you no doubt already have, and most
  4082. are trivial, but it's better to be complete then to leave anything out.  You
  4083. can always just delete this.    == William P. Malloy (ittral!malloy}
  4084. ---------------------------------------------------------------------
  4085. In a .cshrc, a warning and a work around.  Apparently not known by most people
  4086. but obvious to people have who been around.  Our users keep bumping into it
  4087. about once a year like clock work.
  4088. # reason for setting variables only if a prompt already exists
  4089. # If it sets prompt in a non-interactive shell, for instance vi(1)
  4090. # firing up a sub-shell to expand shell meta-characters, the set prompt
  4091. # will stomp on alot of shell variables used for the expansion (like ~)
  4092. #
  4093. if ( $?prompt ) then
  4094.    set mail=/usr/spool/mail/malloy
  4095.    set prompt=\`
  4096.    set histchars=",;"
  4097. endif
  4098. Note the setting of histchars.  A little known, but for me much loved feature
  4099. of csh is the ability to change the history characters "!^" from their default
  4100. values.  The pair `,;' are easier to reach, don't require shifting, and don't
  4101. appear in mail paths.  Typing `mail mcnc\!ihnp4\!resonex\!nancy' gets to be
  4102. a pain every time you want to mail someone.
  4103.  
  4104. alias , 'redo \,* ~/.cmd ~/.cmd1 ; source ~/.cmd1 '
  4105.  
  4106. This little alias allows you to have command editing in the csh.  It's quite
  4107. useful, particularly when you've got a LONG painful command line.  The , is
  4108. just the history character and is ! for most people.  The command redo is a
  4109. simple C program.
  4110. --------------- redo.c  -------------------
  4111. #include <stdio.h>
  4112.  
  4113. /* redo -- outputs a command file (last arg )used to edit and 
  4114.    re-ex a command.  Next to last arg is dest file of the command. 
  4115.  
  4116.    NOTE: if you use a non-standard history character, i.e. not !
  4117.    then you must `setenv HISTCHARS $histchars' in your .login
  4118.    If you do not `set histchars=",;"' for instance then it will
  4119.    automagically default to !    -- 12/2/83 wpm
  4120.  
  4121.    First arg is the history ref . To use:
  4122.     alias , 'redo \,* ~/cmd ~/cmd1 ; source ~/cmd1 '
  4123.     , 25    to edit & re-execute ,25
  4124.     , , or ,  to edit & re-execute ,,
  4125.     , v     to edit & re-execute ,v ,etc. 
  4126.     
  4127. */
  4128.  
  4129. main(argc, argv)
  4130.    int argc;
  4131.    char *argv[];
  4132. {
  4133.    FILE *fp;
  4134.    char *t, *getenv();
  4135.  
  4136.    fp = fopen(argv[argc-1], "w");
  4137.    if ((t = getenv("HISTCHARS")) != NULL)
  4138.       t[1] = '\0';
  4139.    else
  4140.       t = "!";
  4141.    fprintf(fp, "echo \"%s", t);
  4142.    if ( (argc < 4) || (strcmp(argv[1], t) == 0) )
  4143.       fputs("-2", fp);
  4144.    else 
  4145.       fputs(argv[1], fp);
  4146.    fputs(":q\" >! ", fp);
  4147.    fputs(argv[argc-2], fp);
  4148.    putc('\n', fp);
  4149.    fputs("ex +open ", fp);
  4150.    fputs(argv[argc-2], fp);
  4151.    putc('\n', fp);
  4152.    fputs("/usr/local/typein2 < ", fp);
  4153.    fputs(argv[argc-2], fp);
  4154.    putc('\n', fp);
  4155.    fclose(fp);
  4156.    exit(0);
  4157. }
  4158. ------------------ (end of redo.c, begining of typein2.c) --------------------
  4159. #include <stdio.h>
  4160. #include <sgtty.h>
  4161.  
  4162. main(argc, argv)
  4163.     int argc;
  4164.     char **argv;
  4165. {
  4166.     register char *cp;
  4167.     struct sgttyb stb, stb2;
  4168.     int pendin = LPENDIN;
  4169.     int c,i,j;
  4170.     char buff[2];
  4171.     char buff2[256];
  4172.  
  4173.     i=0;
  4174.     while ((c=getchar()) != EOF) {
  4175.             buff2[i++]=c;
  4176.     }
  4177.     ioctl(2, TIOCGETP, &stb);
  4178.     stb2 = stb;
  4179.     stb.sg_flags &= ~ECHO;
  4180.     ioctl(2, TIOCSETN, &stb);
  4181.     for (j=0; j<i; j++) {
  4182.             ioctl(2, TIOCSTI, &buff2[j]);
  4183.             putchar(buff2[j]);
  4184.     }
  4185.     ioctl(2, TIOCSETN, &stb2);
  4186.     ioctl(2, TIOCLBIS, &pendin);
  4187.     exit(0);
  4188. }
  4189. ---------------------------- (end of typein2.c) ------------------------
  4190. A couple of oldies but still the simplest.  cd and back aliases.
  4191. alias back 'set back=$old; set old=$cwd; cd $back; unset back; dirs'
  4192. alias cd 'set old=$cwd; chdir \,*; set prompt = "< $cwd:t > "'
  4193.  
  4194. # this is a useful feature for vi
  4195. setenv EXINIT 'map #1 Gi/\<A\>"add@a|map #2 1G\!Gvispell|set ai sw=3'
  4196.  
  4197. You f2 key will run a file through the spell program, and put the words it
  4198. doesn't find in the dictionary at the bottom of the file.  Then typing f1 will
  4199. cause it to delete the last line in the file, and search for the string in
  4200. the rest of the file.
  4201. ------------------------------ (source for vispell) -------------
  4202. #! /bin/sh
  4203. #
  4204. tee /tmp/vis$$
  4205. echo SpellingList
  4206. spell /tmp/vis$$
  4207. rm /tmp/vis$$
  4208. ------------------------------- (end of vispell) ------------------
  4209. Stuff from our /.cshrc file.  psa lets you see what's going on in the system
  4210. and what people are doing.  Useful to see if people are hanging themselves.
  4211. alias psa 'ps axu | sed "/getty/d" | sort -f | more'
  4212.  
  4213. A simple alias to compile C programs (C adm.c expands to cc adm.c -o adm).
  4214. alias C 'cc \,:* -o \,^:r'
  4215.  
  4216. Useful to see what's going on in the system without those !@#$% bells.
  4217. alias moremsgs "tr -d '\07' </usr/adm/messages | more"
  4218.  
  4219. Like fg.
  4220. alias pj '%-'
  4221.  
  4222. A feature we use in our root .cshrc allowing indivual superusers to get their
  4223. own enviornment.  Useful if people want their own enviornment anywhere people
  4224. share an account.
  4225. if ( $user == "malloy" ) then
  4226.    source /t/malloy/.root
  4227. endif
  4228.  
  4229. --------------- (here's some things I picked up off the net) --------------
  4230. From: ittvax!decvax!harpo!utah-cs!seismo!hao!denelcor!udenva!koala!aburt
  4231. Date: Fri Aug 10 09:19:37 1984
  4232. Subject: Perversions of source -h and other csh aliases
  4233. Newsgroups: net.unix,net.unix-wizards,net.sources
  4234.  
  4235. For your enjoyment, here are some interesting lunch hour csh aliases that 
  4236. I've created.
  4237. {this is to slow, my version is a little faster}
  4238. My personal favorite is the "history editor" -- allows you to edit
  4239. you csh history.  The alias:
  4240.  
  4241.     alias hed history -h !* > $hed; vi + $hed; source -h $hed
  4242.  
  4243. will allow you to invoke 'vi' on your current history.  (If, for
  4244. instance, you typed in a long, tedious line and put in an extra space,
  4245. among other things.  The ^...^...  mechanism to remove it can be quite
  4246. tedious; 'hed's is easy.)  Before anyone starts flaming that vi is too
  4247. slow, history can do it (even if it's tough to type and you're prone to
  4248. more typos doing the history), etc. -- if you don't like it, don't use it.
  4249.  
  4250. Hed works particularly well if you move the command in question to the
  4251. end of the file; then '!!' will execute it after you ZZ from vi.  The
  4252. only drawback to this is that it trashes your current event numbers
  4253. (they get incremented during the source -h).  By using 'hed 10' you
  4254. only edit the last 10 entries in your history.  A temp file, which I
  4255. keep in $hed (set to /tmp/hed.$$ from my .login), is used each time for
  4256. the history.  Obvious changes to this are to use /tmp/hed.$$ straight
  4257. out and add "rm /tmp/hed.$$" to the end of the list.  If you don't like
  4258. waiting for the rm, and your /tmp doesn't get cleared out periodically,
  4259. put a # in front of the name to make it a disposable file.
  4260.  
  4261. This may be slower than the vi/emacs mode in the ksh I keep hearing about, but
  4262. it does give the functionality.
  4263.  
  4264. A slight modification to 'hed'...
  4265.  
  4266.     alias hedf history -h !-0:1 > !-0:2; vi + !-0:2; source -h !-0:2
  4267.  
  4268. allows you to specify a file to place the history into instead of a temp
  4269. file.
  4270.  
  4271. Another modification yields:
  4272.  
  4273.     alias heh echo \!* > $hed; vi + $hed; source -h $hed
  4274.  
  4275. Which lets you edit then add to your history a specific history sequence.
  4276. 'Heh' for History edit history.
  4277.  
  4278. By inserting a 'source \!-0:2' before the source -h in any of the
  4279. above has the effect of executing the commands AND placing them on the
  4280. history list (from which we may conclude that 'alias so source \!* ; 
  4281. source -h \!*' is a useful item: it sources a file then places each line
  4282. into your history).
  4283.  
  4284. On rare occasions you'll have to put extra quotes/escapes around things
  4285. when editing the temp file so it gets sourced right.  Particularly around
  4286. aliases with raw history substitutions in them (the \!* type of thing).
  4287. The easiest is to try it first; if it fails, edit it again.  After all,
  4288. two 'hed's are better than one...
  4289.  
  4290. Regarding the use of !-0:1 instead of !:1 for the first argument to the
  4291. current command -- At least one csh is known to accept the former but not
  4292. the latter.  (The same csh dumps core (therefore logging you out) on receipt
  4293. of the !# history selector.  This is version 1.0 of 4.2BSD csh on a Sun-2.
  4294. The 1.1 csh exhibits this behavior:
  4295.  
  4296.     echo a !#
  4297.     a echo a echo
  4298.  
  4299. adding an extra arg 0 to the end.  Is this common to other cshs out there?)
  4300.  
  4301. So, for those whose csh's allow !:1, use that where I have !-0:1, etc.
  4302.  
  4303. Another interesting perversion is an alias'd whereis:
  4304.  
  4305.     alias wheres ls -l \{'`echo $path | sed "s/ /,/g"`'\}/'`echo \!-0:1 | sed "s/^./[&]/"`'
  4306.  
  4307. It does an ls -l on every file (passed as arg 1) in any directory on
  4308. your current path.  (No aliases, though adding an if at the front
  4309. should do the trick.)  The idea is to turn your $path list into a comma
  4310. separates list, stick that between {}, and append / and arg 1 to that.
  4311. Alas, if the file doesn't exist in one of the directories, you get
  4312. errors from ls saying it doesn't exist in a given directory.  So, arg 1
  4313. is turned into a pattern, which is allowed to fail; the pattern is,
  4314. e.g., foo --> [f]oo.  So the second arg to ls only expands to the
  4315. existing files.
  4316. ---------------------------- (end of net article) ------------------------
  4317. --
  4318. Address: William P. Malloy, ITT Telecom, B & CC Engineering Group, Raleigh NC
  4319.      {ihnp4!mcnc, burl, ncsu, decvax!ittvax}!ittral!malloy
  4320.  
  4321.  
  4322. ::::::::::::::
  4323. awk/1
  4324. ::::::::::::::
  4325. Date:       Wed, 19 Sep 84 11:44:38 CST
  4326. From: David Chase <hplabs!ucbvax!rbbb@rice.ARPA>
  4327. Subject:    Re: Tricks, shell and awk scripts, csh aliases and the like
  4328. To: resonex!nancy@BERKELEY
  4329.  
  4330. Here is my favorite awk script.  It turns a list of csrc's from memory
  4331. errors on an 11/780 (with MS780C controller) into board and chip position
  4332. for certain Mostek memory boards.  This script saved me many headaches,
  4333. because the tables in the appendix of the technical manual were hard to read
  4334. and contained errors (errors that were noticed as deviations from a pattern
  4335. when entering this script).
  4336.  
  4337. #
  4338. # Incredible sleazy awk file to attack memory errors
  4339. # Included here is the local configuration, because some decoding
  4340. # is board specific
  4341. # 
  4342. BEGIN    {
  4343. # Boards understood by this program
  4344.  
  4345. #    mk4118 = mostek mk8016 fully populated with mk4116 chips (512k)
  4346.     known["mk4118"] = 1
  4347.  
  4348. #    mk4116 = mostek mk8016 half populated with mk4116 chips (256k)
  4349.     known["mk4116"] = 1
  4350.  
  4351. #    mk8016 = mostek mk8016 fully populated with mk4108 chips (256k)
  4352.     known["mk4108"] = 1
  4353.  
  4354. #    m8210 = DEC 256k board; don't know how to decode this guy (256k)
  4355.     known["m8210"] = 0
  4356.  
  4357. # To add different boards, (i.e., not conforming to this system)
  4358. # append to the "pos" map, and make "keys[<array><bank><new board>]"
  4359. # reference the appended chip addresses.
  4360.  
  4361. # Local configuration
  4362. # boards is indexed by slot number
  4363.     boards["0"] = "m8210"
  4364.     boards["1"] = "m8210"
  4365.     boards["2"] = "m8210"
  4366.     boards["3"] = "m8210"
  4367.     boards["4"] = "m8210"
  4368.     boards["5"] = "m8210"
  4369.     boards["6"] = "mk4116"
  4370.     boards["7"] = "mk4116"
  4371.     boards["8"] = "mk4116"
  4372.     boards["9"] = "mk4116"
  4373.     boards["a"] = "mk4116"
  4374.     boards["b"] = "mk4116"
  4375.     boards["c"] = "mk4118"
  4376.     boards["d"] = "mk4118"
  4377.     boards["e"] = "mk4118"
  4378.     boards["f"] = "mk4118"
  4379.     
  4380. #    bit in error for a given CRC calculation
  4381. #    bits are identified by "u" (upper), "l" (lower), and "c" (check)
  4382. #    folowed by the bit number.
  4383.  
  4384.       bit["01"] = "c0"
  4385.       bit["02"] = "c1"
  4386.     bit["04"] = "c2"
  4387.     bit["08"] = "c3"
  4388.     bit["10"] = "c4"
  4389.     bit["19"] = "l01"
  4390.     bit["1a"] = "l02"
  4391.     bit["1c"] = "l04"
  4392.     bit["1f"] = "l07"
  4393.     bit["20"] = "c5"
  4394.     bit["38"] = "l00"
  4395.     bit["3b"] = "l03"
  4396.     bit["3d"] = "l05"
  4397.     bit["3e"] = "l06"
  4398.     bit["40"] = "c6"
  4399.     bit["49"] = "l09"
  4400.     bit["4a"] = "l10"
  4401.     bit["4c"] = "l12"
  4402.     bit["4f"] = "l15"
  4403.     bit["51"] = "l17"
  4404.     bit["52"] = "l18"
  4405.     bit["54"] = "l20"
  4406.     bit["57"] = "l23"
  4407.     bit["58"] = "l24"
  4408.     bit["5b"] = "l27"
  4409.     bit["5d"] = "l29"
  4410.     bit["5e"] = "l30"
  4411.     bit["68"] = "l08"
  4412.     bit["6b"] = "l11"
  4413.     bit["6d"] = "l13"
  4414.     bit["6e"] = "l14"
  4415.     bit["70"] = "l16"
  4416.     bit["73"] = "l19"
  4417.     bit["75"] = "l21"
  4418.     bit["76"] = "l22"
  4419.     bit["79"] = "l25"
  4420.     bit["7a"] = "l26"
  4421.     bit["7c"] = "l28"
  4422.     bit["7e"] = "l31"
  4423.     bit["80"] = "c7"
  4424.     bit["89"] = "u01"
  4425.     bit["8a"] = "u02"
  4426.     bit["8c"] = "u04"
  4427.     bit["8f"] = "u07"
  4428.     bit["91"] = "u09"
  4429.     bit["92"] = "u10"
  4430.     bit["94"] = "u12"
  4431.     bit["97"] = "u15"
  4432.     bit["98"] = "u16"
  4433.     bit["9b"] = "u19"
  4434.     bit["9d"] = "u21"
  4435.     bit["9e"] = "u22"
  4436.     bit["a8"] = "u00"
  4437.     bit["ab"] = "u03"
  4438.     bit["ad"] = "u05"
  4439.     bit["ae"] = "u06"
  4440.     bit["b0"] = "u08"
  4441.     bit["b3"] = "u11"
  4442.     bit["b5"] = "u13"
  4443.     bit["b6"] = "u14"
  4444.     bit["b9"] = "u17"
  4445.     bit["ba"] = "u18"
  4446.     bit["bc"] = "u20"
  4447.     bit["bf"] = "u23"
  4448.     bit["c1"] = "u25"
  4449.     bit["c2"] = "u26"
  4450.     bit["c4"] = "u28"
  4451.     bit["c7"] = "u31"
  4452.     bit["e0"] = "u24"
  4453.     bit["e3"] = "u27"
  4454.     bit["e5"] = "u29"
  4455.     bit["e6"] = "u30"
  4456.  
  4457. #    binary decoding of hex digits
  4458.  
  4459.     hex["0"]  = "0000"
  4460.     hex["1"]  = "0001"
  4461.     hex["2"]  = "0010"
  4462.     hex["3"]  = "0011"
  4463.     hex["4"]  = "0100"
  4464.     hex["5"]  = "0101"
  4465.     hex["6"]  = "0110"
  4466.     hex["7"]  = "0111"
  4467.     hex["8"]  = "1000"
  4468.     hex["9"]  = "1001"
  4469.     hex["a"]  = "1010"
  4470.     hex["b"]  = "1011"
  4471.     hex["c"]  = "1100"
  4472.     hex["d"]  = "1101"
  4473.     hex["e"]  = "1110"
  4474.     hex["f"]  = "1111"
  4475.  
  4476. #    chip positions for a given bit, collected across all possible
  4477. #    boards.  Each group of 3 letters represents a position.
  4478. #    See keys for a better description.
  4479.  
  4480.     pos["u31"] =  "i01h01g01f01"
  4481.     pos["u30"] =  "e01d01c01b01"
  4482.     pos["u29"] =  "i02h02g02f02"
  4483.     pos["u28"] =  "e02d02c02b02"
  4484.     pos["u27"] =  "i03h03g03f03"
  4485.     pos["u26"] =  "e03d03c03b03"
  4486.     pos["u25"] =  "i04h04g04f04"
  4487.     pos["u24"] =  "e04d04c04b04"
  4488.     pos["u23"] =  "a01a02a03a04"
  4489.     pos["u22"] =  "i05h05g05f05"
  4490.     pos["u21"] =  "e05d05c05b05"
  4491.     pos["u20"] =  "i06h06g06f06"
  4492.     pos["u19"] =  "e06d06c06b06"
  4493.     pos["u18"] =  "i07h07g07f07"
  4494.     pos["u17"] =  "e07d07c07b07"
  4495.     pos["u16"] =  "i08h08g08f08"
  4496.     pos["u15"] =  "e08d08c08b08"
  4497.     pos["u14"] =  "a05a06a07a08"
  4498.     pos["u13"] =  "i09h09g09f09"
  4499.     pos["u12"] =  "e09d09c09b09"
  4500.     pos["u11"] =  "i10h10g10f10"
  4501.     pos["u10"] =  "e10d10c10b10"
  4502.     pos["u09"] =  "i11h11g11f11"
  4503.     pos["u08"] =  "e11d11c11b11"
  4504.     pos["u07"] =  "i12h12g12f12"
  4505.     pos["u06"] =  "e12d12c12b12"
  4506.     pos["u05"] =  "a09a10a11a12"
  4507.     pos["u04"] =  "i13h13g13f13"
  4508.     pos["u03"] =  "e13d13c13b13"
  4509.     pos["u02"] =  "i14h14g14f14"
  4510.     pos["u01"] =  "e14d14c14b14"
  4511.     pos["u00"] =  "i15h15g15f15"
  4512.     pos["c7"] =   "e15d15c15b15"
  4513.     pos["c6"] =   "i16h16g16f16"
  4514.     pos["c5"] =   "e16d16c16b16"
  4515.     pos["c4"] =   "a13a14a15a16"
  4516.     pos["l31"] =  "i17h17g17f17"
  4517.     pos["l30"] =  "e17d17c17b17"
  4518.     pos["l29"] =  "i18h18g18f18"
  4519.     pos["l28"] =  "e18d18c18b18"
  4520.     pos["l27"] =  "i19h19g19f19"
  4521.     pos["l26"] =  "e19d19c19b19"
  4522.     pos["l25"] =  "i20h20g20f20"
  4523.     pos["l24"] =  "e20d20c20b20"
  4524.     pos["l23"] =  "a17a18a19a20"
  4525.     pos["l22"] =  "i21h21g21f21"
  4526.     pos["l21"] =  "e21d21c21b21"
  4527.     pos["l20"] =  "i22h22g22f22"
  4528.     pos["l19"] =  "e22d22c22b22"
  4529.     pos["l18"] =  "i23h23g23f23"
  4530.     pos["l17"] =  "e23d23c23b23"
  4531.     pos["l16"] =  "i24h24g24f24"
  4532.     pos["l15"] =  "e24d24c24b24"
  4533.     pos["l14"] =  "a21a22a23a24"
  4534.     pos["l13"] =  "i25h25g25f25"
  4535.     pos["l12"] =  "e25d25c25b25"
  4536.     pos["l11"] =  "i26h26g26f26"
  4537.     pos["l10"] =  "e26d26c26b26"
  4538.     pos["l09"] =  "i27h27g27f27"
  4539.     pos["l08"] =  "e27d27c27b27"
  4540.     pos["l07"] =  "i28h28g28f28"
  4541.     pos["l06"] =  "e28d28c28b28"
  4542.     pos["l05"] =  "a25a26a27a28"
  4543.     pos["l04"] =  "i29h29g29f29"
  4544.     pos["l03"] =  "e29d29c29b29"
  4545.     pos["l02"] =  "i30h30g30f30"
  4546.     pos["l01"] =  "e30d30c30b30"
  4547.     pos["l00"] =  "i31h31g31f31"
  4548.     pos["c3"] =   "e31d31c31b31"
  4549.     pos["c2"] =   "i32h32g32f32"
  4550.     pos["c1"] =   "e32d32c32b32"
  4551.     pos["c0"] =   "a29a30a31a32"
  4552.  
  4553. #    keys is indexed by <board #> <bank> <board type>
  4554. #    and yields an index into  a particular pos string
  4555. #    for example, board 0, bit 0 on an mk4118 board
  4556. #    gives a key of 4.  If the bit in error was c0, then
  4557. #    the chip in error is a32 (from the 4th group of 3
  4558. #    in pos["c0"].  To change this map, create new keys
  4559. #    and (if necessary) append to the pos entries.
  4560. #    If it could be more than one chip, then use a multiple
  4561. #    digit key (e.g, see the keys for the mk4108 board).
  4562.  
  4563.     keys["00mk4118"] = "4"
  4564.     keys["20mk4118"] = "4"
  4565.     keys["40mk4118"] = "4"
  4566.     keys["60mk4118"] = "4"
  4567.     keys["80mk4118"] = "4"
  4568.     keys["a0mk4118"] = "4"
  4569.     keys["c0mk4118"] = "4"
  4570.     keys["e0mk4118"] = "4"
  4571.     keys["01mk4118"] = "2"
  4572.     keys["21mk4118"] = "2"
  4573.     keys["41mk4118"] = "2"
  4574.     keys["61mk4118"] = "2"
  4575.     keys["81mk4118"] = "2"
  4576.     keys["a1mk4118"] = "2"
  4577.     keys["c1mk4118"] = "2"
  4578.     keys["e1mk4118"] = "2"
  4579.     keys["10mk4118"] = "3"
  4580.     keys["30mk4118"] = "3"
  4581.     keys["50mk4118"] = "3"
  4582.     keys["70mk4118"] = "3"
  4583.     keys["90mk4118"] = "3"
  4584.     keys["b0mk4118"] = "3"
  4585.     keys["d0mk4118"] = "3"
  4586.     keys["f0mk4118"] = "3"
  4587.     keys["11mk4118"] = "1"
  4588.     keys["31mk4118"] = "1"
  4589.     keys["51mk4118"] = "1"
  4590.     keys["71mk4118"] = "1"
  4591.     keys["91mk4118"] = "1"
  4592.     keys["b1mk4118"] = "1"
  4593.     keys["d1mk4118"] = "1"
  4594.     keys["f1mk4118"] = "1"
  4595.      
  4596.     keys["00mk4116"] = "4"
  4597.     keys["20mk4116"] = "4"
  4598.     keys["40mk4116"] = "4"
  4599.     keys["60mk4116"] = "4"
  4600.     keys["80mk4116"] = "4"
  4601.     keys["a0mk4116"] = "4"
  4602.     keys["c0mk4116"] = "4"
  4603.     keys["e0mk4116"] = "4"
  4604.     keys["01mk4116"] = "2"
  4605.     keys["21mk4116"] = "2"
  4606.     keys["41mk4116"] = "2"
  4607.     keys["61mk4116"] = "2"
  4608.     keys["81mk4116"] = "2"
  4609.     keys["a1mk4116"] = "2"
  4610.     keys["c1mk4116"] = "2"
  4611.     keys["e1mk4116"] = "2"
  4612.     keys["10mk4116"] = "4"
  4613.     keys["30mk4116"] = "4"
  4614.     keys["50mk4116"] = "4"
  4615.     keys["70mk4116"] = "4"
  4616.     keys["90mk4116"] = "4"
  4617.     keys["b0mk4116"] = "4"
  4618.     keys["d0mk4116"] = "4"
  4619.     keys["f0mk4116"] = "4"
  4620.     keys["11mk4116"] = "2"
  4621.     keys["31mk4116"] = "2"
  4622.     keys["51mk4116"] = "2"
  4623.     keys["71mk4116"] = "2"
  4624.     keys["91mk4116"] = "2"
  4625.     keys["b1mk4116"] = "2"
  4626.     keys["d1mk4116"] = "2"
  4627.     keys["f1mk4116"] = "2"
  4628.      
  4629.     keys["00mk4108"] = "34"
  4630.     keys["20mk4108"] = "34"
  4631.     keys["40mk4108"] = "34"
  4632.     keys["60mk4108"] = "34"
  4633.     keys["80mk4108"] = "34"
  4634.     keys["a0mk4108"] = "34"
  4635.     keys["c0mk4108"] = "34"
  4636.     keys["e0mk4108"] = "34"
  4637.     keys["01mk4108"] = "12"
  4638.     keys["21mk4108"] = "12"
  4639.     keys["41mk4108"] = "12"
  4640.     keys["61mk4108"] = "12"
  4641.     keys["81mk4108"] = "12"
  4642.     keys["a1mk4108"] = "12"
  4643.     keys["c1mk4108"] = "12"
  4644.     keys["e1mk4108"] = "12"
  4645.     keys["10mk4108"] = "34"
  4646.     keys["30mk4108"] = "34"
  4647.     keys["50mk4108"] = "34"
  4648.     keys["70mk4108"] = "34"
  4649.     keys["90mk4108"] = "34"
  4650.     keys["b0mk4108"] = "34"
  4651.     keys["d0mk4108"] = "34"
  4652.     keys["f0mk4108"] = "34"
  4653.     keys["11mk4108"] = "12"
  4654.     keys["31mk4108"] = "12"
  4655.     keys["51mk4108"] = "12"
  4656.     keys["71mk4108"] = "12"
  4657.     keys["91mk4108"] = "12"
  4658.     keys["b1mk4108"] = "12"
  4659.     keys["d1mk4108"] = "12"
  4660.     keys["f1mk4108"] = "12"
  4661.     }
  4662.  
  4663.     {csrc     = $1
  4664.     syndrome = substr (csrc,7,2)
  4665.     board    = substr (csrc,2,1)
  4666.     boardtype = boards[board]
  4667.     bank     = substr (hex [substr (csrc,3,1)],1,1)
  4668.     chips    = bit[syndrome]
  4669.     if (known[boardtype])
  4670.     {  where     = pos[chips]
  4671.        key     = keys[board bank boardtype]
  4672.        sbegin   = 3 * (substr(key,1,1) - 1) + 1
  4673.        thechip  = substr(where,sbegin,3)
  4674.        if (length(key) > 1) 
  4675.        {   sbegin   = 3 * (substr(key,2,1) - 1) + 1
  4676.            thechip  = thechip " and/or " substr(where,sbegin,3)
  4677.        }
  4678. #       printf "\n"
  4679. #       print "csrc =      "    csrc
  4680. #       print "syndrome =  "    syndrome
  4681. #       print "board =     "    board
  4682. #       print "bank =      "    bank
  4683. #       print "chips =     "    chips
  4684. #       print "locations = "    where
  4685. #       print "boardtype = " boardtype
  4686. #       print "key =       " key
  4687. #       print "the chip is "    thechip
  4688.        errors[board "-" thechip]++;
  4689.     }
  4690.     else 
  4691.     {
  4692. #       printf "\n"
  4693. #       print "Board type " boardtype " is unknown"
  4694.        errors["unknown-unknown"]++;
  4695.     }
  4696. }
  4697.     
  4698. END { for (i in errors) {
  4699.     n = split(i,list,"-");
  4700.     printf "%d errors for board %s, chip %s\n",errors[i],list[1],list[2];
  4701.     }
  4702. }
  4703.  
  4704.