Workaround to fix PPComposedTest>>testLeftRecursion - make PPStream>>size returning size of the input.
authorJan Vrany <jan.vrany@fit.cvut.cz>
Wed, 08 Oct 2014 21:56:20 +0100
changeset 388 74c9c229033b
parent 387 e2b2ccaa4de6
child 389 009c2e13973c
Workaround to fix PPComposedTest>>testLeftRecursion - make PPStream>>size returning size of the input. For whatever reason, in Smalltalk/X ReadStream>>size returns size remaning data, not the size of a whole stream. This is a bug and should be fixed in Smalltalk/X libbasic. Meanwhile, override PPStream>>size to return proper value. In Pharo, the method is not needed as the inherited method is exactly the same.
PPStream.st
--- a/PPStream.st	Wed Oct 08 00:33:44 2014 +0100
+++ b/PPStream.st	Wed Oct 08 21:56:20 2014 +0100
@@ -79,6 +79,14 @@
         ^ (self peekBack = (Character codePoint: 13)) or: [ self peekBack = (Character codePoint: 10)].
 
     "Modified: / 03-10-2014 / 23:52:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+size
+    ^ readLimit
+    "DO NOT REMOVE this method event though in Pharo it is the same as
+     inherited. This is required for Smalltalk/X compatibility"
+
+    "Created: / 08-10-2014 / 12:25:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !PPStream class methodsFor:'documentation'!
@@ -91,6 +99,11 @@
     ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPStream.st,v 1.4 2014-03-04 14:32:00 cg Exp $'
 !
 
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+!
+
 version_SVN
     ^ '$Id: PPStream.st,v 1.4 2014-03-04 14:32:00 cg Exp $'
 ! !