working on ruby demo

diff --git a/tclpkg/gv/Makefile.am b/tclpkg/gv/Makefile.am
index 1f67dd3629a842344a434bf5746818f032aedff3..051d24bd9db3fbc718358397697b6d08db9187c3 100644 (file)
--- a/tclpkg/gv/Makefile.am
+++ b/tclpkg/gv/Makefile.am
@@ -167,16 +167,20 @@ pkgIndex.tcl: libgv_tcl.la
        sh $(top_srcdir)/tclpkg/mkpkgindex.sh libgv_tcl.la gv $(VERSION)
 endif
 
-gv_csharp.man gv_guile.man gv_io.man gv_java.man gv_ocaml.man gv_perl.man gv_php.man gv_python.man gv_ruby.man gv_tcl.man: gv.i gv_doc_writer.tcl gv_doc_template.tcl gv_doc_langs.tcl
+gv_csharp.man gv_guile.man gv_io.man gv_java.man gv_lua.man \
+gv_ocaml.man gv_perl.man gv_php.man gv_python.man gv_ruby.man \
+gv_tcl.man: gv.i gv_doc_writer.tcl gv_doc_template.tcl gv_doc_langs.tcl
        tclsh ./gv_doc_writer.tcl
 
 install-exec-hook:
+       (cd $(DESTDIR)$(pkgluadir);    rm -f gv.so;  $(LN_S) libgv_lua.so gv.so;)
        (cd $(DESTDIR)$(pkgperldir);   rm -f gv.so;  $(LN_S) libgv_perl.so gv.so;)
        (cd $(DESTDIR)$(pkgpythondir); rm -f _gv.so; $(LN_S) libgv_python.so _gv.so;)
        (cd $(DESTDIR)$(pkgrubydir);   rm -f gv.so;  $(LN_S) libgv_ruby.so gv.so;)
        (cd $(DESTDIR)$(pkgtcldir);    rm -f gv.so;  $(LN_S) libgv_tcl.so gv.so;)
 
 uninstall-hook:
+       (cd $(DESTDIR)$(pkgluadir);    rm -f gv.so;)
        (cd $(DESTDIR)$(pkgperldir);   rm -f gv.so;)
        (cd $(DESTDIR)$(pkgpythondir); rm -f _gv.so;)
        (cd $(DESTDIR)$(pkgrubydir);   rm -f gv.so;)

diff --git a/tclpkg/gv/demo/modgraph.lua b/tclpkg/gv/demo/modgraph.lua
index 36e02656e48aea9439cde181794daa2450a2ffc3..1c98a82baf0e48ce7e6d66d33da5d3dfca5a166f 100755 (executable)
--- a/tclpkg/gv/demo/modgraph.lua
+++ b/tclpkg/gv/demo/modgraph.lua
@@ -4,8 +4,8 @@
 
 -- author: John Ellson <ellson@research.att.com>
 
-lib = loadlib('/usr/lib/graphviz/lua/libgv_lua.so','Gv_Init')
--- lib = loadlib('/usr/lib64/graphviz/lua/libgv_lua.so','Gv_Init')
+lib = loadlib('/usr/lib/graphviz/lua/gv.so','Gv_Init')
+-- lib = loadlib('/usr/lib64/graphviz/lua/gv.so','Gv_Init')
 assert(lib)()
 
 modules = io.lines('/proc/modules') 

diff --git a/tclpkg/gv/demo/modgraph.rb b/tclpkg/gv/demo/modgraph.rb
index 26ba762fbd7bf1f4f7825b031e9ed582ec020e39..05cd096a1ccf881249cce27802458e12ca494114 100755 (executable)
--- a/tclpkg/gv/demo/modgraph.rb
+++ b/tclpkg/gv/demo/modgraph.rb
@@ -17,7 +17,12 @@ Gv.setv(G, 'node', 'fontsize', '8')
 Gv.setv(G, 'node', 'fontname', 'helvetica')
 Gv.setv(G, 'edge', 'arrowsize', '.4')
 
