| blob | 8b958a144a42f06995e5cc6e871bb90e0c8edfa2 |
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;
576 #ifdef STANDALONE
584 #endif
587 //little crude hack to close ocassionally open expressions
588 //a sophisticated system to determine what expressions are
589 //opened is required, but this is as much work as rewriting
590 //starmaths internals.
593 #if OSL_DEBUG_LEVEL > 1
594 # ifdef CAOLAN
595 //sanity check
597 //sigh, theres no point! MathType (in some bizarre subvarient) pads
598 //the end of the formula with ENDs (0)'s
602 # endif
603 #endif
605 }
608 {
612 )
613 {
616 }
617 }
620 {
623 {
631 }
634 }
637 {
638 sal_uInt8 nXNudge;
640 sal_uInt8 nYNudge;
643 {
644 sal_uInt16 nXLongNudge;
645 sal_uInt16 nYLongNudge;
648 }
649 }
650 /*Fabously complicated as many tokens have to be reordered and generally
651 *moved around from mathtypes paradigm to starmaths.*/
654 {
657 sal_uInt16 nTabOffset;
669 do
670 {
674 /*MathType strings can of course include words which
675 *are StarMath keywords, the simplest solution is
676 to escape strings of greater than len 1 with double
677 quotes to avoid scanning the TokenTable for matches
679 Unfortunately it may turn out that the string gets
680 split during the handling of a character emblishment
681 so this special case must be handled in the
682 character handler case 2:
683 */
685 {
688 }
690 {
693 {
694 String aStr;
699 }
701 {
708 }
709 }
712 {
714 {
721 {
723 {
739 else
785 {
788 else
789 {
793 }
794 }
810 {
813 }
816 {
819 }
838 {
844 }
848 {
854 }
858 {
864 }
868 {
871 else
874 {
877 }
878 }
890 {
893 else
896 {
899 }
900 }
908 {
911 else
914 {
917 }
918 }
926 {
929 else
933 }
945 {
948 else
952 }
959 {
962 else
966 }
977 {
980 {
983 }
984 }
995 {
999 }
1010 {
1013 {
1016 }
1017 }
1028 {
1032 }
1043 {
1046 {
1049 }
1050 }
1061 {
1065 }
1076 {
1079 {
1082 }
1083 }
1094 {
1098 }
1109 {
1112 {
1115 }
1116 }
1127 {
1131 }
1153 {
1155 {
1158 }
1159 }
1162 {
1165 }
1176 {
1179 }
1192 {
1195 }
1219 {
1222 }
1224 {
1226 newline--;
1227 }
1229 {
1231 newline--;
1232 }
1254 }
1260 {
1264 {
1267 {
1270 }
1271 }
1272 else
1277 else
1279 nSetSize--;
1281 }
1288 {
1304 else
1348 {
1350 {
1351 newline--;
1354 }
1355 else
1356 {
1360 }
1361 }
1362 else
1363 {
1365 newline--;
1366 }
1367 nPart++;
1375 newline--;
1376 else
1378 nPart++;
1381 {
1384 newline--;
1389 {
1392 {
1395 }
1396 }
1397 else
1402 else
1404 nPart++;
1405 }
1410 newline--;
1412 nPart++;
1426 {
1427 newline--;
1429 }
1430 nPart++;
1435 {
1436 newline--;
1438 }
1439 nPart++;
1444 {
1445 newline--;
1447 }
1448 nPart++;
1452 newline--;
1455 newline--;
1457 nPart++;
1462 {
1464 {
1467 }
1468 else
1469 {
1474 }
1475 }
1477 newline--;
1478 nPart++;
1483 {
1484 newline--;
1486 {
1493 }
1494 }
1495 nPart++;
1509 {
1511 {
1514 }
1515 newline--;
1516 }
1518 {
1522 newline--;
1523 }
1525 newline--;
1527 {
1531 newline--;
1532 }
1533 nPart++;
1538 {
1540 {
1543 }
1544 newline--;
1545 }
1548 {
1552 newline--;
1553 }
1555 newline--;
1557 {
1561 newline--;
1562 }
1563 nPart++;
1569 {
1571 {
1574 }
1575 newline--;
1576 }
1579 {
1583 newline--;
1584 }
1585 nPart++;
1590 {
1593 newline--;
1594 }
1597 {
1601 newline--;
1602 }
1604 newline--;
1606 {
1610 newline--;
1611 }
1612 nPart++;
1618 {
1621 newline--;
1622 }
1624 {
1628 newline--;
1629 }
1630 nPart++;
1638 {
1641 newline--;
1642 }
1644 newline--;
1646 {
1649 newline--;
1650 }
1653 {
1657 }
1658 nPart++;
1662 {
1664 {
1667 }
1668 else
1670 }
1675 nPart++;
1679 }
1681 //symbols that follow some of these
1682 //records. Foo Data.
1684 /*In matrices and piles we cannot separate equation
1685 *lines with the newline keyword*/
1687 newline++;
1688 }
1689 }
1701 nLastTemplateBracket);
1723 {
1726 }
1730 {
1731 MathTypeFont aFont;
1733 /*
1734 The typeface number is the negative (which makes it
1735 positive) of the typeface value (unbiased) that appears in
1736 CHAR records that might follow a given FONT record
1737 */
1743 {
1749 }
1750 // Do nothing to the font name now in aSeq!?
1751 }
1766 }
1767 }
1770 {
1772 nSetSize--;
1773 }
1775 }
1777 /*Simply determine if we are at the end of a record or the end of a line,
1778 *with fiddley logic to see if we are in a matrix or a pile or neither
1780 Note we cannot tell until after the event that this is the last entry
1781 of a pile, so we must strip the last separator of a pile after this
1782 is detected in the PILE handler
1783 */
1786 {
1788 {
1790 {
1794 {
1796 rCurRow++;
1797 }
1798 }
1799 else
1800 {
1803 rCurCol++;
1804 else
1806 }
1807 }
1808 }
1810 /* set the alignment of the following term, but starmath currently
1811 * cannot handle vertical alignment */
1813 {
1815 {
1826 }
1827 rSetAlign++;
1828 }
1830 /* set size of text, complexity due to overuse of signedness as a flag
1831 * indicator by mathtype file format*/
1833 {
1836 {
1838 {
1840 {
1841 rSetSize--;
1844 }
1846 {
1852 rSetSize++;
1853 }
1855 }
1856 }
1857 else
1858 {
1859 /*sizetable should theoreticaly be filled with the default sizes
1860 *of the various font groupings matching starmaths equivalents
1861 in aTypeFaces, and a test would be done to see if the new font
1862 size would be the same as what starmath would have chosen for
1863 itself anyway in which case the size setting could be ignored*/
1867 {
1869 {
1870 rSetSize--;
1873 }
1875 {
1881 rSetSize++;
1882 }
1884 }
1885 }
1887 }
1890 {
1896 {
1917 };
1925 };
1956 }
1959 }
1963 {
1966 {
1989 {
1991 //if the token str and the result text are the same then this
1992 //is to be seen as text, else assume its a mathchar
1995 else
1997 }
2006 {
2011 }
2014 //Root Node, PILE equivalent, i.e. vertical stack
2021 {
2029 }
2039 else
2043 {
2048 }
2050 }
2052 }
2056 {
2063 //theres just no way we can now handle any character
2064 //attributes (from mathtypes perspective) centered
2065 //over an expression but above template attribute
2066 //such as widevec and similar constructs
2067 //we have to drop them
2070 }
2073 {
2077 }
2081 {
2090 nBytes++;
2095 nBytes++;
2101 {
2105 }
2107 }
2110 //Root Node, PILE equivalent, i.e. vertical stack
2112 {
2114 //The root of the starmath is a table, if
2115 //we convert this them each iteration of
2116 //conversion from starmath to mathtype will
2117 //add an extra unnecessary level to the
2118 //mathtype output stack which would grow
2119 //without bound in a multi step conversion
2125 {
2129 }
2133 {
2137 }
2140 }
2144 {
2150 else
2155 {
2159 }
2162 {
2166 }
2167 else
2173 }
2177 {
2181 {
2185 }
2190 {
2199 {
2203 }
2204 else
2211 {
2215 }
2216 else
2219 {
2223 }
2224 else
2226 }
2228 }
2232 /*
2233 Sub and Sup scripts and another problem area, StarMath
2234 can have all possible options used at the same time, whereas
2235 Mathtype cannot. The ordering of the nodes for each system
2236 is quite different as well leading to some complexity
2237 */
2239 {
2244 {
2248 }
2253 {
2261 {
2265 }
2266 else
2269 {
2273 }
2274 else
2278 }
2284 {
2286 }
2292 {
2296 }
2301 {
2309 {
2313 }
2314 else
2317 {
2321 }
2322 else
2325 }
2327 //After subscript mathtype will keep the size of
2328 //normal text at the subscript size, sigh.
2330 }
2334 {
2354 }
2358 {
2368 {
2370 {
2410 }
2411 }
2414 {
2418 }
2423 {
2432 }
2437 }
2441 {
2446 else
2452 {
2456 }
2459 {
2463 }
2465 }
2468 {
2472 sal_uLong nPos;
2473 sal_uInt8 nVariation;
2476 {
2489 }
2496 {
2500 {
2503 }
2508 }
2509 else
2510 {
2513 }
2516 {
2520 else
2526 {
2529 }
2530 else
2531 {
2534 }
2538 {
2541 }
2542 else
2543 {
2546 }
2550 {
2553 }
2554 else
2555 {
2558 }
2562 {
2565 }
2566 else
2567 {
2570 }
2574 {
2577 }
2578 else
2579 {
2582 }
2597 }
2602 else
2603 {
2609 }
2614 {
2647 }
2650 }
2654 sal_uInt8 nVariation)
2655 {
2667 {
2669 rSetAlign--;
2670 }
2672 }
2675 sal_uInt8 nVariation)
2676 {
2685 nBytes++;
2689 nBytes++;
2701 }
2705 {
2712 {
2714 }
2716 {
2718 }
2720 //For the (broken) case where one subscript template ends, and there is
2721 //another one after it, mathtype handles it as if the second one was
2722 //inside the first one and renders it as sub of sub
2725 {
2729 {
2732 }
2733 }
2735 //suborderlist
2739 {
2743 }
2746 else
2751 }
2754 {
2755 sal_uInt8 nEmbel;
2756 do
2757 {
2760 {
2772 {
2775 }
2781 {
2784 }
2790 {
2793 }
2814 {
2817 }
2827 }
2831 }
2834 {
2835 sal_uInt8 nTemp;
2838 {
2853 }
2854 }
2858 {
2859 sal_Unicode nChar;
2863 {
2864 //This is a candidate for function recognition, whatever
2865 //that is!
2866 }
2871 {
2872 sal_uInt8 nChar8;
2875 }
2876 else
2879 /*
2880 bad character, old mathtype < 3 has these
2881 */
2886 {
2887 //A bit tricky, the character emblishments for
2888 //mathtype can all be listed after eachother, in
2889 //starmath some must go before the character and some
2890 //must go after. In addition some of the emblishments
2891 //may repeated and in starmath some of these groups
2892 //must be gathered together. sPost is the portion that
2893 //follows the char and nPostSup and nPostlSup are the
2894 //indexes at which this class of emblishment is
2895 //collated together
2904 {
2906 {
2907 String aStr;
2916 }
2917 else
2920 }
2921 }
2924 {
2929 )
2930 {
2932 {
2934 String aStr;
2938 }
2940 }
2943 {
2945 {
2947 String aStr;
2951 }
2953 }
2955 }
2958 {
2963 }
2965 }
2968 {
2970 //Special case for the "lim" option in StarMath
2974 )
2975 {
2977 {
2979 nLevel);
2994 {
3008 }
3010 {
3024 }
3032 {
3035 }
3037 //*pS << sal_uInt8(END); //options
3039 }
3040 }
3042 }
3045 {
3048 {
3058 }
3064 }
3067 {
3069 {
3074 }
3077 {
3081 {
3083 }
3086 {
3088 }
3089 else
3091 //The typeface seems to be MTEXTRA for unicode characters,
3092 //though how to determine when mathtype chooses one over
3093 //the other is unknown. This should do the trick
3094 //nevertheless.
3095 sal_uInt8 nBias;
3099 ))
3100 {
3102 }
3111 else
3117 {
3123 }
3135 {
3143 }
3145 {
3151 }
3153 {
3159 }
3161 {
3167 }
3168 else
3170 }
3172 }
3175 {
3181 {
3185 {
3187 //theres just no way we can now handle any character
3188 //attributes (from mathtypes perspective) centered
3189 //over an expression but above template attributes
3190 //such as widevec and similar constructs
3191 //we have to drop them
3205 //or text with more than one char
3211 nPendingAttributes++;
3213 }
3214 }
3220 {
3232 }
3234 //if there was no suitable place to put the attribute,
3235 //then we have to just give up on it
3237 nPendingAttributes--;
3238 else
3239 {
3241 {
3243 nInsertion--;
3246 {
3291 }
3293 }
3294 }
3295 }
3298 {
3301 {
3304 {
3306 //after the character
3307 }
3308 else
3320 //Mathtype can only have these sort of character
3321 //attributes on a single character, starmath can put them
3322 //anywhere, when the entity involved is a text run this is
3323 //a large effort to place the character attribute on the
3324 //central mathtype character so that it does pretty much
3325 //what the user probably has in mind. The attributes
3326 //filled in here are dummy ones which are replaced in the
3327 //ATTRIBUT handler if a suitable location for the
3328 //attributes was found here. Unfortunately it is
3329 //possible for starmath to place character attributes on
3330 //entities which cannot occur in mathtype e.g. a Summation
3331 //symbol so these attributes may be lost
3334 {
3337 {
3339 //wedge the attributes in here and clear
3340 //the pending stack
3341 nPendingAttributes--;
3342 }
3346 }
3347 }
3348 }
3350 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */