home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / sys / mac / programm / 20451 < prev    next >
Encoding:
Text File  |  1992-12-30  |  1.5 KB  |  49 lines
  1. Newsgroups: comp.sys.mac.programmer
  2. Path: sparky!uunet!gatech!usenet.ins.cwru.edu!agate!ames!data.nas.nasa.gov!taligent!kip-28.taligent.com!user
  3. From: keith@taligent.com (Keith Rollin)
  4. Subject: Re: HELP! INIT and patching probs
  5. Message-ID: <keith-301292142544@kip-28.taligent.com>
  6. Followup-To: comp.sys.mac.programmer
  7. Sender: usenet@taligent.com (More Bytes Than You Can Read)
  8. Organization: Taligent
  9. References: <C03AHq.9LF@news.cso.uiuc.edu>
  10. Date: Wed, 30 Dec 1992 22:33:54 GMT
  11. Lines: 36
  12.  
  13. In article <C03AHq.9LF@news.cso.uiuc.edu>, cole@alexia.lis.uiuc.edu (Sandra
  14. Stewart-Cole) wrote:
  15. > 
  16. > Is there any DOCUMENTED and SUPPORTED way to
  17. > get enough info about a file solely from the fact that it is the current 
  18. > Resource file that I can then regain a path to it after I have been cut loose 
  19. > from it  WITHOUT relying on System 7 features? (i.e. get the info in the INIT,
  20. > and store it for later use from a global trap patch)
  21. >
  22.  
  23. Execute this at INIT time:
  24.  
  25.     FSSpec me;
  26.     OSErr err;
  27.     FCBPBRec        pb;
  28.  
  29.     pb.ioCompletion = nil;
  30.     pb.ioNamePtr = me.name;
  31.     pb.ioVRefNum = 0;
  32.     pb.ioRefNum = CurResFile();
  33.     pb.ioFCBIndx = 0;
  34.  
  35.     err = PBGetFCBInfoSync(&pb);
  36.  
  37.     me.vRefNum = pb.ioFCBVRefNum;
  38.     me.parID = pb.ioFCBParID;
  39.  
  40. I usually use THINK C, which makes the storage of the results in a global
  41. variable really simple. If you use MPW, then you can use the techniques
  42. shown in Technote #256 (OK, fine, so it has a new name, now) or "develop
  43. #12" to implement global variables. Or use a little assembly.
  44.  
  45. -----
  46. Keith Rollin
  47. Phantom Programmer
  48. Taligent, Inc.
  49.