'From Squeak3.8alpha of ''17 July 2004'' [latest update: #5976] on 18 August 2004 at 10:07:33 pm'! !FileStream class methodsFor: 'file reader services' stamp: 'yo 8/18/2004 20:24'! fileIn: fullName "File in the entire contents of the file specified by the name provided" | ff | fullName ifNil: [^ Beeper beep]. ff _ self readOnlyFileNamed: (GZipReadStream uncompressedFileName: fullName). ff fileIn. ! ! !GZipReadStream class methodsFor: 'fileIn/Out' stamp: 'yo 8/18/2004 20:24'! fileIn: fullFileName "FileIn the contents of a gzipped file" | zipped unzipped | zipped _ self on: (FileStream readOnlyFileNamed: fullFileName). unzipped _ MultiByteBinaryOrTextStream with: (zipped contents asString). unzipped reset. unzipped fileIn. ! !