hg/stx-libbasic: comparison CharacterArray.st

equal deleted inserted replaced

-:247352d5de0f
+:8e30e6a52a64
 "Modified: 28.6.1997 / 20:09:35 / cg"
 "Created: 3.8.1997 / 18:16:40 / cg"
 ! !
 !CharacterArray class methodsFor:'cleanup'!
 lowSpaceCleanup
 "cleanup in low-memory situations"
 invalid:
 CharacterArray fromUTF8Bytes:#[ 16rC0 16r80 ]
 CharacterArray fromUTF8Bytes:#[ 16rE0 16r80 16r80 ]
 "
 ! !
 !CharacterArray class methodsFor:'pattern matching'!
 matchEscapeCharacter
 "return the character used to escape a matchCharacter
 Abstract subclasses must redefine again."
 ^ self == CharacterArray
 ! !
 !CharacterArray methodsFor:'Compatibility-ANSI'!
 addLineDelimiters
 "Ansi compatibility - same as withCRs"
 "
 "Created: / 26-12-2011 / 13:46:06 / cg"
 !
+hash_fnv1a
+"return an integer useful as a hash-key.
+This method uses the fnv-1a algorithm
+(which is actually a very good one)"
+|h|
+h := 2166136261.
+self do:[:eachChar |
+h := h bitXor:(eachChar codePoint).
+h := (h * 16777619) bitAnd:16rFFFFFFFF.
+].
+^ h
+"
+'abc' hash_fnv1a
+'foofooHelloWorld' hash_fnv1a
+'blablaHelloWorld' hash_fnv1a
+"
+!
+hash_java
+"return an integer useful as a hash-key.
+This method uses the same algorithm as used in
+the java virtual machine
+(which is actually not a very good one)."
+|h|
+h := 0.
+self do:[:eachChar |
+h := (h * 31) + (eachChar codePoint).
+h := h bitAnd:16rFFFFFFFF.
+].
+^ h
+"
+'abc' hash_java
+'foofooHelloWorld' hash_java
+'blablaHelloWorld' hash_java
+"
+!
 levenshteinTo:aString
 "return the levenshtein distance to the argument, aString;
 this value corresponds to the number of replacements that have to be
 made to get aString from the receiver.
 See IEEE transactions on Computers 1976 Pg 172 ff."
 "Modified: / 11-05-2010 / 19:12:37 / cg"
 ! !
 !CharacterArray methodsFor:'matching - glob expressions'!
 compoundMatch:aString
 "like match, but the receiver may be a compound match pattern,
 consisting of multiple simple GLOB patterns, separated by semicolons.
 ^ aPatternString match:self caseSensitive:ignoreCase not
 "Created: / 08-03-2012 / 03:11:11 / cg"
 ! !
 !CharacterArray methodsFor:'padded copying'!
 centerPaddedTo:newSize
 "dispatch for visitor pattern; send #visitString:with: to aVisitor"
 ^ aVisitor visitString:self with:aParameter
 ! !
 !CharacterArray class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.543 2014-10-03 01:48:38 vrany Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.544 2014-10-08 08:49:47 cg Exp $'
 !
 version_CVS
-^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.543 2014-10-03 01:48:38 vrany Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.544 2014-10-08 08:49:47 cg Exp $'
 ! !
 CharacterArray initialize!

changeset 16887	8e30e6a52a64
parent 16875	32e61bb3a742
child 16898	0663e6b0d177