doclib: Add 'Download' link to FTP space on berlios

[senf.git] / doclib / dot

diff --git a/doclib/dot b/doclib/dot
index a0efac5..d181567 100755 (executable)
--- a/doclib/dot
+++ b/doclib/dot
@@ -1,38 +1,45 @@
 #!/bin/sh
 
 topdir="`dirname "$0"`"; topdir="`cd "$topdir/.."; pwd`"
+sed -i -e 's/rankdir=LR/rankdir=TB/' "$1"
 "$topdir/doclib/dot-munge.pl" "$1"
 
 case "$2" in
     -Tpng:gd)
-       first="$1"; shift; shift
-       set -- "$first" "-Tpng" "$@"
-       ;;
+    first="$1"; shift; shift
+    set -- "$first" "-Tpng" "$@"
+    ;;
     *)
 esac
 
 set -e
 
 dot "$@"
-if [ -r "$4" ]; then
-    size="`pngtopnm "$4" | sed -n -e '2p'`"
-    width_a="${size% *}"
-    height_a="${size#* }"
-    if [ $width_a -gt 800 ]; then
-       for file in "${1%.dot}".*; do
-           cp "$file" "$file.a"
-       done
-       sed -e 's/rankdir=LR/rankdir=TB/' -e t -e 's/rankdir=TB/rankdir=LR/' "$1.a" > "$1"
-       dot "$@"
-       size="`pngtopnm "$4" | sed -n -e '2p'`"
-       width_b="${size% *}"
-       height_b="${size#* }"
-       if [ $width_a -lt $width_b ]; then
-           for file in "${1%.dot}".*.a; do
-               mv "$file" "${file%.a}"
-           done
-       else
-           rm "${1%.dot}".*.a
-       fi
+
+case "$4" in
+    *.png)
+    if [ -r "$4" ]; then
+        size="`pngtopnm "$4" | sed -n -e '2p'`"
+        width_a="${size% *}"
+        height_a="${size#* }"
+        if [ $width_a -gt 800 ]; then
+            for file in "${1%.dot}".*; do
+                cp "$file" "$file.a"
+            done
+            sed -e 's/rankdir=LR/rankdir=TB/' -e t -e 's/rankdir=TB/rankdir=LR/' "$1.a" > "$1"
+            dot "$@"
+            size="`pngtopnm "$4" | sed -n -e '2p'`"
+            width_b="${size% *}"
+            height_b="${size#* }"
+            if [ $width_a -lt $width_b ]; then
+                for file in "${1%.dot}".*.a; do
+                mv "$file" "${file%.a}"
+                done
+            else
+                rm "${1%.dot}".*.a
+            fi
+        fi
     fi
-fi
+    ;;
+    *)  ;;
+esac