home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / lisp / tools / ally20 / ally.lsp < prev    next >
Text File  |  1991-11-24  |  864b  |  25 lines
  1. ;ALLY NOTE: Remove the semicolon below to reinitialize mouse driver after ALLY.
  2. ;(setq XMouse T)
  3. (defun C:ALLY ()
  4. ;ALLY - A Lisp Analyzer        Copyright 1990, 1991 Steve Waskow
  5. ;  Version 2.0                      Wasco Technical Software
  6.    (setvar "cmdecho" 0)
  7.    (if XMouse
  8.       (command "script" "ALLYXM")
  9.       (progn (command "ALLY!") (C:ALLOAD)))
  10. )
  11. (defun C:ALLOAD (/ fh1 s1)
  12. ;ALLOAD - ALLY Lisp Loader     Copyright 1990, 1991 Steve Waskow
  13. ;  Version 2.0                      Wasco Technical Software
  14.    (setvar "cmdecho" 0)
  15.    (graphscr)
  16.    (if (setq fh1 (open "ALLY.SCR" "r"))
  17.       (progn
  18.          (setq s1 (read-line fh1))
  19.          (close fh1)
  20.          (initget "Yes No")
  21.          (if (/= "No" (getkword (strcat "Load file " (substr s1 7 (- (strlen s1) 8)) " ? <Y>: ")))
  22.             (command "script" "ALLY"))))
  23.    (princ)
  24. )
  25.