#FEATURE by exept jv
authorClaus Gittinger <cg@exept.de>
Sun, 25 Jun 2023 08:09:52 +0000
branchjv
changeset 25459 af23296a8674
parent 25458 484d5077ce16
child 25460 3edda84b4966
#FEATURE by exept class: CharacterArray class changed: #matchScanArrayFrom:escapeCharacter: BadGLOBPatternError notification (grafted from ca3d27371486581fdb0fbdca397daaedf04a7ca8)
CharacterArray.st
--- a/CharacterArray.st	Sun Jun 25 08:06:53 2023 +0000
+++ b/CharacterArray.st	Sun Jun 25 08:09:52 2023 +0000
@@ -1089,7 +1089,7 @@
                         matchSet := IdentitySet new.
                         idx := idx + 1.
                         idx > end ifTrue:[
-                            ^ nil
+                            ^ BadGLOBPatternError raiseAsQuery
                         ].
                         char := aString at:idx.
                         c1 := nil.
@@ -1101,7 +1101,7 @@
                                 ((char == $-) and:[ c1 notNil ]) ifTrue:[
                                     idx := idx + 1.
                                     idx > end ifTrue:[
-                                        ^ nil
+                                        ^ BadGLOBPatternError raiseAsQuery
                                     ].
                                     c2 := aString at:idx.
                                     c1 to:c2 do:[:c | 
@@ -1117,7 +1117,7 @@
                                     ]
                                 ].
                                 idx > end ifTrue:[
-                                    ^ nil
+                                    ^ BadGLOBPatternError raiseAsQuery
                                 ].
                             ].
                             char := aString at:idx
@@ -1153,11 +1153,16 @@
      String matchScanArrayFrom:'[A-Z$_][A-Za-z0-9$\[\]]*'
      String matchScanArrayFrom:'[A-Z$\[\]]*'
      String matchScanArrayFrom:'[A-Z$_\[][A-Za-z0-9$\-\] ]*'
+
+     String matchScanArrayFrom:'abc#'    
+     String matchScanArrayFrom:'*#*'    
+     String matchScanArrayFrom:'\[a-' escapeCharacter:$\
      ."
 
     "Modified: / 02-04-1997 / 16:20:29 / cg"
     "Modified: / 03-12-2018 / 15:41:54 / Stefan Vogel"
     "Modified (comment): / 23-07-2020 / 10:04:58 / alkurz"
+    "Modified: / 25-06-2023 / 10:08:45 / cg"
 ! !
 
 !CharacterArray class methodsFor:'queries'!
@@ -6845,6 +6850,7 @@
     "Modified (format): / 21-03-2019 / 12:56:24 / Claus Gittinger"
 ! !
 
+
 !CharacterArray methodsFor:'printing & storing'!
 
 article