| blob | 09eb7e1a23d36ffb2ed26545092fc61d9d1ec359 |
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 */
21 #include <mathtype.hxx>
22 #include <osl/diagnose.h>
23 #include <sfx2/docfile.hxx>
26 {
27 //These are the default MathType sizes
36 /*
37 These are the default MathType italic/bold settings If mathtype is changed
38 from its defaults, there is nothing we can do, as this information is not
39 stored in the document
40 */
41 MathTypeFont aFont;
43 {
46 {
57 }
59 }
60 }
63 /*ToDo replace with table rather than switch, returns
64 sal_True in the case that the char is just a char, and
65 sal_False if the character is an operator which must not be
66 placed inside the quote sequence designed to protect
67 against being parsed as a keyword
69 General solution required to force starmath to handle
70 unicode math chars the way it handles its own math
71 chars rathar than handle them as text as it will do
72 for the default case below, i.e. incorrect spacing
73 between math symbols and ordinary text e.g. 1=2 rather
74 than 1 = 2
75 */
77 sal_uInt8 nTypeFace)
78 {
82 {
110 else
111 {
114 }
167 else
168 {
171 }
176 else
177 {
180 }
185 else
186 {
189 }
194 else
195 {
198 }
221 else
518 }
522 }
525 {
528 {
541 }
544 }
547 {
553 }
556 {
565 EQNOLEFILEHDR aHdr;
577 //little crude hack to close occasionally open expressions
578 //a sophisticated system to determine what expressions are
579 //opened is required, but this is as much work as rewriting
580 //starmaths internals.
583 #if OSL_DEBUG_LEVEL > 1
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
592 # endif
593 #endif
595 }
598 {
602 )
603 {
606 }
607 }
610 {
613 {
621 }
624 }
627 {
628 sal_uInt8 nXNudge;
630 sal_uInt8 nYNudge;
633 {
634 sal_uInt16 nXLongNudge;
635 sal_uInt16 nYLongNudge;
638 }
639 }
640 /*Fabously complicated as many tokens have to be reordered and generally
641 *moved around from mathtypes paradigm to starmaths.*/
644 {
647 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 }
1692 nLastTemplateBracket);
1714 {
1717 }
1721 {
1722 MathTypeFont aFont;
1724 /*
1725 The typeface number is the negative (which makes it
1726 positive) of the typeface value (unbiased) that appears in
1727 CHAR records that might follow a given FONT record
1728 */
1734 {
1740 }
1741 // Do nothing to the font name now in aSeq!?
1742 }
1757 }
1758 }
1761 {
1763 nSetSize--;
1764 }
1766 }
1768 /*Simply determine if we are at the end of a record or the end of a line,
1769 *with fiddley logic to see if we are in a matrix or a pile or neither
1771 Note we cannot tell until after the event that this is the last entry
1772 of a pile, so we must strip the last separator of a pile after this
1773 is detected in the PILE handler
1774 */
1777 {
1779 {
1781 {
1785 {
1787 rCurRow++;
1788 }
1789 }
1790 else
1791 {
1794 rCurCol++;
1795 else
1797 }
1798 }
1799 }
1801 /* set the alignment of the following term, but starmath currently
1802 * cannot handle vertical alignment */
1804 {
1806 {
1817 }
1818 rSetAlign++;
1819 }
1821 /* set size of text, complexity due to overuse of signedness as a flag
1822 * indicator by mathtype file format*/
1824 {
1827 {
1829 {
1831 {
1832 rSetSize--;
1835 }
1837 {
1843 rSetSize++;
1844 }
1846 }
1847 }
1848 else
1849 {
1850 /*sizetable should theoreticaly be filled with the default sizes
1851 *of the various font groupings matching starmaths equivalents
1852 in aTypeFaces, and a test would be done to see if the new font
1853 size would be the same as what starmath would have chosen for
1854 itself anyway in which case the size setting could be ignored*/
1858 {
1860 {
1861 rSetSize--;
1864 }
1866 {
1872 rSetSize++;
1873 }
1875 }
1876 }
1878 }
1881 {
1887 {
1908 };
1916 };
1947 }
1950 }
1954 {
1956 {
1979 {
1981 //if the token str and the result text are the same then this
1982 //is to be seen as text, else assume it's a mathchar
1985 else
1987 }
1997 {
2002 }
2005 //Root Node, PILE equivalent, i.e. vertical stack
2012 {
2020 }
2030 else
2034 {
2039 }
2041 }
2042 }
2046 {
2053 //theres just no way we can now handle any character
2054 //attributes (from mathtypes perspective) centered
2055 //over an expression but above template attribute
2056 //such as widevec and similar constructs
2057 //we have to drop them
2060 }
2063 {
2067 }
2071 {
2080 nBytes++;
2085 nBytes++;
2091 {
2095 }
2097 }
2100 //Root Node, PILE equivalent, i.e. vertical stack
2102 {
2104 //The root of the starmath is a table, if
2105 //we convert this them each iteration of
2106 //conversion from starmath to mathtype will
2107 //add an extra unnecessary level to the
2108 //mathtype output stack which would grow
2109 //without bound in a multi step conversion
2115 {
2119 }
2123 {
2127 }
2130 }
2134 {
2140 else
2145 {
2149 }
2152 {
2156 }
2157 else
2163 }
2167 {
2171 {
2175 }
2180 {
2189 {
2193 }
2194 else
2201 {
2205 }
2206 else
2209 {
2213 }
2214 else
2216 }
2218 }
2222 /*
2223 Sub and Sup scripts and another problem area, StarMath
2224 can have all possible options used at the same time, whereas
2225 Mathtype cannot. The ordering of the nodes for each system
2226 is quite different as well leading to some complexity
2227 */
2229 {
2232 {
2236 }
2242 {
2250 {
2254 }
2255 else
2258 {
2262 }
2263 else
2267 }
2273 {
2275 }
2281 {
2285 }
2290 {
2298 {
2302 }
2303 else
2306 {
2310 }
2311 else
2314 }
2316 //After subscript mathtype will keep the size of
2317 //normal text at the subscript size, sigh.
2319 }
2323 {
2343 }
2347 {
2357 {
2359 {
2399 }
2400 }
2403 {
2407 }
2412 {
2421 }
2426 }
2430 {
2435 else
2441 {
2445 }
2448 {
2452 }
2454 }
2457 {
2461 sal_uLong nPos;
2462 sal_uInt8 nVariation;
2465 {
2478 }
2485 {
2489 {
2492 }
2497 }
2498 else
2499 {
2502 }
2505 {
2510 else
2516 {
2519 }
2520 else
2521 {
2524 }
2528 {
2531 }
2532 else
2533 {
2536 }
2540 {
2543 }
2544 else
2545 {
2548 }
2552 {
2555 }
2556 else
2557 {
2560 }
2564 {
2567 }
2568 else
2569 {
2572 }
2587 }
2592 else
2593 {
2599 }
2604 {
2626 ///fall-through
2632 ///fall-through
2640 }
2643 }
2647 sal_uInt8 nVariation)
2648 {
2660 {
2662 rSetAlign--;
2663 }
2665 }
2668 sal_uInt8 nVariation)
2669 {
2678 nBytes++;
2682 nBytes++;
2694 }
2698 {
2705 {
2707 }
2709 {
2711 }
2713 //For the (broken) case where one subscript template ends, and there is
2714 //another one after it, mathtype handles it as if the second one was
2715 //inside the first one and renders it as sub of sub
2718 {
2722 {
2725 }
2726 }
2728 //suborderlist
2732 {
2736 }
2739 else
2744 }
2747 {
2748 sal_uInt8 nEmbel;
2749 do
2750 {
2753 {
2765 {
2768 }
2774 {
2777 }
2783 {
2786 }
2807 {
2810 }
2820 }
2824 }
2827 {
2828 sal_uInt8 nTemp;
2831 {
2846 }
2847 }
2851 {
2852 sal_Unicode nChar;
2856 {
2857 //This is a candidate for function recognition, whatever
2858 //that is!
2859 }
2864 {
2865 sal_uInt8 nChar8;
2868 }
2869 else
2872 /*
2873 bad character, old mathtype < 3 has these
2874 */
2879 {
2880 //A bit tricky, the character emblishments for
2881 //mathtype can all be listed after eachother, in
2882 //starmath some must go before the character and some
2883 //must go after. In addition some of the emblishments
2884 //may repeated and in starmath some of these groups
2885 //must be gathered together. sPost is the portion that
2886 //follows the char and nPostSup and nPostlSup are the
2887 //indexes at which this class of emblishment is
2888 //collated together
2897 {
2899 {
2900 OUString aStr;
2908 }
2909 else
2912 }
2913 }
2916 {
2921 )
2922 {
2924 {
2926 OUString aStr;
2930 }
2932 }
2935 {
2937 {
2939 OUString aStr;
2943 }
2945 }
2947 }
2950 {
2953 }
2955 }
2958 {
2960 //Special case for the "lim" option in StarMath
2964 )
2965 {
2967 {
2969 nLevel);
2984 {
2998 }
3000 {
3014 }
3022 {
3025 }
3028 }
3029 }
3031 }
3034 {
3037 {
3047 }
3053 }
3056 {
3058 {
3063 }
3066 {
3070 {
3072 }
3075 {
3077 }
3078 else
3080 //The typeface seems to be MTEXTRA for unicode characters,
3081 //though how to determine when mathtype chooses one over
3082 //the other is unknown. This should do the trick
3083 //nevertheless.
3084 sal_uInt8 nBias;
3088 ))
3089 {
3091 }
3100 else
3106 {
3112 }
3124 {
3132 }
3134 {
3140 }
3142 {
3148 }
3150 {
3156 }
3157 else
3159 }
3161 }
3164 {
3170 {
3174 {
3176 //theres just no way we can now handle any character
3177 //attributes (from mathtypes perspective) centered
3178 //over an expression but above template attributes
3179 //such as widevec and similar constructs
3180 //we have to drop them
3194 //or text with more than one char
3200 nPendingAttributes++;
3202 }
3203 }
3209 {
3221 }
3223 //if there was no suitable place to put the attribute,
3224 //then we have to just give up on it
3226 nPendingAttributes--;
3227 else
3228 {
3230 {
3232 nInsertion--;
3235 {
3280 }
3282 }
3283 }
3284 }
3287 {
3290 {
3293 {
3295 //after the character
3296 }
3297 else
3309 //Mathtype can only have these sort of character
3310 //attributes on a single character, starmath can put them
3311 //anywhere, when the entity involved is a text run this is
3312 //a large effort to place the character attribute on the
3313 //central mathtype character so that it does pretty much
3314 //what the user probably has in mind. The attributes
3315 //filled in here are dummy ones which are replaced in the
3316 //ATTRIBUT handler if a suitable location for the
3317 //attributes was found here. Unfortunately it is
3318 //possible for starmath to place character attributes on
3319 //entities which cannot occur in mathtype e.g. a Summation
3320 //symbol so these attributes may be lost
3323 {
3326 {
3328 //wedge the attributes in here and clear
3329 //the pending stack
3330 nPendingAttributes--;
3331 }
3335 }
3336 }
3337 }
3339 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */