home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / sys / mac / programm / 22094 < prev    next >
Encoding:
Text File  |  1993-01-24  |  1.9 KB  |  58 lines
  1. Newsgroups: comp.sys.mac.programmer
  2. Path: sparky!uunet!cs.utexas.edu!sun-barr!ames!data.nas.nasa.gov!taligent!kip-50.taligent.com!user
  3. From: keith@taligent.com (Keith Rollin)
  4. Subject: Re: Resources
  5. Message-ID: <keith-240193173900@kip-50.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: <rudolph.727824463@unixg.ubc.ca>
  10. Date: Mon, 25 Jan 1993 01:50:12 GMT
  11. Lines: 45
  12.  
  13. In article <rudolph.727824463@unixg.ubc.ca>, rudolph@unixg.ubc.ca
  14. (Christopher E Rudolph) wrote:
  15. > 
  16. > Can anyone tell me if there is an quick way of opening an applications
  17. > resource fork and then cycling through every resource in the application
  18. > so that I can display them in a list.
  19. > 
  20. > ie) simaler to what resource editors do
  21. > 
  22. > I basically want to know what methods are available to read off every
  23. > resource in an applications resource fork?
  24. > 
  25.  
  26. I can think of two ways. One is the right way, but I don't know if it meets
  27. your qualification of quick. The other way is definitely as quick as you'll
  28. get, but it is also definitely the wrong way.
  29.  
  30. The right way is to go back to Inside Mac IV and read the descriptions of
  31. the functions Get1IndType, Get1IndResource, Count1Types and
  32. Count1Resources. You would then write a function sort of like the
  33. following:
  34.  
  35. short numTypes, numResources, typeIndex, resIndex;
  36. ResType type;
  37. Handle resource;
  38.  
  39. numTypes = Count1Types();
  40. for (typeIndex = 1; numIndex <= numTypes; ++typeIndex)
  41. {
  42.     Get1IndType(&type, typeIndex);
  43.     numResources = Count1Resources(type);
  44.     for (resIndex = 1; resIndex <= resTypes; ++resIndex)
  45.     {
  46.         resource = Get1IndResource(type, resIndex);
  47.         MessWithResource(resource);
  48.     }
  49. }
  50.  
  51. I'm not going to tell you the wrong, fast way, but it too, amazingly, can
  52. be figured out by reading Inside Macintosh.
  53.  
  54. -----
  55. Keith Rollin
  56. Phantom Programmer
  57. Taligent, Inc.
  58.