diff options
| author | herbelin | 2006-05-23 21:51:59 +0000 |
|---|---|---|
| committer | herbelin | 2006-05-23 21:51:59 +0000 |
| commit | e24d8149c3aefd11b03458b6f9b3e38ca454b07a (patch) | |
| tree | 7c66dda6b63ea0c1f3e6e03259ef0b1609aca8b6 /dev/univdot | |
| parent | b65fd67d6210f480eed759d58422ca8c4da95eab (diff) | |
Restructuration dossier dev et mise à jour de certaines documentations
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8856 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'dev/univdot')
| -rwxr-xr-x | dev/univdot | 49 |
1 files changed, 0 insertions, 49 deletions
diff --git a/dev/univdot b/dev/univdot deleted file mode 100755 index bb0dd2c89b..0000000000 --- a/dev/univdot +++ /dev/null @@ -1,49 +0,0 @@ -#!/bin/sh - -usage() { - echo "" - echo "usage: univdot [INPUT] [OUTPUT]" - echo "" - echo "takes the output of Dump Universes \"file\" command" - echo "and transforms it to the dot format" - echo "" - echo "Coq> Dump Universes \"univ.raw\"." - echo "" - echo "user@host> univdot univ.raw | dot -Tps > univ.ps" - echo "" -} - - -# these are dot edge attributes to draw arrows corresponding -# to > >= and = edges of the universe graph - -GT="[color=red]" -GE="[color=blue]" -EQ="[color=black]" - - -# input/output redirection -case $# in - 0) ;; - 1) case $1 in - -h|-help|--help) usage - exit 0 ;; - *) exec < $1 ;; - esac ;; - 2) exec < $1 > $2 ;; - *) usage - exit 0;; -esac - - -# dot header -echo 'digraph G {\ - size="7.5,10" ;\ - rankdir = TB ;' - -sed -e "s/^\([^ =>]\+\) > \([^ =>]\+\)/\1 -> \2 $GT/" \ - -e "s/^\([^ =>]\+\) >= \([^ =>]\+\)/\1 -> \2 $GE/" \ - -e "s/^\([^ =>]\+\) = \([^ =>]\+\)/\1 -> \2 $EQ/" \ -| sed -e "s/\./_/g" - -echo "}"
\ No newline at end of file |