Path: utzoo!utgpu!jarvis.csri.toronto.edu!clyde.concordia.ca!uunet!aplcen!samsung!emory!mephisto!eedsp!holla
From: holla@eedsp.eedsp.gatech.edu (Craig Hollabaugh)
Newsgroups: comp.sys.mac.hypercard
Subject: ExtToStr/StrToExt XCMD programming question
Keywords: ExtToStr/StrToExt XCMD hypercard
Message-ID: <766@eedsp.eedsp.gatech.edu>
Date: 1 Mar 90 09:22:14 GMT
Organization: DSP Lab, School of Electrical Engineering, Ga. Tech, Atlanta, GA  30332
Lines: 39

I am having a terrible time with ExtToStr/StrToExt glues. here is my simple
script. convert zero > pas > ext > pas > zero. but it doesn't work, the        
result isn't even close to parameter 1.

can someone help me?


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.