home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / me34src.zip / me3 / mutt / package / unix.mut < prev    next >
Lisp/Scheme  |  1995-01-14  |  870b  |  34 lines
  1. ;; Unix stuff that goes in osstuff.mco
  2. ;; C Durland    Public Domain
  3.  
  4. (defun chmod
  5. {
  6.   (string mod)
  7.  
  8.   (mod (ask "chmod " (file-name -1) " to: "))
  9.   (shell-command (concat "chmod "  mod " " (file-name -1)))
  10. })
  11.  
  12. (defun MAIN
  13. {
  14.   (if (or
  15.     (not (pgm-exists "version-query"))        ;; old ME
  16.     (not (version-query "display-driver" "X")))    ;; Not running X
  17.       ; set up the soft keys if the terminal type is known
  18.     (switch (getenv "TERM")
  19.       "xterm"    (load-code "xterm" FALSE)
  20.       "ansi"    (load-code "xterm" FALSE)
  21.       "aixterm"    (load-code "xterm" FALSE)
  22.       "2622"    (load-code "hpterm" FALSE)
  23.       "98547"    (load-code "hpterm" FALSE)
  24.       "98550"    (load-code "hpterm" FALSE)
  25.       default    ;; try some guessing games
  26.       {
  27.     (cond
  28.       (re-string 'vt' (getenv "TERM")) (load-code "xterm" FALSE)
  29.       (re-string 'hp' (getenv "TERM")) (load-code "hpterm" FALSE)
  30.     )
  31.       }
  32.     ))
  33. })
  34.