home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / comp / lang / lisp / mcl / 1554 < prev    next >
Encoding:
Text File  |  1992-11-07  |  2.9 KB  |  67 lines
  1. Path: sparky!uunet!news.encore.com!csar!foxtail!sdd.hp.com!zaphod.mps.ohio-state.edu!saimiri.primate.wisc.edu!ames!data.nas.nasa.gov!taligent!apple!cambridge.apple.com!moon
  2. From: moon (David A. Moon)
  3. Newsgroups: comp.lang.lisp.mcl
  4. Subject: Re: Need help launching application in MCL (from a data file)
  5. Message-ID: <9211052145.AA28573@cambridge.apple.com>
  6. Date: 5 Nov 92 21:46:49 GMT
  7. Sender: info-mcl-request@cambridge.apple.com
  8. Lines: 53
  9. Approved: comp.lang.lisp.mcl@Cambridge.Apple.C0M
  10. Full-Name: David Moon
  11. Original-To: dmg@goldilocks.LCS.MIT.EDU (David Goodine)
  12. Original-Cc: info-mcl@cambridge.apple.com
  13.  
  14. > Date: Thu, 5 Nov 92 16:27:14 EST
  15. > From: dmg@goldilocks.LCS.MIT.EDU (David Goodine)
  16. > 
  17. > I'm trying to write some code that will take a pathname for an arbitrary
  18. > file and launch the application that created the file.  I've managed to
  19. > launch an application explicitly, but can't figure out how to get the
  20. > mapping from the CREATOR of the file to the application (which the
  21. > finder seems to do internally).
  22. > 
  23. > The inside-mac documentation here has been no help... it seems to happen
  24. > magically somewhere between the finder and the process manager...
  25.  
  26. It is documented, but only for system 7.  You want the PBDTGetAPPL trap.  Try 
  27. the following:
  28.  
  29. ;;; -*- Mode: Lisp; Package: CCL -*-
  30.  
  31. (in-package CCL)
  32.  
  33. ;;; A handy subroutine, only works in system 7
  34. ;;; Returns the pathname of the application or nil if not found on any volume
  35. ;;; Several undocumented errors can occur, I hope I found them all
  36. (defun application-pathname (signature)
  37.   (rlet ((pb :dtpbrec)
  38.          (iopb :hparamblockrec))
  39.     (%stack-block ((name 256)) 
  40.       (setf (rref iopb :hparamblockrec.ioCompletion) (%null-ptr)
  41.             (rref iopb :hparamblockrec.ioNamePtr) name)
  42.       (loop for volume-index from 1 do
  43.         (setf (rref iopb :hparamblockrec.ioVolIndex) volume-index
  44.               (rref iopb :hparamblockrec.ioVRefNum) 0)
  45.         (let ((err (#_PBHGetVInfo iopb)))
  46.           (unless (zerop err)
  47.             (if (= err #$nsvErr)
  48.               (return-from application-pathname nil)
  49.               (error "_PBHGetVInfo error #~D" err))))
  50.         (setf (rref pb :dtpbrec.ioCompletion) (%null-ptr)
  51.               (rref pb :dtpbrec.ioNamePtr) name
  52.               (rref pb :dtpbrec.ioVRefNum)
  53.                (rref iopb :hparamblockrec.ioVRefNum))
  54.         (let ((err (#_PBDTGetPath pb)))
  55.           (unless (zerop err)
  56.             (unless (= err #$wrgVolTypErr)
  57.               (error "_PBDTGetPath error #~D" err))))
  58.         (setf (rref pb :dtpbrec.ioIndex) 0
  59.               (rref pb :dtpbrec.ioFileCreator) signature)
  60.         (let ((err (#_PBDTGetAPPL pb)))
  61.           (cond ((zerop err)
  62.                  (setf (rref iopb :hparamblockrec.ioDirID)
  63.                        (rref pb :dtpbrec.ioAPPLParID))
  64.                  (return-from application-pathname (%path-from-iopb iopb)))
  65.                 ((and (/= err #$afpItemNotFound) (/= err #$fnfErr))
  66.                  (error "_PBDTGetAPPL error #~D" err))))))))
  67.