39 Add IP::addr (partial)

[nhemingway]

No description provided.

[landro]

@nhemingway did you try running the tests with ./tests.sh tclsh? it seems there is an issue related to recursion?

self-referential recursion in "unknown" for command "uplevel"
    while executing
"uplevel 1 {::namespace current}"
    (autoloading "uplevel")
    (procedure "::unknown" line 30)
    invoked from within
"uplevel 1 [list ::source -encoding utf-8 $langfile]"
    (procedure "::msgcat::mcload" line 10)
    invoked from within
"::msgcat::mcload [file join [file dirname [info script]] msgs]"
    (in namespace eval "::ip" script line 2)
    invoked from within
"namespace eval ::ip {
    ::msgcat::mcload [file join [file dirname [info script]] msgs]
}"
    (file "/System/Library/Tcl/tcllib1.12/dns/ipMore.tcl" line 63)
    invoked from within
"source [file join [file dirname [info script]] ipMore.tcl]"
    (file "/System/Library/Tcl/tcllib1.12/dns/ip.tcl" line 548)
    invoked from within
"source /System/Library/Tcl/tcllib1.12/dns/ip.tcl"
    ("package ifneeded ip 1.2" script)
    invoked from within
"package require ip"
    (file "src/ip.tcl" line 3)
    invoked from within
"source src/ip.tcl"
    (file "test/test_ip.tcl" line 1)