Created by [CecilWesterhof].

'''Getting an UUID on a *NIX System'''

There are some problems with getting the UUID (type 4) on *NIX systems. For one they are not really random.

Because of this I created the following function:
======
proc getUUIDNix {{secure False}} {
    set fortyeightBits [expr {2 ** 48 - 1}]
    set sixteenBits    [expr {2 ** 16 - 1}]
    set thirtytwoBits  [expr {2 ** 32 - 1}]
    set twelfBits      [expr {2 ** 12 - 1}]

    format %.8x-%.4x-4%.3x-%x%.3x-%.12x \
        [getRandomIntInRangeNix 0 ${thirtytwoBits}] \
        [getRandomIntInRangeNix 0 ${sixteenBits}]   \
        [getRandomIntInRangeNix 0 ${twelfBits}]     \
        [getRandomIntInRangeNix 8 11]               \
        [getRandomIntInRangeNix 0 ${twelfBits}]     \
        [getRandomIntInRangeNix 0 ${fortyeightBits} False True]
}
======

It uses getRandomIntInRangeNix from [Random Integers].

----

As always: comments, tips and questions are appreciated.

----
'''[ak] - 2018-05-31 18:28:08'''

See also https://core.tcl.tk/tcllib/doc/trunk/embedded/www/tcllib/files/modules/uuid/uuid.html

<<categories>>Linux | Utilities