added: #matches:ignoreCase:
authorClaus Gittinger <cg@exept.de>
Thu, 08 Mar 2012 04:09:27 +0100
changeset 14054 48d3fab77bd9
parent 14053 acbb97913c30
child 14055 b9292728b602
added: #matches:ignoreCase:
CharacterArray.st
--- a/CharacterArray.st	Wed Mar 07 16:31:40 2012 +0100
+++ b/CharacterArray.st	Thu Mar 08 04:09:27 2012 +0100
@@ -4255,6 +4255,22 @@
      NOTICE: the receiver is the match pattern"
 
     ^ aPatternString match:self
+!
+
+matches:aPatternString ignoreCase:ignoreCase
+    "return true if the receiver matches aString, where aPatternString may contain GLOB meta-match
+     characters $* (to match any string) or $# (to match any character).
+     or [...] to match a set of characters.
+     Lower/uppercase are considered different.
+
+     NOTICE: match-meta character interpretation is like in unix-matching (glob),
+             NOT the ST-80 meaning.
+     NOTICE: this is GLOB, which is different from regex matching (see matchesRegex:)
+     NOTICE: the receiver is the match pattern"
+
+    ^ aPatternString match:self ignoreCase:ignoreCase
+
+    "Created: / 08-03-2012 / 03:11:11 / cg"
 ! !
 
 
@@ -6050,11 +6066,11 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.469 2012-03-07 15:31:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.470 2012-03-08 03:09:27 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.469 2012-03-07 15:31:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.470 2012-03-08 03:09:27 cg Exp $'
 ! !
 
 CharacterArray initialize!