cut back on overloading: set -> getv + setv

diff --git a/tclpkg/gv/test.rb b/tclpkg/gv/test.rb
index 0b46d0fe55f043830054fd901eff581b7f29b258..77dfe6b15740143ac6c43f354c3cfa80674d9560 100644 (file)
--- a/tclpkg/gv/test.rb
+++ b/tclpkg/gv/test.rb
@@ -3,17 +3,17 @@
 require 'gv'
 
 g = Gv.digraph("G")
-print(Gv::set(g, "aaa", "xxx"), "\n")
-print(Gv::set(g, "aaa"), "\n")
+print(Gv::setv(g, "aaa", "xxx"), "\n")
+print(Gv::getv(g, "aaa"), "\n")
 n = Gv.node(g,"hello")
-print(Gv::set(n, "label"), "\n")
-print(Gv::set(n, "aaa", "xxx"), "\n")
-print(Gv::set(n, "aaa"), "\n")
+print(Gv::getv(n, "label"), "\n")
+print(Gv::setv(n, "aaa", "xxx"), "\n")
+print(Gv::getv(n, "aaa"), "\n")
 m = Gv.node(g,"world")
-print(Gv::set(m, "aaa"), "\n")
+print(Gv::getv(m, "aaa"), "\n")
 e = Gv.edge(n,m)
-print(Gv::set(e, "aaa", "xxx"), "\n")
-print(Gv::set(e, "aaa"), "\n")
+print(Gv::setv(e, "aaa", "xxx"), "\n")
+print(Gv::getv(e, "aaa"), "\n")
 Gv.rm(e)
 Gv.rm(n)
 Gv.rm(m)

diff --git a/tclpkg/gv/test.tcl b/tclpkg/gv/test.tcl
index 61d2abd9015e1d0396bae19ee3647bdacbdebcc9..1e71c75f1553454235a58deaa83acf20bf276a41 100644 (file)
--- a/tclpkg/gv/test.tcl
+++ b/tclpkg/gv/test.tcl
@@ -3,18 +3,18 @@
 load libgv_tcl.so gv
 
 set g [gv::digraph G]
-puts [gv::set $g aaa xxx]
-puts [gv::set $g aaa]
+puts [gv::setv $g aaa xxx]
+puts [gv::getv $g aaa]
 set sg [gv::graph $g SG]
 set n [gv::node $g hello]
-puts [gv::set $n label]
-puts [gv::set $n aaa xxx]
-puts [gv::set $n aaa]
+puts [gv::getv $n label]
+puts [gv::setv $n aaa xxx]
+puts [gv::getv $n aaa]
 set m [gv::node $g world]
-puts [gv::set $m aaa]
+puts [gv::getv $m aaa]
 set e [gv::edge $n $m]
-puts [gv::set $e aaa xxx]
-puts [gv::set $e aaa]
+puts [gv::setv $e aaa xxx]
+puts [gv::getv $e aaa]
 gv::rm $e
 gv::rm $n
 gv::rm $m
@@ -27,14 +27,14 @@ set g [gv::read hello.dot]
 for {set n [gv::firstnode $g]} {[gv::ok $n]} {set n [gv::nextnode $g $n]} {
     puts [gv::nameof $n]
     for {set a [gv::firstattr $n]} {[gv::ok $a]} {set a [gv::nextattr $n $a]} {
-        puts "    [gv::nameof $a] [gv::set $n $a]"
+        puts "    [gv::nameof $a] [gv::getv $n $a]"
     }
 }
 for {set n [gv::firstnode $g]} {[gv::ok $n]} {set n [gv::nextnode $g $n]} {
     for {set e [gv::firstout $n]} {[gv::ok $e]} {set e [gv::nextout $n $e]} {
        puts "[gv::nameof $n] -> [gv::nameof [gv::headof $e]]"
        for {set a [gv::firstattr $e]} {[gv::ok $a]} {set a [gv::nextattr $e $a]} {
-           puts "    [gv::nameof $a] [gv::set $e $a]"
+           puts "    [gv::nameof $a] [gv::getv $e $a]"
        }
     }
 }