version 1.137, 2003/06/03 13:15:02
|
version 1.144, 2003/06/26 15:23:06
|
Line 157 sub start_html {
|
Line 157 sub start_html {
|
&Apache::lonxml::fontsettings(); |
&Apache::lonxml::fontsettings(); |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
@Apache::londefdef::table = (); |
@Apache::londefdef::table = (); |
$currentstring .= '\documentclass[letterpaper]{article} |
$currentstring .= '\documentclass[letterpaper]{article}'. |
\newcommand{\keephidden}[1]{} |
'\batchmode'. |
|
'\newcommand{\keephidden}[1]{} |
\renewcommand{\deg}{$^{\circ}$} |
\renewcommand{\deg}{$^{\circ}$} |
\usepackage{textcomp} |
\usepackage{textcomp} |
\usepackage[dvips]{graphicx} |
\usepackage[dvips]{graphicx} |
Line 501 sub start_center {
|
Line 502 sub start_center {
|
$currentstring = $token->[4]; |
$currentstring = $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring = '\begin{center}'; |
$currentstring = '\begin{center}'; |
} elsif ($target eq 'latexsource') { |
} |
$currentstring = '\begin{center}'; |
|
} |
|
return $currentstring; |
return $currentstring; |
} |
} |
|
|
Line 514 sub end_center {
|
Line 513 sub end_center {
|
$currentstring = $token->[2]; |
$currentstring = $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring = '\end{center}'; |
$currentstring = '\end{center}'; |
} elsif ($target eq 'latexsource') { |
} |
$currentstring = '\end{center}'; |
|
} |
|
return $currentstring; |
return $currentstring; |
} |
} |
|
|
Line 528 sub start_b {
|
Line 525 sub start_b {
|
$currentstring = $token->[4]; |
$currentstring = $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring = '\textbf{'; |
$currentstring = '\textbf{'; |
} elsif ($target eq 'latexsource') { |
|
$currentstring = '\textbf{'; |
|
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 541 sub end_b {
|
Line 536 sub end_b {
|
$currentstring = $token->[2]; |
$currentstring = $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring = '}'; |
$currentstring = '}'; |
} elsif ($target eq 'latexsource') { |
|
$currentstring = '}'; |
|
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 555 sub start_strong {
|
Line 548 sub start_strong {
|
$currentstring = $token->[4]; |
$currentstring = $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring = '\textbf{'; |
$currentstring = '\textbf{'; |
} elsif ($target eq 'latexsource') { |
|
$currentstring = '\textbf{'; |
|
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 569 sub end_strong {
|
Line 560 sub end_strong {
|
$currentstring = $token->[2]; |
$currentstring = $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring = '}'; |
$currentstring = '}'; |
} elsif ($target eq 'latexsource') { |
} |
$currentstring = '}'; |
|
} |
|
return $currentstring; |
return $currentstring; |
} |
} |
|
|
Line 847 sub start_cite {
|
Line 836 sub start_cite {
|
$currentstring .= $token->[4]; |
$currentstring .= $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= "\\textit{"; |
$currentstring .= "\\textit{"; |
} elsif ($target eq 'latexsource') { |
} |
$currentstring .= "\\textit{"; |
|
} |
|
return $currentstring; |
return $currentstring; |
} |
} |
|
|
Line 860 sub end_cite {
|
Line 847 sub end_cite {
|
$currentstring .= $token->[2]; |
$currentstring .= $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= "}"; |
$currentstring .= "}"; |
} elsif ($target eq 'latexsource') { |
} |
$currentstring .= "}"; |
|
} |
|
return $currentstring; |
return $currentstring; |
} |
} |
|
|
Line 874 sub start_i {
|
Line 859 sub start_i {
|
$currentstring .= $token->[4]; |
$currentstring .= $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= '\textit{'; |
$currentstring .= '\textit{'; |
} elsif ($target eq 'latexsource') { |
} |
$currentstring .= '\textit{'; |
|
} |
|
return $currentstring; |
return $currentstring; |
} |
} |
|
|
Line 887 sub end_i {
|
Line 870 sub end_i {
|
$currentstring .= $token->[2]; |
$currentstring .= $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= '}'; |
$currentstring .= '}'; |
} elsif ($target eq 'latexsource') { |
|
$currentstring .= '}'; |
|
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 901 sub start_address {
|
Line 882 sub start_address {
|
$currentstring .= $token->[4]; |
$currentstring .= $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= "\\textit{"; |
$currentstring .= "\\textit{"; |
} elsif ($target eq 'latexsource') { |
} |
$currentstring .= "\\textit{"; |
|
} |
|
return $currentstring; |
return $currentstring; |
} |
} |
|
|
Line 914 sub end_address {
|
Line 893 sub end_address {
|
$currentstring .= $token->[2]; |
$currentstring .= $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= "}"; |
$currentstring .= "}"; |
} elsif ($target eq 'latexsource') { |
|
$currentstring .= "}"; |
|
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 928 sub start_dfn {
|
Line 905 sub start_dfn {
|
$currentstring .= $token->[4]; |
$currentstring .= $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= "\\textit{"; |
$currentstring .= "\\textit{"; |
} elsif ($target eq 'latexsource') { |
|
$currentstring .= "\\textit{"; |
|
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 941 sub end_dfn {
|
Line 916 sub end_dfn {
|
$currentstring .= $token->[2]; |
$currentstring .= $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= "}"; |
$currentstring .= "}"; |
} elsif ($target eq 'latexsource') { |
} |
$currentstring .= "}"; |
|
} |
|
return $currentstring; |
return $currentstring; |
} |
} |
|
|
Line 955 sub start_tt {
|
Line 928 sub start_tt {
|
$currentstring .= $token->[4]; |
$currentstring .= $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= '\texttt{'; |
$currentstring .= '\texttt{'; |
} elsif ($target eq 'latexsource') { |
} |
$currentstring .= '\texttt{'; |
|
} |
|
return $currentstring; |
return $currentstring; |
} |
} |
|
|
Line 968 sub end_tt {
|
Line 939 sub end_tt {
|
$currentstring .= $token->[2]; |
$currentstring .= $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= '}'; |
$currentstring .= '}'; |
} elsif ($target eq 'latexsource') { |
|
$currentstring .= '}'; |
|
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 982 sub start_kbd {
|
Line 951 sub start_kbd {
|
$currentstring .= $token->[4]; |
$currentstring .= $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= "\\texttt"; |
$currentstring .= "\\texttt"; |
} elsif ($target eq 'latexsource') { |
} |
$currentstring .= "\\texttt{"; |
|
} |
|
return $currentstring; |
return $currentstring; |
} |
} |
|
|
Line 995 sub end_kbd {
|
Line 962 sub end_kbd {
|
$currentstring .= $token->[2]; |
$currentstring .= $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= "}"; |
$currentstring .= "}"; |
} elsif ($target eq 'latexsource') { |
} |
$currentstring .= "}"; |
|
} |
|
return $currentstring; |
return $currentstring; |
} |
} |
|
|
Line 1032 sub start_em {
|
Line 997 sub start_em {
|
$currentstring .= $token->[4]; |
$currentstring .= $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= '\emph{'; |
$currentstring .= '\emph{'; |
} elsif ($target eq 'latexsource') { |
} |
$currentstring .= '\emph{'; |
|
} |
|
return $currentstring; |
return $currentstring; |
} |
} |
|
|
Line 1045 sub end_em {
|
Line 1008 sub end_em {
|
$currentstring .= $token->[2]; |
$currentstring .= $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= '}'; |
$currentstring .= '}'; |
} elsif ($target eq 'latexsource') { |
} |
$currentstring .= '}'; |
|
} |
|
return $currentstring; |
return $currentstring; |
} |
} |
|
|
Line 1059 sub start_q {
|
Line 1020 sub start_q {
|
$currentstring .= $token->[4]; |
$currentstring .= $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= "\\emph{"; |
$currentstring .= "\\emph{"; |
} elsif ($target eq 'latexsource') { |
|
$currentstring .= "\\emph{"; |
|
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 1072 sub end_q {
|
Line 1031 sub end_q {
|
$currentstring .= $token->[2]; |
$currentstring .= $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= "}"; |
$currentstring .= "}"; |
} elsif ($target eq 'latexsource') { |
} |
$currentstring .= "}"; |
|
} |
|
return $currentstring; |
return $currentstring; |
} |
} |
|
|
Line 1085 sub start_p {
|
Line 1042 sub start_p {
|
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring .= $token->[4]; |
$currentstring .= $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= '{\par '; |
$currentstring .= '\par '; |
} elsif ($target eq 'latexsource') { |
} |
$currentstring .= '{\par '; |
|
} |
|
return $currentstring; |
return $currentstring; |
} |
} |
|
|
Line 1097 sub end_p {
|
Line 1052 sub end_p {
|
my $currentstring = ''; |
my $currentstring = ''; |
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring .= $token->[2]; |
$currentstring .= $token->[2]; |
} elsif ($target eq 'tex') { |
|
$currentstring .= '}'; |
|
} elsif ($target eq 'latexsource') { |
|
$currentstring .= '}'; |
|
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 1115 sub start_br {
|
Line 1066 sub start_br {
|
if ($$tagstack[-2] ne 'sub' && $$tagstack[-2] ne 'sup') { |
if ($$tagstack[-2] ne 'sub' && $$tagstack[-2] ne 'sup') { |
$currentstring .= '\vskip 0.2 mm'; |
$currentstring .= '\vskip 0.2 mm'; |
} |
} |
} elsif ($target eq 'latexsource') { |
} |
$currentstring .= '\\'; |
|
} |
|
return $currentstring; |
return $currentstring; |
} |
} |
|
|
Line 1138 sub start_big {
|
Line 1087 sub start_big {
|
$currentstring .= $token->[4]; |
$currentstring .= $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= '{\large '; |
$currentstring .= '{\large '; |
} elsif ($target eq 'latexsource') { |
} |
$currentstring .= '{\Large '; |
|
} |
|
return $currentstring; |
return $currentstring; |
} |
} |
|
|
Line 1151 sub end_big {
|
Line 1098 sub end_big {
|
$currentstring .= $token->[2]; |
$currentstring .= $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= '}'; |
$currentstring .= '}'; |
} elsif ($target eq 'latexsource') { |
|
$currentstring .= '}'; |
|
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 1165 sub start_small {
|
Line 1110 sub start_small {
|
$currentstring .= $token->[4]; |
$currentstring .= $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= '{\footnotesize '; |
$currentstring .= '{\footnotesize '; |
} elsif ($target eq 'latexsource') { |
} |
$currentstring .= '{\footnotesize '; |
|
} |
|
return $currentstring; |
return $currentstring; |
} |
} |
|
|
Line 1178 sub end_small {
|
Line 1121 sub end_small {
|
$currentstring .= $token->[2]; |
$currentstring .= $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= '}'; |
$currentstring .= '}'; |
} elsif ($target eq 'latexsource') { |
|
$currentstring .= '}'; |
|
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 1700 sub end_dd {
|
Line 1641 sub end_dd {
|
#-- <table> tag |
#-- <table> tag |
sub start_table { |
sub start_table { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; |
my $textwidth; |
my $textwidth=''; |
if (not defined @Apache::londefdef::table) { |
if (not defined @Apache::londefdef::table) { |
$textwidth=&recalc($ENV{'form.textwidth'}); |
$textwidth=&recalc($ENV{'form.textwidth'}); |
$textwidth=~/(\d+)/; |
$textwidth=~/(\d+\.?\d*)/; |
$textwidth=$1; |
$textwidth=0.95*$1; |
} else { |
} else { |
$textwidth=&Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval,undef,0); |
$textwidth=&Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval,undef,0); |
} |
} |
Line 1746 sub start_table {
|
Line 1687 sub start_table {
|
$Apache::londefdef::table[-1]{'vvinc'} = ''; |
$Apache::londefdef::table[-1]{'vvinc'} = ''; |
} |
} |
$Apache::londefdef::table[-1]{'output'} = ' \noindent \begin{tabular} '; |
$Apache::londefdef::table[-1]{'output'} = ' \noindent \begin{tabular} '; |
$currentstring = '\keephidden{NEW TABLE ENTRY '.$textwidth.'}'; |
$currentstring = '\keephidden{NEW TABLE ENTRY}'; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 1824 sub end_table {
|
Line 1765 sub end_table {
|
} else { |
} else { |
$currentstring .= $Apache::londefdef::table[-1]{'output'}; |
$currentstring .= $Apache::londefdef::table[-1]{'output'}; |
pop @Apache::londefdef::table; |
pop @Apache::londefdef::table; |
|
undef @Apache::londefdef::table; |
} |
} |
} |
} |
return $currentstring; |
return $currentstring; |
Line 1911 sub end_td {
|
Line 1853 sub end_td {
|
$Apache::londefdef::table[-1]{'TeXlength'} .= '0,'; |
$Apache::londefdef::table[-1]{'TeXlength'} .= '0,'; |
} |
} |
} |
} |
for (my $in=0; $in<=$#{$Apache::londefdef::table[-1]{'include'}};$in++) { |
for (my $in=0; $in<=$#{$Apache::londefdef::table[-1]{'include'}};$in++) { |
$data=~s/\\keephidden\{NEW TABLE ENTRY\}/$Apache::londefdef::table[-1]{'include'}[$in]/; |
$data=~s/\\keephidden\{NEW TABLE ENTRY\}/$Apache::londefdef::table[-1]{'include'}[$in]/; |
} |
} |
@{ $Apache::londefdef::table[-1]{'rowdata'} }[$current_row] .= '\parbox{TOBECHANGEDONNUMBER}{'.$data.'} '.$Apache::londefdef::table[-1]{'vinc'}; |
@{ $Apache::londefdef::table[-1]{'rowdata'} }[$current_row] .= '\parbox{TOBECHANGEDONNUMBER}{'.$data.'} '.$Apache::londefdef::table[-1]{'vinc'}; |
Line 2198 sub start_allow {
|
Line 2140 sub start_allow {
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; |
my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval,undef,1); |
my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval,undef,1); |
$src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src); |
$src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src); |
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=$src; |
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]= |
|
&Apache::lonnet::clutter($src); |
&image_replication($src); |
&image_replication($src); |
my $result; |
my $result; |
if ($target eq 'edit') { |
if ($target eq 'edit') { |