From: ellson Date: Tue, 25 Oct 2005 00:53:21 +0000 (+0000) Subject: working on ruby demo X-Git-Tag: LAST_LIBGRAPH~32^2~7009 X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=441e01553f3015630e0df280bd6208d30ed33d74;p=graphviz working on ruby demo --- diff --git a/tclpkg/gv/Makefile.am b/tclpkg/gv/Makefile.am index 1f67dd362..051d24bd9 100644 --- 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 36e02656e..1c98a82ba 100755 --- a/tclpkg/gv/demo/modgraph.lua +++ b/tclpkg/gv/demo/modgraph.lua @@ -4,8 +4,8 @@ -- author: John Ellson -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 26ba762fb..05cd096a1 100755 --- 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 2ed7c72ba..8497b0079 100644 --- 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