| blob | 1e107158b9df2e668ced298b5bc5f3f3696c7167 |
1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
2 /*
3 * This file is part of the LibreOffice project.
4 *
5 * This Source Code Form is subject to the terms of the Mozilla Public
6 * License, v. 2.0. If a copy of the MPL was not distributed with this
7 * file, You can obtain one at http://mozilla.org/MPL/2.0/.
8 *
9 * This file incorporates work covered by the following license notice:
10 *
11 * Licensed to the Apache Software Foundation (ASF) under one or more
12 * contributor license agreements. See the NOTICE file distributed
13 * with this work for additional information regarding copyright
14 * ownership. The ASF licenses this file to you under the Apache
15 * License, Version 2.0 (the "License"); you may not use this file
16 * except in compliance with the License. You may obtain a copy of
17 * the License at http://www.apache.org/licenses/LICENSE-2.0 .
18 */
20 #include <mathtype.hxx>
22 #include <filter/msfilter/classids.hxx>
23 #include <osl/diagnose.h>
24 #include <sfx2/docfile.hxx>
27 {
28 //These are the default MathType sizes
37 /*
38 These are the default MathType italic/bold settings If mathtype is changed
39 from its defaults, there is nothing we can do, as this information is not
40 stored in the document
41 */
42 MathTypeFont aFont;
44 {
47 {
58 }
60 }
61 }
64 /*ToDo replace with table rather than switch, returns
65 sal_True in the case that the char is just a char, and
66 sal_False if the character is an operator which must not be
67 placed inside the quote sequence designed to protect
68 against being parsed as a keyword
70 General solution required to force starmath to handle
71 unicode math chars the way it handles its own math
72 chars rather than handle them as text as it will do
73 for the default case below, i.e. incorrect spacing
74 between math symbols and ordinary text e.g. 1=2 rather
75 than 1 = 2
76 */
78 sal_uInt8 nTypeFace)
79 {
83 {
111 else
112 {
115 }
168 else
169 {
172 }
177 else
178 {
181 }
186 else
187 {
190 }
195 else
196 {
199 }
222 else
519 }
523 }
526 {
529 {
542 }
545 }
548 {
554 }
557 {
566 EQNOLEFILEHDR aHdr;
578 //little crude hack to close occasionally open expressions
579 //a sophisticated system to determine what expressions are
580 //opened is required, but this is as much work as rewriting
581 //starmaths internals.
584 #ifdef CAOLAN
585 //sanity check
587 //sigh, theres no point! MathType (in some bizarre subvarient) pads
588 //the end of the formula with ENDs (0)'s
590 SAL_WARN_IF(nEnd == pS->Seek(STREAM_SEEK_TO_END), "starmath", "Possibly unfully parsed formula");
591 #endif
593 }
596 {
600 )
601 {
604 }
605 }
608 {
611 {
619 }
622 }
625 {
626 sal_uInt8 nXNudge;
628 sal_uInt8 nYNudge;
631 {
632 sal_uInt16 nXLongNudge;
633 sal_uInt16 nYLongNudge;
636 }
637 }
639 /* Fabulously complicated as many tokens have to be reordered and generally
640 * moved around from mathtypes paradigm to starmaths. */
643 {
646 sal_uInt16 nTabOffset;
659 do
660 {
665 /*MathType strings can of course include words which
666 *are StarMath keywords, the simplest solution is
667 to escape strings of greater than len 1 with double
668 quotes to avoid scanning the TokenTable for matches
670 Unfortunately it may turn out that the string gets
671 split during the handling of a character emblishment
672 so this special case must be handled in the
673 character handler case 2:
674 */
676 {
679 }
681 {
684 {
685 OUString aStr;
690 }
692 {
699 }
700 }
703 {
705 {
712 {
714 {
730 else
776 {
779 else
780 {
784 }
785 }
801 {
804 }
807 {
810 }
829 {
835 }
839 {
845 }
849 {
855 }
859 {
862 else
865 {
868 }
869 }
881 {
884 else
887 {
890 }
891 }
899 {
902 else
905 {
908 }
909 }
917 {
920 else
924 }
936 {
939 else
943 }
950 {
953 else
957 }
968 {
971 {
974 }
975 }
986 {
990 }
1001 {
1004 {
1007 }
1008 }
1019 {
1023 }
1034 {
1037 {
1040 }
1041 }
1052 {
1056 }
1067 {
1070 {
1073 }
1074 }
1085 {
1089 }
1100 {
1103 {
1106 }
1107 }
1118 {
1122 }
1144 {
1146 {
1149 }
1150 }
1153 {
1156 }
1167 {
1170 }
1183 {
1186 }
1210 {
1213 }
1215 {
1217 newline--;
1218 }
1220 {
1222 newline--;
1223 }
1245 }
1251 {
1255 {
1258 {
1261 }
1262 }
1263 else
1268 else
1270 nSetSize--;
1272 }
1279 {
1295 else
1339 {
1341 {
1342 newline--;
1345 }
1346 else
1347 {
1351 }
1352 }
1353 else
1354 {
1356 newline--;
1357 }
1358 nPart++;
1366 newline--;
1367 else
1369 nPart++;
1372 {
1375 newline--;
1380 {
1383 {
1386 }
1387 }
1388 else
1393 else
1395 nPart++;
1396 }
1401 newline--;
1403 nPart++;
1417 {
1418 newline--;
1420 }
1421 nPart++;
1426 {
1427 newline--;
1429 }
1430 nPart++;
1435 {
1436 newline--;
1438 }
1439 nPart++;
1443 newline--;
1446 newline--;
1448 nPart++;
1453 {
1455 {
1458 }
1459 else
1460 {
1465 }
1466 }
1468 newline--;
1469 nPart++;
1474 {
1475 newline--;
1477 {
1484 }
1485 }
1486 nPart++;
1500 {
1502 {
1505 }
1506 newline--;
1507 }
1509 {
1513 newline--;
1514 }
1516 newline--;
1518 {
1522 newline--;
1523 }
1524 nPart++;
1529 {
1531 {
1534 }
1535 newline--;
1536 }
1539 {
1543 newline--;
1544 }
1546 newline--;
1548 {
1552 newline--;
1553 }
1554 nPart++;
1560 {
1562 {
1565 }
1566 newline--;
1567 }
1570 {
1574 newline--;
1575 }
1576 nPart++;
1581 {
1584 newline--;
1585 }
1588 {
1592 newline--;
1593 }
1595 newline--;
1597 {
1601 newline--;
1602 }
1603 nPart++;
1609 {
1612 newline--;
1613 }
1615 {
1619 newline--;
1620 }
1621 nPart++;
1629 {
1632 newline--;
1633 }
1635 newline--;
1637 {
1640 newline--;
1641 }
1644 {
1648 }
1649 nPart++;
1653 {
1655 {
1658 }
1659 else
1661 }
1666 nPart++;
1670 }
1672 //symbols that follow some of these
1673 //records. Foo Data.
1675 /*In matrices and piles we cannot separate equation
1676 *lines with the newline keyword*/
1678 newline++;
1679 }
1680 }
1712 {
1715 }
1719 {
1720 MathTypeFont aFont;
1722 /*
1723 The typeface number is the negative (which makes it
1724 positive) of the typeface value (unbiased) that appears in
1725 CHAR records that might follow a given FONT record
1726 */
1732 {
1738 }
1739 // Do nothing to the font name now in aSeq!?
1740 }
1755 }
1756 }
1759 {
1761 nSetSize--;
1762 }
1764 }
1766 /*Simply determine if we are at the end of a record or the end of a line,
1767 *with fiddley logic to see if we are in a matrix or a pile or neither
1769 Note we cannot tell until after the event that this is the last entry
1770 of a pile, so we must strip the last separator of a pile after this
1771 is detected in the PILE handler
1772 */
1775 {
1777 {
1779 {
1783 {
1785 rCurRow++;
1786 }
1787 }
1788 else
1789 {
1792 rCurCol++;
1793 else
1795 }
1796 }
1797 }
1799 /* set the alignment of the following term, but starmath currently
1800 * cannot handle vertical alignment */
1802 {
1804 {
1815 }
1816 rSetAlign++;
1817 }
1819 /* set size of text, complexity due to overuse of signedness as a flag
1820 * indicator by mathtype file format*/
1822 {
1826 {
1828 {
1830 {
1831 rSetSize--;
1834 }
1836 {
1842 rSetSize++;
1843 }
1845 }
1846 }
1847 else
1848 {
1849 /*sizetable should theoreticaly be filled with the default sizes
1850 *of the various font groupings matching starmaths equivalents
1851 in aTypeFaces, and a test would be done to see if the new font
1852 size would be the same as what starmath would have chosen for
1853 itself anyway in which case the size setting could be ignored*/
1857 {
1859 {
1860 rSetSize--;
1863 }
1865 {
1871 rSetSize++;
1872 }
1874 }
1875 }
1877 }
1880 {
1886 {
1906 };
1914 };
1945 }
1948 }
1952 {
1954 {
1977 {
1979 //if the token str and the result text are the same then this
1980 //is to be seen as text, else assume it's a mathchar
1983 else
1985 }
1995 {
2000 }
2003 //Root Node, PILE equivalent, i.e. vertical stack
2010 {
2018 }
2028 else
2032 {
2037 }
2039 }
2040 }
2044 {
2051 //theres just no way we can now handle any character
2052 //attributes (from mathtypes perspective) centered
2053 //over an expression but above template attribute
2054 //such as widevec and similar constructs
2055 //we have to drop them
2058 }
2061 {
2065 }
2069 {
2078 nBytes++;
2083 nBytes++;
2089 {
2093 }
2095 }
2098 //Root Node, PILE equivalent, i.e. vertical stack
2100 {
2102 //The root of the starmath is a table, if
2103 //we convert this them each iteration of
2104 //conversion from starmath to mathtype will
2105 //add an extra unnecessary level to the
2106 //mathtype output stack which would grow
2107 //without bound in a multi step conversion
2113 {
2117 }
2121 {
2125 }
2128 }
2132 {
2138 else
2143 {
2147 }
2150 {
2154 }
2155 else
2160 }
2164 {
2168 {
2172 }
2177 {
2186 {
2190 }
2191 else
2198 {
2202 }
2203 else
2206 {
2210 }
2211 else
2213 }
2215 }
2218 /*
2219 Sub and Sup scripts and another problem area, StarMath
2220 can have all possible options used at the same time, whereas
2221 Mathtype cannot. The ordering of the nodes for each system
2222 is quite different as well leading to some complexity
2223 */
2225 {
2228 {
2232 }
2238 {
2246 {
2250 }
2251 else
2254 {
2258 }
2259 else
2263 }
2269 {
2271 }
2277 {
2281 }
2286 {
2294 {
2298 }
2299 else
2302 {
2306 }
2307 else
2310 }
2312 //After subscript mathtype will keep the size of
2313 //normal text at the subscript size, sigh.
2315 }
2319 {
2339 }
2343 {
2353 {
2355 {
2395 }
2396 }
2399 {
2403 }
2408 {
2417 }
2422 }
2426 {
2431 else
2437 {
2441 }
2444 {
2448 }
2450 }
2453 {
2457 sal_uLong nPos;
2458 sal_uInt8 nVariation;
2461 {
2474 }
2481 {
2485 {
2488 }
2493 }
2494 else
2495 {
2498 }
2501 {
2506 else
2512 {
2515 }
2516 else
2517 {
2520 }
2524 {
2527 }
2528 else
2529 {
2532 }
2536 {
2539 }
2540 else
2541 {
2544 }
2548 {
2551 }
2552 else
2553 {
2556 }
2560 {
2563 }
2564 else
2565 {
2568 }
2583 }
2588 else
2589 {
2595 }
2599 {
2621 SAL_FALLTHROUGH;
2627 SAL_FALLTHROUGH;
2635 }
2638 }
2641 bool MathType::HandlePile(int &rSetAlign, int nLevel, sal_uInt8 nSelector, sal_uInt8 nVariation)
2642 {
2654 {
2656 rSetAlign--;
2657 }
2659 }
2662 {
2671 nBytes++;
2675 nBytes++;
2687 }
2691 {
2698 {
2700 }
2702 {
2704 }
2706 //For the (broken) case where one subscript template ends, and there is
2707 //another one after it, mathtype handles it as if the second one was
2708 //inside the first one and renders it as sub of sub
2711 {
2715 {
2718 }
2719 }
2721 //suborderlist
2725 {
2729 }
2732 else
2737 }
2740 {
2741 sal_uInt8 nEmbel;
2742 do
2743 {
2746 {
2758 {
2761 }
2767 {
2770 }
2776 {
2779 }
2800 {
2803 }
2813 }
2817 }
2820 {
2821 sal_uInt8 nTemp;
2824 {
2839 }
2840 }
2844 {
2845 sal_Unicode nChar;
2849 {
2850 //This is a candidate for function recognition, whatever
2851 //that is!
2852 }
2857 {
2858 sal_uInt8 nChar8;
2861 }
2862 else
2865 /*
2866 bad character, old mathtype < 3 has these
2867 */
2872 {
2873 //A bit tricky, the character emblishments for
2874 //mathtype can all be listed after eachother, in
2875 //starmath some must go before the character and some
2876 //must go after. In addition some of the emblishments
2877 //may repeated and in starmath some of these groups
2878 //must be gathered together. sPost is the portion that
2879 //follows the char and nPostSup and nPostlSup are the
2880 //indexes at which this class of emblishment is
2881 //collated together
2890 {
2892 {
2893 OUString aStr;
2901 }
2902 else
2905 }
2906 }
2909 {
2914 )
2915 {
2917 {
2919 OUString aStr;
2923 }
2925 }
2928 {
2930 {
2932 OUString aStr;
2936 }
2938 }
2940 }
2943 {
2946 }
2948 }
2951 {
2953 //Special case for the "lim" option in StarMath
2957 )
2958 {
2960 {
2962 nLevel);
2977 {
2991 }
2993 {
3007 }
3015 {
3018 }
3021 }
3022 }
3024 }
3027 {
3030 {
3040 }
3046 }
3049 {
3051 {
3056 }
3059 {
3063 {
3065 }
3068 {
3070 }
3071 else
3073 //The typeface seems to be MTEXTRA for unicode characters,
3074 //though how to determine when mathtype chooses one over
3075 //the other is unknown. This should do the trick
3076 //nevertheless.
3077 sal_uInt8 nBias;
3081 ))
3082 {
3084 }
3093 else
3099 {
3105 }
3117 {
3125 }
3127 {
3133 }
3135 {
3141 }
3143 {
3149 }
3150 else
3152 }
3154 }
3157 {
3163 {
3167 {
3169 //theres just no way we can now handle any character
3170 //attributes (from mathtypes perspective) centered
3171 //over an expression but above template attributes
3172 //such as widevec and similar constructs
3173 //we have to drop them
3187 //or text with more than one char
3193 nPendingAttributes++;
3195 }
3196 }
3202 {
3214 }
3216 //if there was no suitable place to put the attribute,
3217 //then we have to just give up on it
3219 nPendingAttributes--;
3220 else
3221 {
3223 {
3225 nInsertion--;
3228 {
3273 }
3275 }
3276 }
3277 }
3280 {
3283 {
3286 {
3288 //after the character
3289 }
3290 else
3302 //Mathtype can only have these sort of character
3303 //attributes on a single character, starmath can put them
3304 //anywhere, when the entity involved is a text run this is
3305 //a large effort to place the character attribute on the
3306 //central mathtype character so that it does pretty much
3307 //what the user probably has in mind. The attributes
3308 //filled in here are dummy ones which are replaced in the
3309 //ATTRIBUT handler if a suitable location for the
3310 //attributes was found here. Unfortunately it is
3311 //possible for starmath to place character attributes on
3312 //entities which cannot occur in mathtype e.g. a Summation
3313 //symbol so these attributes may be lost
3316 {
3319 {
3321 //wedge the attributes in here and clear
3322 //the pending stack
3323 nPendingAttributes--;
3324 }
3328 }
3329 }
3330 }
3332 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */