gen-descriptions

   1 #!/bin/bash
   2
   3 echo "|   |   |"
   4 echo "|---|---|"
   5
   6 for filepath in admin-tools/* compiled-tools/*.pod crawler-bin/* root-tools/* user-tools/* xwin-tools/*
   7 do
   8         if [ -f "$filepath" ]
   9         then
  10                 echo $'=pod\n\n=head1 FILEPATH '"$filepath"$'\n\n=cut\n\n'
  11                 cat "$filepath"
  12                 echo $'=pod\n\n=head1 EOF '"$filepath"$'\n\n=cut\n\n'
  13         fi
  14 done |\
  15 pod2text -w 10000 --utf8 |\
  16 while IFS=$'\n' read line
  17 do
  18         if [[ $line =~ ^FILEPATH[\ \    ]+(.+) ]]
  19         then
  20                 filepath=${BASH_REMATCH[1]}
  21                 dirpath=${filepath%/*}
  22
  23         elif [ "$line" = NAME ]
  24         then
  25                 while IFS=$'\n' read line2
  26                 do
  27                         if [[ $line2 =~ ^[\ ]+([^ ]+)[\ ]+-[\ ]+(.+) ]]
  28                         then
  29                                 name=${BASH_REMATCH[1]}
  30                                 description=${BASH_REMATCH[2]}
  31
  32                                 filelink=$dirpath/$name
  33                                 if [ "${filepath: -4}" = .pod ]
  34                                 then
  35                                         filelink=$dirpath/$name.c
  36                                 fi
  37                                 if [ ! -e "$filelink" ]
  38                                 then
  39                                         filelink=($dirpath/*/$name.*)
  40                                         filelink=${filelink[0]}
  41                                 fi
  42                                 if [ ! -e "$filelink" ]
  43                                 then
  44                                         filelink=$filepath
  45                                 fi
  46
  47                                 echo "| [$name]($filelink) | $description"
  48                         elif [[ $line2 =~ ^[^\ \        ] ]]
  49                         then
  50                                 break
  51                         fi
  52                 done
  53         fi
  54 done |\
  55 sort -u