home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / sys / mac / programm / 22181 < prev    next >
Encoding:
Text File  |  1993-01-25  |  2.4 KB  |  74 lines
  1. Newsgroups: comp.sys.mac.programmer
  2. Path: sparky!uunet!munnari.oz.au!uniwa!cujo!ncrpda.curtin.edu.au!rocky.curtin.edu.au!user
  3. From: peter@cujo.curtin.edu.au (Peter N Lewis)
  4. Subject: Re: Calling external code resources - how?
  5. Message-ID: <peter-260193110401@rocky.curtin.edu.au>
  6. Followup-To: comp.sys.mac.programmer
  7. Lines: 60
  8. Sender: news@ncrpda.curtin.edu.au
  9. Nntp-Posting-Host: ncrpda.curtin.edu.au
  10. Organization: NCRPDA, Curtin University
  11. References: <01050014.odph61@blanc.north.de> <1993Jan25.005216.12749@kth.se>
  12. Date: Tue, 26 Jan 1993 03:10:29 GMT
  13.  
  14. In article <1993Jan25.005216.12749@kth.se>, d88-jwa@dront.nada.kth.se (Jon
  15. Wtte) wrote:
  16. > 
  17. > In <01050014.odph61@blanc.north.de> jochen@blanc.north.de (Jochen Meyer) writes:
  18. > 
  19. > >Where can I find information on how to do this? The Segment Manager
  20. > >chapter of IM gives no clues on this. Anyone has got some sample code
  21. > >on this?
  22.  
  23. > Define an interface for the extensions, consisting of ONE
  24. > function that takes a lot of interesting parameters,
  25. > like a handle to some data and a command, and a handle to
  26. > put retusn data in, and returns an err code.
  27. > 
  28. > The just load in the resource, lock it, and call the dereferenced
  29. > resource as a function pointers with the right arguments.
  30.  
  31. If you want other people to be able to write externals in Pascal, give the
  32. function a Pascal interface.
  33.  
  34. Another good idea is to pass a single param block containg all the
  35. parmaeters, with a version parameter at the front, so if you decide to add
  36. more parameters later, you don't need to rewrite all the externals, you
  37. just bump the version number, and add the new parameters to the end.  An
  38. OSErr is often a good return result.
  39.  
  40. In Pascal:
  41.  
  42. type MyExternalParamBlock = record
  43.     version:longInt;
  44.     { other stuff }
  45.   end;
  46. function External(var pb:MyExternalParamBlock): OSErr;
  47.  
  48. [
  49. In C, something like this I think
  50. OSErr External(MyExternalParamBlock *pb)
  51. ]
  52.  
  53. Call it something like this:
  54.  
  55. function CallExternal(var pb:MyExternalParamBlock; proc:Ptr):OSErr;
  56. inline $205F, $4E90;
  57.  
  58. var h:handle;
  59.  
  60. h:=GetResource('Xtns',128);
  61. HLockHi(h);
  62. oe:=CallExternal(pb,h^);
  63. ReleaseResource(h)
  64.  
  65. I did something akin to this in the external tokens for Finger, the source
  66. of which should be on sumex or umich, as well as
  67. redback.cs.uwa.edu.au:/others/peterlewis.
  68.  
  69. Have fun,
  70.    Peter.
  71.  
  72. _______________________________________________________________________
  73. Peter N Lewis <peter@cujo.curtin.edu.au>             Ph: +61 9 368 2055
  74.