Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!uwm.edu!gem.mps.ohio-state.edu!tut.cis.ohio-state.edu!ucsd!ogccse!orstcs!jacobs.CS.ORST.EDU!borcelf
From: borcelf@jacobs.CS.ORST.EDU (Fernando Borcel)
Newsgroups: comp.sys.mac.programmer
Subject: Re: File manager's "Newline" mode
Message-ID: <12615@orstcs.CS.ORST.EDU>
Date: 25 Sep 89 21:09:44 GMT
References: <12604@orstcs.CS.ORST.EDU> <31506@ucbvax.BERKELEY.EDU>
Sender: usenet@orstcs.CS.ORST.EDU
Reply-To: borcelf@jacobs.CS.ORST.EDU.UUCP (Fernando Borcel)
Distribution: usa
Organization: Oregon State University - CS - Corvallis Oregon
Lines: 43

I posted an article a couple of days ago, referred to the File Manager's
New Line mode.  I got a couple of answers, telling me to set the high byte in
ioPosMode to the NewLine character.  I did, but it seem to make no difference
at all!  Here's a chunk of the little prototype code I wrote to see if it
worked or not...  Here it goes...

 
 var
  MiscFile: integer;
  error: OSErr;
  paramBlock: ParamBlockRec;
  stream: streamType;
  filename: str255;

begin
 filename := ':MiscFile';
 with ParamBlock do
  begin
   ioNameptr := @filename;
   ioPermssn := fsRdPerm;
   ioVRefNum := 0;
   ioMisc := nil;
   ioBuffer := @stream;
   ioReqCount := 255;
   ioPosMode := $0d00;		{High byte = }
   ioPosOffset := 0;
  end;

 error := PBOpen(@ParamBlock, false);

 repeat
  error := PBRead(@paramBlock, false);
  writeln(Text2Str(stream, paramBlock.ioActCount));
 until error <> noErr;
 error := PBClose(@paramBlock, false);
end.

================
Thanks,
		Fernando Borcel
		borcelf@jacobs.cs.orst.edu