Class ::ns_crypto::HashFunctions (public)

 ::nx::Class ::ns_crypto::HashFunctions

Defined in

Testcases:

No testcase defined.

Source code:

namespace eval ::ns_crypto {}
::nsf::object::alloc ::nx::Class ::ns_crypto::HashFunctions {}
::ns_crypto::HashFunctions public method readfile {{-encoding hex} filename} {
        #
        # Read a file blockwise and call the incremental crypto
        # function on every block.
        #
        set F [open $filename]
        fconfigure $F -translation binary
        while (1) {
            set block [read $F 32768]
            :add $block
            if {[string length $block] < 32768} {
                break
            }
        }
        close $F
        #
        # Return the hash sum
        #
        return [:get -encoding $encoding]
    }


::nx::slotObj -container slot ::ns_crypto::HashFunctions

::nsf::object::alloc ::nx::VariableSlot ::ns_crypto::HashFunctions::slot::digest {set :accessor none
   set :configurable true
   set :convert false
   set :default sha256
   set :defaultmethods {}
   set :disposition alias
   set :domain ::ns_crypto::HashFunctions
   set :incremental 0
   set :manager ::ns_crypto::HashFunctions::slot::digest
   set :methodname digest
   set :multiplicity 1..1
   set :name digest
   set :per-object false
   set :position 0
   set :required false
   set :trace none
   : init}

::nsf::object::alloc ::nx::VariableSlot ::ns_crypto::HashFunctions::slot::ctx {set :accessor none
   set :configurable false
   set :convert false
   set :defaultmethods {}
   set :disposition alias
   set :domain ::ns_crypto::HashFunctions
   set :incremental 0
   set :manager ::ns_crypto::HashFunctions::slot::ctx
   set :methodname ctx
   set :multiplicity 1..1
   set :name ctx
   set :per-object false
   set :position 0
   set :required false
   set :trace none
   : init}

XQL Not present:

Generic, PostgreSQL, Oracle