home *** CD-ROM | disk | FTP | other *** search
/ MacGames Sampler / PHT MacGames Bundle.iso / MacSource Folder / Samples from the CD / Editors / emacs / Emacs-1.14b1 / lisp / mac / Processes.el < prev    next >
Encoding:
Text File  |  1994-03-22  |  894 b   |  29 lines  |  [TEXT/EMAC]
  1. ;;;
  2. ;;; This file is part of a Macintosh port of GNU Emacs.
  3. ;;; Copyright (C) 1993, 1994 Marc Parmet.  All rights reserved.
  4. ;;;
  5. ;;; GNU Emacs is distributed in the hope that it will be useful,
  6. ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  7. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  8. ;;; GNU General Public License for more details.
  9. ;;;
  10.  
  11. (c:defstruct ProcessSerialNumber ((long highLongOfPSN)
  12.                                   (long lowLongOfPSN)))
  13.  
  14. (defconst kNoProcess 0)
  15. (defconst kSystemProcess 1)
  16. (defconst kCurrentProcess 2)
  17.  
  18. ; pascal OSErr SetFrontProcess(const ProcessSerialNumber *PSN)
  19. ;    = {0x3F3C,0x003B,0xA88F}; 
  20. (deftrap SetFrontProcess ("3f3c" "003b" "a88f")
  21.   ((PSN address))
  22.   short)
  23.  
  24. ; pascal OSErr GetCurrentProcess(const ProcessSerialNumber *PSN)
  25. ;    = {0x3F3C,0x0037,0xA88F};
  26. (deftrap GetCurrentProcess ("3F3C" "0037" "A88F")
  27.   ((PSN address))
  28.   short)
  29.