--- loncom/xml/lontexconvert.pm 2005/02/24 05:26:00 1.46 +++ loncom/xml/lontexconvert.pm 2005/02/24 05:40:08 1.48 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # TeX Conversion Module # -# $Id: lontexconvert.pm,v 1.46 2005/02/24 05:26:00 albertel Exp $ +# $Id: lontexconvert.pm,v 1.48 2005/02/24 05:40:08 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -237,7 +237,15 @@ sub algebra { sub prepare_algebra { my ($string)=@_; - #protect the confusable greek symbols + # change some multi character operators into single character operators + $string =~ s/<>/\#/g; + $string =~ s/<\=/\%/g; + $string =~ s/>\=/\!/g; + + # makes the decision about what is a minus sign easier + $string =~ s/([\=\>\<\%\!\#] *)-/$1 zeroplace -/g; + + # protect the confusable greek symbols $string =~ s/delta/zdelta/g; $string =~ s/beta/bita/g; $string =~ s/theta/thita/g; @@ -251,6 +259,14 @@ sub prepare_algebra { sub postprocess_algebra { my ($string)=@_; + + # remove the chunk used to sepearate out the minus signs + $string =~ s/zeroplace//g; + + # exapnd out some operators + $string =~ s/\#/\\not= /g; + $string =~ s/\%/\\leq /g; + $string =~ s/\!/\\geq /g; # replace some special symbols with the LaTeX equivalents $string =~ s/infty/\\infty/g;