Index: embedded/md/tcllib/files/modules/sha1/sha1.md ================================================================== --- embedded/md/tcllib/files/modules/sha1/sha1.md +++ embedded/md/tcllib/files/modules/sha1/sha1.md @@ -1,10 +1,10 @@ [//000000001]: # (sha1 \- SHA\-x Message\-Digest Algorithm) [//000000002]: # (Generated from file 'sha1\.man' by tcllib/doctools with format 'markdown') [//000000003]: # (Copyright © 2005, Pat Thoyts ) -[//000000004]: # (sha1\(n\) 2\.0\.3 tcllib "SHA\-x Message\-Digest Algorithm") +[//000000004]: # (sha1\(n\) 2\.0\.4 tcllib "SHA\-x Message\-Digest Algorithm")
[ Main Table Of Contents | Table Of Contents | Keyword Index | Categories | SYNOPSIS package require Tcl 8\.2 -package require sha1 ?2\.0\.3? +package require sha1 ?2\.0\.4? [__::sha1::sha1__ ?__\-hex|\-bin__? \[ __\-channel channel__ | __\-file filename__ | ?__\-\-__? *string* \]](#1) [__::sha1::hmac__ *key* *string*](#2) [__::sha1::hmac__ ?__\-hex|\-bin__? __\-key key__ \[ __\-channel channel__ | __\-file filename__ | ?__\-\-__? *string* \]](#3) [__::sha1::SHA1Init__](#4) Index: embedded/md/tcllib/files/modules/sha1/sha256.md ================================================================== --- embedded/md/tcllib/files/modules/sha1/sha256.md +++ embedded/md/tcllib/files/modules/sha1/sha256.md @@ -1,10 +1,10 @@ [//000000001]: # (sha256 \- SHA\-x Message\-Digest Algorithm) [//000000002]: # (Generated from file 'sha256\.man' by tcllib/doctools with format 'markdown') [//000000003]: # (Copyright © 2008, Andreas Kupries ) -[//000000004]: # (sha256\(n\) 1\.0\.3 tcllib "SHA\-x Message\-Digest Algorithm") +[//000000004]: # (sha256\(n\) 1\.0\.4 tcllib "SHA\-x Message\-Digest Algorithm")
[ Main Table Of Contents | Table Of Contents | Keyword Index | Categories | SYNOPSIS package require Tcl 8\.2 -package require sha256 ?1\.0\.3? +package require sha256 ?1\.0\.4? [__::sha2::sha256__ ?__\-hex|\-bin__? \[ __\-channel channel__ | __\-file filename__ | ?__\-\-__? *string* \]](#1) [__::sha2::sha224__ ?__\-hex|\-bin__? \[ __\-channel channel__ | __\-file filename__ | ?__\-\-__? *string* \]](#2) [__::sha2::hmac__ *key* *string*](#3) [__::sha2::hmac__ ?__\-hex|\-bin__? __\-key key__ \[ __\-channel channel__ | __\-file filename__ | ?__\-\-__? *string* \]](#4) Index: idoc/man/files/modules/sha1/sha1.n ================================================================== --- idoc/man/files/modules/sha1/sha1.n +++ idoc/man/files/modules/sha1/sha1.n @@ -1,10 +1,10 @@ '\" '\" Generated from file 'sha1\&.man' by tcllib/doctools with format 'nroff' '\" Copyright (c) 2005, Pat Thoyts '\" -.TH "sha1" n 2\&.0\&.3 tcllib "SHA-x Message-Digest Algorithm" +.TH "sha1" n 2\&.0\&.4 tcllib "SHA-x Message-Digest Algorithm" .\" The -*- nroff -*- definitions below are for supplemental macros used .\" in Tcl/Tk manual entries. .\" .\" .AP type name in/out ?indent? .\" Start paragraph describing an argument to a library procedure. @@ -274,11 +274,11 @@ .SH NAME sha1 \- SHA1 Message-Digest Algorithm .SH SYNOPSIS package require \fBTcl 8\&.2\fR .sp -package require \fBsha1 ?2\&.0\&.3?\fR +package require \fBsha1 ?2\&.0\&.4?\fR .sp \fB::sha1::sha1\fR ?\fB-hex|-bin\fR? [ \fB-channel channel\fR | \fB-file filename\fR | ?\fB--\fR? \fIstring\fR ] .sp \fB::sha1::hmac\fR \fIkey\fR \fIstring\fR .sp Index: idoc/man/files/modules/sha1/sha256.n ================================================================== --- idoc/man/files/modules/sha1/sha256.n +++ idoc/man/files/modules/sha1/sha256.n @@ -1,10 +1,10 @@ '\" '\" Generated from file 'sha256\&.man' by tcllib/doctools with format 'nroff' '\" Copyright (c) 2008, Andreas Kupries '\" -.TH "sha256" n 1\&.0\&.3 tcllib "SHA-x Message-Digest Algorithm" +.TH "sha256" n 1\&.0\&.4 tcllib "SHA-x Message-Digest Algorithm" .\" The -*- nroff -*- definitions below are for supplemental macros used .\" in Tcl/Tk manual entries. .\" .\" .AP type name in/out ?indent? .\" Start paragraph describing an argument to a library procedure. @@ -274,11 +274,11 @@ .SH NAME sha256 \- SHA256 Message-Digest Algorithm .SH SYNOPSIS package require \fBTcl 8\&.2\fR .sp -package require \fBsha256 ?1\&.0\&.3?\fR +package require \fBsha256 ?1\&.0\&.4?\fR .sp \fB::sha2::sha256\fR ?\fB-hex|-bin\fR? [ \fB-channel channel\fR | \fB-file filename\fR | ?\fB--\fR? \fIstring\fR ] .sp \fB::sha2::sha224\fR ?\fB-hex|-bin\fR? [ \fB-channel channel\fR | \fB-file filename\fR | ?\fB--\fR? \fIstring\fR ] .sp Index: idoc/www/tcllib/files/modules/sha1/sha1.html ================================================================== --- idoc/www/tcllib/files/modules/sha1/sha1.html +++ idoc/www/tcllib/files/modules/sha1/sha1.html @@ -105,11 +105,11 @@ | Categories | Modules | Applications ]
-

sha1(n) 2.0.3 tcllib "SHA-x Message-Digest Algorithm"

+

sha1(n) 2.0.4 tcllib "SHA-x Message-Digest Algorithm"

Name

sha1 - SHA1 Message-Digest Algorithm

Table Of Contents

    @@ -129,11 +129,11 @@

Synopsis

  • package require Tcl 8.2
    • -
  • package require sha1 ?2.0.3?
    • +
  • package require sha1 ?2.0.4?
  • ::sha1::sha1 ?-hex|-bin? [ -channel channel | -file filename | ?--? string ]
  • ::sha1::hmac key string
  • ::sha1::hmac ?-hex|-bin? -key key [ -channel channel | -file filename | ?--? string ]
    • Index: idoc/www/tcllib/files/modules/sha1/sha256.html ================================================================== --- idoc/www/tcllib/files/modules/sha1/sha256.html +++ idoc/www/tcllib/files/modules/sha1/sha256.html @@ -105,11 +105,11 @@ | Categories | Modules | Applications ]
    -

    sha256(n) 1.0.3 tcllib "SHA-x Message-Digest Algorithm"

    +

    sha256(n) 1.0.4 tcllib "SHA-x Message-Digest Algorithm"

    Name

    sha256 - SHA256 Message-Digest Algorithm

    Table Of Contents

      @@ -129,11 +129,11 @@

    Synopsis

    • package require Tcl 8.2
      • -
    • package require sha256 ?1.0.3?
      • +
    • package require sha256 ?1.0.4?
    • ::sha2::sha256 ?-hex|-bin? [ -channel channel | -file filename | ?--? string ]
    • ::sha2::sha224 ?-hex|-bin? [ -channel channel | -file filename | ?--? string ]
    • ::sha2::hmac key string
      • Index: modules/sha1/pkgIndex.tcl ================================================================== --- modules/sha1/pkgIndex.tcl +++ modules/sha1/pkgIndex.tcl @@ -7,8 +7,8 @@ # in response to "package require" commands. When this # script is sourced, the variable $dir must contain the # full path name of this file's directory. if {![package vsatisfies [package provide Tcl] 8.2]} {return} -package ifneeded sha256 1.0.3 [list source [file join $dir sha256.tcl]] -package ifneeded sha1 2.0.3 [list source [file join $dir sha1.tcl]] +package ifneeded sha256 1.0.4 [list source [file join $dir sha256.tcl]] +package ifneeded sha1 2.0.4 [list source [file join $dir sha1.tcl]] package ifneeded sha1 1.1.1 [list source [file join $dir sha1v1.tcl]] Index: modules/sha1/sha1.man ================================================================== --- modules/sha1/sha1.man +++ modules/sha1/sha1.man @@ -1,6 +1,7 @@ -[manpage_begin sha1 n 2.0.3] +[vset VERSION 2.0.4] +[manpage_begin sha1 n [vset VERSION]] [see_also md4] [see_also md5] [see_also ripemd128] [see_also ripemd160] [keywords {FIPS 180-1}] @@ -12,11 +13,11 @@ [moddesc {SHA-x Message-Digest Algorithm}] [copyright {2005, Pat Thoyts }] [titledesc {SHA1 Message-Digest Algorithm}] [category {Hashes, checksums, and encryption}] [require Tcl 8.2] -[require sha1 [opt 2.0.3]] +[require sha1 [opt [vset VERSION]]] [description] [para] This package provides an implementation in Tcl of the SHA1 message-digest algorithm as specified by FIPS PUB 180-1 (1). This Index: modules/sha1/sha1.tcl ================================================================== --- modules/sha1/sha1.tcl +++ modules/sha1/sha1.tcl @@ -648,11 +648,11 @@ if {[eof $channel]} { fileevent $channel readable {} set state(reading) 0 } - + return } # ------------------------------------------------------------------------- proc ::sha1::sha1 {args} { @@ -803,12 +803,12 @@ } } unset e } -package provide sha1 2.0.3 +package provide sha1 2.0.4 # ------------------------------------------------------------------------- # Local Variables: # mode: tcl # indent-tabs-mode: nil # End: Index: modules/sha1/sha256.man ================================================================== --- modules/sha1/sha256.man +++ modules/sha1/sha256.man @@ -1,6 +1,7 @@ -[manpage_begin sha256 n 1.0.3] +[vset VERSION 1.0.4] +[manpage_begin sha256 n [vset VERSION]] [see_also md4] [see_also md5] [see_also ripemd128] [see_also ripemd160] [see_also sha1] @@ -13,11 +14,11 @@ [moddesc {SHA-x Message-Digest Algorithm}] [copyright {2008, Andreas Kupries }] [titledesc {SHA256 Message-Digest Algorithm}] [category {Hashes, checksums, and encryption}] [require Tcl 8.2] -[require sha256 [opt 1.0.3]] +[require sha256 [opt [vset VERSION]]] [description] [para] This package provides an implementation in Tcl of the SHA256 and SHA224 message-digest algorithms as specified by FIPS PUB 180-1 Index: modules/sha1/sha256.tcl ================================================================== --- modules/sha1/sha256.tcl +++ modules/sha1/sha256.tcl @@ -174,11 +174,11 @@ foreach c { SHA256Init SHA224Init SHA256Final SHA224Final SHA256Update } { - rename ::sha2::$c ::sha2::${c}-${loaded} + interp alias {} ::sha2::$c {} } } # Activate the new implementation, if there is any. @@ -664,11 +664,11 @@ if {[eof $channel]} { fileevent $channel readable {} set state(reading) 0 } - return + return } # ------------------------------------------------------------------------- proc ::sha2::_sha256 {ver args} { @@ -822,12 +822,12 @@ } } unset e } -package provide sha256 1.0.3 +package provide sha256 1.0.4 # ------------------------------------------------------------------------- # Local Variables: # mode: tcl # indent-tabs-mode: nil # End: