[Aimmath-commit] AIM/WEB-INF/maple/aim LaTeX.mpl,1.10,1.11

[<gr...@us...>]

Update of /cvsroot/aimmath/AIM/WEB-INF/maple/aim
In directory sc8-pr-cvs1:/tmp/cvs-serv31904

Modified Files:
	LaTeX.mpl 
Log Message:
Made changes to restore behaviour of earlier behaviour of AiM w.r.t.
symbols of form `-1` ... i.e. we avoid encapsulation by \mbox{{\tt ...}}
We leave the behaviour as Maple 7+ has it if there are special symbols
- not sure if we want this or not ... easy now to change it if we don't. GG


Index: LaTeX.mpl
===================================================================
RCS file: /cvsroot/aimmath/AIM/WEB-INF/maple/aim/LaTeX.mpl,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** LaTeX.mpl	15 Sep 2003 15:57:26 -0000	1.10
--- LaTeX.mpl	15 Sep 2003 16:17:56 -0000	1.11
***************
*** 74,86 ****
  `Package/Assign`(
   `latex/latex/symbol`,
!  "This is the Maple 7 version of this routine, modified to prevent nonstandard symbols from being surrounded by single quotes, @`@, and fix a bug that caused and error when converting the symbol @``@ to latex. @aim/LaTeX(``)@ now returns @NULL@)",
   proc(QQ)
!  local texlist, `{`, `}`, `\\_`, QQtmp;
   option system, remember;
! # KM
  # WAS:    if assigned(`latex/special_names`[`` || QQ]) then
!     if QQ = `` then return NULL; 
      elif assigned(`latex/special_names`[`` || QQ]) then
! # END KM
          texlist := `latex/special_names`[evaln(`` || QQ)]
      elif member(QQ, eval(`latex/greek`, 1)) then
--- 74,91 ----
  `Package/Assign`(
   `latex/latex/symbol`,
!  "This is the Maple 7 version of this routine, modified to prevent 
!   nonstandard symbols from being surrounded by single quotes, @`@, 
!   and fix a bug that caused an error when converting the symbol 
!   @``@ to latex. @aim/LaTeX(``)@ now returns @\"\"@) (this restores
!   the behaviour of the original AIM routine above).",
   proc(QQ)
!  local texlist, `{`, `}`, `\\_`, QQtmp, QQchars;
   option system, remember;
! # KM & GG
  # WAS:    if assigned(`latex/special_names`[`` || QQ]) then
!     if StringTools:-IsSpace(QQ) then
!         texlist := convert(QQ, string);
      elif assigned(`latex/special_names`[`` || QQ]) then
! # END KM & GG
          texlist := `latex/special_names`[evaln(`` || QQ)]
      elif member(QQ, eval(`latex/greek`, 1)) then
***************
*** 147,158 ****
          `{`, `latex/csname_font`, cat(op(subs("_" = "\\_",
          `latex/latex/chars_in_string`(substring(QQ, 1 .. -2))))), `}`
! # KM 
  # WAS:   else texlist := `\\mbox `, `{` $ 2, `latex/verbatim_font`, cat(`\``,
!     else texlist := `\\mbox `, `{` $ 2, `latex/verbatim_font`, cat(
!         op(subs("``" = "````", "#" = "\\#", "$" = "\\$", "%" = "\\%",
!         "&" = "\\&", "_" = "\\_", "{" = "\\{", "}" = "\\}", "~" = "\\~{}",
!         "^" = "\\^{}", "\\" = "$\\backslash$", "<" = "$<$", ">" = "$>$",
! # WAS:        "|" = "$|$", `latex/latex/chars_in_string`(QQ))), `\``), `}` $ 2
!         "|" = "$|$", `latex/latex/chars_in_string`(QQ))) ), `}` $ 2
      fi;
      return texlist
--- 152,174 ----
          `{`, `latex/csname_font`, cat(op(subs("_" = "\\_",
          `latex/latex/chars_in_string`(substring(QQ, 1 .. -2))))), `}`
! # KM & GG
  # WAS:   else texlist := `\\mbox `, `{` $ 2, `latex/verbatim_font`, cat(`\``,
! #             op(subs("``" = "````", "#" = "\\#", "$" = "\\$", "%" = "\\%",
! #             "&" = "\\&", "_" = "\\_", "{" = "\\{", "}" = "\\}", "~" = "\\~{}",
! #             "^" = "\\^{}", "\\" = "$\\backslash$", "<" = "$<$", ">" = "$>$",
! #             "|" = "$|$", `latex/latex/chars_in_string`(QQ))), `\``), `}` $ 2
!     else 
!         QQchars := `latex/latex/chars_in_string`(QQ);
!         texlist := subs("#" = "\\#", "$" = "\\$", "%" = "\\%",
!                         "&" = "\\&", "_" = "\\_", "{" = "\\{", "}" = "\\}",
!                         "~" = "\\~{}",  "^" = "\\^{}", "\\" = "$\\backslash$",
!                         "<" = "$<$", ">" = "$>$", "|" = "$|$", QQchars);
!         if QQchars <> texlist then
!             texlist := `\\mbox `, `{` $ 2, `latex/verbatim_font`,
!                        cat(op(texlist)), `}` $ 2
!         else
!             texlist := cat(op(texlist));
!         fi;
! # END KM & GG
      fi;
      return texlist