buddylistgrapher

annotate graph3.sh @ 4:b82703cc3dd4

added sed edition but still incomplete
author meillo@marmaro.de
date Mon, 28 May 2007 23:09:06 +0200
parents
children e34b27b544b5
rev   line source
meillo@4 1 #!/bin/bash
meillo@4 2 #
meillo@4 3 # Autor: markus schnalke (prog.marmaro.de)
meillo@4 4 # Autor: Julian Forster (www.ProgMaschine.de.vu)
meillo@4 5 #
meillo@4 6
meillo@4 7
meillo@4 8 if [ $# -eq 1 ]; then
meillo@4 9 if [ $1 = '--version' ] ; then
meillo@4 10 echo 'Buddylistgrapher (sed)'
meillo@4 11 echo '======================'
meillo@4 12 echo 'version 0.1'
meillo@4 13 echo
meillo@4 14 echo 'by Julian Forster (http://progmaschine.de.vu)'
meillo@4 15 echo 'and Markus Schnalke (http://prog.marmaro.de)'
meillo@4 16 exit 0
meillo@4 17 elif [ $1 = '--help' ] ; then
meillo@4 18 echo 'Buddylistgrapher (sed)'
meillo@4 19 echo '======================'
meillo@4 20 echo
meillo@4 21 echo "usage: $0 <input.txt>"
meillo@4 22 echo
meillo@4 23 echo "The grapher generates output to stdout."
meillo@4 24 echo "This output is the input for the graphviz tools."
meillo@4 25 echo
meillo@4 26 echo "You can use it like this:"
meillo@4 27 echo "$0 input.txt | dot -Tpng > pic.png"
meillo@4 28 echo
meillo@4 29 echo "ToDo:"
meillo@4 30 echo "The program was written for one specific kind of input data,"
meillo@4 31 echo "so there is still some work to do to use it for general input."
meillo@4 32 exit 0
meillo@4 33 else
meillo@4 34
meillo@4 35 file=/tmp/`basename $0`-$$
meillo@4 36 file2=/tmp/`basename $0`-$$-2
meillo@4 37
meillo@4 38 # # collect all profil names (we only want them as nodes)
meillo@4 39 # cat $file | while read line ; do
meillo@4 40 # echo -n "`echo $line | grep "Profil von:" | awk '{print " " $3 " "}'`" >> $file2
meillo@4 41 # done
meillo@4 42 # echo >> $file2
meillo@4 43
meillo@4 44
meillo@4 45 # TODO: fetch only edges for people having a profile
meillo@4 46
meillo@4 47 # output
meillo@4 48 echo "digraph G {"
meillo@4 49
meillo@4 50 sed -n -e '
meillo@4 51 /^Profil/{
meillo@4 52 s/Profil von: \(.\+\)/"\1"/
meillo@4 53 h
meillo@4 54 #p
meillo@4 55 }
meillo@4 56
meillo@4 57
meillo@4 58 /^Nachricht/{
meillo@4 59 G
meillo@4 60 s/ - [-0-9]\+//
meillo@4 61 s/Nachricht schreiben \(.\+\)\n/"\1" /
meillo@4 62 s/"\(.\+\)" "\(.\+\)"/ "\2" -> "\1";/
meillo@4 63
meillo@4 64 # write out
meillo@4 65 p
meillo@4 66 }
meillo@4 67 ' $1
meillo@4 68
meillo@4 69
meillo@4 70 echo "}"
meillo@4 71
meillo@4 72 # rm $file $file2
meillo@4 73 exit 0
meillo@4 74
meillo@4 75 fi
meillo@4 76 else
meillo@4 77 echo "usage: $0 <input.txt>"
meillo@4 78 exit 1
meillo@4 79 fi