stepmake/bin/latex2yodl.sh

   1 #!/bin/sh
   2 # latex2yodl.sh -- one time convert helper
   3
   4 if test $# -lt 1
   5 then
   6    echo "Usage: latex2yodl FILE...";
   7    exit 2
   8 fi
   9 for i in $*
  10 do
  11     echo $i
  12     base=`basename $base .latex`
  13     base=`basename $base .tex`
  14     base=`basename $i .doc`
  15     yo=$base.yo
  16     rm -f $yo
  17     perl -pe '
  18         s/([a-zA-Z][a-zA-Z]*)\~/bind($1)/g;
  19         s/%(.*)/COMMENT($1)/g;
  20         s/\$\^{([^}]*)}$/ sups($1)/g;
  21         s/\$\_{([^}]*)}$/ subs($1)/g;
  22         s/\$\^(.)$/ sups($1)/g;
  23         s/\$\_(.)$/ subs($1)/g;
  24         s/\\appendix/appendix()/g;
  25         s/\\footnote{([^}]*)}/ footnote($1)/g;
  26         s/\\cite{([^}]*)}/ cite($1)/g;
  27         s/(\\marginpar{[^}]*})/latexcommand($1)/g;
  28         s/\\chapter *{([^}]*)}/chapter($1)/g;
  29         s/\\chapter *\* *{([^}]*)}/nchapter($1)/g;
  30         s/\\section *{([^}]*)}/sect($1)/g;
  31         s/\\section *\* *{([^}]*)}/nsect($1)/g;
  32         s/\\subsection *{([^}]*)}/subsect($1)/g;
  33         s/\\subsection *\* *{([^}]*)}/nsubsect($1)/g;
  34         s/\\begin{itemize}.*/itemize(/g;
  35         s/\\item *{([^}]*)}/dit($1)/g;
  36         s/\\item *[[]([^]]*)[]]/dit($1)/g;
  37         s/\\item */it()/g;
  38         s/\\(caption{[^}]*})/latexcommand(XXX$1)/g;
  39         s/\\(begin{figure}.*)/latexcommand(XXX$1)/g;
  40         s/\\(end{figure}.*)/latexcommand(XXX$1\n)/g;
  41         s/\\begin{mudela}[[]([^]]*)[]]/mudela($1)(/g;
  42         s/\\begin{mudela}.*/mudela()(/g;
  43         s/\\end{mudela}/)/g;
  44         s/\\(begin{table}.*)/latexcommand(XXX$1)/g;
  45         s/\\(end{table}.*)/latexcommand(XXX$1)/g;
  46         s/\\begin{tabular}{(.*)}/table(ncol)($1)(/g;
  47         s/\\begin{verbatim}.*/verb(/g;
  48         s/\\begin{([^}]*)}/$1(/g;
  49         s/\\end{([^}]*)}/)/g;
  50         s/{\\em ([^}]*)}/em($1)/g;
  51         s/\\emph{([^}]*)}/em($1)/g;
  52         s/\\ref{([^}]*)}/ref($1)/g;
  53         s/\\texttt{([^}]*)}/code($1)/g;
  54         s/\\file{([^}]*)}/file($1)/g;
  55         s/\\label{([^}]*)}/label($1)/g;
  56         s/\\verb[+]([^+]*)[+]/code($1)/g;
  57         s/\\verb[|]([^|]*)[|]/code($1)/g;
  58         s/XXX/\\/g;
  59         ' $i > $yo
  60 done
  61