Path: utzoo!mnetor!uunet!oddjob!uwvax!puff!geraldn
From: geraldn@puff.cs.wisc.edu (Gerald Ngui ...Burp!)
Newsgroups: comp.sys.mac.programmer
Subject: referencing pointers to resources in Lightspeed Pascal
Message-ID: <1474@puff.cs.wisc.edu>
Date: 18 Mar 88 07:34:56 GMT
Reply-To: geraldn@puff.WISC.EDU (Gerald Ngui ...Burp!)
Distribution: comp.sys.mac.programmer
Organization: U of Wisconsin CS Dept
Lines: 34
Keywords: Lightspeed Pascal


Following is some source code that obtains the FKEY resource to
dump the screen to the printer. From the fkeyhandle,
I get a pointer(fkeyptr) to the FKEY resource that prints the screen.

Does anyone know of a way to reference the 
pointer to the resource in Lightspeed Pascal?
____________________________________________________________

fkeyhandle := GetResource('FKEY',4); 

if not(fkeyhandle = 0) then 
    fkeyptr = fkeyhandle^;	{dereference the handle}
else
  writeln('ERROR! Did not get the resource');

{ Thanks to Ephraim Vishniac @ think.com for the technique }
_____________________________________________________________


Gerald Ngui

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Gerald T. Ngui
University of Wisconsin, Madison

ARPA: geraldn@puff.cs.wisc.edu
      ngui@gumby.cs.wisc.edu
      ngui@daffy.cs.wisc.edu
UUCP: ...!{harvard,ihnp4,seismo,topaz}!uwvax!puff!gerald
      ...!{harvard,ihnp4,seismo,topaz}!uwvax!{gumby,daffy}!ngui
ICBM: 70 82 51 N    88 23 12 W  
CompuServe: 71620, 605
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::