#FEATURE by cg
class: CharacterArray
changed: #match:from:to:caseSensitive:escapeCharacter:
raise a warning instead of infoPrinting
in case of an invalid GLOB pattern
--- a/CharacterArray.st Tue Oct 23 18:50:07 2018 +0200
+++ b/CharacterArray.st Wed Oct 24 09:01:44 2018 +0200
@@ -5629,9 +5629,9 @@
or:[(matchScanArray := PreviousMatches at: self ifAbsent:[nil]) isNil]) ifTrue:[
matchScanArray := self class matchScanArrayFrom:self escapeCharacter:escape.
matchScanArray isNil ifTrue:[
- 'CharacterArray [info]: invalid matchpattern:''' infoPrint. self infoPrint. ''' comparing for equality.' infoPrintCR.
+ ParseWarning raiseRequestErrorString:('CharacterArray [info]: invalid matchpattern: ''%1'' comparing for equality' bindWith:self).
^ self = aString
-"/ ^ false
+ "/ ^ false
].
PreviousMatches isNil ifTrue:[
PreviousMatches := CacheDictionary new:15
@@ -5649,9 +5649,12 @@
"
'*ute*' match:'12345COMPUTER' from:1 to:5 caseSensitive:false
'*ute*' match:'12345COMPUTER' from:6 to:13 caseSensitive:false
+
+ '*[12' match:'12345COMPUTER' from:6 to:13 caseSensitive:false -- gives a warning
"
"Modified: / 29-07-2017 / 14:01:42 / cg"
+ "Modified (comment): / 24-10-2018 / 09:01:31 / Claus Gittinger"
!
match:aString from:start to:stop ignoreCase:ignoreCase