home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR24 / CLISP.ZIP / CFGSUNUX.LSP < prev    next >
Lisp/Scheme  |  1993-09-12  |  2KB  |  44 lines
  1. ;;; ENGLISH: Site specific definitions, to be modified on installation
  2. ;;; DEUTSCH: Funktionen, die beim Transportieren zu ändern sind
  3. ;;; FRANCAIS: Fonctions dépendantes de l'installation
  4.  
  5. (in-package "LISP")
  6. (mapcar #'fmakunbound '(short-site-name long-site-name
  7.                         edit-file editor-tempfile))
  8.  
  9. (defun short-site-name () "Uni Karlsruhe")
  10. (defun long-site-name () "Mathematisches Institut II, Universität Karlsruhe, Englerstraße 2, D - 76131 Karlsruhe")
  11.  
  12. ;; ENGLISH: The name of the editor:
  13. ;; DEUTSCH: Der Name des Editors:
  14. ;; FRANCAIS: Nom de l'éditeur :
  15. (defparameter *editor* "vi")
  16.  
  17. ;; ENGLISH: (edit-file file) edits a file.
  18. ;; DEUTSCH: (edit-file file) editiert eine Datei.
  19. ;; FRANCAIS: (edit-file file) permet l'édition d'un fichier.
  20. (defun edit-file (file)
  21.   (shell
  22.     (format nil "~A ~A"
  23.                 (if (sys::getenv "WINDOW_PARENT") ; Suntools aktiv?
  24.                   "textedit"
  25.                   (or (sys::getenv "EDITOR") ; Benutzer-Präferenz?
  26.                       *editor*               ; sonst: Default-Editor
  27.                 ) )
  28.                 (truename file)
  29. ) ) )
  30.  
  31. ;; ENGLISH: The temporary file LISP creates for editing:
  32. ;; DEUTSCH: Das temporäre File, das LISP beim Editieren anlegt:
  33. ;; FRANCAIS: Fichier temporaire créé par LISP pour l'édition :
  34. (defun editor-tempfile ()
  35.   (merge-pathnames "lisptemp.lsp" (user-homedir-pathname))
  36. )
  37.  
  38. ;; ENGLISH: The list of directories where programs are searched on LOAD etc.:
  39. ;; DEUTSCH: Die Liste von Directories, in denen Programme bei LOAD etc. gesucht
  40. ;;          werden:
  41. ;; FRANCAIS: Liste de répertoires où chercher un fichier programme:
  42. (defparameter *load-paths* '(#"./" #"./**/" #"~/**/"))
  43.  
  44.