>From aa04915651ca1fc5eee0ad3665efd7911cd9d583 Mon Sep 17 00:00:00 2001 From: Holger Hans Peter Freyther Date: Thu, 26 Aug 2010 19:22:09 +0800 Subject: [PATCH 2/3] SqueakParser.st: Handle binary selectors with more than two chars. * SqueakParser.st: Handle binary selector with more than two charachters. This is required for ANSI Smalltalk and will allow to import PetitParser. --- packages/stinst/parser/ChangeLog | 6 ++++++ packages/stinst/parser/SqueakParser.st | 4 ++++ 2 files changed, 10 insertions(+), 0 deletions(-) diff --git a/packages/stinst/parser/ChangeLog b/packages/stinst/parser/ChangeLog index 246a80b..0653b3d 100644 --- a/packages/stinst/parser/ChangeLog +++ b/packages/stinst/parser/ChangeLog @@ -1,3 +1,9 @@ +2010-08-26 Holger Hans Peter Freyther + + * SqueakParser.st: Handle binary selector with more than two + charachters. This is required for ANSI Smalltalk and will allow + to import PetitParser. + 2010-06-22 Gwenael Casaccio * RBParser.st: Accept non-decimal floats. diff --git a/packages/stinst/parser/SqueakParser.st b/packages/stinst/parser/SqueakParser.st index a5f79b3..8c2cb7a 100644 --- a/packages/stinst/parser/SqueakParser.st +++ b/packages/stinst/parser/SqueakParser.st @@ -133,6 +133,10 @@ STFileScanner subclass: SqueakFileInScanner [ ifFalse: [buffer nextPut: currentCharacter. self step]]. + [characterType == #binary] + whileTrue: [ + buffer nextPut: currentCharacter. + self step]. val := buffer contents. val := val asSymbol. -- 1.7.2.2