stepmake/bin/pod2yodl.sh

   1 #!/bin/sh
   2 # pod2yodl.sh -- one time convert helper
   3
   4 if test $# -lt 1
   5 then
   6    echo "Usage: pod2yodl FILE...";
   7    exit 2
   8 fi
   9 for i in $*
  10 do
  11     echo $i
  12     base=`basename $i .in`
  13     base=`basename $base .pod`
  14     yo=$base.yo
  15     rm -f $yo
  16     perl -pe '
  17         s/=head1 *(.*)/nsect($1)/g;
  18         s/=head2 *(.*)/nsubsect($1)/g;
  19         s/=head3 *(.*)/nsubsubsect($1)/g;
  20         s/=over.*(.*)/itemize(/g;
  21         s/=item *\*/it()/g;
  22         s/=item *(.*)/dit($1)/g;
  23         s/=back.*/)/g;
  24         s/=begin.*//g;
  25         s/=end.*//g;
  26         s/C<([^>]*)>/code($1)/g;
  27         s/F<([^>]*)>/file($1)/g;
  28         s/B<([^>]*)>/bf($1)/g;
  29         s/I<([^>]*)>/em($1)/g;
  30         s/<[Aa] *[Hh][Rr][Ee][Ff]=\"*([^>\"])\"([^<]*)<\/[Aa]>/ url($2)($1)/g;
  31         s/<[Aa] *[Hh][Rr][Ee][Ff]=\"*([^>\"])\"([^<]*)/ url($2)($1)/g;
  32         s/<[Aa] *[Hh][Rr][Ee][Ff]=\"*([^>\"])\"/ url()($1)/g;
  33         s/.*<\/[Aa]>/($1)/g;
  34         s/<(.*@.*)>/email($1)/g;
  35         s/(http:\/\/[^ ]*)/ lurl($1)/g;
  36         s/(ftp:\/\/[^ ]*)/ lurl($1)/g;
  37         s/@([A-Z_]*)@/verbinclude($1.in)/g;
  38         ' $i > $yo
  39 done
  40