Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Changes In Branch version-cleanup Excluding Merge-Ins
This is equivalent to a diff from 845ab17352 to 70c2e16301
2014-10-20
| ||
20:53 | Merged version cleanup. check-in: a989287225 user: aku tags: trunk | |
20:52 | Merged trunk changes to cleanup (get aes updates) Closed-Leaf check-in: 70c2e16301 user: aku tags: version-cleanup | |
20:29 | Merged AES perf enhancements to trunk. check-in: 845ab17352 user: aku tags: trunk | |
20:28 | Bumped version number of perf enhanced aes. Closed-Leaf check-in: 3386c55f1b user: aku tags: aes-modernize | |
2014-10-17
| ||
23:46 | Extended the sak benchmark controller to handle repeats and collation equivalent to tclbench (min, max, avg). check-in: c3580dd6c6 user: andreask tags: trunk | |
22:01 | Completed. Still to be tested. check-in: 83d8fe88bd user: andreask tags: version-cleanup | |
Changes to modules/aes/aes.tcl.
︙ | |||
19 20 21 22 23 24 25 | 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | - + - - + | # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # ------------------------------------------------------------------------- package require Tcl 8.5 namespace eval ::aes { |
︙ | |||
613 614 615 616 617 618 619 | 612 613 614 615 616 617 618 619 620 621 622 623 624 625 | - + | binary scan $r H* r } return $r } # ------------------------------------------------------------------------- |
Changes to modules/base64/uuencode.tcl.
1 2 3 4 5 6 7 8 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | - - - | # uuencode - Copyright (C) 2002 Pat Thoyts <[email protected]> # # Provide a Tcl only implementation of uuencode and uudecode. # # ------------------------------------------------------------------------- # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # ------------------------------------------------------------------------- |
︙ | |||
323 324 325 326 327 328 329 | 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 | - + | } return $result } # ------------------------------------------------------------------------- |
Changes to modules/base64/yencode.tcl.
1 2 3 4 5 6 7 8 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | - - | # yencode.tcl - Copyright (C) 2002 Pat Thoyts <[email protected]> # # Provide a Tcl only implementation of yEnc encoding algorithm # # ------------------------------------------------------------------------- # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # ------------------------------------------------------------------------- |
︙ | |||
294 295 296 297 298 299 300 | 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 | - + | } return $result } # ------------------------------------------------------------------------- |
Changes to modules/blowfish/blowfish.tcl.
︙ | |||
16 17 18 19 20 21 22 | 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | - + - - - + + + | # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # ------------------------------------------------------------------------- # package require Tcl 8.2 namespace eval blowfish { |
︙ | |||
710 711 712 713 714 715 716 | 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 | - + | variable e {} foreach e {trf} { if {[LoadAccelerator $e]} break } unset e } |
Changes to modules/calendar/calendar.tcl.
1 2 3 4 5 6 7 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | - - - - - - + | #---------------------------------------------------------------------- # # calendar.tcl -- # # This file is the main 'package provide' script for the # 'calendar' package. The package provides various commands for # manipulating dates and times. |
Changes to modules/control/control.tcl.
1 2 3 4 5 | 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 | - - - + - + | # control.tcl -- # # This is the main package provide script for the package # "control". It provides commands that govern the flow of # control of a program. |
Changes to modules/crc/cksum.tcl.
1 2 3 4 5 6 7 8 9 10 11 12 13 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | - - - | # cksum.tcl - Copyright (C) 2002 Pat Thoyts <[email protected]> # # Provides a Tcl only implementation of the unix cksum(1) command. This is # similar to the sum(1) command but the algorithm is better defined and # standardized across multiple platforms by POSIX 1003.2/D11.2 # # This command has been verified against the cksum command from the GNU # textutils package version 2.0 # # ------------------------------------------------------------------------- # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # ------------------------------------------------------------------------- |
︙ | |||
190 191 192 193 194 195 196 | 187 188 189 190 191 192 193 194 195 196 197 198 199 200 | - + | } return [format $opts(-format) $r] } # ------------------------------------------------------------------------- |
Changes to modules/crc/crc16.tcl.
︙ | |||
35 36 37 38 39 40 41 | 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 | - - - - | # % crc::crc16 $msg[binary format s [crc::crc16 $msg]] # 0 # # ------------------------------------------------------------------------- # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # ------------------------------------------------------------------------- |
︙ | |||
292 293 294 295 296 297 298 | 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 | - + | proc ::crc::crc-32 {args} { return [eval [list crc -impl [namespace origin CRC-32] -seed 0xFFFFFFFF]\ $args] } # ------------------------------------------------------------------------- |
Changes to modules/crc/crc32.tcl.
1 2 3 4 5 6 7 8 9 10 11 12 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | - - - + | # crc32.tcl -- Copyright (C) 2002 Pat Thoyts <[email protected]> # # CRC32 Cyclic Redundancy Check. # (for algorithm see http://www.rad.com/networks/1994/err_con/crc.htm) # # From http://mini.net/tcl/2259.tcl # Written by Wayland Augur and Pat Thoyts. # # ------------------------------------------------------------------------- # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # ------------------------------------------------------------------------- |
︙ | |||
365 366 367 368 369 370 371 | 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 | - + | variable e {} foreach e {trf critcl} { if {[LoadAccelerator $e]} break } unset e } |
Changes to modules/crc/sum.tcl.
︙ | |||
9 10 11 12 13 14 15 | 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | - - | # These commands have been checked against the GNU sum program from the GNU # textutils package version 2.0 to ensure the same results. # # ------------------------------------------------------------------------- # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # ------------------------------------------------------------------------- |
︙ | |||
265 266 267 268 269 270 271 | 263 264 265 266 267 268 269 270 271 272 273 274 275 276 | - + | } return [format $opts(-format) $r] } # ------------------------------------------------------------------------- |
Changes to modules/des/des.tcl.
︙ | |||
13 14 15 16 17 18 19 | 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | - + - - + | package require Tcl 8.2 if {[catch {package require tclDES 1.0.0}]} { package require tclDESjr 1.0.0 } namespace eval DES { |
︙ | |||
259 260 261 262 263 264 265 | 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 | - + | set r [Hex $r] } return $r } # ------------------------------------------------------------------------- |
Changes to modules/devtools/testutilities.tcl.
1 2 3 4 5 | 1 2 3 4 5 6 7 8 9 10 11 12 | - | # -*- tcl -*- # Testsuite utilities / boilerplate # Copyright (c) 2006, Andreas Kupries <[email protected]> namespace eval ::tcllib::testutils { |
︙ | |||
714 715 716 717 718 719 720 | 713 714 715 716 717 718 719 720 721 722 | - + | # ### ### ### ######### ######### ######### ## ::tcllib::testutils::SaveEnvironment # ### ### ### ######### ######### ######### |
Changes to modules/dns/dns.tcl.
︙ | |||
24 25 26 27 28 29 30 | 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 | - - - - - | # # - Read RFC 2136 - dynamic updating of DNS # # ------------------------------------------------------------------------- # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # ------------------------------------------------------------------------- |
︙ | |||
1410 1411 1412 1413 1414 1415 1416 | 1405 1406 1407 1408 1409 1410 1411 1412 1413 1414 1415 1416 1417 | - + | return "dns:$query" } # ------------------------------------------------------------------------- catch {dns::configure -nameserver [lindex [dns::nameservers] 0]} |
Changes to modules/dns/ip.tcl.
1 2 3 4 5 6 7 8 9 10 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | - - - - - | # ip.tcl - Copyright (C) 2004 Pat Thoyts <[email protected]> # # Internet address manipulation. # # RFC 3513: IPv6 addressing. # # ------------------------------------------------------------------------- # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # ------------------------------------------------------------------------- |
︙ | |||
546 547 548 549 550 551 552 | 541 542 543 544 545 546 547 548 549 550 551 552 553 | - + | # ------------------------------------------------------------------------- # Load extended command set. source [file join [file dirname [info script]] ipMore.tcl] # ------------------------------------------------------------------------- |
Changes to modules/dns/resolv.tcl.
︙ | |||
12 13 14 15 16 17 18 | 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | - - - - - | # has no expiration on host name resolutions, but this is probably # enough for short lived applications. # # ------------------------------------------------------------------------- # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # ------------------------------------------------------------------------- |
︙ | |||
242 243 244 245 246 247 248 | 237 238 239 240 241 242 243 244 245 246 247 248 249 | - + | return -code error "dns error: $err" } return $ip } # ------------------------------------------------------------------------- |
Changes to modules/dns/spf.tcl.
︙ | |||
15 16 17 18 19 20 21 | 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | - - - - - | # oreilly.com - mx, ptr, include # motleyfool.com - include (looping includes) # # ------------------------------------------------------------------------- # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # ------------------------------------------------------------------------- |
︙ | |||
521 522 523 524 525 526 527 | 516 517 518 519 520 521 522 523 524 525 526 527 528 | - + | set r [Resolve $domain MX ::dns::name] return [lsort -index 0 $r] } # ------------------------------------------------------------------------- |
Changes to modules/http/autoproxy.tcl.
︙ | |||
15 16 17 18 19 20 21 | 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | - - - - | # autoproxy::init # set tok [http::geturl http://wiki.tcl.tk/] # http::data $tok # # To support https add: # package require tls # http::register https 443 ::autoproxy::tls_socket |
︙ | |||
529 530 531 532 533 534 535 | 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 | - + | set state(tls_status) [tls::status $s] return $s } # ------------------------------------------------------------------------- |
Changes to modules/irc/irc.tcl.
1 2 3 4 5 6 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | - - - - - + | # irc.tcl -- # # irc implementation for Tcl. # # Copyright (c) 2001-2003 by David N. Welton <[email protected]>. # This code may be distributed under the same terms as Tcl. |
︙ | |||
518 519 520 521 522 523 524 | 514 515 516 517 518 519 520 521 522 523 | - + | set returncommand [format "%s::irc%s::network" [namespace current] $conn] incr conn return $returncommand } # ------------------------------------------------------------------------- |
Changes to modules/irc/picoirc.tcl.
︙ | |||
9 10 11 12 13 14 15 | 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | - + - - - - + + + | # Copyright (c) 2004 Richard Suchenwirth # Copyright (c) 2007 Patrick Thoyts # # ------------------------------------------------------------------------- # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # ------------------------------------------------------------------------- |
︙ | |||
263 264 265 266 267 268 269 | 262 263 264 265 266 267 268 269 270 271 | - + | if {[catch {Callback $context debug write $line}] != 3} { puts $irc(socket) $line } } # ------------------------------------------------------------------------- |
Changes to modules/math/math.tcl.
1 2 3 4 5 6 7 8 9 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | - - - - - | # math.tcl -- # # Main 'package provide' script for the package 'math'. # # Copyright (c) 1998-2000 by Ajuba Solutions. # Copyright (c) 2002 by Kevin B. Kenny. All rights reserved. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. |
︙ | |||
41 42 43 44 45 46 47 | 36 37 38 39 40 41 42 43 44 | - + | lappend ::auto_path $home } } else { source [file join [file dirname [info script]] misc.tcl] source [file join [file dirname [info script]] combinatorics.tcl] } |
Changes to modules/md4/md4.tcl.
1 2 3 4 5 6 7 8 9 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | - - - - - + | # md4.tcl - Copyright (C) 2003 Pat Thoyts <[email protected]> # # This is a Tcl-only implementation of the MD4 hash algorithm as described in # RFC 1320 ( http://www.ietf.org/rfc/rfc1320.txt ) # # ------------------------------------------------------------------------- # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # ------------------------------------------------------------------------- |
︙ | |||
560 561 562 563 564 565 566 | 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 | - + | # Try and load a compiled extension to help. namespace eval ::md4 { variable e {} foreach e {critcl cryptkit} { if {[LoadAccelerator $e]} { break } } unset e } |
Changes to modules/md5/md5x.tcl.
︙ | |||
11 12 13 14 15 16 17 | 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | - - - - - + | # provides support for external compiled implementations either using # critcl (md5c) or Trf. # # ------------------------------------------------------------------------- # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # ------------------------------------------------------------------------- |
︙ | |||
702 703 704 705 706 707 708 | 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 | - + | # Try and load a compiled extension to help. namespace eval ::md5 { variable e foreach e {critcl cryptkit trf} { if {[LoadAccelerator $e]} { break } } unset e } |
Changes to modules/md5crypt/md5crypt.tcl.
1 2 3 4 5 6 7 8 9 10 | 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 28 | - - - | # md5crypt.tcl - Copyright (C) 2003 Pat Thoyts <[email protected]> # # This file provides a pure tcl implementation of the BSD MD5 crypt algorithm. # The implementation is based upon the OpenBSD code which is in turn based upon # the original code by Poul-Henning Kamp. # # ------------------------------------------------------------------------- # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # ------------------------------------------------------------------------- |
︙ | |||
142 143 144 145 146 147 148 | 139 140 141 142 143 144 145 146 147 148 149 150 151 152 | - + | } else { interp alias {} ::md5crypt::md5crypt {} ::md5crypt::md5crypt_c {$1$} interp alias {} ::md5crypt::aprcrypt {} ::md5crypt::md5crypt_c {$apr1$} } # ------------------------------------------------------------------------- |
Changes to modules/mime/smtp.tcl.
︙ | |||
26 27 28 29 30 31 32 | 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 | - - - - + + | # error: error during read # line: response read from server # crP: just put a \r in the data # nlP: just put a \n in the data # size: number of octets sent in DATA # |
︙ | |||
1498 1499 1500 1501 1502 1503 1504 | 1496 1497 1498 1499 1500 1501 1502 1503 1504 1505 1506 1507 1508 | - + | error "unknown boolean value: $value" } } } # ------------------------------------------------------------------------- |
Changes to modules/ntp/time.tcl.
1 2 3 4 5 6 7 8 9 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | - - - - - | # time.tcl - Copyright (C) 2003 Pat Thoyts <[email protected]> # # Client for the Time protocol. See RFC 868 # Client for Simple Network Time Protocol - RFC 2030 # # ------------------------------------------------------------------------- # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # ------------------------------------------------------------------------- |
︙ | |||
374 375 376 377 378 379 380 | 369 370 371 372 373 374 375 376 377 378 379 380 381 382 | - + | set r [lindex $args $nth] set args [lreplace $args $nth $nth] return $r } # ------------------------------------------------------------------------- |
Changes to modules/otp/otp.tcl.
1 2 3 4 5 6 7 8 9 10 11 12 13 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | - - - | # otp.tcl - Copyright (C) 2006 Pat Thoyts <[email protected]> # # Tcl implementation of RFC 2289: A One-Time Password System # # ------------------------------------------------------------------------- # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # ------------------------------------------------------------------------- package require Tcl 8.2; # tcl minimum version namespace eval ::otp { |
︙ | |||
420 421 422 423 424 425 426 | 417 418 419 420 421 422 423 424 425 426 427 428 429 430 | - + | proc ::otp::otp-rmd160 {args} { package require ripemd160 return [eval [linsert $args 0 [namespace current]::otp -hash rmd160]] } # ------------------------------------------------------------------------- |
Changes to modules/pop3d/pop3d.tcl.
1 2 3 4 5 6 7 8 9 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | - - + + | # pop3d.tcl -- # # Implementation of a pop3 server for Tcl. # # Copyright (c) 2002-2009 by Andreas Kupries # Copyright (c) 2005 by Reinhard Max (-socket option) # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. |
︙ | |||
60 61 62 63 64 65 66 | 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 | - + | "cget" \ "configure" \ "destroy" \ "down" \ "up" \ ] |
︙ | |||
1140 1141 1142 1143 1144 1145 1146 | 1140 1141 1142 1143 1144 1145 1146 1147 | - + - | } else { proc ::pop3d::Md5 {text} {string tolower [md5::md5 -hex $text]} } unset major ########################## # Module initialization |
Changes to modules/pop3d/pop3d_dbox.tcl.
1 2 3 4 5 6 7 8 9 10 11 12 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | - - | # -*- tcl -*- # pop3d_dbox.tcl -- # # Implementation of a simple mailbox database for the pop3 server # Each mailbox is a a directory in a base directory, with each mail # a file in that directory. The mail file contains both headers and # body of the mail. # # Copyright (c) 2002 by Andreas Kupries # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. |
︙ | |||
38 39 40 41 42 43 44 | 36 37 38 39 40 41 42 43 44 45 46 47 48 49 | - - | "locked" \ "move" \ "remove" \ "size" \ "stat" \ "unlock" \ ] |
︙ | |||
482 483 484 485 486 487 488 | 478 479 480 481 482 483 484 485 | - + | } return $dir } ########################## # Module initialization |
Changes to modules/pop3d/pop3d_udb.tcl.
1 2 3 4 5 6 7 8 9 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | - - | # -*- tcl -*- # pop3d_udb.tcl -- # # Implementation of a simple user database for the pop3 server # # Copyright (c) 2002 by Andreas Kupries # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. |
︙ | |||
27 28 29 30 31 32 33 | 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | - - | "lookup" \ "read" \ "remove" \ "rename" \ "save" \ "who" \ ] |
︙ | |||
297 298 299 300 301 302 303 | 293 294 295 296 297 298 299 300 | - + | return } ########################## # Module initialization |
Changes to modules/rc4/rc4.tcl.
1 2 3 4 5 6 7 8 9 10 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | - - - - - | # rc4.tcl - Copyright (C) 2004 Pat Thoyts <[email protected]> # # RC4 is a symmetric stream cipher developed by Ron Rivest of RSA Data # Security Inc. The algorithm was a trade secret of RSA but was reverse # engineered and published to the internet in 1994. This pure Tcl # implementation is based on the description of the algorithm. # # The algorithm is a pseudo-random number generator with the output of # the PRNG being xored with the plaintext stream. Decryption is done # by feeding the ciphertext as input with the same key. |
︙ | |||
414 415 416 417 418 419 420 | 409 410 411 412 413 414 415 416 417 418 419 420 421 422 | - + | } elseif {[package vcompare [package provide Tcl] 8.4] < 0} { SelectImplementation array } else { SelectImplementation list } } |
Changes to modules/ripemd/ripemd128.tcl.
︙ | |||
18 19 20 21 22 23 24 | 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | - - - - - + | # RFC 2286, ``Test cases for HMAC-RIPEMD160 and HMAC-RIPEMD128,'' # Internet Request for Comments 2286, J. Kapp, # # ------------------------------------------------------------------------- # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # ------------------------------------------------------------------------- |
︙ | |||
722 723 724 725 726 727 728 | 718 719 720 721 722 723 724 725 726 727 728 729 730 731 | - + | variable e {} foreach e {trf} { if {[LoadAccelerator $e]} break } unset e } |
Changes to modules/ripemd/ripemd160.tcl.
︙ | |||
18 19 20 21 22 23 24 | 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | - - - - - + | # RFC 2286, ``Test cases for HMAC-RIPEMD160 and HMAC-RIPEMD128,'' # Internet Request for Comments 2286, J. Kapp, # # ------------------------------------------------------------------------- # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # ------------------------------------------------------------------------- |
︙ | |||
855 856 857 858 859 860 861 | 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 | - + | variable e {} foreach e {cryptkit trf} { if {[LoadAccelerator $e]} break } unset e } |
Changes to modules/sasl/gtoken.tcl.
︙ | |||
13 14 15 16 17 18 19 | 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | - - | package require Tcl 8.2 package require SASL package require http package require tls namespace eval ::SASL { namespace eval XGoogleToken { |
︙ | |||
81 82 83 84 85 86 87 | 79 80 81 82 83 84 85 86 87 88 89 90 91 92 | - + | # Register this SASL mechanism with the Tcllib SASL package. # if {[llength [package provide SASL]] != 0} { ::SASL::register X-GOOGLE-TOKEN 40 ::SASL::XGoogleToken::client } |
Changes to modules/sasl/ntlm.tcl.
︙ | |||
14 15 16 17 18 19 20 | 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | - - | package require Tcl 8.2; # tcl minimum version package require SASL 1.0; # tcllib 1.7 package require des 1.0; # tcllib 1.8 package require md4; # tcllib 1.4 namespace eval ::SASL { namespace eval NTLM { |
︙ | |||
364 365 366 367 368 369 370 | 362 363 364 365 366 367 368 369 370 371 372 373 374 375 | - + | # Register this SASL mechanism with the Tcllib SASL package. # if {[llength [package provide SASL]] != 0} { ::SASL::register NTLM 50 ::SASL::NTLM::NTLM } |
Changes to modules/sasl/sasl.tcl.
︙ | |||
12 13 14 15 16 17 18 | 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | - - - | # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # ------------------------------------------------------------------------- package require Tcl 8.2 namespace eval ::SASL { |
︙ | |||
672 673 674 675 676 677 678 | 669 670 671 672 673 674 675 676 677 678 679 680 681 682 | - + | return $cont } ::SASL::register OTP 45 ::SASL::OTP:client # ------------------------------------------------------------------------- |
Changes to modules/sasl/scram.tcl.
︙ | |||
9 10 11 12 13 14 15 | 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | - + - - | # ------------------------------------------------------------------------- package require Tcl 8.2 package require SASL package require sha1 package require base64 |
︙ | |||
491 492 493 494 495 496 497 | 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 | - + | # Register the SCRAM-SHA-1 SASL mechanism with the Tcllib SASL package ::SASL::register SCRAM-SHA-1 50 ::SASL::SCRAM::SHA-1:client ::SASL::SCRAM::SHA-1:server # ------------------------------------------------------------------------- |
Changes to modules/sha1/sha1.tcl.
︙ | |||
16 17 18 19 20 21 22 | 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | - - - - - - + | # # ref: http://www.itl.nist.gov/fipspubs/fip180-1.htm # # ------------------------------------------------------------------------- # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # ------------------------------------------------------------------------- |
︙ | |||
805 806 807 808 809 810 811 | 800 801 802 803 804 805 806 807 808 809 810 811 812 813 | - + | SwitchTo $e break } } unset e } |
Changes to modules/sha1/sha1v1.tcl.
︙ | |||
16 17 18 19 20 21 22 | 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 | - - - - - - + | # # ref: http://www.itl.nist.gov/fipspubs/fip180-1.htm # # ------------------------------------------------------------------------- # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # ------------------------------------------------------------------------- |
︙ | |||
700 701 702 703 704 705 706 | 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 | - + | # Try and load a compiled extension to help. namespace eval ::sha1 { variable e {} foreach e {critcl cryptkit trf} { if {[LoadAccelerator $e]} { break } } unset e } |
Changes to modules/sha1/sha256.tcl.
︙ | |||
16 17 18 19 20 21 22 | 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | - - - - - | # Ref: http://csrc.nist.gov/publications/fips/fips180-2/fips180-2.pdf # http://csrc.nist.gov/publications/fips/fips180-2/fips180-2withchangenotice.pdf # # ------------------------------------------------------------------------- # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # ------------------------------------------------------------------------- |
︙ | |||
824 825 826 827 828 829 830 | 819 820 821 822 823 824 825 826 827 828 829 830 831 832 | - + | SwitchTo $e break } } unset e } |
Changes to modules/smtpd/smtpd.tcl.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | 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 28 29 | + - + - - + | # smtpd.tcl - Copyright (C) 2001 Pat Thoyts <[email protected]> # # This provides a minimal implementation of the Simple Mail Tranfer Protocol # as per RFC821 and RFC2821 (http://www.normos.org/ietf/rfc/rfc821.txt) and # is designed for use during local testing of SMTP client software. # # ------------------------------------------------------------------------- # This software is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY # or FITNESS FOR A PARTICULAR PURPOSE. See the file 'license.terms' for # more details. # ------------------------------------------------------------------------- # @mdgen EXCLUDE: clients/mail-test.tcl package require Tcl 8.3; # tcl minimum version package require logger; # tcllib 1.3 package require mime; # tcllib |
︙ | |||
913 914 915 916 917 918 919 | 913 914 915 916 917 918 919 920 921 922 923 924 | - - - | default { Log warn "bad option \"$option\" in smtpd::callback" } } } # ------------------------------------------------------------------------- |
Changes to modules/tepam/tepam.tcl.
︙ | |||
14 15 16 17 18 19 20 | 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | - - - - | # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. ########################################################################## package require Tcl 8.3 namespace eval tepam { |
︙ | |||
2709 2710 2711 2712 2713 2714 2715 | 2705 2706 2707 2708 2709 2710 2711 2712 2713 2714 2715 2716 2717 2718 2719 | - + | } } } }; # End namespace tepam # Specify the TEPAM version that is provided by this file: |
︙ |
Changes to modules/tepam/tepam_doc_gen.tcl.
︙ | |||
11 12 13 14 15 16 17 | 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | - - - - | # of this file, and for a DISCLAIMER OF ALL WARRANTIES. ########################################################################## package require Tcl 8.3 package require tepam 0.5 namespace eval tepam::doc_gen { |
︙ | |||
733 734 735 736 737 738 739 | 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 | - + | proc gen(DT,ExampleResultLine) {Text} {return "[Dtformat $Text]\n"} proc gen(DT,ExampleEnd) {} {return "\}\]\n"} proc gen(DT,Footer) {Text} {return "\[manpage_end\]"} }; # End namespace tepam::doc # Specify the TEPAM version that is provided by this file: |
Changes to modules/uri/urn-scheme.tcl.
1 2 3 4 5 6 7 8 9 10 11 12 13 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | - + - - | # urn-scheme.tcl - Copyright (C) 2001 Pat Thoyts <[email protected]> # # extend the uri package to deal with URN (RFC 2141) # see http://www.normos.org/ietf/rfc/rfc2141.txt # # Released under the tcllib license. # # $Id: urn-scheme.tcl,v 1.11 2005/09/28 04:51:24 andreas_kupries Exp $ # ------------------------------------------------------------------------- package require uri 1.1.2 namespace eval ::uri {} |
︙ | |||
133 134 135 136 137 138 139 | 131 132 133 134 135 136 137 138 139 140 141 142 143 | - + | variable URNpart "($NIDpart):($NSSpart)" variable schemepart $URNpart variable url "urn:$NIDpart:$NSSpart" } # ------------------------------------------------------------------------- |
Changes to modules/uuid/uuid.tcl.
︙ | |||
8 9 10 11 12 13 14 | 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | - | # 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 { |
︙ | |||
222 223 224 225 226 227 228 | 221 222 223 224 225 226 227 228 229 230 231 232 233 234 | - + | variable e {} foreach e {critcl} { if {[LoadAccelerator $e]} break } unset e } |