--- a/MCMczReader.st Wed Mar 07 16:05:59 2018 +0100
+++ b/MCMczReader.st Wed Mar 07 16:06:26 2018 +0100
@@ -1,5 +1,9 @@
+"{ Encoding: utf8 }"
+
"{ Package: 'stx:goodies/monticello' }"
+"{ NameSpace: Smalltalk }"
+
MCVersionReader subclass:#MCMczReader
instanceVariableNames:'zip infoCache'
classVariableNames:''
@@ -137,9 +141,10 @@
!
parseMember: fileName
- | tokens |
- tokens := (self scanner scanTokens: (self zip contentsOf: fileName)) first.
- ^ self associate: tokens
+ | tokens data |
+ data := self zip contentsOf: fileName.
+ tokens := (self scanner scanTokens: data) first.
+ ^ self associate: tokens
!
scanner
@@ -158,14 +163,14 @@
!MCMczReader class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCMczReader.st,v 1.8 2014-02-12 17:30:06 cg Exp $'
+ ^ '$Header$'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCMczReader.st,v 1.8 2014-02-12 17:30:06 cg Exp $'
+ ^ '$Header$'
!
version_SVN
- ^ '$Id: MCMczReader.st,v 1.8 2014-02-12 17:30:06 cg Exp $'
+ ^ '$Id$'
! !