--- loncom/xml/lontexconvert.pm 2013/09/22 02:04:31 1.112.2.3
+++ loncom/xml/lontexconvert.pm 2014/06/18 06:45:36 1.115
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# TeX Conversion Module
#
-# $Id: lontexconvert.pm,v 1.112.2.3 2013/09/22 02:04:31 raeburn Exp $
+# $Id: lontexconvert.pm,v 1.115 2014/06/18 06:45:36 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -54,17 +54,37 @@ use IO::Socket::INET;
#
# Table of substitutions to unicode characters.
#
+
+my %unicode_harpoons = (
+ '\rightleftharpoons' => 0x21cc,
+ );
+
my %unicode_translations = (
- '\rightleftharpoons' => 0x21cc,
-# Brackets - unicode is commented out with pure 8-bit ascii ugliness while we need it.
+# Brackets - unicode for browsers/OS which support it.
+
+ '' => 0x23a1,
+ '' => 0x23a2,
+ '' => 0x23a3,
+ '' => 0x23a4,
+ '' => 0x23a5,
+ '' => 0x23a6,
+
+# Parens - unicode for browsers/OS which support it
+
+ '' => 0x239b,
+ '' => 0x239c,
+ '' => 0x239d,
+ '' => 0x239e,
+ '' => 0x239f,
+ '' => 0x23a0,
+
+);
+
+my %ascii_8bit_translations = (
+
+# Brackets - pure 8-bit ascii ugliness for browsers/OS which can't handle unicode
-# '' => 0x23a1,
-# '' => 0x23a2,
-# '' => 0x23a3, # when unicode catches up with browsers
-# '' => 0x23a4, # use these instead of the cheesey brackets below
-# '' => 0x23a5,
-# '' => 0x23a6
'' => 0x5b,
'' => 0x5b, # '['
'' => 0x5b,
@@ -72,24 +92,14 @@ my %unicode_translations = (
'' => 0x5d,
'' => 0x5d,
-# Parens..again the unicode is commented out with the 8-bit ascii ugliness
-# turned on until browsers catch up with the unicode world.
-
-# '' => 0x239b,
-# '' => 0x239c,
-# '' => 0x239d,
-# '' => 0x239e,
-# '' => 0x239f,
-# '' => 0x23a0
+# Parens - pure 8-bit ascii ugliness for browsers/OS which can't handle unicode
'' => 0x28,
'' => 0x28, # '('
'' => 0x28,
-
'' => 0x29,
'' => 0x29, # '('
- '' => 0x29
-
+ '' => 0x29,
);
@@ -173,14 +183,31 @@ sub convert_real {
#
# Several strings produced by tth require
# transliteration -> unicode equivalents to render reliably
- # in browsers. %unicode_translations is a table of
- # string->substitution which we now apply:
+ # in browsers. %unicode_translations and %unicode_harpoons are tables of
+ # string->substitution which we now apply. (%ascii_8bit_translations used
+ # instead for Windows XP and mobile devices.
+
+ my $use_ascii;
+ if ($env{'browser.os'} eq 'win') {
+ if (($env{'browser.osversion'}) && ($env{'browser.osversion'} < 6.0)) {
+ $use_ascii = 1;
+ }
+ }
+ if ($env{'browser.mobile'}) {
+ $use_ascii = 1;
+ }
foreach my $pattern (keys(%unicode_translations)) {
my $unicode = $unicode_translations{$pattern};
+ if ($use_ascii) {
+ $unicode = $ascii_8bit_translations{$pattern};
+ }
$xmlstring = &unicode_subst($xmlstring, $pattern, $unicode);
}
+ foreach my $pattern (keys(%unicode_harpoons)) {
+ $xmlstring = &unicode_subst($xmlstring, $pattern, $unicode_harpoons{$pattern});
+ }
return ($xmlstring,$errorstring);
}
@@ -269,8 +296,19 @@ sub MathJax_converted {
return
''."\n";
}
+ #sub MathJax_process {
+ # my $state = pop(@MathJax_sent_header);
+ # return '' if !$state;
+ # return "\n".
+ # ''."\n";
+ #}
+ #sub MathJax_state {
+ # my ($level) = @_;
+ # return $MathJax_sent_header[$level];
+ #}
}
+
sub jsMath_converted {
my $texstring=shift;
my $tag='span';
@@ -404,7 +442,7 @@ sub converted {
} elsif ($mode =~ /jsmath/i) {
return &jsMath_converted($string);
} elsif ($mode =~ /mathjax/i) {
- return &MathJax_converted($string);
+ return &MathJax_converted($string);
} elsif ($mode =~ /mimetex/i) {
return &mimetex_converted($string);
} elsif ($mode =~ /raw/i) {
@@ -569,6 +607,8 @@ sub postprocess_algebra {
$string =~s/\\lim\\left\((.+?),(.+?),(.+?)\\right\)/\\lim_{$2\\to $3}$1/gs;
return $string;
}
+
+
1;
__END__
@@ -614,7 +654,7 @@ Header
=item jsMath_converted()
=item MathJax_converted()
- - Mimics the jsMath functionality
+ - Mimics the jsMath functionality
=item tex_engine()