md5::MD5Init (public)

 md5::MD5Init

Defined in packages/acs-tcl/tcl/tcllib-doc-procs.tcl

Initialize a Tcllib incremental MD5 digest.

Returns:

A token for MD5Update and MD5Final.

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

    variable accel
    variable uid
    set token [namespace current]::[incr uid]
    upvar #0 $token state

    # RFC1321:3.3 - Initialize MD5 state structure
    array set state  [list  A [expr {0x67452301}]  B [expr {0xefcdab89}]  C [expr {0x98badcfe}]  D [expr {0x10325476}]  n 0 i "" ]
    if {$accel(cryptkit)} {
        cryptkit::cryptCreateContext state(ckctx) CRYPT_UNUSED CRYPT_ALGO_MD5
    } elseif {$accel(trf)} {
        set s {}
        switch -exact -- $::tcl_platform(platform) {
            windows { set s [open NUL w] }
            unix    { set s [open /dev/null w] }
        }
        if {$s != {}} {
            fconfigure $s -translation binary -buffering none
            ::md5 -attach $s -mode write  -read-type variable  -read-destination [subst $token](trfread)  -write-type variable  -write-destination [subst $token](trfwrite)
            array set state [list trfread 0 trfwrite 0 trf $s]
        }
    }
    return $token

XQL Not present:

Generic, PostgreSQL, Oracle