# # patch "Makefile" # from [1006477d6c9773635c9f8f85893b323fd0237db5] # to [473b5d39237dbd706049a1879888aea2f93b957b] # # patch "README" # from [90c6b1e59affd24a1a0fcc844980140dd518e456] # to [e5cbc58372ee38f678c2084bb336dc807a183063] # # patch "main.ml" # from [c4252b62386dbca252641e1cca98cb4509ccc0b3] # to [171b8de171d32ae021b3ed083a57f12dbbf5ce35] # --- Makefile +++ Makefile @@ -1,6 +1,9 @@ include config.make +NAME = git-viz +VERSION = 0.1 + OCAMLNET := ocamlnet-0.97.1 EXTLIB := extlib-1.3 @@ -30,7 +33,7 @@ OBJX = $(patsubst %.ml,%.cmx,$(filter %.ml, $(SRC))) DISTSRC = Makefile configure.ac config.make.in ocaml.m4 configure aclocal.m4 \ - monotone-viz.style.sample README NEWS \ + monotone-viz.style.sample README INSTALL NEWS \ viz_misc.ml viz_misc.mli viz_types.ml viz_types.mli q.ml q.mli \ autocolor.ml autocolor.mli viz_style.ml viz_style.mli heap.ml heap.mli \ dot_types.mli dot_lexer.mll dot_parser.mly \ --- README +++ README @@ -1,9 +1,8 @@ -Monotone-viz -============ +Git-viz +======= -This is a small GNOME application to visualize monotone ancestry -graphs. +This is a small GNOME application to visualize git ancestry graphs. REQUIREMENTS @@ -13,7 +12,6 @@ - GTK+ 2.4, libgnomecanvas To compile from sources, you'll also need: -- a compiled monotone source tree - ocaml compiler (>= 3.07) - LablGTK 2.4.0 or lablgtk-20041119 or lablgtk-20050218 - libcrypto, from the openssl toolkit @@ -25,24 +23,18 @@ - if you've pulled this from the monotone repository, run `aclocal -I . && autoconf' to generate configure - run ./configure, with the following options if needed : - --with-monotone-dir --with-lablgtk-dir - make -- install the binary monotone-viz somewhere +- install the binary git-viz somewhere RUNNING ======= -usage: monotone-viz [options] [db [branch]] +usage: git-viz [options] [git-controlled directory] options: -noaa don't use an anti-aliased canvas -If db and branch are not specified on the command line and -monotone-viz is run from a monotone-controlled directory (i.e. with a -MT/ subdirectory), it will automatically use the database and branch -specified in the MT/options file. - STYLE FILE ========== Appearance can be controlled via a style file, named --- main.ml +++ main.ml @@ -1,14 +1,5 @@ open Viz_misc -let unquote s = - if s.[0] = '"' - then - let len = String.length s in - Revision_lexer.string - (Buffer.create len) - (Lexing.from_string (String.sub s 1 (len - 1))) - else s - let parse_options args = match args with | db :: _ -> Some db