# Author: Chris Karakas
# http://www.karakas-online.de
#
# Part of the LyX-to-X project.
# See http://www.karakas-online.de/mySGML/ for a detailed 
# description.
#
# Copyright (c) 2004, Chris Karakas 
# http://www.karakas-online.de
# chris at mydomain dot de (see above for my domain) 
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2, or (at your option)
# any later version.
# 
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; see the file COPYING.  If not, write to
# the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.


BEGIN {
num_min = 10000
num_max = 20000
num_ran = 0
num_dif = num_max - num_min
num_eq = 0
srand()
}

/<alt>\\\[/,/<\/alt>/{ 
    num_ran = 1 + int(rand() * num_dif) + num_min
    if ( $1 != "<alt>\\\[" && $1 != "<\/alt>" ) { 
        gsub("<"," \\&lt; ")
        gsub(">"," \\&gt; ")
    }
#    gsub("<\/alt>","<\/alt><graphic fileref=\"images\/math\/" num_ran "\.png\">")
#    gsub("<\/alt>","<\/alt>\n <mediaobject>\n <\!\[ \%output\.print\.png; \[\n <imageobject>\n <imagedata fileref=\"\.\/images\/math\/" num_ran ".png\" format=\"PNG\">\n <\/imageobject>\n \]\]>\n <\!\[ \%output\.print\.bmp; \[\n <imageobject>\n <imagedata fileref=\"math\/" num_ran "\.bmp\" format=\"BMP\">\n <\/imageobject>\n \]\]>\n <\/mediaobject>\n")
    gsub("<\/alt>","<\/alt>\n <\!\[ \%output\.print\.png; \[\n <graphic fileref=\"images\/math\/" num_ran "\.png\">\n \]\]>\n <\!\[ \%output\.print\.pdf; \[\n <graphic fileref=\"images\/math\/" num_ran "\.png\">\n \]\]>\n <\!\[ \%output\.print\.eps; \[\n <graphic fileref=\"images\/math\/" num_ran "\.png\">\n \]\]>\n <\!\[ \%output\.print\.bmp; \[\n <graphic fileref=\"images\/math\/" num_ran "\.bmp\">\n \]\]>\n")
}

/<alt>\$/,/<\/alt>/{
    num_ran = 1 + int(rand() * num_dif) + num_min
    if ( $0 !~ /<alt>\$/ && $0 !~ /<\/alt>/ ) { 
        gsub("<"," \\&lt; ")
        gsub(">"," \\&gt; ")
    }
#    gsub("<\/alt>","<\/alt><graphic fileref=\"images\/math\/" num_ran "\.png\">")
    gsub("<\/alt>","<\/alt>\n <\!\[ \%output\.print\.png; \[\n <graphic fileref=\"images\/math\/" num_ran "\.png\">\n \]\]>\n <\!\[ \%output\.print\.pdf; \[\n <graphic fileref=\"images\/math\/" num_ran "\.png\">\n \]\]>\n <\!\[ \%output\.print\.eps; \[\n <graphic fileref=\"images\/math\/" num_ran "\.png\">\n \]\]>\n <\!\[ \%output\.print\.bmp; \[\n <graphic fileref=\"images\/math\/" num_ran "\.bmp\">\n \]\]>\n")
}

/<alt>\\begin{equation}/,/<\/alt>/{
    num_ran = 1 + int(rand() * num_dif) + num_min
    if ( $0 !~ /<alt>\\begin\{equation\}/ && $0 !~ /<\/alt>/ ) { 
        gsub("<"," \\&lt; ")
        gsub(">"," \\&gt; ")
    }
#    gsub("<\/alt>","<\/alt><graphic fileref=\"images\/math\/" num_ran "\.png\">")
    gsub("<\/alt>","<\/alt>\n <\!\[ \%output\.print\.png; \[\n <graphic fileref=\"images\/math\/" num_ran "\.png\">\n \]\]>\n <\!\[ \%output\.print\.pdf; \[\n <graphic fileref=\"images\/math\/" num_ran "\.png\">\n \]\]>\n <\!\[ \%output\.print\.eps; \[\n <graphic fileref=\"images\/math\/" num_ran "\.png\">\n \]\]>\n <\!\[ \%output\.print\.bmp; \[\n <graphic fileref=\"images\/math\/" num_ran "\.bmp\">\n \]\]>\n")
}

/<alt>\\begin{eqnarray\**}/,/<\/alt>/{
    num_ran = 1 + int(rand() * num_dif) + num_min
    if ( $0 !~ /<alt>\\begin\{eqnarray\**\}/ && $0 !~ /<\/alt>/ ) { 
        gsub("<"," \\&lt; ")
        gsub(">"," \\&gt; ")
    }
#    gsub("<\/alt>","<\/alt><graphic fileref=\"images\/math\/" num_ran "\.png\">")
    gsub("<\/alt>","<\/alt>\n <\!\[ \%output\.print\.png; \[\n <graphic fileref=\"images\/math\/" num_ran "\.png\">\n \]\]>\n <\!\[ \%output\.print\.pdf; \[\n <graphic fileref=\"images\/math\/" num_ran "\.png\">\n \]\]>\n <\!\[ \%output\.print\.eps; \[\n <graphic fileref=\"images\/math\/" num_ran "\.png\">\n \]\]>\n <\!\[ \%output\.print\.bmp; \[\n <graphic fileref=\"images\/math\/" num_ran "\.bmp\">\n \]\]>\n")
}


/<equation>/,/<\/equation>/{
    gsub("<equation>","<inlineequation>")
    gsub("<\/equation>","<\/inlineequation>")
}

/<informalequation>/{
    gsub("<informalequation>","<equation id=\"eq" ++num_eq "\"> <title>(eq" num_eq ")<\/title>")
#    gsub("<informalequation>","<equation id=\"eq" ++num_eq "\"> <title>Equation " num_eq "<\/title>")
}



/<math>/,/<\/math>/{
    gsub(".*","")
}

!/^$/{
    print
}