Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Ticket [d679822510] :: Fixed creative writing of loop variable by the search loop invoking LoaddAccelerator when sourcing the package. uuid :: Bumped to 1.0.4. sha1 :: Bumped to 1.1.1. md4 :: Bumped to 1.0.6. ripemd128 :: Bumped to 1.0.5. ripemd160 :: Bumped to 1.0.5. crc32 :: Bumped to 1.3.2. Further reviewed as users of the LoadAccelator pattern, and found to not be affected by the problem are: base32 base32::hex blowfish json md5 v2 pt::parse::peg pt::rde sha1 v2 sha256 struct::graph struct::queue struct::set struct::stack struct::tree |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
64c68f338048a4074439365a74e78837 |
User & Date: | andreask 2014-06-30 18:12:15 |
Context
2014-07-15
| ||
19:38 | Fixed a number of warnings in various critcl parts. check-in: 2a6a498310 user: andreask tags: trunk | |
2014-06-30
| ||
18:12 | Ticket [d679822510] :: Fixed creative writing of loop variable by the search loop invoking LoaddAccelerator when sourcing the package. uuid :: Bumped to 1.0.4. sha1 :: Bumped to 1.1.1. md4 :: Bumped to 1.0.6. ripemd128 :: Bumped to 1.0.5. ripemd160 :: Bumped to 1.0.5. crc32 :: Bumped to 1.3.2. Further reviewed as users of the LoadAccelator pattern, and found to not be affected by the problem are: base32 base32::hex blowfish json md5 v2 pt::parse::peg pt::rde sha1 v2 sha256 struct::graph struct::queue struct::set struct::stack struct::tree check-in: 64c68f3380 user: andreask tags: trunk | |
17:22 | ncgi :: [03f5d49c12]. Replaced custom url parser for redirection with use of package "uri" (uri::split). This fixes an issue where redirection mishandles a query string in the REQUEST_URI. Testsuite extended. Version bumped to 1.4.3. check-in: 9f2e9488eb user: andreask tags: trunk | |
Changes
Changes to modules/blowfish/blowfish.tcl.
︙ | ︙ | |||
703 704 705 706 707 708 709 | return $r } # ------------------------------------------------------------------------- # Try and load a compiled extension to help. namespace eval ::blowfish { | > > | > > | 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 | return $r } # ------------------------------------------------------------------------- # Try and load a compiled extension to help. namespace eval ::blowfish { variable e {} foreach e {trf} { if {[LoadAccelerator $e]} break } unset e } package provide blowfish $::blowfish::version # ------------------------------------------------------------------------- # # Local Variables: |
︙ | ︙ |
Changes to modules/crc/crc32.man.
|
| > | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | [vset VERSION 1.3.2] [manpage_begin crc32 n [vset VERSION]] [see_also cksum(n)] [see_also crc16(n)] [see_also sum(n)] [keywords checksum] [keywords cksum] [keywords crc] [keywords crc32] [keywords {cyclic redundancy check}] [keywords {data integrity}] [keywords security] [copyright {2002, Pat Thoyts}] [moddesc {Cyclic Redundancy Checks}] [titledesc {Perform a 32bit Cyclic Redundancy Check}] [category {Hashes, checksums, and encryption}] [require Tcl 8.2] [require crc32 [opt [vset VERSION]]] [description] [para] This package provides a Tcl implementation of the CRC-32 algorithm based upon information provided at http://www.naaccr.org/standard/crc32/document.html |
︙ | ︙ |
Changes to modules/crc/crc32.tcl.
︙ | ︙ | |||
11 12 13 14 15 16 17 | # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # ------------------------------------------------------------------------- # $Id: crc32.tcl,v 1.22 2009/05/06 22:41:08 patthoyts Exp $ package require Tcl 8.2 namespace eval ::crc { | | | 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # ------------------------------------------------------------------------- # $Id: crc32.tcl,v 1.22 2009/05/06 22:41:08 patthoyts Exp $ package require Tcl 8.2 namespace eval ::crc { variable crc32_version 1.3.2 variable accel array set accel {critcl 0 trf 0} namespace export crc32 variable crc32_tbl [list 0x00000000 0x77073096 0xEE0E612C 0x990951BA \ 0x076DC419 0x706AF48F 0xE963A535 0x9E6495A3 \ |
︙ | ︙ | |||
358 359 360 361 362 363 364 | return [format $opts(-format) $r] } # ------------------------------------------------------------------------- # Try and load a compiled extension to help (note - trf is fastest) namespace eval ::crc { | > | > > > | 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 | return [format $opts(-format) $r] } # ------------------------------------------------------------------------- # Try and load a compiled extension to help (note - trf is fastest) namespace eval ::crc { variable e {} foreach e {trf critcl} { if {[LoadAccelerator $e]} break } unset e } package provide crc32 $::crc::crc32_version # ------------------------------------------------------------------------- # # Local variables: # mode: tcl # indent-tabs-mode: nil # End: |
Changes to modules/crc/pkgIndex.tcl.
1 2 3 | if {![package vsatisfies [package provide Tcl] 8.2]} {return} package ifneeded cksum 1.1.4 [list source [file join $dir cksum.tcl]] package ifneeded crc16 1.1.2 [list source [file join $dir crc16.tcl]] | | | 1 2 3 4 5 | if {![package vsatisfies [package provide Tcl] 8.2]} {return} package ifneeded cksum 1.1.4 [list source [file join $dir cksum.tcl]] package ifneeded crc16 1.1.2 [list source [file join $dir crc16.tcl]] package ifneeded crc32 1.3.2 [list source [file join $dir crc32.tcl]] package ifneeded sum 1.1.1 [list source [file join $dir sum.tcl]] |
Changes to modules/md4/md4.man.
|
| > | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | [vset VERSION 1.0.6] [manpage_begin md4 n [vset VERSION]] [see_also md5] [see_also sha1] [keywords hashing] [keywords md4] [keywords message-digest] [keywords {rfc 1320}] [keywords {rfc 1321}] [keywords {rfc 2104}] [keywords security] [moddesc {MD4 Message-Digest Algorithm}] [copyright {2003, Pat Thoyts <[email protected]>}] [titledesc {MD4 Message-Digest Algorithm}] [category {Hashes, checksums, and encryption}] [require Tcl 8.2] [require md4 [opt [vset VERSION]]] [description] [para] This package is an implementation in Tcl of the MD4 message-digest algorithm as described in RFC 1320 (1) and (2). This algorithm takes an arbitrary quantity of data and generates a 128-bit message digest from the input. The MD4 algorithm is faster but potentially weaker than |
︙ | ︙ |
Changes to modules/md4/md4.tcl.
︙ | ︙ | |||
12 13 14 15 16 17 18 | package require Tcl 8.2; # tcl minimum version catch {package require md4c 1.0}; # tcllib critcl alternative # @mdgen EXCLUDE: md4c.tcl namespace eval ::md4 { | | | 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | package require Tcl 8.2; # tcl minimum version catch {package require md4c 1.0}; # tcllib critcl alternative # @mdgen EXCLUDE: md4c.tcl namespace eval ::md4 { variable version 1.0.6 variable rcsid {$Id: md4.tcl,v 1.20 2008/04/29 10:07:45 patthoyts Exp $} variable accel array set accel {critcl 0 cryptkit 0} namespace export md4 hmac MD4Init MD4Update MD4Final variable uid |
︙ | ︙ | |||
555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 | return $r } # ------------------------------------------------------------------------- # Try and load a compiled extension to help. namespace eval ::md4 { foreach e {critcl cryptkit} { if {[LoadAccelerator $e]} { break } } unset e } package provide md4 $::md4::version # ------------------------------------------------------------------------- # Local Variables: # mode: tcl # indent-tabs-mode: nil # End: | > | 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 | return $r } # ------------------------------------------------------------------------- # Try and load a compiled extension to help. namespace eval ::md4 { variable e {} foreach e {critcl cryptkit} { if {[LoadAccelerator $e]} { break } } unset e } package provide md4 $::md4::version # ------------------------------------------------------------------------- # Local Variables: # mode: tcl # indent-tabs-mode: nil # End: |
Changes to modules/md4/pkgIndex.tcl.
1 2 | # This package has been tested with tcl 8.2.3 and above. if {![package vsatisfies [package provide Tcl] 8.2]} {return} | | | 1 2 3 | # This package has been tested with tcl 8.2.3 and above. if {![package vsatisfies [package provide Tcl] 8.2]} {return} package ifneeded md4 1.0.6 [list source [file join $dir md4.tcl]] |
Changes to modules/ripemd/pkgIndex.tcl.
1 2 3 4 5 6 7 8 9 | # pkgIndex.tcl - # # RIPEMD package index file # # This package has been tested with tcl 8.2.3 and above. # # $Id: pkgIndex.tcl,v 1.6 2009/05/07 01:12:59 patthoyts Exp $ if {![package vsatisfies [package provide Tcl] 8.2]} {return} | | | | 1 2 3 4 5 6 7 8 9 10 11 | # pkgIndex.tcl - # # RIPEMD package index file # # This package has been tested with tcl 8.2.3 and above. # # $Id: pkgIndex.tcl,v 1.6 2009/05/07 01:12:59 patthoyts Exp $ if {![package vsatisfies [package provide Tcl] 8.2]} {return} package ifneeded ripemd128 1.0.5 [list source [file join $dir ripemd128.tcl]] package ifneeded ripemd160 1.0.5 [list source [file join $dir ripemd160.tcl]] |
Changes to modules/ripemd/ripemd128.man.
|
| > | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | [vset VERSION 1.0.5] [manpage_begin ripemd128 n [vset VERSION]] [see_also md4] [see_also md5] [see_also ripemd160] [see_also sha1] [keywords hashing] [keywords md4] [keywords message-digest] [keywords {rfc 1320}] [keywords {rfc 1321}] [keywords {rfc 2104}] [keywords RIPEMD] [keywords security] [moddesc {RIPEMD Message-Digest Algorithm}] [copyright {2004, Pat Thoyts <[email protected]>}] [titledesc {RIPEMD-128 Message-Digest Algorithm}] [category {Hashes, checksums, and encryption}] [require Tcl 8.2] [require ripemd128 [opt [vset VERSION]]] [description] [para] This package is an implementation in Tcl of the RIPEMD-128 message-digest algorithm (1). This algorithm takes an arbitrary quantity of data and generates a 128-bit message digest from the input. The RIPEMD-128 algorithm is based upon the MD4 algorithm (2, 4) but has been |
︙ | ︙ |
Changes to modules/ripemd/ripemd128.tcl.
︙ | ︙ | |||
25 26 27 28 29 30 31 | # # $Id: ripemd128.tcl,v 1.10 2009/05/07 01:12:59 patthoyts Exp $ package require Tcl 8.2; # tcl minimum version namespace eval ::ripemd { namespace eval ripemd128 { | | | 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 | # # $Id: ripemd128.tcl,v 1.10 2009/05/07 01:12:59 patthoyts Exp $ package require Tcl 8.2; # tcl minimum version namespace eval ::ripemd { namespace eval ripemd128 { variable version 1.0.5 variable rcsid {$Id: ripemd128.tcl,v 1.10 2009/05/07 01:12:59 patthoyts Exp $} variable accel array set accel {trf 0} variable uid if {![info exists uid]} { set uid 0 |
︙ | ︙ | |||
715 716 717 718 719 720 721 | RIPEHMAC128Init RIPEHMAC128Update RIPEHMAC128Final } # ------------------------------------------------------------------------- # Try and load a compiled extension to help. namespace eval ::ripemd::ripemd128 { | > | > > < < | 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 | RIPEHMAC128Init RIPEHMAC128Update RIPEHMAC128Final } # ------------------------------------------------------------------------- # Try and load a compiled extension to help. namespace eval ::ripemd::ripemd128 { variable e {} foreach e {trf} { if {[LoadAccelerator $e]} break } unset e } package provide ripemd128 $::ripemd::ripemd128::version # ------------------------------------------------------------------------- # Local Variables: # mode: tcl # indent-tabs-mode: nil # End: |
Changes to modules/ripemd/ripemd160.man.
|
| > | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | [vset VERSION 1.0.5] [manpage_begin ripemd160 n [vset VERSION]] [see_also md4] [see_also md5] [see_also ripemd128] [see_also sha1] [keywords hashing] [keywords md4] [keywords message-digest] [keywords {rfc 1320}] [keywords {rfc 1321}] [keywords {rfc 2104}] [keywords RIPEMD] [keywords security] [moddesc {RIPEMD Message-Digest Algorithm}] [copyright {2004, Pat Thoyts <[email protected]>}] [titledesc {RIPEMD-160 Message-Digest Algorithm}] [category {Hashes, checksums, and encryption}] [require Tcl 8.2] [require ripemd160 [opt [vset VERSION]]] [description] [para] This package is an implementation in Tcl of the RIPEMD-160 message-digest algorithm (1). This algorithm takes an arbitrary quantity of data and generates a 160-bit message digest from the input. The RIPEMD-160 algorithm is based upon the MD4 algorithm (2, 4) but has been |
︙ | ︙ |
Changes to modules/ripemd/ripemd160.tcl.
︙ | ︙ | |||
26 27 28 29 30 31 32 | # $Id: ripemd160.tcl,v 1.8 2009/05/07 01:12:59 patthoyts Exp $ package require Tcl 8.2; # tcl minimum version #catch {package require ripemdc 1.0}; # tcllib critcl alternative namespace eval ::ripemd { namespace eval ripemd160 { | | | 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 | # $Id: ripemd160.tcl,v 1.8 2009/05/07 01:12:59 patthoyts Exp $ package require Tcl 8.2; # tcl minimum version #catch {package require ripemdc 1.0}; # tcllib critcl alternative namespace eval ::ripemd { namespace eval ripemd160 { variable version 1.0.5 variable rcsid {$Id: ripemd160.tcl,v 1.8 2009/05/07 01:12:59 patthoyts Exp $} variable accel array set accel {cryptkit 0 trf 0} variable uid if {![info exists uid]} { set uid 0 |
︙ | ︙ | |||
848 849 850 851 852 853 854 | RIPEHMAC160Init RIPEHMAC160Update RIPEHMAC160Final } # ------------------------------------------------------------------------- # Try and load a compiled extension to help. namespace eval ::ripemd::ripemd160 { | > | > > | 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 | RIPEHMAC160Init RIPEHMAC160Update RIPEHMAC160Final } # ------------------------------------------------------------------------- # Try and load a compiled extension to help. namespace eval ::ripemd::ripemd160 { variable e {} foreach e {cryptkit trf} { if {[LoadAccelerator $e]} break } unset e } package provide ripemd160 $::ripemd::ripemd160::version # ------------------------------------------------------------------------- # Local Variables: # mode: tcl # indent-tabs-mode: nil # End: |
Changes to modules/sha1/pkgIndex.tcl.
1 2 3 4 5 6 7 8 9 10 11 12 13 | # Tcl package index file, version 1.1 # This file is generated by the "pkg_mkIndex" command # and sourced either when an application starts up or # by a "package unknown" script. It invokes the # "package ifneeded" command to set up package-related # information so that packages will be loaded automatically # 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]] | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 | # Tcl package index file, version 1.1 # This file is generated by the "pkg_mkIndex" command # and sourced either when an application starts up or # by a "package unknown" script. It invokes the # "package ifneeded" command to set up package-related # information so that packages will be loaded automatically # 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 sha1 1.1.1 [list source [file join $dir sha1v1.tcl]] |
Changes to modules/sha1/sha1v1.tcl.
︙ | ︙ | |||
24 25 26 27 28 29 30 | # $Id: sha1v1.tcl,v 1.1 2006/03/12 22:46:13 andreas_kupries Exp $ # @mdgen EXCLUDE: sha1c.tcl package require Tcl 8.2; # tcl minimum version namespace eval ::sha1 { | | | 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | # $Id: sha1v1.tcl,v 1.1 2006/03/12 22:46:13 andreas_kupries Exp $ # @mdgen EXCLUDE: sha1c.tcl package require Tcl 8.2; # tcl minimum version namespace eval ::sha1 { variable version 1.1.1 variable rcsid {$Id: sha1v1.tcl,v 1.1 2006/03/12 22:46:13 andreas_kupries Exp $} variable accel array set accel {critcl 0 cryptkit 0 trf 0} namespace export sha1 hmac SHA1Init SHA1Update SHA1Final variable uid |
︙ | ︙ | |||
695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 | return $r } # ------------------------------------------------------------------------- # Try and load a compiled extension to help. namespace eval ::sha1 { foreach e {critcl cryptkit trf} { if {[LoadAccelerator $e]} { break } } } package provide sha1 $::sha1::version # ------------------------------------------------------------------------- # Local Variables: # mode: tcl # indent-tabs-mode: nil # End: | > > | 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 | return $r } # ------------------------------------------------------------------------- # Try and load a compiled extension to help. namespace eval ::sha1 { variable e {} foreach e {critcl cryptkit trf} { if {[LoadAccelerator $e]} { break } } unset e } package provide sha1 $::sha1::version # ------------------------------------------------------------------------- # Local Variables: # mode: tcl # indent-tabs-mode: nil # End: |
Changes to modules/uuid/pkgIndex.tcl.
1 2 3 4 5 6 7 | # pkgIndex.tcl - # # uuid package index file # # $Id: pkgIndex.tcl,v 1.3 2012/11/19 19:28:24 andreas_kupries Exp $ if {![package vsatisfies [package provide Tcl] 8.2]} {return} | | | 1 2 3 4 5 6 7 8 | # pkgIndex.tcl - # # uuid package index file # # $Id: pkgIndex.tcl,v 1.3 2012/11/19 19:28:24 andreas_kupries Exp $ if {![package vsatisfies [package provide Tcl] 8.2]} {return} package ifneeded uuid 1.0.4 [list source [file join $dir uuid.tcl]] |
Changes to modules/uuid/uuid.man.
|
| | | 1 2 3 4 5 6 7 8 | [vset UUID_VERSION 1.0.4] [manpage_begin uuid n [vset UUID_VERSION]] [keywords GUID] [keywords UUID] [moddesc {uuid}] [copyright {2004, Pat Thoyts <[email protected]>}] [titledesc {UUID generation and comparison}] [category {Hashes, checksums, and encryption}] |
︙ | ︙ |
Changes to modules/uuid/uuid.tcl.
︙ | ︙ | |||
8 9 10 11 12 13 14 | # uuid: scheme: # http://www.globecom.net/ietf/draft/draft-kindel-uuid-uri-00.html # # Usage: uuid::uuid generate # uuid::uuid equal $idA $idB namespace eval uuid { | | | 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | # uuid: scheme: # http://www.globecom.net/ietf/draft/draft-kindel-uuid-uri-00.html # # Usage: uuid::uuid generate # uuid::uuid equal $idA $idB namespace eval uuid { variable version 1.0.4 variable accel array set accel {critcl 0} namespace export uuid variable uid if {![info exists uid]} { |
︙ | ︙ | |||
215 216 217 218 219 220 221 | set accel($name) $r } # ------------------------------------------------------------------------- # Try and load a compiled extension to help. namespace eval ::uuid { | > | > > > | 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 | set accel($name) $r } # ------------------------------------------------------------------------- # Try and load a compiled extension to help. namespace eval ::uuid { variable e {} foreach e {critcl} { if {[LoadAccelerator $e]} break } unset e } package provide uuid $::uuid::version # ------------------------------------------------------------------------- # Local variables: # mode: tcl # indent-tabs-mode: nil # End: |