-# for rec in modules do
+f = File.open('/proc/modules', mode="r")
+while ! f.eof do
+       rec = f.gets()
+
+#FIXME - complete translation to ruby
+
 #    for mod, usedbylist in string.gfind(rec, "([_%w]+) %w+ %w+ ([-,_%w]+)") do
 #       n = gv.node(G, mod)
 #       for usedby in string.gfind(usedbylist, "([-_%w]+)") do
@@ -26,7 +31,9 @@ Gv.setv(G, 'edge', 'arrowsize', '.4')
 #          end
 #       end
 #    end
-# end
+
+end    
+f.close
 
 Gv.layout(G, 'dot')
 Gv.render(G, 'gtk')

diff --git a/tclpkg/gv/gv_doc_langs.tcl b/tclpkg/gv/gv_doc_langs.tcl
index 2ed7c72baf34a5831efaa3e49895aabc4a59a009..8497b0079a83f04a1075e48cfa8fa31851968d58 100644 (file)
--- a/tclpkg/gv/gv_doc_langs.tcl
+++ b/tclpkg/gv/gv_doc_langs.tcl
@@ -21,6 +21,25 @@ array set LANGS {
        }
        guile {
                TYPES {
+                       {Agraph_t* g} graph_handle
+                       {Agraph_t* sg} subgraph_handle
+                       {Agnode_t* n} node_handle
+                       {Agnode_t* t} tail_node_handle
+                       {Agnode_t* h} head_node_handle
+                       {Agedge_t* e} edge_handle
+                       {Agsym_t* a} attr_handle
+                       {char* gne} type
+                       {char* name} name
+                       {char* tname} tail_name
+                       {char* hname} head_name
+                       {char* attr} attr_name
+                       {char* val} attr_value
+                       {char* filename} filename
+                       {char* engine} engine
+                       {char* string} string
+                       {char* format} format
+                       {FILE* f} channel
+                       {void** data} data_handle
                        Agraph_t* graph_handle
                        Agnode_t* node_handle
                        Agedge_t* edge_handle
@@ -42,6 +61,25 @@ array set LANGS {
        }
        io {
                TYPES {
+                       {Agraph_t* g} graph_handle
+                       {Agraph_t* sg} subgraph_handle
+                       {Agnode_t* n} node_handle
+                       {Agnode_t* t} tail_node_handle
+                       {Agnode_t* h} head_node_handle
+                       {Agedge_t* e} edge_handle
+                       {Agsym_t* a} attr_handle
+                       {char* gne} type
+                       {char* name} name
+                       {char* tname} tail_name
+                       {char* hname} head_name
+                       {char* attr} attr_name
+                       {char* val} attr_value
+                       {char* filename} filename
+                       {char* engine} engine
+                       {char* string} string
+                       {char* format} format
+                       {FILE* f} channel
+                       {void** data} data_handle
                        Agraph_t* graph_handle
                        Agnode_t* node_handle
                        Agedge_t* edge_handle
@@ -83,6 +121,25 @@ array set LANGS {
        }
        lua {
                TYPES {
+                       {Agraph_t* g} graph_handle
+                       {Agraph_t* sg} subgraph_handle
+                       {Agnode_t* n} node_handle
+                       {Agnode_t* t} tail_node_handle
+                       {Agnode_t* h} head_node_handle
+                       {Agedge_t* e} edge_handle
+                       {Agsym_t* a} attr_handle
+                       {char* gne} type
+                       {char* name} name
+                       {char* tname} tail_name
+                       {char* hname} head_name
+                       {char* attr} attr_name
+                       {char* val} attr_value
+                       {char* filename} filename
+                       {char* engine} engine
+                       {char* string} string
+                       {char* format} format
+                       {FILE* f} channel
+                       {void** data} data_handle
                        Agraph_t* graph_handle
                        Agnode_t* node_handle
                        Agedge_t* edge_handle
@@ -106,6 +163,25 @@ array set LANGS {
        }
        ocaml {
                TYPES {
+                       {Agraph_t* g} graph_handle
+                       {Agraph_t* sg} subgraph_handle
+                       {Agnode_t* n} node_handle
+                       {Agnode_t* t} tail_node_handle
+                       {Agnode_t* h} head_node_handle
+                       {Agedge_t* e} edge_handle
+                       {Agsym_t* a} attr_handle
+                       {char* gne} type
+                       {char* name} name
+                       {char* tname} tail_name
+                       {char* hname} head_name
+                       {char* attr} attr_name
+                       {char* val} attr_value
+                       {char* filename} filename
+                       {char* engine} engine
+                       {char* string} string
+                       {char* format} format
+                       {FILE* f} channel
+                       {void** data} data_handle
                        Agraph_t* graph_handle
                        Agnode_t* node_handle
                        Agedge_t* edge_handle
@@ -126,6 +202,25 @@ array set LANGS {
        }
        perl {
                TYPES {
+                       {Agraph_t* g} graph_handle
+                       {Agraph_t* sg} subgraph_handle
+                       {Agnode_t* n} node_handle
+                       {Agnode_t* t} tail_node_handle
+                       {Agnode_t* h} head_node_handle
+                       {Agedge_t* e} edge_handle
+                       {Agsym_t* a} attr_handle
+                       {char* gne} type
+                       {char* name} name
+                       {char* tname} tail_name
+                       {char* hname} head_name
+                       {char* attr} attr_name
+                       {char* val} attr_value
+                       {char* filename} filename
+                       {char* engine} engine
+                       {char* string} string
+                       {char* format} format
+                       {FILE* f} channel
+                       {void** data} data_handle
                        Agraph_t* graph_handle
                        Agnode_t* node_handle
                        Agedge_t* edge_handle
@@ -148,6 +243,25 @@ array set LANGS {
        }
        php {
                TYPES {
+                       {Agraph_t* g} graph_handle
+                       {Agraph_t* sg} subgraph_handle
+                       {Agnode_t* n} node_handle
+                       {Agnode_t* t} tail_node_handle
+                       {Agnode_t* h} head_node_handle
+                       {Agedge_t* e} edge_handle
+                       {Agsym_t* a} attr_handle
+                       {char* gne} type
+                       {char* name} name
+                       {char* tname} tail_name
+                       {char* hname} head_name
+                       {char* attr} attr_name
+                       {char* val} attr_value
+                       {char* filename} filename
+                       {char* engine} engine
+                       {char* string} string
+                       {char* format} format
+                       {FILE* f} channel
+                       {void** data} data_handle
                        Agraph_t* graph_handle
                        Agnode_t* node_handle
                        Agedge_t* edge_handle
@@ -170,6 +284,25 @@ array set LANGS {
        }
        python {
                TYPES {
+                       {Agraph_t* g} graph_handle
+                       {Agraph_t* sg} subgraph_handle
+                       {Agnode_t* n} node_handle
+                       {Agnode_t* t} tail_node_handle
+                       {Agnode_t* h} head_node_handle
+                       {Agedge_t* e} edge_handle
+                       {Agsym_t* a} attr_handle
+                       {char* gne} type
+                       {char* name} name
+                       {char* tname} tail_name
+                       {char* hname} head_name
+                       {char* attr} attr_name
+                       {char* val} attr_value
+                       {char* filename} filename
+                       {char* engine} engine
+                       {char* string} string
+                       {char* format} format
+                       {FILE* f} channel
+                       {void** data} data_handle
                        Agraph_t* graph_handle
                        Agnode_t* node_handle
                        Agedge_t* edge_handle
@@ -194,6 +327,25 @@ array set LANGS {
        }
        ruby {
                TYPES {
+                       {Agraph_t* g} graph_handle
+                       {Agraph_t* sg} subgraph_handle
+                       {Agnode_t* n} node_handle
+                       {Agnode_t* t} tail_node_handle
+                       {Agnode_t* h} head_node_handle
+                       {Agedge_t* e} edge_handle
+                       {Agsym_t* a} attr_handle
+                       {char* gne} type
+                       {char* name} name
+                       {char* tname} tail_name
+                       {char* hname} head_name
+                       {char* attr} attr_name
+                       {char* val} attr_value
+                       {char* filename} filename
+                       {char* engine} engine
+                       {char* string} string
+                       {char* format} format
+                       {FILE* f} channel
+                       {void** data} data_handle
                        Agraph_t* graph_handle
                        Agnode_t* node_handle
                        Agedge_t* edge_handle