Path: utzoo!attcan!uunet!samsung!sol.ctr.columbia.edu!emory!mephisto!eedsp!holla
From: holla@eedsp.eedsp.gatech.edu (Craig Hollabaugh)
Newsgroups: comp.sys.mac.hypercard
Subject: problem with glues strtoext and exttostr
Keywords: xcmd hypercard glue strtoext exttostr
Message-ID: <769@eedsp.eedsp.gatech.edu>
Date: 2 Mar 90 16:01:22 GMT
Organization: DSP Lab, School of Electrical Engineering, Ga. Tech, Atlanta, GA  30332
Lines: 40


Here is a problem that I am having with glues strtoext and exttostr. I have
written the simplest code: param > str > ext > str > returnvalue. The 
returnvalue isn't even close to param one.

Can anyone help?


unit traceunit;
interface
	uses
		XCmdIntf, XCmdUtils;

	procedure main (paramptr: XCmdPtr);

implementation

	procedure trace (paramptr: XCmdPtr);
		var
			myext: Extended;
			str: Str255;
			mystr: str31;

	begin
		ZeroToPas(paramptr, paramptr^.params[1]^, str);

		myext := strtoext(paramptr, str);

		str := exttostr(paramptr, myext);

		paramPtr^.returnValue := PasToZero(paramptr, str);
	end;


	procedure main;
	begin
		trace(paramptr);
	end;

end.