Mercurial Mercurial > hg > stx-libbasic / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
SHA1Stream.st
changeset 4798 9057c002734a
parent 4797 b5569df9e181
child 4916 df965a3448b9
equal deleted inserted replaced
4797:b5569df9e181 4798:9057c002734a 
   348   34AA973C D4C4DAA4 F61EEB2B DBAD2731 6534016F
 
   348   34AA973C D4C4DAA4 F61EEB2B DBAD2731 6534016F
 
   349 
   349 
   350                                                                 [exBegin]
 
   350                                                                 [exBegin]
 
   351     |hashStream|
 
   351     |hashStream|
 
   352 
   352 
   353     hashStream := self new.
 
   353     hashStream := SHA1Stream new.
 
   354     hashStream nextPut:'abc'.
 
   354     hashStream nextPut:'abc'.
 
   355     hashStream hashValue printOn:Transcript base:16. Transcript cr.
 
   355     hashStream hashValue printOn:Transcript base:16. Transcript cr.
 
   356     hashStream nextPut:'dbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq'.
 
   356     hashStream nextPut:'dbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq'.
 
   357     hashStream hashValue printOn:Transcript base:16. Transcript cr.
 
   357     hashStream hashValue printOn:Transcript base:16. Transcript cr.
 
   358                                                                 [exEnd]
 
   358                                                                 [exEnd]
 
   359 
   359 
   360                                                                 [exBegin]
 
   360                                                                 [exBegin]
 
   361     |hashStream|
 
   361     |hashStream|
 
   362 
   362 
   363     hashStream := self new.
 
   363     hashStream := SHA1Stream new.
 
   364     hashStream nextPut:'abc' asByteArray.
 
   364     hashStream nextPut:'abc' asByteArray.
 
   365     hashStream hashValue printOn:Transcript base:16. Transcript cr.
 
   365     hashStream hashValue printOn:Transcript base:16. Transcript cr.
 
   366     hashStream nextPut:'dbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq' asByteArray.
 
   366     hashStream nextPut:'dbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq' asByteArray.
 
   367     hashStream hashValue printOn:Transcript base:16. Transcript cr.
 
   367     hashStream hashValue printOn:Transcript base:16. Transcript cr.
 
   368 
   368 
   369                                                                 [exEnd]
 
   369                                                                 [exEnd]
 
   370 
   370 
   371                                                                 [exBegin]
 
   371                                                                 [exBegin]
 
   372     |hashStream|
 
   372     |hashStream|
 
   373 
   373 
   374     hashStream := self new.
 
   374     hashStream := SHA1Stream new.
 
   375     1000000 timesRepeat:[ hashStream nextPut:$a ].
 
   375     1000000 timesRepeat:[ hashStream nextPut:$a ].
 
   376     hashStream hashValue printOn:Transcript base:16. Transcript cr.
 
   376     hashStream hashValue printOn:Transcript base:16. Transcript cr.
 
   377                                                                 [exEnd]
 
   377                                                                 [exEnd]
 
   378 
   378 
   379                                                                 [exBegin]
 
   379                                                                 [exBegin]
 
   380     |hashStream|
 
   380     |hashStream|
 
   381 
   381 
   382     hashStream := self new.
 
   382     hashStream := SHA1Stream new.
 
   383     hashStream nextPut:'a'.
 
   383     hashStream nextPut:'a'.
 
   384     hashStream hashValue printOn:Transcript base:16. Transcript cr.
 
   384     hashStream hashValue printOn:Transcript base:16. Transcript cr.
 
   385                                                                 [exEnd]
 
   385                                                                 [exEnd]
 
   386 
   386 
   387                                                                 [exBegin]
 
   387                                                                 [exBegin]
 
   388     |hashStream|
 
   388     |hashStream|
 
   389 
   389 
   390     hashStream := self new.
 
   390     hashStream := SHA1Stream new.
 
   391     hashStream nextPut:$a.
 
   391     hashStream nextPut:$a.
 
   392     hashStream hashValue printOn:Transcript base:16. Transcript cr.
 
   392     hashStream hashValue printOn:Transcript base:16. Transcript cr.
 
   393                                                                 [exEnd]
 
   393                                                                 [exEnd]
 
   394 "
 
   394 "
 
   395 ! !
 
   395 ! !
 
   573 ! !
 
   573 ! !
 
   574 
   574 
   575 !SHA1Stream class methodsFor:'documentation'!
 
   575 !SHA1Stream class methodsFor:'documentation'!
 
   576 
   576 
   577 version
 
   577 version
 
   578     ^ '$Header: /cvs/stx/stx/libbasic/SHA1Stream.st,v 1.3 1999-09-23 18:12:41 cg Exp $'
 
   578     ^ '$Header: /cvs/stx/stx/libbasic/SHA1Stream.st,v 1.4 1999-09-23 18:33:47 cg Exp $'
 
   579 ! !
 
   579 ! !
 
   580 SHA1Stream initialize!
 
   580 SHA1Stream initialize!
hg/stx-libbasic