home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
m
/
me_cd25.zip
/
MUTT2.ZIP
/
UNIX.MUT
< prev
next >
Wrap
Lisp/Scheme
|
1992-11-09
|
614b
|
27 lines
;; Unix stuff that goes in osstuff.mco
;; C Durland Public Domain
(defun chmod
{
(string mod)
(mod (ask "chmod " (file-name -1) " to: "))
(shell-command (concat "chmod " mod " " (file-name -1)))
})
(defun MAIN
{
; set up the soft keys if the terminal type is known
(switch (getenv "TERM")
"xterm" (load "xterm")
"vt100" (load "xterm")
"2622" (load "hpterm")
"98547" (load "hpterm") ;; TopCat
"98550" (load "hpterm") ;; CatsEye
default ;; try some guessing games
{
(if (re-string 'hp' (getenv "TERM")) (load "hpterm"))
}
)
})