| Index: trunk/extensions/Math/mathParserTests.txt |
| — | — | @@ -66,3 +66,22 @@ |
| 67 | 67 | <img class="tex" alt="\officialeuro" src="/images/math/d/7/0/d708de0eed23dbd6f02b99ea9073547b.png" /> |
| 68 | 68 | </p> |
| 69 | 69 | !! end |
| | 70 | + |
| | 71 | +!! test |
| | 72 | +BUG 27754: Archaic Greek letters for math (may require texlive-lang-greek) |
| | 73 | +!! input |
| | 74 | +<math>\digamma</math><!-- Lowercase digamma was already available --> |
| | 75 | +<math>\Coppa\coppa\varcoppa</math> |
| | 76 | +<math>\Digamma</math> |
| | 77 | +<math>\Koppa\koppa</math> |
| | 78 | +<math>\Sampi\sampi</math> |
| | 79 | +<math>\Stigma\stigma\varstigma</math> |
| | 80 | +!! result |
| | 81 | +<p><img class="tex" alt="\digamma" src="/images/math/2/f/0/2f057b6e514c8ca2d9cf9a3e549f8865.png" /> |
| | 82 | +<img class="tex" alt="\Coppa\coppa\varcoppa" src="/images/math/8/3/0/8308ee5003aa36112414cad8ef874f85.png" /> |
| | 83 | +<img class="tex" alt="\Digamma" src="/images/math/5/c/f/5cfd6e5df6c87798542dca2e22c1e7cb.png" /> |
| | 84 | +<img class="tex" alt="\Koppa\koppa" src="/images/math/5/2/5/52593a0cdac178d165985ac014788b97.png" /> |
| | 85 | +<img class="tex" alt="\Sampi\sampi" src="/images/math/e/9/d/e9dabb19e4c27bf23d3c2a3629474562.png" /> |
| | 86 | +<img class="tex" alt="\Stigma\stigma\varstigma" src="/images/math/7/b/9/7b9233276816994a33a5e968202cef6e.png" /> |
| | 87 | +</p> |
| | 88 | +!! end |
| Index: trunk/extensions/Math/math/texutil.ml |
| — | — | @@ -45,18 +45,21 @@ |
| 46 | 46 | let modules_nonascii = ref false |
| 47 | 47 | let modules_encoding = ref UTF8 |
| 48 | 48 | let modules_color = ref false |
| | 49 | +let modules_teubner = ref false |
| 49 | 50 | let modules_euro = ref false |
| 50 | 51 | |
| 51 | 52 | (* wrappers to easily set / reset module properties *) |
| 52 | 53 | let tex_use_ams () = modules_ams := true |
| 53 | 54 | let tex_use_nonascii () = modules_nonascii := true |
| 54 | 55 | let tex_use_color () = modules_color := true |
| | 56 | +let tex_use_teubner () = modules_teubner := true |
| 55 | 57 | let tex_use_euro () = modules_euro := true |
| 56 | 58 | let tex_mod_reset () = ( |
| 57 | 59 | modules_ams := false; |
| 58 | 60 | modules_nonascii := false; |
| 59 | 61 | modules_encoding := UTF8; |
| 60 | 62 | modules_color := false; |
| | 63 | + modules_teubner := false; |
| 61 | 64 | modules_euro := false; |
| 62 | 65 | ) |
| 63 | 66 | |
| — | — | @@ -71,6 +74,7 @@ |
| 72 | 75 | (if !modules_nonascii then get_encoding !modules_encoding else "") ^ |
| 73 | 76 | (if !modules_ams then "\\usepackage{amsmath}\n\\usepackage{amsfonts}\n\\usepackage{amssymb}\n" else "") ^ |
| 74 | 77 | (if !modules_color then "\\usepackage[dvips,usenames]{color}\n" else "") ^ |
| | 78 | + (if !modules_teubner then "\\usepackage[greek]{babel}\n\\usepackage{teubner}\n" else "") ^ |
| 75 | 79 | (if !modules_euro then "\\usepackage{eurosym}\n" else "") ^ |
| 76 | 80 | "\\usepackage{cancel}\n\\pagestyle{empty}\n\\begin{document}\n$$\n" |
| 77 | 81 | |
| — | — | @@ -428,6 +432,17 @@ |
| 429 | 433 | | "\\geneuronarrow" -> (tex_use_euro (); LITERAL (TEX_ONLY "\\mbox{\\geneuronarrow}")) |
| 430 | 434 | | "\\geneurowide" -> (tex_use_euro (); LITERAL (TEX_ONLY "\\mbox{\\geneurowide}")) |
| 431 | 435 | | "\\officialeuro" -> (tex_use_euro (); LITERAL (TEX_ONLY "\\mbox{\\officialeuro}")) |
| | 436 | + | "\\Coppa" -> (tex_use_teubner (); LITERAL (HTMLABLE (FONT_UF, "\\mbox{\\Coppa}", "Ϙ"))) |
| | 437 | + | "\\coppa" -> (tex_use_teubner (); LITERAL (HTMLABLE (FONT_UF, "\\mbox{\\coppa}", "ϙ"))) |
| | 438 | + | "\\varcoppa" -> (tex_use_teubner (); LITERAL (HTMLABLE (FONT_UF, "\\mbox{\\coppa}", "ϙ"))) |
| | 439 | + | "\\Digamma" -> (tex_use_teubner (); LITERAL (HTMLABLE (FONT_UF, "\\mbox{\\Digamma}", "Ϝ"))) |
| | 440 | + | "\\Koppa" -> (tex_use_teubner (); LITERAL (HTMLABLE (FONT_UF, "\\mbox{\\Koppa}", "Ϙ"))) |
| | 441 | + | "\\koppa" -> (tex_use_teubner (); LITERAL (HTMLABLE (FONT_UF, "\\mbox{\\koppa}", "ϟ"))) |
| | 442 | + | "\\Sampi" -> (tex_use_teubner (); LITERAL (TEX_ONLY "\\mbox{\\Sampi}")) |
| | 443 | + | "\\sampi" -> (tex_use_teubner (); LITERAL (HTMLABLE (FONT_UF, "\\mbox{\\sampi}", "ϡ"))) |
| | 444 | + | "\\Stigma" -> (tex_use_teubner (); LITERAL (TEX_ONLY "\\mbox{\\Stigma}")) |
| | 445 | + | "\\stigma" -> (tex_use_teubner (); LITERAL (HTMLABLE (FONT_UF, "\\mbox{\\stigma}", "ϛ"))) |
| | 446 | + | "\\varstigma" -> (tex_use_teubner (); LITERAL (TEX_ONLY "\\mbox{\\varstigma}")) |
| 432 | 447 | | "\\implies" -> (tex_use_ams (); LITERAL (HTMLABLE (FONT_UF, "\\implies ", "⇒"))) |
| 433 | 448 | | "\\mod" -> (tex_use_ams (); LITERAL (HTMLABLE (FONT_UFH,"\\mod ", "mod"))) |
| 434 | 449 | | "\\Diamond" -> (tex_use_ams (); LITERAL (HTMLABLE (FONT_UF, "\\Diamond ", "◊"))) |