Press n or j to go to the next uncovered block, b, p or k for the previous block.
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 941 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 975 976 977 978 979 980 981 982 983 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 1078 1079 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100 1101 1102 1103 1104 1105 1106 1107 1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 1328 1329 1330 1331 1332 1333 1334 1335 1336 1337 1338 1339 1340 1341 1342 1343 1344 1345 1346 1347 1348 1349 1350 1351 1352 1353 1354 1355 1356 1357 1358 1359 1360 1361 1362 1363 1364 1365 1366 1367 1368 1369 1370 1371 1372 1373 1374 1375 1376 1377 1378 1379 1380 1381 1382 1383 1384 1385 1386 1387 1388 1389 1390 1391 1392 1393 1394 1395 1396 1397 1398 1399 1400 1401 1402 1403 1404 1405 1406 1407 1408 1409 1410 1411 1412 1413 1414 1415 1416 1417 1418 1419 1420 1421 1422 1423 1424 1425 1426 1427 1428 1429 1430 1431 1432 1433 1434 1435 1436 1437 1438 1439 1440 1441 1442 1443 1444 1445 1446 1447 1448 1449 1450 1451 1452 1453 1454 1455 1456 1457 1458 1459 1460 1461 1462 1463 1464 1465 1466 1467 1468 1469 1470 1471 1472 1473 1474 1475 1476 1477 1478 1479 1480 1481 1482 1483 1484 1485 1486 1487 1488 1489 1490 1491 1492 1493 1494 1495 1496 1497 1498 1499 1500 1501 1502 1503 1504 1505 1506 1507 1508 1509 1510 1511 1512 1513 1514 1515 1516 1517 1518 1519 1520 1521 1522 1523 1524 1525 1526 1527 1528 1529 1530 1531 1532 1533 1534 1535 1536 1537 1538 1539 1540 1541 1542 1543 1544 1545 1546 1547 1548 1549 1550 1551 1552 1553 1554 1555 1556 1557 1558 1559 1560 1561 1562 1563 1564 1565 1566 1567 1568 1569 1570 1571 1572 1573 1574 1575 1576 1577 1578 1579 1580 1581 1582 1583 1584 1585 1586 1587 1588 1589 1590 1591 1592 1593 1594 1595 1596 1597 1598 1599 1600 1601 1602 1603 1604 1605 1606 1607 1608 1609 1610 1611 1612 1613 1614 1615 1616 1617 1618 1619 1620 1621 1622 1623 1624 1625 1626 1627 1628 1629 1630 1631 1632 1633 1634 1635 1636 1637 1638 1639 1640 1641 1642 1643 1644 1645 1646 1647 1648 1649 1650 1651 1652 1653 1654 1655 1656 1657 1658 1659 1660 1661 1662 1663 1664 1665 1666 1667 1668 1669 1670 1671 1672 1673 1674 1675 1676 1677 1678 1679 1680 1681 1682 1683 1684 1685 1686 1687 1688 1689 1690 1691 1692 1693 1694 1695 1696 1697 1698 1699 1700 1701 1702 1703 1704 1705 1706 1707 1708 1709 1710 1711 1712 1713 1714 1715 1716 1717 1718 1719 1720 1721 1722 1723 1724 1725 1726 1727 1728 1729 1730 1731 1732 1733 1734 1735 1736 1737 1738 1739 1740 1741 1742 1743 1744 1745 1746 1747 1748 1749 1750 1751 1752 1753 1754 1755 1756 1757 1758 1759 1760 1761 1762 1763 1764 1765 1766 1767 1768 1769 1770 1771 1772 1773 1774 1775 1776 1777 1778 1779 1780 1781 1782 1783 1784 1785 1786 1787 1788 1789 1790 1791 1792 1793 1794 1795 1796 1797 1798 1799 1800 1801 1802 1803 1804 1805 1806 1807 1808 1809 1810 1811 1812 1813 1814 1815 1816 1817 1818 1819 1820 1821 1822 1823 1824 1825 1826 1827 1828 1829 1830 1831 1832 1833 1834 1835 1836 1837 1838 1839 1840 1841 1842 1843 1844 1845 1846 1847 1848 1849 1850 1851 1852 1853 1854 1855 1856 1857 1858 1859 1860 1861 1862 1863 1864 1865 1866 1867 1868 1869 1870 1871 1872 1873 1874 1875 1876 1877 1878 1879 1880 1881 1882 1883 1884 1885 1886 1887 1888 1889 1890 1891 1892 1893 1894 1895 1896 1897 1898 1899 1900 1901 1902 1903 1904 1905 1906 1907 1908 1909 1910 1911 1912 1913 1914 1915 1916 1917 1918 1919 1920 1921 1922 1923 1924 1925 1926 1927 1928 1929 1930 1931 1932 1933 1934 1935 1936 1937 1938 1939 1940 1941 1942 1943 1944 1945 1946 1947 1948 1949 1950 1951 1952 1953 1954 1955 1956 1957 1958 1959 1960 1961 1962 1963 1964 1965 1966 1967 1968 1969 1970 1971 1972 1973 1974 1975 1976 1977 1978 1979 1980 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 2016 2017 2018 2019 2020 2021 2022 2023 2024 2025 2026 2027 2028 2029 2030 2031 2032 2033 2034 2035 2036 2037 2038 2039 2040 2041 2042 2043 2044 2045 2046 2047 2048 2049 2050 2051 2052 2053 2054 2055 2056 2057 2058 2059 2060 2061 2062 2063 2064 2065 2066 2067 2068 2069 2070 2071 2072 2073 2074 2075 2076 2077 2078 2079 2080 2081 2082 2083 2084 2085 2086 2087 2088 2089 2090 2091 2092 2093 2094 2095 2096 2097 2098 2099 2100 2101 2102 2103 2104 2105 2106 2107 2108 2109 2110 2111 2112 2113 2114 2115 2116 2117 2118 2119 2120 2121 2122 2123 2124 2125 2126 2127 2128 2129 2130 2131 2132 2133 2134 2135 2136 2137 2138 2139 2140 2141 2142 2143 2144 2145 2146 2147 2148 2149 2150 2151 2152 2153 2154 2155 2156 2157 2158 2159 2160 2161 2162 2163 2164 2165 2166 2167 2168 2169 2170 2171 2172 2173 2174 2175 2176 2177 2178 2179 2180 2181 2182 2183 2184 2185 2186 2187 2188 2189 2190 2191 2192 2193 2194 2195 2196 2197 2198 2199 2200 2201 2202 2203 2204 2205 2206 2207 2208 2209 2210 2211 2212 2213 2214 2215 2216 2217 2218 2219 2220 2221 2222 2223 2224 2225 2226 2227 2228 2229 2230 2231 2232 2233 2234 2235 2236 2237 2238 2239 2240 2241 2242 2243 2244 2245 2246 2247 2248 2249 2250 2251 2252 2253 2254 2255 2256 2257 2258 2259 2260 2261 2262 2263 2264 2265 2266 2267 2268 2269 2270 2271 2272 2273 2274 2275 2276 2277 2278 2279 2280 2281 2282 2283 2284 2285 2286 2287 2288 2289 2290 2291 2292 2293 2294 2295 2296 2297 2298 2299 2300 2301 2302 2303 2304 2305 2306 2307 2308 2309 2310 2311 2312 2313 2314 2315 2316 2317 2318 2319 2320 2321 2322 2323 2324 2325 2326 2327 2328 2329 2330 2331 2332 2333 2334 2335 2336 2337 2338 2339 2340 2341 2342 2343 2344 2345 2346 2347 2348 2349 2350 2351 2352 2353 2354 2355 2356 2357 2358 2359 2360 2361 2362 2363 2364 2365 2366 2367 2368 2369 2370 2371 2372 2373 2374 2375 2376 2377 2378 2379 2380 2381 2382 2383 2384 2385 2386 2387 2388 2389 2390 2391 2392 2393 2394 2395 2396 2397 2398 2399 2400 2401 2402 2403 2404 2405 2406 2407 2408 2409 2410 2411 2412 2413 2414 2415 2416 2417 2418 2419 2420 2421 2422 2423 2424 2425 2426 2427 2428 2429 2430 2431 2432 2433 2434 2435 2436 2437 2438 2439 2440 2441 2442 2443 2444 2445 2446 2447 2448 2449 2450 2451 2452 2453 2454 2455 2456 2457 2458 2459 2460 2461 2462 2463 2464 2465 2466 2467 2468 2469 2470 2471 2472 2473 2474 2475 2476 2477 2478 2479 2480 2481 2482 2483 2484 2485 2486 2487 2488 2489 2490 2491 2492 2493 2494 2495 2496 2497 2498 2499 2500 2501 2502 2503 2504 2505 2506 2507 2508 2509 2510 2511 2512 2513 2514 2515 2516 2517 2518 2519 2520 2521 2522 2523 2524 2525 2526 2527 2528 2529 2530 2531 2532 2533 2534 2535 2536 2537 2538 2539 2540 2541 2542 2543 2544 2545 2546 2547 2548 2549 2550 2551 2552 2553 2554 2555 2556 2557 2558 2559 2560 2561 2562 2563 2564 2565 2566 2567 2568 2569 2570 2571 2572 2573 2574 2575 2576 2577 2578 2579 2580 2581 2582 2583 2584 2585 2586 2587 2588 2589 2590 2591 2592 2593 2594 2595 2596 2597 2598 2599 2600 2601 2602 2603 2604 2605 2606 2607 2608 2609 2610 2611 2612 2613 2614 2615 2616 2617 2618 2619 2620 2621 2622 2623 2624 2625 2626 2627 2628 2629 2630 2631 2632 2633 2634 2635 2636 2637 2638 2639 2640 2641 2642 2643 2644 2645 2646 2647 2648 2649 2650 2651 2652 2653 2654 2655 2656 2657 2658 2659 2660 2661 2662 2663 2664 2665 2666 2667 2668 2669 2670 2671 2672 2673 2674 2675 2676 2677 2678 2679 2680 2681 2682 2683 2684 2685 2686 2687 2688 2689 2690 2691 2692 2693 2694 2695 2696 2697 2698 2699 2700 2701 2702 2703 2704 2705 2706 2707 2708 2709 2710 2711 2712 2713 2714 2715 2716 2717 2718 2719 2720 2721 2722 2723 2724 2725 2726 2727 2728 2729 2730 2731 2732 2733 2734 2735 2736 2737 2738 2739 2740 2741 2742 2743 2744 2745 2746 2747 2748 2749 2750 2751 2752 2753 2754 2755 2756 2757 2758 2759 2760 2761 2762 2763 2764 2765 2766 2767 2768 2769 2770 2771 2772 2773 2774 2775 2776 2777 2778 2779 2780 2781 2782 2783 2784 2785 2786 2787 2788 2789 2790 2791 2792 2793 2794 2795 2796 2797 2798 2799 2800 2801 2802 2803 2804 2805 2806 2807 2808 2809 2810 2811 2812 2813 2814 2815 2816 2817 2818 2819 2820 2821 2822 2823 2824 2825 2826 2827 2828 2829 2830 2831 2832 2833 2834 2835 2836 2837 2838 2839 2840 2841 2842 2843 2844 2845 2846 2847 2848 2849 2850 2851 2852 2853 2854 2855 2856 2857 2858 2859 2860 2861 2862 2863 2864 2865 2866 2867 2868 2869 2870 2871 2872 2873 2874 2875 2876 2877 2878 2879 2880 2881 2882 2883 2884 2885 2886 2887 2888 2889 2890 2891 2892 2893 2894 2895 2896 2897 2898 2899 2900 2901 2902 2903 2904 2905 2906 2907 2908 2909 2910 2911 2912 2913 2914 2915 2916 2917 2918 2919 2920 2921 2922 2923 2924 2925 2926 2927 2928 2929 2930 2931 2932 2933 2934 2935 2936 2937 2938 2939 2940 2941 2942 2943 2944 2945 2946 2947 2948 2949 2950 2951 2952 2953 2954 2955 2956 2957 2958 2959 2960 2961 2962 2963 2964 2965 2966 2967 2968 2969 2970 2971 2972 2973 2974 2975 2976 2977 2978 2979 2980 2981 2982 2983 2984 2985 2986 2987 2988 2989 2990 2991 2992 2993 2994 2995 2996 2997 2998 2999 3000 3001 3002 3003 3004 3005 3006 3007 3008 3009 3010 3011 3012 3013 3014 3015 3016 3017 3018 3019 3020 3021 3022 3023 3024 3025 3026 3027 3028 3029 3030 3031 3032 3033 3034 3035 3036 3037 3038 3039 3040 3041 3042 3043 3044 3045 3046 3047 3048 3049 3050 3051 3052 3053 3054 3055 3056 3057 3058 3059 3060 3061 3062 3063 3064 3065 3066 3067 3068 3069 3070 3071 3072 3073 3074 3075 3076 3077 3078 3079 3080 3081 3082 3083 3084 3085 3086 3087 3088 3089 3090 3091 3092 3093 3094 3095 3096 3097 3098 3099 3100 3101 3102 3103 3104 3105 3106 3107 3108 3109 3110 3111 3112 3113 3114 3115 3116 3117 3118 3119 3120 3121 3122 3123 3124 3125 3126 3127 3128 3129 3130 3131 3132 3133 3134 3135 3136 3137 3138 3139 3140 3141 3142 3143 3144 3145 3146 3147 3148 3149 3150 3151 3152 3153 3154 3155 3156 3157 3158 3159 3160 3161 3162 3163 3164 3165 3166 3167 3168 3169 3170 3171 3172 3173 3174 3175 3176 3177 3178 3179 3180 3181 3182 3183 3184 3185 3186 3187 3188 3189 3190 3191 3192 3193 3194 3195 3196 3197 3198 3199 3200 3201 3202 3203 3204 3205 3206 3207 3208 3209 3210 3211 3212 3213 3214 3215 3216 3217 3218 3219 3220 3221 3222 3223 3224 3225 3226 3227 3228 3229 3230 3231 3232 3233 3234 3235 3236 3237 3238 3239 3240 3241 3242 3243 3244 3245 3246 3247 3248 3249 3250 3251 3252 3253 3254 3255 3256 3257 3258 3259 3260 3261 3262 3263 3264 3265 3266 3267 3268 3269 3270 3271 3272 3273 3274 3275 3276 3277 3278 3279 3280 3281 3282 3283 3284 3285 3286 3287 3288 3289 3290 3291 3292 3293 3294 3295 3296 3297 3298 3299 3300 3301 3302 3303 3304 3305 3306 3307 3308 3309 3310 3311 3312 3313 3314 3315 3316 3317 3318 3319 3320 3321 3322 3323 3324 3325 3326 3327 3328 3329 3330 3331 3332 3333 3334 3335 3336 3337 3338 3339 3340 3341 3342 3343 3344 3345 3346 3347 3348 3349 3350 3351 3352 3353 3354 3355 3356 3357 3358 3359 3360 3361 3362 3363 3364 3365 3366 3367 3368 3369 3370 3371 3372 3373 3374 3375 3376 3377 3378 3379 3380 3381 3382 3383 3384 3385 3386 3387 3388 3389 3390 3391 3392 3393 3394 3395 3396 3397 3398 3399 3400 3401 3402 3403 3404 3405 3406 3407 3408 3409 3410 3411 3412 3413 3414 3415 3416 3417 3418 3419 3420 3421 3422 3423 3424 3425 3426 3427 3428 3429 3430 3431 3432 3433 3434 3435 3436 3437 3438 3439 3440 3441 3442 3443 3444 3445 3446 3447 3448 3449 3450 3451 3452 3453 3454 3455 3456 3457 3458 3459 3460 3461 3462 3463 3464 3465 3466 3467 3468 3469 3470 3471 3472 3473 3474 3475 3476 3477 3478 3479 3480 3481 3482 3483 3484 3485 3486 3487 3488 3489 3490 3491 3492 3493 3494 3495 3496 3497 3498 3499 3500 3501 3502 3503 3504 3505 3506 3507 3508 3509 3510 3511 3512 3513 3514 3515 3516 3517 3518 3519 3520 3521 3522 3523 3524 3525 3526 3527 3528 3529 3530 3531 3532 3533 3534 3535 3536 3537 3538 3539 3540 3541 3542 3543 3544 3545 3546 3547 3548 3549 3550 3551 3552 3553 3554 3555 3556 3557 3558 3559 3560 3561 3562 3563 3564 3565 3566 3567 3568 3569 3570 3571 3572 3573 3574 3575 3576 3577 3578 3579 3580 3581 3582 3583 3584 3585 3586 3587 3588 3589 3590 3591 3592 3593 3594 3595 3596 3597 3598 3599 3600 3601 3602 3603 3604 3605 3606 3607 3608 3609 3610 3611 3612 3613 3614 3615 3616 3617 3618 3619 3620 3621 3622 3623 3624 3625 3626 3627 3628 3629 3630 3631 3632 3633 3634 3635 3636 3637 3638 3639 3640 3641 3642 3643 3644 3645 3646 3647 3648 3649 3650 3651 3652 3653 3654 3655 3656 3657 3658 3659 3660 3661 3662 3663 3664 3665 3666 3667 3668 3669 3670 3671 3672 3673 3674 3675 3676 3677 3678 3679 3680 3681 3682 3683 3684 3685 3686 3687 3688 3689 3690 3691 3692 3693 3694 3695 3696 3697 3698 3699 3700 3701 3702 3703 3704 3705 3706 3707 3708 3709 3710 3711 3712 3713 3714 3715 3716 3717 3718 3719 3720 3721 3722 3723 3724 3725 3726 3727 3728 3729 3730 3731 3732 3733 3734 3735 3736 3737 3738 3739 3740 3741 3742 3743 3744 3745 3746 3747 3748 3749 3750 3751 3752 3753 3754 3755 3756 3757 3758 3759 3760 3761 3762 3763 3764 3765 3766 3767 3768 3769 3770 3771 3772 3773 3774 3775 3776 3777 3778 3779 3780 3781 3782 3783 3784 3785 3786 3787 3788 3789 3790 3791 3792 3793 3794 3795 3796 3797 3798 3799 3800 3801 3802 3803 3804 3805 3806 3807 3808 3809 3810 3811 3812 3813 3814 3815 3816 3817 3818 3819 3820 3821 3822 3823 3824 3825 3826 3827 3828 3829 3830 3831 3832 3833 3834 3835 3836 3837 3838 3839 3840 3841 3842 3843 3844 3845 3846 3847 3848 3849 3850 3851 3852 3853 3854 3855 3856 3857 3858 3859 3860 3861 3862 3863 3864 3865 3866 3867 3868 3869 3870 3871 3872 3873 3874 3875 3876 3877 3878 3879 3880 3881 3882 3883 3884 3885 3886 3887 3888 3889 3890 3891 3892 3893 3894 3895 3896 3897 3898 3899 3900 3901 3902 3903 3904 3905 3906 3907 3908 3909 3910 3911 3912 3913 3914 3915 3916 3917 3918 3919 3920 3921 3922 3923 3924 3925 3926 3927 3928 3929 3930 3931 3932 3933 3934 3935 3936 3937 3938 3939 3940 3941 3942 3943 3944 3945 3946 3947 3948 3949 3950 3951 3952 3953 3954 3955 3956 3957 3958 3959 3960 3961 3962 3963 3964 3965 3966 3967 3968 3969 3970 3971 3972 3973 3974 3975 3976 3977 3978 3979 3980 3981 3982 3983 3984 3985 3986 3987 3988 3989 3990 3991 3992 3993 3994 3995 3996 3997 3998 3999 4000 4001 4002 4003 4004 4005 4006 4007 4008 4009 4010 4011 4012 4013 4014 4015 4016 4017 4018 4019 4020 4021 4022 4023 4024 4025 4026 4027 4028 4029 4030 4031 4032 4033 4034 4035 4036 4037 4038 4039 4040 4041 4042 4043 4044 4045 4046 4047 4048 4049 4050 4051 4052 4053 4054 4055 4056 4057 4058 4059 4060 4061 4062 4063 4064 4065 4066 4067 4068 4069 4070 4071 4072 4073 4074 4075 4076 4077 4078 4079 4080 4081 4082 4083 4084 4085 4086 4087 4088 4089 4090 4091 4092 4093 4094 4095 4096 4097 4098 4099 4100 4101 4102 4103 4104 4105 4106 4107 4108 4109 4110 4111 4112 4113 4114 4115 4116 4117 4118 4119 4120 4121 4122 4123 4124 4125 4126 4127 4128 4129 4130 4131 4132 4133 4134 4135 4136 4137 4138 4139 4140 4141 4142 4143 4144 4145 4146 4147 4148 4149 4150 4151 4152 4153 4154 4155 4156 4157 4158 4159 4160 4161 4162 4163 4164 4165 4166 4167 4168 4169 4170 4171 4172 4173 4174 4175 4176 4177 4178 4179 4180 4181 4182 4183 4184 4185 4186 4187 4188 4189 4190 4191 4192 4193 4194 4195 4196 4197 4198 4199 4200 4201 4202 4203 4204 4205 4206 4207 4208 4209 4210 4211 4212 4213 4214 4215 4216 4217 4218 4219 4220 4221 4222 4223 4224 4225 4226 4227 4228 4229 4230 4231 4232 4233 4234 4235 4236 4237 4238 4239 4240 4241 4242 4243 4244 4245 4246 4247 4248 4249 4250 4251 4252 4253 4254 4255 4256 4257 4258 4259 4260 4261 4262 4263 4264 4265 4266 4267 4268 4269 4270 4271 4272 4273 4274 4275 4276 4277 4278 4279 4280 4281 4282 4283 4284 4285 4286 4287 4288 4289 4290 4291 4292 4293 4294 4295 4296 4297 4298 4299 4300 4301 4302 4303 4304 4305 4306 4307 4308 4309 4310 4311 4312 4313 4314 4315 4316 4317 4318 4319 4320 4321 4322 4323 4324 4325 4326 4327 4328 4329 4330 4331 4332 4333 4334 4335 4336 4337 4338 4339 4340 4341 4342 4343 4344 4345 4346 4347 4348 4349 4350 4351 4352 4353 4354 4355 4356 4357 4358 4359 4360 4361 4362 4363 4364 4365 4366 4367 4368 4369 4370 4371 4372 4373 4374 4375 4376 4377 4378 4379 4380 4381 4382 4383 4384 4385 4386 4387 4388 4389 4390 4391 4392 4393 4394 4395 4396 4397 4398 4399 4400 4401 4402 4403 4404 4405 4406 4407 4408 4409 4410 4411 4412 4413 4414 4415 4416 4417 4418 4419 4420 4421 4422 4423 4424 4425 4426 4427 4428 4429 4430 4431 4432 4433 4434 4435 4436 4437 4438 4439 4440 4441 4442 4443 4444 4445 4446 4447 4448 4449 4450 4451 4452 4453 4454 4455 4456 4457 4458 4459 4460 4461 4462 4463 4464 4465 4466 4467 4468 4469 4470 4471 4472 4473 4474 4475 4476 4477 4478 4479 4480 4481 4482 4483 4484 4485 4486 4487 4488 4489 4490 4491 4492 4493 4494 4495 4496 4497 4498 4499 4500 4501 4502 4503 4504 4505 4506 4507 4508 4509 4510 4511 4512 4513 4514 4515 4516 4517 4518 4519 4520 4521 4522 4523 4524 4525 4526 4527 4528 4529 4530 4531 4532 4533 4534 4535 4536 4537 4538 4539 4540 4541 4542 4543 4544 4545 4546 4547 4548 4549 4550 4551 4552 4553 4554 4555 4556 4557 4558 4559 4560 4561 4562 4563 4564 4565 4566 4567 4568 4569 4570 4571 4572 4573 4574 4575 4576 4577 4578 4579 4580 4581 4582 4583 4584 4585 4586 4587 4588 4589 4590 4591 4592 4593 4594 4595 4596 4597 4598 4599 4600 4601 4602 4603 4604 4605 4606 4607 4608 4609 4610 4611 4612 4613 4614 4615 4616 4617 4618 4619 4620 4621 4622 4623 4624 4625 4626 4627 4628 4629 4630 4631 4632 4633 4634 4635 4636 4637 4638 4639 4640 4641 4642 4643 4644 4645 4646 4647 4648 4649 4650 4651 4652 4653 4654 4655 4656 4657 4658 4659 4660 4661 4662 4663 4664 4665 4666 4667 4668 4669 4670 4671 4672 4673 4674 4675 4676 4677 4678 4679 4680 4681 4682 4683 4684 4685 4686 4687 4688 4689 4690 4691 4692 4693 4694 4695 4696 4697 4698 4699 4700 4701 4702 4703 4704 4705 4706 4707 4708 4709 4710 4711 4712 4713 4714 4715 4716 4717 4718 4719 4720 4721 4722 4723 4724 4725 4726 4727 4728 4729 4730 4731 4732 4733 4734 4735 4736 4737 4738 4739 4740 4741 4742 4743 4744 4745 4746 4747 4748 4749 4750 4751 4752 4753 4754 4755 4756 4757 4758 4759 4760 4761 4762 4763 4764 4765 4766 4767 4768 4769 4770 4771 4772 4773 4774 4775 4776 4777 4778 4779 4780 4781 4782 4783 4784 4785 4786 4787 4788 4789 4790 4791 4792 4793 4794 4795 4796 4797 4798 4799 4800 4801 4802 4803 4804 4805 4806 4807 4808 4809 4810 4811 4812 4813 4814 4815 4816 4817 4818 4819 4820 4821 4822 4823 4824 4825 4826 4827 4828 4829 4830 4831 4832 4833 4834 4835 4836 4837 4838 4839 4840 4841 4842 4843 4844 4845 4846 4847 4848 4849 4850 4851 4852 4853 4854 4855 4856 4857 4858 4859 4860 4861 4862 4863 4864 4865 4866 4867 4868 4869 4870 4871 4872 4873 4874 4875 4876 4877 4878 4879 4880 4881 4882 4883 4884 4885 4886 4887 4888 4889 4890 4891 4892 4893 4894 4895 4896 4897 4898 4899 4900 4901 4902 4903 4904 4905 4906 4907 4908 4909 4910 4911 4912 4913 4914 4915 4916 4917 4918 4919 4920 4921 4922 4923 4924 4925 4926 4927 4928 4929 4930 4931 4932 4933 4934 4935 4936 4937 4938 4939 4940 4941 4942 4943 4944 4945 4946 4947 4948 4949 4950 4951 4952 4953 4954 4955 4956 4957 4958 4959 4960 4961 4962 4963 4964 4965 4966 4967 4968 4969 4970 4971 4972 4973 4974 4975 4976 4977 4978 4979 4980 4981 4982 4983 4984 4985 4986 4987 4988 4989 4990 4991 4992 4993 4994 4995 4996 4997 4998 4999 5000 5001 5002 5003 5004 5005 5006 5007 5008 5009 5010 5011 5012 5013 5014 5015 5016 5017 5018 5019 5020 5021 5022 5023 5024 5025 5026 5027 5028 5029 5030 5031 5032 5033 5034 5035 5036 5037 5038 5039 5040 5041 5042 5043 5044 5045 5046 5047 5048 5049 5050 5051 5052 5053 5054 5055 5056 5057 5058 5059 5060 5061 5062 5063 5064 5065 5066 5067 5068 5069 5070 5071 5072 5073 5074 5075 5076 5077 5078 5079 5080 5081 5082 5083 5084 5085 5086 5087 5088 5089 5090 5091 5092 5093 5094 5095 5096 5097 5098 5099 5100 5101 5102 5103 5104 5105 5106 5107 5108 5109 5110 5111 5112 5113 5114 5115 5116 5117 5118 5119 5120 5121 5122 5123 5124 5125 5126 5127 5128 5129 5130 5131 5132 5133 5134 5135 5136 5137 5138 5139 5140 5141 5142 5143 5144 5145 5146 5147 5148 5149 5150 5151 5152 5153 5154 5155 5156 5157 5158 5159 5160 5161 5162 5163 5164 5165 5166 5167 5168 5169 5170 5171 5172 5173 5174 5175 5176 5177 5178 5179 5180 5181 5182 5183 5184 5185 5186 5187 5188 5189 5190 5191 5192 5193 5194 5195 5196 5197 5198 5199 5200 5201 5202 5203 5204 5205 5206 5207 5208 5209 5210 5211 5212 5213 5214 5215 5216 5217 5218 5219 5220 5221 5222 5223 5224 5225 5226 5227 5228 5229 5230 5231 5232 5233 5234 5235 5236 5237 5238 5239 5240 5241 5242 5243 5244 5245 5246 5247 5248 5249 5250 5251 5252 5253 5254 5255 5256 5257 5258 5259 5260 5261 5262 5263 5264 5265 5266 5267 5268 5269 5270 5271 5272 5273 5274 5275 5276 5277 5278 5279 5280 5281 5282 5283 5284 5285 5286 5287 5288 5289 5290 5291 5292 5293 5294 5295 5296 5297 5298 5299 5300 5301 5302 5303 5304 5305 5306 5307 5308 5309 5310 5311 5312 5313 5314 5315 5316 5317 5318 5319 5320 5321 5322 5323 5324 5325 5326 5327 5328 5329 5330 5331 5332 5333 5334 5335 5336 5337 5338 5339 5340 5341 5342 5343 5344 5345 5346 5347 5348 5349 5350 5351 5352 5353 5354 5355 5356 5357 5358 5359 5360 5361 5362 5363 5364 5365 5366 5367 5368 5369 5370 5371 5372 5373 5374 5375 5376 5377 5378 5379 5380 5381 5382 5383 5384 5385 5386 5387 5388 5389 5390 5391 5392 5393 5394 5395 5396 5397 5398 5399 5400 5401 5402 5403 5404 5405 5406 5407 5408 5409 5410 5411 5412 5413 5414 5415 5416 5417 5418 5419 5420 5421 5422 5423 5424 5425 5426 5427 5428 5429 5430 5431 5432 5433 5434 5435 5436 5437 5438 5439 5440 5441 5442 5443 5444 5445 5446 5447 5448 5449 5450 5451 5452 5453 5454 5455 5456 5457 5458 5459 5460 5461 5462 5463 5464 5465 5466 5467 5468 5469 5470 5471 5472 5473 5474 5475 5476 5477 5478 5479 5480 5481 5482 5483 5484 5485 5486 5487 5488 5489 5490 5491 5492 5493 5494 5495 5496 5497 5498 5499 5500 5501 5502 5503 5504 5505 5506 5507 5508 5509 5510 5511 5512 5513 5514 5515 5516 5517 5518 5519 5520 5521 5522 5523 5524 5525 5526 5527 5528 5529 5530 5531 5532 5533 5534 5535 5536 5537 5538 5539 5540 5541 5542 5543 5544 5545 5546 5547 5548 5549 5550 5551 5552 5553 5554 5555 5556 5557 5558 5559 5560 5561 5562 5563 5564 5565 5566 5567 5568 5569 5570 5571 5572 5573 5574 5575 5576 5577 5578 5579 5580 5581 5582 5583 5584 5585 5586 5587 5588 5589 5590 5591 5592 5593 5594 5595 5596 5597 5598 5599 5600 5601 5602 5603 5604 5605 5606 5607 5608 5609 5610 5611 5612 5613 5614 5615 5616 5617 5618 5619 5620 5621 5622 5623 5624 5625 5626 5627 5628 5629 5630 5631 5632 5633 5634 5635 5636 5637 5638 5639 5640 5641 5642 5643 5644 5645 5646 5647 5648 5649 5650 5651 5652 5653 5654 5655 5656 5657 5658 5659 5660 5661 5662 5663 5664 5665 5666 5667 5668 5669 5670 5671 5672 5673 5674 5675 5676 5677 5678 5679 5680 5681 5682 5683 5684 5685 5686 5687 5688 5689 5690 5691 5692 5693 5694 5695 5696 5697 5698 5699 5700 5701 5702 5703 5704 5705 5706 5707 5708 5709 5710 5711 5712 5713 5714 5715 5716 5717 5718 5719 5720 5721 5722 5723 5724 5725 5726 5727 5728 5729 5730 5731 5732 5733 5734 5735 5736 5737 5738 5739 5740 5741 5742 5743 5744 5745 5746 5747 5748 5749 5750 5751 5752 5753 5754 5755 5756 5757 5758 5759 5760 5761 5762 5763 5764 5765 5766 5767 5768 5769 5770 5771 5772 5773 5774 5775 5776 5777 5778 5779 5780 5781 5782 5783 5784 5785 5786 5787 5788 5789 5790 5791 5792 5793 5794 5795 5796 5797 5798 5799 5800 5801 5802 5803 5804 5805 5806 5807 5808 5809 5810 5811 5812 5813 5814 5815 5816 5817 5818 5819 5820 5821 5822 5823 5824 5825 5826 5827 5828 5829 5830 5831 5832 5833 5834 5835 5836 5837 5838 5839 5840 5841 5842 5843 5844 5845 5846 5847 5848 5849 5850 5851 5852 5853 5854 5855 5856 5857 5858 5859 5860 5861 5862 5863 5864 5865 5866 5867 5868 5869 5870 5871 5872 5873 5874 5875 5876 5877 5878 5879 5880 5881 5882 5883 5884 5885 5886 5887 5888 5889 5890 5891 5892 5893 5894 5895 5896 5897 5898 5899 5900 5901 5902 5903 5904 5905 5906 5907 5908 5909 5910 5911 5912 5913 5914 5915 5916 5917 5918 5919 5920 5921 5922 5923 5924 5925 5926 5927 5928 5929 5930 5931 5932 5933 5934 5935 5936 5937 5938 5939 5940 5941 5942 5943 5944 5945 5946 5947 5948 5949 5950 5951 5952 5953 5954 5955 5956 5957 5958 5959 5960 5961 5962 5963 5964 5965 5966 5967 5968 5969 5970 5971 5972 5973 5974 5975 5976 5977 5978 5979 5980 5981 5982 5983 5984 5985 5986 5987 5988 5989 5990 5991 5992 5993 5994 5995 5996 5997 5998 5999 6000 6001 6002 6003 6004 6005 6006 6007 6008 6009 6010 6011 6012 6013 6014 6015 6016 6017 6018 6019 6020 6021 6022 6023 6024 6025 6026 6027 6028 6029 6030 6031 6032 6033 6034 6035 6036 6037 6038 6039 6040 6041 6042 6043 6044 6045 6046 6047 6048 6049 6050 6051 6052 6053 6054 6055 6056 6057 6058 6059 6060 6061 6062 6063 6064 6065 6066 6067 6068 6069 6070 6071 6072 6073 6074 6075 6076 6077 6078 6079 6080 6081 6082 6083 6084 6085 6086 6087 6088 6089 6090 6091 6092 6093 6094 6095 6096 6097 6098 6099 6100 6101 6102 6103 6104 6105 6106 6107 6108 6109 6110 6111 6112 6113 6114 6115 6116 6117 6118 6119 6120 6121 6122 6123 6124 6125 6126 6127 6128 6129 6130 6131 6132 6133 6134 6135 6136 6137 6138 6139 6140 6141 6142 6143 6144 6145 6146 6147 6148 6149 6150 6151 6152 6153 6154 6155 6156 6157 6158 6159 6160 6161 6162 6163 6164 6165 6166 6167 6168 6169 6170 6171 6172 6173 6174 6175 6176 6177 6178 6179 6180 6181 6182 6183 6184 6185 6186 6187 6188 6189 6190 6191 6192 6193 6194 6195 6196 6197 6198 6199 6200 6201 6202 6203 6204 6205 6206 6207 6208 6209 6210 6211 6212 6213 6214 6215 6216 6217 6218 6219 6220 6221 6222 6223 6224 6225 6226 6227 6228 6229 6230 6231 6232 6233 6234 6235 6236 6237 6238 6239 6240 6241 6242 6243 6244 6245 6246 6247 6248 6249 6250 6251 6252 6253 6254 6255 6256 6257 6258 6259 6260 6261 6262 6263 6264 6265 6266 6267 6268 6269 6270 6271 6272 6273 6274 6275 6276 6277 6278 6279 6280 6281 6282 6283 6284 6285 6286 6287 6288 6289 6290 6291 6292 6293 6294 6295 6296 6297 6298 6299 6300 6301 6302 6303 6304 6305 6306 6307 6308 6309 6310 6311 6312 6313 6314 6315 6316 6317 6318 6319 6320 6321 6322 6323 6324 6325 6326 6327 6328 6329 6330 6331 6332 6333 6334 6335 6336 6337 6338 6339 6340 6341 6342 6343 6344 6345 6346 6347 6348 6349 6350 6351 6352 6353 6354 6355 6356 6357 6358 6359 6360 6361 6362 6363 6364 6365 6366 6367 6368 6369 6370 6371 6372 6373 6374 6375 6376 6377 6378 6379 6380 6381 6382 6383 6384 6385 6386 6387 6388 6389 6390 6391 6392 6393 6394 6395 6396 6397 6398 6399 6400 6401 6402 6403 6404 6405 6406 6407 6408 6409 6410 6411 6412 6413 6414 6415 6416 6417 6418 6419 6420 6421 6422 6423 6424 6425 6426 6427 6428 6429 6430 6431 6432 6433 6434 6435 6436 6437 6438 6439 6440 6441 6442 6443 6444 6445 6446 6447 6448 6449 6450 6451 6452 6453 6454 6455 6456 6457 6458 6459 6460 6461 6462 6463 6464 6465 6466 6467 6468 6469 6470 6471 6472 6473 6474 6475 6476 6477 6478 6479 6480 6481 6482 6483 6484 6485 6486 6487 6488 6489 6490 6491 6492 6493 6494 6495 6496 6497 6498 6499 6500 6501 6502 6503 6504 6505 6506 6507 6508 6509 6510 6511 6512 6513 6514 6515 6516 6517 6518 6519 6520 6521 6522 6523 6524 6525 6526 6527 6528 6529 6530 6531 6532 6533 6534 6535 6536 6537 6538 6539 6540 6541 6542 6543 6544 6545 6546 6547 6548 6549 6550 6551 6552 6553 6554 6555 6556 6557 6558 6559 6560 6561 6562 6563 6564 6565 6566 6567 6568 6569 6570 6571 6572 6573 6574 6575 6576 6577 6578 6579 6580 6581 6582 6583 6584 6585 6586 6587 6588 6589 6590 6591 6592 6593 6594 6595 6596 6597 6598 6599 6600 6601 6602 6603 6604 6605 6606 6607 6608 6609 6610 6611 6612 6613 6614 6615 6616 6617 6618 6619 6620 6621 6622 6623 6624 6625 6626 6627 6628 6629 6630 6631 6632 6633 6634 6635 6636 6637 6638 6639 6640 6641 6642 6643 6644 6645 6646 6647 6648 6649 6650 6651 6652 6653 6654 6655 6656 6657 6658 6659 6660 6661 6662 6663 6664 6665 6666 6667 6668 6669 6670 6671 6672 6673 6674 6675 6676 6677 6678 6679 6680 6681 6682 6683 6684 6685 6686 6687 6688 6689 6690 6691 6692 6693 6694 6695 6696 6697 6698 6699 6700 6701 6702 6703 6704 6705 6706 6707 6708 6709 6710 6711 6712 6713 6714 6715 6716 6717 6718 6719 6720 6721 6722 6723 6724 6725 6726 6727 6728 6729 6730 6731 6732 6733 6734 6735 6736 6737 6738 6739 6740 6741 6742 6743 6744 6745 6746 6747 6748 6749 6750 6751 6752 6753 6754 6755 6756 6757 6758 6759 6760 6761 6762 6763 6764 6765 6766 6767 6768 6769 6770 6771 6772 6773 6774 6775 6776 6777 6778 6779 6780 6781 6782 6783 6784 6785 6786 6787 6788 6789 6790 6791 6792 6793 6794 6795 6796 6797 6798 6799 6800 6801 6802 6803 6804 6805 6806 6807 6808 6809 6810 6811 6812 6813 6814 6815 6816 6817 6818 6819 6820 6821 6822 6823 6824 6825 6826 6827 6828 6829 6830 6831 6832 6833 6834 6835 6836 6837 6838 6839 6840 6841 6842 6843 6844 6845 6846 6847 6848 6849 6850 6851 6852 6853 6854 6855 6856 6857 6858 6859 6860 6861 6862 6863 6864 6865 6866 6867 6868 6869 6870 6871 6872 6873 6874 6875 6876 6877 6878 6879 6880 6881 6882 6883 6884 6885 6886 6887 6888 6889 6890 6891 6892 6893 6894 6895 6896 6897 6898 6899 6900 6901 6902 6903 6904 6905 6906 6907 6908 6909 6910 6911 6912 6913 6914 6915 6916 6917 6918 6919 6920 6921 6922 6923 6924 6925 6926 6927 6928 6929 6930 6931 6932 6933 6934 6935 6936 6937 6938 6939 6940 6941 6942 6943 6944 6945 6946 6947 6948 6949 6950 6951 6952 6953 6954 6955 6956 6957 6958 6959 6960 6961 6962 6963 6964 6965 6966 6967 6968 6969 6970 6971 6972 6973 6974 6975 6976 6977 6978 6979 6980 6981 6982 6983 6984 6985 6986 6987 6988 6989 6990 6991 6992 6993 6994 6995 6996 6997 6998 6999 7000 7001 7002 7003 7004 7005 7006 7007 7008 7009 7010 7011 7012 7013 7014 7015 7016 7017 7018 7019 7020 7021 7022 7023 7024 7025 7026 7027 7028 7029 7030 7031 7032 7033 7034 7035 7036 7037 7038 7039 7040 7041 7042 7043 7044 7045 7046 7047 7048 7049 7050 7051 7052 7053 7054 7055 7056 7057 7058 7059 7060 7061 7062 7063 7064 7065 7066 7067 7068 7069 7070 7071 7072 7073 7074 7075 7076 7077 7078 7079 7080 7081 7082 7083 7084 7085 7086 7087 7088 7089 7090 7091 7092 7093 7094 7095 7096 7097 7098 7099 7100 7101 7102 7103 7104 7105 7106 7107 7108 7109 7110 7111 7112 7113 7114 7115 7116 7117 7118 7119 7120 7121 7122 7123 7124 7125 7126 7127 7128 7129 7130 7131 7132 7133 7134 7135 7136 7137 7138 7139 7140 7141 7142 7143 7144 7145 7146 7147 7148 7149 7150 7151 7152 7153 7154 7155 7156 7157 7158 7159 7160 7161 7162 7163 7164 7165 7166 7167 7168 7169 7170 7171 7172 7173 7174 7175 7176 7177 7178 7179 7180 7181 7182 7183 7184 7185 7186 7187 7188 7189 7190 7191 7192 7193 7194 7195 7196 7197 7198 7199 7200 7201 7202 7203 7204 7205 7206 7207 7208 7209 7210 7211 7212 7213 7214 7215 7216 7217 7218 7219 7220 7221 7222 7223 7224 7225 7226 7227 7228 7229 7230 7231 7232 7233 7234 7235 7236 7237 7238 7239 7240 7241 7242 7243 7244 7245 7246 7247 7248 7249 7250 7251 7252 7253 7254 7255 7256 7257 7258 7259 7260 7261 7262 7263 7264 7265 7266 7267 7268 7269 7270 7271 7272 7273 7274 7275 7276 7277 7278 7279 7280 7281 7282 7283 7284 7285 7286 7287 7288 7289 7290 7291 7292 7293 7294 7295 7296 7297 7298 7299 7300 7301 7302 7303 7304 7305 7306 7307 7308 7309 7310 7311 7312 7313 7314 7315 7316 7317 7318 7319 7320 7321 7322 7323 7324 7325 7326 7327 7328 7329 7330 7331 7332 7333 7334 7335 7336 7337 7338 7339 7340 7341 7342 7343 7344 7345 7346 7347 7348 7349 7350 7351 7352 7353 7354 7355 7356 7357 7358 7359 7360 7361 7362 7363 7364 7365 7366 7367 7368 7369 7370 7371 7372 7373 7374 7375 7376 7377 7378 7379 7380 7381 7382 7383 7384 7385 7386 7387 7388 7389 7390 7391 7392 7393 7394 7395 7396 7397 7398 7399 7400 7401 7402 7403 7404 7405 7406 7407 7408 7409 7410 7411 7412 7413 7414 7415 7416 7417 7418 7419 7420 7421 7422 7423 7424 7425 7426 7427 7428 7429 7430 7431 7432 7433 7434 7435 7436 7437 7438 7439 7440 7441 7442 7443 7444 7445 7446 7447 7448 7449 7450 7451 7452 7453 7454 7455 7456 7457 7458 7459 7460 7461 7462 7463 7464 7465 7466 7467 7468 7469 7470 7471 7472 7473 7474 7475 7476 7477 7478 7479 7480 7481 7482 7483 7484 7485 7486 7487 7488 7489 7490 7491 7492 7493 7494 7495 7496 7497 7498 7499 7500 7501 7502 7503 7504 7505 7506 7507 7508 7509 7510 7511 7512 7513 7514 7515 7516 7517 7518 7519 7520 7521 7522 7523 7524 7525 7526 7527 7528 7529 7530 7531 7532 7533 7534 7535 7536 7537 7538 7539 7540 7541 7542 7543 7544 7545 7546 7547 7548 7549 7550 7551 7552 7553 7554 7555 7556 7557 7558 7559 7560 7561 7562 7563 7564 7565 7566 7567 7568 7569 7570 7571 7572 7573 7574 7575 7576 7577 7578 7579 7580 7581 7582 7583 7584 7585 7586 7587 7588 7589 7590 7591 7592 7593 7594 7595 7596 7597 7598 7599 7600 7601 7602 7603 7604 7605 7606 7607 7608 7609 7610 7611 7612 7613 7614 7615 7616 7617 7618 7619 7620 7621 7622 7623 7624 7625 7626 7627 7628 7629 7630 7631 7632 7633 7634 7635 7636 7637 7638 7639 7640 7641 7642 7643 7644 7645 7646 7647 7648 7649 7650 7651 7652 7653 7654 7655 7656 7657 7658 7659 7660 7661 7662 7663 7664 7665 7666 7667 7668 7669 7670 7671 7672 7673 7674 7675 7676 7677 7678 7679 7680 7681 7682 7683 7684 7685 7686 7687 7688 7689 7690 7691 7692 7693 7694 7695 7696 7697 7698 7699 7700 7701 7702 7703 7704 7705 7706 7707 7708 7709 7710 7711 7712 7713 7714 7715 7716 7717 7718 7719 7720 7721 7722 7723 7724 7725 7726 7727 7728 7729 7730 7731 7732 7733 7734 7735 7736 7737 7738 7739 7740 7741 7742 7743 7744 7745 7746 7747 7748 7749 7750 7751 7752 7753 7754 7755 7756 7757 7758 7759 7760 7761 7762 7763 7764 7765 7766 7767 7768 7769 7770 7771 7772 7773 7774 7775 7776 7777 7778 7779 7780 7781 7782 7783 7784 7785 7786 7787 7788 7789 7790 7791 7792 7793 7794 7795 7796 7797 7798 7799 7800 7801 7802 7803 7804 7805 7806 7807 7808 7809 7810 7811 7812 7813 7814 7815 7816 7817 7818 7819 7820 7821 7822 7823 7824 7825 7826 7827 7828 7829 7830 7831 7832 7833 7834 7835 7836 7837 7838 7839 7840 7841 7842 7843 7844 7845 7846 7847 7848 7849 7850 7851 7852 7853 7854 7855 7856 7857 7858 7859 7860 7861 7862 7863 7864 7865 7866 7867 7868 7869 7870 7871 7872 7873 7874 7875 7876 7877 7878 7879 7880 7881 7882 7883 7884 7885 7886 7887 7888 7889 7890 7891 7892 7893 7894 7895 7896 7897 7898 7899 7900 7901 7902 7903 7904 7905 7906 7907 7908 7909 7910 7911 7912 7913 7914 7915 7916 7917 7918 7919 7920 7921 7922 7923 7924 7925 7926 7927 7928 7929 7930 7931 7932 7933 7934 7935 7936 7937 7938 7939 7940 7941 7942 7943 7944 7945 7946 7947 7948 7949 7950 7951 7952 7953 7954 7955 7956 7957 7958 7959 7960 7961 7962 7963 7964 7965 7966 7967 7968 7969 7970 7971 7972 7973 7974 7975 7976 7977 7978 7979 7980 7981 7982 7983 7984 7985 7986 7987 7988 7989 7990 7991 7992 7993 7994 7995 7996 7997 7998 7999 8000 8001 8002 8003 8004 8005 8006 8007 8008 8009 8010 8011 8012 8013 8014 8015 8016 8017 8018 8019 8020 8021 8022 8023 8024 8025 8026 8027 8028 8029 8030 8031 8032 8033 8034 8035 8036 8037 8038 8039 8040 8041 8042 8043 8044 8045 8046 8047 8048 8049 8050 8051 8052 8053 8054 8055 8056 8057 8058 8059 8060 8061 8062 8063 8064 8065 8066 8067 8068 8069 8070 8071 8072 8073 8074 8075 8076 8077 8078 8079 8080 8081 8082 8083 8084 8085 8086 8087 8088 8089 8090 8091 8092 8093 8094 8095 8096 8097 8098 8099 8100 8101 8102 8103 8104 8105 8106 8107 8108 8109 8110 8111 8112 8113 8114 8115 8116 8117 8118 8119 8120 8121 8122 8123 8124 8125 8126 8127 8128 8129 8130 8131 8132 8133 8134 8135 8136 8137 8138 8139 8140 8141 8142 8143 8144 8145 8146 8147 8148 8149 8150 8151 8152 8153 8154 8155 8156 8157 8158 8159 8160 8161 8162 8163 8164 8165 8166 8167 8168 8169 8170 8171 8172 8173 8174 8175 8176 8177 8178 8179 8180 8181 8182 8183 8184 8185 8186 8187 8188 8189 8190 8191 8192 8193 8194 8195 8196 8197 8198 8199 8200 8201 8202 8203 8204 8205 8206 8207 8208 8209 8210 8211 8212 8213 8214 8215 8216 8217 8218 8219 8220 8221 8222 8223 8224 8225 8226 8227 8228 8229 8230 8231 8232 8233 8234 8235 8236 8237 8238 8239 8240 8241 8242 8243 8244 8245 8246 8247 8248 8249 8250 8251 8252 8253 8254 8255 8256 8257 8258 8259 8260 8261 8262 8263 8264 8265 8266 8267 8268 8269 8270 8271 8272 8273 8274 8275 8276 8277 8278 8279 8280 8281 8282 8283 8284 8285 8286 8287 8288 8289 8290 8291 8292 8293 8294 8295 8296 8297 8298 8299 8300 8301 8302 8303 8304 8305 8306 8307 8308 8309 8310 8311 8312 8313 8314 8315 8316 8317 8318 8319 8320 8321 8322 8323 8324 8325 8326 8327 8328 8329 8330 8331 8332 8333 8334 8335 8336 8337 8338 8339 8340 8341 8342 8343 8344 8345 8346 8347 8348 8349 8350 8351 8352 8353 8354 8355 8356 8357 8358 8359 8360 8361 8362 8363 8364 8365 8366 8367 8368 8369 8370 8371 8372 8373 8374 8375 8376 8377 8378 8379 8380 8381 8382 8383 8384 8385 8386 8387 8388 8389 8390 8391 8392 8393 8394 8395 8396 8397 8398 8399 8400 8401 8402 8403 8404 8405 8406 8407 8408 8409 8410 8411 8412 8413 8414 8415 8416 8417 8418 8419 8420 8421 8422 8423 8424 8425 8426 8427 8428 8429 8430 8431 8432 8433 8434 8435 8436 8437 8438 8439 8440 8441 8442 8443 8444 8445 8446 8447 8448 8449 8450 8451 8452 8453 8454 8455 8456 8457 8458 8459 8460 8461 8462 8463 8464 8465 8466 8467 8468 8469 8470 8471 8472 8473 8474 8475 8476 8477 8478 8479 8480 8481 8482 8483 8484 8485 8486 8487 8488 8489 8490 8491 8492 8493 8494 8495 8496 8497 8498 8499 8500 8501 8502 8503 8504 8505 8506 8507 8508 8509 8510 8511 8512 8513 8514 8515 8516 8517 8518 8519 8520 8521 8522 8523 8524 8525 8526 8527 8528 8529 8530 8531 8532 8533 8534 8535 8536 8537 8538 8539 8540 8541 8542 8543 8544 8545 8546 8547 8548 8549 8550 8551 8552 8553 8554 8555 8556 8557 8558 8559 8560 8561 8562 8563 8564 8565 8566 8567 8568 8569 8570 8571 8572 8573 8574 8575 8576 8577 8578 8579 8580 8581 8582 8583 8584 8585 8586 8587 8588 8589 8590 8591 8592 8593 8594 8595 8596 8597 8598 8599 8600 8601 8602 8603 8604 8605 8606 8607 8608 8609 8610 8611 8612 8613 8614 8615 8616 8617 8618 8619 8620 8621 8622 8623 8624 8625 8626 8627 8628 8629 8630 8631 8632 8633 8634 8635 8636 8637 8638 8639 8640 8641 8642 8643 8644 8645 8646 8647 8648 8649 8650 8651 8652 8653 8654 8655 8656 8657 8658 8659 8660 8661 8662 8663 8664 8665 8666 8667 8668 8669 8670 8671 8672 8673 8674 8675 8676 8677 8678 8679 8680 8681 8682 8683 8684 8685 8686 8687 8688 8689 8690 8691 8692 8693 8694 8695 8696 8697 8698 8699 8700 8701 8702 8703 8704 8705 8706 8707 8708 8709 8710 8711 8712 8713 8714 8715 8716 8717 8718 8719 8720 8721 8722 8723 8724 8725 8726 8727 8728 8729 8730 8731 8732 8733 8734 8735 8736 8737 8738 8739 8740 8741 8742 8743 8744 8745 8746 8747 8748 8749 8750 8751 8752 8753 8754 8755 8756 8757 8758 8759 8760 8761 8762 8763 8764 8765 8766 8767 8768 8769 8770 8771 8772 8773 8774 8775 8776 8777 8778 8779 8780 8781 8782 8783 8784 8785 8786 8787 8788 8789 8790 8791 8792 8793 8794 8795 8796 8797 8798 8799 8800 8801 8802 8803 8804 8805 8806 8807 8808 8809 8810 8811 8812 8813 8814 8815 8816 8817 8818 8819 8820 8821 8822 8823 8824 8825 8826 8827 8828 8829 8830 8831 8832 8833 8834 8835 8836 8837 8838 8839 8840 8841 8842 8843 8844 8845 8846 8847 8848 8849 8850 8851 8852 8853 8854 8855 8856 8857 8858 8859 8860 8861 8862 8863 8864 8865 8866 8867 8868 8869 8870 8871 8872 8873 8874 8875 8876 8877 8878 8879 8880 8881 8882 8883 8884 8885 8886 8887 8888 8889 8890 8891 8892 8893 8894 8895 8896 8897 8898 8899 8900 8901 8902 8903 8904 8905 8906 8907 8908 8909 8910 8911 8912 8913 8914 8915 8916 8917 8918 8919 8920 8921 8922 8923 8924 8925 8926 8927 8928 8929 8930 8931 8932 8933 8934 8935 8936 8937 8938 8939 8940 8941 8942 8943 8944 8945 8946 8947 8948 8949 8950 8951 8952 8953 8954 8955 8956 8957 8958 8959 8960 8961 8962 8963 8964 8965 8966 8967 8968 8969 8970 8971 8972 8973 8974 8975 8976 8977 8978 8979 8980 8981 8982 8983 8984 8985 8986 8987 8988 8989 8990 8991 8992 8993 8994 8995 8996 8997 8998 8999 9000 9001 9002 9003 9004 9005 9006 9007 9008 9009 9010 9011 9012 9013 9014 9015 9016 9017 9018 9019 9020 9021 9022 9023 9024 9025 9026 9027 9028 9029 9030 9031 9032 9033 9034 9035 9036 9037 9038 9039 9040 9041 9042 9043 9044 9045 9046 9047 9048 9049 9050 9051 9052 9053 9054 9055 9056 9057 9058 9059 9060 9061 9062 9063 9064 9065 9066 9067 9068 9069 9070 9071 9072 9073 9074 9075 9076 9077 9078 9079 9080 9081 9082 9083 9084 9085 9086 9087 9088 9089 9090 9091 9092 9093 9094 9095 9096 9097 9098 9099 9100 9101 9102 9103 9104 9105 9106 9107 9108 9109 9110 9111 9112 9113 9114 9115 9116 9117 9118 9119 9120 9121 9122 9123 9124 9125 9126 9127 9128 9129 9130 9131 9132 9133 9134 9135 9136 9137 9138 9139 9140 9141 9142 9143 9144 9145 9146 9147 9148 9149 9150 9151 9152 9153 9154 9155 9156 9157 9158 9159 9160 9161 9162 9163 9164 9165 9166 9167 9168 9169 9170 9171 9172 9173 9174 9175 9176 9177 9178 9179 9180 9181 9182 9183 9184 9185 9186 9187 9188 9189 9190 9191 9192 9193 9194 9195 9196 9197 9198 9199 9200 9201 9202 9203 9204 9205 9206 9207 9208 9209 9210 9211 9212 9213 9214 9215 9216 9217 9218 9219 9220 9221 9222 9223 9224 9225 9226 9227 9228 9229 9230 9231 9232 9233 9234 9235 9236 9237 9238 9239 9240 9241 9242 9243 9244 9245 9246 9247 9248 9249 9250 9251 9252 9253 9254 9255 9256 9257 9258 9259 9260 9261 9262 9263 9264 9265 9266 9267 9268 9269 9270 9271 9272 9273 9274 9275 9276 9277 9278 9279 9280 9281 9282 9283 9284 9285 9286 9287 9288 9289 9290 9291 9292 9293 9294 9295 9296 9297 9298 9299 9300 9301 9302 9303 9304 9305 9306 9307 9308 9309 9310 9311 9312 9313 9314 9315 9316 9317 9318 9319 9320 9321 9322 9323 9324 9325 9326 9327 9328 9329 9330 9331 9332 9333 9334 9335 9336 9337 9338 9339 9340 9341 9342 9343 9344 9345 9346 9347 9348 9349 9350 9351 9352 9353 9354 9355 9356 9357 9358 9359 9360 9361 9362 9363 9364 9365 9366 9367 9368 9369 9370 9371 9372 9373 9374 9375 9376 9377 9378 9379 9380 9381 9382 9383 9384 9385 9386 9387 9388 9389 9390 9391 9392 9393 9394 9395 9396 9397 9398 9399 9400 9401 9402 9403 9404 9405 9406 9407 9408 9409 9410 9411 9412 9413 9414 9415 9416 9417 9418 9419 9420 9421 9422 9423 9424 9425 9426 9427 9428 9429 9430 9431 9432 9433 9434 9435 9436 9437 9438 9439 9440 9441 9442 9443 9444 9445 9446 9447 9448 9449 9450 9451 9452 9453 9454 9455 9456 9457 9458 9459 9460 9461 9462 9463 9464 9465 9466 9467 9468 9469 9470 9471 9472 9473 9474 9475 9476 9477 9478 9479 9480 9481 9482 9483 9484 9485 9486 9487 9488 9489 9490 9491 9492 9493 9494 9495 9496 9497 9498 9499 9500 9501 9502 9503 9504 9505 9506 9507 9508 9509 9510 9511 9512 9513 9514 9515 9516 9517 9518 9519 9520 9521 9522 9523 9524 9525 9526 9527 9528 9529 9530 9531 9532 9533 9534 9535 9536 9537 9538 9539 9540 9541 9542 9543 9544 9545 9546 9547 9548 9549 9550 9551 9552 9553 9554 9555 9556 9557 9558 9559 9560 9561 9562 9563 9564 9565 9566 9567 9568 9569 9570 9571 9572 9573 9574 9575 9576 9577 9578 9579 9580 9581 9582 9583 9584 9585 9586 9587 9588 9589 9590 9591 9592 9593 9594 9595 9596 9597 9598 9599 9600 9601 9602 9603 9604 9605 9606 9607 9608 9609 9610 9611 9612 9613 9614 9615 9616 9617 9618 9619 9620 9621 9622 9623 9624 9625 9626 9627 9628 9629 9630 9631 9632 9633 9634 9635 9636 9637 9638 9639 9640 9641 9642 9643 9644 9645 9646 9647 9648 9649 9650 9651 9652 9653 9654 9655 9656 9657 9658 9659 9660 9661 9662 9663 9664 9665 9666 9667 9668 9669 9670 9671 9672 9673 9674 9675 9676 9677 9678 9679 9680 9681 9682 9683 9684 9685 9686 9687 9688 9689 9690 9691 9692 9693 9694 9695 9696 9697 9698 9699 9700 9701 9702 9703 9704 9705 9706 9707 9708 9709 9710 9711 9712 9713 9714 9715 9716 9717 9718 9719 9720 9721 9722 9723 9724 9725 9726 9727 9728 9729 9730 9731 9732 9733 9734 9735 9736 9737 9738 9739 9740 9741 9742 9743 9744 9745 9746 9747 9748 9749 9750 9751 9752 9753 9754 9755 9756 9757 9758 9759 9760 9761 9762 9763 9764 9765 9766 9767 9768 9769 9770 9771 9772 9773 9774 9775 9776 9777 9778 9779 9780 9781 9782 9783 9784 9785 9786 9787 9788 9789 9790 9791 9792 9793 9794 9795 9796 9797 9798 9799 9800 9801 9802 9803 9804 9805 9806 9807 9808 9809 9810 9811 9812 9813 9814 9815 9816 9817 9818 9819 9820 9821 9822 9823 9824 9825 9826 9827 9828 9829 9830 9831 9832 9833 9834 9835 9836 9837 9838 9839 9840 9841 9842 9843 9844 9845 9846 9847 9848 9849 9850 9851 9852 9853 9854 9855 9856 9857 9858 9859 9860 9861 9862 9863 9864 9865 9866 9867 9868 9869 9870 9871 9872 9873 9874 9875 9876 9877 9878 9879 9880 9881 9882 9883 9884 9885 9886 9887 9888 9889 9890 9891 9892 9893 9894 9895 9896 9897 9898 9899 9900 9901 9902 9903 9904 9905 9906 9907 9908 9909 9910 9911 9912 9913 9914 9915 9916 9917 9918 9919 9920 9921 9922 9923 9924 9925 9926 9927 9928 9929 9930 9931 9932 9933 9934 9935 9936 9937 9938 9939 9940 9941 9942 9943 9944 9945 9946 9947 9948 9949 9950 9951 9952 9953 9954 9955 9956 9957 9958 9959 9960 9961 9962 9963 9964 9965 9966 9967 9968 9969 9970 9971 9972 9973 9974 9975 9976 9977 9978 9979 9980 9981 9982 9983 9984 9985 9986 9987 9988 9989 9990 9991 9992 9993 9994 9995 9996 9997 9998 9999 10000 10001 10002 10003 10004 10005 10006 10007 10008 10009 10010 10011 10012 10013 10014 10015 10016 10017 10018 10019 10020 10021 10022 10023 10024 10025 10026 10027 10028 10029 10030 10031 10032 10033 10034 10035 10036 10037 10038 10039 10040 10041 10042 10043 10044 10045 10046 10047 10048 10049 10050 10051 10052 10053 10054 10055 10056 10057 10058 10059 10060 10061 10062 10063 10064 10065 10066 10067 10068 10069 10070 10071 10072 10073 10074 10075 10076 10077 10078 10079 10080 10081 10082 10083 10084 10085 10086 10087 10088 10089 10090 10091 10092 10093 10094 10095 10096 10097 10098 10099 10100 10101 10102 10103 10104 10105 10106 10107 10108 10109 10110 10111 10112 10113 10114 10115 10116 10117 10118 10119 10120 10121 10122 10123 10124 10125 10126 10127 10128 10129 10130 10131 10132 10133 10134 10135 10136 10137 10138 10139 10140 10141 10142 10143 10144 10145 10146 10147 10148 10149 10150 10151 10152 10153 10154 10155 10156 10157 10158 10159 10160 10161 10162 10163 10164 10165 10166 10167 10168 10169 10170 10171 10172 10173 10174 10175 10176 10177 10178 10179 10180 10181 10182 10183 10184 10185 10186 10187 10188 10189 10190 10191 10192 10193 10194 10195 10196 10197 10198 10199 10200 10201 10202 10203 10204 10205 10206 10207 10208 10209 10210 10211 10212 10213 10214 10215 10216 10217 10218 10219 10220 10221 10222 10223 10224 10225 10226 10227 10228 10229 10230 10231 10232 10233 10234 10235 10236 10237 10238 10239 10240 10241 10242 10243 10244 10245 10246 10247 10248 10249 10250 10251 10252 10253 10254 10255 10256 10257 10258 10259 10260 10261 10262 10263 10264 10265 10266 10267 10268 10269 10270 10271 10272 10273 10274 10275 10276 10277 10278 10279 10280 10281 10282 10283 10284 10285 10286 10287 10288 10289 10290 10291 10292 10293 10294 10295 10296 10297 10298 10299 10300 10301 10302 10303 10304 10305 10306 10307 10308 10309 10310 10311 10312 10313 10314 10315 10316 10317 10318 10319 10320 10321 10322 10323 10324 10325 10326 10327 10328 10329 10330 10331 10332 10333 10334 10335 10336 10337 10338 10339 10340 10341 10342 10343 10344 10345 10346 10347 10348 10349 10350 10351 10352 10353 10354 10355 10356 10357 10358 10359 10360 10361 10362 10363 10364 10365 10366 10367 10368 10369 10370 10371 10372 10373 10374 10375 10376 10377 10378 10379 10380 10381 10382 10383 10384 10385 10386 10387 10388 10389 10390 10391 10392 10393 10394 10395 10396 10397 10398 10399 10400 10401 10402 10403 10404 10405 10406 10407 10408 10409 10410 10411 10412 10413 10414 10415 10416 10417 10418 10419 10420 10421 10422 10423 10424 10425 10426 10427 10428 10429 10430 10431 10432 10433 10434 10435 10436 10437 10438 10439 10440 10441 10442 10443 10444 10445 10446 10447 10448 10449 10450 10451 10452 10453 10454 10455 10456 10457 10458 10459 10460 10461 10462 10463 10464 10465 10466 10467 10468 10469 10470 10471 10472 10473 10474 10475 10476 10477 10478 10479 10480 10481 10482 10483 10484 10485 10486 10487 10488 10489 10490 10491 10492 10493 10494 10495 10496 10497 10498 10499 10500 10501 10502 10503 10504 10505 10506 10507 10508 10509 10510 10511 10512 10513 10514 10515 10516 10517 10518 10519 10520 10521 10522 10523 10524 10525 10526 10527 10528 10529 10530 10531 10532 10533 10534 10535 10536 10537 10538 10539 10540 10541 10542 10543 10544 10545 10546 10547 10548 10549 10550 10551 10552 10553 10554 10555 10556 10557 10558 10559 10560 10561 10562 10563 10564 10565 10566 10567 10568 10569 10570 10571 10572 10573 10574 10575 10576 10577 10578 10579 10580 10581 10582 10583 10584 10585 10586 10587 10588 10589 10590 10591 10592 10593 10594 10595 10596 10597 10598 10599 10600 10601 10602 10603 10604 10605 10606 10607 10608 10609 10610 10611 10612 10613 10614 10615 10616 10617 10618 10619 10620 10621 10622 10623 10624 10625 10626 10627 10628 10629 10630 10631 10632 10633 10634 10635 10636 10637 10638 10639 10640 10641 10642 10643 10644 10645 10646 10647 10648 10649 10650 10651 10652 10653 10654 10655 10656 10657 10658 10659 10660 10661 10662 10663 10664 10665 10666 10667 10668 10669 10670 10671 10672 10673 10674 10675 10676 10677 10678 10679 10680 10681 10682 10683 10684 10685 10686 10687 10688 10689 10690 10691 10692 10693 10694 10695 10696 10697 10698 10699 10700 10701 10702 10703 10704 10705 10706 10707 10708 10709 10710 10711 10712 10713 10714 10715 10716 10717 10718 10719 10720 10721 10722 10723 10724 10725 10726 10727 10728 10729 10730 10731 10732 10733 10734 10735 10736 10737 10738 10739 10740 10741 10742 10743 10744 10745 10746 10747 10748 10749 10750 10751 10752 10753 10754 10755 10756 10757 10758 10759 10760 10761 10762 10763 10764 10765 10766 10767 10768 10769 10770 10771 10772 10773 10774 10775 10776 10777 10778 10779 10780 10781 10782 10783 10784 10785 10786 10787 10788 10789 10790 10791 10792 10793 10794 10795 10796 10797 10798 10799 10800 10801 10802 10803 10804 10805 10806 10807 10808 10809 10810 10811 10812 10813 10814 10815 10816 10817 10818 10819 10820 10821 10822 10823 10824 10825 10826 10827 10828 10829 10830 10831 10832 10833 10834 10835 10836 10837 10838 10839 10840 10841 10842 10843 10844 10845 10846 10847 10848 10849 10850 10851 10852 10853 10854 10855 10856 10857 10858 10859 10860 10861 10862 10863 10864 10865 10866 10867 10868 10869 10870 10871 10872 10873 10874 10875 10876 10877 10878 10879 10880 10881 10882 10883 10884 10885 10886 10887 10888 10889 10890 10891 10892 10893 10894 10895 10896 10897 10898 10899 10900 10901 10902 10903 10904 10905 10906 10907 10908 10909 10910 10911 10912 10913 10914 10915 10916 10917 10918 10919 10920 10921 10922 10923 10924 10925 10926 10927 10928 10929 10930 10931 10932 10933 10934 10935 10936 10937 10938 10939 10940 10941 10942 10943 10944 10945 10946 10947 10948 10949 10950 10951 10952 10953 10954 10955 10956 10957 10958 10959 10960 10961 10962 10963 10964 10965 10966 10967 10968 10969 10970 10971 10972 10973 10974 10975 10976 10977 10978 10979 10980 10981 10982 10983 10984 10985 10986 10987 10988 10989 10990 10991 10992 10993 10994 10995 10996 10997 10998 10999 11000 11001 11002 11003 11004 11005 11006 11007 11008 11009 11010 11011 11012 11013 11014 11015 11016 11017 11018 11019 11020 11021 11022 11023 11024 11025 11026 11027 11028 11029 11030 11031 11032 11033 11034 11035 11036 11037 11038 11039 11040 11041 11042 11043 11044 11045 11046 11047 11048 11049 11050 11051 11052 11053 11054 11055 11056 11057 11058 11059 11060 11061 11062 11063 11064 11065 11066 11067 11068 11069 11070 11071 11072 11073 11074 11075 11076 11077 11078 11079 11080 11081 11082 11083 11084 11085 11086 11087 11088 11089 11090 11091 11092 11093 11094 11095 11096 11097 11098 11099 11100 11101 11102 11103 11104 11105 11106 11107 11108 11109 11110 11111 11112 11113 11114 11115 11116 11117 11118 11119 11120 11121 11122 11123 11124 11125 11126 11127 11128 11129 11130 11131 11132 11133 11134 11135 11136 11137 11138 11139 11140 11141 11142 11143 11144 11145 11146 11147 11148 11149 11150 11151 11152 11153 11154 11155 11156 11157 11158 11159 11160 11161 11162 11163 11164 11165 11166 11167 11168 11169 11170 11171 11172 11173 11174 11175 11176 11177 11178 11179 11180 11181 11182 11183 11184 11185 11186 11187 11188 11189 11190 11191 11192 11193 11194 11195 11196 11197 11198 11199 11200 11201 11202 11203 11204 11205 11206 11207 11208 11209 11210 11211 11212 11213 11214 11215 11216 11217 11218 11219 11220 11221 11222 11223 11224 11225 11226 11227 11228 11229 11230 11231 11232 11233 11234 11235 11236 11237 11238 11239 11240 11241 11242 11243 11244 11245 11246 11247 11248 11249 11250 11251 11252 11253 11254 11255 11256 11257 11258 11259 11260 11261 11262 11263 11264 11265 11266 11267 11268 11269 11270 11271 11272 11273 11274 11275 11276 11277 11278 11279 11280 11281 11282 11283 11284 11285 11286 11287 11288 11289 11290 11291 11292 11293 11294 11295 11296 11297 11298 11299 11300 11301 11302 11303 11304 11305 11306 11307 11308 11309 11310 11311 11312 11313 11314 11315 11316 11317 11318 11319 11320 11321 11322 11323 11324 11325 11326 11327 11328 11329 11330 11331 11332 11333 11334 11335 11336 11337 11338 11339 11340 11341 11342 11343 11344 11345 11346 11347 11348 11349 11350 11351 11352 11353 11354 11355 11356 11357 11358 11359 11360 11361 11362 11363 11364 11365 11366 11367 11368 11369 11370 11371 11372 11373 11374 11375 11376 11377 11378 11379 11380 11381 11382 11383 11384 11385 11386 11387 11388 11389 11390 11391 11392 11393 11394 11395 11396 11397 11398 11399 11400 11401 11402 11403 11404 11405 11406 11407 11408 11409 11410 11411 11412 11413 11414 11415 11416 11417 11418 11419 11420 11421 11422 11423 11424 11425 11426 11427 11428 11429 11430 11431 11432 11433 11434 11435 11436 11437 11438 11439 11440 11441 11442 11443 11444 11445 11446 11447 11448 11449 11450 11451 11452 11453 11454 11455 11456 11457 11458 11459 11460 11461 11462 11463 11464 11465 11466 11467 11468 11469 11470 11471 11472 11473 11474 11475 11476 11477 11478 11479 11480 11481 11482 11483 11484 11485 11486 11487 11488 11489 11490 11491 11492 11493 11494 11495 11496 11497 11498 11499 11500 11501 11502 11503 11504 11505 11506 11507 11508 11509 11510 11511 11512 11513 11514 11515 11516 11517 11518 11519 11520 11521 11522 11523 11524 11525 11526 11527 11528 11529 11530 11531 11532 11533 11534 11535 11536 11537 11538 11539 11540 11541 11542 11543 11544 11545 11546 11547 11548 11549 11550 11551 11552 11553 11554 11555 11556 11557 11558 11559 11560 11561 11562 11563 11564 11565 11566 11567 11568 11569 11570 11571 11572 11573 11574 11575 11576 11577 11578 11579 11580 11581 11582 11583 11584 11585 11586 11587 11588 11589 11590 11591 11592 11593 11594 11595 11596 11597 11598 11599 11600 11601 11602 11603 11604 11605 11606 11607 11608 11609 11610 11611 11612 11613 11614 11615 11616 11617 11618 11619 11620 11621 11622 11623 11624 11625 11626 11627 11628 11629 11630 11631 11632 11633 11634 11635 11636 11637 11638 11639 11640 11641 11642 11643 11644 11645 11646 11647 11648 11649 11650 11651 11652 11653 11654 11655 11656 11657 11658 11659 11660 11661 11662 11663 11664 11665 11666 11667 11668 11669 11670 11671 11672 11673 11674 11675 11676 11677 11678 11679 11680 11681 11682 11683 11684 11685 11686 11687 11688 11689 11690 11691 11692 11693 11694 11695 11696 11697 11698 11699 11700 11701 11702 11703 11704 11705 11706 11707 11708 11709 11710 11711 11712 11713 11714 11715 11716 11717 11718 11719 11720 11721 11722 11723 11724 11725 11726 11727 11728 11729 11730 11731 11732 11733 11734 11735 11736 11737 11738 11739 11740 11741 11742 11743 11744 11745 11746 11747 11748 11749 11750 11751 11752 11753 11754 11755 11756 11757 11758 11759 11760 11761 11762 11763 11764 11765 11766 11767 11768 11769 11770 11771 11772 11773 11774 11775 11776 11777 11778 11779 11780 11781 11782 11783 11784 11785 11786 11787 11788 11789 11790 11791 11792 11793 11794 11795 11796 11797 11798 11799 11800 11801 11802 11803 11804 11805 11806 11807 11808 11809 11810 11811 11812 11813 11814 11815 11816 11817 11818 11819 11820 11821 11822 11823 11824 11825 11826 11827 11828 11829 11830 11831 11832 11833 11834 11835 11836 11837 11838 11839 11840 11841 11842 11843 11844 11845 11846 11847 11848 11849 11850 11851 11852 11853 11854 11855 11856 11857 11858 11859 11860 11861 11862 11863 11864 11865 11866 11867 11868 11869 11870 11871 11872 11873 11874 11875 11876 11877 11878 11879 11880 11881 11882 11883 11884 11885 11886 11887 11888 11889 11890 11891 11892 11893 11894 11895 11896 11897 11898 11899 11900 11901 11902 11903 11904 11905 11906 11907 11908 11909 11910 11911 11912 11913 11914 11915 11916 11917 11918 11919 11920 11921 11922 11923 11924 11925 11926 11927 11928 11929 11930 11931 11932 11933 11934 11935 11936 11937 11938 11939 11940 11941 11942 11943 11944 11945 11946 11947 11948 11949 11950 11951 11952 11953 11954 11955 11956 11957 11958 11959 11960 11961 11962 11963 11964 11965 11966 11967 11968 11969 11970 11971 11972 11973 11974 11975 11976 11977 11978 11979 11980 11981 11982 11983 11984 11985 11986 11987 11988 11989 11990 11991 11992 11993 11994 11995 11996 11997 11998 11999 12000 12001 12002 12003 12004 12005 12006 12007 12008 12009 12010 12011 12012 12013 12014 12015 12016 12017 12018 12019 12020 12021 12022 12023 12024 12025 12026 12027 12028 12029 12030 12031 12032 12033 12034 12035 12036 12037 12038 12039 12040 12041 12042 12043 12044 12045 12046 12047 12048 12049 12050 12051 12052 12053 12054 12055 12056 12057 12058 12059 12060 12061 12062 12063 12064 12065 12066 12067 12068 12069 12070 12071 12072 12073 12074 12075 12076 12077 12078 12079 12080 12081 12082 12083 12084 12085 12086 12087 12088 12089 12090 12091 12092 12093 12094 12095 12096 12097 12098 12099 12100 12101 12102 12103 12104 12105 12106 12107 12108 12109 12110 12111 12112 12113 12114 12115 12116 12117 12118 12119 12120 12121 12122 12123 12124 12125 12126 12127 12128 12129 12130 12131 12132 12133 12134 12135 12136 12137 12138 12139 12140 12141 12142 12143 12144 12145 12146 12147 12148 12149 12150 12151 12152 12153 12154 12155 12156 12157 12158 12159 12160 12161 12162 12163 12164 12165 12166 12167 12168 12169 12170 12171 12172 12173 12174 12175 12176 12177 12178 12179 12180 12181 12182 12183 12184 12185 12186 12187 12188 12189 12190 12191 12192 12193 12194 12195 12196 12197 12198 12199 12200 12201 12202 12203 12204 12205 12206 12207 12208 12209 12210 12211 12212 12213 12214 12215 12216 12217 12218 12219 12220 12221 12222 12223 12224 12225 12226 12227 12228 12229 12230 12231 12232 12233 12234 12235 12236 12237 12238 12239 12240 12241 12242 12243 12244 12245 12246 12247 12248 12249 12250 12251 12252 12253 12254 12255 12256 12257 12258 12259 12260 12261 12262 12263 12264 12265 12266 12267 12268 12269 12270 12271 12272 12273 12274 12275 12276 12277 12278 12279 12280 12281 12282 12283 12284 12285 12286 12287 12288 12289 12290 12291 12292 12293 12294 12295 12296 12297 12298 12299 12300 12301 12302 12303 12304 12305 12306 12307 12308 12309 12310 12311 12312 12313 12314 12315 12316 12317 12318 12319 12320 12321 12322 12323 12324 12325 12326 12327 12328 12329 12330 12331 12332 12333 12334 12335 12336 12337 12338 12339 12340 12341 12342 12343 12344 12345 12346 12347 12348 12349 12350 12351 12352 12353 12354 12355 12356 12357 12358 12359 12360 12361 12362 12363 12364 12365 12366 12367 12368 12369 12370 12371 12372 12373 12374 12375 12376 12377 12378 12379 12380 12381 12382 12383 12384 12385 12386 12387 12388 12389 12390 12391 12392 12393 12394 12395 12396 12397 12398 12399 12400 12401 12402 12403 12404 12405 12406 12407 12408 12409 12410 12411 12412 12413 12414 12415 12416 12417 12418 12419 12420 12421 12422 12423 12424 12425 12426 12427 12428 12429 12430 12431 12432 12433 12434 12435 12436 12437 12438 12439 12440 12441 12442 12443 12444 12445 12446 12447 12448 12449 12450 12451 12452 12453 12454 12455 12456 12457 12458 12459 12460 12461 12462 12463 12464 12465 12466 12467 12468 12469 12470 12471 12472 12473 12474 12475 12476 12477 12478 12479 12480 12481 12482 12483 12484 12485 12486 12487 12488 12489 12490 12491 12492 12493 12494 12495 12496 12497 12498 12499 12500 12501 12502 12503 12504 12505 12506 12507 12508 12509 12510 12511 12512 12513 12514 12515 12516 12517 12518 12519 12520 12521 12522 12523 12524 12525 12526 12527 12528 12529 12530 12531 12532 12533 12534 12535 12536 12537 12538 12539 12540 12541 12542 12543 12544 12545 12546 12547 12548 12549 12550 12551 12552 12553 12554 12555 12556 12557 12558 12559 12560 12561 12562 12563 12564 12565 12566 12567 12568 12569 12570 12571 12572 12573 12574 12575 12576 12577 12578 12579 12580 12581 12582 12583 12584 12585 12586 12587 12588 12589 12590 12591 12592 12593 12594 12595 12596 12597 12598 12599 12600 12601 12602 12603 12604 12605 12606 12607 12608 12609 12610 12611 12612 12613 12614 12615 12616 12617 12618 12619 12620 12621 12622 12623 12624 12625 12626 12627 12628 12629 12630 12631 12632 12633 12634 12635 12636 12637 12638 12639 12640 12641 12642 12643 12644 12645 12646 12647 12648 12649 12650 12651 12652 12653 12654 12655 12656 12657 12658 12659 12660 12661 12662 12663 12664 12665 12666 12667 12668 12669 12670 12671 12672 12673 12674 12675 12676 12677 12678 12679 12680 12681 12682 12683 12684 12685 12686 12687 12688 12689 12690 12691 12692 12693 12694 12695 12696 12697 12698 12699 12700 12701 12702 12703 12704 12705 12706 12707 12708 12709 12710 12711 12712 12713 12714 12715 12716 12717 12718 12719 12720 12721 12722 12723 12724 12725 12726 12727 12728 12729 12730 12731 12732 12733 12734 12735 12736 12737 12738 12739 12740 12741 12742 12743 12744 12745 12746 12747 12748 12749 12750 12751 12752 12753 12754 12755 12756 12757 12758 12759 12760 12761 12762 12763 12764 12765 12766 12767 12768 12769 12770 12771 12772 12773 12774 12775 12776 12777 12778 12779 12780 12781 12782 12783 12784 12785 12786 12787 12788 12789 12790 12791 12792 12793 12794 12795 12796 12797 12798 12799 12800 12801 12802 12803 12804 12805 12806 12807 12808 12809 12810 12811 12812 12813 12814 12815 12816 12817 12818 12819 12820 12821 12822 12823 12824 12825 12826 12827 12828 12829 12830 12831 12832 12833 12834 12835 12836 12837 12838 12839 12840 12841 12842 12843 12844 12845 12846 12847 12848 12849 12850 12851 12852 12853 12854 12855 12856 12857 12858 12859 12860 12861 12862 12863 12864 12865 12866 12867 12868 12869 12870 12871 12872 12873 12874 12875 12876 12877 12878 12879 12880 12881 12882 12883 12884 12885 12886 12887 12888 12889 12890 12891 12892 12893 12894 12895 12896 12897 12898 12899 12900 12901 12902 12903 12904 12905 12906 12907 12908 12909 12910 12911 12912 12913 12914 12915 12916 12917 12918 12919 12920 12921 12922 12923 12924 12925 12926 12927 12928 12929 12930 12931 12932 12933 12934 12935 12936 12937 12938 12939 12940 12941 12942 12943 12944 12945 12946 12947 12948 12949 12950 12951 12952 12953 12954 12955 12956 12957 12958 12959 12960 12961 12962 12963 12964 12965 12966 12967 12968 12969 12970 12971 12972 12973 12974 12975 12976 12977 12978 12979 12980 12981 12982 12983 12984 12985 12986 12987 12988 12989 12990 12991 12992 12993 12994 12995 12996 12997 12998 12999 13000 13001 13002 13003 13004 13005 13006 13007 13008 13009 13010 13011 13012 13013 13014 13015 13016 13017 13018 13019 13020 13021 13022 13023 13024 13025 13026 13027 13028 13029 13030 13031 13032 13033 13034 13035 13036 13037 13038 13039 13040 13041 13042 13043 13044 13045 13046 13047 13048 13049 13050 13051 13052 13053 13054 13055 13056 13057 13058 13059 13060 13061 13062 13063 13064 13065 13066 13067 13068 13069 13070 13071 13072 13073 13074 13075 13076 13077 13078 13079 13080 13081 13082 13083 13084 13085 13086 13087 13088 13089 13090 13091 13092 13093 13094 13095 13096 13097 13098 13099 13100 13101 13102 13103 13104 13105 13106 13107 13108 13109 13110 13111 13112 13113 13114 13115 13116 13117 13118 13119 13120 13121 13122 13123 13124 13125 13126 13127 13128 13129 13130 13131 13132 13133 13134 13135 13136 13137 13138 13139 13140 13141 13142 13143 13144 13145 13146 13147 13148 13149 13150 13151 13152 13153 13154 13155 13156 13157 13158 13159 13160 13161 13162 13163 13164 13165 13166 13167 13168 13169 13170 13171 13172 13173 13174 13175 13176 13177 13178 13179 13180 13181 13182 13183 13184 13185 13186 13187 13188 13189 13190 13191 13192 13193 13194 13195 13196 13197 13198 13199 13200 13201 13202 13203 13204 13205 13206 13207 13208 13209 13210 13211 13212 13213 13214 13215 13216 13217 13218 13219 13220 13221 13222 13223 13224 13225 13226 13227 13228 13229 13230 13231 13232 13233 13234 13235 13236 13237 13238 13239 13240 13241 13242 13243 13244 13245 13246 13247 13248 13249 13250 13251 13252 13253 13254 13255 13256 13257 13258 13259 13260 13261 13262 13263 13264 13265 13266 13267 13268 13269 13270 13271 13272 13273 13274 13275 13276 13277 13278 13279 13280 13281 13282 13283 13284 13285 13286 13287 13288 13289 13290 13291 13292 13293 13294 13295 13296 13297 13298 13299 13300 13301 13302 13303 13304 13305 13306 13307 13308 13309 13310 13311 13312 13313 13314 13315 13316 13317 13318 13319 13320 13321 13322 13323 13324 13325 13326 13327 13328 13329 13330 13331 13332 13333 13334 13335 13336 13337 13338 13339 13340 13341 13342 13343 13344 13345 13346 13347 13348 13349 13350 13351 13352 13353 13354 13355 13356 13357 13358 13359 13360 13361 13362 13363 13364 13365 13366 13367 13368 13369 13370 13371 13372 13373 13374 13375 13376 13377 13378 13379 13380 13381 13382 13383 13384 13385 13386 13387 13388 13389 13390 13391 13392 13393 13394 13395 13396 13397 13398 13399 13400 13401 13402 13403 13404 13405 13406 13407 13408 13409 13410 13411 13412 13413 13414 13415 13416 13417 13418 13419 13420 13421 13422 13423 13424 13425 13426 13427 13428 13429 13430 13431 13432 13433 13434 13435 13436 13437 13438 13439 13440 13441 13442 13443 13444 13445 13446 13447 13448 13449 13450 13451 13452 13453 13454 13455 13456 13457 13458 13459 13460 13461 13462 13463 13464 13465 13466 13467 13468 13469 13470 13471 13472 13473 13474 13475 13476 13477 13478 13479 13480 13481 13482 13483 13484 13485 13486 13487 13488 13489 13490 13491 13492 13493 13494 13495 13496 13497 13498 13499 13500 13501 13502 13503 13504 13505 13506 13507 13508 13509 13510 13511 13512 13513 13514 13515 13516 13517 13518 13519 13520 13521 13522 13523 13524 13525 13526 13527 13528 13529 13530 13531 13532 13533 13534 13535 13536 13537 13538 13539 13540 13541 13542 13543 13544 13545 13546 13547 13548 13549 13550 13551 13552 13553 13554 13555 13556 13557 13558 13559 13560 13561 13562 13563 13564 13565 13566 13567 13568 13569 13570 13571 13572 13573 13574 13575 13576 13577 13578 13579 13580 13581 13582 13583 13584 13585 13586 13587 13588 13589 13590 13591 13592 13593 13594 13595 13596 13597 13598 13599 13600 13601 13602 13603 13604 13605 13606 13607 13608 13609 13610 13611 13612 13613 13614 13615 13616 13617 13618 13619 13620 13621 13622 13623 13624 13625 13626 13627 13628 13629 13630 13631 13632 13633 13634 13635 13636 13637 13638 13639 13640 13641 13642 13643 13644 13645 13646 13647 13648 13649 13650 13651 13652 13653 13654 13655 13656 13657 13658 13659 13660 13661 13662 13663 13664 13665 13666 13667 13668 13669 13670 13671 13672 13673 13674 13675 13676 13677 13678 13679 13680 13681 13682 13683 13684 13685 13686 13687 13688 13689 13690 13691 13692 13693 13694 13695 13696 13697 13698 13699 13700 13701 13702 13703 13704 13705 13706 13707 13708 13709 13710 13711 13712 13713 13714 13715 13716 13717 13718 13719 13720 13721 13722 13723 13724 13725 13726 13727 13728 13729 13730 13731 13732 13733 13734 13735 13736 13737 13738 13739 13740 13741 13742 13743 13744 13745 13746 13747 13748 13749 13750 13751 13752 13753 13754 13755 13756 13757 13758 13759 13760 13761 13762 13763 13764 13765 13766 13767 13768 13769 13770 13771 13772 13773 13774 13775 13776 13777 13778 13779 13780 13781 13782 13783 13784 13785 13786 13787 13788 13789 13790 13791 13792 13793 13794 13795 13796 13797 13798 13799 13800 13801 13802 13803 13804 13805 13806 13807 13808 13809 13810 13811 13812 13813 13814 13815 13816 13817 13818 13819 13820 13821 13822 13823 13824 13825 13826 13827 13828 13829 13830 13831 13832 13833 13834 13835 13836 13837 13838 13839 13840 13841 13842 13843 13844 13845 13846 13847 13848 13849 13850 13851 13852 13853 13854 13855 13856 13857 13858 13859 13860 13861 13862 13863 13864 13865 13866 13867 13868 13869 13870 13871 13872 13873 13874 13875 13876 13877 13878 13879 13880 13881 13882 13883 13884 13885 13886 13887 13888 13889 13890 13891 13892 13893 13894 13895 13896 13897 13898 13899 13900 13901 13902 13903 13904 13905 13906 13907 13908 13909 13910 13911 13912 13913 13914 13915 13916 13917 13918 13919 13920 13921 13922 13923 13924 13925 13926 13927 13928 13929 13930 13931 13932 13933 13934 13935 13936 13937 13938 13939 13940 13941 13942 13943 13944 13945 13946 13947 13948 13949 13950 13951 13952 13953 13954 13955 13956 13957 13958 13959 13960 13961 13962 13963 13964 13965 13966 13967 13968 13969 13970 13971 13972 13973 13974 13975 13976 13977 13978 13979 13980 13981 13982 13983 13984 13985 13986 13987 13988 13989 13990 13991 13992 13993 13994 13995 13996 13997 13998 13999 14000 14001 14002 14003 14004 14005 14006 14007 14008 14009 14010 14011 14012 14013 14014 14015 14016 14017 14018 14019 14020 14021 14022 14023 14024 14025 14026 14027 14028 14029 14030 14031 14032 14033 14034 14035 14036 14037 14038 14039 14040 14041 14042 14043 14044 14045 14046 14047 14048 14049 14050 14051 14052 14053 14054 14055 14056 14057 14058 14059 14060 14061 14062 14063 14064 14065 14066 14067 14068 14069 14070 14071 14072 14073 14074 14075 14076 14077 14078 14079 14080 14081 14082 14083 14084 14085 14086 14087 14088 14089 14090 14091 14092 14093 14094 14095 14096 14097 14098 14099 14100 14101 14102 14103 14104 14105 14106 14107 14108 14109 14110 14111 14112 14113 14114 14115 14116 14117 14118 14119 14120 14121 14122 14123 14124 14125 14126 14127 14128 14129 14130 14131 14132 14133 14134 14135 14136 14137 14138 14139 14140 14141 14142 14143 14144 14145 14146 14147 14148 14149 14150 14151 14152 14153 14154 14155 14156 14157 14158 14159 14160 14161 14162 14163 14164 14165 14166 14167 14168 14169 14170 14171 14172 14173 14174 14175 14176 14177 14178 14179 14180 14181 14182 14183 14184 14185 14186 14187 14188 14189 14190 14191 14192 14193 14194 14195 14196 14197 14198 14199 14200 14201 14202 14203 14204 14205 14206 14207 14208 14209 14210 14211 14212 14213 14214 14215 14216 14217 14218 14219 14220 14221 14222 14223 14224 14225 14226 14227 14228 14229 14230 14231 14232 14233 14234 14235 14236 14237 14238 14239 14240 14241 14242 14243 14244 14245 14246 14247 14248 14249 14250 14251 14252 14253 14254 14255 14256 14257 14258 14259 14260 14261 14262 14263 14264 14265 14266 14267 14268 14269 14270 14271 14272 14273 14274 14275 14276 14277 14278 14279 14280 14281 14282 14283 14284 14285 14286 14287 14288 14289 14290 14291 14292 14293 14294 14295 14296 14297 14298 14299 14300 14301 14302 14303 14304 14305 14306 14307 14308 14309 14310 14311 14312 14313 14314 14315 14316 14317 14318 14319 14320 14321 14322 14323 14324 14325 14326 14327 14328 14329 14330 14331 14332 14333 14334 14335 14336 14337 14338 14339 14340 14341 14342 14343 14344 14345 14346 14347 14348 14349 14350 14351 14352 14353 14354 14355 14356 14357 14358 14359 14360 14361 14362 14363 14364 14365 14366 14367 14368 14369 14370 14371 14372 14373 14374 14375 14376 14377 14378 14379 14380 14381 14382 14383 14384 14385 14386 14387 14388 14389 14390 14391 14392 14393 14394 14395 14396 14397 14398 14399 14400 14401 14402 14403 14404 14405 14406 14407 14408 14409 14410 14411 14412 14413 14414 14415 14416 14417 14418 14419 14420 14421 14422 14423 14424 14425 14426 14427 14428 14429 14430 14431 14432 14433 14434 14435 14436 14437 14438 14439 14440 14441 14442 14443 14444 14445 14446 14447 14448 14449 14450 14451 14452 14453 14454 14455 14456 14457 14458 14459 14460 14461 14462 14463 14464 14465 14466 14467 14468 14469 14470 14471 14472 14473 14474 14475 14476 14477 14478 14479 14480 14481 14482 14483 14484 14485 14486 14487 14488 14489 14490 14491 14492 14493 14494 14495 14496 14497 14498 14499 14500 14501 14502 14503 14504 14505 14506 14507 14508 14509 14510 14511 14512 14513 14514 14515 14516 14517 14518 14519 14520 14521 14522 14523 14524 14525 14526 14527 14528 14529 14530 14531 14532 14533 14534 14535 14536 14537 14538 14539 14540 14541 14542 14543 14544 14545 14546 14547 14548 14549 14550 14551 14552 14553 14554 14555 14556 14557 14558 14559 14560 14561 14562 14563 14564 14565 14566 14567 14568 14569 14570 14571 14572 14573 14574 14575 14576 14577 14578 14579 14580 14581 14582 14583 14584 14585 14586 14587 14588 14589 14590 14591 14592 14593 14594 14595 14596 14597 14598 14599 14600 14601 14602 14603 14604 14605 14606 14607 14608 14609 14610 14611 14612 14613 14614 14615 14616 14617 14618 14619 14620 14621 14622 14623 14624 14625 14626 14627 14628 14629 14630 14631 14632 14633 14634 14635 14636 14637 14638 14639 14640 14641 14642 14643 14644 14645 14646 14647 14648 14649 14650 14651 14652 14653 14654 14655 14656 14657 14658 14659 14660 14661 14662 14663 14664 14665 14666 14667 14668 14669 14670 14671 14672 14673 14674 14675 14676 14677 14678 14679 14680 14681 14682 14683 14684 14685 14686 14687 14688 14689 14690 14691 14692 14693 14694 14695 14696 14697 14698 14699 14700 14701 14702 14703 14704 14705 14706 14707 14708 14709 14710 14711 14712 14713 14714 14715 14716 14717 14718 14719 14720 14721 14722 14723 14724 14725 14726 14727 14728 14729 14730 14731 14732 14733 14734 14735 14736 14737 14738 14739 14740 14741 14742 14743 14744 14745 14746 14747 14748 14749 14750 14751 14752 14753 14754 14755 14756 14757 14758 14759 14760 14761 14762 14763 14764 14765 14766 14767 14768 14769 14770 14771 14772 14773 14774 14775 14776 14777 14778 14779 14780 14781 14782 14783 14784 14785 14786 14787 14788 14789 14790 14791 14792 14793 14794 14795 14796 14797 14798 14799 14800 14801 14802 14803 14804 14805 14806 14807 14808 14809 14810 14811 14812 14813 14814 14815 14816 14817 14818 14819 14820 14821 14822 14823 14824 14825 14826 14827 14828 14829 14830 14831 14832 14833 14834 14835 14836 14837 14838 14839 14840 14841 14842 14843 14844 14845 14846 14847 14848 14849 14850 14851 14852 14853 14854 14855 14856 14857 14858 14859 14860 14861 14862 14863 14864 14865 14866 14867 14868 14869 14870 14871 14872 14873 14874 14875 14876 14877 14878 14879 14880 14881 14882 14883 14884 14885 14886 14887 14888 14889 14890 14891 14892 14893 14894 14895 14896 14897 14898 14899 14900 14901 14902 14903 14904 14905 14906 14907 14908 14909 14910 14911 14912 14913 14914 14915 14916 14917 14918 14919 14920 14921 14922 14923 14924 14925 14926 14927 14928 14929 14930 14931 14932 14933 14934 14935 14936 14937 14938 14939 14940 14941 14942 14943 14944 14945 14946 14947 14948 14949 14950 14951 14952 14953 14954 14955 14956 14957 14958 14959 14960 14961 14962 14963 14964 14965 14966 14967 14968 14969 14970 14971 14972 14973 14974 14975 14976 14977 14978 14979 14980 14981 14982 14983 14984 14985 14986 14987 14988 14989 14990 14991 14992 14993 14994 14995 14996 14997 14998 14999 15000 15001 15002 15003 15004 15005 15006 15007 15008 15009 15010 15011 15012 15013 15014 15015 15016 15017 15018 15019 15020 15021 15022 15023 15024 15025 15026 15027 15028 15029 15030 15031 15032 15033 15034 15035 15036 15037 15038 15039 15040 15041 15042 15043 15044 15045 15046 15047 15048 15049 15050 15051 15052 15053 15054 15055 15056 15057 15058 15059 15060 15061 15062 15063 15064 15065 15066 15067 15068 15069 15070 15071 15072 15073 15074 15075 15076 15077 15078 15079 15080 15081 15082 15083 15084 15085 15086 15087 15088 15089 15090 15091 15092 15093 15094 15095 15096 15097 15098 15099 15100 15101 15102 15103 15104 15105 15106 15107 15108 15109 15110 15111 15112 15113 15114 15115 15116 15117 15118 15119 15120 15121 15122 15123 15124 15125 15126 15127 15128 15129 15130 15131 15132 15133 15134 15135 15136 15137 15138 15139 15140 15141 15142 15143 15144 15145 15146 15147 15148 15149 15150 15151 15152 15153 15154 15155 15156 15157 15158 15159 15160 15161 15162 15163 15164 15165 15166 15167 15168 15169 15170 15171 15172 15173 15174 15175 15176 15177 15178 15179 15180 15181 15182 15183 15184 15185 15186 15187 15188 15189 15190 15191 15192 15193 15194 15195 15196 15197 15198 15199 15200 15201 15202 15203 15204 15205 15206 15207 15208 15209 15210 15211 15212 15213 15214 15215 15216 15217 15218 15219 15220 15221 15222 15223 15224 15225 15226 15227 15228 15229 15230 15231 15232 15233 15234 15235 15236 15237 15238 15239 15240 15241 15242 15243 15244 15245 15246 15247 15248 15249 15250 15251 15252 15253 15254 15255 15256 15257 15258 15259 15260 15261 15262 15263 15264 15265 15266 15267 15268 15269 15270 15271 15272 15273 15274 15275 15276 15277 15278 15279 15280 15281 15282 15283 15284 15285 15286 15287 15288 15289 15290 15291 15292 15293 15294 15295 15296 15297 15298 15299 15300 15301 15302 15303 15304 15305 15306 15307 15308 15309 15310 15311 15312 15313 15314 15315 15316 15317 15318 15319 15320 15321 15322 15323 15324 15325 15326 15327 15328 15329 15330 15331 15332 15333 15334 15335 15336 15337 15338 15339 15340 15341 15342 15343 15344 15345 15346 15347 15348 15349 15350 15351 15352 15353 15354 15355 15356 15357 15358 15359 15360 15361 15362 15363 15364 15365 15366 15367 15368 15369 15370 15371 15372 15373 15374 15375 15376 15377 15378 15379 15380 15381 15382 15383 15384 15385 15386 15387 15388 15389 15390 15391 15392 15393 15394 15395 15396 15397 15398 15399 15400 15401 15402 15403 15404 15405 15406 15407 15408 15409 15410 15411 15412 15413 15414 15415 15416 15417 15418 15419 15420 15421 15422 15423 15424 15425 15426 15427 15428 15429 15430 15431 15432 15433 15434 15435 15436 15437 15438 15439 15440 15441 15442 15443 15444 15445 15446 15447 15448 15449 15450 15451 15452 15453 15454 15455 15456 15457 15458 15459 15460 15461 15462 15463 15464 15465 15466 15467 15468 15469 15470 15471 15472 15473 15474 15475 15476 15477 15478 15479 15480 15481 15482 15483 15484 15485 15486 15487 15488 15489 15490 15491 15492 15493 15494 15495 15496 15497 15498 15499 15500 15501 15502 15503 15504 15505 15506 15507 15508 15509 15510 15511 15512 15513 15514 15515 15516 15517 15518 15519 15520 15521 15522 15523 15524 15525 15526 15527 15528 15529 15530 15531 15532 15533 15534 15535 15536 15537 15538 15539 15540 15541 15542 15543 15544 15545 15546 15547 15548 15549 15550 15551 15552 15553 15554 15555 15556 15557 15558 15559 15560 15561 15562 15563 15564 15565 15566 15567 15568 15569 15570 15571 15572 15573 15574 15575 15576 15577 15578 15579 15580 15581 15582 15583 15584 15585 15586 15587 15588 15589 15590 15591 15592 15593 15594 15595 15596 15597 15598 15599 15600 15601 15602 15603 15604 15605 15606 15607 15608 15609 15610 15611 15612 15613 15614 15615 15616 15617 15618 15619 15620 15621 15622 15623 15624 15625 15626 15627 15628 15629 15630 15631 15632 15633 15634 15635 15636 15637 15638 15639 15640 15641 15642 15643 15644 15645 15646 15647 15648 15649 15650 15651 15652 15653 15654 15655 15656 15657 15658 15659 15660 15661 15662 15663 15664 15665 15666 15667 15668 15669 15670 15671 15672 15673 15674 15675 15676 15677 15678 15679 15680 15681 15682 15683 15684 15685 15686 15687 15688 15689 15690 15691 15692 15693 15694 15695 15696 15697 15698 15699 15700 15701 15702 15703 15704 15705 15706 15707 15708 15709 15710 15711 15712 15713 15714 15715 15716 15717 15718 15719 15720 15721 15722 15723 15724 15725 15726 15727 15728 15729 15730 15731 15732 15733 15734 15735 15736 15737 15738 15739 15740 15741 15742 15743 15744 15745 15746 15747 15748 15749 15750 15751 15752 15753 15754 15755 15756 15757 15758 15759 15760 15761 15762 15763 15764 15765 15766 15767 15768 15769 15770 15771 15772 15773 15774 15775 15776 15777 15778 15779 15780 15781 15782 15783 15784 15785 15786 15787 15788 15789 15790 15791 15792 15793 15794 15795 15796 15797 15798 15799 15800 15801 15802 15803 15804 15805 15806 15807 15808 15809 15810 15811 15812 15813 15814 15815 15816 15817 15818 15819 15820 15821 15822 15823 15824 15825 15826 15827 15828 15829 15830 15831 15832 15833 15834 15835 15836 15837 15838 15839 15840 15841 15842 15843 15844 15845 15846 15847 15848 15849 15850 15851 15852 15853 15854 15855 15856 15857 15858 15859 15860 15861 15862 15863 15864 15865 15866 15867 15868 15869 15870 15871 15872 15873 15874 15875 15876 15877 15878 15879 15880 15881 15882 15883 15884 15885 15886 15887 15888 15889 15890 15891 15892 15893 15894 15895 15896 15897 15898 15899 15900 15901 15902 15903 15904 15905 15906 15907 15908 15909 15910 15911 15912 15913 15914 15915 15916 15917 15918 15919 15920 15921 15922 15923 15924 15925 15926 15927 15928 15929 15930 15931 15932 15933 15934 15935 15936 15937 15938 15939 15940 15941 15942 15943 15944 15945 15946 15947 15948 15949 15950 15951 15952 15953 15954 15955 15956 15957 15958 15959 15960 15961 15962 15963 15964 15965 15966 15967 15968 15969 15970 15971 15972 15973 15974 15975 15976 15977 15978 15979 15980 15981 15982 15983 15984 15985 15986 15987 15988 15989 15990 15991 15992 15993 15994 15995 15996 15997 15998 15999 16000 16001 16002 16003 16004 16005 16006 16007 16008 16009 16010 16011 16012 16013 16014 16015 16016 16017 16018 16019 16020 16021 16022 16023 16024 16025 16026 16027 16028 16029 16030 16031 16032 16033 16034 16035 16036 16037 16038 16039 16040 16041 16042 16043 16044 16045 16046 16047 16048 16049 16050 16051 16052 16053 16054 16055 16056 16057 16058 16059 16060 16061 16062 16063 16064 16065 16066 16067 16068 16069 16070 16071 16072 16073 16074 16075 16076 16077 16078 16079 16080 16081 16082 16083 16084 16085 16086 16087 16088 16089 16090 16091 16092 16093 16094 16095 16096 16097 16098 16099 16100 16101 16102 16103 16104 16105 16106 16107 16108 16109 16110 16111 16112 16113 16114 16115 16116 16117 16118 16119 16120 16121 16122 16123 16124 16125 16126 16127 16128 16129 16130 16131 16132 16133 16134 16135 16136 16137 16138 16139 16140 16141 16142 16143 16144 16145 16146 16147 16148 16149 16150 16151 16152 16153 16154 16155 16156 16157 16158 16159 16160 16161 16162 16163 16164 16165 16166 16167 16168 16169 16170 16171 16172 16173 16174 16175 16176 16177 16178 16179 16180 16181 16182 16183 16184 16185 16186 16187 16188 16189 16190 16191 16192 16193 16194 16195 16196 16197 16198 16199 16200 16201 16202 16203 16204 16205 16206 16207 16208 16209 16210 16211 16212 16213 16214 16215 16216 16217 16218 16219 16220 16221 16222 16223 16224 16225 16226 16227 16228 16229 16230 16231 16232 16233 16234 16235 16236 16237 16238 16239 16240 16241 16242 16243 16244 16245 16246 16247 16248 16249 16250 16251 16252 16253 16254 16255 16256 16257 16258 16259 16260 16261 16262 16263 16264 16265 16266 16267 16268 16269 16270 16271 16272 16273 16274 16275 16276 16277 16278 16279 16280 16281 16282 16283 16284 16285 16286 16287 16288 16289 16290 16291 16292 16293 16294 16295 16296 16297 16298 16299 16300 16301 16302 16303 16304 16305 16306 16307 16308 16309 16310 16311 16312 16313 16314 16315 16316 16317 16318 16319 16320 16321 16322 16323 16324 16325 16326 16327 16328 16329 16330 16331 16332 16333 16334 16335 16336 16337 16338 16339 16340 16341 16342 16343 16344 16345 16346 16347 16348 16349 16350 16351 16352 16353 16354 16355 16356 16357 16358 16359 16360 16361 16362 16363 16364 16365 16366 16367 16368 16369 16370 16371 16372 16373 16374 16375 16376 16377 16378 16379 16380 16381 16382 16383 16384 16385 16386 16387 16388 16389 16390 16391 16392 16393 16394 16395 16396 16397 16398 16399 16400 16401 16402 16403 16404 16405 16406 16407 16408 16409 16410 16411 16412 16413 16414 16415 16416 16417 16418 16419 16420 16421 16422 16423 16424 16425 16426 16427 16428 16429 16430 16431 16432 16433 16434 16435 16436 16437 16438 16439 16440 16441 16442 16443 16444 16445 16446 16447 16448 16449 16450 16451 16452 16453 16454 16455 16456 16457 16458 16459 16460 16461 16462 16463 16464 16465 16466 16467 16468 16469 16470 16471 16472 16473 16474 16475 16476 16477 16478 16479 16480 16481 16482 16483 16484 16485 16486 16487 16488 16489 16490 16491 16492 16493 16494 16495 16496 16497 16498 16499 16500 16501 16502 16503 16504 16505 16506 16507 16508 16509 16510 16511 16512 16513 16514 16515 16516 16517 16518 16519 16520 16521 16522 16523 16524 16525 16526 16527 16528 16529 16530 16531 16532 16533 16534 16535 16536 16537 16538 16539 16540 16541 16542 16543 16544 16545 16546 16547 16548 16549 16550 16551 16552 16553 16554 16555 16556 16557 16558 16559 16560 16561 16562 16563 16564 16565 16566 16567 16568 16569 16570 16571 16572 16573 16574 16575 16576 16577 16578 16579 16580 16581 16582 16583 16584 16585 16586 16587 16588 16589 16590 16591 16592 16593 16594 16595 16596 16597 16598 16599 16600 16601 16602 16603 16604 16605 16606 16607 16608 16609 16610 16611 16612 16613 16614 16615 16616 16617 16618 16619 16620 16621 16622 16623 16624 16625 16626 16627 16628 16629 16630 16631 16632 16633 16634 16635 16636 16637 16638 16639 16640 16641 16642 16643 16644 16645 16646 16647 16648 16649 16650 16651 16652 16653 16654 16655 16656 16657 16658 16659 16660 16661 16662 16663 16664 16665 16666 16667 16668 16669 16670 16671 16672 16673 16674 16675 16676 16677 16678 16679 16680 16681 16682 16683 16684 16685 16686 16687 16688 16689 16690 16691 16692 16693 16694 16695 16696 16697 16698 16699 16700 16701 16702 16703 16704 16705 16706 16707 16708 16709 16710 16711 16712 16713 16714 16715 16716 16717 16718 16719 16720 16721 16722 16723 16724 16725 16726 16727 16728 16729 16730 16731 16732 16733 16734 16735 16736 16737 16738 16739 16740 16741 16742 16743 16744 16745 16746 16747 16748 16749 16750 16751 16752 16753 16754 16755 16756 16757 16758 16759 16760 16761 16762 16763 16764 16765 16766 16767 16768 16769 16770 16771 16772 16773 16774 16775 16776 16777 16778 16779 16780 16781 16782 16783 16784 16785 16786 16787 16788 16789 16790 16791 16792 16793 16794 16795 16796 16797 16798 16799 16800 16801 16802 16803 16804 16805 16806 16807 16808 16809 16810 16811 16812 16813 16814 16815 16816 16817 16818 16819 16820 16821 16822 16823 16824 16825 16826 16827 16828 16829 16830 16831 16832 16833 16834 16835 16836 16837 16838 16839 16840 16841 16842 16843 16844 16845 16846 16847 16848 16849 16850 16851 16852 16853 16854 16855 16856 16857 16858 16859 16860 16861 16862 16863 16864 16865 16866 16867 16868 16869 16870 16871 16872 16873 16874 16875 16876 16877 16878 16879 16880 16881 16882 16883 16884 16885 16886 16887 16888 16889 16890 16891 16892 16893 16894 16895 16896 16897 16898 16899 16900 16901 16902 16903 16904 16905 16906 16907 16908 16909 16910 16911 16912 16913 16914 16915 16916 16917 16918 16919 16920 16921 16922 16923 16924 16925 16926 16927 16928 16929 16930 16931 16932 16933 16934 16935 16936 16937 16938 16939 16940 16941 16942 16943 16944 16945 16946 16947 16948 16949 16950 16951 16952 16953 16954 16955 16956 16957 16958 16959 16960 16961 16962 16963 16964 16965 16966 16967 16968 16969 16970 16971 16972 16973 16974 16975 16976 16977 16978 16979 16980 16981 16982 16983 16984 16985 16986 16987 16988 16989 16990 16991 16992 16993 16994 16995 16996 16997 16998 16999 17000 17001 17002 17003 17004 17005 17006 17007 17008 17009 17010 17011 17012 17013 17014 17015 17016 17017 17018 17019 17020 17021 17022 17023 17024 17025 17026 17027 17028 17029 17030 17031 17032 17033 17034 17035 17036 17037 17038 17039 17040 17041 17042 17043 17044 17045 17046 17047 17048 17049 17050 17051 17052 17053 17054 17055 17056 17057 17058 17059 17060 17061 17062 17063 17064 17065 17066 17067 17068 17069 17070 17071 17072 17073 17074 17075 17076 17077 17078 17079 17080 17081 17082 17083 17084 17085 17086 17087 17088 17089 17090 17091 17092 17093 17094 17095 17096 17097 17098 17099 17100 17101 17102 17103 17104 17105 17106 17107 17108 17109 17110 17111 17112 17113 17114 17115 17116 17117 17118 17119 17120 17121 17122 17123 17124 17125 17126 17127 17128 17129 17130 17131 17132 17133 17134 17135 17136 17137 17138 17139 17140 17141 17142 17143 17144 17145 17146 17147 17148 17149 17150 17151 17152 17153 17154 17155 17156 17157 17158 17159 17160 17161 17162 17163 17164 17165 17166 17167 17168 17169 17170 17171 17172 17173 17174 17175 17176 17177 17178 17179 17180 17181 17182 17183 17184 17185 17186 17187 17188 17189 17190 17191 17192 17193 17194 17195 17196 17197 17198 17199 17200 17201 17202 17203 17204 17205 17206 17207 17208 17209 17210 17211 17212 17213 17214 17215 17216 17217 17218 17219 17220 17221 17222 17223 17224 17225 17226 17227 17228 17229 17230 17231 17232 17233 17234 17235 17236 17237 17238 17239 17240 17241 17242 17243 17244 17245 17246 17247 17248 17249 17250 17251 17252 17253 17254 17255 17256 17257 17258 17259 17260 17261 17262 17263 17264 17265 17266 17267 17268 17269 17270 17271 17272 17273 17274 17275 17276 17277 17278 17279 17280 17281 17282 17283 17284 17285 17286 17287 17288 17289 17290 17291 17292 17293 17294 17295 17296 17297 17298 17299 17300 17301 17302 17303 17304 17305 17306 17307 17308 17309 17310 17311 17312 17313 17314 17315 17316 17317 17318 17319 17320 17321 17322 17323 17324 17325 17326 17327 17328 17329 17330 17331 17332 17333 17334 17335 17336 17337 17338 17339 17340 17341 17342 17343 17344 17345 17346 17347 17348 17349 17350 17351 17352 17353 17354 17355 17356 17357 17358 17359 17360 17361 17362 17363 17364 17365 17366 17367 17368 17369 17370 17371 17372 17373 17374 17375 17376 17377 17378 17379 17380 17381 17382 17383 17384 17385 17386 17387 17388 17389 17390 17391 17392 17393 17394 17395 17396 17397 17398 17399 17400 17401 17402 17403 17404 17405 17406 17407 17408 17409 17410 17411 17412 17413 17414 17415 17416 17417 17418 17419 17420 17421 17422 17423 17424 17425 17426 17427 17428 17429 17430 17431 17432 17433 17434 17435 17436 17437 17438 17439 17440 17441 17442 17443 17444 17445 17446 17447 17448 17449 17450 17451 17452 17453 17454 17455 17456 17457 17458 17459 17460 17461 17462 17463 17464 17465 17466 17467 17468 17469 17470 17471 17472 17473 17474 17475 17476 17477 17478 17479 17480 17481 17482 17483 17484 17485 17486 17487 17488 17489 17490 17491 17492 17493 17494 17495 17496 17497 17498 17499 17500 17501 17502 17503 17504 17505 17506 17507 17508 17509 17510 17511 17512 17513 17514 17515 17516 17517 17518 17519 17520 17521 17522 17523 17524 17525 17526 17527 17528 17529 17530 17531 17532 17533 17534 17535 17536 17537 17538 17539 17540 17541 17542 17543 17544 17545 17546 17547 17548 17549 17550 17551 17552 17553 17554 17555 17556 17557 17558 17559 17560 17561 17562 17563 17564 17565 17566 17567 17568 17569 17570 17571 17572 17573 17574 17575 17576 17577 17578 17579 17580 17581 17582 17583 17584 17585 17586 17587 17588 17589 17590 17591 17592 17593 17594 17595 17596 17597 17598 17599 17600 17601 17602 17603 17604 17605 17606 17607 17608 17609 17610 17611 17612 17613 17614 17615 17616 17617 17618 17619 17620 17621 17622 17623 17624 17625 17626 17627 17628 17629 17630 17631 17632 17633 17634 17635 17636 17637 17638 17639 17640 17641 17642 17643 17644 17645 17646 17647 17648 17649 17650 17651 17652 17653 17654 17655 17656 17657 17658 17659 17660 17661 17662 17663 17664 17665 17666 17667 17668 17669 17670 17671 17672 17673 17674 17675 17676 17677 17678 17679 17680 17681 17682 17683 17684 17685 17686 17687 17688 17689 17690 17691 17692 17693 17694 17695 17696 17697 17698 17699 17700 17701 17702 17703 17704 17705 17706 17707 17708 17709 17710 17711 17712 17713 17714 17715 17716 17717 17718 17719 17720 17721 17722 17723 17724 17725 17726 17727 17728 17729 17730 17731 17732 17733 17734 17735 17736 17737 17738 17739 17740 17741 17742 17743 17744 17745 17746 17747 17748 17749 17750 17751 17752 17753 17754 17755 17756 17757 17758 17759 17760 17761 17762 17763 17764 17765 17766 17767 17768 17769 17770 17771 17772 17773 17774 17775 17776 17777 17778 17779 17780 17781 17782 17783 17784 17785 17786 17787 17788 17789 17790 17791 17792 17793 17794 17795 17796 17797 17798 17799 17800 17801 17802 17803 17804 17805 17806 17807 17808 17809 17810 17811 17812 17813 17814 17815 17816 17817 17818 17819 17820 17821 17822 17823 17824 17825 17826 17827 17828 17829 17830 17831 17832 17833 17834 17835 17836 17837 17838 17839 17840 17841 17842 17843 17844 17845 17846 17847 17848 17849 17850 17851 17852 17853 17854 17855 17856 17857 17858 17859 17860 17861 17862 17863 17864 17865 17866 17867 17868 17869 17870 17871 17872 17873 17874 17875 17876 17877 17878 17879 17880 17881 17882 17883 17884 17885 17886 17887 17888 17889 17890 17891 17892 17893 17894 17895 17896 17897 17898 17899 17900 17901 17902 17903 17904 17905 17906 17907 17908 17909 17910 17911 17912 17913 17914 17915 17916 17917 17918 17919 17920 17921 17922 17923 17924 17925 17926 17927 17928 17929 17930 17931 17932 17933 17934 17935 17936 17937 17938 17939 17940 17941 17942 17943 17944 17945 17946 17947 17948 17949 17950 17951 17952 17953 17954 17955 17956 17957 17958 17959 17960 17961 17962 17963 17964 17965 17966 17967 17968 17969 17970 17971 17972 17973 17974 17975 17976 17977 17978 17979 17980 17981 17982 17983 17984 17985 17986 17987 17988 17989 17990 17991 17992 17993 17994 17995 17996 17997 17998 17999 18000 18001 18002 18003 18004 18005 18006 18007 18008 18009 18010 18011 18012 18013 18014 18015 18016 18017 18018 18019 18020 18021 18022 18023 18024 18025 18026 18027 18028 18029 18030 18031 18032 18033 18034 18035 18036 18037 18038 18039 18040 18041 18042 18043 18044 18045 18046 18047 18048 18049 18050 18051 18052 18053 18054 18055 18056 18057 18058 18059 18060 18061 18062 18063 18064 18065 18066 18067 18068 18069 18070 18071 18072 18073 18074 18075 18076 18077 18078 18079 18080 18081 18082 18083 18084 18085 18086 18087 18088 18089 18090 18091 18092 18093 18094 18095 18096 18097 18098 18099 18100 18101 18102 18103 18104 18105 18106 18107 18108 18109 18110 18111 18112 18113 18114 18115 18116 18117 18118 18119 18120 18121 18122 18123 18124 18125 18126 18127 18128 18129 18130 18131 18132 18133 18134 18135 18136 18137 18138 18139 18140 18141 18142 18143 18144 18145 18146 18147 18148 18149 18150 18151 18152 18153 18154 18155 18156 18157 18158 18159 18160 18161 18162 18163 18164 18165 18166 18167 18168 18169 18170 18171 18172 18173 18174 18175 18176 18177 18178 18179 18180 18181 18182 18183 18184 18185 18186 18187 18188 18189 18190 18191 18192 18193 18194 18195 18196 18197 18198 18199 18200 18201 18202 18203 18204 18205 18206 18207 18208 18209 18210 18211 18212 18213 18214 18215 18216 18217 18218 18219 18220 18221 18222 18223 18224 18225 18226 18227 18228 18229 18230 18231 18232 18233 18234 18235 18236 18237 18238 18239 18240 18241 18242 18243 18244 18245 18246 18247 18248 18249 18250 18251 18252 18253 18254 18255 18256 18257 18258 18259 18260 18261 18262 18263 18264 18265 18266 18267 18268 18269 18270 18271 18272 18273 18274 18275 18276 18277 18278 18279 18280 18281 18282 18283 18284 18285 18286 18287 18288 18289 18290 18291 18292 18293 18294 18295 18296 18297 18298 18299 18300 18301 18302 18303 18304 18305 18306 18307 18308 18309 18310 18311 18312 18313 18314 18315 18316 18317 18318 18319 18320 18321 18322 18323 18324 18325 18326 18327 18328 18329 18330 18331 18332 18333 18334 18335 18336 18337 18338 18339 18340 18341 18342 18343 18344 18345 18346 18347 18348 18349 18350 18351 18352 18353 18354 18355 18356 18357 18358 18359 18360 18361 18362 18363 18364 18365 18366 18367 18368 18369 18370 18371 18372 18373 18374 18375 18376 18377 18378 18379 18380 18381 18382 18383 18384 18385 18386 18387 18388 18389 18390 18391 18392 18393 18394 18395 18396 18397 18398 18399 18400 18401 18402 18403 18404 18405 18406 18407 18408 18409 18410 18411 18412 18413 18414 18415 18416 18417 18418 18419 18420 18421 18422 18423 18424 18425 18426 18427 18428 18429 18430 18431 18432 18433 18434 18435 18436 18437 18438 18439 18440 18441 18442 18443 18444 18445 18446 18447 18448 18449 18450 18451 18452 18453 18454 18455 18456 18457 18458 18459 18460 18461 18462 18463 18464 18465 18466 18467 18468 18469 18470 18471 18472 18473 18474 18475 18476 18477 18478 18479 18480 18481 18482 18483 18484 18485 18486 18487 18488 18489 18490 18491 18492 18493 18494 18495 18496 18497 18498 18499 18500 18501 18502 18503 18504 18505 18506 18507 18508 18509 18510 18511 18512 18513 18514 18515 18516 18517 18518 18519 18520 18521 18522 18523 18524 18525 18526 18527 18528 18529 18530 18531 18532 18533 18534 18535 18536 18537 18538 18539 18540 18541 18542 18543 18544 18545 18546 18547 18548 18549 18550 18551 18552 18553 18554 18555 18556 18557 18558 18559 18560 18561 18562 18563 18564 18565 18566 18567 18568 18569 18570 18571 18572 18573 18574 18575 18576 18577 18578 18579 18580 18581 18582 18583 18584 18585 18586 18587 18588 18589 18590 18591 18592 18593 18594 18595 18596 18597 18598 18599 18600 18601 18602 18603 18604 18605 18606 18607 18608 18609 18610 18611 18612 18613 18614 18615 18616 18617 18618 18619 18620 18621 18622 18623 18624 18625 18626 18627 18628 18629 18630 18631 18632 18633 18634 18635 18636 18637 18638 18639 18640 18641 18642 18643 18644 18645 18646 18647 18648 18649 18650 18651 18652 18653 18654 18655 18656 18657 18658 18659 18660 18661 18662 18663 18664 18665 18666 18667 18668 18669 18670 18671 18672 18673 18674 18675 18676 18677 18678 18679 18680 18681 18682 18683 18684 18685 18686 18687 18688 18689 18690 18691 18692 18693 18694 18695 18696 18697 18698 18699 18700 18701 18702 18703 18704 18705 18706 18707 18708 18709 18710 18711 18712 18713 18714 18715 18716 18717 18718 18719 18720 18721 18722 18723 18724 18725 18726 18727 18728 18729 18730 18731 18732 18733 18734 18735 18736 18737 18738 18739 18740 18741 18742 18743 18744 18745 18746 18747 18748 18749 18750 18751 18752 18753 18754 18755 18756 18757 18758 18759 18760 18761 18762 18763 18764 18765 18766 18767 18768 18769 18770 18771 18772 18773 18774 18775 18776 18777 18778 18779 18780 18781 18782 18783 18784 18785 18786 18787 18788 18789 18790 18791 18792 18793 18794 18795 18796 18797 18798 18799 18800 18801 18802 18803 18804 18805 18806 18807 18808 18809 18810 18811 18812 18813 18814 18815 18816 18817 18818 18819 18820 18821 18822 18823 18824 18825 18826 18827 18828 18829 18830 18831 18832 18833 18834 18835 18836 18837 18838 18839 18840 18841 18842 18843 18844 18845 18846 18847 18848 18849 18850 18851 18852 18853 18854 18855 18856 18857 18858 18859 18860 18861 18862 18863 18864 18865 18866 18867 18868 18869 18870 18871 18872 18873 18874 18875 18876 18877 18878 18879 18880 18881 18882 18883 18884 18885 18886 18887 18888 18889 18890 18891 18892 18893 18894 18895 18896 18897 18898 18899 18900 18901 18902 18903 18904 18905 18906 18907 18908 18909 18910 18911 18912 18913 18914 18915 18916 18917 18918 18919 18920 18921 18922 18923 18924 18925 18926 18927 18928 18929 18930 18931 18932 18933 18934 18935 18936 18937 18938 18939 18940 18941 18942 18943 18944 18945 18946 18947 18948 18949 18950 18951 18952 18953 18954 18955 18956 18957 18958 18959 18960 18961 18962 18963 18964 18965 18966 18967 18968 18969 18970 18971 18972 18973 18974 18975 18976 18977 18978 18979 18980 18981 18982 18983 18984 18985 18986 18987 18988 18989 18990 18991 18992 18993 18994 18995 18996 18997 18998 18999 19000 19001 19002 19003 19004 19005 19006 19007 19008 19009 19010 19011 19012 19013 19014 19015 19016 19017 19018 19019 19020 19021 19022 19023 19024 19025 19026 19027 19028 19029 19030 19031 19032 19033 19034 19035 19036 19037 19038 19039 19040 19041 19042 19043 19044 19045 19046 19047 19048 19049 19050 19051 19052 19053 19054 19055 19056 19057 19058 19059 19060 19061 19062 19063 19064 19065 19066 19067 19068 19069 19070 19071 19072 19073 19074 19075 19076 19077 19078 19079 19080 19081 19082 19083 19084 19085 19086 19087 19088 19089 19090 19091 19092 19093 19094 19095 19096 19097 19098 19099 19100 19101 19102 19103 19104 19105 19106 19107 19108 19109 19110 19111 19112 19113 19114 19115 19116 19117 19118 19119 19120 19121 19122 19123 19124 19125 19126 19127 19128 19129 19130 19131 19132 19133 19134 19135 19136 19137 19138 19139 19140 19141 19142 19143 19144 19145 19146 19147 19148 19149 19150 19151 19152 19153 19154 19155 19156 19157 19158 19159 19160 19161 19162 19163 19164 19165 19166 19167 19168 19169 19170 19171 19172 19173 19174 19175 19176 19177 19178 19179 19180 19181 19182 19183 19184 19185 19186 19187 19188 19189 19190 19191 19192 19193 19194 19195 19196 19197 19198 19199 19200 19201 19202 19203 19204 19205 19206 19207 19208 19209 19210 19211 19212 19213 19214 19215 19216 19217 19218 19219 19220 19221 19222 19223 19224 19225 19226 19227 19228 19229 19230 19231 19232 19233 19234 19235 19236 19237 19238 19239 19240 19241 19242 19243 19244 19245 19246 19247 19248 19249 19250 19251 19252 19253 19254 19255 19256 19257 19258 19259 19260 19261 19262 19263 19264 19265 19266 19267 19268 19269 19270 19271 19272 19273 19274 19275 19276 19277 19278 19279 19280 19281 19282 19283 19284 19285 19286 19287 19288 19289 19290 19291 19292 19293 19294 19295 19296 19297 19298 19299 19300 19301 19302 19303 19304 19305 19306 19307 19308 19309 19310 19311 19312 19313 19314 19315 19316 19317 19318 19319 19320 19321 19322 19323 19324 19325 19326 19327 19328 19329 19330 19331 19332 19333 19334 19335 19336 19337 19338 19339 19340 19341 19342 19343 19344 19345 19346 19347 19348 19349 19350 19351 19352 19353 19354 19355 19356 19357 19358 19359 19360 19361 19362 19363 19364 19365 19366 19367 19368 19369 19370 19371 19372 19373 19374 19375 19376 19377 19378 19379 19380 19381 19382 19383 19384 19385 19386 19387 19388 19389 19390 19391 19392 19393 19394 19395 19396 19397 19398 19399 19400 19401 19402 19403 19404 19405 19406 19407 19408 19409 19410 19411 19412 19413 19414 19415 19416 19417 19418 19419 19420 19421 19422 19423 19424 19425 19426 19427 19428 19429 19430 19431 19432 19433 19434 19435 19436 19437 19438 19439 19440 19441 19442 19443 19444 19445 19446 19447 19448 19449 19450 19451 19452 19453 19454 19455 19456 19457 19458 19459 19460 19461 19462 19463 19464 19465 19466 19467 19468 19469 19470 19471 19472 19473 19474 19475 19476 19477 19478 19479 19480 19481 19482 19483 19484 19485 19486 19487 19488 19489 19490 19491 19492 19493 19494 19495 19496 19497 19498 19499 19500 19501 19502 19503 19504 19505 19506 19507 19508 19509 19510 19511 19512 19513 19514 19515 19516 19517 19518 19519 19520 19521 19522 19523 19524 19525 19526 19527 19528 19529 19530 19531 19532 19533 19534 19535 19536 19537 19538 19539 19540 19541 19542 19543 19544 19545 19546 19547 19548 19549 19550 19551 19552 19553 19554 19555 19556 19557 19558 19559 19560 19561 19562 19563 19564 19565 19566 19567 19568 19569 19570 19571 19572 19573 19574 19575 19576 19577 19578 19579 19580 19581 19582 19583 19584 19585 19586 19587 19588 19589 19590 19591 19592 19593 19594 19595 19596 19597 19598 19599 19600 19601 19602 19603 19604 19605 19606 19607 19608 19609 19610 19611 19612 19613 19614 19615 19616 19617 19618 19619 19620 19621 19622 19623 19624 19625 19626 19627 19628 19629 19630 19631 19632 19633 19634 19635 19636 19637 19638 19639 19640 19641 19642 19643 19644 19645 19646 19647 19648 19649 19650 19651 19652 19653 19654 19655 19656 19657 19658 19659 19660 19661 19662 19663 19664 19665 19666 19667 19668 19669 19670 19671 19672 19673 19674 19675 19676 19677 19678 19679 19680 19681 19682 19683 19684 19685 19686 19687 19688 19689 19690 19691 19692 19693 19694 19695 19696 19697 19698 19699 19700 19701 19702 19703 19704 19705 19706 19707 19708 19709 19710 19711 19712 19713 19714 19715 19716 19717 19718 19719 19720 19721 19722 19723 19724 19725 19726 19727 19728 19729 19730 19731 19732 19733 19734 19735 19736 19737 19738 19739 19740 19741 19742 19743 19744 19745 19746 19747 19748 19749 19750 19751 19752 19753 19754 19755 19756 19757 19758 19759 19760 19761 19762 19763 19764 19765 19766 19767 19768 19769 19770 19771 19772 19773 19774 19775 19776 19777 19778 19779 19780 19781 19782 19783 19784 19785 19786 19787 19788 19789 19790 19791 19792 19793 19794 19795 19796 19797 19798 19799 19800 19801 19802 19803 19804 19805 19806 19807 19808 19809 19810 19811 19812 19813 19814 19815 19816 19817 19818 19819 19820 19821 19822 19823 19824 19825 19826 19827 19828 19829 19830 19831 19832 19833 19834 19835 19836 19837 19838 19839 19840 19841 19842 19843 19844 19845 19846 19847 19848 19849 19850 19851 19852 19853 19854 19855 19856 19857 19858 19859 19860 19861 19862 19863 19864 19865 19866 19867 19868 19869 19870 19871 19872 19873 19874 19875 19876 19877 19878 19879 19880 19881 19882 19883 19884 19885 19886 19887 19888 19889 19890 19891 19892 19893 19894 19895 19896 19897 19898 19899 19900 19901 19902 19903 19904 19905 19906 19907 19908 19909 19910 19911 19912 19913 19914 19915 19916 19917 19918 19919 19920 19921 19922 19923 19924 19925 19926 19927 19928 19929 19930 19931 19932 19933 19934 19935 19936 19937 19938 19939 19940 19941 19942 19943 19944 19945 19946 19947 19948 19949 19950 19951 19952 19953 19954 19955 19956 19957 19958 19959 19960 19961 19962 19963 19964 19965 19966 19967 19968 19969 19970 19971 19972 19973 19974 19975 19976 19977 19978 19979 19980 19981 19982 19983 19984 19985 19986 19987 19988 19989 19990 19991 19992 19993 19994 19995 19996 19997 19998 19999 20000 20001 20002 20003 20004 20005 20006 20007 20008 20009 20010 20011 20012 20013 20014 20015 20016 20017 20018 20019 20020 20021 20022 20023 20024 20025 20026 20027 20028 20029 20030 20031 20032 20033 20034 20035 20036 20037 20038 20039 20040 20041 20042 20043 20044 20045 20046 20047 20048 20049 20050 20051 20052 20053 20054 20055 20056 20057 20058 20059 20060 20061 20062 20063 20064 20065 20066 20067 20068 20069 20070 20071 20072 20073 20074 20075 20076 20077 20078 20079 20080 20081 20082 20083 20084 20085 20086 20087 20088 20089 20090 20091 20092 20093 20094 20095 20096 20097 20098 20099 20100 20101 20102 20103 20104 20105 20106 20107 20108 20109 20110 20111 20112 20113 20114 20115 20116 20117 20118 20119 20120 20121 20122 20123 20124 20125 20126 20127 20128 20129 20130 20131 20132 20133 20134 20135 20136 20137 20138 20139 20140 20141 20142 20143 20144 20145 20146 20147 20148 20149 20150 20151 20152 20153 20154 20155 20156 20157 20158 20159 20160 20161 20162 20163 20164 20165 20166 20167 20168 20169 20170 20171 20172 20173 20174 20175 20176 20177 20178 20179 20180 20181 20182 20183 20184 20185 20186 20187 20188 20189 20190 20191 20192 20193 20194 20195 20196 20197 20198 20199 20200 20201 20202 20203 20204 20205 20206 20207 20208 20209 20210 20211 20212 20213 20214 20215 20216 20217 20218 20219 20220 20221 20222 20223 20224 20225 20226 20227 20228 20229 20230 20231 20232 20233 20234 20235 20236 20237 20238 20239 20240 20241 20242 20243 20244 20245 20246 20247 20248 20249 20250 20251 20252 20253 20254 20255 20256 20257 20258 20259 20260 20261 20262 20263 20264 20265 20266 20267 20268 20269 20270 20271 20272 20273 20274 20275 20276 20277 20278 20279 20280 20281 20282 20283 20284 20285 20286 20287 20288 20289 20290 20291 20292 20293 20294 20295 20296 20297 20298 20299 20300 20301 20302 20303 20304 20305 20306 20307 20308 20309 20310 20311 20312 20313 20314 20315 20316 20317 20318 20319 20320 20321 20322 20323 20324 20325 20326 20327 20328 20329 20330 20331 20332 20333 20334 20335 20336 20337 20338 20339 20340 20341 20342 20343 20344 20345 20346 20347 20348 20349 20350 20351 20352 20353 20354 20355 20356 20357 20358 20359 20360 20361 20362 20363 20364 20365 20366 20367 20368 20369 20370 20371 20372 20373 20374 20375 20376 20377 20378 20379 20380 20381 20382 20383 20384 20385 20386 20387 20388 20389 20390 20391 20392 20393 20394 20395 20396 20397 20398 20399 20400 20401 20402 20403 20404 20405 20406 20407 20408 20409 20410 20411 20412 20413 20414 20415 20416 20417 20418 20419 20420 20421 20422 20423 20424 20425 20426 20427 20428 20429 20430 20431 20432 20433 20434 20435 20436 20437 20438 20439 20440 20441 20442 20443 20444 20445 20446 20447 20448 20449 20450 20451 20452 20453 20454 20455 20456 20457 20458 20459 20460 20461 20462 20463 20464 20465 20466 20467 20468 20469 20470 20471 20472 20473 20474 20475 20476 20477 20478 20479 20480 20481 20482 20483 20484 20485 20486 20487 20488 20489 20490 20491 20492 20493 20494 20495 20496 20497 20498 20499 20500 20501 20502 20503 20504 20505 20506 20507 20508 20509 20510 20511 20512 20513 20514 20515 20516 20517 20518 20519 20520 20521 20522 20523 20524 20525 20526 20527 20528 20529 20530 20531 20532 20533 20534 20535 20536 20537 20538 20539 20540 20541 20542 20543 20544 20545 20546 20547 20548 20549 20550 20551 20552 20553 20554 20555 20556 20557 20558 20559 20560 20561 20562 20563 20564 20565 20566 20567 20568 20569 20570 20571 20572 20573 20574 20575 20576 20577 20578 20579 20580 20581 20582 20583 20584 20585 20586 20587 20588 20589 20590 20591 20592 20593 20594 20595 20596 20597 20598 20599 20600 20601 20602 20603 20604 20605 20606 20607 20608 20609 20610 20611 20612 20613 20614 20615 20616 20617 20618 20619 20620 20621 20622 20623 20624 20625 20626 20627 20628 20629 20630 20631 20632 20633 20634 20635 20636 20637 20638 20639 20640 20641 20642 20643 20644 20645 20646 20647 20648 20649 20650 20651 20652 20653 20654 20655 20656 20657 20658 20659 20660 20661 20662 20663 20664 20665 20666 20667 20668 20669 20670 20671 20672 20673 20674 20675 20676 20677 20678 20679 20680 20681 20682 20683 20684 20685 20686 20687 20688 20689 20690 20691 20692 20693 20694 20695 20696 20697 20698 20699 20700 20701 20702 20703 20704 20705 20706 20707 20708 20709 20710 20711 20712 20713 20714 20715 20716 20717 20718 20719 20720 20721 20722 20723 20724 20725 20726 20727 20728 20729 20730 20731 20732 20733 20734 20735 20736 20737 20738 20739 20740 20741 20742 20743 20744 20745 20746 20747 20748 20749 20750 20751 20752 20753 20754 20755 20756 20757 20758 20759 20760 20761 20762 20763 20764 20765 20766 20767 20768 20769 20770 20771 20772 20773 20774 20775 20776 20777 20778 20779 20780 20781 20782 20783 20784 20785 20786 20787 20788 20789 20790 20791 20792 20793 20794 20795 20796 20797 20798 20799 20800 20801 20802 20803 20804 20805 20806 20807 20808 20809 20810 20811 20812 20813 20814 20815 20816 20817 20818 20819 20820 20821 20822 20823 20824 20825 20826 20827 20828 20829 20830 20831 20832 20833 20834 20835 20836 20837 20838 20839 20840 20841 20842 20843 20844 20845 20846 20847 20848 20849 20850 20851 20852 20853 20854 20855 20856 20857 20858 20859 20860 20861 20862 20863 20864 20865 20866 20867 20868 20869 20870 20871 20872 20873 20874 20875 20876 20877 20878 20879 20880 20881 20882 20883 20884 20885 20886 20887 20888 20889 20890 20891 20892 20893 20894 20895 20896 20897 20898 20899 20900 20901 20902 20903 20904 20905 20906 20907 20908 20909 20910 20911 20912 20913 20914 20915 20916 20917 20918 20919 20920 20921 20922 20923 20924 20925 20926 20927 20928 20929 20930 20931 20932 20933 20934 20935 20936 20937 20938 20939 20940 20941 20942 20943 20944 20945 20946 20947 20948 20949 20950 20951 20952 20953 20954 20955 20956 20957 20958 20959 20960 20961 20962 20963 20964 20965 20966 20967 20968 20969 20970 20971 20972 20973 20974 20975 20976 20977 20978 20979 20980 20981 20982 20983 20984 20985 20986 20987 20988 20989 20990 20991 20992 20993 20994 20995 20996 20997 20998 20999 21000 21001 21002 21003 21004 21005 21006 21007 21008 21009 21010 21011 21012 21013 21014 21015 21016 21017 21018 21019 21020 21021 21022 21023 21024 21025 21026 21027 21028 21029 21030 21031 21032 21033 21034 21035 21036 21037 21038 21039 21040 21041 21042 21043 21044 21045 21046 21047 21048 21049 21050 21051 21052 21053 21054 21055 21056 21057 21058 21059 21060 21061 21062 21063 21064 21065 21066 21067 21068 21069 21070 21071 21072 21073 21074 21075 21076 21077 21078 21079 21080 21081 21082 21083 21084 21085 21086 21087 21088 21089 21090 21091 21092 21093 21094 21095 21096 21097 21098 21099 21100 21101 21102 21103 21104 21105 21106 21107 21108 21109 21110 21111 21112 21113 21114 21115 21116 21117 21118 21119 21120 21121 21122 21123 21124 21125 21126 21127 21128 21129 21130 21131 21132 21133 21134 21135 21136 21137 21138 21139 21140 21141 21142 21143 21144 21145 21146 21147 21148 21149 21150 21151 21152 21153 21154 21155 21156 21157 21158 21159 21160 21161 21162 21163 21164 21165 21166 21167 21168 21169 21170 21171 21172 21173 21174 21175 21176 21177 21178 21179 21180 21181 21182 21183 21184 21185 21186 21187 21188 21189 21190 21191 21192 21193 21194 21195 21196 21197 21198 21199 21200 21201 21202 21203 21204 21205 21206 21207 21208 21209 21210 21211 21212 21213 21214 21215 21216 21217 21218 21219 21220 21221 21222 21223 21224 21225 21226 21227 21228 21229 21230 21231 21232 21233 21234 21235 21236 21237 21238 21239 21240 21241 21242 21243 21244 21245 21246 21247 21248 21249 21250 21251 21252 21253 21254 21255 21256 21257 21258 21259 21260 21261 21262 21263 21264 21265 21266 21267 21268 21269 21270 21271 21272 21273 21274 21275 21276 21277 21278 21279 21280 21281 21282 21283 21284 21285 21286 21287 21288 21289 21290 21291 21292 21293 21294 21295 21296 21297 21298 21299 21300 21301 21302 21303 21304 21305 21306 21307 21308 21309 21310 21311 21312 21313 21314 21315 21316 21317 21318 21319 21320 21321 21322 21323 21324 21325 21326 21327 21328 21329 21330 21331 21332 21333 21334 21335 21336 21337 21338 21339 21340 21341 21342 21343 21344 21345 21346 21347 21348 21349 21350 21351 21352 21353 21354 21355 21356 21357 21358 21359 21360 21361 21362 21363 21364 21365 21366 21367 21368 21369 21370 21371 21372 21373 21374 21375 21376 21377 21378 21379 21380 21381 21382 21383 21384 21385 21386 21387 21388 21389 21390 21391 21392 21393 21394 21395 21396 21397 21398 21399 21400 21401 21402 21403 21404 21405 21406 21407 21408 21409 21410 21411 21412 21413 21414 21415 21416 21417 21418 21419 21420 21421 21422 21423 21424 21425 21426 21427 21428 21429 21430 21431 21432 21433 21434 21435 21436 21437 21438 21439 21440 21441 21442 21443 21444 21445 21446 21447 21448 21449 21450 21451 21452 21453 21454 21455 21456 21457 21458 21459 21460 21461 21462 21463 21464 21465 21466 21467 21468 21469 21470 21471 21472 21473 21474 21475 21476 21477 21478 21479 21480 21481 21482 21483 21484 21485 21486 21487 21488 21489 21490 21491 21492 21493 21494 21495 21496 21497 21498 21499 21500 21501 21502 21503 21504 21505 21506 21507 21508 21509 21510 21511 21512 21513 21514 21515 21516 21517 21518 21519 21520 21521 21522 21523 21524 21525 21526 21527 21528 21529 21530 21531 21532 21533 21534 21535 21536 21537 21538 21539 21540 21541 21542 21543 21544 21545 21546 21547 21548 21549 21550 21551 21552 21553 21554 21555 21556 21557 21558 21559 21560 21561 21562 21563 21564 21565 21566 21567 21568 21569 21570 21571 21572 21573 21574 21575 21576 21577 21578 21579 21580 21581 21582 21583 21584 21585 21586 21587 21588 21589 21590 21591 21592 21593 21594 21595 21596 21597 21598 21599 21600 21601 21602 21603 21604 21605 21606 21607 21608 21609 21610 21611 21612 21613 21614 21615 21616 21617 21618 21619 21620 21621 21622 21623 21624 21625 21626 21627 21628 21629 21630 21631 21632 21633 21634 21635 21636 21637 21638 21639 21640 21641 21642 21643 21644 21645 21646 21647 21648 21649 21650 21651 21652 21653 21654 21655 21656 21657 21658 21659 21660 21661 21662 21663 21664 21665 21666 21667 21668 21669 21670 21671 21672 21673 21674 21675 21676 21677 21678 21679 21680 21681 21682 21683 21684 21685 21686 21687 21688 21689 21690 21691 21692 21693 21694 21695 21696 21697 21698 21699 21700 21701 21702 21703 21704 21705 21706 21707 21708 21709 21710 21711 21712 21713 21714 21715 21716 21717 21718 21719 21720 21721 21722 21723 21724 21725 21726 21727 21728 21729 21730 21731 21732 21733 21734 21735 21736 21737 21738 21739 21740 21741 21742 21743 21744 21745 21746 21747 21748 21749 21750 21751 21752 21753 21754 21755 21756 21757 21758 21759 21760 21761 21762 21763 21764 21765 21766 21767 21768 21769 21770 21771 21772 21773 21774 21775 21776 21777 21778 21779 21780 21781 21782 21783 21784 21785 21786 21787 21788 21789 21790 21791 21792 21793 21794 21795 21796 21797 21798 21799 21800 21801 21802 21803 21804 21805 21806 21807 21808 21809 21810 21811 21812 21813 21814 21815 21816 21817 21818 21819 21820 21821 21822 21823 21824 21825 21826 21827 21828 21829 21830 21831 21832 21833 21834 21835 21836 21837 21838 21839 21840 21841 21842 21843 21844 21845 21846 21847 21848 21849 21850 21851 21852 21853 21854 21855 21856 21857 21858 21859 21860 21861 21862 21863 21864 21865 21866 21867 21868 21869 21870 21871 21872 21873 21874 21875 21876 21877 21878 21879 21880 21881 21882 21883 21884 21885 21886 21887 21888 21889 21890 21891 21892 21893 21894 21895 21896 21897 21898 21899 21900 21901 21902 21903 21904 21905 21906 21907 21908 21909 21910 21911 21912 21913 21914 21915 21916 21917 21918 21919 21920 21921 21922 21923 21924 21925 21926 21927 21928 21929 21930 21931 21932 21933 21934 21935 21936 21937 21938 21939 21940 21941 21942 21943 21944 21945 21946 21947 21948 21949 21950 21951 21952 21953 21954 21955 21956 21957 21958 21959 21960 21961 21962 21963 21964 21965 21966 21967 21968 21969 21970 21971 21972 21973 21974 21975 21976 21977 21978 21979 21980 21981 21982 21983 21984 21985 21986 21987 21988 21989 21990 21991 21992 21993 21994 21995 21996 21997 21998 21999 22000 22001 22002 22003 22004 22005 22006 22007 22008 22009 22010 22011 22012 22013 22014 22015 22016 22017 22018 22019 22020 22021 22022 22023 22024 22025 22026 22027 22028 22029 22030 22031 22032 22033 22034 22035 22036 22037 22038 22039 22040 22041 22042 22043 22044 22045 22046 22047 22048 22049 22050 22051 22052 22053 22054 22055 22056 22057 22058 22059 22060 22061 22062 22063 22064 22065 22066 22067 22068 22069 22070 22071 22072 22073 22074 22075 22076 22077 22078 22079 22080 22081 22082 22083 22084 22085 22086 22087 22088 22089 22090 22091 22092 22093 22094 22095 22096 22097 22098 22099 22100 22101 22102 22103 22104 22105 22106 22107 22108 22109 22110 22111 22112 22113 22114 22115 22116 22117 22118 22119 22120 22121 22122 22123 22124 22125 22126 22127 22128 22129 22130 22131 22132 22133 22134 22135 22136 22137 22138 22139 22140 22141 22142 22143 22144 22145 22146 22147 22148 22149 22150 22151 22152 22153 22154 22155 22156 22157 22158 22159 22160 22161 22162 22163 22164 22165 22166 22167 22168 22169 22170 22171 22172 22173 22174 22175 22176 22177 22178 22179 22180 22181 22182 22183 22184 22185 22186 22187 22188 22189 22190 22191 22192 22193 22194 22195 22196 22197 22198 22199 22200 22201 22202 22203 22204 22205 22206 22207 22208 22209 22210 22211 22212 22213 22214 22215 22216 22217 22218 22219 22220 22221 22222 22223 22224 22225 22226 22227 22228 22229 22230 22231 22232 22233 22234 22235 22236 22237 22238 22239 22240 22241 22242 22243 22244 22245 22246 22247 22248 22249 22250 22251 22252 22253 22254 22255 22256 22257 22258 22259 22260 22261 22262 22263 22264 22265 22266 22267 22268 22269 22270 22271 22272 22273 22274 22275 22276 22277 22278 22279 22280 22281 22282 22283 22284 22285 22286 22287 22288 22289 22290 22291 22292 22293 22294 22295 22296 22297 22298 22299 22300 22301 22302 22303 22304 22305 22306 22307 22308 22309 22310 22311 22312 22313 22314 22315 22316 22317 22318 22319 22320 22321 22322 22323 22324 22325 22326 22327 22328 22329 22330 22331 22332 22333 22334 22335 22336 22337 22338 22339 22340 22341 22342 22343 22344 22345 22346 22347 22348 22349 22350 22351 22352 22353 22354 22355 22356 22357 22358 22359 22360 22361 22362 22363 22364 22365 22366 22367 22368 22369 22370 22371 22372 22373 22374 22375 22376 22377 22378 22379 22380 22381 22382 22383 22384 22385 22386 22387 22388 22389 22390 22391 22392 22393 22394 22395 22396 22397 22398 22399 22400 22401 22402 22403 22404 22405 22406 22407 22408 22409 22410 22411 22412 22413 22414 22415 22416 22417 22418 22419 22420 22421 22422 22423 22424 22425 22426 22427 22428 22429 22430 22431 22432 22433 22434 22435 22436 22437 22438 22439 22440 22441 22442 22443 22444 22445 22446 22447 22448 22449 22450 22451 22452 22453 22454 22455 22456 22457 22458 22459 22460 22461 22462 22463 22464 22465 22466 22467 22468 22469 22470 22471 22472 22473 22474 22475 22476 22477 22478 22479 22480 22481 22482 22483 22484 22485 22486 22487 22488 22489 22490 22491 22492 22493 22494 22495 22496 22497 22498 22499 22500 22501 22502 22503 22504 22505 22506 22507 22508 22509 22510 22511 22512 22513 22514 22515 22516 22517 22518 22519 22520 22521 22522 22523 22524 22525 22526 22527 22528 22529 22530 22531 22532 22533 22534 22535 22536 22537 22538 22539 22540 22541 22542 22543 22544 22545 22546 22547 22548 22549 22550 22551 22552 22553 22554 22555 22556 22557 22558 22559 22560 22561 22562 22563 22564 22565 22566 22567 22568 22569 22570 22571 22572 22573 22574 22575 22576 22577 22578 22579 22580 22581 22582 22583 22584 22585 22586 22587 22588 22589 22590 22591 22592 22593 22594 22595 22596 22597 22598 22599 22600 22601 22602 22603 22604 22605 22606 22607 22608 22609 22610 22611 22612 22613 22614 22615 22616 22617 22618 22619 22620 22621 22622 22623 22624 22625 22626 22627 22628 22629 22630 22631 22632 22633 22634 22635 22636 22637 22638 22639 22640 22641 22642 22643 22644 22645 22646 22647 22648 22649 22650 22651 22652 22653 22654 22655 22656 22657 22658 22659 22660 22661 22662 22663 22664 22665 22666 22667 22668 22669 22670 22671 22672 22673 22674 22675 22676 22677 22678 22679 22680 22681 22682 22683 22684 22685 22686 22687 22688 22689 22690 22691 22692 22693 22694 22695 22696 22697 22698 22699 22700 22701 22702 22703 22704 22705 22706 22707 22708 22709 22710 22711 22712 22713 22714 22715 22716 22717 22718 22719 22720 22721 22722 22723 22724 22725 22726 22727 22728 22729 22730 22731 22732 22733 22734 22735 22736 22737 22738 22739 22740 22741 22742 22743 22744 22745 22746 22747 22748 22749 22750 22751 22752 22753 22754 22755 22756 22757 22758 22759 22760 22761 22762 22763 22764 22765 22766 22767 22768 22769 22770 22771 22772 22773 22774 22775 22776 22777 22778 22779 22780 22781 22782 22783 22784 22785 22786 22787 22788 22789 22790 22791 22792 22793 22794 22795 22796 22797 22798 22799 22800 22801 22802 22803 22804 22805 22806 22807 22808 22809 22810 22811 22812 22813 22814 22815 22816 22817 22818 22819 22820 22821 22822 22823 22824 22825 22826 22827 22828 22829 22830 22831 22832 22833 22834 22835 22836 22837 22838 22839 22840 22841 22842 22843 22844 22845 22846 22847 22848 22849 22850 22851 22852 22853 22854 22855 22856 22857 22858 22859 22860 22861 22862 22863 22864 22865 22866 22867 22868 22869 22870 22871 22872 22873 22874 22875 22876 22877 22878 22879 22880 22881 22882 22883 22884 22885 22886 22887 22888 22889 22890 22891 22892 22893 22894 22895 22896 22897 22898 22899 22900 22901 22902 22903 22904 22905 22906 22907 22908 22909 22910 22911 22912 22913 22914 22915 22916 22917 22918 22919 22920 22921 22922 22923 22924 22925 22926 22927 22928 22929 22930 22931 22932 22933 22934 22935 22936 22937 22938 22939 22940 22941 22942 22943 22944 22945 22946 22947 22948 22949 22950 22951 22952 22953 22954 22955 22956 22957 22958 22959 22960 22961 22962 22963 22964 22965 22966 22967 22968 22969 22970 22971 22972 22973 22974 22975 22976 22977 22978 22979 22980 22981 22982 22983 22984 22985 22986 22987 22988 22989 22990 22991 22992 22993 22994 22995 22996 22997 22998 22999 23000 23001 23002 23003 23004 23005 23006 23007 23008 23009 23010 23011 23012 23013 23014 23015 23016 23017 23018 23019 23020 23021 23022 23023 23024 23025 23026 23027 23028 23029 23030 23031 23032 23033 23034 23035 23036 23037 23038 23039 23040 23041 23042 23043 23044 23045 23046 23047 23048 23049 23050 23051 23052 23053 23054 23055 23056 23057 23058 23059 23060 23061 23062 23063 23064 23065 23066 23067 23068 23069 23070 23071 23072 23073 23074 23075 23076 23077 23078 23079 23080 23081 23082 23083 23084 23085 23086 23087 23088 23089 23090 23091 23092 23093 23094 23095 23096 23097 23098 23099 23100 23101 23102 23103 23104 23105 23106 23107 23108 23109 23110 23111 23112 23113 23114 23115 23116 23117 23118 23119 23120 23121 23122 23123 23124 23125 23126 23127 23128 23129 23130 23131 23132 23133 23134 23135 23136 23137 23138 23139 23140 23141 23142 23143 23144 23145 23146 23147 23148 23149 23150 23151 23152 23153 23154 23155 23156 23157 23158 23159 23160 23161 23162 23163 23164 23165 23166 23167 23168 23169 23170 23171 23172 23173 23174 23175 23176 23177 23178 23179 23180 23181 23182 23183 23184 23185 23186 23187 23188 23189 23190 23191 23192 23193 23194 23195 23196 23197 23198 23199 23200 23201 23202 23203 23204 23205 23206 23207 23208 23209 23210 23211 23212 23213 23214 23215 23216 23217 23218 23219 23220 23221 23222 23223 23224 23225 23226 23227 23228 23229 23230 23231 23232 23233 23234 23235 23236 23237 23238 23239 23240 23241 23242 23243 23244 23245 23246 23247 23248 23249 23250 23251 23252 23253 23254 23255 23256 23257 23258 23259 23260 23261 23262 23263 23264 23265 23266 23267 23268 23269 23270 23271 23272 23273 23274 23275 23276 23277 23278 23279 23280 23281 23282 23283 23284 23285 23286 23287 23288 23289 23290 23291 23292 23293 23294 23295 23296 23297 23298 23299 23300 23301 23302 23303 23304 23305 23306 23307 23308 23309 23310 23311 23312 23313 23314 23315 23316 23317 23318 23319 23320 23321 23322 23323 23324 23325 23326 23327 23328 23329 23330 23331 23332 23333 23334 23335 23336 23337 23338 23339 23340 23341 23342 23343 23344 23345 23346 23347 23348 23349 23350 23351 23352 23353 23354 23355 23356 23357 23358 23359 23360 23361 23362 23363 23364 23365 23366 23367 23368 23369 23370 23371 23372 23373 23374 23375 23376 23377 23378 23379 23380 23381 23382 23383 23384 23385 23386 23387 23388 23389 23390 23391 23392 23393 23394 23395 23396 23397 23398 23399 23400 23401 23402 23403 23404 23405 23406 23407 23408 23409 23410 23411 23412 23413 23414 23415 23416 23417 23418 23419 23420 23421 23422 23423 23424 23425 23426 23427 23428 23429 23430 23431 23432 23433 23434 23435 23436 23437 23438 23439 23440 23441 23442 23443 23444 23445 23446 23447 23448 23449 23450 23451 23452 23453 23454 23455 23456 23457 23458 23459 23460 23461 23462 23463 23464 23465 23466 23467 23468 23469 23470 23471 23472 23473 23474 23475 23476 23477 23478 23479 23480 23481 23482 23483 23484 23485 23486 23487 23488 23489 23490 23491 23492 23493 23494 23495 23496 23497 23498 23499 23500 23501 23502 23503 23504 23505 23506 23507 23508 23509 23510 23511 23512 23513 23514 23515 23516 23517 23518 23519 23520 23521 23522 23523 23524 23525 23526 23527 23528 23529 23530 23531 23532 23533 23534 23535 23536 23537 23538 23539 23540 23541 23542 23543 23544 23545 23546 23547 23548 23549 23550 23551 23552 23553 23554 23555 23556 23557 23558 23559 23560 23561 23562 23563 23564 23565 23566 23567 23568 23569 23570 23571 23572 23573 23574 23575 23576 23577 23578 23579 23580 23581 23582 23583 23584 23585 23586 23587 23588 23589 23590 23591 23592 23593 23594 23595 23596 23597 23598 23599 23600 23601 23602 23603 23604 23605 23606 23607 23608 23609 23610 23611 23612 23613 23614 23615 23616 23617 23618 23619 23620 23621 23622 23623 23624 23625 23626 23627 23628 23629 23630 23631 23632 23633 23634 23635 23636 23637 23638 23639 23640 23641 23642 23643 23644 23645 23646 23647 23648 23649 23650 23651 23652 23653 23654 23655 23656 23657 23658 23659 23660 23661 23662 23663 23664 23665 23666 23667 23668 23669 23670 23671 23672 23673 23674 23675 23676 23677 23678 23679 23680 23681 23682 23683 23684 23685 23686 23687 23688 23689 23690 23691 23692 23693 23694 23695 23696 23697 23698 23699 23700 23701 23702 23703 23704 23705 23706 23707 23708 23709 23710 23711 23712 23713 23714 23715 23716 23717 23718 23719 23720 23721 23722 23723 23724 23725 23726 23727 23728 23729 23730 23731 23732 23733 23734 23735 23736 23737 23738 23739 23740 23741 23742 23743 23744 23745 23746 23747 23748 23749 23750 23751 23752 23753 23754 23755 23756 23757 23758 23759 23760 23761 23762 23763 23764 23765 23766 23767 23768 23769 23770 23771 23772 23773 23774 23775 23776 23777 23778 23779 23780 23781 23782 23783 23784 23785 23786 23787 23788 23789 23790 23791 23792 23793 23794 23795 23796 23797 23798 23799 23800 23801 23802 23803 23804 23805 23806 23807 23808 23809 23810 23811 23812 23813 23814 23815 23816 23817 23818 23819 23820 23821 23822 23823 23824 23825 23826 23827 23828 23829 23830 23831 23832 23833 23834 23835 23836 23837 23838 23839 23840 23841 23842 23843 23844 23845 23846 23847 23848 23849 23850 23851 23852 23853 23854 23855 23856 23857 23858 23859 23860 23861 23862 23863 23864 23865 23866 23867 23868 23869 23870 23871 23872 23873 23874 23875 23876 23877 23878 23879 23880 23881 23882 23883 23884 23885 23886 23887 23888 23889 23890 23891 23892 23893 23894 23895 23896 23897 23898 23899 23900 23901 23902 23903 23904 23905 23906 23907 23908 23909 23910 23911 23912 23913 23914 23915 23916 23917 23918 23919 23920 23921 23922 23923 23924 23925 23926 23927 23928 23929 23930 23931 23932 23933 23934 23935 23936 23937 23938 23939 23940 23941 23942 23943 23944 23945 23946 23947 23948 23949 23950 23951 23952 23953 23954 23955 23956 23957 23958 23959 23960 23961 23962 23963 23964 23965 23966 23967 23968 23969 23970 23971 23972 23973 23974 23975 23976 23977 23978 23979 23980 23981 23982 23983 23984 23985 23986 23987 23988 23989 23990 23991 23992 23993 23994 23995 23996 23997 23998 23999 24000 24001 24002 24003 24004 24005 24006 24007 24008 24009 24010 24011 24012 24013 24014 24015 24016 24017 24018 24019 24020 24021 24022 24023 24024 24025 24026 24027 24028 24029 24030 24031 24032 24033 24034 24035 24036 24037 24038 24039 24040 24041 24042 24043 24044 24045 24046 24047 24048 24049 24050 24051 24052 24053 24054 24055 24056 24057 24058 24059 24060 24061 24062 24063 24064 24065 24066 24067 24068 24069 24070 24071 24072 24073 24074 24075 24076 24077 24078 24079 24080 24081 24082 24083 24084 24085 24086 24087 24088 24089 24090 24091 24092 24093 24094 24095 24096 24097 24098 24099 24100 24101 24102 24103 24104 24105 24106 24107 24108 24109 24110 24111 24112 24113 24114 24115 24116 24117 24118 24119 24120 24121 24122 24123 24124 24125 24126 24127 24128 24129 24130 24131 24132 24133 24134 24135 24136 24137 24138 24139 24140 24141 24142 24143 24144 24145 24146 24147 24148 24149 24150 24151 24152 24153 24154 24155 24156 24157 24158 24159 24160 24161 24162 24163 24164 24165 24166 24167 24168 24169 24170 24171 24172 24173 24174 24175 24176 24177 24178 24179 24180 24181 24182 24183 24184 24185 24186 24187 24188 24189 24190 24191 24192 24193 24194 24195 24196 24197 24198 24199 24200 24201 24202 24203 24204 24205 24206 24207 24208 24209 24210 24211 24212 24213 24214 24215 24216 24217 24218 24219 24220 24221 24222 24223 24224 24225 24226 24227 24228 24229 24230 24231 24232 24233 24234 24235 24236 24237 24238 24239 24240 24241 24242 24243 24244 24245 24246 24247 24248 24249 24250 24251 24252 24253 24254 24255 24256 24257 24258 24259 24260 24261 24262 24263 24264 24265 24266 24267 24268 24269 24270 24271 24272 24273 24274 24275 24276 24277 24278 24279 24280 24281 24282 24283 24284 24285 24286 24287 24288 24289 24290 24291 24292 24293 24294 24295 24296 24297 24298 24299 24300 24301 24302 24303 24304 24305 24306 24307 24308 24309 24310 24311 24312 24313 24314 24315 24316 24317 24318 24319 24320 24321 24322 24323 24324 24325 24326 24327 24328 24329 24330 24331 24332 24333 24334 24335 24336 24337 24338 24339 24340 24341 24342 24343 24344 24345 24346 24347 24348 24349 24350 24351 24352 24353 24354 24355 24356 24357 24358 24359 24360 24361 24362 24363 24364 24365 24366 24367 24368 24369 24370 24371 24372 24373 24374 24375 24376 24377 24378 24379 24380 24381 24382 24383 24384 24385 24386 24387 24388 24389 24390 24391 24392 24393 24394 24395 24396 24397 24398 24399 24400 24401 24402 24403 24404 24405 24406 24407 24408 24409 24410 24411 24412 24413 24414 24415 24416 24417 24418 24419 24420 24421 24422 24423 24424 24425 24426 24427 24428 24429 24430 24431 24432 24433 24434 24435 24436 24437 24438 24439 24440 24441 24442 24443 24444 24445 24446 24447 24448 24449 24450 24451 24452 24453 24454 24455 24456 24457 24458 24459 24460 24461 24462 24463 24464 24465 24466 24467 24468 24469 24470 24471 24472 24473 24474 24475 24476 24477 24478 24479 24480 24481 24482 24483 24484 24485 24486 24487 24488 24489 24490 24491 24492 24493 24494 24495 24496 24497 24498 24499 24500 24501 24502 24503 24504 24505 24506 24507 24508 24509 24510 24511 24512 24513 24514 24515 24516 24517 24518 24519 24520 24521 24522 24523 24524 24525 24526 24527 24528 24529 24530 24531 24532 24533 24534 24535 24536 24537 24538 24539 24540 24541 24542 24543 24544 24545 24546 24547 24548 24549 24550 24551 24552 24553 24554 24555 24556 24557 24558 24559 24560 24561 24562 24563 24564 24565 24566 24567 24568 24569 24570 24571 24572 24573 24574 24575 24576 24577 24578 24579 24580 24581 24582 24583 24584 24585 24586 24587 24588 24589 24590 24591 24592 24593 24594 24595 24596 24597 24598 24599 24600 24601 24602 24603 24604 24605 24606 24607 24608 24609 24610 24611 24612 24613 24614 24615 24616 24617 24618 24619 24620 24621 24622 24623 24624 24625 24626 24627 24628 24629 24630 24631 24632 24633 24634 24635 24636 24637 24638 24639 24640 24641 24642 24643 24644 24645 24646 24647 24648 24649 24650 24651 24652 24653 24654 24655 24656 24657 24658 24659 24660 24661 24662 24663 24664 24665 24666 24667 24668 24669 24670 24671 24672 24673 24674 24675 24676 24677 24678 24679 24680 24681 24682 24683 24684 24685 24686 24687 24688 24689 24690 24691 24692 24693 24694 24695 24696 24697 24698 24699 24700 24701 24702 24703 24704 24705 24706 24707 24708 24709 24710 24711 24712 24713 24714 24715 24716 24717 24718 24719 24720 24721 24722 24723 24724 24725 24726 24727 24728 24729 24730 24731 24732 24733 24734 24735 24736 24737 24738 24739 24740 24741 24742 24743 24744 24745 24746 24747 24748 24749 24750 24751 24752 24753 24754 24755 24756 24757 24758 24759 24760 24761 24762 24763 24764 24765 24766 24767 24768 24769 24770 24771 24772 24773 24774 24775 24776 24777 24778 24779 24780 24781 24782 24783 24784 24785 24786 24787 24788 24789 24790 24791 24792 24793 24794 24795 24796 24797 24798 24799 24800 24801 24802 24803 24804 24805 24806 24807 24808 24809 24810 24811 24812 24813 24814 24815 24816 24817 24818 24819 24820 24821 24822 24823 24824 24825 24826 24827 24828 24829 24830 24831 24832 24833 24834 24835 24836 24837 24838 24839 24840 24841 24842 24843 24844 24845 24846 24847 24848 24849 24850 24851 24852 24853 24854 24855 24856 24857 24858 24859 24860 24861 24862 24863 24864 24865 24866 24867 24868 24869 24870 24871 24872 24873 24874 24875 24876 24877 24878 24879 24880 24881 24882 24883 24884 24885 24886 24887 24888 24889 24890 24891 24892 24893 24894 24895 24896 24897 24898 24899 24900 24901 24902 24903 24904 24905 24906 24907 24908 24909 24910 24911 24912 24913 24914 24915 24916 24917 24918 24919 24920 24921 24922 24923 24924 24925 24926 24927 24928 24929 24930 24931 24932 24933 24934 24935 24936 24937 24938 24939 24940 24941 24942 24943 24944 24945 24946 24947 24948 24949 24950 24951 24952 24953 24954 24955 24956 24957 24958 24959 24960 24961 24962 24963 24964 24965 24966 24967 24968 24969 24970 24971 24972 24973 24974 24975 24976 24977 24978 24979 24980 24981 24982 24983 24984 24985 24986 24987 24988 24989 24990 24991 24992 24993 24994 24995 24996 24997 24998 24999 25000 25001 25002 25003 25004 25005 25006 25007 25008 25009 25010 25011 25012 25013 25014 25015 25016 25017 25018 25019 25020 25021 25022 25023 25024 25025 25026 25027 25028 25029 25030 25031 25032 25033 25034 25035 25036 25037 25038 25039 25040 25041 25042 25043 25044 25045 25046 25047 25048 25049 25050 25051 25052 25053 25054 25055 25056 25057 25058 25059 25060 25061 25062 25063 25064 25065 25066 25067 25068 25069 25070 25071 25072 25073 25074 25075 25076 25077 25078 25079 25080 25081 25082 25083 25084 25085 25086 25087 25088 25089 25090 25091 25092 25093 25094 25095 25096 25097 25098 25099 25100 25101 25102 25103 25104 25105 25106 25107 25108 25109 25110 25111 25112 25113 25114 25115 25116 25117 25118 25119 25120 25121 25122 25123 25124 25125 25126 25127 25128 25129 25130 25131 25132 25133 25134 25135 25136 25137 25138 25139 25140 25141 25142 25143 25144 25145 25146 25147 25148 25149 25150 25151 25152 25153 25154 25155 25156 25157 25158 25159 25160 25161 25162 25163 25164 25165 25166 25167 25168 25169 25170 25171 25172 25173 25174 25175 25176 25177 25178 25179 25180 25181 25182 25183 25184 25185 25186 25187 25188 25189 25190 25191 25192 25193 25194 25195 25196 25197 25198 25199 25200 25201 25202 25203 25204 25205 25206 25207 25208 25209 25210 25211 25212 25213 25214 25215 25216 25217 25218 25219 25220 25221 25222 25223 25224 25225 25226 25227 25228 25229 25230 25231 25232 25233 25234 25235 25236 25237 25238 25239 25240 25241 25242 25243 25244 25245 25246 25247 25248 25249 25250 25251 25252 25253 25254 25255 25256 25257 25258 25259 25260 25261 25262 25263 25264 25265 25266 25267 25268 25269 25270 25271 25272 25273 25274 25275 25276 25277 25278 25279 25280 25281 25282 25283 25284 25285 25286 25287 25288 25289 25290 25291 25292 25293 25294 25295 25296 25297 25298 25299 25300 25301 25302 25303 25304 25305 25306 25307 25308 25309 25310 25311 25312 25313 25314 25315 25316 25317 25318 25319 25320 25321 25322 25323 25324 25325 25326 25327 25328 25329 25330 25331 25332 25333 25334 25335 25336 25337 25338 25339 25340 25341 25342 25343 25344 25345 25346 25347 25348 25349 25350 25351 25352 25353 25354 25355 25356 25357 25358 25359 25360 25361 25362 25363 25364 25365 25366 25367 25368 25369 25370 25371 25372 25373 25374 25375 25376 25377 25378 25379 25380 25381 25382 25383 25384 25385 25386 25387 25388 25389 25390 25391 25392 25393 25394 25395 25396 25397 25398 25399 25400 25401 25402 25403 25404 25405 25406 25407 25408 25409 25410 25411 25412 25413 25414 25415 25416 25417 25418 25419 25420 25421 25422 25423 25424 25425 25426 25427 25428 25429 25430 25431 25432 25433 25434 25435 25436 25437 25438 25439 25440 25441 25442 25443 25444 25445 25446 25447 25448 25449 25450 25451 25452 25453 25454 25455 25456 25457 25458 25459 25460 25461 25462 25463 25464 25465 25466 25467 25468 25469 25470 25471 25472 25473 25474 25475 25476 25477 25478 25479 25480 25481 25482 25483 25484 25485 25486 25487 25488 25489 25490 25491 25492 25493 25494 25495 25496 25497 25498 25499 25500 25501 25502 25503 25504 25505 25506 25507 25508 25509 25510 25511 25512 25513 25514 25515 25516 25517 25518 25519 25520 25521 25522 25523 25524 25525 25526 25527 25528 25529 25530 25531 25532 25533 25534 25535 25536 25537 25538 25539 25540 25541 25542 25543 25544 25545 25546 25547 25548 25549 25550 25551 25552 25553 25554 25555 25556 25557 25558 25559 25560 25561 25562 25563 25564 25565 25566 25567 25568 25569 25570 25571 25572 25573 25574 25575 25576 25577 25578 25579 25580 25581 25582 25583 25584 25585 25586 25587 25588 25589 25590 25591 25592 25593 25594 25595 25596 25597 25598 25599 25600 25601 25602 25603 25604 25605 25606 25607 25608 25609 25610 25611 25612 25613 25614 25615 25616 25617 25618 25619 25620 25621 25622 25623 25624 25625 25626 25627 25628 25629 25630 25631 25632 25633 25634 25635 25636 25637 25638 25639 25640 25641 25642 25643 25644 25645 25646 25647 25648 25649 25650 25651 25652 25653 25654 25655 25656 25657 25658 25659 25660 25661 25662 25663 25664 25665 25666 25667 25668 25669 25670 25671 25672 25673 25674 25675 25676 25677 25678 25679 25680 25681 25682 25683 25684 25685 25686 25687 25688 25689 25690 25691 25692 25693 25694 25695 25696 25697 25698 25699 25700 25701 25702 25703 25704 25705 25706 25707 25708 25709 25710 25711 25712 25713 25714 25715 25716 25717 25718 25719 25720 25721 25722 25723 25724 25725 25726 25727 25728 25729 25730 25731 25732 25733 25734 25735 25736 25737 25738 25739 25740 25741 25742 25743 25744 25745 25746 25747 25748 25749 25750 25751 25752 25753 25754 25755 25756 25757 25758 25759 25760 25761 25762 25763 25764 25765 25766 25767 25768 25769 25770 25771 25772 25773 25774 25775 25776 25777 25778 25779 25780 25781 25782 25783 25784 25785 25786 25787 25788 25789 25790 25791 25792 25793 25794 25795 25796 25797 25798 25799 25800 25801 25802 25803 25804 25805 25806 25807 25808 25809 25810 25811 25812 25813 25814 25815 25816 25817 25818 25819 25820 25821 25822 25823 25824 25825 25826 25827 25828 25829 25830 25831 25832 25833 25834 25835 25836 25837 25838 25839 25840 25841 25842 25843 25844 25845 25846 25847 25848 25849 25850 25851 25852 25853 25854 25855 25856 25857 25858 25859 25860 25861 25862 25863 25864 25865 25866 25867 25868 25869 25870 25871 25872 25873 25874 25875 25876 25877 25878 25879 25880 25881 25882 25883 25884 25885 25886 25887 25888 25889 25890 25891 25892 25893 25894 25895 25896 25897 25898 25899 25900 25901 25902 25903 25904 25905 25906 25907 25908 25909 25910 25911 25912 25913 25914 25915 25916 25917 25918 25919 25920 25921 25922 25923 25924 25925 25926 25927 25928 25929 25930 25931 25932 25933 25934 25935 25936 25937 25938 25939 25940 25941 25942 25943 25944 25945 25946 25947 25948 25949 25950 25951 25952 25953 25954 25955 25956 25957 25958 25959 25960 25961 25962 25963 25964 25965 25966 25967 25968 25969 25970 25971 25972 25973 25974 25975 25976 25977 25978 25979 25980 25981 25982 25983 25984 25985 25986 25987 25988 25989 25990 25991 25992 25993 25994 25995 25996 25997 25998 25999 26000 26001 26002 26003 26004 26005 26006 26007 26008 26009 26010 26011 26012 26013 26014 26015 26016 26017 26018 26019 26020 26021 26022 26023 26024 26025 26026 26027 26028 26029 26030 26031 26032 26033 26034 26035 26036 26037 26038 26039 26040 26041 26042 26043 26044 26045 26046 26047 26048 26049 26050 26051 26052 26053 26054 26055 26056 26057 26058 26059 26060 26061 26062 26063 26064 26065 26066 26067 26068 26069 26070 26071 26072 26073 26074 26075 26076 26077 26078 26079 26080 26081 26082 26083 26084 26085 26086 26087 26088 26089 26090 26091 26092 26093 26094 26095 26096 26097 26098 26099 26100 26101 26102 26103 26104 26105 26106 26107 26108 26109 26110 26111 26112 26113 26114 26115 26116 26117 26118 26119 26120 26121 26122 26123 26124 26125 26126 26127 26128 26129 26130 26131 26132 26133 26134 26135 26136 26137 26138 26139 26140 26141 26142 26143 26144 26145 26146 26147 26148 26149 26150 26151 26152 26153 26154 26155 26156 26157 26158 26159 26160 26161 26162 26163 26164 26165 26166 26167 26168 26169 26170 26171 26172 26173 26174 26175 26176 26177 26178 26179 26180 26181 26182 26183 26184 26185 26186 26187 26188 26189 26190 26191 26192 26193 26194 26195 26196 26197 26198 26199 26200 26201 26202 26203 26204 26205 26206 26207 26208 26209 26210 26211 26212 26213 26214 26215 26216 26217 26218 26219 26220 26221 26222 26223 26224 26225 26226 26227 26228 26229 26230 26231 26232 26233 26234 26235 26236 26237 26238 26239 26240 26241 26242 26243 26244 26245 26246 26247 26248 26249 26250 26251 26252 26253 26254 26255 26256 26257 26258 26259 26260 26261 26262 26263 26264 26265 26266 26267 26268 26269 26270 26271 26272 26273 26274 26275 26276 26277 26278 26279 26280 26281 26282 26283 26284 26285 26286 26287 26288 26289 26290 26291 26292 26293 26294 26295 26296 26297 26298 26299 26300 26301 26302 26303 26304 26305 26306 26307 26308 26309 26310 26311 26312 26313 26314 26315 26316 26317 26318 26319 26320 26321 26322 26323 26324 26325 26326 26327 26328 26329 26330 26331 26332 26333 26334 26335 26336 26337 26338 26339 26340 26341 26342 26343 26344 26345 26346 26347 26348 26349 26350 26351 26352 26353 26354 26355 26356 26357 26358 26359 26360 26361 26362 26363 26364 26365 26366 26367 26368 26369 26370 26371 26372 26373 26374 26375 26376 26377 26378 26379 26380 26381 26382 26383 26384 26385 26386 26387 26388 26389 26390 26391 26392 26393 26394 26395 26396 26397 26398 26399 26400 26401 26402 26403 26404 26405 26406 26407 26408 26409 26410 26411 26412 26413 26414 26415 26416 26417 26418 26419 26420 26421 26422 26423 26424 26425 26426 26427 26428 26429 26430 26431 26432 26433 26434 26435 26436 26437 26438 26439 26440 26441 26442 26443 26444 26445 26446 26447 26448 26449 26450 26451 26452 26453 26454 26455 26456 26457 26458 26459 26460 26461 26462 26463 26464 26465 26466 26467 26468 26469 26470 26471 26472 26473 26474 26475 26476 26477 26478 26479 26480 26481 26482 26483 26484 26485 26486 26487 26488 26489 26490 26491 26492 26493 26494 26495 26496 26497 26498 26499 26500 26501 26502 26503 26504 26505 26506 26507 26508 26509 26510 26511 26512 26513 26514 26515 26516 26517 26518 26519 26520 26521 26522 26523 26524 26525 26526 26527 26528 26529 26530 26531 26532 26533 26534 26535 26536 26537 26538 26539 26540 26541 26542 26543 26544 26545 26546 26547 26548 26549 26550 26551 26552 26553 26554 26555 26556 26557 26558 26559 26560 26561 26562 26563 26564 26565 26566 26567 26568 26569 26570 26571 26572 26573 26574 26575 26576 26577 26578 26579 26580 26581 26582 26583 26584 26585 26586 26587 26588 26589 26590 26591 26592 26593 26594 26595 26596 26597 26598 26599 26600 26601 26602 26603 26604 26605 26606 26607 26608 26609 26610 26611 26612 26613 26614 26615 26616 26617 26618 26619 26620 26621 26622 26623 26624 26625 26626 26627 26628 26629 26630 26631 26632 26633 26634 26635 26636 26637 26638 26639 26640 26641 26642 26643 26644 26645 26646 26647 26648 26649 26650 26651 26652 26653 26654 26655 26656 26657 26658 26659 26660 26661 26662 26663 26664 26665 26666 26667 26668 26669 26670 26671 26672 26673 26674 26675 26676 26677 26678 26679 26680 26681 26682 26683 26684 26685 26686 26687 26688 26689 26690 26691 26692 26693 26694 26695 26696 26697 26698 26699 26700 26701 26702 26703 26704 26705 26706 26707 26708 26709 26710 26711 26712 26713 26714 26715 26716 26717 26718 26719 26720 26721 26722 26723 26724 26725 26726 26727 26728 26729 26730 26731 26732 26733 26734 26735 26736 26737 26738 26739 26740 26741 26742 26743 26744 26745 26746 26747 26748 26749 26750 26751 26752 26753 26754 26755 26756 26757 26758 26759 26760 26761 26762 26763 26764 26765 26766 26767 26768 26769 26770 26771 26772 26773 26774 26775 26776 26777 26778 26779 26780 26781 26782 26783 26784 26785 26786 26787 26788 26789 26790 26791 26792 26793 26794 26795 26796 26797 26798 26799 26800 26801 26802 26803 26804 26805 26806 26807 26808 26809 26810 26811 26812 26813 26814 26815 26816 26817 26818 26819 26820 26821 26822 26823 26824 26825 26826 26827 26828 26829 26830 26831 26832 26833 26834 26835 26836 26837 26838 26839 26840 26841 26842 26843 26844 26845 26846 26847 26848 26849 26850 26851 26852 26853 26854 26855 26856 26857 26858 26859 26860 26861 26862 26863 26864 26865 26866 26867 26868 26869 26870 26871 26872 26873 26874 26875 26876 26877 26878 26879 26880 26881 26882 26883 26884 26885 26886 26887 26888 26889 26890 26891 26892 26893 26894 26895 26896 26897 26898 26899 26900 26901 26902 26903 26904 26905 26906 26907 26908 26909 26910 26911 26912 26913 26914 26915 26916 26917 26918 26919 26920 26921 26922 26923 26924 26925 26926 26927 26928 26929 26930 26931 26932 26933 26934 26935 26936 26937 26938 26939 26940 26941 26942 26943 26944 26945 26946 26947 26948 26949 26950 26951 26952 26953 26954 26955 26956 26957 26958 26959 26960 26961 26962 26963 26964 26965 26966 26967 26968 26969 26970 26971 26972 26973 26974 26975 26976 26977 26978 26979 26980 26981 26982 26983 26984 26985 26986 26987 26988 26989 26990 26991 26992 26993 26994 26995 26996 26997 26998 26999 27000 27001 27002 27003 27004 27005 27006 27007 27008 27009 27010 27011 27012 27013 27014 27015 27016 27017 27018 27019 27020 27021 27022 27023 27024 27025 27026 27027 27028 27029 27030 27031 27032 27033 27034 27035 27036 27037 27038 27039 27040 27041 27042 27043 27044 27045 27046 27047 27048 27049 27050 27051 27052 27053 27054 27055 27056 27057 27058 27059 27060 27061 27062 27063 27064 27065 27066 27067 27068 27069 27070 27071 27072 27073 27074 27075 27076 27077 27078 27079 27080 27081 27082 27083 27084 27085 27086 27087 27088 27089 27090 27091 27092 27093 27094 27095 27096 27097 27098 27099 27100 27101 27102 27103 27104 27105 27106 27107 27108 27109 27110 27111 27112 27113 27114 27115 27116 27117 27118 27119 27120 27121 27122 27123 27124 27125 27126 27127 27128 27129 27130 27131 27132 27133 27134 27135 27136 27137 27138 27139 27140 27141 27142 27143 27144 27145 27146 27147 27148 27149 27150 27151 27152 27153 27154 27155 27156 27157 27158 27159 27160 27161 27162 27163 27164 27165 27166 27167 27168 27169 27170 27171 27172 27173 27174 27175 27176 27177 27178 27179 27180 27181 27182 27183 27184 27185 27186 27187 27188 27189 27190 27191 27192 27193 27194 27195 27196 27197 27198 27199 27200 27201 27202 27203 27204 27205 27206 27207 27208 27209 27210 27211 27212 27213 27214 27215 27216 27217 27218 27219 27220 27221 27222 27223 27224 27225 27226 27227 27228 27229 27230 27231 27232 27233 27234 27235 27236 27237 27238 27239 27240 27241 27242 27243 27244 27245 27246 27247 27248 27249 27250 27251 27252 27253 27254 27255 27256 27257 27258 27259 27260 27261 27262 27263 27264 27265 27266 27267 27268 27269 27270 27271 27272 27273 27274 27275 27276 27277 27278 27279 27280 27281 27282 27283 27284 27285 27286 27287 27288 27289 27290 27291 27292 27293 27294 27295 27296 27297 27298 27299 27300 27301 27302 27303 27304 27305 27306 27307 27308 27309 27310 27311 27312 27313 27314 27315 27316 27317 27318 27319 27320 27321 27322 27323 27324 27325 27326 27327 27328 27329 27330 27331 27332 27333 27334 27335 27336 27337 27338 27339 27340 27341 27342 27343 27344 27345 27346 27347 27348 27349 27350 27351 27352 27353 27354 27355 27356 27357 27358 27359 27360 27361 27362 27363 27364 27365 27366 27367 27368 27369 27370 27371 27372 27373 27374 27375 27376 27377 27378 27379 27380 27381 27382 27383 27384 27385 27386 27387 27388 27389 27390 27391 27392 27393 27394 27395 27396 27397 27398 27399 27400 27401 27402 27403 27404 27405 27406 27407 27408 27409 27410 27411 27412 27413 27414 27415 27416 27417 27418 27419 27420 27421 27422 27423 27424 27425 27426 27427 27428 27429 27430 27431 27432 27433 27434 27435 27436 27437 27438 27439 27440 27441 27442 27443 27444 27445 27446 27447 27448 27449 27450 27451 27452 27453 27454 27455 27456 27457 27458 27459 27460 27461 27462 27463 27464 27465 27466 27467 27468 27469 27470 27471 27472 27473 27474 27475 27476 27477 27478 27479 27480 27481 27482 27483 27484 27485 27486 27487 27488 27489 27490 27491 27492 27493 27494 27495 27496 27497 27498 27499 27500 27501 27502 27503 27504 27505 27506 27507 27508 27509 27510 27511 27512 27513 27514 27515 27516 27517 27518 27519 27520 27521 27522 27523 27524 27525 27526 27527 27528 27529 27530 27531 27532 27533 27534 27535 27536 27537 27538 27539 27540 27541 27542 27543 27544 27545 27546 27547 27548 27549 27550 27551 27552 27553 27554 27555 27556 27557 27558 27559 27560 27561 27562 27563 27564 27565 27566 27567 27568 27569 27570 27571 27572 27573 27574 27575 27576 27577 27578 27579 27580 27581 27582 27583 27584 27585 27586 27587 27588 27589 27590 27591 27592 27593 27594 27595 27596 27597 27598 27599 27600 27601 27602 27603 27604 27605 27606 27607 27608 27609 27610 27611 27612 27613 27614 27615 27616 27617 27618 27619 27620 27621 27622 27623 27624 27625 27626 27627 27628 27629 27630 27631 27632 27633 27634 27635 27636 27637 27638 27639 27640 27641 27642 27643 27644 27645 27646 27647 27648 27649 27650 27651 27652 27653 27654 27655 27656 27657 27658 27659 27660 27661 27662 27663 27664 27665 27666 27667 27668 27669 27670 27671 27672 27673 27674 27675 27676 27677 27678 27679 27680 27681 27682 27683 27684 27685 27686 27687 27688 27689 27690 27691 27692 27693 27694 27695 27696 27697 27698 27699 27700 27701 27702 27703 27704 27705 27706 27707 27708 27709 27710 27711 27712 27713 27714 27715 27716 27717 27718 27719 27720 27721 27722 27723 27724 27725 27726 27727 27728 27729 27730 27731 27732 27733 27734 27735 27736 27737 27738 27739 27740 27741 27742 27743 27744 27745 27746 27747 27748 27749 27750 27751 27752 27753 27754 27755 27756 27757 27758 27759 27760 27761 27762 27763 27764 27765 27766 27767 27768 27769 27770 27771 27772 27773 27774 27775 27776 27777 27778 27779 27780 27781 27782 27783 27784 27785 27786 27787 27788 27789 27790 27791 27792 27793 27794 27795 27796 27797 27798 27799 27800 27801 27802 27803 27804 27805 27806 27807 27808 27809 27810 27811 27812 27813 27814 27815 27816 27817 27818 27819 27820 27821 27822 27823 27824 27825 27826 27827 27828 27829 27830 27831 27832 27833 27834 27835 27836 27837 27838 27839 27840 27841 27842 27843 27844 27845 27846 27847 27848 27849 27850 27851 27852 27853 27854 27855 27856 27857 27858 27859 27860 27861 27862 27863 27864 27865 27866 27867 27868 27869 27870 27871 27872 27873 27874 27875 27876 27877 27878 27879 27880 27881 27882 27883 27884 27885 27886 27887 27888 27889 27890 27891 27892 27893 27894 27895 27896 27897 27898 27899 27900 27901 27902 27903 27904 27905 27906 27907 27908 27909 27910 27911 27912 27913 27914 27915 27916 27917 27918 27919 27920 27921 27922 27923 27924 27925 27926 27927 27928 27929 27930 27931 27932 27933 27934 27935 27936 27937 27938 27939 27940 27941 27942 27943 27944 27945 27946 27947 27948 27949 27950 27951 27952 27953 27954 27955 27956 27957 27958 27959 27960 27961 27962 27963 27964 27965 27966 27967 27968 27969 27970 27971 27972 27973 27974 27975 27976 27977 27978 27979 27980 27981 27982 27983 27984 27985 27986 27987 27988 27989 27990 27991 27992 27993 27994 27995 27996 27997 27998 27999 28000 28001 28002 28003 28004 28005 28006 28007 28008 28009 28010 28011 28012 28013 28014 28015 28016 28017 28018 28019 28020 28021 28022 28023 28024 28025 28026 28027 28028 28029 28030 28031 28032 28033 28034 28035 28036 28037 28038 28039 28040 28041 28042 28043 28044 28045 28046 28047 28048 28049 28050 28051 28052 28053 28054 28055 28056 28057 28058 28059 28060 28061 28062 28063 28064 28065 28066 28067 28068 28069 28070 28071 28072 28073 28074 28075 28076 28077 28078 28079 28080 28081 28082 28083 28084 28085 28086 28087 28088 28089 28090 28091 28092 28093 28094 28095 28096 28097 28098 28099 28100 28101 28102 28103 28104 28105 28106 28107 28108 28109 28110 28111 28112 28113 28114 28115 28116 28117 28118 28119 28120 28121 28122 28123 28124 28125 28126 28127 28128 28129 28130 28131 28132 28133 28134 28135 28136 28137 28138 28139 28140 28141 28142 28143 28144 28145 28146 28147 28148 28149 28150 28151 28152 28153 28154 28155 28156 28157 28158 28159 28160 28161 28162 28163 28164 28165 28166 28167 28168 28169 28170 28171 28172 28173 28174 28175 28176 28177 28178 28179 28180 28181 28182 28183 28184 28185 28186 28187 28188 28189 28190 28191 28192 28193 28194 28195 28196 28197 28198 28199 28200 28201 28202 28203 28204 28205 28206 28207 28208 28209 28210 28211 28212 28213 28214 28215 28216 28217 28218 28219 28220 28221 28222 28223 28224 28225 28226 28227 28228 28229 28230 28231 28232 28233 28234 28235 28236 28237 28238 28239 28240 28241 28242 28243 28244 28245 28246 28247 28248 28249 28250 28251 28252 28253 28254 28255 28256 28257 28258 28259 28260 28261 28262 28263 28264 28265 28266 28267 28268 28269 28270 28271 28272 28273 28274 28275 28276 28277 28278 28279 28280 28281 28282 28283 28284 28285 28286 28287 28288 28289 28290 28291 28292 28293 28294 28295 28296 28297 28298 28299 28300 28301 28302 28303 28304 28305 28306 28307 28308 28309 28310 28311 28312 28313 28314 28315 28316 28317 28318 28319 28320 28321 28322 28323 28324 28325 28326 28327 28328 28329 28330 28331 28332 28333 28334 28335 28336 28337 28338 28339 28340 28341 28342 28343 28344 28345 28346 28347 28348 28349 28350 28351 28352 28353 28354 28355 28356 28357 28358 28359 28360 28361 28362 28363 28364 28365 28366 28367 28368 28369 28370 28371 28372 28373 28374 28375 28376 28377 28378 28379 28380 28381 28382 28383 28384 28385 28386 28387 28388 28389 28390 28391 28392 28393 28394 28395 28396 28397 28398 28399 28400 28401 28402 28403 28404 28405 28406 28407 28408 28409 28410 28411 28412 28413 28414 28415 28416 28417 28418 28419 28420 28421 28422 28423 28424 28425 28426 28427 28428 28429 28430 28431 28432 28433 28434 28435 28436 28437 28438 28439 28440 28441 28442 28443 28444 28445 28446 28447 28448 28449 28450 28451 28452 28453 28454 28455 28456 28457 28458 28459 28460 28461 28462 28463 28464 28465 28466 28467 28468 28469 28470 28471 28472 28473 28474 28475 28476 28477 28478 28479 28480 28481 28482 28483 28484 28485 28486 28487 28488 28489 28490 28491 28492 28493 28494 28495 28496 28497 28498 28499 28500 28501 28502 28503 28504 28505 28506 28507 28508 28509 28510 28511 28512 28513 28514 28515 28516 28517 28518 28519 28520 28521 28522 28523 28524 28525 28526 28527 28528 28529 28530 28531 28532 28533 28534 28535 28536 28537 28538 28539 28540 28541 28542 28543 28544 28545 28546 28547 28548 28549 28550 28551 28552 28553 28554 28555 28556 28557 28558 28559 28560 28561 28562 28563 28564 28565 28566 28567 28568 28569 28570 28571 28572 28573 28574 28575 28576 28577 28578 28579 28580 28581 28582 28583 28584 28585 28586 28587 28588 28589 28590 28591 28592 28593 28594 28595 28596 28597 28598 28599 28600 28601 28602 28603 28604 28605 28606 28607 28608 28609 28610 28611 28612 28613 28614 28615 28616 28617 28618 28619 28620 28621 28622 28623 28624 28625 28626 28627 28628 28629 28630 28631 28632 28633 28634 28635 28636 28637 28638 28639 28640 28641 28642 28643 28644 28645 28646 28647 28648 28649 28650 28651 28652 28653 28654 28655 28656 28657 28658 28659 28660 28661 28662 28663 28664 28665 28666 28667 28668 28669 28670 28671 28672 28673 28674 28675 28676 28677 28678 28679 28680 28681 28682 28683 28684 28685 28686 28687 28688 28689 28690 28691 28692 28693 28694 28695 28696 28697 28698 28699 28700 28701 28702 28703 28704 28705 28706 28707 28708 28709 28710 28711 28712 28713 28714 28715 28716 28717 28718 28719 28720 28721 28722 28723 28724 28725 28726 28727 28728 28729 28730 28731 28732 28733 28734 28735 28736 28737 28738 28739 28740 28741 28742 28743 28744 28745 28746 28747 28748 28749 28750 28751 28752 28753 28754 28755 28756 28757 28758 28759 28760 28761 28762 28763 28764 28765 28766 28767 28768 28769 28770 28771 28772 28773 28774 28775 28776 28777 28778 28779 28780 28781 28782 28783 28784 28785 28786 28787 28788 28789 28790 28791 28792 28793 28794 28795 28796 28797 28798 28799 28800 28801 28802 28803 28804 28805 28806 28807 28808 28809 28810 28811 28812 28813 28814 28815 28816 28817 28818 28819 28820 28821 28822 28823 28824 28825 28826 28827 28828 28829 28830 28831 28832 28833 28834 28835 28836 28837 28838 28839 28840 28841 28842 28843 28844 28845 28846 28847 28848 28849 28850 28851 28852 28853 28854 28855 28856 28857 28858 28859 28860 28861 28862 28863 28864 28865 28866 28867 28868 28869 28870 28871 28872 28873 28874 28875 28876 28877 28878 28879 28880 28881 28882 28883 28884 28885 28886 28887 28888 28889 28890 28891 28892 28893 28894 28895 28896 28897 28898 28899 28900 28901 28902 28903 28904 28905 28906 28907 28908 28909 28910 28911 28912 28913 28914 28915 28916 28917 28918 28919 28920 28921 28922 28923 28924 28925 28926 28927 28928 28929 28930 28931 28932 28933 28934 28935 28936 28937 28938 28939 28940 28941 28942 28943 28944 28945 28946 28947 28948 28949 28950 28951 28952 28953 28954 28955 28956 28957 28958 28959 28960 28961 28962 28963 28964 28965 28966 28967 28968 28969 28970 28971 28972 28973 28974 28975 28976 28977 28978 28979 28980 28981 28982 28983 28984 28985 28986 28987 28988 28989 28990 28991 28992 28993 28994 28995 28996 28997 28998 28999 29000 29001 29002 29003 29004 29005 29006 29007 29008 29009 29010 29011 29012 29013 29014 29015 29016 29017 29018 29019 29020 29021 29022 29023 29024 29025 29026 29027 29028 29029 29030 29031 29032 29033 29034 29035 29036 29037 29038 29039 29040 29041 29042 29043 29044 29045 29046 29047 29048 29049 29050 29051 29052 29053 29054 29055 29056 29057 29058 29059 29060 29061 29062 29063 29064 29065 29066 29067 29068 29069 29070 29071 29072 29073 29074 29075 29076 29077 29078 29079 29080 29081 29082 29083 29084 29085 29086 29087 29088 29089 29090 29091 29092 29093 29094 29095 29096 29097 29098 29099 29100 29101 29102 29103 29104 29105 29106 29107 29108 29109 29110 29111 29112 29113 29114 29115 29116 29117 29118 29119 29120 29121 29122 29123 29124 29125 29126 29127 29128 29129 29130 29131 29132 29133 29134 29135 29136 29137 29138 29139 29140 29141 29142 29143 29144 29145 29146 29147 29148 29149 29150 29151 29152 29153 29154 29155 29156 29157 29158 29159 29160 29161 29162 29163 29164 29165 29166 29167 29168 29169 29170 29171 29172 29173 29174 29175 29176 29177 29178 29179 29180 29181 29182 29183 29184 29185 29186 29187 29188 29189 29190 29191 29192 29193 29194 29195 29196 29197 29198 29199 29200 29201 29202 29203 29204 29205 29206 29207 29208 29209 29210 29211 29212 29213 29214 29215 29216 29217 29218 29219 29220 29221 29222 29223 29224 29225 29226 29227 29228 29229 29230 29231 29232 29233 29234 29235 29236 29237 29238 29239 29240 29241 29242 29243 29244 29245 29246 29247 29248 29249 29250 29251 29252 29253 29254 29255 29256 29257 29258 29259 29260 29261 29262 29263 29264 29265 29266 29267 29268 29269 29270 29271 29272 29273 29274 29275 29276 29277 29278 29279 29280 29281 29282 29283 29284 29285 29286 29287 29288 29289 29290 29291 29292 29293 29294 29295 29296 29297 29298 29299 29300 29301 29302 29303 29304 29305 29306 29307 29308 29309 29310 29311 29312 29313 29314 29315 29316 29317 29318 29319 29320 29321 29322 29323 29324 29325 29326 29327 29328 29329 29330 29331 29332 29333 29334 29335 29336 29337 29338 29339 29340 29341 29342 29343 29344 29345 29346 29347 29348 29349 29350 29351 29352 29353 29354 29355 29356 29357 29358 29359 29360 29361 29362 29363 29364 29365 29366 29367 29368 29369 29370 29371 29372 29373 29374 29375 29376 29377 29378 29379 29380 29381 29382 29383 29384 29385 29386 29387 29388 29389 29390 29391 29392 29393 29394 29395 29396 29397 29398 29399 29400 29401 29402 29403 29404 29405 29406 29407 29408 29409 29410 29411 29412 29413 29414 29415 29416 29417 29418 29419 29420 29421 29422 29423 29424 29425 29426 29427 29428 29429 29430 29431 29432 29433 29434 29435 29436 29437 29438 29439 29440 29441 29442 29443 29444 29445 29446 29447 29448 29449 29450 29451 29452 29453 29454 29455 29456 29457 29458 29459 29460 29461 29462 29463 29464 29465 29466 29467 29468 29469 29470 29471 29472 29473 29474 29475 29476 29477 29478 29479 29480 29481 29482 29483 29484 29485 29486 29487 29488 29489 29490 29491 29492 29493 29494 29495 29496 29497 29498 29499 29500 29501 29502 29503 29504 29505 29506 29507 29508 29509 29510 29511 29512 29513 29514 29515 29516 29517 29518 29519 29520 29521 29522 29523 29524 29525 29526 29527 29528 29529 29530 29531 29532 29533 29534 29535 29536 29537 29538 29539 29540 29541 29542 29543 29544 29545 29546 29547 29548 29549 29550 29551 29552 29553 29554 29555 29556 29557 29558 29559 29560 29561 29562 29563 29564 29565 29566 29567 29568 29569 29570 29571 29572 29573 29574 29575 29576 29577 29578 29579 29580 29581 29582 29583 29584 29585 29586 29587 29588 29589 29590 29591 29592 29593 29594 29595 29596 29597 29598 29599 29600 29601 29602 29603 29604 29605 29606 29607 29608 29609 29610 29611 29612 29613 29614 29615 29616 29617 29618 29619 29620 29621 29622 29623 29624 29625 29626 29627 29628 29629 29630 29631 29632 29633 29634 29635 29636 29637 29638 29639 29640 29641 29642 29643 29644 29645 29646 29647 29648 29649 29650 29651 29652 29653 29654 29655 29656 29657 29658 29659 29660 29661 29662 29663 29664 29665 29666 29667 29668 29669 29670 29671 29672 29673 29674 29675 29676 29677 29678 29679 29680 29681 29682 29683 29684 29685 29686 29687 29688 29689 29690 29691 29692 29693 29694 29695 29696 29697 29698 29699 29700 29701 29702 29703 29704 29705 29706 29707 29708 29709 29710 29711 29712 29713 29714 29715 29716 29717 29718 29719 29720 29721 29722 29723 29724 29725 29726 29727 29728 29729 29730 29731 29732 29733 29734 29735 29736 29737 29738 29739 29740 29741 29742 29743 29744 29745 29746 29747 29748 29749 29750 29751 29752 29753 29754 29755 29756 29757 29758 29759 29760 29761 29762 29763 29764 29765 29766 29767 29768 29769 29770 29771 29772 29773 29774 29775 29776 29777 29778 29779 29780 29781 29782 29783 29784 29785 29786 29787 29788 29789 29790 29791 29792 29793 29794 29795 29796 29797 29798 29799 29800 29801 29802 29803 29804 29805 29806 29807 29808 29809 29810 29811 29812 29813 29814 29815 29816 29817 29818 29819 29820 29821 29822 29823 29824 29825 29826 29827 29828 29829 29830 29831 29832 29833 29834 29835 29836 29837 29838 29839 29840 29841 29842 29843 29844 29845 29846 29847 29848 29849 29850 29851 29852 29853 29854 29855 29856 29857 29858 29859 29860 29861 29862 29863 29864 29865 29866 29867 29868 29869 29870 29871 29872 29873 29874 29875 29876 29877 29878 29879 29880 29881 29882 29883 29884 29885 29886 29887 29888 29889 29890 29891 29892 29893 29894 29895 29896 29897 29898 29899 29900 29901 29902 29903 29904 29905 29906 29907 29908 29909 29910 29911 29912 29913 29914 29915 29916 29917 29918 29919 29920 29921 29922 29923 29924 29925 29926 29927 29928 29929 29930 29931 29932 29933 29934 29935 29936 29937 29938 29939 29940 29941 29942 29943 29944 29945 29946 29947 29948 29949 29950 29951 29952 29953 29954 29955 29956 29957 29958 29959 29960 29961 29962 29963 29964 29965 29966 29967 29968 29969 29970 29971 29972 29973 29974 29975 29976 29977 29978 29979 29980 29981 29982 29983 29984 29985 29986 29987 29988 29989 29990 29991 29992 29993 29994 29995 29996 29997 29998 29999 30000 30001 30002 30003 30004 30005 30006 30007 30008 30009 30010 30011 30012 30013 30014 30015 30016 30017 30018 30019 30020 30021 30022 30023 30024 30025 30026 30027 30028 30029 30030 30031 30032 30033 30034 30035 30036 30037 30038 30039 30040 30041 30042 30043 30044 30045 30046 30047 30048 30049 30050 30051 30052 30053 30054 30055 30056 30057 30058 30059 30060 30061 30062 30063 30064 30065 30066 30067 30068 30069 30070 30071 30072 30073 30074 30075 30076 30077 30078 30079 30080 30081 30082 30083 30084 30085 30086 30087 30088 30089 30090 30091 30092 30093 30094 30095 30096 30097 30098 30099 30100 30101 30102 30103 30104 30105 30106 30107 30108 30109 30110 30111 30112 30113 30114 30115 30116 30117 30118 30119 30120 30121 30122 30123 30124 30125 30126 30127 30128 30129 30130 30131 30132 30133 30134 30135 30136 30137 30138 30139 30140 30141 30142 30143 30144 30145 30146 30147 30148 30149 30150 30151 30152 30153 30154 30155 30156 30157 30158 30159 30160 30161 30162 30163 30164 30165 30166 30167 30168 30169 30170 30171 30172 30173 30174 30175 30176 30177 30178 30179 30180 30181 30182 30183 30184 30185 30186 30187 30188 30189 30190 30191 30192 30193 30194 30195 30196 30197 30198 30199 30200 30201 30202 30203 30204 30205 30206 30207 30208 30209 30210 30211 30212 30213 30214 30215 30216 30217 30218 30219 30220 30221 30222 30223 30224 30225 30226 30227 30228 30229 30230 30231 30232 30233 30234 30235 30236 30237 30238 30239 30240 30241 30242 30243 30244 30245 30246 30247 30248 30249 30250 30251 30252 30253 30254 30255 30256 30257 30258 30259 30260 30261 30262 30263 30264 30265 30266 30267 30268 30269 30270 30271 30272 30273 30274 30275 30276 30277 30278 30279 30280 30281 30282 30283 30284 30285 30286 30287 30288 30289 30290 30291 30292 30293 30294 30295 30296 30297 30298 30299 30300 30301 30302 30303 30304 30305 30306 30307 30308 30309 30310 30311 30312 30313 30314 30315 30316 30317 30318 30319 30320 30321 30322 30323 30324 30325 30326 30327 30328 30329 30330 30331 30332 30333 30334 30335 30336 30337 30338 30339 30340 30341 30342 30343 30344 30345 30346 30347 30348 30349 30350 30351 30352 30353 30354 30355 30356 30357 30358 30359 30360 30361 30362 30363 30364 30365 30366 30367 30368 30369 30370 30371 30372 30373 30374 30375 30376 30377 30378 30379 30380 30381 30382 30383 30384 30385 30386 30387 30388 30389 30390 30391 30392 30393 30394 30395 30396 30397 30398 30399 30400 30401 30402 30403 30404 30405 30406 30407 30408 30409 30410 30411 30412 30413 30414 30415 30416 30417 30418 30419 30420 30421 30422 30423 30424 30425 30426 30427 30428 30429 30430 30431 30432 30433 30434 30435 30436 30437 30438 30439 30440 30441 30442 30443 30444 30445 30446 30447 30448 30449 30450 30451 30452 30453 30454 30455 30456 30457 30458 30459 30460 30461 30462 30463 30464 30465 30466 30467 30468 30469 30470 30471 30472 30473 30474 30475 30476 30477 30478 30479 30480 30481 30482 30483 30484 30485 30486 30487 30488 30489 30490 30491 30492 30493 30494 30495 30496 30497 30498 30499 30500 30501 30502 30503 30504 30505 30506 30507 30508 30509 30510 30511 30512 30513 30514 30515 30516 30517 30518 30519 30520 30521 30522 30523 30524 30525 30526 30527 30528 30529 30530 30531 30532 30533 30534 30535 30536 30537 30538 30539 30540 30541 30542 30543 30544 30545 30546 30547 30548 30549 30550 30551 30552 30553 30554 30555 30556 30557 30558 30559 30560 30561 30562 30563 30564 30565 30566 30567 30568 30569 30570 30571 30572 30573 30574 30575 30576 30577 30578 30579 30580 30581 30582 30583 30584 30585 30586 30587 30588 30589 30590 30591 30592 30593 30594 30595 30596 30597 30598 30599 30600 30601 30602 30603 30604 30605 30606 30607 30608 30609 30610 30611 30612 30613 30614 30615 30616 30617 30618 30619 30620 30621 30622 30623 30624 30625 30626 30627 30628 30629 30630 30631 30632 30633 30634 30635 30636 30637 30638 30639 30640 30641 30642 30643 30644 30645 30646 30647 30648 30649 30650 30651 30652 30653 30654 30655 30656 30657 30658 30659 30660 30661 30662 30663 30664 30665 30666 30667 30668 30669 30670 30671 30672 30673 30674 30675 30676 30677 30678 30679 30680 30681 30682 30683 30684 30685 30686 30687 30688 30689 30690 30691 30692 30693 30694 30695 30696 30697 30698 30699 30700 30701 30702 30703 30704 30705 30706 30707 30708 30709 30710 30711 30712 30713 30714 30715 30716 30717 30718 30719 30720 30721 30722 30723 30724 30725 30726 30727 30728 30729 30730 30731 30732 30733 30734 30735 30736 30737 30738 30739 30740 30741 30742 30743 30744 30745 30746 30747 30748 30749 30750 30751 30752 30753 30754 30755 30756 30757 30758 30759 30760 30761 30762 30763 30764 30765 30766 30767 30768 30769 30770 30771 30772 30773 30774 30775 30776 30777 30778 30779 30780 30781 30782 30783 30784 30785 30786 30787 30788 30789 30790 30791 30792 30793 30794 30795 30796 30797 30798 30799 30800 30801 30802 30803 30804 30805 30806 30807 30808 30809 30810 30811 30812 30813 30814 30815 30816 30817 30818 30819 30820 30821 30822 30823 30824 30825 30826 30827 30828 30829 30830 30831 30832 30833 30834 30835 30836 30837 30838 30839 30840 30841 30842 30843 30844 30845 30846 30847 30848 30849 30850 30851 30852 30853 30854 30855 30856 30857 30858 30859 30860 30861 30862 30863 30864 30865 30866 30867 30868 30869 30870 30871 30872 30873 30874 30875 30876 30877 30878 30879 30880 30881 30882 30883 30884 30885 30886 30887 30888 30889 30890 30891 30892 30893 30894 30895 30896 30897 30898 30899 30900 30901 30902 30903 30904 30905 30906 30907 30908 30909 30910 30911 30912 30913 30914 30915 30916 30917 30918 30919 30920 30921 30922 30923 30924 30925 30926 30927 30928 30929 30930 30931 30932 30933 30934 30935 30936 30937 30938 30939 30940 30941 30942 30943 30944 30945 30946 30947 30948 30949 30950 30951 30952 30953 30954 30955 30956 30957 30958 30959 30960 30961 30962 30963 30964 30965 30966 30967 30968 30969 30970 30971 30972 30973 30974 30975 30976 30977 30978 30979 30980 30981 30982 30983 30984 30985 30986 30987 30988 30989 30990 30991 30992 30993 30994 30995 30996 30997 30998 30999 31000 31001 31002 31003 31004 31005 31006 31007 31008 31009 31010 31011 31012 31013 31014 31015 31016 31017 31018 31019 31020 31021 31022 31023 31024 31025 31026 31027 31028 31029 31030 31031 31032 31033 31034 31035 31036 31037 31038 31039 31040 31041 31042 31043 31044 31045 31046 31047 31048 31049 31050 31051 31052 31053 31054 31055 31056 31057 31058 31059 31060 31061 31062 31063 31064 31065 31066 31067 31068 31069 31070 31071 31072 31073 31074 31075 31076 31077 31078 31079 31080 31081 31082 31083 31084 31085 31086 31087 31088 31089 31090 31091 31092 31093 31094 31095 31096 31097 31098 31099 31100 31101 31102 31103 31104 31105 31106 31107 31108 31109 31110 31111 31112 31113 31114 31115 31116 31117 31118 31119 31120 31121 31122 31123 31124 31125 31126 31127 31128 31129 31130 31131 31132 31133 31134 31135 31136 31137 31138 31139 31140 31141 31142 31143 31144 31145 31146 31147 31148 31149 31150 31151 31152 31153 31154 31155 31156 31157 31158 31159 31160 31161 31162 31163 31164 31165 31166 31167 31168 31169 31170 31171 31172 31173 31174 31175 31176 31177 31178 31179 31180 31181 31182 31183 31184 31185 31186 31187 31188 31189 31190 31191 31192 31193 31194 31195 31196 31197 31198 31199 31200 31201 31202 31203 31204 31205 31206 31207 31208 31209 31210 31211 31212 31213 31214 31215 31216 31217 31218 31219 31220 31221 31222 31223 31224 31225 31226 31227 31228 31229 31230 31231 31232 31233 31234 31235 31236 31237 31238 31239 31240 31241 31242 31243 31244 31245 31246 31247 31248 31249 31250 31251 31252 31253 31254 31255 31256 31257 31258 31259 31260 31261 31262 31263 31264 31265 31266 31267 31268 31269 31270 31271 31272 31273 31274 31275 31276 31277 31278 31279 31280 31281 31282 31283 31284 31285 31286 31287 31288 31289 31290 31291 31292 31293 31294 31295 31296 31297 31298 31299 31300 31301 31302 31303 31304 31305 31306 31307 31308 31309 31310 31311 31312 31313 31314 31315 31316 31317 31318 31319 31320 31321 31322 31323 31324 31325 31326 31327 31328 31329 31330 31331 31332 31333 31334 31335 31336 31337 31338 31339 31340 31341 31342 31343 31344 31345 31346 31347 31348 31349 31350 31351 31352 31353 31354 31355 31356 31357 31358 31359 31360 31361 31362 31363 31364 31365 31366 31367 31368 31369 31370 31371 31372 31373 31374 31375 31376 31377 31378 31379 31380 31381 31382 31383 31384 31385 31386 31387 31388 31389 31390 31391 31392 31393 31394 31395 31396 31397 31398 31399 31400 31401 31402 31403 31404 31405 31406 31407 31408 31409 31410 31411 31412 31413 31414 31415 31416 31417 31418 31419 31420 31421 31422 31423 31424 31425 31426 31427 31428 31429 31430 31431 31432 31433 31434 31435 31436 31437 31438 31439 31440 31441 31442 31443 31444 31445 31446 31447 31448 31449 31450 31451 31452 31453 31454 31455 31456 31457 31458 31459 31460 31461 31462 31463 31464 31465 31466 31467 31468 31469 31470 31471 31472 31473 31474 31475 31476 31477 31478 31479 31480 31481 31482 31483 31484 31485 31486 31487 31488 31489 31490 31491 31492 31493 31494 31495 31496 31497 31498 31499 31500 31501 31502 31503 31504 31505 31506 31507 31508 31509 31510 31511 31512 31513 31514 31515 31516 31517 31518 31519 31520 31521 31522 31523 31524 31525 31526 31527 31528 31529 31530 31531 31532 31533 31534 31535 31536 31537 31538 31539 31540 31541 31542 31543 31544 31545 31546 31547 31548 31549 31550 31551 31552 31553 31554 31555 31556 31557 31558 31559 31560 31561 31562 31563 31564 31565 31566 31567 31568 31569 31570 31571 31572 31573 31574 31575 31576 31577 31578 31579 31580 31581 31582 31583 31584 31585 31586 31587 31588 31589 31590 31591 31592 31593 31594 31595 31596 31597 31598 31599 31600 31601 31602 31603 31604 31605 31606 31607 31608 31609 31610 31611 31612 31613 31614 31615 31616 31617 31618 31619 31620 31621 31622 31623 31624 31625 31626 31627 31628 31629 31630 31631 31632 31633 31634 31635 31636 31637 31638 31639 31640 31641 31642 31643 31644 31645 31646 31647 31648 31649 31650 31651 31652 31653 31654 31655 31656 31657 31658 31659 31660 31661 31662 31663 31664 31665 31666 31667 31668 31669 31670 31671 31672 31673 31674 31675 31676 31677 31678 31679 31680 31681 31682 31683 31684 31685 31686 31687 31688 31689 31690 31691 31692 31693 31694 31695 31696 31697 31698 31699 31700 31701 31702 31703 31704 31705 31706 31707 31708 31709 31710 31711 31712 31713 31714 31715 31716 31717 31718 31719 31720 31721 31722 31723 31724 31725 31726 31727 31728 31729 31730 31731 31732 31733 31734 31735 31736 31737 31738 31739 31740 31741 31742 31743 31744 31745 31746 31747 31748 31749 31750 31751 31752 31753 31754 31755 31756 31757 31758 31759 31760 31761 31762 31763 31764 31765 31766 31767 31768 31769 31770 31771 31772 31773 31774 31775 31776 31777 31778 31779 31780 31781 31782 31783 31784 31785 31786 31787 31788 31789 31790 31791 31792 31793 31794 31795 31796 31797 31798 31799 31800 31801 31802 31803 31804 31805 31806 31807 31808 31809 31810 31811 31812 31813 31814 31815 31816 31817 31818 31819 31820 31821 31822 31823 31824 31825 31826 31827 31828 31829 31830 31831 31832 31833 31834 31835 31836 31837 31838 31839 31840 31841 31842 31843 31844 31845 31846 31847 31848 31849 31850 31851 31852 31853 31854 31855 31856 31857 31858 31859 31860 31861 31862 31863 31864 31865 31866 31867 31868 31869 31870 31871 31872 31873 31874 31875 31876 31877 31878 31879 31880 31881 31882 31883 31884 31885 31886 31887 31888 31889 31890 31891 31892 31893 31894 31895 31896 31897 31898 31899 31900 31901 31902 31903 31904 31905 31906 31907 31908 31909 31910 31911 31912 31913 31914 31915 31916 31917 31918 31919 31920 31921 31922 31923 31924 31925 31926 31927 31928 31929 31930 31931 31932 31933 31934 31935 31936 31937 31938 31939 31940 31941 31942 31943 31944 31945 31946 31947 31948 31949 31950 31951 31952 31953 31954 31955 31956 31957 31958 31959 31960 31961 31962 31963 31964 31965 31966 31967 31968 31969 31970 31971 31972 31973 31974 31975 31976 31977 31978 31979 31980 31981 31982 31983 31984 31985 31986 31987 31988 31989 31990 31991 31992 31993 31994 31995 31996 31997 31998 31999 32000 32001 32002 32003 32004 32005 32006 32007 32008 32009 32010 32011 32012 32013 32014 32015 32016 32017 32018 32019 32020 32021 32022 32023 32024 32025 32026 32027 32028 32029 32030 32031 32032 32033 32034 32035 32036 32037 32038 32039 32040 32041 32042 32043 32044 32045 32046 32047 32048 32049 32050 32051 32052 32053 32054 32055 32056 32057 32058 32059 32060 32061 32062 32063 32064 32065 32066 32067 32068 32069 32070 32071 32072 32073 32074 32075 32076 32077 32078 32079 32080 32081 32082 32083 32084 32085 32086 32087 32088 32089 32090 32091 32092 32093 32094 32095 32096 32097 32098 32099 32100 32101 32102 32103 32104 32105 32106 32107 32108 32109 32110 32111 32112 32113 32114 32115 32116 32117 32118 32119 32120 32121 32122 32123 32124 32125 32126 32127 32128 32129 32130 32131 32132 32133 32134 32135 32136 32137 32138 32139 32140 32141 32142 32143 32144 32145 32146 32147 32148 32149 32150 32151 32152 32153 32154 32155 32156 32157 32158 32159 32160 32161 32162 32163 32164 32165 32166 32167 32168 32169 32170 32171 32172 32173 32174 32175 32176 32177 32178 32179 32180 32181 32182 32183 32184 32185 32186 32187 32188 32189 32190 32191 32192 32193 32194 32195 32196 32197 32198 32199 32200 32201 32202 32203 32204 32205 32206 32207 32208 32209 32210 32211 32212 32213 32214 32215 32216 32217 32218 32219 32220 32221 32222 32223 32224 32225 32226 32227 32228 32229 32230 32231 32232 32233 32234 32235 32236 32237 32238 32239 32240 32241 32242 32243 32244 32245 32246 32247 32248 32249 32250 32251 32252 32253 32254 32255 32256 32257 32258 32259 32260 32261 32262 32263 32264 32265 32266 32267 32268 32269 32270 32271 32272 32273 32274 32275 32276 32277 32278 32279 32280 32281 32282 32283 32284 32285 32286 32287 32288 32289 32290 32291 32292 32293 32294 32295 32296 32297 32298 32299 32300 32301 32302 32303 32304 32305 32306 32307 32308 32309 32310 32311 32312 32313 32314 32315 32316 32317 32318 32319 32320 32321 32322 32323 32324 32325 32326 32327 32328 32329 32330 32331 32332 32333 32334 32335 32336 32337 32338 32339 32340 32341 32342 32343 32344 32345 32346 32347 32348 32349 32350 32351 32352 32353 32354 32355 32356 32357 32358 32359 32360 32361 32362 32363 32364 32365 32366 32367 32368 32369 32370 32371 32372 32373 32374 32375 32376 32377 32378 32379 32380 32381 32382 32383 32384 32385 32386 32387 32388 32389 32390 32391 32392 32393 32394 32395 32396 32397 32398 32399 32400 32401 32402 32403 32404 32405 32406 32407 32408 32409 32410 32411 32412 32413 32414 32415 32416 32417 32418 32419 32420 32421 32422 32423 32424 32425 32426 32427 32428 32429 32430 32431 32432 32433 32434 32435 32436 32437 32438 32439 32440 32441 32442 32443 32444 32445 32446 32447 32448 32449 32450 32451 32452 32453 32454 32455 32456 32457 32458 32459 32460 32461 32462 32463 32464 32465 32466 32467 32468 32469 32470 32471 32472 32473 32474 32475 32476 32477 32478 32479 32480 32481 32482 32483 32484 32485 32486 32487 32488 32489 32490 32491 32492 32493 32494 32495 32496 32497 32498 32499 32500 32501 32502 32503 32504 32505 32506 32507 32508 32509 32510 32511 32512 32513 32514 32515 32516 32517 32518 32519 32520 32521 32522 32523 32524 32525 32526 32527 32528 32529 32530 32531 32532 32533 32534 32535 32536 32537 32538 32539 32540 32541 32542 32543 32544 32545 32546 32547 32548 32549 32550 32551 32552 32553 32554 32555 32556 32557 32558 32559 32560 32561 32562 32563 32564 32565 32566 32567 32568 32569 32570 32571 32572 32573 32574 32575 32576 32577 32578 32579 32580 32581 32582 32583 32584 32585 32586 32587 32588 32589 32590 32591 32592 32593 32594 32595 32596 32597 32598 32599 32600 32601 32602 32603 32604 32605 32606 32607 32608 32609 32610 32611 32612 32613 32614 32615 32616 32617 32618 32619 32620 32621 32622 32623 32624 32625 32626 32627 32628 32629 32630 32631 32632 32633 32634 32635 32636 32637 32638 32639 32640 32641 32642 32643 32644 32645 32646 32647 32648 32649 32650 32651 32652 32653 32654 32655 32656 32657 32658 32659 32660 32661 32662 32663 32664 32665 32666 32667 32668 32669 32670 32671 32672 32673 32674 32675 32676 32677 32678 32679 32680 32681 32682 32683 32684 32685 32686 32687 32688 32689 32690 32691 32692 32693 32694 32695 32696 32697 32698 32699 32700 32701 32702 32703 32704 32705 32706 32707 32708 32709 32710 32711 32712 32713 32714 32715 32716 32717 32718 32719 32720 32721 32722 32723 32724 32725 32726 32727 32728 32729 32730 32731 32732 32733 32734 32735 32736 32737 32738 32739 32740 32741 32742 32743 32744 32745 32746 32747 32748 32749 32750 32751 32752 32753 32754 32755 32756 32757 32758 32759 32760 32761 32762 32763 32764 32765 32766 32767 32768 32769 32770 32771 32772 32773 32774 32775 32776 32777 32778 32779 32780 32781 32782 32783 32784 32785 32786 32787 32788 32789 32790 32791 32792 32793 32794 32795 32796 32797 32798 32799 32800 32801 32802 32803 32804 32805 32806 32807 32808 32809 32810 32811 32812 32813 32814 32815 32816 32817 32818 32819 32820 32821 32822 32823 32824 32825 32826 32827 32828 32829 32830 32831 32832 32833 32834 32835 32836 32837 32838 32839 32840 32841 32842 32843 32844 32845 32846 32847 32848 32849 32850 32851 32852 32853 32854 32855 32856 32857 32858 32859 32860 32861 32862 32863 32864 32865 32866 32867 32868 32869 32870 32871 32872 32873 32874 32875 32876 32877 32878 32879 32880 32881 32882 32883 32884 32885 32886 32887 32888 32889 32890 32891 32892 32893 32894 32895 32896 32897 32898 32899 32900 32901 32902 32903 32904 32905 32906 32907 32908 32909 32910 32911 32912 32913 32914 32915 32916 32917 32918 32919 32920 32921 32922 32923 32924 32925 32926 32927 32928 32929 32930 32931 32932 32933 32934 32935 32936 32937 32938 32939 32940 32941 32942 32943 32944 32945 32946 32947 32948 32949 32950 32951 32952 32953 32954 32955 32956 32957 32958 32959 32960 32961 32962 32963 32964 32965 32966 32967 32968 32969 32970 32971 32972 32973 32974 32975 32976 32977 32978 32979 32980 32981 32982 32983 32984 32985 32986 32987 32988 32989 32990 32991 32992 32993 32994 32995 32996 32997 32998 32999 33000 33001 33002 33003 33004 33005 33006 33007 33008 33009 33010 33011 33012 33013 33014 33015 33016 33017 33018 33019 33020 33021 33022 33023 33024 33025 33026 33027 33028 33029 33030 33031 33032 33033 33034 33035 33036 33037 33038 33039 33040 33041 33042 33043 33044 33045 33046 33047 33048 33049 33050 33051 33052 33053 33054 33055 33056 33057 33058 33059 33060 33061 33062 33063 33064 33065 33066 33067 33068 33069 33070 33071 33072 33073 33074 33075 33076 33077 33078 33079 33080 33081 33082 33083 33084 33085 33086 33087 33088 33089 33090 33091 33092 33093 33094 33095 33096 33097 33098 33099 33100 33101 33102 33103 33104 33105 33106 33107 33108 33109 33110 33111 33112 33113 33114 33115 33116 33117 33118 33119 33120 33121 33122 33123 33124 33125 33126 33127 33128 33129 33130 33131 33132 33133 33134 33135 33136 33137 33138 33139 33140 33141 33142 33143 33144 33145 33146 33147 33148 33149 33150 33151 33152 33153 33154 33155 33156 33157 33158 33159 33160 33161 33162 33163 33164 33165 33166 33167 33168 33169 33170 33171 33172 33173 33174 33175 33176 33177 33178 33179 33180 33181 33182 33183 33184 33185 33186 33187 33188 33189 33190 33191 33192 33193 33194 33195 33196 33197 33198 33199 33200 33201 33202 33203 33204 33205 33206 33207 33208 33209 33210 33211 33212 33213 33214 33215 33216 33217 33218 33219 33220 33221 33222 33223 33224 33225 33226 33227 33228 33229 33230 33231 33232 33233 33234 33235 33236 33237 33238 33239 33240 33241 33242 33243 33244 33245 33246 33247 33248 33249 33250 33251 33252 33253 33254 33255 33256 33257 33258 33259 33260 33261 33262 33263 33264 33265 33266 33267 33268 33269 33270 33271 33272 33273 33274 33275 33276 33277 33278 33279 33280 33281 33282 33283 33284 33285 33286 33287 33288 33289 33290 33291 33292 33293 33294 33295 33296 33297 33298 33299 33300 33301 33302 33303 33304 33305 33306 33307 33308 33309 33310 33311 33312 33313 33314 33315 33316 33317 33318 33319 33320 33321 33322 33323 33324 33325 33326 33327 33328 33329 33330 33331 33332 33333 33334 33335 33336 33337 33338 33339 33340 33341 33342 33343 33344 33345 33346 33347 33348 33349 33350 33351 33352 33353 33354 33355 33356 33357 33358 33359 33360 33361 33362 33363 33364 33365 33366 33367 33368 33369 33370 33371 33372 33373 33374 33375 33376 33377 33378 33379 33380 33381 33382 33383 33384 33385 33386 33387 33388 33389 33390 33391 33392 33393 33394 33395 33396 33397 33398 33399 33400 33401 33402 33403 33404 33405 33406 33407 33408 33409 33410 33411 33412 33413 33414 33415 33416 33417 33418 33419 33420 33421 33422 33423 33424 33425 33426 33427 33428 33429 33430 33431 33432 33433 33434 33435 33436 33437 33438 33439 33440 33441 33442 33443 33444 33445 33446 33447 33448 33449 33450 33451 33452 33453 33454 33455 33456 33457 33458 33459 33460 33461 33462 33463 33464 33465 33466 33467 33468 33469 33470 33471 33472 33473 33474 33475 33476 33477 33478 33479 33480 33481 33482 33483 33484 33485 33486 33487 33488 33489 33490 33491 33492 33493 33494 33495 33496 33497 33498 33499 33500 33501 33502 33503 33504 33505 33506 33507 33508 33509 33510 33511 33512 33513 33514 33515 33516 33517 33518 33519 33520 33521 33522 33523 33524 33525 33526 33527 33528 33529 33530 33531 33532 33533 33534 33535 33536 33537 33538 33539 33540 33541 33542 33543 33544 33545 33546 33547 33548 33549 33550 33551 33552 33553 33554 33555 33556 33557 33558 33559 33560 33561 33562 33563 33564 33565 33566 33567 33568 33569 33570 33571 33572 33573 33574 33575 33576 33577 33578 33579 33580 33581 33582 33583 33584 33585 33586 33587 33588 33589 33590 33591 33592 33593 33594 33595 33596 33597 33598 33599 33600 33601 33602 33603 33604 33605 33606 33607 33608 33609 33610 33611 33612 33613 33614 33615 33616 33617 33618 33619 33620 33621 33622 33623 33624 33625 33626 33627 33628 33629 33630 33631 33632 33633 33634 33635 33636 33637 33638 33639 33640 33641 33642 33643 33644 33645 33646 33647 33648 33649 33650 33651 33652 33653 33654 33655 33656 33657 33658 33659 33660 33661 33662 33663 33664 33665 33666 33667 33668 33669 33670 33671 33672 33673 33674 33675 33676 33677 33678 33679 33680 33681 33682 33683 33684 33685 33686 33687 33688 33689 33690 33691 33692 33693 33694 33695 33696 33697 33698 33699 33700 33701 33702 33703 33704 33705 33706 33707 33708 33709 33710 33711 33712 33713 33714 33715 33716 33717 33718 33719 33720 33721 33722 33723 33724 33725 33726 33727 33728 33729 33730 33731 33732 33733 33734 33735 33736 33737 33738 33739 33740 33741 33742 33743 33744 33745 33746 33747 33748 33749 33750 33751 33752 33753 33754 33755 33756 33757 33758 33759 33760 33761 33762 33763 33764 33765 33766 33767 33768 33769 33770 33771 33772 33773 33774 33775 33776 33777 33778 33779 33780 33781 33782 33783 33784 33785 33786 33787 33788 33789 33790 33791 33792 33793 33794 33795 33796 33797 33798 33799 33800 33801 33802 33803 33804 33805 33806 33807 33808 33809 33810 33811 33812 33813 33814 33815 33816 33817 33818 33819 33820 33821 33822 33823 33824 33825 33826 33827 33828 33829 33830 33831 33832 33833 33834 33835 33836 33837 33838 33839 33840 33841 33842 33843 33844 33845 33846 33847 33848 33849 33850 33851 33852 33853 33854 33855 33856 33857 33858 33859 33860 33861 33862 33863 33864 33865 33866 33867 33868 33869 33870 33871 33872 33873 33874 33875 33876 33877 33878 33879 33880 33881 33882 33883 33884 33885 33886 33887 33888 33889 33890 33891 33892 33893 33894 33895 33896 33897 33898 33899 33900 33901 33902 33903 33904 33905 33906 33907 33908 33909 33910 33911 33912 33913 33914 33915 33916 33917 33918 33919 33920 33921 33922 33923 33924 33925 33926 33927 33928 33929 33930 33931 33932 33933 33934 33935 33936 33937 33938 33939 33940 33941 33942 33943 33944 33945 33946 33947 33948 33949 33950 33951 33952 33953 33954 33955 33956 33957 33958 33959 33960 33961 33962 33963 33964 33965 33966 33967 33968 33969 33970 33971 33972 33973 33974 33975 33976 33977 33978 33979 33980 33981 33982 33983 33984 33985 33986 33987 33988 33989 33990 33991 33992 33993 33994 33995 33996 33997 33998 33999 34000 34001 34002 34003 34004 34005 34006 34007 34008 34009 34010 34011 34012 34013 34014 34015 34016 34017 34018 34019 34020 34021 34022 34023 34024 34025 34026 34027 34028 34029 34030 34031 34032 34033 34034 34035 34036 34037 34038 34039 34040 34041 34042 34043 34044 34045 34046 34047 34048 34049 34050 34051 34052 34053 34054 34055 34056 34057 34058 34059 34060 34061 34062 34063 34064 34065 34066 34067 34068 34069 34070 34071 34072 34073 34074 34075 34076 34077 34078 34079 34080 34081 34082 34083 34084 34085 34086 34087 34088 34089 34090 34091 34092 34093 34094 34095 34096 34097 34098 34099 34100 34101 34102 34103 34104 34105 34106 34107 34108 34109 34110 34111 34112 34113 34114 34115 34116 34117 34118 34119 34120 34121 34122 34123 34124 34125 34126 34127 34128 34129 34130 34131 34132 34133 34134 34135 34136 34137 34138 34139 34140 34141 34142 34143 34144 34145 34146 34147 34148 34149 34150 34151 34152 34153 34154 34155 34156 34157 34158 34159 34160 34161 34162 34163 34164 34165 34166 34167 34168 34169 34170 34171 34172 34173 34174 34175 34176 34177 34178 34179 34180 34181 34182 34183 34184 34185 34186 34187 34188 34189 34190 34191 34192 34193 34194 34195 34196 34197 34198 34199 34200 34201 34202 34203 34204 34205 34206 34207 34208 34209 34210 34211 34212 34213 34214 34215 34216 34217 34218 34219 34220 34221 34222 34223 34224 34225 34226 34227 34228 34229 34230 34231 34232 34233 34234 34235 34236 34237 34238 34239 34240 34241 34242 34243 34244 34245 34246 34247 34248 34249 34250 34251 34252 34253 34254 34255 34256 34257 34258 34259 34260 34261 34262 34263 34264 34265 34266 34267 34268 34269 34270 34271 34272 34273 34274 34275 34276 34277 34278 34279 34280 34281 34282 34283 34284 34285 34286 34287 34288 34289 34290 34291 34292 34293 34294 34295 34296 34297 34298 34299 34300 34301 34302 34303 34304 34305 34306 34307 34308 34309 34310 34311 34312 34313 34314 34315 34316 34317 34318 34319 34320 34321 34322 34323 34324 34325 34326 34327 34328 34329 34330 34331 34332 34333 34334 34335 34336 34337 34338 34339 34340 34341 34342 34343 34344 34345 34346 34347 34348 34349 34350 34351 34352 34353 34354 34355 34356 34357 34358 34359 34360 34361 34362 34363 34364 34365 34366 34367 34368 34369 34370 34371 34372 34373 34374 34375 34376 34377 34378 34379 34380 34381 34382 34383 34384 34385 34386 34387 34388 34389 34390 34391 34392 34393 34394 34395 34396 34397 34398 34399 34400 34401 34402 34403 34404 34405 34406 34407 34408 34409 34410 34411 34412 34413 34414 34415 34416 34417 34418 34419 34420 34421 34422 34423 34424 34425 34426 34427 34428 34429 34430 34431 34432 34433 34434 34435 34436 34437 34438 34439 34440 34441 34442 34443 34444 34445 34446 34447 34448 34449 34450 34451 34452 34453 34454 34455 34456 34457 34458 34459 34460 34461 34462 34463 34464 34465 34466 34467 34468 34469 34470 34471 34472 34473 34474 34475 34476 34477 34478 34479 34480 34481 34482 34483 34484 34485 34486 34487 34488 34489 34490 34491 34492 34493 34494 34495 34496 34497 34498 34499 34500 34501 34502 34503 34504 34505 34506 34507 34508 34509 34510 34511 34512 34513 34514 34515 34516 34517 34518 34519 34520 34521 34522 34523 34524 34525 34526 34527 34528 34529 34530 34531 34532 34533 34534 34535 34536 34537 34538 34539 34540 34541 34542 34543 34544 34545 34546 34547 34548 34549 34550 34551 34552 34553 34554 34555 34556 34557 34558 34559 34560 34561 34562 34563 34564 34565 34566 34567 34568 34569 34570 34571 34572 34573 34574 34575 34576 34577 34578 34579 34580 34581 34582 34583 34584 34585 34586 34587 34588 34589 34590 34591 34592 34593 34594 34595 34596 34597 34598 34599 34600 34601 34602 34603 34604 34605 34606 34607 34608 34609 34610 34611 34612 34613 34614 34615 34616 34617 34618 34619 34620 34621 34622 34623 34624 34625 34626 34627 34628 34629 34630 34631 34632 34633 34634 34635 34636 34637 34638 34639 34640 34641 34642 34643 34644 34645 34646 34647 34648 34649 34650 34651 34652 34653 34654 34655 34656 34657 34658 34659 34660 34661 34662 34663 34664 34665 34666 34667 34668 34669 34670 34671 34672 34673 34674 34675 34676 34677 34678 34679 34680 34681 34682 34683 34684 34685 34686 34687 34688 34689 34690 34691 34692 34693 34694 34695 34696 34697 34698 34699 34700 34701 34702 34703 34704 34705 34706 34707 34708 34709 34710 34711 34712 34713 34714 34715 34716 34717 34718 34719 34720 34721 34722 34723 34724 34725 34726 34727 34728 34729 34730 34731 34732 34733 34734 34735 34736 34737 34738 34739 34740 34741 34742 34743 34744 34745 34746 34747 34748 34749 34750 34751 34752 34753 34754 34755 34756 34757 34758 34759 34760 34761 34762 34763 34764 34765 34766 34767 34768 34769 34770 34771 34772 34773 34774 34775 34776 34777 34778 34779 34780 34781 34782 34783 34784 34785 34786 34787 34788 34789 34790 34791 34792 34793 34794 34795 34796 34797 34798 34799 34800 34801 34802 34803 34804 34805 34806 34807 34808 34809 34810 34811 34812 34813 34814 34815 34816 34817 34818 34819 34820 34821 34822 34823 34824 34825 34826 34827 34828 34829 34830 34831 34832 34833 34834 34835 34836 34837 34838 34839 34840 34841 34842 34843 34844 34845 34846 34847 34848 34849 34850 34851 34852 34853 34854 34855 34856 34857 34858 34859 34860 34861 34862 34863 34864 34865 34866 34867 34868 34869 34870 34871 34872 34873 34874 34875 34876 34877 34878 34879 34880 34881 34882 34883 34884 34885 34886 34887 34888 34889 34890 34891 34892 34893 34894 34895 34896 34897 34898 34899 34900 34901 34902 34903 34904 34905 34906 34907 34908 34909 34910 34911 34912 34913 34914 34915 34916 34917 34918 34919 34920 34921 34922 34923 34924 34925 34926 34927 34928 34929 34930 34931 34932 34933 34934 34935 34936 34937 34938 34939 34940 34941 34942 34943 34944 34945 34946 34947 34948 34949 34950 34951 34952 34953 34954 34955 34956 34957 34958 34959 34960 34961 34962 34963 34964 34965 34966 34967 34968 34969 34970 34971 34972 34973 34974 34975 34976 34977 34978 34979 34980 34981 34982 34983 34984 34985 34986 34987 34988 34989 34990 34991 34992 34993 34994 34995 34996 34997 34998 34999 35000 35001 35002 35003 35004 35005 35006 35007 35008 35009 35010 35011 35012 35013 35014 35015 35016 35017 35018 35019 35020 35021 35022 35023 35024 35025 35026 35027 35028 35029 35030 35031 35032 35033 35034 35035 35036 35037 35038 35039 35040 35041 35042 35043 35044 35045 35046 35047 35048 35049 35050 35051 35052 35053 35054 35055 35056 35057 35058 35059 35060 35061 35062 35063 35064 35065 35066 35067 35068 35069 35070 35071 35072 35073 35074 35075 35076 35077 35078 35079 35080 35081 35082 35083 35084 35085 35086 35087 35088 35089 35090 35091 35092 35093 35094 35095 35096 35097 35098 35099 35100 35101 35102 35103 35104 35105 35106 35107 35108 35109 35110 35111 35112 35113 35114 35115 35116 35117 35118 35119 35120 35121 35122 35123 35124 35125 35126 35127 35128 35129 35130 35131 35132 35133 35134 35135 35136 35137 35138 35139 35140 35141 35142 35143 35144 35145 35146 35147 35148 35149 35150 35151 35152 35153 35154 35155 35156 35157 35158 35159 35160 35161 35162 35163 35164 35165 35166 35167 35168 35169 35170 35171 35172 35173 35174 35175 35176 35177 35178 35179 35180 35181 35182 35183 35184 35185 35186 35187 35188 35189 35190 35191 35192 35193 35194 35195 35196 35197 35198 35199 35200 35201 35202 35203 35204 35205 35206 35207 35208 35209 35210 35211 35212 35213 35214 35215 35216 35217 35218 35219 35220 35221 35222 35223 35224 35225 35226 35227 35228 35229 35230 35231 35232 35233 35234 35235 35236 35237 35238 35239 35240 35241 35242 35243 35244 35245 35246 35247 35248 35249 35250 35251 35252 35253 35254 35255 35256 35257 35258 35259 35260 35261 35262 35263 35264 35265 35266 35267 35268 35269 35270 35271 35272 35273 35274 35275 35276 35277 35278 35279 35280 35281 35282 35283 35284 35285 35286 35287 35288 35289 35290 35291 35292 35293 35294 35295 35296 35297 35298 35299 35300 35301 35302 35303 35304 35305 35306 35307 35308 35309 35310 35311 35312 35313 35314 35315 35316 35317 35318 35319 35320 35321 35322 35323 35324 35325 35326 35327 35328 35329 35330 35331 35332 35333 35334 35335 35336 35337 35338 35339 35340 35341 35342 35343 35344 35345 35346 35347 35348 35349 35350 35351 35352 35353 35354 35355 35356 35357 35358 35359 35360 35361 35362 35363 35364 35365 35366 35367 35368 35369 35370 35371 35372 35373 35374 35375 35376 35377 35378 35379 35380 35381 35382 35383 35384 35385 35386 35387 35388 35389 35390 35391 35392 35393 35394 35395 35396 35397 35398 35399 35400 35401 35402 35403 35404 35405 35406 35407 35408 35409 35410 35411 35412 35413 35414 35415 35416 35417 35418 35419 35420 35421 35422 35423 35424 35425 35426 35427 35428 35429 35430 35431 35432 35433 35434 35435 35436 35437 35438 35439 35440 35441 35442 35443 35444 35445 35446 35447 35448 35449 35450 35451 35452 35453 35454 35455 35456 35457 35458 35459 35460 35461 35462 35463 35464 35465 35466 35467 35468 35469 35470 35471 35472 35473 35474 35475 35476 35477 35478 35479 35480 35481 35482 35483 35484 35485 35486 35487 35488 35489 35490 35491 35492 35493 35494 35495 35496 35497 35498 35499 35500 35501 35502 35503 35504 35505 35506 35507 35508 35509 35510 35511 35512 35513 35514 35515 35516 35517 35518 35519 35520 35521 35522 35523 35524 35525 35526 35527 35528 35529 35530 35531 35532 35533 35534 35535 35536 35537 35538 35539 35540 35541 35542 35543 35544 35545 35546 35547 35548 35549 35550 35551 35552 35553 35554 35555 35556 35557 35558 35559 35560 35561 35562 35563 35564 35565 35566 35567 35568 35569 35570 35571 35572 35573 35574 35575 35576 35577 35578 35579 35580 35581 35582 35583 35584 35585 35586 35587 35588 35589 35590 35591 35592 35593 35594 35595 35596 35597 35598 35599 35600 35601 35602 35603 35604 35605 35606 35607 35608 35609 35610 35611 35612 35613 35614 35615 35616 35617 35618 35619 35620 35621 35622 35623 35624 35625 35626 35627 35628 35629 35630 35631 35632 35633 35634 35635 35636 35637 35638 35639 35640 35641 35642 35643 35644 35645 35646 35647 35648 35649 35650 35651 35652 35653 35654 35655 35656 35657 35658 35659 35660 35661 35662 35663 35664 35665 35666 35667 35668 35669 35670 35671 35672 35673 35674 35675 35676 35677 35678 35679 35680 35681 35682 35683 35684 35685 35686 35687 35688 35689 35690 35691 35692 35693 35694 35695 35696 35697 35698 35699 35700 35701 35702 35703 35704 35705 35706 35707 35708 35709 35710 35711 35712 35713 35714 35715 35716 35717 35718 35719 35720 35721 35722 35723 35724 35725 35726 35727 35728 35729 35730 35731 35732 35733 35734 35735 35736 35737 35738 35739 35740 35741 35742 35743 35744 35745 35746 35747 35748 35749 35750 35751 35752 35753 35754 35755 35756 35757 35758 35759 35760 35761 35762 35763 35764 35765 35766 35767 35768 35769 35770 35771 35772 35773 35774 35775 35776 35777 35778 35779 35780 35781 35782 35783 35784 35785 35786 35787 35788 35789 35790 35791 35792 35793 35794 35795 35796 35797 35798 35799 35800 35801 35802 35803 35804 35805 35806 35807 35808 35809 35810 35811 35812 35813 35814 35815 35816 35817 35818 35819 35820 35821 35822 35823 35824 35825 35826 35827 35828 35829 35830 35831 35832 35833 35834 35835 35836 35837 35838 35839 35840 35841 35842 35843 35844 35845 35846 35847 35848 35849 35850 35851 35852 35853 35854 35855 35856 35857 35858 35859 35860 35861 35862 35863 35864 35865 35866 35867 35868 35869 35870 35871 35872 35873 35874 35875 35876 35877 35878 35879 35880 35881 35882 35883 35884 35885 35886 35887 35888 35889 35890 35891 35892 35893 35894 35895 35896 35897 35898 35899 35900 35901 35902 35903 35904 35905 35906 35907 35908 35909 35910 35911 35912 35913 35914 35915 35916 35917 35918 35919 35920 35921 35922 35923 35924 35925 35926 35927 35928 35929 35930 35931 35932 35933 35934 35935 35936 35937 35938 35939 35940 35941 35942 35943 35944 35945 35946 35947 35948 35949 35950 35951 35952 35953 35954 35955 35956 35957 35958 35959 35960 35961 35962 35963 35964 35965 35966 35967 35968 35969 35970 35971 35972 35973 35974 35975 35976 35977 35978 35979 35980 35981 35982 35983 35984 35985 35986 35987 35988 35989 35990 35991 35992 35993 35994 35995 35996 35997 35998 35999 36000 36001 36002 36003 36004 36005 36006 36007 36008 36009 36010 36011 36012 36013 36014 36015 36016 36017 36018 36019 36020 36021 36022 36023 36024 36025 36026 36027 36028 36029 36030 36031 36032 36033 36034 36035 36036 36037 36038 36039 36040 36041 36042 36043 36044 36045 36046 36047 36048 36049 36050 36051 36052 36053 36054 36055 36056 36057 36058 36059 36060 36061 36062 36063 36064 36065 36066 36067 36068 36069 36070 36071 36072 36073 36074 36075 36076 36077 36078 36079 36080 36081 36082 36083 36084 36085 36086 36087 36088 36089 36090 36091 36092 36093 36094 36095 36096 36097 36098 36099 36100 36101 36102 36103 36104 36105 36106 36107 36108 36109 36110 36111 36112 36113 36114 36115 36116 36117 36118 36119 36120 36121 36122 36123 36124 36125 36126 36127 36128 36129 36130 36131 36132 36133 36134 36135 36136 36137 36138 36139 36140 36141 36142 36143 36144 36145 36146 36147 36148 36149 36150 36151 36152 36153 36154 36155 36156 36157 36158 36159 36160 36161 36162 36163 36164 36165 36166 36167 36168 36169 36170 36171 36172 36173 36174 36175 36176 36177 36178 36179 36180 36181 36182 36183 36184 36185 36186 36187 36188 36189 36190 36191 36192 36193 36194 36195 36196 36197 36198 36199 36200 36201 36202 36203 36204 36205 36206 36207 36208 36209 36210 36211 36212 36213 36214 36215 36216 36217 36218 36219 36220 36221 36222 36223 36224 36225 36226 36227 36228 36229 36230 36231 36232 36233 36234 36235 36236 36237 36238 36239 36240 36241 36242 36243 36244 36245 36246 36247 36248 36249 36250 36251 36252 36253 36254 36255 36256 36257 36258 36259 36260 36261 36262 36263 36264 36265 36266 36267 36268 36269 36270 36271 36272 36273 36274 36275 36276 36277 36278 36279 36280 36281 36282 36283 36284 36285 36286 36287 36288 36289 36290 36291 36292 36293 36294 36295 36296 36297 36298 36299 36300 36301 36302 36303 36304 36305 36306 36307 36308 36309 36310 36311 36312 36313 36314 36315 36316 36317 36318 36319 36320 36321 36322 36323 36324 36325 36326 36327 36328 36329 36330 36331 36332 36333 36334 36335 36336 36337 36338 36339 36340 36341 36342 36343 36344 36345 36346 36347 36348 36349 36350 36351 36352 36353 36354 36355 36356 36357 36358 36359 36360 36361 36362 36363 36364 36365 36366 36367 36368 36369 36370 36371 36372 36373 36374 36375 36376 36377 36378 36379 36380 36381 36382 36383 36384 36385 36386 36387 36388 36389 36390 36391 36392 36393 36394 36395 36396 36397 36398 36399 36400 36401 36402 36403 36404 36405 36406 36407 36408 36409 36410 36411 36412 36413 36414 36415 36416 36417 36418 36419 36420 36421 36422 36423 36424 36425 36426 36427 36428 36429 36430 36431 36432 36433 36434 36435 36436 36437 36438 36439 36440 36441 36442 36443 36444 36445 36446 36447 36448 36449 36450 36451 36452 36453 36454 36455 36456 36457 36458 36459 36460 36461 36462 36463 36464 36465 36466 36467 36468 36469 36470 36471 36472 36473 36474 36475 36476 36477 36478 36479 36480 36481 36482 36483 36484 36485 36486 36487 36488 36489 36490 36491 36492 36493 36494 36495 36496 36497 36498 36499 36500 36501 36502 36503 36504 36505 36506 36507 36508 36509 36510 36511 36512 36513 36514 36515 36516 36517 36518 36519 36520 36521 36522 36523 36524 36525 36526 36527 36528 36529 36530 36531 36532 36533 36534 36535 36536 36537 36538 36539 36540 36541 36542 36543 36544 36545 36546 36547 36548 36549 36550 36551 36552 36553 36554 36555 36556 36557 36558 36559 36560 36561 36562 36563 36564 36565 36566 36567 36568 36569 36570 36571 36572 36573 36574 36575 36576 36577 36578 36579 36580 36581 36582 36583 36584 36585 36586 36587 36588 36589 36590 36591 36592 36593 36594 36595 36596 36597 36598 36599 36600 36601 36602 36603 36604 36605 36606 36607 36608 36609 36610 36611 36612 36613 36614 36615 36616 36617 36618 36619 36620 36621 36622 36623 36624 36625 36626 36627 36628 36629 36630 36631 36632 36633 36634 36635 36636 36637 36638 36639 36640 36641 36642 36643 36644 36645 36646 36647 36648 36649 36650 36651 36652 36653 36654 36655 36656 36657 36658 36659 36660 36661 36662 36663 36664 36665 36666 36667 36668 36669 36670 36671 36672 36673 36674 36675 36676 36677 36678 36679 36680 36681 36682 36683 36684 36685 36686 36687 36688 36689 36690 36691 36692 36693 36694 36695 36696 36697 36698 36699 36700 36701 36702 36703 36704 36705 36706 36707 36708 36709 36710 36711 36712 36713 36714 36715 36716 36717 36718 36719 36720 36721 36722 36723 36724 36725 36726 36727 36728 36729 36730 36731 36732 36733 36734 36735 36736 36737 36738 36739 36740 36741 36742 36743 36744 36745 36746 36747 36748 36749 36750 36751 36752 36753 36754 36755 36756 36757 36758 36759 36760 36761 36762 36763 36764 36765 36766 36767 36768 36769 36770 36771 36772 36773 36774 36775 36776 36777 36778 36779 36780 36781 36782 36783 36784 36785 36786 36787 36788 36789 36790 36791 36792 36793 36794 36795 36796 36797 36798 36799 36800 36801 36802 36803 36804 36805 36806 36807 36808 36809 36810 36811 36812 36813 36814 36815 36816 36817 36818 36819 36820 36821 36822 36823 36824 36825 36826 36827 36828 36829 36830 36831 36832 36833 36834 36835 36836 36837 36838 36839 36840 36841 36842 36843 36844 36845 36846 36847 36848 36849 36850 36851 36852 36853 36854 36855 36856 36857 36858 36859 36860 36861 36862 36863 36864 36865 36866 36867 36868 36869 36870 36871 36872 36873 36874 36875 36876 36877 36878 36879 36880 36881 36882 36883 36884 36885 36886 36887 36888 36889 36890 36891 36892 36893 36894 36895 36896 36897 36898 36899 36900 36901 36902 36903 36904 36905 36906 36907 36908 36909 36910 36911 36912 36913 36914 36915 36916 36917 36918 36919 36920 36921 36922 36923 36924 36925 36926 36927 36928 36929 36930 36931 36932 36933 36934 36935 36936 36937 36938 36939 36940 36941 36942 36943 36944 36945 36946 36947 36948 36949 36950 36951 36952 36953 36954 36955 36956 36957 36958 36959 36960 36961 36962 36963 36964 36965 36966 36967 36968 36969 36970 36971 36972 36973 36974 36975 36976 36977 36978 36979 36980 36981 36982 36983 36984 36985 36986 36987 36988 36989 36990 36991 36992 36993 36994 36995 36996 36997 36998 36999 37000 37001 37002 37003 37004 37005 37006 37007 37008 37009 37010 37011 37012 37013 37014 37015 37016 37017 37018 37019 37020 37021 37022 37023 37024 37025 37026 37027 37028 37029 37030 37031 37032 37033 37034 37035 37036 37037 37038 37039 37040 37041 37042 37043 37044 37045 37046 37047 37048 37049 37050 37051 37052 37053 37054 37055 37056 37057 37058 37059 37060 37061 37062 37063 37064 37065 37066 37067 37068 37069 37070 37071 37072 37073 37074 37075 37076 37077 37078 37079 37080 37081 37082 37083 37084 37085 37086 37087 37088 37089 37090 37091 37092 37093 37094 37095 37096 37097 37098 37099 37100 37101 37102 37103 37104 37105 37106 37107 37108 37109 37110 37111 37112 37113 37114 37115 37116 37117 37118 37119 37120 37121 37122 37123 37124 37125 37126 37127 37128 37129 37130 37131 37132 37133 37134 37135 37136 37137 37138 37139 37140 37141 37142 37143 37144 37145 37146 37147 37148 37149 37150 37151 37152 37153 37154 37155 37156 37157 37158 37159 37160 37161 37162 37163 37164 37165 37166 37167 37168 37169 37170 37171 37172 37173 37174 37175 37176 37177 37178 37179 37180 37181 37182 37183 37184 37185 37186 37187 37188 37189 37190 37191 37192 37193 37194 37195 37196 37197 37198 37199 37200 37201 37202 37203 37204 37205 37206 37207 37208 37209 37210 37211 37212 37213 37214 37215 37216 37217 37218 37219 37220 37221 37222 37223 37224 37225 37226 37227 37228 37229 37230 37231 37232 37233 37234 37235 37236 37237 37238 37239 37240 37241 37242 37243 37244 37245 37246 37247 37248 37249 37250 37251 37252 37253 37254 37255 37256 37257 37258 37259 37260 37261 37262 37263 37264 37265 37266 37267 37268 37269 37270 37271 37272 37273 37274 37275 37276 37277 37278 37279 37280 37281 37282 37283 37284 37285 37286 37287 37288 37289 37290 37291 37292 37293 37294 37295 37296 37297 37298 37299 37300 37301 37302 37303 37304 37305 37306 37307 37308 37309 37310 37311 37312 37313 37314 37315 37316 37317 37318 37319 37320 37321 37322 37323 37324 37325 37326 37327 37328 37329 37330 37331 37332 37333 37334 37335 37336 37337 37338 37339 37340 37341 37342 37343 37344 37345 37346 37347 37348 37349 37350 37351 37352 37353 37354 37355 37356 37357 37358 37359 37360 37361 37362 37363 37364 37365 37366 37367 37368 37369 37370 37371 37372 37373 37374 37375 37376 37377 37378 37379 37380 37381 37382 37383 37384 37385 37386 37387 37388 37389 37390 37391 37392 37393 37394 37395 37396 37397 37398 37399 37400 37401 37402 37403 37404 37405 37406 37407 37408 37409 37410 37411 37412 37413 37414 37415 37416 37417 37418 37419 37420 37421 37422 37423 37424 37425 37426 37427 37428 37429 37430 37431 37432 37433 37434 37435 37436 37437 37438 37439 37440 37441 37442 37443 37444 37445 37446 37447 37448 37449 37450 37451 37452 37453 37454 37455 37456 37457 37458 37459 37460 37461 37462 37463 37464 37465 37466 37467 37468 37469 37470 37471 37472 37473 37474 37475 37476 37477 37478 37479 37480 37481 37482 37483 37484 37485 37486 37487 37488 37489 37490 37491 37492 37493 37494 37495 37496 37497 37498 37499 37500 37501 37502 37503 37504 37505 37506 37507 37508 37509 37510 37511 37512 37513 37514 37515 37516 37517 37518 37519 37520 37521 37522 37523 37524 37525 37526 37527 37528 37529 37530 37531 37532 37533 37534 37535 37536 37537 37538 37539 37540 37541 37542 37543 37544 37545 37546 37547 37548 37549 37550 37551 37552 37553 37554 37555 37556 37557 37558 37559 37560 37561 37562 37563 37564 37565 37566 37567 37568 37569 37570 37571 37572 37573 37574 37575 37576 37577 37578 37579 37580 37581 37582 37583 37584 37585 37586 37587 37588 37589 37590 37591 37592 37593 37594 37595 37596 37597 37598 37599 37600 37601 37602 37603 37604 37605 37606 37607 37608 37609 37610 37611 37612 37613 37614 37615 37616 37617 37618 37619 37620 37621 37622 37623 37624 37625 37626 37627 37628 37629 37630 37631 37632 37633 37634 37635 37636 37637 37638 37639 37640 37641 37642 37643 37644 37645 37646 37647 37648 37649 37650 37651 37652 37653 37654 37655 37656 37657 37658 37659 37660 37661 37662 37663 37664 37665 37666 37667 37668 37669 37670 37671 37672 37673 37674 37675 37676 37677 37678 37679 37680 37681 37682 37683 37684 37685 37686 37687 37688 37689 37690 37691 37692 37693 37694 37695 37696 37697 37698 37699 37700 37701 37702 37703 37704 37705 37706 37707 37708 37709 37710 37711 37712 37713 37714 37715 37716 37717 37718 37719 37720 37721 37722 37723 37724 37725 37726 37727 37728 37729 37730 37731 37732 37733 37734 37735 37736 37737 37738 37739 37740 37741 37742 37743 37744 37745 37746 37747 37748 37749 37750 37751 37752 37753 37754 37755 37756 37757 37758 37759 37760 37761 37762 37763 37764 37765 37766 37767 37768 37769 37770 37771 37772 37773 37774 37775 37776 37777 37778 37779 37780 37781 37782 37783 37784 37785 37786 37787 37788 37789 37790 37791 37792 37793 37794 37795 37796 37797 37798 37799 37800 37801 37802 37803 37804 37805 37806 37807 37808 37809 37810 37811 37812 37813 37814 37815 37816 37817 37818 37819 37820 37821 37822 37823 37824 37825 37826 37827 37828 37829 37830 37831 37832 37833 37834 37835 37836 37837 37838 37839 37840 37841 37842 37843 37844 37845 37846 37847 37848 37849 37850 37851 37852 37853 37854 37855 37856 37857 37858 37859 37860 37861 37862 37863 37864 37865 37866 37867 37868 37869 37870 37871 37872 37873 37874 37875 37876 37877 37878 37879 37880 37881 37882 37883 37884 37885 37886 37887 37888 37889 37890 37891 37892 37893 37894 37895 37896 37897 37898 37899 37900 37901 37902 37903 37904 37905 37906 37907 37908 37909 37910 37911 37912 37913 37914 37915 37916 37917 37918 37919 37920 37921 37922 37923 37924 37925 37926 37927 37928 37929 37930 37931 37932 37933 37934 37935 37936 37937 37938 37939 37940 37941 37942 37943 37944 37945 37946 37947 37948 37949 37950 37951 37952 37953 37954 37955 37956 37957 37958 37959 37960 37961 37962 37963 37964 37965 37966 37967 37968 37969 37970 37971 37972 37973 37974 37975 37976 37977 37978 37979 37980 37981 37982 37983 37984 37985 37986 37987 37988 37989 37990 37991 37992 37993 37994 37995 37996 37997 37998 37999 38000 38001 38002 38003 38004 38005 38006 38007 38008 38009 38010 38011 38012 38013 38014 38015 38016 38017 38018 38019 38020 38021 38022 38023 38024 38025 38026 38027 38028 38029 38030 38031 38032 38033 38034 38035 38036 38037 38038 38039 38040 38041 38042 38043 38044 38045 38046 38047 38048 38049 38050 38051 38052 38053 38054 38055 38056 38057 38058 38059 38060 38061 38062 38063 38064 38065 38066 38067 38068 38069 38070 38071 38072 38073 38074 38075 38076 38077 38078 38079 38080 38081 38082 38083 38084 38085 38086 38087 38088 38089 38090 38091 38092 38093 38094 38095 38096 38097 38098 38099 38100 38101 38102 38103 38104 38105 38106 38107 38108 38109 38110 38111 38112 38113 38114 38115 38116 38117 38118 38119 38120 38121 38122 38123 38124 38125 38126 38127 38128 38129 38130 38131 38132 38133 38134 38135 38136 38137 38138 38139 38140 38141 38142 38143 38144 38145 38146 38147 38148 38149 38150 38151 38152 38153 38154 38155 38156 38157 38158 38159 38160 38161 38162 38163 38164 38165 38166 38167 38168 38169 38170 38171 38172 38173 38174 38175 38176 38177 38178 38179 38180 38181 38182 38183 38184 38185 38186 38187 38188 38189 38190 38191 38192 38193 38194 38195 38196 38197 38198 38199 38200 38201 38202 38203 38204 38205 38206 38207 38208 38209 38210 38211 38212 38213 38214 38215 38216 38217 38218 38219 38220 38221 38222 38223 38224 38225 38226 38227 38228 38229 38230 38231 38232 38233 38234 38235 38236 38237 38238 38239 38240 38241 38242 38243 38244 38245 38246 38247 38248 38249 38250 38251 38252 38253 38254 38255 38256 38257 38258 38259 38260 38261 38262 38263 38264 38265 38266 38267 38268 38269 38270 38271 38272 38273 38274 38275 38276 38277 38278 38279 38280 38281 38282 38283 38284 38285 38286 38287 38288 38289 38290 38291 38292 38293 38294 38295 38296 38297 38298 38299 38300 38301 38302 38303 38304 38305 38306 38307 38308 38309 38310 38311 38312 38313 38314 38315 38316 38317 38318 38319 38320 38321 38322 38323 38324 38325 38326 38327 38328 38329 38330 38331 38332 38333 38334 38335 38336 38337 38338 38339 38340 38341 38342 38343 38344 38345 38346 38347 38348 38349 38350 38351 38352 38353 38354 38355 38356 38357 38358 38359 38360 38361 38362 38363 38364 38365 38366 38367 38368 38369 38370 38371 38372 38373 38374 38375 38376 38377 38378 38379 38380 38381 38382 38383 38384 38385 38386 38387 38388 38389 38390 38391 38392 38393 38394 38395 38396 38397 38398 38399 38400 38401 38402 38403 38404 38405 38406 38407 38408 38409 38410 38411 38412 38413 38414 38415 38416 38417 38418 38419 38420 38421 38422 38423 38424 38425 38426 38427 38428 38429 38430 38431 38432 38433 38434 38435 38436 38437 38438 38439 38440 38441 38442 38443 38444 38445 38446 38447 38448 38449 38450 38451 38452 38453 38454 38455 38456 38457 38458 38459 38460 38461 38462 38463 38464 38465 38466 38467 38468 38469 38470 38471 38472 38473 38474 38475 38476 38477 38478 38479 38480 38481 38482 38483 38484 38485 38486 38487 38488 38489 38490 38491 38492 38493 38494 38495 38496 38497 38498 38499 38500 38501 38502 38503 38504 38505 38506 38507 38508 38509 38510 38511 38512 38513 38514 38515 38516 38517 38518 38519 38520 38521 38522 38523 38524 38525 38526 38527 38528 38529 38530 38531 38532 38533 38534 38535 38536 38537 38538 38539 38540 38541 38542 38543 38544 38545 38546 38547 38548 38549 38550 38551 38552 38553 38554 38555 38556 38557 38558 38559 38560 38561 38562 38563 38564 38565 38566 38567 38568 38569 38570 38571 38572 38573 38574 38575 38576 38577 38578 38579 38580 38581 38582 38583 38584 38585 38586 38587 38588 38589 38590 38591 38592 38593 38594 38595 38596 38597 38598 38599 38600 38601 38602 38603 38604 38605 38606 38607 38608 38609 38610 38611 38612 38613 38614 38615 38616 38617 38618 38619 38620 38621 38622 38623 38624 38625 38626 38627 38628 38629 38630 38631 38632 38633 38634 38635 38636 38637 38638 38639 38640 38641 38642 38643 38644 38645 38646 38647 38648 38649 38650 38651 38652 38653 38654 38655 38656 38657 38658 38659 38660 38661 38662 38663 38664 38665 38666 38667 38668 38669 38670 38671 38672 38673 38674 38675 38676 38677 38678 38679 38680 38681 38682 38683 38684 38685 38686 38687 38688 38689 38690 38691 38692 38693 38694 38695 38696 38697 38698 38699 38700 38701 38702 38703 38704 38705 38706 38707 38708 38709 38710 38711 38712 38713 38714 38715 38716 38717 38718 38719 38720 38721 38722 38723 38724 38725 38726 38727 38728 38729 38730 38731 38732 38733 38734 38735 38736 38737 38738 38739 38740 38741 38742 38743 38744 38745 38746 38747 38748 38749 38750 38751 38752 38753 38754 38755 38756 38757 38758 38759 38760 38761 38762 38763 38764 38765 38766 38767 38768 38769 38770 38771 38772 38773 38774 38775 38776 38777 38778 38779 38780 38781 38782 38783 38784 38785 38786 38787 38788 38789 38790 38791 38792 38793 38794 38795 38796 38797 38798 38799 38800 38801 38802 38803 38804 38805 38806 38807 38808 38809 38810 38811 38812 38813 38814 38815 38816 38817 38818 38819 38820 38821 38822 38823 38824 38825 38826 38827 38828 38829 38830 38831 38832 38833 38834 38835 38836 38837 38838 38839 38840 38841 38842 38843 38844 38845 38846 38847 38848 38849 38850 38851 38852 38853 38854 38855 38856 38857 38858 38859 38860 38861 38862 38863 38864 38865 38866 38867 38868 38869 38870 38871 38872 38873 38874 38875 38876 38877 38878 38879 38880 38881 38882 38883 38884 38885 38886 38887 38888 38889 38890 38891 38892 38893 38894 38895 38896 38897 38898 38899 38900 38901 38902 38903 38904 38905 38906 38907 38908 38909 38910 38911 38912 38913 38914 38915 38916 38917 38918 38919 38920 38921 38922 38923 38924 38925 38926 38927 38928 38929 38930 38931 38932 38933 38934 38935 38936 38937 38938 38939 38940 38941 38942 38943 38944 38945 38946 38947 38948 38949 38950 38951 38952 38953 38954 38955 38956 38957 38958 38959 38960 38961 38962 38963 38964 38965 38966 38967 38968 38969 38970 38971 38972 38973 38974 38975 38976 38977 38978 38979 38980 38981 38982 38983 38984 38985 38986 38987 38988 38989 38990 38991 38992 38993 38994 38995 38996 38997 38998 38999 39000 39001 39002 39003 39004 39005 39006 39007 39008 39009 39010 39011 39012 39013 39014 39015 39016 39017 39018 39019 39020 39021 39022 39023 39024 39025 39026 39027 39028 39029 39030 39031 39032 39033 39034 39035 39036 39037 39038 39039 39040 39041 39042 39043 39044 39045 39046 39047 39048 39049 39050 39051 39052 39053 39054 39055 39056 39057 39058 39059 39060 39061 39062 39063 39064 39065 39066 39067 39068 39069 39070 39071 39072 39073 39074 39075 39076 39077 39078 39079 39080 39081 39082 39083 39084 39085 39086 39087 39088 39089 39090 39091 39092 39093 39094 39095 39096 39097 39098 39099 39100 39101 39102 39103 39104 39105 39106 39107 39108 39109 39110 39111 39112 39113 39114 39115 39116 39117 39118 39119 39120 39121 39122 39123 39124 39125 39126 39127 39128 39129 39130 39131 39132 39133 39134 39135 39136 39137 39138 39139 39140 39141 39142 39143 39144 39145 39146 39147 39148 39149 39150 39151 39152 39153 39154 39155 39156 39157 39158 39159 39160 39161 39162 39163 39164 39165 39166 39167 39168 39169 39170 39171 39172 39173 39174 39175 39176 39177 39178 39179 39180 39181 39182 39183 39184 39185 39186 39187 39188 39189 39190 39191 39192 39193 39194 39195 39196 39197 39198 39199 39200 39201 39202 39203 39204 39205 39206 39207 39208 39209 39210 39211 39212 39213 39214 39215 39216 39217 39218 39219 39220 39221 39222 39223 39224 39225 39226 39227 39228 39229 39230 39231 39232 39233 39234 39235 39236 39237 39238 39239 39240 39241 39242 39243 39244 39245 39246 39247 39248 39249 39250 39251 39252 39253 39254 39255 39256 39257 39258 39259 39260 39261 39262 39263 39264 39265 39266 39267 39268 39269 39270 39271 39272 39273 39274 39275 39276 39277 39278 39279 39280 39281 39282 39283 39284 39285 39286 39287 39288 39289 39290 39291 39292 39293 39294 39295 39296 39297 39298 39299 39300 39301 39302 39303 39304 39305 39306 39307 39308 39309 39310 39311 39312 39313 39314 39315 39316 39317 39318 39319 39320 39321 39322 39323 39324 39325 39326 39327 39328 39329 39330 39331 39332 39333 39334 39335 39336 39337 39338 39339 39340 39341 39342 39343 39344 39345 39346 39347 39348 39349 39350 39351 39352 39353 39354 39355 39356 39357 39358 39359 39360 39361 39362 39363 39364 39365 39366 39367 39368 39369 39370 39371 39372 39373 39374 39375 39376 39377 39378 39379 39380 39381 39382 39383 39384 39385 39386 39387 39388 39389 39390 39391 39392 39393 39394 39395 39396 39397 39398 39399 39400 39401 39402 39403 39404 39405 39406 39407 39408 39409 39410 39411 39412 39413 39414 39415 39416 39417 39418 39419 39420 39421 39422 39423 39424 39425 39426 39427 39428 39429 39430 39431 39432 39433 39434 39435 39436 39437 39438 39439 39440 39441 39442 39443 39444 39445 39446 39447 39448 39449 39450 39451 39452 39453 39454 39455 39456 39457 39458 39459 39460 39461 39462 39463 39464 39465 39466 39467 39468 39469 39470 39471 39472 39473 39474 39475 39476 39477 39478 39479 39480 39481 39482 39483 39484 39485 39486 39487 39488 39489 39490 39491 39492 39493 39494 39495 39496 39497 39498 39499 39500 39501 39502 39503 39504 39505 39506 39507 39508 39509 39510 39511 39512 39513 39514 39515 39516 39517 39518 39519 39520 39521 39522 39523 39524 39525 39526 39527 39528 39529 39530 39531 39532 39533 39534 39535 39536 39537 39538 39539 39540 39541 39542 39543 39544 39545 39546 39547 39548 39549 39550 39551 39552 39553 39554 39555 39556 39557 39558 39559 39560 39561 39562 39563 39564 39565 39566 39567 39568 39569 39570 39571 39572 39573 39574 39575 39576 39577 39578 39579 39580 39581 39582 39583 39584 39585 39586 39587 39588 39589 39590 39591 39592 39593 39594 39595 39596 39597 39598 39599 39600 39601 39602 39603 39604 39605 39606 39607 39608 39609 39610 39611 39612 39613 39614 39615 39616 39617 39618 39619 39620 39621 39622 39623 39624 39625 39626 39627 39628 39629 39630 39631 39632 39633 39634 39635 39636 39637 39638 39639 39640 39641 39642 39643 39644 39645 39646 39647 39648 39649 39650 39651 39652 39653 39654 39655 39656 39657 39658 39659 39660 39661 39662 39663 39664 39665 39666 39667 39668 39669 39670 39671 39672 39673 39674 39675 39676 39677 39678 39679 39680 39681 39682 39683 39684 39685 39686 39687 39688 39689 39690 39691 39692 39693 39694 39695 39696 39697 39698 39699 39700 39701 39702 39703 39704 39705 39706 39707 39708 39709 39710 39711 39712 39713 39714 39715 39716 39717 39718 39719 39720 39721 39722 39723 39724 39725 39726 39727 39728 39729 39730 39731 39732 39733 39734 39735 39736 39737 39738 39739 39740 39741 39742 39743 39744 39745 39746 39747 39748 39749 39750 39751 39752 39753 39754 39755 39756 39757 39758 39759 39760 39761 39762 39763 39764 39765 39766 39767 39768 39769 39770 39771 39772 39773 39774 39775 39776 39777 39778 39779 39780 39781 39782 39783 39784 39785 39786 39787 39788 39789 39790 39791 39792 39793 39794 39795 39796 39797 39798 39799 39800 39801 39802 39803 39804 39805 39806 39807 39808 39809 39810 39811 39812 39813 39814 39815 39816 39817 39818 39819 39820 39821 39822 39823 39824 39825 39826 39827 39828 39829 39830 39831 39832 39833 39834 39835 39836 39837 39838 39839 39840 39841 39842 39843 39844 39845 39846 39847 39848 39849 39850 39851 39852 39853 39854 39855 39856 39857 39858 39859 39860 39861 39862 39863 39864 39865 39866 39867 39868 39869 39870 39871 39872 39873 39874 39875 39876 39877 39878 39879 39880 39881 39882 39883 39884 39885 39886 39887 39888 39889 39890 39891 39892 39893 39894 39895 39896 39897 39898 39899 39900 39901 39902 39903 39904 39905 39906 39907 39908 39909 39910 39911 39912 39913 39914 39915 39916 39917 39918 39919 39920 39921 39922 39923 39924 39925 39926 39927 39928 39929 39930 39931 39932 39933 39934 39935 39936 39937 39938 39939 39940 39941 39942 39943 39944 39945 39946 39947 39948 39949 39950 39951 39952 39953 39954 39955 39956 39957 39958 39959 39960 39961 39962 39963 39964 39965 39966 39967 39968 39969 39970 39971 39972 39973 39974 39975 39976 39977 39978 39979 39980 39981 39982 39983 39984 39985 39986 39987 39988 39989 39990 39991 39992 39993 39994 39995 39996 39997 39998 39999 40000 40001 40002 40003 40004 40005 40006 40007 40008 40009 40010 40011 40012 40013 40014 40015 40016 40017 40018 40019 40020 40021 40022 40023 40024 40025 40026 40027 40028 40029 40030 40031 40032 40033 40034 40035 40036 40037 40038 40039 40040 40041 40042 40043 40044 40045 40046 40047 40048 40049 40050 40051 40052 40053 40054 40055 40056 40057 40058 40059 40060 40061 40062 40063 40064 40065 40066 40067 40068 40069 40070 40071 40072 40073 40074 40075 40076 40077 40078 40079 40080 40081 40082 40083 40084 40085 40086 40087 40088 40089 40090 40091 40092 40093 40094 40095 40096 40097 40098 40099 40100 40101 40102 40103 40104 40105 40106 40107 40108 40109 40110 40111 40112 40113 40114 40115 40116 40117 40118 40119 40120 40121 40122 40123 40124 40125 40126 40127 40128 40129 40130 40131 40132 40133 40134 40135 40136 40137 40138 40139 40140 40141 40142 40143 40144 40145 40146 40147 40148 40149 40150 40151 40152 40153 40154 40155 40156 40157 40158 40159 40160 40161 40162 40163 40164 40165 40166 40167 40168 40169 40170 40171 40172 40173 40174 40175 40176 40177 40178 40179 40180 40181 40182 40183 40184 40185 40186 40187 40188 40189 40190 40191 40192 40193 40194 40195 40196 40197 40198 40199 40200 40201 40202 40203 40204 40205 40206 40207 40208 40209 40210 40211 40212 40213 40214 40215 40216 40217 40218 40219 40220 40221 40222 40223 40224 40225 40226 40227 40228 40229 40230 40231 40232 40233 40234 40235 40236 40237 40238 40239 40240 40241 40242 40243 40244 40245 40246 40247 40248 40249 40250 40251 40252 40253 40254 40255 40256 40257 40258 40259 40260 40261 40262 40263 40264 40265 40266 40267 40268 40269 40270 40271 40272 40273 40274 40275 40276 40277 40278 40279 40280 40281 40282 40283 40284 40285 40286 40287 40288 40289 40290 40291 40292 40293 40294 40295 40296 40297 40298 40299 40300 40301 40302 40303 40304 40305 40306 40307 40308 40309 40310 40311 40312 40313 40314 40315 40316 40317 40318 40319 40320 40321 40322 40323 40324 40325 40326 40327 40328 40329 40330 40331 40332 40333 40334 40335 40336 40337 40338 40339 40340 40341 40342 40343 40344 40345 40346 40347 40348 40349 40350 40351 40352 40353 40354 40355 40356 40357 40358 40359 40360 40361 40362 40363 40364 40365 40366 40367 40368 40369 40370 40371 40372 40373 40374 40375 40376 40377 40378 40379 40380 40381 40382 40383 40384 40385 40386 40387 40388 40389 40390 40391 40392 40393 40394 40395 40396 40397 40398 40399 40400 40401 40402 40403 40404 40405 40406 40407 40408 40409 40410 40411 40412 40413 40414 40415 40416 40417 40418 40419 40420 40421 40422 40423 40424 40425 40426 40427 40428 40429 40430 40431 40432 40433 40434 40435 40436 40437 40438 40439 40440 40441 40442 40443 40444 40445 40446 40447 40448 40449 40450 40451 40452 40453 40454 40455 40456 40457 40458 40459 40460 40461 40462 40463 40464 40465 40466 40467 40468 40469 40470 40471 40472 40473 40474 40475 40476 40477 40478 40479 40480 40481 40482 40483 40484 40485 40486 40487 40488 40489 40490 40491 40492 40493 40494 40495 40496 40497 40498 40499 40500 40501 40502 40503 40504 40505 40506 40507 40508 40509 40510 40511 40512 40513 40514 40515 40516 40517 40518 40519 40520 40521 40522 40523 40524 40525 40526 40527 40528 40529 40530 40531 40532 40533 40534 40535 40536 40537 40538 40539 40540 40541 40542 40543 40544 40545 40546 40547 40548 40549 40550 40551 40552 40553 40554 40555 40556 40557 40558 40559 40560 40561 40562 40563 40564 40565 40566 40567 40568 40569 40570 40571 40572 40573 40574 40575 40576 40577 40578 40579 40580 40581 40582 40583 40584 40585 40586 40587 40588 40589 40590 40591 40592 40593 40594 40595 40596 40597 40598 40599 40600 40601 40602 40603 40604 40605 40606 40607 40608 40609 40610 40611 40612 40613 40614 40615 40616 40617 40618 40619 40620 40621 40622 40623 40624 40625 40626 40627 40628 40629 40630 40631 40632 40633 40634 40635 40636 40637 40638 40639 40640 40641 40642 40643 40644 40645 40646 40647 40648 40649 40650 40651 40652 40653 40654 40655 40656 40657 40658 40659 40660 40661 40662 40663 40664 40665 40666 40667 40668 40669 40670 40671 40672 40673 40674 40675 40676 40677 40678 40679 40680 40681 40682 40683 40684 40685 40686 40687 40688 40689 40690 40691 40692 40693 40694 40695 40696 40697 40698 40699 40700 40701 40702 40703 40704 40705 40706 40707 40708 40709 40710 40711 40712 40713 40714 40715 40716 40717 40718 40719 40720 40721 40722 40723 40724 40725 40726 40727 40728 40729 40730 40731 40732 40733 40734 40735 40736 40737 40738 40739 40740 40741 40742 40743 40744 40745 40746 40747 40748 40749 40750 40751 40752 40753 40754 40755 40756 40757 40758 40759 40760 40761 40762 40763 40764 40765 40766 40767 40768 40769 40770 40771 40772 40773 40774 40775 40776 40777 40778 40779 40780 40781 40782 40783 40784 40785 40786 40787 40788 40789 40790 40791 40792 40793 40794 40795 40796 40797 40798 40799 40800 40801 40802 40803 40804 40805 40806 40807 40808 40809 40810 40811 40812 40813 40814 40815 40816 40817 40818 40819 40820 40821 40822 40823 40824 40825 40826 40827 40828 40829 40830 40831 40832 40833 40834 40835 40836 40837 40838 40839 40840 40841 40842 40843 40844 40845 40846 40847 40848 40849 40850 40851 40852 40853 40854 40855 40856 40857 40858 40859 40860 40861 40862 40863 40864 40865 40866 40867 40868 40869 40870 40871 40872 40873 40874 40875 40876 40877 40878 40879 40880 40881 40882 40883 40884 40885 40886 40887 40888 40889 40890 40891 40892 40893 40894 40895 40896 40897 40898 40899 40900 40901 40902 40903 40904 40905 40906 40907 40908 40909 40910 40911 40912 40913 40914 40915 40916 40917 40918 40919 40920 40921 40922 40923 40924 40925 40926 40927 40928 40929 40930 40931 40932 40933 40934 40935 40936 40937 40938 40939 40940 40941 40942 40943 40944 40945 40946 40947 40948 40949 40950 40951 40952 40953 40954 40955 40956 40957 40958 40959 40960 40961 40962 40963 40964 40965 40966 40967 40968 40969 40970 40971 40972 40973 40974 40975 40976 40977 40978 40979 40980 40981 40982 40983 40984 40985 40986 40987 40988 40989 40990 40991 40992 40993 40994 40995 40996 40997 40998 40999 41000 41001 41002 41003 41004 41005 41006 41007 41008 41009 41010 41011 41012 41013 41014 41015 41016 41017 41018 41019 41020 41021 41022 41023 41024 41025 41026 41027 41028 41029 41030 41031 41032 41033 41034 41035 41036 41037 41038 41039 41040 41041 41042 41043 41044 41045 41046 41047 41048 41049 41050 41051 41052 41053 41054 41055 41056 41057 41058 41059 41060 41061 41062 41063 41064 41065 41066 41067 41068 41069 41070 41071 41072 41073 41074 41075 41076 41077 41078 41079 41080 41081 41082 41083 41084 41085 41086 41087 41088 41089 41090 41091 41092 41093 41094 41095 41096 41097 41098 41099 41100 41101 41102 41103 41104 41105 41106 41107 41108 41109 41110 41111 41112 41113 41114 41115 41116 41117 41118 41119 41120 41121 41122 41123 41124 41125 41126 41127 41128 41129 41130 41131 41132 41133 41134 41135 41136 41137 41138 41139 41140 41141 41142 41143 41144 41145 41146 41147 41148 41149 41150 41151 41152 41153 41154 41155 41156 41157 41158 41159 41160 41161 41162 41163 41164 41165 41166 41167 41168 41169 41170 41171 41172 41173 41174 41175 41176 41177 41178 41179 41180 41181 41182 41183 41184 41185 41186 41187 41188 41189 41190 41191 41192 41193 41194 41195 41196 41197 41198 41199 41200 41201 41202 41203 41204 41205 41206 41207 41208 41209 41210 41211 41212 41213 41214 41215 41216 41217 41218 41219 41220 41221 41222 41223 41224 41225 41226 41227 41228 41229 41230 41231 41232 41233 41234 41235 41236 41237 41238 41239 41240 41241 41242 41243 41244 41245 41246 41247 41248 41249 41250 41251 41252 41253 41254 41255 41256 41257 41258 41259 41260 41261 41262 41263 41264 41265 41266 41267 41268 41269 41270 41271 41272 41273 41274 41275 41276 41277 41278 41279 41280 41281 41282 41283 41284 41285 41286 41287 41288 41289 41290 41291 41292 41293 41294 41295 41296 41297 41298 41299 41300 41301 41302 41303 41304 41305 41306 41307 41308 41309 41310 41311 41312 41313 41314 41315 41316 41317 41318 41319 41320 41321 41322 41323 41324 41325 41326 41327 41328 41329 41330 41331 41332 41333 41334 41335 41336 41337 41338 41339 41340 41341 41342 41343 41344 41345 41346 41347 41348 41349 41350 41351 41352 41353 41354 41355 41356 41357 41358 41359 41360 41361 41362 41363 41364 41365 41366 41367 41368 41369 41370 41371 41372 41373 41374 41375 41376 41377 41378 41379 41380 41381 41382 41383 41384 41385 41386 41387 41388 41389 41390 41391 41392 41393 41394 41395 41396 41397 41398 41399 41400 41401 41402 41403 41404 41405 41406 41407 41408 41409 41410 41411 41412 41413 41414 41415 41416 41417 41418 41419 41420 41421 41422 41423 41424 41425 41426 41427 41428 41429 41430 41431 41432 41433 41434 41435 41436 41437 41438 41439 41440 41441 41442 41443 41444 41445 41446 41447 41448 41449 41450 41451 41452 41453 41454 41455 41456 41457 41458 41459 41460 41461 41462 41463 41464 41465 41466 41467 41468 41469 41470 41471 41472 41473 41474 41475 41476 41477 41478 41479 41480 41481 41482 41483 41484 41485 41486 41487 41488 41489 41490 41491 41492 41493 41494 41495 41496 41497 41498 41499 41500 41501 41502 41503 41504 41505 41506 41507 41508 41509 41510 41511 41512 41513 41514 41515 41516 41517 41518 41519 41520 41521 41522 41523 41524 41525 41526 41527 41528 41529 41530 41531 41532 41533 41534 41535 41536 41537 41538 41539 41540 41541 41542 41543 41544 41545 41546 41547 41548 41549 41550 41551 41552 41553 41554 41555 41556 41557 41558 41559 41560 41561 41562 41563 41564 41565 41566 41567 41568 41569 41570 41571 41572 41573 41574 41575 41576 41577 41578 41579 41580 41581 41582 41583 41584 41585 41586 41587 41588 41589 41590 41591 41592 41593 41594 41595 41596 41597 41598 41599 41600 41601 41602 41603 41604 41605 41606 41607 41608 41609 41610 41611 41612 41613 41614 41615 41616 41617 41618 41619 41620 41621 41622 41623 41624 41625 41626 41627 41628 41629 41630 41631 41632 41633 41634 41635 41636 41637 41638 41639 41640 41641 41642 41643 41644 41645 41646 41647 41648 41649 41650 41651 41652 41653 41654 41655 41656 41657 41658 41659 41660 41661 41662 41663 41664 41665 41666 41667 41668 41669 41670 41671 41672 41673 41674 41675 41676 41677 41678 41679 41680 41681 41682 41683 41684 41685 41686 41687 41688 41689 41690 41691 41692 41693 41694 41695 41696 41697 41698 41699 41700 41701 41702 41703 41704 41705 41706 41707 41708 41709 41710 41711 41712 41713 41714 41715 41716 41717 41718 41719 41720 41721 41722 41723 41724 41725 41726 41727 41728 41729 41730 41731 41732 41733 41734 41735 41736 41737 41738 41739 41740 41741 41742 41743 41744 41745 41746 41747 41748 41749 41750 41751 41752 41753 41754 41755 41756 41757 41758 41759 41760 41761 41762 41763 41764 41765 41766 41767 41768 41769 41770 41771 41772 41773 41774 41775 41776 41777 41778 41779 41780 41781 41782 41783 41784 41785 41786 41787 41788 41789 41790 41791 41792 41793 41794 41795 41796 41797 41798 41799 41800 41801 41802 41803 41804 41805 41806 41807 41808 41809 41810 41811 41812 41813 41814 41815 41816 41817 41818 41819 41820 41821 41822 41823 41824 41825 41826 41827 41828 41829 41830 41831 41832 41833 41834 41835 41836 41837 41838 41839 41840 41841 41842 41843 41844 41845 41846 41847 41848 41849 41850 41851 41852 41853 41854 41855 41856 41857 41858 41859 41860 41861 41862 41863 41864 41865 41866 41867 41868 41869 41870 41871 41872 41873 41874 41875 41876 41877 41878 41879 41880 41881 41882 41883 41884 41885 41886 41887 41888 41889 41890 41891 41892 41893 41894 41895 41896 41897 41898 41899 41900 41901 41902 41903 41904 41905 41906 41907 41908 41909 41910 41911 41912 41913 41914 41915 41916 41917 41918 41919 41920 41921 41922 41923 41924 41925 41926 41927 41928 41929 41930 41931 41932 41933 41934 41935 41936 41937 41938 41939 41940 41941 41942 41943 41944 41945 41946 41947 41948 41949 41950 41951 41952 41953 41954 41955 41956 41957 41958 41959 41960 41961 41962 41963 41964 41965 41966 41967 41968 41969 41970 41971 41972 41973 41974 41975 41976 41977 41978 41979 41980 41981 41982 41983 41984 41985 41986 41987 41988 41989 41990 41991 41992 41993 41994 41995 41996 41997 41998 41999 42000 42001 42002 42003 42004 42005 42006 42007 42008 42009 42010 42011 42012 42013 42014 42015 42016 42017 42018 42019 42020 42021 42022 42023 42024 42025 42026 42027 42028 42029 42030 42031 42032 42033 42034 42035 42036 42037 42038 42039 42040 42041 42042 42043 42044 42045 42046 42047 42048 42049 42050 42051 42052 42053 42054 42055 42056 42057 42058 42059 42060 42061 42062 42063 42064 42065 42066 42067 42068 42069 42070 42071 42072 42073 42074 42075 42076 42077 42078 42079 42080 42081 42082 42083 42084 42085 42086 42087 42088 42089 42090 42091 42092 42093 42094 42095 42096 42097 42098 42099 42100 42101 42102 42103 42104 42105 42106 42107 42108 42109 42110 42111 42112 42113 42114 42115 42116 42117 42118 42119 42120 42121 42122 42123 42124 42125 42126 42127 42128 42129 42130 42131 42132 42133 42134 42135 42136 42137 42138 42139 42140 42141 42142 42143 42144 42145 42146 42147 42148 42149 42150 42151 42152 42153 42154 42155 42156 42157 42158 42159 42160 42161 42162 42163 42164 42165 42166 42167 42168 42169 42170 42171 42172 42173 42174 42175 42176 42177 42178 42179 42180 42181 42182 42183 42184 42185 42186 42187 42188 42189 42190 42191 42192 42193 42194 42195 42196 42197 42198 42199 42200 42201 42202 42203 42204 42205 42206 42207 42208 42209 42210 42211 42212 42213 42214 42215 42216 42217 42218 42219 42220 42221 42222 42223 42224 42225 42226 42227 42228 42229 42230 42231 42232 42233 42234 42235 42236 42237 42238 42239 42240 42241 42242 42243 42244 42245 42246 42247 42248 42249 42250 42251 42252 42253 42254 42255 42256 42257 42258 42259 42260 42261 42262 42263 42264 42265 42266 42267 42268 42269 42270 42271 42272 42273 42274 42275 42276 42277 42278 42279 42280 42281 42282 42283 42284 42285 42286 42287 42288 42289 42290 42291 42292 42293 42294 42295 42296 42297 42298 42299 42300 42301 42302 42303 42304 42305 42306 42307 42308 42309 42310 42311 42312 42313 42314 42315 42316 42317 42318 42319 42320 42321 42322 42323 42324 42325 42326 42327 42328 42329 42330 42331 42332 42333 42334 42335 42336 42337 42338 42339 42340 42341 42342 42343 42344 42345 42346 42347 42348 42349 42350 42351 42352 42353 42354 42355 42356 42357 42358 42359 42360 42361 42362 42363 42364 42365 42366 42367 42368 42369 42370 42371 42372 42373 42374 42375 42376 42377 42378 42379 42380 42381 42382 42383 42384 42385 42386 42387 42388 42389 42390 42391 42392 42393 42394 42395 42396 42397 42398 42399 42400 42401 42402 42403 42404 42405 42406 42407 42408 42409 42410 42411 42412 42413 42414 42415 42416 42417 42418 42419 42420 42421 42422 42423 42424 42425 42426 42427 42428 42429 42430 42431 42432 42433 42434 42435 42436 42437 42438 42439 42440 42441 42442 42443 42444 42445 42446 42447 42448 42449 42450 42451 42452 42453 42454 42455 42456 42457 42458 42459 42460 42461 42462 42463 42464 42465 42466 42467 42468 42469 42470 42471 42472 42473 42474 42475 42476 42477 42478 42479 42480 42481 42482 42483 42484 42485 42486 42487 42488 42489 42490 42491 42492 42493 42494 42495 42496 42497 42498 42499 42500 42501 42502 42503 42504 42505 42506 42507 42508 42509 42510 42511 42512 42513 42514 42515 42516 42517 42518 42519 42520 42521 42522 42523 42524 42525 42526 42527 42528 42529 42530 42531 42532 42533 42534 42535 42536 42537 42538 42539 42540 42541 42542 42543 42544 42545 42546 42547 42548 42549 42550 42551 42552 42553 42554 42555 42556 42557 42558 42559 42560 42561 42562 42563 42564 42565 42566 42567 42568 42569 42570 42571 42572 42573 42574 42575 42576 42577 42578 42579 42580 42581 42582 42583 42584 42585 42586 42587 42588 42589 42590 42591 42592 42593 42594 42595 42596 42597 42598 42599 42600 42601 42602 42603 42604 42605 42606 42607 42608 42609 42610 42611 42612 42613 42614 42615 42616 42617 42618 42619 42620 42621 42622 42623 42624 42625 42626 42627 42628 42629 42630 42631 42632 42633 42634 42635 42636 42637 42638 42639 42640 42641 42642 42643 42644 42645 42646 42647 42648 42649 42650 42651 42652 42653 42654 42655 42656 42657 42658 42659 42660 42661 42662 42663 42664 42665 42666 42667 42668 42669 42670 42671 42672 42673 42674 42675 42676 42677 42678 42679 42680 42681 42682 42683 42684 42685 42686 42687 42688 42689 42690 42691 42692 42693 42694 42695 42696 42697 42698 42699 42700 42701 42702 42703 42704 42705 42706 42707 42708 42709 42710 42711 42712 42713 42714 42715 42716 42717 42718 42719 42720 42721 42722 42723 42724 42725 42726 42727 42728 42729 42730 42731 42732 42733 42734 42735 42736 42737 42738 42739 42740 42741 42742 42743 42744 42745 42746 42747 42748 42749 42750 42751 42752 42753 42754 42755 42756 42757 42758 42759 42760 42761 42762 42763 42764 42765 42766 42767 42768 42769 42770 42771 42772 42773 42774 42775 42776 42777 42778 42779 42780 42781 42782 42783 42784 42785 42786 42787 42788 42789 42790 42791 42792 42793 42794 42795 42796 42797 42798 42799 42800 42801 42802 42803 42804 42805 42806 42807 42808 42809 42810 42811 42812 42813 42814 42815 42816 42817 42818 42819 42820 42821 42822 42823 42824 42825 42826 42827 42828 42829 42830 42831 42832 42833 42834 42835 42836 42837 42838 42839 42840 42841 42842 42843 42844 42845 42846 42847 42848 42849 42850 42851 42852 42853 42854 42855 42856 42857 42858 42859 42860 42861 42862 42863 42864 42865 42866 42867 42868 42869 42870 42871 42872 42873 42874 42875 42876 42877 42878 42879 42880 42881 42882 42883 42884 42885 42886 42887 42888 42889 42890 42891 42892 42893 42894 42895 42896 42897 42898 42899 42900 42901 42902 42903 42904 42905 42906 42907 42908 42909 42910 42911 42912 42913 42914 42915 42916 42917 42918 42919 42920 42921 42922 42923 42924 42925 42926 42927 42928 42929 42930 42931 42932 42933 42934 42935 42936 42937 42938 42939 42940 42941 42942 42943 42944 42945 42946 42947 42948 42949 42950 42951 42952 42953 42954 42955 42956 42957 42958 42959 42960 42961 42962 42963 42964 42965 42966 42967 42968 42969 42970 42971 42972 42973 42974 42975 42976 42977 42978 42979 42980 42981 42982 42983 42984 42985 42986 42987 42988 42989 42990 42991 42992 42993 42994 42995 42996 42997 42998 42999 43000 43001 43002 43003 43004 43005 43006 43007 43008 43009 43010 43011 43012 43013 43014 43015 43016 43017 43018 43019 43020 43021 43022 43023 43024 43025 43026 43027 43028 43029 43030 43031 43032 43033 43034 43035 43036 43037 43038 43039 43040 43041 43042 43043 43044 43045 43046 43047 43048 43049 43050 43051 43052 43053 43054 43055 43056 43057 43058 43059 43060 43061 43062 43063 43064 43065 43066 43067 43068 43069 43070 43071 43072 43073 43074 43075 43076 43077 43078 43079 43080 43081 43082 43083 43084 43085 43086 43087 43088 43089 43090 43091 43092 43093 43094 43095 43096 43097 43098 43099 43100 43101 43102 43103 43104 43105 43106 43107 43108 43109 43110 43111 43112 43113 43114 43115 43116 43117 43118 43119 43120 43121 43122 43123 43124 43125 43126 43127 43128 43129 43130 43131 43132 43133 43134 43135 43136 43137 43138 43139 43140 43141 43142 43143 43144 43145 43146 43147 43148 43149 43150 43151 43152 43153 43154 43155 43156 43157 43158 43159 43160 43161 43162 43163 43164 43165 43166 43167 43168 43169 43170 43171 43172 43173 43174 43175 43176 43177 43178 43179 43180 43181 43182 43183 43184 43185 43186 43187 43188 43189 43190 43191 43192 43193 43194 43195 43196 43197 43198 43199 43200 43201 43202 43203 43204 43205 43206 43207 43208 43209 43210 43211 43212 43213 43214 43215 43216 43217 43218 43219 43220 43221 43222 43223 43224 43225 43226 43227 43228 43229 43230 43231 43232 43233 43234 43235 43236 43237 43238 43239 43240 43241 43242 43243 43244 43245 43246 43247 43248 43249 43250 43251 43252 43253 43254 43255 43256 43257 43258 43259 43260 43261 43262 43263 43264 43265 43266 43267 43268 43269 43270 43271 43272 43273 43274 43275 43276 43277 43278 43279 43280 43281 43282 43283 43284 43285 43286 43287 43288 43289 43290 43291 43292 43293 43294 43295 43296 43297 43298 43299 43300 43301 43302 43303 43304 43305 43306 43307 43308 43309 43310 43311 43312 43313 43314 43315 43316 43317 43318 43319 43320 43321 43322 43323 43324 43325 43326 43327 43328 43329 43330 43331 43332 43333 43334 43335 43336 43337 43338 43339 43340 43341 43342 43343 43344 43345 43346 43347 43348 43349 43350 43351 43352 43353 43354 43355 43356 43357 43358 43359 43360 43361 43362 43363 43364 43365 43366 43367 43368 43369 43370 43371 43372 43373 43374 43375 43376 43377 43378 43379 43380 43381 43382 43383 43384 43385 43386 43387 43388 43389 43390 43391 43392 43393 43394 43395 43396 43397 43398 43399 43400 43401 43402 43403 43404 43405 43406 43407 43408 43409 43410 43411 43412 43413 43414 43415 43416 43417 43418 43419 43420 43421 43422 43423 43424 43425 43426 43427 43428 43429 43430 43431 43432 43433 43434 43435 43436 43437 43438 43439 43440 43441 43442 43443 43444 43445 43446 43447 43448 43449 43450 43451 43452 43453 43454 43455 43456 43457 43458 43459 43460 43461 43462 43463 43464 43465 43466 43467 43468 43469 43470 43471 43472 43473 43474 43475 43476 43477 43478 43479 43480 43481 43482 43483 43484 43485 43486 43487 43488 43489 43490 43491 43492 43493 43494 43495 43496 43497 43498 43499 43500 43501 43502 43503 43504 43505 43506 43507 43508 43509 43510 43511 43512 43513 43514 43515 43516 43517 43518 43519 43520 43521 43522 43523 43524 43525 43526 43527 43528 43529 43530 43531 43532 43533 43534 43535 43536 43537 43538 43539 43540 43541 43542 43543 43544 43545 43546 43547 43548 43549 43550 43551 43552 43553 43554 43555 43556 43557 43558 43559 43560 43561 43562 43563 43564 43565 43566 43567 43568 43569 43570 43571 43572 43573 43574 43575 43576 43577 43578 43579 43580 43581 43582 43583 43584 43585 43586 43587 43588 43589 43590 43591 43592 43593 43594 43595 43596 43597 43598 43599 43600 43601 43602 43603 43604 43605 43606 43607 43608 43609 43610 43611 43612 43613 43614 43615 43616 43617 43618 43619 43620 43621 43622 43623 43624 43625 43626 43627 43628 43629 43630 43631 43632 43633 43634 43635 43636 43637 43638 43639 43640 43641 43642 43643 43644 43645 43646 43647 43648 43649 43650 43651 43652 43653 43654 43655 43656 43657 43658 43659 43660 43661 43662 43663 43664 43665 43666 43667 43668 43669 43670 43671 43672 43673 43674 43675 43676 43677 43678 43679 43680 43681 43682 43683 43684 43685 43686 43687 43688 43689 43690 43691 43692 43693 43694 43695 43696 43697 43698 43699 43700 43701 43702 43703 43704 43705 43706 43707 43708 43709 43710 43711 43712 43713 43714 43715 43716 43717 43718 43719 43720 43721 43722 43723 43724 43725 43726 43727 43728 43729 43730 43731 43732 43733 43734 43735 43736 43737 43738 43739 43740 43741 43742 43743 43744 43745 43746 43747 43748 43749 43750 43751 43752 43753 43754 43755 43756 43757 43758 43759 43760 43761 43762 43763 43764 43765 43766 43767 43768 43769 43770 43771 43772 43773 43774 43775 43776 43777 43778 43779 43780 43781 43782 43783 43784 43785 43786 43787 43788 43789 43790 43791 43792 43793 43794 43795 43796 43797 43798 43799 43800 43801 43802 43803 43804 43805 43806 43807 43808 43809 43810 43811 43812 43813 43814 43815 43816 43817 43818 43819 43820 43821 43822 43823 43824 43825 43826 43827 43828 43829 43830 43831 43832 43833 43834 43835 43836 43837 43838 43839 43840 43841 43842 43843 43844 43845 43846 43847 43848 43849 43850 43851 43852 43853 43854 43855 43856 43857 43858 43859 43860 43861 43862 43863 43864 43865 43866 43867 43868 43869 43870 43871 43872 43873 43874 43875 43876 43877 43878 43879 43880 43881 43882 43883 43884 43885 43886 43887 43888 43889 43890 43891 43892 43893 43894 43895 43896 43897 43898 43899 43900 43901 43902 43903 43904 43905 43906 43907 43908 43909 43910 43911 43912 43913 43914 43915 43916 43917 43918 43919 43920 43921 43922 43923 43924 43925 43926 43927 43928 43929 43930 43931 43932 43933 43934 43935 43936 43937 43938 43939 43940 43941 43942 43943 43944 43945 43946 43947 43948 43949 43950 43951 43952 43953 43954 43955 43956 43957 43958 43959 43960 43961 43962 43963 43964 43965 43966 43967 43968 43969 43970 43971 43972 43973 43974 43975 43976 43977 43978 43979 43980 43981 43982 43983 43984 43985 43986 43987 43988 43989 43990 43991 43992 43993 43994 43995 43996 43997 43998 43999 44000 44001 44002 44003 44004 44005 44006 44007 44008 44009 44010 44011 44012 44013 44014 44015 44016 44017 44018 44019 44020 44021 44022 44023 44024 44025 44026 44027 44028 44029 44030 44031 44032 44033 44034 44035 44036 44037 44038 44039 44040 44041 44042 44043 44044 44045 44046 44047 44048 44049 44050 44051 44052 44053 44054 44055 44056 44057 44058 44059 44060 44061 44062 44063 44064 44065 44066 44067 44068 44069 44070 44071 44072 44073 44074 44075 44076 44077 44078 44079 44080 44081 44082 44083 44084 44085 44086 44087 44088 44089 44090 44091 44092 44093 44094 44095 44096 44097 44098 44099 44100 44101 44102 44103 44104 44105 44106 44107 44108 44109 44110 44111 44112 44113 44114 44115 44116 44117 44118 44119 44120 44121 44122 44123 44124 44125 44126 44127 44128 44129 44130 44131 44132 44133 44134 44135 44136 44137 44138 44139 44140 44141 44142 44143 44144 44145 44146 44147 44148 44149 44150 44151 44152 44153 44154 44155 44156 44157 44158 44159 44160 44161 44162 44163 44164 44165 44166 44167 44168 44169 44170 44171 44172 44173 44174 44175 44176 44177 44178 44179 44180 44181 44182 44183 44184 44185 44186 44187 44188 44189 44190 44191 44192 44193 44194 44195 44196 44197 44198 44199 44200 44201 44202 44203 44204 44205 44206 44207 44208 44209 44210 44211 44212 44213 44214 44215 44216 44217 44218 44219 44220 44221 44222 44223 44224 44225 44226 44227 44228 44229 44230 44231 44232 44233 44234 44235 44236 44237 44238 44239 44240 44241 44242 44243 44244 44245 44246 44247 44248 44249 44250 44251 44252 44253 44254 44255 44256 44257 44258 44259 44260 44261 44262 44263 44264 44265 44266 44267 44268 44269 44270 44271 44272 44273 44274 44275 44276 44277 44278 44279 44280 44281 44282 44283 44284 44285 44286 44287 44288 44289 44290 44291 44292 44293 44294 44295 44296 44297 44298 44299 44300 44301 44302 44303 44304 44305 44306 44307 44308 44309 44310 44311 44312 44313 44314 44315 44316 44317 44318 44319 44320 44321 44322 44323 44324 44325 44326 44327 44328 44329 44330 44331 44332 44333 44334 44335 44336 44337 44338 44339 44340 44341 44342 44343 44344 44345 44346 44347 44348 44349 44350 44351 44352 44353 44354 44355 44356 44357 44358 44359 44360 44361 44362 44363 44364 44365 44366 44367 44368 44369 44370 44371 44372 44373 44374 44375 44376 44377 44378 44379 44380 44381 44382 44383 44384 44385 44386 44387 44388 44389 44390 44391 44392 44393 44394 44395 44396 44397 44398 44399 44400 44401 44402 44403 44404 44405 44406 44407 44408 44409 44410 44411 44412 44413 44414 44415 44416 44417 44418 44419 44420 44421 44422 44423 44424 44425 44426 44427 44428 44429 44430 44431 44432 44433 44434 44435 44436 44437 44438 44439 44440 44441 44442 44443 44444 44445 44446 44447 44448 44449 44450 44451 44452 44453 44454 44455 44456 44457 44458 44459 44460 44461 44462 44463 44464 44465 44466 44467 44468 44469 44470 44471 44472 44473 44474 44475 44476 44477 44478 44479 44480 44481 44482 44483 44484 44485 44486 44487 44488 44489 44490 44491 44492 44493 44494 44495 44496 44497 44498 44499 44500 44501 44502 44503 44504 44505 44506 44507 44508 44509 44510 44511 44512 44513 44514 44515 44516 44517 44518 44519 44520 44521 44522 44523 44524 44525 44526 44527 44528 44529 44530 44531 44532 44533 44534 44535 44536 44537 44538 44539 44540 44541 44542 44543 44544 44545 44546 44547 44548 44549 44550 44551 44552 44553 44554 44555 44556 44557 44558 44559 44560 44561 44562 44563 44564 44565 44566 44567 44568 44569 44570 44571 44572 44573 44574 44575 44576 44577 44578 44579 44580 44581 44582 44583 44584 44585 44586 44587 44588 44589 44590 44591 44592 44593 44594 44595 44596 44597 44598 44599 44600 44601 44602 44603 44604 44605 44606 44607 44608 44609 44610 44611 44612 44613 44614 44615 44616 44617 44618 44619 44620 44621 44622 44623 44624 44625 44626 44627 44628 44629 44630 44631 44632 44633 44634 44635 44636 44637 44638 44639 44640 44641 44642 44643 44644 44645 44646 44647 44648 44649 44650 44651 44652 44653 44654 44655 44656 44657 44658 44659 44660 44661 44662 44663 44664 44665 44666 44667 44668 44669 44670 44671 44672 44673 44674 44675 44676 44677 44678 44679 44680 44681 44682 44683 44684 44685 44686 44687 44688 44689 44690 44691 44692 44693 44694 44695 44696 44697 44698 44699 44700 44701 44702 44703 44704 44705 44706 44707 44708 44709 44710 44711 44712 44713 44714 44715 44716 44717 44718 44719 44720 44721 44722 44723 44724 44725 44726 44727 44728 44729 44730 44731 44732 44733 44734 44735 44736 44737 44738 44739 44740 44741 44742 44743 44744 44745 44746 44747 44748 44749 44750 44751 44752 44753 44754 44755 44756 44757 44758 44759 44760 44761 44762 44763 44764 44765 44766 44767 44768 44769 44770 44771 44772 44773 44774 44775 44776 44777 44778 44779 44780 44781 44782 44783 44784 44785 44786 44787 44788 44789 44790 44791 44792 44793 44794 44795 44796 44797 44798 44799 44800 44801 44802 44803 44804 44805 44806 44807 44808 44809 44810 44811 44812 44813 44814 44815 44816 44817 44818 44819 44820 44821 44822 44823 44824 44825 44826 44827 44828 44829 44830 44831 44832 44833 44834 44835 44836 44837 44838 44839 44840 44841 44842 44843 44844 44845 44846 44847 44848 44849 44850 44851 44852 44853 44854 44855 44856 44857 44858 44859 44860 44861 44862 44863 44864 44865 44866 44867 44868 44869 44870 44871 44872 44873 44874 44875 44876 44877 44878 44879 44880 44881 44882 44883 44884 44885 44886 44887 44888 44889 44890 44891 44892 44893 44894 44895 44896 44897 44898 44899 44900 44901 44902 44903 44904 44905 44906 44907 44908 44909 44910 44911 44912 44913 44914 44915 44916 44917 44918 44919 44920 44921 44922 44923 44924 44925 44926 44927 44928 44929 44930 44931 44932 44933 44934 44935 44936 44937 44938 44939 44940 44941 44942 44943 44944 44945 44946 44947 44948 44949 44950 44951 44952 44953 44954 44955 44956 44957 44958 44959 44960 44961 44962 44963 44964 44965 44966 44967 44968 44969 44970 44971 44972 44973 44974 44975 44976 44977 44978 44979 44980 44981 44982 44983 44984 44985 44986 44987 44988 44989 44990 44991 44992 44993 44994 44995 44996 44997 44998 44999 45000 45001 45002 45003 45004 45005 45006 45007 45008 45009 45010 45011 45012 45013 45014 45015 45016 45017 45018 45019 45020 45021 45022 45023 45024 45025 45026 45027 45028 45029 45030 45031 45032 45033 45034 45035 45036 45037 45038 45039 45040 45041 45042 45043 45044 45045 45046 45047 45048 45049 45050 45051 45052 45053 45054 45055 45056 45057 45058 45059 45060 45061 45062 45063 45064 45065 45066 45067 45068 45069 45070 45071 45072 45073 45074 45075 45076 45077 45078 45079 45080 45081 45082 45083 45084 45085 45086 45087 45088 45089 45090 45091 45092 45093 45094 45095 45096 45097 45098 45099 45100 45101 45102 45103 45104 45105 45106 45107 45108 45109 45110 45111 45112 45113 45114 45115 45116 45117 45118 45119 45120 45121 45122 45123 45124 45125 45126 45127 45128 45129 45130 45131 45132 45133 45134 45135 45136 45137 45138 45139 45140 45141 45142 45143 45144 45145 45146 45147 45148 45149 45150 45151 45152 45153 45154 45155 45156 45157 45158 45159 45160 45161 45162 45163 45164 45165 45166 45167 45168 45169 45170 45171 45172 45173 45174 45175 45176 45177 45178 45179 45180 45181 45182 45183 45184 45185 45186 45187 45188 45189 45190 45191 45192 45193 45194 45195 45196 45197 45198 45199 45200 45201 45202 45203 45204 45205 45206 45207 45208 45209 45210 45211 45212 45213 45214 45215 45216 45217 45218 45219 45220 45221 45222 45223 45224 45225 45226 45227 45228 45229 45230 45231 45232 45233 45234 45235 45236 45237 45238 45239 45240 45241 45242 45243 45244 45245 45246 45247 45248 45249 45250 45251 45252 45253 45254 45255 45256 45257 45258 45259 45260 45261 45262 45263 45264 45265 45266 45267 45268 45269 45270 45271 45272 45273 45274 45275 45276 45277 45278 45279 45280 45281 45282 45283 45284 45285 45286 45287 45288 45289 45290 45291 45292 45293 45294 45295 45296 45297 45298 45299 45300 45301 45302 45303 45304 45305 45306 45307 45308 45309 45310 45311 45312 45313 45314 45315 45316 45317 45318 45319 45320 45321 45322 45323 45324 45325 45326 45327 45328 45329 45330 45331 45332 45333 45334 45335 45336 45337 45338 45339 45340 45341 45342 45343 45344 45345 45346 45347 45348 45349 45350 45351 45352 45353 45354 45355 45356 45357 45358 45359 45360 45361 45362 45363 45364 45365 45366 45367 45368 45369 45370 45371 45372 45373 45374 45375 45376 45377 45378 45379 45380 45381 45382 45383 45384 45385 45386 45387 45388 45389 45390 45391 45392 45393 45394 45395 45396 45397 45398 45399 45400 45401 45402 45403 45404 45405 45406 45407 45408 45409 45410 45411 45412 45413 45414 45415 45416 45417 45418 45419 45420 45421 45422 45423 45424 45425 45426 45427 45428 45429 45430 45431 45432 45433 45434 45435 45436 45437 45438 45439 45440 45441 45442 45443 45444 45445 45446 45447 45448 45449 45450 45451 45452 45453 45454 45455 45456 45457 45458 45459 45460 45461 45462 45463 45464 45465 45466 45467 45468 45469 45470 45471 45472 45473 45474 45475 45476 45477 45478 45479 45480 45481 45482 45483 45484 45485 45486 45487 45488 45489 45490 45491 45492 45493 45494 45495 45496 45497 45498 45499 45500 45501 45502 45503 45504 45505 45506 45507 45508 45509 45510 45511 45512 45513 45514 45515 45516 45517 45518 45519 45520 45521 45522 45523 45524 45525 45526 45527 45528 45529 45530 45531 45532 45533 45534 45535 45536 45537 45538 45539 45540 45541 45542 45543 45544 45545 45546 45547 45548 45549 45550 45551 45552 45553 45554 45555 45556 45557 45558 45559 45560 45561 45562 45563 45564 45565 45566 45567 45568 45569 45570 45571 45572 45573 45574 45575 45576 45577 45578 45579 45580 45581 45582 45583 45584 45585 45586 45587 45588 45589 45590 45591 45592 45593 45594 45595 45596 45597 45598 45599 45600 45601 45602 45603 45604 45605 45606 45607 45608 45609 45610 45611 45612 45613 45614 45615 45616 45617 45618 45619 45620 45621 45622 45623 45624 45625 45626 45627 45628 45629 45630 45631 45632 45633 45634 45635 45636 45637 45638 45639 45640 45641 45642 45643 45644 45645 45646 45647 45648 45649 45650 45651 45652 45653 45654 45655 45656 45657 45658 45659 45660 45661 45662 45663 45664 45665 45666 45667 45668 45669 45670 45671 45672 45673 45674 45675 45676 45677 45678 45679 45680 45681 45682 45683 45684 45685 45686 45687 45688 45689 45690 45691 45692 45693 45694 45695 45696 45697 45698 45699 45700 45701 45702 45703 45704 45705 45706 45707 45708 45709 45710 45711 45712 45713 45714 45715 45716 45717 45718 45719 45720 45721 45722 45723 45724 45725 45726 45727 45728 45729 45730 45731 45732 45733 45734 45735 45736 45737 45738 45739 45740 45741 45742 45743 45744 45745 45746 45747 45748 45749 45750 45751 45752 45753 45754 45755 45756 45757 45758 45759 45760 45761 45762 45763 45764 45765 45766 45767 45768 45769 45770 45771 45772 45773 45774 45775 45776 45777 45778 45779 45780 45781 45782 45783 45784 45785 45786 45787 45788 45789 45790 45791 45792 45793 45794 45795 45796 45797 45798 45799 45800 45801 45802 45803 45804 45805 45806 45807 45808 45809 45810 45811 45812 45813 45814 45815 45816 45817 45818 45819 45820 45821 45822 45823 45824 45825 45826 45827 45828 45829 45830 45831 45832 45833 45834 45835 45836 45837 45838 45839 45840 45841 45842 45843 45844 45845 45846 45847 45848 45849 45850 45851 45852 45853 45854 45855 45856 45857 45858 45859 45860 45861 45862 45863 45864 45865 45866 45867 45868 45869 45870 45871 45872 45873 45874 45875 45876 45877 45878 45879 45880 45881 45882 45883 45884 45885 45886 45887 45888 45889 45890 45891 45892 45893 45894 45895 45896 45897 45898 45899 45900 45901 45902 45903 45904 45905 45906 45907 45908 45909 45910 45911 45912 45913 45914 45915 45916 45917 45918 45919 45920 45921 45922 45923 45924 45925 45926 45927 45928 45929 45930 45931 45932 45933 45934 45935 45936 45937 45938 45939 45940 45941 45942 45943 45944 45945 45946 45947 45948 45949 45950 45951 45952 45953 45954 45955 45956 45957 45958 45959 45960 45961 45962 45963 45964 45965 45966 45967 45968 45969 45970 45971 45972 45973 45974 45975 45976 45977 45978 45979 45980 45981 45982 45983 45984 45985 45986 45987 45988 45989 45990 45991 45992 45993 45994 45995 45996 45997 45998 45999 46000 46001 46002 46003 46004 46005 46006 46007 46008 46009 46010 46011 46012 46013 46014 46015 46016 46017 46018 46019 46020 46021 46022 46023 46024 46025 46026 46027 46028 46029 46030 46031 46032 46033 46034 46035 46036 46037 46038 46039 46040 46041 46042 46043 46044 46045 46046 46047 46048 46049 46050 46051 46052 46053 46054 46055 46056 46057 46058 46059 46060 46061 46062 46063 46064 46065 46066 46067 46068 46069 46070 46071 46072 46073 46074 46075 46076 46077 46078 46079 46080 46081 46082 46083 46084 46085 46086 46087 46088 46089 46090 46091 46092 46093 46094 46095 46096 46097 46098 46099 46100 46101 46102 46103 46104 46105 46106 46107 46108 46109 46110 46111 46112 46113 46114 46115 46116 46117 46118 46119 46120 46121 46122 46123 46124 46125 46126 46127 46128 46129 46130 46131 46132 46133 46134 46135 46136 46137 46138 46139 46140 46141 46142 46143 46144 46145 46146 46147 46148 46149 46150 46151 46152 46153 46154 46155 46156 46157 46158 46159 46160 46161 46162 46163 46164 46165 46166 46167 46168 46169 46170 46171 46172 46173 46174 46175 46176 46177 46178 46179 46180 46181 46182 46183 46184 46185 46186 46187 46188 46189 46190 46191 46192 46193 46194 46195 46196 46197 46198 46199 46200 46201 46202 46203 46204 46205 46206 46207 46208 46209 46210 46211 46212 46213 46214 46215 46216 46217 46218 46219 46220 46221 46222 46223 46224 46225 46226 46227 46228 46229 46230 46231 46232 46233 46234 46235 46236 46237 46238 46239 46240 46241 46242 46243 46244 46245 46246 46247 46248 46249 46250 46251 46252 46253 46254 46255 46256 46257 46258 46259 46260 46261 46262 46263 46264 46265 46266 46267 46268 46269 46270 46271 46272 46273 46274 46275 46276 46277 46278 46279 46280 46281 46282 46283 46284 46285 46286 46287 46288 46289 46290 46291 46292 46293 46294 46295 46296 46297 46298 46299 46300 46301 46302 46303 46304 46305 46306 46307 46308 46309 46310 46311 46312 46313 46314 46315 46316 46317 46318 46319 46320 46321 46322 46323 46324 46325 46326 46327 46328 46329 46330 46331 46332 46333 46334 46335 46336 46337 46338 46339 46340 46341 46342 46343 46344 46345 46346 46347 46348 46349 46350 46351 46352 46353 46354 46355 46356 46357 46358 46359 46360 46361 46362 46363 46364 46365 46366 46367 46368 46369 46370 46371 46372 46373 46374 46375 46376 46377 46378 46379 46380 46381 46382 46383 46384 46385 46386 46387 46388 46389 46390 46391 46392 46393 46394 46395 46396 46397 46398 46399 46400 46401 46402 46403 46404 46405 46406 46407 46408 46409 46410 46411 46412 46413 46414 46415 46416 46417 46418 46419 46420 46421 46422 46423 46424 46425 46426 46427 46428 46429 46430 46431 46432 46433 46434 46435 46436 46437 46438 46439 46440 46441 46442 46443 46444 46445 46446 46447 46448 46449 46450 46451 46452 46453 46454 46455 46456 46457 46458 46459 46460 46461 46462 46463 46464 46465 46466 46467 46468 46469 46470 46471 46472 46473 46474 46475 46476 46477 46478 46479 46480 46481 46482 46483 46484 46485 46486 46487 46488 46489 46490 46491 46492 46493 46494 46495 46496 46497 46498 46499 46500 46501 46502 46503 46504 46505 46506 46507 46508 46509 46510 46511 46512 46513 46514 46515 46516 46517 46518 46519 46520 46521 46522 46523 46524 46525 46526 46527 46528 46529 46530 46531 46532 46533 46534 46535 46536 46537 46538 46539 46540 46541 46542 46543 46544 46545 46546 46547 46548 46549 46550 46551 46552 46553 46554 46555 46556 46557 46558 46559 46560 46561 46562 46563 46564 46565 46566 46567 46568 46569 46570 46571 46572 46573 46574 46575 46576 46577 46578 46579 46580 46581 46582 46583 46584 46585 46586 46587 46588 46589 46590 46591 46592 46593 46594 46595 46596 46597 46598 46599 46600 46601 46602 46603 46604 46605 46606 46607 46608 46609 46610 46611 46612 46613 46614 46615 46616 46617 46618 46619 46620 46621 46622 46623 46624 46625 46626 46627 46628 46629 46630 46631 46632 46633 46634 46635 46636 46637 46638 46639 46640 46641 46642 46643 46644 46645 46646 46647 46648 46649 46650 46651 46652 46653 46654 46655 46656 46657 46658 46659 46660 46661 46662 46663 46664 46665 46666 46667 46668 46669 46670 46671 46672 46673 46674 46675 46676 46677 46678 46679 46680 46681 46682 46683 46684 46685 46686 46687 46688 46689 46690 46691 46692 46693 46694 46695 46696 46697 46698 46699 46700 46701 46702 46703 46704 46705 46706 46707 46708 46709 46710 46711 46712 46713 46714 46715 46716 46717 46718 46719 46720 46721 46722 46723 46724 46725 46726 46727 46728 46729 46730 46731 46732 46733 46734 46735 46736 46737 46738 46739 46740 46741 46742 46743 46744 46745 46746 46747 46748 46749 46750 46751 46752 46753 46754 46755 46756 46757 46758 46759 46760 46761 46762 46763 46764 46765 46766 46767 46768 46769 46770 46771 46772 46773 46774 46775 46776 46777 46778 46779 46780 46781 46782 46783 46784 46785 46786 46787 46788 46789 46790 46791 46792 46793 46794 46795 46796 46797 46798 46799 46800 46801 46802 46803 46804 46805 46806 46807 46808 46809 46810 46811 46812 46813 46814 46815 46816 46817 46818 46819 46820 46821 46822 46823 46824 46825 46826 46827 46828 46829 46830 46831 46832 46833 46834 46835 46836 46837 46838 46839 46840 46841 46842 46843 46844 46845 46846 46847 46848 46849 46850 46851 46852 46853 46854 46855 46856 46857 46858 46859 46860 46861 46862 46863 46864 46865 46866 46867 46868 46869 46870 46871 46872 46873 46874 46875 46876 46877 46878 46879 46880 46881 46882 46883 46884 46885 46886 46887 46888 46889 46890 46891 46892 46893 46894 46895 46896 46897 46898 46899 46900 46901 46902 46903 46904 46905 46906 46907 46908 46909 46910 46911 46912 46913 46914 46915 46916 46917 46918 46919 46920 46921 46922 46923 46924 46925 46926 46927 46928 46929 46930 46931 46932 46933 46934 46935 46936 46937 46938 46939 46940 46941 46942 46943 46944 46945 46946 46947 46948 46949 46950 46951 46952 46953 46954 46955 46956 46957 46958 46959 46960 46961 46962 46963 46964 46965 46966 46967 46968 46969 46970 46971 46972 46973 46974 46975 46976 46977 46978 46979 46980 46981 46982 46983 46984 46985 46986 46987 46988 46989 46990 46991 46992 46993 46994 46995 46996 46997 46998 46999 47000 47001 47002 47003 47004 47005 47006 47007 47008 47009 47010 47011 47012 47013 47014 47015 47016 47017 47018 47019 47020 47021 47022 47023 47024 47025 47026 47027 47028 47029 47030 47031 47032 47033 47034 47035 47036 47037 47038 47039 47040 47041 47042 47043 47044 47045 47046 47047 47048 47049 47050 47051 47052 47053 47054 47055 47056 47057 47058 47059 47060 47061 47062 47063 47064 47065 47066 47067 47068 47069 47070 47071 47072 47073 47074 47075 47076 47077 47078 47079 47080 47081 47082 47083 47084 47085 47086 47087 47088 47089 47090 47091 47092 47093 47094 47095 47096 47097 47098 47099 47100 47101 47102 47103 47104 47105 47106 47107 47108 47109 47110 47111 47112 47113 47114 47115 47116 47117 47118 47119 47120 47121 47122 47123 47124 47125 47126 47127 47128 47129 47130 47131 47132 47133 47134 47135 47136 47137 47138 47139 47140 47141 47142 47143 47144 47145 47146 47147 47148 47149 47150 47151 47152 47153 47154 47155 47156 47157 47158 47159 47160 47161 47162 47163 47164 47165 47166 47167 47168 47169 47170 47171 47172 47173 47174 47175 47176 47177 47178 47179 47180 47181 47182 47183 47184 47185 47186 47187 47188 47189 47190 47191 47192 47193 47194 47195 47196 47197 47198 47199 47200 47201 47202 47203 47204 47205 47206 47207 47208 47209 47210 47211 47212 47213 47214 47215 47216 47217 47218 47219 47220 47221 47222 47223 47224 47225 47226 47227 47228 47229 47230 47231 47232 47233 47234 47235 47236 47237 47238 47239 47240 47241 47242 47243 47244 47245 47246 47247 47248 47249 47250 47251 47252 47253 47254 47255 47256 47257 47258 47259 47260 47261 47262 47263 47264 47265 47266 47267 47268 47269 47270 47271 47272 47273 47274 47275 47276 47277 47278 47279 47280 47281 47282 47283 47284 47285 47286 47287 47288 47289 47290 47291 47292 47293 47294 47295 47296 47297 47298 47299 47300 47301 47302 47303 47304 47305 47306 47307 47308 47309 47310 47311 47312 47313 47314 47315 47316 47317 47318 47319 47320 47321 47322 47323 47324 47325 47326 47327 47328 47329 47330 47331 47332 47333 47334 47335 47336 47337 47338 47339 47340 47341 47342 47343 47344 47345 47346 47347 47348 47349 47350 47351 47352 47353 47354 47355 47356 47357 47358 47359 47360 47361 47362 47363 47364 47365 47366 47367 47368 47369 47370 47371 47372 47373 47374 47375 47376 47377 47378 47379 47380 47381 47382 47383 47384 47385 47386 47387 47388 47389 47390 47391 47392 47393 47394 47395 47396 47397 47398 47399 47400 47401 47402 47403 47404 47405 47406 47407 47408 47409 47410 47411 47412 47413 47414 47415 47416 47417 47418 47419 47420 47421 47422 47423 47424 47425 47426 47427 47428 47429 47430 47431 47432 47433 47434 47435 47436 47437 47438 47439 47440 47441 47442 47443 47444 47445 47446 47447 47448 47449 47450 47451 47452 47453 47454 47455 47456 47457 47458 47459 47460 47461 47462 47463 47464 47465 47466 47467 47468 47469 47470 47471 47472 47473 47474 47475 47476 47477 47478 47479 47480 47481 47482 47483 47484 47485 47486 47487 47488 47489 47490 47491 47492 47493 47494 47495 47496 47497 47498 47499 47500 47501 47502 47503 47504 47505 47506 47507 47508 47509 47510 47511 47512 47513 47514 47515 47516 47517 47518 47519 47520 47521 47522 47523 47524 47525 47526 47527 47528 47529 47530 47531 47532 47533 47534 47535 47536 47537 47538 47539 47540 47541 47542 47543 47544 47545 47546 47547 47548 47549 47550 47551 47552 47553 47554 47555 47556 47557 47558 47559 47560 47561 47562 47563 47564 47565 47566 47567 47568 47569 47570 47571 47572 47573 47574 47575 47576 47577 47578 47579 47580 47581 47582 47583 47584 47585 47586 47587 47588 47589 47590 47591 47592 47593 47594 47595 47596 47597 47598 47599 47600 47601 47602 47603 47604 47605 47606 47607 47608 47609 47610 47611 47612 47613 47614 47615 47616 47617 47618 47619 47620 47621 47622 47623 47624 47625 47626 47627 47628 47629 47630 47631 47632 47633 47634 47635 47636 47637 47638 47639 47640 47641 47642 47643 47644 47645 47646 47647 47648 47649 47650 47651 47652 47653 47654 47655 47656 47657 47658 47659 47660 47661 47662 47663 47664 47665 47666 47667 47668 47669 47670 47671 47672 47673 47674 47675 47676 47677 47678 47679 47680 47681 47682 47683 47684 47685 47686 47687 47688 47689 47690 47691 47692 47693 47694 47695 47696 47697 47698 47699 47700 47701 47702 47703 47704 47705 47706 47707 47708 47709 47710 47711 47712 47713 47714 47715 47716 47717 47718 47719 47720 47721 47722 47723 47724 47725 47726 47727 47728 47729 47730 47731 47732 47733 47734 47735 47736 47737 47738 47739 47740 47741 47742 47743 47744 47745 47746 47747 47748 47749 47750 47751 47752 47753 47754 47755 47756 47757 47758 47759 47760 47761 47762 47763 47764 47765 47766 47767 47768 47769 47770 47771 47772 47773 47774 47775 47776 47777 47778 47779 47780 47781 47782 47783 47784 47785 47786 47787 47788 47789 47790 47791 47792 47793 47794 47795 47796 47797 47798 47799 47800 47801 47802 47803 47804 47805 47806 47807 47808 47809 47810 47811 47812 47813 47814 47815 47816 47817 47818 47819 47820 47821 47822 47823 47824 47825 47826 47827 47828 47829 47830 47831 47832 47833 47834 47835 47836 47837 47838 47839 47840 47841 47842 47843 47844 47845 47846 47847 47848 47849 47850 47851 47852 47853 47854 47855 47856 47857 47858 47859 47860 47861 47862 47863 47864 47865 47866 47867 47868 47869 47870 47871 47872 47873 47874 47875 47876 47877 47878 47879 47880 47881 47882 47883 47884 47885 47886 47887 47888 47889 47890 47891 47892 47893 47894 47895 47896 47897 47898 47899 47900 47901 47902 47903 47904 47905 47906 47907 47908 47909 47910 47911 47912 47913 47914 47915 47916 47917 47918 47919 47920 47921 47922 47923 47924 47925 47926 47927 47928 47929 47930 47931 47932 47933 47934 47935 47936 47937 47938 47939 47940 47941 47942 47943 47944 47945 47946 47947 47948 47949 47950 47951 47952 47953 47954 47955 47956 47957 47958 47959 47960 47961 47962 47963 47964 47965 47966 47967 47968 47969 47970 47971 47972 47973 47974 47975 47976 47977 47978 47979 47980 47981 47982 47983 47984 47985 47986 47987 47988 47989 47990 47991 47992 47993 47994 47995 47996 47997 47998 47999 48000 48001 48002 48003 48004 48005 48006 48007 48008 48009 48010 48011 48012 48013 48014 48015 48016 48017 48018 48019 48020 48021 48022 48023 48024 48025 48026 48027 48028 48029 48030 48031 48032 48033 48034 48035 48036 48037 48038 48039 48040 48041 48042 48043 48044 48045 48046 48047 48048 48049 48050 48051 48052 48053 48054 48055 48056 48057 48058 48059 48060 48061 48062 48063 48064 48065 48066 48067 48068 48069 48070 48071 48072 48073 48074 48075 48076 48077 48078 48079 48080 48081 48082 48083 48084 48085 48086 48087 48088 48089 48090 48091 48092 48093 48094 48095 48096 48097 48098 48099 48100 48101 48102 48103 48104 48105 48106 48107 48108 48109 48110 48111 48112 48113 48114 48115 48116 48117 48118 48119 48120 48121 48122 48123 48124 48125 48126 48127 48128 48129 48130 48131 48132 48133 48134 48135 48136 48137 48138 48139 48140 48141 48142 48143 48144 48145 48146 48147 48148 48149 48150 48151 48152 48153 48154 48155 48156 48157 48158 48159 48160 48161 48162 48163 48164 48165 48166 48167 48168 48169 48170 48171 48172 48173 48174 48175 48176 48177 48178 48179 48180 48181 48182 48183 48184 48185 48186 48187 48188 48189 48190 48191 48192 48193 48194 48195 48196 48197 48198 48199 48200 48201 48202 48203 48204 48205 48206 48207 48208 48209 48210 48211 48212 48213 48214 48215 48216 48217 48218 48219 48220 48221 48222 48223 48224 48225 48226 48227 48228 48229 48230 48231 48232 48233 48234 48235 48236 48237 48238 48239 48240 48241 48242 48243 48244 48245 48246 48247 48248 48249 48250 48251 48252 48253 48254 48255 48256 48257 48258 48259 48260 48261 48262 48263 48264 48265 48266 48267 48268 48269 48270 48271 48272 48273 48274 48275 48276 48277 48278 48279 48280 48281 48282 48283 48284 48285 48286 48287 48288 48289 48290 48291 48292 48293 48294 48295 48296 48297 48298 48299 48300 48301 48302 48303 48304 48305 48306 48307 48308 48309 48310 48311 48312 48313 48314 48315 48316 48317 48318 48319 48320 48321 48322 48323 48324 48325 48326 48327 48328 48329 48330 48331 48332 48333 48334 48335 48336 48337 48338 48339 48340 48341 48342 48343 48344 48345 48346 48347 48348 48349 48350 48351 48352 48353 48354 48355 48356 48357 48358 48359 48360 48361 48362 48363 48364 48365 48366 48367 48368 48369 48370 48371 48372 48373 48374 48375 48376 48377 48378 48379 48380 48381 48382 48383 48384 48385 48386 48387 48388 48389 48390 48391 48392 48393 48394 48395 48396 48397 48398 48399 48400 48401 48402 48403 48404 48405 48406 48407 48408 48409 48410 48411 48412 48413 48414 48415 48416 48417 48418 48419 48420 48421 48422 48423 48424 48425 48426 48427 48428 48429 48430 48431 48432 48433 48434 48435 48436 48437 48438 48439 48440 48441 48442 48443 48444 48445 48446 48447 48448 48449 48450 48451 48452 48453 48454 48455 48456 48457 48458 48459 48460 48461 48462 48463 48464 48465 48466 48467 48468 48469 48470 48471 48472 48473 48474 48475 48476 48477 48478 48479 48480 48481 48482 48483 48484 48485 48486 48487 48488 48489 48490 48491 48492 48493 48494 48495 48496 48497 48498 48499 48500 48501 48502 48503 48504 48505 48506 48507 48508 48509 48510 48511 48512 48513 48514 48515 48516 48517 48518 48519 48520 48521 48522 48523 48524 48525 48526 48527 48528 48529 48530 48531 48532 48533 48534 48535 48536 48537 48538 48539 48540 48541 48542 48543 48544 48545 48546 48547 48548 48549 48550 48551 48552 48553 48554 48555 48556 48557 48558 48559 48560 48561 48562 48563 48564 48565 48566 48567 48568 48569 48570 48571 48572 48573 48574 48575 48576 48577 48578 48579 48580 48581 48582 48583 48584 48585 48586 48587 48588 48589 48590 48591 48592 48593 48594 48595 48596 48597 48598 48599 48600 48601 48602 48603 48604 48605 48606 48607 48608 48609 48610 48611 48612 48613 48614 48615 48616 48617 48618 48619 48620 48621 48622 48623 48624 48625 48626 48627 48628 48629 48630 48631 48632 48633 48634 48635 48636 48637 48638 48639 48640 48641 48642 48643 48644 48645 48646 48647 48648 48649 48650 48651 48652 48653 48654 48655 48656 48657 48658 48659 48660 48661 48662 48663 48664 48665 48666 48667 48668 48669 48670 48671 48672 48673 48674 48675 48676 48677 48678 48679 48680 48681 48682 48683 48684 48685 48686 48687 48688 48689 48690 48691 48692 48693 48694 48695 48696 48697 48698 48699 48700 48701 48702 48703 48704 48705 48706 48707 48708 48709 48710 48711 48712 48713 48714 48715 48716 48717 48718 48719 48720 48721 48722 48723 48724 48725 48726 48727 48728 48729 48730 48731 48732 48733 48734 48735 48736 48737 48738 48739 48740 48741 48742 48743 48744 48745 48746 48747 48748 48749 48750 48751 48752 48753 48754 48755 48756 48757 48758 48759 48760 48761 48762 48763 48764 48765 48766 48767 48768 48769 48770 48771 48772 48773 48774 48775 48776 48777 48778 48779 48780 48781 48782 48783 48784 48785 48786 48787 48788 48789 48790 48791 48792 48793 48794 48795 48796 48797 48798 48799 48800 48801 48802 48803 48804 48805 48806 48807 48808 48809 48810 48811 48812 48813 48814 48815 48816 48817 48818 48819 48820 48821 48822 48823 48824 48825 48826 48827 48828 48829 48830 48831 48832 48833 48834 48835 48836 48837 48838 48839 48840 48841 48842 48843 48844 48845 48846 48847 48848 48849 48850 48851 48852 48853 48854 48855 48856 48857 48858 48859 48860 48861 48862 48863 48864 48865 48866 48867 48868 48869 48870 48871 48872 48873 48874 48875 48876 48877 48878 48879 48880 48881 48882 48883 48884 48885 48886 48887 48888 48889 48890 48891 48892 48893 48894 48895 48896 48897 48898 48899 48900 48901 48902 48903 48904 48905 48906 48907 48908 48909 48910 48911 48912 48913 48914 48915 48916 48917 48918 48919 48920 48921 48922 48923 48924 48925 48926 48927 48928 48929 48930 48931 48932 48933 48934 48935 48936 48937 48938 48939 48940 48941 48942 48943 48944 48945 48946 48947 48948 48949 48950 48951 48952 48953 48954 48955 48956 48957 48958 48959 48960 48961 48962 48963 48964 48965 48966 48967 48968 48969 48970 48971 48972 48973 48974 48975 48976 48977 48978 48979 48980 48981 48982 48983 48984 48985 48986 48987 48988 48989 48990 48991 48992 48993 48994 48995 48996 48997 48998 48999 49000 49001 49002 49003 49004 49005 49006 49007 49008 49009 49010 49011 49012 49013 49014 49015 49016 49017 49018 49019 49020 49021 49022 49023 49024 49025 49026 49027 49028 49029 49030 49031 49032 49033 49034 49035 49036 49037 49038 49039 49040 49041 49042 49043 49044 49045 49046 49047 49048 49049 49050 49051 49052 49053 49054 49055 49056 49057 49058 49059 49060 49061 49062 49063 49064 49065 49066 49067 49068 49069 49070 49071 49072 49073 49074 49075 49076 49077 49078 49079 49080 49081 49082 49083 49084 49085 49086 49087 49088 49089 49090 49091 49092 49093 49094 49095 49096 49097 49098 49099 49100 49101 49102 49103 49104 49105 49106 49107 49108 49109 49110 49111 49112 49113 49114 49115 49116 49117 49118 49119 49120 49121 49122 49123 49124 49125 49126 49127 49128 49129 49130 49131 49132 49133 49134 49135 49136 49137 49138 49139 49140 49141 49142 49143 49144 49145 49146 49147 49148 49149 49150 49151 49152 49153 49154 49155 49156 49157 49158 49159 49160 49161 49162 49163 49164 49165 49166 49167 49168 49169 49170 49171 49172 49173 49174 49175 49176 49177 49178 49179 49180 49181 49182 49183 49184 49185 49186 49187 49188 49189 49190 49191 49192 49193 49194 49195 49196 49197 49198 49199 49200 49201 49202 49203 49204 49205 49206 49207 49208 49209 49210 49211 49212 49213 49214 49215 49216 49217 49218 49219 49220 49221 49222 49223 49224 49225 49226 49227 49228 49229 49230 49231 49232 49233 49234 49235 49236 49237 49238 49239 49240 49241 49242 49243 49244 49245 49246 49247 49248 49249 49250 49251 49252 49253 49254 49255 49256 49257 49258 49259 49260 49261 49262 49263 49264 49265 49266 49267 49268 49269 49270 49271 49272 49273 49274 49275 49276 49277 49278 49279 49280 49281 49282 49283 49284 49285 49286 49287 49288 49289 49290 49291 49292 49293 49294 49295 49296 49297 49298 49299 49300 49301 49302 49303 49304 49305 49306 49307 49308 49309 49310 49311 49312 49313 49314 49315 49316 49317 49318 49319 49320 49321 49322 49323 49324 49325 49326 49327 49328 49329 49330 49331 49332 49333 49334 49335 49336 49337 49338 49339 49340 49341 49342 49343 49344 49345 49346 49347 49348 49349 49350 49351 49352 49353 49354 49355 49356 49357 49358 49359 49360 49361 49362 49363 49364 49365 49366 49367 49368 49369 49370 49371 49372 49373 49374 49375 49376 49377 49378 49379 49380 49381 49382 49383 49384 49385 49386 49387 49388 49389 49390 49391 49392 49393 49394 49395 49396 49397 49398 49399 49400 49401 49402 49403 49404 49405 49406 49407 49408 49409 49410 49411 49412 49413 49414 49415 49416 49417 49418 49419 49420 49421 49422 49423 49424 49425 49426 49427 49428 49429 49430 49431 49432 49433 49434 49435 49436 49437 49438 49439 49440 49441 49442 49443 49444 49445 49446 49447 49448 49449 49450 49451 49452 49453 49454 49455 49456 49457 49458 49459 49460 49461 49462 49463 49464 49465 49466 49467 49468 49469 49470 49471 49472 49473 49474 49475 49476 49477 49478 49479 49480 49481 49482 49483 49484 49485 49486 49487 49488 49489 49490 49491 49492 49493 49494 49495 49496 49497 49498 49499 49500 49501 49502 49503 49504 49505 49506 49507 49508 49509 49510 49511 49512 49513 49514 49515 49516 49517 49518 49519 49520 49521 49522 49523 49524 49525 49526 49527 49528 49529 49530 49531 49532 49533 49534 49535 49536 49537 49538 49539 49540 49541 49542 49543 49544 49545 49546 49547 49548 49549 49550 49551 49552 49553 49554 49555 49556 49557 49558 49559 49560 49561 49562 49563 49564 49565 49566 49567 49568 49569 49570 49571 49572 49573 49574 49575 49576 49577 49578 49579 49580 49581 49582 49583 49584 49585 49586 49587 49588 49589 49590 49591 49592 49593 49594 49595 49596 49597 49598 49599 49600 49601 49602 49603 49604 49605 49606 49607 49608 49609 49610 49611 49612 49613 49614 49615 49616 49617 49618 49619 49620 49621 49622 49623 49624 49625 49626 49627 49628 49629 49630 49631 49632 49633 49634 49635 49636 49637 49638 49639 49640 49641 49642 49643 49644 49645 49646 49647 49648 49649 49650 49651 49652 49653 49654 49655 49656 49657 49658 49659 49660 49661 49662 49663 49664 49665 49666 49667 49668 49669 49670 49671 49672 49673 49674 49675 49676 49677 49678 49679 49680 49681 49682 49683 49684 49685 49686 49687 49688 49689 49690 49691 49692 49693 49694 49695 49696 49697 49698 49699 49700 49701 49702 49703 49704 49705 49706 49707 49708 49709 49710 49711 49712 49713 49714 49715 49716 49717 49718 49719 49720 49721 49722 49723 49724 49725 49726 49727 49728 49729 49730 49731 49732 49733 49734 49735 49736 49737 49738 49739 49740 49741 49742 49743 49744 49745 49746 49747 49748 49749 49750 49751 49752 49753 49754 49755 49756 49757 49758 49759 49760 49761 49762 49763 49764 49765 49766 49767 49768 49769 49770 49771 49772 49773 49774 49775 49776 49777 49778 49779 49780 49781 49782 49783 49784 49785 49786 49787 49788 49789 49790 49791 49792 49793 49794 49795 49796 49797 49798 49799 49800 49801 49802 49803 49804 49805 49806 49807 49808 49809 49810 49811 49812 49813 49814 49815 49816 49817 49818 49819 49820 49821 49822 49823 49824 49825 49826 49827 49828 49829 49830 49831 49832 49833 49834 49835 49836 49837 49838 49839 49840 49841 49842 49843 49844 49845 49846 49847 49848 49849 49850 49851 49852 49853 49854 49855 49856 49857 49858 49859 49860 49861 49862 49863 49864 49865 49866 49867 49868 49869 49870 49871 49872 49873 49874 49875 49876 49877 49878 49879 49880 49881 49882 49883 49884 49885 49886 49887 49888 49889 49890 49891 49892 49893 49894 49895 49896 49897 49898 49899 49900 49901 49902 49903 49904 49905 49906 49907 49908 49909 49910 49911 49912 49913 49914 49915 49916 49917 49918 49919 49920 49921 49922 49923 49924 49925 49926 49927 49928 49929 49930 49931 49932 49933 49934 49935 49936 49937 49938 49939 49940 49941 49942 49943 49944 49945 49946 49947 49948 49949 49950 49951 49952 49953 49954 49955 49956 49957 49958 49959 49960 49961 49962 49963 49964 49965 49966 49967 49968 49969 49970 49971 49972 49973 49974 49975 49976 49977 49978 49979 49980 49981 49982 49983 49984 49985 49986 49987 49988 49989 49990 49991 49992 49993 49994 49995 49996 49997 49998 49999 50000 50001 50002 50003 50004 50005 50006 50007 50008 50009 50010 50011 50012 50013 50014 50015 50016 50017 50018 50019 50020 50021 50022 50023 50024 50025 50026 50027 50028 50029 50030 50031 50032 50033 50034 50035 50036 50037 50038 50039 50040 50041 50042 50043 50044 50045 50046 50047 50048 50049 50050 50051 50052 50053 50054 50055 50056 50057 50058 50059 50060 50061 50062 50063 50064 50065 50066 50067 50068 50069 50070 50071 50072 50073 50074 50075 50076 50077 50078 50079 50080 50081 50082 50083 50084 50085 50086 50087 50088 50089 50090 50091 50092 50093 50094 50095 50096 50097 50098 50099 50100 50101 50102 50103 50104 50105 50106 50107 50108 50109 50110 50111 50112 50113 50114 50115 50116 50117 50118 50119 50120 50121 50122 50123 50124 50125 50126 50127 50128 50129 50130 50131 50132 50133 50134 50135 50136 50137 50138 50139 50140 50141 50142 50143 50144 50145 50146 50147 50148 50149 50150 50151 50152 50153 50154 50155 50156 50157 50158 50159 50160 50161 50162 50163 50164 50165 50166 50167 50168 50169 50170 50171 50172 50173 50174 50175 50176 50177 50178 50179 50180 50181 50182 50183 50184 50185 50186 50187 50188 50189 50190 50191 50192 50193 50194 50195 50196 50197 50198 50199 50200 50201 50202 50203 50204 50205 50206 50207 50208 50209 50210 50211 50212 50213 50214 50215 50216 50217 50218 50219 50220 50221 50222 50223 50224 50225 50226 50227 50228 50229 50230 50231 50232 50233 50234 50235 50236 50237 50238 50239 50240 50241 50242 50243 50244 50245 50246 50247 50248 50249 50250 50251 50252 50253 50254 50255 50256 50257 50258 50259 50260 50261 50262 50263 50264 50265 50266 50267 50268 50269 50270 50271 50272 50273 50274 50275 50276 50277 50278 50279 50280 50281 50282 50283 50284 50285 50286 50287 50288 50289 50290 50291 50292 50293 50294 50295 50296 50297 50298 50299 50300 50301 50302 50303 50304 50305 50306 50307 50308 50309 50310 50311 50312 50313 50314 50315 50316 50317 50318 50319 50320 50321 50322 50323 50324 50325 50326 50327 50328 50329 50330 50331 50332 50333 50334 50335 50336 50337 50338 50339 50340 50341 50342 50343 50344 50345 50346 50347 50348 50349 50350 50351 50352 50353 50354 50355 50356 50357 50358 50359 50360 50361 50362 50363 50364 50365 50366 50367 50368 50369 50370 50371 50372 50373 50374 50375 50376 50377 50378 50379 50380 50381 50382 50383 50384 50385 50386 50387 50388 50389 50390 50391 50392 50393 50394 50395 50396 50397 50398 50399 50400 50401 50402 50403 50404 50405 50406 50407 50408 50409 50410 50411 50412 50413 50414 50415 50416 50417 50418 50419 50420 50421 50422 50423 50424 50425 50426 50427 50428 50429 50430 50431 50432 50433 50434 50435 50436 50437 50438 50439 50440 50441 50442 50443 50444 50445 50446 50447 50448 50449 50450 50451 50452 50453 50454 50455 50456 50457 50458 50459 50460 50461 50462 50463 50464 50465 50466 50467 50468 50469 50470 50471 50472 50473 50474 50475 50476 50477 50478 50479 50480 50481 50482 50483 50484 50485 50486 50487 50488 50489 50490 50491 50492 50493 50494 50495 50496 50497 50498 50499 50500 50501 50502 50503 50504 50505 50506 50507 50508 50509 50510 50511 50512 50513 50514 50515 50516 50517 50518 50519 50520 50521 50522 50523 50524 50525 50526 50527 50528 50529 50530 50531 50532 50533 50534 50535 50536 50537 50538 50539 50540 50541 50542 50543 50544 50545 50546 50547 50548 50549 50550 50551 50552 50553 50554 50555 50556 50557 50558 50559 50560 50561 50562 50563 50564 50565 50566 50567 50568 50569 50570 50571 50572 50573 50574 50575 50576 50577 50578 50579 50580 50581 50582 50583 50584 50585 50586 50587 50588 50589 50590 50591 50592 50593 50594 50595 50596 50597 50598 50599 50600 50601 50602 50603 50604 50605 50606 50607 50608 50609 50610 50611 50612 50613 50614 50615 50616 50617 50618 50619 50620 50621 50622 50623 50624 50625 50626 50627 50628 50629 50630 50631 50632 50633 50634 50635 50636 50637 50638 50639 50640 50641 50642 50643 50644 50645 50646 50647 50648 50649 50650 50651 50652 50653 50654 50655 50656 50657 50658 50659 50660 50661 50662 50663 50664 50665 50666 50667 50668 50669 50670 50671 50672 50673 50674 50675 50676 50677 50678 50679 50680 50681 50682 50683 50684 50685 50686 50687 50688 50689 50690 50691 50692 50693 50694 50695 50696 50697 50698 50699 50700 50701 50702 50703 50704 50705 50706 50707 50708 50709 50710 50711 50712 50713 50714 50715 50716 50717 50718 50719 50720 50721 50722 50723 50724 50725 50726 50727 50728 50729 50730 50731 50732 50733 50734 50735 50736 50737 50738 50739 50740 50741 50742 50743 50744 50745 50746 50747 50748 50749 50750 50751 50752 50753 50754 50755 50756 50757 50758 50759 50760 50761 50762 50763 50764 50765 50766 50767 50768 50769 50770 50771 50772 50773 50774 50775 50776 50777 50778 50779 50780 50781 50782 50783 50784 50785 50786 50787 50788 50789 50790 50791 50792 50793 50794 50795 50796 50797 50798 50799 50800 50801 50802 50803 50804 50805 50806 50807 50808 50809 50810 50811 50812 50813 50814 50815 50816 50817 50818 50819 50820 50821 50822 50823 50824 50825 50826 50827 50828 50829 50830 50831 50832 50833 50834 50835 50836 50837 50838 50839 50840 50841 50842 50843 50844 50845 50846 50847 50848 50849 50850 50851 50852 50853 50854 50855 50856 50857 50858 50859 50860 50861 50862 50863 50864 50865 50866 50867 50868 50869 50870 50871 50872 50873 50874 50875 50876 50877 50878 50879 50880 50881 50882 50883 50884 50885 50886 50887 50888 50889 50890 50891 50892 50893 50894 50895 50896 50897 50898 50899 50900 50901 50902 50903 50904 50905 50906 50907 50908 50909 50910 50911 50912 50913 50914 50915 50916 50917 50918 50919 50920 50921 50922 50923 50924 50925 50926 50927 50928 50929 50930 50931 50932 50933 50934 50935 50936 50937 50938 50939 50940 50941 50942 50943 50944 50945 50946 50947 50948 50949 50950 50951 50952 50953 50954 50955 50956 50957 50958 50959 50960 50961 50962 50963 50964 50965 50966 50967 50968 50969 50970 50971 50972 50973 50974 50975 50976 50977 50978 50979 50980 50981 50982 50983 50984 50985 50986 50987 50988 50989 50990 50991 50992 50993 50994 50995 50996 50997 50998 50999 51000 51001 51002 51003 51004 51005 51006 51007 51008 51009 51010 51011 51012 51013 51014 51015 51016 51017 51018 51019 51020 51021 51022 51023 51024 51025 51026 51027 51028 51029 51030 51031 51032 51033 51034 51035 51036 51037 51038 51039 51040 51041 51042 51043 51044 51045 51046 51047 51048 51049 51050 51051 51052 51053 51054 51055 51056 51057 51058 51059 51060 51061 51062 51063 51064 51065 51066 51067 51068 51069 51070 51071 51072 51073 51074 51075 51076 51077 51078 51079 51080 51081 51082 51083 51084 51085 51086 51087 51088 51089 51090 51091 51092 51093 51094 51095 51096 51097 51098 51099 51100 51101 51102 51103 51104 51105 51106 51107 51108 51109 51110 51111 51112 51113 51114 51115 51116 51117 51118 51119 51120 51121 51122 51123 51124 51125 51126 51127 51128 51129 51130 51131 51132 51133 51134 51135 51136 51137 51138 51139 51140 51141 51142 51143 51144 51145 51146 51147 51148 51149 51150 51151 51152 51153 51154 51155 51156 51157 51158 51159 51160 51161 51162 51163 51164 51165 51166 51167 51168 51169 51170 51171 51172 51173 51174 51175 51176 51177 51178 51179 51180 51181 51182 51183 51184 51185 51186 51187 51188 51189 51190 51191 51192 51193 51194 51195 51196 51197 51198 51199 51200 51201 51202 51203 51204 51205 51206 51207 51208 51209 51210 51211 51212 51213 51214 51215 51216 51217 51218 51219 51220 51221 51222 51223 51224 51225 51226 51227 51228 51229 51230 51231 51232 51233 51234 51235 51236 51237 51238 51239 51240 51241 51242 51243 51244 51245 51246 51247 51248 51249 51250 51251 51252 51253 51254 51255 51256 51257 51258 51259 51260 51261 51262 51263 51264 51265 51266 51267 51268 51269 51270 51271 51272 51273 51274 51275 51276 51277 51278 51279 51280 51281 51282 51283 51284 51285 51286 51287 51288 51289 51290 51291 51292 51293 51294 51295 51296 51297 51298 51299 51300 51301 51302 51303 51304 51305 51306 51307 51308 51309 51310 51311 51312 51313 51314 51315 51316 51317 51318 51319 51320 51321 51322 51323 51324 51325 51326 51327 51328 51329 51330 51331 51332 51333 51334 51335 51336 51337 51338 51339 51340 51341 51342 51343 51344 51345 51346 51347 51348 51349 51350 51351 51352 51353 51354 51355 51356 51357 51358 51359 51360 51361 51362 51363 51364 51365 51366 51367 51368 51369 51370 51371 51372 51373 51374 51375 51376 51377 51378 51379 51380 51381 51382 51383 51384 51385 51386 51387 51388 51389 51390 51391 51392 51393 51394 51395 51396 51397 51398 51399 51400 51401 51402 51403 51404 51405 51406 51407 51408 51409 51410 51411 51412 51413 51414 51415 51416 51417 51418 51419 51420 51421 51422 51423 51424 51425 51426 51427 51428 51429 51430 51431 51432 51433 51434 51435 51436 51437 51438 51439 51440 51441 51442 51443 51444 51445 51446 51447 51448 51449 51450 51451 51452 51453 51454 51455 51456 51457 51458 51459 51460 51461 51462 51463 51464 51465 51466 51467 51468 51469 51470 51471 51472 51473 51474 51475 51476 51477 51478 51479 51480 51481 51482 51483 51484 51485 51486 51487 51488 51489 51490 51491 51492 51493 51494 51495 51496 51497 51498 51499 51500 51501 51502 51503 51504 51505 51506 51507 51508 51509 51510 51511 51512 51513 51514 51515 51516 51517 51518 51519 51520 51521 51522 51523 51524 51525 51526 51527 51528 51529 51530 51531 51532 51533 51534 51535 51536 51537 51538 51539 51540 51541 51542 51543 51544 51545 51546 51547 51548 51549 51550 51551 51552 51553 51554 51555 51556 51557 51558 51559 51560 51561 51562 51563 51564 51565 51566 51567 51568 51569 51570 51571 51572 51573 51574 51575 51576 51577 51578 51579 51580 51581 51582 51583 51584 51585 51586 51587 51588 51589 51590 51591 51592 51593 51594 51595 51596 51597 51598 51599 51600 51601 51602 51603 51604 51605 51606 51607 51608 51609 51610 51611 51612 51613 51614 51615 51616 51617 51618 51619 51620 51621 51622 51623 51624 51625 51626 51627 51628 51629 51630 51631 51632 51633 51634 51635 51636 51637 51638 51639 51640 51641 51642 51643 51644 51645 51646 51647 51648 51649 51650 51651 51652 51653 51654 51655 51656 51657 51658 51659 51660 51661 51662 51663 51664 51665 51666 51667 51668 51669 51670 51671 51672 51673 51674 51675 51676 51677 51678 51679 51680 51681 51682 51683 51684 51685 51686 51687 51688 51689 51690 51691 51692 51693 51694 51695 51696 51697 51698 51699 51700 51701 51702 51703 51704 51705 51706 51707 51708 51709 51710 51711 51712 51713 51714 51715 51716 51717 51718 51719 51720 51721 51722 51723 51724 51725 51726 51727 51728 51729 51730 51731 51732 51733 51734 51735 51736 51737 51738 51739 51740 51741 51742 51743 51744 51745 51746 51747 51748 51749 51750 51751 51752 51753 51754 51755 51756 51757 51758 51759 51760 51761 51762 51763 51764 51765 51766 51767 51768 51769 51770 51771 51772 51773 51774 51775 51776 51777 51778 51779 51780 51781 51782 51783 51784 51785 51786 51787 51788 51789 51790 51791 51792 51793 51794 51795 51796 51797 51798 51799 51800 51801 51802 51803 51804 51805 51806 51807 51808 51809 51810 51811 51812 51813 51814 51815 51816 51817 51818 51819 51820 51821 51822 51823 51824 51825 51826 51827 51828 51829 51830 51831 51832 51833 51834 51835 51836 51837 51838 51839 51840 51841 51842 51843 51844 51845 51846 51847 51848 51849 51850 51851 51852 51853 51854 51855 51856 51857 51858 51859 51860 51861 51862 51863 51864 51865 51866 51867 51868 51869 51870 51871 51872 51873 51874 51875 51876 51877 51878 51879 51880 51881 51882 51883 51884 51885 51886 51887 51888 51889 51890 51891 51892 51893 51894 51895 51896 51897 51898 51899 51900 51901 51902 51903 51904 51905 51906 51907 51908 51909 51910 51911 51912 51913 51914 51915 51916 51917 51918 51919 51920 51921 51922 51923 51924 51925 51926 51927 51928 51929 51930 51931 51932 51933 51934 51935 51936 51937 51938 51939 51940 51941 51942 51943 51944 51945 51946 51947 51948 51949 51950 51951 51952 51953 51954 51955 51956 51957 51958 51959 51960 51961 51962 51963 51964 51965 51966 51967 51968 51969 51970 51971 51972 51973 51974 51975 51976 51977 51978 51979 51980 51981 51982 51983 51984 51985 51986 51987 51988 51989 51990 51991 51992 51993 51994 51995 51996 51997 51998 51999 52000 52001 52002 52003 52004 52005 52006 52007 52008 52009 52010 52011 52012 52013 52014 52015 52016 52017 52018 52019 52020 52021 52022 52023 52024 52025 52026 52027 52028 52029 52030 52031 52032 52033 52034 52035 52036 52037 52038 52039 52040 52041 52042 52043 52044 52045 52046 52047 52048 52049 52050 52051 52052 52053 52054 52055 52056 52057 52058 52059 52060 52061 52062 52063 52064 52065 52066 52067 52068 52069 52070 52071 52072 52073 52074 52075 52076 52077 52078 52079 52080 52081 52082 52083 52084 52085 52086 52087 52088 52089 52090 52091 52092 52093 52094 52095 52096 52097 52098 52099 52100 52101 52102 52103 52104 52105 52106 52107 52108 52109 52110 52111 52112 52113 52114 52115 52116 52117 52118 52119 52120 52121 52122 52123 52124 52125 52126 52127 52128 52129 52130 52131 52132 52133 52134 52135 52136 52137 52138 52139 52140 52141 52142 52143 52144 52145 52146 52147 52148 52149 52150 52151 52152 52153 52154 52155 52156 52157 52158 52159 52160 52161 52162 52163 52164 52165 52166 52167 52168 52169 52170 52171 52172 52173 52174 52175 52176 52177 52178 52179 52180 52181 52182 52183 52184 52185 52186 52187 52188 52189 52190 52191 52192 52193 52194 52195 52196 52197 52198 52199 52200 52201 52202 52203 52204 52205 52206 52207 52208 52209 52210 52211 52212 52213 52214 52215 52216 52217 52218 52219 52220 52221 52222 52223 52224 52225 52226 52227 52228 52229 52230 52231 52232 52233 52234 52235 52236 52237 52238 52239 52240 52241 52242 52243 52244 52245 52246 52247 52248 52249 52250 52251 52252 52253 52254 52255 52256 52257 52258 52259 52260 52261 52262 52263 52264 52265 52266 52267 52268 52269 52270 52271 52272 52273 52274 52275 52276 52277 52278 52279 52280 52281 52282 52283 52284 52285 52286 52287 52288 52289 52290 52291 52292 52293 52294 52295 52296 52297 52298 52299 52300 52301 52302 52303 52304 52305 52306 52307 52308 52309 52310 52311 52312 52313 52314 52315 52316 52317 52318 52319 52320 52321 52322 52323 52324 52325 52326 52327 52328 52329 52330 52331 52332 52333 52334 52335 52336 52337 52338 52339 52340 52341 52342 52343 52344 52345 52346 52347 52348 52349 52350 52351 52352 52353 52354 52355 52356 52357 52358 52359 52360 52361 52362 52363 52364 52365 52366 52367 52368 52369 52370 52371 52372 52373 52374 52375 52376 52377 52378 52379 52380 52381 52382 52383 52384 52385 52386 52387 52388 52389 52390 52391 52392 52393 52394 52395 52396 52397 52398 52399 52400 52401 52402 52403 52404 52405 52406 52407 52408 52409 52410 52411 52412 52413 52414 52415 52416 52417 52418 52419 52420 52421 52422 52423 52424 52425 52426 52427 52428 52429 52430 52431 52432 52433 52434 52435 52436 52437 52438 52439 52440 52441 52442 52443 52444 52445 52446 52447 52448 52449 52450 52451 52452 52453 52454 52455 52456 52457 52458 52459 52460 52461 52462 52463 52464 52465 52466 52467 52468 52469 52470 52471 52472 52473 52474 52475 52476 52477 52478 52479 52480 52481 52482 52483 52484 52485 52486 52487 52488 52489 52490 52491 52492 52493 52494 52495 52496 52497 52498 52499 52500 52501 52502 52503 52504 52505 52506 52507 52508 52509 52510 52511 52512 52513 52514 52515 52516 52517 52518 52519 52520 52521 52522 52523 52524 52525 52526 52527 52528 52529 52530 52531 52532 52533 52534 52535 52536 52537 52538 52539 52540 52541 52542 52543 52544 52545 52546 52547 52548 52549 52550 52551 52552 52553 52554 52555 52556 52557 52558 52559 52560 52561 52562 52563 52564 52565 52566 52567 52568 52569 52570 52571 52572 52573 52574 52575 52576 52577 52578 52579 52580 52581 52582 52583 52584 52585 52586 52587 52588 52589 52590 52591 52592 52593 52594 52595 52596 52597 52598 52599 52600 52601 52602 52603 52604 52605 52606 52607 52608 52609 52610 52611 52612 52613 52614 52615 52616 52617 52618 52619 52620 52621 52622 52623 52624 52625 52626 52627 52628 52629 52630 52631 52632 52633 52634 52635 52636 52637 52638 52639 52640 52641 52642 52643 52644 52645 52646 52647 52648 52649 52650 52651 52652 52653 52654 52655 52656 52657 52658 52659 52660 52661 52662 52663 52664 52665 52666 52667 52668 52669 52670 52671 52672 52673 52674 52675 52676 52677 52678 52679 52680 52681 52682 52683 52684 52685 52686 52687 52688 52689 52690 52691 52692 52693 52694 52695 52696 52697 52698 52699 52700 52701 52702 52703 52704 52705 52706 52707 52708 52709 52710 52711 52712 52713 52714 52715 52716 52717 52718 52719 52720 52721 52722 52723 52724 52725 52726 52727 52728 52729 52730 52731 52732 52733 52734 52735 52736 52737 52738 52739 52740 52741 52742 52743 52744 52745 52746 52747 52748 52749 52750 52751 52752 52753 52754 52755 52756 52757 52758 52759 52760 52761 52762 52763 52764 52765 52766 52767 52768 52769 52770 52771 52772 52773 52774 52775 52776 52777 52778 52779 52780 52781 52782 52783 52784 52785 52786 52787 52788 52789 52790 52791 52792 52793 52794 52795 52796 52797 52798 52799 52800 52801 52802 52803 52804 52805 52806 52807 52808 52809 52810 52811 52812 52813 52814 52815 52816 52817 52818 52819 52820 52821 52822 52823 52824 52825 52826 52827 52828 52829 52830 52831 52832 52833 52834 52835 52836 52837 52838 52839 52840 52841 52842 52843 52844 52845 52846 52847 52848 52849 52850 52851 52852 52853 52854 52855 52856 52857 52858 52859 52860 52861 52862 52863 52864 52865 52866 52867 52868 52869 52870 52871 52872 52873 52874 52875 52876 52877 52878 52879 52880 52881 52882 52883 52884 52885 52886 52887 52888 52889 52890 52891 52892 52893 52894 52895 52896 52897 52898 52899 52900 52901 52902 52903 52904 52905 52906 52907 52908 52909 52910 52911 52912 52913 52914 52915 52916 52917 52918 52919 52920 52921 52922 52923 52924 52925 52926 52927 52928 52929 52930 52931 52932 52933 52934 52935 52936 52937 52938 52939 52940 52941 52942 52943 52944 52945 52946 52947 52948 52949 52950 52951 52952 52953 52954 52955 52956 52957 52958 52959 52960 52961 52962 52963 52964 52965 52966 52967 52968 52969 52970 52971 52972 52973 52974 52975 52976 52977 52978 52979 52980 52981 52982 52983 52984 52985 52986 52987 52988 52989 52990 52991 52992 52993 52994 52995 52996 52997 52998 52999 53000 53001 53002 53003 53004 53005 53006 53007 53008 53009 53010 53011 53012 53013 53014 53015 53016 53017 53018 53019 53020 53021 53022 53023 53024 53025 53026 53027 53028 53029 53030 53031 53032 53033 53034 53035 53036 53037 53038 53039 53040 53041 53042 53043 53044 53045 53046 53047 53048 53049 53050 53051 53052 53053 53054 53055 53056 53057 53058 53059 53060 53061 53062 53063 53064 53065 53066 53067 53068 53069 53070 53071 53072 53073 53074 53075 53076 53077 53078 53079 53080 53081 53082 53083 53084 53085 53086 53087 53088 53089 53090 53091 53092 53093 53094 53095 53096 53097 53098 53099 53100 53101 53102 53103 53104 53105 53106 53107 53108 53109 53110 53111 53112 53113 53114 53115 53116 53117 53118 53119 53120 53121 53122 53123 53124 53125 53126 53127 53128 53129 53130 53131 53132 53133 53134 53135 53136 53137 53138 53139 53140 53141 53142 53143 53144 53145 53146 53147 53148 53149 53150 53151 53152 53153 53154 53155 53156 53157 53158 53159 53160 53161 53162 53163 53164 53165 53166 53167 53168 53169 53170 53171 53172 53173 53174 53175 53176 53177 53178 53179 53180 53181 53182 53183 53184 53185 53186 53187 53188 53189 53190 53191 53192 53193 53194 53195 53196 53197 53198 53199 53200 53201 53202 53203 53204 53205 53206 53207 53208 53209 53210 53211 53212 53213 53214 53215 53216 53217 53218 53219 53220 53221 53222 53223 53224 53225 53226 53227 53228 53229 53230 53231 53232 53233 53234 53235 53236 53237 53238 53239 53240 53241 53242 53243 53244 53245 53246 53247 53248 53249 53250 53251 53252 53253 53254 53255 53256 53257 53258 53259 53260 53261 53262 53263 53264 53265 53266 53267 53268 53269 53270 53271 53272 53273 53274 53275 53276 53277 53278 53279 53280 53281 53282 53283 53284 53285 53286 53287 53288 53289 53290 53291 53292 53293 53294 53295 53296 53297 53298 53299 53300 53301 53302 53303 53304 53305 53306 53307 53308 53309 53310 53311 53312 53313 53314 53315 53316 53317 53318 53319 53320 53321 53322 53323 53324 53325 53326 53327 53328 53329 53330 53331 53332 53333 53334 53335 53336 53337 53338 53339 53340 53341 53342 53343 53344 53345 53346 53347 53348 53349 53350 53351 53352 53353 53354 53355 53356 53357 53358 53359 53360 53361 53362 53363 53364 53365 53366 53367 53368 53369 53370 53371 53372 53373 53374 53375 53376 53377 53378 53379 53380 53381 53382 53383 53384 53385 53386 53387 53388 53389 53390 53391 53392 53393 53394 53395 53396 53397 53398 53399 53400 53401 53402 53403 53404 53405 53406 53407 53408 53409 53410 53411 53412 53413 53414 53415 53416 53417 53418 53419 53420 53421 53422 53423 53424 53425 53426 53427 53428 53429 53430 53431 53432 53433 53434 53435 53436 53437 53438 53439 53440 53441 53442 53443 53444 53445 53446 53447 53448 53449 53450 53451 53452 53453 53454 53455 53456 53457 53458 53459 53460 53461 53462 53463 53464 53465 53466 53467 53468 53469 53470 53471 53472 53473 53474 53475 53476 53477 53478 53479 53480 53481 53482 53483 53484 53485 53486 53487 53488 53489 53490 53491 53492 53493 53494 53495 53496 53497 53498 53499 53500 53501 53502 53503 53504 53505 53506 53507 53508 53509 53510 53511 53512 53513 53514 53515 53516 53517 53518 53519 53520 53521 53522 53523 53524 53525 53526 53527 53528 53529 53530 53531 53532 53533 53534 53535 53536 53537 53538 53539 53540 53541 53542 53543 53544 53545 53546 53547 53548 53549 53550 53551 53552 53553 53554 53555 53556 53557 53558 53559 53560 53561 53562 53563 53564 53565 53566 53567 53568 53569 53570 53571 53572 53573 53574 53575 53576 53577 53578 53579 53580 53581 53582 53583 53584 53585 53586 53587 53588 53589 53590 53591 53592 53593 53594 53595 53596 53597 53598 53599 53600 53601 53602 53603 53604 53605 53606 53607 53608 53609 53610 53611 53612 53613 53614 53615 53616 53617 53618 53619 53620 53621 53622 53623 53624 53625 53626 53627 53628 53629 53630 53631 53632 53633 53634 53635 53636 53637 53638 53639 53640 53641 53642 53643 53644 53645 53646 53647 53648 53649 53650 53651 53652 53653 53654 53655 53656 53657 53658 53659 53660 53661 53662 53663 53664 53665 53666 53667 53668 53669 53670 53671 53672 53673 53674 53675 53676 53677 53678 53679 53680 53681 53682 53683 53684 53685 53686 53687 53688 53689 53690 53691 53692 53693 53694 53695 53696 53697 53698 53699 53700 53701 53702 53703 53704 53705 53706 53707 53708 53709 53710 53711 53712 53713 53714 53715 53716 53717 53718 53719 53720 53721 53722 53723 53724 53725 53726 53727 53728 53729 53730 53731 53732 53733 53734 53735 53736 53737 53738 53739 53740 53741 53742 53743 53744 53745 53746 53747 53748 53749 53750 53751 53752 53753 53754 53755 53756 53757 53758 53759 53760 53761 53762 53763 53764 53765 53766 53767 53768 53769 53770 53771 53772 53773 53774 53775 53776 53777 53778 53779 53780 53781 53782 53783 53784 53785 53786 53787 53788 53789 53790 53791 53792 53793 53794 53795 53796 53797 53798 53799 53800 53801 53802 53803 53804 53805 53806 53807 53808 53809 53810 53811 53812 53813 53814 53815 53816 53817 53818 53819 53820 53821 53822 53823 53824 53825 53826 53827 53828 53829 53830 53831 53832 53833 53834 53835 53836 53837 53838 53839 53840 53841 53842 53843 53844 53845 53846 53847 53848 53849 53850 53851 53852 53853 53854 53855 53856 53857 53858 53859 53860 53861 53862 53863 53864 53865 53866 53867 53868 53869 53870 53871 53872 53873 53874 53875 53876 53877 53878 53879 53880 53881 53882 53883 53884 53885 53886 53887 53888 53889 53890 53891 53892 53893 53894 53895 53896 53897 53898 53899 53900 53901 53902 53903 53904 53905 53906 53907 53908 53909 53910 53911 53912 53913 53914 53915 53916 53917 53918 53919 53920 53921 53922 53923 53924 53925 53926 53927 53928 53929 53930 53931 53932 53933 53934 53935 53936 53937 53938 53939 53940 53941 53942 53943 53944 53945 53946 53947 53948 53949 53950 53951 53952 53953 53954 53955 53956 53957 53958 53959 53960 53961 53962 53963 53964 53965 53966 53967 53968 53969 53970 53971 53972 53973 53974 53975 53976 53977 53978 53979 53980 53981 53982 53983 53984 53985 53986 53987 53988 53989 53990 53991 53992 53993 53994 53995 53996 53997 53998 53999 54000 54001 54002 54003 54004 54005 54006 54007 54008 54009 54010 54011 54012 54013 54014 54015 54016 54017 54018 54019 54020 54021 54022 54023 54024 54025 54026 54027 54028 54029 54030 54031 54032 54033 54034 54035 54036 54037 54038 54039 54040 54041 54042 54043 54044 54045 54046 54047 54048 54049 54050 54051 54052 54053 54054 54055 54056 54057 54058 54059 54060 54061 54062 54063 54064 54065 54066 54067 54068 54069 54070 54071 54072 54073 54074 54075 54076 54077 54078 54079 54080 54081 54082 54083 54084 54085 54086 54087 54088 54089 54090 54091 54092 54093 54094 54095 54096 54097 54098 54099 54100 54101 54102 54103 54104 54105 54106 54107 54108 54109 54110 54111 54112 54113 54114 54115 54116 54117 54118 54119 54120 54121 54122 54123 54124 54125 54126 54127 54128 54129 54130 54131 54132 54133 54134 54135 54136 54137 54138 54139 54140 54141 54142 54143 54144 54145 54146 54147 54148 54149 54150 54151 54152 54153 54154 54155 54156 54157 54158 54159 54160 54161 54162 54163 54164 54165 54166 54167 54168 54169 54170 54171 54172 54173 54174 54175 54176 54177 54178 54179 54180 54181 54182 54183 54184 54185 54186 54187 54188 54189 54190 54191 54192 54193 54194 54195 54196 54197 54198 54199 54200 54201 54202 54203 54204 54205 54206 54207 54208 54209 54210 54211 54212 54213 54214 54215 54216 54217 54218 54219 54220 54221 54222 54223 54224 54225 54226 54227 54228 54229 54230 54231 54232 54233 54234 54235 54236 54237 54238 54239 54240 54241 54242 54243 54244 54245 54246 54247 54248 54249 54250 54251 54252 54253 54254 54255 54256 54257 54258 54259 54260 54261 54262 54263 54264 54265 54266 54267 54268 54269 54270 54271 54272 54273 54274 54275 54276 54277 54278 54279 54280 54281 54282 54283 54284 54285 54286 54287 54288 54289 54290 54291 54292 54293 54294 54295 54296 54297 54298 54299 54300 54301 54302 54303 54304 54305 54306 54307 54308 54309 54310 54311 54312 54313 54314 54315 54316 54317 54318 54319 54320 54321 54322 54323 54324 54325 54326 54327 54328 54329 54330 54331 54332 54333 54334 54335 54336 54337 54338 54339 54340 54341 54342 54343 54344 54345 54346 54347 54348 54349 54350 54351 54352 54353 54354 54355 54356 54357 54358 54359 54360 54361 54362 54363 54364 54365 54366 54367 54368 54369 54370 54371 54372 54373 54374 54375 54376 54377 54378 54379 54380 54381 54382 54383 54384 54385 54386 54387 54388 54389 54390 54391 54392 54393 54394 54395 54396 54397 54398 54399 54400 54401 54402 54403 54404 54405 54406 54407 54408 54409 54410 54411 54412 54413 54414 54415 54416 54417 54418 54419 54420 54421 54422 54423 54424 54425 54426 54427 54428 54429 54430 54431 54432 54433 54434 54435 54436 54437 54438 54439 54440 54441 54442 54443 54444 54445 54446 54447 54448 54449 54450 54451 54452 54453 54454 54455 54456 54457 54458 54459 54460 54461 54462 54463 54464 54465 54466 54467 54468 54469 54470 54471 54472 54473 54474 54475 54476 54477 54478 54479 54480 54481 54482 54483 54484 54485 54486 54487 54488 54489 54490 54491 54492 54493 54494 54495 54496 54497 54498 54499 54500 54501 54502 54503 54504 54505 54506 54507 54508 54509 54510 54511 54512 54513 54514 54515 54516 54517 54518 54519 54520 54521 54522 54523 54524 54525 54526 54527 54528 54529 54530 54531 54532 54533 54534 54535 54536 54537 54538 54539 54540 54541 54542 54543 54544 54545 54546 54547 54548 54549 54550 54551 54552 54553 54554 54555 54556 54557 54558 54559 54560 54561 54562 54563 54564 54565 54566 54567 54568 54569 54570 54571 54572 54573 54574 54575 54576 54577 54578 54579 54580 54581 54582 54583 54584 54585 54586 54587 54588 54589 54590 54591 54592 54593 54594 54595 54596 54597 54598 54599 54600 54601 54602 54603 54604 54605 54606 54607 54608 54609 54610 54611 54612 54613 54614 54615 54616 54617 54618 54619 54620 54621 54622 54623 54624 54625 54626 54627 54628 54629 54630 54631 54632 54633 54634 54635 54636 54637 54638 54639 54640 54641 54642 54643 54644 54645 54646 54647 54648 54649 54650 54651 54652 54653 54654 54655 54656 54657 54658 54659 54660 54661 54662 54663 54664 54665 54666 54667 54668 54669 54670 54671 54672 54673 54674 54675 54676 54677 54678 54679 54680 54681 54682 54683 54684 54685 54686 54687 54688 54689 54690 54691 54692 54693 54694 54695 54696 54697 54698 54699 54700 54701 54702 54703 54704 54705 54706 54707 54708 54709 54710 54711 54712 54713 54714 54715 54716 54717 54718 54719 54720 54721 54722 54723 54724 54725 54726 54727 54728 54729 54730 54731 54732 54733 54734 54735 54736 54737 54738 54739 54740 54741 54742 54743 54744 54745 54746 54747 54748 54749 54750 54751 54752 54753 54754 54755 54756 54757 54758 54759 54760 54761 54762 54763 54764 54765 54766 54767 54768 54769 54770 54771 54772 54773 54774 54775 54776 54777 54778 54779 54780 54781 54782 54783 54784 54785 54786 54787 54788 54789 54790 54791 54792 54793 54794 54795 54796 54797 54798 54799 54800 54801 54802 54803 54804 54805 54806 54807 54808 54809 54810 54811 54812 54813 54814 54815 54816 54817 54818 54819 54820 54821 54822 54823 54824 54825 54826 54827 54828 54829 54830 54831 54832 54833 54834 54835 54836 54837 54838 54839 54840 54841 54842 54843 54844 54845 54846 54847 54848 54849 54850 54851 54852 54853 54854 54855 54856 54857 54858 54859 54860 54861 54862 54863 54864 54865 54866 54867 54868 54869 54870 54871 54872 54873 54874 54875 54876 54877 54878 54879 54880 54881 54882 54883 54884 54885 54886 54887 54888 54889 54890 54891 54892 54893 54894 54895 54896 54897 54898 54899 54900 54901 54902 54903 54904 54905 54906 54907 54908 54909 54910 54911 54912 54913 54914 54915 54916 54917 54918 54919 54920 54921 54922 54923 54924 54925 54926 54927 54928 54929 54930 54931 54932 54933 54934 54935 54936 54937 54938 54939 54940 54941 54942 54943 54944 54945 54946 54947 54948 54949 54950 54951 54952 54953 54954 54955 54956 54957 54958 54959 54960 54961 54962 54963 54964 54965 54966 54967 54968 54969 54970 54971 54972 54973 54974 54975 54976 54977 54978 54979 54980 54981 54982 54983 54984 54985 54986 54987 54988 54989 54990 54991 54992 54993 54994 54995 54996 54997 54998 54999 55000 55001 55002 55003 55004 55005 55006 55007 55008 55009 55010 55011 55012 55013 55014 55015 55016 55017 55018 55019 55020 55021 55022 55023 55024 55025 55026 55027 55028 55029 55030 55031 55032 55033 55034 55035 55036 55037 55038 55039 55040 55041 55042 55043 55044 55045 55046 55047 55048 55049 55050 55051 55052 55053 55054 55055 55056 55057 55058 55059 55060 55061 55062 55063 55064 55065 55066 55067 55068 55069 55070 55071 55072 55073 55074 55075 55076 55077 55078 55079 55080 55081 55082 55083 55084 55085 55086 55087 55088 55089 55090 55091 55092 55093 55094 55095 55096 55097 55098 55099 55100 55101 55102 55103 55104 55105 55106 55107 55108 55109 55110 55111 55112 55113 55114 55115 55116 55117 55118 55119 55120 55121 55122 55123 55124 55125 55126 55127 55128 55129 55130 55131 55132 55133 55134 55135 55136 55137 55138 55139 55140 55141 55142 55143 55144 55145 55146 55147 55148 55149 55150 55151 55152 55153 55154 55155 55156 55157 55158 55159 55160 55161 55162 55163 55164 55165 55166 55167 55168 55169 55170 55171 55172 55173 55174 55175 55176 55177 55178 55179 55180 55181 55182 55183 55184 55185 55186 55187 55188 55189 55190 55191 55192 55193 55194 55195 55196 55197 55198 55199 55200 55201 55202 55203 55204 55205 55206 55207 55208 55209 55210 55211 55212 55213 55214 55215 55216 55217 55218 55219 55220 55221 55222 55223 55224 55225 55226 55227 55228 55229 55230 55231 55232 55233 55234 55235 55236 55237 55238 55239 55240 55241 55242 55243 55244 55245 55246 55247 55248 55249 55250 55251 55252 55253 55254 55255 55256 55257 55258 55259 55260 55261 55262 55263 55264 55265 55266 55267 55268 55269 55270 55271 55272 55273 55274 55275 55276 55277 55278 55279 55280 55281 55282 55283 55284 55285 55286 55287 55288 55289 55290 55291 55292 55293 55294 55295 55296 55297 55298 55299 55300 55301 55302 55303 55304 55305 55306 55307 55308 55309 55310 55311 55312 55313 55314 55315 55316 55317 55318 55319 55320 55321 55322 55323 55324 55325 55326 55327 55328 55329 55330 55331 55332 55333 55334 55335 55336 55337 55338 55339 55340 55341 55342 55343 55344 55345 55346 55347 55348 55349 55350 55351 55352 55353 55354 55355 55356 55357 55358 55359 55360 55361 55362 55363 55364 55365 55366 55367 55368 55369 55370 55371 55372 55373 55374 55375 55376 55377 55378 55379 55380 55381 55382 55383 55384 55385 55386 55387 55388 55389 55390 55391 55392 55393 55394 55395 55396 55397 55398 55399 55400 55401 55402 55403 55404 55405 55406 55407 55408 55409 55410 55411 55412 55413 55414 55415 55416 55417 55418 55419 55420 55421 55422 55423 55424 55425 55426 55427 55428 55429 55430 55431 55432 55433 55434 55435 55436 55437 55438 55439 55440 55441 55442 55443 55444 55445 55446 55447 55448 55449 55450 55451 55452 55453 55454 55455 55456 55457 55458 55459 55460 55461 55462 55463 55464 55465 55466 55467 55468 55469 55470 55471 55472 55473 55474 55475 55476 55477 55478 55479 55480 55481 55482 55483 55484 55485 55486 55487 55488 55489 55490 55491 55492 55493 55494 55495 55496 55497 55498 55499 55500 55501 55502 55503 55504 55505 55506 55507 55508 55509 55510 55511 55512 55513 55514 55515 55516 55517 55518 55519 55520 55521 55522 55523 55524 55525 55526 55527 55528 55529 55530 55531 55532 55533 55534 55535 55536 55537 55538 55539 55540 55541 55542 55543 55544 55545 55546 55547 55548 55549 55550 55551 55552 55553 55554 55555 55556 55557 55558 55559 55560 55561 55562 55563 55564 55565 55566 55567 55568 55569 55570 55571 55572 55573 55574 55575 55576 55577 55578 55579 55580 55581 55582 55583 55584 55585 55586 55587 55588 55589 55590 55591 55592 55593 55594 55595 55596 55597 55598 55599 55600 55601 55602 55603 55604 55605 55606 55607 55608 55609 55610 55611 55612 55613 55614 55615 55616 55617 55618 55619 55620 55621 55622 55623 55624 55625 55626 55627 55628 55629 55630 55631 55632 55633 55634 55635 55636 55637 55638 55639 55640 55641 55642 55643 55644 55645 55646 55647 55648 55649 55650 55651 55652 55653 55654 55655 55656 55657 55658 55659 55660 55661 55662 55663 55664 55665 55666 55667 55668 55669 55670 55671 55672 55673 55674 55675 55676 55677 55678 55679 55680 55681 55682 55683 55684 55685 55686 55687 55688 55689 55690 55691 55692 55693 55694 55695 55696 55697 55698 55699 55700 55701 55702 55703 55704 55705 55706 55707 55708 55709 55710 55711 55712 55713 55714 55715 55716 55717 55718 55719 55720 55721 55722 55723 55724 55725 55726 55727 55728 55729 55730 55731 55732 55733 55734 55735 55736 55737 55738 55739 55740 55741 55742 55743 55744 55745 55746 55747 55748 55749 55750 55751 55752 55753 55754 55755 55756 55757 55758 55759 55760 55761 55762 55763 55764 55765 55766 55767 55768 55769 55770 55771 55772 55773 55774 55775 55776 55777 55778 55779 55780 55781 55782 55783 55784 55785 55786 55787 55788 55789 55790 55791 55792 55793 55794 55795 55796 55797 55798 55799 55800 55801 55802 55803 55804 55805 55806 55807 55808 55809 55810 55811 55812 55813 55814 55815 55816 55817 55818 55819 55820 55821 55822 55823 55824 55825 55826 55827 55828 55829 55830 55831 55832 55833 55834 55835 55836 55837 55838 55839 55840 55841 55842 55843 55844 55845 55846 55847 55848 55849 55850 55851 55852 55853 55854 55855 55856 55857 55858 55859 55860 55861 55862 55863 55864 55865 55866 55867 55868 55869 55870 55871 55872 55873 55874 55875 55876 55877 55878 55879 55880 55881 55882 55883 55884 55885 55886 55887 55888 55889 55890 55891 55892 55893 55894 55895 55896 55897 55898 55899 55900 55901 55902 55903 55904 55905 55906 55907 55908 55909 55910 55911 55912 55913 55914 55915 55916 55917 55918 55919 55920 55921 55922 55923 55924 55925 55926 55927 55928 55929 55930 55931 55932 55933 55934 55935 55936 55937 55938 55939 55940 55941 55942 55943 55944 55945 55946 55947 55948 55949 55950 55951 55952 55953 55954 55955 55956 55957 55958 55959 55960 55961 55962 55963 55964 55965 55966 55967 55968 55969 55970 55971 55972 55973 55974 55975 55976 55977 55978 55979 55980 55981 55982 55983 55984 55985 55986 55987 55988 55989 55990 55991 55992 55993 55994 55995 55996 55997 55998 55999 56000 56001 56002 56003 56004 56005 56006 56007 56008 56009 56010 56011 56012 56013 56014 56015 56016 56017 56018 56019 56020 56021 56022 56023 56024 56025 56026 56027 56028 56029 56030 56031 56032 56033 56034 56035 56036 56037 56038 56039 56040 56041 56042 56043 56044 56045 56046 56047 56048 56049 56050 56051 56052 56053 56054 56055 56056 56057 56058 56059 56060 56061 56062 56063 56064 56065 56066 56067 56068 56069 56070 56071 56072 56073 56074 56075 56076 56077 56078 56079 56080 56081 56082 56083 56084 56085 56086 56087 56088 56089 56090 56091 56092 56093 56094 56095 56096 56097 56098 56099 56100 56101 56102 56103 56104 56105 56106 56107 56108 56109 56110 56111 56112 56113 56114 56115 56116 56117 56118 56119 56120 56121 56122 56123 56124 56125 56126 56127 56128 56129 56130 56131 56132 56133 56134 56135 56136 56137 56138 56139 56140 56141 56142 56143 56144 56145 56146 56147 56148 56149 56150 56151 56152 56153 56154 56155 56156 56157 56158 56159 56160 56161 56162 56163 56164 56165 56166 56167 56168 56169 56170 56171 56172 56173 56174 56175 56176 56177 56178 56179 56180 56181 56182 56183 56184 56185 56186 56187 56188 56189 56190 56191 56192 56193 56194 56195 56196 56197 56198 56199 56200 56201 56202 56203 56204 56205 56206 56207 56208 56209 56210 56211 56212 56213 56214 56215 56216 56217 56218 56219 56220 56221 56222 56223 56224 56225 56226 56227 56228 56229 56230 56231 56232 56233 56234 56235 56236 56237 56238 56239 56240 56241 56242 56243 56244 56245 56246 56247 56248 56249 56250 56251 56252 56253 56254 56255 56256 56257 56258 56259 56260 56261 56262 56263 56264 56265 56266 56267 56268 56269 56270 56271 56272 56273 56274 56275 56276 56277 56278 56279 56280 56281 56282 56283 56284 56285 56286 56287 56288 56289 56290 56291 56292 56293 56294 56295 56296 56297 56298 56299 56300 56301 56302 56303 56304 56305 56306 56307 56308 56309 56310 56311 56312 56313 56314 56315 56316 56317 56318 56319 56320 56321 56322 56323 56324 56325 56326 56327 56328 56329 56330 56331 56332 56333 56334 56335 56336 56337 56338 56339 56340 56341 56342 56343 56344 56345 56346 56347 56348 56349 56350 56351 56352 56353 56354 56355 56356 56357 56358 56359 56360 56361 56362 56363 56364 56365 56366 56367 56368 56369 56370 56371 56372 56373 56374 56375 56376 56377 56378 56379 56380 56381 56382 56383 56384 56385 56386 56387 56388 56389 56390 56391 56392 56393 56394 56395 56396 56397 56398 56399 56400 56401 56402 56403 56404 56405 56406 56407 56408 56409 56410 56411 56412 56413 56414 56415 56416 56417 56418 56419 56420 56421 56422 56423 56424 56425 56426 56427 56428 56429 56430 56431 56432 56433 56434 56435 56436 56437 56438 56439 56440 56441 56442 56443 56444 56445 56446 56447 56448 56449 56450 56451 56452 56453 56454 56455 56456 56457 56458 56459 56460 56461 56462 56463 56464 56465 56466 56467 56468 56469 56470 56471 56472 56473 56474 56475 56476 56477 56478 56479 56480 56481 56482 56483 56484 56485 56486 56487 56488 56489 56490 56491 56492 56493 56494 56495 56496 56497 56498 56499 56500 56501 56502 56503 56504 56505 56506 56507 56508 56509 56510 56511 56512 56513 56514 56515 56516 56517 56518 56519 56520 56521 56522 56523 56524 56525 56526 56527 56528 56529 56530 56531 56532 56533 56534 56535 56536 56537 56538 56539 56540 56541 56542 56543 56544 56545 56546 56547 56548 56549 56550 56551 56552 56553 56554 56555 56556 56557 56558 56559 56560 56561 56562 56563 56564 56565 56566 56567 56568 56569 56570 56571 56572 56573 56574 56575 56576 56577 56578 56579 56580 56581 56582 56583 56584 56585 56586 56587 56588 56589 56590 56591 56592 56593 56594 56595 56596 56597 56598 56599 56600 56601 56602 56603 56604 56605 56606 56607 56608 56609 56610 56611 56612 56613 56614 56615 56616 56617 56618 56619 56620 56621 56622 56623 56624 56625 56626 56627 56628 56629 56630 56631 56632 56633 56634 56635 56636 56637 56638 56639 56640 56641 56642 56643 56644 56645 56646 56647 56648 56649 56650 56651 56652 56653 56654 56655 56656 56657 56658 56659 56660 56661 56662 56663 56664 56665 56666 56667 56668 56669 56670 56671 56672 56673 56674 56675 56676 56677 56678 56679 56680 56681 56682 56683 56684 56685 56686 56687 56688 56689 56690 56691 56692 56693 56694 56695 56696 56697 56698 56699 56700 56701 56702 56703 56704 56705 56706 56707 56708 56709 56710 56711 56712 56713 56714 56715 56716 56717 56718 56719 56720 56721 56722 56723 56724 56725 56726 56727 56728 56729 56730 56731 56732 56733 56734 56735 56736 56737 56738 56739 56740 56741 56742 56743 56744 56745 56746 56747 56748 56749 56750 56751 56752 56753 56754 56755 56756 56757 56758 56759 56760 56761 56762 56763 56764 56765 56766 56767 56768 56769 56770 56771 56772 56773 56774 56775 56776 56777 56778 56779 56780 56781 56782 56783 56784 56785 56786 56787 56788 56789 56790 56791 56792 56793 56794 56795 56796 56797 56798 56799 56800 56801 56802 56803 56804 56805 56806 56807 56808 56809 56810 56811 56812 56813 56814 56815 56816 56817 56818 56819 56820 56821 56822 56823 56824 56825 56826 56827 56828 56829 56830 56831 56832 56833 56834 56835 56836 56837 56838 56839 56840 56841 56842 56843 56844 56845 56846 56847 56848 56849 56850 56851 56852 56853 56854 56855 56856 56857 56858 56859 56860 56861 56862 56863 56864 56865 56866 56867 56868 56869 56870 56871 56872 56873 56874 56875 56876 56877 56878 56879 56880 56881 56882 56883 56884 56885 56886 56887 56888 56889 56890 56891 56892 56893 56894 56895 56896 56897 56898 56899 56900 56901 56902 56903 56904 56905 56906 56907 56908 56909 56910 56911 56912 56913 56914 56915 56916 56917 56918 56919 56920 56921 56922 56923 56924 56925 56926 56927 56928 56929 56930 56931 56932 56933 56934 56935 56936 56937 56938 56939 56940 56941 56942 56943 56944 56945 56946 56947 56948 56949 56950 56951 56952 56953 56954 56955 56956 56957 56958 56959 56960 56961 56962 56963 56964 56965 56966 56967 56968 56969 56970 56971 56972 56973 56974 56975 56976 56977 56978 56979 56980 56981 56982 56983 56984 56985 56986 56987 56988 56989 56990 56991 56992 56993 56994 56995 56996 56997 56998 56999 57000 57001 57002 57003 57004 57005 57006 57007 57008 57009 57010 57011 57012 57013 57014 57015 57016 57017 57018 57019 57020 57021 57022 57023 57024 57025 57026 57027 57028 57029 57030 57031 57032 57033 57034 57035 57036 57037 57038 57039 57040 57041 57042 57043 57044 57045 57046 57047 57048 57049 57050 57051 57052 57053 57054 57055 57056 57057 57058 57059 57060 57061 57062 57063 57064 57065 57066 57067 57068 57069 57070 57071 57072 57073 57074 57075 57076 57077 57078 57079 57080 57081 57082 57083 57084 57085 57086 57087 57088 57089 57090 57091 57092 57093 57094 57095 57096 57097 57098 57099 57100 57101 57102 57103 57104 57105 57106 57107 57108 57109 57110 57111 57112 57113 57114 57115 57116 57117 57118 57119 57120 57121 57122 57123 57124 57125 57126 57127 57128 57129 57130 57131 57132 57133 57134 57135 57136 57137 57138 57139 57140 57141 57142 57143 57144 57145 57146 57147 57148 57149 57150 57151 57152 57153 57154 57155 57156 57157 57158 57159 57160 57161 57162 57163 57164 57165 57166 57167 57168 57169 57170 57171 57172 57173 57174 57175 57176 57177 57178 57179 57180 57181 57182 57183 57184 57185 57186 57187 57188 57189 57190 57191 57192 57193 57194 57195 57196 57197 57198 57199 57200 57201 57202 57203 57204 57205 57206 57207 57208 57209 57210 57211 57212 57213 57214 57215 57216 57217 57218 57219 57220 57221 57222 57223 57224 57225 57226 57227 57228 57229 57230 57231 57232 57233 57234 57235 57236 57237 57238 57239 57240 57241 57242 57243 57244 57245 57246 57247 57248 57249 57250 57251 57252 57253 57254 57255 57256 57257 57258 57259 57260 57261 57262 57263 57264 57265 57266 57267 57268 57269 57270 57271 57272 57273 57274 57275 57276 57277 57278 57279 57280 57281 57282 57283 57284 57285 57286 57287 57288 57289 57290 57291 57292 57293 57294 57295 57296 57297 57298 57299 57300 57301 57302 57303 57304 57305 57306 57307 57308 57309 57310 57311 57312 57313 57314 57315 57316 57317 57318 57319 57320 57321 57322 57323 57324 57325 57326 57327 57328 57329 57330 57331 57332 57333 57334 57335 57336 57337 57338 57339 57340 57341 57342 57343 57344 57345 57346 57347 57348 57349 57350 57351 57352 57353 57354 57355 57356 57357 57358 57359 57360 57361 57362 57363 57364 57365 57366 57367 57368 57369 57370 57371 57372 57373 57374 57375 57376 57377 57378 57379 57380 57381 57382 57383 57384 57385 57386 57387 57388 57389 57390 57391 57392 57393 57394 57395 57396 57397 57398 57399 57400 57401 57402 57403 57404 57405 57406 57407 57408 57409 57410 57411 57412 57413 57414 57415 57416 57417 57418 57419 57420 57421 57422 57423 57424 57425 57426 57427 57428 57429 57430 57431 57432 57433 57434 57435 57436 57437 57438 57439 57440 57441 57442 57443 57444 57445 57446 57447 57448 57449 57450 57451 57452 57453 57454 57455 57456 57457 57458 57459 57460 57461 57462 57463 57464 57465 57466 57467 57468 57469 57470 57471 57472 57473 57474 57475 57476 57477 57478 57479 57480 57481 57482 57483 57484 57485 57486 57487 57488 57489 57490 57491 57492 57493 57494 57495 57496 57497 57498 57499 57500 57501 57502 57503 57504 57505 57506 57507 57508 57509 57510 57511 57512 57513 57514 57515 57516 57517 57518 57519 57520 57521 57522 57523 57524 57525 57526 57527 57528 57529 57530 57531 57532 57533 57534 57535 57536 57537 57538 57539 57540 57541 57542 57543 57544 57545 57546 57547 57548 57549 57550 57551 57552 57553 57554 57555 57556 57557 57558 57559 57560 57561 57562 57563 57564 57565 57566 57567 57568 57569 57570 57571 57572 57573 57574 57575 57576 57577 57578 57579 57580 57581 57582 57583 57584 57585 57586 57587 57588 57589 57590 57591 57592 57593 57594 57595 57596 57597 57598 57599 57600 57601 57602 57603 57604 57605 57606 57607 57608 57609 57610 57611 57612 57613 57614 57615 57616 57617 57618 57619 57620 57621 57622 57623 57624 57625 57626 57627 57628 57629 57630 57631 57632 57633 57634 57635 57636 57637 57638 57639 57640 57641 57642 57643 57644 57645 57646 57647 57648 57649 57650 57651 57652 57653 57654 57655 57656 57657 57658 57659 57660 57661 57662 57663 57664 57665 57666 57667 57668 57669 57670 57671 57672 57673 57674 57675 57676 57677 57678 57679 57680 57681 57682 57683 57684 57685 57686 57687 57688 57689 57690 57691 57692 57693 57694 57695 57696 57697 57698 57699 57700 57701 57702 57703 57704 57705 57706 57707 57708 57709 57710 57711 57712 57713 57714 57715 57716 57717 57718 57719 57720 57721 57722 57723 57724 57725 57726 57727 57728 57729 57730 57731 57732 57733 57734 57735 57736 57737 57738 57739 57740 57741 57742 57743 57744 57745 57746 57747 57748 57749 57750 57751 57752 57753 57754 57755 57756 57757 57758 57759 57760 57761 57762 57763 57764 57765 57766 57767 57768 57769 57770 57771 57772 57773 57774 57775 57776 57777 57778 57779 57780 57781 57782 57783 57784 57785 57786 57787 57788 57789 57790 57791 57792 57793 57794 57795 57796 57797 57798 57799 57800 57801 57802 57803 57804 57805 57806 57807 57808 57809 57810 57811 57812 57813 57814 57815 57816 57817 57818 57819 57820 57821 57822 57823 57824 57825 57826 57827 57828 57829 57830 57831 57832 57833 57834 57835 57836 57837 57838 57839 57840 57841 57842 57843 57844 57845 57846 57847 57848 57849 57850 57851 57852 57853 57854 57855 57856 57857 57858 57859 57860 57861 57862 57863 57864 57865 57866 57867 57868 57869 57870 57871 57872 57873 57874 57875 57876 57877 57878 57879 57880 57881 57882 57883 57884 57885 57886 57887 57888 57889 57890 57891 57892 57893 57894 57895 57896 57897 57898 57899 57900 57901 57902 57903 57904 57905 57906 57907 57908 57909 57910 57911 57912 57913 57914 57915 57916 57917 57918 57919 57920 57921 57922 57923 57924 57925 57926 57927 57928 57929 57930 57931 57932 57933 57934 57935 57936 57937 57938 57939 57940 57941 57942 57943 57944 57945 57946 57947 57948 57949 57950 57951 57952 57953 57954 57955 57956 57957 57958 57959 57960 57961 57962 57963 57964 57965 57966 57967 57968 57969 57970 57971 57972 57973 57974 57975 57976 57977 57978 57979 57980 57981 57982 57983 57984 57985 57986 57987 57988 57989 57990 57991 57992 57993 57994 57995 57996 57997 57998 57999 58000 58001 58002 58003 58004 58005 58006 58007 58008 58009 58010 58011 58012 58013 58014 58015 58016 58017 58018 58019 58020 58021 58022 58023 58024 58025 58026 58027 58028 58029 58030 58031 58032 58033 58034 58035 58036 58037 58038 58039 58040 58041 58042 58043 58044 58045 58046 58047 58048 58049 58050 58051 58052 58053 58054 58055 58056 58057 58058 58059 58060 58061 58062 58063 58064 58065 58066 58067 58068 58069 58070 58071 58072 58073 58074 58075 58076 58077 58078 58079 58080 58081 58082 58083 58084 58085 58086 58087 58088 58089 58090 58091 58092 58093 58094 58095 58096 58097 58098 58099 58100 58101 58102 58103 58104 58105 58106 58107 58108 58109 58110 58111 58112 58113 58114 58115 58116 58117 58118 58119 58120 58121 58122 58123 58124 58125 58126 58127 58128 58129 58130 58131 58132 58133 58134 58135 58136 58137 58138 58139 58140 58141 58142 58143 58144 58145 58146 58147 58148 58149 58150 58151 58152 58153 58154 58155 58156 58157 58158 58159 58160 58161 58162 58163 58164 58165 58166 58167 58168 58169 58170 58171 58172 58173 58174 58175 58176 58177 58178 58179 58180 58181 58182 58183 58184 58185 58186 58187 58188 58189 58190 58191 58192 58193 58194 58195 58196 58197 58198 58199 58200 58201 58202 58203 58204 58205 58206 58207 58208 58209 58210 58211 58212 58213 58214 58215 58216 58217 58218 58219 58220 58221 58222 58223 58224 58225 58226 58227 58228 58229 58230 58231 58232 58233 58234 58235 58236 58237 58238 58239 58240 58241 58242 58243 58244 58245 58246 58247 58248 58249 58250 58251 58252 58253 58254 58255 58256 58257 58258 58259 58260 58261 58262 58263 58264 58265 58266 58267 58268 58269 58270 58271 58272 58273 58274 58275 58276 58277 58278 58279 58280 58281 58282 58283 58284 58285 58286 58287 58288 58289 58290 58291 58292 58293 58294 58295 58296 58297 58298 58299 58300 58301 58302 58303 58304 58305 58306 58307 58308 58309 58310 58311 58312 58313 58314 58315 58316 58317 58318 58319 58320 58321 58322 58323 58324 58325 58326 58327 58328 58329 58330 58331 58332 58333 58334 58335 58336 58337 58338 58339 58340 58341 58342 58343 58344 58345 58346 58347 58348 58349 58350 58351 58352 58353 58354 58355 58356 58357 58358 58359 58360 58361 58362 58363 58364 58365 58366 58367 58368 58369 58370 58371 58372 58373 58374 58375 58376 58377 58378 58379 58380 58381 58382 58383 58384 58385 58386 58387 58388 58389 58390 58391 58392 58393 58394 58395 58396 58397 58398 58399 58400 58401 58402 58403 58404 58405 58406 58407 58408 58409 58410 58411 58412 58413 58414 58415 58416 58417 58418 58419 58420 58421 58422 58423 58424 58425 58426 58427 58428 58429 58430 58431 58432 58433 58434 58435 58436 58437 58438 58439 58440 58441 58442 58443 58444 58445 58446 58447 58448 58449 58450 58451 58452 58453 58454 58455 58456 58457 58458 58459 58460 58461 58462 58463 58464 58465 58466 58467 58468 58469 58470 58471 58472 58473 58474 58475 58476 58477 58478 58479 58480 58481 58482 58483 58484 58485 58486 58487 58488 58489 58490 58491 58492 58493 58494 58495 58496 58497 58498 58499 58500 58501 58502 58503 58504 58505 58506 58507 58508 58509 58510 58511 58512 58513 58514 58515 58516 58517 58518 58519 58520 58521 58522 58523 58524 58525 58526 58527 58528 58529 58530 58531 58532 58533 58534 58535 58536 58537 58538 58539 58540 58541 58542 58543 58544 58545 58546 58547 58548 58549 58550 58551 58552 58553 58554 58555 58556 58557 58558 58559 58560 58561 58562 58563 58564 58565 58566 58567 58568 58569 58570 58571 58572 58573 58574 58575 58576 58577 58578 58579 58580 58581 58582 58583 58584 58585 58586 58587 58588 58589 58590 58591 58592 58593 58594 58595 58596 58597 58598 58599 58600 58601 58602 58603 58604 58605 58606 58607 58608 58609 58610 58611 58612 58613 58614 58615 58616 58617 58618 58619 58620 58621 58622 58623 58624 58625 58626 58627 58628 58629 58630 58631 58632 58633 58634 58635 58636 58637 58638 58639 58640 58641 58642 58643 58644 58645 58646 58647 58648 58649 58650 58651 58652 58653 58654 58655 58656 58657 58658 58659 58660 58661 58662 58663 58664 58665 58666 58667 58668 58669 58670 58671 58672 58673 58674 58675 58676 58677 58678 58679 58680 58681 58682 58683 58684 58685 58686 58687 58688 58689 58690 58691 58692 58693 58694 58695 58696 58697 58698 58699 58700 58701 58702 58703 58704 58705 58706 58707 58708 58709 58710 58711 58712 58713 58714 58715 58716 58717 58718 58719 58720 58721 58722 58723 58724 58725 58726 58727 58728 58729 58730 58731 58732 58733 58734 58735 58736 58737 58738 58739 58740 58741 58742 58743 58744 58745 58746 58747 58748 58749 58750 58751 58752 58753 58754 58755 58756 58757 58758 58759 58760 58761 58762 58763 58764 58765 58766 58767 58768 58769 58770 58771 58772 58773 58774 58775 58776 58777 58778 58779 58780 58781 58782 58783 58784 58785 58786 58787 58788 58789 58790 58791 58792 58793 58794 58795 58796 58797 58798 58799 58800 58801 58802 58803 58804 58805 58806 58807 58808 58809 58810 58811 58812 58813 58814 58815 58816 58817 58818 58819 58820 58821 58822 58823 58824 58825 58826 58827 58828 58829 58830 58831 58832 58833 58834 58835 58836 58837 58838 58839 58840 58841 58842 58843 58844 58845 58846 58847 58848 58849 58850 58851 58852 58853 58854 58855 58856 58857 58858 58859 58860 58861 58862 58863 58864 58865 58866 58867 58868 58869 58870 58871 58872 58873 58874 58875 58876 58877 58878 58879 58880 58881 58882 58883 58884 58885 58886 58887 58888 58889 58890 58891 58892 58893 58894 58895 58896 58897 58898 58899 58900 58901 58902 58903 58904 58905 58906 58907 58908 58909 58910 58911 58912 58913 58914 58915 58916 58917 58918 58919 58920 58921 58922 58923 58924 58925 58926 58927 58928 58929 58930 58931 58932 58933 58934 58935 58936 58937 58938 58939 58940 58941 58942 58943 58944 58945 58946 58947 58948 58949 58950 58951 58952 58953 58954 58955 58956 58957 58958 58959 58960 58961 58962 58963 58964 58965 58966 58967 58968 58969 58970 58971 58972 58973 58974 58975 58976 58977 58978 58979 58980 58981 58982 58983 58984 58985 58986 58987 58988 58989 58990 58991 58992 58993 58994 58995 58996 58997 58998 58999 59000 59001 59002 59003 59004 59005 59006 59007 59008 59009 59010 59011 59012 59013 59014 59015 59016 59017 59018 59019 59020 59021 59022 59023 59024 59025 59026 59027 59028 59029 59030 59031 59032 59033 59034 59035 59036 59037 59038 59039 59040 59041 59042 59043 59044 59045 59046 59047 59048 59049 59050 59051 59052 59053 59054 59055 59056 59057 59058 59059 59060 59061 59062 59063 59064 59065 59066 59067 59068 59069 59070 59071 59072 59073 59074 59075 59076 59077 59078 59079 59080 59081 59082 59083 59084 59085 59086 59087 59088 59089 59090 59091 59092 59093 59094 59095 59096 59097 59098 59099 59100 59101 59102 59103 59104 59105 59106 59107 59108 59109 59110 59111 59112 59113 59114 59115 59116 59117 59118 59119 59120 59121 59122 59123 59124 59125 59126 59127 59128 59129 59130 59131 59132 59133 59134 59135 59136 59137 59138 59139 59140 59141 59142 59143 59144 59145 59146 59147 59148 59149 59150 59151 59152 59153 59154 59155 59156 59157 59158 59159 59160 59161 59162 59163 59164 59165 59166 59167 59168 59169 59170 59171 59172 59173 59174 59175 59176 59177 59178 59179 59180 59181 59182 59183 59184 59185 59186 59187 59188 59189 59190 59191 59192 59193 59194 59195 59196 59197 59198 59199 59200 59201 59202 59203 59204 59205 59206 59207 59208 59209 59210 59211 59212 59213 59214 59215 59216 59217 59218 59219 59220 59221 59222 59223 59224 59225 59226 59227 59228 59229 59230 59231 59232 59233 59234 59235 59236 59237 59238 59239 59240 59241 59242 59243 59244 59245 59246 59247 59248 59249 59250 59251 59252 59253 59254 59255 59256 59257 59258 59259 59260 59261 59262 59263 59264 59265 59266 59267 59268 59269 59270 59271 59272 59273 59274 59275 59276 59277 59278 59279 59280 59281 59282 59283 59284 59285 59286 59287 59288 59289 59290 59291 59292 59293 59294 59295 59296 59297 59298 59299 59300 59301 59302 59303 59304 59305 59306 59307 59308 59309 59310 59311 59312 59313 59314 59315 59316 59317 59318 59319 59320 59321 59322 59323 59324 59325 59326 59327 59328 59329 59330 59331 59332 59333 59334 59335 59336 59337 59338 59339 59340 59341 59342 59343 59344 59345 59346 59347 59348 59349 59350 59351 59352 59353 59354 59355 59356 59357 59358 59359 59360 59361 59362 59363 59364 59365 59366 59367 59368 59369 59370 59371 59372 59373 59374 59375 59376 59377 59378 59379 59380 59381 59382 59383 59384 59385 59386 59387 59388 59389 59390 59391 59392 59393 59394 59395 59396 59397 59398 59399 59400 59401 59402 59403 59404 59405 59406 59407 59408 59409 59410 59411 59412 59413 59414 59415 59416 59417 59418 59419 59420 59421 59422 59423 59424 59425 59426 59427 59428 59429 59430 59431 59432 59433 59434 59435 59436 59437 59438 59439 59440 59441 59442 59443 59444 59445 59446 59447 59448 59449 59450 59451 59452 59453 59454 59455 59456 59457 59458 59459 59460 59461 59462 59463 59464 59465 59466 59467 59468 59469 59470 59471 59472 59473 59474 59475 59476 59477 59478 59479 59480 59481 59482 59483 59484 59485 59486 59487 59488 59489 59490 59491 59492 59493 59494 59495 59496 59497 59498 59499 59500 59501 59502 59503 59504 59505 59506 59507 59508 59509 59510 59511 59512 59513 59514 59515 59516 59517 59518 59519 59520 59521 59522 59523 59524 59525 59526 59527 59528 59529 59530 59531 59532 59533 59534 59535 59536 59537 59538 59539 59540 59541 59542 59543 59544 59545 59546 59547 59548 59549 59550 59551 59552 59553 59554 59555 59556 59557 59558 59559 59560 59561 59562 59563 59564 59565 59566 59567 59568 59569 59570 59571 59572 59573 59574 59575 59576 59577 59578 59579 59580 59581 59582 59583 59584 59585 59586 59587 59588 59589 59590 59591 59592 59593 59594 59595 59596 59597 59598 59599 59600 59601 59602 59603 59604 59605 59606 59607 59608 59609 59610 59611 59612 59613 59614 59615 59616 59617 59618 59619 59620 59621 59622 59623 59624 59625 59626 59627 59628 59629 59630 59631 59632 59633 59634 59635 59636 59637 59638 59639 59640 59641 59642 59643 59644 59645 59646 59647 59648 59649 59650 59651 59652 59653 59654 59655 59656 59657 59658 59659 59660 59661 59662 59663 59664 59665 59666 59667 59668 59669 59670 59671 59672 59673 59674 59675 59676 59677 59678 59679 59680 59681 59682 59683 59684 59685 59686 59687 59688 59689 59690 59691 59692 59693 59694 59695 59696 59697 59698 59699 59700 59701 59702 59703 59704 59705 59706 59707 59708 59709 59710 59711 59712 59713 59714 59715 59716 59717 59718 59719 59720 59721 59722 59723 59724 59725 59726 59727 59728 59729 59730 59731 59732 59733 59734 59735 59736 59737 59738 59739 59740 59741 59742 59743 59744 59745 59746 59747 59748 59749 59750 59751 59752 59753 59754 59755 59756 59757 59758 59759 59760 59761 59762 59763 59764 59765 59766 59767 59768 59769 59770 59771 59772 59773 59774 59775 59776 59777 59778 59779 59780 59781 59782 59783 59784 59785 59786 59787 59788 59789 59790 59791 59792 59793 59794 59795 59796 59797 59798 59799 59800 59801 59802 59803 59804 59805 59806 59807 59808 59809 59810 59811 59812 59813 59814 59815 59816 59817 59818 59819 59820 59821 59822 59823 59824 59825 59826 59827 59828 59829 59830 59831 59832 59833 59834 59835 59836 59837 59838 59839 59840 59841 59842 59843 59844 59845 59846 59847 59848 59849 59850 59851 59852 59853 59854 59855 59856 59857 59858 59859 59860 59861 59862 59863 59864 59865 59866 59867 59868 59869 59870 59871 59872 59873 59874 59875 59876 59877 59878 59879 59880 59881 59882 59883 59884 59885 59886 59887 59888 59889 59890 59891 59892 59893 59894 59895 59896 59897 59898 59899 59900 59901 59902 59903 59904 59905 59906 59907 59908 59909 59910 59911 59912 59913 59914 59915 59916 59917 59918 59919 59920 59921 59922 59923 59924 59925 59926 59927 59928 59929 59930 59931 59932 59933 59934 59935 59936 59937 59938 59939 59940 59941 59942 59943 59944 59945 59946 59947 59948 59949 59950 59951 59952 59953 59954 59955 59956 59957 59958 59959 59960 59961 59962 59963 59964 59965 59966 59967 59968 59969 59970 59971 59972 59973 59974 59975 59976 59977 59978 59979 59980 59981 59982 59983 59984 59985 59986 59987 59988 59989 59990 59991 59992 59993 59994 59995 59996 59997 59998 59999 60000 60001 60002 60003 60004 60005 60006 60007 60008 60009 60010 60011 60012 60013 60014 60015 60016 60017 60018 60019 60020 60021 60022 60023 60024 60025 60026 60027 60028 60029 60030 60031 60032 60033 60034 60035 60036 60037 60038 60039 60040 60041 60042 60043 60044 60045 60046 60047 60048 60049 60050 60051 60052 60053 60054 60055 60056 60057 60058 60059 60060 60061 60062 60063 60064 60065 60066 60067 60068 60069 60070 60071 60072 60073 60074 60075 60076 60077 60078 60079 60080 60081 60082 60083 60084 60085 60086 60087 60088 60089 60090 60091 60092 60093 60094 60095 60096 60097 60098 60099 60100 60101 60102 60103 60104 60105 60106 60107 60108 60109 60110 60111 60112 60113 60114 60115 60116 60117 60118 60119 60120 60121 60122 60123 60124 60125 60126 60127 60128 60129 60130 60131 60132 60133 60134 60135 60136 60137 60138 60139 60140 60141 60142 60143 60144 60145 60146 60147 60148 60149 60150 60151 60152 60153 60154 60155 60156 60157 60158 60159 60160 60161 60162 60163 60164 60165 60166 60167 60168 60169 60170 60171 60172 60173 60174 60175 60176 60177 60178 60179 60180 60181 60182 60183 60184 60185 60186 60187 60188 60189 60190 60191 60192 60193 60194 60195 60196 60197 60198 60199 60200 60201 60202 60203 60204 60205 60206 60207 60208 60209 60210 60211 60212 60213 60214 60215 60216 60217 60218 60219 60220 60221 60222 60223 60224 60225 60226 60227 60228 60229 60230 60231 60232 60233 60234 60235 60236 60237 60238 60239 60240 60241 60242 60243 60244 60245 60246 60247 60248 60249 60250 60251 60252 60253 60254 60255 60256 60257 60258 60259 60260 60261 60262 60263 60264 60265 60266 60267 60268 60269 60270 60271 60272 60273 60274 60275 60276 60277 60278 60279 60280 60281 60282 60283 60284 60285 60286 60287 60288 60289 60290 60291 60292 60293 60294 60295 60296 60297 60298 60299 60300 60301 60302 60303 60304 60305 60306 60307 60308 60309 60310 60311 60312 60313 60314 60315 60316 60317 60318 60319 60320 60321 60322 60323 60324 60325 60326 60327 60328 60329 60330 60331 60332 60333 60334 60335 60336 60337 60338 60339 60340 60341 60342 60343 60344 60345 60346 60347 60348 60349 60350 60351 60352 60353 60354 60355 60356 60357 60358 60359 60360 60361 60362 60363 60364 60365 60366 60367 60368 60369 60370 60371 60372 60373 60374 60375 60376 60377 60378 60379 60380 60381 60382 60383 60384 60385 60386 60387 60388 60389 60390 60391 60392 60393 60394 60395 60396 60397 60398 60399 60400 60401 60402 60403 60404 60405 60406 60407 60408 60409 60410 60411 60412 60413 60414 60415 60416 60417 60418 60419 60420 60421 60422 60423 60424 60425 60426 60427 60428 60429 60430 60431 60432 60433 60434 60435 60436 60437 60438 60439 60440 60441 60442 60443 60444 60445 60446 60447 60448 60449 60450 60451 60452 60453 60454 60455 60456 60457 60458 60459 60460 60461 60462 60463 60464 60465 60466 60467 60468 60469 60470 60471 60472 60473 60474 60475 60476 60477 60478 60479 60480 60481 60482 60483 60484 60485 60486 60487 60488 60489 60490 60491 60492 60493 60494 60495 60496 60497 60498 60499 60500 60501 60502 60503 60504 60505 60506 60507 60508 60509 60510 60511 60512 60513 60514 60515 60516 60517 60518 60519 60520 60521 60522 60523 60524 60525 60526 60527 60528 60529 60530 60531 60532 60533 60534 60535 60536 60537 60538 60539 60540 60541 60542 60543 60544 60545 60546 60547 60548 60549 60550 60551 60552 60553 60554 60555 60556 60557 60558 60559 60560 60561 60562 60563 60564 60565 60566 60567 60568 60569 60570 60571 60572 60573 60574 60575 60576 60577 60578 60579 60580 60581 60582 60583 60584 60585 60586 60587 60588 60589 60590 60591 60592 60593 60594 60595 60596 60597 60598 60599 60600 60601 60602 60603 60604 60605 60606 60607 60608 60609 60610 60611 60612 60613 60614 60615 60616 60617 60618 60619 60620 60621 60622 60623 60624 60625 60626 60627 60628 60629 60630 60631 60632 60633 60634 60635 60636 60637 60638 60639 60640 60641 60642 60643 60644 60645 60646 60647 60648 60649 60650 60651 60652 60653 60654 60655 60656 60657 60658 60659 60660 60661 60662 60663 60664 60665 60666 60667 60668 60669 60670 60671 60672 60673 60674 60675 60676 60677 60678 60679 60680 60681 60682 60683 60684 60685 60686 60687 60688 60689 60690 60691 60692 60693 60694 60695 60696 60697 60698 60699 60700 60701 60702 60703 60704 60705 60706 60707 60708 60709 60710 60711 60712 60713 60714 60715 60716 60717 60718 60719 60720 60721 60722 60723 60724 60725 60726 60727 60728 60729 60730 60731 60732 60733 60734 60735 60736 60737 60738 60739 60740 60741 60742 60743 60744 60745 60746 60747 60748 60749 60750 60751 60752 60753 60754 60755 60756 60757 60758 60759 60760 60761 60762 60763 60764 60765 60766 60767 60768 60769 60770 60771 60772 60773 60774 60775 60776 60777 60778 60779 60780 60781 60782 60783 60784 60785 60786 60787 60788 60789 60790 60791 60792 60793 60794 60795 60796 60797 60798 60799 60800 60801 60802 60803 60804 60805 60806 60807 60808 60809 60810 60811 60812 60813 60814 60815 60816 60817 60818 60819 60820 60821 60822 60823 60824 60825 60826 60827 60828 60829 60830 60831 60832 60833 60834 60835 60836 60837 60838 60839 60840 60841 60842 60843 60844 60845 60846 60847 60848 60849 60850 60851 60852 60853 60854 60855 60856 60857 60858 60859 60860 60861 60862 60863 60864 60865 60866 60867 60868 60869 60870 60871 60872 60873 60874 60875 60876 60877 60878 60879 60880 60881 60882 60883 60884 60885 60886 60887 60888 60889 60890 60891 60892 60893 60894 60895 60896 60897 60898 60899 60900 60901 60902 60903 60904 60905 60906 60907 60908 60909 60910 60911 60912 60913 60914 60915 60916 60917 60918 60919 60920 60921 60922 60923 60924 60925 60926 60927 60928 60929 60930 60931 60932 60933 60934 60935 60936 60937 60938 60939 60940 60941 60942 60943 60944 60945 60946 60947 60948 60949 60950 60951 60952 60953 60954 60955 60956 60957 60958 60959 60960 60961 60962 60963 60964 60965 60966 60967 60968 60969 60970 60971 60972 60973 60974 60975 60976 60977 60978 60979 60980 60981 60982 60983 60984 60985 60986 60987 60988 60989 60990 60991 60992 60993 60994 60995 60996 60997 60998 60999 61000 61001 61002 61003 61004 61005 61006 61007 61008 61009 61010 61011 61012 61013 61014 61015 61016 61017 61018 61019 61020 61021 61022 61023 61024 61025 61026 61027 61028 61029 61030 61031 61032 61033 61034 61035 61036 61037 61038 61039 61040 61041 61042 61043 61044 61045 61046 61047 61048 61049 61050 61051 61052 61053 61054 61055 61056 61057 61058 61059 61060 61061 61062 61063 61064 61065 61066 61067 61068 61069 61070 61071 61072 61073 61074 61075 61076 61077 61078 61079 61080 61081 61082 61083 61084 61085 61086 61087 61088 61089 61090 61091 61092 61093 61094 61095 61096 61097 61098 61099 61100 61101 61102 61103 61104 61105 61106 61107 61108 61109 61110 61111 61112 61113 61114 61115 61116 61117 61118 61119 61120 61121 61122 61123 61124 61125 61126 61127 61128 61129 61130 61131 61132 61133 61134 61135 61136 61137 61138 61139 61140 61141 61142 61143 61144 61145 61146 61147 61148 61149 61150 61151 61152 61153 61154 61155 61156 61157 61158 61159 61160 61161 61162 61163 61164 61165 61166 61167 61168 61169 61170 61171 61172 61173 61174 61175 61176 61177 61178 61179 61180 61181 61182 61183 61184 61185 61186 61187 61188 61189 61190 61191 61192 61193 61194 61195 61196 61197 61198 61199 61200 61201 61202 61203 61204 61205 61206 61207 61208 61209 61210 61211 61212 61213 61214 61215 61216 61217 61218 61219 61220 61221 61222 61223 61224 61225 61226 61227 61228 61229 61230 61231 61232 61233 61234 61235 61236 61237 61238 61239 61240 61241 61242 61243 61244 61245 61246 61247 61248 61249 61250 61251 61252 61253 61254 61255 61256 61257 61258 61259 61260 61261 61262 61263 61264 61265 61266 61267 61268 61269 61270 61271 61272 61273 61274 61275 61276 61277 61278 61279 61280 61281 61282 61283 61284 61285 61286 61287 61288 61289 61290 61291 61292 61293 61294 61295 61296 61297 61298 61299 61300 61301 61302 61303 61304 61305 61306 61307 61308 61309 61310 61311 61312 61313 61314 61315 61316 61317 61318 61319 61320 61321 61322 61323 61324 61325 61326 61327 61328 61329 61330 61331 61332 61333 61334 61335 61336 61337 61338 61339 61340 61341 61342 61343 61344 61345 61346 61347 61348 61349 61350 61351 61352 61353 61354 61355 61356 61357 61358 61359 61360 61361 61362 61363 61364 61365 61366 61367 61368 61369 61370 61371 61372 61373 61374 61375 61376 61377 61378 61379 61380 61381 61382 61383 61384 61385 61386 61387 61388 61389 61390 61391 61392 61393 61394 61395 61396 61397 61398 61399 61400 61401 61402 61403 61404 61405 61406 61407 61408 61409 61410 61411 61412 61413 61414 61415 61416 61417 61418 61419 61420 61421 61422 61423 61424 61425 61426 61427 61428 61429 61430 61431 61432 61433 61434 61435 61436 61437 61438 61439 61440 61441 61442 61443 61444 61445 61446 61447 61448 61449 61450 61451 61452 61453 61454 61455 61456 61457 61458 61459 61460 61461 61462 61463 61464 61465 61466 61467 61468 61469 61470 61471 61472 61473 61474 61475 61476 61477 61478 61479 61480 61481 61482 61483 61484 61485 61486 61487 61488 61489 61490 61491 61492 61493 61494 61495 61496 61497 61498 61499 61500 61501 61502 61503 61504 61505 61506 61507 61508 61509 61510 61511 61512 61513 61514 61515 61516 61517 61518 61519 61520 61521 61522 61523 61524 61525 61526 61527 61528 61529 61530 61531 61532 61533 61534 61535 61536 61537 61538 61539 61540 61541 61542 61543 61544 61545 61546 61547 61548 61549 61550 61551 61552 61553 61554 61555 61556 61557 61558 61559 61560 61561 61562 61563 61564 61565 61566 61567 61568 61569 61570 61571 61572 61573 61574 61575 61576 61577 61578 61579 61580 61581 61582 61583 61584 61585 61586 61587 61588 61589 61590 61591 61592 61593 61594 61595 61596 61597 61598 61599 61600 61601 61602 61603 61604 61605 61606 61607 61608 61609 61610 61611 61612 61613 61614 61615 61616 61617 61618 61619 61620 61621 61622 61623 61624 61625 61626 61627 61628 61629 61630 61631 61632 61633 61634 61635 61636 61637 61638 61639 61640 61641 61642 61643 61644 61645 61646 61647 61648 61649 61650 61651 61652 61653 61654 61655 61656 61657 61658 61659 61660 61661 61662 61663 61664 61665 61666 61667 61668 61669 61670 61671 61672 61673 61674 61675 61676 61677 61678 61679 61680 61681 61682 61683 61684 61685 61686 61687 61688 61689 61690 61691 61692 61693 61694 61695 61696 61697 61698 61699 61700 61701 61702 61703 61704 61705 61706 61707 61708 61709 61710 61711 61712 61713 61714 61715 61716 61717 61718 61719 61720 61721 61722 61723 61724 61725 61726 61727 61728 61729 61730 61731 61732 61733 61734 61735 61736 61737 61738 61739 61740 61741 61742 61743 61744 61745 61746 61747 61748 61749 61750 61751 61752 61753 61754 61755 61756 61757 61758 61759 61760 61761 61762 61763 61764 61765 61766 61767 61768 61769 61770 61771 61772 61773 61774 61775 61776 61777 61778 61779 61780 61781 61782 61783 61784 61785 61786 61787 61788 61789 61790 61791 61792 61793 61794 61795 61796 61797 61798 61799 61800 61801 61802 61803 61804 61805 61806 61807 61808 61809 61810 61811 61812 61813 61814 61815 61816 61817 61818 61819 61820 61821 61822 61823 61824 61825 61826 61827 61828 61829 61830 61831 61832 61833 61834 61835 61836 61837 61838 61839 61840 61841 61842 61843 61844 61845 61846 61847 61848 61849 61850 61851 61852 61853 61854 61855 61856 61857 61858 61859 61860 61861 61862 61863 61864 61865 61866 61867 61868 61869 61870 61871 61872 61873 61874 61875 61876 61877 61878 61879 61880 61881 61882 61883 61884 61885 61886 61887 61888 61889 61890 61891 61892 61893 61894 61895 61896 61897 61898 61899 61900 61901 61902 61903 61904 61905 61906 61907 61908 61909 61910 61911 61912 61913 61914 61915 61916 61917 61918 61919 61920 61921 61922 61923 61924 61925 61926 61927 61928 61929 61930 61931 61932 61933 61934 61935 61936 61937 61938 61939 61940 61941 61942 61943 61944 61945 61946 61947 61948 61949 61950 61951 61952 61953 61954 61955 61956 61957 61958 61959 61960 61961 61962 61963 61964 61965 61966 61967 61968 61969 61970 61971 61972 61973 61974 61975 61976 61977 61978 61979 61980 61981 61982 61983 61984 61985 61986 61987 61988 61989 61990 61991 61992 61993 61994 61995 61996 61997 61998 61999 62000 62001 62002 62003 62004 62005 62006 62007 62008 62009 62010 62011 62012 62013 62014 62015 62016 62017 62018 62019 62020 62021 62022 62023 62024 62025 62026 62027 62028 62029 62030 62031 62032 62033 62034 62035 62036 62037 62038 62039 62040 62041 62042 62043 62044 62045 62046 62047 62048 62049 62050 62051 62052 62053 62054 62055 62056 62057 62058 62059 62060 62061 62062 62063 62064 62065 62066 62067 62068 62069 62070 62071 62072 62073 62074 62075 62076 62077 62078 62079 62080 62081 62082 62083 62084 62085 62086 62087 62088 62089 62090 62091 62092 62093 62094 62095 62096 62097 62098 62099 62100 62101 62102 62103 62104 62105 62106 62107 62108 62109 62110 62111 62112 62113 62114 62115 62116 62117 62118 62119 62120 62121 62122 62123 62124 62125 62126 62127 62128 62129 62130 62131 62132 62133 62134 62135 62136 62137 62138 62139 62140 62141 62142 62143 62144 62145 62146 62147 62148 62149 62150 62151 62152 62153 62154 62155 62156 62157 62158 62159 62160 62161 62162 62163 62164 62165 62166 62167 62168 62169 62170 62171 62172 62173 62174 62175 62176 62177 62178 62179 62180 62181 62182 62183 62184 62185 62186 62187 62188 62189 62190 62191 62192 62193 62194 62195 62196 62197 62198 62199 62200 62201 62202 62203 62204 62205 62206 62207 62208 62209 62210 62211 62212 62213 62214 62215 62216 62217 62218 62219 62220 62221 62222 62223 62224 62225 62226 62227 62228 62229 62230 62231 62232 62233 62234 62235 62236 62237 62238 62239 62240 62241 62242 62243 62244 62245 62246 62247 62248 62249 62250 62251 62252 62253 62254 62255 62256 62257 62258 62259 62260 62261 62262 62263 62264 62265 62266 62267 62268 62269 62270 62271 62272 62273 62274 62275 62276 62277 62278 62279 62280 62281 62282 62283 62284 62285 62286 62287 62288 62289 62290 62291 62292 62293 62294 62295 62296 62297 62298 62299 62300 62301 62302 62303 62304 62305 62306 62307 62308 62309 62310 62311 62312 62313 62314 62315 62316 62317 62318 62319 62320 62321 62322 62323 62324 62325 62326 62327 62328 62329 62330 62331 62332 62333 62334 62335 62336 62337 62338 62339 62340 62341 62342 62343 62344 62345 62346 62347 62348 62349 62350 62351 62352 62353 62354 62355 62356 62357 62358 62359 62360 62361 62362 62363 62364 62365 62366 62367 62368 62369 62370 62371 62372 62373 62374 62375 62376 62377 62378 62379 62380 62381 62382 62383 62384 62385 62386 62387 62388 62389 62390 62391 62392 62393 62394 62395 62396 62397 62398 62399 62400 62401 62402 62403 62404 62405 62406 62407 62408 62409 62410 62411 62412 62413 62414 62415 62416 62417 62418 62419 62420 62421 62422 62423 62424 62425 62426 62427 62428 62429 62430 62431 62432 62433 62434 62435 62436 62437 62438 62439 62440 62441 62442 62443 62444 62445 62446 62447 62448 62449 62450 62451 62452 62453 62454 62455 62456 62457 62458 62459 62460 62461 62462 62463 62464 62465 62466 62467 62468 62469 62470 62471 62472 62473 62474 62475 62476 62477 62478 62479 62480 62481 62482 62483 62484 62485 62486 62487 62488 62489 62490 62491 62492 62493 62494 62495 62496 62497 62498 62499 62500 62501 62502 62503 62504 62505 62506 62507 62508 62509 62510 62511 62512 62513 62514 62515 62516 62517 62518 62519 62520 62521 62522 62523 62524 62525 62526 62527 62528 62529 62530 62531 62532 62533 62534 62535 62536 62537 62538 62539 62540 62541 62542 62543 62544 62545 62546 62547 62548 62549 62550 62551 62552 62553 62554 62555 62556 62557 62558 62559 62560 62561 62562 62563 62564 62565 62566 62567 62568 62569 62570 62571 62572 62573 62574 62575 62576 62577 62578 62579 62580 62581 62582 62583 62584 62585 62586 62587 62588 62589 62590 62591 62592 62593 62594 62595 62596 62597 62598 62599 62600 62601 62602 62603 62604 62605 62606 62607 62608 62609 62610 62611 62612 62613 62614 62615 62616 62617 62618 62619 62620 62621 62622 62623 62624 62625 62626 62627 62628 62629 62630 62631 62632 62633 62634 62635 62636 62637 62638 62639 62640 62641 62642 62643 62644 62645 62646 62647 62648 62649 62650 62651 62652 62653 62654 62655 62656 62657 62658 62659 62660 62661 62662 62663 62664 62665 62666 62667 62668 62669 62670 62671 62672 62673 62674 62675 62676 62677 62678 62679 62680 62681 62682 62683 62684 62685 62686 62687 62688 62689 62690 62691 62692 62693 62694 62695 62696 62697 62698 62699 62700 62701 62702 62703 62704 62705 62706 62707 62708 62709 62710 62711 62712 62713 62714 62715 62716 62717 62718 62719 62720 62721 62722 62723 62724 62725 62726 62727 62728 62729 62730 62731 62732 62733 62734 62735 62736 62737 62738 62739 62740 62741 62742 62743 62744 62745 62746 62747 62748 62749 62750 62751 62752 62753 62754 62755 62756 62757 62758 62759 62760 62761 62762 62763 62764 62765 62766 62767 62768 62769 62770 62771 62772 62773 62774 62775 62776 62777 62778 62779 62780 62781 62782 62783 62784 62785 62786 62787 62788 62789 62790 62791 62792 62793 62794 62795 62796 62797 62798 62799 62800 62801 62802 62803 62804 62805 62806 62807 62808 62809 62810 62811 62812 62813 62814 62815 62816 62817 62818 62819 62820 62821 62822 62823 62824 62825 62826 62827 62828 62829 62830 62831 62832 62833 62834 62835 62836 62837 62838 62839 62840 62841 62842 62843 62844 62845 62846 62847 62848 62849 62850 62851 62852 62853 62854 62855 62856 62857 62858 62859 62860 62861 62862 62863 62864 62865 62866 62867 62868 62869 62870 62871 62872 62873 62874 62875 62876 62877 62878 62879 62880 62881 62882 62883 62884 62885 62886 62887 62888 62889 62890 62891 62892 62893 62894 62895 62896 62897 62898 62899 62900 62901 62902 62903 62904 62905 62906 62907 62908 62909 62910 62911 62912 62913 62914 62915 62916 62917 62918 62919 62920 62921 62922 62923 62924 62925 62926 62927 62928 62929 62930 62931 62932 62933 62934 62935 62936 62937 62938 62939 62940 62941 62942 62943 62944 62945 62946 62947 62948 62949 62950 62951 62952 62953 62954 62955 62956 62957 62958 62959 62960 62961 62962 62963 62964 62965 62966 62967 62968 62969 62970 62971 62972 62973 62974 62975 62976 62977 62978 62979 62980 62981 62982 62983 62984 62985 62986 62987 62988 62989 62990 62991 62992 62993 62994 62995 62996 62997 62998 62999 63000 63001 63002 63003 63004 63005 63006 63007 63008 63009 63010 63011 63012 63013 63014 63015 63016 63017 63018 63019 63020 63021 63022 63023 63024 63025 63026 63027 63028 63029 63030 63031 63032 63033 63034 63035 63036 63037 63038 63039 63040 63041 63042 63043 63044 63045 63046 63047 63048 63049 63050 63051 63052 63053 63054 63055 63056 63057 63058 63059 63060 63061 63062 63063 63064 63065 63066 63067 63068 63069 63070 63071 63072 63073 63074 63075 63076 63077 63078 63079 63080 63081 63082 63083 63084 63085 63086 63087 63088 63089 63090 63091 63092 63093 63094 63095 63096 63097 63098 63099 63100 63101 63102 63103 63104 63105 63106 63107 63108 63109 63110 63111 63112 63113 63114 63115 63116 63117 63118 63119 63120 63121 63122 63123 63124 63125 63126 63127 63128 63129 63130 63131 63132 63133 63134 63135 63136 63137 63138 63139 63140 63141 63142 63143 63144 63145 63146 63147 63148 63149 63150 63151 63152 63153 63154 63155 63156 63157 63158 63159 63160 63161 63162 63163 63164 63165 63166 63167 63168 63169 63170 63171 63172 63173 63174 63175 63176 63177 63178 63179 63180 63181 63182 63183 63184 63185 63186 63187 63188 63189 63190 63191 63192 63193 63194 63195 63196 63197 63198 63199 63200 63201 63202 63203 63204 63205 63206 63207 63208 63209 63210 63211 63212 63213 63214 63215 63216 63217 63218 63219 63220 63221 63222 63223 63224 63225 63226 63227 63228 63229 63230 63231 63232 63233 63234 63235 63236 63237 63238 63239 63240 63241 63242 63243 63244 63245 63246 63247 63248 63249 63250 63251 63252 63253 63254 63255 63256 63257 63258 63259 63260 63261 63262 63263 63264 63265 63266 63267 63268 63269 63270 63271 63272 63273 63274 63275 63276 63277 63278 63279 63280 63281 63282 63283 63284 63285 63286 63287 63288 63289 63290 63291 63292 63293 63294 63295 63296 63297 63298 63299 63300 63301 63302 63303 63304 63305 63306 63307 63308 63309 63310 63311 63312 63313 63314 63315 63316 63317 63318 63319 63320 63321 63322 63323 63324 63325 63326 63327 63328 63329 63330 63331 63332 63333 63334 63335 63336 63337 63338 63339 63340 63341 63342 63343 63344 63345 63346 63347 63348 63349 63350 63351 63352 63353 63354 63355 63356 63357 63358 63359 63360 63361 63362 63363 63364 63365 63366 63367 63368 63369 63370 63371 63372 63373 63374 63375 63376 63377 63378 63379 63380 63381 63382 63383 63384 63385 63386 63387 63388 63389 63390 63391 63392 63393 63394 63395 63396 63397 63398 63399 63400 63401 63402 63403 63404 63405 63406 63407 63408 63409 63410 63411 63412 63413 63414 63415 63416 63417 63418 63419 63420 63421 63422 63423 63424 63425 63426 63427 63428 63429 63430 63431 63432 63433 63434 63435 63436 63437 63438 63439 63440 63441 63442 63443 63444 63445 63446 63447 63448 63449 63450 63451 63452 63453 63454 63455 63456 63457 63458 63459 63460 63461 63462 63463 63464 63465 63466 63467 63468 63469 63470 63471 63472 63473 63474 63475 63476 63477 63478 63479 63480 63481 63482 63483 63484 63485 63486 63487 63488 63489 63490 63491 63492 63493 63494 63495 63496 63497 63498 63499 63500 63501 63502 63503 63504 63505 63506 63507 63508 63509 63510 63511 63512 63513 63514 63515 63516 63517 63518 63519 63520 63521 63522 63523 63524 63525 63526 63527 63528 63529 63530 63531 63532 63533 63534 63535 63536 63537 63538 63539 63540 63541 63542 63543 63544 63545 63546 63547 63548 63549 63550 63551 63552 63553 63554 63555 63556 63557 63558 63559 63560 63561 63562 63563 63564 63565 63566 63567 63568 63569 63570 63571 63572 63573 63574 63575 63576 63577 63578 63579 63580 63581 63582 63583 63584 63585 63586 63587 63588 63589 63590 63591 63592 63593 63594 63595 63596 63597 63598 63599 63600 63601 63602 63603 63604 63605 63606 63607 63608 63609 63610 63611 63612 63613 63614 63615 63616 63617 63618 63619 63620 63621 63622 63623 63624 63625 63626 63627 63628 63629 63630 63631 63632 63633 63634 63635 63636 63637 63638 63639 63640 63641 63642 63643 63644 63645 63646 63647 63648 63649 63650 63651 63652 63653 63654 63655 63656 63657 63658 63659 63660 63661 63662 63663 63664 63665 63666 63667 63668 63669 63670 63671 63672 63673 63674 63675 63676 63677 63678 63679 63680 63681 63682 63683 63684 63685 63686 63687 63688 63689 63690 63691 63692 63693 63694 63695 63696 63697 63698 63699 63700 63701 63702 63703 63704 63705 63706 63707 63708 63709 63710 63711 63712 63713 63714 63715 63716 63717 63718 63719 63720 63721 63722 63723 63724 63725 63726 63727 63728 63729 63730 63731 63732 63733 63734 63735 63736 63737 63738 63739 63740 63741 63742 63743 63744 63745 63746 63747 63748 63749 63750 63751 63752 63753 63754 63755 63756 63757 63758 63759 63760 63761 63762 63763 63764 63765 63766 63767 63768 63769 63770 63771 63772 63773 63774 63775 63776 63777 63778 63779 63780 63781 63782 63783 63784 63785 63786 63787 63788 63789 63790 63791 63792 63793 63794 63795 63796 63797 63798 63799 63800 63801 63802 63803 63804 63805 63806 63807 63808 63809 63810 63811 63812 63813 63814 63815 63816 63817 63818 63819 63820 63821 63822 63823 63824 63825 63826 63827 63828 63829 63830 63831 63832 63833 63834 63835 63836 63837 63838 63839 63840 63841 63842 63843 63844 63845 63846 63847 63848 63849 63850 63851 63852 63853 63854 63855 63856 63857 63858 63859 63860 63861 63862 63863 63864 63865 63866 63867 63868 63869 63870 63871 63872 63873 63874 63875 63876 63877 63878 63879 63880 63881 63882 63883 63884 63885 63886 63887 63888 63889 63890 63891 63892 63893 63894 63895 63896 63897 63898 63899 63900 63901 63902 63903 63904 63905 63906 63907 63908 63909 63910 63911 63912 63913 63914 63915 63916 63917 63918 63919 63920 63921 63922 63923 63924 63925 63926 63927 63928 63929 63930 63931 63932 63933 63934 63935 63936 63937 63938 63939 63940 63941 63942 63943 63944 63945 63946 63947 63948 63949 63950 63951 63952 63953 63954 63955 63956 63957 63958 63959 63960 63961 63962 63963 63964 63965 63966 63967 63968 63969 63970 63971 63972 63973 63974 63975 63976 63977 63978 63979 63980 63981 63982 63983 63984 63985 63986 63987 63988 63989 63990 63991 63992 63993 63994 63995 63996 63997 63998 63999 64000 64001 64002 64003 64004 64005 64006 64007 64008 64009 64010 64011 64012 64013 64014 64015 64016 64017 64018 64019 64020 64021 64022 64023 64024 64025 64026 64027 64028 64029 64030 64031 64032 64033 64034 64035 64036 64037 64038 64039 64040 64041 64042 64043 64044 64045 64046 64047 64048 64049 64050 64051 64052 64053 64054 64055 64056 64057 64058 64059 64060 64061 64062 64063 64064 64065 64066 64067 64068 64069 64070 64071 64072 64073 64074 64075 64076 64077 64078 64079 64080 64081 64082 64083 64084 64085 64086 64087 64088 64089 64090 64091 64092 64093 64094 64095 64096 64097 64098 64099 64100 64101 64102 64103 64104 64105 64106 64107 64108 64109 64110 64111 64112 64113 64114 64115 64116 64117 64118 64119 64120 64121 64122 64123 64124 64125 64126 64127 64128 64129 64130 64131 64132 64133 64134 64135 64136 64137 64138 64139 64140 64141 64142 64143 64144 64145 64146 64147 64148 64149 64150 64151 64152 64153 64154 64155 64156 64157 64158 64159 64160 64161 64162 64163 64164 64165 64166 64167 64168 64169 64170 64171 64172 64173 64174 64175 64176 64177 64178 64179 64180 64181 64182 64183 64184 64185 64186 64187 64188 64189 64190 64191 64192 64193 64194 64195 64196 64197 64198 64199 64200 64201 64202 64203 64204 64205 64206 64207 64208 64209 64210 64211 64212 64213 64214 64215 64216 64217 64218 64219 64220 64221 64222 64223 64224 64225 64226 64227 64228 64229 64230 64231 64232 64233 64234 64235 64236 64237 64238 64239 64240 64241 64242 64243 64244 64245 64246 64247 64248 64249 64250 64251 64252 64253 64254 64255 64256 64257 64258 64259 64260 64261 64262 64263 64264 64265 64266 64267 64268 64269 64270 64271 64272 64273 64274 64275 64276 64277 64278 64279 64280 64281 64282 64283 64284 64285 64286 64287 64288 64289 64290 64291 64292 64293 64294 64295 64296 64297 64298 64299 64300 64301 64302 64303 64304 64305 64306 64307 64308 64309 64310 64311 64312 64313 64314 64315 64316 64317 64318 64319 64320 64321 64322 64323 64324 64325 64326 64327 64328 64329 64330 64331 64332 64333 64334 64335 64336 64337 64338 64339 64340 64341 64342 64343 64344 64345 64346 64347 64348 64349 64350 64351 64352 64353 64354 64355 64356 64357 64358 64359 64360 64361 64362 64363 64364 64365 64366 64367 64368 64369 64370 64371 64372 64373 64374 64375 64376 64377 64378 64379 64380 64381 64382 64383 64384 64385 64386 64387 64388 64389 64390 64391 64392 64393 64394 64395 64396 64397 64398 64399 64400 64401 64402 64403 64404 64405 64406 64407 64408 64409 64410 64411 64412 64413 64414 64415 64416 64417 64418 64419 64420 64421 64422 64423 64424 64425 64426 64427 64428 64429 64430 64431 64432 64433 64434 64435 64436 64437 64438 64439 64440 64441 64442 64443 64444 64445 64446 64447 64448 64449 64450 64451 64452 64453 64454 64455 64456 64457 64458 64459 64460 64461 64462 64463 64464 64465 64466 64467 64468 64469 64470 64471 64472 64473 64474 64475 64476 64477 64478 64479 64480 64481 64482 64483 64484 64485 64486 64487 64488 64489 64490 64491 64492 64493 64494 64495 64496 64497 64498 64499 64500 64501 64502 64503 64504 64505 64506 64507 64508 64509 64510 64511 64512 64513 64514 64515 64516 64517 64518 64519 64520 64521 64522 64523 64524 64525 64526 64527 64528 64529 64530 64531 64532 64533 64534 64535 64536 64537 64538 64539 64540 64541 64542 64543 64544 64545 64546 64547 64548 64549 64550 64551 64552 64553 64554 64555 64556 64557 64558 64559 64560 64561 64562 64563 64564 64565 64566 64567 64568 64569 64570 64571 64572 64573 64574 64575 64576 64577 64578 64579 64580 64581 64582 64583 64584 64585 64586 64587 64588 64589 64590 64591 64592 64593 64594 64595 64596 64597 64598 64599 64600 64601 64602 64603 64604 64605 64606 64607 64608 64609 64610 64611 64612 64613 64614 64615 64616 64617 64618 64619 64620 64621 64622 64623 64624 64625 64626 64627 64628 64629 64630 64631 64632 64633 64634 64635 64636 64637 64638 64639 64640 64641 64642 64643 64644 64645 64646 64647 64648 64649 64650 64651 64652 64653 64654 64655 64656 64657 64658 64659 64660 64661 64662 64663 64664 64665 64666 64667 64668 64669 64670 64671 64672 64673 64674 64675 64676 64677 64678 64679 64680 64681 64682 64683 64684 64685 64686 64687 64688 64689 64690 64691 64692 64693 64694 64695 64696 64697 64698 64699 64700 64701 64702 64703 64704 64705 64706 64707 64708 64709 64710 64711 64712 64713 64714 64715 64716 64717 64718 64719 64720 64721 64722 64723 64724 64725 64726 64727 64728 64729 64730 64731 64732 64733 64734 64735 64736 64737 64738 64739 64740 64741 64742 64743 64744 64745 64746 64747 64748 64749 64750 64751 64752 64753 64754 64755 64756 64757 64758 64759 64760 64761 64762 64763 64764 64765 64766 64767 64768 64769 64770 64771 64772 64773 64774 64775 64776 64777 64778 64779 64780 64781 64782 64783 64784 64785 64786 64787 64788 64789 64790 64791 64792 64793 64794 64795 64796 64797 64798 64799 64800 64801 64802 64803 64804 64805 64806 64807 64808 64809 64810 64811 64812 64813 64814 64815 64816 64817 64818 64819 64820 64821 64822 64823 64824 64825 64826 64827 64828 64829 64830 64831 64832 64833 64834 64835 64836 64837 64838 64839 64840 64841 64842 64843 64844 64845 64846 64847 64848 64849 64850 64851 64852 64853 64854 64855 64856 64857 64858 64859 64860 64861 64862 64863 64864 64865 64866 64867 64868 64869 64870 64871 64872 64873 64874 64875 64876 64877 64878 64879 64880 64881 64882 64883 64884 64885 64886 64887 64888 64889 64890 64891 64892 64893 64894 64895 64896 64897 64898 64899 64900 64901 64902 64903 64904 64905 64906 64907 64908 64909 64910 64911 64912 64913 64914 64915 64916 64917 64918 64919 64920 64921 64922 64923 64924 64925 64926 64927 64928 64929 64930 64931 64932 64933 64934 64935 64936 64937 64938 64939 64940 64941 64942 64943 64944 64945 64946 64947 64948 64949 64950 64951 64952 64953 64954 64955 64956 64957 64958 64959 64960 64961 64962 64963 64964 64965 64966 64967 64968 64969 64970 64971 64972 64973 64974 64975 64976 64977 64978 64979 64980 64981 64982 64983 64984 64985 64986 64987 64988 64989 64990 64991 64992 64993 64994 64995 64996 64997 64998 64999 65000 65001 65002 65003 65004 65005 65006 65007 65008 65009 65010 65011 65012 65013 65014 65015 65016 65017 65018 65019 65020 65021 65022 65023 65024 65025 65026 65027 65028 65029 65030 65031 65032 65033 65034 65035 65036 65037 65038 65039 65040 65041 65042 65043 65044 65045 65046 65047 65048 65049 65050 65051 65052 65053 65054 65055 65056 65057 65058 65059 65060 65061 65062 65063 65064 65065 65066 65067 65068 65069 65070 65071 65072 65073 65074 65075 65076 65077 65078 65079 65080 65081 65082 65083 65084 65085 65086 65087 65088 65089 65090 65091 65092 65093 65094 65095 65096 65097 65098 65099 65100 65101 65102 65103 65104 65105 65106 65107 65108 65109 65110 65111 65112 65113 65114 65115 65116 65117 65118 65119 65120 65121 65122 65123 65124 65125 65126 65127 65128 65129 65130 65131 65132 65133 65134 65135 65136 65137 65138 65139 65140 65141 65142 65143 65144 65145 65146 65147 65148 65149 65150 65151 65152 65153 65154 65155 65156 65157 65158 65159 65160 65161 65162 65163 65164 65165 65166 65167 65168 65169 65170 65171 65172 65173 65174 65175 65176 65177 65178 65179 65180 65181 65182 65183 65184 65185 65186 65187 65188 65189 65190 65191 65192 65193 65194 65195 65196 65197 65198 65199 65200 65201 65202 65203 65204 65205 65206 65207 65208 65209 65210 65211 65212 65213 65214 65215 65216 65217 65218 65219 65220 65221 65222 65223 65224 65225 65226 65227 65228 65229 65230 65231 65232 65233 65234 65235 65236 65237 65238 65239 65240 65241 65242 65243 65244 65245 65246 65247 65248 65249 65250 65251 65252 65253 65254 65255 65256 65257 65258 65259 65260 65261 65262 65263 65264 65265 65266 65267 65268 65269 65270 65271 65272 65273 65274 65275 65276 65277 65278 65279 65280 65281 65282 65283 65284 65285 65286 65287 65288 65289 65290 65291 65292 65293 65294 65295 65296 65297 65298 65299 65300 65301 65302 65303 65304 65305 65306 65307 65308 65309 65310 65311 65312 65313 65314 65315 65316 65317 65318 65319 65320 65321 65322 65323 65324 65325 65326 65327 65328 65329 65330 65331 65332 65333 65334 65335 65336 65337 65338 65339 65340 65341 65342 65343 65344 65345 65346 65347 65348 65349 65350 65351 65352 65353 65354 65355 65356 65357 65358 65359 65360 65361 65362 65363 65364 65365 65366 65367 65368 65369 65370 65371 65372 65373 65374 65375 65376 65377 65378 65379 65380 65381 65382 65383 65384 65385 65386 65387 65388 65389 65390 65391 65392 65393 65394 65395 65396 65397 65398 65399 65400 65401 65402 65403 65404 65405 65406 65407 65408 65409 65410 65411 65412 65413 65414 65415 65416 65417 65418 65419 65420 65421 65422 65423 65424 65425 65426 65427 65428 65429 65430 65431 65432 65433 65434 65435 65436 65437 65438 65439 65440 65441 65442 65443 65444 65445 65446 65447 65448 65449 65450 65451 65452 65453 65454 65455 65456 65457 65458 65459 65460 65461 65462 65463 65464 65465 65466 65467 65468 65469 65470 65471 65472 65473 65474 65475 65476 65477 65478 65479 65480 65481 65482 65483 65484 65485 65486 65487 65488 65489 65490 65491 65492 65493 65494 65495 65496 65497 65498 65499 65500 65501 65502 65503 65504 65505 65506 65507 65508 65509 65510 65511 65512 65513 65514 65515 65516 65517 65518 65519 65520 65521 65522 65523 65524 65525 65526 65527 65528 65529 65530 65531 65532 65533 65534 65535 65536 65537 65538 65539 65540 65541 65542 65543 65544 65545 65546 65547 65548 65549 65550 65551 65552 65553 65554 65555 65556 65557 65558 65559 65560 65561 65562 65563 65564 65565 65566 65567 65568 65569 65570 65571 65572 65573 65574 65575 65576 65577 65578 65579 65580 65581 65582 65583 65584 65585 65586 65587 65588 65589 65590 65591 65592 65593 65594 65595 65596 65597 65598 65599 65600 65601 65602 65603 65604 65605 65606 65607 65608 65609 65610 65611 65612 65613 65614 65615 65616 65617 65618 65619 65620 65621 65622 65623 65624 65625 65626 65627 65628 65629 65630 65631 65632 65633 65634 65635 65636 65637 65638 65639 65640 65641 65642 65643 65644 65645 65646 65647 65648 65649 65650 65651 65652 65653 65654 65655 65656 65657 65658 65659 65660 65661 65662 65663 65664 65665 65666 65667 65668 65669 65670 65671 65672 65673 65674 65675 65676 65677 65678 65679 65680 65681 65682 65683 65684 65685 65686 65687 65688 65689 65690 65691 65692 65693 65694 65695 65696 65697 65698 65699 65700 65701 65702 65703 65704 65705 65706 65707 65708 65709 65710 65711 65712 65713 65714 65715 65716 65717 65718 65719 65720 65721 65722 65723 65724 65725 65726 65727 65728 65729 65730 65731 65732 65733 65734 65735 65736 65737 65738 65739 65740 65741 65742 65743 65744 65745 65746 65747 65748 65749 65750 65751 65752 65753 65754 65755 65756 65757 65758 65759 65760 65761 65762 65763 65764 65765 65766 65767 65768 65769 65770 65771 65772 65773 65774 65775 65776 65777 65778 65779 65780 65781 65782 65783 65784 65785 65786 65787 65788 65789 65790 65791 65792 65793 65794 65795 65796 65797 65798 65799 65800 65801 65802 65803 65804 65805 65806 65807 65808 65809 65810 65811 65812 65813 65814 65815 65816 65817 65818 65819 65820 65821 65822 65823 65824 65825 65826 65827 65828 65829 65830 65831 65832 65833 65834 65835 65836 65837 65838 65839 65840 65841 65842 65843 65844 65845 65846 65847 65848 65849 65850 65851 65852 65853 65854 65855 65856 65857 65858 65859 65860 65861 65862 65863 65864 65865 65866 65867 65868 65869 65870 65871 65872 65873 65874 65875 65876 65877 65878 65879 65880 65881 65882 65883 65884 65885 65886 65887 65888 65889 65890 65891 65892 65893 65894 65895 65896 65897 65898 65899 65900 65901 65902 65903 65904 65905 65906 65907 65908 65909 65910 65911 65912 65913 65914 65915 65916 65917 65918 65919 65920 65921 65922 65923 65924 65925 65926 65927 65928 65929 65930 65931 65932 65933 65934 65935 65936 65937 65938 65939 65940 65941 65942 65943 65944 65945 65946 65947 65948 65949 65950 65951 65952 65953 65954 65955 65956 65957 65958 65959 65960 65961 65962 65963 65964 65965 65966 65967 65968 65969 65970 65971 65972 65973 65974 65975 65976 65977 65978 65979 65980 65981 65982 65983 65984 65985 65986 65987 65988 65989 65990 65991 65992 65993 65994 65995 65996 65997 65998 65999 66000 66001 66002 66003 66004 66005 66006 66007 66008 66009 66010 66011 66012 66013 66014 66015 66016 66017 66018 66019 66020 66021 66022 66023 66024 66025 66026 66027 66028 66029 66030 66031 66032 66033 66034 66035 66036 66037 66038 66039 66040 66041 66042 66043 66044 66045 66046 66047 66048 66049 66050 66051 66052 66053 66054 66055 66056 66057 66058 66059 66060 66061 66062 66063 66064 66065 66066 66067 66068 66069 66070 66071 66072 66073 66074 66075 66076 66077 66078 66079 66080 66081 66082 66083 66084 66085 66086 66087 66088 66089 66090 66091 66092 66093 66094 66095 66096 66097 66098 66099 66100 66101 66102 66103 66104 66105 66106 66107 66108 66109 66110 66111 66112 66113 66114 66115 66116 66117 66118 66119 66120 66121 66122 66123 66124 66125 66126 66127 66128 66129 66130 66131 66132 66133 66134 66135 66136 66137 66138 66139 66140 66141 66142 66143 66144 66145 66146 66147 66148 66149 66150 66151 66152 66153 66154 66155 66156 66157 66158 66159 66160 66161 66162 66163 66164 66165 66166 66167 66168 66169 66170 66171 66172 66173 66174 66175 66176 66177 66178 66179 66180 66181 66182 66183 66184 66185 66186 66187 66188 66189 66190 66191 66192 66193 66194 66195 66196 66197 66198 66199 66200 66201 66202 66203 66204 66205 66206 66207 66208 66209 66210 66211 66212 66213 66214 66215 66216 66217 66218 66219 66220 66221 66222 66223 66224 66225 66226 66227 66228 66229 66230 66231 66232 66233 66234 66235 66236 66237 66238 66239 66240 66241 66242 66243 66244 66245 66246 66247 66248 66249 66250 66251 66252 66253 66254 66255 66256 66257 66258 66259 66260 66261 66262 66263 66264 66265 66266 66267 66268 66269 66270 66271 66272 66273 66274 66275 66276 66277 66278 66279 66280 66281 66282 66283 66284 66285 66286 66287 66288 66289 66290 66291 66292 66293 66294 66295 66296 66297 66298 66299 66300 66301 66302 66303 66304 66305 66306 66307 66308 66309 66310 66311 66312 66313 66314 66315 66316 66317 66318 66319 66320 66321 66322 66323 66324 66325 66326 66327 66328 66329 66330 66331 66332 66333 66334 66335 66336 66337 66338 66339 66340 66341 66342 66343 66344 66345 66346 66347 66348 66349 66350 66351 66352 66353 66354 66355 66356 66357 66358 66359 66360 66361 66362 66363 66364 66365 66366 66367 66368 66369 66370 66371 66372 66373 66374 66375 66376 66377 66378 66379 66380 66381 66382 66383 66384 66385 66386 66387 66388 66389 66390 66391 66392 66393 66394 66395 66396 66397 66398 66399 66400 66401 66402 66403 66404 66405 66406 66407 66408 66409 66410 66411 66412 66413 66414 66415 66416 66417 66418 66419 66420 66421 66422 66423 66424 66425 66426 66427 66428 66429 66430 66431 66432 66433 66434 66435 66436 66437 66438 66439 66440 66441 66442 66443 66444 66445 66446 66447 66448 66449 66450 66451 66452 66453 66454 66455 66456 66457 66458 66459 66460 66461 66462 66463 66464 66465 66466 66467 66468 66469 66470 66471 66472 66473 66474 66475 66476 66477 66478 66479 66480 66481 66482 66483 66484 66485 66486 66487 66488 66489 66490 66491 66492 66493 66494 66495 66496 66497 66498 66499 66500 66501 66502 66503 66504 66505 66506 66507 66508 66509 66510 66511 66512 66513 66514 66515 66516 66517 66518 66519 66520 66521 66522 66523 66524 66525 66526 66527 66528 66529 66530 66531 66532 66533 66534 66535 66536 66537 66538 66539 66540 66541 66542 66543 66544 66545 66546 66547 66548 66549 66550 66551 66552 66553 66554 66555 66556 66557 66558 66559 66560 66561 66562 66563 66564 66565 66566 66567 66568 66569 66570 66571 66572 66573 66574 66575 66576 66577 66578 66579 66580 66581 66582 66583 66584 66585 66586 66587 66588 66589 66590 66591 66592 66593 66594 66595 66596 66597 66598 66599 66600 66601 66602 66603 66604 66605 66606 66607 66608 66609 66610 66611 66612 66613 66614 66615 66616 66617 66618 66619 66620 66621 66622 66623 66624 66625 66626 66627 66628 66629 66630 66631 66632 66633 66634 66635 66636 66637 66638 66639 66640 66641 66642 66643 66644 66645 66646 66647 66648 66649 66650 66651 66652 66653 66654 66655 66656 66657 66658 66659 66660 66661 66662 66663 66664 66665 66666 66667 66668 66669 66670 66671 66672 66673 66674 66675 66676 66677 66678 66679 66680 66681 66682 66683 66684 66685 66686 66687 66688 66689 66690 66691 66692 66693 66694 66695 66696 66697 66698 66699 66700 66701 66702 66703 66704 66705 66706 66707 66708 66709 66710 66711 66712 66713 66714 66715 66716 66717 66718 66719 66720 66721 66722 66723 66724 66725 66726 66727 66728 66729 66730 66731 66732 66733 66734 66735 66736 66737 66738 66739 66740 66741 66742 66743 66744 66745 66746 66747 66748 66749 66750 66751 66752 66753 66754 66755 66756 66757 66758 66759 66760 66761 66762 66763 66764 66765 66766 66767 66768 66769 66770 66771 66772 66773 66774 66775 66776 66777 66778 66779 66780 66781 66782 66783 66784 66785 66786 66787 66788 66789 66790 66791 66792 66793 66794 66795 66796 66797 66798 66799 66800 66801 66802 66803 66804 66805 66806 66807 66808 66809 66810 66811 66812 66813 66814 66815 66816 66817 66818 66819 66820 66821 66822 66823 66824 66825 66826 66827 66828 66829 66830 66831 66832 66833 66834 66835 66836 66837 66838 66839 66840 66841 66842 66843 66844 66845 66846 66847 66848 66849 66850 66851 66852 66853 66854 66855 66856 66857 66858 66859 66860 66861 66862 66863 66864 66865 66866 66867 66868 66869 66870 66871 66872 66873 66874 66875 66876 66877 66878 66879 66880 66881 66882 66883 66884 66885 66886 66887 66888 66889 66890 66891 66892 66893 66894 66895 66896 66897 66898 66899 66900 66901 66902 66903 66904 66905 66906 66907 66908 66909 66910 66911 66912 66913 66914 66915 66916 66917 66918 66919 66920 66921 66922 66923 66924 66925 66926 66927 66928 66929 66930 66931 66932 66933 66934 66935 66936 66937 66938 66939 66940 66941 66942 66943 66944 66945 66946 66947 66948 66949 66950 66951 66952 66953 66954 66955 66956 66957 66958 66959 66960 66961 66962 66963 66964 66965 66966 66967 66968 66969 66970 66971 66972 66973 66974 66975 66976 66977 66978 66979 66980 66981 66982 66983 66984 66985 66986 66987 66988 66989 66990 66991 66992 66993 66994 66995 66996 66997 66998 66999 67000 67001 67002 67003 67004 67005 67006 67007 67008 67009 67010 67011 67012 67013 67014 67015 67016 67017 67018 67019 67020 67021 67022 67023 67024 67025 67026 67027 67028 67029 67030 67031 67032 67033 67034 67035 67036 67037 67038 67039 67040 67041 67042 67043 67044 67045 67046 67047 67048 67049 67050 67051 67052 67053 67054 67055 67056 67057 67058 67059 67060 67061 67062 67063 67064 67065 67066 67067 67068 67069 67070 67071 67072 67073 67074 67075 67076 67077 67078 67079 67080 67081 67082 67083 67084 67085 67086 67087 67088 67089 67090 67091 67092 67093 67094 67095 67096 67097 67098 67099 67100 67101 67102 67103 67104 67105 67106 67107 67108 67109 67110 67111 67112 67113 67114 67115 67116 67117 67118 67119 67120 67121 67122 67123 67124 67125 67126 67127 67128 67129 67130 67131 67132 67133 67134 67135 67136 67137 67138 67139 67140 67141 67142 67143 67144 67145 67146 67147 67148 67149 67150 67151 67152 67153 67154 67155 67156 67157 67158 67159 67160 67161 67162 67163 67164 67165 67166 67167 67168 67169 67170 67171 67172 67173 67174 67175 67176 67177 67178 67179 67180 67181 67182 67183 67184 67185 67186 67187 67188 67189 67190 67191 67192 67193 67194 67195 67196 67197 67198 67199 67200 67201 67202 67203 67204 67205 67206 67207 67208 67209 67210 67211 67212 67213 67214 67215 67216 67217 67218 67219 67220 67221 67222 67223 67224 67225 67226 67227 67228 67229 67230 67231 67232 67233 67234 67235 67236 67237 67238 67239 67240 67241 67242 67243 67244 67245 67246 67247 67248 67249 67250 67251 67252 67253 67254 67255 67256 67257 67258 67259 67260 67261 67262 67263 67264 67265 67266 67267 67268 67269 67270 67271 67272 67273 67274 67275 67276 67277 67278 67279 67280 67281 67282 67283 67284 67285 67286 67287 67288 67289 67290 67291 67292 67293 67294 67295 67296 67297 67298 67299 67300 67301 67302 67303 67304 67305 67306 67307 67308 67309 67310 67311 67312 67313 67314 67315 67316 67317 67318 67319 67320 67321 67322 67323 67324 67325 67326 67327 67328 67329 67330 67331 67332 67333 67334 67335 67336 67337 67338 67339 67340 67341 67342 67343 67344 67345 67346 67347 67348 67349 67350 67351 67352 67353 67354 67355 67356 67357 67358 67359 67360 67361 67362 67363 67364 67365 67366 67367 67368 67369 67370 67371 67372 67373 67374 67375 67376 67377 67378 67379 67380 67381 67382 67383 67384 67385 67386 67387 67388 67389 67390 67391 67392 67393 67394 67395 67396 67397 67398 67399 67400 67401 67402 67403 67404 67405 67406 67407 67408 67409 67410 67411 67412 67413 67414 67415 67416 67417 67418 67419 67420 67421 67422 67423 67424 67425 67426 67427 67428 67429 67430 67431 67432 67433 67434 67435 67436 67437 67438 67439 67440 67441 67442 67443 67444 67445 67446 67447 67448 67449 67450 67451 67452 67453 67454 67455 67456 67457 67458 67459 67460 67461 67462 67463 67464 67465 67466 67467 67468 67469 67470 67471 67472 67473 67474 67475 67476 67477 67478 67479 67480 67481 67482 67483 67484 67485 67486 67487 67488 67489 67490 67491 67492 67493 67494 67495 67496 67497 67498 67499 67500 67501 67502 67503 67504 67505 67506 67507 67508 67509 67510 67511 67512 67513 67514 67515 67516 67517 67518 67519 67520 67521 67522 67523 67524 67525 67526 67527 67528 67529 67530 67531 67532 67533 67534 67535 67536 67537 67538 67539 67540 67541 67542 67543 67544 67545 67546 67547 67548 67549 67550 67551 67552 67553 67554 67555 67556 67557 67558 67559 67560 67561 67562 67563 67564 67565 67566 67567 67568 67569 67570 67571 67572 67573 67574 67575 67576 67577 67578 67579 67580 67581 67582 67583 67584 67585 67586 67587 67588 67589 67590 67591 67592 67593 67594 67595 67596 67597 67598 67599 67600 67601 67602 67603 67604 67605 67606 67607 67608 67609 67610 67611 67612 67613 67614 67615 67616 67617 67618 67619 67620 67621 67622 67623 67624 67625 67626 67627 67628 67629 67630 67631 67632 67633 67634 67635 67636 67637 67638 67639 67640 67641 67642 67643 67644 67645 67646 67647 67648 67649 67650 67651 67652 67653 67654 67655 67656 67657 67658 67659 67660 67661 67662 67663 67664 67665 67666 67667 67668 67669 67670 67671 67672 67673 67674 67675 67676 67677 67678 67679 67680 67681 67682 67683 67684 67685 67686 67687 67688 67689 67690 67691 67692 67693 67694 67695 67696 67697 67698 67699 67700 67701 67702 67703 67704 67705 67706 67707 67708 67709 67710 67711 67712 67713 67714 67715 67716 67717 67718 67719 67720 67721 67722 67723 67724 67725 67726 67727 67728 67729 67730 67731 67732 67733 67734 67735 67736 67737 67738 67739 67740 67741 67742 67743 67744 67745 67746 67747 67748 67749 67750 67751 67752 67753 67754 67755 67756 67757 67758 67759 67760 67761 67762 67763 67764 67765 67766 67767 67768 67769 67770 67771 67772 67773 67774 67775 67776 67777 67778 67779 67780 67781 67782 67783 67784 67785 67786 67787 67788 67789 67790 67791 67792 67793 67794 67795 67796 67797 67798 67799 67800 67801 67802 67803 67804 67805 67806 67807 67808 67809 67810 67811 67812 67813 67814 67815 67816 67817 67818 67819 67820 67821 67822 67823 67824 67825 67826 67827 67828 67829 67830 67831 67832 67833 67834 67835 67836 67837 67838 67839 67840 67841 67842 67843 67844 67845 67846 67847 67848 67849 67850 67851 67852 67853 67854 67855 67856 67857 67858 67859 67860 67861 67862 67863 67864 67865 67866 67867 67868 67869 67870 67871 67872 67873 67874 67875 67876 67877 67878 67879 67880 67881 67882 67883 67884 67885 67886 67887 67888 67889 67890 67891 67892 67893 67894 67895 67896 67897 67898 67899 67900 67901 67902 67903 67904 67905 67906 67907 67908 67909 67910 67911 67912 67913 67914 67915 67916 67917 67918 67919 67920 67921 67922 67923 67924 67925 67926 67927 67928 67929 67930 67931 67932 67933 67934 67935 67936 67937 67938 67939 67940 67941 67942 67943 67944 67945 67946 67947 67948 67949 67950 67951 67952 67953 67954 67955 67956 67957 67958 67959 67960 67961 67962 67963 67964 67965 67966 67967 67968 67969 67970 67971 67972 67973 67974 67975 67976 67977 67978 67979 67980 67981 67982 67983 67984 67985 67986 67987 67988 67989 67990 67991 67992 67993 67994 67995 67996 67997 67998 67999 68000 68001 68002 68003 68004 68005 68006 68007 68008 68009 68010 68011 68012 68013 68014 68015 68016 68017 68018 68019 68020 68021 68022 68023 68024 68025 68026 68027 68028 68029 68030 68031 68032 68033 68034 68035 68036 68037 68038 68039 68040 68041 68042 68043 68044 68045 68046 68047 68048 68049 68050 68051 68052 68053 68054 68055 68056 68057 68058 68059 68060 68061 68062 68063 68064 68065 68066 68067 68068 68069 68070 68071 68072 68073 68074 68075 68076 68077 68078 68079 68080 68081 68082 68083 68084 68085 68086 68087 68088 68089 68090 68091 68092 68093 68094 68095 68096 68097 68098 68099 68100 68101 68102 68103 68104 68105 68106 68107 68108 68109 68110 68111 68112 68113 68114 68115 68116 68117 68118 68119 68120 68121 68122 68123 68124 68125 68126 68127 68128 68129 68130 68131 68132 68133 68134 68135 68136 68137 68138 68139 68140 68141 68142 68143 68144 68145 68146 68147 68148 68149 68150 68151 68152 68153 68154 68155 68156 68157 68158 68159 68160 68161 68162 68163 68164 68165 68166 68167 68168 68169 68170 68171 68172 68173 68174 68175 68176 68177 68178 68179 68180 68181 68182 68183 68184 68185 68186 68187 68188 68189 68190 68191 68192 68193 68194 68195 68196 68197 68198 68199 68200 68201 68202 68203 68204 68205 68206 68207 68208 68209 68210 68211 68212 68213 68214 68215 68216 68217 68218 68219 68220 68221 68222 68223 68224 68225 68226 68227 68228 68229 68230 68231 68232 68233 68234 68235 68236 68237 68238 68239 68240 68241 68242 68243 68244 68245 68246 68247 68248 68249 68250 68251 68252 68253 68254 68255 68256 68257 68258 68259 68260 68261 68262 68263 68264 68265 68266 68267 68268 68269 68270 68271 68272 68273 68274 68275 68276 68277 68278 68279 68280 68281 68282 68283 68284 68285 68286 68287 68288 68289 68290 68291 68292 68293 68294 68295 68296 68297 68298 68299 68300 68301 68302 68303 68304 68305 68306 68307 68308 68309 68310 68311 68312 68313 68314 68315 68316 68317 68318 68319 68320 68321 68322 68323 68324 68325 68326 68327 68328 68329 68330 68331 68332 68333 68334 68335 68336 68337 68338 68339 68340 68341 68342 68343 68344 68345 68346 68347 68348 68349 68350 68351 68352 68353 68354 68355 68356 68357 68358 68359 68360 68361 68362 68363 68364 68365 68366 68367 68368 68369 68370 68371 68372 68373 68374 68375 68376 68377 68378 68379 68380 68381 68382 68383 68384 68385 68386 68387 68388 68389 68390 68391 68392 68393 68394 68395 68396 68397 68398 68399 68400 68401 68402 68403 68404 68405 68406 68407 68408 68409 68410 68411 68412 68413 68414 68415 68416 68417 68418 68419 68420 68421 68422 68423 68424 68425 68426 68427 68428 68429 68430 68431 68432 68433 68434 68435 68436 68437 68438 68439 68440 68441 68442 68443 68444 68445 68446 68447 68448 68449 68450 68451 68452 68453 68454 68455 68456 68457 68458 68459 68460 68461 68462 68463 68464 68465 68466 68467 68468 68469 68470 68471 68472 68473 68474 68475 68476 68477 68478 68479 68480 68481 68482 68483 68484 68485 68486 68487 68488 68489 68490 68491 68492 68493 68494 68495 68496 68497 68498 68499 68500 68501 68502 68503 68504 68505 68506 68507 68508 68509 68510 68511 68512 68513 68514 68515 68516 68517 68518 68519 68520 68521 68522 68523 68524 68525 68526 68527 68528 68529 68530 68531 68532 68533 68534 68535 68536 68537 68538 68539 68540 68541 68542 68543 68544 68545 68546 68547 68548 68549 68550 68551 68552 68553 68554 68555 68556 68557 68558 68559 68560 68561 68562 68563 68564 68565 68566 68567 68568 68569 68570 68571 68572 68573 68574 68575 68576 68577 68578 68579 68580 68581 68582 68583 68584 68585 68586 68587 68588 68589 68590 68591 68592 68593 68594 68595 68596 68597 68598 68599 68600 68601 68602 68603 68604 68605 68606 68607 68608 68609 68610 68611 68612 68613 68614 68615 68616 68617 68618 68619 68620 68621 68622 68623 68624 68625 68626 68627 68628 68629 68630 68631 68632 68633 68634 68635 68636 68637 68638 68639 68640 68641 68642 68643 68644 68645 68646 68647 68648 68649 68650 68651 68652 68653 68654 68655 68656 68657 68658 68659 68660 68661 68662 68663 68664 68665 68666 68667 68668 68669 68670 68671 68672 68673 68674 68675 68676 68677 68678 68679 68680 68681 68682 68683 68684 68685 68686 68687 68688 68689 68690 68691 68692 68693 68694 68695 68696 68697 68698 68699 68700 68701 68702 68703 68704 68705 68706 68707 68708 68709 68710 68711 68712 68713 68714 68715 68716 68717 68718 68719 68720 68721 68722 68723 68724 68725 68726 68727 68728 68729 68730 68731 68732 68733 68734 68735 68736 68737 68738 68739 68740 68741 68742 68743 68744 68745 68746 68747 68748 68749 68750 68751 68752 68753 68754 68755 68756 68757 68758 68759 68760 68761 68762 68763 68764 68765 68766 68767 68768 68769 68770 68771 68772 68773 68774 68775 68776 68777 68778 68779 68780 68781 68782 68783 68784 68785 68786 68787 68788 68789 68790 68791 68792 68793 68794 68795 68796 68797 68798 68799 68800 68801 68802 68803 68804 68805 68806 68807 68808 68809 68810 68811 68812 68813 68814 68815 68816 68817 68818 68819 68820 68821 68822 68823 68824 68825 68826 68827 68828 68829 68830 68831 68832 68833 68834 68835 68836 68837 68838 68839 68840 68841 68842 68843 68844 68845 68846 68847 68848 68849 68850 68851 68852 68853 68854 68855 68856 68857 68858 68859 68860 68861 68862 68863 68864 68865 68866 68867 68868 68869 68870 68871 68872 68873 68874 68875 68876 68877 68878 68879 68880 68881 68882 68883 68884 68885 68886 68887 68888 68889 68890 68891 68892 68893 68894 68895 68896 68897 68898 68899 68900 68901 68902 68903 68904 68905 68906 68907 68908 68909 68910 68911 68912 68913 68914 68915 68916 68917 68918 68919 68920 68921 68922 68923 68924 68925 68926 68927 68928 68929 68930 68931 68932 68933 68934 68935 68936 68937 68938 68939 68940 68941 68942 68943 68944 68945 68946 68947 68948 68949 68950 68951 68952 68953 68954 68955 68956 68957 68958 68959 68960 68961 68962 68963 68964 68965 68966 68967 68968 68969 68970 68971 68972 68973 68974 68975 68976 68977 68978 68979 68980 68981 68982 68983 68984 68985 68986 68987 68988 68989 68990 68991 68992 68993 68994 68995 68996 68997 68998 68999 69000 69001 69002 69003 69004 69005 69006 69007 69008 69009 69010 69011 69012 69013 69014 69015 69016 69017 69018 69019 69020 69021 69022 69023 69024 69025 69026 69027 69028 69029 69030 69031 69032 69033 69034 69035 69036 69037 69038 69039 69040 69041 69042 69043 69044 69045 69046 69047 69048 69049 69050 69051 69052 69053 69054 69055 69056 69057 69058 69059 69060 69061 69062 69063 69064 69065 69066 69067 69068 69069 69070 69071 69072 69073 69074 69075 69076 69077 69078 69079 69080 69081 69082 69083 69084 69085 69086 69087 69088 69089 69090 69091 69092 69093 69094 69095 69096 69097 69098 69099 69100 69101 69102 69103 69104 69105 69106 69107 69108 69109 69110 69111 69112 69113 69114 69115 69116 69117 69118 69119 69120 69121 69122 69123 69124 69125 69126 69127 69128 69129 69130 69131 69132 69133 69134 69135 69136 69137 69138 69139 69140 69141 69142 69143 69144 69145 69146 69147 69148 69149 69150 69151 69152 69153 69154 69155 69156 69157 69158 69159 69160 69161 69162 69163 69164 69165 69166 69167 69168 69169 69170 69171 69172 69173 69174 69175 69176 69177 69178 69179 69180 69181 69182 69183 69184 69185 69186 69187 69188 69189 69190 69191 69192 69193 69194 69195 69196 69197 69198 69199 69200 69201 69202 69203 69204 69205 69206 69207 69208 69209 69210 69211 69212 69213 69214 69215 69216 69217 69218 69219 69220 69221 69222 69223 69224 69225 69226 69227 69228 69229 69230 69231 69232 69233 69234 69235 69236 69237 69238 69239 69240 69241 69242 69243 69244 69245 69246 69247 69248 69249 69250 69251 69252 69253 69254 69255 69256 69257 69258 69259 69260 69261 69262 69263 69264 69265 69266 69267 69268 69269 69270 69271 69272 69273 69274 69275 69276 69277 69278 69279 69280 69281 69282 69283 69284 69285 69286 69287 69288 69289 69290 69291 69292 69293 69294 69295 69296 69297 69298 69299 69300 69301 69302 69303 69304 69305 69306 69307 69308 69309 69310 69311 69312 69313 69314 69315 69316 69317 69318 69319 69320 69321 69322 69323 69324 69325 69326 69327 69328 69329 69330 69331 69332 69333 69334 69335 69336 69337 69338 69339 69340 69341 69342 69343 69344 69345 69346 69347 69348 69349 69350 69351 69352 69353 69354 69355 69356 69357 69358 69359 69360 69361 69362 69363 69364 69365 69366 69367 69368 69369 69370 69371 69372 69373 69374 69375 69376 69377 69378 69379 69380 69381 69382 69383 69384 69385 69386 69387 69388 69389 69390 69391 69392 69393 69394 69395 69396 69397 69398 69399 69400 69401 69402 69403 69404 69405 69406 69407 69408 69409 69410 69411 69412 69413 69414 69415 69416 69417 69418 69419 69420 69421 69422 69423 69424 69425 69426 69427 69428 69429 69430 69431 69432 69433 69434 69435 69436 69437 69438 69439 69440 69441 69442 69443 69444 69445 69446 69447 69448 69449 69450 69451 69452 69453 69454 69455 69456 69457 69458 69459 69460 69461 69462 69463 69464 69465 69466 69467 69468 69469 69470 69471 69472 69473 69474 69475 69476 69477 69478 69479 69480 69481 69482 69483 69484 69485 69486 69487 69488 69489 69490 69491 69492 69493 69494 69495 69496 69497 69498 69499 69500 69501 69502 69503 69504 69505 69506 69507 69508 69509 69510 69511 69512 69513 69514 69515 69516 69517 69518 69519 69520 69521 69522 69523 69524 69525 69526 69527 69528 69529 69530 69531 69532 69533 69534 69535 69536 69537 69538 69539 69540 69541 69542 69543 69544 69545 69546 69547 69548 69549 69550 69551 69552 69553 69554 69555 69556 69557 69558 69559 69560 69561 69562 69563 69564 69565 69566 69567 69568 69569 69570 69571 69572 69573 69574 69575 69576 69577 69578 69579 69580 69581 69582 69583 69584 69585 69586 69587 69588 69589 69590 69591 69592 69593 69594 69595 69596 69597 69598 69599 69600 69601 69602 69603 69604 69605 69606 69607 69608 69609 69610 69611 69612 69613 69614 69615 69616 69617 69618 69619 69620 69621 69622 69623 69624 69625 69626 69627 69628 69629 69630 69631 69632 69633 69634 69635 69636 69637 69638 69639 69640 69641 69642 69643 69644 69645 69646 69647 69648 69649 69650 69651 69652 69653 69654 69655 69656 69657 69658 69659 69660 69661 69662 69663 69664 69665 69666 69667 69668 69669 69670 69671 69672 69673 69674 69675 69676 69677 69678 69679 69680 69681 69682 69683 69684 69685 69686 69687 69688 69689 69690 69691 69692 69693 69694 69695 69696 69697 69698 69699 69700 69701 69702 69703 69704 69705 69706 69707 69708 69709 69710 69711 69712 69713 69714 69715 69716 69717 69718 69719 69720 69721 69722 69723 69724 69725 69726 69727 69728 69729 69730 69731 69732 69733 69734 69735 69736 69737 69738 69739 69740 69741 69742 69743 69744 69745 69746 69747 69748 69749 69750 69751 69752 69753 69754 69755 69756 69757 69758 69759 69760 69761 69762 69763 69764 69765 69766 69767 69768 69769 69770 69771 69772 69773 69774 69775 69776 69777 69778 69779 69780 69781 69782 69783 69784 69785 69786 69787 69788 69789 69790 69791 69792 69793 69794 69795 69796 69797 69798 69799 69800 69801 69802 69803 69804 69805 69806 69807 69808 69809 69810 69811 69812 69813 69814 69815 69816 69817 69818 69819 69820 69821 69822 69823 69824 69825 69826 69827 69828 69829 69830 69831 69832 69833 69834 69835 69836 69837 69838 69839 69840 69841 69842 69843 69844 69845 69846 69847 69848 69849 69850 69851 69852 69853 69854 69855 69856 69857 69858 69859 69860 69861 69862 69863 69864 69865 69866 69867 69868 69869 69870 69871 69872 69873 69874 69875 69876 69877 69878 69879 69880 69881 69882 69883 69884 69885 69886 69887 69888 69889 69890 69891 69892 69893 69894 69895 69896 69897 69898 69899 69900 69901 69902 69903 69904 69905 69906 69907 69908 69909 69910 69911 69912 69913 69914 69915 69916 69917 69918 69919 69920 69921 69922 69923 69924 69925 69926 69927 69928 69929 69930 69931 69932 69933 69934 69935 69936 69937 69938 69939 69940 69941 69942 69943 69944 69945 69946 69947 69948 69949 69950 69951 69952 69953 69954 69955 69956 69957 69958 69959 69960 69961 69962 69963 69964 69965 69966 69967 69968 69969 69970 69971 69972 69973 69974 69975 69976 69977 69978 69979 69980 69981 69982 69983 69984 69985 69986 69987 69988 69989 69990 69991 69992 69993 69994 69995 69996 69997 69998 69999 70000 70001 70002 70003 70004 70005 70006 70007 70008 70009 70010 70011 70012 70013 70014 70015 70016 70017 70018 70019 70020 70021 70022 70023 70024 70025 70026 70027 70028 70029 70030 70031 70032 70033 70034 70035 70036 70037 70038 70039 70040 70041 70042 70043 70044 70045 70046 70047 70048 70049 70050 70051 70052 70053 70054 70055 70056 70057 70058 70059 70060 70061 70062 70063 70064 70065 70066 70067 70068 70069 70070 70071 70072 70073 70074 70075 70076 70077 70078 70079 70080 70081 70082 70083 70084 70085 70086 70087 70088 70089 70090 70091 70092 70093 70094 70095 70096 70097 70098 70099 70100 70101 70102 70103 70104 70105 70106 70107 70108 70109 70110 70111 70112 70113 70114 70115 70116 70117 70118 70119 70120 70121 70122 70123 70124 70125 70126 70127 70128 70129 70130 70131 70132 70133 70134 70135 70136 70137 70138 70139 70140 70141 70142 70143 70144 70145 70146 70147 70148 70149 70150 70151 70152 70153 70154 70155 70156 70157 70158 70159 70160 70161 70162 70163 70164 70165 70166 70167 70168 70169 70170 70171 70172 70173 70174 70175 70176 70177 70178 70179 70180 70181 70182 70183 70184 70185 70186 70187 70188 70189 70190 70191 70192 70193 70194 70195 70196 70197 70198 70199 70200 70201 70202 70203 70204 70205 70206 70207 70208 70209 70210 70211 70212 70213 70214 70215 70216 70217 70218 70219 70220 70221 70222 70223 70224 70225 70226 70227 70228 70229 70230 70231 70232 70233 70234 70235 70236 70237 70238 70239 70240 70241 70242 70243 70244 70245 70246 70247 70248 70249 70250 70251 70252 70253 70254 70255 70256 70257 70258 70259 70260 70261 70262 70263 70264 70265 70266 70267 70268 70269 70270 70271 70272 70273 70274 70275 70276 70277 70278 70279 70280 70281 70282 70283 70284 70285 70286 70287 70288 70289 70290 70291 70292 70293 70294 70295 70296 70297 70298 70299 70300 70301 70302 70303 70304 70305 70306 70307 70308 70309 70310 70311 70312 70313 70314 70315 70316 70317 70318 70319 70320 70321 70322 70323 70324 70325 70326 70327 70328 70329 70330 70331 70332 70333 70334 70335 70336 70337 70338 70339 70340 70341 70342 70343 70344 70345 70346 70347 70348 70349 70350 70351 70352 70353 70354 70355 70356 70357 70358 70359 70360 70361 70362 70363 70364 70365 70366 70367 70368 70369 70370 70371 70372 70373 70374 70375 70376 70377 70378 70379 70380 70381 70382 70383 70384 70385 70386 70387 70388 70389 70390 70391 70392 70393 70394 70395 70396 70397 70398 70399 70400 70401 70402 70403 70404 70405 70406 70407 70408 70409 70410 70411 70412 70413 70414 70415 70416 70417 70418 70419 70420 70421 70422 70423 70424 70425 70426 70427 70428 70429 70430 70431 70432 70433 70434 70435 70436 70437 70438 70439 70440 70441 70442 70443 70444 70445 70446 70447 70448 70449 70450 70451 70452 70453 70454 70455 70456 70457 70458 70459 70460 70461 70462 70463 70464 70465 70466 70467 70468 70469 70470 70471 70472 70473 70474 70475 70476 70477 70478 70479 70480 70481 70482 70483 70484 70485 70486 70487 70488 70489 70490 70491 70492 70493 70494 70495 70496 70497 70498 70499 70500 70501 70502 70503 70504 70505 70506 70507 70508 70509 70510 70511 70512 70513 70514 70515 70516 70517 70518 70519 70520 70521 70522 70523 70524 70525 70526 70527 70528 70529 70530 70531 70532 70533 70534 70535 70536 70537 70538 70539 70540 70541 70542 70543 70544 70545 70546 70547 70548 70549 70550 70551 70552 70553 70554 70555 70556 70557 70558 70559 70560 70561 70562 70563 70564 70565 70566 70567 70568 70569 70570 70571 70572 70573 70574 70575 70576 70577 70578 70579 70580 70581 70582 70583 70584 70585 70586 70587 70588 70589 70590 70591 70592 70593 70594 70595 70596 70597 70598 70599 70600 70601 70602 70603 70604 70605 70606 70607 70608 70609 70610 70611 70612 70613 70614 70615 70616 70617 70618 70619 70620 70621 70622 70623 70624 70625 70626 70627 70628 70629 70630 70631 70632 70633 70634 70635 70636 70637 70638 70639 70640 70641 70642 70643 70644 70645 70646 70647 70648 70649 70650 70651 70652 70653 70654 70655 70656 70657 70658 70659 70660 70661 70662 70663 70664 70665 70666 70667 70668 70669 70670 70671 70672 70673 70674 70675 70676 70677 70678 70679 70680 70681 70682 70683 70684 70685 70686 70687 70688 70689 70690 70691 70692 70693 70694 70695 70696 70697 70698 70699 70700 70701 70702 70703 70704 70705 70706 70707 70708 70709 70710 70711 70712 70713 70714 70715 70716 70717 70718 70719 70720 70721 70722 70723 70724 70725 70726 70727 70728 70729 70730 70731 70732 70733 70734 70735 70736 70737 70738 70739 70740 70741 70742 70743 70744 70745 70746 70747 70748 70749 70750 70751 70752 70753 70754 70755 70756 70757 70758 70759 70760 70761 70762 70763 70764 70765 70766 70767 70768 70769 70770 70771 70772 70773 70774 70775 70776 70777 70778 70779 70780 70781 70782 70783 70784 70785 70786 70787 70788 70789 70790 70791 70792 70793 70794 70795 70796 70797 70798 70799 70800 70801 70802 70803 70804 70805 70806 70807 70808 70809 70810 70811 70812 70813 70814 70815 70816 70817 70818 70819 70820 70821 70822 70823 70824 70825 70826 70827 70828 70829 70830 70831 70832 70833 70834 70835 70836 70837 70838 70839 70840 70841 70842 70843 70844 70845 70846 70847 70848 70849 70850 70851 70852 70853 70854 70855 70856 70857 70858 70859 70860 70861 70862 70863 70864 70865 70866 70867 70868 70869 70870 70871 70872 70873 70874 70875 70876 70877 70878 70879 70880 70881 70882 70883 70884 70885 70886 70887 70888 70889 70890 70891 70892 70893 70894 70895 70896 70897 70898 70899 70900 70901 70902 70903 70904 70905 70906 70907 70908 70909 70910 70911 70912 70913 70914 70915 70916 70917 70918 70919 70920 70921 70922 70923 70924 70925 70926 70927 70928 70929 70930 70931 70932 70933 70934 70935 70936 70937 70938 70939 70940 70941 70942 70943 70944 70945 70946 70947 70948 70949 70950 70951 70952 70953 70954 70955 70956 70957 70958 70959 70960 70961 70962 70963 70964 70965 70966 70967 70968 70969 70970 70971 70972 70973 70974 70975 70976 70977 70978 70979 70980 70981 70982 70983 70984 70985 70986 70987 70988 70989 70990 70991 70992 70993 70994 70995 70996 70997 70998 70999 71000 71001 71002 71003 71004 71005 71006 71007 71008 71009 71010 71011 71012 71013 71014 71015 71016 71017 71018 71019 71020 71021 71022 71023 71024 71025 71026 71027 71028 71029 71030 71031 71032 71033 71034 71035 71036 71037 71038 71039 71040 71041 71042 71043 71044 71045 71046 71047 71048 71049 71050 71051 71052 71053 71054 71055 71056 71057 71058 71059 71060 71061 71062 71063 71064 71065 71066 71067 71068 71069 71070 71071 71072 71073 71074 71075 71076 71077 71078 71079 71080 71081 71082 71083 71084 71085 71086 71087 71088 71089 71090 71091 71092 71093 71094 71095 71096 71097 71098 71099 71100 71101 71102 71103 71104 71105 71106 71107 71108 71109 71110 71111 71112 71113 71114 71115 71116 71117 71118 71119 71120 71121 71122 71123 71124 71125 71126 71127 71128 71129 71130 71131 71132 71133 71134 71135 71136 71137 71138 71139 71140 71141 71142 71143 71144 71145 71146 71147 71148 71149 71150 71151 71152 71153 71154 71155 71156 71157 71158 71159 71160 71161 71162 71163 71164 71165 71166 71167 71168 71169 71170 71171 71172 71173 71174 71175 71176 71177 71178 71179 71180 71181 71182 71183 71184 71185 71186 71187 71188 71189 71190 71191 71192 71193 71194 71195 71196 71197 71198 71199 71200 71201 71202 71203 71204 71205 71206 71207 71208 71209 71210 71211 71212 71213 71214 71215 71216 71217 71218 71219 71220 71221 71222 71223 71224 71225 71226 71227 71228 71229 71230 71231 71232 71233 71234 71235 71236 71237 71238 71239 71240 71241 71242 71243 71244 71245 71246 71247 71248 71249 71250 71251 71252 71253 71254 71255 71256 71257 71258 71259 71260 71261 71262 71263 71264 71265 71266 71267 71268 71269 71270 71271 71272 71273 71274 71275 71276 71277 71278 71279 71280 71281 71282 71283 71284 71285 71286 71287 71288 71289 71290 71291 71292 71293 71294 71295 71296 71297 71298 71299 71300 71301 71302 71303 71304 71305 71306 71307 71308 71309 71310 71311 71312 71313 71314 71315 71316 71317 71318 71319 71320 71321 71322 71323 71324 71325 71326 71327 71328 71329 71330 71331 71332 71333 71334 71335 71336 71337 71338 71339 71340 71341 71342 71343 71344 71345 71346 71347 71348 71349 71350 71351 71352 71353 71354 71355 71356 71357 71358 71359 71360 71361 71362 71363 71364 71365 71366 71367 71368 71369 71370 71371 71372 71373 71374 71375 71376 71377 71378 71379 71380 71381 71382 71383 71384 71385 71386 71387 71388 71389 71390 71391 71392 71393 71394 71395 71396 71397 71398 71399 71400 71401 71402 71403 71404 71405 71406 71407 71408 71409 71410 71411 71412 71413 71414 71415 71416 71417 71418 71419 71420 71421 71422 71423 71424 71425 71426 71427 71428 71429 71430 71431 71432 71433 71434 71435 71436 71437 71438 71439 71440 71441 71442 71443 71444 71445 71446 71447 71448 71449 71450 71451 71452 71453 71454 71455 71456 71457 71458 71459 71460 71461 71462 71463 71464 71465 71466 71467 71468 71469 71470 71471 71472 71473 71474 71475 71476 71477 71478 71479 71480 71481 71482 71483 71484 71485 71486 71487 71488 71489 71490 71491 71492 71493 71494 71495 71496 71497 71498 71499 71500 71501 71502 71503 71504 71505 71506 71507 71508 71509 71510 71511 71512 71513 71514 71515 71516 71517 71518 71519 71520 71521 71522 71523 71524 71525 71526 71527 71528 71529 71530 71531 71532 71533 71534 71535 71536 71537 71538 71539 71540 71541 71542 71543 71544 71545 71546 71547 71548 71549 71550 71551 71552 71553 71554 71555 71556 71557 71558 71559 71560 71561 71562 71563 71564 71565 71566 71567 71568 71569 71570 71571 71572 71573 71574 71575 71576 71577 71578 71579 71580 71581 71582 71583 71584 71585 71586 71587 71588 71589 71590 71591 71592 71593 71594 71595 71596 71597 71598 71599 71600 71601 71602 71603 71604 71605 71606 71607 71608 71609 71610 71611 71612 71613 71614 71615 71616 71617 71618 71619 71620 71621 71622 71623 71624 71625 71626 71627 71628 71629 71630 71631 71632 71633 71634 71635 71636 71637 71638 71639 71640 71641 71642 71643 71644 71645 71646 71647 71648 71649 71650 71651 71652 71653 71654 71655 71656 71657 71658 71659 71660 71661 71662 71663 71664 71665 71666 71667 71668 71669 71670 71671 71672 71673 71674 71675 71676 71677 71678 71679 71680 71681 71682 71683 71684 71685 71686 71687 71688 71689 71690 71691 71692 71693 71694 71695 71696 71697 71698 71699 71700 71701 71702 71703 71704 71705 71706 71707 71708 71709 71710 71711 71712 71713 71714 71715 71716 71717 71718 71719 71720 71721 71722 71723 71724 71725 71726 71727 71728 71729 71730 71731 71732 71733 71734 71735 71736 71737 71738 71739 71740 71741 71742 71743 71744 71745 71746 71747 71748 71749 71750 71751 71752 71753 71754 71755 71756 71757 71758 71759 71760 71761 71762 71763 71764 71765 71766 71767 71768 71769 71770 71771 71772 71773 71774 71775 71776 71777 71778 71779 71780 71781 71782 71783 71784 71785 71786 71787 71788 71789 71790 71791 71792 71793 71794 71795 71796 71797 71798 71799 71800 71801 71802 71803 71804 71805 71806 71807 71808 71809 71810 71811 71812 71813 71814 71815 71816 71817 71818 71819 71820 71821 71822 71823 71824 71825 71826 71827 71828 71829 71830 71831 71832 71833 71834 71835 71836 71837 71838 71839 71840 71841 71842 71843 71844 71845 71846 71847 71848 71849 71850 71851 71852 71853 71854 71855 71856 71857 71858 71859 71860 71861 71862 71863 71864 71865 71866 71867 71868 71869 71870 71871 71872 71873 71874 71875 71876 71877 71878 71879 71880 71881 71882 71883 71884 71885 71886 71887 71888 71889 71890 71891 71892 71893 71894 71895 71896 71897 71898 71899 71900 71901 71902 71903 71904 71905 71906 71907 71908 71909 71910 71911 71912 71913 71914 71915 71916 71917 71918 71919 71920 71921 71922 71923 71924 71925 71926 71927 71928 71929 71930 71931 71932 71933 71934 71935 71936 71937 71938 71939 71940 71941 71942 71943 71944 71945 71946 71947 71948 71949 71950 71951 71952 71953 71954 71955 71956 71957 71958 71959 71960 71961 71962 71963 71964 71965 71966 71967 71968 71969 71970 71971 71972 71973 71974 71975 71976 71977 71978 71979 71980 71981 71982 71983 71984 71985 71986 71987 71988 71989 71990 71991 71992 71993 71994 71995 71996 71997 71998 71999 72000 72001 72002 72003 72004 72005 72006 72007 72008 72009 72010 72011 72012 72013 72014 72015 72016 72017 72018 72019 72020 72021 72022 72023 72024 72025 72026 72027 72028 72029 72030 72031 72032 72033 72034 72035 72036 72037 72038 72039 72040 72041 72042 72043 72044 72045 72046 72047 72048 72049 72050 72051 72052 72053 72054 72055 72056 72057 72058 72059 72060 72061 72062 72063 72064 72065 72066 72067 72068 72069 72070 72071 72072 72073 72074 72075 72076 72077 72078 72079 72080 72081 72082 72083 72084 72085 72086 72087 72088 72089 72090 72091 72092 72093 72094 72095 72096 72097 72098 72099 72100 72101 72102 72103 72104 72105 72106 72107 72108 72109 72110 72111 72112 72113 72114 72115 72116 72117 72118 72119 72120 72121 72122 72123 72124 72125 72126 72127 72128 72129 72130 72131 72132 72133 72134 72135 72136 72137 72138 72139 72140 72141 72142 72143 72144 72145 72146 72147 72148 72149 72150 72151 72152 72153 72154 72155 72156 72157 72158 72159 72160 72161 72162 72163 72164 72165 72166 72167 72168 72169 72170 72171 72172 72173 72174 72175 72176 72177 72178 72179 72180 72181 72182 72183 72184 72185 72186 72187 72188 72189 72190 72191 72192 72193 72194 72195 72196 72197 72198 72199 72200 72201 72202 72203 72204 72205 72206 72207 72208 72209 72210 72211 72212 72213 72214 72215 72216 72217 72218 72219 72220 72221 72222 72223 72224 72225 72226 72227 72228 72229 72230 72231 72232 72233 72234 72235 72236 72237 72238 72239 72240 72241 72242 72243 72244 72245 72246 72247 72248 72249 72250 72251 72252 72253 72254 72255 72256 72257 72258 72259 72260 72261 72262 72263 72264 72265 72266 72267 72268 72269 72270 72271 72272 72273 72274 72275 72276 72277 72278 72279 72280 72281 72282 72283 72284 72285 72286 72287 72288 72289 72290 72291 72292 72293 72294 72295 72296 72297 72298 72299 72300 72301 72302 72303 72304 72305 72306 72307 72308 72309 72310 72311 72312 72313 72314 72315 72316 72317 72318 72319 72320 72321 72322 72323 72324 72325 72326 72327 72328 72329 72330 72331 72332 72333 72334 72335 72336 72337 72338 72339 72340 72341 72342 72343 72344 72345 72346 72347 72348 72349 72350 72351 72352 72353 72354 72355 72356 72357 72358 72359 72360 72361 72362 72363 72364 72365 72366 72367 72368 72369 72370 72371 72372 72373 72374 72375 72376 72377 72378 72379 72380 72381 72382 72383 72384 72385 72386 72387 72388 72389 72390 72391 72392 72393 72394 72395 72396 72397 72398 72399 72400 72401 72402 72403 72404 72405 72406 72407 72408 72409 72410 72411 72412 72413 72414 72415 72416 72417 72418 72419 72420 72421 72422 72423 72424 72425 72426 72427 72428 72429 72430 72431 72432 72433 72434 72435 72436 72437 72438 72439 72440 72441 72442 72443 72444 72445 72446 72447 72448 72449 72450 72451 72452 72453 72454 72455 72456 72457 72458 72459 72460 72461 72462 72463 72464 72465 72466 72467 72468 72469 72470 72471 72472 72473 72474 72475 72476 72477 72478 72479 72480 72481 72482 72483 72484 72485 72486 72487 72488 72489 72490 72491 72492 72493 72494 72495 72496 72497 72498 72499 72500 72501 72502 72503 72504 72505 72506 72507 72508 72509 72510 72511 72512 72513 72514 72515 72516 72517 72518 72519 72520 72521 72522 72523 72524 72525 72526 72527 72528 72529 72530 72531 72532 72533 72534 72535 72536 72537 72538 72539 72540 72541 72542 72543 72544 72545 72546 72547 72548 72549 72550 72551 72552 72553 72554 72555 72556 72557 72558 72559 72560 72561 72562 72563 72564 72565 72566 72567 72568 72569 72570 72571 72572 72573 72574 72575 72576 72577 72578 72579 72580 72581 72582 72583 72584 72585 72586 72587 72588 72589 72590 72591 72592 72593 72594 72595 72596 72597 72598 72599 72600 72601 72602 72603 72604 72605 72606 72607 72608 72609 72610 72611 72612 72613 72614 72615 72616 72617 72618 72619 72620 72621 72622 72623 72624 72625 72626 72627 72628 72629 72630 72631 72632 72633 72634 72635 72636 72637 72638 72639 72640 72641 72642 72643 72644 72645 72646 72647 72648 72649 72650 72651 72652 72653 72654 72655 72656 72657 72658 72659 72660 72661 72662 72663 72664 72665 72666 72667 72668 72669 72670 72671 72672 72673 72674 72675 72676 72677 72678 72679 72680 72681 72682 72683 72684 72685 72686 72687 72688 72689 72690 72691 72692 72693 72694 72695 72696 72697 72698 72699 72700 72701 72702 72703 72704 72705 72706 72707 72708 72709 72710 72711 72712 72713 72714 72715 72716 72717 72718 72719 72720 72721 72722 72723 72724 72725 72726 72727 72728 72729 72730 72731 72732 72733 72734 72735 72736 72737 72738 72739 72740 72741 72742 72743 72744 72745 72746 72747 72748 72749 72750 72751 72752 72753 72754 72755 72756 72757 72758 72759 72760 72761 72762 72763 72764 72765 72766 72767 72768 72769 72770 72771 72772 72773 72774 72775 72776 72777 72778 72779 72780 72781 72782 72783 72784 72785 72786 72787 72788 72789 72790 72791 72792 72793 72794 72795 72796 72797 72798 72799 72800 72801 72802 72803 72804 72805 72806 72807 72808 72809 72810 72811 72812 72813 72814 72815 72816 72817 72818 72819 72820 72821 72822 72823 72824 72825 72826 72827 72828 72829 72830 72831 72832 72833 72834 72835 72836 72837 72838 72839 72840 72841 72842 72843 72844 72845 72846 72847 72848 72849 72850 72851 72852 72853 72854 72855 72856 72857 72858 72859 72860 72861 72862 72863 72864 72865 72866 72867 72868 72869 72870 72871 72872 72873 72874 72875 72876 72877 72878 72879 72880 72881 72882 72883 72884 72885 72886 72887 72888 72889 72890 72891 72892 72893 72894 72895 72896 72897 72898 72899 72900 72901 72902 72903 72904 72905 72906 72907 72908 72909 72910 72911 72912 72913 72914 72915 72916 72917 72918 72919 72920 72921 72922 72923 72924 72925 72926 72927 72928 72929 72930 72931 72932 72933 72934 72935 72936 72937 72938 72939 72940 72941 72942 72943 72944 72945 72946 72947 72948 72949 72950 72951 72952 72953 72954 72955 72956 72957 72958 72959 72960 72961 72962 72963 72964 72965 72966 72967 72968 72969 72970 72971 72972 72973 72974 72975 72976 72977 72978 72979 72980 72981 72982 72983 72984 72985 72986 72987 72988 72989 72990 72991 72992 72993 72994 72995 72996 72997 72998 72999 73000 73001 73002 73003 73004 73005 73006 73007 73008 73009 73010 73011 73012 73013 73014 73015 73016 73017 73018 73019 73020 73021 73022 73023 73024 73025 73026 73027 73028 73029 73030 73031 73032 73033 73034 73035 73036 73037 73038 73039 73040 73041 73042 73043 73044 73045 73046 73047 73048 73049 73050 73051 73052 73053 73054 73055 73056 73057 73058 73059 73060 73061 73062 73063 73064 73065 73066 73067 73068 73069 73070 73071 73072 73073 73074 73075 73076 73077 73078 73079 73080 73081 73082 73083 73084 73085 73086 73087 73088 73089 73090 73091 73092 73093 73094 73095 73096 73097 73098 73099 73100 73101 73102 73103 73104 73105 73106 73107 73108 73109 73110 73111 73112 73113 73114 73115 73116 73117 73118 73119 73120 73121 73122 73123 73124 73125 73126 73127 73128 73129 73130 73131 73132 73133 73134 73135 73136 73137 73138 73139 73140 73141 73142 73143 73144 73145 73146 73147 73148 73149 73150 73151 73152 73153 73154 73155 73156 73157 73158 73159 73160 73161 73162 73163 73164 73165 73166 73167 73168 73169 73170 73171 73172 73173 73174 73175 73176 73177 73178 73179 73180 73181 73182 73183 73184 73185 73186 73187 73188 73189 73190 73191 73192 73193 73194 73195 73196 73197 73198 73199 73200 73201 73202 73203 73204 73205 73206 73207 73208 73209 73210 73211 73212 73213 73214 73215 73216 73217 73218 73219 73220 73221 73222 73223 73224 73225 73226 73227 73228 73229 73230 73231 73232 73233 73234 73235 73236 73237 73238 73239 73240 73241 73242 73243 73244 73245 73246 73247 73248 73249 73250 73251 73252 73253 73254 73255 73256 73257 73258 73259 73260 73261 73262 73263 73264 73265 73266 73267 73268 73269 73270 73271 73272 73273 73274 73275 73276 73277 73278 73279 73280 73281 73282 73283 73284 73285 73286 73287 73288 73289 73290 73291 73292 73293 73294 73295 73296 73297 73298 73299 73300 73301 73302 73303 73304 73305 73306 73307 73308 73309 73310 73311 73312 73313 73314 73315 73316 73317 73318 73319 73320 73321 73322 73323 73324 73325 73326 73327 73328 73329 73330 73331 73332 73333 73334 73335 73336 73337 73338 73339 73340 73341 73342 73343 73344 73345 73346 73347 73348 73349 73350 73351 73352 73353 73354 73355 73356 73357 73358 73359 73360 73361 73362 73363 73364 73365 73366 73367 73368 73369 73370 73371 73372 73373 73374 73375 73376 73377 73378 73379 73380 73381 73382 73383 73384 73385 73386 73387 73388 73389 73390 73391 73392 73393 73394 73395 73396 73397 73398 73399 73400 73401 73402 73403 73404 73405 73406 73407 73408 73409 73410 73411 73412 73413 73414 73415 73416 73417 73418 73419 73420 73421 73422 73423 73424 73425 73426 73427 73428 73429 73430 73431 73432 73433 73434 73435 73436 73437 73438 73439 73440 73441 73442 73443 73444 73445 73446 73447 73448 73449 73450 73451 73452 73453 73454 73455 73456 73457 73458 73459 73460 73461 73462 73463 73464 73465 73466 73467 73468 73469 73470 73471 73472 73473 73474 73475 73476 73477 73478 73479 73480 73481 73482 73483 73484 73485 73486 73487 73488 73489 73490 73491 73492 73493 73494 73495 73496 73497 73498 73499 73500 73501 73502 73503 73504 73505 73506 73507 73508 73509 73510 73511 73512 73513 73514 73515 73516 73517 73518 73519 73520 73521 73522 73523 73524 73525 73526 73527 73528 73529 73530 73531 73532 73533 73534 73535 73536 73537 73538 73539 73540 73541 73542 73543 73544 73545 73546 73547 73548 73549 73550 73551 73552 73553 73554 73555 73556 73557 73558 73559 73560 73561 73562 73563 73564 73565 73566 73567 73568 73569 73570 73571 73572 73573 73574 73575 73576 73577 73578 73579 73580 73581 73582 73583 73584 73585 73586 73587 73588 73589 73590 73591 73592 73593 73594 73595 73596 73597 73598 73599 73600 73601 73602 73603 73604 73605 73606 73607 73608 73609 73610 73611 73612 73613 73614 73615 73616 73617 73618 73619 73620 73621 73622 73623 73624 73625 73626 73627 73628 73629 73630 73631 73632 73633 73634 73635 73636 73637 73638 73639 73640 73641 73642 73643 73644 73645 73646 73647 73648 73649 73650 73651 73652 73653 73654 73655 73656 73657 73658 73659 73660 73661 73662 73663 73664 73665 73666 73667 73668 73669 73670 73671 73672 73673 73674 73675 73676 73677 73678 73679 73680 73681 73682 73683 73684 73685 73686 73687 73688 73689 73690 73691 73692 73693 73694 73695 73696 73697 73698 73699 73700 73701 73702 73703 73704 73705 73706 73707 73708 73709 73710 73711 73712 73713 73714 73715 73716 73717 73718 73719 73720 73721 73722 73723 73724 73725 73726 73727 73728 73729 73730 73731 73732 73733 73734 73735 73736 73737 73738 73739 73740 73741 73742 73743 73744 73745 73746 73747 73748 73749 73750 73751 73752 73753 73754 73755 73756 73757 73758 73759 73760 73761 73762 73763 73764 73765 73766 73767 73768 73769 73770 73771 73772 73773 73774 73775 73776 73777 73778 73779 73780 73781 73782 73783 73784 73785 73786 73787 73788 73789 73790 73791 73792 73793 73794 73795 73796 73797 73798 73799 73800 73801 73802 73803 73804 73805 73806 73807 73808 73809 73810 73811 73812 73813 73814 73815 73816 73817 73818 73819 73820 73821 73822 73823 73824 73825 73826 73827 73828 73829 73830 73831 73832 73833 73834 73835 73836 73837 73838 73839 73840 73841 73842 73843 73844 73845 73846 73847 73848 73849 73850 73851 73852 73853 73854 73855 73856 73857 73858 73859 73860 73861 73862 73863 73864 73865 73866 73867 73868 73869 73870 73871 73872 73873 73874 73875 73876 73877 73878 73879 73880 73881 73882 73883 73884 73885 73886 73887 73888 73889 73890 73891 73892 73893 73894 73895 73896 73897 73898 73899 73900 73901 73902 73903 73904 73905 73906 73907 73908 73909 73910 73911 73912 73913 73914 73915 73916 73917 73918 73919 73920 73921 73922 73923 73924 73925 73926 73927 73928 73929 73930 73931 73932 73933 73934 73935 73936 73937 73938 73939 73940 73941 73942 73943 73944 73945 73946 73947 73948 73949 73950 73951 73952 73953 73954 73955 73956 73957 73958 73959 73960 73961 73962 73963 73964 73965 73966 73967 73968 73969 73970 73971 73972 73973 73974 73975 73976 73977 73978 73979 73980 73981 73982 73983 73984 73985 73986 73987 73988 73989 73990 73991 73992 73993 73994 73995 73996 73997 73998 73999 74000 74001 74002 74003 74004 74005 74006 74007 74008 74009 74010 74011 74012 74013 74014 74015 74016 74017 74018 74019 74020 74021 74022 74023 74024 74025 74026 74027 74028 74029 74030 74031 74032 74033 74034 74035 74036 74037 74038 74039 74040 74041 74042 74043 74044 74045 74046 74047 74048 74049 74050 74051 74052 74053 74054 74055 74056 74057 74058 74059 74060 74061 74062 74063 74064 74065 74066 74067 74068 74069 74070 74071 74072 74073 74074 74075 74076 74077 74078 74079 74080 74081 74082 74083 74084 74085 74086 74087 74088 74089 74090 74091 74092 74093 74094 74095 74096 74097 74098 74099 74100 74101 74102 74103 74104 74105 74106 74107 74108 74109 74110 74111 74112 74113 74114 74115 74116 74117 74118 74119 74120 74121 74122 74123 74124 74125 74126 74127 74128 74129 74130 74131 74132 74133 74134 74135 74136 74137 74138 74139 74140 74141 74142 74143 74144 74145 74146 74147 74148 74149 74150 74151 74152 74153 74154 74155 74156 74157 74158 74159 74160 74161 74162 74163 74164 74165 74166 74167 74168 74169 74170 74171 74172 74173 74174 74175 74176 74177 74178 74179 74180 74181 74182 74183 74184 74185 74186 74187 74188 74189 74190 74191 74192 74193 74194 74195 74196 74197 74198 74199 74200 74201 74202 74203 74204 74205 74206 74207 74208 74209 74210 74211 74212 74213 74214 74215 74216 74217 74218 74219 74220 74221 74222 74223 74224 74225 74226 74227 74228 74229 74230 74231 74232 74233 74234 74235 74236 74237 74238 74239 74240 74241 74242 74243 74244 74245 74246 74247 74248 74249 74250 74251 74252 74253 74254 74255 74256 74257 74258 74259 74260 74261 74262 74263 74264 74265 74266 74267 74268 74269 74270 74271 74272 74273 74274 74275 74276 74277 74278 74279 74280 74281 74282 74283 74284 74285 74286 74287 74288 74289 74290 74291 74292 74293 74294 74295 74296 74297 74298 74299 74300 74301 74302 74303 74304 74305 74306 74307 74308 74309 74310 74311 74312 74313 74314 74315 74316 74317 74318 74319 74320 74321 74322 74323 74324 74325 74326 74327 74328 74329 74330 74331 74332 74333 74334 74335 74336 74337 74338 74339 74340 74341 74342 74343 74344 74345 74346 74347 74348 74349 74350 74351 74352 74353 74354 74355 74356 74357 74358 74359 74360 74361 74362 74363 74364 74365 74366 74367 74368 74369 74370 74371 74372 74373 74374 74375 74376 74377 74378 74379 74380 74381 74382 74383 74384 74385 74386 74387 74388 74389 74390 74391 74392 74393 74394 74395 74396 74397 74398 74399 74400 74401 74402 74403 74404 74405 74406 74407 74408 74409 74410 74411 74412 74413 74414 74415 74416 74417 74418 74419 74420 74421 74422 74423 74424 74425 74426 74427 74428 74429 74430 74431 74432 74433 74434 74435 74436 74437 74438 74439 74440 74441 74442 74443 74444 74445 74446 74447 74448 74449 74450 74451 74452 74453 74454 74455 74456 74457 74458 74459 74460 74461 74462 74463 74464 74465 74466 74467 74468 74469 74470 74471 74472 74473 74474 74475 74476 74477 74478 74479 74480 74481 74482 74483 74484 74485 74486 74487 74488 74489 74490 74491 74492 74493 74494 74495 74496 74497 74498 74499 74500 74501 74502 74503 74504 74505 74506 74507 74508 74509 74510 74511 74512 74513 74514 74515 74516 74517 74518 74519 74520 74521 74522 74523 74524 74525 74526 74527 74528 74529 74530 74531 74532 74533 74534 74535 74536 74537 74538 74539 74540 74541 74542 74543 74544 74545 74546 74547 74548 74549 74550 74551 74552 74553 74554 74555 74556 74557 74558 74559 74560 74561 74562 74563 74564 74565 74566 74567 74568 74569 74570 74571 74572 74573 74574 74575 74576 74577 74578 74579 74580 74581 74582 74583 74584 74585 74586 74587 74588 74589 74590 74591 74592 74593 74594 74595 74596 74597 74598 74599 74600 74601 74602 74603 74604 74605 74606 74607 74608 74609 74610 74611 74612 74613 74614 74615 74616 74617 74618 74619 74620 74621 74622 74623 74624 74625 74626 74627 74628 74629 74630 74631 74632 74633 74634 74635 74636 74637 74638 74639 74640 74641 74642 74643 74644 74645 74646 74647 74648 74649 74650 74651 74652 74653 74654 74655 74656 74657 74658 74659 74660 74661 74662 74663 74664 74665 74666 74667 74668 74669 74670 74671 74672 74673 74674 74675 74676 74677 74678 74679 74680 74681 74682 74683 74684 74685 74686 74687 74688 74689 74690 74691 74692 74693 74694 74695 74696 74697 74698 74699 74700 74701 74702 74703 74704 74705 74706 74707 74708 74709 74710 74711 74712 74713 74714 74715 74716 74717 74718 74719 74720 74721 74722 74723 74724 74725 74726 74727 74728 74729 74730 74731 74732 74733 74734 74735 74736 74737 74738 74739 74740 74741 74742 74743 74744 74745 74746 74747 74748 74749 74750 74751 74752 74753 74754 74755 74756 74757 74758 74759 74760 74761 74762 74763 74764 74765 74766 74767 74768 74769 74770 74771 74772 74773 74774 74775 74776 74777 74778 74779 74780 74781 74782 74783 74784 74785 74786 74787 74788 74789 74790 74791 74792 74793 74794 74795 74796 74797 74798 74799 74800 74801 74802 74803 74804 74805 74806 74807 74808 74809 74810 74811 74812 74813 74814 74815 74816 74817 74818 74819 74820 74821 74822 74823 74824 74825 74826 74827 74828 74829 74830 74831 74832 74833 74834 74835 74836 74837 74838 74839 74840 74841 74842 74843 74844 74845 74846 74847 74848 74849 74850 74851 74852 74853 74854 74855 74856 74857 74858 74859 74860 74861 74862 74863 74864 74865 74866 74867 74868 74869 74870 74871 74872 74873 74874 74875 74876 74877 74878 74879 74880 74881 74882 74883 74884 74885 74886 74887 74888 74889 74890 74891 74892 74893 74894 74895 74896 74897 74898 74899 74900 74901 74902 74903 74904 74905 74906 74907 74908 74909 74910 74911 74912 74913 74914 74915 74916 74917 74918 74919 74920 74921 74922 74923 74924 74925 74926 74927 74928 74929 74930 74931 74932 74933 74934 74935 74936 74937 74938 74939 74940 74941 74942 74943 74944 74945 74946 74947 74948 74949 74950 74951 74952 74953 74954 74955 74956 74957 74958 74959 74960 74961 74962 74963 74964 74965 74966 74967 74968 74969 74970 74971 74972 74973 74974 74975 74976 74977 74978 74979 74980 74981 74982 74983 74984 74985 74986 74987 74988 74989 74990 74991 74992 74993 74994 74995 74996 74997 74998 74999 75000 75001 75002 75003 75004 75005 75006 75007 75008 75009 75010 75011 75012 75013 75014 75015 75016 75017 75018 75019 75020 75021 75022 75023 75024 75025 75026 75027 75028 75029 75030 75031 75032 75033 75034 75035 75036 75037 75038 75039 75040 75041 75042 75043 75044 75045 75046 75047 75048 75049 75050 75051 75052 75053 75054 75055 75056 75057 75058 75059 75060 75061 75062 75063 75064 75065 75066 75067 75068 75069 75070 75071 75072 75073 75074 75075 75076 75077 75078 75079 75080 75081 75082 75083 75084 75085 75086 75087 75088 75089 75090 75091 75092 75093 75094 75095 75096 75097 75098 75099 75100 75101 75102 75103 75104 75105 75106 75107 75108 75109 75110 75111 75112 75113 75114 75115 75116 75117 75118 75119 75120 75121 75122 75123 75124 75125 75126 75127 75128 75129 75130 75131 75132 75133 75134 75135 75136 75137 75138 75139 75140 75141 75142 75143 75144 75145 75146 75147 75148 75149 75150 75151 75152 75153 75154 75155 75156 75157 75158 75159 75160 75161 75162 75163 75164 75165 75166 75167 75168 75169 75170 75171 75172 75173 75174 75175 75176 75177 75178 75179 75180 75181 75182 75183 75184 75185 75186 75187 75188 75189 75190 75191 75192 75193 75194 75195 75196 75197 75198 75199 75200 75201 75202 75203 75204 75205 75206 75207 75208 75209 75210 75211 75212 75213 75214 75215 75216 75217 75218 75219 75220 75221 75222 75223 75224 75225 75226 75227 75228 75229 75230 75231 75232 75233 75234 75235 75236 75237 75238 75239 75240 75241 75242 75243 75244 75245 75246 75247 75248 75249 75250 75251 75252 75253 75254 75255 75256 75257 75258 75259 75260 75261 75262 75263 75264 75265 75266 75267 75268 75269 75270 75271 75272 75273 75274 75275 75276 75277 75278 75279 75280 75281 75282 75283 75284 75285 75286 75287 75288 75289 75290 75291 75292 75293 75294 75295 75296 75297 75298 75299 75300 75301 75302 75303 75304 75305 75306 75307 75308 75309 75310 75311 75312 75313 75314 75315 75316 75317 75318 75319 75320 75321 75322 75323 75324 75325 75326 75327 75328 75329 75330 75331 75332 75333 75334 75335 75336 75337 75338 75339 75340 75341 75342 75343 75344 75345 75346 75347 75348 75349 75350 75351 75352 75353 75354 75355 75356 75357 75358 75359 75360 75361 75362 75363 75364 75365 75366 75367 75368 75369 75370 75371 75372 75373 75374 75375 75376 75377 75378 75379 75380 75381 75382 75383 75384 75385 75386 75387 75388 75389 75390 75391 75392 75393 75394 75395 75396 75397 75398 75399 75400 75401 75402 75403 75404 75405 75406 75407 75408 75409 75410 75411 75412 75413 75414 75415 75416 75417 75418 75419 75420 75421 75422 75423 75424 75425 75426 75427 75428 75429 75430 75431 75432 75433 75434 75435 75436 75437 75438 75439 75440 75441 75442 75443 75444 75445 75446 75447 75448 75449 75450 75451 75452 75453 75454 75455 75456 75457 75458 75459 75460 75461 75462 75463 75464 75465 75466 75467 75468 75469 75470 75471 75472 75473 75474 75475 75476 75477 75478 75479 75480 75481 75482 75483 75484 75485 75486 75487 75488 75489 75490 75491 75492 75493 75494 75495 75496 75497 75498 75499 75500 75501 75502 75503 75504 75505 75506 75507 75508 75509 75510 75511 75512 75513 75514 75515 75516 75517 75518 75519 75520 75521 75522 75523 75524 75525 75526 75527 75528 75529 75530 75531 75532 75533 75534 75535 75536 75537 75538 75539 75540 75541 75542 75543 75544 75545 75546 75547 75548 75549 75550 75551 75552 75553 75554 75555 75556 75557 75558 75559 75560 75561 75562 75563 75564 75565 75566 75567 75568 75569 75570 75571 75572 75573 75574 75575 75576 75577 75578 75579 75580 75581 75582 75583 75584 75585 75586 75587 75588 75589 75590 75591 75592 75593 75594 75595 75596 75597 75598 75599 75600 75601 75602 75603 75604 75605 75606 75607 75608 75609 75610 75611 75612 75613 75614 75615 75616 75617 75618 75619 75620 75621 75622 75623 75624 75625 75626 75627 75628 75629 75630 75631 75632 75633 75634 75635 75636 75637 75638 75639 75640 75641 75642 75643 75644 75645 75646 75647 75648 75649 75650 75651 75652 75653 75654 75655 75656 75657 75658 75659 75660 75661 75662 75663 75664 75665 75666 75667 75668 75669 75670 75671 75672 75673 75674 75675 75676 75677 75678 75679 75680 75681 75682 75683 75684 75685 75686 75687 75688 75689 75690 75691 75692 75693 75694 75695 75696 75697 75698 75699 75700 75701 75702 75703 75704 75705 75706 75707 75708 75709 75710 75711 75712 75713 75714 75715 75716 75717 75718 75719 75720 75721 75722 75723 75724 75725 75726 75727 75728 75729 75730 75731 75732 75733 75734 75735 75736 75737 75738 75739 75740 75741 75742 75743 75744 75745 75746 75747 75748 75749 75750 75751 75752 75753 75754 75755 75756 75757 75758 75759 75760 75761 75762 75763 75764 75765 75766 75767 75768 75769 75770 75771 75772 75773 75774 75775 75776 75777 75778 75779 75780 75781 75782 75783 75784 75785 75786 75787 75788 75789 75790 75791 75792 75793 75794 75795 75796 75797 75798 75799 75800 75801 75802 75803 75804 75805 75806 75807 75808 75809 75810 75811 75812 75813 75814 75815 75816 75817 75818 75819 75820 75821 75822 75823 75824 75825 75826 75827 75828 75829 75830 75831 75832 75833 75834 75835 75836 75837 75838 75839 75840 75841 75842 75843 75844 75845 75846 75847 75848 75849 75850 75851 75852 75853 75854 75855 75856 75857 75858 75859 75860 75861 75862 75863 75864 75865 75866 75867 75868 75869 75870 75871 75872 75873 75874 75875 75876 75877 75878 75879 75880 75881 75882 75883 75884 75885 75886 75887 75888 75889 75890 75891 75892 75893 75894 75895 75896 75897 75898 75899 75900 75901 75902 75903 75904 75905 75906 75907 75908 75909 75910 75911 75912 75913 75914 75915 75916 75917 75918 75919 75920 75921 75922 75923 75924 75925 75926 75927 75928 75929 75930 75931 75932 75933 75934 75935 75936 75937 75938 75939 75940 75941 75942 75943 75944 75945 75946 75947 75948 75949 75950 75951 75952 75953 75954 75955 75956 75957 75958 75959 75960 75961 75962 75963 75964 75965 75966 75967 75968 75969 75970 75971 75972 75973 75974 75975 75976 75977 75978 75979 75980 75981 75982 75983 75984 75985 75986 75987 75988 75989 75990 75991 75992 75993 75994 75995 75996 75997 75998 75999 76000 76001 76002 76003 76004 76005 76006 76007 76008 76009 76010 76011 76012 76013 76014 76015 76016 76017 76018 76019 76020 76021 76022 76023 76024 76025 76026 76027 76028 76029 76030 76031 76032 76033 76034 76035 76036 76037 76038 76039 76040 76041 76042 76043 76044 76045 76046 76047 76048 76049 76050 76051 76052 76053 76054 76055 76056 76057 76058 76059 76060 76061 76062 76063 76064 76065 76066 76067 76068 76069 76070 76071 76072 76073 76074 76075 76076 76077 76078 76079 76080 76081 76082 76083 76084 76085 76086 76087 76088 76089 76090 76091 76092 76093 76094 76095 76096 76097 76098 76099 76100 76101 76102 76103 76104 76105 76106 76107 76108 76109 76110 76111 76112 76113 76114 76115 76116 76117 76118 76119 76120 76121 76122 76123 76124 76125 76126 76127 76128 76129 76130 76131 76132 76133 76134 76135 76136 76137 76138 76139 76140 76141 76142 76143 76144 76145 76146 76147 76148 76149 76150 76151 76152 76153 76154 76155 76156 76157 76158 76159 76160 76161 76162 76163 76164 76165 76166 76167 76168 76169 76170 76171 76172 76173 76174 76175 76176 76177 76178 76179 76180 76181 76182 76183 76184 76185 76186 76187 76188 76189 76190 76191 76192 76193 76194 76195 76196 76197 76198 76199 76200 76201 76202 76203 76204 76205 76206 76207 76208 76209 76210 76211 76212 76213 76214 76215 76216 76217 76218 76219 76220 76221 76222 76223 76224 76225 76226 76227 76228 76229 76230 76231 76232 76233 76234 76235 76236 76237 76238 76239 76240 76241 76242 76243 76244 76245 76246 76247 76248 76249 76250 76251 76252 76253 76254 76255 76256 76257 76258 76259 76260 76261 76262 76263 76264 76265 76266 76267 76268 76269 76270 76271 76272 76273 76274 76275 76276 76277 76278 76279 76280 76281 76282 76283 76284 76285 76286 76287 76288 76289 76290 76291 76292 76293 76294 76295 76296 76297 76298 76299 76300 76301 76302 76303 76304 76305 76306 76307 76308 76309 76310 76311 76312 76313 76314 76315 76316 76317 76318 76319 76320 76321 76322 76323 76324 76325 76326 76327 76328 76329 76330 76331 76332 76333 76334 76335 76336 76337 76338 76339 76340 76341 76342 76343 76344 76345 76346 76347 76348 76349 76350 76351 76352 76353 76354 76355 76356 76357 76358 76359 76360 76361 76362 76363 76364 76365 76366 76367 76368 76369 76370 76371 76372 76373 76374 76375 76376 76377 76378 76379 76380 76381 76382 76383 76384 76385 76386 76387 76388 76389 76390 76391 76392 76393 76394 76395 76396 76397 76398 76399 76400 76401 76402 76403 76404 76405 76406 76407 76408 76409 76410 76411 76412 76413 76414 76415 76416 76417 76418 76419 76420 76421 76422 76423 76424 76425 76426 76427 76428 76429 76430 76431 76432 76433 76434 76435 76436 76437 76438 76439 76440 76441 76442 76443 76444 76445 76446 76447 76448 76449 76450 76451 76452 76453 76454 76455 76456 76457 76458 76459 76460 76461 76462 76463 76464 76465 76466 76467 76468 76469 76470 76471 76472 76473 76474 76475 76476 76477 76478 76479 76480 76481 76482 76483 76484 76485 76486 76487 76488 76489 76490 76491 76492 76493 76494 76495 76496 76497 76498 76499 76500 76501 76502 76503 76504 76505 76506 76507 76508 76509 76510 76511 76512 76513 76514 76515 76516 76517 76518 76519 76520 76521 76522 76523 76524 76525 76526 76527 76528 76529 76530 76531 76532 76533 76534 76535 76536 76537 76538 76539 76540 76541 76542 76543 76544 76545 76546 76547 76548 76549 76550 76551 76552 76553 76554 76555 76556 76557 76558 76559 76560 76561 76562 76563 76564 76565 76566 76567 76568 76569 76570 76571 76572 76573 76574 76575 76576 76577 76578 76579 76580 76581 76582 76583 76584 76585 76586 76587 76588 76589 76590 76591 76592 76593 76594 76595 76596 76597 76598 76599 76600 76601 76602 76603 76604 76605 76606 76607 76608 76609 76610 76611 76612 76613 76614 76615 76616 76617 76618 76619 76620 76621 76622 76623 76624 76625 76626 76627 76628 76629 76630 76631 76632 76633 76634 76635 76636 76637 76638 76639 76640 76641 76642 76643 76644 76645 76646 76647 76648 76649 76650 76651 76652 76653 76654 76655 76656 76657 76658 76659 76660 76661 76662 76663 76664 76665 76666 76667 76668 76669 76670 76671 76672 76673 76674 76675 76676 76677 76678 76679 76680 76681 76682 76683 76684 76685 76686 76687 76688 76689 76690 76691 76692 76693 76694 76695 76696 76697 76698 76699 76700 76701 76702 76703 76704 76705 76706 76707 76708 76709 76710 76711 76712 76713 76714 76715 76716 76717 76718 76719 76720 76721 76722 76723 76724 76725 76726 76727 76728 76729 76730 76731 76732 76733 76734 76735 76736 76737 76738 76739 76740 76741 76742 76743 76744 76745 76746 76747 76748 76749 76750 76751 76752 76753 76754 76755 76756 76757 76758 76759 76760 76761 76762 76763 76764 76765 76766 76767 76768 76769 76770 76771 76772 76773 76774 76775 76776 76777 76778 76779 76780 76781 76782 76783 76784 76785 76786 76787 76788 76789 76790 76791 76792 76793 76794 76795 76796 76797 76798 76799 76800 76801 76802 76803 76804 76805 76806 76807 76808 76809 76810 76811 76812 76813 76814 76815 76816 76817 76818 76819 76820 76821 76822 76823 76824 76825 76826 76827 76828 76829 76830 76831 76832 76833 76834 76835 76836 76837 76838 76839 76840 76841 76842 76843 76844 76845 76846 76847 76848 76849 76850 76851 76852 76853 76854 76855 76856 76857 76858 76859 76860 76861 76862 76863 76864 76865 76866 76867 76868 76869 76870 76871 76872 76873 76874 76875 76876 76877 76878 76879 76880 76881 76882 76883 76884 76885 76886 76887 76888 76889 76890 76891 76892 76893 76894 76895 76896 76897 76898 76899 76900 76901 76902 76903 76904 76905 76906 76907 76908 76909 76910 76911 76912 76913 76914 76915 76916 76917 76918 76919 76920 76921 76922 76923 76924 76925 76926 76927 76928 76929 76930 76931 76932 76933 76934 76935 76936 76937 76938 76939 76940 76941 76942 76943 76944 76945 76946 76947 76948 76949 76950 76951 76952 76953 76954 76955 76956 76957 76958 76959 76960 76961 76962 76963 76964 76965 76966 76967 76968 76969 76970 76971 76972 76973 76974 76975 76976 76977 76978 76979 76980 76981 76982 76983 76984 76985 76986 76987 76988 76989 76990 76991 76992 76993 76994 76995 76996 76997 76998 76999 77000 77001 77002 77003 77004 77005 77006 77007 77008 77009 77010 77011 77012 77013 77014 77015 77016 77017 77018 77019 77020 77021 77022 77023 77024 77025 77026 77027 77028 77029 77030 77031 77032 77033 77034 77035 77036 77037 77038 77039 77040 77041 77042 77043 77044 77045 77046 77047 77048 77049 77050 77051 77052 77053 77054 77055 77056 77057 77058 77059 77060 77061 77062 77063 77064 77065 77066 77067 77068 77069 77070 77071 77072 77073 77074 77075 77076 77077 77078 77079 77080 77081 77082 77083 77084 77085 77086 77087 77088 77089 77090 77091 77092 77093 77094 77095 77096 77097 77098 77099 77100 77101 77102 77103 77104 77105 77106 77107 77108 77109 77110 77111 77112 77113 77114 77115 77116 77117 77118 77119 77120 77121 77122 77123 77124 77125 77126 77127 77128 77129 77130 77131 77132 77133 77134 77135 77136 77137 77138 77139 77140 77141 77142 77143 77144 77145 77146 77147 77148 77149 77150 77151 77152 77153 77154 77155 77156 77157 77158 77159 77160 77161 77162 77163 77164 77165 77166 77167 77168 77169 77170 77171 77172 77173 77174 77175 77176 77177 77178 77179 77180 77181 77182 77183 77184 77185 77186 77187 77188 77189 77190 77191 77192 77193 77194 77195 77196 77197 77198 77199 77200 77201 77202 77203 77204 77205 77206 77207 77208 77209 77210 77211 77212 77213 77214 77215 77216 77217 77218 77219 77220 77221 77222 77223 77224 77225 77226 77227 77228 77229 77230 77231 77232 77233 77234 77235 77236 77237 77238 77239 77240 77241 77242 77243 77244 77245 77246 77247 77248 77249 77250 77251 77252 77253 77254 77255 77256 77257 77258 77259 77260 77261 77262 77263 77264 77265 77266 77267 77268 77269 77270 77271 77272 77273 77274 77275 77276 77277 77278 77279 77280 77281 77282 77283 77284 77285 77286 77287 77288 77289 77290 77291 77292 77293 77294 77295 77296 77297 77298 77299 77300 77301 77302 77303 77304 77305 77306 77307 77308 77309 77310 77311 77312 77313 77314 77315 77316 77317 77318 77319 77320 77321 77322 77323 77324 77325 77326 77327 77328 77329 77330 77331 77332 77333 77334 77335 77336 77337 77338 77339 77340 77341 77342 77343 77344 77345 77346 77347 77348 77349 77350 77351 77352 77353 77354 77355 77356 77357 77358 77359 77360 77361 77362 77363 77364 77365 77366 77367 77368 77369 77370 77371 77372 77373 77374 77375 77376 77377 77378 77379 77380 77381 77382 77383 77384 77385 77386 77387 77388 77389 77390 77391 77392 77393 77394 77395 77396 77397 77398 77399 77400 77401 77402 77403 77404 77405 77406 77407 77408 77409 77410 77411 77412 77413 77414 77415 77416 77417 77418 77419 77420 77421 77422 77423 77424 77425 77426 77427 77428 77429 77430 77431 77432 77433 77434 77435 77436 77437 77438 77439 77440 77441 77442 77443 77444 77445 77446 77447 77448 77449 77450 77451 77452 77453 77454 77455 77456 77457 77458 77459 77460 77461 77462 77463 77464 77465 77466 77467 77468 77469 77470 77471 77472 77473 77474 77475 77476 77477 77478 77479 77480 77481 77482 77483 77484 77485 77486 77487 77488 77489 77490 77491 77492 77493 77494 77495 77496 77497 77498 77499 77500 77501 77502 77503 77504 77505 77506 77507 77508 77509 77510 77511 77512 77513 77514 77515 77516 77517 77518 77519 77520 77521 77522 77523 77524 77525 77526 77527 77528 77529 77530 77531 77532 77533 77534 77535 77536 77537 77538 77539 77540 77541 77542 77543 77544 77545 77546 77547 77548 77549 77550 77551 77552 77553 77554 77555 77556 77557 77558 77559 77560 77561 77562 77563 77564 77565 77566 77567 77568 77569 77570 77571 77572 77573 77574 77575 77576 77577 77578 77579 77580 77581 77582 77583 77584 77585 77586 77587 77588 77589 77590 77591 77592 77593 77594 77595 77596 77597 77598 77599 77600 77601 77602 77603 77604 77605 77606 77607 77608 77609 77610 77611 77612 77613 77614 77615 77616 77617 77618 77619 77620 77621 77622 77623 77624 77625 77626 77627 77628 77629 77630 77631 77632 77633 77634 77635 77636 77637 77638 77639 77640 77641 77642 77643 77644 77645 77646 77647 77648 77649 77650 77651 77652 77653 77654 77655 77656 77657 77658 77659 77660 77661 77662 77663 77664 77665 77666 77667 77668 77669 77670 77671 77672 77673 77674 77675 77676 77677 77678 77679 77680 77681 77682 77683 77684 77685 77686 77687 77688 77689 77690 77691 77692 77693 77694 77695 77696 77697 77698 77699 77700 77701 77702 77703 77704 77705 77706 77707 77708 77709 77710 77711 77712 77713 77714 77715 77716 77717 77718 77719 77720 77721 77722 77723 77724 77725 77726 77727 77728 77729 77730 77731 77732 77733 77734 77735 77736 77737 77738 77739 77740 77741 77742 77743 77744 77745 77746 77747 77748 77749 77750 77751 77752 77753 77754 77755 77756 77757 77758 77759 77760 77761 77762 77763 77764 77765 77766 77767 77768 77769 77770 77771 77772 77773 77774 77775 77776 77777 77778 77779 77780 77781 77782 77783 77784 77785 77786 77787 77788 77789 77790 77791 77792 77793 77794 77795 77796 77797 77798 77799 77800 77801 77802 77803 77804 77805 77806 77807 77808 77809 77810 77811 77812 77813 77814 77815 77816 77817 77818 77819 77820 77821 77822 77823 77824 77825 77826 77827 77828 77829 77830 77831 77832 77833 77834 77835 77836 77837 77838 77839 77840 77841 77842 77843 77844 77845 77846 77847 77848 77849 77850 77851 77852 77853 77854 77855 77856 77857 77858 77859 77860 77861 77862 77863 77864 77865 77866 77867 77868 77869 77870 77871 77872 77873 77874 77875 77876 77877 77878 77879 77880 77881 77882 77883 77884 77885 77886 77887 77888 77889 77890 77891 77892 77893 77894 77895 77896 77897 77898 77899 77900 77901 77902 77903 77904 77905 77906 77907 77908 77909 77910 77911 77912 77913 77914 77915 77916 77917 77918 77919 77920 77921 77922 77923 77924 77925 77926 77927 77928 77929 77930 77931 77932 77933 77934 77935 77936 77937 77938 77939 77940 77941 77942 77943 77944 77945 77946 77947 77948 77949 77950 77951 77952 77953 77954 77955 77956 77957 77958 77959 77960 77961 77962 77963 77964 77965 77966 77967 77968 77969 77970 77971 77972 77973 77974 77975 77976 77977 77978 77979 77980 77981 77982 77983 77984 77985 77986 77987 77988 77989 77990 77991 77992 77993 77994 77995 77996 77997 77998 77999 78000 78001 78002 78003 78004 78005 78006 78007 78008 78009 78010 78011 78012 78013 78014 78015 78016 78017 78018 78019 78020 78021 78022 78023 78024 78025 78026 78027 78028 78029 78030 78031 78032 78033 78034 78035 78036 78037 78038 78039 78040 78041 78042 78043 78044 78045 78046 78047 78048 78049 78050 78051 78052 78053 78054 78055 78056 78057 78058 78059 78060 78061 78062 78063 78064 78065 78066 78067 78068 78069 78070 78071 78072 78073 78074 78075 78076 78077 78078 78079 78080 78081 78082 78083 78084 78085 78086 78087 78088 78089 78090 78091 78092 78093 78094 78095 78096 78097 78098 78099 78100 78101 78102 78103 78104 78105 78106 78107 78108 78109 78110 78111 78112 78113 78114 78115 78116 78117 78118 78119 78120 78121 78122 78123 78124 78125 78126 78127 78128 78129 78130 78131 78132 78133 78134 78135 78136 78137 78138 78139 78140 78141 78142 78143 78144 78145 78146 78147 78148 78149 78150 78151 78152 78153 78154 78155 78156 78157 78158 78159 78160 78161 78162 78163 78164 78165 78166 78167 78168 78169 78170 78171 78172 78173 78174 78175 78176 78177 78178 78179 78180 78181 78182 78183 78184 78185 78186 78187 78188 78189 78190 78191 78192 78193 78194 78195 78196 78197 78198 78199 78200 78201 78202 78203 78204 78205 78206 78207 78208 78209 78210 78211 78212 78213 78214 78215 78216 78217 78218 78219 78220 78221 78222 78223 78224 78225 78226 78227 78228 78229 78230 78231 78232 78233 78234 78235 78236 78237 78238 78239 78240 78241 78242 78243 78244 78245 78246 78247 78248 78249 78250 78251 78252 78253 78254 78255 78256 78257 78258 78259 78260 78261 78262 78263 78264 78265 78266 78267 78268 78269 78270 78271 78272 78273 78274 78275 78276 78277 78278 78279 78280 78281 78282 78283 78284 78285 78286 78287 78288 78289 78290 78291 78292 78293 78294 78295 78296 78297 78298 78299 78300 78301 78302 78303 78304 78305 78306 78307 78308 78309 78310 78311 78312 78313 78314 78315 78316 78317 78318 78319 78320 78321 78322 78323 78324 78325 78326 78327 78328 78329 78330 78331 78332 78333 78334 78335 78336 78337 78338 78339 78340 78341 78342 78343 78344 78345 78346 78347 78348 78349 78350 78351 78352 78353 78354 78355 78356 78357 78358 78359 78360 78361 78362 78363 78364 78365 78366 78367 78368 78369 78370 78371 78372 78373 78374 78375 78376 78377 78378 78379 78380 78381 78382 78383 78384 78385 78386 78387 78388 78389 78390 78391 78392 78393 78394 78395 78396 78397 78398 78399 78400 78401 78402 78403 78404 78405 78406 78407 78408 78409 78410 78411 78412 78413 78414 78415 78416 78417 78418 78419 78420 78421 78422 78423 78424 78425 78426 78427 78428 78429 78430 78431 78432 78433 78434 78435 78436 78437 78438 78439 78440 78441 78442 78443 78444 78445 78446 78447 78448 78449 78450 78451 78452 78453 78454 78455 78456 78457 78458 78459 78460 78461 78462 78463 78464 78465 78466 78467 78468 78469 78470 78471 78472 78473 78474 78475 78476 78477 78478 78479 78480 78481 78482 78483 78484 78485 78486 78487 78488 78489 78490 78491 78492 78493 78494 78495 78496 78497 78498 78499 78500 78501 78502 78503 78504 78505 78506 78507 78508 78509 78510 78511 78512 78513 78514 78515 78516 78517 78518 78519 78520 78521 78522 78523 78524 78525 78526 78527 78528 78529 78530 78531 78532 78533 78534 78535 78536 78537 78538 78539 78540 78541 78542 78543 78544 78545 78546 78547 78548 78549 78550 78551 78552 78553 78554 78555 78556 78557 78558 78559 78560 78561 78562 78563 78564 78565 78566 78567 78568 78569 78570 78571 78572 78573 78574 78575 78576 78577 78578 78579 78580 78581 78582 78583 78584 78585 78586 78587 78588 78589 78590 78591 78592 78593 78594 78595 78596 78597 78598 78599 78600 78601 78602 78603 78604 78605 78606 78607 78608 78609 78610 78611 78612 78613 78614 78615 78616 78617 78618 78619 78620 78621 78622 78623 78624 78625 78626 78627 78628 78629 78630 78631 78632 78633 78634 78635 78636 78637 78638 78639 78640 78641 78642 78643 78644 78645 78646 78647 78648 78649 78650 78651 78652 78653 78654 78655 78656 78657 78658 78659 78660 78661 78662 78663 78664 78665 78666 78667 78668 78669 78670 78671 78672 78673 78674 78675 78676 78677 78678 78679 78680 78681 78682 78683 78684 78685 78686 78687 78688 78689 78690 78691 78692 78693 78694 78695 78696 78697 78698 78699 78700 78701 78702 78703 78704 78705 78706 78707 78708 78709 78710 78711 78712 78713 78714 78715 78716 78717 78718 78719 78720 78721 78722 78723 78724 78725 78726 78727 78728 78729 78730 78731 78732 78733 78734 78735 78736 78737 78738 78739 78740 78741 78742 78743 78744 78745 78746 78747 78748 78749 78750 78751 78752 78753 78754 78755 78756 78757 78758 78759 78760 78761 78762 78763 78764 78765 78766 78767 78768 78769 78770 78771 78772 78773 78774 78775 78776 78777 78778 78779 78780 78781 78782 78783 78784 78785 78786 78787 78788 78789 78790 78791 78792 78793 78794 78795 78796 78797 78798 78799 78800 78801 78802 78803 78804 78805 78806 78807 78808 78809 78810 78811 78812 78813 78814 78815 78816 78817 78818 78819 78820 78821 78822 78823 78824 78825 78826 78827 78828 78829 78830 78831 78832 78833 78834 78835 78836 78837 78838 78839 78840 78841 78842 78843 78844 78845 78846 78847 78848 78849 78850 78851 78852 78853 78854 78855 78856 78857 78858 78859 78860 78861 78862 78863 78864 78865 78866 78867 78868 78869 78870 78871 78872 78873 78874 78875 78876 78877 78878 78879 78880 78881 78882 78883 78884 78885 78886 78887 78888 78889 78890 78891 78892 78893 78894 78895 78896 78897 78898 78899 78900 78901 78902 78903 78904 78905 78906 78907 78908 78909 78910 78911 78912 78913 78914 78915 78916 78917 78918 78919 78920 78921 78922 78923 78924 78925 78926 78927 78928 78929 78930 78931 78932 78933 78934 78935 78936 78937 78938 78939 78940 78941 78942 78943 78944 78945 78946 78947 78948 78949 78950 78951 78952 78953 78954 78955 78956 78957 78958 78959 78960 78961 78962 78963 78964 78965 78966 78967 78968 78969 78970 78971 78972 78973 78974 78975 78976 78977 78978 78979 78980 78981 78982 78983 78984 78985 78986 78987 78988 78989 78990 78991 78992 78993 78994 78995 78996 78997 78998 78999 79000 79001 79002 79003 79004 79005 79006 79007 79008 79009 79010 79011 79012 79013 79014 79015 79016 79017 79018 79019 79020 79021 79022 79023 79024 79025 79026 79027 79028 79029 79030 79031 79032 79033 79034 79035 79036 79037 79038 79039 79040 79041 79042 79043 79044 79045 79046 79047 79048 79049 79050 79051 79052 79053 79054 79055 79056 79057 79058 79059 79060 79061 79062 79063 79064 79065 79066 79067 79068 79069 79070 79071 79072 79073 79074 79075 79076 79077 79078 79079 79080 79081 79082 79083 79084 79085 79086 79087 79088 79089 79090 79091 79092 79093 79094 79095 79096 79097 79098 79099 79100 79101 79102 79103 79104 79105 79106 79107 79108 79109 79110 79111 79112 79113 79114 79115 79116 79117 79118 79119 79120 79121 79122 79123 79124 79125 79126 79127 79128 79129 79130 79131 79132 79133 79134 79135 79136 79137 79138 79139 79140 79141 79142 79143 79144 79145 79146 79147 79148 79149 79150 79151 79152 79153 79154 79155 79156 79157 79158 79159 79160 79161 79162 79163 79164 79165 79166 79167 79168 79169 79170 79171 79172 79173 79174 79175 79176 79177 79178 79179 79180 79181 79182 79183 79184 79185 79186 79187 79188 79189 79190 79191 79192 79193 79194 79195 79196 79197 79198 79199 79200 79201 79202 79203 79204 79205 79206 79207 79208 79209 79210 79211 79212 79213 79214 79215 79216 79217 79218 79219 79220 79221 79222 79223 79224 79225 79226 79227 79228 79229 79230 79231 79232 79233 79234 79235 79236 79237 79238 79239 79240 79241 79242 79243 79244 79245 79246 79247 79248 79249 79250 79251 79252 79253 79254 79255 79256 79257 79258 79259 79260 79261 79262 79263 79264 79265 79266 79267 79268 79269 79270 79271 79272 79273 79274 79275 79276 79277 79278 79279 79280 79281 79282 79283 79284 79285 79286 79287 79288 79289 79290 79291 79292 79293 79294 79295 79296 79297 79298 79299 79300 79301 79302 79303 79304 79305 79306 79307 79308 79309 79310 79311 79312 79313 79314 79315 79316 79317 79318 79319 79320 79321 79322 79323 79324 79325 79326 79327 79328 79329 79330 79331 79332 79333 79334 79335 79336 79337 79338 79339 79340 79341 79342 79343 79344 79345 79346 79347 79348 79349 79350 79351 79352 79353 79354 79355 79356 79357 79358 79359 79360 79361 79362 79363 79364 79365 79366 79367 79368 79369 79370 79371 79372 79373 79374 79375 79376 79377 79378 79379 79380 79381 79382 79383 79384 79385 79386 79387 79388 79389 79390 79391 79392 79393 79394 79395 79396 79397 79398 79399 79400 79401 79402 79403 79404 79405 79406 79407 79408 79409 79410 79411 79412 79413 79414 79415 79416 79417 79418 79419 79420 79421 79422 79423 79424 79425 79426 79427 79428 79429 79430 79431 79432 79433 79434 79435 79436 79437 79438 79439 79440 79441 79442 79443 79444 79445 79446 79447 79448 79449 79450 79451 79452 79453 79454 79455 79456 79457 79458 79459 79460 79461 79462 79463 79464 79465 79466 79467 79468 79469 79470 79471 79472 79473 79474 79475 79476 79477 79478 79479 79480 79481 79482 79483 79484 79485 79486 79487 79488 79489 79490 79491 79492 79493 79494 79495 79496 79497 79498 79499 79500 79501 79502 79503 79504 79505 79506 79507 79508 79509 79510 79511 79512 79513 79514 79515 79516 79517 79518 79519 79520 79521 79522 79523 79524 79525 79526 79527 79528 79529 79530 79531 79532 79533 79534 79535 79536 79537 79538 79539 79540 79541 79542 79543 79544 79545 79546 79547 79548 79549 79550 79551 79552 79553 79554 79555 79556 79557 79558 79559 79560 79561 79562 79563 79564 79565 79566 79567 79568 79569 79570 79571 79572 79573 79574 79575 79576 79577 79578 79579 79580 79581 79582 79583 79584 79585 79586 79587 79588 79589 79590 79591 79592 79593 79594 79595 79596 79597 79598 79599 79600 79601 79602 79603 79604 79605 79606 79607 79608 79609 79610 79611 79612 79613 79614 79615 79616 79617 79618 79619 79620 79621 79622 79623 79624 79625 79626 79627 79628 79629 79630 79631 79632 79633 79634 79635 79636 79637 79638 79639 79640 79641 79642 79643 79644 79645 79646 79647 79648 79649 79650 79651 79652 79653 79654 79655 79656 79657 79658 79659 79660 79661 79662 79663 79664 79665 79666 79667 79668 79669 79670 79671 79672 79673 79674 79675 79676 79677 79678 79679 79680 79681 79682 79683 79684 79685 79686 79687 79688 79689 79690 79691 79692 79693 79694 79695 79696 79697 79698 79699 79700 79701 79702 79703 79704 79705 79706 79707 79708 79709 79710 79711 79712 79713 79714 79715 79716 79717 79718 79719 79720 79721 79722 79723 79724 79725 79726 79727 79728 79729 79730 79731 79732 79733 79734 79735 79736 79737 79738 79739 79740 79741 79742 79743 79744 79745 79746 79747 79748 79749 79750 79751 79752 79753 79754 79755 79756 79757 79758 79759 79760 79761 79762 79763 79764 79765 79766 79767 79768 79769 79770 79771 79772 79773 79774 79775 79776 79777 79778 79779 79780 79781 79782 79783 79784 79785 79786 79787 79788 79789 79790 79791 79792 79793 79794 79795 79796 79797 79798 79799 79800 79801 79802 79803 79804 79805 79806 79807 79808 79809 79810 79811 79812 79813 79814 79815 79816 79817 79818 79819 79820 79821 79822 79823 79824 79825 79826 79827 79828 79829 79830 79831 79832 79833 79834 79835 79836 79837 79838 79839 79840 79841 79842 79843 79844 79845 79846 79847 79848 79849 79850 79851 79852 79853 79854 79855 79856 79857 79858 79859 79860 79861 79862 79863 79864 79865 79866 79867 79868 79869 79870 79871 79872 79873 79874 79875 79876 79877 79878 79879 79880 79881 79882 79883 79884 79885 79886 79887 79888 79889 79890 79891 79892 79893 79894 79895 79896 79897 79898 79899 79900 79901 79902 79903 79904 79905 79906 79907 79908 79909 79910 79911 79912 79913 79914 79915 79916 79917 79918 79919 79920 79921 79922 79923 79924 79925 79926 79927 79928 79929 79930 79931 79932 79933 79934 79935 79936 79937 79938 79939 79940 79941 79942 79943 79944 79945 79946 79947 79948 79949 79950 79951 79952 79953 79954 79955 79956 79957 79958 79959 79960 79961 79962 79963 79964 79965 79966 79967 79968 79969 79970 79971 79972 79973 79974 79975 79976 79977 79978 79979 79980 79981 79982 79983 79984 79985 79986 79987 79988 79989 79990 79991 79992 79993 79994 79995 79996 79997 79998 79999 80000 80001 80002 80003 80004 80005 80006 80007 80008 80009 80010 80011 80012 80013 80014 80015 80016 80017 80018 80019 80020 80021 80022 80023 80024 80025 80026 80027 80028 80029 80030 80031 80032 80033 80034 80035 80036 80037 80038 80039 80040 80041 80042 80043 80044 80045 80046 80047 80048 80049 80050 80051 80052 80053 80054 80055 80056 80057 80058 80059 80060 80061 80062 80063 80064 80065 80066 80067 80068 80069 80070 80071 80072 80073 80074 80075 80076 80077 80078 80079 80080 80081 80082 80083 80084 80085 80086 80087 80088 80089 80090 80091 80092 80093 80094 80095 80096 80097 80098 80099 80100 80101 80102 80103 80104 80105 80106 80107 80108 80109 80110 80111 80112 80113 80114 80115 80116 80117 80118 80119 80120 80121 80122 80123 80124 80125 80126 80127 80128 80129 80130 80131 80132 80133 80134 80135 80136 80137 80138 80139 80140 80141 80142 80143 80144 80145 80146 80147 80148 80149 80150 80151 80152 80153 80154 80155 80156 80157 80158 80159 80160 80161 80162 80163 80164 80165 80166 80167 80168 80169 80170 80171 80172 80173 80174 80175 80176 80177 80178 80179 80180 80181 80182 80183 80184 80185 80186 80187 80188 80189 80190 80191 80192 80193 80194 80195 80196 80197 80198 80199 80200 80201 80202 80203 80204 80205 80206 80207 80208 80209 80210 80211 80212 80213 80214 80215 80216 80217 80218 80219 80220 80221 80222 80223 80224 80225 80226 80227 80228 80229 80230 80231 80232 80233 80234 80235 80236 80237 80238 80239 80240 80241 80242 80243 80244 80245 80246 80247 80248 80249 80250 80251 80252 80253 80254 80255 80256 80257 80258 80259 80260 80261 80262 80263 80264 80265 80266 80267 80268 80269 80270 80271 80272 80273 80274 80275 80276 80277 80278 80279 80280 80281 80282 80283 80284 80285 80286 80287 80288 80289 80290 80291 80292 80293 80294 80295 80296 80297 80298 80299 80300 80301 80302 80303 80304 80305 80306 80307 80308 80309 80310 80311 80312 80313 80314 80315 80316 80317 80318 80319 80320 80321 80322 80323 80324 80325 80326 80327 80328 80329 80330 80331 80332 80333 80334 80335 80336 80337 80338 80339 80340 80341 80342 80343 80344 80345 80346 80347 80348 80349 80350 80351 80352 80353 80354 80355 80356 80357 80358 80359 80360 80361 80362 80363 80364 80365 80366 80367 80368 80369 80370 80371 80372 80373 80374 80375 80376 80377 80378 80379 80380 80381 80382 80383 80384 80385 80386 80387 80388 80389 80390 80391 80392 80393 80394 80395 80396 80397 80398 80399 80400 80401 80402 80403 80404 80405 80406 80407 80408 80409 80410 80411 80412 80413 80414 80415 80416 80417 80418 80419 80420 80421 80422 80423 80424 80425 80426 80427 80428 80429 80430 80431 80432 80433 80434 80435 80436 80437 80438 80439 80440 80441 80442 80443 80444 80445 80446 80447 80448 80449 80450 80451 80452 80453 80454 80455 80456 80457 80458 80459 80460 80461 80462 80463 80464 80465 80466 80467 80468 80469 80470 80471 80472 80473 80474 80475 80476 80477 80478 80479 80480 80481 80482 80483 80484 80485 80486 80487 80488 80489 80490 80491 80492 80493 80494 80495 80496 80497 80498 80499 80500 80501 80502 80503 80504 80505 80506 80507 80508 80509 80510 80511 80512 80513 80514 80515 80516 80517 80518 80519 80520 80521 80522 80523 80524 80525 80526 80527 80528 80529 80530 80531 80532 80533 80534 80535 80536 80537 80538 80539 80540 80541 80542 80543 80544 80545 80546 80547 80548 80549 80550 80551 80552 80553 80554 80555 80556 80557 80558 80559 80560 80561 80562 80563 80564 80565 80566 80567 80568 80569 80570 80571 80572 80573 80574 80575 80576 80577 80578 80579 80580 80581 80582 80583 80584 80585 80586 80587 80588 80589 80590 80591 80592 80593 80594 80595 80596 80597 80598 80599 80600 80601 80602 80603 80604 80605 80606 80607 80608 80609 80610 80611 80612 80613 80614 80615 80616 80617 80618 80619 80620 80621 80622 80623 80624 80625 80626 80627 80628 80629 80630 80631 80632 80633 80634 80635 80636 80637 80638 80639 80640 80641 80642 80643 80644 80645 80646 80647 80648 80649 80650 80651 80652 80653 80654 80655 80656 80657 80658 80659 80660 80661 80662 80663 80664 80665 80666 80667 80668 80669 80670 80671 80672 80673 80674 80675 80676 80677 80678 80679 80680 80681 80682 80683 80684 80685 80686 80687 80688 80689 80690 80691 80692 80693 80694 80695 80696 80697 80698 80699 80700 80701 80702 80703 80704 80705 80706 80707 80708 80709 80710 80711 80712 80713 80714 80715 80716 80717 80718 80719 80720 80721 80722 80723 80724 80725 80726 80727 80728 80729 80730 80731 80732 80733 80734 80735 80736 80737 80738 80739 80740 80741 80742 80743 80744 80745 80746 80747 80748 80749 80750 80751 80752 80753 80754 80755 80756 80757 80758 80759 80760 80761 80762 80763 80764 80765 80766 80767 80768 80769 80770 80771 80772 80773 80774 80775 80776 80777 80778 80779 80780 80781 80782 80783 80784 80785 80786 80787 80788 80789 80790 80791 80792 80793 80794 80795 80796 80797 80798 80799 80800 80801 80802 80803 80804 80805 80806 80807 80808 80809 80810 80811 80812 80813 80814 80815 80816 80817 80818 80819 80820 80821 80822 80823 80824 80825 80826 80827 80828 80829 80830 80831 80832 80833 80834 80835 80836 80837 80838 80839 80840 80841 80842 80843 80844 80845 80846 80847 80848 80849 80850 80851 80852 80853 80854 80855 80856 80857 80858 80859 80860 80861 80862 80863 80864 80865 80866 80867 80868 80869 80870 80871 80872 80873 80874 80875 80876 80877 80878 80879 80880 80881 80882 80883 80884 80885 80886 80887 80888 80889 80890 80891 80892 80893 80894 80895 80896 80897 80898 80899 80900 80901 80902 80903 80904 80905 80906 80907 80908 80909 80910 80911 80912 80913 80914 80915 80916 80917 80918 80919 80920 80921 80922 80923 80924 80925 80926 80927 80928 80929 80930 80931 80932 80933 80934 80935 80936 80937 80938 80939 80940 80941 80942 80943 80944 80945 80946 80947 80948 80949 80950 80951 80952 80953 80954 80955 80956 80957 80958 80959 80960 80961 80962 80963 80964 80965 80966 80967 80968 80969 80970 80971 80972 80973 80974 80975 80976 80977 80978 80979 80980 80981 80982 80983 80984 80985 80986 80987 80988 80989 80990 80991 80992 80993 80994 80995 80996 80997 80998 80999 81000 81001 81002 81003 81004 81005 81006 81007 81008 81009 81010 81011 81012 81013 81014 81015 81016 81017 81018 81019 81020 81021 81022 81023 81024 81025 81026 81027 81028 81029 81030 81031 81032 81033 81034 81035 81036 81037 81038 81039 81040 81041 81042 81043 81044 81045 81046 81047 81048 81049 81050 81051 81052 81053 81054 81055 81056 81057 81058 81059 81060 81061 81062 81063 81064 81065 81066 81067 81068 81069 81070 81071 81072 81073 81074 81075 81076 81077 81078 81079 81080 81081 81082 81083 81084 81085 81086 81087 81088 81089 81090 81091 81092 81093 81094 81095 81096 81097 81098 81099 81100 81101 81102 81103 81104 81105 81106 81107 81108 81109 81110 81111 81112 81113 81114 81115 81116 81117 81118 81119 81120 81121 81122 81123 81124 81125 81126 81127 81128 81129 81130 81131 81132 81133 81134 81135 81136 81137 81138 81139 81140 81141 81142 81143 81144 81145 81146 81147 81148 81149 81150 81151 81152 81153 81154 81155 81156 81157 81158 81159 81160 81161 81162 81163 81164 81165 81166 81167 81168 81169 81170 81171 81172 81173 81174 81175 81176 81177 81178 81179 81180 81181 81182 81183 81184 81185 81186 81187 81188 81189 81190 81191 81192 81193 81194 81195 81196 81197 81198 81199 81200 81201 81202 81203 81204 81205 81206 81207 81208 81209 81210 81211 81212 81213 81214 81215 81216 81217 81218 81219 81220 81221 81222 81223 81224 81225 81226 81227 81228 81229 81230 81231 81232 81233 81234 81235 81236 81237 81238 81239 81240 81241 81242 81243 81244 81245 81246 81247 81248 81249 81250 81251 81252 81253 81254 81255 81256 81257 81258 81259 81260 81261 81262 81263 81264 81265 81266 81267 81268 81269 81270 81271 81272 81273 81274 81275 81276 81277 81278 81279 81280 81281 81282 81283 81284 81285 81286 81287 81288 81289 81290 81291 81292 81293 81294 81295 81296 81297 81298 81299 81300 81301 81302 81303 81304 81305 81306 81307 81308 81309 81310 81311 81312 81313 81314 81315 81316 81317 81318 81319 81320 81321 81322 81323 81324 81325 81326 81327 81328 81329 81330 81331 81332 81333 81334 81335 81336 81337 81338 81339 81340 81341 81342 81343 81344 81345 81346 81347 81348 81349 81350 81351 81352 81353 81354 81355 81356 81357 81358 81359 81360 81361 81362 81363 81364 81365 81366 81367 81368 81369 81370 81371 81372 81373 81374 81375 81376 81377 81378 81379 81380 81381 81382 81383 81384 81385 81386 81387 81388 81389 81390 81391 81392 81393 81394 81395 81396 81397 81398 81399 81400 81401 81402 81403 81404 81405 81406 81407 81408 81409 81410 81411 81412 81413 81414 81415 81416 81417 81418 81419 81420 81421 81422 81423 81424 81425 81426 81427 81428 81429 81430 81431 81432 81433 81434 81435 81436 81437 81438 81439 81440 81441 81442 81443 81444 81445 81446 81447 81448 81449 81450 81451 81452 81453 81454 81455 81456 81457 81458 81459 81460 81461 81462 81463 81464 81465 81466 81467 81468 81469 81470 81471 81472 81473 81474 81475 81476 81477 81478 81479 81480 81481 81482 81483 81484 81485 81486 81487 81488 81489 81490 81491 81492 81493 81494 81495 81496 81497 81498 81499 81500 81501 81502 81503 81504 81505 81506 81507 81508 81509 81510 81511 81512 81513 81514 81515 81516 81517 81518 81519 81520 81521 81522 81523 81524 81525 81526 81527 81528 81529 81530 81531 81532 81533 81534 81535 81536 81537 81538 81539 81540 81541 81542 81543 81544 81545 81546 81547 81548 81549 81550 81551 81552 81553 81554 81555 81556 81557 81558 81559 81560 81561 81562 81563 81564 81565 81566 81567 81568 81569 81570 81571 81572 81573 81574 81575 81576 81577 81578 81579 81580 81581 81582 81583 81584 81585 81586 81587 81588 81589 81590 81591 81592 81593 81594 81595 81596 81597 81598 81599 81600 81601 81602 81603 81604 81605 81606 81607 81608 81609 81610 81611 81612 81613 81614 81615 81616 81617 81618 81619 81620 81621 81622 81623 81624 81625 81626 81627 81628 81629 81630 81631 81632 81633 81634 81635 81636 81637 81638 81639 81640 81641 81642 81643 81644 81645 81646 81647 81648 81649 81650 81651 81652 81653 81654 81655 81656 81657 81658 81659 81660 81661 81662 81663 81664 81665 81666 81667 81668 81669 81670 81671 81672 81673 81674 81675 81676 81677 81678 81679 81680 81681 81682 81683 81684 81685 81686 81687 81688 81689 81690 81691 81692 81693 81694 81695 81696 81697 81698 81699 81700 81701 81702 81703 81704 81705 81706 81707 81708 81709 81710 81711 81712 81713 81714 81715 81716 81717 81718 81719 81720 81721 81722 81723 81724 81725 81726 81727 81728 81729 81730 81731 81732 81733 81734 81735 81736 81737 81738 81739 81740 81741 81742 81743 81744 81745 81746 81747 81748 81749 81750 81751 81752 81753 81754 81755 81756 81757 81758 81759 81760 81761 81762 81763 81764 81765 81766 81767 81768 81769 81770 81771 81772 81773 81774 81775 81776 81777 81778 81779 81780 81781 81782 81783 81784 81785 81786 81787 81788 81789 81790 81791 81792 81793 81794 81795 81796 81797 81798 81799 81800 81801 81802 81803 81804 81805 81806 81807 81808 81809 81810 81811 81812 81813 81814 81815 81816 81817 81818 81819 81820 81821 81822 81823 81824 81825 81826 81827 81828 81829 81830 81831 81832 81833 81834 81835 81836 81837 81838 81839 81840 81841 81842 81843 81844 81845 81846 81847 81848 81849 81850 81851 81852 81853 81854 81855 81856 81857 81858 81859 81860 81861 81862 81863 81864 81865 81866 81867 81868 81869 81870 81871 81872 81873 81874 81875 81876 81877 81878 81879 81880 81881 81882 81883 81884 81885 81886 81887 81888 81889 81890 81891 81892 81893 81894 81895 81896 81897 81898 81899 81900 81901 81902 81903 81904 81905 81906 81907 81908 81909 81910 81911 81912 81913 81914 81915 81916 81917 81918 81919 81920 81921 81922 81923 81924 81925 81926 81927 81928 81929 81930 81931 81932 81933 81934 81935 81936 81937 81938 81939 81940 81941 81942 81943 81944 81945 81946 81947 81948 81949 81950 81951 81952 81953 81954 81955 81956 81957 81958 81959 81960 81961 81962 81963 81964 81965 81966 81967 81968 81969 81970 81971 81972 81973 81974 81975 81976 81977 81978 81979 81980 81981 81982 81983 81984 81985 81986 81987 81988 81989 81990 81991 81992 81993 81994 81995 81996 81997 81998 81999 82000 82001 82002 82003 82004 82005 82006 82007 82008 82009 82010 82011 82012 82013 82014 82015 82016 82017 82018 82019 82020 82021 82022 82023 82024 82025 82026 82027 82028 82029 82030 82031 82032 82033 82034 82035 82036 82037 82038 82039 82040 82041 82042 82043 82044 82045 82046 82047 82048 82049 82050 82051 82052 82053 82054 82055 82056 82057 82058 82059 82060 82061 82062 82063 82064 82065 82066 82067 82068 82069 82070 82071 82072 82073 82074 82075 82076 82077 82078 82079 82080 82081 82082 82083 82084 82085 82086 82087 82088 82089 82090 82091 82092 82093 82094 82095 82096 82097 82098 82099 82100 82101 82102 82103 82104 82105 82106 82107 82108 82109 82110 82111 82112 82113 82114 82115 82116 82117 82118 82119 82120 82121 82122 82123 82124 82125 82126 82127 82128 82129 82130 82131 82132 82133 82134 82135 82136 82137 82138 82139 82140 82141 82142 82143 82144 82145 82146 82147 82148 82149 82150 82151 82152 82153 82154 82155 82156 82157 82158 82159 82160 82161 82162 82163 82164 82165 82166 82167 82168 82169 82170 82171 82172 82173 82174 82175 82176 82177 82178 82179 82180 82181 82182 82183 82184 82185 82186 82187 82188 82189 82190 82191 82192 82193 82194 82195 82196 82197 82198 82199 82200 82201 82202 82203 82204 82205 82206 82207 82208 82209 82210 82211 82212 82213 82214 82215 82216 82217 82218 82219 82220 82221 82222 82223 82224 82225 82226 82227 82228 82229 82230 82231 82232 82233 82234 82235 82236 82237 82238 82239 82240 82241 82242 82243 82244 82245 82246 82247 82248 82249 82250 82251 82252 82253 82254 82255 82256 82257 82258 82259 82260 82261 82262 82263 82264 82265 82266 82267 82268 82269 82270 82271 82272 82273 82274 82275 82276 82277 82278 82279 82280 82281 82282 82283 82284 82285 82286 82287 82288 82289 82290 82291 82292 82293 82294 82295 82296 82297 82298 82299 82300 82301 82302 82303 82304 82305 82306 82307 82308 82309 82310 82311 82312 82313 82314 82315 82316 82317 82318 82319 82320 82321 82322 82323 82324 82325 82326 82327 82328 82329 82330 82331 82332 82333 82334 82335 82336 82337 82338 82339 82340 82341 82342 82343 82344 82345 82346 82347 82348 82349 82350 82351 82352 82353 82354 82355 82356 82357 82358 82359 82360 82361 82362 82363 82364 82365 82366 82367 82368 82369 82370 82371 82372 82373 82374 82375 82376 82377 82378 82379 82380 82381 82382 82383 82384 82385 82386 82387 82388 82389 82390 82391 82392 82393 82394 82395 82396 82397 82398 82399 82400 82401 82402 82403 82404 82405 82406 82407 82408 82409 82410 82411 82412 82413 82414 82415 82416 82417 82418 82419 82420 82421 82422 82423 82424 82425 82426 82427 82428 82429 82430 82431 82432 82433 82434 82435 82436 82437 82438 82439 82440 82441 82442 82443 82444 82445 82446 82447 82448 82449 82450 82451 82452 82453 82454 82455 82456 82457 82458 82459 82460 82461 82462 82463 82464 82465 82466 82467 82468 82469 82470 82471 82472 82473 82474 82475 82476 82477 82478 82479 82480 82481 82482 82483 82484 82485 82486 82487 82488 82489 82490 82491 82492 82493 82494 82495 82496 82497 82498 82499 82500 82501 82502 82503 82504 82505 82506 82507 82508 82509 82510 82511 82512 82513 82514 82515 82516 82517 82518 82519 82520 82521 82522 82523 82524 82525 82526 82527 82528 82529 82530 82531 82532 82533 82534 82535 82536 82537 82538 82539 82540 82541 82542 82543 82544 82545 82546 82547 82548 82549 82550 82551 82552 82553 82554 82555 82556 82557 82558 82559 82560 82561 82562 82563 82564 82565 82566 82567 82568 82569 82570 82571 82572 82573 82574 82575 82576 82577 82578 82579 82580 82581 82582 82583 82584 82585 82586 82587 82588 82589 82590 82591 82592 82593 82594 82595 82596 82597 82598 82599 82600 82601 82602 82603 82604 82605 82606 82607 82608 82609 82610 82611 82612 82613 82614 82615 82616 82617 82618 82619 82620 82621 82622 82623 82624 82625 82626 82627 82628 82629 82630 82631 82632 82633 82634 82635 82636 82637 82638 82639 82640 82641 82642 82643 82644 82645 82646 82647 82648 82649 82650 82651 82652 82653 82654 82655 82656 82657 82658 82659 82660 82661 82662 82663 82664 82665 82666 82667 82668 82669 82670 82671 82672 82673 82674 82675 82676 82677 82678 82679 82680 82681 82682 82683 82684 82685 82686 82687 82688 82689 82690 82691 82692 82693 82694 82695 82696 82697 82698 82699 82700 82701 82702 82703 82704 82705 82706 82707 82708 82709 82710 82711 82712 82713 82714 82715 82716 82717 82718 82719 82720 82721 82722 82723 82724 82725 82726 82727 82728 82729 82730 82731 82732 82733 82734 82735 82736 82737 82738 82739 82740 82741 82742 82743 82744 82745 82746 82747 82748 82749 82750 82751 82752 82753 82754 82755 82756 82757 82758 82759 82760 82761 82762 82763 82764 82765 82766 82767 82768 82769 82770 82771 82772 82773 82774 82775 82776 82777 82778 82779 82780 82781 82782 82783 82784 82785 82786 82787 82788 82789 82790 82791 82792 82793 82794 82795 82796 82797 82798 82799 82800 82801 82802 82803 82804 82805 82806 82807 82808 82809 82810 82811 82812 82813 82814 82815 82816 82817 82818 82819 82820 82821 82822 82823 82824 82825 82826 82827 82828 82829 82830 82831 82832 82833 82834 82835 82836 82837 82838 82839 82840 82841 82842 82843 82844 82845 82846 82847 82848 82849 82850 82851 82852 82853 82854 82855 82856 82857 82858 82859 82860 82861 82862 82863 82864 82865 82866 82867 82868 82869 82870 82871 82872 82873 82874 82875 82876 82877 82878 82879 82880 82881 82882 82883 82884 82885 82886 82887 82888 82889 82890 82891 82892 82893 82894 82895 82896 82897 82898 82899 82900 82901 82902 82903 82904 82905 82906 82907 82908 82909 82910 82911 82912 82913 82914 82915 82916 82917 82918 82919 82920 82921 82922 82923 82924 82925 82926 82927 82928 82929 82930 82931 82932 82933 82934 82935 82936 82937 82938 82939 82940 82941 82942 82943 82944 82945 82946 82947 82948 82949 82950 82951 82952 82953 82954 82955 82956 82957 82958 82959 82960 82961 82962 82963 82964 82965 82966 82967 82968 82969 82970 82971 82972 82973 82974 82975 82976 82977 82978 82979 82980 82981 82982 82983 82984 82985 82986 82987 82988 82989 82990 82991 82992 82993 82994 82995 82996 82997 82998 82999 83000 83001 83002 83003 83004 83005 83006 83007 83008 83009 83010 83011 83012 83013 83014 83015 83016 83017 83018 83019 83020 83021 83022 83023 83024 83025 83026 83027 83028 83029 83030 83031 83032 83033 83034 83035 83036 83037 83038 83039 83040 83041 83042 83043 83044 83045 83046 83047 83048 83049 83050 83051 83052 83053 83054 83055 83056 83057 83058 83059 83060 83061 83062 83063 83064 83065 83066 83067 83068 83069 83070 83071 83072 83073 83074 83075 83076 83077 83078 83079 83080 83081 83082 83083 83084 83085 83086 83087 83088 83089 83090 83091 83092 83093 83094 83095 83096 83097 83098 83099 83100 83101 83102 83103 83104 83105 83106 83107 83108 83109 83110 83111 83112 83113 83114 83115 83116 83117 83118 83119 83120 83121 83122 83123 83124 83125 83126 83127 83128 83129 83130 83131 83132 83133 83134 83135 83136 83137 83138 83139 83140 83141 83142 83143 83144 83145 83146 83147 83148 83149 83150 83151 83152 83153 83154 83155 83156 83157 83158 83159 83160 83161 83162 83163 83164 83165 83166 83167 83168 83169 83170 83171 83172 83173 83174 83175 83176 83177 83178 83179 83180 83181 83182 83183 83184 83185 83186 83187 83188 83189 83190 83191 83192 83193 83194 83195 83196 83197 83198 83199 83200 83201 83202 83203 83204 83205 83206 83207 83208 83209 83210 83211 83212 83213 83214 83215 83216 83217 83218 83219 83220 83221 83222 83223 83224 83225 83226 83227 83228 83229 83230 83231 83232 83233 83234 83235 83236 83237 83238 83239 83240 83241 83242 83243 83244 83245 83246 83247 83248 83249 83250 83251 83252 83253 83254 83255 83256 83257 83258 83259 83260 83261 83262 83263 83264 83265 83266 83267 83268 83269 83270 83271 83272 83273 83274 83275 83276 83277 83278 83279 83280 83281 83282 83283 83284 83285 83286 83287 83288 83289 83290 83291 83292 83293 83294 83295 83296 83297 83298 83299 83300 83301 83302 83303 83304 83305 83306 83307 83308 83309 83310 83311 83312 83313 83314 83315 83316 83317 83318 83319 83320 83321 83322 83323 83324 83325 83326 83327 83328 83329 83330 83331 83332 83333 83334 83335 83336 83337 83338 83339 83340 83341 83342 83343 83344 83345 83346 83347 83348 83349 83350 83351 83352 83353 83354 83355 83356 83357 83358 83359 83360 83361 83362 83363 83364 83365 83366 83367 83368 83369 83370 83371 83372 83373 83374 83375 83376 83377 83378 83379 83380 83381 83382 83383 83384 83385 83386 83387 83388 83389 83390 83391 83392 83393 83394 83395 83396 83397 83398 83399 83400 83401 83402 83403 83404 83405 83406 83407 83408 83409 83410 83411 83412 83413 83414 83415 83416 83417 83418 83419 83420 83421 83422 83423 83424 83425 83426 83427 83428 83429 83430 83431 83432 83433 83434 83435 83436 83437 83438 83439 83440 83441 83442 83443 83444 83445 83446 83447 83448 83449 83450 83451 83452 83453 83454 83455 83456 83457 83458 83459 83460 83461 83462 83463 83464 83465 83466 83467 83468 83469 83470 83471 83472 83473 83474 83475 83476 83477 83478 83479 83480 83481 83482 83483 83484 83485 83486 83487 83488 83489 83490 83491 83492 83493 83494 83495 83496 83497 83498 83499 83500 83501 83502 83503 83504 83505 83506 83507 83508 83509 83510 83511 83512 83513 83514 83515 83516 83517 83518 83519 83520 83521 83522 83523 83524 83525 83526 83527 83528 83529 83530 83531 83532 83533 83534 83535 83536 83537 83538 83539 83540 83541 83542 83543 83544 83545 83546 83547 83548 83549 83550 83551 83552 83553 83554 83555 83556 83557 83558 83559 83560 83561 83562 83563 83564 83565 83566 83567 83568 83569 83570 83571 83572 83573 83574 83575 83576 83577 83578 83579 83580 83581 83582 83583 83584 83585 83586 83587 83588 83589 83590 83591 83592 83593 83594 83595 83596 83597 83598 83599 83600 83601 83602 83603 83604 83605 83606 83607 83608 83609 83610 83611 83612 83613 83614 83615 83616 83617 83618 83619 83620 83621 83622 83623 83624 83625 83626 83627 83628 83629 83630 83631 83632 83633 83634 83635 83636 83637 83638 83639 83640 83641 83642 83643 83644 83645 83646 83647 83648 83649 83650 83651 83652 83653 83654 83655 83656 83657 83658 83659 83660 83661 83662 83663 83664 83665 83666 83667 83668 83669 83670 83671 83672 83673 83674 83675 83676 83677 83678 83679 83680 83681 83682 83683 83684 83685 83686 83687 83688 83689 83690 83691 83692 83693 83694 83695 83696 83697 83698 83699 83700 83701 83702 83703 83704 83705 83706 83707 83708 83709 83710 83711 83712 83713 83714 83715 83716 83717 83718 83719 83720 83721 83722 83723 83724 83725 83726 83727 83728 83729 83730 83731 83732 83733 83734 83735 83736 83737 83738 83739 83740 83741 83742 83743 83744 83745 83746 83747 83748 83749 83750 83751 83752 83753 83754 83755 83756 83757 83758 83759 83760 83761 83762 83763 83764 83765 83766 83767 83768 83769 83770 83771 83772 83773 83774 83775 83776 83777 83778 83779 83780 83781 83782 83783 83784 83785 83786 83787 83788 83789 83790 83791 83792 83793 83794 83795 83796 83797 83798 83799 83800 83801 83802 83803 83804 83805 83806 83807 83808 83809 83810 83811 83812 83813 83814 83815 83816 83817 83818 83819 83820 83821 83822 83823 83824 83825 83826 83827 83828 83829 83830 83831 83832 83833 83834 83835 83836 83837 83838 83839 83840 83841 83842 83843 83844 83845 83846 83847 83848 83849 83850 83851 83852 83853 83854 83855 83856 83857 83858 83859 83860 83861 83862 83863 83864 83865 83866 83867 83868 83869 83870 83871 83872 83873 83874 83875 83876 83877 83878 83879 83880 83881 83882 83883 83884 83885 83886 83887 83888 83889 83890 83891 83892 83893 83894 83895 83896 83897 83898 83899 83900 83901 83902 83903 83904 83905 83906 83907 83908 83909 83910 83911 83912 83913 83914 83915 83916 83917 83918 83919 83920 83921 83922 83923 83924 83925 83926 83927 83928 83929 83930 83931 83932 83933 83934 83935 83936 83937 83938 83939 83940 83941 83942 83943 83944 83945 83946 83947 83948 83949 83950 83951 83952 83953 83954 83955 83956 83957 83958 83959 83960 83961 83962 83963 83964 83965 83966 83967 83968 83969 83970 83971 83972 83973 83974 83975 83976 83977 83978 83979 83980 83981 83982 83983 83984 83985 83986 83987 83988 83989 83990 83991 83992 83993 83994 83995 83996 83997 83998 83999 84000 84001 84002 84003 84004 84005 84006 84007 84008 84009 84010 84011 84012 84013 84014 84015 84016 84017 84018 84019 84020 84021 84022 84023 84024 84025 84026 84027 84028 84029 84030 84031 84032 84033 84034 84035 84036 84037 84038 84039 84040 84041 84042 84043 84044 84045 84046 84047 84048 84049 84050 84051 84052 84053 84054 84055 84056 84057 84058 84059 84060 84061 84062 84063 84064 84065 84066 84067 84068 84069 84070 84071 84072 84073 84074 84075 84076 84077 84078 84079 84080 84081 84082 84083 84084 84085 84086 84087 84088 84089 84090 84091 84092 84093 84094 84095 84096 84097 84098 84099 84100 84101 84102 84103 84104 84105 84106 84107 84108 84109 84110 84111 84112 84113 84114 84115 84116 84117 84118 84119 84120 84121 84122 84123 84124 84125 84126 84127 84128 84129 84130 84131 84132 84133 84134 84135 84136 84137 84138 84139 84140 84141 84142 84143 84144 84145 84146 84147 84148 84149 84150 84151 84152 84153 84154 84155 84156 84157 84158 84159 84160 84161 84162 84163 84164 84165 84166 84167 84168 84169 84170 84171 84172 84173 84174 84175 84176 84177 84178 84179 84180 84181 84182 84183 84184 84185 84186 84187 84188 84189 84190 84191 84192 84193 84194 84195 84196 84197 84198 84199 84200 84201 84202 84203 84204 84205 84206 84207 84208 84209 84210 84211 84212 84213 84214 84215 84216 84217 84218 84219 84220 84221 84222 84223 84224 84225 84226 84227 84228 84229 84230 84231 84232 84233 84234 84235 84236 84237 84238 84239 84240 84241 84242 84243 84244 84245 84246 84247 84248 84249 84250 84251 84252 84253 84254 84255 84256 84257 84258 84259 84260 84261 84262 84263 84264 84265 84266 84267 84268 84269 84270 84271 84272 84273 84274 84275 84276 84277 84278 84279 84280 84281 84282 84283 84284 84285 84286 84287 84288 84289 84290 84291 84292 84293 84294 84295 84296 84297 84298 84299 84300 84301 84302 84303 84304 84305 84306 84307 84308 84309 84310 84311 84312 84313 84314 84315 84316 84317 84318 84319 84320 84321 84322 84323 84324 84325 84326 84327 84328 84329 84330 84331 84332 84333 84334 84335 84336 84337 84338 84339 84340 84341 84342 84343 84344 84345 84346 84347 84348 84349 84350 84351 84352 84353 84354 84355 84356 84357 84358 84359 84360 84361 84362 84363 84364 84365 84366 84367 84368 84369 84370 84371 84372 84373 84374 84375 84376 84377 84378 84379 84380 84381 84382 84383 84384 84385 84386 84387 84388 84389 84390 84391 84392 84393 84394 84395 84396 84397 84398 84399 84400 84401 84402 84403 84404 84405 84406 84407 84408 84409 84410 84411 84412 84413 84414 84415 84416 84417 84418 84419 84420 84421 84422 84423 84424 84425 84426 84427 84428 84429 84430 84431 84432 84433 84434 84435 84436 84437 84438 84439 84440 84441 84442 84443 84444 84445 84446 84447 84448 84449 84450 84451 84452 84453 84454 84455 84456 84457 84458 84459 84460 84461 84462 84463 84464 84465 84466 84467 84468 84469 84470 84471 84472 84473 84474 84475 84476 84477 84478 84479 84480 84481 84482 84483 84484 84485 84486 84487 84488 84489 84490 84491 84492 84493 84494 84495 84496 84497 84498 84499 84500 84501 84502 84503 84504 84505 84506 84507 84508 84509 84510 84511 84512 84513 84514 84515 84516 84517 84518 84519 84520 84521 84522 84523 84524 84525 84526 84527 84528 84529 84530 84531 84532 84533 84534 84535 84536 84537 84538 84539 84540 84541 84542 84543 84544 84545 84546 84547 84548 84549 84550 84551 84552 84553 84554 84555 84556 84557 84558 84559 84560 84561 84562 84563 84564 84565 84566 84567 84568 84569 84570 84571 84572 84573 84574 84575 84576 84577 84578 84579 84580 84581 84582 84583 84584 84585 84586 84587 84588 84589 84590 84591 84592 84593 84594 84595 84596 84597 84598 84599 84600 84601 84602 84603 84604 84605 84606 84607 84608 84609 84610 84611 84612 84613 84614 84615 84616 84617 84618 84619 84620 84621 84622 84623 84624 84625 84626 84627 84628 84629 84630 84631 84632 84633 84634 84635 84636 84637 84638 84639 84640 84641 84642 84643 84644 84645 84646 84647 84648 84649 84650 84651 84652 84653 84654 84655 84656 84657 84658 84659 84660 84661 84662 84663 84664 84665 84666 84667 84668 84669 84670 84671 84672 84673 84674 84675 84676 84677 84678 84679 84680 84681 84682 84683 84684 84685 84686 84687 84688 84689 84690 84691 84692 84693 84694 84695 84696 84697 84698 84699 84700 84701 84702 84703 84704 84705 84706 84707 84708 84709 84710 84711 84712 84713 84714 84715 84716 84717 84718 84719 84720 84721 84722 84723 84724 84725 84726 84727 84728 84729 84730 84731 84732 84733 84734 84735 84736 84737 84738 84739 84740 84741 84742 84743 84744 84745 84746 84747 84748 84749 84750 84751 84752 84753 84754 84755 84756 84757 84758 84759 84760 84761 84762 84763 84764 84765 84766 84767 84768 84769 84770 84771 84772 84773 84774 84775 84776 84777 84778 84779 84780 84781 84782 84783 84784 84785 84786 84787 84788 84789 84790 84791 84792 84793 84794 84795 84796 84797 84798 84799 84800 84801 84802 84803 84804 84805 84806 84807 84808 84809 84810 84811 84812 84813 84814 84815 84816 84817 84818 84819 84820 84821 84822 84823 84824 84825 84826 84827 84828 84829 84830 84831 84832 84833 84834 84835 84836 84837 84838 84839 84840 84841 84842 84843 84844 84845 84846 84847 84848 84849 84850 84851 84852 84853 84854 84855 84856 84857 84858 84859 84860 84861 84862 84863 84864 84865 84866 84867 84868 84869 84870 84871 84872 84873 84874 84875 84876 84877 84878 84879 84880 84881 84882 84883 84884 84885 84886 84887 84888 84889 84890 84891 84892 84893 84894 84895 84896 84897 84898 84899 84900 84901 84902 84903 84904 84905 84906 84907 84908 84909 84910 84911 84912 84913 84914 84915 84916 84917 84918 84919 84920 84921 84922 84923 84924 84925 84926 84927 84928 84929 84930 84931 84932 84933 84934 84935 84936 84937 84938 84939 84940 84941 84942 84943 84944 84945 84946 84947 84948 84949 84950 84951 84952 84953 84954 84955 84956 84957 84958 84959 84960 84961 84962 84963 84964 84965 84966 84967 84968 84969 84970 84971 84972 84973 84974 84975 84976 84977 84978 84979 84980 84981 84982 84983 84984 84985 84986 84987 84988 84989 84990 84991 84992 84993 84994 84995 84996 84997 84998 84999 85000 85001 85002 85003 85004 85005 85006 85007 85008 85009 85010 85011 85012 85013 85014 85015 85016 85017 85018 85019 85020 85021 85022 85023 85024 85025 85026 85027 85028 85029 85030 85031 85032 85033 85034 85035 85036 85037 85038 85039 85040 85041 85042 85043 85044 85045 85046 85047 85048 85049 85050 85051 85052 85053 85054 85055 85056 85057 85058 85059 85060 85061 85062 85063 85064 85065 85066 85067 85068 85069 85070 85071 85072 85073 85074 85075 85076 85077 85078 85079 85080 85081 85082 85083 85084 85085 85086 85087 85088 85089 85090 85091 85092 85093 85094 85095 85096 85097 85098 85099 85100 85101 85102 85103 85104 85105 85106 85107 85108 85109 85110 85111 85112 85113 85114 85115 85116 85117 85118 85119 85120 85121 85122 85123 85124 85125 85126 85127 85128 85129 85130 85131 85132 85133 85134 85135 85136 85137 85138 85139 85140 85141 85142 85143 85144 85145 85146 85147 85148 85149 85150 85151 85152 85153 85154 85155 85156 85157 85158 85159 85160 85161 85162 85163 85164 85165 85166 85167 85168 85169 85170 85171 85172 85173 85174 85175 85176 85177 85178 85179 85180 85181 85182 85183 85184 85185 85186 85187 85188 85189 85190 85191 85192 85193 85194 85195 85196 85197 85198 85199 85200 85201 85202 85203 85204 85205 85206 85207 85208 85209 85210 85211 85212 85213 85214 85215 85216 85217 85218 85219 85220 85221 85222 85223 85224 85225 85226 85227 85228 85229 85230 85231 85232 85233 85234 85235 85236 85237 85238 85239 85240 85241 85242 85243 85244 85245 85246 85247 85248 85249 85250 85251 85252 85253 85254 85255 85256 85257 85258 85259 85260 85261 85262 85263 85264 85265 85266 85267 85268 85269 85270 85271 85272 85273 85274 85275 85276 85277 85278 85279 85280 85281 85282 85283 85284 85285 85286 85287 85288 85289 85290 85291 85292 85293 85294 85295 85296 85297 85298 85299 85300 85301 85302 85303 85304 85305 85306 85307 85308 85309 85310 85311 85312 85313 85314 85315 85316 85317 85318 85319 85320 85321 85322 85323 85324 85325 85326 85327 85328 85329 85330 85331 85332 85333 85334 85335 85336 85337 85338 85339 85340 85341 85342 85343 85344 85345 85346 85347 85348 85349 85350 85351 85352 85353 85354 85355 85356 85357 85358 85359 85360 85361 85362 85363 85364 85365 85366 85367 85368 85369 85370 85371 85372 85373 85374 85375 85376 85377 85378 85379 85380 85381 85382 85383 85384 85385 85386 85387 85388 85389 85390 85391 85392 85393 85394 85395 85396 85397 85398 85399 85400 85401 85402 85403 85404 85405 85406 85407 85408 85409 85410 85411 85412 85413 85414 85415 85416 85417 85418 85419 85420 85421 85422 85423 85424 85425 85426 85427 85428 85429 85430 85431 85432 85433 85434 85435 85436 85437 85438 85439 85440 85441 85442 85443 85444 85445 85446 85447 85448 85449 85450 85451 85452 85453 85454 85455 85456 85457 85458 85459 85460 85461 85462 85463 85464 85465 85466 85467 85468 85469 85470 85471 85472 85473 85474 85475 85476 85477 85478 85479 85480 85481 85482 85483 85484 85485 85486 85487 85488 85489 85490 85491 85492 85493 85494 85495 85496 85497 85498 85499 85500 85501 85502 85503 85504 85505 85506 85507 85508 85509 85510 85511 85512 85513 85514 85515 85516 85517 85518 85519 85520 85521 85522 85523 85524 85525 85526 85527 85528 85529 85530 85531 85532 85533 85534 85535 85536 85537 85538 85539 85540 85541 85542 85543 85544 85545 85546 85547 85548 85549 85550 85551 85552 85553 85554 85555 85556 85557 85558 85559 85560 85561 85562 85563 85564 85565 85566 85567 85568 85569 85570 85571 85572 85573 85574 85575 85576 85577 85578 85579 85580 85581 85582 85583 85584 85585 85586 85587 85588 85589 85590 85591 85592 85593 85594 85595 85596 85597 85598 85599 85600 85601 85602 85603 85604 85605 85606 85607 85608 85609 85610 85611 85612 85613 85614 85615 85616 85617 85618 85619 85620 85621 85622 85623 85624 85625 85626 85627 85628 85629 85630 85631 85632 85633 85634 85635 85636 85637 85638 85639 85640 85641 85642 85643 85644 85645 85646 85647 85648 85649 85650 85651 85652 85653 85654 85655 85656 85657 85658 85659 85660 85661 85662 85663 85664 85665 85666 85667 85668 85669 85670 85671 85672 85673 85674 85675 85676 85677 85678 85679 85680 85681 85682 85683 85684 85685 85686 85687 85688 85689 85690 85691 85692 85693 85694 85695 85696 85697 85698 85699 85700 85701 85702 85703 85704 85705 85706 85707 85708 85709 85710 85711 85712 85713 85714 85715 85716 85717 85718 85719 85720 85721 85722 85723 85724 85725 85726 85727 85728 85729 85730 85731 85732 85733 85734 85735 85736 85737 85738 85739 85740 85741 85742 85743 85744 85745 85746 85747 85748 85749 85750 85751 85752 85753 85754 85755 85756 85757 85758 85759 85760 85761 85762 85763 85764 85765 85766 85767 85768 85769 85770 85771 85772 85773 85774 85775 85776 85777 85778 85779 85780 85781 85782 85783 85784 85785 85786 85787 85788 85789 85790 85791 85792 85793 85794 85795 85796 85797 85798 85799 85800 85801 85802 85803 85804 85805 85806 85807 85808 85809 85810 85811 85812 85813 85814 85815 85816 85817 85818 85819 85820 85821 85822 85823 85824 85825 85826 85827 85828 85829 85830 85831 85832 85833 85834 85835 85836 85837 85838 85839 85840 85841 85842 85843 85844 85845 85846 85847 85848 85849 85850 85851 85852 85853 85854 85855 85856 85857 85858 85859 85860 85861 85862 85863 85864 85865 85866 85867 85868 85869 85870 85871 85872 85873 85874 85875 85876 85877 85878 85879 85880 85881 85882 85883 85884 85885 85886 85887 85888 85889 85890 85891 85892 85893 85894 85895 85896 85897 85898 85899 85900 85901 85902 85903 85904 85905 85906 85907 85908 85909 85910 85911 85912 85913 85914 85915 85916 85917 85918 85919 85920 85921 85922 85923 85924 85925 85926 85927 85928 85929 85930 85931 85932 85933 85934 85935 85936 85937 85938 85939 85940 85941 85942 85943 85944 85945 85946 85947 85948 85949 85950 85951 85952 85953 85954 85955 85956 85957 85958 85959 85960 85961 85962 85963 85964 85965 85966 85967 85968 85969 85970 85971 85972 85973 85974 85975 85976 85977 85978 85979 85980 85981 85982 85983 85984 85985 85986 85987 85988 85989 85990 85991 85992 85993 85994 85995 85996 85997 85998 85999 86000 86001 86002 86003 86004 86005 86006 86007 86008 86009 86010 86011 86012 86013 86014 86015 86016 86017 86018 86019 86020 86021 86022 86023 86024 86025 86026 86027 86028 86029 86030 86031 86032 86033 86034 86035 86036 86037 86038 86039 86040 86041 86042 86043 86044 86045 86046 86047 86048 86049 86050 86051 86052 86053 86054 86055 86056 86057 86058 86059 86060 86061 86062 86063 86064 86065 86066 86067 86068 86069 86070 86071 86072 86073 86074 86075 86076 86077 86078 86079 86080 86081 86082 86083 86084 86085 86086 86087 86088 86089 86090 86091 86092 86093 86094 86095 86096 86097 86098 86099 86100 86101 86102 86103 86104 86105 86106 86107 86108 86109 86110 86111 86112 86113 86114 86115 86116 86117 86118 86119 86120 86121 86122 86123 86124 86125 86126 86127 86128 86129 86130 86131 86132 86133 86134 86135 86136 86137 86138 86139 86140 86141 86142 86143 86144 86145 86146 86147 86148 86149 86150 86151 86152 86153 86154 86155 86156 86157 86158 86159 86160 86161 86162 86163 86164 86165 86166 86167 86168 86169 86170 86171 86172 86173 86174 86175 86176 86177 86178 86179 86180 86181 86182 86183 86184 86185 86186 86187 86188 86189 86190 86191 86192 86193 86194 86195 86196 86197 86198 86199 86200 86201 86202 86203 86204 86205 86206 86207 86208 86209 86210 86211 86212 86213 86214 86215 86216 86217 86218 86219 86220 86221 86222 86223 86224 86225 86226 86227 86228 86229 86230 86231 86232 86233 86234 86235 86236 86237 86238 86239 86240 86241 86242 86243 86244 86245 86246 86247 86248 86249 86250 86251 86252 86253 86254 86255 86256 86257 86258 86259 86260 86261 86262 86263 86264 86265 86266 86267 86268 86269 86270 86271 86272 86273 86274 86275 86276 86277 86278 86279 86280 86281 86282 86283 86284 86285 86286 86287 86288 86289 86290 86291 86292 86293 86294 86295 86296 86297 86298 86299 86300 86301 86302 86303 86304 86305 86306 86307 86308 86309 86310 86311 86312 86313 86314 86315 86316 86317 86318 86319 86320 86321 86322 86323 86324 86325 86326 86327 86328 86329 86330 86331 86332 86333 86334 86335 86336 86337 86338 86339 86340 86341 86342 86343 86344 86345 86346 86347 86348 86349 86350 86351 86352 86353 86354 86355 86356 86357 86358 86359 86360 86361 86362 86363 86364 86365 86366 86367 86368 86369 86370 86371 86372 86373 86374 86375 86376 86377 86378 86379 86380 86381 86382 86383 86384 86385 86386 86387 86388 86389 86390 86391 86392 86393 86394 86395 86396 86397 86398 86399 86400 86401 86402 86403 86404 86405 86406 86407 86408 86409 86410 86411 86412 86413 86414 86415 86416 86417 86418 86419 86420 86421 86422 86423 86424 86425 86426 86427 86428 86429 86430 86431 86432 86433 86434 86435 86436 86437 86438 86439 86440 86441 86442 86443 86444 86445 86446 86447 86448 86449 86450 86451 86452 86453 86454 86455 86456 86457 86458 86459 86460 86461 86462 86463 86464 86465 86466 86467 86468 86469 86470 86471 86472 86473 86474 86475 86476 86477 86478 86479 86480 86481 86482 86483 86484 86485 86486 86487 86488 86489 86490 86491 86492 86493 86494 86495 86496 86497 86498 86499 86500 86501 86502 86503 86504 86505 86506 86507 86508 86509 86510 86511 86512 86513 86514 86515 86516 86517 86518 86519 86520 86521 86522 86523 86524 86525 86526 86527 86528 86529 86530 86531 86532 86533 86534 86535 86536 86537 86538 86539 86540 86541 86542 86543 86544 86545 86546 86547 86548 86549 86550 86551 86552 86553 86554 86555 86556 86557 86558 86559 86560 86561 86562 86563 86564 86565 86566 86567 86568 86569 86570 86571 86572 86573 86574 86575 86576 86577 86578 86579 86580 86581 86582 86583 86584 86585 86586 86587 86588 86589 86590 86591 86592 86593 86594 86595 86596 86597 86598 86599 86600 86601 86602 86603 86604 86605 86606 86607 86608 86609 86610 86611 86612 86613 86614 86615 86616 86617 86618 86619 86620 86621 86622 86623 86624 86625 86626 86627 86628 86629 86630 86631 86632 86633 86634 86635 86636 86637 86638 86639 86640 86641 86642 86643 86644 86645 86646 86647 86648 86649 86650 86651 86652 86653 86654 86655 86656 86657 86658 86659 86660 86661 86662 86663 86664 86665 86666 86667 86668 86669 86670 86671 86672 86673 86674 86675 86676 86677 86678 86679 86680 86681 86682 86683 86684 86685 86686 86687 86688 86689 86690 86691 86692 86693 86694 86695 86696 86697 86698 86699 86700 86701 86702 86703 86704 86705 86706 86707 86708 86709 86710 86711 86712 86713 86714 86715 86716 86717 86718 86719 86720 86721 86722 86723 86724 86725 86726 86727 86728 86729 86730 86731 86732 86733 86734 86735 86736 86737 86738 86739 86740 86741 86742 86743 86744 86745 86746 86747 86748 86749 86750 86751 86752 86753 86754 86755 86756 86757 86758 86759 86760 86761 86762 86763 86764 86765 86766 86767 86768 86769 86770 86771 86772 86773 86774 86775 86776 86777 86778 86779 86780 86781 86782 86783 86784 86785 86786 86787 86788 86789 86790 86791 86792 86793 86794 86795 86796 86797 86798 86799 86800 86801 86802 86803 86804 86805 86806 86807 86808 86809 86810 86811 86812 86813 86814 86815 86816 86817 86818 86819 86820 86821 86822 86823 86824 86825 86826 86827 86828 86829 86830 86831 86832 86833 86834 86835 86836 86837 86838 86839 86840 86841 86842 86843 86844 86845 86846 86847 86848 86849 86850 86851 86852 86853 86854 86855 86856 86857 86858 86859 86860 86861 86862 86863 86864 86865 86866 86867 86868 86869 86870 86871 86872 86873 86874 86875 86876 86877 86878 86879 86880 86881 86882 86883 86884 86885 86886 86887 86888 86889 86890 86891 86892 86893 86894 86895 86896 86897 86898 86899 86900 86901 86902 86903 86904 86905 86906 86907 86908 86909 86910 86911 86912 86913 86914 86915 86916 86917 86918 86919 86920 86921 86922 86923 86924 86925 86926 86927 86928 86929 86930 86931 86932 86933 86934 86935 86936 86937 86938 86939 86940 86941 86942 86943 86944 86945 86946 86947 86948 86949 86950 86951 86952 86953 86954 86955 86956 86957 86958 86959 86960 86961 86962 86963 86964 86965 86966 86967 86968 86969 86970 86971 86972 86973 86974 86975 86976 86977 86978 86979 86980 86981 86982 86983 86984 86985 86986 86987 86988 86989 86990 86991 86992 86993 86994 86995 86996 86997 86998 86999 87000 87001 87002 87003 87004 87005 87006 87007 87008 87009 87010 87011 87012 87013 87014 87015 87016 87017 87018 87019 87020 87021 87022 87023 87024 87025 87026 87027 87028 87029 87030 87031 87032 87033 87034 87035 87036 87037 87038 87039 87040 87041 87042 87043 87044 87045 87046 87047 87048 87049 87050 87051 87052 87053 87054 87055 87056 87057 87058 87059 87060 87061 87062 87063 87064 87065 87066 87067 87068 87069 87070 87071 87072 87073 87074 87075 87076 87077 87078 87079 87080 87081 87082 87083 87084 87085 87086 87087 87088 87089 87090 87091 87092 87093 87094 87095 87096 87097 87098 87099 87100 87101 87102 87103 87104 87105 87106 87107 87108 87109 87110 87111 87112 87113 87114 87115 87116 87117 87118 87119 87120 87121 87122 87123 87124 87125 87126 87127 87128 87129 87130 87131 87132 87133 87134 87135 87136 87137 87138 87139 87140 87141 87142 87143 87144 87145 87146 87147 87148 87149 87150 87151 87152 87153 87154 87155 87156 87157 87158 87159 87160 87161 87162 87163 87164 87165 87166 87167 87168 87169 87170 87171 87172 87173 87174 87175 87176 87177 87178 87179 87180 87181 87182 87183 87184 87185 87186 87187 87188 87189 87190 87191 87192 87193 87194 87195 87196 87197 87198 87199 87200 87201 87202 87203 87204 87205 87206 87207 87208 87209 87210 87211 87212 87213 87214 87215 87216 87217 87218 87219 87220 87221 87222 87223 87224 87225 87226 87227 87228 87229 87230 87231 87232 87233 87234 87235 87236 87237 87238 87239 87240 87241 87242 87243 87244 87245 87246 87247 87248 87249 87250 87251 87252 87253 87254 87255 87256 87257 87258 87259 87260 87261 87262 87263 87264 87265 87266 87267 87268 87269 87270 87271 87272 87273 87274 87275 87276 87277 87278 87279 87280 87281 87282 87283 87284 87285 87286 87287 87288 87289 87290 87291 87292 87293 87294 87295 87296 87297 87298 87299 87300 87301 87302 87303 87304 87305 87306 87307 87308 87309 87310 87311 87312 87313 87314 87315 87316 87317 87318 87319 87320 87321 87322 87323 87324 87325 87326 87327 87328 87329 87330 87331 87332 87333 87334 87335 87336 87337 87338 87339 87340 87341 87342 87343 87344 87345 87346 87347 87348 87349 87350 87351 87352 87353 87354 87355 87356 87357 87358 87359 87360 87361 87362 87363 87364 87365 87366 87367 87368 87369 87370 87371 87372 87373 87374 87375 87376 87377 87378 87379 87380 87381 87382 87383 87384 87385 87386 87387 87388 87389 87390 87391 87392 87393 87394 87395 87396 87397 87398 87399 87400 87401 87402 87403 87404 87405 87406 87407 87408 87409 87410 87411 87412 87413 87414 87415 87416 87417 87418 87419 87420 87421 87422 87423 87424 87425 87426 87427 87428 87429 87430 87431 87432 87433 87434 87435 87436 87437 87438 87439 87440 87441 87442 87443 87444 87445 87446 87447 87448 87449 87450 87451 87452 87453 87454 87455 87456 87457 87458 87459 87460 87461 87462 87463 87464 87465 87466 87467 87468 87469 87470 87471 87472 87473 87474 87475 87476 87477 87478 87479 87480 87481 87482 87483 87484 87485 87486 87487 87488 87489 87490 87491 87492 87493 87494 87495 87496 87497 87498 87499 87500 87501 87502 87503 87504 87505 87506 87507 87508 87509 87510 87511 87512 87513 87514 87515 87516 87517 87518 87519 87520 87521 87522 87523 87524 87525 87526 87527 87528 87529 87530 87531 87532 87533 87534 87535 87536 87537 87538 87539 87540 87541 87542 87543 87544 87545 87546 87547 87548 87549 87550 87551 87552 87553 87554 87555 87556 87557 87558 87559 87560 87561 87562 87563 87564 87565 87566 87567 87568 87569 87570 87571 87572 87573 87574 87575 87576 87577 87578 87579 87580 87581 87582 87583 87584 87585 87586 87587 87588 87589 87590 87591 87592 87593 87594 87595 87596 87597 87598 87599 87600 87601 87602 87603 87604 87605 87606 87607 87608 87609 87610 87611 87612 87613 87614 87615 87616 87617 87618 87619 87620 87621 87622 87623 87624 87625 87626 87627 87628 87629 87630 87631 87632 87633 87634 87635 87636 87637 87638 87639 87640 87641 87642 87643 87644 87645 87646 87647 87648 87649 87650 87651 87652 87653 87654 87655 87656 87657 87658 87659 87660 87661 87662 87663 87664 87665 87666 87667 87668 87669 87670 87671 87672 87673 87674 87675 87676 87677 87678 87679 87680 87681 87682 87683 87684 87685 87686 87687 87688 87689 87690 87691 87692 87693 87694 87695 87696 87697 87698 87699 87700 87701 87702 87703 87704 87705 87706 87707 87708 87709 87710 87711 87712 87713 87714 87715 87716 87717 87718 87719 87720 87721 87722 87723 87724 87725 87726 87727 87728 87729 87730 87731 87732 87733 87734 87735 87736 87737 87738 87739 87740 87741 87742 87743 87744 87745 87746 87747 87748 87749 87750 87751 87752 87753 87754 87755 87756 87757 87758 87759 87760 87761 87762 87763 87764 87765 87766 87767 87768 87769 87770 87771 87772 87773 87774 87775 87776 87777 87778 87779 87780 87781 87782 87783 87784 87785 87786 87787 87788 87789 87790 87791 87792 87793 87794 87795 87796 87797 87798 87799 87800 87801 87802 87803 87804 87805 87806 87807 87808 87809 87810 87811 87812 87813 87814 87815 87816 87817 87818 87819 87820 87821 87822 87823 87824 87825 87826 87827 87828 87829 87830 87831 87832 87833 87834 87835 87836 87837 87838 87839 87840 87841 87842 87843 87844 87845 87846 87847 87848 87849 87850 87851 87852 87853 87854 87855 87856 87857 87858 87859 87860 87861 87862 87863 87864 87865 87866 87867 87868 87869 87870 87871 87872 87873 87874 87875 87876 87877 87878 87879 87880 87881 87882 87883 87884 87885 87886 87887 87888 87889 87890 87891 87892 87893 87894 87895 87896 87897 87898 87899 87900 87901 87902 87903 87904 87905 87906 87907 87908 87909 87910 87911 87912 87913 87914 87915 87916 87917 87918 87919 87920 87921 87922 87923 87924 87925 87926 87927 87928 87929 87930 87931 87932 87933 87934 87935 87936 87937 87938 87939 87940 87941 87942 87943 87944 87945 87946 87947 87948 87949 87950 87951 87952 87953 87954 87955 87956 87957 87958 87959 87960 87961 87962 87963 87964 87965 87966 87967 87968 87969 87970 87971 87972 87973 87974 87975 87976 87977 87978 87979 87980 87981 87982 87983 87984 87985 87986 87987 87988 87989 87990 87991 87992 87993 87994 87995 87996 87997 87998 87999 88000 88001 88002 88003 88004 88005 88006 88007 88008 88009 88010 88011 88012 88013 88014 88015 88016 88017 88018 88019 88020 88021 88022 88023 88024 88025 88026 88027 88028 88029 88030 88031 88032 88033 88034 88035 88036 88037 88038 88039 88040 88041 88042 88043 88044 88045 88046 88047 88048 88049 88050 88051 88052 88053 88054 88055 88056 88057 88058 88059 88060 88061 88062 88063 88064 88065 88066 88067 88068 88069 88070 88071 88072 88073 88074 88075 88076 88077 88078 88079 88080 88081 88082 88083 88084 88085 88086 88087 88088 88089 88090 88091 88092 88093 88094 88095 88096 88097 88098 88099 88100 88101 88102 88103 88104 88105 88106 88107 88108 88109 88110 88111 88112 88113 88114 88115 88116 88117 88118 88119 88120 88121 88122 88123 88124 88125 88126 88127 88128 88129 88130 88131 88132 88133 88134 88135 88136 88137 88138 88139 88140 88141 88142 88143 88144 88145 88146 88147 88148 88149 88150 88151 88152 88153 88154 88155 88156 88157 88158 88159 88160 88161 88162 88163 88164 88165 88166 88167 88168 88169 88170 88171 88172 88173 88174 88175 88176 88177 88178 88179 88180 88181 88182 88183 88184 88185 88186 88187 88188 88189 88190 88191 88192 88193 88194 88195 88196 88197 88198 88199 88200 88201 88202 88203 88204 88205 88206 88207 88208 88209 88210 88211 88212 88213 88214 88215 88216 88217 88218 88219 88220 88221 88222 88223 88224 88225 88226 88227 88228 88229 88230 88231 88232 88233 88234 88235 88236 88237 88238 88239 88240 88241 88242 88243 88244 88245 88246 88247 88248 88249 88250 88251 88252 88253 88254 88255 88256 88257 88258 88259 88260 88261 88262 88263 88264 88265 88266 88267 88268 88269 88270 88271 88272 88273 88274 88275 88276 88277 88278 88279 88280 88281 88282 88283 88284 88285 88286 88287 88288 88289 88290 88291 88292 88293 88294 88295 88296 88297 88298 88299 88300 88301 88302 88303 88304 88305 88306 88307 88308 88309 88310 88311 88312 88313 88314 88315 88316 88317 88318 88319 88320 88321 88322 88323 88324 88325 88326 88327 88328 88329 88330 88331 88332 88333 88334 88335 88336 88337 88338 88339 88340 88341 88342 88343 88344 88345 88346 88347 88348 88349 88350 88351 88352 88353 88354 88355 88356 88357 88358 88359 88360 88361 88362 88363 88364 88365 88366 88367 88368 88369 88370 88371 88372 88373 88374 88375 88376 88377 88378 88379 88380 88381 88382 88383 88384 88385 88386 88387 88388 88389 88390 88391 88392 88393 88394 88395 88396 88397 88398 88399 88400 88401 88402 88403 88404 88405 88406 88407 88408 88409 88410 88411 88412 88413 88414 88415 88416 88417 88418 88419 88420 88421 88422 88423 88424 88425 88426 88427 88428 88429 88430 88431 88432 88433 88434 88435 88436 88437 88438 88439 88440 88441 88442 88443 88444 88445 88446 88447 88448 88449 88450 88451 88452 88453 88454 88455 88456 88457 88458 88459 88460 88461 88462 88463 88464 88465 88466 88467 88468 88469 88470 88471 88472 88473 88474 88475 88476 88477 88478 88479 88480 88481 88482 88483 88484 88485 88486 88487 88488 88489 88490 88491 88492 88493 88494 88495 88496 88497 88498 88499 88500 88501 88502 88503 88504 88505 88506 88507 88508 88509 88510 88511 88512 88513 88514 88515 88516 88517 88518 88519 88520 88521 88522 88523 88524 88525 88526 88527 88528 88529 88530 88531 88532 88533 88534 88535 88536 88537 88538 88539 88540 88541 88542 88543 88544 88545 88546 88547 88548 88549 88550 88551 88552 88553 88554 88555 88556 88557 88558 88559 88560 88561 88562 88563 88564 88565 88566 88567 88568 88569 88570 88571 88572 88573 88574 88575 88576 88577 88578 88579 88580 88581 88582 88583 88584 88585 88586 88587 88588 88589 88590 88591 88592 88593 88594 88595 88596 88597 88598 88599 88600 88601 88602 88603 88604 88605 88606 88607 88608 88609 88610 88611 88612 88613 88614 88615 88616 88617 88618 88619 88620 88621 88622 88623 88624 88625 88626 88627 88628 88629 88630 88631 88632 88633 88634 88635 88636 88637 88638 88639 88640 88641 88642 88643 88644 88645 88646 88647 88648 88649 88650 88651 88652 88653 88654 88655 88656 88657 88658 88659 88660 88661 88662 88663 88664 88665 88666 88667 88668 88669 88670 88671 88672 88673 88674 88675 88676 88677 88678 88679 88680 88681 88682 88683 88684 88685 88686 88687 88688 88689 88690 88691 88692 88693 88694 88695 88696 88697 88698 88699 88700 88701 88702 88703 88704 88705 88706 88707 88708 88709 88710 88711 88712 88713 88714 88715 88716 88717 88718 88719 88720 88721 88722 88723 88724 88725 88726 88727 88728 88729 88730 88731 88732 88733 88734 88735 88736 88737 88738 88739 88740 88741 88742 88743 88744 88745 88746 88747 88748 88749 88750 88751 88752 88753 88754 88755 88756 88757 88758 88759 88760 88761 88762 88763 88764 88765 88766 88767 88768 88769 88770 88771 88772 88773 88774 88775 88776 88777 88778 88779 88780 88781 88782 88783 88784 88785 88786 88787 88788 88789 88790 88791 88792 88793 88794 88795 88796 88797 88798 88799 88800 88801 88802 88803 88804 88805 88806 88807 88808 88809 88810 88811 88812 88813 88814 88815 88816 88817 88818 88819 88820 88821 88822 88823 88824 88825 88826 88827 88828 88829 88830 88831 88832 88833 88834 88835 88836 88837 88838 88839 88840 88841 88842 88843 88844 88845 88846 88847 88848 88849 88850 88851 88852 88853 88854 88855 88856 88857 88858 88859 88860 88861 88862 88863 88864 88865 88866 88867 88868 88869 88870 88871 88872 88873 88874 88875 88876 88877 88878 88879 88880 88881 88882 88883 88884 88885 88886 88887 88888 88889 88890 88891 88892 88893 88894 88895 88896 88897 88898 88899 88900 88901 88902 88903 88904 88905 88906 88907 88908 88909 88910 88911 88912 88913 88914 88915 88916 88917 88918 88919 88920 88921 88922 88923 88924 88925 88926 88927 88928 88929 88930 88931 88932 88933 88934 88935 88936 88937 88938 88939 88940 88941 88942 88943 88944 88945 88946 88947 88948 88949 88950 88951 88952 88953 88954 88955 88956 88957 88958 88959 88960 88961 88962 88963 88964 88965 88966 88967 88968 88969 88970 88971 88972 88973 88974 88975 88976 88977 88978 88979 88980 88981 88982 88983 88984 88985 88986 88987 88988 88989 88990 88991 88992 88993 88994 88995 88996 88997 88998 88999 89000 89001 89002 89003 89004 89005 89006 89007 89008 89009 89010 89011 89012 89013 89014 89015 89016 89017 89018 89019 89020 89021 89022 89023 89024 89025 89026 89027 89028 89029 89030 89031 89032 89033 89034 89035 89036 89037 89038 89039 89040 89041 89042 89043 89044 89045 89046 89047 89048 89049 89050 89051 89052 89053 89054 89055 89056 89057 89058 89059 89060 89061 89062 89063 89064 89065 89066 89067 89068 89069 89070 89071 89072 89073 89074 89075 89076 89077 89078 89079 89080 89081 89082 89083 89084 89085 89086 89087 89088 89089 89090 89091 89092 89093 89094 89095 89096 89097 89098 89099 89100 89101 89102 89103 89104 89105 89106 89107 89108 89109 89110 89111 89112 89113 89114 89115 89116 89117 89118 89119 89120 89121 89122 89123 89124 89125 89126 89127 89128 89129 89130 89131 89132 89133 89134 89135 89136 89137 89138 89139 89140 89141 89142 89143 89144 89145 89146 89147 89148 89149 89150 89151 89152 89153 89154 89155 89156 89157 89158 89159 89160 89161 89162 89163 89164 89165 89166 89167 89168 89169 89170 89171 89172 89173 89174 89175 89176 89177 89178 89179 89180 89181 89182 89183 89184 89185 89186 89187 89188 89189 89190 89191 89192 89193 89194 89195 89196 89197 89198 89199 89200 89201 89202 89203 89204 89205 89206 89207 89208 89209 89210 89211 89212 89213 89214 89215 89216 89217 89218 89219 89220 89221 89222 89223 89224 89225 89226 89227 89228 89229 89230 89231 89232 89233 89234 89235 89236 89237 89238 89239 89240 89241 89242 89243 89244 89245 89246 89247 89248 89249 89250 89251 89252 89253 89254 89255 89256 89257 89258 89259 89260 89261 89262 89263 89264 89265 89266 89267 89268 89269 89270 89271 89272 89273 89274 89275 89276 89277 89278 89279 89280 89281 89282 89283 89284 89285 89286 89287 89288 89289 89290 89291 89292 89293 89294 89295 89296 89297 89298 89299 89300 89301 89302 89303 89304 89305 89306 89307 89308 89309 89310 89311 89312 89313 89314 89315 89316 89317 89318 89319 89320 89321 89322 89323 89324 89325 89326 89327 89328 89329 89330 89331 89332 89333 89334 89335 89336 89337 89338 89339 89340 89341 89342 89343 89344 89345 89346 89347 89348 89349 89350 89351 89352 89353 89354 89355 89356 89357 89358 89359 89360 89361 89362 89363 89364 89365 89366 89367 89368 89369 89370 89371 89372 89373 89374 89375 89376 89377 89378 89379 89380 89381 89382 89383 89384 89385 89386 89387 89388 89389 89390 89391 89392 89393 89394 89395 89396 89397 89398 89399 89400 89401 89402 89403 89404 89405 89406 89407 89408 89409 89410 89411 89412 89413 89414 89415 89416 89417 89418 89419 89420 89421 89422 89423 89424 89425 89426 89427 89428 89429 89430 89431 89432 89433 89434 89435 89436 89437 89438 89439 89440 89441 89442 89443 89444 89445 89446 89447 89448 89449 89450 89451 89452 89453 89454 89455 89456 89457 89458 89459 89460 89461 89462 89463 89464 89465 89466 89467 89468 89469 89470 89471 89472 89473 89474 89475 89476 89477 89478 89479 89480 89481 89482 89483 89484 89485 89486 89487 89488 89489 89490 89491 89492 89493 89494 89495 89496 89497 89498 89499 89500 89501 89502 89503 89504 89505 89506 89507 89508 89509 89510 89511 89512 89513 89514 89515 89516 89517 89518 89519 89520 89521 89522 89523 89524 89525 89526 89527 89528 89529 89530 89531 89532 89533 89534 89535 89536 89537 89538 89539 89540 89541 89542 89543 89544 89545 89546 89547 89548 89549 89550 89551 89552 89553 89554 89555 89556 89557 89558 89559 89560 89561 89562 89563 89564 89565 89566 89567 89568 89569 89570 89571 89572 89573 89574 89575 89576 89577 89578 89579 89580 89581 89582 89583 89584 89585 89586 89587 89588 89589 89590 89591 89592 89593 89594 89595 89596 89597 89598 89599 89600 89601 89602 89603 89604 89605 89606 89607 89608 89609 89610 89611 89612 89613 89614 89615 89616 89617 89618 89619 89620 89621 89622 89623 89624 89625 89626 89627 89628 89629 89630 89631 89632 89633 89634 89635 89636 89637 89638 89639 89640 89641 89642 89643 89644 89645 89646 89647 89648 89649 89650 89651 89652 89653 89654 89655 89656 89657 89658 89659 89660 89661 89662 89663 89664 89665 89666 89667 89668 89669 89670 89671 89672 89673 89674 89675 89676 89677 89678 89679 89680 89681 89682 89683 89684 89685 89686 89687 89688 89689 89690 89691 89692 89693 89694 89695 89696 89697 89698 89699 89700 89701 89702 89703 89704 89705 89706 89707 89708 89709 89710 89711 89712 89713 89714 89715 89716 89717 89718 89719 89720 89721 89722 89723 89724 89725 89726 89727 89728 89729 89730 89731 89732 89733 89734 89735 89736 89737 89738 89739 89740 89741 89742 89743 89744 89745 89746 89747 89748 89749 89750 89751 89752 89753 89754 89755 89756 89757 89758 89759 89760 89761 89762 89763 89764 89765 89766 89767 89768 89769 89770 89771 89772 89773 89774 89775 89776 89777 89778 89779 89780 89781 89782 89783 89784 89785 89786 89787 89788 89789 89790 89791 89792 89793 89794 89795 89796 89797 89798 89799 89800 89801 89802 89803 89804 89805 89806 89807 89808 89809 89810 89811 89812 89813 89814 89815 89816 89817 89818 89819 89820 89821 89822 89823 89824 89825 89826 89827 89828 89829 89830 89831 89832 89833 89834 89835 89836 89837 89838 89839 89840 89841 89842 89843 89844 89845 89846 89847 89848 89849 89850 89851 89852 89853 89854 89855 89856 89857 89858 89859 89860 89861 89862 89863 89864 89865 89866 89867 89868 89869 89870 89871 89872 89873 89874 89875 89876 89877 89878 89879 89880 89881 89882 89883 89884 89885 89886 89887 89888 89889 89890 89891 89892 89893 89894 89895 89896 89897 89898 89899 89900 89901 89902 89903 89904 89905 89906 89907 89908 89909 89910 89911 89912 89913 89914 89915 89916 89917 89918 89919 89920 89921 89922 89923 89924 89925 89926 89927 89928 89929 89930 89931 89932 89933 89934 89935 89936 89937 89938 89939 89940 89941 89942 89943 89944 89945 89946 89947 89948 89949 89950 89951 89952 89953 89954 89955 89956 89957 89958 89959 89960 89961 89962 89963 89964 89965 89966 89967 89968 89969 89970 89971 89972 89973 89974 89975 89976 89977 89978 89979 89980 89981 89982 89983 89984 89985 89986 89987 89988 89989 89990 89991 89992 89993 89994 89995 89996 89997 89998 89999 90000 90001 90002 90003 90004 90005 90006 90007 90008 90009 90010 90011 90012 90013 90014 90015 90016 90017 90018 90019 90020 90021 90022 90023 90024 90025 90026 90027 90028 90029 90030 90031 90032 90033 90034 90035 90036 90037 90038 90039 90040 90041 90042 90043 90044 90045 90046 90047 90048 90049 90050 90051 90052 90053 90054 90055 90056 90057 90058 90059 90060 90061 90062 90063 90064 90065 90066 90067 90068 90069 90070 90071 90072 90073 90074 90075 90076 90077 90078 90079 90080 90081 90082 90083 90084 90085 90086 90087 90088 90089 90090 90091 90092 90093 90094 90095 90096 90097 90098 90099 90100 90101 90102 90103 90104 90105 90106 90107 90108 90109 90110 90111 90112 90113 90114 90115 90116 90117 90118 90119 90120 90121 90122 90123 90124 90125 90126 90127 90128 90129 90130 90131 90132 90133 90134 90135 90136 90137 90138 90139 90140 90141 90142 90143 90144 90145 90146 90147 90148 90149 90150 90151 90152 90153 90154 90155 90156 90157 90158 90159 90160 90161 90162 90163 90164 90165 90166 90167 90168 90169 90170 90171 90172 90173 90174 90175 90176 90177 90178 90179 90180 90181 90182 90183 90184 90185 90186 90187 90188 90189 90190 90191 90192 90193 90194 90195 90196 90197 90198 90199 90200 90201 90202 90203 90204 90205 90206 90207 90208 90209 90210 90211 90212 90213 90214 90215 90216 90217 90218 90219 90220 90221 90222 90223 90224 90225 90226 90227 90228 90229 90230 90231 90232 90233 90234 90235 90236 90237 90238 90239 90240 90241 90242 90243 90244 90245 90246 90247 90248 90249 90250 90251 90252 90253 90254 90255 90256 90257 90258 90259 90260 90261 90262 90263 90264 90265 90266 90267 90268 90269 90270 90271 90272 90273 90274 90275 90276 90277 90278 90279 90280 90281 90282 90283 90284 90285 90286 90287 90288 90289 90290 90291 90292 90293 90294 90295 90296 90297 90298 90299 90300 90301 90302 90303 90304 90305 90306 90307 90308 90309 90310 90311 90312 90313 90314 90315 90316 90317 90318 90319 90320 90321 90322 90323 90324 90325 90326 90327 90328 90329 90330 90331 90332 90333 90334 90335 90336 90337 90338 90339 90340 90341 90342 90343 90344 90345 90346 90347 90348 90349 90350 90351 90352 90353 90354 90355 90356 90357 90358 90359 90360 90361 90362 90363 90364 90365 90366 90367 90368 90369 90370 90371 90372 90373 90374 90375 90376 90377 90378 90379 90380 90381 90382 90383 90384 90385 90386 90387 90388 90389 90390 90391 90392 90393 90394 90395 90396 90397 90398 90399 90400 90401 90402 90403 90404 90405 90406 90407 90408 90409 90410 90411 90412 90413 90414 90415 90416 90417 90418 90419 90420 90421 90422 90423 90424 90425 90426 90427 90428 90429 90430 90431 90432 90433 90434 90435 90436 90437 90438 90439 90440 90441 90442 90443 90444 90445 90446 90447 90448 90449 90450 90451 90452 90453 90454 90455 90456 90457 90458 90459 90460 90461 90462 90463 90464 90465 90466 90467 90468 90469 90470 90471 90472 90473 90474 90475 90476 90477 90478 90479 90480 90481 90482 90483 90484 90485 90486 90487 90488 90489 90490 90491 90492 90493 90494 90495 90496 90497 90498 90499 90500 90501 90502 90503 90504 90505 90506 90507 90508 90509 90510 90511 90512 90513 90514 90515 90516 90517 90518 90519 90520 90521 90522 90523 90524 90525 90526 90527 90528 90529 90530 90531 90532 90533 90534 90535 90536 90537 90538 90539 90540 90541 90542 90543 90544 90545 90546 90547 90548 90549 90550 90551 90552 90553 90554 90555 90556 90557 90558 90559 90560 90561 90562 90563 90564 90565 90566 90567 90568 90569 90570 90571 90572 90573 90574 90575 90576 90577 90578 90579 90580 90581 90582 90583 90584 90585 90586 90587 90588 90589 90590 90591 90592 90593 90594 90595 90596 90597 90598 90599 90600 90601 90602 90603 90604 90605 90606 90607 90608 90609 90610 90611 90612 90613 90614 90615 90616 90617 90618 90619 90620 90621 90622 90623 90624 90625 90626 90627 90628 90629 90630 90631 90632 90633 90634 90635 90636 90637 90638 90639 90640 90641 90642 90643 90644 90645 90646 90647 90648 90649 90650 90651 90652 90653 90654 90655 90656 90657 90658 90659 90660 90661 90662 90663 90664 90665 90666 90667 90668 90669 90670 90671 90672 90673 90674 90675 90676 90677 90678 90679 90680 90681 90682 90683 90684 90685 90686 90687 90688 90689 90690 90691 90692 90693 90694 90695 90696 90697 90698 90699 90700 90701 90702 90703 90704 90705 90706 90707 90708 90709 90710 90711 90712 90713 90714 90715 90716 90717 90718 90719 90720 90721 90722 90723 90724 90725 90726 90727 90728 90729 90730 90731 90732 90733 90734 90735 90736 90737 90738 90739 90740 90741 90742 90743 90744 90745 90746 90747 90748 90749 90750 90751 90752 90753 90754 90755 90756 90757 90758 90759 90760 90761 90762 90763 90764 90765 90766 90767 90768 90769 90770 90771 90772 90773 90774 90775 90776 90777 90778 90779 90780 90781 90782 90783 90784 90785 90786 90787 90788 90789 90790 90791 90792 90793 90794 90795 90796 90797 90798 90799 90800 90801 90802 90803 90804 90805 90806 90807 90808 90809 90810 90811 90812 90813 90814 90815 90816 90817 90818 90819 90820 90821 90822 90823 90824 90825 90826 90827 90828 90829 90830 90831 90832 90833 90834 90835 90836 90837 90838 90839 90840 90841 90842 90843 90844 90845 90846 90847 90848 90849 90850 90851 90852 90853 90854 90855 90856 90857 90858 90859 90860 90861 90862 90863 90864 90865 90866 90867 90868 90869 90870 90871 90872 90873 90874 90875 90876 90877 90878 90879 90880 90881 90882 90883 90884 90885 90886 90887 90888 90889 90890 90891 90892 90893 90894 90895 90896 90897 90898 90899 90900 90901 90902 90903 90904 90905 90906 90907 90908 90909 90910 90911 90912 90913 90914 90915 90916 90917 90918 90919 90920 90921 90922 90923 90924 90925 90926 90927 90928 90929 90930 90931 90932 90933 90934 90935 90936 90937 90938 90939 90940 90941 90942 90943 90944 90945 90946 90947 90948 90949 90950 90951 90952 90953 90954 90955 90956 90957 90958 90959 90960 90961 90962 90963 90964 90965 90966 90967 90968 90969 90970 90971 90972 90973 90974 90975 90976 90977 90978 90979 90980 90981 90982 90983 90984 90985 90986 90987 90988 90989 90990 90991 90992 90993 90994 90995 90996 90997 90998 90999 91000 91001 91002 91003 91004 91005 91006 91007 91008 91009 91010 91011 91012 91013 91014 91015 91016 91017 91018 91019 91020 91021 91022 91023 91024 91025 91026 91027 91028 91029 91030 91031 91032 91033 91034 91035 91036 91037 91038 91039 91040 91041 91042 91043 91044 91045 91046 91047 91048 91049 91050 91051 91052 91053 91054 91055 91056 91057 91058 91059 91060 91061 91062 91063 91064 91065 91066 91067 91068 91069 91070 91071 91072 91073 91074 91075 91076 91077 91078 91079 91080 91081 91082 91083 91084 91085 91086 91087 91088 91089 91090 91091 91092 91093 91094 91095 91096 91097 91098 91099 91100 91101 91102 91103 91104 91105 91106 91107 91108 91109 91110 91111 91112 91113 91114 91115 91116 91117 91118 91119 91120 91121 91122 91123 91124 91125 91126 91127 91128 91129 91130 91131 91132 91133 91134 91135 91136 91137 91138 91139 91140 91141 91142 91143 91144 91145 91146 91147 91148 91149 91150 91151 91152 91153 91154 91155 91156 91157 91158 91159 91160 91161 91162 91163 91164 91165 91166 91167 91168 91169 91170 91171 91172 91173 91174 91175 91176 91177 91178 91179 91180 91181 91182 91183 91184 91185 91186 91187 91188 91189 91190 91191 91192 91193 91194 91195 91196 91197 91198 91199 91200 91201 91202 91203 91204 91205 91206 91207 91208 91209 91210 91211 91212 91213 91214 91215 91216 91217 91218 91219 91220 91221 91222 91223 91224 91225 91226 91227 91228 91229 91230 91231 91232 91233 91234 91235 91236 91237 91238 91239 91240 91241 91242 91243 91244 91245 91246 91247 91248 91249 91250 91251 91252 91253 91254 91255 91256 91257 91258 91259 91260 91261 91262 91263 91264 91265 91266 91267 91268 91269 91270 91271 91272 91273 91274 91275 91276 91277 91278 91279 91280 91281 91282 91283 91284 91285 91286 91287 91288 91289 91290 91291 91292 91293 91294 91295 91296 91297 91298 91299 91300 91301 91302 91303 91304 91305 91306 91307 91308 91309 91310 91311 91312 91313 91314 91315 91316 91317 91318 91319 91320 91321 91322 91323 91324 91325 91326 91327 91328 91329 91330 91331 91332 91333 91334 91335 91336 91337 91338 91339 91340 91341 91342 91343 91344 91345 91346 91347 91348 91349 91350 91351 91352 91353 91354 91355 91356 91357 91358 91359 91360 91361 91362 91363 91364 91365 91366 91367 91368 91369 91370 91371 91372 91373 91374 91375 91376 91377 91378 91379 91380 91381 91382 91383 91384 91385 91386 91387 91388 91389 91390 91391 91392 91393 91394 91395 91396 91397 91398 91399 91400 91401 91402 91403 91404 91405 91406 91407 91408 91409 91410 91411 91412 91413 91414 91415 91416 91417 91418 91419 91420 91421 91422 91423 91424 91425 91426 91427 91428 91429 91430 91431 91432 91433 91434 91435 91436 91437 91438 91439 91440 91441 91442 91443 91444 91445 91446 91447 91448 91449 91450 91451 91452 91453 91454 91455 91456 91457 91458 91459 91460 91461 91462 91463 91464 91465 91466 91467 91468 91469 91470 91471 91472 91473 91474 91475 91476 91477 91478 91479 91480 91481 91482 91483 91484 91485 91486 91487 91488 91489 91490 91491 91492 91493 91494 91495 91496 91497 91498 91499 91500 91501 91502 91503 91504 91505 91506 91507 91508 91509 91510 91511 91512 91513 91514 91515 91516 91517 91518 91519 91520 91521 91522 91523 91524 91525 91526 91527 91528 91529 91530 91531 91532 91533 91534 91535 91536 91537 91538 91539 91540 91541 91542 91543 91544 91545 91546 91547 91548 91549 91550 91551 91552 91553 91554 91555 91556 91557 91558 91559 91560 91561 91562 91563 91564 91565 91566 91567 91568 91569 91570 91571 91572 91573 91574 91575 91576 91577 91578 91579 91580 91581 91582 91583 91584 91585 91586 91587 91588 91589 91590 91591 91592 91593 91594 91595 91596 91597 91598 91599 91600 91601 91602 91603 91604 91605 91606 91607 91608 91609 91610 91611 91612 91613 91614 91615 91616 91617 91618 91619 91620 91621 91622 91623 91624 91625 91626 91627 91628 91629 91630 91631 91632 91633 91634 91635 91636 91637 91638 91639 91640 91641 91642 91643 91644 91645 91646 91647 91648 91649 91650 91651 91652 91653 91654 91655 91656 91657 91658 91659 91660 91661 91662 91663 91664 91665 91666 91667 91668 91669 91670 91671 91672 91673 91674 91675 91676 91677 91678 91679 91680 91681 91682 91683 91684 91685 91686 91687 91688 91689 91690 91691 91692 91693 91694 91695 91696 91697 91698 91699 91700 91701 91702 91703 91704 91705 91706 91707 91708 91709 91710 91711 91712 91713 91714 91715 91716 91717 91718 91719 91720 91721 91722 91723 91724 91725 91726 91727 91728 91729 91730 91731 91732 91733 91734 91735 91736 91737 91738 91739 91740 91741 91742 91743 91744 91745 91746 91747 91748 91749 91750 91751 91752 91753 91754 91755 91756 91757 91758 91759 91760 91761 91762 91763 91764 91765 91766 91767 91768 91769 91770 91771 91772 91773 91774 91775 91776 91777 91778 91779 91780 91781 91782 91783 91784 91785 91786 91787 91788 91789 91790 91791 91792 91793 91794 91795 91796 91797 91798 91799 91800 91801 91802 91803 91804 91805 91806 91807 91808 91809 91810 91811 91812 91813 91814 91815 91816 91817 91818 91819 91820 91821 91822 91823 91824 91825 91826 91827 91828 91829 91830 91831 91832 91833 91834 91835 91836 91837 91838 91839 91840 91841 91842 91843 91844 91845 91846 91847 91848 91849 91850 91851 91852 91853 91854 91855 91856 91857 91858 91859 91860 91861 91862 91863 91864 91865 91866 91867 91868 91869 91870 91871 91872 91873 91874 91875 91876 91877 91878 91879 91880 91881 91882 91883 91884 91885 91886 91887 91888 91889 91890 91891 91892 91893 91894 91895 91896 91897 91898 91899 91900 91901 91902 91903 91904 91905 91906 91907 91908 91909 91910 91911 91912 91913 91914 91915 91916 91917 91918 91919 91920 91921 91922 91923 91924 91925 91926 91927 91928 91929 91930 91931 91932 | 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x | /* eslint-disable import/newline-after-import */
import runtime from "@abaplint/runtime";
globalThis.abap = new runtime.ABAP();
await import("./%23ui2%23cl_json.clas.mjs");
await import("./00.msag.mjs");
await import("./abap.type.mjs");
await import("./abap_boolean.dtel.mjs");
await import("./abap_callstack.ttyp.mjs");
await import("./abap_callstack_line.tabl.mjs");
await import("./abap_encod.dtel.mjs");
await import("./abap_sortorder.tabl.mjs");
await import("./abap_sortorder_tab.ttyp.mjs");
await import("./abaptxt255.tabl.mjs");
await import("./abaptxt255_tab.ttyp.mjs");
await import("./balmnr.dtel.mjs");
await import("./balognr.dtel.mjs");
await import("./bapi_fld.dtel.mjs");
await import("./bapi_line.dtel.mjs");
await import("./bapi_msg.dtel.mjs");
await import("./bapi_mtype.dtel.mjs");
await import("./bapi_param.dtel.mjs");
await import("./bapi_rcode.dtel.mjs");
await import("./bapilogsys.dtel.mjs");
await import("./bapioption.dtel.mjs");
await import("./bapiret2.tabl.mjs");
await import("./bapirettab.ttyp.mjs");
await import("./bapireturn.tabl.mjs");
await import("./bapisign.dtel.mjs");
await import("./boole_d.dtel.mjs");
await import("./boolean.dtel.mjs");
await import("./cdnames.tabl.mjs");
await import("./cdobjectcl.dtel.mjs");
await import("./char1.dtel.mjs");
await import("./char10.dtel.mjs");
await import("./char120.dtel.mjs");
await import("./char15.dtel.mjs");
await import("./char2.dtel.mjs");
await import("./char20.dtel.mjs");
await import("./char25.dtel.mjs");
await import("./char255.dtel.mjs");
await import("./char3.dtel.mjs");
await import("./char30.dtel.mjs");
await import("./char32.dtel.mjs");
await import("./char4.dtel.mjs");
await import("./char40.dtel.mjs");
await import("./char6.dtel.mjs");
await import("./char70.dtel.mjs");
await import("./char8.dtel.mjs");
await import("./char80.dtel.mjs");
await import("./cl_abap_browser.clas.mjs");
await import("./cl_abap_char_utilities.clas.mjs");
await import("./cl_abap_classdescr.clas.mjs");
await import("./cl_abap_codepage.clas.mjs");
await import("./cl_abap_complexdescr.clas.mjs");
await import("./cl_abap_conv_codepage.clas.mjs");
await import("./cl_abap_conv_in_ce.clas.mjs");
await import("./cl_abap_conv_out_ce.clas.mjs");
await import("./cl_abap_datadescr.clas.mjs");
await import("./cl_abap_datfm.clas.mjs");
await import("./cl_abap_dyn_prg.clas.mjs");
await import("./cl_abap_elemdescr.clas.mjs");
await import("./cl_abap_enumdescr.clas.mjs");
await import("./cl_abap_exceptional_values.clas.mjs");
await import("./cl_abap_format.clas.mjs");
await import("./cl_abap_gzip.clas.mjs");
await import("./cl_abap_hmac.clas.mjs");
await import("./cl_abap_intfdescr.clas.mjs");
await import("./cl_abap_matcher.clas.mjs");
await import("./cl_abap_math.clas.mjs");
await import("./cl_abap_message_digest.clas.mjs");
await import("./cl_abap_objectdescr.clas.mjs");
await import("./cl_abap_random.clas.mjs");
await import("./cl_abap_random_int.clas.mjs");
await import("./cl_abap_refdescr.clas.mjs");
await import("./cl_abap_regex.clas.mjs");
await import("./cl_abap_structdescr.clas.mjs");
await import("./cl_abap_tabledescr.clas.mjs");
await import("./cl_abap_timefm.clas.mjs");
await import("./cl_abap_tstmp.clas.mjs");
await import("./cl_abap_typedescr.clas.mjs");
await import("./cl_abap_unit_assert.clas.mjs");
await import("./cl_abap_weak_reference.clas.mjs");
await import("./cl_abap_zip.clas.mjs");
await import("./cl_alv_changed_data_protocol.clas.mjs");
await import("./cl_alv_event_toolbar_set.clas.mjs");
await import("./cl_alv_table_create.clas.mjs");
await import("./cl_alv_tree_base.clas.mjs");
await import("./cl_alv_variant.clas.mjs");
await import("./cl_apc_tcp_client_manager.clas.mjs");
await import("./cl_apc_wsp_ext_stateless_base.clas.mjs");
await import("./cl_bcs.clas.mjs");
await import("./cl_bcs_convert.clas.mjs");
await import("./cl_cam_address_bcs.clas.mjs");
await import("./cl_demo_output.clas.mjs");
await import("./cl_document_bcs.clas.mjs");
await import("./cl_express_icf_shim.clas.mjs");
await import("./cl_function_test_environment.clas.mjs");
await import("./cl_gdt_conversion.clas.mjs");
await import("./cl_gui_alv_grid.clas.mjs");
await import("./cl_gui_alv_tree.clas.mjs");
await import("./cl_gui_cfw.clas.mjs");
await import("./cl_gui_column_tree.clas.mjs");
await import("./cl_gui_container.clas.mjs");
await import("./cl_gui_control.clas.mjs");
await import("./cl_gui_custom_container.clas.mjs");
await import("./cl_gui_frontend_services.clas.mjs");
await import("./cl_gui_picture.clas.mjs");
await import("./cl_gui_splitter_container.clas.mjs");
await import("./cl_gui_textedit.clas.mjs");
await import("./cl_gui_toolbar.clas.mjs");
await import("./cl_http_client.clas.mjs");
await import("./cl_http_entity.clas.mjs");
await import("./cl_http_server.clas.mjs");
await import("./cl_http_utility.clas.mjs");
await import("./cl_i18n_languages.clas.mjs");
await import("./cl_icf_tree.clas.mjs");
await import("./cl_ixml.clas.mjs");
await import("./cl_message_helper.clas.mjs");
await import("./cl_mime_repository_api.clas.mjs");
await import("./cl_numberrange_runtime.clas.mjs");
await import("./cl_oa2c_config_writer_api.clas.mjs");
await import("./cl_oauth2_client.clas.mjs");
await import("./cl_oo_factory.clas.mjs");
await import("./cl_osql_test_environment.clas.mjs");
await import("./cl_package_factory.clas.mjs");
await import("./cl_package_helper.clas.mjs");
await import("./cl_progress_indicator.clas.mjs");
await import("./cl_salv_aggregations.clas.mjs");
await import("./cl_salv_column.clas.mjs");
await import("./cl_salv_column_list.clas.mjs");
await import("./cl_salv_column_table.clas.mjs");
await import("./cl_salv_columns_table.clas.mjs");
await import("./cl_salv_events_table.clas.mjs");
await import("./cl_salv_filters.clas.mjs");
await import("./cl_salv_functional_settings.clas.mjs");
await import("./cl_salv_functions_list.clas.mjs");
await import("./cl_salv_hyperlinks.clas.mjs");
await import("./cl_salv_layout.clas.mjs");
await import("./cl_salv_layout_service.clas.mjs");
await import("./cl_salv_sorts.clas.mjs");
await import("./cl_salv_table.clas.mjs");
await import("./cl_sec_sxml_writer.clas.mjs");
await import("./cl_shm_area.clas.mjs");
await import("./cl_shm_service.clas.mjs");
await import("./cl_sql_result_set.clas.mjs");
await import("./cl_sql_statement.clas.mjs");
await import("./cl_sxml_string_reader.clas.mjs");
await import("./cl_sxml_string_writer.clas.mjs");
await import("./cl_system_uuid.clas.mjs");
await import("./cl_web_http_utility.clas.mjs");
await import("./cntb.type.mjs");
await import("./cntl.type.mjs");
await import("./cvers.tabl.mjs");
await import("./cvers_ref.tabl.mjs");
await import("./cx_abap_datfm.clas.mjs");
await import("./cx_abap_message_digest.clas.mjs");
await import("./cx_abap_not_a_table.clas.mjs");
await import("./cx_abap_not_in_package.clas.mjs");
await import("./cx_abap_not_in_whitelist.clas.mjs");
await import("./cx_abap_random.clas.mjs");
await import("./cx_abap_timefm_invalid.clas.mjs");
await import("./cx_apc_error.clas.mjs");
await import("./cx_bcs.clas.mjs");
await import("./cx_dynamic_check.clas.mjs");
await import("./cx_ftd_parameter_not_found.clas.mjs");
await import("./cx_gdt_conversion.clas.mjs");
await import("./cx_no_check.clas.mjs");
await import("./cx_oa2c.clas.mjs");
await import("./cx_oa2c_at_not_available.clas.mjs");
await import("./cx_oa2c_config_not_found.clas.mjs");
await import("./cx_oo_clif_not_exists.clas.mjs");
await import("./cx_parameter_invalid.clas.mjs");
await import("./cx_parameter_invalid_range.clas.mjs");
await import("./cx_parameter_invalid_type.clas.mjs");
await import("./cx_root.clas.mjs");
await import("./cx_salv_access_error.clas.mjs");
await import("./cx_salv_data_error.clas.mjs");
await import("./cx_salv_error.clas.mjs");
await import("./cx_salv_existing.clas.mjs");
await import("./cx_salv_msg.clas.mjs");
await import("./cx_salv_not_found.clas.mjs");
await import("./cx_salv_static_check.clas.mjs");
await import("./cx_shm_already_detached.clas.mjs");
await import("./cx_shm_attach_error.clas.mjs");
await import("./cx_shm_build_failed.clas.mjs");
await import("./cx_shm_change_lock_active.clas.mjs");
await import("./cx_shm_completion_error.clas.mjs");
await import("./cx_shm_detach_error.clas.mjs");
await import("./cx_shm_error.clas.mjs");
await import("./cx_shm_event_execution_failed.clas.mjs");
await import("./cx_shm_exclusive_lock_active.clas.mjs");
await import("./cx_shm_general_error.clas.mjs");
await import("./cx_shm_inconsistent.clas.mjs");
await import("./cx_shm_initial_reference.clas.mjs");
await import("./cx_shm_no_active_version.clas.mjs");
await import("./cx_shm_parameter_error.clas.mjs");
await import("./cx_shm_pending_lock_removed.clas.mjs");
await import("./cx_shm_read_lock_active.clas.mjs");
await import("./cx_shm_secondary_commit.clas.mjs");
await import("./cx_shm_version_limit_exceeded.clas.mjs");
await import("./cx_shm_wrong_handle.clas.mjs");
await import("./cx_shma_dynamic.clas.mjs");
await import("./cx_shma_inconsistent.clas.mjs");
await import("./cx_shma_not_configured.clas.mjs");
await import("./cx_sql_exception.clas.mjs");
await import("./cx_st_error.clas.mjs");
await import("./cx_static_check.clas.mjs");
await import("./cx_sxml_error.clas.mjs");
await import("./cx_sxml_illegal_argument_error.clas.mjs");
await import("./cx_sxml_name_error.clas.mjs");
await import("./cx_sxml_parse_error.clas.mjs");
await import("./cx_sxml_state_error.clas.mjs");
await import("./cx_sy_arithmetic_error.clas.mjs");
await import("./cx_sy_arithmetic_overflow.clas.mjs");
await import("./cx_sy_buffer_overflow.clas.mjs");
await import("./cx_sy_codepage_converter_init.clas.mjs");
await import("./cx_sy_compression_error.clas.mjs");
await import("./cx_sy_conversion_codepage.clas.mjs");
await import("./cx_sy_conversion_data_loss.clas.mjs");
await import("./cx_sy_conversion_error.clas.mjs");
await import("./cx_sy_conversion_no_number.clas.mjs");
await import("./cx_sy_conversion_overflow.clas.mjs");
await import("./cx_sy_create_data_error.clas.mjs");
await import("./cx_sy_create_object_error.clas.mjs");
await import("./cx_sy_data_access_error.clas.mjs");
await import("./cx_sy_duplicate_key.clas.mjs");
await import("./cx_sy_dyn_call_error.clas.mjs");
await import("./cx_sy_dyn_call_illegal_class.clas.mjs");
await import("./cx_sy_dyn_call_illegal_form.clas.mjs");
await import("./cx_sy_dyn_call_illegal_func.clas.mjs");
await import("./cx_sy_dyn_call_illegal_method.clas.mjs");
await import("./cx_sy_dyn_call_param_not_found.clas.mjs");
await import("./cx_sy_dyn_call_parameter_error.clas.mjs");
await import("./cx_sy_dynamic_osql_error.clas.mjs");
await import("./cx_sy_dynamic_osql_semantics.clas.mjs");
await import("./cx_sy_find_infinite_loop.clas.mjs");
await import("./cx_sy_invalid_regex.clas.mjs");
await import("./cx_sy_itab_duplicate_key.clas.mjs");
await import("./cx_sy_itab_error.clas.mjs");
await import("./cx_sy_itab_line_not_found.clas.mjs");
await import("./cx_sy_message_illegal_text.clas.mjs");
await import("./cx_sy_move_cast_error.clas.mjs");
await import("./cx_sy_open_sql_error.clas.mjs");
await import("./cx_sy_range_out_of_bounds.clas.mjs");
await import("./cx_sy_ref_is_initial.clas.mjs");
await import("./cx_sy_regex.clas.mjs");
await import("./cx_sy_regex_too_complex.clas.mjs");
await import("./cx_sy_sql_error.clas.mjs");
await import("./cx_sy_strg_par_val.clas.mjs");
await import("./cx_sy_struct_attributes.clas.mjs");
await import("./cx_sy_struct_comp_name.clas.mjs");
await import("./cx_sy_struct_comp_type.clas.mjs");
await import("./cx_sy_struct_creation.clas.mjs");
await import("./cx_sy_type_creation.clas.mjs");
await import("./cx_sy_zerodivide.clas.mjs");
await import("./cx_transformation_error.clas.mjs");
await import("./cx_uuid_error.clas.mjs");
await import("./cx_xslt_exception.clas.mjs");
await import("./cx_xslt_format_error.clas.mjs");
await import("./cx_xslt_runtime_error.clas.mjs");
await import("./cx_xslt_serialization_error.clas.mjs");
await import("./cx_xslt_system_error.clas.mjs");
await import("./dats.dtel.mjs");
await import("./dd02l.tabl.mjs");
await import("./dd02t.tabl.mjs");
await import("./dd02v.tabl.mjs");
await import("./dd03p.tabl.mjs");
await import("./dd05m.tabl.mjs");
await import("./dd08v.tabl.mjs");
await import("./dd09l.tabl.mjs");
await import("./dd12v.tabl.mjs");
await import("./dd17v.tabl.mjs");
await import("./dd35v.tabl.mjs");
await import("./dd36m.tabl.mjs");
await import("./ddfields.ttyp.mjs");
await import("./ddoption.dtel.mjs");
await import("./ddsign.dtel.mjs");
await import("./devclass.dtel.mjs");
await import("./dfies.tabl.mjs");
await import("./disvariant.tabl.mjs");
await import("./dokhl.tabl.mjs");
await import("./dokil.tabl.mjs");
await import("./dokstate.dtel.mjs");
await import("./doku_obj.dtel.mjs");
await import("./dynprofld.dtel.mjs");
await import("./edisegmdef.tabl.mjs");
await import("./edisegmhd.tabl.mjs");
await import("./edisegstru.tabl.mjs");
await import("./enqmode.dtel.mjs");
await import("./fieldname.dtel.mjs");
await import("./file_table.tabl.mjs");
await import("./filetable.ttyp.mjs");
await import("./flag.dtel.mjs");
await import("./funcname.dtel.mjs");
await import("./guid.dtel.mjs");
await import("./icon.type.mjs");
await import("./icon_d.dtel.mjs");
await import("./if_abap_channel_types.intf.mjs");
await import("./if_abap_conv_in.intf.mjs");
await import("./if_abap_conv_out.intf.mjs");
await import("./if_abap_unit_constant.intf.mjs");
await import("./if_amdp_marker_hdb.intf.mjs");
await import("./if_apc_tcp_frame_types.intf.mjs");
await import("./if_apc_wsp_binding_manager.intf.mjs");
await import("./if_apc_wsp_client.intf.mjs");
await import("./if_apc_wsp_event_handler.intf.mjs");
await import("./if_apc_wsp_extension.intf.mjs");
await import("./if_apc_wsp_initial_request.intf.mjs");
await import("./if_apc_wsp_message.intf.mjs");
await import("./if_apc_wsp_message_manager.intf.mjs");
await import("./if_apc_wsp_server_context.intf.mjs");
await import("./if_aunit_constants.intf.mjs");
await import("./if_document_bcs.intf.mjs");
await import("./if_ftd_input_arguments.intf.mjs");
await import("./if_ftd_input_config_setter.intf.mjs");
await import("./if_ftd_invocation_answer.intf.mjs");
await import("./if_ftd_invocation_result.intf.mjs");
await import("./if_ftd_output_config_setter.intf.mjs");
await import("./if_ftd_output_configuration.intf.mjs");
await import("./if_function_test_environment.intf.mjs");
await import("./if_function_testdouble.intf.mjs");
await import("./if_http_client.intf.mjs");
await import("./if_http_entity.intf.mjs");
await import("./if_http_extension.intf.mjs");
await import("./if_http_request.intf.mjs");
await import("./if_http_response.intf.mjs");
await import("./if_http_server.intf.mjs");
await import("./if_http_utility.intf.mjs");
await import("./if_icf_tree.intf.mjs");
await import("./if_ixml.intf.mjs");
await import("./if_ixml_attribute.intf.mjs");
await import("./if_ixml_document.intf.mjs");
await import("./if_ixml_element.intf.mjs");
await import("./if_ixml_encoding.intf.mjs");
await import("./if_ixml_istream.intf.mjs");
await import("./if_ixml_named_node_map.intf.mjs");
await import("./if_ixml_node.intf.mjs");
await import("./if_ixml_node_collection.intf.mjs");
await import("./if_ixml_node_filter.intf.mjs");
await import("./if_ixml_node_iterator.intf.mjs");
await import("./if_ixml_node_list.intf.mjs");
await import("./if_ixml_ostream.intf.mjs");
await import("./if_ixml_parse_error.intf.mjs");
await import("./if_ixml_parser.intf.mjs");
await import("./if_ixml_renderer.intf.mjs");
await import("./if_ixml_stream_factory.intf.mjs");
await import("./if_ixml_unknown.intf.mjs");
await import("./if_message.intf.mjs");
await import("./if_mr_api.intf.mjs");
await import("./if_oauth2_client.intf.mjs");
await import("./if_oo_adt_classrun.intf.mjs");
await import("./if_oo_adt_classrun_out.intf.mjs");
await import("./if_oo_clif_source.intf.mjs");
await import("./if_osql_test_environment.intf.mjs");
await import("./if_package.intf.mjs");
await import("./if_recipient_bcs.intf.mjs");
await import("./if_salv_c_aggregation.intf.mjs");
await import("./if_salv_c_bool_sap.intf.mjs");
await import("./if_salv_c_cell_type.intf.mjs");
await import("./if_salv_c_selection_mode.intf.mjs");
await import("./if_sender_bcs.intf.mjs");
await import("./if_serializable_object.intf.mjs");
await import("./if_shm_build_instance.intf.mjs");
await import("./if_shm_trace.intf.mjs");
await import("./if_sxml.intf.mjs");
await import("./if_sxml_attribute.intf.mjs");
await import("./if_sxml_close_element.intf.mjs");
await import("./if_sxml_named.intf.mjs");
await import("./if_sxml_node.intf.mjs");
await import("./if_sxml_open_element.intf.mjs");
await import("./if_sxml_reader.intf.mjs");
await import("./if_sxml_value.intf.mjs");
await import("./if_sxml_value_node.intf.mjs");
await import("./if_sxml_writer.intf.mjs");
await import("./if_sxmlp_factory.intf.mjs");
await import("./if_sxmlp_list.intf.mjs");
await import("./if_sxmlp_part.intf.mjs");
await import("./if_sxmlp_simple.intf.mjs");
await import("./if_system_uuid_rfc4122_static.intf.mjs");
await import("./if_system_uuid_static.intf.mjs");
await import("./if_t100_dyn_msg.intf.mjs");
await import("./if_t100_message.intf.mjs");
await import("./ihttpnvp.tabl.mjs");
await import("./int1.dtel.mjs");
await import("./int2.dtel.mjs");
await import("./int4.dtel.mjs");
await import("./kernel_authority_check.clas.mjs");
await import("./kernel_call.clas.mjs");
await import("./kernel_call_transformation.clas.mjs");
await import("./kernel_create_data_handle.clas.mjs");
await import("./kernel_cx_assert.clas.mjs");
await import("./kernel_fugr_test.clas.mjs");
await import("./kernel_internal_name.clas.mjs");
await import("./kernel_ixml_json_to_data.clas.mjs");
await import("./kernel_ixml_xml_to_data.clas.mjs");
await import("./kernel_json_to_ixml.clas.mjs");
await import("./kernel_lock.clas.mjs");
await import("./kernel_numberrange.clas.mjs");
await import("./kernel_push_channels.clas.mjs");
await import("./kernel_scan_abap_source.clas.mjs");
await import("./kernel_unit_runner.clas.mjs");
await import("./ko100.tabl.mjs");
await import("./laiso.dtel.mjs");
await import("./land1.dtel.mjs");
await import("./langu.dtel.mjs");
await import("./lvc_index.dtel.mjs");
await import("./lvc_nkey.dtel.mjs");
await import("./lvc_nokeyc.dtel.mjs");
await import("./lvc_s_col.tabl.mjs");
await import("./lvc_s_colo.tabl.mjs");
await import("./lvc_s_fcat.tabl.mjs");
await import("./lvc_s_layo.tabl.mjs");
await import("./lvc_s_roid.tabl.mjs");
await import("./lvc_s_row.tabl.mjs");
await import("./lvc_s_scol.tabl.mjs");
await import("./lvc_t_fcat.ttyp.mjs");
await import("./lvc_t_nkey.ttyp.mjs");
await import("./lvc_t_roid.ttyp.mjs");
await import("./lvc_t_row.ttyp.mjs");
await import("./lvc_t_scol.ttyp.mjs");
await import("./lvc_title.dtel.mjs");
await import("./lvc_value.dtel.mjs");
await import("./lxe_pcx_s1.tabl.mjs");
await import("./lxecustmnr.dtel.mjs");
await import("./lxeisolang.dtel.mjs");
await import("./lxeobjname.dtel.mjs");
await import("./lxetextkey.dtel.mjs");
await import("./lxetexttype.dtel.mjs");
await import("./lxeunitlin.dtel.mjs");
await import("./lxeunitmlt.dtel.mjs");
await import("./lxeuppcase.dtel.mjs");
await import("./mandt.dtel.mjs");
await import("./match_result.tabl.mjs");
await import("./match_result_tab.ttyp.mjs");
await import("./matnr.dtel.mjs");
await import("./meins.dtel.mjs");
await import("./menge_d.dtel.mjs");
await import("./mimetypes.tabl.mjs");
await import("./msehi.dtel.mjs");
await import("./namespace.dtel.mjs");
await import("./number_get_next.fugr.mjs");
await import("./numc4.dtel.mjs");
await import("./oa2c_configuration.dtel.mjs");
await import("./oa2c_granttype.dtel.mjs");
await import("./oa2c_profile.dtel.mjs");
await import("./openabap.fugr.mjs");
await import("./parentcl.dtel.mjs");
await import("./progdir.tabl.mjs");
await import("./progname.dtel.mjs");
await import("./r3state.dtel.mjs");
await import("./reposrc.tabl.mjs");
await import("./rfcdest.dtel.mjs");
await import("./rswsourcet.ttyp.mjs");
await import("./rzlli_apcl.dtel.mjs");
await import("./salv_s_int4_column.tabl.mjs");
await import("./salv_s_layout_info.tabl.mjs");
await import("./salv_t_int4_column.ttyp.mjs");
await import("./salv_t_layout_info.ttyp.mjs");
await import("./sappatchlv.dtel.mjs");
await import("./saprelease.dtel.mjs");
await import("./sci_chkv.dtel.mjs");
await import("./scompkdtln.tabl.mjs");
await import("./scrtext_l.dtel.mjs");
await import("./scrtext_m.dtel.mjs");
await import("./scrtext_s.dtel.mjs");
await import("./scx_attrname.dtel.mjs");
await import("./scx_t100key.tabl.mjs");
await import("./sdok_class.dtel.mjs");
await import("./sdok_docid.dtel.mjs");
await import("./sdokobject.tabl.mjs");
await import("./seobusobj.dtel.mjs");
await import("./seoc.type.mjs");
await import("./seoclasstx.tabl.mjs");
await import("./seoclskey.tabl.mjs");
await import("./seoclsname.dtel.mjs");
await import("./seocmpname.dtel.mjs");
await import("./seocmptype.dtel.mjs");
await import("./seocompo.tabl.mjs");
await import("./seocompotx.tabl.mjs");
await import("./seodescr.dtel.mjs");
await import("./seoexpose.dtel.mjs");
await import("./seokeyfld.dtel.mjs");
await import("./seometarel.tabl.mjs");
await import("./seoo.type.mjs");
await import("./seop.type.mjs");
await import("./seos.type.mjs");
await import("./seosconame.dtel.mjs");
await import("./seoscotype.dtel.mjs");
await import("./seosubco.tabl.mjs");
await import("./seosubcotx.tabl.mjs");
await import("./seox.type.mjs");
await import("./shm_affect_server.dtel.mjs");
await import("./shm_area_name.dtel.mjs");
await import("./shm_attach_mode.dtel.mjs");
await import("./shm_auto_build_class_name.dtel.mjs");
await import("./shm_client.dtel.mjs");
await import("./shm_constr_invocation_mode.dtel.mjs");
await import("./shm_inst_info.tabl.mjs");
await import("./shm_inst_infos.ttyp.mjs");
await import("./shm_inst_name.dtel.mjs");
await import("./shm_life_context.dtel.mjs");
await import("./shm_properties.tabl.mjs");
await import("./shm_rc.dtel.mjs");
await import("./shma_attributes.tabl.mjs");
await import("./shma_client.dtel.mjs");
await import("./shmm_trc_variant_name.dtel.mjs");
await import("./skwf_io.tabl.mjs");
await import("./skwf_ioty.dtel.mjs");
await import("./smp_dyntxt.tabl.mjs");
await import("./so_raw255.dtel.mjs");
await import("./so_text255.dtel.mjs");
await import("./sobj_name.dtel.mjs");
await import("./soli.tabl.mjs");
await import("./soli_tab.ttyp.mjs");
await import("./solix.tabl.mjs");
await import("./solix_tab.ttyp.mjs");
await import("./sotr_conc.dtel.mjs");
await import("./sotr_headu.tabl.mjs");
await import("./spras.dtel.mjs");
await import("./srext.type.mjs");
await import("./ssfapplssl.dtel.mjs");
await import("./sstmnt.tabl.mjs");
await import("./sstmnt_tab.ttyp.mjs");
await import("./sstruc.tabl.mjs");
await import("./sstruc_tab.ttyp.mjs");
await import("./stb_button.tabl.mjs");
await import("./stokes.tabl.mjs");
await import("./stokes_tab.ttyp.mjs");
await import("./stokesx.tabl.mjs");
await import("./string_table.ttyp.mjs");
await import("./stringtab.ttyp.mjs");
await import("./submatch_result.tabl.mjs");
await import("./submatch_result_tab.ttyp.mjs");
await import("./sval.tabl.mjs");
await import("./sxco_fm_name.dtel.mjs");
await import("./sxco_transport.dtel.mjs");
await import("./sydate.dtel.mjs");
await import("./symsg.tabl.mjs");
await import("./symsgid.dtel.mjs");
await import("./symsgno.dtel.mjs");
await import("./symsgty.dtel.mjs");
await import("./symsgv.dtel.mjs");
await import("./syrepid.dtel.mjs");
await import("./syst_host.dtel.mjs");
await import("./sysubrc.dtel.mjs");
await import("./sysuuid_c22.dtel.mjs");
await import("./sysuuid_c32.dtel.mjs");
await import("./sysuuid_c36.dtel.mjs");
await import("./sysuuid_x16.dtel.mjs");
await import("./syuname.dtel.mjs");
await import("./t000.tabl.mjs");
await import("./t100.tabl.mjs");
await import("./tabfdpos.dtel.mjs");
await import("./tabname.dtel.mjs");
await import("./tadir.tabl.mjs");
await import("./tcdrs.tabl.mjs");
await import("./tddat.tabl.mjs");
await import("./tdevc.tabl.mjs");
await import("./tdline.dtel.mjs");
await import("./text20.dtel.mjs");
await import("./text200.dtel.mjs");
await import("./text255.dtel.mjs");
await import("./text30.dtel.mjs");
await import("./text80.dtel.mjs");
await import("./textpool.tabl.mjs");
await import("./tfdir.tabl.mjs");
await import("./thead.tabl.mjs");
await import("./tihttpnvp.ttyp.mjs");
await import("./timestamp.dtel.mjs");
await import("./timestampl.dtel.mjs");
await import("./timezone.dtel.mjs");
await import("./timn.dtel.mjs");
await import("./tline.tabl.mjs");
await import("./tline_tab.ttyp.mjs");
await import("./tlinetab.ttyp.mjs");
await import("./treev_hhdr.tabl.mjs");
await import("./trfunction.dtel.mjs");
await import("./trkorr.dtel.mjs");
await import("./trnspace.tabl.mjs");
await import("./trobjtype.dtel.mjs");
await import("./ttb_button.ttyp.mjs");
await import("./tzntstmpl.dtel.mjs");
await import("./tzntstmps.dtel.mjs");
await import("./uccheck.dtel.mjs");
await import("./ui_func.dtel.mjs");
await import("./ui_functions.ttyp.mjs");
await import("./uname.dtel.mjs");
await import("./usnam.dtel.mjs");
await import("./vseointerf.tabl.mjs");
await import("./w3mime.tabl.mjs");
await import("./waers.dtel.mjs");
await import("./waers_curc.dtel.mjs");
await import("./wwwdatatab.tabl.mjs");
await import("./wwwparams.tabl.mjs");
await import("./xfeld.dtel.mjs");
await import("./xsdboolean.dtel.mjs");
await import("./xsddatetime_z.dtel.mjs");
await import("./xsdtime_t.dtel.mjs");
await import("./zabapgit.tabl.mjs");
await import("./zabapgit_css_common.w3mi.mjs");
await import("./zabapgit_css_page_db.w3mi.mjs");
await import("./zabapgit_css_page_db_entry.w3mi.mjs");
await import("./zabapgit_css_theme_belize_blue.w3mi.mjs");
await import("./zabapgit_css_theme_dark.w3mi.mjs");
await import("./zabapgit_css_theme_default.w3mi.mjs");
await import("./zabapgit_icon_font.w3mi.mjs");
await import("./zabapgit_icon_font_css.w3mi.mjs");
await import("./zabapgit_js_common.w3mi.mjs");
await import("./zcl_abapgit_abap_language_vers.clas.mjs");
await import("./zcl_abapgit_adt_link.clas.mjs");
await import("./zcl_abapgit_aff_registry.clas.mjs");
await import("./zcl_abapgit_ajson.clas.mjs");
await import("./zcl_abapgit_ajson_filter_lib.clas.mjs");
await import("./zcl_abapgit_ajson_mapping.clas.mjs");
await import("./zcl_abapgit_ajson_utilities.clas.mjs");
await import("./zcl_abapgit_apack_helper.clas.mjs");
await import("./zcl_abapgit_apack_reader.clas.mjs");
await import("./zcl_abapgit_apack_writer.clas.mjs");
await import("./zcl_abapgit_auth.clas.mjs");
await import("./zcl_abapgit_background.clas.mjs");
await import("./zcl_abapgit_background_pull.clas.mjs");
await import("./zcl_abapgit_background_push_au.clas.mjs");
await import("./zcl_abapgit_background_push_fi.clas.mjs");
await import("./zcl_abapgit_code_inspector.clas.mjs");
await import("./zcl_abapgit_convert.clas.mjs");
await import("./zcl_abapgit_cts_api.clas.mjs");
await import("./zcl_abapgit_data_config.clas.mjs");
await import("./zcl_abapgit_data_deserializer.clas.mjs");
await import("./zcl_abapgit_data_factory.clas.mjs");
await import("./zcl_abapgit_data_injector.clas.mjs");
await import("./zcl_abapgit_data_serializer.clas.mjs");
await import("./zcl_abapgit_data_supporter.clas.mjs");
await import("./zcl_abapgit_data_utils.clas.mjs");
await import("./zcl_abapgit_default_transport.clas.mjs");
await import("./zcl_abapgit_dependencies.clas.mjs");
await import("./zcl_abapgit_diff.clas.mjs");
await import("./zcl_abapgit_dot_abapgit.clas.mjs");
await import("./zcl_abapgit_environment.clas.mjs");
await import("./zcl_abapgit_exception_viewer.clas.mjs");
await import("./zcl_abapgit_exit.clas.mjs");
await import("./zcl_abapgit_factory.clas.mjs");
await import("./zcl_abapgit_feature.clas.mjs");
await import("./zcl_abapgit_field_rules.clas.mjs");
await import("./zcl_abapgit_file_deserialize.clas.mjs");
await import("./zcl_abapgit_filename_logic.clas.mjs");
await import("./zcl_abapgit_flow_exit.clas.mjs");
await import("./zcl_abapgit_folder_logic.clas.mjs");
await import("./zcl_abapgit_frontend_no_gui.clas.mjs");
await import("./zcl_abapgit_frontend_services.clas.mjs");
await import("./zcl_abapgit_function_module.clas.mjs");
await import("./zcl_abapgit_git_add_patch.clas.mjs");
await import("./zcl_abapgit_git_branch_list.clas.mjs");
await import("./zcl_abapgit_git_commit.clas.mjs");
await import("./zcl_abapgit_git_factory.clas.mjs");
await import("./zcl_abapgit_git_injector.clas.mjs");
await import("./zcl_abapgit_git_pack.clas.mjs");
await import("./zcl_abapgit_git_porcelain.clas.mjs");
await import("./zcl_abapgit_git_tag.clas.mjs");
await import("./zcl_abapgit_git_time.clas.mjs");
await import("./zcl_abapgit_git_transport.clas.mjs");
await import("./zcl_abapgit_git_url.clas.mjs");
await import("./zcl_abapgit_git_utils.clas.mjs");
await import("./zcl_abapgit_gitv2_porcelain.clas.mjs");
await import("./zcl_abapgit_gui.clas.mjs");
await import("./zcl_abapgit_gui_asset_manager.clas.mjs");
await import("./zcl_abapgit_gui_buttons.clas.mjs");
await import("./zcl_abapgit_gui_component.clas.mjs");
await import("./zcl_abapgit_gui_css_processor.clas.mjs");
await import("./zcl_abapgit_gui_hotkey_ctl.clas.mjs");
await import("./zcl_abapgit_gui_html_processor.clas.mjs");
await import("./zcl_abapgit_gui_in_page_modal.clas.mjs");
await import("./zcl_abapgit_gui_jumper.clas.mjs");
await import("./zcl_abapgit_gui_menus.clas.mjs");
await import("./zcl_abapgit_gui_page.clas.mjs");
await import("./zcl_abapgit_gui_page_addofflin.clas.mjs");
await import("./zcl_abapgit_gui_page_addonline.clas.mjs");
await import("./zcl_abapgit_gui_page_code_insp.clas.mjs");
await import("./zcl_abapgit_gui_page_codi_base.clas.mjs");
await import("./zcl_abapgit_gui_page_commit.clas.mjs");
await import("./zcl_abapgit_gui_page_data.clas.mjs");
await import("./zcl_abapgit_gui_page_db.clas.mjs");
await import("./zcl_abapgit_gui_page_db_entry.clas.mjs");
await import("./zcl_abapgit_gui_page_debuginfo.clas.mjs");
await import("./zcl_abapgit_gui_page_diff.clas.mjs");
await import("./zcl_abapgit_gui_page_diff_base.clas.mjs");
await import("./zcl_abapgit_gui_page_ex_object.clas.mjs");
await import("./zcl_abapgit_gui_page_ex_pckage.clas.mjs");
await import("./zcl_abapgit_gui_page_flow.clas.mjs");
await import("./zcl_abapgit_gui_page_hoc.clas.mjs");
await import("./zcl_abapgit_gui_page_merge.clas.mjs");
await import("./zcl_abapgit_gui_page_merge_res.clas.mjs");
await import("./zcl_abapgit_gui_page_merge_sel.clas.mjs");
await import("./zcl_abapgit_gui_page_patch.clas.mjs");
await import("./zcl_abapgit_gui_page_pull.clas.mjs");
await import("./zcl_abapgit_gui_page_repo_over.clas.mjs");
await import("./zcl_abapgit_gui_page_repo_view.clas.mjs");
await import("./zcl_abapgit_gui_page_run_bckg.clas.mjs");
await import("./zcl_abapgit_gui_page_runit.clas.mjs");
await import("./zcl_abapgit_gui_page_sett_bckg.clas.mjs");
await import("./zcl_abapgit_gui_page_sett_glob.clas.mjs");
await import("./zcl_abapgit_gui_page_sett_info.clas.mjs");
await import("./zcl_abapgit_gui_page_sett_locl.clas.mjs");
await import("./zcl_abapgit_gui_page_sett_pers.clas.mjs");
await import("./zcl_abapgit_gui_page_sett_remo.clas.mjs");
await import("./zcl_abapgit_gui_page_sett_repo.clas.mjs");
await import("./zcl_abapgit_gui_page_stage.clas.mjs");
await import("./zcl_abapgit_gui_page_syntax.clas.mjs");
await import("./zcl_abapgit_gui_page_tags.clas.mjs");
await import("./zcl_abapgit_gui_page_template.clas.mjs");
await import("./zcl_abapgit_gui_page_tutorial.clas.mjs");
await import("./zcl_abapgit_gui_page_whereused.clas.mjs");
await import("./zcl_abapgit_gui_picklist.clas.mjs");
await import("./zcl_abapgit_gui_router.clas.mjs");
await import("./zcl_abapgit_gui_utils.clas.mjs");
await import("./zcl_abapgit_hash.clas.mjs");
await import("./zcl_abapgit_html_action_utils.clas.mjs");
await import("./zcl_abapgit_html_form.clas.mjs");
await import("./zcl_abapgit_html_form_utils.clas.mjs");
await import("./zcl_abapgit_html_parts.clas.mjs");
await import("./zcl_abapgit_html_table.clas.mjs");
await import("./zcl_abapgit_html_toolbar.clas.mjs");
await import("./zcl_abapgit_html_viewer_gui.clas.mjs");
await import("./zcl_abapgit_http.clas.mjs");
await import("./zcl_abapgit_http_agent.clas.mjs");
await import("./zcl_abapgit_http_client.clas.mjs");
await import("./zcl_abapgit_http_digest.clas.mjs");
await import("./zcl_abapgit_i18n_params.clas.mjs");
await import("./zcl_abapgit_injector.clas.mjs");
await import("./zcl_abapgit_item_graph.clas.mjs");
await import("./zcl_abapgit_json_handler.clas.mjs");
await import("./zcl_abapgit_json_path.clas.mjs");
await import("./zcl_abapgit_log.clas.mjs");
await import("./zcl_abapgit_log_viewer.clas.mjs");
await import("./zcl_abapgit_login_manager.clas.mjs");
await import("./zcl_abapgit_longtexts.clas.mjs");
await import("./zcl_abapgit_object_devc.clas.mjs");
await import("./zcl_abapgit_object_intf.clas.mjs");
await import("./zcl_abapgit_object_tabl_ddl.clas.mjs");
await import("./zcl_abapgit_objects.clas.mjs");
await import("./zcl_abapgit_objects_bridge.clas.mjs");
await import("./zcl_abapgit_objects_files.clas.mjs");
await import("./zcl_abapgit_objects_program.clas.mjs");
await import("./zcl_abapgit_objects_super.clas.mjs");
await import("./zcl_abapgit_oo_base.clas.mjs");
await import("./zcl_abapgit_oo_factory.clas.mjs");
await import("./zcl_abapgit_oo_interface.clas.mjs");
await import("./zcl_abapgit_password_dialog.clas.mjs");
await import("./zcl_abapgit_path.clas.mjs");
await import("./zcl_abapgit_persist_background.clas.mjs");
await import("./zcl_abapgit_persist_factory.clas.mjs");
await import("./zcl_abapgit_persist_injector.clas.mjs");
await import("./zcl_abapgit_persist_migrate.clas.mjs");
await import("./zcl_abapgit_persist_packages.clas.mjs");
await import("./zcl_abapgit_persist_settings.clas.mjs");
await import("./zcl_abapgit_persistence_db.clas.mjs");
await import("./zcl_abapgit_persistence_repo.clas.mjs");
await import("./zcl_abapgit_persistence_user.clas.mjs");
await import("./zcl_abapgit_po_file.clas.mjs");
await import("./zcl_abapgit_popup_branch_list.clas.mjs");
await import("./zcl_abapgit_popup_code_insp.clas.mjs");
await import("./zcl_abapgit_popup_pull_request.clas.mjs");
await import("./zcl_abapgit_popup_tag_list.clas.mjs");
await import("./zcl_abapgit_popups.clas.mjs");
await import("./zcl_abapgit_pr_enum_github.clas.mjs");
await import("./zcl_abapgit_pr_enumerator.clas.mjs");
await import("./zcl_abapgit_progress.clas.mjs");
await import("./zcl_abapgit_properties_file.clas.mjs");
await import("./zcl_abapgit_proxy_auth.clas.mjs");
await import("./zcl_abapgit_proxy_config.clas.mjs");
await import("./zcl_abapgit_repo.clas.mjs");
await import("./zcl_abapgit_repo_checksums.clas.mjs");
await import("./zcl_abapgit_repo_content_list.clas.mjs");
await import("./zcl_abapgit_repo_cs_migration.clas.mjs");
await import("./zcl_abapgit_repo_filter.clas.mjs");
await import("./zcl_abapgit_repo_item_state.clas.mjs");
await import("./zcl_abapgit_repo_news.clas.mjs");
await import("./zcl_abapgit_repo_offline.clas.mjs");
await import("./zcl_abapgit_repo_online.clas.mjs");
await import("./zcl_abapgit_repo_requirements.clas.mjs");
await import("./zcl_abapgit_repo_srv.clas.mjs");
await import("./zcl_abapgit_repo_status.clas.mjs");
await import("./zcl_abapgit_sap_namespace.clas.mjs");
await import("./zcl_abapgit_sap_package.clas.mjs");
await import("./zcl_abapgit_sap_report.clas.mjs");
await import("./zcl_abapgit_serialize.clas.mjs");
await import("./zcl_abapgit_services_abapgit.clas.mjs");
await import("./zcl_abapgit_services_git.clas.mjs");
await import("./zcl_abapgit_services_repo.clas.mjs");
await import("./zcl_abapgit_settings.clas.mjs");
await import("./zcl_abapgit_sotr_handler.clas.mjs");
await import("./zcl_abapgit_sots_handler.clas.mjs");
await import("./zcl_abapgit_stage.clas.mjs");
await import("./zcl_abapgit_stage_logic.clas.mjs");
await import("./zcl_abapgit_string_buffer.clas.mjs");
await import("./zcl_abapgit_string_map.clas.mjs");
await import("./zcl_abapgit_syntax_factory.clas.mjs");
await import("./zcl_abapgit_syntax_highlighter.clas.mjs");
await import("./zcl_abapgit_syntax_json.clas.mjs");
await import("./zcl_abapgit_syntax_txt.clas.mjs");
await import("./zcl_abapgit_syntax_xml.clas.mjs");
await import("./zcl_abapgit_tadir.clas.mjs");
await import("./zcl_abapgit_timer.clas.mjs");
await import("./zcl_abapgit_transport.clas.mjs");
await import("./zcl_abapgit_transport_2_branch.clas.mjs");
await import("./zcl_abapgit_transport_mass.clas.mjs");
await import("./zcl_abapgit_transport_objects.clas.mjs");
await import("./zcl_abapgit_ui_factory.clas.mjs");
await import("./zcl_abapgit_ui_injector.clas.mjs");
await import("./zcl_abapgit_url.clas.mjs");
await import("./zcl_abapgit_user_record.clas.mjs");
await import("./zcl_abapgit_utils.clas.mjs");
await import("./zcl_abapgit_version.clas.mjs");
await import("./zcl_abapgit_xml.clas.mjs");
await import("./zcl_abapgit_xml_input.clas.mjs");
await import("./zcl_abapgit_xml_output.clas.mjs");
await import("./zcl_abapgit_xml_pretty.clas.mjs");
await import("./zcl_abapgit_zip.clas.mjs");
await import("./zcl_abapgit_zlib.clas.mjs");
await import("./zcl_abapgit_zlib_convert.clas.mjs");
await import("./zcl_abapgit_zlib_huffman.clas.mjs");
await import("./zcl_abapgit_zlib_stream.clas.mjs");
await import("./zcx_abapgit_ajson_error.clas.mjs");
await import("./zcx_abapgit_cancel.clas.mjs");
await import("./zcx_abapgit_exception.clas.mjs");
await import("./zcx_abapgit_not_found.clas.mjs");
await import("./zif_abapgit_aff_intf_v1.intf.mjs");
await import("./zif_abapgit_aff_oo_types_v1.intf.mjs");
await import("./zif_abapgit_aff_registry.intf.mjs");
await import("./zif_abapgit_aff_type_mapping.intf.mjs");
await import("./zif_abapgit_aff_types_v1.intf.mjs");
await import("./zif_abapgit_ajson.intf.mjs");
await import("./zif_abapgit_ajson_filter.intf.mjs");
await import("./zif_abapgit_ajson_mapping.intf.mjs");
await import("./zif_abapgit_ajson_types.intf.mjs");
await import("./zif_abapgit_apack_definitions.intf.mjs");
await import("./zif_abapgit_auth.intf.mjs");
await import("./zif_abapgit_background.intf.mjs");
await import("./zif_abapgit_code_inspector.intf.mjs");
await import("./zif_abapgit_comparator.intf.mjs");
await import("./zif_abapgit_cts_api.intf.mjs");
await import("./zif_abapgit_data_config.intf.mjs");
await import("./zif_abapgit_data_deserializer.intf.mjs");
await import("./zif_abapgit_data_serializer.intf.mjs");
await import("./zif_abapgit_data_supporter.intf.mjs");
await import("./zif_abapgit_default_transport.intf.mjs");
await import("./zif_abapgit_definitions.intf.mjs");
await import("./zif_abapgit_dot_abapgit.intf.mjs");
await import("./zif_abapgit_ecatt.intf.mjs");
await import("./zif_abapgit_ecatt_download.intf.mjs");
await import("./zif_abapgit_ecatt_upload.intf.mjs");
await import("./zif_abapgit_environment.intf.mjs");
await import("./zif_abapgit_exit.intf.mjs");
await import("./zif_abapgit_field_rules.intf.mjs");
await import("./zif_abapgit_flow_exit.intf.mjs");
await import("./zif_abapgit_frontend_services.intf.mjs");
await import("./zif_abapgit_function_module.intf.mjs");
await import("./zif_abapgit_git_definitions.intf.mjs");
await import("./zif_abapgit_git_transport.intf.mjs");
await import("./zif_abapgit_gitv2_porcelain.intf.mjs");
await import("./zif_abapgit_gui_asset_manager.intf.mjs");
await import("./zif_abapgit_gui_error_handler.intf.mjs");
await import("./zif_abapgit_gui_event.intf.mjs");
await import("./zif_abapgit_gui_event_handler.intf.mjs");
await import("./zif_abapgit_gui_hotkey_ctl.intf.mjs");
await import("./zif_abapgit_gui_hotkeys.intf.mjs");
await import("./zif_abapgit_gui_html_processor.intf.mjs");
await import("./zif_abapgit_gui_jumper.intf.mjs");
await import("./zif_abapgit_gui_menu_provider.intf.mjs");
await import("./zif_abapgit_gui_modal.intf.mjs");
await import("./zif_abapgit_gui_page_flow.intf.mjs");
await import("./zif_abapgit_gui_page_title.intf.mjs");
await import("./zif_abapgit_gui_render_item.intf.mjs");
await import("./zif_abapgit_gui_renderable.intf.mjs");
await import("./zif_abapgit_gui_services.intf.mjs");
await import("./zif_abapgit_html.intf.mjs");
await import("./zif_abapgit_html_form.intf.mjs");
await import("./zif_abapgit_html_popup.intf.mjs");
await import("./zif_abapgit_html_table.intf.mjs");
await import("./zif_abapgit_html_viewer.intf.mjs");
await import("./zif_abapgit_http_agent.intf.mjs");
await import("./zif_abapgit_http_response.intf.mjs");
await import("./zif_abapgit_i18n_file.intf.mjs");
await import("./zif_abapgit_lang_definitions.intf.mjs");
await import("./zif_abapgit_log.intf.mjs");
await import("./zif_abapgit_longtexts.intf.mjs");
await import("./zif_abapgit_lxe_texts.intf.mjs");
await import("./zif_abapgit_merge.intf.mjs");
await import("./zif_abapgit_object.intf.mjs");
await import("./zif_abapgit_object_enho.intf.mjs");
await import("./zif_abapgit_object_enhs.intf.mjs");
await import("./zif_abapgit_object_filter.intf.mjs");
await import("./zif_abapgit_object_tabl.intf.mjs");
await import("./zif_abapgit_objects.intf.mjs");
await import("./zif_abapgit_oo_object_fnc.intf.mjs");
await import("./zif_abapgit_persist_repo.intf.mjs");
await import("./zif_abapgit_persist_repo_cs.intf.mjs");
await import("./zif_abapgit_persist_settings.intf.mjs");
await import("./zif_abapgit_persist_user.intf.mjs");
await import("./zif_abapgit_persistence.intf.mjs");
await import("./zif_abapgit_popups.intf.mjs");
await import("./zif_abapgit_pr_enum_provider.intf.mjs");
await import("./zif_abapgit_progress.intf.mjs");
await import("./zif_abapgit_repo.intf.mjs");
await import("./zif_abapgit_repo_checksums.intf.mjs");
await import("./zif_abapgit_repo_listener.intf.mjs");
await import("./zif_abapgit_repo_online.intf.mjs");
await import("./zif_abapgit_repo_srv.intf.mjs");
await import("./zif_abapgit_sap_namespace.intf.mjs");
await import("./zif_abapgit_sap_package.intf.mjs");
await import("./zif_abapgit_sap_report.intf.mjs");
await import("./zif_abapgit_services_git.intf.mjs");
await import("./zif_abapgit_services_repo.intf.mjs");
await import("./zif_abapgit_stage_logic.intf.mjs");
await import("./zif_abapgit_tadir.intf.mjs");
await import("./zif_abapgit_version.intf.mjs");
await import("./zif_abapgit_xml_input.intf.mjs");
await import("./zif_abapgit_xml_output.intf.mjs");
await import("./zw3mi.fugr.mjs");
await import("./zcl_abapgit_language.clas.mjs");
await import("./zcl_abapgit_lxe_texts.clas.mjs");
await import("./zcl_abapgit_repo_labels.clas.mjs");
await import("./zcl_abapgit_syntax_abap.clas.mjs");
await import("./zcl_abapgit_syntax_css.clas.mjs");
await import("./zcl_abapgit_syntax_js.clas.mjs");
await import("./zcl_abapgit_gui_event.clas.mjs");
await import("./zcl_abapgit_html.clas.mjs");
await import("./zcl_abapgit_gui_chunk_lib.clas.mjs");
export async function initializeABAP() {
const sqlite = [];
sqlite.push(`CREATE TABLE 'cvers' ('component' NCHAR(30) COLLATE RTRIM, 'release' NCHAR(10) COLLATE RTRIM, 'extrelease' NCHAR(10) COLLATE RTRIM, 'comp_type' NCHAR(1) COLLATE RTRIM, PRIMARY KEY('component'));`);
sqlite.push(`CREATE TABLE 'cvers_ref' ('component' NCHAR(30) COLLATE RTRIM, 'langu' NCHAR(1) COLLATE RTRIM, 'desc_text' NCHAR(80) COLLATE RTRIM, PRIMARY KEY('component','langu'));`);
sqlite.push(`CREATE TABLE 'dd02l' ('tabname' NCHAR(30) COLLATE RTRIM, 'as4local' NCHAR(1) COLLATE RTRIM, 'as4vers' NCHAR(4), 'tabclass' NCHAR(8) COLLATE RTRIM, 'sqltab' NCHAR(30) COLLATE RTRIM, 'as4user' NCHAR(12) COLLATE RTRIM, 'as4date' NCHAR(8), 'as4time' NCHAR(6), 'contflag' NCHAR(1) COLLATE RTRIM, PRIMARY KEY('tabname','as4local','as4vers'));`);
sqlite.push(`CREATE TABLE 'dd09l' ('tabname' NCHAR(30) COLLATE RTRIM, 'as4local' NCHAR(1) COLLATE RTRIM, 'as4vers' NCHAR(4), 'tabkat' NCHAR(2) COLLATE RTRIM, 'tabart' NCHAR(5) COLLATE RTRIM, 'as4user' NCHAR(12) COLLATE RTRIM, 'as4date' NCHAR(8), 'as4time' NCHAR(6), 'bufallow' NCHAR(1) COLLATE RTRIM, PRIMARY KEY('tabname','as4local','as4vers'));`);
sqlite.push(`CREATE TABLE 'dokhl' ('id' NCHAR(2) COLLATE RTRIM, 'object' NCHAR(60) COLLATE RTRIM, 'langu' NCHAR(1) COLLATE RTRIM, 'typ' NCHAR(1) COLLATE RTRIM, 'dokversion' NCHAR(4), 'dokstate' NCHAR(1) COLLATE RTRIM, 'dokform' NCHAR(16) COLLATE RTRIM, 'dokstyle' NCHAR(8) COLLATE RTRIM, 'dokfuser' NCHAR(12) COLLATE RTRIM, 'dokfreles' NCHAR(4) COLLATE RTRIM, 'dokfdate' NCHAR(8), 'dokftime' NCHAR(6), 'dokluser' NCHAR(12) COLLATE RTRIM, 'doklreles' NCHAR(4) COLLATE RTRIM, 'dokldate' NCHAR(8), 'dokltime' NCHAR(6), PRIMARY KEY('id','object','langu','typ','dokversion'));`);
sqlite.push(`CREATE TABLE 'dokil' ('id' NCHAR(2) COLLATE RTRIM, 'object' NCHAR(60) COLLATE RTRIM, 'langu' NCHAR(1) COLLATE RTRIM, 'typ' NCHAR(1) COLLATE RTRIM, 'version' NCHAR(4), 'masterlang' NCHAR(1) COLLATE RTRIM, 'txtlines' NCHAR(5), 'dokstate' NCHAR(1) COLLATE RTRIM, 'selfdef' NCHAR(1) COLLATE RTRIM, PRIMARY KEY('id','object','langu','typ'));`);
sqlite.push(`CREATE TABLE 'progdir' ('name' NCHAR(40) COLLATE RTRIM, 'state' NCHAR(1) COLLATE RTRIM, 'sqlx' NCHAR(1) COLLATE RTRIM, 'edtx' NCHAR(1) COLLATE RTRIM, 'varcl' NCHAR(1) COLLATE RTRIM, 'dbapl' NCHAR(1) COLLATE RTRIM, 'dbna' NCHAR(2) COLLATE RTRIM, 'clas' NCHAR(4) COLLATE RTRIM, 'type' NCHAR(3) COLLATE RTRIM, 'occurs' NCHAR(1) COLLATE RTRIM, 'subc' NCHAR(1) COLLATE RTRIM, 'appl' NCHAR(1) COLLATE RTRIM, 'secu' NCHAR(8) COLLATE RTRIM, 'cnam' NCHAR(12) COLLATE RTRIM, 'cdat' NCHAR(8), 'unam' NCHAR(12) COLLATE RTRIM, 'udat' NCHAR(8), 'vern' NCHAR(6) COLLATE RTRIM, 'levl' NCHAR(4) COLLATE RTRIM, 'rstat' NCHAR(1) COLLATE RTRIM, 'rmand' NCHAR(3) COLLATE RTRIM, 'rload' NCHAR(1) COLLATE RTRIM, 'fixpt' NCHAR(1) COLLATE RTRIM, 'sset' NCHAR(1) COLLATE RTRIM, 'sdate' NCHAR(8), 'stime' NCHAR(6) COLLATE RTRIM, 'idate' NCHAR(8), 'itime' NCHAR(6) COLLATE RTRIM, 'ldbname' NCHAR(20) COLLATE RTRIM, 'uccheck' NCHAR(1) COLLATE RTRIM, PRIMARY KEY('name','state'));`);
sqlite.push(`CREATE TABLE 'seoclasstx' ('clsname' NCHAR(30) COLLATE RTRIM, 'langu' NCHAR(1) COLLATE RTRIM, 'descript' NCHAR(60) COLLATE RTRIM, PRIMARY KEY('clsname','langu'));`);
sqlite.push(`CREATE TABLE 'seocompo' ('clsname' NCHAR(30) COLLATE RTRIM, 'cmpname' NCHAR(30) COLLATE RTRIM, 'cmptype' NCHAR(1), 'mtdtype' NCHAR(1), PRIMARY KEY('clsname','cmpname'));`);
sqlite.push(`CREATE TABLE 'seocompotx' ('clsname' NCHAR(30) COLLATE RTRIM, 'cmpname' NCHAR(30) COLLATE RTRIM, 'langu' NCHAR(1) COLLATE RTRIM, 'descript' NCHAR(60) COLLATE RTRIM, PRIMARY KEY('clsname','cmpname','langu'));`);
sqlite.push(`CREATE TABLE 'seometarel' ('clsname' NCHAR(30) COLLATE RTRIM, 'refclsname' NCHAR(30) COLLATE RTRIM, 'version' NCHAR(1) COLLATE RTRIM, PRIMARY KEY('clsname','refclsname','version'));`);
sqlite.push(`CREATE TABLE 'seosubco' ('clsname' NCHAR(30) COLLATE RTRIM, 'cmpname' NCHAR(30) COLLATE RTRIM, 'sconame' NCHAR(30) COLLATE RTRIM, 'cmptype' NCHAR(1), 'mtdtype' NCHAR(1), 'scotype' NCHAR(1), PRIMARY KEY('clsname','cmpname','sconame'));`);
sqlite.push(`CREATE TABLE 'seosubcotx' ('clsname' NCHAR(30) COLLATE RTRIM, 'cmpname' NCHAR(30) COLLATE RTRIM, 'sconame' NCHAR(30) COLLATE RTRIM, 'langu' NCHAR(1) COLLATE RTRIM, 'descript' NCHAR(60) COLLATE RTRIM, PRIMARY KEY('clsname','cmpname','sconame','langu'));`);
sqlite.push(`CREATE TABLE 'sotr_headu' ('concept' NCHAR(32) COLLATE RTRIM, 'paket' NCHAR(30) COLLATE RTRIM, 'crea_name' NCHAR(12) COLLATE RTRIM, 'crea_tstut' NCHAR(14), 'chan_name' NCHAR(12) COLLATE RTRIM, 'chan_tstut' NCHAR(14), 'system_id' NCHAR(8) COLLATE RTRIM, 'objid_vec' NCHAR(20), 'crea_lan' NCHAR(1) COLLATE RTRIM, 'alias_name' NCHAR(50) COLLATE RTRIM, PRIMARY KEY('concept'));`);
sqlite.push(`CREATE TABLE 'tddat' ('tabname' NCHAR(30) COLLATE RTRIM, 'mclass' NCHAR(4) COLLATE RTRIM, 'cclass' NCHAR(14) COLLATE RTRIM, 'flag' NCHAR(1) COLLATE RTRIM, PRIMARY KEY('tabname'));`);
sqlite.push(`CREATE TABLE 'trnspace' ('namespace' NCHAR(10) COLLATE RTRIM, 'editflag' NCHAR(1) COLLATE RTRIM, PRIMARY KEY('namespace'));`);
sqlite.push(`CREATE TABLE 'zabapgit' ('type' NCHAR(12) COLLATE RTRIM, 'value' NCHAR(12) COLLATE RTRIM, 'data_str' TEXT COLLATE RTRIM, PRIMARY KEY('type','value'));`);
sqlite.push(`CREATE TABLE 't000' ('mandt' NCHAR(3) COLLATE RTRIM, 'cccategory' NCHAR(1) COLLATE RTRIM, 'ccnocliind' NCHAR(1) COLLATE RTRIM, 'mtext' NCHAR(25) COLLATE RTRIM, PRIMARY KEY('mandt'));`);
sqlite.push(`CREATE TABLE 't100' ('sprsl' NCHAR(1) COLLATE RTRIM, 'arbgb' NCHAR(20) COLLATE RTRIM, 'msgnr' NCHAR(3) COLLATE RTRIM, 'text' NCHAR(73) COLLATE RTRIM, PRIMARY KEY('sprsl','arbgb','msgnr'));`);
sqlite.push(`CREATE TABLE 'tadir' ('pgmid' NCHAR(4) COLLATE RTRIM, 'object' NCHAR(4) COLLATE RTRIM, 'obj_name' NCHAR(40) COLLATE RTRIM, 'devclass' NCHAR(30) COLLATE RTRIM, 'korrnum' NCHAR(10) COLLATE RTRIM, 'delflag' NCHAR(1) COLLATE RTRIM, 'genflag' NCHAR(1) COLLATE RTRIM, 'srcsystem' NCHAR(5) COLLATE RTRIM, 'edtflag' NCHAR(1) COLLATE RTRIM, 'masterlang' NCHAR(1) COLLATE RTRIM, PRIMARY KEY('pgmid','object','obj_name'));`);
sqlite.push(`CREATE TABLE 'tdevc' ('devclass' NCHAR(30) COLLATE RTRIM, 'dlvunit' NCHAR(30) COLLATE RTRIM, 'component' NCHAR(20) COLLATE RTRIM, 'parentcl' NCHAR(30) COLLATE RTRIM, 'as4user' NCHAR(12) COLLATE RTRIM, 'created_by' NCHAR(12) COLLATE RTRIM, 'created_on' NCHAR(8), 'ctext' NCHAR(60) COLLATE RTRIM, 'changed_by' NCHAR(12) COLLATE RTRIM, 'changed_on' NCHAR(8), 'namespace' NCHAR(10) COLLATE RTRIM, PRIMARY KEY('devclass'));`);
sqlite.push(`CREATE TABLE 'tfdir' ('funcname' NCHAR(30) COLLATE RTRIM, PRIMARY KEY('funcname'));`);
sqlite.push(`CREATE TABLE 'reposrc' ('progname' NCHAR(40) COLLATE RTRIM, 'data' TEXT COLLATE RTRIM, 'unam' NCHAR(12) COLLATE RTRIM, 'udat' NCHAR(8), 'utime' NCHAR(6), PRIMARY KEY('progname'));`);
const hdb = `todo`;
const pg = [];
pg.push(`CREATE TABLE "cvers" ("component" NCHAR(30), "release" NCHAR(10), "extrelease" NCHAR(10), "comp_type" NCHAR(1), PRIMARY KEY("component"));`);
pg.push(`CREATE TABLE "cvers_ref" ("component" NCHAR(30), "langu" NCHAR(1), "desc_text" NCHAR(80), PRIMARY KEY("component","langu"));`);
pg.push(`CREATE TABLE "dd02l" ("tabname" NCHAR(30), "as4local" NCHAR(1), "as4vers" NCHAR(4), "tabclass" NCHAR(8), "sqltab" NCHAR(30), "as4user" NCHAR(12), "as4date" NCHAR(8), "as4time" NCHAR(6), "contflag" NCHAR(1), PRIMARY KEY("tabname","as4local","as4vers"));`);
pg.push(`CREATE TABLE "dd09l" ("tabname" NCHAR(30), "as4local" NCHAR(1), "as4vers" NCHAR(4), "tabkat" NCHAR(2), "tabart" NCHAR(5), "as4user" NCHAR(12), "as4date" NCHAR(8), "as4time" NCHAR(6), "bufallow" NCHAR(1), PRIMARY KEY("tabname","as4local","as4vers"));`);
pg.push(`CREATE TABLE "dokhl" ("id" NCHAR(2), "object" NCHAR(60), "langu" NCHAR(1), "typ" NCHAR(1), "dokversion" NCHAR(4), "dokstate" NCHAR(1), "dokform" NCHAR(16), "dokstyle" NCHAR(8), "dokfuser" NCHAR(12), "dokfreles" NCHAR(4), "dokfdate" NCHAR(8), "dokftime" NCHAR(6), "dokluser" NCHAR(12), "doklreles" NCHAR(4), "dokldate" NCHAR(8), "dokltime" NCHAR(6), PRIMARY KEY("id","object","langu","typ","dokversion"));`);
pg.push(`CREATE TABLE "dokil" ("id" NCHAR(2), "object" NCHAR(60), "langu" NCHAR(1), "typ" NCHAR(1), "version" NCHAR(4), "masterlang" NCHAR(1), "txtlines" NCHAR(5), "dokstate" NCHAR(1), "selfdef" NCHAR(1), PRIMARY KEY("id","object","langu","typ"));`);
pg.push(`CREATE TABLE "progdir" ("name" NCHAR(40), "state" NCHAR(1), "sqlx" NCHAR(1), "edtx" NCHAR(1), "varcl" NCHAR(1), "dbapl" NCHAR(1), "dbna" NCHAR(2), "clas" NCHAR(4), "type" NCHAR(3), "occurs" NCHAR(1), "subc" NCHAR(1), "appl" NCHAR(1), "secu" NCHAR(8), "cnam" NCHAR(12), "cdat" NCHAR(8), "unam" NCHAR(12), "udat" NCHAR(8), "vern" NCHAR(6), "levl" NCHAR(4), "rstat" NCHAR(1), "rmand" NCHAR(3), "rload" NCHAR(1), "fixpt" NCHAR(1), "sset" NCHAR(1), "sdate" NCHAR(8), "stime" NCHAR(6), "idate" NCHAR(8), "itime" NCHAR(6), "ldbname" NCHAR(20), "uccheck" NCHAR(1), PRIMARY KEY("name","state"));`);
pg.push(`CREATE TABLE "seoclasstx" ("clsname" NCHAR(30), "langu" NCHAR(1), "descript" NCHAR(60), PRIMARY KEY("clsname","langu"));`);
pg.push(`CREATE TABLE "seocompo" ("clsname" NCHAR(30), "cmpname" NCHAR(30), "cmptype" NCHAR(1), "mtdtype" NCHAR(1), PRIMARY KEY("clsname","cmpname"));`);
pg.push(`CREATE TABLE "seocompotx" ("clsname" NCHAR(30), "cmpname" NCHAR(30), "langu" NCHAR(1), "descript" NCHAR(60), PRIMARY KEY("clsname","cmpname","langu"));`);
pg.push(`CREATE TABLE "seometarel" ("clsname" NCHAR(30), "refclsname" NCHAR(30), "version" NCHAR(1), PRIMARY KEY("clsname","refclsname","version"));`);
pg.push(`CREATE TABLE "seosubco" ("clsname" NCHAR(30), "cmpname" NCHAR(30), "sconame" NCHAR(30), "cmptype" NCHAR(1), "mtdtype" NCHAR(1), "scotype" NCHAR(1), PRIMARY KEY("clsname","cmpname","sconame"));`);
pg.push(`CREATE TABLE "seosubcotx" ("clsname" NCHAR(30), "cmpname" NCHAR(30), "sconame" NCHAR(30), "langu" NCHAR(1), "descript" NCHAR(60), PRIMARY KEY("clsname","cmpname","sconame","langu"));`);
pg.push(`CREATE TABLE "sotr_headu" ("concept" NCHAR(32), "paket" NCHAR(30), "crea_name" NCHAR(12), "crea_tstut" NCHAR(14), "chan_name" NCHAR(12), "chan_tstut" NCHAR(14), "system_id" NCHAR(8), "objid_vec" NCHAR(20), "crea_lan" NCHAR(1), "alias_name" NCHAR(50), PRIMARY KEY("concept"));`);
pg.push(`CREATE TABLE "tddat" ("tabname" NCHAR(30), "mclass" NCHAR(4), "cclass" NCHAR(14), "flag" NCHAR(1), PRIMARY KEY("tabname"));`);
pg.push(`CREATE TABLE "trnspace" ("namespace" NCHAR(10), "editflag" NCHAR(1), PRIMARY KEY("namespace"));`);
pg.push(`CREATE TABLE "zabapgit" ("type" NCHAR(12), "value" NCHAR(12), "data_str" TEXT, PRIMARY KEY("type","value"));`);
pg.push(`CREATE TABLE "t000" ("mandt" NCHAR(3), "cccategory" NCHAR(1), "ccnocliind" NCHAR(1), "mtext" NCHAR(25), PRIMARY KEY("mandt"));`);
pg.push(`CREATE TABLE "t100" ("sprsl" NCHAR(1), "arbgb" NCHAR(20), "msgnr" NCHAR(3), "text" NCHAR(73), PRIMARY KEY("sprsl","arbgb","msgnr"));`);
pg.push(`CREATE TABLE "tadir" ("pgmid" NCHAR(4), "object" NCHAR(4), "obj_name" NCHAR(40), "devclass" NCHAR(30), "korrnum" NCHAR(10), "delflag" NCHAR(1), "genflag" NCHAR(1), "srcsystem" NCHAR(5), "edtflag" NCHAR(1), "masterlang" NCHAR(1), PRIMARY KEY("pgmid","object","obj_name"));`);
pg.push(`CREATE TABLE "tdevc" ("devclass" NCHAR(30), "dlvunit" NCHAR(30), "component" NCHAR(20), "parentcl" NCHAR(30), "as4user" NCHAR(12), "created_by" NCHAR(12), "created_on" NCHAR(8), "ctext" NCHAR(60), "changed_by" NCHAR(12), "changed_on" NCHAR(8), "namespace" NCHAR(10), PRIMARY KEY("devclass"));`);
pg.push(`CREATE TABLE "tfdir" ("funcname" NCHAR(30), PRIMARY KEY("funcname"));`);
pg.push(`CREATE TABLE "reposrc" ("progname" NCHAR(40), "data" TEXT, "unam" NCHAR(12), "udat" NCHAR(8), "utime" NCHAR(6), PRIMARY KEY("progname"));`);
const snowflake = [];
snowflake.push(`CREATE TABLE "cvers" ("component" NCHAR(30) COLLATE 'rtrim', "release" NCHAR(10) COLLATE 'rtrim', "extrelease" NCHAR(10) COLLATE 'rtrim', "comp_type" NCHAR(1) COLLATE 'rtrim', PRIMARY KEY("component"));`);
snowflake.push(`CREATE TABLE "cvers_ref" ("component" NCHAR(30) COLLATE 'rtrim', "langu" NCHAR(1) COLLATE 'rtrim', "desc_text" NCHAR(80) COLLATE 'rtrim', PRIMARY KEY("component","langu"));`);
snowflake.push(`CREATE TABLE "dd02l" ("tabname" NCHAR(30) COLLATE 'rtrim', "as4local" NCHAR(1) COLLATE 'rtrim', "as4vers" NCHAR(4), "tabclass" NCHAR(8) COLLATE 'rtrim', "sqltab" NCHAR(30) COLLATE 'rtrim', "as4user" NCHAR(12) COLLATE 'rtrim', "as4date" NCHAR(8), "as4time" NCHAR(6), "contflag" NCHAR(1) COLLATE 'rtrim', PRIMARY KEY("tabname","as4local","as4vers"));`);
snowflake.push(`CREATE TABLE "dd09l" ("tabname" NCHAR(30) COLLATE 'rtrim', "as4local" NCHAR(1) COLLATE 'rtrim', "as4vers" NCHAR(4), "tabkat" NCHAR(2) COLLATE 'rtrim', "tabart" NCHAR(5) COLLATE 'rtrim', "as4user" NCHAR(12) COLLATE 'rtrim', "as4date" NCHAR(8), "as4time" NCHAR(6), "bufallow" NCHAR(1) COLLATE 'rtrim', PRIMARY KEY("tabname","as4local","as4vers"));`);
snowflake.push(`CREATE TABLE "dokhl" ("id" NCHAR(2) COLLATE 'rtrim', "object" NCHAR(60) COLLATE 'rtrim', "langu" NCHAR(1) COLLATE 'rtrim', "typ" NCHAR(1) COLLATE 'rtrim', "dokversion" NCHAR(4), "dokstate" NCHAR(1) COLLATE 'rtrim', "dokform" NCHAR(16) COLLATE 'rtrim', "dokstyle" NCHAR(8) COLLATE 'rtrim', "dokfuser" NCHAR(12) COLLATE 'rtrim', "dokfreles" NCHAR(4) COLLATE 'rtrim', "dokfdate" NCHAR(8), "dokftime" NCHAR(6), "dokluser" NCHAR(12) COLLATE 'rtrim', "doklreles" NCHAR(4) COLLATE 'rtrim', "dokldate" NCHAR(8), "dokltime" NCHAR(6), PRIMARY KEY("id","object","langu","typ","dokversion"));`);
snowflake.push(`CREATE TABLE "dokil" ("id" NCHAR(2) COLLATE 'rtrim', "object" NCHAR(60) COLLATE 'rtrim', "langu" NCHAR(1) COLLATE 'rtrim', "typ" NCHAR(1) COLLATE 'rtrim', "version" NCHAR(4), "masterlang" NCHAR(1) COLLATE 'rtrim', "txtlines" NCHAR(5), "dokstate" NCHAR(1) COLLATE 'rtrim', "selfdef" NCHAR(1) COLLATE 'rtrim', PRIMARY KEY("id","object","langu","typ"));`);
snowflake.push(`CREATE TABLE "progdir" ("name" NCHAR(40) COLLATE 'rtrim', "state" NCHAR(1) COLLATE 'rtrim', "sqlx" NCHAR(1) COLLATE 'rtrim', "edtx" NCHAR(1) COLLATE 'rtrim', "varcl" NCHAR(1) COLLATE 'rtrim', "dbapl" NCHAR(1) COLLATE 'rtrim', "dbna" NCHAR(2) COLLATE 'rtrim', "clas" NCHAR(4) COLLATE 'rtrim', "type" NCHAR(3) COLLATE 'rtrim', "occurs" NCHAR(1) COLLATE 'rtrim', "subc" NCHAR(1) COLLATE 'rtrim', "appl" NCHAR(1) COLLATE 'rtrim', "secu" NCHAR(8) COLLATE 'rtrim', "cnam" NCHAR(12) COLLATE 'rtrim', "cdat" NCHAR(8), "unam" NCHAR(12) COLLATE 'rtrim', "udat" NCHAR(8), "vern" NCHAR(6) COLLATE 'rtrim', "levl" NCHAR(4) COLLATE 'rtrim', "rstat" NCHAR(1) COLLATE 'rtrim', "rmand" NCHAR(3) COLLATE 'rtrim', "rload" NCHAR(1) COLLATE 'rtrim', "fixpt" NCHAR(1) COLLATE 'rtrim', "sset" NCHAR(1) COLLATE 'rtrim', "sdate" NCHAR(8), "stime" NCHAR(6) COLLATE 'rtrim', "idate" NCHAR(8), "itime" NCHAR(6) COLLATE 'rtrim', "ldbname" NCHAR(20) COLLATE 'rtrim', "uccheck" NCHAR(1) COLLATE 'rtrim', PRIMARY KEY("name","state"));`);
snowflake.push(`CREATE TABLE "seoclasstx" ("clsname" NCHAR(30) COLLATE 'rtrim', "langu" NCHAR(1) COLLATE 'rtrim', "descript" NCHAR(60) COLLATE 'rtrim', PRIMARY KEY("clsname","langu"));`);
snowflake.push(`CREATE TABLE "seocompo" ("clsname" NCHAR(30) COLLATE 'rtrim', "cmpname" NCHAR(30) COLLATE 'rtrim', "cmptype" NCHAR(1), "mtdtype" NCHAR(1), PRIMARY KEY("clsname","cmpname"));`);
snowflake.push(`CREATE TABLE "seocompotx" ("clsname" NCHAR(30) COLLATE 'rtrim', "cmpname" NCHAR(30) COLLATE 'rtrim', "langu" NCHAR(1) COLLATE 'rtrim', "descript" NCHAR(60) COLLATE 'rtrim', PRIMARY KEY("clsname","cmpname","langu"));`);
snowflake.push(`CREATE TABLE "seometarel" ("clsname" NCHAR(30) COLLATE 'rtrim', "refclsname" NCHAR(30) COLLATE 'rtrim', "version" NCHAR(1) COLLATE 'rtrim', PRIMARY KEY("clsname","refclsname","version"));`);
snowflake.push(`CREATE TABLE "seosubco" ("clsname" NCHAR(30) COLLATE 'rtrim', "cmpname" NCHAR(30) COLLATE 'rtrim', "sconame" NCHAR(30) COLLATE 'rtrim', "cmptype" NCHAR(1), "mtdtype" NCHAR(1), "scotype" NCHAR(1), PRIMARY KEY("clsname","cmpname","sconame"));`);
snowflake.push(`CREATE TABLE "seosubcotx" ("clsname" NCHAR(30) COLLATE 'rtrim', "cmpname" NCHAR(30) COLLATE 'rtrim', "sconame" NCHAR(30) COLLATE 'rtrim', "langu" NCHAR(1) COLLATE 'rtrim', "descript" NCHAR(60) COLLATE 'rtrim', PRIMARY KEY("clsname","cmpname","sconame","langu"));`);
snowflake.push(`CREATE TABLE "sotr_headu" ("concept" NCHAR(32) COLLATE 'rtrim', "paket" NCHAR(30) COLLATE 'rtrim', "crea_name" NCHAR(12) COLLATE 'rtrim', "crea_tstut" NCHAR(14), "chan_name" NCHAR(12) COLLATE 'rtrim', "chan_tstut" NCHAR(14), "system_id" NCHAR(8) COLLATE 'rtrim', "objid_vec" NCHAR(20), "crea_lan" NCHAR(1) COLLATE 'rtrim', "alias_name" NCHAR(50) COLLATE 'rtrim', PRIMARY KEY("concept"));`);
snowflake.push(`CREATE TABLE "tddat" ("tabname" NCHAR(30) COLLATE 'rtrim', "mclass" NCHAR(4) COLLATE 'rtrim', "cclass" NCHAR(14) COLLATE 'rtrim', "flag" NCHAR(1) COLLATE 'rtrim', PRIMARY KEY("tabname"));`);
snowflake.push(`CREATE TABLE "trnspace" ("namespace" NCHAR(10) COLLATE 'rtrim', "editflag" NCHAR(1) COLLATE 'rtrim', PRIMARY KEY("namespace"));`);
snowflake.push(`CREATE TABLE "zabapgit" ("type" NCHAR(12) COLLATE 'rtrim', "value" NCHAR(12) COLLATE 'rtrim', "data_str" TEXT, PRIMARY KEY("type","value"));`);
snowflake.push(`CREATE TABLE "t000" ("mandt" NCHAR(3) COLLATE 'rtrim', "cccategory" NCHAR(1) COLLATE 'rtrim', "ccnocliind" NCHAR(1) COLLATE 'rtrim', "mtext" NCHAR(25) COLLATE 'rtrim', PRIMARY KEY("mandt"));`);
snowflake.push(`CREATE TABLE "t100" ("sprsl" NCHAR(1) COLLATE 'rtrim', "arbgb" NCHAR(20) COLLATE 'rtrim', "msgnr" NCHAR(3) COLLATE 'rtrim', "text" NCHAR(73) COLLATE 'rtrim', PRIMARY KEY("sprsl","arbgb","msgnr"));`);
snowflake.push(`CREATE TABLE "tadir" ("pgmid" NCHAR(4) COLLATE 'rtrim', "object" NCHAR(4) COLLATE 'rtrim', "obj_name" NCHAR(40) COLLATE 'rtrim', "devclass" NCHAR(30) COLLATE 'rtrim', "korrnum" NCHAR(10) COLLATE 'rtrim', "delflag" NCHAR(1) COLLATE 'rtrim', "genflag" NCHAR(1) COLLATE 'rtrim', "srcsystem" NCHAR(5) COLLATE 'rtrim', "edtflag" NCHAR(1) COLLATE 'rtrim', "masterlang" NCHAR(1) COLLATE 'rtrim', PRIMARY KEY("pgmid","object","obj_name"));`);
snowflake.push(`CREATE TABLE "tdevc" ("devclass" NCHAR(30) COLLATE 'rtrim', "dlvunit" NCHAR(30) COLLATE 'rtrim', "component" NCHAR(20) COLLATE 'rtrim', "parentcl" NCHAR(30) COLLATE 'rtrim', "as4user" NCHAR(12) COLLATE 'rtrim', "created_by" NCHAR(12) COLLATE 'rtrim', "created_on" NCHAR(8), "ctext" NCHAR(60) COLLATE 'rtrim', "changed_by" NCHAR(12) COLLATE 'rtrim', "changed_on" NCHAR(8), "namespace" NCHAR(10) COLLATE 'rtrim', PRIMARY KEY("devclass"));`);
snowflake.push(`CREATE TABLE "tfdir" ("funcname" NCHAR(30) COLLATE 'rtrim', PRIMARY KEY("funcname"));`);
snowflake.push(`CREATE TABLE "reposrc" ("progname" NCHAR(40) COLLATE 'rtrim', "data" TEXT, "unam" NCHAR(12) COLLATE 'rtrim', "udat" NCHAR(8), "utime" NCHAR(6), PRIMARY KEY("progname"));`);
const schemas = {sqlite, hdb, pg, snowflake};
const insert = [];
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_APACK_HELPER ', 'CLASS zcl_abapgit_apack_helper DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS are_dependencies_met
IMPORTING
!it_dependencies TYPE zif_abapgit_apack_definitions=>ty_dependencies
RETURNING
VALUE(rv_status) TYPE zif_abapgit_definitions=>ty_yes_no
RAISING
zcx_abapgit_exception .
CLASS-METHODS dependencies_popup
IMPORTING
!it_dependencies TYPE zif_abapgit_apack_definitions=>ty_dependencies
RAISING
zcx_abapgit_exception .
CLASS-METHODS to_file
IMPORTING
!iv_package TYPE devclass
RETURNING
VALUE(rs_file) TYPE zif_abapgit_git_definitions=>ty_file
RAISING
zcx_abapgit_exception .
CLASS-METHODS get_manifest_implementations
RETURNING
VALUE(rt_manifest_implementations) TYPE zif_abapgit_apack_definitions=>ty_manifest_declarations.
PROTECTED SECTION.
PRIVATE SECTION.
TYPES:
BEGIN OF ty_dependency_status,
met TYPE zif_abapgit_definitions=>ty_yes_no_partial.
INCLUDE TYPE zif_abapgit_apack_definitions=>ty_dependency.
TYPES: END OF ty_dependency_status .
TYPES:
ty_dependency_statuses TYPE STANDARD TABLE OF ty_dependency_status WITH NON-UNIQUE DEFAULT KEY .
TYPES:
BEGIN OF ty_color_line,
exception(1) TYPE c,
color TYPE lvc_t_scol.
INCLUDE TYPE ty_dependency_status.
TYPES: t_hyperlink TYPE salv_t_int4_column,
END OF ty_color_line.
TYPES: ty_color_tab TYPE STANDARD TABLE OF ty_color_line WITH DEFAULT KEY.
CLASS-METHODS get_dependencies_met_status
IMPORTING
!it_dependencies TYPE zif_abapgit_apack_definitions=>ty_dependencies
RETURNING
VALUE(rt_status) TYPE ty_dependency_statuses
RAISING
zcx_abapgit_exception .
CLASS-METHODS get_installed_packages
RETURNING
VALUE(rt_packages) TYPE zif_abapgit_apack_definitions=>ty_descriptors
RAISING
zcx_abapgit_exception .
CLASS-METHODS show_dependencies_popup
IMPORTING
!it_dependencies TYPE ty_dependency_statuses
RAISING
zcx_abapgit_exception .
CLASS-METHODS get_color_table
IMPORTING
!io_alv TYPE REF TO cl_salv_table
!it_dependencies TYPE ty_dependency_statuses
CHANGING
!ct_color_table TYPE ty_color_tab
RAISING
cx_salv_existing.
ENDCLASS.
CLASS zcl_abapgit_apack_helper IMPLEMENTATION.
METHOD are_dependencies_met.
DATA: lt_dependencies_status TYPE ty_dependency_statuses.
IF it_dependencies IS INITIAL.
rv_status = zif_abapgit_definitions=>c_yes.
RETURN.
ENDIF.
lt_dependencies_status = get_dependencies_met_status( it_dependencies ).
LOOP AT lt_dependencies_status TRANSPORTING NO FIELDS WHERE met <> zif_abapgit_definitions=>c_yes.
EXIT.
ENDLOOP.
IF sy-subrc = 0.
rv_status = zif_abapgit_definitions=>c_no.
ELSE.
rv_status = zif_abapgit_definitions=>c_yes.
ENDIF.
ENDMETHOD.
METHOD dependencies_popup.
DATA: lt_met_status TYPE ty_dependency_statuses,
lv_answer TYPE c LENGTH 1.
lt_met_status = get_dependencies_met_status( it_dependencies ).
show_dependencies_popup( lt_met_status ).
lv_answer = zcl_abapgit_ui_factory=>get_popups( )->popup_to_confirm(
iv_titlebar = ''Warning''
iv_text_question = ''The project has unmet dependencies. Do you want to continue?'' ).
IF lv_answer <> ''1''.
zcx_abapgit_exception=>raise( ''Cancelling because of unmet dependencies.'' ).
ENDIF.
ENDMETHOD.
METHOD get_color_table.
DATA:
lo_functional_settings TYPE REF TO cl_salv_functional_settings,
lo_hyperlinks TYPE REF TO cl_salv_hyperlinks,
lt_color_negative TYPE lvc_t_scol,
lt_color_normal TYPE lvc_t_scol,
lt_color_positive TYPE lvc_t_scol,
ls_color TYPE lvc_s_scol,
lv_handle TYPE i,
ls_hyperlink TYPE salv_s_int4_column,
lv_hyperlink TYPE service_rl.
FIELD-SYMBOLS:
<ls_line> TYPE ty_color_line,
<ls_dependency> LIKE LINE OF it_dependencies.
CLEAR: ls_color.
ls_color-color-col = col_negative.
APPEND ls_color TO lt_color_negative.
CLEAR: ls_color.
ls_color-color-col = col_normal.
APPEND ls_color TO lt_color_normal.
CLEAR: ls_color.
ls_color-color-col = col_positive.
APPEND ls_color TO lt_color_positive.
lo_functional_settings = io_alv->get_functional_settings( ).
lo_hyperlinks = lo_functional_settings->get_hyperlinks( ).
CLEAR: lv_handle, ls_color.
LOOP AT it_dependencies ASSIGNING <ls_dependency>.
lv_handle = lv_handle + 1.
APPEND INITIAL LINE TO ct_color_table ASSIGNING <ls_line>.
MOVE-CORRESPONDING <ls_dependency> TO <ls_line>.
CASE <ls_line>-met.
WHEN zif_abapgit_definitions=>c_yes.
<ls_line>-color = lt_color_positive.
<ls_line>-exception = ''3''.
WHEN zif_abapgit_definitions=>c_partial.
<ls_line>-color = lt_color_normal.
<ls_line>-exception = ''2''.
WHEN zif_abapgit_definitions=>c_no.
<ls_line>-color = lt_color_negative.
<ls_line>-exception = ''1''.
ENDCASE.
CLEAR: ls_hyperlink.
ls_hyperlink-columnname = ''GIT_URL''.
ls_hyperlink-value = lv_handle.
APPEND ls_hyperlink TO <ls_line>-t_hyperlink.
lv_hyperlink = <ls_line>-git_url.
lo_hyperlinks->add_hyperlink( handle = lv_handle
hyperlink = lv_hyperlink ).
ENDLOOP.
ENDMETHOD.
METHOD get_dependencies_met_status.
DATA: lt_installed_packages TYPE zif_abapgit_apack_definitions=>ty_descriptors,
ls_installed_package TYPE zif_abapgit_apack_definitions=>ty_descriptor,
ls_dependecy TYPE zif_abapgit_apack_definitions=>ty_dependency,
ls_dependecy_popup TYPE ty_dependency_status.
IF it_dependencies IS INITIAL.
RETURN.
ENDIF.
lt_installed_packages = get_installed_packages( ).
LOOP AT it_dependencies INTO ls_dependecy.
CLEAR: ls_dependecy_popup.
MOVE-CORRESPONDING ls_dependecy TO ls_dependecy_popup.
READ TABLE lt_installed_packages INTO ls_installed_package
WITH KEY group_id = ls_dependecy-group_id
artifact_id = ls_dependecy-artifact_id.
IF sy-subrc <> 0.
ls_dependecy_popup-met = zif_abapgit_definitions=>c_no.
ELSE.
TRY.
zcl_abapgit_version=>check_dependant_version( is_current = ls_installed_package-sem_version
is_dependant = ls_dependecy-sem_version ).
ls_dependecy_popup-met = zif_abapgit_definitions=>c_yes.
CATCH zcx_abapgit_exception.
ls_dependecy_popup-met = zif_abapgit_definitions=>c_partial.
ENDTRY.
ENDIF.
INSERT ls_dependecy_popup INTO TABLE rt_status.
ENDLOOP.
ENDMETHOD.
METHOD get_installed_packages.
DATA: lo_apack_reader TYPE REF TO zcl_abapgit_apack_reader,
lt_manifest_implementation TYPE zif_abapgit_apack_definitions=>ty_manifest_declarations,
ls_manifest_implementation TYPE zif_abapgit_apack_definitions=>ty_manifest_declaration,
lo_manifest_provider TYPE REF TO object,
ls_descriptor TYPE zif_abapgit_apack_definitions=>ty_descriptor.
lt_manifest_implementation = get_manifest_implementations( ).
LOOP AT lt_manifest_implementation INTO ls_manifest_implementation.
CLEAR: lo_manifest_provider, lo_apack_reader.
TRY.
CREATE OBJECT lo_manifest_provider TYPE (ls_manifest_implementation-clsname).
CATCH cx_sy_create_object_error.
CLEAR: lo_manifest_provider.
ENDTRY.
IF lo_manifest_provider IS NOT BOUND.
CONTINUE.
ENDIF.
lo_apack_reader = zcl_abapgit_apack_reader=>create_instance( ls_manifest_implementation-devclass ).
lo_apack_reader->copy_manifest_descriptor( lo_manifest_provider ).
ls_descriptor = lo_apack_reader->get_manifest_descriptor( ).
IF ls_descriptor IS NOT INITIAL.
INSERT ls_descriptor INTO TABLE rt_packages.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD get_manifest_implementations.
DATA lt_refclsname TYPE RANGE OF abap_classname.
DATA ls_refclsname LIKE LINE OF lt_refclsname.
ls_refclsname-sign = ''I''.
ls_refclsname-option = ''EQ''.
ls_refclsname-low = zif_abapgit_apack_definitions=>c_apack_interface_cust.
INSERT ls_refclsname INTO TABLE lt_refclsname.
ls_refclsname-sign = ''I''.
ls_refclsname-option = ''EQ''.
ls_refclsname-low = zif_abapgit_apack_definitions=>c_apack_interface_sap.
INSERT ls_refclsname INTO TABLE lt_refclsname.
ls_refclsname-sign = ''I''.
ls_refclsname-option = ''CP''.
ls_refclsname-low = zif_abapgit_apack_definitions=>c_apack_interface_nspc.
INSERT ls_refclsname INTO TABLE lt_refclsname.
" Find all classes that implement customer or SAP version of APACK interface
SELECT seometarel~clsname tadir~devclass FROM seometarel "#EC CI_NOORDER
INNER JOIN tadir ON seometarel~clsname = tadir~obj_name "#EC CI_BUFFJOIN
INTO TABLE rt_manifest_implementations
WHERE tadir~pgmid = ''R3TR''
AND tadir~object = ''CLAS''
AND seometarel~version = ''1''
AND seometarel~refclsname IN lt_refclsname
ORDER BY clsname devclass ##SUBRC_OK.
ENDMETHOD.
METHOD show_dependencies_popup.
DATA: lo_alv TYPE REF TO cl_salv_table,
lo_column TYPE REF TO cl_salv_column,
lo_column_table TYPE REF TO cl_salv_column_table,
lo_columns TYPE REF TO cl_salv_columns_table,
lt_columns TYPE salv_t_column_ref,
ls_column LIKE LINE OF lt_columns,
lt_color_table TYPE ty_color_tab,
ls_position TYPE zif_abapgit_popups=>ty_popup_position,
lx_ex TYPE REF TO cx_root.
IF it_dependencies IS INITIAL.
RETURN.
ENDIF.
TRY.
cl_salv_table=>factory( IMPORTING r_salv_table = lo_alv
CHANGING t_table = lt_color_table ).
lo_columns = lo_alv->get_columns( ).
lt_columns = lo_columns->get( ).
LOOP AT lt_columns INTO ls_column WHERE columnname CP ''SEM_VERSION-*''.
ls_column-r_column->set_technical( ).
ENDLOOP.
lo_column = lo_columns->get_column( ''MET'' ).
lo_column->set_technical( ).
lo_column = lo_columns->get_column( ''GROUP_ID'' ).
lo_column->set_short_text( ''Org/ProjId'' ).
lo_columns->set_color_column( ''COLOR'' ).
lo_columns->set_exception_column( ''EXCEPTION'' ).
lo_columns->set_hyperlink_entry_column( ''T_HYPERLINK'' ).
lo_columns->set_optimize( ).
lo_column = lo_columns->get_column( ''GROUP_ID'' ).
lo_column->set_short_text( ''Org/ProjId'' ).
lo_column = lo_columns->get_column( ''ARTIFACT_ID'' ).
lo_column->set_short_text( ''Proj. Name'' ).
lo_column = lo_columns->get_column( ''GIT_URL'' ).
lo_column->set_short_text( ''Git URL'' ).
lo_column_table ?= lo_column.
lo_column_table->set_cell_type( if_salv_c_cell_type=>link ).
lo_column = lo_columns->get_column( ''VERSION'' ).
lo_column->set_short_text( ''Version'' ).
lo_column = lo_columns->get_column( ''TARGET_PACKAGE'' ).
lo_column->set_technical( ).
get_color_table(
EXPORTING
io_alv = lo_alv
it_dependencies = it_dependencies
CHANGING
ct_color_table = lt_color_table ).
ls_position = zcl_abapgit_popups=>center(
iv_width = 90
iv_height = 10 ).
lo_alv->set_screen_popup( start_column = ls_position-start_column
end_column = ls_position-end_column
start_line = ls_position-start_row
end_line = ls_position-end_row ).
lo_alv->get_display_settings( )->set_list_header( ''APACK dependencies'' ).
lo_alv->display( ).
CATCH cx_salv_msg cx_salv_not_found cx_salv_data_error cx_salv_existing INTO lx_ex.
zcx_abapgit_exception=>raise( lx_ex->get_text( ) ).
ENDTRY.
ENDMETHOD.
METHOD to_file.
DATA: lo_manifest_reader TYPE REF TO zcl_abapgit_apack_reader,
ls_descriptor TYPE zif_abapgit_apack_definitions=>ty_descriptor,
lo_manifest_writer TYPE REF TO zcl_abapgit_apack_writer.
lo_manifest_reader = zcl_abapgit_apack_reader=>create_instance( iv_package ).
IF lo_manifest_reader->has_manifest( ) = abap_true.
ls_descriptor = lo_manifest_reader->get_manifest_descriptor( ).
lo_manifest_writer = zcl_abapgit_apack_writer=>create_instance( ls_descriptor ).
rs_file-path = zif_abapgit_definitions=>c_root_dir.
rs_file-filename = zif_abapgit_apack_definitions=>c_dot_apack_manifest.
rs_file-data = zcl_abapgit_convert=>string_to_xstring_utf8( lo_manifest_writer->serialize( ) ).
rs_file-sha1 = zcl_abapgit_hash=>sha1_blob( rs_file-data ).
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_APACK_READER ', 'CLASS zcl_abapgit_apack_reader DEFINITION
PUBLIC
FINAL
CREATE PRIVATE .
PUBLIC SECTION.
TYPES ty_package_name TYPE devclass .
CLASS-METHODS create_instance
IMPORTING
!iv_package_name TYPE ty_package_name
RETURNING
VALUE(ro_manifest_reader) TYPE REF TO zcl_abapgit_apack_reader .
CLASS-METHODS deserialize
IMPORTING
!iv_package_name TYPE ty_package_name
!iv_xstr TYPE xstring
RETURNING
VALUE(ro_manifest_reader) TYPE REF TO zcl_abapgit_apack_reader
RAISING
zcx_abapgit_exception.
METHODS get_manifest_descriptor
RETURNING
VALUE(rs_manifest_descriptor) TYPE zif_abapgit_apack_definitions=>ty_descriptor
RAISING
zcx_abapgit_exception.
METHODS set_manifest_descriptor
IMPORTING
!is_manifest_descriptor TYPE zif_abapgit_apack_definitions=>ty_descriptor
RAISING
zcx_abapgit_exception.
METHODS copy_manifest_descriptor
IMPORTING
!io_manifest_provider TYPE REF TO object
RAISING
zcx_abapgit_exception.
METHODS has_manifest
RETURNING
VALUE(rv_has_manifest) TYPE abap_bool
RAISING
zcx_abapgit_exception.
METHODS constructor
IMPORTING
!iv_package_name TYPE ty_package_name .
METHODS refresh.
PROTECTED SECTION.
PRIVATE SECTION.
TYPES:
BEGIN OF ty_instance,
package TYPE ty_package_name,
instance TYPE REF TO zcl_abapgit_apack_reader,
END OF ty_instance,
ty_instances TYPE HASHED TABLE OF ty_instance WITH UNIQUE KEY package.
CLASS-DATA gt_instances TYPE ty_instances.
DATA mv_package_name TYPE ty_package_name .
DATA ms_cached_descriptor TYPE zif_abapgit_apack_definitions=>ty_descriptor .
DATA mv_is_cached TYPE abap_bool .
CLASS-METHODS from_xml
IMPORTING
iv_xml TYPE string
RETURNING
VALUE(rs_data) TYPE zif_abapgit_apack_definitions=>ty_descriptor.
METHODS format_version
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_apack_reader IMPLEMENTATION.
METHOD constructor.
ASSERT iv_package_name IS NOT INITIAL.
mv_package_name = iv_package_name.
ENDMETHOD.
METHOD copy_manifest_descriptor.
DATA: ls_my_manifest_wo_deps TYPE zif_abapgit_apack_definitions=>ty_descriptor_wo_dependencies,
ls_my_dependency TYPE zif_abapgit_apack_definitions=>ty_dependency,
ls_descriptor TYPE zif_abapgit_apack_definitions=>ty_descriptor,
lv_descriptor_cust TYPE string,
lv_descriptor_sap TYPE string,
lv_descriptor_nspc TYPE string,
lv_class_name TYPE abap_abstypename,
lv_empty TYPE string,
ls_namespace TYPE zif_abapgit_definitions=>ty_obj_namespace.
FIELD-SYMBOLS: <lg_descriptor> TYPE any,
<lt_dependencies> TYPE ANY TABLE,
<lg_dependency> TYPE any.
lv_descriptor_cust = zif_abapgit_apack_definitions=>c_apack_interface_cust && ''~DESCRIPTOR''.
lv_descriptor_sap = zif_abapgit_apack_definitions=>c_apack_interface_sap && ''~DESCRIPTOR''.
lv_class_name = cl_abap_classdescr=>get_class_name( io_manifest_provider ).
SPLIT lv_class_name AT ''\\CLASS='' INTO lv_empty lv_class_name.
ls_namespace = zcl_abapgit_factory=>get_sap_namespace( )->split_by_name( lv_class_name ).
IF ls_namespace-namespace IS NOT INITIAL.
lv_descriptor_nspc = |{ ls_namespace-namespace }{ lv_descriptor_sap }|.
ENDIF.
ASSIGN io_manifest_provider->(lv_descriptor_cust) TO <lg_descriptor>.
IF <lg_descriptor> IS NOT ASSIGNED.
ASSIGN io_manifest_provider->(lv_descriptor_sap) TO <lg_descriptor>.
IF <lg_descriptor> IS NOT ASSIGNED AND lv_descriptor_nspc IS NOT INITIAL.
ASSIGN io_manifest_provider->(lv_descriptor_nspc) TO <lg_descriptor>.
ENDIF.
ENDIF.
IF <lg_descriptor> IS ASSIGNED.
" A little more complex than a normal MOVE-CORRSPONDING
" to avoid dumps in case of future updates to the dependencies table structure
ASSIGN COMPONENT ''DEPENDENCIES'' OF STRUCTURE <lg_descriptor> TO <lt_dependencies>.
IF <lt_dependencies> IS ASSIGNED.
LOOP AT <lt_dependencies> ASSIGNING <lg_dependency>.
MOVE-CORRESPONDING <lg_dependency> TO ls_my_dependency.
INSERT ls_my_dependency INTO TABLE ls_descriptor-dependencies.
ENDLOOP.
MOVE-CORRESPONDING <lg_descriptor> TO ls_my_manifest_wo_deps.
MOVE-CORRESPONDING ls_my_manifest_wo_deps TO ls_descriptor.
ENDIF.
ENDIF.
set_manifest_descriptor( ls_descriptor ).
ENDMETHOD.
METHOD create_instance.
DATA ls_instance TYPE ty_instance.
" One instance per package
READ TABLE gt_instances INTO ls_instance WITH TABLE KEY package = iv_package_name.
IF sy-subrc <> 0.
ls_instance-package = iv_package_name.
CREATE OBJECT ls_instance-instance
EXPORTING
iv_package_name = iv_package_name.
INSERT ls_instance INTO TABLE gt_instances.
ENDIF.
ro_manifest_reader = ls_instance-instance.
ENDMETHOD.
METHOD deserialize.
DATA: lv_xml TYPE string,
ls_data TYPE zif_abapgit_apack_definitions=>ty_descriptor.
lv_xml = zcl_abapgit_convert=>xstring_to_string_utf8( iv_xstr ).
ls_data = from_xml( lv_xml ).
ro_manifest_reader = create_instance( iv_package_name ).
ro_manifest_reader->set_manifest_descriptor( ls_data ).
ENDMETHOD.
METHOD format_version.
FIELD-SYMBOLS: <ls_dependency> TYPE zif_abapgit_apack_definitions=>ty_dependency.
TRANSLATE ms_cached_descriptor-version TO LOWER CASE.
ms_cached_descriptor-sem_version = zcl_abapgit_version=>conv_str_to_version( ms_cached_descriptor-version ).
LOOP AT ms_cached_descriptor-dependencies ASSIGNING <ls_dependency>.
TRANSLATE <ls_dependency>-version TO LOWER CASE.
<ls_dependency>-sem_version = zcl_abapgit_version=>conv_str_to_version( <ls_dependency>-version ).
ENDLOOP.
ENDMETHOD.
METHOD from_xml.
DATA: lv_xml TYPE string.
lv_xml = iv_xml.
CALL TRANSFORMATION id
OPTIONS value_handling = ''accept_data_loss''
SOURCE XML lv_xml
RESULT data = rs_data.
ENDMETHOD.
METHOD get_manifest_descriptor.
DATA: lo_manifest_provider TYPE REF TO object,
lv_package TYPE devclass,
lt_packages TYPE zif_abapgit_sap_package=>ty_devclass_tt,
ls_manifest_implementation TYPE zif_abapgit_apack_definitions=>ty_manifest_declaration,
lt_manifest_implementation TYPE zif_abapgit_apack_definitions=>ty_manifest_declarations.
IF mv_is_cached IS INITIAL.
lt_packages = zcl_abapgit_factory=>get_sap_package( mv_package_name )->list_subpackages( ).
INSERT mv_package_name INTO TABLE lt_packages.
lt_manifest_implementation = zcl_abapgit_apack_helper=>get_manifest_implementations( ).
LOOP AT lt_packages INTO lv_package.
READ TABLE lt_manifest_implementation INTO ls_manifest_implementation WITH KEY devclass = lv_package.
IF sy-subrc = 0.
EXIT.
ENDIF.
ENDLOOP.
IF ls_manifest_implementation IS NOT INITIAL.
TRY.
CREATE OBJECT lo_manifest_provider TYPE (ls_manifest_implementation-clsname).
CATCH cx_sy_create_object_error.
CLEAR: rs_manifest_descriptor.
ENDTRY.
IF lo_manifest_provider IS BOUND.
copy_manifest_descriptor( lo_manifest_provider ).
ENDIF.
ENDIF.
mv_is_cached = abap_true.
ENDIF.
rs_manifest_descriptor = ms_cached_descriptor.
ENDMETHOD.
METHOD has_manifest.
DATA: ls_returned_manifest TYPE zif_abapgit_apack_definitions=>ty_descriptor.
ls_returned_manifest = get_manifest_descriptor( ).
rv_has_manifest = boolc( ls_returned_manifest IS NOT INITIAL ).
ENDMETHOD.
METHOD refresh.
CLEAR: mv_is_cached, ms_cached_descriptor.
ENDMETHOD.
METHOD set_manifest_descriptor.
mv_is_cached = abap_true.
ms_cached_descriptor = is_manifest_descriptor.
format_version( ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_APACK_WRITER ', 'CLASS zcl_abapgit_apack_writer DEFINITION
PUBLIC
FINAL
CREATE PRIVATE .
PUBLIC SECTION.
CLASS-METHODS create_instance
IMPORTING
!is_apack_manifest_descriptor TYPE zif_abapgit_apack_definitions=>ty_descriptor
RETURNING
VALUE(ro_manifest_writer) TYPE REF TO zcl_abapgit_apack_writer .
METHODS serialize
RETURNING
VALUE(rv_xml) TYPE string
RAISING
zcx_abapgit_exception .
METHODS constructor
IMPORTING
!is_apack_manifest_descriptor TYPE zif_abapgit_apack_definitions=>ty_descriptor .
PROTECTED SECTION.
PRIVATE SECTION.
DATA ms_manifest_descriptor TYPE zif_abapgit_apack_definitions=>ty_descriptor .
ENDCLASS.
CLASS zcl_abapgit_apack_writer IMPLEMENTATION.
METHOD constructor.
ms_manifest_descriptor = is_apack_manifest_descriptor.
ENDMETHOD.
METHOD create_instance.
CREATE OBJECT ro_manifest_writer EXPORTING is_apack_manifest_descriptor = is_apack_manifest_descriptor.
ENDMETHOD.
METHOD serialize.
DATA: ls_manifest_descriptor LIKE ms_manifest_descriptor.
FIELD-SYMBOLS: <ls_dependency> LIKE LINE OF ls_manifest_descriptor-dependencies.
" Setting repository type automatically to ''abapGit'' as there is no other one right now
ms_manifest_descriptor-repository_type = zif_abapgit_apack_definitions=>c_repository_type_abapgit.
ls_manifest_descriptor = ms_manifest_descriptor.
CLEAR: ls_manifest_descriptor-sem_version.
LOOP AT ls_manifest_descriptor-dependencies ASSIGNING <ls_dependency>.
CLEAR: <ls_dependency>-sem_version.
ENDLOOP.
CALL TRANSFORMATION id
OPTIONS initial_components = ''suppress''
SOURCE data = ls_manifest_descriptor
RESULT XML rv_xml.
rv_xml = zcl_abapgit_xml_pretty=>print( rv_xml ).
REPLACE FIRST OCCURRENCE
OF REGEX ''<\\?xml version="1\\.0" encoding="[\\w-]+"\\?>''
IN rv_xml
WITH ''<?xml version="1.0" encoding="utf-8"?>''.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_APACK_DEFINITIONS ', 'INTERFACE zif_abapgit_apack_definitions PUBLIC .
TYPES:
BEGIN OF ty_dependency,
group_id TYPE string,
artifact_id TYPE string,
version TYPE string,
sem_version TYPE zif_abapgit_definitions=>ty_version,
git_url TYPE string,
target_package TYPE devclass,
END OF ty_dependency,
ty_dependencies TYPE STANDARD TABLE OF ty_dependency
WITH NON-UNIQUE DEFAULT KEY,
ty_repository_type TYPE string,
BEGIN OF ty_descriptor_wo_dependencies,
group_id TYPE string,
artifact_id TYPE string,
version TYPE string,
sem_version TYPE zif_abapgit_definitions=>ty_version,
repository_type TYPE ty_repository_type,
git_url TYPE string,
END OF ty_descriptor_wo_dependencies,
BEGIN OF ty_descriptor.
INCLUDE TYPE ty_descriptor_wo_dependencies.
TYPES:
dependencies TYPE ty_dependencies,
END OF ty_descriptor,
ty_descriptors TYPE STANDARD TABLE OF ty_descriptor WITH NON-UNIQUE DEFAULT KEY.
TYPES:
BEGIN OF ty_manifest_declaration,
clsname TYPE seoclsname,
devclass TYPE devclass,
END OF ty_manifest_declaration,
ty_manifest_declarations TYPE STANDARD TABLE OF ty_manifest_declaration WITH DEFAULT KEY.
CONSTANTS c_dot_apack_manifest TYPE string VALUE ''.apack-manifest.xml'' ##NO_TEXT.
CONSTANTS c_repository_type_abapgit TYPE ty_repository_type VALUE ''abapGit'' ##NO_TEXT.
CONSTANTS c_apack_interface_sap TYPE seoclsname VALUE ''IF_APACK_MANIFEST'' ##NO_TEXT.
CONSTANTS c_apack_interface_cust TYPE seoclsname VALUE ''ZIF_APACK_MANIFEST'' ##NO_TEXT.
CONSTANTS c_apack_interface_nspc TYPE seoclsname VALUE ''/*/IF_APACK_MANIFEST'' ##NO_TEXT.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_BACKGROUND ', 'CLASS zcl_abapgit_background DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
TYPES: BEGIN OF ty_method,
class TYPE seoclsname,
description TYPE string,
END OF ty_method.
TYPES: ty_methods TYPE SORTED TABLE OF ty_method WITH UNIQUE KEY class.
CLASS-METHODS run
RAISING
zcx_abapgit_exception .
CLASS-METHODS list_methods
RETURNING VALUE(rt_methods) TYPE ty_methods.
CLASS-METHODS enqueue
RAISING
zcx_abapgit_exception.
CLASS-METHODS dequeue.
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS c_enq_type TYPE c LENGTH 12 VALUE ''BACKGROUND''.
ENDCLASS.
CLASS zcl_abapgit_background IMPLEMENTATION.
METHOD dequeue.
CALL FUNCTION ''DEQUEUE_EZABAPGIT''
EXPORTING
type = c_enq_type.
ENDMETHOD.
METHOD enqueue.
CALL FUNCTION ''ENQUEUE_EZABAPGIT''
EXPORTING
mode_zabapgit = ''E''
type = c_enq_type
_scope = ''3''
EXCEPTIONS
foreign_lock = 1
system_failure = 2
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
METHOD list_methods.
DATA: ls_method LIKE LINE OF rt_methods,
ls_key TYPE seoclskey,
lt_implementing TYPE seor_implementing_keys,
ls_implementing LIKE LINE OF lt_implementing.
FIELD-SYMBOLS: <ls_method> LIKE LINE OF rt_methods.
* in order to handle local classes in the compiled report
ls_method-class = ''ZCL_ABAPGIT_BACKGROUND_PULL''.
INSERT ls_method INTO TABLE rt_methods.
ls_method-class = ''ZCL_ABAPGIT_BACKGROUND_PUSH_AU''.
INSERT ls_method INTO TABLE rt_methods.
ls_method-class = ''ZCL_ABAPGIT_BACKGROUND_PUSH_FI''.
INSERT ls_method INTO TABLE rt_methods.
ls_key-clsname = ''ZIF_ABAPGIT_BACKGROUND''.
CALL FUNCTION ''SEO_INTERFACE_IMPLEM_GET_ALL''
EXPORTING
intkey = ls_key
IMPORTING
impkeys = lt_implementing
EXCEPTIONS
not_existing = 1
OTHERS = 2 ##FM_SUBRC_OK.
LOOP AT lt_implementing INTO ls_implementing.
ls_method-class = ls_implementing-clsname.
INSERT ls_method INTO TABLE rt_methods.
ENDLOOP.
LOOP AT rt_methods ASSIGNING <ls_method>.
CALL METHOD (<ls_method>-class)=>zif_abapgit_background~get_description
RECEIVING
rv_description = <ls_method>-description.
ENDLOOP.
ENDMETHOD.
METHOD run.
DATA: lo_per TYPE REF TO zcl_abapgit_persist_background,
lo_repo TYPE REF TO zcl_abapgit_repo_online,
lt_list TYPE zcl_abapgit_persist_background=>ty_background_keys,
li_background TYPE REF TO zif_abapgit_background,
li_log TYPE REF TO zif_abapgit_log,
lx_error TYPE REF TO zcx_abapgit_exception,
lv_repo_name TYPE string.
FIELD-SYMBOLS: <ls_list> LIKE LINE OF lt_list.
TRY.
enqueue( ).
CATCH zcx_abapgit_exception.
WRITE: / ''Another instance of the program is already running''.
RETURN.
ENDTRY.
CREATE OBJECT lo_per.
lt_list = lo_per->list( ).
WRITE: / ''Background mode''.
LOOP AT lt_list ASSIGNING <ls_list>.
CREATE OBJECT li_log TYPE zcl_abapgit_log.
TRY.
lo_repo ?= zcl_abapgit_repo_srv=>get_instance( )->get( <ls_list>-key ).
lv_repo_name = lo_repo->get_name( ).
WRITE: / <ls_list>-method, lv_repo_name.
zcl_abapgit_login_manager=>set(
iv_uri = lo_repo->get_url( )
iv_username = <ls_list>-username
iv_password = <ls_list>-password ).
CREATE OBJECT li_background TYPE (<ls_list>-method).
li_background->run(
io_repo = lo_repo
ii_log = li_log
it_settings = <ls_list>-settings ).
" Decrease memory usage for repository already processed (but keep log)
lo_repo->refresh(
iv_drop_cache = abap_true
iv_drop_log = abap_false ).
CATCH zcx_abapgit_exception INTO lx_error.
li_log->add_exception( lx_error ).
ENDTRY.
" Clear auth buffer to allow different user/password per repository in background mode
zcl_abapgit_login_manager=>clear( ).
zcl_abapgit_log_viewer=>write_log( li_log ).
ENDLOOP.
IF lines( lt_list ) = 0.
WRITE: / ''Nothing configured''.
ENDIF.
dequeue( ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_BACKGROUND_PULL ', 'CLASS zcl_abapgit_background_pull DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES zif_abapgit_background .
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_background_pull IMPLEMENTATION.
METHOD zif_abapgit_background~get_description.
rv_description = ''Automatic pull''.
ENDMETHOD.
METHOD zif_abapgit_background~get_settings.
RETURN.
ENDMETHOD.
METHOD zif_abapgit_background~run.
DATA: ls_checks TYPE zif_abapgit_definitions=>ty_deserialize_checks,
lo_settings TYPE REF TO zcl_abapgit_settings,
lv_activation_setting TYPE zif_abapgit_definitions=>ty_s_user_settings-activate_wo_popup.
FIELD-SYMBOLS: <ls_overwrite> LIKE LINE OF ls_checks-overwrite.
ls_checks = io_repo->deserialize_checks( ).
LOOP AT ls_checks-overwrite ASSIGNING <ls_overwrite>.
<ls_overwrite>-decision = zif_abapgit_definitions=>c_yes.
ENDLOOP.
lo_settings = zcl_abapgit_persist_factory=>get_settings( )->read( ).
lv_activation_setting = lo_settings->get_activate_wo_popup( ).
lo_settings->set_activate_wo_popup( abap_true ).
io_repo->deserialize( is_checks = ls_checks
ii_log = ii_log ).
lo_settings->set_activate_wo_popup( lv_activation_setting ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_BACKGROUND_PUSH_AU ', 'CLASS zcl_abapgit_background_push_au DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES zif_abapgit_background .
PROTECTED SECTION.
DATA mi_log TYPE REF TO zif_abapgit_log .
METHODS build_comment
IMPORTING
!is_files TYPE zif_abapgit_definitions=>ty_stage_files
RETURNING
VALUE(rv_comment) TYPE string .
METHODS push_auto
IMPORTING
!io_repo TYPE REF TO zcl_abapgit_repo_online
RAISING
zcx_abapgit_exception .
METHODS determine_user_details
IMPORTING
!iv_changed_by TYPE syuname
RETURNING
VALUE(rs_user) TYPE zif_abapgit_git_definitions=>ty_git_user .
METHODS push_deletions
IMPORTING
!io_repo TYPE REF TO zcl_abapgit_repo_online
!is_files TYPE zif_abapgit_definitions=>ty_stage_files
RAISING
zcx_abapgit_exception .
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_background_push_au IMPLEMENTATION.
METHOD build_comment.
DATA: lt_objects TYPE STANDARD TABLE OF string WITH DEFAULT KEY,
lv_str TYPE string.
FIELD-SYMBOLS: <ls_local> LIKE LINE OF is_files-local.
LOOP AT is_files-local ASSIGNING <ls_local>.
lv_str = |{ <ls_local>-item-obj_type } { <ls_local>-item-obj_name }|.
APPEND lv_str TO lt_objects.
ENDLOOP.
SORT lt_objects AS TEXT.
DELETE ADJACENT DUPLICATES FROM lt_objects.
IF lines( lt_objects ) = 1.
rv_comment = |BG: { lv_str }|.
ELSE.
rv_comment = ''BG: Multiple objects''.
LOOP AT lt_objects INTO lv_str.
CONCATENATE rv_comment cl_abap_char_utilities=>newline lv_str INTO rv_comment.
ENDLOOP.
ENDIF.
ENDMETHOD.
METHOD determine_user_details.
DATA: lo_user_record TYPE REF TO zcl_abapgit_user_record.
lo_user_record = zcl_abapgit_user_record=>get_instance( iv_changed_by ).
rs_user-name = lo_user_record->get_name( ).
rs_user-email = lo_user_record->get_email( ).
* If no email, fall back to localhost/default email
IF rs_user-email IS INITIAL.
rs_user-email = |{ iv_changed_by }@localhost|.
ENDIF.
* If no full name maintained, just use changed by user name
IF rs_user-name IS INITIAL.
rs_user-name = iv_changed_by.
ENDIF.
ENDMETHOD.
METHOD push_auto.
TYPES: BEGIN OF ty_changed,
filename TYPE string,
path TYPE string,
changed_by TYPE syuname,
END OF ty_changed.
DATA: ls_comment TYPE zif_abapgit_git_definitions=>ty_comment,
ls_files TYPE zif_abapgit_definitions=>ty_stage_files,
lt_changed TYPE STANDARD TABLE OF ty_changed WITH DEFAULT KEY,
lt_users TYPE STANDARD TABLE OF syuname WITH DEFAULT KEY,
ls_user_files LIKE ls_files,
lv_changed_by LIKE LINE OF lt_users,
lo_stage TYPE REF TO zcl_abapgit_stage.
FIELD-SYMBOLS: <ls_changed> LIKE LINE OF lt_changed,
<ls_remote> LIKE LINE OF ls_files-remote,
<ls_local> LIKE LINE OF ls_files-local.
ls_files = zcl_abapgit_factory=>get_stage_logic( )->get( io_repo ).
LOOP AT ls_files-local ASSIGNING <ls_local>.
lv_changed_by = zcl_abapgit_objects=>changed_by(
is_item = <ls_local>-item
iv_filename = <ls_local>-file-filename ).
APPEND lv_changed_by TO lt_users.
APPEND INITIAL LINE TO lt_changed ASSIGNING <ls_changed>.
<ls_changed>-changed_by = lv_changed_by.
<ls_changed>-filename = <ls_local>-file-filename.
<ls_changed>-path = <ls_local>-file-path.
ENDLOOP.
SORT lt_users ASCENDING.
DELETE ADJACENT DUPLICATES FROM lt_users.
LOOP AT lt_users INTO lv_changed_by.
CLEAR: ls_comment.
* Fill user details
ls_comment-committer = determine_user_details( lv_changed_by ).
CREATE OBJECT lo_stage.
CLEAR ls_user_files.
LOOP AT ls_files-local ASSIGNING <ls_local>.
READ TABLE lt_changed WITH KEY
path = <ls_local>-file-path
filename = <ls_local>-file-filename
changed_by = lv_changed_by
TRANSPORTING NO FIELDS.
IF sy-subrc = 0.
mi_log->add_info( |stage: {
ls_comment-committer-name } {
<ls_local>-file-path } {
<ls_local>-file-filename }| ).
lo_stage->add( iv_path = <ls_local>-file-path
iv_filename = <ls_local>-file-filename
iv_data = <ls_local>-file-data ).
APPEND <ls_local> TO ls_user_files-local.
LOOP AT ls_files-remote ASSIGNING <ls_remote>
USING KEY file
WHERE filename = <ls_local>-file-filename
AND path <> <ls_local>-file-path
AND filename <> ''package.devc.xml''.
mi_log->add_info( |rm: { <ls_remote>-path } { <ls_remote>-filename }| ).
* rm old file when object has moved
lo_stage->rm(
iv_path = <ls_remote>-path
iv_filename = <ls_remote>-filename ).
EXIT. " assumption: only one file
ENDLOOP.
ENDIF.
ENDLOOP.
ls_comment-comment = build_comment( ls_user_files ).
io_repo->push( is_comment = ls_comment
io_stage = lo_stage ).
ENDLOOP.
IF lines( ls_files-remote ) > 0.
push_deletions( io_repo = io_repo
is_files = ls_files ).
ENDIF.
ENDMETHOD.
METHOD push_deletions.
DATA: lo_stage TYPE REF TO zcl_abapgit_stage,
ls_comment TYPE zif_abapgit_git_definitions=>ty_comment.
FIELD-SYMBOLS: <ls_remote> LIKE LINE OF is_files-remote.
ASSERT lines( is_files-remote ) > 0.
CREATE OBJECT lo_stage.
ls_comment-comment = ''BG: Deletion''.
LOOP AT is_files-remote ASSIGNING <ls_remote>.
mi_log->add_info( |removed: { <ls_remote>-path } { <ls_remote>-filename }| ).
lo_stage->rm( iv_path = <ls_remote>-path
iv_filename = <ls_remote>-filename ).
CONCATENATE ls_comment-comment cl_abap_char_utilities=>newline <ls_remote>-filename
INTO ls_comment-comment.
ENDLOOP.
ls_comment-committer-name = ''Deletion''.
ls_comment-committer-email = ''deletion@localhost''.
io_repo->push( is_comment = ls_comment
io_stage = lo_stage ).
ENDMETHOD.
METHOD zif_abapgit_background~get_description.
rv_description = ''Automatic push, auto author''.
ENDMETHOD.
METHOD zif_abapgit_background~get_settings.
RETURN.
ENDMETHOD.
METHOD zif_abapgit_background~run.
DATA: ls_files TYPE zif_abapgit_definitions=>ty_stage_files.
mi_log = ii_log.
ls_files = zcl_abapgit_factory=>get_stage_logic( )->get( io_repo ).
IF lines( ls_files-local ) = 0 AND lines( ls_files-remote ) = 0.
ii_log->add_info( ''Nothing to stage'' ).
RETURN.
ENDIF.
push_auto( io_repo ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_BACKGROUND_PUSH_FI ', 'CLASS zcl_abapgit_background_push_fi DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES zif_abapgit_background .
PROTECTED SECTION.
CONSTANTS:
BEGIN OF c_settings,
name TYPE string VALUE ''NAME'',
email TYPE string VALUE ''EMAIL'',
END OF c_settings .
DATA mi_log TYPE REF TO zif_abapgit_log .
METHODS build_comment
IMPORTING
!is_files TYPE zif_abapgit_definitions=>ty_stage_files
RETURNING
VALUE(rv_comment) TYPE string .
METHODS push_fixed
IMPORTING
!io_repo TYPE REF TO zcl_abapgit_repo_online
!iv_name TYPE string
!iv_email TYPE string
RAISING
zcx_abapgit_exception .
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_background_push_fi IMPLEMENTATION.
METHOD build_comment.
DATA: lt_objects TYPE STANDARD TABLE OF string WITH DEFAULT KEY,
lv_str TYPE string.
FIELD-SYMBOLS: <ls_local> LIKE LINE OF is_files-local.
LOOP AT is_files-local ASSIGNING <ls_local>.
lv_str = |{ <ls_local>-item-obj_type } { <ls_local>-item-obj_name }|.
APPEND lv_str TO lt_objects.
ENDLOOP.
SORT lt_objects AS TEXT.
DELETE ADJACENT DUPLICATES FROM lt_objects.
IF lines( lt_objects ) = 1.
rv_comment = |BG: { lv_str }|.
ELSE.
rv_comment = ''BG: Multiple objects''.
LOOP AT lt_objects INTO lv_str.
CONCATENATE rv_comment cl_abap_char_utilities=>newline lv_str INTO rv_comment.
ENDLOOP.
ENDIF.
ENDMETHOD.
METHOD push_fixed.
DATA: ls_comment TYPE zif_abapgit_git_definitions=>ty_comment,
ls_files TYPE zif_abapgit_definitions=>ty_stage_files,
lo_stage TYPE REF TO zcl_abapgit_stage.
FIELD-SYMBOLS: <ls_local> LIKE LINE OF ls_files-local,
<ls_remote> LIKE LINE OF ls_files-remote.
ls_files = zcl_abapgit_factory=>get_stage_logic( )->get( io_repo ).
ASSERT lines( ls_files-local ) > 0
OR lines( ls_files-remote ) > 0.
CREATE OBJECT lo_stage.
LOOP AT ls_files-local ASSIGNING <ls_local>.
mi_log->add_info( |stage: { <ls_local>-file-path } { <ls_local>-file-filename }| ).
lo_stage->add( iv_path = <ls_local>-file-path
iv_filename = <ls_local>-file-filename
iv_data = <ls_local>-file-data ).
ENDLOOP.
LOOP AT ls_files-remote ASSIGNING <ls_remote>.
mi_log->add_info( |removed: { <ls_remote>-path } { <ls_remote>-filename }| ).
lo_stage->rm( iv_path = <ls_remote>-path
iv_filename = <ls_remote>-filename ).
ENDLOOP.
ls_comment-committer-name = iv_name.
ls_comment-committer-email = iv_email.
ls_comment-comment = build_comment( ls_files ).
io_repo->push( is_comment = ls_comment
io_stage = lo_stage ).
ENDMETHOD.
METHOD zif_abapgit_background~get_description.
rv_description = ''Automatic push, fixed author''.
ENDMETHOD.
METHOD zif_abapgit_background~get_settings.
DATA: ls_setting LIKE LINE OF ct_settings.
READ TABLE ct_settings WITH KEY key = c_settings-name INTO ls_setting.
IF sy-subrc <> 0.
ls_setting-key = c_settings-name.
ls_setting-value = ''foobar''.
APPEND ls_setting TO ct_settings.
ENDIF.
READ TABLE ct_settings WITH KEY key = c_settings-email INTO ls_setting.
IF sy-subrc <> 0.
ls_setting-key = c_settings-email.
ls_setting-value = ''foobar@localhost''.
APPEND ls_setting TO ct_settings.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_background~run.
DATA: ls_files TYPE zif_abapgit_definitions=>ty_stage_files,
ls_setting LIKE LINE OF it_settings,
lv_name TYPE string,
lv_email TYPE string.
mi_log = ii_log.
ls_files = zcl_abapgit_factory=>get_stage_logic( )->get( io_repo ).
IF lines( ls_files-local ) = 0 AND lines( ls_files-remote ) = 0.
ii_log->add_info( ''Nothing to stage'' ).
RETURN.
ENDIF.
READ TABLE it_settings WITH KEY key = c_settings-name INTO ls_setting. "#EC CI_SUBRC
lv_name = ls_setting-value.
READ TABLE it_settings WITH KEY key = c_settings-email INTO ls_setting. "#EC CI_SUBRC
lv_email = ls_setting-value.
push_fixed(
io_repo = io_repo
iv_name = lv_name
iv_email = lv_email ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_BACKGROUND ', 'INTERFACE zif_abapgit_background
PUBLIC .
TYPES:
BEGIN OF ty_settings,
key TYPE string,
value TYPE string,
END OF ty_settings .
TYPES:
ty_settings_tt TYPE STANDARD TABLE OF ty_settings WITH DEFAULT KEY .
CLASS-METHODS get_description
RETURNING
VALUE(rv_description) TYPE string .
CLASS-METHODS get_settings
CHANGING
ct_settings TYPE ty_settings_tt .
METHODS run
IMPORTING
!io_repo TYPE REF TO zcl_abapgit_repo_online
!ii_log TYPE REF TO zif_abapgit_log
!it_settings TYPE ty_settings_tt OPTIONAL
RAISING
zcx_abapgit_exception .
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_CTS_API ', '"! Change transport system API
CLASS zcl_abapgit_cts_api DEFINITION
PUBLIC
FINAL
CREATE PRIVATE
GLOBAL FRIENDS zcl_abapgit_factory.
PUBLIC SECTION.
INTERFACES:
zif_abapgit_cts_api.
PROTECTED SECTION.
PRIVATE SECTION.
DATA mv_confirm_transp_msgs_called TYPE abap_bool.
"! Returns the transport request / task the object is currently locked in
"! @parameter iv_program_id | Program ID
"! @parameter iv_object_type | Object type
"! @parameter iv_object_name | Object name
"! @parameter rv_transport | Transport request / task
"! @raising zcx_abapgit_exception | Object is not locked in a transport
METHODS get_current_transport_for_obj
IMPORTING
!iv_program_id TYPE pgmid DEFAULT ''R3TR''
!iv_object_type TYPE trobjtype
!iv_object_name TYPE sobj_name
RETURNING
VALUE(rv_transport) TYPE trkorr
RAISING
zcx_abapgit_exception .
"! Returns the transport request / task that includes the object (even if not locked)
"! @parameter iv_program_id | Program ID
"! @parameter iv_object_type | Object type
"! @parameter iv_object_name | Object name
"! @parameter rv_transport | Transport request / task
"! @raising zcx_abapgit_exception | Object is not locked in a transport
METHODS get_current_transport_from_db
IMPORTING
!iv_program_id TYPE pgmid DEFAULT ''R3TR''
!iv_object_type TYPE trobjtype
!iv_object_name TYPE sobj_name
RETURNING
VALUE(rv_transport) TYPE trkorr
RAISING
zcx_abapgit_exception .
"! Check if the object is currently locked in a transport
"! @parameter iv_program_id | Program ID
"! @parameter iv_object_type | Object type
"! @parameter iv_object_name | Object name
"! @parameter rv_locked | Object is locked
"! @raising zcx_abapgit_exception | Object type is not lockable
METHODS is_object_locked_in_transport
IMPORTING
!iv_program_id TYPE pgmid DEFAULT ''R3TR''
!iv_object_type TYPE trobjtype
!iv_object_name TYPE sobj_name
RETURNING
VALUE(rv_locked) TYPE abap_bool
RAISING
zcx_abapgit_exception .
"! Check if the object type is lockable
"! @parameter iv_program_id | Program ID
"! @parameter iv_object_type | Object type
"! @parameter rv_lockable | Lockable
METHODS is_object_type_lockable
IMPORTING
!iv_program_id TYPE pgmid DEFAULT ''R3TR''
!iv_object_type TYPE trobjtype
RETURNING
VALUE(rv_lockable) TYPE abap_bool .
"! Check if the object type can be transported
"! @parameter iv_program_id | Program ID
"! @parameter iv_object_type | Object type
"! @parameter rv_transportable | Transportable
METHODS is_object_type_transportable
IMPORTING
!iv_program_id TYPE pgmid DEFAULT ''R3TR''
!iv_object_type TYPE trobjtype
RETURNING
VALUE(rv_transportable) TYPE abap_bool .
ENDCLASS.
CLASS zcl_abapgit_cts_api IMPLEMENTATION.
METHOD get_current_transport_for_obj.
DATA: lv_object_lockable TYPE abap_bool,
lv_locked TYPE abap_bool,
lv_transport_request TYPE trkorr,
lv_task TYPE trkorr,
lv_tr_object_name TYPE trobj_name.
lv_tr_object_name = iv_object_name.
CALL FUNCTION ''TR_CHECK_OBJECT_LOCK''
EXPORTING
wi_pgmid = iv_program_id
wi_object = iv_object_type
wi_objname = lv_tr_object_name
IMPORTING
we_lockable_object = lv_object_lockable
we_locked = lv_locked
we_lock_order = lv_transport_request
we_lock_task = lv_task
EXCEPTIONS
empty_key = 1
no_systemname = 2
no_systemtype = 3
unallowed_lock_order = 4
OTHERS = 5.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
IF lv_locked = abap_false.
zcx_abapgit_exception=>raise( |Object { iv_program_id }-{ iv_object_type }-{ iv_object_name } is not locked| ).
ENDIF.
IF lv_object_lockable = abap_false.
zcx_abapgit_exception=>raise( |Object type { iv_program_id }-{ iv_object_type } not lockable| ).
ENDIF.
rv_transport = lv_transport_request.
ENDMETHOD.
METHOD get_current_transport_from_db.
" This method is used for objects that are included in transports but not locked
" for example, namespaces (NSPC)
SELECT SINGLE a~trkorr FROM e070 AS a JOIN e071 AS b ON a~trkorr = b~trkorr
INTO rv_transport
WHERE ( a~trstatus = ''D'' OR a~trstatus = ''L'' )
AND a~trfunction <> ''G''
AND b~pgmid = iv_program_id AND b~object = iv_object_type AND b~obj_name = iv_object_name.
ENDMETHOD.
METHOD is_object_locked_in_transport.
DATA: ls_object_key TYPE e071,
lv_type_check_result TYPE c LENGTH 1,
ls_lock_key TYPE tlock_int,
lv_lock_flag TYPE c LENGTH 1.
ls_object_key-pgmid = iv_program_id.
ls_object_key-object = iv_object_type.
ls_object_key-obj_name = iv_object_name.
CALL FUNCTION ''TR_CHECK_TYPE''
EXPORTING
wi_e071 = ls_object_key
IMPORTING
pe_result = lv_type_check_result
we_lock_key = ls_lock_key.
IF lv_type_check_result <> ''L''.
zcx_abapgit_exception=>raise( |Object type { iv_program_id }-{ iv_object_type } not lockable| ).
ENDIF.
CALL FUNCTION ''TRINT_CHECK_LOCKS''
EXPORTING
wi_lock_key = ls_lock_key
IMPORTING
we_lockflag = lv_lock_flag
EXCEPTIONS
empty_key = 1
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
rv_locked = boolc( lv_lock_flag <> space ).
ENDMETHOD.
METHOD is_object_type_lockable.
DATA: ls_object_key TYPE e071,
lv_type_check_result TYPE c LENGTH 1.
ls_object_key-pgmid = iv_program_id.
ls_object_key-object = iv_object_type.
ls_object_key-obj_name = ''_''. " Dummy value #2071
CALL FUNCTION ''TR_CHECK_TYPE''
EXPORTING
wi_e071 = ls_object_key
IMPORTING
pe_result = lv_type_check_result.
rv_lockable = boolc( lv_type_check_result = ''L'' ).
ENDMETHOD.
METHOD is_object_type_transportable.
DATA: ls_object_key TYPE e071,
lv_type_check_result TYPE c LENGTH 1.
ls_object_key-pgmid = iv_program_id.
ls_object_key-object = iv_object_type.
ls_object_key-obj_name = ''_''. " Dummy value #2071
CALL FUNCTION ''TR_CHECK_TYPE''
EXPORTING
wi_e071 = ls_object_key
IMPORTING
pe_result = lv_type_check_result.
rv_transportable = boolc( lv_type_check_result CA ''RTL'' ).
ENDMETHOD.
METHOD zif_abapgit_cts_api~change_transport_type.
DATA:
ls_request_header TYPE trwbo_request_header,
lt_request_headers TYPE trwbo_request_headers.
CALL FUNCTION ''ENQUEUE_E_TRKORR''
EXPORTING
trkorr = iv_transport_request
EXCEPTIONS
foreign_lock = 1
system_failure = 2
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
CALL FUNCTION ''TR_READ_REQUEST_WITH_TASKS''
EXPORTING
iv_trkorr = iv_transport_request
IMPORTING
et_request_headers = lt_request_headers
EXCEPTIONS
invalid_input = 1
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
LOOP AT lt_request_headers INTO ls_request_header WHERE trfunction = iv_transport_type_from.
CALL FUNCTION ''TRINT_READ_REQUEST_HEADER''
EXPORTING
iv_read_e070 = abap_true
iv_read_e070c = abap_true
CHANGING
cs_request = ls_request_header
EXCEPTIONS
empty_trkorr = 1
not_exist_e070 = 2
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
CALL FUNCTION ''TRINT_CHANGE_TRFUNCTION''
EXPORTING
iv_new_trfunction = iv_transport_type_to
CHANGING
cs_request_header = ls_request_header
EXCEPTIONS
action_aborted_by_user = 1
change_not_allowed = 2
db_access_error = 3
OTHERS = 4.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDLOOP.
CALL FUNCTION ''DEQUEUE_E_TRKORR''
EXPORTING
trkorr = iv_transport_request.
ENDMETHOD.
METHOD zif_abapgit_cts_api~confirm_transport_messages.
TYPES: BEGIN OF ty_s_message,
id TYPE symsgid,
ty TYPE symsgty,
no TYPE symsgno,
v1 TYPE symsgv,
v2 TYPE symsgv,
v3 TYPE symsgv,
v4 TYPE symsgv,
END OF ty_s_message.
DATA ls_message TYPE ty_s_message.
FIELD-SYMBOLS: <lt_confirmed_messages> TYPE STANDARD TABLE.
IF mv_confirm_transp_msgs_called = abap_true.
RETURN.
ENDIF.
" remember the call to avoid duplicates in GT_CONFIRMED_MESSAGES
mv_confirm_transp_msgs_called = abap_true.
" Auto-confirm certain messages (requires SAP Note 1609940)
PERFORM dummy IN PROGRAM saplstrd IF FOUND. "load function group STRD once into memory
ASSIGN (''(SAPLSTRD)GT_CONFIRMED_MESSAGES'') TO <lt_confirmed_messages>.
IF sy-subrc <> 0.
RETURN.
ENDIF.
" Object can only be created in package of namespace
ls_message-id = ''TR''.
ls_message-no = ''007''.
INSERT ls_message INTO TABLE <lt_confirmed_messages>.
" Original system set to "SAP"
ls_message-id = ''TR''.
ls_message-no = ''013''.
INSERT ls_message INTO TABLE <lt_confirmed_messages>.
" Make repairs in foreign namespaces only if they are urgent
ls_message-id = ''TR''.
ls_message-no = ''852''.
INSERT ls_message INTO TABLE <lt_confirmed_messages>.
" Make repairs in foreign namespaces only if they are urgent
ls_message-id = ''TK''.
ls_message-no = ''016''.
INSERT ls_message INTO TABLE <lt_confirmed_messages>.
rv_messages_confirmed = abap_true.
ENDMETHOD.
METHOD zif_abapgit_cts_api~create_transport_entries.
DATA lt_tables TYPE tredt_objects.
DATA lt_table_keys TYPE STANDARD TABLE OF e071k.
DATA lv_with_dialog TYPE abap_bool.
cl_table_utilities_brf=>create_transport_entries(
EXPORTING
it_table_ins = it_table_ins
it_table_upd = it_table_upd
it_table_del = it_table_del
iv_tabname = iv_tabname
CHANGING
ct_e071 = lt_tables
ct_e071k = lt_table_keys ).
" cl_table_utilities_brf=>write_transport_entries does not allow passing a request
CALL FUNCTION ''TR_OBJECTS_CHECK''
TABLES
wt_ko200 = lt_tables
EXCEPTIONS
cancel_edit_other_error = 1
show_only_other_error = 2
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
IF iv_transport IS INITIAL.
lv_with_dialog = abap_true.
ENDIF.
CALL FUNCTION ''TRINT_OBJECTS_CHECK_AND_INSERT''
EXPORTING
iv_order = iv_transport
iv_with_dialog = lv_with_dialog
CHANGING
ct_ko200 = lt_tables
ct_e071k = lt_table_keys
EXCEPTIONS
OTHERS = 1.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_cts_api~get_r3tr_obj_for_limu_obj.
CLEAR ev_object.
CLEAR ev_obj_name.
IF iv_object = ''MESS''.
ev_object = ''MSAG''.
ev_obj_name = substring( val = iv_obj_name
len = strlen( iv_obj_name ) - 3 ).
RETURN.
ENDIF.
CALL FUNCTION ''GET_R3TR_OBJECT_FROM_LIMU_OBJ''
EXPORTING
p_limu_objtype = iv_object
p_limu_objname = iv_obj_name
IMPORTING
p_r3tr_objtype = ev_object
p_r3tr_objname = ev_obj_name
EXCEPTIONS
no_mapping = 1
OTHERS = 2.
IF sy-subrc <> 0 OR ev_obj_name IS INITIAL.
zcx_abapgit_exception=>raise( |No R3TR Object found for { iv_object } { iv_obj_name }| ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_cts_api~get_transports_for_list.
DATA lv_request TYPE trkorr.
DATA lt_tlock TYPE SORTED TABLE OF tlock WITH NON-UNIQUE KEY object hikey.
DATA ls_object_key TYPE e071.
DATA lv_type_check_result TYPE c LENGTH 1.
DATA ls_lock_key TYPE tlock_int.
DATA ls_transport LIKE LINE OF rt_transports.
FIELD-SYMBOLS <ls_item> LIKE LINE OF it_items.
FIELD-SYMBOLS <ls_tlock> LIKE LINE OF lt_tlock.
* Workarounds to improve performance, note that IT_ITEMS might
* contain 1000s of rows, see standard logic in function module
* TR_CHECK_OBJECT_LOCK
* avoid database lookups in TLOCK for each item,
SELECT * FROM tlock INTO TABLE lt_tlock.
IF sy-subrc <> 0.
RETURN.
ENDIF.
LOOP AT it_items ASSIGNING <ls_item>.
CLEAR lv_request.
ls_object_key-pgmid = ''R3TR''.
ls_object_key-object = <ls_item>-obj_type.
ls_object_key-obj_name = <ls_item>-obj_name.
CALL FUNCTION ''TR_CHECK_TYPE''
EXPORTING
wi_e071 = ls_object_key
IMPORTING
we_lock_key = ls_lock_key
pe_result = lv_type_check_result.
IF lv_type_check_result = ''L''.
LOOP AT lt_tlock ASSIGNING <ls_tlock>
WHERE object = ls_lock_key-obj
AND hikey >= ls_lock_key-low
AND lokey <= ls_lock_key-hi. "#EC PORTABLE
lv_request = <ls_tlock>-trkorr.
EXIT.
ENDLOOP.
ELSEIF is_object_type_transportable( <ls_item>-obj_type ) = abap_true.
lv_request = get_current_transport_from_db(
iv_object_type = <ls_item>-obj_type
iv_object_name = <ls_item>-obj_name ).
ENDIF.
IF lv_request IS NOT INITIAL.
ls_transport-obj_type = <ls_item>-obj_type.
ls_transport-obj_name = <ls_item>-obj_name.
ls_transport-trkorr = lv_request.
INSERT ls_transport INTO TABLE rt_transports.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_cts_api~get_transport_for_object.
IF is_item-obj_type IS NOT INITIAL AND is_item-obj_name IS NOT INITIAL.
IF is_object_type_lockable( is_item-obj_type ) = abap_true AND
is_object_locked_in_transport(
iv_object_type = is_item-obj_type
iv_object_name = is_item-obj_name ) = abap_true.
rv_transport = get_current_transport_for_obj(
iv_object_type = is_item-obj_type
iv_object_name = is_item-obj_name ).
ELSEIF is_object_type_transportable( is_item-obj_type ) = abap_true.
rv_transport = get_current_transport_from_db(
iv_object_type = is_item-obj_type
iv_object_name = is_item-obj_name ).
ENDIF.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_cts_api~insert_transport_object.
CALL FUNCTION ''RS_CORR_INSERT''
EXPORTING
object = iv_obj_name
object_class = iv_object
devclass = iv_package
master_language = iv_language
mode = iv_mode
global_lock = abap_true
suppress_dialog = abap_true
EXCEPTIONS
cancelled = 1
permission_failure = 2
unknown_objectclass = 3
OTHERS = 4.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_cts_api~is_chrec_possible_for_package.
IF iv_package IS NOT INITIAL.
rv_possible = zcl_abapgit_factory=>get_sap_package( iv_package )->are_changes_recorded_in_tr_req( ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_cts_api~list_open_requests_by_user.
TYPES: BEGIN OF ty_e070,
trkorr TYPE e070-trkorr,
trfunction TYPE e070-trfunction,
strkorr TYPE e070-strkorr,
END OF ty_e070.
DATA lt_e070 TYPE STANDARD TABLE OF ty_e070 WITH DEFAULT KEY.
* find all tasks first
SELECT trkorr trfunction strkorr
FROM e070 INTO TABLE lt_e070
WHERE as4user = sy-uname
AND trstatus = zif_abapgit_cts_api=>c_transport_status-modifiable
AND strkorr <> ''''
ORDER BY PRIMARY KEY.
IF lines( lt_e070 ) > 0.
SELECT trkorr FROM e070
INTO TABLE rt_trkorr
FOR ALL ENTRIES IN lt_e070
WHERE trkorr = lt_e070-strkorr
AND trfunction = zif_abapgit_cts_api=>c_transport_type-wb_request.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_cts_api~list_r3tr_by_request.
TYPES: BEGIN OF ty_contents,
trkorr TYPE e071-trkorr,
as4pos TYPE e071-as4pos,
pgmid TYPE e071-pgmid,
object TYPE e071-object,
obj_name TYPE e071-obj_name,
END OF ty_contents.
DATA lt_tasks TYPE STANDARD TABLE OF trkorr WITH DEFAULT KEY.
DATA lt_contents TYPE STANDARD TABLE OF ty_contents WITH DEFAULT KEY.
DATA ls_contents LIKE LINE OF lt_contents.
DATA ls_list LIKE LINE OF rt_list.
SELECT trkorr FROM e070 INTO TABLE lt_tasks
WHERE strkorr = iv_request
ORDER BY PRIMARY KEY.
IF sy-subrc <> 0.
RETURN.
ENDIF.
SELECT trkorr as4pos pgmid object obj_name FROM e071
INTO TABLE lt_contents
FOR ALL ENTRIES IN lt_tasks
WHERE trkorr = lt_tasks-table_line
ORDER BY PRIMARY KEY.
IF sy-subrc <> 0.
RETURN.
ENDIF.
LOOP AT lt_contents INTO ls_contents.
CASE ls_contents-pgmid.
WHEN ''R3TR''.
ls_list-object = ls_contents-object.
ls_list-obj_name = ls_contents-obj_name.
INSERT ls_list INTO TABLE rt_list.
WHEN ''LIMU''.
TRY.
zif_abapgit_cts_api~get_r3tr_obj_for_limu_obj(
EXPORTING
iv_object = ls_contents-object
iv_obj_name = ls_contents-obj_name
IMPORTING
ev_object = ls_list-object
ev_obj_name = ls_list-obj_name ).
INSERT ls_list INTO TABLE rt_list.
CATCH zcx_abapgit_exception.
ENDTRY.
ENDCASE.
ENDLOOP.
SORT rt_list BY object obj_name.
DELETE ADJACENT DUPLICATES FROM rt_list COMPARING object obj_name.
ENDMETHOD.
METHOD zif_abapgit_cts_api~read.
DATA ls_request TYPE trwbo_request.
DATA ls_key LIKE LINE OF ls_request-keys.
FIELD-SYMBOLS <ls_key> LIKE LINE OF rs_request-keys.
ls_request-h-trkorr = iv_trkorr.
CALL FUNCTION ''TRINT_READ_REQUEST''
EXPORTING
iv_read_e070 = abap_true
iv_read_e07t = abap_true
iv_read_e070c = abap_true
iv_read_e070m = abap_true
iv_read_objs_keys = abap_true
iv_read_objs = abap_true
iv_read_attributes = abap_true
CHANGING
cs_request = ls_request
EXCEPTIONS
error_occured = 1
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
* move to output structure
rs_request-trstatus = ls_request-h-trstatus.
LOOP AT ls_request-keys INTO ls_key.
APPEND INITIAL LINE TO rs_request-keys ASSIGNING <ls_key>.
MOVE-CORRESPONDING ls_key TO <ls_key>.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_cts_api~read_description.
SELECT SINGLE as4text FROM e07t
INTO rv_description
WHERE trkorr = iv_trkorr
AND langu = sy-langu ##SUBRC_OK.
ENDMETHOD.
METHOD zif_abapgit_cts_api~read_user.
SELECT SINGLE as4user FROM e070 INTO rv_uname
WHERE trkorr = iv_trkorr ##SUBRC_OK.
ENDMETHOD.
METHOD zif_abapgit_cts_api~validate_transport_request.
CONSTANTS:
BEGIN OF c_tr_status,
modifiable TYPE trstatus VALUE ''D'',
modifiable_protected TYPE trstatus VALUE ''L'',
END OF c_tr_status.
DATA ls_request TYPE zif_abapgit_cts_api=>ty_transport_data.
ls_request = zif_abapgit_cts_api~read( iv_transport_request ).
IF ls_request-trstatus <> c_tr_status-modifiable
AND ls_request-trstatus <> c_tr_status-modifiable_protected.
" Task/request &1 has already been released
MESSAGE e064(tk) WITH iv_transport_request INTO zcx_abapgit_exception=>null.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_DEFAULT_TRANSPORT ', 'CLASS zcl_abapgit_default_transport DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES zif_abapgit_default_transport.
METHODS
constructor
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
DATA mv_is_set_by_abapgit TYPE abap_bool .
DATA ms_save TYPE e070use .
METHODS store
RAISING
zcx_abapgit_exception .
METHODS restore
RAISING
zcx_abapgit_exception .
METHODS set_internal
IMPORTING
!iv_transport TYPE trkorr
RAISING
zcx_abapgit_exception .
METHODS clear
IMPORTING
!is_default_task TYPE e070use
RAISING
zcx_abapgit_exception .
ENDCLASS.
CLASS ZCL_ABAPGIT_DEFAULT_TRANSPORT IMPLEMENTATION.
METHOD clear.
CALL FUNCTION ''TR_TASK_RESET''
EXPORTING
iv_username = is_default_task-username
iv_order = is_default_task-ordernum
iv_task = is_default_task-tasknum
iv_dialog = abap_false
EXCEPTIONS
invalid_username = 1
invalid_order = 2
invalid_task = 3
OTHERS = 4.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
METHOD constructor.
store( ).
ENDMETHOD.
METHOD restore.
IF ms_save IS INITIAL.
" There wasn''t a default transport request before
" so we needn''t restore anything.
RETURN.
ENDIF.
CALL FUNCTION ''TR_TASK_SET''
EXPORTING
iv_order = ms_save-ordernum
iv_task = ms_save-tasknum
EXCEPTIONS
invalid_username = 1
invalid_category = 2
invalid_client = 3
invalid_validdays = 4
invalid_order = 5
invalid_task = 6
OTHERS = 7.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
METHOD set_internal.
CALL FUNCTION ''TR_TASK_SET''
EXPORTING
iv_order = iv_transport
iv_validdays = 1
EXCEPTIONS
invalid_username = 1
invalid_category = 2
invalid_client = 3
invalid_validdays = 4
invalid_order = 5
invalid_task = 6
OTHERS = 7.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
METHOD store.
ms_save = zif_abapgit_default_transport~get( ).
ENDMETHOD.
METHOD zif_abapgit_default_transport~get.
DATA lt_e070use TYPE STANDARD TABLE OF e070use WITH DEFAULT KEY.
DATA ls_line LIKE LINE OF lt_e070use.
CALL FUNCTION ''TR_TASK_GET''
TABLES
tt_e070use = lt_e070use
EXCEPTIONS
invalid_username = 1
invalid_category = 2
invalid_client = 3
OTHERS = 4.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
READ TABLE lt_e070use INTO ls_line INDEX 1.
IF sy-subrc = 0.
MOVE-CORRESPONDING ls_line TO rs_default_task.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_default_transport~reset.
DATA: ls_default_task TYPE e070use.
IF mv_is_set_by_abapgit = abap_false.
" if the default transport request task isn''t set
" by us there is nothing to do.
RETURN.
ENDIF.
CLEAR mv_is_set_by_abapgit.
ls_default_task = zif_abapgit_default_transport~get( ).
IF ls_default_task IS NOT INITIAL.
clear( ls_default_task ).
ENDIF.
restore( ).
ENDMETHOD.
METHOD zif_abapgit_default_transport~set.
" checks whether object changes of the package are reordered in transport
" requests. If true then we set the default task, so that no annoying
" transport request popups are shown while deserializing.
IF mv_is_set_by_abapgit = abap_true.
" the default transport request task is already set by us
" -> no reason to do it again.
RETURN.
ENDIF.
IF iv_transport IS INITIAL.
zcx_abapgit_exception=>raise( |No transport request was supplied| ).
ENDIF.
set_internal( iv_transport ).
mv_is_set_by_abapgit = abap_true.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_TRANSPORT ', 'CLASS zcl_abapgit_transport DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
* todo, add interfaces for this class, consider merging zcl_abapgit_transport_mass into this class?
CLASS-METHODS zip
IMPORTING
!iv_show_log_popup TYPE abap_bool DEFAULT abap_true
!iv_logic TYPE string OPTIONAL
!is_trkorr TYPE trwbo_request_header OPTIONAL
RETURNING
VALUE(rv_xstr) TYPE xstring
RAISING
zcx_abapgit_exception .
CLASS-METHODS to_tadir
IMPORTING
!iv_trkorr TYPE trkorr
!iv_deleted_objects TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(rt_tadir) TYPE zif_abapgit_definitions=>ty_tadir_tt
RAISING
zcx_abapgit_exception .
CLASS-METHODS add_all_objects_to_trans_req
IMPORTING
iv_key TYPE zif_abapgit_persistence=>ty_value
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
TYPES ty_trkorr_tt TYPE STANDARD TABLE OF trkorr.
CLASS-METHODS read_requests
IMPORTING
!it_trkorr TYPE ty_trkorr_tt
RETURNING
VALUE(rt_requests) TYPE trwbo_requests
RAISING
zcx_abapgit_exception .
CLASS-METHODS find_top_package
IMPORTING
!it_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt
RETURNING
VALUE(rv_package) TYPE devclass
RAISING
zcx_abapgit_exception .
CLASS-METHODS resolve
IMPORTING
!it_requests TYPE trwbo_requests
!iv_deleted_objects TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(rt_tadir) TYPE zif_abapgit_definitions=>ty_tadir_tt
RAISING
zcx_abapgit_exception .
PRIVATE SECTION.
CLASS-METHODS collect_all_objects
IMPORTING
iv_key TYPE zif_abapgit_persistence=>ty_value
RETURNING
VALUE(rt_objects) TYPE tr_objects
RAISING
zcx_abapgit_exception.
CLASS-METHODS show_log
IMPORTING
it_log TYPE sprot_u_tab
iv_title TYPE string.
ENDCLASS.
CLASS ZCL_ABAPGIT_TRANSPORT IMPLEMENTATION.
METHOD add_all_objects_to_trans_req.
DATA:
ls_request TYPE trwbo_request_header,
lt_e071 TYPE tr_objects,
lv_text TYPE string,
lv_answer TYPE c LENGTH 1,
lv_lock_objects TYPE trparflag,
lt_log TYPE sprot_u_tab.
lv_answer = zcl_abapgit_ui_factory=>get_popups( )->popup_to_confirm(
iv_titlebar = \`Lock objects?\`
iv_text_question = \`Shall all objects be locked in the transport request?\`
iv_display_cancel_button = abap_true ).
CASE lv_answer.
WHEN ''1''.
lv_lock_objects = abap_true.
WHEN ''2''.
lv_lock_objects = abap_false.
WHEN OTHERS.
RETURN.
ENDCASE.
lt_e071 = collect_all_objects( iv_key ).
" We used TR_REQUEST_CHOICE before, but it issues its error log with
" write lists which are not compatible with abapGit.
" There we user TRINT_REQUEST_CHOICE which returns the error log
" and display the log ourselves.
CALL FUNCTION ''TRINT_REQUEST_CHOICE''
EXPORTING
iv_request_types = ''FTCOK''
iv_lock_objects = lv_lock_objects
iv_with_error_log = abap_false
IMPORTING
es_request = ls_request
et_log = lt_log
TABLES
it_e071 = lt_e071
EXCEPTIONS
invalid_request = 1
invalid_request_type = 2
user_not_owner = 3
no_objects_appended = 4
enqueue_error = 5
cancelled_by_user = 6
recursive_call = 7
OTHERS = 8.
IF sy-subrc = 0.
lv_text = |Objects successfully added to { ls_request-trkorr }|.
MESSAGE lv_text TYPE ''S''.
RETURN.
ENDIF.
IF lines( lt_log ) > 0.
show_log(
it_log = lt_log
iv_title = \`Error log\` ).
ELSE.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
METHOD collect_all_objects.
DATA:
lt_objects TYPE scts_tadir,
lt_objects_all LIKE lt_objects,
ls_e071 LIKE LINE OF rt_objects,
lo_repo TYPE REF TO zcl_abapgit_repo,
lv_package TYPE zif_abapgit_persistence=>ty_repo-package,
lt_packages TYPE zif_abapgit_sap_package=>ty_devclass_tt.
FIELD-SYMBOLS:
<lv_package> TYPE devclass,
<ls_object> TYPE tadir.
lo_repo ?= zcl_abapgit_repo_srv=>get_instance( )->get( iv_key ).
lv_package = lo_repo->get_package( ).
lt_packages = zcl_abapgit_factory=>get_sap_package( lv_package )->list_subpackages( ).
INSERT lv_package INTO TABLE lt_packages.
LOOP AT lt_packages ASSIGNING <lv_package>.
CLEAR: lt_objects.
CALL FUNCTION ''TRINT_SELECT_OBJECTS''
EXPORTING
iv_devclass = <lv_package>
iv_via_selscreen = abap_false
IMPORTING
et_objects_tadir = lt_objects
EXCEPTIONS
cancelled_by_user = 1
invalid_input = 2
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
INSERT LINES OF lt_objects INTO TABLE lt_objects_all.
ENDLOOP.
IF lines( lt_objects_all ) = 0.
zcx_abapgit_exception=>raise( |No objects found| ).
ENDIF.
LOOP AT lt_objects_all ASSIGNING <ls_object>.
CLEAR: ls_e071.
MOVE-CORRESPONDING <ls_object> TO ls_e071.
INSERT ls_e071 INTO TABLE rt_objects.
ENDLOOP.
ENDMETHOD.
METHOD find_top_package.
* assumption: all objects in transport share a common super package
DATA: lt_obj TYPE zif_abapgit_sap_package=>ty_devclass_tt,
lt_super TYPE zif_abapgit_sap_package=>ty_devclass_tt,
lv_super LIKE LINE OF lt_super,
lv_index TYPE i.
FIELD-SYMBOLS: <ls_tadir> LIKE LINE OF it_tadir.
READ TABLE it_tadir INDEX 1 ASSIGNING <ls_tadir>.
ASSERT sy-subrc = 0.
lt_super = zcl_abapgit_factory=>get_sap_package( <ls_tadir>-devclass )->list_superpackages( ).
LOOP AT it_tadir ASSIGNING <ls_tadir>.
lt_obj = zcl_abapgit_factory=>get_sap_package( <ls_tadir>-devclass )->list_superpackages( ).
* filter out possibilities from lt_super
LOOP AT lt_super INTO lv_super.
lv_index = sy-tabix.
READ TABLE lt_obj FROM lv_super TRANSPORTING NO FIELDS.
IF sy-subrc <> 0.
DELETE lt_super INDEX lv_index.
ENDIF.
ENDLOOP.
ENDLOOP.
READ TABLE lt_super INDEX lines( lt_super ) INTO rv_package.
ENDMETHOD.
METHOD read_requests.
DATA lt_requests LIKE rt_requests.
FIELD-SYMBOLS <lv_trkorr> LIKE LINE OF it_trkorr.
LOOP AT it_trkorr ASSIGNING <lv_trkorr>.
CALL FUNCTION ''TR_READ_REQUEST_WITH_TASKS''
EXPORTING
iv_trkorr = <lv_trkorr>
IMPORTING
et_requests = lt_requests
EXCEPTIONS
invalid_input = 1
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
APPEND LINES OF lt_requests TO rt_requests.
ENDLOOP.
ENDMETHOD.
METHOD resolve.
DATA: lv_object TYPE tadir-object,
lv_obj_name TYPE tadir-obj_name,
ls_tadir TYPE zif_abapgit_definitions=>ty_tadir,
lv_result TYPE trpari-s_checked,
ls_tadir_sap TYPE tadir.
FIELD-SYMBOLS: <ls_request> LIKE LINE OF it_requests,
<ls_object> LIKE LINE OF <ls_request>-objects.
LOOP AT it_requests ASSIGNING <ls_request>.
LOOP AT <ls_request>-objects ASSIGNING <ls_object>.
" VARX, see https://github.com/abapGit/abapGit/issues/3107
IF <ls_object>-pgmid = ''LIMU'' AND <ls_object>-object <> ''VARX''.
CALL FUNCTION ''TR_CHECK_TYPE''
EXPORTING
wi_e071 = <ls_object>
IMPORTING
we_tadir = ls_tadir_sap
pe_result = lv_result.
IF lv_result NA ''TL'' OR ls_tadir_sap IS INITIAL.
zcx_abapgit_exception=>raise( ''error from TR_CHECK_TYPE'' ).
ENDIF.
lv_object = ls_tadir_sap-object.
lv_obj_name = ls_tadir_sap-obj_name.
ELSE.
lv_object = <ls_object>-object.
lv_obj_name = <ls_object>-obj_name.
ENDIF.
ls_tadir = zcl_abapgit_factory=>get_tadir( )->read_single(
iv_object = lv_object
iv_obj_name = lv_obj_name ).
IF ls_tadir-delflag IS INITIAL OR iv_deleted_objects = abap_true.
APPEND ls_tadir TO rt_tadir.
ENDIF.
ENDLOOP.
ENDLOOP.
SORT rt_tadir BY object ASCENDING obj_name ASCENDING.
DELETE ADJACENT DUPLICATES FROM rt_tadir COMPARING object obj_name.
DELETE rt_tadir WHERE table_line IS INITIAL.
ENDMETHOD.
METHOD show_log.
DATA: li_log TYPE REF TO zif_abapgit_log,
lv_message TYPE string.
FIELD-SYMBOLS: <ls_log> TYPE sprot_u.
CREATE OBJECT li_log TYPE zcl_abapgit_log
EXPORTING
iv_title = iv_title.
LOOP AT it_log ASSIGNING <ls_log>.
MESSAGE ID <ls_log>-ag TYPE <ls_log>-severity NUMBER <ls_log>-msgnr
WITH <ls_log>-var1 <ls_log>-var2 <ls_log>-var3 <ls_log>-var4
INTO lv_message.
li_log->add(
iv_msg = lv_message
iv_type = <ls_log>-severity ).
ENDLOOP.
zcl_abapgit_log_viewer=>show_log( li_log ).
ENDMETHOD.
METHOD to_tadir.
DATA lt_requests TYPE trwbo_requests.
DATA lt_trkorr TYPE ty_trkorr_tt.
IF iv_trkorr IS INITIAL.
RETURN.
ENDIF.
INSERT iv_trkorr INTO TABLE lt_trkorr.
lt_requests = read_requests( lt_trkorr ).
rt_tadir = resolve(
it_requests = lt_requests
iv_deleted_objects = iv_deleted_objects ).
ENDMETHOD.
METHOD zip.
DATA: lt_requests TYPE trwbo_requests,
lt_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt,
lv_package TYPE devclass,
lo_dot_abapgit TYPE REF TO zcl_abapgit_dot_abapgit,
ls_local_settings TYPE zif_abapgit_persistence=>ty_repo-local_settings,
lt_trkorr TYPE ty_trkorr_tt,
lv_trkorr TYPE trkorr.
IF is_trkorr IS SUPPLIED.
APPEND is_trkorr-trkorr TO lt_trkorr.
ELSE.
lv_trkorr = zcl_abapgit_ui_factory=>get_popups( )->popup_to_select_transport( ).
IF lv_trkorr IS NOT INITIAL.
APPEND lv_trkorr TO lt_trkorr.
ENDIF.
ENDIF.
IF lines( lt_trkorr ) = 0.
RETURN.
ENDIF.
lt_requests = read_requests( lt_trkorr ).
lt_tadir = resolve( lt_requests ).
IF lines( lt_tadir ) = 0.
zcx_abapgit_exception=>raise( ''empty transport'' ).
ENDIF.
lv_package = find_top_package( lt_tadir ).
IF lv_package IS INITIAL.
zcx_abapgit_exception=>raise( ''error finding super package'' ).
ENDIF.
lo_dot_abapgit = zcl_abapgit_dot_abapgit=>build_default( ).
IF iv_logic IS SUPPLIED AND iv_logic IS NOT INITIAL.
lo_dot_abapgit->set_folder_logic( iv_logic ).
ELSE.
lo_dot_abapgit->set_folder_logic( zcl_abapgit_ui_factory=>get_popups( )->popup_folder_logic( ) ).
ENDIF.
rv_xstr = zcl_abapgit_zip=>export(
iv_package = lv_package
io_dot_abapgit = lo_dot_abapgit
is_local_settings = ls_local_settings
it_filter = lt_tadir
iv_show_log = iv_show_log_popup ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_TRANSPORT_2_BRANCH ', 'CLASS zcl_abapgit_transport_2_branch DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
METHODS create
IMPORTING
!io_repository TYPE REF TO zcl_abapgit_repo_online
!is_transport_to_branch TYPE zif_abapgit_definitions=>ty_transport_to_branch
!it_transport_objects TYPE zif_abapgit_definitions=>ty_tadir_tt
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
METHODS generate_commit_message
IMPORTING
!is_transport_to_branch TYPE zif_abapgit_definitions=>ty_transport_to_branch
RETURNING
VALUE(rs_comment) TYPE zif_abapgit_git_definitions=>ty_comment .
METHODS stage_transport_objects
IMPORTING
!it_transport_objects TYPE zif_abapgit_definitions=>ty_tadir_tt
!io_stage TYPE REF TO zcl_abapgit_stage
!is_stage_objects TYPE zif_abapgit_definitions=>ty_stage_files
!it_object_statuses TYPE zif_abapgit_definitions=>ty_results_tt
RAISING
zcx_abapgit_exception .
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_transport_2_branch IMPLEMENTATION.
METHOD create.
DATA:
lv_branch_name TYPE string,
ls_comment TYPE zif_abapgit_git_definitions=>ty_comment,
lo_stage TYPE REF TO zcl_abapgit_stage,
ls_stage_objects TYPE zif_abapgit_definitions=>ty_stage_files,
lt_object_statuses TYPE zif_abapgit_definitions=>ty_results_tt.
lv_branch_name = zcl_abapgit_git_branch_list=>complete_heads_branch_name(
zcl_abapgit_git_branch_list=>normalize_branch_name( is_transport_to_branch-branch_name ) ).
io_repository->create_branch( lv_branch_name ).
CREATE OBJECT lo_stage.
ls_stage_objects = zcl_abapgit_factory=>get_stage_logic( )->get( io_repository ).
lt_object_statuses = zcl_abapgit_repo_status=>calculate( io_repository ).
stage_transport_objects(
it_transport_objects = it_transport_objects
io_stage = lo_stage
is_stage_objects = ls_stage_objects
it_object_statuses = lt_object_statuses ).
ls_comment = generate_commit_message( is_transport_to_branch ).
io_repository->push( is_comment = ls_comment
io_stage = lo_stage ).
ENDMETHOD.
METHOD generate_commit_message.
rs_comment-committer-name = sy-uname.
rs_comment-committer-email = |{ rs_comment-committer-name }@localhost|.
rs_comment-comment = is_transport_to_branch-commit_text.
ENDMETHOD.
METHOD stage_transport_objects.
DATA lo_transport_objects TYPE REF TO zcl_abapgit_transport_objects.
CREATE OBJECT lo_transport_objects
EXPORTING
it_transport_objects = it_transport_objects.
lo_transport_objects->to_stage(
io_stage = io_stage
is_stage_objects = is_stage_objects
it_object_statuses = it_object_statuses ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_TRANSPORT_MASS ', 'CLASS zcl_abapgit_transport_mass DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_transport
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS run .
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_transport_mass IMPLEMENTATION.
METHOD run.
DATA:
lt_trkorr TYPE trwbo_request_headers,
lo_transport_zipper TYPE REF TO lcl_transport_zipper,
lx_except TYPE REF TO cx_root,
lv_folder TYPE string,
lv_text TYPE string.
TRY.
lt_trkorr = lcl_gui=>select_tr_requests( ).
IF lt_trkorr[] IS NOT INITIAL.
lv_folder = lcl_gui=>f4_folder( ).
IF lv_folder IS INITIAL.
* Empty folder
zcx_abapgit_exception=>raise( ''Empty destination folder'' ).
ENDIF.
* Instantiate transport zipper object that will also create the timestamped output folder
CREATE OBJECT lo_transport_zipper TYPE lcl_transport_zipper
EXPORTING
iv_folder = lv_folder.
* Generate the local zip files from the given list of transport requests
lo_transport_zipper->generate_files(
it_trkorr = lt_trkorr
ig_logic = zcl_abapgit_ui_factory=>get_popups( )->popup_folder_logic( ) ).
* Open output folder if user asked it
lcl_gui=>open_folder_frontend( lo_transport_zipper->get_folder( ) ).
ELSE.
* No data found for the provided selection criteria
zcx_abapgit_exception=>raise( ''No transport requests selected'' ).
ENDIF.
CATCH zcx_abapgit_exception INTO lx_except.
lv_text = lx_except->get_text( ).
MESSAGE lv_text TYPE ''S'' DISPLAY LIKE ''E''.
ENDTRY.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_TRANSPORT_OBJECTS ', 'CLASS zcl_abapgit_transport_objects DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
METHODS constructor
IMPORTING
!it_transport_objects TYPE zif_abapgit_definitions=>ty_tadir_tt .
METHODS to_stage
IMPORTING
!io_stage TYPE REF TO zcl_abapgit_stage
!is_stage_objects TYPE zif_abapgit_definitions=>ty_stage_files
!it_object_statuses TYPE zif_abapgit_definitions=>ty_results_tt
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
PRIVATE SECTION.
DATA mt_transport_objects TYPE zif_abapgit_definitions=>ty_tadir_tt .
ENDCLASS.
CLASS zcl_abapgit_transport_objects IMPLEMENTATION.
METHOD constructor.
mt_transport_objects = it_transport_objects.
ENDMETHOD.
METHOD to_stage.
DATA: ls_transport_object LIKE LINE OF mt_transport_objects,
ls_local_file TYPE zif_abapgit_definitions=>ty_file_item,
ls_object_status TYPE zif_abapgit_definitions=>ty_result.
LOOP AT mt_transport_objects INTO ls_transport_object.
LOOP AT it_object_statuses INTO ls_object_status
WHERE obj_name = ls_transport_object-obj_name
AND obj_type = ls_transport_object-object
AND NOT lstate IS INITIAL.
CASE ls_object_status-lstate.
WHEN zif_abapgit_definitions=>c_state-added OR zif_abapgit_definitions=>c_state-modified.
IF ls_transport_object-delflag = abap_true.
zcx_abapgit_exception=>raise( |Object { ls_transport_object-object }|
&& | { ls_transport_object-obj_name } should be added/modified,|
&& | but has deletion flag in transport| ).
ENDIF.
READ TABLE is_stage_objects-local
INTO ls_local_file
WITH KEY item-obj_name = ls_transport_object-obj_name
item-obj_type = ls_transport_object-object
file-filename = ls_object_status-filename.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Object { ls_transport_object-object }|
&& | { ls_transport_object-obj_name } not found in the local repository files| ).
ELSE.
io_stage->add(
iv_path = ls_local_file-file-path
iv_filename = ls_local_file-file-filename
iv_data = ls_local_file-file-data ).
ENDIF.
WHEN zif_abapgit_definitions=>c_state-deleted.
io_stage->rm(
iv_path = ls_object_status-path
iv_filename = ls_object_status-filename ).
WHEN OTHERS.
ASSERT 0 = 1. "Unexpected state
ENDCASE.
ENDLOOP.
IF sy-subrc <> 0.
" Since not all objects in a transport might be in the local repo
" i.e. generated SADL objects, we don''t add these objects to
" the stage.
ENDIF.
ENDLOOP.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_CTS_API ', 'INTERFACE zif_abapgit_cts_api
PUBLIC .
TYPES:
BEGIN OF ty_transport,
obj_type TYPE tadir-object,
obj_name TYPE tadir-obj_name,
trkorr TYPE trkorr,
END OF ty_transport .
TYPES:
ty_transport_list TYPE SORTED TABLE OF ty_transport WITH NON-UNIQUE KEY obj_type obj_name .
TYPES:
ty_trkorr_tt TYPE STANDARD TABLE OF trkorr WITH DEFAULT KEY .
TYPES:
BEGIN OF ty_transport_key,
object TYPE e071k-object,
objname TYPE e071k-objname,
tabkey TYPE e071k-tabkey,
END OF ty_transport_key .
TYPES:
BEGIN OF ty_transport_data,
trstatus TYPE e070-trstatus,
keys TYPE STANDARD TABLE OF ty_transport_key WITH DEFAULT KEY,
END OF ty_transport_data .
TYPES:
BEGIN OF ty_transport_obj,
object TYPE e071-object,
obj_name TYPE e071-obj_name,
END OF ty_transport_obj .
TYPES:
ty_transport_obj_tt TYPE STANDARD TABLE OF ty_transport_obj WITH DEFAULT KEY .
CONSTANTS:
BEGIN OF c_transport_type,
wb_request TYPE c LENGTH 1 VALUE ''K'', "workbench request
wb_repair TYPE c LENGTH 1 VALUE ''R'', "workbench repair
wb_task TYPE c LENGTH 1 VALUE ''S'', "workbench task
cust_request TYPE c LENGTH 1 VALUE ''W'', "customizing request
cust_task TYPE c LENGTH 1 VALUE ''Q'', "customizing task
END OF c_transport_type .
CONSTANTS:
BEGIN OF c_transport_category,
workbench TYPE c LENGTH 4 VALUE ''SYST'',
customizing TYPE c LENGTH 4 VALUE ''CUST'',
END OF c_transport_category .
CONSTANTS:
BEGIN OF c_transport_mode,
insert TYPE c LENGTH 1 VALUE ''I'',
delete TYPE c LENGTH 1 VALUE ''D'',
END OF c_transport_mode .
CONSTANTS:
BEGIN OF c_transport_status,
modifiable TYPE c LENGTH 1 VALUE ''D'',
END OF c_transport_status .
METHODS confirm_transport_messages
RETURNING
VALUE(rv_messages_confirmed) TYPE abap_bool .
METHODS create_transport_entries
IMPORTING
!iv_transport TYPE trkorr
!it_table_ins TYPE ANY TABLE
!it_table_upd TYPE ANY TABLE
!it_table_del TYPE ANY TABLE
!iv_tabname TYPE tabname
RAISING
zcx_abapgit_exception .
METHODS get_r3tr_obj_for_limu_obj
IMPORTING
!iv_object TYPE tadir-object
!iv_obj_name TYPE trobj_name
EXPORTING
!ev_object TYPE tadir-object
!ev_obj_name TYPE trobj_name
RAISING
zcx_abapgit_exception .
METHODS get_transports_for_list
IMPORTING
!it_items TYPE zif_abapgit_definitions=>ty_items_tt
RETURNING
VALUE(rt_transports) TYPE ty_transport_list
RAISING
zcx_abapgit_exception .
"! Returns the transport request / task the object is currently in
"! @parameter is_item | Object
"! @parameter rv_transport | Transport request / task
"! @raising zcx_abapgit_exception | Object is not in a transport
METHODS get_transport_for_object
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_item
RETURNING
VALUE(rv_transport) TYPE trkorr
RAISING
zcx_abapgit_exception .
METHODS insert_transport_object
IMPORTING
!iv_pgmid TYPE tadir-pgmid DEFAULT ''R3TR''
!iv_object TYPE tadir-object
!iv_obj_name TYPE csequence
!iv_package TYPE devclass
!iv_language TYPE sy-langu DEFAULT sy-langu
!iv_mode TYPE c DEFAULT ''I''
EXPORTING
!ev_object TYPE tadir-object
!ev_obj_name TYPE trobj_name
RAISING
zcx_abapgit_exception .
"! Check if change recording is possible for the given package
"! @parameter iv_package | Package
"! @parameter rv_possible | Change recording is possible
"! @raising zcx_abapgit_exception | Package could not be loaded
METHODS is_chrec_possible_for_package
IMPORTING
!iv_package TYPE devclass
RETURNING
VALUE(rv_possible) TYPE abap_bool
RAISING
zcx_abapgit_exception .
METHODS list_open_requests_by_user
IMPORTING
!iv_user TYPE sy-uname DEFAULT sy-uname
RETURNING
VALUE(rt_trkorr) TYPE ty_trkorr_tt
RAISING
zcx_abapgit_exception .
METHODS list_r3tr_by_request
IMPORTING
!iv_request TYPE trkorr
RETURNING
VALUE(rt_list) TYPE ty_transport_obj_tt
RAISING
zcx_abapgit_exception .
METHODS read
IMPORTING
!iv_trkorr TYPE trkorr
RETURNING
VALUE(rs_request) TYPE ty_transport_data
RAISING
zcx_abapgit_exception .
METHODS read_description
IMPORTING
!iv_trkorr TYPE trkorr
RETURNING
VALUE(rv_description) TYPE string .
METHODS read_user
IMPORTING
!iv_trkorr TYPE trkorr
RETURNING
VALUE(rv_uname) TYPE uname .
METHODS validate_transport_request
IMPORTING
!iv_transport_request TYPE trkorr
RAISING
zcx_abapgit_exception .
METHODS change_transport_type
IMPORTING
!iv_transport_request TYPE trkorr
!iv_transport_type_from TYPE trfunction
!iv_transport_type_to TYPE trfunction
RAISING
zcx_abapgit_exception.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_DEFAULT_TRANSPORT ', 'INTERFACE zif_abapgit_default_transport PUBLIC.
TYPES: BEGIN OF ty_get,
trfunction TYPE c LENGTH 1,
ordernum TYPE trkorr,
END OF ty_get.
METHODS set
IMPORTING
iv_transport TYPE trkorr
RAISING
zcx_abapgit_exception.
METHODS reset
RAISING
zcx_abapgit_exception.
METHODS get
RETURNING
VALUE(rs_default_task) TYPE ty_get
RAISING
zcx_abapgit_exception .
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_DATA_CONFIG ', 'CLASS zcl_abapgit_data_config DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES zif_abapgit_data_config .
PROTECTED SECTION.
PRIVATE SECTION.
DATA mt_config TYPE zif_abapgit_data_config=>ty_config_tt .
METHODS dump
IMPORTING
!is_config TYPE zif_abapgit_data_config=>ty_config
RETURNING
VALUE(rv_json) TYPE xstring
RAISING
zcx_abapgit_exception .
ENDCLASS.
CLASS zcl_abapgit_data_config IMPLEMENTATION.
METHOD dump.
DATA lo_ajson TYPE REF TO zcl_abapgit_ajson.
DATA lx_ajson TYPE REF TO zcx_abapgit_ajson_error.
TRY.
lo_ajson = zcl_abapgit_ajson=>create_empty( ).
lo_ajson->zif_abapgit_ajson~set(
iv_path = ''/''
iv_val = is_config ).
rv_json = zcl_abapgit_convert=>string_to_xstring_utf8( lo_ajson->stringify( 2 ) ).
CATCH zcx_abapgit_ajson_error INTO lx_ajson.
zcx_abapgit_exception=>raise( lx_ajson->get_text( ) ).
ENDTRY.
ENDMETHOD.
METHOD zif_abapgit_data_config~add_config.
DATA lv_where TYPE string.
FIELD-SYMBOLS <ls_config> LIKE LINE OF mt_config.
ASSERT is_config-type IS NOT INITIAL.
ASSERT is_config-name IS NOT INITIAL.
ASSERT is_config-name = to_upper( is_config-name ).
INSERT is_config INTO TABLE mt_config.
IF sy-subrc <> 0.
* append to existing
READ TABLE mt_config ASSIGNING <ls_config> WITH KEY type = is_config-type name = is_config-name.
ASSERT sy-subrc = 0.
LOOP AT is_config-where INTO lv_where.
READ TABLE <ls_config>-where TRANSPORTING NO FIELDS WITH KEY table_line = lv_where.
IF sy-subrc <> 0.
INSERT lv_where INTO TABLE <ls_config>-where.
ENDIF.
ENDLOOP.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_data_config~from_json.
DATA ls_file LIKE LINE OF it_files.
DATA ls_config TYPE zif_abapgit_data_config=>ty_config.
DATA lo_ajson TYPE REF TO zcl_abapgit_ajson.
DATA lx_ajson TYPE REF TO zcx_abapgit_ajson_error.
CLEAR mt_config.
LOOP AT it_files INTO ls_file
USING KEY file_path
WHERE path = zif_abapgit_data_config=>c_default_path
AND filename CP |*.{ zif_abapgit_data_config=>c_config }.{ zif_abapgit_data_config=>c_default_format }|.
TRY.
lo_ajson = zcl_abapgit_ajson=>parse( zcl_abapgit_convert=>xstring_to_string_utf8( ls_file-data ) ).
lo_ajson->zif_abapgit_ajson~to_abap( IMPORTING ev_container = ls_config ).
CATCH zcx_abapgit_ajson_error INTO lx_ajson.
zcx_abapgit_exception=>raise( lx_ajson->get_text( ) ).
ENDTRY.
zif_abapgit_data_config~add_config( ls_config ).
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_data_config~get_configs.
rt_configs = mt_config.
ENDMETHOD.
METHOD zif_abapgit_data_config~remove_config.
ASSERT is_config-type IS NOT INITIAL.
ASSERT is_config-name IS NOT INITIAL.
ASSERT is_config-name = to_upper( is_config-name ).
DELETE mt_config WHERE name = is_config-name AND type = is_config-type.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''Not found'' ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_data_config~to_json.
DATA ls_config LIKE LINE OF mt_config.
DATA ls_file LIKE LINE OF rt_files.
ls_file-path = zif_abapgit_data_config=>c_default_path.
LOOP AT mt_config INTO ls_config.
ls_file-data = dump( ls_config ).
ls_file-sha1 = zcl_abapgit_hash=>sha1_blob( ls_file-data ).
ls_config-type = zif_abapgit_data_config=>c_config.
ls_file-filename = zcl_abapgit_data_utils=>build_data_filename( ls_config ).
APPEND ls_file TO rt_files.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_data_config~update_config.
zif_abapgit_data_config~remove_config( is_config ).
zif_abapgit_data_config~add_config( is_config ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_DATA_DESERIALIZER ', 'CLASS zcl_abapgit_data_deserializer DEFINITION
PUBLIC
CREATE PRIVATE
GLOBAL FRIENDS zcl_abapgit_data_factory .
PUBLIC SECTION.
INTERFACES zif_abapgit_data_deserializer .
PROTECTED SECTION.
PRIVATE SECTION.
METHODS convert_json_to_itab
IMPORTING
!is_file TYPE zif_abapgit_git_definitions=>ty_file
!ir_data TYPE REF TO data
RAISING
zcx_abapgit_exception .
METHODS preview_database_changes
IMPORTING
!iv_name TYPE tadir-obj_name
!ir_lc_data TYPE REF TO data
!ir_db_data TYPE REF TO data
RETURNING
VALUE(rs_result) TYPE zif_abapgit_data_deserializer=>ty_result
RAISING
zcx_abapgit_exception.
METHODS write_database_table
IMPORTING
!iv_name TYPE tadir-obj_name
!ir_del TYPE REF TO data
!ir_ins TYPE REF TO data
!ir_upd TYPE REF TO data
RAISING
zcx_abapgit_exception .
METHODS read_database_table
IMPORTING
!iv_name TYPE tadir-obj_name
!it_where TYPE string_table
RETURNING
VALUE(rr_data) TYPE REF TO data
RAISING
zcx_abapgit_exception .
METHODS determine_transport_request
IMPORTING
io_repo TYPE REF TO zcl_abapgit_repo
iv_transport_type TYPE zif_abapgit_definitions=>ty_transport_type
RETURNING
VALUE(rv_transport_request) TYPE trkorr.
METHODS is_table_allowed_to_edit
IMPORTING
!is_result TYPE zif_abapgit_data_deserializer=>ty_result
RETURNING
VALUE(rv_allowed_to_edit) TYPE abap_bool .
ENDCLASS.
CLASS zcl_abapgit_data_deserializer IMPLEMENTATION.
METHOD convert_json_to_itab.
DATA lo_ajson TYPE REF TO zcl_abapgit_ajson.
DATA lx_ajson TYPE REF TO zcx_abapgit_ajson_error.
FIELD-SYMBOLS <lg_tab> TYPE ANY TABLE.
ASSIGN ir_data->* TO <lg_tab>.
TRY.
lo_ajson = zcl_abapgit_ajson=>parse( zcl_abapgit_convert=>xstring_to_string_utf8( is_file-data ) ).
lo_ajson->zif_abapgit_ajson~to_abap( IMPORTING ev_container = <lg_tab> ).
CATCH zcx_abapgit_ajson_error INTO lx_ajson.
zcx_abapgit_exception=>raise( lx_ajson->get_text( ) ).
ENDTRY.
ENDMETHOD.
METHOD determine_transport_request.
DATA li_exit TYPE REF TO zif_abapgit_exit.
li_exit = zcl_abapgit_exit=>get_instance( ).
" Use transport from repo settings if maintained, or determine via user exit.
" If transport keeps empty here, it''ll requested later via popup.
rv_transport_request = io_repo->get_local_settings( )-customizing_request.
li_exit->determine_transport_request(
EXPORTING
io_repo = io_repo
iv_transport_type = iv_transport_type
CHANGING
cv_transport_request = rv_transport_request ).
ENDMETHOD.
METHOD is_table_allowed_to_edit.
" Is the object supported (by default or based on exit)?
rv_allowed_to_edit = zcl_abapgit_data_factory=>get_supporter( )->is_object_supported(
iv_type = is_result-type
iv_name = is_result-name ).
ENDMETHOD.
METHOD preview_database_changes.
* method currently distinguishes between records be deleted and inserted (comparison of complete record)
FIELD-SYMBOLS <lg_old> TYPE ANY TABLE.
FIELD-SYMBOLS <lg_new> TYPE ANY TABLE.
FIELD-SYMBOLS <ls_del> TYPE any.
FIELD-SYMBOLS <ls_ins> TYPE any.
FIELD-SYMBOLS <lg_del> TYPE ANY TABLE.
FIELD-SYMBOLS <lg_ins> TYPE ANY TABLE.
FIELD-SYMBOLS <lg_upd> TYPE ANY TABLE.
ASSIGN ir_db_data->* TO <lg_old>.
ASSIGN ir_lc_data->* TO <lg_new>.
rs_result-type = zif_abapgit_data_config=>c_data_type-tabu.
rs_result-name = iv_name.
rs_result-deletes = zcl_abapgit_data_utils=>build_table_itab( iv_name ).
rs_result-inserts = zcl_abapgit_data_utils=>build_table_itab( iv_name ).
rs_result-updates = zcl_abapgit_data_utils=>build_table_itab( iv_name ).
ASSIGN rs_result-deletes->* TO <lg_del>.
ASSIGN rs_result-inserts->* TO <lg_ins>.
ASSIGN rs_result-updates->* TO <lg_upd>.
<lg_del> = <lg_old>.
<lg_ins> = <lg_new>.
" Remove identical records
LOOP AT <lg_del> ASSIGNING <ls_del>.
READ TABLE <lg_ins> ASSIGNING <ls_ins> FROM <ls_del>.
IF sy-subrc = 0.
IF <ls_del> <> <ls_ins>.
" Identical key but not identical component values
INSERT <ls_ins> INTO TABLE <lg_upd>.
ENDIF.
DELETE TABLE <lg_del> FROM <ls_del>.
DELETE TABLE <lg_ins> FROM <ls_ins>.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD read_database_table.
DATA lv_where LIKE LINE OF it_where.
FIELD-SYMBOLS <lg_tab> TYPE ANY TABLE.
rr_data = zcl_abapgit_data_utils=>build_table_itab( iv_name ).
ASSIGN rr_data->* TO <lg_tab>.
LOOP AT it_where INTO lv_where.
SELECT * FROM (iv_name) APPENDING TABLE <lg_tab> WHERE (lv_where) ORDER BY PRIMARY KEY.
ENDLOOP.
IF lines( it_where ) = 0.
SELECT * FROM (iv_name) INTO TABLE <lg_tab> ORDER BY PRIMARY KEY.
ENDIF.
ENDMETHOD.
METHOD write_database_table.
FIELD-SYMBOLS <lg_del> TYPE ANY TABLE.
FIELD-SYMBOLS <lg_ins> TYPE ANY TABLE.
FIELD-SYMBOLS <lg_upd> TYPE ANY TABLE.
IF zcl_abapgit_data_utils=>does_table_exist( iv_name ) = abap_false.
zcx_abapgit_exception=>raise( |Table { iv_name } not found for data deserialization| ).
ENDIF.
ASSIGN ir_del->* TO <lg_del>.
ASSIGN ir_ins->* TO <lg_ins>.
ASSIGN ir_upd->* TO <lg_upd>.
IF lines( <lg_del> ) > 0.
DELETE (iv_name) FROM TABLE <lg_del>.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error deleting { lines( <lg_del> ) } records from table { iv_name }| ).
ENDIF.
ENDIF.
IF lines( <lg_ins> ) > 0.
INSERT (iv_name) FROM TABLE <lg_ins>.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error inserting { lines( <lg_ins> ) } records into table { iv_name }| ).
ENDIF.
ENDIF.
IF lines( <lg_upd> ) > 0.
UPDATE (iv_name) FROM TABLE <lg_upd>.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error updating { lines( <lg_upd> ) } records into table { iv_name }| ).
ENDIF.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_data_deserializer~actualize.
* this method updates the database
DATA ls_result LIKE LINE OF it_result.
DATA li_cts_api TYPE REF TO zif_abapgit_cts_api.
FIELD-SYMBOLS:
<lt_ins> TYPE ANY TABLE,
<lt_del> TYPE ANY TABLE,
<lt_upd> TYPE ANY TABLE.
LOOP AT it_result INTO ls_result.
ASSERT ls_result-type = zif_abapgit_data_config=>c_data_type-tabu. " todo
ASSERT ls_result-name IS NOT INITIAL.
" Did the user flagged this object for update?
READ TABLE is_checks-overwrite TRANSPORTING NO FIELDS
WITH KEY object_type_and_name
COMPONENTS
obj_type = ls_result-type
obj_name = ls_result-name
decision = zif_abapgit_definitions=>c_yes.
IF sy-subrc <> 0.
CONTINUE.
ENDIF.
IF is_table_allowed_to_edit( ls_result ) = abap_false.
zcx_abapgit_exception=>raise( |Table { ls_result-name } not supported for updating data| ).
ENDIF.
write_database_table(
iv_name = ls_result-name
ir_del = ls_result-deletes
ir_ins = ls_result-inserts
ir_upd = ls_result-updates ).
ASSIGN ls_result-inserts->* TO <lt_ins>.
ASSIGN ls_result-deletes->* TO <lt_del>.
ASSIGN ls_result-updates->* TO <lt_upd>.
IF zcl_abapgit_data_utils=>is_customizing_table( ls_result-name ) = abap_true.
IF li_cts_api IS INITIAL.
li_cts_api = zcl_abapgit_factory=>get_cts_api( ).
ENDIF.
li_cts_api->create_transport_entries(
iv_transport = is_checks-customizing-transport
it_table_ins = <lt_ins>
it_table_upd = <lt_upd>
it_table_del = <lt_del>
iv_tabname = |{ ls_result-name }| ).
ENDIF.
INSERT ls_result-file INTO TABLE rt_accessed_files. " data file
INSERT ls_result-config INTO TABLE rt_accessed_files. " config file
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_data_deserializer~deserialize.
* this method does not persist any changes to the database
DATA lt_configs TYPE zif_abapgit_data_config=>ty_config_tt.
DATA ls_config LIKE LINE OF lt_configs.
DATA lr_lc_data TYPE REF TO data.
DATA lr_db_data TYPE REF TO data.
DATA ls_file LIKE LINE OF it_files.
DATA ls_result LIKE LINE OF rt_result.
lt_configs = ii_config->get_configs( ).
LOOP AT lt_configs INTO ls_config.
ASSERT ls_config-type = zif_abapgit_data_config=>c_data_type-tabu. " todo
ASSERT ls_config-name IS NOT INITIAL.
lr_lc_data = zcl_abapgit_data_utils=>build_table_itab( ls_config-name ).
READ TABLE it_files INTO ls_file
WITH KEY file_path
COMPONENTS path = zif_abapgit_data_config=>c_default_path
filename = zcl_abapgit_data_utils=>build_data_filename( ls_config ).
IF sy-subrc = 0.
convert_json_to_itab(
ir_data = lr_lc_data
is_file = ls_file ).
lr_db_data = read_database_table(
iv_name = ls_config-name
it_where = ls_config-where ).
ls_result = preview_database_changes(
iv_name = ls_config-name
ir_lc_data = lr_lc_data
ir_db_data = lr_db_data ).
MOVE-CORRESPONDING ls_file TO ls_result-file. " data file
READ TABLE it_files INTO ls_file
WITH KEY file_path
COMPONENTS path = zif_abapgit_data_config=>c_default_path
filename = zcl_abapgit_data_utils=>build_config_filename( ls_config ).
ASSERT sy-subrc = 0.
MOVE-CORRESPONDING ls_file TO ls_result-config. " config file
INSERT ls_result INTO TABLE rt_result.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_data_deserializer~deserialize_check.
DATA lt_configs TYPE zif_abapgit_data_config=>ty_config_tt.
lt_configs = ii_config->get_configs( ).
IF lt_configs IS NOT INITIAL.
rs_checks-required = abap_true.
rs_checks-type-request = zif_abapgit_cts_api=>c_transport_type-cust_request.
rs_checks-type-task = zif_abapgit_cts_api=>c_transport_type-cust_task.
rs_checks-transport = determine_transport_request(
io_repo = io_repo
iv_transport_type = rs_checks-type ).
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_DATA_FACTORY ', 'CLASS zcl_abapgit_data_factory DEFINITION
PUBLIC
CREATE PUBLIC
GLOBAL FRIENDS zcl_abapgit_data_injector .
PUBLIC SECTION.
CLASS-METHODS get_supporter
RETURNING
VALUE(ri_supporter) TYPE REF TO zif_abapgit_data_supporter .
CLASS-METHODS get_serializer
RETURNING
VALUE(ri_serializer) TYPE REF TO zif_abapgit_data_serializer .
CLASS-METHODS get_deserializer
RETURNING
VALUE(ri_deserializer) TYPE REF TO zif_abapgit_data_deserializer .
CLASS-METHODS get_config
RETURNING
VALUE(ri_config) TYPE REF TO zif_abapgit_data_config .
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-DATA gi_supporter TYPE REF TO zif_abapgit_data_supporter .
CLASS-DATA gi_serializer TYPE REF TO zif_abapgit_data_serializer .
CLASS-DATA gi_deserializer TYPE REF TO zif_abapgit_data_deserializer .
ENDCLASS.
CLASS zcl_abapgit_data_factory IMPLEMENTATION.
METHOD get_config.
CREATE OBJECT ri_config TYPE zcl_abapgit_data_config.
ENDMETHOD.
METHOD get_deserializer.
IF gi_deserializer IS INITIAL.
CREATE OBJECT gi_deserializer TYPE zcl_abapgit_data_deserializer.
ENDIF.
ri_deserializer = gi_deserializer.
ENDMETHOD.
METHOD get_serializer.
IF gi_serializer IS INITIAL.
CREATE OBJECT gi_serializer TYPE zcl_abapgit_data_serializer.
ENDIF.
ri_serializer = gi_serializer.
ENDMETHOD.
METHOD get_supporter.
IF gi_supporter IS INITIAL.
CREATE OBJECT gi_supporter TYPE zcl_abapgit_data_supporter.
ENDIF.
ri_supporter = gi_supporter.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_DATA_INJECTOR ', 'CLASS zcl_abapgit_data_injector DEFINITION
PUBLIC
FOR TESTING
CREATE PUBLIC .
PUBLIC SECTION.
METHODS set_supporter
IMPORTING
!ii_supporter TYPE REF TO zif_abapgit_data_supporter .
METHODS set_serializer
IMPORTING
!ii_serializer TYPE REF TO zif_abapgit_data_serializer .
METHODS set_deserializer
IMPORTING
!ii_deserializer TYPE REF TO zif_abapgit_data_deserializer .
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_data_injector IMPLEMENTATION.
METHOD set_deserializer.
zcl_abapgit_data_factory=>gi_deserializer = ii_deserializer.
ENDMETHOD.
METHOD set_serializer.
zcl_abapgit_data_factory=>gi_serializer = ii_serializer.
ENDMETHOD.
METHOD set_supporter.
zcl_abapgit_data_factory=>gi_supporter = ii_supporter.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_DATA_SERIALIZER ', 'CLASS zcl_abapgit_data_serializer DEFINITION
PUBLIC
CREATE PRIVATE
GLOBAL FRIENDS zcl_abapgit_data_factory .
PUBLIC SECTION.
INTERFACES zif_abapgit_data_serializer .
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS c_max_records TYPE i VALUE 20000 ##NO_TEXT.
METHODS convert_itab_to_json
IMPORTING
!ir_data TYPE REF TO data
!iv_skip_initial TYPE abap_bool
RETURNING
VALUE(rv_data) TYPE xstring
RAISING
zcx_abapgit_exception .
METHODS read_database_table
IMPORTING
!iv_name TYPE tadir-obj_name
!it_where TYPE string_table
RETURNING
VALUE(rr_data) TYPE REF TO data
RAISING
zcx_abapgit_exception .
ENDCLASS.
CLASS zcl_abapgit_data_serializer IMPLEMENTATION.
METHOD convert_itab_to_json.
DATA lo_ajson TYPE REF TO zcl_abapgit_ajson.
DATA lv_string TYPE string.
DATA lx_ajson TYPE REF TO zcx_abapgit_ajson_error.
FIELD-SYMBOLS <lg_tab> TYPE ANY TABLE.
ASSIGN ir_data->* TO <lg_tab>.
TRY.
lo_ajson = zcl_abapgit_ajson=>create_empty( ).
lo_ajson->keep_item_order( ).
lo_ajson->set(
iv_path = ''/''
iv_val = <lg_tab> ).
IF iv_skip_initial = abap_true.
lo_ajson = zcl_abapgit_ajson=>create_from(
ii_source_json = lo_ajson
ii_filter = zcl_abapgit_ajson_filter_lib=>create_empty_filter( ) ).
ENDIF.
lv_string = lo_ajson->stringify( 2 ).
CATCH zcx_abapgit_ajson_error INTO lx_ajson.
zcx_abapgit_exception=>raise( lx_ajson->get_text( ) ).
ENDTRY.
rv_data = zcl_abapgit_convert=>string_to_xstring_utf8( lv_string ).
ENDMETHOD.
METHOD read_database_table.
DATA lv_records TYPE i.
DATA lv_where LIKE LINE OF it_where.
DATA lx_sql TYPE REF TO cx_sy_sql_error.
FIELD-SYMBOLS <lg_tab> TYPE ANY TABLE.
rr_data = zcl_abapgit_data_utils=>build_table_itab( iv_name ).
ASSIGN rr_data->* TO <lg_tab>.
TRY.
LOOP AT it_where INTO lv_where.
SELECT * FROM (iv_name) APPENDING TABLE <lg_tab> WHERE (lv_where) ORDER BY PRIMARY KEY.
ENDLOOP.
IF lines( it_where ) = 0.
SELECT * FROM (iv_name) INTO TABLE <lg_tab> ORDER BY PRIMARY KEY.
ENDIF.
CATCH cx_sy_sql_error INTO lx_sql.
zcx_abapgit_exception=>raise(
iv_text = lx_sql->get_text( )
ix_previous = lx_sql ).
ENDTRY.
lv_records = lines( <lg_tab> ).
IF lv_records > c_max_records.
zcx_abapgit_exception=>raise( |Too many records selected from table { iv_name
} (selected { lv_records }, max { c_max_records })| ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_data_serializer~serialize.
DATA lt_configs TYPE zif_abapgit_data_config=>ty_config_tt.
DATA ls_config LIKE LINE OF lt_configs.
DATA ls_file LIKE LINE OF rt_files.
DATA lr_data TYPE REF TO data.
ls_file-path = zif_abapgit_data_config=>c_default_path.
lt_configs = ii_config->get_configs( ).
LOOP AT lt_configs INTO ls_config.
ASSERT ls_config-type = zif_abapgit_data_config=>c_data_type-tabu. " todo
ASSERT ls_config-name IS NOT INITIAL.
IF zcl_abapgit_data_utils=>does_table_exist( ls_config-name ) = abap_true.
lr_data = read_database_table(
iv_name = ls_config-name
it_where = ls_config-where ).
ls_file-data = convert_itab_to_json(
ir_data = lr_data
iv_skip_initial = ls_config-skip_initial ).
ELSE.
ls_file-data = zcl_abapgit_convert=>string_to_xstring_utf8( ''[]'' ).
ENDIF.
ls_file-filename = zcl_abapgit_data_utils=>build_data_filename( ls_config ).
ls_file-sha1 = zcl_abapgit_hash=>sha1_blob( ls_file-data ).
APPEND ls_file TO rt_files.
ENDLOOP.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_DATA_SUPPORTER ', 'CLASS zcl_abapgit_data_supporter DEFINITION
PUBLIC
CREATE PRIVATE
GLOBAL FRIENDS zcl_abapgit_data_factory .
PUBLIC SECTION.
INTERFACES zif_abapgit_data_supporter.
PROTECTED SECTION.
PRIVATE SECTION.
DATA mt_supported_objects TYPE zif_abapgit_data_supporter=>ty_objects.
METHODS get_supported_objects.
ENDCLASS.
CLASS zcl_abapgit_data_supporter IMPLEMENTATION.
METHOD get_supported_objects.
DATA:
lt_tables TYPE STANDARD TABLE OF tabname,
lv_tabname TYPE tabname,
ls_object LIKE LINE OF mt_supported_objects,
li_exit TYPE REF TO zif_abapgit_exit.
" For safety reasons, by default only customer-defined customizing tables are supported
SELECT dd02l~tabname
FROM dd09l JOIN dd02l
ON dd09l~tabname = dd02l~tabname
AND dd09l~as4local = dd02l~as4local
AND dd09l~as4vers = dd02l~as4vers
INTO TABLE lt_tables
WHERE dd02l~tabclass = ''TRANSP''
AND dd09l~tabart = ''APPL2''
AND dd09l~as4user <> ''SAP''
AND dd09l~as4local = ''A'' "Only active tables
AND dd02l~contflag = ''C'' "Only customizing tables
ORDER BY dd02l~tabname.
LOOP AT lt_tables INTO lv_tabname.
ls_object-type = zif_abapgit_data_config=>c_data_type-tabu.
ls_object-name = lv_tabname.
INSERT ls_object INTO TABLE mt_supported_objects.
ENDLOOP.
" The list of supported objects can be enhanced using an exit
" Name patterns are allowed. For example, TABU T009*
li_exit = zcl_abapgit_exit=>get_instance( ).
li_exit->change_supported_data_objects( CHANGING ct_objects = mt_supported_objects ).
ENDMETHOD.
METHOD zif_abapgit_data_supporter~is_object_supported.
FIELD-SYMBOLS <ls_object> LIKE LINE OF mt_supported_objects.
IF mt_supported_objects IS INITIAL.
get_supported_objects( ).
ENDIF.
READ TABLE mt_supported_objects TRANSPORTING NO FIELDS
WITH TABLE KEY type = iv_type name = iv_name.
IF sy-subrc = 0.
rv_supported = abap_true.
ELSE.
" Check if object name matches pattern
LOOP AT mt_supported_objects ASSIGNING <ls_object> WHERE type = iv_type.
IF iv_name CP <ls_object>-name.
rv_supported = abap_true.
RETURN.
ENDIF.
ENDLOOP.
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_DATA_UTILS ', 'CLASS zcl_abapgit_data_utils DEFINITION
PUBLIC
CREATE PUBLIC.
PUBLIC SECTION.
TYPES ty_names TYPE STANDARD TABLE OF abap_compname WITH DEFAULT KEY .
CLASS-METHODS build_table_itab
IMPORTING
!iv_name TYPE tadir-obj_name
RETURNING
VALUE(rr_data) TYPE REF TO data
RAISING
zcx_abapgit_exception.
CLASS-METHODS build_data_filename
IMPORTING
!is_config TYPE zif_abapgit_data_config=>ty_config
RETURNING
VALUE(rv_filename) TYPE string.
CLASS-METHODS build_config_filename
IMPORTING
!is_config TYPE zif_abapgit_data_config=>ty_config
RETURNING
VALUE(rv_filename) TYPE string.
CLASS-METHODS jump
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_item
RAISING
zcx_abapgit_exception.
CLASS-METHODS does_table_exist
IMPORTING
!iv_name TYPE tadir-obj_name
RETURNING
VALUE(rv_exists) TYPE abap_bool.
CLASS-METHODS is_customizing_table
IMPORTING
!iv_name TYPE tadir-obj_name
RETURNING
VALUE(rv_customizing) TYPE abap_bool.
CLASS-METHODS list_key_fields
IMPORTING
!iv_name TYPE tadir-obj_name
RETURNING
VALUE(rt_names) TYPE ty_names
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS ZCL_ABAPGIT_DATA_UTILS IMPLEMENTATION.
METHOD build_config_filename.
rv_filename = to_lower( |{ is_config-name }.{ zif_abapgit_data_config=>c_config }|
&& |.{ zif_abapgit_data_config=>c_default_format }| ).
REPLACE ALL OCCURRENCES OF ''/'' IN rv_filename WITH ''#''.
ENDMETHOD.
METHOD build_data_filename.
rv_filename = to_lower( |{ is_config-name }.{ is_config-type }|
&& |.{ zif_abapgit_data_config=>c_default_format }| ).
REPLACE ALL OCCURRENCES OF ''/'' IN rv_filename WITH ''#''.
ENDMETHOD.
METHOD build_table_itab.
DATA lo_type TYPE REF TO cl_abap_typedescr.
DATA lo_data TYPE REF TO cl_abap_structdescr.
DATA lo_table TYPE REF TO cl_abap_tabledescr.
DATA lt_keys TYPE abap_table_keydescr_tab.
DATA lt_names TYPE ty_names.
FIELD-SYMBOLS <lv_name> LIKE LINE OF lt_names.
FIELD-SYMBOLS <ls_key> LIKE LINE OF lt_keys.
FIELD-SYMBOLS <ls_component> LIKE LINE OF <ls_key>-components.
cl_abap_structdescr=>describe_by_name(
EXPORTING
p_name = iv_name
RECEIVING
p_descr_ref = lo_type
EXCEPTIONS
type_not_found = 1 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Table { iv_name } not found for data serialization| ).
ENDIF.
TRY.
lo_data ?= lo_type.
" Get primary key to ensure unique entries
IF lo_data->is_ddic_type( ) = abap_true.
lt_names = list_key_fields( iv_name ).
APPEND INITIAL LINE TO lt_keys ASSIGNING <ls_key>.
<ls_key>-access_kind = cl_abap_tabledescr=>tablekind_hashed.
<ls_key>-key_kind = cl_abap_tabledescr=>keydefkind_user.
<ls_key>-is_primary = abap_true.
<ls_key>-is_unique = abap_true.
LOOP AT lt_names ASSIGNING <lv_name>.
APPEND INITIAL LINE TO <ls_key>-components ASSIGNING <ls_component>.
<ls_component>-name = <lv_name>.
ENDLOOP.
ENDIF.
IF lines( lt_names ) = 0.
lo_table = cl_abap_tabledescr=>get( lo_data ).
ELSE.
lo_table = cl_abap_tabledescr=>get_with_keys(
p_line_type = lo_data
p_keys = lt_keys ).
ENDIF.
CREATE DATA rr_data TYPE HANDLE lo_table.
CATCH cx_root.
zcx_abapgit_exception=>raise( |Error creating internal table for data serialization| ).
ENDTRY.
ENDMETHOD.
METHOD does_table_exist.
" This is slow but ensures that the table actually exists and is not just buffered by RTTI
" If we just rely on RTTI, uninstalling and reinstalling a table in the same session will lead to dumps
TRY.
build_table_itab( iv_name ).
rv_exists = abap_true.
CATCH zcx_abapgit_exception ##NO_HANDLER.
ENDTRY.
ENDMETHOD.
METHOD is_customizing_table.
DATA lv_contflag TYPE c LENGTH 1.
DATA lo_table TYPE REF TO object.
DATA lo_content TYPE REF TO object.
DATA lo_delivery_class TYPE REF TO object.
FIELD-SYMBOLS <ls_any> TYPE any.
TRY.
CALL METHOD (''XCO_CP_ABAP_DICTIONARY'')=>database_table
EXPORTING
iv_name = iv_name(16)
RECEIVING
ro_database_table = lo_table.
CALL METHOD lo_table->(''IF_XCO_DATABASE_TABLE~CONTENT'')
RECEIVING
ro_content = lo_content.
CALL METHOD lo_content->(''IF_XCO_DBT_CONTENT~GET_DELIVERY_CLASS'')
RECEIVING
ro_delivery_class = lo_delivery_class.
ASSIGN lo_delivery_class->(''VALUE'') TO <ls_any>.
lv_contflag = <ls_any>.
CATCH cx_sy_dyn_call_illegal_class cx_no_check.
" Catching SAP standard exception CX_NO_CHECK,
" because of the expected exception CX_XCO_RUNTIME_EXCEPTION
" could not be used here directly to keep the indirect usage approach.
SELECT SINGLE contflag FROM (''DD02L'') INTO lv_contflag WHERE tabname = iv_name.
ENDTRY.
IF lv_contflag = ''C''.
rv_customizing = abap_true.
ELSEIF lv_contflag IS NOT INITIAL.
rv_customizing = abap_false.
ELSE.
rv_customizing = abap_undefined. " table does not exist
ENDIF.
ENDMETHOD.
METHOD jump.
" Run SE16 with authorization check
CALL FUNCTION ''RS_TABLE_LIST_CREATE''
EXPORTING
table_name = is_item-obj_name
EXCEPTIONS
table_is_structure = 1
table_not_exists = 2
db_not_exists = 3
no_permission = 4
no_change_allowed = 5
table_is_gtt = 6
OTHERS = 7.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Table { is_item-obj_name } cannot be displayed| ).
ENDIF.
ENDMETHOD.
METHOD list_key_fields.
DATA lo_obj TYPE REF TO object.
DATA lv_tabname TYPE c LENGTH 16.
DATA lr_ddfields TYPE REF TO data.
DATA lv_workaround TYPE c LENGTH 20.
DATA lr_struct TYPE REF TO cl_abap_structdescr.
FIELD-SYMBOLS <lg_any> TYPE any.
FIELD-SYMBOLS <lv_field> TYPE simple.
FIELD-SYMBOLS <lt_ddfields> TYPE ANY TABLE.
* convert to correct type,
lv_tabname = iv_name.
TRY.
CALL METHOD (''XCO_CP_ABAP_DICTIONARY'')=>database_table
EXPORTING
iv_name = lv_tabname
RECEIVING
ro_database_table = lo_obj.
ASSIGN lo_obj->(''IF_XCO_DATABASE_TABLE~FIELDS->IF_XCO_DBT_FIELDS_FACTORY~KEY'') TO <lg_any>.
IF sy-subrc <> 0.
* fallback to RTTI, KEY field does not exist in S/4 2020
RAISE EXCEPTION TYPE cx_sy_dyn_call_illegal_class.
ENDIF.
lo_obj = <lg_any>.
CALL METHOD lo_obj->(''IF_XCO_DBT_FIELDS~GET_NAMES'')
RECEIVING
rt_names = rt_names.
CATCH cx_sy_dyn_call_illegal_class cx_no_check.
lv_workaround = ''DDFIELDS''.
CREATE DATA lr_ddfields TYPE (lv_workaround).
ASSIGN lr_ddfields->* TO <lt_ddfields>.
ASSERT sy-subrc = 0.
lr_struct ?= cl_abap_typedescr=>describe_by_name( lv_tabname ).
lr_struct->get_ddic_field_list(
RECEIVING
p_field_list = <lt_ddfields>
EXCEPTIONS
not_found = 1
no_ddic_type = 2 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Table { iv_name } not found| ).
ENDIF.
LOOP AT <lt_ddfields> ASSIGNING <lg_any>.
ASSIGN COMPONENT ''KEYFLAG'' OF STRUCTURE <lg_any> TO <lv_field>.
IF sy-subrc <> 0 OR <lv_field> <> abap_true.
CONTINUE.
ENDIF.
ASSIGN COMPONENT ''FIELDNAME'' OF STRUCTURE <lg_any> TO <lv_field>.
ASSERT sy-subrc = 0.
APPEND <lv_field> TO rt_names.
ENDLOOP.
ENDTRY.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_DATA_CONFIG ', 'INTERFACE zif_abapgit_data_config
PUBLIC .
TYPES:
ty_data_type TYPE c LENGTH 4 .
TYPES:
BEGIN OF ty_config,
type TYPE ty_data_type,
name TYPE tadir-obj_name,
skip_initial TYPE abap_bool,
where TYPE string_table,
END OF ty_config .
TYPES:
ty_config_tt TYPE SORTED TABLE OF ty_config WITH UNIQUE KEY type name .
CONSTANTS c_default_path TYPE string VALUE ''/data/'' ##NO_TEXT.
CONSTANTS c_default_format TYPE string VALUE ''json'' ##NO_TEXT.
CONSTANTS c_config TYPE string VALUE ''conf'' ##NO_TEXT.
CONSTANTS:
BEGIN OF c_data_type,
tabu TYPE ty_data_type VALUE ''TABU'',
vdat TYPE ty_data_type VALUE ''VDAT'',
cdat TYPE ty_data_type VALUE ''CDAT'',
tdat TYPE ty_data_type VALUE ''TDAT'',
END OF c_data_type .
METHODS add_config
IMPORTING
!is_config TYPE ty_config
RAISING
zcx_abapgit_exception .
METHODS from_json
IMPORTING
!it_files TYPE zif_abapgit_git_definitions=>ty_files_tt
RAISING
zcx_abapgit_exception .
METHODS get_configs
RETURNING
VALUE(rt_configs) TYPE ty_config_tt .
METHODS remove_config
IMPORTING
!is_config TYPE ty_config
RAISING
zcx_abapgit_exception .
METHODS to_json
RETURNING
VALUE(rt_files) TYPE zif_abapgit_git_definitions=>ty_files_tt
RAISING
zcx_abapgit_exception .
METHODS update_config
IMPORTING
!is_config TYPE ty_config
RAISING
zcx_abapgit_exception .
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_DATA_DESERIALIZER ', 'INTERFACE zif_abapgit_data_deserializer
PUBLIC .
TYPES: BEGIN OF ty_result,
type TYPE zif_abapgit_data_config=>ty_config-type,
name TYPE zif_abapgit_data_config=>ty_config-name,
deletes TYPE REF TO data,
updates TYPE REF TO data,
inserts TYPE REF TO data,
file TYPE zif_abapgit_git_definitions=>ty_file_signature,
config TYPE zif_abapgit_git_definitions=>ty_file_signature,
END OF ty_result.
TYPES: ty_results TYPE STANDARD TABLE OF ty_result WITH KEY type name.
METHODS deserialize_check
IMPORTING
!io_repo TYPE REF TO zcl_abapgit_repo
!ii_config TYPE REF TO zif_abapgit_data_config
RETURNING
VALUE(rs_checks) TYPE zif_abapgit_definitions=>ty_deserialize_checks-customizing
RAISING
zcx_abapgit_exception .
METHODS deserialize
IMPORTING
!ii_config TYPE REF TO zif_abapgit_data_config
!it_files TYPE zif_abapgit_git_definitions=>ty_files_tt
RETURNING
VALUE(rt_result) TYPE ty_results
RAISING
zcx_abapgit_exception .
METHODS actualize
IMPORTING
!is_checks TYPE zif_abapgit_definitions=>ty_deserialize_checks
!it_result TYPE ty_results
RETURNING
VALUE(rt_accessed_files) TYPE zif_abapgit_git_definitions=>ty_file_signatures_tt
RAISING
zcx_abapgit_exception .
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_DATA_SERIALIZER ', 'INTERFACE zif_abapgit_data_serializer
PUBLIC .
METHODS serialize
IMPORTING
!ii_config TYPE REF TO zif_abapgit_data_config
RETURNING
VALUE(rt_files) TYPE zif_abapgit_git_definitions=>ty_files_tt
RAISING
zcx_abapgit_exception .
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_DATA_SUPPORTER ', 'INTERFACE zif_abapgit_data_supporter
PUBLIC.
TYPES:
BEGIN OF ty_object,
type TYPE zif_abapgit_data_config=>ty_config-type,
name TYPE zif_abapgit_data_config=>ty_config-name,
END OF ty_object.
TYPES:
ty_objects TYPE SORTED TABLE OF ty_object WITH UNIQUE KEY type name.
METHODS is_object_supported
IMPORTING
!iv_type TYPE ty_object-type
!iv_name TYPE ty_object-name
RETURNING
VALUE(rv_supported) TYPE abap_bool.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_ABAP_LANGUAGE_VERS ', 'CLASS zcl_abapgit_abap_language_vers DEFINITION
PUBLIC
FINAL
CREATE PUBLIC.
PUBLIC SECTION.
CONSTANTS:
c_any_abap_language_version TYPE zif_abapgit_aff_types_v1=>ty_abap_language_version VALUE ''*'',
c_no_abap_language_version TYPE zif_abapgit_aff_types_v1=>ty_abap_language_version VALUE ''-'',
c_feature_flag TYPE string VALUE ''ALAV''.
METHODS constructor
IMPORTING
!io_dot_abapgit TYPE REF TO zcl_abapgit_dot_abapgit.
METHODS get_abap_language_vers_by_objt
IMPORTING
!iv_object_type TYPE trobjtype
!iv_package TYPE devclass
RETURNING
VALUE(rv_allowed_abap_langu_version) TYPE zif_abapgit_aff_types_v1=>ty_abap_language_version.
METHODS get_repo_abap_language_version
RETURNING
VALUE(rv_abap_language_version) TYPE zif_abapgit_aff_types_v1=>ty_abap_language_version.
METHODS is_import_allowed
IMPORTING
!iv_package TYPE devclass
RETURNING
VALUE(rv_allowed) TYPE abap_bool.
CLASS-METHODS check_abap_language_version
IMPORTING
!iv_abap_language_version TYPE zif_abapgit_aff_types_v1=>ty_abap_language_version
!is_item TYPE zif_abapgit_definitions=>ty_item
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
DATA mo_dot_abapgit TYPE REF TO zcl_abapgit_dot_abapgit.
" Depends on experimental feature flag and repo setting
DATA mv_has_abap_language_vers TYPE abap_bool.
METHODS get_default_abap_language_vers
IMPORTING
!iv_object_type TYPE trobjtype
RETURNING
VALUE(rv_abap_language_version) TYPE zif_abapgit_aff_types_v1=>ty_abap_language_version.
METHODS get_abap_language_vers_by_devc
IMPORTING
!iv_package TYPE devclass
RETURNING
VALUE(rv_abap_language_version) TYPE string.
METHODS get_abap_language_vers_by_repo
RETURNING
VALUE(rv_abap_language_version) TYPE string.
CLASS-METHODS get_description
IMPORTING
!iv_abap_language_version TYPE zif_abapgit_aff_types_v1=>ty_abap_language_version
RETURNING
VALUE(rv_description) TYPE string.
ENDCLASS.
CLASS zcl_abapgit_abap_language_vers IMPLEMENTATION.
METHOD check_abap_language_version.
" Check if ABAP language version matches repository setting
IF is_item-abap_language_version IS NOT INITIAL AND iv_abap_language_version <> is_item-abap_language_version.
zcx_abapgit_exception=>raise(
|Object { is_item-obj_type } { is_item-obj_name } has { get_description( iv_abap_language_version ) }| &&
| but repository is set to { get_description( is_item-abap_language_version ) }| ).
ENDIF.
ENDMETHOD.
METHOD constructor.
mo_dot_abapgit = io_dot_abapgit.
IF zcl_abapgit_feature=>is_enabled( c_feature_flag ) = abap_false.
mv_has_abap_language_vers = abap_undefined.
ELSEIF get_abap_language_vers_by_repo( ) = zif_abapgit_dot_abapgit=>c_abap_language_version-undefined.
mv_has_abap_language_vers = abap_undefined.
ELSEIF get_abap_language_vers_by_repo( ) = zif_abapgit_dot_abapgit=>c_abap_language_version-ignore.
mv_has_abap_language_vers = abap_false.
ELSE.
mv_has_abap_language_vers = abap_true.
ENDIF.
ENDMETHOD.
METHOD get_abap_language_vers_by_devc.
DATA lv_class TYPE string.
DATA lv_abap_lang_version_devc TYPE string.
DATA lo_abap_language_version_cfg TYPE REF TO object.
lv_class = ''CL_ABAP_LANGUAGE_VERSION_CFG''.
TRY.
CALL METHOD (lv_class)=>(''GET_INSTANCE'')
RECEIVING
ro_instance = lo_abap_language_version_cfg.
" For non-existing packages, GET_PACKAGE_DEFAULT_VERSION returns "standard"
" but we want to return "undefined" in this case to allow any new packages
IF zcl_abapgit_factory=>get_sap_package( iv_package )->exists( ) = abap_true.
CALL METHOD lo_abap_language_version_cfg->(''IF_ABAP_LANGUAGE_VERSION_CFG~GET_PACKAGE_DEFAULT_VERSION'')
EXPORTING
iv_package_name = iv_package
RECEIVING
rv_default_language_version = lv_abap_lang_version_devc.
ELSE.
lv_abap_lang_version_devc = ''-''.
ENDIF.
CASE lv_abap_lang_version_devc.
WHEN zif_abapgit_aff_types_v1=>co_abap_language_version-standard.
rv_abap_language_version = zif_abapgit_dot_abapgit=>c_abap_language_version-standard.
WHEN zif_abapgit_aff_types_v1=>co_abap_language_version-key_user.
rv_abap_language_version = zif_abapgit_dot_abapgit=>c_abap_language_version-key_user.
WHEN zif_abapgit_aff_types_v1=>co_abap_language_version-cloud_development.
rv_abap_language_version = zif_abapgit_dot_abapgit=>c_abap_language_version-cloud_development.
WHEN OTHERS.
rv_abap_language_version = zif_abapgit_dot_abapgit=>c_abap_language_version-undefined.
ENDCASE.
CATCH cx_root.
rv_abap_language_version = zif_abapgit_dot_abapgit=>c_abap_language_version-undefined.
ENDTRY.
ENDMETHOD.
METHOD get_abap_language_vers_by_objt.
DATA lv_class TYPE string.
DATA lo_abap_language_version TYPE REF TO object.
IF mv_has_abap_language_vers = abap_undefined.
rv_allowed_abap_langu_version = c_any_abap_language_version.
ELSEIF mv_has_abap_language_vers = abap_false.
rv_allowed_abap_langu_version = c_no_abap_language_version.
ELSE. " abap_true
lv_class = ''CL_ABAP_LANGUAGE_VERSION''.
TRY.
CALL METHOD (lv_class)=>(''GET_INSTANCE'')
RECEIVING
ro_version_handler = lo_abap_language_version.
CALL METHOD lo_abap_language_version->(''IF_ABAP_LANGUAGE_VERSION~GET_DEFAULT_VERSION'')
EXPORTING
iv_object_type = iv_object_type
iv_package = iv_package
RECEIVING
rv_default_version = rv_allowed_abap_langu_version.
CATCH cx_root.
rv_allowed_abap_langu_version = get_default_abap_language_vers( iv_object_type ).
ENDTRY.
ENDIF.
ENDMETHOD.
METHOD get_abap_language_vers_by_repo.
rv_abap_language_version = mo_dot_abapgit->get_abap_language_version( ).
IF rv_abap_language_version IS INITIAL.
rv_abap_language_version = zif_abapgit_dot_abapgit=>c_abap_language_version-undefined.
ENDIF.
ENDMETHOD.
METHOD get_default_abap_language_vers.
IF zcl_abapgit_factory=>get_environment( )->is_sap_cloud_platform( ) = abap_true.
" On BTP, default to ABAP for Cloud Development
rv_abap_language_version = zif_abapgit_aff_types_v1=>co_abap_language_version_cloud-cloud_development.
ELSE.
" Differentiate between source code object and non-source code objects
CASE iv_object_type.
WHEN ''BDEF'' OR ''CLAS'' OR ''FUGR'' OR ''FUGS'' OR ''INTF'' OR ''PROG'' OR ''TYPE''.
rv_abap_language_version = zif_abapgit_aff_types_v1=>co_abap_language_version_src-standard.
WHEN OTHERS.
rv_abap_language_version = zif_abapgit_aff_types_v1=>co_abap_language_version-standard.
ENDCASE.
ENDIF.
ENDMETHOD.
METHOD get_description.
CASE iv_abap_language_version.
WHEN zif_abapgit_aff_types_v1=>co_abap_language_version-standard
OR zif_abapgit_aff_types_v1=>co_abap_language_version_src-standard.
rv_description = ''Standard ABAP''.
WHEN zif_abapgit_aff_types_v1=>co_abap_language_version-key_user
OR zif_abapgit_aff_types_v1=>co_abap_language_version_src-key_user.
rv_description = ''ABAP for Key Users''.
WHEN zif_abapgit_aff_types_v1=>co_abap_language_version-cloud_development
OR zif_abapgit_aff_types_v1=>co_abap_language_version_src-cloud_development.
rv_description = ''ABAP for Cloud Development''.
WHEN OTHERS.
rv_description = ''Undefined''.
ENDCASE.
rv_description = |ABAP language version "{ rv_description }"|.
ENDMETHOD.
METHOD get_repo_abap_language_version.
DATA lv_abap_language_version TYPE string.
IF mv_has_abap_language_vers <> abap_undefined. " abap_true or abap_false
lv_abap_language_version = mo_dot_abapgit->get_abap_language_version( ).
ENDIF.
CASE lv_abap_language_version.
WHEN zif_abapgit_dot_abapgit=>c_abap_language_version-standard.
rv_abap_language_version = zif_abapgit_aff_types_v1=>co_abap_language_version_src-standard.
WHEN zif_abapgit_dot_abapgit=>c_abap_language_version-key_user.
rv_abap_language_version = zif_abapgit_aff_types_v1=>co_abap_language_version_src-key_user.
WHEN zif_abapgit_dot_abapgit=>c_abap_language_version-cloud_development.
rv_abap_language_version = zif_abapgit_aff_types_v1=>co_abap_language_version_src-cloud_development.
WHEN zif_abapgit_dot_abapgit=>c_abap_language_version-ignore.
rv_abap_language_version = c_no_abap_language_version.
WHEN OTHERS. " undefined or feature off
rv_abap_language_version = c_any_abap_language_version.
ENDCASE.
ENDMETHOD.
METHOD is_import_allowed.
DATA lv_package_version TYPE string.
lv_package_version = get_abap_language_vers_by_devc( iv_package ).
CASE get_abap_language_vers_by_repo( ).
WHEN zif_abapgit_dot_abapgit=>c_abap_language_version-undefined
OR zif_abapgit_dot_abapgit=>c_abap_language_version-ignore.
rv_allowed = abap_true.
WHEN OTHERS.
IF get_abap_language_vers_by_repo( ) = lv_package_version.
" allow packages that match repo setting
rv_allowed = abap_true.
ELSEIF lv_package_version = zif_abapgit_dot_abapgit=>c_abap_language_version-undefined.
" always allow new packages
rv_allowed = abap_true.
ELSE.
rv_allowed = abap_false.
ENDIF.
ENDCASE.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_ENVIRONMENT ', 'CLASS zcl_abapgit_environment DEFINITION
PUBLIC
FINAL
CREATE PRIVATE
GLOBAL FRIENDS zcl_abapgit_factory .
PUBLIC SECTION.
INTERFACES zif_abapgit_environment .
PROTECTED SECTION.
PRIVATE SECTION.
DATA mv_cloud TYPE abap_bool VALUE abap_undefined ##NO_TEXT.
DATA mv_is_merged TYPE abap_bool VALUE abap_undefined ##NO_TEXT.
DATA mv_modifiable TYPE abap_bool VALUE abap_undefined ##NO_TEXT.
METHODS is_system_changes_allowed
RETURNING
VALUE(rv_result) TYPE abap_bool .
ENDCLASS.
CLASS zcl_abapgit_environment IMPLEMENTATION.
METHOD is_system_changes_allowed.
DATA:
lv_systemedit TYPE tadir-edtflag,
lv_sys_cliinddep_edit TYPE t000-ccnocliind,
lv_is_shadow TYPE abap_bool,
ls_upginfo TYPE uvers,
lv_is_upgrade TYPE abap_bool.
CALL FUNCTION ''TR_SYS_PARAMS''
IMPORTING
systemedit = lv_systemedit
sys_cliinddep_edit = lv_sys_cliinddep_edit
EXCEPTIONS
no_systemname = 1
no_systemtype = 2
OTHERS = 3.
IF sy-subrc <> 0.
" Assume system can''t be changed
RETURN.
ENDIF.
CALL FUNCTION ''UPG_IS_SHADOW_SYSTEM''
IMPORTING
ev_shadow = lv_is_shadow.
CALL FUNCTION ''UPG_GET_ACTIVE_COMP_UPGRADE''
EXPORTING
iv_component = ''SAP_BASIS''
iv_upgtype = ''A''
iv_buffered = abap_false
IMPORTING
ev_upginfo = ls_upginfo
EXCEPTIONS
OTHERS = 4.
IF sy-subrc = 0 AND ls_upginfo-putstatus NA ''ITU''.
lv_is_upgrade = abap_true.
ENDIF.
" SAP system has status ''not modifiable'' (TK 102)
" Changes to repository objects are not permitted in this client (TK 729)
" Shadow system
" Running upgrade
rv_result = boolc(
lv_systemedit <> ''N'' AND
lv_sys_cliinddep_edit NA ''23'' AND
lv_is_shadow <> abap_true AND
lv_is_upgrade <> abap_true ).
ENDMETHOD.
METHOD zif_abapgit_environment~compare_with_inactive.
rv_result = zif_abapgit_environment~is_sap_cloud_platform( ).
ENDMETHOD.
METHOD zif_abapgit_environment~get_basis_release.
SELECT SINGLE release extrelease FROM cvers INTO (rs_result-release, rs_result-sp)
WHERE component = ''SAP_BASIS'' ##SUBRC_OK.
ENDMETHOD.
METHOD zif_abapgit_environment~is_merged.
DATA lr_marker TYPE REF TO data ##NEEDED.
IF mv_is_merged = abap_undefined.
TRY.
CREATE DATA lr_marker TYPE REF TO (''LIF_ABAPMERGE_MARKER'').
"No exception --> marker found
mv_is_merged = abap_true.
CATCH cx_sy_create_data_error.
mv_is_merged = abap_false.
ENDTRY.
ENDIF.
rv_result = mv_is_merged.
ENDMETHOD.
METHOD zif_abapgit_environment~is_repo_object_changes_allowed.
IF mv_modifiable = abap_undefined.
mv_modifiable = is_system_changes_allowed( ).
ENDIF.
rv_result = mv_modifiable.
ENDMETHOD.
METHOD zif_abapgit_environment~is_restart_required.
" This method will be used in the context of SAP Cloud Platform:
" Pull/Push operations are executed in background jobs.
" In case of the respective application server needs to be restarted,
" it is required to terminate the background job and reschedule again.
rv_result = abap_false.
TRY.
CALL METHOD (''CL_APJ_SCP_TOOLS'')=>(''IS_RESTART_REQUIRED'')
RECEIVING
restart_required = rv_result.
CATCH cx_sy_dyn_call_illegal_method cx_sy_dyn_call_illegal_class.
rv_result = abap_false.
ENDTRY.
ENDMETHOD.
METHOD zif_abapgit_environment~is_sap_cloud_platform.
IF mv_cloud = abap_undefined.
TRY.
CALL METHOD (''CL_COS_UTILITIES'')=>(''IS_SAP_CLOUD_PLATFORM'')
RECEIVING
rv_is_sap_cloud_platform = mv_cloud.
CATCH cx_sy_dyn_call_error.
mv_cloud = abap_false.
ENDTRY.
ENDIF.
rv_result = mv_cloud.
ENDMETHOD.
METHOD zif_abapgit_environment~is_sap_object_allowed.
rv_allowed = cl_enh_badi_def_utility=>is_sap_system( ).
IF rv_allowed = abap_true.
RETURN.
ENDIF.
rv_allowed = zcl_abapgit_exit=>get_instance( )->allow_sap_objects( ).
ENDMETHOD.
METHOD zif_abapgit_environment~get_system_language_filter.
DATA lv_translation_detective_lang TYPE spras.
DATA lv_pseudo_translation_language TYPE spras.
FIELD-SYMBOLS <ls_system_language_filter> LIKE LINE OF rt_system_language_filter.
" Translation Object Detective
" https://help.sap.com/docs/ABAP_PLATFORM_NEW/ceb25152cb0d4adba664cebea2bf4670/88a3d3cbccf64601975acabaccdfde45.html
CALL FUNCTION ''CONVERSION_EXIT_ISOLA_INPUT''
EXPORTING
input = ''1Q''
IMPORTING
output = lv_translation_detective_lang
EXCEPTIONS
unknown_language = 1
OTHERS = 2.
IF sy-subrc = 1.
" The language for Translation Object Detective was not setup
ENDIF.
IF NOT lv_translation_detective_lang IS INITIAL.
APPEND INITIAL LINE TO rt_system_language_filter ASSIGNING <ls_system_language_filter>.
<ls_system_language_filter>-sign = ''E''.
<ls_system_language_filter>-option = ''EQ''.
<ls_system_language_filter>-low = lv_translation_detective_lang.
ENDIF.
" 1943470 - Using technical language key 2Q to create pseudo-translations of ABAP developments
" https://launchpad.support.sap.com/#/notes/1943470
CALL FUNCTION ''CONVERSION_EXIT_ISOLA_INPUT''
EXPORTING
input = ''2Q''
IMPORTING
output = lv_pseudo_translation_language
EXCEPTIONS
unknown_language = 1
OTHERS = 2.
IF sy-subrc = 1.
" The language for Pseudo Translation was not setup
ENDIF.
IF NOT lv_pseudo_translation_language IS INITIAL.
APPEND INITIAL LINE TO rt_system_language_filter ASSIGNING <ls_system_language_filter>.
<ls_system_language_filter>-sign = ''E''.
<ls_system_language_filter>-option = ''EQ''.
<ls_system_language_filter>-low = lv_pseudo_translation_language.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_environment~is_variant_maintenance.
DATA:
lt_variscreens TYPE STANDARD TABLE OF rsdynnr
WITH NON-UNIQUE DEFAULT KEY.
" Memory is set in LSVARF08 / EXPORT_SCREEN_TABLES.
IMPORT variscreens = lt_variscreens FROM MEMORY ID ''%_SCRNR_%''.
rv_is_variant_maintenance = boolc( lines( lt_variscreens ) > 0 ).
ENDMETHOD.
METHOD zif_abapgit_environment~init_parallel_processing.
DATA: lv_group TYPE rzlli_apcl.
lv_group = iv_group.
" SPBT_INITIALIZE gives error PBT_ENV_ALREADY_INITIALIZED if called
" multiple times in same session
CALL FUNCTION ''SPBT_INITIALIZE''
EXPORTING
group_name = lv_group
IMPORTING
free_pbt_wps = rv_free_work_processes
EXCEPTIONS
invalid_group_name = 1
internal_error = 2
pbt_env_already_initialized = 3
currently_no_resources_avail = 4
no_pbt_resources_found = 5
cant_init_different_pbt_groups = 6
OTHERS = 7.
" If SPBT_INITIALIZE fails, check transactions RZ12, SM50, SM21, SARFC
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_FEATURE ', 'CLASS zcl_abapgit_feature DEFINITION
PUBLIC
FINAL
CREATE PUBLIC.
PUBLIC SECTION.
" For dependency injection/testing, use the following
" zcl_abapgit_persist_factory=>get_settings( )->read( )->set_experimental_features( )
CLASS-METHODS is_enabled
IMPORTING
!iv_feature TYPE string OPTIONAL
RETURNING
VALUE(rv_run) TYPE abap_bool.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_feature IMPLEMENTATION.
METHOD is_enabled.
DATA:
lv_features TYPE string,
lt_features TYPE string_table.
IF zcl_abapgit_factory=>get_environment( )->is_merged( ) = abap_true.
RETURN.
ENDIF.
lv_features = zcl_abapgit_persist_factory=>get_settings( )->read( )->get_experimental_features( ).
CONDENSE lv_features NO-GAPS.
rv_run = boolc( lv_features = abap_true ).
IF iv_feature IS NOT INITIAL.
SPLIT lv_features AT '','' INTO TABLE lt_features.
READ TABLE lt_features TRANSPORTING NO FIELDS WITH TABLE KEY table_line = iv_feature.
rv_run = boolc( rv_run = abap_true OR sy-subrc = 0 ).
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_LANGUAGE ', '*----------------------------------------------------------------------*
* This helper class is used to set and restore the current language.
* As some of the SAP functions used rely on SY-LANGU containing the
* main language, this class is used to temporarily change and then
* restore the value of SY-LANGU.
*----------------------------------------------------------------------*
CLASS zcl_abapgit_language DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS class_constructor .
CLASS-METHODS restore_login_language .
CLASS-METHODS set_current_language
IMPORTING
!iv_language TYPE sy-langu .
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-DATA gv_login_language TYPE sy-langu .
ENDCLASS.
CLASS zcl_abapgit_language IMPLEMENTATION.
METHOD class_constructor.
DATA lv_dummy TYPE string.
GET LOCALE LANGUAGE gv_login_language COUNTRY lv_dummy MODIFIER lv_dummy.
ENDMETHOD.
METHOD restore_login_language.
SET LOCALE LANGUAGE gv_login_language.
ENDMETHOD.
METHOD set_current_language.
SET LOCALE LANGUAGE iv_language.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_SETTINGS ', 'CLASS zcl_abapgit_settings DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
CONSTANTS c_commitmsg_comment_length_dft TYPE i VALUE 50 ##NO_TEXT.
CONSTANTS c_commitmsg_body_size_dft TYPE i VALUE 72 ##NO_TEXT.
CONSTANTS:
BEGIN OF c_icon_scaling,
large TYPE c VALUE ''L'',
small TYPE c VALUE ''S'',
END OF c_icon_scaling .
CONSTANTS:
BEGIN OF c_ui_theme,
default TYPE string VALUE ''default'',
dark TYPE string VALUE ''dark'',
belize TYPE string VALUE ''belize'',
synced_with_gui TYPE string VALUE ''synced_with_gui'',
END OF c_ui_theme .
METHODS set_proxy_url
IMPORTING
!iv_url TYPE string .
METHODS set_proxy_port
IMPORTING
!iv_port TYPE string .
METHODS set_proxy_authentication
IMPORTING
!iv_auth TYPE abap_bool .
METHODS set_proxy_bypass
IMPORTING
!it_bypass TYPE zif_abapgit_definitions=>ty_range_proxy_bypass_url OPTIONAL .
METHODS get_proxy_url
RETURNING
VALUE(rv_proxy_url) TYPE string .
METHODS get_proxy_port
RETURNING
VALUE(rv_port) TYPE string .
METHODS get_proxy_authentication
RETURNING
VALUE(rv_auth) TYPE abap_bool .
METHODS get_proxy_bypass
RETURNING
VALUE(rt_bypass) TYPE zif_abapgit_definitions=>ty_range_proxy_bypass_url .
METHODS set_run_critical_tests
IMPORTING
!iv_run TYPE abap_bool .
METHODS get_run_critical_tests
RETURNING
VALUE(rv_run) TYPE abap_bool .
METHODS set_experimental_features
IMPORTING
!iv_features TYPE string.
METHODS get_experimental_features
RETURNING
VALUE(rv_features) TYPE string.
METHODS set_max_lines
IMPORTING
!iv_lines TYPE i .
METHODS get_max_lines
RETURNING
VALUE(rv_lines) TYPE i .
METHODS set_adt_jump_enanbled
IMPORTING
!iv_adt_jump_enabled TYPE abap_bool .
METHODS get_adt_jump_enabled
RETURNING
VALUE(rv_adt_jump_enabled) TYPE abap_bool .
METHODS set_commitmsg_comment_length
IMPORTING
!iv_length TYPE i .
METHODS get_commitmsg_comment_length
RETURNING
VALUE(rv_length) TYPE i .
METHODS set_commitmsg_comment_default
IMPORTING
!iv_default TYPE string .
METHODS get_commitmsg_comment_default
RETURNING
VALUE(rv_default) TYPE string .
METHODS set_commitmsg_body_size
IMPORTING
!iv_length TYPE i .
METHODS get_commitmsg_body_size
RETURNING
VALUE(rv_length) TYPE i .
METHODS set_commitmsg_hide_author
IMPORTING
!iv_hide_author TYPE abap_bool.
METHODS get_commitmsg_hide_author
RETURNING
VALUE(rv_hide_author) TYPE abap_bool.
METHODS get_settings_xml
RETURNING
VALUE(rv_settings_xml) TYPE string
RAISING
zcx_abapgit_exception .
METHODS get_user_settings
RETURNING
VALUE(rs_settings) TYPE zif_abapgit_definitions=>ty_s_user_settings
RAISING
zcx_abapgit_exception .
METHODS set_xml_settings
IMPORTING
!iv_settings_xml TYPE string
RAISING
zcx_abapgit_exception .
METHODS set_defaults .
METHODS set_user_settings
IMPORTING
!is_user_settings TYPE zif_abapgit_definitions=>ty_s_user_settings .
METHODS get_show_default_repo
RETURNING
VALUE(rv_show_default_repo) TYPE abap_bool .
METHODS set_show_default_repo
IMPORTING
!iv_show_default_repo TYPE abap_bool .
METHODS set_link_hints_enabled
IMPORTING
!iv_link_hints_enabled TYPE abap_bool .
METHODS get_link_hints_enabled
RETURNING
VALUE(rv_link_hints_enabled) TYPE abap_bool
RAISING
zcx_abapgit_exception .
METHODS set_link_hint_key
IMPORTING
!iv_link_hint_key TYPE string .
METHODS get_link_hint_key
RETURNING
VALUE(rv_link_hint_key) TYPE string .
METHODS set_parallel_proc_disabled
IMPORTING
!iv_disable_parallel_proc TYPE abap_bool .
METHODS get_parallel_proc_disabled
RETURNING
VALUE(rv_disable_parallel_proc) TYPE abap_bool .
METHODS get_icon_scaling
RETURNING
VALUE(rv_scaling) TYPE zif_abapgit_definitions=>ty_s_user_settings-icon_scaling .
METHODS set_icon_scaling
IMPORTING
!iv_scaling TYPE zif_abapgit_definitions=>ty_s_user_settings-icon_scaling .
METHODS get_ui_theme
IMPORTING
!iv_resolve_synced TYPE abap_bool DEFAULT abap_true
RETURNING
VALUE(rv_ui_theme) TYPE zif_abapgit_definitions=>ty_s_user_settings-ui_theme .
METHODS set_ui_theme
IMPORTING
!iv_ui_theme TYPE zif_abapgit_definitions=>ty_s_user_settings-ui_theme .
METHODS get_activate_wo_popup
RETURNING
VALUE(rv_act_wo_popup) TYPE zif_abapgit_definitions=>ty_s_user_settings-activate_wo_popup .
METHODS set_activate_wo_popup
IMPORTING
!iv_act_wo_popup TYPE zif_abapgit_definitions=>ty_s_user_settings-activate_wo_popup .
METHODS set_default_git_uname
IMPORTING
!iv_default_git_uname TYPE string.
METHODS get_default_git_uname
RETURNING
VALUE(rv_default_git_uname) TYPE string.
METHODS set_default_git_email
IMPORTING
!iv_default_git_email TYPE string.
METHODS get_default_git_email
RETURNING
VALUE(rv_default_git_email) TYPE string.
PROTECTED SECTION.
PRIVATE SECTION.
TYPES: BEGIN OF ty_s_settings,
proxy_url TYPE string,
proxy_port TYPE string,
proxy_auth TYPE string,
proxy_bypass TYPE zif_abapgit_definitions=>ty_range_proxy_bypass_url,
run_critical_tests TYPE abap_bool,
experimental_features TYPE string,
commitmsg_comment_length TYPE i,
commitmsg_comment_deflt TYPE string,
commitmsg_body_size TYPE i,
commitmsg_hide_author TYPE abap_bool,
END OF ty_s_settings.
DATA: ms_settings TYPE ty_s_settings,
ms_user_settings TYPE zif_abapgit_definitions=>ty_s_user_settings.
METHODS:
set_default_link_hint_key.
ENDCLASS.
CLASS zcl_abapgit_settings IMPLEMENTATION.
METHOD get_activate_wo_popup.
rv_act_wo_popup = ms_user_settings-activate_wo_popup.
ENDMETHOD.
METHOD get_adt_jump_enabled.
rv_adt_jump_enabled = ms_user_settings-adt_jump_enabled.
ENDMETHOD.
METHOD get_commitmsg_body_size.
rv_length = ms_settings-commitmsg_body_size.
ENDMETHOD.
METHOD get_commitmsg_comment_default.
rv_default = ms_settings-commitmsg_comment_deflt.
ENDMETHOD.
METHOD get_commitmsg_comment_length.
rv_length = ms_settings-commitmsg_comment_length.
ENDMETHOD.
METHOD get_commitmsg_hide_author.
rv_hide_author = ms_settings-commitmsg_hide_author.
ENDMETHOD.
METHOD get_experimental_features.
IF zcl_abapgit_factory=>get_environment( )->is_merged( ) = abap_false.
rv_features = ms_settings-experimental_features.
ENDIF.
ENDMETHOD.
METHOD get_icon_scaling.
rv_scaling = ms_user_settings-icon_scaling.
ENDMETHOD.
METHOD get_link_hints_enabled.
rv_link_hints_enabled = ms_user_settings-link_hints_enabled.
ENDMETHOD.
METHOD get_link_hint_key.
rv_link_hint_key = ms_user_settings-link_hint_key.
ENDMETHOD.
METHOD get_max_lines.
rv_lines = ms_user_settings-max_lines.
ENDMETHOD.
METHOD get_parallel_proc_disabled.
rv_disable_parallel_proc = ms_user_settings-parallel_proc_disabled.
ENDMETHOD.
METHOD get_proxy_authentication.
rv_auth = ms_settings-proxy_auth.
ENDMETHOD.
METHOD get_proxy_bypass.
rt_bypass = ms_settings-proxy_bypass.
ENDMETHOD.
METHOD get_proxy_port.
rv_port = ms_settings-proxy_port.
ENDMETHOD.
METHOD get_proxy_url.
rv_proxy_url = ms_settings-proxy_url.
ENDMETHOD.
METHOD get_run_critical_tests.
IF zcl_abapgit_factory=>get_environment( )->is_merged( ) = abap_false.
rv_run = ms_settings-run_critical_tests.
ENDIF.
ENDMETHOD.
METHOD get_settings_xml.
DATA: li_output TYPE REF TO zif_abapgit_xml_output.
CREATE OBJECT li_output TYPE zcl_abapgit_xml_output.
li_output->add( iv_name = zcl_abapgit_persistence_db=>c_type_settings
ig_data = ms_settings ).
rv_settings_xml = li_output->render( ).
ENDMETHOD.
METHOD get_show_default_repo.
rv_show_default_repo = ms_user_settings-show_default_repo.
ENDMETHOD.
METHOD get_ui_theme.
DATA lv_frontend_theme TYPE string.
DATA lv_cl_gui TYPE string.
lv_cl_gui = ''CL_GUI_RESOURCES''.
rv_ui_theme = ms_user_settings-ui_theme.
IF rv_ui_theme = c_ui_theme-synced_with_gui AND iv_resolve_synced = abap_true.
TRY.
CALL METHOD (lv_cl_gui)=>get_themename
IMPORTING
themename = lv_frontend_theme
EXCEPTIONS
get_std_resource_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
rv_ui_theme = c_ui_theme-default.
RETURN.
ENDIF.
CATCH cx_sy_dyn_call_error.
rv_ui_theme = c_ui_theme-default.
RETURN.
ENDTRY.
CASE lv_frontend_theme.
WHEN ''Belize''.
rv_ui_theme = c_ui_theme-belize.
WHEN OTHERS.
IF lv_frontend_theme CS ''dark''.
rv_ui_theme = c_ui_theme-dark.
ELSE.
rv_ui_theme = c_ui_theme-default.
ENDIF.
ENDCASE.
ENDIF.
ENDMETHOD.
METHOD get_user_settings.
rs_settings = ms_user_settings.
ENDMETHOD.
METHOD set_activate_wo_popup.
ms_user_settings-activate_wo_popup = iv_act_wo_popup.
ENDMETHOD.
METHOD set_adt_jump_enanbled.
ms_user_settings-adt_jump_enabled = iv_adt_jump_enabled.
ENDMETHOD.
METHOD set_commitmsg_body_size.
ms_settings-commitmsg_body_size = iv_length.
ENDMETHOD.
METHOD set_commitmsg_comment_default.
ms_settings-commitmsg_comment_deflt = iv_default.
ENDMETHOD.
METHOD set_commitmsg_comment_length.
ms_settings-commitmsg_comment_length = iv_length.
ENDMETHOD.
METHOD set_commitmsg_hide_author.
ms_settings-commitmsg_hide_author = iv_hide_author.
ENDMETHOD.
METHOD set_defaults.
CLEAR ms_settings.
set_proxy_authentication( abap_false ).
set_run_critical_tests( abap_false ).
set_experimental_features( '''' ).
set_max_lines( 500 ).
set_adt_jump_enanbled( abap_true ).
set_show_default_repo( abap_false ).
set_commitmsg_comment_length( c_commitmsg_comment_length_dft ).
set_commitmsg_body_size( c_commitmsg_body_size_dft ).
set_default_link_hint_key( ).
set_icon_scaling( '''' ).
ENDMETHOD.
METHOD set_default_link_hint_key.
" Since #5859 ''f'' is used for "focus filter", we use ''t'' as the new default
set_link_hint_key( |t| ).
ENDMETHOD.
METHOD set_experimental_features.
ms_settings-experimental_features = iv_features.
ENDMETHOD.
METHOD set_icon_scaling.
ms_user_settings-icon_scaling = iv_scaling.
IF ms_user_settings-icon_scaling NA c_icon_scaling.
ms_user_settings-icon_scaling = ''''. " Reset to default
ENDIF.
ENDMETHOD.
METHOD set_link_hints_enabled.
ms_user_settings-link_hints_enabled = iv_link_hints_enabled.
ENDMETHOD.
METHOD set_link_hint_key.
ms_user_settings-link_hint_key = iv_link_hint_key.
ENDMETHOD.
METHOD set_max_lines.
ms_user_settings-max_lines = iv_lines.
ENDMETHOD.
METHOD set_parallel_proc_disabled.
ms_user_settings-parallel_proc_disabled = iv_disable_parallel_proc.
ENDMETHOD.
METHOD set_proxy_authentication.
ms_settings-proxy_auth = iv_auth.
ENDMETHOD.
METHOD set_proxy_bypass.
ms_settings-proxy_bypass = it_bypass.
ENDMETHOD.
METHOD set_proxy_port.
ms_settings-proxy_port = iv_port.
ENDMETHOD.
METHOD set_proxy_url.
ms_settings-proxy_url = iv_url.
ENDMETHOD.
METHOD set_run_critical_tests.
ms_settings-run_critical_tests = iv_run.
ENDMETHOD.
METHOD set_show_default_repo.
ms_user_settings-show_default_repo = iv_show_default_repo.
ENDMETHOD.
METHOD set_ui_theme.
ms_user_settings-ui_theme = iv_ui_theme.
IF ms_user_settings-ui_theme <> c_ui_theme-default
AND ms_user_settings-ui_theme <> c_ui_theme-dark
AND ms_user_settings-ui_theme <> c_ui_theme-belize
AND ms_user_settings-ui_theme <> c_ui_theme-synced_with_gui.
ms_user_settings-ui_theme = c_ui_theme-default. " Reset to default
ENDIF.
ENDMETHOD.
METHOD set_user_settings.
ms_user_settings = is_user_settings.
IF ms_user_settings-link_hint_key IS INITIAL.
set_default_link_hint_key( ).
ENDIF.
ENDMETHOD.
METHOD set_xml_settings.
DATA: lo_input TYPE REF TO zif_abapgit_xml_input.
CREATE OBJECT lo_input TYPE zcl_abapgit_xml_input EXPORTING iv_xml = iv_settings_xml.
CLEAR ms_settings.
lo_input->read(
EXPORTING
iv_name = zcl_abapgit_persistence_db=>c_type_settings
CHANGING
cg_data = ms_settings ).
ENDMETHOD.
METHOD get_default_git_uname.
rv_default_git_uname = ms_user_settings-default_git_uname.
ENDMETHOD.
METHOD set_default_git_uname.
ms_user_settings-default_git_uname = iv_default_git_uname.
ENDMETHOD.
METHOD get_default_git_email.
rv_default_git_email = ms_user_settings-default_git_email.
ENDMETHOD.
METHOD set_default_git_email.
ms_user_settings-default_git_email = iv_default_git_email.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_USER_RECORD ', 'CLASS zcl_abapgit_user_record DEFINITION
PUBLIC
FINAL
CREATE PRIVATE.
PUBLIC SECTION.
CLASS-METHODS reset.
CLASS-METHODS get_instance
IMPORTING
!iv_user TYPE sy-uname
RETURNING
VALUE(ro_user) TYPE REF TO zcl_abapgit_user_record.
METHODS constructor
IMPORTING
!iv_user TYPE sy-uname.
METHODS get_name
RETURNING
VALUE(rv_name) TYPE string.
METHODS get_email
RETURNING
VALUE(rv_email) TYPE string.
CLASS-METHODS get_title
IMPORTING
iv_username TYPE sy-uname
RETURNING
VALUE(rv_title) TYPE string.
PROTECTED SECTION.
PRIVATE SECTION.
TYPES:
BEGIN OF ty_user,
user TYPE sy-uname,
o_user TYPE REF TO zcl_abapgit_user_record,
END OF ty_user.
CLASS-DATA gt_user TYPE HASHED TABLE OF ty_user WITH UNIQUE KEY user.
DATA: BEGIN OF ms_user,
name TYPE string,
email TYPE string,
END OF ms_user .
METHODS check_user_exists
IMPORTING
iv_user TYPE sy-uname
EXPORTING
ev_fullname TYPE string
ev_email TYPE string
RAISING
zcx_abapgit_exception.
METHODS get_user_dtls_from_other_clnt
IMPORTING
iv_user TYPE sy-uname.
ENDCLASS.
CLASS zcl_abapgit_user_record IMPLEMENTATION.
METHOD get_title.
* the queried username might not exist, so this method is static
DATA ls_user_address TYPE addr3_val.
CALL FUNCTION ''SUSR_USER_ADDRESS_READ''
EXPORTING
user_name = iv_username
IMPORTING
user_address = ls_user_address
EXCEPTIONS
user_address_not_found = 1
OTHERS = 2.
IF sy-subrc = 0.
rv_title = ls_user_address-name_text.
ENDIF.
ENDMETHOD.
METHOD check_user_exists.
DATA lt_return TYPE STANDARD TABLE OF bapiret2 WITH DEFAULT KEY.
DATA ls_address TYPE bapiaddr3.
DATA lt_smtp TYPE TABLE OF bapiadsmtp.
DATA ls_smtp LIKE LINE OF lt_smtp.
CALL FUNCTION ''BAPI_USER_GET_DETAIL''
EXPORTING
username = iv_user
IMPORTING
address = ls_address
TABLES
return = lt_return
addsmtp = lt_smtp.
LOOP AT lt_return TRANSPORTING NO FIELDS WHERE type CA ''EA''.
zcx_abapgit_exception=>raise( |User: { iv_user } not found| ).
ENDLOOP.
ev_fullname = ls_address-fullname.
" Choose the first email from SU01
SORT lt_smtp BY consnumber ASCENDING.
LOOP AT lt_smtp INTO ls_smtp.
ev_email = ls_smtp-e_mail.
EXIT.
ENDLOOP.
ENDMETHOD.
METHOD constructor.
DATA ls_user TYPE ty_user.
" Get user details
TRY.
check_user_exists(
EXPORTING
iv_user = iv_user
IMPORTING
ev_fullname = ms_user-name
ev_email = ms_user-email ).
CATCH zcx_abapgit_exception.
" Could not find user, try to get from other clients
get_user_dtls_from_other_clnt( iv_user ).
ENDTRY.
" If the user has been found add it to the list
IF ms_user-name IS NOT INITIAL AND ms_user-email IS NOT INITIAL.
ls_user-user = iv_user.
ls_user-o_user = me.
INSERT ls_user INTO TABLE gt_user.
ENDIF.
ENDMETHOD.
METHOD get_email.
rv_email = ms_user-email.
ENDMETHOD.
METHOD get_instance.
FIELD-SYMBOLS <ls_user> TYPE ty_user.
READ TABLE gt_user ASSIGNING <ls_user> WITH TABLE KEY user = iv_user.
IF sy-subrc = 0.
ro_user = <ls_user>-o_user.
ELSE.
CREATE OBJECT ro_user
EXPORTING
iv_user = iv_user.
ENDIF.
ENDMETHOD.
METHOD get_name.
rv_name = ms_user-name.
ENDMETHOD.
METHOD get_user_dtls_from_other_clnt.
CONSTANTS lc_cc_category TYPE string VALUE ''C''.
TYPES ty_dev_clients TYPE SORTED TABLE OF sy-mandt WITH UNIQUE KEY table_line.
DATA lt_dev_clients TYPE ty_dev_clients.
FIELD-SYMBOLS <lv_dev_client> LIKE LINE OF lt_dev_clients.
" Could not find the user, try other development clients
SELECT mandt FROM t000 INTO TABLE lt_dev_clients
WHERE cccategory = lc_cc_category AND mandt <> sy-mandt
ORDER BY PRIMARY KEY.
LOOP AT lt_dev_clients ASSIGNING <lv_dev_client>.
SELECT SINGLE p~name_text a~smtp_addr INTO (ms_user-name, ms_user-email)
FROM usr21 AS u
INNER JOIN adrp AS p ON p~persnumber = u~persnumber
AND p~client = u~mandt
INNER JOIN adr6 AS a ON a~persnumber = u~persnumber
AND a~addrnumber = u~addrnumber
AND a~client = u~mandt
CLIENT SPECIFIED
WHERE u~mandt = <lv_dev_client>
AND u~bname = iv_user
AND p~date_from <= sy-datum
AND p~date_to >= sy-datum
AND a~date_from <= sy-datum.
IF sy-subrc = 0.
EXIT.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD reset.
CLEAR gt_user.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_ENVIRONMENT ', 'INTERFACE zif_abapgit_environment
PUBLIC.
TYPES:
BEGIN OF ty_release_sp,
release TYPE c LENGTH 10,
sp TYPE c LENGTH 10,
END OF ty_release_sp,
ty_system_language_filter TYPE RANGE OF spras.
METHODS is_sap_cloud_platform
RETURNING
VALUE(rv_result) TYPE abap_bool.
METHODS is_merged
RETURNING
VALUE(rv_result) TYPE abap_bool.
METHODS is_repo_object_changes_allowed
RETURNING
VALUE(rv_result) TYPE abap_bool.
METHODS compare_with_inactive
RETURNING
VALUE(rv_result) TYPE abap_bool.
METHODS is_restart_required
RETURNING
VALUE(rv_result) TYPE abap_bool.
METHODS is_sap_object_allowed
RETURNING
VALUE(rv_allowed) TYPE abap_bool.
METHODS get_basis_release
RETURNING
VALUE(rs_result) TYPE ty_release_sp.
METHODS get_system_language_filter
RETURNING
VALUE(rt_system_language_filter) TYPE ty_system_language_filter.
METHODS is_variant_maintenance
RETURNING
VALUE(rv_is_variant_maintenance) TYPE abap_bool.
METHODS init_parallel_processing
IMPORTING
iv_group TYPE clike
RETURNING
VALUE(rv_free_work_processes) TYPE i.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_AUTH ', 'CLASS zcl_abapgit_auth DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS is_allowed
IMPORTING
!iv_authorization TYPE zif_abapgit_auth=>ty_authorization
!iv_param TYPE string OPTIONAL
RETURNING
VALUE(rv_allowed) TYPE abap_bool .
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_auth IMPLEMENTATION.
METHOD is_allowed.
DATA: li_auth TYPE REF TO zif_abapgit_auth.
TRY.
CREATE OBJECT li_auth TYPE (''ZCL_ABAPGIT_AUTH_EXIT'').
rv_allowed = li_auth->is_allowed( iv_authorization = iv_authorization
iv_param = iv_param ).
CATCH cx_sy_create_object_error.
rv_allowed = abap_true.
ENDTRY.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_EXIT ', 'CLASS zcl_abapgit_exit DEFINITION
PUBLIC
CREATE PUBLIC
GLOBAL FRIENDS zcl_abapgit_injector.
PUBLIC SECTION.
INTERFACES zif_abapgit_exit.
CLASS-METHODS get_instance
RETURNING
VALUE(ri_exit) TYPE REF TO zif_abapgit_exit.
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-DATA gi_global_exit TYPE REF TO zif_abapgit_exit.
CLASS-DATA gi_exit TYPE REF TO zif_abapgit_exit.
CLASS-METHODS is_running_in_test_context
RETURNING
VALUE(rv_running_in_test_context) TYPE abap_bool.
ENDCLASS.
CLASS zcl_abapgit_exit IMPLEMENTATION.
METHOD get_instance.
DATA lv_class_name TYPE string.
IF gi_global_exit IS NOT INITIAL.
ri_exit = gi_global_exit.
RETURN.
ENDIF.
lv_class_name = ''ZCL_ABAPGIT_USER_EXIT''.
IF zcl_abapgit_factory=>get_environment( )->is_merged( ) = abap_true.
" Prevent accidental usage of exit handlers in the developer version
lv_class_name = |\\\\PROGRAM={ sy-repid }\\\\CLASS={ lv_class_name }|.
ENDIF.
" Prevent non-mocked exit calls in unit tests
IF is_running_in_test_context( ) = abap_false.
TRY.
CREATE OBJECT gi_exit TYPE (lv_class_name).
CATCH cx_sy_create_object_error ##NO_HANDLER.
ENDTRY.
ENDIF.
CREATE OBJECT gi_global_exit TYPE zcl_abapgit_exit. " this class
ri_exit = gi_global_exit.
ENDMETHOD.
METHOD is_running_in_test_context.
IF sy-sysid = ''ABC''.
" always run on open-abap
rv_running_in_test_context = abap_true.
RETURN.
ENDIF.
" Check if the local test class can be accessed by RTTI. If so the current process is running in a unit test.
" Note this approach only works for the developer version. The standalone version will always report not running in
" test context which should be fine as there are no unit tests delivered in it.
cl_abap_typedescr=>describe_by_name(
EXPORTING
p_name = |\\\\PROGRAM={ sy-repid }\\\\CLASS=LTCL_TEST|
EXCEPTIONS
type_not_found = 1
OTHERS = 2 ).
rv_running_in_test_context = boolc( sy-subrc = 0 ).
ENDMETHOD.
METHOD zif_abapgit_exit~adjust_display_commit_url.
IF gi_exit IS NOT INITIAL.
TRY.
gi_exit->adjust_display_commit_url(
EXPORTING
iv_repo_url = iv_repo_url
iv_repo_name = iv_repo_name
iv_repo_key = iv_repo_key
iv_commit_hash = iv_commit_hash
CHANGING
cv_display_url = cv_display_url ).
CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method ##NO_HANDLER.
ENDTRY.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_exit~adjust_display_filename.
IF gi_exit IS NOT INITIAL.
TRY.
rv_filename = gi_exit->adjust_display_filename(
is_repo_meta = is_repo_meta
iv_filename = iv_filename ).
CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method ##NO_HANDLER.
ENDTRY.
ENDIF.
IF rv_filename IS INITIAL.
rv_filename = iv_filename.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_exit~allow_sap_objects.
IF gi_exit IS NOT INITIAL.
TRY.
rv_allowed = gi_exit->allow_sap_objects( ).
CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method ##NO_HANDLER.
ENDTRY.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_exit~change_local_host.
IF gi_exit IS NOT INITIAL.
TRY.
gi_exit->change_local_host( CHANGING ct_hosts = ct_hosts ).
CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method ##NO_HANDLER.
ENDTRY.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_exit~change_max_parallel_processes.
IF gi_exit IS NOT INITIAL.
TRY.
gi_exit->change_max_parallel_processes(
EXPORTING
iv_package = iv_package
CHANGING
cv_max_processes = cv_max_processes ).
CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method ##NO_HANDLER.
ENDTRY.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_exit~change_proxy_authentication.
IF gi_exit IS NOT INITIAL.
TRY.
gi_exit->change_proxy_authentication(
EXPORTING
iv_repo_url = iv_repo_url
CHANGING
cv_proxy_authentication = cv_proxy_authentication ).
CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method ##NO_HANDLER.
ENDTRY.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_exit~change_proxy_port.
IF gi_exit IS NOT INITIAL.
TRY.
gi_exit->change_proxy_port(
EXPORTING
iv_repo_url = iv_repo_url
CHANGING
cv_proxy_port = cv_proxy_port ).
CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method ##NO_HANDLER.
ENDTRY.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_exit~change_proxy_url.
IF gi_exit IS NOT INITIAL.
TRY.
gi_exit->change_proxy_url(
EXPORTING
iv_repo_url = iv_repo_url
CHANGING
cv_proxy_url = cv_proxy_url ).
CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method ##NO_HANDLER.
ENDTRY.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_exit~change_rfc_server_group.
IF gi_exit IS NOT INITIAL.
TRY.
gi_exit->change_rfc_server_group( CHANGING cv_group = cv_group ).
CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method ##NO_HANDLER.
ENDTRY.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_exit~change_supported_data_objects.
IF gi_exit IS NOT INITIAL.
TRY.
gi_exit->change_supported_data_objects( CHANGING ct_objects = ct_objects ).
CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method ##NO_HANDLER.
ENDTRY.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_exit~change_supported_object_types.
IF gi_exit IS NOT INITIAL.
TRY.
gi_exit->change_supported_object_types( CHANGING ct_types = ct_types ).
CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method ##NO_HANDLER.
ENDTRY.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_exit~change_tadir.
IF gi_exit IS NOT INITIAL.
TRY.
gi_exit->change_tadir(
EXPORTING
iv_package = iv_package
ii_log = ii_log
is_dot_abapgit = is_dot_abapgit
iv_ignore_subpackages = iv_ignore_subpackages
iv_only_local_objects = iv_only_local_objects
CHANGING
ct_tadir = ct_tadir ).
CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method ##NO_HANDLER.
ENDTRY.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_exit~create_http_client.
IF gi_exit IS NOT INITIAL.
TRY.
ri_client = gi_exit->create_http_client( iv_url ).
CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method ##NO_HANDLER.
ENDTRY.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_exit~custom_serialize_abap_clif.
" This exit might be called twice per object
" 1st call: it_source = initial
" Can be used for serializing complete source
" If source is returned, there will be no second call
" 2nd call: it_source = code as serialized by abapGit
" Can be used for post-processing of source
IF gi_exit IS NOT INITIAL.
TRY.
rt_source = gi_exit->custom_serialize_abap_clif(
is_class_key = is_class_key
it_source = it_source ).
CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method ##NO_HANDLER.
ENDTRY.
ENDIF.
IF rt_source IS INITIAL.
rt_source = it_source.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_exit~deserialize_postprocess.
IF gi_exit IS NOT INITIAL.
TRY.
gi_exit->deserialize_postprocess( is_step = is_step
ii_log = ii_log ).
CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method ##NO_HANDLER.
ENDTRY.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_exit~determine_transport_request.
IF gi_exit IS NOT INITIAL.
TRY.
gi_exit->determine_transport_request(
EXPORTING
io_repo = io_repo
iv_transport_type = iv_transport_type
CHANGING
cv_transport_request = cv_transport_request ).
CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method ##NO_HANDLER.
ENDTRY.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_exit~enhance_repo_toolbar.
IF gi_exit IS NOT INITIAL.
TRY.
gi_exit->enhance_repo_toolbar(
io_menu = io_menu
iv_key = iv_key
iv_act = iv_act ).
CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method ##NO_HANDLER.
ENDTRY.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_exit~get_ci_tests.
IF gi_exit IS NOT INITIAL.
TRY.
gi_exit->get_ci_tests(
EXPORTING
iv_object = iv_object
CHANGING
ct_ci_repos = ct_ci_repos ).
CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method ##NO_HANDLER.
ENDTRY.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_exit~get_ssl_id.
IF gi_exit IS NOT INITIAL.
TRY.
rv_ssl_id = gi_exit->get_ssl_id( ).
CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method ##NO_HANDLER.
ENDTRY.
ENDIF.
IF rv_ssl_id IS INITIAL.
rv_ssl_id = ''ANONYM''.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_exit~http_client.
IF gi_exit IS NOT INITIAL.
TRY.
gi_exit->http_client(
iv_url = iv_url
ii_client = ii_client ).
CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method ##NO_HANDLER.
ENDTRY.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_exit~on_event.
IF gi_exit IS NOT INITIAL.
TRY.
rs_handled = gi_exit->on_event( ii_event ).
CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method ##NO_HANDLER.
ENDTRY.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_exit~pre_calculate_repo_status.
IF gi_exit IS NOT INITIAL.
TRY.
gi_exit->pre_calculate_repo_status(
EXPORTING
is_repo_meta = is_repo_meta
CHANGING
ct_local = ct_local
ct_remote = ct_remote ).
CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method ##NO_HANDLER.
ENDTRY.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_exit~serialize_postprocess.
IF gi_exit IS NOT INITIAL.
TRY.
gi_exit->serialize_postprocess(
EXPORTING
iv_package = iv_package
ii_log = ii_log
CHANGING
ct_files = ct_files ).
CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method ##NO_HANDLER.
ENDTRY.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_exit~validate_before_push.
IF gi_exit IS NOT INITIAL.
TRY.
gi_exit->validate_before_push(
is_comment = is_comment
io_stage = io_stage
io_repo = io_repo ).
CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method ##NO_HANDLER.
ENDTRY.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_exit~wall_message_list.
IF gi_exit IS NOT INITIAL.
TRY.
gi_exit->wall_message_list( ii_html ).
CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method ##NO_HANDLER.
ENDTRY.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_exit~wall_message_repo.
IF gi_exit IS NOT INITIAL.
TRY.
gi_exit->wall_message_repo(
is_repo_meta = is_repo_meta
ii_html = ii_html ).
CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method ##NO_HANDLER.
ENDTRY.
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_AUTH ', 'INTERFACE zif_abapgit_auth PUBLIC.
TYPES: ty_authorization TYPE string.
CONSTANTS: BEGIN OF c_authorization,
startup TYPE ty_authorization VALUE ''STARTUP'',
uninstall TYPE ty_authorization VALUE ''UNINSTALL'',
create_repo TYPE ty_authorization VALUE ''CREATE_REPO'',
transport_to_branch TYPE ty_authorization VALUE ''TRANSPORT_TO_BRANCH'',
update_local_checksum TYPE ty_authorization VALUE ''UPDATE_LOCAL_CHECKSUM'',
END OF c_authorization.
METHODS:
is_allowed
IMPORTING iv_authorization TYPE ty_authorization
iv_param TYPE string OPTIONAL
RETURNING VALUE(rv_allowed) TYPE abap_bool.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_EXIT ', 'INTERFACE zif_abapgit_exit PUBLIC.
TYPES:
BEGIN OF ty_ci_repo,
name TYPE string,
clone_url TYPE string,
END OF ty_ci_repo.
TYPES:
ty_ci_repos TYPE TABLE OF ty_ci_repo.
TYPES:
ty_object_types TYPE STANDARD TABLE OF tadir-object WITH DEFAULT KEY.
TYPES:
BEGIN OF ty_class_key,
clsname TYPE abap_classname,
END OF ty_class_key.
METHODS adjust_display_commit_url
IMPORTING
!iv_repo_url TYPE csequence
!iv_repo_name TYPE csequence
!iv_repo_key TYPE csequence
!iv_commit_hash TYPE zif_abapgit_git_definitions=>ty_sha1
CHANGING
!cv_display_url TYPE csequence
RAISING
zcx_abapgit_exception.
METHODS adjust_display_filename
IMPORTING
!is_repo_meta TYPE zif_abapgit_persistence=>ty_repo
!iv_filename TYPE string
RETURNING
VALUE(rv_filename) TYPE string.
METHODS allow_sap_objects
RETURNING
VALUE(rv_allowed) TYPE abap_bool.
METHODS change_local_host
CHANGING
!ct_hosts TYPE zif_abapgit_definitions=>ty_string_tt.
METHODS change_max_parallel_processes
IMPORTING
!iv_package TYPE devclass
CHANGING
!cv_max_processes TYPE i.
METHODS change_proxy_authentication
IMPORTING
!iv_repo_url TYPE csequence
CHANGING
!cv_proxy_authentication TYPE abap_bool.
METHODS change_proxy_port
IMPORTING
!iv_repo_url TYPE csequence
CHANGING
!cv_proxy_port TYPE string.
METHODS change_proxy_url
IMPORTING
!iv_repo_url TYPE csequence
CHANGING
!cv_proxy_url TYPE string.
METHODS change_rfc_server_group
CHANGING
!cv_group TYPE rzlli_apcl.
METHODS change_supported_data_objects
CHANGING
!ct_objects TYPE zif_abapgit_data_supporter=>ty_objects.
METHODS change_supported_object_types
CHANGING
!ct_types TYPE ty_object_types.
METHODS change_tadir
IMPORTING
!iv_package TYPE devclass
!ii_log TYPE REF TO zif_abapgit_log
!is_dot_abapgit TYPE zif_abapgit_dot_abapgit=>ty_dot_abapgit
!iv_ignore_subpackages TYPE abap_bool DEFAULT abap_false
!iv_only_local_objects TYPE abap_bool DEFAULT abap_false
CHANGING
!ct_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt.
METHODS create_http_client
IMPORTING
!iv_url TYPE string
RETURNING
VALUE(ri_client) TYPE REF TO if_http_client
RAISING
zcx_abapgit_exception.
METHODS custom_serialize_abap_clif
IMPORTING
!is_class_key TYPE ty_class_key
!it_source TYPE zif_abapgit_definitions=>ty_string_tt OPTIONAL
RETURNING
VALUE(rt_source) TYPE zif_abapgit_definitions=>ty_string_tt
RAISING
zcx_abapgit_exception.
METHODS deserialize_postprocess
IMPORTING
!is_step TYPE zif_abapgit_objects=>ty_step_data
!ii_log TYPE REF TO zif_abapgit_log.
METHODS determine_transport_request
IMPORTING
!io_repo TYPE REF TO zcl_abapgit_repo
!iv_transport_type TYPE zif_abapgit_definitions=>ty_transport_type
CHANGING
!cv_transport_request TYPE trkorr.
METHODS enhance_repo_toolbar
IMPORTING
!io_menu TYPE REF TO zcl_abapgit_html_toolbar
!iv_key TYPE zif_abapgit_persistence=>ty_value
!iv_act TYPE string.
METHODS get_ci_tests
IMPORTING
!iv_object TYPE tadir-object
CHANGING
!ct_ci_repos TYPE ty_ci_repos.
METHODS get_ssl_id
RETURNING
VALUE(rv_ssl_id) TYPE ssfapplssl.
METHODS http_client
IMPORTING
!iv_url TYPE string
!ii_client TYPE REF TO if_http_client.
METHODS on_event
IMPORTING
!ii_event TYPE REF TO zif_abapgit_gui_event
RETURNING
VALUE(rs_handled) TYPE zif_abapgit_gui_event_handler=>ty_handling_result
RAISING
zcx_abapgit_exception.
METHODS pre_calculate_repo_status
IMPORTING
!is_repo_meta TYPE zif_abapgit_persistence=>ty_repo
CHANGING
!ct_local TYPE zif_abapgit_definitions=>ty_files_item_tt
!ct_remote TYPE zif_abapgit_git_definitions=>ty_files_tt
RAISING
zcx_abapgit_exception.
METHODS serialize_postprocess
IMPORTING
!iv_package TYPE devclass
!ii_log TYPE REF TO zif_abapgit_log
CHANGING
!ct_files TYPE zif_abapgit_definitions=>ty_files_item_tt.
METHODS validate_before_push
IMPORTING
!is_comment TYPE zif_abapgit_git_definitions=>ty_comment
!io_stage TYPE REF TO zcl_abapgit_stage
!io_repo TYPE REF TO zcl_abapgit_repo_online
RAISING
zcx_abapgit_exception.
METHODS wall_message_list
IMPORTING
!ii_html TYPE REF TO zif_abapgit_html.
METHODS wall_message_repo
IMPORTING
!is_repo_meta TYPE zif_abapgit_persistence=>ty_repo
!ii_html TYPE REF TO zif_abapgit_html.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GITV2_PORCELAIN ', 'CLASS zcl_abapgit_gitv2_porcelain DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES zif_abapgit_gitv2_porcelain.
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS:
BEGIN OF c_service,
receive TYPE string VALUE ''receive'', "#EC NOTEXT
upload TYPE string VALUE ''upload'', "#EC NOTEXT
END OF c_service .
CONSTANTS c_flush_pkt TYPE c LENGTH 4 VALUE ''0000''.
CONSTANTS c_delim_pkt TYPE c LENGTH 4 VALUE ''0001''.
CLASS-METHODS send_command
IMPORTING
iv_url TYPE string
iv_service TYPE string
iv_command TYPE string
it_arguments TYPE string_table OPTIONAL
RETURNING
VALUE(rv_response) TYPE xstring
RAISING
zcx_abapgit_exception.
CLASS-METHODS decode_pack
IMPORTING
iv_xstring TYPE xstring
RETURNING
VALUE(rt_objects) TYPE zif_abapgit_definitions=>ty_objects_tt
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS ZCL_ABAPGIT_GITV2_PORCELAIN IMPLEMENTATION.
METHOD decode_pack.
DATA lv_xstring TYPE xstring.
DATA lv_contents TYPE xstring.
DATA lv_pack TYPE xstring.
DATA lv_pktlen TYPE i.
DATA lv_hex4 TYPE xstring.
lv_xstring = iv_xstring.
* The data transfer of the packfile is always multiplexed, using the same semantics of the
* side-band-64k capability from protocol version 1
WHILE xstrlen( lv_xstring ) > 0.
lv_hex4 = lv_xstring(4).
lv_pktlen = zcl_abapgit_git_utils=>length_utf8_hex( lv_hex4 ).
IF lv_pktlen = 0.
EXIT.
ELSEIF lv_pktlen = 1.
* its a delimiter package
lv_xstring = lv_xstring+4.
CONTINUE.
ENDIF.
lv_contents = lv_xstring(lv_pktlen).
IF lv_contents+4(1) = ''01''.
CONCATENATE lv_pack lv_contents+5 INTO lv_pack IN BYTE MODE.
ENDIF.
lv_xstring = lv_xstring+lv_pktlen.
ENDWHILE.
rt_objects = zcl_abapgit_git_pack=>decode( lv_pack ).
ENDMETHOD.
METHOD send_command.
CONSTANTS lc_content_regex TYPE string VALUE ''^[0-9a-f]{4}#''.
DATA lo_client TYPE REF TO zcl_abapgit_http_client.
DATA lv_cmd_pkt TYPE string.
DATA lt_headers TYPE zcl_abapgit_http=>ty_headers.
DATA ls_header LIKE LINE OF lt_headers.
DATA lv_argument TYPE string.
ls_header-key = ''Git-Protocol''.
ls_header-value = ''version=2''.
APPEND ls_header TO lt_headers.
lo_client = zcl_abapgit_http=>create_by_url(
iv_url = iv_url
iv_service = c_service-upload
it_headers = lt_headers ).
lo_client->check_smart_response(
iv_expected_content_type = |application/x-git-{ iv_service }-pack-advertisement|
iv_content_regex = lc_content_regex ).
lv_cmd_pkt = zcl_abapgit_git_utils=>pkt_string( |command={ iv_command }\\n| )
&& zcl_abapgit_git_utils=>pkt_string( |agent={ zcl_abapgit_http=>get_agent( ) }\\n| ).
IF lines( it_arguments ) > 0.
lv_cmd_pkt = lv_cmd_pkt && c_delim_pkt.
LOOP AT it_arguments INTO lv_argument.
lv_cmd_pkt = lv_cmd_pkt && zcl_abapgit_git_utils=>pkt_string( lv_argument ).
ENDLOOP.
ENDIF.
lv_cmd_pkt = lv_cmd_pkt && c_flush_pkt.
lo_client->set_header(
iv_key = ''~request_uri''
iv_value = zcl_abapgit_url=>path_name( iv_url ) && |/git-{ iv_service }-pack| ).
lo_client->set_header(
iv_key = ''~request_method''
iv_value = ''POST'' ).
lo_client->set_header(
iv_key = ''Content-Type''
iv_value = |application/x-git-{ iv_service }-pack-request| ).
lo_client->set_header(
iv_key = ''Accept''
iv_value = |application/x-git-{ iv_service }-pack-result| ).
rv_response = lo_client->send_receive_close( zcl_abapgit_convert=>string_to_xstring_utf8( lv_cmd_pkt ) ).
ENDMETHOD.
METHOD zif_abapgit_gitv2_porcelain~commits_last_year.
DATA lv_xstring TYPE xstring.
DATA lt_arguments TYPE string_table.
DATA lv_argument TYPE string.
DATA lv_sha1 LIKE LINE OF it_sha1.
ASSERT lines( it_sha1 ) > 0.
lv_argument = |deepen-since { zcl_abapgit_git_time=>get_one_year_ago( ) }|.
APPEND lv_argument TO lt_arguments.
LOOP AT it_sha1 INTO lv_sha1.
lv_argument = |want { lv_sha1 }|.
APPEND lv_argument TO lt_arguments.
ENDLOOP.
* ''filter object:type=commit'' doesn''t work on github
APPEND ''filter blob:none'' TO lt_arguments.
APPEND ''no-progress'' TO lt_arguments.
APPEND ''done'' TO lt_arguments.
lv_xstring = send_command(
iv_url = iv_url
iv_service = c_service-upload
iv_command = |fetch|
it_arguments = lt_arguments ).
rt_objects = decode_pack( lv_xstring ).
DELETE rt_objects WHERE type <> zif_abapgit_git_definitions=>c_type-commit.
ENDMETHOD.
METHOD zif_abapgit_gitv2_porcelain~list_branches.
DATA lv_xstring TYPE xstring.
DATA lt_arguments TYPE string_table.
DATA lv_argument TYPE string.
DATA lv_data TYPE string.
IF iv_prefix IS NOT INITIAL.
lv_argument = |ref-prefix { iv_prefix }|.
APPEND lv_argument TO lt_arguments.
ENDIF.
lv_xstring = send_command(
iv_url = iv_url
iv_service = c_service-upload
iv_command = |ls-refs|
it_arguments = lt_arguments ).
" add dummy packet so the v1 branch parsing can be reused
lv_data = |0004\\n{ zcl_abapgit_convert=>xstring_to_string_utf8( lv_xstring ) }|.
CREATE OBJECT ro_list
EXPORTING
iv_data = lv_data.
ENDMETHOD.
METHOD zif_abapgit_gitv2_porcelain~list_no_blobs.
DATA lt_sha1 TYPE zif_abapgit_git_definitions=>ty_sha1_tt.
DATA lt_objects TYPE zif_abapgit_definitions=>ty_objects_tt.
ASSERT iv_sha1 IS NOT INITIAL.
APPEND iv_sha1 TO lt_sha1.
lt_objects = zif_abapgit_gitv2_porcelain~list_no_blobs_multi(
iv_url = iv_url
it_sha1 = lt_sha1 ).
rt_expanded = zcl_abapgit_git_porcelain=>full_tree(
it_objects = lt_objects
iv_parent = iv_sha1 ).
ENDMETHOD.
METHOD zif_abapgit_gitv2_porcelain~list_no_blobs_multi.
DATA lv_xstring TYPE xstring.
DATA lt_arguments TYPE string_table.
DATA lv_argument TYPE string.
DATA lv_sha1 LIKE LINE OF it_sha1.
ASSERT lines( it_sha1 ) > 0.
APPEND ''deepen 1'' TO lt_arguments.
LOOP AT it_sha1 INTO lv_sha1.
lv_argument = |want { lv_sha1 }|.
APPEND lv_argument TO lt_arguments.
ENDLOOP.
APPEND ''filter blob:none'' TO lt_arguments.
APPEND ''no-progress'' TO lt_arguments.
APPEND ''done'' TO lt_arguments.
lv_xstring = send_command(
iv_url = iv_url
iv_service = c_service-upload
iv_command = |fetch|
it_arguments = lt_arguments ).
rt_objects = decode_pack( lv_xstring ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_GITV2_PORCELAIN ', 'INTERFACE zif_abapgit_gitv2_porcelain
PUBLIC .
METHODS list_branches
IMPORTING
!iv_url TYPE string
!iv_prefix TYPE string OPTIONAL
RETURNING
VALUE(ro_list) TYPE REF TO zcl_abapgit_git_branch_list
RAISING
zcx_abapgit_exception .
METHODS list_no_blobs
IMPORTING
!iv_url TYPE string
!iv_sha1 TYPE zif_abapgit_git_definitions=>ty_sha1
RETURNING
VALUE(rt_expanded) TYPE zif_abapgit_git_definitions=>ty_expanded_tt
RAISING
zcx_abapgit_exception .
METHODS list_no_blobs_multi
IMPORTING
!iv_url TYPE string
!it_sha1 TYPE zif_abapgit_git_definitions=>ty_sha1_tt
RETURNING
VALUE(rt_objects) TYPE zif_abapgit_definitions=>ty_objects_tt
RAISING
zcx_abapgit_exception .
METHODS commits_last_year
IMPORTING
!iv_url TYPE string
!it_sha1 TYPE zif_abapgit_git_definitions=>ty_sha1_tt
RETURNING
VALUE(rt_objects) TYPE zif_abapgit_definitions=>ty_objects_tt
RAISING
zcx_abapgit_exception .
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GIT_ADD_PATCH ', 'CLASS zcl_abapgit_git_add_patch DEFINITION
PUBLIC
FINAL
CREATE PUBLIC.
PUBLIC SECTION.
METHODS:
constructor
IMPORTING
it_diff TYPE zif_abapgit_definitions=>ty_diffs_tt,
get_patch
RETURNING
VALUE(rt_patch) TYPE string_table
RAISING
zcx_abapgit_exception,
get_patch_binary
RETURNING
VALUE(rv_patch_binary) TYPE xstring
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
DATA:
mt_diff TYPE zif_abapgit_definitions=>ty_diffs_tt,
mt_patch TYPE string_table.
METHODS:
calculate_patch
RETURNING
VALUE(rt_patch) TYPE string_table
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS ZCL_ABAPGIT_GIT_ADD_PATCH IMPLEMENTATION.
METHOD calculate_patch.
FIELD-SYMBOLS: <ls_diff> LIKE LINE OF mt_diff.
LOOP AT mt_diff ASSIGNING <ls_diff>.
CASE <ls_diff>-result.
WHEN zif_abapgit_definitions=>c_diff-unchanged.
INSERT <ls_diff>-old INTO TABLE rt_patch.
WHEN zif_abapgit_definitions=>c_diff-insert.
IF <ls_diff>-patch_flag = abap_true.
INSERT <ls_diff>-new INTO TABLE rt_patch.
ENDIF.
WHEN zif_abapgit_definitions=>c_diff-delete.
IF <ls_diff>-patch_flag = abap_false.
INSERT <ls_diff>-old INTO TABLE rt_patch.
ENDIF.
WHEN zif_abapgit_definitions=>c_diff-update.
IF <ls_diff>-patch_flag = abap_true.
INSERT <ls_diff>-new INTO TABLE rt_patch.
ELSE.
INSERT <ls_diff>-old INTO TABLE rt_patch.
ENDIF.
WHEN OTHERS.
zcx_abapgit_exception=>raise( |Unknown result| ).
ENDCASE.
ENDLOOP.
ENDMETHOD.
METHOD constructor.
mt_diff = it_diff.
ENDMETHOD.
METHOD get_patch.
IF mt_patch IS INITIAL.
mt_patch = calculate_patch( ).
ENDIF.
rt_patch = mt_patch.
ENDMETHOD.
METHOD get_patch_binary.
DATA: lv_string TYPE string.
IF mt_patch IS INITIAL.
mt_patch = calculate_patch( ).
ENDIF.
CONCATENATE LINES OF mt_patch INTO lv_string SEPARATED BY cl_abap_char_utilities=>newline.
lv_string = lv_string && cl_abap_char_utilities=>newline.
rv_patch_binary = zcl_abapgit_convert=>string_to_xstring_utf8( lv_string ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GIT_BRANCH_LIST ', 'CLASS zcl_abapgit_git_branch_list DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
METHODS constructor
IMPORTING
!iv_data TYPE string
RAISING
zcx_abapgit_exception .
METHODS find_by_name
IMPORTING
!iv_branch_name TYPE clike
RETURNING
VALUE(rs_branch) TYPE zif_abapgit_git_definitions=>ty_git_branch
RAISING
zcx_abapgit_exception .
METHODS get_head_symref
RETURNING
VALUE(rv_head_symref) TYPE string .
METHODS get_all
RETURNING
VALUE(rt_branches) TYPE zif_abapgit_git_definitions=>ty_git_branch_list_tt
RAISING
zcx_abapgit_exception .
METHODS get_branches_only
RETURNING
VALUE(rt_branches) TYPE zif_abapgit_git_definitions=>ty_git_branch_list_tt
RAISING
zcx_abapgit_exception .
METHODS get_tags_only " For potential future use
RETURNING
VALUE(rt_tags) TYPE zif_abapgit_git_definitions=>ty_git_branch_list_tt
RAISING
zcx_abapgit_exception .
CLASS-METHODS get_display_name
IMPORTING
!iv_branch_name TYPE clike
RETURNING
VALUE(rv_display_name) TYPE string .
CLASS-METHODS get_type
IMPORTING
!iv_branch_name TYPE clike
!it_result TYPE string_table OPTIONAL
!iv_current_row_index TYPE sy-tabix OPTIONAL
RETURNING
VALUE(rv_type) TYPE zif_abapgit_git_definitions=>ty_git_branch_type .
CLASS-METHODS get_description
IMPORTING
!iv_branch_name TYPE clike
RETURNING
VALUE(rv_description) TYPE string.
CLASS-METHODS complete_heads_branch_name
IMPORTING
!iv_branch_name TYPE clike
RETURNING
VALUE(rv_name) TYPE string .
CLASS-METHODS normalize_branch_name
IMPORTING
!iv_branch_name TYPE clike
RETURNING
VALUE(rv_name) TYPE string .
PROTECTED SECTION.
PRIVATE SECTION.
DATA mt_branches TYPE zif_abapgit_git_definitions=>ty_git_branch_list_tt .
DATA mv_head_symref TYPE string .
CLASS-METHODS skip_first_pkt
IMPORTING
!iv_data TYPE string
RETURNING
VALUE(rv_data) TYPE string
RAISING
zcx_abapgit_exception .
METHODS find_tag_by_name
IMPORTING
!iv_branch_name TYPE string
RETURNING
VALUE(rs_branch) TYPE zif_abapgit_git_definitions=>ty_git_branch
RAISING
zcx_abapgit_exception .
CLASS-METHODS parse_branch_list
IMPORTING
!iv_data TYPE string
EXPORTING
!et_list TYPE zif_abapgit_git_definitions=>ty_git_branch_list_tt
!ev_head_symref TYPE string
RAISING
zcx_abapgit_exception .
CLASS-METHODS parse_head_params
IMPORTING
!iv_data TYPE string
RETURNING
VALUE(rv_head_symref) TYPE string .
ENDCLASS.
CLASS zcl_abapgit_git_branch_list IMPLEMENTATION.
METHOD complete_heads_branch_name.
IF iv_branch_name CP zif_abapgit_git_definitions=>c_git_branch-heads.
rv_name = iv_branch_name.
ELSE.
rv_name = zif_abapgit_git_definitions=>c_git_branch-heads_prefix && iv_branch_name.
ENDIF.
ENDMETHOD.
METHOD constructor.
parse_branch_list(
EXPORTING
iv_data = iv_data
IMPORTING
et_list = mt_branches
ev_head_symref = mv_head_symref ).
ENDMETHOD.
METHOD find_by_name.
IF iv_branch_name IS INITIAL.
zcx_abapgit_exception=>raise( ''Branch name empty'' ).
ENDIF.
IF iv_branch_name CP zif_abapgit_git_definitions=>c_git_branch-tags.
rs_branch = find_tag_by_name( iv_branch_name ).
ELSE.
READ TABLE mt_branches INTO rs_branch
WITH TABLE KEY name_key
COMPONENTS name = iv_branch_name.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |{ get_description( iv_branch_name ) } not found| ).
ENDIF.
ENDIF.
ENDMETHOD.
METHOD find_tag_by_name.
READ TABLE mt_branches INTO rs_branch
WITH TABLE KEY name_key
COMPONENTS name = zcl_abapgit_git_tag=>add_peel( iv_branch_name ).
IF sy-subrc <> 0.
READ TABLE mt_branches INTO rs_branch
WITH TABLE KEY name_key
COMPONENTS name = iv_branch_name.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |{ get_description( iv_branch_name ) } not found| ).
ENDIF.
ENDIF.
ENDMETHOD.
METHOD get_all.
rt_branches = mt_branches.
ENDMETHOD.
METHOD get_branches_only.
FIELD-SYMBOLS <ls_branch> LIKE LINE OF mt_branches.
LOOP AT mt_branches ASSIGNING <ls_branch>.
IF <ls_branch>-type = zif_abapgit_git_definitions=>c_git_branch_type-branch.
APPEND <ls_branch> TO rt_branches.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD get_description.
CASE get_type( iv_branch_name ).
WHEN zif_abapgit_git_definitions=>c_git_branch_type-branch.
rv_description = ''Branch''.
WHEN zif_abapgit_git_definitions=>c_git_branch_type-lightweight_tag.
rv_description = ''Tag''.
WHEN zif_abapgit_git_definitions=>c_git_branch_type-annotated_tag.
rv_description = ''Annotated Tag''.
WHEN OTHERS.
rv_description = ''Branch''.
ENDCASE.
rv_description = |{ rv_description } "{ get_display_name( iv_branch_name ) }"|.
ENDMETHOD.
METHOD get_display_name.
rv_display_name = iv_branch_name.
IF rv_display_name CP zif_abapgit_git_definitions=>c_git_branch-heads.
REPLACE FIRST OCCURRENCE OF zif_abapgit_git_definitions=>c_git_branch-heads_prefix IN rv_display_name WITH ''''.
ELSEIF rv_display_name CP zif_abapgit_git_definitions=>c_git_branch-tags.
rv_display_name = zcl_abapgit_git_tag=>remove_tag_prefix( zcl_abapgit_git_tag=>remove_peel( rv_display_name ) ).
ENDIF.
ENDMETHOD.
METHOD get_head_symref.
rv_head_symref = mv_head_symref.
ENDMETHOD.
METHOD get_tags_only.
FIELD-SYMBOLS <ls_branch> LIKE LINE OF mt_branches.
LOOP AT mt_branches ASSIGNING <ls_branch>
WHERE type = zif_abapgit_git_definitions=>c_git_branch_type-lightweight_tag
OR type = zif_abapgit_git_definitions=>c_git_branch_type-annotated_tag.
APPEND <ls_branch> TO rt_tags.
ENDLOOP.
ENDMETHOD.
METHOD get_type.
FIELD-SYMBOLS: <lv_result> TYPE LINE OF string_table.
rv_type = zif_abapgit_git_definitions=>c_git_branch_type-other.
IF iv_branch_name CP zif_abapgit_git_definitions=>c_git_branch-heads OR
iv_branch_name = zif_abapgit_git_definitions=>c_head_name.
rv_type = zif_abapgit_git_definitions=>c_git_branch_type-branch.
ELSEIF iv_branch_name CP zif_abapgit_git_definitions=>c_git_branch-tags.
READ TABLE it_result ASSIGNING <lv_result>
INDEX iv_current_row_index + 1.
IF sy-subrc = 0 AND <lv_result> CP ''*'' && zcl_abapgit_git_tag=>add_peel( iv_branch_name ).
rv_type = zif_abapgit_git_definitions=>c_git_branch_type-annotated_tag.
ELSE.
rv_type = zif_abapgit_git_definitions=>c_git_branch_type-lightweight_tag.
ENDIF.
ENDIF.
ENDMETHOD.
METHOD normalize_branch_name.
rv_name = iv_branch_name. " Force convert to string
REPLACE ALL OCCURRENCES OF \` \` IN rv_name WITH ''-''. " Disallow space in branch name
ENDMETHOD.
METHOD parse_branch_list.
DATA: lt_result TYPE TABLE OF string,
lv_hash TYPE zif_abapgit_git_definitions=>ty_sha1,
lv_name TYPE string,
lv_head_params TYPE string,
lv_char TYPE c,
lv_data LIKE LINE OF lt_result,
lv_current_row_index TYPE syst-tabix.
FIELD-SYMBOLS: <ls_branch> LIKE LINE OF et_list.
CLEAR: et_list, ev_head_symref.
lv_data = skip_first_pkt( iv_data ).
SPLIT lv_data AT cl_abap_char_utilities=>newline INTO TABLE lt_result.
LOOP AT lt_result INTO lv_data.
lv_current_row_index = sy-tabix.
IF sy-tabix = 1 AND strlen( lv_data ) > 12 AND lv_data(4) = ''0000'' AND lv_data+8(3) = ''ERR''.
lv_name = lv_data+8.
zcx_abapgit_exception=>raise( lv_name ).
ELSEIF sy-tabix = 1 AND strlen( lv_data ) > 49.
lv_hash = lv_data+8.
lv_name = lv_data+49.
lv_char = zcl_abapgit_git_utils=>get_null( ).
SPLIT lv_name AT lv_char INTO lv_name lv_head_params.
ev_head_symref = parse_head_params( lv_head_params ).
IF ev_head_symref IS INITIAL AND lv_name CS ''refs/heads/''.
ev_head_symref = lv_name.
ENDIF.
ELSEIF sy-tabix > 1 AND strlen( lv_data ) > 45.
lv_hash = lv_data+4.
lv_name = lv_data+45.
ELSEIF sy-tabix = 1 AND strlen( lv_data ) = 8 AND lv_data(8) = ''00000000''.
zcx_abapgit_exception=>raise( ''No branches, create branch manually by adding file'' ).
ELSE.
CONTINUE.
ENDIF.
ASSERT lv_name IS NOT INITIAL.
APPEND INITIAL LINE TO et_list ASSIGNING <ls_branch>.
<ls_branch>-sha1 = lv_hash.
<ls_branch>-name = lv_name.
<ls_branch>-display_name = get_display_name( lv_name ).
<ls_branch>-type = get_type( iv_branch_name = lv_name
it_result = lt_result
iv_current_row_index = lv_current_row_index ).
IF <ls_branch>-name = zif_abapgit_git_definitions=>c_head_name OR <ls_branch>-name = ev_head_symref.
<ls_branch>-is_head = abap_true.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD parse_head_params.
DATA: ls_match TYPE match_result,
ls_submatch LIKE LINE OF ls_match-submatches.
FIND FIRST OCCURRENCE OF REGEX ''\\ssymref=HEAD:([^\\s]+)'' IN iv_data RESULTS ls_match.
READ TABLE ls_match-submatches INTO ls_submatch INDEX 1.
IF sy-subrc IS INITIAL.
rv_head_symref = iv_data+ls_submatch-offset(ls_submatch-length).
ENDIF.
ENDMETHOD.
METHOD skip_first_pkt.
DATA: lv_hex TYPE x LENGTH 1,
lv_length TYPE i.
* channel
ASSERT iv_data(2) = ''00''.
lv_hex = to_upper( iv_data+2(2) ).
lv_length = lv_hex.
rv_data = iv_data+lv_length.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GIT_COMMIT ', 'CLASS zcl_abapgit_git_commit DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
TYPES:
BEGIN OF ty_pull_result,
commits TYPE zif_abapgit_git_definitions=>ty_commit_tt,
commit TYPE zif_abapgit_git_definitions=>ty_sha1,
END OF ty_pull_result .
CLASS-METHODS get_by_branch
IMPORTING
!iv_branch_name TYPE string
!iv_repo_url TYPE string
!iv_deepen_level TYPE i
!iv_sorted TYPE abap_bool DEFAULT abap_true
RETURNING
VALUE(rs_pull_result) TYPE ty_pull_result
RAISING
zcx_abapgit_exception .
CLASS-METHODS get_by_commit
IMPORTING
!iv_commit_hash TYPE zif_abapgit_git_definitions=>ty_sha1
!iv_repo_url TYPE string
!iv_deepen_level TYPE i
RETURNING
VALUE(rt_commits) TYPE zif_abapgit_git_definitions=>ty_commit_tt
RAISING
zcx_abapgit_exception .
CLASS-METHODS parse_commits
IMPORTING
!it_objects TYPE zif_abapgit_definitions=>ty_objects_tt
RETURNING
VALUE(rt_commits) TYPE zif_abapgit_git_definitions=>ty_commit_tt
RAISING
zcx_abapgit_exception .
CLASS-METHODS sort_commits
CHANGING
!ct_commits TYPE zif_abapgit_git_definitions=>ty_commit_tt
RAISING
zcx_abapgit_exception .
CLASS-METHODS reverse_sort_order
CHANGING
!ct_commits TYPE zif_abapgit_git_definitions=>ty_commit_tt .
CLASS-METHODS clear_missing_parents CHANGING ct_commits TYPE zif_abapgit_git_definitions=>ty_commit_tt .
PROTECTED SECTION.
PRIVATE SECTION.
TYPES: ty_sha1_range TYPE RANGE OF zif_abapgit_git_definitions=>ty_sha1 .
CLASS-METHODS get_1st_child_commit
IMPORTING
it_commit_sha1s TYPE ty_sha1_range
EXPORTING
et_commit_sha1s TYPE ty_sha1_range
es_1st_commit TYPE zif_abapgit_git_definitions=>ty_commit
CHANGING
ct_commits TYPE zif_abapgit_git_definitions=>ty_commit_tt .
CLASS-METHODS is_missing
IMPORTING
it_commits TYPE zif_abapgit_git_definitions=>ty_commit_tt
iv_sha1 TYPE zif_abapgit_git_definitions=>ty_sha1
RETURNING
VALUE(rv_result) TYPE abap_bool.
CLASS-METHODS extract_author_data
IMPORTING
!iv_author TYPE string
EXPORTING
!ev_author TYPE zif_abapgit_git_definitions=>ty_commit-author
!ev_email TYPE zif_abapgit_git_definitions=>ty_commit-email
!ev_time TYPE zif_abapgit_git_definitions=>ty_commit-time
RAISING
zcx_abapgit_exception .
ENDCLASS.
CLASS zcl_abapgit_git_commit IMPLEMENTATION.
METHOD extract_author_data.
" Unix time stamps are in same time zone, so ignore the zone
FIND REGEX zif_abapgit_definitions=>c_author_regex IN iv_author
SUBMATCHES
ev_author
ev_email
ev_time.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error author regex value=''{ iv_author }''| ).
ENDIF.
ENDMETHOD.
METHOD clear_missing_parents.
"Part of #4719 to handle cut commit sequences, todo
FIELD-SYMBOLS: <ls_commit> TYPE zif_abapgit_git_definitions=>ty_commit.
LOOP AT ct_commits ASSIGNING <ls_commit>.
IF is_missing( it_commits = ct_commits
iv_sha1 = <ls_commit>-parent1 ) = abap_true.
CLEAR <ls_commit>-parent1.
ENDIF.
IF is_missing( it_commits = ct_commits
iv_sha1 = <ls_commit>-parent2 ) = abap_true.
CLEAR <ls_commit>-parent2.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD get_1st_child_commit.
DATA: lt_1stchild_commits TYPE zif_abapgit_git_definitions=>ty_commit_tt,
ls_parent LIKE LINE OF it_commit_sha1s,
lt_commit_sha1s LIKE it_commit_sha1s.
FIELD-SYMBOLS: <ls_child_commit> TYPE zif_abapgit_git_definitions=>ty_commit.
CLEAR: es_1st_commit.
* get all reachable next commits
lt_commit_sha1s = it_commit_sha1s.
LOOP AT ct_commits ASSIGNING <ls_child_commit> WHERE parent1 IN lt_commit_sha1s
OR parent2 IN lt_commit_sha1s.
INSERT <ls_child_commit> INTO TABLE lt_1stchild_commits.
ENDLOOP.
* return oldest one
SORT lt_1stchild_commits BY time ASCENDING.
READ TABLE lt_1stchild_commits INTO es_1st_commit INDEX 1.
* remove from available commits
DELETE ct_commits WHERE sha1 = es_1st_commit-sha1.
* set relevant parent commit sha1s
IF lines( lt_1stchild_commits ) = 1.
CLEAR et_commit_sha1s.
ELSE.
et_commit_sha1s = it_commit_sha1s.
ENDIF.
ls_parent-sign = ''I''.
ls_parent-option = ''EQ''.
ls_parent-low = es_1st_commit-sha1.
INSERT ls_parent INTO TABLE et_commit_sha1s.
ENDMETHOD.
METHOD get_by_branch.
DATA: li_progress TYPE REF TO zif_abapgit_progress,
lt_objects TYPE zif_abapgit_definitions=>ty_objects_tt.
li_progress = zcl_abapgit_progress=>get_instance( 1 ).
li_progress->show(
iv_current = 1
iv_text = |Get git commits { iv_repo_url }| ).
zcl_abapgit_git_transport=>upload_pack_by_branch(
EXPORTING
iv_url = iv_repo_url
iv_branch_name = iv_branch_name
iv_deepen_level = iv_deepen_level
IMPORTING
ev_branch = rs_pull_result-commit
et_objects = lt_objects ).
DELETE lt_objects WHERE type <> zif_abapgit_git_definitions=>c_type-commit.
rs_pull_result-commits = parse_commits( lt_objects ).
IF iv_sorted = abap_true.
sort_commits( CHANGING ct_commits = rs_pull_result-commits ).
ENDIF.
ENDMETHOD.
METHOD get_by_commit.
DATA: li_progress TYPE REF TO zif_abapgit_progress,
lt_objects TYPE zif_abapgit_definitions=>ty_objects_tt.
li_progress = zcl_abapgit_progress=>get_instance( 1 ).
li_progress->show(
iv_current = 1
iv_text = |Get git commits { iv_repo_url }| ).
zcl_abapgit_git_transport=>upload_pack_by_commit(
EXPORTING
iv_url = iv_repo_url
iv_deepen_level = iv_deepen_level
iv_hash = iv_commit_hash
IMPORTING
et_objects = lt_objects ).
DELETE lt_objects WHERE type <> zif_abapgit_git_definitions=>c_type-commit.
rt_commits = parse_commits( lt_objects ).
sort_commits( CHANGING ct_commits = rt_commits ).
ENDMETHOD.
METHOD is_missing.
IF iv_sha1 IS NOT INITIAL.
READ TABLE it_commits
TRANSPORTING NO FIELDS
WITH KEY sha1 = iv_sha1.
rv_result = boolc( sy-subrc <> 0 ).
ENDIF.
ENDMETHOD.
METHOD parse_commits.
DATA: ls_commit TYPE zif_abapgit_git_definitions=>ty_commit,
lt_body TYPE STANDARD TABLE OF string WITH DEFAULT KEY,
ls_raw TYPE zcl_abapgit_git_pack=>ty_commit.
FIELD-SYMBOLS: <ls_object> LIKE LINE OF it_objects,
<lv_body> TYPE string.
LOOP AT it_objects ASSIGNING <ls_object> USING KEY type
WHERE type = zif_abapgit_git_definitions=>c_type-commit.
ls_raw = zcl_abapgit_git_pack=>decode_commit( <ls_object>-data ).
CLEAR ls_commit.
ls_commit-sha1 = <ls_object>-sha1.
ls_commit-parent1 = ls_raw-parent.
ls_commit-parent2 = ls_raw-parent2.
SPLIT ls_raw-body AT cl_abap_char_utilities=>newline INTO TABLE lt_body.
READ TABLE lt_body WITH KEY table_line = '' -----END PGP SIGNATURE-----'' TRANSPORTING NO FIELDS.
IF sy-subrc = 0.
DELETE lt_body TO sy-tabix.
DELETE lt_body TO 2.
ENDIF.
READ TABLE lt_body INDEX 1 INTO ls_commit-message. "#EC CI_SUBRC
" The second line is always empty. Therefore we omit it.
LOOP AT lt_body ASSIGNING <lv_body>
FROM 3.
INSERT <lv_body> INTO TABLE ls_commit-body.
ENDLOOP.
extract_author_data(
EXPORTING
iv_author = ls_raw-author
IMPORTING
ev_author = ls_commit-author
ev_email = ls_commit-email
ev_time = ls_commit-time ).
APPEND ls_commit TO rt_commits.
ENDLOOP.
ENDMETHOD.
METHOD reverse_sort_order.
DATA: lt_commits TYPE zif_abapgit_git_definitions=>ty_commit_tt.
FIELD-SYMBOLS: <ls_commit> TYPE zif_abapgit_git_definitions=>ty_commit.
LOOP AT ct_commits ASSIGNING <ls_commit>.
INSERT <ls_commit> INTO lt_commits INDEX 1.
ENDLOOP.
ct_commits = lt_commits.
FREE lt_commits.
ENDMETHOD.
METHOD sort_commits.
DATA: lt_sorted_commits TYPE zif_abapgit_git_definitions=>ty_commit_tt,
ls_next_commit TYPE zif_abapgit_git_definitions=>ty_commit,
lt_parents TYPE ty_sha1_range,
ls_parent LIKE LINE OF lt_parents.
FIELD-SYMBOLS: <ls_initial_commit> TYPE zif_abapgit_git_definitions=>ty_commit.
" find initial commit
READ TABLE ct_commits ASSIGNING <ls_initial_commit> WITH KEY parent1 = space.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Cannot find initial commit. Too many commits. Action not possible.| ).
ENDIF.
ls_parent-sign = ''I''.
ls_parent-option = ''EQ''.
ls_parent-low = <ls_initial_commit>-sha1.
INSERT ls_parent INTO TABLE lt_parents.
" first commit
INSERT <ls_initial_commit> INTO TABLE lt_sorted_commits.
" remove from available commits
DELETE ct_commits WHERE sha1 = <ls_initial_commit>-sha1.
DO.
get_1st_child_commit( EXPORTING it_commit_sha1s = lt_parents
IMPORTING et_commit_sha1s = lt_parents
es_1st_commit = ls_next_commit
CHANGING ct_commits = ct_commits ).
IF ls_next_commit IS INITIAL.
EXIT. "DO
ENDIF.
INSERT ls_next_commit INTO TABLE lt_sorted_commits.
ENDDO.
ct_commits = lt_sorted_commits.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GIT_FACTORY ', 'CLASS zcl_abapgit_git_factory DEFINITION
PUBLIC
FINAL
CREATE PRIVATE
GLOBAL FRIENDS zcl_abapgit_git_injector .
PUBLIC SECTION.
CLASS-METHODS:
get_v2_porcelain
RETURNING VALUE(ri_v2) TYPE REF TO zif_abapgit_gitv2_porcelain,
get_git_transport
RETURNING
VALUE(ri_git_transport) TYPE REF TO zif_abapgit_git_transport.
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-DATA:
gi_git_transport TYPE REF TO zif_abapgit_git_transport.
ENDCLASS.
CLASS zcl_abapgit_git_factory IMPLEMENTATION.
METHOD get_v2_porcelain.
CREATE OBJECT ri_v2 TYPE zcl_abapgit_gitv2_porcelain.
ENDMETHOD.
METHOD get_git_transport.
IF gi_git_transport IS INITIAL.
CREATE OBJECT gi_git_transport TYPE zcl_abapgit_git_transport.
ENDIF.
ri_git_transport = gi_git_transport.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GIT_INJECTOR ', 'CLASS zcl_abapgit_git_injector DEFINITION
PUBLIC
FOR TESTING
FINAL
CREATE PRIVATE .
PUBLIC SECTION.
CLASS-METHODS:
set_git_transport
IMPORTING
ii_git_transport TYPE REF TO zif_abapgit_git_transport.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_git_injector IMPLEMENTATION.
METHOD set_git_transport.
zcl_abapgit_git_factory=>gi_git_transport = ii_git_transport.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GIT_PACK ', 'CLASS zcl_abapgit_git_pack DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
TYPES:
BEGIN OF ty_node,
chmod TYPE zif_abapgit_git_definitions=>ty_chmod,
name TYPE string,
sha1 TYPE zif_abapgit_git_definitions=>ty_sha1,
END OF ty_node .
TYPES:
ty_nodes_tt TYPE STANDARD TABLE OF ty_node WITH DEFAULT KEY .
TYPES:
BEGIN OF ty_commit,
tree TYPE zif_abapgit_git_definitions=>ty_sha1,
parent TYPE zif_abapgit_git_definitions=>ty_sha1,
parent2 TYPE zif_abapgit_git_definitions=>ty_sha1,
author TYPE string,
committer TYPE string,
gpgsig TYPE string,
body TYPE string,
END OF ty_commit .
TYPES:
BEGIN OF ty_tag,
object TYPE string,
type TYPE string,
tag TYPE string,
tagger_name TYPE string,
tagger_email TYPE string,
message TYPE string,
body TYPE string,
END OF ty_tag .
CLASS-METHODS decode
IMPORTING
!iv_data TYPE xstring
RETURNING
VALUE(rt_objects) TYPE zif_abapgit_definitions=>ty_objects_tt
RAISING
zcx_abapgit_exception .
CLASS-METHODS decode_tree
IMPORTING
!iv_data TYPE xstring
RETURNING
VALUE(rt_nodes) TYPE ty_nodes_tt
RAISING
zcx_abapgit_exception .
CLASS-METHODS decode_commit
IMPORTING
!iv_data TYPE xstring
RETURNING
VALUE(rs_commit) TYPE ty_commit
RAISING
zcx_abapgit_exception .
CLASS-METHODS decode_tag
IMPORTING
!iv_data TYPE xstring
RETURNING
VALUE(rs_tag) TYPE ty_tag
RAISING
zcx_abapgit_exception .
CLASS-METHODS encode
IMPORTING
!it_objects TYPE zif_abapgit_definitions=>ty_objects_tt
RETURNING
VALUE(rv_data) TYPE xstring
RAISING
zcx_abapgit_exception .
CLASS-METHODS encode_tree
IMPORTING
!it_nodes TYPE ty_nodes_tt
RETURNING
VALUE(rv_data) TYPE xstring
RAISING
zcx_abapgit_exception .
CLASS-METHODS encode_commit
IMPORTING
!is_commit TYPE ty_commit
RETURNING
VALUE(rv_data) TYPE xstring
RAISING
zcx_abapgit_exception .
CLASS-METHODS encode_tag
IMPORTING
!is_tag TYPE ty_tag
RETURNING
VALUE(rv_data) TYPE xstring
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS:
c_pack_start TYPE x LENGTH 4 VALUE ''5041434B'' ##NO_TEXT.
CONSTANTS:
c_zlib TYPE x LENGTH 2 VALUE ''789C'' ##NO_TEXT.
CONSTANTS:
c_zlib_hmm TYPE x LENGTH 2 VALUE ''7801'' ##NO_TEXT.
CONSTANTS: " PACK
c_version TYPE x LENGTH 4 VALUE ''00000002'' ##NO_TEXT.
CLASS-METHODS decode_deltas
CHANGING
!ct_objects TYPE zif_abapgit_definitions=>ty_objects_tt
RAISING
zcx_abapgit_exception .
CLASS-METHODS delta
IMPORTING
!is_object TYPE zif_abapgit_definitions=>ty_object
CHANGING
!ct_objects TYPE zif_abapgit_definitions=>ty_objects_tt
RAISING
zcx_abapgit_exception .
CLASS-METHODS delta_header
IMPORTING
!io_stream TYPE REF TO lcl_stream
RETURNING
VALUE(rv_header) TYPE i .
CLASS-METHODS sort_tree
IMPORTING
!it_nodes TYPE ty_nodes_tt
RETURNING
VALUE(rt_nodes) TYPE ty_nodes_tt .
CLASS-METHODS get_type
IMPORTING
!iv_x TYPE x
RETURNING
VALUE(rv_type) TYPE zif_abapgit_git_definitions=>ty_type
RAISING
zcx_abapgit_exception .
CLASS-METHODS get_length
EXPORTING
!ev_length TYPE i
CHANGING
!cv_data TYPE xstring .
CLASS-METHODS type_and_length
IMPORTING
!iv_type TYPE zif_abapgit_git_definitions=>ty_type
!iv_length TYPE i
RETURNING
VALUE(rv_xstring) TYPE xstring
RAISING
zcx_abapgit_exception .
CLASS-METHODS zlib_decompress
CHANGING
!cv_data TYPE xstring
!cv_decompressed TYPE xstring
RAISING
zcx_abapgit_exception .
ENDCLASS.
CLASS zcl_abapgit_git_pack IMPLEMENTATION.
METHOD decode.
DATA: lv_x TYPE x,
lv_data TYPE xstring,
lv_type TYPE c LENGTH 6,
lv_zlib TYPE x LENGTH 2,
lv_objects TYPE i,
lv_len TYPE i,
lv_sha1 TYPE zif_abapgit_git_definitions=>ty_sha1,
lv_ref_delta TYPE zif_abapgit_git_definitions=>ty_sha1,
lv_compressed_len TYPE i,
lv_compressed TYPE xstring,
lv_decompressed TYPE xstring,
lv_decompress_len TYPE i,
lv_xstring TYPE xstring,
lv_expected TYPE i,
ls_object LIKE LINE OF rt_objects,
lv_uindex TYPE sy-index.
lv_data = iv_data.
* header
IF NOT xstrlen( lv_data ) > 4 OR lv_data(4) <> c_pack_start.
zcx_abapgit_exception=>raise( |Unexpected pack header| ).
ENDIF.
lv_data = lv_data+4.
* version
IF lv_data(4) <> c_version.
zcx_abapgit_exception=>raise( |Version not supported| ).
ENDIF.
lv_data = lv_data+4.
* number of objects
lv_xstring = lv_data(4).
lv_objects = zcl_abapgit_convert=>xstring_to_int( lv_xstring ).
lv_data = lv_data+4.
DO lv_objects TIMES.
lv_uindex = sy-index.
lv_x = lv_data(1).
lv_type = get_type( lv_x ).
get_length( IMPORTING ev_length = lv_expected
CHANGING cv_data = lv_data ).
IF lv_type = zif_abapgit_git_definitions=>c_type-ref_d.
lv_ref_delta = lv_data(20).
lv_data = lv_data+20.
ENDIF.
* strip header, ''789C'', CMF + FLG
lv_zlib = lv_data(2).
IF lv_zlib <> c_zlib AND lv_zlib <> c_zlib_hmm.
zcx_abapgit_exception=>raise( |Unexpected zlib header| ).
ENDIF.
lv_data = lv_data+2.
*******************************
IF lv_zlib = c_zlib.
cl_abap_gzip=>decompress_binary(
EXPORTING
gzip_in = lv_data
IMPORTING
raw_out = lv_decompressed
raw_out_len = lv_decompress_len ).
IF lv_expected <> lv_decompress_len.
zcx_abapgit_exception=>raise( |Decompression failed| ).
ENDIF.
cl_abap_gzip=>compress_binary(
EXPORTING
raw_in = lv_decompressed
IMPORTING
gzip_out = lv_compressed
gzip_out_len = lv_compressed_len ).
IF xstrlen( lv_data ) <= lv_compressed_len OR
lv_compressed(lv_compressed_len) <> lv_data(lv_compressed_len).
"Lets try with zlib before error in out for good
"This fixes issues with TFS 2017 and visualstudio.com Git repos
zlib_decompress( CHANGING cv_data = lv_data
cv_decompressed = lv_decompressed ).
ELSE.
lv_data = lv_data+lv_compressed_len.
ENDIF.
ELSEIF lv_zlib = c_zlib_hmm.
* cl_abap_gzip compression works for header ''789C'', but does not work for
* ''7801'', call custom implementation of DEFLATE algorithm.
* The custom implementation could handle both, but most likely the kernel
* implementation runs faster than the custom ABAP.
zlib_decompress( CHANGING cv_data = lv_data
cv_decompressed = lv_decompressed ).
ENDIF.
CLEAR ls_object.
ls_object-adler32 = lv_data(4).
lv_data = lv_data+4. " skip adler checksum
IF lv_type = zif_abapgit_git_definitions=>c_type-ref_d.
ls_object-sha1 = lv_ref_delta.
TRANSLATE ls_object-sha1 TO LOWER CASE.
ELSE.
ls_object-sha1 = zcl_abapgit_hash=>sha1(
iv_type = lv_type
iv_data = lv_decompressed ).
ENDIF.
ls_object-type = lv_type.
ls_object-data = lv_decompressed.
ls_object-index = lv_uindex.
APPEND ls_object TO rt_objects.
ENDDO.
* check SHA1 at end of pack
lv_len = xstrlen( iv_data ) - 20.
lv_xstring = iv_data(lv_len).
lv_sha1 = zcl_abapgit_hash=>sha1_raw( lv_xstring ).
IF to_upper( lv_sha1 ) <> lv_data.
zcx_abapgit_exception=>raise( |SHA1 at end of pack doesn''t match| ).
ENDIF.
decode_deltas( CHANGING ct_objects = rt_objects ).
ENDMETHOD.
METHOD decode_commit.
DATA: lv_string TYPE string,
lv_word TYPE string,
lv_offset TYPE i,
lv_length TYPE i,
lv_length_gpgsig TYPE i,
lv_trash TYPE string ##NEEDED,
lt_string TYPE TABLE OF string.
FIELD-SYMBOLS: <lv_string> LIKE LINE OF lt_string.
lv_string = zcl_abapgit_convert=>xstring_to_string_utf8( iv_data ).
SPLIT lv_string AT cl_abap_char_utilities=>newline INTO TABLE lt_string.
LOOP AT lt_string ASSIGNING <lv_string>.
lv_length = strlen( <lv_string> ) + 1.
lv_string = lv_string+lv_length.
SPLIT <lv_string> AT space INTO lv_word lv_trash.
CASE lv_word.
WHEN ''tree''.
rs_commit-tree = <lv_string>+5.
WHEN ''parent''.
IF rs_commit-parent IS INITIAL.
rs_commit-parent = <lv_string>+7.
ELSE.
rs_commit-parent2 = <lv_string>+7.
ENDIF.
WHEN ''author''.
rs_commit-author = <lv_string>+7.
WHEN ''committer''.
rs_commit-committer = <lv_string>+10.
EXIT. " current loop
WHEN OTHERS.
ASSERT 1 = 0.
ENDCASE.
ENDLOOP.
lv_length = strlen( lv_string ).
IF lv_length >= 6 AND lv_string+0(6) = ''gpgsig''.
FIND REGEX |-----END PGP SIGNATURE-----[[:space:]]+|
IN lv_string
MATCH OFFSET lv_offset
MATCH LENGTH lv_length.
lv_length = lv_length - 1.
lv_length_gpgsig = lv_offset + lv_length - 7.
lv_length = lv_offset + lv_length.
rs_commit-gpgsig = lv_string+7(lv_length_gpgsig).
lv_string = lv_string+lv_length.
ENDIF.
rs_commit-body = lv_string+1.
IF rs_commit-author IS INITIAL
OR rs_commit-committer IS INITIAL
OR rs_commit-tree IS INITIAL.
zcx_abapgit_exception=>raise( |multiple parents? not supported| ).
ENDIF.
ENDMETHOD.
METHOD decode_deltas.
DATA: ls_object LIKE LINE OF ct_objects,
li_progress TYPE REF TO zif_abapgit_progress,
lt_deltas LIKE ct_objects.
LOOP AT ct_objects INTO ls_object
USING KEY type
WHERE type = zif_abapgit_git_definitions=>c_type-ref_d.
INSERT ls_object INTO TABLE lt_deltas.
ENDLOOP.
DELETE ct_objects
USING KEY type
WHERE type = zif_abapgit_git_definitions=>c_type-ref_d.
"Restore correct Delta Order
SORT lt_deltas BY index.
li_progress = zcl_abapgit_progress=>get_instance( lines( lt_deltas ) ).
LOOP AT lt_deltas INTO ls_object.
li_progress->show( iv_current = sy-tabix
iv_text = ''Decode deltas'' ).
delta( EXPORTING is_object = ls_object
CHANGING ct_objects = ct_objects ).
ENDLOOP.
ENDMETHOD.
METHOD decode_tag.
DATA: lv_string TYPE string,
lv_word TYPE string,
lv_trash TYPE string ##NEEDED,
lt_string TYPE TABLE OF string.
FIELD-SYMBOLS: <lv_string> LIKE LINE OF lt_string.
lv_string = zcl_abapgit_convert=>xstring_to_string_utf8( iv_data ).
SPLIT lv_string AT cl_abap_char_utilities=>newline INTO TABLE lt_string.
LOOP AT lt_string ASSIGNING <lv_string>.
SPLIT <lv_string> AT space INTO lv_word lv_trash.
CASE lv_word.
WHEN ''object''.
rs_tag-object = lv_trash.
WHEN ''type''.
rs_tag-type = lv_trash.
WHEN ''tag''.
rs_tag-tag = lv_trash.
WHEN ''tagger''.
FIND FIRST OCCURRENCE OF REGEX \`(.*)<(.*)>\`
IN lv_trash
SUBMATCHES rs_tag-tagger_name
rs_tag-tagger_email.
rs_tag-tagger_name = condense( rs_tag-tagger_name ).
WHEN ''''.
" ignore blank lines
CONTINUE.
WHEN OTHERS.
" these are the non empty line which don''t start with a key word
" the first one is the message, the rest are cumulated to the body
IF rs_tag-message IS INITIAL.
rs_tag-message = <lv_string>.
ELSE.
IF rs_tag-body IS NOT INITIAL.
rs_tag-body = rs_tag-body && cl_abap_char_utilities=>newline.
ENDIF.
rs_tag-body = rs_tag-body && <lv_string>.
ENDIF.
ENDCASE.
ENDLOOP.
ENDMETHOD.
METHOD decode_tree.
CONSTANTS: lc_sha_length TYPE i VALUE 20,
lc_null TYPE x VALUE ''00''.
DATA: lv_xstring TYPE xstring,
lv_chmod TYPE zif_abapgit_git_definitions=>ty_chmod,
lv_name TYPE string,
lv_string TYPE string,
lv_len TYPE i,
lv_offset TYPE i,
lv_cursor TYPE i,
lv_match TYPE i,
ls_node TYPE ty_node.
DO.
FIND FIRST OCCURRENCE OF lc_null IN SECTION OFFSET lv_cursor OF iv_data
IN BYTE MODE MATCH OFFSET lv_match.
IF sy-subrc <> 0.
EXIT.
ENDIF.
lv_len = lv_match - lv_cursor.
lv_xstring = iv_data+lv_cursor(lv_len).
lv_string = zcl_abapgit_convert=>xstring_to_string_utf8( lv_xstring ).
SPLIT lv_string AT space INTO lv_chmod lv_name.
CLEAR ls_node.
ls_node-chmod = lv_chmod.
IF ls_node-chmod <> zif_abapgit_git_definitions=>c_chmod-dir
AND ls_node-chmod <> zif_abapgit_git_definitions=>c_chmod-file
AND ls_node-chmod <> zif_abapgit_git_definitions=>c_chmod-symbolic_link
AND ls_node-chmod <> zif_abapgit_git_definitions=>c_chmod-executable
AND ls_node-chmod <> zif_abapgit_git_definitions=>c_chmod-submodule.
zcx_abapgit_exception=>raise( |Unknown chmod { ls_node-chmod }| ).
ENDIF.
lv_offset = lv_match + 1.
ls_node-name = lv_name.
ls_node-sha1 = iv_data+lv_offset(lc_sha_length).
TRANSLATE ls_node-sha1 TO LOWER CASE.
APPEND ls_node TO rt_nodes.
lv_cursor = lv_match + 1 + lc_sha_length.
ENDDO.
ENDMETHOD.
METHOD delta.
CONSTANTS: lc_1 TYPE x VALUE ''01'',
lc_2 TYPE x VALUE ''02'',
lc_4 TYPE x VALUE ''04'',
lc_8 TYPE x VALUE ''08'',
lc_16 TYPE x VALUE ''10'',
lc_32 TYPE x VALUE ''20'',
lc_64 TYPE x VALUE ''40'',
lc_128 TYPE x VALUE ''80''.
DATA: lv_base TYPE xstring,
lv_result TYPE xstring,
lv_offset TYPE i,
lo_stream TYPE REF TO lcl_stream,
lv_sha1 TYPE zif_abapgit_git_definitions=>ty_sha1,
ls_object LIKE LINE OF ct_objects,
lv_len TYPE i,
lv_tmp TYPE xstring,
lv_org TYPE x.
FIELD-SYMBOLS: <ls_object> LIKE LINE OF ct_objects.
CREATE OBJECT lo_stream
EXPORTING
iv_data = is_object-data.
* find base
READ TABLE ct_objects ASSIGNING <ls_object>
WITH KEY sha COMPONENTS sha1 = is_object-sha1.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Base not found, { is_object-sha1 }| ).
ELSEIF <ls_object>-type = zif_abapgit_git_definitions=>c_type-ref_d.
* sanity check
zcx_abapgit_exception=>raise( |Delta, base eq delta| ).
ENDIF.
lv_base = <ls_object>-data.
* skip the 2 headers
delta_header( lo_stream ).
delta_header( lo_stream ).
WHILE xstrlen( lo_stream->get( ) ) > 0.
lv_org = lo_stream->eat_byte( ).
IF lv_org BIT-AND lc_128 = lc_128. " MSB = 1
lv_offset = 0.
IF lv_org BIT-AND lc_1 = lc_1.
lv_offset = lo_stream->eat_byte( ).
ENDIF.
IF lv_org BIT-AND lc_2 = lc_2.
lv_offset = lv_offset + lo_stream->eat_byte( ) * 256.
ENDIF.
IF lv_org BIT-AND lc_4 = lc_4.
lv_offset = lv_offset + lo_stream->eat_byte( ) * 65536.
ENDIF.
IF lv_org BIT-AND lc_8 = lc_8.
lv_offset = lv_offset + lo_stream->eat_byte( ) * 16777216. " hmm, overflow?
ENDIF.
lv_len = 0.
IF lv_org BIT-AND lc_16 = lc_16.
lv_len = lo_stream->eat_byte( ).
ENDIF.
IF lv_org BIT-AND lc_32 = lc_32.
lv_len = lv_len + lo_stream->eat_byte( ) * 256.
ENDIF.
IF lv_org BIT-AND lc_64 = lc_64.
lv_len = lv_len + lo_stream->eat_byte( ) * 65536.
ENDIF.
IF lv_len = 0.
lv_len = 65536.
ENDIF.
CONCATENATE lv_result lv_base+lv_offset(lv_len)
INTO lv_result IN BYTE MODE.
ELSE. " lv_bitbyte(1) = ''0''
* insert from delta
lv_len = lv_org. " convert to int
lv_tmp = lo_stream->eat_bytes( lv_len ).
CONCATENATE lv_result lv_tmp INTO lv_result IN BYTE MODE.
ENDIF.
ENDWHILE.
lv_sha1 = zcl_abapgit_hash=>sha1( iv_type = <ls_object>-type
iv_data = lv_result ).
CLEAR ls_object.
ls_object-sha1 = lv_sha1.
ls_object-type = <ls_object>-type.
ls_object-data = lv_result.
ls_object-index = <ls_object>-index. "Retain sort index
APPEND ls_object TO ct_objects.
ENDMETHOD.
METHOD delta_header.
DATA: lv_bitbyte TYPE zif_abapgit_git_definitions=>ty_bitbyte,
lv_bits TYPE string,
lv_x TYPE x.
lv_bits = ''''.
DO.
lv_x = io_stream->eat_byte( ).
lv_bitbyte = zcl_abapgit_convert=>x_to_bitbyte( lv_x ).
CONCATENATE lv_bitbyte+1 lv_bits INTO lv_bits.
IF lv_bitbyte(1) = ''0''.
EXIT. " current loop
ENDIF.
ENDDO.
rv_header = zcl_abapgit_convert=>bitbyte_to_int( lv_bits ).
ENDMETHOD.
METHOD encode.
DATA: lv_sha1 TYPE x LENGTH 20,
lv_adler32 TYPE zif_abapgit_git_definitions=>ty_adler32,
lv_compressed TYPE xstring,
lv_xstring TYPE xstring,
li_progress TYPE REF TO zif_abapgit_progress,
lv_objects_total TYPE i.
FIELD-SYMBOLS: <ls_object> LIKE LINE OF it_objects.
rv_data = c_pack_start.
CONCATENATE rv_data c_version INTO rv_data IN BYTE MODE.
lv_xstring = zcl_abapgit_convert=>int_to_xstring4( lines( it_objects ) ).
CONCATENATE rv_data lv_xstring INTO rv_data IN BYTE MODE.
lv_objects_total = lines( it_objects ).
li_progress = zcl_abapgit_progress=>get_instance( lv_objects_total ).
LOOP AT it_objects ASSIGNING <ls_object>.
li_progress->show(
iv_current = sy-tabix
iv_text = |Encoding objects ( { sy-tabix } of { lv_objects_total } )| ).
lv_xstring = type_and_length(
iv_type = <ls_object>-type
iv_length = xstrlen( <ls_object>-data ) ).
CONCATENATE rv_data lv_xstring INTO rv_data IN BYTE MODE.
cl_abap_gzip=>compress_binary(
EXPORTING
raw_in = <ls_object>-data
IMPORTING
gzip_out = lv_compressed ).
CONCATENATE rv_data c_zlib lv_compressed INTO rv_data IN BYTE MODE.
IF NOT <ls_object>-adler32 IS INITIAL.
lv_adler32 = <ls_object>-adler32.
ELSE.
lv_adler32 = zcl_abapgit_hash=>adler32( <ls_object>-data ).
ENDIF.
CONCATENATE rv_data lv_adler32 INTO rv_data IN BYTE MODE.
ENDLOOP.
lv_sha1 = to_upper( zcl_abapgit_hash=>sha1_raw( rv_data ) ).
CONCATENATE rv_data lv_sha1 INTO rv_data IN BYTE MODE.
ENDMETHOD.
METHOD encode_commit.
DATA: lv_string TYPE string,
lv_tmp TYPE string,
lv_tree_lower TYPE string,
lv_parent_lower TYPE string.
lv_tree_lower = is_commit-tree.
TRANSLATE lv_tree_lower TO LOWER CASE.
lv_string = ''''.
CONCATENATE ''tree'' lv_tree_lower INTO lv_tmp SEPARATED BY space.
CONCATENATE lv_string lv_tmp cl_abap_char_utilities=>newline INTO lv_string.
IF NOT is_commit-parent IS INITIAL.
lv_parent_lower = is_commit-parent.
TRANSLATE lv_parent_lower TO LOWER CASE.
CONCATENATE ''parent'' lv_parent_lower
INTO lv_tmp SEPARATED BY space.
CONCATENATE lv_string lv_tmp cl_abap_char_utilities=>newline INTO lv_string.
ENDIF.
IF NOT is_commit-parent2 IS INITIAL.
lv_parent_lower = is_commit-parent2.
TRANSLATE lv_parent_lower TO LOWER CASE.
CONCATENATE ''parent'' lv_parent_lower
INTO lv_tmp SEPARATED BY space.
CONCATENATE lv_string lv_tmp cl_abap_char_utilities=>newline INTO lv_string.
ENDIF.
CONCATENATE ''author'' is_commit-author
INTO lv_tmp SEPARATED BY space.
CONCATENATE lv_string lv_tmp cl_abap_char_utilities=>newline INTO lv_string.
CONCATENATE ''committer'' is_commit-committer
INTO lv_tmp SEPARATED BY space.
CONCATENATE lv_string lv_tmp cl_abap_char_utilities=>newline INTO lv_string.
IF NOT is_commit-gpgsig IS INITIAL.
CONCATENATE ''gpgsig'' is_commit-gpgsig
INTO lv_tmp SEPARATED BY space.
CONCATENATE lv_string lv_tmp INTO lv_string.
ENDIF.
CONCATENATE lv_string cl_abap_char_utilities=>newline is_commit-body INTO lv_string.
rv_data = zcl_abapgit_convert=>string_to_xstring_utf8( lv_string ).
ENDMETHOD.
METHOD encode_tag.
DATA: lv_string TYPE string,
lv_time TYPE zcl_abapgit_git_time=>ty_unixtime.
lv_time = zcl_abapgit_git_time=>get_unix( ).
lv_string = |object { is_tag-object }{ cl_abap_char_utilities=>newline }|
&& |type { is_tag-type }{ cl_abap_char_utilities=>newline }|
&& |tag { zcl_abapgit_git_tag=>remove_tag_prefix( is_tag-tag ) }{ cl_abap_char_utilities=>newline }|
&& |tagger { is_tag-tagger_name } <{ is_tag-tagger_email }> { lv_time }|
&& |{ cl_abap_char_utilities=>newline }|
&& |{ cl_abap_char_utilities=>newline }|
&& |{ is_tag-message }|.
rv_data = zcl_abapgit_convert=>string_to_xstring_utf8( lv_string ).
ENDMETHOD.
METHOD encode_tree.
CONSTANTS: lc_null TYPE x VALUE ''00''.
DATA: lv_string TYPE string,
lt_nodes LIKE it_nodes,
lv_hex20 TYPE x LENGTH 20,
lv_xstring TYPE xstring.
FIELD-SYMBOLS: <ls_node> LIKE LINE OF it_nodes.
lt_nodes = sort_tree( it_nodes ).
LOOP AT lt_nodes ASSIGNING <ls_node>.
ASSERT NOT <ls_node>-chmod IS INITIAL.
ASSERT NOT <ls_node>-name IS INITIAL.
ASSERT NOT <ls_node>-sha1 IS INITIAL.
CONCATENATE <ls_node>-chmod <ls_node>-name INTO lv_string SEPARATED BY space.
lv_xstring = zcl_abapgit_convert=>string_to_xstring_utf8( lv_string ).
lv_hex20 = to_upper( <ls_node>-sha1 ).
CONCATENATE rv_data lv_xstring lc_null lv_hex20 INTO rv_data IN BYTE MODE.
ENDLOOP.
ENDMETHOD.
METHOD get_length.
* https://github.com/git/git/blob/master/Documentation/technical/pack-format.txt
* n-byte sizeN (as long as MSB is set, each 7-bit)
* size0..sizeN form 4+7+7+..+7 bit integer, size0
* is the least significant part, and sizeN is the
* most significant part.
DATA: lv_x TYPE x,
lv_length_bits TYPE string,
lv_bitbyte TYPE zif_abapgit_git_definitions=>ty_bitbyte.
lv_x = cv_data(1).
lv_bitbyte = zcl_abapgit_convert=>x_to_bitbyte( lv_x ).
cv_data = cv_data+1.
lv_length_bits = lv_bitbyte+4.
WHILE lv_bitbyte(1) <> ''0''.
lv_x = cv_data(1).
lv_bitbyte = zcl_abapgit_convert=>x_to_bitbyte( lv_x ).
cv_data = cv_data+1.
CONCATENATE lv_bitbyte+1 lv_length_bits INTO lv_length_bits.
ENDWHILE.
ev_length = zcl_abapgit_convert=>bitbyte_to_int( lv_length_bits ).
ENDMETHOD.
METHOD get_type.
CONSTANTS: lc_mask TYPE x VALUE 112.
DATA: lv_xtype TYPE x.
lv_xtype = iv_x BIT-AND lc_mask.
CASE lv_xtype.
WHEN 16.
rv_type = zif_abapgit_git_definitions=>c_type-commit.
WHEN 32.
rv_type = zif_abapgit_git_definitions=>c_type-tree.
WHEN 48.
rv_type = zif_abapgit_git_definitions=>c_type-blob.
WHEN 64.
rv_type = zif_abapgit_git_definitions=>c_type-tag.
WHEN 112.
rv_type = zif_abapgit_git_definitions=>c_type-ref_d.
WHEN OTHERS.
zcx_abapgit_exception=>raise( |Todo, unknown git pack type| ).
ENDCASE.
ENDMETHOD.
METHOD sort_tree.
TYPES: BEGIN OF ty_sort,
sort TYPE string,
node TYPE ty_node,
END OF ty_sort.
DATA: lt_sort TYPE STANDARD TABLE OF ty_sort WITH DEFAULT KEY.
FIELD-SYMBOLS: <ls_sort> LIKE LINE OF lt_sort,
<ls_node> LIKE LINE OF it_nodes.
LOOP AT it_nodes ASSIGNING <ls_node>.
APPEND INITIAL LINE TO lt_sort ASSIGNING <ls_sort>.
IF <ls_node>-chmod = zif_abapgit_git_definitions=>c_chmod-dir.
CONCATENATE <ls_node>-name ''/'' INTO <ls_sort>-sort.
ELSE.
<ls_sort>-sort = <ls_node>-name.
ENDIF.
<ls_sort>-node = <ls_node>.
ENDLOOP.
* following has to be done, or unpack will fail on server side
SORT lt_sort BY sort ASCENDING.
LOOP AT lt_sort ASSIGNING <ls_sort>.
APPEND <ls_sort>-node TO rt_nodes.
ENDLOOP.
ENDMETHOD.
METHOD type_and_length.
* see http://stefan.saasen.me/articles/git-clone-in-haskell-from-the-bottom-up/#pack_file_objects
DATA: lv_type TYPE i,
lv_length TYPE i,
lv_hex TYPE x LENGTH 1.
CASE iv_type.
WHEN zif_abapgit_git_definitions=>c_type-commit.
lv_type = 16.
WHEN zif_abapgit_git_definitions=>c_type-tree.
lv_type = 32.
WHEN zif_abapgit_git_definitions=>c_type-blob.
lv_type = 48.
WHEN zif_abapgit_git_definitions=>c_type-tag.
lv_type = 64.
WHEN zif_abapgit_git_definitions=>c_type-ref_d.
lv_type = 112.
WHEN OTHERS.
zcx_abapgit_exception=>raise( |Unexpected object type while encoding pack| ).
ENDCASE.
lv_length = iv_length.
* first byte
IF lv_length > 15.
lv_hex = 128.
ENDIF.
lv_hex = lv_hex + lv_type + lv_length MOD 16.
rv_xstring = lv_hex.
lv_length = lv_length DIV 16.
* subsequent bytes
WHILE lv_length >= 128.
lv_hex = 128 + lv_length MOD 128.
CONCATENATE rv_xstring lv_hex INTO rv_xstring IN BYTE MODE.
lv_length = lv_length DIV 128.
ENDWHILE.
* last byte
IF lv_length > 0.
lv_hex = lv_length.
CONCATENATE rv_xstring lv_hex INTO rv_xstring IN BYTE MODE.
ENDIF.
ENDMETHOD.
METHOD zlib_decompress.
DATA: ls_data TYPE zcl_abapgit_zlib=>ty_decompress,
lv_compressed_len TYPE i,
lv_adler32 TYPE zif_abapgit_git_definitions=>ty_adler32.
ls_data = zcl_abapgit_zlib=>decompress( cv_data ).
lv_compressed_len = ls_data-compressed_len.
cv_decompressed = ls_data-raw.
IF lv_compressed_len IS INITIAL.
zcx_abapgit_exception=>raise( |Decompression failed :o/| ).
ENDIF.
cv_data = cv_data+lv_compressed_len.
lv_adler32 = zcl_abapgit_hash=>adler32( cv_decompressed ).
IF cv_data(4) <> lv_adler32.
cv_data = cv_data+1.
ENDIF.
IF cv_data(4) <> lv_adler32.
cv_data = cv_data+1.
ENDIF.
IF cv_data(4) <> lv_adler32.
zcx_abapgit_exception=>raise( |Wrong Adler checksum| ).
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GIT_PORCELAIN ', 'CLASS zcl_abapgit_git_porcelain DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
TYPES:
BEGIN OF ty_pull_result,
files TYPE zif_abapgit_git_definitions=>ty_files_tt,
objects TYPE zif_abapgit_definitions=>ty_objects_tt,
commit TYPE zif_abapgit_git_definitions=>ty_sha1,
END OF ty_pull_result .
TYPES:
BEGIN OF ty_push_result,
new_files TYPE zif_abapgit_git_definitions=>ty_files_tt,
branch TYPE zif_abapgit_git_definitions=>ty_sha1,
updated_files TYPE zif_abapgit_git_definitions=>ty_file_signatures_tt,
new_objects TYPE zif_abapgit_definitions=>ty_objects_tt,
END OF ty_push_result .
CLASS-METHODS pull_by_branch
IMPORTING
!iv_url TYPE string
!iv_branch_name TYPE string
!iv_deepen_level TYPE i DEFAULT 1
RETURNING
VALUE(rs_result) TYPE ty_pull_result
RAISING
zcx_abapgit_exception .
CLASS-METHODS pull_by_commit
IMPORTING
!iv_url TYPE string
!iv_commit_hash TYPE zif_abapgit_git_definitions=>ty_sha1
!iv_deepen_level TYPE i DEFAULT 1
RETURNING
VALUE(rs_result) TYPE ty_pull_result
RAISING
zcx_abapgit_exception .
CLASS-METHODS push
IMPORTING
!is_comment TYPE zif_abapgit_git_definitions=>ty_comment
!io_stage TYPE REF TO zcl_abapgit_stage
!it_old_objects TYPE zif_abapgit_definitions=>ty_objects_tt
!iv_parent TYPE zif_abapgit_git_definitions=>ty_sha1
!iv_url TYPE string
!iv_branch_name TYPE string
RETURNING
VALUE(rs_result) TYPE ty_push_result
RAISING
zcx_abapgit_exception .
CLASS-METHODS create_branch
IMPORTING
!iv_url TYPE string
!iv_name TYPE string
!iv_from TYPE zif_abapgit_git_definitions=>ty_sha1
RAISING
zcx_abapgit_exception .
CLASS-METHODS create_tag
IMPORTING
!iv_url TYPE string
!is_tag TYPE zif_abapgit_git_definitions=>ty_git_tag
RAISING
zcx_abapgit_exception .
CLASS-METHODS delete_branch
IMPORTING
!iv_url TYPE string
!is_branch TYPE zif_abapgit_git_definitions=>ty_git_branch
RAISING
zcx_abapgit_exception .
CLASS-METHODS delete_tag
IMPORTING
!iv_url TYPE string
!is_tag TYPE zif_abapgit_git_definitions=>ty_git_tag
RAISING
zcx_abapgit_exception .
CLASS-METHODS full_tree
IMPORTING
!it_objects TYPE zif_abapgit_definitions=>ty_objects_tt
!iv_parent TYPE zif_abapgit_git_definitions=>ty_sha1
RETURNING
VALUE(rt_expanded) TYPE zif_abapgit_git_definitions=>ty_expanded_tt
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
PRIVATE SECTION.
TYPES:
BEGIN OF ty_tree,
path TYPE string,
data TYPE xstring,
sha1 TYPE zif_abapgit_git_definitions=>ty_sha1,
END OF ty_tree .
TYPES:
ty_trees_tt TYPE STANDARD TABLE OF ty_tree WITH DEFAULT KEY .
TYPES:
BEGIN OF ty_folder,
path TYPE string,
count TYPE i,
sha1 TYPE zif_abapgit_git_definitions=>ty_sha1,
END OF ty_folder .
TYPES:
ty_folders_tt TYPE STANDARD TABLE OF ty_folder WITH DEFAULT KEY .
CONSTANTS c_zero TYPE zif_abapgit_git_definitions=>ty_sha1
VALUE ''0000000000000000000000000000000000000000'' ##NO_TEXT.
CLASS-METHODS build_trees
IMPORTING
!it_expanded TYPE zif_abapgit_git_definitions=>ty_expanded_tt
RETURNING
VALUE(rt_trees) TYPE ty_trees_tt
RAISING
zcx_abapgit_exception .
CLASS-METHODS find_folders
IMPORTING
!it_expanded TYPE zif_abapgit_git_definitions=>ty_expanded_tt
RETURNING
VALUE(rt_folders) TYPE ty_folders_tt .
CLASS-METHODS pull
IMPORTING
!iv_commit TYPE zif_abapgit_git_definitions=>ty_sha1
!it_objects TYPE zif_abapgit_definitions=>ty_objects_tt
RETURNING
VALUE(rt_files) TYPE zif_abapgit_git_definitions=>ty_files_tt
RAISING
zcx_abapgit_exception.
CLASS-METHODS walk
IMPORTING
!it_objects TYPE zif_abapgit_definitions=>ty_objects_tt
!iv_sha1 TYPE zif_abapgit_git_definitions=>ty_sha1
!iv_path TYPE string
CHANGING
!ct_files TYPE zif_abapgit_git_definitions=>ty_files_tt
RAISING
zcx_abapgit_exception .
CLASS-METHODS walk_tree
IMPORTING
!it_objects TYPE zif_abapgit_definitions=>ty_objects_tt
!iv_tree TYPE zif_abapgit_git_definitions=>ty_sha1
!iv_base TYPE string
RETURNING
VALUE(rt_expanded) TYPE zif_abapgit_git_definitions=>ty_expanded_tt
RAISING
zcx_abapgit_exception .
CLASS-METHODS receive_pack_push
IMPORTING
!is_comment TYPE zif_abapgit_git_definitions=>ty_comment
!it_trees TYPE ty_trees_tt
!it_blobs TYPE zif_abapgit_git_definitions=>ty_files_tt
!iv_parent TYPE zif_abapgit_git_definitions=>ty_sha1
!iv_parent2 TYPE zif_abapgit_git_definitions=>ty_sha1 OPTIONAL
!iv_url TYPE string
!iv_branch_name TYPE string
EXPORTING
!ev_new_commit TYPE zif_abapgit_git_definitions=>ty_sha1
!et_new_objects TYPE zif_abapgit_definitions=>ty_objects_tt
!ev_new_tree TYPE zif_abapgit_git_definitions=>ty_sha1
RAISING
zcx_abapgit_exception .
CLASS-METHODS create_annotated_tag
IMPORTING
!is_tag TYPE zif_abapgit_git_definitions=>ty_git_tag
!iv_url TYPE string
RAISING
zcx_abapgit_exception .
CLASS-METHODS create_lightweight_tag
IMPORTING
is_tag TYPE zif_abapgit_git_definitions=>ty_git_tag
iv_url TYPE string
RAISING
zcx_abapgit_exception .
CLASS-METHODS delete_annotated_tag
IMPORTING
!iv_url TYPE string
!is_tag TYPE zif_abapgit_git_definitions=>ty_git_tag
RAISING
zcx_abapgit_exception .
CLASS-METHODS delete_lightweight_tag
IMPORTING
!iv_url TYPE string
!is_tag TYPE zif_abapgit_git_definitions=>ty_git_tag
RAISING
zcx_abapgit_exception .
CLASS-METHODS empty_packfile
RETURNING
VALUE(rv_pack) TYPE xstring
RAISING
zcx_abapgit_exception .
ENDCLASS.
CLASS zcl_abapgit_git_porcelain IMPLEMENTATION.
METHOD build_trees.
DATA: lt_nodes TYPE zcl_abapgit_git_pack=>ty_nodes_tt,
ls_tree LIKE LINE OF rt_trees,
lv_len TYPE i,
lt_folders TYPE ty_folders_tt.
FIELD-SYMBOLS: <ls_folder> LIKE LINE OF lt_folders,
<ls_node> LIKE LINE OF lt_nodes,
<ls_sub> LIKE LINE OF lt_folders,
<ls_exp> LIKE LINE OF it_expanded.
lt_folders = find_folders( it_expanded ).
* start with the deepest folders
SORT lt_folders BY count DESCENDING.
LOOP AT lt_folders ASSIGNING <ls_folder>.
CLEAR lt_nodes.
* files
LOOP AT it_expanded ASSIGNING <ls_exp> USING KEY path_name WHERE path = <ls_folder>-path.
APPEND INITIAL LINE TO lt_nodes ASSIGNING <ls_node>.
<ls_node>-chmod = <ls_exp>-chmod.
<ls_node>-name = <ls_exp>-name.
<ls_node>-sha1 = <ls_exp>-sha1.
ENDLOOP.
* folders
LOOP AT lt_folders ASSIGNING <ls_sub> WHERE count = <ls_folder>-count + 1.
lv_len = strlen( <ls_folder>-path ).
IF strlen( <ls_sub>-path ) > lv_len AND <ls_sub>-path(lv_len) = <ls_folder>-path.
APPEND INITIAL LINE TO lt_nodes ASSIGNING <ls_node>.
<ls_node>-chmod = zif_abapgit_git_definitions=>c_chmod-dir.
* extract folder name, this can probably be done easier using regular expressions
<ls_node>-name = <ls_sub>-path+lv_len.
lv_len = strlen( <ls_node>-name ) - 1.
<ls_node>-name = <ls_node>-name(lv_len).
<ls_node>-sha1 = <ls_sub>-sha1.
ENDIF.
ENDLOOP.
CLEAR ls_tree.
ls_tree-path = <ls_folder>-path.
ls_tree-data = zcl_abapgit_git_pack=>encode_tree( lt_nodes ).
ls_tree-sha1 = zcl_abapgit_hash=>sha1_tree( ls_tree-data ).
APPEND ls_tree TO rt_trees.
<ls_folder>-sha1 = ls_tree-sha1.
ENDLOOP.
ENDMETHOD.
METHOD create_annotated_tag.
DATA: lv_tag TYPE xstring,
lt_objects TYPE zif_abapgit_definitions=>ty_objects_tt,
lv_pack TYPE xstring,
ls_object LIKE LINE OF lt_objects,
ls_tag TYPE zcl_abapgit_git_pack=>ty_tag,
lv_new_tag_sha1 TYPE zif_abapgit_git_definitions=>ty_sha1.
* new tag
ls_tag-object = is_tag-sha1.
ls_tag-type = zif_abapgit_git_definitions=>c_type-commit.
ls_tag-tag = is_tag-name.
ls_tag-tagger_name = is_tag-tagger_name.
ls_tag-tagger_email = is_tag-tagger_email.
ls_tag-message = is_tag-message
&& |{ cl_abap_char_utilities=>newline }|
&& |{ cl_abap_char_utilities=>newline }|
&& is_tag-body.
lv_tag = zcl_abapgit_git_pack=>encode_tag( ls_tag ).
lv_new_tag_sha1 = zcl_abapgit_hash=>sha1_tag( lv_tag ).
ls_object-sha1 = lv_new_tag_sha1.
ls_object-type = zif_abapgit_git_definitions=>c_type-tag.
ls_object-data = lv_tag.
ls_object-index = 1.
APPEND ls_object TO lt_objects.
lv_pack = zcl_abapgit_git_pack=>encode( lt_objects ).
zcl_abapgit_git_transport=>receive_pack(
iv_url = iv_url
iv_old = c_zero
iv_new = lv_new_tag_sha1
iv_branch_name = is_tag-name
iv_pack = lv_pack ).
ENDMETHOD.
METHOD create_branch.
IF iv_name CS \` \`.
zcx_abapgit_exception=>raise( ''Branch name cannot contain blank spaces'' ).
ENDIF.
zcl_abapgit_git_transport=>receive_pack(
iv_url = iv_url
iv_old = c_zero
iv_new = iv_from
iv_branch_name = iv_name
iv_pack = empty_packfile( ) ).
ENDMETHOD.
METHOD create_lightweight_tag.
zcl_abapgit_git_transport=>receive_pack(
iv_url = iv_url
iv_old = c_zero
iv_new = is_tag-sha1
iv_branch_name = is_tag-name
iv_pack = empty_packfile( ) ).
ENDMETHOD.
METHOD create_tag.
IF is_tag-name CS \` \`.
zcx_abapgit_exception=>raise( ''Tag name cannot contain blank spaces'' ).
ENDIF.
CASE is_tag-type.
WHEN zif_abapgit_git_definitions=>c_git_branch_type-annotated_tag.
create_annotated_tag(
is_tag = is_tag
iv_url = iv_url ).
WHEN zif_abapgit_git_definitions=>c_git_branch_type-lightweight_tag.
create_lightweight_tag(
is_tag = is_tag
iv_url = iv_url ).
WHEN OTHERS.
zcx_abapgit_exception=>raise( |Invalid tag type: { is_tag-type }| ).
ENDCASE.
ENDMETHOD.
METHOD delete_annotated_tag.
DATA:
lo_branches TYPE REF TO zcl_abapgit_git_branch_list,
lv_tag TYPE string,
ls_tag TYPE zif_abapgit_git_definitions=>ty_git_branch,
lt_tags TYPE zif_abapgit_git_definitions=>ty_git_branch_list_tt.
" For annotated tags, find the correct commit
lo_branches = zcl_abapgit_git_factory=>get_git_transport( )->branches( iv_url ).
lt_tags = lo_branches->get_tags_only( ).
lv_tag = zcl_abapgit_git_tag=>remove_peel( is_tag-name ).
READ TABLE lt_tags INTO ls_tag WITH KEY name_key COMPONENTS name = lv_tag.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Annotated tag { lv_tag } not found| ).
ENDIF.
zcl_abapgit_git_transport=>receive_pack(
iv_url = iv_url
iv_old = ls_tag-sha1
iv_new = c_zero
iv_branch_name = ls_tag-name ).
ENDMETHOD.
METHOD delete_branch.
zcl_abapgit_git_transport=>receive_pack(
iv_url = iv_url
iv_old = is_branch-sha1
iv_new = c_zero
iv_branch_name = is_branch-name ).
ENDMETHOD.
METHOD delete_lightweight_tag.
zcl_abapgit_git_transport=>receive_pack(
iv_url = iv_url
iv_old = is_tag-sha1
iv_new = c_zero
iv_branch_name = is_tag-name ).
ENDMETHOD.
METHOD delete_tag.
IF is_tag-name CS zif_abapgit_git_definitions=>c_git_branch-peel.
delete_annotated_tag(
is_tag = is_tag
iv_url = iv_url ).
ELSE.
delete_lightweight_tag(
is_tag = is_tag
iv_url = iv_url ).
ENDIF.
ENDMETHOD.
METHOD empty_packfile.
" For avoiding "client MUST send an empty packfile" error
" https://github.com/git/git/blob/master/Documentation/gitprotocol-pack.txt#L595-L599
DATA lt_objects TYPE zif_abapgit_definitions=>ty_objects_tt.
rv_pack = zcl_abapgit_git_pack=>encode( lt_objects ).
ENDMETHOD.
METHOD find_folders.
DATA: lt_paths TYPE TABLE OF string,
lv_split TYPE string,
lv_path TYPE string.
FIELD-SYMBOLS: <ls_folder> LIKE LINE OF rt_folders,
<ls_new> LIKE LINE OF rt_folders,
<ls_exp> LIKE LINE OF it_expanded.
LOOP AT it_expanded ASSIGNING <ls_exp>.
READ TABLE rt_folders WITH KEY path = <ls_exp>-path TRANSPORTING NO FIELDS.
IF sy-subrc <> 0.
APPEND INITIAL LINE TO rt_folders ASSIGNING <ls_folder>.
<ls_folder>-path = <ls_exp>-path.
ENDIF.
ENDLOOP.
* add empty folders
LOOP AT rt_folders ASSIGNING <ls_folder>.
SPLIT <ls_folder>-path AT ''/'' INTO TABLE lt_paths.
CLEAR lv_path.
LOOP AT lt_paths INTO lv_split.
CONCATENATE lv_path lv_split ''/'' INTO lv_path.
READ TABLE rt_folders WITH KEY path = lv_path TRANSPORTING NO FIELDS.
IF sy-subrc <> 0.
APPEND INITIAL LINE TO rt_folders ASSIGNING <ls_new>.
<ls_new>-path = lv_path.
ENDIF.
ENDLOOP.
ENDLOOP.
LOOP AT rt_folders ASSIGNING <ls_folder>.
FIND ALL OCCURRENCES OF ''/'' IN <ls_folder>-path MATCH COUNT <ls_folder>-count.
ENDLOOP.
ENDMETHOD.
METHOD full_tree.
DATA: ls_object LIKE LINE OF it_objects,
ls_commit TYPE zcl_abapgit_git_pack=>ty_commit.
READ TABLE it_objects INTO ls_object
WITH KEY type COMPONENTS
type = zif_abapgit_git_definitions=>c_type-commit
sha1 = iv_parent.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''commit not found'' ).
ENDIF.
ls_commit = zcl_abapgit_git_pack=>decode_commit( ls_object-data ).
rt_expanded = walk_tree( it_objects = it_objects
iv_tree = ls_commit-tree
iv_base = ''/'' ).
ENDMETHOD.
METHOD pull.
DATA: ls_object TYPE zif_abapgit_definitions=>ty_object,
ls_commit TYPE zcl_abapgit_git_pack=>ty_commit.
READ TABLE it_objects INTO ls_object
WITH KEY type COMPONENTS
type = zif_abapgit_git_definitions=>c_type-commit
sha1 = iv_commit.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''Commit/Branch not found.'' ).
ENDIF.
ls_commit = zcl_abapgit_git_pack=>decode_commit( ls_object-data ).
walk( EXPORTING it_objects = it_objects
iv_sha1 = ls_commit-tree
iv_path = ''/''
CHANGING ct_files = rt_files ).
ENDMETHOD.
METHOD pull_by_branch.
zcl_abapgit_git_transport=>upload_pack_by_branch(
EXPORTING
iv_url = iv_url
iv_branch_name = iv_branch_name
iv_deepen_level = iv_deepen_level
IMPORTING
et_objects = rs_result-objects
ev_branch = rs_result-commit ).
rs_result-files = pull( iv_commit = rs_result-commit
it_objects = rs_result-objects ).
ENDMETHOD.
METHOD pull_by_commit.
zcl_abapgit_git_transport=>upload_pack_by_commit(
EXPORTING
iv_url = iv_url
iv_hash = iv_commit_hash
iv_deepen_level = iv_deepen_level
IMPORTING
et_objects = rs_result-objects
ev_commit = rs_result-commit ).
rs_result-files = pull( iv_commit = rs_result-commit
it_objects = rs_result-objects ).
ENDMETHOD.
METHOD push.
DATA: lt_expanded TYPE zif_abapgit_git_definitions=>ty_expanded_tt,
lt_blobs TYPE zif_abapgit_git_definitions=>ty_files_tt,
lv_sha1 TYPE zif_abapgit_git_definitions=>ty_sha1,
lv_new_tree TYPE zif_abapgit_git_definitions=>ty_sha1,
lt_trees TYPE ty_trees_tt,
lt_stage TYPE zif_abapgit_definitions=>ty_stage_tt.
FIELD-SYMBOLS: <ls_stage> LIKE LINE OF lt_stage,
<ls_updated> LIKE LINE OF rs_result-updated_files,
<ls_exp> LIKE LINE OF lt_expanded.
lt_expanded = full_tree( it_objects = it_old_objects
iv_parent = iv_parent ).
lt_stage = io_stage->get_all( ).
LOOP AT lt_stage ASSIGNING <ls_stage>.
" Save file ref to updated files table
APPEND INITIAL LINE TO rs_result-updated_files ASSIGNING <ls_updated>.
MOVE-CORRESPONDING <ls_stage>-file TO <ls_updated>.
CASE <ls_stage>-method.
WHEN zif_abapgit_definitions=>c_method-add.
APPEND <ls_stage>-file TO lt_blobs.
READ TABLE lt_expanded ASSIGNING <ls_exp> WITH TABLE KEY path_name COMPONENTS
name = <ls_stage>-file-filename
path = <ls_stage>-file-path.
IF sy-subrc <> 0. " new files
APPEND INITIAL LINE TO lt_expanded ASSIGNING <ls_exp>.
<ls_exp>-name = <ls_stage>-file-filename.
<ls_exp>-path = <ls_stage>-file-path.
<ls_exp>-chmod = zif_abapgit_git_definitions=>c_chmod-file.
ENDIF.
lv_sha1 = zcl_abapgit_hash=>sha1_blob( <ls_stage>-file-data ).
IF <ls_exp>-sha1 <> lv_sha1.
<ls_exp>-sha1 = lv_sha1.
ENDIF.
<ls_updated>-sha1 = lv_sha1. "New sha1
WHEN zif_abapgit_definitions=>c_method-rm.
READ TABLE lt_expanded ASSIGNING <ls_exp> WITH TABLE KEY path_name COMPONENTS
name = <ls_stage>-file-filename
path = <ls_stage>-file-path.
ASSERT sy-subrc = 0.
CLEAR <ls_exp>-sha1. " Mark as deleted
CLEAR <ls_updated>-sha1. " Mark as deleted
WHEN OTHERS.
zcx_abapgit_exception=>raise( ''stage method not supported, todo'' ).
ENDCASE.
ENDLOOP.
DELETE lt_expanded WHERE sha1 IS INITIAL.
lt_trees = build_trees( lt_expanded ).
receive_pack_push(
EXPORTING
is_comment = is_comment
it_trees = lt_trees
iv_branch_name = iv_branch_name
iv_url = iv_url
iv_parent = iv_parent
iv_parent2 = io_stage->get_merge_source( )
it_blobs = lt_blobs
IMPORTING
ev_new_commit = rs_result-branch
et_new_objects = rs_result-new_objects
ev_new_tree = lv_new_tree ).
APPEND LINES OF it_old_objects TO rs_result-new_objects.
walk( EXPORTING it_objects = rs_result-new_objects
iv_sha1 = lv_new_tree
iv_path = ''/''
CHANGING ct_files = rs_result-new_files ).
ENDMETHOD.
METHOD receive_pack_push.
DATA: lv_time TYPE zcl_abapgit_git_time=>ty_unixtime,
lv_commit TYPE xstring,
lv_pack TYPE xstring,
ls_object LIKE LINE OF et_new_objects,
ls_commit TYPE zcl_abapgit_git_pack=>ty_commit,
lv_uindex TYPE sy-index.
FIELD-SYMBOLS: <ls_tree> LIKE LINE OF it_trees,
<ls_blob> LIKE LINE OF it_blobs.
lv_time = zcl_abapgit_git_time=>get_unix( ).
READ TABLE it_trees ASSIGNING <ls_tree> WITH KEY path = ''/''.
ASSERT sy-subrc = 0.
* new commit
ls_commit-committer = |{ is_comment-committer-name
} <{ is_comment-committer-email }> { lv_time }|.
IF is_comment-author-name IS NOT INITIAL.
ls_commit-author = |{ is_comment-author-name
} <{ is_comment-author-email }> { lv_time }|.
ELSE.
ls_commit-author = ls_commit-committer.
ENDIF.
ls_commit-tree = <ls_tree>-sha1.
ls_commit-parent = iv_parent.
ls_commit-parent2 = iv_parent2.
ls_commit-body = is_comment-comment.
lv_commit = zcl_abapgit_git_pack=>encode_commit( ls_commit ).
ls_object-sha1 = zcl_abapgit_hash=>sha1_commit( lv_commit ).
ls_object-type = zif_abapgit_git_definitions=>c_type-commit.
ls_object-data = lv_commit.
APPEND ls_object TO et_new_objects.
LOOP AT it_trees ASSIGNING <ls_tree>.
CLEAR ls_object.
ls_object-sha1 = <ls_tree>-sha1.
READ TABLE et_new_objects
WITH KEY type COMPONENTS
type = zif_abapgit_git_definitions=>c_type-tree
sha1 = ls_object-sha1
TRANSPORTING NO FIELDS.
IF sy-subrc = 0.
* two identical trees added at the same time, only add one to the pack
CONTINUE.
ENDIF.
ls_object-type = zif_abapgit_git_definitions=>c_type-tree.
ls_object-data = <ls_tree>-data.
lv_uindex = lv_uindex + 1.
ls_object-index = lv_uindex.
APPEND ls_object TO et_new_objects.
ENDLOOP.
LOOP AT it_blobs ASSIGNING <ls_blob>.
CLEAR ls_object.
ls_object-sha1 = zcl_abapgit_hash=>sha1_blob( <ls_blob>-data ).
READ TABLE et_new_objects
WITH KEY type COMPONENTS
type = zif_abapgit_git_definitions=>c_type-blob
sha1 = ls_object-sha1
TRANSPORTING NO FIELDS.
IF sy-subrc = 0.
* two identical files added at the same time, only add one blob to the pack
CONTINUE.
ENDIF.
ls_object-type = zif_abapgit_git_definitions=>c_type-blob.
* note <ls_blob>-data can be empty, #1857 allow empty files - some more checks needed?
ls_object-data = <ls_blob>-data.
lv_uindex = lv_uindex + 1.
ls_object-index = lv_uindex.
APPEND ls_object TO et_new_objects.
ENDLOOP.
lv_pack = zcl_abapgit_git_pack=>encode( et_new_objects ).
ev_new_commit = zcl_abapgit_hash=>sha1_commit( lv_commit ).
zcl_abapgit_git_transport=>receive_pack(
iv_url = iv_url
iv_old = iv_parent
iv_new = ev_new_commit
iv_branch_name = iv_branch_name
iv_pack = lv_pack ).
ev_new_tree = ls_commit-tree.
ENDMETHOD.
METHOD walk.
DATA: lv_path TYPE string,
ls_file LIKE LINE OF ct_files,
lt_nodes TYPE zcl_abapgit_git_pack=>ty_nodes_tt.
FIELD-SYMBOLS: <ls_tree> LIKE LINE OF it_objects,
<ls_blob> LIKE LINE OF it_objects,
<ls_node> LIKE LINE OF lt_nodes.
READ TABLE it_objects ASSIGNING <ls_tree>
WITH KEY type COMPONENTS
type = zif_abapgit_git_definitions=>c_type-tree
sha1 = iv_sha1.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''Walk, tree not found'' ).
ENDIF.
lt_nodes = zcl_abapgit_git_pack=>decode_tree( <ls_tree>-data ).
LOOP AT lt_nodes ASSIGNING <ls_node>.
IF <ls_node>-chmod = zif_abapgit_git_definitions=>c_chmod-file.
READ TABLE it_objects ASSIGNING <ls_blob>
WITH KEY type COMPONENTS
type = zif_abapgit_git_definitions=>c_type-blob
sha1 = <ls_node>-sha1.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''Walk, blob not found'' ).
ENDIF.
CLEAR ls_file.
ls_file-path = iv_path.
ls_file-filename = <ls_node>-name.
ls_file-data = <ls_blob>-data.
ls_file-sha1 = <ls_blob>-sha1.
APPEND ls_file TO ct_files.
ENDIF.
ENDLOOP.
LOOP AT lt_nodes ASSIGNING <ls_node> WHERE chmod = zif_abapgit_git_definitions=>c_chmod-dir.
CONCATENATE iv_path <ls_node>-name ''/'' INTO lv_path.
walk( EXPORTING it_objects = it_objects
iv_sha1 = <ls_node>-sha1
iv_path = lv_path
CHANGING ct_files = ct_files ).
ENDLOOP.
ENDMETHOD.
METHOD walk_tree.
DATA: ls_object LIKE LINE OF it_objects,
lt_expanded LIKE rt_expanded,
lt_nodes TYPE zcl_abapgit_git_pack=>ty_nodes_tt.
FIELD-SYMBOLS: <ls_exp> LIKE LINE OF rt_expanded,
<ls_node> LIKE LINE OF lt_nodes.
READ TABLE it_objects INTO ls_object
WITH KEY type COMPONENTS
type = zif_abapgit_git_definitions=>c_type-tree
sha1 = iv_tree.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''tree not found'' ).
ENDIF.
lt_nodes = zcl_abapgit_git_pack=>decode_tree( ls_object-data ).
LOOP AT lt_nodes ASSIGNING <ls_node>.
CASE <ls_node>-chmod.
WHEN zif_abapgit_git_definitions=>c_chmod-file
OR zif_abapgit_git_definitions=>c_chmod-executable
OR zif_abapgit_git_definitions=>c_chmod-symbolic_link
OR zif_abapgit_git_definitions=>c_chmod-submodule.
APPEND INITIAL LINE TO rt_expanded ASSIGNING <ls_exp>.
<ls_exp>-path = iv_base.
<ls_exp>-name = <ls_node>-name.
<ls_exp>-sha1 = <ls_node>-sha1.
<ls_exp>-chmod = <ls_node>-chmod.
WHEN zif_abapgit_git_definitions=>c_chmod-dir.
lt_expanded = walk_tree(
it_objects = it_objects
iv_tree = <ls_node>-sha1
iv_base = iv_base && <ls_node>-name && ''/'' ).
APPEND LINES OF lt_expanded TO rt_expanded.
WHEN OTHERS.
zcx_abapgit_exception=>raise( |walk_tree: unknown chmod { <ls_node>-chmod }| ).
ENDCASE.
ENDLOOP.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GIT_TAG ', 'CLASS zcl_abapgit_git_tag DEFINITION
PUBLIC
CREATE PUBLIC.
PUBLIC SECTION.
CLASS-METHODS add_tag_prefix
IMPORTING
!iv_text TYPE csequence
RETURNING
VALUE(rv_text) TYPE string.
CLASS-METHODS remove_tag_prefix
IMPORTING
!iv_text TYPE string
RETURNING
VALUE(rv_text) TYPE string.
CLASS-METHODS add_peel
IMPORTING
!iv_text TYPE string
RETURNING
VALUE(rv_text) TYPE string.
CLASS-METHODS remove_peel
IMPORTING
!iv_text TYPE string
RETURNING
VALUE(rv_text) TYPE string.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_git_tag IMPLEMENTATION.
METHOD add_peel.
rv_text = iv_text && zif_abapgit_git_definitions=>c_git_branch-peel.
ENDMETHOD.
METHOD add_tag_prefix.
rv_text = zif_abapgit_git_definitions=>c_git_branch-tags_prefix && iv_text.
ENDMETHOD.
METHOD remove_peel.
rv_text = iv_text.
REPLACE zif_abapgit_git_definitions=>c_git_branch-peel IN rv_text WITH ''''.
ENDMETHOD.
METHOD remove_tag_prefix.
rv_text = iv_text.
REPLACE FIRST OCCURRENCE OF zif_abapgit_git_definitions=>c_git_branch-tags_prefix
IN rv_text
WITH ''''.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GIT_TIME ', 'CLASS zcl_abapgit_git_time DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
TYPES:
ty_unixtime TYPE c LENGTH 16 .
CLASS-METHODS get_unix
RETURNING
VALUE(rv_time) TYPE ty_unixtime
RAISING
zcx_abapgit_exception .
CLASS-METHODS get_one_year_ago
RETURNING
VALUE(rv_time) TYPE i
RAISING
zcx_abapgit_exception .
CLASS-METHODS get_utc
IMPORTING
!iv_unix TYPE ty_unixtime
EXPORTING
!ev_date TYPE sy-datum
!ev_time TYPE sy-uzeit .
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_git_time IMPLEMENTATION.
METHOD get_one_year_ago.
* https://www.epochconverter.com
CONSTANTS lc_epoch TYPE timestamp VALUE ''19700101000000''.
DATA lv_time TYPE timestamp.
GET TIME STAMP FIELD lv_time.
rv_time = cl_abap_tstmp=>subtract(
tstmp1 = lv_time
tstmp2 = lc_epoch ).
rv_time = rv_time - 31536000.
ENDMETHOD.
METHOD get_unix.
* returns seconds since Unix epoch, including timezone indicator
CONSTANTS lc_epoch TYPE timestamp VALUE ''19700101000000''.
DATA lv_time TYPE timestamp.
DATA lv_seconds TYPE i.
GET TIME STAMP FIELD lv_time.
lv_seconds = cl_abap_tstmp=>subtract(
tstmp1 = lv_time
tstmp2 = lc_epoch ).
rv_time = lv_seconds.
CONDENSE rv_time.
rv_time+11 = ''+000000''.
ENDMETHOD.
METHOD get_utc.
CONSTANTS lc_epoch TYPE d VALUE ''19700101''.
DATA: lv_i TYPE i,
lv_utcdiff TYPE t,
lv_utcsign TYPE c LENGTH 1.
lv_i = iv_unix(10).
lv_utcsign = iv_unix+11.
lv_utcdiff = iv_unix+12.
" GMT + time-zone
CASE lv_utcsign.
WHEN ''+''.
lv_i = lv_i + lv_utcdiff.
WHEN ''-''.
lv_i = lv_i - lv_utcdiff.
ENDCASE.
ev_time = lv_i MOD 86400.
lv_i = lv_i - ev_time.
lv_i = lv_i / 86400.
ev_date = lv_i + lc_epoch.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GIT_TRANSPORT ', 'CLASS zcl_abapgit_git_transport DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES:
zif_abapgit_git_transport.
* remote to local
CLASS-METHODS upload_pack_by_branch
IMPORTING
!iv_url TYPE string
!iv_branch_name TYPE string
!iv_deepen_level TYPE i DEFAULT 1
!it_branches TYPE zif_abapgit_git_definitions=>ty_git_branch_list_tt OPTIONAL
EXPORTING
!et_objects TYPE zif_abapgit_definitions=>ty_objects_tt
!ev_branch TYPE zif_abapgit_git_definitions=>ty_sha1
RAISING
zcx_abapgit_exception .
CLASS-METHODS upload_pack_by_commit
IMPORTING
!iv_url TYPE string
!iv_hash TYPE zif_abapgit_git_definitions=>ty_sha1 OPTIONAL
!iv_deepen_level TYPE i DEFAULT 0
EXPORTING
!et_objects TYPE zif_abapgit_definitions=>ty_objects_tt
!ev_commit TYPE zif_abapgit_git_definitions=>ty_sha1
RAISING
zcx_abapgit_exception .
* local to remote
CLASS-METHODS receive_pack
IMPORTING
!iv_url TYPE string
!iv_old TYPE zif_abapgit_git_definitions=>ty_sha1
!iv_new TYPE zif_abapgit_git_definitions=>ty_sha1
!iv_branch_name TYPE string
!iv_pack TYPE xstring OPTIONAL
RAISING
zcx_abapgit_exception .
CLASS-METHODS branches
IMPORTING
iv_url TYPE string
RETURNING
VALUE(ro_branch_list) TYPE REF TO zcl_abapgit_git_branch_list
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS:
BEGIN OF c_service,
receive TYPE string VALUE ''receive'', "#EC NOTEXT
upload TYPE string VALUE ''upload'', "#EC NOTEXT
END OF c_service .
CLASS-METHODS check_report_status
IMPORTING
!iv_string TYPE string
RAISING
zcx_abapgit_exception .
CLASS-METHODS branch_list
IMPORTING
!iv_url TYPE string
!iv_service TYPE string
EXPORTING
!eo_client TYPE REF TO zcl_abapgit_http_client
!eo_branch_list TYPE REF TO zcl_abapgit_git_branch_list
RAISING
zcx_abapgit_exception .
CLASS-METHODS find_branch
IMPORTING
!iv_url TYPE string
!iv_service TYPE string
!iv_branch_name TYPE string
EXPORTING
!eo_client TYPE REF TO zcl_abapgit_http_client
!ev_branch TYPE zif_abapgit_git_definitions=>ty_sha1
!eo_branch_list TYPE REF TO zcl_abapgit_git_branch_list
RAISING
zcx_abapgit_exception .
CLASS-METHODS parse
EXPORTING
!ev_pack TYPE xstring
CHANGING
!cv_data TYPE xstring
RAISING
zcx_abapgit_exception .
CLASS-METHODS upload_pack
IMPORTING
!io_client TYPE REF TO zcl_abapgit_http_client
!iv_url TYPE string
!iv_deepen_level TYPE i DEFAULT 0
!it_hashes TYPE zif_abapgit_git_definitions=>ty_sha1_tt
RETURNING
VALUE(rt_objects) TYPE zif_abapgit_definitions=>ty_objects_tt
RAISING
zcx_abapgit_exception .
ENDCLASS.
CLASS zcl_abapgit_git_transport IMPLEMENTATION.
METHOD zif_abapgit_git_transport~branches.
DATA: lo_client TYPE REF TO zcl_abapgit_http_client.
branch_list(
EXPORTING
iv_url = iv_url
iv_service = c_service-upload
IMPORTING
eo_client = lo_client
eo_branch_list = ro_branch_list ).
lo_client->close( ).
ENDMETHOD.
METHOD branch_list.
CONSTANTS lc_content_regex TYPE string VALUE ''^[0-9a-f]{4}#''.
CONSTANTS lc_content_type TYPE string VALUE ''application/x-git-<service>-pack-advertisement''.
DATA lv_data TYPE string.
DATA lv_expected_content_type TYPE string.
eo_client = zcl_abapgit_http=>create_by_url(
iv_url = iv_url
iv_service = iv_service ).
lv_expected_content_type = lc_content_type.
REPLACE ''<service>'' IN lv_expected_content_type WITH iv_service.
eo_client->check_smart_response(
iv_expected_content_type = lv_expected_content_type
iv_content_regex = lc_content_regex ).
lv_data = eo_client->get_cdata( ).
CREATE OBJECT eo_branch_list
EXPORTING
iv_data = lv_data.
ENDMETHOD.
METHOD check_report_status.
DATA:
lv_string TYPE string,
lv_error TYPE string,
lv_unpack_status TYPE string,
lv_unpack_code TYPE string,
lv_unpack_text TYPE string,
lv_commnd_status TYPE string,
lv_commnd_code TYPE string,
lv_commnd_text TYPE string.
" Based on https://git-scm.com/docs/pack-protocol/2.2.3#_report_status
lv_string = iv_string.
IF lv_string = ''''.
lv_error = ''Unexpected empty reply''.
ELSEIF strlen( lv_string ) < 4.
lv_error = ''Missing pkt length for unpack status''.
ELSE.
lv_string = lv_string+4.
SPLIT lv_string AT cl_abap_char_utilities=>newline INTO lv_unpack_status lv_string.
SPLIT lv_unpack_status AT space INTO lv_unpack_text lv_unpack_code.
IF lv_unpack_text <> ''unpack''.
lv_error = ''Unexpected unpack status''.
ELSEIF lv_unpack_code <> ''ok''.
lv_error = |Unpack not ok ({ lv_unpack_code })|.
ELSEIF lv_string = ''''.
lv_error = ''Unexpected command status''.
ELSEIF strlen( lv_string ) < 4.
lv_error = ''Missing pkt length for command status''.
ELSE.
lv_string = lv_string+4.
SPLIT lv_string AT cl_abap_char_utilities=>newline INTO lv_commnd_status lv_string.
SPLIT lv_commnd_status AT space INTO lv_commnd_code lv_commnd_text.
IF lv_commnd_code <> ''ok''. "=ng
" Some pre-defined error messages
IF lv_commnd_text CP ''*pre-receive hook declined*''.
lv_error = ''Pre-receive hook declined''.
ELSEIF lv_commnd_text CP ''*protected branch hook declined*''.
lv_error = ''Protected branch hook declined''.
ELSEIF lv_commnd_text CP ''*push declined due to email privacy*''.
lv_error = ''Push declined due to email privacy''.
ELSEIF lv_commnd_text CP ''*funny refname*''.
lv_error = ''Funny refname''.
ELSEIF lv_commnd_text CP ''*failed to update ref*''.
lv_error = ''Failed to update ref''.
ELSEIF lv_commnd_text CP ''*missing necessary objects*''.
lv_error = ''Missing necessary objects''.
ELSEIF lv_commnd_text CP ''*refusing to delete the current branch*''.
lv_error = ''Branch delete not allowed''.
ELSEIF lv_commnd_text CP ''*cannot lock ref*reference already exists*''.
lv_error = ''Branch already exists''.
ELSEIF lv_commnd_text CP ''*cannot lock ref*but expected*''.
lv_error = ''Branch cannot be locked''.
ELSEIF lv_commnd_text CP ''*invalid committer*''.
lv_error = ''Invalid committer''.
ELSE.
" Otherwise return full error message
lv_error = lv_commnd_text.
ENDIF.
ELSEIF strlen( lv_string ) < 4.
lv_error = ''Missing flush-pkt''.
ELSEIF lv_string <> ''0000'' AND lv_string <> ''00000000''.
" We update only one reference at a time so this should be the end
lv_error = ''Unexpected end of status (flush-pkt)''.
ENDIF.
ENDIF.
ENDIF.
IF lv_error IS NOT INITIAL.
zcx_abapgit_exception=>raise( |Git protocol error: { lv_error }| ).
ENDIF.
ENDMETHOD.
METHOD find_branch.
branch_list(
EXPORTING
iv_url = iv_url
iv_service = iv_service
IMPORTING
eo_client = eo_client
eo_branch_list = eo_branch_list ).
IF ev_branch IS SUPPLIED.
ev_branch = eo_branch_list->find_by_name( iv_branch_name )-sha1.
ENDIF.
ENDMETHOD.
METHOD parse.
CONSTANTS: lc_band1 TYPE x VALUE ''01''.
DATA: lv_len TYPE i,
lv_contents TYPE xstring,
lv_pack TYPE xstring.
WHILE xstrlen( cv_data ) >= 4.
lv_len = zcl_abapgit_git_utils=>length_utf8_hex( cv_data ).
IF lv_len > xstrlen( cv_data ).
zcx_abapgit_exception=>raise( ''parse, string length too large'' ).
ENDIF.
lv_contents = cv_data(lv_len).
IF lv_len = 0.
cv_data = cv_data+4.
CONTINUE.
ELSE.
cv_data = cv_data+lv_len.
ENDIF.
lv_contents = lv_contents+4.
IF xstrlen( lv_contents ) > 1 AND lv_contents(1) = lc_band1.
CONCATENATE lv_pack lv_contents+1 INTO lv_pack IN BYTE MODE.
ENDIF.
ENDWHILE.
ev_pack = lv_pack.
ENDMETHOD.
METHOD receive_pack.
DATA: lo_client TYPE REF TO zcl_abapgit_http_client,
lv_cmd_pkt TYPE string,
lv_line TYPE string,
lv_tmp TYPE xstring,
lv_xstring TYPE xstring,
lv_string TYPE string,
lv_cap_list TYPE string,
lv_buffer TYPE string.
find_branch(
EXPORTING
iv_url = iv_url
iv_service = c_service-receive
iv_branch_name = iv_branch_name
IMPORTING
eo_client = lo_client ).
lo_client->set_headers(
iv_url = iv_url
iv_service = c_service-receive ).
lv_cap_list = ''report-status''.
lv_line = iv_old &&
\` \` &&
iv_new &&
\` \` &&
iv_branch_name &&
zcl_abapgit_git_utils=>get_null( ) &&
\` \` &&
lv_cap_list &&
cl_abap_char_utilities=>newline.
lv_cmd_pkt = zcl_abapgit_git_utils=>pkt_string( lv_line ).
lv_buffer = lv_cmd_pkt && ''0000''.
lv_tmp = zcl_abapgit_convert=>string_to_xstring_utf8( lv_buffer ).
CONCATENATE lv_tmp iv_pack INTO lv_xstring IN BYTE MODE.
lv_xstring = lo_client->send_receive_close( lv_xstring ).
lv_string = zcl_abapgit_convert=>xstring_to_string_utf8( lv_xstring ).
check_report_status( lv_string ).
ENDMETHOD.
METHOD upload_pack.
DATA: lv_capa TYPE string,
lv_line TYPE string,
lv_buffer TYPE string,
lv_xstring TYPE xstring,
lv_pack TYPE xstring.
FIELD-SYMBOLS: <lv_hash> LIKE LINE OF it_hashes.
io_client->set_headers( iv_url = iv_url
iv_service = c_service-upload ).
LOOP AT it_hashes FROM 1 ASSIGNING <lv_hash>.
IF sy-tabix = 1.
lv_capa = ''side-band-64k no-progress multi_ack''.
lv_line = ''want'' && \` \` && <lv_hash>
&& \` \` && lv_capa && cl_abap_char_utilities=>newline.
ELSE.
lv_line = ''want'' && \` \` && <lv_hash>
&& cl_abap_char_utilities=>newline.
ENDIF.
lv_buffer = lv_buffer && zcl_abapgit_git_utils=>pkt_string( lv_line ).
ENDLOOP.
IF iv_deepen_level > 0.
lv_buffer = lv_buffer && zcl_abapgit_git_utils=>pkt_string( |deepen { iv_deepen_level }| &&
cl_abap_char_utilities=>newline ).
ENDIF.
lv_buffer = lv_buffer
&& ''0000''
&& ''0009done'' && cl_abap_char_utilities=>newline.
lv_xstring = io_client->send_receive_close( zcl_abapgit_convert=>string_to_xstring_utf8( lv_buffer ) ).
parse( IMPORTING ev_pack = lv_pack
CHANGING cv_data = lv_xstring ).
IF lv_pack IS INITIAL.
zcx_abapgit_exception=>raise( ''Response could not be parsed - empty pack returned.'' ).
ENDIF.
rt_objects = zcl_abapgit_git_pack=>decode( lv_pack ).
ENDMETHOD.
METHOD upload_pack_by_branch.
DATA: lo_client TYPE REF TO zcl_abapgit_http_client,
lt_hashes TYPE zif_abapgit_git_definitions=>ty_sha1_tt.
FIELD-SYMBOLS: <ls_branch> LIKE LINE OF it_branches.
CLEAR: et_objects,
ev_branch.
find_branch(
EXPORTING
iv_url = iv_url
iv_service = c_service-upload
iv_branch_name = iv_branch_name
IMPORTING
eo_client = lo_client
ev_branch = ev_branch ).
IF it_branches IS INITIAL.
APPEND ev_branch TO lt_hashes.
ELSE.
LOOP AT it_branches ASSIGNING <ls_branch>.
APPEND <ls_branch>-sha1 TO lt_hashes.
ENDLOOP.
ENDIF.
et_objects = upload_pack( io_client = lo_client
iv_url = iv_url
iv_deepen_level = iv_deepen_level
it_hashes = lt_hashes ).
ENDMETHOD.
METHOD upload_pack_by_commit.
DATA: lo_client TYPE REF TO zcl_abapgit_http_client,
lt_hashes TYPE zif_abapgit_git_definitions=>ty_sha1_tt.
CLEAR: et_objects,
ev_commit.
APPEND iv_hash TO lt_hashes.
ev_commit = iv_hash.
lo_client = zcl_abapgit_http=>create_by_url(
iv_url = iv_url
iv_service = c_service-upload ).
et_objects = upload_pack( io_client = lo_client
iv_url = iv_url
iv_deepen_level = iv_deepen_level
it_hashes = lt_hashes ).
ENDMETHOD.
METHOD branches.
" This method is kept for compatibility reasons
ro_branch_list = zcl_abapgit_git_factory=>get_git_transport( )->branches( iv_url ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GIT_UTILS ', 'CLASS zcl_abapgit_git_utils DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
TYPES:
ty_null TYPE c LENGTH 1 .
CLASS-METHODS get_null
RETURNING
VALUE(rv_c) TYPE ty_null .
CLASS-METHODS pkt_string
IMPORTING
!iv_string TYPE string
RETURNING
VALUE(rv_pkt) TYPE string
RAISING
zcx_abapgit_exception .
CLASS-METHODS length_utf8_hex
IMPORTING
!iv_data TYPE xstring
RETURNING
VALUE(rv_len) TYPE i
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_git_utils IMPLEMENTATION.
METHOD get_null.
* must be length 4, or it gives a syntax error on lower versions
DATA: lv_x TYPE x LENGTH 4 VALUE ''00000000''.
FIELD-SYMBOLS <lv_y> TYPE c.
ASSIGN lv_x TO <lv_y> CASTING.
rv_c = <lv_y>.
ENDMETHOD.
METHOD length_utf8_hex.
DATA: lv_xstring TYPE xstring,
lv_char4 TYPE c LENGTH 4,
lv_x TYPE x LENGTH 2.
IF xstrlen( iv_data ) < 4.
zcx_abapgit_exception=>raise( ''error converting to hex, LENGTH_UTF8_HEX'' ).
ENDIF.
lv_xstring = iv_data(4).
lv_char4 = zcl_abapgit_convert=>xstring_to_string_utf8(
iv_data = lv_xstring
iv_length = 4 ).
TRANSLATE lv_char4 TO UPPER CASE.
lv_x = lv_char4.
rv_len = lv_x.
ENDMETHOD.
METHOD pkt_string.
DATA: lv_x TYPE x,
lv_len TYPE i.
lv_len = strlen( iv_string ).
IF lv_len >= 255.
zcx_abapgit_exception=>raise( ''PKT, todo'' ).
ENDIF.
lv_x = lv_len + 4.
rv_pkt = ''00'' && lv_x && iv_string.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_HASH ', 'CLASS zcl_abapgit_hash DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS adler32
IMPORTING
!iv_xstring TYPE xstring
RETURNING
VALUE(rv_checksum) TYPE zif_abapgit_git_definitions=>ty_adler32 .
CLASS-METHODS sha1
IMPORTING
!iv_type TYPE zif_abapgit_git_definitions=>ty_type
!iv_data TYPE xstring
RETURNING
VALUE(rv_sha1) TYPE zif_abapgit_git_definitions=>ty_sha1
RAISING
zcx_abapgit_exception .
CLASS-METHODS sha1_commit
IMPORTING
!iv_data TYPE xstring
RETURNING
VALUE(rv_sha1) TYPE zif_abapgit_git_definitions=>ty_sha1
RAISING
zcx_abapgit_exception .
CLASS-METHODS sha1_tree
IMPORTING
!iv_data TYPE xstring
RETURNING
VALUE(rv_sha1) TYPE zif_abapgit_git_definitions=>ty_sha1
RAISING
zcx_abapgit_exception .
CLASS-METHODS sha1_tag
IMPORTING
!iv_data TYPE xstring
RETURNING
VALUE(rv_sha1) TYPE zif_abapgit_git_definitions=>ty_sha1
RAISING
zcx_abapgit_exception .
CLASS-METHODS sha1_blob
IMPORTING
!iv_data TYPE xstring
RETURNING
VALUE(rv_sha1) TYPE zif_abapgit_git_definitions=>ty_sha1
RAISING
zcx_abapgit_exception .
CLASS-METHODS sha1_raw
IMPORTING
!iv_data TYPE xstring
RETURNING
VALUE(rv_sha1) TYPE zif_abapgit_git_definitions=>ty_sha1
RAISING
zcx_abapgit_exception .
CLASS-METHODS sha1_string
IMPORTING
!iv_data TYPE string
RETURNING
VALUE(rv_sha1) TYPE zif_abapgit_git_definitions=>ty_sha1
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_hash IMPLEMENTATION.
METHOD adler32.
CONSTANTS: lc_adler TYPE i VALUE 65521,
lc_max_b TYPE i VALUE 1800000000.
DATA: lv_index TYPE i,
lv_a TYPE i VALUE 1,
lv_b TYPE i VALUE 0,
lv_x TYPE x LENGTH 2,
lv_ca TYPE c LENGTH 4,
lv_cb TYPE c LENGTH 4,
lv_char8 TYPE c LENGTH 8.
DO xstrlen( iv_xstring ) TIMES.
lv_index = sy-index - 1.
lv_a = lv_a + iv_xstring+lv_index(1).
lv_b = lv_b + lv_a.
* delay the MOD operation until the integer might overflow
* articles describe 5552 additions are allowed, but this assumes unsigned integers
* instead of allowing a fixed number of additions before running MOD, then
* just compare value of lv_b, this is 1 operation less than comparing and adding
IF lv_b > lc_max_b.
lv_a = lv_a MOD lc_adler.
lv_b = lv_b MOD lc_adler.
ENDIF.
ENDDO.
lv_a = lv_a MOD lc_adler.
lv_b = lv_b MOD lc_adler.
lv_x = lv_a.
lv_ca = lv_x.
lv_x = lv_b.
lv_cb = lv_x.
CONCATENATE lv_cb lv_ca INTO lv_char8.
rv_checksum = lv_char8.
ENDMETHOD.
METHOD sha1.
DATA: lv_len TYPE i,
lv_char10 TYPE c LENGTH 10,
lv_string TYPE string,
lv_xstring TYPE xstring.
lv_len = xstrlen( iv_data ).
lv_char10 = lv_len.
CONDENSE lv_char10.
CONCATENATE iv_type lv_char10 INTO lv_string SEPARATED BY space.
lv_xstring = zcl_abapgit_convert=>string_to_xstring_utf8( lv_string ).
lv_string = lv_xstring.
CONCATENATE lv_string ''00'' INTO lv_string.
lv_xstring = lv_string.
CONCATENATE lv_xstring iv_data INTO lv_xstring IN BYTE MODE.
rv_sha1 = sha1_raw( lv_xstring ).
ENDMETHOD.
METHOD sha1_blob.
rv_sha1 = sha1( iv_type = zif_abapgit_git_definitions=>c_type-blob
iv_data = iv_data ).
ENDMETHOD.
METHOD sha1_commit.
rv_sha1 = sha1( iv_type = zif_abapgit_git_definitions=>c_type-commit
iv_data = iv_data ).
ENDMETHOD.
METHOD sha1_raw.
DATA: lv_hash TYPE string,
lv_key TYPE xstring,
lx_error TYPE REF TO cx_abap_message_digest.
TRY.
cl_abap_hmac=>calculate_hmac_for_raw(
EXPORTING
if_key = lv_key
if_data = iv_data
IMPORTING
ef_hmacstring = lv_hash ).
CATCH cx_abap_message_digest INTO lx_error.
zcx_abapgit_exception=>raise_with_text( lx_error ).
ENDTRY.
rv_sha1 = lv_hash.
TRANSLATE rv_sha1 TO LOWER CASE.
ENDMETHOD.
METHOD sha1_string.
DATA: lv_hash TYPE string,
lv_key TYPE xstring,
lx_error TYPE REF TO cx_abap_message_digest.
TRY.
cl_abap_hmac=>calculate_hmac_for_char(
EXPORTING
if_key = lv_key
if_data = iv_data
IMPORTING
ef_hmacstring = lv_hash ).
CATCH cx_abap_message_digest INTO lx_error.
zcx_abapgit_exception=>raise_with_text( lx_error ).
ENDTRY.
rv_sha1 = lv_hash.
TRANSLATE rv_sha1 TO LOWER CASE.
ENDMETHOD.
METHOD sha1_tag.
rv_sha1 = sha1( iv_type = zif_abapgit_git_definitions=>c_type-tag
iv_data = iv_data ).
ENDMETHOD.
METHOD sha1_tree.
rv_sha1 = sha1( iv_type = zif_abapgit_git_definitions=>c_type-tree
iv_data = iv_data ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_GIT_DEFINITIONS ', 'INTERFACE zif_abapgit_git_definitions
PUBLIC .
* this interface is self contained
* only references to built in types
* git does not know the concept of TADIR objects, only knows files
TYPES:
ty_type TYPE c LENGTH 6 .
TYPES:
ty_bitbyte TYPE c LENGTH 8 .
TYPES:
ty_sha1 TYPE c LENGTH 40 .
TYPES: ty_sha1_tt TYPE STANDARD TABLE OF ty_sha1 WITH DEFAULT KEY .
TYPES:
ty_adler32 TYPE x LENGTH 4 .
TYPES ty_item_state TYPE c LENGTH 1.
TYPES:
BEGIN OF ty_file_signature,
path TYPE string,
filename TYPE string,
sha1 TYPE ty_sha1,
END OF ty_file_signature .
TYPES:
ty_file_signatures_tt TYPE STANDARD TABLE OF
ty_file_signature WITH DEFAULT KEY .
TYPES:
ty_file_signatures_ts TYPE SORTED TABLE OF
ty_file_signature WITH UNIQUE KEY path filename .
TYPES:
BEGIN OF ty_file.
INCLUDE TYPE ty_file_signature.
TYPES: data TYPE xstring,
END OF ty_file .
TYPES:
ty_files_tt TYPE STANDARD TABLE OF ty_file WITH DEFAULT KEY
WITH UNIQUE SORTED KEY file_path COMPONENTS path filename
WITH NON-UNIQUE SORTED KEY file COMPONENTS filename.
TYPES ty_git_branch_type TYPE c LENGTH 2 .
TYPES:
BEGIN OF ty_git_branch,
sha1 TYPE ty_sha1,
name TYPE string,
type TYPE ty_git_branch_type,
is_head TYPE abap_bool,
display_name TYPE string,
END OF ty_git_branch .
TYPES:
ty_git_branch_list_tt TYPE STANDARD TABLE OF ty_git_branch WITH DEFAULT KEY
WITH NON-UNIQUE SORTED KEY name_key
COMPONENTS name.
TYPES:
BEGIN OF ty_git_tag,
sha1 TYPE ty_sha1,
object TYPE ty_sha1,
name TYPE string,
type TYPE ty_git_branch_type,
display_name TYPE string,
tagger_name TYPE string,
tagger_email TYPE string,
message TYPE string,
body TYPE string,
END OF ty_git_tag .
TYPES:
BEGIN OF ty_git_user,
name TYPE string,
email TYPE string,
END OF ty_git_user .
TYPES:
BEGIN OF ty_comment,
committer TYPE ty_git_user,
author TYPE ty_git_user,
comment TYPE string,
END OF ty_comment .
TYPES:
ty_chmod TYPE c LENGTH 6 .
CONSTANTS:
BEGIN OF c_chmod,
file TYPE ty_chmod VALUE ''100644'',
executable TYPE ty_chmod VALUE ''100755'',
dir TYPE ty_chmod VALUE ''40000 '',
submodule TYPE ty_chmod VALUE ''160000'',
symbolic_link TYPE ty_chmod VALUE ''120000'',
END OF c_chmod .
TYPES:
BEGIN OF ty_expanded,
path TYPE string,
name TYPE string,
sha1 TYPE ty_sha1,
chmod TYPE ty_chmod,
END OF ty_expanded .
TYPES:
ty_expanded_tt TYPE STANDARD TABLE OF ty_expanded WITH DEFAULT KEY
WITH NON-UNIQUE SORTED KEY path_name COMPONENTS path name.
TYPES:
BEGIN OF ty_create,
name TYPE string,
parent TYPE string,
END OF ty_create .
TYPES:
BEGIN OF ty_commit,
sha1 TYPE ty_sha1,
parent1 TYPE ty_sha1,
parent2 TYPE ty_sha1,
author TYPE string,
email TYPE string,
time TYPE string,
message TYPE string,
body TYPE STANDARD TABLE OF string WITH DEFAULT KEY,
branch TYPE string,
merge TYPE string,
tags TYPE STANDARD TABLE OF string WITH DEFAULT KEY,
create TYPE STANDARD TABLE OF ty_create WITH DEFAULT KEY,
compressed TYPE abap_bool,
END OF ty_commit .
TYPES:
ty_commit_tt TYPE STANDARD TABLE OF ty_commit WITH DEFAULT KEY .
CONSTANTS:
BEGIN OF c_type,
commit TYPE ty_type VALUE ''commit'', "#EC NOTEXT
tree TYPE ty_type VALUE ''tree'', "#EC NOTEXT
ref_d TYPE ty_type VALUE ''ref_d'', "#EC NOTEXT
tag TYPE ty_type VALUE ''tag'', "#EC NOTEXT
blob TYPE ty_type VALUE ''blob'', "#EC NOTEXT
END OF c_type .
CONSTANTS:
BEGIN OF c_git_branch_type,
branch TYPE ty_git_branch_type VALUE ''HD'',
lightweight_tag TYPE ty_git_branch_type VALUE ''TG'',
annotated_tag TYPE ty_git_branch_type VALUE ''AT'',
other TYPE ty_git_branch_type VALUE ''ZZ'',
END OF c_git_branch_type .
CONSTANTS c_head_name TYPE string VALUE ''HEAD'' ##NO_TEXT.
CONSTANTS:
BEGIN OF c_git_branch,
main TYPE string VALUE ''refs/heads/main'',
prefix TYPE string VALUE ''refs/'',
heads_prefix TYPE string VALUE ''refs/heads/'',
heads TYPE string VALUE ''refs/heads/*'',
tags_prefix TYPE string VALUE ''refs/tags/'',
tags TYPE string VALUE ''refs/tags/*'',
peel TYPE string VALUE ''^{}'',
END OF c_git_branch.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_GIT_TRANSPORT ', 'INTERFACE zif_abapgit_git_transport
PUBLIC .
METHODS branches
IMPORTING
iv_url TYPE string
RETURNING
VALUE(ro_branch_list) TYPE REF TO zcl_abapgit_git_branch_list
RAISING
zcx_abapgit_exception .
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_ZLIB ', 'CLASS zcl_abapgit_zlib DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
TYPES:
BEGIN OF ty_decompress,
raw TYPE xstring,
compressed_len TYPE i,
END OF ty_decompress .
CLASS-METHODS decompress
IMPORTING
!iv_compressed TYPE xsequence
RETURNING
VALUE(rs_data) TYPE ty_decompress .
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS: c_maxdcodes TYPE i VALUE 30.
CLASS-DATA: gv_out TYPE xstring,
go_lencode TYPE REF TO zcl_abapgit_zlib_huffman,
go_distcode TYPE REF TO zcl_abapgit_zlib_huffman,
go_stream TYPE REF TO zcl_abapgit_zlib_stream.
TYPES: BEGIN OF ty_pair,
length TYPE i,
distance TYPE i,
END OF ty_pair.
CLASS-METHODS:
decode
IMPORTING io_huffman TYPE REF TO zcl_abapgit_zlib_huffman
RETURNING VALUE(rv_symbol) TYPE i,
map_length
IMPORTING iv_code TYPE i
RETURNING VALUE(rv_length) TYPE i,
map_distance
IMPORTING iv_code TYPE i
RETURNING VALUE(rv_distance) TYPE i,
dynamic,
fixed,
not_compressed,
decode_loop,
read_pair
IMPORTING iv_length TYPE i
RETURNING VALUE(rs_pair) TYPE ty_pair,
copy_out
IMPORTING is_pair TYPE ty_pair.
ENDCLASS.
CLASS zcl_abapgit_zlib IMPLEMENTATION.
METHOD copy_out.
* copy one byte at a time, it is not possible to copy using
* string offsets, as it might copy data that does not exist
* in mv_out yet
DATA: lv_distance TYPE i,
lv_index TYPE i,
lv_x TYPE x LENGTH 1.
lv_distance = xstrlen( gv_out ) - is_pair-distance.
DO is_pair-length TIMES.
lv_index = sy-index - 1 + lv_distance.
lv_x = gv_out+lv_index(1).
CONCATENATE gv_out lv_x INTO gv_out IN BYTE MODE.
ENDDO.
ENDMETHOD.
METHOD decode.
DATA: lv_bit TYPE c LENGTH 1,
lv_len TYPE i,
lv_count TYPE i,
lv_code TYPE i,
lv_index TYPE i,
lv_first TYPE i,
lv_bits TYPE string.
DO zcl_abapgit_zlib_huffman=>c_maxbits TIMES.
lv_len = sy-index.
lv_bit = go_stream->take_bits( 1 ).
CONCATENATE lv_bits lv_bit INTO lv_bits.
lv_code = zcl_abapgit_zlib_convert=>bits_to_int( lv_bits ).
lv_count = io_huffman->get_count( lv_len ).
IF lv_code - lv_count < lv_first.
rv_symbol = io_huffman->get_symbol( lv_index + lv_code - lv_first + 1 ).
RETURN.
ENDIF.
lv_index = lv_index + lv_count.
lv_first = lv_first + lv_count.
lv_first = lv_first * 2.
ENDDO.
ENDMETHOD.
METHOD decode_loop.
DATA lv_x TYPE x.
DATA lv_symbol TYPE i.
DO.
lv_symbol = decode( go_lencode ).
IF lv_symbol < 256.
lv_x = lv_symbol.
CONCATENATE gv_out lv_x INTO gv_out IN BYTE MODE.
ELSEIF lv_symbol = 256.
EXIT.
ELSE.
copy_out( read_pair( lv_symbol ) ).
ENDIF.
ENDDO.
ENDMETHOD.
METHOD decompress.
DATA: lv_bfinal TYPE c LENGTH 1,
lv_btype TYPE c LENGTH 2.
IF iv_compressed IS INITIAL.
RETURN.
ENDIF.
CLEAR gv_out.
CREATE OBJECT go_stream
EXPORTING
iv_data = iv_compressed.
DO.
lv_bfinal = go_stream->take_bits( 1 ).
lv_btype = go_stream->take_bits( 2 ).
CASE lv_btype.
WHEN ''00''.
not_compressed( ).
WHEN ''01''.
fixed( ).
decode_loop( ).
WHEN ''10''.
dynamic( ).
decode_loop( ).
WHEN OTHERS.
ASSERT 1 = 0.
ENDCASE.
IF lv_bfinal = ''1''.
EXIT.
ENDIF.
ENDDO.
rs_data-raw = gv_out.
rs_data-compressed_len = xstrlen( iv_compressed ) - go_stream->remaining( ).
ENDMETHOD.
METHOD dynamic.
DATA: lv_nlen TYPE i,
lv_ndist TYPE i,
lv_ncode TYPE i,
lv_index TYPE i,
lv_length TYPE i,
lv_symbol TYPE i,
lt_order TYPE TABLE OF i,
lt_lengths TYPE zcl_abapgit_zlib_huffman=>ty_lengths,
lt_dists TYPE zcl_abapgit_zlib_huffman=>ty_lengths.
FIELD-SYMBOLS: <lv_length> LIKE LINE OF lt_lengths.
APPEND 16 TO lt_order.
APPEND 17 TO lt_order.
APPEND 18 TO lt_order.
APPEND 0 TO lt_order.
APPEND 8 TO lt_order.
APPEND 7 TO lt_order.
APPEND 9 TO lt_order.
APPEND 6 TO lt_order.
APPEND 10 TO lt_order.
APPEND 5 TO lt_order.
APPEND 11 TO lt_order.
APPEND 4 TO lt_order.
APPEND 12 TO lt_order.
APPEND 3 TO lt_order.
APPEND 13 TO lt_order.
APPEND 2 TO lt_order.
APPEND 14 TO lt_order.
APPEND 1 TO lt_order.
APPEND 15 TO lt_order.
lv_nlen = go_stream->take_int( 5 ) + 257.
lv_ndist = go_stream->take_int( 5 ) + 1.
lv_ncode = go_stream->take_int( 4 ) + 4.
DO 19 TIMES.
APPEND 0 TO lt_lengths.
ENDDO.
DO lv_ncode TIMES.
READ TABLE lt_order INDEX sy-index INTO lv_index.
ASSERT sy-subrc = 0.
lv_index = lv_index + 1.
READ TABLE lt_lengths INDEX lv_index ASSIGNING <lv_length>.
ASSERT sy-subrc = 0.
<lv_length> = go_stream->take_int( 3 ).
ENDDO.
CREATE OBJECT go_lencode
EXPORTING
it_lengths = lt_lengths.
CLEAR lt_lengths.
WHILE lines( lt_lengths ) < lv_nlen + lv_ndist.
lv_symbol = decode( go_lencode ).
IF lv_symbol < 16.
APPEND lv_symbol TO lt_lengths.
ELSE.
lv_length = 0.
IF lv_symbol = 16.
READ TABLE lt_lengths INDEX lines( lt_lengths ) INTO lv_length.
ASSERT sy-subrc = 0.
lv_symbol = go_stream->take_int( 2 ) + 3.
ELSEIF lv_symbol = 17.
lv_symbol = go_stream->take_int( 3 ) + 3.
ELSE.
lv_symbol = go_stream->take_int( 7 ) + 11.
ENDIF.
DO lv_symbol TIMES.
APPEND lv_length TO lt_lengths.
ENDDO.
ENDIF.
ENDWHILE.
lt_dists = lt_lengths.
DELETE lt_lengths FROM lv_nlen + 1.
DELETE lt_dists TO lv_nlen.
CREATE OBJECT go_lencode
EXPORTING
it_lengths = lt_lengths.
CREATE OBJECT go_distcode
EXPORTING
it_lengths = lt_dists.
ENDMETHOD.
METHOD fixed.
DATA: lt_lengths TYPE zcl_abapgit_zlib_huffman=>ty_lengths.
DO 144 TIMES.
APPEND 8 TO lt_lengths.
ENDDO.
DO 112 TIMES.
APPEND 9 TO lt_lengths.
ENDDO.
DO 24 TIMES.
APPEND 7 TO lt_lengths.
ENDDO.
DO 8 TIMES.
APPEND 8 TO lt_lengths.
ENDDO.
CREATE OBJECT go_lencode
EXPORTING
it_lengths = lt_lengths.
CLEAR lt_lengths.
DO c_maxdcodes TIMES.
APPEND 5 TO lt_lengths.
ENDDO.
CREATE OBJECT go_distcode
EXPORTING
it_lengths = lt_lengths.
ENDMETHOD.
METHOD map_distance.
CASE iv_code.
WHEN 0.
rv_distance = go_stream->take_int( 0 ) + 1.
WHEN 1.
rv_distance = go_stream->take_int( 0 ) + 2.
WHEN 2.
rv_distance = go_stream->take_int( 0 ) + 3.
WHEN 3.
rv_distance = go_stream->take_int( 0 ) + 4.
WHEN 4.
rv_distance = go_stream->take_int( 1 ) + 5.
WHEN 5.
rv_distance = go_stream->take_int( 1 ) + 7.
WHEN 6.
rv_distance = go_stream->take_int( 2 ) + 9.
WHEN 7.
rv_distance = go_stream->take_int( 2 ) + 13.
WHEN 8.
rv_distance = go_stream->take_int( 3 ) + 17.
WHEN 9.
rv_distance = go_stream->take_int( 3 ) + 25.
WHEN 10.
rv_distance = go_stream->take_int( 4 ) + 33.
WHEN 11.
rv_distance = go_stream->take_int( 4 ) + 49.
WHEN 12.
rv_distance = go_stream->take_int( 5 ) + 65.
WHEN 13.
rv_distance = go_stream->take_int( 5 ) + 97.
WHEN 14.
rv_distance = go_stream->take_int( 6 ) + 129.
WHEN 15.
rv_distance = go_stream->take_int( 6 ) + 193.
WHEN 16.
rv_distance = go_stream->take_int( 7 ) + 257.
WHEN 17.
rv_distance = go_stream->take_int( 7 ) + 385.
WHEN 18.
rv_distance = go_stream->take_int( 8 ) + 513.
WHEN 19.
rv_distance = go_stream->take_int( 8 ) + 769.
WHEN 20.
rv_distance = go_stream->take_int( 9 ) + 1025.
WHEN 21.
rv_distance = go_stream->take_int( 9 ) + 1537.
WHEN 22.
rv_distance = go_stream->take_int( 10 ) + 2049.
WHEN 23.
rv_distance = go_stream->take_int( 10 ) + 3073.
WHEN 24.
rv_distance = go_stream->take_int( 11 ) + 4097.
WHEN 25.
rv_distance = go_stream->take_int( 11 ) + 6145.
WHEN 26.
rv_distance = go_stream->take_int( 12 ) + 8193.
WHEN 27.
rv_distance = go_stream->take_int( 12 ) + 12289.
WHEN 28.
rv_distance = go_stream->take_int( 13 ) + 16385.
WHEN 29.
rv_distance = go_stream->take_int( 13 ) + 24577.
WHEN OTHERS.
ASSERT 1 = 0.
ENDCASE.
ENDMETHOD.
METHOD map_length.
CASE iv_code.
WHEN 257.
rv_length = go_stream->take_int( 0 ) + 3.
WHEN 258.
rv_length = go_stream->take_int( 0 ) + 4.
WHEN 259.
rv_length = go_stream->take_int( 0 ) + 5.
WHEN 260.
rv_length = go_stream->take_int( 0 ) + 6.
WHEN 261.
rv_length = go_stream->take_int( 0 ) + 7.
WHEN 262.
rv_length = go_stream->take_int( 0 ) + 8.
WHEN 263.
rv_length = go_stream->take_int( 0 ) + 9.
WHEN 264.
rv_length = go_stream->take_int( 0 ) + 10.
WHEN 265.
rv_length = go_stream->take_int( 1 ) + 11.
WHEN 266.
rv_length = go_stream->take_int( 1 ) + 13.
WHEN 267.
rv_length = go_stream->take_int( 1 ) + 15.
WHEN 268.
rv_length = go_stream->take_int( 1 ) + 17.
WHEN 269.
rv_length = go_stream->take_int( 2 ) + 19.
WHEN 270.
rv_length = go_stream->take_int( 2 ) + 23.
WHEN 271.
rv_length = go_stream->take_int( 2 ) + 27.
WHEN 272.
rv_length = go_stream->take_int( 2 ) + 31.
WHEN 273.
rv_length = go_stream->take_int( 3 ) + 35.
WHEN 274.
rv_length = go_stream->take_int( 3 ) + 43.
WHEN 275.
rv_length = go_stream->take_int( 3 ) + 51.
WHEN 276.
rv_length = go_stream->take_int( 3 ) + 59.
WHEN 277.
rv_length = go_stream->take_int( 4 ) + 67.
WHEN 278.
rv_length = go_stream->take_int( 4 ) + 83.
WHEN 279.
rv_length = go_stream->take_int( 4 ) + 99.
WHEN 280.
rv_length = go_stream->take_int( 4 ) + 115.
WHEN 281.
rv_length = go_stream->take_int( 5 ) + 131.
WHEN 282.
rv_length = go_stream->take_int( 5 ) + 163.
WHEN 283.
rv_length = go_stream->take_int( 5 ) + 195.
WHEN 284.
rv_length = go_stream->take_int( 5 ) + 227.
WHEN 285.
rv_length = go_stream->take_int( 0 ) + 258.
WHEN OTHERS.
ASSERT 1 = 0.
ENDCASE.
ENDMETHOD.
METHOD not_compressed.
DATA: lv_len TYPE i,
lv_nlen TYPE i ##NEEDED.
DATA lv_bytes TYPE xstring.
* skip any remaining bits in current partially processed byte
go_stream->clear_bits( ).
lv_len = go_stream->take_int( 16 ).
lv_nlen = go_stream->take_int( 16 ).
lv_bytes = go_stream->take_bytes( lv_len ).
CONCATENATE gv_out lv_bytes INTO gv_out IN BYTE MODE.
ENDMETHOD.
METHOD read_pair.
DATA: lv_symbol TYPE i.
rs_pair-length = map_length( iv_length ).
lv_symbol = decode( go_distcode ).
rs_pair-distance = map_distance( lv_symbol ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_ZLIB_CONVERT ', 'CLASS zcl_abapgit_zlib_convert DEFINITION
PUBLIC FINAL
CREATE PUBLIC.
PUBLIC SECTION.
CLASS-METHODS hex_to_bits
IMPORTING
!iv_hex TYPE xsequence
RETURNING
VALUE(rv_bits) TYPE string.
CLASS-METHODS bits_to_int
IMPORTING
!iv_bits TYPE clike
RETURNING
VALUE(rv_int) TYPE i.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS ZCL_ABAPGIT_ZLIB_CONVERT IMPLEMENTATION.
METHOD bits_to_int.
DATA lv_i TYPE i.
DATA lv_offset TYPE i.
DO strlen( iv_bits ) TIMES.
lv_i = iv_bits+lv_offset(1).
rv_int = rv_int * 2 + lv_i.
lv_offset = lv_offset + 1.
ENDDO.
ENDMETHOD.
METHOD hex_to_bits.
DATA: lv_x TYPE x LENGTH 1,
lv_c TYPE c LENGTH 1,
lv_bit TYPE i,
lv_hex TYPE xstring.
lv_hex = iv_hex.
WHILE NOT lv_hex IS INITIAL.
lv_x = lv_hex.
DO 8 TIMES.
lv_bit = sy-index.
GET BIT lv_bit OF lv_x INTO lv_c.
CONCATENATE rv_bits lv_c INTO rv_bits.
ENDDO.
lv_hex = lv_hex+1.
ENDWHILE.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_ZLIB_HUFFMAN ', 'CLASS zcl_abapgit_zlib_huffman DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
TYPES:
ty_lengths TYPE STANDARD TABLE OF i WITH DEFAULT KEY .
CONSTANTS c_maxbits TYPE i VALUE 15 ##NO_TEXT.
METHODS constructor
IMPORTING
!it_lengths TYPE ty_lengths .
METHODS get_count
IMPORTING
!iv_index TYPE i
RETURNING
VALUE(rv_value) TYPE i .
METHODS get_symbol
IMPORTING
!iv_index TYPE i
RETURNING
VALUE(rv_value) TYPE i .
PROTECTED SECTION.
PRIVATE SECTION.
DATA: mt_count TYPE STANDARD TABLE OF i WITH DEFAULT KEY,
mt_symbol TYPE STANDARD TABLE OF i WITH DEFAULT KEY.
ENDCLASS.
CLASS ZCL_ABAPGIT_ZLIB_HUFFMAN IMPLEMENTATION.
METHOD constructor.
DATA: lv_index TYPE i,
lt_offset TYPE TABLE OF i,
lv_length LIKE LINE OF it_lengths,
lv_prev TYPE i,
lv_count LIKE LINE OF mt_count.
FIELD-SYMBOLS: <lv_offset> LIKE LINE OF lt_offset,
<lv_symbol> LIKE LINE OF mt_symbol,
<lv_i> LIKE LINE OF it_lengths.
DO c_maxbits TIMES.
APPEND 0 TO mt_count.
ENDDO.
LOOP AT it_lengths INTO lv_index.
IF lv_index = 0.
CONTINUE.
ENDIF.
READ TABLE mt_count INDEX lv_index ASSIGNING <lv_i>.
ASSERT sy-subrc = 0.
<lv_i> = <lv_i> + 1.
ENDLOOP.
************
APPEND 0 TO lt_offset.
DO c_maxbits - 1 TIMES.
READ TABLE mt_count INDEX sy-index INTO lv_count.
ASSERT sy-subrc = 0.
lv_prev = lv_prev + lv_count.
APPEND lv_prev TO lt_offset.
ENDDO.
DO lines( it_lengths ) TIMES.
APPEND 0 TO mt_symbol.
ENDDO.
DO lines( it_lengths ) TIMES.
lv_index = sy-index.
READ TABLE it_lengths INDEX lv_index INTO lv_length.
ASSERT sy-subrc = 0.
IF lv_length = 0.
CONTINUE.
ENDIF.
READ TABLE lt_offset INDEX lv_length ASSIGNING <lv_offset>.
ASSERT sy-subrc = 0.
READ TABLE mt_symbol INDEX <lv_offset> + 1 ASSIGNING <lv_symbol>.
ASSERT sy-subrc = 0.
<lv_symbol> = lv_index - 1.
<lv_offset> = <lv_offset> + 1.
ENDDO.
ENDMETHOD.
METHOD get_count.
READ TABLE mt_count INDEX iv_index INTO rv_value. "#EC CI_SUBRC
ENDMETHOD.
METHOD get_symbol.
READ TABLE mt_symbol INDEX iv_index INTO rv_value. "#EC CI_SUBRC
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_ZLIB_STREAM ', 'CLASS zcl_abapgit_zlib_stream DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
METHODS constructor
IMPORTING
!iv_data TYPE xstring .
METHODS take_bits
IMPORTING
!iv_length TYPE i
RETURNING
VALUE(rv_bits) TYPE string .
METHODS take_int
IMPORTING
!iv_length TYPE i
RETURNING
VALUE(rv_int) TYPE i .
METHODS remaining
RETURNING
VALUE(rv_length) TYPE i .
"! Take bytes, there''s an implicit realignment to start at the beginning of a byte
"! i.e. if next bit of current byte is not the first bit, then this byte is skipped
"! and the bytes are taken from the next one.
"! @parameter iv_length | <p class="shorttext synchronized" lang="en"></p>
"! @parameter rv_bytes | <p class="shorttext synchronized" lang="en"></p>
METHODS take_bytes
IMPORTING
!iv_length TYPE i
RETURNING
VALUE(rv_bytes) TYPE xstring .
METHODS clear_bits .
PROTECTED SECTION.
PRIVATE SECTION.
DATA mv_bits TYPE string .
DATA mv_compressed TYPE xstring .
ENDCLASS.
CLASS ZCL_ABAPGIT_ZLIB_STREAM IMPLEMENTATION.
METHOD clear_bits.
CLEAR mv_bits.
ENDMETHOD.
METHOD constructor.
mv_compressed = iv_data.
ENDMETHOD.
METHOD remaining.
rv_length = xstrlen( mv_compressed ) + 1.
ENDMETHOD.
METHOD take_bits.
DATA: lv_left TYPE i,
lv_index TYPE i,
lv_x TYPE x LENGTH 1.
WHILE strlen( rv_bits ) < iv_length.
IF mv_bits IS INITIAL.
lv_x = mv_compressed(1).
mv_bits = zcl_abapgit_zlib_convert=>hex_to_bits( lv_x ).
mv_compressed = mv_compressed+1.
ENDIF.
lv_left = iv_length - strlen( rv_bits ).
IF lv_left >= strlen( mv_bits ).
CONCATENATE mv_bits rv_bits INTO rv_bits.
CLEAR mv_bits.
ELSE.
lv_index = strlen( mv_bits ) - lv_left.
CONCATENATE mv_bits+lv_index(lv_left) rv_bits INTO rv_bits.
mv_bits = mv_bits(lv_index).
ENDIF.
ENDWHILE.
ENDMETHOD.
METHOD take_bytes.
rv_bytes = mv_compressed(iv_length).
mv_compressed = mv_compressed+iv_length.
ENDMETHOD.
METHOD take_int.
rv_int = zcl_abapgit_zlib_convert=>bits_to_int( take_bits( iv_length ) ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GIT_URL ', 'CLASS zcl_abapgit_git_url DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
METHODS get_commit_display_url
IMPORTING
!io_repo TYPE REF TO zcl_abapgit_repo_online
RETURNING
VALUE(rv_url) TYPE string
RAISING
zcx_abapgit_exception .
METHODS validate_url
IMPORTING
!iv_url TYPE string
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
METHODS get_default_commit_display_url
IMPORTING
!iv_repo_url TYPE string
!iv_hash TYPE zif_abapgit_git_definitions=>ty_sha1
RETURNING
VALUE(rv_commit_url) TYPE string
RAISING
zcx_abapgit_exception .
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_git_url IMPLEMENTATION.
METHOD get_commit_display_url.
DATA li_exit TYPE REF TO zif_abapgit_exit.
rv_url = get_default_commit_display_url(
iv_repo_url = io_repo->get_url( )
iv_hash = io_repo->get_current_remote( ) ).
li_exit = zcl_abapgit_exit=>get_instance( ).
li_exit->adjust_display_commit_url(
EXPORTING
iv_repo_url = io_repo->get_url( )
iv_repo_name = io_repo->get_name( )
iv_repo_key = io_repo->get_key( )
iv_commit_hash = io_repo->get_current_remote( )
CHANGING
cv_display_url = rv_url ).
IF rv_url IS INITIAL.
zcx_abapgit_exception=>raise( |provider not yet supported| ).
ENDIF.
ENDMETHOD.
METHOD get_default_commit_display_url.
DATA ls_result TYPE match_result.
FIELD-SYMBOLS <ls_provider_match> TYPE submatch_result.
rv_commit_url = iv_repo_url.
FIND REGEX ''^http(?:s)?:\\/\\/(?:www\\.)?(github\\.com|bitbucket\\.org|gitlab\\.com)\\/''
IN rv_commit_url
RESULTS ls_result.
IF sy-subrc = 0.
READ TABLE ls_result-submatches INDEX 1 ASSIGNING <ls_provider_match>.
CASE rv_commit_url+<ls_provider_match>-offset(<ls_provider_match>-length).
WHEN ''github.com''.
REPLACE REGEX ''\\.git$'' IN rv_commit_url WITH space.
rv_commit_url = rv_commit_url && |/commit/| && iv_hash.
WHEN ''bitbucket.org''.
REPLACE REGEX ''\\.git$'' IN rv_commit_url WITH space.
rv_commit_url = rv_commit_url && |/commits/| && iv_hash.
WHEN ''gitlab.com''.
REPLACE REGEX ''\\.git$'' IN rv_commit_url WITH space.
rv_commit_url = rv_commit_url && |/-/commit/| && iv_hash.
ENDCASE.
ENDIF.
ENDMETHOD.
METHOD validate_url.
DATA lv_provider TYPE string.
lv_provider = zcl_abapgit_url=>host( to_lower( iv_url ) ).
" Provider-specific check for URLs that don''t work
IF lv_provider CS ''gitlab.com''.
FIND REGEX ''\\.git$'' IN iv_url IGNORING CASE.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''Repo URL for GitLab must end in ".git"'' ).
ENDIF.
ELSEIF lv_provider CS ''dev.azure.com''.
FIND REGEX ''\\.git$'' IN iv_url IGNORING CASE.
IF sy-subrc = 0.
zcx_abapgit_exception=>raise( ''Repo URL for Azure DevOps must not end in ".git"'' ).
ENDIF.
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_PR_ENUM_GITHUB ', 'CLASS zcl_abapgit_pr_enum_github DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES zif_abapgit_pr_enum_provider .
METHODS constructor
IMPORTING
!iv_user_and_repo TYPE string
!ii_http_agent TYPE REF TO zif_abapgit_http_agent
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
TYPES:
BEGIN OF ty_info,
repo_json TYPE REF TO zif_abapgit_ajson,
pulls TYPE zif_abapgit_pr_enum_provider=>ty_pull_requests,
END OF ty_info.
DATA mi_http_agent TYPE REF TO zif_abapgit_http_agent.
DATA mv_repo_url TYPE string.
METHODS fetch_repo_by_url
IMPORTING
iv_repo_url TYPE string
RETURNING
VALUE(rs_info) TYPE ty_info
RAISING
zcx_abapgit_exception.
METHODS convert_list
IMPORTING
ii_json TYPE REF TO zif_abapgit_ajson
RETURNING
VALUE(rt_pulls) TYPE zif_abapgit_pr_enum_provider=>ty_pull_requests.
METHODS clean_url
IMPORTING
iv_url TYPE string
RETURNING
VALUE(rv_url) TYPE string.
ENDCLASS.
CLASS ZCL_ABAPGIT_PR_ENUM_GITHUB IMPLEMENTATION.
METHOD clean_url.
rv_url = replace(
val = iv_url
regex = ''\\{.*\\}$''
with = '''' ).
ENDMETHOD.
METHOD constructor.
DATA lv_search TYPE string.
mv_repo_url = |https://api.github.com/repos/{ iv_user_and_repo }|.
mi_http_agent = ii_http_agent.
mi_http_agent->global_headers( )->set(
iv_key = ''Accept''
iv_val = ''application/vnd.github.v3+json'' ).
IF zcl_abapgit_login_manager=>get( mv_repo_url ) IS NOT INITIAL.
mi_http_agent->global_headers( )->set(
iv_key = ''Authorization''
iv_val = zcl_abapgit_login_manager=>get( mv_repo_url ) ).
ELSE.
* fallback, try searching for the git credentials
lv_search = mv_repo_url.
REPLACE FIRST OCCURRENCE OF ''api.github.com/repos'' IN lv_search WITH ''github.com''.
IF zcl_abapgit_login_manager=>get( lv_search ) IS NOT INITIAL.
mi_http_agent->global_headers( )->set(
iv_key = ''Authorization''
iv_val = zcl_abapgit_login_manager=>get( lv_search ) ).
ENDIF.
ENDIF.
ENDMETHOD.
METHOD convert_list.
DATA lt_items TYPE string_table.
DATA lv_i TYPE string.
FIELD-SYMBOLS <ls_p> LIKE LINE OF rt_pulls.
lt_items = ii_json->members( ''/'' ).
LOOP AT lt_items INTO lv_i.
APPEND INITIAL LINE TO rt_pulls ASSIGNING <ls_p>.
<ls_p>-base_url = ii_json->get( |/{ lv_i }/base/repo/clone_url| ).
<ls_p>-number = ii_json->get( |/{ lv_i }/number| ).
<ls_p>-title = ii_json->get( |/{ lv_i }/title| ).
<ls_p>-user = ii_json->get( |/{ lv_i }/user/login| ).
<ls_p>-head_url = ii_json->get( |/{ lv_i }/head/repo/clone_url| ).
<ls_p>-head_branch = ii_json->get( |/{ lv_i }/head/ref| ).
<ls_p>-created_at = ii_json->get( |/{ lv_i }/created_at| ).
<ls_p>-draft = ii_json->get_boolean( |/{ lv_i }/draft| ).
<ls_p>-html_url = ii_json->get( |/{ lv_i }/html_url| ).
ENDLOOP.
ENDMETHOD.
METHOD fetch_repo_by_url.
DATA li_pulls_json TYPE REF TO zif_abapgit_ajson.
DATA lv_pull_url TYPE string.
DATA li_response TYPE REF TO zif_abapgit_http_response.
DATA lx_ajson TYPE REF TO zcx_abapgit_ajson_error.
li_response = mi_http_agent->request( iv_repo_url ).
TRY.
rs_info-repo_json = li_response->json( ).
li_response->headers( ). " for debug
lv_pull_url = clean_url( rs_info-repo_json->get( ''/pulls_url'' ) ).
IF lv_pull_url IS INITIAL OR rs_info-repo_json->get( ''/message'' ) = ''Not Found''.
RETURN.
ENDIF.
li_pulls_json = mi_http_agent->request( lv_pull_url )->json( ).
CATCH zcx_abapgit_ajson_error INTO lx_ajson.
zcx_abapgit_exception=>raise_with_text( lx_ajson ).
ENDTRY.
rs_info-pulls = convert_list( li_pulls_json ).
ENDMETHOD.
METHOD zif_abapgit_pr_enum_provider~list_pull_requests.
DATA lv_upstream_url TYPE string.
DATA ls_repo_info TYPE ty_info.
FIELD-SYMBOLS <ls_p> LIKE LINE OF ls_repo_info-pulls.
ls_repo_info = fetch_repo_by_url( mv_repo_url ).
APPEND LINES OF ls_repo_info-pulls TO rt_pulls.
IF ls_repo_info-repo_json->get_boolean( ''/fork'' ) = abap_true.
lv_upstream_url = ls_repo_info-repo_json->get( ''/source/url'' ). " parent ?
ls_repo_info = fetch_repo_by_url( lv_upstream_url ).
LOOP AT ls_repo_info-pulls ASSIGNING <ls_p>.
<ls_p>-is_for_upstream = abap_true.
APPEND <ls_p> TO rt_pulls.
ENDLOOP.
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_PR_ENUMERATOR ', 'CLASS zcl_abapgit_pr_enumerator DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
METHODS constructor
IMPORTING
iv_url TYPE string
RAISING
zcx_abapgit_exception.
METHODS get_pulls
RETURNING
VALUE(rt_pulls) TYPE zif_abapgit_pr_enum_provider=>ty_pull_requests
RAISING
zcx_abapgit_exception.
CLASS-METHODS new
IMPORTING
iv_url TYPE string
RETURNING
VALUE(ro_instance) TYPE REF TO zcl_abapgit_pr_enumerator
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
DATA mv_repo_url TYPE string.
DATA mi_enum_provider TYPE REF TO zif_abapgit_pr_enum_provider.
CLASS-METHODS create_provider
IMPORTING
iv_repo_url TYPE string
RETURNING
VALUE(ri_provider) TYPE REF TO zif_abapgit_pr_enum_provider
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_pr_enumerator IMPLEMENTATION.
METHOD constructor.
mv_repo_url = to_lower( iv_url ).
TRY.
mi_enum_provider = create_provider( mv_repo_url ).
CATCH zcx_abapgit_exception.
ENDTRY.
ENDMETHOD.
METHOD create_provider.
DATA li_agent TYPE REF TO zif_abapgit_http_agent.
DATA lv_user TYPE string.
DATA lv_repo TYPE string.
li_agent = zcl_abapgit_factory=>get_http_agent( ).
FIND ALL OCCURRENCES OF REGEX ''github\\.com\\/([^\\/]+)\\/([^\\/]+)''
IN iv_repo_url
SUBMATCHES lv_user lv_repo.
IF sy-subrc = 0.
lv_repo = replace(
val = lv_repo
regex = ''\\.git$''
with = '''' ).
CREATE OBJECT ri_provider TYPE zcl_abapgit_pr_enum_github
EXPORTING
iv_user_and_repo = |{ lv_user }/{ lv_repo }|
ii_http_agent = li_agent.
ELSE.
zcx_abapgit_exception=>raise( |PR enumeration is not supported for { iv_repo_url }| ).
ENDIF.
" TODO somewhen more providers
ENDMETHOD.
METHOD get_pulls.
IF mi_enum_provider IS NOT BOUND.
RETURN.
ENDIF.
rt_pulls = mi_enum_provider->list_pull_requests( ).
ENDMETHOD.
METHOD new.
CREATE OBJECT ro_instance EXPORTING iv_url = iv_url.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_PR_ENUM_PROVIDER ', 'INTERFACE zif_abapgit_pr_enum_provider
PUBLIC .
TYPES:
BEGIN OF ty_pull_request,
base_url TYPE string,
number TYPE string,
title TYPE string,
user TYPE string,
head_url TYPE string,
head_branch TYPE string,
created_at TYPE string, " TODO change to D after date parsing fixed
is_for_upstream TYPE abap_bool,
draft TYPE abap_bool,
html_url TYPE string,
END OF ty_pull_request.
TYPES:
ty_pull_requests TYPE STANDARD TABLE OF ty_pull_request WITH KEY base_url number.
METHODS list_pull_requests
RETURNING
VALUE(rt_pulls) TYPE ty_pull_requests
RAISING
zcx_abapgit_exception.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_HTTP ', 'CLASS zcl_abapgit_http DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
CONSTANTS:
BEGIN OF c_scheme,
digest TYPE string VALUE ''Digest'',
END OF c_scheme .
CLASS-METHODS get_agent
RETURNING
VALUE(rv_agent) TYPE string .
TYPES: BEGIN OF ty_key_value,
key TYPE string,
value TYPE string,
END OF ty_key_value.
TYPES ty_headers TYPE STANDARD TABLE OF ty_key_value WITH DEFAULT KEY.
CLASS-METHODS create_by_url
IMPORTING
!iv_url TYPE string
!iv_service TYPE string
it_headers TYPE ty_headers OPTIONAL
RETURNING
VALUE(ro_client) TYPE REF TO zcl_abapgit_http_client
RAISING
zcx_abapgit_exception .
CLASS-METHODS check_connection
IMPORTING
!iv_url TYPE string
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
CLASS-METHODS check_auth_requested
IMPORTING
!ii_client TYPE REF TO if_http_client
RETURNING
VALUE(rv_auth_requested) TYPE abap_bool
RAISING
zcx_abapgit_exception .
CLASS-METHODS is_local_system
IMPORTING
!iv_url TYPE string
RETURNING
VALUE(rv_bool) TYPE abap_bool .
CLASS-METHODS acquire_login_details
IMPORTING
!ii_client TYPE REF TO if_http_client
!io_client TYPE REF TO zcl_abapgit_http_client
!iv_url TYPE string
RETURNING
VALUE(rv_scheme) TYPE string
RAISING
zcx_abapgit_exception .
CLASS-METHODS get_http_client
IMPORTING
!iv_url TYPE string
RETURNING
VALUE(ri_client) TYPE REF TO if_http_client
RAISING
zcx_abapgit_exception.
CLASS-METHODS get_connection_longtext
IMPORTING
!iv_host TYPE string
!iv_ssl_id TYPE ssfapplssl
!iv_proxy_host TYPE string
!iv_proxy_service TYPE string
RETURNING
VALUE(rv_longtext) TYPE string.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_http IMPLEMENTATION.
METHOD acquire_login_details.
DATA: lv_default_user TYPE string,
lv_user TYPE string,
lv_pass TYPE string,
lo_digest TYPE REF TO zcl_abapgit_http_digest.
lv_default_user = zcl_abapgit_persistence_user=>get_instance( )->get_repo_login( iv_url ).
lv_user = lv_default_user.
zcl_abapgit_password_dialog=>popup(
EXPORTING
iv_repo_url = iv_url
CHANGING
cv_user = lv_user
cv_pass = lv_pass ).
IF lv_user IS INITIAL.
zcx_abapgit_exception=>raise( ''Unauthorized access. Check your credentials'' ).
ENDIF.
IF lv_user <> lv_default_user.
zcl_abapgit_persistence_user=>get_instance( )->set_repo_login(
iv_url = iv_url
iv_login = lv_user ).
ENDIF.
rv_scheme = ii_client->response->get_header_field( ''www-authenticate'' ).
FIND REGEX ''^(\\w+)'' IN rv_scheme SUBMATCHES rv_scheme.
CASE rv_scheme.
WHEN c_scheme-digest.
* https://en.wikipedia.org/wiki/Digest_access_authentication
* e.g. used by https://www.gerritcodereview.com/
CREATE OBJECT lo_digest
EXPORTING
ii_client = ii_client
iv_username = lv_user
iv_password = lv_pass.
lo_digest->run( ii_client ).
io_client->set_digest( lo_digest ).
WHEN OTHERS.
* https://en.wikipedia.org/wiki/Basic_access_authentication
ii_client->authenticate(
username = lv_user
password = lv_pass ).
ENDCASE.
ENDMETHOD.
METHOD check_auth_requested.
DATA: lv_code TYPE i.
ii_client->response->get_status( IMPORTING code = lv_code ).
IF lv_code = 401.
rv_auth_requested = abap_true.
ENDIF.
ENDMETHOD.
METHOD check_connection.
" Check if a connection from this system to the git host is possible
" This will validate the general HTTP/HTTPS/SSL configuration and certificates
get_http_client( iv_url ).
ENDMETHOD.
METHOD create_by_url.
DATA: lv_uri TYPE string,
lv_scheme TYPE string,
lv_authorization TYPE string,
li_client TYPE REF TO if_http_client,
ls_header LIKE LINE OF it_headers.
li_client = get_http_client( iv_url ).
CREATE OBJECT ro_client
EXPORTING
ii_client = li_client.
IF is_local_system( iv_url ) = abap_true.
li_client->send_sap_logon_ticket( ).
ENDIF.
li_client->request->set_cdata( '''' ).
li_client->request->set_header_field(
name = ''~request_method''
value = ''GET'' ).
li_client->request->set_header_field(
name = ''user-agent''
value = get_agent( ) ).
lv_uri = zcl_abapgit_url=>path_name( iv_url ) &&
''/info/refs?service=git-'' &&
iv_service &&
''-pack''.
li_client->request->set_header_field(
name = ''~request_uri''
value = lv_uri ).
LOOP AT it_headers INTO ls_header.
li_client->request->set_header_field(
name = ls_header-key
value = ls_header-value ).
ENDLOOP.
" Disable internal auth dialog (due to its unclarity)
li_client->propertytype_logon_popup = if_http_client=>co_disabled.
lv_authorization = zcl_abapgit_login_manager=>load( iv_url ).
IF lv_authorization IS NOT INITIAL.
li_client->request->set_header_field(
name = ''authorization''
value = lv_authorization ).
li_client->propertytype_logon_popup = li_client->co_disabled.
ENDIF.
li_client->request->set_version( if_http_request=>co_protocol_version_1_1 ).
zcl_abapgit_exit=>get_instance( )->http_client(
iv_url = iv_url
ii_client = li_client ).
ro_client->send_receive( ).
IF check_auth_requested( li_client ) = abap_true.
lv_scheme = acquire_login_details( ii_client = li_client
io_client = ro_client
iv_url = iv_url ).
ro_client->send_receive( ).
ENDIF.
ro_client->check_http_200( ).
IF lv_scheme <> c_scheme-digest.
zcl_abapgit_login_manager=>save(
iv_uri = iv_url
iv_authorization = li_client->request->get_header_field( ''authorization'' ) ).
ENDIF.
ENDMETHOD.
METHOD get_agent.
* bitbucket require agent prefix = "git/"
* also see https://github.com/abapGit/abapGit/issues/1432
rv_agent = |git/2.0 (abapGit { zif_abapgit_version=>c_abap_version })|.
ENDMETHOD.
METHOD get_connection_longtext.
CONSTANTS lc_docs TYPE string VALUE ''https://docs.abapgit.org/user-guide/setup/ssl-setup.html''.
DATA lv_proxy TYPE string.
IF iv_proxy_host IS NOT INITIAL.
lv_proxy = | via proxy <b>{ iv_proxy_host }:{ iv_proxy_service }</b>|.
ENDIF.
rv_longtext = |abapGit is trying to connect to <b>{ iv_host }</b> |
&& |using SSL certificates under <b>{ iv_ssl_id }</b>{ lv_proxy }. |
&& |Check system parameters (transaction |
&& zcl_abapgit_html=>create( )->a(
iv_txt = ''RZ10''
iv_act = |{ zif_abapgit_definitions=>c_action-jump_transaction }?transaction=RZ10|
iv_class = ''no-pad'' )
&& |), SSL setup (transaction |
&& zcl_abapgit_html=>create( )->a(
iv_txt = ''STRUST''
iv_act = |{ zif_abapgit_definitions=>c_action-jump_transaction }?transaction=STRUST|
iv_class = ''no-pad'' )
&& |), Internet connection monitor (transaction |
&& zcl_abapgit_html=>create( )->a(
iv_txt = ''SMICM''
iv_act = |{ zif_abapgit_definitions=>c_action-jump_transaction }?transaction=SMICM|
iv_class = ''no-pad'' )
&& |)|.
IF lv_proxy IS NOT INITIAL.
rv_longtext = rv_longtext
&& |, and proxy configuration (|
&& zcl_abapgit_html=>create( )->a(
iv_txt = ''global settings''
iv_act = |{ zif_abapgit_definitions=>c_action-go_settings }|
iv_class = ''no-pad'' )
&& |)|.
ENDIF.
rv_longtext = rv_longtext
&& |. It''s recommended to get your SAP Basis and network teams involved. |
&& |For more information and troubleshooting, see the |
&& zcl_abapgit_html=>create( )->a(
iv_txt = ''abapGit documentation''
iv_act = |{ zif_abapgit_definitions=>c_action-url }?url={ lc_docs }|
iv_class = ''no-pad'' )
&& |.|.
ENDMETHOD.
METHOD get_http_client.
DATA:
lv_error TYPE string,
lv_longtext TYPE string,
lv_host TYPE string,
lv_ssl_id TYPE ssfapplssl,
lv_proxy_host TYPE string,
lv_proxy_service TYPE string,
lo_proxy_configuration TYPE REF TO zcl_abapgit_proxy_config.
CREATE OBJECT lo_proxy_configuration.
ri_client = zcl_abapgit_exit=>get_instance( )->create_http_client( iv_url ).
IF ri_client IS INITIAL.
lv_host = zcl_abapgit_url=>host( iv_url ).
lv_ssl_id = zcl_abapgit_exit=>get_instance( )->get_ssl_id( ).
lv_proxy_host = lo_proxy_configuration->get_proxy_url( iv_url ).
lv_proxy_service = lo_proxy_configuration->get_proxy_port( iv_url ).
lv_longtext = get_connection_longtext(
iv_host = lv_host
iv_ssl_id = lv_ssl_id
iv_proxy_host = lv_proxy_host
iv_proxy_service = lv_proxy_service ).
cl_http_client=>create_by_url(
EXPORTING
url = lv_host
ssl_id = lv_ssl_id
proxy_host = lv_proxy_host
proxy_service = lv_proxy_service
IMPORTING
client = ri_client
EXCEPTIONS
argument_not_found = 1
plugin_not_active = 2
internal_error = 3
OTHERS = 4 ).
IF sy-subrc <> 0.
CASE sy-subrc.
WHEN 1.
lv_error = ''ARGUMENT_NOT_FOUND''.
WHEN 2.
lv_error = ''PLUGIN_NOT_ACTIVE''.
WHEN 3.
lv_error = ''INTERNAL_ERROR''.
WHEN OTHERS.
lv_error = |OTHER_ERROR_{ sy-subrc }|.
ENDCASE.
zcx_abapgit_exception=>raise(
iv_text = |Error { lv_error } creating HTTP connection. Check the configuration|
iv_longtext = lv_longtext ).
ENDIF.
ENDIF.
IF lo_proxy_configuration->get_proxy_authentication( iv_url ) = abap_true.
zcl_abapgit_proxy_auth=>run( ri_client ).
ENDIF.
ENDMETHOD.
METHOD is_local_system.
DATA: lv_host TYPE string,
lt_list TYPE zif_abapgit_definitions=>ty_string_tt,
li_exit TYPE REF TO zif_abapgit_exit.
cl_http_server=>get_location( IMPORTING host = lv_host ).
APPEND lv_host TO lt_list.
APPEND ''localhost'' TO lt_list.
li_exit = zcl_abapgit_exit=>get_instance( ).
li_exit->change_local_host( CHANGING ct_hosts = lt_list ).
FIND REGEX ''https?://([^/^:]*)'' IN iv_url SUBMATCHES lv_host.
READ TABLE lt_list WITH KEY table_line = lv_host TRANSPORTING NO FIELDS.
rv_bool = boolc( sy-subrc = 0 ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_HTTP_AGENT ', 'CLASS zcl_abapgit_http_agent DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES zif_abapgit_http_agent .
CLASS-METHODS create
RETURNING
VALUE(ri_instance) TYPE REF TO zif_abapgit_http_agent .
METHODS constructor.
PROTECTED SECTION.
PRIVATE SECTION.
DATA mo_global_headers TYPE REF TO zcl_abapgit_string_map.
CLASS-METHODS attach_payload
IMPORTING
ii_request TYPE REF TO if_http_request
iv_payload TYPE any
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS ZCL_ABAPGIT_HTTP_AGENT IMPLEMENTATION.
METHOD attach_payload.
DATA lo_type TYPE REF TO cl_abap_typedescr.
lo_type = cl_abap_typedescr=>describe_by_data( iv_payload ).
IF lo_type->type_kind = cl_abap_typedescr=>typekind_xstring.
ii_request->set_data( iv_payload ).
ELSEIF lo_type->type_kind = cl_abap_typedescr=>typekind_string.
ii_request->set_cdata( iv_payload ).
ELSE.
zcx_abapgit_exception=>raise( |Unexpected payload type { lo_type->absolute_name }| ).
ENDIF.
ENDMETHOD.
METHOD constructor.
CREATE OBJECT mo_global_headers.
ENDMETHOD.
METHOD create.
CREATE OBJECT ri_instance TYPE zcl_abapgit_http_agent.
ENDMETHOD.
METHOD zif_abapgit_http_agent~global_headers.
ro_global_headers = mo_global_headers.
ENDMETHOD.
METHOD zif_abapgit_http_agent~request.
DATA li_client TYPE REF TO if_http_client.
DATA lo_proxy_configuration TYPE REF TO zcl_abapgit_proxy_config.
DATA lv_code TYPE i.
DATA lv_message TYPE string.
FIELD-SYMBOLS <ls_entry> LIKE LINE OF io_query->mt_entries.
CREATE OBJECT lo_proxy_configuration.
cl_http_client=>create_by_url(
EXPORTING
url = iv_url
ssl_id = zcl_abapgit_exit=>get_instance( )->get_ssl_id( )
proxy_host = lo_proxy_configuration->get_proxy_url( iv_url )
proxy_service = lo_proxy_configuration->get_proxy_port( iv_url )
IMPORTING
client = li_client ).
li_client->request->set_version( if_http_request=>co_protocol_version_1_1 ).
li_client->request->set_method( iv_method ).
IF io_query IS BOUND.
LOOP AT io_query->mt_entries ASSIGNING <ls_entry>.
li_client->request->set_form_field(
name = <ls_entry>-k
value = <ls_entry>-v ).
ENDLOOP.
ENDIF.
LOOP AT mo_global_headers->mt_entries ASSIGNING <ls_entry>.
li_client->request->set_header_field(
name = to_lower( <ls_entry>-k )
value = <ls_entry>-v ).
ENDLOOP.
IF io_headers IS BOUND.
LOOP AT io_headers->mt_entries ASSIGNING <ls_entry>.
li_client->request->set_header_field(
name = to_lower( <ls_entry>-k )
value = <ls_entry>-v ).
ENDLOOP.
ENDIF.
IF iv_method = zif_abapgit_http_agent=>c_methods-post
OR iv_method = zif_abapgit_http_agent=>c_methods-put
OR iv_method = zif_abapgit_http_agent=>c_methods-patch.
attach_payload(
ii_request = li_client->request
iv_payload = iv_payload ).
ENDIF.
li_client->send(
EXCEPTIONS
http_communication_failure = 1
http_invalid_state = 2
http_processing_failed = 3
http_invalid_timeout = 4
OTHERS = 5 ).
IF sy-subrc = 0.
li_client->receive(
EXCEPTIONS
http_communication_failure = 1
http_invalid_state = 2
http_processing_failed = 3
OTHERS = 4 ).
ENDIF.
IF sy-subrc <> 0.
li_client->get_last_error(
IMPORTING
code = lv_code
message = lv_message ).
zcx_abapgit_exception=>raise( |HTTP error: [{ lv_code }] { lv_message }| ).
ENDIF.
ri_response = lcl_http_response=>create( li_client ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_HTTP_CLIENT ', 'CLASS zcl_abapgit_http_client DEFINITION PUBLIC CREATE PUBLIC.
PUBLIC SECTION.
METHODS:
constructor
IMPORTING ii_client TYPE REF TO if_http_client,
close,
set_digest
IMPORTING io_digest TYPE REF TO zcl_abapgit_http_digest,
send_receive_close
IMPORTING iv_data TYPE xstring
RETURNING VALUE(rv_data) TYPE xstring
RAISING zcx_abapgit_exception,
get_cdata
RETURNING VALUE(rv_value) TYPE string,
check_http_200
RAISING zcx_abapgit_exception,
check_smart_response
IMPORTING iv_expected_content_type TYPE string
iv_content_regex TYPE string
RAISING zcx_abapgit_exception,
send_receive
RAISING zcx_abapgit_exception,
set_headers
IMPORTING iv_url TYPE string
iv_service TYPE string
RAISING zcx_abapgit_exception.
METHODS set_header
IMPORTING
iv_key TYPE string
iv_value TYPE string
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
DATA: mi_client TYPE REF TO if_http_client,
mo_digest TYPE REF TO zcl_abapgit_http_digest.
ENDCLASS.
CLASS zcl_abapgit_http_client IMPLEMENTATION.
METHOD check_http_200.
DATA: lv_code TYPE i,
lv_text TYPE string.
mi_client->response->get_status( IMPORTING code = lv_code ).
CASE lv_code.
WHEN 200.
RETURN. " Success, OK
WHEN 302.
zcx_abapgit_exception=>raise( ''Resource access temporarily redirected (HTTP 302). Check the URL'' ).
WHEN 401.
zcx_abapgit_exception=>raise( ''Unauthorized access to resource (HTTP 401). Check your credentials'' ).
WHEN 403.
zcx_abapgit_exception=>raise( ''Access to resource forbidden (HTTP 403)'' ).
WHEN 404.
zcx_abapgit_exception=>raise( ''Resource not found (HTTP 404). Check the URL'' ).
WHEN 407.
zcx_abapgit_exception=>raise( ''Proxy authentication required (HTTP 407). Check your credentials'' ).
WHEN 408.
zcx_abapgit_exception=>raise( ''Request timeout (HTTP 408)'' ).
WHEN 415.
zcx_abapgit_exception=>raise( ''Unsupported media type (HTTP 415)'' ).
WHEN 422.
zcx_abapgit_exception=>raise( ''Unprocessable entity (HTTP 422). Check, if URL has to end with ".git"'' ).
WHEN 426.
zcx_abapgit_exception=>raise(
iv_text = ''Upgrade Required (HTTP 426)''
iv_longtext = |The git server requires a different HTTP-protocol than which is sent. |
&& |abapGit uses HTTP/1.1 as default. |
&& |See more details in the abapGit online documentation.| ).
WHEN OTHERS.
lv_text = mi_client->response->get_cdata( ).
zcx_abapgit_exception=>raise( |(HTTP { lv_code }) { lv_text }| ).
ENDCASE.
ENDMETHOD.
METHOD check_smart_response.
DATA: lv_content_type TYPE string.
DATA: lv_data TYPE string.
IF iv_expected_content_type IS NOT INITIAL.
lv_content_type = mi_client->response->get_content_type( ).
IF lv_content_type <> iv_expected_content_type.
zcx_abapgit_exception=>raise( ''Wrong Content-Type sent by server - no fallback to the dumb protocol!'' ).
ENDIF.
ENDIF.
IF iv_content_regex IS NOT INITIAL.
lv_data = mi_client->response->get_cdata( ).
FIND REGEX iv_content_regex IN lv_data.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''Wrong Content sent by server'' ).
ENDIF.
ENDIF.
ENDMETHOD.
METHOD close.
mi_client->close( ).
ENDMETHOD.
METHOD constructor.
mi_client = ii_client.
ENDMETHOD.
METHOD get_cdata.
rv_value = mi_client->response->get_cdata( ).
ENDMETHOD.
METHOD send_receive.
DATA: lv_text TYPE string,
lv_code TYPE i,
lv_message TYPE string.
mi_client->send(
EXCEPTIONS
http_communication_failure = 1
http_invalid_state = 2
http_processing_failed = 3
http_invalid_timeout = 4
OTHERS = 5 ).
IF sy-subrc = 0.
mi_client->receive(
EXCEPTIONS
http_communication_failure = 1
http_invalid_state = 2
http_processing_failed = 3
OTHERS = 4 ).
ENDIF.
IF sy-subrc <> 0.
" in case of HTTP_COMMUNICATION_FAILURE
" make sure:
" a) SSL is setup properly in STRUST
" b) no firewalls
" check trace file in transaction SMICM
mi_client->get_last_error(
IMPORTING
code = lv_code
message = lv_message ).
lv_text = |HTTP error { lv_code } occurred: { lv_message }|.
zcx_abapgit_exception=>raise( lv_text ).
ENDIF.
ENDMETHOD.
METHOD send_receive_close.
* do not use set_cdata as it modifies the Content-Type header field
mi_client->request->set_data( iv_data ).
send_receive( ).
check_http_200( ).
rv_data = mi_client->response->get_data( ).
mi_client->close( ).
ENDMETHOD.
METHOD set_digest.
mo_digest = io_digest.
ENDMETHOD.
METHOD set_header.
mi_client->request->set_header_field(
name = iv_key
value = iv_value ).
ENDMETHOD.
METHOD set_headers.
DATA: lv_value TYPE string.
mi_client->request->set_header_field(
name = ''~request_method''
value = ''POST'' ).
lv_value = zcl_abapgit_url=>path_name( iv_url ) &&
''/git-'' &&
iv_service &&
''-pack''.
mi_client->request->set_header_field(
name = ''~request_uri''
value = lv_value ).
lv_value = ''application/x-git-''
&& iv_service && ''-pack-request''.
mi_client->request->set_header_field(
name = ''Content-Type''
value = lv_value ).
lv_value = ''application/x-git-''
&& iv_service && ''-pack-result''.
mi_client->request->set_header_field(
name = ''Accept''
value = lv_value ).
IF mo_digest IS BOUND.
mo_digest->run( mi_client ).
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_HTTP_DIGEST ', 'CLASS zcl_abapgit_http_digest DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
METHODS constructor
IMPORTING
!ii_client TYPE REF TO if_http_client
!iv_username TYPE string
!iv_password TYPE string
RAISING
zcx_abapgit_exception.
METHODS run
IMPORTING
!ii_client TYPE REF TO if_http_client
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
DATA: mv_ha1 TYPE string,
mv_username TYPE string,
mv_realm TYPE string,
mv_qop TYPE string,
mv_nonce TYPE string.
CLASS-DATA: gv_nc TYPE n LENGTH 8.
CLASS-METHODS:
md5
IMPORTING
iv_data TYPE string
RETURNING
VALUE(rv_hash) TYPE string
RAISING zcx_abapgit_exception.
METHODS:
hash
IMPORTING
iv_qop TYPE string
iv_nonce TYPE string
iv_uri TYPE string
iv_method TYPE string
iv_cnonse TYPE string
RETURNING
VALUE(rv_response) TYPE string
RAISING zcx_abapgit_exception,
parse
IMPORTING
ii_client TYPE REF TO if_http_client.
ENDCLASS.
CLASS ZCL_ABAPGIT_HTTP_DIGEST IMPLEMENTATION.
METHOD constructor.
parse( ii_client ).
mv_ha1 = md5( |{ iv_username }:{ mv_realm }:{ iv_password }| ).
mv_username = iv_username.
ENDMETHOD.
METHOD hash.
DATA: lv_ha2 TYPE string.
lv_ha2 = md5( |{ iv_method }:{ iv_uri }| ).
ASSERT NOT iv_cnonse IS INITIAL.
rv_response = md5( |{ mv_ha1 }:{ iv_nonce }:{ gv_nc }:{ iv_cnonse }:{ iv_qop }:{ lv_ha2 }| ).
ENDMETHOD.
METHOD md5.
DATA lv_xstr TYPE xstring.
DATA lv_hash TYPE xstring.
DATA lv_empty TYPE xstring.
lv_xstr = zcl_abapgit_convert=>string_to_xstring_utf8( iv_data ).
TRY.
cl_abap_hmac=>calculate_hmac_for_raw(
EXPORTING
if_algorithm = ''MD5''
if_key = lv_empty
if_data = lv_xstr
IMPORTING
ef_hmacxstring = lv_hash ).
CATCH cx_abap_message_digest.
zcx_abapgit_exception=>raise( ''error calculating md5'' ).
ENDTRY.
rv_hash = lv_hash.
TRANSLATE rv_hash TO LOWER CASE.
ENDMETHOD.
METHOD parse.
DATA: lv_value TYPE string.
lv_value = ii_client->response->get_header_field( ''www-authenticate'' ).
FIND REGEX ''realm="([\\w ]+)"'' IN lv_value SUBMATCHES mv_realm.
FIND REGEX ''qop="(\\w+)"'' IN lv_value SUBMATCHES mv_qop.
FIND REGEX ''nonce="([\\w=/+\\$]+)"'' IN lv_value SUBMATCHES mv_nonce.
ENDMETHOD.
METHOD run.
DATA: lv_response TYPE string,
lv_method TYPE string,
lv_cnonce TYPE string,
lv_uri TYPE string,
lv_auth TYPE string.
ASSERT NOT mv_nonce IS INITIAL.
lv_method = ii_client->request->get_header_field( ''~request_method'' ).
lv_uri = ii_client->request->get_header_field( ''~request_uri'' ).
CALL FUNCTION ''GENERAL_GET_RANDOM_STRING''
EXPORTING
number_chars = 24
IMPORTING
random_string = lv_cnonce.
lv_response = hash(
iv_qop = mv_qop
iv_nonce = mv_nonce
iv_uri = lv_uri
iv_method = lv_method
iv_cnonse = lv_cnonce ).
* client response
lv_auth = |Digest username="{ mv_username
}", realm="{ mv_realm
}", nonce="{ mv_nonce
}", uri="{ lv_uri
}", qop={ mv_qop
}, nc={ gv_nc
}, cnonce="{ lv_cnonce
}", response="{ lv_response }"|.
ii_client->request->set_header_field(
name = ''Authorization''
value = lv_auth ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_LOGIN_MANAGER ', 'CLASS zcl_abapgit_login_manager DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS load
IMPORTING
!iv_uri TYPE string
RETURNING
VALUE(rv_authorization) TYPE string
RAISING
zcx_abapgit_exception .
CLASS-METHODS save
IMPORTING
!iv_uri TYPE string
!iv_authorization TYPE string
RAISING
zcx_abapgit_exception .
CLASS-METHODS clear .
CLASS-METHODS set
IMPORTING
!iv_uri TYPE string
!iv_username TYPE string
!iv_password TYPE string
RETURNING
VALUE(rv_auth) TYPE string
RAISING
zcx_abapgit_exception .
CLASS-METHODS get
IMPORTING
!iv_uri TYPE string
RETURNING
VALUE(rv_auth) TYPE string
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
PRIVATE SECTION.
TYPES:
BEGIN OF ty_auth,
uri TYPE string,
authorization TYPE string,
END OF ty_auth .
CLASS-DATA:
gt_auth TYPE TABLE OF ty_auth WITH DEFAULT KEY .
CLASS-METHODS append
IMPORTING
!iv_uri TYPE string
!iv_auth TYPE string
RAISING
zcx_abapgit_exception .
ENDCLASS.
CLASS ZCL_ABAPGIT_LOGIN_MANAGER IMPLEMENTATION.
METHOD append.
FIELD-SYMBOLS: <ls_auth> LIKE LINE OF gt_auth.
READ TABLE gt_auth WITH KEY uri = zcl_abapgit_url=>host( iv_uri )
TRANSPORTING NO FIELDS.
IF sy-subrc <> 0.
APPEND INITIAL LINE TO gt_auth ASSIGNING <ls_auth>.
<ls_auth>-uri = zcl_abapgit_url=>host( iv_uri ).
<ls_auth>-authorization = iv_auth.
ENDIF.
ENDMETHOD.
METHOD clear.
CLEAR gt_auth.
ENDMETHOD.
METHOD get.
DATA ls_auth LIKE LINE OF gt_auth.
READ TABLE gt_auth INTO ls_auth WITH KEY uri = zcl_abapgit_url=>host( iv_uri ).
IF sy-subrc = 0.
rv_auth = ls_auth-authorization.
ENDIF.
ENDMETHOD.
METHOD load.
DATA ls_auth LIKE LINE OF gt_auth.
READ TABLE gt_auth INTO ls_auth WITH KEY uri = zcl_abapgit_url=>host( iv_uri ).
IF sy-subrc = 0.
rv_authorization = ls_auth-authorization.
ENDIF.
ENDMETHOD.
METHOD save.
IF NOT iv_authorization IS INITIAL.
append( iv_uri = iv_uri
iv_auth = iv_authorization ).
ENDIF.
ENDMETHOD.
METHOD set.
DATA: lv_concat TYPE string.
ASSERT NOT iv_uri IS INITIAL.
IF iv_username IS INITIAL OR iv_password IS INITIAL.
RETURN.
ENDIF.
CONCATENATE iv_username '':'' iv_password INTO lv_concat.
rv_auth = cl_http_utility=>encode_base64( lv_concat ).
CONCATENATE ''Basic'' rv_auth INTO rv_auth
SEPARATED BY space.
append( iv_uri = iv_uri
iv_auth = rv_auth ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_PROXY_AUTH ', 'CLASS zcl_abapgit_proxy_auth DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS:
run
IMPORTING ii_client TYPE REF TO if_http_client
RAISING zcx_abapgit_exception.
PRIVATE SECTION.
CLASS-DATA: gv_username TYPE string,
gv_password TYPE string.
CLASS-METHODS: enter RAISING zcx_abapgit_exception.
ENDCLASS.
CLASS ZCL_ABAPGIT_PROXY_AUTH IMPLEMENTATION.
METHOD enter.
zcl_abapgit_password_dialog=>popup(
EXPORTING
iv_repo_url = ''Proxy Authentication''
CHANGING
cv_user = gv_username
cv_pass = gv_password ).
IF gv_username IS INITIAL OR gv_password IS INITIAL.
zcx_abapgit_exception=>raise( ''Proxy auth failed'' ).
ENDIF.
ENDMETHOD.
METHOD run.
IF gv_username IS INITIAL OR gv_password IS INITIAL.
enter( ).
ENDIF.
ii_client->authenticate(
proxy_authentication = abap_true
username = gv_username
password = gv_password ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_PROXY_CONFIG ', 'CLASS zcl_abapgit_proxy_config DEFINITION PUBLIC FINAL CREATE PUBLIC.
PUBLIC SECTION.
METHODS:
constructor,
get_proxy_url
IMPORTING
iv_repo_url TYPE csequence OPTIONAL
RETURNING
VALUE(rv_proxy_url) TYPE string,
get_proxy_port
IMPORTING
iv_repo_url TYPE csequence OPTIONAL
RETURNING
VALUE(rv_port) TYPE string,
get_proxy_authentication
IMPORTING
iv_repo_url TYPE csequence OPTIONAL
RETURNING
VALUE(rv_auth) TYPE abap_bool.
PROTECTED SECTION.
PRIVATE SECTION.
DATA: mo_settings TYPE REF TO zcl_abapgit_settings,
mi_exit TYPE REF TO zif_abapgit_exit.
METHODS:
bypass_proxy
IMPORTING
iv_repo_url TYPE csequence OPTIONAL
RETURNING
VALUE(rv_bypass_proxy) TYPE abap_bool.
ENDCLASS.
CLASS ZCL_ABAPGIT_PROXY_CONFIG IMPLEMENTATION.
METHOD bypass_proxy.
DATA lt_proxy_bypass TYPE zif_abapgit_definitions=>ty_range_proxy_bypass_url.
lt_proxy_bypass = mo_settings->get_proxy_bypass( ).
IF lt_proxy_bypass IS NOT INITIAL
AND iv_repo_url IN lt_proxy_bypass.
rv_bypass_proxy = abap_true.
ENDIF.
ENDMETHOD.
METHOD constructor.
mo_settings = zcl_abapgit_persist_factory=>get_settings( )->read( ).
mi_exit = zcl_abapgit_exit=>get_instance( ).
ENDMETHOD.
METHOD get_proxy_authentication.
IF bypass_proxy( iv_repo_url ) = abap_false.
rv_auth = mo_settings->get_proxy_authentication( ).
ENDIF.
mi_exit->change_proxy_authentication(
EXPORTING
iv_repo_url = iv_repo_url
CHANGING
cv_proxy_authentication = rv_auth ).
ENDMETHOD.
METHOD get_proxy_port.
IF bypass_proxy( iv_repo_url ) = abap_false.
rv_port = mo_settings->get_proxy_port( ).
ENDIF.
mi_exit->change_proxy_port(
EXPORTING
iv_repo_url = iv_repo_url
CHANGING
cv_proxy_port = rv_port ).
CONDENSE rv_port.
ENDMETHOD.
METHOD get_proxy_url.
IF bypass_proxy( iv_repo_url ) = abap_false.
rv_proxy_url = mo_settings->get_proxy_url( ).
ENDIF.
mi_exit->change_proxy_url(
EXPORTING
iv_repo_url = iv_repo_url
CHANGING
cv_proxy_url = rv_proxy_url ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_URL ', 'CLASS zcl_abapgit_url DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS validate
IMPORTING
!iv_url TYPE string
RAISING
zcx_abapgit_exception .
CLASS-METHODS host
IMPORTING
!iv_url TYPE string
RETURNING
VALUE(rv_host) TYPE string
RAISING
zcx_abapgit_exception .
CLASS-METHODS name
IMPORTING
!iv_url TYPE string
!iv_validate TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(rv_name) TYPE string
RAISING
zcx_abapgit_exception .
CLASS-METHODS path_name
IMPORTING
!iv_url TYPE string
RETURNING
VALUE(rv_path_name) TYPE string
RAISING
zcx_abapgit_exception .
CLASS-METHODS is_abapgit_repo
IMPORTING
!iv_url TYPE string
RETURNING
VALUE(rv_abapgit) TYPE abap_bool .
CLASS-METHODS url_address
IMPORTING
!iv_url TYPE string
RETURNING
VALUE(rv_adress) TYPE string
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-METHODS regex
IMPORTING
!iv_url TYPE string
EXPORTING
!ev_host TYPE string
!ev_path TYPE string
!ev_name TYPE string
RAISING
zcx_abapgit_exception .
ENDCLASS.
CLASS zcl_abapgit_url IMPLEMENTATION.
METHOD host.
regex( EXPORTING iv_url = iv_url
IMPORTING ev_host = rv_host ).
ENDMETHOD.
METHOD is_abapgit_repo.
IF iv_url CS ''github.com'' AND ( iv_url CP ''*/abapGit'' OR iv_url CP ''*/abapGit.git'' ).
rv_abapgit = abap_true.
ENDIF.
ENDMETHOD.
METHOD name.
DATA: lv_path TYPE string.
TRY.
regex( EXPORTING iv_url = iv_url
IMPORTING ev_name = rv_name
ev_path = lv_path ).
IF rv_name IS INITIAL.
FIND REGEX ''([\\w-]+)/$'' IN lv_path SUBMATCHES rv_name.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''Malformed URL'' ).
ENDIF.
ENDIF.
CATCH zcx_abapgit_exception.
IF iv_validate = abap_true.
zcx_abapgit_exception=>raise( ''Malformed URL'' ).
ELSE.
rv_name = ''URL error (fix repo with "Advanced > Change Remote")''.
ENDIF.
ENDTRY.
ENDMETHOD.
METHOD path_name.
DATA: lv_host TYPE string ##NEEDED.
FIND REGEX ''(.*://[^/]*)(.*)'' IN iv_url
SUBMATCHES lv_host rv_path_name.
ENDMETHOD.
METHOD regex.
FIND REGEX ''^(https?://[^/]*)(.*/)(.*)\\.git$'' IN iv_url
SUBMATCHES ev_host ev_path ev_name.
IF sy-subrc <> 0.
FIND REGEX ''^(https?://[^/]*)(.*/)(.*)$'' IN iv_url
SUBMATCHES ev_host ev_path ev_name.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''Malformed URL'' ).
ENDIF.
ENDIF.
ENDMETHOD.
METHOD url_address.
DATA:
lv_host TYPE string,
lv_path TYPE string,
lv_name TYPE string,
lv_len TYPE i.
regex( EXPORTING iv_url = iv_url
IMPORTING ev_host = lv_host
ev_path = lv_path
ev_name = lv_name ).
IF lv_path IS INITIAL AND lv_name IS INITIAL.
zcx_abapgit_exception=>raise( ''Malformed URL'' ).
ELSEIF lv_name IS INITIAL.
lv_len = strlen( lv_path ) - 1.
IF lv_path+lv_len(1) = ''/''.
lv_path = lv_path(lv_len).
ENDIF.
ENDIF.
rv_adress = |{ lv_host }{ lv_path }{ lv_name }|.
ENDMETHOD.
METHOD validate.
name( iv_url = iv_url
iv_validate = abap_true ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_HTTP_AGENT ', 'INTERFACE zif_abapgit_http_agent
PUBLIC .
CONSTANTS:
BEGIN OF c_methods,
get TYPE string VALUE ''GET'',
post TYPE string VALUE ''POST'',
put TYPE string VALUE ''PUT'',
delete TYPE string VALUE ''DELETE'',
patch TYPE string VALUE ''PATCH'',
END OF c_methods.
METHODS global_headers
RETURNING
VALUE(ro_global_headers) TYPE REF TO zcl_abapgit_string_map.
METHODS request
IMPORTING
!iv_url TYPE string
!iv_method TYPE string DEFAULT c_methods-get
!io_query TYPE REF TO zcl_abapgit_string_map OPTIONAL
!io_headers TYPE REF TO zcl_abapgit_string_map OPTIONAL
!iv_payload TYPE any OPTIONAL " can be string, xstring
RETURNING
VALUE(ri_response) TYPE REF TO zif_abapgit_http_response
RAISING
zcx_abapgit_exception .
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_HTTP_RESPONSE ', 'INTERFACE zif_abapgit_http_response
PUBLIC .
METHODS data
RETURNING
VALUE(rv_data) TYPE xstring .
METHODS cdata
RETURNING
VALUE(rv_data) TYPE string .
METHODS json
RETURNING
VALUE(ri_json) TYPE REF TO zif_abapgit_ajson
RAISING
zcx_abapgit_ajson_error .
METHODS is_ok
RETURNING
VALUE(rv_yes) TYPE abap_bool .
METHODS code
RETURNING
VALUE(rv_code) TYPE i .
METHODS error
RETURNING
VALUE(rv_message) TYPE string .
METHODS headers
RETURNING
VALUE(ro_headers) TYPE REF TO zcl_abapgit_string_map
RAISING
zcx_abapgit_exception .
METHODS close .
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_CODE_INSPECTOR ', 'CLASS zcl_abapgit_code_inspector DEFINITION
PUBLIC
CREATE PROTECTED
GLOBAL FRIENDS zcl_abapgit_factory .
PUBLIC SECTION.
INTERFACES zif_abapgit_code_inspector .
METHODS constructor
IMPORTING
!iv_package TYPE devclass
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
DATA mv_package TYPE devclass .
METHODS create_variant
IMPORTING
!iv_variant TYPE sci_chkv
RETURNING
VALUE(ro_variant) TYPE REF TO cl_ci_checkvariant
RAISING
zcx_abapgit_exception .
METHODS cleanup
IMPORTING
!io_set TYPE REF TO cl_ci_objectset
RAISING
zcx_abapgit_exception .
METHODS skip_object
IMPORTING
!is_obj TYPE scir_objs
RETURNING
VALUE(rv_skip) TYPE abap_bool.
PRIVATE SECTION.
DATA mv_success TYPE abap_bool .
DATA mv_summary TYPE string.
TYPES: ty_run_mode TYPE c LENGTH 1.
CONSTANTS:
BEGIN OF co_run_mode,
run_with_popup TYPE ty_run_mode VALUE ''P'',
run_after_popup TYPE ty_run_mode VALUE ''A'',
run_via_rfc TYPE ty_run_mode VALUE ''R'',
run_in_batch TYPE ty_run_mode VALUE ''B'',
run_loc_parallel TYPE ty_run_mode VALUE ''L'',
run_direct TYPE ty_run_mode VALUE ''L'',
END OF co_run_mode .
DATA mo_inspection TYPE REF TO cl_ci_inspection .
DATA mv_name TYPE sci_objs .
DATA mv_run_mode TYPE c LENGTH 1 .
METHODS create_objectset
RETURNING
VALUE(ro_set) TYPE REF TO cl_ci_objectset .
METHODS run_inspection
IMPORTING
!io_inspection TYPE REF TO cl_ci_inspection
RETURNING
VALUE(rt_list) TYPE scit_alvlist
RAISING
zcx_abapgit_exception .
METHODS create_inspection
IMPORTING
!io_set TYPE REF TO cl_ci_objectset
!io_variant TYPE REF TO cl_ci_checkvariant
RETURNING
VALUE(ro_inspection) TYPE REF TO cl_ci_inspection
RAISING
zcx_abapgit_exception .
METHODS decide_run_mode
RETURNING
VALUE(rv_run_mode) TYPE ty_run_mode .
METHODS filter_inspection
CHANGING
!ct_list TYPE scit_alvlist .
ENDCLASS.
CLASS zcl_abapgit_code_inspector IMPLEMENTATION.
METHOD cleanup.
IF mo_inspection IS BOUND.
mo_inspection->delete(
EXCEPTIONS
locked = 1
error_in_enqueue = 2
not_authorized = 3
exceptn_appl_exists = 4
OTHERS = 5 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Couldn''t delete inspection. Subrc = { sy-subrc }| ).
ENDIF.
ENDIF.
io_set->delete(
EXCEPTIONS
exists_in_insp = 1
locked = 2
error_in_enqueue = 3
not_authorized = 4
exists_in_objs = 5
OTHERS = 6 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Couldn''t delete objectset. Subrc = { sy-subrc }| ).
ENDIF.
ENDMETHOD.
METHOD constructor.
IF iv_package IS INITIAL.
zcx_abapgit_exception=>raise( |Please supply package| ).
ENDIF.
mv_package = iv_package.
" We create the inspection and objectset with dummy names.
" Because we want to persist them so we can run it in parallel.
" Both are deleted afterwards.
mv_name = |{ sy-uname }_{ sy-datum }_{ sy-uzeit }|.
mv_run_mode = decide_run_mode( ).
ENDMETHOD.
METHOD create_inspection.
cl_ci_inspection=>create(
EXPORTING
p_user = sy-uname
p_name = mv_name
RECEIVING
p_ref = ro_inspection
EXCEPTIONS
locked = 1
error_in_enqueue = 2
not_authorized = 3
OTHERS = 4 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Failed to create inspection. Subrc = { sy-subrc }| ).
ENDIF.
ro_inspection->set(
p_chkv = io_variant
p_objs = io_set ).
ro_inspection->save(
EXCEPTIONS
missing_information = 1
insp_no_name = 2
not_enqueued = 3
OTHERS = 4 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Failed to save inspection. Subrc = { sy-subrc }| ).
ENDIF.
ENDMETHOD.
METHOD create_objectset.
DATA: lt_objs TYPE scit_objs,
ls_obj TYPE scir_objs,
lt_objs_check TYPE scit_objs,
ls_item TYPE zif_abapgit_definitions=>ty_item,
lt_packages TYPE zif_abapgit_sap_package=>ty_devclass_tt.
lt_packages = zcl_abapgit_factory=>get_sap_package( mv_package )->list_subpackages( ).
INSERT mv_package INTO TABLE lt_packages.
SELECT object AS objtype obj_name AS objname
FROM tadir
INTO CORRESPONDING FIELDS OF TABLE lt_objs
FOR ALL ENTRIES IN lt_packages
WHERE devclass = lt_packages-table_line
AND delflag = abap_false
AND pgmid = ''R3TR'' ##TOO_MANY_ITAB_FIELDS. "#EC CI_GENBUFF
LOOP AT lt_objs INTO ls_obj.
IF skip_object( ls_obj ) = abap_true.
CONTINUE.
ENDIF.
ls_item-obj_type = ls_obj-objtype.
ls_item-obj_name = ls_obj-objname.
IF zcl_abapgit_objects=>exists( ls_item ) = abap_false.
CONTINUE.
ENDIF.
INSERT ls_obj INTO TABLE lt_objs_check.
ENDLOOP.
ro_set = cl_ci_objectset=>save_from_list(
p_name = mv_name
p_objects = lt_objs_check ).
ENDMETHOD.
METHOD create_variant.
IF iv_variant IS INITIAL.
zcx_abapgit_exception=>raise( |No check variant supplied.| ).
ENDIF.
cl_ci_checkvariant=>get_ref(
EXPORTING
p_user = ''''
p_name = iv_variant
RECEIVING
p_ref = ro_variant
EXCEPTIONS
chkv_not_exists = 1
missing_parameter = 2
OTHERS = 3 ).
CASE sy-subrc.
WHEN 1.
zcx_abapgit_exception=>raise( |Check variant { iv_variant } doesn''t exist| ).
WHEN 2.
zcx_abapgit_exception=>raise( |Parameter missing for check variant { iv_variant }| ).
ENDCASE.
ENDMETHOD.
METHOD decide_run_mode.
DATA lo_settings TYPE REF TO zcl_abapgit_settings.
lo_settings = zcl_abapgit_persist_factory=>get_settings( )->read( ).
IF sy-batch = abap_true.
" We have to disable parallelization in batch because of lock errors.
rv_run_mode = co_run_mode-run_via_rfc.
ELSEIF lo_settings->get_parallel_proc_disabled( ) = abap_false.
rv_run_mode = co_run_mode-run_loc_parallel.
ELSE.
rv_run_mode = co_run_mode-run_via_rfc.
ENDIF.
ENDMETHOD.
METHOD filter_inspection.
" Remove findings in LSVIM* includes which are part of generated maintenance screens
DELETE ct_list WHERE sobjtype = ''PROG'' AND sobjname CP ''LSVIM*''.
ENDMETHOD.
METHOD run_inspection.
io_inspection->run(
EXPORTING
p_howtorun = mv_run_mode
EXCEPTIONS
invalid_check_version = 1
OTHERS = 2 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Code inspector run failed. Subrc = { sy-subrc }| ).
ENDIF.
io_inspection->plain_list( IMPORTING p_list = rt_list ).
filter_inspection( CHANGING ct_list = rt_list ).
SORT rt_list BY objtype objname test code sobjtype sobjname line col.
DELETE ADJACENT DUPLICATES FROM rt_list.
ENDMETHOD.
METHOD skip_object.
DATA ls_program_type TYPE subc.
CASE is_obj-objtype.
WHEN ''PROG''.
SELECT SINGLE subc
INTO ls_program_type
FROM trdir
WHERE name = is_obj-objname.
rv_skip = boolc( ls_program_type = ''I'' ). " Include program.
WHEN OTHERS.
rv_skip = abap_false.
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_code_inspector~get_summary.
rv_summary = mv_summary.
ENDMETHOD.
METHOD zif_abapgit_code_inspector~is_successful.
rv_success = mv_success.
ENDMETHOD.
METHOD zif_abapgit_code_inspector~list_global_variants.
SELECT scichkv_hd~checkvname AS name
scichkv_tx~text AS description
INTO TABLE rt_list
FROM scichkv_hd
LEFT OUTER JOIN scichkv_tx
ON scichkv_hd~checkvid = scichkv_tx~checkvid
AND scichkv_hd~ciuser = scichkv_tx~ciuser
AND scichkv_tx~language = sy-langu
WHERE scichkv_hd~ciuser = space
ORDER BY name.
ENDMETHOD.
METHOD zif_abapgit_code_inspector~run.
DATA: lo_set TYPE REF TO cl_ci_objectset,
lo_variant TYPE REF TO cl_ci_checkvariant,
lv_count TYPE i,
lt_list TYPE scit_alvlist,
ls_list LIKE LINE OF lt_list,
ls_result LIKE LINE OF rt_list,
lo_timer TYPE REF TO zcl_abapgit_timer,
lx_error TYPE REF TO zcx_abapgit_exception.
TRY.
lo_set = create_objectset( ).
lv_count = lines( lo_set->iobjlst-objects ).
IF lv_count = 0.
" no objects, nothing to check
RETURN.
ENDIF.
lo_timer = zcl_abapgit_timer=>create( iv_count = lv_count )->start( ).
lo_variant = create_variant( iv_variant ).
mo_inspection = create_inspection(
io_set = lo_set
io_variant = lo_variant ).
lt_list = run_inspection( mo_inspection ).
cleanup( lo_set ).
LOOP AT lt_list INTO ls_list.
MOVE-CORRESPONDING ls_list TO ls_result.
INSERT ls_result INTO TABLE rt_list.
ENDLOOP.
IF iv_save = abap_true.
READ TABLE rt_list TRANSPORTING NO FIELDS WITH KEY kind = ''E''.
mv_success = boolc( sy-subrc <> 0 ).
ENDIF.
CATCH zcx_abapgit_exception INTO lx_error.
" ensure cleanup
cleanup( lo_set ).
zcx_abapgit_exception=>raise_with_text( lx_error ).
ENDTRY.
mv_summary = lo_timer->end( ).
ENDMETHOD.
METHOD zif_abapgit_code_inspector~validate_check_variant.
cl_ci_checkvariant=>get_ref(
EXPORTING
p_user = ''''
p_name = iv_check_variant_name
EXCEPTIONS
chkv_not_exists = 1
missing_parameter = 2
OTHERS = 3 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |No valid check variant { iv_check_variant_name }| ).
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_CODE_INSPECTOR ', 'INTERFACE zif_abapgit_code_inspector
PUBLIC .
TYPES: BEGIN OF ty_result,
objtype TYPE tadir-object,
objname TYPE tadir-obj_name,
sobjtype TYPE c LENGTH 4,
sobjname TYPE c LENGTH 40,
kind TYPE c LENGTH 1,
line TYPE n LENGTH 6,
col TYPE n LENGTH 4,
code TYPE c LENGTH 10,
test TYPE c LENGTH 30,
text TYPE string,
param1 TYPE c LENGTH 80,
END OF ty_result.
TYPES ty_results TYPE STANDARD TABLE OF ty_result WITH DEFAULT KEY.
TYPES: BEGIN OF ty_variant,
name TYPE sci_chkv,
description TYPE string,
END OF ty_variant.
TYPES ty_variants TYPE STANDARD TABLE OF ty_variant WITH DEFAULT KEY.
METHODS run
IMPORTING
!iv_variant TYPE sci_chkv
!iv_save TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(rt_list) TYPE ty_results
RAISING
zcx_abapgit_exception .
METHODS is_successful
RETURNING
VALUE(rv_success) TYPE abap_bool .
METHODS get_summary
RETURNING
VALUE(rv_summary) TYPE string.
METHODS validate_check_variant
IMPORTING
!iv_check_variant_name TYPE sci_chkv
RAISING
zcx_abapgit_exception.
METHODS list_global_variants
RETURNING
VALUE(rt_list) TYPE ty_variants.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_AJSON ', 'CLASS zcl_abapgit_ajson DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES zif_abapgit_ajson .
ALIASES:
is_empty FOR zif_abapgit_ajson~is_empty,
exists FOR zif_abapgit_ajson~exists,
members FOR zif_abapgit_ajson~members,
get FOR zif_abapgit_ajson~get,
get_boolean FOR zif_abapgit_ajson~get_boolean,
get_integer FOR zif_abapgit_ajson~get_integer,
get_number FOR zif_abapgit_ajson~get_number,
get_date FOR zif_abapgit_ajson~get_date,
get_timestamp FOR zif_abapgit_ajson~get_timestamp,
get_string FOR zif_abapgit_ajson~get_string,
slice FOR zif_abapgit_ajson~slice,
to_abap FOR zif_abapgit_ajson~to_abap,
array_to_string_table FOR zif_abapgit_ajson~array_to_string_table.
ALIASES:
clear FOR zif_abapgit_ajson~clear,
set FOR zif_abapgit_ajson~set,
setx FOR zif_abapgit_ajson~setx,
set_boolean FOR zif_abapgit_ajson~set_boolean,
set_string FOR zif_abapgit_ajson~set_string,
set_integer FOR zif_abapgit_ajson~set_integer,
set_date FOR zif_abapgit_ajson~set_date,
set_timestamp FOR zif_abapgit_ajson~set_timestamp,
set_null FOR zif_abapgit_ajson~set_null,
delete FOR zif_abapgit_ajson~delete,
touch_array FOR zif_abapgit_ajson~touch_array,
push FOR zif_abapgit_ajson~push,
stringify FOR zif_abapgit_ajson~stringify.
ALIASES:
clone FOR zif_abapgit_ajson~clone,
filter FOR zif_abapgit_ajson~filter,
map FOR zif_abapgit_ajson~map.
ALIASES:
mt_json_tree FOR zif_abapgit_ajson~mt_json_tree,
keep_item_order FOR zif_abapgit_ajson~keep_item_order,
format_datetime FOR zif_abapgit_ajson~format_datetime,
to_abap_corresponding_only FOR zif_abapgit_ajson~to_abap_corresponding_only,
freeze FOR zif_abapgit_ajson~freeze.
CLASS-METHODS parse
IMPORTING
!iv_json TYPE string
!iv_freeze TYPE abap_bool DEFAULT abap_false
!ii_custom_mapping TYPE REF TO zif_abapgit_ajson_mapping OPTIONAL
!iv_keep_item_order TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(ro_instance) TYPE REF TO zcl_abapgit_ajson
RAISING
zcx_abapgit_ajson_error .
CLASS-METHODS create_empty " Might be deprecated, prefer using new( ) or create object
IMPORTING
!ii_custom_mapping TYPE REF TO zif_abapgit_ajson_mapping OPTIONAL
iv_keep_item_order TYPE abap_bool DEFAULT abap_false
iv_format_datetime TYPE abap_bool DEFAULT abap_true
iv_to_abap_corresponding_only TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(ro_instance) TYPE REF TO zcl_abapgit_ajson.
" Experimental ! May change
CLASS-METHODS create_from " TODO, rename to ''from'' ?
IMPORTING
!ii_source_json TYPE REF TO zif_abapgit_ajson
!ii_filter TYPE REF TO zif_abapgit_ajson_filter OPTIONAL " Might be deprecated, use filter() instead
!ii_mapper TYPE REF TO zif_abapgit_ajson_mapping OPTIONAL " Might be deprecated, use map() instead
RETURNING
VALUE(ro_instance) TYPE REF TO zcl_abapgit_ajson
RAISING
zcx_abapgit_ajson_error .
METHODS constructor
IMPORTING
iv_keep_item_order TYPE abap_bool DEFAULT abap_false
iv_format_datetime TYPE abap_bool DEFAULT abap_true
iv_to_abap_corresponding_only TYPE abap_bool DEFAULT abap_false.
CLASS-METHODS new
IMPORTING
iv_keep_item_order TYPE abap_bool DEFAULT abap_false
iv_format_datetime TYPE abap_bool DEFAULT abap_true
iv_to_abap_corresponding_only TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(ro_instance) TYPE REF TO zcl_abapgit_ajson.
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-DATA go_float_regex TYPE REF TO cl_abap_regex.
DATA ms_opts TYPE zif_abapgit_ajson=>ty_opts.
DATA mi_custom_mapping TYPE REF TO zif_abapgit_ajson_mapping. " DEPRECATED, will be removed
METHODS get_item
IMPORTING
iv_path TYPE string
RETURNING
VALUE(rv_item) TYPE REF TO zif_abapgit_ajson_types=>ty_node.
METHODS prove_path_exists
IMPORTING
iv_path TYPE string
RETURNING
VALUE(rr_end_node) TYPE REF TO zif_abapgit_ajson_types=>ty_node
RAISING
zcx_abapgit_ajson_error.
METHODS delete_subtree
IMPORTING
iv_path TYPE string
iv_name TYPE string
ir_parent TYPE REF TO zif_abapgit_ajson_types=>ty_node OPTIONAL
RETURNING
VALUE(rs_top_node) TYPE zif_abapgit_ajson_types=>ty_node.
METHODS read_only_watchdog
RAISING
zcx_abapgit_ajson_error.
ENDCLASS.
CLASS zcl_abapgit_ajson IMPLEMENTATION.
METHOD constructor.
ms_opts-keep_item_order = iv_keep_item_order.
ms_opts-to_abap_corresponding_only = iv_to_abap_corresponding_only.
format_datetime( iv_format_datetime ).
ENDMETHOD.
METHOD create_empty.
CREATE OBJECT ro_instance
EXPORTING
iv_to_abap_corresponding_only = iv_to_abap_corresponding_only
iv_format_datetime = iv_format_datetime
iv_keep_item_order = iv_keep_item_order.
ro_instance->mi_custom_mapping = ii_custom_mapping.
ENDMETHOD.
METHOD create_from.
DATA lo_mutator_queue TYPE REF TO lcl_mutator_queue.
IF ii_source_json IS NOT BOUND.
zcx_abapgit_ajson_error=>raise( ''Source not bound'' ).
ENDIF.
CREATE OBJECT ro_instance
EXPORTING
iv_to_abap_corresponding_only = ii_source_json->opts( )-to_abap_corresponding_only
iv_format_datetime = ii_source_json->opts( )-format_datetime
iv_keep_item_order = ii_source_json->opts( )-keep_item_order.
IF ii_filter IS NOT BOUND AND ii_mapper IS NOT BOUND.
ro_instance->mt_json_tree = ii_source_json->mt_json_tree.
ELSE.
CREATE OBJECT lo_mutator_queue.
IF ii_mapper IS BOUND.
" Mapping goes first. But maybe it should be a freely definable queue of processors ?
lo_mutator_queue->add( lcl_mapper_runner=>new( ii_mapper ) ).
ENDIF.
IF ii_filter IS BOUND.
lo_mutator_queue->add( lcl_filter_runner=>new( ii_filter ) ).
ENDIF.
lo_mutator_queue->lif_mutator_runner~run(
EXPORTING
it_source_tree = ii_source_json->mt_json_tree
IMPORTING
et_dest_tree = ro_instance->mt_json_tree ).
ENDIF.
ENDMETHOD.
METHOD delete_subtree.
DATA lv_parent_path TYPE string.
DATA lr_parent LIKE ir_parent.
READ TABLE mt_json_tree INTO rs_top_node
WITH KEY
path = iv_path
name = iv_name.
IF sy-subrc <> 0.
RETURN. " Not found ? nothing to delete !
ENDIF.
DELETE mt_json_tree INDEX sy-tabix. " where path = iv_path and name = iv_name.
IF rs_top_node-children > 0. " only for objects and arrays
lv_parent_path = iv_path && iv_name && ''/*''.
DELETE mt_json_tree WHERE path CP lv_parent_path.
ENDIF.
" decrement parent children
IF ir_parent IS SUPPLIED.
ir_parent->children = ir_parent->children - 1.
ELSE.
lr_parent = get_item( iv_path ).
IF lr_parent IS NOT INITIAL.
lr_parent->children = lr_parent->children - 1.
ENDIF.
ENDIF.
ENDMETHOD.
METHOD get_item.
FIELD-SYMBOLS <item> LIKE LINE OF mt_json_tree.
DATA ls_path_name TYPE zif_abapgit_ajson_types=>ty_path_name.
ls_path_name = lcl_utils=>split_path( iv_path ).
READ TABLE mt_json_tree
ASSIGNING <item>
WITH KEY
path = ls_path_name-path
name = ls_path_name-name.
IF sy-subrc = 0.
GET REFERENCE OF <item> INTO rv_item.
ENDIF.
ENDMETHOD.
METHOD new.
CREATE OBJECT ro_instance
EXPORTING
iv_to_abap_corresponding_only = iv_to_abap_corresponding_only
iv_format_datetime = iv_format_datetime
iv_keep_item_order = iv_keep_item_order.
ENDMETHOD.
METHOD parse.
DATA lo_parser TYPE REF TO lcl_json_parser.
CREATE OBJECT ro_instance.
CREATE OBJECT lo_parser.
ro_instance->mt_json_tree = lo_parser->parse(
iv_json = iv_json
iv_keep_item_order = iv_keep_item_order ).
ro_instance->mi_custom_mapping = ii_custom_mapping.
ro_instance->ms_opts-keep_item_order = iv_keep_item_order.
IF iv_freeze = abap_true.
ro_instance->freeze( ).
ENDIF.
ENDMETHOD.
METHOD prove_path_exists.
DATA lt_path TYPE string_table.
DATA lr_node_parent LIKE rr_end_node.
DATA lv_cur_path TYPE string.
DATA lv_cur_name TYPE string.
DATA ls_new_node LIKE LINE OF mt_json_tree.
SPLIT iv_path AT ''/'' INTO TABLE lt_path.
DELETE lt_path WHERE table_line IS INITIAL.
DO.
lr_node_parent = rr_end_node.
READ TABLE mt_json_tree REFERENCE INTO rr_end_node
WITH KEY
path = lv_cur_path
name = lv_cur_name.
IF sy-subrc <> 0. " New node, assume it is always object as it has a named child, use touch_array to init array
CLEAR ls_new_node.
IF lr_node_parent IS NOT INITIAL. " if has parent
lr_node_parent->children = lr_node_parent->children + 1.
IF lr_node_parent->type = zif_abapgit_ajson_types=>node_type-array.
ls_new_node-index = lcl_utils=>validate_array_index(
iv_path = lv_cur_path
iv_index = lv_cur_name ).
ENDIF.
ENDIF.
ls_new_node-path = lv_cur_path.
ls_new_node-name = lv_cur_name.
ls_new_node-type = zif_abapgit_ajson_types=>node_type-object.
INSERT ls_new_node INTO TABLE mt_json_tree REFERENCE INTO rr_end_node.
ENDIF.
lv_cur_path = lv_cur_path && lv_cur_name && ''/''.
READ TABLE lt_path INDEX sy-index INTO lv_cur_name.
IF sy-subrc <> 0.
EXIT. " no more segments
ENDIF.
ENDDO.
ENDMETHOD.
METHOD read_only_watchdog.
IF ms_opts-read_only = abap_true.
zcx_abapgit_ajson_error=>raise( ''This json instance is read only'' ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_ajson~array_to_string_table.
DATA lv_normalized_path TYPE string.
DATA lr_node TYPE REF TO zif_abapgit_ajson_types=>ty_node.
FIELD-SYMBOLS <item> LIKE LINE OF mt_json_tree.
lv_normalized_path = lcl_utils=>normalize_path( iv_path ).
lr_node = get_item( iv_path ).
IF lr_node IS INITIAL.
zcx_abapgit_ajson_error=>raise( |Path not found: { iv_path }| ).
ENDIF.
IF lr_node->type <> zif_abapgit_ajson_types=>node_type-array.
zcx_abapgit_ajson_error=>raise( |Array expected at: { iv_path }| ).
ENDIF.
LOOP AT mt_json_tree ASSIGNING <item> WHERE path = lv_normalized_path.
CASE <item>-type.
WHEN zif_abapgit_ajson_types=>node_type-number OR zif_abapgit_ajson_types=>node_type-string.
APPEND <item>-value TO rt_string_table.
WHEN zif_abapgit_ajson_types=>node_type-null.
APPEND '''' TO rt_string_table.
WHEN zif_abapgit_ajson_types=>node_type-boolean.
DATA lv_tmp TYPE string.
IF <item>-value = ''true''.
lv_tmp = abap_true.
ELSE.
CLEAR lv_tmp.
ENDIF.
APPEND lv_tmp TO rt_string_table.
WHEN OTHERS.
zcx_abapgit_ajson_error=>raise( |Cannot convert [{ <item>-type
}] to string at [{ <item>-path }{ <item>-name }]| ).
ENDCASE.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_ajson~clear.
read_only_watchdog( ).
CLEAR mt_json_tree.
ENDMETHOD.
METHOD zif_abapgit_ajson~clone.
ri_json = create_from( me ).
ENDMETHOD.
METHOD zif_abapgit_ajson~delete.
read_only_watchdog( ).
DATA ls_split_path TYPE zif_abapgit_ajson_types=>ty_path_name.
ls_split_path = lcl_utils=>split_path( iv_path ).
delete_subtree(
iv_path = ls_split_path-path
iv_name = ls_split_path-name ).
ri_json = me.
ENDMETHOD.
METHOD zif_abapgit_ajson~exists.
rv_exists = boolc( get_item( iv_path ) IS NOT INITIAL ).
ENDMETHOD.
METHOD zif_abapgit_ajson~filter.
ri_json = create_from(
ii_source_json = me
ii_filter = ii_filter ).
ENDMETHOD.
METHOD zif_abapgit_ajson~format_datetime.
ms_opts-format_datetime = iv_use_iso.
ri_json = me.
ENDMETHOD.
METHOD zif_abapgit_ajson~freeze.
ms_opts-read_only = abap_true.
ENDMETHOD.
METHOD zif_abapgit_ajson~get.
DATA lr_item TYPE REF TO zif_abapgit_ajson_types=>ty_node.
lr_item = get_item( iv_path ).
IF lr_item IS NOT INITIAL.
rv_value = lr_item->value.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_ajson~get_boolean.
DATA lr_item TYPE REF TO zif_abapgit_ajson_types=>ty_node.
lr_item = get_item( iv_path ).
IF lr_item IS INITIAL OR lr_item->type = zif_abapgit_ajson_types=>node_type-null.
RETURN.
ELSEIF lr_item->type = zif_abapgit_ajson_types=>node_type-boolean.
rv_value = boolc( lr_item->value = ''true'' ).
ELSEIF lr_item->value IS NOT INITIAL.
rv_value = abap_true.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_ajson~get_date.
DATA lr_item TYPE REF TO zif_abapgit_ajson_types=>ty_node.
DATA lv_y TYPE c LENGTH 4.
DATA lv_m TYPE c LENGTH 2.
DATA lv_d TYPE c LENGTH 2.
lr_item = get_item( iv_path ).
IF lr_item IS NOT INITIAL AND lr_item->type = zif_abapgit_ajson_types=>node_type-string.
FIND FIRST OCCURRENCE OF REGEX ''^(\\d{4})-(\\d{2})-(\\d{2})(T|$)''
IN lr_item->value
SUBMATCHES lv_y lv_m lv_d.
CONCATENATE lv_y lv_m lv_d INTO rv_value.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_ajson~get_integer.
DATA lr_item TYPE REF TO zif_abapgit_ajson_types=>ty_node.
lr_item = get_item( iv_path ).
IF lr_item IS NOT INITIAL AND lr_item->type = zif_abapgit_ajson_types=>node_type-number.
rv_value = lr_item->value.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_ajson~get_node_type.
DATA lr_item TYPE REF TO zif_abapgit_ajson_types=>ty_node.
lr_item = get_item( iv_path ).
IF lr_item IS NOT INITIAL.
rv_node_type = lr_item->type.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_ajson~get_number.
DATA lr_item TYPE REF TO zif_abapgit_ajson_types=>ty_node.
lr_item = get_item( iv_path ).
IF lr_item IS NOT INITIAL AND lr_item->type = zif_abapgit_ajson_types=>node_type-number.
rv_value = lr_item->value.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_ajson~get_string.
DATA lr_item TYPE REF TO zif_abapgit_ajson_types=>ty_node.
lr_item = get_item( iv_path ).
IF lr_item IS NOT INITIAL AND lr_item->type <> zif_abapgit_ajson_types=>node_type-null.
rv_value = lr_item->value.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_ajson~get_timestamp.
DATA lo_to_abap TYPE REF TO lcl_json_to_abap.
DATA lr_item TYPE REF TO zif_abapgit_ajson_types=>ty_node.
lr_item = get_item( iv_path ).
IF lr_item IS INITIAL.
RETURN.
ENDIF.
CREATE OBJECT lo_to_abap.
TRY.
rv_value = lo_to_abap->to_timestamp( lr_item->value ).
CATCH zcx_abapgit_ajson_error.
RETURN.
ENDTRY.
ENDMETHOD.
METHOD zif_abapgit_ajson~is_empty.
rv_yes = boolc( lines( mt_json_tree ) = 0 ).
ENDMETHOD.
METHOD zif_abapgit_ajson~keep_item_order.
ms_opts-keep_item_order = abap_true.
ri_json = me.
ENDMETHOD.
METHOD zif_abapgit_ajson~map.
ri_json = create_from(
ii_source_json = me
ii_mapper = ii_mapper ).
ENDMETHOD.
METHOD zif_abapgit_ajson~members.
DATA lv_normalized_path TYPE string.
FIELD-SYMBOLS <item> LIKE LINE OF mt_json_tree.
lv_normalized_path = lcl_utils=>normalize_path( iv_path ).
LOOP AT mt_json_tree ASSIGNING <item> WHERE path = lv_normalized_path.
APPEND <item>-name TO rt_members.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_ajson~opts.
rs_opts = ms_opts.
ENDMETHOD.
METHOD zif_abapgit_ajson~push.
DATA lr_parent TYPE REF TO zif_abapgit_ajson_types=>ty_node.
DATA lr_new_node TYPE REF TO zif_abapgit_ajson_types=>ty_node.
read_only_watchdog( ).
lr_parent = get_item( iv_path ).
IF lr_parent IS INITIAL.
zcx_abapgit_ajson_error=>raise( |Path [{ iv_path }] does not exist| ).
ENDIF.
IF lr_parent->type <> zif_abapgit_ajson_types=>node_type-array.
zcx_abapgit_ajson_error=>raise( |Path [{ iv_path }] is not array| ).
ENDIF.
DATA lt_new_nodes TYPE zif_abapgit_ajson_types=>ty_nodes_tt.
DATA ls_new_path TYPE zif_abapgit_ajson_types=>ty_path_name.
DATA lv_new_index TYPE i.
lv_new_index = lr_parent->children + 1.
ls_new_path-path = lcl_utils=>normalize_path( iv_path ).
ls_new_path-name = |{ lv_new_index }|.
lt_new_nodes = lcl_abap_to_json=>convert(
is_opts = ms_opts
iv_data = iv_val
is_prefix = ls_new_path ).
READ TABLE lt_new_nodes INDEX 1 REFERENCE INTO lr_new_node. " assume first record is the array item - not ideal !
ASSERT sy-subrc = 0.
lr_new_node->index = lv_new_index.
" update data
lr_parent->children = lv_new_index.
INSERT LINES OF lt_new_nodes INTO TABLE mt_json_tree.
ri_json = me.
ENDMETHOD.
METHOD zif_abapgit_ajson~set.
DATA ls_split_path TYPE zif_abapgit_ajson_types=>ty_path_name.
DATA lr_parent TYPE REF TO zif_abapgit_ajson_types=>ty_node.
DATA ls_deleted_node TYPE zif_abapgit_ajson_types=>ty_node.
DATA lv_item_order TYPE zif_abapgit_ajson_types=>ty_node-order.
read_only_watchdog( ).
ri_json = me.
IF iv_val IS INITIAL AND iv_ignore_empty = abap_true AND iv_node_type IS INITIAL.
RETURN. " nothing to assign
ENDIF.
IF iv_node_type IS NOT INITIAL
AND iv_node_type <> zif_abapgit_ajson_types=>node_type-boolean AND iv_node_type <> zif_abapgit_ajson_types=>node_type-null
AND iv_node_type <> zif_abapgit_ajson_types=>node_type-number AND iv_node_type <> zif_abapgit_ajson_types=>node_type-string.
zcx_abapgit_ajson_error=>raise( |Unexpected type { iv_node_type }| ).
ENDIF.
ls_split_path = lcl_utils=>split_path( iv_path ).
IF ls_split_path IS INITIAL. " Assign root, exceptional processing
IF iv_node_type IS NOT INITIAL.
mt_json_tree = lcl_abap_to_json=>insert_with_type(
is_opts = ms_opts
iv_data = iv_val
iv_type = iv_node_type
is_prefix = ls_split_path
ii_custom_mapping = mi_custom_mapping ).
ELSE.
mt_json_tree = lcl_abap_to_json=>convert(
is_opts = ms_opts
iv_data = iv_val
is_prefix = ls_split_path
ii_custom_mapping = mi_custom_mapping ).
ENDIF.
RETURN.
ENDIF.
" Ensure whole path exists
lr_parent = prove_path_exists( ls_split_path-path ).
ASSERT lr_parent IS NOT INITIAL.
" delete if exists with subtree
ls_deleted_node = delete_subtree(
ir_parent = lr_parent
iv_path = ls_split_path-path
iv_name = ls_split_path-name ).
lv_item_order = ls_deleted_node-order.
" convert to json
DATA lt_new_nodes TYPE zif_abapgit_ajson_types=>ty_nodes_tt.
DATA lv_array_index TYPE i.
IF lr_parent->type = zif_abapgit_ajson_types=>node_type-array.
lv_array_index = lcl_utils=>validate_array_index(
iv_path = ls_split_path-path
iv_index = ls_split_path-name ).
ELSEIF lr_parent->type = zif_abapgit_ajson_types=>node_type-object
AND lv_item_order = 0 AND ms_opts-keep_item_order = abap_true.
lv_item_order = lr_parent->children + 1.
ENDIF.
IF iv_node_type IS NOT INITIAL.
lt_new_nodes = lcl_abap_to_json=>insert_with_type(
is_opts = ms_opts
iv_item_order = lv_item_order
iv_data = iv_val
iv_type = iv_node_type
iv_array_index = lv_array_index
is_prefix = ls_split_path
ii_custom_mapping = mi_custom_mapping ).
ELSE.
lt_new_nodes = lcl_abap_to_json=>convert(
is_opts = ms_opts
iv_item_order = lv_item_order
iv_data = iv_val
iv_array_index = lv_array_index
is_prefix = ls_split_path
ii_custom_mapping = mi_custom_mapping ).
ENDIF.
" update nodes
IF lines( lt_new_nodes ) > 0.
lr_parent->children = lr_parent->children + 1.
INSERT LINES OF lt_new_nodes INTO TABLE mt_json_tree.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_ajson~setx.
DATA lv_path TYPE string.
DATA lv_val TYPE string.
DATA lv_int TYPE i.
DATA lv_dec TYPE decfloat34.
DATA lv_last TYPE i.
IF iv_param IS INITIAL.
ri_json = me.
RETURN.
ENDIF.
SPLIT iv_param AT '':'' INTO lv_path lv_val.
CONDENSE lv_path.
CONDENSE lv_val.
IF lv_val IS INITIAL.
ri_json = me.
RETURN. " Hmm ? or empty string ? or null ?
ENDIF.
IF go_float_regex IS NOT BOUND.
CREATE OBJECT go_float_regex EXPORTING pattern = ''^([1-9][0-9]*|0)\\.[0-9]+$''.
" expects fractional, because ints are detected separately
ENDIF.
IF lv_val = ''null''.
zif_abapgit_ajson~set_null( lv_path ).
ELSEIF lv_val = ''true''.
zif_abapgit_ajson~set_boolean(
iv_path = lv_path
iv_val = abap_true ).
ELSEIF lv_val = ''false''.
zif_abapgit_ajson~set_boolean(
iv_path = lv_path
iv_val = abap_false ).
ELSEIF lv_val CO ''0123456789''.
lv_int = lv_val.
zif_abapgit_ajson~set_integer(
iv_path = lv_path
iv_val = lv_int ).
ELSEIF lv_val CO ''0123456789.'' AND go_float_regex->create_matcher( text = lv_val )->match( ) = abap_true.
lv_dec = lv_val.
zif_abapgit_ajson~set(
iv_path = lv_path
iv_val = lv_dec ).
ELSEIF lv_val+0(1) = ''{'' OR lv_val+0(1) = ''[''.
"Expect object/array, but no further checks, parser will catch errors
zif_abapgit_ajson~set(
iv_path = lv_path
iv_val = parse(
iv_json = lv_val
iv_keep_item_order = ms_opts-keep_item_order ) ).
ELSE. " string
lv_last = strlen( lv_val ) - 1.
IF lv_val+0(1) = ''"'' AND lv_val+lv_last(1) = ''"''.
lv_val = substring(
val = lv_val
off = 1
len = lv_last - 1 ).
ENDIF.
zif_abapgit_ajson~set_string(
iv_path = lv_path
iv_val = lv_val ).
ENDIF.
ri_json = me.
ENDMETHOD.
METHOD zif_abapgit_ajson~set_boolean.
ri_json = me.
DATA lv_bool TYPE abap_bool.
lv_bool = boolc( iv_val IS NOT INITIAL ).
zif_abapgit_ajson~set(
iv_ignore_empty = abap_false
iv_path = iv_path
iv_val = lv_bool ).
ENDMETHOD.
METHOD zif_abapgit_ajson~set_date.
ri_json = me.
DATA lv_val TYPE string.
lv_val = lcl_abap_to_json=>format_date( iv_val ).
zif_abapgit_ajson~set(
iv_ignore_empty = abap_false
iv_path = iv_path
iv_val = lv_val ).
ENDMETHOD.
METHOD zif_abapgit_ajson~set_integer.
ri_json = me.
zif_abapgit_ajson~set(
iv_ignore_empty = abap_false
iv_path = iv_path
iv_val = iv_val ).
ENDMETHOD.
METHOD zif_abapgit_ajson~set_null.
ri_json = me.
DATA lv_null_ref TYPE REF TO data.
zif_abapgit_ajson~set(
iv_ignore_empty = abap_false
iv_path = iv_path
iv_val = lv_null_ref ).
ENDMETHOD.
METHOD zif_abapgit_ajson~set_string.
ri_json = me.
DATA lv_val TYPE string.
lv_val = iv_val.
zif_abapgit_ajson~set(
iv_ignore_empty = abap_false
iv_path = iv_path
iv_val = lv_val ).
ENDMETHOD.
METHOD zif_abapgit_ajson~set_timestamp.
ri_json = me.
DATA lv_timestamp_iso TYPE string.
lv_timestamp_iso = lcl_abap_to_json=>format_timestamp( iv_val ).
zif_abapgit_ajson~set(
iv_ignore_empty = abap_false
iv_path = iv_path
iv_val = lv_timestamp_iso ).
ENDMETHOD.
METHOD zif_abapgit_ajson~slice.
DATA lo_section TYPE REF TO zcl_abapgit_ajson.
DATA ls_item LIKE LINE OF mt_json_tree.
DATA lv_normalized_path TYPE string.
DATA ls_path_parts TYPE zif_abapgit_ajson_types=>ty_path_name.
DATA lv_path_len TYPE i.
DATA lv_path_pattern TYPE string.
CREATE OBJECT lo_section.
lv_normalized_path = lcl_utils=>normalize_path( iv_path ).
lv_path_len = strlen( lv_normalized_path ).
ls_path_parts = lcl_utils=>split_path( lv_normalized_path ).
READ TABLE mt_json_tree INTO ls_item
WITH KEY path = ls_path_parts-path name = ls_path_parts-name.
IF sy-subrc <> 0.
RETURN.
ENDIF.
CLEAR: ls_item-path, ls_item-name, ls_item-order. " this becomes a new root
INSERT ls_item INTO TABLE lo_section->mt_json_tree.
lv_path_pattern = lv_normalized_path && \`*\`.
LOOP AT mt_json_tree INTO ls_item WHERE path CP lv_path_pattern.
ls_item-path = substring( val = ls_item-path
off = lv_path_len - 1 ). " less closing ''/''
INSERT ls_item INTO TABLE lo_section->mt_json_tree.
ENDLOOP.
ri_json = lo_section.
ENDMETHOD.
METHOD zif_abapgit_ajson~stringify.
rv_json = lcl_json_serializer=>stringify(
it_json_tree = mt_json_tree
iv_keep_item_order = ms_opts-keep_item_order
iv_indent = iv_indent ).
ENDMETHOD.
METHOD zif_abapgit_ajson~touch_array.
DATA lr_node TYPE REF TO zif_abapgit_ajson_types=>ty_node.
DATA ls_deleted_node TYPE zif_abapgit_ajson_types=>ty_node.
DATA ls_new_node LIKE LINE OF mt_json_tree.
DATA ls_split_path TYPE zif_abapgit_ajson_types=>ty_path_name.
read_only_watchdog( ).
ls_split_path = lcl_utils=>split_path( iv_path ).
IF ls_split_path IS INITIAL. " Assign root, exceptional processing
ls_new_node-path = ls_split_path-path.
ls_new_node-name = ls_split_path-name.
ls_new_node-type = zif_abapgit_ajson_types=>node_type-array.
INSERT ls_new_node INTO TABLE mt_json_tree.
RETURN.
ENDIF.
IF iv_clear = abap_true.
ls_deleted_node = delete_subtree(
iv_path = ls_split_path-path
iv_name = ls_split_path-name ).
ELSE.
lr_node = get_item( iv_path ).
ENDIF.
IF lr_node IS INITIAL. " Or node was cleared
DATA lr_parent TYPE REF TO zif_abapgit_ajson_types=>ty_node.
lr_parent = prove_path_exists( ls_split_path-path ).
ASSERT lr_parent IS NOT INITIAL.
lr_parent->children = lr_parent->children + 1.
ls_new_node-path = ls_split_path-path.
ls_new_node-name = ls_split_path-name.
ls_new_node-type = zif_abapgit_ajson_types=>node_type-array.
IF ms_opts-keep_item_order = abap_true.
IF ls_deleted_node IS NOT INITIAL.
ls_new_node-order = ls_deleted_node-order.
ELSE.
ls_new_node-order = lr_parent->children.
ENDIF.
ENDIF.
INSERT ls_new_node INTO TABLE mt_json_tree.
ELSEIF lr_node->type <> zif_abapgit_ajson_types=>node_type-array.
zcx_abapgit_ajson_error=>raise( |Path [{ iv_path }] already used and is not array| ).
ENDIF.
ri_json = me.
ENDMETHOD.
METHOD zif_abapgit_ajson~to_abap.
DATA lo_to_abap TYPE REF TO lcl_json_to_abap.
CLEAR ev_container.
CREATE OBJECT lo_to_abap
EXPORTING
iv_corresponding = boolc( iv_corresponding = abap_true OR ms_opts-to_abap_corresponding_only = abap_true )
ii_custom_mapping = mi_custom_mapping.
lo_to_abap->to_abap(
EXPORTING
it_nodes = zif_abapgit_ajson~mt_json_tree
CHANGING
c_container = ev_container ).
ENDMETHOD.
METHOD zif_abapgit_ajson~to_abap_corresponding_only.
ms_opts-to_abap_corresponding_only = iv_enable.
ri_json = me.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_AJSON_FILTER_LIB ', 'CLASS zcl_abapgit_ajson_filter_lib DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS create_empty_filter
RETURNING
VALUE(ri_filter) TYPE REF TO zif_abapgit_ajson_filter
RAISING
zcx_abapgit_ajson_error .
CLASS-METHODS create_path_filter
IMPORTING
!it_skip_paths TYPE string_table OPTIONAL
!iv_skip_paths TYPE string OPTIONAL
!iv_pattern_search TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(ri_filter) TYPE REF TO zif_abapgit_ajson_filter
RAISING
zcx_abapgit_ajson_error .
CLASS-METHODS create_and_filter
IMPORTING
!it_filters TYPE zif_abapgit_ajson_filter=>ty_filter_tab
RETURNING
VALUE(ri_filter) TYPE REF TO zif_abapgit_ajson_filter
RAISING
zcx_abapgit_ajson_error .
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_ajson_filter_lib IMPLEMENTATION.
METHOD create_and_filter.
CREATE OBJECT ri_filter TYPE lcl_and_filter
EXPORTING
it_filters = it_filters.
ENDMETHOD.
METHOD create_empty_filter.
CREATE OBJECT ri_filter TYPE lcl_empty_filter.
ENDMETHOD.
METHOD create_path_filter.
CREATE OBJECT ri_filter TYPE lcl_paths_filter
EXPORTING
iv_pattern_search = iv_pattern_search
it_skip_paths = it_skip_paths
iv_skip_paths = iv_skip_paths.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_AJSON_MAPPING ', 'CLASS zcl_abapgit_ajson_mapping DEFINITION
PUBLIC
FINAL
CREATE PUBLIC.
PUBLIC SECTION.
CONSTANTS:
BEGIN OF rename_by,
attr_name TYPE i VALUE 0,
full_path TYPE i VALUE 1,
pattern TYPE i VALUE 2,
" regex type i value 3, " TODO add if needed in future
END OF rename_by.
CLASS-METHODS create_camel_case " DEPRECATED
IMPORTING
it_mapping_fields TYPE zif_abapgit_ajson_mapping=>ty_mapping_fields OPTIONAL
iv_first_json_upper TYPE abap_bool DEFAULT abap_true
RETURNING
VALUE(ri_mapping) TYPE REF TO zif_abapgit_ajson_mapping.
CLASS-METHODS create_upper_case
IMPORTING
it_mapping_fields TYPE zif_abapgit_ajson_mapping=>ty_mapping_fields OPTIONAL
RETURNING
VALUE(ri_mapping) TYPE REF TO zif_abapgit_ajson_mapping.
CLASS-METHODS create_lower_case
IMPORTING
it_mapping_fields TYPE zif_abapgit_ajson_mapping=>ty_mapping_fields OPTIONAL
RETURNING
VALUE(ri_mapping) TYPE REF TO zif_abapgit_ajson_mapping.
CLASS-METHODS create_field_mapping " DEPRECATED
IMPORTING
it_mapping_fields TYPE zif_abapgit_ajson_mapping=>ty_mapping_fields
RETURNING
VALUE(ri_mapping) TYPE REF TO zif_abapgit_ajson_mapping.
CLASS-METHODS create_rename
IMPORTING
it_rename_map TYPE zif_abapgit_ajson_mapping=>tty_rename_map
iv_rename_by TYPE i DEFAULT rename_by-attr_name
RETURNING
VALUE(ri_mapping) TYPE REF TO zif_abapgit_ajson_mapping.
CLASS-METHODS create_compound_mapper
IMPORTING
ii_mapper1 TYPE REF TO zif_abapgit_ajson_mapping OPTIONAL
ii_mapper2 TYPE REF TO zif_abapgit_ajson_mapping OPTIONAL
ii_mapper3 TYPE REF TO zif_abapgit_ajson_mapping OPTIONAL
it_more TYPE zif_abapgit_ajson_mapping=>ty_table_of OPTIONAL
RETURNING
VALUE(ri_mapping) TYPE REF TO zif_abapgit_ajson_mapping.
CLASS-METHODS create_to_snake_case
RETURNING
VALUE(ri_mapping) TYPE REF TO zif_abapgit_ajson_mapping.
CLASS-METHODS create_to_camel_case
IMPORTING
iv_first_json_upper TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(ri_mapping) TYPE REF TO zif_abapgit_ajson_mapping.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_ajson_mapping IMPLEMENTATION.
METHOD create_camel_case.
CREATE OBJECT ri_mapping TYPE lcl_mapping_camel
EXPORTING
it_mapping_fields = it_mapping_fields
iv_first_json_upper = iv_first_json_upper.
ENDMETHOD.
METHOD create_compound_mapper.
DATA lt_queue TYPE zif_abapgit_ajson_mapping=>ty_table_of.
APPEND ii_mapper1 TO lt_queue.
APPEND ii_mapper2 TO lt_queue.
APPEND ii_mapper3 TO lt_queue.
APPEND LINES OF it_more TO lt_queue.
DELETE lt_queue WHERE table_line IS INITIAL.
CREATE OBJECT ri_mapping TYPE lcl_compound_mapper
EXPORTING
it_queue = lt_queue.
ENDMETHOD.
METHOD create_field_mapping.
CREATE OBJECT ri_mapping TYPE lcl_mapping_fields
EXPORTING
it_mapping_fields = it_mapping_fields.
ENDMETHOD.
METHOD create_lower_case.
CREATE OBJECT ri_mapping TYPE lcl_mapping_to_lower
EXPORTING
it_mapping_fields = it_mapping_fields.
ENDMETHOD.
METHOD create_rename.
CREATE OBJECT ri_mapping TYPE lcl_rename
EXPORTING
it_rename_map = it_rename_map
iv_rename_by = iv_rename_by.
ENDMETHOD.
METHOD create_to_camel_case.
CREATE OBJECT ri_mapping TYPE lcl_to_camel
EXPORTING
iv_first_json_upper = iv_first_json_upper.
ENDMETHOD.
METHOD create_to_snake_case.
CREATE OBJECT ri_mapping TYPE lcl_to_snake.
ENDMETHOD.
METHOD create_upper_case.
CREATE OBJECT ri_mapping TYPE lcl_mapping_to_upper
EXPORTING
it_mapping_fields = it_mapping_fields.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_AJSON_UTILITIES ', 'CLASS zcl_abapgit_ajson_utilities DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS new
RETURNING
VALUE(ro_instance) TYPE REF TO zcl_abapgit_ajson_utilities.
METHODS diff
IMPORTING
!iv_json_a TYPE string OPTIONAL
!iv_json_b TYPE string OPTIONAL
!io_json_a TYPE REF TO zif_abapgit_ajson OPTIONAL
!io_json_b TYPE REF TO zif_abapgit_ajson OPTIONAL
!iv_keep_empty_arrays TYPE abap_bool DEFAULT abap_false
EXPORTING
!eo_insert TYPE REF TO zif_abapgit_ajson
!eo_delete TYPE REF TO zif_abapgit_ajson
!eo_change TYPE REF TO zif_abapgit_ajson
RAISING
zcx_abapgit_ajson_error .
METHODS merge
IMPORTING
!iv_json_a TYPE string OPTIONAL
!iv_json_b TYPE string OPTIONAL
!io_json_a TYPE REF TO zif_abapgit_ajson OPTIONAL
!io_json_b TYPE REF TO zif_abapgit_ajson OPTIONAL
!iv_keep_empty_arrays TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(ro_json) TYPE REF TO zif_abapgit_ajson
RAISING
zcx_abapgit_ajson_error .
METHODS sort
IMPORTING
!iv_json TYPE string OPTIONAL
!io_json TYPE REF TO zif_abapgit_ajson OPTIONAL
RETURNING
VALUE(rv_sorted) TYPE string
RAISING
zcx_abapgit_ajson_error .
METHODS is_equal
IMPORTING
!iv_json_a TYPE string OPTIONAL
!iv_json_b TYPE string OPTIONAL
!ii_json_a TYPE REF TO zif_abapgit_ajson OPTIONAL
!ii_json_b TYPE REF TO zif_abapgit_ajson OPTIONAL
RETURNING
VALUE(rv_yes) TYPE abap_bool
RAISING
zcx_abapgit_ajson_error .
PROTECTED SECTION.
PRIVATE SECTION.
DATA mo_json_a TYPE REF TO zif_abapgit_ajson .
DATA mo_json_b TYPE REF TO zif_abapgit_ajson .
DATA mo_insert TYPE REF TO zif_abapgit_ajson .
DATA mo_delete TYPE REF TO zif_abapgit_ajson .
DATA mo_change TYPE REF TO zif_abapgit_ajson .
METHODS normalize_input
IMPORTING
!iv_json TYPE string OPTIONAL
!io_json TYPE REF TO zif_abapgit_ajson OPTIONAL
RETURNING
VALUE(ro_json) TYPE REF TO zif_abapgit_ajson
RAISING
zcx_abapgit_ajson_error .
METHODS diff_a_b
IMPORTING
!iv_path TYPE string
RAISING
zcx_abapgit_ajson_error .
METHODS diff_b_a
IMPORTING
!iv_path TYPE string
!iv_array TYPE abap_bool DEFAULT abap_false
RAISING
zcx_abapgit_ajson_error .
METHODS delete_empty_nodes
IMPORTING
!io_json TYPE REF TO zif_abapgit_ajson
!iv_keep_empty_arrays TYPE abap_bool
RAISING
zcx_abapgit_ajson_error .
ENDCLASS.
CLASS zcl_abapgit_ajson_utilities IMPLEMENTATION.
METHOD delete_empty_nodes.
DATA ls_json_tree LIKE LINE OF io_json->mt_json_tree.
DATA lv_done TYPE abap_bool.
DO.
lv_done = abap_true.
IF iv_keep_empty_arrays = abap_false.
LOOP AT io_json->mt_json_tree INTO ls_json_tree
WHERE type = zif_abapgit_ajson_types=>node_type-array AND children = 0.
io_json->delete( ls_json_tree-path && ls_json_tree-name ).
ENDLOOP.
IF sy-subrc = 0.
lv_done = abap_false.
ENDIF.
ENDIF.
LOOP AT io_json->mt_json_tree INTO ls_json_tree
WHERE type = zif_abapgit_ajson_types=>node_type-object AND children = 0.
io_json->delete( ls_json_tree-path && ls_json_tree-name ).
ENDLOOP.
IF sy-subrc = 0.
lv_done = abap_false.
ENDIF.
IF lv_done = abap_true.
EXIT. " nothing else to delete
ENDIF.
ENDDO.
ENDMETHOD.
METHOD diff.
mo_json_a = normalize_input(
iv_json = iv_json_a
io_json = io_json_a ).
mo_json_b = normalize_input(
iv_json = iv_json_b
io_json = io_json_b ).
mo_insert = zcl_abapgit_ajson=>create_empty( ).
mo_delete = zcl_abapgit_ajson=>create_empty( ).
mo_change = zcl_abapgit_ajson=>create_empty( ).
diff_a_b( ''/'' ).
diff_b_a( ''/'' ).
eo_insert ?= mo_insert.
eo_delete ?= mo_delete.
eo_change ?= mo_change.
delete_empty_nodes(
io_json = eo_insert
iv_keep_empty_arrays = iv_keep_empty_arrays ).
delete_empty_nodes(
io_json = eo_delete
iv_keep_empty_arrays = iv_keep_empty_arrays ).
delete_empty_nodes(
io_json = eo_change
iv_keep_empty_arrays = iv_keep_empty_arrays ).
ENDMETHOD.
METHOD diff_a_b.
DATA:
lv_path_a TYPE string,
lv_path_b TYPE string.
FIELD-SYMBOLS:
<node_a> LIKE LINE OF mo_json_a->mt_json_tree,
<node_b> LIKE LINE OF mo_json_a->mt_json_tree.
LOOP AT mo_json_a->mt_json_tree ASSIGNING <node_a> WHERE path = iv_path.
lv_path_a = <node_a>-path && <node_a>-name && ''/''.
READ TABLE mo_json_b->mt_json_tree ASSIGNING <node_b>
WITH TABLE KEY path = <node_a>-path name = <node_a>-name.
IF sy-subrc = 0.
lv_path_b = <node_b>-path && <node_b>-name && ''/''.
IF <node_a>-type = <node_b>-type.
CASE <node_a>-type.
WHEN zif_abapgit_ajson_types=>node_type-array.
mo_insert->touch_array( lv_path_a ).
mo_change->touch_array( lv_path_a ).
mo_delete->touch_array( lv_path_a ).
diff_a_b( lv_path_a ).
WHEN zif_abapgit_ajson_types=>node_type-object.
diff_a_b( lv_path_a ).
WHEN OTHERS.
IF <node_a>-value <> <node_b>-value.
" save as changed value
mo_change->set(
iv_path = lv_path_b
iv_val = <node_b>-value
iv_node_type = <node_b>-type ).
ENDIF.
ENDCASE.
ELSE.
" save changed type as delete + insert
CASE <node_a>-type.
WHEN zif_abapgit_ajson_types=>node_type-array.
mo_delete->touch_array( lv_path_a ).
diff_a_b( lv_path_a ).
WHEN zif_abapgit_ajson_types=>node_type-object.
diff_a_b( lv_path_a ).
WHEN OTHERS.
mo_delete->set(
iv_path = lv_path_a
iv_val = <node_a>-value
iv_node_type = <node_a>-type ).
ENDCASE.
CASE <node_b>-type.
WHEN zif_abapgit_ajson_types=>node_type-array.
mo_insert->touch_array( lv_path_b ).
diff_b_a( lv_path_b ).
WHEN zif_abapgit_ajson_types=>node_type-object.
diff_b_a( lv_path_b ).
WHEN OTHERS.
mo_insert->set(
iv_path = lv_path_b
iv_val = <node_b>-value
iv_node_type = <node_b>-type ).
ENDCASE.
ENDIF.
ELSE.
" save as delete
CASE <node_a>-type.
WHEN zif_abapgit_ajson_types=>node_type-array.
mo_delete->touch_array( lv_path_a ).
diff_a_b( lv_path_a ).
WHEN zif_abapgit_ajson_types=>node_type-object.
diff_a_b( lv_path_a ).
WHEN OTHERS.
mo_delete->set(
iv_path = lv_path_a
iv_val = <node_a>-value
iv_node_type = <node_a>-type ).
ENDCASE.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD diff_b_a.
DATA lv_path TYPE string.
FIELD-SYMBOLS <node_b> LIKE LINE OF mo_json_b->mt_json_tree.
LOOP AT mo_json_b->mt_json_tree ASSIGNING <node_b> WHERE path = iv_path.
lv_path = <node_b>-path && <node_b>-name && ''/''.
CASE <node_b>-type.
WHEN zif_abapgit_ajson_types=>node_type-array.
mo_insert->touch_array( lv_path ).
diff_b_a(
iv_path = lv_path
iv_array = abap_true ).
WHEN zif_abapgit_ajson_types=>node_type-object.
diff_b_a( lv_path ).
WHEN OTHERS.
IF iv_array = abap_false.
READ TABLE mo_json_a->mt_json_tree TRANSPORTING NO FIELDS
WITH TABLE KEY path = <node_b>-path name = <node_b>-name.
IF sy-subrc <> 0.
" save as insert
mo_insert->set(
iv_path = lv_path
iv_val = <node_b>-value
iv_node_type = <node_b>-type ).
ENDIF.
ELSE.
READ TABLE mo_insert->mt_json_tree TRANSPORTING NO FIELDS
WITH KEY path = <node_b>-path value = <node_b>-value.
IF sy-subrc <> 0.
" save as new array value
mo_insert->push(
iv_path = iv_path
iv_val = <node_b>-value ).
ENDIF.
ENDIF.
ENDCASE.
ENDLOOP.
ENDMETHOD.
METHOD is_equal.
DATA li_ins TYPE REF TO zif_abapgit_ajson.
DATA li_del TYPE REF TO zif_abapgit_ajson.
DATA li_mod TYPE REF TO zif_abapgit_ajson.
diff(
EXPORTING
iv_json_a = iv_json_a
iv_json_b = iv_json_b
io_json_a = ii_json_a
io_json_b = ii_json_b
IMPORTING
eo_insert = li_ins
eo_delete = li_del
eo_change = li_mod ).
rv_yes = boolc(
li_ins->is_empty( ) = abap_true AND
li_del->is_empty( ) = abap_true AND
li_mod->is_empty( ) = abap_true ).
ENDMETHOD.
METHOD merge.
mo_json_a = normalize_input(
iv_json = iv_json_a
io_json = io_json_a ).
mo_json_b = normalize_input(
iv_json = iv_json_b
io_json = io_json_b ).
" Start with first JSON...
mo_insert = mo_json_a.
" ...and add all nodes from second JSON
diff_b_a( ''/'' ).
ro_json ?= mo_insert.
delete_empty_nodes(
io_json = ro_json
iv_keep_empty_arrays = iv_keep_empty_arrays ).
ENDMETHOD.
METHOD new.
CREATE OBJECT ro_instance.
ENDMETHOD.
METHOD normalize_input.
IF boolc( iv_json IS INITIAL ) = boolc( io_json IS INITIAL ).
zcx_abapgit_ajson_error=>raise( ''Either supply JSON string or instance, but not both'' ).
ENDIF.
IF iv_json IS NOT INITIAL.
ro_json = zcl_abapgit_ajson=>parse( iv_json ).
ELSEIF io_json IS NOT INITIAL.
ro_json = io_json.
ELSE.
zcx_abapgit_ajson_error=>raise( ''Supply either JSON string or instance'' ).
ENDIF.
ENDMETHOD.
METHOD sort.
DATA lo_json TYPE REF TO zif_abapgit_ajson.
lo_json = normalize_input(
iv_json = iv_json
io_json = io_json ).
" Nodes are parsed into a sorted table, so no explicit sorting required
rv_sorted = lo_json->stringify( 2 ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCX_ABAPGIT_AJSON_ERROR ', 'class zcx_abapgit_ajson_error definition
public
inheriting from CX_STATIC_CHECK
final
create public .
public section.
interfaces IF_T100_MESSAGE .
types:
ty_rc type c length 4 .
constants:
begin of ZCX_AJSON_ERROR,
msgid type symsgid value ''00'',
msgno type symsgno value ''001'',
attr1 type scx_attrname value ''A1'',
attr2 type scx_attrname value ''A2'',
attr3 type scx_attrname value ''A3'',
attr4 type scx_attrname value ''A4'',
end of ZCX_AJSON_ERROR .
data RC type TY_RC read-only .
data MESSAGE type STRING read-only .
data LOCATION type STRING read-only .
data A1 type SYMSGV read-only .
data A2 type SYMSGV read-only .
data A3 type SYMSGV read-only .
data A4 type SYMSGV read-only .
methods CONSTRUCTOR
importing
!TEXTID like IF_T100_MESSAGE=>T100KEY optional
!PREVIOUS like PREVIOUS optional
!RC type TY_RC optional
!MESSAGE type STRING optional
!LOCATION type STRING optional
!A1 type SYMSGV optional
!A2 type SYMSGV optional
!A3 type SYMSGV optional
!A4 type SYMSGV optional .
class-methods RAISE
importing
!IV_MSG type STRING
!IV_LOCATION type STRING optional
!IS_NODE type ANY optional
raising
zcx_abapgit_ajson_error .
methods SET_LOCATION
importing
!IV_LOCATION type STRING optional
!IS_NODE type ANY optional
preferred parameter IV_LOCATION .
protected section.
private section.
types:
begin of ty_message_parts,
a1 like a1,
a2 like a1,
a3 like a1,
a4 like a1,
end of ty_message_parts.
ENDCLASS.
CLASS zcx_abapgit_ajson_error IMPLEMENTATION.
method CONSTRUCTOR.
CALL METHOD SUPER->CONSTRUCTOR
EXPORTING
PREVIOUS = PREVIOUS
.
me->RC = RC .
me->MESSAGE = MESSAGE .
me->LOCATION = LOCATION .
me->A1 = A1 .
me->A2 = A2 .
me->A3 = A3 .
me->A4 = A4 .
clear me->textid.
if textid is initial.
IF_T100_MESSAGE~T100KEY = ZCX_AJSON_ERROR .
else.
IF_T100_MESSAGE~T100KEY = TEXTID.
endif.
endmethod.
method raise.
data lx type ref to zcx_abapgit_ajson_error.
create object lx exporting message = iv_msg.
lx->set_location(
iv_location = iv_location
is_node = is_node ).
raise exception lx.
endmethod.
method set_location.
data ls_msg type ty_message_parts.
data lv_location type string.
data lv_tmp type string.
field-symbols <path> type string.
field-symbols <name> type string.
if iv_location is not initial.
lv_location = iv_location.
elseif is_node is not initial.
assign component ''PATH'' of structure is_node to <path>.
assign component ''NAME'' of structure is_node to <name>.
if <path> is assigned and <name> is assigned.
lv_location = <path> && <name>.
endif.
endif.
if lv_location is not initial.
lv_tmp = message && | @{ lv_location }|.
else.
lv_tmp = message.
endif.
ls_msg = lv_tmp.
location = lv_location.
a1 = ls_msg-a1.
a2 = ls_msg-a2.
a3 = ls_msg-a3.
a4 = ls_msg-a4.
endmethod.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_AJSON ', 'INTERFACE zif_abapgit_ajson
PUBLIC.
CONSTANTS version TYPE string VALUE ''v1.1.10''. "#EC NOTEXT
CONSTANTS origin TYPE string VALUE ''https://github.com/sbcgua/ajson''. "#EC NOTEXT
CONSTANTS license TYPE string VALUE ''MIT''. "#EC NOTEXT
TYPES:
BEGIN OF ty_opts,
read_only TYPE abap_bool,
keep_item_order TYPE abap_bool,
format_datetime TYPE abap_bool,
to_abap_corresponding_only TYPE abap_bool,
END OF ty_opts.
" DATA
DATA mt_json_tree TYPE zif_abapgit_ajson_types=>ty_nodes_ts READ-ONLY.
" CLONING
METHODS clone
RETURNING
VALUE(ri_json) TYPE REF TO zif_abapgit_ajson
RAISING
zcx_abapgit_ajson_error.
METHODS filter
IMPORTING
ii_filter TYPE REF TO zif_abapgit_ajson_filter
RETURNING
VALUE(ri_json) TYPE REF TO zif_abapgit_ajson
RAISING
zcx_abapgit_ajson_error.
METHODS map
IMPORTING
ii_mapper TYPE REF TO zif_abapgit_ajson_mapping
RETURNING
VALUE(ri_json) TYPE REF TO zif_abapgit_ajson
RAISING
zcx_abapgit_ajson_error.
" METHODS
METHODS freeze.
METHODS keep_item_order
RETURNING
VALUE(ri_json) TYPE REF TO zif_abapgit_ajson.
METHODS format_datetime
IMPORTING
iv_use_iso TYPE abap_bool DEFAULT abap_true
RETURNING
VALUE(ri_json) TYPE REF TO zif_abapgit_ajson.
METHODS to_abap_corresponding_only
IMPORTING
iv_enable TYPE abap_bool DEFAULT abap_true
RETURNING
VALUE(ri_json) TYPE REF TO zif_abapgit_ajson.
METHODS opts
RETURNING
VALUE(rs_opts) TYPE ty_opts.
" METHODS ex.reader
METHODS is_empty
RETURNING
VALUE(rv_yes) TYPE abap_bool.
METHODS exists
IMPORTING
iv_path TYPE string
RETURNING
VALUE(rv_exists) TYPE abap_bool.
METHODS members
IMPORTING
iv_path TYPE string
RETURNING
VALUE(rt_members) TYPE string_table.
METHODS get
IMPORTING
iv_path TYPE string
RETURNING
VALUE(rv_value) TYPE string.
METHODS get_node_type
IMPORTING
iv_path TYPE string
RETURNING
VALUE(rv_node_type) TYPE zif_abapgit_ajson_types=>ty_node_type.
METHODS get_boolean
IMPORTING
iv_path TYPE string
RETURNING
VALUE(rv_value) TYPE abap_bool.
METHODS get_integer
IMPORTING
iv_path TYPE string
RETURNING
VALUE(rv_value) TYPE i.
METHODS get_number
IMPORTING
iv_path TYPE string
RETURNING
VALUE(rv_value) TYPE f.
METHODS get_date
IMPORTING
iv_path TYPE string
RETURNING
VALUE(rv_value) TYPE d.
METHODS get_timestamp
IMPORTING
iv_path TYPE string
RETURNING
VALUE(rv_value) TYPE timestamp.
METHODS get_string
IMPORTING
iv_path TYPE string
RETURNING
VALUE(rv_value) TYPE string.
METHODS slice
IMPORTING
iv_path TYPE string
RETURNING
VALUE(ri_json) TYPE REF TO zif_abapgit_ajson.
METHODS to_abap
IMPORTING
iv_corresponding TYPE abap_bool DEFAULT abap_false
EXPORTING
ev_container TYPE any
RAISING
zcx_abapgit_ajson_error.
METHODS array_to_string_table
IMPORTING
iv_path TYPE string
RETURNING
VALUE(rt_string_table) TYPE string_table
RAISING
zcx_abapgit_ajson_error.
" METHODS ex.writer
METHODS clear
RAISING
zcx_abapgit_ajson_error.
METHODS set
IMPORTING
iv_path TYPE string
iv_val TYPE any
iv_ignore_empty TYPE abap_bool DEFAULT abap_true
iv_node_type TYPE zif_abapgit_ajson_types=>ty_node_type OPTIONAL
RETURNING
VALUE(ri_json) TYPE REF TO zif_abapgit_ajson
RAISING
zcx_abapgit_ajson_error.
METHODS setx
IMPORTING
iv_param TYPE string
RETURNING
VALUE(ri_json) TYPE REF TO zif_abapgit_ajson
RAISING
zcx_abapgit_ajson_error.
METHODS set_boolean
IMPORTING
iv_path TYPE string
iv_val TYPE any
RETURNING
VALUE(ri_json) TYPE REF TO zif_abapgit_ajson
RAISING
zcx_abapgit_ajson_error.
METHODS set_string
IMPORTING
iv_path TYPE string
iv_val TYPE clike
RETURNING
VALUE(ri_json) TYPE REF TO zif_abapgit_ajson
RAISING
zcx_abapgit_ajson_error.
METHODS set_integer
IMPORTING
iv_path TYPE string
iv_val TYPE i
RETURNING
VALUE(ri_json) TYPE REF TO zif_abapgit_ajson
RAISING
zcx_abapgit_ajson_error.
METHODS set_date
IMPORTING
iv_path TYPE string
iv_val TYPE d
RETURNING
VALUE(ri_json) TYPE REF TO zif_abapgit_ajson
RAISING
zcx_abapgit_ajson_error.
METHODS set_timestamp
IMPORTING
iv_path TYPE string
iv_val TYPE timestamp
RETURNING
VALUE(ri_json) TYPE REF TO zif_abapgit_ajson
RAISING
zcx_abapgit_ajson_error.
METHODS set_null
IMPORTING
iv_path TYPE string
RETURNING
VALUE(ri_json) TYPE REF TO zif_abapgit_ajson
RAISING
zcx_abapgit_ajson_error.
METHODS delete
IMPORTING
iv_path TYPE string
RETURNING
VALUE(ri_json) TYPE REF TO zif_abapgit_ajson
RAISING
zcx_abapgit_ajson_error.
METHODS touch_array
IMPORTING
iv_path TYPE string
iv_clear TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(ri_json) TYPE REF TO zif_abapgit_ajson
RAISING
zcx_abapgit_ajson_error.
METHODS push
IMPORTING
iv_path TYPE string
iv_val TYPE any
RETURNING
VALUE(ri_json) TYPE REF TO zif_abapgit_ajson
RAISING
zcx_abapgit_ajson_error.
METHODS stringify
IMPORTING
iv_indent TYPE i DEFAULT 0
RETURNING
VALUE(rv_json) TYPE string
RAISING
zcx_abapgit_ajson_error.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_AJSON_FILTER ', 'INTERFACE zif_abapgit_ajson_filter
PUBLIC.
TYPES ty_filter_tab TYPE STANDARD TABLE OF REF TO zif_abapgit_ajson_filter WITH KEY table_line.
TYPES ty_visit_type TYPE i.
CONSTANTS:
BEGIN OF visit_type,
value TYPE ty_visit_type VALUE 0,
open TYPE ty_visit_type VALUE 1,
close TYPE ty_visit_type VALUE 2,
END OF visit_type.
METHODS keep_node
IMPORTING
is_node TYPE zif_abapgit_ajson_types=>ty_node
iv_visit TYPE ty_visit_type DEFAULT visit_type-value
RETURNING
VALUE(rv_keep) TYPE abap_bool
RAISING
zcx_abapgit_ajson_error.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_AJSON_MAPPING ', 'INTERFACE zif_abapgit_ajson_mapping
PUBLIC.
TYPES:
BEGIN OF ty_mapping_field, " deprecated, will be removed
abap TYPE string,
json TYPE string,
END OF ty_mapping_field,
ty_mapping_fields TYPE STANDARD TABLE OF ty_mapping_field
WITH UNIQUE SORTED KEY abap COMPONENTS abap
WITH UNIQUE SORTED KEY json COMPONENTS json.
TYPES:
BEGIN OF ty_rename,
from TYPE string,
to TYPE string,
END OF ty_rename,
tty_rename_map TYPE STANDARD TABLE OF ty_rename
WITH UNIQUE SORTED KEY by_name COMPONENTS from.
TYPES:
ty_table_of TYPE STANDARD TABLE OF REF TO zif_abapgit_ajson_mapping.
METHODS to_abap " deprecated, will be removed
IMPORTING
!iv_path TYPE string
!iv_name TYPE string
RETURNING
VALUE(rv_result) TYPE string.
METHODS to_json " deprecated, will be removed
IMPORTING
!iv_path TYPE string
!iv_name TYPE string
RETURNING
VALUE(rv_result) TYPE string.
METHODS rename_node
IMPORTING
!is_node TYPE zif_abapgit_ajson_types=>ty_node
CHANGING
!cv_name TYPE zif_abapgit_ajson_types=>ty_node-name.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_AJSON_TYPES ', 'INTERFACE zif_abapgit_ajson_types
PUBLIC.
TYPES:
ty_node_type TYPE string.
CONSTANTS:
BEGIN OF node_type,
boolean TYPE ty_node_type VALUE ''bool'',
string TYPE ty_node_type VALUE ''str'',
number TYPE ty_node_type VALUE ''num'',
null TYPE ty_node_type VALUE ''null'',
array TYPE ty_node_type VALUE ''array'',
object TYPE ty_node_type VALUE ''object'',
END OF node_type.
TYPES:
BEGIN OF ty_node,
path TYPE string,
name TYPE string,
type TYPE ty_node_type,
value TYPE string,
index TYPE i,
order TYPE i,
children TYPE i,
END OF ty_node.
TYPES:
ty_nodes_tt TYPE STANDARD TABLE OF ty_node WITH KEY path name.
TYPES:
ty_nodes_ts TYPE SORTED TABLE OF ty_node
WITH UNIQUE KEY path name
WITH NON-UNIQUE SORTED KEY array_index COMPONENTS path index
WITH NON-UNIQUE SORTED KEY item_order COMPONENTS path order.
TYPES:
BEGIN OF ty_path_name,
path TYPE string,
name TYPE string,
END OF ty_path_name.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_AFF_REGISTRY ', 'CLASS zcl_abapgit_aff_registry DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES:
zif_abapgit_aff_registry.
CONSTANTS c_aff_feature TYPE string VALUE ''AFF''.
METHODS constructor.
PROTECTED SECTION.
PRIVATE SECTION.
TYPES:
BEGIN OF ty_registry_entry,
obj_type TYPE tadir-object,
experimental TYPE abap_bool,
END OF ty_registry_entry.
CLASS-DATA:
gt_registry TYPE HASHED TABLE OF ty_registry_entry WITH UNIQUE KEY obj_type.
DATA mv_aff_enabled TYPE abap_bool.
CLASS-METHODS initialize_registry_table.
CLASS-METHODS:
register
IMPORTING
iv_obj_type TYPE tadir-object
iv_experimental TYPE abap_bool DEFAULT abap_false.
ENDCLASS.
CLASS ZCL_ABAPGIT_AFF_REGISTRY IMPLEMENTATION.
METHOD constructor.
mv_aff_enabled = zcl_abapgit_feature=>is_enabled( c_aff_feature ).
ENDMETHOD.
METHOD initialize_registry_table.
register( ''BGQC'' ).
register( ''CDBO'' ).
register( ''CHKC'' ).
register( ''CHKO'' ).
register( ''CHKV'' ).
register( ''DRTY'' ).
register( ''DTEB'' ).
register( ''DSFI'' ).
register( ''DRAS'' ).
register( ''DSFD'' ).
register( ''EVTB'' ).
register( ''EEEC'' ).
register( ''GSMP'' ).
register( iv_obj_type = ''INTF''
iv_experimental = abap_true ).
register( ''SMBC'' ).
register( ''SWCR'' ).
register( ''NONT'' ).
register( ''RONT'' ).
register( ''UIAD'' ).
register( ''UIPG'' ).
register( ''UIST'' ).
ENDMETHOD.
METHOD register.
DATA ls_registry_entry TYPE ty_registry_entry.
ls_registry_entry-obj_type = iv_obj_type.
ls_registry_entry-experimental = iv_experimental.
INSERT ls_registry_entry INTO TABLE gt_registry.
ENDMETHOD.
METHOD zif_abapgit_aff_registry~is_supported_object_type.
DATA ls_registry_entry TYPE ty_registry_entry.
IF gt_registry IS INITIAL.
initialize_registry_table( ).
ENDIF.
READ TABLE gt_registry WITH TABLE KEY obj_type = iv_obj_type INTO ls_registry_entry.
IF sy-subrc = 0 AND ls_registry_entry-experimental = abap_false.
rv_result = abap_true.
ELSEIF sy-subrc = 0 AND mv_aff_enabled = abap_true.
rv_result = abap_true.
ELSE.
rv_result = abap_false.
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_JSON_HANDLER ', 'CLASS zcl_abapgit_json_handler DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
TYPES:
BEGIN OF ty_json_abap_mapping,
json TYPE string,
abap TYPE string,
END OF ty_json_abap_mapping .
TYPES:
ty_json_abap_mappings TYPE STANDARD TABLE OF ty_json_abap_mapping WITH DEFAULT KEY .
TYPES:
BEGIN OF ty_enum_mapping,
path TYPE string,
mappings TYPE ty_json_abap_mappings,
END OF ty_enum_mapping .
TYPES:
ty_enum_mappings TYPE TABLE OF ty_enum_mapping WITH DEFAULT KEY .
TYPES:
BEGIN OF ty_path_value_pair,
path TYPE string,
value TYPE string,
END OF ty_path_value_pair .
TYPES:
ty_skip_paths TYPE STANDARD TABLE OF ty_path_value_pair WITH KEY path .
"! Serializes data to xstring. Type of data is specified in the
"! implementing class.
"!
"! @parameter iv_data | data to be serialized
"! @parameter iv_enum_mappings | ABAP/JSON value mappings
"! @parameter iv_skip_paths | path/value pairs to be skipped during serialization
"! @parameter rv_result | serialized data
METHODS serialize
IMPORTING
!iv_data TYPE data
!iv_enum_mappings TYPE ty_enum_mappings OPTIONAL
!iv_skip_paths TYPE ty_skip_paths OPTIONAL
RETURNING
VALUE(rv_result) TYPE xstring
RAISING
cx_static_check .
"! Deserializes xstring into data. The type of data is specified in
"! the implementing class
"!
"! @parameter iv_content | xstring to be deserialized
"! @parameter iv_defaults | path-value pairs that apply if value is initial
"! @parameter ev_data | data of the xstring
METHODS deserialize
IMPORTING
!iv_content TYPE string
!iv_defaults TYPE ty_skip_paths OPTIONAL
!iv_enum_mappings TYPE ty_enum_mappings OPTIONAL
EXPORTING
!ev_data TYPE data
RAISING
cx_static_check .
PROTECTED SECTION.
PRIVATE SECTION.
METHODS:
map2json_original_language
CHANGING co_ajson TYPE REF TO zif_abapgit_ajson
RAISING zcx_abapgit_ajson_error,
map2json_custom_enum
IMPORTING it_enum_mappings TYPE ty_enum_mappings
CHANGING co_ajson TYPE REF TO zif_abapgit_ajson
RAISING zcx_abapgit_ajson_error,
map2json_abap_language_version
CHANGING co_ajson TYPE REF TO zif_abapgit_ajson
RAISING zcx_abapgit_ajson_error,
"! Get the enum mapping from object handler, as other enums as well
map2abap_abap_language_version
CHANGING co_ajson TYPE REF TO zif_abapgit_ajson
RAISING zcx_abapgit_ajson_error,
"! For deserialization
map2abap_original_language
CHANGING co_ajson TYPE REF TO zif_abapgit_ajson
RAISING zcx_abapgit_ajson_error,
"! For deserialization
set_defaults
IMPORTING it_defaults TYPE ty_skip_paths
CHANGING co_ajson TYPE REF TO zif_abapgit_ajson
RAISING zcx_abapgit_ajson_error,
map2abap_custom_enum
IMPORTING it_enum_mappings TYPE ty_enum_mappings
CHANGING co_ajson TYPE REF TO zif_abapgit_ajson
RAISING zcx_abapgit_ajson_error.
ENDCLASS.
CLASS zcl_abapgit_json_handler IMPLEMENTATION.
METHOD deserialize.
DATA lo_ajson TYPE REF TO zif_abapgit_ajson.
CLEAR ev_data.
lo_ajson = zcl_abapgit_ajson=>parse( iv_content
)->map( zcl_abapgit_ajson_mapping=>create_to_snake_case( ) ).
map2abap_original_language( CHANGING co_ajson = lo_ajson ).
set_defaults( EXPORTING it_defaults = iv_defaults
CHANGING co_ajson = lo_ajson ).
map2abap_abap_language_version( CHANGING co_ajson = lo_ajson ).
map2abap_custom_enum( EXPORTING it_enum_mappings = iv_enum_mappings
CHANGING co_ajson = lo_ajson ).
lo_ajson->to_abap( IMPORTING ev_container = ev_data ).
ENDMETHOD.
METHOD map2abap_abap_language_version.
DATA:
lv_enum_abap TYPE string,
lv_enum_json TYPE string.
lv_enum_json = co_ajson->get_string( ''/header/abap_language_version'' ).
IF lv_enum_json = zif_abapgit_dot_abapgit=>c_abap_language_version-standard.
lv_enum_abap = zif_abapgit_aff_types_v1=>co_abap_language_version_src-standard.
ELSEIF lv_enum_json = zif_abapgit_dot_abapgit=>c_abap_language_version-cloud_development.
lv_enum_abap = zif_abapgit_aff_types_v1=>co_abap_language_version-cloud_development.
ELSEIF lv_enum_json = zif_abapgit_dot_abapgit=>c_abap_language_version-key_user.
lv_enum_abap = zif_abapgit_aff_types_v1=>co_abap_language_version-key_user.
ENDIF.
co_ajson->set_string( iv_path = ''/header/abap_language_version''
iv_val = lv_enum_abap ).
ENDMETHOD.
METHOD map2abap_custom_enum.
DATA:
lv_enum_json TYPE string,
ls_enum_mapping TYPE ty_enum_mapping,
ls_mapping TYPE ty_json_abap_mapping.
LOOP AT it_enum_mappings INTO ls_enum_mapping.
lv_enum_json = co_ajson->get_string( ls_enum_mapping-path ).
READ TABLE ls_enum_mapping-mappings WITH KEY json = lv_enum_json INTO ls_mapping.
IF sy-subrc = 0.
co_ajson->set_string( iv_path = ls_enum_mapping-path
iv_val = ls_mapping-abap ).
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD map2abap_original_language.
DATA:
lv_bcp47_language TYPE string,
lv_original_language TYPE sy-langu.
lv_bcp47_language = co_ajson->get_string( ''/header/original_language'' ).
lv_original_language = zcl_abapgit_convert=>language_bcp47_to_sap1( lv_bcp47_language ).
co_ajson->set_string( iv_path = ''/header/original_language''
iv_val = lv_original_language ).
ENDMETHOD.
METHOD map2json_abap_language_version.
DATA:
lv_enum_abap TYPE string,
lv_enum_json TYPE string.
lv_enum_abap = co_ajson->get_string( ''/header/abapLanguageVersion'' ).
IF lv_enum_abap = zif_abapgit_aff_types_v1=>co_abap_language_version_src-standard
OR lv_enum_abap = zif_abapgit_aff_types_v1=>co_abap_language_version-standard.
lv_enum_json = zif_abapgit_dot_abapgit=>c_abap_language_version-standard.
ELSEIF lv_enum_abap = zif_abapgit_aff_types_v1=>co_abap_language_version-cloud_development.
lv_enum_json = zif_abapgit_dot_abapgit=>c_abap_language_version-cloud_development.
ELSEIF lv_enum_abap = zif_abapgit_aff_types_v1=>co_abap_language_version-key_user.
lv_enum_json = zif_abapgit_dot_abapgit=>c_abap_language_version-key_user.
ENDIF.
co_ajson->set_string( iv_path = ''/header/abapLanguageVersion''
iv_val = lv_enum_json ).
ENDMETHOD.
METHOD map2json_custom_enum.
DATA:
lv_enum_abap TYPE string,
ls_enum_mapping TYPE ty_enum_mapping,
ls_mapping TYPE ty_json_abap_mapping.
LOOP AT it_enum_mappings INTO ls_enum_mapping.
lv_enum_abap = co_ajson->get_string( ls_enum_mapping-path ).
READ TABLE ls_enum_mapping-mappings WITH KEY abap = lv_enum_abap INTO ls_mapping.
IF sy-subrc = 0.
co_ajson->set_string( iv_path = ls_enum_mapping-path
iv_val = ls_mapping-json ).
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD map2json_original_language.
DATA:
lv_bcp47_language TYPE string,
lv_original_language TYPE sy-langu.
lv_original_language = co_ajson->get_string( ''/header/originalLanguage'' ).
lv_bcp47_language = zcl_abapgit_convert=>language_sap1_to_bcp47( lv_original_language ).
co_ajson->set_string( iv_path = ''/header/originalLanguage''
iv_val = lv_bcp47_language ).
ENDMETHOD.
METHOD serialize.
DATA: lt_st_source TYPE abap_trans_srcbind_tab,
lv_json TYPE string,
lo_ajson TYPE REF TO zif_abapgit_ajson,
lo_filter TYPE REF TO lcl_aff_filter.
FIELD-SYMBOLS: <lg_source> LIKE LINE OF lt_st_source.
APPEND INITIAL LINE TO lt_st_source ASSIGNING <lg_source>.
GET REFERENCE OF iv_data INTO <lg_source>-value.
lo_ajson = zcl_abapgit_ajson=>new( iv_keep_item_order = abap_true
)->set( iv_path = ''/''
iv_val = iv_data
)->map( zcl_abapgit_ajson_mapping=>create_to_camel_case( ) ).
map2json_original_language( CHANGING co_ajson = lo_ajson ).
map2json_abap_language_version( CHANGING co_ajson = lo_ajson ).
map2json_custom_enum( EXPORTING it_enum_mappings = iv_enum_mappings
CHANGING co_ajson = lo_ajson ).
CREATE OBJECT lo_filter EXPORTING iv_skip_paths = iv_skip_paths.
" files end with an empty line (EOF)
lv_json = lo_ajson->clone( )->filter( lo_filter )->stringify( 2 ) && cl_abap_char_utilities=>newline.
rv_result = zcl_abapgit_convert=>string_to_xstring_utf8( lv_json ).
ENDMETHOD.
METHOD set_defaults.
DATA:
lv_enum_json TYPE string,
ls_default TYPE ty_path_value_pair.
LOOP AT it_defaults INTO ls_default.
lv_enum_json = co_ajson->get_string( ls_default-path ).
IF lv_enum_json = \`\`.
co_ajson->set_string( iv_path = ls_default-path
iv_val = ls_default-value ).
ENDIF.
ENDLOOP.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_JSON_PATH ', 'CLASS zcl_abapgit_json_path DEFINITION PUBLIC CREATE PUBLIC.
PUBLIC SECTION.
METHODS: serialize
IMPORTING iv_json TYPE string
RETURNING VALUE(rt_result) TYPE string_table
RAISING zcx_abapgit_exception.
METHODS: deserialize
IMPORTING it_json_path TYPE string_table
RETURNING VALUE(rv_result) TYPE string
RAISING zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_json_path IMPLEMENTATION.
METHOD deserialize.
rv_result = lcl_json_path=>deserialize( it_json_path ).
ENDMETHOD.
METHOD serialize.
DATA: lo_json_path TYPE REF TO lcl_json_path,
lv_json_xstring TYPE xstring,
lt_root_path TYPE string_table,
lo_reader TYPE REF TO if_sxml_reader,
lx_parse_error TYPE REF TO cx_sxml_parse_error.
lv_json_xstring = zcl_abapgit_convert=>string_to_xstring_utf8( iv_json ).
lo_reader = cl_sxml_string_reader=>create( input = lv_json_xstring ).
TRY.
IF lo_reader->read_next_node( ) IS INITIAL.
RETURN.
ENDIF.
CATCH cx_sxml_parse_error INTO lx_parse_error.
zcx_abapgit_exception=>raise_with_text( lx_parse_error ).
ENDTRY.
APPEND \`$\` TO lt_root_path.
CREATE OBJECT lo_json_path.
lo_json_path->serialize_rec( EXPORTING io_reader = lo_reader
it_path = lt_root_path
CHANGING ct_json_paths = rt_result ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_AFF_REGISTRY ', 'INTERFACE zif_abapgit_aff_registry
PUBLIC .
METHODS:
"! Returns TRUE if the object type is supported by ABAP file formats (AFF) in abapGit.<br/>
"! Either there is a (standalone AFF capable) object handler,
"! or object handler calls the AFF framework in newer ABAP systems.
is_supported_object_type
IMPORTING
iv_obj_type TYPE tadir-object
RETURNING
VALUE(rv_result) TYPE abap_bool.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_AFF_TYPE_MAPPING ', 'INTERFACE zif_abapgit_aff_type_mapping
PUBLIC .
METHODS:
"! Convert from AFF to abapGit data
"!
"! @parameter iv_data | ABAP data as AFF type
"! @parameter iv_object_name | Name of object
"! @parameter es_data | ABAP data as abapGit type
to_abapgit
IMPORTING iv_data TYPE data
iv_object_name TYPE sobj_name
EXPORTING es_data TYPE data,
"! Converts to AFF specific meta data
"!
"! @parameter iv_data | (meta-)data of the object
"! @parameter es_data | aff data of the object, e.g. zif_abapgit_aff_intf_v1=>ty_main
to_aff
IMPORTING iv_data TYPE data
EXPORTING es_data TYPE data.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_AFF_INTF_V1 ', 'INTERFACE zif_abapgit_aff_intf_v1 PUBLIC.
TYPES ty_category TYPE n LENGTH 2.
CONSTANTS:
BEGIN OF co_category,
general TYPE ty_category VALUE ''00'',
classic_badi TYPE ty_category VALUE ''01'',
business_static_components TYPE ty_category VALUE ''51'',
business_instance_components TYPE ty_category VALUE ''52'',
db_procedure_proxy TYPE ty_category VALUE ''65'',
web_dynpro_runtime TYPE ty_category VALUE ''80'',
enterprise_service TYPE ty_category VALUE ''90'',
END OF co_category.
TYPES:
BEGIN OF ty_main,
format_version TYPE zif_abapgit_aff_types_v1=>ty_format_version,
header TYPE zif_abapgit_aff_types_v1=>ty_header_60_src,
category TYPE ty_category,
proxy TYPE abap_bool,
descriptions TYPE zif_abapgit_aff_oo_types_v1=>ty_descriptions,
END OF ty_main.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_AFF_OO_TYPES_V1 ', 'INTERFACE zif_abapgit_aff_oo_types_v1
PUBLIC.
TYPES:
BEGIN OF ty_component_description,
name TYPE zif_abapgit_aff_types_v1=>ty_object_name_30,
description TYPE zif_abapgit_aff_types_v1=>ty_description_60,
END OF ty_component_description,
ty_component_descriptions TYPE SORTED TABLE OF ty_component_description WITH UNIQUE KEY name.
TYPES:
BEGIN OF ty_method,
name TYPE zif_abapgit_aff_types_v1=>ty_object_name_30,
description TYPE zif_abapgit_aff_types_v1=>ty_description_60,
parameters TYPE ty_component_descriptions,
exceptions TYPE ty_component_descriptions,
END OF ty_method,
ty_methods TYPE SORTED TABLE OF ty_method WITH UNIQUE KEY name.
TYPES:
BEGIN OF ty_event,
name TYPE zif_abapgit_aff_types_v1=>ty_object_name_30,
description TYPE zif_abapgit_aff_types_v1=>ty_description_60,
parameters TYPE ty_component_descriptions,
END OF ty_event,
ty_events TYPE SORTED TABLE OF ty_event WITH UNIQUE KEY name.
TYPES:
BEGIN OF ty_descriptions,
types TYPE ty_component_descriptions,
attributes TYPE ty_component_descriptions,
events TYPE ty_events,
methods TYPE ty_methods,
END OF ty_descriptions.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_AFF_TYPES_V1 ', 'INTERFACE zif_abapgit_aff_types_v1 PUBLIC.
TYPES ty_format_version TYPE string.
TYPES ty_abap_language_version TYPE c LENGTH 1.
TYPES ty_abap_language_version_cloud TYPE c LENGTH 1.
TYPES ty_abap_language_version_src TYPE c LENGTH 1.
CONSTANTS:
BEGIN OF co_abap_language_version_src,
standard TYPE ty_abap_language_version_src VALUE ''X'',
key_user TYPE ty_abap_language_version_src VALUE ''2'',
cloud_development TYPE ty_abap_language_version_src VALUE ''5'',
END OF co_abap_language_version_src.
CONSTANTS:
BEGIN OF co_abap_language_version,
standard TYPE ty_abap_language_version VALUE space,
key_user TYPE ty_abap_language_version VALUE ''2'',
cloud_development TYPE ty_abap_language_version VALUE ''5'',
END OF co_abap_language_version.
CONSTANTS:
BEGIN OF co_abap_language_version_cloud,
standard TYPE ty_abap_language_version_cloud VALUE space,
cloud_development TYPE ty_abap_language_version_cloud VALUE ''5'',
END OF co_abap_language_version_cloud.
TYPES ty_description_60 TYPE c LENGTH 60.
TYPES ty_description_100 TYPE c LENGTH 100.
TYPES ty_object_name_30 TYPE c LENGTH 30.
TYPES ty_original_language TYPE sy-langu.
TYPES:
BEGIN OF ty_header_60_src,
description TYPE ty_description_60,
original_language TYPE ty_original_language,
abap_language_version TYPE ty_abap_language_version_src,
END OF ty_header_60_src.
TYPES:
BEGIN OF ty_header_60_cloud,
description TYPE ty_description_60,
original_language TYPE ty_original_language,
abap_language_version TYPE ty_abap_language_version_cloud,
END OF ty_header_60_cloud.
TYPES:
BEGIN OF ty_header_60,
description TYPE ty_description_60,
original_language TYPE ty_original_language,
abap_language_version TYPE ty_abap_language_version,
END OF ty_header_60.
TYPES:
BEGIN OF ty_header_60_no_abap_lv,
description TYPE ty_description_60,
original_language TYPE ty_original_language,
END OF ty_header_60_no_abap_lv.
TYPES:
BEGIN OF ty_header_100,
description TYPE ty_description_100,
original_language TYPE ty_original_language,
abap_language_version TYPE ty_abap_language_version,
END OF ty_header_100.
TYPES:
BEGIN OF ty_header_only_description,
description TYPE ty_description_60,
END OF ty_header_only_description.
TYPES ty_option TYPE c LENGTH 2.
CONSTANTS:
BEGIN OF co_option,
equals TYPE ty_option VALUE ''EQ'',
between TYPE ty_option VALUE ''BT'',
greater_than TYPE ty_option VALUE ''GT'',
contains_pattern TYPE ty_option VALUE ''CP'',
not_equal TYPE ty_option VALUE ''NE'',
not_between TYPE ty_option VALUE ''NB'',
not_contains_pattern TYPE ty_option VALUE ''NP'',
greater_equal TYPE ty_option VALUE ''GE'',
less_than TYPE ty_option VALUE ''LT'',
less_equal TYPE ty_option VALUE ''LE'',
END OF co_option.
TYPES ty_sign TYPE c LENGTH 1.
CONSTANTS:
BEGIN OF co_sign,
include TYPE ty_sign VALUE ''I'',
exclude TYPE ty_sign VALUE ''E'',
END OF co_sign.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_DEPENDENCIES ', 'CLASS zcl_abapgit_dependencies DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS resolve
CHANGING
!ct_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
PRIVATE SECTION.
TYPES:
BEGIN OF ty_dependency,
depname TYPE dd02l-tabname,
deptyp TYPE c LENGTH 4,
deplocal TYPE dd02l-as4local,
refname TYPE dd02l-tabname,
reftyp TYPE c LENGTH 4,
kind TYPE c LENGTH 1,
END OF ty_dependency .
TYPES:
ty_dedenpencies TYPE STANDARD TABLE OF ty_dependency
WITH NON-UNIQUE DEFAULT KEY .
TYPES:
BEGIN OF ty_item,
obj_type TYPE tadir-object,
obj_name TYPE tadir-obj_name,
devclass TYPE devclass,
END OF ty_item .
CLASS-METHODS resolve_ddic
CHANGING
!ct_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt
RAISING
zcx_abapgit_exception .
CLASS-METHODS get_ddls_dependencies
IMPORTING
iv_ddls_name TYPE tadir-obj_name
RETURNING
VALUE(rt_dependency) TYPE ty_dedenpencies.
CLASS-METHODS resolve_packages
CHANGING
ct_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt.
ENDCLASS.
CLASS zcl_abapgit_dependencies IMPLEMENTATION.
METHOD get_ddls_dependencies.
DATA: lt_ddls_name TYPE TABLE OF ddsymtab,
ls_ddls_name TYPE ddsymtab.
ls_ddls_name-name = iv_ddls_name.
INSERT ls_ddls_name INTO TABLE lt_ddls_name.
PERFORM (''DDLS_GET_DEP'') IN PROGRAM (''RADMASDL'')
TABLES lt_ddls_name rt_dependency.
ENDMETHOD.
METHOD resolve.
DATA: lv_tabclass TYPE dd02l-tabclass.
FIELD-SYMBOLS: <ls_tadir> LIKE LINE OF ct_tadir.
" misuse field KORRNUM to fix deletion sequence
" higher value means later deletion
LOOP AT ct_tadir ASSIGNING <ls_tadir>.
CASE <ls_tadir>-object.
WHEN ''DEVC''.
" Packages last
<ls_tadir>-korrnum = ''999000''.
WHEN ''DOMA''.
<ls_tadir>-korrnum = ''900000''.
WHEN ''SPRX''.
<ls_tadir>-korrnum = ''850000''.
WHEN ''WEBI''.
<ls_tadir>-korrnum = ''840000''.
WHEN ''PARA''.
" PARA after DTEL
<ls_tadir>-korrnum = ''810000''.
WHEN ''DTEL''.
<ls_tadir>-korrnum = ''800000''.
WHEN ''SHLP''.
" SHLP after TABL
<ls_tadir>-korrnum = ''760000''.
WHEN ''TTYP'' OR ''TABL'' OR ''VIEW''.
SELECT SINGLE tabclass FROM dd02l
INTO lv_tabclass
WHERE tabname = <ls_tadir>-obj_name
AND as4local = ''A''
AND as4vers = ''0000''.
IF sy-subrc = 0 AND lv_tabclass = ''APPEND''.
" delete append structures before database tables
<ls_tadir>-korrnum = ''730000''.
ELSE.
<ls_tadir>-korrnum = ''750000''.
ENDIF.
WHEN ''ENQU''.
" ENQU before TABL
<ls_tadir>-korrnum = ''725000''.
WHEN ''DDLS''.
" DDLS after DCLS but before other DDIC
<ls_tadir>-korrnum = ''720000''.
WHEN ''DDLX''.
" DDLX before DDLS
<ls_tadir>-korrnum = ''719000''.
WHEN ''AUTH''.
" AUTH after DCLS
<ls_tadir>-korrnum = ''715000''.
WHEN ''SUSH''.
" SUSH after SUSC
<ls_tadir>-korrnum = ''712000''.
WHEN ''SUSC''.
" SUSC after SUSO
<ls_tadir>-korrnum = ''711000''.
WHEN ''SUSO''.
" SUSO after DCLS
<ls_tadir>-korrnum = ''710000''.
WHEN ''DCLS''.
" AUTH and SUSO after DCLS
<ls_tadir>-korrnum = ''705000''.
WHEN ''IASP''.
<ls_tadir>-korrnum = ''552000''.
WHEN ''IARP''.
<ls_tadir>-korrnum = ''551000''.
WHEN ''IATU''.
<ls_tadir>-korrnum = ''550000''.
WHEN ''ACID''.
" ACID after PROG/FUGR/CLAS
<ls_tadir>-korrnum = ''300000''.
WHEN ''FUGR''.
<ls_tadir>-korrnum = ''260000''.
WHEN ''PROG''.
" delete includes after main programs
SELECT COUNT(*) FROM reposrc
WHERE progname = <ls_tadir>-obj_name
AND r3state = ''A''
AND subc = ''I''.
IF sy-subrc = 0.
<ls_tadir>-korrnum = ''250000''.
ELSE.
<ls_tadir>-korrnum = ''240000''.
ENDIF.
WHEN ''INTF''.
<ls_tadir>-korrnum = ''230000''.
WHEN ''CLAS''.
<ls_tadir>-korrnum = ''220000''.
WHEN ''IDOC''.
<ls_tadir>-korrnum = ''200000''.
WHEN ''IOBJ''.
<ls_tadir>-korrnum = ''195000''.
WHEN ''ODSO''.
<ls_tadir>-korrnum = ''190000''.
WHEN ''WDCA''.
<ls_tadir>-korrnum = ''174000''.
WHEN ''WDYA''.
<ls_tadir>-korrnum = ''173000''.
WHEN ''WDCC''.
<ls_tadir>-korrnum = ''172000''.
WHEN ''WDYN''.
<ls_tadir>-korrnum = ''171000''.
WHEN ''IEXT''.
<ls_tadir>-korrnum = ''150000''.
WHEN ''SAPC''.
" SAPC after SICF
<ls_tadir>-korrnum = ''140000''.
WHEN ''PINF''.
" PINF before exposed objects
<ls_tadir>-korrnum = ''130000''.
WHEN OTHERS.
<ls_tadir>-korrnum = ''100000''.
ENDCASE.
ENDLOOP.
resolve_ddic( CHANGING ct_tadir = ct_tadir ).
resolve_packages( CHANGING ct_tadir = ct_tadir ).
SORT ct_tadir BY korrnum ASCENDING.
ENDMETHOD.
METHOD resolve_ddic.
* this will make sure the deletion sequence of structures/tables work
* in case they have dependencies with .INCLUDE
TYPES: BEGIN OF ty_edge,
from TYPE ty_item,
to TYPE ty_item,
END OF ty_edge.
DATA: lt_nodes TYPE TABLE OF ty_item,
lt_edges TYPE TABLE OF ty_edge,
lt_findstrings TYPE TABLE OF rsfind,
lv_plus TYPE i VALUE 1,
lv_find_obj_cls TYPE euobj-id,
lv_index TYPE i,
lv_before TYPE i,
lt_founds TYPE TABLE OF rsfindlst,
lt_scope TYPE STANDARD TABLE OF seu_obj,
lt_dependency TYPE ty_dedenpencies.
FIELD-SYMBOLS: <ls_tadir_ddls> TYPE zif_abapgit_definitions=>ty_tadir,
<ls_dependency> TYPE ty_dependency,
<ls_tadir_dependent> TYPE zif_abapgit_definitions=>ty_tadir,
<ls_tadir> LIKE LINE OF ct_tadir,
<ls_edge> LIKE LINE OF lt_edges,
<ls_found> LIKE LINE OF lt_founds,
<ls_node> LIKE LINE OF lt_nodes.
" build nodes
LOOP AT ct_tadir ASSIGNING <ls_tadir>
WHERE object = ''TABL''
OR object = ''VIEW''
OR object = ''TTYP''.
APPEND INITIAL LINE TO lt_nodes ASSIGNING <ls_node>.
<ls_node>-obj_name = <ls_tadir>-obj_name.
<ls_node>-obj_type = <ls_tadir>-object.
ENDLOOP.
APPEND ''TABL'' TO lt_scope.
APPEND ''VIEW'' TO lt_scope.
APPEND ''STRU'' TO lt_scope.
APPEND ''TTYP'' TO lt_scope.
" build edges
LOOP AT lt_nodes ASSIGNING <ls_node>.
CLEAR lt_findstrings.
APPEND <ls_node>-obj_name TO lt_findstrings.
lv_find_obj_cls = <ls_node>-obj_type.
CALL FUNCTION ''RS_EU_CROSSREF''
EXPORTING
i_find_obj_cls = lv_find_obj_cls
TABLES
i_findstrings = lt_findstrings
o_founds = lt_founds
i_scope_object_cls = lt_scope
EXCEPTIONS
not_executed = 1
not_found = 2
illegal_object = 3
no_cross_for_this_object = 4
batch = 5
batchjob_error = 6
wrong_type = 7
object_not_exist = 8
OTHERS = 9.
IF sy-subrc <> 0.
CONTINUE.
ENDIF.
LOOP AT lt_founds ASSIGNING <ls_found>.
APPEND INITIAL LINE TO lt_edges ASSIGNING <ls_edge>.
<ls_edge>-from = <ls_node>.
<ls_edge>-to-obj_name = <ls_found>-object.
CASE <ls_found>-object_cls.
WHEN ''DS''
OR ''DT''.
<ls_edge>-to-obj_type = ''TABL''.
WHEN ''DV''.
<ls_edge>-to-obj_type = ''VIEW''.
WHEN ''DA''.
<ls_edge>-to-obj_type = ''TTYP''.
WHEN OTHERS.
zcx_abapgit_exception=>raise( ''resolve_ddic, unknown object_cls'' ).
ENDCASE.
ENDLOOP.
ENDLOOP.
" build DDLS edges
SORT ct_tadir. "binary search
LOOP AT ct_tadir ASSIGNING <ls_tadir_ddls>
WHERE object = ''DDLS''.
CLEAR: lt_dependency.
APPEND INITIAL LINE TO lt_nodes ASSIGNING <ls_node>.
<ls_node>-obj_name = <ls_tadir_ddls>-obj_name.
<ls_node>-obj_type = <ls_tadir_ddls>-object.
lt_dependency = get_ddls_dependencies( <ls_tadir_ddls>-obj_name ).
LOOP AT lt_dependency ASSIGNING <ls_dependency>
WHERE deptyp = ''DDLS''
AND refname = <ls_tadir_ddls>-obj_name.
READ TABLE ct_tadir ASSIGNING <ls_tadir_dependent>
WITH KEY pgmid = ''R3TR''
object = ''DDLS''
obj_name = <ls_dependency>-depname
BINARY SEARCH.
CHECK sy-subrc = 0.
APPEND INITIAL LINE TO lt_edges ASSIGNING <ls_edge>.
<ls_edge>-from = <ls_node>.
<ls_edge>-to-obj_name = <ls_dependency>-depname.
<ls_edge>-to-obj_type = ''DDLS''.
ENDLOOP.
ENDLOOP.
DO.
lv_before = lines( lt_nodes ).
LOOP AT lt_nodes ASSIGNING <ls_node>.
lv_index = sy-tabix.
READ TABLE lt_edges WITH KEY
from-obj_name = <ls_node>-obj_name
from-obj_type = <ls_node>-obj_type
TRANSPORTING NO FIELDS.
IF sy-subrc <> 0.
LOOP AT ct_tadir ASSIGNING <ls_tadir>
WHERE obj_name = <ls_node>-obj_name
AND object = <ls_node>-obj_type.
<ls_tadir>-korrnum = <ls_tadir>-korrnum + lv_plus.
CONDENSE <ls_tadir>-korrnum.
ENDLOOP.
DELETE lt_edges
WHERE to-obj_name = <ls_node>-obj_name
AND to-obj_type = <ls_node>-obj_type.
DELETE lt_nodes INDEX lv_index.
EXIT. " make sure the sequence is fixed
ENDIF.
ENDLOOP.
IF lv_before = lines( lt_nodes ).
EXIT.
ENDIF.
lv_plus = lv_plus + 1.
ENDDO.
ENDMETHOD.
METHOD resolve_packages.
DATA: lt_subpackages TYPE zif_abapgit_sap_package=>ty_devclass_tt.
FIELD-SYMBOLS: <ls_tadir> LIKE LINE OF ct_tadir,
<lv_subpackage> LIKE LINE OF lt_subpackages,
<ls_tadir_subpackage> LIKE LINE OF ct_tadir.
" List subpackage before corresponding superpackage
LOOP AT ct_tadir ASSIGNING <ls_tadir>
WHERE object = ''DEVC''.
lt_subpackages = zcl_abapgit_factory=>get_sap_package( |{ <ls_tadir>-obj_name }| )->list_subpackages( ).
LOOP AT lt_subpackages ASSIGNING <lv_subpackage>.
READ TABLE ct_tadir ASSIGNING <ls_tadir_subpackage>
WITH KEY object = ''DEVC''
obj_name = <lv_subpackage>.
IF sy-subrc = 0.
<ls_tadir_subpackage>-korrnum = condense( |{ <ls_tadir_subpackage>-korrnum - 1 }| ).
ENDIF.
ENDLOOP.
ENDLOOP.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_FILE_DESERIALIZE ', 'CLASS zcl_abapgit_file_deserialize DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS get_results
IMPORTING
!io_repo TYPE REF TO zcl_abapgit_repo
!ii_log TYPE REF TO zif_abapgit_log OPTIONAL
RETURNING
VALUE(rt_results) TYPE zif_abapgit_definitions=>ty_results_tt
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-METHODS filter_files_to_deserialize
IMPORTING
!it_results TYPE zif_abapgit_definitions=>ty_results_tt
!ii_log TYPE REF TO zif_abapgit_log OPTIONAL
RETURNING
VALUE(rt_results) TYPE zif_abapgit_definitions=>ty_results_tt .
CLASS-METHODS prioritize_deser
IMPORTING
!ii_log TYPE REF TO zif_abapgit_log
!it_results TYPE zif_abapgit_definitions=>ty_results_tt
RETURNING
VALUE(rt_results) TYPE zif_abapgit_definitions=>ty_results_tt .
CLASS-METHODS map_results_to_items
IMPORTING
!it_results TYPE zif_abapgit_definitions=>ty_results_tt
RETURNING
VALUE(rt_items) TYPE zif_abapgit_definitions=>ty_items_tt .
ENDCLASS.
CLASS zcl_abapgit_file_deserialize IMPLEMENTATION.
METHOD filter_files_to_deserialize.
DATA lt_objects LIKE rt_results.
DATA lr_object TYPE REF TO zif_abapgit_definitions=>ty_result.
DATA ls_item TYPE zif_abapgit_definitions=>ty_item.
DATA lv_tabix TYPE sy-tabix.
rt_results = it_results.
"preparation for object logging, sort all file entries by objects
IF ii_log IS BOUND.
lt_objects = rt_results.
SORT lt_objects
BY obj_type
obj_name.
DELETE ADJACENT DUPLICATES FROM lt_objects COMPARING obj_type obj_name.
DELETE lt_objects WHERE obj_type IS INITIAL AND obj_name IS INITIAL.
ENDIF.
"ignore objects w/o changes
DELETE rt_results WHERE match = abap_true. " Full match
"log objects w/o changes
IF sy-subrc = 0 AND ii_log IS BOUND.
SORT rt_results BY obj_type obj_name.
LOOP AT lt_objects REFERENCE INTO lr_object.
lv_tabix = sy-tabix.
READ TABLE rt_results WITH KEY obj_type = lr_object->obj_type
obj_name = lr_object->obj_name
BINARY SEARCH TRANSPORTING NO FIELDS.
IF sy-subrc <> 0.
"all parts of the objects have not changed
ls_item-devclass = lr_object->package.
ls_item-obj_type = lr_object->obj_type.
ls_item-obj_name = lr_object->obj_name.
ii_log->add_success(
iv_msg = |Object { ls_item-obj_name } (type { ls_item-obj_type }) not changed; no import required|
is_item = ls_item ).
"ignore object for further messages
DELETE lt_objects INDEX lv_tabix.
ENDIF.
ENDLOOP.
ENDIF.
"ignore objects w/o object type
DELETE rt_results WHERE obj_type IS INITIAL.
"log objects w/o object type
IF sy-subrc = 0 AND ii_log IS BOUND.
" Note: Moving the CHECK condition to the LOOP WHERE clause will lead to a
" syntax warning in higher releases and syntax error in 702
LOOP AT lt_objects REFERENCE INTO lr_object.
CHECK lr_object->obj_type IS INITIAL AND lr_object->obj_name IS NOT INITIAL.
ls_item-devclass = lr_object->package.
ls_item-obj_type = lr_object->obj_type.
ls_item-obj_name = lr_object->obj_name.
ii_log->add_warning(
iv_msg = |Object type for { ls_item-obj_name } not defined - will be ignored by abapGit|
is_item = ls_item ).
ENDLOOP.
DELETE lt_objects WHERE obj_type IS INITIAL.
ENDIF.
"ignore objects that exists only local
DELETE rt_results WHERE lstate = zif_abapgit_definitions=>c_state-added AND rstate IS INITIAL.
"ignore objects that where deleted remotely
DELETE rt_results WHERE rstate = zif_abapgit_definitions=>c_state-deleted.
"log objects that exists only local or where deleted remotely
IF sy-subrc = 0 AND ii_log IS BOUND.
SORT rt_results BY obj_type obj_name.
LOOP AT lt_objects REFERENCE INTO lr_object.
lv_tabix = sy-tabix.
READ TABLE rt_results WITH KEY obj_type = lr_object->obj_type
obj_name = lr_object->obj_name
BINARY SEARCH TRANSPORTING NO FIELDS.
IF sy-subrc <> 0.
"all parts exists only local
"no log message; ignore object for further messages
DELETE lt_objects INDEX lv_tabix.
ENDIF.
ENDLOOP.
ENDIF.
"ignore table content
DELETE rt_results WHERE path = zif_abapgit_data_config=>c_default_path.
SORT rt_results
BY obj_type ASCENDING
obj_name ASCENDING
rstate DESCENDING " ensures that non-empty rstate is kept
lstate DESCENDING. " ensures that non-empty lstate is kept
DELETE ADJACENT DUPLICATES FROM rt_results COMPARING obj_type obj_name.
ENDMETHOD.
METHOD get_results.
DATA lt_results TYPE zif_abapgit_definitions=>ty_results_tt.
lt_results = filter_files_to_deserialize(
it_results = zcl_abapgit_repo_status=>calculate( io_repo )
ii_log = ii_log ).
rt_results = prioritize_deser(
ii_log = ii_log
it_results = lt_results ).
ENDMETHOD.
METHOD map_results_to_items.
DATA ls_item LIKE LINE OF rt_items.
FIELD-SYMBOLS: <ls_result> TYPE zif_abapgit_definitions=>ty_result.
LOOP AT it_results ASSIGNING <ls_result>.
ls_item-devclass = <ls_result>-package.
ls_item-obj_type = <ls_result>-obj_type.
ls_item-obj_name = <ls_result>-obj_name.
INSERT ls_item INTO TABLE rt_items.
ENDLOOP.
ENDMETHOD.
METHOD prioritize_deser.
DATA lt_items TYPE zif_abapgit_definitions=>ty_items_tt.
DATA ls_item LIKE LINE OF lt_items.
DATA lt_requires TYPE zif_abapgit_definitions=>ty_items_tt.
DATA ls_require LIKE LINE OF lt_requires.
DATA ls_result LIKE LINE OF it_results.
DATA lo_graph TYPE REF TO zcl_abapgit_item_graph.
lt_items = map_results_to_items( it_results ).
CREATE OBJECT lo_graph EXPORTING it_items = lt_items.
LOOP AT lt_items INTO ls_item.
CLEAR lt_requires.
* TODO: BEGIN extract to object handler method in ZIF_ABAPGIT_OBJECT:
* METHODS get_deserialize_order
* IMPORTING
* it_items TYPE ty_items_tt
* RETURNING
* VALUE(rt_requries) TYPE ty_items_tt
CASE ls_item-obj_type.
WHEN ''SPRX''.
lt_requires = lt_items.
DELETE lt_requires WHERE obj_type <> ''WEBI''.
WHEN ''CLAS''.
lt_requires = lt_items.
DELETE lt_requires WHERE obj_type <> ''SPRX''
AND obj_type <> ''INTF''
AND obj_type <> ''XSLT''.
WHEN ''PROG''.
lt_requires = lt_items.
DELETE lt_requires WHERE obj_type <> ''XSLT''.
WHEN ''INTF''.
lt_requires = lt_items.
DELETE lt_requires WHERE obj_type <> ''SPRX''
AND obj_type <> ''XSLT''.
WHEN ''TABL''.
lt_requires = lt_items.
DELETE lt_requires WHERE obj_type <> ''SPRX''.
WHEN ''IARP''.
lt_requires = lt_items.
DELETE lt_requires WHERE obj_type <> ''IASP''.
WHEN ''IATU'' OR ''IAXU'' OR ''IAMU''.
lt_requires = lt_items.
DELETE lt_requires WHERE obj_type <> ''IASP''
AND obj_type <> ''PROG''
AND obj_type <> ''IARP''.
WHEN ''DCLS''.
lt_requires = lt_items.
DELETE lt_requires WHERE obj_type <> ''DDLS''.
WHEN ''ODSO''.
lt_requires = lt_items.
DELETE lt_requires WHERE obj_type <> ''IOBJ''.
WHEN ''SCP1''.
lt_requires = lt_items.
DELETE lt_requires WHERE obj_type <> ''TOBJ''.
WHEN ''CHAR''.
lt_requires = lt_items.
DELETE lt_requires WHERE obj_type <> ''OTGR''.
WHEN ''PINF''.
lt_requires = lt_items.
DELETE lt_requires WHERE obj_type <> ''CLAS''
AND obj_type <> ''INTF''
AND obj_type <> ''TABL''
AND obj_type <> ''DOMA''
AND obj_type <> ''DTEL''.
WHEN ''DEVC''.
lt_requires = lt_items.
DELETE lt_requires WHERE obj_type <> ''PINF''.
WHEN ''ENHC''.
lt_requires = lt_items.
DELETE lt_requires WHERE obj_type <> ''ENHO''.
WHEN ''ENHO''.
lt_requires = lt_items.
DELETE lt_requires WHERE obj_type <> ''ENSC'' AND obj_type <> ''ENHS''.
WHEN ''ENSC''.
lt_requires = lt_items.
DELETE lt_requires WHERE obj_type <> ''ENHS''.
ENDCASE.
* TODO: END extract to object handler method
LOOP AT lt_requires INTO ls_require.
lo_graph->add_edge(
is_from = ls_require
is_to = ls_item ).
ENDLOOP.
ENDLOOP.
WHILE lo_graph->has_vertices( ) = abap_true.
ls_item = lo_graph->get_next( ii_log ).
READ TABLE it_results INTO ls_result WITH KEY sec_key COMPONENTS
obj_name = ls_item-obj_name
obj_type = ls_item-obj_type.
ASSERT sy-subrc = 0.
APPEND ls_result TO rt_results.
ENDWHILE.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_FILENAME_LOGIC ', 'CLASS zcl_abapgit_filename_logic DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
CONSTANTS:
BEGIN OF c_package_file,
obj_name TYPE c LENGTH 7 VALUE ''package'',
sep1 TYPE c LENGTH 1 VALUE ''.'',
obj_type TYPE c LENGTH 4 VALUE ''devc'',
sep2 TYPE c LENGTH 1 VALUE ''.'',
extension TYPE c LENGTH 3 VALUE ''xml'',
END OF c_package_file.
CONSTANTS:
BEGIN OF c_json_file,
extension TYPE c LENGTH 4 VALUE ''json'',
END OF c_json_file.
CLASS-METHODS detect_obj_definition
IMPORTING
!iv_type TYPE string
!iv_ext TYPE string
EXPORTING
!ev_is_xml TYPE abap_bool
!ev_is_json TYPE abap_bool.
CLASS-METHODS is_obj_definition_file
IMPORTING
!iv_filename TYPE string
RETURNING
VALUE(rv_yes) TYPE abap_bool.
CLASS-METHODS file_to_object
IMPORTING
!iv_filename TYPE string
!iv_path TYPE string
!iv_devclass TYPE devclass OPTIONAL
!io_dot TYPE REF TO zcl_abapgit_dot_abapgit
EXPORTING
!es_item TYPE zif_abapgit_definitions=>ty_item
!ev_is_xml TYPE abap_bool
!ev_is_json TYPE abap_bool
RAISING
zcx_abapgit_exception .
CLASS-METHODS i18n_file_to_object
IMPORTING
!iv_filename TYPE string
!iv_path TYPE string
EXPORTING
!es_item TYPE zif_abapgit_definitions=>ty_item
!ev_lang TYPE laiso
!ev_ext TYPE string
RAISING
zcx_abapgit_exception .
CLASS-METHODS object_to_file
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_item
!iv_ext TYPE string
!iv_extra TYPE clike OPTIONAL
RETURNING
VALUE(rv_filename) TYPE string .
CLASS-METHODS object_to_i18n_file
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_item
!iv_lang TYPE laiso
!iv_ext TYPE string
RETURNING
VALUE(rv_filename) TYPE string.
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-DATA:
go_aff_registry TYPE REF TO zif_abapgit_aff_registry.
CLASS-METHODS name_escape
IMPORTING
!iv_name TYPE csequence
RETURNING
VALUE(rv_name) TYPE string.
CLASS-METHODS name_unescape
IMPORTING
!iv_name TYPE csequence
RETURNING
VALUE(rv_name) TYPE string.
CLASS-METHODS map_filename_to_object
IMPORTING
!iv_filename TYPE string
!iv_path TYPE string
!iv_package TYPE devclass
!io_dot TYPE REF TO zcl_abapgit_dot_abapgit
CHANGING
cs_item TYPE zif_abapgit_definitions=>ty_item
RAISING
zcx_abapgit_exception.
CLASS-METHODS map_object_to_filename
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_item
!iv_ext TYPE string
!iv_extra TYPE clike
CHANGING
cv_filename TYPE string
RAISING
zcx_abapgit_exception.
CLASS-METHODS get_lang_and_ext
IMPORTING
iv_filename TYPE string
EXPORTING
ev_lang TYPE laiso
ev_ext TYPE string
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_filename_logic IMPLEMENTATION.
METHOD detect_obj_definition.
ev_is_xml = boolc( iv_ext = to_upper( c_package_file-extension ) AND strlen( iv_type ) = 4 ).
ev_is_json = boolc( iv_ext = to_upper( c_json_file-extension ) AND strlen( iv_type ) = 4 ).
ENDMETHOD.
METHOD file_to_object.
DATA:
lv_name TYPE string,
lv_type TYPE string,
lv_ext TYPE string.
" Guess object type and name
SPLIT to_upper( iv_filename ) AT ''.'' INTO lv_name lv_type lv_ext.
" Handle namespaces
REPLACE ALL OCCURRENCES OF ''#'' IN lv_name WITH ''/''.
REPLACE ALL OCCURRENCES OF ''#'' IN lv_type WITH ''/''.
REPLACE ALL OCCURRENCES OF ''#'' IN lv_ext WITH ''/''.
" Assume AFF namespace convention
IF go_aff_registry IS INITIAL.
CREATE OBJECT go_aff_registry TYPE zcl_abapgit_aff_registry.
ENDIF.
IF go_aff_registry->is_supported_object_type( |{ lv_type }| ) = abap_true.
REPLACE ALL OCCURRENCES OF ''('' IN lv_name WITH ''/''.
REPLACE ALL OCCURRENCES OF '')'' IN lv_name WITH ''/''.
ENDIF.
" Get original object name
lv_name = name_unescape( lv_name ).
CLEAR es_item.
es_item-obj_type = lv_type.
es_item-obj_name = lv_name.
" Get mapping specific to object type
map_filename_to_object(
EXPORTING
iv_filename = iv_filename
iv_path = iv_path
io_dot = io_dot
iv_package = iv_devclass
CHANGING
cs_item = es_item ).
detect_obj_definition(
EXPORTING
iv_ext = lv_ext
iv_type = lv_type
IMPORTING
ev_is_xml = ev_is_xml
ev_is_json = ev_is_json ).
ENDMETHOD.
METHOD i18n_file_to_object.
DATA lo_dot TYPE REF TO zcl_abapgit_dot_abapgit.
CLEAR: es_item, ev_lang, ev_ext.
lo_dot = zcl_abapgit_dot_abapgit=>build_default( ).
file_to_object(
EXPORTING
iv_filename = iv_filename
iv_path = iv_path
io_dot = lo_dot
IMPORTING
es_item = es_item ).
get_lang_and_ext(
EXPORTING
iv_filename = iv_filename
IMPORTING
ev_lang = ev_lang
ev_ext = ev_ext ).
ENDMETHOD.
METHOD is_obj_definition_file.
DATA:
lv_xml TYPE abap_bool,
lv_json TYPE abap_bool,
lv_name TYPE string,
lv_type TYPE string,
lv_ext TYPE string.
SPLIT to_upper( iv_filename ) AT ''.'' INTO lv_name lv_type lv_ext.
detect_obj_definition(
EXPORTING
iv_ext = lv_ext
iv_type = lv_type
IMPORTING
ev_is_xml = lv_xml
ev_is_json = lv_json ).
rv_yes = boolc( lv_json = abap_true OR lv_xml = abap_true ).
ENDMETHOD.
METHOD map_filename_to_object.
DATA lv_class TYPE seoclsname.
" TODO: Add check for supported object types to avoid calls to non-existing classes
" zcl_abapgit_objects=>is_type_supported( is_item-obj_type )
" This will trigger class constructor of zcl_abapgit_objects_bridge reading table seometarel
" which is currently not supported by abaplint test runner
TRY.
lv_class = ''ZCL_ABAPGIT_OBJECT_'' && cs_item-obj_type.
CALL METHOD (lv_class)=>(''ZIF_ABAPGIT_OBJECT~MAP_FILENAME_TO_OBJECT'')
EXPORTING
iv_filename = iv_filename
iv_path = iv_path
io_dot = io_dot
iv_package = iv_package
CHANGING
cs_item = cs_item.
CATCH cx_sy_dyn_call_illegal_class.
" Map data config to TABU object type
IF cs_item-obj_type = ''CONF''.
cs_item-obj_type = ''TABU''.
ENDIF.
ENDTRY.
ENDMETHOD.
METHOD map_object_to_filename.
DATA lv_class TYPE seoclsname.
" TODO: Add check for supported object types to avoid calls to non-existing classes
" zcl_abapgit_objects=>is_type_supported( is_item-obj_type )
" This will trigger class constructor of zcl_abapgit_objects_bridge reading table seometarel
" which is currently not supported by abaplint test runner
TRY.
lv_class = ''ZCL_ABAPGIT_OBJECT_'' && is_item-obj_type.
CALL METHOD (lv_class)=>(''ZIF_ABAPGIT_OBJECT~MAP_OBJECT_TO_FILENAME'')
EXPORTING
is_item = is_item
iv_ext = iv_ext
iv_extra = iv_extra
CHANGING
cv_filename = cv_filename.
CATCH cx_sy_dyn_call_illegal_class ##NO_HANDLER.
ENDTRY.
ENDMETHOD.
METHOD name_escape.
" Some characters in object names cause problems when identifying the object later
" -> we escape these characters here
" cl_http_utility=>escape_url doesn''t do dots but escapes slash which we use for namespaces
" -> we escape just some selected characters
rv_name = iv_name.
REPLACE ALL OCCURRENCES OF \`#\` IN rv_name WITH ''%23''.
REPLACE ALL OCCURRENCES OF \`%\` IN rv_name WITH ''%25''.
REPLACE ALL OCCURRENCES OF \`.\` IN rv_name WITH ''%2e''.
REPLACE ALL OCCURRENCES OF \`<\` IN rv_name WITH ''%3c''.
REPLACE ALL OCCURRENCES OF \`=\` IN rv_name WITH ''%3d''.
REPLACE ALL OCCURRENCES OF \`>\` IN rv_name WITH ''%3e''.
REPLACE ALL OCCURRENCES OF \`?\` IN rv_name WITH ''%3f''.
ENDMETHOD.
METHOD name_unescape.
" Replace all %xy with encoded character
rv_name = cl_http_utility=>unescape_url( iv_name ).
ENDMETHOD.
METHOD object_to_file.
DATA lv_obj_name TYPE string.
DATA lv_obj_type TYPE string.
DATA lv_nb_of_slash TYPE string.
" Get escaped object name
lv_obj_name = to_lower( name_escape( is_item-obj_name ) ).
lv_obj_type = to_lower( is_item-obj_type ).
IF iv_extra IS INITIAL.
CONCATENATE lv_obj_name ''.'' lv_obj_type INTO rv_filename.
ELSE.
CONCATENATE lv_obj_name ''.'' lv_obj_type ''.'' iv_extra INTO rv_filename.
ENDIF.
IF iv_ext IS NOT INITIAL.
CONCATENATE rv_filename ''.'' iv_ext INTO rv_filename.
ENDIF.
" Get mapping specific to object type
TRY.
map_object_to_filename(
EXPORTING
is_item = is_item
iv_ext = iv_ext
iv_extra = iv_extra
CHANGING
cv_filename = rv_filename ).
CATCH zcx_abapgit_exception ##NO_HANDLER.
ENDTRY.
" Handle namespaces
CREATE OBJECT go_aff_registry TYPE zcl_abapgit_aff_registry.
IF go_aff_registry->is_supported_object_type( is_item-obj_type ) = abap_true.
FIND ALL OCCURRENCES OF \`/\` IN rv_filename MATCH COUNT lv_nb_of_slash.
IF lv_nb_of_slash = 2.
REPLACE FIRST OCCURRENCE OF \`/\` IN rv_filename WITH \`(\`.
REPLACE \`/\` IN rv_filename WITH \`)\`.
ENDIF.
ELSE.
REPLACE ALL OCCURRENCES OF ''/'' IN rv_filename WITH ''#''.
ENDIF.
IF iv_ext = ''properties''.
RETURN.
ENDIF.
TRANSLATE rv_filename TO LOWER CASE.
ENDMETHOD.
METHOD object_to_i18n_file.
DATA: lv_langu_sap1 TYPE sy-langu,
lv_langu_bcp47 TYPE string.
lv_langu_sap1 = zcl_abapgit_convert=>language_sap2_to_sap1( to_upper( iv_lang ) ).
lv_langu_bcp47 = zcl_abapgit_convert=>language_sap1_to_bcp47( lv_langu_sap1 ).
rv_filename = object_to_file(
is_item = is_item
iv_extra = |i18n.{ lv_langu_bcp47 }|
iv_ext = iv_ext ).
ENDMETHOD.
METHOD get_lang_and_ext.
DATA lt_filename_elements TYPE string_table.
DATA lv_langu_bcp47 TYPE string.
DATA lv_sap1 TYPE sy-langu.
SPLIT iv_filename AT ''.'' INTO TABLE lt_filename_elements.
READ TABLE lt_filename_elements INDEX lines( lt_filename_elements ) INTO ev_ext.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Could not derive file extension of file { iv_filename }| ).
ENDIF.
READ TABLE lt_filename_elements WITH KEY table_line = \`i18n\` TRANSPORTING NO FIELDS.
IF sy-subrc = 0.
READ TABLE lt_filename_elements INDEX ( sy-tabix + 1 ) INTO lv_langu_bcp47.
IF sy-subrc = 0.
lv_sap1 = zcl_abapgit_convert=>language_bcp47_to_sap1( lv_langu_bcp47 ).
ev_lang = zcl_abapgit_convert=>language_sap1_to_sap2( lv_sap1 ). " actually it is to_upper( ISO-639 )
" to not break existing PO file implementations
IF ev_ext = \`po\`.
ev_lang = to_lower( ev_lang ).
ENDIF.
ENDIF.
ENDIF.
IF ev_lang IS INITIAL.
CLEAR ev_ext.
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_FOLDER_LOGIC ', 'CLASS zcl_abapgit_folder_logic DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
METHODS package_to_path
IMPORTING
!iv_top TYPE devclass
!io_dot TYPE REF TO zcl_abapgit_dot_abapgit
!iv_package TYPE devclass
RETURNING
VALUE(rv_path) TYPE string
RAISING
zcx_abapgit_exception .
METHODS path_to_package
IMPORTING
!iv_top TYPE devclass
!io_dot TYPE REF TO zcl_abapgit_dot_abapgit
!iv_path TYPE string
!iv_create_if_not_exists TYPE abap_bool DEFAULT abap_true
RETURNING
VALUE(rv_package) TYPE devclass
RAISING
zcx_abapgit_exception .
CLASS-METHODS get_instance
RETURNING
VALUE(ro_instance) TYPE REF TO zcl_abapgit_folder_logic .
PROTECTED SECTION.
METHODS get_parent
IMPORTING
!iv_top TYPE devclass
!iv_package TYPE devclass
RETURNING
VALUE(rv_parent) TYPE devclass
RAISING
zcx_abapgit_exception .
PRIVATE SECTION.
TYPES:
BEGIN OF ty_devclass_info,
devclass TYPE devclass,
namespace TYPE namespace,
parentcl TYPE parentcl,
END OF ty_devclass_info .
TYPES:
ty_devclass_info_tt TYPE SORTED TABLE OF ty_devclass_info
WITH UNIQUE KEY devclass .
DATA mt_top_subpackages TYPE ty_devclass_info_tt .
DATA mt_parent TYPE ty_devclass_info_tt .
ENDCLASS.
CLASS zcl_abapgit_folder_logic IMPLEMENTATION.
METHOD get_instance.
CREATE OBJECT ro_instance.
ENDMETHOD.
METHOD get_parent.
DATA: ls_parent LIKE LINE OF mt_parent.
" Check that package is included in the TOP package hierarchy
IF mt_top_subpackages IS INITIAL.
mt_top_subpackages = zcl_abapgit_factory=>get_sap_package( iv_top )->list_subpackages( ).
ENDIF.
READ TABLE mt_top_subpackages TRANSPORTING NO FIELDS WITH KEY devclass = iv_package.
IF sy-subrc <> 0.
RETURN.
ENDIF.
"Determine Parent Package
READ TABLE mt_parent INTO ls_parent
WITH TABLE KEY devclass = iv_package.
IF sy-subrc <> 0.
rv_parent = zcl_abapgit_factory=>get_sap_package( iv_package )->read_parent( ).
ls_parent-devclass = iv_package.
ls_parent-parentcl = rv_parent.
INSERT ls_parent INTO TABLE mt_parent.
ELSE.
rv_parent = ls_parent-parentcl.
ENDIF.
ENDMETHOD.
METHOD package_to_path.
DATA: lv_len TYPE i,
lv_path TYPE string,
lv_message TYPE string,
lv_parentcl TYPE tdevc-parentcl,
lv_folder_logic TYPE string.
rv_path = lcl_package_to_path=>get(
iv_top = iv_top
io_dot = io_dot
iv_package = iv_package ).
IF rv_path IS NOT INITIAL.
RETURN.
ENDIF.
IF iv_top = iv_package.
rv_path = io_dot->get_starting_folder( ).
ELSE.
lv_parentcl = get_parent(
iv_top = iv_top
iv_package = iv_package ).
" If the parent package can not be determined, we return an initial path and handle
" it outside of this class (in zcl_abapgit_file_status)
IF lv_parentcl IS NOT INITIAL.
lv_folder_logic = io_dot->get_folder_logic( ).
CASE lv_folder_logic.
WHEN zif_abapgit_dot_abapgit=>c_folder_logic-full.
lv_len = 0.
IF iv_package(1) = ''$''.
lv_len = 1.
ENDIF.
WHEN zif_abapgit_dot_abapgit=>c_folder_logic-prefix.
lv_len = strlen( lv_parentcl ).
IF iv_package(lv_len) <> lv_parentcl.
" If abapGit project is installed in package ZZZ, all subpackages should be named
" ZZZ_something. This will define the folder name in the zip file to be "something",
" similarly with online projects. Alternatively change to FULL folder logic
lv_message = |PREFIX: Unexpected package naming |
&& |(top: { iv_top }, parent: { lv_parentcl }, child: { iv_package }). |
&& |Try using the folder logic FULL|.
zcx_abapgit_exception=>raise( lv_message ).
ENDIF.
WHEN zif_abapgit_dot_abapgit=>c_folder_logic-mixed.
lv_len = strlen( iv_top ).
IF iv_package(lv_len) <> iv_top.
lv_message = |MIXED: Unexpected package naming |
&& |(top: { iv_top }, parent: { lv_parentcl }, child: { iv_package }). |
&& |Try using the folder logic FULL|.
zcx_abapgit_exception=>raise( lv_message ).
ENDIF.
WHEN OTHERS.
zcx_abapgit_exception=>raise( |Invalid folder logic: { lv_folder_logic }| ).
ENDCASE.
lv_path = iv_package+lv_len.
IF strlen( lv_path ) = 0.
zcx_abapgit_exception=>raise( |Folder logic: length = 0, parent: {
lv_parentcl }, child: { iv_package }| ).
ENDIF.
IF lv_path(1) = ''_''.
lv_path = lv_path+1.
ENDIF.
IF strlen( lv_path ) = 0.
zcx_abapgit_exception=>raise( |Folder logic: length = 0, parent: {
lv_parentcl }, child: { iv_package }| ).
ENDIF.
TRANSLATE lv_path USING ''/#''.
TRANSLATE lv_path TO LOWER CASE.
CONCATENATE lv_path ''/'' INTO lv_path.
rv_path = package_to_path( iv_top = iv_top
io_dot = io_dot
iv_package = lv_parentcl ).
CONCATENATE rv_path lv_path INTO rv_path.
ENDIF.
ENDIF.
lcl_package_to_path=>add(
iv_top = iv_top
io_dot = io_dot
iv_package = iv_package
iv_path = rv_path ).
ENDMETHOD.
METHOD path_to_package.
DATA: lv_length TYPE i,
lv_parent TYPE devclass,
ls_package TYPE zif_abapgit_sap_package=>ty_create,
lv_new TYPE string,
lv_path TYPE string,
lv_absolute_name TYPE string,
lv_folder_logic TYPE string,
lt_unique_package_names TYPE HASHED TABLE OF devclass WITH UNIQUE KEY table_line.
lv_length = strlen( io_dot->get_starting_folder( ) ).
IF lv_length > strlen( iv_path ).
* treat as not existing locally
RETURN.
ENDIF.
rv_package = lcl_path_to_package=>get(
iv_top = iv_top
io_dot = io_dot
iv_path = iv_path ).
IF rv_package IS NOT INITIAL AND iv_create_if_not_exists = abap_false.
RETURN.
ENDIF.
lv_path = iv_path+lv_length.
lv_parent = iv_top.
rv_package = iv_top.
" Automatically create package using minimal properties
" Details will be updated during deserialization
IF iv_create_if_not_exists = abap_true.
IF iv_top(1) = ''$''.
zcl_abapgit_factory=>get_sap_package( iv_top )->create_local( ).
ELSE.
ls_package-devclass = iv_top.
ls_package-ctext = iv_top.
ls_package-as4user = sy-uname.
zcl_abapgit_factory=>get_sap_package( iv_top )->create( ls_package ).
ENDIF.
ENDIF.
INSERT iv_top INTO TABLE lt_unique_package_names.
WHILE lv_path CA ''/''.
SPLIT lv_path AT ''/'' INTO lv_new lv_path.
lv_folder_logic = io_dot->get_folder_logic( ).
CASE lv_folder_logic.
WHEN zif_abapgit_dot_abapgit=>c_folder_logic-full.
lv_absolute_name = lv_new.
TRANSLATE lv_absolute_name USING ''#/''.
IF iv_top(1) = ''$''.
CONCATENATE ''$'' lv_absolute_name INTO lv_absolute_name.
ENDIF.
WHEN zif_abapgit_dot_abapgit=>c_folder_logic-prefix.
CONCATENATE rv_package ''_'' lv_new INTO lv_absolute_name.
WHEN zif_abapgit_dot_abapgit=>c_folder_logic-mixed.
CONCATENATE iv_top ''_'' lv_new INTO lv_absolute_name.
WHEN OTHERS.
zcx_abapgit_exception=>raise( |Invalid folder logic: { lv_folder_logic }| ).
ENDCASE.
TRANSLATE lv_absolute_name TO UPPER CASE.
IF strlen( lv_absolute_name ) > 30.
zcx_abapgit_exception=>raise( |Package { lv_absolute_name } exceeds ABAP 30-characters name limit| ).
ENDIF.
rv_package = lv_absolute_name.
READ TABLE lt_unique_package_names TRANSPORTING NO FIELDS
WITH TABLE KEY table_line = rv_package.
IF sy-subrc = 0.
zcx_abapgit_exception=>raise( |Package { rv_package } has a subpackage with the same name| ).
ELSE.
INSERT rv_package INTO TABLE lt_unique_package_names.
ENDIF.
IF zcl_abapgit_factory=>get_sap_package( rv_package )->exists( ) = abap_false AND
iv_create_if_not_exists = abap_true.
zcl_abapgit_factory=>get_sap_package( lv_parent )->create_child( rv_package ).
ENDIF.
lv_parent = rv_package.
ENDWHILE.
lcl_path_to_package=>add(
iv_top = iv_top
io_dot = io_dot
iv_path = iv_path
iv_package = rv_package ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_ITEM_GRAPH ', 'CLASS zcl_abapgit_item_graph DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
METHODS constructor
IMPORTING
!it_items TYPE zif_abapgit_definitions=>ty_items_tt .
METHODS add_edge
IMPORTING
!is_from TYPE zif_abapgit_definitions=>ty_item
!is_to TYPE zif_abapgit_definitions=>ty_item .
METHODS has_vertices
RETURNING
VALUE(rv_bool) TYPE abap_bool .
METHODS get_next
IMPORTING
!ii_log TYPE REF TO zif_abapgit_log
RETURNING
VALUE(rs_item) TYPE zif_abapgit_definitions=>ty_item .
PROTECTED SECTION.
PRIVATE SECTION.
TYPES: BEGIN OF ty_edge,
from TYPE zif_abapgit_definitions=>ty_item,
to TYPE zif_abapgit_definitions=>ty_item,
END OF ty_edge.
DATA mt_vertices TYPE STANDARD TABLE OF zif_abapgit_definitions=>ty_item WITH DEFAULT KEY.
DATA mt_edges TYPE STANDARD TABLE OF ty_edge WITH DEFAULT KEY
WITH NON-UNIQUE SORTED KEY sec_to COMPONENTS to
WITH NON-UNIQUE SORTED KEY sec_from COMPONENTS from.
DATA mv_warning TYPE abap_bool.
METHODS remove_vertex IMPORTING iv_index TYPE i.
ENDCLASS.
CLASS ZCL_ABAPGIT_ITEM_GRAPH IMPLEMENTATION.
METHOD add_edge.
DATA ls_edge LIKE LINE OF mt_edges.
ASSERT is_from IS NOT INITIAL.
ASSERT is_to IS NOT INITIAL.
ls_edge-from = is_from.
ls_edge-to = is_to.
APPEND ls_edge TO mt_edges.
ENDMETHOD.
METHOD constructor.
INSERT LINES OF it_items INTO TABLE mt_vertices.
ENDMETHOD.
METHOD get_next.
* find a vertex with no inbound edges, if it does not exist pick anything
DATA ls_vertex LIKE LINE OF mt_vertices.
DATA lv_index TYPE i.
LOOP AT mt_vertices INTO ls_vertex.
lv_index = sy-tabix.
READ TABLE mt_edges WITH KEY sec_to COMPONENTS
to-obj_type = ls_vertex-obj_type
to-obj_name = ls_vertex-obj_name
TRANSPORTING NO FIELDS.
IF sy-subrc <> 0.
remove_vertex( lv_index ).
rs_item = ls_vertex.
RETURN.
ENDIF.
ENDLOOP.
IF mv_warning = abap_false.
* only issue the warning once per graph
ii_log->add_warning( |Cycle detected in item graph| ).
mv_warning = abap_true.
ENDIF.
READ TABLE mt_vertices INTO rs_item INDEX 1.
ASSERT sy-subrc = 0.
remove_vertex( 1 ).
ENDMETHOD.
METHOD has_vertices.
rv_bool = boolc( lines( mt_vertices ) > 0 ).
ENDMETHOD.
METHOD remove_vertex.
DATA ls_vertex LIKE LINE OF mt_vertices.
READ TABLE mt_vertices INDEX iv_index INTO ls_vertex.
ASSERT sy-subrc = 0.
DELETE mt_vertices INDEX iv_index.
DELETE mt_edges USING KEY sec_from
WHERE from-obj_type = ls_vertex-obj_type
AND from-obj_name = ls_vertex-obj_name.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_OBJECTS_FILES ', 'CLASS zcl_abapgit_objects_files DEFINITION
PUBLIC
CREATE PRIVATE.
PUBLIC SECTION.
CLASS-METHODS new
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_item
!iv_path TYPE string OPTIONAL
RETURNING
VALUE(ro_files) TYPE REF TO zcl_abapgit_objects_files.
METHODS constructor
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_item
!iv_path TYPE string OPTIONAL .
METHODS add_string
IMPORTING
!iv_extra TYPE clike OPTIONAL
!iv_ext TYPE string
!iv_string TYPE string
RAISING
zcx_abapgit_exception .
METHODS read_string
IMPORTING
!iv_extra TYPE clike OPTIONAL
!iv_ext TYPE string
RETURNING
VALUE(rv_string) TYPE string
RAISING
zcx_abapgit_exception .
METHODS add_xml
IMPORTING
!iv_extra TYPE clike OPTIONAL
!ii_xml TYPE REF TO zif_abapgit_xml_output
!iv_normalize TYPE abap_bool DEFAULT abap_true
!is_metadata TYPE zif_abapgit_definitions=>ty_metadata OPTIONAL
RAISING
zcx_abapgit_exception .
METHODS read_xml
IMPORTING
!iv_extra TYPE clike OPTIONAL
RETURNING
VALUE(ri_xml) TYPE REF TO zif_abapgit_xml_input
RAISING
zcx_abapgit_exception .
METHODS read_abap
IMPORTING
!iv_extra TYPE clike OPTIONAL
!iv_error TYPE abap_bool DEFAULT abap_true
RETURNING
VALUE(rt_abap) TYPE abaptxt255_tab
RAISING
zcx_abapgit_exception .
METHODS add_abap
IMPORTING
!iv_extra TYPE clike OPTIONAL
!it_abap TYPE STANDARD TABLE
RAISING
zcx_abapgit_exception .
METHODS add
IMPORTING
!is_file TYPE zif_abapgit_git_definitions=>ty_file .
METHODS add_raw
IMPORTING
!iv_extra TYPE clike OPTIONAL
!iv_ext TYPE string
!iv_data TYPE xstring.
METHODS read_raw
IMPORTING
!iv_extra TYPE clike OPTIONAL
!iv_ext TYPE string
RETURNING
VALUE(rv_data) TYPE xstring
RAISING
zcx_abapgit_exception .
METHODS get_files
RETURNING
VALUE(rt_files) TYPE zif_abapgit_git_definitions=>ty_files_tt .
METHODS set_files
IMPORTING
!it_files TYPE zif_abapgit_git_definitions=>ty_files_tt .
METHODS get_accessed_files
RETURNING
VALUE(rt_files) TYPE zif_abapgit_git_definitions=>ty_file_signatures_tt .
METHODS contains_file
IMPORTING
!iv_extra TYPE clike OPTIONAL
!iv_ext TYPE string
RETURNING
VALUE(rv_present) TYPE abap_bool .
METHODS get_file_pattern
RETURNING
VALUE(rv_pattern) TYPE string .
METHODS is_json_metadata
RETURNING
VALUE(rv_result) TYPE abap_bool.
METHODS add_i18n_file
IMPORTING
!ii_i18n_file TYPE REF TO zif_abapgit_i18n_file
RAISING
zcx_abapgit_exception .
METHODS read_i18n_files
RETURNING
VALUE(rt_i18n_files) TYPE zif_abapgit_i18n_file=>ty_table_of
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
METHODS read_file
IMPORTING
!iv_filename TYPE string
!iv_error TYPE abap_bool DEFAULT abap_true
RETURNING
VALUE(rv_data) TYPE xstring
RAISING
zcx_abapgit_exception .
PRIVATE SECTION.
DATA ms_item TYPE zif_abapgit_definitions=>ty_item .
DATA mt_accessed_files TYPE zif_abapgit_git_definitions=>ty_file_signatures_tt .
DATA mt_files TYPE zif_abapgit_git_definitions=>ty_files_tt .
DATA mv_path TYPE string .
METHODS mark_accessed
IMPORTING
!iv_path TYPE zif_abapgit_git_definitions=>ty_file-path
!iv_file TYPE zif_abapgit_git_definitions=>ty_file-filename
!iv_sha1 TYPE zif_abapgit_git_definitions=>ty_file-sha1.
ENDCLASS.
CLASS zcl_abapgit_objects_files IMPLEMENTATION.
METHOD add.
APPEND is_file TO mt_files.
ENDMETHOD.
METHOD add_abap.
DATA: lv_source TYPE string,
ls_file TYPE zif_abapgit_git_definitions=>ty_file.
CONCATENATE LINES OF it_abap INTO lv_source SEPARATED BY cl_abap_char_utilities=>newline.
* when editing files via eg. GitHub web interface it adds a newline at end of file
lv_source = lv_source && cl_abap_char_utilities=>newline.
ls_file-path = ''/''.
ls_file-filename = zcl_abapgit_filename_logic=>object_to_file(
is_item = ms_item
iv_extra = iv_extra
iv_ext = ''abap'' ).
ls_file-data = zcl_abapgit_convert=>string_to_xstring_utf8( lv_source ).
APPEND ls_file TO mt_files.
ENDMETHOD.
METHOD add_i18n_file.
DATA ls_file TYPE zif_abapgit_git_definitions=>ty_file.
ls_file-data = ii_i18n_file->render( ).
IF ls_file-data IS INITIAL.
RETURN. " Don''t add empty files
ENDIF.
ls_file-path = ''/''.
ls_file-filename = zcl_abapgit_filename_logic=>object_to_i18n_file(
is_item = ms_item
iv_lang = ii_i18n_file->lang( )
iv_ext = ii_i18n_file->ext( ) ).
APPEND ls_file TO mt_files.
ENDMETHOD.
METHOD add_raw.
DATA: ls_file TYPE zif_abapgit_git_definitions=>ty_file.
ls_file-path = ''/''.
ls_file-data = iv_data.
ls_file-filename = zcl_abapgit_filename_logic=>object_to_file(
is_item = ms_item
iv_extra = iv_extra
iv_ext = iv_ext ).
APPEND ls_file TO mt_files.
ENDMETHOD.
METHOD add_string.
DATA: ls_file TYPE zif_abapgit_git_definitions=>ty_file.
ls_file-path = ''/''.
ls_file-filename = zcl_abapgit_filename_logic=>object_to_file(
is_item = ms_item
iv_extra = iv_extra
iv_ext = iv_ext ).
ls_file-data = zcl_abapgit_convert=>string_to_xstring_utf8( iv_string ).
APPEND ls_file TO mt_files.
ENDMETHOD.
METHOD add_xml.
DATA: lv_xml TYPE string,
ls_file TYPE zif_abapgit_git_definitions=>ty_file.
lv_xml = ii_xml->render( iv_normalize = iv_normalize
is_metadata = is_metadata ).
ls_file-path = ''/''.
ls_file-filename = zcl_abapgit_filename_logic=>object_to_file(
is_item = ms_item
iv_extra = iv_extra
iv_ext = ''xml'' ).
REPLACE FIRST OCCURRENCE
OF REGEX ''<\\?xml version="1\\.0" encoding="[\\w-]+"\\?>''
IN lv_xml
WITH ''<?xml version="1.0" encoding="utf-8"?>''.
ASSERT sy-subrc = 0.
ls_file-data = zcl_abapgit_convert=>string_to_xstring_utf8_bom( lv_xml ).
APPEND ls_file TO mt_files.
ENDMETHOD.
METHOD constructor.
ms_item = is_item.
mv_path = iv_path.
ENDMETHOD.
METHOD contains_file.
DATA: lv_filename TYPE string.
lv_filename = zcl_abapgit_filename_logic=>object_to_file(
is_item = ms_item
iv_extra = iv_extra
iv_ext = iv_ext ).
IF mv_path IS NOT INITIAL.
READ TABLE mt_files TRANSPORTING NO FIELDS
WITH KEY file_path
COMPONENTS path = mv_path
filename = lv_filename.
ELSE.
READ TABLE mt_files TRANSPORTING NO FIELDS
WITH KEY file
COMPONENTS filename = lv_filename.
ENDIF.
IF sy-subrc = 0.
rv_present = abap_true.
ENDIF.
ENDMETHOD.
METHOD get_accessed_files.
rt_files = mt_accessed_files.
ENDMETHOD.
METHOD get_files.
rt_files = mt_files.
ENDMETHOD.
METHOD get_file_pattern.
rv_pattern = zcl_abapgit_filename_logic=>object_to_file(
is_item = ms_item
iv_ext = ''*'' ).
" Escape special characters for use with ''covers pattern'' (CP)
REPLACE ALL OCCURRENCES OF ''#'' IN rv_pattern WITH ''##''.
REPLACE ALL OCCURRENCES OF ''+'' IN rv_pattern WITH ''#+''.
ENDMETHOD.
METHOD is_json_metadata.
DATA lv_pattern TYPE string.
FIELD-SYMBOLS <ls_file> LIKE LINE OF mt_files.
lv_pattern = |*.{ to_lower( ms_item-obj_type ) }.json|.
LOOP AT mt_files ASSIGNING <ls_file> WHERE filename CP lv_pattern.
rv_result = abap_true.
EXIT.
ENDLOOP.
ENDMETHOD.
METHOD mark_accessed.
FIELD-SYMBOLS <ls_accessed> LIKE LINE OF mt_accessed_files.
READ TABLE mt_accessed_files TRANSPORTING NO FIELDS
WITH KEY path = iv_path filename = iv_file.
IF sy-subrc > 0. " Not found ? -> Add
APPEND INITIAL LINE TO mt_accessed_files ASSIGNING <ls_accessed>.
<ls_accessed>-path = iv_path.
<ls_accessed>-filename = iv_file.
<ls_accessed>-sha1 = iv_sha1.
ENDIF.
ENDMETHOD.
METHOD new.
CREATE OBJECT ro_files
EXPORTING
is_item = is_item
iv_path = iv_path.
ENDMETHOD.
METHOD read_abap.
DATA: lv_filename TYPE string,
lv_data TYPE xstring,
lv_abap TYPE string.
lv_filename = zcl_abapgit_filename_logic=>object_to_file(
is_item = ms_item
iv_extra = iv_extra
iv_ext = ''abap'' ).
lv_data = read_file( iv_filename = lv_filename
iv_error = iv_error ).
IF lv_data IS INITIAL. " Post-handling of iv_error = false
RETURN.
ENDIF.
lv_abap = zcl_abapgit_convert=>xstring_to_string_utf8( lv_data ).
SPLIT lv_abap AT cl_abap_char_utilities=>newline INTO TABLE rt_abap.
ENDMETHOD.
METHOD read_file.
FIELD-SYMBOLS <ls_file> LIKE LINE OF mt_files.
IF mv_path IS NOT INITIAL.
READ TABLE mt_files ASSIGNING <ls_file>
WITH KEY file_path
COMPONENTS path = mv_path
filename = iv_filename.
ELSE.
READ TABLE mt_files ASSIGNING <ls_file>
WITH KEY file
COMPONENTS filename = iv_filename.
ENDIF.
IF sy-subrc <> 0.
IF iv_error = abap_true.
zcx_abapgit_exception=>raise( |File not found: { iv_filename }| ).
ELSE.
RETURN.
ENDIF.
ENDIF.
" Update access table
mark_accessed(
iv_path = <ls_file>-path
iv_file = <ls_file>-filename
iv_sha1 = <ls_file>-sha1 ).
rv_data = <ls_file>-data.
ENDMETHOD.
METHOD read_i18n_files.
DATA:
lv_lang TYPE laiso,
lv_ext TYPE string,
lo_po TYPE REF TO zcl_abapgit_po_file,
lo_properties TYPE REF TO zcl_abapgit_properties_file.
FIELD-SYMBOLS <ls_file> LIKE LINE OF mt_files.
LOOP AT mt_files ASSIGNING <ls_file>.
zcl_abapgit_filename_logic=>i18n_file_to_object(
EXPORTING
iv_path = <ls_file>-path
iv_filename = <ls_file>-filename
IMPORTING
ev_lang = lv_lang
ev_ext = lv_ext ).
CASE lv_ext.
WHEN ''po''.
CREATE OBJECT lo_po EXPORTING iv_lang = lv_lang.
lo_po->parse( <ls_file>-data ).
APPEND lo_po TO rt_i18n_files.
WHEN ''properties''.
CREATE OBJECT lo_properties EXPORTING iv_lang = lv_lang.
lo_properties->parse( <ls_file>-data ).
APPEND lo_properties TO rt_i18n_files.
WHEN OTHERS.
CONTINUE. " Unsupported i18n file type
ENDCASE.
mark_accessed(
iv_path = <ls_file>-path
iv_file = <ls_file>-filename
iv_sha1 = <ls_file>-sha1 ).
ENDLOOP.
ENDMETHOD.
METHOD read_raw.
DATA: lv_filename TYPE string.
lv_filename = zcl_abapgit_filename_logic=>object_to_file(
is_item = ms_item
iv_extra = iv_extra
iv_ext = iv_ext ).
rv_data = read_file( lv_filename ).
ENDMETHOD.
METHOD read_string.
DATA: lv_filename TYPE string,
lv_data TYPE xstring.
lv_filename = zcl_abapgit_filename_logic=>object_to_file(
is_item = ms_item
iv_extra = iv_extra
iv_ext = iv_ext ).
lv_data = read_file( lv_filename ).
rv_string = zcl_abapgit_convert=>xstring_to_string_utf8( lv_data ).
ENDMETHOD.
METHOD read_xml.
DATA: lv_filename TYPE string,
lv_data TYPE xstring,
lv_xml TYPE string.
lv_filename = zcl_abapgit_filename_logic=>object_to_file(
is_item = ms_item
iv_extra = iv_extra
iv_ext = ''xml'' ).
lv_data = read_file( lv_filename ).
lv_xml = zcl_abapgit_convert=>xstring_to_string_utf8( lv_data ).
CREATE OBJECT ri_xml
TYPE zcl_abapgit_xml_input
EXPORTING
iv_xml = lv_xml
iv_filename = lv_filename.
ENDMETHOD.
METHOD set_files.
FIELD-SYMBOLS: <ls_file> LIKE LINE OF it_files.
CLEAR mt_files.
" Set only files matching the pattern for this object
" If a path has been defined in the constructor, then the path has to match, too
LOOP AT it_files ASSIGNING <ls_file> WHERE filename CP get_file_pattern( ).
IF mv_path IS INITIAL.
INSERT <ls_file> INTO TABLE mt_files.
ELSEIF mv_path = <ls_file>-path.
INSERT <ls_file> INTO TABLE mt_files.
ENDIF.
ENDLOOP.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_SERIALIZE ', 'CLASS zcl_abapgit_serialize DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
METHODS constructor
IMPORTING
!io_dot_abapgit TYPE REF TO zcl_abapgit_dot_abapgit OPTIONAL
!is_local_settings TYPE zif_abapgit_persistence=>ty_repo-local_settings OPTIONAL
RAISING
zcx_abapgit_exception .
METHODS on_end_of_task
IMPORTING
!p_task TYPE clike ##NEEDED.
METHODS serialize
IMPORTING
!iv_package TYPE devclass OPTIONAL
!it_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt
!ii_log TYPE REF TO zif_abapgit_log OPTIONAL
!iv_force_sequential TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(rt_files) TYPE zif_abapgit_definitions=>ty_files_item_tt
RAISING
zcx_abapgit_exception .
METHODS files_local
IMPORTING
!iv_package TYPE devclass
!ii_log TYPE REF TO zif_abapgit_log
!it_filter TYPE zif_abapgit_definitions=>ty_tadir_tt OPTIONAL
!ii_data_config TYPE REF TO zif_abapgit_data_config OPTIONAL
RETURNING
VALUE(rt_files) TYPE zif_abapgit_definitions=>ty_files_item_tt
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
TYPES:
BEGIN OF ty_unsupported_count,
obj_type TYPE tadir-object,
obj_name TYPE tadir-obj_name,
count TYPE i,
END OF ty_unsupported_count .
TYPES:
ty_unsupported_count_tt TYPE HASHED TABLE OF ty_unsupported_count WITH UNIQUE KEY obj_type .
TYPES:
ty_char32 TYPE c LENGTH 32 .
CLASS-DATA gv_max_processes TYPE i .
DATA mt_files TYPE zif_abapgit_definitions=>ty_files_item_tt .
DATA mv_free TYPE i .
DATA mi_log TYPE REF TO zif_abapgit_log .
DATA mv_group TYPE rzlli_apcl .
DATA mo_dot_abapgit TYPE REF TO zcl_abapgit_dot_abapgit.
DATA ms_local_settings TYPE zif_abapgit_persistence=>ty_repo-local_settings.
DATA ms_i18n_params TYPE zif_abapgit_definitions=>ty_i18n_params.
DATA mo_abap_language_version TYPE REF TO zcl_abapgit_abap_language_vers.
METHODS add_apack
IMPORTING
!iv_package TYPE devclass
CHANGING
!ct_files TYPE zif_abapgit_definitions=>ty_files_item_tt
RAISING
zcx_abapgit_exception .
METHODS add_data
IMPORTING
!ii_data_config TYPE REF TO zif_abapgit_data_config
CHANGING
!ct_files TYPE zif_abapgit_definitions=>ty_files_item_tt
RAISING
zcx_abapgit_exception .
METHODS add_dot_abapgit
CHANGING
!ct_files TYPE zif_abapgit_definitions=>ty_files_item_tt
RAISING
zcx_abapgit_exception .
METHODS add_to_return
IMPORTING
!iv_path TYPE string
!is_file_item TYPE zif_abapgit_objects=>ty_serialization .
METHODS run_parallel
IMPORTING
!is_tadir TYPE zif_abapgit_definitions=>ty_tadir
!iv_task TYPE ty_char32
RAISING
zcx_abapgit_exception .
METHODS run_sequential
IMPORTING
!is_tadir TYPE zif_abapgit_definitions=>ty_tadir
RAISING
zcx_abapgit_exception .
METHODS add_objects
IMPORTING
!iv_package TYPE devclass
!ii_log TYPE REF TO zif_abapgit_log
!it_filter TYPE zif_abapgit_definitions=>ty_tadir_tt OPTIONAL
CHANGING
VALUE(ct_files) TYPE zif_abapgit_definitions=>ty_files_item_tt
RAISING
zcx_abapgit_exception .
METHODS determine_max_processes
IMPORTING
!iv_force_sequential TYPE abap_bool DEFAULT abap_false
iv_package TYPE devclass
RETURNING
VALUE(rv_processes) TYPE i
RAISING
zcx_abapgit_exception .
METHODS filter_unsupported_objects
CHANGING
!ct_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt .
METHODS filter_ignored_objects
IMPORTING
!iv_package TYPE devclass
CHANGING
!ct_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt
RAISING
zcx_abapgit_exception .
PRIVATE SECTION.
METHODS is_parallelization_possible
RETURNING
VALUE(rv_result) TYPE abap_bool.
ENDCLASS.
CLASS zcl_abapgit_serialize IMPLEMENTATION.
METHOD add_apack.
DATA ls_apack_file TYPE zif_abapgit_git_definitions=>ty_file.
FIELD-SYMBOLS <ls_file> LIKE LINE OF ct_files.
ls_apack_file = zcl_abapgit_apack_helper=>to_file( iv_package ).
IF ls_apack_file IS NOT INITIAL.
APPEND INITIAL LINE TO ct_files ASSIGNING <ls_file>.
<ls_file>-file = ls_apack_file.
ENDIF.
ENDMETHOD.
METHOD add_data.
DATA lt_files TYPE zif_abapgit_git_definitions=>ty_files_tt.
DATA ls_file LIKE LINE OF lt_files.
FIELD-SYMBOLS <ls_return> LIKE LINE OF ct_files.
IF ii_data_config IS INITIAL.
RETURN.
ENDIF.
lt_files = ii_data_config->to_json( ).
LOOP AT lt_files INTO ls_file.
APPEND INITIAL LINE TO ct_files ASSIGNING <ls_return>.
<ls_return>-file = ls_file.
" Derive object from config filename (namespace + escaping)
zcl_abapgit_filename_logic=>file_to_object(
EXPORTING
iv_filename = <ls_return>-file-filename
iv_path = <ls_return>-file-path
io_dot = mo_dot_abapgit
IMPORTING
es_item = <ls_return>-item ).
<ls_return>-item-obj_type = zif_abapgit_data_config=>c_data_type-tabu. " todo
ENDLOOP.
lt_files = zcl_abapgit_data_factory=>get_serializer( )->serialize( ii_data_config ).
LOOP AT lt_files INTO ls_file.
APPEND INITIAL LINE TO ct_files ASSIGNING <ls_return>.
<ls_return>-file = ls_file.
" Derive object from data filename (namespace + escaping)
zcl_abapgit_filename_logic=>file_to_object(
EXPORTING
iv_filename = <ls_return>-file-filename
iv_path = <ls_return>-file-path
io_dot = mo_dot_abapgit
IMPORTING
es_item = <ls_return>-item ).
ENDLOOP.
ENDMETHOD.
METHOD add_dot_abapgit.
FIELD-SYMBOLS: <ls_file> LIKE LINE OF ct_files.
APPEND INITIAL LINE TO ct_files ASSIGNING <ls_file>.
<ls_file>-file = mo_dot_abapgit->to_file( ).
ENDMETHOD.
METHOD add_objects.
DATA: lo_filter TYPE REF TO zcl_abapgit_repo_filter,
lv_force TYPE abap_bool,
lt_found LIKE ct_files,
lt_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt.
lt_tadir = zcl_abapgit_factory=>get_tadir( )->read(
iv_package = iv_package
iv_ignore_subpackages = ms_local_settings-ignore_subpackages
iv_only_local_objects = ms_local_settings-only_local_objects
io_dot = mo_dot_abapgit
ii_log = ii_log
it_filter = it_filter ).
CREATE OBJECT lo_filter.
lo_filter->apply( EXPORTING it_filter = it_filter
CHANGING ct_tadir = lt_tadir ).
* if there are less than 10 objects run in single thread
* this helps a lot when debugging, plus performance gain
* with low number of objects does not matter much
lv_force = boolc( lines( lt_tadir ) < 10 ).
lt_found = serialize(
iv_package = iv_package
it_tadir = lt_tadir
ii_log = ii_log
iv_force_sequential = lv_force ).
APPEND LINES OF lt_found TO ct_files.
ENDMETHOD.
METHOD add_to_return.
FIELD-SYMBOLS: <ls_file> LIKE LINE OF is_file_item-files,
<ls_return> LIKE LINE OF mt_files.
LOOP AT is_file_item-files ASSIGNING <ls_file>.
APPEND INITIAL LINE TO mt_files ASSIGNING <ls_return>.
<ls_return>-file = <ls_file>.
<ls_return>-file-path = iv_path.
<ls_return>-item = is_file_item-item.
ENDLOOP.
ENDMETHOD.
METHOD constructor.
DATA li_exit TYPE REF TO zif_abapgit_exit.
mv_group = ''parallel_generators''.
li_exit = zcl_abapgit_exit=>get_instance( ).
li_exit->change_rfc_server_group( CHANGING cv_group = mv_group ).
mo_dot_abapgit = io_dot_abapgit.
ms_local_settings = is_local_settings.
IF io_dot_abapgit IS BOUND.
ms_i18n_params = io_dot_abapgit->determine_i18n_parameters( is_local_settings-main_language_only ).
ELSE.
ms_i18n_params-main_language = sy-langu.
ms_i18n_params-main_language_only = is_local_settings-main_language_only.
ENDIF.
CREATE OBJECT mo_abap_language_version
EXPORTING
io_dot_abapgit = mo_dot_abapgit.
ENDMETHOD.
METHOD determine_max_processes.
DATA: li_exit TYPE REF TO zif_abapgit_exit.
IF iv_force_sequential = abap_true.
rv_processes = 1.
RETURN.
ENDIF.
IF gv_max_processes IS INITIAL AND is_parallelization_possible( ) = abap_true.
gv_max_processes = zcl_abapgit_factory=>get_environment( )->init_parallel_processing( mv_group ).
IF gv_max_processes > 1.
gv_max_processes = gv_max_processes - 1.
ENDIF.
IF gv_max_processes > 32.
" https://en.wikipedia.org/wiki/Amdahl%27s_law
gv_max_processes = 32.
ENDIF.
ENDIF.
IF gv_max_processes IS INITIAL.
" fallback to running sequentially.
gv_max_processes = 1.
ENDIF.
rv_processes = gv_max_processes.
ASSERT rv_processes >= 1.
li_exit = zcl_abapgit_exit=>get_instance( ).
li_exit->change_max_parallel_processes(
EXPORTING
iv_package = iv_package
CHANGING
cv_max_processes = rv_processes ).
ASSERT rv_processes >= 1. " check exit above
ENDMETHOD.
METHOD files_local.
* serializes objects, including .abapgit.xml, apack, and takes into account local settings
add_dot_abapgit( CHANGING ct_files = rt_files ).
add_apack(
EXPORTING
iv_package = iv_package
CHANGING
ct_files = rt_files ).
add_data(
EXPORTING
ii_data_config = ii_data_config
CHANGING
ct_files = rt_files ).
add_objects(
EXPORTING
iv_package = iv_package
ii_log = ii_log
it_filter = it_filter
CHANGING
ct_files = rt_files ).
ENDMETHOD.
METHOD filter_ignored_objects.
DATA:
ls_ignored_count TYPE ty_unsupported_count,
lt_ignored_count TYPE ty_unsupported_count_tt,
lo_folder_logic TYPE REF TO zcl_abapgit_folder_logic,
ls_item TYPE zif_abapgit_definitions=>ty_item,
lv_path TYPE string,
lv_filename TYPE string.
FIELD-SYMBOLS:
<ls_tadir> LIKE LINE OF ct_tadir,
<ls_ignored_count> TYPE ty_unsupported_count.
" Ignore logic requires .abapGit.xml
IF mo_dot_abapgit IS INITIAL OR iv_package IS INITIAL OR mi_log IS INITIAL.
RETURN.
ENDIF.
lo_folder_logic = zcl_abapgit_folder_logic=>get_instance( ).
LOOP AT ct_tadir ASSIGNING <ls_tadir>.
CLEAR: ls_ignored_count.
ls_item-obj_type = <ls_tadir>-object.
ls_item-obj_name = <ls_tadir>-obj_name.
IF <ls_tadir>-devclass IS NOT INITIAL.
lv_path = lo_folder_logic->package_to_path(
iv_top = iv_package
io_dot = mo_dot_abapgit
iv_package = <ls_tadir>-devclass ).
ELSE.
lv_path = mo_dot_abapgit->get_starting_folder( ).
ENDIF.
lv_filename = zcl_abapgit_filename_logic=>object_to_file(
is_item = ls_item
iv_ext = ''*'' ).
IF mo_dot_abapgit->is_ignored(
iv_path = lv_path
iv_filename = lv_filename ) = abap_false.
CONTINUE.
ENDIF.
READ TABLE lt_ignored_count ASSIGNING <ls_ignored_count> WITH TABLE KEY obj_type = <ls_tadir>-object.
IF sy-subrc <> 0.
ls_ignored_count-obj_type = <ls_tadir>-object.
ls_ignored_count-count = 1.
ls_ignored_count-obj_name = <ls_tadir>-obj_name.
INSERT ls_ignored_count INTO TABLE lt_ignored_count ASSIGNING <ls_ignored_count>.
ELSE.
CLEAR: <ls_ignored_count>-obj_name.
<ls_ignored_count>-count = <ls_ignored_count>-count + 1.
ENDIF.
" init object so we can remove these entries afterward
CLEAR <ls_tadir>-object.
ENDLOOP.
IF lt_ignored_count IS INITIAL.
RETURN.
ENDIF.
" remove ignored objects
DELETE ct_tadir WHERE object IS INITIAL.
LOOP AT lt_ignored_count ASSIGNING <ls_ignored_count>.
IF <ls_ignored_count>-count = 1.
mi_log->add_warning( |Object { <ls_ignored_count>-obj_type } { <ls_ignored_count>-obj_name } ignored| ).
ELSE.
mi_log->add_warning( |Object type { <ls_ignored_count>-obj_type } with | &&
|{ <ls_ignored_count>-count } objects ignored| ).
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD filter_unsupported_objects.
DATA: ls_unsupported_count TYPE ty_unsupported_count,
lt_supported_types TYPE zcl_abapgit_objects=>ty_types_tt,
lt_unsupported_count TYPE ty_unsupported_count_tt.
FIELD-SYMBOLS: <ls_tadir> LIKE LINE OF ct_tadir,
<ls_unsupported_count> TYPE ty_unsupported_count.
lt_supported_types = zcl_abapgit_objects=>supported_list( ).
LOOP AT ct_tadir ASSIGNING <ls_tadir>.
CLEAR: ls_unsupported_count.
READ TABLE lt_supported_types WITH KEY table_line = <ls_tadir>-object TRANSPORTING NO FIELDS.
IF sy-subrc = 0.
CONTINUE.
ENDIF.
READ TABLE lt_unsupported_count ASSIGNING <ls_unsupported_count>
WITH TABLE KEY obj_type = <ls_tadir>-object.
IF sy-subrc <> 0.
ls_unsupported_count-obj_type = <ls_tadir>-object.
ls_unsupported_count-count = 1.
ls_unsupported_count-obj_name = <ls_tadir>-obj_name.
INSERT ls_unsupported_count INTO TABLE lt_unsupported_count ASSIGNING <ls_unsupported_count>.
ELSE.
CLEAR: <ls_unsupported_count>-obj_name.
<ls_unsupported_count>-count = <ls_unsupported_count>-count + 1.
ENDIF.
CLEAR: <ls_tadir>-object.
ENDLOOP.
IF lt_unsupported_count IS INITIAL.
RETURN.
ENDIF.
DELETE ct_tadir WHERE object IS INITIAL.
IF mi_log IS BOUND.
LOOP AT lt_unsupported_count ASSIGNING <ls_unsupported_count>.
IF <ls_unsupported_count>-count = 1.
mi_log->add_error( |Object type { <ls_unsupported_count>-obj_type } not supported, | &&
|{ <ls_unsupported_count>-obj_name } ignored| ).
ELSE.
mi_log->add_error( |Object type { <ls_unsupported_count>-obj_type } not supported, | &&
|{ <ls_unsupported_count>-count } objects ignored| ).
ENDIF.
ENDLOOP.
ENDIF.
ENDMETHOD.
METHOD is_parallelization_possible.
rv_result = boolc( zcl_abapgit_factory=>get_environment( )->is_merged( ) = abap_false
AND zcl_abapgit_persist_factory=>get_settings( )->read( )->get_parallel_proc_disabled( ) = abap_false
AND mv_group IS NOT INITIAL
" The function module below should always exist here as is_merged evaluated to false above.
" It does however not exist in the transpiled version which then causes unit tests to fail.
" Therefore the check needs to stay.
AND zcl_abapgit_factory=>get_function_module(
)->function_exists( ''Z_ABAPGIT_SERIALIZE_PARALLEL'' ) = abap_true ).
ENDMETHOD.
METHOD on_end_of_task.
* this method will be called from the parallel processing, thus it must be public
DATA: lv_result TYPE xstring,
lv_path TYPE string,
lv_mess TYPE c LENGTH 200,
ls_file_item TYPE zif_abapgit_objects=>ty_serialization.
RECEIVE RESULTS FROM FUNCTION ''Z_ABAPGIT_SERIALIZE_PARALLEL''
IMPORTING
ev_result = lv_result
ev_path = lv_path
EXCEPTIONS
error = 1
system_failure = 2 MESSAGE lv_mess
communication_failure = 3 MESSAGE lv_mess
OTHERS = 4.
IF sy-subrc <> 0.
IF NOT mi_log IS INITIAL.
IF NOT lv_mess IS INITIAL.
mi_log->add_error( lv_mess ).
ELSE.
mi_log->add_error( |{ sy-msgv1 }{ sy-msgv2 }{ sy-msgv3 }{ sy-msgv3 }| ).
ENDIF.
ENDIF.
ELSE.
IMPORT data = ls_file_item FROM DATA BUFFER lv_result. "#EC CI_SUBRC
ASSERT sy-subrc = 0.
add_to_return( is_file_item = ls_file_item
iv_path = lv_path ).
ENDIF.
mv_free = mv_free + 1.
ENDMETHOD.
METHOD run_parallel.
DATA: lv_msg TYPE c LENGTH 100,
lv_task TYPE c LENGTH 32,
lv_free LIKE mv_free.
DATA lv_abap_language_version TYPE zif_abapgit_aff_types_v1=>ty_abap_language_version.
ASSERT mv_free > 0.
lv_abap_language_version = mo_abap_language_version->get_repo_abap_language_version( ).
DO.
lv_task = |{ iv_task }-{ sy-index }|.
CALL FUNCTION ''Z_ABAPGIT_SERIALIZE_PARALLEL''
STARTING NEW TASK lv_task
DESTINATION IN GROUP mv_group
CALLING on_end_of_task ON END OF TASK
EXPORTING
iv_obj_type = is_tadir-object
iv_obj_name = is_tadir-obj_name
iv_devclass = is_tadir-devclass
iv_path = is_tadir-path
iv_srcsystem = is_tadir-srcsystem
iv_abap_language_vers = lv_abap_language_version
iv_language = ms_i18n_params-main_language
iv_main_language_only = ms_i18n_params-main_language_only
it_translation_langs = ms_i18n_params-translation_languages
iv_use_lxe = ms_i18n_params-use_lxe
EXCEPTIONS
system_failure = 1 MESSAGE lv_msg
communication_failure = 2 MESSAGE lv_msg
resource_failure = 3
OTHERS = 4.
IF sy-subrc = 3.
lv_free = mv_free.
WAIT UNTIL mv_free <> lv_free UP TO 1 SECONDS.
CONTINUE.
ELSEIF sy-subrc <> 0.
ASSERT lv_msg = '''' AND 0 = 1.
ENDIF.
EXIT.
ENDDO.
mv_free = mv_free - 1.
ENDMETHOD.
METHOD run_sequential.
DATA: lx_error TYPE REF TO zcx_abapgit_exception,
ls_file_item TYPE zif_abapgit_objects=>ty_serialization.
ls_file_item-item-obj_type = is_tadir-object.
ls_file_item-item-obj_name = is_tadir-obj_name.
ls_file_item-item-devclass = is_tadir-devclass.
ls_file_item-item-srcsystem = is_tadir-srcsystem.
ls_file_item-item-abap_language_version = mo_abap_language_version->get_repo_abap_language_version( ).
TRY.
ls_file_item = zcl_abapgit_objects=>serialize(
is_item = ls_file_item-item
io_i18n_params = zcl_abapgit_i18n_params=>new( is_params = ms_i18n_params ) ).
add_to_return( is_file_item = ls_file_item
iv_path = is_tadir-path ).
CATCH zcx_abapgit_exception INTO lx_error.
IF NOT mi_log IS INITIAL.
mi_log->add_exception(
ix_exc = lx_error
is_item = ls_file_item-item ).
ENDIF.
ENDTRY.
ENDMETHOD.
METHOD serialize.
* serializes only objects
DATA: lv_max TYPE i,
lv_count TYPE i,
li_progress TYPE REF TO zif_abapgit_progress,
li_exit TYPE REF TO zif_abapgit_exit,
lo_timer TYPE REF TO zcl_abapgit_timer,
lt_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt.
FIELD-SYMBOLS: <ls_tadir> LIKE LINE OF it_tadir.
CLEAR mt_files.
lv_max = determine_max_processes( iv_force_sequential = iv_force_sequential
iv_package = iv_package ).
mv_free = lv_max.
mi_log = ii_log.
lt_tadir = it_tadir.
filter_unsupported_objects( CHANGING ct_tadir = lt_tadir ).
filter_ignored_objects(
EXPORTING
iv_package = iv_package
CHANGING
ct_tadir = lt_tadir ).
lv_count = lines( lt_tadir ).
li_progress = zcl_abapgit_progress=>get_instance( lv_count ).
lo_timer = zcl_abapgit_timer=>create(
iv_text = ''Serialize:''
iv_count = lv_count )->start( ).
LOOP AT lt_tadir ASSIGNING <ls_tadir>.
IF lv_max = 1.
li_progress->show(
iv_current = sy-tabix
iv_text = |Serialize { <ls_tadir>-obj_name }, { lv_max } thread| ).
run_sequential( <ls_tadir> ).
ELSE.
li_progress->show(
iv_current = sy-tabix
iv_text = |Serialize { <ls_tadir>-obj_name }, { lv_max } threads| ).
run_parallel(
is_tadir = <ls_tadir>
iv_task = |{ sy-tabix }| ).
WAIT UNTIL mv_free > 0 UP TO 120 SECONDS.
ENDIF.
ENDLOOP.
li_progress->off( ).
WAIT UNTIL mv_free = lv_max UP TO 120 SECONDS.
rt_files = mt_files.
FREE mt_files.
* Call postprocessing
li_exit = zcl_abapgit_exit=>get_instance( ).
li_exit->serialize_postprocess(
EXPORTING
iv_package = iv_package
ii_log = ii_log
CHANGING
ct_files = rt_files ).
lo_timer->end( abap_true ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_TADIR ', 'CLASS zcl_abapgit_tadir DEFINITION
PUBLIC
FINAL
CREATE PRIVATE
GLOBAL FRIENDS zcl_abapgit_factory .
PUBLIC SECTION.
INTERFACES zif_abapgit_tadir .
PROTECTED SECTION.
PRIVATE SECTION.
METHODS check_exists
IMPORTING
!it_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt
RETURNING
VALUE(rt_tadir) TYPE zif_abapgit_definitions=>ty_tadir_tt
RAISING
zcx_abapgit_exception .
METHODS build
IMPORTING
!iv_package TYPE tadir-devclass
!io_dot TYPE REF TO zcl_abapgit_dot_abapgit
!iv_ignore_subpackages TYPE abap_bool DEFAULT abap_false
!iv_only_local_objects TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(rt_tadir) TYPE zif_abapgit_definitions=>ty_tadir_tt
RAISING
zcx_abapgit_exception .
METHODS select_objects
IMPORTING
!iv_package TYPE tadir-devclass
!iv_ignore_subpackages TYPE abap_bool DEFAULT abap_false
!iv_only_local_objects TYPE abap_bool
EXPORTING
!et_packages TYPE zif_abapgit_sap_package=>ty_devclass_tt
!et_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt
RAISING
zcx_abapgit_exception .
METHODS add_local_packages
IMPORTING
!it_packages TYPE zif_abapgit_sap_package=>ty_devclass_tt
CHANGING
!ct_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt
RAISING
zcx_abapgit_exception .
METHODS add_namespaces
IMPORTING
!iv_package TYPE devclass
CHANGING
!ct_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt
RAISING
zcx_abapgit_exception .
METHODS add_namespace
IMPORTING
!iv_package TYPE devclass
!iv_object TYPE csequence
CHANGING
!ct_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt
!ct_tadir_nspc TYPE zif_abapgit_definitions=>ty_tadir_tt
RAISING
zcx_abapgit_exception .
METHODS determine_path
IMPORTING
!iv_package TYPE tadir-devclass
!io_dot TYPE REF TO zcl_abapgit_dot_abapgit
CHANGING
!ct_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt
RAISING
zcx_abapgit_exception .
ENDCLASS.
CLASS zcl_abapgit_tadir IMPLEMENTATION.
METHOD add_local_packages.
FIELD-SYMBOLS:
<lv_package> LIKE LINE OF it_packages,
<ls_tadir> LIKE LINE OF ct_tadir.
LOOP AT it_packages ASSIGNING <lv_package>.
" Local packages are not in TADIR, only in TDEVC, act as if they were
IF <lv_package> CP ''$*''. " OR <package> CP ''T*'' ).
APPEND INITIAL LINE TO ct_tadir ASSIGNING <ls_tadir>.
<ls_tadir>-pgmid = ''R3TR''.
<ls_tadir>-object = ''DEVC''.
<ls_tadir>-obj_name = <lv_package>.
<ls_tadir>-devclass = <lv_package>.
<ls_tadir>-srcsystem = sy-sysid.
<ls_tadir>-masterlang = sy-langu.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD add_namespace.
DATA ls_tadir TYPE zif_abapgit_definitions=>ty_tadir.
DATA ls_obj_with_namespace TYPE zif_abapgit_definitions=>ty_obj_namespace.
TRY.
ls_obj_with_namespace = zcl_abapgit_factory=>get_sap_namespace( )->split_by_name( iv_object ).
CATCH zcx_abapgit_exception.
"Ignore the exception like before the replacement of the FM RS_NAME_SPLIT_NAMESPACE
RETURN.
ENDTRY.
IF ls_obj_with_namespace-namespace IS NOT INITIAL.
READ TABLE ct_tadir_nspc TRANSPORTING NO FIELDS
WITH KEY pgmid = ''R3TR'' object = ''NSPC'' obj_name = ls_obj_with_namespace-namespace.
IF sy-subrc <> 0.
ls_tadir-pgmid = ''R3TR''.
ls_tadir-object = ''NSPC''.
ls_tadir-obj_name = ls_obj_with_namespace-namespace.
ls_tadir-devclass = iv_package.
ls_tadir-srcsystem = sy-sysid.
ls_tadir-masterlang = sy-langu.
INSERT ls_tadir INTO TABLE ct_tadir.
INSERT ls_tadir INTO TABLE ct_tadir_nspc.
ENDIF.
ENDIF.
ENDMETHOD.
METHOD add_namespaces.
DATA lt_tadir_nspc TYPE zif_abapgit_definitions=>ty_tadir_tt.
FIELD-SYMBOLS <ls_tadir> LIKE LINE OF ct_tadir.
" Namespaces are not in TADIR, but are necessary for creating objects in transportable packages
LOOP AT ct_tadir ASSIGNING <ls_tadir> WHERE obj_name(1) = ''/''.
add_namespace(
EXPORTING
iv_package = iv_package
iv_object = <ls_tadir>-obj_name
CHANGING
ct_tadir = ct_tadir
ct_tadir_nspc = lt_tadir_nspc ).
ENDLOOP.
" Root package of repo might not exist yet but needs to be considered, too
IF iv_package CP ''/*''.
add_namespace(
EXPORTING
iv_package = iv_package
iv_object = iv_package
CHANGING
ct_tadir = ct_tadir
ct_tadir_nspc = lt_tadir_nspc ).
ENDIF.
ENDMETHOD.
METHOD build.
DATA lt_packages TYPE zif_abapgit_sap_package=>ty_devclass_tt.
select_objects(
EXPORTING
iv_package = iv_package
iv_ignore_subpackages = iv_ignore_subpackages
iv_only_local_objects = iv_only_local_objects
IMPORTING
et_tadir = rt_tadir
et_packages = lt_packages ).
add_local_packages(
EXPORTING
it_packages = lt_packages
CHANGING
ct_tadir = rt_tadir ).
add_namespaces(
EXPORTING
iv_package = iv_package
CHANGING
ct_tadir = rt_tadir ).
determine_path(
EXPORTING
iv_package = iv_package
io_dot = io_dot
CHANGING
ct_tadir = rt_tadir ).
ENDMETHOD.
METHOD check_exists.
DATA: li_progress TYPE REF TO zif_abapgit_progress,
ls_item TYPE zif_abapgit_definitions=>ty_item.
FIELD-SYMBOLS: <ls_tadir> LIKE LINE OF it_tadir.
li_progress = zcl_abapgit_progress=>get_instance( lines( it_tadir ) ).
* rows from database table TADIR are not removed for
* transportable objects until the transport is released
LOOP AT it_tadir ASSIGNING <ls_tadir>.
IF sy-tabix MOD 200 = 0.
li_progress->show(
iv_current = sy-tabix
iv_text = |Check object exists { <ls_tadir>-object } { <ls_tadir>-obj_name }| ).
ENDIF.
ls_item-obj_type = <ls_tadir>-object.
ls_item-obj_name = <ls_tadir>-obj_name.
ls_item-devclass = <ls_tadir>-devclass.
IF zcl_abapgit_objects=>exists( ls_item ) = abap_true.
APPEND <ls_tadir> TO rt_tadir.
ENDIF.
ENDLOOP.
li_progress->off( ).
ENDMETHOD.
METHOD determine_path.
DATA:
lv_path TYPE string,
lo_folder_logic TYPE REF TO zcl_abapgit_folder_logic,
lv_last_package TYPE devclass VALUE cl_abap_char_utilities=>horizontal_tab.
FIELD-SYMBOLS <ls_tadir> LIKE LINE OF ct_tadir.
lo_folder_logic = zcl_abapgit_folder_logic=>get_instance( ).
LOOP AT ct_tadir ASSIGNING <ls_tadir>.
IF lv_last_package <> <ls_tadir>-devclass.
"Change in Package
lv_last_package = <ls_tadir>-devclass.
IF NOT io_dot IS INITIAL.
lv_path = lo_folder_logic->package_to_path(
iv_top = iv_package
io_dot = io_dot
iv_package = <ls_tadir>-devclass ).
ENDIF.
ENDIF.
<ls_tadir>-path = lv_path.
<ls_tadir>-korrnum = ''''.
ENDLOOP.
ENDMETHOD.
METHOD select_objects.
DATA:
lt_excludes TYPE RANGE OF trobjtype,
ls_exclude LIKE LINE OF lt_excludes,
lt_srcsystem TYPE RANGE OF tadir-srcsystem,
ls_srcsystem LIKE LINE OF lt_srcsystem.
" Determine packages to read
IF iv_ignore_subpackages = abap_false.
et_packages = zcl_abapgit_factory=>get_sap_package( iv_package )->list_subpackages( ).
ENDIF.
INSERT iv_package INTO et_packages INDEX 1.
" Exclude object types with tadir entries that are included elsewhere
ls_exclude-sign = ''I''.
ls_exclude-option = ''EQ''.
ls_exclude-low = ''SOTR''. " automatically created for SAP packages (DEVC)
APPEND ls_exclude TO lt_excludes.
ls_exclude-low = ''SOTS''. " automatically created for SAP packages (DEVC)
APPEND ls_exclude TO lt_excludes.
ls_exclude-low = ''SFB1''. " covered by business function sets (SFBS)
APPEND ls_exclude TO lt_excludes.
ls_exclude-low = ''SFB2''. " covered by business functions (SFBF)
APPEND ls_exclude TO lt_excludes.
ls_exclude-low = ''STOB''. " auto generated by core data services (DDLS)
APPEND ls_exclude TO lt_excludes.
" Limit to objects belonging to this system
IF iv_only_local_objects = abap_true.
ls_srcsystem-sign = ''I''.
ls_srcsystem-option = ''EQ''.
ls_srcsystem-low = sy-sysid.
APPEND ls_srcsystem TO lt_srcsystem.
ENDIF.
IF et_packages IS NOT INITIAL.
SELECT * FROM tadir INTO CORRESPONDING FIELDS OF TABLE et_tadir
FOR ALL ENTRIES IN et_packages
WHERE devclass = et_packages-table_line
AND pgmid = ''R3TR''
AND object NOT IN lt_excludes
AND delflag = abap_false
AND srcsystem IN lt_srcsystem
ORDER BY PRIMARY KEY ##TOO_MANY_ITAB_FIELDS. "#EC CI_GENBUFF "#EC CI_SUBRC
ENDIF.
SORT et_tadir BY devclass pgmid object obj_name.
ENDMETHOD.
METHOD zif_abapgit_tadir~get_object_package.
DATA: ls_tadir TYPE zif_abapgit_definitions=>ty_tadir,
ls_item TYPE zif_abapgit_definitions=>ty_item.
ls_tadir = zif_abapgit_tadir~read_single(
iv_pgmid = iv_pgmid
iv_object = iv_object
iv_obj_name = iv_obj_name ).
IF ls_tadir-delflag = abap_true.
RETURN. "Mark for deletion -> return nothing
ENDIF.
ls_item-obj_type = ls_tadir-object.
ls_item-obj_name = ls_tadir-obj_name.
ls_item-devclass = ls_tadir-devclass.
IF zcl_abapgit_objects=>exists( ls_item ) = abap_false.
RETURN.
ENDIF.
rv_devclass = ls_tadir-devclass.
ENDMETHOD.
METHOD zif_abapgit_tadir~read.
DATA li_exit TYPE REF TO zif_abapgit_exit.
DATA lr_tadir TYPE REF TO zif_abapgit_definitions=>ty_tadir.
DATA lt_filter TYPE zif_abapgit_definitions=>ty_tadir_tt.
DATA ls_dot_data TYPE zif_abapgit_dot_abapgit=>ty_dot_abapgit.
ASSERT iv_package IS NOT INITIAL.
" Start recursion
" hmm, some problems here, should TADIR also build path?
rt_tadir = build(
iv_package = iv_package
io_dot = io_dot
iv_ignore_subpackages = iv_ignore_subpackages
iv_only_local_objects = iv_only_local_objects ).
IF io_dot IS NOT INITIAL.
ls_dot_data = io_dot->get_data( ).
ENDIF.
li_exit = zcl_abapgit_exit=>get_instance( ).
li_exit->change_tadir(
EXPORTING
iv_package = iv_package
ii_log = ii_log
is_dot_abapgit = ls_dot_data
iv_ignore_subpackages = iv_ignore_subpackages
iv_only_local_objects = iv_only_local_objects
CHANGING
ct_tadir = rt_tadir ).
IF it_filter IS NOT INITIAL.
"Apply filter manually instead of calling zcl_abapgit_repo_filter->apply,
"so that we can execute a unit test. The method applies addition filtering
"and does therefore additional selects
lt_filter = it_filter.
SORT lt_filter BY object obj_name.
LOOP AT rt_tadir REFERENCE INTO lr_tadir.
READ TABLE lt_filter TRANSPORTING NO FIELDS
WITH KEY object = lr_tadir->object
obj_name = lr_tadir->obj_name
BINARY SEARCH.
IF sy-subrc <> 0.
DELETE rt_tadir.
ENDIF.
ENDLOOP.
ENDIF.
IF iv_check_exists = abap_true.
rt_tadir = check_exists( rt_tadir ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_tadir~read_single.
SELECT SINGLE * FROM tadir INTO CORRESPONDING FIELDS OF rs_tadir
WHERE pgmid = iv_pgmid
AND object = iv_object
AND obj_name = iv_obj_name. "#EC CI_SUBRC
CLEAR rs_tadir-korrnum.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_TADIR ', 'INTERFACE zif_abapgit_tadir
PUBLIC .
METHODS get_object_package
IMPORTING
!iv_pgmid TYPE tadir-pgmid DEFAULT ''R3TR''
!iv_object TYPE tadir-object
!iv_obj_name TYPE tadir-obj_name
RETURNING
VALUE(rv_devclass) TYPE tadir-devclass
RAISING
zcx_abapgit_exception .
METHODS read
IMPORTING
!iv_package TYPE tadir-devclass
!iv_ignore_subpackages TYPE abap_bool DEFAULT abap_false
!iv_only_local_objects TYPE abap_bool DEFAULT abap_false
!io_dot TYPE REF TO zcl_abapgit_dot_abapgit OPTIONAL
!ii_log TYPE REF TO zif_abapgit_log OPTIONAL
!it_filter TYPE zif_abapgit_definitions=>ty_tadir_tt OPTIONAL
!iv_check_exists TYPE abap_bool DEFAULT abap_true
RETURNING
VALUE(rt_tadir) TYPE zif_abapgit_definitions=>ty_tadir_tt
RAISING
zcx_abapgit_exception .
METHODS read_single
IMPORTING
!iv_pgmid TYPE tadir-pgmid DEFAULT ''R3TR''
!iv_object TYPE tadir-object
!iv_obj_name TYPE tadir-obj_name
RETURNING
VALUE(rs_tadir) TYPE zif_abapgit_definitions=>ty_tadir.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_ECATT ', 'INTERFACE zif_abapgit_ecatt
PUBLIC .
" downport missing types
TYPES:
ty_invert_validation TYPE c LENGTH 1,
ty_error_prio TYPE n LENGTH 1,
ty_impl_name TYPE c LENGTH 30,
ty_impl_type TYPE c LENGTH 1,
ty_impl_subtype TYPE c LENGTH 4,
ty_package TYPE c LENGTH 255,
BEGIN OF ty_impl_det,
impl_name TYPE ty_impl_name,
impl_type TYPE ty_impl_type,
impl_subtype TYPE ty_impl_subtype,
impl_package TYPE ty_package,
END OF ty_impl_det.
TYPES:
BEGIN OF ty_bus_msg.
INCLUDE TYPE etobj_key.
TYPES:
bus_msg_no TYPE c LENGTH 1, " ty_msg_no
arbgb TYPE arbgb,
msgnr TYPE msgnr,
bus_msg_text TYPE string, "ty_bus_msg_text
otr_key TYPE sotr_conc,
msg_type TYPE c LENGTH 4, "ty_msg_type
END OF ty_bus_msg,
ty_bus_msgs TYPE STANDARD TABLE OF ty_bus_msg.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_ECATT_DOWNLOAD ', 'INTERFACE zif_abapgit_ecatt_download
PUBLIC .
METHODS:
get_xml_stream
RETURNING
VALUE(rv_xml_stream) TYPE xstring.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_ECATT_UPLOAD ', 'INTERFACE zif_abapgit_ecatt_upload
PUBLIC .
METHODS:
set_stream_for_upload
IMPORTING
iv_xml TYPE xstring.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_OBJECT_ENHO ', 'INTERFACE zif_abapgit_object_enho PUBLIC.
METHODS:
deserialize
IMPORTING ii_xml TYPE REF TO zif_abapgit_xml_input
iv_package TYPE devclass
RAISING zcx_abapgit_exception,
serialize
IMPORTING ii_xml TYPE REF TO zif_abapgit_xml_output
ii_enh_tool TYPE REF TO if_enh_tool
RAISING zcx_abapgit_exception.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_OBJECT_ENHS ', 'INTERFACE zif_abapgit_object_enhs PUBLIC.
METHODS:
deserialize
IMPORTING ii_xml TYPE REF TO zif_abapgit_xml_input
iv_package TYPE devclass
ii_enh_spot_tool TYPE REF TO if_enh_spot_tool
RAISING zcx_abapgit_exception,
serialize
IMPORTING ii_xml TYPE REF TO zif_abapgit_xml_output
ii_enh_spot_tool TYPE REF TO if_enh_spot_tool
RAISING zcx_abapgit_exception.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_ADT_LINK ', 'CLASS zcl_abapgit_adt_link DEFINITION
PUBLIC
FINAL
CREATE PUBLIC.
PUBLIC SECTION.
CLASS-METHODS jump
IMPORTING
!iv_obj_name TYPE zif_abapgit_definitions=>ty_item-obj_name
!iv_obj_type TYPE zif_abapgit_definitions=>ty_item-obj_type
!iv_sub_obj_name TYPE zif_abapgit_definitions=>ty_item-obj_name OPTIONAL
!iv_line_number TYPE i OPTIONAL
RAISING
zcx_abapgit_exception.
CLASS-METHODS link_transport
IMPORTING
iv_transport TYPE trkorr
RETURNING
VALUE(rv_link) TYPE string.
PROTECTED SECTION.
CLASS-METHODS generate
IMPORTING
!iv_obj_name TYPE zif_abapgit_definitions=>ty_item-obj_name
!iv_obj_type TYPE zif_abapgit_definitions=>ty_item-obj_type
!iv_sub_obj_name TYPE zif_abapgit_definitions=>ty_item-obj_name OPTIONAL
!iv_line_number TYPE i OPTIONAL
RETURNING
VALUE(rv_result) TYPE string
RAISING
zcx_abapgit_exception.
PRIVATE SECTION.
CLASS-METHODS get_adt_objects_and_names
IMPORTING
iv_obj_name TYPE zif_abapgit_definitions=>ty_item-obj_name
iv_obj_type TYPE zif_abapgit_definitions=>ty_item-obj_type
EXPORTING
eo_adt_uri_mapper TYPE REF TO object
eo_adt_objectref TYPE REF TO object
ev_program TYPE progname
ev_include TYPE progname
RAISING
zcx_abapgit_exception.
CLASS-METHODS is_adt_jump_possible
IMPORTING
io_object TYPE REF TO cl_wb_object
io_adt TYPE REF TO object
RETURNING
VALUE(rv_is_adt_jump_possible) TYPE abap_bool
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_adt_link IMPLEMENTATION.
METHOD link_transport.
* call to CL_CTS_ADT_TM_URI_BUILDER=>CREATE_ADT_URI replaced with logic that works on all systems,
rv_link = |adt://{ sy-sysid }/sap/bc/adt/cts/transportrequests/{ iv_transport }|.
ENDMETHOD.
METHOD generate.
DATA: lv_adt_link TYPE string.
DATA: lo_adt_uri_mapper TYPE REF TO object.
DATA: lo_adt_objref TYPE REF TO object.
DATA: lo_adt_sub_objref TYPE REF TO object.
DATA: lv_program TYPE progname.
DATA: lv_include TYPE progname.
FIELD-SYMBOLS: <lv_uri> TYPE string.
get_adt_objects_and_names(
EXPORTING
iv_obj_name = iv_obj_name
iv_obj_type = iv_obj_type
IMPORTING
eo_adt_uri_mapper = lo_adt_uri_mapper
eo_adt_objectref = lo_adt_objref
ev_program = lv_program
ev_include = lv_include ).
TRY.
IF iv_sub_obj_name IS NOT INITIAL.
IF ( lv_program <> iv_obj_name AND lv_include IS INITIAL ) OR
( lv_program = lv_include AND iv_sub_obj_name IS NOT INITIAL ).
lv_include = iv_sub_obj_name.
ENDIF.
CALL METHOD lo_adt_uri_mapper->(''IF_ADT_URI_MAPPER~MAP_INCLUDE_TO_OBJREF'')
EXPORTING
program = lv_program
include = lv_include
line = iv_line_number
line_offset = 0
end_line = iv_line_number
end_offset = 1
RECEIVING
result = lo_adt_sub_objref.
IF lo_adt_sub_objref IS NOT INITIAL.
lo_adt_objref = lo_adt_sub_objref.
ENDIF.
ENDIF.
ASSIGN (''LO_ADT_OBJREF->REF_DATA-URI'') TO <lv_uri>.
ASSERT sy-subrc = 0.
CONCATENATE ''adt://'' sy-sysid <lv_uri> INTO lv_adt_link.
rv_result = lv_adt_link.
CATCH cx_root.
zcx_abapgit_exception=>raise( ''ADT Jump Error'' ).
ENDTRY.
ENDMETHOD.
METHOD get_adt_objects_and_names.
DATA lv_obj_type TYPE trobjtype.
DATA lv_obj_name TYPE trobj_name.
DATA lo_object TYPE REF TO cl_wb_object.
DATA lo_adt TYPE REF TO object.
FIELD-SYMBOLS <lv_uri> TYPE string.
lv_obj_name = iv_obj_name.
lv_obj_type = iv_obj_type.
TRY.
cl_wb_object=>create_from_transport_key(
EXPORTING
p_object = lv_obj_type
p_obj_name = lv_obj_name
RECEIVING
p_wb_object = lo_object
EXCEPTIONS
OTHERS = 1 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''ADT Jump Error'' ).
ENDIF.
CALL METHOD (''CL_ADT_TOOLS_CORE_FACTORY'')=>(''GET_INSTANCE'')
RECEIVING
result = lo_adt.
IF is_adt_jump_possible( io_object = lo_object
io_adt = lo_adt ) = abap_false.
zcx_abapgit_exception=>raise( ''ADT Jump Error'' ).
ENDIF.
CALL METHOD lo_adt->(''IF_ADT_TOOLS_CORE_FACTORY~GET_URI_MAPPER'')
RECEIVING
result = eo_adt_uri_mapper.
CALL METHOD eo_adt_uri_mapper->(''IF_ADT_URI_MAPPER~MAP_WB_OBJECT_TO_OBJREF'')
EXPORTING
wb_object = lo_object
RECEIVING
result = eo_adt_objectref.
ASSIGN (''EO_ADT_OBJECTREF->REF_DATA-URI'') TO <lv_uri>.
ASSERT sy-subrc = 0.
CALL METHOD eo_adt_uri_mapper->(''IF_ADT_URI_MAPPER~MAP_OBJREF_TO_INCLUDE'')
EXPORTING
uri = <lv_uri>
IMPORTING
program = ev_program
include = ev_include.
CATCH cx_root.
zcx_abapgit_exception=>raise( ''ADT Jump Error'' ).
ENDTRY.
ENDMETHOD.
METHOD is_adt_jump_possible.
DATA: lo_wb_request TYPE REF TO cl_wb_request,
lo_adt_uri_mapper_vit TYPE REF TO object,
lv_vit_wb_request TYPE abap_bool.
cl_wb_request=>create_from_object_ref(
EXPORTING
p_wb_object = io_object
RECEIVING
p_wb_request = lo_wb_request
EXCEPTIONS
illegal_operation = 1
cancelled = 2
OTHERS = 3 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''ADT Jump Error'' ).
ENDIF.
TRY.
CALL METHOD io_adt->(''IF_ADT_TOOLS_CORE_FACTORY~GET_URI_MAPPER_VIT'')
RECEIVING
result = lo_adt_uri_mapper_vit.
CALL METHOD lo_adt_uri_mapper_vit->(''IF_ADT_URI_MAPPER_VIT~IS_VIT_WB_REQUEST'')
EXPORTING
wb_request = lo_wb_request
RECEIVING
result = lv_vit_wb_request.
rv_is_adt_jump_possible = boolc( NOT lv_vit_wb_request = abap_true ).
CATCH cx_root.
zcx_abapgit_exception=>raise( ''ADT Jump Error'' ).
ENDTRY.
ENDMETHOD.
METHOD jump.
DATA lv_adt_link TYPE string.
TRY.
lv_adt_link = generate(
iv_obj_name = iv_obj_name
iv_obj_type = iv_obj_type
iv_sub_obj_name = iv_sub_obj_name
iv_line_number = iv_line_number ).
zcl_abapgit_ui_factory=>get_frontend_services( )->execute( iv_document = lv_adt_link ).
CATCH cx_root.
zcx_abapgit_exception=>raise( ''ADT Jump Error'' ).
ENDTRY.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_JUMPER ', 'CLASS zcl_abapgit_gui_jumper DEFINITION
PUBLIC
FINAL
CREATE PUBLIC.
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_jumper.
PROTECTED SECTION.
PRIVATE SECTION.
METHODS jump_tr
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_item
RETURNING
VALUE(rv_exit) TYPE abap_bool.
METHODS jump_wb
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_item
!iv_new_window TYPE abap_bool
RETURNING
VALUE(rv_exit) TYPE abap_bool.
METHODS jump_wb_line
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_item
!iv_sub_obj_name TYPE zif_abapgit_definitions=>ty_item-obj_name
!iv_sub_obj_type TYPE zif_abapgit_definitions=>ty_item-obj_type
!iv_line_number TYPE i
!iv_new_window TYPE abap_bool
RETURNING
VALUE(rv_exit) TYPE abap_bool.
METHODS jump_bw
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_item
!iv_new_window TYPE abap_bool
RETURNING
VALUE(rv_exit) TYPE abap_bool.
ENDCLASS.
CLASS zcl_abapgit_gui_jumper IMPLEMENTATION.
METHOD jump_bw.
DATA:
lv_exit TYPE abap_bool,
lv_tlogo TYPE c LENGTH 4, "rstlogo
lv_objnm TYPE c LENGTH 40. "rsawbnobjnm
lv_tlogo = is_item-obj_type.
lv_objnm = is_item-obj_name.
TRY.
CALL METHOD (''CL_RSAWBN_AWB'')=>(''IS_SUPPORTED_NAVIGATION'')
EXPORTING
i_tlogo = lv_tlogo
i_fcode = ''DISPLAY''
IMPORTING
re_is_supported_fcode = lv_exit.
IF lv_exit = abap_false.
RETURN.
ENDIF.
CATCH cx_root.
" Not a BW system
RETURN.
ENDTRY.
TRY.
CALL METHOD (''CL_RSAWBN_AWB'')=>(''NAVIGATE_FROM_APPLICATION'')
EXPORTING
i_tlogo = lv_tlogo
i_objnm = lv_objnm
i_new_mode = iv_new_window
IMPORTING
e_exit_own_application = lv_exit.
CATCH cx_root.
" Older release without i_new_mode
CALL METHOD (''CL_RSAWBN_AWB'')=>(''NAVIGATE_FROM_APPLICATION'')
EXPORTING
i_tlogo = lv_tlogo
i_objnm = lv_objnm
IMPORTING
e_exit_own_application = lv_exit.
ENDTRY.
rv_exit = lv_exit.
ENDMETHOD.
METHOD jump_tr.
DATA:
lv_e071_object TYPE e071-object,
lv_e071_obj_name TYPE e071-obj_name.
lv_e071_object = is_item-obj_type.
lv_e071_obj_name = is_item-obj_name.
CALL FUNCTION ''TR_OBJECT_JUMP_TO_TOOL''
EXPORTING
iv_action = ''SHOW''
iv_pgmid = ''R3TR''
iv_object = lv_e071_object
iv_obj_name = lv_e071_obj_name
EXCEPTIONS
jump_not_possible = 1
OTHERS = 2.
rv_exit = boolc( sy-subrc = 0 ).
ENDMETHOD.
METHOD jump_wb.
CALL FUNCTION ''RS_TOOL_ACCESS''
EXPORTING
operation = ''SHOW''
object_name = is_item-obj_name
object_type = is_item-obj_type
devclass = is_item-devclass
in_new_window = iv_new_window
EXCEPTIONS
not_executed = 1
invalid_object_type = 2
OTHERS = 3.
rv_exit = boolc( sy-subrc = 0 ).
ENDMETHOD.
METHOD jump_wb_line.
IF iv_line_number IS NOT INITIAL AND iv_sub_obj_type IS NOT INITIAL AND iv_sub_obj_name IS NOT INITIAL.
" For the line navigation we have to supply the sub object type (iv_sub_obj_type).
" If we use is_item-obj_type it navigates only to the object.
CALL FUNCTION ''RS_TOOL_ACCESS''
EXPORTING
operation = ''SHOW''
object_name = is_item-obj_name
object_type = iv_sub_obj_type
devclass = is_item-devclass
include = iv_sub_obj_name
position = iv_line_number
in_new_window = iv_new_window
EXCEPTIONS
not_executed = 1
invalid_object_type = 2
OTHERS = 3.
rv_exit = boolc( sy-subrc = 0 ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_gui_jumper~jump.
" WebGUI cannot open windows or ADT
IF zcl_abapgit_ui_factory=>get_frontend_services( )->is_webgui( ) = abap_true.
zcx_abapgit_exception=>raise( |Jump not possible in WebGUI| ).
ENDIF.
" Try all generic jump options
" 1) ADT Jump
rv_exit = zif_abapgit_gui_jumper~jump_adt(
is_item = is_item
iv_sub_obj_name = is_sub_item-obj_name
iv_line_number = iv_line_number ).
IF rv_exit = abap_true.
RETURN.
ENDIF.
" 2) WB Jump with Line Number
rv_exit = jump_wb_line(
is_item = is_item
iv_sub_obj_name = is_sub_item-obj_name
iv_sub_obj_type = is_sub_item-obj_type
iv_line_number = iv_line_number
iv_new_window = iv_new_window ).
IF rv_exit = abap_true.
RETURN.
ENDIF.
" 3) WB Jump without Line Number
rv_exit = jump_wb(
is_item = is_item
iv_new_window = iv_new_window ).
IF rv_exit = abap_true.
RETURN.
ENDIF.
" 4) Transport Tool Jump
rv_exit = jump_tr( is_item ).
IF rv_exit = abap_true.
RETURN.
ENDIF.
" 5) BW Jump
rv_exit = jump_bw(
is_item = is_item
iv_new_window = iv_new_window ).
ENDMETHOD.
METHOD zif_abapgit_gui_jumper~jump_abapgit.
DATA lt_spagpa TYPE STANDARD TABLE OF rfc_spagpa.
DATA ls_spagpa LIKE LINE OF lt_spagpa.
DATA lv_save_sy_langu TYPE sy-langu.
DATA lv_subrc TYPE syst-subrc.
DATA lv_tcode TYPE tcode.
DATA lv_langu_text TYPE string.
DATA lv_msg TYPE c LENGTH 200.
" https://blogs.sap.com/2017/01/13/logon-language-sy-langu-and-rfc/
lv_tcode = zcl_abapgit_services_abapgit=>get_abapgit_tcode( ).
lv_save_sy_langu = sy-langu.
SET LOCALE LANGUAGE iv_language.
ls_spagpa-parid = zif_abapgit_definitions=>c_spagpa_param_repo_key.
ls_spagpa-parval = iv_key.
INSERT ls_spagpa INTO TABLE lt_spagpa.
CALL FUNCTION ''ABAP4_CALL_TRANSACTION''
DESTINATION ''NONE''
STARTING NEW TASK ''ABAPGIT''
EXPORTING
tcode = lv_tcode
TABLES
spagpa_tab = lt_spagpa
EXCEPTIONS
communication_failure = 1 MESSAGE lv_msg
system_failure = 2 MESSAGE lv_msg
OTHERS = 3.
lv_subrc = sy-subrc.
SET LOCALE LANGUAGE lv_save_sy_langu.
CASE lv_subrc.
WHEN 1.
lv_msg = |Communication error { lv_msg }|.
WHEN 2.
SELECT SINGLE sptxt FROM t002t INTO lv_langu_text WHERE spras = sy-langu AND sprsl = iv_language.
IF sy-subrc <> 0.
lv_langu_text = iv_language.
ENDIF.
lv_msg = |Language { lv_langu_text } ({ zcl_abapgit_convert=>language_sap1_to_sap2( iv_language ) })|
&& | is not installed|.
WHEN 3.
lv_msg = |{ lv_subrc }|.
ENDCASE.
IF lv_msg IS INITIAL.
MESSAGE ''Repository opened in a new window'' TYPE ''S''.
ELSE.
zcx_abapgit_exception=>raise( |Error starting transaction { lv_tcode }: { lv_msg }| ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_gui_jumper~jump_adt.
" Open object in ADT (if enabled)
DATA lv_adt_jump_enabled TYPE abap_bool.
lv_adt_jump_enabled = zcl_abapgit_persist_factory=>get_settings( )->read( )->get_adt_jump_enabled( ).
IF lv_adt_jump_enabled = abap_true.
TRY.
zcl_abapgit_adt_link=>jump(
iv_obj_name = is_item-obj_name
iv_obj_type = is_item-obj_type
iv_sub_obj_name = iv_sub_obj_name
iv_line_number = iv_line_number ).
rv_exit = abap_true.
CATCH zcx_abapgit_exception ##NO_HANDLER.
" Use fallback
ENDTRY.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_gui_jumper~jump_batch_input.
DATA lv_msg TYPE c LENGTH 80.
IF iv_new_window = abap_true.
CALL FUNCTION ''ABAP4_CALL_TRANSACTION''
STARTING NEW TASK ''GIT''
EXPORTING
tcode = iv_tcode
mode_val = ''E''
TABLES
using_tab = it_bdcdata
EXCEPTIONS
system_failure = 1 MESSAGE lv_msg
communication_failure = 2 MESSAGE lv_msg
resource_failure = 3
OTHERS = 4.
ELSE.
CALL FUNCTION ''ABAP4_CALL_TRANSACTION''
EXPORTING
tcode = iv_tcode
mode_val = ''E''
TABLES
using_tab = it_bdcdata
EXCEPTIONS
OTHERS = 4.
ENDIF.
CASE sy-subrc.
WHEN 1 OR 2.
zcx_abapgit_exception=>raise( |Batch input error for transaction { iv_tcode }: { lv_msg }| ).
WHEN 3 OR 4.
zcx_abapgit_exception=>raise( |Batch input error for transaction { iv_tcode }| ).
ENDCASE.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_GUI_JUMPER ', 'INTERFACE zif_abapgit_gui_jumper
PUBLIC.
TYPES:
ty_bdcdata_tt TYPE STANDARD TABLE OF bdcdata WITH DEFAULT KEY.
METHODS jump
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_item
!is_sub_item TYPE zif_abapgit_definitions=>ty_item OPTIONAL
!iv_line_number TYPE i OPTIONAL
!iv_new_window TYPE abap_bool DEFAULT abap_true
RETURNING
VALUE(rv_exit) TYPE abap_bool
RAISING
zcx_abapgit_exception.
METHODS jump_adt
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_item
!iv_sub_obj_name TYPE zif_abapgit_definitions=>ty_item-obj_name
!iv_line_number TYPE i
RETURNING
VALUE(rv_exit) TYPE abap_bool
RAISING
zcx_abapgit_exception.
METHODS jump_batch_input
IMPORTING
!iv_tcode TYPE sy-tcode
!it_bdcdata TYPE ty_bdcdata_tt
!iv_new_window TYPE abap_bool DEFAULT abap_true
RAISING
zcx_abapgit_exception.
METHODS jump_abapgit
IMPORTING
!iv_language TYPE spras
!iv_key TYPE zif_abapgit_persistence=>ty_value
RAISING
zcx_abapgit_exception.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_OO_BASE ', 'CLASS zcl_abapgit_oo_base DEFINITION
PUBLIC
ABSTRACT
CREATE PROTECTED.
PUBLIC SECTION.
INTERFACES zif_abapgit_oo_object_fnc .
CONSTANTS c_cp_program_type TYPE c LENGTH 1 VALUE ''K''.
CONSTANTS c_include_program_type TYPE c LENGTH 1 VALUE ''I''.
CONSTANTS c_ip_program_type TYPE c LENGTH 1 VALUE ''J''.
PROTECTED SECTION.
CLASS-METHODS:
convert_attrib_to_vseoattrib
IMPORTING iv_clsname TYPE seoclsname
it_attributes TYPE zif_abapgit_oo_object_fnc=>ty_obj_attribute_tt
RETURNING VALUE(rt_vseoattrib) TYPE seoo_attributes_r.
PRIVATE SECTION.
CONSTANTS c_docu_state_active TYPE dokstate VALUE ''A''. " See include SDOC_CONSTANTS
DATA mv_skip_test_classes TYPE abap_bool .
ENDCLASS.
CLASS zcl_abapgit_oo_base IMPLEMENTATION.
METHOD convert_attrib_to_vseoattrib.
FIELD-SYMBOLS: <ls_attribute> LIKE LINE OF it_attributes,
<ls_vseoattrib> LIKE LINE OF rt_vseoattrib.
LOOP AT it_attributes ASSIGNING <ls_attribute>.
INSERT INITIAL LINE INTO TABLE rt_vseoattrib ASSIGNING <ls_vseoattrib>.
MOVE-CORRESPONDING <ls_attribute> TO <ls_vseoattrib>.
<ls_vseoattrib>-clsname = iv_clsname.
<ls_vseoattrib>-state = seoc_state_implemented.
<ls_vseoattrib>-exposure = <ls_attribute>-exposure.
UNASSIGN <ls_vseoattrib>.
ENDLOOP.
UNASSIGN <ls_attribute>.
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~add_to_activation_list.
zcl_abapgit_objects_activation=>add_item( is_item ).
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~create.
ASSERT 0 = 1. "Subclass responsibility
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~create_documentation.
CALL FUNCTION ''DOCU_UPD''
EXPORTING
id = iv_id
langu = iv_language
object = iv_object_name
no_masterlang = iv_no_masterlang
state = c_docu_state_active
TABLES
line = it_lines
EXCEPTIONS
ret_code = 1
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~create_sotr.
ASSERT 0 = 1. "Subclass responsibility
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~delete.
ASSERT 0 = 1. "Subclass responsibility
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~delete_documentation.
CALL FUNCTION ''DOCU_DEL''
EXPORTING
id = iv_id
langu = iv_language
object = iv_object_name
typ = ''E''
EXCEPTIONS
ret_code = 1
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''Error from DOCU_DEL'' ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~deserialize_source.
ASSERT 0 = 1. "Subclass responsibility
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~exists.
ASSERT 0 = 1. "Subclass responsibility
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~generate_locals.
ASSERT 0 = 1. "Subclass responsibility
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~get_class_properties.
ASSERT 0 = 1. "Subclass responsibility
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~get_includes.
ASSERT 0 = 1. "Subclass responsibility
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~get_interface_properties.
ASSERT 0 = 1. "Subclass responsibility
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~get_skip_test_classes.
rv_skip = mv_skip_test_classes.
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~insert_text_pool.
ASSERT 0 = 1. "Subclass responsibility
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~read_attributes.
SELECT cmpname attbusobj attkeyfld exposure
FROM seocompodf
INTO CORRESPONDING FIELDS OF TABLE rt_attributes
WHERE clsname = iv_object_name
AND ( attbusobj <> space OR attkeyfld <> space )
AND version = ''1''
ORDER BY PRIMARY KEY.
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~read_descriptions_class.
FIELD-SYMBOLS <ls_description> LIKE LINE OF rt_descriptions.
" Only translations i.e. not the main language
SELECT * FROM seoclasstx INTO TABLE rt_descriptions
WHERE clsname = iv_object_name
AND langu <> iv_language
AND descript <> ''''
ORDER BY PRIMARY KEY. "#EC CI_SUBRC
LOOP AT rt_descriptions ASSIGNING <ls_description>.
CLEAR <ls_description>-clsname.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~read_descriptions_compo.
FIELD-SYMBOLS <ls_description> LIKE LINE OF rt_descriptions.
IF iv_language IS INITIAL.
" load all languages
SELECT * FROM seocompotx INTO TABLE rt_descriptions
WHERE clsname = iv_object_name
AND descript <> ''''
ORDER BY PRIMARY KEY. "#EC CI_SUBRC
ELSE.
" load main language
SELECT * FROM seocompotx INTO TABLE rt_descriptions
WHERE clsname = iv_object_name
AND langu = iv_language
AND descript <> ''''
ORDER BY PRIMARY KEY. "#EC CI_SUBRC
ENDIF.
LOOP AT rt_descriptions ASSIGNING <ls_description>.
CLEAR <ls_description>-clsname.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~read_descriptions_subco.
FIELD-SYMBOLS <ls_description> LIKE LINE OF rt_descriptions.
IF iv_language IS INITIAL.
" load all languages
SELECT * FROM seosubcotx INTO TABLE rt_descriptions
WHERE clsname = iv_object_name
AND descript <> ''''
ORDER BY PRIMARY KEY. "#EC CI_SUBRC
ELSE.
" load main language
SELECT * FROM seosubcotx INTO TABLE rt_descriptions
WHERE clsname = iv_object_name
AND langu = iv_language
AND descript <> ''''
ORDER BY PRIMARY KEY. "#EC CI_SUBRC
ENDIF.
LOOP AT rt_descriptions ASSIGNING <ls_description>.
CLEAR <ls_description>-clsname.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~read_documentation.
DATA: lv_state TYPE dokstate,
lt_lines TYPE tlinetab.
CALL FUNCTION ''DOCU_GET''
EXPORTING
id = iv_id
langu = iv_language
object = iv_object_name
version_active_or_last = space " retrieve active version
IMPORTING
dokstate = lv_state
TABLES
line = lt_lines
EXCEPTIONS
no_docu_on_screen = 1
no_docu_self_def = 2
no_docu_temp = 3
ret_code = 4
OTHERS = 5.
IF sy-subrc = 0 AND lv_state = c_docu_state_active.
rt_lines = lt_lines.
ELSE.
CLEAR rt_lines.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~read_sotr.
ASSERT 0 = 1. "Subclass responsibility
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~read_superclass.
SELECT SINGLE refclsname FROM vseoextend INTO rv_superclass
WHERE clsname = iv_classname.
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~read_text_pool.
ASSERT 0 = 1. "Subclass responsibility
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~serialize_abap.
DATA lo_oo_serializer TYPE REF TO zcl_abapgit_oo_serializer.
CREATE OBJECT lo_oo_serializer.
CASE iv_type.
WHEN seop_ext_class_locals_def.
rt_source = lo_oo_serializer->serialize_locals_def( is_class_key ).
WHEN seop_ext_class_locals_imp.
rt_source = lo_oo_serializer->serialize_locals_imp( is_class_key ).
WHEN seop_ext_class_macros.
rt_source = lo_oo_serializer->serialize_macros( is_class_key ).
WHEN seop_ext_class_testclasses.
rt_source = lo_oo_serializer->serialize_testclasses( is_class_key ).
mv_skip_test_classes = lo_oo_serializer->are_test_classes_skipped( ).
WHEN OTHERS.
rt_source = lo_oo_serializer->serialize_abap_clif_source( is_class_key ).
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~syntax_check.
ASSERT 0 = 1. "Subclass responsibility
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~update_descriptions_class.
DATA lt_descriptions LIKE it_descriptions.
DATA ls_description LIKE LINE OF it_descriptions.
IF it_descriptions IS INITIAL.
RETURN.
ENDIF.
" Make sure we keep main language
SELECT * FROM seoclasstx INTO TABLE lt_descriptions
WHERE clsname = is_key-clsname AND langu = iv_language
ORDER BY PRIMARY KEY.
LOOP AT it_descriptions INTO ls_description WHERE langu <> iv_language.
ls_description-clsname = is_key-clsname.
INSERT ls_description INTO TABLE lt_descriptions.
ENDLOOP.
DELETE FROM seoclasstx WHERE clsname = is_key-clsname. "#EC CI_SUBRC
INSERT seoclasstx FROM TABLE lt_descriptions. "#EC CI_SUBRC
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~update_descriptions_compo.
DATA lt_descriptions LIKE it_descriptions.
DATA lt_components TYPE seo_components.
DATA ls_description LIKE LINE OF it_descriptions.
DATA lv_lang TYPE tadir-masterlang.
FIELD-SYMBOLS <ls_description> LIKE LINE OF it_descriptions.
FIELD-SYMBOLS <ls_component> TYPE vseocompdf.
lt_descriptions = it_descriptions.
LOOP AT lt_descriptions ASSIGNING <ls_description>.
<ls_description>-clsname = is_key-clsname.
ENDLOOP.
" make sure to not damage VSEO* views by deleting texts of all components - an empty text must be kept!!
SELECT * FROM vseocompdf INTO TABLE lt_components
WHERE clsname = is_key-clsname
AND version <> seoc_version_deleted
AND state = seoc_state_implemented
AND alias = seox_false ORDER BY clsname cmpname version.
IF lt_components IS NOT INITIAL.
SELECT SINGLE masterlang FROM tadir INTO lv_lang
WHERE pgmid = ''R3TR'' AND ( object = ''CLAS'' OR object = ''INTF'' )
AND obj_name = is_key-clsname. "#EC CI_GENBUFF
IF sy-subrc <> 0.
lv_lang = sy-langu.
ENDIF.
LOOP AT lt_components ASSIGNING <ls_component>.
READ TABLE lt_descriptions TRANSPORTING NO FIELDS WITH KEY
clsname = is_key-clsname
cmpname = <ls_component>-cmpname.
IF sy-subrc <> 0.
ls_description-clsname = is_key-clsname.
ls_description-cmpname = <ls_component>-cmpname.
ls_description-langu = lv_lang.
ls_description-descript = space.
APPEND ls_description TO lt_descriptions.
ENDIF.
ENDLOOP.
ENDIF.
DELETE FROM seocompotx WHERE clsname = is_key-clsname. "#EC CI_SUBRC
INSERT seocompotx FROM TABLE lt_descriptions. "#EC CI_SUBRC
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~update_descriptions_subco.
DATA lt_descriptions LIKE it_descriptions.
DATA lt_subcomponents TYPE seo_subcomponents.
DATA ls_description LIKE LINE OF it_descriptions.
DATA lv_lang TYPE tadir-masterlang.
FIELD-SYMBOLS <ls_description> LIKE LINE OF it_descriptions.
FIELD-SYMBOLS <ls_subcomponent> TYPE vseosubcdf.
lt_descriptions = it_descriptions.
LOOP AT lt_descriptions ASSIGNING <ls_description>.
<ls_description>-clsname = is_key-clsname.
ENDLOOP.
" make sure to not damage VSEO* views by deleting texts of all subcomponents - an empty text must be kept!!
SELECT * FROM vseosubcdf INTO TABLE lt_subcomponents
WHERE clsname = is_key-clsname
AND version <> seoc_version_deleted ORDER BY clsname cmpname sconame version.
IF lt_subcomponents IS NOT INITIAL.
SELECT SINGLE masterlang FROM tadir INTO lv_lang
WHERE pgmid = ''R3TR'' AND ( object = ''CLAS'' OR object = ''INTF'' )
AND obj_name = is_key-clsname. "#EC CI_GENBUFF
IF sy-subrc <> 0.
lv_lang = sy-langu.
ENDIF.
LOOP AT lt_subcomponents ASSIGNING <ls_subcomponent>.
READ TABLE lt_descriptions TRANSPORTING NO FIELDS WITH KEY
clsname = is_key-clsname
cmpname = <ls_subcomponent>-cmpname
sconame = <ls_subcomponent>-sconame.
IF sy-subrc <> 0.
ls_description-clsname = is_key-clsname.
ls_description-cmpname = <ls_subcomponent>-cmpname.
ls_description-sconame = <ls_subcomponent>-sconame.
ls_description-langu = lv_lang.
ls_description-descript = space.
APPEND ls_description TO lt_descriptions.
ENDIF.
ENDLOOP.
ENDIF.
DELETE FROM seosubcotx WHERE clsname = is_key-clsname. "#EC CI_SUBRC
INSERT seosubcotx FROM TABLE lt_descriptions. "#EC CI_SUBRC
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_OO_FACTORY ', 'CLASS zcl_abapgit_oo_factory DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS:
get_by_type
IMPORTING
iv_object_type TYPE tadir-object
RETURNING
VALUE(ri_object_oriented_object) TYPE REF TO zif_abapgit_oo_object_fnc,
get_by_name
IMPORTING
iv_object_name TYPE seoclsname
RETURNING
VALUE(ri_object_oriented_object) TYPE REF TO zif_abapgit_oo_object_fnc
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_oo_factory IMPLEMENTATION.
METHOD get_by_type.
IF iv_object_type = ''CLAS''.
CREATE OBJECT ri_object_oriented_object TYPE zcl_abapgit_oo_class.
ELSEIF iv_object_type = ''INTF''.
CREATE OBJECT ri_object_oriented_object TYPE zcl_abapgit_oo_interface.
ENDIF.
ENDMETHOD.
METHOD get_by_name.
DATA:
li_interface TYPE REF TO zif_abapgit_oo_object_fnc,
li_class TYPE REF TO zif_abapgit_oo_object_fnc,
ls_object_name TYPE seoclskey.
ls_object_name-clsname = to_upper( iv_object_name ).
CREATE OBJECT li_class TYPE zcl_abapgit_oo_class.
IF li_class->exists( ls_object_name ) = abap_true.
ri_object_oriented_object = li_class.
RETURN.
ENDIF.
CREATE OBJECT li_interface TYPE zcl_abapgit_oo_interface.
IF li_interface->exists( ls_object_name ) = abap_true.
ri_object_oriented_object = li_interface.
RETURN.
ENDIF.
zcx_abapgit_exception=>raise( |{ iv_object_name } is neither a class nor an interface| ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_OO_INTERFACE ', 'CLASS zcl_abapgit_oo_interface DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_oo_base
CREATE PUBLIC
GLOBAL FRIENDS zcl_abapgit_oo_factory.
PUBLIC SECTION.
METHODS zif_abapgit_oo_object_fnc~create
REDEFINITION .
METHODS zif_abapgit_oo_object_fnc~delete
REDEFINITION .
METHODS zif_abapgit_oo_object_fnc~get_includes
REDEFINITION .
METHODS zif_abapgit_oo_object_fnc~get_interface_properties
REDEFINITION .
METHODS zif_abapgit_oo_object_fnc~deserialize_source
REDEFINITION .
METHODS zif_abapgit_oo_object_fnc~exists
REDEFINITION .
METHODS zif_abapgit_oo_object_fnc~syntax_check
REDEFINITION .
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-METHODS update_report
IMPORTING
!iv_program TYPE syrepid
!it_source TYPE string_table
!iv_package TYPE devclass
!iv_version TYPE uccheck
RETURNING
VALUE(rv_updated) TYPE abap_bool
RAISING
zcx_abapgit_exception .
CLASS-METHODS update_meta
IMPORTING
!iv_name TYPE seoclsname
!it_source TYPE rswsourcet
RAISING
zcx_abapgit_exception .
CLASS-METHODS init_scanner
IMPORTING
!it_source TYPE zif_abapgit_definitions=>ty_string_tt
!iv_name TYPE seoclsname
RETURNING
VALUE(ro_scanner) TYPE REF TO cl_oo_source_scanner_interface
RAISING
zcx_abapgit_exception .
ENDCLASS.
CLASS zcl_abapgit_oo_interface IMPLEMENTATION.
METHOD init_scanner.
DATA: lx_exc TYPE REF TO cx_root,
lv_message TYPE string,
lv_classname TYPE abap_abstypename.
FIELD-SYMBOLS: <lv_line> TYPE i.
TRY.
ro_scanner = cl_oo_source_scanner_interface=>create_interface_scanner(
clif_name = iv_name
source = it_source ).
ro_scanner->scan( ).
CATCH cx_clif_scan_error.
zcx_abapgit_exception=>raise( ''error initializing INTF scanner'' ).
CATCH cx_root INTO lx_exc.
lv_classname = cl_abap_classdescr=>get_class_name( lx_exc ).
IF lv_classname = ''\\CLASS=CX_OO_CLIF_SCAN_ERROR_DETAIL''.
ASSIGN lx_exc->(''SOURCE_POSITION-LINE'') TO <lv_line>.
ASSERT sy-subrc = 0.
lv_message = |{ lx_exc->get_text( ) }, line { <lv_line> }|.
ELSE.
lv_message = lx_exc->get_text( ).
ENDIF.
zcx_abapgit_exception=>raise( lv_message ).
ENDTRY.
ENDMETHOD.
METHOD update_meta.
DATA: lo_update TYPE REF TO cl_oo_interface_section_source,
lx_error TYPE REF TO cx_oo_source_save_failure,
ls_clskey TYPE seoclskey,
lv_scan_error TYPE abap_bool.
ls_clskey-clsname = iv_name.
TRY.
CALL FUNCTION ''SEO_BUFFER_REFRESH''
EXPORTING
cifkey = ls_clskey
version = seoc_version_active.
CREATE OBJECT lo_update TYPE (''CL_OO_INTERFACE_SECTION_SOURCE'')
EXPORTING
intkey = ls_clskey
state = ''A''
source = it_source
EXCEPTIONS
interface_not_existing = 1
read_source_error = 2
OTHERS = 3 ##SUBRC_OK.
CATCH cx_sy_dyn_call_param_not_found.
* downport to 702, see https://github.com/abapGit/abapGit/issues/933
* this will READ REPORT instead of using it_source, which should be okay
CREATE OBJECT lo_update TYPE cl_oo_interface_section_source
EXPORTING
intkey = ls_clskey
state = ''A''
EXCEPTIONS
interface_not_existing = 1
read_source_error = 2
OTHERS = 3.
ENDTRY.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
lo_update->set_dark_mode( abap_true ).
lo_update->scan_section_source(
RECEIVING
scan_error = lv_scan_error
EXCEPTIONS
scan_abap_source_error = 1
OTHERS = 2 ).
IF sy-subrc <> 0 OR lv_scan_error = abap_true.
zcx_abapgit_exception=>raise( |INTF, error while scanning source. Subrc = { sy-subrc }| ).
ENDIF.
* this will update the SEO* database tables
TRY.
lo_update->revert_scan_result( ).
CATCH cx_oo_source_save_failure INTO lx_error.
zcx_abapgit_exception=>raise_with_text( lx_error ).
ENDTRY.
ENDMETHOD.
METHOD update_report.
DATA lv_type TYPE c LENGTH 1.
lv_type = zcl_abapgit_oo_base=>c_include_program_type.
IF iv_program+30 = srext_ext_interface_pool.
lv_type = zcl_abapgit_oo_base=>c_ip_program_type.
ENDIF.
rv_updated = zcl_abapgit_factory=>get_sap_report( )->update_report(
iv_name = iv_program
iv_package = iv_package
iv_version = iv_version
it_source = it_source
iv_program_type = lv_type ).
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~create.
DATA:
lt_vseoattrib TYPE seoo_attributes_r,
ls_interface_key TYPE seoclskey,
ls_properties TYPE vseointerf.
FIELD-SYMBOLS: <lv_clsname> TYPE seoclsname.
ASSIGN COMPONENT ''CLSNAME'' OF STRUCTURE cg_properties TO <lv_clsname>.
ASSERT sy-subrc = 0.
" Get existing interface properties and check if the interface
" needs to be created/updated (or is the same)
IF iv_check = abap_true.
ls_interface_key-clsname = <lv_clsname>.
ls_properties = zif_abapgit_oo_object_fnc~get_interface_properties( ls_interface_key ).
IF ls_properties = cg_properties.
RETURN.
ENDIF.
ENDIF.
lt_vseoattrib = convert_attrib_to_vseoattrib(
iv_clsname = <lv_clsname>
it_attributes = it_attributes ).
" Hardcode STATE (#2612)
ls_properties = cg_properties.
ls_properties-state = seoc_state_implemented.
TRY.
CALL FUNCTION ''SEO_INTERFACE_CREATE_COMPLETE''
EXPORTING
devclass = iv_package
overwrite = abap_true
version = seoc_version_active
suppress_dialog = abap_true " Parameter missing in 702
CHANGING
interface = ls_properties
attributes = lt_vseoattrib
EXCEPTIONS
existing = 1
is_class = 2
db_error = 3
component_error = 4
no_access = 5
other = 6
OTHERS = 7.
CATCH cx_sy_dyn_call_param_not_found.
CALL FUNCTION ''SEO_INTERFACE_CREATE_COMPLETE''
EXPORTING
devclass = iv_package
overwrite = abap_true
version = seoc_version_active
CHANGING
interface = ls_properties
attributes = lt_vseoattrib
EXCEPTIONS
existing = 1
is_class = 2
db_error = 3
component_error = 4
no_access = 5
other = 6
OTHERS = 7.
ENDTRY.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~delete.
CALL FUNCTION ''SEO_INTERFACE_DELETE_COMPLETE''
EXPORTING
intkey = is_deletion_key
EXCEPTIONS
not_existing = 1
is_class = 2
db_error = 3
no_access = 4
other = 5
OTHERS = 6.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~deserialize_source.
DATA: lv_updated TYPE abap_bool,
lv_program TYPE program,
lo_scanner TYPE REF TO cl_oo_source_scanner_interface,
lt_public TYPE seop_source_string.
"Buffer needs to be refreshed,
"otherwise standard SAP CLIF_SOURCE reorder methods alphabetically
CALL FUNCTION ''SEO_BUFFER_INIT''.
CALL FUNCTION ''SEO_BUFFER_REFRESH''
EXPORTING
cifkey = is_key
version = seoc_version_inactive.
lo_scanner = init_scanner(
it_source = it_source
iv_name = is_key-clsname ).
lt_public = lo_scanner->get_interface_section_source( ).
IF lt_public IS NOT INITIAL.
lv_program = cl_oo_classname_service=>get_intfsec_name( is_key-clsname ).
lv_updated = update_report( iv_program = lv_program
iv_package = iv_package
iv_version = iv_version
it_source = lt_public ).
IF lv_updated = abap_true.
update_meta( iv_name = is_key-clsname
it_source = lt_public ).
ENDIF.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~exists.
CALL FUNCTION ''SEO_INTERFACE_EXISTENCE_CHECK''
EXPORTING
intkey = is_object_name
EXCEPTIONS
not_specified = 1
not_existing = 2
is_class = 3
no_text = 4
inconsistent = 5
OTHERS = 6.
rv_exists = boolc( sy-subrc = 0 OR sy-subrc = 4 ).
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~get_includes.
DATA lv_interface_name TYPE seoclsname.
lv_interface_name = iv_object_name.
APPEND cl_oo_classname_service=>get_interfacepool_name( lv_interface_name ) TO rt_includes.
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~get_interface_properties.
CALL FUNCTION ''SEO_CLIF_GET''
EXPORTING
cifkey = is_interface_key
version = seoc_version_active
IMPORTING
interface = rs_interface_properties
EXCEPTIONS
not_existing = 1
deleted = 2
model_only = 3
OTHERS = 4.
IF sy-subrc = 1.
RETURN. " in case only inactive version exists
ELSEIF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
CLEAR:
" TODO 2023-08-01: Clear rs_interface_properties-state (#2612)
rs_interface_properties-uuid,
rs_interface_properties-author,
rs_interface_properties-createdon,
rs_interface_properties-changedby,
rs_interface_properties-changedon,
rs_interface_properties-chgdanyby,
rs_interface_properties-chgdanyon,
rs_interface_properties-r3release,
rs_interface_properties-version.
ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~syntax_check.
DATA:
ls_intkey TYPE seoclskey,
lv_syntaxerror TYPE abap_bool.
ls_intkey-clsname = to_upper( iv_object_name ).
CALL FUNCTION ''SEO_INTERFACE_CHECK_POOL''
EXPORTING
intkey = ls_intkey
suppress_error_popup = abap_true
IMPORTING
syntaxerror = lv_syntaxerror
EXCEPTIONS
error_message = 1 " suppress S-message
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
IF lv_syntaxerror = abap_true.
zcx_abapgit_exception=>raise( |Interface { ls_intkey-clsname } has syntax errors | ).
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_OO_OBJECT_FNC ', 'INTERFACE zif_abapgit_oo_object_fnc PUBLIC.
CONSTANTS:
BEGIN OF c_parts,
locals_def TYPE string VALUE ''locals_def'',
locals_imp TYPE string VALUE ''locals_imp'',
macros TYPE string VALUE ''macros'',
testclasses TYPE string VALUE ''testclasses'',
END OF c_parts.
TYPES: BEGIN OF ty_includes,
programm TYPE syrepid,
END OF ty_includes,
ty_includes_tt TYPE STANDARD TABLE OF ty_includes WITH DEFAULT KEY.
TYPES:
ty_seoclasstx_tt TYPE STANDARD TABLE OF seoclasstx WITH DEFAULT KEY .
TYPES:
ty_seocompotx_tt TYPE STANDARD TABLE OF seocompotx WITH DEFAULT KEY .
TYPES:
ty_seosubcotx_tt TYPE STANDARD TABLE OF seosubcotx WITH DEFAULT KEY .
TYPES:
BEGIN OF ty_obj_attribute,
cmpname TYPE seocmpname,
attkeyfld TYPE seokeyfld,
attbusobj TYPE seobusobj,
exposure TYPE seoexpose,
END OF ty_obj_attribute .
TYPES:
ty_obj_attribute_tt TYPE STANDARD TABLE OF ty_obj_attribute WITH DEFAULT KEY
WITH NON-UNIQUE SORTED KEY cmpname COMPONENTS cmpname .
METHODS:
create
IMPORTING
iv_check TYPE abap_bool
iv_package TYPE devclass
it_attributes TYPE ty_obj_attribute_tt OPTIONAL
CHANGING
cg_properties TYPE any
RAISING
zcx_abapgit_exception,
generate_locals
IMPORTING
is_key TYPE seoclskey
it_local_definitions TYPE seop_source_string OPTIONAL
it_local_implementations TYPE seop_source_string OPTIONAL
it_local_macros TYPE seop_source_string OPTIONAL
it_local_test_classes TYPE seop_source_string OPTIONAL
iv_package TYPE devclass
iv_version TYPE uccheck
RAISING
zcx_abapgit_exception,
deserialize_source
IMPORTING
is_key TYPE seoclskey
it_source TYPE zif_abapgit_definitions=>ty_string_tt
iv_package TYPE devclass
iv_version TYPE uccheck
RAISING
zcx_abapgit_exception
cx_sy_dyn_call_error,
insert_text_pool
IMPORTING
iv_class_name TYPE seoclsname
it_text_pool TYPE textpool_table
iv_language TYPE spras
iv_state TYPE c DEFAULT ''I''
RAISING
zcx_abapgit_exception,
update_descriptions_class
IMPORTING
is_key TYPE seoclskey
iv_language TYPE spras
it_descriptions TYPE ty_seoclasstx_tt,
update_descriptions_compo
IMPORTING
is_key TYPE seoclskey
it_descriptions TYPE ty_seocompotx_tt,
update_descriptions_subco
IMPORTING
is_key TYPE seoclskey
it_descriptions TYPE ty_seosubcotx_tt,
add_to_activation_list
IMPORTING
is_item TYPE zif_abapgit_definitions=>ty_item
RAISING
zcx_abapgit_exception,
create_sotr
IMPORTING
iv_object_name TYPE sobj_name
iv_package TYPE devclass
ii_xml TYPE REF TO zif_abapgit_xml_input
RAISING
zcx_abapgit_exception,
create_documentation
IMPORTING
it_lines TYPE tlinetab
iv_id TYPE dokhl-id
iv_object_name TYPE dokhl-object
iv_language TYPE spras
iv_no_masterlang TYPE abap_bool OPTIONAL
RAISING
zcx_abapgit_exception,
delete_documentation
IMPORTING
iv_id TYPE dokhl-id
iv_object_name TYPE dokhl-object
iv_language TYPE spras
RAISING
zcx_abapgit_exception,
get_includes
IMPORTING
iv_object_name TYPE sobj_name
RETURNING
VALUE(rt_includes) TYPE ty_includes_tt
RAISING
zcx_abapgit_exception,
exists
IMPORTING
is_object_name TYPE seoclskey
RETURNING
VALUE(rv_exists) TYPE abap_bool,
serialize_abap
IMPORTING
is_class_key TYPE seoclskey
iv_type TYPE seop_include_ext_app OPTIONAL
RETURNING
VALUE(rt_source) TYPE zif_abapgit_definitions=>ty_string_tt
RAISING
zcx_abapgit_exception
cx_sy_dyn_call_error,
get_skip_test_classes
RETURNING
VALUE(rv_skip) TYPE abap_bool,
get_class_properties
IMPORTING
is_class_key TYPE seoclskey
RETURNING
VALUE(rs_class_properties) TYPE vseoclass
RAISING
zcx_abapgit_exception,
get_interface_properties
IMPORTING
is_interface_key TYPE seoclskey
RETURNING
VALUE(rs_interface_properties) TYPE vseointerf
RAISING
zcx_abapgit_exception,
read_text_pool
IMPORTING
iv_class_name TYPE seoclsname
iv_language TYPE spras
RETURNING
VALUE(rt_text_pool) TYPE textpool_table,
read_documentation
IMPORTING
iv_id TYPE dokhl-id
iv_object_name TYPE dokhl-object
iv_language TYPE spras
RETURNING
VALUE(rt_lines) TYPE tlinetab,
read_sotr
IMPORTING
iv_object_name TYPE sobj_name
ii_xml TYPE REF TO zif_abapgit_xml_output
io_i18n_params TYPE REF TO zcl_abapgit_i18n_params
RAISING
zcx_abapgit_exception,
read_descriptions_class
IMPORTING
iv_object_name TYPE seoclsname
iv_language TYPE spras OPTIONAL
RETURNING
VALUE(rt_descriptions) TYPE ty_seoclasstx_tt,
read_descriptions_compo
IMPORTING
iv_object_name TYPE seoclsname
iv_language TYPE spras OPTIONAL
RETURNING
VALUE(rt_descriptions) TYPE ty_seocompotx_tt,
read_descriptions_subco
IMPORTING
iv_object_name TYPE seoclsname
iv_language TYPE spras OPTIONAL
RETURNING
VALUE(rt_descriptions) TYPE ty_seosubcotx_tt,
delete
IMPORTING
is_deletion_key TYPE seoclskey
RAISING
zcx_abapgit_exception,
read_superclass
IMPORTING
iv_classname TYPE seoclsname
RETURNING
VALUE(rv_superclass) TYPE seoclsname,
read_attributes
IMPORTING
iv_object_name TYPE seoclsname
RETURNING
VALUE(rt_attributes) TYPE ty_obj_attribute_tt,
syntax_check
IMPORTING
iv_object_name TYPE seoclsname
RAISING
zcx_abapgit_exception.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_FIELD_RULES ', 'CLASS zcl_abapgit_field_rules DEFINITION
PUBLIC
FINAL
CREATE PRIVATE.
PUBLIC SECTION.
INTERFACES zif_abapgit_field_rules.
CLASS-METHODS create
RETURNING
VALUE(ro_result) TYPE REF TO zif_abapgit_field_rules.
PROTECTED SECTION.
PRIVATE SECTION.
TYPES:
BEGIN OF ty_item,
tabname TYPE tabname,
fieldname TYPE fieldname,
fill_rule TYPE zif_abapgit_field_rules=>ty_fill_rule,
END OF ty_item,
ty_items TYPE SORTED TABLE OF ty_item WITH UNIQUE KEY tabname fieldname.
DATA mt_item TYPE ty_items.
METHODS fill_value
IMPORTING
iv_rule TYPE zif_abapgit_field_rules=>ty_fill_rule
iv_package TYPE devclass
CHANGING
cv_value TYPE any.
ENDCLASS.
CLASS zcl_abapgit_field_rules IMPLEMENTATION.
METHOD create.
CREATE OBJECT ro_result TYPE zcl_abapgit_field_rules.
ENDMETHOD.
METHOD fill_value.
DATA lv_timestamp TYPE timestampl.
CASE iv_rule.
WHEN zif_abapgit_field_rules=>c_fill_rule-date.
cv_value = sy-datum.
WHEN zif_abapgit_field_rules=>c_fill_rule-time.
cv_value = sy-uzeit.
WHEN zif_abapgit_field_rules=>c_fill_rule-timestamp.
GET TIME STAMP FIELD lv_timestamp.
cv_value = lv_timestamp.
WHEN zif_abapgit_field_rules=>c_fill_rule-user.
cv_value = sy-uname.
WHEN zif_abapgit_field_rules=>c_fill_rule-client.
cv_value = sy-mandt.
WHEN zif_abapgit_field_rules=>c_fill_rule-package.
cv_value = iv_package.
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_field_rules~add.
DATA ls_item TYPE ty_item.
ls_item-tabname = iv_table.
ls_item-fieldname = iv_field.
ls_item-fill_rule = iv_fill_rule.
INSERT ls_item INTO TABLE mt_item.
ro_self = me.
ENDMETHOD.
METHOD zif_abapgit_field_rules~apply_clear_logic.
DATA ls_item TYPE ty_item.
FIELD-SYMBOLS <ls_data> TYPE any.
FIELD-SYMBOLS <lv_value> TYPE any.
IF mt_item IS INITIAL.
RETURN.
ENDIF.
LOOP AT ct_data ASSIGNING <ls_data>.
LOOP AT mt_item INTO ls_item WHERE tabname = iv_table.
ASSIGN COMPONENT ls_item-fieldname OF STRUCTURE <ls_data> TO <lv_value>.
IF sy-subrc = 0.
CLEAR <lv_value>.
ENDIF.
ENDLOOP.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_field_rules~apply_fill_logic.
DATA ls_item TYPE ty_item.
FIELD-SYMBOLS <ls_data> TYPE any.
FIELD-SYMBOLS <lv_value> TYPE any.
IF mt_item IS INITIAL.
RETURN.
ENDIF.
LOOP AT ct_data ASSIGNING <ls_data>.
LOOP AT mt_item INTO ls_item WHERE tabname = iv_table.
ASSIGN COMPONENT ls_item-fieldname OF STRUCTURE <ls_data> TO <lv_value>.
IF sy-subrc = 0.
fill_value(
EXPORTING
iv_rule = ls_item-fill_rule
iv_package = iv_package
CHANGING
cv_value = <lv_value> ).
ENDIF.
ENDLOOP.
ENDLOOP.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_FIELD_RULES ', 'INTERFACE zif_abapgit_field_rules
PUBLIC .
TYPES ty_fill_rule TYPE c LENGTH 2.
CONSTANTS:
BEGIN OF c_fill_rule,
date TYPE ty_fill_rule VALUE ''DT'',
time TYPE ty_fill_rule VALUE ''TM'',
timestamp TYPE ty_fill_rule VALUE ''TS'',
user TYPE ty_fill_rule VALUE ''UR'',
client TYPE ty_fill_rule VALUE ''CT'',
package TYPE ty_fill_rule VALUE ''PK'',
END OF c_fill_rule.
METHODS add
IMPORTING
iv_table TYPE tabname
iv_field TYPE fieldname
iv_fill_rule TYPE ty_fill_rule
RETURNING
VALUE(ro_self) TYPE REF TO zif_abapgit_field_rules.
METHODS apply_clear_logic
IMPORTING
iv_table TYPE tabname
CHANGING
ct_data TYPE STANDARD TABLE.
METHODS apply_fill_logic
IMPORTING
iv_table TYPE tabname
iv_package TYPE devclass
CHANGING
ct_data TYPE STANDARD TABLE.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_FUNCTION_MODULE ', 'CLASS zcl_abapgit_function_module DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES:
zif_abapgit_function_module.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_function_module IMPLEMENTATION.
METHOD zif_abapgit_function_module~function_exists.
DATA lv_function_module_name TYPE c LENGTH 30.
DATA lv_exists TYPE string.
lv_function_module_name = iv_function_module_name.
lv_exists = ''FUNCTION_EXISTS''.
TRY.
CALL FUNCTION lv_exists
EXPORTING
funcname = lv_function_module_name
EXCEPTIONS
function_not_exist = 1
OTHERS = 2.
rv_exists = boolc( sy-subrc = 0 ).
CATCH cx_sy_dyn_call_illegal_func.
* then its running in ABAP Cloud Programming Model, assume nothing is released
* I could not find any way to check for this -Hvam
rv_exists = abap_false.
ENDTRY.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_SAP_NAMESPACE ', 'CLASS zcl_abapgit_sap_namespace DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES zif_abapgit_sap_namespace.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS ZCL_ABAPGIT_SAP_NAMESPACE IMPLEMENTATION.
METHOD zif_abapgit_sap_namespace~exists.
DATA lv_editflag TYPE trnspace-editflag.
DATA lo_obj TYPE REF TO object.
DATA lo_nsp TYPE REF TO object.
FIELD-SYMBOLS <lg_obj> TYPE any.
TRY.
SELECT SINGLE editflag FROM (''TRNSPACE'') INTO lv_editflag WHERE namespace = iv_namespace.
rv_yes = boolc( sy-subrc = 0 ).
CATCH cx_sy_dynamic_osql_error.
ASSIGN (''XCO_CP_SYSTEM=>NAMESPACE'') TO <lg_obj>.
lo_obj = <lg_obj>.
CALL METHOD lo_obj->(''IF_XCO_CP_NAMESPACE_FACTORY~FOR'')
EXPORTING
iv_value = iv_namespace
RECEIVING
ro_namespace = lo_nsp.
CALL METHOD lo_nsp->(''IF_XCO_CP_NAMESPACE~EXISTS'')
RECEIVING
rv_exists = rv_yes.
ENDTRY.
ENDMETHOD.
METHOD zif_abapgit_sap_namespace~is_editable.
DATA lv_editflag TYPE trnspace-editflag.
DATA lo_obj TYPE REF TO object.
DATA lo_nsp TYPE REF TO object.
FIELD-SYMBOLS <lg_obj> TYPE any.
TRY.
SELECT SINGLE editflag FROM (''TRNSPACE'') INTO lv_editflag WHERE namespace = iv_namespace.
rv_yes = boolc( sy-subrc = 0 AND lv_editflag = ''X'' ).
CATCH cx_sy_dynamic_osql_error.
ASSIGN (''XCO_CP_SYSTEM=>NAMESPACE'') TO <lg_obj>.
lo_obj = <lg_obj>.
CALL METHOD lo_obj->(''IF_XCO_CP_NAMESPACE_FACTORY~FOR'')
EXPORTING
iv_value = iv_namespace
RECEIVING
ro_namespace = lo_nsp.
CALL METHOD lo_nsp->(''IF_XCO_CP_NAMESPACE~IS_CHANGEABLE'')
RECEIVING
rv_exists = rv_yes.
ENDTRY.
ENDMETHOD.
METHOD zif_abapgit_sap_namespace~split_by_name.
* use this method instead of function module RS_NAME_SPLIT_NAMESPACE
DATA lv_regex TYPE string.
DATA lv_length TYPE i.
DATA lr_ex TYPE REF TO cx_root.
lv_regex = ''^\\/[^\\/]{1,8}\\/''.
TRY.
FIND REGEX lv_regex IN iv_obj_with_namespace MATCH LENGTH lv_length.
CATCH cx_root INTO lr_ex.
zcx_abapgit_exception=>raise( lr_ex->get_text( ) ).
ENDTRY.
IF sy-subrc = 0 AND lv_length > 1.
rs_obj_namespace-namespace = iv_obj_with_namespace(lv_length).
rs_obj_namespace-obj_without_namespace = iv_obj_with_namespace+lv_length.
ELSE.
IF iv_obj_with_namespace(1) = ''/''.
zcx_abapgit_exception=>raise( |The object { iv_obj_with_namespace } has an invalid namespace| ).
ENDIF.
rs_obj_namespace-obj_without_namespace = iv_obj_with_namespace.
ENDIF.
IF iv_allow_slash_in_name = abap_false AND rs_obj_namespace-obj_without_namespace CA ''/''.
zcx_abapgit_exception=>raise(
|Object without namespace { rs_obj_namespace-obj_without_namespace } contains a ''/''| ).
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_SAP_PACKAGE ', 'CLASS zcl_abapgit_sap_package DEFINITION
PUBLIC
CREATE PRIVATE
GLOBAL FRIENDS zcl_abapgit_factory .
PUBLIC SECTION.
INTERFACES zif_abapgit_sap_package .
METHODS constructor
IMPORTING
!iv_package TYPE devclass .
PROTECTED SECTION.
PRIVATE SECTION.
DATA: mv_package TYPE devclass.
METHODS get_transport_layer
RETURNING
VALUE(rv_transport_layer) TYPE devlayer
RAISING
zcx_abapgit_exception .
ENDCLASS.
CLASS zcl_abapgit_sap_package IMPLEMENTATION.
METHOD constructor.
mv_package = iv_package.
ENDMETHOD.
METHOD zif_abapgit_sap_package~are_changes_recorded_in_tr_req.
DATA: li_package TYPE REF TO if_package.
cl_package_factory=>load_package(
EXPORTING
i_package_name = mv_package
IMPORTING
e_package = li_package
EXCEPTIONS
object_not_existing = 1
unexpected_error = 2
intern_err = 3
no_access = 4
object_locked_and_modified = 5
OTHERS = 6 ).
CASE sy-subrc.
WHEN 0.
rv_are_changes_rec_in_tr_req = li_package->wbo_korr_flag.
WHEN 1.
" For new packages, derive from package name
rv_are_changes_rec_in_tr_req = boolc( mv_package(1) <> ''$'' AND mv_package(1) <> ''T'' ).
WHEN OTHERS.
zcx_abapgit_exception=>raise_t100( ).
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_sap_package~create.
DATA: lv_err TYPE string,
li_package TYPE REF TO if_package,
ls_package TYPE scompkdtln.
ASSERT NOT is_package-devclass IS INITIAL.
cl_package_factory=>load_package(
EXPORTING
i_package_name = is_package-devclass
EXCEPTIONS
object_not_existing = 1
unexpected_error = 2
intern_err = 3
no_access = 4
object_locked_and_modified = 5 ).
IF sy-subrc = 0.
" Package already exists. We assume this is fine. Its properties might be changed later at
" DEVC deserialization.
RETURN.
ENDIF.
MOVE-CORRESPONDING is_package TO ls_package.
" Set software component to ''HOME'' if none is set at this point.
" Otherwise SOFTWARE_COMPONENT_INVALID will be raised.
IF ls_package-dlvunit IS INITIAL.
ls_package-dlvunit = ''HOME''.
ENDIF.
" For transportable packages, get default transport and layer
IF ls_package-devclass(1) <> ''$'' AND ls_package-pdevclass IS INITIAL.
ls_package-pdevclass = get_transport_layer( ).
ENDIF.
cl_package_factory=>create_new_package(
EXPORTING
i_reuse_deleted_object = abap_true
* i_suppress_dialog = abap_true " does not exist in 730
IMPORTING
e_package = li_package
CHANGING
c_package_data = ls_package
EXCEPTIONS
object_already_existing = 1
object_just_created = 2
not_authorized = 3
wrong_name_prefix = 4
undefined_name = 5
reserved_local_name = 6
invalid_package_name = 7
short_text_missing = 8
software_component_invalid = 9
layer_invalid = 10
author_not_existing = 11
component_not_existing = 12
component_missing = 13
prefix_in_use = 14
unexpected_error = 15
intern_err = 16
no_access = 17
* invalid_translation_depth = 18
* wrong_mainpack_value = 19
* superpackage_invalid = 20
* error_in_cts_checks = 21
OTHERS = 18 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
li_package->save(
* EXPORTING
* i_suppress_dialog = abap_true " Controls whether popups can be transmitted
EXCEPTIONS
object_invalid = 1
object_not_changeable = 2
cancelled_in_corr = 3
permission_failure = 4
unexpected_error = 5
intern_err = 6
OTHERS = 7 ).
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 INTO lv_err.
" Here we have to delete the package,
" otherwise it would remain in the memory
" and cannot created again in this session.
li_package->delete(
EXCEPTIONS
object_not_empty = 1
object_not_changeable = 2
object_invalid = 3
intern_err = 4
OTHERS = 5 ).
zcx_abapgit_exception=>raise( lv_err ).
ENDIF.
li_package->set_changeable( abap_false ).
ENDMETHOD.
METHOD zif_abapgit_sap_package~create_child.
DATA: li_parent TYPE REF TO if_package,
ls_child TYPE zif_abapgit_sap_package=>ty_create.
cl_package_factory=>load_package(
EXPORTING
i_package_name = mv_package
IMPORTING
e_package = li_parent
EXCEPTIONS
object_not_existing = 1
unexpected_error = 2
intern_err = 3
no_access = 4
object_locked_and_modified = 5 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ls_child-devclass = iv_child.
ls_child-dlvunit = li_parent->software_component.
ls_child-component = li_parent->application_component.
ls_child-ctext = iv_child.
ls_child-parentcl = mv_package.
ls_child-pdevclass = li_parent->transport_layer.
ls_child-as4user = sy-uname.
zif_abapgit_sap_package~create( ls_child ).
ENDMETHOD.
METHOD zif_abapgit_sap_package~create_local.
DATA: ls_package TYPE zif_abapgit_sap_package=>ty_create.
ls_package-devclass = mv_package.
ls_package-ctext = mv_package.
ls_package-parentcl = ''$TMP''.
ls_package-dlvunit = ''LOCAL''.
ls_package-as4user = sy-uname.
zif_abapgit_sap_package~create( ls_package ).
ENDMETHOD.
METHOD zif_abapgit_sap_package~exists.
cl_package_factory=>load_package(
EXPORTING
i_package_name = mv_package
EXCEPTIONS
object_not_existing = 1
unexpected_error = 2
intern_err = 3
no_access = 4
object_locked_and_modified = 5 ).
rv_bool = boolc( sy-subrc <> 1 ).
ENDMETHOD.
METHOD get_transport_layer.
" Get default transport layer
CALL FUNCTION ''TR_GET_TRANSPORT_TARGET''
EXPORTING
iv_use_default = abap_true
iv_get_layer_only = abap_true
IMPORTING
ev_layer = rv_transport_layer
EXCEPTIONS
wrong_call = 1
invalid_input = 2
cts_initialization_failure = 3
OTHERS = 4.
IF sy-subrc <> 0.
" Return empty layer (i.e. "local workbench request" for the package)
CLEAR rv_transport_layer.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_sap_package~get_transport_type.
DATA:
lv_pkg_name TYPE e071-obj_name,
lv_obj_name TYPE tadir-obj_name,
lv_role TYPE trnrole.
lv_pkg_name = mv_package.
lv_obj_name = mv_package.
CALL FUNCTION ''TR_GET_REQUEST_TYPE''
EXPORTING
iv_pgmid = ''R3TR''
iv_object = ''DEVC''
iv_obj_name = lv_pkg_name
IMPORTING
ev_request_type = rs_transport_type-request
ev_task_type = rs_transport_type-task
EXCEPTIONS
no_request_needed = 1
invalid_object = 2
system_error = 3
OTHERS = 4.
CASE sy-subrc.
WHEN 0 OR 1.
RETURN.
WHEN 2.
" For new packages, set to workbench request
rs_transport_type-request = ''K''.
CALL FUNCTION ''TR_GET_NAMESPACE_AND_ROLE''
EXPORTING
iv_pgmid = ''R3TR''
iv_object = ''DEVC''
iv_objname = lv_obj_name
IMPORTING
ev_role = lv_role
EXCEPTIONS
namespace_not_existing = 1
invalid_object = 2
namespace_not_determinable = 3
OTHERS = 4.
IF sy-subrc = 0 AND lv_role = ''C''.
" Namespace with repair license requires repair task
rs_transport_type-task = ''R''.
ELSE.
" Otherwise use correction task
rs_transport_type-task = ''S''.
ENDIF.
WHEN OTHERS.
zcx_abapgit_exception=>raise_t100( ).
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_sap_package~list_subpackages.
DATA: lt_list LIKE rt_list.
SELECT devclass FROM tdevc
INTO TABLE lt_list
WHERE parentcl = mv_package
ORDER BY PRIMARY KEY. "#EC CI_SUBRC "#EC CI_GENBUFF
rt_list = lt_list.
WHILE lines( lt_list ) > 0.
SELECT devclass FROM tdevc
INTO TABLE lt_list
FOR ALL ENTRIES IN lt_list
WHERE parentcl = lt_list-table_line
ORDER BY PRIMARY KEY. "#EC CI_SUBRC "#EC CI_GENBUFF
APPEND LINES OF lt_list TO rt_list.
ENDWHILE.
ENDMETHOD.
METHOD zif_abapgit_sap_package~list_superpackages.
DATA: lt_list LIKE rt_list,
lv_parent TYPE tdevc-parentcl.
APPEND mv_package TO rt_list.
lv_parent = zif_abapgit_sap_package~read_parent( ).
IF sy-subrc = 0 AND NOT lv_parent IS INITIAL.
lt_list = zcl_abapgit_factory=>get_sap_package( lv_parent )->list_superpackages( ).
APPEND LINES OF lt_list TO rt_list.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_sap_package~read_description.
SELECT SINGLE ctext FROM tdevct INTO rv_description
WHERE devclass = mv_package AND spras = sy-langu ##SUBRC_OK.
ENDMETHOD.
METHOD zif_abapgit_sap_package~read_parent.
SELECT SINGLE parentcl FROM tdevc INTO rv_parentcl
WHERE devclass = mv_package. "#EC CI_GENBUFF
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Inconsistent package structure! Cannot find parent for { mv_package }| ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_sap_package~read_responsible.
SELECT SINGLE as4user FROM tdevc
INTO rv_responsible
WHERE devclass = mv_package ##SUBRC_OK. "#EC CI_GENBUFF
ENDMETHOD.
METHOD zif_abapgit_sap_package~validate_name.
IF mv_package IS INITIAL.
zcx_abapgit_exception=>raise( ''Package name must not be empty'' ).
ENDIF.
IF mv_package = ''$TMP''.
zcx_abapgit_exception=>raise( ''It is not possible to use $TMP, use a different (local) package'' ).
ENDIF.
" Check if package name is allowed
cl_package_helper=>check_package_name(
EXPORTING
i_package_name = mv_package
EXCEPTIONS
undefined_name = 1
wrong_name_prefix = 2
reserved_local_name = 3
invalid_package_name = 4 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Package name { mv_package } is not valid| ).
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_SAP_REPORT ', 'CLASS zcl_abapgit_sap_report DEFINITION
PUBLIC
FINAL
CREATE PUBLIC.
PUBLIC SECTION.
INTERFACES zif_abapgit_sap_report.
PROTECTED SECTION.
PRIVATE SECTION.
METHODS authorization_check
IMPORTING
iv_mode TYPE csequence
is_item TYPE zif_abapgit_definitions=>ty_item
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_sap_report IMPLEMENTATION.
METHOD authorization_check.
IF is_item IS NOT INITIAL.
TRY.
CALL FUNCTION ''RS_ACCESS_PERMISSION''
EXPORTING
mode = iv_mode
object = is_item-obj_name
object_class = is_item-obj_type
suppress_corr_check = abap_true
suppress_language_check = abap_true
suppress_extend_dialog = abap_true
abap_langu_version_upon_insert = is_item-abap_language_version " does not exist on lower releases
EXCEPTIONS
canceled_in_corr = 1
enqueued_by_user = 2
enqueue_system_failure = 3
illegal_parameter_values = 4
locked_by_author = 5
no_modify_permission = 6
no_show_permission = 7
permission_failure = 8
request_language_denied = 9
OTHERS = 10.
CATCH cx_sy_dyn_call_param_not_found.
CALL FUNCTION ''RS_ACCESS_PERMISSION''
EXPORTING
mode = iv_mode
object = is_item-obj_name
object_class = is_item-obj_type
suppress_corr_check = abap_true
suppress_language_check = abap_true
suppress_extend_dialog = abap_true
EXCEPTIONS
canceled_in_corr = 1
enqueued_by_user = 2
enqueue_system_failure = 3
illegal_parameter_values = 4
locked_by_author = 5
no_modify_permission = 6
no_show_permission = 7
permission_failure = 8
request_language_denied = 9
OTHERS = 10.
ENDTRY.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_sap_report~delete_report.
authorization_check(
iv_mode = ''DELETE''
is_item = is_item ).
DELETE REPORT iv_name.
IF sy-subrc <> 0 AND iv_raise_error = abap_true.
zcx_abapgit_exception=>raise( |Error deleting report { iv_name }| ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_sap_report~insert_report.
ASSERT iv_state CA '' AI''.
ASSERT iv_program_type CA '' 1FIJKMST''.
authorization_check(
iv_mode = ''MODIFY''
is_item = is_item ).
IF iv_state IS INITIAL.
INSERT REPORT iv_name FROM it_source.
ELSEIF iv_program_type IS INITIAL AND iv_extension_type IS INITIAL.
INSERT REPORT iv_name FROM it_source
STATE iv_state.
ELSEIF iv_extension_type IS INITIAL.
INSERT REPORT iv_name FROM it_source
STATE iv_state
PROGRAM TYPE iv_program_type.
ELSE.
INSERT REPORT iv_name FROM it_source
STATE iv_state
EXTENSION TYPE iv_extension_type
PROGRAM TYPE iv_program_type.
ENDIF.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error inserting report { iv_name }| ).
ENDIF.
" In lower releases, INSERT REPORT does not support setting ABAP Language version (VERSION)
" Therefore, update the flag directly
UPDATE progdir SET uccheck = iv_version WHERE name = iv_name AND state = iv_state.
ENDMETHOD.
METHOD zif_abapgit_sap_report~read_progdir.
DATA ls_sapdir TYPE progdir.
CALL FUNCTION ''READ_PROGDIR''
EXPORTING
i_progname = iv_name
i_state = iv_state
IMPORTING
e_progdir = ls_sapdir
EXCEPTIONS
not_exists = 1
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
MOVE-CORRESPONDING ls_sapdir TO rs_progdir.
CLEAR: rs_progdir-edtx,
rs_progdir-cnam,
rs_progdir-cdat,
rs_progdir-unam,
rs_progdir-udat,
rs_progdir-levl,
rs_progdir-vern,
rs_progdir-rmand,
rs_progdir-sdate,
rs_progdir-stime,
rs_progdir-idate,
rs_progdir-itime,
rs_progdir-varcl,
rs_progdir-state.
ENDMETHOD.
METHOD zif_abapgit_sap_report~read_report.
ASSERT iv_state CA '' AI''.
authorization_check(
iv_mode = ''SHOW''
is_item = is_item ).
IF iv_state IS INITIAL.
READ REPORT iv_name INTO rt_source.
ELSE.
READ REPORT iv_name INTO rt_source STATE iv_state.
ENDIF.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error reading report { iv_name }| ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_sap_report~update_progdir.
DATA ls_progdir_new TYPE progdir.
CALL FUNCTION ''READ_PROGDIR''
EXPORTING
i_progname = is_progdir-name
i_state = iv_state
IMPORTING
e_progdir = ls_progdir_new
EXCEPTIONS
not_exists = 1
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''Error reading program directory'' ).
ENDIF.
ls_progdir_new-ldbname = is_progdir-ldbname.
ls_progdir_new-dbna = is_progdir-dbna.
ls_progdir_new-dbapl = is_progdir-dbapl.
ls_progdir_new-rload = is_progdir-rload.
ls_progdir_new-fixpt = is_progdir-fixpt.
ls_progdir_new-appl = is_progdir-appl.
ls_progdir_new-rstat = is_progdir-rstat.
ls_progdir_new-uccheck = is_progdir-uccheck.
ls_progdir_new-sqlx = is_progdir-sqlx.
ls_progdir_new-clas = is_progdir-clas.
ls_progdir_new-secu = is_progdir-secu.
CALL FUNCTION ''UPDATE_PROGDIR''
EXPORTING
i_progdir = ls_progdir_new
i_progname = ls_progdir_new-name
i_state = ls_progdir_new-state
EXCEPTIONS
not_executed = 1
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''Error updating program directory'' ).
ENDIF.
" Function UPDATE_PROGDIR does not update VARCL, so we do it here
SELECT SINGLE * FROM progdir INTO ls_progdir_new
WHERE name = ls_progdir_new-name
AND state = ls_progdir_new-state.
IF sy-subrc = 0 AND is_progdir-varcl <> ls_progdir_new-varcl.
UPDATE progdir SET varcl = is_progdir-varcl
WHERE name = ls_progdir_new-name
AND state = ls_progdir_new-state. "#EC CI_SUBRC
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_sap_report~update_report.
DATA lt_new TYPE string_table.
DATA lt_old TYPE string_table.
lt_new = it_source.
lt_old = zif_abapgit_sap_report~read_report( iv_name ).
IF lt_old <> lt_new.
zif_abapgit_sap_report~insert_report(
iv_name = iv_name
it_source = it_source
iv_state = iv_state
iv_program_type = iv_program_type
iv_extension_type = iv_extension_type
iv_package = iv_package
iv_version = iv_version
is_item = is_item ).
rv_updated = abap_true.
ELSE.
rv_updated = abap_false.
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_FUNCTION_MODULE ', 'INTERFACE zif_abapgit_function_module
PUBLIC.
METHODS:
function_exists
IMPORTING
iv_function_module_name TYPE clike
RETURNING
VALUE(rv_exists) TYPE abap_bool.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_SAP_NAMESPACE ', 'INTERFACE zif_abapgit_sap_namespace
PUBLIC .
METHODS exists
IMPORTING
iv_namespace TYPE trnspace-namespace
RETURNING
VALUE(rv_yes) TYPE abap_bool.
METHODS is_editable
IMPORTING
iv_namespace TYPE trnspace-namespace
RETURNING
VALUE(rv_yes) TYPE abap_bool.
METHODS split_by_name
IMPORTING
iv_obj_with_namespace TYPE csequence
iv_allow_slash_in_name TYPE abap_bool DEFAULT abap_true
RETURNING
VALUE(rs_obj_namespace) TYPE zif_abapgit_definitions=>ty_obj_namespace
RAISING
zcx_abapgit_exception.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_SAP_PACKAGE ', 'INTERFACE zif_abapgit_sap_package
PUBLIC .
TYPES:
ty_devclass_tt TYPE STANDARD TABLE OF devclass WITH DEFAULT KEY .
TYPES: BEGIN OF ty_create,
devclass TYPE devclass,
dlvunit TYPE tdevc-dlvunit,
component TYPE c LENGTH 20,
ctext TYPE c LENGTH 60,
parentcl TYPE devclass,
pdevclass TYPE c LENGTH 4,
as4user TYPE usnam,
END OF ty_create.
METHODS validate_name
RAISING
zcx_abapgit_exception .
METHODS create
IMPORTING
!is_package TYPE ty_create
RAISING
zcx_abapgit_exception .
METHODS create_local
RAISING
zcx_abapgit_exception .
METHODS list_subpackages
RETURNING
VALUE(rt_list) TYPE ty_devclass_tt .
METHODS list_superpackages
RETURNING
VALUE(rt_list) TYPE ty_devclass_tt
RAISING
zcx_abapgit_exception .
METHODS read_parent
RETURNING
VALUE(rv_parentcl) TYPE devclass
RAISING
zcx_abapgit_exception .
METHODS read_description
RETURNING
VALUE(rv_description) TYPE string
RAISING
zcx_abapgit_exception .
METHODS read_responsible
RETURNING
VALUE(rv_responsible) TYPE usnam
RAISING
zcx_abapgit_exception .
METHODS create_child
IMPORTING
!iv_child TYPE devclass
RAISING
zcx_abapgit_exception .
METHODS exists
RETURNING
VALUE(rv_bool) TYPE abap_bool .
METHODS are_changes_recorded_in_tr_req
RETURNING
VALUE(rv_are_changes_rec_in_tr_req) TYPE abap_bool
RAISING
zcx_abapgit_exception .
METHODS get_transport_type
RETURNING
VALUE(rs_transport_type) TYPE zif_abapgit_definitions=>ty_transport_type
RAISING
zcx_abapgit_exception .
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_SAP_REPORT ', 'INTERFACE zif_abapgit_sap_report
PUBLIC.
TYPES:
BEGIN OF ty_progdir,
name TYPE progdir-name,
state TYPE progdir-state,
sqlx TYPE progdir-sqlx,
edtx TYPE progdir-edtx,
varcl TYPE progdir-varcl,
dbapl TYPE progdir-dbapl,
dbna TYPE progdir-dbna,
clas TYPE progdir-clas,
type TYPE progdir-type,
occurs TYPE progdir-occurs,
subc TYPE progdir-subc,
appl TYPE progdir-appl,
secu TYPE progdir-secu,
cnam TYPE progdir-cnam,
cdat TYPE progdir-cdat,
unam TYPE progdir-unam,
udat TYPE progdir-udat,
vern TYPE progdir-vern,
levl TYPE progdir-levl,
rstat TYPE progdir-rstat,
rmand TYPE progdir-rmand,
rload TYPE progdir-rload,
fixpt TYPE progdir-fixpt,
sset TYPE progdir-sset,
sdate TYPE progdir-sdate,
stime TYPE progdir-stime,
idate TYPE progdir-idate,
itime TYPE progdir-itime,
ldbname TYPE progdir-ldbname,
uccheck TYPE progdir-uccheck,
END OF ty_progdir.
METHODS read_report
IMPORTING
iv_name TYPE syrepid
iv_state TYPE r3state OPTIONAL
is_item TYPE zif_abapgit_definitions=>ty_item OPTIONAL
RETURNING
VALUE(rt_source) TYPE abaptxt255_tab
RAISING
zcx_abapgit_exception.
METHODS insert_report
IMPORTING
iv_name TYPE syrepid
it_source TYPE STANDARD TABLE
iv_state TYPE r3state OPTIONAL
iv_program_type TYPE c OPTIONAL
iv_extension_type TYPE c OPTIONAL
iv_package TYPE devclass
iv_version TYPE uccheck
is_item TYPE zif_abapgit_definitions=>ty_item OPTIONAL
RAISING
zcx_abapgit_exception.
METHODS update_report
IMPORTING
iv_name TYPE syrepid
it_source TYPE STANDARD TABLE
iv_state TYPE r3state OPTIONAL
iv_program_type TYPE c OPTIONAL
iv_extension_type TYPE c OPTIONAL
iv_package TYPE devclass
iv_version TYPE uccheck
is_item TYPE zif_abapgit_definitions=>ty_item OPTIONAL
RETURNING
VALUE(rv_updated) TYPE abap_bool
RAISING
zcx_abapgit_exception.
METHODS delete_report
IMPORTING
iv_name TYPE syrepid
iv_raise_error TYPE abap_bool DEFAULT abap_false
is_item TYPE zif_abapgit_definitions=>ty_item OPTIONAL
RAISING
zcx_abapgit_exception.
METHODS read_progdir
IMPORTING
iv_name TYPE syrepid
iv_state TYPE r3state DEFAULT ''A''
RETURNING
VALUE(rs_progdir) TYPE ty_progdir
RAISING
zcx_abapgit_exception.
METHODS update_progdir
IMPORTING
is_progdir TYPE ty_progdir
iv_package TYPE devclass
iv_state TYPE r3state DEFAULT ''I''
RAISING
zcx_abapgit_exception.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_OBJECT_TABL_DDL ', 'CLASS zcl_abapgit_object_tabl_ddl DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
METHODS read_data
IMPORTING
!iv_name TYPE tadir-obj_name
RETURNING
VALUE(rs_data) TYPE zif_abapgit_object_tabl=>ty_internal .
METHODS serialize
IMPORTING
!is_data TYPE zif_abapgit_object_tabl=>ty_internal
RETURNING
VALUE(rv_ddl) TYPE string .
METHODS deserialize
IMPORTING
!iv_ddl TYPE string
RETURNING
VALUE(rs_data) TYPE zif_abapgit_object_tabl=>ty_internal .
METHODS serialize_adt
IMPORTING
!iv_name TYPE tadir-obj_name
RETURNING
VALUE(rv_ddl) TYPE string
RAISING
cx_static_check .
PROTECTED SECTION.
PRIVATE SECTION.
METHODS parse_top_annotations
CHANGING
!cs_data TYPE zif_abapgit_object_tabl=>ty_internal
!cv_ddl TYPE string .
METHODS parse_field_annotations
EXPORTING
!es_dd08v TYPE dd08v
CHANGING
!cv_ddl TYPE string .
METHODS parse_field
IMPORTING
!iv_field TYPE string
CHANGING
!cs_data TYPE zif_abapgit_object_tabl=>ty_internal .
METHODS serialize_top
IMPORTING
!is_data TYPE zif_abapgit_object_tabl=>ty_internal
RETURNING
VALUE(rv_ddl) TYPE string .
METHODS serialize_extend
IMPORTING
!is_dd03p TYPE dd03p
!is_data TYPE zif_abapgit_object_tabl=>ty_internal
RETURNING
VALUE(rv_ddl) TYPE string .
METHODS serialize_field_annotations
IMPORTING
!iv_fieldname TYPE clike
!is_data TYPE zif_abapgit_object_tabl=>ty_internal
RETURNING
VALUE(rv_ddl) TYPE string .
METHODS serialize_fkey_annotations
IMPORTING
!iv_fieldname TYPE clike
!is_data TYPE zif_abapgit_object_tabl=>ty_internal
RETURNING
VALUE(rv_ddl) TYPE string .
METHODS serialize_field_foreign_key
IMPORTING
!iv_fieldname TYPE clike
!is_data TYPE zif_abapgit_object_tabl=>ty_internal
RETURNING
VALUE(rv_ddl) TYPE string .
METHODS serialize_value_help
IMPORTING
!iv_fieldname TYPE clike
!is_data TYPE zif_abapgit_object_tabl=>ty_internal
RETURNING
VALUE(rv_ddl) TYPE string .
METHODS escape_string
IMPORTING
!iv_string TYPE clike
RETURNING
VALUE(rv_string) TYPE string .
METHODS unescape_string
IMPORTING
!iv_string TYPE clike
RETURNING
VALUE(rv_string) TYPE string .
METHODS serialize_type
IMPORTING
!is_dd03p TYPE dd03p
RETURNING
VALUE(rv_type) TYPE string .
METHODS parse_type
IMPORTING
!iv_token TYPE string
CHANGING
!cs_dd03p TYPE dd03p .
ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_TABL_DDL IMPLEMENTATION.
METHOD deserialize.
* https://help.sap.com/doc/abapdocu_cp_index_htm/CLOUD/en-US/abenddicddl_define_table.htm
* CL_SBD_STRUCTURE_OBJDATA has serializer in local class
DATA lv_ddl TYPE string.
DATA lv_fields TYPE string.
DATA lv_start TYPE i.
DATA lv_length TYPE i.
DATA lv_end TYPE i.
DATA lt_fields TYPE STANDARD TABLE OF string WITH DEFAULT KEY.
DATA lv_field TYPE string.
lv_ddl = iv_ddl.
parse_top_annotations( CHANGING
cs_data = rs_data
cv_ddl = lv_ddl ).
FIND FIRST OCCURRENCE OF ''{'' IN lv_ddl MATCH OFFSET lv_start.
ASSERT lv_start > 0.
FIND FIRST OCCURRENCE OF ''}'' IN lv_ddl MATCH OFFSET lv_end.
ASSERT lv_end > 0.
lv_start = lv_start + 1.
lv_length = lv_end - lv_start - 1.
lv_fields = lv_ddl+lv_start(lv_length).
SPLIT lv_fields AT |;| INTO TABLE lt_fields.
LOOP AT lt_fields INTO lv_field WHERE table_line IS NOT INITIAL.
parse_field( EXPORTING iv_field = lv_field CHANGING cs_data = rs_data ).
ENDLOOP.
ENDMETHOD.
METHOD escape_string.
rv_string = |''{ replace( val = iv_string
sub = |''|
with = |''''|
occ = 0 ) }''|.
ENDMETHOD.
METHOD parse_field.
CONSTANTS: BEGIN OF lc_mode,
start TYPE i VALUE 0,
colon TYPE i VALUE 1,
type TYPE i VALUE 2,
aftertype TYPE i VALUE 2,
null TYPE i VALUE 2,
afternull TYPE i VALUE 2,
END OF lc_mode.
DATA lv_field TYPE string.
DATA lv_mode TYPE i.
DATA lt_tokens TYPE STANDARD TABLE OF string WITH DEFAULT KEY.
DATA lv_token TYPE string.
DATA ls_dd08v TYPE dd08v.
FIELD-SYMBOLS <ls_dd03p> LIKE LINE OF cs_data-dd03p.
lv_field = iv_field.
parse_field_annotations(
IMPORTING es_dd08v = ls_dd08v
CHANGING cv_ddl = lv_field ).
SPLIT lv_field AT space INTO TABLE lt_tokens.
APPEND INITIAL LINE TO cs_data-dd03p ASSIGNING <ls_dd03p>.
LOOP AT lt_tokens INTO lv_token WHERE table_line IS NOT INITIAL.
CASE lv_mode.
WHEN lc_mode-start.
* todo, is it possible to have a key field named "key" ?
IF lv_token = ''key''.
<ls_dd03p>-keyflag = abap_true.
ELSE.
<ls_dd03p>-fieldname = to_upper( lv_token ).
lv_mode = lc_mode-colon.
ENDIF.
WHEN lc_mode-colon.
ASSERT lv_token = '':''.
lv_mode = lc_mode-type.
WHEN lc_mode-type.
parse_type(
EXPORTING iv_token = lv_token
CHANGING cs_dd03p = <ls_dd03p> ).
RETURN.
WHEN lc_mode-aftertype.
IF lv_token = ''not''.
<ls_dd03p>-notnull = abap_true.
lv_mode = lc_mode-null.
ENDIF.
WHEN lc_mode-null.
ASSERT lv_token = ''null''.
lv_mode = lc_mode-afternull.
WHEN lc_mode-afternull.
ASSERT lv_token = ''with''.
RETURN. " todo
WHEN OTHERS.
ASSERT 1 = ''todo''.
ENDCASE.
ENDLOOP.
ENDMETHOD.
METHOD parse_field_annotations.
DATA lv_annotation TYPE string.
DATA lv_name TYPE string.
DATA lv_value TYPE string.
REPLACE FIRST OCCURRENCE OF REGEX ''^[\\n ]*'' IN cv_ddl WITH ||.
WHILE cv_ddl CP ''@*''.
SPLIT cv_ddl AT |\\n| INTO lv_annotation cv_ddl.
CONDENSE cv_ddl.
SPLIT lv_annotation AT '':'' INTO lv_name lv_value.
CONDENSE lv_name.
CONDENSE lv_value.
ASSERT lv_name IS NOT INITIAL.
ASSERT lv_value IS NOT INITIAL.
CASE lv_name.
WHEN ''@AbapCatalog.foreignKey.label''.
es_dd08v-ddtext = unescape_string( lv_value ).
WHEN ''@AbapCatalog.foreignKey.keyType''.
ASSERT lv_value(1) = ''#''.
es_dd08v-frkart = lv_value+1.
WHEN ''@AbapCatalog.foreignKey.screenCheck''.
ASSERT lv_value = ''true''.
WHEN OTHERS.
WRITE: / ''todo:'', lv_name, lv_value.
ASSERT 1 = ''todo''.
ENDCASE.
ENDWHILE.
ENDMETHOD.
METHOD parse_top_annotations.
DATA lv_annotation TYPE string.
DATA lv_name TYPE string.
DATA lv_value TYPE string.
WHILE cv_ddl CP ''@*''.
SPLIT cv_ddl AT |\\n| INTO lv_annotation cv_ddl.
SPLIT lv_annotation AT '':'' INTO lv_name lv_value.
CONDENSE lv_name.
CONDENSE lv_value.
ASSERT lv_name IS NOT INITIAL.
ASSERT lv_value IS NOT INITIAL.
CASE lv_name.
WHEN ''@EndUserText.label''.
cs_data-dd02v-ddtext = unescape_string( lv_value ).
WHEN ''@AbapCatalog.enhancementCategory''.
CASE lv_value.
WHEN ''#NOT_EXTENSIBLE''.
cs_data-dd02v-contflag = ''1''.
WHEN OTHERS.
ASSERT 1 = ''todo''.
ENDCASE.
WHEN ''@AbapCatalog.tableCategory''.
CASE lv_value.
WHEN ''#TRANSPARENT''.
cs_data-dd02v-tabclass = ''TRANSP''.
WHEN OTHERS.
ASSERT 1 = ''todo''.
ENDCASE.
WHEN ''@AbapCatalog.deliveryClass''.
ASSERT lv_value(1) = ''#''.
cs_data-dd02v-contflag = lv_value+1.
WHEN ''@AbapCatalog.dataMaintenance''.
CASE lv_value.
WHEN ''#ALLOWED''.
cs_data-dd02v-mainflag = abap_true.
WHEN ''#LIMITED''.
cs_data-dd02v-mainflag = abap_false.
WHEN OTHERS.
ASSERT 1 = ''todo''.
ENDCASE.
WHEN OTHERS.
WRITE: / ''todo:'', lv_name, lv_value.
ASSERT 1 = ''todo''.
ENDCASE.
ENDWHILE.
ENDMETHOD.
METHOD parse_type.
DATA lv_token TYPE string.
lv_token = iv_token.
IF lv_token CP ''abap.*''.
lv_token = lv_token+5.
IF lv_token(4) = ''char''.
* todo, length
cs_dd03p-datatype = ''CHAR''.
ELSEIF lv_token(6) = ''string''.
cs_dd03p-intlen = 8.
cs_dd03p-inttype = ''g''.
cs_dd03p-datatype = ''STRG''.
ELSE.
ASSERT 1 = ''todo''.
ENDIF.
ELSE.
cs_dd03p-rollname = to_upper( lv_token ).
ENDIF.
ENDMETHOD.
METHOD read_data.
* temporary method for testing
DATA lv_name TYPE ddobjname.
lv_name = iv_name.
CALL FUNCTION ''DDIF_TABL_GET''
EXPORTING
name = lv_name
langu = ''E''
IMPORTING
dd02v_wa = rs_data-dd02v
dd09l_wa = rs_data-dd09l
TABLES
dd03p_tab = rs_data-dd03p
dd05m_tab = rs_data-dd05m
dd08v_tab = rs_data-dd08v
dd12v_tab = rs_data-dd12v
dd17v_tab = rs_data-dd17v
dd35v_tab = rs_data-dd35v
dd36m_tab = rs_data-dd36m
EXCEPTIONS
illegal_input = 1
OTHERS = 2.
ASSERT sy-subrc = 0.
ENDMETHOD.
METHOD serialize.
DATA ls_dd03p LIKE LINE OF is_data-dd03p.
DATA lv_key TYPE string.
DATA lv_type TYPE string.
DATA lv_pre TYPE string.
DATA lv_int TYPE i.
DATA lv_suffix TYPE string.
DATA lv_notnull TYPE string.
DATA lv_colon TYPE i.
rv_ddl = rv_ddl && serialize_top( is_data ).
rv_ddl = rv_ddl && |define table { to_lower( is_data-dd02v-tabname ) } \\{\\n|.
LOOP AT is_data-dd03p INTO ls_dd03p
WHERE ( fieldname NP ''.INCLU*'' OR groupname IS NOT INITIAL )
AND adminfield = ''0''.
lv_int = 0.
IF ls_dd03p-keyflag = abap_true.
lv_int = 4.
ENDIF.
IF ls_dd03p-groupname IS INITIAL.
lv_int = lv_int + strlen( ls_dd03p-fieldname ).
ELSE.
lv_int = lv_int + strlen( ls_dd03p-groupname ).
ENDIF.
IF lv_int > lv_colon.
lv_colon = lv_int.
ENDIF.
ENDLOOP.
* ADMINFIELD: skip fields inside .INCLUDEs
LOOP AT is_data-dd03p INTO ls_dd03p WHERE adminfield = ''0''.
CLEAR lv_key.
CLEAR lv_notnull.
IF ls_dd03p-keyflag = abap_true.
lv_key = |key |.
ENDIF.
lv_pre = |{ lv_key }{ to_lower( ls_dd03p-fieldname ) }|.
IF ls_dd03p-groupname IS NOT INITIAL.
lv_pre = |{ lv_key }{ to_lower( ls_dd03p-groupname ) }|.
ENDIF.
IF strlen( lv_pre ) < lv_colon.
lv_pre = lv_pre && repeat(
val = | |
occ = lv_colon - strlen( lv_pre ) ).
ENDIF.
IF ls_dd03p-fieldname = ''.INCLU--AP''.
CONTINUE.
ELSEIF ls_dd03p-fieldname CP ''.INCLU*''.
IF ls_dd03p-notnull = abap_true.
lv_notnull = | not null|.
ENDIF.
CLEAR lv_suffix.
IF ls_dd03p-fieldname CA ''-''.
SPLIT ls_dd03p-fieldname AT ''-'' INTO lv_suffix lv_suffix.
lv_suffix = | with suffix { to_lower( lv_suffix ) }|.
ENDIF.
IF ls_dd03p-groupname IS INITIAL.
rv_ddl = rv_ddl && | { lv_key }include { to_lower( ls_dd03p-precfield ) }{ lv_suffix }{ lv_notnull }|.
ELSE.
rv_ddl = rv_ddl && | { lv_pre } : include { to_lower( ls_dd03p-precfield ) }{ lv_suffix }{ lv_notnull }|.
ENDIF.
rv_ddl = rv_ddl && serialize_extend(
is_dd03p = ls_dd03p
is_data = is_data ).
rv_ddl = rv_ddl && |;\\n|.
CONTINUE.
ENDIF.
rv_ddl = rv_ddl && serialize_field_annotations(
iv_fieldname = ls_dd03p-fieldname
is_data = is_data ).
rv_ddl = rv_ddl && serialize_fkey_annotations(
iv_fieldname = ls_dd03p-fieldname
is_data = is_data ).
lv_type = serialize_type( ls_dd03p ).
rv_ddl = rv_ddl && | { lv_pre } : { lv_type }|.
rv_ddl = rv_ddl && serialize_field_foreign_key(
iv_fieldname = ls_dd03p-fieldname
is_data = is_data ).
rv_ddl = rv_ddl && serialize_value_help(
iv_fieldname = ls_dd03p-fieldname
is_data = is_data ).
rv_ddl = rv_ddl && |;\\n|.
ENDLOOP.
rv_ddl = rv_ddl && |\\n|.
rv_ddl = rv_ddl && |\\}|.
ENDMETHOD.
METHOD serialize_adt.
DATA ls_object_type TYPE wbobjtype.
DATA lv_object_key TYPE seu_objkey.
DATA li_object_data TYPE REF TO if_wb_object_data_model.
DATA lo_operator TYPE REF TO object.
ls_object_type-objtype_tr = ''TABL''.
ls_object_type-subtype_wb = ''DT''.
lv_object_key = iv_name.
CALL METHOD (''CL_WB_OBJECT_OPERATOR'')=>(''CREATE_INSTANCE'')
EXPORTING
object_type = ls_object_type
object_key = lv_object_key
RECEIVING
result = lo_operator.
CALL METHOD lo_operator->(''IF_WB_OBJECT_OPERATOR~READ'')
EXPORTING
version = ''A''
IMPORTING
eo_object_data = li_object_data.
CALL METHOD li_object_data->(''GET_CONTENT'') IMPORTING p_data = rv_ddl.
ENDMETHOD.
METHOD serialize_extend.
DATA lv_index TYPE i.
DATA ls_dd03p LIKE LINE OF is_data-dd03p.
DATA lt_fields TYPE STANDARD TABLE OF string WITH DEFAULT KEY.
DATA lv_field LIKE LINE OF lt_fields.
DATA ls_dd08v LIKE LINE OF is_data-dd08v.
DATA ls_dd35v LIKE LINE OF is_data-dd35v.
READ TABLE is_data-dd03p TRANSPORTING NO FIELDS
WITH KEY fieldname = is_dd03p-fieldname precfield = is_dd03p-precfield.
ASSERT sy-subrc = 0.
lv_index = sy-tabix + 1.
* the extended keys are not sorted by the fieldname positions
LOOP AT is_data-dd03p FROM lv_index INTO ls_dd03p.
IF ls_dd03p-adminfield = ''0''.
EXIT.
ENDIF.
APPEND ls_dd03p-fieldname TO lt_fields.
ENDLOOP.
CLEAR ls_dd03p.
LOOP AT is_data-dd08v INTO ls_dd08v
WHERE ( noinherit = ''Y'' OR checktable = ''*'' ) AND noinherit <> ''N''.
READ TABLE lt_fields TRANSPORTING NO FIELDS
WITH KEY table_line = ls_dd08v-fieldname.
IF sy-subrc <> 0.
CONTINUE.
ENDIF.
DELETE lt_fields WHERE table_line = ls_dd08v-fieldname.
rv_ddl = rv_ddl && |\\n|.
IF ls_dd08v-checktable <> ''*''.
rv_ddl = rv_ddl && serialize_fkey_annotations(
iv_fieldname = ls_dd08v-fieldname
is_data = is_data ).
ENDIF.
rv_ddl = rv_ddl && | extend { to_lower( ls_dd08v-fieldname ) } :|.
IF ls_dd08v-checktable = ''*''.
rv_ddl = rv_ddl && |\\n remove foreign key|.
ELSE.
rv_ddl = rv_ddl && serialize_field_foreign_key(
iv_fieldname = ls_dd08v-fieldname
is_data = is_data ).
ENDIF.
READ TABLE is_data-dd35v INTO ls_dd35v WITH KEY fieldname = ls_dd08v-fieldname.
IF sy-subrc = 0.
IF ls_dd35v-shlpname = ''*''.
rv_ddl = rv_ddl && |\\n remove value help|.
ELSEIF ls_dd35v-shlpinher <> abap_true.
rv_ddl = rv_ddl && serialize_value_help(
iv_fieldname = ls_dd08v-fieldname
is_data = is_data ).
ENDIF.
ENDIF.
ENDLOOP.
LOOP AT is_data-dd35v INTO ls_dd35v.
READ TABLE lt_fields INTO lv_field
WITH KEY table_line = ls_dd35v-fieldname.
IF sy-subrc <> 0.
CONTINUE.
ENDIF.
IF ls_dd35v-shlpname = ''*''.
rv_ddl = rv_ddl && |\\n|.
rv_ddl = rv_ddl && | extend { to_lower( lv_field ) } :|.
rv_ddl = rv_ddl && |\\n remove value help|.
ELSEIF ls_dd35v-shlpinher <> abap_true.
rv_ddl = rv_ddl && |\\n|.
rv_ddl = rv_ddl && | extend { to_lower( lv_field ) } :|.
rv_ddl = rv_ddl && serialize_value_help(
iv_fieldname = lv_field
is_data = is_data ).
ENDIF.
ENDLOOP.
REPLACE ALL OCCURRENCES OF |\\n | IN rv_ddl WITH |\\n |.
ENDMETHOD.
METHOD serialize_field_annotations.
DATA ls_dd03p LIKE LINE OF is_data-dd03p.
READ TABLE is_data-dd03p INTO ls_dd03p WITH KEY fieldname = iv_fieldname.
IF sy-subrc = 0.
IF ( ls_dd03p-rollname IS INITIAL AND ls_dd03p-precfield IS INITIAL
OR ls_dd03p-comptype = ''R'' AND ls_dd03p-reftype = ''B'' )
AND ls_dd03p-ddtext IS NOT INITIAL.
rv_ddl = rv_ddl && | @EndUserText.label : { escape_string( ls_dd03p-ddtext ) }\\n|.
ENDIF.
IF ls_dd03p-languflag = abap_true.
rv_ddl = rv_ddl && | @AbapCatalog.textLanguage\\n|.
ENDIF.
IF ls_dd03p-reftable IS NOT INITIAL AND ls_dd03p-reffield IS NOT INITIAL.
* this is not completely correct, it must lookup the type of the field in REFTABLE?
IF ls_dd03p-datatype = ''CURR'' OR ls_dd03p-reffield = ''WAERS''.
rv_ddl = rv_ddl && | @Semantics.amount.currencyCode : ''{ to_lower( ls_dd03p-reftable ) }.{
to_lower( ls_dd03p-reffield ) }''\\n|.
ELSE.
rv_ddl = rv_ddl && | @Semantics.quantity.unitOfMeasure : ''{ to_lower( ls_dd03p-reftable ) }.{
to_lower( ls_dd03p-reffield ) }''\\n|.
ENDIF.
ENDIF.
IF ls_dd03p-rollname IS INITIAL AND ( ls_dd03p-datatype(3) = ''D16'' OR ls_dd03p-datatype(3) = ''D34'' ).
* ls_dd03p-outputstyle
rv_ddl = rv_ddl && | @AbapCatalog.decfloat.outputStyle : #NORMAL\\n|.
ENDIF.
ENDIF.
ENDMETHOD.
METHOD serialize_field_foreign_key.
DATA ls_dd08v LIKE LINE OF is_data-dd08v.
DATA ls_dd05m LIKE LINE OF is_data-dd05m.
DATA lv_pre TYPE string.
DATA lv_cardinality TYPE string.
READ TABLE is_data-dd08v INTO ls_dd08v WITH KEY fieldname = iv_fieldname.
IF sy-subrc <> 0.
RETURN.
ENDIF.
IF ls_dd08v-cardleft = ''C'' AND ls_dd08v-card = ''1''.
lv_cardinality = | [1,0..1] |.
ELSEIF ls_dd08v-cardleft = ''1'' AND ls_dd08v-card = ''C''.
lv_cardinality = | [0..1,1] |.
ELSEIF ls_dd08v-cardleft = ''1'' AND ls_dd08v-card = ''1''.
lv_cardinality = | [1,1] |.
ELSEIF ls_dd08v-cardleft = ''1'' AND ls_dd08v-card = ''N''.
lv_cardinality = | [1..*,1] |.
ELSEIF ls_dd08v-cardleft = ''1'' AND ls_dd08v-card = ''CN''.
lv_cardinality = | [0..*,1] |.
ELSEIF ls_dd08v-cardleft = ''C'' AND ls_dd08v-card = ''CN''.
lv_cardinality = | [0..*,0..1] |.
ELSEIF ls_dd08v-cardleft = ''C'' AND ls_dd08v-card = ''C''.
lv_cardinality = | [0..1,0..1] |.
ELSEIF ls_dd08v-cardleft = ''N'' AND ls_dd08v-card = ''N''.
lv_cardinality = | [1..*,] |.
ELSEIF ls_dd08v-cardleft = ''C'' AND ls_dd08v-card = ''N''.
lv_cardinality = | [1..*,0..1] |.
ELSEIF ls_dd08v-cardleft IS INITIAL OR ls_dd08v-card IS INITIAL.
lv_cardinality = | |.
ELSE.
ASSERT 1 = ''todo''.
ENDIF.
rv_ddl = rv_ddl && |\\n with foreign key{ lv_cardinality }{ to_lower( ls_dd08v-checktable ) }|.
* assumption: dd05m table is sorted by PRIMPOS ascending
LOOP AT is_data-dd05m INTO ls_dd05m WHERE fieldname = iv_fieldname AND fortable <> ''*''.
IF lv_pre IS INITIAL.
lv_pre = |\\n where |.
ELSE.
lv_pre = |\\n and |.
ENDIF.
IF ls_dd05m-fortable(1) = |''|.
rv_ddl = rv_ddl && |{ lv_pre }{ to_lower( ls_dd05m-checkfield ) } = {
ls_dd05m-fortable }|.
ELSE.
rv_ddl = rv_ddl && |{ lv_pre }{ to_lower( ls_dd05m-checkfield ) } = {
to_lower( ls_dd05m-fortable ) }.{ to_lower( ls_dd05m-forkey ) }|.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD serialize_fkey_annotations.
DATA ls_dd08v LIKE LINE OF is_data-dd08v.
READ TABLE is_data-dd08v INTO ls_dd08v WITH KEY fieldname = iv_fieldname.
IF sy-subrc = 0.
IF ls_dd08v-ddtext IS NOT INITIAL.
rv_ddl = rv_ddl && | @AbapCatalog.foreignKey.label : { escape_string( ls_dd08v-ddtext ) }\\n|.
ENDIF.
IF ls_dd08v-frkart IS NOT INITIAL.
CASE ls_dd08v-frkart.
WHEN ''TEXT''.
rv_ddl = rv_ddl && | @AbapCatalog.foreignKey.keyType : #TEXT_KEY\\n|.
WHEN ''REF''.
rv_ddl = rv_ddl && | @AbapCatalog.foreignKey.keyType : #NON_KEY\\n|.
WHEN OTHERS.
rv_ddl = rv_ddl && | @AbapCatalog.foreignKey.keyType : #{ ls_dd08v-frkart }\\n|.
ENDCASE.
ENDIF.
IF ls_dd08v-checkflag = abap_false OR ls_dd08v-checkflag = ''N''.
rv_ddl = rv_ddl && | @AbapCatalog.foreignKey.screenCheck : true\\n|.
ELSE.
rv_ddl = rv_ddl && | @AbapCatalog.foreignKey.screenCheck : false\\n|.
ENDIF.
IF ls_dd08v-arbgb IS NOT INITIAL.
rv_ddl = rv_ddl && | @AbapCatalog.foreignKey.messageClass : ''{ ls_dd08v-arbgb }''\\n|.
ENDIF.
IF ls_dd08v-msgnr IS NOT INITIAL.
rv_ddl = rv_ddl && | @AbapCatalog.foreignKey.messageNumber : ''{ ls_dd08v-msgnr }''\\n|.
ENDIF.
ENDIF.
ENDMETHOD.
METHOD serialize_top.
FIELD-SYMBOLS: <lv_pk_is_invhash> TYPE c, " ddpk_is_invhash
<lv_is_gtt> TYPE abap_bool.
rv_ddl = rv_ddl && |@EndUserText.label : { escape_string( is_data-dd02v-ddtext ) }\\n|.
CASE is_data-dd02v-exclass.
WHEN ''0''.
rv_ddl = rv_ddl && |@AbapCatalog.enhancementCategory : #NOT_CLASSIFIED\\n|.
WHEN ''1''.
rv_ddl = rv_ddl && |@AbapCatalog.enhancementCategory : #NOT_EXTENSIBLE\\n|.
WHEN ''2''.
rv_ddl = rv_ddl && |@AbapCatalog.enhancementCategory : #EXTENSIBLE_CHARACTER\\n|.
WHEN ''3''.
rv_ddl = rv_ddl && |@AbapCatalog.enhancementCategory : #EXTENSIBLE_CHARACTER_NUMERIC\\n|.
WHEN ''4''.
rv_ddl = rv_ddl && |@AbapCatalog.enhancementCategory : #EXTENSIBLE_ANY\\n|.
WHEN OTHERS.
ASSERT 1 = ''todo''.
ENDCASE.
CASE is_data-dd02v-tabclass.
WHEN ''TRANSP''.
" doesn''t exist on NW < 750
ASSIGN COMPONENT ''IS_GTT'' OF STRUCTURE is_data-dd02v TO <lv_is_gtt>.
IF sy-subrc = 0 AND <lv_is_gtt> = abap_true.
rv_ddl = rv_ddl && |@AbapCatalog.tableCategory : #GLOBAL_TEMPORARY\\n|.
ELSE.
rv_ddl = rv_ddl && |@AbapCatalog.tableCategory : #TRANSPARENT\\n|.
ENDIF.
WHEN OTHERS.
ASSERT 1 = ''todo''.
ENDCASE.
IF is_data-dd02v-authclass = ''01''.
rv_ddl = rv_ddl && |@AbapCatalog.activationType : #NAMETAB_GENERATION_OFFLINE\\n|.
ELSEIF is_data-dd02v-authclass = ''02''.
rv_ddl = rv_ddl && |@AbapCatalog.activationType : #ADAPT_C_STRUCTURES\\n|.
ENDIF.
rv_ddl = rv_ddl && |@AbapCatalog.deliveryClass : #{ is_data-dd02v-contflag }\\n|.
IF is_data-dd02v-mainflag = abap_true.
rv_ddl = rv_ddl && |@AbapCatalog.dataMaintenance : #ALLOWED\\n|.
ELSEIF is_data-dd02v-mainflag = ''N''.
rv_ddl = rv_ddl && |@AbapCatalog.dataMaintenance : #NOT_ALLOWED\\n|.
ELSEIF is_data-dd02v-mainflag IS INITIAL.
rv_ddl = rv_ddl && |@AbapCatalog.dataMaintenance : #LIMITED\\n|.
ELSE.
rv_ddl = rv_ddl && |@AbapCatalog.dataMaintenance : \\n|.
ENDIF.
" doesn''t exist on NW <= 750
ASSIGN
COMPONENT ''PK_IS_INVHASH''
OF STRUCTURE is_data-dd02v
TO <lv_pk_is_invhash>.
IF sy-subrc = 0 AND <lv_pk_is_invhash> = abap_true.
rv_ddl = rv_ddl && |@AbapCatalog.primaryKey.invertedHashIndex : true\\n|.
ENDIF.
ENDMETHOD.
METHOD serialize_type.
DATA lv_notnull TYPE string.
DATA lv_leng TYPE i.
DATA lv_decimals TYPE i.
IF is_dd03p-notnull = abap_true.
lv_notnull = | not null|.
ENDIF.
IF is_dd03p-rollname IS NOT INITIAL.
rv_type = |{ to_lower( is_dd03p-rollname ) }{ lv_notnull }|.
ELSE.
lv_leng = is_dd03p-leng.
lv_decimals = is_dd03p-decimals.
CASE is_dd03p-datatype.
WHEN ''STRG''.
rv_type = |abap.string({ lv_leng }){ lv_notnull }|.
WHEN ''RSTR''.
rv_type = |abap.rawstring({ lv_leng }){ lv_notnull }|.
WHEN ''INT4''.
rv_type = |abap.int4{ lv_notnull }|.
WHEN ''ACCP''.
rv_type = |abap.accp{ lv_notnull }|.
WHEN ''LANG''.
rv_type = |abap.lang{ lv_notnull }|.
WHEN ''DATN''.
rv_type = |abap.datn{ lv_notnull }|.
WHEN ''TIMN''.
rv_type = |abap.timn{ lv_notnull }|.
WHEN ''UTCL''.
rv_type = |abap.utcl{ lv_notnull }|.
WHEN ''INT8''.
rv_type = |abap.int8{ lv_notnull }|.
WHEN ''D16D''.
rv_type = |abap.df16_dec({ lv_leng },{ lv_decimals }){ lv_notnull }|.
WHEN ''D16R''.
rv_type = |abap.df16_raw{ lv_notnull }|.
WHEN ''D16S''.
rv_type = |abap.df16_scl{ lv_notnull }|.
WHEN ''D16N''.
rv_type = |abap.d16n{ lv_notnull }|.
WHEN ''D34S''.
rv_type = |abap.df34_scl{ lv_notnull }|.
WHEN ''D34D''.
rv_type = |abap.df34_dec({ lv_leng },{ lv_decimals }){ lv_notnull }|.
WHEN ''D34R''.
rv_type = |abap.df34_raw{ lv_notnull }|.
WHEN ''D34N''.
rv_type = |abap.d34n{ lv_notnull }|.
WHEN ''INT2''.
rv_type = |abap.int2{ lv_notnull }|.
WHEN ''INT1''.
rv_type = |abap.int1{ lv_notnull }|.
WHEN ''CUKY''.
rv_type = |abap.cuky{ lv_notnull }|.
WHEN ''DATS''.
rv_type = |abap.dats{ lv_notnull }|.
WHEN ''TIMS''.
rv_type = |abap.tims{ lv_notnull }|.
WHEN ''FLTP''.
rv_type = |abap.fltp{ lv_notnull }|.
WHEN ''CLNT''.
rv_type = |abap.clnt{ lv_notnull }|.
WHEN ''SSTR''.
rv_type = |abap.sstring({ lv_leng }){ lv_notnull }|.
WHEN ''QUAN''.
rv_type = |abap.quan({ lv_leng },{ lv_decimals }){ lv_notnull }|.
WHEN ''CURR''.
rv_type = |abap.curr({ lv_leng },{ lv_decimals }){ lv_notnull }|.
WHEN ''DEC''.
rv_type = |abap.dec({ lv_leng },{ lv_decimals }){ lv_notnull }|.
WHEN OTHERS.
rv_type = |abap.{ to_lower( is_dd03p-datatype ) }({ lv_leng }){ lv_notnull }|.
ENDCASE.
ENDIF.
ENDMETHOD.
METHOD serialize_value_help.
DATA ls_dd35v LIKE LINE OF is_data-dd35v.
DATA ls_dd36m LIKE LINE OF is_data-dd36m.
DATA lv_pre TYPE string.
READ TABLE is_data-dd35v INTO ls_dd35v WITH KEY fieldname = iv_fieldname.
IF sy-subrc <> 0.
RETURN.
ENDIF.
rv_ddl = rv_ddl && |\\n with value help { to_lower( ls_dd35v-shlpname ) }|.
LOOP AT is_data-dd36m INTO ls_dd36m
WHERE fieldname = iv_fieldname
AND shlpname = ls_dd35v-shlpname
AND shtype <> ''G''.
IF lv_pre IS INITIAL.
lv_pre = |\\n where |.
ELSE.
lv_pre = |\\n and |.
ENDIF.
IF ls_dd36m-shtype = ''C''.
rv_ddl = rv_ddl && |{ lv_pre }{ to_lower( ls_dd36m-shlpfield ) } = {
ls_dd36m-shtable }|.
ELSE.
rv_ddl = rv_ddl && |{ lv_pre }{ to_lower( ls_dd36m-shlpfield ) } = {
to_lower( ls_dd36m-shtable ) }.{ to_lower( ls_dd36m-shfield ) }|.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD unescape_string.
rv_string = iv_string.
REPLACE FIRST OCCURRENCE OF REGEX |^''| IN rv_string WITH ||.
REPLACE FIRST OCCURRENCE OF REGEX |''$| IN rv_string WITH ||.
REPLACE ALL OCCURRENCES OF |''''| IN rv_string WITH |''|.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_OBJECT_TABL ', 'INTERFACE zif_abapgit_object_tabl PUBLIC.
CONSTANTS: BEGIN OF c_s_dataname,
segment_definition TYPE string VALUE ''SEGMENT_DEFINITION'',
tabl_extras TYPE string VALUE ''TABL_EXTRAS'',
END OF c_s_dataname.
TYPES: BEGIN OF ty_dd02_text,
ddlanguage TYPE dd02t-ddlanguage,
ddtext TYPE dd02t-ddtext,
END OF ty_dd02_text.
TYPES ty_dd02_texts TYPE STANDARD TABLE OF ty_dd02_text WITH DEFAULT KEY.
TYPES ty_dd03p_tt TYPE STANDARD TABLE OF dd03p WITH DEFAULT KEY.
TYPES: BEGIN OF ty_segment_definition,
segmentheader TYPE edisegmhd,
segmentdefinition TYPE edisegmdef,
segmentstructures TYPE STANDARD TABLE OF edisegstru WITH DEFAULT KEY,
END OF ty_segment_definition.
TYPES: ty_segment_definitions TYPE STANDARD TABLE OF ty_segment_definition WITH DEFAULT KEY.
TYPES: BEGIN OF ty_tabl_extras,
tddat TYPE tddat,
END OF ty_tabl_extras.
TYPES: BEGIN OF ty_internal,
dd02v TYPE dd02v,
dd09l TYPE dd09l,
dd03p TYPE ty_dd03p_tt,
dd05m TYPE STANDARD TABLE OF dd05m WITH DEFAULT KEY,
dd08v TYPE STANDARD TABLE OF dd08v WITH DEFAULT KEY,
dd12v TYPE STANDARD TABLE OF dd12v WITH DEFAULT KEY,
dd17v TYPE STANDARD TABLE OF dd17v WITH DEFAULT KEY,
dd35v TYPE STANDARD TABLE OF dd35v WITH DEFAULT KEY,
dd36m TYPE STANDARD TABLE OF dd36m WITH DEFAULT KEY,
dd02_texts TYPE ty_dd02_texts,
i18n_langs TYPE STANDARD TABLE OF langu WITH DEFAULT KEY,
longtexts TYPE zif_abapgit_longtexts=>ty_longtexts,
segment_definitions TYPE ty_segment_definitions,
extras TYPE ty_tabl_extras,
END OF ty_internal.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_I18N_PARAMS ', 'CLASS zcl_abapgit_i18n_params DEFINITION
PUBLIC
FINAL
CREATE PRIVATE.
PUBLIC SECTION.
DATA ms_params TYPE zif_abapgit_definitions=>ty_i18n_params READ-ONLY .
CLASS-METHODS new
IMPORTING
!iv_main_language TYPE spras DEFAULT zif_abapgit_definitions=>c_english
!iv_main_language_only TYPE abap_bool DEFAULT abap_false
!it_translation_langs TYPE zif_abapgit_definitions=>ty_languages OPTIONAL
!iv_use_lxe TYPE abap_bool DEFAULT abap_false
!is_params TYPE zif_abapgit_definitions=>ty_i18n_params OPTIONAL
RETURNING
VALUE(ro_instance) TYPE REF TO zcl_abapgit_i18n_params .
METHODS constructor
IMPORTING
!iv_main_language TYPE spras DEFAULT zif_abapgit_definitions=>c_english
!iv_main_language_only TYPE abap_bool DEFAULT abap_false
!it_translation_langs TYPE zif_abapgit_definitions=>ty_languages OPTIONAL
!iv_use_lxe TYPE abap_bool DEFAULT abap_false
!is_params TYPE zif_abapgit_definitions=>ty_i18n_params OPTIONAL .
METHODS is_lxe_applicable
RETURNING
VALUE(rv_yes) TYPE abap_bool .
METHODS build_language_filter
RETURNING
VALUE(rt_language_filter) TYPE zif_abapgit_environment=>ty_system_language_filter .
METHODS trim_saplang_list
CHANGING
ct_sap_langs TYPE zif_abapgit_definitions=>ty_sap_langu_tab
RAISING
zcx_abapgit_exception.
METHODS trim_saplang_keyed_table
IMPORTING
iv_lang_field_name TYPE abap_compname
iv_keep_master_lang TYPE abap_bool DEFAULT abap_false "sy-langu OPTIONAL
CHANGING
ct_tab TYPE STANDARD TABLE
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
DATA mt_language_filter TYPE zif_abapgit_environment=>ty_system_language_filter.
CLASS-METHODS iso_langs_to_lang_filter
IMPORTING
it_iso_filter TYPE zif_abapgit_definitions=>ty_languages
RETURNING
VALUE(rt_language_filter) TYPE zif_abapgit_environment=>ty_system_language_filter.
ENDCLASS.
CLASS zcl_abapgit_i18n_params IMPLEMENTATION.
METHOD build_language_filter.
IF mt_language_filter IS INITIAL.
" translation_languages are includes, system langs are excludes, so the do not interfere
IF ms_params-translation_languages IS NOT INITIAL.
mt_language_filter = iso_langs_to_lang_filter( ms_params-translation_languages ).
ELSE.
mt_language_filter = zcl_abapgit_factory=>get_environment( )->get_system_language_filter( ).
ENDIF.
ENDIF.
rt_language_filter = mt_language_filter.
ENDMETHOD.
METHOD constructor.
IF is_params IS NOT INITIAL.
ms_params = is_params.
ELSE.
ms_params-main_language = iv_main_language.
ms_params-main_language_only = iv_main_language_only.
ms_params-translation_languages = it_translation_langs.
ms_params-use_lxe = iv_use_lxe.
ENDIF.
ASSERT ms_params-main_language IS NOT INITIAL.
ENDMETHOD.
METHOD iso_langs_to_lang_filter.
DATA lv_laiso LIKE LINE OF it_iso_filter.
DATA lv_langu TYPE sy-langu.
DATA ls_range LIKE LINE OF rt_language_filter.
ls_range-sign = ''I''.
ls_range-option = ''EQ''.
LOOP AT it_iso_filter INTO lv_laiso.
zcl_abapgit_convert=>language_sap2_to_sap1(
EXPORTING
im_lang_sap2 = lv_laiso
RECEIVING
re_lang_sap1 = lv_langu
EXCEPTIONS
no_assignment = 1
OTHERS = 2 ).
IF sy-subrc <> 0.
CONTINUE.
ENDIF.
ls_range-low = lv_langu.
APPEND ls_range TO rt_language_filter.
ENDLOOP.
ENDMETHOD.
METHOD is_lxe_applicable.
rv_yes = boolc( ms_params-main_language_only = abap_false AND
ms_params-use_lxe = abap_true AND
ms_params-translation_languages IS NOT INITIAL ).
ENDMETHOD.
METHOD new.
CREATE OBJECT ro_instance
EXPORTING
iv_main_language = iv_main_language
iv_main_language_only = iv_main_language_only
it_translation_langs = it_translation_langs
iv_use_lxe = iv_use_lxe
is_params = is_params.
ENDMETHOD.
METHOD trim_saplang_keyed_table.
DATA lv_laiso TYPE laiso.
DATA lv_index TYPE i.
FIELD-SYMBOLS <ls_i> TYPE any.
FIELD-SYMBOLS <lv_langu> TYPE sy-langu.
IF ms_params-translation_languages IS INITIAL OR iv_lang_field_name IS INITIAL.
RETURN. " Nothing to filter
ENDIF.
LOOP AT ct_tab ASSIGNING <ls_i>.
lv_index = sy-tabix.
ASSIGN COMPONENT iv_lang_field_name OF STRUCTURE <ls_i> TO <lv_langu>.
ASSERT sy-subrc = 0.
IF iv_keep_master_lang = abap_true AND <lv_langu> = ms_params-main_language.
CONTINUE. " Just keep it
ENDIF.
zcl_abapgit_convert=>language_sap1_to_sap2(
EXPORTING
im_lang_sap1 = <lv_langu>
RECEIVING
re_lang_sap2 = lv_laiso
EXCEPTIONS
no_assignment = 1
OTHERS = 2 ).
IF sy-subrc <> 0.
DELETE ct_tab INDEX lv_index. " Not in the list anyway ...
CONTINUE.
ENDIF.
" Not a sorted table, but presumably the list is small, so no significant performance flow
READ TABLE ms_params-translation_languages TRANSPORTING NO FIELDS WITH KEY table_line = lv_laiso.
IF sy-subrc <> 0.
DELETE ct_tab INDEX lv_index.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD trim_saplang_list.
DATA lv_langu TYPE sy-langu.
DATA lv_laiso TYPE laiso.
DATA lv_index TYPE i.
IF ms_params-translation_languages IS INITIAL.
RETURN. " Nothing to filter
ENDIF.
LOOP AT ct_sap_langs INTO lv_langu.
lv_index = sy-tabix.
zcl_abapgit_convert=>language_sap1_to_sap2(
EXPORTING
im_lang_sap1 = lv_langu
RECEIVING
re_lang_sap2 = lv_laiso
EXCEPTIONS
no_assignment = 1
OTHERS = 2 ).
IF sy-subrc <> 0.
DELETE ct_sap_langs INDEX lv_index. " Not in the list anyway ...
CONTINUE.
ENDIF.
" Not a sorted table, but presumably the list is small, so no significant performance flow
READ TABLE ms_params-translation_languages TRANSPORTING NO FIELDS WITH KEY table_line = lv_laiso.
IF sy-subrc <> 0.
DELETE ct_sap_langs INDEX lv_index.
ENDIF.
ENDLOOP.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_LONGTEXTS ', 'CLASS zcl_abapgit_longtexts DEFINITION
PUBLIC
CREATE PRIVATE
GLOBAL FRIENDS zcl_abapgit_factory.
PUBLIC SECTION.
INTERFACES zif_abapgit_longtexts.
PROTECTED SECTION.
METHODS read
IMPORTING
!iv_object_name TYPE clike
!iv_longtext_id TYPE dokil-id
!it_dokil TYPE zif_abapgit_definitions=>ty_dokil_tt
!iv_main_lang_only TYPE abap_bool DEFAULT abap_false
!iv_clear_fields TYPE abap_bool DEFAULT abap_true
RETURNING
VALUE(rt_longtexts) TYPE zif_abapgit_longtexts=>ty_longtexts
RAISING
zcx_abapgit_exception .
PRIVATE SECTION.
CONSTANTS c_docu_state_active TYPE dokstate VALUE ''A'' ##NO_TEXT.
METHODS escape_name
IMPORTING
!iv_longtext_id TYPE dokil-id
!iv_object_name TYPE clike
RETURNING
VALUE(rv_object) TYPE dokil-object.
ENDCLASS.
CLASS zcl_abapgit_longtexts IMPLEMENTATION.
METHOD escape_name.
" Prepare name for SQL LIKE condition
rv_object = iv_object_name.
IF ''CA,CE,CO,CT,IA,IE,IO,WC,FU,FX,DI,IS,PS'' CS iv_longtext_id.
" Document types of objects with sub-objects
rv_object+30 = ''%''.
ELSEIF ''OD'' CS iv_longtext_id.
rv_object+10 = ''%''.
ENDIF.
rv_object = replace(
val = rv_object
sub = ''_''
with = ''#_''
occ = 0 ).
ENDMETHOD.
METHOD read.
DATA: ls_longtext TYPE zif_abapgit_longtexts=>ty_longtext,
lv_object TYPE dokil-object,
lt_dokil TYPE zif_abapgit_definitions=>ty_dokil_tt.
FIELD-SYMBOLS: <ls_dokil> LIKE LINE OF lt_dokil.
lv_object = escape_name(
iv_longtext_id = iv_longtext_id
iv_object_name = iv_object_name ).
IF lines( it_dokil ) > 0.
lt_dokil = it_dokil.
IF iv_main_lang_only = abap_true.
DELETE lt_dokil WHERE masterlang <> abap_true.
ENDIF.
ELSEIF iv_longtext_id IS NOT INITIAL.
IF iv_main_lang_only = abap_true.
SELECT * FROM dokil
INTO TABLE lt_dokil
WHERE id = iv_longtext_id
AND object LIKE lv_object ESCAPE ''#''
AND masterlang = abap_true
ORDER BY PRIMARY KEY.
ELSE.
SELECT * FROM dokil
INTO TABLE lt_dokil
WHERE id = iv_longtext_id
AND object LIKE lv_object ESCAPE ''#''
ORDER BY PRIMARY KEY.
ENDIF.
ELSE.
zcx_abapgit_exception=>raise( |serialize_longtexts parameter error| ).
ENDIF.
LOOP AT lt_dokil ASSIGNING <ls_dokil>
WHERE txtlines > 0.
CLEAR: ls_longtext.
ls_longtext-dokil = <ls_dokil>.
CALL FUNCTION ''DOCU_READ''
EXPORTING
id = <ls_dokil>-id
langu = <ls_dokil>-langu
object = <ls_dokil>-object
typ = <ls_dokil>-typ
version = <ls_dokil>-version
IMPORTING
head = ls_longtext-head
TABLES
line = ls_longtext-lines.
IF iv_clear_fields = abap_true.
CLEAR: ls_longtext-head-tdfuser,
ls_longtext-head-tdfreles,
ls_longtext-head-tdfdate,
ls_longtext-head-tdftime,
ls_longtext-head-tdluser,
ls_longtext-head-tdlreles,
ls_longtext-head-tdldate,
ls_longtext-head-tdltime.
ENDIF.
INSERT ls_longtext INTO TABLE rt_longtexts.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_longtexts~changed_by.
DATA: lt_longtexts TYPE zif_abapgit_longtexts=>ty_longtexts.
FIELD-SYMBOLS: <ls_longtext> TYPE zif_abapgit_longtexts=>ty_longtext.
lt_longtexts = read( iv_object_name = iv_object_name
iv_longtext_id = iv_longtext_id
it_dokil = it_dokil
iv_clear_fields = abap_false ).
READ TABLE lt_longtexts INDEX 1 ASSIGNING <ls_longtext>.
IF sy-subrc = 0.
rv_user = <ls_longtext>-head-tdluser.
IF rv_user IS INITIAL.
rv_user = <ls_longtext>-head-tdfuser.
ENDIF.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_longtexts~delete.
DATA: lt_dokil TYPE zif_abapgit_definitions=>ty_dokil_tt,
lv_object TYPE dokil-object.
FIELD-SYMBOLS: <ls_dokil> TYPE dokil.
lv_object = escape_name(
iv_longtext_id = iv_longtext_id
iv_object_name = iv_object_name ).
SELECT * FROM dokil
INTO TABLE lt_dokil
WHERE id = iv_longtext_id AND object LIKE lv_object ESCAPE ''#''
ORDER BY PRIMARY KEY.
LOOP AT lt_dokil ASSIGNING <ls_dokil>.
CALL FUNCTION ''DOCU_DEL''
EXPORTING
id = <ls_dokil>-id
langu = <ls_dokil>-langu
object = <ls_dokil>-object
typ = <ls_dokil>-typ
EXCEPTIONS
ret_code = 1
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_longtexts~deserialize.
DATA: lt_longtexts TYPE zif_abapgit_longtexts=>ty_longtexts,
lv_object TYPE dokil-object,
lt_dokil TYPE zif_abapgit_definitions=>ty_dokil_tt,
lv_no_main_lang TYPE dokil-masterlang.
FIELD-SYMBOLS: <ls_longtext> TYPE zif_abapgit_longtexts=>ty_longtext,
<ls_dokil> TYPE dokil.
lv_object = escape_name(
iv_longtext_id = iv_longtext_id
iv_object_name = iv_object_name ).
ii_xml->read(
EXPORTING
iv_name = iv_longtext_name
CHANGING
cg_data = lt_longtexts ).
LOOP AT lt_longtexts ASSIGNING <ls_longtext>.
lv_no_main_lang = boolc( iv_main_language <> <ls_longtext>-dokil-langu ).
CALL FUNCTION ''DOCU_UPDATE''
EXPORTING
head = <ls_longtext>-head
state = c_docu_state_active
typ = <ls_longtext>-dokil-typ
version = <ls_longtext>-dokil-version
no_masterlang = lv_no_main_lang
TABLES
line = <ls_longtext>-lines.
ENDLOOP.
" Read existing texts and check if they were deserialized above
" If not, delete the texts
SELECT * FROM dokil
INTO TABLE lt_dokil
WHERE id = iv_longtext_id AND object LIKE lv_object ESCAPE ''#''
ORDER BY PRIMARY KEY.
LOOP AT lt_dokil ASSIGNING <ls_dokil>.
READ TABLE lt_longtexts TRANSPORTING NO FIELDS WITH KEY
dokil-id = <ls_dokil>-id
dokil-langu = <ls_dokil>-langu
dokil-object = <ls_dokil>-object
dokil-typ = <ls_dokil>-typ.
IF sy-subrc <> 0.
CALL FUNCTION ''DOCU_DEL''
EXPORTING
id = <ls_dokil>-id
langu = <ls_dokil>-langu
object = <ls_dokil>-object
typ = <ls_dokil>-typ
EXCEPTIONS
ret_code = 1
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_longtexts~serialize.
rt_longtexts = read( iv_object_name = iv_object_name
iv_longtext_id = iv_longtext_id
it_dokil = it_dokil
iv_main_lang_only = io_i18n_params->ms_params-main_language_only ).
IF rt_longtexts IS SUPPLIED.
RETURN.
ENDIF.
ii_xml->add( iv_name = iv_longtext_name
ig_data = rt_longtexts ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_LXE_TEXTS ', 'CLASS zcl_abapgit_lxe_texts DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES zif_abapgit_lxe_texts .
CLASS-METHODS class_constructor.
CLASS-METHODS get_translation_languages
IMPORTING
!iv_main_language TYPE spras
!it_i18n_languages TYPE zif_abapgit_definitions=>ty_languages
RETURNING
VALUE(rt_languages) TYPE zif_abapgit_definitions=>ty_languages
RAISING
zcx_abapgit_exception.
CLASS-METHODS get_installed_languages
RETURNING
VALUE(rt_languages) TYPE zif_abapgit_definitions=>ty_languages
RAISING
zcx_abapgit_exception.
CLASS-METHODS convert_lang_string_to_table
IMPORTING
!iv_langs TYPE string
!iv_skip_main_language TYPE spras OPTIONAL
RETURNING
VALUE(rt_languages) TYPE zif_abapgit_definitions=>ty_languages
RAISING
zcx_abapgit_exception .
CLASS-METHODS convert_table_to_lang_string
IMPORTING
!it_languages TYPE zif_abapgit_definitions=>ty_languages
RETURNING
VALUE(rv_langs) TYPE string
RAISING
zcx_abapgit_exception .
CLASS-METHODS detect_unsupported_languages
IMPORTING
!it_languages TYPE zif_abapgit_definitions=>ty_languages
RETURNING
VALUE(rt_unsupported_languages) TYPE zif_abapgit_definitions=>ty_languages
RAISING
zcx_abapgit_exception .
CLASS-METHODS is_object_supported
IMPORTING
iv_object_type TYPE tadir-object
RETURNING
VALUE(rv_yes) TYPE abap_bool.
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS c_custmnr TYPE lxecustmnr VALUE ''999999'' ##NEEDED.
" The value for ABAP system translation is always 999999 (from lxecustmnr docs)
TYPES:
BEGIN OF ty_lxe_translation,
source_lang TYPE lxeisolang,
target_lang TYPE lxeisolang,
custmnr TYPE lxecustmnr,
objtype TYPE trobjtype,
objname TYPE lxeobjname,
text_pairs TYPE zif_abapgit_lxe_texts=>ty_text_pairs,
END OF ty_lxe_translation.
TYPES:
ty_lxe_translations TYPE STANDARD TABLE OF ty_lxe_translation WITH DEFAULT KEY .
CLASS-DATA gt_installed_languages_cache TYPE zif_abapgit_definitions=>ty_languages.
CLASS-DATA gt_supported_obj_types TYPE STANDARD TABLE OF tadir-object.
DATA mo_i18n_params TYPE REF TO zcl_abapgit_i18n_params.
DATA mi_xml_out TYPE REF TO zif_abapgit_xml_output.
DATA mi_xml_in TYPE REF TO zif_abapgit_xml_input.
DATA mo_files TYPE REF TO zcl_abapgit_objects_files.
METHODS serialize_xml
IMPORTING
!iv_lxe_text_name TYPE string DEFAULT ''LXE_TEXTS''
!iv_object_type TYPE tadir-object
!iv_object_name TYPE tadir-obj_name
RAISING
zcx_abapgit_exception .
METHODS serialize_as_po
IMPORTING
!iv_object_type TYPE tadir-object
!iv_object_name TYPE tadir-obj_name
RAISING
zcx_abapgit_exception .
" Implementation of deserialize_xml is not complete (but kept as future option)
METHODS deserialize_xml
IMPORTING
!iv_lxe_text_name TYPE string DEFAULT ''LXE_TEXTS''
!iv_object_type TYPE tadir-object OPTIONAL
!iv_object_name TYPE tadir-obj_name OPTIONAL
RAISING
zcx_abapgit_exception ##NEEDED.
METHODS deserialize_from_po
IMPORTING
!iv_object_type TYPE tadir-object
!iv_object_name TYPE tadir-obj_name
RAISING
zcx_abapgit_exception .
METHODS get_lang_iso4
IMPORTING
iv_src TYPE laiso
RETURNING
VALUE(rv_iso4) TYPE lxeisolang
RAISING
zcx_abapgit_exception.
METHODS get_lxe_object_list
IMPORTING
iv_object_type TYPE trobjtype
iv_object_name TYPE sobj_name
RETURNING
VALUE(rt_obj_list) TYPE lxe_tt_colob .
METHODS read_lxe_object_text_pair
IMPORTING
iv_s_lang TYPE lxeisolang
iv_t_lang TYPE lxeisolang
iv_custmnr TYPE lxecustmnr
iv_objtype TYPE trobjtype
iv_objname TYPE lxeobjname
iv_read_only TYPE abap_bool DEFAULT abap_true
RETURNING
VALUE(rt_text_pairs_tmp) TYPE ty_lxe_translation-text_pairs
RAISING
zcx_abapgit_exception.
METHODS write_lxe_object_text_pair
IMPORTING
iv_s_lang TYPE lxeisolang
iv_t_lang TYPE lxeisolang
iv_custmnr TYPE lxecustmnr
iv_objtype TYPE trobjtype
iv_objname TYPE lxeobjname
it_pcx_s1 TYPE ty_lxe_translation-text_pairs
RAISING
zcx_abapgit_exception.
METHODS read_text_items
IMPORTING
iv_object_type TYPE tadir-object
iv_object_name TYPE tadir-obj_name
RETURNING
VALUE(rt_text_items) TYPE ty_lxe_translations
RAISING
zcx_abapgit_exception.
CLASS-METHODS langu_to_laiso_safe
IMPORTING
iv_langu TYPE sy-langu
RETURNING
VALUE(rv_laiso) TYPE laiso
RAISING
zcx_abapgit_exception.
CLASS-METHODS iso4_to_iso2
IMPORTING
iv_lxe_lang TYPE lxeisolang
RETURNING
VALUE(rv_laiso) TYPE laiso
RAISING
zcx_abapgit_exception.
CLASS-METHODS check_langs_versus_installed
IMPORTING
it_languages TYPE zif_abapgit_definitions=>ty_languages
it_installed TYPE zif_abapgit_definitions=>ty_languages
EXPORTING
et_intersection TYPE zif_abapgit_definitions=>ty_languages
et_missfits TYPE zif_abapgit_definitions=>ty_languages.
ENDCLASS.
CLASS zcl_abapgit_lxe_texts IMPLEMENTATION.
METHOD check_langs_versus_installed.
DATA lt_installed_hash TYPE HASHED TABLE OF laiso WITH UNIQUE KEY table_line.
FIELD-SYMBOLS <lv_lang> LIKE LINE OF it_languages.
CLEAR: et_intersection, et_missfits.
lt_installed_hash = it_installed.
LOOP AT it_languages ASSIGNING <lv_lang>.
READ TABLE lt_installed_hash WITH KEY table_line = <lv_lang> TRANSPORTING NO FIELDS.
IF sy-subrc = 0.
APPEND <lv_lang> TO et_intersection.
ELSE.
APPEND <lv_lang> TO et_missfits.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD class_constructor.
APPEND ''CLAS'' TO gt_supported_obj_types.
APPEND ''DOMA'' TO gt_supported_obj_types.
APPEND ''DTEL'' TO gt_supported_obj_types.
APPEND ''FUGR'' TO gt_supported_obj_types.
APPEND ''MSAG'' TO gt_supported_obj_types.
APPEND ''PARA'' TO gt_supported_obj_types.
APPEND ''PROG'' TO gt_supported_obj_types.
APPEND ''SHI3'' TO gt_supported_obj_types.
APPEND ''TABL'' TO gt_supported_obj_types.
APPEND ''TRAN'' TO gt_supported_obj_types.
APPEND ''VIEW'' TO gt_supported_obj_types.
ENDMETHOD.
METHOD convert_lang_string_to_table.
DATA:
lt_langs_str TYPE string_table,
lv_laiso TYPE laiso,
lv_skip_main_lang_iso TYPE laiso.
FIELD-SYMBOLS:
<lv_str> LIKE LINE OF lt_langs_str.
" Keep * as indicator for ''all installed languages''
IF iv_langs = ''*''.
APPEND iv_langs TO rt_languages.
RETURN.
ENDIF.
" Convert string of 2-letter ISO languages into table of sy-langu codes
SPLIT iv_langs AT '','' INTO TABLE lt_langs_str.
LOOP AT lt_langs_str ASSIGNING <lv_str>.
lv_laiso = condense( to_upper( <lv_str> ) ).
APPEND lv_laiso TO rt_languages.
ENDLOOP.
IF iv_skip_main_language IS NOT INITIAL.
lv_skip_main_lang_iso = langu_to_laiso_safe( iv_skip_main_language ).
DELETE rt_languages WHERE table_line = lv_skip_main_lang_iso.
ENDIF.
SORT rt_languages.
DELETE ADJACENT DUPLICATES FROM rt_languages.
ENDMETHOD.
METHOD convert_table_to_lang_string.
DATA:
lt_langs_str TYPE string_table.
FIELD-SYMBOLS:
<lv_lang> LIKE LINE OF it_languages,
<lv_str> TYPE string.
" Convert table of sy-langu codes into string of 2-letter ISO languages
LOOP AT it_languages ASSIGNING <lv_lang>.
" Keep * as indicator for ''all installed languages''
IF <lv_lang> = ''*''.
CLEAR lt_langs_str.
APPEND ''*'' TO lt_langs_str.
EXIT.
ENDIF.
APPEND INITIAL LINE TO lt_langs_str ASSIGNING <lv_str>.
<lv_str> = <lv_lang>.
ENDLOOP.
CONCATENATE LINES OF lt_langs_str INTO rv_langs SEPARATED BY '',''.
ENDMETHOD.
METHOD deserialize_from_po.
DATA lv_lang LIKE LINE OF mo_i18n_params->ms_params-translation_languages.
DATA lt_po_files TYPE zif_abapgit_i18n_file=>ty_table_of.
DATA li_po LIKE LINE OF lt_po_files.
DATA lt_text_pairs_tmp TYPE ty_lxe_translation-text_pairs.
DATA lt_obj_list TYPE lxe_tt_colob.
DATA lv_main_lang TYPE lxeisolang.
DATA lv_target_lang TYPE lxeisolang.
FIELD-SYMBOLS <lv_lxe_object> LIKE LINE OF lt_obj_list.
lt_obj_list = get_lxe_object_list(
iv_object_name = iv_object_name
iv_object_type = iv_object_type ).
IF lt_obj_list IS INITIAL.
RETURN.
ENDIF.
lt_po_files = mo_files->read_i18n_files( ).
lv_main_lang = get_lang_iso4( langu_to_laiso_safe( mo_i18n_params->ms_params-main_language ) ).
LOOP AT mo_i18n_params->ms_params-translation_languages INTO lv_lang.
lv_target_lang = get_lang_iso4( lv_lang ).
LOOP AT lt_po_files INTO li_po.
IF li_po->lang( ) = to_lower( lv_lang ). " Not quite efficient but the list is presumably very short
EXIT.
ELSE.
CLEAR li_po.
ENDIF.
ENDLOOP.
CHECK li_po IS BOUND. " Ignore missing files, missing translation is not a crime
LOOP AT lt_obj_list ASSIGNING <lv_lxe_object>.
lt_text_pairs_tmp = read_lxe_object_text_pair(
iv_s_lang = lv_main_lang
iv_t_lang = lv_target_lang
iv_custmnr = <lv_lxe_object>-custmnr
iv_objtype = <lv_lxe_object>-objtype
iv_objname = <lv_lxe_object>-objname
iv_read_only = abap_false ).
li_po->translate( CHANGING ct_text_pairs = lt_text_pairs_tmp ).
" TODO maybe optimize, check if values have changed
write_lxe_object_text_pair(
iv_s_lang = lv_main_lang
iv_t_lang = lv_target_lang
iv_custmnr = <lv_lxe_object>-custmnr
iv_objtype = <lv_lxe_object>-objtype
iv_objname = <lv_lxe_object>-objname
it_pcx_s1 = lt_text_pairs_tmp ).
ENDLOOP.
ENDLOOP.
ENDMETHOD.
METHOD deserialize_xml.
DATA:
lt_lxe_texts TYPE ty_lxe_translations,
ls_lxe_item LIKE LINE OF lt_lxe_texts,
lt_text_pairs_tmp LIKE ls_lxe_item-text_pairs.
mi_xml_in->read(
EXPORTING iv_name = iv_lxe_text_name
CHANGING cg_data = lt_lxe_texts ).
LOOP AT lt_lxe_texts INTO ls_lxe_item.
" Call Read first for buffer prefill
lt_text_pairs_tmp = read_lxe_object_text_pair(
iv_s_lang = ls_lxe_item-source_lang
iv_t_lang = ls_lxe_item-target_lang
iv_custmnr = ls_lxe_item-custmnr
iv_objtype = ls_lxe_item-objtype
iv_objname = ls_lxe_item-objname
iv_read_only = abap_false ).
"Call actual Write FM
write_lxe_object_text_pair(
iv_s_lang = ls_lxe_item-source_lang
iv_t_lang = ls_lxe_item-target_lang
iv_custmnr = ls_lxe_item-custmnr
iv_objtype = ls_lxe_item-objtype
iv_objname = ls_lxe_item-objname
it_pcx_s1 = ls_lxe_item-text_pairs ).
ENDLOOP.
ENDMETHOD.
METHOD detect_unsupported_languages.
check_langs_versus_installed(
EXPORTING
it_languages = it_languages
it_installed = get_installed_languages( )
IMPORTING
et_missfits = rt_unsupported_languages ).
ENDMETHOD.
METHOD get_installed_languages.
DATA:
lv_index TYPE i,
lv_langu TYPE sy-langu,
lv_laiso TYPE laiso,
lv_installed_languages TYPE string,
lt_language_filter TYPE zif_abapgit_environment=>ty_system_language_filter.
IF gt_installed_languages_cache IS INITIAL.
CALL FUNCTION ''SYSTEM_INSTALLED_LANGUAGES''
IMPORTING
languages = lv_installed_languages
EXCEPTIONS
sapgparam_error = 1 " Error requesting profile parameter
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''Fail to get system SYSTEM_INSTALLED_LANGUAGES'' ).
ENDIF.
lt_language_filter = zcl_abapgit_factory=>get_environment( )->get_system_language_filter( ).
DO strlen( lv_installed_languages ) TIMES.
lv_index = sy-index - 1.
lv_langu = lv_installed_languages+lv_index(1).
IF lv_langu NOT IN lt_language_filter.
CONTINUE.
ENDIF.
lv_laiso = langu_to_laiso_safe( lv_langu ).
APPEND lv_laiso TO gt_installed_languages_cache.
ENDDO.
ENDIF.
rt_languages = gt_installed_languages_cache.
ENDMETHOD.
METHOD get_lang_iso4.
DATA lv_lang_iso639 TYPE laiso.
DATA lv_country TYPE land1.
DATA lv_class TYPE string.
lv_class = ''CL_I18N_LANGUAGES''.
" cannot find a way to do this in Steampunk, so dynamic for now,
CALL METHOD (lv_class)=>sap2_to_iso639_1
EXPORTING
im_lang_sap2 = iv_src
IMPORTING
ex_lang_iso639 = lv_lang_iso639
ex_country = lv_country
EXCEPTIONS
no_assignment = 1
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Failed to convert [{ iv_src }] lang to iso639| ).
ENDIF.
CONCATENATE lv_lang_iso639 lv_country INTO rv_iso4.
ENDMETHOD.
METHOD get_lxe_object_list.
DATA lv_object_name TYPE trobj_name.
lv_object_name = iv_object_name.
CALL FUNCTION ''LXE_OBJ_EXPAND_TRANSPORT_OBJ''
EXPORTING
pgmid = ''R3TR''
object = iv_object_type
obj_name = lv_object_name
TABLES
ex_colob = rt_obj_list
EXCEPTIONS
unknown_object = 1
unknown_ta_type = 2
OTHERS = 3.
IF sy-subrc <> 0.
RETURN. " Ignore error and return empty list
ENDIF.
ENDMETHOD.
METHOD get_translation_languages.
" Returns a list of translation languages for serialization
" If the setting is initial, no translations shall be serialized
" If the setting is \`*\`, all installed system languages shall be serialized
" Else, the setting shall contain all languages to be serialized
DATA lv_main_lang_laiso TYPE laiso.
IF it_i18n_languages IS NOT INITIAL.
READ TABLE it_i18n_languages TRANSPORTING NO FIELDS WITH KEY table_line = ''*''.
IF sy-subrc = 0.
rt_languages = get_installed_languages( ).
ELSE.
check_langs_versus_installed(
EXPORTING
it_languages = it_i18n_languages
it_installed = get_installed_languages( )
IMPORTING
et_intersection = rt_languages ).
ENDIF.
ENDIF.
" Remove main language from translation languages
lv_main_lang_laiso = langu_to_laiso_safe( iv_main_language ).
DELETE rt_languages WHERE table_line = lv_main_lang_laiso.
ENDMETHOD.
METHOD iso4_to_iso2.
rv_laiso = iv_lxe_lang+0(2).
ENDMETHOD.
METHOD is_object_supported.
READ TABLE gt_supported_obj_types TRANSPORTING NO FIELDS WITH KEY table_line = iv_object_type.
rv_yes = boolc( sy-subrc = 0 ).
ENDMETHOD.
METHOD langu_to_laiso_safe.
zcl_abapgit_convert=>language_sap1_to_sap2(
EXPORTING
im_lang_sap1 = iv_langu
RECEIVING
re_lang_sap2 = rv_laiso
EXCEPTIONS
no_assignment = 1
OTHERS = 2 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Could not convert lang [{ iv_langu }] to ISO| ).
ENDIF.
ENDMETHOD.
METHOD read_lxe_object_text_pair.
DATA:
lv_error TYPE lxestring.
TRY.
CALL FUNCTION ''LXE_OBJ_TEXT_PAIR_READ''
EXPORTING
s_lang = iv_s_lang
t_lang = iv_t_lang
custmnr = iv_custmnr
objtype = iv_objtype
objname = iv_objname
read_only = iv_read_only
IMPORTING
err_msg = lv_error " doesn''t exist in NW <= 750
TABLES
lt_pcx_s1 = rt_text_pairs_tmp.
IF lv_error IS NOT INITIAL.
zcx_abapgit_exception=>raise( lv_error ).
ENDIF.
CATCH cx_sy_dyn_call_param_not_found.
CALL FUNCTION ''LXE_OBJ_TEXT_PAIR_READ''
EXPORTING
s_lang = iv_s_lang
t_lang = iv_t_lang
custmnr = iv_custmnr
objtype = iv_objtype
objname = iv_objname
read_only = iv_read_only
TABLES
lt_pcx_s1 = rt_text_pairs_tmp.
ENDTRY.
ENDMETHOD.
METHOD read_text_items.
DATA:
lt_obj_list TYPE lxe_tt_colob,
lv_main_lang TYPE lxeisolang,
ls_lxe_text_item LIKE LINE OF rt_text_items.
FIELD-SYMBOLS:
<lv_language> LIKE LINE OF mo_i18n_params->ms_params-translation_languages,
<lv_lxe_object> LIKE LINE OF lt_obj_list.
lt_obj_list = get_lxe_object_list(
iv_object_name = iv_object_name
iv_object_type = iv_object_type ).
IF lt_obj_list IS INITIAL.
RETURN.
ENDIF.
" Get list of languages that need to be serialized (already resolves * and installed languages)
lv_main_lang = get_lang_iso4( langu_to_laiso_safe( mo_i18n_params->ms_params-main_language ) ).
LOOP AT lt_obj_list ASSIGNING <lv_lxe_object>.
CLEAR ls_lxe_text_item.
ls_lxe_text_item-custmnr = <lv_lxe_object>-custmnr.
ls_lxe_text_item-objtype = <lv_lxe_object>-objtype.
ls_lxe_text_item-objname = <lv_lxe_object>-objname.
LOOP AT mo_i18n_params->ms_params-translation_languages ASSIGNING <lv_language>.
ls_lxe_text_item-source_lang = lv_main_lang.
ls_lxe_text_item-target_lang = get_lang_iso4( <lv_language> ).
IF ls_lxe_text_item-source_lang = ls_lxe_text_item-target_lang.
CONTINUE. " if source = target -> skip
ENDIF.
ls_lxe_text_item-text_pairs = read_lxe_object_text_pair(
iv_s_lang = ls_lxe_text_item-source_lang
iv_t_lang = ls_lxe_text_item-target_lang
iv_custmnr = ls_lxe_text_item-custmnr
iv_objtype = ls_lxe_text_item-objtype
iv_objname = ls_lxe_text_item-objname ).
IF ls_lxe_text_item-text_pairs IS NOT INITIAL.
APPEND ls_lxe_text_item TO rt_text_items.
ENDIF.
ENDLOOP.
ENDLOOP.
ENDMETHOD.
METHOD serialize_as_po.
DATA lt_lxe_texts TYPE ty_lxe_translations.
DATA lo_po_file TYPE REF TO zcl_abapgit_po_file.
DATA lv_lang LIKE LINE OF mo_i18n_params->ms_params-translation_languages.
FIELD-SYMBOLS <ls_translation> LIKE LINE OF lt_lxe_texts.
lt_lxe_texts = read_text_items(
iv_object_name = iv_object_name
iv_object_type = iv_object_type ).
LOOP AT mo_i18n_params->ms_params-translation_languages INTO lv_lang.
lv_lang = to_lower( lv_lang ).
CREATE OBJECT lo_po_file
EXPORTING
iv_lang = lv_lang.
LOOP AT lt_lxe_texts ASSIGNING <ls_translation>.
IF iso4_to_iso2( <ls_translation>-target_lang ) = lv_lang.
lo_po_file->push_text_pairs(
iv_objtype = <ls_translation>-objtype
iv_objname = <ls_translation>-objname
it_text_pairs = <ls_translation>-text_pairs ).
ENDIF.
ENDLOOP.
mo_files->add_i18n_file( lo_po_file ).
ENDLOOP.
ENDMETHOD.
METHOD serialize_xml.
DATA lt_lxe_texts TYPE ty_lxe_translations.
lt_lxe_texts = read_text_items(
iv_object_name = iv_object_name
iv_object_type = iv_object_type ).
IF lines( lt_lxe_texts ) > 0.
mi_xml_out->add(
iv_name = iv_lxe_text_name
ig_data = lt_lxe_texts ).
ENDIF.
ENDMETHOD.
METHOD write_lxe_object_text_pair.
DATA:
lv_error TYPE lxestring.
TRY.
CALL FUNCTION ''LXE_OBJ_TEXT_PAIR_WRITE''
EXPORTING
s_lang = iv_s_lang
t_lang = iv_t_lang
custmnr = iv_custmnr
objtype = iv_objtype
objname = iv_objname
IMPORTING
err_msg = lv_error " doesn''t exist in NW <= 750
TABLES
lt_pcx_s1 = it_pcx_s1.
IF lv_error IS NOT INITIAL.
zcx_abapgit_exception=>raise( lv_error ).
ENDIF.
CATCH cx_sy_dyn_call_param_not_found.
CALL FUNCTION ''LXE_OBJ_TEXT_PAIR_WRITE''
EXPORTING
s_lang = iv_s_lang
t_lang = iv_t_lang
custmnr = iv_custmnr
objtype = iv_objtype
objname = iv_objname
TABLES
lt_pcx_s1 = it_pcx_s1.
ENDTRY.
ENDMETHOD.
METHOD zif_abapgit_lxe_texts~deserialize.
IF is_object_supported( iv_object_type ) = abap_false.
RETURN.
ENDIF.
mo_i18n_params = io_i18n_params.
mi_xml_in = ii_xml.
mo_files = io_files.
" MAYBE TODO: see comment in serialize
IF 1 = 1.
deserialize_from_po(
iv_object_type = iv_object_type
iv_object_name = iv_object_name ).
ELSE.
deserialize_xml(
iv_object_type = iv_object_type
iv_object_name = iv_object_name ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_lxe_texts~serialize.
IF is_object_supported( iv_object_type ) = abap_false.
RETURN.
ENDIF.
mo_i18n_params = io_i18n_params.
mi_xml_out = ii_xml.
mo_files = io_files.
" MAYBE TODO
" if other formats are needed, including the old in-XML approach
" here is the place to implement it. Supposed architecture:
" I18N_PARAMS should contain an option which format to use
" The option should be originally maintained in dot_abapgit structures (e.g. \`translation_storage_format\`)
" Consequently it comes here
" The serialize method can read it and call a corresponding submethod,
" e.g. serialize_xml or serialize_as_po or ...
" both ii_xml and io_files are accessible intentionally to enable both XML based or file based formats
" access to json can be easily added too,
" or maybe (maybe) some kind of zif_ag_object_ctl with all DAO instead
IF 1 = 1.
serialize_as_po(
iv_object_type = iv_object_type
iv_object_name = iv_object_name ).
ELSE.
serialize_xml(
iv_object_type = iv_object_type
iv_object_name = iv_object_name ).
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_PO_FILE ', 'CLASS zcl_abapgit_po_file DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES zif_abapgit_i18n_file.
METHODS constructor
IMPORTING
iv_lang TYPE laiso.
METHODS parse
IMPORTING
iv_xdata TYPE xstring
RAISING
zcx_abapgit_exception.
METHODS push_text_pairs
IMPORTING
iv_objtype TYPE trobjtype
iv_objname TYPE lxeobjname
it_text_pairs TYPE zif_abapgit_lxe_texts=>ty_text_pairs
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS:
BEGIN OF c_comment,
translator TYPE i VALUE 1,
extracted TYPE i VALUE 2,
reference TYPE i VALUE 3,
flag TYPE i VALUE 4,
previous TYPE i VALUE 5,
END OF c_comment.
TYPES:
BEGIN OF ty_comment,
kind TYPE i,
text TYPE string,
END OF ty_comment.
TYPES:
BEGIN OF ty_msg_pair,
source TYPE string,
target TYPE string,
comments TYPE STANDARD TABLE OF ty_comment WITH KEY kind text,
END OF ty_msg_pair.
DATA mv_lang TYPE laiso.
DATA mt_pairs TYPE SORTED TABLE OF ty_msg_pair WITH UNIQUE KEY source.
METHODS build_po_body
RETURNING
VALUE(ro_buf) TYPE REF TO zcl_abapgit_string_buffer.
METHODS build_po_head
RETURNING
VALUE(ro_buf) TYPE REF TO zcl_abapgit_string_buffer.
METHODS parse_po
IMPORTING
iv_data TYPE string
RAISING
zcx_abapgit_exception.
CLASS-METHODS get_comment_marker
IMPORTING
iv_comment_kind TYPE i
RETURNING
VALUE(rv_marker) TYPE string.
CLASS-METHODS quote
IMPORTING
iv_text TYPE string
RETURNING
VALUE(rv_text) TYPE string.
CLASS-METHODS unquote
IMPORTING
iv_text TYPE string
RETURNING
VALUE(rv_text) TYPE string
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_po_file IMPLEMENTATION.
METHOD build_po_body.
FIELD-SYMBOLS <ls_pair> LIKE LINE OF mt_pairs.
FIELD-SYMBOLS <ls_comment> LIKE LINE OF <ls_pair>-comments.
CREATE OBJECT ro_buf.
LOOP AT mt_pairs ASSIGNING <ls_pair>.
IF sy-tabix <> 1.
ro_buf->add( '''' ).
ENDIF.
" TODO integrate translator comments ?
SORT <ls_pair>-comments BY kind.
LOOP AT <ls_pair>-comments ASSIGNING <ls_comment>.
ro_buf->add( |#{ get_comment_marker( <ls_comment>-kind ) } { <ls_comment>-text }| ).
ENDLOOP.
ro_buf->add( |msgid { quote( <ls_pair>-source ) }| ).
ro_buf->add( |msgstr { quote( <ls_pair>-target ) }| ).
ENDLOOP.
ENDMETHOD.
METHOD build_po_head.
CREATE OBJECT ro_buf.
" TODO, more headers ? sample: https://www.gnu.org/software/trans-coord/manual/gnun/html_node/PO-Header.html
" TODO, does \\n really necessary ? check editors support for non-\\n
" TODO, should be unfuzzy for final version, and potentially should have more fields
ro_buf->add( ''#, fuzzy'' ).
ro_buf->add( ''msgid ""'' ).
ro_buf->add( ''msgstr ""'' ).
ro_buf->add( ''"MIME-Version: 1.0\\n"'' ).
ro_buf->add( ''"Content-Type: text/plain; charset=UTF-8\\n"'' ).
ro_buf->add( ''"Content-Transfer-Encoding: 8bit\\n"'' ).
ro_buf->add( '''' ).
ENDMETHOD.
METHOD constructor.
mv_lang = to_lower( iv_lang ).
ENDMETHOD.
METHOD get_comment_marker.
CASE iv_comment_kind.
WHEN c_comment-translator.
rv_marker = ''''.
WHEN c_comment-extracted.
rv_marker = ''.''.
WHEN c_comment-reference.
rv_marker = '':''.
WHEN c_comment-flag.
rv_marker = '',''.
WHEN c_comment-previous.
rv_marker = ''|''.
ENDCASE.
ENDMETHOD.
METHOD parse.
DATA lv_xdata TYPE xstring.
DATA lv_data TYPE string.
IF xstrlen( iv_xdata ) > 3 AND iv_xdata(3) = cl_abap_char_utilities=>byte_order_mark_utf8.
lv_xdata = iv_xdata+3.
ELSE.
lv_xdata = iv_xdata.
ENDIF.
lv_data = zcl_abapgit_convert=>xstring_to_string_utf8( lv_xdata ).
parse_po( lv_data ).
ENDMETHOD.
METHOD parse_po.
CONSTANTS:
BEGIN OF c_state,
wait_id TYPE i VALUE 0,
wait_str TYPE i VALUE 1,
wait_eos TYPE i VALUE 2,
" TODO msgctx
END OF c_state.
DATA lv_state TYPE i VALUE c_state-wait_id.
DATA lt_lines TYPE string_table.
DATA ls_pair LIKE LINE OF mt_pairs.
DATA lv_whitespace TYPE c LENGTH 2.
FIELD-SYMBOLS <lv_i> TYPE string.
lv_whitespace = \` \` && cl_abap_char_utilities=>horizontal_tab.
SPLIT iv_data AT cl_abap_char_utilities=>newline INTO TABLE lt_lines.
APPEND '''' TO lt_lines. " terminator
LOOP AT lt_lines ASSIGNING <lv_i>.
IF lv_state = c_state-wait_eos.
IF strlen( <lv_i> ) >= 1 AND <lv_i>+0(1) = ''"''.
ls_pair-target = ls_pair-target && unquote( <lv_i> ).
CONTINUE.
ELSE.
lv_state = c_state-wait_id.
IF ls_pair-source IS NOT INITIAL. " skip header entry for now
INSERT ls_pair INTO TABLE mt_pairs. " Sorted, duplicates will not be inserted
ENDIF.
CLEAR ls_pair.
ENDIF.
ENDIF.
CASE lv_state.
WHEN c_state-wait_id.
IF <lv_i> IS INITIAL
OR <lv_i>+0(1) = ''#'' " TODO, potentially parse comments in future, to re-integrate
OR <lv_i> CO lv_whitespace.
CONTINUE.
ENDIF.
IF strlen( <lv_i> ) >= 6 AND <lv_i>+0(6) = \`msgid \`. " w/trailing space
ls_pair-source = unquote( substring(
val = <lv_i>
off = 6 ) ).
lv_state = c_state-wait_str.
ELSE.
zcx_abapgit_exception=>raise( ''PO file format error: expected msgid'' ).
ENDIF.
WHEN c_state-wait_str.
IF strlen( <lv_i> ) >= 7 AND <lv_i>+0(7) = \`msgstr \`. " w/trailing space
ls_pair-target = unquote( substring(
val = <lv_i>
off = 7 ) ).
lv_state = c_state-wait_eos.
ELSE.
zcx_abapgit_exception=>raise( ''PO file format error: expected msgstr'' ).
ENDIF.
ENDCASE.
ENDLOOP.
ENDMETHOD.
METHOD push_text_pairs.
DATA ls_out LIKE LINE OF mt_pairs.
FIELD-SYMBOLS <ls_in> LIKE LINE OF it_text_pairs.
FIELD-SYMBOLS <ls_out> LIKE LINE OF mt_pairs.
DATA ls_comment LIKE LINE OF <ls_out>-comments.
LOOP AT it_text_pairs ASSIGNING <ls_in>.
CHECK <ls_in>-s_text IS NOT INITIAL.
READ TABLE mt_pairs ASSIGNING <ls_out> WITH KEY source = <ls_in>-s_text.
IF sy-subrc <> 0.
ls_out-source = <ls_in>-s_text.
INSERT ls_out INTO TABLE mt_pairs ASSIGNING <ls_out>.
ASSERT sy-subrc = 0.
ENDIF.
IF <ls_out>-target IS INITIAL. " For a case of orig text duplication
<ls_out>-target = <ls_in>-t_text.
ENDIF.
ls_comment-kind = c_comment-reference.
ls_comment-text = condense( |{ iv_objtype }/{ iv_objname }/{ <ls_in>-textkey }| )
&& |, maxlen={ <ls_in>-unitmlt }|.
APPEND ls_comment TO <ls_out>-comments.
ASSERT sy-subrc = 0.
ENDLOOP.
ENDMETHOD.
METHOD quote.
rv_text = ''"'' && replace(
val = iv_text
sub = ''"''
with = ''\\"''
occ = 0 ) && ''"''.
ENDMETHOD.
METHOD unquote.
DATA lv_len TYPE i.
DATA lv_prev_char TYPE i.
rv_text = iv_text.
SHIFT rv_text RIGHT DELETING TRAILING space. " Measure perf ? Could be slowish, maybe use find
SHIFT rv_text LEFT DELETING LEADING space.
lv_len = strlen( rv_text ).
IF lv_len < 2.
zcx_abapgit_exception=>raise( ''PO file format error: bad quoting'' ).
ENDIF.
lv_prev_char = lv_len - 1.
IF rv_text+0(1) <> ''"'' OR rv_text+lv_prev_char(1) <> ''"''.
zcx_abapgit_exception=>raise( ''PO file format error: bad quoting'' ).
ENDIF.
lv_prev_char = lv_prev_char - 1.
IF lv_len >= 3 AND rv_text+lv_prev_char(1) = ''\\''. " escaped quote
zcx_abapgit_exception=>raise( ''PO file format error: bad quoting'' ).
ENDIF.
rv_text = substring(
val = rv_text
off = 1
len = lv_len - 2 ).
rv_text = replace(
val = rv_text
sub = ''\\"''
with = ''"''
occ = 0 ).
rv_text = replace(
val = rv_text
sub = ''\\n''
with = cl_abap_char_utilities=>newline
occ = 0 ).
" TODO: theoretically there can be unescaped " - is it a problem ? check standard
ENDMETHOD.
METHOD zif_abapgit_i18n_file~ext.
rv_ext = ''po''.
ENDMETHOD.
METHOD zif_abapgit_i18n_file~lang.
rv_lang = mv_lang.
ENDMETHOD.
METHOD zif_abapgit_i18n_file~render.
DATA lv_str TYPE string.
lv_str = build_po_body( )->join_w_newline_and_flush( ).
IF lv_str IS NOT INITIAL.
lv_str = build_po_head( )->join_w_newline_and_flush( )
&& cl_abap_char_utilities=>newline
&& lv_str
&& cl_abap_char_utilities=>newline. " Trailing LF
rv_data = zcl_abapgit_convert=>string_to_xstring_utf8_bom( lv_str ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_i18n_file~translate.
FIELD-SYMBOLS <ls_lxe> LIKE LINE OF ct_text_pairs.
FIELD-SYMBOLS <ls_tr> LIKE LINE OF mt_pairs.
DATA lv_idx TYPE i.
LOOP AT ct_text_pairs ASSIGNING <ls_lxe>.
CHECK <ls_lxe>-s_text IS NOT INITIAL.
lv_idx = sy-tabix.
READ TABLE mt_pairs ASSIGNING <ls_tr> WITH KEY source = <ls_lxe>-s_text.
IF sy-subrc = 0 AND <ls_tr>-target IS NOT INITIAL.
<ls_lxe>-t_text = <ls_tr>-target.
ELSE.
DELETE ct_text_pairs INDEX lv_idx. " Otherwise error in LXE FMs for empty translation
ENDIF.
ENDLOOP.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_PROPERTIES_FILE ', 'CLASS zcl_abapgit_properties_file DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES zif_abapgit_i18n_file.
CONSTANTS:
c_properties_feature TYPE string VALUE ''TRANSL''.
METHODS constructor
IMPORTING
iv_lang TYPE laiso.
METHODS parse
IMPORTING
iv_xdata TYPE xstring
RAISING
zcx_abapgit_exception.
METHODS push_text_pairs
IMPORTING it_translation TYPE string_table.
METHODS get_translations
EXPORTING
ev_data TYPE data
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
DATA mv_lang TYPE laiso.
DATA mt_translation TYPE string_table.
ENDCLASS.
CLASS zcl_abapgit_properties_file IMPLEMENTATION.
METHOD constructor.
mv_lang = to_upper( iv_lang ).
ENDMETHOD.
METHOD get_translations.
DATA:
lv_translation TYPE string,
lo_ajson TYPE REF TO zif_abapgit_ajson,
lo_json_path TYPE REF TO zcl_abapgit_json_path,
lx_exception TYPE REF TO cx_static_check.
CREATE OBJECT lo_json_path.
TRY.
lv_translation = lo_json_path->deserialize( mt_translation ).
lo_ajson = zcl_abapgit_ajson=>parse( lv_translation
)->map( zcl_abapgit_ajson_mapping=>create_to_snake_case( ) ).
lo_ajson->to_abap( IMPORTING ev_container = ev_data ).
CATCH cx_static_check INTO lx_exception.
zcx_abapgit_exception=>raise_with_text( lx_exception ).
ENDTRY.
ENDMETHOD.
METHOD parse.
DATA lv_data TYPE string.
lv_data = zcl_abapgit_convert=>xstring_to_string_utf8( iv_xdata ).
SPLIT lv_data AT cl_abap_char_utilities=>newline INTO TABLE mt_translation.
ENDMETHOD.
METHOD push_text_pairs.
mt_translation = it_translation.
ENDMETHOD.
METHOD zif_abapgit_i18n_file~ext.
rv_ext = ''properties''.
ENDMETHOD.
METHOD zif_abapgit_i18n_file~lang.
rv_lang = mv_lang.
ENDMETHOD.
METHOD zif_abapgit_i18n_file~render.
DATA lv_translation TYPE string.
lv_translation = concat_lines_of( table = mt_translation
sep = cl_abap_char_utilities=>newline ) && cl_abap_char_utilities=>newline.
rv_data = zcl_abapgit_convert=>string_to_xstring_utf8( lv_translation ).
ENDMETHOD.
METHOD zif_abapgit_i18n_file~translate.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_SOTR_HANDLER ', 'CLASS zcl_abapgit_sotr_handler DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
TYPES:
BEGIN OF ty_sotr,
header TYPE sotr_head,
entries TYPE sotr_text_tt,
END OF ty_sotr .
TYPES:
ty_sotr_tt TYPE STANDARD TABLE OF ty_sotr WITH DEFAULT KEY .
TYPES:
ty_sotr_use_tt TYPE STANDARD TABLE OF sotr_use WITH DEFAULT KEY .
CLASS-METHODS read_sotr
IMPORTING
!iv_pgmid TYPE pgmid DEFAULT ''R3TR''
!iv_object TYPE trobjtype
!iv_obj_name TYPE csequence
!io_xml TYPE REF TO zif_abapgit_xml_output OPTIONAL
!io_i18n_params TYPE REF TO zcl_abapgit_i18n_params
EXPORTING
!et_sotr TYPE ty_sotr_tt
!et_sotr_use TYPE ty_sotr_use_tt
RAISING
zcx_abapgit_exception .
CLASS-METHODS create_sotr
IMPORTING
!iv_package TYPE devclass
!io_xml TYPE REF TO zif_abapgit_xml_input
RAISING
zcx_abapgit_exception .
CLASS-METHODS create_sotr_from_data
IMPORTING
!iv_package TYPE devclass
!it_sotr TYPE ty_sotr_tt
!it_sotr_use TYPE ty_sotr_use_tt
RAISING
zcx_abapgit_exception .
CLASS-METHODS delete_sotr
IMPORTING
!iv_pgmid TYPE pgmid DEFAULT ''R3TR''
!iv_object TYPE trobjtype
!iv_obj_name TYPE csequence
RAISING
zcx_abapgit_exception .
CLASS-METHODS delete_sotr_package
IMPORTING
!iv_package TYPE devclass
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
CLASS-METHODS get_sotr_usage
IMPORTING
!iv_pgmid TYPE pgmid
!iv_object TYPE trobjtype
!iv_obj_name TYPE csequence
RETURNING
VALUE(rt_sotr_use) TYPE ty_sotr_use_tt.
CLASS-METHODS get_sotr_4_concept
IMPORTING
!iv_concept TYPE sotr_conc
RETURNING
VALUE(rs_sotr) TYPE ty_sotr .
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_sotr_handler IMPLEMENTATION.
METHOD create_sotr.
DATA:
lt_sotr TYPE ty_sotr_tt,
lt_sotr_use TYPE ty_sotr_use_tt.
io_xml->read( EXPORTING iv_name = ''SOTR''
CHANGING cg_data = lt_sotr ).
io_xml->read( EXPORTING iv_name = ''SOTR_USE''
CHANGING cg_data = lt_sotr_use ).
create_sotr_from_data(
iv_package = iv_package
it_sotr = lt_sotr
it_sotr_use = lt_sotr_use ).
ENDMETHOD.
METHOD create_sotr_from_data.
DATA:
lt_objects TYPE sotr_objects,
ls_paket TYPE sotr_pack,
lv_alias TYPE sotr_head-alias_name,
lv_object LIKE LINE OF lt_objects.
FIELD-SYMBOLS: <ls_sotr> LIKE LINE OF it_sotr.
LOOP AT it_sotr ASSIGNING <ls_sotr>.
CALL FUNCTION ''SOTR_OBJECT_GET_OBJECTS''
EXPORTING
object_vector = <ls_sotr>-header-objid_vec
IMPORTING
objects = lt_objects
EXCEPTIONS
object_not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
READ TABLE lt_objects INDEX 1 INTO lv_object.
ASSERT sy-subrc = 0.
ls_paket-paket = iv_package.
" Replace package in alias with new package
lv_alias = <ls_sotr>-header-alias_name.
IF lv_alias CS ''/''.
lv_alias = iv_package && lv_alias+sy-fdpos(*).
ENDIF.
CALL FUNCTION ''SOTR_CREATE_CONCEPT''
EXPORTING
paket = ls_paket
crea_lan = <ls_sotr>-header-crea_lan
alias_name = lv_alias
object = lv_object
entries = <ls_sotr>-entries
concept_default = <ls_sotr>-header-concept
EXCEPTIONS
package_missing = 1
crea_lan_missing = 2
object_missing = 3
paket_does_not_exist = 4
alias_already_exist = 5
object_type_not_found = 6
langu_missing = 7
identical_context_not_allowed = 8
text_too_long = 9
error_in_update = 10
no_master_langu = 11
error_in_concept_id = 12
alias_not_allowed = 13
tadir_entry_creation_failed = 14
internal_error = 15
error_in_correction = 16
user_cancelled = 17
no_entry_found = 18
OTHERS = 19.
IF sy-subrc <> 0 AND sy-subrc <> 5.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDLOOP.
CALL FUNCTION ''SOTR_USAGE_MODIFY''
EXPORTING
sotr_usage = it_sotr_use.
ENDMETHOD.
METHOD delete_sotr.
DATA lt_sotr_use TYPE ty_sotr_use_tt.
FIELD-SYMBOLS <ls_sotr_use> LIKE LINE OF lt_sotr_use.
lt_sotr_use = get_sotr_usage( iv_pgmid = iv_pgmid
iv_object = iv_object
iv_obj_name = iv_obj_name ).
" Remove any usage to ensure deletion, see function module BTFR_CHECK
DELETE sotr_use FROM TABLE lt_sotr_use ##SUBRC_OK.
LOOP AT lt_sotr_use ASSIGNING <ls_sotr_use> WHERE concept IS NOT INITIAL.
CALL FUNCTION ''SOTR_DELETE_CONCEPT''
EXPORTING
concept = <ls_sotr_use>-concept
EXCEPTIONS
no_entry_found = 1
text_not_found = 2
invalid_package = 3
text_not_changeable = 4
text_enqueued = 5
no_correction = 6
parameter_error = 7
OTHERS = 8.
IF sy-subrc > 2.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD delete_sotr_package.
DATA lt_sotr_head TYPE STANDARD TABLE OF sotr_head WITH DEFAULT KEY.
DATA lv_obj_name TYPE tadir-obj_name.
FIELD-SYMBOLS <ls_sotr_head> LIKE LINE OF lt_sotr_head.
SELECT * FROM sotr_head INTO TABLE lt_sotr_head WHERE paket = iv_package ORDER BY PRIMARY KEY.
LOOP AT lt_sotr_head ASSIGNING <ls_sotr_head> WHERE concept IS NOT INITIAL.
CALL FUNCTION ''SOTR_DELETE_CONCEPT''
EXPORTING
concept = <ls_sotr_head>-concept
EXCEPTIONS
no_entry_found = 1
text_not_found = 2
invalid_package = 3
text_not_changeable = 4
text_enqueued = 5
no_correction = 6
parameter_error = 7
OTHERS = 8.
IF sy-subrc > 2.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDLOOP.
" Nothing left, then delete SOTR from TADIR
SELECT * FROM sotr_head INTO TABLE lt_sotr_head WHERE paket = iv_package ORDER BY PRIMARY KEY.
IF sy-subrc <> 0.
SELECT SINGLE obj_name FROM tadir INTO lv_obj_name
WHERE pgmid = ''R3TR'' AND object = ''SOTR'' AND obj_name = iv_package.
IF sy-subrc = 0.
CALL FUNCTION ''TR_TADIR_INTERFACE''
EXPORTING
wi_delete_tadir_entry = abap_true
wi_test_modus = abap_false
wi_tadir_pgmid = ''R3TR''
wi_tadir_object = ''SOTR''
wi_tadir_obj_name = lv_obj_name
EXCEPTIONS
OTHERS = 1 ##FM_SUBRC_OK.
IF zcl_abapgit_factory=>get_sap_package( iv_package )->are_changes_recorded_in_tr_req( ) = abap_true.
zcl_abapgit_factory=>get_cts_api( )->insert_transport_object(
iv_object = ''SOTR''
iv_obj_name = lv_obj_name
iv_package = iv_package
iv_mode = zif_abapgit_cts_api=>c_transport_mode-delete ).
ENDIF.
ENDIF.
ENDIF.
ENDMETHOD.
METHOD get_sotr_4_concept.
DATA: ls_header TYPE ty_sotr-header,
lv_paket LIKE ls_header-alias_name,
lt_entries TYPE ty_sotr-entries.
FIELD-SYMBOLS: <ls_entry> LIKE LINE OF lt_entries.
CALL FUNCTION ''SOTR_GET_CONCEPT''
EXPORTING
concept = iv_concept
IMPORTING
header = ls_header
TABLES
entries = lt_entries
EXCEPTIONS
no_entry_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
RETURN.
ENDIF.
" If alias contains package, remove it
lv_paket = ls_header-paket && ''/''.
IF ls_header-alias_name CS lv_paket.
ls_header-alias_name = replace(
val = ls_header-alias_name
sub = lv_paket
with = ''/''
occ = 1 ).
ENDIF.
CLEAR: ls_header-paket,
ls_header-crea_name,
ls_header-crea_tstut,
ls_header-chan_name,
ls_header-chan_tstut,
ls_header-system_id.
LOOP AT lt_entries ASSIGNING <ls_entry>.
CLEAR: <ls_entry>-version,
<ls_entry>-crea_name,
<ls_entry>-crea_tstut,
<ls_entry>-chan_name,
<ls_entry>-chan_tstut.
ENDLOOP.
rs_sotr-header = ls_header.
rs_sotr-entries = lt_entries.
ENDMETHOD.
METHOD get_sotr_usage.
DATA: lv_obj_name TYPE trobj_name.
lv_obj_name = iv_obj_name.
" Objects with multiple components
IF iv_pgmid = ''LIMU'' AND ( iv_object CP ''WDY*'' OR iv_object = ''WAPP'' ).
lv_obj_name+30 = ''%''.
ENDIF.
CALL FUNCTION ''SOTR_USAGE_READ''
EXPORTING
pgmid = iv_pgmid
object = iv_object
obj_name = lv_obj_name
IMPORTING
sotr_usage = rt_sotr_use
EXCEPTIONS
no_entry_found = 1
error_in_pgmid = 2
OTHERS = 3.
IF sy-subrc = 0.
SORT rt_sotr_use.
ENDIF.
ENDMETHOD.
METHOD read_sotr.
FIELD-SYMBOLS <ls_sotr_use> LIKE LINE OF et_sotr_use.
DATA: lv_sotr TYPE ty_sotr,
lt_language_filter TYPE zif_abapgit_environment=>ty_system_language_filter.
" OTR short text usage: see TABLE BTFR_OBJ_IDS
" LIMU: CPUB, WAPP, WDYC, WDYD, WDYV
" R3TR: ENHC, ENHO, ENHS, ENSC, SCGR, SMIF, WDCA, WDCC, WEBI, WEBS
et_sotr_use = get_sotr_usage( iv_pgmid = iv_pgmid
iv_object = iv_object
iv_obj_name = iv_obj_name ).
LOOP AT et_sotr_use ASSIGNING <ls_sotr_use> WHERE concept IS NOT INITIAL.
lv_sotr = get_sotr_4_concept( <ls_sotr_use>-concept ).
IF io_xml IS BOUND AND io_i18n_params->ms_params-main_language_only = abap_true.
DELETE lv_sotr-entries WHERE langu <> io_i18n_params->ms_params-main_language.
CHECK lv_sotr-entries IS NOT INITIAL.
ENDIF.
lt_language_filter = io_i18n_params->build_language_filter( ).
DELETE lv_sotr-entries WHERE NOT langu IN lt_language_filter
AND langu <> io_i18n_params->ms_params-main_language.
CHECK lv_sotr-entries IS NOT INITIAL.
INSERT lv_sotr INTO TABLE et_sotr.
ENDLOOP.
IF io_xml IS BOUND.
io_xml->add( iv_name = ''SOTR''
ig_data = et_sotr ).
io_xml->add( iv_name = ''SOTR_USE''
ig_data = et_sotr_use ).
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_SOTS_HANDLER ', 'CLASS zcl_abapgit_sots_handler DEFINITION
PUBLIC
FINAL
CREATE PUBLIC.
PUBLIC SECTION.
TYPES:
BEGIN OF ty_sots,
header TYPE sotr_headu,
entries TYPE sotr_textl_tt,
END OF ty_sots.
TYPES:
ty_sots_tt TYPE STANDARD TABLE OF ty_sots WITH DEFAULT KEY.
TYPES:
ty_sots_use_tt TYPE STANDARD TABLE OF sotr_useu WITH DEFAULT KEY.
CLASS-METHODS read_sots
IMPORTING
!iv_pgmid TYPE pgmid DEFAULT ''R3TR''
!iv_object TYPE trobjtype
!iv_obj_name TYPE csequence
!io_xml TYPE REF TO zif_abapgit_xml_output OPTIONAL
!io_i18n_params TYPE REF TO zcl_abapgit_i18n_params
EXPORTING
!et_sots TYPE ty_sots_tt
!et_sots_use TYPE ty_sots_use_tt
RAISING
zcx_abapgit_exception.
CLASS-METHODS create_sots
IMPORTING
!iv_package TYPE devclass
!io_xml TYPE REF TO zif_abapgit_xml_input OPTIONAL
RAISING
zcx_abapgit_exception.
CLASS-METHODS create_sots_from_data
IMPORTING
!iv_package TYPE devclass
!it_sots TYPE ty_sots_tt OPTIONAL
!it_sots_use TYPE ty_sots_use_tt OPTIONAL
RAISING
zcx_abapgit_exception.
CLASS-METHODS delete_sots
IMPORTING
!iv_pgmid TYPE pgmid DEFAULT ''R3TR''
!iv_object TYPE trobjtype
!iv_obj_name TYPE csequence
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
CLASS-METHODS get_sots_usage
IMPORTING
!iv_pgmid TYPE pgmid
!iv_object TYPE trobjtype
!iv_obj_name TYPE csequence
RETURNING
VALUE(rt_sots_use) TYPE ty_sots_use_tt.
CLASS-METHODS get_sots_4_concept
IMPORTING
!iv_concept TYPE sotr_conc
RETURNING
VALUE(rs_sots) TYPE ty_sots.
PRIVATE SECTION.
ENDCLASS.
CLASS ZCL_ABAPGIT_SOTS_HANDLER IMPLEMENTATION.
METHOD create_sots.
DATA:
lt_sots TYPE ty_sots_tt,
lt_sots_use TYPE ty_sots_use_tt.
io_xml->read( EXPORTING iv_name = ''SOTS''
CHANGING cg_data = lt_sots ).
io_xml->read( EXPORTING iv_name = ''SOTS_USE''
CHANGING cg_data = lt_sots_use ).
create_sots_from_data(
iv_package = iv_package
it_sots = lt_sots
it_sots_use = lt_sots_use ).
ENDMETHOD.
METHOD create_sots_from_data.
DATA:
lt_objects TYPE sotr_objects,
lv_object LIKE LINE OF lt_objects,
lv_subrc TYPE sy-subrc,
ls_header TYPE btfr_head,
lt_text_tab TYPE sotr_text_tt,
lt_string_tab TYPE sotr_textl_tt,
ls_entry LIKE LINE OF lt_string_tab,
lv_concept TYPE sotr_conc,
lv_concept_default TYPE sotr_conc.
FIELD-SYMBOLS <ls_sots> LIKE LINE OF it_sots.
LOOP AT it_sots ASSIGNING <ls_sots>.
CALL FUNCTION ''SOTR_OBJECT_GET_OBJECTS''
EXPORTING
object_vector = <ls_sots>-header-objid_vec
IMPORTING
objects = lt_objects
EXCEPTIONS
object_not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
READ TABLE lt_objects INDEX 1 INTO lv_object.
ASSERT sy-subrc = 0.
" Reimplementation of SOTR_STRING_CREATE_CONCEPT because we can''t supply
" concept and it would then be generated.
LOOP AT <ls_sots>-entries INTO ls_entry.
ls_entry-langu = <ls_sots>-header-crea_lan.
ls_entry-concept = <ls_sots>-header-concept.
INSERT ls_entry INTO TABLE lt_string_tab.
ENDLOOP.
MOVE-CORRESPONDING <ls_sots>-header TO ls_header.
ls_header-paket = iv_package.
lv_concept = <ls_sots>-header-concept.
PERFORM btfr_create IN PROGRAM saplsotr_db_string
USING lv_object
sy-langu
abap_false
abap_true
CHANGING lt_text_tab
lt_string_tab
ls_header
lv_concept
lv_concept_default
lv_subrc.
CASE lv_subrc.
WHEN 1.
MESSAGE e100(sotr_mess) INTO zcx_abapgit_exception=>null.
WHEN 2.
MESSAGE e101(sotr_mess) INTO zcx_abapgit_exception=>null.
WHEN 3.
MESSAGE i305(sotr_mess) INTO zcx_abapgit_exception=>null.
WHEN 4.
" The concept will be created in the non-original system (not an error)
WHEN 5.
MESSAGE e504(sotr_mess) INTO zcx_abapgit_exception=>null.
WHEN 6.
MESSAGE e035(sotr_mess) INTO zcx_abapgit_exception=>null.
WHEN 7.
MESSAGE e170(sotr_mess) INTO zcx_abapgit_exception=>null.
WHEN 9.
MESSAGE e102(sotr_mess) INTO zcx_abapgit_exception=>null.
ENDCASE.
IF lv_subrc <> 0 AND lv_subrc <> 4.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDLOOP.
CALL FUNCTION ''SOTR_USAGE_STRING_MODIFY''
EXPORTING
sotr_usage = it_sots_use.
ENDMETHOD.
METHOD delete_sots.
DATA lt_sots_use TYPE ty_sots_use_tt.
FIELD-SYMBOLS <ls_sots_use> LIKE LINE OF lt_sots_use.
lt_sots_use = get_sots_usage( iv_pgmid = iv_pgmid
iv_object = iv_object
iv_obj_name = iv_obj_name ).
" Remove any usage to ensure deletion, see function module BTFR_CHECK
DELETE sotr_useu FROM TABLE lt_sots_use ##SUBRC_OK.
LOOP AT lt_sots_use ASSIGNING <ls_sots_use> WHERE concept IS NOT INITIAL.
CALL FUNCTION ''BTFR_DELETE_SINGLE_TEXT''
EXPORTING
concept = <ls_sots_use>-concept
flag_string = abap_true
EXCEPTIONS
text_not_found = 1 "ok
invalid_package = 3
text_not_changeable = 4
text_enqueued = 5
no_correction = 6
parameter_error = 7
OTHERS = 8.
IF sy-subrc > 2.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD get_sots_4_concept.
DATA: ls_header TYPE ty_sots-header,
lt_entries TYPE ty_sots-entries.
FIELD-SYMBOLS <ls_entry> LIKE LINE OF lt_entries.
CALL FUNCTION ''SOTR_STRING_GET_CONCEPT''
EXPORTING
concept = iv_concept
IMPORTING
header = ls_header
entries = lt_entries
EXCEPTIONS
no_entry_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
RETURN.
ENDIF.
CLEAR: ls_header-paket,
ls_header-crea_name,
ls_header-crea_tstut,
ls_header-chan_name,
ls_header-chan_tstut,
ls_header-system_id.
LOOP AT lt_entries ASSIGNING <ls_entry>.
CLEAR: <ls_entry>-version,
<ls_entry>-crea_name,
<ls_entry>-crea_tstut,
<ls_entry>-chan_name,
<ls_entry>-chan_tstut.
ENDLOOP.
rs_sots-header = ls_header.
rs_sots-entries = lt_entries.
ENDMETHOD.
METHOD get_sots_usage.
DATA: lv_obj_name TYPE trobj_name.
lv_obj_name = iv_obj_name.
" Objects with multiple components
IF iv_pgmid = ''LIMU'' AND ( iv_object CP ''WDY*'' OR iv_object = ''WAPP'' ).
lv_obj_name+30 = ''%''.
ENDIF.
CALL FUNCTION ''SOTR_USAGE_STRING_READ''
EXPORTING
pgmid = iv_pgmid
object = iv_object
obj_name = lv_obj_name
IMPORTING
sotr_usage = rt_sots_use
EXCEPTIONS
no_entry_found = 1
error_in_pgmid = 2
OTHERS = 3.
IF sy-subrc = 0.
SORT rt_sots_use.
ENDIF.
ENDMETHOD.
METHOD read_sots.
FIELD-SYMBOLS <ls_sots_use> LIKE LINE OF et_sots_use.
DATA ls_sots TYPE ty_sots.
" OTR long text (string) usage: see TABLE BTFR_OBJ_IDS
" LIMU: CPUB, WAPP
" R3TR: ENHO, ENHS, SICF, SMIF, WEBI, XSLT
et_sots_use = get_sots_usage( iv_pgmid = iv_pgmid
iv_object = iv_object
iv_obj_name = iv_obj_name ).
LOOP AT et_sots_use ASSIGNING <ls_sots_use> WHERE concept IS NOT INITIAL.
ls_sots = get_sots_4_concept( <ls_sots_use>-concept ).
IF io_i18n_params->ms_params-main_language_only = abap_true.
DELETE ls_sots-entries WHERE langu <> io_i18n_params->ms_params-main_language.
CHECK ls_sots-entries IS NOT INITIAL.
ENDIF.
INSERT ls_sots INTO TABLE et_sots.
ENDLOOP.
IF io_xml IS BOUND.
io_xml->add( iv_name = ''SOTS''
ig_data = et_sots ).
io_xml->add( iv_name = ''SOTS_USE''
ig_data = et_sots_use ).
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_I18N_FILE ', 'INTERFACE zif_abapgit_i18n_file PUBLIC.
TYPES ty_table_of TYPE STANDARD TABLE OF REF TO zif_abapgit_i18n_file WITH DEFAULT KEY.
METHODS render
RETURNING
VALUE(rv_data) TYPE xstring
RAISING
zcx_abapgit_exception.
METHODS translate
CHANGING
ct_text_pairs TYPE zif_abapgit_lxe_texts=>ty_text_pairs
RAISING
zcx_abapgit_exception.
METHODS ext
RETURNING
VALUE(rv_ext) TYPE string.
METHODS lang
RETURNING
VALUE(rv_lang) TYPE laiso.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_LANG_DEFINITIONS ', 'INTERFACE zif_abapgit_lang_definitions
PUBLIC .
TYPES: BEGIN OF ty_i18n_tpool,
language TYPE langu,
textpool TYPE zif_abapgit_definitions=>ty_tpool_tt,
END OF ty_i18n_tpool,
ty_i18n_tpools TYPE STANDARD TABLE OF ty_i18n_tpool.
TYPES: BEGIN OF ty_i18n_line,
language TYPE langu,
lines TYPE tlinetab,
END OF ty_i18n_line,
ty_i18n_lines TYPE STANDARD TABLE OF ty_i18n_line WITH KEY language.
TYPES: ty_langus TYPE STANDARD TABLE OF langu.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_LONGTEXTS ', 'INTERFACE zif_abapgit_longtexts
PUBLIC .
TYPES:
BEGIN OF ty_longtext,
dokil TYPE dokil,
head TYPE thead,
lines TYPE tline_tab,
END OF ty_longtext .
TYPES:
ty_longtexts TYPE STANDARD TABLE OF ty_longtext WITH NON-UNIQUE DEFAULT KEY .
METHODS changed_by
IMPORTING
!iv_object_name TYPE tadir-obj_name
!iv_longtext_id TYPE dokil-id
!it_dokil TYPE zif_abapgit_definitions=>ty_dokil_tt OPTIONAL
RETURNING
VALUE(rv_user) TYPE syuname
RAISING
zcx_abapgit_exception .
METHODS serialize
IMPORTING
!iv_longtext_name TYPE string DEFAULT ''LONGTEXTS''
!iv_object_name TYPE clike
!iv_longtext_id TYPE dokil-id
!it_dokil TYPE zif_abapgit_definitions=>ty_dokil_tt OPTIONAL
!ii_xml TYPE REF TO zif_abapgit_xml_output
!io_i18n_params TYPE REF TO zcl_abapgit_i18n_params
RETURNING
VALUE(rt_longtexts) TYPE ty_longtexts
RAISING
zcx_abapgit_exception .
METHODS deserialize
IMPORTING
!iv_longtext_name TYPE string DEFAULT ''LONGTEXTS''
!iv_object_name TYPE clike
!iv_longtext_id TYPE dokil-id
!ii_xml TYPE REF TO zif_abapgit_xml_input
!iv_main_language TYPE sy-langu
RAISING
zcx_abapgit_exception .
METHODS delete
IMPORTING
!iv_object_name TYPE tadir-obj_name
!iv_longtext_id TYPE dokil-id
RAISING
zcx_abapgit_exception .
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_LXE_TEXTS ', 'INTERFACE zif_abapgit_lxe_texts
PUBLIC .
* type LXE_PCX_S1 inlined to be compatible with open-abap and ABAP Cloud
TYPES: BEGIN OF ty_text_pair,
textkey TYPE c LENGTH 32,
s_text TYPE c LENGTH 255,
t_text TYPE c LENGTH 255,
unitmlt TYPE i,
uppcase TYPE c LENGTH 4,
texttype TYPE c LENGTH 1,
END OF ty_text_pair.
TYPES ty_text_pairs TYPE STANDARD TABLE OF ty_text_pair WITH DEFAULT KEY.
METHODS serialize
IMPORTING
!iv_object_type TYPE tadir-object
!iv_object_name TYPE tadir-obj_name
!io_i18n_params TYPE REF TO zcl_abapgit_i18n_params
!ii_xml TYPE REF TO zif_abapgit_xml_output
!io_files TYPE REF TO zcl_abapgit_objects_files
RAISING
zcx_abapgit_exception .
METHODS deserialize
IMPORTING
!iv_object_type TYPE tadir-object OPTIONAL
!iv_object_name TYPE tadir-obj_name OPTIONAL
!io_i18n_params TYPE REF TO zcl_abapgit_i18n_params
!ii_xml TYPE REF TO zif_abapgit_xml_input
!io_files TYPE REF TO zcl_abapgit_objects_files
RAISING
zcx_abapgit_exception .
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_OBJECT_DEVC ', 'CLASS zcl_abapgit_object_devc DEFINITION PUBLIC
INHERITING FROM zcl_abapgit_objects_super
FINAL.
PUBLIC SECTION.
INTERFACES:
zif_abapgit_object.
METHODS constructor
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_item
!iv_language TYPE spras
!io_files TYPE REF TO zcl_abapgit_objects_files OPTIONAL
!io_i18n_params TYPE REF TO zcl_abapgit_i18n_params OPTIONAL
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
DATA mv_local_devclass TYPE devclass .
METHODS get_package
RETURNING
VALUE(ri_package) TYPE REF TO if_package
RAISING
zcx_abapgit_exception .
METHODS update_pinf_usages
IMPORTING
!ii_package TYPE REF TO if_package
!it_usage_data TYPE scomppdata
RAISING
zcx_abapgit_exception .
METHODS set_lock
IMPORTING
!ii_package TYPE REF TO if_package
!iv_lock TYPE abap_bool
RAISING
zcx_abapgit_exception .
METHODS unlock_and_raise_error
IMPORTING
!ii_package TYPE REF TO if_package
RAISING
zcx_abapgit_exception .
METHODS is_empty
IMPORTING
!iv_package_name TYPE devclass
RETURNING
VALUE(rv_is_empty) TYPE abap_bool
RAISING
zcx_abapgit_exception .
METHODS load_package
IMPORTING
!iv_package_name TYPE devclass
RETURNING
VALUE(ri_package) TYPE REF TO if_package
RAISING
zcx_abapgit_exception .
METHODS is_local
IMPORTING
!iv_package_name TYPE devclass
RETURNING
VALUE(rv_is_local) TYPE abap_bool .
METHODS remove_obsolete_tadir
IMPORTING
!iv_package_name TYPE devclass .
METHODS adjust_sw_component
CHANGING
cv_dlvunit TYPE dlvunit.
ENDCLASS.
CLASS zcl_abapgit_object_devc IMPLEMENTATION.
METHOD adjust_sw_component.
DATA:
lv_namespace TYPE namespace,
lv_comp_type TYPE c LENGTH 1.
" Keep software component of a package for ABAP add-ons (customer and partner developments)...
SELECT SINGLE comp_type FROM cvers INTO lv_comp_type WHERE component = cv_dlvunit.
IF sy-subrc = 0 AND lv_comp_type = ''A''.
" ... with a matching namespace (typical Add-on Assembly Kit scenario)
lv_namespace = |/{ cv_dlvunit }/|.
SELECT SINGLE namespace FROM trnspace INTO lv_namespace WHERE namespace = lv_namespace.
IF sy-subrc <> 0.
CLEAR cv_dlvunit.
ENDIF.
ELSE.
CLEAR cv_dlvunit.
ENDIF.
ENDMETHOD.
METHOD constructor.
super->constructor(
is_item = is_item
iv_language = iv_language
io_files = io_files
io_i18n_params = io_i18n_params ).
IF is_item-devclass IS NOT INITIAL.
mv_local_devclass = is_item-devclass.
ELSE.
mv_local_devclass = is_item-obj_name.
ENDIF.
ENDMETHOD.
METHOD get_package.
IF zif_abapgit_object~exists( ) = abap_true.
ri_package = load_package( mv_local_devclass ).
ENDIF.
ENDMETHOD.
METHOD is_empty.
DATA: lv_object_name TYPE tadir-obj_name,
lt_subpackages TYPE zif_abapgit_sap_package=>ty_devclass_tt.
lt_subpackages = zcl_abapgit_factory=>get_sap_package( iv_package_name )->list_subpackages( ).
IF lines( lt_subpackages ) > 0.
rv_is_empty = abap_false.
RETURN.
ENDIF.
" Ignore the SOTR if is linked to the current SAP package (DEVC)
SELECT SINGLE obj_name
FROM tadir
INTO lv_object_name
WHERE pgmid = ''R3TR''
AND NOT ( ( object = ''DEVC'' OR object = ''SOTR'' ) AND obj_name = iv_package_name )
AND devclass = iv_package_name.
rv_is_empty = boolc( sy-subrc <> 0 ).
ENDMETHOD.
METHOD is_local.
DATA lv_dlvunit TYPE tdevc-dlvunit.
SELECT SINGLE dlvunit FROM tdevc INTO lv_dlvunit
WHERE devclass = iv_package_name AND intsys <> ''SAP''.
IF sy-subrc = 0 AND lv_dlvunit = ''LOCAL''.
rv_is_local = abap_true.
ENDIF.
ENDMETHOD.
METHOD load_package.
cl_package_factory=>load_package(
EXPORTING
i_package_name = iv_package_name
i_force_reload = abap_true
IMPORTING
e_package = ri_package
EXCEPTIONS
object_not_existing = 1
unexpected_error = 2
intern_err = 3
no_access = 4
object_locked_and_modified = 5
OTHERS = 6 ).
IF sy-subrc = 1.
RETURN.
ELSEIF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
METHOD remove_obsolete_tadir.
DATA:
lv_pack TYPE devclass,
lt_pack TYPE STANDARD TABLE OF devclass,
ls_tadir TYPE zif_abapgit_definitions=>ty_tadir,
lt_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt,
ls_item TYPE zif_abapgit_definitions=>ty_item.
" TADIR entries must remain for transportable packages
IF is_local( iv_package_name ) = abap_false.
RETURN.
ENDIF.
" Clean-up sub packages first
SELECT devclass FROM tdevc INTO TABLE lt_pack
WHERE parentcl = iv_package_name
ORDER BY PRIMARY KEY.
LOOP AT lt_pack INTO lv_pack.
remove_obsolete_tadir( lv_pack ).
ENDLOOP.
" Remove TADIR entries for objects that do not exist anymore
SELECT * FROM tadir INTO CORRESPONDING FIELDS OF TABLE lt_tadir
WHERE devclass = iv_package_name
ORDER BY PRIMARY KEY ##TOO_MANY_ITAB_FIELDS.
LOOP AT lt_tadir INTO ls_tadir.
ls_item-obj_type = ls_tadir-object.
ls_item-obj_name = ls_tadir-obj_name.
IF zcl_abapgit_objects=>exists( ls_item ) = abap_false.
CALL FUNCTION ''TR_TADIR_INTERFACE''
EXPORTING
wi_delete_tadir_entry = abap_true
wi_tadir_pgmid = ''R3TR''
wi_tadir_object = ls_tadir-object
wi_tadir_obj_name = ls_tadir-obj_name
wi_test_modus = abap_false
EXCEPTIONS
OTHERS = 1 ##FM_SUBRC_OK.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD set_lock.
DATA: lv_changeable TYPE abap_bool.
ii_package->get_changeable( IMPORTING e_changeable = lv_changeable ).
IF lv_changeable <> iv_lock.
TRY.
CALL METHOD ii_package->(''SET_CHANGEABLE'')
EXPORTING
i_changeable = iv_lock
i_suppress_dialog = abap_true " Parameter missing in 702
EXCEPTIONS
object_locked_by_other_user = 1
permission_failure = 2
object_already_changeable = 3
object_already_unlocked = 4
object_just_created = 5
object_deleted = 6
object_modified = 7
object_not_existing = 8
object_invalid = 9
unexpected_error = 10
OTHERS = 11.
CATCH cx_sy_dyn_call_param_not_found.
ii_package->set_changeable(
EXPORTING
i_changeable = iv_lock
EXCEPTIONS
object_locked_by_other_user = 1
permission_failure = 2
object_already_changeable = 3
object_already_unlocked = 4
object_just_created = 5
object_deleted = 6
object_modified = 7
object_not_existing = 8
object_invalid = 9
unexpected_error = 10
OTHERS = 11 ).
ENDTRY.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDIF.
TRY.
CALL METHOD ii_package->(''SET_PERMISSIONS_CHANGEABLE'')
EXPORTING
i_changeable = iv_lock
i_suppress_dialog = abap_true " Parameter missing in 702
EXCEPTIONS
object_already_changeable = 1
object_already_unlocked = 2
object_locked_by_other_user = 3
object_modified = 4
object_just_created = 5
object_deleted = 6
permission_failure = 7
object_invalid = 8
unexpected_error = 9
OTHERS = 10.
CATCH cx_sy_dyn_call_param_not_found.
ii_package->set_permissions_changeable(
EXPORTING
i_changeable = iv_lock
EXCEPTIONS
object_already_changeable = 1
object_already_unlocked = 2
object_locked_by_other_user = 3
object_modified = 4
object_just_created = 5
object_deleted = 6
permission_failure = 7
object_invalid = 8
unexpected_error = 9
OTHERS = 10 ).
ENDTRY.
IF ( sy-subrc = 1 AND iv_lock = abap_true ) OR ( sy-subrc = 2 AND iv_lock = abap_false ).
" There''s no getter to find out beforehand...
ELSEIF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
METHOD unlock_and_raise_error.
DATA ls_msg TYPE bal_s_msg.
" Remember message since unlock overwrites it (for example with XT465)
MOVE-CORRESPONDING sy TO ls_msg.
set_lock( ii_package = ii_package
iv_lock = abap_false ).
zcx_abapgit_exception=>raise_t100(
iv_msgid = ls_msg-msgid
iv_msgno = ls_msg-msgno
iv_msgv1 = ls_msg-msgv1
iv_msgv2 = ls_msg-msgv2
iv_msgv3 = ls_msg-msgv3
iv_msgv4 = ls_msg-msgv4 ).
ENDMETHOD.
METHOD update_pinf_usages.
DATA: lt_current_permissions TYPE tpak_permission_to_use_list,
li_usage TYPE REF TO if_package_permission_to_use,
ls_data_sign TYPE scomppsign,
ls_add_permission_data TYPE pkgpermdat,
lt_handled TYPE SORTED TABLE OF i WITH UNIQUE KEY table_line.
FIELD-SYMBOLS: <ls_usage_data> LIKE LINE OF it_usage_data.
" Get the current permissions
ii_package->get_permissions_to_use(
IMPORTING
e_permissions = lt_current_permissions
EXCEPTIONS
object_invalid = 1
unexpected_error = 2
OTHERS = 3 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ls_data_sign-err_sever = abap_true.
" New permissions
LOOP AT it_usage_data ASSIGNING <ls_usage_data>.
READ TABLE lt_current_permissions
WITH KEY table_line->package_interface_name = <ls_usage_data>-intf_name
INTO li_usage.
IF sy-subrc = 0 AND li_usage IS BOUND.
INSERT sy-tabix INTO TABLE lt_handled.
" Permission already exists, update attributes
li_usage->set_all_attributes(
EXPORTING
i_permission_data = <ls_usage_data>
i_data_sign = ls_data_sign
EXCEPTIONS
object_not_changeable = 1
object_invalid = 2
intern_err = 3
OTHERS = 4 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ELSE.
" Permission does not exist yet, add it
MOVE-CORRESPONDING <ls_usage_data> TO ls_add_permission_data.
ii_package->add_permission_to_use(
EXPORTING
i_pkg_permission_data = ls_add_permission_data
EXCEPTIONS
object_not_changeable = 1
object_access_error = 2
object_already_existing = 3
object_invalid = 4
unexpected_error = 5
OTHERS = 6 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDIF.
FREE li_usage.
ENDLOOP.
" Delete missing usages
LOOP AT lt_current_permissions INTO li_usage.
READ TABLE lt_handled WITH TABLE KEY table_line = sy-tabix TRANSPORTING NO FIELDS.
IF sy-subrc = 0.
CONTINUE.
ENDIF.
li_usage->delete(
EXCEPTIONS
object_not_changeable = 1
object_invalid = 2
* deletion_not_allowed = 3 downport, does not exist in 7.30
intern_err = 4
OTHERS = 5 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_object~changed_by.
DATA li_package TYPE REF TO if_package.
li_package = get_package( ).
IF li_package IS BOUND.
rv_user = li_package->changed_by.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_object~delete.
DATA: li_package TYPE REF TO if_package,
lv_package TYPE devclass.
" Package deletion is a bit tricky. A package can only be deleted if there are no objects
" contained in it. This includes subpackages, so first the leaf packages need to be deleted.
" Unfortunately deleted objects that are still contained in an unreleased transport request
" also count towards the contained objects counter.
" -> Currently we delete only empty packages
"
" If objects are deleted, the TADIR entry is deleted when the transport request is released.
" So before we can delete the package, the transport which deletes the objects
" in the package has to be released.
lv_package = ms_item-obj_name.
" Remove remaining OTR entries
zcl_abapgit_sotr_handler=>delete_sotr_package( iv_package ).
remove_obsolete_tadir( lv_package ).
IF is_empty( lv_package ) = abap_true.
li_package = load_package( lv_package ).
IF li_package IS NOT BOUND.
RETURN.
ENDIF.
IF lv_package(1) = ''$''.
zcl_abapgit_persist_packages=>get_instance( )->modify( lv_package ).
ENDIF.
set_lock( ii_package = li_package
iv_lock = abap_true ).
TRY.
CALL METHOD li_package->(''DELETE'')
EXPORTING
i_suppress_dialog = abap_true " Parameter missing in 702
EXCEPTIONS
object_not_empty = 1
object_not_changeable = 2
object_invalid = 3
intern_err = 4
OTHERS = 5.
CATCH cx_sy_dyn_call_param_not_found.
li_package->delete(
EXCEPTIONS
object_not_empty = 1
object_not_changeable = 2
object_invalid = 3
intern_err = 4
OTHERS = 5 ).
ENDTRY.
IF sy-subrc <> 0.
unlock_and_raise_error( li_package ).
ENDIF.
TRY.
CALL METHOD li_package->(''SAVE'')
EXPORTING
i_suppress_dialog = abap_true
EXCEPTIONS
object_invalid = 1
object_not_changeable = 2
cancelled_in_corr = 3
permission_failure = 4
unexpected_error = 5
intern_err = 6
OTHERS = 7.
CATCH cx_sy_dyn_call_param_not_found.
li_package->save(
EXCEPTIONS
object_invalid = 1
object_not_changeable = 2
cancelled_in_corr = 3
permission_failure = 4
unexpected_error = 5
intern_err = 6
OTHERS = 7 ).
ENDTRY.
IF sy-subrc <> 0.
unlock_and_raise_error( li_package ).
ENDIF.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_object~deserialize.
DATA: li_package TYPE REF TO if_package,
ls_package_data TYPE scompkdtln,
ls_data_sign TYPE scompksign,
lt_usage_data TYPE scomppdata,
ls_save_sign TYPE paksavsign.
FIELD-SYMBOLS: <ls_usage_data> TYPE scomppdtln.
FIELD-SYMBOLS: <lg_field> TYPE any.
mv_local_devclass = iv_package.
io_xml->read(
EXPORTING
iv_name = ''DEVC''
CHANGING
cg_data = ls_package_data ).
IF mv_local_devclass(1) = ''$''.
IF ls_package_data-mainpack = ''X''.
zcx_abapgit_exception=>raise( |Main package { iv_package } cannot be used in local package| ).
ELSEIF ls_package_data-mainpack = ''S''.
zcx_abapgit_exception=>raise( |Structure package { iv_package } cannot be used in local package| ).
ENDIF.
ENDIF.
li_package = get_package( ).
" Swap out repository package name with the local installation package name
ls_package_data-devclass = mv_local_devclass.
IF li_package IS BOUND.
ls_package_data-pdevclass = li_package->transport_layer.
ENDIF.
" For local packages store application component
IF ls_package_data-devclass(1) = ''$''.
zcl_abapgit_persist_packages=>get_instance( )->modify(
iv_package = ls_package_data-devclass
iv_component = ls_package_data-component
iv_comp_posid = ls_package_data-comp_posid ).
ENDIF.
" Parent package is not changed. Assume the folder logic already created the package and set
" the hierarchy before.
CLEAR ls_package_data-parentcl.
ASSIGN COMPONENT ''PACKKIND'' OF STRUCTURE ls_package_data TO <lg_field>.
IF sy-subrc = 0.
set_abap_language_version( CHANGING cv_abap_language_version = <lg_field> ).
ENDIF.
ASSIGN COMPONENT ''PACKKIND'' OF STRUCTURE ls_data_sign TO <lg_field>.
IF sy-subrc = 0.
<lg_field> = abap_true.
ENDIF.
* Fields not set:
* korrflag
* parentcl
* cli_check
* intprefx
IF ls_package_data-dlvunit IS NOT INITIAL.
ls_data_sign-dlvunit = abap_true.
ENDIF.
ls_data_sign-ctext = abap_true.
ls_data_sign-as4user = abap_true.
ls_data_sign-pdevclass = abap_true.
ls_data_sign-comp_posid = abap_true.
ls_data_sign-component = abap_true.
ls_data_sign-perminher = abap_true.
ls_data_sign-packtype = abap_true.
ls_data_sign-restricted = abap_true.
ls_data_sign-mainpack = abap_true.
ls_data_sign-srv_check = abap_true.
ls_data_sign-ext_alias = abap_true.
ls_data_sign-project_guid = abap_true.
ls_data_sign-project_id = abap_true.
ls_data_sign-project_passdown = abap_true.
IF ls_package_data-ctext IS INITIAL.
ls_package_data-ctext = mv_local_devclass.
ENDIF.
IF ls_package_data-dlvunit IS INITIAL.
ls_package_data-dlvunit = ''HOME''.
ENDIF.
ls_package_data-as4user = sy-uname.
IF li_package IS BOUND.
" Package already exists, change it
set_lock( ii_package = li_package
iv_lock = abap_true ).
li_package->set_all_attributes(
EXPORTING
i_package_data = ls_package_data
i_data_sign = ls_data_sign
EXCEPTIONS
object_not_changeable = 1
object_deleted = 2
object_invalid = 3
short_text_missing = 4
author_not_existing = 5
local_package = 6
software_component_invalid = 7
layer_invalid = 8
korrflag_invalid = 9
component_not_existing = 10
component_missing = 11
authorize_failure = 12
prefix_in_use = 13
unexpected_error = 14
intern_err = 15
* wrong_mainpack_value = 16 downport, does not exist in 7.30
* superpackage_invalid = 17 downport, does not exist in 7.30
OTHERS = 18 ).
IF sy-subrc <> 0.
unlock_and_raise_error( li_package ).
ENDIF.
ELSE.
" Package does not exist yet, create it
" This shouldn''t really happen, because the folder logic initially creates the packages.
cl_package_factory=>create_new_package(
IMPORTING
e_package = li_package
CHANGING
c_package_data = ls_package_data
EXCEPTIONS
object_already_existing = 1
object_just_created = 2
not_authorized = 3
wrong_name_prefix = 4
undefined_name = 5
reserved_local_name = 6
invalid_package_name = 7
short_text_missing = 8
software_component_invalid = 9
layer_invalid = 10
author_not_existing = 11
component_not_existing = 12
component_missing = 13
prefix_in_use = 14
unexpected_error = 15
intern_err = 16
no_access = 17
* invalid_translation_depth = 18 downport, does not exist in 7.30
* wrong_mainpack_value = 19 downport, does not exist in 7.30
* superpackage_invalid = 20 downport, does not exist in 7.30
* error_in_cts_checks = 21 downport, does not exist in 7.31
OTHERS = 22 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDIF.
" Load package interface usages
TRY.
io_xml->read(
EXPORTING
iv_name = ''PERMISSION''
CHANGING
cg_data = lt_usage_data ).
CATCH zcx_abapgit_exception ##NO_HANDLER.
" No permissions saved
ENDTRY.
LOOP AT lt_usage_data ASSIGNING <ls_usage_data>.
<ls_usage_data>-client_pak = mv_local_devclass.
ENDLOOP.
update_pinf_usages( ii_package = li_package
it_usage_data = lt_usage_data ).
ls_save_sign-pack = abap_true.
ls_save_sign-permis = abap_true.
ls_save_sign-elems = abap_true.
ls_save_sign-interf = abap_true.
li_package->save_generic(
EXPORTING
i_save_sign = ls_save_sign
i_transport_request = iv_transport
i_suppress_dialog = abap_true
EXCEPTIONS
cancelled_in_corr = 1
permission_failure = 2
object_not_changeable = 3
object_invalid = 4
OTHERS = 5 ).
IF sy-subrc <> 0.
unlock_and_raise_error( li_package ).
ENDIF.
set_lock( ii_package = li_package
iv_lock = abap_false ).
ENDMETHOD.
METHOD zif_abapgit_object~exists.
" Check remote package if deserialize has not been called before this
IF mv_local_devclass IS INITIAL.
rv_bool = abap_false.
ELSE.
cl_package_helper=>check_package_existence(
EXPORTING
i_package_name = mv_local_devclass
IMPORTING
e_package_exists = rv_bool
EXCEPTIONS
intern_err = 1
OTHERS = 2 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_object~get_comparator.
RETURN.
ENDMETHOD.
METHOD zif_abapgit_object~get_deserialize_order.
RETURN.
ENDMETHOD.
METHOD zif_abapgit_object~get_deserialize_steps.
APPEND zif_abapgit_object=>gc_step_id-abap TO rt_steps.
ENDMETHOD.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD.
METHOD zif_abapgit_object~is_active.
rv_active = is_active( ).
ENDMETHOD.
METHOD zif_abapgit_object~is_locked.
rv_is_locked = exists_a_lock_entry_for( iv_lock_object = ''EEUDB''
iv_argument = ms_item-obj_name
iv_prefix = ''DV'' ).
ENDMETHOD.
METHOD zif_abapgit_object~jump.
" Covered by ZCL_ABAPGIT_OBJECTS=>JUMP
ENDMETHOD.
METHOD zif_abapgit_object~map_filename_to_object.
IF iv_filename <> zcl_abapgit_filename_logic=>c_package_file.
zcx_abapgit_exception=>raise( |Unexpected filename for package { cs_item-obj_name }| ).
ENDIF.
" Try to get a unique package name for DEVC by using the path
cs_item-obj_name = zcl_abapgit_folder_logic=>get_instance( )->path_to_package(
iv_top = iv_package
io_dot = io_dot
iv_create_if_not_exists = abap_false
iv_path = iv_path ).
ENDMETHOD.
METHOD zif_abapgit_object~map_object_to_filename.
" Packages have a fixed filename so that the repository can be installed to a different
" package(-hierarchy) on the client and not show up as a different package in the repo.
cv_filename = zcl_abapgit_filename_logic=>c_package_file.
ENDMETHOD.
METHOD zif_abapgit_object~serialize.
DATA: ls_package_data TYPE scompkdtln,
ls_package_comp TYPE zcl_abapgit_persist_packages=>ty_package,
li_package TYPE REF TO if_package,
lt_intf_usages TYPE tpak_permission_to_use_list,
lt_usage_data TYPE scomppdata,
ls_usage_data TYPE scomppdtln,
li_usage TYPE REF TO if_package_permission_to_use.
FIELD-SYMBOLS: <lg_field> TYPE any.
li_package = get_package( ).
IF li_package IS NOT BOUND.
zcx_abapgit_exception=>raise( |Could not find package to serialize.| ).
ENDIF.
li_package->get_all_attributes(
IMPORTING
e_package_data = ls_package_data
EXCEPTIONS
object_invalid = 1
package_deleted = 2
intern_err = 3
OTHERS = 4 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
" For local packages get application component
IF is_local( ls_package_data-devclass ) = abap_true.
ls_package_comp = zcl_abapgit_persist_packages=>get_instance( )->read( ls_package_data-devclass ).
ls_package_data-component = ls_package_comp-component.
ls_package_data-comp_posid = ls_package_comp-comp_posid.
ENDIF.
CLEAR: ls_package_data-devclass,
ls_package_data-parentcl.
" Clear administrative data to prevent diffs
CLEAR: ls_package_data-created_by,
ls_package_data-created_on,
ls_package_data-changed_by,
ls_package_data-changed_on,
ls_package_data-as4user.
" Clear text descriptions that might be localized
CLEAR: ls_package_data-comp_text,
ls_package_data-dlvu_text,
ls_package_data-layer_text.
" Clear obsolete fields
CLEAR: ls_package_data-intfprefx,
ls_package_data-cli_check.
" If software component is related to add-on and a valid namespace, then keep it
adjust_sw_component( CHANGING cv_dlvunit = ls_package_data-dlvunit ).
ASSIGN COMPONENT ''TRANSLATION_DEPTH_TEXT''
OF STRUCTURE ls_package_data
TO <lg_field>.
IF sy-subrc = 0.
CLEAR: <lg_field>.
ENDIF.
ASSIGN COMPONENT ''TRANSLATION_GRAPH_DEPTH_TEXT''
OF STRUCTURE ls_package_data
TO <lg_field>.
IF sy-subrc = 0.
CLEAR: <lg_field>.
ENDIF.
" Clear things related to local installation package
CLEAR: ls_package_data-namespace,
ls_package_data-dlvunit,
ls_package_data-tpclass,
ls_package_data-pdevclass.
" Not usable on customer systems
ASSIGN COMPONENT ''TRANSLATION_DEPTH''
OF STRUCTURE ls_package_data
TO <lg_field>.
IF sy-subrc = 0.
CLEAR: <lg_field>.
ENDIF.
ASSIGN COMPONENT ''TRANSLATION_GRAPH_DEPTH''
OF STRUCTURE ls_package_data
TO <lg_field>.
IF sy-subrc = 0.
CLEAR: <lg_field>.
ENDIF.
CLEAR: ls_package_data-korrflag.
ASSIGN COMPONENT ''PACKKIND'' OF STRUCTURE ls_package_data TO <lg_field>.
IF sy-subrc = 0.
clear_abap_language_version( CHANGING cv_abap_language_version = <lg_field> ).
ENDIF.
io_xml->add( iv_name = ''DEVC''
ig_data = ls_package_data ).
" Save package interface usages
li_package->get_permissions_to_use(
IMPORTING
e_permissions = lt_intf_usages
EXCEPTIONS
object_invalid = 1
unexpected_error = 2
OTHERS = 3 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
LOOP AT lt_intf_usages INTO li_usage.
li_usage->get_all_attributes(
IMPORTING
e_permission_data = ls_usage_data
EXCEPTIONS
object_invalid = 1
intern_err = 2
OTHERS = 3 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
CLEAR: ls_usage_data-pack_name, ls_usage_data-client_pak.
APPEND ls_usage_data TO lt_usage_data.
ENDLOOP.
IF lt_usage_data IS NOT INITIAL.
io_xml->add( iv_name = ''PERMISSION''
ig_data = lt_usage_data ).
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_OBJECT_INTF ', 'CLASS zcl_abapgit_object_intf DEFINITION PUBLIC FINAL INHERITING FROM zcl_abapgit_objects_program.
PUBLIC SECTION.
INTERFACES zif_abapgit_object.
TYPES:
BEGIN OF ty_docu,
lines TYPE tlinetab,
i18n_lines TYPE zif_abapgit_lang_definitions=>ty_i18n_lines,
END OF ty_docu.
TYPES:
BEGIN OF ty_intf,
vseointerf TYPE vseointerf,
docu TYPE ty_docu,
description_int TYPE zif_abapgit_oo_object_fnc=>ty_seoclasstx_tt,
description TYPE zif_abapgit_oo_object_fnc=>ty_seocompotx_tt,
description_sub TYPE zif_abapgit_oo_object_fnc=>ty_seosubcotx_tt,
END OF ty_intf.
METHODS constructor
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_item
!iv_language TYPE spras
!io_files TYPE REF TO zcl_abapgit_objects_files OPTIONAL
!io_i18n_params TYPE REF TO zcl_abapgit_i18n_params OPTIONAL
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
METHODS deserialize_proxy
IMPORTING
iv_transport TYPE trkorr
RAISING
zcx_abapgit_exception .
METHODS deserialize_docu
IMPORTING
!ii_xml TYPE REF TO zif_abapgit_xml_input
!is_docu TYPE ty_docu
RAISING
zcx_abapgit_exception .
METHODS serialize_docu
IMPORTING
!it_langu_additional TYPE zif_abapgit_lang_definitions=>ty_langus OPTIONAL
!iv_clsname TYPE seoclsname
RETURNING VALUE(rs_docu) TYPE ty_docu
RAISING
zcx_abapgit_exception.
METHODS serialize_descr_class
IMPORTING
!iv_clsname TYPE seoclsname
RETURNING
VALUE(rs_description) TYPE ty_intf-description_int
RAISING
zcx_abapgit_exception.
METHODS serialize_descr_compo
IMPORTING
!iv_clsname TYPE seoclsname
RETURNING
VALUE(rs_description) TYPE ty_intf-description
RAISING
zcx_abapgit_exception.
METHODS serialize_descr_subco
IMPORTING
!iv_clsname TYPE seoclsname
RETURNING
VALUE(rs_description) TYPE ty_intf-description_sub
RAISING
zcx_abapgit_exception.
METHODS serialize_xml
IMPORTING
!io_xml TYPE REF TO zif_abapgit_xml_output
RAISING
zcx_abapgit_exception .
PRIVATE SECTION.
CONSTANTS:
BEGIN OF c_longtext_name,
attributes TYPE string VALUE ''LONGTEXTS_IA'',
methods TYPE string VALUE ''LONGTEXTS_IO'',
events TYPE string VALUE ''LONGTEXTS_IE'',
END OF c_longtext_name.
CONSTANTS:
BEGIN OF c_longtext_id,
interface TYPE dokil-id VALUE ''IF'',
attributes TYPE dokil-id VALUE ''IA'',
methods TYPE dokil-id VALUE ''IO'',
events TYPE dokil-id VALUE ''IE'',
END OF c_longtext_id.
DATA mv_aff_enabled TYPE abap_bool.
DATA mi_object_oriented_object_fct TYPE REF TO zif_abapgit_oo_object_fnc .
METHODS deserialize_pre_ddic
IMPORTING
ii_xml TYPE REF TO zif_abapgit_xml_input
iv_package TYPE devclass
RAISING
zcx_abapgit_exception.
METHODS deserialize_descr_class
IMPORTING
it_description TYPE zif_abapgit_oo_object_fnc=>ty_seoclasstx_tt OPTIONAL.
METHODS deserialize_descr_compo
IMPORTING
it_description TYPE zif_abapgit_oo_object_fnc=>ty_seocompotx_tt OPTIONAL.
METHODS deserialize_descr_subco
IMPORTING
it_description TYPE zif_abapgit_oo_object_fnc=>ty_seosubcotx_tt OPTIONAL.
METHODS read_xml
IMPORTING
ii_xml TYPE REF TO zif_abapgit_xml_input
RETURNING VALUE(rs_intf) TYPE ty_intf
RAISING
zcx_abapgit_exception.
METHODS read_json
RETURNING VALUE(rs_intf) TYPE ty_intf
RAISING
zcx_abapgit_exception.
METHODS extract_languages_for_transl
IMPORTING is_intf TYPE ty_intf
RETURNING VALUE(rs_result) TYPE zif_abapgit_definitions=>ty_languages.
ENDCLASS.
CLASS zcl_abapgit_object_intf IMPLEMENTATION.
METHOD constructor.
DATA li_aff_registry TYPE REF TO zif_abapgit_aff_registry.
super->constructor(
is_item = is_item
iv_language = iv_language
io_files = io_files
io_i18n_params = io_i18n_params ).
mi_object_oriented_object_fct = zcl_abapgit_oo_factory=>get_by_type( ms_item-obj_type ).
CREATE OBJECT li_aff_registry TYPE zcl_abapgit_aff_registry.
mv_aff_enabled = li_aff_registry->is_supported_object_type( ''INTF'' ).
ENDMETHOD.
METHOD deserialize_descr_class.
DATA ls_clskey TYPE seoclskey.
ls_clskey-clsname = ms_item-obj_name.
mi_object_oriented_object_fct->update_descriptions_class(
is_key = ls_clskey
iv_language = mv_language
it_descriptions = it_description ).
ENDMETHOD.
METHOD deserialize_descr_compo.
DATA ls_clskey TYPE seoclskey.
ls_clskey-clsname = ms_item-obj_name.
mi_object_oriented_object_fct->update_descriptions_compo(
is_key = ls_clskey
it_descriptions = it_description ).
ENDMETHOD.
METHOD deserialize_descr_subco.
DATA ls_clskey TYPE seoclskey.
ls_clskey-clsname = ms_item-obj_name.
mi_object_oriented_object_fct->update_descriptions_subco(
is_key = ls_clskey
it_descriptions = it_description ).
ENDMETHOD.
METHOD deserialize_docu.
DATA: lv_object TYPE dokhl-object,
ls_i18n_lines TYPE zif_abapgit_lang_definitions=>ty_i18n_line.
lv_object = ms_item-obj_name.
IF lines( is_docu-lines ) = 0.
mi_object_oriented_object_fct->delete_documentation(
iv_id = c_longtext_id-interface
iv_object_name = lv_object
iv_language = mv_language ).
RETURN.
ENDIF.
mi_object_oriented_object_fct->create_documentation(
it_lines = is_docu-lines
iv_id = c_longtext_id-interface
iv_object_name = lv_object
iv_language = mv_language ).
LOOP AT is_docu-i18n_lines INTO ls_i18n_lines.
mi_object_oriented_object_fct->create_documentation(
it_lines = ls_i18n_lines-lines
iv_id = c_longtext_id-interface
iv_object_name = lv_object
iv_language = ls_i18n_lines-language
iv_no_masterlang = abap_true ).
ENDLOOP.
deserialize_longtexts(
ii_xml = ii_xml
iv_longtext_name = c_longtext_name-attributes
iv_longtext_id = c_longtext_id-attributes ).
deserialize_longtexts(
ii_xml = ii_xml
iv_longtext_name = c_longtext_name-methods
iv_longtext_id = c_longtext_id-methods ).
deserialize_longtexts(
ii_xml = ii_xml
iv_longtext_name = c_longtext_name-events
iv_longtext_id = c_longtext_id-events ).
ENDMETHOD.
METHOD deserialize_pre_ddic.
DATA ls_intf TYPE ty_intf.
IF mv_aff_enabled = abap_true.
ls_intf = read_json( ).
ELSE.
ii_xml->read( EXPORTING iv_name = ''VSEOINTERF''
CHANGING cg_data = ls_intf-vseointerf ).
ENDIF.
set_abap_language_version( CHANGING cv_abap_language_version = ls_intf-vseointerf-unicode ).
mi_object_oriented_object_fct->create(
EXPORTING
iv_check = abap_false
iv_package = iv_package
CHANGING
cg_properties = ls_intf-vseointerf ).
ENDMETHOD.
METHOD deserialize_proxy.
DATA: lv_transport TYPE trkorr,
li_proxy_object TYPE REF TO if_px_main,
lv_name TYPE prx_r3name,
lx_proxy_fault TYPE REF TO cx_proxy_fault.
lv_name = ms_item-obj_name.
lv_transport = iv_transport.
TRY.
li_proxy_object = cl_pxn_factory=>create(
application = ''PROXY_UI''
display_only = abap_false
saveable = abap_true
)->if_pxn_factory~load_by_abap_name(
object = ms_item-obj_type
obj_name = lv_name ).
li_proxy_object->activate(
EXPORTING
activate_all = abap_true
CHANGING
transport_number = lv_transport ).
li_proxy_object->dequeue( ).
CATCH cx_proxy_fault INTO lx_proxy_fault.
IF li_proxy_object IS BOUND.
TRY.
li_proxy_object->dequeue( ).
CATCH cx_proxy_fault ##NO_HANDLER.
ENDTRY.
ENDIF.
zcx_abapgit_exception=>raise_with_text( lx_proxy_fault ).
ENDTRY.
ENDMETHOD.
METHOD read_json.
DATA lv_json_data TYPE string.
DATA ls_intf_aff TYPE zif_abapgit_aff_intf_v1=>ty_main.
DATA lo_aff_mapper TYPE REF TO zif_abapgit_aff_type_mapping.
lv_json_data = mo_files->read_string( ''json'' ).
ls_intf_aff = lcl_aff_metadata_handler=>deserialize( lv_json_data ).
CREATE OBJECT lo_aff_mapper TYPE lcl_aff_type_mapping.
lo_aff_mapper->to_abapgit( EXPORTING iv_data = ls_intf_aff
iv_object_name = ms_item-obj_name
IMPORTING es_data = rs_intf ).
ENDMETHOD.
METHOD read_xml.
ii_xml->read( EXPORTING iv_name = ''VSEOINTERF''
CHANGING cg_data = rs_intf-vseointerf ).
ii_xml->read( EXPORTING iv_name = ''DESCRIPTIONS_INTERFACE''
CHANGING cg_data = rs_intf-description_int ).
ii_xml->read( EXPORTING iv_name = ''DESCRIPTIONS''
CHANGING cg_data = rs_intf-description ).
ii_xml->read( EXPORTING iv_name = ''DESCRIPTIONS_SUB''
CHANGING cg_data = rs_intf-description_sub ).
ii_xml->read( EXPORTING iv_name = ''LINES''
CHANGING cg_data = rs_intf-docu-lines ).
ii_xml->read( EXPORTING iv_name = ''I18N_LINES''
CHANGING cg_data = rs_intf-docu-i18n_lines ).
ENDMETHOD.
METHOD serialize_descr_class.
DATA: lt_descriptions TYPE zif_abapgit_oo_object_fnc=>ty_seoclasstx_tt,
lt_language_filter TYPE zif_abapgit_environment=>ty_system_language_filter.
" Main language is already in VSEOCLASS so we serialize only translations
IF mo_i18n_params->ms_params-main_language_only = abap_true.
RETURN.
ENDIF.
lt_descriptions = mi_object_oriented_object_fct->read_descriptions_class(
iv_object_name = iv_clsname
iv_language = mv_language ).
" Remove technical languages
lt_language_filter = mo_i18n_params->build_language_filter( ).
DELETE lt_descriptions WHERE NOT langu IN lt_language_filter AND langu <> mv_language.
IF lines( lt_descriptions ) = 0.
RETURN.
ENDIF.
rs_description = lt_descriptions.
ENDMETHOD.
METHOD serialize_descr_compo.
DATA: lt_descriptions TYPE zif_abapgit_oo_object_fnc=>ty_seocompotx_tt,
lv_language TYPE spras,
lt_language_filter TYPE zif_abapgit_environment=>ty_system_language_filter.
IF mo_i18n_params->ms_params-main_language_only = abap_true.
lv_language = mv_language.
ENDIF.
lt_descriptions = mi_object_oriented_object_fct->read_descriptions_compo(
iv_object_name = iv_clsname
iv_language = lv_language ).
" Remove technical languages
lt_language_filter = mo_i18n_params->build_language_filter( ).
DELETE lt_descriptions WHERE NOT langu IN lt_language_filter AND langu <> mv_language.
IF lines( lt_descriptions ) = 0.
RETURN.
ENDIF.
rs_description = lt_descriptions.
ENDMETHOD.
METHOD serialize_descr_subco.
DATA: lt_descriptions TYPE zif_abapgit_oo_object_fnc=>ty_seosubcotx_tt,
lv_language TYPE spras,
lt_language_filter TYPE zif_abapgit_environment=>ty_system_language_filter.
IF mo_i18n_params->ms_params-main_language_only = abap_true.
lv_language = mv_language.
ENDIF.
lt_descriptions = mi_object_oriented_object_fct->read_descriptions_subco(
iv_object_name = iv_clsname
iv_language = lv_language ).
" Remove technical languages
lt_language_filter = mo_i18n_params->build_language_filter( ).
DELETE lt_descriptions WHERE NOT langu IN lt_language_filter AND langu <> mv_language.
IF lines( lt_descriptions ) = 0.
RETURN.
ENDIF.
rs_description = lt_descriptions.
ENDMETHOD.
METHOD serialize_docu.
DATA: lt_lines TYPE tlinetab,
lv_object TYPE dokhl-object,
lv_langu TYPE sy-langu,
lt_i18n_lines TYPE zif_abapgit_lang_definitions=>ty_i18n_lines,
ls_i18n_lines TYPE zif_abapgit_lang_definitions=>ty_i18n_line.
lv_object = iv_clsname.
lt_lines = mi_object_oriented_object_fct->read_documentation(
iv_id = c_longtext_id-interface
iv_object_name = lv_object
iv_language = mv_language ).
rs_docu-lines = lt_lines.
IF mo_i18n_params->ms_params-main_language_only = abap_true.
RETURN.
ENDIF.
LOOP AT it_langu_additional INTO lv_langu.
lt_lines = mi_object_oriented_object_fct->read_documentation(
iv_id = c_longtext_id-interface
iv_object_name = lv_object
iv_language = lv_langu ).
IF lines( lt_lines ) > 0.
CLEAR ls_i18n_lines.
ls_i18n_lines-language = lv_langu.
ls_i18n_lines-lines = lt_lines.
INSERT ls_i18n_lines INTO TABLE lt_i18n_lines.
ENDIF.
ENDLOOP.
rs_docu-i18n_lines = lt_i18n_lines.
ENDMETHOD.
METHOD serialize_xml.
DATA:
ls_intf TYPE ty_intf,
ls_clskey TYPE seoclskey,
lv_serialized_data TYPE xstring,
lt_langu_additional TYPE zif_abapgit_lang_definitions=>ty_langus,
lt_i18n_file TYPE zif_abapgit_i18n_file=>ty_table_of,
lo_i18n_file TYPE REF TO zif_abapgit_i18n_file,
lt_languages_for_translation TYPE zif_abapgit_definitions=>ty_languages.
ls_clskey-clsname = ms_item-obj_name.
ls_intf-vseointerf = mi_object_oriented_object_fct->get_interface_properties( ls_clskey ).
clear_abap_language_version( CHANGING cv_abap_language_version = ls_intf-vseointerf-unicode ).
" Select all active translations of documentation
" Skip main language - it was already serialized
SELECT DISTINCT langu
INTO TABLE lt_langu_additional
FROM dokhl
WHERE id = c_longtext_id-interface
AND object = ls_clskey-clsname
AND langu <> mv_language
ORDER BY langu.
ls_intf-docu = serialize_docu(
iv_clsname = ls_clskey-clsname
it_langu_additional = lt_langu_additional ).
ls_intf-description_int = serialize_descr_class( ls_clskey-clsname ).
ls_intf-description = serialize_descr_compo( ls_clskey-clsname ).
ls_intf-description_sub = serialize_descr_subco( ls_clskey-clsname ).
" HERE: switch with feature flag for XML or JSON file format
IF mv_aff_enabled = abap_true.
lv_serialized_data = lcl_aff_metadata_handler=>serialize( ls_intf ).
mo_files->add_raw( iv_ext = ''json''
iv_data = lv_serialized_data ).
lt_languages_for_translation = extract_languages_for_transl( ls_intf ).
lt_i18n_file = lcl_aff_metadata_handler=>serialize_translations(
is_intf = ls_intf
it_language = lt_languages_for_translation ).
LOOP AT lt_i18n_file INTO lo_i18n_file.
mo_files->add_i18n_file( lo_i18n_file ).
ENDLOOP.
ELSE.
io_xml->add( iv_name = ''VSEOINTERF''
ig_data = ls_intf-vseointerf ).
io_xml->add( iv_name = ''DESCRIPTIONS_INTERFACE''
ig_data = ls_intf-description_int ).
io_xml->add( iv_name = ''DESCRIPTIONS''
ig_data = ls_intf-description ).
io_xml->add( iv_name = ''DESCRIPTIONS_SUB''
ig_data = ls_intf-description_sub ).
io_xml->add( iv_name = ''LINES''
ig_data = ls_intf-docu-lines ).
io_xml->add( iv_name = ''I18N_LINES''
ig_data = ls_intf-docu-i18n_lines ).
serialize_longtexts(
ii_xml = io_xml
iv_longtext_name = c_longtext_name-attributes
iv_longtext_id = c_longtext_id-attributes ).
serialize_longtexts(
ii_xml = io_xml
iv_longtext_name = c_longtext_name-methods
iv_longtext_id = c_longtext_id-methods ).
serialize_longtexts(
ii_xml = io_xml
iv_longtext_name = c_longtext_name-events
iv_longtext_id = c_longtext_id-events ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_object~changed_by.
TYPES: BEGIN OF ty_includes,
programm TYPE syrepid,
END OF ty_includes.
TYPES: BEGIN OF ty_reposrc,
unam TYPE reposrc-unam,
udat TYPE reposrc-udat,
utime TYPE reposrc-utime,
END OF ty_reposrc.
DATA: lt_reposrc TYPE STANDARD TABLE OF ty_reposrc,
ls_reposrc LIKE LINE OF lt_reposrc,
lt_includes TYPE STANDARD TABLE OF ty_includes.
lt_includes = mi_object_oriented_object_fct->get_includes( ms_item-obj_name ).
ASSERT lines( lt_includes ) > 0.
SELECT unam udat utime FROM reposrc
INTO TABLE lt_reposrc
FOR ALL ENTRIES IN lt_includes
WHERE progname = lt_includes-programm
AND r3state = ''A''.
IF sy-subrc <> 0.
rv_user = c_user_unknown.
ELSE.
SORT lt_reposrc BY udat DESCENDING utime DESCENDING.
READ TABLE lt_reposrc INDEX 1 INTO ls_reposrc.
ASSERT sy-subrc = 0.
rv_user = ls_reposrc-unam.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_object~delete.
DATA: ls_clskey TYPE seoclskey,
ls_vseointerf TYPE vseointerf.
ls_clskey-clsname = ms_item-obj_name.
ls_vseointerf = mi_object_oriented_object_fct->get_interface_properties( ls_clskey ).
IF ls_vseointerf-clsproxy = abap_true.
" Proxy interfaces are managed via SPRX
RETURN.
ENDIF.
IF zif_abapgit_object~exists( ) = abap_false.
RETURN.
ENDIF.
corr_insert( iv_package ).
mi_object_oriented_object_fct->delete( ls_clskey ).
ENDMETHOD.
METHOD zif_abapgit_object~deserialize.
DATA:
lt_source TYPE rswsourcet,
ls_clskey TYPE seoclskey,
ls_intf TYPE ty_intf,
lt_description TYPE zif_abapgit_oo_object_fnc=>ty_seocompotx_tt,
lt_description_int TYPE zif_abapgit_oo_object_fnc=>ty_seoclasstx_tt,
lt_description_sub TYPE zif_abapgit_oo_object_fnc=>ty_seosubcotx_tt.
IF iv_step = zif_abapgit_object=>gc_step_id-abap.
" HERE: switch with feature flag between XML and JSON file format
IF mv_aff_enabled = abap_true.
ls_intf = read_json( ).
lcl_aff_metadata_handler=>deserialize_translation(
EXPORTING
io_files = mo_files
is_item = ms_item
IMPORTING
et_description = lt_description
et_description_int = lt_description_int
et_description_sub = lt_description_sub ).
APPEND LINES OF lt_description TO ls_intf-description.
APPEND LINES OF lt_description_int TO ls_intf-description_int.
APPEND LINES OF lt_description_sub TO ls_intf-description_sub.
ELSE.
ls_intf = read_xml( io_xml ).
ENDIF.
set_abap_language_version( CHANGING cv_abap_language_version = ls_intf-vseointerf-unicode ).
IF ls_intf-vseointerf-clsproxy = abap_true.
" Proxy interfaces are managed via SPRX
deserialize_proxy( iv_transport ).
ELSE.
mi_object_oriented_object_fct->create(
EXPORTING
iv_check = abap_true
iv_package = iv_package
CHANGING
cg_properties = ls_intf-vseointerf ).
ls_clskey-clsname = ms_item-obj_name.
lt_source = mo_files->read_abap( ).
mi_object_oriented_object_fct->deserialize_source(
is_key = ls_clskey
iv_package = iv_package
iv_version = ls_intf-vseointerf-unicode
it_source = lt_source ).
deserialize_descr_class( ls_intf-description_int ).
deserialize_descr_compo( ls_intf-description ).
deserialize_descr_subco( ls_intf-description_sub ).
deserialize_docu(
is_docu = ls_intf-docu
ii_xml = io_xml ).
mi_object_oriented_object_fct->add_to_activation_list( ms_item ).
ENDIF.
ELSEIF iv_step = zif_abapgit_object=>gc_step_id-early.
" If interface does not exist, create it
" so DDIC that depends on it does not fail activation
IF zif_abapgit_object~exists( ) = abap_false.
deserialize_pre_ddic(
ii_xml = io_xml
iv_package = iv_package ).
ELSE.
corr_insert( iv_package ).
ENDIF.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_object~exists.
DATA: ls_class_key TYPE seoclskey,
lv_category TYPE seoclassdf-category.
ls_class_key-clsname = ms_item-obj_name.
rv_bool = mi_object_oriented_object_fct->exists( ls_class_key ).
IF rv_bool = abap_true.
SELECT SINGLE category FROM seoclassdf INTO lv_category
WHERE clsname = ls_class_key-clsname
AND ( version = ''1''
OR version = ''0'' ) ##WARN_OK. "#EC CI_GENBUFF
IF sy-subrc = 0 AND lv_category = seoc_category_webdynpro_class.
rv_bool = abap_false.
ELSE.
SELECT SINGLE obj_name FROM sproxhdr INTO ls_class_key-clsname
WHERE object = ''INTF'' AND obj_name = ls_class_key-clsname.
IF sy-subrc = 0.
" generated by proxy
rv_bool = abap_false.
ENDIF.
ENDIF.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_object~get_comparator.
RETURN.
ENDMETHOD.
METHOD zif_abapgit_object~get_deserialize_order.
RETURN.
ENDMETHOD.
METHOD zif_abapgit_object~get_deserialize_steps.
APPEND zif_abapgit_object=>gc_step_id-early TO rt_steps.
APPEND zif_abapgit_object=>gc_step_id-abap TO rt_steps.
ENDMETHOD.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD.
METHOD zif_abapgit_object~is_active.
rv_active = is_active( ).
ENDMETHOD.
METHOD zif_abapgit_object~is_locked.
DATA: lv_object TYPE eqegraarg.
lv_object = |{ ms_item-obj_name }|.
OVERLAY lv_object WITH ''==============================P''.
lv_object = lv_object && ''*''.
rv_is_locked = exists_a_lock_entry_for( iv_lock_object = ''ESEOCLASS''
iv_argument = lv_object ).
ENDMETHOD.
METHOD zif_abapgit_object~jump.
" Covered by ZCL_ABAPGIT_OBJECTS=>JUMP
ENDMETHOD.
METHOD zif_abapgit_object~map_filename_to_object.
RETURN.
ENDMETHOD.
METHOD zif_abapgit_object~map_object_to_filename.
RETURN.
ENDMETHOD.
METHOD zif_abapgit_object~serialize.
DATA: lt_source TYPE seop_source_string,
ls_interface_key TYPE seoclskey.
ls_interface_key-clsname = ms_item-obj_name.
IF zif_abapgit_object~exists( ) = abap_false.
RETURN.
ENDIF.
CALL FUNCTION ''SEO_BUFFER_REFRESH''
EXPORTING
version = seoc_version_active
force = abap_true.
CALL FUNCTION ''SEO_BUFFER_REFRESH''
EXPORTING
version = seoc_version_inactive
force = abap_true.
lt_source = mi_object_oriented_object_fct->serialize_abap( ls_interface_key ).
mo_files->add_abap( lt_source ).
serialize_xml( io_xml ).
ENDMETHOD.
METHOD extract_languages_for_transl.
DATA: lv_desc TYPE seocompotx,
lv_desc_int TYPE seoclasstx,
lv_desc_sub TYPE seosubcotx,
lv_unique TYPE sy-langu,
lv_sap2 TYPE string,
lt_unique_language TYPE STANDARD TABLE OF sy-langu,
lv_original_language TYPE sy-langu.
lv_original_language = mo_i18n_params->ms_params-main_language.
LOOP AT is_intf-description INTO lv_desc WHERE langu <> lv_original_language.
APPEND lv_desc-langu TO lt_unique_language.
ENDLOOP.
LOOP AT is_intf-description_int INTO lv_desc_int WHERE langu <> lv_original_language.
APPEND lv_desc_int-langu TO lt_unique_language.
ENDLOOP.
LOOP AT is_intf-description_sub INTO lv_desc_sub WHERE langu <> lv_original_language.
APPEND lv_desc_sub-langu TO lt_unique_language.
ENDLOOP.
SORT lt_unique_language ASCENDING.
DELETE ADJACENT DUPLICATES FROM lt_unique_language.
LOOP AT lt_unique_language INTO lv_unique.
lv_sap2 = zcl_abapgit_convert=>language_sap1_to_sap2( lv_unique ).
APPEND lv_sap2 TO rs_result.
ENDLOOP.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_OBJECTS ', 'CLASS zcl_abapgit_objects DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
TYPES:
ty_types_tt TYPE SORTED TABLE OF tadir-object WITH UNIQUE KEY table_line .
CLASS-METHODS serialize
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_item
!io_i18n_params TYPE REF TO zcl_abapgit_i18n_params
RETURNING
VALUE(rs_files_and_item) TYPE zif_abapgit_objects=>ty_serialization
RAISING
zcx_abapgit_exception .
CLASS-METHODS deserialize
IMPORTING
!io_repo TYPE REF TO zcl_abapgit_repo
!is_checks TYPE zif_abapgit_definitions=>ty_deserialize_checks
!ii_log TYPE REF TO zif_abapgit_log
RETURNING
VALUE(rt_accessed_files) TYPE zif_abapgit_git_definitions=>ty_file_signatures_tt
RAISING
zcx_abapgit_exception .
CLASS-METHODS deserialize_checks
IMPORTING
!io_repo TYPE REF TO zcl_abapgit_repo
RETURNING
VALUE(rs_checks) TYPE zif_abapgit_definitions=>ty_deserialize_checks
RAISING
zcx_abapgit_exception .
CLASS-METHODS delete
IMPORTING
!it_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt
!is_checks TYPE zif_abapgit_definitions=>ty_delete_checks OPTIONAL
!ii_log TYPE REF TO zif_abapgit_log OPTIONAL
RAISING
zcx_abapgit_exception .
CLASS-METHODS jump
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_item
!is_sub_item TYPE zif_abapgit_definitions=>ty_item OPTIONAL
!iv_filename TYPE string OPTIONAL
!iv_line_number TYPE i OPTIONAL
!iv_new_window TYPE abap_bool DEFAULT abap_true
RAISING
zcx_abapgit_exception .
CLASS-METHODS changed_by
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_item
!iv_filename TYPE string OPTIONAL
RETURNING
VALUE(rv_user) TYPE syuname .
CLASS-METHODS is_supported
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_item
!iv_native_only TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(rv_bool) TYPE abap_bool .
CLASS-METHODS is_type_supported
IMPORTING
!iv_obj_type TYPE zif_abapgit_definitions=>ty_item-obj_type
RETURNING
VALUE(rv_bool) TYPE abap_bool .
CLASS-METHODS exists
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_item
RETURNING
VALUE(rv_bool) TYPE abap_bool .
CLASS-METHODS supported_list
RETURNING
VALUE(rt_types) TYPE ty_types_tt .
CLASS-METHODS is_active
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_item
RETURNING
VALUE(rv_active) TYPE abap_bool
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
PRIVATE SECTION.
TYPES:
BEGIN OF ty_supported_types,
obj_type TYPE tadir-object,
supported TYPE abap_bool,
END OF ty_supported_types.
TYPES: ty_supported_types_tt TYPE SORTED TABLE OF ty_supported_types WITH UNIQUE KEY obj_type.
TYPES:
BEGIN OF ty_obj_serializer_item,
item TYPE zif_abapgit_definitions=>ty_item,
metadata TYPE zif_abapgit_definitions=>ty_metadata,
END OF ty_obj_serializer_item .
TYPES:
ty_obj_serializer_map TYPE SORTED TABLE OF ty_obj_serializer_item WITH UNIQUE KEY item .
CLASS-DATA gt_obj_serializer_map TYPE ty_obj_serializer_map .
CLASS-DATA gt_supported_obj_types TYPE ty_supported_types_tt .
CLASS-DATA gv_supported_obj_types_loaded TYPE abap_bool .
CLASS-METHODS check_duplicates
IMPORTING
!it_files TYPE zif_abapgit_git_definitions=>ty_files_tt
RAISING
zcx_abapgit_exception .
CLASS-METHODS class_name
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_item
RETURNING
VALUE(rv_class_name) TYPE string .
CLASS-METHODS update_package_tree
IMPORTING
!iv_package TYPE devclass .
CLASS-METHODS delete_object
IMPORTING
!iv_package TYPE devclass
!is_item TYPE zif_abapgit_definitions=>ty_item
!iv_transport TYPE trkorr
RAISING
zcx_abapgit_exception .
CLASS-METHODS compare_remote_to_local
IMPORTING
!ii_object TYPE REF TO zif_abapgit_object
!it_remote TYPE zif_abapgit_git_definitions=>ty_files_tt
!is_result TYPE zif_abapgit_definitions=>ty_result
!ii_log TYPE REF TO zif_abapgit_log
RAISING
zcx_abapgit_exception .
CLASS-METHODS deserialize_steps
IMPORTING
!it_steps TYPE zif_abapgit_objects=>ty_step_data_tt
!ii_log TYPE REF TO zif_abapgit_log
!iv_transport TYPE trkorr
CHANGING
!ct_files TYPE zif_abapgit_git_definitions=>ty_file_signatures_tt
RAISING
zcx_abapgit_exception .
CLASS-METHODS deserialize_step
IMPORTING
!is_step TYPE zif_abapgit_objects=>ty_step_data
!ii_log TYPE REF TO zif_abapgit_log
!iv_transport TYPE trkorr
CHANGING
!ct_files TYPE zif_abapgit_git_definitions=>ty_file_signatures_tt
RAISING
zcx_abapgit_exception .
CLASS-METHODS check_original_system
IMPORTING
!it_items TYPE zif_abapgit_definitions=>ty_items_tt
!ii_log TYPE REF TO zif_abapgit_log
!io_dot TYPE REF TO zcl_abapgit_dot_abapgit
RAISING
zcx_abapgit_exception .
CLASS-METHODS update_original_system
IMPORTING
!it_items TYPE zif_abapgit_definitions=>ty_items_tt
!ii_log TYPE REF TO zif_abapgit_log
!io_dot TYPE REF TO zcl_abapgit_dot_abapgit
!iv_transport TYPE trkorr
RAISING
zcx_abapgit_exception .
CLASS-METHODS check_objects_locked
IMPORTING
!it_items TYPE zif_abapgit_definitions=>ty_items_tt
RAISING
zcx_abapgit_exception .
CLASS-METHODS create_object
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_item
!io_files TYPE REF TO zcl_abapgit_objects_files OPTIONAL
!io_i18n_params TYPE REF TO zcl_abapgit_i18n_params OPTIONAL
!is_metadata TYPE zif_abapgit_definitions=>ty_metadata OPTIONAL
!iv_native_only TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(ri_obj) TYPE REF TO zif_abapgit_object
RAISING
zcx_abapgit_exception .
CLASS-METHODS map_tadir_to_items
IMPORTING
!it_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt
RETURNING
VALUE(rt_items) TYPE zif_abapgit_definitions=>ty_items_tt .
CLASS-METHODS map_results_to_items
IMPORTING
!it_results TYPE zif_abapgit_definitions=>ty_results_tt
RETURNING
VALUE(rt_items) TYPE zif_abapgit_definitions=>ty_items_tt .
CLASS-METHODS get_deserialize_steps
RETURNING
VALUE(rt_steps) TYPE zif_abapgit_objects=>ty_step_data_tt .
CLASS-METHODS check_main_package
IMPORTING
!iv_package TYPE devclass
!iv_obj_type TYPE tadir-object
RAISING
zcx_abapgit_exception .
CLASS-METHODS change_package_assignments
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_item
!ii_log TYPE REF TO zif_abapgit_log .
CLASS-METHODS get_extra_from_filename
IMPORTING
!iv_filename TYPE string
RETURNING
VALUE(rv_extra) TYPE string.
ENDCLASS.
CLASS zcl_abapgit_objects IMPLEMENTATION.
METHOD changed_by.
DATA: li_obj TYPE REF TO zif_abapgit_object.
" For unsupported objects, return empty string
IF is_type_supported( is_item-obj_type ) = abap_false.
RETURN.
ENDIF.
TRY.
li_obj = create_object( is_item ).
rv_user = li_obj->changed_by( get_extra_from_filename( iv_filename ) ).
CATCH zcx_abapgit_exception ##NO_HANDLER.
" Ignore errors
ENDTRY.
IF rv_user IS INITIAL.
" Eg. ".abapgit.xml" file
rv_user = zcl_abapgit_objects_super=>c_user_unknown.
ENDIF.
ENDMETHOD.
METHOD change_package_assignments.
CALL FUNCTION ''TR_TADIR_INTERFACE''
EXPORTING
wi_tadir_pgmid = ''R3TR''
wi_tadir_object = is_item-obj_type
wi_tadir_obj_name = is_item-obj_name
wi_tadir_devclass = is_item-devclass
wi_test_modus = abap_false
EXCEPTIONS
OTHERS = 1.
IF sy-subrc = 0.
ii_log->add_success( iv_msg = |Object { is_item-obj_name } assigned to package { is_item-devclass }|
is_item = is_item ).
ELSE.
ii_log->add_error( iv_msg = |Package change of object { is_item-obj_name } failed|
is_item = is_item ).
ENDIF.
ENDMETHOD.
METHOD check_duplicates.
DATA: lt_files TYPE zif_abapgit_git_definitions=>ty_files_tt,
lv_path TYPE string,
lv_filename TYPE string,
lt_duplicates TYPE STANDARD TABLE OF string WITH DEFAULT KEY,
lv_duplicates LIKE LINE OF lt_duplicates,
lv_all_duplicates TYPE string.
FIELD-SYMBOLS: <ls_file> LIKE LINE OF it_files.
lt_files = it_files.
SORT lt_files BY path ASCENDING filename ASCENDING.
LOOP AT lt_files ASSIGNING <ls_file>.
IF lv_path = <ls_file>-path AND lv_filename = <ls_file>-filename.
CONCATENATE <ls_file>-path <ls_file>-filename INTO lv_duplicates.
APPEND lv_duplicates TO lt_duplicates.
ENDIF.
lv_path = <ls_file>-path.
lv_filename = <ls_file>-filename.
ENDLOOP.
IF lt_duplicates IS NOT INITIAL.
CONCATENATE LINES OF lt_duplicates INTO lv_all_duplicates SEPARATED BY \`, \`.
zcx_abapgit_exception=>raise( |Duplicates: { lv_all_duplicates }| ).
ENDIF.
ENDMETHOD.
METHOD check_main_package.
" check package restrictions, closed package, descriptive or
" functional package
cl_pak_object_types=>check_object_type(
EXPORTING
i_working_mode = ''I''
i_package_name = iv_package
i_pgmid = ''R3TR''
i_object_type = iv_obj_type
EXCEPTIONS
wrong_object_type = 1
package_not_extensible = 2
package_not_loaded = 3
OTHERS = 4 ).
CASE sy-subrc.
WHEN 0.
RETURN.
WHEN 2.
zcx_abapgit_exception=>raise( |Object type { iv_obj_type } not allowed for package { iv_package }| ).
WHEN OTHERS.
zcx_abapgit_exception=>raise_t100( ).
ENDCASE.
ENDMETHOD.
METHOD check_objects_locked.
DATA: li_obj TYPE REF TO zif_abapgit_object.
FIELD-SYMBOLS: <ls_item> LIKE LINE OF it_items.
LOOP AT it_items ASSIGNING <ls_item>.
" You should remember that we ignore not supported objects here,
" because otherwise the process aborts which is not desired
IF is_type_supported( <ls_item>-obj_type ) = abap_false.
CONTINUE.
ENDIF.
li_obj = create_object( <ls_item> ).
IF li_obj->is_locked( ) = abap_true.
zcx_abapgit_exception=>raise( |Object { <ls_item>-obj_type } { <ls_item>-obj_name } |
&& |is locked. Action not possible.| ).
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD check_original_system.
DATA:
lv_srcsystem TYPE tadir-srcsystem,
lv_error TYPE abap_bool.
FIELD-SYMBOLS <ls_item> LIKE LINE OF it_items.
lv_srcsystem = io_dot->get_original_system( ).
IF lv_srcsystem IS INITIAL.
RETURN.
ENDIF.
ii_log->add_info( |>> Checking original system| ).
LOOP AT it_items ASSIGNING <ls_item> WHERE srcsystem <> lv_srcsystem AND srcsystem IS NOT INITIAL.
ii_log->add_error(
iv_msg = |Object belongs to system { <ls_item>-srcsystem }. Can''t overwrite it from system { lv_srcsystem }|
is_item = <ls_item> ).
lv_error = abap_true.
ENDLOOP.
IF lv_error = abap_true.
zcx_abapgit_exception=>raise( ''Error trying to overwrite object from different system'' ).
ENDIF.
ENDMETHOD.
METHOD class_name.
CONCATENATE ''ZCL_ABAPGIT_OBJECT_'' is_item-obj_type INTO rv_class_name.
ENDMETHOD.
METHOD compare_remote_to_local.
* this method is used for comparing local with remote objects
* before pull, this is useful eg. when overwriting a TABL object.
* only the main XML file is used for comparison
DATA: ls_remote_file TYPE zif_abapgit_git_definitions=>ty_file,
li_remote_version TYPE REF TO zif_abapgit_xml_input,
lv_count TYPE i,
ls_result TYPE zif_abapgit_comparator=>ty_result,
lv_answer TYPE string,
li_comparator TYPE REF TO zif_abapgit_comparator,
ls_item TYPE zif_abapgit_definitions=>ty_item.
FIND ALL OCCURRENCES OF ''.'' IN is_result-filename MATCH COUNT lv_count.
IF is_result-filename CS ''.XML'' AND lv_count = 2.
IF ii_object->exists( ) = abap_false.
RETURN.
ENDIF.
READ TABLE it_remote WITH KEY file
COMPONENTS filename = is_result-filename INTO ls_remote_file.
IF sy-subrc <> 0. "if file does not exist in remote, we don''t need to validate
RETURN.
ENDIF.
li_comparator = ii_object->get_comparator( ).
IF NOT li_comparator IS BOUND.
RETURN.
ENDIF.
CREATE OBJECT li_remote_version
TYPE zcl_abapgit_xml_input
EXPORTING
iv_xml = zcl_abapgit_convert=>xstring_to_string_utf8( ls_remote_file-data )
iv_filename = ls_remote_file-filename.
ls_result = li_comparator->compare( ii_remote = li_remote_version
ii_log = ii_log ).
IF ls_result-text IS INITIAL.
RETURN.
ENDIF.
"log comparison result
ls_item-obj_type = is_result-obj_type.
ls_item-obj_name = is_result-obj_name.
ii_log->add_warning( iv_msg = ls_result-text
is_item = ls_item ).
"continue or abort?
IF zcl_abapgit_ui_factory=>get_frontend_services( )->gui_is_available( ) = abap_true.
lv_answer = zcl_abapgit_ui_factory=>get_popups( )->popup_to_confirm(
iv_titlebar = ''Warning''
iv_text_question = ls_result-text
iv_text_button_1 = ''Pull Anyway''
iv_icon_button_1 = ''ICON_OKAY''
iv_text_button_2 = ''Cancel''
iv_icon_button_2 = ''ICON_CANCEL''
iv_default_button = ''2''
iv_display_cancel_button = abap_false ).
IF lv_answer = ''2''.
zcx_abapgit_exception=>raise( |Deserialization for object { is_result-obj_name } | &
|(type { is_result-obj_type }) aborted by user| ).
ENDIF.
ELSE.
zcx_abapgit_exception=>raise( |Deserialization for object { is_result-obj_name } | &
|(type { is_result-obj_type }) aborted, user decision required| ).
ENDIF.
ENDIF.
ENDMETHOD.
METHOD create_object.
DATA: lv_message TYPE string,
lv_class_name TYPE string,
ls_obj_serializer_map LIKE LINE OF gt_obj_serializer_map.
" serialize & deserialize require files and i18n parameters,
" other calls are good without them
ASSERT io_files IS BOUND AND io_i18n_params IS BOUND OR
io_files IS NOT BOUND AND io_i18n_params IS NOT BOUND.
READ TABLE gt_obj_serializer_map
INTO ls_obj_serializer_map WITH KEY item = is_item.
IF sy-subrc = 0.
lv_class_name = ls_obj_serializer_map-metadata-class.
ELSEIF is_metadata IS NOT INITIAL.
* Metadata is provided only on deserialization
* Once this has been triggered, the same deserializer shall be used
* for subsequent processes.
* Thus, buffer the metadata afterwards
ls_obj_serializer_map-item = is_item.
ls_obj_serializer_map-metadata = is_metadata.
INSERT ls_obj_serializer_map INTO TABLE gt_obj_serializer_map.
lv_class_name = is_metadata-class.
ELSE.
lv_class_name = class_name( is_item ).
ENDIF.
REPLACE FIRST OCCURRENCE OF ''LCL'' IN lv_class_name WITH ''ZCL_ABAPGIT''.
IF zcl_abapgit_factory=>get_environment( )->is_merged( ) = abap_true.
" Prevent accidental usage of object handlers in the developer version
lv_class_name = |\\\\PROGRAM={ sy-repid }\\\\CLASS={ lv_class_name }|.
ENDIF.
TRY.
IF io_files IS BOUND AND io_i18n_params IS BOUND.
CREATE OBJECT ri_obj TYPE (lv_class_name)
EXPORTING
is_item = is_item
iv_language = io_i18n_params->ms_params-main_language
io_files = io_files
io_i18n_params = io_i18n_params.
ELSE.
CREATE OBJECT ri_obj TYPE (lv_class_name)
EXPORTING
is_item = is_item
iv_language = zif_abapgit_definitions=>c_english.
ENDIF.
CATCH cx_sy_create_object_error.
lv_message = |Object type { is_item-obj_type } is not supported by this system|.
IF iv_native_only = abap_false.
TRY. " 2nd step, try looking for plugins
IF io_files IS BOUND AND io_i18n_params IS BOUND.
CREATE OBJECT ri_obj TYPE zcl_abapgit_objects_bridge
EXPORTING
is_item = is_item
io_files = io_files
io_i18n_params = io_i18n_params.
ELSE.
CREATE OBJECT ri_obj TYPE zcl_abapgit_objects_bridge
EXPORTING
is_item = is_item.
ENDIF.
CATCH cx_sy_create_object_error.
zcx_abapgit_exception=>raise( lv_message ).
ENDTRY.
ELSE. " No native support? -> fail
zcx_abapgit_exception=>raise( lv_message ).
ENDIF.
ENDTRY.
ENDMETHOD.
METHOD delete.
DATA: ls_item TYPE zif_abapgit_definitions=>ty_item,
li_progress TYPE REF TO zif_abapgit_progress,
lt_tadir LIKE it_tadir,
lt_deleted LIKE it_tadir,
lt_items TYPE zif_abapgit_definitions=>ty_items_tt,
lx_error TYPE REF TO zcx_abapgit_exception,
lv_count TYPE i.
FIELD-SYMBOLS: <ls_tadir> LIKE LINE OF it_tadir.
IF it_tadir IS INITIAL.
RETURN.
ENDIF.
lt_tadir = it_tadir.
IF ii_log IS BOUND.
IF lines( lt_tadir ) = 1.
ii_log->add_info( |>>> Deleting 1 object| ).
ELSE.
ii_log->add_info( |>>> Deleting { lines( lt_tadir ) } objects| ).
ENDIF.
ENDIF.
IF is_checks-transport-required = abap_true.
zcl_abapgit_factory=>get_default_transport( )->set( is_checks-transport-transport ).
ENDIF.
TRY.
zcl_abapgit_dependencies=>resolve( CHANGING ct_tadir = lt_tadir ).
li_progress = zcl_abapgit_progress=>get_instance( lines( lt_tadir ) ).
lt_items = map_tadir_to_items( lt_tadir ).
check_objects_locked( lt_items ).
CATCH zcx_abapgit_exception INTO lx_error.
zcl_abapgit_factory=>get_default_transport( )->reset( ).
RAISE EXCEPTION lx_error.
ENDTRY.
lv_count = 1.
DO.
CLEAR lt_deleted.
LOOP AT lt_tadir ASSIGNING <ls_tadir>.
li_progress->show( iv_current = lv_count
iv_text = |Delete { <ls_tadir>-obj_name }| ).
CLEAR ls_item.
ls_item-obj_type = <ls_tadir>-object.
ls_item-obj_name = <ls_tadir>-obj_name.
TRY.
delete_object(
iv_package = <ls_tadir>-devclass
is_item = ls_item
iv_transport = is_checks-transport-transport ).
INSERT <ls_tadir> INTO TABLE lt_deleted.
DELETE lt_tadir.
lv_count = lv_count + 1.
" make sure to save object deletions
COMMIT WORK.
IF ii_log IS BOUND.
ii_log->add_info( iv_msg = |Object { ls_item-obj_type } { ls_item-obj_name } deleted|
is_item = ls_item ).
ENDIF.
CATCH zcx_abapgit_exception INTO lx_error.
IF ii_log IS BOUND.
ii_log->add_exception( ix_exc = lx_error
is_item = ls_item ).
ii_log->add_error( iv_msg = |Deletion of object { ls_item-obj_name } failed|
is_item = ls_item ).
ENDIF.
ENDTRY.
ENDLOOP.
" Exit if done or nothing else was deleted
IF lines( lt_tadir ) = 0 OR lines( lt_deleted ) = 0.
EXIT.
ENDIF.
ENDDO.
zcl_abapgit_factory=>get_default_transport( )->reset( ).
IF lx_error IS BOUND AND lines( lt_tadir ) > 0.
zcx_abapgit_exception=>raise( ''Error during uninstall. Check the log.'' ).
ENDIF.
li_progress->off( ).
ENDMETHOD.
METHOD delete_object.
DATA: li_obj TYPE REF TO zif_abapgit_object.
" Nothing to do for unsupported objects
IF is_type_supported( is_item-obj_type ) = abap_false.
RETURN.
ENDIF.
li_obj = create_object( is_item ).
li_obj->delete( iv_package = iv_package
iv_transport = iv_transport ).
ENDMETHOD.
METHOD deserialize.
DATA: ls_item TYPE zif_abapgit_definitions=>ty_item,
lo_dot TYPE REF TO zcl_abapgit_dot_abapgit,
li_obj TYPE REF TO zif_abapgit_object,
lt_remote TYPE zif_abapgit_git_definitions=>ty_files_tt,
lv_package TYPE devclass,
lo_files TYPE REF TO zcl_abapgit_objects_files,
ls_metadata TYPE zif_abapgit_definitions=>ty_metadata,
lo_xml TYPE REF TO zif_abapgit_xml_input,
lt_results TYPE zif_abapgit_definitions=>ty_results_tt,
li_progress TYPE REF TO zif_abapgit_progress,
lv_path TYPE string,
lt_items TYPE zif_abapgit_definitions=>ty_items_tt,
lt_steps_id TYPE zif_abapgit_definitions=>ty_deserialization_step_tt,
lt_steps TYPE zif_abapgit_objects=>ty_step_data_tt,
lx_exc TYPE REF TO zcx_abapgit_exception.
DATA lo_folder_logic TYPE REF TO zcl_abapgit_folder_logic.
DATA lo_i18n_params TYPE REF TO zcl_abapgit_i18n_params.
DATA lo_timer TYPE REF TO zcl_abapgit_timer.
DATA lo_abap_language_vers TYPE REF TO zcl_abapgit_abap_language_vers.
FIELD-SYMBOLS: <ls_result> TYPE zif_abapgit_definitions=>ty_result,
<lv_step_id> TYPE LINE OF zif_abapgit_definitions=>ty_deserialization_step_tt,
<ls_step> TYPE LINE OF zif_abapgit_objects=>ty_step_data_tt,
<ls_deser> TYPE LINE OF zif_abapgit_objects=>ty_deserialization_tt.
lt_steps = get_deserialize_steps( ).
lv_package = io_repo->get_package( ).
lo_dot = io_repo->get_dot_abapgit( ).
IF is_checks-transport-required = abap_true.
zcl_abapgit_factory=>get_default_transport( )->set( is_checks-transport-transport ).
ENDIF.
zcl_abapgit_objects_activation=>clear( ).
lt_remote = io_repo->get_files_remote( iv_ignore_files = abap_true ).
lt_results = zcl_abapgit_file_deserialize=>get_results(
io_repo = io_repo
ii_log = ii_log ).
IF lt_results IS INITIAL.
RETURN.
ENDIF.
zcl_abapgit_objects_check=>checks_adjust(
EXPORTING
io_repo = io_repo
is_checks = is_checks
CHANGING
ct_results = lt_results ).
li_progress = zcl_abapgit_progress=>get_instance( lines( lt_results ) ).
lt_items = map_results_to_items( lt_results ).
lo_timer = zcl_abapgit_timer=>create(
iv_text = ''Deserialize:''
iv_count = lines( lt_items ) )->start( ).
zcl_abapgit_factory=>get_cts_api( )->confirm_transport_messages( ).
check_objects_locked( lt_items ).
" Check the original system of all objects to prevent overwriting
check_original_system(
it_items = lt_items
ii_log = ii_log
io_dot = io_repo->get_dot_abapgit( ) ).
lo_i18n_params = zcl_abapgit_i18n_params=>new( is_params =
lo_dot->determine_i18n_parameters( io_repo->get_local_settings( )-main_language_only ) ).
IF lines( lt_items ) = 1.
ii_log->add_info( |>>> Deserializing 1 object| ).
ELSE.
ii_log->add_info( |>>> Deserializing { lines( lt_items ) } objects| ).
ENDIF.
CREATE OBJECT lo_abap_language_vers
EXPORTING
io_dot_abapgit = lo_dot.
lo_folder_logic = zcl_abapgit_folder_logic=>get_instance( ).
LOOP AT lt_results ASSIGNING <ls_result>.
li_progress->show( iv_current = sy-tabix
iv_text = |Prepare Deserialize: { <ls_result>-obj_type } { <ls_result>-obj_name }| ).
CLEAR ls_item.
CLEAR: lv_path, lv_package.
ls_item-obj_type = <ls_result>-obj_type.
ls_item-obj_name = <ls_result>-obj_name.
"error handling & logging added
TRY.
IF ls_item-obj_type <> ''NSPC''.
" If package does not exist yet, it will be created with this call
lv_package = lo_folder_logic->path_to_package(
iv_top = io_repo->get_package( )
io_dot = lo_dot
iv_path = <ls_result>-path ).
check_main_package(
iv_package = lv_package
iv_obj_type = ls_item-obj_type ).
ENDIF.
IF ls_item-obj_type = ''DEVC''.
" Packages have the same filename across different folders. The path needs to be supplied
" to find the correct file.
lv_path = <ls_result>-path.
ENDIF.
ls_item-devclass = lv_package.
ls_item-abap_language_version = lo_abap_language_vers->get_abap_language_vers_by_objt(
iv_object_type = ls_item-obj_type
iv_package = lv_package ).
IF <ls_result>-packmove = abap_true.
" Move object to new package
change_package_assignments( is_item = ls_item
ii_log = ii_log ).
" No other changes required
CONTINUE.
ENDIF.
" Create or update object
lo_files = zcl_abapgit_objects_files=>new(
is_item = ls_item
iv_path = lv_path ).
lo_files->set_files( lt_remote ).
IF lo_files->is_json_metadata( ) = abap_false.
"analyze XML in order to instantiate the proper serializer
lo_xml = lo_files->read_xml( ).
ls_metadata = lo_xml->get_metadata( ).
ELSE.
" there''s no XML and metadata for JSON format
CLEAR: lo_xml, ls_metadata.
ENDIF.
li_obj = create_object(
is_item = ls_item
is_metadata = ls_metadata
io_files = lo_files
io_i18n_params = lo_i18n_params ).
compare_remote_to_local(
ii_object = li_obj
it_remote = lt_remote
is_result = <ls_result>
ii_log = ii_log ).
"get required steps for deserialize the object
lt_steps_id = li_obj->get_deserialize_steps( ).
LOOP AT lt_steps_id ASSIGNING <lv_step_id>.
READ TABLE lt_steps WITH KEY step_id = <lv_step_id> ASSIGNING <ls_step>.
ASSERT sy-subrc = 0.
IF <lv_step_id> = zif_abapgit_object=>gc_step_id-ddic AND
zcl_abapgit_objects_activation=>is_ddic_type( ls_item-obj_type ) = abap_false.
" DDIC only for DDIC objects
zcx_abapgit_exception=>raise( |Step { <lv_step_id> } is only for DDIC objects| ).
ENDIF.
APPEND INITIAL LINE TO <ls_step>-objects ASSIGNING <ls_deser>.
<ls_deser>-item = ls_item.
<ls_deser>-obj = li_obj.
<ls_deser>-xml = lo_xml.
<ls_deser>-package = lv_package.
ENDLOOP.
" LXE, TODO refactor and move below activation
IF lo_i18n_params->is_lxe_applicable( ) = abap_true.
zcl_abapgit_factory=>get_lxe_texts( )->deserialize(
iv_object_type = ls_item-obj_type
iv_object_name = ls_item-obj_name
io_i18n_params = lo_i18n_params
ii_xml = lo_xml
io_files = lo_files ).
ENDIF.
CATCH zcx_abapgit_exception INTO lx_exc.
ii_log->add_exception( ix_exc = lx_exc
is_item = ls_item ).
ii_log->add_error( iv_msg = |Import of object { ls_item-obj_name } failed|
is_item = ls_item ).
"object should not be part of any deserialization step
CONTINUE.
ENDTRY.
ENDLOOP.
li_progress->off( ).
"run deserialize for all steps and its objects
deserialize_steps(
EXPORTING
it_steps = lt_steps
ii_log = ii_log
iv_transport = is_checks-transport-transport
CHANGING
ct_files = rt_accessed_files ).
" TODO: LXE translations (objects has been activated by now)
update_package_tree( io_repo->get_package( ) ).
" Set the original system for all updated objects to what''s defined in repo settings
update_original_system(
it_items = lt_items
ii_log = ii_log
io_dot = lo_dot
iv_transport = is_checks-transport-transport ).
zcl_abapgit_factory=>get_default_transport( )->reset( ).
lo_timer->end( abap_true ).
ENDMETHOD.
METHOD deserialize_checks.
rs_checks = zcl_abapgit_objects_check=>deserialize_checks( io_repo ).
ENDMETHOD.
METHOD deserialize_step.
DATA: li_progress TYPE REF TO zif_abapgit_progress,
li_exit TYPE REF TO zif_abapgit_exit,
lo_base TYPE REF TO zcl_abapgit_objects_super,
lx_exc TYPE REF TO zcx_abapgit_exception.
FIELD-SYMBOLS: <ls_obj> LIKE LINE OF is_step-objects.
zcl_abapgit_objects_activation=>clear( ).
ii_log->add_success( |>> Step { is_step-order } - { is_step-descr }| ).
li_progress = zcl_abapgit_progress=>get_instance( lines( is_step-objects ) ).
LOOP AT is_step-objects ASSIGNING <ls_obj>.
li_progress->show(
iv_current = sy-tabix
iv_text = |Step { is_step-order } - { is_step-descr }:| &&
| { <ls_obj>-item-obj_type } { <ls_obj>-item-obj_name }| ).
TRY.
<ls_obj>-obj->deserialize( iv_package = <ls_obj>-package
io_xml = <ls_obj>-xml
iv_step = is_step-step_id
ii_log = ii_log
iv_transport = iv_transport ).
lo_base ?= <ls_obj>-obj.
APPEND LINES OF lo_base->get_accessed_files( ) TO ct_files.
ii_log->add_success( iv_msg = |Object { <ls_obj>-item-obj_name } imported|
is_item = <ls_obj>-item ).
CATCH zcx_abapgit_exception INTO lx_exc.
ii_log->add_exception( ix_exc = lx_exc
is_item = <ls_obj>-item ).
ii_log->add_error( iv_msg = |Import of object { <ls_obj>-item-obj_name } failed|
is_item = <ls_obj>-item ).
ENDTRY.
ENDLOOP.
li_progress->show( iv_current = lines( is_step-objects )
iv_text = |Step { is_step-order } - Activating Objects| ).
CASE is_step-step_id.
WHEN zif_abapgit_object=>gc_step_id-ddic.
zcl_abapgit_objects_activation=>activate(
iv_ddic = abap_true
ii_log = ii_log ).
WHEN zif_abapgit_object=>gc_step_id-abap.
zcl_abapgit_objects_activation=>activate(
iv_ddic = abap_false
ii_log = ii_log ).
WHEN zif_abapgit_object=>gc_step_id-late.
" late can have both DDIC (like TABL with REF TO) and non-DDIC objects
zcl_abapgit_objects_activation=>activate(
iv_ddic = abap_true
ii_log = ii_log ).
zcl_abapgit_objects_activation=>activate(
iv_ddic = abap_false
ii_log = ii_log ).
ENDCASE.
li_progress->off( ).
* Call postprocessing
li_exit = zcl_abapgit_exit=>get_instance( ).
li_exit->deserialize_postprocess( is_step = is_step
ii_log = ii_log ).
ENDMETHOD.
METHOD deserialize_steps.
FIELD-SYMBOLS <ls_step> LIKE LINE OF it_steps.
LOOP AT it_steps ASSIGNING <ls_step>.
deserialize_step(
EXPORTING
is_step = <ls_step>
ii_log = ii_log
iv_transport = iv_transport
CHANGING
ct_files = ct_files ).
ENDLOOP.
SORT ct_files BY path ASCENDING filename ASCENDING.
DELETE ADJACENT DUPLICATES FROM ct_files. " Just in case
ENDMETHOD.
METHOD exists.
DATA: li_obj TYPE REF TO zif_abapgit_object.
" Might be called for objects without tadir entry
IF is_item IS INITIAL.
RETURN.
ENDIF.
" For unsupported objects, assume object exists
IF is_type_supported( is_item-obj_type ) = abap_false.
rv_bool = abap_true.
RETURN.
ENDIF.
TRY.
li_obj = create_object( is_item ).
rv_bool = li_obj->exists( ).
CATCH zcx_abapgit_exception.
" Ignore errors and assume the object exists
rv_bool = abap_true.
ENDTRY.
ENDMETHOD.
METHOD get_deserialize_steps.
FIELD-SYMBOLS: <ls_step> TYPE LINE OF zif_abapgit_objects=>ty_step_data_tt.
APPEND INITIAL LINE TO rt_steps ASSIGNING <ls_step>.
<ls_step>-step_id = zif_abapgit_object=>gc_step_id-early.
<ls_step>-descr = ''Pre-process Objects''.
<ls_step>-syntax_check = abap_false.
<ls_step>-order = 1.
APPEND INITIAL LINE TO rt_steps ASSIGNING <ls_step>.
<ls_step>-step_id = zif_abapgit_object=>gc_step_id-ddic.
<ls_step>-descr = ''Deserialize DDIC Objects''.
<ls_step>-syntax_check = abap_false.
<ls_step>-order = 2.
APPEND INITIAL LINE TO rt_steps ASSIGNING <ls_step>.
<ls_step>-step_id = zif_abapgit_object=>gc_step_id-abap.
<ls_step>-descr = ''Deserialize non-DDIC Objects''.
<ls_step>-syntax_check = abap_false.
<ls_step>-order = 3.
APPEND INITIAL LINE TO rt_steps ASSIGNING <ls_step>.
<ls_step>-step_id = zif_abapgit_object=>gc_step_id-late.
<ls_step>-descr = ''Post-process Objects''.
<ls_step>-syntax_check = abap_true.
<ls_step>-order = 4.
SORT rt_steps BY order. " ensure correct processing order
ENDMETHOD.
METHOD get_extra_from_filename.
IF iv_filename IS NOT INITIAL.
FIND REGEX ''\\..*\\.([\\-a-z0-9_%]*)\\.'' IN iv_filename SUBMATCHES rv_extra.
IF sy-subrc = 0.
rv_extra = cl_http_utility=>unescape_url( rv_extra ).
ENDIF.
ENDIF.
ENDMETHOD.
METHOD is_active.
DATA: li_obj TYPE REF TO zif_abapgit_object.
" For unsupported objects, assume active state
IF is_type_supported( is_item-obj_type ) = abap_false.
rv_active = abap_true.
RETURN.
ENDIF.
TRY.
li_obj = create_object( is_item ).
rv_active = li_obj->is_active( ).
CATCH cx_sy_dyn_call_illegal_method
cx_sy_ref_is_initial
zcx_abapgit_exception.
" Ignore errors and assume active state
rv_active = abap_true.
ENDTRY.
ENDMETHOD.
METHOD is_supported.
TRY.
create_object(
is_item = is_item
iv_native_only = iv_native_only ).
rv_bool = abap_true.
CATCH zcx_abapgit_exception.
rv_bool = abap_false.
ENDTRY.
ENDMETHOD.
METHOD is_type_supported.
DATA: ls_item TYPE zif_abapgit_definitions=>ty_item,
ls_supported_obj_type TYPE ty_supported_types.
FIELD-SYMBOLS <ls_supported_obj_type> TYPE ty_supported_types.
IF iv_obj_type IS INITIAL.
" empty object type should never exist
RETURN.
ENDIF.
READ TABLE gt_supported_obj_types
ASSIGNING <ls_supported_obj_type>
WITH KEY obj_type = iv_obj_type.
IF sy-subrc <> 0.
ls_item-obj_type = iv_obj_type.
ls_supported_obj_type-obj_type = iv_obj_type.
ls_supported_obj_type-supported = is_supported( ls_item ).
INSERT ls_supported_obj_type INTO TABLE gt_supported_obj_types.
rv_bool = ls_supported_obj_type-supported.
RETURN.
ENDIF.
rv_bool = <ls_supported_obj_type>-supported.
ENDMETHOD.
METHOD jump.
DATA: li_obj TYPE REF TO zif_abapgit_object,
lv_exit TYPE abap_bool.
" Nothing to do for unsupported objects
IF is_type_supported( is_item-obj_type ) = abap_false.
zcx_abapgit_exception=>raise( |Object type { is_item-obj_type } is not supported by this system| ).
ENDIF.
" Nothing to do if object does not exist
li_obj = create_object( is_item ).
IF li_obj->exists( ) = abap_false.
zcx_abapgit_exception=>raise( |Object { is_item-obj_type } { is_item-obj_name } doesn''t exist| ).
ENDIF.
" First priority object-specific handler
lv_exit = li_obj->jump( get_extra_from_filename( iv_filename ) ).
IF lv_exit = abap_false.
" Open object in new window with generic jumper
lv_exit = zcl_abapgit_objects_factory=>get_gui_jumper( )->jump(
is_item = is_item
is_sub_item = is_sub_item
iv_line_number = iv_line_number
iv_new_window = iv_new_window ).
ENDIF.
IF lv_exit = abap_false.
zcx_abapgit_exception=>raise( |Jump to { is_item-obj_type } { is_item-obj_name } not possible| ).
ENDIF.
ENDMETHOD.
METHOD map_results_to_items.
DATA: ls_item LIKE LINE OF rt_items.
FIELD-SYMBOLS: <ls_result> TYPE zif_abapgit_definitions=>ty_result.
LOOP AT it_results ASSIGNING <ls_result>.
ls_item-devclass = <ls_result>-package.
ls_item-obj_type = <ls_result>-obj_type.
ls_item-obj_name = <ls_result>-obj_name.
ls_item-srcsystem = <ls_result>-srcsystem.
ls_item-origlang = <ls_result>-origlang.
INSERT ls_item INTO TABLE rt_items.
ENDLOOP.
ENDMETHOD.
METHOD map_tadir_to_items.
DATA: ls_item LIKE LINE OF rt_items.
FIELD-SYMBOLS: <ls_tadir> TYPE zif_abapgit_definitions=>ty_tadir.
LOOP AT it_tadir ASSIGNING <ls_tadir>.
ls_item-devclass = <ls_tadir>-devclass.
ls_item-obj_type = <ls_tadir>-object.
ls_item-obj_name = <ls_tadir>-obj_name.
ls_item-srcsystem = <ls_tadir>-srcsystem.
ls_item-origlang = <ls_tadir>-masterlang.
INSERT ls_item INTO TABLE rt_items.
ENDLOOP.
ENDMETHOD.
METHOD serialize.
DATA: li_obj TYPE REF TO zif_abapgit_object,
lx_error TYPE REF TO zcx_abapgit_exception,
li_xml TYPE REF TO zif_abapgit_xml_output,
lo_files TYPE REF TO zcl_abapgit_objects_files.
FIELD-SYMBOLS <ls_file> LIKE LINE OF rs_files_and_item-files.
IF is_type_supported( is_item-obj_type ) = abap_false.
zcx_abapgit_exception=>raise( |Object type ignored, not supported: {
is_item-obj_type }-{
is_item-obj_name }| ).
ENDIF.
lo_files = zcl_abapgit_objects_files=>new( is_item ).
li_obj = create_object(
is_item = is_item
io_files = lo_files
io_i18n_params = io_i18n_params ).
CREATE OBJECT li_xml TYPE zcl_abapgit_xml_output.
rs_files_and_item-item = is_item.
TRY.
li_obj->serialize( li_xml ).
CATCH zcx_abapgit_exception INTO lx_error.
rs_files_and_item-item-inactive = boolc( li_obj->is_active( ) = abap_false ).
RAISE EXCEPTION lx_error.
ENDTRY.
IF io_i18n_params->is_lxe_applicable( ) = abap_true.
zcl_abapgit_factory=>get_lxe_texts( )->serialize(
iv_object_type = is_item-obj_type
iv_object_name = is_item-obj_name
io_i18n_params = io_i18n_params
io_files = lo_files
ii_xml = li_xml ).
ENDIF.
IF lo_files->is_json_metadata( ) = abap_false.
lo_files->add_xml(
ii_xml = li_xml
is_metadata = li_obj->get_metadata( ) ).
ENDIF.
rs_files_and_item-files = lo_files->get_files( ).
check_duplicates( rs_files_and_item-files ).
rs_files_and_item-item-inactive = boolc( li_obj->is_active( ) = abap_false ).
LOOP AT rs_files_and_item-files ASSIGNING <ls_file>.
<ls_file>-sha1 = zcl_abapgit_hash=>sha1_blob( <ls_file>-data ).
ENDLOOP.
ENDMETHOD.
METHOD supported_list.
DATA lt_objects TYPE STANDARD TABLE OF ko100.
DATA ls_item TYPE zif_abapgit_definitions=>ty_item.
DATA ls_supported_obj_type TYPE ty_supported_types.
DATA lt_types TYPE zif_abapgit_exit=>ty_object_types.
DATA lv_type LIKE LINE OF lt_types.
DATA li_exit TYPE REF TO zif_abapgit_exit.
FIELD-SYMBOLS <ls_object> LIKE LINE OF lt_objects.
FIELD-SYMBOLS <ls_supported_obj_type> TYPE ty_supported_types.
IF gv_supported_obj_types_loaded = abap_true.
LOOP AT gt_supported_obj_types ASSIGNING <ls_supported_obj_type> WHERE supported = abap_true.
INSERT <ls_supported_obj_type>-obj_type INTO TABLE rt_types.
ENDLOOP.
RETURN.
ENDIF.
" delete content because it might be filled already by method IS_TYPE_SUPPORTED
CLEAR gt_supported_obj_types.
CALL FUNCTION ''TR_OBJECT_TABLE''
TABLES
wt_object_text = lt_objects
EXCEPTIONS
OTHERS = 1 ##FM_SUBRC_OK.
LOOP AT lt_objects ASSIGNING <ls_object> WHERE pgmid = ''R3TR''.
INSERT <ls_object>-object INTO TABLE lt_types.
ENDLOOP.
li_exit = zcl_abapgit_exit=>get_instance( ).
li_exit->change_supported_object_types( CHANGING ct_types = lt_types ).
LOOP AT lt_types INTO lv_type.
ls_item-obj_type = lv_type.
ls_supported_obj_type-obj_type = lv_type.
ls_supported_obj_type-supported = is_supported( ls_item ).
INSERT ls_supported_obj_type INTO TABLE gt_supported_obj_types.
IF ls_supported_obj_type-supported = abap_true.
INSERT ls_supported_obj_type-obj_type INTO TABLE rt_types.
ENDIF.
ENDLOOP.
gv_supported_obj_types_loaded = abap_true.
ENDMETHOD.
METHOD update_original_system.
DATA:
lv_srcsystem TYPE tadir-srcsystem,
lv_transport_type_from TYPE trfunction,
lv_transport_type_to TYPE trfunction,
lv_errors TYPE abap_bool,
lv_msg TYPE string.
FIELD-SYMBOLS <ls_item> LIKE LINE OF it_items.
lv_srcsystem = io_dot->get_original_system( ).
IF lv_srcsystem IS INITIAL.
RETURN.
ELSEIF lv_srcsystem = ''SID''.
" Change objects to local system and switch repairs to development requests
lv_srcsystem = sy-sysid.
lv_transport_type_from = zif_abapgit_cts_api=>c_transport_type-wb_repair.
lv_transport_type_to = zif_abapgit_cts_api=>c_transport_type-wb_task.
ELSE.
" Change objects to external system and switch development requests to repairs
lv_transport_type_from = zif_abapgit_cts_api=>c_transport_type-wb_task.
lv_transport_type_to = zif_abapgit_cts_api=>c_transport_type-wb_repair.
ENDIF.
ii_log->add_info( |>> Setting original system| ).
LOOP AT it_items ASSIGNING <ls_item>.
" Local packages are not stored in TADIR
IF <ls_item>-obj_type = ''DEVC'' AND <ls_item>-obj_name(1) = ''$''.
CONTINUE.
ENDIF.
IF exists( <ls_item> ) = abap_true.
CALL FUNCTION ''TR_TADIR_INTERFACE''
EXPORTING
wi_tadir_pgmid = ''R3TR''
wi_tadir_object = <ls_item>-obj_type
wi_tadir_obj_name = <ls_item>-obj_name
wi_tadir_srcsystem = lv_srcsystem
wi_test_modus = abap_false
EXCEPTIONS
tadir_entry_not_existing = 1
tadir_entry_ill_type = 2
no_systemname = 3
no_systemtype = 4
original_system_conflict = 5
object_reserved_for_devclass = 6
object_exists_global = 7
object_exists_local = 8
object_is_distributed = 9
obj_specification_not_unique = 10
no_authorization_to_delete = 11
devclass_not_existing = 12
simultanious_set_remove_repair = 13
order_missing = 14
no_modification_of_head_syst = 15
pgmid_object_not_allowed = 16
masterlanguage_not_specified = 17
devclass_not_specified = 18
specify_owner_unique = 19
loc_priv_objs_no_repair = 20
gtadir_not_reached = 21
object_locked_for_order = 22
change_of_class_not_allowed = 23
no_change_from_sap_to_tmp = 24
OTHERS = 25.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 INTO lv_msg.
ii_log->add_error(
iv_msg = lv_msg
is_item = <ls_item> ).
lv_errors = abap_true.
ENDIF.
ENDIF.
ENDLOOP.
IF lv_errors IS INITIAL.
" Since original system has changed, the type of transport request needs to be adjusted
zcl_abapgit_factory=>get_cts_api( )->change_transport_type(
iv_transport_request = iv_transport
iv_transport_type_from = lv_transport_type_from
iv_transport_type_to = lv_transport_type_to ).
ENDIF.
ENDMETHOD.
METHOD update_package_tree.
DATA: lt_packages TYPE zif_abapgit_sap_package=>ty_devclass_tt,
lv_package LIKE LINE OF lt_packages,
lv_tree TYPE dirtree-tname.
lt_packages = zcl_abapgit_factory=>get_sap_package( iv_package )->list_subpackages( ).
APPEND iv_package TO lt_packages.
LOOP AT lt_packages INTO lv_package.
* update package tree for SE80
lv_tree = ''EU_'' && lv_package.
CALL FUNCTION ''WB_TREE_ACTUALIZE''
EXPORTING
tree_name = lv_tree
without_crossreference = abap_true
with_tcode_index = abap_true.
ENDLOOP.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_OBJECTS_BRIDGE ', 'CLASS zcl_abapgit_objects_bridge DEFINITION PUBLIC FINAL CREATE PUBLIC INHERITING FROM zcl_abapgit_objects_super.
PUBLIC SECTION.
METHODS constructor
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_item
!io_files TYPE REF TO zcl_abapgit_objects_files OPTIONAL
!io_i18n_params TYPE REF TO zcl_abapgit_i18n_params OPTIONAL
RAISING
cx_sy_create_object_error
zcx_abapgit_exception.
INTERFACES zif_abapgit_object.
PROTECTED SECTION.
PRIVATE SECTION.
DATA mo_plugin TYPE REF TO object.
CLASS-METHODS initialize.
" Metadata flags (late_deser, delete_tadir, and ddic) are not required by abapGit anymore
" We keep them to stay compatible with old bridge implementation
TYPES:
BEGIN OF ty_metadata,
class TYPE string,
version TYPE string,
late_deser TYPE abap_bool,
delete_tadir TYPE abap_bool,
ddic TYPE abap_bool,
END OF ty_metadata .
TYPES: BEGIN OF ty_s_objtype_map,
obj_typ TYPE tadir-object,
plugin_class TYPE seoclsname,
END OF ty_s_objtype_map,
ty_t_objtype_map TYPE SORTED TABLE OF ty_s_objtype_map WITH UNIQUE KEY obj_typ.
CLASS-DATA gv_init TYPE abap_bool.
CLASS-DATA gt_objtype_map TYPE ty_t_objtype_map.
ENDCLASS.
CLASS zcl_abapgit_objects_bridge IMPLEMENTATION.
METHOD constructor.
DATA ls_objtype_map LIKE LINE OF gt_objtype_map.
super->constructor(
is_item = is_item
iv_language = zif_abapgit_definitions=>c_english
io_files = io_files
io_i18n_params = io_i18n_params ).
initialize( ).
* determine the responsible plugin
READ TABLE gt_objtype_map INTO ls_objtype_map
WITH TABLE KEY obj_typ = is_item-obj_type.
IF sy-subrc = 0.
CREATE OBJECT mo_plugin TYPE (ls_objtype_map-plugin_class).
CALL METHOD mo_plugin->(''SET_ITEM'')
EXPORTING
iv_obj_type = is_item-obj_type
iv_obj_name = is_item-obj_name.
ELSE.
RAISE EXCEPTION TYPE cx_sy_create_object_error
EXPORTING
classname = ''LCL_OBJECTS_BRIDGE''.
ENDIF.
ENDMETHOD.
METHOD initialize.
DATA lt_plugin_class TYPE STANDARD TABLE OF seoclsname WITH DEFAULT KEY.
DATA lv_plugin_class LIKE LINE OF lt_plugin_class.
DATA lo_plugin TYPE REF TO object.
DATA lt_plugin_obj_type TYPE STANDARD TABLE OF tadir-object WITH DEFAULT KEY.
DATA ls_objtype_map LIKE LINE OF gt_objtype_map.
IF gv_init = abap_true.
RETURN.
ENDIF.
gv_init = abap_true.
SELECT clsname
FROM seometarel
INTO TABLE lt_plugin_class
WHERE refclsname LIKE ''ZCL_ABAPGITP_OBJECT%''
AND version = ''1''
ORDER BY clsname. "#EC CI_SUBRC
CLEAR gt_objtype_map.
LOOP AT lt_plugin_class INTO lv_plugin_class
WHERE table_line <> ''ZCL_ABAPGITP_OBJECT_BY_SOBJ''.
* have the generic plugin only as fallback
TRY.
CREATE OBJECT lo_plugin TYPE (lv_plugin_class).
CATCH cx_sy_create_object_error.
CONTINUE. ">>>>>>>>>>>>>>
ENDTRY.
CALL METHOD lo_plugin->(''GET_SUPPORTED_OBJ_TYPES'')
IMPORTING
rt_obj_type = lt_plugin_obj_type.
ls_objtype_map-plugin_class = lv_plugin_class.
LOOP AT lt_plugin_obj_type INTO ls_objtype_map-obj_typ.
INSERT ls_objtype_map INTO TABLE gt_objtype_map.
IF sy-subrc <> 0.
* No exception in class-constructor possible.
* Anyway, a shortdump is more appropriate in this case
ASSERT ''There must not be'' =
|multiple abapGit-Plugins for the same object type {
ls_objtype_map-obj_typ }|.
ENDIF.
ENDLOOP.
ENDLOOP. "at plugins
* and the same for the generic plugin if exists
* have the generic plugin only as fallback
LOOP AT lt_plugin_class INTO lv_plugin_class
WHERE table_line = ''ZCL_ABAPGITP_OBJECT_BY_SOBJ''.
CREATE OBJECT lo_plugin TYPE (lv_plugin_class).
CALL METHOD lo_plugin->(''GET_SUPPORTED_OBJ_TYPES'')
RECEIVING
rt_obj_type = lt_plugin_obj_type.
ls_objtype_map-plugin_class = lv_plugin_class.
LOOP AT lt_plugin_obj_type INTO ls_objtype_map-obj_typ.
INSERT ls_objtype_map INTO TABLE gt_objtype_map. "knowingly ignore the subrc
ENDLOOP.
ENDLOOP. "at plugins
ENDMETHOD.
METHOD zif_abapgit_object~changed_by.
rv_user = c_user_unknown. " todo
ENDMETHOD.
METHOD zif_abapgit_object~delete.
DATA lx_plugin TYPE REF TO cx_static_check.
TRY.
CALL METHOD mo_plugin->(''ZIF_ABAPGITP_PLUGIN~DELETE'').
CATCH cx_static_check INTO lx_plugin.
zcx_abapgit_exception=>raise( lx_plugin->get_text( ) ).
ENDTRY.
ENDMETHOD.
METHOD zif_abapgit_object~deserialize.
DATA: lx_plugin TYPE REF TO cx_static_check.
TRY.
CALL METHOD mo_plugin->(''WRAP_DESERIALIZE'')
EXPORTING
iv_package = iv_package
io_xml = io_xml.
CATCH cx_static_check INTO lx_plugin.
zcx_abapgit_exception=>raise( lx_plugin->get_text( ) ).
ENDTRY.
ENDMETHOD.
METHOD zif_abapgit_object~exists.
CALL METHOD mo_plugin->(''ZIF_ABAPGITP_PLUGIN~EXISTS'')
RECEIVING
rv_bool = rv_bool.
ENDMETHOD.
METHOD zif_abapgit_object~get_comparator.
RETURN.
ENDMETHOD.
METHOD zif_abapgit_object~get_deserialize_order.
RETURN.
ENDMETHOD.
METHOD zif_abapgit_object~get_deserialize_steps.
DATA ls_meta TYPE ty_metadata.
CALL METHOD mo_plugin->(''ZIF_ABAPGITP_PLUGIN~GET_METADATA'')
RECEIVING
rs_metadata = ls_meta.
IF ls_meta-late_deser = abap_true.
APPEND zif_abapgit_object=>gc_step_id-late TO rt_steps.
ELSEIF ls_meta-ddic = abap_true.
APPEND zif_abapgit_object=>gc_step_id-ddic TO rt_steps.
ELSE.
APPEND zif_abapgit_object=>gc_step_id-abap TO rt_steps.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_object~get_metadata.
DATA ls_meta TYPE ty_metadata.
CALL METHOD mo_plugin->(''ZIF_ABAPGITP_PLUGIN~GET_METADATA'')
RECEIVING
rs_metadata = ls_meta.
MOVE-CORRESPONDING ls_meta TO rs_metadata.
ENDMETHOD.
METHOD zif_abapgit_object~is_active.
rv_active = abap_true.
ENDMETHOD.
METHOD zif_abapgit_object~is_locked.
rv_is_locked = abap_false.
ENDMETHOD.
METHOD zif_abapgit_object~jump.
CALL METHOD mo_plugin->(''ZIF_ABAPGITP_PLUGIN~JUMP'').
rv_exit = abap_true.
ENDMETHOD.
METHOD zif_abapgit_object~map_filename_to_object.
RETURN.
ENDMETHOD.
METHOD zif_abapgit_object~map_object_to_filename.
RETURN.
ENDMETHOD.
METHOD zif_abapgit_object~serialize.
CALL METHOD mo_plugin->(''WRAP_SERIALIZE'')
EXPORTING
io_xml = io_xml.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_OBJECTS_PROGRAM ', 'CLASS zcl_abapgit_objects_program DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_objects_super
CREATE PUBLIC .
PUBLIC SECTION.
TYPES:
BEGIN OF ty_cua,
adm TYPE rsmpe_adm,
sta TYPE STANDARD TABLE OF rsmpe_stat WITH DEFAULT KEY,
fun TYPE STANDARD TABLE OF rsmpe_funt WITH DEFAULT KEY,
men TYPE STANDARD TABLE OF rsmpe_men WITH DEFAULT KEY,
mtx TYPE STANDARD TABLE OF rsmpe_mnlt WITH DEFAULT KEY,
act TYPE STANDARD TABLE OF rsmpe_act WITH DEFAULT KEY,
but TYPE STANDARD TABLE OF rsmpe_but WITH DEFAULT KEY,
pfk TYPE STANDARD TABLE OF rsmpe_pfk WITH DEFAULT KEY,
set TYPE STANDARD TABLE OF rsmpe_staf WITH DEFAULT KEY,
doc TYPE STANDARD TABLE OF rsmpe_atrt WITH DEFAULT KEY,
tit TYPE STANDARD TABLE OF rsmpe_titt WITH DEFAULT KEY,
biv TYPE STANDARD TABLE OF rsmpe_buts WITH DEFAULT KEY,
END OF ty_cua.
METHODS serialize_program
IMPORTING
!io_xml TYPE REF TO zif_abapgit_xml_output OPTIONAL
!is_item TYPE zif_abapgit_definitions=>ty_item
!io_files TYPE REF TO zcl_abapgit_objects_files
!iv_program TYPE syrepid OPTIONAL
!iv_extra TYPE clike OPTIONAL
RAISING
zcx_abapgit_exception.
METHODS deserialize_program
IMPORTING
!is_progdir TYPE zif_abapgit_sap_report=>ty_progdir
!it_source TYPE abaptxt255_tab
!it_tpool TYPE textpool_table
!iv_package TYPE devclass
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
TYPES:
ty_spaces_tt TYPE STANDARD TABLE OF i WITH DEFAULT KEY .
TYPES:
BEGIN OF ty_dynpro,
header TYPE rpy_dyhead,
containers TYPE dycatt_tab,
fields TYPE dyfatc_tab,
flow_logic TYPE swydyflow,
spaces TYPE ty_spaces_tt,
nat_header TYPE d020s,
nat_fields TYPE STANDARD TABLE OF d021s WITH DEFAULT KEY,
nat_texts TYPE STANDARD TABLE OF d021t WITH DEFAULT KEY,
END OF ty_dynpro .
TYPES:
ty_dynpro_tt TYPE STANDARD TABLE OF ty_dynpro WITH DEFAULT KEY .
METHODS strip_generation_comments
CHANGING
ct_source TYPE STANDARD TABLE. " tab of string or charX
METHODS serialize_dynpros
IMPORTING
!iv_program_name TYPE syrepid
RETURNING
VALUE(rt_dynpro) TYPE ty_dynpro_tt
RAISING
zcx_abapgit_exception .
METHODS serialize_cua
IMPORTING
!iv_program_name TYPE syrepid
RETURNING
VALUE(rs_cua) TYPE ty_cua
RAISING
zcx_abapgit_exception .
METHODS deserialize_dynpros
IMPORTING
!it_dynpros TYPE ty_dynpro_tt
RAISING
zcx_abapgit_exception .
METHODS deserialize_textpool
IMPORTING
!iv_program TYPE syrepid
!it_tpool TYPE textpool_table
!iv_language TYPE sy-langu OPTIONAL
!iv_is_include TYPE abap_bool DEFAULT abap_false
RAISING
zcx_abapgit_exception .
METHODS deserialize_cua
IMPORTING
!iv_program_name TYPE syrepid
!is_cua TYPE ty_cua
RAISING
zcx_abapgit_exception .
METHODS is_any_dynpro_locked
IMPORTING
!iv_program TYPE syrepid
RETURNING
VALUE(rv_is_any_dynpro_locked) TYPE abap_bool
RAISING
zcx_abapgit_exception .
METHODS is_cua_locked
IMPORTING
!iv_program TYPE syrepid
RETURNING
VALUE(rv_is_cua_locked) TYPE abap_bool
RAISING
zcx_abapgit_exception .
METHODS is_text_locked
IMPORTING
!iv_program TYPE syrepid
RETURNING
VALUE(rv_is_text_locked) TYPE abap_bool
RAISING
zcx_abapgit_exception .
CLASS-METHODS add_tpool
IMPORTING
!it_tpool TYPE textpool_table
RETURNING
VALUE(rt_tpool) TYPE zif_abapgit_definitions=>ty_tpool_tt .
CLASS-METHODS read_tpool
IMPORTING
!it_tpool TYPE zif_abapgit_definitions=>ty_tpool_tt
RETURNING
VALUE(rt_tpool) TYPE zif_abapgit_definitions=>ty_tpool_tt .
PRIVATE SECTION.
CONSTANTS:
BEGIN OF c_state,
active TYPE r3state VALUE ''A'',
inactive TYPE r3state VALUE ''I'',
END OF c_state.
METHODS:
uncondense_flow
IMPORTING it_flow TYPE swydyflow
it_spaces TYPE ty_spaces_tt
RETURNING VALUE(rt_flow) TYPE swydyflow.
CLASS-METHODS auto_correct_cua_adm
IMPORTING
is_cua TYPE ty_cua
CHANGING
cs_adm TYPE rsmpe_adm.
METHODS get_program_title
IMPORTING
!it_tpool TYPE textpool_table
RETURNING
VALUE(rv_title) TYPE repti .
METHODS insert_program
IMPORTING
!is_progdir TYPE zif_abapgit_sap_report=>ty_progdir
!it_source TYPE abaptxt255_tab
!iv_title TYPE repti
!iv_package TYPE devclass
!iv_state TYPE progdir-state DEFAULT c_state-inactive
RAISING
zcx_abapgit_exception .
METHODS update_program
IMPORTING
!is_progdir TYPE zif_abapgit_sap_report=>ty_progdir
!it_source TYPE abaptxt255_tab
!iv_title TYPE repti
!iv_state TYPE progdir-state DEFAULT c_state-inactive
RAISING
zcx_abapgit_exception .
METHODS is_exit_include
IMPORTING
!iv_program TYPE syrepid
RETURNING
VALUE(rv_is_exit_include) TYPE abap_bool.
METHODS deserialize_exit_include
IMPORTING
!is_progdir TYPE zif_abapgit_sap_report=>ty_progdir
!it_source TYPE abaptxt255_tab
!it_tpool TYPE textpool_table
!iv_package TYPE devclass
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_objects_program IMPLEMENTATION.
METHOD add_tpool.
FIELD-SYMBOLS: <ls_tpool_in> LIKE LINE OF it_tpool,
<ls_tpool_out> LIKE LINE OF rt_tpool.
LOOP AT it_tpool ASSIGNING <ls_tpool_in>.
APPEND INITIAL LINE TO rt_tpool ASSIGNING <ls_tpool_out>.
MOVE-CORRESPONDING <ls_tpool_in> TO <ls_tpool_out>.
IF <ls_tpool_out>-id = ''S''.
<ls_tpool_out>-split = <ls_tpool_out>-entry.
<ls_tpool_out>-entry = <ls_tpool_out>-entry+8.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD auto_correct_cua_adm.
" issue #1807 automatic correction of CUA interfaces saved incorrectly in the past (ADM was not saved in the XML)
CONSTANTS:
lc_num_n_space TYPE string VALUE '' 0123456789'',
lc_num_only TYPE string VALUE ''0123456789''.
FIELD-SYMBOLS:
<ls_pfk> TYPE rsmpe_pfk,
<ls_act> TYPE rsmpe_act,
<ls_men> TYPE rsmpe_men.
IF cs_adm IS NOT INITIAL
AND cs_adm-actcode CO lc_num_n_space
AND cs_adm-mencode CO lc_num_n_space
AND cs_adm-pfkcode CO lc_num_n_space. "Check performed in form check_adm of include LSMPIF03
RETURN.
ENDIF.
LOOP AT is_cua-act ASSIGNING <ls_act>.
IF <ls_act>-code+6(14) IS INITIAL AND <ls_act>-code(6) CO lc_num_only.
cs_adm-actcode = <ls_act>-code.
ENDIF.
ENDLOOP.
LOOP AT is_cua-men ASSIGNING <ls_men>.
IF <ls_men>-code+6(14) IS INITIAL AND <ls_men>-code(6) CO lc_num_only.
cs_adm-mencode = <ls_men>-code.
ENDIF.
ENDLOOP.
LOOP AT is_cua-pfk ASSIGNING <ls_pfk>.
IF <ls_pfk>-code+6(14) IS INITIAL AND <ls_pfk>-code(6) CO lc_num_only.
cs_adm-pfkcode = <ls_pfk>-code.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD deserialize_cua.
DATA: ls_tr_key TYPE trkey,
ls_adm TYPE rsmpe_adm.
IF lines( is_cua-sta ) = 0
AND lines( is_cua-fun ) = 0
AND lines( is_cua-men ) = 0
AND lines( is_cua-mtx ) = 0
AND lines( is_cua-act ) = 0
AND lines( is_cua-but ) = 0
AND lines( is_cua-pfk ) = 0
AND lines( is_cua-set ) = 0
AND lines( is_cua-doc ) = 0
AND lines( is_cua-tit ) = 0
AND lines( is_cua-biv ) = 0.
RETURN.
ENDIF.
SELECT SINGLE devclass INTO ls_tr_key-devclass
FROM tadir
WHERE pgmid = ''R3TR''
AND object = ms_item-obj_type
AND obj_name = ms_item-obj_name. "#EC CI_GENBUFF
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''not found in tadir'' ).
ENDIF.
ls_tr_key-obj_type = ms_item-obj_type.
ls_tr_key-obj_name = ms_item-obj_name.
ls_tr_key-sub_type = ''CUAD''.
ls_tr_key-sub_name = iv_program_name.
ls_adm = is_cua-adm.
auto_correct_cua_adm( EXPORTING is_cua = is_cua CHANGING cs_adm = ls_adm ).
sy-tcode = ''SE41'' ##WRITE_OK. " evil hack, workaround to handle fixes in note 2159455
CALL FUNCTION ''RS_CUA_INTERNAL_WRITE''
EXPORTING
program = iv_program_name
language = mv_language
tr_key = ls_tr_key
adm = ls_adm
state = c_state-inactive
TABLES
sta = is_cua-sta
fun = is_cua-fun
men = is_cua-men
mtx = is_cua-mtx
act = is_cua-act
but = is_cua-but
pfk = is_cua-pfk
set = is_cua-set
doc = is_cua-doc
tit = is_cua-tit
biv = is_cua-biv
EXCEPTIONS
not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
* if moving code from SAPlink, see https://github.com/abapGit/abapGit/issues/562
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
zcl_abapgit_objects_activation=>add(
iv_type = ''CUAD''
iv_name = iv_program_name ).
ENDMETHOD.
METHOD deserialize_dynpros.
CONSTANTS lc_rpyty_force_off TYPE c LENGTH 1 VALUE ''/''.
DATA: lv_name TYPE dwinactiv-obj_name,
lt_d020s_to_delete TYPE TABLE OF d020s,
ls_d020s LIKE LINE OF lt_d020s_to_delete,
lt_params TYPE TABLE OF d023s,
ls_dynpro LIKE LINE OF it_dynpros.
FIELD-SYMBOLS: <ls_field> TYPE rpy_dyfatc.
" Delete DYNPROs which are not in the list
CALL FUNCTION ''RS_SCREEN_LIST''
EXPORTING
dynnr = ''''
progname = ms_item-obj_name
TABLES
dynpros = lt_d020s_to_delete
EXCEPTIONS
not_found = 1
OTHERS = 2.
IF sy-subrc = 2.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
SORT lt_d020s_to_delete BY dnum ASCENDING.
* ls_dynpro is changed by the function module, a field-symbol will cause
* the program to dump since it_dynpros cannot be changed
LOOP AT it_dynpros INTO ls_dynpro.
READ TABLE lt_d020s_to_delete WITH KEY dnum = ls_dynpro-header-screen
TRANSPORTING NO FIELDS
BINARY SEARCH.
IF sy-subrc = 0.
DELETE lt_d020s_to_delete INDEX sy-tabix.
ENDIF.
" todo: kept for compatibility, remove after grace period #3680
ls_dynpro-flow_logic = uncondense_flow(
it_flow = ls_dynpro-flow_logic
it_spaces = ls_dynpro-spaces ).
LOOP AT ls_dynpro-fields ASSIGNING <ls_field>.
* if the DDIC element has a PARAMETER_ID and the flag "from_dict" is active
* the import will enable the SET-/GET_PARAM flag. In this case: "force off"
IF <ls_field>-param_id IS NOT INITIAL
AND <ls_field>-from_dict = abap_true.
IF <ls_field>-set_param IS INITIAL.
<ls_field>-set_param = lc_rpyty_force_off.
ENDIF.
IF <ls_field>-get_param IS INITIAL.
<ls_field>-get_param = lc_rpyty_force_off.
ENDIF.
ENDIF.
* If the previous conditions are met the value ''F'' will be taken over
* during de-serialization potentially overlapping other fields in the screen,
* we set the tag to the correct value ''X''
IF <ls_field>-type = ''CHECK''
AND <ls_field>-from_dict = abap_true
AND <ls_field>-text IS INITIAL
AND <ls_field>-modific IS INITIAL.
<ls_field>-modific = ''X''.
ENDIF.
"fix for issue #2747:
IF <ls_field>-foreignkey IS INITIAL.
<ls_field>-foreignkey = lc_rpyty_force_off.
ENDIF.
ENDLOOP.
IF ls_dynpro-header-type = ''N'' AND ls_dynpro-nat_header IS NOT INITIAL.
DELETE FROM d021t WHERE prog = ls_dynpro-header-program AND dynr = ls_dynpro-header-screen ##SUBRC_OK.
INSERT d021t FROM TABLE ls_dynpro-nat_texts ##SUBRC_OK.
ls_dynpro-nat_header-dgen = sy-datum.
ls_dynpro-nat_header-tgen = sy-uzeit.
CALL FUNCTION ''RPY_DYNPRO_INSERT_NATIVE''
EXPORTING
header = ls_dynpro-nat_header
dynprotext = ls_dynpro-header-descript
TABLES
fieldlist = ls_dynpro-nat_fields
flowlogic = ls_dynpro-flow_logic
params = lt_params
EXCEPTIONS
cancelled = 1
already_exists = 2
program_not_exists = 3
not_executed = 4
OTHERS = 5.
ELSE.
CALL FUNCTION ''RPY_DYNPRO_INSERT''
EXPORTING
header = ls_dynpro-header
suppress_exist_checks = abap_true
suppress_generate = ls_dynpro-header-no_execute
TABLES
containers = ls_dynpro-containers
fields_to_containers = ls_dynpro-fields
flow_logic = ls_dynpro-flow_logic
EXCEPTIONS
cancelled = 1
already_exists = 2
program_not_exists = 3
not_executed = 4
missing_required_field = 5
illegal_field_value = 6
field_not_allowed = 7
not_generated = 8
illegal_field_position = 9
OTHERS = 10.
ENDIF.
IF sy-subrc <> 2 AND sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
CONCATENATE ls_dynpro-header-program ls_dynpro-header-screen
INTO lv_name RESPECTING BLANKS.
ASSERT NOT lv_name IS INITIAL.
zcl_abapgit_objects_activation=>add(
iv_type = ''DYNP''
iv_name = lv_name ).
ENDLOOP.
" Delete obsolete screens
LOOP AT lt_d020s_to_delete INTO ls_d020s.
CALL FUNCTION ''RS_SCRP_DELETE''
EXPORTING
dynnr = ls_d020s-dnum
progname = ms_item-obj_name
with_popup = abap_false
EXCEPTIONS
enqueued_by_user = 1
enqueue_system_failure = 2
not_executed = 3
not_exists = 4
no_modify_permission = 5
popup_canceled = 6.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD deserialize_exit_include.
DATA:
lv_progname TYPE reposrc-progname,
lv_title TYPE rglif-title.
" Includes in SAP exit function groups must be processed in active state only
" (check in RS_INSERT_INTO_WORKING_AREA)
lv_title = get_program_title( it_tpool ).
SELECT SINGLE progname FROM reposrc INTO lv_progname
WHERE progname = is_progdir-name
AND r3state = c_state-active.
IF sy-subrc = 0.
update_program(
is_progdir = is_progdir
it_source = it_source
iv_title = lv_title
iv_state = '''' ).
ELSE.
insert_program(
is_progdir = is_progdir
it_source = it_source
iv_title = lv_title
iv_package = iv_package
iv_state = '''' ).
ENDIF.
ENDMETHOD.
METHOD deserialize_program.
DATA:
lv_progname TYPE reposrc-progname,
lv_title TYPE rglif-title.
IF is_exit_include( is_progdir-name ) = abap_true.
deserialize_exit_include(
is_progdir = is_progdir
it_source = it_source
it_tpool = it_tpool
iv_package = iv_package ).
RETURN.
ENDIF.
zcl_abapgit_factory=>get_cts_api( )->insert_transport_object(
iv_object = ''ABAP''
iv_obj_name = is_progdir-name
iv_package = iv_package
iv_language = mv_language ).
lv_title = get_program_title( it_tpool ).
" Check if program already exists
SELECT SINGLE progname FROM reposrc INTO lv_progname
WHERE progname = is_progdir-name
AND r3state = c_state-active.
IF sy-subrc = 0.
update_program(
is_progdir = is_progdir
it_source = it_source
iv_title = lv_title ).
ELSE.
insert_program(
is_progdir = is_progdir
it_source = it_source
iv_title = lv_title
iv_package = iv_package ).
ENDIF.
zcl_abapgit_factory=>get_sap_report( )->update_progdir(
is_progdir = is_progdir
iv_package = iv_package ).
zcl_abapgit_objects_activation=>add(
iv_type = ''REPS''
iv_name = is_progdir-name ).
ENDMETHOD.
METHOD deserialize_textpool.
DATA lv_language TYPE sy-langu.
DATA lv_state TYPE c.
DATA lv_delete TYPE abap_bool.
IF iv_language IS INITIAL.
lv_language = mv_language.
ELSE.
lv_language = iv_language.
ENDIF.
IF lv_language = mv_language.
lv_state = c_state-inactive. "Textpool in main language needs to be activated
ELSE.
lv_state = c_state-active. "Translations are always active
ENDIF.
IF it_tpool IS INITIAL.
IF iv_is_include = abap_false OR lv_state = c_state-active.
DELETE TEXTPOOL iv_program "Remove initial description from textpool if
LANGUAGE lv_language "original program does not have a textpool
STATE lv_state.
lv_delete = abap_true.
ELSE.
INSERT TEXTPOOL iv_program "In case of includes: Deletion of textpool in
FROM it_tpool "main language cannot be activated because
LANGUAGE lv_language "this would activate the deletion of the textpool
STATE lv_state. "of the mail program -> insert empty textpool
ENDIF.
ELSE.
INSERT TEXTPOOL iv_program
FROM it_tpool
LANGUAGE lv_language
STATE lv_state.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''error from INSERT TEXTPOOL'' ).
ENDIF.
ENDIF.
IF lv_state = c_state-inactive. "Textpool in main language needs to be activated
zcl_abapgit_objects_activation=>add(
iv_type = ''REPT''
iv_name = iv_program
iv_delete = lv_delete ).
ENDIF.
ENDMETHOD.
METHOD get_program_title.
DATA ls_tpool LIKE LINE OF it_tpool.
FIELD-SYMBOLS <lg_any> TYPE any.
READ TABLE it_tpool INTO ls_tpool WITH KEY id = ''R''.
IF sy-subrc = 0.
" there is a bug in RPY_PROGRAM_UPDATE, the header line of TTAB is not
" cleared, so the title length might be inherited from a different program.
ASSIGN (''(SAPLSIFP)TTAB'') TO <lg_any>.
IF sy-subrc = 0.
CLEAR <lg_any>.
ENDIF.
rv_title = ls_tpool-entry.
ENDIF.
ENDMETHOD.
METHOD insert_program.
TRY.
CALL FUNCTION ''RPY_PROGRAM_INSERT''
EXPORTING
development_class = iv_package
program_name = is_progdir-name
program_type = is_progdir-subc
title_string = iv_title
save_inactive = iv_state
suppress_dialog = abap_true
uccheck = is_progdir-uccheck " does not exist on lower releases
TABLES
source_extended = it_source
EXCEPTIONS
already_exists = 1
cancelled = 2
name_not_allowed = 3
permission_error = 4
OTHERS = 5.
CATCH cx_sy_dyn_call_param_not_found.
CALL FUNCTION ''RPY_PROGRAM_INSERT''
EXPORTING
development_class = iv_package
program_name = is_progdir-name
program_type = is_progdir-subc
title_string = iv_title
save_inactive = iv_state
suppress_dialog = abap_true
TABLES
source_extended = it_source
EXCEPTIONS
already_exists = 1
cancelled = 2
name_not_allowed = 3
permission_error = 4
OTHERS = 5.
ENDTRY.
IF sy-subrc = 3.
" For cases that standard function does not handle (like FUGR),
" we save active and inactive version of source with the given PROGRAM TYPE.
" Without the active version, the code will not be visible in case of activation errors.
zcl_abapgit_factory=>get_sap_report( )->insert_report(
iv_name = is_progdir-name
iv_package = iv_package
it_source = it_source
iv_state = c_state-active
iv_version = is_progdir-uccheck
iv_program_type = is_progdir-subc ).
zcl_abapgit_factory=>get_sap_report( )->insert_report(
iv_name = is_progdir-name
iv_package = iv_package
it_source = it_source
iv_state = c_state-inactive
iv_version = is_progdir-uccheck
iv_program_type = is_progdir-subc ).
ELSEIF sy-subrc > 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
METHOD is_any_dynpro_locked.
DATA: lt_dynpros TYPE ty_dynpro_tt,
lv_object TYPE seqg3-garg.
FIELD-SYMBOLS: <ls_dynpro> TYPE ty_dynpro.
lt_dynpros = serialize_dynpros( iv_program ).
LOOP AT lt_dynpros ASSIGNING <ls_dynpro>.
lv_object = |{ <ls_dynpro>-header-screen }{ <ls_dynpro>-header-program }|.
IF exists_a_lock_entry_for( iv_lock_object = ''ESCRP''
iv_argument = lv_object ) = abap_true.
rv_is_any_dynpro_locked = abap_true.
EXIT.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD is_cua_locked.
DATA: lv_object TYPE eqegraarg.
lv_object = |CU{ iv_program }|.
OVERLAY lv_object WITH '' ''.
lv_object = lv_object && ''*''.
rv_is_cua_locked = exists_a_lock_entry_for( iv_lock_object = ''ESCUAPAINT''
iv_argument = lv_object ).
ENDMETHOD.
METHOD is_exit_include.
rv_is_exit_include = boolc(
iv_program CP ''LX*'' OR iv_program CP ''SAPLX*'' OR
iv_program+1 CP ''/LX*'' OR iv_program+1 CP ''/SAPLX*'' ).
ENDMETHOD.
METHOD is_text_locked.
DATA: lv_object TYPE eqegraarg.
lv_object = |*{ iv_program }|.
rv_is_text_locked = exists_a_lock_entry_for( iv_lock_object = ''EABAPTEXTE''
iv_argument = lv_object ).
ENDMETHOD.
METHOD read_tpool.
FIELD-SYMBOLS: <ls_tpool_in> LIKE LINE OF it_tpool,
<ls_tpool_out> LIKE LINE OF rt_tpool.
LOOP AT it_tpool ASSIGNING <ls_tpool_in>.
APPEND INITIAL LINE TO rt_tpool ASSIGNING <ls_tpool_out>.
MOVE-CORRESPONDING <ls_tpool_in> TO <ls_tpool_out>.
IF <ls_tpool_out>-id = ''S''.
CONCATENATE <ls_tpool_in>-split <ls_tpool_in>-entry
INTO <ls_tpool_out>-entry
RESPECTING BLANKS.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD serialize_cua.
CALL FUNCTION ''RS_CUA_INTERNAL_FETCH''
EXPORTING
program = iv_program_name
language = mv_language
state = c_state-active
IMPORTING
adm = rs_cua-adm
TABLES
sta = rs_cua-sta
fun = rs_cua-fun
men = rs_cua-men
mtx = rs_cua-mtx
act = rs_cua-act
but = rs_cua-but
pfk = rs_cua-pfk
set = rs_cua-set
doc = rs_cua-doc
tit = rs_cua-tit
biv = rs_cua-biv
EXCEPTIONS
not_found = 1
unknown_version = 2
OTHERS = 3.
IF sy-subrc > 1.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
METHOD serialize_dynpros.
DATA: ls_header TYPE rpy_dyhead,
lt_containers TYPE dycatt_tab,
lt_fields_to_containers TYPE dyfatc_tab,
lt_flow_logic TYPE swydyflow,
lt_d020s TYPE TABLE OF d020s,
lt_texts TYPE TABLE OF d021t,
lt_fieldlist_int TYPE TABLE OF d021s. "internal format
FIELD-SYMBOLS: <ls_d020s> LIKE LINE OF lt_d020s,
<lv_outputstyle> TYPE scrpostyle,
<ls_container> LIKE LINE OF lt_containers,
<ls_field> LIKE LINE OF lt_fields_to_containers,
<ls_dynpro> LIKE LINE OF rt_dynpro,
<ls_field_int> LIKE LINE OF lt_fieldlist_int.
"#2746: relevant flag values (taken from include MSEUSBIT)
CONSTANTS: lc_flg1ddf TYPE x VALUE ''20'',
lc_flg3fku TYPE x VALUE ''08'',
lc_flg3for TYPE x VALUE ''04'',
lc_flg3fdu TYPE x VALUE ''02''.
CALL FUNCTION ''RS_SCREEN_LIST''
EXPORTING
dynnr = ''''
progname = iv_program_name
TABLES
dynpros = lt_d020s
EXCEPTIONS
not_found = 1
OTHERS = 2.
IF sy-subrc = 2.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
SORT lt_d020s BY dnum ASCENDING.
* loop dynpros and skip generated selection screens
LOOP AT lt_d020s ASSIGNING <ls_d020s>
WHERE type <> ''S'' AND type <> ''W'' AND type <> ''J''
AND NOT dnum IS INITIAL.
CALL FUNCTION ''RPY_DYNPRO_READ''
EXPORTING
progname = iv_program_name
dynnr = <ls_d020s>-dnum
IMPORTING
header = ls_header
TABLES
containers = lt_containers
fields_to_containers = lt_fields_to_containers
flow_logic = lt_flow_logic
EXCEPTIONS
cancelled = 1
not_found = 2
permission_error = 3
OTHERS = 4.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
"#2746: we need the dynpro fields in internal format:
FREE lt_fieldlist_int.
CALL FUNCTION ''RPY_DYNPRO_READ_NATIVE''
EXPORTING
progname = iv_program_name
dynnr = <ls_d020s>-dnum
TABLES
fieldlist = lt_fieldlist_int
fieldtexts = lt_texts.
LOOP AT lt_fields_to_containers ASSIGNING <ls_field>.
* output style is a NUMC field, the XML conversion will fail if it contains invalid value
* field does not exist in all versions
ASSIGN COMPONENT ''OUTPUTSTYLE'' OF STRUCTURE <ls_field> TO <lv_outputstyle>.
IF sy-subrc = 0 AND <lv_outputstyle> = '' ''.
CLEAR <lv_outputstyle>.
ENDIF.
"2746: we apply the same logic as in SAPLWBSCREEN
"for setting or unsetting the foreignkey field:
UNASSIGN <ls_field_int>.
READ TABLE lt_fieldlist_int ASSIGNING <ls_field_int> WITH KEY fnam = <ls_field>-name.
IF <ls_field_int> IS ASSIGNED.
IF <ls_field_int>-flg1 O lc_flg1ddf AND
<ls_field_int>-flg3 O lc_flg3for AND
<ls_field_int>-flg3 Z lc_flg3fdu AND
<ls_field_int>-flg3 Z lc_flg3fku.
<ls_field>-foreignkey = ''X''.
ELSE.
CLEAR <ls_field>-foreignkey.
ENDIF.
ENDIF.
IF <ls_field>-from_dict = abap_true AND
<ls_field>-modific <> ''F'' AND
<ls_field>-modific <> ''X''.
CLEAR <ls_field>-text.
ENDIF.
ENDLOOP.
LOOP AT lt_containers ASSIGNING <ls_container>.
IF <ls_container>-c_resize_v = abap_false.
CLEAR <ls_container>-c_line_min.
ENDIF.
IF <ls_container>-c_resize_h = abap_false.
CLEAR <ls_container>-c_coln_min.
ENDIF.
ENDLOOP.
APPEND INITIAL LINE TO rt_dynpro ASSIGNING <ls_dynpro>.
<ls_dynpro>-header = ls_header.
<ls_dynpro>-flow_logic = lt_flow_logic.
READ TABLE lt_fieldlist_int TRANSPORTING NO FIELDS WITH KEY fill = ''X''.
IF ls_header-type = ''N'' AND sy-subrc = 0.
" In particular for dynpros with splitter
<ls_dynpro>-nat_header = <ls_d020s>.
CLEAR: <ls_dynpro>-nat_header-dgen, <ls_dynpro>-nat_header-tgen.
<ls_dynpro>-nat_fields = lt_fieldlist_int.
<ls_dynpro>-nat_texts = lt_texts.
ELSE.
<ls_dynpro>-containers = lt_containers.
<ls_dynpro>-fields = lt_fields_to_containers.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD serialize_program.
DATA: ls_progdir TYPE zif_abapgit_sap_report=>ty_progdir,
lv_program_name TYPE syrepid,
lt_dynpros TYPE ty_dynpro_tt,
ls_cua TYPE ty_cua,
li_report TYPE REF TO zif_abapgit_sap_report,
lt_source TYPE TABLE OF abaptxt255,
lt_tpool TYPE textpool_table,
ls_tpool LIKE LINE OF lt_tpool,
li_xml TYPE REF TO zif_abapgit_xml_output.
IF iv_program IS INITIAL.
lv_program_name = is_item-obj_name.
ELSE.
lv_program_name = iv_program.
ENDIF.
zcl_abapgit_language=>set_current_language( mv_language ).
CALL FUNCTION ''RPY_PROGRAM_READ''
EXPORTING
program_name = lv_program_name
with_includelist = abap_false
with_lowercase = abap_true
TABLES
source_extended = lt_source
textelements = lt_tpool
EXCEPTIONS
cancelled = 1
not_found = 2
permission_error = 3
OTHERS = 4.
IF sy-subrc = 2.
zcl_abapgit_language=>restore_login_language( ).
RETURN.
ELSEIF sy-subrc <> 0.
zcl_abapgit_language=>restore_login_language( ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
zcl_abapgit_language=>restore_login_language( ).
" If inactive version exists, then RPY_PROGRAM_READ does not return the active code
li_report = zcl_abapgit_factory=>get_sap_report( ).
TRY.
" Raises exception if inactive version does not exist
ls_progdir = li_report->read_progdir(
iv_name = lv_program_name
iv_state = c_state-inactive ).
" Explicitly request active source code
lt_source = li_report->read_report(
iv_name = lv_program_name
iv_state = c_state-active ).
CATCH zcx_abapgit_exception ##NO_HANDLER.
ENDTRY.
ls_progdir = li_report->read_progdir(
iv_name = lv_program_name
iv_state = c_state-active ).
clear_abap_language_version( CHANGING cv_abap_language_version = ls_progdir-uccheck ).
IF io_xml IS BOUND.
li_xml = io_xml.
ELSE.
CREATE OBJECT li_xml TYPE zcl_abapgit_xml_output.
ENDIF.
li_xml->add( iv_name = ''PROGDIR''
ig_data = ls_progdir ).
IF ls_progdir-subc = ''1'' OR ls_progdir-subc = ''M''.
lt_dynpros = serialize_dynpros( lv_program_name ).
li_xml->add( iv_name = ''DYNPROS''
ig_data = lt_dynpros ).
ls_cua = serialize_cua( lv_program_name ).
IF NOT ls_cua IS INITIAL.
li_xml->add( iv_name = ''CUA''
ig_data = ls_cua ).
ENDIF.
ENDIF.
READ TABLE lt_tpool WITH KEY id = ''R'' INTO ls_tpool.
IF sy-subrc = 0 AND ls_tpool-key = '''' AND ls_tpool-length = 0.
DELETE lt_tpool INDEX sy-tabix.
ENDIF.
li_xml->add( iv_name = ''TPOOL''
ig_data = add_tpool( lt_tpool ) ).
IF NOT io_xml IS BOUND.
io_files->add_xml( iv_extra = iv_extra
ii_xml = li_xml ).
ENDIF.
strip_generation_comments( CHANGING ct_source = lt_source ).
io_files->add_abap( iv_extra = iv_extra
it_abap = lt_source ).
ENDMETHOD.
METHOD strip_generation_comments.
FIELD-SYMBOLS <lv_line> TYPE any. " Assuming CHAR (e.g. abaptxt255_tab) or string (FUGR)
IF ms_item-obj_type <> ''FUGR''.
RETURN.
ENDIF.
" Case 1: MV FM main prog and TOPs
READ TABLE ct_source INDEX 1 ASSIGNING <lv_line>.
IF sy-subrc = 0 AND <lv_line> CP ''#**regenerated at *''.
DELETE ct_source INDEX 1.
RETURN.
ENDIF.
" Case 2: MV FM includes
IF lines( ct_source ) < 5. " Generation header length
RETURN.
ENDIF.
READ TABLE ct_source INDEX 1 ASSIGNING <lv_line>.
ASSERT sy-subrc = 0.
IF NOT <lv_line> CP ''#*---*''.
RETURN.
ENDIF.
READ TABLE ct_source INDEX 2 ASSIGNING <lv_line>.
ASSERT sy-subrc = 0.
IF NOT <lv_line> CP ''#**''.
RETURN.
ENDIF.
READ TABLE ct_source INDEX 3 ASSIGNING <lv_line>.
ASSERT sy-subrc = 0.
IF NOT <lv_line> CP ''#**generation date:*''.
RETURN.
ENDIF.
READ TABLE ct_source INDEX 4 ASSIGNING <lv_line>.
ASSERT sy-subrc = 0.
IF NOT <lv_line> CP ''#**generator version:*''.
RETURN.
ENDIF.
READ TABLE ct_source INDEX 5 ASSIGNING <lv_line>.
ASSERT sy-subrc = 0.
IF NOT <lv_line> CP ''#*---*''.
RETURN.
ENDIF.
DELETE ct_source INDEX 4.
DELETE ct_source INDEX 3.
ENDMETHOD.
METHOD uncondense_flow.
DATA: lv_spaces LIKE LINE OF it_spaces.
FIELD-SYMBOLS: <ls_flow> LIKE LINE OF it_flow,
<ls_output> LIKE LINE OF rt_flow.
LOOP AT it_flow ASSIGNING <ls_flow>.
APPEND INITIAL LINE TO rt_flow ASSIGNING <ls_output>.
<ls_output>-line = <ls_flow>-line.
READ TABLE it_spaces INDEX sy-tabix INTO lv_spaces.
IF sy-subrc = 0.
SHIFT <ls_output>-line RIGHT BY lv_spaces PLACES IN CHARACTER MODE.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD update_program.
zcl_abapgit_language=>set_current_language( mv_language ).
CALL FUNCTION ''RPY_PROGRAM_UPDATE''
EXPORTING
program_name = is_progdir-name
title_string = iv_title
save_inactive = iv_state
TABLES
source_extended = it_source
EXCEPTIONS
cancelled = 1
permission_error = 2
not_found = 3
OTHERS = 4.
IF sy-subrc <> 0.
zcl_abapgit_language=>restore_login_language( ).
IF sy-msgid = ''EU'' AND sy-msgno = ''510''.
zcx_abapgit_exception=>raise( ''User is currently editing program'' ).
ELSEIF sy-msgid = ''EU'' AND sy-msgno = ''522''.
" for generated table maintenance function groups, the author is set to SAP* instead of the user which
" generates the function group. This hits some standard checks, pulling new code again sets the author
" to the current user which avoids the check
IF is_exit_include( is_progdir-name ) = abap_false.
zcx_abapgit_exception=>raise( |Delete function group and pull again, { is_progdir-name } (EU522)| ).
ENDIF.
ELSE.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDIF.
zcl_abapgit_language=>restore_login_language( ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_OBJECTS_SUPER ', 'CLASS zcl_abapgit_objects_super DEFINITION
PUBLIC
ABSTRACT
CREATE PUBLIC.
PUBLIC SECTION.
CONSTANTS c_user_unknown TYPE syuname VALUE ''UNKNOWN''.
METHODS constructor
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_item
!iv_language TYPE spras
!io_files TYPE REF TO zcl_abapgit_objects_files OPTIONAL
!io_i18n_params TYPE REF TO zcl_abapgit_i18n_params OPTIONAL.
METHODS get_accessed_files
RETURNING
VALUE(rt_files) TYPE zif_abapgit_git_definitions=>ty_file_signatures_tt.
PROTECTED SECTION.
DATA:
ms_item TYPE zif_abapgit_definitions=>ty_item,
mv_language TYPE spras,
mo_files TYPE REF TO zcl_abapgit_objects_files,
mo_i18n_params TYPE REF TO zcl_abapgit_i18n_params.
METHODS get_metadata
RETURNING
VALUE(rs_metadata) TYPE zif_abapgit_definitions=>ty_metadata .
METHODS corr_insert
IMPORTING
!iv_package TYPE devclass
!ig_object_class TYPE any OPTIONAL
RAISING
zcx_abapgit_exception .
METHODS tadir_insert
IMPORTING
!iv_package TYPE devclass
RAISING
zcx_abapgit_exception .
METHODS tadir_delete
RAISING
zcx_abapgit_exception .
METHODS exists_a_lock_entry_for
IMPORTING
!iv_lock_object TYPE string
!iv_argument TYPE csequence OPTIONAL
!iv_prefix TYPE csequence OPTIONAL
RETURNING
VALUE(rv_exists_a_lock_entry) TYPE abap_bool
RAISING
zcx_abapgit_exception .
METHODS set_default_package
IMPORTING
!iv_package TYPE devclass .
METHODS set_default_transport
IMPORTING
!iv_transport TYPE trkorr.
METHODS serialize_longtexts
IMPORTING
!ii_xml TYPE REF TO zif_abapgit_xml_output
!iv_longtext_id TYPE dokil-id OPTIONAL
!it_dokil TYPE zif_abapgit_definitions=>ty_dokil_tt OPTIONAL
!iv_longtext_name TYPE string DEFAULT ''LONGTEXTS''
RAISING
zcx_abapgit_exception .
METHODS deserialize_longtexts
IMPORTING
!ii_xml TYPE REF TO zif_abapgit_xml_input
!iv_longtext_id TYPE dokil-id OPTIONAL
!iv_longtext_name TYPE string DEFAULT ''LONGTEXTS''
RAISING
zcx_abapgit_exception .
METHODS delete_longtexts
IMPORTING
!iv_longtext_id TYPE dokil-id
RAISING
zcx_abapgit_exception .
METHODS is_active
RETURNING
VALUE(rv_active) TYPE abap_bool
RAISING
zcx_abapgit_exception .
METHODS delete_ddic
IMPORTING
!iv_objtype TYPE string
!iv_no_ask TYPE abap_bool DEFAULT abap_true
!iv_no_ask_delete_append TYPE abap_bool DEFAULT abap_false
RAISING
zcx_abapgit_exception .
METHODS set_abap_language_version
CHANGING
!cv_abap_language_version TYPE uccheck
RAISING
zcx_abapgit_exception .
METHODS clear_abap_language_version
CHANGING
!cv_abap_language_version TYPE uccheck
RAISING
zcx_abapgit_exception .
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_objects_super IMPLEMENTATION.
METHOD clear_abap_language_version.
" Used during serializing of objects
IF ms_item-abap_language_version = zcl_abapgit_abap_language_vers=>c_no_abap_language_version.
" Ignore ABAP language version
CLEAR cv_abap_language_version.
ELSEIF ms_item-abap_language_version <> zcl_abapgit_abap_language_vers=>c_any_abap_language_version.
" Check if ABAP language version matches repository setting
zcl_abapgit_abap_language_vers=>check_abap_language_version(
iv_abap_language_version = cv_abap_language_version
is_item = ms_item ).
ENDIF.
ENDMETHOD.
METHOD constructor.
ms_item = is_item.
ASSERT NOT ms_item IS INITIAL.
mv_language = iv_language.
ASSERT NOT mv_language IS INITIAL.
IF io_files IS NOT INITIAL.
mo_files = io_files.
ELSE.
mo_files = zcl_abapgit_objects_files=>new( is_item ). " New file collection
ENDIF.
IF io_i18n_params IS NOT INITIAL.
mo_i18n_params = io_i18n_params.
ELSE.
mo_i18n_params = zcl_abapgit_i18n_params=>new( ). " All defaults
ENDIF.
ENDMETHOD.
METHOD corr_insert.
DATA: lv_object TYPE trobj_name,
lv_object_class TYPE tadir-object.
IF ig_object_class IS NOT INITIAL.
lv_object_class = ig_object_class.
IF ig_object_class = ''DICT''.
CONCATENATE ms_item-obj_type ms_item-obj_name INTO lv_object.
ELSE.
lv_object = ms_item-obj_name.
ENDIF.
ELSE.
lv_object_class = ms_item-obj_type.
lv_object = ms_item-obj_name.
ENDIF.
zcl_abapgit_factory=>get_cts_api( )->insert_transport_object(
iv_object = lv_object_class
iv_obj_name = lv_object
iv_package = iv_package
iv_language = mv_language ).
ENDMETHOD.
METHOD delete_ddic.
DATA: lv_objname TYPE rsedd0-ddobjname,
lv_objtype TYPE rsedd0-ddobjtype.
lv_objname = ms_item-obj_name.
lv_objtype = iv_objtype.
TRY.
CALL FUNCTION ''RS_DD_DELETE_OBJ''
EXPORTING
no_ask = iv_no_ask
objname = lv_objname
objtype = lv_objtype
no_ask_delete_append = iv_no_ask_delete_append
EXCEPTIONS
not_executed = 1
object_not_found = 2
object_not_specified = 3
permission_failure = 4
dialog_needed = 5
OTHERS = 6.
CATCH cx_sy_dyn_call_param_not_found.
TRY.
" try to force deletion for APPENDs
CALL FUNCTION ''RS_DD_DELETE_OBJ''
EXPORTING
no_ask = iv_no_ask
objname = lv_objname
objtype = lv_objtype
aie_force_deletion = iv_no_ask_delete_append
EXCEPTIONS
not_executed = 1
object_not_found = 2
object_not_specified = 3
permission_failure = 4
dialog_needed = 5
OTHERS = 6.
CATCH cx_sy_dyn_call_param_not_found.
" no_ask_delete_append and aie_force_deletion not available in lower releases
CALL FUNCTION ''RS_DD_DELETE_OBJ''
EXPORTING
no_ask = iv_no_ask
objname = lv_objname
objtype = lv_objtype
EXCEPTIONS
not_executed = 1
object_not_found = 2
object_not_specified = 3
permission_failure = 4
dialog_needed = 5
OTHERS = 6.
ENDTRY.
ENDTRY.
IF sy-subrc = 5.
zcx_abapgit_exception=>raise( |Object { ms_item-obj_type } { ms_item-obj_name
} has dependencies and must be deleted manually| ).
ELSEIF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error deleting { ms_item-obj_type } { ms_item-obj_name }| ).
ENDIF.
ENDMETHOD.
METHOD delete_longtexts.
zcl_abapgit_factory=>get_longtexts( )->delete(
iv_longtext_id = iv_longtext_id
iv_object_name = ms_item-obj_name ).
ENDMETHOD.
METHOD deserialize_longtexts.
zcl_abapgit_factory=>get_longtexts( )->deserialize(
ii_xml = ii_xml
iv_longtext_name = iv_longtext_name
iv_object_name = ms_item-obj_name
iv_longtext_id = iv_longtext_id
iv_main_language = mv_language ).
ENDMETHOD.
METHOD exists_a_lock_entry_for.
DATA: lt_lock_entries TYPE STANDARD TABLE OF seqg3.
DATA: lv_argument TYPE seqg3-garg.
IF iv_prefix IS INITIAL.
lv_argument = iv_argument.
ELSE.
lv_argument = |{ iv_prefix }{ iv_argument }|.
OVERLAY lv_argument WITH '' ''.
lv_argument = lv_argument && ''*''.
ENDIF.
CALL FUNCTION ''ENQUEUE_READ''
EXPORTING
guname = ''*''
garg = lv_argument
TABLES
enq = lt_lock_entries
EXCEPTIONS
communication_failure = 1
system_failure = 2
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
READ TABLE lt_lock_entries TRANSPORTING NO FIELDS
WITH KEY gobj = iv_lock_object.
IF sy-subrc = 0.
rv_exists_a_lock_entry = abap_true.
ENDIF.
ENDMETHOD.
METHOD get_accessed_files.
rt_files = mo_files->get_accessed_files( ).
ENDMETHOD.
METHOD get_metadata.
DATA: lv_class TYPE string.
lv_class = cl_abap_classdescr=>describe_by_object_ref( me )->get_relative_name( ).
REPLACE FIRST OCCURRENCE OF ''ZCL_ABAPGIT'' IN lv_class WITH ''LCL''.
rs_metadata-class = lv_class.
rs_metadata-version = ''v1.0.0''.
ENDMETHOD.
METHOD is_active.
rv_active = zcl_abapgit_objects_activation=>is_active( ms_item ).
ENDMETHOD.
METHOD serialize_longtexts.
zcl_abapgit_factory=>get_longtexts( )->serialize(
iv_object_name = ms_item-obj_name
iv_longtext_name = iv_longtext_name
iv_longtext_id = iv_longtext_id
it_dokil = it_dokil
io_i18n_params = mo_i18n_params
ii_xml = ii_xml ).
ENDMETHOD.
METHOD set_abap_language_version.
" Used during deserializing of objects
IF ms_item-abap_language_version = zcl_abapgit_abap_language_vers=>c_no_abap_language_version.
" ABAP language version is derived from object type and target package (see zcl_abapgit_objects->deserialize)
cv_abap_language_version = ms_item-abap_language_version.
ELSEIF ms_item-abap_language_version <> zcl_abapgit_abap_language_vers=>c_any_abap_language_version.
" Check if ABAP language version matches repository setting
zcl_abapgit_abap_language_vers=>check_abap_language_version(
iv_abap_language_version = cv_abap_language_version
is_item = ms_item ).
ENDIF.
ENDMETHOD.
METHOD set_default_package.
" In certain cases we need to set the package via ABAP memory
" because we can''t supply it via the APIs.
"
" Set default package, see function module RS_CORR_INSERT FORM get_current_devclass.
"
" We use ABAP memory instead the SET parameter because it is
" more reliable. SET parameter doesn''t work when multiple objects
" are deserialized which uses the ABAP memory mechanism.
" We don''t need to reset the memory as it is done in above mentioned form routine.
EXPORT current_devclass FROM iv_package TO MEMORY ID ''EUK''.
ENDMETHOD.
METHOD set_default_transport.
" In certain cases we need to set the transport via ABAP memory
" because we can''t supply it via the APIs.
"
" See function module RS_CORR_INSERT
EXPORT tasknr FROM iv_transport TO MEMORY ID ''EUT''.
ENDMETHOD.
METHOD tadir_delete.
CALL FUNCTION ''TR_TADIR_INTERFACE''
EXPORTING
wi_delete_tadir_entry = abap_true
wi_tadir_pgmid = ''R3TR''
wi_tadir_object = ms_item-obj_type
wi_tadir_obj_name = ms_item-obj_name
wi_test_modus = abap_false
EXCEPTIONS
tadir_entry_not_existing = 1
tadir_entry_ill_type = 2
no_systemname = 3
no_systemtype = 4
original_system_conflict = 5
object_reserved_for_devclass = 6
object_exists_global = 7
object_exists_local = 8
object_is_distributed = 9
obj_specification_not_unique = 10
no_authorization_to_delete = 11
devclass_not_existing = 12
simultanious_set_remove_repair = 13
order_missing = 14
no_modification_of_head_syst = 15
pgmid_object_not_allowed = 16
masterlanguage_not_specified = 17
devclass_not_specified = 18
specify_owner_unique = 19
loc_priv_objs_no_repair = 20
gtadir_not_reached = 21
object_locked_for_order = 22
change_of_class_not_allowed = 23
no_change_from_sap_to_tmp = 24
OTHERS = 25.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
METHOD tadir_insert.
CALL FUNCTION ''TR_TADIR_INTERFACE''
EXPORTING
wi_test_modus = abap_false
wi_tadir_pgmid = ''R3TR''
wi_tadir_object = ms_item-obj_type
wi_tadir_obj_name = ms_item-obj_name
wi_tadir_author = sy-uname
wi_tadir_devclass = iv_package
wi_tadir_masterlang = mv_language
iv_delflag = abap_false
EXCEPTIONS
tadir_entry_not_existing = 1
tadir_entry_ill_type = 2
no_systemname = 3
no_systemtype = 4
original_system_conflict = 5
object_reserved_for_devclass = 6
object_exists_global = 7
object_exists_local = 8
object_is_distributed = 9
obj_specification_not_unique = 10
no_authorization_to_delete = 11
devclass_not_existing = 12
simultanious_set_remove_repair = 13
order_missing = 14
no_modification_of_head_syst = 15
pgmid_object_not_allowed = 16
masterlanguage_not_specified = 17
devclass_not_specified = 18
specify_owner_unique = 19
loc_priv_objs_no_repair = 20
gtadir_not_reached = 21
object_locked_for_order = 22
change_of_class_not_allowed = 23
no_change_from_sap_to_tmp = 24
OTHERS = 25.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_COMPARATOR ', 'INTERFACE zif_abapgit_comparator
PUBLIC .
TYPES:
BEGIN OF ty_result,
text TYPE string,
END OF ty_result .
METHODS compare
IMPORTING
!ii_remote TYPE REF TO zif_abapgit_xml_input
!ii_log TYPE REF TO zif_abapgit_log
RETURNING
VALUE(rs_result) TYPE ty_result
RAISING
zcx_abapgit_exception .
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_OBJECT ', 'INTERFACE zif_abapgit_object
PUBLIC .
CONSTANTS:
BEGIN OF gc_step_id,
early TYPE zif_abapgit_definitions=>ty_deserialization_step VALUE \`EARLY\`,
abap TYPE zif_abapgit_definitions=>ty_deserialization_step VALUE \`ABAP\`,
ddic TYPE zif_abapgit_definitions=>ty_deserialization_step VALUE \`DDIC\`,
late TYPE zif_abapgit_definitions=>ty_deserialization_step VALUE \`LATE\`,
END OF gc_step_id.
METHODS serialize
IMPORTING
!io_xml TYPE REF TO zif_abapgit_xml_output
RAISING
zcx_abapgit_exception .
METHODS deserialize
IMPORTING
!iv_package TYPE devclass
!io_xml TYPE REF TO zif_abapgit_xml_input
!iv_step TYPE zif_abapgit_definitions=>ty_deserialization_step
!ii_log TYPE REF TO zif_abapgit_log
!iv_transport TYPE trkorr
RAISING
zcx_abapgit_exception .
METHODS delete
IMPORTING
!iv_package TYPE devclass
!iv_transport TYPE trkorr
RAISING
zcx_abapgit_exception .
METHODS exists
RETURNING
VALUE(rv_bool) TYPE abap_bool
RAISING
zcx_abapgit_exception .
METHODS is_locked
RETURNING
VALUE(rv_is_locked) TYPE abap_bool
RAISING
zcx_abapgit_exception .
METHODS is_active
RETURNING
VALUE(rv_active) TYPE abap_bool
RAISING
zcx_abapgit_exception .
METHODS changed_by
IMPORTING
!iv_extra TYPE string OPTIONAL
RETURNING
VALUE(rv_user) TYPE syuname
RAISING
zcx_abapgit_exception .
METHODS jump
IMPORTING
!iv_extra TYPE string OPTIONAL
RETURNING
VALUE(rv_exit) TYPE abap_bool
RAISING
zcx_abapgit_exception .
METHODS get_metadata
RETURNING
VALUE(rs_metadata) TYPE zif_abapgit_definitions=>ty_metadata .
METHODS get_comparator
RETURNING
VALUE(ri_comparator) TYPE REF TO zif_abapgit_comparator
RAISING
zcx_abapgit_exception .
METHODS get_deserialize_steps
RETURNING
VALUE(rt_steps) TYPE zif_abapgit_definitions=>ty_deserialization_step_tt .
METHODS get_deserialize_order
IMPORTING
!it_all_objects TYPE zif_abapgit_definitions=>ty_items_tt
RETURNING
VALUE(rt_objects_before) TYPE zif_abapgit_definitions=>ty_items_tt.
CLASS-METHODS map_filename_to_object
IMPORTING
!iv_filename TYPE string
!iv_path TYPE string OPTIONAL
!io_dot TYPE REF TO zcl_abapgit_dot_abapgit OPTIONAL
!iv_package TYPE devclass OPTIONAL
CHANGING
cs_item TYPE zif_abapgit_definitions=>ty_item
RAISING
zcx_abapgit_exception.
CLASS-METHODS map_object_to_filename
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_item
!iv_ext TYPE string
!iv_extra TYPE clike
CHANGING
cv_filename TYPE string
RAISING
zcx_abapgit_exception.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_OBJECTS ', 'INTERFACE zif_abapgit_objects
PUBLIC.
TYPES:
BEGIN OF ty_serialization,
files TYPE zif_abapgit_git_definitions=>ty_files_tt,
item TYPE zif_abapgit_definitions=>ty_item,
END OF ty_serialization .
TYPES:
BEGIN OF ty_deserialization,
obj TYPE REF TO zif_abapgit_object,
xml TYPE REF TO zif_abapgit_xml_input,
package TYPE devclass,
item TYPE zif_abapgit_definitions=>ty_item,
END OF ty_deserialization .
TYPES:
ty_deserialization_tt TYPE STANDARD TABLE OF ty_deserialization WITH DEFAULT KEY .
TYPES:
BEGIN OF ty_step_data,
step_id TYPE zif_abapgit_definitions=>ty_deserialization_step,
order TYPE i,
descr TYPE string,
syntax_check TYPE abap_bool,
objects TYPE ty_deserialization_tt,
END OF ty_step_data .
TYPES:
ty_step_data_tt TYPE STANDARD TABLE OF ty_step_data
WITH DEFAULT KEY .
CONSTANTS:
BEGIN OF c_deserialize_action,
" also used to determine priority if object has multiple changes, so don''t change order
no_support TYPE i VALUE -1,
none TYPE i VALUE 0,
add TYPE i VALUE 1,
update TYPE i VALUE 2,
overwrite TYPE i VALUE 3,
delete TYPE i VALUE 4,
delete_add TYPE i VALUE 5,
packmove TYPE i VALUE 6,
END OF c_deserialize_action.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_PERSIST_BACKGROUND ', 'CLASS zcl_abapgit_persist_background DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
TYPES:
BEGIN OF ty_xml,
method TYPE string,
username TYPE string,
password TYPE string,
settings TYPE zif_abapgit_background=>ty_settings_tt,
END OF ty_xml .
TYPES:
BEGIN OF ty_background,
key TYPE zif_abapgit_persistence=>ty_value.
INCLUDE TYPE ty_xml.
TYPES: END OF ty_background .
TYPES:
ty_background_keys TYPE STANDARD TABLE OF ty_background WITH DEFAULT KEY .
METHODS constructor .
METHODS list
RETURNING
VALUE(rt_list) TYPE ty_background_keys
RAISING
zcx_abapgit_exception .
METHODS get_by_key
IMPORTING
!iv_key TYPE ty_background-key
RETURNING
VALUE(rs_data) TYPE ty_background
RAISING
zcx_abapgit_exception
zcx_abapgit_not_found .
METHODS modify
IMPORTING
!is_data TYPE ty_background
RAISING
zcx_abapgit_exception .
METHODS delete
IMPORTING
!iv_key TYPE ty_background-key
RAISING
zcx_abapgit_exception .
METHODS exists
IMPORTING
!iv_key TYPE ty_background-key
RETURNING
VALUE(rv_yes) TYPE abap_bool
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
PRIVATE SECTION.
DATA mo_db TYPE REF TO zcl_abapgit_persistence_db .
METHODS from_xml
IMPORTING
!iv_string TYPE string
RETURNING
VALUE(rs_xml) TYPE ty_xml
RAISING
zcx_abapgit_exception .
METHODS to_xml
IMPORTING
!is_background TYPE ty_background
RETURNING
VALUE(rv_string) TYPE string .
ENDCLASS.
CLASS ZCL_ABAPGIT_PERSIST_BACKGROUND IMPLEMENTATION.
METHOD constructor.
mo_db = zcl_abapgit_persistence_db=>get_instance( ).
ENDMETHOD.
METHOD delete.
TRY.
mo_db->read( iv_type = zcl_abapgit_persistence_db=>c_type_background
iv_value = iv_key ).
CATCH zcx_abapgit_not_found.
RETURN.
ENDTRY.
mo_db->delete( iv_type = zcl_abapgit_persistence_db=>c_type_background
iv_value = iv_key ).
ENDMETHOD.
METHOD exists.
TRY.
mo_db->read( iv_type = zcl_abapgit_persistence_db=>c_type_background
iv_value = iv_key ).
rv_yes = abap_true.
CATCH zcx_abapgit_not_found.
rv_yes = abap_false.
ENDTRY.
ENDMETHOD.
METHOD from_xml.
CALL TRANSFORMATION id
OPTIONS value_handling = ''accept_data_loss''
SOURCE XML iv_string
RESULT data = rs_xml.
ENDMETHOD.
METHOD get_by_key.
DATA: lt_list TYPE ty_background_keys.
lt_list = list( ).
READ TABLE lt_list WITH KEY key = iv_key INTO rs_data.
IF sy-subrc <> 0.
RAISE EXCEPTION TYPE zcx_abapgit_not_found.
ENDIF.
ENDMETHOD.
METHOD list.
DATA: lt_list TYPE zif_abapgit_persistence=>ty_contents,
ls_xml TYPE ty_xml.
FIELD-SYMBOLS: <ls_list> LIKE LINE OF lt_list,
<ls_output> LIKE LINE OF rt_list.
lt_list = mo_db->list_by_type( zcl_abapgit_persistence_db=>c_type_background ).
LOOP AT lt_list ASSIGNING <ls_list>.
ls_xml = from_xml( <ls_list>-data_str ).
APPEND INITIAL LINE TO rt_list ASSIGNING <ls_output>.
MOVE-CORRESPONDING ls_xml TO <ls_output>.
<ls_output>-key = <ls_list>-value.
ENDLOOP.
ENDMETHOD.
METHOD modify.
ASSERT NOT is_data-key IS INITIAL.
mo_db->modify(
iv_type = zcl_abapgit_persistence_db=>c_type_background
iv_value = is_data-key
iv_data = to_xml( is_data ) ).
ENDMETHOD.
METHOD to_xml.
DATA: ls_xml TYPE ty_xml.
MOVE-CORRESPONDING is_background TO ls_xml.
CALL TRANSFORMATION id
SOURCE data = ls_xml
RESULT XML rv_string.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_PERSIST_FACTORY ', 'CLASS zcl_abapgit_persist_factory DEFINITION
PUBLIC
CREATE PRIVATE
GLOBAL FRIENDS zcl_abapgit_persist_injector .
PUBLIC SECTION.
CLASS-METHODS get_repo
RETURNING
VALUE(ri_repo) TYPE REF TO zif_abapgit_persist_repo .
CLASS-METHODS get_repo_cs
RETURNING
VALUE(ri_repo_cs) TYPE REF TO zif_abapgit_persist_repo_cs .
CLASS-METHODS get_settings
RETURNING
VALUE(ri_settings) TYPE REF TO zif_abapgit_persist_settings .
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-DATA gi_repo TYPE REF TO zif_abapgit_persist_repo .
CLASS-DATA gi_repo_cs TYPE REF TO zif_abapgit_persist_repo_cs .
CLASS-DATA gi_settings TYPE REF TO zif_abapgit_persist_settings .
ENDCLASS.
CLASS ZCL_ABAPGIT_PERSIST_FACTORY IMPLEMENTATION.
METHOD get_repo.
IF gi_repo IS INITIAL.
CREATE OBJECT gi_repo TYPE zcl_abapgit_persistence_repo.
ENDIF.
ri_repo = gi_repo.
ENDMETHOD.
METHOD get_repo_cs.
IF gi_repo_cs IS INITIAL.
CREATE OBJECT gi_repo_cs TYPE zcl_abapgit_persistence_repo.
ENDIF.
ri_repo_cs = gi_repo_cs.
ENDMETHOD.
METHOD get_settings.
IF gi_settings IS INITIAL.
CREATE OBJECT gi_settings TYPE zcl_abapgit_persist_settings.
ENDIF.
ri_settings = gi_settings.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_PERSIST_INJECTOR ', 'CLASS zcl_abapgit_persist_injector DEFINITION
PUBLIC
CREATE PRIVATE
FOR TESTING .
PUBLIC SECTION.
CLASS-METHODS set_repo
IMPORTING
!ii_repo TYPE REF TO zif_abapgit_persist_repo .
CLASS-METHODS set_repo_cs
IMPORTING
!ii_repo_cs TYPE REF TO zif_abapgit_persist_repo_cs .
CLASS-METHODS set_settings
IMPORTING
!ii_settings TYPE REF TO zif_abapgit_persist_settings .
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS ZCL_ABAPGIT_PERSIST_INJECTOR IMPLEMENTATION.
METHOD set_repo.
zcl_abapgit_persist_factory=>gi_repo = ii_repo.
ENDMETHOD.
METHOD set_repo_cs.
zcl_abapgit_persist_factory=>gi_repo_cs = ii_repo_cs.
ENDMETHOD.
METHOD set_settings.
zcl_abapgit_persist_factory=>gi_settings = ii_settings.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_PERSIST_MIGRATE ', 'CLASS zcl_abapgit_persist_migrate DEFINITION PUBLIC CREATE PUBLIC.
PUBLIC SECTION.
CLASS-METHODS: run RAISING zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS c_text TYPE string VALUE ''Generated by abapGit'' ##NO_TEXT.
CLASS-METHODS table_create
RAISING
zcx_abapgit_exception.
CLASS-METHODS table_exists
RETURNING
VALUE(rv_exists) TYPE abap_bool.
CLASS-METHODS lock_create
RAISING
zcx_abapgit_exception.
CLASS-METHODS lock_exists
RETURNING
VALUE(rv_exists) TYPE abap_bool.
CLASS-METHODS gui_status_create
RAISING
zcx_abapgit_exception.
CLASS-METHODS gui_status_exists
RETURNING
VALUE(rv_exists) TYPE abap_bool.
ENDCLASS.
CLASS zcl_abapgit_persist_migrate IMPLEMENTATION.
METHOD gui_status_create.
DATA ls_cua TYPE zcl_abapgit_objects_program=>ty_cua.
IF zcl_abapgit_factory=>get_environment( )->is_merged( ) = abap_false.
RETURN. " No autocreation for full version
ENDIF.
IF gui_status_exists( ) = abap_true.
RETURN.
ENDIF.
ls_cua = lcl_own_cua_provider=>get( ).
IF ls_cua IS INITIAL. " Full version or something wrong with abapmerged version
RETURN.
ENDIF.
TRY.
lcl_cua_interface=>new( )->put_own_cua( ls_cua ).
CATCH zcx_abapgit_exception.
ENDTRY.
ENDMETHOD.
METHOD gui_status_exists.
DATA ls_own_cua TYPE zcl_abapgit_objects_program=>ty_cua.
DATA ls_new_cua TYPE zcl_abapgit_objects_program=>ty_cua.
DATA lv_x_own TYPE xstring.
DATA lv_x_new TYPE xstring.
DATA lv_h_own TYPE zif_abapgit_git_definitions=>ty_sha1.
DATA lv_h_new TYPE zif_abapgit_git_definitions=>ty_sha1.
TRY.
ls_own_cua = lcl_cua_interface=>new( )->get_own_cua( ).
CATCH zcx_abapgit_exception.
ENDTRY.
IF ls_own_cua IS INITIAL.
rv_exists = abap_false.
RETURN.
ENDIF.
ls_new_cua = lcl_own_cua_provider=>get( ).
IF ls_new_cua IS INITIAL.
rv_exists = abap_true. " own exists and new is not - nothing to compare with
RETURN.
ENDIF.
EXPORT data = ls_own_cua TO DATA BUFFER lv_x_own.
EXPORT data = ls_new_cua TO DATA BUFFER lv_x_new.
TRY.
lv_h_own = zcl_abapgit_hash=>sha1_raw( lv_x_own ).
lv_h_new = zcl_abapgit_hash=>sha1_raw( lv_x_new ).
CATCH zcx_abapgit_exception.
rv_exists = abap_true. " own exists and some issue with calculating hash ... assume own is OK
RETURN.
ENDTRY.
" New exists and differs from own - then it is really new, needs to be installed
rv_exists = boolc( lv_h_own = lv_h_new ).
ENDMETHOD.
METHOD lock_create.
DATA: lv_obj_name TYPE tadir-obj_name,
ls_dd25v TYPE dd25v,
lt_dd26e TYPE STANDARD TABLE OF dd26e WITH DEFAULT KEY,
lt_dd27p TYPE STANDARD TABLE OF dd27p WITH DEFAULT KEY.
FIELD-SYMBOLS: <ls_dd26e> LIKE LINE OF lt_dd26e,
<ls_dd27p> LIKE LINE OF lt_dd27p.
ls_dd25v-viewname = zcl_abapgit_persistence_db=>c_lock.
ls_dd25v-aggtype = ''E''.
ls_dd25v-roottab = zcl_abapgit_persistence_db=>c_tabname.
ls_dd25v-ddlanguage = zif_abapgit_definitions=>c_english.
ls_dd25v-ddtext = c_text.
APPEND INITIAL LINE TO lt_dd26e ASSIGNING <ls_dd26e>.
<ls_dd26e>-viewname = zcl_abapgit_persistence_db=>c_lock.
<ls_dd26e>-tabname = zcl_abapgit_persistence_db=>c_tabname.
<ls_dd26e>-tabpos = ''0001''.
<ls_dd26e>-fortabname = zcl_abapgit_persistence_db=>c_tabname.
<ls_dd26e>-enqmode = ''E''.
APPEND INITIAL LINE TO lt_dd27p ASSIGNING <ls_dd27p>.
<ls_dd27p>-viewname = zcl_abapgit_persistence_db=>c_lock.
<ls_dd27p>-objpos = ''0001''.
<ls_dd27p>-viewfield = ''TYPE''.
<ls_dd27p>-tabname = zcl_abapgit_persistence_db=>c_tabname.
<ls_dd27p>-fieldname = ''TYPE''.
<ls_dd27p>-keyflag = abap_true.
APPEND INITIAL LINE TO lt_dd27p ASSIGNING <ls_dd27p>.
<ls_dd27p>-viewname = zcl_abapgit_persistence_db=>c_lock.
<ls_dd27p>-objpos = ''0002''.
<ls_dd27p>-viewfield = ''VALUE''.
<ls_dd27p>-tabname = zcl_abapgit_persistence_db=>c_tabname.
<ls_dd27p>-fieldname = ''VALUE''.
<ls_dd27p>-keyflag = abap_true.
CALL FUNCTION ''DDIF_ENQU_PUT''
EXPORTING
name = zcl_abapgit_persistence_db=>c_lock
dd25v_wa = ls_dd25v
TABLES
dd26e_tab = lt_dd26e
dd27p_tab = lt_dd27p
EXCEPTIONS
enqu_not_found = 1
name_inconsistent = 2
enqu_inconsistent = 3
put_failure = 4
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
lv_obj_name = zcl_abapgit_persistence_db=>c_lock.
CALL FUNCTION ''TR_TADIR_INTERFACE''
EXPORTING
wi_tadir_pgmid = ''R3TR''
wi_tadir_object = ''ENQU''
wi_tadir_obj_name = lv_obj_name
wi_set_genflag = abap_true
wi_test_modus = abap_false
wi_tadir_devclass = ''$TMP''
EXCEPTIONS
OTHERS = 1.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
CALL FUNCTION ''DDIF_ENQU_ACTIVATE''
EXPORTING
name = zcl_abapgit_persistence_db=>c_lock
EXCEPTIONS
not_found = 1
put_failure = 2
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''migrate, error from DDIF_ENQU_ACTIVATE'' ).
ENDIF.
ENDMETHOD.
METHOD lock_exists.
DATA: lv_viewname TYPE dd25l-viewname.
SELECT SINGLE viewname FROM dd25l INTO lv_viewname
WHERE viewname = zcl_abapgit_persistence_db=>c_lock.
rv_exists = boolc( sy-subrc = 0 ).
ENDMETHOD.
METHOD run.
IF table_exists( ) = abap_false.
table_create( ).
ENDIF.
IF lock_exists( ) = abap_false.
lock_create( ).
ENDIF.
gui_status_create( ).
ENDMETHOD.
METHOD table_create.
DATA: lv_rc LIKE sy-subrc,
lv_obj_name TYPE tadir-obj_name,
ls_dd02v TYPE dd02v,
ls_dd09l TYPE dd09l,
lt_dd03p TYPE STANDARD TABLE OF dd03p WITH DEFAULT KEY.
FIELD-SYMBOLS: <ls_dd03p> LIKE LINE OF lt_dd03p.
ls_dd02v-tabname = zcl_abapgit_persistence_db=>c_tabname.
ls_dd02v-ddlanguage = zif_abapgit_definitions=>c_english.
ls_dd02v-tabclass = ''TRANSP''.
ls_dd02v-ddtext = c_text.
ls_dd02v-contflag = ''L''.
ls_dd02v-exclass = ''1''.
ls_dd09l-tabname = zcl_abapgit_persistence_db=>c_tabname.
ls_dd09l-as4local = ''A''.
ls_dd09l-tabkat = ''1''.
ls_dd09l-tabart = ''APPL1''.
ls_dd09l-bufallow = ''N''.
APPEND INITIAL LINE TO lt_dd03p ASSIGNING <ls_dd03p>.
<ls_dd03p>-tabname = zcl_abapgit_persistence_db=>c_tabname.
<ls_dd03p>-fieldname = ''TYPE''.
<ls_dd03p>-position = ''0001''.
<ls_dd03p>-keyflag = ''X''.
<ls_dd03p>-datatype = ''CHAR''.
<ls_dd03p>-leng = ''000012''.
APPEND INITIAL LINE TO lt_dd03p ASSIGNING <ls_dd03p>.
<ls_dd03p>-tabname = zcl_abapgit_persistence_db=>c_tabname.
<ls_dd03p>-fieldname = ''VALUE''.
<ls_dd03p>-position = ''0002''.
<ls_dd03p>-keyflag = ''X''.
<ls_dd03p>-datatype = ''CHAR''.
<ls_dd03p>-leng = ''000012''.
APPEND INITIAL LINE TO lt_dd03p ASSIGNING <ls_dd03p>.
<ls_dd03p>-tabname = zcl_abapgit_persistence_db=>c_tabname.
<ls_dd03p>-fieldname = ''DATA_STR''.
<ls_dd03p>-position = ''0003''.
<ls_dd03p>-datatype = ''STRG''.
CALL FUNCTION ''DDIF_TABL_PUT''
EXPORTING
name = zcl_abapgit_persistence_db=>c_tabname
dd02v_wa = ls_dd02v
dd09l_wa = ls_dd09l
TABLES
dd03p_tab = lt_dd03p
EXCEPTIONS
tabl_not_found = 1
name_inconsistent = 2
tabl_inconsistent = 3
put_failure = 4
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
lv_obj_name = zcl_abapgit_persistence_db=>c_tabname.
CALL FUNCTION ''TR_TADIR_INTERFACE''
EXPORTING
wi_tadir_pgmid = ''R3TR''
wi_tadir_object = ''TABL''
wi_tadir_obj_name = lv_obj_name
wi_set_genflag = abap_true
wi_test_modus = abap_false
wi_tadir_devclass = ''$TMP''
EXCEPTIONS
OTHERS = 1.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
CALL FUNCTION ''DDIF_TABL_ACTIVATE''
EXPORTING
name = zcl_abapgit_persistence_db=>c_tabname
auth_chk = abap_false
IMPORTING
rc = lv_rc
EXCEPTIONS
not_found = 1
put_failure = 2
OTHERS = 3.
IF sy-subrc <> 0 OR lv_rc <> 0.
zcx_abapgit_exception=>raise( ''migrate, error from DDIF_TABL_ACTIVATE'' ).
ENDIF.
ENDMETHOD.
METHOD table_exists.
DATA: lv_tabname TYPE dd02l-tabname.
SELECT SINGLE tabname FROM dd02l INTO lv_tabname
WHERE tabname = zcl_abapgit_persistence_db=>c_tabname. "#EC CI_NOORDER
rv_exists = boolc( sy-subrc = 0 ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_PERSIST_PACKAGES ', 'CLASS zcl_abapgit_persist_packages DEFINITION
PUBLIC
CREATE PRIVATE .
PUBLIC SECTION.
TYPES:
BEGIN OF ty_package,
devclass TYPE scompkdtln-devclass,
component TYPE scompkdtln-component,
comp_posid TYPE scompkdtln-comp_posid,
END OF ty_package .
TYPES:
ty_packages TYPE HASHED TABLE OF ty_package WITH UNIQUE KEY devclass .
METHODS init .
METHODS modify
IMPORTING
!iv_package TYPE scompkdtln-devclass
!iv_component TYPE scompkdtln-component OPTIONAL
!iv_comp_posid TYPE scompkdtln-comp_posid OPTIONAL
RAISING
zcx_abapgit_exception .
METHODS read
IMPORTING
!iv_package TYPE scompkdtln-devclass
RETURNING
VALUE(rs_package) TYPE ty_package .
CLASS-METHODS get_instance
RETURNING
VALUE(ro_persist) TYPE REF TO zcl_abapgit_persist_packages .
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-DATA go_persist TYPE REF TO zcl_abapgit_persist_packages.
DATA mt_packages TYPE ty_packages.
METHODS from_xml
IMPORTING
iv_xml TYPE string
RETURNING
VALUE(rt_packages) TYPE ty_packages
RAISING
zcx_abapgit_exception.
METHODS to_xml
IMPORTING
it_packages TYPE ty_packages
RETURNING
VALUE(rv_xml) TYPE string
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_persist_packages IMPLEMENTATION.
METHOD from_xml.
DATA lo_input TYPE REF TO zif_abapgit_xml_input.
CREATE OBJECT lo_input TYPE zcl_abapgit_xml_input EXPORTING iv_xml = iv_xml.
lo_input->read(
EXPORTING
iv_name = zcl_abapgit_persistence_db=>c_type_packages
CHANGING
cg_data = rt_packages ).
ENDMETHOD.
METHOD get_instance.
IF go_persist IS NOT BOUND.
CREATE OBJECT go_persist.
ENDIF.
ro_persist = go_persist.
ENDMETHOD.
METHOD init.
TRY.
" Might have changed in another session so always get latest
mt_packages = from_xml( zcl_abapgit_persistence_db=>get_instance( )->read(
iv_type = zcl_abapgit_persistence_db=>c_type_packages
iv_value = '''' ) ).
CATCH zcx_abapgit_exception zcx_abapgit_not_found ##NO_HANDLER.
ENDTRY.
ENDMETHOD.
METHOD modify.
DATA ls_package LIKE LINE OF mt_packages.
FIELD-SYMBOLS <ls_package> LIKE LINE OF mt_packages.
init( ).
IF iv_component IS INITIAL AND iv_comp_posid IS INITIAL.
DELETE mt_packages WHERE devclass = iv_package.
ELSE.
READ TABLE mt_packages ASSIGNING <ls_package> WITH TABLE KEY devclass = iv_package.
IF sy-subrc = 0.
<ls_package>-component = iv_component.
<ls_package>-comp_posid = iv_comp_posid.
ELSE.
ls_package-devclass = iv_package.
ls_package-component = iv_component.
ls_package-comp_posid = iv_comp_posid.
INSERT ls_package INTO TABLE mt_packages.
ENDIF.
ENDIF.
zcl_abapgit_persistence_db=>get_instance( )->modify(
iv_type = zcl_abapgit_persistence_db=>c_type_packages
iv_value = ''''
iv_data = to_xml( mt_packages ) ).
COMMIT WORK AND WAIT.
ENDMETHOD.
METHOD read.
init( ).
READ TABLE mt_packages INTO rs_package WITH TABLE KEY devclass = iv_package.
IF sy-subrc <> 0.
rs_package-devclass = iv_package. " no component
ENDIF.
ENDMETHOD.
METHOD to_xml.
DATA li_output TYPE REF TO zif_abapgit_xml_output.
CREATE OBJECT li_output TYPE zcl_abapgit_xml_output.
li_output->add(
iv_name = zcl_abapgit_persistence_db=>c_type_packages
ig_data = it_packages ).
rv_xml = li_output->render( ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_PERSIST_SETTINGS ', 'CLASS zcl_abapgit_persist_settings DEFINITION
PUBLIC
CREATE PRIVATE
GLOBAL FRIENDS zcl_abapgit_persist_factory .
PUBLIC SECTION.
INTERFACES zif_abapgit_persist_settings .
PROTECTED SECTION.
PRIVATE SECTION.
DATA mo_settings TYPE REF TO zcl_abapgit_settings .
ENDCLASS.
CLASS ZCL_ABAPGIT_PERSIST_SETTINGS IMPLEMENTATION.
METHOD zif_abapgit_persist_settings~modify.
DATA: lv_settings TYPE string,
ls_user_settings TYPE zif_abapgit_definitions=>ty_s_user_settings.
lv_settings = io_settings->get_settings_xml( ).
zcl_abapgit_persistence_db=>get_instance( )->modify(
iv_type = zcl_abapgit_persistence_db=>c_type_settings
iv_value = ''''
iv_data = lv_settings ).
ls_user_settings = io_settings->get_user_settings( ).
zcl_abapgit_persistence_user=>get_instance( )->set_settings( ls_user_settings ).
" Settings have been modified: Update Buffered Settings
IF mo_settings IS BOUND.
mo_settings->set_xml_settings( lv_settings ).
mo_settings->set_user_settings( ls_user_settings ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_persist_settings~read.
IF mo_settings IS BOUND.
" Return Buffered Settings
ro_settings = mo_settings.
RETURN.
ENDIF.
" Settings have changed or have not yet been loaded
CREATE OBJECT ro_settings.
TRY.
ro_settings->set_xml_settings(
zcl_abapgit_persistence_db=>get_instance( )->read(
iv_type = zcl_abapgit_persistence_db=>c_type_settings
iv_value = '''' ) ).
ro_settings->set_user_settings( zcl_abapgit_persistence_user=>get_instance( )->get_settings( ) ).
CATCH zcx_abapgit_not_found zcx_abapgit_exception.
ro_settings->set_defaults( ).
ENDTRY.
mo_settings = ro_settings.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_PERSISTENCE_DB ', 'CLASS zcl_abapgit_persistence_db DEFINITION
PUBLIC
CREATE PRIVATE .
PUBLIC SECTION.
CONSTANTS c_tabname TYPE c LENGTH 30 VALUE ''ZABAPGIT'' ##NO_TEXT.
CONSTANTS c_lock TYPE c LENGTH 30 VALUE ''EZABAPGIT'' ##NO_TEXT.
CONSTANTS:
c_type_settings TYPE zif_abapgit_persistence=>ty_type VALUE ''SETTINGS'' ##NO_TEXT,
c_type_repo TYPE zif_abapgit_persistence=>ty_type VALUE ''REPO'' ##NO_TEXT,
c_type_repo_csum TYPE zif_abapgit_persistence=>ty_type VALUE ''REPO_CS'' ##NO_TEXT,
c_type_background TYPE zif_abapgit_persistence=>ty_type VALUE ''BACKGROUND'' ##NO_TEXT,
c_type_packages TYPE zif_abapgit_persistence=>ty_type VALUE ''PACKAGES'' ##NO_TEXT,
c_type_user TYPE zif_abapgit_persistence=>ty_type VALUE ''USER'' ##NO_TEXT.
CLASS-METHODS get_instance
RETURNING
VALUE(ro_db) TYPE REF TO zcl_abapgit_persistence_db .
METHODS add
IMPORTING
!iv_type TYPE zif_abapgit_persistence=>ty_type
!iv_value TYPE zif_abapgit_persistence=>ty_content-value
!iv_data TYPE zif_abapgit_persistence=>ty_content-data_str
RAISING
zcx_abapgit_exception .
METHODS delete
IMPORTING
!iv_type TYPE zif_abapgit_persistence=>ty_type
!iv_value TYPE zif_abapgit_persistence=>ty_content-value
RAISING
zcx_abapgit_exception .
METHODS list
RETURNING
VALUE(rt_content) TYPE zif_abapgit_persistence=>ty_contents .
METHODS list_by_type
IMPORTING
!iv_type TYPE zif_abapgit_persistence=>ty_type
RETURNING
VALUE(rt_content) TYPE zif_abapgit_persistence=>ty_contents .
METHODS list_by_keys
IMPORTING it_keys TYPE zif_abapgit_persistence=>ty_repo_keys
iv_type TYPE zif_abapgit_persistence=>ty_type
RETURNING VALUE(rt_contents) TYPE zif_abapgit_persistence=>ty_contents.
METHODS lock
IMPORTING
!iv_mode TYPE enqmode DEFAULT ''E''
!iv_type TYPE zif_abapgit_persistence=>ty_type
!iv_value TYPE zif_abapgit_persistence=>ty_content-value
RAISING
zcx_abapgit_exception .
METHODS modify
IMPORTING
!iv_type TYPE zif_abapgit_persistence=>ty_type
!iv_value TYPE zif_abapgit_persistence=>ty_content-value
!iv_data TYPE zif_abapgit_persistence=>ty_content-data_str
RAISING
zcx_abapgit_exception .
METHODS read
IMPORTING
!iv_type TYPE zif_abapgit_persistence=>ty_type
!iv_value TYPE zif_abapgit_persistence=>ty_content-value
RETURNING
VALUE(rv_data) TYPE zif_abapgit_persistence=>ty_content-data_str
RAISING
zcx_abapgit_not_found .
METHODS update
IMPORTING
!iv_type TYPE zif_abapgit_persistence=>ty_type
!iv_value TYPE zif_abapgit_persistence=>ty_content-value
!iv_data TYPE zif_abapgit_persistence=>ty_content-data_str
RAISING
zcx_abapgit_exception .
CLASS-METHODS validate_entry_type
IMPORTING
!iv_type TYPE zif_abapgit_persistence=>ty_type
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-DATA go_db TYPE REF TO zcl_abapgit_persistence_db .
DATA mv_update_function TYPE funcname .
METHODS get_update_function
RETURNING
VALUE(rv_funcname) TYPE funcname .
METHODS validate_and_unprettify_xml
IMPORTING
!iv_xml TYPE string
RETURNING
VALUE(rv_xml) TYPE string
RAISING
zcx_abapgit_exception .
ENDCLASS.
CLASS ZCL_ABAPGIT_PERSISTENCE_DB IMPLEMENTATION.
METHOD add.
DATA ls_table TYPE zif_abapgit_persistence=>ty_content.
validate_entry_type( iv_type ).
ls_table-type = iv_type.
ls_table-value = iv_value.
ls_table-data_str = iv_data.
INSERT (c_tabname) FROM ls_table. "#EC CI_SUBRC
ASSERT sy-subrc = 0.
ENDMETHOD.
METHOD delete.
lock( iv_type = iv_type
iv_value = iv_value ).
" Ignore errors since record might not exist
DELETE FROM (c_tabname)
WHERE type = iv_type
AND value = iv_value.
ENDMETHOD.
METHOD get_instance.
IF go_db IS NOT BOUND.
CREATE OBJECT go_db.
ENDIF.
ro_db = go_db.
ENDMETHOD.
METHOD get_update_function.
IF mv_update_function IS INITIAL.
mv_update_function = ''CALL_V1_PING''.
IF zcl_abapgit_factory=>get_function_module( )->function_exists( mv_update_function ) = abap_false.
mv_update_function = ''BANK_OBJ_WORKL_RELEASE_LOCKS''.
ENDIF.
ENDIF.
rv_funcname = mv_update_function.
ENDMETHOD.
METHOD list.
SELECT * FROM (c_tabname)
INTO TABLE rt_content. "#EC CI_SUBRC
ENDMETHOD.
METHOD list_by_keys.
FIELD-SYMBOLS: <ls_key> LIKE LINE OF it_keys.
LOOP AT it_keys ASSIGNING <ls_key>.
SELECT * FROM (c_tabname)
APPENDING TABLE rt_contents
WHERE value = <ls_key> AND
type = iv_type.
ENDLOOP.
ENDMETHOD.
METHOD list_by_type.
SELECT * FROM (c_tabname)
INTO TABLE rt_content
WHERE type = iv_type
ORDER BY PRIMARY KEY. "#EC CI_SUBRC
ENDMETHOD.
METHOD lock.
DATA: lv_dummy_update_function TYPE funcname.
CALL FUNCTION ''ENQUEUE_EZABAPGIT''
EXPORTING
mode_zabapgit = iv_mode
type = iv_type
value = iv_value
EXCEPTIONS
foreign_lock = 1
system_failure = 2
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
lv_dummy_update_function = get_update_function( ).
* trigger dummy update task to automatically release locks at commit
CALL FUNCTION lv_dummy_update_function
IN UPDATE TASK.
ENDMETHOD.
METHOD modify.
DATA: ls_content TYPE zif_abapgit_persistence=>ty_content.
lock( iv_type = iv_type
iv_value = iv_value ).
ls_content-type = iv_type.
ls_content-value = iv_value.
ls_content-data_str = iv_data.
MODIFY (c_tabname) FROM ls_content.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''DB modify failed'' ).
ENDIF.
ENDMETHOD.
METHOD read.
SELECT SINGLE data_str FROM (c_tabname) INTO rv_data
WHERE type = iv_type
AND value = iv_value.
IF sy-subrc <> 0.
RAISE EXCEPTION TYPE zcx_abapgit_not_found.
ENDIF.
ENDMETHOD.
METHOD update.
DATA lv_data LIKE iv_data.
IF iv_data CS ''<?xml''.
lv_data = validate_and_unprettify_xml( iv_data ).
ELSE.
lv_data = iv_data.
ENDIF.
lock( iv_type = iv_type
iv_value = iv_value ).
UPDATE (c_tabname) SET data_str = lv_data
WHERE type = iv_type
AND value = iv_value.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''DB update failed'' ).
ENDIF.
ENDMETHOD.
METHOD validate_and_unprettify_xml.
rv_xml = zcl_abapgit_xml_pretty=>print(
iv_xml = iv_xml
iv_unpretty = abap_true
iv_ignore_errors = abap_false ).
ENDMETHOD.
METHOD validate_entry_type.
IF NOT (
iv_type = c_type_repo OR
iv_type = c_type_repo_csum OR
iv_type = c_type_user OR
iv_type = c_type_settings OR
iv_type = c_type_background OR
iv_type = c_type_packages ).
zcx_abapgit_exception=>raise( |Invalid DB entry type [{ iv_type }]| ).
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_PERSISTENCE_REPO ', 'CLASS zcl_abapgit_persistence_repo DEFINITION
PUBLIC
CREATE PROTECTED
GLOBAL FRIENDS zcl_abapgit_persist_factory .
PUBLIC SECTION.
INTERFACES zif_abapgit_persist_repo .
INTERFACES zif_abapgit_persist_repo_cs .
METHODS constructor .
METHODS rewrite_repo_meta
IMPORTING
!iv_repo_key TYPE zif_abapgit_persistence=>ty_repo-key
RAISING
zcx_abapgit_exception
zcx_abapgit_not_found.
PROTECTED SECTION.
PRIVATE SECTION.
DATA mt_meta_fields TYPE STANDARD TABLE OF abap_compname.
DATA mo_db TYPE REF TO zcl_abapgit_persistence_db .
METHODS from_xml
IMPORTING
!iv_repo_xml_string TYPE string
RETURNING
VALUE(rs_repo) TYPE zif_abapgit_persistence=>ty_repo_xml
RAISING
zcx_abapgit_exception .
METHODS to_xml
IMPORTING
!is_repo TYPE zif_abapgit_persistence=>ty_repo
RETURNING
VALUE(rv_repo_xml_string) TYPE string .
METHODS get_next_id
RETURNING
VALUE(rv_next_repo_id) TYPE zif_abapgit_persistence=>ty_content-value
RAISING
zcx_abapgit_exception .
METHODS get_repo_from_content
IMPORTING
is_content TYPE zif_abapgit_persistence=>ty_content
RETURNING
VALUE(rs_result) TYPE zif_abapgit_persistence=>ty_repo
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_persistence_repo IMPLEMENTATION.
METHOD constructor.
DATA ls_dummy_meta_mask TYPE zif_abapgit_persistence=>ty_repo_meta_mask.
DATA ls_dummy_meta TYPE zif_abapgit_persistence=>ty_repo_xml.
DATA lo_type_meta_mask TYPE REF TO cl_abap_structdescr.
DATA lo_type_meta TYPE REF TO cl_abap_structdescr.
FIELD-SYMBOLS <ls_comp> LIKE LINE OF lo_type_meta_mask->components.
" Collect actual list of fields in repo meta data (used in update_meta)
lo_type_meta_mask ?= cl_abap_structdescr=>describe_by_data( ls_dummy_meta_mask ).
lo_type_meta ?= cl_abap_structdescr=>describe_by_data( ls_dummy_meta ).
LOOP AT lo_type_meta_mask->components ASSIGNING <ls_comp>.
APPEND <ls_comp>-name TO mt_meta_fields.
ENDLOOP.
mo_db = zcl_abapgit_persistence_db=>get_instance( ).
ENDMETHOD.
METHOD from_xml.
DATA: lv_xml TYPE string.
lv_xml = iv_repo_xml_string.
* fix downward compatibility
REPLACE ALL OCCURRENCES OF ''<_--28C_TYPE_REPO_--29>'' IN lv_xml WITH ''<REPO>''.
REPLACE ALL OCCURRENCES OF ''</_--28C_TYPE_REPO_--29>'' IN lv_xml WITH ''</REPO>''.
CALL TRANSFORMATION id
OPTIONS value_handling = ''accept_data_loss''
SOURCE XML lv_xml
RESULT repo = rs_repo.
* automatic migration of old fields
* todo, keep for transition period until 2022-12-31, then remove all of these
FIND FIRST OCCURRENCE OF ''</HEAD_BRANCH><WRITE_PROTECT>X</WRITE_PROTECT>'' IN lv_xml.
IF sy-subrc = 0.
rs_repo-local_settings-write_protected = abap_true.
ENDIF.
FIND FIRST OCCURRENCE OF ''<IGNORE_SUBPACKAGES>X</IGNORE_SUBPACKAGES></REPO>'' IN lv_xml.
IF sy-subrc = 0.
rs_repo-local_settings-ignore_subpackages = abap_true.
ENDIF.
FIND FIRST OCCURRENCE OF ''<SERIALIZE_MASTER_LANG_ONLY>X</SERIALIZE_MASTER_LANG_ONLY>'' IN lv_xml.
IF sy-subrc = 0.
rs_repo-local_settings-main_language_only = abap_true.
ENDIF.
IF rs_repo IS INITIAL.
zcx_abapgit_exception=>raise( ''Inconsistent repo metadata'' ).
ENDIF.
ENDMETHOD.
METHOD get_next_id.
* todo: Lock the complete persistence in order to prevent concurrent repo-creation
* however the current approach will most likely work in almost all cases
DATA: lt_content TYPE zif_abapgit_persistence=>ty_contents.
FIELD-SYMBOLS: <ls_content> LIKE LINE OF lt_content.
rv_next_repo_id = 1.
lt_content = mo_db->list_by_type( zcl_abapgit_persistence_db=>c_type_repo ).
LOOP AT lt_content ASSIGNING <ls_content>.
IF <ls_content>-value >= rv_next_repo_id.
rv_next_repo_id = <ls_content>-value + 1.
ENDIF.
ENDLOOP.
SHIFT rv_next_repo_id RIGHT DELETING TRAILING space.
TRANSLATE rv_next_repo_id USING '' 0''.
ENDMETHOD.
METHOD get_repo_from_content.
MOVE-CORRESPONDING from_xml( is_content-data_str ) TO rs_result.
IF rs_result-local_settings-write_protected = abap_false AND
zcl_abapgit_factory=>get_environment( )->is_repo_object_changes_allowed( ) = abap_false.
rs_result-local_settings-write_protected = abap_true.
ENDIF.
rs_result-key = is_content-value.
ENDMETHOD.
METHOD rewrite_repo_meta.
DATA lv_old_blob TYPE string.
DATA lv_new_blob TYPE string.
DATA ls_repo_meta TYPE zif_abapgit_persistence=>ty_repo.
lv_old_blob = mo_db->read(
iv_type = zcl_abapgit_persistence_db=>c_type_repo
iv_value = iv_repo_key ).
MOVE-CORRESPONDING from_xml( lv_old_blob ) TO ls_repo_meta.
lv_new_blob = to_xml( ls_repo_meta ).
IF lv_new_blob <> lv_old_blob.
mo_db->update(
iv_type = zcl_abapgit_persistence_db=>c_type_repo
iv_value = iv_repo_key
iv_data = lv_new_blob ).
COMMIT WORK.
ENDIF.
ENDMETHOD.
METHOD to_xml.
DATA: ls_xml TYPE zif_abapgit_persistence=>ty_repo_xml.
MOVE-CORRESPONDING is_repo TO ls_xml.
CALL TRANSFORMATION id
SOURCE repo = ls_xml
RESULT XML rv_repo_xml_string.
ENDMETHOD.
METHOD zif_abapgit_persist_repo_cs~delete.
mo_db->delete(
iv_type = zcl_abapgit_persistence_db=>c_type_repo_csum
iv_value = iv_key ).
ENDMETHOD.
METHOD zif_abapgit_persist_repo_cs~read.
rv_cs_blob = mo_db->read(
iv_type = zcl_abapgit_persistence_db=>c_type_repo_csum
iv_value = iv_key ).
ENDMETHOD.
METHOD zif_abapgit_persist_repo_cs~update.
mo_db->modify(
iv_type = zcl_abapgit_persistence_db=>c_type_repo_csum
iv_value = iv_key
iv_data = iv_cs_blob ).
ENDMETHOD.
METHOD zif_abapgit_persist_repo~add.
DATA: ls_repo TYPE zif_abapgit_persistence=>ty_repo,
lv_repo_as_xml TYPE string.
ls_repo-url = iv_url.
ls_repo-branch_name = iv_branch_name.
ls_repo-package = iv_package.
ls_repo-offline = iv_offline.
ls_repo-created_by = sy-uname.
GET TIME STAMP FIELD ls_repo-created_at.
ls_repo-dot_abapgit = is_dot_abapgit.
ls_repo-local_settings-display_name = iv_display_name.
lv_repo_as_xml = to_xml( ls_repo ).
rv_key = get_next_id( ).
mo_db->add( iv_type = zcl_abapgit_persistence_db=>c_type_repo
iv_value = rv_key
iv_data = lv_repo_as_xml ).
ENDMETHOD.
METHOD zif_abapgit_persist_repo~delete.
DATA: lo_background TYPE REF TO zcl_abapgit_persist_background.
CREATE OBJECT lo_background.
lo_background->delete( iv_key ).
mo_db->delete( iv_type = zcl_abapgit_persistence_db=>c_type_repo
iv_value = iv_key ).
ENDMETHOD.
METHOD zif_abapgit_persist_repo~exists.
DATA lt_keys TYPE zif_abapgit_persistence=>ty_repo_keys.
DATA lt_content TYPE zif_abapgit_persistence=>ty_contents.
APPEND iv_key TO lt_keys.
lt_content = mo_db->list_by_keys(
it_keys = lt_keys
iv_type = zcl_abapgit_persistence_db=>c_type_repo ).
rv_yes = boolc( lines( lt_content ) > 0 ).
ENDMETHOD.
METHOD zif_abapgit_persist_repo~list.
DATA: lt_content TYPE zif_abapgit_persistence=>ty_contents,
ls_content LIKE LINE OF lt_content,
ls_repo LIKE LINE OF rt_repos.
lt_content = mo_db->list_by_type( zcl_abapgit_persistence_db=>c_type_repo ).
LOOP AT lt_content INTO ls_content.
ls_repo = get_repo_from_content( ls_content ).
INSERT ls_repo INTO TABLE rt_repos.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_persist_repo~list_by_keys.
DATA: lt_content TYPE zif_abapgit_persistence=>ty_contents,
ls_content LIKE LINE OF lt_content,
ls_repo LIKE LINE OF rt_repos.
lt_content = mo_db->list_by_keys(
it_keys = it_keys
iv_type = zcl_abapgit_persistence_db=>c_type_repo ).
LOOP AT lt_content INTO ls_content.
ls_repo = get_repo_from_content( ls_content ).
INSERT ls_repo INTO TABLE rt_repos.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_persist_repo~lock.
mo_db->lock( iv_mode = iv_mode
iv_type = zcl_abapgit_persistence_db=>c_type_repo
iv_value = iv_key ).
ENDMETHOD.
METHOD zif_abapgit_persist_repo~read.
DATA lt_repo TYPE zif_abapgit_persistence=>ty_repos.
lt_repo = zif_abapgit_persist_repo~list( ).
READ TABLE lt_repo INTO rs_repo WITH KEY key = iv_key.
IF sy-subrc <> 0.
RAISE EXCEPTION TYPE zcx_abapgit_not_found.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_persist_repo~update_metadata.
DATA:
lv_blob TYPE zif_abapgit_persistence=>ty_content-data_str,
ls_persistent_meta TYPE zif_abapgit_persistence=>ty_repo.
FIELD-SYMBOLS <lv_field> LIKE LINE OF mt_meta_fields.
FIELD-SYMBOLS <lg_dst> TYPE any.
FIELD-SYMBOLS <lg_src> TYPE any.
FIELD-SYMBOLS <lv_changed> TYPE abap_bool.
ASSERT NOT iv_key IS INITIAL.
IF is_change_mask IS INITIAL.
RETURN.
ENDIF.
" Validations
IF is_change_mask-url = abap_true AND is_meta-url IS INITIAL.
zcx_abapgit_exception=>raise( ''update, url empty'' ).
ENDIF.
ls_persistent_meta = zcl_abapgit_repo_srv=>get_instance( )->get( iv_key )->ms_data.
" Update
LOOP AT mt_meta_fields ASSIGNING <lv_field>.
ASSIGN COMPONENT <lv_field> OF STRUCTURE is_change_mask TO <lv_changed>.
ASSERT sy-subrc = 0.
CHECK <lv_changed> = abap_true.
ASSIGN COMPONENT <lv_field> OF STRUCTURE ls_persistent_meta TO <lg_dst>.
ASSERT sy-subrc = 0.
ASSIGN COMPONENT <lv_field> OF STRUCTURE is_meta TO <lg_src>.
ASSERT sy-subrc = 0.
<lg_dst> = <lg_src>.
ENDLOOP.
lv_blob = to_xml( ls_persistent_meta ).
mo_db->update( iv_type = zcl_abapgit_persistence_db=>c_type_repo
iv_value = iv_key
iv_data = lv_blob ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_PERSISTENCE_USER ', 'CLASS zcl_abapgit_persistence_user DEFINITION
PUBLIC
CREATE PRIVATE .
PUBLIC SECTION.
INTERFACES zif_abapgit_persist_user .
CLASS-METHODS get_instance
IMPORTING
!iv_user TYPE sy-uname DEFAULT sy-uname
RETURNING
VALUE(ri_user) TYPE REF TO zif_abapgit_persist_user
RAISING
zcx_abapgit_exception .
METHODS constructor
IMPORTING
!iv_user TYPE sy-uname DEFAULT sy-uname
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
PRIVATE SECTION.
TYPES:
BEGIN OF ty_repo_config,
url TYPE zif_abapgit_persistence=>ty_repo-url,
login TYPE string,
git_user TYPE zif_abapgit_git_definitions=>ty_git_user,
last_change_seen TYPE string,
END OF ty_repo_config .
TYPES:
ty_repo_configs TYPE STANDARD TABLE OF ty_repo_config WITH DEFAULT KEY .
TYPES:
BEGIN OF ty_user,
default_git_user TYPE zif_abapgit_git_definitions=>ty_git_user,
repo_show TYPE zif_abapgit_persistence=>ty_repo-key,
hide_files TYPE abap_bool,
changes_only TYPE abap_bool,
order_by TYPE string,
order_descending TYPE abap_bool,
diff_first TYPE abap_bool,
diff_unified TYPE abap_bool,
favorites TYPE zif_abapgit_persist_user=>ty_favorites,
repo_config TYPE ty_repo_configs,
settings TYPE zif_abapgit_definitions=>ty_s_user_settings,
show_folders TYPE abap_bool,
list_settings TYPE zif_abapgit_definitions=>ty_list_settings,
END OF ty_user .
DATA mv_user TYPE sy-uname .
DATA ms_user TYPE ty_user.
CLASS-DATA gi_current_user TYPE REF TO zif_abapgit_persist_user .
METHODS from_xml
IMPORTING
!iv_xml TYPE string
RETURNING
VALUE(rs_user) TYPE ty_user
RAISING
zcx_abapgit_exception .
METHODS read
RAISING
zcx_abapgit_exception .
METHODS read_repo_config
IMPORTING
!iv_url TYPE zif_abapgit_persistence=>ty_repo-url
RETURNING
VALUE(rs_repo_config) TYPE ty_repo_config
RAISING
zcx_abapgit_exception .
METHODS to_xml
IMPORTING
!is_user TYPE ty_user
RETURNING
VALUE(rv_xml) TYPE string .
METHODS update
RAISING
zcx_abapgit_exception .
METHODS update_repo_config
IMPORTING
!iv_url TYPE zif_abapgit_persistence=>ty_repo-url
!is_repo_config TYPE ty_repo_config
RAISING
zcx_abapgit_exception .
ENDCLASS.
CLASS zcl_abapgit_persistence_user IMPLEMENTATION.
METHOD constructor.
mv_user = iv_user.
read( ).
ENDMETHOD.
METHOD from_xml.
DATA: lv_xml TYPE string.
lv_xml = iv_xml.
* fix downward compatibility
REPLACE ALL OCCURRENCES OF ''<_--28C_TYPE_USER_--29>'' IN lv_xml WITH ''<USER>''.
REPLACE ALL OCCURRENCES OF ''</_--28C_TYPE_USER_--29>'' IN lv_xml WITH ''</USER>''.
CALL TRANSFORMATION id
OPTIONS value_handling = ''accept_data_loss''
SOURCE XML lv_xml
RESULT user = rs_user.
ENDMETHOD.
METHOD get_instance.
IF iv_user = sy-uname ##USER_OK.
IF gi_current_user IS NOT BOUND.
CREATE OBJECT gi_current_user TYPE zcl_abapgit_persistence_user.
ENDIF.
ri_user = gi_current_user.
ELSE.
CREATE OBJECT ri_user TYPE zcl_abapgit_persistence_user
EXPORTING
iv_user = iv_user.
ENDIF.
ENDMETHOD.
METHOD read.
DATA: lv_xml TYPE string.
TRY.
lv_xml = zcl_abapgit_persistence_db=>get_instance( )->read(
iv_type = zcl_abapgit_persistence_db=>c_type_user
iv_value = mv_user ).
CATCH zcx_abapgit_not_found.
RETURN.
ENDTRY.
ms_user = from_xml( lv_xml ).
ENDMETHOD.
METHOD read_repo_config.
DATA lv_url TYPE string.
lv_url = to_lower( iv_url ).
READ TABLE ms_user-repo_config INTO rs_repo_config WITH KEY url = lv_url.
ENDMETHOD.
METHOD to_xml.
CALL TRANSFORMATION id
SOURCE user = is_user
RESULT XML rv_xml.
ENDMETHOD.
METHOD update.
DATA: lv_xml TYPE string.
lv_xml = to_xml( ms_user ).
zcl_abapgit_persistence_db=>get_instance( )->modify(
iv_type = zcl_abapgit_persistence_db=>c_type_user
iv_value = mv_user
iv_data = lv_xml ).
COMMIT WORK AND WAIT.
ENDMETHOD.
METHOD update_repo_config.
DATA: lv_key TYPE string.
FIELD-SYMBOLS <ls_repo_config> TYPE ty_repo_config.
lv_key = to_lower( iv_url ).
READ TABLE ms_user-repo_config ASSIGNING <ls_repo_config> WITH KEY url = lv_key.
IF sy-subrc IS NOT INITIAL.
APPEND INITIAL LINE TO ms_user-repo_config ASSIGNING <ls_repo_config>.
ENDIF.
<ls_repo_config> = is_repo_config.
<ls_repo_config>-url = lv_key.
update( ).
ENDMETHOD.
METHOD zif_abapgit_persist_user~get_changes_only.
rv_changes_only = ms_user-changes_only.
ENDMETHOD.
METHOD zif_abapgit_persist_user~get_default_git_user_email.
rv_email = ms_user-default_git_user-email.
ENDMETHOD.
METHOD zif_abapgit_persist_user~get_default_git_user_name.
rv_username = ms_user-default_git_user-name.
ENDMETHOD.
METHOD zif_abapgit_persist_user~get_diff_first.
rv_diff_first = ms_user-diff_first.
ENDMETHOD.
METHOD zif_abapgit_persist_user~get_diff_unified.
rv_diff_unified = ms_user-diff_unified.
ENDMETHOD.
METHOD zif_abapgit_persist_user~get_favorites.
rt_favorites = ms_user-favorites.
ENDMETHOD.
METHOD zif_abapgit_persist_user~get_hide_files.
rv_hide = ms_user-hide_files.
ENDMETHOD.
METHOD zif_abapgit_persist_user~get_list_settings.
rs_list_settings = ms_user-list_settings.
IF rs_list_settings IS INITIAL.
" for performance reasons, set "only favorites" as a default
IF zcl_abapgit_repo_srv=>get_instance( )->list_favorites( ) IS NOT INITIAL.
rs_list_settings-only_favorites = abap_true.
ENDIF.
rs_list_settings-order_by = |NAME|.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_persist_user~get_order_by.
rv_order_by = ms_user-order_by.
ENDMETHOD.
METHOD zif_abapgit_persist_user~get_order_descending.
rv_order_descending = ms_user-order_descending.
ENDMETHOD.
METHOD zif_abapgit_persist_user~get_repo_git_user_email.
rv_email = read_repo_config( iv_url )-git_user-email.
ENDMETHOD.
METHOD zif_abapgit_persist_user~get_repo_git_user_name.
rv_username = read_repo_config( iv_url )-git_user-name.
ENDMETHOD.
METHOD zif_abapgit_persist_user~get_repo_last_change_seen.
rv_version = read_repo_config( iv_url )-last_change_seen.
ENDMETHOD.
METHOD zif_abapgit_persist_user~get_repo_login.
rv_login = read_repo_config( iv_url )-login.
ENDMETHOD.
METHOD zif_abapgit_persist_user~get_repo_show.
rv_key = ms_user-repo_show.
IF rv_key IS INITIAL.
RETURN.
ENDIF.
" Check if repo exists
TRY.
zcl_abapgit_persistence_db=>get_instance( )->read(
iv_type = zcl_abapgit_persistence_db=>c_type_repo
iv_value = rv_key ).
CATCH zcx_abapgit_not_found.
" remove invalid key
CLEAR rv_key.
zif_abapgit_persist_user~set_repo_show( rv_key ).
ENDTRY.
ENDMETHOD.
METHOD zif_abapgit_persist_user~get_settings.
rs_user_settings = ms_user-settings.
ENDMETHOD.
METHOD zif_abapgit_persist_user~get_show_folders.
rv_folders = ms_user-show_folders.
ENDMETHOD.
METHOD zif_abapgit_persist_user~is_favorite_repo.
READ TABLE ms_user-favorites TRANSPORTING NO FIELDS
WITH KEY table_line = iv_repo_key.
rv_yes = boolc( sy-subrc = 0 ).
ENDMETHOD.
METHOD zif_abapgit_persist_user~set_default_git_user_email.
ms_user-default_git_user-email = iv_email.
update( ).
ENDMETHOD.
METHOD zif_abapgit_persist_user~set_default_git_user_name.
ms_user-default_git_user-name = iv_username.
update( ).
ENDMETHOD.
METHOD zif_abapgit_persist_user~set_diff_first.
ms_user-diff_first = iv_diff_first.
update( ).
rv_diff_first = ms_user-diff_first.
ENDMETHOD.
METHOD zif_abapgit_persist_user~set_list_settings.
ms_user-list_settings = is_list_settings.
update( ).
ENDMETHOD.
METHOD zif_abapgit_persist_user~set_order_by.
ms_user-order_by = iv_order_by.
update( ).
rv_order_by = ms_user-order_by.
ENDMETHOD.
METHOD zif_abapgit_persist_user~set_order_descending.
ms_user-order_descending = iv_order_descending.
update( ).
rv_order_descending = ms_user-order_descending.
ENDMETHOD.
METHOD zif_abapgit_persist_user~set_repo_git_user_email.
DATA: ls_repo_config TYPE ty_repo_config.
ls_repo_config = read_repo_config( iv_url ).
ls_repo_config-git_user-email = iv_email.
update_repo_config( iv_url = iv_url
is_repo_config = ls_repo_config ).
ENDMETHOD.
METHOD zif_abapgit_persist_user~set_repo_git_user_name.
DATA: ls_repo_config TYPE ty_repo_config.
ls_repo_config = read_repo_config( iv_url ).
ls_repo_config-git_user-name = iv_username.
update_repo_config( iv_url = iv_url
is_repo_config = ls_repo_config ).
ENDMETHOD.
METHOD zif_abapgit_persist_user~set_repo_last_change_seen.
DATA: ls_repo_config TYPE ty_repo_config.
ls_repo_config = read_repo_config( iv_url ).
ls_repo_config-last_change_seen = iv_version.
update_repo_config( iv_url = iv_url
is_repo_config = ls_repo_config ).
ENDMETHOD.
METHOD zif_abapgit_persist_user~set_repo_login.
DATA: ls_repo_config TYPE ty_repo_config.
ls_repo_config = read_repo_config( iv_url ).
ls_repo_config-login = iv_login.
update_repo_config( iv_url = iv_url
is_repo_config = ls_repo_config ).
ENDMETHOD.
METHOD zif_abapgit_persist_user~set_repo_show.
ms_user-repo_show = iv_key.
update( ).
ENDMETHOD.
METHOD zif_abapgit_persist_user~set_settings.
ms_user-settings = is_user_settings.
update( ).
ENDMETHOD.
METHOD zif_abapgit_persist_user~toggle_changes_only.
ms_user-changes_only = boolc( ms_user-changes_only = abap_false ).
update( ).
rv_changes_only = ms_user-changes_only.
ENDMETHOD.
METHOD zif_abapgit_persist_user~toggle_diff_unified.
ms_user-diff_unified = boolc( ms_user-diff_unified = abap_false ).
update( ).
rv_diff_unified = ms_user-diff_unified.
ENDMETHOD.
METHOD zif_abapgit_persist_user~toggle_favorite.
READ TABLE ms_user-favorites TRANSPORTING NO FIELDS
WITH KEY table_line = iv_repo_key.
IF sy-subrc = 0.
DELETE ms_user-favorites INDEX sy-tabix.
ELSE.
APPEND iv_repo_key TO ms_user-favorites.
ENDIF.
update( ).
ENDMETHOD.
METHOD zif_abapgit_persist_user~toggle_hide_files.
ms_user-hide_files = boolc( ms_user-hide_files = abap_false ).
update( ).
rv_hide = ms_user-hide_files.
ENDMETHOD.
METHOD zif_abapgit_persist_user~toggle_show_folders.
ms_user-show_folders = boolc( ms_user-show_folders = abap_false ).
update( ).
rv_folders = ms_user-show_folders.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_PERSIST_REPO ', 'INTERFACE zif_abapgit_persist_repo
PUBLIC .
METHODS add
IMPORTING
!iv_url TYPE string OPTIONAL
!iv_branch_name TYPE string OPTIONAL
!iv_branch TYPE zif_abapgit_git_definitions=>ty_sha1 OPTIONAL
!iv_display_name TYPE string OPTIONAL
!iv_package TYPE devclass
!iv_offline TYPE abap_bool DEFAULT abap_false
!is_dot_abapgit TYPE zif_abapgit_dot_abapgit=>ty_dot_abapgit
RETURNING
VALUE(rv_key) TYPE zif_abapgit_persistence=>ty_repo-key
RAISING
zcx_abapgit_exception .
METHODS delete
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
RAISING
zcx_abapgit_exception .
METHODS exists
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
RETURNING
VALUE(rv_yes) TYPE abap_bool.
METHODS list
RETURNING
VALUE(rt_repos) TYPE zif_abapgit_persistence=>ty_repos
RAISING
zcx_abapgit_exception .
METHODS list_by_keys
IMPORTING
it_keys TYPE zif_abapgit_persistence=>ty_repo_keys
RETURNING
VALUE(rt_repos) TYPE zif_abapgit_persistence=>ty_repos
RAISING
zcx_abapgit_exception .
METHODS lock
IMPORTING
!iv_mode TYPE enqmode
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
RAISING
zcx_abapgit_exception .
METHODS read
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
RETURNING
VALUE(rs_repo) TYPE zif_abapgit_persistence=>ty_repo
RAISING
zcx_abapgit_exception
zcx_abapgit_not_found .
METHODS update_metadata
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
!is_meta TYPE zif_abapgit_persistence=>ty_repo_xml
!is_change_mask TYPE zif_abapgit_persistence=>ty_repo_meta_mask
RAISING
zcx_abapgit_exception .
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_PERSIST_REPO_CS ', 'INTERFACE zif_abapgit_persist_repo_cs
PUBLIC .
METHODS update
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
!iv_cs_blob TYPE zif_abapgit_persistence=>ty_content-data_str
RAISING
zcx_abapgit_exception .
METHODS delete
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
RAISING
zcx_abapgit_exception .
METHODS read
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
RETURNING
VALUE(rv_cs_blob) TYPE zif_abapgit_persistence=>ty_content-data_str
RAISING
zcx_abapgit_exception
zcx_abapgit_not_found .
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_PERSIST_SETTINGS ', 'INTERFACE zif_abapgit_persist_settings PUBLIC.
METHODS modify
IMPORTING
!io_settings TYPE REF TO zcl_abapgit_settings
RAISING
zcx_abapgit_exception .
METHODS read
RETURNING
VALUE(ro_settings) TYPE REF TO zcl_abapgit_settings .
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_PERSIST_USER ', 'INTERFACE zif_abapgit_persist_user
PUBLIC .
TYPES ty_favorites TYPE zif_abapgit_persistence=>ty_repo_keys .
METHODS get_changes_only
RETURNING
VALUE(rv_changes_only) TYPE abap_bool
RAISING
zcx_abapgit_exception .
METHODS get_default_git_user_email
RETURNING
VALUE(rv_email) TYPE string
RAISING
zcx_abapgit_exception .
METHODS get_default_git_user_name
RETURNING
VALUE(rv_username) TYPE string
RAISING
zcx_abapgit_exception .
METHODS get_diff_unified
RETURNING
VALUE(rv_diff_unified) TYPE abap_bool
RAISING
zcx_abapgit_exception .
METHODS get_favorites
RETURNING
VALUE(rt_favorites) TYPE ty_favorites
RAISING
zcx_abapgit_exception .
METHODS get_hide_files
RETURNING
VALUE(rv_hide) TYPE abap_bool
RAISING
zcx_abapgit_exception .
METHODS get_show_folders
RETURNING
VALUE(rv_folders) TYPE abap_bool
RAISING
zcx_abapgit_exception .
METHODS get_repo_git_user_email
IMPORTING
!iv_url TYPE zif_abapgit_persistence=>ty_repo-url
RETURNING
VALUE(rv_email) TYPE string
RAISING
zcx_abapgit_exception .
METHODS get_repo_git_user_name
IMPORTING
!iv_url TYPE zif_abapgit_persistence=>ty_repo-url
RETURNING
VALUE(rv_username) TYPE string
RAISING
zcx_abapgit_exception .
METHODS get_repo_last_change_seen
IMPORTING
!iv_url TYPE zif_abapgit_persistence=>ty_repo-url
RETURNING
VALUE(rv_version) TYPE string
RAISING
zcx_abapgit_exception .
METHODS get_repo_login
IMPORTING
!iv_url TYPE zif_abapgit_persistence=>ty_repo-url
RETURNING
VALUE(rv_login) TYPE string
RAISING
zcx_abapgit_exception .
METHODS get_repo_show
RETURNING
VALUE(rv_key) TYPE zif_abapgit_persistence=>ty_repo-key
RAISING
zcx_abapgit_exception .
METHODS is_favorite_repo
IMPORTING
!iv_repo_key TYPE zif_abapgit_persistence=>ty_repo-key
RETURNING
VALUE(rv_yes) TYPE abap_bool
RAISING
zcx_abapgit_exception .
METHODS set_default_git_user_email
IMPORTING
!iv_email TYPE string
RAISING
zcx_abapgit_exception .
METHODS set_default_git_user_name
IMPORTING
!iv_username TYPE string
RAISING
zcx_abapgit_exception .
METHODS set_repo_git_user_email
IMPORTING
!iv_url TYPE zif_abapgit_persistence=>ty_repo-url
!iv_email TYPE string
RAISING
zcx_abapgit_exception .
METHODS set_repo_git_user_name
IMPORTING
!iv_url TYPE zif_abapgit_persistence=>ty_repo-url
!iv_username TYPE string
RAISING
zcx_abapgit_exception .
METHODS set_repo_last_change_seen
IMPORTING
!iv_url TYPE zif_abapgit_persistence=>ty_repo-url
!iv_version TYPE string
RAISING
zcx_abapgit_exception .
METHODS set_repo_login
IMPORTING
!iv_url TYPE zif_abapgit_persistence=>ty_repo-url
!iv_login TYPE string
RAISING
zcx_abapgit_exception .
METHODS set_repo_show
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
RAISING
zcx_abapgit_exception .
METHODS toggle_changes_only
RETURNING
VALUE(rv_changes_only) TYPE abap_bool
RAISING
zcx_abapgit_exception .
METHODS get_order_by
RETURNING
VALUE(rv_order_by) TYPE string
RAISING
zcx_abapgit_exception.
METHODS set_order_by
IMPORTING
iv_order_by TYPE string
RETURNING
VALUE(rv_order_by) TYPE string
RAISING
zcx_abapgit_exception.
METHODS get_order_descending
RETURNING
VALUE(rv_order_descending) TYPE abap_bool
RAISING
zcx_abapgit_exception.
METHODS set_order_descending
IMPORTING
iv_order_descending TYPE abap_bool
RETURNING
VALUE(rv_order_descending) TYPE abap_bool
RAISING
zcx_abapgit_exception.
METHODS get_diff_first
RETURNING
VALUE(rv_diff_first) TYPE abap_bool
RAISING
zcx_abapgit_exception.
METHODS set_diff_first
IMPORTING
iv_diff_first TYPE abap_bool
RETURNING
VALUE(rv_diff_first) TYPE abap_bool
RAISING
zcx_abapgit_exception.
METHODS toggle_diff_unified
RETURNING
VALUE(rv_diff_unified) TYPE abap_bool
RAISING
zcx_abapgit_exception .
METHODS toggle_favorite
IMPORTING
!iv_repo_key TYPE zif_abapgit_persistence=>ty_repo-key
RAISING
zcx_abapgit_exception .
METHODS toggle_hide_files
RETURNING
VALUE(rv_hide) TYPE abap_bool
RAISING
zcx_abapgit_exception .
METHODS toggle_show_folders
RETURNING
VALUE(rv_folders) TYPE abap_bool
RAISING
zcx_abapgit_exception.
METHODS get_settings
RETURNING
VALUE(rs_user_settings) TYPE zif_abapgit_definitions=>ty_s_user_settings
RAISING
zcx_abapgit_exception.
METHODS set_settings
IMPORTING
is_user_settings TYPE zif_abapgit_definitions=>ty_s_user_settings
RAISING
zcx_abapgit_exception.
METHODS get_list_settings
RETURNING
VALUE(rs_list_settings) TYPE zif_abapgit_definitions=>ty_list_settings
RAISING
zcx_abapgit_exception.
METHODS set_list_settings
IMPORTING
is_list_settings TYPE zif_abapgit_definitions=>ty_list_settings
RAISING
zcx_abapgit_exception.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_PERSISTENCE ', 'INTERFACE zif_abapgit_persistence PUBLIC.
TYPES:
ty_type TYPE c LENGTH 12 .
TYPES:
ty_value TYPE c LENGTH 12 .
TYPES:
BEGIN OF ty_content,
type TYPE ty_type,
value TYPE ty_value,
data_str TYPE string,
END OF ty_content .
TYPES:
ty_contents TYPE SORTED TABLE OF ty_content WITH UNIQUE KEY type value .
TYPES: BEGIN OF ty_local_checksum,
item TYPE zif_abapgit_definitions=>ty_item_signature,
files TYPE zif_abapgit_git_definitions=>ty_file_signatures_tt,
END OF ty_local_checksum.
TYPES:
BEGIN OF ty_local_settings,
display_name TYPE string,
ignore_subpackages TYPE abap_bool,
write_protected TYPE abap_bool,
only_local_objects TYPE abap_bool,
code_inspector_check_variant TYPE sci_chkv,
block_commit TYPE abap_bool,
main_language_only TYPE abap_bool,
labels TYPE string,
transport_request TYPE trkorr,
customizing_request TYPE trkorr,
flow TYPE abap_bool,
exclude_remote_paths TYPE string_table,
END OF ty_local_settings.
TYPES: ty_local_checksum_tt TYPE STANDARD TABLE OF ty_local_checksum WITH DEFAULT KEY.
TYPES: ty_local_checksum_by_item_tt TYPE SORTED TABLE OF ty_local_checksum
WITH NON-UNIQUE KEY item-obj_type item-obj_name.
TYPES: BEGIN OF ty_repo_xml,
url TYPE string,
branch_name TYPE string,
selected_commit TYPE zif_abapgit_git_definitions=>ty_sha1,
package TYPE devclass,
created_by TYPE syuname,
created_at TYPE timestampl,
deserialized_by TYPE syuname,
deserialized_at TYPE timestampl,
offline TYPE abap_bool,
switched_origin TYPE string,
dot_abapgit TYPE zif_abapgit_dot_abapgit=>ty_dot_abapgit,
head_branch TYPE string, " HEAD symref of the repo, master branch
local_settings TYPE ty_local_settings,
END OF ty_repo_xml.
TYPES:
BEGIN OF ty_repo_meta_mask,
url TYPE abap_bool,
branch_name TYPE abap_bool,
selected_commit TYPE abap_bool,
package TYPE abap_bool,
created_by TYPE abap_bool,
created_at TYPE abap_bool,
deserialized_by TYPE abap_bool,
deserialized_at TYPE abap_bool,
offline TYPE abap_bool,
switched_origin TYPE abap_bool,
dot_abapgit TYPE abap_bool,
head_branch TYPE abap_bool,
local_settings TYPE abap_bool,
END OF ty_repo_meta_mask.
TYPES: BEGIN OF ty_repo,
key TYPE ty_value.
INCLUDE TYPE ty_repo_xml.
TYPES: END OF ty_repo.
TYPES: ty_repos TYPE STANDARD TABLE OF ty_repo WITH DEFAULT KEY.
TYPES: ty_repo_keys TYPE STANDARD TABLE OF ty_repo-key WITH DEFAULT KEY.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_REPO_FILTER ', 'CLASS zcl_abapgit_repo_filter DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
METHODS apply
IMPORTING
it_filter TYPE zif_abapgit_definitions=>ty_tadir_tt
CHANGING
ct_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt .
METHODS apply_object_filter
IMPORTING
it_filter TYPE zif_abapgit_definitions=>ty_tadir_tt
io_dot TYPE REF TO zcl_abapgit_dot_abapgit OPTIONAL
iv_devclass TYPE devclass OPTIONAL
CHANGING
ct_files TYPE zif_abapgit_git_definitions=>ty_files_tt
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
METHODS filter_generated_tadir
CHANGING
!ct_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt .
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_repo_filter IMPLEMENTATION.
METHOD apply.
DATA: lt_filter TYPE SORTED TABLE OF zif_abapgit_definitions=>ty_tadir
WITH NON-UNIQUE KEY object obj_name,
lv_index TYPE i.
FIELD-SYMBOLS: <ls_tadir> LIKE LINE OF ct_tadir.
filter_generated_tadir( CHANGING ct_tadir = ct_tadir ).
IF lines( it_filter ) = 0.
RETURN.
ENDIF.
lt_filter = it_filter.
* this is another loop at TADIR, but typically the filter is blank
LOOP AT ct_tadir ASSIGNING <ls_tadir>.
lv_index = sy-tabix.
READ TABLE lt_filter TRANSPORTING NO FIELDS WITH KEY object = <ls_tadir>-object
obj_name = <ls_tadir>-obj_name
BINARY SEARCH.
IF sy-subrc <> 0.
DELETE ct_tadir INDEX lv_index.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD apply_object_filter.
DATA lr_file TYPE REF TO zif_abapgit_git_definitions=>ty_file.
DATA ls_item TYPE zif_abapgit_definitions=>ty_item.
DATA ls_tadir TYPE zif_abapgit_definitions=>ty_tadir.
DATA lt_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt.
DATA lt_filter TYPE SORTED TABLE OF zif_abapgit_definitions=>ty_tadir
WITH NON-UNIQUE KEY object obj_name.
lt_filter = it_filter.
LOOP AT ct_files REFERENCE INTO lr_file.
IF lr_file->filename = zif_abapgit_definitions=>c_dot_abapgit.
CONTINUE.
ENDIF.
zcl_abapgit_filename_logic=>file_to_object(
EXPORTING
iv_filename = lr_file->filename
iv_path = lr_file->path
iv_devclass = iv_devclass
io_dot = io_dot
IMPORTING
es_item = ls_item ).
CLEAR lt_tadir.
CLEAR ls_tadir.
ls_tadir-object = ls_item-obj_type.
ls_tadir-obj_name = ls_item-obj_name.
ls_tadir-devclass = ls_item-devclass.
INSERT ls_tadir INTO TABLE lt_tadir.
filter_generated_tadir( CHANGING ct_tadir = lt_tadir ).
IF lt_tadir IS INITIAL.
DELETE ct_files.
CONTINUE.
ENDIF.
READ TABLE lt_filter TRANSPORTING NO FIELDS
WITH KEY object = ls_tadir-object
obj_name = ls_tadir-obj_name
BINARY SEARCH.
IF sy-subrc <> 0.
DELETE ct_files.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD filter_generated_tadir.
DATA: ls_tadir TYPE zif_abapgit_definitions=>ty_tadir,
ls_tadir_gen TYPE zif_abapgit_definitions=>ty_tadir,
lv_cd_object TYPE cdobjectcl,
lt_cd_names TYPE STANDARD TABLE OF cdnames,
ls_cd_names TYPE cdnames,
lt_tcdrs TYPE STANDARD TABLE OF tcdrs,
ls_tcdrs TYPE tcdrs.
LOOP AT ct_tadir INTO ls_tadir WHERE pgmid = ''R3TR'' AND object = ''CHDO''.
CLEAR: lv_cd_object, lt_cd_names, ls_tadir_gen, lt_tcdrs, ls_tcdrs.
lv_cd_object = ls_tadir-obj_name.
CALL FUNCTION ''CDNAMES_GET''
EXPORTING
iv_object = lv_cd_object
TABLES
it_names = lt_cd_names
it_tcdrs = lt_tcdrs
EXCEPTIONS
object_space = 1
object_not_found = 2
OTHERS = 3.
IF sy-subrc <> 0.
CONTINUE.
ENDIF.
LOOP AT lt_cd_names INTO ls_cd_names.
DELETE ct_tadir WHERE pgmid = ''R3TR''
AND ( ( object = ''PROG''
AND ( obj_name = ls_cd_names-repnamec
OR obj_name = ls_cd_names-repnamet
OR obj_name = ls_cd_names-repnamefix
OR obj_name = ls_cd_names-repnamevar ) )
OR object = ''FUGR'' AND obj_name = ls_cd_names-fgrp ).
ENDLOOP.
LOOP AT lt_tcdrs INTO ls_tcdrs.
DELETE ct_tadir WHERE pgmid = ''R3TR'' AND object = ''TABL'' AND obj_name = ls_tcdrs-tabname.
ENDLOOP.
ENDLOOP.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_OBJECT_FILTER ', 'INTERFACE zif_abapgit_object_filter
PUBLIC .
METHODS get_filter
RETURNING
VALUE(rt_filter) TYPE zif_abapgit_definitions=>ty_tadir_tt
RAISING
zcx_abapgit_exception.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_STAGE ', 'CLASS zcl_abapgit_stage DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS method_description
IMPORTING
!iv_method TYPE zif_abapgit_definitions=>ty_method
RETURNING
VALUE(rv_description) TYPE string
RAISING
zcx_abapgit_exception .
METHODS constructor
IMPORTING
!iv_merge_source TYPE zif_abapgit_git_definitions=>ty_sha1 OPTIONAL .
METHODS add
IMPORTING
!iv_path TYPE zif_abapgit_git_definitions=>ty_file-path
!iv_filename TYPE zif_abapgit_git_definitions=>ty_file-filename
!iv_data TYPE xstring
!is_status TYPE zif_abapgit_definitions=>ty_result OPTIONAL
RAISING
zcx_abapgit_exception .
METHODS reset
IMPORTING
!iv_path TYPE zif_abapgit_git_definitions=>ty_file-path
!iv_filename TYPE zif_abapgit_git_definitions=>ty_file-filename
RAISING
zcx_abapgit_exception .
METHODS rm
IMPORTING
!iv_path TYPE zif_abapgit_git_definitions=>ty_file-path
!iv_filename TYPE zif_abapgit_git_definitions=>ty_file-filename
!is_status TYPE zif_abapgit_definitions=>ty_result OPTIONAL
RAISING
zcx_abapgit_exception .
METHODS ignore
IMPORTING
!iv_path TYPE zif_abapgit_git_definitions=>ty_file-path
!iv_filename TYPE zif_abapgit_git_definitions=>ty_file-filename
RAISING
zcx_abapgit_exception .
METHODS get_merge_source
RETURNING
VALUE(rv_source) TYPE zif_abapgit_git_definitions=>ty_sha1 .
METHODS count
RETURNING
VALUE(rv_count) TYPE i .
METHODS get_all
RETURNING
VALUE(rt_stage) TYPE zif_abapgit_definitions=>ty_stage_tt .
PROTECTED SECTION.
PRIVATE SECTION.
DATA mt_stage TYPE zif_abapgit_definitions=>ty_stage_tt .
DATA mv_merge_source TYPE zif_abapgit_git_definitions=>ty_sha1 .
METHODS append
IMPORTING
!iv_path TYPE zif_abapgit_git_definitions=>ty_file-path
!iv_filename TYPE zif_abapgit_git_definitions=>ty_file-filename
!iv_method TYPE zif_abapgit_definitions=>ty_method
!is_status TYPE zif_abapgit_definitions=>ty_result OPTIONAL
!iv_data TYPE xstring OPTIONAL
RAISING
zcx_abapgit_exception .
ENDCLASS.
CLASS zcl_abapgit_stage IMPLEMENTATION.
METHOD add.
append( iv_path = iv_path
iv_filename = iv_filename
iv_method = zif_abapgit_definitions=>c_method-add
is_status = is_status
iv_data = iv_data ).
ENDMETHOD.
METHOD append.
DATA: ls_stage LIKE LINE OF mt_stage.
FIELD-SYMBOLS: <ls_stage> LIKE LINE OF mt_stage.
READ TABLE mt_stage WITH KEY
file-path = iv_path
file-filename = iv_filename
ASSIGNING <ls_stage>.
IF sy-subrc = 0.
<ls_stage>-file-data = iv_data.
<ls_stage>-method = iv_method.
ELSE.
ls_stage-file-path = iv_path.
ls_stage-file-filename = iv_filename.
ls_stage-file-data = iv_data.
ls_stage-method = iv_method.
ls_stage-status = is_status.
INSERT ls_stage INTO TABLE mt_stage.
ENDIF.
ENDMETHOD.
METHOD constructor.
mv_merge_source = iv_merge_source.
ENDMETHOD.
METHOD count.
rv_count = lines( mt_stage ).
ENDMETHOD.
METHOD get_all.
rt_stage = mt_stage.
ENDMETHOD.
METHOD get_merge_source.
rv_source = mv_merge_source.
ENDMETHOD.
METHOD ignore.
append( iv_path = iv_path
iv_filename = iv_filename
iv_method = zif_abapgit_definitions=>c_method-ignore ).
ENDMETHOD.
METHOD method_description.
CASE iv_method.
WHEN zif_abapgit_definitions=>c_method-add.
rv_description = ''add''.
WHEN zif_abapgit_definitions=>c_method-rm.
rv_description = ''remove''.
WHEN zif_abapgit_definitions=>c_method-ignore.
rv_description = ''ignore''.
WHEN OTHERS.
zcx_abapgit_exception=>raise( ''unknown staging method type'' ).
ENDCASE.
ENDMETHOD.
METHOD reset.
DELETE mt_stage WHERE file-path = iv_path AND file-filename = iv_filename.
ASSERT sy-subrc = 0.
ENDMETHOD.
METHOD rm.
append( iv_path = iv_path
iv_filename = iv_filename
is_status = is_status
iv_method = zif_abapgit_definitions=>c_method-rm ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_STAGE_LOGIC ', 'CLASS zcl_abapgit_stage_logic DEFINITION
PUBLIC
CREATE PRIVATE
GLOBAL FRIENDS zcl_abapgit_factory .
PUBLIC SECTION.
INTERFACES zif_abapgit_stage_logic .
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-METHODS:
remove_ignored
IMPORTING io_repo TYPE REF TO zcl_abapgit_repo_online
CHANGING cs_files TYPE zif_abapgit_definitions=>ty_stage_files,
remove_identical
CHANGING cs_files TYPE zif_abapgit_definitions=>ty_stage_files.
ENDCLASS.
CLASS zcl_abapgit_stage_logic IMPLEMENTATION.
METHOD remove_identical.
DATA: lv_index TYPE i,
ls_remote LIKE LINE OF cs_files-remote.
FIELD-SYMBOLS: <ls_local> LIKE LINE OF cs_files-local.
SORT cs_files-remote BY path filename.
LOOP AT cs_files-local ASSIGNING <ls_local>.
lv_index = sy-tabix.
READ TABLE cs_files-remote INTO ls_remote
WITH KEY path = <ls_local>-file-path filename = <ls_local>-file-filename
BINARY SEARCH.
IF sy-subrc = 0.
DELETE cs_files-remote INDEX sy-tabix.
IF ls_remote-sha1 = <ls_local>-file-sha1.
DELETE cs_files-local INDEX lv_index.
ENDIF.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD remove_ignored.
DATA: lv_index TYPE i.
FIELD-SYMBOLS: <ls_remote> LIKE LINE OF cs_files-remote,
<ls_local> LIKE LINE OF cs_files-local.
LOOP AT cs_files-remote ASSIGNING <ls_remote>.
lv_index = sy-tabix.
IF io_repo->get_dot_abapgit( )->is_ignored(
iv_path = <ls_remote>-path
iv_filename = <ls_remote>-filename ) = abap_true.
DELETE cs_files-remote INDEX lv_index.
ELSEIF <ls_remote>-path = zif_abapgit_definitions=>c_root_dir
AND <ls_remote>-filename = zif_abapgit_definitions=>c_dot_abapgit.
" Remove .abapgit from remotes - it cannot be removed or ignored
DELETE cs_files-remote INDEX lv_index.
ENDIF.
ENDLOOP.
LOOP AT cs_files-local ASSIGNING <ls_local>.
lv_index = sy-tabix.
IF io_repo->get_dot_abapgit( )->is_ignored(
iv_path = <ls_local>-file-path
iv_filename = <ls_local>-file-filename ) = abap_true.
DELETE cs_files-local INDEX lv_index.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_stage_logic~get.
" Getting REMOTE before LOCAL is critical to ensure that DATA config is loaded first
rs_files-remote = io_repo->get_files_remote( ii_obj_filter ).
IF ii_obj_filter IS INITIAL.
rs_files-local = io_repo->get_files_local( ).
ELSE.
rs_files-local = io_repo->get_files_local_filtered( ii_obj_filter ).
ENDIF.
rs_files-status = zcl_abapgit_repo_status=>calculate( ii_repo = io_repo
ii_obj_filter = ii_obj_filter ).
remove_identical( CHANGING cs_files = rs_files ).
remove_ignored( EXPORTING io_repo = io_repo
CHANGING cs_files = rs_files ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_MERGE ', 'INTERFACE zif_abapgit_merge PUBLIC .
TYPES:
BEGIN OF ty_merge,
repo TYPE REF TO zcl_abapgit_repo_online,
source TYPE zif_abapgit_git_definitions=>ty_git_branch,
target TYPE zif_abapgit_git_definitions=>ty_git_branch,
common TYPE zif_abapgit_definitions=>ty_ancestor,
stree TYPE zif_abapgit_git_definitions=>ty_expanded_tt,
ttree TYPE zif_abapgit_git_definitions=>ty_expanded_tt,
ctree TYPE zif_abapgit_git_definitions=>ty_expanded_tt,
result TYPE zif_abapgit_git_definitions=>ty_expanded_tt,
stage TYPE REF TO zcl_abapgit_stage,
conflict TYPE string,
END OF ty_merge .
TYPES:
BEGIN OF ty_merge_conflict,
path TYPE string,
filename TYPE string,
source_sha1 TYPE zif_abapgit_git_definitions=>ty_sha1,
source_data TYPE xstring,
target_sha1 TYPE zif_abapgit_git_definitions=>ty_sha1,
target_data TYPE xstring,
result_sha1 TYPE zif_abapgit_git_definitions=>ty_sha1,
result_data TYPE xstring,
END OF ty_merge_conflict .
TYPES:
ty_merge_conflict_tt TYPE STANDARD TABLE OF ty_merge_conflict WITH DEFAULT KEY .
METHODS get_conflicts
RETURNING
VALUE(rt_conflicts) TYPE ty_merge_conflict_tt .
METHODS get_result
RETURNING
VALUE(rs_merge) TYPE ty_merge .
METHODS get_source_branch
RETURNING
VALUE(rv_source_branch) TYPE string .
METHODS has_conflicts
RETURNING
VALUE(rv_conflicts_exists) TYPE abap_bool .
METHODS resolve_conflict
IMPORTING
!is_conflict TYPE ty_merge_conflict
RAISING
zcx_abapgit_exception .
METHODS run
RAISING
zcx_abapgit_exception .
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_STAGE_LOGIC ', 'INTERFACE zif_abapgit_stage_logic
PUBLIC .
METHODS get
IMPORTING
!io_repo TYPE REF TO zcl_abapgit_repo_online
!ii_obj_filter TYPE REF TO zif_abapgit_object_filter OPTIONAL
RETURNING
VALUE(rs_files) TYPE zif_abapgit_definitions=>ty_stage_files
RAISING
zcx_abapgit_exception .
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_REPO_ITEM_STATE ', 'CLASS zcl_abapgit_repo_item_state DEFINITION
PUBLIC
FINAL
CREATE PUBLIC.
PUBLIC SECTION.
METHODS local
RETURNING
VALUE(rv_state) TYPE zif_abapgit_git_definitions=>ty_item_state.
METHODS remote
RETURNING
VALUE(rv_state) TYPE zif_abapgit_git_definitions=>ty_item_state.
METHODS is_reassigned
RETURNING
VALUE(rv_is_reassigned) TYPE abap_bool.
METHODS is_unchanged
RETURNING
VALUE(rv_is_unchanged) TYPE abap_bool.
METHODS sum_with_repo_item
IMPORTING
!is_repo_item TYPE zif_abapgit_definitions=>ty_repo_item.
METHODS sum_with_status_item
IMPORTING
!is_status_item TYPE zif_abapgit_definitions=>ty_result.
PROTECTED SECTION.
PRIVATE SECTION.
DATA mv_lstate TYPE zif_abapgit_git_definitions=>ty_item_state.
DATA mv_rstate TYPE zif_abapgit_git_definitions=>ty_item_state.
DATA mv_is_reassigned TYPE abap_bool.
CLASS-METHODS reduce
IMPORTING
iv_prev TYPE zif_abapgit_git_definitions=>ty_item_state
iv_cur TYPE zif_abapgit_git_definitions=>ty_item_state
RETURNING
VALUE(rv_new) TYPE zif_abapgit_git_definitions=>ty_item_state.
ENDCLASS.
CLASS zcl_abapgit_repo_item_state IMPLEMENTATION.
METHOD is_reassigned.
rv_is_reassigned = mv_is_reassigned.
ENDMETHOD.
METHOD is_unchanged.
rv_is_unchanged = boolc( mv_is_reassigned = abap_false
AND mv_lstate = zif_abapgit_definitions=>c_state-unchanged
AND mv_rstate = zif_abapgit_definitions=>c_state-unchanged ).
ENDMETHOD.
METHOD local.
rv_state = mv_lstate.
ENDMETHOD.
METHOD reduce.
rv_new = iv_prev.
IF rv_new = iv_cur OR iv_cur IS INITIAL.
RETURN. " No change
ELSEIF rv_new IS INITIAL.
rv_new = iv_cur.
ELSE.
rv_new = zif_abapgit_definitions=>c_state-mixed.
ENDIF.
ENDMETHOD.
METHOD remote.
rv_state = mv_rstate.
ENDMETHOD.
METHOD sum_with_repo_item.
mv_lstate = reduce(
iv_prev = mv_lstate
iv_cur = is_repo_item-lstate ).
mv_rstate = reduce(
iv_prev = mv_rstate
iv_cur = is_repo_item-rstate ).
mv_is_reassigned = boolc( mv_is_reassigned = abap_true OR is_repo_item-packmove = abap_true ).
ENDMETHOD.
METHOD sum_with_status_item.
mv_lstate = reduce(
iv_prev = mv_lstate
iv_cur = is_status_item-lstate ).
mv_rstate = reduce(
iv_prev = mv_rstate
iv_cur = is_status_item-rstate ).
mv_is_reassigned = boolc( mv_is_reassigned = abap_true OR is_status_item-packmove = abap_true ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_REPO_LABELS ', 'CLASS zcl_abapgit_repo_labels DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
TYPES:
BEGIN OF ty_label_color,
label TYPE string,
color TYPE string,
END OF ty_label_color,
ty_label_colors TYPE STANDARD TABLE OF ty_label_color WITH KEY label.
TYPES:
BEGIN OF ty_color,
cls TYPE string,
fg TYPE string,
bg TYPE string,
border TYPE string,
END OF ty_color.
CONSTANTS c_allowed_chars TYPE string VALUE \`-_. a-zA-Z0-9\` ##NO_TEXT.
" it is easier to allow chars, though potentially other chars can be added later if needed
CLASS-METHODS class_constructor.
CLASS-METHODS validate
IMPORTING
!iv_labels TYPE string
RAISING
zcx_abapgit_exception.
CLASS-METHODS split
IMPORTING
!iv_labels TYPE string
RETURNING
VALUE(rt_labels) TYPE string_table.
CLASS-METHODS normalize
IMPORTING
!iv_labels TYPE string
RETURNING
VALUE(rv_labels) TYPE string.
CLASS-METHODS validate_colors
IMPORTING
!iv_config TYPE string
RAISING
zcx_abapgit_exception.
CLASS-METHODS split_colors
IMPORTING
!iv_config TYPE string
RETURNING
VALUE(rt_label_colors) TYPE ty_label_colors.
CLASS-METHODS split_colors_into_map
IMPORTING
!iv_config TYPE string
RETURNING
VALUE(ro_map) TYPE REF TO zcl_abapgit_string_map.
CLASS-METHODS normalize_colors
IMPORTING
!iv_config TYPE string
RETURNING
VALUE(rv_config) TYPE string.
CLASS-METHODS parse_color
IMPORTING
iv_color TYPE string
RETURNING
VALUE(rs_parsed) TYPE ty_color.
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-DATA gv_regex TYPE string.
CLASS-METHODS validate_one_label_color
IMPORTING
!is_lc TYPE ty_label_color
!iv_index TYPE i DEFAULT 0
RAISING
zcx_abapgit_exception.
CLASS-METHODS validate_rgb_color
IMPORTING
!iv_color TYPE string
!iv_index TYPE i DEFAULT 0
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_repo_labels IMPLEMENTATION.
METHOD class_constructor.
gv_regex = |^[{ c_allowed_chars }]*$|. " Must start with -
ENDMETHOD.
METHOD normalize.
DATA lt_labels TYPE string_table.
DATA lt_normalized TYPE string_table.
FIELD-SYMBOLS <lv_lab> LIKE LINE OF lt_labels.
lt_labels = split( iv_labels ).
LOOP AT lt_labels ASSIGNING <lv_lab>.
FIND REGEX gv_regex IN <lv_lab>.
IF sy-subrc = 0.
APPEND <lv_lab> TO lt_normalized.
ENDIF.
ENDLOOP.
SORT lt_normalized.
DELETE ADJACENT DUPLICATES FROM lt_normalized.
rv_labels = concat_lines_of(
table = lt_normalized
sep = \`, \` ).
ENDMETHOD.
METHOD normalize_colors.
DATA lt_colors TYPE ty_label_colors.
DATA lt_normalized TYPE ty_label_colors.
DATA lt_pairs TYPE string_table.
DATA lv_pair TYPE string.
FIELD-SYMBOLS <ls_c> LIKE LINE OF lt_colors.
lt_colors = split_colors( iv_config ).
LOOP AT lt_colors ASSIGNING <ls_c>.
TRY.
validate_one_label_color( <ls_c> ).
APPEND <ls_c> TO lt_normalized.
CATCH zcx_abapgit_exception.
ENDTRY.
ENDLOOP.
SORT lt_normalized BY label.
DELETE ADJACENT DUPLICATES FROM lt_normalized COMPARING label.
LOOP AT lt_normalized ASSIGNING <ls_c>.
lv_pair = <ls_c>-label && \`:\` && <ls_c>-color.
APPEND lv_pair TO lt_pairs.
ENDLOOP.
rv_config = concat_lines_of(
table = lt_pairs
sep = \`, \` ).
ENDMETHOD.
METHOD parse_color.
DATA lv_tmp TYPE string.
IF iv_color IS INITIAL.
RETURN.
ENDIF.
IF iv_color+0(1) = ''#''.
lv_tmp = iv_color+1.
SPLIT lv_tmp AT ''/'' INTO rs_parsed-fg rs_parsed-bg rs_parsed-border.
ELSE.
rs_parsed-cls = iv_color.
ENDIF.
ENDMETHOD.
METHOD split.
FIELD-SYMBOLS <lv_lab> LIKE LINE OF rt_labels.
SPLIT iv_labels AT '','' INTO TABLE rt_labels.
LOOP AT rt_labels ASSIGNING <lv_lab>.
CONDENSE <lv_lab>.
ENDLOOP.
DELETE rt_labels WHERE table_line IS INITIAL.
ENDMETHOD.
METHOD split_colors.
DATA lt_pairs TYPE string_table.
DATA lv_clean_config LIKE iv_config.
DATA ls_c LIKE LINE OF rt_label_colors.
FIELD-SYMBOLS <lv_pair> LIKE LINE OF lt_pairs.
lv_clean_config = replace(
val = iv_config
sub = cl_abap_char_utilities=>newline
with = \` \` ). " text area ends with LF
SPLIT lv_clean_config AT '','' INTO TABLE lt_pairs.
LOOP AT lt_pairs ASSIGNING <lv_pair>.
CONDENSE <lv_pair>.
IF <lv_pair> IS NOT INITIAL.
SPLIT <lv_pair> AT '':'' INTO ls_c-label ls_c-color.
CONDENSE ls_c-label.
CONDENSE ls_c-color.
APPEND ls_c TO rt_label_colors.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD split_colors_into_map.
DATA lt_colors TYPE ty_label_colors.
FIELD-SYMBOLS <ls_c> LIKE LINE OF lt_colors.
lt_colors = split_colors( iv_config ).
ro_map = zcl_abapgit_string_map=>create( ).
LOOP AT lt_colors ASSIGNING <ls_c>.
TRY.
ro_map->set(
iv_key = <ls_c>-label
iv_val = <ls_c>-color ).
CATCH zcx_abapgit_exception.
ENDTRY.
ENDLOOP.
ENDMETHOD.
METHOD validate.
DATA lt_labels TYPE string_table.
FIELD-SYMBOLS <lv_lab> LIKE LINE OF lt_labels.
lt_labels = split( iv_labels ).
LOOP AT lt_labels ASSIGNING <lv_lab>.
FIND REGEX gv_regex IN <lv_lab>.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Disallowed chars in label #{ sy-tabix }| ).
ENDIF.
" TODO: maybe also limit length ?
ENDLOOP.
ENDMETHOD.
METHOD validate_colors.
DATA lt_colors TYPE ty_label_colors.
FIELD-SYMBOLS <ls_c> LIKE LINE OF lt_colors.
lt_colors = split_colors( iv_config ).
LOOP AT lt_colors ASSIGNING <ls_c>.
validate_one_label_color(
is_lc = <ls_c>
iv_index = sy-tabix ).
ENDLOOP.
ENDMETHOD.
METHOD validate_one_label_color.
DATA ls_parsed_color TYPE ty_color.
IF is_lc-label IS INITIAL.
zcx_abapgit_exception=>raise( |Label is empty in pair #{ iv_index }| ).
ENDIF.
IF is_lc-color IS INITIAL.
zcx_abapgit_exception=>raise( |Color is empty in pair #{ iv_index }| ).
ENDIF.
FIND REGEX gv_regex IN is_lc-label.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Disallowed chars in label in pair #{ iv_index }| ).
ENDIF.
ls_parsed_color = parse_color( is_lc-color ).
IF ls_parsed_color-cls IS NOT INITIAL.
FIND REGEX ''^[-_A-Za-z]+$'' IN ls_parsed_color-cls.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Disallowed chars in color in pair #{ iv_index }| ).
ENDIF.
ENDIF.
IF ls_parsed_color-fg IS NOT INITIAL.
validate_rgb_color( ls_parsed_color-fg ).
ENDIF.
IF ls_parsed_color-bg IS NOT INITIAL.
validate_rgb_color( ls_parsed_color-bg ).
ENDIF.
IF ls_parsed_color-border IS NOT INITIAL.
validate_rgb_color( ls_parsed_color-border ).
ENDIF.
ENDMETHOD.
METHOD validate_rgb_color.
DATA lv_len TYPE i.
IF iv_color IS NOT INITIAL.
FIND REGEX ''^[0-9A-Fa-f]+$'' IN iv_color.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Disallowed chars in color in pair #{ iv_index }| ).
ENDIF.
lv_len = strlen( iv_color ).
IF NOT ( lv_len = 3 OR lv_len = 6 ).
zcx_abapgit_exception=>raise( |Incorrect color in pair #{ iv_index }| ).
ENDIF.
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_REPO_NEWS ', 'CLASS zcl_abapgit_repo_news DEFINITION
PUBLIC
FINAL
CREATE PRIVATE.
PUBLIC SECTION.
TYPES:
BEGIN OF ty_log,
version TYPE string,
pos_to_cur TYPE i,
is_header TYPE abap_bool,
is_important TYPE abap_bool,
text TYPE string,
END OF ty_log.
TYPES:
ty_logs TYPE STANDARD TABLE OF ty_log WITH DEFAULT KEY.
CONSTANTS c_tail_length TYPE i VALUE 5 ##NO_TEXT. " Number of versions to display if no updates
CLASS-METHODS create " TODO REFACTOR
IMPORTING
!io_repo TYPE REF TO zcl_abapgit_repo
RETURNING
VALUE(ro_instance) TYPE REF TO zcl_abapgit_repo_news
RAISING
zcx_abapgit_exception.
METHODS get_log
RETURNING
VALUE(rt_log) TYPE ty_logs.
METHODS has_news
RETURNING
VALUE(rv_boolean) TYPE abap_bool.
METHODS has_important
RETURNING
VALUE(rv_boolean) TYPE abap_bool.
METHODS has_updates
RETURNING
VALUE(rv_boolean) TYPE abap_bool.
METHODS has_unseen
RETURNING
VALUE(rv_boolean) TYPE abap_bool.
METHODS constructor
IMPORTING
!iv_rawdata TYPE xstring
!iv_lastseen_version TYPE string
!iv_current_version TYPE string
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
DATA mt_log TYPE ty_logs .
DATA mv_current_version TYPE string .
DATA mv_lastseen_version TYPE string .
DATA mv_latest_version TYPE string .
METHODS latest_version
RETURNING
VALUE(rv_version) TYPE string .
CLASS-METHODS parse_line
IMPORTING
!iv_line TYPE string
!iv_current_version TYPE string
RETURNING
VALUE(rs_log) TYPE ty_log .
CLASS-METHODS parse
IMPORTING
!it_lines TYPE string_table
!iv_current_version TYPE string
RETURNING
VALUE(rt_log) TYPE ty_logs .
ENDCLASS.
CLASS zcl_abapgit_repo_news IMPLEMENTATION.
METHOD constructor.
DATA: lt_lines TYPE string_table,
lv_string TYPE string,
ls_log_line LIKE LINE OF mt_log.
" Validate params
mv_current_version = zcl_abapgit_version=>normalize( iv_current_version ).
mv_lastseen_version = zcl_abapgit_version=>normalize( iv_lastseen_version ).
IF mv_current_version IS INITIAL.
RETURN. " Internal format of program version is not correct -> abort parsing
ENDIF.
lv_string = zcl_abapgit_convert=>xstring_to_string_utf8( iv_rawdata ).
lt_lines = zcl_abapgit_convert=>split_string( lv_string ).
mt_log = parse( it_lines = lt_lines
iv_current_version = mv_current_version ).
READ TABLE mt_log INTO ls_log_line INDEX 1.
mv_latest_version = ls_log_line-version. " Empty if not found
ENDMETHOD.
METHOD create.
CONSTANTS: " TODO refactor
lc_log_path TYPE string VALUE ''/'',
lc_log_filename TYPE string VALUE ''changelog*'',
lc_log_filename_up TYPE string VALUE ''CHANGELOG*''.
DATA: lo_apack TYPE REF TO zcl_abapgit_apack_reader,
lt_remote TYPE zif_abapgit_git_definitions=>ty_files_tt,
lv_version TYPE string,
lv_last_seen TYPE string,
lv_url TYPE string,
lo_repo_online TYPE REF TO zcl_abapgit_repo_online,
lv_version_constant TYPE zif_abapgit_dot_abapgit=>ty_dot_abapgit-version_constant.
FIELD-SYMBOLS <ls_file> LIKE LINE OF lt_remote.
IF io_repo->is_offline( ) = abap_true.
RETURN.
ENDIF.
lo_repo_online ?= io_repo.
lv_url = lo_repo_online->get_url( ).
lo_apack = io_repo->get_dot_apack( ).
IF lo_apack IS BOUND.
lv_version = lo_apack->get_manifest_descriptor( )-version.
ENDIF.
IF lv_version IS INITIAL.
TRY.
lv_version_constant = io_repo->get_dot_abapgit( )->get_version_constant( ).
IF lv_version_constant IS NOT INITIAL.
lv_version = zcl_abapgit_version=>get_version_constant_value( lv_version_constant ).
ENDIF.
CATCH zcx_abapgit_exception.
CLEAR lv_version.
ENDTRY.
ENDIF.
IF lv_version IS INITIAL.
RETURN.
ENDIF.
lv_last_seen = zcl_abapgit_persistence_user=>get_instance( )->get_repo_last_change_seen( lv_url ).
TRY. " Find changelog
lt_remote = io_repo->get_files_remote( ).
CATCH zcx_abapgit_exception.
RETURN.
ENDTRY.
LOOP AT lt_remote ASSIGNING <ls_file> WHERE path = lc_log_path
AND ( filename CP lc_log_filename OR filename CP lc_log_filename_up ).
CREATE OBJECT ro_instance
EXPORTING
iv_rawdata = <ls_file>-data
iv_current_version = lv_version
iv_lastseen_version = zcl_abapgit_version=>normalize( lv_last_seen ).
EXIT.
ENDLOOP.
IF ro_instance IS BOUND AND lv_last_seen <> ro_instance->latest_version( ).
zcl_abapgit_persistence_user=>get_instance( )->set_repo_last_change_seen(
iv_url = lv_url
iv_version = ro_instance->latest_version( ) ).
ENDIF.
ENDMETHOD.
METHOD get_log.
rt_log = mt_log.
ENDMETHOD.
METHOD has_important.
READ TABLE mt_log WITH KEY is_important = abap_true TRANSPORTING NO FIELDS.
rv_boolean = boolc( sy-subrc IS INITIAL ).
ENDMETHOD.
METHOD has_news.
rv_boolean = boolc( lines( mt_log ) > 0 ).
ENDMETHOD.
METHOD has_unseen.
rv_boolean = boolc( zcl_abapgit_version=>compare(
iv_a = mv_latest_version
iv_b = mv_lastseen_version ) > 0 ).
ENDMETHOD.
METHOD has_updates.
rv_boolean = boolc( zcl_abapgit_version=>compare(
iv_a = mv_latest_version
iv_b = mv_current_version ) > 0 ).
ENDMETHOD.
METHOD latest_version.
rv_version = mv_latest_version.
ENDMETHOD.
METHOD parse.
DATA: lv_tail TYPE i,
lv_first_version_found TYPE abap_bool,
lv_version TYPE string,
ls_log LIKE LINE OF rt_log.
FIELD-SYMBOLS: <lv_line> LIKE LINE OF it_lines.
LOOP AT it_lines ASSIGNING <lv_line>.
ls_log = parse_line( iv_line = <lv_line>
iv_current_version = iv_current_version ).
" Skip until first version head and Skip empty lines
CHECK ls_log IS NOT INITIAL AND
( lv_first_version_found = abap_true OR ls_log-version IS NOT INITIAL ).
IF lv_first_version_found = abap_false.
lv_first_version_found = abap_true.
IF zcl_abapgit_version=>compare( iv_a = ls_log-version
iv_b = iv_current_version ) <= 0.
lv_tail = c_tail_length. " Display some last versions if no updates
ENDIF.
ENDIF.
IF ls_log-is_header = abap_true.
"Skip everything below current version or show tail news
IF zcl_abapgit_version=>compare( iv_a = ls_log-version
iv_b = iv_current_version ) <= 0.
IF lv_tail > 0.
lv_tail = lv_tail - 1.
ELSE.
EXIT.
ENDIF.
ENDIF.
lv_version = ls_log-version. " Save to fill news lines
ELSE.
ls_log-version = lv_version.
ENDIF.
APPEND ls_log TO rt_log.
ENDLOOP.
ENDMETHOD.
METHOD parse_line.
CONSTANTS: lc_header_pattern TYPE string
VALUE ''^\\d{4}-\\d{2}-\\d{2}\\s+v(\\d{1,3}\\.\\d{1,3}\\.\\d{1,3})\\s*$''.
DATA: lv_version TYPE string.
IF iv_line IS INITIAL OR iv_line CO '' -=''.
RETURN. " Skip empty and markup lines
ENDIF.
" Check if line is a header line
FIND FIRST OCCURRENCE OF REGEX lc_header_pattern IN iv_line SUBMATCHES lv_version.
IF sy-subrc IS INITIAL.
lv_version = zcl_abapgit_version=>normalize( lv_version ).
rs_log-version = lv_version.
rs_log-is_header = abap_true.
rs_log-pos_to_cur = zcl_abapgit_version=>compare( iv_a = lv_version
iv_b = iv_current_version ).
ELSE.
FIND FIRST OCCURRENCE OF REGEX ''^\\s*!'' IN iv_line.
rs_log-is_important = boolc( sy-subrc IS INITIAL ). " Change is important
ENDIF.
rs_log-text = iv_line.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_REPO_REQUIREMENTS ', 'CLASS zcl_abapgit_repo_requirements DEFINITION
PUBLIC
FINAL
CREATE PUBLIC.
PUBLIC SECTION.
TYPES ty_cvers TYPE STANDARD TABLE OF cvers WITH DEFAULT KEY.
CLASS-METHODS requirements_popup
IMPORTING
!it_requirements TYPE zif_abapgit_dot_abapgit=>ty_requirement_tt
RAISING
zcx_abapgit_exception.
CLASS-METHODS is_requirements_met
IMPORTING
!it_requirements TYPE zif_abapgit_dot_abapgit=>ty_requirement_tt
RETURNING
VALUE(rv_status) TYPE zif_abapgit_definitions=>ty_yes_no
RAISING
zcx_abapgit_exception.
CLASS-METHODS inject_cvers
IMPORTING
!it_cvers TYPE ty_cvers.
PROTECTED SECTION.
PRIVATE SECTION.
TYPES:
BEGIN OF ty_requirement_status,
met TYPE abap_bool,
component TYPE tdevc-dlvunit,
description TYPE string,
installed_release TYPE saprelease,
installed_patch TYPE sappatchlv,
required_release TYPE saprelease,
required_patch TYPE sappatchlv,
END OF ty_requirement_status .
TYPES:
ty_requirement_status_tt TYPE STANDARD TABLE OF ty_requirement_status WITH DEFAULT KEY .
CLASS-DATA gt_cvers TYPE ty_cvers.
CLASS-METHODS get_cvers
RETURNING
VALUE(rt_cvers) TYPE ty_cvers
RAISING
zcx_abapgit_exception.
CLASS-METHODS show_requirement_popup
IMPORTING
!it_requirements TYPE ty_requirement_status_tt
RAISING
zcx_abapgit_exception .
CLASS-METHODS get_requirement_met_status
IMPORTING
!it_requirements TYPE zif_abapgit_dot_abapgit=>ty_requirement_tt
RETURNING
VALUE(rt_status) TYPE ty_requirement_status_tt
RAISING
zcx_abapgit_exception .
CLASS-METHODS is_version_greater_or_equal
IMPORTING
!is_status TYPE ty_requirement_status
RETURNING
VALUE(rv_true) TYPE abap_bool .
ENDCLASS.
CLASS zcl_abapgit_repo_requirements IMPLEMENTATION.
METHOD get_cvers.
IF gt_cvers IS NOT INITIAL.
rt_cvers = gt_cvers.
RETURN.
ENDIF.
SELECT * FROM cvers INTO TABLE rt_cvers ORDER BY PRIMARY KEY.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error reading installed components| ).
ENDIF.
ENDMETHOD.
METHOD get_requirement_met_status.
DATA: lt_installed TYPE ty_cvers.
FIELD-SYMBOLS: <ls_requirement> TYPE zif_abapgit_dot_abapgit=>ty_requirement,
<ls_status> TYPE ty_requirement_status,
<ls_installed_comp> TYPE cvers.
lt_installed = get_cvers( ).
LOOP AT it_requirements ASSIGNING <ls_requirement>.
APPEND INITIAL LINE TO rt_status ASSIGNING <ls_status>.
<ls_status>-component = <ls_requirement>-component.
<ls_status>-required_release = <ls_requirement>-min_release.
<ls_status>-required_patch = <ls_requirement>-min_patch.
READ TABLE lt_installed WITH KEY component = <ls_requirement>-component
ASSIGNING <ls_installed_comp>.
IF sy-subrc = 0.
" Component is installed, requirement is met if the installed version is greater or equal
" to the required one.
<ls_status>-installed_release = <ls_installed_comp>-release.
<ls_status>-installed_patch = <ls_installed_comp>-extrelease.
SELECT SINGLE desc_text FROM cvers_ref INTO <ls_status>-description
WHERE component = <ls_installed_comp>-component AND langu = sy-langu ##SUBRC_OK.
<ls_status>-met = is_version_greater_or_equal( <ls_status> ).
ELSE.
" Component is not installed at all
<ls_status>-met = abap_false.
ENDIF.
UNASSIGN <ls_installed_comp>.
ENDLOOP.
ENDMETHOD.
METHOD inject_cvers.
" For testing only
gt_cvers = it_cvers.
ENDMETHOD.
METHOD is_requirements_met.
DATA: lt_met_status TYPE ty_requirement_status_tt.
lt_met_status = get_requirement_met_status( it_requirements ).
READ TABLE lt_met_status TRANSPORTING NO FIELDS WITH KEY met = abap_false.
IF sy-subrc = 0.
rv_status = zif_abapgit_definitions=>c_no.
ELSE.
rv_status = zif_abapgit_definitions=>c_yes.
ENDIF.
ENDMETHOD.
METHOD is_version_greater_or_equal.
DATA:
lv_installed_release TYPE n LENGTH 4,
lv_installed_patch TYPE n LENGTH 4,
lv_required_release TYPE n LENGTH 4,
lv_required_patch TYPE n LENGTH 4.
TRY.
MOVE EXACT: is_status-installed_release TO lv_installed_release,
is_status-installed_patch TO lv_installed_patch,
is_status-required_release TO lv_required_release,
is_status-required_patch TO lv_required_patch.
CATCH cx_sy_conversion_error.
" Cannot compare by number, assume requirement not fulfilled (user can force install
" anyways if this was an error)
rv_true = abap_false.
RETURN.
ENDTRY.
" Versions are comparable by number, compare release and if necessary patch level
IF lv_installed_release > lv_required_release
OR ( lv_installed_release = lv_required_release
AND ( lv_required_patch = 0
OR lv_installed_patch >= lv_required_patch ) ).
rv_true = abap_true.
ENDIF.
ENDMETHOD.
METHOD requirements_popup.
DATA: lt_met_status TYPE ty_requirement_status_tt,
lv_answer TYPE c LENGTH 1.
lt_met_status = get_requirement_met_status( it_requirements ).
show_requirement_popup( lt_met_status ).
lv_answer = zcl_abapgit_ui_factory=>get_popups( )->popup_to_confirm(
iv_titlebar = ''Warning''
iv_text_question = ''The project has unmet requirements. Do you want to continue?'' ).
IF lv_answer <> ''1''.
zcx_abapgit_exception=>raise( ''Cancelling because of unmet requirements.'' ).
ENDIF.
ENDMETHOD.
METHOD show_requirement_popup.
TYPES: BEGIN OF ty_color_line,
color TYPE lvc_t_scol.
INCLUDE TYPE ty_requirement_status.
TYPES: END OF ty_color_line.
TYPES: ty_color_tab TYPE STANDARD TABLE OF ty_color_line WITH DEFAULT KEY.
DATA: lo_alv TYPE REF TO cl_salv_table,
lo_column TYPE REF TO cl_salv_column,
lo_columns TYPE REF TO cl_salv_columns_table,
lt_color_table TYPE ty_color_tab,
lt_color_negative TYPE lvc_t_scol,
lt_color_positive TYPE lvc_t_scol,
ls_color TYPE lvc_s_scol,
ls_position TYPE zif_abapgit_popups=>ty_popup_position,
lx_ex TYPE REF TO cx_root.
FIELD-SYMBOLS: <ls_line> TYPE ty_color_line,
<ls_requirement> LIKE LINE OF it_requirements.
ls_color-color-col = col_negative.
APPEND ls_color TO lt_color_negative.
ls_color-color-col = col_positive.
APPEND ls_color TO lt_color_positive.
CLEAR ls_color.
LOOP AT it_requirements ASSIGNING <ls_requirement>.
APPEND INITIAL LINE TO lt_color_table ASSIGNING <ls_line>.
MOVE-CORRESPONDING <ls_requirement> TO <ls_line>.
ENDLOOP.
LOOP AT lt_color_table ASSIGNING <ls_line>.
IF <ls_line>-met = abap_false.
<ls_line>-color = lt_color_negative.
ELSE.
<ls_line>-color = lt_color_positive.
ENDIF.
ENDLOOP.
UNASSIGN <ls_line>.
TRY.
cl_salv_table=>factory( IMPORTING r_salv_table = lo_alv
CHANGING t_table = lt_color_table ).
lo_columns = lo_alv->get_columns( ).
lo_columns->get_column( ''MET'' )->set_short_text( ''Met'' ).
lo_columns->set_color_column( ''COLOR'' ).
lo_columns->set_optimize( ).
lo_column = lo_columns->get_column( ''REQUIRED_RELEASE'' ).
lo_column->set_short_text( ''Req. Rel.'' ).
lo_column = lo_columns->get_column( ''REQUIRED_PATCH'' ).
lo_column->set_short_text( ''Req. SP L.'' ).
ls_position = zcl_abapgit_popups=>center(
iv_width = 70
iv_height = 10 ).
lo_alv->set_screen_popup( start_column = ls_position-start_column
end_column = ls_position-end_column
start_line = ls_position-start_row
end_line = ls_position-end_row ).
lo_alv->get_display_settings( )->set_list_header( ''Requirements'' ).
lo_alv->display( ).
CATCH cx_salv_msg cx_salv_not_found cx_salv_data_error INTO lx_ex.
zcx_abapgit_exception=>raise( lx_ex->get_text( ) ).
ENDTRY.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_VERSION ', 'CLASS zcl_abapgit_version DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS normalize
IMPORTING
!iv_version TYPE string
RETURNING
VALUE(rv_version) TYPE string .
CLASS-METHODS conv_str_to_version
IMPORTING
!iv_version TYPE csequence
RETURNING
VALUE(rs_version) TYPE zif_abapgit_definitions=>ty_version
RAISING
zcx_abapgit_exception .
CLASS-METHODS check_dependant_version
IMPORTING
!is_current TYPE zif_abapgit_definitions=>ty_version
!is_dependant TYPE zif_abapgit_definitions=>ty_version
RAISING
zcx_abapgit_exception .
CLASS-METHODS compare
IMPORTING
!iv_a TYPE string OPTIONAL
!iv_b TYPE string OPTIONAL
!is_a TYPE zif_abapgit_definitions=>ty_version OPTIONAL
!is_b TYPE zif_abapgit_definitions=>ty_version OPTIONAL
RETURNING
VALUE(rv_result) TYPE i .
CLASS-METHODS get_version_constant_value
IMPORTING
iv_version_constant TYPE string
RETURNING
VALUE(rv_version) TYPE string
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-METHODS version_to_numeric
IMPORTING
!iv_version TYPE string
RETURNING
VALUE(rv_version) TYPE i.
ENDCLASS.
CLASS zcl_abapgit_version IMPLEMENTATION.
METHOD check_dependant_version.
CONSTANTS: lc_message TYPE string VALUE ''Current version is older than required''.
IF is_dependant-major > is_current-major.
zcx_abapgit_exception=>raise( lc_message ).
ELSEIF is_dependant-major < is_current-major.
RETURN.
ENDIF.
IF is_dependant-minor > is_current-minor.
zcx_abapgit_exception=>raise( lc_message ).
ELSEIF is_dependant-minor < is_current-minor.
RETURN.
ENDIF.
IF is_dependant-patch > is_current-patch.
zcx_abapgit_exception=>raise( lc_message ).
ELSEIF is_dependant-patch < is_current-patch.
RETURN.
ENDIF.
IF is_current-prerelase IS INITIAL.
RETURN.
ENDIF.
CASE is_current-prerelase.
WHEN ''rc''.
IF is_dependant-prerelase = ''''.
zcx_abapgit_exception=>raise( lc_message ).
ENDIF.
WHEN ''beta''.
IF is_dependant-prerelase = '''' OR is_dependant-prerelase = ''rc''.
zcx_abapgit_exception=>raise( lc_message ).
ENDIF.
WHEN ''alpha''.
IF is_dependant-prerelase = '''' OR is_dependant-prerelase = ''rc'' OR is_dependant-prerelase = ''beta''.
zcx_abapgit_exception=>raise( lc_message ).
ENDIF.
ENDCASE.
IF is_dependant-prerelase = is_current-prerelase AND is_dependant-prerelase_patch > is_current-prerelase_patch.
zcx_abapgit_exception=>raise( lc_message ).
ENDIF.
ENDMETHOD.
METHOD compare.
DATA: ls_version_a TYPE zif_abapgit_definitions=>ty_version,
ls_version_b TYPE zif_abapgit_definitions=>ty_version.
TRY.
IF is_a IS NOT INITIAL.
ls_version_a = is_a.
ELSE.
ls_version_a = conv_str_to_version( iv_a ).
ENDIF.
IF is_b IS NOT INITIAL.
ls_version_b = is_b.
ELSE.
ls_version_b = conv_str_to_version( iv_b ).
ENDIF.
CATCH zcx_abapgit_exception.
rv_result = 0.
RETURN.
ENDTRY.
IF ls_version_a = ls_version_b.
rv_result = 0.
ELSE.
TRY.
check_dependant_version( is_current = ls_version_a
is_dependant = ls_version_b ).
rv_result = 1.
CATCH zcx_abapgit_exception.
rv_result = -1.
RETURN.
ENDTRY.
ENDIF.
ENDMETHOD.
METHOD conv_str_to_version.
DATA: lt_segments TYPE STANDARD TABLE OF string,
lt_parts TYPE STANDARD TABLE OF string,
lv_segment TYPE string.
SPLIT iv_version AT ''-'' INTO TABLE lt_segments.
READ TABLE lt_segments INTO lv_segment INDEX 1. " Version
IF sy-subrc <> 0. " No version
RETURN.
ENDIF.
SPLIT lv_segment AT ''.'' INTO TABLE lt_parts.
LOOP AT lt_parts INTO lv_segment.
TRY.
CASE sy-tabix.
WHEN 1.
rs_version-major = lv_segment.
WHEN 2.
rs_version-minor = lv_segment.
WHEN 3.
rs_version-patch = lv_segment.
ENDCASE.
CATCH cx_sy_conversion_no_number.
zcx_abapgit_exception=>raise( ''Incorrect format for Semantic Version'' ).
ENDTRY.
ENDLOOP.
READ TABLE lt_segments INTO lv_segment INDEX 2. " Pre-release Version
IF sy-subrc <> 0. " No version
RETURN.
ENDIF.
SPLIT lv_segment AT ''.'' INTO TABLE lt_parts.
LOOP AT lt_parts INTO lv_segment.
CASE sy-tabix.
WHEN 1.
rs_version-prerelase = lv_segment.
TRANSLATE rs_version-prerelase TO LOWER CASE.
WHEN 2.
rs_version-prerelase_patch = lv_segment.
ENDCASE.
ENDLOOP.
IF rs_version-prerelase <> ''rc'' AND rs_version-prerelase <> ''beta'' AND rs_version-prerelase <> ''alpha''.
zcx_abapgit_exception=>raise( ''Incorrect format for Semantic Version'' ).
ENDIF.
ENDMETHOD.
METHOD get_version_constant_value.
DATA: lv_version_class TYPE seoclsname,
lv_version_component TYPE string.
FIELD-SYMBOLS: <lv_version> TYPE string.
IF iv_version_constant NP ''*=>*''.
zcx_abapgit_exception=>raise( ''Version constant needs to use the format CLASS/INTERFACE=>CONSTANT'' ).
ENDIF.
SPLIT iv_version_constant AT ''=>'' INTO lv_version_class lv_version_component.
IF sy-subrc <> 0 OR lv_version_class IS INITIAL OR lv_version_component IS INITIAL.
zcx_abapgit_exception=>raise( ''Version constant cannot be parsed'' ).
ENDIF.
" You should remember that accessing a class or an interface with syntax errors
" gives us a shortdump. Therefore we do a syntax check here.
zcl_abapgit_oo_factory=>get_by_name( lv_version_class )->syntax_check( lv_version_class ).
ASSIGN (lv_version_class)=>(lv_version_component) TO <lv_version>.
IF sy-subrc = 0.
rv_version = <lv_version>.
ELSE.
zcx_abapgit_exception=>raise( |Could not access version at class { lv_version_class } component | &&
|{ lv_version_component }| ).
ENDIF.
ENDMETHOD.
METHOD normalize.
" Internal program version should be in format "XXX.XXX.XXX" or "vXXX.XXX.XXX"
CONSTANTS:
lc_version_pattern TYPE string VALUE ''^v?(\\d{1,3}\\.\\d{1,3}\\.\\d{1,3})\\s*$'',
lc_prerelease_pattern TYPE string VALUE ''^((rc|beta|alpha)\\.\\d{1,3})\\s*$''.
DATA: lv_version TYPE string,
lv_prerelease TYPE string,
lv_version_n TYPE string,
lv_prerelease_n TYPE string.
SPLIT iv_version AT ''-'' INTO lv_version lv_prerelease.
FIND FIRST OCCURRENCE OF REGEX lc_version_pattern
IN lv_version SUBMATCHES lv_version_n.
IF lv_prerelease IS NOT INITIAL.
FIND FIRST OCCURRENCE OF REGEX lc_prerelease_pattern
IN lv_prerelease SUBMATCHES lv_prerelease_n.
ENDIF.
IF lv_version_n IS INITIAL.
RETURN.
ENDIF.
rv_version = lv_version_n.
IF lv_prerelease_n IS NOT INITIAL.
CONCATENATE rv_version ''-'' lv_prerelease_n INTO rv_version.
ENDIF.
ENDMETHOD.
METHOD version_to_numeric.
DATA: lv_major TYPE n LENGTH 4,
lv_minor TYPE n LENGTH 4,
lv_release TYPE n LENGTH 4.
SPLIT iv_version AT ''.'' INTO lv_major lv_minor lv_release.
" Calculated value of version number, empty version will become 0 which is OK
rv_version = lv_major * 1000000 + lv_minor * 1000 + lv_release.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_ZIP ', 'CLASS zcl_abapgit_zip DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS encode_files
IMPORTING
!it_files TYPE zif_abapgit_definitions=>ty_files_item_tt
RETURNING
VALUE(rv_xstr) TYPE xstring
RAISING
zcx_abapgit_exception .
CLASS-METHODS export
IMPORTING
!is_local_settings TYPE zif_abapgit_persistence=>ty_repo-local_settings
!iv_package TYPE devclass
!io_dot_abapgit TYPE REF TO zcl_abapgit_dot_abapgit
!iv_show_log TYPE abap_bool DEFAULT abap_true
!it_filter TYPE zif_abapgit_definitions=>ty_tadir_tt OPTIONAL
RETURNING
VALUE(rv_xstr) TYPE xstring
RAISING
zcx_abapgit_exception .
CLASS-METHODS export_object
IMPORTING
!iv_object_type TYPE trobjtype
!iv_object_name TYPE sobj_name
!iv_main_language_only TYPE abap_bool DEFAULT abap_false
RAISING
zcx_abapgit_exception .
CLASS-METHODS export_package
IMPORTING
!iv_package TYPE devclass
!iv_folder_logic TYPE string
!iv_main_lang_only TYPE abap_bool
!iv_ign_subpkg TYPE abap_bool OPTIONAL
RAISING
zcx_abapgit_exception .
CLASS-METHODS load
IMPORTING
!iv_xstr TYPE xstring
RETURNING
VALUE(rt_files) TYPE zif_abapgit_git_definitions=>ty_files_tt
RAISING
zcx_abapgit_exception .
CLASS-METHODS save_binstring_to_localfile
IMPORTING
!iv_filename TYPE string
!iv_binstring TYPE xstring
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-METHODS filename
IMPORTING
!iv_str TYPE string
EXPORTING
!ev_path TYPE string
!ev_filename TYPE string
RAISING
zcx_abapgit_exception .
CLASS-METHODS normalize_path
CHANGING
!ct_files TYPE zif_abapgit_git_definitions=>ty_files_tt
RAISING
zcx_abapgit_exception .
CLASS-METHODS unzip_file
IMPORTING
!iv_xstr TYPE xstring
RETURNING
VALUE(rt_files) TYPE zif_abapgit_git_definitions=>ty_files_tt
RAISING
zcx_abapgit_exception .
ENDCLASS.
CLASS zcl_abapgit_zip IMPLEMENTATION.
METHOD encode_files.
DATA: lo_zip TYPE REF TO cl_abap_zip,
lv_filename TYPE string.
FIELD-SYMBOLS: <ls_file> LIKE LINE OF it_files.
CREATE OBJECT lo_zip.
LOOP AT it_files ASSIGNING <ls_file>.
CONCATENATE <ls_file>-file-path+1 <ls_file>-file-filename INTO lv_filename.
lo_zip->add( name = lv_filename
content = <ls_file>-file-data ).
ENDLOOP.
rv_xstr = lo_zip->save( ).
ENDMETHOD.
METHOD export.
DATA li_log TYPE REF TO zif_abapgit_log.
DATA lt_zip TYPE zif_abapgit_definitions=>ty_files_item_tt.
DATA lo_serialize TYPE REF TO zcl_abapgit_serialize.
CREATE OBJECT li_log TYPE zcl_abapgit_log.
li_log->set_title( ''Zip Export Log'' ).
IF zcl_abapgit_factory=>get_sap_package( iv_package )->exists( ) = abap_false.
zcx_abapgit_exception=>raise( |Package { iv_package } doesn''t exist| ).
ENDIF.
CREATE OBJECT lo_serialize
EXPORTING
io_dot_abapgit = io_dot_abapgit
is_local_settings = is_local_settings.
lt_zip = lo_serialize->files_local(
iv_package = iv_package
ii_log = li_log
it_filter = it_filter ).
FREE lo_serialize.
IF li_log->count( ) > 0 AND iv_show_log = abap_true.
zcl_abapgit_log_viewer=>show_log( li_log ).
ENDIF.
rv_xstr = encode_files( lt_zip ).
ENDMETHOD.
METHOD export_object.
DATA: ls_tadir TYPE zif_abapgit_definitions=>ty_tadir,
lv_folder TYPE string,
lv_fullpath TYPE string,
lv_sep TYPE c LENGTH 1,
ls_files_item TYPE zif_abapgit_objects=>ty_serialization,
lo_frontend_serv TYPE REF TO zif_abapgit_frontend_services.
FIELD-SYMBOLS: <ls_file> LIKE LINE OF ls_files_item-files.
ls_tadir = zcl_abapgit_factory=>get_tadir( )->read_single(
iv_object = iv_object_type
iv_obj_name = iv_object_name ).
IF ls_tadir IS INITIAL.
zcx_abapgit_exception=>raise( ''Object could not be found'' ).
ENDIF.
ls_files_item-item-obj_type = ls_tadir-object.
ls_files_item-item-obj_name = ls_tadir-obj_name.
ls_files_item-item-abap_language_version = ''*''. "any
ls_files_item = zcl_abapgit_objects=>serialize(
is_item = ls_files_item-item
io_i18n_params = zcl_abapgit_i18n_params=>new(
iv_main_language_only = iv_main_language_only
iv_main_language = sy-langu ) ).
IF lines( ls_files_item-files ) = 0.
zcx_abapgit_exception=>raise( ''Empty'' ).
ENDIF.
lo_frontend_serv = zcl_abapgit_ui_factory=>get_frontend_services( ).
lo_frontend_serv->directory_browse( CHANGING cv_selected_folder = lv_folder ).
IF lv_folder IS INITIAL.
RAISE EXCEPTION TYPE zcx_abapgit_cancel.
ENDIF.
lo_frontend_serv->get_file_separator( CHANGING cv_file_separator = lv_sep ).
LOOP AT ls_files_item-files ASSIGNING <ls_file>.
lv_fullpath = |{ lv_folder }{ lv_sep }{ <ls_file>-filename }|.
save_binstring_to_localfile( iv_filename = lv_fullpath
iv_binstring = <ls_file>-data ).
ENDLOOP.
ENDMETHOD.
METHOD export_package.
DATA: ls_local_settings TYPE zif_abapgit_persistence=>ty_repo-local_settings,
lo_dot_abapgit TYPE REF TO zcl_abapgit_dot_abapgit,
lo_frontend_serv TYPE REF TO zif_abapgit_frontend_services,
lv_default TYPE string,
lv_package_escaped TYPE string,
lv_path TYPE string,
lv_zip_xstring TYPE xstring.
ls_local_settings-main_language_only = iv_main_lang_only.
ls_local_settings-ignore_subpackages = iv_ign_subpkg.
lo_dot_abapgit = zcl_abapgit_dot_abapgit=>build_default( ).
lo_dot_abapgit->set_folder_logic( iv_folder_logic ).
lo_frontend_serv = zcl_abapgit_ui_factory=>get_frontend_services( ).
lv_package_escaped = iv_package.
REPLACE ALL OCCURRENCES OF ''/'' IN lv_package_escaped WITH ''#''.
lv_default = |{ lv_package_escaped }_{ sy-datlo }_{ sy-timlo }.zip|.
lv_zip_xstring = export(
is_local_settings = ls_local_settings
iv_package = iv_package
io_dot_abapgit = lo_dot_abapgit ).
lv_path = lo_frontend_serv->show_file_save_dialog(
iv_title = ''Package Export''
iv_extension = ''zip''
iv_default_filename = lv_default ).
lo_frontend_serv->file_download(
iv_path = lv_path
iv_xstr = lv_zip_xstring ).
ENDMETHOD.
METHOD filename.
IF iv_str CA ''/''.
FIND REGEX ''(.*/)(.*)'' IN iv_str
SUBMATCHES ev_path ev_filename.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''Malformed path'' ).
ENDIF.
IF ev_path <> ''/''.
CONCATENATE ''/'' ev_path INTO ev_path.
ENDIF.
ELSE.
ev_path = ''/''.
ev_filename = iv_str.
ENDIF.
TRANSLATE ev_filename TO LOWER CASE.
ENDMETHOD.
METHOD load.
rt_files = unzip_file( iv_xstr ).
ENDMETHOD.
METHOD normalize_path.
* removes first folder from path if needed
DATA: lt_split TYPE TABLE OF string,
lv_needed TYPE abap_bool,
lv_length TYPE i,
lv_split LIKE LINE OF lt_split.
FIELD-SYMBOLS: <ls_file> LIKE LINE OF ct_files.
READ TABLE ct_files INDEX 1 ASSIGNING <ls_file>.
IF sy-subrc <> 0.
RETURN.
ENDIF.
SPLIT <ls_file>-path AT ''/'' INTO TABLE lt_split.
IF sy-subrc <> 0.
RETURN.
ENDIF.
READ TABLE lt_split INDEX 2 INTO lv_split.
IF sy-subrc <> 0 OR strlen( lv_split ) = 0.
RETURN.
ENDIF.
CONCATENATE ''/'' lv_split ''/*'' INTO lv_split.
lv_needed = abap_true.
LOOP AT ct_files ASSIGNING <ls_file>.
IF NOT <ls_file>-path CP lv_split.
lv_needed = abap_false.
EXIT. " current loop
ENDIF.
ENDLOOP.
IF lv_needed = abap_true.
lv_length = strlen( lv_split ) - 2.
LOOP AT ct_files ASSIGNING <ls_file>.
<ls_file>-path = <ls_file>-path+lv_length.
ENDLOOP.
ENDIF.
ENDMETHOD.
METHOD save_binstring_to_localfile.
zcl_abapgit_ui_factory=>get_frontend_services( )->file_download(
iv_path = iv_filename
iv_xstr = iv_binstring ).
ENDMETHOD.
METHOD unzip_file.
DATA: lo_zip TYPE REF TO cl_abap_zip,
lv_data TYPE xstring.
FIELD-SYMBOLS: <ls_zipfile> LIKE LINE OF lo_zip->files,
<ls_file> LIKE LINE OF rt_files.
CREATE OBJECT lo_zip.
lo_zip->load( EXPORTING
zip = iv_xstr
EXCEPTIONS
zip_parse_error = 1
OTHERS = 2 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''error from zip'' ).
ENDIF.
LOOP AT lo_zip->files ASSIGNING <ls_zipfile>.
lo_zip->get(
EXPORTING
name = <ls_zipfile>-name
IMPORTING
content = lv_data
EXCEPTIONS
zip_index_error = 1
zip_decompression_error = 2
OTHERS = 3 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''error from zip get'' ).
ENDIF.
APPEND INITIAL LINE TO rt_files ASSIGNING <ls_file>.
filename(
EXPORTING
iv_str = <ls_zipfile>-name
IMPORTING
ev_path = <ls_file>-path
ev_filename = <ls_file>-filename ).
<ls_file>-data = lv_data.
<ls_file>-sha1 = zcl_abapgit_hash=>sha1_blob( <ls_file>-data ).
ENDLOOP.
DELETE rt_files WHERE filename IS INITIAL.
normalize_path( CHANGING ct_files = rt_files ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_DOT_ABAPGIT ', 'CLASS zcl_abapgit_dot_abapgit DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS build_default
RETURNING
VALUE(ro_dot_abapgit) TYPE REF TO zcl_abapgit_dot_abapgit .
CLASS-METHODS deserialize
IMPORTING
!iv_xstr TYPE xstring
RETURNING
VALUE(ro_dot_abapgit) TYPE REF TO zcl_abapgit_dot_abapgit
RAISING
zcx_abapgit_exception .
METHODS constructor
IMPORTING
!is_data TYPE zif_abapgit_dot_abapgit=>ty_dot_abapgit .
METHODS serialize
RETURNING
VALUE(rv_xstr) TYPE xstring
RAISING
zcx_abapgit_exception .
METHODS to_file
RETURNING
VALUE(rs_file) TYPE zif_abapgit_git_definitions=>ty_file
RAISING
zcx_abapgit_exception .
METHODS get_data
RETURNING
VALUE(rs_data) TYPE zif_abapgit_dot_abapgit=>ty_dot_abapgit .
METHODS add_ignore
IMPORTING
!iv_path TYPE string
!iv_filename TYPE string .
METHODS is_ignored
IMPORTING
!iv_path TYPE string
!iv_filename TYPE string
RETURNING
VALUE(rv_ignored) TYPE abap_bool .
METHODS remove_ignore
IMPORTING
!iv_path TYPE string
!iv_filename TYPE string .
METHODS get_starting_folder
RETURNING
VALUE(rv_path) TYPE string .
METHODS get_folder_logic
RETURNING
VALUE(rv_logic) TYPE string .
METHODS set_folder_logic
IMPORTING
!iv_logic TYPE string .
METHODS set_starting_folder
IMPORTING
!iv_path TYPE string .
METHODS get_main_language
RETURNING
VALUE(rv_language) TYPE spras .
METHODS get_i18n_languages
RETURNING
VALUE(rt_languages) TYPE zif_abapgit_definitions=>ty_languages
RAISING
zcx_abapgit_exception .
METHODS set_i18n_languages
IMPORTING
it_languages TYPE zif_abapgit_definitions=>ty_languages
RAISING
zcx_abapgit_exception .
METHODS determine_i18n_parameters
IMPORTING
!iv_main_language_only TYPE abap_bool
RETURNING
VALUE(rs_i18n_params) TYPE zif_abapgit_definitions=>ty_i18n_params
RAISING
zcx_abapgit_exception.
METHODS get_signature
RETURNING
VALUE(rs_signature) TYPE zif_abapgit_git_definitions=>ty_file_signature
RAISING
zcx_abapgit_exception .
METHODS use_lxe
IMPORTING
!iv_yes TYPE abap_bool DEFAULT abap_undefined
RETURNING
VALUE(rv_yes) TYPE abap_bool .
METHODS get_requirements
RETURNING
VALUE(rt_requirements) TYPE zif_abapgit_dot_abapgit=>ty_requirement_tt .
METHODS set_requirements
IMPORTING
!it_requirements TYPE zif_abapgit_dot_abapgit=>ty_requirement_tt .
METHODS get_name
RETURNING
VALUE(rv_name) TYPE string.
METHODS set_name
IMPORTING
!iv_name TYPE csequence.
METHODS get_version_constant
RETURNING
VALUE(rv_version_constant) TYPE string .
METHODS set_version_constant
IMPORTING
!iv_version_constant TYPE csequence .
METHODS get_abap_language_version
RETURNING
VALUE(rv_abap_language_version) TYPE string .
METHODS set_abap_language_version
IMPORTING
!iv_abap_language_version TYPE string .
METHODS get_original_system
RETURNING
VALUE(rv_original_system) TYPE string .
METHODS set_original_system
IMPORTING
!iv_original_system TYPE csequence .
PROTECTED SECTION.
PRIVATE SECTION.
DATA ms_data TYPE zif_abapgit_dot_abapgit=>ty_dot_abapgit .
CLASS-METHODS to_xml
IMPORTING
!is_data TYPE zif_abapgit_dot_abapgit=>ty_dot_abapgit
RETURNING
VALUE(rv_xml) TYPE string
RAISING
zcx_abapgit_exception .
CLASS-METHODS from_xml
IMPORTING
!iv_xml TYPE string
RETURNING
VALUE(rs_data) TYPE zif_abapgit_dot_abapgit=>ty_dot_abapgit .
ENDCLASS.
CLASS zcl_abapgit_dot_abapgit IMPLEMENTATION.
METHOD add_ignore.
DATA: lv_name TYPE string.
FIELD-SYMBOLS: <lv_ignore> LIKE LINE OF ms_data-ignore.
lv_name = iv_path && iv_filename.
READ TABLE ms_data-ignore FROM lv_name TRANSPORTING NO FIELDS.
IF sy-subrc = 0.
RETURN.
ENDIF.
APPEND INITIAL LINE TO ms_data-ignore ASSIGNING <lv_ignore>.
<lv_ignore> = lv_name.
ENDMETHOD.
METHOD build_default.
DATA: ls_data TYPE zif_abapgit_dot_abapgit=>ty_dot_abapgit.
ls_data-master_language = sy-langu.
ls_data-starting_folder = ''/src/''.
ls_data-folder_logic = zif_abapgit_dot_abapgit=>c_folder_logic-prefix.
CREATE OBJECT ro_dot_abapgit
EXPORTING
is_data = ls_data.
ENDMETHOD.
METHOD constructor.
ms_data = is_data.
ENDMETHOD.
METHOD deserialize.
DATA: lv_xml TYPE string,
ls_data TYPE zif_abapgit_dot_abapgit=>ty_dot_abapgit.
lv_xml = zcl_abapgit_convert=>xstring_to_string_utf8( iv_xstr ).
ls_data = from_xml( lv_xml ).
CREATE OBJECT ro_dot_abapgit
EXPORTING
is_data = ls_data.
ENDMETHOD.
METHOD determine_i18n_parameters.
rs_i18n_params-main_language = get_main_language( ).
rs_i18n_params-use_lxe = use_lxe( ).
rs_i18n_params-main_language_only = iv_main_language_only.
rs_i18n_params-translation_languages = zcl_abapgit_lxe_texts=>get_translation_languages(
iv_main_language = get_main_language( )
it_i18n_languages = get_i18n_languages( ) ).
ENDMETHOD.
METHOD from_xml.
DATA: lv_xml TYPE string.
lv_xml = iv_xml.
CALL TRANSFORMATION id
OPTIONS value_handling = ''accept_data_loss''
SOURCE XML lv_xml
RESULT data = rs_data.
* downward compatibility
IF rs_data-folder_logic IS INITIAL.
rs_data-folder_logic = zif_abapgit_dot_abapgit=>c_folder_logic-prefix.
ENDIF.
ENDMETHOD.
METHOD get_abap_language_version.
rv_abap_language_version = ms_data-abap_language_version.
ENDMETHOD.
METHOD get_data.
rs_data = ms_data.
ENDMETHOD.
METHOD get_folder_logic.
rv_logic = ms_data-folder_logic.
ENDMETHOD.
METHOD get_i18n_languages.
rt_languages = ms_data-i18n_languages.
ENDMETHOD.
METHOD get_main_language.
rv_language = ms_data-master_language.
IF rv_language IS INITIAL.
rv_language = sy-langu.
ENDIF.
ENDMETHOD.
METHOD get_name.
rv_name = ms_data-name.
ENDMETHOD.
METHOD get_original_system.
rv_original_system = ms_data-original_system.
ENDMETHOD.
METHOD get_requirements.
rt_requirements = ms_data-requirements.
ENDMETHOD.
METHOD get_signature.
rs_signature-path = zif_abapgit_definitions=>c_root_dir.
rs_signature-filename = zif_abapgit_definitions=>c_dot_abapgit.
rs_signature-sha1 = zcl_abapgit_hash=>sha1_blob( serialize( ) ).
ENDMETHOD.
METHOD get_starting_folder.
rv_path = ms_data-starting_folder.
ENDMETHOD.
METHOD get_version_constant.
rv_version_constant = ms_data-version_constant.
ENDMETHOD.
METHOD is_ignored.
DATA: lv_name TYPE string,
lv_starting TYPE string,
lv_dot TYPE string,
lv_ignore TYPE string.
lv_name = iv_path && iv_filename.
CONCATENATE ms_data-starting_folder ''*'' INTO lv_starting.
" Always allow .abapgit.xml and .apack-manifest.xml
CONCATENATE ''/'' zif_abapgit_definitions=>c_dot_abapgit INTO lv_dot.
IF lv_name = lv_dot.
RETURN.
ENDIF.
CONCATENATE ''/'' zif_abapgit_apack_definitions=>c_dot_apack_manifest INTO lv_dot.
IF lv_name = lv_dot.
RETURN.
ENDIF.
" Ignore all files matching pattern in ignore list
LOOP AT ms_data-ignore INTO lv_ignore.
IF lv_name CP lv_ignore.
rv_ignored = abap_true.
RETURN.
ENDIF.
ENDLOOP.
" Ignore all files outside of starting folder tree
IF ms_data-starting_folder <> ''/'' AND NOT lv_name CP lv_starting.
rv_ignored = abap_true.
ENDIF.
IF iv_path = zif_abapgit_data_config=>c_default_path.
rv_ignored = abap_false.
ENDIF.
ENDMETHOD.
METHOD remove_ignore.
DATA: lv_name TYPE string.
lv_name = iv_path && iv_filename.
DELETE TABLE ms_data-ignore FROM lv_name.
ENDMETHOD.
METHOD serialize.
DATA lv_xml TYPE string.
lv_xml = to_xml( ms_data ).
rv_xstr = zcl_abapgit_convert=>string_to_xstring_utf8_bom( lv_xml ).
ENDMETHOD.
METHOD set_abap_language_version.
ms_data-abap_language_version = iv_abap_language_version.
ENDMETHOD.
METHOD set_folder_logic.
ms_data-folder_logic = iv_logic.
ENDMETHOD.
METHOD set_i18n_languages.
ms_data-i18n_languages = it_languages.
ENDMETHOD.
METHOD set_name.
ms_data-name = iv_name.
ENDMETHOD.
METHOD set_original_system.
ms_data-original_system = iv_original_system.
ENDMETHOD.
METHOD set_requirements.
ms_data-requirements = it_requirements.
ENDMETHOD.
METHOD set_starting_folder.
ms_data-starting_folder = iv_path.
ENDMETHOD.
METHOD set_version_constant.
ms_data-version_constant = iv_version_constant.
ENDMETHOD.
METHOD to_file.
rs_file-path = zif_abapgit_definitions=>c_root_dir.
rs_file-filename = zif_abapgit_definitions=>c_dot_abapgit.
rs_file-data = serialize( ).
rs_file-sha1 = zcl_abapgit_hash=>sha1_blob( rs_file-data ).
ENDMETHOD.
METHOD to_xml.
CALL TRANSFORMATION id
OPTIONS initial_components = ''suppress''
SOURCE data = is_data
RESULT XML rv_xml.
rv_xml = zcl_abapgit_xml_pretty=>print( rv_xml ).
REPLACE FIRST OCCURRENCE
OF REGEX ''<\\?xml version="1\\.0" encoding="[\\w-]+"\\?>''
IN rv_xml
WITH ''<?xml version="1.0" encoding="utf-8"?>''.
ASSERT sy-subrc = 0.
ENDMETHOD.
METHOD use_lxe.
IF iv_yes <> abap_undefined.
ms_data-use_lxe = iv_yes.
ENDIF.
rv_yes = ms_data-use_lxe.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_REPO ', 'CLASS zcl_abapgit_repo DEFINITION
PUBLIC
ABSTRACT
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES zif_abapgit_repo .
ALIASES ms_data
FOR zif_abapgit_repo~ms_data .
ALIASES deserialize
FOR zif_abapgit_repo~deserialize .
ALIASES deserialize_checks
FOR zif_abapgit_repo~deserialize_checks .
ALIASES get_dot_abapgit
FOR zif_abapgit_repo~get_dot_abapgit .
ALIASES get_tadir_objects
FOR zif_abapgit_repo~get_tadir_objects .
ALIASES get_files_local
FOR zif_abapgit_repo~get_files_local .
ALIASES get_files_local_filtered
FOR zif_abapgit_repo~get_files_local_filtered .
ALIASES get_files_remote
FOR zif_abapgit_repo~get_files_remote .
ALIASES get_key
FOR zif_abapgit_repo~get_key .
ALIASES get_local_settings
FOR zif_abapgit_repo~get_local_settings .
ALIASES get_name
FOR zif_abapgit_repo~get_name .
ALIASES get_package
FOR zif_abapgit_repo~get_package .
ALIASES is_offline
FOR zif_abapgit_repo~is_offline .
ALIASES refresh
FOR zif_abapgit_repo~refresh .
ALIASES set_dot_abapgit
FOR zif_abapgit_repo~set_dot_abapgit .
ALIASES find_remote_dot_abapgit
FOR zif_abapgit_repo~find_remote_dot_abapgit .
ALIASES has_remote_source
FOR zif_abapgit_repo~has_remote_source .
METHODS bind_listener
IMPORTING
!ii_listener TYPE REF TO zif_abapgit_repo_listener .
METHODS constructor
IMPORTING
!is_data TYPE zif_abapgit_persistence=>ty_repo .
METHODS create_new_log
IMPORTING
!iv_title TYPE string OPTIONAL
RETURNING
VALUE(ri_log) TYPE REF TO zif_abapgit_log .
METHODS delete_checks
RETURNING
VALUE(rs_checks) TYPE zif_abapgit_definitions=>ty_delete_checks
RAISING
zcx_abapgit_exception .
METHODS get_data_config
RETURNING
VALUE(ri_config) TYPE REF TO zif_abapgit_data_config
RAISING
zcx_abapgit_exception .
METHODS get_dot_apack
RETURNING
VALUE(ro_dot_apack) TYPE REF TO zcl_abapgit_apack_reader
RAISING
zcx_abapgit_exception.
METHODS get_log
RETURNING
VALUE(ri_log) TYPE REF TO zif_abapgit_log .
METHODS get_unsupported_objects_local
RETURNING
VALUE(rt_objects) TYPE zif_abapgit_definitions=>ty_items_tt
RAISING
zcx_abapgit_exception .
METHODS refresh_local_object
IMPORTING
!iv_obj_type TYPE tadir-object
!iv_obj_name TYPE tadir-obj_name
RAISING
zcx_abapgit_exception .
METHODS refresh_local_objects
RAISING
zcx_abapgit_exception .
METHODS remove_ignored_files
CHANGING
!ct_files TYPE zif_abapgit_git_definitions=>ty_files_tt
RAISING
zcx_abapgit_exception .
METHODS set_files_remote
IMPORTING
!it_files TYPE zif_abapgit_git_definitions=>ty_files_tt .
METHODS set_local_settings
IMPORTING
!is_settings TYPE zif_abapgit_persistence=>ty_repo-local_settings
RAISING
zcx_abapgit_exception .
METHODS switch_repo_type
IMPORTING
!iv_offline TYPE abap_bool
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
DATA mt_local TYPE zif_abapgit_definitions=>ty_files_item_tt .
DATA mt_remote TYPE zif_abapgit_git_definitions=>ty_files_tt .
DATA mv_request_local_refresh TYPE abap_bool .
DATA mv_request_remote_refresh TYPE abap_bool .
DATA mi_log TYPE REF TO zif_abapgit_log .
DATA mi_listener TYPE REF TO zif_abapgit_repo_listener .
DATA mo_apack_reader TYPE REF TO zcl_abapgit_apack_reader .
DATA mi_data_config TYPE REF TO zif_abapgit_data_config .
METHODS find_remote_dot_apack
RETURNING
VALUE(ro_dot) TYPE REF TO zcl_abapgit_apack_reader
RAISING
zcx_abapgit_exception .
METHODS reset_remote .
METHODS set
IMPORTING
!iv_url TYPE zif_abapgit_persistence=>ty_repo-url OPTIONAL
!iv_branch_name TYPE zif_abapgit_persistence=>ty_repo-branch_name OPTIONAL
!iv_selected_commit TYPE zif_abapgit_persistence=>ty_repo-selected_commit OPTIONAL
!iv_head_branch TYPE zif_abapgit_persistence=>ty_repo-head_branch OPTIONAL
!iv_offline TYPE zif_abapgit_persistence=>ty_repo-offline OPTIONAL
!is_dot_abapgit TYPE zif_abapgit_persistence=>ty_repo-dot_abapgit OPTIONAL
!is_local_settings TYPE zif_abapgit_persistence=>ty_repo-local_settings OPTIONAL
!iv_deserialized_at TYPE zif_abapgit_persistence=>ty_repo-deserialized_at OPTIONAL
!iv_deserialized_by TYPE zif_abapgit_persistence=>ty_repo-deserialized_by OPTIONAL
!iv_switched_origin TYPE zif_abapgit_persistence=>ty_repo-switched_origin OPTIONAL
RAISING
zcx_abapgit_exception .
METHODS set_dot_apack
IMPORTING
!io_dot_apack TYPE REF TO zcl_abapgit_apack_reader
RAISING
zcx_abapgit_exception .
PRIVATE SECTION.
METHODS check_language
RAISING
zcx_abapgit_exception .
METHODS check_write_protect
RAISING
zcx_abapgit_exception .
METHODS deserialize_data
IMPORTING
!is_checks TYPE zif_abapgit_definitions=>ty_deserialize_checks
CHANGING
!ct_files TYPE zif_abapgit_git_definitions=>ty_file_signatures_tt
RAISING
zcx_abapgit_exception .
METHODS deserialize_dot_abapgit
CHANGING
!ct_files TYPE zif_abapgit_git_definitions=>ty_file_signatures_tt
RAISING
zcx_abapgit_exception .
METHODS deserialize_objects
IMPORTING
!is_checks TYPE zif_abapgit_definitions=>ty_deserialize_checks
!ii_log TYPE REF TO zif_abapgit_log
CHANGING
!ct_files TYPE zif_abapgit_git_definitions=>ty_file_signatures_tt
RAISING
zcx_abapgit_exception .
METHODS normalize_local_settings
CHANGING
!cs_local_settings TYPE zif_abapgit_persistence=>ty_local_settings .
METHODS notify_listener
IMPORTING
!is_change_mask TYPE zif_abapgit_persistence=>ty_repo_meta_mask
RAISING
zcx_abapgit_exception .
METHODS update_last_deserialize
RAISING
zcx_abapgit_exception .
METHODS check_abap_language_version
RAISING
zcx_abapgit_exception .
METHODS remove_locally_excluded_files
CHANGING
!ct_rem_files TYPE zif_abapgit_git_definitions=>ty_files_tt OPTIONAL
!ct_loc_files TYPE zif_abapgit_definitions=>ty_files_item_tt OPTIONAL
RAISING
zcx_abapgit_exception .
ENDCLASS.
CLASS ZCL_ABAPGIT_REPO IMPLEMENTATION.
METHOD bind_listener.
mi_listener = ii_listener.
ENDMETHOD.
METHOD check_abap_language_version.
DATA lo_abapgit_abap_language_vers TYPE REF TO zcl_abapgit_abap_language_vers.
DATA lv_text TYPE string.
CREATE OBJECT lo_abapgit_abap_language_vers
EXPORTING
io_dot_abapgit = get_dot_abapgit( ).
IF lo_abapgit_abap_language_vers->is_import_allowed( ms_data-package ) = abap_false.
lv_text = |Repository cannot be imported. | &&
|ABAP Language Version of linked package is not compatible with repository settings.|.
zcx_abapgit_exception=>raise( lv_text ).
ENDIF.
ENDMETHOD.
METHOD check_language.
DATA:
lv_main_language TYPE spras,
lv_error_message TYPE string,
lv_error_longtext TYPE string.
" for deserialize, assumes find_remote_dot_abapgit has been called before (or language won''t be defined)
lv_main_language = get_dot_abapgit( )->get_main_language( ).
IF lv_main_language <> sy-langu.
lv_error_message = |Current login language |
&& |''{ zcl_abapgit_convert=>conversion_exit_isola_output( sy-langu ) }''|
&& | does not match main language |
&& |''{ zcl_abapgit_convert=>conversion_exit_isola_output( lv_main_language ) }''.|.
" Feature open in main language only exists if abapGit tcode is present
IF zcl_abapgit_services_abapgit=>get_abapgit_tcode( ) IS INITIAL.
lv_error_message = lv_error_message && | Please logon in main language and retry.|.
lv_error_longtext = |For the Advanced menu option ''Open in Main Language'' to be available a transaction code| &&
| must be assigned to report { sy-cprog }.|.
ELSE.
lv_error_message = lv_error_message && | Select ''Advanced'' > ''Open in Main Language''|.
ENDIF.
zcx_abapgit_exception=>raise( iv_text = lv_error_message
iv_longtext = lv_error_longtext ).
ENDIF.
ENDMETHOD.
METHOD check_write_protect.
IF get_local_settings( )-write_protected = abap_true.
zcx_abapgit_exception=>raise( ''Cannot deserialize. Local code is write-protected by repo config'' ).
ENDIF.
ENDMETHOD.
METHOD constructor.
ASSERT NOT is_data-key IS INITIAL.
ms_data = is_data.
mv_request_remote_refresh = abap_true.
ENDMETHOD.
METHOD create_new_log.
CREATE OBJECT mi_log TYPE zcl_abapgit_log.
mi_log->set_title( iv_title ).
ri_log = mi_log.
ENDMETHOD.
METHOD delete_checks.
DATA: li_package TYPE REF TO zif_abapgit_sap_package.
check_write_protect( ).
check_language( ).
li_package = zcl_abapgit_factory=>get_sap_package( get_package( ) ).
rs_checks-transport-required = li_package->are_changes_recorded_in_tr_req( ).
ENDMETHOD.
METHOD deserialize_data.
DATA:
lt_updated_files TYPE zif_abapgit_git_definitions=>ty_file_signatures_tt,
lt_result TYPE zif_abapgit_data_deserializer=>ty_results.
"Deserialize data
lt_result = zcl_abapgit_data_factory=>get_deserializer( )->deserialize(
ii_config = get_data_config( )
it_files = get_files_remote( ) ).
"Save deserialized data to DB and add entries to transport requests
lt_updated_files = zcl_abapgit_data_factory=>get_deserializer( )->actualize(
it_result = lt_result
is_checks = is_checks ).
INSERT LINES OF lt_updated_files INTO TABLE ct_files.
ENDMETHOD.
METHOD deserialize_dot_abapgit.
INSERT get_dot_abapgit( )->get_signature( ) INTO TABLE ct_files.
ENDMETHOD.
METHOD deserialize_objects.
DATA:
lt_updated_files TYPE zif_abapgit_git_definitions=>ty_file_signatures_tt,
lx_error TYPE REF TO zcx_abapgit_exception.
TRY.
lt_updated_files = zcl_abapgit_objects=>deserialize(
io_repo = me
is_checks = is_checks
ii_log = ii_log ).
CATCH zcx_abapgit_exception INTO lx_error.
" Ensure to reset default transport request task
zcl_abapgit_factory=>get_default_transport( )->reset( ).
refresh( iv_drop_log = abap_false ).
RAISE EXCEPTION lx_error.
ENDTRY.
INSERT LINES OF lt_updated_files INTO TABLE ct_files.
ENDMETHOD.
METHOD find_remote_dot_apack.
FIELD-SYMBOLS: <ls_remote> LIKE LINE OF mt_remote.
get_files_remote( ).
READ TABLE mt_remote ASSIGNING <ls_remote>
WITH KEY file_path
COMPONENTS path = zif_abapgit_definitions=>c_root_dir
filename = zif_abapgit_apack_definitions=>c_dot_apack_manifest.
IF sy-subrc = 0.
ro_dot = zcl_abapgit_apack_reader=>deserialize( iv_package_name = ms_data-package
iv_xstr = <ls_remote>-data ).
set_dot_apack( ro_dot ).
ENDIF.
ENDMETHOD.
METHOD get_data_config.
FIELD-SYMBOLS: <ls_remote> LIKE LINE OF mt_remote.
IF mi_data_config IS BOUND.
ri_config = mi_data_config.
RETURN.
ENDIF.
CREATE OBJECT ri_config TYPE zcl_abapgit_data_config.
mi_data_config = ri_config.
" Assume remote data has been loaded already
READ TABLE mt_remote ASSIGNING <ls_remote>
WITH KEY file_path
COMPONENTS path = zif_abapgit_data_config=>c_default_path.
IF sy-subrc = 0.
ri_config->from_json( mt_remote ).
ENDIF.
ENDMETHOD.
METHOD get_dot_apack.
IF mo_apack_reader IS NOT BOUND.
mo_apack_reader = zcl_abapgit_apack_reader=>create_instance( ms_data-package ).
ENDIF.
ro_dot_apack = mo_apack_reader.
ENDMETHOD.
METHOD get_log.
ri_log = mi_log.
ENDMETHOD.
METHOD get_unsupported_objects_local.
DATA: lt_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt,
lt_supported_types TYPE zcl_abapgit_objects=>ty_types_tt.
FIELD-SYMBOLS: <ls_tadir> LIKE LINE OF lt_tadir,
<ls_object> LIKE LINE OF rt_objects.
lt_tadir = get_tadir_objects( ).
lt_supported_types = zcl_abapgit_objects=>supported_list( ).
LOOP AT lt_tadir ASSIGNING <ls_tadir>.
READ TABLE lt_supported_types WITH KEY table_line = <ls_tadir>-object TRANSPORTING NO FIELDS.
IF sy-subrc <> 0.
APPEND INITIAL LINE TO rt_objects ASSIGNING <ls_object>.
MOVE-CORRESPONDING <ls_tadir> TO <ls_object>.
<ls_object>-obj_type = <ls_tadir>-object.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD normalize_local_settings.
cs_local_settings-labels = zcl_abapgit_repo_labels=>normalize( cs_local_settings-labels ).
" TODO: more validation and normalization ?
ENDMETHOD.
METHOD notify_listener.
DATA ls_meta_slug TYPE zif_abapgit_persistence=>ty_repo_xml.
IF mi_listener IS BOUND.
MOVE-CORRESPONDING ms_data TO ls_meta_slug.
mi_listener->on_meta_change(
iv_key = ms_data-key
is_meta = ls_meta_slug
is_change_mask = is_change_mask ).
ENDIF.
ENDMETHOD.
METHOD refresh_local_object.
DATA:
ls_tadir TYPE zif_abapgit_definitions=>ty_tadir,
lt_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt,
lt_new_local_files TYPE zif_abapgit_definitions=>ty_files_item_tt,
lo_serialize TYPE REF TO zcl_abapgit_serialize.
lt_tadir = get_tadir_objects( ).
DELETE mt_local WHERE item-obj_type = iv_obj_type
AND item-obj_name = iv_obj_name.
READ TABLE lt_tadir INTO ls_tadir
WITH KEY object = iv_obj_type
obj_name = iv_obj_name.
IF sy-subrc <> 0 OR ls_tadir-delflag = abap_true.
" object doesn''t exist anymore, nothing todo here
RETURN.
ENDIF.
CLEAR lt_tadir.
INSERT ls_tadir INTO TABLE lt_tadir.
CREATE OBJECT lo_serialize.
lt_new_local_files = lo_serialize->serialize(
iv_package = ms_data-package
it_tadir = lt_tadir ).
INSERT LINES OF lt_new_local_files INTO TABLE mt_local.
ENDMETHOD.
METHOD refresh_local_objects.
mv_request_local_refresh = abap_true.
get_files_local( ).
ENDMETHOD.
METHOD remove_ignored_files.
DATA lo_dot TYPE REF TO zcl_abapgit_dot_abapgit.
DATA lv_index TYPE sy-index.
FIELD-SYMBOLS <ls_files> LIKE LINE OF ct_files.
lo_dot = get_dot_abapgit( ).
" Skip ignored files
LOOP AT ct_files ASSIGNING <ls_files>.
lv_index = sy-tabix.
IF lo_dot->is_ignored( iv_path = <ls_files>-path
iv_filename = <ls_files>-filename ) = abap_true.
DELETE ct_files INDEX lv_index.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD remove_locally_excluded_files.
DATA ls_ls TYPE zif_abapgit_persistence=>ty_repo-local_settings.
DATA lv_excl TYPE string.
DATA lv_full_path TYPE string.
FIELD-SYMBOLS <ls_rfile> LIKE LINE OF ct_rem_files.
FIELD-SYMBOLS <ls_lfile> LIKE LINE OF ct_loc_files.
ls_ls = get_local_settings( ).
LOOP AT ls_ls-exclude_remote_paths INTO lv_excl.
CHECK lv_excl IS NOT INITIAL.
IF ct_rem_files IS SUPPLIED.
LOOP AT ct_rem_files ASSIGNING <ls_rfile>.
lv_full_path = <ls_rfile>-path && <ls_rfile>-filename.
IF lv_full_path CP lv_excl.
DELETE ct_rem_files INDEX sy-tabix.
ENDIF.
ENDLOOP.
ELSEIF ct_loc_files IS SUPPLIED.
LOOP AT ct_loc_files ASSIGNING <ls_lfile>.
lv_full_path = <ls_lfile>-file-path && <ls_lfile>-file-filename.
IF lv_full_path CP lv_excl.
DELETE ct_loc_files INDEX sy-tabix.
ENDIF.
ENDLOOP.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD reset_remote.
CLEAR mt_remote.
mv_request_remote_refresh = abap_true.
ENDMETHOD.
METHOD set.
* TODO: refactor, maybe use zcl_abapgit_string_map ?
DATA: ls_mask TYPE zif_abapgit_persistence=>ty_repo_meta_mask.
ASSERT iv_url IS SUPPLIED
OR iv_branch_name IS SUPPLIED
OR iv_selected_commit IS SUPPLIED
OR iv_head_branch IS SUPPLIED
OR iv_offline IS SUPPLIED
OR is_dot_abapgit IS SUPPLIED
OR is_local_settings IS SUPPLIED
OR iv_deserialized_by IS SUPPLIED
OR iv_deserialized_at IS SUPPLIED
OR iv_switched_origin IS SUPPLIED.
IF iv_url IS SUPPLIED.
ms_data-url = iv_url.
ls_mask-url = abap_true.
ENDIF.
IF iv_branch_name IS SUPPLIED.
ms_data-branch_name = iv_branch_name.
ls_mask-branch_name = abap_true.
ENDIF.
IF iv_selected_commit IS SUPPLIED.
ms_data-selected_commit = iv_selected_commit.
ls_mask-selected_commit = abap_true.
ENDIF.
IF iv_head_branch IS SUPPLIED.
ms_data-head_branch = iv_head_branch.
ls_mask-head_branch = abap_true.
ENDIF.
IF iv_offline IS SUPPLIED.
ms_data-offline = iv_offline.
ls_mask-offline = abap_true.
ENDIF.
IF is_dot_abapgit IS SUPPLIED.
ms_data-dot_abapgit = is_dot_abapgit.
ls_mask-dot_abapgit = abap_true.
ENDIF.
IF is_local_settings IS SUPPLIED.
ms_data-local_settings = is_local_settings.
ls_mask-local_settings = abap_true.
normalize_local_settings( CHANGING cs_local_settings = ms_data-local_settings ).
ENDIF.
IF iv_deserialized_at IS SUPPLIED OR iv_deserialized_by IS SUPPLIED.
ms_data-deserialized_at = iv_deserialized_at.
ms_data-deserialized_by = iv_deserialized_by.
ls_mask-deserialized_at = abap_true.
ls_mask-deserialized_by = abap_true.
ENDIF.
IF iv_switched_origin IS SUPPLIED.
ms_data-switched_origin = iv_switched_origin.
ls_mask-switched_origin = abap_true.
ENDIF.
notify_listener( ls_mask ).
ENDMETHOD.
METHOD set_dot_apack.
get_dot_apack( ).
mo_apack_reader->set_manifest_descriptor( io_dot_apack->get_manifest_descriptor( ) ).
ENDMETHOD.
METHOD set_files_remote.
mt_remote = it_files.
mv_request_remote_refresh = abap_false.
ENDMETHOD.
METHOD set_local_settings.
set( is_local_settings = is_settings ).
ENDMETHOD.
METHOD switch_repo_type.
IF iv_offline = ms_data-offline.
zcx_abapgit_exception=>raise( |Cannot switch_repo_type, offline already = "{ ms_data-offline }"| ).
ENDIF.
IF iv_offline = abap_true. " On-line -> OFFline
set( iv_url = zcl_abapgit_url=>name( ms_data-url )
iv_branch_name = ''''
iv_selected_commit = ''''
iv_head_branch = ''''
iv_offline = abap_true ).
ELSE. " OFFline -> On-line
set( iv_offline = abap_false ).
ENDIF.
ENDMETHOD.
METHOD update_last_deserialize.
DATA: lv_deserialized_at TYPE zif_abapgit_persistence=>ty_repo-deserialized_at,
lv_deserialized_by TYPE zif_abapgit_persistence=>ty_repo-deserialized_by.
GET TIME STAMP FIELD lv_deserialized_at.
lv_deserialized_by = sy-uname.
set( iv_deserialized_at = lv_deserialized_at
iv_deserialized_by = lv_deserialized_by ).
ENDMETHOD.
METHOD zif_abapgit_repo~checksums.
CREATE OBJECT ri_checksums TYPE zcl_abapgit_repo_checksums
EXPORTING
iv_repo_key = ms_data-key.
ENDMETHOD.
METHOD zif_abapgit_repo~deserialize.
DATA lt_updated_files TYPE zif_abapgit_git_definitions=>ty_file_signatures_tt.
find_remote_dot_abapgit( ).
find_remote_dot_apack( ).
check_write_protect( ).
check_language( ).
IF is_checks-requirements-met = zif_abapgit_definitions=>c_no AND is_checks-requirements-decision IS INITIAL.
zcx_abapgit_exception=>raise( ''Requirements not met and undecided'' ).
ENDIF.
IF is_checks-dependencies-met = zif_abapgit_definitions=>c_no AND is_checks-dependencies-decision IS INITIAL.
zcx_abapgit_exception=>raise( ''APACK dependencies not met and undecided'' ).
ENDIF.
IF is_checks-transport-required = abap_true AND is_checks-transport-transport IS INITIAL.
zcx_abapgit_exception=>raise( |No transport request was supplied| ).
ENDIF.
deserialize_dot_abapgit( CHANGING ct_files = lt_updated_files ).
deserialize_objects(
EXPORTING
is_checks = is_checks
ii_log = ii_log
CHANGING
ct_files = lt_updated_files ).
deserialize_data(
EXPORTING
is_checks = is_checks
CHANGING
ct_files = lt_updated_files ).
CLEAR mt_local. " Should be before CS update which uses NEW local
zif_abapgit_repo~checksums( )->update( lt_updated_files ).
update_last_deserialize( ).
COMMIT WORK AND WAIT.
ENDMETHOD.
METHOD zif_abapgit_repo~deserialize_checks.
DATA: lt_requirements TYPE zif_abapgit_dot_abapgit=>ty_requirement_tt,
lt_dependencies TYPE zif_abapgit_apack_definitions=>ty_dependencies.
find_remote_dot_abapgit( ).
find_remote_dot_apack( ).
check_write_protect( ).
check_language( ).
check_abap_language_version( ).
rs_checks = zcl_abapgit_objects=>deserialize_checks( me ).
lt_requirements = get_dot_abapgit( )->get_data( )-requirements.
rs_checks-requirements-met = zcl_abapgit_repo_requirements=>is_requirements_met( lt_requirements ).
lt_dependencies = get_dot_apack( )->get_manifest_descriptor( )-dependencies.
rs_checks-dependencies-met = zcl_abapgit_apack_helper=>are_dependencies_met( lt_dependencies ).
rs_checks-customizing = zcl_abapgit_data_factory=>get_deserializer( )->deserialize_check(
io_repo = me
ii_config = get_data_config( ) ).
ENDMETHOD.
METHOD zif_abapgit_repo~find_remote_dot_abapgit.
FIELD-SYMBOLS: <ls_remote> LIKE LINE OF mt_remote.
get_files_remote( ).
READ TABLE mt_remote ASSIGNING <ls_remote>
WITH KEY file_path
COMPONENTS path = zif_abapgit_definitions=>c_root_dir
filename = zif_abapgit_definitions=>c_dot_abapgit.
IF sy-subrc = 0.
ro_dot = zcl_abapgit_dot_abapgit=>deserialize( <ls_remote>-data ).
set_dot_abapgit( ro_dot ).
COMMIT WORK AND WAIT. " to release lock
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_repo~get_dot_abapgit.
CREATE OBJECT ro_dot_abapgit
EXPORTING
is_data = ms_data-dot_abapgit.
ENDMETHOD.
METHOD zif_abapgit_repo~get_files_local.
DATA lo_serialize TYPE REF TO zcl_abapgit_serialize.
" Serialization happened before and no refresh request
IF lines( mt_local ) > 0 AND mv_request_local_refresh = abap_false.
rt_files = mt_local.
RETURN.
ENDIF.
CREATE OBJECT lo_serialize
EXPORTING
io_dot_abapgit = get_dot_abapgit( )
is_local_settings = get_local_settings( ).
rt_files = lo_serialize->files_local(
iv_package = get_package( )
ii_data_config = get_data_config( )
ii_log = ii_log ).
remove_locally_excluded_files( CHANGING ct_loc_files = rt_files ).
mt_local = rt_files.
mv_request_local_refresh = abap_false. " Fulfill refresh
ENDMETHOD.
METHOD zif_abapgit_repo~get_files_local_filtered.
DATA lo_serialize TYPE REF TO zcl_abapgit_serialize.
DATA lt_filter TYPE zif_abapgit_definitions=>ty_tadir_tt.
CREATE OBJECT lo_serialize
EXPORTING
io_dot_abapgit = get_dot_abapgit( )
is_local_settings = get_local_settings( ).
lt_filter = ii_obj_filter->get_filter( ).
rt_files = lo_serialize->files_local(
iv_package = get_package( )
ii_data_config = get_data_config( )
ii_log = ii_log
it_filter = lt_filter ).
ENDMETHOD.
METHOD zif_abapgit_repo~get_files_remote.
DATA lt_filter TYPE zif_abapgit_definitions=>ty_tadir_tt.
DATA lr_filter TYPE REF TO zcl_abapgit_repo_filter.
rt_files = mt_remote.
"Filter Ignored Files prior to Applying a Filter
IF iv_ignore_files = abap_true.
remove_ignored_files( CHANGING ct_files = rt_files ).
ENDIF.
remove_locally_excluded_files( CHANGING ct_rem_files = rt_files ).
IF ii_obj_filter IS NOT INITIAL.
lt_filter = ii_obj_filter->get_filter( ).
CREATE OBJECT lr_filter.
lr_filter->apply_object_filter(
EXPORTING
it_filter = lt_filter
io_dot = get_dot_abapgit( )
iv_devclass = get_package( )
CHANGING
ct_files = rt_files ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_repo~get_key.
rv_key = ms_data-key.
ENDMETHOD.
METHOD zif_abapgit_repo~get_local_settings.
rs_settings = ms_data-local_settings.
ENDMETHOD.
METHOD zif_abapgit_repo~get_name.
" Local display name has priority over official name
rv_name = ms_data-local_settings-display_name.
IF rv_name IS INITIAL.
rv_name = ms_data-dot_abapgit-name.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_repo~get_package.
rv_package = ms_data-package.
ENDMETHOD.
METHOD zif_abapgit_repo~get_tadir_objects.
rt_tadir = zcl_abapgit_factory=>get_tadir( )->read(
iv_package = get_package( )
iv_ignore_subpackages = get_local_settings( )-ignore_subpackages
iv_only_local_objects = get_local_settings( )-only_local_objects
io_dot = get_dot_abapgit( ) ).
ENDMETHOD.
METHOD zif_abapgit_repo~has_remote_source.
rv_yes = boolc( lines( mt_remote ) > 0 ).
ENDMETHOD.
METHOD zif_abapgit_repo~is_offline.
rv_offline = ms_data-offline.
ENDMETHOD.
METHOD zif_abapgit_repo~refresh.
mv_request_local_refresh = abap_true.
reset_remote( ).
IF iv_drop_log = abap_true.
CLEAR mi_log.
ENDIF.
IF iv_drop_cache = abap_true.
CLEAR mt_local.
ENDIF.
get_dot_apack( )->refresh( ).
ENDMETHOD.
METHOD zif_abapgit_repo~set_dot_abapgit.
set( is_dot_abapgit = io_dot_abapgit->get_data( ) ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_REPO_CHECKSUMS ', 'CLASS zcl_abapgit_repo_checksums DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES zif_abapgit_repo_checksums.
METHODS constructor
IMPORTING
!iv_repo_key TYPE zif_abapgit_persistence=>ty_repo-key
RAISING
zcx_abapgit_exception.
METHODS force_write
IMPORTING
it_checksums TYPE zif_abapgit_persistence=>ty_local_checksum_tt
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
TYPES:
ty_local_files_by_item_tt TYPE SORTED TABLE OF zif_abapgit_definitions=>ty_file_item WITH NON-UNIQUE KEY item.
DATA mv_repo_key TYPE zif_abapgit_persistence=>ty_repo-key.
DATA mi_repo TYPE REF TO zif_abapgit_repo.
METHODS remove_non_code_related_files
CHANGING
!ct_local_files TYPE ty_local_files_by_item_tt.
METHODS build_checksums_from_files
IMPORTING
it_local TYPE ty_local_files_by_item_tt
RETURNING
VALUE(rt_checksums) TYPE zif_abapgit_persistence=>ty_local_checksum_tt.
METHODS save_checksums
IMPORTING
it_checksums TYPE zif_abapgit_persistence=>ty_local_checksum_tt
RAISING
zcx_abapgit_exception.
METHODS add_meta
CHANGING
cv_cs_blob TYPE string
RAISING
zcx_abapgit_exception.
METHODS extract_meta
CHANGING
* co_string_map - return string map with meta when it is needed
cv_cs_blob TYPE string.
ENDCLASS.
CLASS ZCL_ABAPGIT_REPO_CHECKSUMS IMPLEMENTATION.
METHOD add_meta.
DATA lv_meta_str TYPE string.
lv_meta_str = |#repo_name#{ mi_repo->get_name( ) }|.
cv_cs_blob = lv_meta_str && |\\n| && cv_cs_blob.
ENDMETHOD.
METHOD build_checksums_from_files.
DATA ls_last_item TYPE zif_abapgit_definitions=>ty_item.
FIELD-SYMBOLS:
<ls_checksum> LIKE LINE OF rt_checksums,
<ls_local> LIKE LINE OF it_local,
<ls_cs_file_sig> LIKE LINE OF <ls_checksum>-files.
" This method is run at repo creation moment or manually by user
" In the first case it assumes that the local state is the CURRENT state
" Thus the idea is to copy local state to checksums
" The second case is an exception, when we acknowledge that the state is unknown
" Thus copying the local to checksums is the "best guess"
LOOP AT it_local ASSIGNING <ls_local>.
IF ls_last_item <> <ls_local>-item OR sy-tabix = 1. " First or New item reached ?
APPEND INITIAL LINE TO rt_checksums ASSIGNING <ls_checksum>.
MOVE-CORRESPONDING <ls_local>-item TO <ls_checksum>-item.
ls_last_item = <ls_local>-item.
ENDIF.
APPEND INITIAL LINE TO <ls_checksum>-files ASSIGNING <ls_cs_file_sig>.
MOVE-CORRESPONDING <ls_local>-file TO <ls_cs_file_sig>.
ENDLOOP.
ENDMETHOD.
METHOD constructor.
ASSERT iv_repo_key IS NOT INITIAL.
mv_repo_key = iv_repo_key.
mi_repo = zcl_abapgit_repo_srv=>get_instance( )->get( mv_repo_key ).
" Should be safe as repo_srv is supposed to be single source of repo instances
ENDMETHOD.
METHOD extract_meta.
DATA lv_meta_str TYPE string.
IF cv_cs_blob+0(1) <> ''#''.
RETURN. " No meta ? just ignore it
ENDIF.
SPLIT cv_cs_blob AT |\\n| INTO lv_meta_str cv_cs_blob.
" Just remove the header meta string - this is OK for now.
" There is just repo name for the moment - needed to for DB util and potential debug
ENDMETHOD.
METHOD force_write.
" for migration only for the moment
save_checksums( it_checksums ).
ENDMETHOD.
METHOD remove_non_code_related_files.
DELETE ct_local_files
WHERE item IS INITIAL
AND NOT ( file-path = zif_abapgit_definitions=>c_root_dir
AND file-filename = zif_abapgit_definitions=>c_dot_abapgit ).
ENDMETHOD.
METHOD save_checksums.
DATA lv_cs_blob TYPE string.
lv_cs_blob = lcl_checksum_serializer=>serialize( it_checksums ).
add_meta( CHANGING cv_cs_blob = lv_cs_blob ).
zcl_abapgit_persist_factory=>get_repo_cs( )->update(
iv_key = mv_repo_key
iv_cs_blob = lv_cs_blob ).
ENDMETHOD.
METHOD zif_abapgit_repo_checksums~get.
DATA lv_cs_blob TYPE string.
TRY.
lv_cs_blob = zcl_abapgit_persist_factory=>get_repo_cs( )->read( mv_repo_key ).
CATCH zcx_abapgit_exception zcx_abapgit_not_found.
" Ignore currently, it''s not critical for execution, just return empty
RETURN.
ENDTRY.
IF lv_cs_blob IS NOT INITIAL.
extract_meta( CHANGING cv_cs_blob = lv_cs_blob ).
rt_checksums = lcl_checksum_serializer=>deserialize( lv_cs_blob ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_repo_checksums~get_checksums_per_file.
DATA lt_checksums TYPE zif_abapgit_persistence=>ty_local_checksum_tt.
FIELD-SYMBOLS <ls_object> LIKE LINE OF lt_checksums.
lt_checksums = zif_abapgit_repo_checksums~get( ).
LOOP AT lt_checksums ASSIGNING <ls_object>.
APPEND LINES OF <ls_object>-files TO rt_checksums.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_repo_checksums~rebuild.
DATA lt_local TYPE ty_local_files_by_item_tt.
DATA lt_checksums TYPE zif_abapgit_persistence=>ty_local_checksum_tt.
lt_local = mi_repo->get_files_local( ).
remove_non_code_related_files( CHANGING ct_local_files = lt_local ).
lt_checksums = build_checksums_from_files( lt_local ).
save_checksums( lt_checksums ).
ENDMETHOD.
METHOD zif_abapgit_repo_checksums~update.
DATA lt_checksums TYPE zif_abapgit_persistence=>ty_local_checksum_tt.
DATA lt_local_files TYPE zif_abapgit_definitions=>ty_files_item_tt.
lt_checksums = zif_abapgit_repo_checksums~get( ).
lt_local_files = mi_repo->get_files_local( ).
lt_checksums = lcl_update_calculator=>calculate_updated(
it_current_checksums = lt_checksums
it_local_files = lt_local_files
it_updated_files = it_updated_files ).
save_checksums( lt_checksums ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_REPO_CONTENT_LIST ', 'CLASS zcl_abapgit_repo_content_list DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
METHODS constructor
IMPORTING io_repo TYPE REF TO zcl_abapgit_repo.
METHODS list
IMPORTING iv_path TYPE string
iv_by_folders TYPE abap_bool OPTIONAL
iv_changes_only TYPE abap_bool OPTIONAL
iv_transports TYPE abap_bool OPTIONAL
RETURNING VALUE(rt_repo_items) TYPE zif_abapgit_definitions=>ty_repo_item_tt
RAISING zcx_abapgit_exception.
METHODS get_log
RETURNING VALUE(ri_log) TYPE REF TO zif_abapgit_log.
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS: BEGIN OF c_sortkey,
default TYPE i VALUE 9999,
parent_dir TYPE i VALUE 0,
dir TYPE i VALUE 1,
orphan TYPE i VALUE 2,
changed TYPE i VALUE 3,
inactive TYPE i VALUE 4,
END OF c_sortkey.
DATA: mo_repo TYPE REF TO zcl_abapgit_repo,
mi_log TYPE REF TO zif_abapgit_log.
METHODS build_repo_items
RETURNING VALUE(rt_repo_items) TYPE zif_abapgit_definitions=>ty_repo_item_tt
RAISING zcx_abapgit_exception.
METHODS build_folders
IMPORTING iv_cur_dir TYPE string
CHANGING ct_repo_items TYPE zif_abapgit_definitions=>ty_repo_item_tt
RAISING zcx_abapgit_exception.
METHODS determine_transports
CHANGING ct_repo_items TYPE zif_abapgit_definitions=>ty_repo_item_tt.
METHODS filter_changes
CHANGING ct_repo_items TYPE zif_abapgit_definitions=>ty_repo_item_tt.
METHODS check_repo_size
RAISING
zcx_abapgit_exception .
ENDCLASS.
CLASS zcl_abapgit_repo_content_list IMPLEMENTATION.
METHOD build_folders.
DATA: lv_index TYPE i,
lt_subitems LIKE ct_repo_items,
ls_subitem LIKE LINE OF ct_repo_items,
ls_folder LIKE LINE OF ct_repo_items.
DATA lo_state TYPE REF TO zcl_abapgit_repo_item_state.
FIELD-SYMBOLS <ls_item> LIKE LINE OF ct_repo_items.
LOOP AT ct_repo_items ASSIGNING <ls_item>.
lv_index = sy-tabix.
CHECK <ls_item>-path <> iv_cur_dir. " files in target dir - just leave them be
IF zcl_abapgit_path=>is_subdir( iv_path = <ls_item>-path
iv_parent = iv_cur_dir ) = abap_true.
ls_subitem-changes = <ls_item>-changes.
ls_subitem-path = <ls_item>-path.
ls_subitem-lstate = <ls_item>-lstate.
ls_subitem-rstate = <ls_item>-rstate.
APPEND ls_subitem TO lt_subitems.
ENDIF.
DELETE ct_repo_items INDEX lv_index.
ENDLOOP.
SORT lt_subitems BY path ASCENDING.
LOOP AT lt_subitems ASSIGNING <ls_item>.
AT NEW path.
CLEAR ls_folder.
ls_folder-path = <ls_item>-path.
ls_folder-sortkey = c_sortkey-dir. " Directory
ls_folder-is_dir = abap_true.
CREATE OBJECT lo_state.
ENDAT.
ls_folder-changes = ls_folder-changes + <ls_item>-changes.
lo_state->sum_with_repo_item( <ls_item> ).
AT END OF path.
ls_folder-lstate = lo_state->local( ).
ls_folder-rstate = lo_state->remote( ).
APPEND ls_folder TO ct_repo_items.
ENDAT.
ENDLOOP.
ENDMETHOD.
METHOD build_repo_items.
DATA:
lo_state TYPE REF TO zcl_abapgit_repo_item_state,
ls_file TYPE zif_abapgit_definitions=>ty_repo_file,
lt_status TYPE zif_abapgit_definitions=>ty_results_tt,
ls_item TYPE zif_abapgit_definitions=>ty_item,
ls_previous LIKE ls_item,
lv_changed_by TYPE string.
FIELD-SYMBOLS: <ls_status> LIKE LINE OF lt_status,
<ls_repo_item> LIKE LINE OF rt_repo_items.
lt_status = zcl_abapgit_repo_status=>calculate(
ii_repo = mo_repo
ii_log = mi_log ).
LOOP AT lt_status ASSIGNING <ls_status>.
AT NEW obj_name. "obj_type + obj_name
APPEND INITIAL LINE TO rt_repo_items ASSIGNING <ls_repo_item>.
<ls_repo_item>-obj_type = <ls_status>-obj_type.
<ls_repo_item>-obj_name = <ls_status>-obj_name.
<ls_repo_item>-inactive = <ls_status>-inactive.
<ls_repo_item>-sortkey = c_sortkey-default. " Default sort key
<ls_repo_item>-changes = 0.
<ls_repo_item>-path = <ls_status>-path.
<ls_repo_item>-srcsystem = <ls_status>-srcsystem.
CREATE OBJECT lo_state.
ENDAT.
IF <ls_status>-filename IS NOT INITIAL.
MOVE-CORRESPONDING <ls_status> TO ls_file.
ls_file-is_changed = boolc( <ls_status>-match = abap_false ). " TODO refactor
APPEND ls_file TO <ls_repo_item>-files.
IF <ls_status>-inactive = abap_true AND <ls_repo_item>-sortkey > c_sortkey-changed.
<ls_repo_item>-sortkey = c_sortkey-inactive.
ENDIF.
IF ls_file-is_changed = abap_true.
<ls_repo_item>-sortkey = c_sortkey-changed. " Changed files
<ls_repo_item>-changes = <ls_repo_item>-changes + 1.
lo_state->sum_with_status_item( <ls_status> ).
ENDIF.
ENDIF.
IF <ls_repo_item>-changes > 0 AND <ls_repo_item>-obj_type IS NOT INITIAL.
MOVE-CORRESPONDING <ls_repo_item> TO ls_item.
IF ls_previous = ls_item.
<ls_repo_item>-changed_by = lv_changed_by.
ELSEIF zcl_abapgit_objects=>exists( ls_item ) = abap_true.
<ls_repo_item>-changed_by = zcl_abapgit_objects=>changed_by( ls_item ).
ls_previous = ls_item.
lv_changed_by = <ls_repo_item>-changed_by.
ENDIF.
CLEAR ls_item.
ENDIF.
AT END OF obj_name. "obj_type + obj_name
IF <ls_repo_item>-obj_type IS INITIAL.
<ls_repo_item>-sortkey = c_sortkey-orphan. "Virtual objects
ENDIF.
<ls_repo_item>-lstate = lo_state->local( ).
<ls_repo_item>-rstate = lo_state->remote( ).
<ls_repo_item>-packmove = lo_state->is_reassigned( ).
ENDAT.
ENDLOOP.
ENDMETHOD.
METHOD check_repo_size.
CONSTANTS lc_new_repo_size TYPE i VALUE 10.
DATA lt_remote TYPE zif_abapgit_git_definitions=>ty_files_tt.
lt_remote = mo_repo->get_files_remote( ).
IF lines( lt_remote ) > lc_new_repo_size.
" Less files means it''s a new repo (with just readme and license, for example) which is ok
READ TABLE lt_remote TRANSPORTING NO FIELDS
WITH KEY file_path
COMPONENTS path = zif_abapgit_definitions=>c_root_dir
filename = zif_abapgit_definitions=>c_dot_abapgit.
IF sy-subrc <> 0.
mi_log->add_warning( |Cannot find .abapgit.xml - Is this an abapGit repository?| ).
ENDIF.
ENDIF.
ENDMETHOD.
METHOD constructor.
mo_repo = io_repo.
CREATE OBJECT mi_log TYPE zcl_abapgit_log.
ENDMETHOD.
METHOD determine_transports.
DATA ls_item TYPE zif_abapgit_definitions=>ty_item.
FIELD-SYMBOLS <ls_item> LIKE LINE OF ct_repo_items.
LOOP AT ct_repo_items ASSIGNING <ls_item>.
ls_item-obj_type = <ls_item>-obj_type.
ls_item-obj_name = <ls_item>-obj_name.
TRY.
<ls_item>-transport = zcl_abapgit_factory=>get_cts_api( )->get_transport_for_object( ls_item ).
CATCH zcx_abapgit_exception ##NO_HANDLER.
" Ignore errors related to object check when trying to get transport
ENDTRY.
ENDLOOP.
ENDMETHOD.
METHOD filter_changes.
FIELD-SYMBOLS: <ls_item> TYPE zif_abapgit_definitions=>ty_repo_item.
DELETE ct_repo_items WHERE changes = 0 AND inactive = abap_false.
LOOP AT ct_repo_items ASSIGNING <ls_item> WHERE inactive = abap_false.
DELETE <ls_item>-files WHERE is_changed = abap_false.
ENDLOOP.
ENDMETHOD.
METHOD get_log.
DATA li_repo_log TYPE REF TO zif_abapgit_log.
DATA lt_repo_msg TYPE zif_abapgit_log=>ty_log_outs.
DATA lr_repo_msg TYPE REF TO zif_abapgit_log=>ty_log_out.
ri_log = mi_log.
"add warning and error messages from repo log
li_repo_log = mo_repo->get_log( ).
IF li_repo_log IS BOUND.
lt_repo_msg = li_repo_log->get_messages( ).
LOOP AT lt_repo_msg REFERENCE INTO lr_repo_msg WHERE type CA ''EW''.
CASE lr_repo_msg->type.
WHEN ''E''.
ri_log->add_error( lr_repo_msg->text ).
WHEN ''W''.
ri_log->add_warning( lr_repo_msg->text ).
WHEN OTHERS.
CONTINUE.
ENDCASE.
ENDLOOP.
ENDIF.
ENDMETHOD.
METHOD list.
FIELD-SYMBOLS <ls_repo_item> LIKE LINE OF rt_repo_items.
mi_log->clear( ).
rt_repo_items = build_repo_items( ).
check_repo_size( ).
IF mo_repo->has_remote_source( ) = abap_false.
" If there''s no remote source, ignore the item state
LOOP AT rt_repo_items ASSIGNING <ls_repo_item>.
CLEAR: <ls_repo_item>-changes, <ls_repo_item>-lstate, <ls_repo_item>-rstate.
ENDLOOP.
ENDIF.
IF iv_by_folders = abap_true.
build_folders(
EXPORTING iv_cur_dir = iv_path
CHANGING ct_repo_items = rt_repo_items ).
ENDIF.
IF iv_changes_only = abap_true.
" There are never changes for offline repositories
filter_changes( CHANGING ct_repo_items = rt_repo_items ).
ENDIF.
IF iv_transports = abap_true.
determine_transports( CHANGING ct_repo_items = rt_repo_items ).
ENDIF.
SORT rt_repo_items BY
sortkey ASCENDING
path ASCENDING
obj_name ASCENDING.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_REPO_CS_MIGRATION ', 'CLASS zcl_abapgit_repo_cs_migration DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS run
RAISING
zcx_abapgit_exception
zcx_abapgit_not_found.
PROTECTED SECTION.
PRIVATE SECTION.
TYPES:
ty_repo_ids TYPE SORTED TABLE OF zif_abapgit_persistence=>ty_repo-key WITH UNIQUE KEY table_line.
CLASS-METHODS get_unconverted_repo_ids
RETURNING
VALUE(rt_repo_ids) TYPE ty_repo_ids.
CLASS-METHODS clear_repo_metadata
IMPORTING
iv_repo_key TYPE zif_abapgit_persistence=>ty_repo-key
RAISING
zcx_abapgit_exception
zcx_abapgit_not_found.
CLASS-METHODS convert_checksums
IMPORTING
iv_repo_key TYPE zif_abapgit_persistence=>ty_repo-key
RAISING
zcx_abapgit_exception
zcx_abapgit_not_found.
ENDCLASS.
CLASS ZCL_ABAPGIT_REPO_CS_MIGRATION IMPLEMENTATION.
METHOD clear_repo_metadata.
DATA lo_repo_persistence TYPE REF TO zcl_abapgit_persistence_repo.
lo_repo_persistence ?= zcl_abapgit_persist_factory=>get_repo( ).
lo_repo_persistence->rewrite_repo_meta( iv_repo_key ).
ENDMETHOD.
METHOD convert_checksums.
DATA lo_cs TYPE REF TO zcl_abapgit_repo_checksums.
DATA lv_xml TYPE zif_abapgit_persistence=>ty_content-data_str.
DATA:
BEGIN OF ls_repo_extract,
local_checksums TYPE zif_abapgit_persistence=>ty_local_checksum_tt,
END OF ls_repo_extract.
lv_xml = zcl_abapgit_persistence_db=>get_instance( )->read(
iv_type = zcl_abapgit_persistence_db=>c_type_repo
iv_value = iv_repo_key ).
REPLACE ALL OCCURRENCES OF ''<_--28C_TYPE_REPO_--29>'' IN lv_xml WITH ''<REPO>''.
REPLACE ALL OCCURRENCES OF ''</_--28C_TYPE_REPO_--29>'' IN lv_xml WITH ''</REPO>''.
CALL TRANSFORMATION id
OPTIONS value_handling = ''accept_data_loss''
SOURCE XML lv_xml
RESULT repo = ls_repo_extract.
IF lines( ls_repo_extract-local_checksums ) = 0.
RETURN.
ENDIF.
CREATE OBJECT lo_cs EXPORTING iv_repo_key = iv_repo_key.
lo_cs->force_write( ls_repo_extract-local_checksums ).
ENDMETHOD.
METHOD get_unconverted_repo_ids.
DATA lt_cs_ids TYPE ty_repo_ids.
DATA lv_repo_id LIKE LINE OF rt_repo_ids.
DATA lv_index TYPE i.
SELECT value FROM (zcl_abapgit_persistence_db=>c_tabname)
INTO TABLE rt_repo_ids
WHERE type = zcl_abapgit_persistence_db=>c_type_repo.
SELECT value FROM (zcl_abapgit_persistence_db=>c_tabname)
INTO TABLE lt_cs_ids
WHERE type = zcl_abapgit_persistence_db=>c_type_repo_csum.
LOOP AT rt_repo_ids INTO lv_repo_id.
lv_index = sy-tabix.
READ TABLE lt_cs_ids TRANSPORTING NO FIELDS WITH KEY table_line = lv_repo_id.
IF sy-subrc = 0. " Already converted
DELETE rt_repo_ids INDEX lv_index.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD run.
DATA lt_repo_ids TYPE ty_repo_ids.
DATA lv_repo_id LIKE LINE OF lt_repo_ids.
lt_repo_ids = get_unconverted_repo_ids( ).
LOOP AT lt_repo_ids INTO lv_repo_id.
convert_checksums( lv_repo_id ).
clear_repo_metadata( lv_repo_id ).
ENDLOOP.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_REPO_OFFLINE ', 'CLASS zcl_abapgit_repo_offline DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_repo
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
PROTECTED SECTION.
METHODS reset_remote
REDEFINITION .
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_repo_offline IMPLEMENTATION.
METHOD reset_remote.
DATA lt_backup LIKE mt_remote.
" online repo has online source to renew data from, offline does not
" so offline repo preserves the remote
" in case of partial pull failure the user will immediately see the new difference
" UI will detect "pullable" content based on mt_status
" in the uniform way both for online and offline repos
" for more details see discussion in 2096 and 1953
lt_backup = mt_remote.
super->reset_remote( ).
set_files_remote( lt_backup ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_REPO_ONLINE ', 'CLASS zcl_abapgit_repo_online DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_repo
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES zif_abapgit_repo_online .
ALIASES create_branch
FOR zif_abapgit_repo_online~create_branch .
ALIASES get_current_remote
FOR zif_abapgit_repo_online~get_current_remote .
ALIASES get_selected_branch
FOR zif_abapgit_repo_online~get_selected_branch .
ALIASES get_selected_commit
FOR zif_abapgit_repo_online~get_selected_commit .
ALIASES get_url
FOR zif_abapgit_repo_online~get_url .
ALIASES push
FOR zif_abapgit_repo_online~push .
ALIASES select_branch
FOR zif_abapgit_repo_online~select_branch .
ALIASES select_commit
FOR zif_abapgit_repo_online~select_commit .
ALIASES set_url
FOR zif_abapgit_repo_online~set_url .
ALIASES switch_origin
FOR zif_abapgit_repo_online~switch_origin .
ALIASES get_switched_origin
FOR zif_abapgit_repo_online~get_switched_origin.
METHODS zif_abapgit_repo~get_files_remote
REDEFINITION .
METHODS zif_abapgit_repo~get_name
REDEFINITION .
METHODS zif_abapgit_repo~has_remote_source
REDEFINITION .
PROTECTED SECTION.
PRIVATE SECTION.
DATA mt_objects TYPE zif_abapgit_definitions=>ty_objects_tt .
DATA mv_current_commit TYPE zif_abapgit_git_definitions=>ty_sha1 .
METHODS handle_stage_ignore
IMPORTING
!io_stage TYPE REF TO zcl_abapgit_stage
RAISING
zcx_abapgit_exception .
METHODS set_objects
IMPORTING
!it_objects TYPE zif_abapgit_definitions=>ty_objects_tt
RAISING
zcx_abapgit_exception .
METHODS fetch_remote
RAISING
zcx_abapgit_exception .
METHODS get_objects
RETURNING
VALUE(rt_objects) TYPE zif_abapgit_definitions=>ty_objects_tt
RAISING
zcx_abapgit_exception .
METHODS raise_error_if_branch_exists
IMPORTING
iv_name TYPE string
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_repo_online IMPLEMENTATION.
METHOD fetch_remote.
DATA: li_progress TYPE REF TO zif_abapgit_progress,
ls_pull TYPE zcl_abapgit_git_porcelain=>ty_pull_result.
IF mv_request_remote_refresh = abap_false.
RETURN.
ENDIF.
li_progress = zcl_abapgit_progress=>get_instance( 1 ).
li_progress->show( iv_current = 1
iv_text = ''Fetch remote files'' ).
IF get_selected_commit( ) IS INITIAL.
ls_pull = zcl_abapgit_git_porcelain=>pull_by_branch( iv_url = get_url( )
iv_branch_name = get_selected_branch( ) ).
ELSE.
ls_pull = zcl_abapgit_git_porcelain=>pull_by_commit( iv_url = get_url( )
iv_commit_hash = get_selected_commit( ) ).
ENDIF.
set_files_remote( ls_pull-files ).
set_objects( ls_pull-objects ).
mv_current_commit = ls_pull-commit.
ENDMETHOD.
METHOD get_objects.
fetch_remote( ).
rt_objects = mt_objects.
ENDMETHOD.
METHOD handle_stage_ignore.
DATA: lv_add TYPE abap_bool,
lo_dot_abapgit TYPE REF TO zcl_abapgit_dot_abapgit,
lt_stage TYPE zif_abapgit_definitions=>ty_stage_tt.
FIELD-SYMBOLS: <ls_stage> LIKE LINE OF lt_stage.
lo_dot_abapgit = get_dot_abapgit( ).
lt_stage = io_stage->get_all( ).
LOOP AT lt_stage ASSIGNING <ls_stage> WHERE method = zif_abapgit_definitions=>c_method-ignore.
lo_dot_abapgit->add_ignore(
iv_path = <ls_stage>-file-path
iv_filename = <ls_stage>-file-filename ).
" remove it from the staging object, as the action is handled here
io_stage->reset( iv_path = <ls_stage>-file-path
iv_filename = <ls_stage>-file-filename ).
lv_add = abap_true.
ENDLOOP.
IF lv_add = abap_true.
io_stage->add(
iv_path = zif_abapgit_definitions=>c_root_dir
iv_filename = zif_abapgit_definitions=>c_dot_abapgit
iv_data = lo_dot_abapgit->serialize( ) ).
set_dot_abapgit( lo_dot_abapgit ).
ENDIF.
ENDMETHOD.
METHOD raise_error_if_branch_exists.
DATA:
lt_branches TYPE zif_abapgit_git_definitions=>ty_git_branch_list_tt,
lv_display_name TYPE string.
lt_branches = zcl_abapgit_git_factory=>get_git_transport( )->branches( get_url( ) )->get_branches_only( ).
READ TABLE lt_branches WITH TABLE KEY name_key
COMPONENTS name = iv_name
TRANSPORTING NO FIELDS.
IF sy-subrc = 0.
lv_display_name = zcl_abapgit_git_branch_list=>get_display_name( iv_name ).
zcx_abapgit_exception=>raise( |Branch ''{ lv_display_name }'' already exists| ).
ENDIF.
ENDMETHOD.
METHOD set_objects.
mt_objects = it_objects.
ENDMETHOD.
METHOD zif_abapgit_repo_online~check_for_valid_branch.
DATA:
lo_branch_list TYPE REF TO zcl_abapgit_git_branch_list,
lx_error TYPE REF TO zcx_abapgit_exception,
lv_branch TYPE string,
lv_head TYPE string,
lv_msg TYPE string.
lv_branch = get_selected_branch( ).
IF lv_branch IS NOT INITIAL.
lo_branch_list = zcl_abapgit_git_factory=>get_git_transport( )->branches( get_url( ) ).
TRY.
lo_branch_list->find_by_name( lv_branch ).
CATCH zcx_abapgit_exception INTO lx_error.
" branch does not exist, fallback to head
lv_head = lo_branch_list->get_head_symref( ).
lv_msg = |{ lx_error->get_text( ) }. Switched to { lo_branch_list->get_display_name( lv_head ) }|.
MESSAGE lv_msg TYPE ''S''.
select_branch( lv_head ).
ENDTRY.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_repo_online~create_branch.
DATA: lv_sha1 TYPE zif_abapgit_git_definitions=>ty_sha1.
ASSERT iv_name CP zif_abapgit_git_definitions=>c_git_branch-heads.
IF iv_from IS INITIAL.
lv_sha1 = get_current_remote( ).
ELSE.
lv_sha1 = iv_from.
ENDIF.
raise_error_if_branch_exists( iv_name ).
zcl_abapgit_git_porcelain=>create_branch(
iv_url = get_url( )
iv_name = iv_name
iv_from = lv_sha1 ).
" automatically switch to new branch
select_branch( iv_name ).
ENDMETHOD.
METHOD zif_abapgit_repo_online~get_current_remote.
fetch_remote( ).
rv_sha1 = mv_current_commit.
ENDMETHOD.
METHOD zif_abapgit_repo_online~get_selected_branch.
rv_name = ms_data-branch_name.
ENDMETHOD.
METHOD zif_abapgit_repo_online~get_selected_commit.
rv_selected_commit = ms_data-selected_commit.
ENDMETHOD.
METHOD zif_abapgit_repo_online~get_switched_origin.
rv_switched_origin = ms_data-switched_origin.
ENDMETHOD.
METHOD zif_abapgit_repo_online~get_url.
rv_url = ms_data-url.
ENDMETHOD.
METHOD zif_abapgit_repo_online~push.
* assumption: PUSH is done on top of the currently selected branch
DATA: ls_push TYPE zcl_abapgit_git_porcelain=>ty_push_result,
lv_text TYPE string,
lv_parent TYPE zif_abapgit_git_definitions=>ty_sha1.
IF ms_data-branch_name CP zif_abapgit_git_definitions=>c_git_branch-tags.
lv_text = |You''re working on a tag. Currently it''s not |
&& |possible to push on tags. Consider creating a branch instead|.
zcx_abapgit_exception=>raise( lv_text ).
ENDIF.
IF ms_data-selected_commit IS NOT INITIAL.
lv_text = ''You are currently checked out in a commit.''.
lv_text = |{ lv_text } You must be on a branch to push|.
zcx_abapgit_exception=>raise( lv_text ).
ENDIF.
IF ms_data-local_settings-block_commit = abap_true
AND zcl_abapgit_factory=>get_code_inspector( get_package( )
)->is_successful( ) = abap_false.
zcx_abapgit_exception=>raise( |A successful code inspection is required| ).
ENDIF.
handle_stage_ignore( io_stage ).
IF get_selected_commit( ) IS INITIAL.
lv_parent = get_current_remote( ).
ELSE.
lv_parent = get_selected_commit( ).
ENDIF.
ls_push = zcl_abapgit_git_porcelain=>push(
is_comment = is_comment
io_stage = io_stage
iv_branch_name = get_selected_branch( )
iv_url = get_url( )
iv_parent = lv_parent
it_old_objects = get_objects( ) ).
set_objects( ls_push-new_objects ).
set_files_remote( ls_push-new_files ).
mv_current_commit = ls_push-branch.
zif_abapgit_repo~checksums( )->update( ls_push-updated_files ).
ENDMETHOD.
METHOD zif_abapgit_repo_online~select_branch.
reset_remote( ).
set( iv_branch_name = iv_branch_name
iv_selected_commit = space ).
ENDMETHOD.
METHOD zif_abapgit_repo_online~select_commit.
reset_remote( ).
set( iv_selected_commit = iv_selected_commit ).
ENDMETHOD.
METHOD zif_abapgit_repo_online~set_url.
reset_remote( ).
set( iv_url = iv_url ).
ENDMETHOD.
METHOD zif_abapgit_repo_online~switch_origin.
DATA lv_offs TYPE i.
" For repo settings page
IF iv_overwrite = abap_true.
set( iv_switched_origin = iv_url ).
RETURN.
ENDIF.
IF iv_url IS INITIAL.
IF ms_data-switched_origin IS INITIAL.
RETURN.
ELSE.
lv_offs = find(
val = reverse( ms_data-switched_origin )
sub = ''@'' ).
IF lv_offs = -1.
zcx_abapgit_exception=>raise( ''Incorrect format of switched origin'' ).
ENDIF.
lv_offs = strlen( ms_data-switched_origin ) - lv_offs - 1.
set_url( substring(
val = ms_data-switched_origin
len = lv_offs ) ).
select_branch( substring(
val = ms_data-switched_origin
off = lv_offs + 1 ) ).
set( iv_switched_origin = '''' ).
ENDIF.
ELSEIF ms_data-switched_origin IS INITIAL.
set( iv_switched_origin = ms_data-url && ''@'' && ms_data-branch_name ).
set_url( iv_url ).
select_branch( iv_branch ).
ELSE.
zcx_abapgit_exception=>raise( ''Cannot switch origin twice'' ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_repo~get_files_remote.
fetch_remote( ).
rt_files = super->get_files_remote(
ii_obj_filter = ii_obj_filter
iv_ignore_files = iv_ignore_files ).
ENDMETHOD.
METHOD zif_abapgit_repo~get_name.
rv_name = super->get_name( ).
IF rv_name IS INITIAL.
TRY.
rv_name = zcl_abapgit_url=>name( ms_data-url ).
rv_name = cl_http_utility=>unescape_url( rv_name ).
CATCH zcx_abapgit_exception.
rv_name = ''New online repo''. "unlikely fallback
ENDTRY.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_repo~has_remote_source.
rv_yes = abap_true.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_REPO_SRV ', 'CLASS zcl_abapgit_repo_srv DEFINITION
PUBLIC
FINAL
CREATE PRIVATE .
PUBLIC SECTION.
INTERFACES zif_abapgit_repo_srv .
INTERFACES zif_abapgit_repo_listener .
CLASS-METHODS get_instance
RETURNING
VALUE(ri_srv) TYPE REF TO zif_abapgit_repo_srv .
CLASS-METHODS inject_instance
IMPORTING
ii_srv TYPE REF TO zif_abapgit_repo_srv.
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-DATA gi_ref TYPE REF TO zif_abapgit_repo_srv .
DATA mv_init TYPE abap_bool.
DATA mv_only_favorites TYPE abap_bool.
DATA mt_list TYPE zif_abapgit_repo_srv=>ty_repo_list .
METHODS determine_branch_name
IMPORTING
!iv_name TYPE string
!iv_url TYPE string
RETURNING
VALUE(rv_name) TYPE string
RAISING
zcx_abapgit_exception .
METHODS refresh_all
RAISING
zcx_abapgit_exception .
METHODS refresh_favorites
RAISING
zcx_abapgit_exception .
METHODS instantiate_and_add
IMPORTING
!is_repo_meta TYPE zif_abapgit_persistence=>ty_repo
RETURNING
VALUE(ri_repo) TYPE REF TO zif_abapgit_repo
RAISING
zcx_abapgit_exception .
METHODS add
IMPORTING
!ii_repo TYPE REF TO zif_abapgit_repo
RAISING
zcx_abapgit_exception .
METHODS reinstantiate_repo
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
!is_meta TYPE zif_abapgit_persistence=>ty_repo_xml
RAISING
zcx_abapgit_exception .
METHODS validate_sub_super_packages
IMPORTING
!iv_package TYPE devclass
!it_repos TYPE zif_abapgit_persistence=>ty_repos
!iv_ign_subpkg TYPE abap_bool DEFAULT abap_false
EXPORTING
VALUE(ei_repo) TYPE REF TO zif_abapgit_repo
!ev_reason TYPE string
RAISING
zcx_abapgit_exception .
METHODS validate_package_korrflag
IMPORTING
!iv_package TYPE devclass
!iv_ign_subpkg TYPE abap_bool DEFAULT abap_false
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_repo_srv IMPLEMENTATION.
METHOD add.
DATA li_repo LIKE LINE OF mt_list.
DATA lo_repo TYPE REF TO zcl_abapgit_repo.
LOOP AT mt_list INTO li_repo.
IF li_repo->ms_data-key = ii_repo->ms_data-key.
IF li_repo = ii_repo.
RETURN.
ENDIF.
zcx_abapgit_exception=>raise( ''identical keys'' ).
ENDIF.
ENDLOOP.
lo_repo ?= ii_repo. " TODO, refactor later
lo_repo->bind_listener( me ).
APPEND ii_repo TO mt_list.
ENDMETHOD.
METHOD determine_branch_name.
DATA lo_branch_list TYPE REF TO zcl_abapgit_git_branch_list.
rv_name = iv_name.
IF rv_name IS INITIAL.
ASSERT NOT iv_url IS INITIAL.
lo_branch_list = zcl_abapgit_git_factory=>get_git_transport( )->branches( iv_url ).
rv_name = lo_branch_list->get_head_symref( ).
ELSEIF -1 = find(
val = rv_name
sub = zif_abapgit_git_definitions=>c_git_branch-heads_prefix ).
" Assume short branch name was received
rv_name = zif_abapgit_git_definitions=>c_git_branch-heads_prefix && rv_name.
ENDIF.
ENDMETHOD.
METHOD get_instance.
IF gi_ref IS INITIAL.
CREATE OBJECT gi_ref TYPE zcl_abapgit_repo_srv.
ENDIF.
ri_srv = gi_ref.
ENDMETHOD.
METHOD inject_instance.
gi_ref = ii_srv.
ENDMETHOD.
METHOD instantiate_and_add.
IF is_repo_meta-offline = abap_false.
CREATE OBJECT ri_repo TYPE zcl_abapgit_repo_online
EXPORTING
is_data = is_repo_meta.
ELSE.
CREATE OBJECT ri_repo TYPE zcl_abapgit_repo_offline
EXPORTING
is_data = is_repo_meta.
ENDIF.
add( ri_repo ).
ENDMETHOD.
METHOD refresh_all.
DATA: lt_list TYPE zif_abapgit_persistence=>ty_repos.
FIELD-SYMBOLS: <ls_list> LIKE LINE OF lt_list.
CLEAR mt_list.
lt_list = zcl_abapgit_persist_factory=>get_repo( )->list( ).
LOOP AT lt_list ASSIGNING <ls_list>.
instantiate_and_add( <ls_list> ).
ENDLOOP.
mv_init = abap_true.
mv_only_favorites = abap_false.
ENDMETHOD.
METHOD refresh_favorites.
DATA: lt_list TYPE zif_abapgit_persistence=>ty_repos,
lt_user_favorites TYPE zif_abapgit_persist_user=>ty_favorites.
DATA li_repo TYPE REF TO zif_abapgit_repo.
DATA lv_repo_index TYPE i.
DATA lo_repo_db TYPE REF TO zif_abapgit_persist_repo.
FIELD-SYMBOLS: <ls_repo_record> LIKE LINE OF lt_list.
lo_repo_db = zcl_abapgit_persist_factory=>get_repo( ).
lt_user_favorites = zcl_abapgit_persistence_user=>get_instance( )->get_favorites( ).
lt_list = lo_repo_db->list_by_keys( lt_user_favorites ).
SORT lt_list BY package.
LOOP AT mt_list INTO li_repo.
lv_repo_index = sy-tabix.
READ TABLE lt_list TRANSPORTING NO FIELDS WITH KEY package = li_repo->get_package( ).
IF sy-subrc = 0.
DELETE lt_list INDEX sy-tabix.
CONTINUE. " Leave the repo be
ELSEIF lo_repo_db->exists( li_repo->get_key( ) ) = abap_false.
" Not a fav, and also does not exist, probably uninstalled
DELETE mt_list INDEX lv_repo_index.
ENDIF.
ENDLOOP.
" Create remaining (new) favs
LOOP AT lt_list ASSIGNING <ls_repo_record>.
instantiate_and_add( <ls_repo_record> ).
ENDLOOP.
mv_init = abap_true.
mv_only_favorites = abap_true.
ENDMETHOD.
METHOD reinstantiate_repo.
DATA li_repo TYPE REF TO zif_abapgit_repo.
DATA ls_full_meta TYPE zif_abapgit_persistence=>ty_repo.
li_repo = zif_abapgit_repo_srv~get( iv_key ).
DELETE TABLE mt_list FROM li_repo.
ASSERT sy-subrc IS INITIAL.
MOVE-CORRESPONDING is_meta TO ls_full_meta.
ls_full_meta-key = iv_key.
instantiate_and_add( ls_full_meta ).
ENDMETHOD.
METHOD validate_package_korrflag.
DATA:
li_package TYPE REF TO zif_abapgit_sap_package,
lv_korrflag TYPE abap_bool,
lv_package TYPE devclass,
lt_packages TYPE zif_abapgit_sap_package=>ty_devclass_tt.
li_package = zcl_abapgit_factory=>get_sap_package( iv_package ).
IF li_package->exists( ) = abap_false.
" Skip dangling repository
RETURN.
ENDIF.
lv_korrflag = li_package->are_changes_recorded_in_tr_req( ).
IF iv_ign_subpkg = abap_false.
lt_packages = li_package->list_subpackages( ).
LOOP AT lt_packages INTO lv_package.
li_package = zcl_abapgit_factory=>get_sap_package( lv_package ).
IF li_package->exists( ) = abap_true AND li_package->are_changes_recorded_in_tr_req( ) <> lv_korrflag.
zcx_abapgit_exception=>raise( ''Mix of transportable and non-transportable packages is not supported'' ).
ENDIF.
ENDLOOP.
ENDIF.
ENDMETHOD.
METHOD validate_sub_super_packages.
DATA:
ls_repo LIKE LINE OF it_repos,
li_package TYPE REF TO zif_abapgit_sap_package,
lt_packages TYPE zif_abapgit_sap_package=>ty_devclass_tt,
li_repo TYPE REF TO zif_abapgit_repo.
LOOP AT it_repos INTO ls_repo.
li_repo = zif_abapgit_repo_srv~get( ls_repo-key ).
li_package = zcl_abapgit_factory=>get_sap_package( ls_repo-package ).
IF li_package->exists( ) = abap_false.
" Skip dangling repository
CONTINUE.
ENDIF.
CLEAR lt_packages.
IF li_repo->get_local_settings( )-ignore_subpackages = abap_false.
APPEND LINES OF li_package->list_subpackages( ) TO lt_packages.
READ TABLE lt_packages TRANSPORTING NO FIELDS
WITH KEY table_line = iv_package.
IF sy-subrc = 0.
ei_repo = li_repo.
ev_reason = |Repository { li_repo->get_name( ) } already contains { iv_package } |.
RETURN.
ENDIF.
ENDIF.
IF iv_ign_subpkg = abap_false.
APPEND LINES OF li_package->list_superpackages( ) TO lt_packages.
READ TABLE lt_packages TRANSPORTING NO FIELDS
WITH KEY table_line = iv_package.
IF sy-subrc = 0.
ei_repo = li_repo.
ev_reason = |Repository { li_repo->get_name( ) } already contains subpackage of { iv_package } |.
RETURN.
ENDIF.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_repo_listener~on_meta_change.
DATA li_persistence TYPE REF TO zif_abapgit_persist_repo.
li_persistence = zcl_abapgit_persist_factory=>get_repo( ).
li_persistence->update_metadata(
iv_key = iv_key
is_meta = is_meta
is_change_mask = is_change_mask ).
" Recreate repo instance if type changed
" Instances in mt_list are of *_online and *_offline type
" If type is changed object should be recreated from the proper class
" TODO refactor, e.g. unify repo logic in one class
IF is_change_mask-offline = abap_true.
reinstantiate_repo(
iv_key = iv_key
is_meta = is_meta ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_repo_srv~delete.
zcl_abapgit_persist_factory=>get_repo( )->delete( ii_repo->get_key( ) ).
zcl_abapgit_persist_factory=>get_repo_cs( )->delete( ii_repo->get_key( ) ).
" If favorite, remove it
IF zcl_abapgit_persistence_user=>get_instance( )->is_favorite_repo( ii_repo->get_key( ) ) = abap_true.
zcl_abapgit_persistence_user=>get_instance( )->toggle_favorite( ii_repo->get_key( ) ).
ENDIF.
DELETE TABLE mt_list FROM ii_repo.
ASSERT sy-subrc = 0.
ENDMETHOD.
METHOD zif_abapgit_repo_srv~get.
FIELD-SYMBOLS: <li_repo> LIKE LINE OF mt_list.
ASSERT iv_key IS NOT INITIAL.
IF mv_init = abap_false.
refresh_all( ).
ENDIF.
DO 2 TIMES.
" Repo might have been created in another session. Try again after refresh
IF sy-index = 2.
refresh_all( ).
ENDIF.
LOOP AT mt_list ASSIGNING <li_repo>.
IF <li_repo>->ms_data-key = iv_key.
ri_repo = <li_repo>.
RETURN.
ENDIF.
ENDLOOP.
ENDDO.
zcx_abapgit_exception=>raise( |Repository not found in database. Key: REPO, { iv_key }| ).
ENDMETHOD.
METHOD zif_abapgit_repo_srv~get_label_list.
DATA:
lt_repo TYPE zif_abapgit_repo_srv=>ty_repo_list,
ls_local_settings TYPE zif_abapgit_persistence=>ty_repo-local_settings,
lt_labels TYPE string_table,
ls_label LIKE LINE OF rt_labels.
FIELD-SYMBOLS:
<ls_repo> TYPE REF TO zif_abapgit_repo,
<lv_label> TYPE LINE OF string_table.
lt_repo = zif_abapgit_repo_srv~list( ).
LOOP AT lt_repo ASSIGNING <ls_repo>.
ls_local_settings = <ls_repo>->get_local_settings( ).
lt_labels = zcl_abapgit_repo_labels=>split( ls_local_settings-labels ).
LOOP AT lt_labels ASSIGNING <lv_label>.
ls_label-label = <lv_label>.
INSERT ls_label INTO TABLE rt_labels.
ENDLOOP.
ENDLOOP.
SORT rt_labels.
DELETE ADJACENT DUPLICATES FROM rt_labels.
ENDMETHOD.
METHOD zif_abapgit_repo_srv~get_repo_from_package.
DATA:
lt_repos TYPE zif_abapgit_persistence=>ty_repos,
lv_name TYPE zif_abapgit_persistence=>ty_local_settings-display_name,
lv_owner TYPE zif_abapgit_persistence=>ty_local_settings-display_name.
FIELD-SYMBOLS:
<ls_repo> LIKE LINE OF lt_repos.
" check if package is already in use for a different repository
lt_repos = zcl_abapgit_persist_factory=>get_repo( )->list( ).
READ TABLE lt_repos WITH KEY package = iv_package ASSIGNING <ls_repo>.
IF sy-subrc = 0.
ei_repo = get_instance( )->get( <ls_repo>-key ).
lv_name = ei_repo->get_name( ).
lv_owner = <ls_repo>-created_by.
ev_reason = |Package { iv_package } already versioned as { lv_name } by { lv_owner }|.
ELSE.
" check if package is include as sub-package in a different repo
validate_sub_super_packages(
EXPORTING
iv_package = iv_package
it_repos = lt_repos
iv_ign_subpkg = iv_ign_subpkg
IMPORTING
ei_repo = ei_repo
ev_reason = ev_reason ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_repo_srv~get_repo_from_url.
DATA:
lt_repos TYPE zif_abapgit_persistence=>ty_repos,
lv_current_repo_address TYPE string,
lv_check_repo_address TYPE string,
lv_repo_path TYPE string,
lv_name TYPE zif_abapgit_persistence=>ty_local_settings-display_name,
lv_owner TYPE zif_abapgit_persistence=>ty_local_settings-display_name.
FIELD-SYMBOLS:
<ls_repo> LIKE LINE OF lt_repos.
CLEAR:
ei_repo, ev_reason.
lv_current_repo_address = zcl_abapgit_url=>url_address( iv_url ).
" check if url is already in use for a different package
lt_repos = zcl_abapgit_persist_factory=>get_repo( )->list( ).
LOOP AT lt_repos ASSIGNING <ls_repo> WHERE offline = abap_false.
lv_check_repo_address = zcl_abapgit_url=>url_address( <ls_repo>-url ).
IF lv_current_repo_address = lv_check_repo_address.
ei_repo = get_instance( )->get( <ls_repo>-key ).
lv_repo_path = zcl_abapgit_url=>path_name( iv_url ).
lv_name = ei_repo->get_name( ).
lv_owner = <ls_repo>-created_by.
ev_reason = |Repository { lv_repo_path } already versioned as { lv_name } by { lv_owner }|.
RETURN.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_repo_srv~init.
CLEAR mv_init.
ENDMETHOD.
METHOD zif_abapgit_repo_srv~is_repo_installed.
DATA: lt_repo TYPE zif_abapgit_repo_srv=>ty_repo_list,
li_repo TYPE REF TO zif_abapgit_repo,
lv_url TYPE string,
lv_package TYPE devclass,
lo_repo_online TYPE REF TO zcl_abapgit_repo_online,
lv_err TYPE string.
lt_repo = zif_abapgit_repo_srv~list( ).
LOOP AT lt_repo INTO li_repo.
CHECK li_repo->is_offline( ) = abap_false.
lo_repo_online ?= li_repo.
lv_url = lo_repo_online->get_url( ).
lv_package = lo_repo_online->get_package( ).
CHECK to_upper( lv_url ) = to_upper( iv_url ).
" Validate bindings
"TODO refactor: move this message out of this method
IF iv_target_package IS NOT INITIAL AND iv_target_package <> lv_package.
lv_err = |Installation to package { lv_package } detected. |
&& |Cancelling installation|.
zcx_abapgit_exception=>raise( lv_err ).
ENDIF.
rv_installed = abap_true.
EXIT.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_repo_srv~list.
DATA li_repo TYPE REF TO zif_abapgit_repo.
IF mv_init = abap_false OR mv_only_favorites = abap_true.
refresh_all( ).
ENDIF.
LOOP AT mt_list INTO li_repo.
IF iv_offline = abap_undefined OR li_repo->is_offline( ) = iv_offline.
INSERT li_repo INTO TABLE rt_list.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_repo_srv~list_favorites.
DATA lt_user_favorites TYPE zif_abapgit_persist_user=>ty_favorites.
DATA li_repo TYPE REF TO zif_abapgit_repo.
lt_user_favorites = zcl_abapgit_persistence_user=>get_instance( )->get_favorites( ).
SORT lt_user_favorites BY table_line.
IF mv_init = abap_false OR mv_only_favorites = abap_false.
refresh_favorites( ).
ENDIF.
LOOP AT mt_list INTO li_repo.
READ TABLE lt_user_favorites
TRANSPORTING NO FIELDS
WITH KEY table_line = li_repo->get_key( ).
IF sy-subrc = 0 AND ( iv_offline = abap_undefined OR li_repo->is_offline( ) = iv_offline ).
APPEND li_repo TO rt_list.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_repo_srv~new_offline.
DATA: ls_repo TYPE zif_abapgit_persistence=>ty_repo,
lv_key TYPE zif_abapgit_persistence=>ty_repo-key,
lo_repo TYPE REF TO zcl_abapgit_repo_offline,
lo_dot_abapgit TYPE REF TO zcl_abapgit_dot_abapgit.
IF zcl_abapgit_auth=>is_allowed( zif_abapgit_auth=>c_authorization-create_repo ) = abap_false.
zcx_abapgit_exception=>raise( ''Not authorized'' ).
ENDIF.
zif_abapgit_repo_srv~validate_package(
iv_package = iv_package
iv_ign_subpkg = iv_ign_subpkg ).
IF iv_name IS INITIAL.
zcx_abapgit_exception=>raise( ''Missing name for repository'' ).
ENDIF.
" Repo Settings
lo_dot_abapgit = zcl_abapgit_dot_abapgit=>build_default( ).
lo_dot_abapgit->set_folder_logic( iv_folder_logic ).
lo_dot_abapgit->set_name( iv_name ).
lo_dot_abapgit->set_abap_language_version( iv_abap_lang_vers ).
lv_key = zcl_abapgit_persist_factory=>get_repo( )->add(
iv_package = iv_package
iv_offline = abap_true
is_dot_abapgit = lo_dot_abapgit->get_data( ) ).
TRY.
ls_repo = zcl_abapgit_persist_factory=>get_repo( )->read( lv_key ).
CATCH zcx_abapgit_not_found.
zcx_abapgit_exception=>raise( ''new_offline not found'' ).
ENDTRY.
lo_repo ?= instantiate_and_add( ls_repo ).
" Local Settings
IF ls_repo-local_settings-ignore_subpackages <> iv_ign_subpkg.
ls_repo-local_settings-ignore_subpackages = iv_ign_subpkg.
ENDIF.
ls_repo-local_settings-main_language_only = iv_main_lang_only.
ls_repo-local_settings-labels = iv_labels.
lo_repo->set_local_settings( ls_repo-local_settings ).
ri_repo = lo_repo.
ENDMETHOD.
METHOD zif_abapgit_repo_srv~new_online.
DATA: ls_repo TYPE zif_abapgit_persistence=>ty_repo,
lo_repo TYPE REF TO zcl_abapgit_repo_online,
lv_branch_name LIKE iv_branch_name,
lv_key TYPE zif_abapgit_persistence=>ty_repo-key,
lo_dot_abapgit TYPE REF TO zcl_abapgit_dot_abapgit,
lv_url TYPE string.
ASSERT NOT iv_url IS INITIAL
AND NOT iv_package IS INITIAL.
lv_url = condense( iv_url ).
IF zcl_abapgit_auth=>is_allowed( zif_abapgit_auth=>c_authorization-create_repo ) = abap_false.
zcx_abapgit_exception=>raise( ''Not authorized'' ).
ENDIF.
zif_abapgit_repo_srv~validate_package(
iv_package = iv_package
iv_ign_subpkg = iv_ign_subpkg ).
zif_abapgit_repo_srv~validate_url( lv_url ).
lv_branch_name = determine_branch_name(
iv_name = iv_branch_name
iv_url = lv_url ).
" Repo Settings
lo_dot_abapgit = zcl_abapgit_dot_abapgit=>build_default( ).
lo_dot_abapgit->set_folder_logic( iv_folder_logic ).
lo_dot_abapgit->set_name( iv_name ).
lo_dot_abapgit->set_abap_language_version( iv_abap_lang_vers ).
lv_key = zcl_abapgit_persist_factory=>get_repo( )->add(
iv_url = lv_url
iv_branch_name = lv_branch_name " local !
iv_display_name = iv_display_name
iv_package = iv_package
iv_offline = abap_false
is_dot_abapgit = lo_dot_abapgit->get_data( ) ).
TRY.
ls_repo = zcl_abapgit_persist_factory=>get_repo( )->read( lv_key ).
CATCH zcx_abapgit_not_found.
zcx_abapgit_exception=>raise( ''new_online not found'' ).
ENDTRY.
lo_repo ?= instantiate_and_add( ls_repo ).
" Local Settings
IF ls_repo-local_settings-ignore_subpackages <> iv_ign_subpkg.
ls_repo-local_settings-ignore_subpackages = iv_ign_subpkg.
ENDIF.
ls_repo-local_settings-main_language_only = iv_main_lang_only.
ls_repo-local_settings-labels = iv_labels.
lo_repo->set_local_settings( ls_repo-local_settings ).
lo_repo->refresh( ).
lo_repo->find_remote_dot_abapgit( ).
ri_repo = lo_repo.
ENDMETHOD.
METHOD zif_abapgit_repo_srv~purge.
* uninstalls all objects, no UI or popups in this class
* todo, this should be a method on the repo instead?
DATA: lt_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt.
DATA: lx_error TYPE REF TO zcx_abapgit_exception.
DATA lo_repo TYPE REF TO zcl_abapgit_repo.
lo_repo ?= ii_repo. " TODO, remove later
ri_log = lo_repo->create_new_log( ''Uninstall Log'' ).
IF ii_repo->get_local_settings( )-write_protected = abap_true.
zcx_abapgit_exception=>raise( ''Cannot purge. Local code is write-protected by repo config'' ).
ELSEIF zcl_abapgit_auth=>is_allowed( zif_abapgit_auth=>c_authorization-uninstall ) = abap_false.
zcx_abapgit_exception=>raise( ''Not authorized'' ).
ENDIF.
lt_tadir = lo_repo->get_tadir_objects( ).
TRY.
zcl_abapgit_objects=>delete( it_tadir = lt_tadir
is_checks = is_checks
ii_log = ri_log ).
CATCH zcx_abapgit_exception INTO lx_error.
" If uninstall fails, repo needs a refresh to show which objects where deleted and which not
ii_repo->refresh( iv_drop_log = abap_false ).
RAISE EXCEPTION lx_error.
ENDTRY.
IF iv_keep_repo = abap_true.
ii_repo->refresh( ).
ii_repo->checksums( )->rebuild( ).
ELSE.
zif_abapgit_repo_srv~delete( ii_repo ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_repo_srv~validate_package.
DATA: lv_as4user TYPE usnam,
li_repo TYPE REF TO zif_abapgit_repo,
lv_reason TYPE string.
zcl_abapgit_factory=>get_sap_package( iv_package )->validate_name( ).
" Check if package owned by SAP is allowed (new packages are ok, since they are created automatically)
lv_as4user = zcl_abapgit_factory=>get_sap_package( iv_package )->read_responsible( ).
IF sy-subrc = 0 AND lv_as4user = ''SAP'' AND
zcl_abapgit_factory=>get_environment( )->is_sap_object_allowed( ) = abap_false.
zcx_abapgit_exception=>raise( |Package { iv_package } not allowed, responsible user = ''SAP''| ).
ENDIF.
" Check if package is already used in another repo
IF iv_chk_exists = abap_true.
zif_abapgit_repo_srv~get_repo_from_package(
EXPORTING
iv_package = iv_package
iv_ign_subpkg = iv_ign_subpkg
IMPORTING
ei_repo = li_repo
ev_reason = lv_reason ).
IF li_repo IS BOUND.
zcx_abapgit_exception=>raise( lv_reason ).
ENDIF.
ENDIF.
" Check if package hierarchy is a mix of transportable and local packages
validate_package_korrflag(
iv_package = iv_package
iv_ign_subpkg = iv_ign_subpkg ).
ENDMETHOD.
METHOD zif_abapgit_repo_srv~validate_url.
DATA:
li_repo TYPE REF TO zif_abapgit_repo,
lv_reason TYPE string.
zcl_abapgit_url=>validate( iv_url ).
IF iv_chk_exists = abap_true.
zif_abapgit_repo_srv~get_repo_from_url(
EXPORTING
iv_url = iv_url
IMPORTING
ei_repo = li_repo
ev_reason = lv_reason ).
IF li_repo IS BOUND.
zcx_abapgit_exception=>raise( lv_reason ).
ENDIF.
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_REPO_STATUS ', 'CLASS zcl_abapgit_repo_status DEFINITION
PUBLIC
FINAL
CREATE PRIVATE.
PUBLIC SECTION.
CLASS-METHODS calculate
IMPORTING
!ii_repo TYPE REF TO zif_abapgit_repo
!ii_log TYPE REF TO zif_abapgit_log OPTIONAL
!ii_obj_filter TYPE REF TO zif_abapgit_object_filter OPTIONAL
RETURNING
VALUE(rt_results) TYPE zif_abapgit_definitions=>ty_results_tt
RAISING
zcx_abapgit_exception.
METHODS constructor
IMPORTING
!iv_root_package TYPE devclass
!io_dot TYPE REF TO zcl_abapgit_dot_abapgit.
PROTECTED SECTION.
PRIVATE SECTION.
DATA mv_root_package TYPE devclass.
DATA mo_dot TYPE REF TO zcl_abapgit_dot_abapgit.
METHODS calculate_status
IMPORTING
!it_local TYPE zif_abapgit_definitions=>ty_files_item_tt
!it_remote TYPE zif_abapgit_git_definitions=>ty_files_tt
!it_cur_state TYPE zif_abapgit_git_definitions=>ty_file_signatures_tt
RETURNING
VALUE(rt_results) TYPE zif_abapgit_definitions=>ty_results_tt
RAISING
zcx_abapgit_exception.
METHODS process_local
IMPORTING
!it_local TYPE zif_abapgit_definitions=>ty_files_item_tt
!it_state_idx TYPE zif_abapgit_git_definitions=>ty_file_signatures_ts
CHANGING
!ct_remote TYPE zif_abapgit_git_definitions=>ty_files_tt
!ct_items TYPE zif_abapgit_definitions=>ty_items_tt
!ct_results TYPE zif_abapgit_definitions=>ty_results_tt
RAISING
zcx_abapgit_exception.
METHODS process_items
IMPORTING
!it_unprocessed_remote TYPE zif_abapgit_git_definitions=>ty_files_tt
CHANGING
!ct_items TYPE zif_abapgit_definitions=>ty_items_tt
RAISING
zcx_abapgit_exception.
METHODS process_remote
IMPORTING
!it_local TYPE zif_abapgit_definitions=>ty_files_item_tt
!it_unprocessed_remote TYPE zif_abapgit_git_definitions=>ty_files_tt
!it_state_idx TYPE zif_abapgit_git_definitions=>ty_file_signatures_ts
!it_items_idx TYPE zif_abapgit_definitions=>ty_items_ts
CHANGING
!ct_results TYPE zif_abapgit_definitions=>ty_results_tt
RAISING
zcx_abapgit_exception.
CLASS-METHODS build_existing
IMPORTING
!is_local TYPE zif_abapgit_definitions=>ty_file_item
!is_remote TYPE zif_abapgit_git_definitions=>ty_file
!it_state TYPE zif_abapgit_git_definitions=>ty_file_signatures_ts
RETURNING
VALUE(rs_result) TYPE zif_abapgit_definitions=>ty_result.
CLASS-METHODS build_new_local
IMPORTING
!is_local TYPE zif_abapgit_definitions=>ty_file_item
RETURNING
VALUE(rs_result) TYPE zif_abapgit_definitions=>ty_result.
METHODS build_new_remote
IMPORTING
!is_remote TYPE zif_abapgit_git_definitions=>ty_file
!it_items_idx TYPE zif_abapgit_definitions=>ty_items_ts
!it_state_idx TYPE zif_abapgit_git_definitions=>ty_file_signatures_ts
RETURNING
VALUE(rs_result) TYPE zif_abapgit_definitions=>ty_result
RAISING
zcx_abapgit_exception.
CLASS-METHODS get_object_package
IMPORTING
!iv_object TYPE tadir-object
!iv_obj_name TYPE tadir-obj_name
RETURNING
VALUE(rv_devclass) TYPE devclass
RAISING
zcx_abapgit_exception.
CLASS-METHODS check_local_remote_consistency
IMPORTING
!is_local TYPE zif_abapgit_definitions=>ty_file_item
!is_remote TYPE zif_abapgit_git_definitions=>ty_file
RAISING
zcx_abapgit_exception.
CLASS-METHODS ensure_state
IMPORTING
!it_local TYPE zif_abapgit_definitions=>ty_files_item_tt
!it_cur_state TYPE zif_abapgit_git_definitions=>ty_file_signatures_tt
RETURNING
VALUE(rt_state) TYPE zif_abapgit_git_definitions=>ty_file_signatures_tt.
ENDCLASS.
CLASS zcl_abapgit_repo_status IMPLEMENTATION.
METHOD build_existing.
DATA ls_file_sig LIKE LINE OF it_state.
" Item
rs_result-obj_type = is_local-item-obj_type.
rs_result-obj_name = is_local-item-obj_name.
rs_result-package = is_local-item-devclass.
rs_result-srcsystem = is_local-item-srcsystem.
rs_result-origlang = is_local-item-origlang.
rs_result-inactive = is_local-item-inactive.
" File
rs_result-path = is_local-file-path.
rs_result-filename = is_local-file-filename.
rs_result-match = boolc( is_local-file-sha1 = is_remote-sha1 ).
IF rs_result-match = abap_true.
RETURN.
ENDIF.
" Match against current state
READ TABLE it_state INTO ls_file_sig
WITH KEY
path = is_local-file-path
filename = is_local-file-filename
BINARY SEARCH.
IF sy-subrc = 0.
IF ls_file_sig-sha1 <> is_local-file-sha1.
rs_result-lstate = zif_abapgit_definitions=>c_state-modified.
ENDIF.
IF ls_file_sig-sha1 <> is_remote-sha1.
rs_result-rstate = zif_abapgit_definitions=>c_state-modified.
ENDIF.
ELSE.
" This is a strange situation. As both local and remote exist
" the state should also be present. Maybe this is a first run of the code.
" In this case just compare hashes directly and mark both changed
" the user will presumably decide what to do after checking the actual diff
rs_result-lstate = zif_abapgit_definitions=>c_state-modified.
rs_result-rstate = zif_abapgit_definitions=>c_state-modified.
ENDIF.
ENDMETHOD.
METHOD build_new_local.
" Item
rs_result-obj_type = is_local-item-obj_type.
rs_result-obj_name = is_local-item-obj_name.
rs_result-package = is_local-item-devclass.
rs_result-srcsystem = is_local-item-srcsystem.
rs_result-origlang = is_local-item-origlang.
rs_result-inactive = is_local-item-inactive.
" File
rs_result-path = is_local-file-path.
rs_result-filename = is_local-file-filename.
" Match
rs_result-match = abap_false.
rs_result-lstate = zif_abapgit_definitions=>c_state-added.
ENDMETHOD.
METHOD build_new_remote.
DATA ls_item LIKE LINE OF it_items_idx.
DATA ls_file_sig LIKE LINE OF it_state_idx.
" Common and default part
rs_result-path = is_remote-path.
rs_result-filename = is_remote-filename.
rs_result-match = abap_false.
rs_result-rstate = zif_abapgit_definitions=>c_state-added.
zcl_abapgit_filename_logic=>file_to_object(
EXPORTING
iv_filename = is_remote-filename
iv_path = is_remote-path
iv_devclass = mv_root_package
io_dot = mo_dot
IMPORTING
es_item = ls_item ).
" Check if in item index + get package
READ TABLE it_items_idx INTO ls_item
WITH KEY
obj_type = ls_item-obj_type
obj_name = ls_item-obj_name.
IF sy-subrc = 0.
" Completely new (xml, abap) and new file in an existing object
rs_result-obj_type = ls_item-obj_type.
rs_result-obj_name = ls_item-obj_name.
rs_result-package = ls_item-devclass.
rs_result-srcsystem = ''''.
rs_result-origlang = ''''.
READ TABLE it_state_idx INTO ls_file_sig
WITH KEY
path = is_remote-path
filename = is_remote-filename.
" Existing file but from another package
" was not added during local file proc as was not in tadir for repo package
IF sy-subrc = 0.
IF ls_file_sig-sha1 = is_remote-sha1.
rs_result-match = abap_true.
CLEAR rs_result-rstate.
ELSE.
rs_result-rstate = zif_abapgit_definitions=>c_state-modified.
ENDIF.
" Item is in state and in cache but with no package - it was deleted
" OR devclass is the same as repo package (see #532)
IF ls_item-devclass IS INITIAL OR ls_item-devclass = mv_root_package.
rs_result-match = abap_false.
rs_result-lstate = zif_abapgit_definitions=>c_state-deleted.
ENDIF.
ENDIF.
ELSE. " Completely unknown file, probably non-abapgit
ASSERT 1 = 1. " No action, just follow defaults
ENDIF.
ENDMETHOD.
METHOD calculate.
DATA lt_local TYPE zif_abapgit_definitions=>ty_files_item_tt.
DATA lt_remote TYPE zif_abapgit_git_definitions=>ty_files_tt.
DATA li_exit TYPE REF TO zif_abapgit_exit.
DATA lo_instance TYPE REF TO zcl_abapgit_repo_status.
DATA lo_consistency_checks TYPE REF TO lcl_status_consistency_checks.
IF ii_obj_filter IS INITIAL.
lt_local = ii_repo->get_files_local( ii_log ).
ELSE.
lt_local = ii_repo->get_files_local_filtered(
ii_log = ii_log
ii_obj_filter = ii_obj_filter ).
ENDIF.
IF lines( lt_local ) <= 2.
" Less equal two means that we have only the .abapgit.xml and the package in
" our local repository. In this case we have to update our local .abapgit.xml
" from the remote one. Otherwise we get errors when e.g. the folder starting
" folder is different.
ii_repo->find_remote_dot_abapgit( ).
ENDIF.
lt_remote = ii_repo->get_files_remote( ii_obj_filter = ii_obj_filter
iv_ignore_files = abap_true ).
li_exit = zcl_abapgit_exit=>get_instance( ).
li_exit->pre_calculate_repo_status(
EXPORTING
is_repo_meta = ii_repo->ms_data
CHANGING
ct_local = lt_local
ct_remote = lt_remote ).
CREATE OBJECT lo_instance
EXPORTING
iv_root_package = ii_repo->get_package( )
io_dot = ii_repo->get_dot_abapgit( ).
rt_results = lo_instance->calculate_status(
it_local = lt_local
it_remote = lt_remote
it_cur_state = ii_repo->checksums( )->get_checksums_per_file( ) ).
IF ii_log IS BOUND.
" This method just adds messages to the log. No log, nothing to do here
CREATE OBJECT lo_consistency_checks
EXPORTING
iv_root_package = ii_repo->get_package( )
io_dot = ii_repo->get_dot_abapgit( ).
ii_log->merge_with( lo_consistency_checks->run_checks( rt_results ) ).
ENDIF.
ENDMETHOD.
METHOD calculate_status.
DATA:
lt_remote LIKE it_remote,
lt_items TYPE zif_abapgit_definitions=>ty_items_tt,
lt_items_by_obj TYPE zif_abapgit_definitions=>ty_items_ts, " Sorted by obj_type+obj_name
lt_state_by_file TYPE zif_abapgit_git_definitions=>ty_file_signatures_ts. " Sorted by path+filename
lt_state_by_file = ensure_state( " Index by file
it_cur_state = it_cur_state
it_local = it_local ).
lt_remote = it_remote.
" Process local files and new local files
process_local(
EXPORTING
it_local = it_local
it_state_idx = lt_state_by_file
CHANGING
ct_remote = lt_remote
ct_items = lt_items
ct_results = rt_results ).
" Remove processed remotes (with cleared SHA1)
DELETE lt_remote WHERE sha1 IS INITIAL.
" Complete item index for unmarked remote files
process_items( " TODO: rename ?
EXPORTING
it_unprocessed_remote = lt_remote
CHANGING
ct_items = lt_items ).
" The item list was not unique by now, just collected as "mention" list
SORT lt_items DESCENDING. " Default key - type, name, pkg, ...
DELETE ADJACENT DUPLICATES FROM lt_items COMPARING obj_type obj_name.
lt_items_by_obj = lt_items.
" Process new remote files (marked above with empty SHA1)
process_remote(
EXPORTING
it_local = it_local
it_unprocessed_remote = lt_remote
it_state_idx = lt_state_by_file
it_items_idx = lt_items_by_obj
CHANGING
ct_results = rt_results ).
SORT rt_results BY
obj_type ASCENDING
obj_name ASCENDING
filename ASCENDING
path ASCENDING.
ENDMETHOD.
METHOD check_local_remote_consistency.
IF is_remote-sha1 IS INITIAL.
IF is_local-file-filename = zcl_abapgit_filename_logic=>c_package_file.
zcx_abapgit_exception=>raise(
|Package name conflict { is_local-item-obj_type } { is_local-item-obj_name }. | &&
|Rename package or use FULL folder logic| ).
ELSE.
zcx_abapgit_exception=>raise(
|Checksum conflict { is_local-item-obj_type } { is_local-item-obj_name }. | &&
|Please create an issue on Github| ).
ENDIF.
ENDIF.
ENDMETHOD.
METHOD constructor.
mv_root_package = iv_root_package.
mo_dot = io_dot.
ENDMETHOD.
METHOD ensure_state.
FIELD-SYMBOLS <ls_state> LIKE LINE OF rt_state.
FIELD-SYMBOLS <ls_local> LIKE LINE OF it_local.
IF lines( it_cur_state ) = 0.
" Empty state is usually not expected. Maybe for new repos.
" In this case suppose the local state is unchanged
LOOP AT it_local ASSIGNING <ls_local>.
APPEND INITIAL LINE TO rt_state ASSIGNING <ls_state>.
MOVE-CORRESPONDING <ls_local>-file TO <ls_state>.
ENDLOOP.
ELSE.
rt_state = it_cur_state.
ENDIF.
ENDMETHOD.
METHOD get_object_package.
DATA: lv_name TYPE devclass,
li_package TYPE REF TO zif_abapgit_sap_package.
rv_devclass = zcl_abapgit_factory=>get_tadir( )->get_object_package(
iv_object = iv_object
iv_obj_name = iv_obj_name ).
IF rv_devclass IS INITIAL AND iv_object = ''DEVC'' AND iv_obj_name(1) = ''$''.
" local packages usually have no tadir entry
lv_name = iv_obj_name.
li_package = zcl_abapgit_factory=>get_sap_package( lv_name ).
IF li_package->exists( ) = abap_true.
rv_devclass = lv_name.
ENDIF.
ENDIF.
ENDMETHOD.
METHOD process_items.
DATA:
ls_item LIKE LINE OF ct_items,
lv_is_xml TYPE abap_bool,
lv_is_json TYPE abap_bool,
lv_sub_fetched TYPE abap_bool,
lt_sub_packages TYPE SORTED TABLE OF devclass WITH UNIQUE KEY table_line.
FIELD-SYMBOLS <ls_remote> LIKE LINE OF it_unprocessed_remote.
LOOP AT it_unprocessed_remote ASSIGNING <ls_remote>.
zcl_abapgit_filename_logic=>file_to_object(
EXPORTING
iv_filename = <ls_remote>-filename
iv_path = <ls_remote>-path
io_dot = mo_dot
iv_devclass = mv_root_package
IMPORTING
es_item = ls_item
ev_is_xml = lv_is_xml
ev_is_json = lv_is_json ).
CHECK lv_is_xml = abap_true OR lv_is_json = abap_true. " only object definitions
ls_item-devclass = get_object_package(
iv_object = ls_item-obj_type
iv_obj_name = ls_item-obj_name ).
IF ls_item-devclass IS NOT INITIAL AND mv_root_package <> ls_item-devclass.
IF lv_sub_fetched = abap_false.
lt_sub_packages = zcl_abapgit_factory=>get_sap_package( mv_root_package )->list_subpackages( ).
lv_sub_fetched = abap_true.
ENDIF.
" Make sure the package is under the repo main package
READ TABLE lt_sub_packages TRANSPORTING NO FIELDS
WITH KEY table_line = ls_item-devclass.
IF sy-subrc <> 0 AND ls_item-obj_type = ''DEVC''.
CLEAR ls_item-devclass.
ENDIF.
ENDIF.
APPEND ls_item TO ct_items.
ENDLOOP.
ENDMETHOD.
METHOD process_local.
FIELD-SYMBOLS:
<ls_remote> LIKE LINE OF ct_remote,
<ls_result> LIKE LINE OF ct_results,
<ls_state> LIKE LINE OF it_state_idx,
<ls_local> LIKE LINE OF it_local.
LOOP AT it_local ASSIGNING <ls_local>.
" Skip ignored files
CHECK mo_dot->is_ignored(
iv_path = <ls_local>-file-path
iv_filename = <ls_local>-file-filename ) = abap_false.
IF <ls_local>-item IS NOT INITIAL
AND zcl_abapgit_filename_logic=>is_obj_definition_file( <ls_local>-file-filename ) = abap_true.
" Collect for item index
APPEND <ls_local>-item TO ct_items.
ENDIF.
APPEND INITIAL LINE TO ct_results ASSIGNING <ls_result>.
" Find a match in remote
READ TABLE ct_remote ASSIGNING <ls_remote>
WITH KEY file_path
COMPONENTS
path = <ls_local>-file-path
filename = <ls_local>-file-filename.
IF sy-subrc = 0. " Both local and remote exist
check_local_remote_consistency(
is_local = <ls_local>
is_remote = <ls_remote> ).
<ls_result> = build_existing(
is_local = <ls_local>
is_remote = <ls_remote>
it_state = it_state_idx ).
CLEAR <ls_remote>-sha1. " Mark as processed
ELSE. " Only local exists
<ls_result> = build_new_local( <ls_local> ).
" Check if same file exists in different location
READ TABLE ct_remote ASSIGNING <ls_remote>
WITH KEY file
COMPONENTS filename = <ls_local>-file-filename.
IF sy-subrc = 0 AND <ls_local>-file-sha1 = <ls_remote>-sha1.
" If yes, then it was probably moved
<ls_result>-packmove = abap_true.
ELSEIF sy-subrc = 4.
" Check if file existed before and was deleted remotely
READ TABLE it_state_idx ASSIGNING <ls_state>
WITH KEY
path = <ls_local>-file-path
filename = <ls_local>-file-filename.
IF sy-subrc = 0.
IF <ls_local>-file-sha1 = <ls_state>-sha1.
<ls_result>-lstate = zif_abapgit_definitions=>c_state-unchanged.
ELSE.
<ls_result>-lstate = zif_abapgit_definitions=>c_state-modified.
ENDIF.
<ls_result>-rstate = zif_abapgit_definitions=>c_state-deleted. " ??
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD process_remote.
FIELD-SYMBOLS:
<ls_remote> LIKE LINE OF it_unprocessed_remote,
<ls_result> LIKE LINE OF ct_results,
<ls_local> LIKE LINE OF it_local.
LOOP AT it_unprocessed_remote ASSIGNING <ls_remote>.
APPEND INITIAL LINE TO ct_results ASSIGNING <ls_result>.
<ls_result> = build_new_remote(
is_remote = <ls_remote>
it_items_idx = it_items_idx
it_state_idx = it_state_idx ).
" Check if same file exists in different location (not for generic package files)
READ TABLE it_local ASSIGNING <ls_local>
WITH KEY file-filename = <ls_remote>-filename.
IF sy-subrc = 0 AND <ls_remote>-filename <> zcl_abapgit_filename_logic=>c_package_file.
<ls_result>-match = abap_false.
<ls_result>-lstate = zif_abapgit_definitions=>c_state-deleted.
<ls_result>-rstate = zif_abapgit_definitions=>c_state-unchanged.
IF <ls_local>-file-sha1 = <ls_remote>-sha1.
<ls_result>-packmove = abap_true.
ENDIF.
ELSE.
" Check if file existed before and was deleted locally
READ TABLE it_state_idx TRANSPORTING NO FIELDS
WITH KEY
path = <ls_remote>-path
filename = <ls_remote>-filename.
IF sy-subrc = 0.
<ls_result>-match = abap_false.
<ls_result>-lstate = zif_abapgit_definitions=>c_state-deleted.
ENDIF.
ENDIF.
ENDLOOP.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_DOT_ABAPGIT ', 'INTERFACE zif_abapgit_dot_abapgit PUBLIC.
TYPES:
BEGIN OF ty_requirement,
component TYPE tdevc-dlvunit,
min_release TYPE saprelease,
min_patch TYPE sappatchlv,
END OF ty_requirement .
TYPES:
ty_requirement_tt TYPE STANDARD TABLE OF ty_requirement WITH DEFAULT KEY .
TYPES:
BEGIN OF ty_dot_abapgit,
name TYPE string,
master_language TYPE spras,
i18n_languages TYPE zif_abapgit_definitions=>ty_languages,
use_lxe TYPE abap_bool,
starting_folder TYPE string,
folder_logic TYPE string,
ignore TYPE STANDARD TABLE OF string WITH DEFAULT KEY,
requirements TYPE ty_requirement_tt,
version_constant TYPE string,
abap_language_version TYPE string,
original_system TYPE tadir-srcsystem,
END OF ty_dot_abapgit .
CONSTANTS:
BEGIN OF c_folder_logic,
prefix TYPE string VALUE ''PREFIX'',
full TYPE string VALUE ''FULL'',
mixed TYPE string VALUE ''MIXED'',
END OF c_folder_logic,
BEGIN OF c_abap_language_version,
standard TYPE string VALUE ''standard'',
key_user TYPE string VALUE ''keyUser'',
cloud_development TYPE string VALUE ''cloudDevelopment'',
ignore TYPE string VALUE ''ignore'',
undefined TYPE string VALUE ''undefined'', " any
END OF c_abap_language_version.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_REPO ', 'INTERFACE zif_abapgit_repo
PUBLIC .
DATA ms_data TYPE zif_abapgit_persistence=>ty_repo READ-ONLY.
METHODS get_key
RETURNING
VALUE(rv_key) TYPE zif_abapgit_persistence=>ty_value .
METHODS get_name
RETURNING
VALUE(rv_name) TYPE string.
METHODS is_offline
RETURNING
VALUE(rv_offline) TYPE abap_bool .
METHODS get_package
RETURNING
VALUE(rv_package) TYPE zif_abapgit_persistence=>ty_repo-package .
METHODS get_local_settings
RETURNING
VALUE(rs_settings) TYPE zif_abapgit_persistence=>ty_repo-local_settings .
METHODS get_tadir_objects
RETURNING
VALUE(rt_tadir) TYPE zif_abapgit_definitions=>ty_tadir_tt
RAISING
zcx_abapgit_exception .
METHODS get_files_local_filtered
IMPORTING
!ii_obj_filter TYPE REF TO zif_abapgit_object_filter
!ii_log TYPE REF TO zif_abapgit_log OPTIONAL
RETURNING
VALUE(rt_files) TYPE zif_abapgit_definitions=>ty_files_item_tt
RAISING
zcx_abapgit_exception .
METHODS get_files_local
IMPORTING
!ii_log TYPE REF TO zif_abapgit_log OPTIONAL
RETURNING
VALUE(rt_files) TYPE zif_abapgit_definitions=>ty_files_item_tt
RAISING
zcx_abapgit_exception .
METHODS get_files_remote
IMPORTING
!ii_obj_filter TYPE REF TO zif_abapgit_object_filter OPTIONAL
!iv_ignore_files TYPE abap_bool DEFAULT abap_false
PREFERRED PARAMETER ii_obj_filter
RETURNING
VALUE(rt_files) TYPE zif_abapgit_git_definitions=>ty_files_tt
RAISING
zcx_abapgit_exception .
METHODS refresh
IMPORTING
!iv_drop_cache TYPE abap_bool DEFAULT abap_false
!iv_drop_log TYPE abap_bool DEFAULT abap_true
PREFERRED PARAMETER iv_drop_cache
RAISING
zcx_abapgit_exception .
METHODS get_dot_abapgit
RETURNING
VALUE(ro_dot_abapgit) TYPE REF TO zcl_abapgit_dot_abapgit .
METHODS set_dot_abapgit
IMPORTING
!io_dot_abapgit TYPE REF TO zcl_abapgit_dot_abapgit
RAISING
zcx_abapgit_exception .
METHODS find_remote_dot_abapgit
RETURNING
VALUE(ro_dot) TYPE REF TO zcl_abapgit_dot_abapgit
RAISING
zcx_abapgit_exception .
METHODS deserialize
IMPORTING
!is_checks TYPE zif_abapgit_definitions=>ty_deserialize_checks
!ii_log TYPE REF TO zif_abapgit_log
RAISING
zcx_abapgit_exception .
METHODS deserialize_checks
RETURNING
VALUE(rs_checks) TYPE zif_abapgit_definitions=>ty_deserialize_checks
RAISING
zcx_abapgit_exception .
METHODS checksums
RETURNING
VALUE(ri_checksums) TYPE REF TO zif_abapgit_repo_checksums
RAISING
zcx_abapgit_exception .
METHODS has_remote_source
RETURNING
VALUE(rv_yes) TYPE abap_bool .
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_REPO_CHECKSUMS ', 'INTERFACE zif_abapgit_repo_checksums
PUBLIC.
METHODS get
RETURNING
VALUE(rt_checksums) TYPE zif_abapgit_persistence=>ty_local_checksum_tt.
METHODS get_checksums_per_file
RETURNING
VALUE(rt_checksums) TYPE zif_abapgit_git_definitions=>ty_file_signatures_tt .
METHODS rebuild
RAISING
zcx_abapgit_exception.
METHODS update
IMPORTING
!it_updated_files TYPE zif_abapgit_git_definitions=>ty_file_signatures_tt
RAISING
zcx_abapgit_exception.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_REPO_LISTENER ', 'INTERFACE zif_abapgit_repo_listener
PUBLIC .
METHODS on_meta_change
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
!is_meta TYPE zif_abapgit_persistence=>ty_repo_xml
!is_change_mask TYPE zif_abapgit_persistence=>ty_repo_meta_mask
RAISING
zcx_abapgit_exception .
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_REPO_ONLINE ', 'INTERFACE zif_abapgit_repo_online PUBLIC.
INTERFACES zif_abapgit_repo.
METHODS get_url
RETURNING
VALUE(rv_url) TYPE zif_abapgit_persistence=>ty_repo-url .
METHODS get_selected_branch
RETURNING
VALUE(rv_name) TYPE zif_abapgit_persistence=>ty_repo-branch_name .
METHODS set_url
IMPORTING
!iv_url TYPE zif_abapgit_persistence=>ty_repo-url
RAISING
zcx_abapgit_exception .
METHODS select_branch
IMPORTING
!iv_branch_name TYPE zif_abapgit_persistence=>ty_repo-branch_name
RAISING
zcx_abapgit_exception .
METHODS get_selected_commit
RETURNING
VALUE(rv_selected_commit) TYPE zif_abapgit_persistence=>ty_repo-selected_commit
RAISING
zcx_abapgit_exception .
METHODS get_current_remote
RETURNING
VALUE(rv_sha1) TYPE zif_abapgit_git_definitions=>ty_sha1
RAISING
zcx_abapgit_exception .
METHODS select_commit
IMPORTING
!iv_selected_commit TYPE zif_abapgit_persistence=>ty_repo-selected_commit
RAISING
zcx_abapgit_exception .
METHODS switch_origin
IMPORTING
!iv_url TYPE zif_abapgit_persistence=>ty_repo-url
!iv_branch TYPE zif_abapgit_persistence=>ty_repo-branch_name OPTIONAL
!iv_overwrite TYPE abap_bool DEFAULT abap_false
RAISING
zcx_abapgit_exception .
METHODS get_switched_origin
RETURNING
VALUE(rv_switched_origin) TYPE zif_abapgit_persistence=>ty_repo-switched_origin.
METHODS push
IMPORTING
!is_comment TYPE zif_abapgit_git_definitions=>ty_comment
!io_stage TYPE REF TO zcl_abapgit_stage
RAISING
zcx_abapgit_exception .
METHODS create_branch
IMPORTING
!iv_name TYPE string
!iv_from TYPE zif_abapgit_git_definitions=>ty_sha1 OPTIONAL
RAISING
zcx_abapgit_exception .
METHODS check_for_valid_branch
RAISING
zcx_abapgit_exception .
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_REPO_SRV ', 'INTERFACE zif_abapgit_repo_srv
PUBLIC .
TYPES:
ty_repo_list TYPE STANDARD TABLE OF REF TO zif_abapgit_repo WITH DEFAULT KEY,
BEGIN OF ty_label,
label TYPE string,
END OF ty_label,
ty_labels TYPE STANDARD TABLE OF ty_label WITH NON-UNIQUE DEFAULT KEY
WITH NON-UNIQUE SORTED KEY key_label COMPONENTS label.
METHODS init.
METHODS delete
IMPORTING
!ii_repo TYPE REF TO zif_abapgit_repo
RAISING
zcx_abapgit_exception .
METHODS get
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_value
RETURNING
VALUE(ri_repo) TYPE REF TO zif_abapgit_repo
RAISING
zcx_abapgit_exception .
METHODS is_repo_installed
IMPORTING
!iv_url TYPE string
!iv_target_package TYPE devclass OPTIONAL
RETURNING
VALUE(rv_installed) TYPE abap_bool
RAISING
zcx_abapgit_exception .
METHODS list
IMPORTING
!iv_offline TYPE abap_bool DEFAULT abap_undefined
RETURNING
VALUE(rt_list) TYPE ty_repo_list
RAISING
zcx_abapgit_exception .
METHODS list_favorites
IMPORTING
!iv_offline TYPE abap_bool DEFAULT abap_undefined
RETURNING
VALUE(rt_list) TYPE ty_repo_list
RAISING
zcx_abapgit_exception .
METHODS new_offline
IMPORTING
!iv_name TYPE string
!iv_package TYPE devclass
!iv_folder_logic TYPE string DEFAULT zif_abapgit_dot_abapgit=>c_folder_logic-full
!iv_labels TYPE string OPTIONAL
!iv_ign_subpkg TYPE abap_bool DEFAULT abap_false
!iv_main_lang_only TYPE abap_bool DEFAULT abap_false
!iv_abap_lang_vers TYPE string OPTIONAL
RETURNING
VALUE(ri_repo) TYPE REF TO zif_abapgit_repo
RAISING
zcx_abapgit_exception .
METHODS new_online
IMPORTING
!iv_url TYPE string
!iv_branch_name TYPE string OPTIONAL
!iv_display_name TYPE string OPTIONAL
!iv_name TYPE string OPTIONAL
!iv_package TYPE devclass
!iv_folder_logic TYPE string DEFAULT zif_abapgit_dot_abapgit=>c_folder_logic-prefix
!iv_labels TYPE string OPTIONAL
!iv_ign_subpkg TYPE abap_bool DEFAULT abap_false
!iv_main_lang_only TYPE abap_bool DEFAULT abap_false
!iv_abap_lang_vers TYPE string OPTIONAL
RETURNING
VALUE(ri_repo) TYPE REF TO zif_abapgit_repo
RAISING
zcx_abapgit_exception .
METHODS purge
IMPORTING
!ii_repo TYPE REF TO zif_abapgit_repo
!is_checks TYPE zif_abapgit_definitions=>ty_delete_checks
!iv_keep_repo TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(ri_log) TYPE REF TO zif_abapgit_log
RAISING
zcx_abapgit_exception .
METHODS validate_package
IMPORTING
!iv_package TYPE devclass
!iv_ign_subpkg TYPE abap_bool DEFAULT abap_false
!iv_chk_exists TYPE abap_bool DEFAULT abap_true
RAISING
zcx_abapgit_exception .
METHODS validate_url
IMPORTING
!iv_url TYPE string
!iv_chk_exists TYPE abap_bool DEFAULT abap_true
RAISING
zcx_abapgit_exception .
METHODS get_repo_from_package
IMPORTING
!iv_package TYPE devclass
!iv_ign_subpkg TYPE abap_bool DEFAULT abap_false
EXPORTING
VALUE(ei_repo) TYPE REF TO zif_abapgit_repo
!ev_reason TYPE string
RAISING
zcx_abapgit_exception .
METHODS get_repo_from_url
IMPORTING
!iv_url TYPE string
EXPORTING
!ei_repo TYPE REF TO zif_abapgit_repo
!ev_reason TYPE string
RAISING
zcx_abapgit_exception .
METHODS get_label_list
RETURNING
VALUE(rt_labels) TYPE ty_labels
RAISING
zcx_abapgit_exception.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_SYNTAX_ABAP ', 'CLASS zcl_abapgit_syntax_abap DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_syntax_highlighter
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS class_constructor.
METHODS constructor.
CONSTANTS:
BEGIN OF c_css,
keyword TYPE string VALUE ''keyword'',
text TYPE string VALUE ''text'',
comment TYPE string VALUE ''comment'',
END OF c_css,
BEGIN OF c_token,
keyword TYPE c VALUE ''K'',
text TYPE c VALUE ''T'',
comment TYPE c VALUE ''C'',
END OF c_token,
BEGIN OF c_regex,
comment TYPE string VALUE ''##|"|^\\*'',
text TYPE string VALUE ''\`|''''|\\||\\{|\\}'',
keyword TYPE string VALUE ''&&|\\b[-_a-z0-9]+\\b'',
END OF c_regex.
PROTECTED SECTION.
CLASS-DATA gt_keywords TYPE HASHED TABLE OF string WITH UNIQUE KEY table_line.
CLASS-METHODS init_keywords.
CLASS-METHODS is_keyword
IMPORTING iv_chunk TYPE string
RETURNING VALUE(rv_yes) TYPE abap_bool.
METHODS order_matches REDEFINITION.
METHODS parse_line REDEFINITION.
PRIVATE SECTION.
ENDCLASS.
CLASS ZCL_ABAPGIT_SYNTAX_ABAP IMPLEMENTATION.
METHOD class_constructor.
init_keywords( ).
ENDMETHOD.
METHOD constructor.
super->constructor( ).
" Initialize instances of regular expression
add_rule( iv_regex = c_regex-keyword
iv_token = c_token-keyword
iv_style = c_css-keyword ).
add_rule( iv_regex = c_regex-comment
iv_token = c_token-comment
iv_style = c_css-comment ).
add_rule( iv_regex = c_regex-text
iv_token = c_token-text
iv_style = c_css-text ).
ENDMETHOD.
METHOD init_keywords.
DATA: lv_keywords TYPE string,
lt_keywords TYPE STANDARD TABLE OF string.
lv_keywords =
''&&|?TO|ABAP-SOURCE|ABBREVIATED|ABS|ABSTRACT|ACCEPT|ACCEPTING'' &&
''|ACCORDING|ACOS|ACTIVATION|ACTUAL|ADD|ADD-CORRESPONDING|ADJACENT|AFTER|ALIAS'' &&
''|ALIASES|ALIGN|ALL|ALLOCATE|ALPHA|ANALYSIS|ANALYZER|AND|ANY|APPEND|APPENDAGE'' &&
''|APPENDING|APPLICATION|ARCHIVE|AREA|ARITHMETIC|AS|ASCENDING|ASIN|ASPECT|ASSERT'' &&
''|ASSIGN|ASSIGNED|ASSIGNING|ASSOCIATION|ASYNCHRONOUS|AT|ATAN|ATTRIBUTES|AUTHORITY'' &&
''|AUTHORITY-CHECK|AVG|BACK|BACKGROUND|BACKUP|BACKWARD|BADI|BASE|BEFORE|BEGIN'' &&
''|BETWEEN|BIG|BINARY|BIT|BIT-AND|BIT-NOT|BIT-OR|BIT-XOR|BLACK|BLANK'' &&
''|BLANKS|BLOB|BLOCK|BLOCKS|BLUE|BOUND|BOUNDARIES|BOUNDS|BOXED|BREAK-POINT|BT'' &&
''|BUFFER|BY|BYPASSING|BYTE|BYTE-CA|BYTE-CN|BYTE-CO|BYTE-CS|BYTE-NA|BYTE-NS'' &&
''|BYTE-ORDER|C|CA|CALL|CALLING|CASE|CAST|CASTING|CATCH|CEIL|CENTER|CENTERED'' &&
''|CHAIN|CHAIN-INPUT|CHAIN-REQUEST|CHANGE|CHANGING|CHANNELS|CHARACTER|CHARLEN'' &&
''|CHAR-TO-HEX|CHECK|CHECKBOX|CI_|CIRCULAR|CLASS|CLASS-CODING|CLASS-DATA'' &&
''|CLASS-EVENTS|CLASS-METHODS|CLASS-POOL|CLEANUP|CLEAR|CLIENT|CLOB|CLOCK|CLOSE'' &&
''|CN|CO|COALESCE|CODE|CODING|COL_BACKGROUND|COL_GROUP|COL_HEADING|COL_KEY'' &&
''|COL_NEGATIVE|COL_NORMAL|COL_POSITIVE|COL_TOTAL|COLLECT|COLOR|COLUMN|COLUMNS'' &&
''|COMMENT|COMMENTS|COMMIT|COMMON|COMMUNICATION|COMPARING|COMPONENT|COMPONENTS'' &&
''|COMPRESSION|COMPUTE|CONCAT|CONCATENATE|COND|CONDENSE|CONDITION|CONNECT'' &&
''|CONNECTION|CONSTANTS|CONTEXT|CONTEXTS|CONTINUE|CONTROL|CONTROLS|CONV|CONVERSION'' &&
''|CONVERT|COPIES|COPY|CORRESPONDING|COS|COSH|COUNT|COUNTRY|COVER|CP|CPI|CREATE'' &&
''|CREATING|CRITICAL|CS|CURRENCY|CURRENCY_CONVERSION|CURRENT|CURSOR|CURSOR-SELECTION'' &&
''|CUSTOMER|CUSTOMER-FUNCTION|DANGEROUS|DATA|DATABASE|DATAINFO|DATASET|DATE'' &&
''|DAYLIGHT|DBMAXLEN|DD/MM/YY|DD/MM/YYYY|DDMMYY|DEALLOCATE|DECIMAL_SHIFT|DECIMALS'' &&
''|DECLARATIONS|DEEP|DEFAULT|DEFERRED|DEFINE|DEFINING|DEFINITION|DELETE|DELETING'' &&
''|DEMAND|DEPARTMENT|DESCENDING|DESCRIBE|DESTINATION|DETAIL|DIALOG|DIRECTORY'' &&
''|DISCONNECT|DISPLAY|DISPLAY-MODE|DISTANCE|DISTINCT|DIV|DIVIDE|DIVIDE-CORRESPONDING'' &&
''|DIVISION|DO|DUMMY|DUPLICATE|DUPLICATES|DURATION|DURING|DYNAMIC|DYNPRO'' &&
''|EDIT|EDITOR-CALL|ELSE|ELSEIF|EMPTY|ENABLED|ENABLING|ENCODING|END|ENDAT|ENDCASE'' &&
''|ENDCATCH|ENDCHAIN|ENDCLASS|ENDDO|ENDENHANCEMENT|END-ENHANCEMENT-SECTION'' &&
''|ENDEXEC|ENDFORM|ENDFUNCTION|ENDIAN|ENDIF|ENDING|ENDINTERFACE'' &&
''|END-LINES|ENDLOOP|ENDMETHOD|ENDMODULE|END-OF-DEFINITION|END-OF-FILE'' &&
''|END-OF-PAGE|END-OF-SELECTION|ENDON|ENDPROVIDE|ENDSELECT|ENDTRY|ENDWHILE'' &&
''|ENGINEERING|ENHANCEMENT|ENHANCEMENT-POINT|ENHANCEMENTS|ENHANCEMENT-SECTION'' &&
''|ENTRIES|ENTRY|ENVIRONMENT|EQ|EQUIV|ERRORMESSAGE|ERRORS|ESCAPE|ESCAPING'' &&
''|EVENT|EVENTS|EXACT|EXCEPT|EXCEPTION|EXCEPTIONS|EXCEPTION-TABLE|EXCLUDE|EXCLUDING'' &&
''|EXEC|EXECUTE|EXISTS|EXIT|EXIT-COMMAND|EXP|EXPAND|EXPANDING|EXPIRATION|EXPLICIT'' &&
''|EXPONENT|EXPORT|EXPORTING|EXTEND|EXTENDED|EXTENSION|EXTRACT|FAIL|FETCH|FIELD'' &&
''|FIELD-GROUPS|FIELDS|FIELD-SYMBOL|FIELD-SYMBOLS|FILE|FILTER|FILTERS|FILTER-TABLE'' &&
''|FINAL|FIND|FIRST|FIRST-LINE|FIXED-POINT|FKEQ|FKGE|FLOOR|FLUSH|FONT|FOR|FORM'' &&
''|FORMAT|FORWARD|FOUND|FRAC|FRAME|FRAMES|FREE|FRIENDS|FROM|FUNCTION|FUNCTIONALITY'' &&
''|FUNCTION-POOL|FURTHER|GAPS|GE|GENERATE|GET|GIVING|GKEQ|GKGE|GLOBAL|GRANT'' &&
''|GREEN|GROUP|GROUPS|GT|HANDLE|HANDLER|HARMLESS|HASHED|HAVING|HDB|HEADER|HEADERS'' &&
''|HEADING|HEAD-LINES|HELP-ID|HELP-REQUEST|HIDE|HIGH|HINT|HOLD|HOTSPOT|I|ICON|ID'' &&
''|IDENTIFICATION|IDENTIFIER|IDS|IF|IGNORE|IGNORING|IMMEDIATELY|IMPLEMENTATION'' &&
''|IMPLEMENTATIONS|IMPLEMENTED|IMPLICIT|IMPORT|IMPORTING|IN|INACTIVE|INCL|INCLUDE'' &&
''|INCLUDES|INCLUDING|INCREMENT|INDEX|INDEX-LINE|INFOTYPES|INHERITING|INIT|INITIAL'' &&
''|INITIALIZATION|INNER|INOUT|INPUT|INSERT|INSTANCES|INTENSIFIED|INTERFACE'' &&
''|INTERFACE-POOL|INTERFACES|INTERNAL|INTERVALS|INTO|INVERSE|INVERTED-DATE|IS'' &&
''|ISO|JOB|JOIN|KEEP|KEEPING|KERNEL|KEY|KEYS|KEYWORDS|KIND'' &&
''|LANGUAGE|LAST|LATE|LAYOUT|LE|LEADING|LEAVE|LEFT|LEFT-JUSTIFIED|LEFTPLUS'' &&
''|LEFTSPACE|LEGACY|LENGTH|LET|LEVEL|LEVELS|LIKE|LINE|LINE-COUNT|LINEFEED'' &&
''|LINES|LINE-SELECTION|LINE-SIZE|LIST|LISTBOX|LIST-PROCESSING|LITTLE|LLANG'' &&
''|LOAD|LOAD-OF-PROGRAM|LOB|LOCAL|LOCALE|LOCATOR|LOG|LOG10|LOGFILE|LOGICAL'' &&
''|LOG-POINT|LONG|LOOP|LOW|LOWER|LPAD|LPI|LT|M|MAIL|MAIN|MAJOR-ID|MAPPING|MARGIN'' &&
''|MARK|MASK|MATCH|MATCHCODE|MAX|MAXIMUM|MEDIUM|MEMBERS|MEMORY|MESH|MESSAGE'' &&
''|MESSAGE-ID|MESSAGES|MESSAGING|METHOD|METHODS|MIN|MINIMUM|MINOR-ID|MM/DD/YY'' &&
''|MM/DD/YYYY|MMDDYY|MOD|MODE|MODIF|MODIFIER|MODIFY|MODULE|MOVE|MOVE-CORRESPONDING'' &&
''|MULTIPLY|MULTIPLY-CORRESPONDING|NA|NAME|NAMETAB|NATIVE|NB|NE|NESTED|NESTING'' &&
''|NEW|NEW-LINE|NEW-PAGE|NEW-SECTION|NEXT|NO|NODE|NODES|NO-DISPLAY'' &&
''|NO-EXTENSION|NO-GAP|NO-GAPS|NO-GROUPING|NO-HEADING|NON-UNICODE|NON-UNIQUE'' &&
''|NO-SCROLLING|NO-SIGN|NOT|NO-TITLE|NO-TOPOFPAGE|NO-ZERO|NP|NS|NULL|NUMBER'' &&
''|NUMOFCHAR|O|OBJECT|OBJECTS|OBLIGATORY|OCCURRENCE|OCCURRENCES|OCCURS|OF|OFF'' &&
''|OFFSET|OLE|ON|ONLY|OPEN|OPTION|OPTIONAL|OPTIONS|OR|ORDER|OTHER|OTHERS|OUT'' &&
''|OUTER|OUTPUT|OUTPUT-LENGTH|OVERFLOW|OVERLAY|PACK|PACKAGE|PAD|PADDING|PAGE'' &&
''|PAGES|PARAMETER|PARAMETERS|PARAMETER-TABLE|PART|PARTIALLY|PATTERN|PERCENTAGE'' &&
''|PERFORM|PERFORMING|PERSON|PF1|PF2|PF3|PF4|PF5|PF6|PF7|PF8|PF9|PF10|PF11|PF12'' &&
''|PF13|PF14|PF15|PF-STATUS|PINK|PLACES|POOL|POS_HIGH|POS_LOW'' &&
''|POSITION|PRAGMAS|PRECOMPILED|PREFERRED|PRESERVING|PRIMARY|PRINT|PRINT-CONTROL'' &&
''|PRIORITY|PRIVATE|PROCEDURE|PROCESS|PROGRAM|PROPERTY|PROTECTED|PROVIDE|PUBLIC'' &&
''|PUSHBUTTON|PUT|QUEUE-ONLY|QUICKINFO|RADIOBUTTON|RAISE|RAISING|RANGE|RANGES'' &&
''|RAW|READ|READER|READ-ONLY|RECEIVE|RECEIVED|RECEIVER|RECEIVING|RED|REDEFINITION'' &&
''|REDUCE|REDUCED|REF|REFERENCE|REFRESH|REGEX|REJECT|REMOTE|RENAMING|REPLACE'' &&
''|REPLACEMENT|REPLACING|REPORT|REQUEST|REQUESTED|RESERVE|RESET|RESOLUTION'' &&
''|RESPECTING|RESPONSIBLE|RESULT|RESULTS|RESUMABLE|RESUME|RETRY|RETURN|RETURNCODE'' &&
''|RETURNING|RIGHT|RIGHT-JUSTIFIED|RIGHTPLUS|RIGHTSPACE|RISK|RMC_COMMUNICATION_FAILURE'' &&
''|RMC_INVALID_STATUS|RMC_SYSTEM_FAILURE|ROLE|ROLLBACK|ROUND|ROWS|RUN|SAP'' &&
''|SAP-SPOOL|SAVING|SCALE_PRESERVING|SCALE_PRESERVING_SCIENTIFIC|SCAN|SCIENTIFIC'' &&
''|SCIENTIFIC_WITH_LEADING_ZERO|SCREEN|SCROLL|SCROLL-BOUNDARY|SCROLLING|SEARCH'' &&
''|SECONDARY|SECONDS|SECTION|SELECT|SELECTION|SELECTIONS|SELECTION-SCREEN|SELECTION-SET'' &&
''|SELECTION-SETS|SELECTION-TABLE|SELECT-OPTIONS|SEND|SEPARATE|SEPARATED|SET'' &&
''|SHARED|SHIFT|SHORT|SHORTDUMP-ID|SIGN|SIGN_AS_POSTFIX|SIMPLE|SIN|SINGLE|SINH|SIZE'' &&
''|SKIP|SKIPPING|SMART|SOME|SORT|SORTABLE|SORTED|SOURCE|SPACE|SPECIFIED|SPLIT|SPOOL'' &&
''|SPOTS|SQL|SQLSCRIPT|SQRT|STABLE|STAMP|STANDARD|STARTING|START-OF-SELECTION|STATE'' &&
''|STATEMENT|STATEMENTS|STATIC|STATICS|STATUSINFO|STEP-LOOP|STOP|STRLEN|STRUCTURE'' &&
''|STRUCTURES|STYLE|SUBKEY|SUBMATCHES|SUBMIT|SUBROUTINE|SUBSCREEN|SUBSTRING|SUBTRACT'' &&
''|SUBTRACT-CORRESPONDING|SUFFIX|SUM|SUMMARY|SUMMING|SUPPLIED|SUPPLY|SUPPRESS|SWITCH'' &&
''|SWITCHSTATES|SYMBOL|SYNCPOINTS|SYNTAX|SYNTAX-CHECK|SYNTAX-TRACE'' &&
''|SYSTEM-CALL|SYSTEM-EXCEPTIONS|SYSTEM-EXIT|TAB|TABBED|TABLE|TABLES|TABLEVIEW|TABSTRIP'' &&
''|TAN|TANH|TARGET|TASK|TASKS|TEST|TESTING|TEXT|TEXTPOOL|THEN|THROW|TIME|TIMES|TIMESTAMP'' &&
''|TIMEZONE|TITLE|TITLEBAR|TITLE-LINES|TO|TOKENIZATION|TOKENS|TOP-LINES|TOP-OF-PAGE'' &&
''|TRACE-FILE|TRACE-TABLE|TRAILING|TRANSACTION|TRANSFER|TRANSFORMATION|TRANSLATE'' &&
''|TRANSPORTING|TRMAC|TRUNC|TRUNCATE|TRUNCATION|TRY|TYPE|TYPE-POOL|TYPE-POOLS|TYPES'' &&
''|ULINE|UNASSIGN|UNDER|UNICODE|UNION|UNIQUE|UNIT|UNIT_CONVERSION|UNIX|UNPACK|UNTIL'' &&
''|UNWIND|UP|UPDATE|UPPER|USER|USER-COMMAND|USING|UTF-8|VALID|VALUE|VALUE-REQUEST|VALUES'' &&
''|VARY|VARYING|VERIFICATION-MESSAGE|VERSION|VIA|VIEW|VISIBLE|WAIT|WARNING|WHEN|WHENEVER'' &&
''|WHERE|WHILE|WIDTH|WINDOW|WINDOWS|WITH|WITH-HEADING|WITHOUT|WITH-TITLE|WORD|WORK'' &&
''|WRITE|WRITER|X|XML|XSD|XSTRLEN|YELLOW|YES|YYMMDD|Z|ZERO|ZONE'' &&
''|BINTOHEX|CHAR|CLNT|CONCAT_WITH_SPACE|CURR|DATS|DATS_ADD_DAYS|DATS_ADD_MONTHS'' &&
''|DATS_DAYS_BETWEEN|DATS_IS_VALID|DEC|END-OF-EDITING|END-TEST-INJECTION|END-TEST-SEAM'' &&
''|ENDWITH|ENUM|HEXTOBIN|INSTANCE|INSTR|LANG|LTRIM|NUMC|PUSH'' &&
''|QUAN|RETURNS|RPAD|RTRIM|SSTRING|START-OF-EDITING|TEST-INJECTION|TEST-SEAM|TIMS'' &&
''|TIMS_IS_VALID|TSTMP_ADD_SECONDS|TSTMP_CURRENT_UTCTIMESTAMP|TSTMP_IS_VALID'' &&
''|TSTMP_SECONDS_BETWEEN|B|D|DECFLOAT16|DECFLOAT34|F|INT8|N|P|S|STRING|T|UTCLONG|XSTRING'' &&
''|ABAP_BOOL|ACCP|CUKY|DF16_DEC|DF16_RAW|DF34_DEC|DF34_RAW|FLTP'' &&
''|INT1|INT2|INT4|LCHR|LRAW|RAWSTRING|DF16_SCL|DF34_SCL'' &&
''|PREC|VARC|CLIKE|CSEQUENCE|DECFLOAT|NUMERIC|XSEQUENCE|ME|SYST|SY'' &&
''|BIT-SET|BOOLC|BOOLX|CHAR_OFF|CMAX|CMIN|CONCAT_LINES_OF|CONTAINS|CONTAINS_ANY_NOT_OF'' &&
''|CONTAINS_ANY_OF|COUNT_ANY_NOT_OF|COUNT_ANY_OF|FIND_ANY_NOT_OF|FIND_ANY_OF|FIND_END'' &&
''|FROM_MIXED|IPOW|LINE_EXISTS|LINE_INDEX|MATCHES|NMAX|NMIN|REPEAT|RESCALE|REVERSE'' &&
''|SEGMENT|SHIFT_LEFT|SHIFT_RIGHT|SUBSTRING_AFTER|SUBSTRING_BEFORE|SUBSTRING_FROM|SUBSTRING_TO'' &&
''|TO_LOWER|TO_MIXED|TO_UPPER|UTCLONG_ADD|UTCLONG_CURRENT|UTCLONG_DIFF|XSDBOOL''.
SPLIT lv_keywords AT ''|'' INTO TABLE lt_keywords.
" remove duplicates to avoid dumps when converting to a hash table
SORT lt_keywords BY table_line ASCENDING.
DELETE ADJACENT DUPLICATES FROM lt_keywords.
gt_keywords = lt_keywords. " Hash table
ENDMETHOD.
METHOD is_keyword.
DATA lv_str TYPE string.
lv_str = to_upper( iv_chunk ).
READ TABLE gt_keywords WITH KEY table_line = lv_str TRANSPORTING NO FIELDS.
rv_yes = boolc( sy-subrc = 0 ).
ENDMETHOD.
METHOD order_matches.
DATA:
lv_index TYPE sy-tabix,
lv_line_len TYPE i,
lv_prev_token TYPE c.
FIELD-SYMBOLS:
<ls_prev> TYPE ty_match,
<ls_match> TYPE ty_match.
SORT ct_matches BY offset.
lv_line_len = strlen( iv_line ).
LOOP AT ct_matches ASSIGNING <ls_match>.
lv_index = sy-tabix.
" Delete matches after open text match
IF lv_prev_token = c_token-text AND <ls_match>-token <> c_token-text.
DELETE ct_matches INDEX lv_index.
CONTINUE.
ENDIF.
CASE <ls_match>-token.
WHEN c_token-keyword.
IF <ls_match>-offset > 0
AND substring( val = iv_line
off = ( <ls_match>-offset - 1 )
len = 1 ) CA ''-<''.
" Delete match if keyword is part of structure or field symbol
DELETE ct_matches INDEX lv_index.
CONTINUE.
ENDIF.
WHEN c_token-comment.
<ls_match>-length = lv_line_len - <ls_match>-offset.
DELETE ct_matches FROM lv_index + 1.
CONTINUE.
WHEN c_token-text.
<ls_match>-text_tag = substring( val = iv_line
off = <ls_match>-offset
len = <ls_match>-length ).
IF lv_prev_token = c_token-text.
IF <ls_match>-text_tag = <ls_prev>-text_tag.
<ls_prev>-length = <ls_match>-offset + <ls_match>-length - <ls_prev>-offset.
CLEAR lv_prev_token.
ELSEIF <ls_prev>-text_tag = ''}'' AND <ls_match>-text_tag = ''{''.
<ls_prev>-length = <ls_match>-offset - <ls_prev>-offset - 1. " Shift } out of scope
<ls_prev>-offset = <ls_prev>-offset + 1. " Shift { out of scope
CLEAR lv_prev_token.
ELSEIF <ls_match>-text_tag = ''{''.
<ls_prev>-length = <ls_match>-offset - <ls_prev>-offset.
CLEAR lv_prev_token.
ELSEIF <ls_prev>-text_tag = ''}''.
<ls_prev>-length = <ls_match>-offset - <ls_prev>-offset.
<ls_prev>-offset = <ls_prev>-offset + 1. " Shift } out of scope
CLEAR lv_prev_token.
ENDIF.
DELETE ct_matches INDEX lv_index.
CONTINUE.
ENDIF.
ENDCASE.
lv_prev_token = <ls_match>-token.
ASSIGN <ls_match> TO <ls_prev>.
ENDLOOP.
ENDMETHOD.
METHOD parse_line. "REDEFINITION
DATA lv_index TYPE i.
FIELD-SYMBOLS <ls_match> LIKE LINE OF rt_matches.
rt_matches = super->parse_line( iv_line ).
" Remove non-keywords
LOOP AT rt_matches ASSIGNING <ls_match> WHERE token = c_token-keyword.
lv_index = sy-tabix.
IF abap_false = is_keyword( substring( val = iv_line
off = <ls_match>-offset
len = <ls_match>-length ) ).
DELETE rt_matches INDEX lv_index.
ENDIF.
ENDLOOP.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_SYNTAX_CSS ', 'CLASS zcl_abapgit_syntax_css DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_syntax_highlighter
CREATE PUBLIC .
PUBLIC SECTION.
" CSS Standard https://www.w3.org/TR/css-2018/
" CSS Reference https://www.w3schools.com/cssref/default.asp
" We used a mixture of above as reference for the keyword list
" 1) CSS Properties https://www.w3schools.com/cssref/default.asp
" 2) CSS Values & Units https://www.w3schools.com/cssref/css_units.asp
" 3) CSS Selectors https://www.w3.org/TR/css-2018/#selectors
" 4) CSS Functions https://www.w3schools.com/cssref/css_functions.asp
" 5) CSS Colors https://www.w3schools.com/colors/colors_names.asp
" 6) CSS Extensions
" 7) CSS At-Rules https://www.w3.org/TR/css-2018/#at-rules
" 8) HTML Tags
CONSTANTS:
BEGIN OF c_css,
keyword TYPE string VALUE ''keyword'',
text TYPE string VALUE ''text'',
comment TYPE string VALUE ''comment'',
selectors TYPE string VALUE ''selectors'',
units TYPE string VALUE ''units'',
properties TYPE string VALUE ''properties'',
values TYPE string VALUE ''values'',
functions TYPE string VALUE ''functions'',
colors TYPE string VALUE ''colors'',
extensions TYPE string VALUE ''extensions'',
at_rules TYPE string VALUE ''at_rules'',
html TYPE string VALUE ''html'',
END OF c_css .
CONSTANTS:
BEGIN OF c_token,
keyword TYPE c VALUE ''K'',
text TYPE c VALUE ''T'',
comment TYPE c VALUE ''C'',
selectors TYPE c VALUE ''S'',
units TYPE c VALUE ''U'',
properties TYPE c VALUE ''P'',
values TYPE c VALUE ''V'',
functions TYPE c VALUE ''F'',
colors TYPE c VALUE ''Z'',
extensions TYPE c VALUE ''E'',
at_rules TYPE c VALUE ''A'',
html TYPE c VALUE ''H'',
END OF c_token .
CONSTANTS:
BEGIN OF c_regex,
" comments /* ... */
comment TYPE string VALUE ''\\/\\*.*\\*\\/|\\/\\*|\\*\\/'',
" single or double quoted strings
text TYPE string VALUE ''("[^"]*")|(''''[^'''']*'''')|(\`[^\`]*\`)'',
" in general keywords don''t contain numbers (except -ms-scrollbar-3dlight-color)
keyword TYPE string VALUE ''\\b[a-z3@\\-]+\\b'',
" selectors begin with :
selectors TYPE string VALUE '':[:a-z]+\\b'',
" units
units TYPE string
VALUE ''\\b[0-9\\. ]+(ch|cm|em|ex|in|mm|pc|pt|px|vh|vmax|vmin|vw)\\b|\\b[0-9\\. ]+%'',
END OF c_regex .
CLASS-METHODS class_constructor .
METHODS constructor .
PROTECTED SECTION.
TYPES: ty_token TYPE c LENGTH 1.
TYPES: BEGIN OF ty_keyword,
keyword TYPE string,
token TYPE ty_token,
END OF ty_keyword.
CLASS-DATA gt_keywords TYPE HASHED TABLE OF ty_keyword WITH UNIQUE KEY keyword.
CLASS-DATA gv_comment TYPE abap_bool.
CLASS-METHODS init_keywords.
CLASS-METHODS insert_keywords
IMPORTING
iv_keywords TYPE string
iv_token TYPE ty_token.
CLASS-METHODS is_keyword
IMPORTING iv_chunk TYPE string
RETURNING VALUE(rv_yes) TYPE abap_bool.
METHODS order_matches REDEFINITION.
METHODS parse_line REDEFINITION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_syntax_css IMPLEMENTATION.
METHOD class_constructor.
init_keywords( ).
ENDMETHOD.
METHOD constructor.
super->constructor( ).
" Reset indicator for multi-line comments
CLEAR gv_comment.
" Initialize instances of regular expression
add_rule( iv_regex = c_regex-keyword
iv_token = c_token-keyword
iv_style = c_css-keyword ).
add_rule( iv_regex = c_regex-comment
iv_token = c_token-comment
iv_style = c_css-comment ).
add_rule( iv_regex = c_regex-text
iv_token = c_token-text
iv_style = c_css-text ).
add_rule( iv_regex = c_regex-selectors
iv_token = c_token-selectors
iv_style = c_css-selectors ).
add_rule( iv_regex = c_regex-units
iv_token = c_token-units
iv_style = c_css-units ).
" Styles for keywords
add_rule( iv_regex = ''''
iv_token = c_token-html
iv_style = c_css-html ).
add_rule( iv_regex = ''''
iv_token = c_token-properties
iv_style = c_css-properties ).
add_rule( iv_regex = ''''
iv_token = c_token-values
iv_style = c_css-values ).
add_rule( iv_regex = ''''
iv_token = c_token-functions
iv_style = c_css-functions ).
add_rule( iv_regex = ''''
iv_token = c_token-colors
iv_style = c_css-colors ).
add_rule( iv_regex = ''''
iv_token = c_token-extensions
iv_style = c_css-extensions ).
add_rule( iv_regex = ''''
iv_token = c_token-at_rules
iv_style = c_css-at_rules ).
ENDMETHOD.
METHOD init_keywords.
DATA: lv_keywords TYPE string.
CLEAR gt_keywords.
" 1) CSS Properties
lv_keywords =
''align-content|align-items|align-self|animation|animation-delay|animation-direction|animation-duration|'' &&
''animation-fill-mode|animation-iteration-count|animation-name|animation-play-state|animation-timing-function|'' &&
''backface-visibility|background|background-attachment|background-blend-mode|background-clip|background-color|'' &&
''background-image|background-origin|background-position|background-repeat|background-size|border|'' &&
''border-bottom|border-bottom-color|border-bottom-left-radius|border-bottom-right-radius|border-bottom-style|'' &&
''border-bottom-width|border-collapse|border-color|border-image|border-image-outset|border-image-repeat|'' &&
''border-image-slice|border-image-source|border-image-width|border-left|border-left-color|border-left-style|'' &&
''border-left-width|border-radius|border-right|border-right-color|border-right-style|border-right-width|'' &&
''border-spacing|border-style|border-top|border-top-color|border-top-left-radius|border-top-right-radius|'' &&
''border-top-style|border-top-width|border-width|box-decoration-break|box-shadow|box-sizing|caption-side|'' &&
''caret-color|clear|clip|color|column-count|column-fill|column-gap|column-rule|column-rule-color|'' &&
''column-rule-style|column-rule-width|column-span|column-width|columns|content|counter-increment|'' &&
''counter-reset|cursor|direction|display|empty-cells|filter|flex|flex-basis|flex-direction|flex-flow|'' &&
''flex-grow|flex-shrink|flex-wrap|float|font|font-family|font-kerning|font-size|font-size-adjust|'' &&
''font-stretch|font-style|font-variant|font-weight|grid|grid-area|grid-auto-columns|grid-auto-flow|'' &&
''grid-auto-rows|grid-column|grid-column-end|grid-column-gap|grid-column-start|grid-gap|grid-row|'' &&
''grid-row-end|grid-row-gap|grid-row-start|grid-template|grid-template-areas|grid-template-columns|'' &&
''grid-template-rows|hanging-punctuation|height|hyphens|isolation|justify-content|'' &&
''letter-spacing|line-height|list-style|list-style-image|list-style-position|list-style-type|margin|'' &&
''margin-bottom|margin-left|margin-right|margin-top|max-height|max-width|media|min-height|min-width|'' &&
''mix-blend-mode|object-fit|object-position|opacity|order|outline|outline-color|outline-offset|'' &&
''outline-style|outline-width|overflow|overflow-x|overflow-y|padding|padding-bottom|padding-left|'' &&
''padding-right|padding-top|page-break-after|page-break-before|page-break-inside|perspective|'' &&
''perspective-origin|pointer-events|position|quotes|resize|scroll-behavior|tab-size|table-layout|'' &&
''text-align|text-align-last|text-decoration|text-decoration-color|text-decoration-line|'' &&
''text-decoration-style|text-indent|text-justify|text-overflow|text-rendering|text-shadow|text-transform|'' &&
''transform|transform-origin|transform-style|transition|transition-delay|transition-duration|'' &&
''transition-property|transition-timing-function|unicode-bidi|user-select|vertical-align|visibility|'' &&
''white-space|width|word-break|word-spacing|word-wrap|writing-mode|z-index''.
insert_keywords( iv_keywords = lv_keywords
iv_token = c_token-properties ).
" 2) CSS Values
lv_keywords =
''absolute|all|auto|block|bold|border-box|both|bottom|center|counter|cover|dashed|fixed|hidden|important|'' &&
''inherit|initial|inline-block|italic|left|max-content|middle|min-content|no-repeat|none|normal|pointer|'' &&
''relative|rem|right|solid|table-cell|text|top|transparent|underline|url''.
insert_keywords( iv_keywords = lv_keywords
iv_token = c_token-values ).
" 3) CSS Selectors
lv_keywords =
'':active|::after|::before|:checked|:disabled|:empty|:enabled|:first-child|::first-letter|::first-line|'' &&
'':first-of-type|:focus|:hover|:lang|:last-child|:last-of-type|:link|:not|:nth-child|:nth-last-child|'' &&
'':nth-last-of-type|:nth-of-type|:only-child|:only-of-type|:root|:target|:visited''.
insert_keywords( iv_keywords = lv_keywords
iv_token = c_token-selectors ).
" 4) CSS Functions
lv_keywords =
''attr|calc|cubic-bezier|hsl|hsla|linear-gradient|radial-gradient|repeating-linear-gradient|'' &&
''repeating-radial-gradient|rgb|rgba|rotate|scale|translateX|translateY|var''.
insert_keywords( iv_keywords = lv_keywords
iv_token = c_token-functions ).
" 5) CSS Colors
lv_keywords =
''#|aliceblue|antiquewhite|aqua|aquamarine|azure|beige|bisque|black|blanchedalmond|blue|blueviolet|brown|'' &&
''burlywood|cadetblue|chartreuse|chocolate|coral|cornflowerblue|cornsilk|crimson|cyan|darkblue|darkcyan|'' &&
''darkgoldenrod|darkgray|darkgreen|darkgrey|darkkhaki|darkmagenta|darkolivegreen|darkorange|darkorchid|'' &&
''darkred|darksalmon|darkseagreen|darkslateblue|darkslategray|darkslategrey|darkturquoise|darkviolet|'' &&
''deeppink|deepskyblue|dimgray|dimgrey|dodgerblue|firebrick|floralwhite|forestgreen|fuchsia|gainsboro|'' &&
''ghostwhite|gold|goldenrod|gray|green|greenyellow|grey|honeydew|hotpink|indianred|indigo|ivory|khaki|'' &&
''lavender|lavenderblush|lawngreen|lemonchiffon|lightblue|lightcoral|lightcyan|lightgoldenrodyellow|'' &&
''lightgray|lightgreen|lightgrey|lightpink|lightsalmon|lightseagreen|lightskyblue|lightslategray|'' &&
''lightslategrey|lightsteelblue|lightyellow|lime|limegreen|linen|magenta|maroon|mediumaquamarine|'' &&
''mediumblue|mediumorchid|mediumpurple|mediumseagreen|mediumslateblue|mediumspringgreen|mediumturquoise|'' &&
''mediumvioletred|midnightblue|mintcream|mistyrose|moccasin|navajowhite|navy|oldlace|olive|olivedrab|'' &&
''orange|orangered|orchid|palegoldenrod|palegreen|paleturquoise|palevioletred|papayawhip|peachpuff|'' &&
''peru|pink|plum|powderblue|purple|rebeccapurple|red|rosybrown|royalblue|saddlebrown|salmon|sandybrown|'' &&
''seagreen|seashell|sienna|silver|skyblue|slateblue|slategray|slategrey|snow|springgreen|steelblue|'' &&
''tan|teal|thistle|tomato|turquoise|violet|wheat|white|whitesmoke|yellow|yellowgreen''.
insert_keywords( iv_keywords = lv_keywords
iv_token = c_token-colors ).
" 6) CSS Extensions
lv_keywords =
''moz|moz-binding|moz-border-bottom-colors|moz-border-left-colors|moz-border-right-colors|'' &&
''moz-border-top-colors|moz-box-align|moz-box-direction|moz-box-flex|moz-box-ordinal-group|'' &&
''moz-box-orient|moz-box-pack|moz-box-shadow|moz-context-properties|moz-float-edge|'' &&
''moz-force-broken-image-icon|moz-image-region|moz-orient|moz-osx-font-smoothing|'' &&
''moz-outline-radius|moz-outline-radius-bottomleft|moz-outline-radius-bottomright|'' &&
''moz-outline-radius-topleft|moz-outline-radius-topright|moz-stack-sizing|moz-system-metric|'' &&
''moz-transform|moz-transform-origin|moz-transition|moz-transition-delay|moz-user-focus|'' &&
''moz-user-input|moz-user-modify|moz-window-dragging|moz-window-shadow|ms|ms-accelerator|'' &&
''ms-block-progression|ms-content-zoom-chaining|ms-content-zoom-limit|'' &&
''ms-content-zoom-limit-max|ms-content-zoom-limit-min|ms-content-zoom-snap|'' &&
''ms-content-zoom-snap-points|ms-content-zoom-snap-type|ms-content-zooming|ms-filter|'' &&
''ms-flow-from|ms-flow-into|ms-high-contrast-adjust|ms-hyphenate-limit-chars|'' &&
''ms-hyphenate-limit-lines|ms-hyphenate-limit-zone|ms-ime-align|ms-overflow-style|'' &&
''ms-scroll-chaining|ms-scroll-limit|ms-scroll-limit-x-max|ms-scroll-limit-x-min|'' &&
''ms-scroll-limit-y-max|ms-scroll-limit-y-min|ms-scroll-rails|ms-scroll-snap-points-x|'' &&
''ms-scroll-snap-points-y|ms-scroll-snap-x|ms-scroll-snap-y|ms-scroll-translation|'' &&
''ms-scrollbar-3dlight-color|ms-scrollbar-arrow-color|ms-scrollbar-base-color|'' &&
''ms-scrollbar-darkshadow-color|ms-scrollbar-face-color|ms-scrollbar-highlight-color|'' &&
''ms-scrollbar-shadow-color|ms-scrollbar-track-color|ms-transform|ms-text-autospace|'' &&
''ms-touch-select|ms-wrap-flow|ms-wrap-margin|ms-wrap-through|o|o-transform|webkit|'' &&
''webkit-animation-trigger|webkit-app-region|webkit-appearance|webkit-aspect-ratio|'' &&
''webkit-backdrop-filter|webkit-background-composite|webkit-border-after|'' &&
''webkit-border-after-color|webkit-border-after-style|webkit-border-after-width|'' &&
''webkit-border-before|webkit-border-before-color|webkit-border-before-style|'' &&
''webkit-border-before-width|webkit-border-end|webkit-border-end-color|'' &&
''webkit-border-end-style|webkit-border-end-width|webkit-border-fit|'' &&
''webkit-border-horizontal-spacing|webkit-border-radius|webkit-border-start|'' &&
''webkit-border-start-color|webkit-border-start-style|webkit-border-start-width|'' &&
''webkit-border-vertical-spacing|webkit-box-align|webkit-box-direction|webkit-box-flex|'' &&
''webkit-box-flex-group|webkit-box-lines|webkit-box-ordinal-group|webkit-box-orient|'' &&
''webkit-box-pack|webkit-box-reflect|webkit-box-shadow|webkit-column-axis|'' &&
''webkit-column-break-after|webkit-column-break-before|webkit-column-break-inside|'' &&
''webkit-column-progression|webkit-cursor-visibility|webkit-dashboard-region|'' &&
''webkit-font-size-delta|webkit-font-smoothing|webkit-highlight|webkit-hyphenate-character|'' &&
''webkit-hyphenate-limit-after|webkit-hyphenate-limit-before|webkit-hyphenate-limit-lines|'' &&
''webkit-initial-letter|webkit-line-align|webkit-line-box-contain|webkit-line-clamp|'' &&
''webkit-line-grid|webkit-line-snap|webkit-locale|webkit-logical-height|'' &&
''webkit-logical-width|webkit-margin-after|webkit-margin-after-collapse|'' &&
''webkit-margin-before|webkit-margin-before-collapse|webkit-margin-bottom-collapse|'' &&
''webkit-margin-collapse|webkit-margin-end|webkit-margin-start|webkit-margin-top-collapse|'' &&
''webkit-marquee|webkit-marquee-direction|webkit-marquee-increment|'' &&
''webkit-marquee-repetition|webkit-marquee-speed|webkit-marquee-style|webkit-mask-box-image|'' &&
''webkit-mask-box-image-outset|webkit-mask-box-image-repeat|webkit-mask-box-image-slice|'' &&
''webkit-mask-box-image-source|webkit-mask-box-image-width|webkit-mask-repeat-x|'' &&
''webkit-mask-repeat-y|webkit-mask-source-type|webkit-max-logical-height|'' &&
''webkit-max-logical-width|webkit-min-logical-height|webkit-min-logical-width|'' &&
''webkit-nbsp-mode|webkit-padding-after|webkit-padding-before|webkit-padding-end|'' &&
''webkit-padding-start|webkit-perspective-origin-x|webkit-perspective-origin-y|'' &&
''webkit-print-color-adjust|webkit-rtl-ordering|webkit-svg-shadow|'' &&
''webkit-tap-highlight-color|webkit-text-combine|webkit-text-decoration-skip|'' &&
''webkit-text-decorations-in-effect|webkit-text-fill-color|webkit-text-security|'' &&
''webkit-text-stroke|webkit-text-stroke-color|webkit-text-stroke-width|webkit-text-zoom|'' &&
''webkit-transform|webkit-transform-origin|webkit-transform-origin-x|'' &&
''webkit-transform-origin-y|webkit-transform-origin-z|webkit-transition|'' &&
''webkit-transition-delay|webkit-user-drag|webkit-user-modify|overflow-clip-box|'' &&
''overflow-clip-box-block|overflow-clip-box-inline|zoom''.
insert_keywords( iv_keywords = lv_keywords
iv_token = c_token-extensions ).
" 6) CSS At-Rules
lv_keywords =
''@|charset|counter-style|font-face|import|keyframes''.
insert_keywords( iv_keywords = lv_keywords
iv_token = c_token-at_rules ).
" 7) HTML tag
lv_keywords =
''doctyype|a|abbr|acronym|address|applet|area|b|base|basefont|bdo|bgsound|big|blink|blockquote|'' &&
''body|br|button|caption|center|cite|code|col|colgroup|dd|del|dfn|dir|div|dl|dt|em|embed|fieldset|'' &&
''font|form|frame|frameset|h1|h2|h3|h4|h5|h6|head|hr|html|i|iframe|ilayer|img|input|ins|isindex|'' &&
''kbd|keygen|label|layer|legend|li|link|listing|map|menu|meta|multicol|nobr|noembed|noframes|'' &&
''nolayer|noscript|object|ol|optgroup|option|p|param|plaintext|pre|q|s|samp|script|select|server|'' &&
''small|sound|spacer|span|strike|strong|style|sub|sup|tbody|textarea|title|tt|u|ul|var|wbr|xmp|'' &&
''xsl|xml|accesskey|action|align|alink|alt|background|balance|behavior|bgcolor|bgproperties|'' &&
''border|bordercolor|bordercolordark|bordercolorlight|bottommargin|checked|class|classid|clear|'' &&
''code|codebase|codetype|color|cols|colspan|compact|content|controls|coords|data|datafld|'' &&
''dataformatas|datasrc|direction|disabled|dynsrc|enctype|event|face|for|frame|frameborder|'' &&
''framespacing|height|hidden|href|hspace|http-equiv|id|ismap|lang|language|leftmargin|link|loop|'' &&
''lowsrc|marginheight|marginwidth|maxlength|mayscript|method|methods|multiple|name|nohref|'' &&
''noresize|noshade|nowrap|palette|pluginspage|public|readonly|rel|rev|rightmargin|rows|rowspan|'' &&
''rules|scroll|scrollamount|scrolldelay|scrolling|selected|shape|size|span|src|start|style|'' &&
''tabindex|target|text|title|topmargin|truespeed|type|url|urn|usemap|valign|value|vlink|volume|'' &&
''vrml|vspace|width|wrap|apply-templates|attribute|choose|comment|define-template-set|'' &&
''entity-ref|eval|expr|for-each|if|match|no-entities|node-name|order-by|otherwise|select|'' &&
''stylesheet|template|test|value-of|version|when|xmlns|xsl|cellpadding|cellspacing|table|td|'' &&
''tfoot|th|thead|tr''.
insert_keywords( iv_keywords = lv_keywords
iv_token = c_token-html ).
ENDMETHOD.
METHOD insert_keywords.
DATA: lt_keywords TYPE STANDARD TABLE OF string,
ls_keyword TYPE ty_keyword.
FIELD-SYMBOLS: <lv_keyword> TYPE any.
SPLIT iv_keywords AT ''|'' INTO TABLE lt_keywords.
LOOP AT lt_keywords ASSIGNING <lv_keyword>.
CLEAR ls_keyword.
ls_keyword-keyword = <lv_keyword>.
ls_keyword-token = iv_token.
INSERT ls_keyword INTO TABLE gt_keywords.
ENDLOOP.
ENDMETHOD.
METHOD is_keyword.
DATA lv_str TYPE string.
lv_str = to_lower( iv_chunk ).
READ TABLE gt_keywords WITH TABLE KEY keyword = lv_str TRANSPORTING NO FIELDS.
rv_yes = boolc( sy-subrc = 0 ).
ENDMETHOD.
METHOD order_matches.
DATA:
lv_match TYPE string,
lv_line_len TYPE i,
lv_cmmt_end TYPE i,
lv_prev_end TYPE i,
lv_prev_token TYPE c.
FIELD-SYMBOLS:
<ls_prev> TYPE ty_match,
<ls_match> TYPE ty_match,
<ls_keyword> TYPE ty_keyword.
" Longest matches
SORT ct_matches BY offset length DESCENDING.
lv_line_len = strlen( iv_line ).
" Check if this is part of multi-line comment and mark it accordingly
IF gv_comment = abap_true.
READ TABLE ct_matches WITH KEY token = c_token-comment TRANSPORTING NO FIELDS.
IF sy-subrc <> 0.
CLEAR ct_matches.
APPEND INITIAL LINE TO ct_matches ASSIGNING <ls_match>.
<ls_match>-token = c_token-comment.
<ls_match>-offset = 0.
<ls_match>-length = lv_line_len.
RETURN.
ENDIF.
ENDIF.
LOOP AT ct_matches ASSIGNING <ls_match>.
" Delete matches after open text match
IF lv_prev_token = c_token-text AND <ls_match>-token <> c_token-text.
CLEAR <ls_match>-token.
CONTINUE.
ENDIF.
lv_match = substring( val = iv_line
off = <ls_match>-offset
len = <ls_match>-length ).
CASE <ls_match>-token.
WHEN c_token-keyword.
" Skip keyword that''s part of previous (longer) keyword
IF <ls_match>-offset < lv_prev_end.
CLEAR <ls_match>-token.
CONTINUE.
ENDIF.
" Map generic keyword to specific CSS token
lv_match = to_lower( lv_match ).
READ TABLE gt_keywords ASSIGNING <ls_keyword> WITH TABLE KEY keyword = lv_match.
IF sy-subrc = 0.
<ls_match>-token = <ls_keyword>-token.
ENDIF.
WHEN c_token-comment.
IF lv_match = ''/*''.
DELETE ct_matches WHERE offset > <ls_match>-offset.
<ls_match>-length = lv_line_len - <ls_match>-offset.
gv_comment = abap_true.
ELSEIF lv_match = ''*/''.
DELETE ct_matches WHERE offset < <ls_match>-offset.
<ls_match>-length = <ls_match>-offset + 2.
<ls_match>-offset = 0.
gv_comment = abap_false.
ELSE.
lv_cmmt_end = <ls_match>-offset + <ls_match>-length.
DELETE ct_matches WHERE offset > <ls_match>-offset AND offset <= lv_cmmt_end.
ENDIF.
WHEN c_token-text.
<ls_match>-text_tag = lv_match.
IF lv_prev_token = c_token-text.
IF <ls_match>-text_tag = <ls_prev>-text_tag.
<ls_prev>-length = <ls_match>-offset + <ls_match>-length - <ls_prev>-offset.
CLEAR lv_prev_token.
ENDIF.
CLEAR <ls_match>-token.
CONTINUE.
ENDIF.
ENDCASE.
lv_prev_token = <ls_match>-token.
lv_prev_end = <ls_match>-offset + <ls_match>-length.
ASSIGN <ls_match> TO <ls_prev>.
ENDLOOP.
DELETE ct_matches WHERE token IS INITIAL.
ENDMETHOD.
METHOD parse_line. "REDEFINITION
DATA lv_index TYPE i.
FIELD-SYMBOLS <ls_match> LIKE LINE OF rt_matches.
rt_matches = super->parse_line( iv_line ).
" Remove non-keywords
LOOP AT rt_matches ASSIGNING <ls_match> WHERE token = c_token-keyword.
lv_index = sy-tabix.
IF abap_false = is_keyword( substring( val = iv_line
off = <ls_match>-offset
len = <ls_match>-length ) ).
CLEAR <ls_match>-token.
ENDIF.
ENDLOOP.
DELETE rt_matches WHERE token IS INITIAL.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_SYNTAX_FACTORY ', 'CLASS zcl_abapgit_syntax_factory DEFINITION
PUBLIC
ABSTRACT
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS create
IMPORTING
!iv_filename TYPE string
!iv_hidden_chars TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(ro_instance) TYPE REF TO zcl_abapgit_syntax_highlighter .
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_syntax_factory IMPLEMENTATION.
METHOD create.
" Create instance of highlighter dynamically dependent on syntax type
IF iv_filename CP ''*.abap''.
CREATE OBJECT ro_instance TYPE zcl_abapgit_syntax_abap.
ELSEIF iv_filename CP ''*.xml'' OR iv_filename CP ''*.html'' OR iv_filename CP ''*.xdp''.
CREATE OBJECT ro_instance TYPE zcl_abapgit_syntax_xml.
ELSEIF iv_filename CP ''*.css''.
CREATE OBJECT ro_instance TYPE zcl_abapgit_syntax_css.
ELSEIF iv_filename CP ''*.js''.
CREATE OBJECT ro_instance TYPE zcl_abapgit_syntax_js.
ELSEIF iv_filename CP ''*.json'' OR iv_filename CP ''*.jsonc''.
CREATE OBJECT ro_instance TYPE zcl_abapgit_syntax_json.
ELSEIF iv_filename CP ''*.txt'' OR iv_filename CP ''*.ini'' OR iv_filename CP ''*.text''.
CREATE OBJECT ro_instance TYPE zcl_abapgit_syntax_txt.
ELSE.
CLEAR ro_instance.
ENDIF.
IF ro_instance IS BOUND.
ro_instance->set_hidden_chars( iv_hidden_chars ).
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_SYNTAX_HIGHLIGHTER ', 'CLASS zcl_abapgit_syntax_highlighter DEFINITION
PUBLIC
ABSTRACT
CREATE PUBLIC .
PUBLIC SECTION.
METHODS process_line
IMPORTING
!iv_line TYPE string
RETURNING
VALUE(rv_line) TYPE string .
METHODS set_hidden_chars
IMPORTING
!iv_hidden_chars TYPE abap_bool .
PROTECTED SECTION.
TYPES:
BEGIN OF ty_match,
token TYPE c LENGTH 1, " Type of matches
offset TYPE i, " Beginning position of the string that should be formatted
length TYPE i, " Length of the string that should be formatted
text_tag TYPE string, " Type of text tag
END OF ty_match .
TYPES:
ty_match_tt TYPE STANDARD TABLE OF ty_match WITH DEFAULT KEY .
TYPES:
BEGIN OF ty_rule,
regex TYPE REF TO cl_abap_regex,
token TYPE c LENGTH 1,
style TYPE string,
relevant_submatch TYPE i,
END OF ty_rule .
CONSTANTS c_token_none TYPE c VALUE ''.'' ##NO_TEXT.
DATA:
mt_rules TYPE STANDARD TABLE OF ty_rule .
DATA mv_hidden_chars TYPE abap_bool .
METHODS add_rule
IMPORTING
!iv_regex TYPE string
!iv_token TYPE c
!iv_style TYPE string
!iv_submatch TYPE i OPTIONAL .
METHODS parse_line
IMPORTING
!iv_line TYPE string
RETURNING
VALUE(rt_matches) TYPE ty_match_tt .
METHODS order_matches
IMPORTING
!iv_line TYPE string
CHANGING
!ct_matches TYPE ty_match_tt .
METHODS extend_matches
IMPORTING
!iv_line TYPE string
CHANGING
!ct_matches TYPE ty_match_tt .
METHODS format_line
IMPORTING
!iv_line TYPE string
!it_matches TYPE ty_match_tt
RETURNING
VALUE(rv_line) TYPE string .
METHODS apply_style
IMPORTING
!iv_line TYPE string
!iv_class TYPE string
RETURNING
VALUE(rv_line) TYPE string .
METHODS is_whitespace
IMPORTING
!iv_string TYPE string
RETURNING
VALUE(rv_result) TYPE abap_bool .
METHODS show_hidden_chars
IMPORTING
!iv_line TYPE string
RETURNING
VALUE(rv_line) TYPE string .
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_syntax_highlighter IMPLEMENTATION.
METHOD add_rule.
DATA ls_rule LIKE LINE OF mt_rules.
IF NOT iv_regex IS INITIAL.
CREATE OBJECT ls_rule-regex
EXPORTING
pattern = iv_regex
ignore_case = abap_true.
ENDIF.
ls_rule-token = iv_token.
ls_rule-style = iv_style.
ls_rule-relevant_submatch = iv_submatch.
APPEND ls_rule TO mt_rules.
ENDMETHOD.
METHOD apply_style.
DATA lv_escaped TYPE string.
lv_escaped = escape( val = iv_line
format = cl_abap_format=>e_html_text ).
lv_escaped = show_hidden_chars( lv_escaped ).
IF iv_class IS NOT INITIAL.
rv_line = |<span class="{ iv_class }">{ lv_escaped }</span>|.
ELSE.
rv_line = lv_escaped.
ENDIF.
ENDMETHOD.
METHOD extend_matches.
DATA: lv_line_len TYPE i,
lv_last_pos TYPE i VALUE 0,
lv_length TYPE i,
ls_match TYPE ty_match.
FIELD-SYMBOLS <ls_match> TYPE ty_match.
lv_line_len = strlen( iv_line ).
SORT ct_matches BY offset.
" Add entries referring to parts of text that should not be formatted
LOOP AT ct_matches ASSIGNING <ls_match>.
IF <ls_match>-offset > lv_last_pos.
lv_length = <ls_match>-offset - lv_last_pos.
ls_match-token = c_token_none.
ls_match-offset = lv_last_pos.
ls_match-length = lv_length.
INSERT ls_match INTO ct_matches INDEX sy-tabix.
ENDIF.
lv_last_pos = <ls_match>-offset + <ls_match>-length.
ENDLOOP.
" Add remainder of the string
IF lv_line_len > lv_last_pos.
lv_length = lv_line_len - lv_last_pos.
ls_match-token = c_token_none.
ls_match-offset = lv_last_pos.
ls_match-length = lv_length.
APPEND ls_match TO ct_matches.
ENDIF.
ENDMETHOD.
METHOD format_line.
DATA:
lv_chunk TYPE string,
ls_rule LIKE LINE OF mt_rules.
FIELD-SYMBOLS <ls_match> TYPE ty_match.
LOOP AT it_matches ASSIGNING <ls_match>.
lv_chunk = substring( val = iv_line
off = <ls_match>-offset
len = <ls_match>-length ).
CLEAR ls_rule. " Failed read equals no style
READ TABLE mt_rules INTO ls_rule WITH KEY token = <ls_match>-token.
lv_chunk = apply_style( iv_line = lv_chunk
iv_class = ls_rule-style ).
rv_line = rv_line && lv_chunk.
ENDLOOP.
ENDMETHOD.
METHOD is_whitespace.
DATA: lv_whitespace TYPE string.
"/^\\s+$/
lv_whitespace = \` \` && cl_abap_char_utilities=>horizontal_tab && cl_abap_char_utilities=>cr_lf.
rv_result = boolc( iv_string CO lv_whitespace ).
ENDMETHOD.
METHOD order_matches.
ENDMETHOD.
METHOD parse_line.
DATA:
lo_regex TYPE REF TO cl_abap_regex,
lo_matcher TYPE REF TO cl_abap_matcher,
lt_result TYPE match_result_tab,
ls_match TYPE ty_match.
FIELD-SYMBOLS:
<ls_regex> LIKE LINE OF mt_rules,
<ls_result> TYPE match_result,
<ls_submatch> LIKE LINE OF <ls_result>-submatches.
" Process syntax-dependent regex table and find all matches
LOOP AT mt_rules ASSIGNING <ls_regex> WHERE regex IS BOUND.
lo_regex = <ls_regex>-regex.
lo_matcher = lo_regex->create_matcher( text = iv_line ).
lt_result = lo_matcher->find_all( ).
" Save matches into custom table with predefined tokens
LOOP AT lt_result ASSIGNING <ls_result>.
CLEAR: ls_match.
IF <ls_regex>-relevant_submatch = 0.
ls_match-token = <ls_regex>-token.
ls_match-offset = <ls_result>-offset.
ls_match-length = <ls_result>-length.
APPEND ls_match TO rt_matches.
ELSE.
READ TABLE <ls_result>-submatches ASSIGNING <ls_submatch> INDEX <ls_regex>-relevant_submatch.
"submatch might be empty if only discarded parts matched
IF sy-subrc = 0 AND <ls_submatch>-offset >= 0 AND <ls_submatch>-length > 0.
ls_match-token = <ls_regex>-token.
ls_match-offset = <ls_submatch>-offset.
ls_match-length = <ls_submatch>-length.
APPEND ls_match TO rt_matches.
ENDIF.
ENDIF.
ENDLOOP.
ENDLOOP.
ENDMETHOD.
METHOD process_line.
DATA: lt_matches TYPE ty_match_tt.
IF iv_line IS INITIAL OR is_whitespace( iv_line ) = abap_true.
rv_line = show_hidden_chars( iv_line ).
RETURN.
ENDIF.
lt_matches = parse_line( iv_line ).
order_matches( EXPORTING iv_line = iv_line
CHANGING ct_matches = lt_matches ).
extend_matches( EXPORTING iv_line = iv_line
CHANGING ct_matches = lt_matches ).
rv_line = format_line( iv_line = iv_line
it_matches = lt_matches ).
ENDMETHOD.
METHOD set_hidden_chars.
mv_hidden_chars = iv_hidden_chars.
ENDMETHOD.
METHOD show_hidden_chars.
DATA lv_bom TYPE x LENGTH 3.
rv_line = iv_line.
IF mv_hidden_chars = abap_true.
REPLACE ALL OCCURRENCES OF cl_abap_char_utilities=>horizontal_tab IN rv_line WITH '' → ''.
REPLACE ALL OCCURRENCES OF cl_abap_char_utilities=>cr_lf(1) IN rv_line WITH ''¶''.
REPLACE ALL OCCURRENCES OF \` \` IN rv_line WITH ''·''.
REPLACE ALL OCCURRENCES OF cl_abap_char_utilities=>form_feed IN rv_line
WITH ''<span class="red">⊝</span>''.
IF strlen( rv_line ) BETWEEN 1 AND 2.
TRY.
lv_bom = zcl_abapgit_convert=>string_to_xstring( rv_line ).
CATCH zcx_abapgit_exception ##NO_HANDLER.
ENDTRY.
IF lv_bom(2) = cl_abap_char_utilities=>byte_order_mark_big.
rv_line = ''<span class="red">▪</span>''. " UTF-16 big-endian (FE FF)
ENDIF.
IF lv_bom(2) = cl_abap_char_utilities=>byte_order_mark_little.
rv_line = ''<span class="red">∘</span>''. " UTF-16 little-endian (FF FE)
ENDIF.
IF lv_bom(3) = cl_abap_char_utilities=>byte_order_mark_utf8.
rv_line = ''<span class="red">¤</span>''. " UTF-8 (EF BB BF)
ENDIF.
ENDIF.
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_SYNTAX_JS ', 'CLASS zcl_abapgit_syntax_js DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_syntax_highlighter
CREATE PUBLIC .
PUBLIC SECTION.
CONSTANTS:
" JavaScript
" 1) General keywords
" 2) Variable types
" 3) HTML Tags
BEGIN OF c_css,
keyword TYPE string VALUE ''keyword'',
text TYPE string VALUE ''text'',
comment TYPE string VALUE ''comment'',
variables TYPE string VALUE ''variables'',
END OF c_css .
CONSTANTS:
BEGIN OF c_token,
keyword TYPE c VALUE ''K'',
text TYPE c VALUE ''T'',
comment TYPE c VALUE ''C'',
variables TYPE c VALUE ''V'',
END OF c_token .
CONSTANTS:
BEGIN OF c_regex,
" comments /* ... */ or //
comment TYPE string VALUE ''\\/\\*.*\\*\\/|\\/\\*|\\*\\/|\\/\\/'',
" single or double quoted strings
text TYPE string VALUE ''"|''''|\`'',
" in general keywords don''t contain numbers (except -ms-scrollbar-3dlight-color)
keyword TYPE string VALUE ''\\b[a-z-]+\\b'',
END OF c_regex .
CLASS-METHODS class_constructor .
METHODS constructor .
PROTECTED SECTION.
TYPES: ty_token TYPE c LENGTH 1.
TYPES: BEGIN OF ty_keyword,
keyword TYPE string,
token TYPE ty_token,
END OF ty_keyword.
CLASS-DATA gt_keywords TYPE HASHED TABLE OF ty_keyword WITH UNIQUE KEY keyword.
CLASS-DATA gv_comment TYPE abap_bool.
CLASS-METHODS init_keywords.
CLASS-METHODS insert_keywords
IMPORTING
iv_keywords TYPE string
iv_token TYPE ty_token.
CLASS-METHODS is_keyword
IMPORTING iv_chunk TYPE string
RETURNING VALUE(rv_yes) TYPE abap_bool.
METHODS order_matches REDEFINITION.
METHODS parse_line REDEFINITION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_syntax_js IMPLEMENTATION.
METHOD class_constructor.
init_keywords( ).
ENDMETHOD.
METHOD constructor.
super->constructor( ).
" Reset indicator for multi-line comments
CLEAR gv_comment.
" Initialize instances of regular expression
add_rule( iv_regex = c_regex-keyword
iv_token = c_token-keyword
iv_style = c_css-keyword ).
add_rule( iv_regex = c_regex-comment
iv_token = c_token-comment
iv_style = c_css-comment ).
add_rule( iv_regex = c_regex-text
iv_token = c_token-text
iv_style = c_css-text ).
" Styles for keywords
add_rule( iv_regex = ''''
iv_token = c_token-variables
iv_style = c_css-variables ).
ENDMETHOD.
METHOD init_keywords.
DATA: lv_keywords TYPE string.
CLEAR gt_keywords.
" 1) General keywords
lv_keywords =
''alert|all|body|break|bytetostring|case|continue|default|delete|do|document|else|event|export|for|function|if|'' &&
''import|in|innerhtml|isnan|item|mimetypes|navigator|new|onabort|onblur|onchange|onclick|ondblclick|ondragdrop|'' &&
''onerror|onfocus|onkeydown|onkeypress|onkeyup|onload|onmousedown|onmousemove|onmouseout|onmouseover|onmouseup|'' &&
''onmove|onreset|onselect|onsubmit|onunload|onresize|options|parsefloat|parseint|prototype|return|screen|switch|'' &&
''unit|var|void|while|window|with|anchor|applet|area|button|checkbox|fileupload|form|frame|hidden|link|mimetype|'' &&
''password|plugin|radio|reset|select|submit|text|textarea|abs|acos|alert|anchor|asin|atan|atan2|back|big|blink|'' &&
''blur|bold|captureevents|ceil|charat|charcodeat|clearinterval|cleartimeout|click|close|concat|confirm|cos|'' &&
''disableexternalcapture|enableexternalcapture|eval|exp|find|fixed|floor|focus|fontcolor|fontsize|forward|'' &&
''fromcharcode|getdate|getday|getelementbyid|gethours|getminutes|getmonth|getoptionvalue|getoptionvaluecount|'' &&
''getseconds|getselection|gettime|gettimezoneoffset|getyear|go|handleevent|home|indexof|italics|javaenabled|join|'' &&
''lastindexof|link|load|log|match|max|min|moveabove|movebelow|moveby|moveto|movetoabsolute|open|parse|plugins|'' &&
''pop|pow|preference|print|prompt|push|random|refresh|releaseevents|reload|replace|reset|resizeby|resizeto|'' &&
''reverse|round|routeevent|scroll|scrollby|scrollto|search|select|setdate|sethours|setinterval|setminutes|'' &&
''setmonth|setseconds|settime|settimeout|setyear|shift|sin|slice|small|sort|splice|split|sqrt|stop|strike|sub|'' &&
''submit|substr|substring|sup|taintenabled|tan|togmtstring|tolocalestring|tolowercase|tostring|touppercase|'' &&
''unshift|unwatch|utc|valueof|watch|write|writeln|e|ln10|ln2|log10e|log2e|max_value|min_value|negative_infinity|'' &&
''nan|pi|positive_infinity|url|above|action|alinkcolor|anchors|appcodename|appname|appversion|applets|arguments|'' &&
''arity|availheight|availwidth|background|backgroundcolor|below|bgcolor|border|bottom|caller|cancelbubble|'' &&
''checked|clientheight|clientwidth|clientx|clienty|clip|closed|color|colordepth|complete|constructor|cookie|'' &&
''count|current|defaultchecked|defaultselected|defaultstatus|defaultvalue|description|display|document|domain|'' &&
''elements|embeds|enabledplugin|encoding|false|fgcolor|filename|form|formname|forms|frames|hash|height|history|'' &&
''host|hostname|href|hspace|images|innerheight|innerwidth|language|lastmodified|layers|left|length|linkcolor|'' &&
''links|location|locationbar|lowsrc|menubar|method|mimetypes|name|next|null|offsetheight|offsetleft|offsetparent|'' &&
''offsetwidth|opener|outerheight|outerwidth|pagex|pagexoffset|pagey|pageyoffset|parent|parentlayer|pathname|'' &&
''personalbar|pixeldepth|platform|plugins|port|poswidth|previous|protocol|prototype|referrer|right|scrolltop|'' &&
''scrollbars|search|selected|selectedindex|self|siblingabove|siblingbelow|src|srcelement|status|statusbar|style|'' &&
''suffixes|tags|target|text|this|title|toolbar|top|true|type|useragent|value|visibility|vlinkcolor|vspace|width|'' &&
''window|zindex''.
insert_keywords( iv_keywords = lv_keywords
iv_token = c_token-keyword ).
" 2) Variable types
lv_keywords =
''array|boolean|date|function|image|layer|math|number|object|option|regexp|string''.
insert_keywords( iv_keywords = lv_keywords
iv_token = c_token-variables ).
ENDMETHOD.
METHOD insert_keywords.
DATA: lt_keywords TYPE STANDARD TABLE OF string,
ls_keyword TYPE ty_keyword.
FIELD-SYMBOLS: <lv_keyword> TYPE any.
SPLIT iv_keywords AT ''|'' INTO TABLE lt_keywords.
LOOP AT lt_keywords ASSIGNING <lv_keyword>.
CLEAR ls_keyword.
ls_keyword-keyword = <lv_keyword>.
ls_keyword-token = iv_token.
INSERT ls_keyword INTO TABLE gt_keywords.
ENDLOOP.
ENDMETHOD.
METHOD is_keyword.
DATA lv_str TYPE string.
lv_str = to_lower( iv_chunk ).
READ TABLE gt_keywords WITH TABLE KEY keyword = lv_str TRANSPORTING NO FIELDS.
rv_yes = boolc( sy-subrc = 0 ).
ENDMETHOD.
METHOD order_matches.
DATA:
lv_match TYPE string,
lv_line_len TYPE i,
lv_cmmt_end TYPE i,
lv_prev_end TYPE i,
lv_prev_token TYPE c.
FIELD-SYMBOLS:
<ls_prev> TYPE ty_match,
<ls_match> TYPE ty_match,
<ls_keyword> TYPE ty_keyword.
" Longest matches
SORT ct_matches BY offset length DESCENDING.
lv_line_len = strlen( iv_line ).
" Check if this is part of multi-line comment and mark it accordingly
IF gv_comment = abap_true.
READ TABLE ct_matches WITH KEY token = c_token-comment TRANSPORTING NO FIELDS.
IF sy-subrc <> 0.
CLEAR ct_matches.
APPEND INITIAL LINE TO ct_matches ASSIGNING <ls_match>.
<ls_match>-token = c_token-comment.
<ls_match>-offset = 0.
<ls_match>-length = lv_line_len.
RETURN.
ENDIF.
ENDIF.
LOOP AT ct_matches ASSIGNING <ls_match>.
" Delete matches after open text match
IF lv_prev_token = c_token-text AND <ls_match>-token <> c_token-text.
CLEAR <ls_match>-token.
CONTINUE.
ENDIF.
lv_match = substring( val = iv_line
off = <ls_match>-offset
len = <ls_match>-length ).
CASE <ls_match>-token.
WHEN c_token-keyword.
" Skip keyword that''s part of previous (longer) keyword
IF <ls_match>-offset < lv_prev_end.
CLEAR <ls_match>-token.
CONTINUE.
ENDIF.
" Map generic keyword to specific token
lv_match = to_lower( lv_match ).
READ TABLE gt_keywords ASSIGNING <ls_keyword> WITH TABLE KEY keyword = lv_match.
IF sy-subrc = 0.
<ls_match>-token = <ls_keyword>-token.
ENDIF.
WHEN c_token-comment.
IF lv_match = ''/*''.
DELETE ct_matches WHERE offset > <ls_match>-offset.
<ls_match>-length = lv_line_len - <ls_match>-offset.
gv_comment = abap_true.
ELSEIF lv_match = ''//''.
DELETE ct_matches WHERE offset > <ls_match>-offset.
<ls_match>-length = lv_line_len - <ls_match>-offset.
ELSEIF lv_match = ''*/''.
DELETE ct_matches WHERE offset < <ls_match>-offset.
<ls_match>-length = <ls_match>-offset + 2.
<ls_match>-offset = 0.
gv_comment = abap_false.
ELSE.
lv_cmmt_end = <ls_match>-offset + <ls_match>-length.
DELETE ct_matches WHERE offset > <ls_match>-offset AND offset <= lv_cmmt_end.
ENDIF.
WHEN c_token-text.
<ls_match>-text_tag = lv_match.
IF lv_prev_token = c_token-text.
IF <ls_match>-text_tag = <ls_prev>-text_tag.
<ls_prev>-length = <ls_match>-offset + <ls_match>-length - <ls_prev>-offset.
CLEAR lv_prev_token.
ENDIF.
CLEAR <ls_match>-token.
CONTINUE.
ENDIF.
ENDCASE.
lv_prev_token = <ls_match>-token.
lv_prev_end = <ls_match>-offset + <ls_match>-length.
ASSIGN <ls_match> TO <ls_prev>.
ENDLOOP.
DELETE ct_matches WHERE token IS INITIAL.
ENDMETHOD.
METHOD parse_line. "REDEFINITION
DATA lv_index TYPE i.
FIELD-SYMBOLS <ls_match> LIKE LINE OF rt_matches.
rt_matches = super->parse_line( iv_line ).
" Remove non-keywords
LOOP AT rt_matches ASSIGNING <ls_match> WHERE token = c_token-keyword.
lv_index = sy-tabix.
IF abap_false = is_keyword( substring( val = iv_line
off = <ls_match>-offset
len = <ls_match>-length ) ).
CLEAR <ls_match>-token.
ENDIF.
ENDLOOP.
DELETE rt_matches WHERE token IS INITIAL.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_SYNTAX_JSON ', 'CLASS zcl_abapgit_syntax_json DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_syntax_highlighter
CREATE PUBLIC.
PUBLIC SECTION.
CONSTANTS:
" JSON... This was easy :-)
" JSONC... With comments
BEGIN OF c_css,
keyword TYPE string VALUE ''selectors'', "#EC NOTEXT
text TYPE string VALUE ''text'', "#EC NOTEXT
values TYPE string VALUE ''properties'', "#EC NOTEXT
comment TYPE string VALUE ''comment'', "#EC NOTEXT
END OF c_css.
CONSTANTS:
BEGIN OF c_token,
keyword TYPE c VALUE ''K'', "#EC NOTEXT
text TYPE c VALUE ''T'', "#EC NOTEXT
values TYPE c VALUE ''V'', "#EC NOTEXT
comment TYPE c VALUE ''C'', "#EC NOTEXT
END OF c_token.
CONSTANTS:
BEGIN OF c_regex,
" comments /* ... */ or //
comment TYPE string VALUE ''\\/\\*.*\\*\\/|\\/\\*|\\*\\/|\\/\\/'', "#EC NOTEXT
" not much here
keyword TYPE string VALUE ''true|false|null'', "#EC NOTEXT
" double quoted strings
text TYPE string VALUE ''"'', "#EC NOTEXT
END OF c_regex.
METHODS constructor.
PROTECTED SECTION.
METHODS order_matches REDEFINITION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_syntax_json IMPLEMENTATION.
METHOD constructor.
super->constructor( ).
" Initialize instances of regular expression
add_rule( iv_regex = c_regex-keyword
iv_token = c_token-keyword
iv_style = c_css-keyword ).
" Style for keys
add_rule( iv_regex = c_regex-text
iv_token = c_token-text
iv_style = c_css-text ).
" Style for values
add_rule( iv_regex = ''''
iv_token = c_token-values
iv_style = c_css-values ).
" JSONC comments
add_rule( iv_regex = c_regex-comment
iv_token = c_token-comment
iv_style = c_css-comment ).
ENDMETHOD.
METHOD order_matches.
DATA:
lv_match TYPE string,
lv_count TYPE i,
lv_line_len TYPE i,
lv_prev_token TYPE c.
FIELD-SYMBOLS:
<ls_prev> TYPE ty_match,
<ls_match> TYPE ty_match.
" Longest matches
SORT ct_matches BY offset length DESCENDING.
lv_line_len = strlen( iv_line ).
LOOP AT ct_matches ASSIGNING <ls_match>.
" Delete matches after open text match
IF lv_prev_token = c_token-text AND <ls_match>-token <> c_token-text.
CLEAR <ls_match>-token.
CONTINUE.
ENDIF.
lv_match = substring( val = iv_line
off = <ls_match>-offset
len = <ls_match>-length ).
IF <ls_match>-token = c_token-text.
<ls_match>-text_tag = lv_match.
IF lv_prev_token = c_token-text.
IF <ls_match>-text_tag = <ls_prev>-text_tag.
<ls_prev>-length = <ls_match>-offset + <ls_match>-length - <ls_prev>-offset.
CLEAR lv_prev_token.
ENDIF.
CLEAR <ls_match>-token.
CONTINUE.
ENDIF.
ENDIF.
lv_prev_token = <ls_match>-token.
ASSIGN <ls_match> TO <ls_prev>.
ENDLOOP.
DELETE ct_matches WHERE token IS INITIAL.
" Switch style of second text match to values
LOOP AT ct_matches ASSIGNING <ls_match> WHERE token = c_token-text.
lv_count = lv_count + 1.
IF lv_count >= 2.
<ls_match>-token = c_token-values.
ENDIF.
ENDLOOP.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_SYNTAX_TXT ', 'CLASS zcl_abapgit_syntax_txt DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_syntax_highlighter
CREATE PUBLIC .
PUBLIC SECTION.
METHODS constructor .
METHODS process_line
REDEFINITION .
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_syntax_txt IMPLEMENTATION.
METHOD constructor.
super->constructor( ).
" No rules for plain text files
ENDMETHOD.
METHOD process_line.
rv_line = apply_style(
iv_line = iv_line
iv_class = '''' ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_SYNTAX_XML ', 'CLASS zcl_abapgit_syntax_xml DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_syntax_highlighter
CREATE PUBLIC .
PUBLIC SECTION.
CONSTANTS:
BEGIN OF c_css,
xml_tag TYPE string VALUE ''xml_tag'',
attr TYPE string VALUE ''attr'',
attr_val TYPE string VALUE ''attr_val'',
comment TYPE string VALUE ''comment'',
END OF c_css .
CONSTANTS:
BEGIN OF c_token,
xml_tag TYPE c VALUE ''X'',
attr TYPE c VALUE ''A'',
attr_val TYPE c VALUE ''V'',
comment TYPE c VALUE ''C'',
END OF c_token .
CONSTANTS:
BEGIN OF c_regex,
"for XML tags, we will use a submatch
" main pattern includes quoted strings so we can ignore < and > in attr values
xml_tag TYPE string VALUE ''(?:"[^"]*")|(?:''''[^'''']*'''')|(?:\`[^\`]*\`)|([<>])'',
attr TYPE string VALUE ''(?:^|\\s)[-a-z:_0-9]+\\s*(?==\\s*["|''''|\`])'',
attr_val TYPE string VALUE ''("[^"]*")|(''''[^'''']*'''')|(\`[^\`]*\`)'',
" comments <!-- ... -->
comment TYPE string VALUE ''[\\<]!--.*--[\\>]|[\\<]!--|--[\\>]'',
END OF c_regex .
METHODS constructor .
PROTECTED SECTION.
CLASS-DATA gv_comment TYPE abap_bool.
METHODS order_matches REDEFINITION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_syntax_xml IMPLEMENTATION.
METHOD constructor.
super->constructor( ).
" Reset indicator for multi-line comments
CLEAR gv_comment.
" Initialize instances of regular expressions
add_rule( iv_regex = c_regex-xml_tag
iv_token = c_token-xml_tag
iv_style = c_css-xml_tag
iv_submatch = 1 ).
add_rule( iv_regex = c_regex-attr
iv_token = c_token-attr
iv_style = c_css-attr ).
add_rule( iv_regex = c_regex-attr_val
iv_token = c_token-attr_val
iv_style = c_css-attr_val ).
add_rule( iv_regex = c_regex-comment
iv_token = c_token-comment
iv_style = c_css-comment ).
ENDMETHOD.
METHOD order_matches.
DATA:
lv_match TYPE string,
lv_line_len TYPE i,
lv_cmmt_end TYPE i,
lv_index TYPE sy-tabix,
lv_prev_token TYPE c,
lv_state TYPE c VALUE ''O''. " O - for open tag; C - for closed tag;
FIELD-SYMBOLS:
<ls_prev> TYPE ty_match,
<ls_match> TYPE ty_match.
SORT ct_matches BY offset.
lv_line_len = strlen( iv_line ).
" Check if this is part of multi-line comment and mark it accordingly
IF gv_comment = abap_true.
READ TABLE ct_matches WITH KEY token = c_token-comment TRANSPORTING NO FIELDS.
IF sy-subrc <> 0.
CLEAR ct_matches.
APPEND INITIAL LINE TO ct_matches ASSIGNING <ls_match>.
<ls_match>-token = c_token-comment.
<ls_match>-offset = 0.
<ls_match>-length = lv_line_len.
RETURN.
ENDIF.
ENDIF.
LOOP AT ct_matches ASSIGNING <ls_match>.
lv_index = sy-tabix.
lv_match = substring( val = iv_line
off = <ls_match>-offset
len = <ls_match>-length ).
CASE <ls_match>-token.
WHEN c_token-xml_tag.
<ls_match>-text_tag = lv_match.
" No other matches between two tags
IF <ls_match>-text_tag = ''>'' AND lv_prev_token = c_token-xml_tag.
lv_state = ''C''.
<ls_prev>-length = <ls_match>-offset - <ls_prev>-offset + <ls_match>-length.
DELETE ct_matches INDEX lv_index.
CONTINUE.
" Adjust length and offset of closing tag
ELSEIF <ls_match>-text_tag = ''>'' AND lv_prev_token <> c_token-xml_tag.
lv_state = ''C''.
IF <ls_prev> IS ASSIGNED.
<ls_match>-length = <ls_match>-offset - <ls_prev>-offset - <ls_prev>-length + <ls_match>-length.
<ls_match>-offset = <ls_prev>-offset + <ls_prev>-length.
ENDIF.
ELSE.
lv_state = ''O''.
ENDIF.
WHEN c_token-comment.
IF lv_match = ''<!--''.
DELETE ct_matches WHERE offset > <ls_match>-offset.
DELETE ct_matches WHERE offset = <ls_match>-offset AND token = c_token-xml_tag.
<ls_match>-length = lv_line_len - <ls_match>-offset.
gv_comment = abap_true.
ELSEIF lv_match = ''-->''.
DELETE ct_matches WHERE offset < <ls_match>-offset.
<ls_match>-length = <ls_match>-offset + 3.
<ls_match>-offset = 0.
gv_comment = abap_false.
ELSE.
lv_cmmt_end = <ls_match>-offset + <ls_match>-length.
DELETE ct_matches WHERE offset > <ls_match>-offset AND offset <= lv_cmmt_end.
DELETE ct_matches WHERE offset = <ls_match>-offset AND token = c_token-xml_tag.
ENDIF.
WHEN OTHERS.
IF lv_prev_token = c_token-xml_tag.
<ls_prev>-length = <ls_match>-offset - <ls_prev>-offset. " Extend length of the opening tag
ENDIF.
IF lv_state = ''C''. " Delete all matches between tags
DELETE ct_matches INDEX lv_index.
CONTINUE.
ENDIF.
ENDCASE.
lv_prev_token = <ls_match>-token.
ASSIGN <ls_match> TO <ls_prev>.
ENDLOOP.
"if the last XML tag is not closed, extend it to the end of the tag
IF lv_prev_token = c_token-xml_tag
AND <ls_prev> IS ASSIGNED
AND <ls_prev>-length = 1
AND <ls_prev>-text_tag = ''<''.
FIND REGEX ''<\\s*[^\\s]*'' IN iv_line+<ls_prev>-offset MATCH LENGTH <ls_prev>-length.
IF sy-subrc <> 0.
<ls_prev>-length = 1.
ENDIF.
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_TEMPLATE ', 'CLASS zcl_abapgit_gui_page_template DEFINITION
PUBLIC
FINAL
INHERITING FROM zcl_abapgit_gui_component
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES:
zif_abapgit_gui_page_title,
zif_abapgit_gui_event_handler,
zif_abapgit_gui_hotkeys,
zif_abapgit_gui_menu_provider,
zif_abapgit_gui_renderable,
" TODO: remove table interface if not used on the page
zif_abapgit_html_table.
CLASS-METHODS create
" TODO: page parameters, e.g. ref to repo
* IMPORTING
* ii_repo TYPE REF TO zif_abapgit_repo
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception.
METHODS constructor
* IMPORTING
* ii_repo TYPE REF TO zif_abapgit_repo
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS:
BEGIN OF c_action,
" TODO: List of in-page actions
refresh TYPE string VALUE ''refresh'',
END OF c_action.
CONSTANTS c_title TYPE string VALUE ''Page Template''. " TODO: define page title
ENDCLASS.
CLASS ZCL_ABAPGIT_GUI_PAGE_TEMPLATE IMPLEMENTATION.
METHOD constructor.
super->constructor( ).
" ...
ENDMETHOD.
METHOD create.
" TODO: replace with name of class (self)
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_template.
CREATE OBJECT lo_component.
ri_page = zcl_abapgit_gui_page_hoc=>create( lo_component ).
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
CASE ii_event->mv_action.
" TODO: action handling, refresh is just an example
WHEN c_action-refresh.
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN ''xyz''.
ASSERT 1 = 1.
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_gui_hotkeys~get_hotkey_actions.
DATA ls_hotkey_action LIKE LINE OF rt_hotkey_actions.
ls_hotkey_action-ui_component = c_title.
" TODO: define hotkeys
ls_hotkey_action-description = ''Refresh''.
ls_hotkey_action-action = c_action-refresh.
ls_hotkey_action-hotkey = ''r''.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ENDMETHOD.
METHOD zif_abapgit_gui_menu_provider~get_menu.
" TODO: top level menu
ro_toolbar = zcl_abapgit_html_toolbar=>create( )->add(
iv_txt = ''Refresh''
iv_act = c_action-refresh ).
ENDMETHOD.
METHOD zif_abapgit_gui_page_title~get_page_title.
rv_title = c_title. " Fixed title
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
register_handlers( ).
ri_html = zcl_abapgit_html=>create( ).
" TODO: do your rendering
ri_html->div(
iv_class = ''template''
iv_content = ''Hello!'' ).
ENDMETHOD.
METHOD zif_abapgit_html_table~get_row_attrs.
" ... in case of table on the page, otherwise remove the interface at all
ENDMETHOD.
METHOD zif_abapgit_html_table~render_cell.
" ... in case of table on the page, otherwise remove the interface at all
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI ', 'CLASS zcl_abapgit_gui DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_services .
CONSTANTS:
BEGIN OF c_event_state,
not_handled TYPE i VALUE 0,
re_render TYPE i VALUE 1,
new_page TYPE i VALUE 2,
go_back TYPE i VALUE 3,
no_more_act TYPE i VALUE 4,
new_page_w_bookmark TYPE i VALUE 5,
go_back_to_bookmark TYPE i VALUE 6,
new_page_replacing TYPE i VALUE 7,
END OF c_event_state .
METHODS go_home
IMPORTING
iv_action TYPE string
RAISING
zcx_abapgit_exception .
METHODS back
IMPORTING
!iv_to_bookmark TYPE abap_bool DEFAULT abap_false
!iv_graceful TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(rv_exit) TYPE abap_bool
RAISING
zcx_abapgit_exception .
METHODS back_graceful
RETURNING
VALUE(rv_handled) TYPE abap_bool
RAISING
zcx_abapgit_exception .
METHODS on_event
FOR EVENT sapevent OF zif_abapgit_html_viewer
IMPORTING
!action
!frame
!getdata
!postdata
!query_table .
METHODS constructor
IMPORTING
!io_component TYPE REF TO object OPTIONAL
!ii_asset_man TYPE REF TO zif_abapgit_gui_asset_manager OPTIONAL
!ii_hotkey_ctl TYPE REF TO zif_abapgit_gui_hotkey_ctl OPTIONAL
!ii_html_processor TYPE REF TO zif_abapgit_gui_html_processor OPTIONAL
!iv_rollback_on_error TYPE abap_bool DEFAULT abap_true
RAISING
zcx_abapgit_exception .
METHODS free .
METHODS set_focus
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
PRIVATE SECTION.
TYPES:
BEGIN OF ty_page_stack,
page TYPE REF TO zif_abapgit_gui_renderable,
bookmark TYPE abap_bool,
END OF ty_page_stack .
DATA mv_rollback_on_error TYPE abap_bool .
DATA mi_cur_page TYPE REF TO zif_abapgit_gui_renderable .
DATA mt_stack TYPE STANDARD TABLE OF ty_page_stack .
DATA mt_event_handlers TYPE STANDARD TABLE OF REF TO zif_abapgit_gui_event_handler .
DATA mi_router TYPE REF TO zif_abapgit_gui_event_handler .
DATA mi_asset_man TYPE REF TO zif_abapgit_gui_asset_manager .
DATA mi_hotkey_ctl TYPE REF TO zif_abapgit_gui_hotkey_ctl .
DATA mi_html_processor TYPE REF TO zif_abapgit_gui_html_processor .
DATA mi_html_viewer TYPE REF TO zif_abapgit_html_viewer .
DATA mo_html_parts TYPE REF TO zcl_abapgit_html_parts .
DATA mi_common_log TYPE REF TO zif_abapgit_log .
METHODS cache_html
IMPORTING
!iv_text TYPE string
RETURNING
VALUE(rv_url) TYPE string
RAISING
zcx_abapgit_exception .
METHODS startup
RAISING
zcx_abapgit_exception .
METHODS render
RAISING
zcx_abapgit_exception .
METHODS call_page
IMPORTING
!ii_page TYPE REF TO zif_abapgit_gui_renderable
!iv_with_bookmark TYPE abap_bool DEFAULT abap_false
!iv_replacing TYPE abap_bool DEFAULT abap_false
RAISING
zcx_abapgit_exception .
METHODS handle_action
IMPORTING
!iv_action TYPE c
!iv_getdata TYPE c OPTIONAL
!it_postdata TYPE zif_abapgit_html_viewer=>ty_post_data OPTIONAL .
METHODS handle_error
IMPORTING
!ix_exception TYPE REF TO zcx_abapgit_exception .
METHODS is_page_modal
IMPORTING
!ii_page TYPE REF TO zif_abapgit_gui_renderable
RETURNING
VALUE(rv_yes) TYPE abap_bool .
ENDCLASS.
CLASS ZCL_ABAPGIT_GUI IMPLEMENTATION.
METHOD back.
DATA lv_index TYPE i.
DATA ls_stack LIKE LINE OF mt_stack.
" If viewer is showing Internet page, then use browser navigation
IF mi_html_viewer->get_url( ) CP ''http*''.
mi_html_viewer->back( ).
RETURN.
ENDIF.
lv_index = lines( mt_stack ).
IF lv_index = 0.
rv_exit = abap_true.
RETURN.
ENDIF.
IF iv_graceful = abap_true AND back_graceful( ) = abap_true.
RETURN.
ENDIF.
DO lv_index TIMES.
READ TABLE mt_stack INDEX lv_index INTO ls_stack.
ASSERT sy-subrc = 0.
DELETE mt_stack INDEX lv_index.
ASSERT sy-subrc = 0.
lv_index = lv_index - 1.
IF iv_to_bookmark = abap_false OR ls_stack-bookmark = abap_true.
EXIT.
ENDIF.
ENDDO.
mi_cur_page = ls_stack-page. " last page always stays
render( ).
ENDMETHOD.
METHOD back_graceful.
DATA li_handler TYPE REF TO zif_abapgit_gui_event_handler.
DATA ls_handled TYPE zif_abapgit_gui_event_handler=>ty_handling_result.
" This code can be potentially improved
" Why send go_back to the topmost handler only ? It makes sense to notify the whole stack
" But than how to handle re-render ? render if at least one handler asks for it ?
" Probably that''s the way but needs a relevant example. Postponed arch decision.
READ TABLE mt_event_handlers INTO li_handler INDEX 1.
IF sy-subrc = 0.
ls_handled = li_handler->on_event( zcl_abapgit_gui_event=>new(
iv_action = zif_abapgit_definitions=>c_action-go_back
ii_gui_services = me ) ).
IF ls_handled-state = c_event_state-re_render. " soft exit, probably popup
render( ).
rv_handled = abap_true.
ELSEIF ls_handled-state = c_event_state-no_more_act. " soft exit, probably GUI popup
rv_handled = abap_true.
ENDIF.
ENDIF.
ENDMETHOD.
METHOD cache_html.
rv_url = zif_abapgit_gui_services~cache_asset(
iv_text = iv_text
iv_type = ''text''
iv_subtype = ''html'' ).
ENDMETHOD.
METHOD call_page.
DATA: ls_stack TYPE ty_page_stack.
IF iv_replacing = abap_false AND NOT mi_cur_page IS INITIAL.
ls_stack-page = mi_cur_page.
ls_stack-bookmark = iv_with_bookmark.
APPEND ls_stack TO mt_stack.
ENDIF.
mi_cur_page = ii_page.
render( ).
ENDMETHOD.
METHOD constructor.
IF io_component IS BOUND.
IF zcl_abapgit_gui_utils=>is_renderable( io_component ) = abap_true.
mi_cur_page ?= io_component. " direct page
ELSE.
IF zcl_abapgit_gui_utils=>is_event_handler( io_component ) = abap_false.
zcx_abapgit_exception=>raise( ''Component must be renderable or be an event handler'' ).
ENDIF.
mi_router ?= io_component.
ENDIF.
ENDIF.
CREATE OBJECT mo_html_parts.
mv_rollback_on_error = iv_rollback_on_error.
mi_asset_man = ii_asset_man.
mi_hotkey_ctl = ii_hotkey_ctl.
mi_html_processor = ii_html_processor. " Maybe improve to middlewares stack ??
startup( ).
ENDMETHOD.
METHOD free.
SET HANDLER on_event FOR mi_html_viewer ACTIVATION space.
mi_html_viewer->close_document( ).
mi_html_viewer->free( ).
FREE mi_html_viewer.
ENDMETHOD.
METHOD go_home.
DATA ls_stack LIKE LINE OF mt_stack.
IF mi_router IS BOUND.
CLEAR: mt_stack, mt_event_handlers.
APPEND mi_router TO mt_event_handlers.
on_event( action = |{ iv_action }| ).
ELSE.
IF lines( mt_stack ) > 0.
READ TABLE mt_stack INTO ls_stack INDEX 1.
mi_cur_page = ls_stack-page.
ENDIF.
render( ).
ENDIF.
ENDMETHOD.
METHOD handle_action.
DATA:
lx_exception TYPE REF TO zcx_abapgit_exception,
li_handler TYPE REF TO zif_abapgit_gui_event_handler,
li_event TYPE REF TO zif_abapgit_gui_event,
ls_handled TYPE zif_abapgit_gui_event_handler=>ty_handling_result.
CREATE OBJECT li_event TYPE zcl_abapgit_gui_event
EXPORTING
ii_gui_services = me
iv_action = iv_action
iv_getdata = iv_getdata
it_postdata = it_postdata.
TRY.
ls_handled = zcl_abapgit_exit=>get_instance( )->on_event( li_event ).
IF ls_handled-state = c_event_state-not_handled.
LOOP AT mt_event_handlers INTO li_handler.
ls_handled = li_handler->on_event( li_event ).
IF ls_handled-state IS NOT INITIAL AND ls_handled-state <> c_event_state-not_handled. " is handled
EXIT.
ENDIF.
ENDLOOP.
ENDIF.
IF is_page_modal( mi_cur_page ) = abap_true AND NOT (
ls_handled-state = c_event_state-re_render OR
ls_handled-state = c_event_state-go_back OR
ls_handled-state = c_event_state-no_more_act ).
" Restrict new page switching from modals
ls_handled-state = c_event_state-no_more_act.
ENDIF.
CASE ls_handled-state.
WHEN c_event_state-re_render.
render( ).
WHEN c_event_state-new_page.
call_page( ls_handled-page ).
WHEN c_event_state-new_page_w_bookmark.
call_page(
ii_page = ls_handled-page
iv_with_bookmark = abap_true ).
WHEN c_event_state-new_page_replacing.
call_page(
ii_page = ls_handled-page
iv_replacing = abap_true ).
WHEN c_event_state-go_back.
back( ).
WHEN c_event_state-go_back_to_bookmark.
back( iv_to_bookmark = abap_true ).
WHEN c_event_state-no_more_act.
" Do nothing, handling completed
WHEN OTHERS.
zcx_abapgit_exception=>raise( |Unknown action: { iv_action }| ).
ENDCASE.
CATCH zcx_abapgit_cancel ##NO_HANDLER.
" Do nothing = c_event_state-no_more_act
CATCH zcx_abapgit_exception INTO lx_exception.
handle_error( lx_exception ).
ENDTRY.
ENDMETHOD.
METHOD handle_error.
DATA: li_gui_error_handler TYPE REF TO zif_abapgit_gui_error_handler,
lx_exception TYPE REF TO cx_root.
IF mv_rollback_on_error = abap_true.
ROLLBACK WORK.
ENDIF.
TRY.
li_gui_error_handler ?= mi_cur_page.
IF li_gui_error_handler IS BOUND AND li_gui_error_handler->handle_error( ix_exception ) = abap_true.
" We rerender the current page to display the error box
render( ).
ELSEIF ix_exception->mi_log IS BOUND.
mi_common_log = ix_exception->mi_log.
IF mi_common_log->get_log_level( ) >= zif_abapgit_log=>c_log_level-warning.
zcl_abapgit_log_viewer=>show_log( mi_common_log ).
ENDIF.
ELSE.
MESSAGE ix_exception TYPE ''S'' DISPLAY LIKE ''E''.
ENDIF.
CATCH zcx_abapgit_exception cx_sy_move_cast_error INTO lx_exception.
" In case of fire we just fallback to plain old message
MESSAGE lx_exception TYPE ''S'' DISPLAY LIKE ''E''.
ENDTRY.
ENDMETHOD.
METHOD is_page_modal.
DATA li_modal TYPE REF TO zif_abapgit_gui_modal.
TRY.
IF ii_page IS BOUND.
li_modal ?= ii_page.
rv_yes = li_modal->is_modal( ).
ENDIF.
CATCH cx_sy_move_cast_error.
ENDTRY.
ENDMETHOD.
METHOD on_event.
handle_action(
iv_action = action
iv_getdata = getdata
it_postdata = postdata ).
ENDMETHOD.
METHOD render.
DATA: lv_url TYPE string,
lv_html TYPE string,
li_html TYPE REF TO zif_abapgit_html.
IF mi_cur_page IS NOT BOUND.
zcx_abapgit_exception=>raise( ''GUI error: no current page'' ).
ENDIF.
CLEAR mt_event_handlers.
mo_html_parts->clear( ).
IF mi_router IS BOUND AND is_page_modal( mi_cur_page ) = abap_false.
" No global commands in modals
APPEND mi_router TO mt_event_handlers.
ENDIF.
IF mi_hotkey_ctl IS BOUND.
mi_hotkey_ctl->reset( ).
ENDIF.
li_html = mi_cur_page->render( ).
lv_html = li_html->render( iv_no_indent_jscss = abap_true ).
IF mi_html_processor IS BOUND.
lv_html = mi_html_processor->process(
iv_html = lv_html
ii_gui_services = me ).
ENDIF.
lv_url = cache_html( lv_html ).
mi_html_viewer->show_url( lv_url ).
ENDMETHOD.
METHOD set_focus.
mi_html_viewer->set_focus( ).
ENDMETHOD.
METHOD startup.
DATA: lt_events TYPE cntl_simple_events,
ls_event LIKE LINE OF lt_events,
lt_assets TYPE zif_abapgit_gui_asset_manager=>ty_web_assets.
FIELD-SYMBOLS <ls_asset> LIKE LINE OF lt_assets.
mi_html_viewer = zcl_abapgit_ui_factory=>get_html_viewer( ).
IF mi_asset_man IS BOUND.
lt_assets = mi_asset_man->get_all_assets( ).
LOOP AT lt_assets ASSIGNING <ls_asset> WHERE is_cacheable = abap_true.
zif_abapgit_gui_services~cache_asset(
iv_xdata = <ls_asset>-content
iv_url = <ls_asset>-url
iv_type = <ls_asset>-type
iv_subtype = <ls_asset>-subtype ).
ENDLOOP.
ENDIF.
ls_event-eventid = mi_html_viewer->c_id_sapevent.
ls_event-appl_event = abap_true.
APPEND ls_event TO lt_events.
mi_html_viewer->set_registered_events( lt_events ).
SET HANDLER on_event FOR mi_html_viewer.
ENDMETHOD.
METHOD zif_abapgit_gui_services~cache_asset.
TYPES ty_hex TYPE x LENGTH 200.
TYPES ty_char TYPE c LENGTH 200.
DATA: lt_xdata TYPE STANDARD TABLE OF ty_hex WITH DEFAULT KEY,
lv_size TYPE i,
lt_html TYPE STANDARD TABLE OF ty_char WITH DEFAULT KEY.
ASSERT iv_text IS SUPPLIED OR iv_xdata IS SUPPLIED.
IF iv_text IS SUPPLIED. " String input
zcl_abapgit_convert=>string_to_tab(
EXPORTING
iv_str = iv_text
IMPORTING
ev_size = lv_size
et_tab = lt_html ).
mi_html_viewer->load_data(
EXPORTING
iv_type = iv_type
iv_subtype = iv_subtype
iv_size = lv_size
iv_url = iv_url
IMPORTING
ev_assigned_url = rv_url
CHANGING
ct_data_table = lt_html ).
ELSE. " Raw input
zcl_abapgit_convert=>xstring_to_bintab(
EXPORTING
iv_xstr = iv_xdata
IMPORTING
ev_size = lv_size
et_bintab = lt_xdata ).
mi_html_viewer->load_data(
EXPORTING
iv_type = iv_type
iv_subtype = iv_subtype
iv_size = lv_size
iv_url = iv_url
IMPORTING
ev_assigned_url = rv_url
CHANGING
ct_data_table = lt_xdata ).
ENDIF.
ASSERT sy-subrc = 0. " Image data error
ENDMETHOD.
METHOD zif_abapgit_gui_services~get_current_page_name.
DATA li_page_hoc TYPE REF TO zcl_abapgit_gui_page_hoc.
IF mi_cur_page IS BOUND.
rv_page_name = cl_abap_classdescr=>describe_by_object_ref( mi_cur_page )->get_relative_name( ).
" For HOC components return name of child component instead
IF rv_page_name = ''ZCL_ABAPGIT_GUI_PAGE_HOC''.
li_page_hoc ?= mi_cur_page.
IF li_page_hoc->get_child( ) IS BOUND.
rv_page_name = cl_abap_classdescr=>describe_by_object_ref(
li_page_hoc->get_child( ) )->get_relative_name( ).
ENDIF.
ENDIF.
ENDIF." ELSE - return is empty => initial page
ENDMETHOD.
METHOD zif_abapgit_gui_services~get_hotkeys_ctl.
ri_hotkey_ctl = mi_hotkey_ctl.
ENDMETHOD.
METHOD zif_abapgit_gui_services~get_html_parts.
ro_parts = mo_html_parts.
ENDMETHOD.
METHOD zif_abapgit_gui_services~get_log.
IF iv_create_new = abap_true OR mi_common_log IS NOT BOUND.
CREATE OBJECT mi_common_log TYPE zcl_abapgit_log.
ENDIF.
ri_log = mi_common_log.
ENDMETHOD.
METHOD zif_abapgit_gui_services~register_event_handler.
ASSERT ii_event_handler IS BOUND.
INSERT ii_event_handler INTO mt_event_handlers INDEX 1.
ENDMETHOD.
METHOD zif_abapgit_gui_services~register_page_asset.
" Maybe forbid registering cacheable existing assets, maybe this is the right place (see also asset_man comments)
mi_asset_man->register_asset(
iv_url = iv_url
iv_type = iv_type
iv_mime_name = iv_mime_name
iv_inline = iv_inline
" This registering will happen after initialization so all cacheable already cached
iv_cacheable = abap_false ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_ASSET_MANAGER ', 'CLASS zcl_abapgit_gui_asset_manager DEFINITION PUBLIC FINAL CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_asset_manager.
CLASS-METHODS create
RETURNING
VALUE(ri_asset_manager) TYPE REF TO zif_abapgit_gui_asset_manager.
PROTECTED SECTION.
PRIVATE SECTION.
TYPES:
BEGIN OF ty_asset_entry.
INCLUDE TYPE zif_abapgit_gui_asset_manager~ty_web_asset.
TYPES: mime_name TYPE wwwdatatab-objid,
END OF ty_asset_entry.
TYPES:
ty_asset_register TYPE STANDARD TABLE OF ty_asset_entry WITH KEY url.
DATA mt_asset_register TYPE ty_asset_register.
METHODS get_mime_asset
IMPORTING
iv_mime_name TYPE c
RETURNING
VALUE(rv_xdata) TYPE xstring
RAISING
zcx_abapgit_exception.
METHODS load_asset
IMPORTING
is_asset_entry TYPE ty_asset_entry
RETURNING
VALUE(rs_asset) TYPE zif_abapgit_gui_asset_manager~ty_web_asset
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_gui_asset_manager IMPLEMENTATION.
METHOD create.
CREATE OBJECT ri_asset_manager TYPE zcl_abapgit_gui_asset_manager.
ENDMETHOD.
METHOD get_mime_asset.
DATA: ls_key TYPE wwwdatatab,
lv_size_c TYPE wwwparams-value,
lv_size TYPE i,
lt_w3mime TYPE STANDARD TABLE OF w3mime,
ls_w3mime LIKE LINE OF lt_w3mime.
ls_key-relid = ''MI''.
ls_key-objid = iv_mime_name.
" Get exact file size
CALL FUNCTION ''WWWPARAMS_READ''
EXPORTING
relid = ls_key-relid
objid = ls_key-objid
name = ''filesize''
IMPORTING
value = lv_size_c
EXCEPTIONS
entry_not_exists = 1.
IF sy-subrc IS NOT INITIAL.
RETURN.
ENDIF.
lv_size = lv_size_c.
" Get binary data
CALL FUNCTION ''WWWDATA_IMPORT''
EXPORTING
key = ls_key
TABLES
mime = lt_w3mime
EXCEPTIONS
wrong_object_type = 1
import_error = 2.
IF sy-subrc IS NOT INITIAL.
RETURN.
ENDIF.
LOOP AT lt_w3mime INTO ls_w3mime.
CONCATENATE rv_xdata ls_w3mime-line INTO rv_xdata IN BYTE MODE.
ENDLOOP.
rv_xdata = rv_xdata(lv_size).
ENDMETHOD.
METHOD load_asset.
MOVE-CORRESPONDING is_asset_entry TO rs_asset.
IF rs_asset-content IS INITIAL AND is_asset_entry-mime_name IS NOT INITIAL.
" inline content has the priority
rs_asset-content = get_mime_asset( is_asset_entry-mime_name ).
ENDIF.
IF rs_asset-content IS INITIAL.
zcx_abapgit_exception=>raise( |failed to load GUI asset: { is_asset_entry-url }| ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_gui_asset_manager~get_all_assets.
FIELD-SYMBOLS <ls_a> LIKE LINE OF mt_asset_register.
LOOP AT mt_asset_register ASSIGNING <ls_a>.
APPEND load_asset( <ls_a> ) TO rt_assets.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_gui_asset_manager~get_asset.
FIELD-SYMBOLS <ls_a> LIKE LINE OF mt_asset_register.
READ TABLE mt_asset_register WITH KEY url = iv_url ASSIGNING <ls_a>.
IF <ls_a> IS NOT ASSIGNED.
zcx_abapgit_exception=>raise( |Cannot find GUI asset: { iv_url }| ).
ENDIF.
rs_asset = load_asset( <ls_a> ).
ENDMETHOD.
METHOD zif_abapgit_gui_asset_manager~get_text_asset.
DATA ls_asset TYPE zif_abapgit_gui_asset_manager~ty_web_asset.
ls_asset = zif_abapgit_gui_asset_manager~get_asset( iv_url ).
IF ls_asset-type <> ''text''.
zcx_abapgit_exception=>raise( |Not a text asset: { iv_url }| ).
ENDIF.
IF iv_assert_subtype IS NOT INITIAL AND ls_asset-subtype <> iv_assert_subtype.
zcx_abapgit_exception=>raise( |Wrong subtype ({ iv_assert_subtype }): { iv_url }| ).
ENDIF.
rv_asset = zcl_abapgit_convert=>xstring_to_string_utf8( ls_asset-content ).
ENDMETHOD.
METHOD zif_abapgit_gui_asset_manager~register_asset.
DATA ls_asset LIKE LINE OF mt_asset_register.
SPLIT iv_type AT ''/'' INTO ls_asset-type ls_asset-subtype.
ls_asset-url = iv_url.
ls_asset-mime_name = iv_mime_name.
ls_asset-is_cacheable = iv_cacheable.
IF iv_base64 IS NOT INITIAL.
ls_asset-content = zcl_abapgit_convert=>base64_to_xstring( iv_base64 ).
ELSEIF iv_inline IS NOT INITIAL.
ls_asset-content = zcl_abapgit_convert=>string_to_xstring( iv_inline ).
ENDIF.
DELETE mt_asset_register WHERE url = iv_url.
" TODO: Maybe forbid overwriting cacheable assets as they were probably already cached ... arguable
APPEND ls_asset TO mt_asset_register.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_CSS_PROCESSOR ', 'CLASS zcl_abapgit_gui_css_processor DEFINITION
PUBLIC
FINAL
CREATE PUBLIC.
PUBLIC SECTION.
METHODS:
constructor
IMPORTING
ii_asset_manager TYPE REF TO zif_abapgit_gui_asset_manager,
add_file
IMPORTING
iv_url TYPE string,
process
RETURNING
VALUE(rv_result) TYPE string
RAISING zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
TYPES:
BEGIN OF ty_css_var,
name TYPE string,
value TYPE string,
END OF ty_css_var,
ty_css_vars TYPE SORTED TABLE OF ty_css_var WITH UNIQUE KEY name.
METHODS:
get_css_vars_in_string
IMPORTING
iv_string TYPE string
RETURNING
VALUE(rt_variables) TYPE ty_css_vars,
resolve_var_recursively
IMPORTING
iv_variable_name TYPE string
CHANGING
ct_variables TYPE ty_css_vars
RAISING
zcx_abapgit_exception.
DATA:
mi_asset_manager TYPE REF TO zif_abapgit_gui_asset_manager,
mt_files TYPE string_table.
ENDCLASS.
CLASS ZCL_ABAPGIT_GUI_CSS_PROCESSOR IMPLEMENTATION.
METHOD add_file.
APPEND iv_url TO mt_files.
ENDMETHOD.
METHOD constructor.
mi_asset_manager = ii_asset_manager.
ENDMETHOD.
METHOD get_css_vars_in_string.
CONSTANTS: lc_root_pattern TYPE string VALUE \`:root\\s*\\{([^\\}]*)\\}\`,
lc_variable_pattern TYPE string VALUE \`\\-\\-([\\w\\d-]+)\\s*:\\s*([^\\n\\r;]*);\`.
DATA: lv_root TYPE string,
lo_matcher TYPE REF TO cl_abap_matcher,
lo_regex TYPE REF TO cl_abap_regex,
ls_variable LIKE LINE OF rt_variables.
" Only the :root element may define variables for now
FIND FIRST OCCURRENCE OF REGEX lc_root_pattern IN iv_string SUBMATCHES lv_root.
IF sy-subrc = 0 AND lv_root IS NOT INITIAL.
CREATE OBJECT lo_regex
EXPORTING
pattern = lc_variable_pattern.
lo_matcher = lo_regex->create_matcher( text = lv_root ).
WHILE lo_matcher->find_next( ) = abap_true.
ls_variable-name = lo_matcher->get_submatch( 1 ).
ls_variable-value = lo_matcher->get_submatch( 2 ).
INSERT ls_variable INTO TABLE rt_variables.
IF sy-subrc <> 0.
MODIFY TABLE rt_variables FROM ls_variable.
ENDIF.
ENDWHILE.
ENDIF.
ENDMETHOD.
METHOD process.
DATA:
lt_contents TYPE STANDARD TABLE OF string,
lv_content TYPE string,
lt_css_variables TYPE ty_css_vars,
lt_css_vars_in_file TYPE ty_css_vars.
FIELD-SYMBOLS: <lv_url> TYPE string,
<ls_css_variable> LIKE LINE OF lt_css_vars_in_file,
<lv_content> LIKE LINE OF lt_contents.
" 1. Determine all variables and their values. Later definitions overwrite previous ones.
LOOP AT mt_files ASSIGNING <lv_url>.
lv_content = mi_asset_manager->get_text_asset(
iv_url = <lv_url>
iv_assert_subtype = ''css'' ).
lt_css_vars_in_file = get_css_vars_in_string( lv_content ).
LOOP AT lt_css_vars_in_file ASSIGNING <ls_css_variable>.
INSERT <ls_css_variable> INTO TABLE lt_css_variables.
IF sy-subrc <> 0.
MODIFY TABLE lt_css_variables FROM <ls_css_variable>.
ENDIF.
ENDLOOP.
APPEND lv_content TO lt_contents.
ENDLOOP.
" 2. Replace all variable usages in variables
LOOP AT lt_css_variables ASSIGNING <ls_css_variable> WHERE value CS ''var(--''.
resolve_var_recursively( EXPORTING iv_variable_name = <ls_css_variable>-name
CHANGING ct_variables = lt_css_variables ).
ENDLOOP.
" 3. Replace all other variable usages by inlining the values.
LOOP AT lt_contents ASSIGNING <lv_content>.
LOOP AT lt_css_variables ASSIGNING <ls_css_variable>.
REPLACE ALL OCCURRENCES OF |var(--{ <ls_css_variable>-name })|
IN <lv_content>
WITH <ls_css_variable>-value.
ENDLOOP.
ENDLOOP.
rv_result = concat_lines_of( table = lt_contents
sep = cl_abap_char_utilities=>newline ).
ENDMETHOD.
METHOD resolve_var_recursively.
CONSTANTS: lc_variable_usage_pattern TYPE string VALUE \`var\\(\\-\\-([^\\)]*)\\)\`.
DATA: lv_variable_name TYPE string.
FIELD-SYMBOLS: <ls_variable> LIKE LINE OF ct_variables,
<ls_other_variable> LIKE LINE OF ct_variables.
READ TABLE ct_variables WITH TABLE KEY name = iv_variable_name ASSIGNING <ls_variable>.
IF sy-subrc = 0.
DO.
FIND FIRST OCCURRENCE OF REGEX lc_variable_usage_pattern
IN <ls_variable>-value
SUBMATCHES lv_variable_name.
IF sy-subrc = 0.
resolve_var_recursively( EXPORTING iv_variable_name = lv_variable_name
CHANGING ct_variables = ct_variables ).
READ TABLE ct_variables WITH TABLE KEY name = lv_variable_name ASSIGNING <ls_other_variable>.
REPLACE FIRST OCCURRENCE OF |var(--{ lv_variable_name })|
IN <ls_variable>-value
WITH <ls_other_variable>-value.
ELSE.
EXIT.
ENDIF.
ENDDO.
ELSE.
zcx_abapgit_exception=>raise( |CSS variable { iv_variable_name } not resolvable| ).
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_EVENT ', 'CLASS zcl_abapgit_gui_event DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_event .
CLASS-METHODS class_constructor .
CLASS-METHODS new
IMPORTING
!ii_gui_services TYPE REF TO zif_abapgit_gui_services OPTIONAL
!iv_action TYPE clike
!iv_getdata TYPE clike OPTIONAL
!it_postdata TYPE zif_abapgit_html_viewer=>ty_post_data OPTIONAL
RETURNING
VALUE(ro_instance) TYPE REF TO zcl_abapgit_gui_event.
METHODS constructor
IMPORTING
!ii_gui_services TYPE REF TO zif_abapgit_gui_services OPTIONAL
!iv_action TYPE clike
!iv_getdata TYPE clike OPTIONAL
!it_postdata TYPE zif_abapgit_html_viewer=>ty_post_data OPTIONAL .
PROTECTED SECTION.
PRIVATE SECTION.
DATA mo_query TYPE REF TO zcl_abapgit_string_map.
DATA mo_form_data TYPE REF TO zcl_abapgit_string_map.
CLASS-DATA gv_non_breaking_space TYPE string .
TYPES: BEGIN OF ty_name_value,
name TYPE string,
value TYPE string,
END OF ty_name_value.
TYPES ty_name_value_tt TYPE STANDARD TABLE OF ty_name_value WITH DEFAULT KEY.
METHODS fields_to_map
IMPORTING
it_fields TYPE ty_name_value_tt
RETURNING
VALUE(ro_string_map) TYPE REF TO zcl_abapgit_string_map
RAISING
zcx_abapgit_exception.
CLASS-METHODS parse_post_form_data
IMPORTING
!it_post_data TYPE zif_abapgit_html_viewer=>ty_post_data
!iv_upper_cased TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(rt_fields) TYPE ty_name_value_tt .
CLASS-METHODS parse_fields
IMPORTING
!iv_string TYPE clike
!iv_upper_cased TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(rt_fields) TYPE ty_name_value_tt .
CLASS-METHODS parse_fields_upper_case_name
IMPORTING
!iv_string TYPE clike
RETURNING
VALUE(rt_fields) TYPE ty_name_value_tt .
CLASS-METHODS translate_postdata
IMPORTING
!it_postdata TYPE zif_abapgit_html_viewer=>ty_post_data
RETURNING
VALUE(rv_string) TYPE string .
CLASS-METHODS field_keys_to_upper
CHANGING
!ct_fields TYPE ty_name_value_tt .
CLASS-METHODS unescape
IMPORTING
!iv_string TYPE string
RETURNING
VALUE(rv_string) TYPE string .
ENDCLASS.
CLASS zcl_abapgit_gui_event IMPLEMENTATION.
METHOD constructor.
" Edge Webview control returns upper case action but abapGit requires lower case (#4841)
zif_abapgit_gui_event~mi_gui_services = ii_gui_services.
zif_abapgit_gui_event~mv_action = to_lower( iv_action ).
zif_abapgit_gui_event~mv_getdata = iv_getdata.
zif_abapgit_gui_event~mt_postdata = it_postdata.
IF ii_gui_services IS BOUND.
zif_abapgit_gui_event~mv_current_page_name = ii_gui_services->get_current_page_name( ).
ENDIF.
ENDMETHOD.
METHOD fields_to_map.
FIELD-SYMBOLS <ls_field> LIKE LINE OF it_fields.
CREATE OBJECT ro_string_map EXPORTING iv_case_insensitive = abap_true.
LOOP AT it_fields ASSIGNING <ls_field>.
ro_string_map->set(
iv_key = <ls_field>-name
iv_val = <ls_field>-value ).
ENDLOOP.
ENDMETHOD.
METHOD new.
CREATE OBJECT ro_instance
EXPORTING
ii_gui_services = ii_gui_services
iv_action = iv_action
iv_getdata = iv_getdata
it_postdata = it_postdata.
ENDMETHOD.
METHOD zif_abapgit_gui_event~form_data.
IF mo_form_data IS NOT BOUND.
mo_form_data = fields_to_map( parse_post_form_data( zif_abapgit_gui_event~mt_postdata ) ).
mo_form_data->freeze( ).
ENDIF.
ro_string_map = mo_form_data.
ENDMETHOD.
METHOD zif_abapgit_gui_event~query.
IF mo_query IS NOT BOUND.
mo_query = fields_to_map( parse_fields( zif_abapgit_gui_event~mv_getdata ) ).
mo_query->freeze( ).
ENDIF.
ro_string_map = mo_query.
ENDMETHOD.
METHOD parse_fields_upper_case_name.
rt_fields = parse_fields(
iv_string = iv_string
iv_upper_cased = abap_true ).
ENDMETHOD.
METHOD parse_post_form_data.
DATA lv_serialized_post_data TYPE string.
lv_serialized_post_data = translate_postdata( it_post_data ).
IF iv_upper_cased = abap_true.
rt_fields = parse_fields_upper_case_name( lv_serialized_post_data ).
ELSE.
rt_fields = parse_fields( lv_serialized_post_data ).
ENDIF.
ENDMETHOD.
METHOD parse_fields.
DATA:
lt_substrings TYPE string_table,
ls_field LIKE LINE OF rt_fields.
FIELD-SYMBOLS <lv_substring> LIKE LINE OF lt_substrings.
SPLIT iv_string AT ''&'' INTO TABLE lt_substrings.
LOOP AT lt_substrings ASSIGNING <lv_substring>.
CLEAR ls_field.
" On attempt to change unescaping -> run unit tests to check !
" Unescape name and value separately
ls_field-name = unescape( substring_before(
val = <lv_substring>
sub = ''='' ) ).
ls_field-value = unescape( substring_after(
val = <lv_substring>
sub = ''='' ) ).
IF ls_field IS INITIAL. " Not a field with proper structure
CONTINUE.
ENDIF.
APPEND ls_field TO rt_fields.
ENDLOOP.
IF iv_upper_cased = abap_true.
field_keys_to_upper( CHANGING ct_fields = rt_fields ).
ENDIF.
ENDMETHOD.
METHOD translate_postdata.
DATA: lt_post_data TYPE zif_abapgit_html_viewer=>ty_post_data,
ls_last_line LIKE LINE OF it_postdata,
lv_last_line_index TYPE i.
IF it_postdata IS INITIAL.
RETURN. "Nothing to do
ENDIF.
lt_post_data = it_postdata.
"Save the last line for separate merge, because we don''t need its trailing spaces
WHILE ls_last_line IS INITIAL.
lv_last_line_index = lines( lt_post_data ).
READ TABLE lt_post_data INTO ls_last_line INDEX lv_last_line_index.
DELETE lt_post_data INDEX lv_last_line_index.
ENDWHILE.
CONCATENATE LINES OF lt_post_data INTO rv_string
IN CHARACTER MODE RESPECTING BLANKS.
CONCATENATE rv_string ls_last_line INTO rv_string
IN CHARACTER MODE.
ENDMETHOD.
METHOD field_keys_to_upper.
FIELD-SYMBOLS <ls_field> LIKE LINE OF ct_fields.
LOOP AT ct_fields ASSIGNING <ls_field>.
<ls_field>-name = to_upper( <ls_field>-name ).
ENDLOOP.
ENDMETHOD.
METHOD unescape.
* do not use cl_http_utility as it does strange things with the encoding
rv_string = iv_string.
* todo, more to be added here
REPLACE ALL OCCURRENCES OF ''%3A'' IN rv_string WITH '':'' IGNORING CASE.
REPLACE ALL OCCURRENCES OF ''%3F'' IN rv_string WITH ''?'' IGNORING CASE.
REPLACE ALL OCCURRENCES OF ''%3D'' IN rv_string WITH ''='' IGNORING CASE.
REPLACE ALL OCCURRENCES OF ''%2F'' IN rv_string WITH ''/'' IGNORING CASE.
REPLACE ALL OCCURRENCES OF ''%25'' IN rv_string WITH ''%'' IGNORING CASE.
REPLACE ALL OCCURRENCES OF ''%26'' IN rv_string WITH ''&'' IGNORING CASE.
REPLACE ALL OCCURRENCES OF gv_non_breaking_space IN rv_string WITH \` \`.
ENDMETHOD.
METHOD class_constructor.
CONSTANTS lc_nbsp TYPE xstring VALUE ''C2A0''. "
TRY.
gv_non_breaking_space = zcl_abapgit_convert=>xstring_to_string_utf8( lc_nbsp ).
CATCH zcx_abapgit_exception.
ASSERT 0 = 1.
ENDTRY.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_HOTKEY_CTL ', 'CLASS zcl_abapgit_gui_hotkey_ctl DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_component
FINAL
CREATE PUBLIC.
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_hotkeys.
INTERFACES zif_abapgit_gui_hotkey_ctl.
INTERFACES zif_abapgit_gui_renderable.
CONSTANTS c_showhotkeys_action TYPE string VALUE \`showHotkeys\` ##NO_TEXT.
CLASS-METHODS should_show_hint
RETURNING
VALUE(rv_yes) TYPE abap_bool.
METHODS constructor
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
DATA:
mt_hotkeys TYPE zif_abapgit_gui_hotkeys=>ty_hotkeys_with_descr,
ms_user_settings TYPE zif_abapgit_definitions=>ty_s_user_settings,
mv_visible TYPE abap_bool.
CLASS-DATA gv_hint_was_shown TYPE abap_bool .
METHODS render_scripts
IMPORTING
!it_hotkeys TYPE zif_abapgit_gui_hotkeys=>ty_hotkeys_with_descr
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html .
ENDCLASS.
CLASS ZCL_ABAPGIT_GUI_HOTKEY_CTL IMPLEMENTATION.
METHOD constructor.
super->constructor( ).
ms_user_settings = zcl_abapgit_persistence_user=>get_instance( )->get_settings( ).
ENDMETHOD.
METHOD render_scripts.
DATA lv_json TYPE string.
FIELD-SYMBOLS: <ls_hotkey> LIKE LINE OF it_hotkeys.
lv_json = \`{\`.
LOOP AT it_hotkeys ASSIGNING <ls_hotkey>.
IF sy-tabix > 1.
lv_json = lv_json && |,|.
ENDIF.
lv_json = lv_json && | "{ <ls_hotkey>-hotkey }" : "{ <ls_hotkey>-action }" |.
ENDLOOP.
lv_json = lv_json && \`}\`.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->set_title( cl_abap_typedescr=>describe_by_object_ref( me )->get_relative_name( ) ).
ri_html->add( |setKeyBindings({ lv_json });| ).
ENDMETHOD.
METHOD should_show_hint.
IF gv_hint_was_shown = abap_false.
rv_yes = abap_true.
gv_hint_was_shown = abap_true.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_gui_hotkeys~get_hotkey_actions.
DATA ls_hotkey LIKE LINE OF rt_hotkey_actions.
ls_hotkey-ui_component = ''Hotkeys''.
ls_hotkey-action = c_showhotkeys_action.
ls_hotkey-description = ''Show Hotkeys Help''.
ls_hotkey-hotkey = ''?''.
INSERT ls_hotkey INTO TABLE rt_hotkey_actions.
ENDMETHOD.
METHOD zif_abapgit_gui_hotkey_ctl~get_registered_hotkeys.
rt_registered_hotkeys = mt_hotkeys.
ENDMETHOD.
METHOD zif_abapgit_gui_hotkey_ctl~register_hotkeys.
FIELD-SYMBOLS <ls_hotkey> LIKE LINE OF it_hotkeys.
" Compress duplicates
LOOP AT it_hotkeys ASSIGNING <ls_hotkey>.
READ TABLE mt_hotkeys WITH KEY hotkey = <ls_hotkey>-hotkey TRANSPORTING NO FIELDS.
IF sy-subrc = 0. " If found command with same hotkey
DELETE mt_hotkeys INDEX sy-tabix. " Later registered commands enjoys the priority
ENDIF.
IF ms_user_settings-link_hints_enabled = abap_true AND
ms_user_settings-link_hint_key = <ls_hotkey>-hotkey.
" Link hint activation key is more important
CONTINUE.
ENDIF.
APPEND <ls_hotkey> TO mt_hotkeys.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_gui_hotkey_ctl~reset.
CLEAR mt_hotkeys.
ENDMETHOD.
METHOD zif_abapgit_gui_hotkey_ctl~set_visible.
mv_visible = iv_visible.
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
DATA:
lv_hint TYPE string,
lt_registered_hotkeys TYPE zif_abapgit_gui_hotkeys=>ty_hotkeys_with_descr,
lv_hotkey TYPE string,
ls_user_settings TYPE zif_abapgit_definitions=>ty_s_user_settings.
FIELD-SYMBOLS <ls_hotkey> LIKE LINE OF lt_registered_hotkeys.
register_handlers( ).
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
lt_registered_hotkeys = zif_abapgit_gui_hotkey_ctl~get_registered_hotkeys( ).
SORT lt_registered_hotkeys BY ui_component description.
register_deferred_script( render_scripts( lt_registered_hotkeys ) ).
" Render hotkeys
ri_html->add( ''<ul class="hotkeys">'' ).
LOOP AT lt_registered_hotkeys ASSIGNING <ls_hotkey>.
ri_html->add( |<li>|
&& |<span class="key-id">{ <ls_hotkey>-hotkey }</span>|
&& |<span class="key-descr">{ <ls_hotkey>-description }</span>|
&& |</li>| ).
ENDLOOP.
" render link hints activation key
ls_user_settings = zcl_abapgit_persistence_user=>get_instance( )->get_settings( ).
IF ls_user_settings-link_hints_enabled = abap_true.
ri_html->add( |<li>|
&& |<span class="key-id">{ ls_user_settings-link_hint_key }</span>|
&& |<span class="key-descr">Link Hints</span>|
&& |</li>| ).
ri_html->add( |<li>|
&& |<span class="key-id">y{ ls_user_settings-link_hint_key }</span>|
&& |<span class="key-descr">Copy Link Text</span>|
&& |</li>| ).
ENDIF.
ri_html->add( ''</ul>'' ).
CLEAR lv_hotkey.
READ TABLE lt_registered_hotkeys ASSIGNING <ls_hotkey>
WITH KEY action = c_showhotkeys_action.
IF sy-subrc = 0.
lv_hotkey = <ls_hotkey>-hotkey.
ENDIF.
lv_hint = |Close window with upper right corner ''X''|.
IF lv_hotkey IS NOT INITIAL.
lv_hint = lv_hint && | or press ''{ <ls_hotkey>-hotkey }''|.
ENDIF.
ri_html = zcl_abapgit_gui_chunk_lib=>render_infopanel(
iv_div_id = ''hotkeys''
iv_title = ''Hotkeys''
iv_hint = lv_hint
iv_hide = boolc( mv_visible = abap_false )
iv_scrollable = abap_false
io_content = ri_html ).
IF lv_hotkey IS NOT INITIAL AND should_show_hint( ) = abap_true.
ri_html->add( |<div id="hotkeys-hint" class="corner-hint">|
&& |Press ''{ <ls_hotkey>-hotkey }'' to get keyboard shortcuts list|
&& |</div>| ).
ENDIF.
" Always reset visibility here. Closing of the popup has to be done by the
" user and is handled in JS.
mv_visible = abap_false.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_HTML_PROCESSOR ', 'CLASS zcl_abapgit_gui_html_processor DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
CONSTANTS c_css_build_name TYPE string VALUE ''css/bundle.css''.
CONSTANTS c_preprocess_marker TYPE string VALUE \`<!-- abapGit HTML preprocessor -->\`.
CONSTANTS c_comment_start TYPE string VALUE \`<!--\`.
CONSTANTS c_comment_end TYPE string VALUE \`-->\`.
INTERFACES zif_abapgit_gui_html_processor .
METHODS constructor
IMPORTING
ii_asset_man TYPE REF TO zif_abapgit_gui_asset_manager.
METHODS preserve_css
IMPORTING
!iv_css_url TYPE string .
PROTECTED SECTION.
PRIVATE SECTION.
DATA mt_preserve_css TYPE string_table.
DATA mi_asset_man TYPE REF TO zif_abapgit_gui_asset_manager.
METHODS patch_html
IMPORTING
iv_html TYPE string
EXPORTING
ev_html TYPE string
et_css_urls TYPE string_table
RAISING
zcx_abapgit_exception.
METHODS is_preserved
IMPORTING
!iv_css_url TYPE string
RETURNING
VALUE(rv_yes) TYPE abap_bool.
METHODS find_head_offset
IMPORTING
iv_html TYPE string
RETURNING
VALUE(rv_head_end) TYPE i
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS ZCL_ABAPGIT_GUI_HTML_PROCESSOR IMPLEMENTATION.
METHOD constructor.
mi_asset_man = ii_asset_man.
ENDMETHOD.
METHOD is_preserved.
READ TABLE mt_preserve_css TRANSPORTING NO FIELDS WITH KEY table_line = iv_css_url.
rv_yes = boolc( sy-subrc = 0 ).
ENDMETHOD.
METHOD patch_html.
CONSTANTS lc_css_re TYPE string VALUE \`<link\\s+rel="stylesheet"\\s+type="text/css"\\s+href="(\\S+)">\`.
DATA lv_head_end TYPE i.
DATA lo_css_re TYPE REF TO cl_abap_regex.
DATA lo_matcher TYPE REF TO cl_abap_matcher.
DATA lv_css_path TYPE string.
DATA lv_marker TYPE string.
DATA lv_off TYPE i.
DATA lv_len TYPE i.
DATA lv_cur TYPE i.
DATA lv_css_build TYPE string VALUE ''<link rel="stylesheet" type="text/css" href="$BUILD_NAME">''.
REPLACE FIRST OCCURRENCE OF ''$BUILD_NAME'' IN lv_css_build WITH c_css_build_name. " Mmmm
CLEAR: ev_html, et_css_urls.
lv_head_end = find_head_offset( iv_html ).
CREATE OBJECT lo_css_re
EXPORTING
ignore_case = abap_true
pattern = lc_css_re.
lo_matcher = lo_css_re->create_matcher( text = substring( val = iv_html len = lv_head_end ) ).
WHILE lo_matcher->find_next( ) = abap_true.
lv_css_path = lo_matcher->get_submatch( 1 ).
IF abap_false = is_preserved( lv_css_path ).
lv_off = lo_matcher->get_offset( ).
lv_len = lo_matcher->get_length( ).
ev_html = ev_html && substring( val = iv_html
off = lv_cur
len = lv_off - lv_cur ).
ev_html = ev_html && c_comment_start && substring( val = iv_html
off = lv_off
len = lv_len ) && c_comment_end.
lv_cur = lv_off + lv_len.
APPEND lv_css_path TO et_css_urls.
ENDIF.
ENDWHILE.
ev_html = ev_html && substring( val = iv_html
off = lv_cur
len = lv_head_end - lv_cur ).
IF lines( et_css_urls ) > 0.
lv_marker = cl_abap_char_utilities=>newline
&& \` \` " Assume 4 space indent, maybe improve and detect ?
&& c_preprocess_marker
&& cl_abap_char_utilities=>newline
&& \` \`.
ev_html = ev_html && lv_marker && lv_css_build.
ENDIF.
ev_html = ev_html && substring( val = iv_html
off = lv_head_end ).
ENDMETHOD.
METHOD preserve_css.
APPEND iv_css_url TO mt_preserve_css.
ENDMETHOD.
METHOD zif_abapgit_gui_html_processor~process.
DATA lo_css_processor TYPE REF TO zcl_abapgit_gui_css_processor.
DATA lt_css_urls TYPE string_table.
DATA lv_css_build TYPE string.
FIELD-SYMBOLS <lv_url> LIKE LINE OF lt_css_urls.
patch_html(
EXPORTING
iv_html = iv_html
IMPORTING
ev_html = rv_html
et_css_urls = lt_css_urls ).
IF lines( lt_css_urls ) > 0.
CREATE OBJECT lo_css_processor
EXPORTING
ii_asset_manager = mi_asset_man.
LOOP AT lt_css_urls ASSIGNING <lv_url>.
lo_css_processor->add_file( <lv_url> ).
ENDLOOP.
lv_css_build = lo_css_processor->process( ).
ii_gui_services->cache_asset(
iv_url = |{ c_css_build_name }|
iv_type = ''text''
iv_subtype = ''css''
iv_text = lv_css_build ).
ENDIF.
ENDMETHOD.
METHOD find_head_offset.
rv_head_end = find( val = iv_html
regex = |{ cl_abap_char_utilities=>newline }?\\\\s*</head>|
case = abap_false ).
IF rv_head_end <= 0.
rv_head_end = find( val = iv_html
regex = |</head>|
case = abap_false ).
IF rv_head_end <= 0.
zcx_abapgit_exception=>raise( ''HTML preprocessor: </head> not found'' ).
ENDIF.
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_UTILS ', 'CLASS zcl_abapgit_gui_utils DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS is_renderable
IMPORTING
!io_obj TYPE REF TO object
RETURNING
VALUE(rv_yes) TYPE abap_bool .
CLASS-METHODS is_event_handler
IMPORTING
!io_obj TYPE REF TO object
RETURNING
VALUE(rv_yes) TYPE abap_bool .
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS ZCL_ABAPGIT_GUI_UTILS IMPLEMENTATION.
METHOD is_event_handler.
DATA li_event_handler TYPE REF TO zif_abapgit_gui_event_handler.
TRY.
li_event_handler ?= io_obj.
rv_yes = abap_true.
CATCH cx_sy_move_cast_error.
rv_yes = abap_false.
ENDTRY.
ENDMETHOD.
METHOD is_renderable.
DATA li_renderable TYPE REF TO zif_abapgit_gui_renderable.
TRY.
li_renderable ?= io_obj.
rv_yes = abap_true.
CATCH cx_sy_move_cast_error.
rv_yes = abap_false.
ENDTRY.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_HTML ', 'CLASS zcl_abapgit_html DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES zif_abapgit_html .
CONSTANTS c_indent_size TYPE i VALUE 2 ##NO_TEXT.
CLASS-METHODS class_constructor .
CLASS-METHODS create
IMPORTING
!iv_initial_chunk TYPE any OPTIONAL
RETURNING
VALUE(ri_instance) TYPE REF TO zif_abapgit_html.
CLASS-METHODS icon
IMPORTING
!iv_name TYPE string
!iv_hint TYPE string OPTIONAL
!iv_class TYPE string OPTIONAL
!iv_onclick TYPE string OPTIONAL
RETURNING
VALUE(rv_str) TYPE string .
CLASS-METHODS checkbox
IMPORTING
iv_id TYPE string OPTIONAL
iv_checked TYPE abap_bool OPTIONAL
RETURNING
VALUE(rv_html) TYPE string .
CLASS-METHODS parse_data_attr
IMPORTING
iv_str TYPE string OPTIONAL
RETURNING
VALUE(rs_data_attr) TYPE zif_abapgit_html=>ty_data_attr .
CLASS-METHODS set_debug_mode
IMPORTING
iv_mode TYPE abap_bool.
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS c_max_indent TYPE i VALUE 200.
TYPES:
BEGIN OF ty_indent_context,
no_indent_jscss TYPE abap_bool,
within_style TYPE abap_bool,
within_js TYPE abap_bool,
within_textarea TYPE abap_bool,
indent TYPE i,
indent_str TYPE string,
END OF ty_indent_context .
TYPES:
BEGIN OF ty_study_result,
style_open TYPE abap_bool,
style_close TYPE abap_bool,
script_open TYPE abap_bool,
script_close TYPE abap_bool,
textarea_open TYPE abap_bool,
textarea_close TYPE abap_bool,
tag_close TYPE abap_bool,
curly_close TYPE abap_bool,
openings TYPE i,
closings TYPE i,
singles TYPE i,
END OF ty_study_result .
CLASS-DATA go_single_tags_re TYPE REF TO cl_abap_regex .
DATA mt_buffer TYPE string_table .
CLASS-DATA gv_spaces TYPE string .
CLASS-DATA gv_debug_mode TYPE abap_bool .
METHODS indent_line
CHANGING
!cs_context TYPE ty_indent_context
!cv_line TYPE string .
METHODS study_line
IMPORTING
!iv_line TYPE string
!is_context TYPE ty_indent_context
RETURNING
VALUE(rs_result) TYPE ty_study_result .
ENDCLASS.
CLASS ZCL_ABAPGIT_HTML IMPLEMENTATION.
METHOD checkbox.
DATA: lv_checked TYPE string.
IF iv_checked = abap_true.
lv_checked = |checked|.
ENDIF.
rv_html = |<input type="checkbox" { lv_checked } |.
IF iv_id IS NOT INITIAL.
rv_html = rv_html && |id="{ iv_id }"|.
ENDIF.
rv_html = rv_html && \`/>\`.
ENDMETHOD.
METHOD class_constructor.
CREATE OBJECT go_single_tags_re
EXPORTING
pattern = ''<(AREA|BASE|BR|COL|COMMAND|EMBED|HR|IMG|INPUT|LINK|META|PARAM|SOURCE|!)''
ignore_case = abap_false.
gv_spaces = repeat(
val = \` \`
occ = c_max_indent ).
ENDMETHOD.
METHOD set_debug_mode.
gv_debug_mode = iv_mode.
ENDMETHOD.
METHOD create.
CREATE OBJECT ri_instance TYPE zcl_abapgit_html.
IF iv_initial_chunk IS NOT INITIAL.
ri_instance->add( iv_initial_chunk ).
ENDIF.
ENDMETHOD.
METHOD icon.
DATA: lv_hint TYPE string,
lv_name TYPE string,
lv_color TYPE string,
lv_class TYPE string,
lv_onclick TYPE string.
SPLIT iv_name AT ''/'' INTO lv_name lv_color.
IF iv_hint IS NOT INITIAL.
lv_hint = | title="{ iv_hint }"|.
ENDIF.
IF iv_onclick IS NOT INITIAL.
lv_onclick = | onclick="{ iv_onclick }"|.
ENDIF.
IF iv_class IS NOT INITIAL.
lv_class = | { iv_class }|.
ENDIF.
IF lv_color IS NOT INITIAL.
lv_color = | { lv_color }|.
ENDIF.
rv_str = |<i class="icon icon-{ lv_name }{ lv_color }|.
rv_str = |{ rv_str }{ lv_class }"{ lv_onclick }{ lv_hint }></i>|.
ENDMETHOD.
METHOD indent_line.
DATA: ls_study TYPE ty_study_result,
lv_spaces TYPE i.
ls_study = study_line(
is_context = cs_context
iv_line = cv_line ).
" No indent for textarea tags
IF ls_study-textarea_open = abap_true.
cs_context-within_textarea = abap_true.
RETURN.
ELSEIF ls_study-textarea_close = abap_true.
cs_context-within_textarea = abap_false.
RETURN.
ELSEIF cs_context-within_textarea = abap_true.
RETURN.
ENDIF.
" First closing tag - shift back exceptionally
IF ( ls_study-script_close = abap_true
OR ls_study-style_close = abap_true
OR ls_study-curly_close = abap_true
OR ls_study-tag_close = abap_true )
AND cs_context-indent > 0.
lv_spaces = ( cs_context-indent - 1 ) * c_indent_size.
IF lv_spaces <= c_max_indent.
cv_line = gv_spaces(lv_spaces) && cv_line.
ELSE.
cv_line = gv_spaces && cv_line.
ENDIF.
ELSE.
cv_line = cs_context-indent_str && cv_line.
ENDIF.
" Context status update
CASE abap_true.
WHEN ls_study-script_open.
cs_context-within_js = abap_true.
cs_context-within_style = abap_false.
WHEN ls_study-style_open.
cs_context-within_js = abap_false.
cs_context-within_style = abap_true.
WHEN ls_study-script_close OR ls_study-style_close.
cs_context-within_js = abap_false.
cs_context-within_style = abap_false.
ls_study-closings = ls_study-closings + 1.
ENDCASE.
" More-less logic chosen due to possible double tags in a line ''<a><b>''
IF ls_study-openings <> ls_study-closings.
IF ls_study-openings > ls_study-closings.
cs_context-indent = cs_context-indent + 1.
ELSEIF cs_context-indent > 0. " AND ls_study-openings < ls_study-closings
cs_context-indent = cs_context-indent - 1.
ENDIF.
lv_spaces = cs_context-indent * c_indent_size.
IF lv_spaces <= c_max_indent.
cs_context-indent_str = gv_spaces(lv_spaces).
ELSE.
cv_line = gv_spaces && cv_line.
ENDIF.
ENDIF.
ENDMETHOD.
METHOD parse_data_attr.
SPLIT iv_str AT ''='' INTO rs_data_attr-name rs_data_attr-value.
IF rs_data_attr-name IS INITIAL.
CLEAR rs_data_attr.
ENDIF.
ENDMETHOD.
METHOD study_line.
DATA: lv_line TYPE string,
lv_len TYPE i.
lv_line = to_upper( shift_left( val = iv_line
sub = \` \` ) ).
lv_len = strlen( lv_line ).
" Some assumptions for simplification and speed
" - style & scripts tag should be opened/closed in a separate line
" - style & scripts opening and closing in one line is possible but only once
" TODO & Issues
" - What if the string IS a well formed html already not just single line ?
IF is_context-within_js = abap_true OR is_context-within_style = abap_true.
IF is_context-within_js = abap_true AND lv_len >= 8 AND lv_line(8) = ''</SCRIPT''.
rs_result-script_close = abap_true.
ELSEIF is_context-within_style = abap_true AND lv_len >= 7 AND lv_line(7) = ''</STYLE''.
rs_result-style_close = abap_true.
ENDIF.
IF is_context-no_indent_jscss = abap_false.
IF lv_len >= 1 AND lv_line(1) = ''}''.
rs_result-curly_close = abap_true.
ENDIF.
FIND ALL OCCURRENCES OF ''{'' IN lv_line MATCH COUNT rs_result-openings.
FIND ALL OCCURRENCES OF ''}'' IN lv_line MATCH COUNT rs_result-closings.
ENDIF.
ELSE.
IF lv_len >= 7 AND lv_line(7) = ''<SCRIPT''.
FIND FIRST OCCURRENCE OF ''</SCRIPT'' IN lv_line.
IF sy-subrc > 0. " Not found
rs_result-script_open = abap_true.
ENDIF.
ENDIF.
IF lv_len >= 6 AND lv_line(6) = ''<STYLE''.
FIND FIRST OCCURRENCE OF ''</STYLE'' IN lv_line.
IF sy-subrc > 0. " Not found
rs_result-style_open = abap_true.
ENDIF.
ENDIF.
IF lv_len >= 2 AND lv_line(2) = ''</''.
rs_result-tag_close = abap_true.
ENDIF.
FIND ALL OCCURRENCES OF ''<'' IN lv_line MATCH COUNT rs_result-openings.
FIND ALL OCCURRENCES OF ''</'' IN lv_line MATCH COUNT rs_result-closings.
IF rs_result-closings <> rs_result-openings.
* if everything is closings, there are no single tags
FIND ALL OCCURRENCES OF REGEX go_single_tags_re IN lv_line MATCH COUNT rs_result-singles.
ENDIF.
rs_result-openings = rs_result-openings - rs_result-closings - rs_result-singles.
ENDIF.
" Textarea (same assumptions as above)
IF is_context-within_textarea = abap_true AND lv_len >= 10 AND lv_line(10) = ''</TEXTAREA''.
rs_result-textarea_close = abap_true.
ELSEIF is_context-within_textarea = abap_false AND lv_len >= 9 AND lv_line(9) = ''<TEXTAREA''.
FIND FIRST OCCURRENCE OF ''</TEXTAREA'' IN lv_line.
IF sy-subrc > 0. " Not found
rs_result-textarea_open = abap_true.
ENDIF.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_html~a.
DATA: lv_class TYPE string,
lv_href TYPE string,
lv_click TYPE string,
lv_id TYPE string,
lv_act TYPE string,
lv_style TYPE string,
lv_title TYPE string.
lv_class = iv_class.
IF iv_opt CA zif_abapgit_html=>c_html_opt-strong.
lv_class = lv_class && '' emphasis''.
ENDIF.
IF iv_opt CA zif_abapgit_html=>c_html_opt-cancel.
lv_class = lv_class && '' attention''.
ENDIF.
IF iv_opt CA zif_abapgit_html=>c_html_opt-crossout.
lv_class = lv_class && '' crossout grey''.
ENDIF.
IF lv_class IS NOT INITIAL.
SHIFT lv_class LEFT DELETING LEADING space.
lv_class = | class="{ lv_class }"|.
ENDIF.
lv_href = '' href="#"''. " Default, dummy
lv_act = iv_act.
IF ( iv_act IS NOT INITIAL OR iv_typ = zif_abapgit_html=>c_action_type-dummy )
AND iv_opt NA zif_abapgit_html=>c_html_opt-crossout.
CASE iv_typ.
WHEN zif_abapgit_html=>c_action_type-url.
IF iv_query IS NOT INITIAL.
lv_act = lv_act && \`?\` && iv_query.
ENDIF.
lv_href = | href="{ lv_act }"|.
WHEN zif_abapgit_html=>c_action_type-sapevent.
IF iv_query IS NOT INITIAL.
lv_act = lv_act && \`?\` && iv_query.
ENDIF.
lv_href = | href="sapevent:{ lv_act }"|.
WHEN zif_abapgit_html=>c_action_type-onclick.
lv_href = '' href="#"''.
lv_click = | onclick="{ iv_act }"|.
WHEN zif_abapgit_html=>c_action_type-dummy.
lv_href = '' href="#"''.
ENDCASE.
ENDIF.
IF iv_id IS NOT INITIAL.
lv_id = | id="{ iv_id }"|.
ENDIF.
IF iv_style IS NOT INITIAL.
lv_style = | style="{ iv_style }"|.
ENDIF.
IF iv_title IS NOT INITIAL.
lv_title = | title="{ iv_title }"|.
ENDIF.
" Debug option to display href-link on hover
IF gv_debug_mode = abap_true.
lv_title = | title="{ escape(
val = lv_href
format = cl_abap_format=>e_html_attr ) }"|.
ENDIF.
rv_str = |<a{ lv_id }{ lv_class }{ lv_href }{ lv_click }{ lv_style }{ lv_title }>|
&& |{ iv_txt }</a>|.
ENDMETHOD.
METHOD zif_abapgit_html~add.
DATA: lv_type TYPE c,
li_renderable TYPE REF TO zif_abapgit_gui_renderable,
lx_error TYPE REF TO zcx_abapgit_exception,
lo_html TYPE REF TO zcl_abapgit_html.
FIELD-SYMBOLS: <lt_tab> TYPE string_table.
lv_type = cl_abap_typedescr=>describe_by_data( ig_chunk )->type_kind.
CASE lv_type.
WHEN ''C'' OR ''g''. " Char or string
APPEND ig_chunk TO mt_buffer.
WHEN ''h''. " Table
ASSIGN ig_chunk TO <lt_tab>. " Assuming table of strings ! Will dump otherwise
APPEND LINES OF <lt_tab> TO mt_buffer.
WHEN ''r''. " Object ref
ASSERT ig_chunk IS BOUND. " Dev mistake
TRY.
lo_html ?= ig_chunk.
CATCH cx_sy_move_cast_error.
TRY.
li_renderable ?= ig_chunk.
lo_html ?= li_renderable->render( ).
CATCH cx_sy_move_cast_error.
ASSERT 1 = 0. " Dev mistake
CATCH zcx_abapgit_exception INTO lx_error.
lo_html ?= create( |<span class="error">Render error: { lx_error->get_text( ) }</span>| ).
ENDTRY.
ENDTRY.
APPEND LINES OF lo_html->mt_buffer TO mt_buffer.
WHEN OTHERS.
ASSERT 1 = 0. " Dev mistake
ENDCASE.
ri_self = me.
ENDMETHOD.
METHOD zif_abapgit_html~add_a.
zif_abapgit_html~add( zif_abapgit_html~a(
iv_txt = iv_txt
iv_act = iv_act
iv_query = iv_query
iv_typ = iv_typ
iv_opt = iv_opt
iv_class = iv_class
iv_id = iv_id
iv_style = iv_style
iv_title = iv_title ) ).
ri_self = me.
ENDMETHOD.
METHOD zif_abapgit_html~add_checkbox.
zif_abapgit_html~add( checkbox(
iv_id = iv_id
iv_checked = iv_checked ) ).
ri_self = me.
ENDMETHOD.
METHOD zif_abapgit_html~add_icon.
zif_abapgit_html~add( icon(
iv_name = iv_name
iv_class = iv_class
iv_hint = iv_hint
iv_onclick = iv_onclick ) ).
ri_self = me.
ENDMETHOD.
METHOD zif_abapgit_html~div.
zif_abapgit_html~wrap(
iv_tag = ''div''
iv_content = iv_content
ii_content = ii_content
is_data_attr = is_data_attr
it_data_attrs = it_data_attrs
iv_id = iv_id
iv_class = iv_class ).
ri_self = me.
ENDMETHOD.
METHOD zif_abapgit_html~icon.
rv_str = icon(
iv_name = iv_name
iv_hint = iv_hint
iv_class = iv_class
iv_onclick = iv_onclick ).
ENDMETHOD.
METHOD zif_abapgit_html~is_empty.
rv_yes = boolc( lines( mt_buffer ) = 0 ).
ENDMETHOD.
METHOD zif_abapgit_html~render.
DATA: ls_context TYPE ty_indent_context,
lt_temp TYPE string_table.
FIELD-SYMBOLS: <lv_line> LIKE LINE OF lt_temp,
<lv_line_c> LIKE LINE OF lt_temp.
IF iv_no_line_breaks = abap_true.
CONCATENATE LINES OF mt_buffer INTO rv_html.
ELSE.
ls_context-no_indent_jscss = iv_no_indent_jscss.
LOOP AT mt_buffer ASSIGNING <lv_line>.
APPEND <lv_line> TO lt_temp ASSIGNING <lv_line_c>.
indent_line( CHANGING cs_context = ls_context cv_line = <lv_line_c> ).
ENDLOOP.
CONCATENATE LINES OF lt_temp INTO rv_html SEPARATED BY cl_abap_char_utilities=>newline.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_html~set_title.
zif_abapgit_html~mv_chunk_title = iv_title.
ri_self = me.
ENDMETHOD.
METHOD zif_abapgit_html~td.
zif_abapgit_html~wrap(
iv_format_single_line = iv_format_single_line
iv_tag = ''td''
iv_content = iv_content
ii_content = ii_content
iv_id = iv_id
iv_class = iv_class
is_data_attr = is_data_attr
it_data_attrs = it_data_attrs
iv_hint = iv_hint ).
ri_self = me.
ENDMETHOD.
METHOD zif_abapgit_html~th.
zif_abapgit_html~wrap(
iv_format_single_line = iv_format_single_line
iv_tag = ''th''
iv_content = iv_content
ii_content = ii_content
iv_id = iv_id
iv_class = iv_class
is_data_attr = is_data_attr
it_data_attrs = it_data_attrs
iv_hint = iv_hint ).
ri_self = me.
ENDMETHOD.
METHOD zif_abapgit_html~wrap.
DATA lv_open_tag TYPE string.
DATA lv_close_tag TYPE string.
DATA ls_data_attr LIKE LINE OF it_data_attrs.
DATA: lv_class TYPE string,
lv_id TYPE string,
lv_data_attr TYPE string,
lv_title TYPE string.
IF iv_id IS NOT INITIAL.
lv_id = | id="{ iv_id }"|.
ENDIF.
IF iv_class IS NOT INITIAL.
lv_class = | class="{ iv_class }"|.
ENDIF.
IF iv_hint IS NOT INITIAL.
lv_title = | title="{ iv_hint }"|.
ENDIF.
IF is_data_attr IS NOT INITIAL.
lv_data_attr = | data-{ is_data_attr-name }="{ is_data_attr-value }"|.
ENDIF.
LOOP AT it_data_attrs INTO ls_data_attr.
lv_data_attr = lv_data_attr && | data-{ ls_data_attr-name }="{ ls_data_attr-value }"|.
ENDLOOP.
lv_open_tag = |<{ iv_tag }{ lv_id }{ lv_class }{ lv_data_attr }{ lv_title }>|.
lv_close_tag = |</{ iv_tag }>|.
IF ii_content IS NOT BOUND AND iv_content IS INITIAL.
lv_open_tag = lv_open_tag && lv_close_tag.
CLEAR lv_close_tag.
ENDIF.
IF iv_format_single_line = abap_true AND iv_content IS NOT INITIAL.
zif_abapgit_html~add( lv_open_tag && iv_content && lv_close_tag ).
ELSE.
zif_abapgit_html~add( lv_open_tag ).
IF ii_content IS BOUND.
zif_abapgit_html~add( ii_content ).
ELSEIF iv_content IS NOT INITIAL.
zif_abapgit_html~add( iv_content ).
ENDIF.
IF lv_close_tag IS NOT INITIAL.
zif_abapgit_html~add( lv_close_tag ).
ENDIF.
ENDIF.
ri_self = me.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_HTML_PARTS ', 'CLASS zcl_abapgit_html_parts DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
METHODS add_part
IMPORTING
!iv_collection TYPE string
!ii_part TYPE REF TO zif_abapgit_html .
METHODS get_parts
IMPORTING
!iv_collection TYPE string
RETURNING
VALUE(rt_parts) TYPE zif_abapgit_html=>ty_table_of .
METHODS get_collection_names
RETURNING
VALUE(rt_list) TYPE string_table .
METHODS get_collection_size
IMPORTING
!iv_collection TYPE string
RETURNING
VALUE(rv_size) TYPE i .
METHODS clear.
PROTECTED SECTION.
PRIVATE SECTION.
TYPES:
BEGIN OF ty_named_collection,
name TYPE string,
pile TYPE zif_abapgit_html=>ty_table_of,
END OF ty_named_collection.
TYPES:
ty_named_collections TYPE STANDARD TABLE OF ty_named_collection WITH KEY name.
DATA mt_part_collections TYPE ty_named_collections.
METHODS get_collection
IMPORTING
!iv_collection TYPE string
!iv_create_if_missing TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(rr_collection) TYPE REF TO ty_named_collection .
ENDCLASS.
CLASS ZCL_ABAPGIT_HTML_PARTS IMPLEMENTATION.
METHOD add_part.
DATA lr_collection TYPE REF TO ty_named_collection.
lr_collection = get_collection(
iv_collection = iv_collection
iv_create_if_missing = abap_true ).
APPEND ii_part TO lr_collection->pile.
ENDMETHOD.
METHOD clear.
CLEAR mt_part_collections.
ENDMETHOD.
METHOD get_collection.
READ TABLE mt_part_collections REFERENCE INTO rr_collection WITH KEY name = iv_collection.
IF sy-subrc <> 0 AND iv_create_if_missing = abap_true.
APPEND INITIAL LINE TO mt_part_collections REFERENCE INTO rr_collection.
rr_collection->name = iv_collection.
ENDIF.
ENDMETHOD.
METHOD get_collection_names.
FIELD-SYMBOLS <ls_coll> LIKE LINE OF mt_part_collections.
LOOP AT mt_part_collections ASSIGNING <ls_coll>.
APPEND <ls_coll>-name TO rt_list.
ENDLOOP.
ENDMETHOD.
METHOD get_collection_size.
DATA lr_collection TYPE REF TO ty_named_collection.
lr_collection = get_collection( iv_collection ).
IF lr_collection IS BOUND.
rv_size = lines( lr_collection->pile ).
ENDIF.
ENDMETHOD.
METHOD get_parts.
DATA lr_collection TYPE REF TO ty_named_collection.
lr_collection = get_collection( iv_collection ).
IF lr_collection IS BOUND.
rt_parts = lr_collection->pile.
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_HTML_VIEWER_GUI ', 'CLASS zcl_abapgit_html_viewer_gui DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES zif_abapgit_html_viewer .
METHODS constructor
IMPORTING
!io_container TYPE REF TO cl_gui_container DEFAULT cl_gui_container=>screen0
!iv_disable_query_table TYPE abap_bool DEFAULT abap_true .
PROTECTED SECTION.
DATA mo_html_viewer TYPE REF TO cl_gui_html_viewer .
METHODS on_event
FOR EVENT sapevent OF cl_gui_html_viewer
IMPORTING
!action
!frame
!getdata
!postdata
!query_table .
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_html_viewer_gui IMPLEMENTATION.
METHOD constructor.
DATA: lt_events TYPE cntl_simple_events,
ls_event LIKE LINE OF lt_events.
CREATE OBJECT mo_html_viewer
EXPORTING
query_table_disabled = iv_disable_query_table
parent = io_container.
ls_event-eventid = zif_abapgit_html_viewer=>c_id_sapevent.
ls_event-appl_event = abap_true.
APPEND ls_event TO lt_events.
mo_html_viewer->set_registered_events( lt_events ).
SET HANDLER on_event FOR mo_html_viewer.
ENDMETHOD.
METHOD on_event.
RAISE EVENT zif_abapgit_html_viewer~sapevent
EXPORTING
action = action
frame = frame
getdata = getdata
postdata = postdata
query_table = query_table.
ENDMETHOD.
METHOD zif_abapgit_html_viewer~back.
mo_html_viewer->go_back( ).
ENDMETHOD.
METHOD zif_abapgit_html_viewer~close_document.
mo_html_viewer->close_document( ).
ENDMETHOD.
METHOD zif_abapgit_html_viewer~free.
mo_html_viewer->free( ).
ENDMETHOD.
METHOD zif_abapgit_html_viewer~get_url.
DATA lv_url TYPE c LENGTH 250.
mo_html_viewer->get_current_url( IMPORTING url = lv_url ).
cl_gui_cfw=>flush( ).
rv_url = lv_url.
ENDMETHOD.
METHOD zif_abapgit_html_viewer~load_data.
DATA lv_url TYPE c LENGTH 250.
DATA lv_assigned TYPE c LENGTH 250.
ASSERT strlen( iv_url ) <= 250.
lv_url = iv_url.
mo_html_viewer->load_data(
EXPORTING
url = lv_url
type = iv_type
subtype = iv_subtype
size = iv_size
IMPORTING
assigned_url = lv_assigned
CHANGING
data_table = ct_data_table
EXCEPTIONS
dp_invalid_parameter = 1
dp_error_general = 2
cntl_error = 3
" html_syntax_notcorrect = 4 " not in lower releases
OTHERS = 5 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''Error loading data for HTML viewer'' ).
ENDIF.
ev_assigned_url = lv_assigned.
ENDMETHOD.
METHOD zif_abapgit_html_viewer~set_focus.
cl_gui_control=>set_focus(
EXPORTING
control = mo_html_viewer
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2
OTHERS = 3 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error in: cl_gui_control=>set_focus - SUBRC = { sy-subrc }| ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_html_viewer~set_registered_events.
mo_html_viewer->set_registered_events(
EXPORTING
events = it_events
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2
illegal_event_combination = 3
OTHERS = 4 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''Error registering events for HTML viewer'' ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_html_viewer~set_visiblity.
DATA: lv_visible TYPE c LENGTH 1.
IF iv_visible = abap_true.
lv_visible = cl_gui_container=>visible_true.
ELSE.
lv_visible = cl_gui_container=>visible_false.
ENDIF.
mo_html_viewer->set_visible( lv_visible ).
ENDMETHOD.
METHOD zif_abapgit_html_viewer~show_url.
DATA lv_url TYPE c LENGTH 250.
lv_url = iv_url.
mo_html_viewer->show_url(
EXPORTING
url = lv_url
EXCEPTIONS
cntl_error = 1
cnht_error_not_allowed = 2
cnht_error_parameter = 3
dp_error_general = 4
OTHERS = 5 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''Error showing URL in HTML viewer'' ).
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCX_ABAPGIT_CANCEL ', 'CLASS zcx_abapgit_cancel DEFINITION
PUBLIC
INHERITING FROM zcx_abapgit_exception
FINAL
CREATE PUBLIC.
PUBLIC SECTION.
METHODS constructor
IMPORTING
!textid LIKE if_t100_message=>t100key OPTIONAL
!previous LIKE previous OPTIONAL
!log TYPE REF TO zif_abapgit_log OPTIONAL
!msgv1 TYPE symsgv OPTIONAL
!msgv2 TYPE symsgv OPTIONAL
!msgv3 TYPE symsgv OPTIONAL
!msgv4 TYPE symsgv OPTIONAL
!longtext TYPE csequence OPTIONAL.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcx_abapgit_cancel IMPLEMENTATION.
METHOD constructor ##ADT_SUPPRESS_GENERATION.
super->constructor(
previous = previous
log = log
msgv1 = msgv1
msgv2 = msgv2
msgv3 = msgv3
msgv4 = msgv4
longtext = longtext ).
CLEAR me->textid.
IF textid IS INITIAL.
if_t100_message~t100key = if_t100_message=>default_textid.
ELSE.
if_t100_message~t100key = textid.
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_GUI_ASSET_MANAGER ', 'INTERFACE zif_abapgit_gui_asset_manager
PUBLIC .
TYPES:
BEGIN OF ty_web_asset,
url TYPE string,
type TYPE c LENGTH 50,
subtype TYPE c LENGTH 50,
content TYPE xstring,
is_cacheable TYPE abap_bool,
END OF ty_web_asset .
TYPES:
ty_web_assets TYPE STANDARD TABLE OF ty_web_asset WITH DEFAULT KEY .
METHODS get_all_assets
RETURNING
VALUE(rt_assets) TYPE ty_web_assets
RAISING
zcx_abapgit_exception.
METHODS get_asset
IMPORTING
iv_url TYPE string
RETURNING
VALUE(rs_asset) TYPE ty_web_asset
RAISING
zcx_abapgit_exception.
METHODS get_text_asset
IMPORTING
iv_url TYPE string
iv_assert_subtype TYPE string OPTIONAL
RETURNING
VALUE(rv_asset) TYPE string
RAISING
zcx_abapgit_exception.
METHODS register_asset
IMPORTING
!iv_url TYPE string
!iv_type TYPE string
!iv_cacheable TYPE abap_bool DEFAULT abap_true
!iv_mime_name TYPE wwwdatatab-objid OPTIONAL
!iv_base64 TYPE string OPTIONAL
!iv_inline TYPE string OPTIONAL
RAISING
zcx_abapgit_exception.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_GUI_ERROR_HANDLER ', 'INTERFACE zif_abapgit_gui_error_handler
PUBLIC .
METHODS handle_error
IMPORTING
ix_error TYPE REF TO zcx_abapgit_exception
RETURNING
VALUE(rv_handled) TYPE abap_bool.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_GUI_EVENT ', 'INTERFACE zif_abapgit_gui_event
PUBLIC .
DATA mv_action TYPE string READ-ONLY.
DATA mv_getdata TYPE string READ-ONLY.
DATA mt_postdata TYPE zif_abapgit_html_viewer=>ty_post_data READ-ONLY.
DATA mi_gui_services TYPE REF TO zif_abapgit_gui_services READ-ONLY.
DATA mv_current_page_name TYPE string.
METHODS query
RETURNING
VALUE(ro_string_map) TYPE REF TO zcl_abapgit_string_map
RAISING
zcx_abapgit_exception.
METHODS form_data
RETURNING
VALUE(ro_string_map) TYPE REF TO zcl_abapgit_string_map
RAISING
zcx_abapgit_exception.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_GUI_EVENT_HANDLER ', 'INTERFACE zif_abapgit_gui_event_handler
PUBLIC .
TYPES:
BEGIN OF ty_handling_result,
page TYPE REF TO zif_abapgit_gui_renderable,
state TYPE i,
END OF ty_handling_result.
METHODS on_event
IMPORTING
ii_event TYPE REF TO zif_abapgit_gui_event
RETURNING
VALUE(rs_handled) TYPE ty_handling_result
RAISING
zcx_abapgit_exception.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_GUI_HOTKEY_CTL ', 'INTERFACE zif_abapgit_gui_hotkey_ctl
PUBLIC.
METHODS register_hotkeys
IMPORTING
!it_hotkeys TYPE zif_abapgit_gui_hotkeys=>ty_hotkeys_with_descr.
METHODS reset.
METHODS get_registered_hotkeys
RETURNING
VALUE(rt_registered_hotkeys) TYPE zif_abapgit_gui_hotkeys=>ty_hotkeys_with_descr
RAISING
zcx_abapgit_exception.
METHODS set_visible
IMPORTING
iv_visible TYPE abap_bool.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_GUI_HOTKEYS ', 'INTERFACE zif_abapgit_gui_hotkeys
PUBLIC .
TYPES:
BEGIN OF ty_hotkey_with_descr,
ui_component TYPE string,
action TYPE string,
hotkey TYPE string,
description TYPE string,
END OF ty_hotkey_with_descr .
TYPES:
ty_hotkeys_with_descr TYPE STANDARD TABLE OF ty_hotkey_with_descr
WITH DEFAULT KEY
WITH UNIQUE SORTED KEY action COMPONENTS ui_component action .
METHODS get_hotkey_actions
RETURNING
VALUE(rt_hotkey_actions) TYPE ty_hotkeys_with_descr
RAISING
zcx_abapgit_exception.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_GUI_HTML_PROCESSOR ', 'INTERFACE zif_abapgit_gui_html_processor
PUBLIC .
METHODS process
IMPORTING
!iv_html TYPE string
!ii_gui_services TYPE REF TO zif_abapgit_gui_services
RETURNING
VALUE(rv_html) TYPE string
RAISING
zcx_abapgit_exception.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_GUI_MODAL ', 'INTERFACE zif_abapgit_gui_modal
PUBLIC .
METHODS is_modal
RETURNING
VALUE(rv_yes) TYPE abap_bool.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_GUI_RENDERABLE ', 'INTERFACE zif_abapgit_gui_renderable
PUBLIC .
METHODS render
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_GUI_SERVICES ', 'INTERFACE zif_abapgit_gui_services
PUBLIC .
METHODS cache_asset
IMPORTING
!iv_text TYPE string OPTIONAL
!iv_xdata TYPE xstring OPTIONAL
!iv_url TYPE string OPTIONAL
!iv_type TYPE c
!iv_subtype TYPE c
RETURNING
VALUE(rv_url) TYPE string
RAISING
zcx_abapgit_exception .
" Notes:
" - page_asset is supposed to be not cacheable
" - add mime64 if needed (supposedly won''t be needed)
METHODS register_page_asset
IMPORTING
!iv_url TYPE string
!iv_type TYPE string
!iv_mime_name TYPE wwwdatatab-objid OPTIONAL
!iv_inline TYPE string OPTIONAL
RAISING
zcx_abapgit_exception .
METHODS register_event_handler
IMPORTING
!ii_event_handler TYPE REF TO zif_abapgit_gui_event_handler .
METHODS get_current_page_name
RETURNING
VALUE(rv_page_name) TYPE string .
METHODS get_hotkeys_ctl
RETURNING
VALUE(ri_hotkey_ctl) TYPE REF TO zif_abapgit_gui_hotkey_ctl .
METHODS get_html_parts
RETURNING
VALUE(ro_parts) TYPE REF TO zcl_abapgit_html_parts .
METHODS get_log
IMPORTING
!iv_create_new TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(ri_log) TYPE REF TO zif_abapgit_log .
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_HTML ', 'INTERFACE zif_abapgit_html PUBLIC.
TYPES:
BEGIN OF ty_data_attr,
name TYPE string,
value TYPE string,
END OF ty_data_attr,
ty_data_attrs TYPE STANDARD TABLE OF ty_data_attr WITH KEY name.
CONSTANTS:
BEGIN OF c_action_type,
sapevent TYPE c VALUE ''E'',
url TYPE c VALUE ''U'',
onclick TYPE c VALUE ''C'',
separator TYPE c VALUE ''S'',
dummy TYPE c VALUE ''_'',
END OF c_action_type .
CONSTANTS:
BEGIN OF c_html_opt,
strong TYPE c VALUE ''E'',
cancel TYPE c VALUE ''C'',
crossout TYPE c VALUE ''X'',
END OF c_html_opt .
TYPES:
ty_table_of TYPE STANDARD TABLE OF REF TO zif_abapgit_html WITH DEFAULT KEY.
DATA mv_chunk_title TYPE string READ-ONLY. " Primarily for debug of postponed html parts
METHODS set_title
IMPORTING
iv_title TYPE string
RETURNING
VALUE(ri_self) TYPE REF TO zif_abapgit_html.
METHODS add
IMPORTING
!ig_chunk TYPE any
RETURNING
VALUE(ri_self) TYPE REF TO zif_abapgit_html.
METHODS render
IMPORTING
!iv_no_indent_jscss TYPE abap_bool DEFAULT abap_false
!iv_no_line_breaks TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(rv_html) TYPE string .
METHODS is_empty
RETURNING
VALUE(rv_yes) TYPE abap_bool .
METHODS add_a
IMPORTING
!iv_txt TYPE string
!iv_act TYPE string
!iv_query TYPE string OPTIONAL
!iv_typ TYPE c DEFAULT c_action_type-sapevent
!iv_opt TYPE clike OPTIONAL
!iv_class TYPE string OPTIONAL
!iv_id TYPE string OPTIONAL
!iv_style TYPE string OPTIONAL
!iv_title TYPE string OPTIONAL
RETURNING
VALUE(ri_self) TYPE REF TO zif_abapgit_html.
METHODS add_checkbox
IMPORTING
iv_id TYPE string
iv_checked TYPE abap_bool OPTIONAL
RETURNING
VALUE(ri_self) TYPE REF TO zif_abapgit_html.
METHODS a
IMPORTING
!iv_txt TYPE string
!iv_act TYPE string
!iv_query TYPE string OPTIONAL
!iv_typ TYPE c DEFAULT zif_abapgit_html=>c_action_type-sapevent
!iv_opt TYPE clike OPTIONAL
!iv_class TYPE string OPTIONAL
!iv_id TYPE string OPTIONAL
!iv_style TYPE string OPTIONAL
!iv_title TYPE string OPTIONAL
RETURNING
VALUE(rv_str) TYPE string .
METHODS icon
IMPORTING
!iv_name TYPE string
!iv_hint TYPE string OPTIONAL
!iv_class TYPE string OPTIONAL
!iv_onclick TYPE string OPTIONAL
RETURNING
VALUE(rv_str) TYPE string .
METHODS add_icon
IMPORTING
!iv_name TYPE string
!iv_hint TYPE string OPTIONAL
!iv_class TYPE string OPTIONAL
!iv_onclick TYPE string OPTIONAL
RETURNING
VALUE(ri_self) TYPE REF TO zif_abapgit_html.
METHODS wrap
IMPORTING
!iv_tag TYPE string
!iv_content TYPE string OPTIONAL
!ii_content TYPE REF TO zif_abapgit_html OPTIONAL
!iv_id TYPE string OPTIONAL
!iv_class TYPE string OPTIONAL
!iv_hint TYPE string OPTIONAL
!iv_format_single_line TYPE abap_bool DEFAULT abap_false
!is_data_attr TYPE ty_data_attr OPTIONAL
!it_data_attrs TYPE ty_data_attrs OPTIONAL
RETURNING
VALUE(ri_self) TYPE REF TO zif_abapgit_html.
METHODS td
IMPORTING
!iv_content TYPE string OPTIONAL
!ii_content TYPE REF TO zif_abapgit_html OPTIONAL
!iv_id TYPE string OPTIONAL
!iv_class TYPE string OPTIONAL
!iv_hint TYPE string OPTIONAL
!iv_format_single_line TYPE abap_bool DEFAULT abap_true
!is_data_attr TYPE ty_data_attr OPTIONAL
!it_data_attrs TYPE ty_data_attrs OPTIONAL
PREFERRED PARAMETER iv_content
RETURNING
VALUE(ri_self) TYPE REF TO zif_abapgit_html.
METHODS th
IMPORTING
!iv_content TYPE string OPTIONAL
!ii_content TYPE REF TO zif_abapgit_html OPTIONAL
!iv_id TYPE string OPTIONAL
!iv_class TYPE string OPTIONAL
!iv_hint TYPE string OPTIONAL
!iv_format_single_line TYPE abap_bool DEFAULT abap_true
!is_data_attr TYPE ty_data_attr OPTIONAL
!it_data_attrs TYPE ty_data_attrs OPTIONAL
PREFERRED PARAMETER iv_content
RETURNING
VALUE(ri_self) TYPE REF TO zif_abapgit_html.
METHODS div
IMPORTING
!iv_content TYPE string OPTIONAL
!ii_content TYPE REF TO zif_abapgit_html OPTIONAL
!iv_id TYPE string OPTIONAL
!iv_class TYPE string OPTIONAL
!is_data_attr TYPE ty_data_attr OPTIONAL
!it_data_attrs TYPE ty_data_attrs OPTIONAL
PREFERRED PARAMETER iv_content
RETURNING
VALUE(ri_self) TYPE REF TO zif_abapgit_html.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_HTML_VIEWER ', 'INTERFACE zif_abapgit_html_viewer
PUBLIC .
TYPES:
ty_char256 TYPE c LENGTH 256 .
TYPES:
ty_post_data TYPE STANDARD TABLE OF ty_char256 WITH DEFAULT KEY .
TYPES:
BEGIN OF ty_name_value,
name TYPE c LENGTH 30,
value TYPE c LENGTH 250,
END OF ty_name_value .
TYPES:
ty_query_table TYPE STANDARD TABLE OF ty_name_value WITH DEFAULT KEY .
CONSTANTS c_id_sapevent TYPE i VALUE 1 ##NO_TEXT.
EVENTS sapevent
EXPORTING
VALUE(action) TYPE c OPTIONAL
VALUE(frame) TYPE c OPTIONAL
VALUE(getdata) TYPE c OPTIONAL
VALUE(postdata) TYPE ty_post_data OPTIONAL
VALUE(query_table) TYPE ty_query_table OPTIONAL .
METHODS load_data
IMPORTING
!iv_url TYPE string OPTIONAL
!iv_type TYPE c DEFAULT ''text''
!iv_subtype TYPE c DEFAULT ''html''
!iv_size TYPE i DEFAULT 0
EXPORTING
!ev_assigned_url TYPE string
CHANGING
!ct_data_table TYPE STANDARD TABLE
RAISING
zcx_abapgit_exception .
METHODS set_registered_events
IMPORTING
!it_events TYPE cntl_simple_events
RAISING
zcx_abapgit_exception .
METHODS show_url
IMPORTING
!iv_url TYPE string
RAISING
zcx_abapgit_exception .
METHODS free .
METHODS close_document .
METHODS get_url
RETURNING
VALUE(rv_url) TYPE string .
METHODS back .
METHODS set_visiblity
IMPORTING
!iv_visible TYPE abap_bool .
METHODS set_focus RAISING zcx_abapgit_exception.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_FLOW_EXIT ', 'CLASS zcl_abapgit_flow_exit DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES zif_abapgit_flow_exit .
CLASS-METHODS get_instance
RETURNING
VALUE(ri_exit) TYPE REF TO zif_abapgit_flow_exit.
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-DATA gi_global_exit TYPE REF TO zif_abapgit_flow_exit.
CLASS-DATA gi_exit TYPE REF TO zif_abapgit_flow_exit.
ENDCLASS.
CLASS ZCL_ABAPGIT_FLOW_EXIT IMPLEMENTATION.
METHOD get_instance.
* this exit only works with global classes
IF gi_global_exit IS NOT INITIAL.
ri_exit = gi_global_exit.
RETURN.
ENDIF.
TRY.
CREATE OBJECT gi_exit TYPE (''ZCL_ABAPGIT_FLOW_USER_EXIT'').
CATCH cx_sy_create_object_error ##NO_HANDLER.
ENDTRY.
CREATE OBJECT gi_global_exit TYPE zcl_abapgit_flow_exit. " this class
ri_exit = gi_global_exit.
ENDMETHOD.
METHOD zif_abapgit_flow_exit~on_event.
IF gi_exit IS NOT INITIAL.
TRY.
rs_result = gi_exit->on_event(
ii_event = ii_event
it_features = it_features ).
CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method ##NO_HANDLER.
ENDTRY.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_flow_exit~toolbar_extras.
IF gi_exit IS NOT INITIAL.
TRY.
gi_exit->toolbar_extras(
io_toolbar = io_toolbar
iv_index = iv_index
is_feature = is_feature ).
CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method ##NO_HANDLER.
ENDTRY.
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_FLOW ', 'CLASS zcl_abapgit_gui_page_flow DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_component
FINAL
CREATE PRIVATE .
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_event_handler .
INTERFACES zif_abapgit_gui_renderable .
INTERFACES zif_abapgit_gui_menu_provider .
CLASS-METHODS create
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception .
METHODS constructor
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS:
BEGIN OF c_action,
refresh TYPE string VALUE ''refresh'',
pull TYPE string VALUE ''pull'',
stage TYPE string VALUE ''stage'',
END OF c_action .
DATA mt_features TYPE zif_abapgit_gui_page_flow=>ty_features .
METHODS refresh
RAISING
zcx_abapgit_exception .
METHODS set_branch
IMPORTING
!iv_branch TYPE string
!iv_key TYPE zif_abapgit_persistence=>ty_value
RAISING
zcx_abapgit_exception .
METHODS render_table
IMPORTING
!is_feature TYPE zif_abapgit_gui_page_flow=>ty_feature
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html .
METHODS render_toolbar
IMPORTING
!iv_index TYPE i
!is_feature TYPE zif_abapgit_gui_page_flow=>ty_feature
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html .
ENDCLASS.
CLASS ZCL_ABAPGIT_GUI_PAGE_FLOW IMPLEMENTATION.
METHOD constructor.
super->constructor( ).
ENDMETHOD.
METHOD create.
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_flow.
CREATE OBJECT lo_component.
ri_page = zcl_abapgit_gui_page_hoc=>create(
iv_page_title = ''Flow''
ii_page_menu_provider = lo_component
ii_child_component = lo_component ).
ENDMETHOD.
METHOD refresh.
DATA ls_feature LIKE LINE OF mt_features.
DATA lo_online TYPE REF TO zcl_abapgit_repo_online.
LOOP AT mt_features INTO ls_feature.
lo_online ?= zcl_abapgit_repo_srv=>get_instance( )->get( ls_feature-repo-key ).
lo_online->refresh( ).
ENDLOOP.
CLEAR mt_features.
ENDMETHOD.
METHOD render_table.
DATA ls_path_name LIKE LINE OF is_feature-changed_files.
DATA lv_status TYPE string.
DATA lv_branch TYPE string.
DATA lv_param TYPE string.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( |<table>| ).
ri_html->add( |<tr><td><u>Filename</u></td><td><u>Remote</u></td><td><u>Local</u></td><td></td></tr>| ).
lv_branch = is_feature-branch-display_name.
IF lv_branch IS INITIAL.
lv_branch = ''main''.
ENDIF.
LOOP AT is_feature-changed_files INTO ls_path_name.
IF ls_path_name-remote_sha1 = ls_path_name-local_sha1.
lv_status = ''Match''.
ELSE.
ASSERT is_feature-repo-key IS NOT INITIAL.
lv_param = zcl_abapgit_html_action_utils=>file_encode(
iv_key = is_feature-repo-key
ig_file = ls_path_name
iv_extra = lv_branch ).
lv_status = ri_html->a(
iv_txt = ''Diff''
iv_act = |{ zif_abapgit_definitions=>c_action-go_file_diff }?{ lv_param }| ).
ENDIF.
ri_html->add( |<tr><td><tt>{ ls_path_name-path }{ ls_path_name-filename }</tt></td><td>{
ls_path_name-remote_sha1(7) }</td><td>{
ls_path_name-local_sha1(7) }</td><td>{ lv_status }</td></tr>| ).
ENDLOOP.
ri_html->add( |</table>| ).
ENDMETHOD.
METHOD render_toolbar.
DATA lo_toolbar TYPE REF TO zcl_abapgit_html_toolbar.
DATA lv_extra TYPE string.
* todo: crossout pull if write protected
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
CREATE OBJECT lo_toolbar EXPORTING iv_id = ''toolbar-flow''.
IF is_feature-full_match = abap_false.
lv_extra = |?index={ iv_index }&key={ is_feature-repo-key }&branch={ is_feature-branch-display_name }|.
lo_toolbar->add( iv_txt = ''Pull''
iv_act = |{ c_action-pull }{ lv_extra }|
iv_opt = zif_abapgit_html=>c_html_opt-strong ).
lo_toolbar->add( iv_txt = ''Stage''
iv_act = |{ c_action-stage }{ lv_extra }|
iv_opt = zif_abapgit_html=>c_html_opt-strong ).
ENDIF.
zcl_abapgit_flow_exit=>get_instance( )->toolbar_extras(
io_toolbar = lo_toolbar
iv_index = iv_index
is_feature = is_feature ).
ri_html->add( lo_toolbar->render( ) ).
ENDMETHOD.
METHOD set_branch.
DATA lv_branch TYPE string.
DATA lo_online TYPE REF TO zcl_abapgit_repo_online.
IF iv_branch IS NOT INITIAL.
lv_branch = ''refs/heads/'' && iv_branch.
lo_online ?= zcl_abapgit_repo_srv=>get_instance( )->get( iv_key ).
IF lo_online->get_selected_branch( ) <> lv_branch.
lo_online->select_branch( lv_branch ).
ENDIF.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
DATA lv_key TYPE zif_abapgit_persistence=>ty_value.
DATA lv_branch TYPE string.
DATA lo_filter TYPE REF TO lcl_filter.
DATA lt_filter TYPE zif_abapgit_definitions=>ty_tadir_tt.
DATA lv_index TYPE i.
DATA lo_online TYPE REF TO zcl_abapgit_repo_online.
DATA ls_feature LIKE LINE OF mt_features.
DATA ls_event_result TYPE zif_abapgit_flow_exit=>ty_event_result.
FIELD-SYMBOLS <ls_object> LIKE LINE OF ls_feature-changed_objects.
FIELD-SYMBOLS <ls_filter> LIKE LINE OF lt_filter.
CASE ii_event->mv_action.
WHEN c_action-refresh.
refresh( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN zif_abapgit_definitions=>c_action-go_file_diff.
lv_key = ii_event->query( )->get( ''KEY'' ).
lv_branch = ii_event->query( )->get( ''EXTRA'' ).
set_branch(
iv_branch = lv_branch
iv_key = lv_key ).
* calling the page is done by the global router
WHEN c_action-stage.
lv_key = ii_event->query( )->get( ''KEY'' ).
lv_index = ii_event->query( )->get( ''INDEX'' ).
lv_branch = ii_event->query( )->get( ''BRANCH'' ).
lo_online ?= zcl_abapgit_repo_srv=>get_instance( )->get( lv_key ).
READ TABLE mt_features INTO ls_feature INDEX lv_index.
ASSERT sy-subrc = 0.
LOOP AT ls_feature-changed_objects ASSIGNING <ls_object>.
APPEND INITIAL LINE TO lt_filter ASSIGNING <ls_filter>.
<ls_filter>-object = <ls_object>-obj_type.
<ls_filter>-obj_name = <ls_object>-obj_name.
ENDLOOP.
CREATE OBJECT lo_filter EXPORTING it_filter = lt_filter.
set_branch(
iv_branch = lv_branch
iv_key = lv_key ).
rs_handled-page = zcl_abapgit_gui_page_stage=>create(
ii_force_refresh = abap_false
io_repo = lo_online
ii_obj_filter = lo_filter ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page_w_bookmark.
refresh( ).
WHEN c_action-pull.
lv_key = ii_event->query( )->get( ''KEY'' ).
lv_index = ii_event->query( )->get( ''INDEX'' ).
lv_branch = ii_event->query( )->get( ''BRANCH'' ).
lo_online ?= zcl_abapgit_repo_srv=>get_instance( )->get( lv_key ).
READ TABLE mt_features INTO ls_feature INDEX lv_index.
ASSERT sy-subrc = 0.
LOOP AT ls_feature-changed_objects ASSIGNING <ls_object>.
APPEND INITIAL LINE TO lt_filter ASSIGNING <ls_filter>.
<ls_filter>-object = <ls_object>-obj_type.
<ls_filter>-obj_name = <ls_object>-obj_name.
ENDLOOP.
CREATE OBJECT lo_filter EXPORTING it_filter = lt_filter.
set_branch(
iv_branch = lv_branch
iv_key = lv_key ).
rs_handled-page = zcl_abapgit_gui_page_pull=>create(
io_repo = lo_online
iv_trkorr = ls_feature-transport-trkorr
ii_obj_filter = lo_filter ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
refresh( ).
WHEN OTHERS.
ls_event_result = zcl_abapgit_flow_exit=>get_instance( )->on_event(
ii_event = ii_event
it_features = mt_features ).
rs_handled = ls_event_result-handled.
IF ls_event_result-refresh = abap_true.
refresh( ).
ENDIF.
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_gui_menu_provider~get_menu.
CREATE OBJECT ro_toolbar EXPORTING iv_id = ''toolbar-main''.
ro_toolbar->add(
iv_txt = ''Refresh''
iv_act = c_action-refresh ).
ro_toolbar->add(
iv_txt = zcl_abapgit_gui_buttons=>repo_list( )
iv_act = zif_abapgit_definitions=>c_action-abapgit_home ).
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
DATA ls_feature LIKE LINE OF mt_features.
DATA lv_index TYPE i.
DATA lv_rendered TYPE abap_bool.
register_handlers( ).
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<div class="repo-overview">'' ).
IF mt_features IS INITIAL.
mt_features = lcl_helper=>get_information( ).
ENDIF.
LOOP AT mt_features INTO ls_feature.
lv_index = sy-tabix.
IF lines( ls_feature-changed_files ) = 0.
* no changes, eg. only files outside of starting folder changed
CONTINUE.
ENDIF.
lv_rendered = abap_true.
ri_html->add( ''<b><font size="+2">'' && ls_feature-repo-name ).
IF ls_feature-branch-display_name IS NOT INITIAL.
ri_html->add( | - | ).
ri_html->add_icon( ''code-branch'' ).
ri_html->add( ls_feature-branch-display_name ).
ENDIF.
IF ls_feature-transport-trkorr IS NOT INITIAL.
ri_html->add( | - | ).
ri_html->add_icon( ''truck-solid'' ).
ri_html->add( |<tt>{ ls_feature-transport-trkorr }</tt>| ).
ENDIF.
ri_html->add( |</font></b><br>| ).
IF ls_feature-branch-display_name IS INITIAL.
ri_html->add( |No branch found, comparing with <tt>main</tt>| ).
ELSEIF ls_feature-pr IS NOT INITIAL.
ri_html->add_a(
iv_txt = ls_feature-pr-title
iv_act = |{ zif_abapgit_definitions=>c_action-url }?url={ ls_feature-pr-url }|
iv_class = |url| ).
IF ls_feature-pr-draft = abap_true.
ri_html->add( ''DRAFT'' ).
ENDIF.
ELSE.
ri_html->add( |No PR found| ).
ENDIF.
ri_html->add( |<br>| ).
IF ls_feature-transport IS NOT INITIAL.
ri_html->add( |<tt>{ ls_feature-transport-trkorr }</tt> - { ls_feature-transport-title }<br>| ).
ELSE.
ri_html->add( |No corresponding transport found<br>| ).
ENDIF.
IF ls_feature-branch IS NOT INITIAL AND ls_feature-branch-up_to_date = abap_false.
ri_html->add( ''<b>Branch not up to date</b><br><br>'' ).
CONTINUE.
ENDIF.
ri_html->add( render_toolbar(
iv_index = lv_index
is_feature = ls_feature ) ).
IF ls_feature-full_match = abap_true.
ri_html->add( |Full Match<br>| ).
ELSE.
ri_html->add( render_table( ls_feature ) ).
ENDIF.
* todo LOOP AT ls_feature-changed_objects INTO ls_item.
* todo ri_html->add( |<tt><small>{ ls_item-obj_type } { ls_item-obj_name }</small></tt><br>| ).
* todo ENDLOOP.
ri_html->add( ''<br>'' ).
ENDLOOP.
IF lines( mt_features ) = 0 OR lv_rendered = abap_false.
ri_html->add( ''Empty, repositories must be favorite + flow enabled<br><br>'' ).
ri_html->add( ''Or nothing in progress<br><br>'' ).
ri_html->add_a(
iv_txt = ''abapGit flow documentation''
iv_act = |{ zif_abapgit_definitions=>c_action-url
}?url=https://docs.abapgit.org/user-guide/reference/flow.html|
iv_class = |url| ).
ENDIF.
ri_html->add( ''</div>'' ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_FLOW_EXIT ', 'INTERFACE zif_abapgit_flow_exit
PUBLIC .
METHODS toolbar_extras
IMPORTING
!io_toolbar TYPE REF TO zcl_abapgit_html_toolbar
!is_feature TYPE zif_abapgit_gui_page_flow=>ty_feature
!iv_index TYPE i .
TYPES: BEGIN OF ty_event_result,
handled TYPE zif_abapgit_gui_event_handler=>ty_handling_result,
refresh TYPE abap_bool,
END OF ty_event_result.
METHODS on_event
IMPORTING
ii_event TYPE REF TO zif_abapgit_gui_event
it_features TYPE zif_abapgit_gui_page_flow=>ty_features
RETURNING
VALUE(rs_result) TYPE ty_event_result
RAISING
zcx_abapgit_exception.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_GUI_PAGE_FLOW ', 'INTERFACE zif_abapgit_gui_page_flow
PUBLIC .
TYPES:
BEGIN OF ty_path_name,
path TYPE string,
filename TYPE string,
remote_sha1 TYPE zif_abapgit_git_definitions=>ty_sha1,
local_sha1 TYPE zif_abapgit_git_definitions=>ty_sha1,
END OF ty_path_name.
TYPES:
ty_path_name_tt TYPE HASHED TABLE OF ty_path_name WITH UNIQUE KEY path filename.
TYPES: BEGIN OF ty_feature,
BEGIN OF repo,
name TYPE string,
key TYPE zif_abapgit_persistence=>ty_repo-key,
package TYPE devclass,
END OF repo,
BEGIN OF branch,
display_name TYPE string,
sha1 TYPE zif_abapgit_git_definitions=>ty_sha1,
up_to_date TYPE abap_bool,
END OF branch,
BEGIN OF pr,
title TYPE string,
url TYPE string,
draft TYPE abap_bool,
END OF pr,
BEGIN OF transport,
trkorr TYPE trkorr,
title TYPE string,
END OF transport,
full_match TYPE abap_bool,
changed_files TYPE ty_path_name_tt,
changed_objects TYPE zif_abapgit_definitions=>ty_items_ts,
END OF ty_feature.
TYPES ty_features TYPE STANDARD TABLE OF ty_feature WITH DEFAULT KEY.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_EXCEPTION_VIEWER ', 'CLASS zcl_abapgit_exception_viewer DEFINITION
PUBLIC
CREATE PUBLIC.
PUBLIC SECTION.
METHODS:
constructor
IMPORTING
ix_error TYPE REF TO zcx_abapgit_exception,
goto_source
RAISING
zcx_abapgit_exception,
goto_message
RAISING
zcx_abapgit_exception,
show_callstack
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
DATA:
mx_error TYPE REF TO zcx_abapgit_exception,
mt_callstack TYPE abap_callstack.
METHODS:
build_top_of_list
IMPORTING
is_top_of_stack TYPE abap_callstack_line
RETURNING
VALUE(ro_form) TYPE REF TO cl_salv_form_element,
add_row
IMPORTING
io_grid TYPE REF TO cl_salv_form_layout_grid
iv_col_1 TYPE csequence
iv_col_2 TYPE csequence,
on_double_click FOR EVENT double_click OF cl_salv_events_table
IMPORTING
row column,
set_text
IMPORTING
io_columns TYPE REF TO cl_salv_columns_table
iv_column TYPE lvc_fname
iv_text TYPE string
RAISING
cx_static_check,
goto_source_code
IMPORTING
is_callstack TYPE abap_callstack_line
RAISING
zcx_abapgit_exception,
extract_classname
IMPORTING
iv_mainprogram TYPE abap_callstack_line-mainprogram
RETURNING
VALUE(rv_classname) TYPE tadir-obj_name,
get_top_of_callstack
RETURNING
VALUE(rs_top_of_callstack) TYPE abap_callstack_line
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_exception_viewer IMPLEMENTATION.
METHOD add_row.
DATA: lo_row TYPE REF TO cl_salv_form_layout_flow.
lo_row = io_grid->add_row( ).
lo_row->create_label( position = 1
text = iv_col_1 ).
lo_row->create_label( position = 2
text = iv_col_2 ).
ENDMETHOD.
METHOD build_top_of_list.
DATA: lo_grid TYPE REF TO cl_salv_form_layout_grid.
CREATE OBJECT lo_grid
EXPORTING
columns = 2.
add_row( io_grid = lo_grid
iv_col_1 = ''Main program:''
iv_col_2 = is_top_of_stack-mainprogram ).
add_row( io_grid = lo_grid
iv_col_1 = ''Include name:''
iv_col_2 = is_top_of_stack-include ).
add_row( io_grid = lo_grid
iv_col_1 = ''Source line''
iv_col_2 = |{ is_top_of_stack-line }| ).
ro_form = lo_grid.
ENDMETHOD.
METHOD constructor.
mx_error = ix_error.
mt_callstack = mx_error->mt_callstack.
ENDMETHOD.
METHOD extract_classname.
rv_classname = substring_before( val = iv_mainprogram
regex = ''=*CP$'' ).
ENDMETHOD.
METHOD get_top_of_callstack.
READ TABLE mt_callstack INDEX 1
INTO rs_top_of_callstack.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Callstack is empty| ).
ENDIF.
ENDMETHOD.
METHOD goto_message.
DATA: lt_bdcdata TYPE STANDARD TABLE OF bdcdata,
ls_bdcdata LIKE LINE OF lt_bdcdata.
ls_bdcdata-program = ''SAPLWBMESSAGES''.
ls_bdcdata-dynpro = ''0100''.
ls_bdcdata-dynbegin = abap_true.
INSERT ls_bdcdata INTO TABLE lt_bdcdata.
CLEAR: ls_bdcdata.
ls_bdcdata-fnam = ''RSDAG-ARBGB''.
ls_bdcdata-fval = mx_error->if_t100_message~t100key-msgid.
INSERT ls_bdcdata INTO TABLE lt_bdcdata.
CLEAR: ls_bdcdata.
ls_bdcdata-fnam = ''MSG_NUMMER''.
ls_bdcdata-fval = mx_error->if_t100_message~t100key-msgno.
INSERT ls_bdcdata INTO TABLE lt_bdcdata.
CLEAR: ls_bdcdata.
ls_bdcdata-fnam = ''RSDAG-MSGFLAG''.
ls_bdcdata-fval = ''X''.
INSERT ls_bdcdata INTO TABLE lt_bdcdata.
CLEAR: ls_bdcdata.
ls_bdcdata-fnam = ''BDC_OKCODE''.
ls_bdcdata-fval = ''=WB_DISPLAY''.
INSERT ls_bdcdata INTO TABLE lt_bdcdata.
CALL FUNCTION ''ABAP4_CALL_TRANSACTION''
STARTING NEW TASK ''GIT''
EXPORTING
tcode = ''SE91''
mode_val = ''E''
TABLES
using_tab = lt_bdcdata
EXCEPTIONS
call_transaction_denied = 1
tcode_invalid = 2
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
METHOD goto_source.
goto_source_code( get_top_of_callstack( ) ).
ENDMETHOD.
METHOD goto_source_code.
CONSTANTS:
BEGIN OF lc_obj_type,
class TYPE trobjtype VALUE \`CLAS\`,
program TYPE trobjtype VALUE \`PROG\`,
END OF lc_obj_type.
DATA:
ls_item TYPE zif_abapgit_definitions=>ty_item,
ls_sub_item TYPE zif_abapgit_definitions=>ty_item,
lv_classname LIKE ls_item-obj_name.
" you should remember that we distinct two cases
" 1) we navigate to a global class
" 2) we navigate to a program
" the latter one is the default case
lv_classname = extract_classname( is_callstack-mainprogram ).
IF lv_classname IS NOT INITIAL.
ls_item-obj_name = lv_classname.
ls_item-obj_type = lc_obj_type-class.
ELSE.
ls_item-obj_name = is_callstack-mainprogram.
ls_item-obj_type = lc_obj_type-program.
ENDIF.
ls_sub_item-obj_name = is_callstack-include.
ls_sub_item-obj_type = lc_obj_type-program.
zcl_abapgit_objects=>jump(
is_item = ls_item
is_sub_item = ls_sub_item
iv_line_number = is_callstack-line ).
ENDMETHOD.
METHOD on_double_click.
DATA: lx_error TYPE REF TO zcx_abapgit_exception.
FIELD-SYMBOLS: <ls_callstack> TYPE abap_callstack_line.
READ TABLE mt_callstack ASSIGNING <ls_callstack>
INDEX row.
IF sy-subrc <> 0.
RETURN.
ENDIF.
TRY.
goto_source_code( <ls_callstack> ).
CATCH zcx_abapgit_exception INTO lx_error.
MESSAGE lx_error TYPE ''S'' DISPLAY LIKE ''E''.
ENDTRY.
ENDMETHOD.
METHOD set_text.
DATA: lo_column TYPE REF TO cl_salv_column,
lv_short_text TYPE scrtext_s,
lv_medium_text TYPE scrtext_m,
lv_long_text TYPE scrtext_l.
lo_column = io_columns->get_column( iv_column ).
lv_short_text = iv_text.
lv_medium_text = iv_text.
lv_long_text = iv_text.
lo_column->set_short_text( lv_short_text ).
lo_column->set_medium_text( lv_medium_text ).
lo_column->set_long_text( lv_long_text ).
ENDMETHOD.
METHOD show_callstack.
DATA: lx_error TYPE REF TO cx_static_check,
lo_event TYPE REF TO cl_salv_events_table,
lo_columns TYPE REF TO cl_salv_columns_table,
lo_alv TYPE REF TO cl_salv_table.
DATA ls_position TYPE zif_abapgit_popups=>ty_popup_position.
TRY.
cl_salv_table=>factory(
IMPORTING
r_salv_table = lo_alv
CHANGING
t_table = mt_callstack ).
lo_alv->get_columns( )->set_optimize( ).
lo_alv->set_top_of_list( build_top_of_list( get_top_of_callstack( ) ) ).
ls_position = zcl_abapgit_popups=>center(
iv_width = 150
iv_height = 25 ).
lo_alv->set_screen_popup( start_column = ls_position-start_column
end_column = ls_position-end_column
start_line = ls_position-start_row
end_line = ls_position-end_row ).
lo_event = lo_alv->get_event( ).
lo_columns = lo_alv->get_columns( ).
set_text( io_columns = lo_columns
iv_column = |LINE|
iv_text = |Line| ).
set_text( io_columns = lo_columns
iv_column = |LINE|
iv_text = |Line| ).
set_text( io_columns = lo_columns
iv_column = |BLOCKTYPE|
iv_text = |Event Type| ).
set_text( io_columns = lo_columns
iv_column = |BLOCKNAME|
iv_text = |Event| ).
set_text( io_columns = lo_columns
iv_column = |FLAG_SYSTEM|
iv_text = |System| ).
SET HANDLER on_double_click FOR lo_event.
lo_alv->display( ).
CATCH cx_static_check INTO lx_error.
MESSAGE lx_error TYPE ''S'' DISPLAY LIKE ''E''.
ENDTRY.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_BUTTONS ', 'CLASS zcl_abapgit_gui_buttons DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS new_online
RETURNING VALUE(rv_html_string) TYPE string.
CLASS-METHODS flow
RETURNING VALUE(rv_html_string) TYPE string.
CLASS-METHODS new_offline
RETURNING VALUE(rv_html_string) TYPE string.
CLASS-METHODS advanced
RETURNING VALUE(rv_html_string) TYPE string.
CLASS-METHODS help
RETURNING VALUE(rv_html_string) TYPE string.
CLASS-METHODS repo_list
RETURNING VALUE(rv_html_string) TYPE string.
CLASS-METHODS settings
RETURNING VALUE(rv_html_string) TYPE string.
CLASS-METHODS experimental
RETURNING VALUE(rv_html_string) TYPE string.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_gui_buttons IMPLEMENTATION.
METHOD advanced.
rv_html_string = zcl_abapgit_html=>icon(
iv_name = ''tools-solid''
iv_hint = ''Utilities'' ).
ENDMETHOD.
METHOD experimental.
rv_html_string = zcl_abapgit_html=>icon(
iv_name = ''vial-solid/red''
iv_hint = ''Experimental Features are Enabled'' ).
ENDMETHOD.
METHOD help.
rv_html_string = zcl_abapgit_html=>icon(
iv_name = ''question-circle-solid''
iv_hint = ''Help'' ).
ENDMETHOD.
METHOD new_offline.
rv_html_string = zcl_abapgit_html=>icon( ''plug'' ) && '' New Offline''.
ENDMETHOD.
METHOD new_online.
rv_html_string = zcl_abapgit_html=>icon( ''cloud-upload-alt'' ) && '' New Online''.
ENDMETHOD.
METHOD flow.
rv_html_string = zcl_abapgit_html=>icon( ''flow'' ) && '' Flow''.
ENDMETHOD.
METHOD repo_list.
rv_html_string = zcl_abapgit_html=>icon( ''bars'' ) && '' Repository List''.
ENDMETHOD.
METHOD settings.
rv_html_string = zcl_abapgit_html=>icon( ''cog'' ) && '' Global Settings''.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_CHUNK_LIB ', 'CLASS zcl_abapgit_gui_chunk_lib DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
TYPES:
BEGIN OF ty_event_signature,
method TYPE string,
name TYPE string,
END OF ty_event_signature .
CLASS-METHODS class_constructor .
CLASS-METHODS render_error
IMPORTING
!ix_error TYPE REF TO zcx_abapgit_exception OPTIONAL
!iv_error TYPE string OPTIONAL
!iv_extra_style TYPE string OPTIONAL
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html .
CLASS-METHODS render_success
IMPORTING
iv_message TYPE string
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html .
CLASS-METHODS render_repo_top
IMPORTING
!io_repo TYPE REF TO zcl_abapgit_repo
!iv_show_package TYPE abap_bool DEFAULT abap_true
!iv_show_branch TYPE abap_bool DEFAULT abap_true
!iv_show_commit TYPE abap_bool DEFAULT abap_true
!iv_show_edit TYPE abap_bool DEFAULT abap_false
!iv_interactive_branch TYPE abap_bool DEFAULT abap_false
!io_news TYPE REF TO zcl_abapgit_repo_news OPTIONAL
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
CLASS-METHODS render_item_state
IMPORTING
!iv_lstate TYPE char1
!iv_rstate TYPE char1
RETURNING
VALUE(rv_html) TYPE string .
CLASS-METHODS render_js_error_banner
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
CLASS-METHODS render_news
IMPORTING
!io_news TYPE REF TO zcl_abapgit_repo_news
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
CLASS-METHODS render_error_message_box
IMPORTING
!ix_error TYPE REF TO zcx_abapgit_exception
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html .
CLASS-METHODS render_table_header
IMPORTING
!it_col_spec TYPE zif_abapgit_definitions=>ty_col_spec_tt
!iv_order_by TYPE string
!iv_order_descending TYPE abap_bool
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html .
CLASS-METHODS render_table_footer
IMPORTING
!iv_message TYPE string
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html .
CLASS-METHODS render_warning_banner
IMPORTING
!iv_text TYPE string
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html .
CLASS-METHODS render_infopanel
IMPORTING
!iv_div_id TYPE string
!iv_title TYPE string
!iv_hide TYPE abap_bool DEFAULT abap_true
!iv_hint TYPE string OPTIONAL
!iv_scrollable TYPE abap_bool DEFAULT abap_true
!io_content TYPE REF TO zif_abapgit_html
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
CLASS-METHODS render_event_as_form
IMPORTING
!is_event TYPE ty_event_signature
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html .
CLASS-METHODS render_repo_palette
IMPORTING
iv_action TYPE string
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
CLASS-METHODS render_branch_name
IMPORTING
!iv_branch TYPE string OPTIONAL
!iv_repo_key TYPE zif_abapgit_persistence=>ty_value OPTIONAL
!io_repo TYPE REF TO zcl_abapgit_repo_online OPTIONAL
!iv_interactive TYPE abap_bool DEFAULT abap_true
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
CLASS-METHODS render_repo_url
IMPORTING
iv_url TYPE zif_abapgit_persistence=>ty_repo-url
iv_render_remote_edit_for_key TYPE zif_abapgit_persistence=>ty_repo-key OPTIONAL
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
CLASS-METHODS render_package_name
IMPORTING
!iv_package TYPE devclass
!iv_interactive TYPE abap_bool DEFAULT abap_true
!iv_suppress_title TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
CLASS-METHODS render_user_name
IMPORTING
!iv_username TYPE syuname
!iv_interactive TYPE abap_bool DEFAULT abap_true
!iv_icon_only TYPE abap_bool DEFAULT abap_false
!iv_suppress_title TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
CLASS-METHODS render_transport
IMPORTING
!iv_transport TYPE trkorr
!iv_interactive TYPE abap_bool DEFAULT abap_true
!iv_icon_only TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
CLASS-METHODS render_sci_result
IMPORTING
ii_html TYPE REF TO zif_abapgit_html
iv_sci_result TYPE zif_abapgit_definitions=>ty_sci_result.
CLASS-METHODS render_path
IMPORTING
!iv_path TYPE string
!iv_interactive TYPE abap_bool DEFAULT abap_true
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
CLASS-METHODS render_timestamp
IMPORTING
iv_timestamp TYPE timestampl
RETURNING
VALUE(rv_rendered) TYPE string.
CLASS-METHODS render_text_input
IMPORTING
iv_name TYPE string
iv_label TYPE string
iv_value TYPE string OPTIONAL
iv_max_length TYPE string OPTIONAL
iv_autofocus TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html.
CLASS-METHODS render_label_list
IMPORTING
it_labels TYPE string_table
io_label_colors TYPE REF TO zcl_abapgit_string_map
iv_clickable_action TYPE string OPTIONAL
iv_unlisted TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(rv_html) TYPE string.
CLASS-METHODS render_help_hint
IMPORTING
iv_text_to_wrap TYPE string
iv_add_class TYPE string OPTIONAL
RETURNING
VALUE(rv_html) TYPE string.
CLASS-METHODS get_item_icon
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_repo_item
RETURNING
VALUE(rv_html) TYPE string.
CLASS-METHODS get_item_link
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_repo_item OPTIONAL
!iv_obj_type TYPE zif_abapgit_definitions=>ty_repo_item-obj_type OPTIONAL
!iv_obj_name TYPE zif_abapgit_definitions=>ty_repo_item-obj_name OPTIONAL
PREFERRED PARAMETER is_item
RETURNING
VALUE(rv_html) TYPE string.
PROTECTED SECTION.
CLASS-METHODS render_repo_top_commit_hash
IMPORTING
!ii_html TYPE REF TO zif_abapgit_html
!io_repo_online TYPE REF TO zcl_abapgit_repo_online
RAISING
zcx_abapgit_exception .
PRIVATE SECTION.
CLASS-DATA gv_time_zone TYPE timezone .
CLASS-METHODS get_t100_text
IMPORTING
!iv_msgid TYPE scx_t100key-msgid
!iv_msgno TYPE scx_t100key-msgno
RETURNING
VALUE(rv_text) TYPE string .
CLASS-METHODS normalize_program_name
IMPORTING
!iv_program_name TYPE sy-repid
RETURNING
VALUE(rv_normalized_program_name) TYPE string .
CLASS-METHODS shorten_repo_url
IMPORTING
iv_full_url TYPE string
iv_max_length TYPE i DEFAULT 60
RETURNING
VALUE(rv_shortened) TYPE string.
ENDCLASS.
CLASS ZCL_ABAPGIT_GUI_CHUNK_LIB IMPLEMENTATION.
METHOD class_constructor.
DATA lv_fm TYPE string.
lv_fm = ''GET_SYSTEM_TIMEZONE''.
TRY.
CALL METHOD (''CL_ABAP_TSTMP'')=>get_system_timezone
RECEIVING
system_timezone = gv_time_zone.
CATCH cx_sy_dyn_call_illegal_method.
CALL FUNCTION lv_fm
IMPORTING
timezone = gv_time_zone
EXCEPTIONS
customizing_missing = 1
OTHERS = 2.
ENDTRY.
ENDMETHOD.
METHOD get_item_icon.
CASE is_item-obj_type.
WHEN ''PROG'' OR ''CLAS'' OR ''FUGR'' OR ''INTF'' OR ''TYPE''.
rv_html = zcl_abapgit_html=>icon( iv_name = ''file-code/darkgrey''
iv_hint = ''Code'' ).
WHEN ''W3MI'' OR ''W3HT'' OR ''SFPF''.
rv_html = zcl_abapgit_html=>icon( iv_name = ''file-image/darkgrey''
iv_hint = ''Binary'' ).
WHEN ''DEVC''.
rv_html = zcl_abapgit_html=>icon( iv_name = ''box/darkgrey''
iv_hint = ''Package'' ).
WHEN ''''.
rv_html = space. " no icon
WHEN OTHERS.
rv_html = zcl_abapgit_html=>icon( ''file-alt/darkgrey'' ).
ENDCASE.
IF is_item-is_dir = abap_true.
rv_html = zcl_abapgit_html=>icon( iv_name = ''folder/darkgrey''
iv_hint = ''Folder'' ).
ENDIF.
ENDMETHOD.
METHOD get_item_link.
DATA lv_encode TYPE string.
DATA li_html TYPE REF TO zif_abapgit_html.
DATA ls_item LIKE is_item.
IF is_item IS INITIAL.
ls_item-obj_type = iv_obj_type.
ls_item-obj_name = iv_obj_name.
ELSE.
ls_item = is_item.
ENDIF.
CREATE OBJECT li_html TYPE zcl_abapgit_html.
lv_encode = zcl_abapgit_html_action_utils=>jump_encode(
iv_obj_type = ls_item-obj_type
iv_obj_name = ls_item-obj_name ).
rv_html = li_html->a(
iv_txt = |{ ls_item-obj_name }|
iv_act = |{ zif_abapgit_definitions=>c_action-jump }?{ lv_encode }| ).
ENDMETHOD.
METHOD get_t100_text.
MESSAGE ID iv_msgid TYPE ''S'' NUMBER iv_msgno WITH ''&1'' ''&2'' ''&3'' ''&4'' INTO rv_text.
" Don''t return any generic messages like \`&1 &2 &3 &4\`
IF rv_text CO '' 0123456789&''.
CLEAR rv_text.
ENDIF.
ENDMETHOD.
METHOD normalize_program_name.
rv_normalized_program_name = substring_before(
val = iv_program_name
regex = \`(=+CP)?$\` ).
ENDMETHOD.
METHOD render_branch_name.
DATA:
lv_key TYPE string,
lv_branch TYPE string,
lv_selected_commit TYPE string,
lv_commit_short_sha TYPE string,
lv_text TYPE string,
lv_icon TYPE string,
lv_hint TYPE string,
lv_class TYPE string.
IF iv_repo_key IS NOT INITIAL.
lv_key = iv_repo_key.
ELSEIF io_repo IS BOUND.
lv_key = io_repo->get_key( ).
ELSE.
zcx_abapgit_exception=>raise( ''Either iv_repo_key or io_repo must be supplied'' ).
ENDIF.
IF iv_branch IS NOT INITIAL.
lv_branch = iv_branch.
lv_text = zcl_abapgit_git_branch_list=>get_display_name( lv_branch ).
ELSEIF io_repo IS BOUND.
lv_selected_commit = io_repo->get_selected_commit( ).
IF lv_selected_commit IS NOT INITIAL.
"Convert to short commit. Example: (ae623b9...)
lv_commit_short_sha = lv_selected_commit+0(7).
lv_text = |({ lv_commit_short_sha }...)|.
ELSE.
lv_branch = io_repo->get_selected_branch( ).
lv_text = zcl_abapgit_git_branch_list=>get_display_name( lv_branch ).
ENDIF.
ELSE.
zcx_abapgit_exception=>raise( ''Either iv_branch or io_repo must be supplied'' ).
ENDIF.
CASE zcl_abapgit_git_branch_list=>get_type( lv_branch ).
WHEN zif_abapgit_git_definitions=>c_git_branch_type-branch.
lv_class = ''branch branch_branch''.
lv_icon = ''code-branch/grey70''.
lv_hint = ''Current branch''.
WHEN zif_abapgit_git_definitions=>c_git_branch_type-annotated_tag
OR zif_abapgit_git_definitions=>c_git_branch_type-lightweight_tag.
lv_class = ''branch''.
lv_icon = ''tag-solid/grey70''.
lv_hint = ''Current tag''.
WHEN OTHERS.
lv_class = ''branch branch_branch''.
lv_icon = ''code-branch/grey70''.
lv_hint = ''Current commit''.
ENDCASE.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( |<span class="{ lv_class }">| ).
ri_html->add_icon( iv_name = lv_icon
iv_hint = lv_hint ).
IF iv_interactive = abap_true.
ri_html->add_a( iv_act = |{ zif_abapgit_definitions=>c_action-git_branch_switch }?key={ lv_key }|
iv_txt = lv_text ).
ELSE.
ri_html->add( lv_text ).
ENDIF.
ri_html->add( ''</span>'' ).
ENDMETHOD.
METHOD render_error.
DATA lv_error TYPE string.
DATA lv_class TYPE string VALUE ''panel error center''.
IF iv_extra_style IS NOT INITIAL.
lv_class = lv_class && \` \` && iv_extra_style.
ENDIF.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
IF ix_error IS BOUND.
lv_error = ix_error->get_text( ).
ELSE.
lv_error = iv_error.
ENDIF.
ri_html->add( |<div class="{ lv_class }">| ).
ri_html->add( |{ ri_html->icon( ''exclamation-circle/red'' ) } { lv_error }| ).
ri_html->add( ''</div>'' ).
ENDMETHOD.
METHOD render_error_message_box.
DATA:
lv_error_text TYPE string,
lv_longtext TYPE string,
lt_longtext_paragraphs TYPE string_table,
lv_program_name TYPE sy-repid,
lv_title TYPE string,
lv_text TYPE string.
FIELD-SYMBOLS:
<lv_longtext_paragraph> TYPE string.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
lv_error_text = ix_error->get_text( ).
lv_longtext = ix_error->if_message~get_longtext( abap_true ).
IF lv_longtext IS NOT INITIAL.
lv_error_text = |{ lv_error_text } <span class="emphasis">More...</span>|.
REPLACE FIRST OCCURRENCE OF REGEX
|({ zcx_abapgit_exception=>c_section_text-cause }{ cl_abap_char_utilities=>newline })|
IN lv_longtext WITH |<h3>$1</h3>|.
REPLACE FIRST OCCURRENCE OF REGEX
|({ zcx_abapgit_exception=>c_section_text-system_response }{ cl_abap_char_utilities=>newline })|
IN lv_longtext WITH |<h3>$1</h3>|.
REPLACE FIRST OCCURRENCE OF REGEX
|({ zcx_abapgit_exception=>c_section_text-what_to_do }{ cl_abap_char_utilities=>newline })|
IN lv_longtext WITH |<h3>$1</h3>|.
REPLACE FIRST OCCURRENCE OF REGEX
|({ zcx_abapgit_exception=>c_section_text-sys_admin }{ cl_abap_char_utilities=>newline })|
IN lv_longtext WITH |<h3>$1</h3>|.
REPLACE ALL OCCURRENCES OF cl_abap_char_utilities=>cr_lf
IN lv_longtext
WITH cl_abap_char_utilities=>newline.
SPLIT lv_longtext AT cl_abap_char_utilities=>newline INTO TABLE lt_longtext_paragraphs.
CLEAR lv_longtext.
LOOP AT lt_longtext_paragraphs ASSIGNING <lv_longtext_paragraph>.
CONDENSE <lv_longtext_paragraph>.
IF <lv_longtext_paragraph> IS INITIAL.
CONTINUE.
ENDIF.
lv_longtext = |{ lv_longtext }<p>{ <lv_longtext_paragraph> }</p>{ cl_abap_char_utilities=>newline }|.
ENDLOOP.
lv_longtext = |{ lv_longtext }<br>|.
ENDIF.
ri_html->add( |<div id="message" class="message-panel">| ).
ri_html->add( |{ ri_html->icon( ''exclamation-circle/red'' ) } { lv_error_text }| ).
ri_html->add( |<div class="message-panel-bar">| ).
ri_html->add_a(
iv_txt = \`❌\`
iv_act = \`toggleDisplay(''message'')\`
iv_class = \`close-btn\`
iv_typ = zif_abapgit_html=>c_action_type-onclick ).
ri_html->add( |</div>| ).
ri_html->add( |<div class="message-panel-bar message-panel-commands">| ).
IF ix_error->if_t100_message~t100key-msgid IS NOT INITIAL.
lv_title = get_t100_text(
iv_msgid = ix_error->if_t100_message~t100key-msgid
iv_msgno = ix_error->if_t100_message~t100key-msgno ).
IF lv_title IS NOT INITIAL.
lv_text = |Message E{ ix_error->if_t100_message~t100key-msgno }({ ix_error->if_t100_message~t100key-msgid })|.
ri_html->add_a(
iv_txt = lv_text
iv_typ = zif_abapgit_html=>c_action_type-sapevent
iv_act = zif_abapgit_definitions=>c_action-goto_message
iv_title = lv_title
iv_id = \`a_goto_message\` ).
ENDIF.
ENDIF.
ix_error->get_source_position( IMPORTING program_name = lv_program_name ).
lv_title = normalize_program_name( lv_program_name ).
ri_html->add_a(
iv_txt = \`Goto source\`
iv_act = zif_abapgit_definitions=>c_action-goto_source
iv_typ = zif_abapgit_html=>c_action_type-sapevent
iv_title = lv_title
iv_id = \`a_goto_source\` ).
ri_html->add_a(
iv_txt = \`Callstack\`
iv_act = zif_abapgit_definitions=>c_action-show_callstack
iv_typ = zif_abapgit_html=>c_action_type-sapevent
iv_id = \`a_callstack\` ).
ri_html->add( |</div>| ).
ri_html->add( |<div class="message-panel-commands">| ).
ri_html->add( |{ lv_longtext }| ).
ri_html->add( |</div>| ).
ri_html->add( |</div>| ).
ENDMETHOD.
METHOD render_event_as_form.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add(
|<form id="form_{ is_event-name }" method="{ is_event-method }" action="sapevent:{ is_event-name }"></form>| ).
ENDMETHOD.
METHOD render_help_hint.
DATA li_html TYPE REF TO zif_abapgit_html.
DATA lv_add_class TYPE string.
li_html = zcl_abapgit_html=>create( ).
IF iv_add_class IS NOT INITIAL.
lv_add_class = \` \` && iv_add_class.
ENDIF.
li_html->add( |<div class="form-field-help-tooltip{ lv_add_class }">| ).
li_html->add_icon(
iv_name = ''question-circle-solid''
iv_class = ''blue'' ).
li_html->add( \`<div class="form-field-help-tooltip-text">\` ).
li_html->add( iv_text_to_wrap ).
li_html->add( \`</div>\` ).
li_html->add( \`</div>\` ).
rv_html = li_html->render( iv_no_line_breaks = abap_true ).
ENDMETHOD.
METHOD render_infopanel.
DATA lv_display TYPE string.
DATA lv_class TYPE string.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
IF iv_hide = abap_true. " Initially hide
lv_display = ''display:none''.
ENDIF.
lv_class = ''info-panel''.
IF iv_scrollable = abap_false. " Initially hide
lv_class = lv_class && '' info-panel-fixed''.
ENDIF.
ri_html->add( |<div id="{ iv_div_id }" class="{ lv_class }" style="{ lv_display }">| ).
ri_html->add( |<div class="info-title">{ iv_title }|
&& ''<div class="float-right">''
&& ri_html->a(
iv_txt = ''❌''
iv_typ = zif_abapgit_html=>c_action_type-onclick
iv_act = |toggleDisplay(''{ iv_div_id }'')|
iv_class = ''close-btn'' )
&& ''</div></div>'' ).
IF iv_hint IS NOT INITIAL.
ri_html->add( ''<div class="info-hint">''
&& ri_html->icon( iv_name = ''exclamation-triangle''
iv_class = ''pad-right'' )
&& iv_hint
&& ''</div>'' ).
ENDIF.
ri_html->add( |<div class="info-list">| ).
ri_html->add( io_content ).
ri_html->add( ''</div>'' ).
ri_html->add( ''</div>'' ).
ENDMETHOD.
METHOD render_item_state.
DATA: lv_system TYPE string.
FIELD-SYMBOLS <lv_state> TYPE char1.
rv_html = ''<span class="state-block">''.
DO 2 TIMES.
CASE sy-index.
WHEN 1.
ASSIGN iv_lstate TO <lv_state>.
lv_system = ''Local:''.
WHEN 2.
ASSIGN iv_rstate TO <lv_state>.
lv_system = ''Remote:''.
ENDCASE.
CASE <lv_state>.
WHEN zif_abapgit_definitions=>c_state-unchanged. "None or unchanged
IF iv_lstate = zif_abapgit_definitions=>c_state-added OR iv_rstate = zif_abapgit_definitions=>c_state-added.
rv_html = rv_html && |<span class="none" title="{ lv_system } Not exists">X</span>|.
ELSE.
rv_html = rv_html && |<span class="none" title="{ lv_system } No changes"> </span>|.
ENDIF.
WHEN zif_abapgit_definitions=>c_state-modified. "Changed
rv_html = rv_html && |<span class="changed" title="{ lv_system } Modified">M</span>|.
WHEN zif_abapgit_definitions=>c_state-added. "Added new
rv_html = rv_html && |<span class="added" title="{ lv_system } Added new">A</span>|.
WHEN zif_abapgit_definitions=>c_state-mixed. "Multiple changes (multifile)
rv_html = rv_html && |<span class="mixed" title="{ lv_system } Multiple changes">■</span>|.
WHEN zif_abapgit_definitions=>c_state-deleted. "Deleted
rv_html = rv_html && |<span class="deleted" title="{ lv_system } Deleted">D</span>|.
ENDCASE.
ENDDO.
rv_html = rv_html && ''</span>''.
ENDMETHOD.
METHOD render_js_error_banner.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<div id="js-error-banner" class="dummydiv error">'' ).
ri_html->add( |{ ri_html->icon( ''exclamation-triangle/red'' ) }| &&
'' If this does not disappear soon,'' &&
'' then there is a JS init error, please log an issue'' ).
ri_html->add( ''</div>'' ).
ENDMETHOD.
METHOD render_label_list.
DATA lt_fragments TYPE string_table.
DATA lv_l TYPE string.
DATA lv_class TYPE string.
DATA lv_class_cmd TYPE string.
DATA lv_style TYPE string.
DATA ls_parsed_color TYPE zcl_abapgit_repo_labels=>ty_color.
DATA li_html TYPE REF TO zif_abapgit_html.
IF it_labels IS INITIAL.
RETURN.
ENDIF.
lv_class_cmd = ''command''.
IF iv_unlisted = abap_true.
lv_class_cmd = lv_class_cmd && '' unlisted''.
ENDIF.
li_html = zcl_abapgit_html=>create( ).
APPEND \`<ul class="repo-labels">\` TO lt_fragments.
LOOP AT it_labels INTO lv_l WHERE table_line IS NOT INITIAL.
CLEAR lv_class.
CLEAR lv_style.
ls_parsed_color = zcl_abapgit_repo_labels=>parse_color( io_label_colors->get( lv_l ) ).
IF ls_parsed_color-cls IS NOT INITIAL.
lv_class = | class="rl-{ ls_parsed_color-cls }"|.
ELSEIF ls_parsed_color-fg IS NOT INITIAL OR ls_parsed_color-bg IS NOT INITIAL.
lv_style = \` style="\`.
IF ls_parsed_color-fg IS NOT INITIAL.
lv_style = lv_style && |color:#{ ls_parsed_color-fg };|.
ENDIF.
IF ls_parsed_color-bg IS NOT INITIAL.
lv_style = lv_style && |background-color:#{ ls_parsed_color-bg };|.
IF ls_parsed_color-border IS INITIAL.
lv_style = lv_style && |border-color:#{ ls_parsed_color-bg };|.
ELSE.
lv_style = lv_style && |border-color:#{ ls_parsed_color-border };|.
ENDIF.
ENDIF.
lv_style = lv_style && \`"\`.
ENDIF.
IF iv_clickable_action IS NOT INITIAL.
lv_l = li_html->a(
iv_txt = lv_l
iv_act = |{ iv_clickable_action }|
iv_class = lv_class_cmd
iv_query = lv_l ).
ENDIF.
lv_l = |<li{ lv_class }{ lv_style }>{ lv_l }</li>|.
APPEND lv_l TO lt_fragments.
ENDLOOP.
APPEND \`</ul>\` TO lt_fragments.
rv_html = concat_lines_of( lt_fragments ).
ENDMETHOD.
METHOD render_news.
DATA: lv_text TYPE string,
lv_hint TYPE string,
lv_ul TYPE abap_bool,
lt_log TYPE zcl_abapgit_repo_news=>ty_logs.
FIELD-SYMBOLS: <ls_line> LIKE LINE OF lt_log.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
IF io_news IS NOT BOUND OR io_news->has_news( ) = abap_false.
RETURN.
ENDIF.
lt_log = io_news->get_log( ).
" Render news
LOOP AT lt_log ASSIGNING <ls_line>.
IF <ls_line>-is_header = abap_true.
IF <ls_line>-pos_to_cur > 0.
lv_text = <ls_line>-text && ''<span class="version-marker update">update</span>''.
ELSEIF <ls_line>-pos_to_cur = 0.
lv_text = <ls_line>-text && ''<span class="version-marker">current</span>''.
ELSE. " < 0
lv_text = <ls_line>-text.
ENDIF.
IF lv_ul = abap_true.
ri_html->add( |</ul>| ).
ENDIF.
ri_html->add( |<h1>{ lv_text }</h1>| ).
ri_html->add( |<ul>| ).
lv_ul = abap_true.
ELSE.
<ls_line>-text = escape( val = <ls_line>-text
format = cl_abap_format=>e_html_text ).
ri_html->add( |<li>{ <ls_line>-text }</li>| ).
ENDIF.
ENDLOOP.
IF lv_ul = abap_true.
ri_html->add( |</ul>| ).
ENDIF.
" Wrap
IF io_news->has_important( ) = abap_true.
lv_hint = ''Please note changes marked with "!"''.
ENDIF.
ri_html = render_infopanel(
iv_div_id = ''news''
iv_title = ''Announcement of the latest changes''
iv_hint = lv_hint
iv_hide = boolc( io_news->has_unseen( ) = abap_false )
io_content = ri_html ).
ENDMETHOD.
METHOD render_package_name.
DATA:
lv_obj_name TYPE tadir-obj_name,
lv_jump TYPE string,
lv_title TYPE string.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
IF iv_package IS INITIAL.
RETURN.
ENDIF.
IF iv_suppress_title = abap_false.
lv_title = zcl_abapgit_factory=>get_sap_package( iv_package )->read_description( ).
ENDIF.
lv_obj_name = iv_package.
lv_jump = zcl_abapgit_html_action_utils=>jump_encode(
iv_obj_type = ''DEVC''
iv_obj_name = lv_obj_name ).
ri_html->add( |<span class="package-box">| ).
ri_html->add_icon( iv_name = ''box/grey70''
iv_hint = ''SAP package'' ).
IF iv_interactive = abap_true.
ri_html->add_a( iv_act = |{ zif_abapgit_definitions=>c_action-jump }?{ lv_jump }|
iv_title = lv_title
iv_txt = |{ iv_package }| ).
ELSE.
ri_html->add( iv_package ).
ENDIF.
ri_html->add( ''</span>'' ).
ENDMETHOD.
METHOD render_path.
DATA:
lv_path TYPE string,
lv_jump TYPE string,
lv_folder TYPE string,
lt_folders TYPE STANDARD TABLE OF string WITH DEFAULT KEY.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
IF iv_path IS INITIAL.
RETURN.
ENDIF.
lv_jump = |{ zcl_abapgit_gui_page_repo_view=>c_actions-change_dir }?PATH=|.
ri_html->add( |<span class="path-box">| ).
IF iv_interactive = abap_true.
SPLIT iv_path AT ''/'' INTO TABLE lt_folders.
LOOP AT lt_folders INTO lv_folder.
IF lv_folder IS INITIAL.
" root
lv_path = ''/''.
ELSEIF sy-tabix < lines( lt_folders ).
lv_path = lv_path && lv_folder && ''/''.
ri_html->add_a( iv_act = lv_jump && lv_path
iv_txt = lv_folder ).
ELSE.
" no link for current folder
ri_html->add( | <strong>{ lv_folder }</strong> | ).
ENDIF.
ri_html->add( ''/'' ).
ENDLOOP.
ELSE.
ri_html->add( iv_path ).
ENDIF.
ri_html->add( ''</span>'' ).
ENDMETHOD.
METHOD render_repo_palette.
DATA lt_repo_obj_list TYPE zif_abapgit_repo_srv=>ty_repo_list.
DATA lt_repo_list TYPE zif_abapgit_persistence=>ty_repos.
DATA lv_repo_json TYPE string.
DATA lv_size TYPE i.
DATA ls_repo_data LIKE LINE OF lt_repo_list.
FIELD-SYMBOLS:
<ls_repo> LIKE LINE OF lt_repo_list,
<lr_repo_obj> LIKE LINE OF lt_repo_obj_list.
lt_repo_obj_list = zcl_abapgit_repo_srv=>get_instance( )->list( ).
LOOP AT lt_repo_obj_list ASSIGNING <lr_repo_obj>.
ls_repo_data = <lr_repo_obj>->ms_data.
ls_repo_data-local_settings-display_name = <lr_repo_obj>->get_name( ).
APPEND ls_repo_data TO lt_repo_list.
ENDLOOP.
lv_size = lines( lt_repo_list ).
SORT lt_repo_list BY local_settings-display_name AS TEXT.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''var repoCatalog = ['' ). " Maybe separate this into another method if needed in more places
LOOP AT lt_repo_list ASSIGNING <ls_repo>.
lv_repo_json = |\\{ key: "{ <ls_repo>-key
}", isOffline: "{ <ls_repo>-offline
}", displayName: "{ escape( val = <ls_repo>-local_settings-display_name
format = cl_abap_format=>e_html_js ) }" \\}|.
IF sy-tabix < lv_size.
lv_repo_json = lv_repo_json && '',''.
ENDIF.
ri_html->add( lv_repo_json ).
ENDLOOP.
ri_html->add( ''];'' ).
ri_html->add( |var gGoRepoPalette = new CommandPalette(createRepoCatalogEnumerator(repoCatalog, "{
iv_action }"), \\{| ).
ri_html->add( '' toggleKey: "F2",'' ).
ri_html->add( '' hotkeyDescription: "Go to Repository ..."'' ).
ri_html->add( ''});'' ).
ENDMETHOD.
METHOD render_repo_top.
DATA: lo_repo_online TYPE REF TO zcl_abapgit_repo_online,
lo_pback TYPE REF TO zcl_abapgit_persist_background,
lx_error TYPE REF TO zcx_abapgit_exception,
lv_hint TYPE string,
lv_icon TYPE string.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
CREATE OBJECT lo_pback.
IF io_repo->is_offline( ) = abap_true.
lv_icon = ''plug/darkgrey''.
lv_hint = ''Offline Repository''.
ELSE.
lv_icon = ''cloud-upload-alt/blue''.
lv_hint = ''On-line Repository''.
ENDIF.
ri_html->add( ''<table class="w100"><tr>'' ).
ri_html->add( ''<td class="repo_name">'' ).
" Repo type and name
ri_html->add_icon( iv_name = lv_icon
iv_hint = lv_hint ).
ri_html->add( |<span class="name">{ io_repo->get_name( ) }</span>| ).
IF io_repo->is_offline( ) = abap_false.
lo_repo_online ?= io_repo.
ri_html->add( render_repo_url( lo_repo_online->get_url( ) ) ).
ENDIF.
IF iv_show_edit = abap_true.
ri_html->add_a( iv_txt = ri_html->icon( iv_name = ''edit-solid''
iv_class = ''pad-sides''
iv_hint = ''Change Remote'' )
iv_act = |{ zif_abapgit_definitions=>c_action-repo_remote_settings }?| &&
|key={ io_repo->get_key( ) }|
iv_class = |url| ).
ENDIF.
IF io_repo->is_offline( ) = abap_false.
lo_repo_online ?= io_repo.
ri_html->add_a( iv_txt = ri_html->icon( iv_name = ''copy-solid''
iv_class = ''pad-sides''
iv_hint = ''Copy URL to Clipboard'' )
iv_act = |{ zif_abapgit_definitions=>c_action-clipboard }| &&
|?clipboard={ lo_repo_online->get_url( ) }|
iv_class = |url| ).
ENDIF.
IF io_repo->is_offline( ) = abap_false AND iv_show_commit = abap_true.
TRY.
render_repo_top_commit_hash( ii_html = ri_html
io_repo_online = lo_repo_online ).
CATCH zcx_abapgit_exception INTO lx_error.
" In case of missing or wrong credentials, show message in status bar
lv_hint = lx_error->get_text( ).
IF lv_hint CS ''credentials''.
MESSAGE lv_hint TYPE ''S'' DISPLAY LIKE ''E''.
ENDIF.
ENDTRY.
ENDIF.
" News
IF io_news IS BOUND AND io_news->has_news( ) = abap_true.
IF io_news->has_updates( ) = abap_true.
lv_icon = ''arrow-circle-up/warning''.
ELSE.
lv_icon = ''arrow-circle-up''.
ENDIF.
ri_html->add_a( iv_act = |toggleDisplay(''news'')|
iv_typ = zif_abapgit_html=>c_action_type-onclick
iv_txt = ri_html->icon( iv_name = lv_icon
iv_class = ''pad-sides''
iv_hint = ''Display Changelog'' )
iv_class = |url| ).
ENDIF.
ri_html->add( ''</td>'' ).
ri_html->add( ''<td class="repo_attr right">'' ).
" Fav
IF abap_true = zcl_abapgit_persistence_user=>get_instance( )->is_favorite_repo( io_repo->get_key( ) ).
lv_icon = ''star/blue''.
ELSE.
lv_icon = ''star/grey''.
ENDIF.
ri_html->add_a( iv_act = |{ zif_abapgit_definitions=>c_action-repo_toggle_fav }?key={ io_repo->get_key( ) }|
iv_txt = ri_html->icon( iv_name = lv_icon
iv_class = ''pad-sides''
iv_hint = ''Toggle Favorite'' ) ).
" BG
IF lo_pback->exists( io_repo->get_key( ) ) = abap_true.
ri_html->add( ''<span class="bg_marker" title="background">BG</span>'' ).
ENDIF.
" Write protect
IF io_repo->get_local_settings( )-write_protected = abap_true.
ri_html->add_icon( iv_name = ''lock/grey70''
iv_hint = ''Locked from Pulls'' ).
ENDIF.
IF io_repo->get_local_settings( )-flow = abap_true.
ri_html->add_icon( iv_name = ''flow/grey70''
iv_hint = ''Flow'' ).
ENDIF.
" Branch
IF io_repo->is_offline( ) = abap_false.
lo_repo_online ?= io_repo.
IF iv_show_branch = abap_true.
ri_html->add( render_branch_name( io_repo = lo_repo_online
iv_interactive = iv_interactive_branch ) ).
ENDIF.
ENDIF.
" Package
IF iv_show_package = abap_true.
ri_html->add( render_package_name( io_repo->get_package( ) ) ).
ENDIF.
ri_html->add( ''</td>'' ).
ri_html->add( ''</tr></table>'' ).
ENDMETHOD.
METHOD render_repo_top_commit_hash.
DATA: lv_commit_hash TYPE zif_abapgit_git_definitions=>ty_sha1,
lv_commit_short_hash TYPE zif_abapgit_git_definitions=>ty_sha1,
lv_display_url TYPE zif_abapgit_persistence=>ty_repo-url,
lo_url TYPE REF TO zcl_abapgit_git_url,
lv_icon_commit TYPE string.
lv_commit_hash = io_repo_online->get_current_remote( ).
lv_commit_short_hash = lv_commit_hash(7).
lv_icon_commit = ii_html->icon( iv_name = ''code-commit''
iv_class = ''pad-sides''
iv_hint = ''Commit'' ).
CREATE OBJECT lo_url.
TRY.
lv_display_url = lo_url->get_commit_display_url( io_repo_online ).
ii_html->add_a( iv_txt = |{ lv_icon_commit }{ lv_commit_short_hash }|
iv_act = |{ zif_abapgit_definitions=>c_action-url }?url={ lv_display_url }|
iv_title = ''Commit''
iv_class = |url| ).
CATCH zcx_abapgit_exception.
ii_html->add( |<span class="url">{ lv_icon_commit }{ lv_commit_short_hash }</span>| ).
ENDTRY.
ENDMETHOD.
METHOD render_repo_url.
ri_html = zcl_abapgit_html=>create( )->add_a(
iv_txt = shorten_repo_url( iv_url )
iv_title = iv_url
iv_act = |{ zif_abapgit_definitions=>c_action-url }?url={ iv_url }|
iv_class = ''url'' ).
IF iv_render_remote_edit_for_key IS NOT INITIAL.
ri_html->add_a(
iv_txt = ri_html->icon(
iv_name = ''edit-solid''
iv_class = ''pad-sides''
iv_hint = ''Change remote'' )
iv_act = |{ zif_abapgit_definitions=>c_action-repo_remote_settings }?key={ iv_render_remote_edit_for_key }|
iv_class = |remote_repo| ).
ENDIF.
ENDMETHOD.
METHOD render_sci_result.
DATA lv_icon TYPE string.
lv_icon = ii_html->icon(
iv_name = ''bug-solid''
iv_hint = ''Code inspector result'' ).
CASE iv_sci_result.
WHEN zif_abapgit_definitions=>c_sci_result-passed.
ii_html->add( |<span class="boxed green-filled-set">{ lv_icon }PASSED</span>| ).
WHEN zif_abapgit_definitions=>c_sci_result-failed.
ii_html->add( |<span class="boxed red-filled-set">{ lv_icon }FAILED</span>| ).
WHEN zif_abapgit_definitions=>c_sci_result-warning.
ii_html->add( |<span class="boxed yellow-filled-set">{ lv_icon }WARN</span>| ).
WHEN OTHERS. " Including NO_RUN
RETURN.
ENDCASE.
ENDMETHOD.
METHOD render_success.
ri_html = zcl_abapgit_html=>create( ).
ri_html->add( ''<div class="dummydiv success">'' ).
ri_html->add_icon( ''check'' ).
ri_html->add( iv_message ).
ri_html->add( ''</div>'' ).
ENDMETHOD.
METHOD render_table_footer.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<tfoot>'' ).
ri_html->add( ''<tr>'' ).
ri_html->add( ''<td colspan="100%">'' ).
ri_html->add( iv_message ).
ri_html->add( ''</td>'' ).
ri_html->add( ''</tr>'' ).
ri_html->add( ''</tfoot>'' ).
ENDMETHOD.
METHOD render_table_header.
DATA:
lv_tmp TYPE string,
lv_disp_name TYPE string.
FIELD-SYMBOLS <ls_col> LIKE LINE OF it_col_spec.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<thead>'' ).
ri_html->add( ''<tr>'' ).
LOOP AT it_col_spec ASSIGNING <ls_col>.
" e.g. <th class="ro-detail">Created at [{ gv_time_zone }]</th>
lv_tmp = ''<th''.
IF <ls_col>-css_class IS NOT INITIAL.
lv_tmp = lv_tmp && | class="{ <ls_col>-css_class }"|.
ENDIF.
lv_tmp = lv_tmp && ''>''.
IF <ls_col>-display_name IS NOT INITIAL.
lv_disp_name = <ls_col>-display_name.
IF <ls_col>-add_tz = abap_true.
lv_disp_name = lv_disp_name && | [{ gv_time_zone }]|.
ENDIF.
IF <ls_col>-tech_name = iv_order_by.
IF iv_order_descending = abap_true.
lv_tmp = lv_tmp && ri_html->a(
iv_txt = lv_disp_name
iv_act = |{ zif_abapgit_definitions=>c_action-change_order_by }|
iv_title = <ls_col>-title ).
ELSE.
lv_tmp = lv_tmp && ri_html->a(
iv_txt = lv_disp_name
iv_act = |{ zif_abapgit_definitions=>c_action-direction }?direction=DESCENDING|
iv_title = <ls_col>-title ).
ENDIF.
ELSEIF <ls_col>-allow_order_by = abap_true.
lv_tmp = lv_tmp && ri_html->a(
iv_txt = lv_disp_name
iv_act = |{ zif_abapgit_definitions=>c_action-change_order_by }?orderBy={ <ls_col>-tech_name }|
iv_title = <ls_col>-title ).
ELSE.
lv_tmp = lv_tmp && lv_disp_name.
ENDIF.
ENDIF.
IF <ls_col>-tech_name = iv_order_by
AND iv_order_by IS NOT INITIAL.
IF iv_order_descending = abap_true.
lv_tmp = lv_tmp && | ▾|. " arrow down
ELSE.
lv_tmp = lv_tmp && | ▴|. " arrow up
ENDIF.
ENDIF.
lv_tmp = lv_tmp && ''</th>''.
ri_html->add( lv_tmp ).
ENDLOOP.
ri_html->add( ''</tr>'' ).
ri_html->add( ''</thead>'' ).
ENDMETHOD.
METHOD render_text_input.
DATA lv_attrs TYPE string.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
IF iv_value IS NOT INITIAL.
lv_attrs = | value="{ iv_value }"|.
ENDIF.
IF iv_max_length IS NOT INITIAL.
lv_attrs = lv_attrs && | maxlength="{ iv_max_length }"|.
ENDIF.
IF iv_autofocus = abap_true.
lv_attrs = lv_attrs && | autofocus|.
ENDIF.
ri_html->add( |<label for="{ iv_name }">{ iv_label }</label>| ).
ri_html->add( |<input id="{ iv_name }" name="{ iv_name }" type="text"{ lv_attrs }>| ).
ENDMETHOD.
METHOD render_timestamp.
DATA lv_date TYPE d.
DATA lv_time TYPE t.
CONVERT TIME STAMP iv_timestamp
TIME ZONE gv_time_zone
INTO DATE lv_date
TIME lv_time.
rv_rendered = |{ lv_date DATE = USER } { lv_time TIME = USER }|.
ENDMETHOD.
METHOD render_transport.
DATA:
lv_title TYPE string,
lv_jump TYPE string.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
IF iv_transport IS INITIAL.
RETURN.
ENDIF.
lv_title = zcl_abapgit_factory=>get_cts_api( )->read_description( iv_transport ).
lv_jump = |{ zif_abapgit_definitions=>c_action-jump_transport }?transport={ iv_transport }|.
IF iv_icon_only = abap_true.
ri_html->add_a( iv_act = lv_jump
iv_title = |Transport { iv_transport }|
iv_txt = zcl_abapgit_html=>icon( ''truck-solid/darkgrey'' ) ).
ELSE.
ri_html->add( |<span class="transport-box">| ).
ri_html->add_icon( iv_name = ''truck-solid/grey70''
iv_hint = ''Transport'' ).
IF iv_interactive = abap_true.
ri_html->add_a( iv_act = lv_jump
iv_title = lv_title
iv_txt = |{ iv_transport }| ).
ELSE.
ri_html->add( iv_transport ).
ENDIF.
ri_html->add( ''</span>'' ).
ENDIF.
ENDMETHOD.
METHOD render_user_name.
DATA:
lv_title TYPE string,
lv_jump TYPE string.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
IF iv_username IS INITIAL.
RETURN.
ENDIF.
IF iv_username <> zcl_abapgit_objects_super=>c_user_unknown AND iv_suppress_title = abap_false.
lv_title = zcl_abapgit_user_record=>get_title( iv_username ).
ENDIF.
lv_jump = |{ zif_abapgit_definitions=>c_action-jump_user }?user={ iv_username }|.
IF iv_icon_only = abap_true.
ri_html->add_a( iv_act = lv_jump
iv_title = lv_title
iv_txt = zcl_abapgit_html=>icon( ''user-solid/darkgrey'' ) ).
ELSE.
ri_html->add( |<span class="user-box">| ).
ri_html->add_icon( iv_name = ''user-solid/grey70''
iv_hint = ''User name'' ).
IF iv_interactive = abap_true AND iv_username <> zcl_abapgit_objects_super=>c_user_unknown.
ri_html->add_a( iv_act = lv_jump
iv_title = lv_title
iv_txt = |{ iv_username }| ).
ELSE.
ri_html->add( iv_username ).
ENDIF.
ri_html->add( ''</span>'' ).
ENDIF.
ENDMETHOD.
METHOD render_warning_banner.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<div class="dummydiv warning">'' ).
ri_html->add( |{ ri_html->icon( ''exclamation-triangle/yellow'' ) } { iv_text }| ).
ri_html->add( ''</div>'' ).
ENDMETHOD.
METHOD shorten_repo_url.
DATA lv_new_length TYPE i.
DATA lv_length_to_truncate_to TYPE i.
rv_shortened = iv_full_url.
REPLACE FIRST OCCURRENCE OF ''https://'' IN rv_shortened WITH ''''.
REPLACE FIRST OCCURRENCE OF ''http://'' IN rv_shortened WITH ''''.
IF rv_shortened CP ''*.git''.
lv_new_length = strlen( rv_shortened ) - 4.
rv_shortened = rv_shortened(lv_new_length).
ENDIF.
IF strlen( rv_shortened ) > iv_max_length.
lv_length_to_truncate_to = iv_max_length - 3.
rv_shortened = rv_shortened(lv_length_to_truncate_to) && \`...\`.
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_COMPONENT ', 'CLASS zcl_abapgit_gui_component DEFINITION
PUBLIC
ABSTRACT
CREATE PUBLIC .
PUBLIC SECTION.
CONSTANTS:
BEGIN OF c_html_parts,
scripts TYPE string VALUE ''scripts'',
hidden_forms TYPE string VALUE ''hidden_forms'',
END OF c_html_parts.
PROTECTED SECTION.
METHODS register_deferred_script
IMPORTING
ii_part TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception.
METHODS gui_services
RETURNING
VALUE(ri_gui_services) TYPE REF TO zif_abapgit_gui_services
RAISING
zcx_abapgit_exception.
METHODS register_handlers
RAISING
zcx_abapgit_exception.
PRIVATE SECTION.
DATA mi_gui_services TYPE REF TO zif_abapgit_gui_services.
METHODS register_event_handler
IMPORTING
ii_event_handler TYPE REF TO zif_abapgit_gui_event_handler OPTIONAL
RAISING
zcx_abapgit_exception.
METHODS register_hotkeys
IMPORTING
ii_hotkey_provider TYPE REF TO zif_abapgit_gui_hotkeys OPTIONAL
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS ZCL_ABAPGIT_GUI_COMPONENT IMPLEMENTATION.
METHOD gui_services.
IF mi_gui_services IS NOT BOUND.
mi_gui_services = zcl_abapgit_ui_factory=>get_gui_services( ).
ENDIF.
ri_gui_services = mi_gui_services.
ENDMETHOD.
METHOD register_deferred_script.
gui_services( )->get_html_parts( )->add_part(
iv_collection = c_html_parts-scripts
ii_part = ii_part ).
ENDMETHOD.
METHOD register_event_handler.
DATA li_event_handler TYPE REF TO zif_abapgit_gui_event_handler.
IF ii_event_handler IS BOUND.
li_event_handler = ii_event_handler.
ELSE.
TRY.
li_event_handler ?= me.
CATCH cx_root.
RETURN.
ENDTRY.
ENDIF.
gui_services( )->register_event_handler( li_event_handler ).
ENDMETHOD.
METHOD register_handlers.
register_event_handler( ).
register_hotkeys( ).
ENDMETHOD.
METHOD register_hotkeys.
DATA li_hotkey_provider TYPE REF TO zif_abapgit_gui_hotkeys.
IF ii_hotkey_provider IS BOUND.
li_hotkey_provider = ii_hotkey_provider.
ELSE.
TRY.
li_hotkey_provider ?= me.
CATCH cx_root.
RETURN.
ENDTRY.
ENDIF.
gui_services( )->get_hotkeys_ctl( )->register_hotkeys( li_hotkey_provider->get_hotkey_actions( ) ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_IN_PAGE_MODAL ', 'CLASS zcl_abapgit_gui_in_page_modal DEFINITION
PUBLIC
CREATE PUBLIC.
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_renderable.
CLASS-METHODS create
IMPORTING
!ii_child TYPE REF TO zif_abapgit_gui_renderable
!iv_width TYPE i OPTIONAL
!iv_height TYPE i OPTIONAL
RETURNING
VALUE(ro_wrap) TYPE REF TO zcl_abapgit_gui_in_page_modal
RAISING
zcx_abapgit_exception .
METHODS constructor
IMPORTING
!ii_child TYPE REF TO zif_abapgit_gui_renderable
!iv_width TYPE i OPTIONAL
!iv_height TYPE i OPTIONAL.
PROTECTED SECTION.
PRIVATE SECTION.
DATA mi_child TYPE REF TO zif_abapgit_gui_renderable.
DATA:
BEGIN OF ms_attrs,
width TYPE i,
height TYPE i,
END OF ms_attrs.
ENDCLASS.
CLASS zcl_abapgit_gui_in_page_modal IMPLEMENTATION.
METHOD constructor.
ms_attrs-width = iv_width.
ms_attrs-height = iv_height.
mi_child = ii_child.
ENDMETHOD.
METHOD create.
CREATE OBJECT ro_wrap
EXPORTING
ii_child = ii_child
iv_width = iv_width
iv_height = iv_height.
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
DATA lo_style TYPE REF TO zcl_abapgit_string_buffer.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
CREATE OBJECT lo_style.
IF ms_attrs-width IS NOT INITIAL.
lo_style->add( |width:{ ms_attrs-width }px;| ).
ENDIF.
IF ms_attrs-height IS NOT INITIAL.
lo_style->add( |height:{ ms_attrs-height }px;| ).
ENDIF.
ri_html->add( |<div class="modal" style="{ lo_style->join_w_space_and_flush( ) }">| ).
ri_html->add( |<div class="modal-guts">| ).
ri_html->add( mi_child->render( ) ).
ri_html->add( |</div>| ).
ri_html->add( |</div>| ).
ri_html->add( |<div class="modal-overlay"></div>| ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_MENUS ', 'CLASS zcl_abapgit_gui_menus DEFINITION
PUBLIC
FINAL
CREATE PUBLIC.
PUBLIC SECTION.
CLASS-METHODS advanced
RETURNING
VALUE(ro_menu) TYPE REF TO zcl_abapgit_html_toolbar.
CLASS-METHODS help
RETURNING
VALUE(ro_menu) TYPE REF TO zcl_abapgit_html_toolbar.
CLASS-METHODS back
RETURNING
VALUE(ro_menu) TYPE REF TO zcl_abapgit_html_toolbar.
CLASS-METHODS settings
IMPORTING
!iv_act TYPE string
RETURNING
VALUE(ro_menu) TYPE REF TO zcl_abapgit_html_toolbar.
CLASS-METHODS repo_settings
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
!iv_act TYPE string
RETURNING
VALUE(ro_menu) TYPE REF TO zcl_abapgit_html_toolbar.
CLASS-METHODS experimental
IMPORTING
io_menu TYPE REF TO zcl_abapgit_html_toolbar.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_gui_menus IMPLEMENTATION.
METHOD advanced.
CREATE OBJECT ro_menu EXPORTING iv_id = ''toolbar-advanced''.
ro_menu->add(
iv_txt = ''Database Utility''
iv_act = zif_abapgit_definitions=>c_action-go_db
)->add(
iv_txt = ''Package to ZIP''
iv_act = zif_abapgit_definitions=>c_action-zip_package
)->add(
iv_txt = ''Transport to ZIP''
iv_act = zif_abapgit_definitions=>c_action-zip_transport
)->add(
iv_txt = ''Object to Files''
iv_act = zif_abapgit_definitions=>c_action-zip_object
)->add(
iv_txt = ''Debug Info''
iv_act = zif_abapgit_definitions=>c_action-go_debuginfo ).
IF zcl_abapgit_ui_factory=>get_frontend_services( )->is_sapgui_for_windows( ) = abap_true.
ro_menu->add(
iv_txt = ''Open IE DevTools''
iv_act = zif_abapgit_definitions=>c_action-ie_devtools ).
ENDIF.
ENDMETHOD.
METHOD back.
CREATE OBJECT ro_menu EXPORTING iv_id = ''toolbar-back''.
ro_menu->add(
iv_txt = ''Back''
iv_act = zif_abapgit_definitions=>c_action-go_back ).
ENDMETHOD.
METHOD experimental.
IF zcl_abapgit_persist_factory=>get_settings( )->read( )->get_experimental_features( ) IS NOT INITIAL.
io_menu->add(
iv_txt = zcl_abapgit_gui_buttons=>experimental( )
iv_act = zif_abapgit_definitions=>c_action-go_settings ).
ENDIF.
ENDMETHOD.
METHOD help.
CREATE OBJECT ro_menu EXPORTING iv_id = ''toolbar-help''.
ro_menu->add(
iv_txt = ''Tutorial''
iv_act = zif_abapgit_definitions=>c_action-go_tutorial
)->add(
iv_txt = ''Documentation''
iv_act = zif_abapgit_definitions=>c_action-documentation
)->add(
iv_txt = ''Explore''
iv_act = zif_abapgit_definitions=>c_action-go_explore
)->add(
iv_txt = ''Changelog''
iv_act = zif_abapgit_definitions=>c_action-changelog
)->add(
iv_txt = ''Hotkeys''
iv_act = zif_abapgit_definitions=>c_action-show_hotkeys ).
ENDMETHOD.
METHOD repo_settings.
CREATE OBJECT ro_menu EXPORTING iv_id = ''toolbar-repo-settings''.
ro_menu->add(
iv_txt = ''Repository''
iv_act = |{ zif_abapgit_definitions=>c_action-repo_settings }?key={ iv_key }|
iv_cur = boolc( iv_act = zif_abapgit_definitions=>c_action-repo_settings )
)->add(
iv_txt = ''Local''
iv_act = |{ zif_abapgit_definitions=>c_action-repo_local_settings }?key={ iv_key }|
iv_cur = boolc( iv_act = zif_abapgit_definitions=>c_action-repo_local_settings )
)->add(
iv_txt = ''Remote''
iv_act = |{ zif_abapgit_definitions=>c_action-repo_remote_settings }?key={ iv_key }|
iv_cur = boolc( iv_act = zif_abapgit_definitions=>c_action-repo_remote_settings )
)->add(
iv_txt = ''Background''
iv_act = |{ zif_abapgit_definitions=>c_action-repo_background }?key={ iv_key }|
iv_cur = boolc( iv_act = zif_abapgit_definitions=>c_action-repo_background )
)->add(
iv_txt = ''Stats''
iv_act = |{ zif_abapgit_definitions=>c_action-repo_infos }?key={ iv_key }|
iv_cur = boolc( iv_act = zif_abapgit_definitions=>c_action-repo_infos ) ).
zcl_abapgit_exit=>get_instance( )->enhance_repo_toolbar(
io_menu = ro_menu
iv_key = iv_key
iv_act = iv_act ).
ENDMETHOD.
METHOD settings.
CREATE OBJECT ro_menu EXPORTING iv_id = ''toolbar-settings''.
ro_menu->add(
iv_txt = ''Global''
iv_act = zif_abapgit_definitions=>c_action-go_settings
iv_cur = boolc( iv_act = zif_abapgit_definitions=>c_action-go_settings )
)->add(
iv_txt = ''Personal''
iv_act = zif_abapgit_definitions=>c_action-go_settings_personal
iv_cur = boolc( iv_act = zif_abapgit_definitions=>c_action-go_settings_personal ) ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE ', 'CLASS zcl_abapgit_gui_page DEFINITION PUBLIC ABSTRACT
INHERITING FROM zcl_abapgit_gui_component
CREATE PUBLIC.
PUBLIC SECTION.
INTERFACES:
zif_abapgit_gui_modal,
zif_abapgit_gui_renderable,
zif_abapgit_gui_event_handler,
zif_abapgit_gui_error_handler.
TYPES:
BEGIN OF ty_control,
page_layout TYPE string,
page_title TYPE string,
page_menu TYPE REF TO zcl_abapgit_html_toolbar,
page_menu_provider TYPE REF TO zif_abapgit_gui_menu_provider,
page_title_provider TYPE REF TO zif_abapgit_gui_page_title,
extra_css_url TYPE string,
extra_js_url TYPE string,
show_as_modal TYPE abap_bool,
END OF ty_control .
METHODS constructor RAISING zcx_abapgit_exception.
CONSTANTS:
BEGIN OF c_page_layout,
centered TYPE string VALUE \`centered\`,
full_width TYPE string VALUE \`full_width\`,
END OF c_page_layout.
PROTECTED SECTION.
DATA ms_control TYPE ty_control .
METHODS render_content " TODO refactor, render child directly
ABSTRACT
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
PRIVATE SECTION.
DATA mo_settings TYPE REF TO zcl_abapgit_settings .
DATA mx_error TYPE REF TO zcx_abapgit_exception .
DATA mo_exception_viewer TYPE REF TO zcl_abapgit_exception_viewer .
METHODS render_deferred_parts
IMPORTING
!ii_html TYPE REF TO zif_abapgit_html
!iv_part_category TYPE string
RAISING
zcx_abapgit_exception .
METHODS html_head
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html .
METHODS header_stylesheet_links
IMPORTING
ii_html TYPE REF TO zif_abapgit_html .
METHODS header_script_links
IMPORTING
ii_html TYPE REF TO zif_abapgit_html .
METHODS title
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
METHODS footer
IMPORTING
!iv_time TYPE string
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
METHODS render_link_hints
IMPORTING
!ii_html TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
METHODS render_browser_control_warning
IMPORTING
!ii_html TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
METHODS render_command_palettes
IMPORTING
!ii_html TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
METHODS render_hotkey_overview
RETURNING
VALUE(ro_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
METHODS render_error_message_box
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
METHODS scripts
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
METHODS get_version_details
RETURNING
VALUE(rv_version) TYPE string.
METHODS is_edge_control_warning_needed
RETURNING
VALUE(rv_result) TYPE abap_bool.
ENDCLASS.
CLASS zcl_abapgit_gui_page IMPLEMENTATION.
METHOD constructor.
super->constructor( ).
mo_settings = zcl_abapgit_persist_factory=>get_settings( )->read( ).
ms_control-page_layout = c_page_layout-centered.
ENDMETHOD.
METHOD footer.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<div id="footer">'' ).
ri_html->add( ''<table class="w100"><tr>'' ).
ri_html->add( ''<td class="w40 sponsor">'' ).
ri_html->add_a( iv_act = zif_abapgit_definitions=>c_action-sponsor
iv_txt = ri_html->icon( iv_name = ''heart-regular/pink''
iv_hint = ''Sponsor us'' ) ).
ri_html->add_a( iv_act = zif_abapgit_definitions=>c_action-sponsor
iv_txt = ''Sponsor us'' ).
ri_html->add( ''</td>'' ).
ri_html->add( ''<td class="center">'' ).
ri_html->add( ''<div class="logo">'' ).
ri_html->add_a( iv_act = zif_abapgit_definitions=>c_action-homepage
iv_txt = ri_html->icon( ''git-alt'' ) ).
ri_html->add_a( iv_act = zif_abapgit_definitions=>c_action-homepage
iv_txt = ri_html->icon( iv_name = ''abapgit''
iv_hint = iv_time ) ).
ri_html->add( ''</div>'' ).
ri_html->add( |<div id="footer-version" class="version">{ get_version_details( ) }</div>| ).
ri_html->add( ''</td>'' ).
ri_html->add( ''<td id="debug-output" class="w40"></td>'' ).
ri_html->add( ''</tr></table>'' ).
ri_html->add( ''</div>'' ).
ENDMETHOD.
METHOD get_version_details.
DATA lo_frontend_serv TYPE REF TO zif_abapgit_frontend_services.
rv_version = zif_abapgit_version=>c_abap_version.
IF zcl_abapgit_factory=>get_environment( )->is_merged( ) = abap_true.
rv_version = rv_version && \` - Standalone Version\`.
ELSE.
rv_version = rv_version && \` - Developer Version\`.
ENDIF.
lo_frontend_serv = zcl_abapgit_ui_factory=>get_frontend_services( ).
CASE abap_true.
WHEN lo_frontend_serv->is_webgui( ).
rv_version = rv_version && \` - Web\`.
WHEN lo_frontend_serv->is_sapgui_for_windows( ).
rv_version = rv_version && \` - Win\`.
WHEN lo_frontend_serv->is_sapgui_for_java( ).
rv_version = rv_version && \` - Java\`.
WHEN OTHERS.
* eg. open-abap?
rv_version = rv_version && \` - Unknown\`.
ENDCASE.
" Will be filled by JS method displayBrowserControlFooter
rv_version = rv_version && ''<span id="browser-control-footer"></span>''.
ENDMETHOD.
METHOD header_script_links.
ii_html->add( ''<script src="js/common.js"></script>'' ).
IF ms_control-extra_js_url IS NOT INITIAL.
ii_html->add( |<script src="{ ms_control-extra_js_url }"></script>| ).
ENDIF.
ENDMETHOD.
METHOD header_stylesheet_links.
ii_html->add( ''<link rel="stylesheet" type="text/css" href="css/common.css">'' ).
ii_html->add( ''<link rel="stylesheet" type="text/css" href="css/ag-icons.css">'' ).
" Themes
ii_html->add( ''<link rel="stylesheet" type="text/css" href="css/theme-default.css">'' ). " Theme basis
CASE mo_settings->get_ui_theme( ).
WHEN zcl_abapgit_settings=>c_ui_theme-dark.
ii_html->add( ''<link rel="stylesheet" type="text/css" href="css/theme-dark.css">'' ).
WHEN zcl_abapgit_settings=>c_ui_theme-belize.
ii_html->add( ''<link rel="stylesheet" type="text/css" href="css/theme-belize-blue.css">'' ).
ENDCASE.
" Page stylesheets
IF ms_control-extra_css_url IS NOT INITIAL.
ii_html->add( |<link rel="stylesheet" type="text/css" href="{ ms_control-extra_css_url }">| ).
ENDIF.
ENDMETHOD.
METHOD html_head.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<head>'' ).
ri_html->add( ''<meta http-equiv="content-type" content="text/html; charset=utf-8">'' ).
ri_html->add( ''<meta http-equiv="X-UA-Compatible" content="IE=11,10,9,8" />'' ).
ri_html->add( ''<title>abapGit</title>'' ).
header_stylesheet_links( ri_html ).
header_script_links( ri_html ).
" Overwrite the automatic icon scaling done in zcl_abapgit_html=>icon
CASE mo_settings->get_icon_scaling( ).
WHEN mo_settings->c_icon_scaling-large.
ri_html->add( ''<style>.icon { font-size: 200% }</style>'' ).
WHEN mo_settings->c_icon_scaling-small.
ri_html->add( ''<style>.icon.large { font-size: inherit }</style>'' ).
ENDCASE.
ri_html->add( ''</head>'' ).
ENDMETHOD.
METHOD is_edge_control_warning_needed.
DATA:
lv_gui_release TYPE zif_abapgit_frontend_services=>ty_gui_release,
lv_gui_sp TYPE zif_abapgit_frontend_services=>ty_gui_sp,
lv_gui_patch TYPE zif_abapgit_frontend_services=>ty_gui_patch,
li_frontend_services TYPE REF TO zif_abapgit_frontend_services.
" With SAP GUI 8.00 PL3 and 7.70 PL13 Edge browser control is basically working.
" For lower releases we render the browser control warning
" and toggle it via JS function toggleBrowserControlWarning.
rv_result = abap_true.
TRY.
li_frontend_services = zcl_abapgit_ui_factory=>get_frontend_services( ).
li_frontend_services->get_gui_version(
IMPORTING
ev_gui_release = lv_gui_release
ev_gui_sp = lv_gui_sp
ev_gui_patch = lv_gui_patch ).
CATCH zcx_abapgit_exception.
RETURN.
ENDTRY.
IF lv_gui_release >= ''7700'' AND lv_gui_sp >= ''1'' AND lv_gui_patch >= ''13''
OR lv_gui_release >= ''8000'' AND lv_gui_sp >= ''1'' AND lv_gui_patch >= ''3''.
rv_result = abap_false.
ENDIF.
ENDMETHOD.
METHOD render_browser_control_warning.
DATA li_documentation_link TYPE REF TO zif_abapgit_html.
CREATE OBJECT li_documentation_link TYPE zcl_abapgit_html.
li_documentation_link->add_a(
iv_txt = ''Documentation''
iv_typ = zif_abapgit_html=>c_action_type-url
iv_act = ''https://docs.abapgit.org/guide-sapgui.html#sap-gui-for-windows'' ).
ii_html->add( ''<div id="browser-control-warning" class="browser-control-warning">'' ).
ii_html->add( zcl_abapgit_gui_chunk_lib=>render_warning_banner(
|Attention: You use Edge browser control. |
&& |There are several known malfunctions. See |
&& li_documentation_link->render( ) ) ).
ii_html->add( ''</div>'' ).
ENDMETHOD.
METHOD render_command_palettes.
ii_html->add( ''var gCommandPalette = new CommandPalette(enumerateUiActions, {'' ).
ii_html->add( '' toggleKey: "F1",'' ).
ii_html->add( '' hotkeyDescription: "Command Palette"'' ).
ii_html->add( ''});'' ).
ENDMETHOD.
METHOD render_deferred_parts.
DATA lt_parts TYPE zif_abapgit_html=>ty_table_of.
DATA li_part LIKE LINE OF lt_parts.
lt_parts = gui_services( )->get_html_parts( )->get_parts( iv_part_category ).
LOOP AT lt_parts INTO li_part.
ii_html->add( li_part ).
ENDLOOP.
ENDMETHOD.
METHOD render_error_message_box.
" You should remember that the we have to instantiate ro_html even
" it''s overwritten further down. Because ADD checks whether it''s
" bound.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
" You should remember that we render the message panel only
" if we have an error.
IF mx_error IS NOT BOUND.
RETURN.
ENDIF.
ri_html = zcl_abapgit_gui_chunk_lib=>render_error_message_box( mx_error ).
" You should remember that the exception viewer dispatches the events of
" error message panel
CREATE OBJECT mo_exception_viewer
EXPORTING
ix_error = mx_error.
" You should remember that we render the message panel just once
" for each exception/error text.
CLEAR:
mx_error.
ENDMETHOD.
METHOD render_hotkey_overview.
DATA lo_hotkeys_component TYPE REF TO zif_abapgit_gui_renderable.
lo_hotkeys_component ?= gui_services( )->get_hotkeys_ctl( ). " Mmmm ...
ro_html = lo_hotkeys_component->render( ).
ENDMETHOD.
METHOD render_link_hints.
DATA: lv_link_hint_key TYPE c LENGTH 1.
lv_link_hint_key = mo_settings->get_link_hint_key( ).
IF mo_settings->get_link_hints_enabled( ) = abap_true AND lv_link_hint_key IS NOT INITIAL.
ii_html->add( |activateLinkHints("{ lv_link_hint_key }");| ).
ii_html->add( |setInitialFocusWithQuerySelector(''#header'', false);| ).
ii_html->add( |enableArrowListNavigation();| ).
ENDIF.
ENDMETHOD.
METHOD scripts.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
render_deferred_parts(
ii_html = ri_html
iv_part_category = c_html_parts-scripts ).
render_link_hints( ri_html ).
render_command_palettes( ri_html ).
ri_html->add( |toggleBrowserControlWarning();| ).
ri_html->add( |displayBrowserControlFooter();| ).
ENDMETHOD.
METHOD title.
DATA lo_page_menu LIKE ms_control-page_menu.
DATA lv_page_title TYPE string.
lo_page_menu = ms_control-page_menu.
IF lo_page_menu IS NOT BOUND AND ms_control-page_menu_provider IS BOUND.
lo_page_menu = ms_control-page_menu_provider->get_menu( ).
ENDIF.
lv_page_title = ms_control-page_title.
IF ms_control-page_title_provider IS BOUND.
lv_page_title = ms_control-page_title_provider->get_page_title( ).
ENDIF.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<div id="header">'' ).
ri_html->add( ''<div class="logo">'' ).
ri_html->add_a(
iv_act = zif_abapgit_definitions=>c_action-abapgit_home
iv_txt = ri_html->icon( ''git-alt'' ) ).
ri_html->add_a(
iv_act = zif_abapgit_definitions=>c_action-abapgit_home
iv_txt = ri_html->icon( ''abapgit'' ) ).
ri_html->add( ''</div>'' ).
ri_html->add( |<div class="page-title"><span class="spacer">►</span>{ lv_page_title }</div>| ).
IF lo_page_menu IS BOUND.
ri_html->add( ''<div class="float-right">'' ).
ri_html->add( lo_page_menu->render( iv_right = abap_true ) ).
ri_html->add( ''</div>'' ).
ENDIF.
IF is_edge_control_warning_needed( ) = abap_true.
render_browser_control_warning( ri_html ).
ENDIF.
ri_html->add( ''</div>'' ).
ENDMETHOD.
METHOD zif_abapgit_gui_error_handler~handle_error.
mx_error = ix_error.
rv_handled = abap_true.
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
CASE ii_event->mv_action.
WHEN zif_abapgit_definitions=>c_action-goto_source.
IF mo_exception_viewer IS BOUND.
mo_exception_viewer->goto_source( ).
ENDIF.
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
WHEN zif_abapgit_definitions=>c_action-show_callstack.
IF mo_exception_viewer IS BOUND.
mo_exception_viewer->show_callstack( ).
ENDIF.
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
WHEN zif_abapgit_definitions=>c_action-goto_message.
IF mo_exception_viewer IS BOUND.
mo_exception_viewer->goto_message( ).
ENDIF.
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_gui_modal~is_modal.
rv_yes = boolc( ms_control-show_as_modal = abap_true ).
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
DATA:
li_script TYPE REF TO zif_abapgit_html,
lo_timer TYPE REF TO zcl_abapgit_timer.
register_handlers( ).
lo_timer = zcl_abapgit_timer=>create( )->start( ).
" Real page
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<!DOCTYPE html>'' ).
ri_html->add( ''<html lang="en">'' ).
ri_html->add( html_head( ) ).
ri_html->add( |<body class="{ ms_control-page_layout }">| ).
ri_html->add( title( ) ).
ri_html->add( ''<div class="not_sticky">'' ).
ri_html->add( render_content( ) ). " TODO -> render child
ri_html->add( render_hotkey_overview( ) ).
ri_html->add( render_error_message_box( ) ).
render_deferred_parts(
ii_html = ri_html
iv_part_category = c_html_parts-hidden_forms ).
ri_html->add( footer( lo_timer->end( ) ) ).
ri_html->add( ''</div>'' ).
li_script = scripts( ).
IF li_script IS BOUND AND li_script->is_empty( ) = abap_false.
ri_html->add( ''<script>'' ).
ri_html->add( li_script ).
ri_html->add( ''confirmInitialized();'' ).
ri_html->add( ''</script>'' ).
ENDIF.
ri_html->add( ''</body>'' ).
ri_html->add( ''</html>'' ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_HOC ', 'CLASS zcl_abapgit_gui_page_hoc DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_page
FINAL
CREATE PRIVATE.
PUBLIC SECTION.
CLASS-METHODS create
IMPORTING
!ii_child_component TYPE REF TO zif_abapgit_gui_renderable
!iv_page_title TYPE string OPTIONAL
!iv_page_layout TYPE string DEFAULT zcl_abapgit_gui_page=>c_page_layout-centered
!io_page_menu TYPE REF TO zcl_abapgit_html_toolbar OPTIONAL
!ii_page_menu_provider TYPE REF TO zif_abapgit_gui_menu_provider OPTIONAL
!ii_page_title_provider TYPE REF TO zif_abapgit_gui_page_title OPTIONAL
!iv_extra_css_url TYPE string OPTIONAL
!iv_extra_js_url TYPE string OPTIONAL
!iv_show_as_modal TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(ri_page_wrap) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception.
METHODS get_child
RETURNING
VALUE(ri_child) TYPE REF TO zif_abapgit_gui_renderable.
METHODS constructor
IMPORTING
!ii_child_component TYPE REF TO zif_abapgit_gui_renderable
!is_control TYPE zcl_abapgit_gui_page=>ty_control
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
METHODS render_content
REDEFINITION.
PRIVATE SECTION.
DATA mi_child TYPE REF TO zif_abapgit_gui_renderable .
METHODS detect_modal
RETURNING
VALUE(rv_is_modal) TYPE abap_bool.
METHODS detect_menu_provider
RETURNING
VALUE(ri_ref) TYPE REF TO zif_abapgit_gui_menu_provider.
METHODS detect_title_provider
RETURNING
VALUE(ri_ref) TYPE REF TO zif_abapgit_gui_page_title.
ENDCLASS.
CLASS ZCL_ABAPGIT_GUI_PAGE_HOC IMPLEMENTATION.
METHOD constructor.
super->constructor( ).
mi_child = ii_child_component.
ms_control = is_control.
IF ms_control-show_as_modal = abap_false.
ms_control-show_as_modal = detect_modal( ).
ENDIF.
IF ms_control-page_menu_provider IS NOT BOUND.
ms_control-page_menu_provider = detect_menu_provider( ).
ENDIF.
IF ms_control-page_title_provider IS NOT BOUND.
ms_control-page_title_provider = detect_title_provider( ).
ENDIF.
ENDMETHOD.
METHOD create.
DATA lo_page TYPE REF TO zcl_abapgit_gui_page_hoc.
DATA ls_control TYPE zcl_abapgit_gui_page=>ty_control.
ls_control-page_title = iv_page_title.
ls_control-page_layout = iv_page_layout.
ls_control-page_menu = io_page_menu.
ls_control-page_menu_provider = ii_page_menu_provider.
ls_control-page_title_provider = ii_page_title_provider.
ls_control-extra_css_url = iv_extra_css_url.
ls_control-extra_js_url = iv_extra_js_url.
ls_control-show_as_modal = iv_show_as_modal.
IF ls_control-page_menu_provider IS NOT BOUND. " try component itself
TRY.
ls_control-page_menu_provider ?= ii_child_component.
CATCH cx_sy_move_cast_error.
ENDTRY.
ENDIF.
IF ls_control-page_title_provider IS NOT BOUND. " try component itself
TRY.
ls_control-page_title_provider ?= ii_child_component.
CATCH cx_sy_move_cast_error.
ENDTRY.
ENDIF.
CREATE OBJECT lo_page
EXPORTING
ii_child_component = ii_child_component
is_control = ls_control.
ri_page_wrap = lo_page.
ENDMETHOD.
METHOD detect_menu_provider.
TRY.
ri_ref ?= mi_child.
CATCH cx_sy_move_cast_error.
ENDTRY.
ENDMETHOD.
METHOD detect_modal.
DATA li_modal TYPE REF TO zif_abapgit_gui_modal.
TRY.
li_modal ?= mi_child.
rv_is_modal = li_modal->is_modal( ).
CATCH cx_sy_move_cast_error.
ENDTRY.
ENDMETHOD.
METHOD detect_title_provider.
TRY.
ri_ref ?= mi_child.
CATCH cx_sy_move_cast_error.
ENDTRY.
ENDMETHOD.
METHOD get_child.
ri_child = mi_child.
ENDMETHOD.
METHOD render_content.
IF mi_child IS BOUND.
ri_html = mi_child->render( ).
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PICKLIST ', 'CLASS zcl_abapgit_gui_picklist DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_component
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_event_handler.
INTERFACES zif_abapgit_gui_renderable.
INTERFACES zif_abapgit_gui_page_title.
METHODS constructor
IMPORTING
!it_list TYPE STANDARD TABLE
!iv_id TYPE string OPTIONAL
!iv_in_page TYPE abap_bool DEFAULT abap_false
!iv_title TYPE string DEFAULT ''Choose from list''
!iv_attr_name TYPE abap_compname OPTIONAL
!ii_item_renderer TYPE REF TO zif_abapgit_gui_render_item OPTIONAL
RAISING
zcx_abapgit_exception.
METHODS get_result_idx
RETURNING
VALUE(rv_index) TYPE i.
METHODS get_result_item
CHANGING
!cs_selected TYPE any.
METHODS was_cancelled
RETURNING
VALUE(rv_yes) TYPE abap_bool.
METHODS is_fulfilled
RETURNING
VALUE(rv_yes) TYPE abap_bool.
METHODS id
RETURNING
VALUE(rv_id) TYPE string.
METHODS is_in_page
RETURNING
VALUE(rv_yes) TYPE abap_bool.
METHODS set_id
IMPORTING
iv_id TYPE string
RETURNING
VALUE(ro_me) TYPE REF TO zcl_abapgit_gui_picklist.
METHODS set_in_page
IMPORTING
iv_in_page TYPE abap_bool DEFAULT abap_true
RETURNING
VALUE(ro_me) TYPE REF TO zcl_abapgit_gui_picklist.
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS:
BEGIN OF c_event,
back TYPE string VALUE ''back'',
choose TYPE string VALUE ''choose'',
END OF c_event.
CONSTANTS c_radio_name TYPE string VALUE ''radio''.
DATA mo_form TYPE REF TO zcl_abapgit_html_form.
DATA mo_form_data TYPE REF TO zcl_abapgit_string_map.
DATA mo_form_util TYPE REF TO zcl_abapgit_html_form_utils.
DATA mo_validation_log TYPE REF TO zcl_abapgit_string_map.
DATA mr_list TYPE REF TO data.
DATA mv_selected TYPE i.
DATA mv_cancelled TYPE abap_bool.
DATA mv_fulfilled TYPE abap_bool.
DATA mv_attr_name TYPE abap_compname.
DATA mi_item_renderer TYPE REF TO zif_abapgit_gui_render_item.
DATA mv_in_page TYPE abap_bool.
DATA mv_id TYPE string.
DATA mv_title TYPE string.
METHODS get_form_schema
RETURNING
VALUE(ro_form) TYPE REF TO zcl_abapgit_html_form
RAISING
zcx_abapgit_exception.
METHODS return_state
RETURNING
VALUE(rv_state) TYPE zif_abapgit_gui_event_handler=>ty_handling_result-state.
ENDCLASS.
CLASS zcl_abapgit_gui_picklist IMPLEMENTATION.
METHOD constructor.
FIELD-SYMBOLS <lt_tab> TYPE STANDARD TABLE.
super->constructor( ).
" copy contents of table to local scope
CREATE DATA mr_list LIKE it_list.
ASSIGN mr_list->* TO <lt_tab>.
APPEND LINES OF it_list TO <lt_tab>.
mv_attr_name = to_upper( iv_attr_name ).
mi_item_renderer = ii_item_renderer.
mv_in_page = iv_in_page.
mv_id = iv_id.
mv_title = iv_title.
IF mi_item_renderer IS NOT BOUND AND mv_attr_name IS INITIAL.
zcx_abapgit_exception=>raise( ''Renderer or attr name required'' ).
ENDIF.
CREATE OBJECT mo_form_data.
CREATE OBJECT mo_validation_log.
mo_form = get_form_schema( ).
mo_form_util = zcl_abapgit_html_form_utils=>create( mo_form ).
ENDMETHOD.
METHOD get_form_schema.
FIELD-SYMBOLS <lt_list> TYPE ANY TABLE.
FIELD-SYMBOLS <lv_val> TYPE any.
FIELD-SYMBOLS <ls_row> TYPE any.
DATA lv_index TYPE i.
DATA lv_label TYPE string.
ro_form = zcl_abapgit_html_form=>create( ).
ro_form->radio(
iv_name = c_radio_name
iv_label = mv_title ).
ASSIGN mr_list->* TO <lt_list>.
LOOP AT <lt_list> ASSIGNING <ls_row>.
lv_index = sy-tabix.
IF mv_attr_name IS NOT INITIAL.
ASSIGN COMPONENT mv_attr_name OF STRUCTURE <ls_row> TO <lv_val>.
ASSERT sy-subrc = 0.
lv_label = <lv_val>.
ELSEIF mi_item_renderer IS BOUND.
lv_label = mi_item_renderer->render(
iv_item = <ls_row>
iv_index = lv_index )->render( ).
ENDIF.
ro_form->option(
iv_label = lv_label
iv_value = |{ lv_index }| ).
ENDLOOP.
ro_form->command(
iv_label = ''Choose''
iv_cmd_type = zif_abapgit_html_form=>c_cmd_type-input_main
iv_action = c_event-choose
)->command(
iv_label = ''Back''
iv_action = c_event-back ).
ENDMETHOD.
METHOD get_result_idx.
rv_index = mv_selected.
ENDMETHOD.
METHOD get_result_item.
FIELD-SYMBOLS <lt_tab> TYPE STANDARD TABLE.
CLEAR cs_selected.
IF mv_selected > 0.
ASSIGN mr_list->* TO <lt_tab>.
READ TABLE <lt_tab> INDEX mv_selected INTO cs_selected.
ASSERT sy-subrc = 0.
ENDIF.
ENDMETHOD.
METHOD id.
rv_id = mv_id.
ENDMETHOD.
METHOD is_fulfilled.
rv_yes = mv_fulfilled.
ENDMETHOD.
METHOD is_in_page.
rv_yes = mv_in_page.
ENDMETHOD.
METHOD return_state.
IF mv_in_page = abap_true.
rv_state = zcl_abapgit_gui=>c_event_state-re_render.
ELSE.
rv_state = zcl_abapgit_gui=>c_event_state-go_back.
ENDIF.
ENDMETHOD.
METHOD set_id.
mv_id = iv_id.
ro_me = me.
ENDMETHOD.
METHOD set_in_page.
mv_in_page = iv_in_page.
ro_me = me.
ENDMETHOD.
METHOD was_cancelled.
rv_yes = mv_cancelled.
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
mo_form_data = mo_form_util->normalize( ii_event->form_data( ) ).
mo_validation_log->clear( ).
CASE ii_event->mv_action.
WHEN c_event-back OR zif_abapgit_definitions=>c_action-go_back.
" Handle go_back as a "graceful back" - implicit cancel by F3/ESC
mv_fulfilled = abap_true.
mv_cancelled = abap_true.
rs_handled-state = return_state( ).
WHEN c_event-choose.
mv_selected = mo_form_data->get( c_radio_name ).
IF mv_selected = 0.
mo_validation_log->set(
iv_key = c_radio_name
iv_val = ''You have to select one item'' ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ELSE.
mv_fulfilled = abap_true.
rs_handled-state = return_state( ).
ENDIF.
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_gui_page_title~get_page_title.
rv_title = mv_title.
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
ri_html = zcl_abapgit_html=>create( mo_form->render(
io_values = mo_form_data
io_validation_log = mo_validation_log ) ).
register_handlers( ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_HTML_ACTION_UTILS ', 'CLASS zcl_abapgit_html_action_utils DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS jump_encode
IMPORTING
!iv_obj_type TYPE tadir-object
!iv_obj_name TYPE tadir-obj_name
!iv_filename TYPE string OPTIONAL
RETURNING
VALUE(rv_string) TYPE string .
CLASS-METHODS dir_encode
IMPORTING
!iv_path TYPE string
RETURNING
VALUE(rv_string) TYPE string .
CLASS-METHODS file_encode
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
!ig_file TYPE any
!iv_extra TYPE clike OPTIONAL
RETURNING
VALUE(rv_string) TYPE string .
CLASS-METHODS obj_encode
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
!ig_object TYPE any
RETURNING
VALUE(rv_string) TYPE string .
CLASS-METHODS dbkey_encode
IMPORTING
!is_key TYPE zif_abapgit_persistence=>ty_content
RETURNING
VALUE(rv_string) TYPE string .
PROTECTED SECTION.
PRIVATE SECTION.
TYPES: BEGIN OF ty_name_value,
name TYPE string,
value TYPE string,
END OF ty_name_value.
TYPES ty_name_value_tt TYPE STANDARD TABLE OF ty_name_value WITH DEFAULT KEY.
CLASS-METHODS add_field
IMPORTING
!iv_name TYPE string
!ig_field TYPE any
CHANGING
!ct_field TYPE ty_name_value_tt .
CLASS-METHODS fields_to_string
IMPORTING
!it_fields TYPE ty_name_value_tt
RETURNING
VALUE(rv_string) TYPE string.
ENDCLASS.
CLASS zcl_abapgit_html_action_utils IMPLEMENTATION.
METHOD add_field.
DATA ls_field LIKE LINE OF ct_field.
FIELD-SYMBOLS <lg_src> TYPE any.
ls_field-name = iv_name.
CASE cl_abap_typedescr=>describe_by_data( ig_field )->kind.
WHEN cl_abap_typedescr=>kind_elem.
ls_field-value = ig_field.
WHEN cl_abap_typedescr=>kind_struct.
ASSIGN COMPONENT iv_name OF STRUCTURE ig_field TO <lg_src>.
ASSERT <lg_src> IS ASSIGNED.
ls_field-value = <lg_src>.
WHEN OTHERS.
ASSERT 0 = 1.
ENDCASE.
APPEND ls_field TO ct_field.
ENDMETHOD.
METHOD dbkey_encode.
DATA lt_fields TYPE ty_name_value_tt.
add_field( EXPORTING iv_name = ''TYPE''
ig_field = is_key-type CHANGING ct_field = lt_fields ).
add_field( EXPORTING iv_name = ''VALUE''
ig_field = is_key-value CHANGING ct_field = lt_fields ).
rv_string = fields_to_string( lt_fields ).
ENDMETHOD.
METHOD dir_encode.
DATA lt_fields TYPE ty_name_value_tt.
add_field( EXPORTING iv_name = ''PATH''
ig_field = iv_path CHANGING ct_field = lt_fields ).
rv_string = fields_to_string( lt_fields ).
ENDMETHOD.
METHOD fields_to_string.
* There is no equivalent to cl_http_utility=>fields_to_string released in ABAP Cloud,
* see cl_web_http_utility
DATA lt_tab TYPE STANDARD TABLE OF string WITH DEFAULT KEY.
DATA lv_str TYPE string.
DATA ls_field LIKE LINE OF it_fields.
LOOP AT it_fields INTO ls_field.
ls_field-value = cl_http_utility=>escape_url( ls_field-value ).
lv_str = ls_field-name && ''='' && ls_field-value.
APPEND lv_str TO lt_tab.
ENDLOOP.
rv_string = concat_lines_of(
table = lt_tab
sep = ''&'' ).
ENDMETHOD.
METHOD file_encode.
DATA lt_fields TYPE ty_name_value_tt.
add_field(
EXPORTING
iv_name = ''KEY''
ig_field = iv_key
CHANGING
ct_field = lt_fields ).
add_field(
EXPORTING
iv_name = ''PATH''
ig_field = ig_file
CHANGING
ct_field = lt_fields ).
add_field(
EXPORTING
iv_name = ''FILENAME''
ig_field = ig_file
CHANGING
ct_field = lt_fields ).
IF iv_extra IS SUPPLIED.
add_field(
EXPORTING
iv_name = ''EXTRA''
ig_field = iv_extra
CHANGING
ct_field = lt_fields ).
ENDIF.
rv_string = fields_to_string( lt_fields ).
ENDMETHOD.
METHOD jump_encode.
DATA lt_fields TYPE ty_name_value_tt.
add_field( EXPORTING iv_name = ''TYPE''
ig_field = iv_obj_type CHANGING ct_field = lt_fields ).
add_field( EXPORTING iv_name = ''NAME''
ig_field = iv_obj_name CHANGING ct_field = lt_fields ).
IF iv_filename IS NOT INITIAL.
add_field( EXPORTING iv_name = ''FILE''
ig_field = iv_filename CHANGING ct_field = lt_fields ).
ENDIF.
rv_string = fields_to_string( lt_fields ).
ENDMETHOD.
METHOD obj_encode.
DATA lt_fields TYPE ty_name_value_tt.
add_field( EXPORTING iv_name = ''KEY''
ig_field = iv_key CHANGING ct_field = lt_fields ).
add_field( EXPORTING iv_name = ''OBJ_TYPE''
ig_field = ig_object CHANGING ct_field = lt_fields ).
add_field( EXPORTING iv_name = ''OBJ_NAME''
ig_field = ig_object CHANGING ct_field = lt_fields ).
rv_string = fields_to_string( lt_fields ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_HTML_FORM ', 'CLASS zcl_abapgit_html_form DEFINITION
PUBLIC
FINAL
INHERITING FROM zcl_abapgit_gui_component
CREATE PRIVATE .
PUBLIC SECTION.
INTERFACES zif_abapgit_html_form .
INTERFACES zif_abapgit_gui_hotkeys .
CLASS-METHODS create
IMPORTING
!iv_form_id TYPE csequence OPTIONAL
!iv_help_page TYPE csequence OPTIONAL
RETURNING
VALUE(ro_form) TYPE REF TO zcl_abapgit_html_form .
METHODS render
IMPORTING
!iv_form_class TYPE csequence DEFAULT ''dialog-form''
!io_values TYPE REF TO zcl_abapgit_string_map
!io_validation_log TYPE REF TO zcl_abapgit_string_map OPTIONAL
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
METHODS command
IMPORTING
!iv_label TYPE csequence
!iv_action TYPE csequence
!iv_cmd_type TYPE i DEFAULT zif_abapgit_html_form=>c_cmd_type-input
RETURNING
VALUE(ro_self) TYPE REF TO zcl_abapgit_html_form .
METHODS text
IMPORTING
!iv_label TYPE csequence
!iv_name TYPE csequence
!iv_hint TYPE csequence OPTIONAL
!iv_required TYPE abap_bool DEFAULT abap_false
!iv_upper_case TYPE abap_bool DEFAULT abap_false
!iv_readonly TYPE abap_bool DEFAULT abap_false
!iv_password TYPE abap_bool DEFAULT abap_false
!iv_condense TYPE abap_bool OPTIONAL
!iv_placeholder TYPE csequence OPTIONAL
!iv_side_action TYPE csequence OPTIONAL
!iv_min TYPE i DEFAULT cl_abap_math=>min_int4
!iv_max TYPE i DEFAULT cl_abap_math=>max_int4
RETURNING
VALUE(ro_self) TYPE REF TO zcl_abapgit_html_form .
METHODS textarea
IMPORTING
!iv_label TYPE csequence
!iv_name TYPE csequence
!iv_hint TYPE csequence OPTIONAL
!iv_required TYPE abap_bool DEFAULT abap_false
!iv_readonly TYPE abap_bool DEFAULT abap_false
!iv_placeholder TYPE csequence OPTIONAL
!iv_rows TYPE i OPTIONAL
!iv_cols TYPE i OPTIONAL
!iv_upper_case TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(ro_self) TYPE REF TO zcl_abapgit_html_form .
METHODS number
IMPORTING
!iv_label TYPE csequence
!iv_name TYPE csequence
!iv_hint TYPE csequence OPTIONAL
!iv_required TYPE abap_bool DEFAULT abap_false
!iv_readonly TYPE abap_bool DEFAULT abap_false
!iv_min TYPE i DEFAULT cl_abap_math=>min_int4
!iv_max TYPE i DEFAULT cl_abap_math=>max_int4
RETURNING
VALUE(ro_self) TYPE REF TO zcl_abapgit_html_form .
METHODS checkbox
IMPORTING
!iv_label TYPE csequence
!iv_name TYPE csequence
!iv_hint TYPE csequence OPTIONAL
!iv_readonly TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(ro_self) TYPE REF TO zcl_abapgit_html_form .
METHODS radio
IMPORTING
!iv_label TYPE csequence
!iv_name TYPE csequence
!iv_default_value TYPE csequence OPTIONAL
!iv_hint TYPE csequence OPTIONAL
!iv_condense TYPE abap_bool DEFAULT abap_false
!iv_action TYPE csequence OPTIONAL
RETURNING
VALUE(ro_self) TYPE REF TO zcl_abapgit_html_form .
METHODS option
IMPORTING
!iv_label TYPE csequence
!iv_value TYPE csequence
RETURNING
VALUE(ro_self) TYPE REF TO zcl_abapgit_html_form .
METHODS table
IMPORTING
!iv_label TYPE csequence
!iv_name TYPE csequence
!iv_hint TYPE csequence OPTIONAL
RETURNING
VALUE(ro_self) TYPE REF TO zcl_abapgit_html_form .
METHODS column
IMPORTING
!iv_label TYPE csequence
!iv_width TYPE csequence OPTIONAL
!iv_readonly TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(ro_self) TYPE REF TO zcl_abapgit_html_form .
METHODS start_group
IMPORTING
!iv_label TYPE csequence
!iv_name TYPE csequence
!iv_hint TYPE csequence OPTIONAL
RETURNING
VALUE(ro_self) TYPE REF TO zcl_abapgit_html_form .
METHODS hidden
IMPORTING
!iv_name TYPE csequence
RETURNING
VALUE(ro_self) TYPE REF TO zcl_abapgit_html_form .
METHODS get_fields
RETURNING
VALUE(rt_fields) TYPE zif_abapgit_html_form=>ty_fields .
PROTECTED SECTION.
PRIVATE SECTION.
TYPES:
BEGIN OF ty_attr,
value TYPE string,
error TYPE string,
hint TYPE string,
readonly TYPE string,
placeholder TYPE string,
required TYPE string,
autofocus TYPE string,
END OF ty_attr .
DATA mv_webgui TYPE abap_bool.
DATA mt_fields TYPE zif_abapgit_html_form=>ty_fields .
DATA:
mt_commands TYPE STANDARD TABLE OF zif_abapgit_html_form=>ty_command .
DATA mv_form_id TYPE string .
DATA mv_help_page TYPE string .
METHODS render_field
IMPORTING
!ii_html TYPE REF TO zif_abapgit_html
!io_values TYPE REF TO zcl_abapgit_string_map
!io_validation_log TYPE REF TO zcl_abapgit_string_map
!is_field TYPE zif_abapgit_html_form=>ty_field
!iv_autofocus TYPE abap_bool .
METHODS render_field_text
IMPORTING
!ii_html TYPE REF TO zif_abapgit_html
!is_field TYPE zif_abapgit_html_form=>ty_field
!is_attr TYPE ty_attr .
METHODS render_field_textarea
IMPORTING
!ii_html TYPE REF TO zif_abapgit_html
!is_field TYPE zif_abapgit_html_form=>ty_field
!is_attr TYPE ty_attr .
METHODS render_field_checkbox
IMPORTING
!ii_html TYPE REF TO zif_abapgit_html
!is_field TYPE zif_abapgit_html_form=>ty_field
!is_attr TYPE ty_attr .
METHODS render_field_radio
IMPORTING
!ii_html TYPE REF TO zif_abapgit_html
!is_field TYPE zif_abapgit_html_form=>ty_field
!is_attr TYPE ty_attr .
METHODS render_field_table
IMPORTING
!ii_html TYPE REF TO zif_abapgit_html
!is_field TYPE zif_abapgit_html_form=>ty_field
!is_attr TYPE ty_attr
!io_values TYPE REF TO zcl_abapgit_string_map .
METHODS render_command
IMPORTING
!ii_html TYPE REF TO zif_abapgit_html
!is_cmd TYPE zif_abapgit_html_form=>ty_command .
METHODS render_command_link
IMPORTING
!ii_html TYPE REF TO zif_abapgit_html
!is_cmd TYPE zif_abapgit_html_form=>ty_command .
METHODS render_field_hidden
IMPORTING
!ii_html TYPE REF TO zif_abapgit_html
!is_field TYPE zif_abapgit_html_form=>ty_field
!is_attr TYPE ty_attr .
ENDCLASS.
CLASS zcl_abapgit_html_form IMPLEMENTATION.
METHOD checkbox.
DATA ls_field LIKE LINE OF mt_fields.
ls_field-type = zif_abapgit_html_form=>c_field_type-checkbox.
ls_field-name = iv_name.
ls_field-label = iv_label.
ls_field-hint = iv_hint.
ls_field-readonly = iv_readonly.
APPEND ls_field TO mt_fields.
ro_self = me.
ENDMETHOD.
METHOD column.
FIELD-SYMBOLS <ls_last> LIKE LINE OF mt_fields.
DATA ls_column LIKE LINE OF <ls_last>-subitems.
DATA lv_size TYPE i.
lv_size = lines( mt_fields ).
ASSERT lv_size > 0. " Exception ? Maybe add zcx_no_check ?
READ TABLE mt_fields INDEX lv_size ASSIGNING <ls_last>.
ASSERT sy-subrc = 0.
ASSERT <ls_last>-type = zif_abapgit_html_form=>c_field_type-table.
ls_column-label = iv_label.
ls_column-value = iv_width.
ls_column-readonly = iv_readonly.
APPEND ls_column TO <ls_last>-subitems.
ro_self = me.
ENDMETHOD.
METHOD command.
DATA ls_cmd LIKE LINE OF mt_commands.
ASSERT iv_cmd_type BETWEEN 1 AND 4.
ls_cmd-label = iv_label.
ls_cmd-action = iv_action.
ls_cmd-cmd_type = iv_cmd_type.
APPEND ls_cmd TO mt_commands.
ro_self = me.
ENDMETHOD.
METHOD create.
DATA lv_ts TYPE timestampl.
CREATE OBJECT ro_form.
ro_form->mv_form_id = iv_form_id.
ro_form->mv_help_page = iv_help_page.
IF ro_form->mv_form_id IS INITIAL.
GET TIME STAMP FIELD lv_ts.
ro_form->mv_form_id = |form_{ lv_ts }|.
ENDIF.
ro_form->mv_webgui = zcl_abapgit_ui_factory=>get_frontend_services( )->is_webgui( ).
ENDMETHOD.
METHOD get_fields.
rt_fields = mt_fields.
ENDMETHOD.
METHOD hidden.
DATA ls_field LIKE LINE OF mt_fields.
ls_field-type = zif_abapgit_html_form=>c_field_type-hidden.
ls_field-name = iv_name.
APPEND ls_field TO mt_fields.
ro_self = me.
ENDMETHOD.
METHOD number.
DATA ls_field LIKE LINE OF mt_fields.
ls_field-type = zif_abapgit_html_form=>c_field_type-number.
ls_field-name = iv_name.
ls_field-label = iv_label.
ls_field-readonly = iv_readonly.
ls_field-min = iv_min.
ls_field-max = iv_max.
ls_field-hint = iv_hint.
ls_field-required = iv_required.
APPEND ls_field TO mt_fields.
ro_self = me.
ENDMETHOD.
METHOD option.
FIELD-SYMBOLS <ls_last> LIKE LINE OF mt_fields.
DATA ls_option LIKE LINE OF <ls_last>-subitems.
DATA lv_size TYPE i.
lv_size = lines( mt_fields ).
ASSERT lv_size > 0. " Exception ? Maybe add zcx_no_check ?
READ TABLE mt_fields INDEX lv_size ASSIGNING <ls_last>.
ASSERT sy-subrc = 0.
ASSERT <ls_last>-type = zif_abapgit_html_form=>c_field_type-radio. " Or dropdown - TODO in future
ls_option-label = iv_label.
ls_option-value = iv_value.
APPEND ls_option TO <ls_last>-subitems.
ro_self = me.
ENDMETHOD.
METHOD radio.
DATA ls_field LIKE LINE OF mt_fields.
ls_field-type = zif_abapgit_html_form=>c_field_type-radio.
ls_field-name = iv_name.
ls_field-label = iv_label.
ls_field-default_value = iv_default_value.
ls_field-hint = iv_hint.
ls_field-click = iv_action.
" put options into one column instead of side-by-side
ls_field-condense = iv_condense.
APPEND ls_field TO mt_fields.
ro_self = me.
ENDMETHOD.
METHOD render.
FIELD-SYMBOLS <ls_field> LIKE LINE OF mt_fields.
FIELD-SYMBOLS <ls_cmd> LIKE LINE OF mt_commands.
DATA lv_hint TYPE string.
DATA ls_form_id TYPE string.
DATA ls_form_action TYPE string.
DATA lv_cur_group TYPE string.
DATA lv_url TYPE string.
DATA lv_autofocus TYPE abap_bool.
IF mv_form_id IS NOT INITIAL.
ls_form_id = | id="{ mv_form_id }"|.
ENDIF.
LOOP AT mt_commands ASSIGNING <ls_cmd> WHERE cmd_type = zif_abapgit_html_form=>c_cmd_type-input_main.
ls_form_action = | action="sapevent:{ <ls_cmd>-action }"|.
EXIT.
ENDLOOP.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( |<div class="dialog { iv_form_class }">| ). " to center use ''dialog-form-center''
ri_html->add( |<form method="post"{ ls_form_id }{ ls_form_action }>| ).
" Add hidden button that triggers main command when pressing enter
LOOP AT mt_commands ASSIGNING <ls_cmd> WHERE cmd_type = zif_abapgit_html_form=>c_cmd_type-input_main.
ri_html->add( |<button type="submit" formaction="sapevent:{ <ls_cmd>-action }" class="hidden-submit"|
&& | aria-hidden="true" tabindex="-1"></button>| ).
EXIT.
ENDLOOP.
lv_autofocus = abap_true.
LOOP AT mt_fields ASSIGNING <ls_field>.
AT FIRST.
IF <ls_field>-type <> zif_abapgit_html_form=>c_field_type-field_group.
ri_html->add( |<ul>| ).
ENDIF.
ENDAT.
IF <ls_field>-type = zif_abapgit_html_form=>c_field_type-field_group.
IF lv_cur_group IS NOT INITIAL AND lv_cur_group <> <ls_field>-name.
ri_html->add( |</ul>| ).
ri_html->add( |</fieldset>| ).
ENDIF.
IF <ls_field>-hint IS NOT INITIAL.
lv_hint = | title="{ <ls_field>-hint }"|.
ELSE.
lv_hint = ''''.
ENDIF.
lv_cur_group = <ls_field>-name.
ri_html->add( |<fieldset name="{ <ls_field>-name }">| ).
ri_html->add( |<legend{ lv_hint }>{ <ls_field>-label }</legend>| ).
ri_html->add( |<ul>| ).
CONTINUE.
ENDIF.
render_field(
ii_html = ri_html
io_values = io_values
io_validation_log = io_validation_log
is_field = <ls_field>
iv_autofocus = lv_autofocus ).
lv_autofocus = abap_false.
AT LAST.
ri_html->add( |</ul>| ).
IF lv_cur_group IS NOT INITIAL.
ri_html->add( |</fieldset>| ).
ENDIF.
ENDAT.
ENDLOOP.
ri_html->add( |<ul>| ).
ri_html->add( |<li class="dialog-commands">| ).
IF mv_help_page IS NOT INITIAL.
lv_url = escape( val = mv_help_page
format = cl_abap_format=>e_url ).
ri_html->add_a(
iv_txt = zcl_abapgit_gui_buttons=>help( )
iv_act = |{ zif_abapgit_definitions=>c_action-url }?url={ lv_url }|
iv_class = ''dialog-help''
iv_title = ''Help'' ).
ENDIF.
LOOP AT mt_commands ASSIGNING <ls_cmd>.
render_command(
ii_html = ri_html
is_cmd = <ls_cmd> ).
ENDLOOP.
ri_html->add( |</li>| ).
ri_html->add( |</ul>| ).
ri_html->add( |</form>| ).
ri_html->add( |</div>| ).
register_handlers( ).
ENDMETHOD.
METHOD render_command.
" HTML GUI supports only links for submitting forms
IF mv_webgui = abap_true.
render_command_link(
is_cmd = is_cmd
ii_html = ii_html ).
RETURN.
ENDIF.
CASE is_cmd-cmd_type.
WHEN zif_abapgit_html_form=>c_cmd_type-link.
render_command_link(
is_cmd = is_cmd
ii_html = ii_html ).
WHEN zif_abapgit_html_form=>c_cmd_type-button.
ii_html->add( |<button type="submit" name="action" value="{ is_cmd-action }"|
&& | class="action-commands">{ is_cmd-label }</button>| ).
WHEN zif_abapgit_html_form=>c_cmd_type-input.
ii_html->add( |<input type="submit" value="{ is_cmd-label }" formaction="sapevent:{ is_cmd-action }">| ).
WHEN zif_abapgit_html_form=>c_cmd_type-input_main.
ii_html->add( |<input type="submit" value="{ is_cmd-label }" class="main">| ).
WHEN OTHERS.
ASSERT 0 = 1.
ENDCASE.
ENDMETHOD.
METHOD render_command_link.
DATA lv_class TYPE string VALUE ''dialog-commands''.
IF is_cmd-cmd_type = zif_abapgit_html_form=>c_cmd_type-input_main.
lv_class = lv_class && '' main''.
ENDIF.
ii_html->add_a(
iv_txt = is_cmd-label
iv_act = is_cmd-action
iv_class = lv_class ).
ENDMETHOD.
METHOD render_field.
DATA:
ls_attr TYPE ty_attr,
lv_item_class TYPE string.
" Get value and validation error
ls_attr-value = io_values->get( is_field-name ).
IF is_field-type <> zif_abapgit_html_form=>c_field_type-textarea.
ls_attr-value = escape( val = ls_attr-value
format = cl_abap_format=>e_html_attr ).
ENDIF.
IF io_validation_log IS BOUND.
ls_attr-error = io_validation_log->get( is_field-name ).
IF ls_attr-error IS NOT INITIAL.
ls_attr-error = escape( val = ls_attr-error
format = cl_abap_format=>e_html_text ).
ls_attr-error = |<small>{ ls_attr-error }</small>|.
ENDIF.
ENDIF.
" Prepare field attributes
IF is_field-required = abap_true.
ls_attr-required = '' <em>*</em>''.
ENDIF.
IF is_field-hint IS NOT INITIAL.
ls_attr-hint = escape( val = is_field-hint
format = cl_abap_format=>e_html_attr ).
ls_attr-hint = | title="{ ls_attr-hint }"|.
ENDIF.
IF is_field-placeholder IS NOT INITIAL.
ls_attr-placeholder = escape( val = is_field-placeholder
format = cl_abap_format=>e_html_attr ).
ls_attr-placeholder = | placeholder="{ ls_attr-placeholder }"|.
ENDIF.
IF is_field-readonly = abap_true.
ls_attr-readonly = '' readonly''.
ENDIF.
IF iv_autofocus = abap_true.
ls_attr-autofocus = '' autofocus''.
ENDIF.
" Prepare item class
lv_item_class = is_field-item_class.
IF ls_attr-error IS NOT INITIAL.
lv_item_class = condense( lv_item_class && '' error'' ).
ENDIF.
IF is_field-type = zif_abapgit_html_form=>c_field_type-text AND is_field-max BETWEEN 1 AND 20.
" Reduced width for short fields
lv_item_class = lv_item_class && '' w40''.
ENDIF.
IF is_field-type = zif_abapgit_html_form=>c_field_type-hidden.
lv_item_class = lv_item_class && '' hidden''.
ENDIF.
IF lv_item_class IS NOT INITIAL.
lv_item_class = | class="{ lv_item_class }"|.
ENDIF.
" Render field
ii_html->add( |<li{ lv_item_class }>| ).
CASE is_field-type.
WHEN zif_abapgit_html_form=>c_field_type-text OR zif_abapgit_html_form=>c_field_type-number.
render_field_text(
ii_html = ii_html
is_field = is_field
is_attr = ls_attr ).
WHEN zif_abapgit_html_form=>c_field_type-textarea.
render_field_textarea(
ii_html = ii_html
is_field = is_field
is_attr = ls_attr ).
WHEN zif_abapgit_html_form=>c_field_type-checkbox.
render_field_checkbox(
ii_html = ii_html
is_field = is_field
is_attr = ls_attr ).
WHEN zif_abapgit_html_form=>c_field_type-radio.
render_field_radio(
ii_html = ii_html
is_field = is_field
is_attr = ls_attr ).
WHEN zif_abapgit_html_form=>c_field_type-table.
render_field_table(
ii_html = ii_html
is_field = is_field
is_attr = ls_attr
io_values = io_values ).
WHEN zif_abapgit_html_form=>c_field_type-hidden.
render_field_hidden(
ii_html = ii_html
is_field = is_field
is_attr = ls_attr ).
WHEN OTHERS.
ASSERT 1 = 0.
ENDCASE.
ii_html->add( ''</li>'' ).
ENDMETHOD.
METHOD render_field_checkbox.
DATA lv_checked TYPE string.
DATA lv_disabled TYPE string.
IF is_attr-error IS NOT INITIAL.
ii_html->add( is_attr-error ).
ENDIF.
IF is_attr-value = abap_true OR is_attr-value = ''on''.
" boolc return \` \` which is not initial -> bug after 1st validation
lv_checked = '' checked''.
ENDIF.
IF is_attr-readonly IS NOT INITIAL.
lv_disabled = '' disabled''.
ENDIF.
ii_html->add( |<input type="checkbox" name="{ is_field-name }" id="{ is_field-name }"| &&
|{ lv_checked }{ lv_disabled }{ is_attr-autofocus }>| ).
ii_html->add( |<label for="{ is_field-name }"{ is_attr-hint }>{ is_field-label }</label>| ).
ENDMETHOD.
METHOD render_field_hidden.
ii_html->add( |<input type="hidden" name="{ is_field-name }" id="{ is_field-name }" value="{ is_attr-value }">| ).
ENDMETHOD.
METHOD render_field_radio.
DATA:
lv_checked TYPE string,
lv_opt_id TYPE string,
lv_opt_value TYPE string,
lv_onclick TYPE string.
FIELD-SYMBOLS <ls_opt> LIKE LINE OF is_field-subitems.
ii_html->add( |<label{ is_attr-hint }>{ is_field-label }</label>| ).
IF is_attr-error IS NOT INITIAL.
ii_html->add( is_attr-error ).
ENDIF.
ii_html->add( |<div class="radio-container">| ).
LOOP AT is_field-subitems ASSIGNING <ls_opt>.
lv_opt_id = |{ is_field-name }{ sy-tabix }|.
lv_opt_value = escape( val = <ls_opt>-value
format = cl_abap_format=>e_html_attr ).
CLEAR lv_checked.
IF is_attr-value = lv_opt_value OR ( is_attr-value IS INITIAL AND lv_opt_value = is_field-default_value ).
lv_checked = '' checked''.
ENDIF.
" With edge browser control radio buttons aren''t checked automatically when
" activated with link hints. Therefore we need to check them manually.
IF is_field-click IS NOT INITIAL.
lv_onclick = |onclick="|
&& |var form = document.getElementById(''{ mv_form_id }'');|
&& |document.getElementById(''{ lv_opt_id }'').checked = true;|
&& |form.action = ''sapevent:{ is_field-click }'';|
&& |form.submit();"|.
ELSE.
lv_onclick = |onclick="document.getElementById(''{ lv_opt_id }'').checked = true;"|.
ENDIF.
IF is_field-condense = abap_true.
ii_html->add( ''<div>'' ).
ENDIF.
ii_html->add( |<input type="radio" name="{ is_field-name }" id="{ lv_opt_id }"|
&& | value="{ lv_opt_value }"{ lv_checked }{ is_attr-autofocus }|
&& | { lv_onclick }>| ).
ii_html->add( |<label for="{ lv_opt_id }">{ <ls_opt>-label }</label>| ).
IF is_field-condense = abap_true.
ii_html->add( ''</div>'' ).
ENDIF.
ENDLOOP.
ii_html->add( ''</div>'' ).
ENDMETHOD.
METHOD render_field_table.
DATA:
lv_value TYPE string,
lv_readonly TYPE string,
lv_rows TYPE i,
lv_cell_id TYPE string.
FIELD-SYMBOLS <ls_subitem> LIKE LINE OF is_field-subitems.
ii_html->add( |<label for="{ is_field-name }"{ is_attr-hint }>{ is_field-label }</label>| ).
IF is_attr-error IS NOT INITIAL.
ii_html->add( is_attr-error ).
ENDIF.
lv_rows = io_values->get( |{ is_field-name }-{ zif_abapgit_html_form=>c_rows }| ).
" Render table only if there are some data rows
IF lv_rows > 0.
ii_html->add( |<table name="{ is_field-name }" id="{ is_field-name }" class="table-container">| ).
ii_html->add( |<thead>| ).
ii_html->add( |<tr>| ).
LOOP AT is_field-subitems ASSIGNING <ls_subitem>.
CLEAR lv_value.
IF <ls_subitem>-value IS NOT INITIAL.
lv_value = escape( val = <ls_subitem>-value
format = cl_abap_format=>e_html_attr ).
lv_value = | width="{ lv_value }"|.
ENDIF.
ii_html->add( |<td{ lv_value }>{ <ls_subitem>-label }</td>| ).
ENDLOOP.
ii_html->add( |</tr>| ).
ii_html->add( |</thead>| ).
ii_html->add( |<tbody>| ).
DO lv_rows TIMES.
lv_rows = sy-index.
ii_html->add( |<tr>| ).
LOOP AT is_field-subitems ASSIGNING <ls_subitem>.
lv_cell_id = |{ is_field-name }-{ lv_rows }-{ sy-tabix }|.
lv_value = escape( val = io_values->get( lv_cell_id )
format = cl_abap_format=>e_html_attr ).
CLEAR lv_readonly.
IF <ls_subitem>-readonly = abap_true.
lv_readonly = | readonly|.
ENDIF.
ii_html->add( |<td><input type="text" name="{ lv_cell_id }" id="{
lv_cell_id }" value="{ lv_value }"{ lv_readonly }></td>| ).
ENDLOOP.
ii_html->add( |</tr>| ).
ENDDO.
ii_html->add( |</tbody>| ).
ii_html->add( |</table>| ).
ELSE.
ii_html->add( |<input type="text" name="{ is_field-name }" id="{
is_field-name }" value="Not available" readonly>| ).
ENDIF.
" Hidden field with number of rows to simplify getting values from form
lv_value = |{ is_field-name }-{ zif_abapgit_html_form=>c_rows }|.
ii_html->add( |<input type="number" name="{ lv_value }" id="{ lv_value }"|
&& | value="{ lv_rows }" style="display:none">| ).
ENDMETHOD.
METHOD render_field_text.
DATA:
lv_type TYPE string,
lv_minlength TYPE string,
lv_maxlength TYPE string.
ii_html->add( |<label for="{ is_field-name }"{ is_attr-hint }>{ is_field-label }{ is_attr-required }</label>| ).
IF is_attr-error IS NOT INITIAL.
ii_html->add( is_attr-error ).
ENDIF.
IF is_field-side_action IS NOT INITIAL.
ii_html->add( ''<div class="input-container">'' ). " Ugly :(
ENDIF.
IF is_field-type = zif_abapgit_html_form=>c_field_type-number.
lv_type = ''number''.
ELSEIF is_field-password = abap_true.
lv_type = ''password''.
ELSE.
lv_type = ''text''.
ENDIF.
IF is_field-min > 0.
lv_minlength = | minlength={ is_field-min }|.
ENDIF.
IF is_field-max > 0 AND is_field-max < cl_abap_math=>max_int4.
lv_maxlength = | maxlength={ is_field-max }|.
ENDIF.
ii_html->add( |<input type="{ lv_type }" name="{ is_field-name }" id="{ is_field-name }"|
&& | value="{ is_attr-value }"{ is_field-dblclick }{ is_attr-placeholder }|
&& |{ is_attr-readonly }{ is_attr-autofocus }{ lv_minlength }{ lv_maxlength }>| ).
IF is_field-side_action IS NOT INITIAL.
ii_html->add( ''</div>'' ).
ii_html->add( ''<div class="command-container">'' ).
ii_html->add( |<input type="submit" value="…" formaction="sapevent:{ is_field-side_action }"|
&& | title="{ is_field-label }">| ).
ii_html->add( ''</div>'' ).
ENDIF.
ENDMETHOD.
METHOD render_field_textarea.
DATA lv_rows TYPE string.
DATA lv_cols TYPE string.
DATA lv_html TYPE string.
ii_html->add( |<label for="{ is_field-name }"{ is_attr-hint }>{ is_field-label }{ is_attr-required }</label>| ).
IF is_attr-error IS NOT INITIAL.
ii_html->add( is_attr-error ).
ENDIF.
IF is_field-rows > 0.
lv_rows = | rows="{ is_field-rows }"|.
ELSEIF is_attr-value IS NOT INITIAL.
lv_rows = | rows="{ lines( zcl_abapgit_convert=>split_string( is_attr-value ) ) + 1 }"|.
ENDIF.
IF is_field-cols > 0.
lv_cols = | cols="{ is_field-cols }"|.
ENDIF.
" Avoid adding line-breaks inside textarea tag (except for the actual value)
lv_html = |<textarea name="{ is_field-name }" id="{ is_field-name }"{ lv_rows }{ lv_cols }|
&& |{ is_attr-readonly }{ is_attr-autofocus }{ is_attr-placeholder }>|.
lv_html = lv_html && escape( val = is_attr-value
format = cl_abap_format=>e_html_attr ).
lv_html = lv_html && |</textarea>|.
ii_html->add( lv_html ).
ENDMETHOD.
METHOD start_group.
DATA ls_field LIKE LINE OF mt_fields.
ls_field-type = zif_abapgit_html_form=>c_field_type-field_group.
ls_field-label = iv_label.
ls_field-name = iv_name.
ls_field-hint = iv_hint.
APPEND ls_field TO mt_fields.
ro_self = me.
ENDMETHOD.
METHOD table.
DATA ls_field LIKE LINE OF mt_fields.
ls_field-type = zif_abapgit_html_form=>c_field_type-table.
ls_field-name = iv_name.
ls_field-label = iv_label.
ls_field-hint = iv_hint.
APPEND ls_field TO mt_fields.
ro_self = me.
ENDMETHOD.
METHOD text.
DATA ls_field LIKE LINE OF mt_fields.
ls_field-type = zif_abapgit_html_form=>c_field_type-text.
ls_field-name = iv_name.
ls_field-label = iv_label.
ls_field-upper_case = iv_upper_case.
ls_field-readonly = iv_readonly.
ls_field-min = iv_min.
ls_field-max = iv_max.
ls_field-password = iv_password.
ls_field-condense = iv_condense.
ls_field-hint = iv_hint.
ls_field-required = iv_required.
ls_field-placeholder = iv_placeholder.
IF iv_side_action IS NOT INITIAL AND mv_form_id IS NOT INITIAL.
ls_field-item_class = ''with-command''.
ls_field-side_action = iv_side_action.
ls_field-dblclick = | ondblclick="document.getElementById(''{ mv_form_id }'').action = ''sapevent:|
&& |{ iv_side_action }''; document.getElementById(''{ mv_form_id }'').submit()"|.
ENDIF.
APPEND ls_field TO mt_fields.
ro_self = me.
ENDMETHOD.
METHOD textarea.
DATA ls_field LIKE LINE OF mt_fields.
ls_field-type = zif_abapgit_html_form=>c_field_type-textarea.
ls_field-name = iv_name.
ls_field-label = iv_label.
ls_field-readonly = iv_readonly.
ls_field-hint = iv_hint.
ls_field-required = iv_required.
ls_field-placeholder = iv_placeholder.
ls_field-rows = iv_rows.
ls_field-cols = iv_cols.
ls_field-upper_case = iv_upper_case.
APPEND ls_field TO mt_fields.
ro_self = me.
ENDMETHOD.
METHOD zif_abapgit_gui_hotkeys~get_hotkey_actions.
DATA: ls_hotkey_action LIKE LINE OF rt_hotkey_actions.
FIELD-SYMBOLS: <ls_command> TYPE zif_abapgit_html_form=>ty_command.
ls_hotkey_action-ui_component = |Form-{ mv_form_id }|.
READ TABLE mt_commands WITH KEY cmd_type = zif_abapgit_html_form=>c_cmd_type-input_main
ASSIGNING <ls_command>.
IF sy-subrc = 0.
ls_hotkey_action-description = <ls_command>-label.
ls_hotkey_action-action = <ls_command>-action.
ls_hotkey_action-hotkey = |Enter|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ENDIF.
READ TABLE mt_commands WITH KEY action = zif_abapgit_definitions=>c_action-go_back
ASSIGNING <ls_command>.
IF sy-subrc = 0.
ls_hotkey_action-description = <ls_command>-label.
ls_hotkey_action-action = <ls_command>-action.
ls_hotkey_action-hotkey = |F3|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_HTML_FORM_UTILS ', 'CLASS zcl_abapgit_html_form_utils DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS create
IMPORTING
!io_form TYPE REF TO zcl_abapgit_html_form
RETURNING
VALUE(ro_form_util) TYPE REF TO zcl_abapgit_html_form_utils .
CLASS-METHODS is_dirty
IMPORTING
!io_form_data TYPE REF TO zcl_abapgit_string_map
!io_compare_with TYPE REF TO zcl_abapgit_string_map
RETURNING
VALUE(rv_dirty) TYPE abap_bool .
METHODS constructor
IMPORTING
!io_form TYPE REF TO zcl_abapgit_html_form .
METHODS normalize
IMPORTING
!io_form_data TYPE REF TO zcl_abapgit_string_map
RETURNING
VALUE(ro_form_data) TYPE REF TO zcl_abapgit_string_map
RAISING
zcx_abapgit_exception .
METHODS validate
IMPORTING
!io_form_data TYPE REF TO zcl_abapgit_string_map
RETURNING
VALUE(ro_validation_log) TYPE REF TO zcl_abapgit_string_map
RAISING
zcx_abapgit_exception .
METHODS is_empty
IMPORTING
!io_form_data TYPE REF TO zcl_abapgit_string_map
RETURNING
VALUE(rv_empty) TYPE abap_bool
RAISING
zcx_abapgit_exception .
METHODS set_data
IMPORTING
!io_form_data TYPE REF TO zcl_abapgit_string_map .
METHODS exit
IMPORTING
!io_form_data TYPE REF TO zcl_abapgit_string_map
!io_compare_with TYPE REF TO zcl_abapgit_string_map
RETURNING
VALUE(rv_state) TYPE i
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
PRIVATE SECTION.
DATA mo_form TYPE REF TO zcl_abapgit_html_form .
DATA mo_form_data TYPE REF TO zcl_abapgit_string_map .
ENDCLASS.
CLASS zcl_abapgit_html_form_utils IMPLEMENTATION.
METHOD constructor.
mo_form = io_form.
ENDMETHOD.
METHOD create.
CREATE OBJECT ro_form_util
EXPORTING
io_form = io_form.
ENDMETHOD.
METHOD exit.
DATA lv_answer TYPE c LENGTH 1.
IF is_dirty(
io_form_data = io_form_data
io_compare_with = io_compare_with ) = abap_true.
lv_answer = zcl_abapgit_ui_factory=>get_popups( )->popup_to_confirm(
iv_display_cancel_button = abap_false
iv_titlebar = ''abapGit - Unsaved Changes''
iv_text_question = ''There are unsaved changes. Do you want to exit the form?''
iv_default_button = ''2'' ).
IF lv_answer = ''1''.
rv_state = zcl_abapgit_gui=>c_event_state-go_back_to_bookmark.
ELSE.
rv_state = zcl_abapgit_gui=>c_event_state-no_more_act.
ENDIF.
ELSE.
rv_state = zcl_abapgit_gui=>c_event_state-go_back_to_bookmark.
ENDIF.
ENDMETHOD.
METHOD is_dirty.
rv_dirty = boolc( io_form_data->mt_entries <> io_compare_with->mt_entries ).
ENDMETHOD.
METHOD is_empty.
DATA:
lt_fields TYPE zif_abapgit_html_form=>ty_fields,
lv_value TYPE string,
lv_rows TYPE i,
lv_row TYPE i.
FIELD-SYMBOLS <ls_field> LIKE LINE OF lt_fields.
rv_empty = abap_true.
lt_fields = mo_form->get_fields( ).
LOOP AT lt_fields ASSIGNING <ls_field> WHERE type <> zif_abapgit_html_form=>c_field_type-field_group.
lv_value = condense(
val = io_form_data->get( <ls_field>-name )
del = \` \` ).
IF <ls_field>-type = zif_abapgit_html_form=>c_field_type-number.
rv_empty = boolc( lv_value IS INITIAL OR lv_value = ''0'' ).
ELSEIF <ls_field>-type = zif_abapgit_html_form=>c_field_type-table.
lv_rows = io_form_data->get( |{ <ls_field>-name }-{ zif_abapgit_html_form=>c_rows }| ).
DO lv_rows TIMES.
lv_row = sy-index.
DO lines( <ls_field>-subitems ) TIMES.
lv_value = io_form_data->get( |{ <ls_field>-name }-{ lv_row }-{ sy-index }| ).
rv_empty = boolc( lv_value IS INITIAL ).
IF rv_empty <> abap_true.
RETURN.
ENDIF.
ENDDO.
ENDDO.
ELSEIF <ls_field>-type = zif_abapgit_html_form=>c_field_type-textarea.
REPLACE ALL OCCURRENCES OF cl_abap_char_utilities=>cr_lf IN lv_value WITH ''''.
REPLACE ALL OCCURRENCES OF cl_abap_char_utilities=>newline IN lv_value WITH ''''.
rv_empty = boolc( lv_value IS INITIAL ).
ELSE.
rv_empty = boolc( lv_value IS INITIAL ).
ENDIF.
IF rv_empty <> abap_true.
RETURN.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD normalize.
DATA:
lt_fields TYPE zif_abapgit_html_form=>ty_fields,
lv_value TYPE string,
lv_rows TYPE i,
lv_row TYPE i,
lv_len TYPE i.
FIELD-SYMBOLS <ls_field> LIKE LINE OF lt_fields.
CREATE OBJECT ro_form_data.
IF io_form_data->is_empty( ) = abap_true.
RETURN.
ENDIF.
lt_fields = mo_form->get_fields( ).
LOOP AT lt_fields ASSIGNING <ls_field> WHERE type <> zif_abapgit_html_form=>c_field_type-field_group
AND type <> zif_abapgit_html_form=>c_field_type-hidden.
CLEAR lv_value.
lv_value = io_form_data->get( <ls_field>-name ).
IF <ls_field>-condense = abap_true.
lv_value = condense( val = lv_value
del = \` \` ).
ENDIF.
IF <ls_field>-type = zif_abapgit_html_form=>c_field_type-checkbox.
ro_form_data->set(
iv_key = <ls_field>-name
iv_val = boolc( lv_value = ''on'' ) ) ##TYPE.
ELSEIF ( <ls_field>-type = zif_abapgit_html_form=>c_field_type-text
OR <ls_field>-type = zif_abapgit_html_form=>c_field_type-textarea )
AND <ls_field>-upper_case = abap_true.
ro_form_data->set(
iv_key = <ls_field>-name
iv_val = to_upper( lv_value ) ).
ELSEIF <ls_field>-type = zif_abapgit_html_form=>c_field_type-number.
" Numeric value is checked in validation
ro_form_data->set(
iv_key = <ls_field>-name
iv_val = condense( val = lv_value del = \` \` ) ).
ELSEIF <ls_field>-type = zif_abapgit_html_form=>c_field_type-table.
lv_rows = io_form_data->get( |{ <ls_field>-name }-{ zif_abapgit_html_form=>c_rows }| ).
DO lv_rows TIMES.
lv_row = sy-index.
DO lines( <ls_field>-subitems ) TIMES.
lv_value = io_form_data->get( |{ <ls_field>-name }-{ lv_row }-{ sy-index }| ).
ro_form_data->set(
iv_key = |{ <ls_field>-name }-{ lv_row }-{ sy-index }|
iv_val = lv_value ).
ENDDO.
ENDDO.
ro_form_data->set(
iv_key = |{ <ls_field>-name }-{ zif_abapgit_html_form=>c_rows }|
iv_val = |{ lv_rows }| ).
ELSEIF <ls_field>-type = zif_abapgit_html_form=>c_field_type-textarea.
REPLACE ALL OCCURRENCES OF cl_abap_char_utilities=>cr_lf IN lv_value
WITH cl_abap_char_utilities=>newline.
" Remove last line if empty (ie 2x newline)
lv_len = strlen( lv_value ) - 2.
IF lv_len >= 0 AND lv_value+lv_len(1) = cl_abap_char_utilities=>newline.
lv_len = lv_len + 1.
lv_value = lv_value(lv_len).
ENDIF.
ro_form_data->set(
iv_key = <ls_field>-name
iv_val = lv_value ).
ELSE.
ro_form_data->set(
iv_key = <ls_field>-name
iv_val = lv_value ).
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD set_data.
mo_form_data = io_form_data.
ENDMETHOD.
METHOD validate.
DATA:
lt_fields TYPE zif_abapgit_html_form=>ty_fields,
lv_value TYPE string,
lv_number TYPE p LENGTH 16 DECIMALS 0.
FIELD-SYMBOLS <ls_field> LIKE LINE OF lt_fields.
CREATE OBJECT ro_validation_log.
lt_fields = mo_form->get_fields( ).
LOOP AT lt_fields ASSIGNING <ls_field>.
lv_value = io_form_data->get( <ls_field>-name ).
IF <ls_field>-condense = abap_true.
lv_value = condense( val = lv_value
del = \` \` ).
ENDIF.
IF <ls_field>-required IS NOT INITIAL AND lv_value IS INITIAL.
ro_validation_log->set(
iv_key = <ls_field>-name
iv_val = |{ <ls_field>-label } cannot be empty| ).
ENDIF.
CASE <ls_field>-type.
WHEN zif_abapgit_html_form=>c_field_type-text.
IF <ls_field>-min = <ls_field>-max AND strlen( lv_value ) <> <ls_field>-min.
ro_validation_log->set(
iv_key = <ls_field>-name
iv_val = |{ <ls_field>-label } must be exactly { <ls_field>-min } characters long| ).
ELSE.
IF <ls_field>-min <> cl_abap_math=>min_int4 AND strlen( lv_value ) < <ls_field>-min.
ro_validation_log->set(
iv_key = <ls_field>-name
iv_val = |{ <ls_field>-label } must not be shorter than { <ls_field>-min } characters| ).
ENDIF.
IF <ls_field>-max <> cl_abap_math=>max_int4 AND strlen( lv_value ) > <ls_field>-max.
ro_validation_log->set(
iv_key = <ls_field>-name
iv_val = |{ <ls_field>-label } must not be longer than { <ls_field>-max } characters| ).
ENDIF.
ENDIF.
WHEN zif_abapgit_html_form=>c_field_type-number.
TRY.
lv_number = lv_value.
CATCH cx_root.
ro_validation_log->set(
iv_key = <ls_field>-name
iv_val = |{ <ls_field>-label } is not numeric| ).
CONTINUE.
ENDTRY.
IF <ls_field>-min <> cl_abap_math=>min_int4 AND lv_number < <ls_field>-min.
ro_validation_log->set(
iv_key = <ls_field>-name
iv_val = |{ <ls_field>-label } must not be lower than { <ls_field>-min }| ).
ENDIF.
IF <ls_field>-max <> cl_abap_math=>max_int4 AND lv_number > <ls_field>-max.
ro_validation_log->set(
iv_key = <ls_field>-name
iv_val = |{ <ls_field>-label } must not be higher than { <ls_field>-max }| ).
ENDIF.
ENDCASE.
ENDLOOP.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_HTML_TABLE ', 'CLASS zcl_abapgit_html_table DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_component
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS create
IMPORTING
!ii_renderer TYPE REF TO zif_abapgit_html_table OPTIONAL " Can be passed to renderer
!is_initial_sorting_state TYPE zif_abapgit_html_table=>ty_sorting_state OPTIONAL
PREFERRED PARAMETER ii_renderer
RETURNING
VALUE(ro_instance) TYPE REF TO zcl_abapgit_html_table .
" maybe also th css_class
METHODS define_column
IMPORTING
!iv_column_id TYPE string
!iv_column_title TYPE string OPTIONAL
!iv_from_field TYPE abap_compname OPTIONAL
!iv_sortable TYPE abap_bool DEFAULT abap_true
RETURNING
VALUE(ro_self) TYPE REF TO zcl_abapgit_html_table .
METHODS define_column_group
IMPORTING
!iv_group_id TYPE string OPTIONAL " not mandatory, but can be used for CSS (TODO data-gid)
!iv_group_title TYPE string OPTIONAL " can be empty !
PREFERRED PARAMETER iv_group_title
RETURNING
VALUE(ro_self) TYPE REF TO zcl_abapgit_html_table
RAISING
zcx_abapgit_exception .
" Maybe also data_provider
" TODO record Limiter
METHODS render
IMPORTING
!ii_renderer TYPE REF TO zif_abapgit_html_table OPTIONAL
!it_data TYPE ANY TABLE
!iv_id TYPE csequence OPTIONAL
!iv_css_class TYPE csequence OPTIONAL
!iv_with_cids TYPE abap_bool DEFAULT abap_false
!is_sorting_state TYPE zif_abapgit_html_table=>ty_sorting_state OPTIONAL
!iv_wrap_in_div TYPE string OPTIONAL " div class name
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
" Sorting utils
CLASS-METHODS detect_sorting_request
IMPORTING
iv_event TYPE string
RETURNING
VALUE(rs_sorting_request) TYPE zif_abapgit_html_table=>ty_sorting_state.
METHODS process_sorting_request
IMPORTING
iv_event TYPE string
RETURNING
VALUE(rv_processed) TYPE abap_bool.
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS c_sort_by_event_prefix TYPE string VALUE \`sort_by:\`.
CONSTANTS c_sort_by_event_regex TYPE string VALUE \`^sort_by:\\w+:(asc|dsc)$\`.
TYPES:
BEGIN OF ty_column,
column_id TYPE string,
column_title TYPE string,
from_field TYPE abap_compname,
sortable TYPE abap_bool,
is_group TYPE abap_bool,
group_span TYPE i,
END OF ty_column,
ty_columns TYPE STANDARD TABLE OF ty_column WITH KEY column_id.
DATA mi_renderer TYPE REF TO zif_abapgit_html_table.
DATA mt_columns TYPE ty_columns.
DATA mi_html TYPE REF TO zif_abapgit_html.
DATA mv_with_cids TYPE abap_bool.
DATA mv_table_id TYPE string.
DATA ms_sorting_state TYPE zif_abapgit_html_table=>ty_sorting_state.
DATA mr_last_grp TYPE REF TO ty_column.
" potentially receive from outside
DATA mv_sort_span_class TYPE string VALUE \`sort-arrow\`.
DATA mv_sort_active_class TYPE string VALUE \`sort-active\`.
METHODS render_thead
RAISING
zcx_abapgit_exception .
METHODS render_tbody
IMPORTING
it_data TYPE ANY TABLE
RAISING
zcx_abapgit_exception .
METHODS render_row
IMPORTING
iv_row_index TYPE i
is_row TYPE any
RAISING
zcx_abapgit_exception .
METHODS render_column_title
IMPORTING
is_col TYPE ty_column
RETURNING
VALUE(rv_text) TYPE string
RAISING
zcx_abapgit_exception .
CLASS-METHODS cid_attr
IMPORTING
iv_column_id TYPE string
RETURNING
VALUE(rs_data_attr) TYPE zif_abapgit_html=>ty_data_attr.
CLASS-METHODS gid_attr
IMPORTING
iv_column_id TYPE string
RETURNING
VALUE(rs_data_attr) TYPE zif_abapgit_html=>ty_data_attr.
METHODS apply_sorting
CHANGING
ct_data TYPE STANDARD TABLE.
ENDCLASS.
CLASS ZCL_ABAPGIT_HTML_TABLE IMPLEMENTATION.
METHOD apply_sorting.
DATA lv_field TYPE abap_compname.
DATA ls_col LIKE LINE OF mt_columns.
IF ms_sorting_state-column_id IS INITIAL.
RETURN.
ENDIF.
READ TABLE mt_columns INTO ls_col WITH KEY column_id = ms_sorting_state-column_id.
IF sy-subrc <> 0.
RETURN. " ??? but let''s not throw errors here
ENDIF.
IF ls_col-from_field IS NOT INITIAL.
lv_field = to_upper( ls_col-from_field ).
ELSE.
lv_field = to_upper( ms_sorting_state-column_id ).
ENDIF.
" What to do if column_id is not a table field ?
" Well ... then it is a complex case for an external sorting, don''t use the simple one
IF ms_sorting_state-descending = abap_true.
SORT ct_data BY (lv_field) DESCENDING.
ELSE.
SORT ct_data BY (lv_field) ASCENDING.
ENDIF.
ENDMETHOD.
METHOD cid_attr.
rs_data_attr-name = ''cid''.
rs_data_attr-value = iv_column_id.
ENDMETHOD.
METHOD create.
CREATE OBJECT ro_instance.
ro_instance->mi_renderer = ii_renderer.
ro_instance->ms_sorting_state = is_initial_sorting_state.
ENDMETHOD.
METHOD define_column.
FIELD-SYMBOLS <ls_c> LIKE LINE OF mt_columns.
ASSERT iv_column_id IS NOT INITIAL.
ro_self = me.
APPEND INITIAL LINE TO mt_columns ASSIGNING <ls_c>.
<ls_c>-column_id = iv_column_id.
<ls_c>-column_title = iv_column_title.
<ls_c>-from_field = to_upper( iv_from_field ).
<ls_c>-sortable = iv_sortable.
IF mr_last_grp IS NOT INITIAL.
mr_last_grp->group_span = mr_last_grp->group_span + 1.
ENDIF.
ENDMETHOD.
METHOD define_column_group.
IF lines( mt_columns ) > 0 AND mr_last_grp IS INITIAL.
" Groups should cover all columns
" you can create a group with empty title if groups start later VISUALLY
zcx_abapgit_exception=>raise( ''Start groups from the beginning'' ).
ENDIF.
ro_self = me.
APPEND INITIAL LINE TO mt_columns REFERENCE INTO mr_last_grp.
mr_last_grp->is_group = abap_true.
mr_last_grp->column_id = iv_group_id.
mr_last_grp->column_title = iv_group_title.
ENDMETHOD.
METHOD detect_sorting_request.
DATA lv_req TYPE string.
IF find(
val = iv_event
regex = c_sort_by_event_regex ) = 0.
lv_req = replace(
val = iv_event
sub = c_sort_by_event_prefix
with = '''' ).
SPLIT lv_req AT '':'' INTO rs_sorting_request-column_id lv_req.
rs_sorting_request-descending = boolc( lv_req = ''dsc'' ).
ENDIF.
ENDMETHOD.
METHOD gid_attr.
rs_data_attr-name = ''gid''.
rs_data_attr-value = iv_column_id.
ENDMETHOD.
METHOD process_sorting_request.
DATA ls_sorting_req LIKE ms_sorting_state.
ls_sorting_req = detect_sorting_request( iv_event ).
IF ls_sorting_req IS NOT INITIAL.
ms_sorting_state = ls_sorting_req.
rv_processed = abap_true.
ENDIF.
ENDMETHOD.
METHOD render.
DATA lv_attrs TYPE string.
DATA lr_data_copy TYPE REF TO data.
FIELD-SYMBOLS <lt_data> TYPE ANY TABLE.
IF ii_renderer IS BOUND.
mi_renderer = ii_renderer.
ENDIF.
ASSERT mi_renderer IS BOUND.
mv_with_cids = iv_with_cids.
mv_table_id = iv_id.
ASSIGN it_data TO <lt_data>.
IF is_sorting_state IS NOT INITIAL.
ms_sorting_state = is_sorting_state.
ELSEIF ms_sorting_state IS NOT INITIAL.
" If sorting state is not passed,
" but there is non empty sort state then suppose simple sorting mode
" so that table sorts the data itself before rendering
" TODO not efficient, maybe bind changing data from outside
CREATE DATA lr_data_copy LIKE it_data.
ASSIGN lr_data_copy->* TO <lt_data>.
<lt_data> = it_data.
apply_sorting( CHANGING ct_data = <lt_data> ).
ENDIF.
IF iv_id IS NOT INITIAL.
lv_attrs = lv_attrs && | id="{ iv_id }"|.
ENDIF.
IF iv_css_class IS NOT INITIAL.
lv_attrs = lv_attrs && | class="{ iv_css_class }"|.
ENDIF.
CREATE OBJECT mi_html TYPE zcl_abapgit_html.
ri_html = mi_html.
IF iv_wrap_in_div IS NOT INITIAL.
mi_html->add( |<div class="{ iv_wrap_in_div }">| ).
ENDIF.
mi_html->add( |<table{ lv_attrs }>| ).
render_thead( ).
render_tbody( <lt_data> ).
mi_html->add( ''</table>'' ).
IF iv_wrap_in_div IS NOT INITIAL.
mi_html->add( ''</div>'' ).
ENDIF.
ENDMETHOD.
METHOD render_column_title.
DATA lv_direction TYPE string.
DATA lv_arrow TYPE string.
DATA lv_sort_active TYPE string.
IF is_col-sortable = abap_true AND ms_sorting_state IS NOT INITIAL.
IF is_col-column_id = ms_sorting_state-column_id AND ms_sorting_state-descending = abap_false.
lv_direction = ''dsc''.
ELSE.
lv_direction = ''asc''.
ENDIF.
IF is_col-column_id = ms_sorting_state-column_id AND ms_sorting_state-descending = abap_true.
lv_arrow = ''▴''. " arrow up
ELSE.
lv_arrow = ''▾''. " arrow down
ENDIF.
IF is_col-column_id = ms_sorting_state-column_id.
lv_sort_active = | { mv_sort_active_class }|.
ENDIF.
rv_text = mi_html->a(
iv_txt = is_col-column_title
iv_act = |{ c_sort_by_event_prefix }{ is_col-column_id }:{ lv_direction }| ).
rv_text = rv_text && |<span class="{ mv_sort_span_class }{ lv_sort_active }">{ lv_arrow }</span>|.
ELSE.
rv_text = is_col-column_title.
ENDIF.
ENDMETHOD.
METHOD render_row.
DATA ls_render TYPE zif_abapgit_html_table=>ty_cell_render.
DATA lv_dummy TYPE string.
DATA lt_attrs TYPE zif_abapgit_html=>ty_data_attrs.
FIELD-SYMBOLS <ls_col> LIKE LINE OF mt_columns.
FIELD-SYMBOLS <ls_grp> LIKE LINE OF mt_columns.
FIELD-SYMBOLS <lv_val> TYPE any.
LOOP AT mt_columns ASSIGNING <ls_col>.
IF <ls_col>-is_group = abap_true.
ASSIGN <ls_col> TO <ls_grp>.
CONTINUE.
ENDIF.
IF <ls_col>-from_field IS NOT INITIAL AND <ls_col>-from_field <> ''-''.
ASSIGN COMPONENT <ls_col>-from_field OF STRUCTURE is_row TO <lv_val>.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |html_table: cannot assign field [{ <ls_col>-from_field }]| ).
ENDIF.
ELSEIF <ls_col>-from_field <> ''-''.
<ls_col>-from_field = to_upper( <ls_col>-column_id ). " Try column_id
ASSIGN COMPONENT <ls_col>-from_field OF STRUCTURE is_row TO <lv_val>.
IF sy-subrc <> 0.
<ls_col>-from_field = ''-''. " Don''t try assignments anymore
ASSIGN lv_dummy TO <lv_val>.
ENDIF.
ELSE.
ASSIGN lv_dummy TO <lv_val>.
ENDIF.
ls_render = mi_renderer->render_cell(
iv_table_id = mv_table_id
iv_row_index = iv_row_index
is_row = is_row
iv_column_id = <ls_col>-column_id
iv_value = |{ <lv_val> }| ).
IF mv_with_cids = abap_true.
CLEAR lt_attrs.
APPEND cid_attr( <ls_col>-column_id ) TO lt_attrs.
IF <ls_grp> IS ASSIGNED AND <ls_grp>-column_id IS NOT INITIAL.
APPEND gid_attr( <ls_grp>-column_id ) TO lt_attrs.
ENDIF.
ENDIF.
mi_html->td(
iv_content = ls_render-content
ii_content = ls_render-html
it_data_attrs = lt_attrs
iv_class = ls_render-css_class ).
ENDLOOP.
ENDMETHOD.
METHOD render_tbody.
DATA ls_row_attrs TYPE zif_abapgit_html_table=>ty_row_attrs.
DATA lv_row_attrs TYPE string.
DATA lv_index TYPE i.
FIELD-SYMBOLS <ls_i> TYPE any.
mi_html->add( ''<tbody>'' ).
LOOP AT it_data ASSIGNING <ls_i>.
lv_index = sy-tabix.
ls_row_attrs = mi_renderer->get_row_attrs(
iv_table_id = mv_table_id
iv_row_index = lv_index
is_row = <ls_i> ).
CLEAR lv_row_attrs.
IF ls_row_attrs-css_class IS NOT INITIAL.
lv_row_attrs = lv_row_attrs && | class="{ ls_row_attrs-css_class }"|.
ENDIF.
IF ls_row_attrs-data IS NOT INITIAL.
lv_row_attrs = lv_row_attrs && | data-{ ls_row_attrs-data-name }="{ ls_row_attrs-data-value }"|.
ENDIF.
mi_html->add( |<tr{ lv_row_attrs }>| ).
render_row(
iv_row_index = lv_index
is_row = <ls_i> ).
mi_html->add( ''</tr>'' ).
ENDLOOP.
mi_html->add( ''</tbody>'' ).
ENDMETHOD.
METHOD render_thead.
FIELD-SYMBOLS <ls_col> LIKE LINE OF mt_columns.
FIELD-SYMBOLS <ls_grp> LIKE LINE OF mt_columns.
DATA lt_attrs TYPE zif_abapgit_html=>ty_data_attrs.
DATA ls_grp_span TYPE string.
DATA lv_grp_data TYPE string.
mi_html->add( ''<thead>'' ).
" Group headers
IF mr_last_grp IS NOT INITIAL. " Has groups
mi_html->add( ''<tr>'' ).
LOOP AT mt_columns ASSIGNING <ls_grp> WHERE is_group = abap_true.
IF mv_with_cids = abap_true AND <ls_grp>-column_id IS NOT INITIAL.
lv_grp_data = | data-gid="{ <ls_grp>-column_id }"|.
ELSE.
CLEAR lv_grp_data.
ENDIF.
IF <ls_grp>-group_span > 1.
ls_grp_span = | colspan="{ <ls_grp>-group_span }"|.
ELSE.
CLEAR ls_grp_span.
ENDIF.
mi_html->add( |<th{ ls_grp_span }{ lv_grp_data }>{ <ls_grp>-column_title }</th>| ).
ENDLOOP.
mi_html->add( ''</tr>'' ).
ENDIF.
" Regular headers
mi_html->add( ''<tr>'' ).
LOOP AT mt_columns ASSIGNING <ls_col>.
IF <ls_col>-is_group = abap_true.
ASSIGN <ls_col> TO <ls_grp>.
CONTINUE.
ENDIF.
IF mv_with_cids = abap_true.
CLEAR lt_attrs.
APPEND cid_attr( <ls_col>-column_id ) TO lt_attrs.
IF <ls_grp> IS ASSIGNED AND <ls_grp>-column_id IS NOT INITIAL.
APPEND gid_attr( <ls_grp>-column_id ) TO lt_attrs.
ENDIF.
ENDIF.
mi_html->th(
iv_content = render_column_title( <ls_col> )
it_data_attrs = lt_attrs ).
ENDLOOP.
mi_html->add( ''</tr>'' ).
mi_html->add( ''</thead>'' ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_HTML_TOOLBAR ', 'CLASS zcl_abapgit_html_toolbar DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS create
IMPORTING
!iv_id TYPE string OPTIONAL
RETURNING
VALUE(ro_instance) TYPE REF TO zcl_abapgit_html_toolbar.
METHODS constructor
IMPORTING
!iv_id TYPE string OPTIONAL .
METHODS add
IMPORTING
!iv_txt TYPE string
!io_sub TYPE REF TO zcl_abapgit_html_toolbar OPTIONAL
!iv_typ TYPE c DEFAULT zif_abapgit_html=>c_action_type-sapevent
!iv_act TYPE string OPTIONAL
!iv_ico TYPE string OPTIONAL
!iv_cur TYPE abap_bool OPTIONAL
!iv_opt TYPE c OPTIONAL
!iv_chk TYPE abap_bool DEFAULT abap_undefined
!iv_aux TYPE string OPTIONAL
!iv_id TYPE string OPTIONAL
!iv_title TYPE string OPTIONAL
!iv_class TYPE string OPTIONAL
!iv_hotkey TYPE string OPTIONAL
!iv_li_class TYPE string OPTIONAL
RETURNING
VALUE(ro_self) TYPE REF TO zcl_abapgit_html_toolbar .
METHODS count_items
RETURNING
VALUE(rv_count) TYPE i .
METHODS render
IMPORTING
!iv_right TYPE abap_bool OPTIONAL
!iv_sort TYPE abap_bool OPTIONAL
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html .
METHODS render_as_droplist
IMPORTING
!iv_label TYPE string
!iv_right TYPE abap_bool OPTIONAL
!iv_sort TYPE abap_bool OPTIONAL
!iv_corner TYPE abap_bool OPTIONAL
!iv_action TYPE string OPTIONAL
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html .
METHODS get_hotkeys
IMPORTING
iv_component_name TYPE string OPTIONAL
RETURNING
VALUE(rt_hotkeys) TYPE zif_abapgit_gui_hotkeys=>ty_hotkeys_with_descr.
PROTECTED SECTION.
PRIVATE SECTION.
TYPES:
BEGIN OF ty_item,
txt TYPE string,
act TYPE string,
ico TYPE string,
sub TYPE REF TO zcl_abapgit_html_toolbar,
opt TYPE c LENGTH 1,
typ TYPE c LENGTH 1,
cur TYPE abap_bool,
chk TYPE abap_bool,
aux TYPE string,
id TYPE string,
title TYPE string,
class TYPE string,
li_class TYPE string,
hotkey TYPE string,
END OF ty_item .
TYPES:
ty_items TYPE STANDARD TABLE OF ty_item .
DATA mt_items TYPE ty_items .
DATA mv_id TYPE string .
METHODS render_items
IMPORTING
!iv_sort TYPE abap_bool OPTIONAL
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html .
ENDCLASS.
CLASS ZCL_ABAPGIT_HTML_TOOLBAR IMPLEMENTATION.
METHOD add.
DATA ls_item TYPE ty_item.
ASSERT iv_typ = zif_abapgit_html=>c_action_type-separator " sep doesn''t have action
OR iv_typ = zif_abapgit_html=>c_action_type-onclick " click may have no action (assigned in JS)
OR iv_typ = zif_abapgit_html=>c_action_type-dummy " dummy may have no action
OR iv_act IS INITIAL AND io_sub IS NOT INITIAL
OR iv_act IS NOT INITIAL AND io_sub IS INITIAL. " Only one supplied
ASSERT NOT ( iv_chk <> abap_undefined AND io_sub IS NOT INITIAL ).
ASSERT iv_hotkey IS INITIAL OR strlen( iv_hotkey ) = 1.
ls_item-txt = iv_txt.
ls_item-act = iv_act.
ls_item-ico = iv_ico.
ls_item-sub = io_sub.
ls_item-opt = iv_opt.
ls_item-typ = iv_typ.
ls_item-cur = iv_cur.
ls_item-chk = iv_chk.
ls_item-aux = iv_aux.
ls_item-id = iv_id.
ls_item-title = iv_title.
ls_item-class = iv_class.
ls_item-li_class = iv_li_class.
ls_item-hotkey = to_lower( iv_hotkey ).
APPEND ls_item TO mt_items.
ro_self = me.
ENDMETHOD.
METHOD constructor.
mv_id = iv_id.
ENDMETHOD.
METHOD count_items.
rv_count = lines( mt_items ).
ENDMETHOD.
METHOD create.
CREATE OBJECT ro_instance
EXPORTING
iv_id = iv_id.
ENDMETHOD.
METHOD get_hotkeys.
DATA ls_hotkey_action LIKE LINE OF rt_hotkeys.
FIELD-SYMBOLS <ls_i> LIKE LINE OF mt_items.
ls_hotkey_action-ui_component = iv_component_name.
LOOP AT mt_items ASSIGNING <ls_i> WHERE hotkey IS NOT INITIAL.
ls_hotkey_action-description = <ls_i>-txt.
ls_hotkey_action-action = <ls_i>-act.
ls_hotkey_action-hotkey = <ls_i>-hotkey.
INSERT ls_hotkey_action INTO TABLE rt_hotkeys.
ENDLOOP.
ENDMETHOD.
METHOD render.
DATA: lv_class TYPE string.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
lv_class = ''nav-container''.
IF iv_right = abap_true.
lv_class = lv_class && '' float-right''.
ENDIF.
ri_html->add( |<div class="{ lv_class }">| ).
ri_html->add( render_items( iv_sort = iv_sort ) ).
ri_html->add( ''</div>'' ).
ENDMETHOD.
METHOD render_as_droplist.
DATA: lv_class TYPE string.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
lv_class = ''nav-container''.
IF iv_right = abap_true.
lv_class = lv_class && '' float-right''.
ENDIF.
IF iv_corner = abap_true.
lv_class = lv_class && '' corner''.
ENDIF.
ri_html->add( |<div class="{ lv_class }">| ).
ri_html->add( ''<ul><li>'' ).
ri_html->add_a( iv_txt = iv_label
iv_typ = zif_abapgit_html=>c_action_type-sapevent
iv_act = iv_action ).
ri_html->add( ''<div class="minizone"></div>'' ).
ri_html->add( render_items( iv_sort = iv_sort ) ).
ri_html->add( ''</li></ul>'' ).
ri_html->add( ''</div>'' ).
ENDMETHOD.
METHOD render_items.
DATA: lv_class TYPE string,
lv_class_value TYPE string,
lv_icon TYPE string,
lv_id TYPE string,
lv_check TYPE string,
lv_aux TYPE string,
lv_txt TYPE string,
lv_hkidx TYPE i,
lv_has_icons TYPE abap_bool.
FIELD-SYMBOLS <ls_item> LIKE LINE OF mt_items.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
IF iv_sort = abap_true.
SORT mt_items BY txt ASCENDING AS TEXT.
ENDIF.
" Check has icons or check boxes
LOOP AT mt_items ASSIGNING <ls_item> WHERE ico IS NOT INITIAL OR chk <> abap_undefined.
lv_has_icons = abap_true.
lv_class = '' class="with-icons"''.
EXIT.
ENDLOOP.
IF mv_id IS NOT INITIAL.
lv_id = | id="{ mv_id }"|.
ENDIF.
ri_html->add( |<ul{ lv_id }{ lv_class }>| ).
" Render items
LOOP AT mt_items ASSIGNING <ls_item>.
CLEAR: lv_class, lv_class_value, lv_icon.
lv_txt = <ls_item>-txt.
IF <ls_item>-hotkey IS NOT INITIAL.
ASSERT strlen( <ls_item>-hotkey ) = 1.
lv_hkidx = find(
val = lv_txt
sub = to_upper( <ls_item>-hotkey ) ).
IF lv_hkidx < 0.
lv_hkidx = find(
val = lv_txt
sub = <ls_item>-hotkey ).
ENDIF.
IF lv_hkidx >= 0.
lv_txt = replace(
val = lv_txt
off = lv_hkidx
len = 1
with = |<u>{ lv_txt+lv_hkidx(1) }</u>| ).
ENDIF.
ENDIF.
IF <ls_item>-typ = zif_abapgit_html=>c_action_type-separator.
ri_html->add( |<li class="separator">{ lv_txt }</li>| ).
CONTINUE.
ENDIF.
IF lv_has_icons = abap_true.
IF <ls_item>-chk = abap_true.
lv_icon = ri_html->icon( ''check/blue'' ).
lv_check = '' data-check="X"''.
ELSEIF <ls_item>-chk = abap_false.
lv_icon = ri_html->icon( ''check/grey'' ).
lv_check = '' data-check=""''.
ELSE. " abap_undefined -> not a check box
lv_icon = ri_html->icon( <ls_item>-ico ).
ENDIF.
ENDIF.
IF <ls_item>-cur = abap_true.
IF <ls_item>-li_class IS INITIAL.
lv_class_value = ''current-menu-item''.
ELSE.
lv_class_value = |current-menu-item { <ls_item>-li_class }|.
ENDIF.
ELSE.
lv_class_value = <ls_item>-li_class.
ENDIF.
IF lv_class_value IS NOT INITIAL.
lv_class = | class="{ lv_class_value }"|.
ENDIF.
IF <ls_item>-aux IS NOT INITIAL.
lv_aux = | data-aux="{ <ls_item>-aux }"|.
ENDIF.
ri_html->add( |<li{ lv_class }{ lv_check }{ lv_aux }>| ).
IF <ls_item>-sub IS INITIAL.
ri_html->add_a( iv_txt = lv_icon && lv_txt
iv_typ = <ls_item>-typ
iv_act = <ls_item>-act
iv_id = <ls_item>-id
iv_opt = <ls_item>-opt
iv_title = <ls_item>-title
iv_class = <ls_item>-class ).
ELSE.
ri_html->add_a( iv_txt = lv_icon && lv_txt
iv_typ = zif_abapgit_html=>c_action_type-dummy
iv_act = ''''
iv_id = <ls_item>-id
iv_opt = <ls_item>-opt
iv_title = <ls_item>-title
iv_class = <ls_item>-class ).
ri_html->add( <ls_item>-sub->render_items( iv_sort ) ).
ENDIF.
ri_html->add( ''</li>'' ).
ENDLOOP.
ri_html->add( ''</ul>'' ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_LOG_VIEWER ', 'CLASS zcl_abapgit_log_viewer DEFINITION
PUBLIC
FINAL
CREATE PRIVATE .
PUBLIC SECTION.
CLASS-METHODS show_log
IMPORTING
!ii_log TYPE REF TO zif_abapgit_log .
CLASS-METHODS to_html
IMPORTING
!ii_log TYPE REF TO zif_abapgit_log
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html .
CLASS-METHODS write_log
IMPORTING
!ii_log TYPE REF TO zif_abapgit_log .
PROTECTED SECTION.
PRIVATE SECTION.
TYPES:
BEGIN OF ty_log_out,
type TYPE icon_d,
msg TYPE string,
obj_type TYPE trobjtype,
obj_name TYPE sobj_name,
exception TYPE REF TO cx_root,
longtext TYPE icon_d,
t100 TYPE icon_d,
source TYPE icon_d,
callstack TYPE icon_d,
cell_type TYPE salv_t_int4_column,
END OF ty_log_out.
TYPES:
ty_log_outs TYPE STANDARD TABLE OF ty_log_out
WITH NON-UNIQUE DEFAULT KEY.
CLASS-METHODS:
prepare_log_for_display
IMPORTING
ii_log TYPE REF TO zif_abapgit_log
RETURNING
VALUE(rt_log_out) TYPE ty_log_outs,
show_longtext
IMPORTING
is_log TYPE ty_log_out
RAISING
zcx_abapgit_exception,
goto_source
IMPORTING
is_log TYPE ty_log_out
RAISING
zcx_abapgit_exception,
goto_callstack
IMPORTING
is_log TYPE ty_log_out
RAISING
zcx_abapgit_exception,
goto_t100_message
IMPORTING
is_log TYPE ty_log_out
RAISING
zcx_abapgit_exception,
on_link_click FOR EVENT link_click OF cl_salv_events_table
IMPORTING row column,
dispatch
IMPORTING
is_log TYPE ty_log_out
iv_column TYPE salv_de_column
RAISING
zcx_abapgit_exception,
calculate_cell_type,
get_exception_viewer
IMPORTING
is_log TYPE ty_log_out
RETURNING
VALUE(ro_exception_viewer) TYPE REF TO zcl_abapgit_exception_viewer.
CLASS-DATA:
gt_log TYPE ty_log_outs.
ENDCLASS.
CLASS ZCL_ABAPGIT_LOG_VIEWER IMPLEMENTATION.
METHOD calculate_cell_type.
FIELD-SYMBOLS: <ls_log> LIKE LINE OF gt_log.
DATA: ls_cell_type LIKE LINE OF <ls_log>-cell_type.
LOOP AT gt_log ASSIGNING <ls_log>.
IF <ls_log>-longtext IS NOT INITIAL.
ls_cell_type-columnname = \`LONGTEXT\`.
ls_cell_type-value = if_salv_c_cell_type=>hotspot.
INSERT ls_cell_type INTO TABLE <ls_log>-cell_type.
ENDIF.
IF <ls_log>-t100 IS NOT INITIAL.
ls_cell_type-columnname = \`T100\`.
ls_cell_type-value = if_salv_c_cell_type=>hotspot.
INSERT ls_cell_type INTO TABLE <ls_log>-cell_type.
ENDIF.
IF <ls_log>-source IS NOT INITIAL.
ls_cell_type-columnname = \`SOURCE\`.
ls_cell_type-value = if_salv_c_cell_type=>hotspot.
INSERT ls_cell_type INTO TABLE <ls_log>-cell_type.
ENDIF.
IF <ls_log>-callstack IS NOT INITIAL.
ls_cell_type-columnname = \`CALLSTACK\`.
ls_cell_type-value = if_salv_c_cell_type=>hotspot.
INSERT ls_cell_type INTO TABLE <ls_log>-cell_type.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD dispatch.
CASE iv_column.
WHEN \`LONGTEXT\`.
show_longtext( is_log ).
WHEN \`T100\`.
goto_t100_message( is_log ).
WHEN \`SOURCE\`.
goto_source( is_log ).
WHEN \`CALLSTACK\`.
goto_callstack( is_log ).
ENDCASE.
ENDMETHOD.
METHOD get_exception_viewer.
DATA:
lx_abapgit TYPE REF TO zcx_abapgit_exception.
ASSERT is_log-exception IS BOUND.
lx_abapgit ?= is_log-exception.
CREATE OBJECT ro_exception_viewer
EXPORTING
ix_error = lx_abapgit.
ENDMETHOD.
METHOD goto_callstack.
get_exception_viewer( is_log )->show_callstack( ).
ENDMETHOD.
METHOD goto_source.
get_exception_viewer( is_log )->goto_source( ).
ENDMETHOD.
METHOD goto_t100_message.
get_exception_viewer( is_log )->goto_message( ).
ENDMETHOD.
METHOD on_link_click.
DATA: lx_error TYPE REF TO zcx_abapgit_exception.
FIELD-SYMBOLS: <ls_log> TYPE ty_log_out.
IF row IS INITIAL
OR column IS INITIAL.
RETURN.
ENDIF.
READ TABLE gt_log ASSIGNING <ls_log>
INDEX row.
ASSERT sy-subrc = 0.
TRY.
dispatch(
is_log = <ls_log>
iv_column = column ).
CATCH zcx_abapgit_exception INTO lx_error.
MESSAGE lx_error TYPE ''S'' DISPLAY LIKE ''E''.
ENDTRY.
ENDMETHOD.
METHOD prepare_log_for_display.
DATA: lt_message TYPE zif_abapgit_log=>ty_log_outs,
lr_message TYPE REF TO zif_abapgit_log=>ty_log_out,
ls_log TYPE ty_log_out,
li_t100_message TYPE REF TO if_t100_message,
lx_abapgit TYPE REF TO zcx_abapgit_exception.
lt_message = ii_log->get_messages( ).
LOOP AT lt_message REFERENCE INTO lr_message.
CLEAR: ls_log.
ls_log-msg = lr_message->text.
ls_log-exception = lr_message->exception.
CASE lr_message->type.
WHEN ''E'' OR ''A'' OR ''X''.
ls_log-type = icon_led_red.
WHEN ''W''.
ls_log-type = icon_led_yellow.
WHEN ''I'' OR ''S''.
ls_log-type = icon_led_green.
WHEN OTHERS.
ls_log-type = icon_led_inactive.
ENDCASE.
IF lr_message->exception IS BOUND.
TRY.
li_t100_message ?= lr_message->exception.
IF li_t100_message->t100key IS NOT INITIAL.
ls_log-t100 = icon_message_information.
ENDIF.
CATCH cx_sy_move_cast_error ##NO_HANDLER.
ENDTRY.
TRY.
lx_abapgit ?= lr_message->exception.
IF lx_abapgit->mt_callstack IS NOT INITIAL.
ls_log-longtext = icon_system_help.
ls_log-callstack = icon_stack.
ls_log-source = icon_abap.
ENDIF.
CATCH cx_sy_move_cast_error ##NO_HANDLER.
ENDTRY.
ENDIF.
ls_log-obj_type = lr_message->obj_type.
ls_log-obj_name = lr_message->obj_name.
INSERT ls_log INTO TABLE rt_log_out.
ENDLOOP.
ENDMETHOD.
METHOD show_log.
DATA: lr_log TYPE REF TO ty_log_out,
lo_alv TYPE REF TO cl_salv_table,
lx_error TYPE REF TO cx_salv_error,
lo_form_header TYPE REF TO cl_salv_form_header_info,
lo_columns TYPE REF TO cl_salv_columns_table,
lo_column TYPE REF TO cl_salv_column,
lo_functions TYPE REF TO cl_salv_functions_list,
ls_position TYPE zif_abapgit_popups=>ty_popup_position,
lv_add_obj_col TYPE abap_bool,
lo_event TYPE REF TO cl_salv_events_table.
gt_log = prepare_log_for_display( ii_log ).
"check if log contains any object info
LOOP AT gt_log REFERENCE INTO lr_log.
IF lr_log->obj_type IS NOT INITIAL OR lr_log->obj_name IS NOT INITIAL.
lv_add_obj_col = abap_true.
ENDIF.
ENDLOOP.
TRY.
cl_salv_table=>factory(
IMPORTING
r_salv_table = lo_alv
CHANGING
t_table = gt_log ).
lo_functions = lo_alv->get_functions( ).
lo_functions->set_all( ).
lo_alv->get_display_settings( )->set_list_header( |abapGit Log Viewer| ).
lo_columns = lo_alv->get_columns( ).
lo_columns->set_optimize( ).
lo_columns->set_cell_type_column( |CELL_TYPE| ).
calculate_cell_type( ).
lo_column = lo_columns->get_column( |TYPE| ).
lo_column->set_medium_text( |Type| ).
lo_column = lo_columns->get_column( |MSG| ).
lo_column->set_medium_text( |Message| ).
lo_column = lo_columns->get_column( |LONGTEXT| ).
lo_column->set_medium_text( |Longtext| ).
lo_column = lo_columns->get_column( |T100| ).
lo_column->set_medium_text( |Goto message| ).
lo_column = lo_columns->get_column( |SOURCE| ).
lo_column->set_medium_text( |Goto source| ).
lo_column = lo_columns->get_column( |CALLSTACK| ).
lo_column->set_medium_text( |Show callstack| ).
IF lv_add_obj_col = abap_true.
lo_column = lo_columns->get_column( |OBJ_TYPE| ).
lo_column->set_medium_text( |Object Type| ).
lo_column = lo_columns->get_column( |OBJ_NAME| ).
lo_column->set_medium_text( |Object Name| ).
ELSE.
"hide object columns
lo_column = lo_columns->get_column( |OBJ_TYPE| ).
lo_column->set_technical( abap_true ).
lo_column = lo_columns->get_column( |OBJ_NAME| ).
lo_column->set_technical( abap_true ).
ENDIF.
"hide empty columns
LOOP AT gt_log TRANSPORTING NO FIELDS WHERE t100 IS NOT INITIAL.
EXIT.
ENDLOOP.
IF sy-subrc <> 0.
lo_column = lo_columns->get_column( |T100| ).
lo_column->set_technical( abap_true ).
ENDIF.
LOOP AT gt_log TRANSPORTING NO FIELDS WHERE source IS NOT INITIAL.
EXIT.
ENDLOOP.
IF sy-subrc <> 0.
lo_column = lo_columns->get_column( |SOURCE| ).
lo_column->set_technical( abap_true ).
ENDIF.
LOOP AT gt_log TRANSPORTING NO FIELDS WHERE longtext IS NOT INITIAL.
EXIT.
ENDLOOP.
IF sy-subrc <> 0.
lo_column = lo_columns->get_column( |LONGTEXT| ).
lo_column->set_technical( abap_true ).
ENDIF.
LOOP AT gt_log TRANSPORTING NO FIELDS WHERE callstack IS NOT INITIAL.
EXIT.
ENDLOOP.
IF sy-subrc <> 0.
lo_column = lo_columns->get_column( |CALLSTACK| ).
lo_column->set_technical( abap_true ).
ENDIF.
ls_position = zcl_abapgit_popups=>center(
iv_width = 125
iv_height = 20 ).
lo_alv->set_screen_popup( start_column = ls_position-start_column
end_column = ls_position-end_column
start_line = ls_position-start_row
end_line = ls_position-end_row ).
CREATE OBJECT lo_form_header
EXPORTING
text = ii_log->get_title( ).
lo_alv->set_top_of_list( lo_form_header ).
lo_event = lo_alv->get_event( ).
SET HANDLER on_link_click FOR lo_event.
lo_alv->display( ).
CATCH cx_salv_error INTO lx_error.
MESSAGE lx_error TYPE ''S'' DISPLAY LIKE ''E''.
ENDTRY.
ENDMETHOD.
METHOD show_longtext.
DATA: lx_abapgit TYPE REF TO zcx_abapgit_exception.
DATA: lv_docu_object TYPE dokhl-object,
lt_dummy1 TYPE TABLE OF dselc,
lt_dummy2 TYPE TABLE OF dval,
ls_help_info TYPE help_info.
IF is_log-exception IS NOT BOUND.
RETURN.
ENDIF.
TRY.
lx_abapgit ?= is_log-exception.
CATCH cx_sy_move_cast_error.
RETURN.
ENDTRY.
lv_docu_object = lx_abapgit->if_t100_message~t100key-msgid.
lv_docu_object+2 = lx_abapgit->if_t100_message~t100key-msgno.
ls_help_info-call = ''D''.
ls_help_info-spras = sy-langu.
ls_help_info-messageid = lx_abapgit->if_t100_message~t100key-msgid.
ls_help_info-messagenr = lx_abapgit->if_t100_message~t100key-msgno.
ls_help_info-message = is_log-msg.
ls_help_info-title = ''Longtext''.
ls_help_info-docuid = ''NA''.
ls_help_info-docuobject = lv_docu_object.
ls_help_info-msgv1 = lx_abapgit->msgv1.
ls_help_info-msgv2 = lx_abapgit->msgv2.
ls_help_info-msgv3 = lx_abapgit->msgv3.
ls_help_info-msgv4 = lx_abapgit->msgv4.
CALL FUNCTION ''HELP_START''
EXPORTING
help_infos = ls_help_info
TABLES
dynpselect = lt_dummy1
dynpvaluetab = lt_dummy2
EXCEPTIONS
OTHERS = 1.
IF sy-subrc IS NOT INITIAL.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
METHOD to_html.
DATA: lt_message TYPE zif_abapgit_log=>ty_log_outs,
lr_message TYPE REF TO zif_abapgit_log=>ty_log_out,
lv_class TYPE string,
lv_icon TYPE string.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
IF ii_log->count( ) = 0.
RETURN.
ENDIF.
lt_message = ii_log->get_messages( ).
LOOP AT lt_message REFERENCE INTO lr_message.
CASE lr_message->type.
WHEN ''W''.
lv_icon = ''attention''.
lv_class = ''warning''.
WHEN ''E''.
lv_icon = ''error''.
lv_class = ''error''.
WHEN OTHERS. " ??? unexpected
lv_icon = ''error''.
lv_class = ''error''.
ENDCASE.
ri_html->add( |<span class="{ lv_class }">| ).
ri_html->add_icon( lv_icon ).
ri_html->add( lr_message->text ).
ri_html->add( ''</span>'' ).
ENDLOOP.
ENDMETHOD.
METHOD write_log.
DATA: lt_message TYPE zif_abapgit_log=>ty_log_outs,
lr_message TYPE REF TO zif_abapgit_log=>ty_log_out,
lv_text TYPE string.
lt_message = ii_log->get_messages( ).
LOOP AT lt_message REFERENCE INTO lr_message.
IF lr_message->obj_name IS NOT INITIAL AND lr_message->obj_type IS NOT INITIAL.
lv_text = |{ lr_message->type }: { lr_message->text } ({ lr_message->obj_type }/{ lr_message->obj_name })|.
ELSE.
lv_text = |{ lr_message->type }: { lr_message->text }|.
ENDIF.
WRITE: / lv_text.
ENDLOOP.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_GUI_MENU_PROVIDER ', 'INTERFACE zif_abapgit_gui_menu_provider
PUBLIC .
METHODS get_menu
RETURNING
VALUE(ro_toolbar) TYPE REF TO zcl_abapgit_html_toolbar
RAISING
zcx_abapgit_exception.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_GUI_PAGE_TITLE ', 'INTERFACE zif_abapgit_gui_page_title
PUBLIC .
METHODS get_page_title
RETURNING
VALUE(rv_title) TYPE string.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_GUI_RENDER_ITEM ', 'INTERFACE zif_abapgit_gui_render_item
PUBLIC .
METHODS render
IMPORTING
iv_item TYPE any
iv_index TYPE i
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_HTML_FORM ', 'INTERFACE zif_abapgit_html_form
PUBLIC .
TYPES:
BEGIN OF ty_subitem,
label TYPE string,
value TYPE string,
readonly TYPE abap_bool,
END OF ty_subitem .
TYPES:
ty_subitems TYPE STANDARD TABLE OF ty_subitem WITH DEFAULT KEY .
TYPES:
BEGIN OF ty_field,
type TYPE i,
name TYPE string,
label TYPE string,
hint TYPE string,
dblclick TYPE string,
click TYPE string,
placeholder TYPE string,
required TYPE string,
upper_case TYPE abap_bool,
item_class TYPE string,
error TYPE string,
default_value TYPE string,
side_action TYPE string,
subitems TYPE ty_subitems,
readonly TYPE abap_bool,
password TYPE abap_bool,
condense TYPE abap_bool,
min TYPE i,
max TYPE i,
rows TYPE i,
cols TYPE i,
END OF ty_field .
TYPES:
ty_fields TYPE STANDARD TABLE OF ty_field
WITH DEFAULT KEY
WITH UNIQUE SORTED KEY by_name COMPONENTS name .
TYPES:
BEGIN OF ty_command,
label TYPE string,
action TYPE string,
cmd_type TYPE i,
END OF ty_command .
CONSTANTS c_rows TYPE string VALUE ''rows''.
CONSTANTS:
BEGIN OF c_cmd_type,
input TYPE i VALUE 1,
input_main TYPE i VALUE 2,
link TYPE i VALUE 3,
button TYPE i VALUE 4,
END OF c_cmd_type .
CONSTANTS:
BEGIN OF c_field_type,
text TYPE i VALUE 1,
radio TYPE i VALUE 2,
checkbox TYPE i VALUE 3,
field_group TYPE i VALUE 4,
number TYPE i VALUE 5,
textarea TYPE i VALUE 6,
table TYPE i VALUE 7,
hidden TYPE i VALUE 8,
END OF c_field_type .
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_HTML_POPUP ', 'INTERFACE zif_abapgit_html_popup
PUBLIC .
METHODS create_picklist
RETURNING
VALUE(ro_picklist) TYPE REF TO zcl_abapgit_gui_picklist
RAISING
zcx_abapgit_exception.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_HTML_TABLE ', 'INTERFACE zif_abapgit_html_table
PUBLIC .
TYPES:
BEGIN OF ty_row_attrs,
css_class TYPE string,
data TYPE zif_abapgit_html=>ty_data_attr,
END OF ty_row_attrs.
TYPES:
BEGIN OF ty_cell_render,
css_class TYPE string,
content TYPE string,
html TYPE REF TO zif_abapgit_html,
END OF ty_cell_render.
TYPES:
BEGIN OF ty_sorting_state,
column_id TYPE string,
descending TYPE abap_bool,
END OF ty_sorting_state.
METHODS get_row_attrs
IMPORTING
iv_table_id TYPE string
iv_row_index TYPE i
is_row TYPE any
RETURNING
VALUE(rs_attrs) TYPE ty_row_attrs
RAISING
zcx_abapgit_exception.
METHODS render_cell
IMPORTING
iv_table_id TYPE string
iv_row_index TYPE i
is_row TYPE any
iv_column_id TYPE string
iv_value TYPE any
RETURNING
VALUE(rs_render) TYPE ty_cell_render
RAISING
zcx_abapgit_exception.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_CODE_INSP ', 'CLASS zcl_abapgit_gui_page_code_insp DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_page_codi_base
FINAL
CREATE PRIVATE.
PUBLIC SECTION.
INTERFACES:
zif_abapgit_gui_page_title,
zif_abapgit_gui_event_handler,
zif_abapgit_gui_hotkeys,
zif_abapgit_gui_menu_provider,
zif_abapgit_gui_renderable.
CLASS-METHODS create
IMPORTING
io_repo TYPE REF TO zcl_abapgit_repo
io_stage TYPE REF TO zcl_abapgit_stage OPTIONAL
iv_check_variant TYPE sci_chkv OPTIONAL
iv_raise_when_no_results TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception.
METHODS constructor
IMPORTING
io_repo TYPE REF TO zcl_abapgit_repo
io_stage TYPE REF TO zcl_abapgit_stage OPTIONAL
iv_check_variant TYPE sci_chkv OPTIONAL
iv_raise_when_no_results TYPE abap_bool DEFAULT abap_false
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
DATA mo_stage TYPE REF TO zcl_abapgit_stage.
DATA mv_check_variant TYPE sci_chkv.
METHODS:
run_code_inspector
RAISING
zcx_abapgit_exception,
has_inspection_errors
RETURNING
VALUE(rv_has_inspection_errors) TYPE abap_bool,
is_stage_allowed
RETURNING
VALUE(rv_is_stage_allowed) TYPE abap_bool,
ask_user_for_check_variant
RETURNING
VALUE(rv_check_variant) TYPE sci_chkv
RAISING
zcx_abapgit_exception,
determine_check_variant
RAISING
zcx_abapgit_exception.
METHODS status
RETURNING
VALUE(rv_status) TYPE zif_abapgit_definitions=>ty_sci_result.
ENDCLASS.
CLASS ZCL_ABAPGIT_GUI_PAGE_CODE_INSP IMPLEMENTATION.
METHOD ask_user_for_check_variant.
rv_check_variant = zcl_abapgit_ui_factory=>get_popups( )->choose_code_insp_check_variant( ).
IF rv_check_variant IS INITIAL.
zcx_abapgit_exception=>raise( |Please select a check variant.| ).
ENDIF.
ENDMETHOD.
METHOD constructor.
super->constructor( ).
mo_repo = io_repo.
mo_stage = io_stage.
mv_check_variant = iv_check_variant.
determine_check_variant( ).
run_code_inspector( ).
IF mt_result IS INITIAL AND iv_raise_when_no_results = abap_true.
zcx_abapgit_exception=>raise( ''No results'' ).
ENDIF.
ENDMETHOD.
METHOD create.
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_code_insp.
CREATE OBJECT lo_component
EXPORTING
io_repo = io_repo
io_stage = io_stage
iv_check_variant = iv_check_variant
iv_raise_when_no_results = iv_raise_when_no_results.
ri_page = zcl_abapgit_gui_page_hoc=>create( lo_component ).
ENDMETHOD.
METHOD determine_check_variant.
IF mv_check_variant IS NOT INITIAL.
RETURN.
ENDIF.
mv_check_variant = mo_repo->get_local_settings( )-code_inspector_check_variant.
IF mv_check_variant IS INITIAL.
mv_check_variant = ask_user_for_check_variant( ).
ENDIF.
ENDMETHOD.
METHOD has_inspection_errors.
READ TABLE mt_result TRANSPORTING NO FIELDS WITH KEY kind = ''E''.
rv_has_inspection_errors = boolc( sy-subrc = 0 ).
ENDMETHOD.
METHOD is_stage_allowed.
rv_is_stage_allowed = boolc( NOT (
mo_repo->get_local_settings( )-block_commit = abap_true AND has_inspection_errors( ) = abap_true ) ).
ENDMETHOD.
METHOD run_code_inspector.
DATA li_code_inspector TYPE REF TO zif_abapgit_code_inspector.
li_code_inspector = zcl_abapgit_factory=>get_code_inspector( mo_repo->get_package( ) ).
mt_result = li_code_inspector->run(
iv_variant = |{ mv_check_variant }|
iv_save = abap_true ).
mv_summary = li_code_inspector->get_summary( ).
DELETE mt_result WHERE kind = ''N''.
ENDMETHOD.
METHOD status.
READ TABLE mt_result TRANSPORTING NO FIELDS WITH KEY kind = ''E''.
IF sy-subrc = 0.
rv_status = zif_abapgit_definitions=>c_sci_result-failed.
ELSE.
READ TABLE mt_result TRANSPORTING NO FIELDS WITH KEY kind = ''W''.
IF sy-subrc = 0.
rv_status = zif_abapgit_definitions=>c_sci_result-warning.
ELSE.
rv_status = zif_abapgit_definitions=>c_sci_result-passed.
ENDIF.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
DATA lo_repo_online TYPE REF TO zcl_abapgit_repo_online.
CASE ii_event->mv_action.
WHEN c_actions-stage.
lo_repo_online ?= mo_repo.
IF is_stage_allowed( ) = abap_true.
rs_handled-page = zcl_abapgit_gui_page_stage=>create(
io_repo = lo_repo_online
iv_sci_result = status( ) ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
ELSE.
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
ENDIF.
WHEN c_actions-commit.
lo_repo_online ?= mo_repo.
IF is_stage_allowed( ) = abap_true.
rs_handled-page = zcl_abapgit_gui_page_commit=>create(
io_repo = lo_repo_online
io_stage = mo_stage ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
ELSE.
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
ENDIF.
WHEN c_actions-rerun.
run_code_inspector( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN OTHERS.
rs_handled = on_event( ii_event ).
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_gui_hotkeys~get_hotkey_actions.
DATA: ls_hotkey_action LIKE LINE OF rt_hotkey_actions.
ls_hotkey_action-ui_component = ''Code Inspector''.
ls_hotkey_action-description = |Stage|.
ls_hotkey_action-action = c_actions-stage.
ls_hotkey_action-hotkey = |s|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ls_hotkey_action-description = |Re-Run|.
ls_hotkey_action-action = c_actions-rerun.
ls_hotkey_action-hotkey = |r|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ENDMETHOD.
METHOD zif_abapgit_gui_menu_provider~get_menu.
DATA: lv_opt TYPE c LENGTH 1.
ro_toolbar = build_base_menu( ).
IF is_stage_allowed( ) = abap_false.
lv_opt = zif_abapgit_html=>c_html_opt-crossout.
ENDIF.
IF mo_repo->is_offline( ) = abap_true.
RETURN.
ENDIF.
IF mo_stage IS BOUND.
" Staging info already available, we can directly
" offer to commit
ro_toolbar->add(
iv_txt = ''Commit''
iv_act = c_actions-commit
iv_opt = lv_opt ).
ELSE.
ro_toolbar->add(
iv_txt = ''Stage''
iv_act = c_actions-stage
iv_opt = lv_opt ).
ENDIF.
ro_toolbar->add(
iv_txt = ''Back''
iv_act = zif_abapgit_definitions=>c_action-go_back ).
ENDMETHOD.
METHOD zif_abapgit_gui_page_title~get_page_title.
rv_title = ''Code Inspector''.
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
register_handlers( ).
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->div(
iv_class = ''repo''
ii_content = zcl_abapgit_gui_chunk_lib=>render_repo_top(
io_repo = mo_repo
iv_show_commit = abap_false ) ).
IF mv_check_variant IS INITIAL.
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_error( iv_error = ''No check variant supplied.'' ) ).
RETURN.
ENDIF.
render_ci_report(
ii_html = ri_html
iv_variant = mv_check_variant
iv_success_msg = ''No code inspector findings'' ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_CODI_BASE ', 'CLASS zcl_abapgit_gui_page_codi_base DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_component.
PUBLIC SECTION.
INTERFACES zif_abapgit_html_table.
PROTECTED SECTION.
CONSTANTS:
BEGIN OF c_actions,
rerun TYPE string VALUE ''rerun'',
stage TYPE string VALUE ''stage'',
commit TYPE string VALUE ''commit'',
filter_kind TYPE string VALUE ''filter_kind'',
apply_filter TYPE string VALUE ''apply_filter'',
END OF c_actions .
DATA mo_repo TYPE REF TO zcl_abapgit_repo.
DATA mt_result TYPE zif_abapgit_code_inspector=>ty_results.
DATA mv_summary TYPE string.
METHODS on_event
IMPORTING
ii_event TYPE REF TO zif_abapgit_gui_event
RETURNING
VALUE(rs_handled) TYPE zif_abapgit_gui_event_handler=>ty_handling_result
RAISING
zcx_abapgit_exception.
METHODS render_ci_report
IMPORTING
!ii_html TYPE REF TO zif_abapgit_html
!iv_variant TYPE sci_chkv
!iv_success_msg TYPE string
RAISING
zcx_abapgit_exception.
METHODS render_head
IMPORTING
!ii_html TYPE REF TO zif_abapgit_html
!iv_variant TYPE sci_chkv
!iv_summary TYPE string.
METHODS render_detail
IMPORTING
!ii_html TYPE REF TO zif_abapgit_html
!it_result TYPE zif_abapgit_code_inspector=>ty_results
RAISING
zcx_abapgit_exception.
METHODS render_stats
IMPORTING
!ii_html TYPE REF TO zif_abapgit_html
!it_result TYPE zif_abapgit_code_inspector=>ty_results
RAISING
zcx_abapgit_exception.
METHODS render_success
IMPORTING
ii_html TYPE REF TO zif_abapgit_html
iv_message TYPE string.
METHODS build_base_menu
RETURNING
VALUE(ro_menu) TYPE REF TO zcl_abapgit_html_toolbar.
PRIVATE SECTION.
CONSTANTS c_object_separator TYPE c LENGTH 1 VALUE ''|''.
CONSTANTS c_ci_sig TYPE string VALUE ''cinav:''.
CONSTANTS c_limit TYPE i VALUE 500.
DATA mv_filter_kind TYPE string.
DATA ms_sorting_state TYPE zif_abapgit_html_table=>ty_sorting_state.
TYPES:
BEGIN OF ty_result_view,
kind TYPE zif_abapgit_code_inspector=>ty_result-kind,
obj_type TYPE zif_abapgit_code_inspector=>ty_result-objtype,
location TYPE string,
text TYPE string,
nav TYPE string,
END OF ty_result_view,
ty_view_tab TYPE STANDARD TABLE OF ty_result_view WITH DEFAULT KEY.
METHODS convert_result_to_view
IMPORTING
it_result TYPE zif_abapgit_code_inspector=>ty_results
RETURNING
VALUE(rt_view) TYPE ty_view_tab.
METHODS explain_include
IMPORTING
!is_result TYPE zif_abapgit_code_inspector=>ty_result
RETURNING
VALUE(rv_txt) TYPE string.
METHODS render_limit_warning
IMPORTING
!ii_html TYPE REF TO zif_abapgit_html.
METHODS build_nav_link
IMPORTING
!is_result TYPE zif_abapgit_code_inspector=>ty_result
RETURNING
VALUE(rv_link) TYPE string.
METHODS jump
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_item
!is_sub_item TYPE zif_abapgit_definitions=>ty_item
!iv_line_number TYPE i
RAISING
zcx_abapgit_exception.
METHODS apply_sorting
CHANGING
ct_view TYPE ty_view_tab.
METHODS apply_filter_kind
CHANGING
ct_view TYPE ty_view_tab.
METHODS handle_navigation
IMPORTING
iv_link TYPE string
RAISING
zcx_abapgit_exception.
METHODS render_stat
IMPORTING
!ii_html TYPE REF TO zif_abapgit_html
!iv_count TYPE i
!iv_type TYPE string
!iv_title TYPE string
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS ZCL_ABAPGIT_GUI_PAGE_CODI_BASE IMPLEMENTATION.
METHOD apply_filter_kind.
CASE mv_filter_kind.
WHEN ''error''.
DELETE ct_view WHERE kind <> ''E''.
WHEN ''warn''.
DELETE ct_view WHERE kind <> ''W''.
WHEN ''info''.
DELETE ct_view WHERE NOT ( kind = ''E'' OR kind = ''W'' ).
WHEN OTHERS.
RETURN.
ENDCASE.
ENDMETHOD.
METHOD apply_sorting.
DATA lv_field TYPE abap_compname.
CASE ms_sorting_state-column_id.
WHEN ''kind'' OR ''obj_type'' OR ''location'' OR ''text''.
lv_field = to_upper( ms_sorting_state-column_id ).
WHEN OTHERS.
RETURN.
ENDCASE.
IF ms_sorting_state-descending = abap_true.
SORT ct_view BY (lv_field) DESCENDING.
ELSE.
SORT ct_view BY (lv_field) ASCENDING.
ENDIF.
ENDMETHOD.
METHOD build_base_menu.
ro_menu = zcl_abapgit_html_toolbar=>create( )->add(
iv_txt = ''Re-Run''
iv_act = c_actions-rerun ).
ENDMETHOD.
METHOD build_nav_link.
rv_link = |{ c_ci_sig }| &&
|{ is_result-objtype }{ is_result-objname }| &&
|{ c_object_separator }{ is_result-sobjtype }{ is_result-sobjname }| &&
|{ c_object_separator }{ is_result-line }|.
ENDMETHOD.
METHOD convert_result_to_view.
FIELD-SYMBOLS <ls_r> LIKE LINE OF it_result.
FIELD-SYMBOLS <ls_v> LIKE LINE OF rt_view.
DATA lv_line TYPE i.
LOOP AT it_result ASSIGNING <ls_r>.
APPEND INITIAL LINE TO rt_view ASSIGNING <ls_v>.
<ls_v>-kind = <ls_r>-kind.
<ls_v>-obj_type = <ls_r>-objtype.
<ls_v>-nav = build_nav_link( <ls_r> ).
<ls_v>-text = <ls_r>-text.
IF <ls_r>-sobjname IS INITIAL OR
( <ls_r>-sobjname = <ls_r>-objname AND
<ls_r>-sobjtype = <ls_r>-objtype ).
<ls_v>-location = to_lower( <ls_r>-objname ).
ELSEIF <ls_r>-objtype = ''CLAS'' OR
( <ls_r>-objtype = ''PROG'' AND NOT <ls_r>-sobjname+30(*) IS INITIAL ).
<ls_v>-location = explain_include( <ls_r> ).
ENDIF.
IF <ls_v>-location IS INITIAL. " Fallback to a reasonable default
<ls_v>-location = to_lower( |{ <ls_r>-objname } > { <ls_r>-sobjtype } { <ls_r>-sobjname }| ).
ENDIF.
lv_line = <ls_r>-line. " convert from numc to integer
<ls_v>-location = |{ <ls_v>-location } @{ lv_line }|.
ENDLOOP.
ENDMETHOD.
METHOD explain_include.
DATA ls_mtdkey TYPE seocpdkey.
TRY.
CASE is_result-sobjname+30(*).
WHEN ''CCDEF''.
rv_txt = |{ to_lower( is_result-objname ) }: Local Definitions|.
WHEN ''CCIMP''.
rv_txt = |{ to_lower( is_result-objname ) }: Local Implementations|.
WHEN ''CCMAC''.
rv_txt = |{ to_lower( is_result-objname ) }: Macros|.
WHEN ''CCAU''.
rv_txt = |{ to_lower( is_result-objname ) }: Test Classes|.
WHEN ''CU''.
rv_txt = |{ to_lower( is_result-objname ) }: Public Section|.
WHEN ''CO''.
rv_txt = |{ to_lower( is_result-objname ) }: Protected Section|.
WHEN ''CI''.
rv_txt = |{ to_lower( is_result-objname ) }: Private Section|.
WHEN OTHERS.
cl_oo_classname_service=>get_method_by_include(
EXPORTING
incname = is_result-sobjname
RECEIVING
mtdkey = ls_mtdkey
EXCEPTIONS
class_not_existing = 1
method_not_existing = 2
OTHERS = 3 ).
IF sy-subrc = 0.
rv_txt = to_lower( |{ ls_mtdkey-clsname }->{ ls_mtdkey-cpdname }| ).
ELSE.
rv_txt = to_lower( |{ is_result-sobjname }| ).
ENDIF.
ENDCASE.
CATCH cx_root.
" leave empty, fallback to default, defined elsewhere
ENDTRY.
ENDMETHOD.
METHOD handle_navigation.
DATA: ls_item TYPE zif_abapgit_definitions=>ty_item,
ls_sub_item TYPE zif_abapgit_definitions=>ty_item,
lv_main_object TYPE string,
lv_sub_object TYPE string,
lv_line_number_s TYPE string,
lv_line_number TYPE i.
SPLIT iv_link AT c_object_separator INTO lv_main_object lv_sub_object lv_line_number_s.
ls_item-obj_type = to_upper( lv_main_object(4) ).
ls_item-obj_name = to_upper( lv_main_object+4(*) ).
IF lv_sub_object IS NOT INITIAL.
ls_sub_item-obj_type = to_upper( lv_sub_object(4) ).
ls_sub_item-obj_name = to_upper( lv_sub_object+4(*) ).
ENDIF.
lv_line_number = lv_line_number_s.
jump(
is_item = ls_item
is_sub_item = ls_sub_item
iv_line_number = lv_line_number ).
ENDMETHOD.
METHOD jump.
DATA: lo_test TYPE REF TO cl_ci_test_root,
ls_info TYPE scir_rest,
lo_result TYPE REF TO cl_ci_result_root,
lv_adt_jump_enabled TYPE abap_bool,
lv_line_number TYPE i,
ls_item TYPE zif_abapgit_definitions=>ty_item,
ls_sub_item TYPE zif_abapgit_definitions=>ty_item.
FIELD-SYMBOLS: <ls_result> LIKE LINE OF mt_result.
IF is_sub_item IS NOT INITIAL.
READ TABLE mt_result WITH KEY objtype = is_item-obj_type
objname = is_item-obj_name
sobjtype = is_sub_item-obj_type
sobjname = is_sub_item-obj_name
line = iv_line_number
ASSIGNING <ls_result>.
ELSE.
READ TABLE mt_result WITH KEY objtype = is_item-obj_type
objname = is_item-obj_name
line = iv_line_number
ASSIGNING <ls_result>.
ENDIF.
ASSERT <ls_result> IS ASSIGNED.
ls_item-obj_name = <ls_result>-objname.
ls_item-obj_type = <ls_result>-objtype.
ls_sub_item-obj_name = <ls_result>-sobjname.
ls_sub_item-obj_type = <ls_result>-sobjtype.
" see SCI_LCL_DYNP_530 / HANDLE_DOUBLE_CLICK
lv_adt_jump_enabled = zcl_abapgit_persist_factory=>get_settings( )->read( )->get_adt_jump_enabled( ).
TRY.
IF lv_adt_jump_enabled = abap_true.
lv_line_number = <ls_result>-line.
zcl_abapgit_objects=>jump(
is_item = ls_item
is_sub_item = ls_sub_item
iv_line_number = lv_line_number ).
RETURN.
ENDIF.
CATCH zcx_abapgit_exception.
ENDTRY.
TRY.
CALL METHOD (''CL_CI_TESTS'')=>(''GET_TEST_REF'')
EXPORTING
p_test = <ls_result>-test
RECEIVING
p_result = lo_test.
CATCH cx_root.
zcx_abapgit_exception=>raise( |Jump to object not supported in your NW release| ).
ENDTRY.
lo_result = lo_test->get_result_node( <ls_result>-kind ).
MOVE-CORRESPONDING <ls_result> TO ls_info.
lo_result->set_info( ls_info ).
lo_result->if_ci_test~navigate( ).
ENDMETHOD.
METHOD on_event.
DATA lv_temp TYPE string.
DATA ls_sorting_req TYPE zif_abapgit_html_table=>ty_sorting_state.
lv_temp = replace(
val = ii_event->mv_action
regex = |^{ c_ci_sig }|
with = \`\` ).
IF lv_temp <> ii_event->mv_action. " CI navigation request detected
handle_navigation( lv_temp ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
ENDIF.
ls_sorting_req = zcl_abapgit_html_table=>detect_sorting_request( ii_event->mv_action ).
IF ls_sorting_req IS NOT INITIAL.
ms_sorting_state = ls_sorting_req.
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ENDIF.
IF ii_event->mv_action = c_actions-filter_kind.
mv_filter_kind = ii_event->query( )->get( ''kind'' ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ENDIF.
ENDMETHOD.
METHOD render_ci_report.
ii_html->add( ''<div class="ci">'' ).
render_head(
ii_html = ii_html
iv_variant = iv_variant
iv_summary = mv_summary ).
IF lines( mt_result ) = 0.
render_success(
ii_html = ii_html
iv_message = iv_success_msg ).
ELSE.
render_stats(
ii_html = ii_html
it_result = mt_result ).
render_detail(
ii_html = ii_html
it_result = mt_result ).
ENDIF.
ii_html->add( ''</div>'' ).
ENDMETHOD.
METHOD render_detail.
DATA li_table TYPE REF TO zcl_abapgit_html_table.
DATA lt_view TYPE ty_view_tab.
li_table = zcl_abapgit_html_table=>create(
)->define_column(
iv_column_id = ''kind''
iv_column_title = zcl_abapgit_html=>icon( ''exclamation-circle'' )
)->define_column(
iv_column_id = ''obj_type''
iv_column_title = ''Type''
)->define_column(
iv_column_id = ''location''
iv_column_title = ''Obj. name / location''
)->define_column(
iv_column_id = ''text''
iv_column_title = ''Text'' ).
lt_view = convert_result_to_view( it_result ).
IF ms_sorting_state-column_id IS INITIAL.
ms_sorting_state-column_id = ''kind''.
ENDIF.
apply_sorting( CHANGING ct_view = lt_view ).
apply_filter_kind( CHANGING ct_view = lt_view ).
ii_html->div(
iv_class = ''ci-detail''
ii_content = li_table->render(
ii_renderer = me
is_sorting_state = ms_sorting_state
iv_wrap_in_div = ''default-table-container''
iv_css_class = ''default-table''
iv_with_cids = abap_true
it_data = lt_view ) ).
IF lines( it_result ) > c_limit.
render_limit_warning( ii_html ).
ENDIF.
ENDMETHOD.
METHOD render_head.
ii_html->div(
iv_class = ''ci-msg''
iv_content =
|Code inspector check variant <span class="ci-variant">{
iv_variant }</span> completed ({ iv_summary })| ).
ENDMETHOD.
METHOD render_limit_warning.
ii_html->add( ''<div class="dummydiv warning">'' ).
ii_html->add( ii_html->icon( ''exclamation-triangle'' ) ).
ii_html->add( |Only first { c_limit } findings shown in list!| ).
ii_html->add( ''</div>'' ).
ENDMETHOD.
METHOD render_stat.
DATA lv_txt TYPE string.
lv_txt = |{ iv_count } { iv_title }|.
IF iv_type <> mv_filter_kind.
lv_txt = ii_html->a(
iv_txt = lv_txt
iv_act = |{ c_actions-filter_kind }?kind={ iv_type }|
iv_typ = zif_abapgit_html=>c_action_type-sapevent ).
ENDIF.
ii_html->add( |<span class="count { iv_type }-count">{ lv_txt }</span>| ).
ENDMETHOD.
METHOD render_stats.
FIELD-SYMBOLS <ls_i> LIKE LINE OF it_result.
DATA lv_errors TYPE i.
DATA lv_warnings TYPE i.
DATA lv_infos TYPE i.
IF mv_filter_kind IS INITIAL.
mv_filter_kind = ''all''.
ENDIF.
LOOP AT it_result ASSIGNING <ls_i>.
CASE <ls_i>-kind.
WHEN ''E''.
lv_errors = lv_errors + 1.
WHEN ''W''.
lv_warnings = lv_warnings + 1.
WHEN OTHERS.
lv_infos = lv_infos + 1.
ENDCASE.
ENDLOOP.
ii_html->add( ''<div class="ci-stats">'' ).
IF lv_errors > 0.
render_stat(
ii_html = ii_html
iv_count = lv_errors
iv_type = ''error''
iv_title = ''errors'' ).
ENDIF.
IF lv_warnings > 0.
render_stat(
ii_html = ii_html
iv_count = lv_warnings
iv_type = ''warn''
iv_title = ''warnings'' ).
ENDIF.
IF lv_infos > 0.
render_stat(
ii_html = ii_html
iv_count = lv_infos
iv_type = ''info''
iv_title = ''infos'' ).
ENDIF.
render_stat(
ii_html = ii_html
iv_count = lv_infos + lv_errors + lv_warnings
iv_type = ''all''
iv_title = ''all'' ).
ii_html->add( ''</div>'' ).
ENDMETHOD.
METHOD render_success.
ii_html->add( ''<div class="dummydiv success">'' ).
ii_html->add( ii_html->icon( ''check'' ) ).
ii_html->add( iv_message ).
ii_html->add( ''</div>'' ).
ENDMETHOD.
METHOD zif_abapgit_html_table~get_row_attrs.
FIELD-SYMBOLS <ls_item> TYPE ty_result_view.
ASSIGN is_row TO <ls_item>.
rs_attrs-data-name = ''kind''.
CASE <ls_item>-kind.
WHEN ''E''.
rs_attrs-data-value = ''error''.
WHEN ''W''.
rs_attrs-data-value = ''warning''.
WHEN OTHERS.
rs_attrs-data-value = ''info''.
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_html_table~render_cell.
FIELD-SYMBOLS <ls_item> TYPE ty_result_view.
ASSIGN is_row TO <ls_item>.
CASE iv_column_id.
WHEN ''kind''.
rs_render-content = |<span>{ <ls_item>-kind }</span>|.
WHEN ''obj_type''.
rs_render-content = <ls_item>-obj_type.
WHEN ''location''.
rs_render-content = zcl_abapgit_html=>create( )->a(
iv_txt = <ls_item>-location
iv_act = <ls_item>-nav
iv_typ = zif_abapgit_html=>c_action_type-sapevent ).
WHEN ''text''.
rs_render-content = escape(
val = <ls_item>-text
format = cl_abap_format=>e_html_attr ).
ENDCASE.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_RUNIT ', 'CLASS zcl_abapgit_gui_page_runit DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_component
FINAL
CREATE PUBLIC.
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_event_handler.
INTERFACES zif_abapgit_gui_renderable.
INTERFACES zif_abapgit_gui_menu_provider.
CLASS-METHODS create
IMPORTING
!io_repo TYPE REF TO zcl_abapgit_repo
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception.
METHODS constructor
IMPORTING
!io_repo TYPE REF TO zcl_abapgit_repo
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS:
BEGIN OF c_actions,
rerun TYPE string VALUE ''rerun'' ##NO_TEXT,
END OF c_actions .
TYPES:
BEGIN OF ty_key,
obj_name TYPE tadir-obj_name,
obj_type TYPE tadir-object,
END OF ty_key,
ty_keys_tt TYPE STANDARD TABLE OF ty_key WITH DEFAULT KEY.
DATA mo_repo TYPE REF TO zcl_abapgit_repo.
DATA mv_summary TYPE string.
METHODS build_tadir
RETURNING
VALUE(rt_tadir) TYPE ty_keys_tt
RAISING
zcx_abapgit_exception.
METHODS run
RETURNING
VALUE(ro_result) TYPE REF TO object
RAISING
zcx_abapgit_exception.
METHODS get_text_for_method
IMPORTING
!is_method TYPE any
!it_indices TYPE ANY TABLE
!iv_program_ndx TYPE sy-tabix
!iv_class_ndx TYPE sy-tabix
!iv_method_ndx TYPE sy-tabix
RETURNING
VALUE(rv_text) TYPE string.
ENDCLASS.
CLASS zcl_abapgit_gui_page_runit IMPLEMENTATION.
METHOD build_tadir.
DATA lt_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt.
DATA ls_tadir LIKE LINE OF lt_tadir.
DATA ls_row LIKE LINE OF rt_tadir.
lt_tadir = mo_repo->get_tadir_objects( ).
LOOP AT lt_tadir INTO ls_tadir.
CLEAR ls_row.
ls_row-obj_type = ls_tadir-object.
ls_row-obj_name = ls_tadir-obj_name.
APPEND ls_row TO rt_tadir.
ENDLOOP.
ENDMETHOD.
METHOD constructor.
super->constructor( ).
mo_repo = io_repo.
TRY.
CALL METHOD (''\\PROGRAM=SAPLSAUCV_GUI_RUNNER\\CLASS=PASSPORT'')=>get.
CATCH cx_root.
zcx_abapgit_exception=>raise( |Not supported in your NW release| ).
ENDTRY.
ENDMETHOD.
METHOD create.
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_runit.
TRY.
CREATE OBJECT lo_component EXPORTING io_repo = io_repo.
ri_page = zcl_abapgit_gui_page_hoc=>create(
iv_page_title = |Unit Tests|
ii_page_menu_provider = lo_component
ii_child_component = lo_component ).
CATCH zcx_abapgit_exception.
" Fallback as either SAPLSAUCV_GUI_RUNNER is not available in old releases
" or passport=>get is private in newer releases NW >= 756
ri_page = zcl_abapgit_gui_page_code_insp=>create(
io_repo = io_repo
iv_check_variant = ''SWF_ABAP_UNIT'' ).
ENDTRY.
ENDMETHOD.
METHOD get_text_for_method.
DATA lv_params TYPE string.
DATA lv_runtime TYPE timestampl.
DATA lv_msec TYPE string.
FIELD-SYMBOLS <ls_alert_by_index> TYPE any.
FIELD-SYMBOLS <lt_alerts> TYPE ANY TABLE.
FIELD-SYMBOLS <ls_alert> TYPE any.
FIELD-SYMBOLS <lt_params> TYPE string_table.
FIELD-SYMBOLS <lv_any> TYPE any.
FIELD-SYMBOLS <lv_start> TYPE timestampl.
FIELD-SYMBOLS <lv_end> TYPE timestampl.
READ TABLE it_indices WITH KEY
(''PROGRAM_NDX'') = iv_program_ndx
(''CLASS_NDX'') = iv_class_ndx
(''METHOD_NDX'') = iv_method_ndx
ASSIGNING <ls_alert_by_index>.
IF sy-subrc = 0.
ASSIGN COMPONENT ''ALERTS'' OF STRUCTURE <ls_alert_by_index> TO <lt_alerts>.
LOOP AT <lt_alerts> ASSIGNING <ls_alert>.
ASSIGN COMPONENT ''HEADER-PARAMS'' OF STRUCTURE <ls_alert> TO <lt_params>.
LOOP AT <lt_params> INTO lv_params.
rv_text = lv_params.
ENDLOOP.
ENDLOOP.
ENDIF.
CLEAR: lv_msec, lv_runtime.
ASSIGN COMPONENT ''INFO-START_ON'' OF STRUCTURE is_method TO <lv_start>.
IF sy-subrc = 0.
ASSIGN COMPONENT ''INFO-END_ON'' OF STRUCTURE is_method TO <lv_end>.
IF sy-subrc = 0.
TRY.
lv_runtime = cl_abap_tstmp=>subtract(
tstmp1 = <lv_end>
tstmp2 = <lv_start> ) * 1000.
lv_msec = |{ lv_runtime DECIMALS = 0 } ms|.
CATCH cx_parameter_invalid ##NO_HANDLER. "ignore
ENDTRY.
ENDIF.
ENDIF.
IF rv_text IS INITIAL.
rv_text = |<span class="boxed green-filled-set">PASSED</span>|.
IF lv_runtime > 100.
rv_text = rv_text && | <span class="warning">{ lv_msec }</span>|.
ELSE.
rv_text = rv_text && | <span class="success">{ lv_msec }</span>|.
ENDIF.
ELSE.
rv_text = |<span class="boxed red-filled-set">{ rv_text }</span>|.
ENDIF.
ASSIGN COMPONENT ''INFO-NAME'' OF STRUCTURE is_method TO <lv_any>.
rv_text = |<tr><td> { <lv_any> }</td><td>{ rv_text }</td></tr>|.
ENDMETHOD.
METHOD run.
DATA lo_passport TYPE REF TO object.
DATA lo_runner TYPE REF TO object.
DATA lo_timer TYPE REF TO zcl_abapgit_timer.
DATA lt_keys TYPE ty_keys_tt.
DATA li_result TYPE REF TO data.
FIELD-SYMBOLS <li_result> TYPE any.
lt_keys = build_tadir( ).
lo_timer = zcl_abapgit_timer=>create( iv_count = lines( lt_keys ) )->start( ).
TRY.
CALL METHOD (''\\PROGRAM=SAPLSAUCV_GUI_RUNNER\\CLASS=PASSPORT'')=>get
RECEIVING
result = lo_passport.
CALL METHOD (''CL_AUCV_TEST_RUNNER_STANDARD'')=>create
EXPORTING
i_passport = lo_passport
RECEIVING
result = lo_runner.
CATCH cx_root.
zcx_abapgit_exception=>raise( |Not supported in your NW release| ).
ENDTRY.
CREATE DATA li_result TYPE REF TO (''IF_SAUNIT_INTERNAL_RESULT'').
ASSIGN li_result->* TO <li_result>.
CALL METHOD lo_runner->(''RUN_FOR_PROGRAM_KEYS'')
EXPORTING
i_limit_on_duration_category = ''36'' " long
i_limit_on_risk_level = ''33'' " critical
i_program_keys = lt_keys
IMPORTING
e_aunit_result = <li_result>.
mv_summary = lo_timer->end( ).
ro_result = <li_result>.
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
CASE ii_event->mv_action.
WHEN c_actions-rerun.
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN OTHERS.
ASSERT 1 = 1.
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_gui_menu_provider~get_menu.
CREATE OBJECT ro_toolbar.
ro_toolbar->add(
iv_txt = ''Re-Run''
iv_act = c_actions-rerun
iv_cur = abap_false ).
ro_toolbar->add(
iv_txt = ''Back''
iv_act = zif_abapgit_definitions=>c_action-go_back ).
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
DATA lo_result TYPE REF TO object.
DATA lv_program_ndx TYPE i.
DATA lv_class_ndx TYPE i.
DATA lv_text TYPE string.
DATA lv_count TYPE i.
DATA lv_params TYPE string.
DATA ls_item TYPE zif_abapgit_definitions=>ty_repo_item.
FIELD-SYMBOLS <ls_task_data> TYPE any.
FIELD-SYMBOLS <lt_programs> TYPE ANY TABLE.
FIELD-SYMBOLS <ls_alert_by_index> TYPE any.
FIELD-SYMBOLS <lt_indices> TYPE ANY TABLE.
FIELD-SYMBOLS <lt_alerts> TYPE ANY TABLE.
FIELD-SYMBOLS <lt_classes> TYPE ANY TABLE.
FIELD-SYMBOLS <lt_methods> TYPE ANY TABLE.
FIELD-SYMBOLS <ls_alert> TYPE any.
FIELD-SYMBOLS <ls_program> TYPE any.
FIELD-SYMBOLS <ls_class> TYPE any.
FIELD-SYMBOLS <ls_method> TYPE any.
FIELD-SYMBOLS <lv_any> TYPE any.
FIELD-SYMBOLS <lt_text_info> TYPE ANY TABLE.
FIELD-SYMBOLS <ls_text_info> TYPE any.
FIELD-SYMBOLS <lt_params> TYPE string_table.
register_handlers( ).
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<div class="repo">'' ).
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_repo_top( io_repo = mo_repo
iv_show_commit = abap_false ) ).
lo_result = run( ).
ASSIGN lo_result->(''F_TASK_DATA'') TO <ls_task_data>.
ASSIGN COMPONENT ''ALERTS_BY_INDICIES'' OF STRUCTURE <ls_task_data> TO <lt_indices>.
ASSIGN COMPONENT ''PROGRAMS'' OF STRUCTURE <ls_task_data> TO <lt_programs>.
IF <lt_programs> IS INITIAL.
ri_html->add( ''<div class="ci-head">'' ).
ri_html->add( ''No unit tests found'' ).
ri_html->add( ''</div>'' ).
RETURN.
ENDIF.
ri_html->add( |<table class="unit_tests">| ).
LOOP AT <lt_indices> ASSIGNING <ls_alert_by_index>.
ASSIGN COMPONENT ''ALERTS'' OF STRUCTURE <ls_alert_by_index> TO <lt_alerts>.
LOOP AT <lt_alerts> ASSIGNING <ls_alert> WHERE (''KIND = ''''F'''' OR KIND = ''''S'''' OR KIND = ''''E'''' OR KIND = ''''W'''''').
CLEAR lv_text.
ASSIGN COMPONENT ''HEADER-PARAMS'' OF STRUCTURE <ls_alert> TO <lt_params>.
LOOP AT <lt_params> INTO lv_params.
lv_text = lv_text && lv_params.
ENDLOOP.
ASSIGN COMPONENT ''TEXT_INFOS'' OF STRUCTURE <ls_alert> TO <lt_text_info>.
LOOP AT <lt_text_info> ASSIGNING <ls_text_info>.
ASSIGN COMPONENT ''PARAMS'' OF STRUCTURE <ls_text_info> TO <lt_params>.
LOOP AT <lt_params> INTO lv_params.
lv_text = lv_text && lv_params.
ENDLOOP.
ENDLOOP.
IF lv_text NP ''*SAUNIT_NO_TEST_CLASS*''.
ri_html->add( |<tr><td><span class="boxed red-filled-set">{ lv_text }</span></td></tr>| ).
lv_count = lv_count + 1.
ENDIF.
ENDLOOP.
ENDLOOP.
ri_html->add( ''</table>'' ).
ri_html->add( ''<div class="ci-head">'' ).
ri_html->add( |Unit tests completed with <strong>{ lv_count } errors</strong> ({ mv_summary })| ).
ri_html->add( ''</div>'' ).
ri_html->add( |<hr><table class="unit_tests">| ).
LOOP AT <lt_programs> ASSIGNING <ls_program>.
CLEAR ls_item.
lv_program_ndx = sy-tabix.
ASSIGN COMPONENT ''INFO-KEY-OBJ_TYPE'' OF STRUCTURE <ls_program> TO <lv_any>.
IF sy-subrc = 0.
ls_item-obj_type = <lv_any>.
ASSIGN COMPONENT ''INFO-KEY-OBJ_NAME'' OF STRUCTURE <ls_program> TO <lv_any>.
ls_item-obj_name = <lv_any>.
ri_html->add( |<tr><td>{ zcl_abapgit_gui_chunk_lib=>get_item_icon( ls_item ) } { ls_item-obj_type }|
&& | { zcl_abapgit_gui_chunk_lib=>get_item_link( ls_item ) }</td><td></td></tr>| ).
ELSE.
" KEY field does not exist in 750
ASSIGN COMPONENT ''INFO-NAME'' OF STRUCTURE <ls_program> TO <lv_any>.
ri_html->add( |<tr><td>{ <lv_any> }</td><td></td></tr>| ).
ENDIF.
ASSIGN COMPONENT ''CLASSES'' OF STRUCTURE <ls_program> TO <lt_classes>.
LOOP AT <lt_classes> ASSIGNING <ls_class>.
lv_class_ndx = sy-tabix.
ASSIGN COMPONENT ''INFO-NAME'' OF STRUCTURE <ls_class> TO <lv_any>.
ri_html->add( |<tr><td> { <lv_any> }</td><td></td></tr>| ).
ASSIGN COMPONENT ''METHODS'' OF STRUCTURE <ls_class> TO <lt_methods>.
LOOP AT <lt_methods> ASSIGNING <ls_method>.
ri_html->add( get_text_for_method(
is_method = <ls_method>
it_indices = <lt_indices>
iv_program_ndx = lv_program_ndx
iv_class_ndx = lv_class_ndx
iv_method_ndx = sy-tabix ) ).
ENDLOOP.
ENDLOOP.
ENDLOOP.
ri_html->add( ''</table></div>'' ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_SYNTAX ', 'CLASS zcl_abapgit_gui_page_syntax DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_page_codi_base
FINAL
CREATE PRIVATE.
PUBLIC SECTION.
INTERFACES:
zif_abapgit_gui_page_title,
zif_abapgit_gui_event_handler,
zif_abapgit_gui_hotkeys,
zif_abapgit_gui_menu_provider,
zif_abapgit_gui_renderable.
CLASS-METHODS create
IMPORTING
io_repo TYPE REF TO zcl_abapgit_repo
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception.
METHODS constructor
IMPORTING
io_repo TYPE REF TO zcl_abapgit_repo
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
CONSTANTS c_variant TYPE c LENGTH 30 VALUE ''SYNTAX_CHECK''.
PRIVATE SECTION.
METHODS run_syntax_check
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS ZCL_ABAPGIT_GUI_PAGE_SYNTAX IMPLEMENTATION.
METHOD constructor.
super->constructor( ).
mo_repo = io_repo.
run_syntax_check( ).
ENDMETHOD.
METHOD create.
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_syntax.
CREATE OBJECT lo_component
EXPORTING
io_repo = io_repo.
ri_page = zcl_abapgit_gui_page_hoc=>create( lo_component ).
ENDMETHOD.
METHOD run_syntax_check.
DATA: li_syntax_check TYPE REF TO zif_abapgit_code_inspector.
li_syntax_check = zcl_abapgit_factory=>get_code_inspector( mo_repo->get_package( ) ).
TRY.
mt_result = li_syntax_check->run( c_variant ).
CATCH zcx_abapgit_exception.
" Variant SYNTAX_CHECK does not exist in 702
mt_result = li_syntax_check->run( ''VERI_'' && c_variant ).
ENDTRY.
mv_summary = li_syntax_check->get_summary( ).
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
CASE ii_event->mv_action.
WHEN c_actions-rerun.
run_syntax_check( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN OTHERS.
rs_handled = on_event( ii_event ).
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_gui_hotkeys~get_hotkey_actions.
DATA: ls_hotkey_action LIKE LINE OF rt_hotkey_actions.
ls_hotkey_action-ui_component = ''Syntax Check''.
ls_hotkey_action-description = |Re-Run|.
ls_hotkey_action-action = c_actions-rerun.
ls_hotkey_action-hotkey = |r|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ENDMETHOD.
METHOD zif_abapgit_gui_menu_provider~get_menu.
ro_toolbar = build_base_menu( ).
ro_toolbar->add(
iv_txt = ''Back''
iv_act = zif_abapgit_definitions=>c_action-go_back ).
ENDMETHOD.
METHOD zif_abapgit_gui_page_title~get_page_title.
rv_title = ''Syntax Check''.
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
register_handlers( ).
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->div(
iv_class = ''repo''
ii_content = zcl_abapgit_gui_chunk_lib=>render_repo_top(
io_repo = mo_repo
iv_show_commit = abap_false ) ).
render_ci_report(
ii_html = ri_html
iv_variant = c_variant
iv_success_msg = ''No syntax errors'' ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_WHEREUSED ', 'CLASS zcl_abapgit_gui_page_whereused DEFINITION
PUBLIC
FINAL
INHERITING FROM zcl_abapgit_gui_component
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES:
zif_abapgit_gui_page_title,
zif_abapgit_gui_event_handler,
zif_abapgit_gui_hotkeys,
zif_abapgit_gui_menu_provider,
zif_abapgit_gui_renderable,
zif_abapgit_html_table.
CLASS-METHODS create
IMPORTING
iv_package TYPE devclass OPTIONAL
ii_repo TYPE REF TO zif_abapgit_repo OPTIONAL
PREFERRED PARAMETER iv_package
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception.
METHODS constructor
IMPORTING
iv_package TYPE devclass OPTIONAL
ii_repo TYPE REF TO zif_abapgit_repo OPTIONAL
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS:
BEGIN OF c_action,
refresh TYPE string VALUE ''refresh'',
show_used_obj TYPE string VALUE ''show_used_obj'',
END OF c_action.
CONSTANTS c_title TYPE string VALUE ''Where Used''.
DATA mv_package TYPE devclass.
DATA mv_ignore_subpackages TYPE abap_bool.
DATA mi_table TYPE REF TO zcl_abapgit_html_table.
DATA mv_show_used_obj TYPE abap_bool.
DATA mt_where_used TYPE zcl_abapgit_where_used_tools=>ty_dependency_tt.
METHODS init_table_component
RAISING
zcx_abapgit_exception.
METHODS render_filter_help_hint
RETURNING
VALUE(rv_html) TYPE string.
METHODS render_header
IMPORTING
ii_html TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception.
METHODS run_where_used
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS ZCL_ABAPGIT_GUI_PAGE_WHEREUSED IMPLEMENTATION.
METHOD constructor.
super->constructor( ).
IF ii_repo IS BOUND.
mv_package = ii_repo->get_package( ).
mv_ignore_subpackages = ii_repo->get_local_settings( )-ignore_subpackages.
ELSE.
mv_package = iv_package.
ENDIF.
IF mv_package IS INITIAL OR zcl_abapgit_factory=>get_sap_package( mv_package )->exists( ) = abap_false.
zcx_abapgit_exception=>raise( |Package { mv_package } does not exist| ).
ENDIF.
run_where_used( ).
ENDMETHOD.
METHOD create.
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_whereused.
CREATE OBJECT lo_component
EXPORTING
ii_repo = ii_repo
iv_package = iv_package.
ri_page = zcl_abapgit_gui_page_hoc=>create( lo_component ).
ENDMETHOD.
METHOD init_table_component.
DATA ls_sorting_state TYPE zif_abapgit_html_table=>ty_sorting_state.
IF mi_table IS BOUND.
RETURN.
ENDIF.
IF ls_sorting_state-column_id IS INITIAL.
ls_sorting_state-column_id = ''package''.
ENDIF.
mi_table = zcl_abapgit_html_table=>create(
ii_renderer = me
is_initial_sorting_state = ls_sorting_state ).
mi_table->define_column_group(
iv_group_title = ''Repo object''
iv_group_id = '''' " No need
)->define_column(
iv_column_id = ''dep_package''
iv_column_title = ''Package''
)->define_column(
iv_column_id = ''dep_obj_type''
iv_column_title = ''Type''
)->define_column(
iv_column_id = ''dep_obj_name''
iv_column_title = ''Name'' ).
mi_table->define_column_group(
iv_group_title = ''Used in''
iv_group_id = ''where'' " Needed for CSS
)->define_column(
iv_column_id = ''package''
iv_column_title = ''Package''
)->define_column(
iv_column_id = ''obj_type''
iv_column_title = ''Type''
)->define_column(
iv_column_id = ''obj_name''
iv_column_title = ''Name'' ).
ENDMETHOD.
METHOD render_filter_help_hint.
DATA li_html TYPE REF TO zif_abapgit_html.
li_html = zcl_abapgit_html=>create(
)->add( \`<p>This tool cycles through all objects in the repo \`
)->add( \`and runs the standard where-used function against it. \`
)->add( \`The result is displayed here less the usages \`
)->add( \`inside the repo itself.</p>\`
)->add( \`<p>The tool can be used to detect \`
)->add( \`potential regressions in the code which uses the repo \`
)->add( \`and external to it (e.g. when deploying updates \`
)->add( \`to a library-like repo).</p>\` ).
rv_html = zcl_abapgit_gui_chunk_lib=>render_help_hint( li_html->render( iv_no_line_breaks = abap_true ) ).
ENDMETHOD.
METHOD render_header.
DATA lv_sub_hint TYPE string.
IF mv_ignore_subpackages = abap_false.
lv_sub_hint = '' and its subpackages''.
ENDIF.
ii_html->div(
iv_class = ''wu-header''
iv_content = |Where used for package {
zcl_abapgit_gui_chunk_lib=>render_package_name( mv_package )->render( iv_no_line_breaks = abap_true )
}{ lv_sub_hint } in other packages. { render_filter_help_hint( ) }| ).
ENDMETHOD.
METHOD run_where_used.
mt_where_used = zcl_abapgit_where_used_tools=>new( )->select_external_usages(
iv_ignore_subpackages = mv_ignore_subpackages
iv_package = mv_package ).
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
IF mi_table->process_sorting_request( ii_event->mv_action ) = abap_true.
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
RETURN.
ENDIF.
CASE ii_event->mv_action.
WHEN c_action-refresh.
run_where_used( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN c_action-show_used_obj.
mv_show_used_obj = boolc( mv_show_used_obj = abap_false ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_gui_hotkeys~get_hotkey_actions.
rt_hotkey_actions = zif_abapgit_gui_menu_provider~get_menu( )->get_hotkeys( c_title ).
ENDMETHOD.
METHOD zif_abapgit_gui_menu_provider~get_menu.
DATA lv_show_used_txt TYPE string.
IF mv_show_used_obj = abap_true.
lv_show_used_txt = ''Hide Used Type''.
ELSE.
lv_show_used_txt = ''Show Used Type''.
ENDIF.
ro_toolbar = zcl_abapgit_html_toolbar=>create(
)->add(
iv_txt = lv_show_used_txt
iv_title = ''Show/Hide used type or object (when available)''
iv_act = c_action-show_used_obj
iv_hotkey = ''u''
)->add(
iv_txt = ''Refresh''
iv_act = c_action-refresh
iv_hotkey = ''r'' ).
ENDMETHOD.
METHOD zif_abapgit_gui_page_title~get_page_title.
rv_title = c_title.
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
register_handlers( ).
init_table_component( ).
ri_html = zcl_abapgit_html=>create( ).
render_header( ri_html ).
IF mt_where_used IS INITIAL.
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_success( ''No usages found'' ) ).
ELSE.
ri_html->div(
iv_class = ''wu''
ii_content = mi_table->render(
iv_wrap_in_div = ''default-table-container''
iv_css_class = ''default-table''
iv_with_cids = abap_true
it_data = mt_where_used ) ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_html_table~get_row_attrs.
ENDMETHOD.
METHOD zif_abapgit_html_table~render_cell.
FIELD-SYMBOLS <ls_i> TYPE zcl_abapgit_where_used_tools=>ty_dependency.
ASSIGN is_row TO <ls_i>.
CASE iv_column_id.
WHEN ''dep_obj_name''.
rs_render-content = <ls_i>-dep_obj_name.
IF mv_show_used_obj = abap_true.
rs_render-content = rs_render-content && |<span class=''used-obj''>{ <ls_i>-dep_used_obj }</span>|.
ENDIF.
WHEN ''obj_type''.
IF <ls_i>-obj_prog_type IS INITIAL.
rs_render-content = <ls_i>-obj_type.
ELSE.
rs_render-content = <ls_i>-obj_type && '':'' && <ls_i>-obj_prog_type.
ENDIF.
WHEN ''obj_name''.
rs_render-content = zcl_abapgit_gui_chunk_lib=>get_item_link(
iv_obj_type = <ls_i>-obj_type
iv_obj_name = <ls_i>-obj_name ).
WHEN OTHERS.
rs_render-content = iv_value.
ENDCASE.
" TODO maybe add title for object cls ?
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_DB ', 'CLASS zcl_abapgit_gui_page_db DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_component
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_event_handler.
INTERFACES zif_abapgit_gui_renderable.
INTERFACES zif_abapgit_gui_menu_provider.
INTERFACES zif_abapgit_html_table.
CLASS-METHODS create
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception.
METHODS constructor
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS:
BEGIN OF c_action,
delete TYPE string VALUE ''delete'',
backup TYPE string VALUE ''backup'',
restore TYPE string VALUE ''restore'',
END OF c_action.
CONSTANTS c_css_url TYPE string VALUE ''css/page_db.css''.
CONSTANTS c_toc_filename TYPE string VALUE ''#_Table_of_Content_#.txt''.
TYPES:
BEGIN OF ty_explanation,
value TYPE string,
extra TYPE string,
END OF ty_explanation.
DATA mt_methods TYPE zcl_abapgit_background=>ty_methods.
METHODS register_stylesheet
RAISING
zcx_abapgit_exception.
METHODS render_stats
IMPORTING
it_db_entries TYPE zif_abapgit_persistence=>ty_contents
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception.
METHODS render_table
IMPORTING
it_db_entries TYPE zif_abapgit_persistence=>ty_contents
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception.
METHODS do_backup_db
RAISING
zcx_abapgit_exception.
CLASS-METHODS do_delete_entry
IMPORTING
!is_key TYPE zif_abapgit_persistence=>ty_content
RAISING
zcx_abapgit_exception.
CLASS-METHODS do_restore_db
RAISING
zcx_abapgit_exception.
METHODS explain_content
IMPORTING
!is_data TYPE zif_abapgit_persistence=>ty_content
RETURNING
VALUE(rv_text) TYPE string
RAISING
zcx_abapgit_exception.
METHODS explain_content_repo
IMPORTING
!is_data TYPE zif_abapgit_persistence=>ty_content
RETURNING
VALUE(rs_expl) TYPE ty_explanation
RAISING
zcx_abapgit_exception.
METHODS explain_content_repo_cs
IMPORTING
!is_data TYPE zif_abapgit_persistence=>ty_content
RETURNING
VALUE(rs_expl) TYPE ty_explanation
RAISING
zcx_abapgit_exception.
METHODS explain_content_background
IMPORTING
!is_data TYPE zif_abapgit_persistence=>ty_content
RETURNING
VALUE(rs_expl) TYPE ty_explanation
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_gui_page_db IMPLEMENTATION.
METHOD constructor.
super->constructor( ).
register_stylesheet( ).
ENDMETHOD.
METHOD create.
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_db.
CREATE OBJECT lo_component.
ri_page = zcl_abapgit_gui_page_hoc=>create(
iv_page_title = ''Database Utility''
iv_extra_css_url = c_css_url
ii_page_menu_provider = lo_component
ii_child_component = lo_component ).
ENDMETHOD.
METHOD do_backup_db.
DATA:
lt_data TYPE zif_abapgit_persistence=>ty_contents,
lv_text TYPE string,
lt_toc TYPE string_table,
lo_zip TYPE REF TO cl_abap_zip,
lv_zip TYPE xstring,
lv_path TYPE string,
lv_filename TYPE string,
li_fe_serv TYPE REF TO zif_abapgit_frontend_services.
FIELD-SYMBOLS:
<ls_data> LIKE LINE OF lt_data.
lt_data = zcl_abapgit_persistence_db=>get_instance( )->list( ).
lv_text = |Table of Content\\n|.
INSERT lv_text INTO TABLE lt_toc.
lv_text = |================\\n|.
INSERT lv_text INTO TABLE lt_toc.
lv_text = |\\n|.
INSERT lv_text INTO TABLE lt_toc.
CREATE OBJECT lo_zip.
LOOP AT lt_data ASSIGNING <ls_data>.
IF <ls_data>-type = zcl_abapgit_persistence_db=>c_type_repo_csum.
CONCATENATE <ls_data>-type ''_'' <ls_data>-value ''.txt'' INTO lv_filename.
ELSE.
CONCATENATE <ls_data>-type ''_'' <ls_data>-value ''.xml'' INTO lv_filename.
ENDIF.
lo_zip->add(
name = lv_filename
content = zcl_abapgit_convert=>string_to_xstring_utf8( <ls_data>-data_str ) ).
lv_text = explain_content( <ls_data> ).
REPLACE ''<strong>'' IN lv_text WITH ''''.
REPLACE ''</strong>'' IN lv_text WITH ''''.
lv_text = |{ <ls_data>-type },{ <ls_data>-value },{ lv_text }\\n|.
INSERT lv_text INTO TABLE lt_toc.
ENDLOOP.
lo_zip->add(
name = c_toc_filename
content = zcl_abapgit_convert=>string_to_xstring_utf8( concat_lines_of( lt_toc ) ) ).
lv_zip = lo_zip->save( ).
CONCATENATE ''abapGit_Backup_'' sy-datlo ''_'' sy-timlo ''.zip'' INTO lv_filename.
li_fe_serv = zcl_abapgit_ui_factory=>get_frontend_services( ).
lv_path = li_fe_serv->show_file_save_dialog(
iv_title = ''abapGit Backup''
iv_extension = ''zip''
iv_default_filename = lv_filename ).
li_fe_serv->file_download(
iv_path = lv_path
iv_xstr = lv_zip ).
MESSAGE ''abapGit Backup successfully saved'' TYPE ''S''.
ENDMETHOD.
METHOD do_delete_entry.
DATA lv_answer TYPE c LENGTH 1.
ASSERT is_key-type IS NOT INITIAL.
lv_answer = zcl_abapgit_ui_factory=>get_popups( )->popup_to_confirm(
iv_titlebar = ''Warning''
iv_text_question = |Are you sure you want to delete entry { is_key-type } { is_key-value }?|
iv_text_button_1 = ''Yes''
iv_icon_button_1 = ''ICON_DELETE''
iv_text_button_2 = ''No''
iv_icon_button_2 = ''ICON_CANCEL''
iv_default_button = ''2''
iv_display_cancel_button = abap_false ).
IF lv_answer = ''2''.
RAISE EXCEPTION TYPE zcx_abapgit_cancel.
ENDIF.
zcl_abapgit_persistence_db=>get_instance( )->delete(
iv_type = is_key-type
iv_value = is_key-value ).
" If deleting repo, also delete corresponding checksums
" Other way around is ok, since checksums are automatically recreated
IF is_key-type = zcl_abapgit_persistence_db=>c_type_repo.
zcl_abapgit_persistence_db=>get_instance( )->delete(
iv_type = zcl_abapgit_persistence_db=>c_type_repo_csum
iv_value = is_key-value ).
" Initialize repo list
zcl_abapgit_repo_srv=>get_instance( )->init( ).
" TODO: think how to remove this code,
" maybe implement subscription in persistence_db,
" so that repo_srv receive a notification on add/delete
ENDIF.
COMMIT WORK.
ENDMETHOD.
METHOD do_restore_db.
DATA:
lv_answer TYPE c LENGTH 1,
lo_zip TYPE REF TO cl_abap_zip,
lv_zip TYPE xstring,
lv_path TYPE string,
lv_filename TYPE string,
lv_data TYPE xstring,
ls_data TYPE zif_abapgit_persistence=>ty_content,
lt_data TYPE zif_abapgit_persistence=>ty_contents,
lt_data_old TYPE zif_abapgit_persistence=>ty_contents,
li_fe_serv TYPE REF TO zif_abapgit_frontend_services.
FIELD-SYMBOLS:
<ls_zipfile> LIKE LINE OF lo_zip->files.
li_fe_serv = zcl_abapgit_ui_factory=>get_frontend_services( ).
lv_path = li_fe_serv->show_file_open_dialog(
iv_title = ''Restore abapGit Backup''
iv_extension = ''zip''
iv_default_filename = ''abapGit_Backup_*.zip'' ).
lv_zip = li_fe_serv->file_upload( lv_path ).
CREATE OBJECT lo_zip.
lo_zip->load(
EXPORTING
zip = lv_zip
EXCEPTIONS
zip_parse_error = 1
OTHERS = 2 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''Error loading ZIP file'' ).
ENDIF.
LOOP AT lo_zip->files ASSIGNING <ls_zipfile> WHERE name <> c_toc_filename.
CLEAR ls_data.
lv_filename = <ls_zipfile>-name.
REPLACE ''.xml'' IN lv_filename WITH ''''.
REPLACE ''.txt'' IN lv_filename WITH ''''.
IF lv_filename CP ''REPO_CS*''.
ls_data-type = lv_filename(7).
ls_data-value = lv_filename+8(*).
ELSE.
SPLIT lv_filename AT ''_'' INTO ls_data-type ls_data-value.
ENDIF.
" Validate DB key
TRY.
zcl_abapgit_persistence_db=>validate_entry_type( ls_data-type ).
CATCH zcx_abapgit_exception.
zcx_abapgit_exception=>raise( |Invalid DB entry type. This is not an abapGit Backup| ).
ENDTRY.
lo_zip->get(
EXPORTING
name = <ls_zipfile>-name
IMPORTING
content = lv_data
EXCEPTIONS
zip_index_error = 1
zip_decompression_error = 2
OTHERS = 3 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error getting file { <ls_zipfile>-name } from ZIP| ).
ENDIF.
ls_data-data_str = zcl_abapgit_convert=>xstring_to_string_utf8( lv_data ).
INSERT ls_data INTO TABLE lt_data.
ENDLOOP.
lv_answer = zcl_abapgit_ui_factory=>get_popups( )->popup_to_confirm(
iv_titlebar = ''Warning''
iv_text_question = ''All existing repositories and settings will be deleted and overwritten! Continue?''
iv_text_button_1 = ''Restore''
iv_icon_button_1 = ''ICON_IMPORT''
iv_text_button_2 = ''Cancel''
iv_icon_button_2 = ''ICON_CANCEL''
iv_default_button = ''2''
iv_display_cancel_button = abap_false ).
IF lv_answer <> ''1''.
RAISE EXCEPTION TYPE zcx_abapgit_cancel.
ENDIF.
lt_data_old = zcl_abapgit_persistence_db=>get_instance( )->list( ).
LOOP AT lt_data_old INTO ls_data.
zcl_abapgit_persistence_db=>get_instance( )->delete(
iv_type = ls_data-type
iv_value = ls_data-value ).
ENDLOOP.
COMMIT WORK AND WAIT.
LOOP AT lt_data INTO ls_data.
zcl_abapgit_persistence_db=>get_instance( )->add(
iv_type = ls_data-type
iv_value = ls_data-value
iv_data = ls_data-data_str ).
ENDLOOP.
COMMIT WORK AND WAIT.
MESSAGE ''abapGit Backup successfully restored'' TYPE ''S''.
ENDMETHOD.
METHOD explain_content.
DATA lv_descr TYPE string.
DATA ls_explanation TYPE ty_explanation.
CASE is_data-type.
WHEN zcl_abapgit_persistence_db=>c_type_repo.
lv_descr = ''Repo Settings''.
ls_explanation = explain_content_repo( is_data ).
WHEN zcl_abapgit_persistence_db=>c_type_background.
lv_descr = ''Background Settings''.
ls_explanation = explain_content_background( is_data ).
WHEN zcl_abapgit_persistence_db=>c_type_user.
lv_descr = ''Personal Settings''.
ls_explanation-value = zcl_abapgit_user_record=>get_instance( is_data-value )->get_name( ).
WHEN zcl_abapgit_persistence_db=>c_type_settings.
lv_descr = ''Global Settings''.
WHEN zcl_abapgit_persistence_db=>c_type_packages.
lv_descr = ''Local Package Details''.
WHEN zcl_abapgit_persistence_db=>c_type_repo_csum.
lv_descr = ''Repo Checksums''.
ls_explanation = explain_content_repo_cs( is_data ).
WHEN OTHERS.
IF strlen( is_data-data_str ) >= 250.
ls_explanation-value = is_data-data_str(250).
ELSE.
ls_explanation-value = is_data-data_str.
ENDIF.
ls_explanation-value = escape(
val = ls_explanation-value
format = cl_abap_format=>e_html_attr ).
ls_explanation-value = |<pre>{ ls_explanation-value }</pre>|.
ENDCASE.
IF ls_explanation-value IS NOT INITIAL.
lv_descr = |{ lv_descr }: |.
ENDIF.
IF ls_explanation-extra IS NOT INITIAL.
ls_explanation-extra = | ({ ls_explanation-extra })|.
ENDIF.
rv_text = |{ lv_descr }<strong>{ ls_explanation-value }</strong>{ ls_explanation-extra }|.
IF strlen( rv_text ) >= 250.
rv_text = rv_text(250) && ''...''.
ENDIF.
ENDMETHOD.
METHOD explain_content_background.
DATA:
ls_result TYPE match_result,
ls_match TYPE submatch_result,
lv_class TYPE string,
ls_method LIKE LINE OF mt_methods.
rs_expl-value = |{ zcl_abapgit_repo_srv=>get_instance( )->get( is_data-value )->get_name( ) }|.
FIND FIRST OCCURRENCE OF REGEX ''<METHOD>(.*)</METHOD>''
IN is_data-data_str IGNORING CASE RESULTS ls_result.
READ TABLE ls_result-submatches INTO ls_match INDEX 1.
IF sy-subrc = 0.
lv_class = is_data-data_str+ls_match-offset(ls_match-length).
ENDIF.
IF mt_methods IS INITIAL.
mt_methods = zcl_abapgit_background=>list_methods( ).
ENDIF.
READ TABLE mt_methods INTO ls_method WITH TABLE KEY class = lv_class.
IF sy-subrc = 0.
rs_expl-extra = ls_method-description.
ELSE.
rs_expl-extra = lv_class.
ENDIF.
ENDMETHOD.
METHOD explain_content_repo.
DATA:
ls_result TYPE match_result,
ls_match TYPE submatch_result,
lv_cnt TYPE i.
FIND FIRST OCCURRENCE OF REGEX ''<OFFLINE/>''
IN is_data-data_str IGNORING CASE MATCH COUNT lv_cnt.
IF lv_cnt > 0.
rs_expl-extra = ''Online''.
ELSE.
rs_expl-extra = ''Offline''.
ENDIF.
FIND FIRST OCCURRENCE OF REGEX ''<DISPLAY_NAME>(.*)</DISPLAY_NAME>''
IN is_data-data_str IGNORING CASE RESULTS ls_result.
READ TABLE ls_result-submatches INTO ls_match INDEX 1.
IF sy-subrc = 0.
rs_expl-value = is_data-data_str+ls_match-offset(ls_match-length).
ELSE.
FIND FIRST OCCURRENCE OF REGEX ''<NAME>(.*)</NAME>''
IN is_data-data_str IGNORING CASE RESULTS ls_result.
READ TABLE ls_result-submatches INTO ls_match INDEX 1.
IF sy-subrc = 0.
rs_expl-value = is_data-data_str+ls_match-offset(ls_match-length).
ENDIF.
ENDIF.
IF rs_expl-value IS INITIAL.
FIND FIRST OCCURRENCE OF REGEX ''<URL>(.*)</URL>''
IN is_data-data_str IGNORING CASE RESULTS ls_result.
READ TABLE ls_result-submatches INTO ls_match INDEX 1.
IF sy-subrc = 0.
rs_expl-value = is_data-data_str+ls_match-offset(ls_match-length).
IF lv_cnt > 0.
rs_expl-value = zcl_abapgit_url=>name( rs_expl-value ).
ENDIF.
ENDIF.
ENDIF.
ENDMETHOD.
METHOD explain_content_repo_cs.
DATA lt_lines TYPE string_table.
IF strlen( is_data-data_str ) > 0.
SPLIT is_data-data_str AT cl_abap_char_utilities=>newline INTO TABLE lt_lines.
rs_expl-extra = |{ lines( lt_lines ) } lines|.
READ TABLE lt_lines INDEX 1 INTO rs_expl-value.
IF sy-subrc = 0.
REPLACE ''#repo_name#'' IN rs_expl-value WITH ''''.
rs_expl-value = escape(
val = rs_expl-value
format = cl_abap_format=>e_html_attr ).
ENDIF.
ENDIF.
ENDMETHOD.
METHOD register_stylesheet.
DATA lo_buf TYPE REF TO zcl_abapgit_string_buffer.
CREATE OBJECT lo_buf.
" @@abapmerge include zabapgit_css_page_db.w3mi.data.css > lo_buf->add( ''$$'' ).
gui_services( )->register_page_asset(
iv_url = c_css_url
iv_type = ''text/css''
iv_mime_name = ''ZABAPGIT_CSS_PAGE_DB''
iv_inline = lo_buf->join_w_newline_and_flush( ) ).
ENDMETHOD.
METHOD render_stats.
DATA:
lv_cnt TYPE i,
lv_online TYPE i,
lv_offline TYPE i,
lv_users TYPE i.
FIELD-SYMBOLS <ls_db_entry> LIKE LINE OF it_db_entries.
LOOP AT it_db_entries ASSIGNING <ls_db_entry>.
IF <ls_db_entry>-type = zcl_abapgit_persistence_db=>c_type_repo.
FIND FIRST OCCURRENCE OF REGEX ''<OFFLINE/>''
IN <ls_db_entry>-data_str IGNORING CASE MATCH COUNT lv_cnt.
IF lv_cnt > 0.
lv_online = lv_online + 1.
ELSE.
lv_offline = lv_offline + 1.
ENDIF.
ELSEIF <ls_db_entry>-type = zcl_abapgit_persistence_db=>c_type_user.
lv_users = lv_users + 1.
ENDIF.
ENDLOOP.
ri_html = zcl_abapgit_html=>create( ).
ri_html->add( |Repositories: { lv_online + lv_offline } ({ lv_online } online, { lv_offline } offline),| ).
ri_html->add( |Users: { lv_users }| ).
ENDMETHOD.
METHOD render_table.
ri_html = zcl_abapgit_html_table=>create( me
)->define_column(
iv_column_id = ''type''
iv_column_title = ''Type''
)->define_column(
iv_column_id = ''value''
iv_column_title = ''Key''
)->define_column(
iv_column_id = ''expl''
iv_column_title = ''Data''
)->define_column( ''cmd''
)->render( it_db_entries ).
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
DATA ls_db TYPE zif_abapgit_persistence=>ty_content.
DATA lo_query TYPE REF TO zcl_abapgit_string_map.
lo_query = ii_event->query( ).
CASE ii_event->mv_action.
WHEN c_action-delete.
lo_query->to_abap( CHANGING cs_container = ls_db ).
do_delete_entry( ls_db ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN c_action-backup.
do_backup_db( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN c_action-restore.
do_restore_db( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_gui_menu_provider~get_menu.
CREATE OBJECT ro_toolbar.
ro_toolbar->add(
iv_txt = ''Backup''
iv_act = c_action-backup ).
ro_toolbar->add(
iv_txt = ''Restore''
iv_act = c_action-restore ).
ro_toolbar->add(
iv_txt = ''Back''
iv_act = zif_abapgit_definitions=>c_action-go_back ).
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
DATA lt_db_entries TYPE zif_abapgit_persistence=>ty_contents.
register_handlers( ).
lt_db_entries = zcl_abapgit_persistence_db=>get_instance( )->list( ).
ri_html = zcl_abapgit_html=>create( ).
ri_html->add( ''<div class="db-list">'' ).
ri_html->add( render_stats( lt_db_entries ) ).
ri_html->add( ''</div>'' ).
ri_html->add( ''<div class="db-list">'' ).
ri_html->add( render_table( lt_db_entries ) ).
ri_html->add( ''</div>'' ).
ENDMETHOD.
METHOD zif_abapgit_html_table~get_row_attrs.
ENDMETHOD.
METHOD zif_abapgit_html_table~render_cell.
DATA lv_action TYPE string.
DATA lo_toolbar TYPE REF TO zcl_abapgit_html_toolbar.
CASE iv_column_id.
WHEN ''type'' OR ''value''.
rs_render-content = |{ iv_value }|.
WHEN ''expl''.
rs_render-content = explain_content( is_row ).
rs_render-css_class = ''data''.
WHEN ''cmd''.
lv_action = zcl_abapgit_html_action_utils=>dbkey_encode( is_row ).
lo_toolbar = zcl_abapgit_html_toolbar=>create(
)->add(
iv_txt = ''Display''
iv_act = |{ zif_abapgit_definitions=>c_action-db_display }?{ lv_action }|
)->add(
iv_txt = ''Edit''
iv_act = |{ zif_abapgit_definitions=>c_action-db_edit }?{ lv_action }|
)->add(
iv_txt = ''Delete''
iv_act = |{ c_action-delete }?{ lv_action }| ).
rs_render-html = lo_toolbar->render( ).
ENDCASE.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_DB_ENTRY ', 'CLASS zcl_abapgit_gui_page_db_entry DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_component
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_event_handler .
INTERFACES zif_abapgit_gui_renderable .
INTERFACES zif_abapgit_gui_page_title .
CLASS-METHODS create
IMPORTING
!is_key TYPE zif_abapgit_persistence=>ty_content
!iv_edit_mode TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception .
METHODS constructor
IMPORTING
!is_key TYPE zif_abapgit_persistence=>ty_content
!iv_edit_mode TYPE abap_bool DEFAULT abap_false
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS:
BEGIN OF c_action,
update TYPE string VALUE ''update'',
switch_mode TYPE string VALUE ''switch_mode'',
END OF c_action .
CONSTANTS c_edit_form_id TYPE string VALUE \`db_form\`.
CONSTANTS c_css_url TYPE string VALUE ''css/page_db_entry.css''.
DATA ms_key TYPE zif_abapgit_persistence=>ty_content.
DATA mv_edit_mode TYPE abap_bool.
METHODS register_stylesheet
RAISING
zcx_abapgit_exception.
METHODS render_view
IMPORTING
iv_raw_db_value TYPE zif_abapgit_persistence=>ty_content-data_str
ii_html TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception.
METHODS render_edit
IMPORTING
iv_raw_db_value TYPE zif_abapgit_persistence=>ty_content-data_str
ii_html TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception.
METHODS render_header
IMPORTING
ii_html TYPE REF TO zif_abapgit_html
io_toolbar TYPE REF TO zcl_abapgit_html_toolbar.
METHODS build_toolbar
RETURNING
VALUE(ro_toolbar) TYPE REF TO zcl_abapgit_html_toolbar.
CLASS-METHODS render_entry_tag
IMPORTING
is_key TYPE zif_abapgit_persistence=>ty_content
RETURNING
VALUE(rv_html) TYPE string.
CLASS-METHODS dbcontent_decode
IMPORTING
io_form_data TYPE REF TO zcl_abapgit_string_map
RETURNING
VALUE(rs_content) TYPE zif_abapgit_persistence=>ty_content
RAISING
zcx_abapgit_exception .
CLASS-METHODS do_update
IMPORTING
is_content TYPE zif_abapgit_persistence=>ty_content
RAISING
zcx_abapgit_exception .
ENDCLASS.
CLASS zcl_abapgit_gui_page_db_entry IMPLEMENTATION.
METHOD build_toolbar.
CREATE OBJECT ro_toolbar.
IF mv_edit_mode = abap_true.
ro_toolbar->add(
iv_act = |submitFormById(''{ c_edit_form_id }'');|
iv_txt = ''Save''
iv_typ = zif_abapgit_html=>c_action_type-onclick
iv_opt = zif_abapgit_html=>c_html_opt-strong ).
ELSE.
ro_toolbar->add(
iv_act = |{ c_action-switch_mode }|
iv_txt = ''Edit'' ).
ENDIF.
ro_toolbar->add(
iv_act = zif_abapgit_definitions=>c_action-go_back
iv_txt = ''Back'' ).
ENDMETHOD.
METHOD constructor.
super->constructor( ).
register_stylesheet( ).
mv_edit_mode = iv_edit_mode.
ms_key = is_key.
ENDMETHOD.
METHOD create.
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_db_entry.
CREATE OBJECT lo_component
EXPORTING
iv_edit_mode = iv_edit_mode
is_key = is_key.
ri_page = zcl_abapgit_gui_page_hoc=>create(
iv_extra_css_url = c_css_url
ii_page_title_provider = lo_component
ii_child_component = lo_component ).
ENDMETHOD.
METHOD dbcontent_decode.
rs_content-type = io_form_data->get( ''TYPE'' ).
rs_content-value = io_form_data->get( ''VALUE'' ).
rs_content-data_str = io_form_data->get( ''XMLDATA'' ).
IF rs_content-data_str(1) <> ''<'' AND rs_content-data_str+1(1) = ''<''. " Hmmm ???
rs_content-data_str = rs_content-data_str+1.
ENDIF.
ENDMETHOD.
METHOD do_update.
ASSERT is_content-type IS NOT INITIAL.
zcl_abapgit_persistence_db=>get_instance( )->update(
iv_type = is_content-type
iv_value = is_content-value
iv_data = is_content-data_str ).
COMMIT WORK.
ENDMETHOD.
METHOD register_stylesheet.
DATA lo_buf TYPE REF TO zcl_abapgit_string_buffer.
CREATE OBJECT lo_buf.
" @@abapmerge include zabapgit_css_page_db_entry.w3mi.data.css > lo_buf->add( ''$$'' ).
gui_services( )->register_page_asset(
iv_url = c_css_url
iv_type = ''text/css''
iv_mime_name = ''ZABAPGIT_CSS_PAGE_DB_ENTRY''
iv_inline = lo_buf->join_w_newline_and_flush( ) ).
ENDMETHOD.
METHOD render_edit.
DATA lv_formatted TYPE string.
lv_formatted = escape(
val = zcl_abapgit_xml_pretty=>print( iv_raw_db_value )
format = cl_abap_format=>e_html_attr ).
" Form
ii_html->add( |<form id="{ c_edit_form_id }" method="post" action="sapevent:{ c_action-update }">| ).
ii_html->add( |<input type="hidden" name="type" value="{ ms_key-type }">| ).
ii_html->add( |<input type="hidden" name="value" value="{ ms_key-value }">| ).
ii_html->add( |<textarea rows="20" cols="100" name="xmldata">{ lv_formatted }</textarea>| ).
ii_html->add( ''</form>'' ).
ENDMETHOD.
METHOD render_entry_tag.
rv_html =
|<dl class="entry-tag">| &&
|<div><dt>Type</dt><dd>{ is_key-type }</dd></div>| &&
|<div><dt>Key</dt><dd>{ is_key-value }</dd></div>| &&
|</dl>|.
ENDMETHOD.
METHOD render_header.
ii_html->add( ''<div class="toolbar">'' ).
ii_html->add( io_toolbar->render( iv_right = abap_true ) ).
ii_html->add( render_entry_tag( ms_key ) ).
ii_html->add( ''</div>'' ).
ENDMETHOD.
METHOD render_view.
DATA lo_highlighter TYPE REF TO zcl_abapgit_syntax_highlighter.
DATA lv_formatted TYPE string.
" Create syntax highlighter
lo_highlighter = zcl_abapgit_syntax_factory=>create( ''*.xml'' ).
lv_formatted = lo_highlighter->process_line( zcl_abapgit_xml_pretty=>print( iv_raw_db_value ) ).
ii_html->add( |<pre class="syntax-hl">{ lv_formatted }</pre>| ).
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
CASE ii_event->mv_action.
WHEN c_action-switch_mode.
mv_edit_mode = boolc( mv_edit_mode = abap_false ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN c_action-update.
do_update( dbcontent_decode( ii_event->form_data( ) ) ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-go_back.
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_gui_page_title~get_page_title.
IF mv_edit_mode = abap_true.
rv_title = ''Config Edit''.
ELSE.
rv_title = ''Config Display''.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
DATA lv_raw_db_value TYPE zif_abapgit_persistence=>ty_content-data_str.
register_handlers( ).
TRY.
lv_raw_db_value = zcl_abapgit_persistence_db=>get_instance( )->read(
iv_type = ms_key-type
iv_value = ms_key-value ).
CATCH zcx_abapgit_not_found ##NO_HANDLER.
ENDTRY.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<div class="db-entry">'' ).
render_header(
ii_html = ri_html
io_toolbar = build_toolbar( ) ).
IF mv_edit_mode = abap_true.
zcl_abapgit_persistence_db=>get_instance( )->lock(
iv_type = ms_key-type
iv_value = ms_key-value ).
render_edit(
iv_raw_db_value = lv_raw_db_value
ii_html = ri_html ).
ELSE.
render_view(
iv_raw_db_value = lv_raw_db_value
ii_html = ri_html ).
ENDIF.
ri_html->add( ''</div>'' ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_ADDOFFLIN ', 'CLASS zcl_abapgit_gui_page_addofflin DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_component
FINAL
CREATE PRIVATE.
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_event_handler.
INTERFACES zif_abapgit_gui_renderable.
CLASS-METHODS create
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception.
METHODS constructor
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS:
BEGIN OF c_id,
name TYPE string VALUE ''name'',
package TYPE string VALUE ''package'',
folder_logic TYPE string VALUE ''folder_logic'',
labels TYPE string VALUE ''labels'',
ignore_subpackages TYPE string VALUE ''ignore_subpackages'',
main_lang_only TYPE string VALUE ''main_lang_only'',
abap_lang_vers TYPE string VALUE ''abap_lang_vers'',
END OF c_id .
CONSTANTS:
BEGIN OF c_event,
choose_package TYPE string VALUE ''choose-package'',
choose_labels TYPE string VALUE ''choose-labels'',
create_package TYPE string VALUE ''create-package'',
add_offline_repo TYPE string VALUE ''add-repo-offline'',
END OF c_event .
DATA mo_form TYPE REF TO zcl_abapgit_html_form .
DATA mo_form_data TYPE REF TO zcl_abapgit_string_map .
DATA mo_form_util TYPE REF TO zcl_abapgit_html_form_utils.
DATA mo_validation_log TYPE REF TO zcl_abapgit_string_map .
METHODS validate_form
IMPORTING
!io_form_data TYPE REF TO zcl_abapgit_string_map
RETURNING
VALUE(ro_validation_log) TYPE REF TO zcl_abapgit_string_map
RAISING
zcx_abapgit_exception .
METHODS get_form_schema
RETURNING
VALUE(ro_form) TYPE REF TO zcl_abapgit_html_form .
METHODS choose_labels
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_gui_page_addofflin IMPLEMENTATION.
METHOD choose_labels.
DATA:
lv_old_labels TYPE string,
lv_new_labels TYPE string.
lv_old_labels = mo_form_data->get( c_id-labels ).
lv_new_labels = zcl_abapgit_ui_factory=>get_popups( )->popup_to_select_labels( lv_old_labels ).
mo_form_data->set(
iv_key = c_id-labels
iv_val = lv_new_labels ).
ENDMETHOD.
METHOD constructor.
super->constructor( ).
CREATE OBJECT mo_validation_log.
CREATE OBJECT mo_form_data.
mo_form = get_form_schema( ).
mo_form_util = zcl_abapgit_html_form_utils=>create( mo_form ).
ENDMETHOD.
METHOD create.
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_addofflin.
CREATE OBJECT lo_component.
ri_page = zcl_abapgit_gui_page_hoc=>create(
iv_page_title = ''New Offline Repository''
ii_child_component = lo_component ).
ENDMETHOD.
METHOD get_form_schema.
ro_form = zcl_abapgit_html_form=>create(
iv_form_id = ''add-repo-offline-form''
iv_help_page = ''https://docs.abapgit.org/guide-offline-install.html'' ).
ro_form->text(
iv_name = c_id-name
iv_required = abap_true
iv_label = ''Name''
iv_hint = ''Unique name for repository''
)->text(
iv_name = c_id-package
iv_side_action = c_event-choose_package
iv_required = abap_true
iv_upper_case = abap_true
iv_label = ''Package''
iv_hint = ''SAP package for repository (should be a dedicated one)''
iv_placeholder = ''Z... / $...''
iv_max = 30
)->radio(
iv_name = c_id-folder_logic
iv_default_value = zif_abapgit_dot_abapgit=>c_folder_logic-prefix
iv_label = ''Folder Logic''
iv_hint = ''Define how package folders are named in repository''
)->option(
iv_label = ''Prefix''
iv_value = zif_abapgit_dot_abapgit=>c_folder_logic-prefix
)->option(
iv_label = ''Full''
iv_value = zif_abapgit_dot_abapgit=>c_folder_logic-full
)->option(
iv_label = ''Mixed''
iv_value = zif_abapgit_dot_abapgit=>c_folder_logic-mixed
)->text(
iv_name = c_id-labels
iv_side_action = c_event-choose_labels
iv_label = |Labels (comma-separated, allowed chars: "{ zcl_abapgit_repo_labels=>c_allowed_chars }")|
iv_hint = ''Comma-separated labels for grouping and repo organization (optional)''
)->checkbox(
iv_name = c_id-ignore_subpackages
iv_label = ''Ignore Subpackages''
iv_hint = ''Synchronize root package only''
)->checkbox(
iv_name = c_id-main_lang_only
iv_label = ''Serialize Main Language Only''
iv_hint = ''Ignore translations, serialize just main language'' ).
IF zcl_abapgit_feature=>is_enabled( zcl_abapgit_abap_language_vers=>c_feature_flag ) = abap_true.
ro_form->radio(
iv_name = c_id-abap_lang_vers
iv_default_value = ''''
iv_label = ''ABAP Language Version''
iv_hint = ''Define the ABAP language version for objects in the repository''
)->option(
iv_label = ''Any''
iv_value = ''''
)->option(
iv_label = ''Ignore''
iv_value = zif_abapgit_dot_abapgit=>c_abap_language_version-ignore
)->option(
iv_label = ''Standard''
iv_value = zif_abapgit_dot_abapgit=>c_abap_language_version-standard
)->option(
iv_label = ''For Key Users''
iv_value = zif_abapgit_dot_abapgit=>c_abap_language_version-key_user
)->option(
iv_label = ''For Cloud Development''
iv_value = zif_abapgit_dot_abapgit=>c_abap_language_version-cloud_development ).
ENDIF.
ro_form->command(
iv_label = ''Create Offline Repo''
iv_cmd_type = zif_abapgit_html_form=>c_cmd_type-input_main
iv_action = c_event-add_offline_repo
)->command(
iv_label = ''Create Package''
iv_action = c_event-create_package
)->command(
iv_label = ''Back''
iv_action = zif_abapgit_definitions=>c_action-go_back ).
ENDMETHOD.
METHOD validate_form.
DATA lx_err TYPE REF TO zcx_abapgit_exception.
ro_validation_log = mo_form_util->validate( io_form_data ).
IF io_form_data->get( c_id-package ) IS NOT INITIAL.
TRY.
zcl_abapgit_repo_srv=>get_instance( )->validate_package(
iv_package = |{ io_form_data->get( c_id-package ) }|
iv_ign_subpkg = |{ io_form_data->get( c_id-ignore_subpackages ) }| ).
CATCH zcx_abapgit_exception INTO lx_err.
ro_validation_log->set(
iv_key = c_id-package
iv_val = lx_err->get_text( ) ).
ENDTRY.
ENDIF.
IF io_form_data->get( c_id-folder_logic ) <> zif_abapgit_dot_abapgit=>c_folder_logic-prefix
AND io_form_data->get( c_id-folder_logic ) <> zif_abapgit_dot_abapgit=>c_folder_logic-full
AND io_form_data->get( c_id-folder_logic ) <> zif_abapgit_dot_abapgit=>c_folder_logic-mixed.
ro_validation_log->set(
iv_key = c_id-folder_logic
iv_val = |Invalid folder logic { io_form_data->get( c_id-folder_logic ) }| ).
ENDIF.
TRY.
zcl_abapgit_repo_labels=>validate( io_form_data->get( c_id-labels ) ).
CATCH zcx_abapgit_exception INTO lx_err.
ro_validation_log->set(
iv_key = c_id-labels
iv_val = lx_err->get_text( ) ).
ENDTRY.
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
DATA: ls_repo_params TYPE zif_abapgit_services_repo=>ty_repo_params,
lo_new_offline_repo TYPE REF TO zcl_abapgit_repo_offline.
mo_form_data = mo_form_util->normalize( ii_event->form_data( ) ).
CASE ii_event->mv_action.
WHEN c_event-create_package.
mo_form_data->set(
iv_key = c_id-package
iv_val = zcl_abapgit_services_repo=>create_package(
iv_prefill_package = |{ mo_form_data->get( c_id-package ) }| ) ).
IF mo_form_data->get( c_id-package ) IS NOT INITIAL.
mo_validation_log = validate_form( mo_form_data ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ELSE.
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
ENDIF.
WHEN c_event-choose_package.
mo_form_data->set(
iv_key = c_id-package
iv_val = zcl_abapgit_ui_factory=>get_popups( )->popup_search_help( ''TDEVC-DEVCLASS'' ) ).
IF mo_form_data->get( c_id-package ) IS NOT INITIAL.
mo_validation_log = validate_form( mo_form_data ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ELSE.
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
ENDIF.
WHEN c_event-choose_labels.
choose_labels( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN c_event-add_offline_repo.
mo_validation_log = validate_form( mo_form_data ).
IF mo_validation_log->is_empty( ) = abap_true.
mo_form_data->to_abap( CHANGING cs_container = ls_repo_params ).
lo_new_offline_repo = zcl_abapgit_services_repo=>new_offline( ls_repo_params ).
rs_handled-page = zcl_abapgit_gui_page_repo_view=>create( lo_new_offline_repo->get_key( ) ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page_replacing.
ELSE.
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render. " Display errors
ENDIF.
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
register_handlers( ).
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<div class="form-container">'' ).
ri_html->add( mo_form->render(
io_values = mo_form_data
io_validation_log = mo_validation_log ) ).
ri_html->add( ''</div>'' ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_ADDONLINE ', 'CLASS zcl_abapgit_gui_page_addonline DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_component
FINAL
CREATE PRIVATE.
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_event_handler.
INTERFACES zif_abapgit_gui_renderable.
CLASS-METHODS create
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception.
METHODS constructor
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS:
BEGIN OF c_id,
url TYPE string VALUE ''url'',
package TYPE string VALUE ''package'',
branch_name TYPE string VALUE ''branch_name'',
display_name TYPE string VALUE ''display_name'',
labels TYPE string VALUE ''labels'',
folder_logic TYPE string VALUE ''folder_logic'',
ignore_subpackages TYPE string VALUE ''ignore_subpackages'',
main_lang_only TYPE string VALUE ''main_lang_only'',
abap_lang_vers TYPE string VALUE ''abap_lang_vers'',
END OF c_id.
CONSTANTS:
BEGIN OF c_event,
choose_package TYPE string VALUE ''choose-package'',
create_package TYPE string VALUE ''create-package'',
choose_branch TYPE string VALUE ''choose-branch'',
choose_labels TYPE string VALUE ''choose-labels'',
add_online_repo TYPE string VALUE ''add-repo-online'',
END OF c_event.
DATA mo_form TYPE REF TO zcl_abapgit_html_form .
DATA mo_form_data TYPE REF TO zcl_abapgit_string_map .
DATA mo_form_util TYPE REF TO zcl_abapgit_html_form_utils.
DATA mo_validation_log TYPE REF TO zcl_abapgit_string_map .
METHODS validate_form
IMPORTING
io_form_data TYPE REF TO zcl_abapgit_string_map
RETURNING
VALUE(ro_validation_log) TYPE REF TO zcl_abapgit_string_map
RAISING
zcx_abapgit_exception.
METHODS get_form_schema
RETURNING
VALUE(ro_form) TYPE REF TO zcl_abapgit_html_form.
METHODS choose_labels
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_gui_page_addonline IMPLEMENTATION.
METHOD choose_labels.
DATA:
lv_old_labels TYPE string,
lv_new_labels TYPE string.
lv_old_labels = mo_form_data->get( c_id-labels ).
lv_new_labels = zcl_abapgit_ui_factory=>get_popups( )->popup_to_select_labels( lv_old_labels ).
mo_form_data->set(
iv_key = c_id-labels
iv_val = lv_new_labels ).
ENDMETHOD.
METHOD constructor.
super->constructor( ).
CREATE OBJECT mo_validation_log.
CREATE OBJECT mo_form_data.
mo_form = get_form_schema( ).
mo_form_util = zcl_abapgit_html_form_utils=>create( mo_form ).
ENDMETHOD.
METHOD create.
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_addonline.
CREATE OBJECT lo_component.
ri_page = zcl_abapgit_gui_page_hoc=>create(
iv_page_title = ''New Online Repository''
ii_child_component = lo_component ).
ENDMETHOD.
METHOD get_form_schema.
ro_form = zcl_abapgit_html_form=>create(
iv_form_id = ''add-repo-online-form''
iv_help_page = ''https://docs.abapgit.org/guide-online-install.html'' ).
ro_form->text(
iv_name = c_id-url
iv_required = abap_true
iv_condense = abap_true
iv_label = ''Git Repository URL''
iv_hint = ''HTTPS address of the repository''
iv_placeholder = ''https://github.com/...git''
)->text(
iv_name = c_id-package
iv_side_action = c_event-choose_package
iv_required = abap_true
iv_upper_case = abap_true
iv_label = ''Package''
iv_hint = ''SAP package for repository (should be a dedicated one)''
iv_placeholder = ''Z... / $...''
iv_max = 30
)->text(
iv_name = c_id-branch_name
iv_side_action = c_event-choose_branch
iv_label = ''Branch''
iv_hint = ''Switch to a specific branch (default: autodetect)''
iv_placeholder = ''Autodetect default branch''
)->radio(
iv_name = c_id-folder_logic
iv_default_value = zif_abapgit_dot_abapgit=>c_folder_logic-prefix
iv_label = ''Folder Logic''
iv_hint = ''Define how package folders are named in repository''
)->option(
iv_label = ''Prefix''
iv_value = zif_abapgit_dot_abapgit=>c_folder_logic-prefix
)->option(
iv_label = ''Full''
iv_value = zif_abapgit_dot_abapgit=>c_folder_logic-full
)->option(
iv_label = ''Mixed''
iv_value = zif_abapgit_dot_abapgit=>c_folder_logic-mixed
)->text(
iv_name = c_id-display_name
iv_label = ''Display Name''
iv_hint = ''Name to show instead of original repository name (optional)''
)->text(
iv_name = c_id-labels
iv_side_action = c_event-choose_labels
iv_label = |Labels (comma-separated, allowed chars: "{ zcl_abapgit_repo_labels=>c_allowed_chars }")|
iv_hint = ''Comma-separated labels for grouping and repo organization (optional)''
)->checkbox(
iv_name = c_id-ignore_subpackages
iv_label = ''Ignore Subpackages''
iv_hint = ''Synchronize root package only''
)->checkbox(
iv_name = c_id-main_lang_only
iv_label = ''Serialize Main Language Only''
iv_hint = ''Ignore translations, serialize just main language'' ).
IF zcl_abapgit_feature=>is_enabled( zcl_abapgit_abap_language_vers=>c_feature_flag ) = abap_true.
ro_form->radio(
iv_name = c_id-abap_lang_vers
iv_default_value = ''''
iv_label = ''ABAP Language Version''
iv_hint = ''Define the ABAP language version for objects in the repository''
)->option(
iv_label = ''Any''
iv_value = ''''
)->option(
iv_label = ''Ignore''
iv_value = zif_abapgit_dot_abapgit=>c_abap_language_version-ignore
)->option(
iv_label = ''Standard''
iv_value = zif_abapgit_dot_abapgit=>c_abap_language_version-standard
)->option(
iv_label = ''For Key Users''
iv_value = zif_abapgit_dot_abapgit=>c_abap_language_version-key_user
)->option(
iv_label = ''For Cloud Development''
iv_value = zif_abapgit_dot_abapgit=>c_abap_language_version-cloud_development ).
ENDIF.
ro_form->command(
iv_label = ''Create Online Repo''
iv_cmd_type = zif_abapgit_html_form=>c_cmd_type-input_main
iv_action = c_event-add_online_repo
)->command(
iv_label = ''Create Package''
iv_action = c_event-create_package
)->command(
iv_label = ''Back''
iv_action = zif_abapgit_definitions=>c_action-go_back ).
ENDMETHOD.
METHOD validate_form.
DATA:
lv_url TYPE string,
lo_url TYPE REF TO zcl_abapgit_git_url,
lx_err TYPE REF TO zcx_abapgit_exception.
ro_validation_log = mo_form_util->validate( io_form_data ).
lv_url = io_form_data->get( c_id-url ).
IF lv_url IS NOT INITIAL.
TRY.
zcl_abapgit_repo_srv=>get_instance( )->validate_url( lv_url ).
" Provider-specific URL check
CREATE OBJECT lo_url.
lo_url->validate_url( lv_url ).
CATCH zcx_abapgit_exception INTO lx_err.
ro_validation_log->set(
iv_key = c_id-url
iv_val = lx_err->get_text( ) ).
ENDTRY.
zcl_abapgit_http=>check_connection( lv_url ).
ENDIF.
IF io_form_data->get( c_id-package ) IS NOT INITIAL.
TRY.
zcl_abapgit_repo_srv=>get_instance( )->validate_package(
iv_package = |{ io_form_data->get( c_id-package ) }|
iv_ign_subpkg = |{ io_form_data->get( c_id-ignore_subpackages ) }| ).
CATCH zcx_abapgit_exception INTO lx_err.
ro_validation_log->set(
iv_key = c_id-package
iv_val = lx_err->get_text( ) ).
ENDTRY.
ENDIF.
IF io_form_data->get( c_id-folder_logic ) <> zif_abapgit_dot_abapgit=>c_folder_logic-prefix
AND io_form_data->get( c_id-folder_logic ) <> zif_abapgit_dot_abapgit=>c_folder_logic-full
AND io_form_data->get( c_id-folder_logic ) <> zif_abapgit_dot_abapgit=>c_folder_logic-mixed.
ro_validation_log->set(
iv_key = c_id-folder_logic
iv_val = |Invalid folder logic { io_form_data->get( c_id-folder_logic ) }| ).
ENDIF.
TRY.
zcl_abapgit_repo_labels=>validate( io_form_data->get( c_id-labels ) ).
CATCH zcx_abapgit_exception INTO lx_err.
ro_validation_log->set(
iv_key = c_id-labels
iv_val = lx_err->get_text( ) ).
ENDTRY.
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
DATA: ls_repo_params TYPE zif_abapgit_services_repo=>ty_repo_params,
lo_new_online_repo TYPE REF TO zcl_abapgit_repo_online.
mo_form_data = mo_form_util->normalize( ii_event->form_data( ) ).
CASE ii_event->mv_action.
WHEN c_event-create_package.
mo_form_data->set(
iv_key = c_id-package
iv_val = zcl_abapgit_services_repo=>create_package(
iv_prefill_package = |{ mo_form_data->get( c_id-package ) }| ) ).
IF mo_form_data->get( c_id-package ) IS NOT INITIAL.
mo_validation_log = validate_form( mo_form_data ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ELSE.
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
ENDIF.
WHEN c_event-choose_package.
mo_form_data->set(
iv_key = c_id-package
iv_val = zcl_abapgit_ui_factory=>get_popups( )->popup_search_help( ''TDEVC-DEVCLASS'' ) ).
IF mo_form_data->get( c_id-package ) IS NOT INITIAL.
mo_validation_log = validate_form( mo_form_data ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ELSE.
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
ENDIF.
WHEN c_event-choose_branch.
mo_validation_log = validate_form( mo_form_data ).
IF mo_validation_log->has( c_id-url ) = abap_true.
mo_validation_log->set(
iv_key = c_id-branch_name
iv_val = ''Check URL issues'' ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render. " Display errors
RETURN.
ENDIF.
mo_form_data->set(
iv_key = c_id-branch_name
iv_val = zcl_abapgit_ui_factory=>get_popups( )->branch_list_popup( mo_form_data->get( c_id-url ) )-name ).
IF mo_form_data->get( c_id-branch_name ) IS INITIAL.
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
ELSE.
mo_form_data->set(
iv_key = c_id-branch_name
iv_val = replace( " strip technical
val = mo_form_data->get( c_id-branch_name )
sub = zif_abapgit_git_definitions=>c_git_branch-heads_prefix
with = '''' ) ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ENDIF.
WHEN c_event-choose_labels.
choose_labels( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN c_event-add_online_repo.
mo_validation_log = validate_form( mo_form_data ).
IF mo_validation_log->is_empty( ) = abap_true.
mo_form_data->to_abap( CHANGING cs_container = ls_repo_params ).
lo_new_online_repo = zcl_abapgit_services_repo=>new_online( ls_repo_params ).
rs_handled-page = zcl_abapgit_gui_page_repo_view=>create( lo_new_online_repo->get_key( ) ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page_replacing.
ELSE.
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render. " Display errors
ENDIF.
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
register_handlers( ).
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<div class="form-container">'' ).
ri_html->add( mo_form->render(
io_values = mo_form_data
io_validation_log = mo_validation_log ) ).
ri_html->add( ''</div>'' ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_SETT_BCKG ', 'CLASS zcl_abapgit_gui_page_sett_bckg DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_component
FINAL
CREATE PRIVATE .
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_event_handler .
INTERFACES zif_abapgit_gui_renderable .
CLASS-METHODS create
IMPORTING
!io_repo TYPE REF TO zcl_abapgit_repo
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception .
METHODS constructor
IMPORTING
!io_repo TYPE REF TO zcl_abapgit_repo
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS:
BEGIN OF c_id,
mode_selection TYPE string VALUE ''mode_selection'',
method TYPE string VALUE ''method'',
authentication TYPE string VALUE ''authentication'',
username TYPE string VALUE ''username'',
password TYPE string VALUE ''password'',
mode_settings TYPE string VALUE ''mode_settings'',
settings TYPE string VALUE ''settings'',
END OF c_id .
CONSTANTS:
BEGIN OF c_event,
run_now TYPE string VALUE ''run_now'',
save TYPE string VALUE ''save'',
END OF c_event .
DATA mo_form TYPE REF TO zcl_abapgit_html_form .
DATA mo_form_data TYPE REF TO zcl_abapgit_string_map .
DATA mo_repo TYPE REF TO zcl_abapgit_repo .
DATA mv_settings_count TYPE i .
METHODS get_form_schema
RETURNING
VALUE(ro_form) TYPE REF TO zcl_abapgit_html_form
RAISING
zcx_abapgit_exception .
METHODS read_settings
RETURNING
VALUE(ro_form_data) TYPE REF TO zcl_abapgit_string_map
RAISING
zcx_abapgit_exception .
METHODS read_persist
RETURNING
VALUE(rs_persist) TYPE zcl_abapgit_persist_background=>ty_background
RAISING
zcx_abapgit_exception .
METHODS save_settings
RAISING
zcx_abapgit_exception .
ENDCLASS.
CLASS zcl_abapgit_gui_page_sett_bckg IMPLEMENTATION.
METHOD constructor.
super->constructor( ).
CREATE OBJECT mo_form_data.
mo_repo = io_repo.
mo_form = get_form_schema( ).
mo_form_data = read_settings( ).
ENDMETHOD.
METHOD create.
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_sett_bckg.
CREATE OBJECT lo_component
EXPORTING
io_repo = io_repo.
ri_page = zcl_abapgit_gui_page_hoc=>create(
iv_page_title = ''Background Mode''
io_page_menu = zcl_abapgit_gui_menus=>repo_settings(
iv_key = io_repo->get_key( )
iv_act = zif_abapgit_definitions=>c_action-repo_background )
ii_child_component = lo_component ).
ENDMETHOD.
METHOD get_form_schema.
DATA:
lt_methods TYPE zcl_abapgit_background=>ty_methods,
ls_method LIKE LINE OF lt_methods,
lv_hint TYPE string.
lt_methods = zcl_abapgit_background=>list_methods( ).
ro_form = zcl_abapgit_html_form=>create(
iv_form_id = ''repo-background-form''
iv_help_page = ''https://docs.abapgit.org/settings-background-mode.html'' ).
ro_form->start_group(
iv_name = c_id-mode_selection
iv_label = ''Mode''
)->radio(
iv_name = c_id-method
iv_default_value = ''''
iv_label = ''Selection''
iv_hint = ''Define the action that will be executed in background mode''
)->option(
iv_label = ''Do Nothing''
iv_value = '''' ).
LOOP AT lt_methods INTO ls_method.
ro_form->option(
iv_label = ls_method-description
iv_value = ls_method-class ).
ENDLOOP.
ro_form->table(
iv_name = c_id-settings
iv_hint = ''Settings required for selected background action''
iv_label = ''Additional Settings''
)->column(
iv_label = ''Key''
iv_width = ''50%''
iv_readonly = abap_true
)->column(
iv_label = ''Value''
iv_width = ''50%'' ).
lv_hint = ''Password will be saved in clear text!''.
ro_form->start_group(
iv_name = c_id-authentication
iv_label = ''HTTP Authentication (Optional)''
iv_hint = lv_hint
)->text(
iv_name = c_id-username
iv_label = ''Username''
iv_hint = lv_hint
)->text(
iv_name = c_id-password
iv_label = ''Password''
iv_hint = lv_hint
iv_placeholder = lv_hint ).
ro_form->command(
iv_label = ''Save Settings''
iv_cmd_type = zif_abapgit_html_form=>c_cmd_type-input_main
iv_action = c_event-save
)->command(
iv_label = ''Run Background Logic''
iv_action = zif_abapgit_definitions=>c_action-go_background_run
)->command(
iv_label = ''Back''
iv_action = zif_abapgit_definitions=>c_action-go_back ).
ENDMETHOD.
METHOD read_persist.
DATA lo_per TYPE REF TO zcl_abapgit_persist_background.
CREATE OBJECT lo_per.
TRY.
rs_persist = lo_per->get_by_key( mo_repo->get_key( ) ).
CATCH zcx_abapgit_not_found.
CLEAR rs_persist.
ENDTRY.
ENDMETHOD.
METHOD read_settings.
DATA:
ls_per TYPE zcl_abapgit_persist_background=>ty_background,
lv_row TYPE i,
lv_val TYPE string,
lt_settings LIKE ls_per-settings,
ls_settings LIKE LINE OF ls_per-settings.
ls_per = read_persist( ).
CREATE OBJECT ro_form_data.
" Mode Selection
ro_form_data->set(
iv_key = c_id-method
iv_val = ls_per-method ).
" Mode Settings
IF ls_per-method IS NOT INITIAL.
lt_settings = ls_per-settings.
" skip invalid values, from old background logic
IF ls_per-method <> ''push'' AND ls_per-method <> ''pull'' AND ls_per-method <> ''nothing''.
CALL METHOD (ls_per-method)=>zif_abapgit_background~get_settings
CHANGING
ct_settings = lt_settings.
ENDIF.
LOOP AT lt_settings INTO ls_settings.
lv_row = lv_row + 1.
DO 3 TIMES.
CASE sy-index.
WHEN 1.
lv_val = ls_settings-key.
WHEN 2.
lv_val = ls_settings-value.
ENDCASE.
ro_form_data->set(
iv_key = |{ c_id-settings }-{ lv_row }-{ sy-index }|
iv_val = lv_val ).
ENDDO.
ENDLOOP.
ENDIF.
mv_settings_count = lv_row.
ro_form_data->set(
iv_key = |{ c_id-settings }-{ zif_abapgit_html_form=>c_rows }|
iv_val = |{ mv_settings_count }| ).
" Authentication
ro_form_data->set(
iv_key = c_id-username
iv_val = ls_per-username ).
ro_form_data->set(
iv_key = c_id-password
iv_val = ls_per-password ).
ENDMETHOD.
METHOD save_settings.
DATA:
lo_persistence TYPE REF TO zcl_abapgit_persist_background,
ls_per TYPE zcl_abapgit_persist_background=>ty_background,
lt_settings LIKE ls_per-settings.
FIELD-SYMBOLS:
<ls_settings> LIKE LINE OF ls_per-settings.
ls_per-key = mo_repo->get_key( ).
" Mode Selection
ls_per-method = mo_form_data->get( c_id-method ).
" Mode Settings
IF ls_per-method IS NOT INITIAL.
lt_settings = ls_per-settings.
" skip invalid values, from old background logic
IF ls_per-method <> ''push'' AND ls_per-method <> ''pull'' AND ls_per-method <> ''nothing''.
CALL METHOD (ls_per-method)=>zif_abapgit_background~get_settings
CHANGING
ct_settings = lt_settings.
ENDIF.
LOOP AT lt_settings ASSIGNING <ls_settings>.
<ls_settings>-value = mo_form_data->get( |{ c_id-settings }-{ sy-tabix }-2| ).
ENDLOOP.
ls_per-settings = lt_settings.
ENDIF.
" Authentication
ls_per-username = mo_form_data->get( c_id-username ).
ls_per-password = mo_form_data->get( c_id-password ).
CREATE OBJECT lo_persistence.
IF ls_per-method IS INITIAL.
lo_persistence->delete( ls_per-key ).
ELSE.
lo_persistence->modify( ls_per ).
ENDIF.
COMMIT WORK AND WAIT.
MESSAGE ''Settings successfully saved'' TYPE ''S''.
mo_form_data = read_settings( ).
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
mo_form_data->merge( zcl_abapgit_html_form_utils=>create( mo_form )->normalize( ii_event->form_data( ) ) ).
CASE ii_event->mv_action.
WHEN zif_abapgit_definitions=>c_action-go_back.
rs_handled-state = zcl_abapgit_html_form_utils=>create( mo_form )->exit(
io_form_data = mo_form_data
io_compare_with = read_settings( ) ).
WHEN c_event-save.
save_settings( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
register_handlers( ).
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( \`<div class="repo">\` ).
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_repo_top(
io_repo = mo_repo
iv_show_commit = abap_false
iv_interactive_branch = abap_true ) ).
ri_html->add( mo_form->render(
iv_form_class = ''w800px''
io_values = mo_form_data ) ).
ri_html->add( \`</div>\` ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_SETT_GLOB ', 'CLASS zcl_abapgit_gui_page_sett_glob DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_component
FINAL
CREATE PRIVATE.
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_event_handler.
INTERFACES zif_abapgit_gui_renderable.
CLASS-METHODS create
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception.
METHODS constructor
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS:
BEGIN OF c_id,
proxy_settings TYPE string VALUE ''proxy_settings'',
proxy_url TYPE string VALUE ''proxy_url'',
proxy_port TYPE string VALUE ''proxy_port'',
proxy_auth TYPE string VALUE ''proxy_auth'',
proxy_bypass TYPE string VALUE ''proxy_bypass'',
commit_settings TYPE string VALUE ''commit_settings'',
commitmsg_comment_length TYPE string VALUE ''commitmsg_comment_length'',
commitmsg_comment_deflt TYPE string VALUE ''commitmsg_comment_deflt'',
commitmsg_body_size TYPE string VALUE ''commitmsg_body_size'',
commitmsg_hide_author TYPE string VALUE ''commitmsg_hide_author'',
devint_settings TYPE string VALUE ''devint_settings'',
run_critical_tests TYPE string VALUE ''run_critical_tests'',
experimental_features TYPE string VALUE ''experimental_features'',
activate_wo_popup TYPE string VALUE ''activate_wo_popup'',
END OF c_id.
CONSTANTS:
BEGIN OF c_event,
proxy_bypass TYPE string VALUE ''proxy_bypass'',
save TYPE string VALUE ''save'',
END OF c_event.
DATA mo_form TYPE REF TO zcl_abapgit_html_form.
DATA mo_form_data TYPE REF TO zcl_abapgit_string_map.
DATA mo_validation_log TYPE REF TO zcl_abapgit_string_map.
DATA mo_settings TYPE REF TO zcl_abapgit_settings.
METHODS validate_form
IMPORTING
!io_form_data TYPE REF TO zcl_abapgit_string_map
RETURNING
VALUE(ro_validation_log) TYPE REF TO zcl_abapgit_string_map
RAISING
zcx_abapgit_exception.
METHODS get_form_schema
RETURNING
VALUE(ro_form) TYPE REF TO zcl_abapgit_html_form.
METHODS read_settings
RETURNING
VALUE(ro_form_data) TYPE REF TO zcl_abapgit_string_map
RAISING
zcx_abapgit_exception.
METHODS save_settings
RAISING
zcx_abapgit_exception.
CLASS-METHODS read_proxy_bypass
IMPORTING
io_form_data TYPE REF TO zcl_abapgit_string_map
io_settings TYPE REF TO zcl_abapgit_settings
RAISING
zcx_abapgit_exception.
METHODS save_proxy_bypass
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_gui_page_sett_glob IMPLEMENTATION.
METHOD constructor.
super->constructor( ).
CREATE OBJECT mo_validation_log.
CREATE OBJECT mo_form_data.
mo_form = get_form_schema( ).
mo_form_data = read_settings( ).
ENDMETHOD.
METHOD create.
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_sett_glob.
CREATE OBJECT lo_component.
ri_page = zcl_abapgit_gui_page_hoc=>create(
iv_page_title = ''Global Settings''
io_page_menu = zcl_abapgit_gui_menus=>settings( zif_abapgit_definitions=>c_action-go_settings )
ii_child_component = lo_component ).
ENDMETHOD.
METHOD get_form_schema.
CONSTANTS lc_commitmsg_comment_min_len TYPE i VALUE 1.
CONSTANTS lc_commitmsg_comment_max_len TYPE i VALUE 255.
ro_form = zcl_abapgit_html_form=>create(
iv_form_id = ''global-setting-form''
iv_help_page = ''https://docs.abapgit.org/guide-settings-global.html'' ).
ro_form->start_group(
iv_name = c_id-proxy_settings
iv_label = ''Proxy Settings''
)->text(
iv_name = c_id-proxy_url
iv_label = ''Proxy Host''
iv_hint = ''Hostname or IP of proxy required to access the Internet (do not enter http://)''
iv_placeholder = ''Hostname or IP without http://''
)->number(
iv_name = c_id-proxy_port
iv_label = ''Proxy Port''
iv_hint = ''Port of proxy required to access the Internet''
iv_min = 0
iv_max = 65535
)->checkbox(
iv_name = c_id-proxy_auth
iv_label = ''Proxy Authentication''
iv_hint = ''Check, if proxy requires you to login''
)->textarea(
iv_name = c_id-proxy_bypass
iv_label = ''Proxy Bypass''
iv_hint = ''List of hosts/domains for which to bypass using proxy''
)->start_group(
iv_name = c_id-commit_settings
iv_label = ''Commit Message Settings''
)->number(
iv_name = c_id-commitmsg_comment_length
iv_required = abap_true
iv_label = ''Maximum Length of Comment''
iv_hint = |At most { lc_commitmsg_comment_max_len } characters|
iv_min = lc_commitmsg_comment_min_len
iv_max = lc_commitmsg_comment_max_len
)->text(
iv_name = c_id-commitmsg_comment_deflt
iv_label = ''Default Text For Comment''
iv_hint = ''You can use $OBJECT or $FILE to include the number of objects/files''
)->number(
iv_name = c_id-commitmsg_body_size
iv_required = abap_true
iv_label = ''Maximum Line Size of Body''
iv_hint = |Wrap body message at { zcl_abapgit_settings=>c_commitmsg_body_size_dft } characters per line|
iv_min = zcl_abapgit_settings=>c_commitmsg_body_size_dft
)->checkbox(
iv_name = c_id-commitmsg_hide_author
iv_label = ''Hide Author Fields'' ).
ro_form->start_group(
iv_name = c_id-devint_settings
iv_label = ''Development Internal Settings''
)->checkbox(
iv_name = c_id-run_critical_tests
iv_label = ''Enable Critical Unit Tests''
iv_readonly = zcl_abapgit_factory=>get_environment( )->is_merged( )
)->text(
iv_name = c_id-experimental_features
iv_label = ''Experimental Features''
iv_readonly = zcl_abapgit_factory=>get_environment( )->is_merged( )
iv_hint = ''Set to "X" to enable all features or add feature values as a comma-separated list'' ).
ro_form->command(
iv_label = ''Save Settings''
iv_cmd_type = zif_abapgit_html_form=>c_cmd_type-input_main
iv_action = c_event-save
)->command(
iv_label = ''Back''
iv_action = zif_abapgit_definitions=>c_action-go_back ).
ENDMETHOD.
METHOD read_proxy_bypass.
DATA:
lt_proxy_bypass TYPE zif_abapgit_definitions=>ty_range_proxy_bypass_url,
ls_proxy_bypass LIKE LINE OF lt_proxy_bypass,
lv_val TYPE string.
lt_proxy_bypass = io_settings->get_proxy_bypass( ).
LOOP AT lt_proxy_bypass INTO ls_proxy_bypass.
lv_val = lv_val && ls_proxy_bypass-low && cl_abap_char_utilities=>newline.
ENDLOOP.
io_form_data->set(
iv_key = c_id-proxy_bypass
iv_val = lv_val ).
ENDMETHOD.
METHOD read_settings.
" Get settings from DB
mo_settings = zcl_abapgit_persist_factory=>get_settings( )->read( ).
CREATE OBJECT ro_form_data.
" Proxy
ro_form_data->set(
iv_key = c_id-proxy_url
iv_val = mo_settings->get_proxy_url( ) ).
ro_form_data->set(
iv_key = c_id-proxy_port
iv_val = mo_settings->get_proxy_port( ) ).
ro_form_data->set(
iv_key = c_id-proxy_auth
iv_val = boolc( mo_settings->get_proxy_authentication( ) = abap_true ) ) ##TYPE.
read_proxy_bypass(
io_settings = mo_settings
io_form_data = ro_form_data ).
" Commit Message
ro_form_data->set(
iv_key = c_id-commitmsg_comment_length
iv_val = |{ mo_settings->get_commitmsg_comment_length( ) }| ).
ro_form_data->set(
iv_key = c_id-commitmsg_comment_deflt
iv_val = mo_settings->get_commitmsg_comment_default( ) ).
ro_form_data->set(
iv_key = c_id-commitmsg_body_size
iv_val = |{ mo_settings->get_commitmsg_body_size( ) }| ).
ro_form_data->set(
iv_key = c_id-commitmsg_hide_author
iv_val = boolc( mo_settings->get_commitmsg_hide_author( ) = abap_true ) ) ##TYPE.
" Dev Internal
IF zcl_abapgit_factory=>get_environment( )->is_merged( ) = abap_false.
ro_form_data->set(
iv_key = c_id-run_critical_tests
iv_val = boolc( mo_settings->get_run_critical_tests( ) = abap_true ) ) ##TYPE.
ro_form_data->set(
iv_key = c_id-experimental_features
iv_val = mo_settings->get_experimental_features( ) ).
ENDIF.
ENDMETHOD.
METHOD save_proxy_bypass.
DATA:
lt_textarea TYPE TABLE OF string,
lt_proxy_bypass TYPE zif_abapgit_definitions=>ty_range_proxy_bypass_url,
ls_proxy_bypass LIKE LINE OF lt_proxy_bypass.
lt_textarea = zcl_abapgit_convert=>split_string( mo_form_data->get( c_id-proxy_bypass ) ).
ls_proxy_bypass-sign = ''I''.
LOOP AT lt_textarea INTO ls_proxy_bypass-low WHERE table_line IS NOT INITIAL.
IF ls_proxy_bypass-low CA ''*+''.
ls_proxy_bypass-option = ''CP''.
ELSE.
ls_proxy_bypass-option = ''EQ''.
ENDIF.
APPEND ls_proxy_bypass TO lt_proxy_bypass.
ENDLOOP.
mo_settings->set_proxy_bypass( lt_proxy_bypass ).
ENDMETHOD.
METHOD save_settings.
DATA:
li_persistence TYPE REF TO zif_abapgit_persist_settings,
lv_value TYPE i.
" Proxy
mo_settings->set_proxy_url( mo_form_data->get( c_id-proxy_url ) ).
mo_settings->set_proxy_port( mo_form_data->get( c_id-proxy_port ) ).
mo_settings->set_proxy_authentication( boolc( mo_form_data->get( c_id-proxy_auth ) = abap_true ) ).
save_proxy_bypass( ).
" Commit Message
lv_value = mo_form_data->get( c_id-commitmsg_comment_length ).
mo_settings->set_commitmsg_comment_length( lv_value ).
mo_settings->set_commitmsg_comment_default( mo_form_data->get( c_id-commitmsg_comment_deflt ) ).
lv_value = mo_form_data->get( c_id-commitmsg_body_size ).
mo_settings->set_commitmsg_body_size( lv_value ).
mo_settings->set_commitmsg_hide_author( boolc( mo_form_data->get( c_id-commitmsg_hide_author ) = abap_true ) ).
" Dev Internal
IF zcl_abapgit_factory=>get_environment( )->is_merged( ) = abap_false.
mo_settings->set_run_critical_tests( boolc( mo_form_data->get( c_id-run_critical_tests ) = abap_true ) ).
mo_settings->set_experimental_features( mo_form_data->get( c_id-experimental_features ) ).
ENDIF.
" Store in DB
li_persistence = zcl_abapgit_persist_factory=>get_settings( ).
li_persistence->modify( mo_settings ).
COMMIT WORK AND WAIT.
MESSAGE ''Settings successfully saved'' TYPE ''S''.
mo_form_data = read_settings( ).
ENDMETHOD.
METHOD validate_form.
ro_validation_log = zcl_abapgit_html_form_utils=>create( mo_form )->validate( io_form_data ).
IF io_form_data->get( c_id-proxy_url ) IS NOT INITIAL AND io_form_data->get( c_id-proxy_port ) IS INITIAL OR
io_form_data->get( c_id-proxy_url ) IS INITIAL AND io_form_data->get( c_id-proxy_port ) IS NOT INITIAL.
ro_validation_log->set(
iv_key = c_id-proxy_url
iv_val = |If you specify a proxy, you have to specify host and port| ).
ENDIF.
IF ( io_form_data->get( c_id-proxy_url ) IS INITIAL OR io_form_data->get( c_id-proxy_port ) IS INITIAL ) AND
io_form_data->get( c_id-proxy_auth ) = abap_true.
ro_validation_log->set(
iv_key = c_id-proxy_auth
iv_val = |To turn on authentication, you have to specify host and port| ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
mo_form_data->merge( zcl_abapgit_html_form_utils=>create( mo_form )->normalize( ii_event->form_data( ) ) ).
CASE ii_event->mv_action.
WHEN zif_abapgit_definitions=>c_action-go_back.
rs_handled-state = zcl_abapgit_html_form_utils=>create( mo_form )->exit(
io_form_data = mo_form_data
io_compare_with = read_settings( ) ).
WHEN c_event-save.
" Validate form entries before saving
mo_validation_log = validate_form( mo_form_data ).
IF mo_validation_log->is_empty( ) = abap_true.
save_settings( ).
ENDIF.
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
register_handlers( ).
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<div class="form-container">'' ).
ri_html->add( mo_form->render(
io_values = mo_form_data
io_validation_log = mo_validation_log ) ).
ri_html->add( ''</div>'' ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_SETT_INFO ', 'CLASS zcl_abapgit_gui_page_sett_info DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_component
FINAL
CREATE PRIVATE .
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_event_handler .
INTERFACES zif_abapgit_gui_renderable .
CLASS-METHODS create
IMPORTING
!io_repo TYPE REF TO zcl_abapgit_repo
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception .
METHODS constructor
IMPORTING
!io_repo TYPE REF TO zcl_abapgit_repo
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
PRIVATE SECTION.
TYPES:
BEGIN OF ty_stats,
measure TYPE string,
local TYPE i,
remote TYPE i,
END OF ty_stats .
TYPES:
BEGIN OF ty_infos,
size TYPE p LENGTH 16 DECIMALS 0,
line TYPE p LENGTH 16 DECIMALS 0,
sloc TYPE p LENGTH 16 DECIMALS 0,
END OF ty_infos .
CONSTANTS:
BEGIN OF c_id,
info TYPE string VALUE ''info'',
created_by TYPE string VALUE ''created_by'',
created_at TYPE string VALUE ''created_at'',
deserialized_by TYPE string VALUE ''deserialized_by'',
deserialized_at TYPE string VALUE ''deserialized_at'',
stats TYPE string VALUE ''stats'',
stats_table TYPE string VALUE ''stats_table'',
END OF c_id .
DATA mo_form TYPE REF TO zcl_abapgit_html_form .
DATA mo_form_data TYPE REF TO zcl_abapgit_string_map .
DATA mo_repo TYPE REF TO zcl_abapgit_repo .
DATA:
mt_stats TYPE STANDARD TABLE OF ty_stats WITH KEY measure .
METHODS get_form_schema
RETURNING
VALUE(ro_form) TYPE REF TO zcl_abapgit_html_form
RAISING
zcx_abapgit_exception .
METHODS read_settings
RAISING
zcx_abapgit_exception .
METHODS read_stats
RAISING
zcx_abapgit_exception .
METHODS read_stats_files
EXPORTING
!et_local TYPE zif_abapgit_definitions=>ty_files_item_tt
!et_remote TYPE zif_abapgit_git_definitions=>ty_files_tt
RAISING
zcx_abapgit_exception .
METHODS read_stats_state
RAISING
zcx_abapgit_exception .
METHODS read_stats_size_lines_sloc
IMPORTING
!it_local TYPE zif_abapgit_definitions=>ty_files_item_tt
!it_remote TYPE zif_abapgit_git_definitions=>ty_files_tt
EXPORTING
!et_local_items TYPE zif_abapgit_definitions=>ty_items_tt
!et_remote_items TYPE zif_abapgit_definitions=>ty_items_tt
RAISING
zcx_abapgit_exception .
METHODS read_stats_file
IMPORTING
!is_file TYPE zif_abapgit_git_definitions=>ty_file
RETURNING
VALUE(rs_info) TYPE ty_infos .
METHODS read_stats_objects
CHANGING
!ct_local_items TYPE zif_abapgit_definitions=>ty_items_tt
!ct_remote_items TYPE zif_abapgit_definitions=>ty_items_tt
RAISING
zcx_abapgit_exception .
METHODS format_user
IMPORTING
!iv_username TYPE syuname
RETURNING
VALUE(rv_user) TYPE string .
METHODS format_timestamp
IMPORTING
!iv_timestamp TYPE timestampl
RETURNING
VALUE(rv_timestamp) TYPE string .
METHODS format_size
IMPORTING
!iv_size TYPE i
RETURNING
VALUE(rv_size) TYPE string .
ENDCLASS.
CLASS zcl_abapgit_gui_page_sett_info IMPLEMENTATION.
METHOD constructor.
super->constructor( ).
CREATE OBJECT mo_form_data.
mo_repo = io_repo.
mo_form = get_form_schema( ).
ENDMETHOD.
METHOD create.
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_sett_info.
CREATE OBJECT lo_component
EXPORTING
io_repo = io_repo.
ri_page = zcl_abapgit_gui_page_hoc=>create(
iv_page_title = ''Repository Stats''
io_page_menu = zcl_abapgit_gui_menus=>repo_settings(
iv_key = io_repo->get_key( )
iv_act = zif_abapgit_definitions=>c_action-repo_infos )
ii_child_component = lo_component ).
ENDMETHOD.
METHOD format_size.
DATA:
lv_size TYPE p LENGTH 16 DECIMALS 2.
IF iv_size > 1024 * 1024 * 1024.
lv_size = iv_size / 1024 / 1024 / 1024.
rv_size = |{ lv_size } GB|.
ELSEIF iv_size > 1024 * 1024.
lv_size = iv_size / 1024 / 1024.
rv_size = |{ lv_size } MB|.
ELSEIF iv_size > 1024.
lv_size = iv_size / 1024.
rv_size = |{ lv_size } KB|.
ELSE.
rv_size = |{ iv_size } Bytes|.
ENDIF.
ENDMETHOD.
METHOD format_timestamp.
DATA lv_short TYPE timestamp.
IF iv_timestamp IS INITIAL.
rv_timestamp = ''n/a''.
RETURN.
ENDIF.
cl_abap_tstmp=>move(
EXPORTING tstmp_src = iv_timestamp
IMPORTING tstmp_tgt = lv_short ).
rv_timestamp = |{ lv_short TIMESTAMP = ISO }|.
ENDMETHOD.
METHOD format_user.
DATA lv_title TYPE string.
IF iv_username IS INITIAL.
rv_user = ''n/a''.
RETURN.
ENDIF.
IF iv_username <> zcl_abapgit_objects_super=>c_user_unknown.
lv_title = zcl_abapgit_user_record=>get_title( iv_username ).
ENDIF.
rv_user = iv_username.
IF lv_title IS NOT INITIAL.
rv_user = |{ rv_user } ({ lv_title })|.
ENDIF.
ENDMETHOD.
METHOD get_form_schema.
DATA lv_label TYPE string.
ro_form = zcl_abapgit_html_form=>create(
iv_form_id = ''repo-infos-form''
iv_help_page = ''https://docs.abapgit.org/settings-stats.html'' ).
IF mo_repo->is_offline( ) = abap_true.
lv_label = ''ZIP File''.
ELSE.
lv_label = ''Remote''.
ENDIF.
ro_form->start_group(
iv_name = c_id-info
iv_label = ''Stats''
)->text(
iv_name = c_id-created_by
iv_label = ''Created By''
iv_readonly = abap_true
)->text(
iv_name = c_id-created_at
iv_label = ''Created At''
iv_readonly = abap_true
)->text(
iv_name = c_id-deserialized_by
iv_label = ''Last Deserialized By''
iv_readonly = abap_true
)->text(
iv_name = c_id-deserialized_at
iv_label = ''Last Deserialized At''
iv_readonly = abap_true
)->table(
iv_name = c_id-stats_table
iv_label = ''Statistics''
)->column(
iv_label = ''Measure''
iv_width = ''50%''
iv_readonly = abap_true
)->column(
iv_label = ''Local''
iv_width = ''25%''
iv_readonly = abap_true
)->column(
iv_label = lv_label
iv_width = ''25%''
iv_readonly = abap_true
)->command(
iv_label = ''Back''
iv_action = zif_abapgit_definitions=>c_action-go_back ).
ENDMETHOD.
METHOD read_settings.
DATA:
ls_repo TYPE zif_abapgit_persistence=>ty_repo,
ls_stats TYPE ty_stats,
lv_row TYPE i,
lv_int TYPE i,
lv_val TYPE string.
" Get infos from DB
TRY.
ls_repo = zcl_abapgit_persist_factory=>get_repo( )->read( mo_repo->get_key( ) ).
CATCH zcx_abapgit_not_found.
zcx_abapgit_exception=>raise( |Repo not found, key { mo_repo->get_key( ) }| ).
ENDTRY.
read_stats( ).
" Infos
mo_form_data->set(
iv_key = c_id-created_by
iv_val = format_user( ls_repo-created_by ) ).
mo_form_data->set(
iv_key = c_id-created_at
iv_val = format_timestamp( ls_repo-created_at ) ).
mo_form_data->set(
iv_key = c_id-deserialized_by
iv_val = format_user( ls_repo-deserialized_by ) ).
mo_form_data->set(
iv_key = c_id-deserialized_at
iv_val = format_timestamp( ls_repo-deserialized_at ) ).
LOOP AT mt_stats INTO ls_stats.
lv_row = sy-tabix.
DO 3 TIMES.
CASE sy-index.
WHEN 1.
lv_val = ls_stats-measure.
WHEN 2.
lv_val = ls_stats-local.
WHEN 3.
lv_val = ls_stats-remote.
ENDCASE.
IF ls_stats-measure CS ''Size'' AND sy-index BETWEEN 2 AND 3.
lv_int = lv_val.
lv_val = format_size( lv_int ).
ENDIF.
mo_form_data->set(
iv_key = |{ c_id-stats_table }-{ lv_row }-{ sy-index }|
iv_val = lv_val ).
ENDDO.
ENDLOOP.
mo_form_data->set(
iv_key = |{ c_id-stats_table }-{ zif_abapgit_html_form=>c_rows }|
iv_val = |{ lv_row }| ).
ENDMETHOD.
METHOD read_stats.
DATA:
lt_local TYPE zif_abapgit_definitions=>ty_files_item_tt,
lt_remote TYPE zif_abapgit_git_definitions=>ty_files_tt,
lt_local_items TYPE zif_abapgit_definitions=>ty_items_tt,
lt_remote_items TYPE zif_abapgit_definitions=>ty_items_tt.
CLEAR mt_stats.
read_stats_files(
IMPORTING
et_local = lt_local
et_remote = lt_remote ).
read_stats_state( ).
read_stats_size_lines_sloc(
EXPORTING
it_local = lt_local
it_remote = lt_remote
IMPORTING
et_local_items = lt_local_items
et_remote_items = lt_remote_items ).
read_stats_objects(
CHANGING
ct_local_items = lt_local_items
ct_remote_items = lt_remote_items ).
ENDMETHOD.
METHOD read_stats_file.
TYPES ty_char255 TYPE c LENGTH 255.
DATA:
lv_code TYPE string,
lt_code TYPE STANDARD TABLE OF ty_char255 WITH DEFAULT KEY.
FIELD-SYMBOLS:
<ls_code> LIKE LINE OF lt_code.
rs_info-size = xstrlen( is_file-data ).
IF is_file-filename CP ''*.abap''.
TRY.
lv_code = zcl_abapgit_convert=>xstring_to_string_utf8( is_file-data ).
CATCH zcx_abapgit_exception ##NO_HANDLER.
ENDTRY.
SPLIT lv_code AT cl_abap_char_utilities=>newline INTO TABLE lt_code.
rs_info-line = lines( lt_code ).
LOOP AT lt_code ASSIGNING <ls_code> WHERE table_line IS NOT INITIAL AND table_line(1) <> ''*''.
SHIFT <ls_code> LEFT DELETING LEADING space.
IF <ls_code>(1) <> ''"''.
rs_info-sloc = rs_info-sloc + 1.
ENDIF.
ENDLOOP.
ENDIF.
ENDMETHOD.
METHOD read_stats_files.
DATA ls_stats TYPE ty_stats.
DATA lt_remote_wo_ignored TYPE zif_abapgit_git_definitions=>ty_files_tt.
et_local = mo_repo->get_files_local( ).
ls_stats-measure = ''Number of Files''.
ls_stats-local = lines( et_local ).
IF mo_repo->has_remote_source( ) = abap_true.
et_remote = mo_repo->get_files_remote( ).
ls_stats-remote = lines( et_remote ).
lt_remote_wo_ignored = mo_repo->get_files_remote( iv_ignore_files = abap_true ).
ENDIF.
APPEND ls_stats TO mt_stats.
IF et_remote IS NOT INITIAL.
CLEAR ls_stats.
ls_stats-measure = ''Number of Ignored Files''.
ls_stats-remote = lines( et_remote ) - lines( lt_remote_wo_ignored ).
APPEND ls_stats TO mt_stats.
ENDIF.
ENDMETHOD.
METHOD read_stats_objects.
DATA:
ls_stats TYPE ty_stats,
ls_item TYPE zif_abapgit_definitions=>ty_item,
lt_supported_types TYPE zcl_abapgit_objects=>ty_types_tt.
ls_stats-measure = ''Number of Objects''.
DELETE ct_local_items WHERE obj_type IS INITIAL OR obj_name IS INITIAL.
ls_stats-local = lines( ct_local_items ).
DELETE ct_remote_items WHERE obj_type IS INITIAL OR obj_name IS INITIAL.
ls_stats-remote = lines( ct_remote_items ).
APPEND ls_stats TO mt_stats.
CLEAR ls_stats.
ls_stats-measure = ''Number of Unsupported Objects''.
ls_stats-local = lines( mo_repo->get_unsupported_objects_local( ) ).
lt_supported_types = zcl_abapgit_objects=>supported_list( ).
LOOP AT ct_remote_items INTO ls_item.
READ TABLE lt_supported_types WITH KEY table_line = ls_item-obj_type TRANSPORTING NO FIELDS.
IF sy-subrc <> 0.
ls_stats-remote = ls_stats-remote + 1.
ENDIF.
ENDLOOP.
APPEND ls_stats TO mt_stats.
ENDMETHOD.
METHOD read_stats_size_lines_sloc.
DATA:
ls_stats TYPE ty_stats,
lv_ignored TYPE abap_bool,
ls_info_file TYPE ty_infos,
ls_info_local TYPE ty_infos,
ls_info_remote TYPE ty_infos,
ls_item TYPE zif_abapgit_definitions=>ty_item.
FIELD-SYMBOLS:
<ls_local> LIKE LINE OF it_local,
<ls_remote> LIKE LINE OF it_remote.
LOOP AT it_local ASSIGNING <ls_local>.
ls_info_file = read_stats_file( <ls_local>-file ).
ls_info_local-size = ls_info_local-size + ls_info_file-size.
ls_info_local-line = ls_info_local-line + ls_info_file-line.
ls_info_local-sloc = ls_info_local-sloc + ls_info_file-sloc.
COLLECT <ls_local>-item INTO et_local_items.
ENDLOOP.
IF mo_repo->has_remote_source( ) = abap_true.
LOOP AT it_remote ASSIGNING <ls_remote> WHERE filename IS NOT INITIAL.
lv_ignored = mo_repo->get_dot_abapgit( )->is_ignored(
iv_filename = <ls_remote>-filename
iv_path = <ls_remote>-path ).
IF lv_ignored = abap_false.
ls_info_file = read_stats_file( <ls_remote> ).
ls_info_remote-size = ls_info_remote-size + ls_info_file-size.
ls_info_remote-line = ls_info_remote-line + ls_info_file-line.
ls_info_remote-sloc = ls_info_remote-sloc + ls_info_file-sloc.
TRY.
zcl_abapgit_filename_logic=>file_to_object(
EXPORTING
iv_filename = <ls_remote>-filename
iv_path = <ls_remote>-path
iv_devclass = mo_repo->get_package( )
io_dot = mo_repo->get_dot_abapgit( )
IMPORTING
es_item = ls_item ).
COLLECT ls_item INTO et_remote_items.
CATCH zcx_abapgit_exception ##NO_HANDLER.
ENDTRY.
ENDIF.
ENDLOOP.
ENDIF.
ls_stats-measure = ''Size of Files''.
ls_stats-local = ls_info_local-size.
ls_stats-remote = ls_info_remote-size.
APPEND ls_stats TO mt_stats.
ls_stats-measure = ''Lines in ABAP Files''.
ls_stats-local = ls_info_local-line.
ls_stats-remote = ls_info_remote-line.
APPEND ls_stats TO mt_stats.
ls_stats-measure = ''Lines of Code in ABAP Files''.
ls_stats-local = ls_info_local-sloc.
ls_stats-remote = ls_info_remote-sloc.
APPEND ls_stats TO mt_stats.
ENDMETHOD.
METHOD read_stats_state.
DATA:
lt_results TYPE zif_abapgit_definitions=>ty_results_tt,
lv_state TYPE c LENGTH 1,
ls_stats TYPE ty_stats.
FIELD-SYMBOLS:
<ls_result> LIKE LINE OF lt_results.
lt_results = zcl_abapgit_repo_status=>calculate( mo_repo ).
DO 3 TIMES.
CLEAR ls_stats.
CASE sy-index.
WHEN 1.
ls_stats-measure = ''Number of Modified Files''.
lv_state = zif_abapgit_definitions=>c_state-modified.
WHEN 2.
ls_stats-measure = ''Number of Added Files''.
lv_state = zif_abapgit_definitions=>c_state-added.
WHEN 3.
ls_stats-measure = ''Number of Deleted Files''.
lv_state = zif_abapgit_definitions=>c_state-deleted.
ENDCASE.
LOOP AT lt_results ASSIGNING <ls_result>.
IF <ls_result>-lstate = lv_state.
ls_stats-local = ls_stats-local + 1.
ENDIF.
IF <ls_result>-rstate = lv_state AND mo_repo->has_remote_source( ) = abap_true.
ls_stats-remote = ls_stats-remote + 1.
ENDIF.
ENDLOOP.
APPEND ls_stats TO mt_stats.
ENDDO.
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
IF ii_event->mv_action = zif_abapgit_definitions=>c_action-go_back.
rs_handled-state = zcl_abapgit_gui=>c_event_state-go_back_to_bookmark.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
register_handlers( ).
read_settings( ).
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( \`<div class="repo">\` ).
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_repo_top(
io_repo = mo_repo
iv_show_commit = abap_false
iv_interactive_branch = abap_true ) ).
ri_html->add( mo_form->render( mo_form_data ) ).
ri_html->add( \`</div>\` ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_SETT_LOCL ', 'CLASS zcl_abapgit_gui_page_sett_locl DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_component
FINAL
CREATE PRIVATE .
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_event_handler .
INTERFACES zif_abapgit_gui_renderable .
CLASS-METHODS create
IMPORTING
!io_repo TYPE REF TO zcl_abapgit_repo
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception .
METHODS constructor
IMPORTING
!io_repo TYPE REF TO zcl_abapgit_repo
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
PRIVATE SECTION.
DATA mo_popup_picklist TYPE REF TO zcl_abapgit_gui_picklist.
CONSTANTS:
BEGIN OF c_id,
local TYPE string VALUE ''local'',
display_name TYPE string VALUE ''display_name'',
transport_request TYPE string VALUE ''transport_request'',
customizing_request TYPE string VALUE ''customizing_request'',
labels TYPE string VALUE ''labels'',
ignore_subpackages TYPE string VALUE ''ignore_subpackages'',
write_protected TYPE string VALUE ''write_protected'',
only_local_objects TYPE string VALUE ''only_local_objects'',
main_language_only TYPE string VALUE ''main_language_only'',
checks TYPE string VALUE ''checks'',
code_inspector_check_variant TYPE string VALUE ''code_inspector_check_variant'',
block_commit TYPE string VALUE ''block_commit'',
flow TYPE string VALUE ''flow'',
exclude_remote_paths TYPE string VALUE ''exclude_remote_paths'',
END OF c_id .
CONSTANTS:
BEGIN OF c_event,
save TYPE string VALUE ''save'',
choose_transport_request TYPE string VALUE ''choose_transport_request'',
choose_customizing_request TYPE string VALUE ''choose_customizing_request'',
choose_labels TYPE string VALUE ''choose-labels'',
choose_check_variant TYPE string VALUE ''choose_check_variant'',
END OF c_event .
DATA mo_form TYPE REF TO zcl_abapgit_html_form .
DATA mo_form_data TYPE REF TO zcl_abapgit_string_map .
DATA mo_validation_log TYPE REF TO zcl_abapgit_string_map .
DATA mo_repo TYPE REF TO zcl_abapgit_repo .
DATA ms_settings TYPE zif_abapgit_persistence=>ty_repo-local_settings .
METHODS validate_form
IMPORTING
!io_form_data TYPE REF TO zcl_abapgit_string_map
RETURNING
VALUE(ro_validation_log) TYPE REF TO zcl_abapgit_string_map
RAISING
zcx_abapgit_exception .
METHODS get_form_schema
RETURNING
VALUE(ro_form) TYPE REF TO zcl_abapgit_html_form
RAISING
zcx_abapgit_exception .
METHODS read_settings
RETURNING
VALUE(ro_form_data) TYPE REF TO zcl_abapgit_string_map
RAISING
zcx_abapgit_exception .
METHODS save_settings
RAISING
zcx_abapgit_exception .
METHODS choose_labels
RAISING
zcx_abapgit_exception .
METHODS choose_check_variant
IMPORTING
iv_is_return TYPE abap_bool DEFAULT abap_false
RAISING
zcx_abapgit_exception .
METHODS choose_transport_request
RAISING
zcx_abapgit_exception .
METHODS choose_customizing_request
RAISING
zcx_abapgit_exception .
METHODS is_customizing_included
RETURNING
VALUE(rv_result) TYPE abap_bool
RAISING
zcx_abapgit_exception .
METHODS handle_picklist_state
RAISING
zcx_abapgit_exception .
ENDCLASS.
CLASS ZCL_ABAPGIT_GUI_PAGE_SETT_LOCL IMPLEMENTATION.
METHOD choose_check_variant.
DATA ls_variant TYPE zif_abapgit_code_inspector=>ty_variant.
DATA lv_popup_cancelled TYPE abap_bool.
IF iv_is_return = abap_false.
mo_popup_picklist = zcl_abapgit_popup_code_insp=>create(
)->create_picklist(
)->set_id( c_event-choose_check_variant
)->set_in_page( abap_false ).
ELSE.
lv_popup_cancelled = mo_popup_picklist->was_cancelled( ).
IF lv_popup_cancelled = abap_false.
mo_popup_picklist->get_result_item( CHANGING cs_selected = ls_variant ).
IF ls_variant IS NOT INITIAL.
mo_form_data->set(
iv_key = c_id-code_inspector_check_variant
iv_val = ls_variant-name ).
ENDIF.
ENDIF.
ENDIF.
ENDMETHOD.
METHOD choose_customizing_request.
DATA:
ls_transport_type TYPE zif_abapgit_definitions=>ty_transport_type,
lv_customizing_request TYPE trkorr.
ls_transport_type-request = zif_abapgit_cts_api=>c_transport_type-cust_request.
ls_transport_type-task = zif_abapgit_cts_api=>c_transport_type-cust_task.
lv_customizing_request = zcl_abapgit_ui_factory=>get_popups( )->popup_transport_request( ls_transport_type ).
IF lv_customizing_request IS NOT INITIAL.
mo_form_data->set(
iv_key = c_id-customizing_request
iv_val = lv_customizing_request ).
ENDIF.
ENDMETHOD.
METHOD choose_labels.
DATA:
lv_old_labels TYPE string,
lv_new_labels TYPE string.
lv_old_labels = mo_form_data->get( c_id-labels ).
lv_new_labels = zcl_abapgit_ui_factory=>get_popups( )->popup_to_select_labels( lv_old_labels ).
mo_form_data->set(
iv_key = c_id-labels
iv_val = lv_new_labels ).
ENDMETHOD.
METHOD choose_transport_request.
DATA: lv_transport_request TYPE trkorr.
lv_transport_request = zcl_abapgit_ui_factory=>get_popups( )->popup_transport_request( ).
IF lv_transport_request IS NOT INITIAL.
mo_form_data->set(
iv_key = c_id-transport_request
iv_val = lv_transport_request ).
ENDIF.
ENDMETHOD.
METHOD constructor.
super->constructor( ).
CREATE OBJECT mo_validation_log.
CREATE OBJECT mo_form_data.
mo_repo = io_repo.
mo_form = get_form_schema( ).
mo_form_data = read_settings( ).
ENDMETHOD.
METHOD create.
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_sett_locl.
CREATE OBJECT lo_component
EXPORTING
io_repo = io_repo.
ri_page = zcl_abapgit_gui_page_hoc=>create(
iv_page_title = ''Local Settings & Checks''
io_page_menu = zcl_abapgit_gui_menus=>repo_settings(
iv_key = io_repo->get_key( )
iv_act = zif_abapgit_definitions=>c_action-repo_local_settings )
ii_child_component = lo_component ).
ENDMETHOD.
METHOD get_form_schema.
DATA: li_package TYPE REF TO zif_abapgit_sap_package.
li_package = zcl_abapgit_factory=>get_sap_package( mo_repo->get_package( ) ).
ro_form = zcl_abapgit_html_form=>create(
iv_form_id = ''repo-local-settings-form''
iv_help_page = ''https://docs.abapgit.org/settings-local.html'' ).
ro_form->start_group(
iv_name = c_id-local
iv_label = ''Local Settings''
iv_hint = ''Settings valid for this system only''
)->text(
iv_name = c_id-display_name
iv_label = ''Display Name''
iv_hint = ''Name to show instead of original repo name (optional)'' ).
IF li_package->are_changes_recorded_in_tr_req( ) = abap_true.
ro_form->text(
iv_name = c_id-transport_request
iv_side_action = c_event-choose_transport_request
iv_label = |Transport Request|
iv_hint = ''Transport request; All changes are recorded therein and no transport popup appears|'' ).
ENDIF.
IF is_customizing_included( ) = abap_true.
ro_form->text(
iv_name = c_id-customizing_request
iv_side_action = c_event-choose_customizing_request
iv_label = |Customizing Request|
iv_hint = ''Customizing request; All changes are recorded therein and no customizing popup appears|'' ).
ENDIF.
ro_form->text(
iv_name = c_id-labels
iv_side_action = c_event-choose_labels
iv_label = |Labels (comma-separated, allowed chars: "{ zcl_abapgit_repo_labels=>c_allowed_chars }")|
iv_hint = ''Comma-separated labels for grouping and repo organization (optional)''
)->checkbox(
iv_name = c_id-write_protected
iv_label = ''Write Protected''
iv_hint = ''Lock repository against changes from remote (pull)''
)->checkbox(
iv_name = c_id-ignore_subpackages
iv_label = ''Ignore Subpackages''
iv_hint = ''Synchronize root package only''
)->checkbox(
iv_name = c_id-only_local_objects
iv_label = ''Only Local Objects''
iv_hint = ''Ignore objects imported from other systems; serialize only objects created in this system''
)->checkbox(
iv_name = c_id-main_language_only
iv_label = ''Only Serialize Main Language''
iv_hint = ''Ignore translations; serialize only main language of repository'' ).
ro_form->checkbox(
iv_name = c_id-flow
iv_readonly = boolc( li_package->are_changes_recorded_in_tr_req( ) = abap_false )
iv_label = ''BETA: Enable abapGit flow for this repository (requires transported packages)'' ).
ro_form->textarea(
iv_name = c_id-exclude_remote_paths
iv_label = ''Exclude Paths''
iv_hint = ''List of files patterns (CP operator) to exclude from'' &&
'' syncronization (e.g. unwanted parts of the package, examples...)'' ).
ro_form->start_group(
iv_name = c_id-checks
iv_label = ''Local Checks''
iv_hint = ''Code Inspector check performed to run from menu and before commit''
)->text(
iv_name = c_id-code_inspector_check_variant
iv_side_action = c_event-choose_check_variant
iv_label = ''Code Inspector Check Variant''
iv_hint = ''Global check variant for Code Inspector or ABAP Test Cockpit''
)->checkbox(
iv_name = c_id-block_commit
iv_label = ''Block Commit If Code Inspection Has Errors''
iv_hint = ''Prevent staging if errors of priority 1 or 2 were found during check''
)->command(
iv_label = ''Save Settings''
iv_cmd_type = zif_abapgit_html_form=>c_cmd_type-input_main
iv_action = c_event-save
)->command(
iv_label = ''Back''
iv_action = zif_abapgit_definitions=>c_action-go_back ).
ENDMETHOD.
METHOD handle_picklist_state.
IF mo_popup_picklist IS BOUND AND
( mo_popup_picklist->is_fulfilled( ) = abap_true OR mo_popup_picklist->is_in_page( ) = abap_false ).
" Picklist is either fulfilled OR
" it was on its own page and user went back from it via F3/ESC and the picklist had no "graceful back" handler
CASE mo_popup_picklist->id( ).
WHEN c_event-choose_check_variant.
choose_check_variant( abap_true ).
WHEN OTHERS.
zcx_abapgit_exception=>raise( |Unexpected picklist id { mo_popup_picklist->id( ) }| ).
ENDCASE.
CLEAR mo_popup_picklist.
ENDIF.
ENDMETHOD.
METHOD is_customizing_included.
DATA lt_files TYPE zif_abapgit_definitions=>ty_files_item_tt.
lt_files = mo_repo->get_files_local( ).
READ TABLE lt_files TRANSPORTING NO FIELDS
WITH KEY item-obj_type = zif_abapgit_data_config=>c_data_type-tabu. "todo
IF sy-subrc = 0.
rv_result = abap_true.
ENDIF.
ENDMETHOD.
METHOD read_settings.
DATA li_package TYPE REF TO zif_abapgit_sap_package.
DATA lv_excl_rem TYPE string.
li_package = zcl_abapgit_factory=>get_sap_package( mo_repo->get_package( ) ).
" Get settings from DB
ms_settings = mo_repo->get_local_settings( ).
CREATE OBJECT ro_form_data.
" Local Settings
ro_form_data->set(
iv_key = c_id-display_name
iv_val = ms_settings-display_name ).
IF li_package->are_changes_recorded_in_tr_req( ) = abap_true.
ro_form_data->set(
iv_key = c_id-transport_request
iv_val = ms_settings-transport_request ).
ENDIF.
IF is_customizing_included( ) = abap_true.
ro_form_data->set(
iv_key = c_id-customizing_request
iv_val = ms_settings-customizing_request ).
ENDIF.
ro_form_data->set(
iv_key = c_id-labels
iv_val = ms_settings-labels ).
ro_form_data->set(
iv_key = c_id-ignore_subpackages
iv_val = boolc( ms_settings-ignore_subpackages = abap_true ) ) ##TYPE.
ro_form_data->set(
iv_key = c_id-main_language_only
iv_val = boolc( ms_settings-main_language_only = abap_true ) ) ##TYPE.
ro_form_data->set(
iv_key = c_id-flow
iv_val = boolc( ms_settings-flow = abap_true ) ) ##TYPE.
ro_form_data->set(
iv_key = c_id-write_protected
iv_val = boolc( ms_settings-write_protected = abap_true ) ) ##TYPE.
ro_form_data->set(
iv_key = c_id-only_local_objects
iv_val = boolc( ms_settings-only_local_objects = abap_true ) ) ##TYPE.
ro_form_data->set(
iv_key = c_id-code_inspector_check_variant
iv_val = |{ ms_settings-code_inspector_check_variant }| ).
ro_form_data->set(
iv_key = c_id-block_commit
iv_val = boolc( ms_settings-block_commit = abap_true ) ) ##TYPE.
lv_excl_rem = concat_lines_of(
table = ms_settings-exclude_remote_paths
sep = cl_abap_char_utilities=>newline ).
ro_form_data->set(
iv_key = c_id-exclude_remote_paths
iv_val = lv_excl_rem ).
ENDMETHOD.
METHOD save_settings.
ms_settings-display_name = mo_form_data->get( c_id-display_name ).
ms_settings-transport_request = mo_form_data->get( c_id-transport_request ).
ms_settings-customizing_request = mo_form_data->get( c_id-customizing_request ).
ms_settings-labels = zcl_abapgit_repo_labels=>normalize( mo_form_data->get( c_id-labels ) ).
ms_settings-ignore_subpackages = mo_form_data->get( c_id-ignore_subpackages ).
ms_settings-main_language_only = mo_form_data->get( c_id-main_language_only ).
ms_settings-flow = mo_form_data->get( c_id-flow ).
ms_settings-write_protected = mo_form_data->get( c_id-write_protected ).
ms_settings-only_local_objects = mo_form_data->get( c_id-only_local_objects ).
ms_settings-code_inspector_check_variant = mo_form_data->get( c_id-code_inspector_check_variant ).
ms_settings-block_commit = mo_form_data->get( c_id-block_commit ).
ms_settings-exclude_remote_paths =
zcl_abapgit_convert=>split_string( mo_form_data->get( c_id-exclude_remote_paths ) ).
DELETE ms_settings-exclude_remote_paths WHERE table_line IS INITIAL.
mo_repo->set_local_settings( ms_settings ).
COMMIT WORK AND WAIT.
MESSAGE ''Settings successfully saved'' TYPE ''S''.
mo_form_data = read_settings( ).
ENDMETHOD.
METHOD validate_form.
DATA:
lx_error TYPE REF TO zcx_abapgit_exception,
lv_transport_request TYPE trkorr,
lv_customizing_request TYPE trkorr,
lv_check_variant TYPE sci_chkv.
ro_validation_log = zcl_abapgit_html_form_utils=>create( mo_form )->validate( io_form_data ).
lv_transport_request = io_form_data->get( c_id-transport_request ).
IF lv_transport_request IS NOT INITIAL.
TRY.
zcl_abapgit_factory=>get_cts_api( )->validate_transport_request( lv_transport_request ).
CATCH zcx_abapgit_exception INTO lx_error.
ro_validation_log->set(
iv_key = c_id-transport_request
iv_val = lx_error->get_text( ) ).
ENDTRY.
ENDIF.
lv_customizing_request = io_form_data->get( c_id-customizing_request ).
IF lv_customizing_request IS NOT INITIAL.
TRY.
zcl_abapgit_factory=>get_cts_api( )->validate_transport_request( lv_customizing_request ).
CATCH zcx_abapgit_exception INTO lx_error.
ro_validation_log->set(
iv_key = c_id-customizing_request
iv_val = lx_error->get_text( ) ).
ENDTRY.
ENDIF.
lv_check_variant = to_upper( io_form_data->get( c_id-code_inspector_check_variant ) ).
IF lv_check_variant IS NOT INITIAL.
TRY.
zcl_abapgit_factory=>get_code_inspector( mo_repo->get_package( )
)->validate_check_variant( lv_check_variant ).
CATCH zcx_abapgit_exception INTO lx_error.
ro_validation_log->set(
iv_key = c_id-code_inspector_check_variant
iv_val = lx_error->get_text( ) ).
ENDTRY.
ENDIF.
IF io_form_data->get( c_id-block_commit ) = abap_true AND lv_check_variant IS INITIAL.
ro_validation_log->set(
iv_key = c_id-block_commit
iv_val = |If block commit is active, a check variant has to be maintained| ).
ENDIF.
TRY.
zcl_abapgit_repo_labels=>validate( io_form_data->get( c_id-labels ) ).
CATCH zcx_abapgit_exception INTO lx_error.
ro_validation_log->set(
iv_key = c_id-labels
iv_val = lx_error->get_text( ) ).
ENDTRY.
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
mo_form_data->merge( zcl_abapgit_html_form_utils=>create( mo_form )->normalize( ii_event->form_data( ) ) ).
CASE ii_event->mv_action.
WHEN zif_abapgit_definitions=>c_action-go_back.
rs_handled-state = zcl_abapgit_html_form_utils=>create( mo_form )->exit(
io_form_data = mo_form_data
io_compare_with = read_settings( ) ).
WHEN c_event-choose_transport_request.
choose_transport_request( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN c_event-choose_customizing_request.
choose_customizing_request( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN c_event-choose_labels.
choose_labels( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN c_event-choose_check_variant.
choose_check_variant( ).
WHEN c_event-save.
" Validate form entries before saving
mo_validation_log = validate_form( mo_form_data ).
IF mo_validation_log->is_empty( ) = abap_true.
save_settings( ).
ENDIF.
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ENDCASE.
IF mo_popup_picklist IS BOUND. " Uniform popup state handling
" This should happen only for a new popup because
" on the first re-render main component event handling is blocked
" and not called again until the popup destruction
IF mo_popup_picklist->is_in_page( ) = abap_true.
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ELSE.
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
rs_handled-page = zcl_abapgit_gui_page_hoc=>create(
ii_child_component = mo_popup_picklist
iv_show_as_modal = abap_true ).
ENDIF.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
handle_picklist_state( ).
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( \`<div class="repo">\` ).
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_repo_top(
io_repo = mo_repo
iv_show_commit = abap_false
iv_interactive_branch = abap_true ) ).
ri_html->add( mo_form->render(
io_values = mo_form_data
io_validation_log = mo_validation_log ) ).
ri_html->add( \`</div>\` ).
IF mo_popup_picklist IS NOT BOUND OR mo_popup_picklist->is_in_page( ) = abap_false.
register_handlers( ).
ELSEIF mo_popup_picklist->is_in_page( ) = abap_true.
" Block usual page events if the popup is an in-page popup
ri_html->add( zcl_abapgit_gui_in_page_modal=>create( mo_popup_picklist ) ).
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_SETT_PERS ', 'CLASS zcl_abapgit_gui_page_sett_pers DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_component
FINAL
CREATE PRIVATE.
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_event_handler.
INTERFACES zif_abapgit_gui_renderable.
CLASS-METHODS create
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception.
METHODS constructor
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS:
BEGIN OF c_id,
startup TYPE string VALUE ''startup'',
show_default_repo TYPE string VALUE ''show_default_repo'',
ui TYPE string VALUE ''ui'',
ui_theme TYPE string VALUE ''ui_theme'',
icon_scaling TYPE string VALUE ''icon_scaling'',
max_lines TYPE string VALUE ''max_lines'',
interaction TYPE string VALUE ''interaction'',
adt_jump_enabled TYPE string VALUE ''adt_jump_enabled'',
link_hints_enabled TYPE string VALUE ''link_hints_enabled'',
link_hint_key TYPE string VALUE ''link_hint_key'',
hotkeys TYPE string VALUE ''hotkeys'',
resources TYPE string VALUE ''resources'',
parallel_proc_disabled TYPE string VALUE ''parallel_proc_disabled'',
hide_sapgui_hint TYPE string VALUE ''hide_sapgui_hint'',
activate_wo_popup TYPE string VALUE ''activate_wo_popup'',
label_colors TYPE string VALUE ''label_colors'',
git_default_values TYPE string VALUE ''git_default_values'',
default_git_uname TYPE string VALUE ''default_git_uname'',
default_git_email TYPE string VALUE ''default_git_email'',
END OF c_id.
CONSTANTS:
BEGIN OF c_event,
save TYPE string VALUE ''save'',
END OF c_event.
DATA mo_form TYPE REF TO zcl_abapgit_html_form.
DATA mo_form_data TYPE REF TO zcl_abapgit_string_map.
DATA mo_validation_log TYPE REF TO zcl_abapgit_string_map.
DATA mo_settings TYPE REF TO zcl_abapgit_settings.
DATA ms_settings TYPE zif_abapgit_definitions=>ty_s_user_settings.
METHODS validate_form
IMPORTING
!io_form_data TYPE REF TO zcl_abapgit_string_map
RETURNING
VALUE(ro_validation_log) TYPE REF TO zcl_abapgit_string_map
RAISING
zcx_abapgit_exception.
METHODS get_form_schema
RETURNING
VALUE(ro_form) TYPE REF TO zcl_abapgit_html_form.
METHODS read_settings
RETURNING
VALUE(ro_form_data) TYPE REF TO zcl_abapgit_string_map
RAISING
zcx_abapgit_exception.
METHODS save_settings
RAISING
zcx_abapgit_exception.
METHODS render_repo_labels_help_hint
RETURNING
VALUE(rv_html) TYPE string.
ENDCLASS.
CLASS zcl_abapgit_gui_page_sett_pers IMPLEMENTATION.
METHOD constructor.
super->constructor( ).
CREATE OBJECT mo_validation_log.
CREATE OBJECT mo_form_data.
mo_form = get_form_schema( ).
mo_form_data = read_settings( ).
ENDMETHOD.
METHOD create.
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_sett_pers.
CREATE OBJECT lo_component.
ri_page = zcl_abapgit_gui_page_hoc=>create(
iv_page_title = ''Personal Settings''
io_page_menu = zcl_abapgit_gui_menus=>settings( zif_abapgit_definitions=>c_action-go_settings_personal )
ii_child_component = lo_component ).
ENDMETHOD.
METHOD get_form_schema.
ro_form = zcl_abapgit_html_form=>create(
iv_form_id = ''personal-setting-form''
iv_help_page = ''https://docs.abapgit.org/guide-settings-personal.html'' ).
ro_form->start_group(
iv_name = c_id-startup
iv_label = ''Startup''
)->checkbox(
iv_name = c_id-show_default_repo
iv_label = ''Show Last Opened Repository''
iv_hint = ''Recommended to check, if you are using ADT''
)->start_group(
iv_name = c_id-ui
iv_label = ''User Interface''
)->radio(
iv_name = c_id-ui_theme
iv_default_value = zcl_abapgit_settings=>c_ui_theme-default
iv_label = ''Theme''
)->option(
iv_label = ''Default''
iv_value = zcl_abapgit_settings=>c_ui_theme-default
)->option(
iv_label = ''Dark''
iv_value = zcl_abapgit_settings=>c_ui_theme-dark
)->option(
iv_label = ''Belize''
iv_value = zcl_abapgit_settings=>c_ui_theme-belize
)->option(
iv_label = ''Synced with SAP GUI''
iv_value = zcl_abapgit_settings=>c_ui_theme-synced_with_gui
)->radio(
iv_name = c_id-icon_scaling
iv_default_value = ''''
iv_label = ''Icon Scaling (HDPI)''
iv_hint = ''Adjust size of icons for High DPI displays''
)->option(
iv_label = ''No scaling''
iv_value = ''''
)->option(
iv_label = ''Small''
iv_value = zcl_abapgit_settings=>c_icon_scaling-small
)->option(
iv_label = ''Large''
iv_value = zcl_abapgit_settings=>c_icon_scaling-large
)->number(
iv_name = c_id-max_lines
iv_label = ''List Size''
iv_hint = ''Maximum number of objects listed (0 = All)''
iv_min = 0
iv_max = 10000
)->textarea(
iv_name = c_id-label_colors
iv_rows = 3
iv_label = \`Repo label colors \` && render_repo_labels_help_hint( )
)->start_group(
iv_name = c_id-interaction
iv_label = ''Interaction''
)->checkbox(
iv_name = c_id-activate_wo_popup
iv_label = ''Activate Objects Without Popup''
iv_hint = ''Activates objects automatically without showing popup''
)->checkbox(
iv_name = c_id-adt_jump_enabled
iv_label = ''Enable Jump to ABAP Development Tools (If Available)''
iv_hint = ''Recommended to check, if you are using ADT''
)->checkbox(
iv_name = c_id-link_hints_enabled
iv_label = ''Enable Vimium-like Link Hints''
iv_hint = ''When you hit the key, abapGit will identify clickable things and put a label beside it''
)->text(
iv_name = c_id-link_hint_key
iv_label = ''Key to Activate Link Hints''
iv_min = 0
iv_max = 1
)->start_group(
iv_name = c_id-resources
iv_label = ''System Resources''
)->checkbox(
iv_name = c_id-parallel_proc_disabled
iv_label = ''Disable Parallel Processing''
iv_hint = ''If disabled, abapGit will use only a single thread to serialize objects''
)->start_group(
iv_name = c_id-git_default_values
iv_label = ''Git Default Values''
)->text(
iv_name = c_id-default_git_uname
iv_label = ''Default User''
)->text(
iv_name = c_id-default_git_email
iv_label = ''Default Email''
)->command(
iv_label = ''Save Settings''
iv_cmd_type = zif_abapgit_html_form=>c_cmd_type-input_main
iv_action = c_event-save
)->command(
iv_label = ''Back''
iv_action = zif_abapgit_definitions=>c_action-go_back ).
" Not available via this form:
" - User-specific hotkey settings have been discontinued
" - hide_sapgui_hint is set via ZCL_ABAPGIT_SERVICES_ABAPGIT-CHECK_SAPGUI
ENDMETHOD.
METHOD read_settings.
" Get settings from DB
mo_settings = zcl_abapgit_persist_factory=>get_settings( )->read( ).
ms_settings = mo_settings->get_user_settings( ).
CREATE OBJECT ro_form_data.
" Startup
ro_form_data->set(
iv_key = c_id-show_default_repo
iv_val = boolc( ms_settings-show_default_repo = abap_true ) ) ##TYPE.
" UI
ro_form_data->set(
iv_key = c_id-ui_theme
iv_val = ms_settings-ui_theme ).
ro_form_data->set(
iv_key = c_id-icon_scaling
iv_val = |{ ms_settings-icon_scaling }| ).
ro_form_data->set(
iv_key = c_id-max_lines
iv_val = |{ ms_settings-max_lines }| ).
ro_form_data->set(
iv_key = c_id-label_colors
iv_val = ms_settings-label_colors ).
" Interaction
ro_form_data->set(
iv_key = c_id-activate_wo_popup
iv_val = boolc( ms_settings-activate_wo_popup = abap_true ) ) ##TYPE.
ro_form_data->set(
iv_key = c_id-adt_jump_enabled
iv_val = boolc( ms_settings-adt_jump_enabled = abap_true ) ) ##TYPE.
ro_form_data->set(
iv_key = c_id-link_hints_enabled
iv_val = boolc( ms_settings-link_hints_enabled = abap_true ) ) ##TYPE.
ro_form_data->set(
iv_key = c_id-link_hint_key
iv_val = |{ ms_settings-link_hint_key }| ).
" Resources
ro_form_data->set(
iv_key = c_id-parallel_proc_disabled
iv_val = boolc( ms_settings-parallel_proc_disabled = abap_true ) ) ##TYPE.
" Git Default Values
ro_form_data->set(
iv_key = c_id-default_git_uname
iv_val = |{ ms_settings-default_git_uname }| ).
ro_form_data->set(
iv_key = c_id-default_git_email
iv_val = |{ ms_settings-default_git_email }| ).
ENDMETHOD.
METHOD render_repo_labels_help_hint.
DATA lt_fragments TYPE string_table.
DATA lt_labels TYPE string_table.
DATA lv_l TYPE string.
DATA lo_colors TYPE REF TO zcl_abapgit_string_map.
APPEND \`<p style="margin-bottom: 0.3em">\` TO lt_fragments.
APPEND \`Comma-separated list of <code>label:color</code> pairs.\` TO lt_fragments.
APPEND \` <code>color</code> part can be either a pre-defined style (see below), or\` TO lt_fragments.
APPEND \` <code>#fg/bg/border</code> styles, where <code>fg</code>, \` TO lt_fragments.
APPEND \` <code>bg</code>, and <code>border</code> are RGB color codes (3 or 6 long).\` TO lt_fragments.
APPEND \` You can also specify just <code>fg</code>, <code>bg</code>, or\` TO lt_fragments.
APPEND \` <code>border</code> (defaults will be used for missing parts).\` TO lt_fragments.
APPEND \` E.g. <code>utils:brown, work:#ff0000/880000, client X:#ddd, client Y:#/333</code>\` TO lt_fragments.
APPEND \`<br>Available styles:\` TO lt_fragments.
APPEND \`</p>\` TO lt_fragments.
APPEND \`white\` TO lt_labels.
APPEND \`white-b\` TO lt_labels.
APPEND \`white-r\` TO lt_labels.
APPEND \`grey\` TO lt_labels.
APPEND \`dark-w\` TO lt_labels.
APPEND \`dark-y\` TO lt_labels.
APPEND \`dark-r\` TO lt_labels.
APPEND \`dark-b\` TO lt_labels.
APPEND \`lightblue\` TO lt_labels.
APPEND \`darkblue\` TO lt_labels.
APPEND \`lightgreen\` TO lt_labels.
APPEND \`darkgreen\` TO lt_labels.
APPEND \`lightred\` TO lt_labels.
APPEND \`darkred\` TO lt_labels.
APPEND \`yellow\` TO lt_labels.
APPEND \`darkyellow\` TO lt_labels.
APPEND \`orange\` TO lt_labels.
APPEND \`brown\` TO lt_labels.
APPEND \`pink\` TO lt_labels.
APPEND \`teal\` TO lt_labels.
APPEND \`darkviolet\` TO lt_labels.
lo_colors = zcl_abapgit_string_map=>create( ).
LOOP AT lt_labels INTO lv_l.
TRY.
lo_colors->set(
iv_key = lv_l
iv_val = lv_l ).
CATCH zcx_abapgit_exception.
ENDTRY.
ENDLOOP.
APPEND zcl_abapgit_gui_chunk_lib=>render_label_list(
it_labels = lt_labels
io_label_colors = lo_colors ) TO lt_fragments.
APPEND
\`<p style="margin-top: 0.3em">see also <code>rl-*</code> styles in common.css</p>\`
TO lt_fragments.
rv_html = zcl_abapgit_gui_chunk_lib=>render_help_hint( concat_lines_of( table = lt_fragments ) ).
ENDMETHOD.
METHOD save_settings.
DATA li_persistence TYPE REF TO zif_abapgit_persist_settings.
" Startup
ms_settings-show_default_repo = mo_form_data->get( c_id-show_default_repo ).
" UI
ms_settings-ui_theme = mo_form_data->get( c_id-ui_theme ).
ms_settings-icon_scaling = mo_form_data->get( c_id-icon_scaling ).
ms_settings-max_lines = mo_form_data->get( c_id-max_lines ).
ms_settings-label_colors = zcl_abapgit_repo_labels=>normalize_colors( mo_form_data->get( c_id-label_colors ) ).
" Interaction
ms_settings-activate_wo_popup = mo_form_data->get( c_id-activate_wo_popup ).
ms_settings-adt_jump_enabled = mo_form_data->get( c_id-adt_jump_enabled ).
ms_settings-link_hints_enabled = mo_form_data->get( c_id-link_hints_enabled ).
ms_settings-link_hint_key = mo_form_data->get( c_id-link_hint_key ).
" Resources
ms_settings-parallel_proc_disabled = mo_form_data->get( c_id-parallel_proc_disabled ).
" Git Default Values
ms_settings-default_git_uname = mo_form_data->get( c_id-default_git_uname ).
ms_settings-default_git_email = mo_form_data->get( c_id-default_git_email ).
" Store in DB
mo_settings->set_user_settings( ms_settings ).
li_persistence = zcl_abapgit_persist_factory=>get_settings( ).
li_persistence->modify( mo_settings ).
COMMIT WORK AND WAIT.
MESSAGE ''Settings successfully saved'' TYPE ''S''.
mo_form_data = read_settings( ).
ENDMETHOD.
METHOD validate_form.
DATA lx_error TYPE REF TO zcx_abapgit_exception.
ro_validation_log = zcl_abapgit_html_form_utils=>create( mo_form )->validate( io_form_data ).
TRY.
zcl_abapgit_repo_labels=>validate_colors( io_form_data->get( c_id-label_colors ) ).
CATCH zcx_abapgit_exception INTO lx_error.
ro_validation_log->set(
iv_key = c_id-label_colors
iv_val = lx_error->get_text( ) ).
ENDTRY.
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
mo_form_data->merge( zcl_abapgit_html_form_utils=>create( mo_form )->normalize( ii_event->form_data( ) ) ).
CASE ii_event->mv_action.
WHEN zif_abapgit_definitions=>c_action-go_back.
rs_handled-state = zcl_abapgit_html_form_utils=>create( mo_form )->exit(
io_form_data = mo_form_data
io_compare_with = read_settings( ) ).
WHEN c_event-save.
" Validate form entries before saving
mo_validation_log = validate_form( mo_form_data ).
IF mo_validation_log->is_empty( ) = abap_true.
save_settings( ).
ENDIF.
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
register_handlers( ).
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<div class="form-container">'' ).
ri_html->add( mo_form->render(
io_values = mo_form_data
io_validation_log = mo_validation_log ) ).
ri_html->add( ''</div>'' ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_SETT_REMO ', 'CLASS zcl_abapgit_gui_page_sett_remo DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_component
FINAL
CREATE PRIVATE .
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_event_handler .
INTERFACES zif_abapgit_gui_renderable .
INTERFACES zif_abapgit_gui_hotkeys.
CLASS-METHODS create
IMPORTING
!io_repo TYPE REF TO zcl_abapgit_repo
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception .
METHODS constructor
IMPORTING
!io_repo TYPE REF TO zcl_abapgit_repo
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
TYPES:
ty_head_type TYPE c LENGTH 1,
BEGIN OF ty_remote_settings,
offline TYPE zif_abapgit_persistence=>ty_repo-offline,
url TYPE zif_abapgit_persistence=>ty_repo-url,
branch TYPE zif_abapgit_git_definitions=>ty_git_branch-name,
tag TYPE zif_abapgit_git_definitions=>ty_git_tag-name,
commit TYPE zif_abapgit_git_definitions=>ty_commit-sha1,
pull_request TYPE string,
head_type TYPE ty_head_type,
switched_origin TYPE zif_abapgit_persistence=>ty_repo-switched_origin,
END OF ty_remote_settings.
CONSTANTS:
BEGIN OF c_repo_type,
online TYPE string VALUE ''Online Repository'',
offline TYPE string VALUE ''Offline Repository'',
END OF c_repo_type.
CONSTANTS:
BEGIN OF c_head_types,
branch TYPE ty_head_type VALUE ''B'',
tag TYPE ty_head_type VALUE ''T'',
commit TYPE ty_head_type VALUE ''C'',
pull_request TYPE ty_head_type VALUE ''P'',
END OF c_head_types.
CONSTANTS:
BEGIN OF c_id,
general TYPE string VALUE ''general'',
repo_type TYPE string VALUE ''repo_type'',
offline TYPE string VALUE ''offline'',
url TYPE string VALUE ''url'',
head_group TYPE string VALUE ''head_group'',
branch TYPE string VALUE ''branch'',
tag TYPE string VALUE ''tag'',
commit TYPE string VALUE ''commit'',
pull_request TYPE string VALUE ''pull_request'',
head_type TYPE string VALUE ''head_type'',
END OF c_id.
CONSTANTS:
BEGIN OF c_event,
save TYPE string VALUE ''save'',
switch TYPE string VALUE ''switch'',
choose_url TYPE string VALUE ''choose_url'',
choose_branch TYPE string VALUE ''choose_branch'',
choose_tag TYPE string VALUE ''choose_tag'',
choose_commit TYPE string VALUE ''choose_commit'',
choose_pull_request TYPE string VALUE ''choose_pull_request'',
change_head_type TYPE string VALUE ''change_head_type'',
END OF c_event .
DATA mo_repo TYPE REF TO zcl_abapgit_repo .
DATA ms_settings_snapshot TYPE ty_remote_settings.
DATA mo_form TYPE REF TO zcl_abapgit_html_form .
DATA mo_form_data TYPE REF TO zcl_abapgit_string_map .
DATA mo_validation_log TYPE REF TO zcl_abapgit_string_map .
DATA mv_refresh_on_back TYPE abap_bool.
DATA mv_offline_switch_saved_url TYPE string.
DATA mo_popup_picklist TYPE REF TO zcl_abapgit_gui_picklist.
METHODS get_remote_settings_from_repo
IMPORTING
io_repo TYPE REF TO zcl_abapgit_repo
RETURNING
VALUE(rs_settings) TYPE ty_remote_settings
RAISING
zcx_abapgit_exception.
METHODS get_remote_settings_from_form
IMPORTING
io_form_data TYPE REF TO zcl_abapgit_string_map
RETURNING
VALUE(rs_settings) TYPE ty_remote_settings
RAISING
zcx_abapgit_exception.
METHODS get_form_schema
IMPORTING
io_existing_form_data TYPE REF TO zcl_abapgit_string_map OPTIONAL
RETURNING
VALUE(ro_form) TYPE REF TO zcl_abapgit_html_form
RAISING
zcx_abapgit_exception.
METHODS initialize_form_data
RETURNING
VALUE(ro_form_data) TYPE REF TO zcl_abapgit_string_map
RAISING
zcx_abapgit_exception.
METHODS prepare_for_compare
IMPORTING
io_form_data TYPE REF TO zcl_abapgit_string_map
RETURNING
VALUE(ro_form_data) TYPE REF TO zcl_abapgit_string_map
RAISING
zcx_abapgit_exception.
METHODS check_protection
RAISING
zcx_abapgit_exception.
METHODS validate_form
IMPORTING
io_form_data TYPE REF TO zcl_abapgit_string_map
iv_connection_check TYPE abap_bool DEFAULT abap_true
RETURNING
VALUE(ro_validation_log) TYPE REF TO zcl_abapgit_string_map
RAISING
zcx_abapgit_exception.
METHODS save_settings
RAISING
zcx_abapgit_exception.
METHODS choose_url
RETURNING
VALUE(rv_url) TYPE string
RAISING
zcx_abapgit_exception.
METHODS choose_branch
IMPORTING
iv_is_return TYPE abap_bool DEFAULT abap_false
RAISING
zcx_abapgit_exception.
METHODS choose_tag
IMPORTING
iv_is_return TYPE abap_bool DEFAULT abap_false
RAISING
zcx_abapgit_exception.
METHODS choose_pr
IMPORTING
iv_is_return TYPE abap_bool DEFAULT abap_false
RAISING
zcx_abapgit_exception.
METHODS choose_commit
RETURNING
VALUE(rv_commit) TYPE ty_remote_settings-commit
RAISING
zcx_abapgit_exception.
METHODS switch_online_offline
RAISING
zcx_abapgit_exception.
METHODS switch_to_branch_tag
IMPORTING
!iv_name TYPE string OPTIONAL
RAISING
zcx_abapgit_exception.
METHODS switch_to_commit
IMPORTING
!iv_revert TYPE abap_bool DEFAULT abap_false
!iv_commit TYPE ty_remote_settings-commit OPTIONAL
RAISING
zcx_abapgit_exception.
METHODS switch_to_pull_req
IMPORTING
!iv_revert TYPE abap_bool DEFAULT abap_false
!iv_pull TYPE string OPTIONAL
RAISING
zcx_abapgit_exception.
METHODS handle_picklist_state
RAISING
zcx_abapgit_exception.
METHODS render_content
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_gui_page_sett_remo IMPLEMENTATION.
METHOD check_protection.
IF mo_repo->is_offline( ) = abap_true.
zcx_abapgit_exception=>raise( ''Unexpected switch for offline repo'' ).
ENDIF.
IF mo_repo->get_local_settings( )-write_protected = abap_true.
zcx_abapgit_exception=>raise( ''Cannot switch. Repository is write-protected in local settings'' ).
ENDIF.
ENDMETHOD.
METHOD choose_branch.
DATA lv_url TYPE zif_abapgit_persistence=>ty_repo-url.
DATA lv_branch_name TYPE zif_abapgit_persistence=>ty_repo-branch_name.
DATA ls_branch TYPE zif_abapgit_git_definitions=>ty_git_branch.
DATA lv_popup_cancelled TYPE abap_bool.
IF iv_is_return = abap_false.
IF mo_form_data->get( c_id-offline ) = abap_true.
RETURN.
ENDIF.
lv_url = mo_form_data->get( c_id-url ).
lv_branch_name = mo_form_data->get( c_id-branch ).
mo_popup_picklist = zcl_abapgit_popup_branch_list=>create(
iv_show_new_option = abap_false
iv_url = lv_url
iv_default_branch = lv_branch_name
)->create_picklist(
)->set_id( c_event-choose_branch
)->set_in_page( ).
ELSE.
lv_popup_cancelled = mo_popup_picklist->was_cancelled( ).
IF lv_popup_cancelled = abap_false.
mo_popup_picklist->get_result_item( CHANGING cs_selected = ls_branch ).
IF ls_branch IS NOT INITIAL.
mo_form_data->set(
iv_key = c_id-branch
iv_val = ls_branch-display_name ).
ENDIF.
ENDIF.
ENDIF.
ENDMETHOD.
METHOD choose_commit.
DATA:
lv_url TYPE string,
lv_branch_name TYPE zif_abapgit_persistence=>ty_repo-branch_name,
li_popups TYPE REF TO zif_abapgit_popups.
IF mo_form_data->get( c_id-offline ) = abap_true.
RETURN.
ENDIF.
lv_url = mo_form_data->get( c_id-url ).
lv_branch_name = zif_abapgit_git_definitions=>c_git_branch-heads_prefix && mo_form_data->get( c_id-branch ).
li_popups = zcl_abapgit_ui_factory=>get_popups( ).
rv_commit = li_popups->commit_list_popup(
iv_repo_url = lv_url
iv_branch_name = lv_branch_name )-sha1.
ENDMETHOD.
METHOD choose_pr.
DATA ls_pull TYPE zif_abapgit_pr_enum_provider=>ty_pull_request.
DATA lv_url TYPE ty_remote_settings-url.
DATA lv_popup_cancelled TYPE abap_bool.
IF iv_is_return = abap_false.
IF mo_form_data->get( c_id-offline ) = abap_true.
zcx_abapgit_exception=>raise( ''Not possible for offline repositories'' ).
ENDIF.
lv_url = mo_form_data->get( c_id-url ).
mo_popup_picklist = zcl_abapgit_popup_pull_request=>create( lv_url
)->create_picklist(
)->set_id( c_event-choose_pull_request
)->set_in_page( abap_true ).
ELSE.
lv_popup_cancelled = mo_popup_picklist->was_cancelled( ).
IF lv_popup_cancelled = abap_false.
mo_popup_picklist->get_result_item( CHANGING cs_selected = ls_pull ).
IF ls_pull IS NOT INITIAL.
mo_form_data->set(
iv_key = c_id-pull_request
iv_val = ls_pull-head_url && ''@'' && ls_pull-head_branch ).
ENDIF.
ENDIF.
ENDIF.
ENDMETHOD.
METHOD choose_tag.
DATA ls_tag TYPE zif_abapgit_git_definitions=>ty_git_branch.
DATA lv_url TYPE ty_remote_settings-url.
DATA lv_popup_cancelled TYPE abap_bool.
IF iv_is_return = abap_false.
IF mo_form_data->get( c_id-offline ) = abap_true.
RETURN.
ELSEIF mo_repo->is_offline( ) = abap_true.
MESSAGE ''Please save conversion to online repository before choosing a tag'' TYPE ''S''.
RETURN.
ENDIF.
lv_url = mo_form_data->get( c_id-url ).
mo_popup_picklist = zcl_abapgit_popup_tag_list=>create( lv_url
)->create_picklist(
)->set_id( c_event-choose_tag
)->set_in_page( ).
ELSE.
lv_popup_cancelled = mo_popup_picklist->was_cancelled( ).
IF lv_popup_cancelled = abap_false.
mo_popup_picklist->get_result_item( CHANGING cs_selected = ls_tag ).
IF ls_tag IS NOT INITIAL.
mo_form_data->set(
iv_key = c_id-tag
iv_val = ls_tag-display_name ).
ENDIF.
ENDIF.
ENDIF.
ENDMETHOD.
METHOD choose_url.
" todo, get url history from DB and show selection popup #3639
rv_url = ''''.
ENDMETHOD.
METHOD constructor.
super->constructor( ).
mo_repo = io_repo.
ms_settings_snapshot = get_remote_settings_from_repo( mo_repo ).
mo_form = get_form_schema( ).
mo_form_data = initialize_form_data( ).
CREATE OBJECT mo_validation_log.
ENDMETHOD.
METHOD create.
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_sett_remo.
CREATE OBJECT lo_component
EXPORTING
io_repo = io_repo.
ri_page = zcl_abapgit_gui_page_hoc=>create(
iv_page_title = ''Remote Settings''
io_page_menu = zcl_abapgit_gui_menus=>repo_settings(
iv_key = io_repo->get_key( )
iv_act = zif_abapgit_definitions=>c_action-repo_remote_settings )
ii_child_component = lo_component ).
ENDMETHOD.
METHOD get_form_schema.
DATA:
lv_button TYPE string,
lv_icon TYPE string,
lv_offline TYPE abap_bool,
lv_head_type TYPE ty_head_type.
IF io_existing_form_data IS BOUND AND io_existing_form_data->is_empty( ) = abap_false.
lv_offline = io_existing_form_data->get( c_id-offline ).
IF lv_offline = abap_false.
lv_head_type = io_existing_form_data->get( c_id-head_type ).
ENDIF.
ELSE.
lv_offline = ms_settings_snapshot-offline.
lv_head_type = ms_settings_snapshot-head_type.
ENDIF.
ro_form = zcl_abapgit_html_form=>create(
iv_form_id = ''repo-remote-settings-form''
iv_help_page = ''https://docs.abapgit.org/settings-remote.html'' ).
IF lv_offline = abap_true.
lv_button = ''Switch to Online''.
lv_icon = ''plug/darkgrey''.
ELSE.
lv_button = ''Switch to Offline''.
lv_icon = ''cloud-upload-alt/darkgrey''.
ENDIF.
ro_form->start_group(
iv_name = c_id-general
iv_label = ''General''
iv_hint = ''Change the general type and origin of the repository''
)->text(
iv_name = c_id-repo_type
iv_label = |Type of Repository: { zcl_abapgit_html=>icon( lv_icon ) }|
iv_readonly = abap_true
)->hidden( c_id-offline ).
IF lv_offline = abap_false.
ro_form->text(
iv_name = c_id-url
iv_condense = abap_true
iv_label = ''Git Repository URL''
iv_hint = ''URL of original repository''
iv_placeholder = ''https://github.com/...git'' ).
ro_form->start_group(
iv_name = c_id-head_group
iv_label = ''Head''
)->radio(
iv_label = ''Type''
iv_name = c_id-head_type
iv_action = c_event-change_head_type
)->option(
iv_label = ''Branch''
iv_value = c_head_types-branch
)->option(
iv_label = ''Tag''
iv_value = c_head_types-tag
)->option(
iv_label = ''Commit''
iv_value = c_head_types-commit
)->option(
iv_label = ''Pull Request''
iv_value = c_head_types-pull_request ).
IF lv_head_type = c_head_types-branch OR
lv_head_type = c_head_types-commit.
ro_form->text(
iv_name = c_id-branch
iv_label = ''Branch''
iv_required = abap_true
iv_side_action = c_event-choose_branch ).
ENDIF.
IF lv_head_type = c_head_types-tag.
ro_form->text(
iv_name = c_id-tag
iv_label = ''Tag''
iv_required = abap_true
iv_side_action = c_event-choose_tag ).
ENDIF.
IF lv_head_type = c_head_types-commit.
ro_form->text(
iv_name = c_id-commit
iv_label = ''Commit''
iv_required = abap_true
iv_min = 40
iv_max = 40
iv_side_action = c_event-choose_commit ).
ENDIF.
IF lv_head_type = c_head_types-pull_request.
ro_form->text(
iv_name = c_id-pull_request
iv_label = ''Pull Request''
iv_required = abap_true
iv_side_action = c_event-choose_pull_request ).
ENDIF.
ENDIF.
ro_form->command(
iv_label = ''Save Settings''
iv_cmd_type = zif_abapgit_html_form=>c_cmd_type-input_main
iv_action = c_event-save
)->command(
iv_label = lv_button
iv_action = c_event-switch
)->command(
iv_label = ''Back''
iv_action = zif_abapgit_definitions=>c_action-go_back ).
ENDMETHOD.
METHOD get_remote_settings_from_form.
rs_settings-offline = io_form_data->get( c_id-offline ).
IF rs_settings-offline = abap_false.
rs_settings-url = io_form_data->get( c_id-url ).
rs_settings-head_type = io_form_data->get( c_id-head_type ).
CASE rs_settings-head_type.
WHEN c_head_types-branch.
rs_settings-branch = zif_abapgit_git_definitions=>c_git_branch-heads_prefix &&
io_form_data->get( c_id-branch ).
WHEN c_head_types-tag.
rs_settings-tag = zif_abapgit_git_definitions=>c_git_branch-tags_prefix &&
io_form_data->get( c_id-tag ).
WHEN c_head_types-commit.
rs_settings-branch = zif_abapgit_git_definitions=>c_git_branch-heads_prefix &&
io_form_data->get( c_id-branch ).
rs_settings-commit = io_form_data->get( c_id-commit ).
WHEN c_head_types-pull_request.
rs_settings-pull_request = io_form_data->get( c_id-pull_request ).
ENDCASE.
ENDIF.
ENDMETHOD.
METHOD get_remote_settings_from_repo.
DATA: lo_repo_online TYPE REF TO zcl_abapgit_repo_online,
lv_branch TYPE ty_remote_settings-branch.
IF io_repo->is_offline( ) = abap_false.
lo_repo_online ?= io_repo.
rs_settings-url = lo_repo_online->get_url( ).
rs_settings-offline = abap_false.
rs_settings-switched_origin = lo_repo_online->get_switched_origin( ).
IF lo_repo_online->get_selected_commit( ) IS NOT INITIAL.
rs_settings-commit = lo_repo_online->get_selected_commit( ).
rs_settings-branch = lo_repo_online->get_selected_branch( ).
rs_settings-head_type = c_head_types-commit.
ELSEIF lo_repo_online->get_switched_origin( ) IS NOT INITIAL.
" get_switched_origin( ) returns the original repo url + HEAD concatenated with @
" get_branch( ) returns the branch of the PR in the source repo
" get_url( ) returns the source repo of the PR branch
rs_settings-switched_origin = lo_repo_online->get_switched_origin( ).
SPLIT rs_settings-switched_origin AT ''@'' INTO rs_settings-url rs_settings-branch.
IF rs_settings-branch CP zif_abapgit_git_definitions=>c_git_branch-tags.
rs_settings-tag = rs_settings-branch.
CLEAR rs_settings-branch.
ENDIF.
lv_branch = lo_repo_online->get_selected_branch( ).
REPLACE FIRST OCCURRENCE OF zif_abapgit_git_definitions=>c_git_branch-heads_prefix IN lv_branch WITH space.
CONDENSE lv_branch.
rs_settings-pull_request = |{ lo_repo_online->get_url( ) }@{ lv_branch }|.
rs_settings-head_type = c_head_types-pull_request.
ELSE.
rs_settings-branch = lo_repo_online->get_selected_branch( ).
rs_settings-head_type = c_head_types-branch.
IF rs_settings-branch CP zif_abapgit_git_definitions=>c_git_branch-tags.
rs_settings-head_type = c_head_types-tag.
rs_settings-tag = rs_settings-branch.
CLEAR rs_settings-branch.
ENDIF.
ENDIF.
ELSE.
rs_settings-offline = abap_true.
ENDIF.
ENDMETHOD.
METHOD handle_picklist_state.
IF mo_popup_picklist IS BOUND AND
( mo_popup_picklist->is_fulfilled( ) = abap_true OR mo_popup_picklist->is_in_page( ) = abap_false ).
" Picklist is either fulfilled OR
" it was on its own page and user went back from it via F3/ESC and the picklist had no "graceful back" handler
CASE mo_popup_picklist->id( ).
WHEN c_event-choose_pull_request.
choose_pr( abap_true ).
WHEN c_event-choose_branch.
choose_branch( abap_true ).
WHEN c_event-choose_tag.
choose_tag( abap_true ).
WHEN OTHERS.
zcx_abapgit_exception=>raise( |Unexpected picklist id { mo_popup_picklist->id( ) }| ).
ENDCASE.
CLEAR mo_popup_picklist.
ENDIF.
ENDMETHOD.
METHOD initialize_form_data.
DATA:
lv_type TYPE string,
lv_head TYPE string.
CREATE OBJECT ro_form_data.
IF ms_settings_snapshot-offline = abap_true.
lv_type = c_repo_type-offline.
ELSE.
lv_type = c_repo_type-online.
ENDIF.
ro_form_data->set(
iv_key = c_id-offline
iv_val = ms_settings_snapshot-offline ).
ro_form_data->set(
iv_key = c_id-repo_type
iv_val = lv_type ).
IF ms_settings_snapshot-offline = abap_false.
ro_form_data->set(
iv_key = c_id-url
iv_val = ms_settings_snapshot-url ).
ro_form_data->set(
iv_key = c_id-head_type
iv_val = ms_settings_snapshot-head_type ).
" When pull request is selected the previously selected branch/tag is also loaded to be able to switch back to it
lv_head = zcl_abapgit_git_branch_list=>get_display_name( ms_settings_snapshot-branch ).
ro_form_data->set(
iv_key = c_id-branch
iv_val = lv_head ).
lv_head = zcl_abapgit_git_branch_list=>get_display_name( ms_settings_snapshot-tag ).
ro_form_data->set(
iv_key = c_id-tag
iv_val = lv_head ).
ro_form_data->set(
iv_key = c_id-commit
iv_val = ms_settings_snapshot-commit ).
ro_form_data->set(
iv_key = c_id-pull_request
iv_val = ms_settings_snapshot-pull_request ).
ENDIF.
ENDMETHOD.
METHOD prepare_for_compare.
ro_form_data = zcl_abapgit_string_map=>create( )->merge( io_form_data ).
CASE ro_form_data->get( c_id-head_type ).
WHEN c_head_types-branch.
ro_form_data->set(
iv_key = c_id-pull_request
iv_val = '''' ).
ro_form_data->set(
iv_key = c_id-commit
iv_val = '''' ).
ro_form_data->set(
iv_key = c_id-tag
iv_val = '''' ).
WHEN c_head_types-tag.
ro_form_data->set(
iv_key = c_id-pull_request
iv_val = '''' ).
ro_form_data->set(
iv_key = c_id-commit
iv_val = '''' ).
ro_form_data->set(
iv_key = c_id-branch
iv_val = '''' ).
WHEN c_head_types-commit.
ro_form_data->set(
iv_key = c_id-pull_request
iv_val = '''' ).
WHEN c_head_types-pull_request.
ro_form_data->set(
iv_key = c_id-commit
iv_val = '''' ).
ENDCASE.
ENDMETHOD.
METHOD render_content.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_repo_top(
io_repo = mo_repo
iv_show_commit = abap_false
iv_interactive_branch = abap_false ) ).
ri_html->add( mo_form->render(
io_values = mo_form_data
io_validation_log = mo_validation_log ) ).
ENDMETHOD.
METHOD save_settings.
DATA:
lo_repo_online TYPE REF TO zcl_abapgit_repo_online,
ls_settings_new TYPE ty_remote_settings.
ls_settings_new = get_remote_settings_from_form( mo_form_data ).
" Switch online / offline
IF ls_settings_new-offline <> ms_settings_snapshot-offline.
" Remember key, switch, retrieve new instance (todo, refactor #2244)
mo_repo->switch_repo_type( ls_settings_new-offline ).
mo_repo ?= zcl_abapgit_repo_srv=>get_instance( )->get( mo_repo->get_key( ) ).
ENDIF.
IF mo_repo->is_offline( ) = abap_false.
" Online: Save url
lo_repo_online ?= mo_repo.
lo_repo_online->set_url( ls_settings_new-url ).
ENDIF.
CASE ls_settings_new-head_type.
WHEN c_head_types-branch.
switch_to_pull_req( iv_revert = abap_true ).
switch_to_commit( iv_revert = abap_true ).
switch_to_branch_tag( ls_settings_new-branch ).
WHEN c_head_types-tag.
switch_to_pull_req( iv_revert = abap_true ).
switch_to_commit( iv_revert = abap_true ).
switch_to_branch_tag( ls_settings_new-tag ).
WHEN c_head_types-commit.
switch_to_pull_req( iv_revert = abap_true ).
switch_to_commit( iv_commit = ls_settings_new-commit ).
WHEN c_head_types-pull_request.
switch_to_commit( iv_revert = abap_true ).
switch_to_pull_req( iv_pull = ls_settings_new-pull_request ).
ENDCASE.
IF mo_repo->is_offline( ) = abap_false AND ls_settings_new-head_type <> c_head_types-pull_request.
" Switching from PR to something else will reset the URL in repo->switch_origin( space )
" -> set URL again
lo_repo_online->set_url( ls_settings_new-url ).
ENDIF.
COMMIT WORK AND WAIT.
MESSAGE ''Settings successfully saved'' TYPE ''S''.
mv_refresh_on_back = abap_true.
ms_settings_snapshot = get_remote_settings_from_repo( mo_repo ).
ENDMETHOD.
METHOD switch_online_offline.
DATA: lv_offline_new TYPE abap_bool,
lv_url TYPE ty_remote_settings-url,
lv_branch TYPE ty_remote_settings-branch.
lv_offline_new = boolc( mo_form_data->get( c_id-offline ) = abap_false ).
mo_form_data->set(
iv_key = c_id-offline
iv_val = lv_offline_new ).
IF lv_offline_new = abap_true.
lv_url = mo_form_data->get( c_id-url ).
mv_offline_switch_saved_url = lv_url.
mo_form_data->set(
iv_key = c_id-url
iv_val = '''' ).
mo_form_data->set(
iv_key = c_id-repo_type
iv_val = c_repo_type-offline ).
ELSE.
mo_form_data->set(
iv_key = c_id-repo_type
iv_val = c_repo_type-online ).
IF mv_offline_switch_saved_url IS NOT INITIAL.
mo_form_data->set(
iv_key = c_id-url
iv_val = mv_offline_switch_saved_url ).
ENDIF.
lv_url = mo_form_data->get( c_id-url ).
IF mo_form_data->get( c_id-head_type ) IS INITIAL.
TRY.
mo_form_data->set(
iv_key = c_id-head_type
iv_val = c_head_types-branch ).
IF lv_url CP ''http*''.
lv_branch = zcl_abapgit_git_factory=>get_git_transport( )->branches( lv_url )->get_head_symref( ).
mo_form_data->set(
iv_key = c_id-branch
iv_val = lv_branch ).
ENDIF.
CATCH zcx_abapgit_exception ##NO_HANDLER.
ENDTRY.
ENDIF.
ENDIF.
ENDMETHOD.
METHOD switch_to_branch_tag.
DATA lo_repo TYPE REF TO zcl_abapgit_repo_online.
check_protection( ).
lo_repo ?= mo_repo.
lo_repo->select_branch( iv_name ).
ENDMETHOD.
METHOD switch_to_commit.
DATA lo_repo TYPE REF TO zcl_abapgit_repo_online.
check_protection( ).
lo_repo ?= mo_repo.
IF iv_revert = abap_true.
lo_repo->select_commit( '''' ).
ELSE.
lo_repo->select_commit( iv_commit ).
ENDIF.
ENDMETHOD.
METHOD switch_to_pull_req.
DATA:
lo_repo TYPE REF TO zcl_abapgit_repo_online,
lv_url TYPE ty_remote_settings-url,
lv_branch TYPE ty_remote_settings-branch.
check_protection( ).
lo_repo ?= mo_repo.
" Switching twice does not work so reset to original repo first
lo_repo->switch_origin( '''' ).
IF iv_revert = abap_false.
SPLIT iv_pull AT ''@'' INTO lv_url lv_branch.
lo_repo->switch_origin(
iv_url = lv_url
iv_branch = zif_abapgit_git_definitions=>c_git_branch-heads_prefix && lv_branch ).
ENDIF.
ENDMETHOD.
METHOD validate_form.
DATA:
lx_error TYPE REF TO zcx_abapgit_exception,
lo_branch_list TYPE REF TO zcl_abapgit_git_branch_list,
lo_url TYPE REF TO zcl_abapgit_git_url,
lv_offline TYPE abap_bool,
lv_head_type TYPE ty_head_type,
lv_branch TYPE ty_remote_settings-branch,
lv_url TYPE ty_remote_settings-url,
lv_branch_check_error_id TYPE string,
lv_pull_request TYPE ty_remote_settings-pull_request,
lv_commit TYPE ty_remote_settings-commit.
ro_validation_log = zcl_abapgit_html_form_utils=>create( mo_form )->validate( io_form_data ).
lv_offline = io_form_data->get( c_id-offline ).
lv_url = io_form_data->get( c_id-url ).
IF lv_offline = abap_false AND lv_url NP ''http*''.
ro_validation_log->set(
iv_key = c_id-url
iv_val = ''Enter the URL of the repository and save'' ).
ELSEIF lv_offline = abap_false.
TRY.
zcl_abapgit_url=>name(
iv_url = lv_url
iv_validate = abap_true ).
" Provider-specific URL check
CREATE OBJECT lo_url.
lo_url->validate_url( lv_url ).
CATCH zcx_abapgit_exception INTO lx_error.
ro_validation_log->set(
iv_key = c_id-url
iv_val = lx_error->get_text( ) ).
ENDTRY.
IF iv_connection_check = abap_true.
zcl_abapgit_http=>check_connection( lv_url ).
ENDIF.
ENDIF.
IF lv_offline = abap_false.
lv_head_type = io_form_data->get( c_id-head_type ).
CASE lv_head_type.
WHEN c_head_types-branch.
lv_branch = zif_abapgit_git_definitions=>c_git_branch-heads_prefix && io_form_data->get( c_id-branch ).
CONDENSE lv_branch.
lv_branch_check_error_id = c_id-branch.
WHEN c_head_types-tag.
lv_branch = zif_abapgit_git_definitions=>c_git_branch-tags_prefix && io_form_data->get( c_id-tag ).
CONDENSE lv_branch.
lv_branch_check_error_id = c_id-tag.
WHEN c_head_types-pull_request.
lv_pull_request = io_form_data->get( c_id-pull_request ).
SPLIT lv_pull_request AT ''@'' INTO lv_url lv_branch.
IF lv_branch IS NOT INITIAL.
lv_branch = zif_abapgit_git_definitions=>c_git_branch-heads_prefix && lv_branch.
ENDIF.
lv_branch_check_error_id = c_id-pull_request.
WHEN c_head_types-commit.
lv_commit = io_form_data->get( c_id-commit ).
" Cannot check for commit existence currently (needs API that doesn''t rely on finding the first commit
" in the branch), check format instead
IF lv_commit CN ''0123456789abcdef'' AND ro_validation_log->get( c_id-commit ) IS INITIAL.
ro_validation_log->set(
iv_key = c_id-commit
iv_val = ''Commit needs to be hexadecimal and in lowercase'' ).
ENDIF.
WHEN OTHERS.
ro_validation_log->set(
iv_key = c_id-head_type
iv_val = ''Unknown head type'' ).
ENDCASE.
IF lv_branch IS NOT INITIAL.
" Problems with getting branches in general are raised to the page
lo_branch_list = zcl_abapgit_git_factory=>get_git_transport( )->branches( lv_url ).
TRY.
" Issues with finding a particular branch are shown next to corresponding field
lo_branch_list->find_by_name( lv_branch ).
CATCH zcx_abapgit_exception INTO lx_error.
ro_validation_log->set(
iv_key = lv_branch_check_error_id
iv_val = lx_error->get_text( ) ).
ENDTRY.
ENDIF.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
DATA:
lv_url TYPE ty_remote_settings-url,
lv_commit TYPE ty_remote_settings-commit.
mo_form_data->merge( zcl_abapgit_html_form_utils=>create( mo_form )->normalize( ii_event->form_data( ) ) ).
CASE ii_event->mv_action.
WHEN zif_abapgit_definitions=>c_action-go_back.
IF mv_refresh_on_back = abap_true.
" Note this doesn''t trigger if the tab is switched first
mo_repo->refresh( ).
ENDIF.
rs_handled-state = zcl_abapgit_html_form_utils=>create( mo_form )->exit(
io_form_data = prepare_for_compare( mo_form_data )
io_compare_with = initialize_form_data( ) ).
WHEN c_event-choose_url.
lv_url = choose_url( ).
IF lv_url IS INITIAL.
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
ELSE.
mo_form_data->set(
iv_key = c_id-url
iv_val = lv_url ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ENDIF.
WHEN c_event-change_head_type.
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
mo_validation_log->clear( ).
WHEN c_event-choose_branch.
choose_branch( ). " Uniformly handle state below
WHEN c_event-choose_tag.
choose_tag( ). " Uniformly handle state below
WHEN c_event-choose_pull_request.
choose_pr( ). " Uniformly handle state below
WHEN c_event-choose_commit.
lv_commit = choose_commit( ).
IF lv_commit IS INITIAL.
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
ELSE.
mo_form_data->set(
iv_key = c_id-commit
iv_val = lv_commit ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ENDIF.
WHEN c_event-switch.
switch_online_offline( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN c_event-save.
mo_validation_log = validate_form( mo_form_data ).
IF mo_validation_log->is_empty( ) = abap_true.
save_settings( ).
ENDIF.
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ENDCASE.
IF mo_popup_picklist IS BOUND. " Uniform popup state handling
" This should happen only for a new popup because
" on the first re-render main component event handling is blocked
" and not called again until the popup destruction
IF mo_popup_picklist->is_in_page( ) = abap_true.
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ELSE.
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
rs_handled-page = zcl_abapgit_gui_page_hoc=>create(
ii_child_component = mo_popup_picklist
iv_show_as_modal = abap_true ).
ENDIF.
ENDIF.
" If staying on form, initialize it with current settings
IF rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render AND mo_popup_picklist IS NOT BOUND.
" Switching tabs must change the form layout
mo_form = get_form_schema( mo_form_data ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_gui_hotkeys~get_hotkey_actions.
DATA: ls_hotkey_action LIKE LINE OF rt_hotkey_actions,
lv_head_type TYPE ty_head_type,
lv_offline TYPE abap_bool.
IF mo_form_data IS BOUND AND mo_form_data->is_empty( ) = abap_false.
lv_offline = mo_form_data->get( c_id-offline ).
IF lv_offline = abap_false.
lv_head_type = mo_form_data->get( c_id-head_type ).
ENDIF.
ELSE.
lv_offline = ms_settings_snapshot-offline.
IF lv_offline = abap_false.
lv_head_type = ms_settings_snapshot-head_type.
ENDIF.
ENDIF.
ls_hotkey_action-ui_component = ''Remote''.
ls_hotkey_action-description = ''Choose URL''.
ls_hotkey_action-action = c_event-choose_url.
ls_hotkey_action-hotkey = ''u''.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
IF lv_head_type = c_head_types-branch OR
lv_head_type = c_head_types-commit.
ls_hotkey_action-description = ''Choose Branch''.
ls_hotkey_action-action = c_event-choose_branch.
ls_hotkey_action-hotkey = ''b''.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ENDIF.
IF lv_head_type = c_head_types-tag.
ls_hotkey_action-description = ''Choose Tag''.
ls_hotkey_action-action = c_event-choose_tag.
ls_hotkey_action-hotkey = ''t''.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ENDIF.
IF lv_head_type = c_head_types-commit.
ls_hotkey_action-description = ''Choose Commit''.
ls_hotkey_action-action = c_event-choose_commit.
ls_hotkey_action-hotkey = ''c''.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ENDIF.
IF lv_head_type = c_head_types-pull_request.
ls_hotkey_action-description = ''Choose Pull Request''.
ls_hotkey_action-action = c_event-choose_pull_request.
ls_hotkey_action-hotkey = ''p''.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ENDIF.
IF lv_offline = abap_true.
ls_hotkey_action-description = ''Switch to Online''.
ls_hotkey_action-action = c_event-switch.
ls_hotkey_action-hotkey = ''o''.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ELSE.
ls_hotkey_action-description = ''Switch to Offline''.
ls_hotkey_action-action = c_event-switch.
ls_hotkey_action-hotkey = ''o''.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
handle_picklist_state( ).
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->wrap(
iv_tag = ''div''
iv_class = ''repo'' " It''s OK because it''s repo settings ... for now
ii_content = render_content( ) ).
IF mo_popup_picklist IS NOT BOUND OR mo_popup_picklist->is_in_page( ) = abap_false.
register_handlers( ).
ELSEIF mo_popup_picklist->is_in_page( ) = abap_true.
" Block usual page events if the popup is an in-page popup
ri_html->add( zcl_abapgit_gui_in_page_modal=>create( mo_popup_picklist ) ).
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_SETT_REPO ', 'CLASS zcl_abapgit_gui_page_sett_repo DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_component
FINAL
CREATE PRIVATE .
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_event_handler .
INTERFACES zif_abapgit_gui_renderable .
CLASS-METHODS create
IMPORTING
!io_repo TYPE REF TO zcl_abapgit_repo
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception .
METHODS constructor
IMPORTING
!io_repo TYPE REF TO zcl_abapgit_repo
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS:
BEGIN OF c_id,
dot TYPE string VALUE ''dot'',
file_system TYPE string VALUE ''file_system'',
abap_system TYPE string VALUE ''abap_system'',
name TYPE string VALUE ''name'',
i18n TYPE string VALUE ''i18n'',
main_language TYPE string VALUE ''main_language'',
i18n_langs TYPE string VALUE ''i18n_langs'',
use_lxe TYPE string VALUE ''use_lxe'',
starting_folder TYPE string VALUE ''starting_folder'',
folder_logic TYPE string VALUE ''folder_logic'',
ignore TYPE string VALUE ''ignore'',
requirements TYPE string VALUE ''requirements'',
version_constant TYPE string VALUE ''version_constant'',
version_value TYPE string VALUE ''version_value'',
abap_langu_vers TYPE string VALUE ''abap_langu_vers'',
original_system TYPE string VALUE ''original_system'',
END OF c_id.
CONSTANTS:
BEGIN OF c_event,
save TYPE string VALUE ''save'',
END OF c_event .
CONSTANTS c_empty_rows TYPE i VALUE 2 ##NO_TEXT.
DATA mo_form TYPE REF TO zcl_abapgit_html_form .
DATA mo_form_data TYPE REF TO zcl_abapgit_string_map .
DATA mo_validation_log TYPE REF TO zcl_abapgit_string_map .
DATA mo_repo TYPE REF TO zcl_abapgit_repo .
DATA mv_requirements_count TYPE i .
METHODS validate_form
IMPORTING
!io_form_data TYPE REF TO zcl_abapgit_string_map
RETURNING
VALUE(ro_validation_log) TYPE REF TO zcl_abapgit_string_map
RAISING
zcx_abapgit_exception .
METHODS validate_version_constant
IMPORTING
!iv_version_constant TYPE string
RAISING
zcx_abapgit_exception .
METHODS get_form_schema
RETURNING
VALUE(ro_form) TYPE REF TO zcl_abapgit_html_form
RAISING
zcx_abapgit_exception .
METHODS read_settings
RETURNING
VALUE(ro_form_data) TYPE REF TO zcl_abapgit_string_map
RAISING
zcx_abapgit_exception .
METHODS save_settings
RAISING
zcx_abapgit_exception .
ENDCLASS.
CLASS zcl_abapgit_gui_page_sett_repo IMPLEMENTATION.
METHOD constructor.
super->constructor( ).
CREATE OBJECT mo_validation_log.
CREATE OBJECT mo_form_data.
mo_repo = io_repo.
mo_form = get_form_schema( ).
mo_form_data = read_settings( ).
ENDMETHOD.
METHOD create.
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_sett_repo.
CREATE OBJECT lo_component
EXPORTING
io_repo = io_repo.
ri_page = zcl_abapgit_gui_page_hoc=>create(
iv_page_title = ''Repository Settings''
io_page_menu = zcl_abapgit_gui_menus=>repo_settings(
iv_key = io_repo->get_key( )
iv_act = zif_abapgit_definitions=>c_action-repo_settings )
ii_child_component = lo_component ).
ENDMETHOD.
METHOD get_form_schema.
ro_form = zcl_abapgit_html_form=>create(
iv_form_id = ''repo-settings-form''
iv_help_page = ''https://docs.abapgit.org/settings-dot-abapgit.html'' ).
ro_form->start_group(
iv_name = c_id-dot
iv_label = ''Repository Settings (.abapgit.xml)''
iv_hint = ''Settings stored in root folder in .abapgit.xml file''
)->text(
iv_name = c_id-name
iv_label = ''Name''
iv_hint = ''Official name (can be overwritten by local display name)''
)->text(
iv_name = c_id-version_constant
iv_label = ''Version Constant''
iv_placeholder = ''CLASS=>VERSION_CONSTANT or INTERFACE=>VERSION_CONSTANT''
iv_upper_case = abap_true
)->text(
iv_name = c_id-version_value
iv_label = ''Version Value''
iv_readonly = abap_true
)->start_group(
iv_name = c_id-i18n
iv_label = ''Texts''
)->text(
iv_name = c_id-main_language
iv_label = ''Main Language''
iv_hint = ''Main language of repository (cannot be changed)''
iv_readonly = abap_true
)->text(
iv_name = c_id-i18n_langs
iv_label = ''Serialize Translations for Additional Languages''
iv_hint = ''Comma-separate 2-letter ISO language codes e.g. "DE,ES,..." - should not include main language''
)->checkbox(
iv_name = c_id-use_lxe
iv_label = ''Use Experimental LXE Approach for Translations''
iv_hint = ''It''''s mandatory to specify the list of languages above in addition to this setting''
)->start_group(
iv_name = c_id-file_system
iv_label = ''Files''
)->radio(
iv_name = c_id-folder_logic
iv_default_value = zif_abapgit_dot_abapgit=>c_folder_logic-prefix
iv_label = ''Folder Logic''
iv_hint = ''Define how package folders are named in repository''
)->option(
iv_label = ''Prefix''
iv_value = zif_abapgit_dot_abapgit=>c_folder_logic-prefix
)->option(
iv_label = ''Full''
iv_value = zif_abapgit_dot_abapgit=>c_folder_logic-full
)->option(
iv_label = ''Mixed''
iv_value = zif_abapgit_dot_abapgit=>c_folder_logic-mixed
)->text(
iv_name = c_id-starting_folder
iv_label = ''Starting Folder''
iv_hint = ''Root folder that defines where serialization starts''
)->textarea(
iv_name = c_id-ignore
iv_label = ''Ignore Files''
iv_hint = ''List of files in starting folder that shall not be serialized''
)->start_group(
iv_name = c_id-abap_system
iv_label = ''ABAP''
)->table(
iv_name = c_id-requirements
iv_label = ''Requirements''
iv_hint = ''List of software components with minimum release and patch''
)->column(
iv_label = ''Software Component''
iv_width = ''40%''
)->column(
iv_label = ''Minimum Release''
iv_width = ''30%''
)->column(
iv_label = ''Minimum Patch''
iv_width = ''30%''
)->text(
iv_name = c_id-original_system
iv_label = ''Original System''
iv_upper_case = abap_true
iv_max = 3
iv_hint = ''Sets the source system of objects during deserialize in downstream systems''
&& '' (use "SID" to force the source system to sy-sysid)'' ).
IF zcl_abapgit_feature=>is_enabled( zcl_abapgit_abap_language_vers=>c_feature_flag ) = abap_true.
ro_form->radio(
iv_name = c_id-abap_langu_vers
iv_default_value = ''''
iv_condense = abap_true
iv_label = ''ABAP Language Version''
iv_hint = ''Define the ABAP language version for objects in the repository''
)->option(
iv_label = ''Any (Object-specific ABAP Language Version)''
iv_value = ''''
)->option(
iv_label = ''Ignore (ABAP Language Version not serialized)''
iv_value = zif_abapgit_dot_abapgit=>c_abap_language_version-ignore
)->option(
iv_label = ''Standard ABAP''
iv_value = zif_abapgit_dot_abapgit=>c_abap_language_version-standard
)->option(
iv_label = ''ABAP for Key Users''
iv_value = zif_abapgit_dot_abapgit=>c_abap_language_version-key_user
)->option(
iv_label = ''ABAP for Cloud Development''
iv_value = zif_abapgit_dot_abapgit=>c_abap_language_version-cloud_development ).
ENDIF.
ro_form->command(
iv_label = ''Save Settings''
iv_cmd_type = zif_abapgit_html_form=>c_cmd_type-input_main
iv_action = c_event-save
)->command(
iv_label = ''Back''
iv_action = zif_abapgit_definitions=>c_action-go_back ).
ENDMETHOD.
METHOD read_settings.
DATA:
lo_dot TYPE REF TO zcl_abapgit_dot_abapgit,
ls_dot TYPE zif_abapgit_dot_abapgit=>ty_dot_abapgit,
lv_main_lang TYPE spras,
lv_language TYPE t002t-sptxt,
lv_ignore TYPE string,
ls_requirements LIKE LINE OF ls_dot-requirements,
lv_row TYPE i,
lv_val TYPE string.
" Get settings from DB
lo_dot = mo_repo->get_dot_abapgit( ).
ls_dot = lo_dot->get_data( ).
lv_main_lang = lo_dot->get_main_language( ).
CREATE OBJECT ro_form_data.
" Repository Settings
SELECT SINGLE sptxt INTO lv_language FROM t002t
WHERE spras = sy-langu AND sprsl = lv_main_lang.
IF sy-subrc <> 0.
lv_language = ''Unknown language; Check your .abapgit.xml file''.
ENDIF.
ro_form_data->set(
iv_key = c_id-name
iv_val = ls_dot-name ).
ro_form_data->set(
iv_key = c_id-main_language
iv_val = |{ lv_main_lang } ({ lv_language })| ).
ro_form_data->set(
iv_key = c_id-i18n_langs
iv_val = zcl_abapgit_lxe_texts=>convert_table_to_lang_string( lo_dot->get_i18n_languages( ) ) ).
ro_form_data->set(
iv_key = c_id-use_lxe
iv_val = boolc( lo_dot->use_lxe( ) = abap_true ) ) ##TYPE.
ro_form_data->set(
iv_key = c_id-folder_logic
iv_val = ls_dot-folder_logic ).
ro_form_data->set(
iv_key = c_id-starting_folder
iv_val = ls_dot-starting_folder ).
ro_form_data->set(
iv_key = c_id-version_constant
iv_val = ls_dot-version_constant ).
TRY.
ro_form_data->set(
iv_key = c_id-version_value
iv_val = zcl_abapgit_version=>get_version_constant_value( ls_dot-version_constant ) ).
CATCH zcx_abapgit_exception.
ro_form_data->set(
iv_key = c_id-version_value
iv_val = '''' ).
ENDTRY.
lv_ignore = concat_lines_of(
table = ls_dot-ignore
sep = cl_abap_char_utilities=>newline ).
ro_form_data->set(
iv_key = c_id-ignore
iv_val = lv_ignore ).
LOOP AT ls_dot-requirements INTO ls_requirements.
lv_row = lv_row + 1.
DO 3 TIMES.
CASE sy-index.
WHEN 1.
lv_val = ls_requirements-component.
WHEN 2.
lv_val = ls_requirements-min_release.
WHEN 3.
lv_val = ls_requirements-min_patch.
ENDCASE.
ro_form_data->set(
iv_key = |{ c_id-requirements }-{ lv_row }-{ sy-index }|
iv_val = lv_val ).
ENDDO.
ENDLOOP.
DO c_empty_rows TIMES.
lv_row = lv_row + 1.
DO 3 TIMES.
ro_form_data->set(
iv_key = |{ c_id-requirements }-{ lv_row }-{ sy-index }|
iv_val = '''' ).
ENDDO.
ENDDO.
mv_requirements_count = lv_row.
ro_form_data->set(
iv_key = |{ c_id-requirements }-{ zif_abapgit_html_form=>c_rows }|
iv_val = |{ mv_requirements_count }| ).
IF zcl_abapgit_feature=>is_enabled( zcl_abapgit_abap_language_vers=>c_feature_flag ) = abap_true.
ro_form_data->set(
iv_key = c_id-abap_langu_vers
iv_val = ls_dot-abap_language_version ).
ENDIF.
ro_form_data->set(
iv_key = c_id-original_system
iv_val = ls_dot-original_system ).
ENDMETHOD.
METHOD save_settings.
DATA:
lo_dot TYPE REF TO zcl_abapgit_dot_abapgit,
lv_ignore TYPE string,
lt_ignore TYPE STANDARD TABLE OF string WITH DEFAULT KEY,
ls_requirements TYPE zif_abapgit_dot_abapgit=>ty_requirement,
lt_requirements TYPE zif_abapgit_dot_abapgit=>ty_requirement_tt.
lo_dot = mo_repo->get_dot_abapgit( ).
lo_dot->set_name( mo_form_data->get( c_id-name ) ).
lo_dot->set_folder_logic( mo_form_data->get( c_id-folder_logic ) ).
lo_dot->set_starting_folder( mo_form_data->get( c_id-starting_folder ) ).
lo_dot->set_version_constant( mo_form_data->get( c_id-version_constant ) ).
lo_dot->set_original_system( mo_form_data->get( c_id-original_system ) ).
IF zcl_abapgit_feature=>is_enabled( zcl_abapgit_abap_language_vers=>c_feature_flag ) = abap_true.
lo_dot->set_abap_language_version( mo_form_data->get( c_id-abap_langu_vers ) ).
ENDIF.
lo_dot->set_i18n_languages(
zcl_abapgit_lxe_texts=>convert_lang_string_to_table(
iv_langs = mo_form_data->get( c_id-i18n_langs )
iv_skip_main_language = lo_dot->get_main_language( ) ) ).
lo_dot->use_lxe( boolc( mo_form_data->get( c_id-use_lxe ) = abap_true ) ).
" Remove all ignores
lt_ignore = lo_dot->get_data( )-ignore.
LOOP AT lt_ignore INTO lv_ignore.
lo_dot->remove_ignore( iv_path = ''''
iv_filename = lv_ignore ).
ENDLOOP.
" Add newly entered ignores
lt_ignore = zcl_abapgit_convert=>split_string( mo_form_data->get( c_id-ignore ) ).
LOOP AT lt_ignore INTO lv_ignore.
lv_ignore = condense( lv_ignore ).
IF lv_ignore IS NOT INITIAL.
lo_dot->add_ignore( iv_path = ''''
iv_filename = lv_ignore ).
ENDIF.
ENDLOOP.
" Requirements
DO mv_requirements_count TIMES.
ls_requirements-component = to_upper( mo_form_data->get( |{ c_id-requirements }-{ sy-index }-1| ) ).
ls_requirements-min_release = mo_form_data->get( |{ c_id-requirements }-{ sy-index }-2| ).
ls_requirements-min_patch = mo_form_data->get( |{ c_id-requirements }-{ sy-index }-3| ).
APPEND ls_requirements TO lt_requirements.
ENDDO.
SORT lt_requirements BY component min_release min_patch.
DELETE lt_requirements WHERE component IS INITIAL.
DELETE ADJACENT DUPLICATES FROM lt_requirements COMPARING ALL FIELDS.
lo_dot->set_requirements( lt_requirements ).
mo_repo->set_dot_abapgit( lo_dot ).
mo_repo->refresh( ).
COMMIT WORK AND WAIT.
MESSAGE ''Settings successfully saved'' TYPE ''S''.
mo_form_data = read_settings( ).
ENDMETHOD.
METHOD validate_form.
CONSTANTS lc_allowed(36) TYPE c VALUE ''ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789''.
DATA:
lt_lang_list TYPE zif_abapgit_definitions=>ty_languages,
lv_folder TYPE string,
lv_len TYPE i,
lv_component TYPE zif_abapgit_dot_abapgit=>ty_requirement-component,
lv_min_release TYPE zif_abapgit_dot_abapgit=>ty_requirement-min_release,
lv_min_patch TYPE zif_abapgit_dot_abapgit=>ty_requirement-min_patch,
lv_version_constant TYPE string,
lv_original_system TYPE string,
lx_exception TYPE REF TO zcx_abapgit_exception.
ro_validation_log = zcl_abapgit_html_form_utils=>create( mo_form )->validate( io_form_data ).
lv_folder = io_form_data->get( c_id-starting_folder ).
lv_len = strlen( lv_folder ) - 1.
IF lv_len > 0 AND lv_folder(1) <> ''/''.
ro_validation_log->set(
iv_key = c_id-starting_folder
iv_val = |The folder must begin with /| ).
ELSEIF lv_len > 0 AND lv_folder+lv_len(1) <> ''/''.
ro_validation_log->set(
iv_key = c_id-starting_folder
iv_val = |The folder must end with /| ).
ELSEIF lv_folder CA ''\\''.
ro_validation_log->set(
iv_key = c_id-starting_folder
iv_val = |Use / instead of \\\\| ).
ENDIF.
DO mv_requirements_count TIMES.
lv_component = mo_form_data->get( |{ c_id-requirements }-{ sy-index }-1| ).
lv_min_release = mo_form_data->get( |{ c_id-requirements }-{ sy-index }-2| ).
lv_min_patch = mo_form_data->get( |{ c_id-requirements }-{ sy-index }-3| ).
IF lv_component IS INITIAL AND ( lv_min_release IS NOT INITIAL OR lv_min_patch IS NOT INITIAL ).
ro_validation_log->set(
iv_key = c_id-requirements
iv_val = |If you enter a release or patch, you must also enter a software component| ).
ELSEIF lv_component IS NOT INITIAL AND lv_min_release IS INITIAL.
ro_validation_log->set(
iv_key = c_id-requirements
iv_val = |If you enter a software component, you must also enter a minimum release| ).
ENDIF.
ENDDO.
TRY.
lv_version_constant = io_form_data->get( c_id-version_constant ).
IF lv_version_constant IS NOT INITIAL.
zcl_abapgit_version=>get_version_constant_value( lv_version_constant ).
validate_version_constant( lv_version_constant ).
ENDIF.
CATCH zcx_abapgit_exception INTO lx_exception.
ro_validation_log->set(
iv_key = c_id-version_constant
iv_val = lx_exception->get_text( ) ).
ENDTRY.
lt_lang_list = zcl_abapgit_lxe_texts=>convert_lang_string_to_table(
iv_langs = io_form_data->get( c_id-i18n_langs )
iv_skip_main_language = mo_repo->get_dot_abapgit( )->get_main_language( ) ).
IF io_form_data->get( c_id-use_lxe ) = abap_true AND lt_lang_list IS INITIAL.
ro_validation_log->set(
iv_key = c_id-i18n_langs
iv_val = ''LXE approach requires a non-empty list of languages'' ).
ENDIF.
lv_original_system = io_form_data->get( c_id-original_system ).
IF lv_original_system CN lc_allowed.
ro_validation_log->set(
iv_key = c_id-original_system
iv_val = ''System name must be alphanumerical'' ).
ENDIF.
ENDMETHOD.
METHOD validate_version_constant.
DATA: lv_version_class TYPE seoclsname,
lv_version_component TYPE string,
lt_local TYPE zif_abapgit_definitions=>ty_files_item_tt.
SPLIT iv_version_constant AT ''=>'' INTO lv_version_class lv_version_component.
lt_local = mo_repo->get_files_local( ).
READ TABLE lt_local TRANSPORTING NO FIELDS WITH KEY
item-obj_type = ''CLAS'' item-obj_name = lv_version_class.
IF sy-subrc <> 0.
READ TABLE lt_local TRANSPORTING NO FIELDS WITH KEY
item-obj_type = ''INTF'' item-obj_name = lv_version_class.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Object { lv_version_class } is not included in this repository| ).
ENDIF.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
mo_form_data->merge( zcl_abapgit_html_form_utils=>create( mo_form )->normalize( ii_event->form_data( ) ) ).
CASE ii_event->mv_action.
WHEN zif_abapgit_definitions=>c_action-go_back.
rs_handled-state = zcl_abapgit_html_form_utils=>create( mo_form )->exit(
io_form_data = mo_form_data
io_compare_with = read_settings( ) ).
WHEN c_event-save.
" Validate all form entries
mo_validation_log = validate_form( mo_form_data ).
IF mo_validation_log->is_empty( ) = abap_true.
save_settings( ).
ENDIF.
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
register_handlers( ).
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( \`<div class="repo">\` ).
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_repo_top(
io_repo = mo_repo
iv_show_commit = abap_false
iv_interactive_branch = abap_true ) ).
ri_html->add( mo_form->render(
io_values = mo_form_data
io_validation_log = mo_validation_log ) ).
ri_html->add( \`</div>\` ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_COMMIT ', 'CLASS zcl_abapgit_gui_page_commit DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_component
FINAL
CREATE PRIVATE.
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_event_handler.
INTERFACES zif_abapgit_gui_renderable.
CLASS-METHODS create
IMPORTING
!io_repo TYPE REF TO zcl_abapgit_repo_online
!io_stage TYPE REF TO zcl_abapgit_stage
!iv_sci_result TYPE zif_abapgit_definitions=>ty_sci_result DEFAULT zif_abapgit_definitions=>c_sci_result-no_run
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception.
METHODS constructor
IMPORTING
!io_repo TYPE REF TO zcl_abapgit_repo_online
!io_stage TYPE REF TO zcl_abapgit_stage
!iv_sci_result TYPE zif_abapgit_definitions=>ty_sci_result
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS:
BEGIN OF c_id,
committer TYPE string VALUE ''committer'',
committer_name TYPE string VALUE ''committer_name'',
committer_email TYPE string VALUE ''committer_email'',
message TYPE string VALUE ''message'',
comment TYPE string VALUE ''comment'',
body TYPE string VALUE ''body'',
author TYPE string VALUE ''author'',
author_name TYPE string VALUE ''author_name'',
author_email TYPE string VALUE ''author_email'',
new_branch_name TYPE string VALUE ''new_branch_name'',
END OF c_id.
CONSTANTS:
BEGIN OF c_event,
commit TYPE string VALUE ''commit'',
END OF c_event.
DATA mo_form TYPE REF TO zcl_abapgit_html_form.
DATA mo_form_data TYPE REF TO zcl_abapgit_string_map.
DATA mo_form_util TYPE REF TO zcl_abapgit_html_form_utils.
DATA mo_validation_log TYPE REF TO zcl_abapgit_string_map.
DATA mo_settings TYPE REF TO zcl_abapgit_settings.
DATA mo_repo TYPE REF TO zcl_abapgit_repo_online.
DATA mo_stage TYPE REF TO zcl_abapgit_stage.
DATA mt_stage TYPE zif_abapgit_definitions=>ty_stage_tt.
DATA ms_commit TYPE zif_abapgit_services_git=>ty_commit_fields.
DATA mv_sci_result TYPE zif_abapgit_definitions=>ty_sci_result.
METHODS render_stage_summary
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception.
METHODS render_stage_details
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception.
METHODS validate_form
IMPORTING
!io_form_data TYPE REF TO zcl_abapgit_string_map
RETURNING
VALUE(ro_validation_log) TYPE REF TO zcl_abapgit_string_map
RAISING
zcx_abapgit_exception.
METHODS get_form_schema
RETURNING
VALUE(ro_form) TYPE REF TO zcl_abapgit_html_form.
METHODS get_defaults
RAISING
zcx_abapgit_exception.
METHODS get_committer_name
RETURNING
VALUE(rv_user) TYPE string
RAISING
zcx_abapgit_exception.
METHODS get_committer_email
RETURNING
VALUE(rv_email) TYPE string
RAISING
zcx_abapgit_exception.
METHODS get_comment_default
RETURNING
VALUE(rv_text) TYPE string.
METHODS get_comment_object
IMPORTING
!it_stage TYPE zif_abapgit_definitions=>ty_stage_tt
RETURNING
VALUE(rv_text) TYPE string.
METHODS get_comment_file
IMPORTING
!it_stage TYPE zif_abapgit_definitions=>ty_stage_tt
RETURNING
VALUE(rv_text) TYPE string.
METHODS branch_name_to_internal
IMPORTING
iv_branch_name TYPE string
RETURNING
VALUE(rv_new_branch_name) TYPE string.
ENDCLASS.
CLASS zcl_abapgit_gui_page_commit IMPLEMENTATION.
METHOD branch_name_to_internal.
rv_new_branch_name = zcl_abapgit_git_branch_list=>complete_heads_branch_name(
zcl_abapgit_git_branch_list=>normalize_branch_name( iv_branch_name ) ).
ENDMETHOD.
METHOD constructor.
super->constructor( ).
mo_repo = io_repo.
mo_stage = io_stage.
mt_stage = mo_stage->get_all( ).
mv_sci_result = iv_sci_result.
" Get settings from DB
mo_settings = zcl_abapgit_persist_factory=>get_settings( )->read( ).
CREATE OBJECT mo_validation_log.
CREATE OBJECT mo_form_data.
mo_form = get_form_schema( ).
mo_form_util = zcl_abapgit_html_form_utils=>create( mo_form ).
ENDMETHOD.
METHOD create.
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_commit.
CREATE OBJECT lo_component
EXPORTING
io_repo = io_repo
io_stage = io_stage
iv_sci_result = iv_sci_result.
ri_page = zcl_abapgit_gui_page_hoc=>create(
iv_page_title = ''Commit''
ii_child_component = lo_component ).
ENDMETHOD.
METHOD get_comment_default.
rv_text = mo_settings->get_commitmsg_comment_default( ).
IF rv_text IS INITIAL.
RETURN.
ENDIF.
REPLACE ''$FILE'' IN rv_text WITH get_comment_file( mt_stage ).
REPLACE ''$OBJECT'' IN rv_text WITH get_comment_object( mt_stage ).
ENDMETHOD.
METHOD get_comment_file.
DATA lv_count TYPE i.
FIELD-SYMBOLS <ls_stage> LIKE LINE OF it_stage.
lv_count = lines( it_stage ).
IF lv_count = 1.
" Just one file so we use the file name
READ TABLE it_stage ASSIGNING <ls_stage> INDEX 1.
ASSERT sy-subrc = 0.
rv_text = <ls_stage>-file-filename.
ELSE.
" For multiple file we use the count instead
rv_text = |{ lv_count } files|.
ENDIF.
ENDMETHOD.
METHOD get_comment_object.
DATA:
lv_count TYPE i,
ls_item TYPE zif_abapgit_definitions=>ty_item,
lt_items TYPE zif_abapgit_definitions=>ty_items_tt.
FIELD-SYMBOLS <ls_stage> LIKE LINE OF it_stage.
" Get objects
LOOP AT it_stage ASSIGNING <ls_stage>.
CLEAR ls_item.
ls_item-obj_type = <ls_stage>-status-obj_type.
ls_item-obj_name = <ls_stage>-status-obj_name.
COLLECT ls_item INTO lt_items.
ENDLOOP.
lv_count = lines( lt_items ).
IF lv_count = 1.
" Just one object so we use the object name
READ TABLE lt_items INTO ls_item INDEX 1.
ASSERT sy-subrc = 0.
CONCATENATE ls_item-obj_type ls_item-obj_name INTO rv_text SEPARATED BY space.
ELSE.
" For multiple objects we use the count instead
rv_text = |{ lv_count } objects|.
ENDIF.
ENDMETHOD.
METHOD get_committer_email.
DATA li_user TYPE REF TO zif_abapgit_persist_user.
li_user = zcl_abapgit_persistence_user=>get_instance( ).
rv_email = li_user->get_repo_git_user_email( mo_repo->get_url( ) ).
IF rv_email IS INITIAL.
rv_email = li_user->get_default_git_user_email( ).
ENDIF.
IF rv_email IS INITIAL.
" get default from user record
rv_email = zcl_abapgit_user_record=>get_instance( sy-uname )->get_email( ).
ENDIF.
ENDMETHOD.
METHOD get_committer_name.
DATA li_user TYPE REF TO zif_abapgit_persist_user.
li_user = zcl_abapgit_persistence_user=>get_instance( ).
rv_user = li_user->get_repo_git_user_name( mo_repo->get_url( ) ).
IF rv_user IS INITIAL.
rv_user = li_user->get_default_git_user_name( ).
ENDIF.
IF rv_user IS INITIAL.
" get default from user record
rv_user = zcl_abapgit_user_record=>get_instance( sy-uname )->get_name( ).
ENDIF.
ENDMETHOD.
METHOD get_defaults.
ms_commit-committer_name = get_committer_name( ).
ms_commit-committer_email = get_committer_email( ).
ms_commit-comment = get_comment_default( ).
" Committer
mo_form_data->set(
iv_key = c_id-committer_name
iv_val = ms_commit-committer_name ).
mo_form_data->set(
iv_key = c_id-committer_email
iv_val = ms_commit-committer_email ).
" Message
mo_form_data->set(
iv_key = c_id-comment
iv_val = ms_commit-comment ).
ENDMETHOD.
METHOD get_form_schema.
DATA lv_commitmsg_comment_length TYPE i.
CONSTANTS lc_commitmsg_comment_min_len TYPE i VALUE 1.
CONSTANTS lc_commitmsg_comment_max_len TYPE i VALUE 255.
ro_form = zcl_abapgit_html_form=>create(
iv_form_id = ''commit-form''
iv_help_page = ''https://docs.abapgit.org/guide-stage-commit.html'' ).
lv_commitmsg_comment_length = mo_settings->get_commitmsg_comment_length( ).
ro_form->text(
iv_name = c_id-comment
iv_label = ''Comment''
iv_required = abap_true
iv_min = lc_commitmsg_comment_min_len
iv_max = lv_commitmsg_comment_length
iv_placeholder = |Add a mandatory comment with max { lc_commitmsg_comment_max_len } characters|
)->textarea(
iv_name = c_id-body
iv_label = ''Body''
iv_rows = 6
iv_cols = mo_settings->get_commitmsg_body_size( )
iv_placeholder = ''Add an optional description...''
)->text(
iv_name = c_id-committer_name
iv_label = ''Committer Name''
iv_required = abap_true
)->text(
iv_name = c_id-committer_email
iv_label = ''Committer Email''
iv_required = abap_true ).
IF mo_settings->get_commitmsg_hide_author( ) IS INITIAL.
ro_form->text(
iv_name = c_id-author_name
iv_label = ''Author Name''
iv_placeholder = ''Optionally, specify an author (same as committer by default)''
)->text(
iv_name = c_id-author_email
iv_label = ''Author Email'' ).
ENDIF.
ro_form->text(
iv_name = c_id-new_branch_name
iv_label = ''New Branch Name''
iv_placeholder = ''Optionally, enter a new branch name for this commit''
iv_condense = abap_true ).
ro_form->command(
iv_label = ''Commit''
iv_cmd_type = zif_abapgit_html_form=>c_cmd_type-input_main
iv_action = c_event-commit
)->command(
iv_label = ''Back''
iv_action = zif_abapgit_definitions=>c_action-go_back ).
ENDMETHOD.
METHOD render_stage_details.
FIELD-SYMBOLS <ls_stage> LIKE LINE OF mt_stage.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<table class="stage_tab">'' ).
ri_html->add( ''<thead>'' ).
ri_html->add( ''<tr>'' ).
ri_html->add( ''<th colspan="3">Staged Files (See <a href="#top">Summary</a> Above)</th>'' ).
ri_html->add( ''</tr>'' ).
ri_html->add( ''</thead>'' ).
ri_html->add( ''<tbody>'' ).
LOOP AT mt_stage ASSIGNING <ls_stage>.
ri_html->add( ''<tr>'' ).
ri_html->add( ''<td>'' ).
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_item_state(
iv_lstate = <ls_stage>-status-lstate
iv_rstate = <ls_stage>-status-rstate ) ).
ri_html->add( ''</td>'' ).
ri_html->add( ''<td class="method">'' ).
ri_html->add( zcl_abapgit_stage=>method_description( <ls_stage>-method ) ).
ri_html->add( ''</td>'' ).
ri_html->add( ''<td>'' ).
ri_html->add( <ls_stage>-file-path && <ls_stage>-file-filename ).
ri_html->add( ''</td>'' ).
ri_html->add( ''</tr>'' ).
ENDLOOP.
ri_html->add( ''</tbody>'' ).
ri_html->add( ''</table>'' ).
ENDMETHOD.
METHOD render_stage_summary.
DATA:
BEGIN OF ls_sum,
method TYPE string,
count TYPE i,
END OF ls_sum,
lt_sum LIKE STANDARD TABLE OF ls_sum WITH DEFAULT KEY.
FIELD-SYMBOLS <ls_stage> LIKE LINE OF mt_stage.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
LOOP AT mt_stage ASSIGNING <ls_stage>.
ls_sum-method = <ls_stage>-method.
ls_sum-count = 1.
COLLECT ls_sum INTO lt_sum.
ENDLOOP.
ri_html->add( ''Stage Summary: '' ).
READ TABLE lt_sum INTO ls_sum WITH TABLE KEY method = zif_abapgit_definitions=>c_method-add.
IF sy-subrc = 0.
ri_html->add( |<span class="diff_banner diff_ins" title="add">+ { ls_sum-count }</span>| ).
ENDIF.
READ TABLE lt_sum INTO ls_sum WITH TABLE KEY method = zif_abapgit_definitions=>c_method-rm.
IF sy-subrc = 0.
ri_html->add( |<span class="diff_banner diff_del" title="remove">- { ls_sum-count }</span>| ).
ENDIF.
READ TABLE lt_sum INTO ls_sum WITH TABLE KEY method = zif_abapgit_definitions=>c_method-ignore.
IF sy-subrc = 0.
ri_html->add( |<span class="diff_banner diff_upd" title="ignore">~ { ls_sum-count }</span>| ).
ENDIF.
IF lines( mt_stage ) = 1.
ri_html->add( ''file'' ).
ELSE.
ri_html->add( ''files'' ).
ENDIF.
ri_html->add( ''(See <a href="#stage-details">Details</a> Below)'' ).
ENDMETHOD.
METHOD validate_form.
DATA: lt_branches TYPE zif_abapgit_git_definitions=>ty_git_branch_list_tt,
lv_new_branch_name TYPE string.
ro_validation_log = mo_form_util->validate( io_form_data ).
IF zcl_abapgit_utils=>is_valid_email( io_form_data->get( c_id-committer_email ) ) = abap_false.
ro_validation_log->set(
iv_key = c_id-committer_email
iv_val = |Invalid email address| ).
ENDIF.
IF zcl_abapgit_utils=>is_valid_email( io_form_data->get( c_id-author_email ) ) = abap_false.
ro_validation_log->set(
iv_key = c_id-author_email
iv_val = |Invalid email address| ).
ENDIF.
lv_new_branch_name = io_form_data->get( c_id-new_branch_name ).
IF lv_new_branch_name IS NOT INITIAL.
" check if branch already exists
lt_branches = zcl_abapgit_git_factory=>get_git_transport(
)->branches( mo_repo->get_url( )
)->get_branches_only( ).
READ TABLE lt_branches TRANSPORTING NO FIELDS WITH TABLE KEY name_key
COMPONENTS name = branch_name_to_internal( lv_new_branch_name ).
IF sy-subrc = 0.
ro_validation_log->set(
iv_key = c_id-new_branch_name
iv_val = |Branch already exists| ).
ENDIF.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
DATA lv_new_branch_name TYPE string.
mo_form_data = mo_form_util->normalize( ii_event->form_data( ) ).
CASE ii_event->mv_action.
WHEN c_event-commit.
" Validate form entries before committing
mo_validation_log = validate_form( mo_form_data ).
IF mo_validation_log->is_empty( ) = abap_true.
" new branch fields not needed in commit data
mo_form_data->strict( abap_false ).
mo_form_data->to_abap( CHANGING cs_container = ms_commit ).
REPLACE ALL OCCURRENCES
OF cl_abap_char_utilities=>cr_lf
IN ms_commit-body
WITH cl_abap_char_utilities=>newline.
lv_new_branch_name = mo_form_data->get( c_id-new_branch_name ).
" create new branch and commit to it if branch name is not empty
IF lv_new_branch_name IS NOT INITIAL.
lv_new_branch_name = branch_name_to_internal( lv_new_branch_name ).
" creates a new branch and automatically switches to it
mo_repo->create_branch( lv_new_branch_name ).
ENDIF.
zcl_abapgit_services_git=>commit(
is_commit = ms_commit
io_repo = mo_repo
io_stage = mo_stage ).
MESSAGE ''Commit was successful'' TYPE ''S''.
rs_handled-state = zcl_abapgit_gui=>c_event_state-go_back_to_bookmark.
ELSE.
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ENDIF.
WHEN OTHERS.
ASSERT 1 = 1.
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
register_handlers( ).
IF mo_form_util->is_empty( mo_form_data ) = abap_true.
get_defaults( ).
ENDIF.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<div class="repo">'' ).
ri_html->add( ''<div id="top" class="paddings">'' ).
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_repo_top( mo_repo ) ).
ri_html->add( ''</div>'' ).
ri_html->add( ''<div id="stage-summary" class="dialog w800px paddings">'' ).
ri_html->add( render_stage_summary( ) ).
ri_html->add( ''</div>'' ).
ri_html->add( mo_form->render(
iv_form_class = ''w800px''
io_values = mo_form_data
io_validation_log = mo_validation_log ) ).
ri_html->add( ''<div id="stage-details" class="dialog w800px">'' ).
ri_html->add( render_stage_details( ) ).
ri_html->add( ''</div>'' ).
ri_html->add( ''</div>'' ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_DATA ', 'CLASS zcl_abapgit_gui_page_data DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_component
FINAL
CREATE PUBLIC.
PUBLIC SECTION.
INTERFACES:
zif_abapgit_gui_event_handler,
zif_abapgit_gui_menu_provider,
zif_abapgit_gui_renderable.
CLASS-METHODS create
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception.
METHODS constructor
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
CONSTANTS:
BEGIN OF c_event,
add TYPE string VALUE ''add'',
update TYPE string VALUE ''update'',
remove TYPE string VALUE ''remove'',
add_via_transport TYPE string VALUE ''add_via_transport'',
END OF c_event.
CONSTANTS:
BEGIN OF c_id,
table TYPE string VALUE ''table'',
where TYPE string VALUE ''where'',
skip_initial TYPE string VALUE ''skip_initial'',
END OF c_id.
DATA mi_config TYPE REF TO zif_abapgit_data_config.
PRIVATE SECTION.
DATA mo_repo TYPE REF TO zcl_abapgit_repo.
DATA mo_form TYPE REF TO zcl_abapgit_html_form.
DATA mo_form_data TYPE REF TO zcl_abapgit_string_map.
DATA mo_validation_log TYPE REF TO zcl_abapgit_string_map.
DATA mo_form_util TYPE REF TO zcl_abapgit_html_form_utils.
CLASS-METHODS concatenated_key_to_where
IMPORTING
!iv_table TYPE tabname
!iv_tabkey TYPE clike
RETURNING
VALUE(rv_where) TYPE string
RAISING
zcx_abapgit_exception.
METHODS get_form_schema
RETURNING
VALUE(ro_form) TYPE REF TO zcl_abapgit_html_form.
METHODS add_via_transport
RAISING
zcx_abapgit_exception .
METHODS build_where
IMPORTING
!io_map TYPE REF TO zcl_abapgit_string_map
RETURNING
VALUE(rt_where) TYPE string_table .
METHODS render_existing
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
METHODS event_add
IMPORTING
!ii_event TYPE REF TO zif_abapgit_gui_event
RAISING
zcx_abapgit_exception .
METHODS event_remove
IMPORTING
!ii_event TYPE REF TO zif_abapgit_gui_event
RAISING
zcx_abapgit_exception .
METHODS event_update
IMPORTING
!ii_event TYPE REF TO zif_abapgit_gui_event
RAISING
zcx_abapgit_exception .
ENDCLASS.
CLASS zcl_abapgit_gui_page_data IMPLEMENTATION.
METHOD get_form_schema.
ro_form = zcl_abapgit_html_form=>create( iv_form_id = ''data-config'' ).
ro_form->text(
iv_label = ''Table''
iv_name = c_id-table
iv_required = abap_true
iv_max = 16 ).
ro_form->checkbox(
iv_label = ''Skip Initial Values''
iv_name = c_id-skip_initial ).
ro_form->textarea(
iv_label = ''Where''
iv_placeholder = ''Conditions separated by newline''
iv_name = c_id-where ).
ro_form->command(
iv_label = ''Add''
iv_cmd_type = zif_abapgit_html_form=>c_cmd_type-input_main
iv_action = c_event-add ).
ENDMETHOD.
METHOD add_via_transport.
DATA lv_trkorr TYPE trkorr.
DATA ls_request TYPE zif_abapgit_cts_api=>ty_transport_data.
DATA ls_key LIKE LINE OF ls_request-keys.
DATA lv_where TYPE string.
DATA ls_config TYPE zif_abapgit_data_config=>ty_config.
lv_trkorr = zcl_abapgit_ui_factory=>get_popups( )->popup_to_select_transport( ).
IF lv_trkorr IS INITIAL.
RETURN.
ENDIF.
ls_request = zcl_abapgit_factory=>get_cts_api( )->read( lv_trkorr ).
IF lines( ls_request-keys ) = 0.
zcx_abapgit_exception=>raise( |No keys found, select task| ).
ENDIF.
LOOP AT ls_request-keys INTO ls_key WHERE object = ''TABU''.
ASSERT ls_key-objname IS NOT INITIAL.
ASSERT ls_key-tabkey IS NOT INITIAL.
CLEAR ls_config.
ls_config-type = zif_abapgit_data_config=>c_data_type-tabu.
ls_config-name = to_upper( ls_key-objname ).
lv_where = concatenated_key_to_where(
iv_table = ls_key-objname
iv_tabkey = ls_key-tabkey ).
APPEND lv_where TO ls_config-where.
mi_config->add_config( ls_config ).
ENDLOOP.
ENDMETHOD.
METHOD build_where.
DATA lv_where LIKE LINE OF rt_where.
rt_where = zcl_abapgit_convert=>split_string( io_map->get( c_id-where ) ).
DELETE rt_where WHERE table_line IS INITIAL.
LOOP AT rt_where INTO lv_where.
IF strlen( lv_where ) <= 2.
DELETE rt_where INDEX sy-tabix.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD concatenated_key_to_where.
DATA lo_structdescr TYPE REF TO cl_abap_structdescr.
DATA lo_typedescr TYPE REF TO cl_abap_typedescr.
DATA lt_fields TYPE zcl_abapgit_data_utils=>ty_names.
DATA lv_field LIKE LINE OF lt_fields.
DATA lv_table TYPE tadir-obj_name.
DATA lv_length TYPE i.
DATA lv_tabix TYPE i.
DATA lv_key TYPE c LENGTH 900.
lv_key = iv_tabkey.
lo_structdescr ?= cl_abap_typedescr=>describe_by_name( iv_table ).
lv_table = iv_table.
lt_fields = zcl_abapgit_data_utils=>list_key_fields( lv_table ).
LOOP AT lt_fields INTO lv_field.
lv_tabix = sy-tabix.
lo_typedescr = cl_abap_typedescr=>describe_by_name( |{ iv_table }-{ lv_field }| ).
lv_length = lo_typedescr->length / cl_abap_char_utilities=>charsize.
IF lv_tabix = 1 AND lo_typedescr->get_relative_name( ) = ''MANDT''.
lv_key = lv_key+lv_length.
CONTINUE.
ENDIF.
IF lv_key = |*|.
EXIT. " current loop
ENDIF.
IF NOT rv_where IS INITIAL.
rv_where = |{ rv_where } AND |.
ENDIF.
rv_where = |{ rv_where }{ to_lower( lv_field ) } = ''{ lv_key(lv_length) }''|.
lv_key = lv_key+lv_length.
ENDLOOP.
ENDMETHOD.
METHOD constructor.
super->constructor( ).
CREATE OBJECT mo_validation_log.
CREATE OBJECT mo_form_data.
mo_form = get_form_schema( ).
mo_form_util = zcl_abapgit_html_form_utils=>create( mo_form ).
mo_repo ?= zcl_abapgit_repo_srv=>get_instance( )->get( iv_key ).
mi_config = mo_repo->get_data_config( ).
ENDMETHOD.
METHOD create.
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_data.
CREATE OBJECT lo_component
EXPORTING
iv_key = iv_key.
ri_page = zcl_abapgit_gui_page_hoc=>create(
iv_page_title = ''Data Config''
ii_page_menu_provider = lo_component
ii_child_component = lo_component ).
ENDMETHOD.
METHOD event_add.
DATA lo_map TYPE REF TO zcl_abapgit_string_map.
DATA ls_config TYPE zif_abapgit_data_config=>ty_config.
lo_map = ii_event->form_data( ).
ls_config-type = zif_abapgit_data_config=>c_data_type-tabu.
ls_config-name = to_upper( lo_map->get( c_id-table ) ).
ls_config-skip_initial = lo_map->get( c_id-skip_initial ).
ls_config-where = build_where( lo_map ).
mi_config->add_config( ls_config ).
ENDMETHOD.
METHOD event_remove.
DATA lo_map TYPE REF TO zcl_abapgit_string_map.
DATA ls_config TYPE zif_abapgit_data_config=>ty_config.
lo_map = ii_event->form_data( ).
ls_config-type = zif_abapgit_data_config=>c_data_type-tabu.
ls_config-name = to_upper( lo_map->get( c_id-table ) ).
mi_config->remove_config( ls_config ).
ENDMETHOD.
METHOD event_update.
DATA lo_map TYPE REF TO zcl_abapgit_string_map.
DATA ls_config TYPE zif_abapgit_data_config=>ty_config.
lo_map = ii_event->form_data( ).
ls_config-type = zif_abapgit_data_config=>c_data_type-tabu.
ls_config-name = to_upper( lo_map->get( c_id-table ) ).
ls_config-skip_initial = lo_map->has( to_upper( c_id-skip_initial ) ).
ls_config-where = build_where( lo_map ).
mi_config->update_config( ls_config ).
ENDMETHOD.
METHOD render_existing.
DATA lo_form TYPE REF TO zcl_abapgit_html_form.
DATA lo_form_data TYPE REF TO zcl_abapgit_string_map.
DATA lt_configs TYPE zif_abapgit_data_config=>ty_config_tt.
DATA ls_config LIKE LINE OF lt_configs.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
CREATE OBJECT lo_form_data.
lt_configs = mi_config->get_configs( ).
LOOP AT lt_configs INTO ls_config.
lo_form = zcl_abapgit_html_form=>create( ).
CREATE OBJECT lo_form_data.
lo_form_data->set(
iv_key = c_id-table
iv_val = |{ ls_config-name }| ).
lo_form->text(
iv_label = ''Table''
iv_name = c_id-table
iv_readonly = abap_true
iv_max = 16 ).
lo_form_data->set(
iv_key = c_id-skip_initial
iv_val = ls_config-skip_initial ).
lo_form->checkbox(
iv_label = ''Skip Initial Values''
iv_name = c_id-skip_initial ).
lo_form_data->set(
iv_key = c_id-where
iv_val = concat_lines_of( table = ls_config-where sep = |\\n| ) ).
lo_form->textarea(
iv_label = ''Where''
iv_placeholder = ''Conditions separated by newline''
iv_name = c_id-where ).
lo_form->command(
iv_label = ''Update''
iv_cmd_type = zif_abapgit_html_form=>c_cmd_type-input_main
iv_action = c_event-update ).
lo_form->command(
iv_label = ''Remove''
iv_action = c_event-remove ).
ri_html->add( lo_form->render( lo_form_data ) ).
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
mo_form_data = mo_form_util->normalize( ii_event->form_data( ) ).
CASE ii_event->mv_action.
WHEN c_event-add.
mo_validation_log = mo_form_util->validate( mo_form_data ).
IF mo_validation_log->is_empty( ) = abap_false.
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ELSE.
event_add( ii_event ).
mo_repo->refresh( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ENDIF.
WHEN c_event-update.
event_update( ii_event ).
mo_repo->refresh( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN c_event-remove.
event_remove( ii_event ).
mo_repo->refresh( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN c_event-add_via_transport.
add_via_transport( ).
mo_repo->refresh( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_gui_menu_provider~get_menu.
CREATE OBJECT ro_toolbar.
ro_toolbar->add( iv_txt = ''Add Via Transport''
iv_act = c_event-add_via_transport ).
ro_toolbar->add( iv_txt = ''Back''
iv_act = zif_abapgit_definitions=>c_action-go_back ).
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
register_handlers( ).
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<div class="repo">'' ).
ri_html->add( render_existing( ) ).
mo_form_data->delete( ''table'' ).
mo_form_data->delete( ''skip_initial'' ).
mo_form_data->delete( ''where'' ).
ri_html->add( mo_form->render(
io_values = mo_form_data
io_validation_log = mo_validation_log ) ).
ri_html->add( ''</div>'' ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_DEBUGINFO ', 'CLASS zcl_abapgit_gui_page_debuginfo DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_component
FINAL
CREATE PRIVATE .
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_event_handler .
INTERFACES zif_abapgit_gui_renderable .
CLASS-METHODS create
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS c_exit_standalone TYPE syrepid VALUE ''ZABAPGIT_USER_EXIT'' ##NO_TEXT.
CONSTANTS c_exit_class TYPE c LENGTH 30 VALUE ''ZCL_ABAPGIT_USER_EXIT'' ##NO_TEXT.
CONSTANTS c_exit_interface TYPE c LENGTH 30 VALUE ''ZIF_ABAPGIT_EXIT'' ##NO_TEXT.
CONSTANTS:
BEGIN OF c_action,
save TYPE string VALUE ''save'',
END OF c_action.
DATA mv_html TYPE string .
CLASS-METHODS build_toolbar
RETURNING
VALUE(ro_menu) TYPE REF TO zcl_abapgit_html_toolbar.
METHODS render_debug_info
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
METHODS render_exit_info
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
METHODS render_exit_info_methods
IMPORTING
!it_source TYPE string_table
!iv_clsname TYPE seoclsname OPTIONAL
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
METHODS render_supported_object_types
RETURNING
VALUE(rv_html) TYPE string .
METHODS render_scripts
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
METHODS get_jump_object
IMPORTING
!iv_obj_type TYPE csequence DEFAULT ''CLAS''
!iv_obj_name TYPE csequence
RETURNING
VALUE(rv_html) TYPE string .
ENDCLASS.
CLASS zcl_abapgit_gui_page_debuginfo IMPLEMENTATION.
METHOD build_toolbar.
CREATE OBJECT ro_menu EXPORTING iv_id = ''toolbar-debug''.
ro_menu->add(
iv_txt = ''Save''
iv_act = c_action-save ).
ro_menu->add(
iv_txt = ''Back''
iv_act = zif_abapgit_definitions=>c_action-go_back ).
ENDMETHOD.
METHOD create.
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_debuginfo.
CREATE OBJECT lo_component.
ri_page = zcl_abapgit_gui_page_hoc=>create(
iv_page_title = ''Debug Info''
io_page_menu = build_toolbar( )
ii_child_component = lo_component ).
ENDMETHOD.
METHOD get_jump_object.
DATA lv_encode TYPE string.
DATA li_html TYPE REF TO zif_abapgit_html.
CREATE OBJECT li_html TYPE zcl_abapgit_html.
lv_encode = zcl_abapgit_html_action_utils=>jump_encode( iv_obj_type = |{ iv_obj_type }|
iv_obj_name = |{ iv_obj_name }| ).
rv_html = li_html->a(
iv_txt = |{ iv_obj_name }|
iv_act = |{ zif_abapgit_definitions=>c_action-jump }?{ lv_encode }| ).
ENDMETHOD.
METHOD render_debug_info.
DATA: ls_release TYPE zif_abapgit_environment=>ty_release_sp,
lv_gui_version TYPE string,
lv_devclass TYPE devclass,
lo_frontend_serv TYPE REF TO zif_abapgit_frontend_services.
lo_frontend_serv = zcl_abapgit_ui_factory=>get_frontend_services( ).
TRY.
lo_frontend_serv->get_gui_version( IMPORTING ev_gui_version_string = lv_gui_version ).
CATCH zcx_abapgit_exception ##NO_HANDLER.
" Continue rendering even if this fails
ENDTRY.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
IF zcl_abapgit_factory=>get_environment( )->is_merged( ) = abap_true.
ri_html->add( ''<h2>abapGit - Standalone Version</h2>'' ).
ri_html->add( ''<div>To keep abapGit up-to-date (or also to contribute) you need to'' ).
ri_html->add( |install it as a repository ({ ri_html->a(
iv_txt = ''Developer Version''
iv_act = ''https://github.com/abapGit/abapGit''
iv_typ = zif_abapgit_html=>c_action_type-url ) }).</div>| ).
ELSE.
lv_devclass = zcl_abapgit_factory=>get_tadir( )->get_object_package(
iv_object = ''CLAS''
iv_obj_name = ''ZCX_ABAPGIT_EXCEPTION'' ).
ri_html->add( ''<h2>abapGit - Developer Version</h2>'' ).
ri_html->add( |<div>abapGit is installed in package { lv_devclass }</div>| ).
ENDIF.
ri_html->add( ''<br><div>'' ).
ri_html->add_a(
iv_txt = ''Contribution guidelines for abapGit''
iv_act = |{ zif_abapgit_definitions=>c_action-url
}?url=https://github.com/abapGit/abapGit/blob/main/CONTRIBUTING.md|
iv_class = |url| ).
ri_html->add( ''</div>'' ).
ls_release = zcl_abapgit_factory=>get_environment( )->get_basis_release( ).
ri_html->add( ''<h2>Environment</h2>'' ).
ri_html->add( |<table>| ).
ri_html->add( |<tr><td>abapGit version:</td><td>{ zif_abapgit_version=>c_abap_version }</td></tr>| ).
ri_html->add( |<tr><td>XML version: </td><td>{ zif_abapgit_version=>c_xml_version }</td></tr>| ).
ri_html->add( |<tr><td>GUI version: </td><td>{ lv_gui_version }</td></tr>| ).
ri_html->add( |<tr><td>APACK version: </td><td>{
zcl_abapgit_apack_migration=>c_apack_interface_version }</td></tr>| ).
ri_html->add( |<tr><td>LCL_TIME: </td><td>{ zcl_abapgit_git_time=>get_unix( ) }</td></tr>| ).
ri_html->add( |<tr><td>SY time: </td><td>{ sy-datum } { sy-uzeit } { sy-tzone }</td></tr>| ).
ri_html->add( |<tr><td>SY release: </td><td>{ ls_release-release } SP { ls_release-sp }</td></tr>| ).
ri_html->add( |</table>| ).
ri_html->add( |<br>| ).
ENDMETHOD.
METHOD render_exit_info.
DATA lt_source TYPE string_table.
DATA ls_class_key TYPE seoclskey.
DATA lo_oo_serializer TYPE REF TO zcl_abapgit_oo_serializer.
DATA lo_class TYPE REF TO cl_oo_class.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<h2>User Exits</h2>'' ).
IF zcl_abapgit_factory=>get_environment( )->is_merged( ) = abap_true.
" Standalone version
lt_source = zcl_abapgit_factory=>get_sap_report( )->read_report( c_exit_standalone ).
IF sy-subrc = 0.
ri_html->add( |<div>User exits are active (include { get_jump_object(
iv_obj_type = ''PROG''
iv_obj_name = c_exit_standalone ) } found)</div><br>| ).
ri_html->add( render_exit_info_methods( lt_source ) ).
ELSE.
ri_html->add( |<div>No user exits implemented (include { c_exit_standalone } not found)</div><br>| ).
ENDIF.
ELSE.
" Developer version
TRY.
ls_class_key-clsname = c_exit_class.
DO.
CREATE OBJECT lo_oo_serializer.
lt_source = lo_oo_serializer->serialize_abap_clif_source( ls_class_key ).
ri_html->add( ''<div>'' ).
ri_html->add( |User exits are active (class { get_jump_object( ls_class_key-clsname ) } found)| ).
ri_html->add( ''</div><br>'' ).
ri_html->add( render_exit_info_methods(
it_source = lt_source
iv_clsname = ls_class_key-clsname ) ).
" Is there a super class of exit?
CREATE OBJECT lo_class EXPORTING clsname = ls_class_key-clsname.
ls_class_key-clsname = lo_class->get_superclass( ).
IF ls_class_key-clsname IS INITIAL.
EXIT.
ENDIF.
ri_html->add( ''<br>'' ).
ENDDO.
CATCH cx_root.
ri_html->add( |<div>No user exits implemented (class { c_exit_class } not found)</div><br>| ).
ENDTRY.
ENDIF.
ENDMETHOD.
METHOD render_exit_info_methods.
DATA:
lo_scanner TYPE REF TO cl_oo_source_scanner_class,
lx_exc TYPE REF TO cx_root,
lt_methods TYPE cl_oo_source_scanner_class=>type_method_implementations,
lv_method LIKE LINE OF lt_methods,
lt_source TYPE seop_source_string,
lv_count TYPE i,
lv_source TYPE string,
lv_rest TYPE string.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<table border="1px"><thead><tr>'' ).
ri_html->add( ''<td>Exit</td><td class="center">Implemented?</td>'' ).
ri_html->add( ''</tr></thead><tbody>'' ).
TRY.
lo_scanner = cl_oo_source_scanner_class=>create_class_scanner(
clif_name = iv_clsname
source = it_source ).
lo_scanner->scan( ).
lt_methods = lo_scanner->get_method_implementations( ).
LOOP AT lt_methods INTO lv_method WHERE table_line CS c_exit_interface.
lt_source = lo_scanner->get_method_impl_source( lv_method ).
DELETE lt_source INDEX 1.
DELETE lt_source INDEX lines( lt_source ).
CONCATENATE LINES OF lt_source INTO lv_source.
lv_source = to_upper( condense(
val = lv_source
del = \` \` ) ).
SPLIT lv_method AT ''~'' INTO lv_rest lv_method.
ri_html->add( |<tr><td>{ lv_method }</td><td class="center">| ).
IF lv_source IS INITIAL OR lv_source = ''RETURN.'' OR lv_source = ''EXIT.''.
ri_html->add( ''No'' ).
ELSE.
ri_html->add( ''<strong>Yes</strong>'' ).
ENDIF.
ri_html->add( |</td></tr>| ).
lv_count = lv_count + 1.
ENDLOOP.
IF lv_count = 0.
ri_html->add( |<tr><td colspan="2">No exit methods implemented</td></tr>| ).
ENDIF.
CATCH cx_root INTO lx_exc.
ri_html->add( |<tr><td colspan="2">{ lx_exc->get_text( ) }</td></tr>| ).
ENDTRY.
ri_html->add( ''</tbody></table>'' ).
ENDMETHOD.
METHOD render_scripts.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->set_title( cl_abap_typedescr=>describe_by_object_ref( me )->get_relative_name( ) ).
ri_html->add( ''debugOutput("<table><tr><td>Browser:</td><td>" + navigator.userAgent + '' &&
''"</td></tr><tr><td>Frontend time:</td><td>" + new Date() + "</td></tr></table>", "debug_info");'' ).
ENDMETHOD.
METHOD render_supported_object_types.
DATA: lv_list TYPE string,
li_html TYPE REF TO zif_abapgit_html,
lt_types TYPE zcl_abapgit_objects=>ty_types_tt,
lv_type LIKE LINE OF lt_types,
lt_obj TYPE STANDARD TABLE OF ko100 WITH DEFAULT KEY,
lv_class TYPE seoclsname,
li_object TYPE REF TO zif_abapgit_object,
ls_item TYPE zif_abapgit_definitions=>ty_item,
ls_metadata TYPE zif_abapgit_definitions=>ty_metadata,
lv_step TYPE zif_abapgit_definitions=>ty_deserialization_step,
lt_steps TYPE zif_abapgit_definitions=>ty_deserialization_step_tt.
FIELD-SYMBOLS: <ls_obj> TYPE ko100.
CALL FUNCTION ''TR_OBJECT_TABLE''
TABLES
wt_object_text = lt_obj.
lt_types = zcl_abapgit_objects=>supported_list( ).
CREATE OBJECT li_html TYPE zcl_abapgit_html.
rv_html = ''<h2>Object Types</h2>''.
rv_html = rv_html && li_html->a(
iv_txt = ''Complete list of object types supported by abapGit''
iv_act = |{ zif_abapgit_definitions=>c_action-url }?url=https://docs.abapgit.org/ref-supported.html|
iv_class = |url| ).
rv_html = rv_html && |<br><br>Supported object types in <strong>this</strong> system:<br><br>|.
rv_html = rv_html && |<table border="1px"><thead><tr>|.
rv_html = rv_html && |<td>Object</td><td>Description</td><td>Class</td><td>Version</td>|.
rv_html = rv_html && |<td>Steps</td>|.
rv_html = rv_html && |</tr></thead><tbody>|.
LOOP AT lt_types INTO lv_type.
lv_class = ''ZCL_ABAPGIT_OBJECT_'' && lv_type.
rv_html = rv_html && |<tr>|.
rv_html = rv_html && |<td>{ lv_type }</td>|.
READ TABLE lt_obj ASSIGNING <ls_obj> WITH KEY pgmid = ''R3TR'' object = lv_type.
IF sy-subrc = 0.
rv_html = rv_html && |<td>{ <ls_obj>-text }</td>|.
ELSE.
rv_html = rv_html && |<td class="warning">No description</td>|.
ENDIF.
TRY.
ls_item-obj_type = lv_type.
ls_item-obj_name = ''TEST''.
CREATE OBJECT li_object TYPE (lv_class)
EXPORTING
is_item = ls_item
iv_language = sy-langu.
rv_html = rv_html && |<td>{ get_jump_object( lv_class ) }</td>|.
CATCH cx_sy_create_object_error zcx_abapgit_exception.
TRY. " 2nd step, try looking for plugins
CREATE OBJECT li_object TYPE zcl_abapgit_objects_bridge
EXPORTING
is_item = ls_item.
CATCH cx_sy_create_object_error zcx_abapgit_exception.
rv_html = rv_html && |<td class="error" colspan="5">{ lv_class } - error instantiating class</td>|.
CONTINUE.
ENDTRY.
rv_html = rv_html && |<td>{ get_jump_object( lv_class ) } (Plug-in)</td>|.
ENDTRY.
ls_metadata = li_object->get_metadata( ).
rv_html = rv_html && |<td>{ ls_metadata-version }</td>|.
lt_steps = li_object->get_deserialize_steps( ).
CLEAR lv_list.
LOOP AT lt_steps INTO lv_step.
CASE lv_step.
WHEN zif_abapgit_object=>gc_step_id-early.
lv_step = |<i>{ lv_step } (1)</i>|.
WHEN zif_abapgit_object=>gc_step_id-ddic.
lv_step = |<strong>{ lv_step } (2)</strong>|.
WHEN zif_abapgit_object=>gc_step_id-abap.
lv_step = |{ lv_step } (3)|.
WHEN zif_abapgit_object=>gc_step_id-late.
lv_step = |<i>{ lv_step } (4)</i>|.
WHEN OTHERS.
ASSERT 1 = 2.
ENDCASE.
IF lv_list IS INITIAL.
lv_list = lv_step.
ELSE.
lv_list = lv_list && \`, \` && lv_step.
ENDIF.
ENDLOOP.
rv_html = rv_html && |<td>{ lv_list }</td>|.
rv_html = rv_html && |</tr>|.
ENDLOOP.
rv_html = rv_html && |</tbody></table>|.
rv_html = rv_html && |<br>|.
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
DATA:
lv_path TYPE string,
lv_filename TYPE string,
li_fe_serv TYPE REF TO zif_abapgit_frontend_services.
CASE ii_event->mv_action.
WHEN c_action-save.
CONCATENATE ''abapGit_Debug_Info_'' sy-datlo ''_'' sy-timlo ''.html'' INTO lv_filename.
li_fe_serv = zcl_abapgit_ui_factory=>get_frontend_services( ).
lv_path = li_fe_serv->show_file_save_dialog(
iv_title = ''abapGit - Debug Info''
iv_extension = ''html''
iv_default_filename = lv_filename ).
li_fe_serv->file_download(
iv_path = lv_path
iv_xstr = zcl_abapgit_convert=>string_to_xstring_utf8( mv_html ) ).
MESSAGE ''abapGit Debug Info successfully saved'' TYPE ''S''.
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN OTHERS.
ASSERT 1 = 1.
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
register_handlers( ).
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<div id="debug_info" class="debug_container">'' ).
ri_html->add( render_debug_info( ) ).
ri_html->add( ''</div>'' ).
ri_html->add( ''<div id="exit_info" class="debug_container">'' ).
ri_html->add( render_exit_info( ) ).
ri_html->add( ''</div>'' ).
ri_html->add( ''<div id="supported_objects" class="debug_container">'' ).
ri_html->add( render_supported_object_types( ) ).
ri_html->add( ''</div>'' ).
mv_html = ''<!DOCTYPE html><html lang="en"><title>abapGit Debug Info</title></head>''.
mv_html = |<body>{ ri_html->render( ) }</body></html>|.
register_deferred_script( render_scripts( ) ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_DIFF ', 'CLASS zcl_abapgit_gui_page_diff DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_page_diff_base
CREATE PRIVATE.
PUBLIC SECTION.
CLASS-METHODS create
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
!is_file TYPE zif_abapgit_git_definitions=>ty_file OPTIONAL
!is_object TYPE zif_abapgit_definitions=>ty_item OPTIONAL
!it_files TYPE zif_abapgit_definitions=>ty_stage_tt OPTIONAL
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_gui_page_diff IMPLEMENTATION.
METHOD create.
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_diff.
CREATE OBJECT lo_component
EXPORTING
iv_key = iv_key
is_file = is_file
is_object = is_object
it_files = it_files.
ri_page = zcl_abapgit_gui_page_hoc=>create(
iv_page_title = ''Diff''
iv_page_layout = get_page_layout( )
ii_page_menu_provider = lo_component
ii_child_component = lo_component ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_DIFF_BASE ', 'CLASS zcl_abapgit_gui_page_diff_base DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_component
CREATE PUBLIC.
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_event_handler.
INTERFACES zif_abapgit_gui_hotkeys.
INTERFACES zif_abapgit_gui_menu_provider.
INTERFACES zif_abapgit_gui_renderable.
TYPES:
BEGIN OF ty_file_diff,
path TYPE string,
filename TYPE string,
obj_type TYPE string,
obj_name TYPE string,
lstate TYPE c LENGTH 1,
rstate TYPE c LENGTH 1,
fstate TYPE c LENGTH 1, " FILE state - Abstraction for shorter ifs
o_diff TYPE REF TO zcl_abapgit_diff,
changed_by TYPE syuname,
type TYPE string,
END OF ty_file_diff.
TYPES:
ty_file_diffs TYPE STANDARD TABLE OF ty_file_diff
WITH NON-UNIQUE DEFAULT KEY
WITH NON-UNIQUE SORTED KEY secondary
COMPONENTS path filename.
CONSTANTS:
BEGIN OF c_fstate,
local TYPE c LENGTH 1 VALUE ''L'',
remote TYPE c LENGTH 1 VALUE ''R'',
both TYPE c LENGTH 1 VALUE ''B'',
END OF c_fstate.
METHODS constructor
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
!is_file TYPE zif_abapgit_git_definitions=>ty_file OPTIONAL
!is_object TYPE zif_abapgit_definitions=>ty_item OPTIONAL
!it_files TYPE zif_abapgit_definitions=>ty_stage_tt OPTIONAL
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
CONSTANTS:
BEGIN OF c_actions,
toggle_unified TYPE string VALUE ''toggle_unified'',
toggle_hide_diffs TYPE string VALUE ''toggle_hide_diffs'',
toggle_hidden_chars TYPE string VALUE ''toggle_hidden_chars'',
toggle_ignore_indent TYPE string VALUE ''toggle_ignore_indent'',
toggle_ignore_comments TYPE string VALUE ''toggle_ignore_comments'',
toggle_ignore_case TYPE string VALUE ''toggle_ignore_case'',
refresh_prefix TYPE string VALUE ''refresh'',
refresh_all TYPE string VALUE ''refresh_all'',
refresh_local TYPE string VALUE ''refresh_local'',
refresh_local_object TYPE string VALUE ''refresh_local_object'',
END OF c_actions ,
BEGIN OF c_action_texts,
refresh_all TYPE string VALUE \`Refresh All\`,
refresh_local TYPE string VALUE \`Refresh Local\`,
END OF c_action_texts,
BEGIN OF c_action_titles,
refresh_local TYPE string VALUE \`Refresh all local objects, without refreshing the remote\`,
refresh_all TYPE string VALUE \`Complete refresh of all objects, local and remote\`,
END OF c_action_titles.
DATA mv_unified TYPE abap_bool VALUE abap_true ##NO_TEXT.
DATA mo_repo TYPE REF TO zcl_abapgit_repo .
DATA mt_diff_files TYPE ty_file_diffs .
CLASS-METHODS get_page_layout
RETURNING
VALUE(rv_page_layout) TYPE string.
METHODS get_normalized_fname_with_path
IMPORTING
!is_diff TYPE ty_file_diff
RETURNING
VALUE(rv_filename) TYPE string .
METHODS normalize_path
IMPORTING
!iv_path TYPE string
RETURNING
VALUE(rv_normalized) TYPE string .
METHODS normalize_filename
IMPORTING
!iv_filename TYPE string
RETURNING
VALUE(rv_normalized) TYPE string .
METHODS add_menu_end
IMPORTING
!io_menu TYPE REF TO zcl_abapgit_html_toolbar .
METHODS calculate_diff
IMPORTING
!is_file TYPE zif_abapgit_git_definitions=>ty_file OPTIONAL
!is_object TYPE zif_abapgit_definitions=>ty_item OPTIONAL
!it_files TYPE zif_abapgit_definitions=>ty_stage_tt OPTIONAL
RAISING
zcx_abapgit_exception .
METHODS add_menu_begin
IMPORTING
!io_menu TYPE REF TO zcl_abapgit_html_toolbar .
METHODS render_table_head_non_unified
IMPORTING
!ii_html TYPE REF TO zif_abapgit_html
!is_diff TYPE ty_file_diff .
METHODS render_beacon_begin_of_row
IMPORTING
!ii_html TYPE REF TO zif_abapgit_html
!is_diff TYPE ty_file_diff .
METHODS render_diff_head_after_state
IMPORTING
!ii_html TYPE REF TO zif_abapgit_html
!is_diff TYPE ty_file_diff .
METHODS insert_nav
RETURNING
VALUE(rv_insert_nav) TYPE abap_bool .
METHODS render_line_split_row
IMPORTING
!ii_html TYPE REF TO zif_abapgit_html
!iv_filename TYPE string
!is_diff_line TYPE zif_abapgit_definitions=>ty_diff
!iv_index TYPE sy-tabix
!iv_fstate TYPE char1
!iv_new TYPE string
!iv_old TYPE string
RAISING
zcx_abapgit_exception .
METHODS refresh
IMPORTING
iv_action TYPE clike
RAISING
zcx_abapgit_exception .
METHODS refresh_full
RAISING
zcx_abapgit_exception .
METHODS refresh_local
RAISING
zcx_abapgit_exception .
METHODS refresh_local_object
IMPORTING
iv_action TYPE clike
RAISING
zcx_abapgit_exception .
METHODS is_refresh
IMPORTING
iv_action TYPE string
RETURNING
VALUE(rv_is_refrseh) TYPE abap_bool.
METHODS modify_files_before_diff_calc
IMPORTING
it_diff_files_old TYPE ty_file_diffs
RETURNING
VALUE(rt_files) TYPE zif_abapgit_definitions=>ty_stage_tt.
METHODS add_view_sub_menu
IMPORTING
io_menu TYPE REF TO zcl_abapgit_html_toolbar .
PRIVATE SECTION.
TYPES:
BEGIN OF ty_view,
hide_diffs TYPE abap_bool,
hidden_chars TYPE abap_bool,
ignore_indent TYPE abap_bool,
ignore_comments TYPE abap_bool,
ignore_case TYPE abap_bool,
END OF ty_view.
DATA mt_delayed_lines TYPE zif_abapgit_definitions=>ty_diffs_tt .
DATA mv_repo_key TYPE zif_abapgit_persistence=>ty_repo-key .
DATA mv_seed TYPE string . " Unique page id to bind JS sessionStorage
DATA ms_view TYPE ty_view.
METHODS render_diff
IMPORTING
!is_diff TYPE ty_file_diff
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
METHODS render_diff_head
IMPORTING
!is_diff TYPE ty_file_diff
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
METHODS render_table_head
IMPORTING
!is_diff TYPE ty_file_diff
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
METHODS render_beacon
IMPORTING
!is_diff_line TYPE zif_abapgit_definitions=>ty_diff
!is_diff TYPE ty_file_diff
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html .
METHODS render_line_no_diffs
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
METHODS render_line_split
IMPORTING
!is_diff_line TYPE zif_abapgit_definitions=>ty_diff
!iv_filename TYPE string
!iv_fstate TYPE char1
!iv_index TYPE sy-tabix
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
METHODS render_line_unified
IMPORTING
!is_diff_line TYPE zif_abapgit_definitions=>ty_diff OPTIONAL
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html .
METHODS append_diff
IMPORTING
!it_remote TYPE zif_abapgit_git_definitions=>ty_files_tt
!it_local TYPE zif_abapgit_definitions=>ty_files_item_tt
!is_status TYPE zif_abapgit_definitions=>ty_result
RAISING
zcx_abapgit_exception .
METHODS is_binary
IMPORTING
!iv_d1 TYPE xstring
!iv_d2 TYPE xstring
RETURNING
VALUE(rv_yes) TYPE abap_bool .
METHODS add_jump_sub_menu
IMPORTING
!io_menu TYPE REF TO zcl_abapgit_html_toolbar .
METHODS add_filter_sub_menu
IMPORTING
!io_menu TYPE REF TO zcl_abapgit_html_toolbar .
METHODS render_lines
IMPORTING
!is_diff TYPE ty_file_diff
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
METHODS render_table_head_unified
IMPORTING
!ii_html TYPE REF TO zif_abapgit_html .
METHODS render_scripts
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
METHODS is_file_requested
IMPORTING
it_files TYPE zif_abapgit_definitions=>ty_stage_tt
is_status TYPE zif_abapgit_definitions=>ty_result
RETURNING
VALUE(rv_is_file_requested) TYPE abap_bool.
METHODS has_diffs
IMPORTING
!it_diffs TYPE zif_abapgit_definitions=>ty_diffs_tt
RETURNING
VALUE(rv_has_diffs) TYPE abap_bool.
ENDCLASS.
CLASS zcl_abapgit_gui_page_diff_base IMPLEMENTATION.
METHOD add_filter_sub_menu.
DATA:
lo_sub_filter TYPE REF TO zcl_abapgit_html_toolbar,
lv_user TYPE string,
lt_extensions TYPE SORTED TABLE OF string WITH UNIQUE DEFAULT KEY,
lt_obj_types TYPE SORTED TABLE OF string WITH UNIQUE DEFAULT KEY,
lt_users TYPE SORTED TABLE OF string WITH UNIQUE DEFAULT KEY.
FIELD-SYMBOLS: <ls_diff> LIKE LINE OF mt_diff_files,
<lv_i> TYPE string.
" Get unique filter values
LOOP AT mt_diff_files ASSIGNING <ls_diff>.
lv_user = <ls_diff>-changed_by.
INSERT <ls_diff>-type INTO TABLE lt_extensions.
INSERT <ls_diff>-obj_type INTO TABLE lt_obj_types.
INSERT lv_user INTO TABLE lt_users.
ENDLOOP.
IF lines( lt_extensions ) > 1 OR lines( lt_obj_types ) > 1 OR lines( lt_users ) > 1.
CREATE OBJECT lo_sub_filter EXPORTING iv_id = ''diff-filter''.
IF lines( lt_users ) > 1.
lo_sub_filter->add( iv_txt = ''Only my changes''
iv_typ = zif_abapgit_html=>c_action_type-onclick
iv_aux = |{ sy-uname }|
iv_chk = abap_false ).
ENDIF.
" File extensions
IF lines( lt_extensions ) > 1.
lo_sub_filter->add( iv_txt = ''Extension''
iv_typ = zif_abapgit_html=>c_action_type-separator ).
LOOP AT lt_extensions ASSIGNING <lv_i>.
lo_sub_filter->add( iv_txt = <lv_i>
iv_typ = zif_abapgit_html=>c_action_type-onclick
iv_aux = ''extension''
iv_chk = abap_true ).
ENDLOOP.
ENDIF.
" Object types
IF lines( lt_obj_types ) > 1.
lo_sub_filter->add( iv_txt = ''Object Type''
iv_typ = zif_abapgit_html=>c_action_type-separator ).
LOOP AT lt_obj_types ASSIGNING <lv_i>.
lo_sub_filter->add( iv_txt = <lv_i>
iv_typ = zif_abapgit_html=>c_action_type-onclick
iv_aux = ''object-type''
iv_chk = abap_true ).
ENDLOOP.
ENDIF.
" Changed by
IF lines( lt_users ) > 1.
lo_sub_filter->add( iv_txt = ''Changed By''
iv_typ = zif_abapgit_html=>c_action_type-separator ).
LOOP AT lt_users ASSIGNING <lv_i>.
lo_sub_filter->add( iv_txt = <lv_i>
iv_typ = zif_abapgit_html=>c_action_type-onclick
iv_aux = ''changed-by''
iv_chk = abap_true ).
ENDLOOP.
ENDIF.
io_menu->add( iv_txt = ''Filter''
io_sub = lo_sub_filter ).
ENDIF.
ENDMETHOD.
METHOD add_jump_sub_menu.
DATA: lo_sub_jump TYPE REF TO zcl_abapgit_html_toolbar,
lv_jump_target TYPE string.
FIELD-SYMBOLS: <ls_diff> LIKE LINE OF mt_diff_files.
CREATE OBJECT lo_sub_jump EXPORTING iv_id = ''jump''.
LOOP AT mt_diff_files ASSIGNING <ls_diff>.
lv_jump_target = <ls_diff>-path && <ls_diff>-filename.
lo_sub_jump->add(
iv_id = |li_jump_{ sy-tabix }|
iv_txt = lv_jump_target
iv_typ = zif_abapgit_html=>c_action_type-onclick ).
ENDLOOP.
io_menu->add( iv_txt = ''Jump''
io_sub = lo_sub_jump ).
ENDMETHOD.
METHOD add_menu_begin.
io_menu->add(
iv_txt = c_action_texts-refresh_local
iv_typ = zif_abapgit_html=>c_action_type-sapevent
iv_act = c_actions-refresh_local
iv_id = c_actions-refresh_local
iv_title = c_action_titles-refresh_local ).
io_menu->add(
iv_txt = c_action_texts-refresh_all
iv_typ = zif_abapgit_html=>c_action_type-sapevent
iv_act = c_actions-refresh_all
iv_id = c_actions-refresh_all
iv_title = c_action_titles-refresh_all ).
ENDMETHOD.
METHOD add_menu_end.
io_menu->add( iv_txt = ''Split/Unified''
iv_act = c_actions-toggle_unified ).
add_view_sub_menu( io_menu ).
ENDMETHOD.
METHOD add_view_sub_menu.
DATA lo_sub_view TYPE REF TO zcl_abapgit_html_toolbar.
DATA lv_txt TYPE string.
CREATE OBJECT lo_sub_view EXPORTING iv_id = ''diff-view''.
IF ms_view-hide_diffs = abap_true.
lv_txt = ''Expand All Diffs''.
ELSE.
lv_txt = ''Collapse All Diffs''.
ENDIF.
lo_sub_view->add( iv_txt = lv_txt
iv_act = c_actions-toggle_hide_diffs ).
lo_sub_view->add( iv_txt = ''Show Hidden Characters''
iv_act = c_actions-toggle_hidden_chars
iv_chk = ms_view-hidden_chars ).
lo_sub_view->add( iv_txt = ''Ignore Whitespace''
iv_act = c_actions-toggle_ignore_indent
iv_chk = ms_view-ignore_indent ).
lo_sub_view->add( iv_txt = ''Ignore Comments''
iv_act = c_actions-toggle_ignore_comments
iv_chk = ms_view-ignore_comments ).
lo_sub_view->add( iv_txt = ''Ignore Pretty-Print Case''
iv_act = c_actions-toggle_ignore_case
iv_chk = ms_view-ignore_case ).
io_menu->add( iv_txt = ''View''
io_sub = lo_sub_view ).
ENDMETHOD.
METHOD append_diff.
DATA:
lv_offs TYPE i,
ls_r_dummy LIKE LINE OF it_remote ##NEEDED,
ls_l_dummy LIKE LINE OF it_local ##NEEDED.
FIELD-SYMBOLS: <ls_remote> LIKE LINE OF it_remote,
<ls_local> LIKE LINE OF it_local,
<ls_diff> LIKE LINE OF mt_diff_files.
READ TABLE it_remote ASSIGNING <ls_remote>
WITH KEY file_path
COMPONENTS path = is_status-path
filename = is_status-filename.
IF sy-subrc <> 0.
ASSIGN ls_r_dummy TO <ls_remote>.
ENDIF.
READ TABLE it_local ASSIGNING <ls_local>
WITH KEY file-filename = is_status-filename
file-path = is_status-path.
IF sy-subrc <> 0.
ASSIGN ls_l_dummy TO <ls_local>.
ENDIF.
IF <ls_local> IS INITIAL AND <ls_remote> IS INITIAL.
zcx_abapgit_exception=>raise( |DIFF: file not found { is_status-filename }| ).
ENDIF.
APPEND INITIAL LINE TO mt_diff_files ASSIGNING <ls_diff>.
<ls_diff>-path = is_status-path.
<ls_diff>-filename = is_status-filename.
<ls_diff>-obj_type = is_status-obj_type.
<ls_diff>-obj_name = is_status-obj_name.
<ls_diff>-lstate = is_status-lstate.
<ls_diff>-rstate = is_status-rstate.
IF <ls_diff>-lstate IS NOT INITIAL AND <ls_diff>-rstate IS NOT INITIAL.
<ls_diff>-fstate = c_fstate-both.
ELSEIF <ls_diff>-lstate IS NOT INITIAL.
<ls_diff>-fstate = c_fstate-local.
ELSE. "rstate IS NOT INITIAL, lstate = empty.
<ls_diff>-fstate = c_fstate-remote.
ENDIF.
" Changed by
IF <ls_local>-item-obj_type IS NOT INITIAL.
<ls_diff>-changed_by = zcl_abapgit_objects=>changed_by(
is_item = <ls_local>-item
iv_filename = is_status-filename ).
ENDIF.
IF <ls_diff>-changed_by IS INITIAL.
<ls_diff>-changed_by = zcl_abapgit_objects_super=>c_user_unknown.
ENDIF.
" Extension
IF <ls_local>-file-filename IS NOT INITIAL.
<ls_diff>-type = reverse( <ls_local>-file-filename ).
ELSE.
<ls_diff>-type = reverse( <ls_remote>-filename ).
ENDIF.
FIND FIRST OCCURRENCE OF ''.'' IN <ls_diff>-type MATCH OFFSET lv_offs.
<ls_diff>-type = reverse( substring( val = <ls_diff>-type
len = lv_offs ) ).
IF <ls_diff>-type <> ''xml'' AND <ls_diff>-type <> ''abap''.
<ls_diff>-type = ''other''.
ENDIF.
IF <ls_diff>-type = ''other''
AND is_binary( iv_d1 = <ls_remote>-data
iv_d2 = <ls_local>-file-data ) = abap_true.
<ls_diff>-type = ''binary''.
ENDIF.
" Diff data
IF <ls_diff>-type <> ''binary''.
IF <ls_diff>-fstate = c_fstate-remote. " Remote file leading changes
CREATE OBJECT <ls_diff>-o_diff
EXPORTING
iv_new = <ls_remote>-data
iv_old = <ls_local>-file-data
iv_ignore_indentation = ms_view-ignore_indent
iv_ignore_comments = ms_view-ignore_comments
iv_ignore_case = ms_view-ignore_case.
ELSE. " Local leading changes or both were modified
CREATE OBJECT <ls_diff>-o_diff
EXPORTING
iv_new = <ls_local>-file-data
iv_old = <ls_remote>-data
iv_ignore_indentation = ms_view-ignore_indent
iv_ignore_comments = ms_view-ignore_comments
iv_ignore_case = ms_view-ignore_case.
ENDIF.
ENDIF.
ENDMETHOD.
METHOD calculate_diff.
DATA: lt_remote TYPE zif_abapgit_git_definitions=>ty_files_tt,
lt_local TYPE zif_abapgit_definitions=>ty_files_item_tt,
lt_status TYPE zif_abapgit_definitions=>ty_results_tt.
DATA li_exit TYPE REF TO zif_abapgit_exit.
FIELD-SYMBOLS: <ls_status> LIKE LINE OF lt_status.
CLEAR: mt_diff_files.
lt_remote = mo_repo->get_files_remote( ).
lt_local = mo_repo->get_files_local( ).
lt_status = zcl_abapgit_repo_status=>calculate( mo_repo ).
li_exit = zcl_abapgit_exit=>get_instance( ).
li_exit->pre_calculate_repo_status(
EXPORTING
is_repo_meta = mo_repo->ms_data
CHANGING
ct_local = lt_local
ct_remote = lt_remote ).
IF is_file IS NOT INITIAL. " Diff for one file
READ TABLE lt_status ASSIGNING <ls_status>
WITH KEY path = is_file-path filename = is_file-filename.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |File { is_file-path }{ is_file-filename } not found| ).
ENDIF.
append_diff( it_remote = lt_remote
it_local = lt_local
is_status = <ls_status> ).
ELSEIF is_object IS NOT INITIAL. " Diff for whole object
LOOP AT lt_status ASSIGNING <ls_status>
USING KEY sec_key
WHERE obj_type = is_object-obj_type
AND obj_name = is_object-obj_name
AND match IS INITIAL.
append_diff( it_remote = lt_remote
it_local = lt_local
is_status = <ls_status> ).
ENDLOOP.
ELSE. " Diff for the whole repo
SORT lt_status BY
path ASCENDING
filename ASCENDING.
LOOP AT lt_status ASSIGNING <ls_status> WHERE match IS INITIAL.
IF is_file_requested( it_files = it_files
is_status = <ls_status> ) = abap_true.
append_diff( it_remote = lt_remote
it_local = lt_local
is_status = <ls_status> ).
ENDIF.
ENDLOOP.
ENDIF.
ENDMETHOD.
METHOD constructor.
DATA: lv_ts TYPE timestamp.
super->constructor( ).
mv_unified = zcl_abapgit_persistence_user=>get_instance( )->get_diff_unified( ).
mv_repo_key = iv_key.
mo_repo ?= zcl_abapgit_repo_srv=>get_instance( )->get( iv_key ).
GET TIME STAMP FIELD lv_ts.
mv_seed = |diff{ lv_ts }|. " Generate based on time
ASSERT is_file IS INITIAL OR is_object IS INITIAL. " just one passed
calculate_diff(
is_file = is_file
is_object = is_object
it_files = it_files ).
IF lines( mt_diff_files ) = 0.
zcx_abapgit_exception=>raise(
''There are no differences to show. The local state completely matches the remote repository.'' ).
ENDIF.
ENDMETHOD.
METHOD get_normalized_fname_with_path.
rv_filename = normalize_path( is_diff-path )
&& \`_\`
&& normalize_filename( is_diff-filename ).
ENDMETHOD.
METHOD get_page_layout.
TRY.
IF zcl_abapgit_persistence_user=>get_instance( )->get_diff_unified( ) = abap_true.
rv_page_layout = zcl_abapgit_gui_page=>c_page_layout-centered.
ELSE.
rv_page_layout = zcl_abapgit_gui_page=>c_page_layout-full_width.
ENDIF.
CATCH zcx_abapgit_exception.
rv_page_layout = zcl_abapgit_gui_page=>c_page_layout-full_width.
ENDTRY.
ENDMETHOD.
METHOD has_diffs.
LOOP AT it_diffs TRANSPORTING NO FIELDS WHERE result IS NOT INITIAL.
rv_has_diffs = abap_true.
EXIT.
ENDLOOP.
ENDMETHOD.
METHOD insert_nav.
ENDMETHOD.
METHOD is_binary.
FIELD-SYMBOLS <lv_data> LIKE iv_d1.
IF iv_d1 IS NOT INITIAL. " One of them might be new and so empty
ASSIGN iv_d1 TO <lv_data>.
ELSE.
ASSIGN iv_d2 TO <lv_data>.
ENDIF.
rv_yes = zcl_abapgit_utils=>is_binary( <lv_data> ).
ENDMETHOD.
METHOD is_file_requested.
IF lines( it_files ) = 0.
rv_is_file_requested = abap_true.
RETURN.
ENDIF.
READ TABLE it_files WITH KEY file-path = is_status-path
file-filename = is_status-filename
TRANSPORTING NO FIELDS.
rv_is_file_requested = boolc( sy-subrc = 0 ).
ENDMETHOD.
METHOD is_refresh.
FIND FIRST OCCURRENCE OF REGEX |^{ c_actions-refresh_prefix }| IN iv_action.
rv_is_refrseh = boolc( sy-subrc = 0 ).
ENDMETHOD.
METHOD modify_files_before_diff_calc.
DATA ls_file LIKE LINE OF rt_files.
FIELD-SYMBOLS <ls_diff_file_old> TYPE ty_file_diff.
" We need to supply files again in calculate_diff. Because
" we only want to refresh the visible files. Otherwise all
" diff files would appear.
" Which is not wanted when we previously only selected particular files.
LOOP AT it_diff_files_old ASSIGNING <ls_diff_file_old>.
CLEAR ls_file.
MOVE-CORRESPONDING <ls_diff_file_old> TO ls_file-file.
INSERT ls_file INTO TABLE rt_files.
ENDLOOP.
ENDMETHOD.
METHOD normalize_filename.
rv_normalized = replace( val = iv_filename
sub = ''.''
occ = 0
with = ''_'' ).
ENDMETHOD.
METHOD normalize_path.
rv_normalized = replace( val = iv_path
sub = ''/''
occ = 0
with = ''_'' ).
ENDMETHOD.
METHOD refresh.
DATA:
lt_diff_files_old TYPE ty_file_diffs,
lt_files TYPE zif_abapgit_definitions=>ty_stage_tt.
lt_diff_files_old = mt_diff_files.
CASE iv_action.
WHEN c_actions-refresh_all.
refresh_full( ).
WHEN c_actions-refresh_local.
refresh_local( ).
WHEN OTHERS.
refresh_local_object( iv_action ).
ENDCASE.
lt_files = modify_files_before_diff_calc( lt_diff_files_old ).
calculate_diff( it_files = lt_files ).
ENDMETHOD.
METHOD refresh_full.
mo_repo->refresh( abap_true ).
ENDMETHOD.
METHOD refresh_local.
mo_repo->refresh_local_objects( ).
ENDMETHOD.
METHOD refresh_local_object.
DATA:
lv_regex TYPE string,
lv_obj_type TYPE tadir-object,
lv_obj_name TYPE tadir-obj_name.
lv_regex = c_actions-refresh_local_object && \`_(\\w{4})_(.*)\`.
FIND FIRST OCCURRENCE OF REGEX lv_regex
IN iv_action
SUBMATCHES lv_obj_type lv_obj_name.
IF sy-subrc = 0.
mo_repo->refresh_local_object(
iv_obj_type = to_upper( lv_obj_type )
iv_obj_name = to_upper( lv_obj_name ) ).
ELSE.
zcx_abapgit_exception=>raise( |Invalid refresh action { iv_action }| ).
ENDIF.
ENDMETHOD.
METHOD render_beacon.
DATA: lv_beacon TYPE string,
lt_beacons TYPE zif_abapgit_definitions=>ty_string_tt.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
IF is_diff_line-beacon > 0.
lt_beacons = is_diff-o_diff->get_beacons( ).
READ TABLE lt_beacons INTO lv_beacon INDEX is_diff_line-beacon.
ELSE.
lv_beacon = ''---''.
ENDIF.
ri_html->add( ''<thead class="nav_line">'' ).
ri_html->add( ''<tr>'' ).
render_beacon_begin_of_row(
ii_html = ri_html
is_diff = is_diff ).
IF mv_unified = abap_true.
ri_html->add( ''<th class="num"></th>'' ).
ri_html->add( ''<th class="mark"></th>'' ).
ri_html->add( |<th>@@ { is_diff_line-new_num } @@ { lv_beacon }</th>| ).
ELSE.
ri_html->add( |<th colspan="6">@@ { is_diff_line-new_num } @@ { lv_beacon }</th>| ).
ENDIF.
ri_html->add( ''</tr>'' ).
ri_html->add( ''</thead>'' ).
ENDMETHOD.
METHOD render_beacon_begin_of_row.
ii_html->add( ''<th class="num"></th>'' ).
ENDMETHOD.
METHOD render_diff.
DATA lv_display TYPE string.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( |<div class="diff" data-extension="{ is_diff-type
}" data-object-type="{ is_diff-obj_type
}" data-changed-by="{ is_diff-changed_by
}" data-file="{ is_diff-path && is_diff-filename }">| ).
ri_html->add( render_diff_head( is_diff ) ).
" Content
IF ms_view-hide_diffs = abap_true.
lv_display = '' nodisplay''.
ENDIF.
IF is_diff-type <> ''binary''.
ri_html->add( |<div class="diff_content{ lv_display }">| ).
ri_html->add( |<table class="diff_tab syntax-hl" id="{ is_diff-filename }">| ).
ri_html->add( render_table_head( is_diff ) ).
ri_html->add( render_lines( is_diff ) ).
ri_html->add( ''</table>'' ).
ELSE.
ri_html->add( ''<div class="diff_content paddings center grey">'' ).
ri_html->add( ''The content seems to be binary.'' ).
ri_html->add( ''Cannot display as diff.'' ).
ENDIF.
ri_html->add( ''</div>'' ).
ri_html->add( ''</div>'' ).
ENDMETHOD.
METHOD render_diff_head.
DATA: ls_stats TYPE zif_abapgit_definitions=>ty_count,
lv_icon TYPE string,
lv_jump TYPE string,
lv_link TYPE string.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<div class="diff_head">'' ).
IF ms_view-hide_diffs = abap_true.
lv_icon = ''chevron-right''.
ELSE.
lv_icon = ''chevron-down''.
ENDIF.
ri_html->add_icon(
iv_name = lv_icon
iv_hint = ''Collapse/Expand''
iv_class = ''cursor-pointer''
iv_onclick = ''onDiffCollapse(event)'' ).
IF is_diff-type <> ''binary''.
ls_stats = is_diff-o_diff->stats( ).
IF is_diff-fstate = c_fstate-both. " Merge stats into ''update'' if both were changed
ls_stats-update = ls_stats-update + ls_stats-insert + ls_stats-delete.
CLEAR: ls_stats-insert, ls_stats-delete.
ENDIF.
ri_html->add( |<span class="diff_banner diff_ins">+ { ls_stats-insert }</span>| ).
ri_html->add( |<span class="diff_banner diff_del">- { ls_stats-delete }</span>| ).
ri_html->add( |<span class="diff_banner diff_upd">~ { ls_stats-update }</span>| ).
ENDIF.
" no links for nonexistent or deleted objects
IF NOT ( is_diff-lstate = zif_abapgit_definitions=>c_state-unchanged AND
is_diff-rstate = zif_abapgit_definitions=>c_state-added ) AND
NOT is_diff-lstate = zif_abapgit_definitions=>c_state-deleted.
lv_jump = zcl_abapgit_html_action_utils=>jump_encode(
iv_obj_type = |{ is_diff-obj_type }|
iv_obj_name = |{ is_diff-obj_name }|
iv_filename = is_diff-filename ).
lv_link = ri_html->a(
iv_txt = |{ is_diff-path }{ is_diff-filename }|
iv_act = |{ zif_abapgit_definitions=>c_action-jump }?{ lv_jump }| ).
ENDIF.
IF lv_link IS NOT INITIAL.
ri_html->add( |<span class="diff_name">{ lv_link }</span>| ).
ELSE.
ri_html->add( |<span class="diff_name">{ is_diff-path }{ is_diff-filename }</span>| ).
ENDIF.
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_item_state(
iv_lstate = is_diff-lstate
iv_rstate = is_diff-rstate ) ).
render_diff_head_after_state(
ii_html = ri_html
is_diff = is_diff ).
ri_html->add( ''<span class="diff_changed_by">Last Changed by: '' ).
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_user_name( is_diff-changed_by ) ).
ri_html->add( ''</span>'' ).
ri_html->add( ''</div>'' ).
ENDMETHOD.
METHOD render_diff_head_after_state.
IF is_diff-fstate = c_fstate-both AND mv_unified = abap_true.
ii_html->add( ''<span class="attention pad-sides">Attention: Unified mode''
&& '' highlighting for MM assumes local file is newer ! </span>'' ).
ENDIF.
IF is_diff-obj_type IS NOT INITIAL AND is_diff-obj_name IS NOT INITIAL.
ii_html->add( ''<span class="repo_name">'' ).
ii_html->add_a( iv_txt = ii_html->icon( iv_name = ''redo-alt-solid''
iv_class = ''pad-sides''
iv_hint = ''Local refresh of this object'' )
iv_act = |{ c_actions-refresh_local_object }_{ is_diff-obj_type }_{ is_diff-obj_name }|
iv_class = |url| ).
ii_html->add( ''</span>'' ).
ENDIF.
ENDMETHOD.
METHOD render_lines.
DATA: lo_highlighter TYPE REF TO zcl_abapgit_syntax_highlighter,
lt_diffs TYPE zif_abapgit_definitions=>ty_diffs_tt,
lv_insert_nav TYPE abap_bool,
lv_tabix TYPE syst-tabix.
FIELD-SYMBOLS <ls_diff> LIKE LINE OF lt_diffs.
FIELD-SYMBOLS <ls_diff_line> LIKE LINE OF lt_diffs.
lo_highlighter = zcl_abapgit_syntax_factory=>create( iv_filename = is_diff-filename
iv_hidden_chars = ms_view-hidden_chars ).
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
lt_diffs = is_diff-o_diff->get( ).
IF has_diffs( lt_diffs ) = abap_false.
ri_html->add( render_line_no_diffs( ) ).
RETURN.
ENDIF.
lv_insert_nav = insert_nav( ).
LOOP AT lt_diffs ASSIGNING <ls_diff>.
lv_tabix = sy-tabix.
IF <ls_diff>-short = abap_false.
lv_insert_nav = abap_true.
CONTINUE.
ENDIF.
IF lv_insert_nav = abap_true. " Insert separator line with navigation
" Get line where diff really starts
READ TABLE lt_diffs ASSIGNING <ls_diff_line> INDEX lv_tabix + 8.
IF sy-subrc <> 0.
" Occurs only for small files/diffs with less than 8 lines.
" Therefore let''s use the first line as beacon
ASSIGN <ls_diff> TO <ls_diff_line>.
ASSERT <ls_diff_line> IS ASSIGNED.
ENDIF.
ri_html->add( render_beacon( is_diff_line = <ls_diff_line>
is_diff = is_diff ) ).
lv_insert_nav = abap_false.
ENDIF.
IF lo_highlighter IS BOUND.
<ls_diff>-new = lo_highlighter->process_line( <ls_diff>-new ).
<ls_diff>-old = lo_highlighter->process_line( <ls_diff>-old ).
ELSE.
<ls_diff>-new = escape( val = <ls_diff>-new
format = cl_abap_format=>e_html_attr ).
<ls_diff>-old = escape( val = <ls_diff>-old
format = cl_abap_format=>e_html_attr ).
ENDIF.
CONDENSE <ls_diff>-new_num. "get rid of leading spaces
CONDENSE <ls_diff>-old_num.
IF mv_unified = abap_true.
ri_html->add( render_line_unified( is_diff_line = <ls_diff> ) ).
ELSE.
ri_html->add( render_line_split( is_diff_line = <ls_diff>
iv_filename = get_normalized_fname_with_path( is_diff )
iv_fstate = is_diff-fstate
iv_index = lv_tabix ) ).
ENDIF.
ENDLOOP.
IF mv_unified = abap_true.
ri_html->add( render_line_unified( ) ). " Release delayed lines
ENDIF.
ENDMETHOD.
METHOD render_line_no_diffs.
DATA ls_diff_line TYPE zif_abapgit_definitions=>ty_diff.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
IF mv_unified = abap_true.
ls_diff_line-old = ''No diffs found''.
ri_html->add( render_line_unified( is_diff_line = ls_diff_line ) ).
ELSE.
ls_diff_line-new = ''No diffs found''.
ri_html->add( render_line_split( is_diff_line = ls_diff_line
iv_filename = ''''
iv_fstate = ''''
iv_index = 1 ) ).
ENDIF.
ENDMETHOD.
METHOD render_line_split.
DATA: lv_new TYPE string,
lv_old TYPE string,
lv_mark TYPE string,
lv_bg TYPE string.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
" Note: CSS classes "new" and "old" are used to enable column-based copy to clipboard
" New line
lv_mark = \` \`.
IF is_diff_line-result IS NOT INITIAL.
IF iv_fstate = c_fstate-both OR is_diff_line-result = zif_abapgit_definitions=>c_diff-update.
lv_bg = '' diff_upd''.
lv_mark = \`~\`.
ELSEIF is_diff_line-result = zif_abapgit_definitions=>c_diff-insert.
lv_bg = '' diff_ins''.
lv_mark = \`+\`.
ENDIF.
ENDIF.
lv_new = |<td class="num diff_others" line-num="{ is_diff_line-new_num }"></td>|
&& |<td class="mark diff_others">{ lv_mark }</td>|
&& |<td class="code{ lv_bg } diff_left new">{ is_diff_line-new }</td>|.
" Old line
CLEAR lv_bg.
lv_mark = \` \`.
IF is_diff_line-result IS NOT INITIAL.
IF iv_fstate = c_fstate-both OR is_diff_line-result = zif_abapgit_definitions=>c_diff-update.
lv_bg = '' diff_upd''.
lv_mark = \`~\`.
ELSEIF is_diff_line-result = zif_abapgit_definitions=>c_diff-delete.
lv_bg = '' diff_del''.
lv_mark = \`-\`.
ENDIF.
ENDIF.
lv_old = |<td class="num diff_others" line-num="{ is_diff_line-old_num }"></td>|
&& |<td class="mark diff_others">{ lv_mark }</td>|
&& |<td class="code{ lv_bg } diff_right old">{ is_diff_line-old }</td>|.
" render line, inverse sides if remote is newer
ri_html->add( ''<tr class="diff_line">'' ).
render_line_split_row(
ii_html = ri_html
iv_filename = iv_filename
is_diff_line = is_diff_line
iv_index = iv_index
iv_fstate = iv_fstate
iv_old = lv_old
iv_new = lv_new ).
ri_html->add( ''</tr>'' ).
ENDMETHOD.
METHOD render_line_split_row.
IF iv_fstate = c_fstate-remote. " Remote file leading changes
ii_html->add( iv_old ). " local
ii_html->add( iv_new ). " remote
ELSE. " Local leading changes or both were modified
ii_html->add( iv_new ). " local
ii_html->add( iv_old ). " remote
ENDIF.
ENDMETHOD.
METHOD render_line_unified.
FIELD-SYMBOLS <ls_diff_line> LIKE LINE OF mt_delayed_lines.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
" Note: CSS classes "new" and "old" are used to enable column-based copy to clipboard
" Release delayed subsequent update lines
IF is_diff_line-result <> zif_abapgit_definitions=>c_diff-update.
LOOP AT mt_delayed_lines ASSIGNING <ls_diff_line>.
ri_html->add( ''<tr class="diff_line">'' ).
ri_html->add( |<td class="num diff_others" line-num="{ <ls_diff_line>-old_num }"></td>|
&& |<td class="num diff_others" line-num=""></td>|
&& |<td class="mark diff_others">-</td>|
&& |<td class="code diff_del diff_unified old">{ <ls_diff_line>-old }</td>| ).
ri_html->add( ''</tr>'' ).
ENDLOOP.
LOOP AT mt_delayed_lines ASSIGNING <ls_diff_line>.
ri_html->add( ''<tr class="diff_line">'' ).
ri_html->add( |<td class="num diff_others" line-num=""></td>|
&& |<td class="num diff_others" line-num="{ <ls_diff_line>-new_num }"></td>|
&& |<td class="mark diff_others">+</td>|
&& |<td class="code diff_ins diff_unified new">{ <ls_diff_line>-new }</td>| ).
ri_html->add( ''</tr>'' ).
ENDLOOP.
CLEAR mt_delayed_lines.
ENDIF.
ri_html->add( ''<tr class="diff_line">'' ).
CASE is_diff_line-result.
WHEN zif_abapgit_definitions=>c_diff-update.
APPEND is_diff_line TO mt_delayed_lines. " Delay output of subsequent updates
WHEN zif_abapgit_definitions=>c_diff-insert.
ri_html->add( |<td class="num diff_others" line-num=""></td>|
&& |<td class="num diff_others" line-num="{ is_diff_line-new_num }"></td>|
&& |<td class="mark diff_others">+</td>|
&& |<td class="code diff_ins diff_unified new">{ is_diff_line-new }</td>| ).
WHEN zif_abapgit_definitions=>c_diff-delete.
ri_html->add( |<td class="num diff_others" line-num="{ is_diff_line-old_num }"></td>|
&& |<td class="num diff_others" line-num=""></td>|
&& |<td class="mark diff_others">-</td>|
&& |<td class="code diff_del diff_unified old">{ is_diff_line-old }</td>| ).
WHEN OTHERS. "none
ri_html->add( |<td class="num diff_others" line-num="{ is_diff_line-old_num }"></td>|
&& |<td class="num diff_others" line-num="{ is_diff_line-new_num }"></td>|
&& |<td class="mark diff_others"> </td>|
&& |<td class="code diff_unified">{ is_diff_line-old }</td>| ).
ENDCASE.
ri_html->add( ''</tr>'' ).
ENDMETHOD.
METHOD render_scripts.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->set_title( cl_abap_typedescr=>describe_by_object_ref( me )->get_relative_name( ) ).
ri_html->add( ''restoreScrollPosition();'' ).
ri_html->add( ''var gHelper = new DiffHelper({'' ).
ri_html->add( | seed: "{ mv_seed }",| ).
ri_html->add( '' ids: {'' ).
ri_html->add( '' jump: "jump",'' ).
ri_html->add( '' diffList: "diff-list",'' ).
ri_html->add( '' filterMenu: "diff-filter",'' ).
ri_html->add( '' }'' ).
ri_html->add( ''});'' ).
ri_html->add( ''addMarginBottom();'' ).
ri_html->add( ''var gGoJumpPalette = new CommandPalette(enumerateJumpAllFiles, {'' ).
ri_html->add( '' toggleKey: "F2",'' ).
ri_html->add( '' hotkeyDescription: "Jump to File ..."'' ).
ri_html->add( ''});'' ).
" Feature for selecting ABAP code by column and copy to clipboard
ri_html->add( ''var columnSelection = new DiffColumnSelection();'' ).
ENDMETHOD.
METHOD render_table_head.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<thead class="header">'' ).
ri_html->add( ''<tr>'' ).
IF mv_unified = abap_true.
render_table_head_unified( ri_html ).
ELSE.
render_table_head_non_unified(
ii_html = ri_html
is_diff = is_diff ).
ENDIF.
ri_html->add( ''</tr>'' ).
ri_html->add( ''</thead>'' ).
ENDMETHOD.
METHOD render_table_head_non_unified.
ii_html->add( ''<th class="num"></th>'' ).
ii_html->add( ''<th class="mark"></th>'' ).
ii_html->add( ''<th>LOCAL</th>'' ).
ii_html->add( ''<th class="num"></th>'' ).
ii_html->add( ''<th class="mark"></th>'' ).
ii_html->add( ''<th>REMOTE</th>'' ).
ENDMETHOD.
METHOD render_table_head_unified.
ii_html->add( ''<th class="num">old</th>'' ).
ii_html->add( ''<th class="num">new</th>'' ).
ii_html->add( ''<th class="mark"></th>'' ).
ii_html->add( ''<th>code</th>'' ).
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
DATA ls_view LIKE ms_view.
ls_view = ms_view.
CASE ii_event->mv_action.
WHEN c_actions-toggle_unified. " Toggle file display
mv_unified = zcl_abapgit_persistence_user=>get_instance( )->toggle_diff_unified( ).
rs_handled-page = zcl_abapgit_gui_page_hoc=>create(
iv_page_title = ''Diff''
iv_page_layout = get_page_layout( )
ii_page_menu_provider = me
ii_child_component = me ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page_replacing.
WHEN c_actions-toggle_hide_diffs. " Toggle display of diffs
ms_view-hide_diffs = boolc( ms_view-hide_diffs = abap_false ).
WHEN c_actions-toggle_hidden_chars. " Toggle display of hidden characters
ms_view-hidden_chars = boolc( ms_view-hidden_chars = abap_false ).
WHEN c_actions-toggle_ignore_indent. " Toggle ignore indentation
ms_view-ignore_indent = boolc( ms_view-ignore_indent = abap_false ).
WHEN c_actions-toggle_ignore_comments. " Toggle ignore comments
ms_view-ignore_comments = boolc( ms_view-ignore_comments = abap_false ).
WHEN c_actions-toggle_ignore_case. " Toggle case sensitivity
ms_view-ignore_case = boolc( ms_view-ignore_case = abap_false ).
WHEN OTHERS.
IF is_refresh( ii_event->mv_action ) = abap_true.
refresh( ii_event->mv_action ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ENDIF.
ENDCASE.
" If view has changed, refresh local files recalculating diff, and update menu
IF ms_view <> ls_view.
IF ms_view-hide_diffs = ls_view-hide_diffs.
refresh( c_actions-refresh_local ).
ENDIF.
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_gui_hotkeys~get_hotkey_actions.
DATA: ls_hotkey_action LIKE LINE OF rt_hotkey_actions.
ls_hotkey_action-ui_component = ''Diff''.
ls_hotkey_action-description = |Refresh Local|.
ls_hotkey_action-action = c_actions-refresh_local.
ls_hotkey_action-hotkey = |r|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ls_hotkey_action-description = |Refresh All|.
ls_hotkey_action-action = c_actions-refresh_all.
ls_hotkey_action-hotkey = |a|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ls_hotkey_action-description = |Toggle Split/Unified|.
ls_hotkey_action-action = c_actions-toggle_unified.
ls_hotkey_action-hotkey = |u|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ls_hotkey_action-description = |Toggle Hidden Characters|.
ls_hotkey_action-action = c_actions-toggle_hidden_chars.
ls_hotkey_action-hotkey = |h|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ENDMETHOD.
METHOD zif_abapgit_gui_menu_provider~get_menu.
CREATE OBJECT ro_toolbar EXPORTING iv_id = ''toolbar-main''.
add_menu_begin( ro_toolbar ).
add_jump_sub_menu( ro_toolbar ).
add_filter_sub_menu( ro_toolbar ).
add_menu_end( ro_toolbar ).
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
DATA: ls_diff_file LIKE LINE OF mt_diff_files,
li_progress TYPE REF TO zif_abapgit_progress.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
li_progress = zcl_abapgit_progress=>get_instance( lines( mt_diff_files ) ).
ri_html->add( \`<div class="repo">\` ).
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_repo_top( mo_repo ) ).
ri_html->add( \`</div>\` ).
ri_html->add( |<div id="diff-list" data-repo-key="{ mv_repo_key }">| ).
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_js_error_banner( ) ).
LOOP AT mt_diff_files INTO ls_diff_file.
li_progress->show(
iv_current = sy-tabix
iv_text = |Render Diff - { ls_diff_file-filename }| ).
ri_html->add( render_diff( ls_diff_file ) ).
ENDLOOP.
IF sy-subrc <> 0.
ri_html->add( |No more diffs| ).
ENDIF.
ri_html->add( ''</div>'' ).
register_deferred_script( render_scripts( ) ).
li_progress->off( ).
register_handlers( ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_EX_OBJECT ', 'CLASS zcl_abapgit_gui_page_ex_object DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_component
FINAL
CREATE PRIVATE.
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_event_handler.
INTERFACES zif_abapgit_gui_renderable.
CLASS-METHODS create
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception.
METHODS constructor
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS:
BEGIN OF c_id,
object_type TYPE string VALUE ''object_type'',
object_name TYPE string VALUE ''object_name'',
only_main TYPE string VALUE ''only_main'',
END OF c_id.
CONSTANTS:
BEGIN OF c_event,
export TYPE string VALUE ''export'',
choose_object_type TYPE string VALUE ''choose-object-type'',
END OF c_event.
DATA mo_form TYPE REF TO zcl_abapgit_html_form.
DATA mo_form_data TYPE REF TO zcl_abapgit_string_map.
DATA mo_validation_log TYPE REF TO zcl_abapgit_string_map.
DATA mo_form_util TYPE REF TO zcl_abapgit_html_form_utils.
METHODS get_form_schema
RETURNING
VALUE(ro_form) TYPE REF TO zcl_abapgit_html_form.
METHODS export_object
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_gui_page_ex_object IMPLEMENTATION.
METHOD constructor.
super->constructor( ).
CREATE OBJECT mo_validation_log.
CREATE OBJECT mo_form_data.
mo_form_data->set(
iv_key = c_id-only_main
iv_val = abap_true ).
mo_form = get_form_schema( ).
mo_form_util = zcl_abapgit_html_form_utils=>create( mo_form ).
ENDMETHOD.
METHOD create.
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_ex_object.
CREATE OBJECT lo_component.
ri_page = zcl_abapgit_gui_page_hoc=>create(
iv_page_title = ''Export Objects to Files''
ii_child_component = lo_component ).
ENDMETHOD.
METHOD export_object.
DATA lv_object_type TYPE trobjtype.
DATA lt_names TYPE STANDARD TABLE OF sobj_name WITH DEFAULT KEY.
DATA lv_name LIKE LINE OF lt_names.
DATA lv_list TYPE string.
DATA lv_only_main TYPE abap_bool.
lv_object_type = mo_form_data->get( c_id-object_type ).
lv_list = mo_form_data->get( c_id-object_name ).
lv_only_main = mo_form_data->get( c_id-only_main ).
REPLACE ALL OCCURRENCES OF |\\r| IN lv_list WITH ''''.
SPLIT lv_list AT |\\n| INTO TABLE lt_names.
LOOP AT lt_names INTO lv_name.
IF lv_name IS INITIAL.
CONTINUE.
ENDIF.
zcl_abapgit_zip=>export_object(
iv_main_language_only = lv_only_main
iv_object_type = lv_object_type
iv_object_name = lv_name ).
ENDLOOP.
ENDMETHOD.
METHOD get_form_schema.
ro_form = zcl_abapgit_html_form=>create( iv_form_id = ''export-object-to-files'' ).
ro_form->text(
iv_label = ''Object Type''
iv_name = c_id-object_type
iv_required = abap_true
iv_upper_case = abap_true
iv_side_action = c_event-choose_object_type ).
ro_form->textarea(
iv_label = ''Object Names''
iv_name = c_id-object_name
iv_required = abap_true
iv_placeholder = ''One object name per line''
iv_upper_case = abap_true ).
ro_form->checkbox(
iv_label = ''Only Main Language''
iv_name = c_id-only_main ).
ro_form->command(
iv_label = ''Export''
iv_cmd_type = zif_abapgit_html_form=>c_cmd_type-input_main
iv_action = c_event-export
)->command(
iv_label = ''Back''
iv_action = zif_abapgit_definitions=>c_action-go_back ).
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
mo_form_data = mo_form_util->normalize( ii_event->form_data( ) ).
CASE ii_event->mv_action.
WHEN c_event-export.
mo_validation_log = mo_form_util->validate( mo_form_data ).
IF mo_validation_log->is_empty( ) = abap_false.
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ELSE.
export_object( ).
MESSAGE ''Object successfully exported'' TYPE ''S''.
rs_handled-state = zcl_abapgit_gui=>c_event_state-go_back.
ENDIF.
WHEN c_event-choose_object_type.
mo_form_data->set(
iv_key = c_id-object_type
iv_val = zcl_abapgit_ui_factory=>get_popups( )->popup_search_help( ''TADIR-OBJECT'' ) ).
IF mo_form_data->get( c_id-object_type ) IS NOT INITIAL.
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ELSE.
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
ENDIF.
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
register_handlers( ).
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<div class="form-container">'' ).
ri_html->add( mo_form->render(
io_values = mo_form_data
io_validation_log = mo_validation_log ) ).
ri_html->add( ''</div>'' ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_EX_PCKAGE ', 'CLASS zcl_abapgit_gui_page_ex_pckage DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_component
FINAL
CREATE PRIVATE.
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_event_handler.
INTERFACES zif_abapgit_gui_renderable.
CLASS-METHODS create
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception.
METHODS constructor
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS:
BEGIN OF c_id,
package TYPE string VALUE ''package'',
folder_logic TYPE string VALUE ''folder_logic'',
ignore_subpackages TYPE string VALUE ''ignore_subpackages'',
main_lang_only TYPE string VALUE ''main_lang_only'',
END OF c_id.
CONSTANTS:
BEGIN OF c_event,
export_package TYPE string VALUE ''export-package'',
choose_package TYPE string VALUE ''choose-object-type'',
END OF c_event.
DATA mo_form TYPE REF TO zcl_abapgit_html_form.
DATA mo_form_data TYPE REF TO zcl_abapgit_string_map.
DATA mo_validation_log TYPE REF TO zcl_abapgit_string_map.
DATA mo_form_util TYPE REF TO zcl_abapgit_html_form_utils.
METHODS get_form_schema
RETURNING
VALUE(ro_form) TYPE REF TO zcl_abapgit_html_form.
METHODS export_package
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_gui_page_ex_pckage IMPLEMENTATION.
METHOD constructor.
super->constructor( ).
CREATE OBJECT mo_validation_log.
CREATE OBJECT mo_form_data.
mo_form = get_form_schema( ).
mo_form_util = zcl_abapgit_html_form_utils=>create( mo_form ).
ENDMETHOD.
METHOD create.
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_ex_pckage.
CREATE OBJECT lo_component.
ri_page = zcl_abapgit_gui_page_hoc=>create(
iv_page_title = ''Export Package to ZIP''
ii_child_component = lo_component ).
ENDMETHOD.
METHOD export_package.
DATA lv_package TYPE devclass.
DATA lv_folder_logic TYPE string.
DATA lv_ign_subpkg TYPE abap_bool.
DATA lv_main_lang_only TYPE abap_bool.
lv_package = mo_form_data->get( c_id-package ).
lv_folder_logic = mo_form_data->get( c_id-folder_logic ).
lv_ign_subpkg = mo_form_data->get( c_id-ignore_subpackages ).
lv_main_lang_only = mo_form_data->get( c_id-main_lang_only ).
zcl_abapgit_zip=>export_package(
iv_package = lv_package
iv_folder_logic = lv_folder_logic
iv_ign_subpkg = lv_ign_subpkg
iv_main_lang_only = lv_main_lang_only ).
ENDMETHOD.
METHOD get_form_schema.
ro_form = zcl_abapgit_html_form=>create( iv_form_id = ''export-package-to-files'' ).
ro_form->text(
iv_name = c_id-package
iv_label = ''Package''
iv_required = abap_true
iv_upper_case = abap_true
iv_side_action = c_event-choose_package
iv_max = 30
)->radio(
iv_name = c_id-folder_logic
iv_label = ''Folder Logic''
iv_default_value = zif_abapgit_dot_abapgit=>c_folder_logic-prefix
iv_hint = ''Define how package folders are named in repository''
)->option(
iv_label = ''Prefix''
iv_value = zif_abapgit_dot_abapgit=>c_folder_logic-prefix
)->option(
iv_label = ''Full''
iv_value = zif_abapgit_dot_abapgit=>c_folder_logic-full
)->option(
iv_label = ''Mixed''
iv_value = zif_abapgit_dot_abapgit=>c_folder_logic-mixed
)->checkbox(
iv_name = c_id-ignore_subpackages
iv_label = ''Ignore Subpackages''
iv_hint = ''Export selected package only''
)->checkbox(
iv_name = c_id-main_lang_only
iv_label = ''Serialize Main Language Only''
iv_hint = ''Ignore translations, export just main language''
)->command(
iv_label = ''Export Package to ZIP''
iv_action = c_event-export_package
iv_cmd_type = zif_abapgit_html_form=>c_cmd_type-input_main
)->command(
iv_label = ''Back''
iv_action = zif_abapgit_definitions=>c_action-go_back ).
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
mo_form_data = mo_form_util->normalize( ii_event->form_data( ) ).
CASE ii_event->mv_action.
WHEN c_event-export_package.
mo_validation_log = mo_form_util->validate( mo_form_data ).
IF mo_validation_log->is_empty( ) = abap_false.
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ELSE.
export_package( ).
MESSAGE ''Package successfully exported'' TYPE ''S''.
rs_handled-state = zcl_abapgit_gui=>c_event_state-go_back.
ENDIF.
WHEN c_event-choose_package.
mo_form_data->set(
iv_key = c_id-package
iv_val = zcl_abapgit_ui_factory=>get_popups( )->popup_search_help( ''TDEVC-DEVCLASS'' ) ).
IF mo_form_data->get( c_id-package ) IS NOT INITIAL.
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ELSE.
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
ENDIF.
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
register_handlers( ).
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( mo_form->render(
io_values = mo_form_data
io_validation_log = mo_validation_log ) ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_MERGE ', 'CLASS zcl_abapgit_gui_page_merge DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_component
FINAL
CREATE PRIVATE.
PUBLIC SECTION.
INTERFACES:
zif_abapgit_gui_event_handler,
zif_abapgit_gui_menu_provider,
zif_abapgit_gui_renderable.
CLASS-METHODS create
IMPORTING
io_repo TYPE REF TO zcl_abapgit_repo_online
iv_source TYPE string
iv_target TYPE string
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception.
METHODS constructor
IMPORTING
io_repo TYPE REF TO zcl_abapgit_repo_online
iv_source TYPE string
iv_target TYPE string
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
DATA mo_repo TYPE REF TO zcl_abapgit_repo_online.
DATA mi_merge TYPE REF TO zif_abapgit_merge.
CONSTANTS:
BEGIN OF c_actions,
merge TYPE string VALUE ''merge'',
res_conflicts TYPE string VALUE ''res_conflicts'',
END OF c_actions.
METHODS show_file
IMPORTING
!it_expanded TYPE zif_abapgit_git_definitions=>ty_expanded_tt
!ii_html TYPE REF TO zif_abapgit_html
!is_file TYPE zif_abapgit_git_definitions=>ty_expanded
!is_result TYPE zif_abapgit_git_definitions=>ty_expanded.
ENDCLASS.
CLASS zcl_abapgit_gui_page_merge IMPLEMENTATION.
METHOD constructor.
super->constructor( ).
mo_repo = io_repo.
io_repo->select_branch( |{ zif_abapgit_git_definitions=>c_git_branch-heads_prefix }{ iv_target }| ).
CREATE OBJECT mi_merge TYPE zcl_abapgit_merge
EXPORTING
io_repo = io_repo
iv_source_branch = iv_source.
mi_merge->run( ).
ENDMETHOD.
METHOD create.
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_merge.
CREATE OBJECT lo_component
EXPORTING
io_repo = io_repo
iv_source = iv_source
iv_target = iv_target.
ri_page = zcl_abapgit_gui_page_hoc=>create(
iv_page_title = ''Merge''
ii_page_menu_provider = lo_component
ii_child_component = lo_component ).
ENDMETHOD.
METHOD show_file.
FIELD-SYMBOLS <ls_show> LIKE LINE OF it_expanded.
READ TABLE it_expanded ASSIGNING <ls_show>
WITH KEY path_name
COMPONENTS path = is_file-path name = is_file-name.
IF sy-subrc = 0.
IF <ls_show>-sha1 = is_result-sha1.
ii_html->add( |<td>{ <ls_show>-path }{ <ls_show>-name }</td><td><b>{ <ls_show>-sha1(7) }</b></td>| ).
ELSE.
ii_html->add( |<td>{ <ls_show>-path }{ <ls_show>-name }</td><td>{ <ls_show>-sha1(7) }</td>| ).
ENDIF.
ELSE.
ii_html->add( ''<td></td><td></td>'' ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
CASE ii_event->mv_action.
WHEN c_actions-merge.
IF mi_merge->has_conflicts( ) = abap_true.
zcx_abapgit_exception=>raise( ''conflicts exists'' ).
ENDIF.
IF mi_merge->get_result( )-stage->count( ) = 0.
zcx_abapgit_exception=>raise( ''nothing to merge'' ).
ENDIF.
IF mo_repo->get_local_settings( )-code_inspector_check_variant IS NOT INITIAL.
rs_handled-page = zcl_abapgit_gui_page_code_insp=>create(
io_repo = mo_repo
io_stage = mi_merge->get_result( )-stage ).
ELSE.
rs_handled-page = zcl_abapgit_gui_page_commit=>create(
io_repo = mo_repo
io_stage = mi_merge->get_result( )-stage ).
ENDIF.
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
WHEN c_actions-res_conflicts.
rs_handled-page = zcl_abapgit_gui_page_merge_res=>create(
io_repo = mo_repo
io_merge_page = me
io_merge = mi_merge ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_gui_menu_provider~get_menu.
CREATE OBJECT ro_toolbar.
ro_toolbar->add( iv_txt = ''Merge''
iv_act = c_actions-merge
iv_cur = abap_false ).
IF mi_merge->has_conflicts( ) = abap_true.
ro_toolbar->add( iv_txt = ''Resolve Conflicts''
iv_act = c_actions-res_conflicts ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
DATA: ls_merge TYPE zif_abapgit_merge=>ty_merge,
lt_files LIKE ls_merge-stree,
ls_result LIKE LINE OF ls_merge-result.
FIELD-SYMBOLS <ls_file> LIKE LINE OF lt_files.
register_handlers( ).
ls_merge = mi_merge->get_result( ).
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<div id="toc">'' ).
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_repo_top(
io_repo = mo_repo
iv_show_package = abap_false
iv_show_branch = abap_false ) ).
ri_html->add( ''<table>'' ).
ri_html->add( ''<tr>'' ).
ri_html->add( ''<td>Source</td>'' ).
ri_html->add( ''<td>'' ).
ri_html->add( ls_merge-source-name ).
ri_html->add( ''</td></tr>'' ).
ri_html->add( ''<tr>'' ).
ri_html->add( ''<td>Target</td>'' ).
ri_html->add( ''<td>'' ).
ri_html->add( ls_merge-target-name ).
ri_html->add( ''</td></tr>'' ).
ri_html->add( ''<tr>'' ).
ri_html->add( ''<td>Ancestor</td>'' ).
ri_html->add( ''<td>'' ).
ri_html->add( ls_merge-common-commit ).
ri_html->add( ''</td></tr>'' ).
ri_html->add( ''</table>'' ).
ri_html->add( ''<br>'' ).
APPEND LINES OF ls_merge-stree TO lt_files.
APPEND LINES OF ls_merge-ttree TO lt_files.
APPEND LINES OF ls_merge-ctree TO lt_files.
SORT lt_files BY path DESCENDING name ASCENDING.
DELETE ADJACENT DUPLICATES FROM lt_files COMPARING path name.
ri_html->add( ''<table>'' ).
ri_html->add( ''<tr>'' ).
ri_html->add( ''<td><u>Source</u></td>'' ).
ri_html->add( ''<td></td>'' ).
ri_html->add( ''<td><u>Target</u></td>'' ).
ri_html->add( ''<td></td>'' ).
ri_html->add( ''<td><u>Ancestor</u></td>'' ).
ri_html->add( ''<td></td>'' ).
ri_html->add( ''<td><u>Result</u></td>'' ).
ri_html->add( ''<td></td>'' ).
ri_html->add( ''</tr>'' ).
LOOP AT lt_files ASSIGNING <ls_file>.
CLEAR ls_result.
READ TABLE ls_merge-result INTO ls_result
WITH KEY path_name
COMPONENTS path = <ls_file>-path name = <ls_file>-name.
ri_html->add( ''<tr>'' ).
show_file( it_expanded = ls_merge-stree
ii_html = ri_html
is_file = <ls_file>
is_result = ls_result ).
show_file( it_expanded = ls_merge-ttree
ii_html = ri_html
is_file = <ls_file>
is_result = ls_result ).
show_file( it_expanded = ls_merge-ctree
ii_html = ri_html
is_file = <ls_file>
is_result = ls_result ).
show_file( it_expanded = ls_merge-result
ii_html = ri_html
is_file = <ls_file>
is_result = ls_result ).
ri_html->add( ''</tr>'' ).
ENDLOOP.
ri_html->add( ''</table>'' ).
ri_html->add( ''<br>'' ).
ri_html->add( ''<b>'' ).
ri_html->add( ls_merge-conflict ).
ri_html->add( ''</b>'' ).
ri_html->add( ''</div>'' ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_MERGE_RES ', 'CLASS zcl_abapgit_gui_page_merge_res DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_component
FINAL
CREATE PRIVATE.
PUBLIC SECTION.
INTERFACES:
zif_abapgit_gui_event_handler,
zif_abapgit_gui_menu_provider,
zif_abapgit_gui_renderable.
CLASS-METHODS create
IMPORTING
io_repo TYPE REF TO zcl_abapgit_repo_online
io_merge_page TYPE REF TO zcl_abapgit_gui_page_merge
io_merge TYPE REF TO zif_abapgit_merge
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception.
METHODS constructor
IMPORTING
io_repo TYPE REF TO zcl_abapgit_repo_online
io_merge_page TYPE REF TO zcl_abapgit_gui_page_merge
io_merge TYPE REF TO zif_abapgit_merge
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
TYPES:
BEGIN OF ty_file_diff,
path TYPE string,
filename TYPE string,
lstate TYPE char1,
rstate TYPE char1,
fstate TYPE char1, " FILE state - Abstraction for shorter ifs
o_diff TYPE REF TO zcl_abapgit_diff,
changed_by TYPE syuname,
type TYPE string,
END OF ty_file_diff .
CONSTANTS:
BEGIN OF c_actions,
toggle_mode TYPE string VALUE ''toggle_mode'' ##NO_TEXT,
apply_merge TYPE string VALUE ''apply_merge'' ##NO_TEXT,
apply_source TYPE string VALUE ''apply_source'' ##NO_TEXT,
apply_target TYPE string VALUE ''apply_target'' ##NO_TEXT,
cancel TYPE string VALUE ''cancel'' ##NO_TEXT,
END OF c_actions .
CONSTANTS:
BEGIN OF c_merge_mode,
selection TYPE string VALUE ''selection'' ##NO_TEXT,
merge TYPE string VALUE ''merge'' ##NO_TEXT,
END OF c_merge_mode .
DATA mo_merge TYPE REF TO zif_abapgit_merge .
DATA mo_merge_page TYPE REF TO zcl_abapgit_gui_page_merge .
DATA mo_repo TYPE REF TO zcl_abapgit_repo_online .
DATA ms_diff_file TYPE ty_file_diff .
DATA mv_current_conflict_index TYPE sy-tabix .
DATA mv_merge_mode TYPE string .
DATA mt_conflicts TYPE zif_abapgit_merge=>ty_merge_conflict_tt .
METHODS apply_merged_content
IMPORTING
!ii_event TYPE REF TO zif_abapgit_gui_event
RAISING
zcx_abapgit_exception .
METHODS is_binary
IMPORTING
!iv_d1 TYPE xstring
!iv_d2 TYPE xstring
RETURNING
VALUE(rv_yes) TYPE abap_bool .
METHODS render_beacon
IMPORTING
!is_diff_line TYPE zif_abapgit_definitions=>ty_diff
!is_diff TYPE ty_file_diff
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html .
METHODS render_diff
IMPORTING
!is_diff TYPE ty_file_diff
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
METHODS render_diff_head
IMPORTING
!is_diff TYPE ty_file_diff
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html .
METHODS render_lines
IMPORTING
!is_diff TYPE ty_file_diff
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html .
METHODS render_line_split
IMPORTING
!is_diff_line TYPE zif_abapgit_definitions=>ty_diff
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html .
METHODS render_table_head
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html .
METHODS resolve_diff
RAISING
zcx_abapgit_exception .
METHODS toggle_merge_mode .
ENDCLASS.
CLASS zcl_abapgit_gui_page_merge_res IMPLEMENTATION.
METHOD apply_merged_content.
DATA:
lv_merge_content TYPE string,
lv_new_file_content TYPE xstring.
FIELD-SYMBOLS:
<ls_conflict> TYPE zif_abapgit_merge=>ty_merge_conflict.
lv_merge_content = ii_event->form_data( )->get( ''MERGE_CONTENT'' ).
REPLACE ALL OCCURRENCES
OF cl_abap_char_utilities=>cr_lf IN lv_merge_content WITH cl_abap_char_utilities=>newline.
lv_new_file_content = zcl_abapgit_convert=>string_to_xstring_utf8( lv_merge_content ).
READ TABLE mt_conflicts ASSIGNING <ls_conflict> INDEX mv_current_conflict_index.
<ls_conflict>-result_sha1 = zcl_abapgit_hash=>sha1_blob( lv_new_file_content ).
<ls_conflict>-result_data = lv_new_file_content.
mo_merge->resolve_conflict( <ls_conflict> ).
ENDMETHOD.
METHOD constructor.
super->constructor( ).
mo_repo = io_repo.
mo_merge_page = io_merge_page.
mo_merge = io_merge.
mv_merge_mode = c_merge_mode-selection.
mv_current_conflict_index = 1.
mt_conflicts = io_merge->get_conflicts( ).
ENDMETHOD.
METHOD create.
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_merge_res.
CREATE OBJECT lo_component
EXPORTING
io_repo = io_repo
io_merge_page = io_merge_page
io_merge = io_merge.
ri_page = zcl_abapgit_gui_page_hoc=>create(
iv_page_title = ''Resolve Merge Conflicts''
ii_page_menu_provider = lo_component
ii_child_component = lo_component ).
ENDMETHOD.
METHOD is_binary.
FIELD-SYMBOLS <lv_data> LIKE iv_d1.
IF iv_d1 IS NOT INITIAL. " One of them might be new and so empty
ASSIGN iv_d1 TO <lv_data>.
ELSE.
ASSIGN iv_d2 TO <lv_data>.
ENDIF.
rv_yes = zcl_abapgit_utils=>is_binary( <lv_data> ).
ENDMETHOD.
METHOD render_beacon.
DATA: lv_beacon TYPE string,
lt_beacons TYPE zif_abapgit_definitions=>ty_string_tt.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
IF is_diff_line-beacon > 0.
lt_beacons = is_diff-o_diff->get_beacons( ).
READ TABLE lt_beacons INTO lv_beacon INDEX is_diff_line-beacon.
ELSE.
lv_beacon = ''---''.
ENDIF.
ri_html->add( ''<thead class="nav_line">'' ).
ri_html->add( ''<tr>'' ).
ri_html->add( ''<th class="num"></th>'' ).
ri_html->add( |<th colspan="3">@@ { is_diff_line-new_num } @@ { lv_beacon }</th>| ).
ri_html->add( ''</tr>'' ).
ri_html->add( ''</thead>'' ).
ENDMETHOD.
METHOD render_diff.
DATA lv_target_content TYPE string.
FIELD-SYMBOLS <ls_conflict> TYPE zif_abapgit_merge=>ty_merge_conflict.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( |<div class="diff" data-type="{ is_diff-type
}" data-changed-by="{ is_diff-changed_by
}" data-file="{ is_diff-path && is_diff-filename }">| ).
ri_html->add( render_diff_head( is_diff ) ).
" Content
IF is_diff-type <> ''binary''.
IF mv_merge_mode = c_merge_mode-selection.
ri_html->add( ''<div class="diff_content">'' ).
ri_html->add( ''<table class="diff_tab syntax-hl">'' ).
ri_html->add( render_table_head( ) ).
ri_html->add( render_lines( is_diff ) ).
ri_html->add( ''</table>'' ).
ri_html->add( ''</div>'' ).
ELSE.
"Table for Div-Table and textarea
ri_html->add( ''<div class="diff_content">'' ).
ri_html->add( ''<table class="w100">'' ).
ri_html->add( ''<thead class="header">'' ).
ri_html->add( ''<tr>'' ).
ri_html->add( ''<th>Code</th>'' ).
ri_html->add( ''<th>Merge - '' ).
ri_html->add_a( iv_act = ''submitFormById(''''merge_form'''');''
iv_txt = ''Apply''
iv_typ = zif_abapgit_html=>c_action_type-onclick
iv_opt = zif_abapgit_html=>c_html_opt-strong ).
ri_html->add( ''</th> '' ).
ri_html->add( ''</tr>'' ).
ri_html->add( ''</thead>'' ).
ri_html->add( ''<td>'' ).
"Diff-Table of source and target file
ri_html->add( ''<table class="diff_tab syntax-hl">'' ).
ri_html->add( render_table_head( ) ).
ri_html->add( render_lines( is_diff ) ).
ri_html->add( ''</table>'' ).
READ TABLE mt_conflicts ASSIGNING <ls_conflict> INDEX mv_current_conflict_index.
IF sy-subrc = 0.
lv_target_content = zcl_abapgit_convert=>xstring_to_string_utf8( <ls_conflict>-target_data ).
lv_target_content = escape( val = lv_target_content
format = cl_abap_format=>e_html_text ).
ENDIF.
ri_html->add( ''</td>'' ).
ri_html->add( ''<td>'' ).
ri_html->add( ''<div class="form-container">'' ).
ri_html->add( |<form id="merge_form" class="aligned-form w100" accept-charset="UTF-8"| ).
ri_html->add( |method="post" action="sapevent:apply_merge">| ).
ri_html->add( |<textarea id="merge_content" name="merge_content" class="w100" | ).
ri_html->add( |rows="{ lines( is_diff-o_diff->get( ) ) }">{ lv_target_content }</textarea>| ).
ri_html->add( ''<input type="submit" class="hidden-submit">'' ).
ri_html->add( ''</form>'' ).
ri_html->add( ''</div>'' ).
ri_html->add( ''</td>'' ).
ri_html->add( ''</table>'' ).
ri_html->add( ''</div>'' ).
ENDIF.
ELSE.
ri_html->add( ''<div class="diff_content paddings center grey">'' ).
ri_html->add( ''The content seems to be binary.'' ).
ri_html->add( ''Cannot display as diff.'' ).
ri_html->add( ''</div>'' ).
ENDIF.
ri_html->add( ''</div>'' ).
ENDMETHOD.
METHOD render_diff_head.
DATA ls_stats TYPE zif_abapgit_definitions=>ty_count.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<div class="diff_head">'' ).
IF is_diff-type <> ''binary'' AND is_diff-o_diff IS NOT INITIAL.
ls_stats = is_diff-o_diff->stats( ).
ri_html->add( |<span class="diff_banner diff_ins">+ { ls_stats-insert }</span>| ).
ri_html->add( |<span class="diff_banner diff_del">- { ls_stats-delete }</span>| ).
ri_html->add( |<span class="diff_banner diff_upd">~ { ls_stats-update }</span>| ).
ENDIF.
ri_html->add( |<span class="diff_name">{ is_diff-filename }</span>| ).
ri_html->add( ''</div>'' ).
ENDMETHOD.
METHOD render_lines.
DATA: lo_highlighter TYPE REF TO zcl_abapgit_syntax_highlighter,
lt_diffs TYPE zif_abapgit_definitions=>ty_diffs_tt,
lv_insert_nav TYPE abap_bool.
FIELD-SYMBOLS <ls_diff> LIKE LINE OF lt_diffs.
lo_highlighter = zcl_abapgit_syntax_factory=>create( is_diff-filename ).
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
lt_diffs = is_diff-o_diff->get( ).
LOOP AT lt_diffs ASSIGNING <ls_diff>.
IF <ls_diff>-short = abap_false.
lv_insert_nav = abap_true.
CONTINUE.
ENDIF.
IF lv_insert_nav = abap_true. " Insert separator line with navigation
ri_html->add( render_beacon( is_diff_line = <ls_diff>
is_diff = is_diff ) ).
lv_insert_nav = abap_false.
ENDIF.
IF lo_highlighter IS BOUND.
<ls_diff>-new = lo_highlighter->process_line( <ls_diff>-new ).
<ls_diff>-old = lo_highlighter->process_line( <ls_diff>-old ).
ELSE.
<ls_diff>-new = escape( val = <ls_diff>-new
format = cl_abap_format=>e_html_attr ).
<ls_diff>-old = escape( val = <ls_diff>-old
format = cl_abap_format=>e_html_attr ).
ENDIF.
CONDENSE <ls_diff>-new_num. "get rid of leading spaces
CONDENSE <ls_diff>-old_num.
ri_html->add( render_line_split( <ls_diff> ) ).
ENDLOOP.
ENDMETHOD.
METHOD render_line_split.
DATA: lv_new TYPE string,
lv_old TYPE string,
lv_mark TYPE string,
lv_bg TYPE string.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
" New line
lv_mark = \` \`.
IF is_diff_line-result = zif_abapgit_definitions=>c_diff-update.
lv_bg = '' diff_upd''.
lv_mark = \`~\`.
ELSEIF is_diff_line-result = zif_abapgit_definitions=>c_diff-insert.
lv_bg = '' diff_ins''.
lv_mark = \`+\`.
ENDIF.
lv_new = |<td class="num" line-num="{ is_diff_line-new_num }"></td>|
&& |<td class="code{ lv_bg }">{ lv_mark }{ is_diff_line-new }</td>|.
" Old line
CLEAR lv_bg.
lv_mark = \` \`.
IF is_diff_line-result = zif_abapgit_definitions=>c_diff-update.
lv_bg = '' diff_upd''.
lv_mark = \`~\`.
ELSEIF is_diff_line-result = zif_abapgit_definitions=>c_diff-delete.
lv_bg = '' diff_del''.
lv_mark = \`-\`.
ENDIF.
lv_old = |<td class="num" line-num="{ is_diff_line-old_num }"></td>|
&& |<td class="code{ lv_bg }">{ lv_mark }{ is_diff_line-old }</td>|.
" render line, inverse sides if remote is newer
ri_html->add( ''<tr>'' ).
ri_html->add( lv_old ). " Target
ri_html->add( lv_new ). " Source
ri_html->add( ''</tr>'' ).
ENDMETHOD.
METHOD render_table_head.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<thead class="header">'' ).
ri_html->add( ''<tr>'' ).
ri_html->add( ''<th class="num"></th>'' ).
IF mv_merge_mode = c_merge_mode-selection.
ri_html->add( ''<form id="target_form" method="post" action="sapevent:apply_target">'' ).
ri_html->add( ''<th>Target - '' && mo_repo->get_selected_branch( ) && '' - '' ).
ri_html->add_a( iv_act = ''submitFormById(''''target_form'''');''
iv_txt = ''Apply''
iv_typ = zif_abapgit_html=>c_action_type-onclick
iv_opt = zif_abapgit_html=>c_html_opt-strong ).
ri_html->add( ''</th> '' ).
ri_html->add( ''</form>'' ).
ri_html->add( ''<th class="num"></th>'' ).
ri_html->add( ''<form id="source_form" method="post" action="sapevent:apply_source">'' ).
ri_html->add( ''<th>Source - '' && mo_merge->get_source_branch( ) && '' - '' ).
ri_html->add_a( iv_act = ''submitFormById(''''source_form'''');''
iv_txt = ''Apply''
iv_typ = zif_abapgit_html=>c_action_type-onclick
iv_opt = zif_abapgit_html=>c_html_opt-strong ).
ri_html->add( ''</th> '' ).
ri_html->add( ''</form>'' ).
ELSE.
ri_html->add( ''<th>Target - '' && mo_repo->get_selected_branch( ) && ''</th> '' ).
ri_html->add( ''<th class="num"></th>'' ).
ri_html->add( ''<th>Source - '' && mo_merge->get_source_branch( ) && ''</th> '' ).
ENDIF.
ri_html->add( ''</tr>'' ).
ri_html->add( ''</thead>'' ).
ENDMETHOD.
METHOD resolve_diff.
DATA lv_offs TYPE i.
FIELD-SYMBOLS <ls_conflict> TYPE zif_abapgit_merge=>ty_merge_conflict.
CLEAR ms_diff_file.
READ TABLE mt_conflicts ASSIGNING <ls_conflict> INDEX mv_current_conflict_index.
IF sy-subrc <> 0.
RETURN.
ENDIF.
ms_diff_file-path = <ls_conflict>-path.
ms_diff_file-filename = <ls_conflict>-filename.
ms_diff_file-type = reverse( <ls_conflict>-filename ).
FIND FIRST OCCURRENCE OF ''.'' IN ms_diff_file-type MATCH OFFSET lv_offs.
ms_diff_file-type = reverse( substring( val = ms_diff_file-type
len = lv_offs ) ).
IF ms_diff_file-type <> ''xml'' AND ms_diff_file-type <> ''abap''.
ms_diff_file-type = ''other''.
ENDIF.
IF ms_diff_file-type = ''other''
AND is_binary( iv_d1 = <ls_conflict>-source_data
iv_d2 = <ls_conflict>-target_data ) = abap_true.
ms_diff_file-type = ''binary''.
ENDIF.
IF ms_diff_file-type <> ''binary''.
CREATE OBJECT ms_diff_file-o_diff
EXPORTING
iv_new = <ls_conflict>-source_data
iv_old = <ls_conflict>-target_data.
ENDIF.
ENDMETHOD.
METHOD toggle_merge_mode.
IF mv_merge_mode = c_merge_mode-selection.
mv_merge_mode = c_merge_mode-merge.
ELSE.
mv_merge_mode = c_merge_mode-selection.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
FIELD-SYMBOLS <ls_conflict> TYPE zif_abapgit_merge=>ty_merge_conflict.
CASE ii_event->mv_action.
WHEN c_actions-apply_merge
OR c_actions-apply_source
OR c_actions-apply_target
OR c_actions-cancel.
CASE ii_event->mv_action.
WHEN c_actions-apply_merge.
apply_merged_content( ii_event ).
WHEN c_actions-apply_source.
READ TABLE mt_conflicts ASSIGNING <ls_conflict> INDEX mv_current_conflict_index.
<ls_conflict>-result_sha1 = <ls_conflict>-source_sha1.
<ls_conflict>-result_data = <ls_conflict>-source_data.
mo_merge->resolve_conflict( <ls_conflict> ).
WHEN c_actions-apply_target.
READ TABLE mt_conflicts ASSIGNING <ls_conflict> INDEX mv_current_conflict_index.
<ls_conflict>-result_sha1 = <ls_conflict>-target_sha1.
<ls_conflict>-result_data = <ls_conflict>-target_data.
mo_merge->resolve_conflict( <ls_conflict> ).
ENDCASE.
mv_current_conflict_index = mv_current_conflict_index + 1.
IF mv_current_conflict_index > lines( mt_conflicts ).
CLEAR mv_current_conflict_index.
ENDIF.
IF mv_current_conflict_index IS NOT INITIAL.
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ELSE.
rs_handled-page = mo_merge_page.
rs_handled-state = zcl_abapgit_gui=>c_event_state-go_back.
ENDIF.
WHEN c_actions-toggle_mode.
toggle_merge_mode( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_gui_menu_provider~get_menu.
CREATE OBJECT ro_toolbar.
ro_toolbar->add( iv_txt = ''Toggle merge mode''
iv_act = c_actions-toggle_mode ).
ro_toolbar->add( iv_txt = ''Cancel''
iv_act = c_actions-cancel ).
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
register_handlers( ).
resolve_diff( ).
IF ms_diff_file IS INITIAL.
zcx_abapgit_exception=>raise( ''no conflict found'' ).
ENDIF.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( |<div id="diff-list" data-repo-key="{ mo_repo->get_key( ) }">| ).
ri_html->add( render_diff( ms_diff_file ) ).
ri_html->add( ''</div>'' ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_MERGE_SEL ', 'CLASS zcl_abapgit_gui_page_merge_sel DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_component
FINAL
CREATE PRIVATE.
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_event_handler.
INTERFACES zif_abapgit_gui_renderable.
CLASS-METHODS create
IMPORTING
!ii_repo TYPE REF TO zif_abapgit_repo
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception.
METHODS constructor
IMPORTING
!ii_repo TYPE REF TO zif_abapgit_repo
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS:
BEGIN OF c_id,
branches TYPE string VALUE ''branches'',
source TYPE string VALUE ''source'',
target TYPE string VALUE ''target'',
END OF c_id.
CONSTANTS:
BEGIN OF c_event,
merge TYPE string VALUE ''merge'',
END OF c_event.
DATA mo_form TYPE REF TO zcl_abapgit_html_form.
DATA mo_form_data TYPE REF TO zcl_abapgit_string_map.
DATA mo_form_util TYPE REF TO zcl_abapgit_html_form_utils.
DATA mo_repo TYPE REF TO zcl_abapgit_repo_online.
DATA mt_branches TYPE zif_abapgit_git_definitions=>ty_git_branch_list_tt.
METHODS read_branches
RAISING
zcx_abapgit_exception.
METHODS get_form_schema
RETURNING
VALUE(ro_form) TYPE REF TO zcl_abapgit_html_form
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_gui_page_merge_sel IMPLEMENTATION.
METHOD constructor.
super->constructor( ).
CREATE OBJECT mo_form_data.
mo_repo ?= ii_repo.
read_branches( ).
mo_form = get_form_schema( ).
mo_form_util = zcl_abapgit_html_form_utils=>create( mo_form ).
ENDMETHOD.
METHOD create.
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_merge_sel.
CREATE OBJECT lo_component
EXPORTING
ii_repo = ii_repo.
ri_page = zcl_abapgit_gui_page_hoc=>create(
iv_page_title = ''Merge Branches''
ii_child_component = lo_component ).
ENDMETHOD.
METHOD get_form_schema.
FIELD-SYMBOLS <ls_branch> LIKE LINE OF mt_branches.
ro_form = zcl_abapgit_html_form=>create(
iv_form_id = ''merge-branches-form''
iv_help_page = ''https://docs.abapgit.org/'' ). " todo, add docs
ro_form->start_group(
iv_name = c_id-branches
iv_label = ''Branch Selection''
iv_hint = ''Select the branches that should be merged''
)->radio(
iv_name = c_id-source
iv_label = ''Source Branch''
iv_default_value = substring(
val = mo_repo->get_selected_branch( )
off = 11 )
iv_condense = abap_true ).
LOOP AT mt_branches ASSIGNING <ls_branch>.
ro_form->option(
iv_label = <ls_branch>-display_name
iv_value = <ls_branch>-display_name ).
ENDLOOP.
ro_form->radio(
iv_name = c_id-target
iv_label = ''Target Branch''
iv_condense = abap_true ).
LOOP AT mt_branches ASSIGNING <ls_branch>.
ro_form->option(
iv_label = <ls_branch>-display_name
iv_value = <ls_branch>-display_name ).
ENDLOOP.
ro_form->command(
iv_label = ''Preview Merge''
iv_cmd_type = zif_abapgit_html_form=>c_cmd_type-input_main
iv_action = c_event-merge
)->command(
iv_label = ''Back''
iv_action = zif_abapgit_definitions=>c_action-go_back ).
ENDMETHOD.
METHOD read_branches.
DATA lo_branches TYPE REF TO zcl_abapgit_git_branch_list.
lo_branches = zcl_abapgit_git_factory=>get_git_transport( )->branches( mo_repo->get_url( ) ).
mt_branches = lo_branches->get_branches_only( ).
DELETE mt_branches WHERE name = zif_abapgit_git_definitions=>c_head_name.
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
mo_form_data = mo_form_util->normalize( ii_event->form_data( ) ).
CASE ii_event->mv_action.
WHEN c_event-merge.
IF mo_form_data->get( c_id-source ) = mo_form_data->get( c_id-target ).
zcx_abapgit_exception=>raise( ''Select different branches'' ).
ENDIF.
rs_handled-page = zcl_abapgit_gui_page_merge=>create(
io_repo = mo_repo
iv_source = mo_form_data->get( c_id-source )
iv_target = mo_form_data->get( c_id-target ) ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
WHEN OTHERS.
ASSERT 1 = 1.
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
register_handlers( ).
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( \`<div class="repo">\` ).
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_repo_top(
io_repo = mo_repo
iv_show_commit = abap_false
iv_interactive_branch = abap_false ) ).
ri_html->add( mo_form->render( io_values = mo_form_data ) ).
ri_html->add( \`</div>\` ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_PATCH ', 'CLASS zcl_abapgit_gui_page_patch DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_page_diff_base
CREATE PUBLIC.
PUBLIC SECTION.
CLASS-METHODS create
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
!is_file TYPE zif_abapgit_git_definitions=>ty_file OPTIONAL
!is_object TYPE zif_abapgit_definitions=>ty_item OPTIONAL
!it_files TYPE zif_abapgit_definitions=>ty_stage_tt OPTIONAL
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception.
METHODS constructor
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
!is_file TYPE zif_abapgit_git_definitions=>ty_file OPTIONAL
!is_object TYPE zif_abapgit_definitions=>ty_item OPTIONAL
!it_files TYPE zif_abapgit_definitions=>ty_stage_tt OPTIONAL
RAISING
zcx_abapgit_exception.
CLASS-METHODS get_patch_data
IMPORTING
!iv_patch TYPE string
EXPORTING
!ev_filename TYPE string
!ev_line_index TYPE string
RAISING
zcx_abapgit_exception.
METHODS:
zif_abapgit_gui_event_handler~on_event REDEFINITION,
zif_abapgit_gui_hotkeys~get_hotkey_actions REDEFINITION,
zif_abapgit_gui_renderable~render REDEFINITION.
PROTECTED SECTION.
METHODS:
add_menu_begin REDEFINITION,
add_menu_end REDEFINITION,
insert_nav REDEFINITION,
refresh REDEFINITION,
render_beacon_begin_of_row REDEFINITION,
render_diff_head_after_state REDEFINITION,
render_line_split_row REDEFINITION,
render_table_head_non_unified REDEFINITION.
PRIVATE SECTION.
TYPES ty_patch_action TYPE string .
CONSTANTS:
BEGIN OF c_patch_actions,
stage TYPE string VALUE ''patch_stage'',
END OF c_patch_actions .
CONSTANTS:
BEGIN OF c_patch_action,
add TYPE ty_patch_action VALUE ''add'',
remove TYPE ty_patch_action VALUE ''remove'',
END OF c_patch_action .
DATA mo_stage TYPE REF TO zcl_abapgit_stage .
DATA mv_section_count TYPE i .
DATA mv_pushed TYPE abap_bool .
DATA mo_repo_online TYPE REF TO zcl_abapgit_repo_online .
METHODS render_patch
IMPORTING
!ii_html TYPE REF TO zif_abapgit_html
!iv_filename TYPE string
!is_diff_line TYPE zif_abapgit_definitions=>ty_diff
!iv_index TYPE sy-tabix
RAISING
zcx_abapgit_exception .
METHODS render_patch_head
IMPORTING
!ii_html TYPE REF TO zif_abapgit_html
!is_diff TYPE ty_file_diff .
METHODS start_staging
IMPORTING
!ii_event TYPE REF TO zif_abapgit_gui_event
RAISING
zcx_abapgit_exception .
METHODS apply_patch_from_form_fields
IMPORTING
!ii_event TYPE REF TO zif_abapgit_gui_event
RAISING
zcx_abapgit_exception .
METHODS restore_patch_flags
IMPORTING
!it_diff_files_old TYPE ty_file_diffs
RAISING
zcx_abapgit_exception .
METHODS add_to_stage
RAISING
zcx_abapgit_exception .
METHODS apply_patch_all
IMPORTING
!iv_patch TYPE string
!iv_patch_flag TYPE abap_bool
RAISING
zcx_abapgit_exception .
METHODS are_all_lines_patched
IMPORTING
!it_diff TYPE zif_abapgit_definitions=>ty_diffs_tt
RETURNING
VALUE(rv_are_all_lines_patched) TYPE abap_bool .
METHODS apply_patch_for
IMPORTING
!iv_filename TYPE string
!iv_line_index TYPE string
!iv_patch_flag TYPE abap_bool
RAISING
zcx_abapgit_exception .
METHODS get_diff_object
IMPORTING
!iv_filename TYPE string
RETURNING
VALUE(ro_diff) TYPE REF TO zcl_abapgit_diff
RAISING
zcx_abapgit_exception .
METHODS get_diff_line
IMPORTING
!io_diff TYPE REF TO zcl_abapgit_diff
!iv_line_index TYPE string
RETURNING
VALUE(rs_diff) TYPE zif_abapgit_definitions=>ty_diff
RAISING
zcx_abapgit_exception .
CLASS-METHODS is_patch_line_possible
IMPORTING
!is_diff_line TYPE zif_abapgit_definitions=>ty_diff
RETURNING
VALUE(rv_is_patch_line_possible) TYPE abap_bool .
METHODS render_scripts
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
ENDCLASS.
CLASS zcl_abapgit_gui_page_patch IMPLEMENTATION.
METHOD add_menu_begin.
io_menu->add(
iv_txt = c_action_texts-refresh_local
iv_typ = zif_abapgit_html=>c_action_type-dummy
iv_act = c_actions-refresh_local
iv_id = c_actions-refresh_local
iv_title = c_action_titles-refresh_local ).
io_menu->add(
iv_txt = c_action_texts-refresh_all
iv_typ = zif_abapgit_html=>c_action_type-dummy
iv_act = c_actions-refresh_all
iv_id = c_actions-refresh_all
iv_title = c_action_titles-refresh_all ).
ENDMETHOD.
METHOD add_menu_end.
io_menu->add( iv_txt = ''Stage''
iv_act = c_patch_actions-stage
iv_id = ''stage''
iv_typ = zif_abapgit_html=>c_action_type-dummy ).
add_view_sub_menu( io_menu ).
ENDMETHOD.
METHOD add_to_stage.
DATA: lt_diff TYPE zif_abapgit_definitions=>ty_diffs_tt,
lv_something_patched TYPE abap_bool,
ls_status TYPE zif_abapgit_definitions=>ty_result,
lv_patch TYPE xstring,
lo_git_add_patch TYPE REF TO zcl_abapgit_git_add_patch.
FIELD-SYMBOLS: <ls_diff_file> TYPE ty_file_diff.
LOOP AT mt_diff_files ASSIGNING <ls_diff_file>.
IF <ls_diff_file>-o_diff IS NOT BOUND.
" When we deal with binary files we don''t have a diff object.
" There''s nothing to do because they cannot be patched
CONTINUE.
ENDIF.
lt_diff = <ls_diff_file>-o_diff->get( ).
READ TABLE lt_diff TRANSPORTING NO FIELDS
WITH KEY patch_flag = abap_true.
CHECK sy-subrc = 0.
lv_something_patched = abap_true.
CREATE OBJECT lo_git_add_patch
EXPORTING
it_diff = <ls_diff_file>-o_diff->get( ).
lv_patch = lo_git_add_patch->get_patch_binary( ).
IF <ls_diff_file>-lstate = ''D'' AND are_all_lines_patched( lt_diff ) = abap_true.
ls_status-lstate = zif_abapgit_definitions=>c_state-deleted.
mo_stage->rm(
iv_path = <ls_diff_file>-path
is_status = ls_status
iv_filename = <ls_diff_file>-filename ).
ELSE.
IF <ls_diff_file>-lstate = ''A'' AND are_all_lines_patched( lt_diff ) = abap_true.
ls_status-lstate = zif_abapgit_definitions=>c_state-added.
ELSE.
ls_status-lstate = zif_abapgit_definitions=>c_state-modified.
ENDIF.
mo_stage->add(
iv_path = <ls_diff_file>-path
iv_filename = <ls_diff_file>-filename
is_status = ls_status
iv_data = lv_patch ).
ENDIF.
ENDLOOP.
IF lv_something_patched = abap_false.
zcx_abapgit_exception=>raise( |Nothing added| ).
ENDIF.
ENDMETHOD.
METHOD apply_patch_all.
DATA: lv_filename TYPE string,
lt_patch TYPE string_table,
lv_line_index TYPE string.
FIELD-SYMBOLS: <lv_patch> TYPE LINE OF string_table.
SPLIT iv_patch AT '','' INTO TABLE lt_patch.
LOOP AT lt_patch ASSIGNING <lv_patch>.
get_patch_data(
EXPORTING
iv_patch = <lv_patch>
IMPORTING
ev_filename = lv_filename
ev_line_index = lv_line_index ).
apply_patch_for( iv_filename = lv_filename
iv_line_index = lv_line_index
iv_patch_flag = iv_patch_flag ).
ENDLOOP.
ENDMETHOD.
METHOD apply_patch_for.
DATA: lo_diff TYPE REF TO zcl_abapgit_diff,
ls_diff_line TYPE zif_abapgit_definitions=>ty_diff,
lv_line TYPE i.
lo_diff = get_diff_object( iv_filename ).
ls_diff_line = get_diff_line( io_diff = lo_diff
iv_line_index = iv_line_index ).
CASE ls_diff_line-result.
WHEN zif_abapgit_definitions=>c_diff-update
OR zif_abapgit_definitions=>c_diff-insert.
lv_line = ls_diff_line-new_num.
lo_diff->set_patch_new( iv_line_new = lv_line
iv_patch_flag = iv_patch_flag ).
WHEN zif_abapgit_definitions=>c_diff-delete.
lv_line = ls_diff_line-old_num.
lo_diff->set_patch_old( iv_line_old = lv_line
iv_patch_flag = iv_patch_flag ).
ENDCASE.
ENDMETHOD.
METHOD apply_patch_from_form_fields.
DATA:
lv_add TYPE string,
lv_remove TYPE string.
lv_add = ii_event->form_data( )->get( c_patch_action-add ).
lv_remove = ii_event->form_data( )->get( c_patch_action-remove ).
apply_patch_all( iv_patch = lv_add
iv_patch_flag = abap_true ).
apply_patch_all( iv_patch = lv_remove
iv_patch_flag = abap_false ).
ENDMETHOD.
METHOD are_all_lines_patched.
DATA: lv_patch_count TYPE i.
FIELD-SYMBOLS: <ls_diff> TYPE zif_abapgit_definitions=>ty_diff.
LOOP AT it_diff ASSIGNING <ls_diff>
WHERE patch_flag = abap_true.
lv_patch_count = lv_patch_count + 1.
ENDLOOP.
rv_are_all_lines_patched = boolc( lv_patch_count = lines( it_diff ) ).
ENDMETHOD.
METHOD constructor.
super->constructor(
iv_key = iv_key
is_file = is_file
is_object = is_object
it_files = it_files ).
IF mo_repo->is_offline( ) = abap_true.
zcx_abapgit_exception=>raise( |Patching is only possible for online repositories.| ).
ENDIF.
mo_repo_online ?= mo_repo.
" While patching we always want to be in split mode
CLEAR: mv_unified.
CREATE OBJECT mo_stage.
ENDMETHOD.
METHOD create.
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_patch.
CREATE OBJECT lo_component
EXPORTING
iv_key = iv_key
is_file = is_file
is_object = is_object
it_files = it_files.
ri_page = zcl_abapgit_gui_page_hoc=>create(
iv_page_title = ''Patch''
iv_page_layout = zcl_abapgit_gui_page=>c_page_layout-full_width
ii_page_menu_provider = lo_component
ii_child_component = lo_component ).
ENDMETHOD.
METHOD get_diff_line.
DATA: lt_diff TYPE zif_abapgit_definitions=>ty_diffs_tt,
lv_line_index TYPE sy-tabix.
lv_line_index = iv_line_index.
lt_diff = io_diff->get( ).
READ TABLE lt_diff INTO rs_diff
INDEX lv_line_index.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Invalid line index { lv_line_index }| ).
ENDIF.
ENDMETHOD.
METHOD get_diff_object.
FIELD-SYMBOLS: <ls_diff_file> LIKE LINE OF mt_diff_files.
LOOP AT mt_diff_files ASSIGNING <ls_diff_file>.
IF get_normalized_fname_with_path( <ls_diff_file> ) = iv_filename.
ro_diff = <ls_diff_file>-o_diff.
EXIT.
ENDIF.
ENDLOOP.
IF ro_diff IS NOT BOUND.
zcx_abapgit_exception=>raise( |Invalid filename { iv_filename }| ).
ENDIF.
ENDMETHOD.
METHOD get_patch_data.
DATA: lv_section TYPE string.
CLEAR: ev_filename, ev_line_index.
FIND FIRST OCCURRENCE OF REGEX \`patch_line\` && \`_(.*)_(\\d)+_(\\d+)\`
IN iv_patch
SUBMATCHES ev_filename lv_section ev_line_index.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Invalid patch| ).
ENDIF.
ENDMETHOD.
METHOD insert_nav.
" add beacon at beginning of file
rv_insert_nav = abap_true.
ENDMETHOD.
METHOD is_patch_line_possible.
IF is_diff_line-result = zif_abapgit_definitions=>c_diff-update
OR is_diff_line-result = zif_abapgit_definitions=>c_diff-insert
OR is_diff_line-result = zif_abapgit_definitions=>c_diff-delete.
rv_is_patch_line_possible = abap_true.
ENDIF.
ENDMETHOD.
METHOD refresh.
DATA: lt_diff_files_old TYPE ty_file_diffs.
lt_diff_files_old = mt_diff_files.
super->refresh( iv_action ).
restore_patch_flags( lt_diff_files_old ).
ENDMETHOD.
METHOD render_beacon_begin_of_row.
mv_section_count = mv_section_count + 1.
ii_html->add( |<th class="patch">| ).
ii_html->add_checkbox( |patch_section_{ get_normalized_fname_with_path( is_diff ) }_{ mv_section_count }| ).
ii_html->add( ''</th>'' ).
ENDMETHOD.
METHOD render_diff_head_after_state.
DATA: lv_act_id TYPE string.
lv_act_id = |{ c_actions-refresh_local_object }_{ is_diff-obj_type }_{ is_diff-obj_name }|.
IF is_diff-obj_type IS NOT INITIAL AND is_diff-obj_name IS NOT INITIAL.
" Dummy link is handled in JS (based on ID)
ii_html->add( ''<span class="repo_name">'' ).
ii_html->add_a( iv_txt = ii_html->icon( iv_name = ''redo-alt-solid''
iv_class = ''pad-sides''
iv_hint = ''Local refresh of this object'' )
iv_id = lv_act_id
iv_act = lv_act_id
iv_typ = zif_abapgit_html=>c_action_type-dummy
iv_class = |url| ).
ii_html->add( ''</span>'' ).
ENDIF.
ENDMETHOD.
METHOD render_line_split_row.
render_patch( ii_html = ii_html
iv_filename = iv_filename
is_diff_line = is_diff_line
iv_index = iv_index ).
super->render_line_split_row(
ii_html = ii_html
iv_filename = iv_filename
is_diff_line = is_diff_line
iv_index = iv_index
iv_fstate = iv_fstate
iv_new = iv_new
iv_old = iv_old ).
ENDMETHOD.
METHOD render_patch.
CONSTANTS:
BEGIN OF lc_css_class,
patch TYPE string VALUE \`patch\`,
END OF lc_css_class.
DATA:
lv_id TYPE string,
lv_patched TYPE abap_bool,
lv_is_patch_possible TYPE abap_bool.
lv_patched = get_diff_object( iv_filename )->is_line_patched( iv_index ).
lv_is_patch_possible = is_patch_line_possible( is_diff_line ).
IF lv_is_patch_possible = abap_true.
lv_id = |{ iv_filename }_{ mv_section_count }_{ iv_index }|.
ii_html->add( |<td class="{ lc_css_class-patch }">| ).
ii_html->add_checkbox(
iv_id = |patch_line_{ lv_id }|
iv_checked = lv_patched ).
ii_html->add( |</td>| ).
ELSE.
ii_html->add( |<td class="{ lc_css_class-patch }">| ).
ii_html->add( |</td>| ).
ENDIF.
ENDMETHOD.
METHOD render_patch_head.
ii_html->add( |<th class="patch">| ).
ii_html->add_checkbox( |patch_file_{ get_normalized_fname_with_path( is_diff ) }| ).
ii_html->add( ''</th>'' ).
ENDMETHOD.
METHOD render_scripts.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->set_title( cl_abap_typedescr=>describe_by_object_ref( me )->get_relative_name( ) ).
ri_html->add( ''preparePatch();'' ).
ri_html->add( ''registerStagePatch();'' ).
ENDMETHOD.
METHOD render_table_head_non_unified.
render_patch_head( ii_html = ii_html
is_diff = is_diff ).
super->render_table_head_non_unified(
ii_html = ii_html
is_diff = is_diff ).
ENDMETHOD.
METHOD restore_patch_flags.
DATA:
lt_diff_old TYPE zif_abapgit_definitions=>ty_diffs_tt.
FIELD-SYMBOLS:
<ls_diff_file> TYPE ty_file_diff,
<ls_diff_file_old> TYPE ty_file_diff,
<ls_diff_old> TYPE zif_abapgit_definitions=>ty_diff.
LOOP AT mt_diff_files ASSIGNING <ls_diff_file>.
READ TABLE it_diff_files_old ASSIGNING <ls_diff_file_old>
WITH KEY secondary
COMPONENTS path = <ls_diff_file>-path
filename = <ls_diff_file>-filename.
IF sy-subrc <> 0.
CONTINUE. " e.g. new objects
ENDIF.
IF <ls_diff_file_old>-o_diff IS NOT BOUND.
CONTINUE. " e.g. binary files
ENDIF.
lt_diff_old = <ls_diff_file_old>-o_diff->get( ).
LOOP AT lt_diff_old ASSIGNING <ls_diff_old>
WHERE patch_flag = abap_true.
<ls_diff_file>-o_diff->set_patch_by_old_diff(
is_diff_old = <ls_diff_old>
iv_patch_flag = abap_true ).
ENDLOOP.
ENDLOOP.
ENDMETHOD.
METHOD start_staging.
apply_patch_from_form_fields( ii_event ).
add_to_stage( ).
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
CASE ii_event->mv_action.
WHEN c_patch_actions-stage.
start_staging( ii_event ).
rs_handled-page = zcl_abapgit_gui_page_commit=>create(
io_repo = mo_repo_online
io_stage = mo_stage ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
WHEN OTHERS.
IF is_refresh( ii_event->mv_action ) = abap_true.
apply_patch_from_form_fields( ii_event ).
refresh( ii_event->mv_action ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ELSE.
rs_handled = super->zif_abapgit_gui_event_handler~on_event( ii_event ).
ENDIF.
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_gui_hotkeys~get_hotkey_actions.
DATA ls_hotkey_action LIKE LINE OF rt_hotkey_actions.
ls_hotkey_action-ui_component = ''Patch''.
ls_hotkey_action-description = |Stage Changes|.
ls_hotkey_action-action = |stagePatch|.
ls_hotkey_action-hotkey = |s|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ls_hotkey_action-description = |Refresh Local|.
ls_hotkey_action-action = |refreshLocal|.
ls_hotkey_action-hotkey = |r|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ls_hotkey_action-description = |Refresh All|.
ls_hotkey_action-action = |refreshAll|.
ls_hotkey_action-hotkey = |a|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
CLEAR mv_section_count.
IF mv_pushed = abap_true.
refresh_full( ).
calculate_diff( ).
CLEAR mv_pushed.
ENDIF.
register_handlers( ).
ri_html = super->zif_abapgit_gui_renderable~render( ).
register_deferred_script( render_scripts( ) ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_PULL ', 'CLASS zcl_abapgit_gui_page_pull DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_component
FINAL
CREATE PRIVATE.
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_event_handler.
INTERFACES zif_abapgit_gui_menu_provider.
INTERFACES zif_abapgit_gui_renderable.
CONSTANTS:
BEGIN OF c_id,
transport_request TYPE string VALUE ''transport_request'',
END OF c_id .
CONSTANTS: BEGIN OF c_action,
pull TYPE string VALUE ''pull'',
refresh TYPE string VALUE ''refresh'',
choose_tr TYPE string VALUE ''choose_tr'',
END OF c_action.
CLASS-METHODS create
IMPORTING
io_repo TYPE REF TO zcl_abapgit_repo
iv_trkorr TYPE trkorr OPTIONAL
ii_obj_filter TYPE REF TO zif_abapgit_object_filter OPTIONAL
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception.
METHODS constructor
IMPORTING
io_repo TYPE REF TO zcl_abapgit_repo
iv_trkorr TYPE trkorr
ii_obj_filter TYPE REF TO zif_abapgit_object_filter OPTIONAL
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
DATA mo_repo TYPE REF TO zcl_abapgit_repo .
DATA mi_obj_filter TYPE REF TO zif_abapgit_object_filter .
DATA mo_form_data TYPE REF TO zcl_abapgit_string_map .
DATA ms_checks TYPE zif_abapgit_definitions=>ty_deserialize_checks .
METHODS pull
RAISING
zcx_abapgit_exception .
METHODS form
RETURNING
VALUE(ro_form) TYPE REF TO zcl_abapgit_html_form
RAISING
zcx_abapgit_exception .
METHODS choose_transport_request
RAISING
zcx_abapgit_exception .
ENDCLASS.
CLASS ZCL_ABAPGIT_GUI_PAGE_PULL IMPLEMENTATION.
METHOD choose_transport_request.
DATA lv_transport_request TYPE trkorr.
lv_transport_request = zcl_abapgit_ui_factory=>get_popups( )->popup_transport_request( ).
IF lv_transport_request IS NOT INITIAL.
mo_form_data->set(
iv_key = c_id-transport_request
iv_val = lv_transport_request ).
ENDIF.
ENDMETHOD.
METHOD constructor.
super->constructor( ).
mo_repo = io_repo.
mi_obj_filter = ii_obj_filter.
CREATE OBJECT mo_form_data.
mo_form_data->set(
iv_key = c_id-transport_request
iv_val = iv_trkorr ).
ENDMETHOD.
METHOD create.
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_pull.
CREATE OBJECT lo_component
EXPORTING
io_repo = io_repo
iv_trkorr = iv_trkorr
ii_obj_filter = ii_obj_filter.
ri_page = zcl_abapgit_gui_page_hoc=>create(
iv_page_title = ''Pull''
ii_page_menu_provider = lo_component
ii_child_component = lo_component ).
ENDMETHOD.
METHOD form.
DATA lt_filter TYPE zif_abapgit_definitions=>ty_tadir_tt.
FIELD-SYMBOLS <ls_overwrite> LIKE LINE OF ms_checks-overwrite.
IF mi_obj_filter IS NOT INITIAL.
lt_filter = mi_obj_filter->get_filter( ).
ENDIF.
ro_form = zcl_abapgit_html_form=>create( iv_form_id = ''pull-form'' ).
ro_form->start_group(
iv_name = ''id-objects''
iv_label = ''Objects'' ).
LOOP AT ms_checks-overwrite ASSIGNING <ls_overwrite>.
IF lines( lt_filter ) > 0.
READ TABLE lt_filter WITH KEY object = <ls_overwrite>-obj_type
obj_name = <ls_overwrite>-obj_name TRANSPORTING NO FIELDS.
IF sy-subrc <> 0.
CONTINUE.
ENDIF.
ENDIF.
ro_form->checkbox(
iv_label = |{ <ls_overwrite>-obj_type } { <ls_overwrite>-obj_name }|
iv_name = |{ <ls_overwrite>-obj_type }-{ <ls_overwrite>-obj_name }| ).
ENDLOOP.
ro_form->text(
iv_name = c_id-transport_request
iv_required = abap_true
iv_upper_case = abap_true
iv_side_action = c_action-choose_tr
iv_max = 10
iv_label = |Transport Request| ).
ro_form->command(
iv_label = ''Pull''
iv_cmd_type = zif_abapgit_html_form=>c_cmd_type-input_main
iv_action = c_action-pull
)->command(
iv_label = ''Back''
iv_action = zif_abapgit_definitions=>c_action-go_back ).
ENDMETHOD.
METHOD pull.
DATA lv_value TYPE string.
FIELD-SYMBOLS <ls_overwrite> LIKE LINE OF ms_checks-overwrite.
FIELD-SYMBOLS <ls_warning> LIKE LINE OF ms_checks-warning_package.
ms_checks-transport-transport = mo_form_data->get( c_id-transport_request ).
LOOP AT ms_checks-overwrite ASSIGNING <ls_overwrite>.
lv_value = mo_form_data->get( |{ <ls_overwrite>-obj_type }-{ <ls_overwrite>-obj_name }| ).
IF lv_value = ''on''.
<ls_overwrite>-decision = zif_abapgit_definitions=>c_yes.
ELSE.
<ls_overwrite>-decision = zif_abapgit_definitions=>c_no.
ENDIF.
ENDLOOP.
LOOP AT ms_checks-warning_package ASSIGNING <ls_warning>.
lv_value = mo_form_data->get( |{ <ls_warning>-obj_type }-{ <ls_warning>-obj_name }| ).
IF lv_value = ''on''.
<ls_warning>-decision = zif_abapgit_definitions=>c_yes.
ELSE.
<ls_warning>-decision = zif_abapgit_definitions=>c_no.
ENDIF.
ENDLOOP.
* todo, show log?
zcl_abapgit_services_repo=>real_deserialize(
is_checks = ms_checks
io_repo = mo_repo ).
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
mo_form_data->merge( ii_event->form_data( ) ).
CASE ii_event->mv_action.
WHEN c_action-refresh.
mo_repo->refresh( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN c_action-choose_tr.
choose_transport_request( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN c_action-pull.
pull( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-go_back.
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_gui_menu_provider~get_menu.
CREATE OBJECT ro_toolbar EXPORTING iv_id = ''toolbar-main''.
ro_toolbar->add(
iv_txt = ''Refresh''
iv_act = c_action-refresh ).
ro_toolbar->add(
iv_txt = ''Back''
iv_act = zif_abapgit_definitions=>c_action-go_back ).
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
register_handlers( ).
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<div class="repo-overview">'' ).
ms_checks = mo_repo->deserialize_checks( ).
IF lines( ms_checks-overwrite ) = 0.
zcx_abapgit_exception=>raise(
''There is nothing to pull. The local state completely matches the remote repository.'' ).
ENDIF.
ri_html->add( form( )->render( mo_form_data ) ).
ri_html->add( ''</div>'' ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_REPO_OVER ', 'CLASS zcl_abapgit_gui_page_repo_over DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_component
FINAL
CREATE PRIVATE.
PUBLIC SECTION.
INTERFACES:
zif_abapgit_gui_event_handler,
zif_abapgit_gui_hotkeys,
zif_abapgit_gui_menu_provider,
zif_abapgit_gui_renderable.
CLASS-METHODS create
IMPORTING
!iv_only_favorites TYPE abap_bool OPTIONAL
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception.
METHODS constructor
IMPORTING
!iv_only_favorites TYPE abap_bool OPTIONAL
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
TYPES:
BEGIN OF ty_overview,
favorite TYPE string,
"! True for offline, false for online repo
type TYPE string,
key TYPE zif_abapgit_persistence=>ty_value,
name TYPE string,
labels TYPE string_table,
url TYPE string,
package TYPE devclass,
branch TYPE string,
created_by TYPE syuname,
created_at TYPE string,
created_at_raw TYPE timestampl,
deserialized_by TYPE syuname,
deserialized_at TYPE string,
deserialized_at_raw TYPE timestampl,
write_protected TYPE abap_bool,
flow TYPE abap_bool,
END OF ty_overview,
ty_overviews TYPE STANDARD TABLE OF ty_overview
WITH NON-UNIQUE DEFAULT KEY.
CONSTANTS:
BEGIN OF c_action,
select TYPE string VALUE ''select'',
apply_filter TYPE string VALUE ''apply_filter'',
label_filter TYPE string VALUE ''label_filter'',
END OF c_action,
c_label_filter_prefix TYPE string VALUE \`label:\`,
c_raw_field_suffix TYPE string VALUE \`_RAW\` ##NO_TEXT.
DATA: mt_all_labels TYPE string_table,
mo_label_colors TYPE REF TO zcl_abapgit_string_map.
DATA ms_list_settings TYPE zif_abapgit_definitions=>ty_list_settings.
METHODS set_order_by
IMPORTING
!iv_order_by TYPE string
RAISING
zcx_abapgit_exception.
METHODS set_order_direction
IMPORTING
!iv_order_descending TYPE abap_bool
RAISING
zcx_abapgit_exception.
METHODS set_filter
IMPORTING
it_postdata TYPE zif_abapgit_html_viewer=>ty_post_data
RAISING
zcx_abapgit_exception.
METHODS:
apply_filter
CHANGING
ct_overview TYPE ty_overviews,
map_repo_list_to_overview
IMPORTING
it_repo_obj_list TYPE zif_abapgit_repo_srv=>ty_repo_list
RETURNING
VALUE(rt_overview) TYPE ty_overviews
RAISING
zcx_abapgit_exception,
render_repo_list
IMPORTING
ii_html TYPE REF TO zif_abapgit_html
it_overview TYPE ty_overviews
RAISING
zcx_abapgit_exception,
render_table_header
IMPORTING
ii_html TYPE REF TO zif_abapgit_html,
render_table_footer
IMPORTING
ii_html TYPE REF TO zif_abapgit_html,
render_table_body
IMPORTING
ii_html TYPE REF TO zif_abapgit_html
it_repo_list TYPE ty_overviews
RAISING
zcx_abapgit_exception,
render_table_item
IMPORTING
ii_html TYPE REF TO zif_abapgit_html
is_repo TYPE ty_overview
RAISING
zcx_abapgit_exception,
render_header_bar
IMPORTING
ii_html TYPE REF TO zif_abapgit_html,
render_header_label_list
IMPORTING
ii_html TYPE REF TO zif_abapgit_html,
apply_order_by
CHANGING ct_overview TYPE ty_overviews.
METHODS prepare_overviews
RETURNING
VALUE(rt_overviews) TYPE ty_overviews
RAISING
zcx_abapgit_exception.
METHODS render_scripts
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception.
METHODS render_action_toolbar
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html.
METHODS render_filter_bar
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html.
METHODS build_table_scheme
RETURNING
VALUE(rt_tab_scheme) TYPE zif_abapgit_definitions=>ty_col_spec_tt.
METHODS collect_all_labels
IMPORTING
it_overview TYPE ty_overviews
RETURNING
VALUE(rt_list) TYPE string_table.
METHODS render_filter_help_hint
RETURNING
VALUE(rv_html) TYPE string.
METHODS save_settings
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_gui_page_repo_over IMPLEMENTATION.
METHOD apply_filter.
DATA lv_pfxl TYPE i.
DATA lv_idx TYPE i.
DATA lv_filter_label TYPE string.
FIELD-SYMBOLS <ls_r> LIKE LINE OF ct_overview.
IF ms_list_settings-filter IS INITIAL.
RETURN.
ENDIF.
lv_pfxl = strlen( c_label_filter_prefix ).
IF strlen( ms_list_settings-filter ) > lv_pfxl AND ms_list_settings-filter+0(lv_pfxl) = c_label_filter_prefix.
lv_filter_label = ms_list_settings-filter+lv_pfxl.
IF lv_filter_label = ''all''.
DELETE ct_overview WHERE labels IS INITIAL.
ELSEIF lv_filter_label = ''none''.
DELETE ct_overview WHERE labels IS NOT INITIAL.
ELSE.
LOOP AT ct_overview ASSIGNING <ls_r>.
lv_idx = sy-tabix.
READ TABLE <ls_r>-labels TRANSPORTING NO FIELDS WITH KEY table_line = lv_filter_label.
IF sy-subrc <> 0.
DELETE ct_overview INDEX lv_idx.
ENDIF.
ENDLOOP.
ENDIF.
ELSE. " Regular filter
DELETE ct_overview WHERE
key NS ms_list_settings-filter
AND name NS ms_list_settings-filter
AND url NS ms_list_settings-filter
AND package NS ms_list_settings-filter
AND branch NS ms_list_settings-filter
AND created_by NS ms_list_settings-filter
AND created_at NS ms_list_settings-filter
AND deserialized_by NS ms_list_settings-filter
AND deserialized_at NS ms_list_settings-filter.
ENDIF.
ENDMETHOD.
METHOD apply_order_by.
DATA:
lt_sort TYPE abap_sortorder_tab,
ls_sort LIKE LINE OF lt_sort.
ls_sort-name = ''FAVORITE''.
ls_sort-descending = abap_true.
ls_sort-astext = abap_true.
INSERT ls_sort INTO TABLE lt_sort.
IF ms_list_settings-order_by IS NOT INITIAL.
CLEAR ls_sort.
IF ms_list_settings-order_by = ''CREATED_AT'' OR ms_list_settings-order_by = ''DESERIALIZED_AT''.
ls_sort-name = ms_list_settings-order_by && c_raw_field_suffix.
ELSE.
ls_sort-name = ms_list_settings-order_by.
ls_sort-astext = abap_true.
ENDIF.
ls_sort-descending = ms_list_settings-order_descending.
INSERT ls_sort INTO TABLE lt_sort.
ENDIF.
SORT ct_overview BY (lt_sort).
ENDMETHOD.
METHOD build_table_scheme.
DATA lo_tab_scheme TYPE REF TO lcl_table_scheme.
CREATE OBJECT lo_tab_scheme.
lo_tab_scheme->add_column(
iv_tech_name = ''FAVORITE''
iv_css_class = ''wmin''
iv_allow_order_by = abap_false
)->add_column(
iv_tech_name = ''TYPE''
iv_css_class = ''wmin''
iv_allow_order_by = abap_false
)->add_column(
iv_tech_name = ''NAME''
iv_display_name = ''Name''
iv_allow_order_by = abap_true ).
IF mt_all_labels IS NOT INITIAL.
lo_tab_scheme->add_column(
iv_tech_name = ''LABELS''
iv_display_name = ''Labels''
iv_allow_order_by = abap_false ).
ENDIF.
lo_tab_scheme->add_column(
iv_tech_name = ''PACKAGE''
iv_display_name = ''Package''
iv_css_class = ''package''
iv_allow_order_by = abap_true
)->add_column(
iv_tech_name = ''URL''
iv_display_name = ''Remote''
iv_allow_order_by = abap_true
)->add_column(
iv_tech_name = ''BRANCH''
iv_display_name = ''Branch/Tag''
iv_allow_order_by = abap_true
)->add_column(
iv_tech_name = ''DESERIALIZED_BY''
iv_display_name = ''Deserialized by''
iv_css_class = ''ro-detail''
iv_allow_order_by = abap_true
)->add_column(
iv_tech_name = ''DESERIALIZED_AT''
iv_display_name = ''Deserialized at''
iv_css_class = ''ro-detail''
iv_allow_order_by = abap_true
)->add_column(
iv_tech_name = ''CREATED_BY''
iv_display_name = ''Created by''
iv_css_class = ''ro-detail''
iv_allow_order_by = abap_true
)->add_column(
iv_tech_name = ''CREATED_AT''
iv_display_name = ''Created at''
iv_css_class = ''ro-detail''
iv_add_tz = abap_true
iv_allow_order_by = abap_true
)->add_column(
iv_tech_name = ''KEY''
iv_display_name = ''Key''
iv_css_class = ''ro-detail''
iv_allow_order_by = abap_true
)->add_column(
iv_tech_name = ''GO''
iv_css_class = ''ro-go wmin''
iv_allow_order_by = abap_false ).
rt_tab_scheme = lo_tab_scheme->mt_col_spec.
ENDMETHOD.
METHOD collect_all_labels.
FIELD-SYMBOLS <ls_r> LIKE LINE OF it_overview.
LOOP AT it_overview ASSIGNING <ls_r>.
APPEND LINES OF <ls_r>-labels TO rt_list.
ENDLOOP.
SORT rt_list.
DELETE rt_list WHERE table_line IS INITIAL.
DELETE ADJACENT DUPLICATES FROM rt_list.
ENDMETHOD.
METHOD constructor.
super->constructor( ).
ms_list_settings = zcl_abapgit_persistence_user=>get_instance( )->get_list_settings( ).
" Overwrite setting
IF iv_only_favorites = abap_true.
ms_list_settings-only_favorites = abap_true.
ENDIF.
ENDMETHOD.
METHOD create.
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_repo_over.
CREATE OBJECT lo_component
EXPORTING
iv_only_favorites = iv_only_favorites.
ri_page = zcl_abapgit_gui_page_hoc=>create(
iv_page_title = ''Repository List''
ii_page_menu_provider = lo_component
ii_child_component = lo_component ).
ENDMETHOD.
METHOD map_repo_list_to_overview.
DATA ls_overview LIKE LINE OF rt_overview.
FIELD-SYMBOLS <ls_repo> LIKE LINE OF it_repo_obj_list.
LOOP AT it_repo_obj_list ASSIGNING <ls_repo>.
CLEAR ls_overview.
ls_overview-favorite = zcl_abapgit_persistence_user=>get_instance(
)->is_favorite_repo( <ls_repo>->ms_data-key ).
ls_overview-type = <ls_repo>->ms_data-offline.
ls_overview-key = <ls_repo>->ms_data-key.
ls_overview-name = <ls_repo>->get_name( ).
ls_overview-labels = zcl_abapgit_repo_labels=>split( <ls_repo>->ms_data-local_settings-labels ).
ls_overview-url = <ls_repo>->ms_data-url.
ls_overview-package = <ls_repo>->ms_data-package.
ls_overview-branch = <ls_repo>->ms_data-branch_name.
ls_overview-created_by = <ls_repo>->ms_data-created_by.
ls_overview-write_protected = <ls_repo>->ms_data-local_settings-write_protected.
ls_overview-flow = <ls_repo>->ms_data-local_settings-flow.
ls_overview-created_at_raw = <ls_repo>->ms_data-created_at.
IF <ls_repo>->ms_data-created_at IS NOT INITIAL.
ls_overview-created_at = zcl_abapgit_gui_chunk_lib=>render_timestamp( <ls_repo>->ms_data-created_at ).
ENDIF.
ls_overview-deserialized_by = <ls_repo>->ms_data-deserialized_by.
ls_overview-deserialized_at_raw = <ls_repo>->ms_data-deserialized_at.
IF <ls_repo>->ms_data-deserialized_at IS NOT INITIAL.
ls_overview-deserialized_at = zcl_abapgit_gui_chunk_lib=>render_timestamp( <ls_repo>->ms_data-deserialized_at ).
ENDIF.
INSERT ls_overview INTO TABLE rt_overview.
ENDLOOP.
ENDMETHOD.
METHOD prepare_overviews.
DATA lt_repo_obj_list TYPE zif_abapgit_repo_srv=>ty_repo_list.
IF ms_list_settings-only_favorites = abap_true.
lt_repo_obj_list = zcl_abapgit_repo_srv=>get_instance( )->list_favorites( ).
ELSE.
lt_repo_obj_list = zcl_abapgit_repo_srv=>get_instance( )->list( ).
ENDIF.
rt_overviews = map_repo_list_to_overview( lt_repo_obj_list ).
" Hmmm, side effect, not ideal, but we need label list before filter applied
mt_all_labels = collect_all_labels( rt_overviews ).
apply_order_by( CHANGING ct_overview = rt_overviews ).
apply_filter( CHANGING ct_overview = rt_overviews ).
ENDMETHOD.
METHOD render_action_toolbar.
CONSTANTS:
lc_dummy_key TYPE string VALUE \`?key=#\`,
lc_offline_class TYPE string VALUE \`action_offline_repo\`,
lc_online_class TYPE string VALUE \`action_online_repo\`,
lc_action_class TYPE string VALUE \`action_link\`.
DATA lo_toolbar TYPE REF TO zcl_abapgit_html_toolbar.
DATA lo_toolbar_more_sub TYPE REF TO zcl_abapgit_html_toolbar.
CREATE OBJECT lo_toolbar EXPORTING iv_id = ''toolbar-ovp''.
lo_toolbar->add(
iv_txt = |Pull|
iv_act = |{ zif_abapgit_definitions=>c_action-git_pull }{ lc_dummy_key }|
iv_class = |{ lc_action_class } { lc_online_class }|
iv_li_class = |{ lc_action_class }| ).
lo_toolbar->add(
iv_txt = |Stage|
iv_act = |{ zif_abapgit_definitions=>c_action-go_stage }{ lc_dummy_key }|
iv_class = |{ lc_action_class } { lc_online_class }|
iv_li_class = |{ lc_action_class }| ).
lo_toolbar->add(
iv_txt = |Patch|
iv_act = |{ zif_abapgit_definitions=>c_action-go_patch }{ lc_dummy_key }|
iv_class = |{ lc_action_class } { lc_online_class }|
iv_li_class = |{ lc_action_class }| ).
lo_toolbar->add(
iv_txt = |Diff|
iv_act = |{ zif_abapgit_definitions=>c_action-go_repo_diff }{ lc_dummy_key }|
iv_class = |{ lc_action_class } { lc_online_class }|
iv_li_class = |{ lc_action_class }| ).
lo_toolbar->add(
iv_txt = |Check|
iv_act = |{ zif_abapgit_definitions=>c_action-repo_code_inspector }{ lc_dummy_key }|
iv_class = |{ lc_action_class }|
iv_li_class = |{ lc_action_class }| ).
lo_toolbar->add(
iv_txt = |Import|
iv_act = |{ zif_abapgit_definitions=>c_action-zip_import }{ lc_dummy_key }|
iv_class = |{ lc_action_class } { lc_offline_class }|
iv_li_class = |{ lc_action_class }| ).
lo_toolbar->add(
iv_txt = |Export|
iv_act = |{ zif_abapgit_definitions=>c_action-zip_export }{ lc_dummy_key }|
iv_class = |{ lc_action_class } { lc_offline_class }|
iv_li_class = |{ lc_action_class }| ).
lo_toolbar->add(
iv_txt = |Repo Settings|
iv_act = |{ zif_abapgit_definitions=>c_action-repo_settings }{ lc_dummy_key }|
iv_class = |{ lc_action_class }|
iv_li_class = |{ lc_action_class }| ).
CREATE OBJECT lo_toolbar_more_sub EXPORTING iv_id = ''toolbar-ovp-more_sub''.
lo_toolbar_more_sub->add(
iv_txt = |Stage by Transport|
iv_act = |{ zif_abapgit_definitions=>c_action-go_stage_transport }{ lc_dummy_key }|
iv_class = |{ lc_action_class } { lc_online_class }|
iv_li_class = |{ lc_action_class }| ).
lo_toolbar_more_sub->add(
iv_txt = |Export by Transport|
iv_act = |{ zif_abapgit_definitions=>c_action-zip_export_transport }{ lc_dummy_key }|
iv_class = |{ lc_action_class } { lc_offline_class }|
iv_li_class = |{ lc_action_class }| ).
lo_toolbar_more_sub->add(
iv_txt = ''Danger''
iv_typ = zif_abapgit_html=>c_action_type-separator ).
lo_toolbar_more_sub->add(
iv_txt = |Remove Repository|
iv_title = |Remove abapGit''s records of the repository (the system''s |
&& |development objects will remain unaffected)|
iv_act = |{ zif_abapgit_definitions=>c_action-repo_remove }{ lc_dummy_key }|
iv_class = |{ lc_action_class }|
iv_li_class = |{ lc_action_class }| ).
lo_toolbar_more_sub->add(
iv_txt = |Remove Objects|
iv_title = |Delete all development objects belonging to this package |
&& |(and subpackages) from the system, but keep repository in abapGit|
iv_act = |{ zif_abapgit_definitions=>c_action-repo_delete_objects }{ lc_dummy_key }|
iv_class = |{ lc_action_class }|
iv_li_class = |{ lc_action_class }| ).
lo_toolbar_more_sub->add(
iv_txt = |Uninstall|
iv_title = |Delete all development objects belonging to this package |
&& |(and subpackages) from the system, and remove the repository from abapGit|
iv_act = |{ zif_abapgit_definitions=>c_action-repo_purge }{ lc_dummy_key }|
iv_class = |{ lc_action_class }|
iv_li_class = |{ lc_action_class }| ).
lo_toolbar->add(
iv_txt = |More|
io_sub = lo_toolbar_more_sub
iv_class = |{ lc_action_class }|
iv_li_class = |{ lc_action_class }| ).
ri_html = lo_toolbar->render( iv_right = abap_true ).
ENDMETHOD.
METHOD render_filter_bar.
DATA lv_icon_class TYPE string.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( |<form class="inline" method="post" action="sapevent:{ c_action-apply_filter }">| ).
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_text_input(
iv_name = |filter|
iv_label = |Filter: { render_filter_help_hint( ) }|
iv_value = ms_list_settings-filter ) ).
ri_html->add( |<input type="submit" class="hidden-submit" title="Filter">| ).
ri_html->add( |</form>| ).
IF ms_list_settings-only_favorites = abap_true.
lv_icon_class = \`blue\`.
ELSE.
lv_icon_class = \`grey\`.
ENDIF.
ri_html->add( ''<span class="toolbar-light pad-sides">'' ).
ri_html->add( ri_html->a(
iv_txt = |<i id="icon-filter-favorite" class="icon icon-check { lv_icon_class }"></i> Only Favorites|
iv_class = ''command''
iv_act = |{ zif_abapgit_definitions=>c_action-toggle_favorites }| ) ).
ri_html->add( ri_html->a(
iv_txt = ''<i id="icon-filter-detail" class="icon icon-check"></i> Detail''
iv_act = |gHelper.toggleRepoListDetail()|
iv_class = ''command''
iv_typ = zif_abapgit_html=>c_action_type-onclick ) ).
ri_html->add( ''</span>'' ).
ENDMETHOD.
METHOD render_filter_help_hint.
DATA lt_fragments TYPE string_table.
APPEND \`Filter is applied to all text fields in the below table.\` TO lt_fragments.
APPEND \` Search works for any portion of the text (so can be a mid part as well).\` TO lt_fragments.
APPEND \`<br>Starting query from <code>label:xxx</code> will filter appropriate label.\` TO lt_fragments.
APPEND \`Two "special" label queries are available:\` TO lt_fragments.
APPEND \` <code>all</code> (to select all repos that has at least one label)\` TO lt_fragments.
APPEND \` and <code>none</code> (to select unlabeled repos).\` TO lt_fragments.
rv_html = zcl_abapgit_gui_chunk_lib=>render_help_hint( concat_lines_of( table = lt_fragments ) ).
ENDMETHOD.
METHOD render_header_bar.
ii_html->add( |<div class="repo-overview-toolbar">| ).
ii_html->add( render_filter_bar( ) ).
ii_html->add( render_action_toolbar( ) ).
ii_html->add( |</div>| ).
ENDMETHOD.
METHOD render_header_label_list.
IF mt_all_labels IS INITIAL.
RETURN.
ENDIF.
ii_html->add( |<div class="repo-label-catalog">| ).
ii_html->add( ''<label>Filter by label:</label>'' ).
ii_html->add( zcl_abapgit_gui_chunk_lib=>render_label_list(
it_labels = mt_all_labels
io_label_colors = mo_label_colors
iv_clickable_action = c_action-label_filter ) ).
ii_html->add( |</div>| ).
ENDMETHOD.
METHOD render_repo_list.
ii_html->add( |<table>| ).
render_table_header( ii_html ).
render_table_body(
ii_html = ii_html
it_repo_list = it_overview ).
render_table_footer( ii_html ).
ii_html->add( |</table>| ).
ENDMETHOD.
METHOD render_scripts.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->set_title( cl_abap_typedescr=>describe_by_object_ref( me )->get_relative_name( ) ).
ri_html->add( ''var gHelper = new RepoOverViewHelper({ focusFilterKey: "f" });'' ).
ENDMETHOD.
METHOD render_table_body.
FIELD-SYMBOLS <ls_repo> LIKE LINE OF it_repo_list.
ii_html->add( ''<tbody>'' ).
LOOP AT it_repo_list ASSIGNING <ls_repo>.
render_table_item(
ii_html = ii_html
is_repo = <ls_repo> ).
ENDLOOP.
ii_html->add( |</tbody>| ).
ENDMETHOD.
METHOD render_table_footer.
DATA lv_action TYPE string.
IF ms_list_settings-only_favorites = abap_true.
lv_action = ii_html->a(
iv_txt = ''Show All''
iv_act = |{ zif_abapgit_definitions=>c_action-toggle_favorites }?force_state={ abap_false }| ).
ii_html->add( zcl_abapgit_gui_chunk_lib=>render_table_footer( |(Only favorites are shown. { lv_action })| ) ).
ENDIF.
ENDMETHOD.
METHOD render_table_header.
ii_html->add( zcl_abapgit_gui_chunk_lib=>render_table_header(
it_col_spec = build_table_scheme( )
iv_order_by = ms_list_settings-order_by
iv_order_descending = ms_list_settings-order_descending ) ).
ENDMETHOD.
METHOD render_table_item.
DATA:
lv_is_online_repo TYPE abap_bool,
lv_repo_type_icon TYPE string,
lv_favorite_icon TYPE string,
lv_fav_tr_class TYPE string,
lv_lock TYPE string,
lv_flow TYPE string.
lv_is_online_repo = boolc( is_repo-type = abap_false ).
" Start of row
IF is_repo-favorite = abap_true.
lv_fav_tr_class = '' class="favorite"''.
ELSE.
lv_fav_tr_class = ''''.
ENDIF.
ii_html->add( |<tr{ lv_fav_tr_class } data-key="{ is_repo-key }" data-offline="{ is_repo-type }">| ).
" Favorite
lv_favorite_icon = ii_html->icon(
iv_name = ''star/grey'' " blue is added in css, based on TR style
iv_class = ''pad-sides''
iv_hint = ''Click to toggle favorite'' ).
ii_html->td(
iv_class = ''wmin''
iv_content = ii_html->a(
iv_act = |{ zif_abapgit_definitions=>c_action-repo_toggle_fav }?key={ is_repo-key }|
iv_txt = lv_favorite_icon ) ).
" Online/Offline
IF lv_is_online_repo = abap_true.
lv_repo_type_icon = ''cloud-upload-alt/darkgrey''.
ELSE.
lv_repo_type_icon = ''plug/darkgrey''.
ENDIF.
ii_html->td(
iv_class = ''wmin''
iv_content = ii_html->icon( lv_repo_type_icon ) ).
" Repo name
IF is_repo-write_protected = abap_true.
lv_lock = ii_html->icon(
iv_name = ''lock/grey70''
iv_class = ''m-em5-sides''
iv_hint = ''Locked from pulls'' ).
ENDIF.
IF is_repo-flow = abap_true.
lv_flow = ii_html->icon(
iv_name = ''flow/grey70''
iv_class = ''m-em5-sides''
iv_hint = ''Flow'' ).
ENDIF.
ii_html->td(
ii_html->a(
iv_txt = is_repo-name
iv_act = |{ c_action-select }?key={ is_repo-key }| ) && lv_lock && lv_flow ).
" Labels
IF mt_all_labels IS NOT INITIAL.
ii_html->td(
iv_content = zcl_abapgit_gui_chunk_lib=>render_label_list(
it_labels = is_repo-labels
io_label_colors = mo_label_colors
iv_unlisted = abap_true
iv_clickable_action = c_action-label_filter )
iv_class = ''labels'' ).
ENDIF.
" Package
ii_html->td( ii_content = zcl_abapgit_gui_chunk_lib=>render_package_name(
iv_package = is_repo-package
iv_suppress_title = boolc( NOT ms_list_settings-only_favorites = abap_true ) ) ).
" Repo URL
IF lv_is_online_repo = abap_true.
ii_html->td( ii_content = zcl_abapgit_gui_chunk_lib=>render_repo_url(
iv_url = is_repo-url
iv_render_remote_edit_for_key = is_repo-key ) ).
ELSE.
ii_html->td( ).
ENDIF.
" Branch
IF is_repo-branch IS INITIAL.
ii_html->td( ).
ELSE.
ii_html->td( ii_content = zcl_abapgit_gui_chunk_lib=>render_branch_name(
iv_branch = is_repo-branch
iv_repo_key = is_repo-key ) ).
ENDIF.
" Details: deserialized by
ii_html->td(
iv_class = ''ro-detail''
ii_content = zcl_abapgit_gui_chunk_lib=>render_user_name(
iv_username = is_repo-deserialized_by
iv_suppress_title = boolc( NOT ms_list_settings-only_favorites = abap_true ) ) ).
" Details: deserialized at
ii_html->td(
iv_class = ''ro-detail''
iv_content = is_repo-deserialized_at ).
" Details: created by
ii_html->td(
iv_class = ''ro-detail''
ii_content = zcl_abapgit_gui_chunk_lib=>render_user_name(
iv_username = is_repo-created_by
iv_suppress_title = boolc( NOT ms_list_settings-only_favorites = abap_true ) ) ).
" Details: created at
ii_html->td(
iv_class = ''ro-detail''
iv_content = is_repo-created_at ).
" Details: repo key
ii_html->td(
iv_class = ''ro-detail''
iv_content = |{ is_repo-key }| ).
" Go-to action
ii_html->td(
iv_class = ''ro-go wmin''
iv_content = ii_html->a(
iv_title = ''Open''
iv_txt = ''▸''
iv_act = |{ c_action-select }?key={ is_repo-key }| ) ).
ii_html->add( \`</tr>\` ).
ENDMETHOD.
METHOD save_settings.
zcl_abapgit_persistence_user=>get_instance( )->set_list_settings( ms_list_settings ).
ENDMETHOD.
METHOD set_filter.
FIELD-SYMBOLS <lv_postdata> LIKE LINE OF it_postdata.
READ TABLE it_postdata ASSIGNING <lv_postdata> INDEX 1.
IF sy-subrc = 0.
FIND FIRST OCCURRENCE OF REGEX \`filter=(.*)\`
IN <lv_postdata>
SUBMATCHES ms_list_settings-filter.
ENDIF.
ms_list_settings-filter = condense( ms_list_settings-filter ).
save_settings( ).
ENDMETHOD.
METHOD set_order_by.
IF ms_list_settings-order_by <> iv_order_by.
set_order_direction( abap_false ). " Reset ordering
ENDIF.
ms_list_settings-order_by = iv_order_by.
save_settings( ).
ENDMETHOD.
METHOD set_order_direction.
ms_list_settings-order_descending = iv_order_descending.
save_settings( ).
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
DATA lv_key TYPE zif_abapgit_persistence=>ty_value.
lv_key = ii_event->query( )->get( ''KEY'' ).
CASE ii_event->mv_action.
WHEN c_action-select.
zcl_abapgit_persistence_user=>get_instance( )->set_repo_show( lv_key ).
TRY.
zcl_abapgit_repo_srv=>get_instance( )->get( lv_key )->refresh( ).
CATCH zcx_abapgit_exception ##NO_HANDLER.
ENDTRY.
rs_handled-page = zcl_abapgit_gui_page_repo_view=>create( lv_key ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
WHEN zif_abapgit_definitions=>c_action-change_order_by.
set_order_by( ii_event->query( )->get( ''ORDERBY'' ) ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN zif_abapgit_definitions=>c_action-toggle_favorites.
IF ii_event->query( )->has( ''FORCE_STATE'' ) = abap_true.
ms_list_settings-only_favorites = ii_event->query( )->get( ''FORCE_STATE'' ).
ELSE.
ms_list_settings-only_favorites = boolc( ms_list_settings-only_favorites = abap_false ).
ENDIF.
save_settings( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN zif_abapgit_definitions=>c_action-direction.
set_order_direction( boolc( ii_event->query( )->get( ''DIRECTION'' ) = ''DESCENDING'' ) ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN c_action-apply_filter.
set_filter( ii_event->mt_postdata ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN c_action-label_filter.
IF ii_event->mv_getdata IS NOT INITIAL.
ms_list_settings-filter = c_label_filter_prefix && ii_event->mv_getdata.
ELSE.
CLEAR ms_list_settings-filter. " Unexpected request
ENDIF.
save_settings( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_gui_hotkeys~get_hotkey_actions.
DATA: ls_hotkey_action LIKE LINE OF rt_hotkey_actions.
ls_hotkey_action-ui_component = ''Repo overview''.
ls_hotkey_action-description = |New Online Repository|.
ls_hotkey_action-action = zif_abapgit_definitions=>c_action-repo_newonline.
ls_hotkey_action-hotkey = |n|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ls_hotkey_action-description = |New Offline Repository|.
ls_hotkey_action-action = zif_abapgit_definitions=>c_action-repo_newoffline.
ls_hotkey_action-hotkey = |o|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ls_hotkey_action-description = |Global Settings|.
ls_hotkey_action-action = zif_abapgit_definitions=>c_action-go_settings.
ls_hotkey_action-hotkey = |x|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ls_hotkey_action-description = |Stage|.
ls_hotkey_action-action = zif_abapgit_definitions=>c_action-go_stage.
ls_hotkey_action-hotkey = |s|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ls_hotkey_action-description = |Diff|.
ls_hotkey_action-action = zif_abapgit_definitions=>c_action-go_repo_diff.
ls_hotkey_action-hotkey = |d|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ls_hotkey_action-description = |Check|.
ls_hotkey_action-action = zif_abapgit_definitions=>c_action-repo_code_inspector.
ls_hotkey_action-hotkey = |c|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ls_hotkey_action-description = |Pull|.
ls_hotkey_action-action = zif_abapgit_definitions=>c_action-git_pull.
ls_hotkey_action-hotkey = |p|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ls_hotkey_action-description = |Patch|.
ls_hotkey_action-action = zif_abapgit_definitions=>c_action-go_patch.
ls_hotkey_action-hotkey = |a|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
" registered/handled in js
ls_hotkey_action-description = |Previous Repository|.
ls_hotkey_action-action = \`#\`.
ls_hotkey_action-hotkey = |4|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ls_hotkey_action-description = |Next Repository|.
ls_hotkey_action-action = \`##\`.
ls_hotkey_action-hotkey = |6|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ls_hotkey_action-description = |Open Repository|.
ls_hotkey_action-action = \`###\`.
ls_hotkey_action-hotkey = |Enter|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ls_hotkey_action-description = |Focus Filter|.
ls_hotkey_action-action = \`####\`.
ls_hotkey_action-hotkey = |f|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ENDMETHOD.
METHOD zif_abapgit_gui_menu_provider~get_menu.
CREATE OBJECT ro_toolbar EXPORTING iv_id = ''toolbar-main''.
ro_toolbar->add(
iv_txt = zcl_abapgit_gui_buttons=>flow( )
iv_act = zif_abapgit_definitions=>c_action-flow ).
ro_toolbar->add(
iv_txt = zcl_abapgit_gui_buttons=>new_online( )
iv_act = zif_abapgit_definitions=>c_action-repo_newonline
)->add(
iv_txt = zcl_abapgit_gui_buttons=>new_offline( )
iv_act = zif_abapgit_definitions=>c_action-repo_newoffline
)->add(
iv_txt = zcl_abapgit_gui_buttons=>settings( )
iv_act = zif_abapgit_definitions=>c_action-go_settings
)->add(
iv_txt = zcl_abapgit_gui_buttons=>advanced( )
io_sub = zcl_abapgit_gui_menus=>advanced( )
)->add(
iv_txt = zcl_abapgit_gui_buttons=>help( )
io_sub = zcl_abapgit_gui_menus=>help( ) ).
zcl_abapgit_gui_menus=>experimental( ro_toolbar ).
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
DATA lt_overview TYPE ty_overviews.
DATA ls_settings TYPE zif_abapgit_definitions=>ty_s_user_settings.
ls_settings = zcl_abapgit_persist_factory=>get_settings( )->read( )->get_user_settings( ).
mo_label_colors = zcl_abapgit_repo_labels=>split_colors_into_map( ls_settings-label_colors ).
lt_overview = prepare_overviews( ).
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
zcl_abapgit_exit=>get_instance( )->wall_message_list( ri_html ).
ri_html->add( |<div class="repo-overview">| ).
render_header_bar( ri_html ).
render_header_label_list( ri_html ).
render_repo_list(
ii_html = ri_html
it_overview = lt_overview ).
ri_html->add( |</div>| ).
register_deferred_script( render_scripts( ) ).
register_deferred_script( zcl_abapgit_gui_chunk_lib=>render_repo_palette( c_action-select ) ).
register_handlers( ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_REPO_VIEW ', 'CLASS zcl_abapgit_gui_page_repo_view DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_component
FINAL
CREATE PRIVATE.
PUBLIC SECTION.
INTERFACES:
zif_abapgit_gui_event_handler,
zif_abapgit_gui_hotkeys,
zif_abapgit_gui_menu_provider,
zif_abapgit_gui_renderable.
CONSTANTS:
BEGIN OF c_actions,
change_dir TYPE string VALUE ''change_dir'' ##NO_TEXT,
toggle_hide_files TYPE string VALUE ''toggle_hide_files'' ##NO_TEXT,
toggle_folders TYPE string VALUE ''toggle_folders'' ##NO_TEXT,
toggle_changes TYPE string VALUE ''toggle_changes'' ##NO_TEXT,
toggle_diff_first TYPE string VALUE ''toggle_diff_first '' ##NO_TEXT,
display_more TYPE string VALUE ''display_more'' ##NO_TEXT,
go_data TYPE string VALUE ''go_data'',
go_unit TYPE string VALUE ''go_unit'',
END OF c_actions .
CLASS-METHODS create
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception.
METHODS constructor
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
PRIVATE SECTION.
DATA mo_repo TYPE REF TO zcl_abapgit_repo .
DATA mo_repo_aggregated_state TYPE REF TO zcl_abapgit_repo_item_state.
DATA mv_connection_error TYPE abap_bool.
DATA mv_cur_dir TYPE string .
DATA mv_hide_files TYPE abap_bool .
DATA mv_max_lines TYPE i .
DATA mv_max_setting TYPE i .
DATA mv_show_folders TYPE abap_bool .
DATA mv_changes_only TYPE abap_bool .
DATA mv_order_by TYPE string .
DATA mv_order_descending TYPE abap_bool .
DATA mv_diff_first TYPE abap_bool .
DATA mv_key TYPE zif_abapgit_persistence=>ty_value .
DATA mv_are_changes_recorded_in_tr TYPE abap_bool .
METHODS render_head_line
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
METHODS build_view_dropdown
RETURNING
VALUE(ro_toolbar) TYPE REF TO zcl_abapgit_html_toolbar
RAISING
zcx_abapgit_exception .
METHODS render_item
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_repo_item
!iv_render_transports TYPE abap_bool
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
METHODS render_item_files
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_repo_item
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html .
METHODS render_item_command
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_repo_item
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html .
METHODS render_file_command
IMPORTING
!is_file TYPE zif_abapgit_definitions=>ty_repo_file
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html .
METHODS get_item_class
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_repo_item
iv_is_object_row TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(rv_html) TYPE string .
METHODS render_item_transport
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_repo_item
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
METHODS render_parent_dir
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
METHODS build_dir_jump_link
IMPORTING
!iv_path TYPE string
RETURNING
VALUE(rv_html) TYPE string .
METHODS build_inactive_object_code
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_repo_item
RETURNING
VALUE(rv_inactive_html_code) TYPE string .
METHODS build_srcsystem_code
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_repo_item
RETURNING
VALUE(rv_srcsystem_html_code) TYPE string .
METHODS build_origlang_code
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_repo_item
RETURNING
VALUE(rv_html_code) TYPE string .
METHODS open_in_main_language
RAISING
zcx_abapgit_exception .
METHODS render_table_header
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html .
METHODS render_table_footer
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html .
METHODS apply_order_by
CHANGING
!ct_repo_items TYPE zif_abapgit_definitions=>ty_repo_item_tt .
METHODS build_branch_dropdown
RETURNING
VALUE(ro_branch_dropdown) TYPE REF TO zcl_abapgit_html_toolbar
RAISING
zcx_abapgit_exception .
METHODS build_tag_dropdown
RETURNING
VALUE(ro_tag_dropdown) TYPE REF TO zcl_abapgit_html_toolbar
RAISING
zcx_abapgit_exception .
METHODS build_advanced_dropdown
RETURNING
VALUE(ro_advanced_dropdown) TYPE REF TO zcl_abapgit_html_toolbar
RAISING
zcx_abapgit_exception .
METHODS build_main_toolbar
RETURNING
VALUE(ro_toolbar) TYPE REF TO zcl_abapgit_html_toolbar
RAISING
zcx_abapgit_exception .
METHODS render_scripts
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
METHODS is_repo_lang_logon_lang
RETURNING
VALUE(rv_repo_lang_is_logon_lang) TYPE abap_bool .
METHODS render_item_changed_by
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_repo_item
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception.
METHODS order_files
CHANGING
ct_files TYPE zif_abapgit_definitions=>ty_repo_file_tt.
METHODS get_crossout
IMPORTING
!iv_authorization TYPE zif_abapgit_auth=>ty_authorization OPTIONAL
!iv_protected TYPE abap_bool DEFAULT abap_false
!iv_strong TYPE abap_bool DEFAULT abap_false
PREFERRED PARAMETER iv_authorization
RETURNING
VALUE(rv_crossout) LIKE zif_abapgit_html=>c_html_opt-crossout.
METHODS check_branch
RAISING
zcx_abapgit_exception.
METHODS check_connection
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS ZCL_ABAPGIT_GUI_PAGE_REPO_VIEW IMPLEMENTATION.
METHOD apply_order_by.
DATA:
lt_sort TYPE abap_sortorder_tab,
ls_sort LIKE LINE OF lt_sort,
lt_non_code_and_metadata_items LIKE ct_repo_items,
lt_code_items LIKE ct_repo_items,
lt_diff_items LIKE ct_repo_items.
FIELD-SYMBOLS:
<ls_repo_item> TYPE zif_abapgit_definitions=>ty_repo_item.
IF mv_order_by IS INITIAL.
RETURN.
ENDIF.
" we want to preserve non-code and metadata files at the top,
" so we isolate them and sort only the code artifacts
LOOP AT ct_repo_items ASSIGNING <ls_repo_item>.
IF <ls_repo_item>-obj_type IS INITIAL AND <ls_repo_item>-is_dir = abap_false.
INSERT <ls_repo_item> INTO TABLE lt_non_code_and_metadata_items.
ELSE.
INSERT <ls_repo_item> INTO TABLE lt_code_items.
ENDIF.
ENDLOOP.
IF mv_diff_first = abap_true.
" fix diffs on the top, right after non-code and metadata
LOOP AT lt_code_items ASSIGNING <ls_repo_item>
WHERE changes > 0.
INSERT <ls_repo_item> INTO TABLE lt_diff_items.
ENDLOOP.
DELETE lt_code_items WHERE changes > 0.
ENDIF.
CLEAR: ct_repo_items.
ls_sort-descending = mv_order_descending.
ls_sort-astext = abap_true.
ls_sort-name = mv_order_by.
INSERT ls_sort INTO TABLE lt_sort.
" Combine state fields for order of ''Status'' column
IF mv_order_by = ''LSTATE''.
ls_sort-name = ''RSTATE''.
INSERT ls_sort INTO TABLE lt_sort.
ENDIF.
" Use object name as secondary sort criteria
IF mv_order_by <> ''OBJ_NAME''.
ls_sort-name = ''OBJ_NAME''.
INSERT ls_sort INTO TABLE lt_sort.
ENDIF.
SORT lt_code_items STABLE BY (lt_sort).
SORT lt_diff_items STABLE BY (lt_sort).
INSERT LINES OF lt_non_code_and_metadata_items INTO TABLE ct_repo_items.
INSERT LINES OF lt_diff_items INTO TABLE ct_repo_items.
INSERT LINES OF lt_code_items INTO TABLE ct_repo_items.
" Files are listed under the object names so we always sort them by name
LOOP AT ct_repo_items ASSIGNING <ls_repo_item>.
order_files( CHANGING ct_files = <ls_repo_item>-files ).
ENDLOOP.
ENDMETHOD.
METHOD build_advanced_dropdown.
CREATE OBJECT ro_advanced_dropdown.
ro_advanced_dropdown->add( iv_txt = ''Activate Objects''
iv_act = |{ zif_abapgit_definitions=>c_action-repo_activate_objects }?key={ mv_key }| ).
IF mo_repo->is_offline( ) = abap_false. " Online ?
ro_advanced_dropdown->add(
iv_txt = ''Transport to Branch''
iv_act = |{ zif_abapgit_definitions=>c_action-repo_transport_to_branch }?key={ mv_key }|
iv_opt = get_crossout( zif_abapgit_auth=>c_authorization-transport_to_branch ) ).
ENDIF.
IF mv_are_changes_recorded_in_tr = abap_true.
ro_advanced_dropdown->add(
iv_txt = ''Add All Objects to Transport''
iv_act = |{ zif_abapgit_definitions=>c_action-repo_add_all_obj_to_trans_req }?key={ mv_key }| ).
ENDIF.
IF mo_repo->is_offline( ) = abap_true.
ro_advanced_dropdown->add( iv_txt = ''Export by Transport''
iv_act = |{ zif_abapgit_definitions=>c_action-zip_export_transport }?key={ mv_key }| ).
ELSE.
ro_advanced_dropdown->add( iv_txt = ''Stage by Transport''
iv_act = |{ zif_abapgit_definitions=>c_action-go_stage_transport }?key={ mv_key }| ).
ENDIF.
ro_advanced_dropdown->add( iv_txt = ''Quality Assurance''
iv_typ = zif_abapgit_html=>c_action_type-separator ).
ro_advanced_dropdown->add( iv_txt = ''Syntax Check''
iv_act = |{ zif_abapgit_definitions=>c_action-repo_syntax_check }?key={ mv_key }| ).
ro_advanced_dropdown->add( iv_txt = ''Unit Test''
iv_act = |{ c_actions-go_unit }| ).
ro_advanced_dropdown->add( iv_txt = ''Run Code Inspector''
iv_act = |{ zif_abapgit_definitions=>c_action-repo_code_inspector }?key={ mv_key }| ).
ro_advanced_dropdown->add( iv_txt = ''Where Used''
iv_act = |{ zif_abapgit_definitions=>c_action-where_used }?key={ mv_key }| ).
ro_advanced_dropdown->add( iv_txt = ''Very Advanced''
iv_typ = zif_abapgit_html=>c_action_type-separator ).
ro_advanced_dropdown->add( iv_txt = ''Update Local Checksums''
iv_act = |{ zif_abapgit_definitions=>c_action-repo_refresh_checksums }?key={ mv_key }|
iv_opt = get_crossout( zif_abapgit_auth=>c_authorization-update_local_checksum ) ).
ro_advanced_dropdown->add( iv_txt = ''Data Config''
iv_act = |{ c_actions-go_data }?key={ mv_key }| ).
IF is_repo_lang_logon_lang( ) = abap_false AND zcl_abapgit_services_abapgit=>get_abapgit_tcode( ) IS NOT INITIAL.
ro_advanced_dropdown->add(
iv_txt = ''Open in Main Language''
iv_act = |{ zif_abapgit_definitions=>c_action-repo_open_in_master_lang }?key={ mv_key }| ).
ENDIF.
ro_advanced_dropdown->add( iv_txt = ''Danger''
iv_typ = zif_abapgit_html=>c_action_type-separator ).
ro_advanced_dropdown->add( iv_txt = ''Remove Repository''
iv_title = \`Remove abapGit''s records of the repository (the system''s \`
&& \`development objects will remain unaffected)\`
iv_act = |{ zif_abapgit_definitions=>c_action-repo_remove }?key={ mv_key }| ).
ro_advanced_dropdown->add( iv_txt = ''Remove Objects''
iv_title = \`Delete all development objects belonging to this package \`
&& \`(and subpackages) from the system, but keep repository in abapGit\`
iv_act = |{ zif_abapgit_definitions=>c_action-repo_delete_objects }?key={ mv_key }| ).
ro_advanced_dropdown->add( iv_txt = ''Uninstall''
iv_title = \`Delete all development objects belonging to this package \`
&& \`(and subpackages) from the system, and remove the repository from abapGit\`
iv_act = |{ zif_abapgit_definitions=>c_action-repo_purge }?key={ mv_key }|
iv_opt = get_crossout(
iv_authorization = zif_abapgit_auth=>c_authorization-uninstall
iv_protected = abap_true ) ).
ENDMETHOD.
METHOD build_branch_dropdown.
CREATE OBJECT ro_branch_dropdown.
IF mo_repo->is_offline( ) = abap_true.
RETURN.
ENDIF.
ro_branch_dropdown->add( iv_txt = ''Switch''
iv_act = |{ zif_abapgit_definitions=>c_action-git_branch_switch }?key={ mv_key }| ).
ro_branch_dropdown->add( iv_txt = ''Create''
iv_act = |{ zif_abapgit_definitions=>c_action-git_branch_create }?key={ mv_key }| ).
ro_branch_dropdown->add( iv_txt = ''Delete''
iv_act = |{ zif_abapgit_definitions=>c_action-git_branch_delete }?key={ mv_key }| ).
ro_branch_dropdown->add( iv_txt = ''Merge''
iv_act = |{ zif_abapgit_definitions=>c_action-git_branch_merge }?key={ mv_key }| ).
ENDMETHOD.
METHOD build_dir_jump_link.
DATA lv_path TYPE string.
DATA lv_encode TYPE string.
DATA li_html TYPE REF TO zif_abapgit_html.
CREATE OBJECT li_html TYPE zcl_abapgit_html.
lv_path = iv_path.
REPLACE FIRST OCCURRENCE OF mv_cur_dir IN lv_path WITH ''''.
lv_encode = zcl_abapgit_html_action_utils=>dir_encode( lv_path ).
" remove leading and trailing / for display
IF lv_path <> ''/''.
IF lv_path(1) = ''/''.
lv_path = lv_path+1.
ENDIF.
IF substring( val = reverse( lv_path )
len = 1 ) = ''/''.
lv_path = substring( val = lv_path
len = strlen( lv_path ) - 1 ).
ENDIF.
ENDIF.
rv_html = li_html->a(
iv_txt = lv_path
iv_act = |{ c_actions-change_dir }?{ lv_encode }| ).
ENDMETHOD.
METHOD build_inactive_object_code.
IF is_item-inactive = abap_true.
rv_inactive_html_code = zcl_abapgit_html=>icon(
iv_name = ''bolt/orange''
iv_hint = ''Object or object part is inactive''
iv_class = ''inactive'' ).
ENDIF.
ENDMETHOD.
METHOD build_main_toolbar.
DATA:
li_log TYPE REF TO zif_abapgit_log.
CREATE OBJECT ro_toolbar EXPORTING iv_id = ''toolbar-repo''.
IF mo_repo->is_offline( ) = abap_false.
" online repo
IF mo_repo_aggregated_state->is_unchanged( ) = abap_false. " Any changes
ro_toolbar->add( iv_txt = ''Pull''
iv_act = |{ zif_abapgit_definitions=>c_action-git_pull }?key={ mv_key }|
iv_opt = get_crossout( iv_protected = abap_true
iv_strong = abap_true ) ).
ro_toolbar->add( iv_txt = ''Stage''
iv_act = |{ zif_abapgit_definitions=>c_action-go_stage }?key={ mv_key }|
iv_opt = zif_abapgit_html=>c_html_opt-strong ).
ro_toolbar->add( iv_txt = ''Patch''
iv_act = |{ zif_abapgit_definitions=>c_action-go_patch }?key={ mv_key }|
iv_opt = zif_abapgit_html=>c_html_opt-strong ).
ro_toolbar->add( iv_txt = ''Diff''
iv_act = |{ zif_abapgit_definitions=>c_action-go_repo_diff }?key={ mv_key }|
iv_opt = zif_abapgit_html=>c_html_opt-strong ).
ENDIF.
li_log = mo_repo->get_log( ).
IF li_log IS BOUND AND li_log->count( ) > 0.
ro_toolbar->add( iv_txt = ''Log''
iv_act = |{ zif_abapgit_definitions=>c_action-repo_log }?key={ mv_key }| ).
ENDIF.
ro_toolbar->add( iv_txt = ''Branch''
io_sub = build_branch_dropdown( ) ).
ro_toolbar->add( iv_txt = ''Tag''
io_sub = build_tag_dropdown( ) ).
ELSE.
" offline repo
IF mo_repo->has_remote_source( ) = abap_true AND mo_repo_aggregated_state->is_unchanged( ) = abap_false.
ro_toolbar->add( iv_txt = ''Pull <sup>zip</sup>''
iv_act = |{ zif_abapgit_definitions=>c_action-git_pull }?key={ mv_key }|
iv_opt = zif_abapgit_html=>c_html_opt-strong ).
ro_toolbar->add( iv_txt = ''Diff''
iv_act = |{ zif_abapgit_definitions=>c_action-go_repo_diff }?key={ mv_key }|
iv_opt = zif_abapgit_html=>c_html_opt-strong ).
ENDIF.
ro_toolbar->add( iv_txt = ''Import <sup>zip</sup>''
iv_act = |{ zif_abapgit_definitions=>c_action-zip_import }?key={ mv_key }|
iv_opt = zif_abapgit_html=>c_html_opt-strong ).
IF mo_repo->get_local_settings( )-write_protected = abap_true.
ro_toolbar->add( iv_txt = ''Compare <sup>rfc</sup>''
iv_act = |{ zif_abapgit_definitions=>c_action-rfc_compare }?key={ mv_key }|
iv_opt = zif_abapgit_html=>c_html_opt-strong ).
ENDIF.
ro_toolbar->add( iv_txt = ''Export <sup>zip</sup>''
iv_act = |{ zif_abapgit_definitions=>c_action-zip_export }?key={ mv_key }|
iv_opt = zif_abapgit_html=>c_html_opt-strong ).
li_log = mo_repo->get_log( ).
IF li_log IS BOUND AND li_log->count( ) > 0.
ro_toolbar->add( iv_txt = ''Log''
iv_act = |{ zif_abapgit_definitions=>c_action-repo_log }?key={ mv_key }| ).
ENDIF.
ENDIF.
ro_toolbar->add( iv_txt = ''Advanced''
io_sub = build_advanced_dropdown( ) ).
ro_toolbar->add( iv_txt = ''View''
io_sub = build_view_dropdown( ) ).
ro_toolbar->add( iv_txt = ''Refresh''
iv_act = |{ zif_abapgit_definitions=>c_action-repo_refresh }?key={ mv_key }|
iv_opt = zif_abapgit_html=>c_html_opt-strong ).
ro_toolbar->add( iv_txt = ''Repo Settings''
iv_act = |{ zif_abapgit_definitions=>c_action-repo_settings }?key={ mv_key }|
iv_opt = zif_abapgit_html=>c_html_opt-strong
iv_title = \`Repository Settings\` ).
ENDMETHOD.
METHOD build_origlang_code.
IF is_item-origlang IS NOT INITIAL AND is_item-origlang <> mo_repo->get_dot_abapgit( )->get_main_language( ).
rv_html_code = zcl_abapgit_html=>icon(
iv_name = ''language-solid/grey''
iv_hint = |Original language: { is_item-origlang }|
iv_class = ''cursor-pointer'' ).
ENDIF.
ENDMETHOD.
METHOD build_srcsystem_code.
IF is_item-srcsystem IS NOT INITIAL AND is_item-srcsystem <> sy-sysid.
rv_srcsystem_html_code = zcl_abapgit_html=>icon(
iv_name = ''server-solid/grey''
iv_hint = |Original system: { is_item-srcsystem }|
iv_class = ''cursor-pointer'' ).
ENDIF.
ENDMETHOD.
METHOD build_tag_dropdown.
CREATE OBJECT ro_tag_dropdown.
IF mo_repo->is_offline( ) = abap_true.
RETURN.
ENDIF.
ro_tag_dropdown->add( iv_txt = ''Switch''
iv_act = |{ zif_abapgit_definitions=>c_action-git_tag_switch }?key={ mv_key }| ).
ro_tag_dropdown->add( iv_txt = ''Create''
iv_act = |{ zif_abapgit_definitions=>c_action-git_tag_create }?key={ mv_key }| ).
ro_tag_dropdown->add( iv_txt = ''Delete''
iv_act = |{ zif_abapgit_definitions=>c_action-git_tag_delete }?key={ mv_key }| ).
ENDMETHOD.
METHOD build_view_dropdown.
CREATE OBJECT ro_toolbar.
ro_toolbar->add(
iv_txt = ''Changes First''
iv_chk = mv_diff_first
iv_act = c_actions-toggle_diff_first ).
ro_toolbar->add(
iv_txt = ''Changes Only''
iv_chk = mv_changes_only
iv_act = c_actions-toggle_changes ).
ro_toolbar->add(
iv_txt = ''File Paths''
iv_chk = boolc( NOT mv_hide_files = abap_true )
iv_act = c_actions-toggle_hide_files ).
ro_toolbar->add(
iv_txt = ''Folders''
iv_chk = mv_show_folders
iv_act = c_actions-toggle_folders ).
ENDMETHOD.
METHOD check_branch.
DATA lo_repo TYPE REF TO zif_abapgit_repo_online.
IF mo_repo->is_offline( ) = abap_false.
lo_repo ?= mo_repo.
lo_repo->check_for_valid_branch( ).
ENDIF.
ENDMETHOD.
METHOD check_connection.
DATA lo_repo TYPE REF TO zif_abapgit_repo_online.
mv_connection_error = abap_true.
IF mo_repo->is_offline( ) = abap_false.
lo_repo ?= mo_repo.
zcl_abapgit_http=>check_connection( lo_repo->get_url( ) ).
ENDIF.
mv_connection_error = abap_false.
ENDMETHOD.
METHOD constructor.
DATA: lo_settings TYPE REF TO zcl_abapgit_settings,
lx_error TYPE REF TO zcx_abapgit_exception,
lo_persistence_user TYPE REF TO zif_abapgit_persist_user.
super->constructor( ).
TRY.
lo_persistence_user = zcl_abapgit_persistence_user=>get_instance( ).
mv_key = iv_key.
mo_repo ?= zcl_abapgit_repo_srv=>get_instance( )->get( iv_key ).
mv_cur_dir = ''/''. " Root
mv_hide_files = lo_persistence_user->get_hide_files( ).
mv_changes_only = lo_persistence_user->get_changes_only( ).
mv_order_by = lo_persistence_user->get_order_by( ).
mv_order_descending = lo_persistence_user->get_order_descending( ).
mv_diff_first = lo_persistence_user->get_diff_first( ).
mv_show_folders = lo_persistence_user->get_show_folders( ).
" Read global settings to get max # of objects to be listed
lo_settings = zcl_abapgit_persist_factory=>get_settings( )->read( ).
mv_max_lines = lo_settings->get_max_lines( ).
mv_max_setting = mv_max_lines.
CATCH zcx_abapgit_exception INTO lx_error.
" Reset ''last shown repo'' so next start will go to repo overview
" and allow troubleshooting of issue
zcl_abapgit_persistence_user=>get_instance( )->set_repo_show( || ).
RAISE EXCEPTION lx_error.
ENDTRY.
ENDMETHOD.
METHOD create.
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_repo_view.
CREATE OBJECT lo_component
EXPORTING
iv_key = iv_key.
ri_page = zcl_abapgit_gui_page_hoc=>create(
iv_page_title = ''Repository''
ii_page_menu_provider = lo_component
ii_child_component = lo_component ).
ENDMETHOD.
METHOD get_crossout.
IF iv_strong = abap_true.
rv_crossout = zif_abapgit_html=>c_html_opt-strong.
ENDIF.
IF iv_protected = abap_true AND mo_repo->get_local_settings( )-write_protected = abap_true.
rv_crossout = zif_abapgit_html=>c_html_opt-crossout.
ENDIF.
IF iv_authorization IS NOT INITIAL AND zcl_abapgit_auth=>is_allowed( iv_authorization ) = abap_false.
rv_crossout = zif_abapgit_html=>c_html_opt-crossout.
ENDIF.
ENDMETHOD.
METHOD get_item_class.
DATA lt_class TYPE TABLE OF string.
IF iv_is_object_row = abap_true.
APPEND ''object_row'' TO lt_class.
ELSE.
APPEND ''file_row'' TO lt_class.
ENDIF.
IF is_item-is_dir = abap_true.
APPEND ''folder'' TO lt_class.
ELSEIF is_item-changes > 0.
APPEND ''modified'' TO lt_class.
ELSEIF is_item-obj_name IS INITIAL.
APPEND ''unsupported'' TO lt_class.
ENDIF.
IF lines( lt_class ) > 0.
rv_html = | class="{ concat_lines_of( table = lt_class
sep = \` \` ) }"|.
ENDIF.
ENDMETHOD.
METHOD is_repo_lang_logon_lang.
rv_repo_lang_is_logon_lang = boolc( mo_repo->get_dot_abapgit( )->get_main_language( ) = sy-langu ).
ENDMETHOD.
METHOD open_in_main_language.
DATA:
lv_main_language TYPE spras,
ls_item TYPE zif_abapgit_definitions=>ty_item,
lv_tcode TYPE tcode.
lv_main_language = mo_repo->get_dot_abapgit( )->get_main_language( ).
lv_tcode = zcl_abapgit_services_abapgit=>get_abapgit_tcode( ).
ASSERT lv_tcode IS NOT INITIAL.
IF lv_main_language = sy-langu.
zcx_abapgit_exception=>raise( |Repo already opened in main language| ).
ENDIF.
ls_item-obj_name = lv_tcode.
ls_item-obj_type = |TRAN|.
IF zcl_abapgit_objects=>exists( ls_item ) = abap_false.
zcx_abapgit_exception=>raise( |Please install the abapGit repository| ).
ENDIF.
zcl_abapgit_objects_factory=>get_gui_jumper( )->jump_abapgit(
iv_language = lv_main_language
iv_key = mo_repo->get_key( ) ).
ENDMETHOD.
METHOD order_files.
DATA:
lt_sort TYPE abap_sortorder_tab,
ls_sort LIKE LINE OF lt_sort.
IF lines( ct_files ) = 0.
RETURN.
ENDIF.
ls_sort-descending = mv_order_descending.
ls_sort-astext = abap_true.
ls_sort-name = ''PATH''.
INSERT ls_sort INTO TABLE lt_sort.
ls_sort-descending = mv_order_descending.
ls_sort-astext = abap_true.
ls_sort-name = ''FILENAME''.
INSERT ls_sort INTO TABLE lt_sort.
SORT ct_files STABLE BY (lt_sort).
ENDMETHOD.
METHOD render_file_command.
DATA: lv_difflink TYPE string.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<div>'' ).
IF is_file-is_changed = abap_true.
lv_difflink = zcl_abapgit_html_action_utils=>file_encode(
iv_key = mo_repo->get_key( )
ig_file = is_file ).
ri_html->add_a( iv_txt = ''diff''
iv_act = |{ zif_abapgit_definitions=>c_action-go_file_diff }?{ lv_difflink }| ).
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_item_state( iv_lstate = is_file-lstate
iv_rstate = is_file-rstate ) ).
ELSE.
ri_html->add( '' '' ).
ENDIF.
ri_html->add( ''</div>'' ).
ENDMETHOD.
METHOD render_head_line.
DATA:
lo_toolbar TYPE REF TO zcl_abapgit_html_toolbar,
ls_settings TYPE zif_abapgit_definitions=>ty_s_user_settings,
lo_label_colors TYPE REF TO zcl_abapgit_string_map,
lt_labels TYPE string_table.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
lo_toolbar = build_main_toolbar( ).
ri_html->add( ''<div class="paddings">'' ).
ri_html->add( ''<table class="w100"><tr>'' ).
IF mv_show_folders = abap_true.
ri_html->add( ''<td class="current_dir">'' ).
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_path( mv_cur_dir ) ).
ri_html->add( ''</td>'' ).
ENDIF.
lt_labels = zcl_abapgit_repo_labels=>split( mo_repo->ms_data-local_settings-labels ).
IF lines( lt_labels ) > 0.
ls_settings = zcl_abapgit_persist_factory=>get_settings( )->read( )->get_user_settings( ).
lo_label_colors = zcl_abapgit_repo_labels=>split_colors_into_map( ls_settings-label_colors ).
ri_html->td(
iv_content = zcl_abapgit_gui_chunk_lib=>render_label_list(
it_labels = lt_labels
io_label_colors = lo_label_colors )
iv_class = ''labels'' ).
ENDIF.
ri_html->add( ''<td class="right">'' ).
ri_html->add( lo_toolbar->render( iv_right = abap_true ) ).
ri_html->add( ''</td>'' ).
ri_html->add( ''</tr></table>'' ).
ri_html->add( ''</div>'' ).
ENDMETHOD.
METHOD render_item.
DATA: lv_link TYPE string.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( |<tr{ get_item_class( is_item = is_item
iv_is_object_row = abap_true ) }>| ).
IF is_item-obj_name IS INITIAL AND is_item-is_dir = abap_false.
ri_html->add( |<td colspan="2"></td>|
&& ''<td class="object">''
&& ''<i class="grey">non-code and meta files</i>''
&& ''</td>'' ).
ELSE.
ri_html->add( |<td class="icon">{ zcl_abapgit_gui_chunk_lib=>get_item_icon( is_item ) }</td>| ).
IF is_item-is_dir = abap_true. " Subdir
lv_link = build_dir_jump_link( is_item-path ).
ri_html->add( |<td class="dir" colspan="2">{ lv_link }</td>| ).
ELSE.
lv_link = zcl_abapgit_gui_chunk_lib=>get_item_link( is_item ).
ri_html->add( |<td class="type">{ is_item-obj_type }</td>| ).
ri_html->add( |<td class="object">{ lv_link } { build_inactive_object_code( is_item )
} { build_srcsystem_code( is_item ) } { build_origlang_code( is_item ) }</td>| ).
ENDIF.
ENDIF.
" Changed by
ri_html->add( ''<td class="user">'' ).
ri_html->add( render_item_changed_by( is_item ) ).
ri_html->add( ''</td>'' ).
IF iv_render_transports = abap_true.
ri_html->add( render_item_transport( is_item ) ).
ENDIF.
" Command
ri_html->add( ''<td class="cmd">'' ).
IF mo_repo->has_remote_source( ) = abap_true.
ri_html->add( render_item_command( is_item ) ).
ENDIF.
ri_html->add( ''</td>'' ).
ri_html->add( ''</tr>'' ).
ri_html->add( render_item_files( is_item ) ).
ENDMETHOD.
METHOD render_item_changed_by.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
IF is_item-changes = 0 OR is_item-changed_by IS INITIAL.
ri_html->add( '' '' ).
ELSE.
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_user_name( is_item-changed_by ) ).
ENDIF.
ENDMETHOD.
METHOD render_item_command.
DATA lv_difflink TYPE string.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
IF is_item-is_dir = abap_true. " Directory
ri_html->add( ''<div>'' ).
ri_html->add( |<span class="grey">{ is_item-changes } changes</span>| ).
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_item_state( iv_lstate = is_item-lstate
iv_rstate = is_item-rstate ) ).
ri_html->add( ''</div>'' ).
ELSEIF is_item-changes > 0.
IF mv_hide_files = abap_true AND is_item-obj_name IS NOT INITIAL.
lv_difflink = zcl_abapgit_html_action_utils=>obj_encode(
iv_key = mo_repo->get_key( )
ig_object = is_item ).
ri_html->add( ''<div>'' ).
ri_html->add_a( iv_txt = |diff ({ is_item-changes })|
iv_act = |{ zif_abapgit_definitions=>c_action-go_file_diff }?{ lv_difflink }| ).
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_item_state( iv_lstate = is_item-lstate
iv_rstate = is_item-rstate ) ).
ri_html->add( ''</div>'' ).
ENDIF.
ENDIF.
ENDMETHOD.
METHOD render_item_files.
DATA: ls_file LIKE LINE OF is_item-files.
DATA li_exit TYPE REF TO zif_abapgit_exit.
DATA lv_filename TYPE string.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
IF mv_hide_files = abap_true AND is_item-obj_type IS NOT INITIAL.
RETURN.
ENDIF.
li_exit = zcl_abapgit_exit=>get_instance( ).
LOOP AT is_item-files INTO ls_file.
ri_html->add( |<tr{ get_item_class( is_item ) }>| ).
ri_html->add( |<td class="icon"></td>| ).
ri_html->add( |<td class="type"></td>| ).
ri_html->add( |<td class="filename darkgrey">| ).
IF mv_show_folders = abap_true.
lv_filename = ls_file-filename.
ELSE.
lv_filename = ls_file-path && ls_file-filename.
ENDIF.
lv_filename = li_exit->adjust_display_filename(
is_repo_meta = mo_repo->ms_data
iv_filename = lv_filename ).
ri_html->add( |<div>{ lv_filename }</div>| ).
ri_html->add( |</td>| ).
" Changed by (not applicable to file)
ri_html->add( ''<td class="user">'' ).
ri_html->add( ''</td>'' ).
" Transport (not applicable to file)
IF mv_are_changes_recorded_in_tr = abap_true.
ri_html->add( \`<td></td>\` ).
ENDIF.
" Command
ri_html->add( ''<td class="cmd">'' ).
IF mo_repo->has_remote_source( ) = abap_true.
ri_html->add( render_file_command( ls_file ) ).
ENDIF.
ri_html->add( ''</td>'' ).
ri_html->add( ''</tr>'' ).
ENDLOOP.
ENDMETHOD.
METHOD render_item_transport.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<td class="transport">'' ).
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_transport( is_item-transport ) ).
ri_html->add( ''</td>'' ).
ENDMETHOD.
METHOD render_parent_dir.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<tr class="folder">'' ).
ri_html->add( |<td class="icon">{ ri_html->icon( ''folder'' ) }</td>| ).
ri_html->add( |<td class="dir" colspan="4">{ build_dir_jump_link( ''..'' ) }</td>| ).
IF mo_repo->has_remote_source( ) = abap_true.
ri_html->add( |<td colspan="1"></td>| ). " Dummy for online
ENDIF.
ri_html->add( ''</tr>'' ).
ENDMETHOD.
METHOD render_scripts.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->set_title( cl_abap_typedescr=>describe_by_object_ref( me )->get_relative_name( ) ).
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_repo_palette(
iv_action = zif_abapgit_definitions=>c_action-go_repo ) ).
ENDMETHOD.
METHOD render_table_footer.
DATA lv_action TYPE string.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
IF mv_changes_only = abap_true.
lv_action = ri_html->a(
iv_txt = ''Show All''
iv_act = c_actions-toggle_changes ).
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_table_footer( |(Only changes are shown. { lv_action })| ) ).
ENDIF.
ENDMETHOD.
METHOD render_table_header.
DATA:
lt_col_spec TYPE zif_abapgit_definitions=>ty_col_spec_tt,
ls_col_spec TYPE zif_abapgit_definitions=>ty_col_spec.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
" icon
APPEND INITIAL LINE TO lt_col_spec.
ls_col_spec-tech_name = ''OBJ_TYPE''.
ls_col_spec-display_name = ''Type''.
ls_col_spec-allow_order_by = abap_true.
APPEND ls_col_spec TO lt_col_spec.
ls_col_spec-tech_name = ''OBJ_NAME''.
ls_col_spec-display_name = ''Name''.
ls_col_spec-allow_order_by = abap_true.
APPEND ls_col_spec TO lt_col_spec.
ls_col_spec-tech_name = ''CHANGED_BY''.
ls_col_spec-display_name = ''Changed by''.
ls_col_spec-allow_order_by = abap_true.
APPEND ls_col_spec TO lt_col_spec.
IF mv_are_changes_recorded_in_tr = abap_true.
ls_col_spec-tech_name = ''TRANSPORT''.
ls_col_spec-display_name = ''Transport''.
ls_col_spec-allow_order_by = abap_true.
APPEND ls_col_spec TO lt_col_spec.
ENDIF.
ls_col_spec-tech_name = ''LSTATE''.
ls_col_spec-display_name = ''Status''.
ls_col_spec-allow_order_by = abap_true.
ls_col_spec-css_class = ''cmd''.
APPEND ls_col_spec TO lt_col_spec.
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_table_header(
it_col_spec = lt_col_spec
iv_order_by = mv_order_by
iv_order_descending = mv_order_descending ) ).
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
DATA lv_path TYPE string.
DATA lv_key TYPE zif_abapgit_persistence=>ty_value.
lv_key = ii_event->query( )->get( ''KEY'' ).
CASE ii_event->mv_action.
WHEN zif_abapgit_definitions=>c_action-go_repo. " Switch to another repo
rs_handled-page = create( lv_key ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page_replacing.
WHEN c_actions-go_data.
rs_handled-page = zcl_abapgit_gui_page_data=>create( lv_key ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
WHEN c_actions-go_unit.
rs_handled-page = zcl_abapgit_gui_page_runit=>create( mo_repo ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
WHEN c_actions-toggle_hide_files. " Toggle file display
mv_hide_files = zcl_abapgit_persistence_user=>get_instance( )->toggle_hide_files( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN c_actions-change_dir. " Change dir
lv_path = ii_event->query( )->get( ''PATH'' ).
mv_cur_dir = zcl_abapgit_path=>change_dir(
iv_cur_dir = mv_cur_dir
iv_cd = lv_path ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN c_actions-toggle_folders. " Toggle folder view
mv_show_folders = zcl_abapgit_persistence_user=>get_instance( )->toggle_show_folders( ).
mv_cur_dir = ''/''. " Root
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN c_actions-toggle_changes. " Toggle changes only view
mv_changes_only = zcl_abapgit_persistence_user=>get_instance( )->toggle_changes_only( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN c_actions-toggle_diff_first.
mv_diff_first = zcl_abapgit_persistence_user=>get_instance( )->set_diff_first(
boolc( mv_diff_first = abap_false ) ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN c_actions-display_more. " Increase MAX lines limit
mv_max_lines = mv_max_lines + mv_max_setting.
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN zif_abapgit_definitions=>c_action-change_order_by.
mv_order_by = zcl_abapgit_persistence_user=>get_instance( )->set_order_by(
ii_event->query( )->get( ''ORDERBY'' ) ).
mv_order_descending = zcl_abapgit_persistence_user=>get_instance( )->set_order_descending( abap_false ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN zif_abapgit_definitions=>c_action-direction.
mv_order_descending = zcl_abapgit_persistence_user=>get_instance( )->set_order_descending(
boolc( ii_event->query( )->get( ''DIRECTION'' ) = ''DESCENDING'' ) ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN zif_abapgit_definitions=>c_action-repo_open_in_master_lang.
open_in_main_language( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_gui_hotkeys~get_hotkey_actions.
DATA: ls_hotkey_action LIKE LINE OF rt_hotkey_actions.
ls_hotkey_action-ui_component = ''Repo''.
ls_hotkey_action-description = |Stage|.
ls_hotkey_action-action = zif_abapgit_definitions=>c_action-go_stage.
ls_hotkey_action-hotkey = |s|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ls_hotkey_action-description = |Switch Branch|.
ls_hotkey_action-action = zif_abapgit_definitions=>c_action-git_branch_switch.
ls_hotkey_action-hotkey = |b|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ls_hotkey_action-description = |Repository List|.
ls_hotkey_action-action = zif_abapgit_definitions=>c_action-abapgit_home.
ls_hotkey_action-hotkey = |o|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ls_hotkey_action-description = |Refresh Repository|.
ls_hotkey_action-action = zif_abapgit_definitions=>c_action-repo_refresh.
ls_hotkey_action-hotkey = |r|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ls_hotkey_action-description = |Pull|.
ls_hotkey_action-action = zif_abapgit_definitions=>c_action-git_pull.
ls_hotkey_action-hotkey = |p|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ls_hotkey_action-description = |Patch|.
ls_hotkey_action-action = zif_abapgit_definitions=>c_action-go_patch.
ls_hotkey_action-hotkey = |a|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ls_hotkey_action-description = |Diff|.
ls_hotkey_action-action = zif_abapgit_definitions=>c_action-go_repo_diff.
ls_hotkey_action-hotkey = |d|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ls_hotkey_action-description = |Uninstall Repository|.
ls_hotkey_action-action = zif_abapgit_definitions=>c_action-repo_purge.
ls_hotkey_action-hotkey = |u|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ls_hotkey_action-description = |Run Syntax Check|.
ls_hotkey_action-action = zif_abapgit_definitions=>c_action-repo_syntax_check.
ls_hotkey_action-hotkey = |c|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ls_hotkey_action-description = |Run Unit Tests|.
ls_hotkey_action-action = c_actions-go_unit.
ls_hotkey_action-hotkey = |t|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ls_hotkey_action-description = |Run Code Inspector|.
ls_hotkey_action-action = zif_abapgit_definitions=>c_action-repo_code_inspector.
ls_hotkey_action-hotkey = |i|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ls_hotkey_action-description = |Show Log|.
ls_hotkey_action-action = zif_abapgit_definitions=>c_action-repo_log.
ls_hotkey_action-hotkey = |l|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ENDMETHOD.
METHOD zif_abapgit_gui_menu_provider~get_menu.
CREATE OBJECT ro_toolbar EXPORTING iv_id = ''toolbar-main''.
ro_toolbar->add(
iv_txt = zcl_abapgit_gui_buttons=>repo_list( )
iv_act = zif_abapgit_definitions=>c_action-abapgit_home
)->add(
iv_txt = zcl_abapgit_gui_buttons=>help( )
io_sub = zcl_abapgit_gui_menus=>help( ) ).
zcl_abapgit_gui_menus=>experimental( ro_toolbar ).
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
DATA: lt_repo_items TYPE zif_abapgit_definitions=>ty_repo_item_tt,
lo_browser TYPE REF TO zcl_abapgit_repo_content_list,
lx_error TYPE REF TO zcx_abapgit_exception,
lv_max TYPE abap_bool,
lv_max_str TYPE string,
lv_add_str TYPE string,
li_log TYPE REF TO zif_abapgit_log,
lv_msg TYPE string,
lo_news TYPE REF TO zcl_abapgit_repo_news.
FIELD-SYMBOLS <ls_item> LIKE LINE OF lt_repo_items.
register_handlers( ).
CREATE OBJECT mo_repo_aggregated_state.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
TRY.
" Reinit, for the case of type change
mo_repo ?= zcl_abapgit_repo_srv=>get_instance( )->get( mo_repo->get_key( ) ).
IF mv_connection_error = abap_true.
" If connection doesn''t work, render a minimal header
ri_html->add( |<div class="repo" id="repo{ mv_key }">| ).
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_repo_top(
io_repo = mo_repo
iv_show_edit = abap_true
iv_show_branch = abap_false
iv_show_commit = abap_false
iv_interactive_branch = abap_false ) ).
ri_html->add( ''</div>'' ).
ri_html->add( render_head_line( ) ).
" Reset error flag to try connecting again next time
CLEAR mv_connection_error.
RETURN.
ENDIF.
check_connection( ).
check_branch( ).
mv_are_changes_recorded_in_tr = zcl_abapgit_factory=>get_sap_package( mo_repo->get_package( )
)->are_changes_recorded_in_tr_req( ).
lo_news = zcl_abapgit_repo_news=>create( mo_repo ).
ri_html->add( |<div class="repo" id="repo{ mv_key }">| ).
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_repo_top(
io_repo = mo_repo
io_news = lo_news
iv_show_edit = abap_true
iv_interactive_branch = abap_true ) ).
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_news( io_news = lo_news ) ).
zcl_abapgit_exit=>get_instance( )->wall_message_repo(
is_repo_meta = mo_repo->ms_data
ii_html = ri_html ).
CREATE OBJECT lo_browser
EXPORTING
io_repo = mo_repo.
lt_repo_items = lo_browser->list( iv_path = mv_cur_dir
iv_by_folders = mv_show_folders
iv_changes_only = mv_changes_only
iv_transports = mv_are_changes_recorded_in_tr ).
apply_order_by( CHANGING ct_repo_items = lt_repo_items ).
LOOP AT lt_repo_items ASSIGNING <ls_item>.
mo_repo_aggregated_state->sum_with_repo_item( <ls_item> ).
ENDLOOP.
ri_html->add( render_head_line( ) ).
li_log = lo_browser->get_log( ).
IF li_log->count( ) > 0.
ri_html->add( ''<div class="log">'' ).
ri_html->add( zcl_abapgit_log_viewer=>to_html( li_log ) ). " shows eg. list of unsupported objects
ri_html->add( ''</div>'' ).
ENDIF.
ri_html->add( ''<div class="repo_container">'' ).
CLEAR lv_msg.
IF lines( lt_repo_items ) = 0.
IF mv_changes_only = abap_true.
IF mo_repo->is_offline( ) = abap_true.
" Offline match banner
IF mo_repo->has_remote_source( ) = abap_true.
lv_msg = ''Local state completely <b>matches</b> the ZIP file''.
ELSE.
lv_msg = ''Import a ZIP file to see if there are any changes''.
ENDIF.
ELSE.
" Online match banner
lv_msg = ''Local state completely <b>matches</b> the remote repository''.
ENDIF.
ELSE.
lv_msg = |Package is empty. Show { build_dir_jump_link( ''parent'' ) } package|.
ENDIF.
ELSE.
" Repo content table
ri_html->add( ''<table class="repo_tab">'' ).
ri_html->add( render_table_header( ) ).
IF zcl_abapgit_path=>is_root( mv_cur_dir ) = abap_false.
ri_html->add( render_parent_dir( ) ).
ENDIF.
LOOP AT lt_repo_items ASSIGNING <ls_item>.
IF mv_max_lines > 0 AND sy-tabix > mv_max_lines.
lv_max = abap_true.
EXIT. " current loop
ENDIF.
ri_html->add( render_item( is_item = <ls_item>
iv_render_transports = mv_are_changes_recorded_in_tr ) ).
ENDLOOP.
ri_html->add( render_table_footer( ) ).
ri_html->add( ''</table>'' ).
ENDIF.
IF NOT lv_msg IS INITIAL.
ri_html->add( |<div class="panel success repo_banner">{ lv_msg }</div>| ).
ENDIF.
IF lv_max = abap_true.
ri_html->add( ''<div class = "dummydiv">'' ).
IF mv_max_lines = 1.
lv_max_str = ''1 object''.
ELSE.
lv_max_str = |first { mv_max_lines } objects|.
ENDIF.
lv_add_str = |+{ mv_max_setting }|.
ri_html->add( |Only { lv_max_str } objects shown in list. Display {
ri_html->a( iv_txt = lv_add_str
iv_act = c_actions-display_more )
} more (change in Settings > {
ri_html->a( iv_txt = ''Personal Settings''
iv_act = zif_abapgit_definitions=>c_action-go_settings_personal )
})| ).
ri_html->add( ''</div>'' ).
ENDIF.
ri_html->add( ''</div>'' ).
ri_html->add( ''</div>'' ).
CATCH zcx_abapgit_exception INTO lx_error.
" Reset ''last shown repo'' so next start will go to repo overview
" and allow troubleshooting of issue
zcl_abapgit_persistence_user=>get_instance( )->set_repo_show( || ).
RAISE EXCEPTION lx_error.
ENDTRY.
register_deferred_script( render_scripts( ) ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_RUN_BCKG ', 'CLASS zcl_abapgit_gui_page_run_bckg DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_component
FINAL
CREATE PRIVATE .
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_event_handler .
INTERFACES zif_abapgit_gui_renderable .
CLASS-METHODS create
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception .
METHODS constructor
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
PRIVATE SECTION.
DATA: mt_text TYPE TABLE OF string.
METHODS run.
ENDCLASS.
CLASS zcl_abapgit_gui_page_run_bckg IMPLEMENTATION.
METHOD constructor.
super->constructor( ).
ENDMETHOD.
METHOD create.
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_run_bckg.
CREATE OBJECT lo_component.
ri_page = zcl_abapgit_gui_page_hoc=>create(
iv_page_title = ''Background Run''
io_page_menu = zcl_abapgit_gui_menus=>back( )
ii_child_component = lo_component ).
ENDMETHOD.
METHOD run.
DATA: lx_error TYPE REF TO zcx_abapgit_exception,
lv_text TYPE string,
lv_line TYPE i VALUE 1.
TRY.
zcl_abapgit_background=>run( ).
DO.
READ LINE lv_line LINE VALUE INTO lv_text.
IF sy-subrc <> 0.
EXIT.
ENDIF.
APPEND lv_text TO mt_text.
lv_line = lv_line + 1.
ENDDO.
CATCH zcx_abapgit_exception INTO lx_error.
APPEND lx_error->get_text( ) TO mt_text.
ENDTRY.
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
rs_handled-state = zcl_abapgit_gui=>c_event_state-go_back.
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
DATA: lv_text LIKE LINE OF mt_text.
register_handlers( ).
run( ).
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<div id="toc">'' ).
LOOP AT mt_text INTO lv_text.
ri_html->add( ''<pre>'' && lv_text && ''</pre><br>'' ).
ENDLOOP.
ri_html->add( ''</div>'' ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_STAGE ', 'CLASS zcl_abapgit_gui_page_stage DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_component
FINAL
CREATE PRIVATE.
PUBLIC SECTION.
INTERFACES:
zif_abapgit_gui_event_handler,
zif_abapgit_gui_hotkeys,
zif_abapgit_gui_menu_provider,
zif_abapgit_gui_renderable.
CONSTANTS: BEGIN OF c_action,
stage_refresh TYPE string VALUE ''stage_refresh'',
stage_all TYPE string VALUE ''stage_all'',
stage_commit TYPE string VALUE ''stage_commit'',
stage_filter TYPE string VALUE ''stage_filter'',
END OF c_action.
CLASS-METHODS create
IMPORTING
io_repo TYPE REF TO zcl_abapgit_repo_online
iv_seed TYPE string OPTIONAL
iv_sci_result TYPE zif_abapgit_definitions=>ty_sci_result DEFAULT zif_abapgit_definitions=>c_sci_result-no_run
ii_obj_filter TYPE REF TO zif_abapgit_object_filter OPTIONAL
ii_force_refresh TYPE abap_bool DEFAULT abap_true
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception.
METHODS constructor
IMPORTING
io_repo TYPE REF TO zcl_abapgit_repo_online
iv_seed TYPE string OPTIONAL
iv_sci_result TYPE zif_abapgit_definitions=>ty_sci_result DEFAULT zif_abapgit_definitions=>c_sci_result-no_run
ii_obj_filter TYPE REF TO zif_abapgit_object_filter OPTIONAL
ii_force_refresh TYPE abap_bool DEFAULT abap_true
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
TYPES:
BEGIN OF ty_changed_by,
item TYPE zif_abapgit_definitions=>ty_item,
filename TYPE string,
name TYPE syuname,
END OF ty_changed_by .
TYPES:
ty_changed_by_tt TYPE SORTED TABLE OF ty_changed_by WITH UNIQUE KEY item filename.
DATA mo_repo TYPE REF TO zcl_abapgit_repo_online .
DATA ms_files TYPE zif_abapgit_definitions=>ty_stage_files .
DATA mv_seed TYPE string . " Unique page id to bind JS sessionStorage
DATA mv_filter_value TYPE string .
DATA mv_sci_result TYPE zif_abapgit_definitions=>ty_sci_result.
DATA mi_obj_filter TYPE REF TO zif_abapgit_object_filter.
METHODS check_selected
IMPORTING
!io_files TYPE REF TO zcl_abapgit_string_map
RAISING
zcx_abapgit_exception .
METHODS find_changed_by
IMPORTING
!it_files TYPE zif_abapgit_definitions=>ty_stage_files
!it_transports TYPE zif_abapgit_cts_api=>ty_transport_list
RETURNING
VALUE(rt_changed_by) TYPE ty_changed_by_tt .
METHODS find_transports
IMPORTING
!it_files TYPE zif_abapgit_definitions=>ty_stage_files
RETURNING
VALUE(rt_transports) TYPE zif_abapgit_cts_api=>ty_transport_list .
METHODS render_list
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
METHODS render_file
IMPORTING
!iv_context TYPE string
!is_file TYPE zif_abapgit_git_definitions=>ty_file
!is_item TYPE zif_abapgit_definitions=>ty_item OPTIONAL
!is_status TYPE zif_abapgit_definitions=>ty_result
!iv_changed_by TYPE syuname OPTIONAL
!iv_transport TYPE trkorr OPTIONAL
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
METHODS render_actions
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html .
METHODS stage_selected
IMPORTING
!ii_event TYPE REF TO zif_abapgit_gui_event
RETURNING
VALUE(ro_stage) TYPE REF TO zcl_abapgit_stage
RAISING
zcx_abapgit_exception .
METHODS stage_all
RETURNING
VALUE(ro_stage) TYPE REF TO zcl_abapgit_stage
RAISING
zcx_abapgit_exception .
METHODS get_page_patch
IMPORTING
!io_stage TYPE REF TO zcl_abapgit_stage
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception .
METHODS render_main_language_warning
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html .
METHODS count_default_files_to_commit
RETURNING
VALUE(rv_count) TYPE i .
METHODS render_deferred_hidden_events
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html .
METHODS render_scripts
RETURNING
VALUE(ri_html) TYPE REF TO zif_abapgit_html
RAISING
zcx_abapgit_exception .
METHODS init_files
RAISING
zcx_abapgit_exception .
ENDCLASS.
CLASS ZCL_ABAPGIT_GUI_PAGE_STAGE IMPLEMENTATION.
METHOD check_selected.
DATA:
ls_file TYPE zif_abapgit_git_definitions=>ty_file,
lv_pattern TYPE string,
lv_msg TYPE string.
FIELD-SYMBOLS:
<ls_item> LIKE LINE OF io_files->mt_entries,
<ls_item_chk> LIKE LINE OF io_files->mt_entries.
" Check all added files if the exist in different paths (packages) without being removed
LOOP AT io_files->mt_entries ASSIGNING <ls_item> WHERE v = zif_abapgit_definitions=>c_method-add.
zcl_abapgit_path=>split_file_location(
EXPORTING
iv_fullpath = to_lower( <ls_item>-k )
IMPORTING
ev_path = ls_file-path
ev_filename = ls_file-filename ).
" Skip packages since they all have identical filenames
IF ls_file-filename <> ''package.devc.xml''.
lv_pattern = ''*/'' && to_upper( ls_file-filename ).
REPLACE ALL OCCURRENCES OF ''#'' IN lv_pattern WITH ''##''. " for CP
LOOP AT io_files->mt_entries ASSIGNING <ls_item_chk>
WHERE k CP lv_pattern AND k <> <ls_item>-k AND v <> zif_abapgit_definitions=>c_method-rm.
lv_msg = |In order to add { to_lower( <ls_item>-k ) }, | &&
|you have to remove { to_lower( <ls_item_chk>-k ) }|.
zcx_abapgit_exception=>raise( lv_msg ).
ENDLOOP.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD constructor.
DATA lv_ts TYPE timestamp.
super->constructor( ).
" force refresh on stage, to make sure the latest local and remote files are used
IF ii_force_refresh = abap_true.
io_repo->refresh( ).
ENDIF.
mo_repo = io_repo.
mv_seed = iv_seed.
mv_sci_result = iv_sci_result.
mi_obj_filter = ii_obj_filter.
IF mv_seed IS INITIAL. " Generate based on time unless obtained from diff page
GET TIME STAMP FIELD lv_ts.
mv_seed = |stage{ lv_ts }|.
ENDIF.
init_files( ).
ENDMETHOD.
METHOD count_default_files_to_commit.
FIELD-SYMBOLS <ls_status> LIKE LINE OF ms_files-status.
FIELD-SYMBOLS <ls_remote> LIKE LINE OF ms_files-remote.
rv_count = lines( ms_files-local ).
LOOP AT ms_files-remote ASSIGNING <ls_remote>.
READ TABLE ms_files-status ASSIGNING <ls_status>
WITH TABLE KEY
path = <ls_remote>-path
filename = <ls_remote>-filename.
ASSERT sy-subrc = 0.
IF <ls_status>-lstate = zif_abapgit_definitions=>c_state-deleted
AND <ls_status>-rstate = zif_abapgit_definitions=>c_state-unchanged.
rv_count = rv_count + 1.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD create.
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_stage.
CREATE OBJECT lo_component
EXPORTING
io_repo = io_repo
iv_seed = iv_seed
iv_sci_result = iv_sci_result
ii_force_refresh = ii_force_refresh
ii_obj_filter = ii_obj_filter.
ri_page = zcl_abapgit_gui_page_hoc=>create(
iv_page_title = ''Stage''
ii_page_menu_provider = lo_component
ii_child_component = lo_component ).
ENDMETHOD.
METHOD find_changed_by.
DATA: ls_local LIKE LINE OF it_files-local,
ls_remote LIKE LINE OF it_files-remote,
ls_changed_by LIKE LINE OF rt_changed_by,
lt_changed_by_remote LIKE rt_changed_by,
ls_item TYPE zif_abapgit_definitions=>ty_item,
lv_transport LIKE LINE OF it_transports,
lv_user TYPE uname.
FIELD-SYMBOLS <ls_changed_by> LIKE LINE OF lt_changed_by_remote.
LOOP AT it_files-local INTO ls_local WHERE NOT item IS INITIAL.
ls_changed_by-item = ls_local-item.
ls_changed_by-filename = ls_local-file-filename.
ls_changed_by-name = zcl_abapgit_objects=>changed_by(
is_item = ls_local-item
iv_filename = ls_local-file-filename ).
INSERT ls_changed_by INTO TABLE rt_changed_by.
ENDLOOP.
LOOP AT it_files-remote INTO ls_remote WHERE filename IS NOT INITIAL.
TRY.
zcl_abapgit_filename_logic=>file_to_object(
EXPORTING
iv_filename = ls_remote-filename
iv_path = ls_remote-path
io_dot = mo_repo->get_dot_abapgit( )
IMPORTING
es_item = ls_item ).
ls_changed_by-item = ls_item.
INSERT ls_changed_by INTO TABLE lt_changed_by_remote.
CATCH zcx_abapgit_exception.
ENDTRY.
ENDLOOP.
LOOP AT lt_changed_by_remote ASSIGNING <ls_changed_by>.
" deleted files might still be in a transport
CLEAR lv_transport.
READ TABLE it_transports WITH KEY
obj_type = <ls_changed_by>-item-obj_type
obj_name = <ls_changed_by>-item-obj_name
INTO lv_transport.
IF sy-subrc = 0.
lv_user = zcl_abapgit_factory=>get_cts_api( )->read_user( lv_transport-trkorr ).
IF lv_user IS NOT INITIAL.
<ls_changed_by>-name = lv_user.
ENDIF.
ENDIF.
IF <ls_changed_by>-name IS INITIAL.
<ls_changed_by>-name = zcl_abapgit_objects_super=>c_user_unknown.
ENDIF.
ENDLOOP.
INSERT LINES OF lt_changed_by_remote INTO TABLE rt_changed_by.
ENDMETHOD.
METHOD find_transports.
DATA li_cts_api TYPE REF TO zif_abapgit_cts_api.
DATA lt_items TYPE zif_abapgit_definitions=>ty_items_tt.
DATA ls_item TYPE zif_abapgit_definitions=>ty_item.
DATA lo_dot TYPE REF TO zcl_abapgit_dot_abapgit.
FIELD-SYMBOLS <ls_local> LIKE LINE OF it_files-local.
FIELD-SYMBOLS <ls_remote> LIKE LINE OF it_files-remote.
li_cts_api = zcl_abapgit_factory=>get_cts_api( ).
TRY.
LOOP AT it_files-local ASSIGNING <ls_local> WHERE item IS NOT INITIAL.
IF li_cts_api->is_chrec_possible_for_package( <ls_local>-item-devclass ) = abap_false.
RETURN. " Assume all other objects are also in packages without change recording
ENDIF.
APPEND <ls_local>-item TO lt_items.
ENDLOOP.
lo_dot = mo_repo->get_dot_abapgit( ).
LOOP AT it_files-remote ASSIGNING <ls_remote> WHERE filename IS NOT INITIAL.
zcl_abapgit_filename_logic=>file_to_object(
EXPORTING
iv_filename = <ls_remote>-filename
iv_path = <ls_remote>-path
io_dot = lo_dot
IMPORTING
es_item = ls_item ).
IF ls_item IS INITIAL.
CONTINUE.
ENDIF.
APPEND ls_item TO lt_items.
ENDLOOP.
SORT lt_items BY obj_type obj_name.
DELETE ADJACENT DUPLICATES FROM lt_items COMPARING obj_type obj_name.
rt_transports = li_cts_api->get_transports_for_list( lt_items ).
CATCH zcx_abapgit_exception.
ENDTRY.
ENDMETHOD.
METHOD get_page_patch.
DATA: lv_key TYPE zif_abapgit_persistence=>ty_repo-key,
lt_files TYPE zif_abapgit_definitions=>ty_stage_tt.
lv_key = mo_repo->get_key( ).
lt_files = io_stage->get_all( ).
DELETE lt_files WHERE method <> zif_abapgit_definitions=>c_method-add
AND method <> zif_abapgit_definitions=>c_method-rm.
ri_page = zcl_abapgit_gui_page_patch=>create(
iv_key = lv_key
it_files = lt_files ).
ENDMETHOD.
METHOD init_files.
ms_files = zcl_abapgit_factory=>get_stage_logic( )->get( io_repo = mo_repo
ii_obj_filter = mi_obj_filter ).
IF lines( ms_files-local ) = 0 AND lines( ms_files-remote ) = 0.
mo_repo->refresh( ).
zcx_abapgit_exception=>raise( ''There are no changes that could be staged'' ).
ENDIF.
ENDMETHOD.
METHOD render_actions.
DATA: lv_local_count TYPE i,
lv_add_all_txt TYPE string.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
lv_local_count = count_default_files_to_commit( ).
IF lv_local_count > 0.
lv_add_all_txt = |Add All and Commit ({ lv_local_count })|.
" Otherwise empty, but the element (id) is preserved for JS
ENDIF.
ri_html->add( ''<table class="w100 margin-v5"><tr>'' ).
" Action buttons
ri_html->add( ''<td class="indent5em">'' ).
ri_html->add_a( iv_act = ''errorStub(event)'' " Will be reinit by JS
iv_typ = zif_abapgit_html=>c_action_type-onclick
iv_id = ''commitSelectedButton''
iv_style = ''display: none''
iv_txt = ''Commit Selected (<span class="counter"></span>)''
iv_opt = zif_abapgit_html=>c_html_opt-strong ).
ri_html->add_a( iv_act = ''errorStub(event)'' " Will be reinit by JS
iv_typ = zif_abapgit_html=>c_action_type-onclick
iv_id = ''commitFilteredButton''
iv_style = ''display: none''
iv_txt = ''Add <b>Filtered</b> and Commit (<span class="counter"></span>)'' ).
ri_html->add_a( iv_act = |{ c_action-stage_all }|
iv_id = ''commitAllButton''
iv_txt = lv_add_all_txt ).
ri_html->add( ''</td>'' ).
" Filter bar
ri_html->add( ''<td class="right">'' ).
ri_html->add( ''<input class="stage-filter" id="objectSearch"'' &&
'' type="search" placeholder="Filter Objects"'' &&
| value="{ mv_filter_value }">| ).
zcl_abapgit_gui_chunk_lib=>render_sci_result(
ii_html = ri_html
iv_sci_result = mv_sci_result ).
ri_html->add( ''</td>'' ).
ri_html->add( ''</tr>'' ).
ri_html->add( ''</table>'' ).
ENDMETHOD.
METHOD render_deferred_hidden_events.
DATA ls_event TYPE zcl_abapgit_gui_chunk_lib=>ty_event_signature.
ls_event-method = ''post''.
ls_event-name = ''stage_commit''.
ri_html = zcl_abapgit_gui_chunk_lib=>render_event_as_form( ls_event ).
ri_html->set_title( cl_abap_typedescr=>describe_by_object_ref( me )->get_relative_name( ) ).
ENDMETHOD.
METHOD render_file.
DATA: lv_param TYPE string,
lv_filename TYPE string.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
lv_filename = is_file-path && is_file-filename.
" make sure whitespace is preserved in the DOM
REPLACE ALL OCCURRENCES OF \` \` IN lv_filename WITH '' ''.
ri_html->add( |<tr class="{ iv_context }">| ).
ri_html->add( ''<td>'' ).
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_item_state(
iv_lstate = is_status-lstate
iv_rstate = is_status-rstate ) ).
ri_html->add( ''</td>'' ).
CASE iv_context.
WHEN ''local''.
lv_param = zcl_abapgit_html_action_utils=>file_encode(
iv_key = mo_repo->get_key( )
ig_file = is_file ).
lv_filename = ri_html->a(
iv_txt = lv_filename
iv_act = |{ zif_abapgit_definitions=>c_action-go_file_diff }?{ lv_param }| ).
ri_html->add( |<td class="type">{ is_item-obj_type }</td>| ).
ri_html->add( |<td class="name">{ lv_filename }</td>| ).
WHEN ''remote''.
ri_html->add( |<td class="type">{ is_item-obj_type }</td>| ).
ri_html->add( |<td class="name">{ lv_filename }</td>| ).
ENDCASE.
ri_html->add( ''<td class="user">'' ).
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_user_name( iv_changed_by ) ).
ri_html->add( ''</td>'' ).
ri_html->add( ''<td class="transport">'' ).
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_transport( iv_transport ) ).
ri_html->add( ''</td>'' ).
ri_html->add( ''<td class="status">?</td>'' ).
ri_html->add( ''<td class="cmd"></td>'' ). " Command added in JS
ri_html->add( ''</tr>'' ).
ENDMETHOD.
METHOD render_list.
DATA: lt_changed_by TYPE ty_changed_by_tt,
ls_changed_by LIKE LINE OF lt_changed_by,
lt_transports TYPE zif_abapgit_cts_api=>ty_transport_list,
ls_transport LIKE LINE OF lt_transports,
ls_item_remote TYPE zif_abapgit_definitions=>ty_item.
FIELD-SYMBOLS: <ls_remote> LIKE LINE OF ms_files-remote,
<ls_status> LIKE LINE OF ms_files-status,
<ls_local> LIKE LINE OF ms_files-local.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<table id="stageTab" class="stage_tab w100">'' ).
lt_transports = find_transports( ms_files ).
lt_changed_by = find_changed_by(
it_files = ms_files
it_transports = lt_transports ).
" Local changes
LOOP AT ms_files-local ASSIGNING <ls_local>.
AT FIRST.
ri_html->add( ''<thead><tr class="local">'' ).
ri_html->add( ''<th class="stage-status"></th>'' ). " Diff state
ri_html->add( ''<th class="stage-objtype">Type</th>'' ).
ri_html->add( ''<th title="Click filename to see diff">File</th>'' ).
ri_html->add( ''<th>Changed by</th>'' ).
ri_html->add( ''<th>Transport</th>'' ).
ri_html->add( ''<th></th>'' ). " Status
ri_html->add( ''<th class="cmd">'' ).
ri_html->add( ''<a>add</a>↓ <a>reset</a>↓'' ).
ri_html->add( ''</th>'' ).
ri_html->add( ''</tr></thead>'' ).
ri_html->add( ''<tbody>'' ).
ENDAT.
READ TABLE lt_changed_by INTO ls_changed_by WITH TABLE KEY
item = <ls_local>-item
filename = <ls_local>-file-filename.
IF sy-subrc <> 0.
READ TABLE lt_changed_by INTO ls_changed_by WITH KEY item = <ls_local>-item.
ENDIF.
READ TABLE lt_transports INTO ls_transport WITH KEY
obj_type = <ls_local>-item-obj_type
obj_name = <ls_local>-item-obj_name. "#EC CI_SUBRC
READ TABLE ms_files-status ASSIGNING <ls_status>
WITH TABLE KEY
path = <ls_local>-file-path
filename = <ls_local>-file-filename.
ASSERT sy-subrc = 0.
ri_html->add( render_file(
iv_context = ''local''
is_file = <ls_local>-file
is_item = <ls_local>-item
is_status = <ls_status>
iv_changed_by = ls_changed_by-name
iv_transport = ls_transport-trkorr ) ).
CLEAR ls_transport.
AT LAST.
ri_html->add( ''</tbody>'' ).
ENDAT.
ENDLOOP.
" Remote changes
LOOP AT ms_files-remote ASSIGNING <ls_remote>.
AT FIRST.
ri_html->add( ''<thead><tr class="remote">'' ).
ri_html->add( ''<th></th>'' ). " Diff state
ri_html->add( ''<th></th>'' ). " Type
ri_html->add( ''<th colspan="3">Files to remove or non-code</th>'' ).
ri_html->add( ''<th></th>'' ). " Transport
ri_html->add( ''<th class="cmd">'' ).
ri_html->add( ''<a>ignore</a>↓ <a>remove</a>↓ <a>reset</a>↓'' ).
ri_html->add( ''</th>'' ).
ri_html->add( ''</tr></thead>'' ).
ri_html->add( ''<tbody>'' ).
ENDAT.
READ TABLE ms_files-status ASSIGNING <ls_status>
WITH TABLE KEY
path = <ls_remote>-path
filename = <ls_remote>-filename.
ASSERT sy-subrc = 0.
TRY.
zcl_abapgit_filename_logic=>file_to_object(
EXPORTING
iv_filename = <ls_remote>-filename
iv_path = <ls_remote>-path
io_dot = mo_repo->get_dot_abapgit( )
IMPORTING
es_item = ls_item_remote ).
READ TABLE lt_transports INTO ls_transport WITH KEY
obj_type = ls_item_remote-obj_type
obj_name = ls_item_remote-obj_name.
READ TABLE lt_changed_by INTO ls_changed_by WITH TABLE KEY
item = ls_item_remote
filename = <ls_remote>-filename.
IF sy-subrc <> 0.
READ TABLE lt_changed_by INTO ls_changed_by WITH KEY item = ls_item_remote.
ENDIF.
CATCH zcx_abapgit_exception.
CLEAR ls_transport.
ENDTRY.
ri_html->add( render_file(
iv_context = ''remote''
is_status = <ls_status>
is_file = <ls_remote>
is_item = ls_item_remote
iv_changed_by = ls_changed_by-name
iv_transport = ls_transport-trkorr ) ).
AT LAST.
ri_html->add( ''</tbody>'' ).
ENDAT.
ENDLOOP.
ri_html->add( ''</table>'' ).
ENDMETHOD.
METHOD render_main_language_warning.
DATA lv_main_language TYPE spras.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
lv_main_language = mo_repo->get_dot_abapgit( )->get_main_language( ).
IF lv_main_language <> sy-langu.
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_warning_banner(
|Caution: Main language of the repo is ''{ lv_main_language }'', |
&& |but you''re logged on in ''{ sy-langu }''| ) ).
ENDIF.
ENDMETHOD.
METHOD render_scripts.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->set_title( cl_abap_typedescr=>describe_by_object_ref( me )->get_relative_name( ) ).
ri_html->add( ''var gStageParams = {'' ).
ri_html->add( | seed: "{ mv_seed }",| ). " Unique page id
ri_html->add( | user: "{ to_lower( sy-uname ) }",| ).
ri_html->add( '' formAction: "stage_commit",'' ).
ri_html->add( | patchAction: "{ zif_abapgit_definitions=>c_action-go_patch }",| ).
ri_html->add( '' focusFilterKey: "f",'' ).
ri_html->add( '' ids: {'' ).
ri_html->add( '' stageTab: "stageTab",'' ).
ri_html->add( '' commitAllBtn: "commitAllButton",'' ).
ri_html->add( '' commitSelectedBtn: "commitSelectedButton",'' ).
ri_html->add( '' commitFilteredBtn: "commitFilteredButton",'' ).
ri_html->add( '' patchBtn: "patchBtn",'' ).
ri_html->add( '' objectSearch: "objectSearch",'' ).
ri_html->add( '' }'' ).
ri_html->add( ''}'' ).
ri_html->add( ''var gHelper = new StageHelper(gStageParams);'' ).
ENDMETHOD.
METHOD stage_all.
FIELD-SYMBOLS <ls_local> LIKE LINE OF ms_files-local.
FIELD-SYMBOLS <ls_remote> LIKE LINE OF ms_files-remote.
FIELD-SYMBOLS <ls_status> LIKE LINE OF ms_files-status.
CREATE OBJECT ro_stage.
LOOP AT ms_files-local ASSIGNING <ls_local>.
READ TABLE ms_files-status ASSIGNING <ls_status>
WITH TABLE KEY
path = <ls_local>-file-path
filename = <ls_local>-file-filename.
ASSERT sy-subrc = 0.
ro_stage->add(
iv_path = <ls_local>-file-path
iv_filename = <ls_local>-file-filename
is_status = <ls_status>
iv_data = <ls_local>-file-data ).
ENDLOOP.
LOOP AT ms_files-remote ASSIGNING <ls_remote>.
READ TABLE ms_files-status ASSIGNING <ls_status>
WITH TABLE KEY
path = <ls_remote>-path
filename = <ls_remote>-filename.
ASSERT sy-subrc = 0.
IF <ls_status>-lstate = zif_abapgit_definitions=>c_state-deleted
AND <ls_status>-rstate = zif_abapgit_definitions=>c_state-unchanged.
ro_stage->rm(
iv_path = <ls_remote>-path
iv_filename = <ls_remote>-filename
is_status = <ls_status> ).
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD stage_selected.
DATA ls_file TYPE zif_abapgit_git_definitions=>ty_file.
DATA lo_files TYPE REF TO zcl_abapgit_string_map.
FIELD-SYMBOLS:
<ls_file> LIKE LINE OF ms_files-local,
<ls_status> LIKE LINE OF ms_files-status,
<ls_item> LIKE LINE OF lo_files->mt_entries.
lo_files = ii_event->form_data( ).
IF lo_files->size( ) = 0.
zcx_abapgit_exception=>raise( ''process_stage_list: empty list'' ).
ENDIF.
check_selected( lo_files ).
CREATE OBJECT ro_stage.
LOOP AT lo_files->mt_entries ASSIGNING <ls_item>
"Ignore Files that we don''t want to stage, so any errors don''t stop the staging process
WHERE v <> zif_abapgit_definitions=>c_method-skip.
zcl_abapgit_path=>split_file_location(
EXPORTING
iv_fullpath = to_lower( <ls_item>-k ) " filename is lower cased
IMPORTING
ev_path = ls_file-path
ev_filename = ls_file-filename ).
READ TABLE ms_files-status ASSIGNING <ls_status>
WITH TABLE KEY
path = ls_file-path
filename = ls_file-filename.
IF sy-subrc <> 0.
* see https://github.com/abapGit/abapGit/issues/3073
zcx_abapgit_exception=>raise(
|Unable to stage { ls_file-filename }. If the filename contains spaces, this is a known issue.| &&
| Consider ignoring or staging the file at a later time.| ).
ENDIF.
CASE <ls_item>-v.
WHEN zif_abapgit_definitions=>c_method-add.
READ TABLE ms_files-local ASSIGNING <ls_file>
WITH KEY file-path = ls_file-path
file-filename = ls_file-filename.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |process_stage_list: unknown file { ls_file-path }{ ls_file-filename }| ).
ENDIF.
ro_stage->add( iv_path = <ls_file>-file-path
iv_filename = <ls_file>-file-filename
is_status = <ls_status>
iv_data = <ls_file>-file-data ).
WHEN zif_abapgit_definitions=>c_method-ignore.
ro_stage->ignore( iv_path = ls_file-path
iv_filename = ls_file-filename ).
WHEN zif_abapgit_definitions=>c_method-rm.
ro_stage->rm( iv_path = ls_file-path
is_status = <ls_status>
iv_filename = ls_file-filename ).
WHEN zif_abapgit_definitions=>c_method-skip.
" Do nothing
WHEN OTHERS.
zcx_abapgit_exception=>raise( |process_stage_list: unknown method { <ls_item>-v }| ).
ENDCASE.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
DATA: lo_stage TYPE REF TO zcl_abapgit_stage.
CASE ii_event->mv_action.
WHEN c_action-stage_all.
lo_stage = stage_all( ).
rs_handled-page = zcl_abapgit_gui_page_commit=>create(
io_repo = mo_repo
io_stage = lo_stage
iv_sci_result = mv_sci_result ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
WHEN c_action-stage_commit.
lo_stage = stage_selected( ii_event ).
rs_handled-page = zcl_abapgit_gui_page_commit=>create(
io_repo = mo_repo
io_stage = lo_stage
iv_sci_result = mv_sci_result ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
WHEN c_action-stage_filter.
mv_filter_value = ii_event->form_data( )->get( ''filterValue'' ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
WHEN zif_abapgit_definitions=>c_action-go_patch. " Go Patch page
lo_stage = stage_selected( ii_event ).
rs_handled-page = get_page_patch( lo_stage ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
WHEN c_action-stage_refresh.
mo_repo->refresh( abap_true ).
init_files( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN zif_abapgit_definitions=>c_action-git_branch_switch.
zcl_abapgit_services_git=>switch_branch( |{ ii_event->query( )->get( ''KEY'' ) }| ).
mo_repo->refresh( abap_true ).
init_files( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_gui_hotkeys~get_hotkey_actions.
DATA ls_hotkey_action LIKE LINE OF rt_hotkey_actions.
ls_hotkey_action-ui_component = ''Stage''.
ls_hotkey_action-description = |Patch|.
ls_hotkey_action-action = ''submitPatch''. " JS function in StageHelper
ls_hotkey_action-hotkey = |p|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ls_hotkey_action-description = |Diff|.
ls_hotkey_action-action = zif_abapgit_definitions=>c_action-go_repo_diff.
ls_hotkey_action-hotkey = |d|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ls_hotkey_action-description = |Refresh|.
ls_hotkey_action-action = c_action-stage_refresh.
ls_hotkey_action-hotkey = |r|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
" registered/handled in js
ls_hotkey_action-description = |Focus filter|.
ls_hotkey_action-action = \`#\`.
ls_hotkey_action-hotkey = |f|.
INSERT ls_hotkey_action INTO TABLE rt_hotkey_actions.
ENDMETHOD.
METHOD zif_abapgit_gui_menu_provider~get_menu.
CREATE OBJECT ro_toolbar EXPORTING iv_id = ''toolbar-main''.
IF lines( ms_files-local ) > 0
OR lines( ms_files-remote ) > 0.
ro_toolbar->add(
iv_txt = ''Refresh''
iv_act = |{ c_action-stage_refresh }|
iv_opt = zif_abapgit_html=>c_html_opt-strong
)->add(
iv_txt = |Diff|
iv_act = |{ zif_abapgit_definitions=>c_action-go_repo_diff }?key={ mo_repo->get_key( ) }|
)->add(
iv_txt = |Patch|
iv_typ = zif_abapgit_html=>c_action_type-onclick
iv_id = |patchBtn| ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
register_handlers( ).
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<div class="repo">'' ).
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_repo_top(
io_repo = mo_repo
iv_interactive_branch = abap_true ) ).
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_js_error_banner( ) ).
ri_html->add( render_main_language_warning( ) ).
ri_html->add( ''<div class="stage-container">'' ).
ri_html->add( render_actions( ) ).
ri_html->add( render_list( ) ).
ri_html->add( ''</div>'' ).
ri_html->add( ''</div>'' ).
gui_services( )->get_html_parts( )->add_part(
iv_collection = zcl_abapgit_gui_component=>c_html_parts-hidden_forms
ii_part = render_deferred_hidden_events( ) ).
register_deferred_script( render_scripts( ) ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_TAGS ', 'CLASS zcl_abapgit_gui_page_tags DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_component
FINAL
CREATE PRIVATE.
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_event_handler.
INTERFACES zif_abapgit_gui_renderable.
CLASS-METHODS create
IMPORTING
!ii_repo TYPE REF TO zif_abapgit_repo
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception.
METHODS constructor
IMPORTING
!ii_repo TYPE REF TO zif_abapgit_repo
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS:
BEGIN OF c_id,
tag_group TYPE string VALUE ''tag_group'',
tag_type TYPE string VALUE ''tag_type'',
tags TYPE string VALUE ''tags'',
type TYPE string VALUE ''type'',
name TYPE string VALUE ''name'',
sha1 TYPE string VALUE ''sha1'',
anno_group TYPE string VALUE ''anno_group'',
tagger TYPE string VALUE ''tagger'',
tagger_name TYPE string VALUE ''tagger_name'',
tagger_email TYPE string VALUE ''tagger_email'',
message TYPE string VALUE ''message'',
body TYPE string VALUE ''body'',
END OF c_id.
CONSTANTS:
BEGIN OF c_event,
create TYPE string VALUE ''create'',
choose_commit TYPE string VALUE ''choose_commit'',
change_type TYPE string VALUE ''change_type'',
END OF c_event.
DATA mo_form TYPE REF TO zcl_abapgit_html_form.
DATA mo_form_data TYPE REF TO zcl_abapgit_string_map.
DATA mo_validation_log TYPE REF TO zcl_abapgit_string_map.
DATA mo_repo TYPE REF TO zcl_abapgit_repo_online.
DATA mo_settings TYPE REF TO zcl_abapgit_settings.
DATA ms_tag TYPE zif_abapgit_git_definitions=>ty_git_tag.
METHODS get_form_schema
IMPORTING
io_form_data TYPE REF TO zcl_abapgit_string_map OPTIONAL
RETURNING
VALUE(ro_form) TYPE REF TO zcl_abapgit_html_form
RAISING
zcx_abapgit_exception.
METHODS initialize_form_data
RAISING
zcx_abapgit_exception.
METHODS get_tagger_name
RETURNING
VALUE(rv_user) TYPE string
RAISING
zcx_abapgit_exception.
METHODS get_tagger_email
RETURNING
VALUE(rv_email) TYPE string
RAISING
zcx_abapgit_exception.
METHODS validate_form
IMPORTING
!io_form_data TYPE REF TO zcl_abapgit_string_map
RETURNING
VALUE(ro_validation_log) TYPE REF TO zcl_abapgit_string_map
RAISING
zcx_abapgit_exception.
METHODS choose_commit
RETURNING
VALUE(rv_commit) TYPE zif_abapgit_git_definitions=>ty_commit-sha1
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_gui_page_tags IMPLEMENTATION.
METHOD choose_commit.
DATA li_popups TYPE REF TO zif_abapgit_popups.
li_popups = zcl_abapgit_ui_factory=>get_popups( ).
rv_commit = li_popups->commit_list_popup(
iv_repo_url = mo_repo->get_url( )
iv_branch_name = mo_repo->get_selected_branch( ) )-sha1.
ENDMETHOD.
METHOD constructor.
super->constructor( ).
CREATE OBJECT mo_form_data.
CREATE OBJECT mo_validation_log.
mo_repo ?= ii_repo.
" Get settings from DB
mo_settings = zcl_abapgit_persist_factory=>get_settings( )->read( ).
mo_form = get_form_schema( ).
initialize_form_data( ).
ENDMETHOD.
METHOD create.
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_tags.
CREATE OBJECT lo_component
EXPORTING
ii_repo = ii_repo.
ri_page = zcl_abapgit_gui_page_hoc=>create(
iv_page_title = ''Create Tag''
ii_child_component = lo_component ).
ENDMETHOD.
METHOD get_form_schema.
CONSTANTS lc_commitmsg_comment_min_len TYPE i VALUE 1.
CONSTANTS lc_commitmsg_comment_max_len TYPE i VALUE 255.
IF io_form_data IS BOUND AND io_form_data->is_empty( ) = abap_false.
ms_tag-type = io_form_data->get( c_id-tag_type ).
ENDIF.
ro_form = zcl_abapgit_html_form=>create(
iv_form_id = ''create-tag-form''
iv_help_page = ''https://docs.abapgit.org/'' ). " todo, add docs
ro_form->start_group(
iv_name = c_id-tag_group
iv_label = ''New Tag''
)->radio(
iv_label = ''Type''
iv_name = c_id-tag_type
iv_action = c_event-change_type
)->option(
iv_label = ''Lightweight''
iv_value = zif_abapgit_git_definitions=>c_git_branch_type-lightweight_tag
)->option(
iv_label = ''Annotated''
iv_value = zif_abapgit_git_definitions=>c_git_branch_type-annotated_tag
)->text(
iv_name = c_id-name
iv_label = ''Tag Name''
iv_required = abap_true
)->text(
iv_name = c_id-sha1
iv_label = ''Commit''
iv_min = 40
iv_max = 40
iv_condense = abap_true
iv_required = abap_true
iv_side_action = c_event-choose_commit ).
IF ms_tag-type = zif_abapgit_git_definitions=>c_git_branch_type-annotated_tag.
ro_form->start_group(
iv_name = c_id-anno_group
iv_label = ''Annotation''
)->text(
iv_name = c_id-message
iv_label = ''Comment''
iv_min = lc_commitmsg_comment_min_len
iv_max = lc_commitmsg_comment_max_len
iv_placeholder = |Add a mandatory comment with max { lc_commitmsg_comment_max_len } characters|
)->textarea(
iv_name = c_id-body
iv_label = ''Body''
iv_rows = 6
iv_cols = mo_settings->get_commitmsg_body_size( )
iv_placeholder = ''Add an optional description...''
)->text(
iv_name = c_id-tagger_name
iv_label = ''Tagger Name''
)->text(
iv_name = c_id-tagger_email
iv_label = ''Tagger Email'' ).
ELSE.
ro_form->hidden( c_id-message
)->hidden( c_id-body
)->hidden( c_id-tagger_name
)->hidden( c_id-tagger_email ).
ENDIF.
ro_form->command(
iv_label = ''Create''
iv_cmd_type = zif_abapgit_html_form=>c_cmd_type-input_main
iv_action = c_event-create
)->command(
iv_label = ''Back''
iv_action = zif_abapgit_definitions=>c_action-go_back ).
ENDMETHOD.
METHOD get_tagger_email.
DATA li_user TYPE REF TO zif_abapgit_persist_user.
li_user = zcl_abapgit_persistence_user=>get_instance( ).
rv_email = li_user->get_repo_git_user_email( mo_repo->get_url( ) ).
IF rv_email IS INITIAL.
rv_email = li_user->get_default_git_user_email( ).
ENDIF.
IF rv_email IS INITIAL.
" get default from user record
rv_email = zcl_abapgit_user_record=>get_instance( sy-uname )->get_email( ).
ENDIF.
ENDMETHOD.
METHOD get_tagger_name.
DATA li_user TYPE REF TO zif_abapgit_persist_user.
li_user = zcl_abapgit_persistence_user=>get_instance( ).
rv_user = li_user->get_repo_git_user_name( mo_repo->get_url( ) ).
IF rv_user IS INITIAL.
rv_user = li_user->get_default_git_user_name( ).
ENDIF.
IF rv_user IS INITIAL.
" get default from user record
rv_user = zcl_abapgit_user_record=>get_instance( sy-uname )->get_name( ).
ENDIF.
ENDMETHOD.
METHOD initialize_form_data.
ms_tag-type = zif_abapgit_git_definitions=>c_git_branch_type-lightweight_tag.
mo_form_data->set(
iv_key = c_id-tag_type
iv_val = ms_tag-type ).
ms_tag-tagger_name = get_tagger_name( ).
ms_tag-tagger_email = get_tagger_email( ).
mo_form_data->set(
iv_key = c_id-tagger_name
iv_val = ms_tag-tagger_name ).
mo_form_data->set(
iv_key = c_id-tagger_email
iv_val = ms_tag-tagger_email ).
ENDMETHOD.
METHOD validate_form.
DATA:
lt_tags TYPE zif_abapgit_git_definitions=>ty_git_branch_list_tt,
lv_new_tag_name TYPE string.
ro_validation_log = zcl_abapgit_html_form_utils=>create( mo_form )->validate( io_form_data ).
IF zcl_abapgit_utils=>is_valid_email( io_form_data->get( c_id-tagger_email ) ) = abap_false.
ro_validation_log->set(
iv_key = c_id-tagger_email
iv_val = |Invalid email address| ).
ENDIF.
lv_new_tag_name = io_form_data->get( c_id-name ).
IF lv_new_tag_name IS NOT INITIAL.
" Check if tag already exists
lt_tags = zcl_abapgit_git_factory=>get_git_transport( )->branches( mo_repo->get_url( ) )->get_tags_only( ).
READ TABLE lt_tags TRANSPORTING NO FIELDS WITH TABLE KEY name_key
COMPONENTS name = zcl_abapgit_git_tag=>add_tag_prefix( lv_new_tag_name ).
IF sy-subrc = 0.
ro_validation_log->set(
iv_key = c_id-name
iv_val = |Tag already exists| ).
ENDIF.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
DATA:
lx_error TYPE REF TO zcx_abapgit_exception,
lv_commit TYPE zif_abapgit_git_definitions=>ty_sha1,
lv_text TYPE string.
mo_form_data->merge( zcl_abapgit_html_form_utils=>create( mo_form )->normalize( ii_event->form_data( ) ) ).
CASE ii_event->mv_action.
WHEN c_event-choose_commit.
lv_commit = choose_commit( ).
IF lv_commit IS INITIAL.
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
ELSE.
mo_form_data->set(
iv_key = c_id-sha1
iv_val = lv_commit ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ENDIF.
WHEN c_event-change_type.
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
mo_validation_log->clear( ).
WHEN c_event-create.
" Validate form entries before creating tag
mo_validation_log = validate_form( mo_form_data ).
IF mo_validation_log->is_empty( ) = abap_true.
mo_form_data->strict( abap_false ).
mo_form_data->to_abap( CHANGING cs_container = ms_tag ).
REPLACE ALL OCCURRENCES
OF cl_abap_char_utilities=>cr_lf
IN ms_tag-body
WITH cl_abap_char_utilities=>newline.
ms_tag-name = zcl_abapgit_git_tag=>add_tag_prefix( ms_tag-name ).
ASSERT ms_tag-name CP zif_abapgit_git_definitions=>c_git_branch-tags.
TRY.
zcl_abapgit_git_porcelain=>create_tag(
iv_url = mo_repo->get_url( )
is_tag = ms_tag ).
CATCH zcx_abapgit_exception INTO lx_error.
zcx_abapgit_exception=>raise( |Cannot create tag { ms_tag-name }: { lx_error->get_text( ) }| ).
ENDTRY.
lv_text = |Tag { zcl_abapgit_git_tag=>remove_tag_prefix( ms_tag-name ) } created|.
MESSAGE lv_text TYPE ''S''.
rs_handled-state = zcl_abapgit_gui=>c_event_state-go_back.
ELSE.
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ENDIF.
ENDCASE.
" If staying on form, initialize it with current settings
IF rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
mo_form = get_form_schema( mo_form_data ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
register_handlers( ).
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( \`<div class="repo">\` ).
ri_html->add( zcl_abapgit_gui_chunk_lib=>render_repo_top(
io_repo = mo_repo
iv_show_commit = abap_false
iv_interactive_branch = abap_false ) ).
ri_html->add( mo_form->render( io_values = mo_form_data
io_validation_log = mo_validation_log ) ).
ri_html->add( \`</div>\` ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_PAGE_TUTORIAL ', 'CLASS zcl_abapgit_gui_page_tutorial DEFINITION
PUBLIC
FINAL
INHERITING FROM zcl_abapgit_gui_component
CREATE PUBLIC.
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_renderable.
CLASS-METHODS create
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-METHODS build_main_menu
RETURNING
VALUE(ro_menu) TYPE REF TO zcl_abapgit_html_toolbar.
ENDCLASS.
CLASS zcl_abapgit_gui_page_tutorial IMPLEMENTATION.
METHOD build_main_menu.
CREATE OBJECT ro_menu EXPORTING iv_id = ''toolbar-main''.
ro_menu->add(
iv_txt = zcl_abapgit_gui_buttons=>repo_list( )
iv_act = zif_abapgit_definitions=>c_action-abapgit_home
)->add(
iv_txt = zcl_abapgit_gui_buttons=>new_online( )
iv_act = zif_abapgit_definitions=>c_action-repo_newonline
)->add(
iv_txt = zcl_abapgit_gui_buttons=>new_offline( )
iv_act = zif_abapgit_definitions=>c_action-repo_newoffline
)->add(
iv_txt = zcl_abapgit_gui_buttons=>help( )
io_sub = zcl_abapgit_gui_menus=>help( ) ).
ENDMETHOD.
METHOD create.
DATA lo_component TYPE REF TO zcl_abapgit_gui_page_tutorial.
CREATE OBJECT lo_component.
ri_page = zcl_abapgit_gui_page_hoc=>create(
iv_page_title = ''Tutorial''
io_page_menu = build_main_menu( )
ii_child_component = lo_component ).
ENDMETHOD.
METHOD zif_abapgit_gui_renderable~render.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( ''<div class="tutorial">'' ).
ri_html->add( ''<h1>Tutorial</h1>'' ).
ri_html->add( ''<hr>'' ).
ri_html->add( ''<h2>Online repositories</h2>'' ).
ri_html->add( ''<p><ul>'' ).
ri_html->add( \`<li>To clone a remote repository (e.g. from github) click \` ).
ri_html->add_a( iv_txt = zcl_abapgit_gui_buttons=>new_online( )
iv_act = zif_abapgit_definitions=>c_action-repo_newonline ).
ri_html->add( '' from the top menu. This will link a remote repository with a package on your system.</li>'' ).
ri_html->add( ''<li>Use the pull button to retrieve and activate the remote objects.</li>'' ).
ri_html->add( ''<li>If the remote repository is updated,'' ).
ri_html->add( '' you will see the changes and can pull to apply the updates.</li>'' ).
ri_html->add( ''</ul></p>'' ).
ri_html->add( ''<h2>Offline repositories</h2>'' ).
ri_html->add( ''<p><ul>'' ).
ri_html->add( \`<li>To add a package as an offline repository, click \` ).
ri_html->add_a( iv_txt = zcl_abapgit_gui_buttons=>new_offline( )
iv_act = zif_abapgit_definitions=>c_action-repo_newoffline ).
ri_html->add( '' from the top menu.'' ).
ri_html->add( ''<li>abapGit will start tracking changes for the package '' ).
ri_html->add( ''without linking it to an online git repository.</li>'' ).
ri_html->add( ''<li>You can link the package later or just export the package content as a ZIP file.</li>'' ).
ri_html->add( ''</ul></p>'' ).
ri_html->add( ''</ul></p>'' ).
ri_html->add( ''<h2>Repository list and favorites</h2>'' ).
ri_html->add( ''<p><ul>'' ).
ri_html->add( |<li>To favorite a repository, use the {
ri_html->icon( ''star/darkgrey'' ) } icon in the repository list.</li>| ).
ri_html->add( |<li>To go to a repository, click on the repository name.</li>| ).
ri_html->add( |<li>To go back to your favorites, use the| ).
ri_html->add_a(
iv_txt = zcl_abapgit_gui_buttons=>repo_list( )
iv_act = zif_abapgit_definitions=>c_action-abapgit_home ).
ri_html->add( |</li>| ).
ri_html->add( \`<li>\` ).
ri_html->add_a( iv_txt = ''Explore''
iv_act = zif_abapgit_definitions=>c_action-go_explore ).
ri_html->add( '' to find projects using abapGit</li>'' ).
ri_html->add( ''</ul></p>'' ).
ri_html->add( ''</div>'' ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_POPUP_BRANCH_LIST ', 'CLASS zcl_abapgit_popup_branch_list DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_render_item.
INTERFACES zif_abapgit_html_popup.
CLASS-METHODS create
IMPORTING
!iv_url TYPE string
!iv_default_branch TYPE string OPTIONAL
!iv_show_new_option TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(ri_popup) TYPE REF TO zif_abapgit_html_popup.
METHODS constructor
IMPORTING
!iv_url TYPE string
!iv_default_branch TYPE string OPTIONAL
!iv_show_new_option TYPE abap_bool DEFAULT abap_false.
PRIVATE SECTION.
DATA mv_repo_url TYPE string.
DATA mv_default_branch TYPE string.
DATA mv_show_new_option TYPE abap_bool.
METHODS fetch_branch_list
RETURNING
VALUE(rt_branches) TYPE zif_abapgit_git_definitions=>ty_git_branch_list_tt
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_popup_branch_list IMPLEMENTATION.
METHOD create.
CREATE OBJECT ri_popup TYPE zcl_abapgit_popup_branch_list
EXPORTING
iv_url = iv_url
iv_default_branch = iv_default_branch
iv_show_new_option = iv_show_new_option.
ENDMETHOD.
METHOD constructor.
mv_repo_url = iv_url.
mv_default_branch = zif_abapgit_git_definitions=>c_git_branch-heads_prefix && iv_default_branch.
mv_show_new_option = iv_show_new_option.
ENDMETHOD.
METHOD zif_abapgit_html_popup~create_picklist.
CREATE OBJECT ro_picklist
EXPORTING
iv_title = ''Choose Branch''
it_list = fetch_branch_list( )
ii_item_renderer = me.
ENDMETHOD.
METHOD fetch_branch_list.
DATA lo_branches TYPE REF TO zcl_abapgit_git_branch_list.
DATA lv_head_symref TYPE string.
FIELD-SYMBOLS <ls_branch> LIKE LINE OF rt_branches.
lo_branches = zcl_abapgit_git_factory=>get_git_transport( )->branches( mv_repo_url ).
rt_branches = lo_branches->get_branches_only( ).
lv_head_symref = lo_branches->get_head_symref( ).
IF rt_branches IS INITIAL.
zcx_abapgit_exception=>raise( ''No branches are available to select'' ).
ENDIF.
" Clean up branches: HEAD duplicates, empty names
LOOP AT rt_branches ASSIGNING <ls_branch>.
IF <ls_branch>-name IS INITIAL.
DELETE rt_branches INDEX sy-tabix.
ELSEIF <ls_branch>-is_head = abap_true AND lv_head_symref IS NOT INITIAL AND <ls_branch>-name <> lv_head_symref.
DELETE rt_branches INDEX sy-tabix.
ENDIF.
ENDLOOP.
SORT rt_branches BY is_head DESCENDING display_name ASCENDING.
IF mv_show_new_option = abap_true.
APPEND INITIAL LINE TO rt_branches ASSIGNING <ls_branch>.
<ls_branch>-name = zif_abapgit_popups=>c_new_branch_label.
<ls_branch>-display_name = zif_abapgit_popups=>c_new_branch_label.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_gui_render_item~render.
DATA lv_head_marker TYPE string.
FIELD-SYMBOLS <ls_b> TYPE zif_abapgit_git_definitions=>ty_git_branch.
ASSIGN iv_item TO <ls_b>.
ASSERT sy-subrc = 0.
" TODO render mv_default_branch properly, needs respecting support from the picklist components
IF <ls_b>-is_head = abap_true.
lv_head_marker = | (<b>{ zif_abapgit_git_definitions=>c_head_name }</b>)|.
ENDIF.
ri_html = zcl_abapgit_html=>create( |{ <ls_b>-display_name }{ lv_head_marker }| ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_POPUP_CODE_INSP ', 'CLASS zcl_abapgit_popup_code_insp DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_render_item .
INTERFACES zif_abapgit_html_popup .
CLASS-METHODS create
RETURNING
VALUE(ri_popup) TYPE REF TO zif_abapgit_html_popup .
PROTECTED SECTION.
PRIVATE SECTION.
METHODS fetch_list
RETURNING
VALUE(rt_list) TYPE zif_abapgit_code_inspector=>ty_variants
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS ZCL_ABAPGIT_POPUP_CODE_INSP IMPLEMENTATION.
METHOD create.
CREATE OBJECT ri_popup TYPE zcl_abapgit_popup_code_insp.
ENDMETHOD.
METHOD fetch_list.
rt_list = zcl_abapgit_factory=>get_code_inspector( ''$TMP'' )->list_global_variants( ).
ENDMETHOD.
METHOD zif_abapgit_gui_render_item~render.
FIELD-SYMBOLS <ls_item> TYPE LINE OF zif_abapgit_code_inspector=>ty_variants.
ASSIGN iv_item TO <ls_item>.
ASSERT sy-subrc = 0.
ri_html = zcl_abapgit_html=>create( |<b>{ <ls_item>-name }</b> - { <ls_item>-description }| ).
ENDMETHOD.
METHOD zif_abapgit_html_popup~create_picklist.
CREATE OBJECT ro_picklist
EXPORTING
iv_title = ''Choose Variant''
it_list = fetch_list( )
ii_item_renderer = me.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_POPUP_PULL_REQUEST ', 'CLASS zcl_abapgit_popup_pull_request DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_render_item.
INTERFACES zif_abapgit_html_popup.
CLASS-METHODS create
IMPORTING
iv_url TYPE string
RETURNING
VALUE(ri_popup) TYPE REF TO zif_abapgit_html_popup.
METHODS constructor
IMPORTING
iv_url TYPE string.
PROTECTED SECTION.
PRIVATE SECTION.
DATA mv_repo_url TYPE string.
METHODS fetch_pull_request_list
RETURNING
VALUE(rt_pulls) TYPE zif_abapgit_pr_enum_provider=>ty_pull_requests
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_popup_pull_request IMPLEMENTATION.
METHOD constructor.
mv_repo_url = iv_url.
ENDMETHOD.
METHOD create.
CREATE OBJECT ri_popup TYPE zcl_abapgit_popup_pull_request
EXPORTING
iv_url = iv_url.
ENDMETHOD.
METHOD fetch_pull_request_list.
rt_pulls = zcl_abapgit_pr_enumerator=>new( mv_repo_url )->get_pulls( ).
SORT rt_pulls DESCENDING BY number.
IF lines( rt_pulls ) = 0.
zcx_abapgit_exception=>raise( ''No pull requests found'' ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_gui_render_item~render.
FIELD-SYMBOLS <ls_pr> TYPE zif_abapgit_pr_enum_provider=>ty_pull_request.
ASSIGN iv_item TO <ls_pr>.
ASSERT sy-subrc = 0.
ri_html = zcl_abapgit_html=>create( |<b>{ <ls_pr>-number }</b> - { <ls_pr>-title } @{ <ls_pr>-user }| ).
ENDMETHOD.
METHOD zif_abapgit_html_popup~create_picklist.
CREATE OBJECT ro_picklist
EXPORTING
iv_title = ''Choose Pull Request''
it_list = fetch_pull_request_list( )
ii_item_renderer = me.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_POPUP_TAG_LIST ', 'CLASS zcl_abapgit_popup_tag_list DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_render_item.
INTERFACES zif_abapgit_html_popup.
CLASS-METHODS create
IMPORTING
iv_url TYPE string
RETURNING
VALUE(ri_popup) TYPE REF TO zif_abapgit_html_popup.
METHODS constructor
IMPORTING
iv_url TYPE string.
PRIVATE SECTION.
DATA mv_repo_url TYPE string.
METHODS fetch_tag_list
RETURNING
VALUE(rt_tags) TYPE zif_abapgit_git_definitions=>ty_git_branch_list_tt
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_popup_tag_list IMPLEMENTATION.
METHOD create.
CREATE OBJECT ri_popup TYPE zcl_abapgit_popup_tag_list
EXPORTING
iv_url = iv_url.
ENDMETHOD.
METHOD constructor.
mv_repo_url = iv_url.
ENDMETHOD.
METHOD zif_abapgit_html_popup~create_picklist.
CREATE OBJECT ro_picklist
EXPORTING
iv_title = ''Choose Tag''
it_list = fetch_tag_list( )
ii_item_renderer = me.
ENDMETHOD.
METHOD fetch_tag_list.
DATA lo_branches TYPE REF TO zcl_abapgit_git_branch_list.
lo_branches = zcl_abapgit_git_factory=>get_git_transport( )->branches( mv_repo_url ).
rt_tags = lo_branches->get_tags_only( ).
DELETE rt_tags WHERE name CP ''*'' && zif_abapgit_git_definitions=>c_git_branch-peel.
IF lines( rt_tags ) = 0.
zcx_abapgit_exception=>raise( ''No tags are available to select'' ).
ENDIF.
SORT rt_tags BY display_name ASCENDING.
ENDMETHOD.
METHOD zif_abapgit_gui_render_item~render.
FIELD-SYMBOLS <ls_tag> TYPE zif_abapgit_git_definitions=>ty_git_branch.
ASSIGN iv_item TO <ls_tag>.
ASSERT sy-subrc = 0.
ri_html = zcl_abapgit_html=>create( |{ <ls_tag>-display_name }| ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_PROGRESS ', 'CLASS zcl_abapgit_progress DEFINITION
PUBLIC
FINAL
CREATE PROTECTED .
PUBLIC SECTION.
INTERFACES zif_abapgit_progress .
CLASS-METHODS set_instance
IMPORTING
!ii_progress TYPE REF TO zif_abapgit_progress .
CLASS-METHODS get_instance
IMPORTING
!iv_total TYPE i
RETURNING
VALUE(ri_progress) TYPE REF TO zif_abapgit_progress .
PROTECTED SECTION.
DATA mv_total TYPE i .
CLASS-DATA gi_progress TYPE REF TO zif_abapgit_progress .
METHODS calc_pct
IMPORTING
!iv_current TYPE i
RETURNING
VALUE(rv_pct) TYPE i .
PRIVATE SECTION.
DATA mv_cv_time_next TYPE sy-uzeit .
DATA mv_cv_datum_next TYPE sy-datum .
ENDCLASS.
CLASS zcl_abapgit_progress IMPLEMENTATION.
METHOD calc_pct.
DATA: lv_f TYPE f.
TRY.
lv_f = ( iv_current / mv_total ) * 100.
rv_pct = lv_f.
IF rv_pct = 100.
rv_pct = 99.
ELSEIF rv_pct = 0.
rv_pct = 1.
ENDIF.
CATCH cx_sy_zerodivide.
rv_pct = 0.
ENDTRY.
ENDMETHOD.
METHOD get_instance.
* max one progress indicator at a time is supported
IF gi_progress IS INITIAL.
CREATE OBJECT gi_progress TYPE zcl_abapgit_progress.
ENDIF.
gi_progress->set_total( iv_total ).
ri_progress = gi_progress.
ENDMETHOD.
METHOD set_instance.
gi_progress = ii_progress.
ENDMETHOD.
METHOD zif_abapgit_progress~off.
" Clear the status bar
CALL FUNCTION ''SAPGUI_PROGRESS_INDICATOR''.
ENDMETHOD.
METHOD zif_abapgit_progress~set_total.
mv_total = iv_total.
CLEAR mv_cv_time_next.
CLEAR mv_cv_datum_next.
ENDMETHOD.
METHOD zif_abapgit_progress~show.
DATA: lv_pct TYPE i,
lv_time TYPE t.
CONSTANTS: lc_wait_secs TYPE i VALUE 2.
GET TIME.
lv_time = sy-uzeit.
IF mv_cv_time_next IS INITIAL AND mv_cv_datum_next IS INITIAL.
mv_cv_time_next = lv_time.
mv_cv_datum_next = sy-datum.
ENDIF.
"We only do a progress indication if enough time has passed
IF lv_time >= mv_cv_time_next
AND sy-datum = mv_cv_datum_next
OR sy-datum > mv_cv_datum_next.
lv_pct = calc_pct( iv_current ).
CALL FUNCTION ''SAPGUI_PROGRESS_INDICATOR''
EXPORTING
percentage = lv_pct
text = iv_text.
mv_cv_time_next = lv_time + lc_wait_secs.
ENDIF.
IF sy-datum > mv_cv_datum_next.
mv_cv_datum_next = sy-datum.
ENDIF.
IF mv_cv_time_next < lv_time.
mv_cv_datum_next = sy-datum + 1.
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_PROGRESS ', 'INTERFACE zif_abapgit_progress
PUBLIC .
METHODS show
IMPORTING
!iv_current TYPE i
!iv_text TYPE csequence .
METHODS set_total
IMPORTING
!iv_total TYPE i .
METHODS off .
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_GUI_ROUTER ', 'CLASS zcl_abapgit_gui_router DEFINITION
PUBLIC
FINAL
CREATE PUBLIC.
PUBLIC SECTION.
INTERFACES zif_abapgit_gui_event_handler.
PROTECTED SECTION.
PRIVATE SECTION.
METHODS general_page_routing
IMPORTING
!ii_event TYPE REF TO zif_abapgit_gui_event
RETURNING
VALUE(rs_handled) TYPE zif_abapgit_gui_event_handler=>ty_handling_result
RAISING
zcx_abapgit_exception .
METHODS abapgit_services_actions
IMPORTING
!ii_event TYPE REF TO zif_abapgit_gui_event
RETURNING
VALUE(rs_handled) TYPE zif_abapgit_gui_event_handler=>ty_handling_result
RAISING
zcx_abapgit_exception .
METHODS db_actions
IMPORTING
!ii_event TYPE REF TO zif_abapgit_gui_event
RETURNING
VALUE(rs_handled) TYPE zif_abapgit_gui_event_handler=>ty_handling_result
RAISING
zcx_abapgit_exception .
CLASS-METHODS file_download
IMPORTING
!iv_package TYPE devclass
!iv_xstr TYPE xstring
RAISING
zcx_abapgit_exception .
METHODS git_services
IMPORTING
!ii_event TYPE REF TO zif_abapgit_gui_event
RETURNING
VALUE(rs_handled) TYPE zif_abapgit_gui_event_handler=>ty_handling_result
RAISING
zcx_abapgit_exception .
METHODS sap_gui_actions
IMPORTING
!ii_event TYPE REF TO zif_abapgit_gui_event
RETURNING
VALUE(rs_handled) TYPE zif_abapgit_gui_event_handler=>ty_handling_result
RAISING
zcx_abapgit_exception .
METHODS other_utilities
IMPORTING
!ii_event TYPE REF TO zif_abapgit_gui_event
RETURNING
VALUE(rs_handled) TYPE zif_abapgit_gui_event_handler=>ty_handling_result
RAISING
zcx_abapgit_exception .
METHODS zip_services
IMPORTING
!ii_event TYPE REF TO zif_abapgit_gui_event
RETURNING
VALUE(rs_handled) TYPE zif_abapgit_gui_event_handler=>ty_handling_result
RAISING
zcx_abapgit_exception .
METHODS zip_export_transport
IMPORTING
iv_key TYPE zif_abapgit_persistence=>ty_repo-key
RAISING
zcx_abapgit_exception.
METHODS go_stage_transport
IMPORTING
iv_key TYPE zif_abapgit_persistence=>ty_repo-key
RETURNING
VALUE(ro_filter) TYPE REF TO zcl_abapgit_object_filter_tran
RAISING
zcx_abapgit_exception.
METHODS repository_services
IMPORTING
!ii_event TYPE REF TO zif_abapgit_gui_event
RETURNING
VALUE(rs_handled) TYPE zif_abapgit_gui_event_handler=>ty_handling_result
RAISING
zcx_abapgit_exception .
METHODS get_page_diff
IMPORTING
!ii_event TYPE REF TO zif_abapgit_gui_event
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception .
METHODS get_page_patch
IMPORTING
!ii_event TYPE REF TO zif_abapgit_gui_event
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception .
METHODS get_page_stage
IMPORTING
!ii_event TYPE REF TO zif_abapgit_gui_event
ii_obj_filter TYPE REF TO zif_abapgit_object_filter OPTIONAL
RETURNING
VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING
zcx_abapgit_exception .
CLASS-METHODS jump_object
IMPORTING
!iv_obj_type TYPE string
!iv_obj_name TYPE string
!iv_filename TYPE string
!iv_sub_type TYPE string OPTIONAL
!iv_sub_name TYPE string OPTIONAL
!iv_line TYPE string OPTIONAL
!iv_new_window TYPE string DEFAULT ''X''
RAISING
zcx_abapgit_exception .
CLASS-METHODS jump_display_transport
IMPORTING
!iv_transport TYPE trkorr
RAISING
zcx_abapgit_exception .
CLASS-METHODS jump_display_user
IMPORTING
!iv_username TYPE syuname
RAISING
zcx_abapgit_exception .
METHODS call_browser
IMPORTING
!iv_url TYPE csequence
RAISING
zcx_abapgit_exception .
METHODS call_transaction
IMPORTING
!iv_tcode TYPE csequence
RAISING
zcx_abapgit_exception .
METHODS get_state_settings
IMPORTING
!ii_event TYPE REF TO zif_abapgit_gui_event
RETURNING
VALUE(rv_state) TYPE i .
METHODS get_state_diff
IMPORTING
!ii_event TYPE REF TO zif_abapgit_gui_event
RETURNING
VALUE(rv_state) TYPE i .
METHODS main_page
RETURNING VALUE(ri_page) TYPE REF TO zif_abapgit_gui_renderable
RAISING zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_gui_router IMPLEMENTATION.
METHOD abapgit_services_actions.
IF ii_event->mv_action = zif_abapgit_definitions=>c_action-abapgit_home.
rs_handled-page = zcl_abapgit_gui_page_repo_over=>create( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page_replacing.
ENDIF.
ENDMETHOD.
METHOD call_browser.
zcl_abapgit_ui_factory=>get_frontend_services( )->execute( iv_document = |{ iv_url }| ).
ENDMETHOD.
METHOD call_transaction.
DATA lv_msg TYPE c LENGTH 200.
CALL FUNCTION ''ABAP4_CALL_TRANSACTION''
DESTINATION ''NONE''
STARTING NEW TASK ''ABAPGIT''
EXPORTING
tcode = iv_tcode
EXCEPTIONS
communication_failure = 1 MESSAGE lv_msg
system_failure = 2 MESSAGE lv_msg
OTHERS = 3.
IF sy-subrc <> 0.
lv_msg = |Error starting transaction { iv_tcode }: { lv_msg }|.
MESSAGE lv_msg TYPE ''I''.
ELSE.
lv_msg = |Transaction { iv_tcode } opened in a new window|.
MESSAGE lv_msg TYPE ''S''.
ENDIF.
ENDMETHOD.
METHOD db_actions.
DATA ls_db_key TYPE zif_abapgit_persistence=>ty_content.
DATA lo_query TYPE REF TO zcl_abapgit_string_map.
lo_query = ii_event->query( ).
CASE ii_event->mv_action.
WHEN zif_abapgit_definitions=>c_action-db_edit.
lo_query->to_abap( CHANGING cs_container = ls_db_key ).
rs_handled-page = zcl_abapgit_gui_page_db_entry=>create(
is_key = ls_db_key
iv_edit_mode = abap_true ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
WHEN zif_abapgit_definitions=>c_action-db_display.
lo_query->to_abap( CHANGING cs_container = ls_db_key ).
rs_handled-page = zcl_abapgit_gui_page_db_entry=>create( ls_db_key ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
ENDCASE.
ENDMETHOD.
METHOD file_download.
DATA:
lv_path TYPE string,
lv_default TYPE string,
li_fe_serv TYPE REF TO zif_abapgit_frontend_services,
lv_package TYPE devclass.
lv_package = iv_package.
TRANSLATE lv_package USING ''/#''.
CONCATENATE lv_package ''_'' sy-datlo ''_'' sy-timlo ''.zip'' INTO lv_default.
li_fe_serv = zcl_abapgit_ui_factory=>get_frontend_services( ).
lv_path = li_fe_serv->show_file_save_dialog(
iv_title = ''Export ZIP''
iv_extension = ''zip''
iv_default_filename = lv_default ).
li_fe_serv->file_download(
iv_path = lv_path
iv_xstr = iv_xstr ).
ENDMETHOD.
METHOD general_page_routing.
DATA: lv_key TYPE zif_abapgit_persistence=>ty_repo-key,
lv_last_repo_key TYPE zif_abapgit_persistence=>ty_repo-key.
lv_key = ii_event->query( )->get( ''KEY'' ).
CASE ii_event->mv_action.
WHEN zif_abapgit_definitions=>c_action-go_home. " Go Home
lv_last_repo_key = zcl_abapgit_persistence_user=>get_instance( )->get_repo_show( ).
IF lv_last_repo_key IS NOT INITIAL.
rs_handled-page = zcl_abapgit_gui_page_repo_view=>create( lv_last_repo_key ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
ELSE.
rs_handled-page = main_page( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
ENDIF.
WHEN zif_abapgit_definitions=>c_action-go_back. " Go Back
rs_handled-state = zcl_abapgit_gui=>c_event_state-go_back.
WHEN zif_abapgit_definitions=>c_action-go_db. " Go DB util page
rs_handled-page = zcl_abapgit_gui_page_db=>create( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
WHEN zif_abapgit_definitions=>c_action-go_debuginfo. " Go debug info
rs_handled-page = zcl_abapgit_gui_page_debuginfo=>create( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
WHEN zif_abapgit_definitions=>c_action-go_settings. " Go global settings
rs_handled-page = zcl_abapgit_gui_page_sett_glob=>create( ).
rs_handled-state = get_state_settings( ii_event ).
WHEN zif_abapgit_definitions=>c_action-go_settings_personal. " Go personal settings
rs_handled-page = zcl_abapgit_gui_page_sett_pers=>create( ).
rs_handled-state = get_state_settings( ii_event ).
WHEN zif_abapgit_definitions=>c_action-go_background_run. " Go background run page
rs_handled-page = zcl_abapgit_gui_page_run_bckg=>create( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
WHEN zif_abapgit_definitions=>c_action-go_repo_diff " Go Diff page
OR zif_abapgit_definitions=>c_action-go_file_diff.
rs_handled-page = get_page_diff( ii_event ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page_w_bookmark.
WHEN zif_abapgit_definitions=>c_action-go_patch. " Go Patch page
rs_handled-page = get_page_patch( ii_event ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page_w_bookmark.
WHEN zif_abapgit_definitions=>c_action-go_stage. " Go Staging page
rs_handled-page = get_page_stage( ii_event ).
rs_handled-state = get_state_diff( ii_event ).
WHEN zif_abapgit_definitions=>c_action-go_stage_transport. " Go Staging page by Transport
rs_handled-page = get_page_stage( ii_event = ii_event
ii_obj_filter = go_stage_transport( lv_key ) ).
rs_handled-state = get_state_diff( ii_event ).
WHEN zif_abapgit_definitions=>c_action-go_tutorial. " Go to tutorial
rs_handled-page = zcl_abapgit_gui_page_tutorial=>create( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
WHEN zif_abapgit_definitions=>c_action-documentation. " abapGit docs
zcl_abapgit_services_abapgit=>open_abapgit_wikipage( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
WHEN zif_abapgit_definitions=>c_action-go_explore. " dotabap
zcl_abapgit_services_abapgit=>open_dotabap_homepage( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
WHEN zif_abapgit_definitions=>c_action-changelog. " abapGit full changelog
zcl_abapgit_services_abapgit=>open_abapgit_changelog( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
WHEN zif_abapgit_definitions=>c_action-homepage. " abapGit homepage
zcl_abapgit_services_abapgit=>open_abapgit_homepage( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
WHEN zif_abapgit_definitions=>c_action-sponsor. " abapGit sponsor us
zcl_abapgit_services_abapgit=>open_abapgit_homepage( ''sponsor.html'' ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
WHEN zif_abapgit_definitions=>c_action-show_hotkeys. " show hotkeys
zcl_abapgit_ui_factory=>get_gui_services(
)->get_hotkeys_ctl(
)->set_visible( abap_true ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ENDCASE.
ENDMETHOD.
METHOD get_page_diff.
DATA: ls_file TYPE zif_abapgit_git_definitions=>ty_file,
ls_object TYPE zif_abapgit_definitions=>ty_item,
lv_key TYPE zif_abapgit_persistence=>ty_repo-key.
lv_key = ii_event->query( )->get( ''KEY'' ).
ls_file-path = ii_event->query( )->get( ''PATH'' ).
ls_file-filename = ii_event->query( )->get( ''FILENAME'' ). " unescape ?
ls_object-obj_type = ii_event->query( )->get( ''OBJ_TYPE'' ).
ls_object-obj_name = ii_event->query( )->get( ''OBJ_NAME'' ). " unescape ?
ri_page = zcl_abapgit_gui_page_diff=>create(
iv_key = lv_key
is_file = ls_file
is_object = ls_object ).
ENDMETHOD.
METHOD get_page_patch.
DATA: ls_file TYPE zif_abapgit_git_definitions=>ty_file,
ls_object TYPE zif_abapgit_definitions=>ty_item,
lv_key TYPE zif_abapgit_persistence=>ty_repo-key.
lv_key = ii_event->query( )->get( ''KEY'' ).
ls_file-path = ii_event->query( )->get( ''PATH'' ).
ls_file-filename = ii_event->query( )->get( ''FILENAME'' ). " unescape ?
ls_object-obj_type = ii_event->query( )->get( ''OBJ_TYPE'' ).
ls_object-obj_name = ii_event->query( )->get( ''OBJ_NAME'' ). " unescape ?
ri_page = zcl_abapgit_gui_page_patch=>create(
iv_key = lv_key
is_file = ls_file
is_object = ls_object ).
ENDMETHOD.
METHOD get_page_stage.
DATA: lo_repo TYPE REF TO zcl_abapgit_repo_online,
lv_key TYPE zif_abapgit_persistence=>ty_repo-key,
lv_seed TYPE string,
lv_sci_result TYPE zif_abapgit_definitions=>ty_sci_result,
lx_error TYPE REF TO cx_sy_move_cast_error.
lv_key = ii_event->query( )->get( ''KEY'' ).
lv_seed = ii_event->query( )->get( ''SEED'' ).
lv_sci_result = zif_abapgit_definitions=>c_sci_result-no_run.
TRY.
lo_repo ?= zcl_abapgit_repo_srv=>get_instance( )->get( lv_key ).
CATCH cx_sy_move_cast_error INTO lx_error.
zcx_abapgit_exception=>raise( \`Staging is only possible for online repositories.\` ).
ENDTRY.
IF lo_repo->get_selected_branch( ) CP zif_abapgit_git_definitions=>c_git_branch-tags.
zcx_abapgit_exception=>raise( |You are working on a tag, must be on branch| ).
ELSEIF lo_repo->get_selected_commit( ) IS NOT INITIAL.
zcx_abapgit_exception=>raise( |You are working on a commit, must be on branch| ).
ENDIF.
IF lo_repo->get_local_settings( )-code_inspector_check_variant IS NOT INITIAL.
TRY.
ri_page = zcl_abapgit_gui_page_code_insp=>create(
io_repo = lo_repo
iv_raise_when_no_results = abap_true ).
CATCH zcx_abapgit_exception.
lv_sci_result = zif_abapgit_definitions=>c_sci_result-passed.
ENDTRY.
ENDIF.
IF ri_page IS INITIAL.
ri_page = zcl_abapgit_gui_page_stage=>create(
io_repo = lo_repo
iv_seed = lv_seed
iv_sci_result = lv_sci_result
ii_obj_filter = ii_obj_filter ).
ENDIF.
ENDMETHOD.
METHOD get_state_diff.
" Bookmark current page before jumping to diff page
IF ii_event->mv_current_page_name CP ''ZCL_ABAPGIT_GUI_PAGE_DIFF''.
rv_state = zcl_abapgit_gui=>c_event_state-new_page.
ELSE.
rv_state = zcl_abapgit_gui=>c_event_state-new_page_w_bookmark.
ENDIF.
ENDMETHOD.
METHOD get_state_settings.
" Bookmark current page before jumping to any settings page
IF ii_event->mv_current_page_name CP ''ZCL_ABAPGIT_GUI_PAGE_SETT_*''.
rv_state = zcl_abapgit_gui=>c_event_state-new_page_replacing.
ELSE.
rv_state = zcl_abapgit_gui=>c_event_state-new_page_w_bookmark.
ENDIF.
ENDMETHOD.
METHOD git_services.
DATA lv_key TYPE zif_abapgit_persistence=>ty_repo-key.
DATA li_repo TYPE REF TO zif_abapgit_repo.
lv_key = ii_event->query( )->get( ''KEY'' ).
IF lv_key IS NOT INITIAL.
li_repo = zcl_abapgit_repo_srv=>get_instance( )->get( lv_key ).
ENDIF.
CASE ii_event->mv_action.
WHEN zif_abapgit_definitions=>c_action-git_pull. " GIT Pull
zcl_abapgit_services_git=>pull( lv_key ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN zif_abapgit_definitions=>c_action-git_branch_create. " GIT Create new branch
zcl_abapgit_services_git=>create_branch( lv_key ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN zif_abapgit_definitions=>c_action-git_branch_delete. " GIT Delete remote branch
zcl_abapgit_services_git=>delete_branch( lv_key ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN zif_abapgit_definitions=>c_action-git_branch_switch. " GIT Switch branch
zcl_abapgit_services_git=>switch_branch( lv_key ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN zif_abapgit_definitions=>c_action-git_branch_merge. " GIT Merge branch
rs_handled-page = zcl_abapgit_gui_page_merge_sel=>create( li_repo ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
WHEN zif_abapgit_definitions=>c_action-git_tag_create. " GIT Tag create
rs_handled-page = zcl_abapgit_gui_page_tags=>create( li_repo ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
WHEN zif_abapgit_definitions=>c_action-git_tag_delete. " GIT Tag delete
zcl_abapgit_services_git=>delete_tag( lv_key ).
zcl_abapgit_services_repo=>refresh( lv_key ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN zif_abapgit_definitions=>c_action-git_tag_switch. " GIT Switch Tag
zcl_abapgit_services_git=>switch_tag( lv_key ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
ENDCASE.
ENDMETHOD.
METHOD jump_display_transport.
DATA:
lv_adt_link TYPE string,
lv_adt_jump_enabled TYPE abap_bool.
lv_adt_jump_enabled = zcl_abapgit_persist_factory=>get_settings( )->read( )->get_adt_jump_enabled( ).
IF lv_adt_jump_enabled = abap_true.
TRY.
lv_adt_link = zcl_abapgit_adt_link=>link_transport( iv_transport ).
zcl_abapgit_ui_factory=>get_frontend_services( )->execute( iv_document = lv_adt_link ).
CATCH zcx_abapgit_exception.
" Fallback if ADT link execution failed or was cancelled
CALL FUNCTION ''TR_DISPLAY_REQUEST''
EXPORTING
i_trkorr = iv_transport.
ENDTRY.
ELSE.
CALL FUNCTION ''TR_DISPLAY_REQUEST''
EXPORTING
i_trkorr = iv_transport.
ENDIF.
ENDMETHOD.
METHOD jump_display_user.
" todo, user display in ADT
CALL FUNCTION ''BAPI_USER_DISPLAY''
EXPORTING
username = iv_username.
ENDMETHOD.
METHOD jump_object.
DATA:
ls_item TYPE zif_abapgit_definitions=>ty_item,
ls_sub_item TYPE zif_abapgit_definitions=>ty_item,
lx_error TYPE REF TO zcx_abapgit_exception,
lv_line_number TYPE i,
lv_new_window TYPE abap_bool,
li_html_viewer TYPE REF TO zif_abapgit_html_viewer.
ls_item-obj_type = cl_http_utility=>unescape_url( |{ iv_obj_type }| ).
ls_item-obj_name = cl_http_utility=>unescape_url( |{ iv_obj_name }| ).
ls_sub_item-obj_type = cl_http_utility=>unescape_url( |{ iv_sub_type }| ).
ls_sub_item-obj_name = cl_http_utility=>unescape_url( |{ iv_sub_name }| ).
IF iv_line CO ''0123456789''.
lv_line_number = iv_line.
ENDIF.
lv_new_window = boolc( iv_new_window IS NOT INITIAL ).
TRY.
li_html_viewer = zcl_abapgit_ui_factory=>get_html_viewer( ).
" Hide HTML Viewer in dummy screen0 for direct CALL SCREEN to work
li_html_viewer->set_visiblity( abap_false ).
IF ls_item-obj_type = zif_abapgit_data_config=>c_data_type-tabu.
zcl_abapgit_data_utils=>jump( ls_item ).
ELSEIF lv_line_number IS INITIAL OR ls_sub_item IS INITIAL.
zcl_abapgit_objects=>jump(
is_item = ls_item
iv_filename = iv_filename
iv_new_window = lv_new_window ).
ELSE.
zcl_abapgit_objects=>jump(
is_item = ls_item
is_sub_item = ls_sub_item
iv_filename = iv_filename
iv_line_number = lv_line_number
iv_new_window = lv_new_window ).
ENDIF.
li_html_viewer->set_visiblity( abap_true ).
CATCH zcx_abapgit_exception INTO lx_error.
li_html_viewer->set_visiblity( abap_true ).
RAISE EXCEPTION lx_error.
ENDTRY.
ENDMETHOD.
METHOD main_page.
DATA lt_repo_all_list TYPE zif_abapgit_repo_srv=>ty_repo_list.
" if there are no favorites, check if there are any repositories at all
" if not, go to tutorial where the user can create the first repository
lt_repo_all_list = zcl_abapgit_repo_srv=>get_instance( )->list( ).
IF lt_repo_all_list IS NOT INITIAL.
ri_page = zcl_abapgit_gui_page_repo_over=>create( ).
ELSE.
ri_page = zcl_abapgit_gui_page_tutorial=>create( ).
ENDIF.
ENDMETHOD.
METHOD other_utilities.
TYPES ty_char600 TYPE c LENGTH 600.
DATA lv_clip_content TYPE string.
DATA lt_clipboard TYPE STANDARD TABLE OF ty_char600.
CASE ii_event->mv_action.
WHEN zif_abapgit_definitions=>c_action-ie_devtools.
zcl_abapgit_ui_factory=>get_frontend_services( )->open_ie_devtools( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
WHEN zif_abapgit_definitions=>c_action-clipboard.
lv_clip_content = ii_event->query( )->get( ''CLIPBOARD'' ).
IF lv_clip_content IS INITIAL.
" yank mode sends via form_data
lv_clip_content = ii_event->form_data( )->get( ''CLIPBOARD'' ).
ENDIF.
IF lv_clip_content IS INITIAL.
zcx_abapgit_exception=>raise( ''Export to clipboard failed, no data'' ).
ENDIF.
APPEND lv_clip_content TO lt_clipboard.
zcl_abapgit_ui_factory=>get_frontend_services( )->clipboard_export( lt_clipboard ).
MESSAGE ''Successfully exported to clipboard'' TYPE ''S''.
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
ENDCASE.
ENDMETHOD.
METHOD repository_services.
DATA:
lv_key TYPE zif_abapgit_persistence=>ty_repo-key,
lo_repo TYPE REF TO zcl_abapgit_repo,
li_log TYPE REF TO zif_abapgit_log.
lv_key = ii_event->query( )->get( ''KEY'' ).
IF lv_key IS NOT INITIAL.
lo_repo ?= zcl_abapgit_repo_srv=>get_instance( )->get( lv_key ).
ENDIF.
CASE ii_event->mv_action.
WHEN zif_abapgit_definitions=>c_action-repo_newoffline. " New offline repo
rs_handled-page = zcl_abapgit_gui_page_addofflin=>create( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
WHEN zif_abapgit_definitions=>c_action-repo_add_all_obj_to_trans_req. " Add objects to transport
zcl_abapgit_transport=>add_all_objects_to_trans_req( lv_key ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN zif_abapgit_definitions=>c_action-repo_refresh. " Repo refresh
zcl_abapgit_services_repo=>refresh( lv_key ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN zif_abapgit_definitions=>c_action-repo_syntax_check. " Syntax check
rs_handled-page = zcl_abapgit_gui_page_syntax=>create( lo_repo ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
WHEN zif_abapgit_definitions=>c_action-repo_code_inspector. " Code inspector
rs_handled-page = zcl_abapgit_gui_page_code_insp=>create( lo_repo ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
WHEN zif_abapgit_definitions=>c_action-repo_purge. " Purge all objects and repo (uninstall)
zcl_abapgit_services_repo=>purge( lv_key ).
rs_handled-page = zcl_abapgit_gui_page_repo_over=>create( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page_replacing.
WHEN zif_abapgit_definitions=>c_action-repo_delete_objects. " Purge all objects (uninstall)
zcl_abapgit_services_repo=>purge(
iv_key = lv_key
iv_keep_repo = abap_true ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN zif_abapgit_definitions=>c_action-repo_remove. " Repo remove
zcl_abapgit_services_repo=>remove( lv_key ).
rs_handled-page = zcl_abapgit_gui_page_repo_over=>create( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page_replacing.
WHEN zif_abapgit_definitions=>c_action-repo_activate_objects. " Repo activate objects
zcl_abapgit_services_repo=>activate_objects( lv_key ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN zif_abapgit_definitions=>c_action-repo_newonline. " New online repo
rs_handled-page = zcl_abapgit_gui_page_addonline=>create( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
WHEN zif_abapgit_definitions=>c_action-flow. " Flow page
rs_handled-page = zcl_abapgit_gui_page_flow=>create( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
WHEN zif_abapgit_definitions=>c_action-repo_refresh_checksums. " Rebuild local checksums
zcl_abapgit_services_repo=>refresh_local_checksums( lv_key ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN zif_abapgit_definitions=>c_action-repo_toggle_fav. " Toggle repo as favorite
zcl_abapgit_services_repo=>toggle_favorite( lv_key ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN zif_abapgit_definitions=>c_action-repo_transport_to_branch. " Transport to branch
zcl_abapgit_services_repo=>transport_to_branch( lv_key ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN zif_abapgit_definitions=>c_action-repo_settings. " Repo settings
rs_handled-page = zcl_abapgit_gui_page_sett_repo=>create( lo_repo ).
rs_handled-state = get_state_settings( ii_event ).
WHEN zif_abapgit_definitions=>c_action-repo_local_settings. " Local repo settings
rs_handled-page = zcl_abapgit_gui_page_sett_locl=>create( lo_repo ).
rs_handled-state = get_state_settings( ii_event ).
WHEN zif_abapgit_definitions=>c_action-repo_remote_settings. " Remote repo settings
rs_handled-page = zcl_abapgit_gui_page_sett_remo=>create( lo_repo ).
rs_handled-state = get_state_settings( ii_event ).
WHEN zif_abapgit_definitions=>c_action-repo_background. " Repo background mode
rs_handled-page = zcl_abapgit_gui_page_sett_bckg=>create( lo_repo ).
rs_handled-state = get_state_settings( ii_event ).
WHEN zif_abapgit_definitions=>c_action-repo_infos. " Repo infos
rs_handled-page = zcl_abapgit_gui_page_sett_info=>create( lo_repo ).
rs_handled-state = get_state_settings( ii_event ).
WHEN zif_abapgit_definitions=>c_action-repo_log. " Repo log
li_log = lo_repo->get_log( ).
zcl_abapgit_log_viewer=>show_log( li_log ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
ENDCASE.
ENDMETHOD.
METHOD sap_gui_actions.
CASE ii_event->mv_action.
WHEN zif_abapgit_definitions=>c_action-jump. " Open object editor
jump_object(
iv_obj_type = ii_event->query( )->get( ''TYPE'' )
iv_obj_name = ii_event->query( )->get( ''NAME'' )
iv_filename = ii_event->query( )->get( ''FILE'' )
iv_sub_type = ii_event->query( )->get( ''SUBTYPE'' )
iv_sub_name = ii_event->query( )->get( ''SUBNAME'' )
iv_line = ii_event->query( )->get( ''LINE'' )
iv_new_window = ii_event->query( )->get( ''NEW_WINDOW'' ) ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
WHEN zif_abapgit_definitions=>c_action-jump_transaction.
call_transaction( |{ ii_event->query( )->get( ''TRANSACTION'' ) }| ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
WHEN zif_abapgit_definitions=>c_action-jump_transport.
jump_display_transport( |{ ii_event->query( )->get( ''TRANSPORT'' ) }| ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
WHEN zif_abapgit_definitions=>c_action-jump_user.
jump_display_user( |{ ii_event->query( )->get( ''USER'' ) }| ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
WHEN zif_abapgit_definitions=>c_action-url.
call_browser( ii_event->query( )->get( ''URL'' ) ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
IF rs_handled-state IS INITIAL.
rs_handled = general_page_routing( ii_event ).
ENDIF.
IF rs_handled-state IS INITIAL.
rs_handled = repository_services( ii_event ).
ENDIF.
IF rs_handled-state IS INITIAL.
rs_handled = git_services( ii_event ).
ENDIF.
IF rs_handled-state IS INITIAL.
rs_handled = zip_services( ii_event ).
ENDIF.
IF rs_handled-state IS INITIAL.
rs_handled = db_actions( ii_event ).
ENDIF.
IF rs_handled-state IS INITIAL.
rs_handled = abapgit_services_actions( ii_event ).
ENDIF.
IF rs_handled-state IS INITIAL.
rs_handled = sap_gui_actions( ii_event ).
ENDIF.
IF rs_handled-state IS INITIAL.
rs_handled = other_utilities( ii_event ).
ENDIF.
IF rs_handled-state IS INITIAL.
rs_handled-state = zcl_abapgit_gui=>c_event_state-not_handled.
ENDIF.
ENDMETHOD.
METHOD zip_services.
DATA: lv_key TYPE zif_abapgit_persistence=>ty_repo-key,
lo_repo TYPE REF TO zcl_abapgit_repo,
lv_path TYPE string,
lv_dest TYPE rfcdest,
lv_xstr TYPE xstring,
lv_msg TYPE c LENGTH 200,
lv_package TYPE zif_abapgit_persistence=>ty_repo-package,
lv_folder_logic TYPE string,
lv_main_lang_only TYPE zif_abapgit_persistence=>ty_local_settings-main_language_only.
CONSTANTS:
BEGIN OF lc_page,
main_view TYPE string VALUE ''ZCL_ABAPGIT_GUI_PAGE_MAIN'',
repo_view TYPE string VALUE ''ZCL_ABAPGIT_GUI_PAGE_REPO_VIEW'',
END OF lc_page.
lv_key = ii_event->query( )->get( ''KEY'' ).
CASE ii_event->mv_action.
WHEN zif_abapgit_definitions=>c_action-zip_import " Import repo from ZIP
OR zif_abapgit_definitions=>c_action-rfc_compare. " Compare repo via RFC
lo_repo ?= zcl_abapgit_repo_srv=>get_instance( )->get( lv_key ).
IF ii_event->mv_action = zif_abapgit_definitions=>c_action-zip_import.
lv_path = zcl_abapgit_ui_factory=>get_frontend_services( )->show_file_open_dialog(
iv_title = ''Import ZIP''
iv_extension = ''zip''
iv_default_filename = ''*.zip'' ).
lv_xstr = zcl_abapgit_ui_factory=>get_frontend_services( )->file_upload( lv_path ).
ELSE.
lv_dest = zcl_abapgit_ui_factory=>get_popups( )->popup_search_help( ''RFCDES-RFCDEST'' ).
IF lv_dest IS INITIAL.
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
RETURN.
ENDIF.
lv_package = lo_repo->get_package( ).
lv_folder_logic = lo_repo->get_dot_abapgit( )->get_folder_logic( ).
lv_main_lang_only = lo_repo->get_local_settings( )-main_language_only.
CALL FUNCTION ''Z_ABAPGIT_SERIALIZE_PACKAGE''
DESTINATION lv_dest
EXPORTING
iv_package = lv_package
iv_folder_logic = lv_folder_logic
iv_main_lang_only = lv_main_lang_only
IMPORTING
ev_xstring = lv_xstr
EXCEPTIONS
system_failure = 1 MESSAGE lv_msg
communication_failure = 2 MESSAGE lv_msg
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |RFC import error: { lv_msg }| ).
ENDIF.
ENDIF.
lo_repo->set_files_remote( zcl_abapgit_zip=>load( lv_xstr ) ).
zcl_abapgit_services_repo=>refresh( lv_key ).
CASE ii_event->mv_current_page_name.
WHEN lc_page-repo_view.
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN lc_page-main_view.
rs_handled-page = zcl_abapgit_gui_page_repo_view=>create( lo_repo->get_key( ) ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
WHEN OTHERS.
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
ENDCASE.
WHEN zif_abapgit_definitions=>c_action-zip_export. " Export repo as ZIP
lo_repo ?= zcl_abapgit_repo_srv=>get_instance( )->get( lv_key ).
lv_xstr = zcl_abapgit_zip=>encode_files( lo_repo->get_files_local( ) ).
file_download( iv_package = lo_repo->get_package( )
iv_xstr = lv_xstr ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
WHEN zif_abapgit_definitions=>c_action-zip_export_transport. " Export repo as ZIP
zip_export_transport( lv_key ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
WHEN zif_abapgit_definitions=>c_action-zip_package. " Export package as ZIP
rs_handled-page = zcl_abapgit_gui_page_ex_pckage=>create( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
WHEN zif_abapgit_definitions=>c_action-zip_transport. " Export transports as ZIP
zcl_abapgit_transport_mass=>run( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-no_more_act.
WHEN zif_abapgit_definitions=>c_action-zip_object. " Export object as ZIP
rs_handled-page = zcl_abapgit_gui_page_ex_object=>create( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
WHEN zif_abapgit_definitions=>c_action-where_used.
lo_repo ?= zcl_abapgit_repo_srv=>get_instance( )->get( lv_key ).
rs_handled-page = zcl_abapgit_gui_page_whereused=>create( ii_repo = lo_repo ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
ENDCASE.
ENDMETHOD.
METHOD zip_export_transport.
DATA lo_obj_filter_trans TYPE REF TO zcl_abapgit_object_filter_tran.
DATA lt_r_trkorr TYPE zif_abapgit_definitions=>ty_trrngtrkor_tt.
DATA lo_repo TYPE REF TO zcl_abapgit_repo.
DATA lv_xstr TYPE xstring.
lt_r_trkorr = zcl_abapgit_ui_factory=>get_popups( )->popup_select_wb_tc_tr_and_tsk( ).
lo_repo ?= zcl_abapgit_repo_srv=>get_instance( )->get( iv_key ).
lo_repo->refresh( ).
CREATE OBJECT lo_obj_filter_trans.
lo_obj_filter_trans->set_filter_values( iv_package = lo_repo->get_package( )
it_r_trkorr = lt_r_trkorr ).
lv_xstr = zcl_abapgit_zip=>encode_files( lo_repo->get_files_local_filtered( lo_obj_filter_trans ) ).
lo_repo->refresh( ).
file_download( iv_package = lo_repo->get_package( )
iv_xstr = lv_xstr ).
ENDMETHOD.
METHOD go_stage_transport.
DATA lt_r_trkorr TYPE zif_abapgit_definitions=>ty_trrngtrkor_tt.
DATA lo_repo TYPE REF TO zcl_abapgit_repo.
lt_r_trkorr = zcl_abapgit_ui_factory=>get_popups( )->popup_select_wb_tc_tr_and_tsk( ).
lo_repo ?= zcl_abapgit_repo_srv=>get_instance( )->get( iv_key ).
CREATE OBJECT ro_filter.
ro_filter->set_filter_values( iv_package = lo_repo->get_package( )
it_r_trkorr = lt_r_trkorr ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_SERVICES_ABAPGIT ', 'CLASS zcl_abapgit_services_abapgit DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
CONSTANTS c_abapgit_repo TYPE string VALUE ''https://github.com/abapGit/abapGit'' ##NO_TEXT.
CONSTANTS c_abapgit_homepage TYPE string VALUE ''https://www.abapgit.org'' ##NO_TEXT.
CONSTANTS c_abapgit_wikipage TYPE string VALUE ''https://docs.abapgit.org'' ##NO_TEXT.
CONSTANTS c_dotabap_homepage TYPE string VALUE ''https://dotabap.org'' ##NO_TEXT.
CONSTANTS c_changelog_path TYPE string VALUE ''/blob/main/changelog.txt'' ##NO_TEXT.
CLASS-METHODS open_abapgit_homepage
IMPORTING
iv_page TYPE string OPTIONAL
RAISING
zcx_abapgit_exception .
CLASS-METHODS open_abapgit_wikipage
IMPORTING
iv_page TYPE string OPTIONAL
RAISING
zcx_abapgit_exception .
CLASS-METHODS open_dotabap_homepage
RAISING
zcx_abapgit_exception .
CLASS-METHODS open_abapgit_changelog
RAISING
zcx_abapgit_exception .
CLASS-METHODS get_abapgit_tcode
RETURNING
VALUE(rv_tcode) TYPE tcode .
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-METHODS open_url_in_browser
IMPORTING
!iv_url TYPE string
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_services_abapgit IMPLEMENTATION.
METHOD get_abapgit_tcode.
CONSTANTS lc_report_tcode_hex TYPE x VALUE ''80''.
DATA lt_tcodes TYPE STANDARD TABLE OF tcode.
TRY.
SELECT tcode
FROM (''TSTC'')
INTO TABLE lt_tcodes
WHERE pgmna = sy-cprog
AND cinfo = lc_report_tcode_hex
ORDER BY tcode.
CATCH cx_sy_dynamic_osql_error.
* ABAP Cloud/Steampunk compatibility
RETURN.
ENDTRY.
IF lines( lt_tcodes ) > 0.
READ TABLE lt_tcodes INDEX 1 INTO rv_tcode.
ENDIF.
ENDMETHOD.
METHOD open_abapgit_changelog.
open_url_in_browser( |{ c_abapgit_repo }{ c_changelog_path }| ).
ENDMETHOD.
METHOD open_abapgit_homepage.
open_url_in_browser( |{ c_abapgit_homepage }/{ iv_page }| ).
ENDMETHOD.
METHOD open_abapgit_wikipage.
open_url_in_browser( |{ c_abapgit_wikipage }/{ iv_page }| ).
ENDMETHOD.
METHOD open_dotabap_homepage.
open_url_in_browser( c_dotabap_homepage ).
ENDMETHOD.
METHOD open_url_in_browser.
DATA lx_error TYPE REF TO zcx_abapgit_exception.
TRY.
zcl_abapgit_ui_factory=>get_frontend_services( )->execute( iv_document = iv_url ).
CATCH zcx_abapgit_exception INTO lx_error.
zcx_abapgit_exception=>raise( iv_text = ''Opening page in external browser failed.''
ix_previous = lx_error ).
ENDTRY.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_SERVICES_GIT ', 'CLASS zcl_abapgit_services_git DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS pull
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
RAISING
zcx_abapgit_exception.
CLASS-METHODS create_branch
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
RAISING
zcx_abapgit_exception.
CLASS-METHODS switch_branch
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
RAISING
zcx_abapgit_exception.
CLASS-METHODS delete_branch
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
RAISING
zcx_abapgit_exception.
CLASS-METHODS delete_tag
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
RAISING
zcx_abapgit_exception.
CLASS-METHODS switch_tag
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
RAISING
zcx_abapgit_exception.
CLASS-METHODS commit
IMPORTING
!io_repo TYPE REF TO zcl_abapgit_repo_online
!is_commit TYPE zif_abapgit_services_git=>ty_commit_fields
!io_stage TYPE REF TO zcl_abapgit_stage
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_services_git IMPLEMENTATION.
METHOD commit.
DATA: ls_comment TYPE zif_abapgit_git_definitions=>ty_comment,
li_user TYPE REF TO zif_abapgit_persist_user.
li_user = zcl_abapgit_persistence_user=>get_instance( ).
li_user->set_repo_git_user_name( iv_url = io_repo->get_url( )
iv_username = is_commit-committer_name ).
li_user->set_repo_git_user_email( iv_url = io_repo->get_url( )
iv_email = is_commit-committer_email ).
IF is_commit-committer_name IS INITIAL.
zcx_abapgit_exception=>raise( ''Commit: Committer name empty'' ).
ELSEIF is_commit-committer_email IS INITIAL.
zcx_abapgit_exception=>raise( ''Commit: Committer email empty'' ).
ELSEIF is_commit-author_email IS NOT INITIAL AND is_commit-author_name IS INITIAL.
zcx_abapgit_exception=>raise( ''Commit: Author name empty'' ). " Opposite should be OK ?
ELSEIF is_commit-comment IS INITIAL.
zcx_abapgit_exception=>raise( ''Commit: empty comment'' ).
ENDIF.
ls_comment-committer-name = is_commit-committer_name.
ls_comment-committer-email = is_commit-committer_email.
ls_comment-author-name = is_commit-author_name.
ls_comment-author-email = is_commit-author_email.
ls_comment-comment = is_commit-comment.
IF NOT is_commit-body IS INITIAL.
CONCATENATE ls_comment-comment '''' is_commit-body
INTO ls_comment-comment SEPARATED BY cl_abap_char_utilities=>newline.
ENDIF.
zcl_abapgit_exit=>get_instance( )->validate_before_push(
is_comment = ls_comment
io_stage = io_stage
io_repo = io_repo ).
io_repo->push( is_comment = ls_comment
io_stage = io_stage ).
COMMIT WORK.
ENDMETHOD.
METHOD create_branch.
DATA: lv_name TYPE string,
lv_cancel TYPE abap_bool,
lo_repo TYPE REF TO zcl_abapgit_repo_online,
lv_msg TYPE string,
li_popups TYPE REF TO zif_abapgit_popups,
lv_source_branch_name TYPE string.
lo_repo ?= zcl_abapgit_repo_srv=>get_instance( )->get( iv_key ).
lv_source_branch_name = lo_repo->get_selected_branch( ).
li_popups = zcl_abapgit_ui_factory=>get_popups( ).
li_popups->create_branch_popup(
EXPORTING
iv_source_branch_name = lv_source_branch_name
IMPORTING
ev_name = lv_name
ev_cancel = lv_cancel ).
IF lv_cancel = abap_true.
RAISE EXCEPTION TYPE zcx_abapgit_cancel.
ENDIF.
lo_repo->create_branch( lv_name ).
lv_msg = |Branch switched from { zcl_abapgit_git_branch_list=>get_display_name( lv_source_branch_name )
} to new branch { zcl_abapgit_git_branch_list=>get_display_name( lv_name ) }|.
MESSAGE lv_msg TYPE ''S''.
ENDMETHOD.
METHOD delete_branch.
DATA: lo_repo TYPE REF TO zcl_abapgit_repo_online,
ls_branch TYPE zif_abapgit_git_definitions=>ty_git_branch,
lv_msg TYPE string,
li_popups TYPE REF TO zif_abapgit_popups.
lo_repo ?= zcl_abapgit_repo_srv=>get_instance( )->get( iv_key ).
li_popups = zcl_abapgit_ui_factory=>get_popups( ).
ls_branch = li_popups->branch_list_popup( iv_url = lo_repo->get_url( )
iv_hide_branch = lo_repo->get_selected_branch( )
iv_hide_head = abap_true ).
IF ls_branch IS INITIAL.
RAISE EXCEPTION TYPE zcx_abapgit_cancel.
ENDIF.
zcl_abapgit_git_porcelain=>delete_branch(
iv_url = lo_repo->get_url( )
is_branch = ls_branch ).
lv_msg = |Branch { ls_branch-display_name } deleted|.
MESSAGE lv_msg TYPE ''S''.
ENDMETHOD.
METHOD delete_tag.
DATA: lo_repo TYPE REF TO zcl_abapgit_repo_online,
ls_tag TYPE zif_abapgit_git_definitions=>ty_git_tag,
lv_text TYPE string.
lo_repo ?= zcl_abapgit_repo_srv=>get_instance( )->get( iv_key ).
ls_tag = zcl_abapgit_ui_factory=>get_popups( )->tag_list_popup( lo_repo->get_url( ) ).
IF ls_tag IS INITIAL.
RAISE EXCEPTION TYPE zcx_abapgit_cancel.
ENDIF.
zcl_abapgit_git_porcelain=>delete_tag(
iv_url = lo_repo->get_url( )
is_tag = ls_tag ).
lv_text = |Tag { ls_tag-display_name } deleted|.
MESSAGE lv_text TYPE ''S''.
ENDMETHOD.
METHOD pull.
DATA: lo_repo TYPE REF TO zcl_abapgit_repo.
lo_repo ?= zcl_abapgit_repo_srv=>get_instance( )->get( iv_key ).
lo_repo->refresh( ).
zcl_abapgit_services_repo=>gui_deserialize( lo_repo ).
ENDMETHOD.
METHOD switch_branch.
DATA: lo_repo TYPE REF TO zcl_abapgit_repo_online,
ls_branch TYPE zif_abapgit_git_definitions=>ty_git_branch.
lo_repo ?= zcl_abapgit_repo_srv=>get_instance( )->get( iv_key ).
ls_branch = zcl_abapgit_ui_factory=>get_popups( )->branch_list_popup(
iv_url = lo_repo->get_url( )
iv_default_branch = lo_repo->get_selected_branch( )
iv_show_new_option = abap_true ).
IF ls_branch IS INITIAL.
RAISE EXCEPTION TYPE zcx_abapgit_cancel.
ENDIF.
IF ls_branch-name = zif_abapgit_popups=>c_new_branch_label.
create_branch( iv_key ).
RETURN.
ENDIF.
IF lo_repo->get_selected_commit( ) IS NOT INITIAL.
lo_repo->select_commit( space ).
ENDIF.
lo_repo->select_branch( ls_branch-name ).
COMMIT WORK AND WAIT.
ENDMETHOD.
METHOD switch_tag.
DATA: lo_repo TYPE REF TO zcl_abapgit_repo_online,
ls_tag TYPE zif_abapgit_git_definitions=>ty_git_tag,
lv_text TYPE string.
lo_repo ?= zcl_abapgit_repo_srv=>get_instance( )->get( iv_key ).
ls_tag = zcl_abapgit_ui_factory=>get_popups( )->tag_list_popup( lo_repo->get_url( ) ).
IF ls_tag IS INITIAL.
RAISE EXCEPTION TYPE zcx_abapgit_cancel.
ENDIF.
lo_repo->select_branch( zcl_abapgit_git_tag=>remove_peel( ls_tag-name ) ).
COMMIT WORK AND WAIT.
lv_text = |Tag switched to { ls_tag-display_name } |.
MESSAGE lv_text TYPE ''S''.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_SERVICES_REPO ', 'CLASS zcl_abapgit_services_repo DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS new_online
IMPORTING
!is_repo_params TYPE zif_abapgit_services_repo=>ty_repo_params
RETURNING
VALUE(ro_repo) TYPE REF TO zcl_abapgit_repo_online
RAISING
zcx_abapgit_exception .
CLASS-METHODS refresh
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
RAISING
zcx_abapgit_exception .
CLASS-METHODS remove
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
RAISING
zcx_abapgit_exception .
CLASS-METHODS purge
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
!iv_keep_repo TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(ri_log) TYPE REF TO zif_abapgit_log
RAISING
zcx_abapgit_exception .
CLASS-METHODS new_offline
IMPORTING
!is_repo_params TYPE zif_abapgit_services_repo=>ty_repo_params
RETURNING
VALUE(ro_repo) TYPE REF TO zcl_abapgit_repo_offline
RAISING
zcx_abapgit_exception .
CLASS-METHODS refresh_local_checksums
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
RAISING
zcx_abapgit_exception .
CLASS-METHODS toggle_favorite
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
RAISING
zcx_abapgit_exception .
CLASS-METHODS transport_to_branch
IMPORTING
!iv_repository_key TYPE zif_abapgit_persistence=>ty_value
RAISING
zcx_abapgit_exception .
CLASS-METHODS gui_deserialize
IMPORTING
!io_repo TYPE REF TO zcl_abapgit_repo
RAISING
zcx_abapgit_exception .
CLASS-METHODS real_deserialize
IMPORTING
!io_repo TYPE REF TO zcl_abapgit_repo
!is_checks TYPE zif_abapgit_definitions=>ty_deserialize_checks
RAISING
zcx_abapgit_exception .
CLASS-METHODS activate_objects
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
RETURNING
VALUE(ri_log) TYPE REF TO zif_abapgit_log
RAISING
zcx_abapgit_exception.
CLASS-METHODS create_package
IMPORTING
!iv_prefill_package TYPE devclass OPTIONAL
RETURNING
VALUE(rv_package) TYPE devclass
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-METHODS check_package_exists
IMPORTING
!iv_package TYPE devclass
!it_remote TYPE zif_abapgit_git_definitions=>ty_files_tt
RAISING
zcx_abapgit_exception.
CLASS-METHODS delete_unnecessary_objects
IMPORTING
!io_repo TYPE REF TO zcl_abapgit_repo
!ii_log TYPE REF TO zif_abapgit_log
!is_checks TYPE zif_abapgit_definitions=>ty_deserialize_checks
RAISING
zcx_abapgit_exception .
CLASS-METHODS popup_decisions
IMPORTING
!io_repo TYPE REF TO zcl_abapgit_repo
CHANGING
!cs_checks TYPE zif_abapgit_definitions=>ty_deserialize_checks
RAISING
zcx_abapgit_cancel
zcx_abapgit_exception .
CLASS-METHODS popup_objects_overwrite
CHANGING
!ct_overwrite TYPE zif_abapgit_definitions=>ty_overwrite_tt
RAISING
zcx_abapgit_exception .
CLASS-METHODS popup_package_overwrite
CHANGING
!ct_overwrite TYPE zif_abapgit_definitions=>ty_overwrite_tt
RAISING
zcx_abapgit_exception .
CLASS-METHODS check_package
IMPORTING
!is_repo_params TYPE zif_abapgit_services_repo=>ty_repo_params
RAISING
zcx_abapgit_exception .
CLASS-METHODS raise_error_if_package_exists
IMPORTING
iv_devclass TYPE devclass
RAISING
zcx_abapgit_exception.
CLASS-METHODS check_for_restart
IMPORTING
!io_repo TYPE REF TO zif_abapgit_repo.
ENDCLASS.
CLASS zcl_abapgit_services_repo IMPLEMENTATION.
METHOD activate_objects.
DATA:
lo_repo TYPE REF TO zcl_abapgit_repo,
lo_browser TYPE REF TO zcl_abapgit_repo_content_list,
lt_repo_items TYPE zif_abapgit_definitions=>ty_repo_item_tt,
lv_count TYPE i,
lv_message TYPE string.
FIELD-SYMBOLS <ls_item> LIKE LINE OF lt_repo_items.
lo_repo ?= zcl_abapgit_repo_srv=>get_instance( )->get( iv_key ).
CREATE OBJECT lo_browser
EXPORTING
io_repo = lo_repo.
lt_repo_items = lo_browser->list( ''/'' ).
ri_log = lo_repo->create_new_log( ''Activation Log'' ).
" Add all inactive objects to activation queue
zcl_abapgit_objects_activation=>clear( ).
LOOP AT lt_repo_items ASSIGNING <ls_item> WHERE inactive = abap_true.
zcl_abapgit_objects_activation=>add(
iv_type = <ls_item>-obj_type
iv_name = <ls_item>-obj_name ).
lv_count = lv_count + 1.
ENDLOOP.
IF lv_count = 0.
MESSAGE ''No inactive objects found'' TYPE ''S''.
RETURN.
ENDIF.
" Activate DDIC + non-DDIC
zcl_abapgit_objects_activation=>activate(
iv_ddic = abap_true
ii_log = ri_log ).
zcl_abapgit_objects_activation=>activate(
iv_ddic = abap_false
ii_log = ri_log ).
IF ri_log->get_status( ) <> zif_abapgit_log=>c_status-error.
lv_message = |Successfully activated { lv_count } objects|.
MESSAGE lv_message TYPE ''S''.
ENDIF.
lo_repo->refresh( iv_drop_log = abap_false ).
ENDMETHOD.
METHOD check_for_restart.
CONSTANTS:
lc_abapgit_prog TYPE progname VALUE \`ZABAPGIT\`.
DATA lo_repo_online TYPE REF TO zcl_abapgit_repo_online.
IF io_repo->is_offline( ) = abap_true.
RETURN.
ENDIF.
lo_repo_online ?= io_repo.
" If abapGit was used to update itself, then restart to avoid LOAD_PROGRAM_&_MISMATCH dumps
" because abapGit code was changed at runtime
IF zcl_abapgit_ui_factory=>get_frontend_services( )->gui_is_available( ) = abap_true AND
zcl_abapgit_url=>is_abapgit_repo( lo_repo_online->get_url( ) ) = abap_true AND
sy-batch = abap_false AND
sy-cprog = lc_abapgit_prog.
IF zcl_abapgit_persist_factory=>get_settings( )->read( )->get_show_default_repo( ) = abap_false.
MESSAGE ''abapGit was updated and will restart itself'' TYPE ''I''.
ENDIF.
SUBMIT (sy-cprog).
ENDIF.
ENDMETHOD.
METHOD check_package.
DATA:
li_repo TYPE REF TO zif_abapgit_repo,
li_repo_srv TYPE REF TO zif_abapgit_repo_srv,
lv_reason TYPE string.
" make sure package is not already in use for a different repository
" 702: chaining calls with exp&imp parameters causes syntax error
li_repo_srv = zcl_abapgit_repo_srv=>get_instance( ).
li_repo_srv->get_repo_from_package(
EXPORTING
iv_package = is_repo_params-package
iv_ign_subpkg = is_repo_params-ignore_subpackages
IMPORTING
ei_repo = li_repo
ev_reason = lv_reason ).
IF li_repo IS BOUND.
zcx_abapgit_exception=>raise( lv_reason ).
ENDIF.
ENDMETHOD.
METHOD check_package_exists.
IF zcl_abapgit_factory=>get_sap_package( iv_package )->exists( ) = abap_false.
" Check if any package is included in remote
READ TABLE it_remote TRANSPORTING NO FIELDS
WITH KEY file
COMPONENTS filename = zcl_abapgit_filename_logic=>c_package_file.
IF sy-subrc <> 0.
" If not, give error
zcx_abapgit_exception=>raise(
iv_text = |Package { iv_package } does not exist and there''s no package included in the repository|
iv_longtext = ''Either select an existing package, create a new one, or add a package to the repository'' ).
ENDIF.
ENDIF.
ENDMETHOD.
METHOD create_package.
DATA ls_package_data TYPE zif_abapgit_sap_package=>ty_create.
DATA lv_create TYPE abap_bool.
DATA li_popup TYPE REF TO zif_abapgit_popups.
ls_package_data-devclass = condense( to_upper( iv_prefill_package ) ).
raise_error_if_package_exists( ls_package_data-devclass ).
li_popup = zcl_abapgit_ui_factory=>get_popups( ).
li_popup->popup_to_create_package(
EXPORTING
is_package_data = ls_package_data
IMPORTING
es_package_data = ls_package_data
ev_create = lv_create ).
IF lv_create = abap_true.
zcl_abapgit_factory=>get_sap_package( ls_package_data-devclass )->create( ls_package_data ).
rv_package = ls_package_data-devclass.
COMMIT WORK AND WAIT.
ENDIF.
ENDMETHOD.
METHOD delete_unnecessary_objects.
DATA:
ls_checks TYPE zif_abapgit_definitions=>ty_delete_checks,
ls_tadir TYPE zif_abapgit_definitions=>ty_tadir,
lt_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt.
FIELD-SYMBOLS <ls_overwrite> LIKE LINE OF is_checks-overwrite.
" get confirmed deletions
LOOP AT is_checks-overwrite ASSIGNING <ls_overwrite>
WHERE ( action = zif_abapgit_objects=>c_deserialize_action-delete
OR action = zif_abapgit_objects=>c_deserialize_action-delete_add )
AND decision = zif_abapgit_definitions=>c_yes.
ls_tadir-pgmid = ''R3TR''.
ls_tadir-object = <ls_overwrite>-obj_type.
ls_tadir-obj_name = <ls_overwrite>-obj_name.
ls_tadir-devclass = <ls_overwrite>-devclass.
INSERT ls_tadir INTO TABLE lt_tadir.
ENDLOOP.
" todo, check if object type supports deletion of parts to avoid deleting complete object
" delete objects
IF lines( lt_tadir ) > 0.
ls_checks-transport = is_checks-transport.
zcl_abapgit_objects=>delete( it_tadir = lt_tadir
is_checks = ls_checks
ii_log = ii_log ).
io_repo->refresh( iv_drop_log = abap_false ).
ENDIF.
ENDMETHOD.
METHOD gui_deserialize.
DATA ls_checks TYPE zif_abapgit_definitions=>ty_deserialize_checks.
" find troublesome objects
ls_checks = io_repo->deserialize_checks( ).
IF ls_checks-overwrite IS INITIAL.
zcx_abapgit_exception=>raise(
''There is nothing to pull. The local state completely matches the remote repository.'' ).
ENDIF.
" let the user decide what to do
TRY.
popup_decisions(
EXPORTING
io_repo = io_repo
CHANGING
cs_checks = ls_checks ).
CATCH zcx_abapgit_cancel.
RETURN.
ENDTRY.
real_deserialize(
io_repo = io_repo
is_checks = ls_checks ).
ENDMETHOD.
METHOD new_offline.
DATA lx_error TYPE REF TO zcx_abapgit_exception.
check_package( is_repo_params ).
" create new repo and add to favorites
ro_repo ?= zcl_abapgit_repo_srv=>get_instance( )->new_offline(
iv_name = is_repo_params-name
iv_package = is_repo_params-package
iv_folder_logic = is_repo_params-folder_logic
iv_labels = is_repo_params-labels
iv_ign_subpkg = is_repo_params-ignore_subpackages
iv_main_lang_only = is_repo_params-main_lang_only
iv_abap_lang_vers = is_repo_params-abap_lang_vers ).
TRY.
check_package_exists(
iv_package = is_repo_params-package
it_remote = ro_repo->get_files_remote( ) ).
CATCH zcx_abapgit_exception INTO lx_error.
zcl_abapgit_repo_srv=>get_instance( )->delete( ro_repo ).
COMMIT WORK.
RAISE EXCEPTION lx_error.
ENDTRY.
" Make sure there''re no leftovers from previous repos
ro_repo->zif_abapgit_repo~checksums( )->rebuild( ).
toggle_favorite( ro_repo->get_key( ) ).
" Set default repo for user
zcl_abapgit_persistence_user=>get_instance( )->set_repo_show( ro_repo->get_key( ) ).
COMMIT WORK AND WAIT.
ENDMETHOD.
METHOD new_online.
DATA lx_error TYPE REF TO zcx_abapgit_exception.
check_package( is_repo_params ).
ro_repo ?= zcl_abapgit_repo_srv=>get_instance( )->new_online(
iv_url = is_repo_params-url
iv_branch_name = is_repo_params-branch_name
iv_name = is_repo_params-name
iv_package = is_repo_params-package
iv_display_name = is_repo_params-display_name
iv_folder_logic = is_repo_params-folder_logic
iv_labels = is_repo_params-labels
iv_ign_subpkg = is_repo_params-ignore_subpackages
iv_main_lang_only = is_repo_params-main_lang_only
iv_abap_lang_vers = is_repo_params-abap_lang_vers ).
TRY.
check_package_exists(
iv_package = is_repo_params-package
it_remote = ro_repo->get_files_remote( ) ).
CATCH zcx_abapgit_exception INTO lx_error.
zcl_abapgit_repo_srv=>get_instance( )->delete( ro_repo ).
COMMIT WORK.
RAISE EXCEPTION lx_error.
ENDTRY.
" Make sure there''re no leftovers from previous repos
ro_repo->zif_abapgit_repo~checksums( )->rebuild( ).
toggle_favorite( ro_repo->get_key( ) ).
" Set default repo for user
zcl_abapgit_persistence_user=>get_instance( )->set_repo_show( ro_repo->get_key( ) ).
COMMIT WORK AND WAIT.
ENDMETHOD.
METHOD popup_decisions.
DATA:
lt_decision TYPE zif_abapgit_definitions=>ty_overwrite_tt,
lt_requirements TYPE zif_abapgit_dot_abapgit=>ty_requirement_tt,
lt_dependencies TYPE zif_abapgit_apack_definitions=>ty_dependencies.
FIELD-SYMBOLS:
<ls_overwrite> LIKE LINE OF cs_checks-overwrite,
<ls_decision> LIKE LINE OF lt_decision.
lt_decision = cs_checks-overwrite.
" If there''s a new namespace, it has to be pulled before all other objects
READ TABLE lt_decision ASSIGNING <ls_decision> WITH KEY obj_type = ''NSPC''.
IF sy-subrc = 0 AND <ls_decision>-action = zif_abapgit_objects=>c_deserialize_action-add.
<ls_decision>-decision = zif_abapgit_definitions=>c_yes.
ELSE.
" Set all new objects to YES
LOOP AT lt_decision ASSIGNING <ls_decision> WHERE action = zif_abapgit_objects=>c_deserialize_action-add.
<ls_decision>-decision = zif_abapgit_definitions=>c_yes.
ENDLOOP.
ENDIF.
" Ask user what to do
IF cs_checks-requirements-met = zif_abapgit_definitions=>c_no.
lt_requirements = io_repo->get_dot_abapgit( )->get_data( )-requirements.
zcl_abapgit_repo_requirements=>requirements_popup( lt_requirements ).
cs_checks-requirements-decision = zif_abapgit_definitions=>c_yes.
ENDIF.
IF cs_checks-dependencies-met = zif_abapgit_definitions=>c_no.
lt_dependencies = io_repo->get_dot_apack( )->get_manifest_descriptor( )-dependencies.
zcl_abapgit_apack_helper=>dependencies_popup( lt_dependencies ).
cs_checks-dependencies-decision = zif_abapgit_definitions=>c_yes.
ENDIF.
popup_objects_overwrite( CHANGING ct_overwrite = lt_decision ).
popup_package_overwrite( CHANGING ct_overwrite = cs_checks-warning_package ).
IF cs_checks-transport-required = abap_true AND cs_checks-transport-transport IS INITIAL.
cs_checks-transport-transport =
zcl_abapgit_ui_factory=>get_popups( )->popup_transport_request( cs_checks-transport-type ).
ENDIF.
" Update decisions
LOOP AT cs_checks-overwrite ASSIGNING <ls_overwrite>.
READ TABLE lt_decision ASSIGNING <ls_decision> WITH KEY object_type_and_name COMPONENTS
obj_type = <ls_overwrite>-obj_type
obj_name = <ls_overwrite>-obj_name.
ASSERT sy-subrc = 0.
<ls_overwrite>-decision = <ls_decision>-decision.
ENDLOOP.
ENDMETHOD.
METHOD popup_objects_overwrite.
DATA: lt_columns TYPE zif_abapgit_popups=>ty_alv_column_tt,
lt_selected LIKE ct_overwrite,
li_popups TYPE REF TO zif_abapgit_popups.
DATA lt_preselected_rows TYPE zif_abapgit_popups=>ty_rows.
FIELD-SYMBOLS: <ls_overwrite> LIKE LINE OF ct_overwrite,
<ls_column> TYPE zif_abapgit_popups=>ty_alv_column.
IF lines( ct_overwrite ) = 0.
RETURN.
ENDIF.
APPEND INITIAL LINE TO lt_columns ASSIGNING <ls_column>.
<ls_column>-name = ''OBJ_TYPE''.
APPEND INITIAL LINE TO lt_columns ASSIGNING <ls_column>.
<ls_column>-name = ''OBJ_NAME''.
APPEND INITIAL LINE TO lt_columns ASSIGNING <ls_column>.
<ls_column>-name = ''DEVCLASS''.
APPEND INITIAL LINE TO lt_columns ASSIGNING <ls_column>.
<ls_column>-name = ''STATE''.
<ls_column>-text = ''State''.
<ls_column>-length = 3.
APPEND INITIAL LINE TO lt_columns ASSIGNING <ls_column>.
<ls_column>-name = ''ICON''.
<ls_column>-text = ''Action''.
<ls_column>-show_icon = abap_true.
<ls_column>-length = 5.
APPEND INITIAL LINE TO lt_columns ASSIGNING <ls_column>.
<ls_column>-name = ''TEXT''.
<ls_column>-text = ''Description''.
LOOP AT ct_overwrite ASSIGNING <ls_overwrite> WHERE decision = zif_abapgit_definitions=>c_yes.
INSERT sy-tabix INTO TABLE lt_preselected_rows.
ENDLOOP.
li_popups = zcl_abapgit_ui_factory=>get_popups( ).
li_popups->popup_to_select_from_list(
EXPORTING
it_list = ct_overwrite
iv_header_text = |The following objects are different between local and remote repository.|
&& | Select the objects which should be brought in line with the remote version.|
iv_select_column_text = ''Change?''
it_columns_to_display = lt_columns
it_preselected_rows = lt_preselected_rows
IMPORTING
et_list = lt_selected ).
LOOP AT ct_overwrite ASSIGNING <ls_overwrite>.
READ TABLE lt_selected WITH TABLE KEY object_type_and_name
COMPONENTS obj_type = <ls_overwrite>-obj_type
obj_name = <ls_overwrite>-obj_name
TRANSPORTING NO FIELDS.
IF sy-subrc = 0.
<ls_overwrite>-decision = zif_abapgit_definitions=>c_yes.
ELSE.
<ls_overwrite>-decision = zif_abapgit_definitions=>c_no.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD popup_package_overwrite.
DATA: lt_columns TYPE zif_abapgit_popups=>ty_alv_column_tt,
lt_selected LIKE ct_overwrite,
li_popups TYPE REF TO zif_abapgit_popups.
FIELD-SYMBOLS: <ls_overwrite> LIKE LINE OF ct_overwrite,
<ls_column> TYPE zif_abapgit_popups=>ty_alv_column.
IF lines( ct_overwrite ) = 0.
RETURN.
ENDIF.
APPEND INITIAL LINE TO lt_columns ASSIGNING <ls_column>.
<ls_column>-name = ''OBJ_TYPE''.
APPEND INITIAL LINE TO lt_columns ASSIGNING <ls_column>.
<ls_column>-name = ''OBJ_NAME''.
APPEND INITIAL LINE TO lt_columns ASSIGNING <ls_column>.
<ls_column>-name = ''DEVCLASS''.
APPEND INITIAL LINE TO lt_columns ASSIGNING <ls_column>.
<ls_column>-name = ''STATE''.
<ls_column>-text = ''State''.
<ls_column>-length = 3.
APPEND INITIAL LINE TO lt_columns ASSIGNING <ls_column>.
<ls_column>-name = ''ICON''.
<ls_column>-text = ''Action''.
<ls_column>-show_icon = abap_true.
<ls_column>-length = 5.
APPEND INITIAL LINE TO lt_columns ASSIGNING <ls_column>.
<ls_column>-name = ''TEXT''.
<ls_column>-text = ''Description''.
li_popups = zcl_abapgit_ui_factory=>get_popups( ).
li_popups->popup_to_select_from_list(
EXPORTING
it_list = ct_overwrite
iv_header_text = |The following objects have been created in other packages.|
&& | Select the objects which should be overwritten.|
iv_select_column_text = |Overwrite?|
it_columns_to_display = lt_columns
IMPORTING
et_list = lt_selected ).
LOOP AT ct_overwrite ASSIGNING <ls_overwrite>.
READ TABLE lt_selected WITH TABLE KEY object_type_and_name
COMPONENTS obj_type = <ls_overwrite>-obj_type
obj_name = <ls_overwrite>-obj_name
TRANSPORTING NO FIELDS.
IF sy-subrc = 0.
<ls_overwrite>-decision = zif_abapgit_definitions=>c_yes.
ELSE.
<ls_overwrite>-decision = zif_abapgit_definitions=>c_no.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD purge.
DATA: lt_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt,
lv_answer TYPE c LENGTH 1,
lo_repo TYPE REF TO zcl_abapgit_repo,
lv_package TYPE devclass,
lv_title TYPE c LENGTH 20,
lv_question TYPE c LENGTH 150,
ls_checks TYPE zif_abapgit_definitions=>ty_delete_checks,
lv_repo_name TYPE string,
lv_message TYPE string.
lo_repo ?= zcl_abapgit_repo_srv=>get_instance( )->get( iv_key ).
lv_repo_name = lo_repo->get_name( ).
lv_package = lo_repo->get_package( ).
lt_tadir = lo_repo->get_tadir_objects( ).
IF lines( lt_tadir ) > 0.
lv_question = |This will DELETE all objects in package { lv_package
} including subpackages ({ lines( lt_tadir ) } objects) from the system|.
IF iv_keep_repo = abap_true.
lv_title = ''Remove Objects''.
lv_question = lv_question && '', but keep the reference to the repository''.
ELSE.
lv_title = ''Uninstall''.
lv_question = lv_question && '' and remove the reference to the repository''.
ENDIF.
lv_answer = zcl_abapgit_ui_factory=>get_popups( )->popup_to_confirm(
iv_titlebar = lv_title
iv_text_question = lv_question
iv_text_button_1 = ''Delete''
iv_icon_button_1 = ''ICON_DELETE''
iv_text_button_2 = ''Cancel''
iv_icon_button_2 = ''ICON_CANCEL''
iv_default_button = ''2''
iv_popup_type = ''ICON_MESSAGE_WARNING''
iv_display_cancel_button = abap_false ).
IF lv_answer = ''2''.
RAISE EXCEPTION TYPE zcx_abapgit_cancel.
ENDIF.
ENDIF.
ls_checks = lo_repo->delete_checks( ).
IF ls_checks-transport-required = abap_true.
ls_checks-transport-transport = zcl_abapgit_ui_factory=>get_popups(
)->popup_transport_request( ls_checks-transport-type ).
ENDIF.
ri_log = zcl_abapgit_repo_srv=>get_instance( )->purge(
ii_repo = lo_repo
is_checks = ls_checks
iv_keep_repo = iv_keep_repo ).
COMMIT WORK.
IF ri_log IS BOUND AND ri_log->get_status( ) = zif_abapgit_log=>c_status-error.
zcl_abapgit_log_viewer=>show_log( ri_log ).
RETURN.
ENDIF.
lv_message = |Repository { lv_repo_name } successfully uninstalled from Package { lv_package }. |.
MESSAGE lv_message TYPE ''S''.
ENDMETHOD.
METHOD raise_error_if_package_exists.
IF iv_devclass IS INITIAL.
RETURN.
ENDIF.
IF zcl_abapgit_factory=>get_sap_package( iv_devclass )->exists( ) = abap_true.
zcx_abapgit_exception=>raise( |Package { iv_devclass } already exists| ).
ENDIF.
ENDMETHOD.
METHOD real_deserialize.
DATA li_log TYPE REF TO zif_abapgit_log.
DATA lv_msg TYPE string.
li_log = io_repo->create_new_log( ''Pull Log'' ).
" pass decisions to delete
delete_unnecessary_objects(
io_repo = io_repo
is_checks = is_checks
ii_log = li_log ).
" pass decisions to deserialize
io_repo->deserialize(
is_checks = is_checks
ii_log = li_log ).
IF li_log->get_status( ) = zif_abapgit_log=>c_status-ok.
lv_msg = |Repository { io_repo->get_name( ) } successfully pulled for package { io_repo->get_package( ) }|.
MESSAGE lv_msg TYPE ''S''.
ENDIF.
check_for_restart( io_repo ).
ENDMETHOD.
METHOD refresh.
zcl_abapgit_repo_srv=>get_instance( )->get( iv_key )->refresh( ).
ENDMETHOD.
METHOD refresh_local_checksums.
DATA: lv_answer TYPE c,
lv_question TYPE string,
lo_repo TYPE REF TO zcl_abapgit_repo.
IF zcl_abapgit_auth=>is_allowed( zif_abapgit_auth=>c_authorization-update_local_checksum ) = abap_false.
zcx_abapgit_exception=>raise( ''Not authorized'' ).
ENDIF.
lo_repo ?= zcl_abapgit_repo_srv=>get_instance( )->get( iv_key ).
lv_question = ''This will rebuild and overwrite local repo checksums.''.
IF lo_repo->is_offline( ) = abap_false.
lv_question = lv_question
&& '' The logic: if local and remote file differs then:''
&& '' if remote branch is ahead then assume changes are remote,''
&& '' else (branches are equal) assume changes are local.''
&& '' This will lead to incorrect state for files changed on both sides.''
&& '' Please make sure you don''''t have ones like that.''.
ENDIF.
lv_answer = zcl_abapgit_ui_factory=>get_popups( )->popup_to_confirm(
iv_titlebar = ''Warning''
iv_text_question = lv_question
iv_text_button_1 = ''OK''
iv_icon_button_1 = ''ICON_DELETE''
iv_text_button_2 = ''Cancel''
iv_icon_button_2 = ''ICON_CANCEL''
iv_default_button = ''2''
iv_display_cancel_button = abap_false ).
IF lv_answer = ''2''.
RAISE EXCEPTION TYPE zcx_abapgit_cancel.
ENDIF.
lo_repo->zif_abapgit_repo~checksums( )->rebuild( ).
COMMIT WORK AND WAIT.
ENDMETHOD.
METHOD remove.
DATA: lv_answer TYPE c LENGTH 1,
li_repo TYPE REF TO zif_abapgit_repo,
lv_package TYPE devclass,
lv_question TYPE c LENGTH 200,
lv_repo_name TYPE string,
lv_message TYPE string.
li_repo = zcl_abapgit_repo_srv=>get_instance( )->get( iv_key ).
lv_repo_name = li_repo->get_name( ).
lv_package = li_repo->get_package( ).
lv_question = |This will remove the repository reference to the package { lv_package
}. All objects will safely remain in the system.|.
lv_answer = zcl_abapgit_ui_factory=>get_popups( )->popup_to_confirm(
iv_titlebar = ''Remove Repository''
iv_text_question = lv_question
iv_text_button_1 = ''Remove''
iv_icon_button_1 = ''ICON_WF_UNLINK''
iv_text_button_2 = ''Cancel''
iv_icon_button_2 = ''ICON_CANCEL''
iv_default_button = ''2''
iv_display_cancel_button = abap_false ).
IF lv_answer = ''2''.
RAISE EXCEPTION TYPE zcx_abapgit_cancel.
ENDIF.
zcl_abapgit_repo_srv=>get_instance( )->delete( li_repo ).
COMMIT WORK.
lv_message = |Reference to repository { lv_repo_name } successfully removed from Package { lv_package }. |.
MESSAGE lv_message TYPE ''S''.
ENDMETHOD.
METHOD toggle_favorite.
zcl_abapgit_persistence_user=>get_instance( )->toggle_favorite( iv_key ).
ENDMETHOD.
METHOD transport_to_branch.
DATA:
lo_repository TYPE REF TO zcl_abapgit_repo_online,
lo_transport_to_branch TYPE REF TO zcl_abapgit_transport_2_branch,
lt_transport_objects TYPE zif_abapgit_definitions=>ty_tadir_tt,
lv_trkorr TYPE trkorr,
ls_transport_to_branch TYPE zif_abapgit_definitions=>ty_transport_to_branch.
IF zcl_abapgit_auth=>is_allowed( zif_abapgit_auth=>c_authorization-transport_to_branch ) = abap_false.
zcx_abapgit_exception=>raise( ''Not authorized'' ).
ENDIF.
lo_repository ?= zcl_abapgit_repo_srv=>get_instance( )->get( iv_repository_key ).
lv_trkorr = zcl_abapgit_ui_factory=>get_popups( )->popup_to_select_transport( ).
" Also include deleted objects that are included in transport
lt_transport_objects = zcl_abapgit_transport=>to_tadir(
iv_trkorr = lv_trkorr
iv_deleted_objects = abap_true ).
IF lt_transport_objects IS INITIAL.
zcx_abapgit_exception=>raise( ''Canceled or List of objects is empty '' ).
ENDIF.
ls_transport_to_branch = zcl_abapgit_ui_factory=>get_popups( )->popup_to_create_transp_branch( lv_trkorr ).
CREATE OBJECT lo_transport_to_branch.
lo_transport_to_branch->create(
io_repository = lo_repository
is_transport_to_branch = ls_transport_to_branch
it_transport_objects = lt_transport_objects ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_SERVICES_GIT ', 'INTERFACE zif_abapgit_services_git PUBLIC.
TYPES:
BEGIN OF ty_commit_fields,
repo_key TYPE zif_abapgit_persistence=>ty_repo-key,
committer_name TYPE string,
committer_email TYPE string,
author_name TYPE string,
author_email TYPE string,
comment TYPE string,
body TYPE string,
END OF ty_commit_fields.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_SERVICES_REPO ', 'INTERFACE zif_abapgit_services_repo
PUBLIC .
TYPES:
BEGIN OF ty_repo_params,
name TYPE string,
url TYPE string,
package TYPE devclass,
branch_name TYPE string,
display_name TYPE string,
folder_logic TYPE string,
labels TYPE string,
ignore_subpackages TYPE abap_bool,
main_lang_only TYPE abap_bool,
abap_lang_vers TYPE string,
END OF ty_repo_params .
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_FRONTEND_NO_GUI ', 'CLASS zcl_abapgit_frontend_no_gui DEFINITION
PUBLIC
CREATE PRIVATE
GLOBAL FRIENDS zcl_abapgit_ui_factory.
PUBLIC SECTION.
INTERFACES zif_abapgit_frontend_services.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_frontend_no_gui IMPLEMENTATION.
METHOD zif_abapgit_frontend_services~clipboard_export.
ENDMETHOD.
METHOD zif_abapgit_frontend_services~directory_browse.
ENDMETHOD.
METHOD zif_abapgit_frontend_services~directory_create.
ENDMETHOD.
METHOD zif_abapgit_frontend_services~directory_exist.
ENDMETHOD.
METHOD zif_abapgit_frontend_services~execute.
ENDMETHOD.
METHOD zif_abapgit_frontend_services~file_download.
ENDMETHOD.
METHOD zif_abapgit_frontend_services~file_upload.
ENDMETHOD.
METHOD zif_abapgit_frontend_services~get_file_separator.
ENDMETHOD.
METHOD zif_abapgit_frontend_services~get_gui_version.
ENDMETHOD.
METHOD zif_abapgit_frontend_services~get_system_directory.
ENDMETHOD.
METHOD zif_abapgit_frontend_services~gui_is_available.
rv_gui_is_available = abap_false.
ENDMETHOD.
METHOD zif_abapgit_frontend_services~is_sapgui_for_java.
rv_result = abap_false.
ENDMETHOD.
METHOD zif_abapgit_frontend_services~is_sapgui_for_windows.
rv_result = abap_false.
ENDMETHOD.
METHOD zif_abapgit_frontend_services~is_webgui.
rv_is_webgui = abap_false.
ENDMETHOD.
METHOD zif_abapgit_frontend_services~open_ie_devtools.
ENDMETHOD.
METHOD zif_abapgit_frontend_services~show_file_open_dialog.
ENDMETHOD.
METHOD zif_abapgit_frontend_services~show_file_save_dialog.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_FRONTEND_SERVICES ', 'CLASS zcl_abapgit_frontend_services DEFINITION
PUBLIC
CREATE PRIVATE
GLOBAL FRIENDS zcl_abapgit_ui_factory.
PUBLIC SECTION.
INTERFACES zif_abapgit_frontend_services.
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-DATA gv_initial_folder TYPE string.
METHODS get_path_from_fullname
IMPORTING
iv_fullname TYPE string
RETURNING
VALUE(rv_path) TYPE string.
ENDCLASS.
CLASS zcl_abapgit_frontend_services IMPLEMENTATION.
METHOD get_path_from_fullname.
DATA lv_len TYPE i.
FIND FIRST OCCURRENCE OF REGEX ''^/(.*/)?'' IN iv_fullname MATCH LENGTH lv_len.
IF sy-subrc = 0.
rv_path = iv_fullname(lv_len).
ELSE.
FIND FIRST OCCURRENCE OF REGEX ''^(.*\\\\)?'' IN iv_fullname MATCH LENGTH lv_len.
IF sy-subrc = 0.
rv_path = iv_fullname(lv_len).
ENDIF.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_frontend_services~clipboard_export.
DATA lv_rc TYPE i.
" Note: do not use a string table for ''it_data''!
TRY.
CALL METHOD cl_gui_frontend_services=>(''CLIPBOARD_EXPORT'')
EXPORTING
no_auth_check = iv_no_auth_check " >= 740
IMPORTING
data = it_data
CHANGING
rc = lv_rc
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
not_supported_by_gui = 3
no_authority = 4
OTHERS = 5.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
CATCH cx_sy_dyn_call_param_missing.
cl_gui_frontend_services=>clipboard_export(
IMPORTING
data = it_data
CHANGING
rc = lv_rc
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
not_supported_by_gui = 3
no_authority = 4
OTHERS = 5 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDTRY.
ENDMETHOD.
METHOD zif_abapgit_frontend_services~directory_browse.
IF iv_initial_folder IS NOT INITIAL.
gv_initial_folder = iv_initial_folder.
ENDIF.
cl_gui_frontend_services=>directory_browse(
EXPORTING
window_title = iv_window_title
initial_folder = gv_initial_folder
CHANGING
selected_folder = cv_selected_folder
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
not_supported_by_gui = 3
OTHERS = 4 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
gv_initial_folder = cv_selected_folder.
ENDMETHOD.
METHOD zif_abapgit_frontend_services~directory_create.
cl_gui_frontend_services=>directory_create(
EXPORTING
directory = iv_directory
CHANGING
rc = cv_rc
EXCEPTIONS
directory_create_failed = 1
cntl_error = 2
error_no_gui = 3
directory_access_denied = 4
directory_already_exists = 5
path_not_found = 6
unknown_error = 7
not_supported_by_gui = 8
wrong_parameter = 9
OTHERS = 10 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_frontend_services~directory_exist.
cl_gui_frontend_services=>directory_exist(
EXPORTING
directory = iv_directory
RECEIVING
result = rv_exists
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
wrong_parameter = 3
not_supported_by_gui = 4
OTHERS = 5 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_frontend_services~execute.
cl_gui_frontend_services=>execute(
EXPORTING
document = iv_document
application = iv_application
parameter = iv_parameter
default_directory = iv_default_directory
maximized = iv_maximized
minimized = iv_minimized
synchronous = iv_synchronous
operation = iv_operation
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
bad_parameter = 3
file_not_found = 4
path_not_found = 5
file_extension_unknown = 6
error_execute_failed = 7
synchronous_failed = 8
not_supported_by_gui = 9
OTHERS = 10 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_frontend_services~file_download.
TYPES ty_hex TYPE x LENGTH 200.
DATA lt_rawdata TYPE STANDARD TABLE OF ty_hex WITH DEFAULT KEY.
zcl_abapgit_convert=>xstring_to_bintab(
EXPORTING iv_xstr = iv_xstr
IMPORTING et_bintab = lt_rawdata ).
cl_gui_frontend_services=>gui_download(
EXPORTING
bin_filesize = xstrlen( iv_xstr )
filename = iv_path
filetype = ''BIN''
CHANGING
data_tab = lt_rawdata
EXCEPTIONS
file_write_error = 1
no_batch = 2
gui_refuse_filetransfer = 3
invalid_type = 4
no_authority = 5
unknown_error = 6
header_not_allowed = 7
separator_not_allowed = 8
filesize_not_allowed = 9
header_too_long = 10
dp_error_create = 11
dp_error_send = 12
dp_error_write = 13
unknown_dp_error = 14
access_denied = 15
dp_out_of_memory = 16
disk_full = 17
dp_timeout = 18
file_not_found = 19
dataprovider_exception = 20
control_flush_error = 21
not_supported_by_gui = 22
error_no_gui = 23
OTHERS = 24 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_frontend_services~file_upload.
TYPES: ty_hex TYPE x LENGTH 255.
DATA: lt_data TYPE TABLE OF ty_hex WITH DEFAULT KEY,
lv_length TYPE i.
cl_gui_frontend_services=>gui_upload(
EXPORTING
filename = iv_path
filetype = ''BIN''
IMPORTING
filelength = lv_length
CHANGING
data_tab = lt_data
EXCEPTIONS
file_open_error = 1
file_read_error = 2
no_batch = 3
gui_refuse_filetransfer = 4
invalid_type = 5
no_authority = 6
unknown_error = 7
bad_data_format = 8
header_not_allowed = 9
separator_not_allowed = 10
header_too_long = 11
unknown_dp_error = 12
access_denied = 13
dp_out_of_memory = 14
disk_full = 15
dp_timeout = 16
not_supported_by_gui = 17
error_no_gui = 18
OTHERS = 19 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
CONCATENATE LINES OF lt_data INTO rv_xstr IN BYTE MODE.
rv_xstr = rv_xstr(lv_length).
ENDMETHOD.
METHOD zif_abapgit_frontend_services~get_file_separator.
cl_gui_frontend_services=>get_file_separator(
CHANGING
file_separator = cv_file_separator
EXCEPTIONS
not_supported_by_gui = 1
error_no_gui = 2
cntl_error = 3
OTHERS = 4 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_frontend_services~get_gui_version.
DATA:
lt_version_table TYPE filetable,
lv_rc TYPE i,
ls_version LIKE LINE OF lt_version_table.
cl_gui_frontend_services=>get_gui_version(
CHANGING
version_table = lt_version_table
rc = lv_rc
EXCEPTIONS
get_gui_version_failed = 1
cant_write_version_table = 2
gui_no_version = 3
cntl_error = 4
error_no_gui = 5
not_supported_by_gui = 6
OTHERS = 7 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
READ TABLE lt_version_table INTO ls_version INDEX 1. " gui release
ev_gui_release = ls_version-filename.
READ TABLE lt_version_table INTO ls_version INDEX 2. " gui sp
ev_gui_sp = ls_version-filename.
READ TABLE lt_version_table INTO ls_version INDEX 3. " gui patch
ev_gui_patch = ls_version-filename.
ev_gui_version_string = |{ ev_gui_release }.{ condense( ev_gui_sp ) }.{ condense( ev_gui_patch ) }|.
ENDMETHOD.
METHOD zif_abapgit_frontend_services~get_system_directory.
cl_gui_frontend_services=>get_system_directory(
CHANGING
system_directory = cv_system_directory
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
not_supported_by_gui = 3
OTHERS = 4 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_frontend_services~gui_is_available.
TRY.
CALL FUNCTION ''GUI_IS_AVAILABLE''
IMPORTING
return = rv_gui_is_available.
CATCH cx_sy_dyn_call_illegal_func.
* when running on open-abap
RETURN.
ENDTRY.
ENDMETHOD.
METHOD zif_abapgit_frontend_services~is_sapgui_for_java.
TRY.
CALL FUNCTION ''GUI_HAS_JAVABEANS''
IMPORTING
return = rv_result.
CATCH cx_sy_dyn_call_illegal_func.
* when running on open-abap
RETURN.
ENDTRY.
ENDMETHOD.
METHOD zif_abapgit_frontend_services~is_sapgui_for_windows.
TRY.
CALL FUNCTION ''GUI_HAS_ACTIVEX''
IMPORTING
return = rv_result.
CATCH cx_sy_dyn_call_illegal_func.
* when running on open-abap
RETURN.
ENDTRY.
ENDMETHOD.
METHOD zif_abapgit_frontend_services~is_webgui.
TRY.
CALL FUNCTION ''GUI_IS_ITS''
IMPORTING
return = rv_is_webgui.
CATCH cx_sy_dyn_call_illegal_func.
* when running on open-abap
RETURN.
ENDTRY.
ENDMETHOD.
METHOD zif_abapgit_frontend_services~open_ie_devtools.
DATA: lv_system_directory TYPE string,
lv_exe_full_path TYPE string.
IF zif_abapgit_frontend_services~is_sapgui_for_windows( ) = abap_false.
zcx_abapgit_exception=>raise( |IE DevTools not supported on frontend OS| ).
ENDIF.
zif_abapgit_frontend_services~get_system_directory( CHANGING cv_system_directory = lv_system_directory ).
cl_gui_cfw=>flush( ).
lv_exe_full_path = lv_system_directory && \`\\F12\\IEChooser.exe\`.
zif_abapgit_frontend_services~execute( iv_application = lv_exe_full_path ).
ENDMETHOD.
METHOD zif_abapgit_frontend_services~show_file_open_dialog.
DATA:
lt_file_table TYPE filetable,
ls_file_table LIKE LINE OF lt_file_table,
lv_filter TYPE string,
lv_action TYPE i,
lv_rc TYPE i.
IF iv_extension = ''zip''.
lv_filter = ''ZIP Files (*.zip)|*.zip|'' && cl_gui_frontend_services=>filetype_all.
ENDIF.
cl_gui_frontend_services=>file_open_dialog(
EXPORTING
window_title = iv_title
default_filename = iv_default_filename
file_filter = lv_filter
initial_directory = gv_initial_folder
CHANGING
file_table = lt_file_table
rc = lv_rc
user_action = lv_action
EXCEPTIONS
file_open_dialog_failed = 1
cntl_error = 2
error_no_gui = 3
not_supported_by_gui = 4
OTHERS = 5 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
IF lv_action = cl_gui_frontend_services=>action_cancel.
zcx_abapgit_exception=>raise( ''Cancelled'' ).
ENDIF.
READ TABLE lt_file_table INDEX 1 INTO ls_file_table.
ASSERT sy-subrc = 0.
rv_path = ls_file_table-filename.
gv_initial_folder = get_path_from_fullname( rv_path ).
ENDMETHOD.
METHOD zif_abapgit_frontend_services~show_file_save_dialog.
DATA:
lv_action TYPE i,
lv_filter TYPE string,
lv_filename TYPE string,
lv_path TYPE string.
IF iv_extension = ''zip''.
lv_filter = ''ZIP Files (*.zip)|*.zip|'' && cl_gui_frontend_services=>filetype_all.
ENDIF.
cl_gui_frontend_services=>file_save_dialog(
EXPORTING
window_title = iv_title
default_extension = iv_extension
default_file_name = iv_default_filename
file_filter = lv_filter
initial_directory = gv_initial_folder
CHANGING
filename = lv_filename
path = lv_path
fullpath = rv_path
user_action = lv_action
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
not_supported_by_gui = 3
OTHERS = 4 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
IF lv_action = cl_gui_frontend_services=>action_cancel.
zcx_abapgit_exception=>raise( ''Cancelled'' ).
ENDIF.
gv_initial_folder = lv_path.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_PASSWORD_DIALOG ', 'CLASS zcl_abapgit_password_dialog DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS popup
IMPORTING
!iv_repo_url TYPE string
CHANGING
!cv_user TYPE string
!cv_pass TYPE string
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_password_dialog IMPLEMENTATION.
METHOD popup.
DATA: lx_error TYPE REF TO cx_sy_dyn_call_illegal_form.
IF zcl_abapgit_ui_factory=>get_frontend_services( )->gui_is_available( ) = abap_true.
TRY.
PERFORM password_popup
IN PROGRAM (sy-cprog)
USING iv_repo_url
CHANGING cv_user cv_pass.
CATCH cx_sy_dyn_call_illegal_form INTO lx_error.
" abapGit was called via API and either wrong or no username/password
" was supplied. It''s not possible to call abapGit password popup in
" this case.
" See https://docs.abapgit.org/development/api.html#online-repository
" on how to provide username/password
zcx_abapgit_exception=>raise_with_text( lx_error ).
ENDTRY.
ELSE.
"Extract user credentials from the environment...
"Class ZCL_ABAPGIT_DEFAULT_AUTH_INFO is part of https://github.com/abapGit/ADT_Backend.
"It stores the credentials of a private repository as long as the session exists.
"Usually this class should belong to abapGit core and a refactoring is recommended.
"As a temporary solution - and to avoid a DYNPRO_SEND_IN_BACKGROUND dump - a generic
"call of the getter methods for username and password is implemented by PR#2635.
TRY.
CALL METHOD (''ZCL_ABAPGIT_DEFAULT_AUTH_INFO'')=>(''GET_USER'')
RECEIVING
rv_user = cv_user.
CATCH cx_root.
RETURN.
ENDTRY.
TRY.
CALL METHOD (''ZCL_ABAPGIT_DEFAULT_AUTH_INFO'')=>(''GET_PASSWORD'')
RECEIVING
rv_password = cv_pass.
CATCH cx_root.
"check if old version with typo in method name exists
TRY.
CALL METHOD (''ZCL_ABAPGIT_DEFAULT_AUTH_INFO'')=>(''GET_PASSOWORD'')
RECEIVING
rv_password = cv_pass.
CATCH cx_root.
RETURN.
ENDTRY.
ENDTRY.
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_POPUPS ', 'CLASS zcl_abapgit_popups DEFINITION
PUBLIC
FINAL
CREATE PRIVATE
GLOBAL FRIENDS zcl_abapgit_ui_factory .
PUBLIC SECTION.
INTERFACES zif_abapgit_popups .
CLASS-METHODS center
IMPORTING
!iv_width TYPE i
!iv_height TYPE i
RETURNING
VALUE(rs_position) TYPE zif_abapgit_popups=>ty_popup_position.
PROTECTED SECTION.
PRIVATE SECTION.
TYPES:
ty_lt_fields TYPE STANDARD TABLE OF sval WITH DEFAULT KEY .
TYPES:
BEGIN OF ty_commit_value_tab,
commit TYPE zif_abapgit_git_definitions=>ty_sha1,
message TYPE c LENGTH 100,
datetime TYPE c LENGTH 20,
END OF ty_commit_value_tab.
TYPES:
ty_commit_value_tab_tt TYPE STANDARD TABLE OF ty_commit_value_tab WITH DEFAULT KEY.
CONSTANTS c_answer_cancel TYPE c LENGTH 1 VALUE ''A'' ##NO_TEXT.
DATA ms_position TYPE zif_abapgit_popups=>ty_popup_position.
TYPES ty_sval_tt TYPE STANDARD TABLE OF sval WITH DEFAULT KEY.
METHODS add_field
IMPORTING
!iv_tabname TYPE sval-tabname
!iv_fieldname TYPE sval-fieldname
!iv_fieldtext TYPE sval-fieldtext
!iv_value TYPE clike DEFAULT ''''
!iv_field_attr TYPE sval-field_attr DEFAULT ''''
!iv_obligatory TYPE spo_obl OPTIONAL
CHANGING
!ct_fields TYPE ty_sval_tt .
METHODS _popup_3_get_values
IMPORTING
!iv_popup_title TYPE string
!iv_no_value_check TYPE abap_bool DEFAULT abap_false
EXPORTING
!ev_value_1 TYPE spo_value
!ev_value_2 TYPE spo_value
!ev_value_3 TYPE spo_value
CHANGING
!ct_fields TYPE ty_lt_fields
RAISING
zcx_abapgit_exception .
METHODS commit_list_build
IMPORTING
!iv_repo_url TYPE string
!iv_branch_name TYPE string
EXPORTING
!et_value_tab TYPE ty_commit_value_tab_tt
!et_commits TYPE zif_abapgit_git_definitions=>ty_commit_tt
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_popups IMPLEMENTATION.
METHOD add_field.
FIELD-SYMBOLS: <ls_field> LIKE LINE OF ct_fields.
APPEND INITIAL LINE TO ct_fields ASSIGNING <ls_field>.
<ls_field>-tabname = iv_tabname.
<ls_field>-fieldname = iv_fieldname.
<ls_field>-fieldtext = iv_fieldtext.
<ls_field>-value = iv_value.
<ls_field>-field_attr = iv_field_attr.
<ls_field>-field_obl = iv_obligatory.
ENDMETHOD.
METHOD center.
CONSTANTS:
lc_min_size TYPE i VALUE 10,
lc_min_pos TYPE i VALUE 5.
" Magic math to approximate starting position of popup
IF sy-scols > lc_min_size AND iv_width > 0 AND sy-scols > iv_width.
rs_position-start_column = nmax(
val1 = ( sy-scols - iv_width ) / 2
val2 = lc_min_pos ).
ELSE.
rs_position-start_column = lc_min_pos.
ENDIF.
IF sy-srows > lc_min_size AND iv_height > 0 AND sy-srows > iv_height.
rs_position-start_row = nmax(
val1 = ( sy-srows - iv_height ) / 2 - 1
val2 = lc_min_pos ).
ELSE.
rs_position-start_row = lc_min_pos.
ENDIF.
rs_position-end_column = rs_position-start_column + iv_width.
rs_position-end_row = rs_position-start_row + iv_height.
ENDMETHOD.
METHOD commit_list_build.
DATA:
lv_unix_time TYPE zcl_abapgit_git_time=>ty_unixtime,
lv_date TYPE d,
lv_date_string TYPE c LENGTH 12,
lv_time TYPE t,
lv_time_string TYPE c LENGTH 10.
FIELD-SYMBOLS:
<ls_commit> TYPE zif_abapgit_git_definitions=>ty_commit,
<ls_value_tab> TYPE ty_commit_value_tab.
CLEAR: et_commits, et_value_tab.
et_commits = zcl_abapgit_git_commit=>get_by_branch( iv_branch_name = iv_branch_name
iv_repo_url = iv_repo_url
iv_deepen_level = 99
iv_sorted = abap_false )-commits.
IF et_commits IS INITIAL.
zcx_abapgit_exception=>raise( |No commits are available in this branch.| ).
ENDIF.
SORT et_commits BY time DESCENDING.
LOOP AT et_commits ASSIGNING <ls_commit>.
APPEND INITIAL LINE TO et_value_tab ASSIGNING <ls_value_tab>.
<ls_value_tab>-commit = <ls_commit>-sha1.
<ls_value_tab>-message = <ls_commit>-message.
lv_unix_time = <ls_commit>-time.
zcl_abapgit_git_time=>get_utc(
EXPORTING
iv_unix = lv_unix_time
IMPORTING
ev_time = lv_time
ev_date = lv_date ).
WRITE: lv_date TO lv_date_string,
lv_time TO lv_time_string.
<ls_value_tab>-datetime = |{ lv_date_string }, | &&
|{ lv_time_string }|.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_popups~branch_list_popup.
DATA: lo_branches TYPE REF TO zcl_abapgit_git_branch_list,
lt_branches TYPE zif_abapgit_git_definitions=>ty_git_branch_list_tt,
lv_answer TYPE c LENGTH 1,
lv_default TYPE i,
lv_head_suffix TYPE string,
lv_head_symref TYPE string,
lv_text TYPE string,
lt_selection TYPE TABLE OF spopli.
FIELD-SYMBOLS: <ls_sel> LIKE LINE OF lt_selection,
<ls_branch> LIKE LINE OF lt_branches.
lo_branches = zcl_abapgit_git_factory=>get_git_transport( )->branches( iv_url ).
lt_branches = lo_branches->get_branches_only( ).
lv_head_suffix = | ({ zif_abapgit_git_definitions=>c_head_name })|.
lv_head_symref = lo_branches->get_head_symref( ).
IF iv_hide_branch IS NOT INITIAL.
DELETE lt_branches WHERE name = iv_hide_branch.
ENDIF.
IF iv_hide_head IS NOT INITIAL.
DELETE lt_branches WHERE name = zif_abapgit_git_definitions=>c_head_name
OR is_head = abap_true.
ENDIF.
IF lt_branches IS INITIAL.
IF iv_hide_head IS NOT INITIAL.
lv_text = ''main''.
ENDIF.
IF iv_hide_branch IS NOT INITIAL AND iv_hide_branch <> zif_abapgit_git_definitions=>c_git_branch-main.
IF lv_text IS INITIAL.
lv_text = iv_hide_branch && '' is''.
ELSE.
CONCATENATE lv_text ''and'' iv_hide_branch ''are'' INTO lv_text SEPARATED BY space.
ENDIF.
ELSE.
lv_text = lv_text && '' is''.
ENDIF.
IF lv_text IS NOT INITIAL.
zcx_abapgit_exception=>raise( ''No branches available to select ('' && lv_text && '' hidden)'' ).
ELSE.
zcx_abapgit_exception=>raise( ''No branches are available to select'' ).
ENDIF.
ENDIF.
LOOP AT lt_branches ASSIGNING <ls_branch>.
CHECK <ls_branch>-name IS NOT INITIAL. " To ensure some below ifs
IF <ls_branch>-is_head = abap_true.
IF <ls_branch>-name = zif_abapgit_git_definitions=>c_head_name. " HEAD
IF <ls_branch>-name <> lv_head_symref AND lv_head_symref IS NOT INITIAL.
" HEAD but other HEAD symref exists - ignore
CONTINUE.
ELSE.
INSERT INITIAL LINE INTO lt_selection INDEX 1 ASSIGNING <ls_sel>.
<ls_sel>-varoption = <ls_branch>-name.
ENDIF.
ELSE.
INSERT INITIAL LINE INTO lt_selection INDEX 1 ASSIGNING <ls_sel>.
<ls_sel>-varoption = <ls_branch>-display_name && lv_head_suffix.
ENDIF.
IF lv_default > 0. " Shift down default if set
lv_default = lv_default + 1.
ENDIF.
ELSE.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-varoption = <ls_branch>-display_name.
ENDIF.
IF <ls_branch>-name = iv_default_branch.
IF <ls_branch>-is_head = abap_true.
lv_default = 1.
ELSE.
lv_default = sy-tabix.
ENDIF.
ENDIF.
ENDLOOP.
IF iv_show_new_option = abap_true.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-varoption = zif_abapgit_popups=>c_new_branch_label.
ENDIF.
ms_position = center(
iv_width = 30
iv_height = lines( lt_selection ) ).
CALL FUNCTION ''POPUP_TO_DECIDE_LIST''
EXPORTING
titel = ''Select Branch''
textline1 = ''Select a branch''
start_col = ms_position-start_column
start_row = ms_position-start_row
cursorline = lv_default
IMPORTING
answer = lv_answer
TABLES
t_spopli = lt_selection
EXCEPTIONS
OTHERS = 1.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''Error from POPUP_TO_DECIDE_LIST'' ).
ENDIF.
IF lv_answer = c_answer_cancel.
RETURN.
ENDIF.
READ TABLE lt_selection ASSIGNING <ls_sel> WITH KEY selflag = abap_true.
ASSERT sy-subrc = 0.
IF iv_show_new_option = abap_true AND <ls_sel>-varoption = zif_abapgit_popups=>c_new_branch_label.
rs_branch-name = zif_abapgit_popups=>c_new_branch_label.
ELSE.
REPLACE FIRST OCCURRENCE OF lv_head_suffix IN <ls_sel>-varoption WITH ''''.
READ TABLE lt_branches WITH KEY display_name = <ls_sel>-varoption ASSIGNING <ls_branch>.
IF sy-subrc <> 0.
* branch name longer than 65 characters
LOOP AT lt_branches ASSIGNING <ls_branch> WHERE display_name CS <ls_sel>-varoption.
EXIT. " current loop
ENDLOOP.
ENDIF.
ASSERT <ls_branch> IS ASSIGNED.
rs_branch = lo_branches->find_by_name( <ls_branch>-name ).
lv_text = |Branch switched from { zcl_abapgit_git_branch_list=>get_display_name( iv_default_branch ) } to {
zcl_abapgit_git_branch_list=>get_display_name( rs_branch-name ) } |.
MESSAGE lv_text TYPE ''S''.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_popups~choose_code_insp_check_variant.
DATA: lt_return TYPE STANDARD TABLE OF ddshretval.
FIELD-SYMBOLS: <ls_return> LIKE LINE OF lt_return.
CALL FUNCTION ''F4IF_FIELD_VALUE_REQUEST''
EXPORTING
tabname = ''SCI_DYNP''
fieldname = ''CHKV''
TABLES
return_tab = lt_return
EXCEPTIONS
field_not_found = 1
no_help_for_field = 2
inconsistent_help = 3
no_values_found = 4
OTHERS = 5.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
READ TABLE lt_return ASSIGNING <ls_return>
WITH KEY retfield = ''SCI_DYNP-CHKV''.
IF sy-subrc = 0.
rv_check_variant = <ls_return>-fieldval.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_popups~commit_list_popup.
DATA:
lt_commits TYPE zif_abapgit_git_definitions=>ty_commit_tt,
lt_value_tab TYPE ty_commit_value_tab_tt,
lt_selected_values TYPE ty_commit_value_tab_tt,
lt_columns TYPE zif_abapgit_popups=>ty_alv_column_tt.
FIELD-SYMBOLS:
<ls_value_tab> TYPE ty_commit_value_tab,
<ls_column> TYPE zif_abapgit_popups=>ty_alv_column.
commit_list_build(
EXPORTING
iv_branch_name = iv_branch_name
iv_repo_url = iv_repo_url
IMPORTING
et_value_tab = lt_value_tab
et_commits = lt_commits ).
APPEND INITIAL LINE TO lt_columns ASSIGNING <ls_column>.
<ls_column>-name = ''COMMIT''.
<ls_column>-text = ''Hash''.
<ls_column>-length = 8.
APPEND INITIAL LINE TO lt_columns ASSIGNING <ls_column>.
<ls_column>-name = ''MESSAGE''.
<ls_column>-text = ''Message''.
<ls_column>-length = 60.
APPEND INITIAL LINE TO lt_columns ASSIGNING <ls_column>.
<ls_column>-name = ''DATETIME''.
<ls_column>-text = ''Datetime''.
<ls_column>-length = 17.
zif_abapgit_popups~popup_to_select_from_list(
EXPORTING
it_list = lt_value_tab
iv_title = |Select a commit|
iv_end_column = 100
iv_striped_pattern = abap_true
iv_optimize_col_width = abap_false
iv_selection_mode = if_salv_c_selection_mode=>single
it_columns_to_display = lt_columns
IMPORTING
et_list = lt_selected_values ).
IF lt_selected_values IS INITIAL.
RAISE EXCEPTION TYPE zcx_abapgit_cancel.
ENDIF.
READ TABLE lt_selected_values ASSIGNING <ls_value_tab> INDEX 1.
ASSERT sy-subrc = 0.
READ TABLE lt_commits INTO rs_commit WITH KEY sha1 = <ls_value_tab>-commit.
ASSERT sy-subrc = 0.
ENDMETHOD.
METHOD zif_abapgit_popups~create_branch_popup.
DATA: lt_fields TYPE TABLE OF sval.
DATA: lv_name TYPE spo_value.
CLEAR: ev_name, ev_cancel.
add_field( EXPORTING iv_tabname = ''TEXTL''
iv_fieldname = ''LINE''
iv_fieldtext = ''Name''
iv_value = ''new-branch-name''
CHANGING ct_fields = lt_fields ).
TRY.
_popup_3_get_values(
EXPORTING iv_popup_title = |Create branch from {
zcl_abapgit_git_branch_list=>get_display_name( iv_source_branch_name ) }|
IMPORTING ev_value_1 = lv_name
CHANGING ct_fields = lt_fields ).
ev_name = zcl_abapgit_git_branch_list=>complete_heads_branch_name(
zcl_abapgit_git_branch_list=>normalize_branch_name( lv_name ) ).
CATCH zcx_abapgit_cancel.
ev_cancel = abap_true.
ENDTRY.
ENDMETHOD.
METHOD zif_abapgit_popups~popup_folder_logic.
DATA:
lt_selection TYPE TABLE OF spopli,
lv_answer TYPE c LENGTH 1.
FIELD-SYMBOLS: <ls_sel> LIKE LINE OF lt_selection.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-selflag = abap_true.
<ls_sel>-varoption = zif_abapgit_dot_abapgit=>c_folder_logic-prefix.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-varoption = zif_abapgit_dot_abapgit=>c_folder_logic-full.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-varoption = zif_abapgit_dot_abapgit=>c_folder_logic-mixed.
CALL FUNCTION ''POPUP_TO_DECIDE_LIST''
EXPORTING
titel = ''Folder logic''
textline1 = ''Select folder logic''
start_col = ms_position-start_column
start_row = ms_position-start_row
IMPORTING
answer = lv_answer
TABLES
t_spopli = lt_selection
EXCEPTIONS
OTHERS = 1.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''Error from POPUP_TO_DECIDE_LIST'' ).
ENDIF.
IF lv_answer = c_answer_cancel.
zcx_abapgit_cancel=>raise( |Canceled| ).
ENDIF.
READ TABLE lt_selection ASSIGNING <ls_sel> WITH KEY selflag = abap_true.
ASSERT sy-subrc = 0.
rv_folder_logic = <ls_sel>-varoption.
ENDMETHOD.
METHOD zif_abapgit_popups~popup_search_help.
DATA lt_ret TYPE TABLE OF ddshretval.
DATA ls_ret LIKE LINE OF lt_ret.
DATA lv_tabname TYPE dfies-tabname.
DATA lv_fieldname TYPE dfies-fieldname.
SPLIT iv_tab_field AT ''-'' INTO lv_tabname lv_fieldname.
lv_tabname = to_upper( lv_tabname ).
lv_fieldname = to_upper( lv_fieldname ).
CALL FUNCTION ''F4IF_FIELD_VALUE_REQUEST''
EXPORTING
tabname = lv_tabname
fieldname = lv_fieldname
TABLES
return_tab = lt_ret
EXCEPTIONS
OTHERS = 5.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |F4IF_FIELD_VALUE_REQUEST error [{ iv_tab_field }]| ).
ENDIF.
IF lines( lt_ret ) > 0.
READ TABLE lt_ret WITH KEY fieldname = lv_fieldname INTO ls_ret.
IF sy-subrc = 0.
rv_value = ls_ret-fieldval.
ELSE.
READ TABLE lt_ret INDEX 1 INTO ls_ret.
ASSERT sy-subrc = 0.
rv_value = ls_ret-fieldval.
ENDIF.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_popups~popup_select_tr_requests.
DATA ls_r_trkorr TYPE LINE OF zif_abapgit_definitions=>ty_trrngtrkor_tt.
DATA lr_request TYPE REF TO trwbo_request_header.
DATA lt_request TYPE trwbo_request_headers.
ms_position = center(
iv_width = 120
iv_height = 10 ).
CALL FUNCTION ''TRINT_SELECT_REQUESTS''
EXPORTING
iv_username_pattern = iv_username_pattern
is_selection = is_selection
iv_complete_projects = abap_false
is_popup = ms_position
iv_via_selscreen = ''X''
iv_title = iv_title
IMPORTING
et_requests = lt_request
EXCEPTIONS
action_aborted_by_user = 1
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''Selection canceled'' ).
ENDIF.
IF lt_request IS INITIAL.
zcx_abapgit_exception=>raise( ''No Request Found'' ).
ENDIF.
IF lines( lt_request ) > 10000.
zcx_abapgit_exception=>raise( ''Too many requests selected (max 10000)'' ).
ENDIF.
LOOP AT lt_request REFERENCE INTO lr_request.
ls_r_trkorr-sign = ''I''.
ls_r_trkorr-option = ''EQ''.
ls_r_trkorr-low = lr_request->trkorr.
INSERT ls_r_trkorr INTO TABLE rt_r_trkorr.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_popups~popup_select_wb_tc_tr_and_tsk.
DATA ls_selection TYPE trwbo_selection.
DATA lv_title TYPE trwbo_title.
ls_selection-trkorrpattern = space.
ls_selection-connect_req_task_conditions = ''X''.
ls_selection-reqfunctions = ''KTRXS''.
ls_selection-reqstatus = ''RNODL''.
ls_selection-taskstatus = ''RNODL''.
CONDENSE ls_selection-reqfunctions NO-GAPS.
ls_selection-taskfunctions = ''QRSX''.
CONCATENATE sy-sysid ''*'' INTO ls_selection-trkorrpattern.
lv_title = ''Select Transports / Tasks''.
rt_r_trkorr = zif_abapgit_popups~popup_select_tr_requests(
is_selection = ls_selection
iv_title = lv_title
iv_username_pattern = ''*'' ).
ENDMETHOD.
METHOD zif_abapgit_popups~popup_to_confirm.
ms_position = center(
iv_width = 65
iv_height = 5 ).
CALL FUNCTION ''POPUP_TO_CONFIRM''
EXPORTING
titlebar = iv_titlebar
text_question = iv_text_question
text_button_1 = iv_text_button_1
icon_button_1 = iv_icon_button_1
text_button_2 = iv_text_button_2
icon_button_2 = iv_icon_button_2
default_button = iv_default_button
display_cancel_button = iv_display_cancel_button
popup_type = iv_popup_type
start_column = ms_position-start_column
start_row = ms_position-start_row
IMPORTING
answer = rv_answer
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''error from POPUP_TO_CONFIRM'' ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_popups~popup_to_create_package.
DATA ls_data TYPE scompkdtln.
MOVE-CORRESPONDING is_package_data TO ls_data.
IF zcl_abapgit_factory=>get_function_module( )->function_exists( ''PB_POPUP_PACKAGE_CREATE'' ) = abap_false.
* looks like the function module used does not exist on all
* versions since 702, so show an error
zcx_abapgit_exception=>raise( ''Your system does not support automatic creation of packages.'' &&
''Please, create the package manually.'' ).
ENDIF.
CALL FUNCTION ''PB_POPUP_PACKAGE_CREATE''
CHANGING
p_object_data = ls_data
EXCEPTIONS
action_cancelled = 1.
ev_create = boolc( sy-subrc = 0 ).
MOVE-CORRESPONDING ls_data TO es_package_data.
ENDMETHOD.
METHOD zif_abapgit_popups~popup_to_create_transp_branch.
DATA: lt_fields TYPE TABLE OF sval,
lv_transports_as_text TYPE string,
lv_desc_as_text TYPE string.
DATA: lv_branch_name TYPE spo_value.
DATA: lv_commit_text TYPE spo_value.
CLEAR: rs_transport_branch-branch_name, rs_transport_branch-commit_text.
lv_transports_as_text = iv_trkorr.
lv_desc_as_text = zcl_abapgit_factory=>get_cts_api( )->read_description( iv_trkorr ).
add_field( EXPORTING iv_tabname = ''TEXTL''
iv_fieldname = ''LINE''
iv_fieldtext = ''Branch name''
iv_value = lv_transports_as_text
CHANGING ct_fields = lt_fields ).
add_field( EXPORTING iv_tabname = ''ABAPTXT255''
iv_fieldname = ''LINE''
iv_fieldtext = ''Commit text''
iv_value = lv_desc_as_text
CHANGING ct_fields = lt_fields ).
_popup_3_get_values( EXPORTING iv_popup_title = ''Transport to new Branch''
IMPORTING ev_value_1 = lv_branch_name
ev_value_2 = lv_commit_text
CHANGING ct_fields = lt_fields ).
rs_transport_branch-branch_name = lv_branch_name.
rs_transport_branch-commit_text = lv_commit_text.
ENDMETHOD.
METHOD zif_abapgit_popups~popup_to_select_from_list.
DATA lo_popup TYPE REF TO lcl_object_decision_list.
CLEAR et_list.
ms_position = center(
iv_width = iv_end_column - iv_start_column
iv_height = iv_end_line - iv_start_line ).
CREATE OBJECT lo_popup
EXPORTING
it_list = it_list
iv_title = iv_title
iv_header_text = iv_header_text
is_position = ms_position
iv_striped_pattern = iv_striped_pattern
iv_optimize_col_width = iv_optimize_col_width
iv_selection_mode = iv_selection_mode
iv_select_column_text = iv_select_column_text
it_columns_to_display = it_columns_to_display
it_preselected_rows = it_preselected_rows.
lo_popup->display( ).
lo_popup->get_selected( IMPORTING et_list = et_list ).
ENDMETHOD.
METHOD zif_abapgit_popups~popup_to_select_labels.
DATA:
lt_all_labels TYPE zif_abapgit_repo_srv=>ty_labels,
ls_label LIKE LINE OF lt_all_labels,
lt_current_labels TYPE string_table,
lt_selected_labels LIKE lt_all_labels,
lt_columns_to_display TYPE zif_abapgit_popups=>ty_alv_column_tt,
lt_preselected_rows TYPE zif_abapgit_popups=>ty_rows,
ls_columns_to_display LIKE LINE OF lt_columns_to_display,
lv_save_tabix TYPE i,
li_popup TYPE REF TO zif_abapgit_popups.
FIELD-SYMBOLS: <lv_label> TYPE zif_abapgit_repo_srv=>ty_label,
<lv_current_label> TYPE LINE OF string_table.
lt_current_labels = zcl_abapgit_repo_labels=>split( iv_labels ).
lt_all_labels = zcl_abapgit_repo_srv=>get_instance( )->get_label_list( ).
" Add labels which are not saved yet
LOOP AT lt_current_labels ASSIGNING <lv_current_label>.
READ TABLE lt_all_labels TRANSPORTING NO FIELDS
WITH KEY key_label
COMPONENTS label = <lv_current_label>.
IF sy-subrc <> 0.
ls_label-label = <lv_current_label>.
INSERT ls_label INTO TABLE lt_all_labels.
ENDIF.
ENDLOOP.
IF lines( lt_all_labels ) = 0.
zcx_abapgit_exception=>raise( |No labels maintained yet| ).
ENDIF.
SORT lt_all_labels.
DELETE ADJACENT DUPLICATES FROM lt_all_labels.
" Preselect current labels
LOOP AT lt_all_labels ASSIGNING <lv_label>.
lv_save_tabix = sy-tabix.
READ TABLE lt_current_labels TRANSPORTING NO FIELDS
WITH KEY table_line = <lv_label>-label.
IF sy-subrc = 0.
INSERT lv_save_tabix INTO TABLE lt_preselected_rows.
ENDIF.
ENDLOOP.
ls_columns_to_display-name = ''LABEL''.
ls_columns_to_display-text = ''Label''.
INSERT ls_columns_to_display INTO TABLE lt_columns_to_display.
li_popup = zcl_abapgit_ui_factory=>get_popups( ).
li_popup->popup_to_select_from_list(
EXPORTING
iv_header_text = ''Select labels''
iv_select_column_text = ''Add label''
it_list = lt_all_labels
iv_selection_mode = if_salv_c_selection_mode=>multiple
it_columns_to_display = lt_columns_to_display
it_preselected_rows = lt_preselected_rows
iv_start_column = 15
iv_end_column = 55
IMPORTING
et_list = lt_selected_labels ).
LOOP AT lt_selected_labels ASSIGNING <lv_label>.
IF rv_labels IS NOT INITIAL.
rv_labels = rv_labels && '',''.
ENDIF.
rv_labels = rv_labels && <lv_label>-label.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_popups~popup_to_select_transport.
CALL FUNCTION ''TR_F4_REQUESTS''
IMPORTING
ev_selected_request = rv_trkorr.
ENDMETHOD.
METHOD zif_abapgit_popups~popup_transport_request.
DATA: lt_e071 TYPE STANDARD TABLE OF e071,
lt_e071k TYPE STANDARD TABLE OF e071k,
lv_order TYPE trkorr,
ls_default TYPE zif_abapgit_default_transport=>ty_get.
DATA lv_category TYPE e070-korrdev.
" If default transport is set and its type matches, then use it as default for the popup
ls_default = zcl_abapgit_factory=>get_default_transport( )->get( ).
IF ( ls_default-trfunction = is_transport_type-request OR ls_default-trfunction IS INITIAL )
AND iv_use_default_transport = abap_true.
lv_order = ls_default-ordernum.
ENDIF.
" Differentiate between customizing and WB requests
IF is_transport_type-request = zif_abapgit_cts_api=>c_transport_type-cust_request.
lv_category = zif_abapgit_cts_api=>c_transport_category-customizing.
ELSE.
lv_category = zif_abapgit_cts_api=>c_transport_category-workbench.
ENDIF.
CALL FUNCTION ''TRINT_ORDER_CHOICE''
EXPORTING
wi_order_type = is_transport_type-request
wi_task_type = is_transport_type-task
wi_category = lv_category
wi_order = lv_order
IMPORTING
we_order = rv_transport
TABLES
wt_e071 = lt_e071
wt_e071k = lt_e071k
EXCEPTIONS
no_correction_selected = 1
display_mode = 2
object_append_error = 3
recursive_call = 4
wrong_order_type = 5
OTHERS = 6.
IF sy-subrc = 1.
RAISE EXCEPTION TYPE zcx_abapgit_cancel.
ELSEIF sy-subrc > 1.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_popups~tag_list_popup.
DATA: lo_branches TYPE REF TO zcl_abapgit_git_branch_list,
lt_tags TYPE zif_abapgit_git_definitions=>ty_git_branch_list_tt,
ls_branch TYPE zif_abapgit_git_definitions=>ty_git_branch,
lv_answer TYPE c LENGTH 1,
lv_default TYPE i,
lv_tag TYPE string,
lt_selection TYPE TABLE OF spopli.
FIELD-SYMBOLS: <ls_sel> LIKE LINE OF lt_selection,
<ls_tag> LIKE LINE OF lt_tags.
lo_branches = zcl_abapgit_git_factory=>get_git_transport( )->branches( iv_url ).
lt_tags = lo_branches->get_tags_only( ).
LOOP AT lt_tags ASSIGNING <ls_tag> WHERE name NP ''*'' && zif_abapgit_git_definitions=>c_git_branch-peel.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-varoption = zcl_abapgit_git_tag=>remove_tag_prefix( <ls_tag>-name ).
ENDLOOP.
IF lt_selection IS INITIAL.
zcx_abapgit_exception=>raise( ''No tags are available to select'' ).
ENDIF.
ms_position = center(
iv_width = 30
iv_height = lines( lt_selection ) ).
CALL FUNCTION ''POPUP_TO_DECIDE_LIST''
EXPORTING
titel = ''Select Tag''
textline1 = ''Select a tag''
start_col = ms_position-start_column
start_row = ms_position-start_row
cursorline = lv_default
IMPORTING
answer = lv_answer
TABLES
t_spopli = lt_selection
EXCEPTIONS
OTHERS = 1.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''Error from POPUP_TO_DECIDE_LIST'' ).
ENDIF.
IF lv_answer = c_answer_cancel.
RETURN.
ENDIF.
READ TABLE lt_selection ASSIGNING <ls_sel> WITH KEY selflag = abap_true.
ASSERT sy-subrc = 0.
lv_tag = zcl_abapgit_git_tag=>add_tag_prefix( <ls_sel>-varoption ).
READ TABLE lt_tags WITH KEY name_key COMPONENTS name = lv_tag ASSIGNING <ls_tag>.
IF sy-subrc <> 0.
" tag name longer than 65 characters
LOOP AT lt_tags ASSIGNING <ls_tag> WHERE name CS lv_tag.
EXIT.
ENDLOOP.
ENDIF.
ASSERT <ls_tag> IS ASSIGNED.
ls_branch = lo_branches->find_by_name( <ls_tag>-name ).
MOVE-CORRESPONDING ls_branch TO rs_tag.
ENDMETHOD.
METHOD _popup_3_get_values.
DATA lv_answer TYPE c LENGTH 1.
FIELD-SYMBOLS: <ls_field> TYPE sval.
ms_position = center(
iv_width = 120
iv_height = lines( ct_fields ) ).
CALL FUNCTION ''POPUP_GET_VALUES''
EXPORTING
no_value_check = iv_no_value_check
popup_title = iv_popup_title
start_column = ms_position-start_column
start_row = ms_position-start_row
IMPORTING
returncode = lv_answer
TABLES
fields = ct_fields
EXCEPTIONS
OTHERS = 1.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( ''Error from POPUP_GET_VALUES'' ).
ENDIF.
IF lv_answer = c_answer_cancel.
RAISE EXCEPTION TYPE zcx_abapgit_cancel.
ENDIF.
IF ev_value_1 IS SUPPLIED.
READ TABLE ct_fields INDEX 1 ASSIGNING <ls_field>.
ASSERT sy-subrc = 0.
ev_value_1 = <ls_field>-value.
ENDIF.
IF ev_value_2 IS SUPPLIED.
READ TABLE ct_fields INDEX 2 ASSIGNING <ls_field>.
ASSERT sy-subrc = 0.
ev_value_2 = <ls_field>-value.
ENDIF.
IF ev_value_3 IS SUPPLIED.
READ TABLE ct_fields INDEX 3 ASSIGNING <ls_field>.
ASSERT sy-subrc = 0.
ev_value_3 = <ls_field>-value.
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_UI_FACTORY ', 'CLASS zcl_abapgit_ui_factory DEFINITION
PUBLIC
CREATE PRIVATE
GLOBAL FRIENDS zcl_abapgit_ui_injector .
PUBLIC SECTION.
CLASS-METHODS get_asset_manager
RETURNING
VALUE(ri_asset_man) TYPE REF TO zif_abapgit_gui_asset_manager
RAISING
zcx_abapgit_exception .
CLASS-METHODS get_popups
RETURNING
VALUE(ri_popups) TYPE REF TO zif_abapgit_popups .
CLASS-METHODS get_gui
RETURNING
VALUE(ro_gui) TYPE REF TO zcl_abapgit_gui
RAISING
zcx_abapgit_exception .
CLASS-METHODS get_gui_services
RETURNING
VALUE(ri_gui_services) TYPE REF TO zif_abapgit_gui_services
RAISING
zcx_abapgit_exception .
CLASS-METHODS get_frontend_services
IMPORTING
!iv_disable_gui TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(ri_fe_serv) TYPE REF TO zif_abapgit_frontend_services .
CLASS-METHODS get_html_viewer
IMPORTING
!io_container TYPE REF TO cl_gui_container DEFAULT cl_gui_container=>screen0
!iv_disable_query_table TYPE abap_bool DEFAULT abap_true
RETURNING
VALUE(ri_viewer) TYPE REF TO zif_abapgit_html_viewer .
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-DATA gi_popups TYPE REF TO zif_abapgit_popups .
CLASS-DATA gi_html_viewer TYPE REF TO zif_abapgit_html_viewer .
CLASS-DATA go_gui TYPE REF TO zcl_abapgit_gui .
CLASS-DATA gi_fe_services TYPE REF TO zif_abapgit_frontend_services .
CLASS-DATA gi_gui_services TYPE REF TO zif_abapgit_gui_services .
ENDCLASS.
CLASS zcl_abapgit_ui_factory IMPLEMENTATION.
METHOD get_asset_manager.
DATA lo_buf TYPE REF TO zcl_abapgit_string_buffer.
DATA li_asset_man TYPE REF TO zif_abapgit_gui_asset_manager.
CREATE OBJECT lo_buf.
li_asset_man = zcl_abapgit_gui_asset_manager=>create( ).
" @@abapmerge include zabapgit_css_common.w3mi.data.css > lo_buf->add( ''$$'' ).
li_asset_man->register_asset(
iv_url = ''css/common.css''
iv_type = ''text/css''
iv_mime_name = ''ZABAPGIT_CSS_COMMON''
iv_inline = lo_buf->join_w_newline_and_flush( ) ).
" @@abapmerge include zabapgit_css_theme_default.w3mi.data.css > lo_buf->add( ''$$'' ).
li_asset_man->register_asset(
iv_url = ''css/theme-default.css''
iv_type = ''text/css''
iv_cacheable = abap_false
iv_mime_name = ''ZABAPGIT_CSS_THEME_DEFAULT''
iv_inline = lo_buf->join_w_newline_and_flush( ) ).
" @@abapmerge include zabapgit_css_theme_dark.w3mi.data.css > lo_buf->add( ''$$'' ).
li_asset_man->register_asset(
iv_url = ''css/theme-dark.css''
iv_type = ''text/css''
iv_cacheable = abap_false
iv_mime_name = ''ZABAPGIT_CSS_THEME_DARK''
iv_inline = lo_buf->join_w_newline_and_flush( ) ).
" @@abapmerge include zabapgit_css_theme_belize_blue.w3mi.data.css > lo_buf->add( ''$$'' ).
li_asset_man->register_asset(
iv_url = ''css/theme-belize-blue.css''
iv_type = ''text/css''
iv_cacheable = abap_false
iv_mime_name = ''ZABAPGIT_CSS_THEME_BELIZE_BLUE''
iv_inline = lo_buf->join_w_newline_and_flush( ) ).
" @@abapmerge include zabapgit_js_common.w3mi.data.js > lo_buf->add( ''$$'' ).
li_asset_man->register_asset(
iv_url = ''js/common.js''
iv_type = ''text/javascript''
iv_mime_name = ''ZABAPGIT_JS_COMMON''
iv_inline = lo_buf->join_w_newline_and_flush( ) ).
" @@abapmerge include zabapgit_icon_font_css.w3mi.data.css > lo_buf->add( ''$$'' ).
li_asset_man->register_asset(
iv_url = ''css/ag-icons.css''
iv_type = ''text/css''
iv_mime_name = ''ZABAPGIT_ICON_FONT_CSS''
iv_inline = lo_buf->join_w_newline_and_flush( ) ).
" @@abapmerge include-base64 zabapgit_icon_font.w3mi.data.woff > lo_buf->add( ''$$'' ).
li_asset_man->register_asset(
iv_url = ''font/ag-icons.woff''
iv_type = ''font/woff''
iv_mime_name = ''ZABAPGIT_ICON_FONT''
iv_base64 = lo_buf->join_and_flush( ) ).
ri_asset_man = li_asset_man.
ENDMETHOD.
METHOD get_frontend_services.
IF gi_fe_services IS INITIAL.
IF iv_disable_gui IS INITIAL.
CREATE OBJECT gi_fe_services TYPE zcl_abapgit_frontend_services.
ELSE.
CREATE OBJECT gi_fe_services TYPE zcl_abapgit_frontend_no_gui.
ENDIF.
ENDIF.
ri_fe_serv = gi_fe_services.
ENDMETHOD.
METHOD get_gui.
DATA:
li_hotkey_ctl TYPE REF TO zif_abapgit_gui_hotkey_ctl,
li_router TYPE REF TO zif_abapgit_gui_event_handler,
li_asset_man TYPE REF TO zif_abapgit_gui_asset_manager.
DATA lo_html_preprocessor TYPE REF TO zcl_abapgit_gui_html_processor.
IF go_gui IS INITIAL.
li_asset_man = get_asset_manager( ).
CREATE OBJECT lo_html_preprocessor EXPORTING ii_asset_man = li_asset_man.
lo_html_preprocessor->preserve_css( ''css/ag-icons.css'' ).
lo_html_preprocessor->preserve_css( ''css/common.css'' ).
CREATE OBJECT li_router TYPE zcl_abapgit_gui_router.
CREATE OBJECT li_hotkey_ctl TYPE zcl_abapgit_gui_hotkey_ctl.
CREATE OBJECT go_gui
EXPORTING
io_component = li_router
ii_hotkey_ctl = li_hotkey_ctl
ii_html_processor = lo_html_preprocessor
ii_asset_man = li_asset_man.
ENDIF.
ro_gui = go_gui.
ENDMETHOD.
METHOD get_gui_services.
IF gi_gui_services IS NOT BOUND.
gi_gui_services ?= get_gui( ).
ENDIF.
ri_gui_services = gi_gui_services.
ENDMETHOD.
METHOD get_html_viewer.
IF gi_html_viewer IS NOT BOUND.
CREATE OBJECT gi_html_viewer TYPE zcl_abapgit_html_viewer_gui
EXPORTING
io_container = io_container
iv_disable_query_table = iv_disable_query_table.
ENDIF.
ri_viewer = gi_html_viewer.
ENDMETHOD.
METHOD get_popups.
IF gi_popups IS INITIAL.
CREATE OBJECT gi_popups TYPE zcl_abapgit_popups.
ENDIF.
ri_popups = gi_popups.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_UI_INJECTOR ', 'CLASS zcl_abapgit_ui_injector DEFINITION
PUBLIC
FOR TESTING
CREATE PRIVATE .
PUBLIC SECTION.
CLASS-METHODS set_popups
IMPORTING
!ii_popups TYPE REF TO zif_abapgit_popups .
CLASS-METHODS set_frontend_services
IMPORTING
!ii_fe_serv TYPE REF TO zif_abapgit_frontend_services .
CLASS-METHODS set_gui_services
IMPORTING
!ii_gui_services TYPE REF TO zif_abapgit_gui_services .
CLASS-METHODS get_dummy_gui_services
RETURNING
VALUE(ri_gui_services) TYPE REF TO zif_abapgit_gui_services .
CLASS-METHODS set_html_viewer
IMPORTING
!ii_html_viewer TYPE REF TO zif_abapgit_html_viewer .
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_ui_injector IMPLEMENTATION.
METHOD get_dummy_gui_services.
ri_gui_services = lcl_gui_services_dummy=>create( ).
ENDMETHOD.
METHOD set_frontend_services.
zcl_abapgit_ui_factory=>gi_fe_services = ii_fe_serv.
ENDMETHOD.
METHOD set_gui_services.
zcl_abapgit_ui_factory=>gi_gui_services = ii_gui_services.
ENDMETHOD.
METHOD set_html_viewer.
zcl_abapgit_ui_factory=>gi_html_viewer = ii_html_viewer.
ENDMETHOD.
METHOD set_popups.
zcl_abapgit_ui_factory=>gi_popups = ii_popups.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_FRONTEND_SERVICES ', 'INTERFACE zif_abapgit_frontend_services PUBLIC.
TYPES:
ty_char1 TYPE c LENGTH 1,
ty_gui_release TYPE n LENGTH 4,
ty_gui_sp TYPE n LENGTH 2,
ty_gui_patch TYPE n LENGTH 2.
METHODS file_upload
IMPORTING
!iv_path TYPE string
RETURNING
VALUE(rv_xstr) TYPE xstring
RAISING
zcx_abapgit_exception.
METHODS file_download
IMPORTING
!iv_path TYPE string
!iv_xstr TYPE xstring
RAISING
zcx_abapgit_exception .
METHODS show_file_save_dialog
IMPORTING
!iv_title TYPE string
!iv_extension TYPE string
!iv_default_filename TYPE string
RETURNING
VALUE(rv_path) TYPE string
RAISING
zcx_abapgit_exception.
METHODS show_file_open_dialog
IMPORTING
!iv_title TYPE string
!iv_extension TYPE string
!iv_default_filename TYPE string
RETURNING
VALUE(rv_path) TYPE string
RAISING
zcx_abapgit_exception.
METHODS clipboard_export
IMPORTING
iv_no_auth_check TYPE abap_bool DEFAULT abap_false
VALUE(it_data) TYPE STANDARD TABLE
RAISING
zcx_abapgit_exception.
METHODS execute
IMPORTING
!iv_document TYPE string OPTIONAL
!iv_application TYPE string OPTIONAL
!iv_parameter TYPE string OPTIONAL
!iv_default_directory TYPE string OPTIONAL
!iv_maximized TYPE string OPTIONAL
!iv_minimized TYPE string OPTIONAL
!iv_synchronous TYPE string OPTIONAL
!iv_operation TYPE string DEFAULT ''OPEN''
RAISING
zcx_abapgit_exception.
METHODS get_system_directory
CHANGING
!cv_system_directory TYPE string
RAISING
zcx_abapgit_exception.
METHODS directory_browse
IMPORTING
iv_window_title TYPE string OPTIONAL
iv_initial_folder TYPE string OPTIONAL
CHANGING
cv_selected_folder TYPE string
RAISING
zcx_abapgit_exception.
METHODS get_file_separator
CHANGING
cv_file_separator TYPE ty_char1
RAISING
zcx_abapgit_exception.
METHODS get_gui_version
EXPORTING
ev_gui_release TYPE ty_gui_release
ev_gui_sp TYPE ty_gui_sp
ev_gui_patch TYPE ty_gui_patch
ev_gui_version_string TYPE string
RAISING
zcx_abapgit_exception.
METHODS directory_exist
IMPORTING
iv_directory TYPE string
RETURNING
VALUE(rv_exists) TYPE abap_bool
RAISING
zcx_abapgit_exception.
METHODS directory_create
IMPORTING
iv_directory TYPE string
CHANGING
cv_rc TYPE i
RAISING
zcx_abapgit_exception.
METHODS gui_is_available
RETURNING
VALUE(rv_gui_is_available) TYPE abap_bool.
METHODS is_sapgui_for_java
RETURNING
VALUE(rv_result) TYPE abap_bool.
METHODS is_sapgui_for_windows
RETURNING
VALUE(rv_result) TYPE abap_bool.
METHODS is_webgui
RETURNING
VALUE(rv_is_webgui) TYPE abap_bool.
METHODS open_ie_devtools
RAISING
zcx_abapgit_exception.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_POPUPS ', 'INTERFACE zif_abapgit_popups
PUBLIC .
TYPES ty_rows TYPE SORTED TABLE OF i WITH UNIQUE KEY table_line.
TYPES:
BEGIN OF ty_alv_column,
name TYPE string,
text TYPE string,
length TYPE lvc_outlen,
show_icon TYPE abap_bool,
center TYPE abap_bool,
END OF ty_alv_column,
ty_alv_column_tt TYPE TABLE OF ty_alv_column WITH DEFAULT KEY.
TYPES:
BEGIN OF ty_popup_position,
start_column LIKE sy-cucol,
start_row LIKE sy-curow,
end_column LIKE sy-cucol,
end_row LIKE sy-curow,
END OF ty_popup_position.
CONSTANTS c_new_branch_label TYPE string VALUE ''+ create new ...'' ##NO_TEXT.
METHODS popup_search_help
IMPORTING
!iv_tab_field TYPE string
RETURNING
VALUE(rv_value) TYPE ddshretval-fieldval
RAISING
zcx_abapgit_exception .
METHODS popup_folder_logic
RETURNING
VALUE(rv_folder_logic) TYPE string
RAISING
zcx_abapgit_exception .
METHODS create_branch_popup
IMPORTING
!iv_source_branch_name TYPE string
EXPORTING
!ev_name TYPE string
!ev_cancel TYPE abap_bool
RAISING
zcx_abapgit_exception .
METHODS branch_list_popup
IMPORTING
!iv_url TYPE string
!iv_default_branch TYPE string OPTIONAL
!iv_show_new_option TYPE abap_bool OPTIONAL
!iv_hide_branch TYPE zif_abapgit_persistence=>ty_repo-branch_name OPTIONAL
!iv_hide_head TYPE abap_bool OPTIONAL
RETURNING
VALUE(rs_branch) TYPE zif_abapgit_git_definitions=>ty_git_branch
RAISING
zcx_abapgit_exception .
METHODS tag_list_popup
IMPORTING
!iv_url TYPE string
RETURNING
VALUE(rs_tag) TYPE zif_abapgit_git_definitions=>ty_git_tag
RAISING
zcx_abapgit_exception .
METHODS commit_list_popup
IMPORTING
!iv_repo_url TYPE string
!iv_branch_name TYPE string OPTIONAL
RETURNING
VALUE(rs_commit) TYPE zif_abapgit_git_definitions=>ty_commit
RAISING
zcx_abapgit_exception .
TYPES ty_char1 TYPE c LENGTH 1.
TYPES ty_icon TYPE c LENGTH 30.
METHODS popup_to_confirm
IMPORTING
!iv_titlebar TYPE clike
!iv_text_question TYPE clike
!iv_text_button_1 TYPE clike DEFAULT ''Yes''
!iv_icon_button_1 TYPE ty_icon DEFAULT space
!iv_text_button_2 TYPE clike DEFAULT ''No''
!iv_icon_button_2 TYPE ty_icon DEFAULT space
!iv_default_button TYPE ty_char1 DEFAULT ''1''
!iv_display_cancel_button TYPE ty_char1 DEFAULT abap_true
!iv_popup_type TYPE clike DEFAULT ''ICON_MESSAGE_QUESTION''
RETURNING
VALUE(rv_answer) TYPE ty_char1
RAISING
zcx_abapgit_exception .
METHODS popup_to_create_package
IMPORTING
is_package_data TYPE zif_abapgit_sap_package=>ty_create OPTIONAL
EXPORTING
!es_package_data TYPE zif_abapgit_sap_package=>ty_create
!ev_create TYPE abap_bool
RAISING
zcx_abapgit_exception .
METHODS popup_to_create_transp_branch
IMPORTING
!iv_trkorr TYPE trkorr
RETURNING
VALUE(rs_transport_branch) TYPE zif_abapgit_definitions=>ty_transport_to_branch
RAISING
zcx_abapgit_exception .
METHODS popup_to_select_transport
RETURNING
VALUE(rv_trkorr) TYPE trkorr .
METHODS popup_to_select_from_list
IMPORTING
!it_list TYPE STANDARD TABLE
!iv_title TYPE lvc_title DEFAULT space
!iv_header_text TYPE csequence DEFAULT space
!iv_start_column TYPE i DEFAULT 10
!iv_end_column TYPE i DEFAULT 125
!iv_start_line TYPE i DEFAULT 10
!iv_end_line TYPE i DEFAULT 30
!iv_striped_pattern TYPE abap_bool DEFAULT abap_false
!iv_optimize_col_width TYPE abap_bool DEFAULT abap_true
!iv_selection_mode TYPE salv_de_constant DEFAULT if_salv_c_selection_mode=>multiple
!iv_select_column_text TYPE csequence DEFAULT space
!it_columns_to_display TYPE ty_alv_column_tt
!it_preselected_rows TYPE ty_rows OPTIONAL
EXPORTING
VALUE(et_list) TYPE STANDARD TABLE
RAISING
zcx_abapgit_exception .
METHODS popup_transport_request
IMPORTING
!is_transport_type TYPE zif_abapgit_definitions=>ty_transport_type OPTIONAL
!iv_use_default_transport TYPE abap_bool DEFAULT abap_false
PREFERRED PARAMETER is_transport_type
RETURNING
VALUE(rv_transport) TYPE trkorr
RAISING
zcx_abapgit_exception .
METHODS popup_select_tr_requests
IMPORTING is_selection TYPE trwbo_selection
iv_title TYPE trwbo_title
iv_username_pattern TYPE any DEFAULT sy-uname
RETURNING VALUE(rt_r_trkorr) TYPE zif_abapgit_definitions=>ty_trrngtrkor_tt
RAISING zcx_abapgit_exception.
METHODS popup_select_wb_tc_tr_and_tsk
RETURNING VALUE(rt_r_trkorr) TYPE zif_abapgit_definitions=>ty_trrngtrkor_tt
RAISING zcx_abapgit_exception.
METHODS popup_to_select_labels
IMPORTING iv_labels TYPE string OPTIONAL
RETURNING VALUE(rv_labels) TYPE string
RAISING zcx_abapgit_exception.
METHODS choose_code_insp_check_variant
RETURNING VALUE(rv_check_variant) TYPE sci_chkv
RAISING
zcx_abapgit_exception.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_CONVERT ', 'CLASS zcl_abapgit_convert DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS bitbyte_to_int
IMPORTING
!iv_bits TYPE clike
RETURNING
VALUE(rv_int) TYPE i .
CLASS-METHODS x_to_bitbyte
IMPORTING
!iv_x TYPE x
RETURNING
VALUE(rv_bitbyte) TYPE zif_abapgit_git_definitions=>ty_bitbyte .
CLASS-METHODS string_to_xstring_utf8
IMPORTING
!iv_string TYPE string
RETURNING
VALUE(rv_xstring) TYPE xstring
RAISING
zcx_abapgit_exception .
CLASS-METHODS xstring_to_string_utf8
IMPORTING
!iv_data TYPE xsequence
!iv_length TYPE i OPTIONAL
RETURNING
VALUE(rv_string) TYPE string
RAISING
zcx_abapgit_exception .
CLASS-METHODS string_to_xstring_utf8_bom
IMPORTING
!iv_string TYPE string
RETURNING
VALUE(rv_xstring) TYPE xstring
RAISING
zcx_abapgit_exception .
CLASS-METHODS xstring_to_string_utf8_bom
IMPORTING
!iv_xstring TYPE xstring
RETURNING
VALUE(rv_string) TYPE string
RAISING
zcx_abapgit_exception .
CLASS-METHODS xstring_to_int
IMPORTING
!iv_xstring TYPE xstring
RETURNING
VALUE(rv_i) TYPE i
RAISING
zcx_abapgit_exception .
CLASS-METHODS int_to_xstring4
IMPORTING
!iv_i TYPE i
RETURNING
VALUE(rv_xstring) TYPE xstring .
CLASS-METHODS split_string
IMPORTING
!iv_string TYPE string
RETURNING
VALUE(rt_lines) TYPE string_table .
CLASS-METHODS conversion_exit_isola_output
IMPORTING
!iv_spras TYPE spras
RETURNING
VALUE(rv_spras) TYPE laiso .
CLASS-METHODS string_to_xstring
IMPORTING
!iv_str TYPE string
RETURNING
VALUE(rv_xstr) TYPE xstring
RAISING
zcx_abapgit_exception .
CLASS-METHODS string_to_tab
IMPORTING
!iv_str TYPE string
EXPORTING
!ev_size TYPE i
!et_tab TYPE STANDARD TABLE .
CLASS-METHODS base64_to_xstring
IMPORTING
!iv_base64 TYPE string
RETURNING
VALUE(rv_xstr) TYPE xstring .
CLASS-METHODS xstring_to_bintab
IMPORTING
!iv_xstr TYPE xstring
EXPORTING
!ev_size TYPE i
!et_bintab TYPE STANDARD TABLE .
CLASS-METHODS language_sap1_to_sap2
IMPORTING
im_lang_sap1 TYPE sy-langu
RETURNING
VALUE(re_lang_sap2) TYPE string
EXCEPTIONS
no_assignment.
CLASS-METHODS language_sap2_to_sap1
IMPORTING
im_lang_sap2 TYPE laiso
RETURNING
VALUE(re_lang_sap1) TYPE sy-langu
EXCEPTIONS
no_assignment.
CLASS-METHODS language_sap1_to_bcp47
IMPORTING
im_lang_sap1 TYPE sy-langu
RETURNING
VALUE(re_lang_bcp47) TYPE string
EXCEPTIONS
no_assignment.
CLASS-METHODS language_bcp47_to_sap1
IMPORTING
im_lang_bcp47 TYPE string
RETURNING
VALUE(re_lang_sap1) TYPE sy-langu
EXCEPTIONS
no_assignment.
TYPES ty_char02 TYPE c LENGTH 2.
CLASS-METHODS uccp
IMPORTING
iv_uccp TYPE string
RETURNING
VALUE(rv_char) TYPE ty_char02
EXCEPTIONS
no_assignment.
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-METHODS xstring_remove_bom
IMPORTING
iv_xstr TYPE xsequence
RETURNING
VALUE(rv_xstr) TYPE xstring.
ENDCLASS.
CLASS zcl_abapgit_convert IMPLEMENTATION.
METHOD base64_to_xstring.
rv_xstr = cl_http_utility=>decode_x_base64( iv_base64 ).
ENDMETHOD.
METHOD bitbyte_to_int.
DATA: lv_bitbyte TYPE string,
lv_len TYPE i,
lv_offset TYPE i.
lv_bitbyte = iv_bits.
SHIFT lv_bitbyte LEFT DELETING LEADING ''0 ''.
lv_len = strlen( lv_bitbyte ).
lv_offset = lv_len - 1.
rv_int = 0.
DO lv_len TIMES.
IF sy-index = 1.
"Initialize
IF lv_bitbyte+lv_offset(1) = ''1''.
rv_int = 1.
ENDIF.
ELSEIF lv_bitbyte+lv_offset(1) = ''1''.
rv_int = rv_int + ( 2 ** ( sy-index - 1 ) ).
ENDIF.
lv_offset = lv_offset - 1. "Move Cursor
ENDDO.
ENDMETHOD.
METHOD conversion_exit_isola_output.
language_sap1_to_sap2(
EXPORTING
im_lang_sap1 = iv_spras
RECEIVING
re_lang_sap2 = rv_spras
EXCEPTIONS
no_assignment = 1
OTHERS = 2 ). "#EC CI_SUBRC
TRANSLATE rv_spras TO UPPER CASE.
ENDMETHOD.
METHOD int_to_xstring4.
* returns xstring of length 4 containing the integer value iv_i
DATA lv_x TYPE x LENGTH 4.
lv_x = iv_i.
rv_xstring = lv_x.
ENDMETHOD.
METHOD language_sap1_to_bcp47.
DATA lv_converter_instance TYPE REF TO object.
DATA lv_converter_class_name TYPE string VALUE \`CL_AFF_LANGUAGE_CONVERTER\`.
TRY.
CALL METHOD (lv_converter_class_name)=>create_instance
RECEIVING
result = lv_converter_instance.
TRY.
CALL METHOD lv_converter_instance->(\`IF_AFF_LANGUAGE_CONVERTER~SAP1_TO_BCP47\`)
EXPORTING
language = im_lang_sap1
RECEIVING
result = re_lang_bcp47.
CATCH cx_static_check.
RAISE no_assignment.
ENDTRY.
CATCH cx_sy_dyn_call_error.
TRY.
re_lang_bcp47 = lcl_bcp47_language_table=>sap1_to_bcp47( im_lang_sap1 ).
CATCH zcx_abapgit_exception.
RAISE no_assignment.
ENDTRY.
ENDTRY.
ENDMETHOD.
METHOD language_bcp47_to_sap1.
DATA lv_converter_instance TYPE REF TO object.
DATA lv_converter_class_name TYPE string VALUE \`CL_AFF_LANGUAGE_CONVERTER\`.
DATA lv_regex TYPE REF TO cl_abap_regex.
DATA lv_abap_matcher TYPE REF TO cl_abap_matcher.
DATA lv_sap2_lang_code TYPE laiso.
TRY.
CALL METHOD (lv_converter_class_name)=>create_instance
RECEIVING
result = lv_converter_instance.
TRY.
CALL METHOD lv_converter_instance->(\`IF_AFF_LANGUAGE_CONVERTER~BCP47_TO_SAP1\`)
EXPORTING
language = im_lang_bcp47
RECEIVING
result = re_lang_sap1.
CATCH cx_static_check.
RAISE no_assignment.
ENDTRY.
CATCH cx_sy_dyn_call_error.
TRY.
re_lang_sap1 = lcl_bcp47_language_table=>bcp47_to_sap1( im_lang_bcp47 ).
CATCH zcx_abapgit_exception.
CREATE OBJECT lv_regex EXPORTING pattern = \`[A-Z0-9]{2}\`.
lv_abap_matcher = lv_regex->create_matcher( text = im_lang_bcp47 ).
IF abap_true = lv_abap_matcher->match( ).
"Fallback try to convert from SAP language
lv_sap2_lang_code = im_lang_bcp47.
language_sap2_to_sap1(
EXPORTING
im_lang_sap2 = lv_sap2_lang_code
RECEIVING
re_lang_sap1 = re_lang_sap1
EXCEPTIONS
no_assignment = 1
OTHERS = 2 ).
IF sy-subrc <> 0.
RAISE no_assignment.
ENDIF.
ELSE.
RAISE no_assignment.
ENDIF.
ENDTRY.
ENDTRY.
ENDMETHOD.
METHOD language_sap1_to_sap2.
TRY.
re_lang_sap2 = lcl_bcp47_language_table=>sap1_to_sap2( im_lang_sap1 ).
CATCH zcx_abapgit_exception.
RAISE no_assignment.
ENDTRY.
ENDMETHOD.
METHOD language_sap2_to_sap1.
TRY.
re_lang_sap1 = lcl_bcp47_language_table=>sap2_to_sap1( im_lang_sap2 ).
CATCH zcx_abapgit_exception.
RAISE no_assignment.
ENDTRY.
ENDMETHOD.
METHOD split_string.
FIND FIRST OCCURRENCE OF cl_abap_char_utilities=>cr_lf IN iv_string.
" Convert string into table depending on separator type CR_LF vs. LF
IF sy-subrc = 0.
SPLIT iv_string AT cl_abap_char_utilities=>cr_lf INTO TABLE rt_lines.
ELSE.
SPLIT iv_string AT cl_abap_char_utilities=>newline INTO TABLE rt_lines.
ENDIF.
ENDMETHOD.
METHOD string_to_tab.
DATA lv_length TYPE i.
DATA lv_iterations TYPE i.
DATA lv_offset TYPE i.
FIELD-SYMBOLS <lg_line> TYPE any.
CLEAR et_tab.
ev_size = strlen( iv_str ).
APPEND INITIAL LINE TO et_tab ASSIGNING <lg_line>.
<lg_line> = iv_str.
lv_length = cl_abap_typedescr=>describe_by_data( <lg_line> )->length / cl_abap_char_utilities=>charsize.
lv_iterations = ev_size DIV lv_length.
DO lv_iterations TIMES.
lv_offset = sy-index * lv_length.
APPEND INITIAL LINE TO et_tab ASSIGNING <lg_line>.
<lg_line> = iv_str+lv_offset.
ENDDO.
ENDMETHOD.
METHOD string_to_xstring.
rv_xstr = string_to_xstring_utf8( iv_str ).
ENDMETHOD.
METHOD string_to_xstring_utf8.
rv_xstring = lcl_out=>convert( iv_string ).
ENDMETHOD.
METHOD string_to_xstring_utf8_bom.
IF iv_string IS INITIAL.
RETURN.
ENDIF.
rv_xstring = string_to_xstring_utf8( iv_string ).
" Add UTF-8 BOM
IF xstrlen( rv_xstring ) < 3 OR rv_xstring(3) <> cl_abap_char_utilities=>byte_order_mark_utf8.
rv_xstring = cl_abap_char_utilities=>byte_order_mark_utf8 && rv_xstring.
ENDIF.
ENDMETHOD.
METHOD xstring_remove_bom.
rv_xstr = iv_xstr.
" cl_abap_conv_in_ce does not handle BOM in non-Unicode systems, so we remove it
IF cl_abap_char_utilities=>charsize = 1 AND xstrlen( rv_xstr ) > 3
AND rv_xstr(3) = cl_abap_char_utilities=>byte_order_mark_utf8.
rv_xstr = rv_xstr+3.
ENDIF.
ENDMETHOD.
METHOD xstring_to_bintab.
DATA lv_length TYPE i.
DATA lv_iterations TYPE i.
DATA lv_offset TYPE i.
DATA lv_struct TYPE abap_bool.
FIELD-SYMBOLS <lg_line> TYPE any.
CLEAR et_bintab.
ev_size = xstrlen( iv_xstr ).
APPEND INITIAL LINE TO et_bintab ASSIGNING <lg_line>.
lv_struct = boolc(
cl_abap_typedescr=>describe_by_data( <lg_line> )->type_kind = cl_abap_typedescr=>typekind_struct1 ).
IF lv_struct = abap_true.
ASSIGN COMPONENT 1 OF STRUCTURE <lg_line> TO <lg_line>.
ENDIF.
<lg_line> = iv_xstr.
lv_length = cl_abap_typedescr=>describe_by_data( <lg_line> )->length.
lv_iterations = ev_size DIV lv_length.
DO lv_iterations TIMES.
lv_offset = sy-index * lv_length.
APPEND INITIAL LINE TO et_bintab ASSIGNING <lg_line>.
IF lv_struct = abap_true.
ASSIGN COMPONENT 1 OF STRUCTURE <lg_line> TO <lg_line>.
ENDIF.
<lg_line> = iv_xstr+lv_offset.
ENDDO.
ENDMETHOD.
METHOD xstring_to_int.
* use the built-in type conversion
rv_i = iv_xstring.
ENDMETHOD.
METHOD xstring_to_string_utf8.
DATA lv_data TYPE xstring.
DATA lv_length TYPE i.
" Remove BOM for non-Unicode systems
lv_data = xstring_remove_bom( iv_data ).
lv_length = iv_length.
IF lv_length <= 0.
lv_length = xstrlen( lv_data ).
ENDIF.
rv_string = lcl_in=>convert(
iv_data = lv_data
iv_length = lv_length ).
ENDMETHOD.
METHOD xstring_to_string_utf8_bom.
DATA lv_xstring TYPE xstring.
IF iv_xstring IS INITIAL.
RETURN.
ENDIF.
lv_xstring = iv_xstring.
" Add UTF-8 BOM
IF xstrlen( lv_xstring ) < 3 OR lv_xstring(3) <> cl_abap_char_utilities=>byte_order_mark_utf8.
lv_xstring = cl_abap_char_utilities=>byte_order_mark_utf8 && lv_xstring.
ENDIF.
rv_string = xstring_to_string_utf8( lv_xstring ).
ENDMETHOD.
METHOD x_to_bitbyte.
CLEAR rv_bitbyte.
GET BIT 1 OF iv_x INTO rv_bitbyte+0(1).
GET BIT 2 OF iv_x INTO rv_bitbyte+1(1).
GET BIT 3 OF iv_x INTO rv_bitbyte+2(1).
GET BIT 4 OF iv_x INTO rv_bitbyte+3(1).
GET BIT 5 OF iv_x INTO rv_bitbyte+4(1).
GET BIT 6 OF iv_x INTO rv_bitbyte+5(1).
GET BIT 7 OF iv_x INTO rv_bitbyte+6(1).
GET BIT 8 OF iv_x INTO rv_bitbyte+7(1).
ENDMETHOD.
METHOD uccp.
DATA lv_class TYPE string.
DATA lv_xstr TYPE xstring.
DATA lo_instance TYPE REF TO object.
lv_class = ''CL_ABAP_CONV_IN_CE''.
TRY.
CALL METHOD (lv_class)=>uccp
EXPORTING
uccp = iv_uccp
RECEIVING
char = rv_char.
CATCH cx_sy_dyn_call_illegal_class.
lv_xstr = iv_uccp.
CALL METHOD (''CL_ABAP_CONV_CODEPAGE'')=>create_in
EXPORTING
codepage = ''UTF-16''
RECEIVING
instance = lo_instance.
* convert endianness
CONCATENATE lv_xstr+1(1) lv_xstr(1) INTO lv_xstr IN BYTE MODE.
CALL METHOD lo_instance->(''IF_ABAP_CONV_IN~CONVERT'')
EXPORTING
source = lv_xstr
RECEIVING
result = rv_char.
ENDTRY.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_DIFF ', 'CLASS zcl_abapgit_diff DEFINITION
PUBLIC
CREATE PUBLIC.
PUBLIC SECTION.
CONSTANTS c_starting_beacon TYPE i VALUE 1.
* assumes data is UTF8 based with newlines
METHODS constructor
IMPORTING
!iv_new TYPE xstring
!iv_old TYPE xstring
!iv_ignore_indentation TYPE abap_bool DEFAULT abap_false
!iv_ignore_comments TYPE abap_bool DEFAULT abap_false
!iv_ignore_case TYPE abap_bool DEFAULT abap_false
RAISING
zcx_abapgit_exception.
METHODS get
RETURNING
VALUE(rt_diff) TYPE zif_abapgit_definitions=>ty_diffs_tt.
METHODS stats
RETURNING
VALUE(rs_count) TYPE zif_abapgit_definitions=>ty_count.
METHODS set_patch_new
IMPORTING
!iv_line_new TYPE i
!iv_patch_flag TYPE abap_bool
RAISING
zcx_abapgit_exception.
METHODS set_patch_old
IMPORTING
!iv_line_old TYPE i
!iv_patch_flag TYPE abap_bool
RAISING
zcx_abapgit_exception.
METHODS get_beacons
RETURNING
VALUE(rt_beacons) TYPE zif_abapgit_definitions=>ty_string_tt.
METHODS is_line_patched
IMPORTING
iv_index TYPE i
RETURNING
VALUE(rv_patched) TYPE abap_bool
RAISING
zcx_abapgit_exception.
METHODS set_patch_by_old_diff
IMPORTING
is_diff_old TYPE zif_abapgit_definitions=>ty_diff
iv_patch_flag TYPE abap_bool.
PROTECTED SECTION.
PRIVATE SECTION.
TYPES:
ty_regexset_tt TYPE STANDARD TABLE OF REF TO cl_abap_regex WITH KEY table_line.
DATA mt_beacons TYPE zif_abapgit_definitions=>ty_string_tt.
DATA mt_diff TYPE zif_abapgit_definitions=>ty_diffs_tt.
DATA ms_stats TYPE zif_abapgit_definitions=>ty_count.
DATA mv_compare_mode TYPE c LENGTH 1.
DATA mv_ignore_case TYPE abap_bool.
METHODS unpack
IMPORTING
!iv_new TYPE xstring
!iv_old TYPE xstring
EXPORTING
!et_new TYPE rswsourcet
!et_old TYPE rswsourcet
RAISING
zcx_abapgit_exception.
METHODS map_beacons.
METHODS shortlist.
METHODS create_regex_set
RETURNING
VALUE(rt_regex_set) TYPE ty_regexset_tt.
METHODS compute_and_render
IMPORTING
!it_new TYPE rswsourcet
!it_old TYPE rswsourcet
RETURNING
VALUE(rt_diff) TYPE zif_abapgit_definitions=>ty_diffs_tt.
METHODS calculate_stats.
METHODS adjust_diff.
ENDCLASS.
CLASS zcl_abapgit_diff IMPLEMENTATION.
METHOD adjust_diff.
" ABAP kernel diff traverses files from bottom up which leads to odd display of diffs
" SAP won''t adjust this kernel service so we will do it here
" https://github.com/abapGit/abapGit/issues/4395
TYPES:
BEGIN OF ty_diff_block,
start TYPE i,
len TYPE i,
END OF ty_diff_block.
DATA:
lv_block_begin TYPE i,
lv_block_end TYPE i,
ls_diff_block TYPE ty_diff_block,
lt_diff_block TYPE STANDARD TABLE OF ty_diff_block WITH DEFAULT KEY.
FIELD-SYMBOLS:
<ls_diff> LIKE LINE OF mt_diff,
<ls_diff_begin> LIKE LINE OF mt_diff,
<ls_diff_end> LIKE LINE OF mt_diff.
" Determine start and length of diff blocks
LOOP AT mt_diff ASSIGNING <ls_diff>.
IF <ls_diff>-result = zif_abapgit_definitions=>c_diff-insert OR
<ls_diff>-result = zif_abapgit_definitions=>c_diff-delete.
IF ls_diff_block IS INITIAL.
ls_diff_block-start = sy-tabix.
ENDIF.
ls_diff_block-len = ls_diff_block-len + 1.
ELSEIF ls_diff_block-start IS NOT INITIAL.
APPEND ls_diff_block TO lt_diff_block.
CLEAR ls_diff_block.
ENDIF.
ENDLOOP.
" For each diff block, check if beginning is same as end of block
" If yes, move diff block down
LOOP AT lt_diff_block INTO ls_diff_block.
DO ls_diff_block-len TIMES.
lv_block_begin = ls_diff_block-start + sy-index - 1.
READ TABLE mt_diff ASSIGNING <ls_diff_begin> INDEX lv_block_begin.
IF sy-subrc <> 0.
EXIT.
ENDIF.
lv_block_end = ls_diff_block-start + ls_diff_block-len + sy-index - 1.
READ TABLE mt_diff ASSIGNING <ls_diff_end> INDEX lv_block_end.
IF sy-subrc <> 0.
EXIT.
ENDIF.
CASE <ls_diff_begin>-result.
WHEN zif_abapgit_definitions=>c_diff-insert.
IF <ls_diff_begin>-new = <ls_diff_end>-new.
<ls_diff_begin>-old_num = <ls_diff_end>-old_num.
<ls_diff_begin>-old = <ls_diff_end>-old.
<ls_diff_end>-result = <ls_diff_begin>-result.
CLEAR: <ls_diff_begin>-result, <ls_diff_end>-old_num, <ls_diff_end>-old.
ELSE.
EXIT.
ENDIF.
WHEN zif_abapgit_definitions=>c_diff-delete.
IF <ls_diff_begin>-old = <ls_diff_end>-old.
<ls_diff_begin>-new_num = <ls_diff_end>-new_num.
<ls_diff_begin>-new = <ls_diff_end>-new.
<ls_diff_end>-result = <ls_diff_begin>-result.
CLEAR: <ls_diff_begin>-result, <ls_diff_end>-new_num, <ls_diff_end>-new.
ELSE.
EXIT.
ENDIF.
WHEN OTHERS.
EXIT.
ENDCASE.
ENDDO.
ENDLOOP.
ENDMETHOD.
METHOD calculate_stats.
FIELD-SYMBOLS: <ls_diff> LIKE LINE OF mt_diff.
LOOP AT mt_diff ASSIGNING <ls_diff>.
CASE <ls_diff>-result.
WHEN zif_abapgit_definitions=>c_diff-insert.
ms_stats-insert = ms_stats-insert + 1.
WHEN zif_abapgit_definitions=>c_diff-delete.
ms_stats-delete = ms_stats-delete + 1.
WHEN zif_abapgit_definitions=>c_diff-update.
ms_stats-update = ms_stats-update + 1.
ENDCASE.
ENDLOOP.
ENDMETHOD.
METHOD compute_and_render.
DATA:
lv_i TYPE i,
ls_diff LIKE LINE OF rt_diff,
lt_delta TYPE STANDARD TABLE OF rsedcresul WITH DEFAULT KEY.
FIELD-SYMBOLS:
<ls_old> LIKE LINE OF it_old,
<ls_new> LIKE LINE OF it_new,
<ls_delta> LIKE LINE OF lt_delta.
" Note: Ignore case is for keywords, variables, types etc, but not for literals
CALL FUNCTION ''RS_CMP_COMPUTE_DELTA''
EXPORTING
compare_mode = mv_compare_mode
ignore_case_differences = mv_ignore_case
TABLES
text_tab1 = it_new
text_tab2 = it_old
text_tab_res = lt_delta
EXCEPTIONS
parameter_invalid = 1
difference_not_found = 2
OTHERS = 3.
IF sy-subrc = 0.
" Process delta
LOOP AT lt_delta ASSIGNING <ls_delta>.
CLEAR ls_diff.
IF <ls_delta>-line1 > 0.
lv_i = <ls_delta>-line1.
ls_diff-old_num = lv_i.
ls_diff-old = <ls_delta>-text1.
ENDIF.
IF <ls_delta>-line2 > 0.
lv_i = <ls_delta>-line2.
ls_diff-new_num = lv_i.
ls_diff-new = <ls_delta>-text2.
ENDIF.
IF <ls_delta>-flag1 = ''D''.
ls_diff-result = zif_abapgit_definitions=>c_diff-delete.
ELSEIF <ls_delta>-flag2 = ''I''.
ls_diff-result = zif_abapgit_definitions=>c_diff-insert.
ELSEIF <ls_delta>-flag1 = ''M'' AND <ls_delta>-flag2 = ''M''.
ls_diff-result = zif_abapgit_definitions=>c_diff-update.
ELSEIF <ls_delta>-flag1 = '''' AND <ls_delta>-flag2 = ''''.
ls_diff-result = zif_abapgit_definitions=>c_diff-unchanged.
ELSEIF <ls_delta>-flag1 = '''' AND <ls_delta>-flag2 = ''E''. " ignore comment
ls_diff-result = zif_abapgit_definitions=>c_diff-unchanged.
ELSEIF <ls_delta>-flag1 = ''E'' AND <ls_delta>-flag2 = ''''. " ignore comment
ls_diff-result = zif_abapgit_definitions=>c_diff-unchanged.
ELSE.
ASSERT 0 = 1. " unknown comparison result
ENDIF.
APPEND ls_diff TO rt_diff.
ENDLOOP.
ELSEIF sy-subrc = 2.
" Copy input... but it might not be identical
LOOP AT it_old ASSIGNING <ls_old>.
CLEAR ls_diff.
ls_diff-old_num = sy-tabix.
ls_diff-old = <ls_old>.
READ TABLE it_new ASSIGNING <ls_new> INDEX sy-tabix.
ASSERT sy-subrc = 0.
ls_diff-new_num = sy-tabix.
ls_diff-new = <ls_new>.
" SAP function ignores lines that contain only whitespace so we compare directly
IF ( mv_compare_mode = 1 OR mv_compare_mode = 3 ) AND <ls_old> <> <ls_new> AND
( strlen( condense( <ls_old> ) ) = 0 OR strlen( condense( <ls_new> ) ) = 0 ).
ls_diff-result = zif_abapgit_definitions=>c_diff-update.
ENDIF.
APPEND ls_diff TO rt_diff.
ENDLOOP.
ELSE.
ASSERT 0 = 1. " incorrect function call
ENDIF.
ENDMETHOD.
METHOD constructor.
DATA: lt_new TYPE rswsourcet,
lt_old TYPE rswsourcet.
mv_compare_mode = 1.
IF iv_ignore_indentation = abap_true.
mv_compare_mode = mv_compare_mode + 1.
ENDIF.
IF iv_ignore_comments = abap_true.
mv_compare_mode = mv_compare_mode + 2.
ENDIF.
mv_ignore_case = iv_ignore_case.
unpack( EXPORTING iv_new = iv_new
iv_old = iv_old
IMPORTING et_new = lt_new
et_old = lt_old ).
mt_diff = compute_and_render( it_new = lt_new
it_old = lt_old ).
adjust_diff( ).
calculate_stats( ).
map_beacons( ).
shortlist( ).
ENDMETHOD.
METHOD create_regex_set.
DATA: lo_regex TYPE REF TO cl_abap_regex,
lt_regex TYPE zif_abapgit_definitions=>ty_string_tt,
lv_regex LIKE LINE OF lt_regex.
APPEND ''^\\s*(CLASS|FORM|MODULE|REPORT|METHOD|INTERFACE|FUNCTION)\\s[^=]'' TO lt_regex.
APPEND ''^\\s*(PUBLIC|PROTECTED|PRIVATE)\\sSECTION(\\s|\\.)'' TO lt_regex.
APPEND ''^\\s*(CLASS|INTERFACE|FUNCTION|TYPE)-POOL\\s'' TO lt_regex.
APPEND ''^\\s*(START|END)-OF-SELECTION(\\s|\\.)'' TO lt_regex.
APPEND ''^\\s*INITIALIZATION(\\s|\\.)'' TO lt_regex.
APPEND ''^\\s*(TOP-OF-PAGE|END-OF-PAGE)(\\s|\\.)'' TO lt_regex.
APPEND ''^\\s*AT\\s*(SELECTION-SCREEN|LINE-SELECTION|USER-COMMAND|PF\\d+)(\\s|\\.)'' TO lt_regex.
APPEND ''^\\s*(DEFINE|ENHANCEMENT)\\s'' TO lt_regex.
LOOP AT lt_regex INTO lv_regex.
CREATE OBJECT lo_regex
EXPORTING
pattern = lv_regex
ignore_case = abap_true.
APPEND lo_regex TO rt_regex_set.
ENDLOOP.
ENDMETHOD.
METHOD get.
rt_diff = mt_diff.
ENDMETHOD.
METHOD get_beacons.
rt_beacons = mt_beacons.
ENDMETHOD.
METHOD is_line_patched.
FIELD-SYMBOLS: <ls_diff> TYPE zif_abapgit_definitions=>ty_diff.
READ TABLE mt_diff INDEX iv_index
ASSIGNING <ls_diff>.
IF sy-subrc = 0.
rv_patched = <ls_diff>-patch_flag.
ELSE.
zcx_abapgit_exception=>raise( |Diff line not found { iv_index }| ).
ENDIF.
ENDMETHOD.
METHOD map_beacons.
DATA: lv_beacon_idx TYPE i VALUE c_starting_beacon,
lv_offs TYPE i,
lv_beacon_str TYPE string,
lv_beacon_2lev TYPE string,
lv_submatch TYPE string,
lo_regex TYPE REF TO cl_abap_regex,
lt_regex TYPE ty_regexset_tt.
FIELD-SYMBOLS: <ls_diff> LIKE LINE OF mt_diff.
lt_regex = create_regex_set( ).
LOOP AT mt_diff ASSIGNING <ls_diff>.
CLEAR lv_offs.
<ls_diff>-beacon = lv_beacon_idx.
LOOP AT lt_regex INTO lo_regex.
FIND FIRST OCCURRENCE OF REGEX lo_regex IN <ls_diff>-new SUBMATCHES lv_submatch.
IF sy-subrc = 0. " Match
lv_beacon_str = <ls_diff>-new.
lv_submatch = to_upper( lv_submatch ).
" Get rid of comments and end of line
FIND FIRST OCCURRENCE OF ''.'' IN lv_beacon_str MATCH OFFSET lv_offs.
IF sy-subrc <> 0.
FIND FIRST OCCURRENCE OF ''"'' IN lv_beacon_str MATCH OFFSET lv_offs.
ENDIF.
IF lv_offs > 0.
lv_beacon_str = lv_beacon_str(lv_offs).
ENDIF.
lv_beacon_str = condense( val = lv_beacon_str
del = \` \` ).
IF lv_submatch = ''CLASS''.
lv_beacon_2lev = replace( val = lv_beacon_str
regex = ''\\s+(DEFINITION|IMPLEMENTATION)''
with = ''''
occ = 0 ).
ELSEIF lv_submatch = ''METHOD''.
lv_beacon_str = lv_beacon_2lev && \` => \` && lv_beacon_str.
ELSEIF lv_submatch = ''PUBLIC'' OR lv_submatch = ''PROTECTED'' OR lv_submatch = ''PRIVATE''.
lv_beacon_str = lv_beacon_2lev && \` \` && lv_beacon_str.
ENDIF.
APPEND lv_beacon_str TO mt_beacons.
lv_beacon_idx = sy-tabix.
<ls_diff>-beacon = lv_beacon_idx.
EXIT. "Loop
ENDIF.
ENDLOOP.
ENDLOOP.
ENDMETHOD.
METHOD set_patch_by_old_diff.
FIELD-SYMBOLS: <ls_diff> TYPE zif_abapgit_definitions=>ty_diff.
LOOP AT mt_diff ASSIGNING <ls_diff>
USING KEY new_num
WHERE old = is_diff_old-old
AND new = is_diff_old-new
AND new_num = is_diff_old-new_num
AND old_num = is_diff_old-old_num.
<ls_diff>-patch_flag = iv_patch_flag.
EXIT.
ENDLOOP.
ENDMETHOD.
METHOD set_patch_new.
FIELD-SYMBOLS: <ls_diff> TYPE zif_abapgit_definitions=>ty_diff.
READ TABLE mt_diff WITH TABLE KEY new_num
COMPONENTS new_num = iv_line_new
ASSIGNING <ls_diff>.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Invalid new line number { iv_line_new }| ).
ENDIF.
<ls_diff>-patch_flag = iv_patch_flag.
ENDMETHOD.
METHOD set_patch_old.
FIELD-SYMBOLS: <ls_diff> TYPE zif_abapgit_definitions=>ty_diff.
READ TABLE mt_diff WITH TABLE KEY old_num
COMPONENTS old_num = iv_line_old
ASSIGNING <ls_diff>.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Invalid old line number { iv_line_old }| ).
ENDIF.
<ls_diff>-patch_flag = iv_patch_flag.
ENDMETHOD.
METHOD shortlist.
DATA: lv_index TYPE i.
FIELD-SYMBOLS: <ls_diff> LIKE LINE OF mt_diff.
IF lines( mt_diff ) < 20.
LOOP AT mt_diff ASSIGNING <ls_diff>.
<ls_diff>-short = abap_true.
ENDLOOP.
ELSE.
LOOP AT mt_diff TRANSPORTING NO FIELDS
WHERE NOT result IS INITIAL AND short = abap_false.
lv_index = sy-tabix.
DO 8 TIMES. " Backward
READ TABLE mt_diff INDEX ( lv_index - sy-index ) ASSIGNING <ls_diff>.
IF sy-subrc <> 0 OR <ls_diff>-short = abap_true. " tab bound or prev marker
EXIT.
ENDIF.
<ls_diff>-short = abap_true.
ENDDO.
DO 8 TIMES. " Forward
READ TABLE mt_diff INDEX ( lv_index + sy-index - 1 ) ASSIGNING <ls_diff>.
IF sy-subrc <> 0. " tab bound reached
EXIT.
ENDIF.
CHECK <ls_diff>-short = abap_false. " skip marked
<ls_diff>-short = abap_true.
ENDDO.
ENDLOOP.
ENDIF.
ENDMETHOD.
METHOD stats.
rs_count = ms_stats.
ENDMETHOD.
METHOD unpack.
DATA: lv_new TYPE string,
lv_old TYPE string,
lv_new_last TYPE c LENGTH 1,
lv_old_last TYPE c LENGTH 1.
lv_new = zcl_abapgit_convert=>xstring_to_string_utf8( iv_new ).
lv_old = zcl_abapgit_convert=>xstring_to_string_utf8( iv_old ).
" Check if one value contains a final newline but the other not
" If yes, add a special character that''s visible in diff render
IF lv_new IS NOT INITIAL.
lv_new_last = substring(
val = lv_new
off = strlen( lv_new ) - 1 ).
ENDIF.
IF lv_old IS NOT INITIAL.
lv_old_last = substring(
val = lv_old
off = strlen( lv_old ) - 1 ).
ENDIF.
IF lv_new_last = cl_abap_char_utilities=>newline AND lv_old_last <> cl_abap_char_utilities=>newline
AND lv_old IS NOT INITIAL.
lv_old = lv_old && cl_abap_char_utilities=>form_feed.
ELSEIF lv_new_last <> cl_abap_char_utilities=>newline AND lv_old_last = cl_abap_char_utilities=>newline
AND lv_new IS NOT INITIAL.
lv_new = lv_new && cl_abap_char_utilities=>form_feed.
ENDIF.
SPLIT lv_new AT cl_abap_char_utilities=>newline INTO TABLE et_new.
SPLIT lv_old AT cl_abap_char_utilities=>newline INTO TABLE et_old.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_LOG ', 'CLASS zcl_abapgit_log DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES zif_abapgit_log .
METHODS constructor
IMPORTING
iv_title TYPE string OPTIONAL.
CLASS-METHODS from_exception
IMPORTING
io_x TYPE REF TO cx_root
RETURNING
VALUE(ro_log) TYPE REF TO zcl_abapgit_log.
PROTECTED SECTION.
TYPES:
BEGIN OF ty_log, "in order of occurrence
msg TYPE zif_abapgit_log=>ty_msg,
item TYPE zif_abapgit_definitions=>ty_item,
exception TYPE REF TO cx_root,
END OF ty_log .
DATA:
mt_log TYPE STANDARD TABLE OF ty_log WITH DEFAULT KEY .
DATA mv_title TYPE string .
METHODS get_messages_status
IMPORTING
!it_msg TYPE zif_abapgit_log=>ty_msgs
RETURNING
VALUE(rv_status) TYPE sy-msgty .
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_log IMPLEMENTATION.
METHOD constructor.
zif_abapgit_log~set_title( iv_title ).
ENDMETHOD.
METHOD from_exception.
CREATE OBJECT ro_log.
IF io_x IS BOUND.
ro_log->zif_abapgit_log~add_exception( io_x ).
ENDIF.
ENDMETHOD.
METHOD get_messages_status.
DATA lr_msg TYPE REF TO zif_abapgit_log=>ty_msg.
rv_status = ''S''.
LOOP AT it_msg REFERENCE INTO lr_msg.
CASE lr_msg->type.
WHEN ''E'' OR ''A'' OR ''X''.
rv_status = ''E''. "not okay
EXIT.
WHEN ''W''.
rv_status = ''W''. "maybe
CONTINUE.
WHEN ''S'' OR ''I''.
IF rv_status <> ''W''.
rv_status = ''S''. "okay
ENDIF.
CONTINUE.
WHEN OTHERS. "unknown
CONTINUE.
ENDCASE.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_log~add.
FIELD-SYMBOLS: <ls_log> LIKE LINE OF mt_log.
APPEND INITIAL LINE TO mt_log ASSIGNING <ls_log>.
<ls_log>-msg-text = iv_msg.
<ls_log>-msg-type = iv_type.
<ls_log>-item = is_item.
<ls_log>-exception = ix_exc.
CASE iv_type.
WHEN ''E'' OR ''A'' OR ''X''.
<ls_log>-msg-level = zif_abapgit_log=>c_log_level-error.
WHEN ''W''.
<ls_log>-msg-level = zif_abapgit_log=>c_log_level-warning.
WHEN ''S'' OR ''I''.
<ls_log>-msg-level = zif_abapgit_log=>c_log_level-info.
WHEN OTHERS. "unknown
ASSERT 0 = 1.
ENDCASE.
ENDMETHOD.
METHOD zif_abapgit_log~add_error.
zif_abapgit_log~add(
iv_msg = iv_msg
iv_type = ''E''
is_item = is_item ).
ENDMETHOD.
METHOD zif_abapgit_log~add_exception.
DATA lx_exc TYPE REF TO cx_root.
DATA lv_msg TYPE string.
lx_exc = ix_exc.
DO.
lv_msg = lx_exc->get_text( ).
zif_abapgit_log~add( iv_msg = lv_msg
iv_type = ''E''
is_item = is_item
ix_exc = lx_exc ).
IF lx_exc->previous IS BOUND.
lx_exc = lx_exc->previous.
ELSE.
EXIT.
ENDIF.
ENDDO.
ENDMETHOD.
METHOD zif_abapgit_log~add_info.
zif_abapgit_log~add(
iv_msg = iv_msg
iv_type = ''I''
is_item = is_item ).
ENDMETHOD.
METHOD zif_abapgit_log~add_success.
zif_abapgit_log~add(
iv_msg = iv_msg
iv_type = ''S''
is_item = is_item ).
ENDMETHOD.
METHOD zif_abapgit_log~add_warning.
zif_abapgit_log~add(
iv_msg = iv_msg
iv_type = ''W''
is_item = is_item ).
ENDMETHOD.
METHOD zif_abapgit_log~clear.
CLEAR mt_log.
ENDMETHOD.
METHOD zif_abapgit_log~clone.
DATA lo_log TYPE REF TO zcl_abapgit_log.
CREATE OBJECT lo_log EXPORTING iv_title = mv_title.
lo_log->mt_log = mt_log.
ri_log = lo_log.
ENDMETHOD.
METHOD zif_abapgit_log~count.
rv_count = lines( mt_log ).
ENDMETHOD.
METHOD zif_abapgit_log~get_item_status.
DATA lr_log TYPE REF TO ty_log.
DATA ls_msg TYPE zif_abapgit_log=>ty_msg.
DATA ls_item_status TYPE zif_abapgit_log=>ty_item_status_out.
DATA lr_item_status TYPE REF TO zif_abapgit_log=>ty_item_status_out.
"collect all message for all objects
LOOP AT mt_log REFERENCE INTO lr_log.
CLEAR ls_item_status.
ls_item_status-item = lr_log->item.
READ TABLE rt_item_status REFERENCE INTO lr_item_status
WITH KEY item-obj_type = ls_item_status-item-obj_type
item-obj_name = ls_item_status-item-obj_name.
IF sy-subrc <> 0.
INSERT ls_item_status INTO TABLE rt_item_status.
GET REFERENCE OF ls_item_status INTO lr_item_status.
ENDIF.
CLEAR ls_msg.
ls_msg-type = lr_log->msg-type.
ls_msg-text = lr_log->msg-text.
INSERT ls_msg INTO TABLE lr_item_status->messages.
ENDLOOP.
"determine object status from object messages
LOOP AT rt_item_status REFERENCE INTO lr_item_status.
lr_item_status->status = get_messages_status( lr_item_status->messages ).
IF lr_item_status->messages IS INITIAL.
CLEAR ls_msg.
ls_msg-type = ''I''.
ls_msg-text = ''No message''.
INSERT ls_msg INTO TABLE lr_item_status->messages.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_log~get_log_level.
FIELD-SYMBOLS <ls_log> LIKE LINE OF mt_log.
rv_level = zif_abapgit_log=>c_log_level-empty.
LOOP AT mt_log ASSIGNING <ls_log>.
IF <ls_log>-msg-level = zif_abapgit_log=>c_log_level-error.
rv_level = zif_abapgit_log=>c_log_level-error.
EXIT.
ELSEIF <ls_log>-msg-level > rv_level.
rv_level = <ls_log>-msg-level.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_log~get_messages.
DATA ls_msg TYPE zif_abapgit_log~ty_log_out.
FIELD-SYMBOLS <ls_log> TYPE ty_log.
LOOP AT mt_log ASSIGNING <ls_log>.
ls_msg-type = <ls_log>-msg-type.
ls_msg-text = <ls_log>-msg-text.
ls_msg-obj_type = <ls_log>-item-obj_type.
ls_msg-obj_name = <ls_log>-item-obj_name.
ls_msg-exception = <ls_log>-exception.
APPEND ls_msg TO rt_msg.
ENDLOOP.
DELETE ADJACENT DUPLICATES FROM rt_msg.
ENDMETHOD.
METHOD zif_abapgit_log~get_status.
DATA lr_log TYPE REF TO ty_log.
rv_status = zif_abapgit_log=>c_status-ok.
LOOP AT mt_log REFERENCE INTO lr_log.
CASE lr_log->msg-type.
WHEN ''E'' OR ''A'' OR ''X''.
rv_status = zif_abapgit_log=>c_status-error.
EXIT.
WHEN ''W''.
rv_status = zif_abapgit_log=>c_status-warning.
CONTINUE.
WHEN ''S'' OR ''I''.
IF rv_status <> zif_abapgit_log=>c_status-warning.
rv_status = zif_abapgit_log=>c_status-ok.
ENDIF.
CONTINUE.
WHEN OTHERS. "unknown
ASSERT 0 = 1.
ENDCASE.
ENDLOOP.
ENDMETHOD.
METHOD zif_abapgit_log~get_title.
rv_title = mv_title.
IF rv_title IS INITIAL.
rv_title = ''Log''.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_log~merge_with.
DATA lo_log TYPE REF TO zcl_abapgit_log.
DATA lt_log_temp LIKE lo_log->mt_log.
IF ii_log IS BOUND.
lo_log ?= ii_log.
IF iv_min_level > 0.
lt_log_temp = lo_log->mt_log.
DELETE lt_log_temp WHERE msg-level < iv_min_level.
APPEND LINES OF lt_log_temp TO mt_log.
ELSE.
APPEND LINES OF lo_log->mt_log TO mt_log.
ENDIF.
ENDIF.
ri_log = me.
ENDMETHOD.
METHOD zif_abapgit_log~set_title.
mv_title = iv_title.
ri_log = me.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_PATH ', 'CLASS zcl_abapgit_path DEFINITION
PUBLIC FINAL
CREATE PUBLIC.
PUBLIC SECTION.
CLASS-METHODS split_file_location
IMPORTING iv_fullpath TYPE string
EXPORTING ev_path TYPE string
ev_filename TYPE string.
CLASS-METHODS is_root
IMPORTING iv_path TYPE string
RETURNING VALUE(rv_yes) TYPE abap_bool.
CLASS-METHODS is_subdir
IMPORTING iv_path TYPE string
iv_parent TYPE string
RETURNING VALUE(rv_yes) TYPE abap_bool.
CLASS-METHODS change_dir
IMPORTING iv_cur_dir TYPE string
iv_cd TYPE string
RETURNING VALUE(rv_path) TYPE string.
CLASS-METHODS get_filename_from_syspath
IMPORTING iv_path TYPE string
RETURNING VALUE(rv_filename) TYPE string.
ENDCLASS.
CLASS ZCL_ABAPGIT_PATH IMPLEMENTATION.
METHOD change_dir.
DATA: lv_last TYPE i,
lv_temp TYPE string.
lv_last = strlen( iv_cur_dir ) - 1.
IF iv_cd = '''' OR iv_cd = ''.''. " No change
rv_path = iv_cur_dir.
ELSEIF iv_cd+0(1) = ''/''. " Absolute path
rv_path = iv_cd.
ELSEIF iv_cd = ''..''. " CD back
IF iv_cur_dir = ''/'' OR iv_cur_dir = ''''. " Back from root = root
rv_path = iv_cur_dir.
ELSE.
lv_temp = reverse( iv_cur_dir ).
IF lv_temp+0(1) = ''/''.
SHIFT lv_temp BY 1 PLACES LEFT.
ENDIF.
SHIFT lv_temp UP TO ''/'' LEFT.
rv_path = reverse( lv_temp ).
ENDIF.
ELSEIF iv_cur_dir+lv_last(1) = ''/''. " Append cd to cur_dir separated by /
rv_path = iv_cur_dir && iv_cd.
ELSE.
rv_path = iv_cur_dir && ''/'' && iv_cd.
ENDIF.
" TODO: improve logic and cases
ENDMETHOD.
METHOD get_filename_from_syspath.
DATA: lv_split TYPE c LENGTH 1,
lv_index TYPE i,
lt_split TYPE TABLE OF string.
" filename | c:\\filename | /dir/filename | \\\\server\\filename
IF iv_path CA ''/''.
lv_split = ''/''.
ELSE.
lv_split = ''\\''.
ENDIF.
SPLIT iv_path AT lv_split INTO TABLE lt_split.
lv_index = lines( lt_split ).
READ TABLE lt_split INDEX lv_index INTO rv_filename.
ENDMETHOD.
METHOD is_root.
rv_yes = boolc( iv_path = ''/'' ).
ENDMETHOD.
METHOD is_subdir.
DATA lv_len TYPE i.
DATA lv_last TYPE i.
lv_len = strlen( iv_parent ).
lv_last = lv_len - 1.
rv_yes = boolc( strlen( iv_path ) > lv_len
AND iv_path+0(lv_len) = iv_parent
AND ( iv_parent+lv_last(1) = ''/'' OR iv_path+lv_len(1) = ''/'' ) ).
ENDMETHOD.
METHOD split_file_location.
DATA: lv_cnt TYPE i,
lv_len TYPE i.
FIND FIRST OCCURRENCE OF REGEX ''^/(.*/)?'' IN iv_fullpath
MATCH COUNT lv_cnt
MATCH LENGTH lv_len.
IF lv_cnt > 0.
ev_path = iv_fullpath+0(lv_len).
ev_filename = iv_fullpath+lv_len.
ELSE.
CLEAR ev_path.
ev_filename = iv_fullpath.
ENDIF.
ev_filename = cl_http_utility=>unescape_url( escaped = ev_filename ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_STRING_BUFFER ', 'CLASS zcl_abapgit_string_buffer DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS new
RETURNING
VALUE(ro_me) TYPE REF TO zcl_abapgit_string_buffer.
METHODS add
IMPORTING
!iv_str TYPE string
RETURNING
VALUE(ro_me) TYPE REF TO zcl_abapgit_string_buffer.
METHODS join_and_flush
RETURNING
VALUE(rv_str) TYPE string.
METHODS join_w_newline_and_flush
RETURNING
VALUE(rv_str) TYPE string.
METHODS join_w_space_and_flush
RETURNING
VALUE(rv_str) TYPE string.
PROTECTED SECTION.
PRIVATE SECTION.
DATA mt_buffer TYPE string_table.
ENDCLASS.
CLASS ZCL_ABAPGIT_STRING_BUFFER IMPLEMENTATION.
METHOD add.
APPEND iv_str TO mt_buffer.
ro_me = me.
ENDMETHOD.
METHOD join_and_flush.
rv_str = concat_lines_of( mt_buffer ).
CLEAR mt_buffer.
ENDMETHOD.
METHOD join_w_newline_and_flush.
rv_str = concat_lines_of(
table = mt_buffer
sep = cl_abap_char_utilities=>newline ).
CLEAR mt_buffer.
ENDMETHOD.
METHOD join_w_space_and_flush.
rv_str = concat_lines_of(
table = mt_buffer
sep = \` \` ).
CLEAR mt_buffer.
ENDMETHOD.
METHOD new.
CREATE OBJECT ro_me.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_STRING_MAP ', 'CLASS zcl_abapgit_string_map DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
TYPES:
BEGIN OF ty_entry,
k TYPE string,
v TYPE string,
END OF ty_entry .
TYPES:
ty_entries TYPE SORTED TABLE OF ty_entry WITH UNIQUE KEY k .
DATA mt_entries TYPE ty_entries READ-ONLY .
CLASS-METHODS create
IMPORTING
!iv_case_insensitive TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(ro_instance) TYPE REF TO zcl_abapgit_string_map .
METHODS constructor
IMPORTING
!iv_case_insensitive TYPE abap_bool DEFAULT abap_false .
METHODS get
IMPORTING
!iv_key TYPE string
RETURNING
VALUE(rv_val) TYPE string .
METHODS has
IMPORTING
!iv_key TYPE string
RETURNING
VALUE(rv_has) TYPE abap_bool .
METHODS set
IMPORTING
!iv_key TYPE string
!iv_val TYPE csequence OPTIONAL
RETURNING
VALUE(ro_map) TYPE REF TO zcl_abapgit_string_map
RAISING
zcx_abapgit_exception .
METHODS size
RETURNING
VALUE(rv_size) TYPE i .
METHODS is_empty
RETURNING
VALUE(rv_yes) TYPE abap_bool .
METHODS delete
IMPORTING
!iv_key TYPE string
RAISING
zcx_abapgit_exception .
METHODS clear
RAISING
zcx_abapgit_exception .
METHODS to_abap
CHANGING
!cs_container TYPE any
RAISING
zcx_abapgit_exception .
METHODS strict
IMPORTING
!iv_strict TYPE abap_bool DEFAULT abap_true
RETURNING
VALUE(ro_instance) TYPE REF TO zcl_abapgit_string_map .
METHODS freeze .
METHODS merge
IMPORTING
!io_string_map TYPE REF TO zcl_abapgit_string_map
RETURNING
VALUE(ro_instance) TYPE REF TO zcl_abapgit_string_map
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
PRIVATE SECTION.
DATA mv_read_only TYPE abap_bool.
DATA mv_is_strict TYPE abap_bool.
DATA mv_case_insensitive TYPE abap_bool.
ENDCLASS.
CLASS ZCL_ABAPGIT_STRING_MAP IMPLEMENTATION.
METHOD clear.
IF mv_read_only = abap_true.
zcx_abapgit_exception=>raise( ''Cannot clear. This string map is immutable'' ).
ENDIF.
CLEAR mt_entries.
ENDMETHOD.
METHOD constructor.
mv_is_strict = abap_true.
mv_case_insensitive = iv_case_insensitive.
ENDMETHOD.
METHOD create.
CREATE OBJECT ro_instance
EXPORTING
iv_case_insensitive = iv_case_insensitive.
ENDMETHOD.
METHOD delete.
IF mv_read_only = abap_true.
zcx_abapgit_exception=>raise( ''Cannot delete. This string map is immutable'' ).
ENDIF.
DELETE mt_entries WHERE k = iv_key.
ENDMETHOD.
METHOD freeze.
mv_read_only = abap_true.
ENDMETHOD.
METHOD get.
DATA lv_key LIKE iv_key.
FIELD-SYMBOLS <ls_entry> LIKE LINE OF mt_entries.
IF mv_case_insensitive = abap_true.
lv_key = to_upper( iv_key ).
ELSE.
lv_key = iv_key.
ENDIF.
READ TABLE mt_entries ASSIGNING <ls_entry> WITH KEY k = lv_key.
IF sy-subrc IS INITIAL.
rv_val = <ls_entry>-v.
ENDIF.
ENDMETHOD.
METHOD has.
READ TABLE mt_entries TRANSPORTING NO FIELDS WITH KEY k = iv_key.
rv_has = boolc( sy-subrc IS INITIAL ).
ENDMETHOD.
METHOD is_empty.
rv_yes = boolc( lines( mt_entries ) = 0 ).
ENDMETHOD.
METHOD merge.
FIELD-SYMBOLS <ls_entry> LIKE LINE OF mt_entries.
LOOP AT io_string_map->mt_entries ASSIGNING <ls_entry>.
set(
iv_key = <ls_entry>-k
iv_val = <ls_entry>-v ).
ENDLOOP.
ro_instance = me.
ENDMETHOD.
METHOD set.
DATA lv_key LIKE iv_key.
DATA ls_entry LIKE LINE OF mt_entries.
FIELD-SYMBOLS <ls_entry> LIKE LINE OF mt_entries.
IF mv_read_only = abap_true.
zcx_abapgit_exception=>raise( ''Cannot set. This string map is immutable'' ).
ENDIF.
IF mv_case_insensitive = abap_true.
lv_key = to_upper( iv_key ).
ELSE.
lv_key = iv_key.
ENDIF.
READ TABLE mt_entries ASSIGNING <ls_entry> WITH KEY k = lv_key.
IF sy-subrc IS INITIAL.
<ls_entry>-v = iv_val.
ELSE.
ls_entry-k = lv_key.
ls_entry-v = iv_val.
INSERT ls_entry INTO TABLE mt_entries.
ENDIF.
ro_map = me.
ENDMETHOD.
METHOD size.
rv_size = lines( mt_entries ).
ENDMETHOD.
METHOD strict.
mv_is_strict = iv_strict.
ro_instance = me.
ENDMETHOD.
METHOD to_abap.
DATA lo_type TYPE REF TO cl_abap_typedescr.
DATA lv_field TYPE string.
FIELD-SYMBOLS <ls_entry> LIKE LINE OF mt_entries.
FIELD-SYMBOLS <lv_val> TYPE any.
lo_type = cl_abap_typedescr=>describe_by_data( cs_container ).
IF lo_type->type_kind <> cl_abap_typedescr=>typekind_struct1
AND lo_type->type_kind <> cl_abap_typedescr=>typekind_struct2.
zcx_abapgit_exception=>raise( ''Only structures supported'' ).
ENDIF.
LOOP AT mt_entries ASSIGNING <ls_entry>.
lv_field = to_upper( <ls_entry>-k ).
ASSIGN COMPONENT lv_field OF STRUCTURE cs_container TO <lv_val>.
IF sy-subrc = 0.
" TODO check target type ?
<lv_val> = <ls_entry>-v.
ELSEIF mv_is_strict = abap_false.
CONTINUE.
ELSE.
zcx_abapgit_exception=>raise( |Component { lv_field } not found in target| ).
ENDIF.
ENDLOOP.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_TIMER ', 'CLASS zcl_abapgit_timer DEFINITION
PUBLIC
FINAL
CREATE PRIVATE.
PUBLIC SECTION.
CLASS-METHODS create
IMPORTING
!iv_text TYPE string OPTIONAL
!iv_count TYPE i OPTIONAL
PREFERRED PARAMETER iv_text
RETURNING
VALUE(ro_timer) TYPE REF TO zcl_abapgit_timer.
METHODS constructor
IMPORTING
!iv_text TYPE string OPTIONAL
!iv_count TYPE i OPTIONAL.
METHODS start
RETURNING
VALUE(ro_timer) TYPE REF TO zcl_abapgit_timer.
METHODS end
IMPORTING
!iv_output_as_status_message TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(rv_result) TYPE string.
PROTECTED SECTION.
PRIVATE SECTION.
DATA mv_text TYPE string.
DATA mv_count TYPE i.
DATA mv_timer TYPE timestampl.
ENDCLASS.
CLASS zcl_abapgit_timer IMPLEMENTATION.
METHOD constructor.
mv_text = iv_text.
mv_count = iv_count.
ENDMETHOD.
METHOD create.
CREATE OBJECT ro_timer
EXPORTING
iv_text = iv_text
iv_count = iv_count.
ENDMETHOD.
METHOD end.
DATA:
lv_timestamp TYPE timestampl,
lv_runtime TYPE timestampl,
lv_sec TYPE p LENGTH 11 DECIMALS 2.
IF mv_timer IS INITIAL.
rv_result = ''Runtime measurement has not been started''.
ELSE.
GET TIME STAMP FIELD lv_timestamp.
TRY.
lv_runtime = cl_abap_tstmp=>subtract(
tstmp1 = lv_timestamp
tstmp2 = mv_timer ).
lv_sec = lv_runtime. " round to 2 decimal places
IF mv_count = 1.
rv_result = |1 object, |.
ELSEIF mv_count > 1.
rv_result = |{ mv_count } objects, |.
ENDIF.
rv_result = rv_result && |{ lv_sec } seconds|.
CATCH cx_parameter_invalid.
rv_result = ''Error getting runtime measurement''.
ENDTRY.
ENDIF.
IF iv_output_as_status_message = abap_true.
MESSAGE s000(oo) WITH mv_text rv_result.
ENDIF.
IF mv_text IS NOT INITIAL.
rv_result = |{ mv_text } { rv_result }|.
ENDIF.
ENDMETHOD.
METHOD start.
GET TIME STAMP FIELD mv_timer.
ro_timer = me.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_UTILS ', 'CLASS zcl_abapgit_utils DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS is_binary
IMPORTING
!iv_data TYPE xstring
RETURNING
VALUE(rv_is_binary) TYPE abap_bool.
CLASS-METHODS is_valid_email
IMPORTING
iv_email TYPE string
RETURNING
VALUE(rv_valid) TYPE abap_bool.
CLASS-METHODS check_eol
IMPORTING
!iv_data TYPE string
RAISING
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_utils IMPLEMENTATION.
METHOD check_eol.
" Check if data is using CRLF as EOL separator. If only LF is used, data was likely
" edited by external tools
IF iv_data IS NOT INITIAL AND
iv_data CS cl_abap_char_utilities=>newline AND
iv_data NS cl_abap_char_utilities=>cr_lf.
zcx_abapgit_exception=>raise( ''Incorrect source format: Requires CRLF instead of LF'' ).
ENDIF.
ENDMETHOD.
METHOD is_binary.
" Previously we did a simple char range test described here
" stackoverflow.com/questions/277521/how-to-identify-the-file-content-as-ascii-or-binary
" but this is insufficient if the data contains German umlauts and other special characters.
" Therefore we adopted another algorithm, which is similarly used by AL11
" RSWATCH0 / GUESS_FILE_TYPE
" We count non-printable characters if there are more than XX% it''s binary.
CONSTANTS:
lc_binary_threshold TYPE i VALUE 10,
lc_bytes_to_check TYPE i VALUE 1000.
DATA: lv_string_data TYPE string,
lv_printable_chars_count TYPE i,
lv_percentage TYPE i,
lv_data TYPE xstring,
lv_xlen TYPE i.
lv_xlen = xstrlen( iv_data ).
IF lv_xlen = 0.
RETURN.
ENDIF.
lv_xlen = nmin(
val1 = lv_xlen
val2 = lc_bytes_to_check ).
lv_data = iv_data(lv_xlen).
TRY.
lv_string_data = zcl_abapgit_convert=>xstring_to_string_utf8( lv_data ).
CATCH zcx_abapgit_exception.
" Contains data that does not convert to UTF-8 so consider it binary
rv_is_binary = abap_true.
RETURN.
ENDTRY.
REPLACE ALL OCCURRENCES OF cl_abap_char_utilities=>newline IN lv_string_data WITH space.
REPLACE ALL OCCURRENCES OF cl_abap_char_utilities=>cr_lf IN lv_string_data WITH space.
FIND ALL OCCURRENCES OF REGEX ''[^[:print:]]'' IN lv_string_data MATCH COUNT lv_printable_chars_count.
lv_percentage = lv_printable_chars_count * 100 / strlen( lv_string_data ).
rv_is_binary = boolc( lv_percentage > lc_binary_threshold ).
ENDMETHOD.
METHOD is_valid_email.
" Email address validation (RFC 5322)
" https://www.oreilly.com/library/view/regular-expressions-cookbook/9781449327453/ch04s01.html
CONSTANTS lc_email_regex TYPE string VALUE
''[\\w!#$%&*+/=?\`{|}~^-]+(?:\\.[\\w!#$%&*+/=?\`{|}~^-]+)*@(?:[A-Za-z0-9-]+\\.)+[A-Za-z]{2,6}''.
IF iv_email IS INITIAL.
rv_valid = abap_true.
ELSE.
FIND REGEX lc_email_regex IN iv_email.
rv_valid = boolc( sy-subrc = 0 ).
ENDIF.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_LOG ', 'INTERFACE zif_abapgit_log
PUBLIC .
CONSTANTS:
BEGIN OF c_status,
ok TYPE sy-msgty VALUE ''S'',
error TYPE sy-msgty VALUE ''E'',
warning TYPE sy-msgty VALUE ''W'',
END OF c_status.
CONSTANTS:
BEGIN OF c_log_level,
empty TYPE i VALUE 0,
info TYPE i VALUE 1,
warning TYPE i VALUE 2,
error TYPE i VALUE 3,
END OF c_log_level.
TYPES:
BEGIN OF ty_log_out,
type TYPE sy-msgty,
text TYPE string,
obj_type TYPE tadir-object,
obj_name TYPE tadir-obj_name,
exception TYPE REF TO cx_root,
END OF ty_log_out .
TYPES:
ty_log_outs TYPE STANDARD TABLE OF ty_log_out
WITH NON-UNIQUE DEFAULT KEY .
TYPES:
BEGIN OF ty_msg,
text TYPE string,
type TYPE sy-msgty,
level TYPE i,
END OF ty_msg .
TYPES:
ty_msgs TYPE STANDARD TABLE OF ty_msg
WITH NON-UNIQUE DEFAULT KEY .
TYPES:
BEGIN OF ty_item_status_out,
item TYPE zif_abapgit_definitions=>ty_item,
status TYPE sy-msgty,
messages TYPE ty_msgs,
END OF ty_item_status_out .
TYPES:
ty_item_status_outs TYPE SORTED TABLE OF ty_item_status_out
WITH UNIQUE KEY item-obj_type item-obj_name .
METHODS add
IMPORTING
!iv_msg TYPE csequence
!iv_type TYPE sy-msgty DEFAULT ''E''
!is_item TYPE zif_abapgit_definitions=>ty_item OPTIONAL
!ix_exc TYPE REF TO cx_root OPTIONAL .
METHODS add_error
IMPORTING
!iv_msg TYPE csequence
!is_item TYPE zif_abapgit_definitions=>ty_item OPTIONAL .
METHODS add_info
IMPORTING
!iv_msg TYPE csequence
!is_item TYPE zif_abapgit_definitions=>ty_item OPTIONAL .
METHODS add_warning
IMPORTING
!iv_msg TYPE csequence
!is_item TYPE zif_abapgit_definitions=>ty_item OPTIONAL .
METHODS add_success
IMPORTING
!iv_msg TYPE csequence
!is_item TYPE zif_abapgit_definitions=>ty_item OPTIONAL .
METHODS add_exception
IMPORTING
!ix_exc TYPE REF TO cx_root
!is_item TYPE zif_abapgit_definitions=>ty_item OPTIONAL .
METHODS clear .
METHODS count
RETURNING
VALUE(rv_count) TYPE i .
METHODS get_messages
RETURNING
VALUE(rt_msg) TYPE ty_log_outs .
METHODS get_item_status
RETURNING
VALUE(rt_item_status) TYPE ty_item_status_outs .
METHODS get_status
RETURNING
VALUE(rv_status) TYPE sy-msgty .
METHODS get_log_level
RETURNING
VALUE(rv_level) TYPE i .
METHODS get_title
RETURNING
VALUE(rv_title) TYPE string .
METHODS set_title
IMPORTING
!iv_title TYPE csequence
RETURNING
VALUE(ri_log) TYPE REF TO zif_abapgit_log.
METHODS merge_with
IMPORTING
ii_log TYPE REF TO zif_abapgit_log
iv_min_level TYPE i DEFAULT 0
RETURNING
VALUE(ri_log) TYPE REF TO zif_abapgit_log.
METHODS clone
RETURNING
VALUE(ri_log) TYPE REF TO zif_abapgit_log.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_XML ', 'CLASS zcl_abapgit_xml DEFINITION
PUBLIC
ABSTRACT
CREATE PUBLIC .
PUBLIC SECTION.
METHODS:
constructor
IMPORTING iv_filename TYPE string OPTIONAL.
PROTECTED SECTION.
DATA: mi_ixml TYPE REF TO if_ixml,
mi_xml_doc TYPE REF TO if_ixml_document,
ms_metadata TYPE zif_abapgit_definitions=>ty_metadata,
mv_filename TYPE string.
CONSTANTS: c_abapgit_tag TYPE string VALUE ''abapGit'' ##NO_TEXT,
c_attr_version TYPE string VALUE ''version'' ##NO_TEXT,
c_attr_serializer TYPE string VALUE ''serializer'' ##NO_TEXT,
c_attr_serializer_version TYPE string VALUE ''serializer_version'' ##NO_TEXT.
METHODS to_xml
IMPORTING iv_normalize TYPE abap_bool DEFAULT abap_true
RETURNING VALUE(rv_xml) TYPE string.
METHODS parse
IMPORTING iv_xml TYPE string
RAISING zcx_abapgit_exception.
PRIVATE SECTION.
METHODS error
IMPORTING
!ii_parser TYPE REF TO if_ixml_parser
RAISING
zcx_abapgit_exception .
METHODS raise_version_mismatch
IMPORTING
!iv_vers TYPE string
RAISING
zcx_abapgit_exception .
METHODS raise_exception_for
IMPORTING
!ii_error TYPE REF TO if_ixml_parse_error
RAISING
zcx_abapgit_exception .
ENDCLASS.
CLASS zcl_abapgit_xml IMPLEMENTATION.
METHOD constructor.
mi_ixml = cl_ixml=>create( ).
mi_xml_doc = mi_ixml->create_document( ).
mv_filename = iv_filename.
ENDMETHOD.
METHOD error.
IF ii_parser->num_errors( ) <> 0.
raise_exception_for( ii_parser->get_error( 0 ) ).
ENDIF.
IF mv_filename IS INITIAL.
zcx_abapgit_exception=>raise( |Error while parsing XML| ).
ELSE.
zcx_abapgit_exception=>raise( |Error while parsing XML file { mv_filename }| ).
ENDIF.
ENDMETHOD.
METHOD parse.
DATA: li_stream_factory TYPE REF TO if_ixml_stream_factory,
li_istream TYPE REF TO if_ixml_istream,
li_element TYPE REF TO if_ixml_element,
li_version TYPE REF TO if_ixml_node,
li_parser TYPE REF TO if_ixml_parser.
ASSERT NOT iv_xml IS INITIAL.
li_stream_factory = mi_ixml->create_stream_factory( ).
li_istream = li_stream_factory->create_istream_string( iv_xml ).
li_parser = mi_ixml->create_parser( stream_factory = li_stream_factory
istream = li_istream
document = mi_xml_doc ).
li_parser->add_strip_space_element( ).
IF li_parser->parse( ) <> 0.
error( li_parser ).
ENDIF.
li_istream->close( ).
li_element = mi_xml_doc->find_from_name_ns( depth = 0
name = c_abapgit_tag ).
li_version = li_element->if_ixml_node~get_attributes(
)->get_named_item_ns( c_attr_version ).
IF li_version->get_value( ) <> zif_abapgit_version=>c_xml_version.
raise_version_mismatch( li_version->get_value( ) ).
ENDIF.
* buffer serializer metadata. Git node will be removed lateron
ms_metadata-class = li_element->get_attribute_ns( c_attr_serializer ).
ms_metadata-version = li_element->get_attribute_ns( c_attr_serializer_version ).
ENDMETHOD.
METHOD raise_exception_for.
DATA lv_message TYPE string.
lv_message = |XML parser error: { ii_error->get_reason( ) }, | &&
|Line { ii_error->get_line( ) } | &&
|Col. { ii_error->get_column( ) }|.
IF mv_filename IS NOT INITIAL.
lv_message = lv_message && | File { mv_filename }|.
ENDIF.
zcx_abapgit_exception=>raise( lv_message ).
ENDMETHOD.
METHOD raise_version_mismatch.
DATA lv_text TYPE string.
lv_text = |The XML versions do not match, expected: { zif_abapgit_version=>c_xml_version }, actual: { iv_vers }|.
IF mv_filename IS NOT INITIAL.
lv_text = lv_text && |, file: { mv_filename }|.
ENDIF.
lv_text = lv_text && | (see https://docs.abapgit.org/other-xml-mismatch.html)|.
zcx_abapgit_exception=>raise( lv_text ).
ENDMETHOD.
METHOD to_xml.
* will render to codepage UTF-16
DATA: li_ostream TYPE REF TO if_ixml_ostream,
li_renderer TYPE REF TO if_ixml_renderer,
li_streamfactory TYPE REF TO if_ixml_stream_factory.
li_streamfactory = mi_ixml->create_stream_factory( ).
li_ostream = li_streamfactory->create_ostream_cstring( rv_xml ).
li_renderer = mi_ixml->create_renderer( ostream = li_ostream
document = mi_xml_doc ).
li_renderer->set_normalizing( iv_normalize ).
li_renderer->render( ).
" handling of BOM moved to zcl_abapgit_convert=>string_to_xstring_utf8_bom
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_XML_INPUT ', 'CLASS zcl_abapgit_xml_input DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_xml
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES zif_abapgit_xml_input.
METHODS constructor
IMPORTING
!iv_xml TYPE clike
!iv_filename TYPE string OPTIONAL
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
PRIVATE SECTION.
METHODS fix_xml.
ENDCLASS.
CLASS ZCL_ABAPGIT_XML_INPUT IMPLEMENTATION.
METHOD constructor.
super->constructor( iv_filename ).
parse( iv_xml ).
fix_xml( ).
ENDMETHOD.
METHOD fix_xml.
DATA: li_git TYPE REF TO if_ixml_element,
li_abap TYPE REF TO if_ixml_node.
li_git ?= mi_xml_doc->find_from_name_ns( depth = 0
name = c_abapgit_tag ).
li_abap = li_git->get_first_child( ).
mi_xml_doc->get_root( )->remove_child( li_git ).
mi_xml_doc->get_root( )->append_child( li_abap ).
ENDMETHOD.
METHOD zif_abapgit_xml_input~get_metadata.
rs_metadata = ms_metadata.
ENDMETHOD.
METHOD zif_abapgit_xml_input~get_raw.
ri_raw = mi_xml_doc.
ENDMETHOD.
METHOD zif_abapgit_xml_input~read.
DATA: lx_error TYPE REF TO cx_transformation_error,
lt_rtab TYPE abap_trans_resbind_tab.
FIELD-SYMBOLS: <ls_rtab> LIKE LINE OF lt_rtab.
ASSERT NOT iv_name IS INITIAL.
CLEAR cg_data. "Initialize result to avoid problems with empty values
APPEND INITIAL LINE TO lt_rtab ASSIGNING <ls_rtab>.
<ls_rtab>-name = iv_name.
GET REFERENCE OF cg_data INTO <ls_rtab>-value.
TRY.
CALL TRANSFORMATION id
OPTIONS value_handling = ''accept_data_loss''
SOURCE XML mi_xml_doc
RESULT (lt_rtab).
CATCH cx_transformation_error INTO lx_error.
IF mv_filename IS INITIAL.
zcx_abapgit_exception=>raise( lx_error->if_message~get_text( ) ).
ELSE.
zcx_abapgit_exception=>raise( |File { mv_filename }: { lx_error->if_message~get_text( ) }| ).
ENDIF.
ENDTRY.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_XML_OUTPUT ', 'CLASS zcl_abapgit_xml_output DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_xml
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES zif_abapgit_xml_output.
PROTECTED SECTION.
PRIVATE SECTION.
DATA mi_raw TYPE REF TO if_ixml_element .
METHODS build_asx_node
RETURNING
VALUE(ri_element) TYPE REF TO if_ixml_element .
ENDCLASS.
CLASS ZCL_ABAPGIT_XML_OUTPUT IMPLEMENTATION.
METHOD build_asx_node.
DATA: li_attr TYPE REF TO if_ixml_attribute.
ri_element = mi_xml_doc->create_element_ns(
name = ''abap''
prefix = ''asx'' ).
li_attr = mi_xml_doc->create_attribute_ns( ''version'' ).
li_attr->if_ixml_node~set_value( ''1.0'' ).
ri_element->set_attribute_node_ns( li_attr ).
li_attr = mi_xml_doc->create_attribute_ns(
name = ''asx''
prefix = ''xmlns'' ).
li_attr->if_ixml_node~set_value( ''http://www.sap.com/abapxml'' ).
ri_element->set_attribute_node_ns( li_attr ).
ENDMETHOD.
METHOD zif_abapgit_xml_output~add.
DATA: li_node TYPE REF TO if_ixml_node,
li_doc TYPE REF TO if_ixml_document,
lt_stab TYPE abap_trans_srcbind_tab.
FIELD-SYMBOLS: <ls_stab> LIKE LINE OF lt_stab.
ASSERT NOT iv_name IS INITIAL.
IF ig_data IS INITIAL.
RETURN.
ENDIF.
APPEND INITIAL LINE TO lt_stab ASSIGNING <ls_stab>.
<ls_stab>-name = iv_name.
GET REFERENCE OF ig_data INTO <ls_stab>-value.
li_doc = cl_ixml=>create( )->create_document( ).
CALL TRANSFORMATION id
OPTIONS initial_components = ''suppress''
SOURCE (lt_stab)
RESULT XML li_doc.
li_node = mi_xml_doc->get_root( )->get_first_child( ).
IF li_node IS BOUND.
mi_xml_doc->get_root( )->get_first_child( )->get_first_child( )->append_child(
li_doc->get_root( )->get_first_child( )->get_first_child( )->get_first_child( ) ).
ELSE.
mi_xml_doc->get_root( )->append_child( li_doc->get_root( )->get_first_child( ) ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_xml_output~add_xml.
DATA: li_element TYPE REF TO if_ixml_element.
li_element = mi_xml_doc->create_element( iv_name ).
li_element->append_child( ii_xml ).
mi_xml_doc->get_root( )->get_first_child( )->get_first_child( )->append_child( li_element ).
ENDMETHOD.
METHOD zif_abapgit_xml_output~render.
DATA: li_git TYPE REF TO if_ixml_element,
li_abap TYPE REF TO if_ixml_element.
IF mi_raw IS INITIAL.
li_abap ?= mi_xml_doc->get_root( )->get_first_child( ).
mi_xml_doc->get_root( )->remove_child( li_abap ).
IF li_abap IS INITIAL.
li_abap = build_asx_node( ).
ENDIF.
ELSE.
li_abap = mi_raw.
ENDIF.
li_git = mi_xml_doc->create_element( c_abapgit_tag ).
li_git->set_attribute( name = c_attr_version
value = zif_abapgit_version=>c_xml_version ).
IF NOT is_metadata IS INITIAL.
li_git->set_attribute( name = c_attr_serializer
value = is_metadata-class ).
li_git->set_attribute( name = c_attr_serializer_version
value = is_metadata-version ).
ENDIF.
li_git->append_child( li_abap ).
mi_xml_doc->get_root( )->append_child( li_git ).
rv_xml = to_xml( iv_normalize ).
ENDMETHOD.
METHOD zif_abapgit_xml_output~set_raw.
mi_raw = ii_raw.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_XML_PRETTY ', 'CLASS zcl_abapgit_xml_pretty DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
CLASS-METHODS print
IMPORTING
!iv_xml TYPE string
!iv_ignore_errors TYPE abap_bool DEFAULT abap_true
!iv_unpretty TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(rv_xml) TYPE string
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS ZCL_ABAPGIT_XML_PRETTY IMPLEMENTATION.
METHOD print.
DATA: li_ixml TYPE REF TO if_ixml,
li_xml_doc TYPE REF TO if_ixml_document,
li_stream_factory TYPE REF TO if_ixml_stream_factory,
li_istream TYPE REF TO if_ixml_istream,
li_parser TYPE REF TO if_ixml_parser,
lv_xstring TYPE xstring,
li_encoding TYPE REF TO if_ixml_encoding,
li_ostream TYPE REF TO if_ixml_ostream,
li_renderer TYPE REF TO if_ixml_renderer.
ASSERT NOT iv_xml IS INITIAL.
li_ixml = cl_ixml=>create( ).
li_xml_doc = li_ixml->create_document( ).
li_stream_factory = li_ixml->create_stream_factory( ).
li_istream = li_stream_factory->create_istream_xstring(
zcl_abapgit_convert=>string_to_xstring_utf8( iv_xml ) ).
li_parser = li_ixml->create_parser( stream_factory = li_stream_factory
istream = li_istream
document = li_xml_doc ).
li_parser->set_normalizing( abap_true ).
IF li_parser->parse( ) <> 0.
IF iv_ignore_errors = abap_true.
rv_xml = iv_xml.
RETURN.
ELSE.
zcx_abapgit_exception=>raise( ''error parsing xml'' ).
ENDIF.
ENDIF.
li_ostream = li_stream_factory->create_ostream_xstring( lv_xstring ).
li_encoding = li_ixml->create_encoding(
character_set = ''utf-8''
byte_order = if_ixml_encoding=>co_big_endian ).
li_xml_doc->set_encoding( li_encoding ).
li_renderer = li_ixml->create_renderer( ostream = li_ostream
document = li_xml_doc ).
li_renderer->set_normalizing( boolc( iv_unpretty = abap_false ) ).
li_renderer->render( ).
rv_xml = zcl_abapgit_convert=>xstring_to_string_utf8_bom( lv_xstring ).
REPLACE FIRST OCCURRENCE OF ''utf-8'' IN rv_xml WITH ''utf-16''.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_XML_INPUT ', 'INTERFACE zif_abapgit_xml_input
PUBLIC .
METHODS read
IMPORTING
!iv_name TYPE clike
CHANGING
!cg_data TYPE any
RAISING
zcx_abapgit_exception .
METHODS get_raw
RETURNING
VALUE(ri_raw) TYPE REF TO if_ixml_document .
* todo, add read_xml to match add_xml in lcl_xml_output
METHODS get_metadata
RETURNING
VALUE(rs_metadata) TYPE zif_abapgit_definitions=>ty_metadata .
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_XML_OUTPUT ', 'INTERFACE zif_abapgit_xml_output
PUBLIC .
METHODS add
IMPORTING
!iv_name TYPE clike
!ig_data TYPE any
RAISING
zcx_abapgit_exception .
METHODS set_raw
IMPORTING
!ii_raw TYPE REF TO if_ixml_element .
METHODS add_xml
IMPORTING
!iv_name TYPE clike
!ii_xml TYPE REF TO if_ixml_element .
METHODS render
IMPORTING
!iv_normalize TYPE abap_bool DEFAULT abap_true
!is_metadata TYPE zif_abapgit_definitions=>ty_metadata OPTIONAL
RETURNING
VALUE(rv_xml) TYPE string .
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_FACTORY ', 'CLASS zcl_abapgit_factory DEFINITION
PUBLIC
CREATE PRIVATE
GLOBAL FRIENDS zcl_abapgit_injector .
PUBLIC SECTION.
CLASS-METHODS get_tadir
RETURNING
VALUE(ri_tadir) TYPE REF TO zif_abapgit_tadir .
CLASS-METHODS get_sap_package
IMPORTING
!iv_package TYPE devclass
RETURNING
VALUE(ri_sap_package) TYPE REF TO zif_abapgit_sap_package .
CLASS-METHODS get_code_inspector
IMPORTING
!iv_package TYPE devclass
RETURNING
VALUE(ri_code_inspector) TYPE REF TO zif_abapgit_code_inspector
RAISING
zcx_abapgit_exception .
CLASS-METHODS get_stage_logic
RETURNING
VALUE(ri_logic) TYPE REF TO zif_abapgit_stage_logic .
CLASS-METHODS get_cts_api
RETURNING
VALUE(ri_cts_api) TYPE REF TO zif_abapgit_cts_api .
CLASS-METHODS get_default_transport
RETURNING
VALUE(ri_default_transport) TYPE REF TO zif_abapgit_default_transport
RAISING
zcx_abapgit_exception.
CLASS-METHODS get_environment
RETURNING
VALUE(ri_environment) TYPE REF TO zif_abapgit_environment .
CLASS-METHODS get_longtexts
RETURNING
VALUE(ri_longtexts) TYPE REF TO zif_abapgit_longtexts .
CLASS-METHODS get_http_agent
RETURNING
VALUE(ri_http_agent) TYPE REF TO zif_abapgit_http_agent .
CLASS-METHODS get_lxe_texts
RETURNING
VALUE(ri_lxe_texts) TYPE REF TO zif_abapgit_lxe_texts .
CLASS-METHODS get_sap_namespace
RETURNING
VALUE(ri_namespace) TYPE REF TO zif_abapgit_sap_namespace .
CLASS-METHODS get_sap_report
RETURNING
VALUE(ri_report) TYPE REF TO zif_abapgit_sap_report.
CLASS-METHODS get_function_module
RETURNING
VALUE(ri_function_module) TYPE REF TO zif_abapgit_function_module.
PROTECTED SECTION.
PRIVATE SECTION.
TYPES:
BEGIN OF ty_sap_package,
package TYPE devclass,
instance TYPE REF TO zif_abapgit_sap_package,
END OF ty_sap_package .
TYPES:
ty_sap_packages TYPE HASHED TABLE OF ty_sap_package
WITH UNIQUE KEY package .
TYPES:
BEGIN OF ty_code_inspector_pack,
package TYPE devclass,
instance TYPE REF TO zif_abapgit_code_inspector,
END OF ty_code_inspector_pack .
TYPES:
ty_code_inspector_packs TYPE HASHED TABLE OF ty_code_inspector_pack
WITH UNIQUE KEY package .
CLASS-DATA gi_tadir TYPE REF TO zif_abapgit_tadir .
CLASS-DATA gt_sap_package TYPE ty_sap_packages .
CLASS-DATA gt_code_inspector TYPE ty_code_inspector_packs .
CLASS-DATA gi_stage_logic TYPE REF TO zif_abapgit_stage_logic .
CLASS-DATA gi_cts_api TYPE REF TO zif_abapgit_cts_api .
CLASS-DATA gi_environment TYPE REF TO zif_abapgit_environment .
CLASS-DATA gi_longtext TYPE REF TO zif_abapgit_longtexts .
CLASS-DATA gi_http_agent TYPE REF TO zif_abapgit_http_agent .
CLASS-DATA gi_lxe_texts TYPE REF TO zif_abapgit_lxe_texts .
CLASS-DATA gi_sap_namespace TYPE REF TO zif_abapgit_sap_namespace .
CLASS-DATA gi_sap_report TYPE REF TO zif_abapgit_sap_report.
CLASS-DATA gi_function_module TYPE REF TO zif_abapgit_function_module.
CLASS-DATA gi_default_transport TYPE REF TO zif_abapgit_default_transport .
ENDCLASS.
CLASS ZCL_ABAPGIT_FACTORY IMPLEMENTATION.
METHOD get_code_inspector.
DATA: ls_code_inspector LIKE LINE OF gt_code_inspector.
FIELD-SYMBOLS: <ls_code_inspector> TYPE ty_code_inspector_pack.
READ TABLE gt_code_inspector ASSIGNING <ls_code_inspector>
WITH TABLE KEY package = iv_package.
IF sy-subrc <> 0.
ls_code_inspector-package = iv_package.
CREATE OBJECT ls_code_inspector-instance TYPE zcl_abapgit_code_inspector
EXPORTING
iv_package = iv_package.
INSERT ls_code_inspector
INTO TABLE gt_code_inspector
ASSIGNING <ls_code_inspector>.
ENDIF.
ri_code_inspector = <ls_code_inspector>-instance.
ENDMETHOD.
METHOD get_cts_api.
IF gi_cts_api IS NOT BOUND.
CREATE OBJECT gi_cts_api TYPE zcl_abapgit_cts_api.
ENDIF.
ri_cts_api = gi_cts_api.
ENDMETHOD.
METHOD get_default_transport.
IF gi_default_transport IS NOT BOUND.
CREATE OBJECT gi_default_transport TYPE zcl_abapgit_default_transport.
ENDIF.
ri_default_transport = gi_default_transport.
ENDMETHOD.
METHOD get_environment.
IF gi_environment IS NOT BOUND.
CREATE OBJECT gi_environment TYPE zcl_abapgit_environment.
ENDIF.
ri_environment = gi_environment.
ENDMETHOD.
METHOD get_function_module.
IF gi_function_module IS INITIAL.
CREATE OBJECT gi_function_module TYPE zcl_abapgit_function_module.
ENDIF.
ri_function_module = gi_function_module.
ENDMETHOD.
METHOD get_http_agent.
IF gi_http_agent IS INITIAL.
gi_http_agent = zcl_abapgit_http_agent=>create( ).
ENDIF.
ri_http_agent = gi_http_agent.
ENDMETHOD.
METHOD get_longtexts.
IF gi_longtext IS NOT BOUND.
CREATE OBJECT gi_longtext TYPE zcl_abapgit_longtexts.
ENDIF.
ri_longtexts = gi_longtext.
ENDMETHOD.
METHOD get_lxe_texts.
IF gi_lxe_texts IS NOT BOUND.
CREATE OBJECT gi_lxe_texts TYPE zcl_abapgit_lxe_texts.
ENDIF.
ri_lxe_texts = gi_lxe_texts.
ENDMETHOD.
METHOD get_sap_namespace.
IF gi_sap_namespace IS NOT BOUND.
CREATE OBJECT gi_sap_namespace TYPE zcl_abapgit_sap_namespace.
ENDIF.
ri_namespace = gi_sap_namespace.
ENDMETHOD.
METHOD get_sap_package.
DATA: ls_sap_package TYPE ty_sap_package.
FIELD-SYMBOLS: <ls_sap_package> TYPE ty_sap_package.
READ TABLE gt_sap_package ASSIGNING <ls_sap_package>
WITH TABLE KEY package = iv_package.
IF sy-subrc <> 0.
ls_sap_package-package = iv_package.
CREATE OBJECT ls_sap_package-instance TYPE zcl_abapgit_sap_package
EXPORTING
iv_package = iv_package.
INSERT ls_sap_package
INTO TABLE gt_sap_package
ASSIGNING <ls_sap_package>.
ENDIF.
ri_sap_package = <ls_sap_package>-instance.
ENDMETHOD.
METHOD get_sap_report.
IF gi_sap_report IS NOT BOUND.
CREATE OBJECT gi_sap_report TYPE zcl_abapgit_sap_report.
ENDIF.
ri_report = gi_sap_report.
ENDMETHOD.
METHOD get_stage_logic.
IF gi_stage_logic IS INITIAL.
CREATE OBJECT gi_stage_logic TYPE zcl_abapgit_stage_logic.
ENDIF.
ri_logic = gi_stage_logic.
ENDMETHOD.
METHOD get_tadir.
IF gi_tadir IS INITIAL.
CREATE OBJECT gi_tadir TYPE zcl_abapgit_tadir.
ENDIF.
ri_tadir = gi_tadir.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCL_ABAPGIT_INJECTOR ', 'CLASS zcl_abapgit_injector DEFINITION
PUBLIC
FOR TESTING
CREATE PRIVATE.
PUBLIC SECTION.
CLASS-METHODS set_tadir
IMPORTING
!ii_tadir TYPE REF TO zif_abapgit_tadir .
CLASS-METHODS set_sap_package
IMPORTING
!iv_package TYPE devclass
!ii_sap_package TYPE REF TO zif_abapgit_sap_package .
CLASS-METHODS set_code_inspector
IMPORTING
!iv_package TYPE devclass
!ii_code_inspector TYPE REF TO zif_abapgit_code_inspector .
CLASS-METHODS set_stage_logic
IMPORTING
!ii_logic TYPE REF TO zif_abapgit_stage_logic .
CLASS-METHODS set_cts_api
IMPORTING
!ii_cts_api TYPE REF TO zif_abapgit_cts_api .
CLASS-METHODS set_environment
IMPORTING
!ii_environment TYPE REF TO zif_abapgit_environment .
CLASS-METHODS set_longtexts
IMPORTING
!ii_longtexts TYPE REF TO zif_abapgit_longtexts .
CLASS-METHODS set_http_agent
IMPORTING
!ii_http_agent TYPE REF TO zif_abapgit_http_agent .
CLASS-METHODS set_lxe_texts
IMPORTING
!ii_lxe_texts TYPE REF TO zif_abapgit_lxe_texts .
CLASS-METHODS set_sap_namespace
IMPORTING
!ii_namespace TYPE REF TO zif_abapgit_sap_namespace .
CLASS-METHODS set_sap_report
IMPORTING
!ii_report TYPE REF TO zif_abapgit_sap_report.
CLASS-METHODS set_function_module
IMPORTING
ii_function_module TYPE REF TO zif_abapgit_function_module.
CLASS-METHODS set_exit
IMPORTING
ii_exit TYPE REF TO zif_abapgit_exit.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_injector IMPLEMENTATION.
METHOD set_code_inspector.
DATA: ls_code_inspector LIKE LINE OF zcl_abapgit_factory=>gt_code_inspector.
FIELD-SYMBOLS: <ls_code_inspector> LIKE LINE OF zcl_abapgit_factory=>gt_code_inspector.
READ TABLE zcl_abapgit_factory=>gt_code_inspector
ASSIGNING <ls_code_inspector>
WITH TABLE KEY package = iv_package.
IF sy-subrc <> 0.
ls_code_inspector-package = iv_package.
INSERT ls_code_inspector
INTO TABLE zcl_abapgit_factory=>gt_code_inspector
ASSIGNING <ls_code_inspector>.
ENDIF.
<ls_code_inspector>-instance = ii_code_inspector.
ENDMETHOD.
METHOD set_cts_api.
zcl_abapgit_factory=>gi_cts_api = ii_cts_api.
ENDMETHOD.
METHOD set_environment.
zcl_abapgit_factory=>gi_environment = ii_environment.
ENDMETHOD.
METHOD set_exit.
zcl_abapgit_exit=>gi_global_exit = ii_exit.
ENDMETHOD.
METHOD set_function_module.
zcl_abapgit_factory=>gi_function_module = ii_function_module.
ENDMETHOD.
METHOD set_http_agent.
zcl_abapgit_factory=>gi_http_agent = ii_http_agent.
ENDMETHOD.
METHOD set_longtexts.
zcl_abapgit_factory=>gi_longtext = ii_longtexts.
ENDMETHOD.
METHOD set_lxe_texts.
zcl_abapgit_factory=>gi_lxe_texts = ii_lxe_texts.
ENDMETHOD.
METHOD set_sap_namespace.
zcl_abapgit_factory=>gi_sap_namespace = ii_namespace.
ENDMETHOD.
METHOD set_sap_package.
DATA: ls_sap_package TYPE zcl_abapgit_factory=>ty_sap_package.
FIELD-SYMBOLS: <ls_sap_package> TYPE zcl_abapgit_factory=>ty_sap_package.
READ TABLE zcl_abapgit_factory=>gt_sap_package
ASSIGNING <ls_sap_package>
WITH TABLE KEY package = iv_package.
IF sy-subrc <> 0.
ls_sap_package-package = iv_package.
INSERT ls_sap_package
INTO TABLE zcl_abapgit_factory=>gt_sap_package
ASSIGNING <ls_sap_package>.
ENDIF.
<ls_sap_package>-instance = ii_sap_package.
ENDMETHOD.
METHOD set_sap_report.
zcl_abapgit_factory=>gi_sap_report = ii_report.
ENDMETHOD.
METHOD set_stage_logic.
zcl_abapgit_factory=>gi_stage_logic = ii_logic.
ENDMETHOD.
METHOD set_tadir.
zcl_abapgit_factory=>gi_tadir = ii_tadir.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCX_ABAPGIT_EXCEPTION ', '"! abapGit general error
CLASS zcx_abapgit_exception DEFINITION
PUBLIC
INHERITING FROM cx_static_check
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES if_t100_message .
CONSTANTS:
BEGIN OF c_section_text,
cause TYPE string VALUE \`Cause\`,
system_response TYPE string VALUE \`System response\`,
what_to_do TYPE string VALUE \`Procedure\`,
sys_admin TYPE string VALUE \`System administration\`,
END OF c_section_text .
CONSTANTS:
BEGIN OF c_section_token,
cause TYPE string VALUE \`&CAUSE&\`,
system_response TYPE string VALUE \`&SYSTEM_RESPONSE&\`,
what_to_do TYPE string VALUE \`&WHAT_TO_DO&\`,
sys_admin TYPE string VALUE \`&SYS_ADMIN&\`,
END OF c_section_token .
CLASS-DATA null TYPE string.
DATA msgv1 TYPE symsgv READ-ONLY .
DATA msgv2 TYPE symsgv READ-ONLY .
DATA msgv3 TYPE symsgv READ-ONLY .
DATA msgv4 TYPE symsgv READ-ONLY .
DATA mv_longtext TYPE string READ-ONLY.
DATA mt_callstack TYPE abap_callstack READ-ONLY.
DATA mi_log TYPE REF TO zif_abapgit_log READ-ONLY.
"! Raise exception with text
"! @parameter iv_text | Text
"! @parameter ix_previous | Previous exception
"! @parameter ii_log | Log
"! @parameter iv_longtext | Longtext
"! @raising zcx_abapgit_exception | Exception
CLASS-METHODS raise
IMPORTING
!iv_text TYPE clike
!ix_previous TYPE REF TO cx_root OPTIONAL
!ii_log TYPE REF TO zif_abapgit_log OPTIONAL
!iv_longtext TYPE csequence OPTIONAL
RAISING
zcx_abapgit_exception .
"! Raise exception with T100 message
"! <p>
"! Will default to sy-msg* variables. These need to be set right before calling this method.
"! </p>
"! @parameter iv_msgid | Message ID
"! @parameter iv_msgno | Message number
"! @parameter iv_msgv1 | Message variable 1
"! @parameter iv_msgv2 | Message variable 2
"! @parameter iv_msgv3 | Message variable 3
"! @parameter iv_msgv4 | Message variable 4
"! @parameter ii_log | Log
"! @parameter ix_previous | Previous exception
"! @parameter iv_longtext | Longtext
"! @raising zcx_abapgit_exception | Exception
CLASS-METHODS raise_t100
IMPORTING
!iv_msgid TYPE symsgid DEFAULT sy-msgid
!iv_msgno TYPE symsgno DEFAULT sy-msgno
!iv_msgv1 TYPE symsgv DEFAULT sy-msgv1
!iv_msgv2 TYPE symsgv DEFAULT sy-msgv2
!iv_msgv3 TYPE symsgv DEFAULT sy-msgv3
!iv_msgv4 TYPE symsgv DEFAULT sy-msgv4
!ii_log TYPE REF TO zif_abapgit_log OPTIONAL
!ix_previous TYPE REF TO cx_root OPTIONAL
!iv_longtext TYPE csequence OPTIONAL
RAISING
zcx_abapgit_exception .
"! Raise with text from previous exception
"! @parameter ix_previous | Previous exception
"! @parameter iv_longtext | Longtext
"! @raising zcx_abapgit_exception | Exception
CLASS-METHODS raise_with_text
IMPORTING
!ix_previous TYPE REF TO cx_root
!iv_longtext TYPE csequence OPTIONAL
RAISING
zcx_abapgit_exception .
METHODS constructor
IMPORTING
!textid LIKE if_t100_message=>t100key OPTIONAL
!previous LIKE previous OPTIONAL
!log TYPE REF TO zif_abapgit_log OPTIONAL
!msgv1 TYPE symsgv OPTIONAL
!msgv2 TYPE symsgv OPTIONAL
!msgv3 TYPE symsgv OPTIONAL
!msgv4 TYPE symsgv OPTIONAL
!longtext TYPE csequence OPTIONAL .
METHODS get_source_position
REDEFINITION .
METHODS if_message~get_longtext
REDEFINITION .
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS c_generic_error_msg TYPE string VALUE \`An error occurred (ZCX_ABAPGIT_EXCEPTION)\`.
CLASS-METHODS split_text_to_symsg
IMPORTING
!iv_text TYPE string
RETURNING
VALUE(rs_msg) TYPE symsg .
METHODS save_callstack .
METHODS itf_to_string
IMPORTING
!it_itf TYPE tline_tab
RETURNING
VALUE(rv_result) TYPE string .
METHODS get_t100_longtext_itf
RETURNING
VALUE(rt_itf) TYPE tline_tab .
METHODS remove_empty_section
IMPORTING
!iv_tabix_from TYPE i
!iv_tabix_to TYPE i
CHANGING
!ct_itf TYPE tline_tab .
METHODS replace_section_head_with_text
CHANGING
!cs_itf TYPE tline .
CLASS-METHODS remove_newlines_from_string
IMPORTING
iv_string TYPE string
RETURNING
VALUE(rv_result) TYPE string.
ENDCLASS.
CLASS zcx_abapgit_exception IMPLEMENTATION.
METHOD constructor ##ADT_SUPPRESS_GENERATION.
super->constructor( previous = previous ).
me->msgv1 = msgv1.
me->msgv2 = msgv2.
me->msgv3 = msgv3.
me->msgv4 = msgv4.
mi_log = log.
mv_longtext = longtext.
CLEAR me->textid.
IF textid IS INITIAL.
if_t100_message~t100key = if_t100_message=>default_textid.
ELSE.
if_t100_message~t100key = textid.
ENDIF.
save_callstack( ).
ENDMETHOD.
METHOD get_source_position.
FIELD-SYMBOLS: <ls_callstack> LIKE LINE OF mt_callstack.
READ TABLE mt_callstack ASSIGNING <ls_callstack>
INDEX 1.
IF sy-subrc = 0.
program_name = <ls_callstack>-mainprogram.
include_name = <ls_callstack>-include.
source_line = <ls_callstack>-line.
ELSE.
super->get_source_position(
IMPORTING
program_name = program_name
include_name = include_name
source_line = source_line ).
ENDIF.
ENDMETHOD.
METHOD get_t100_longtext_itf.
DATA: lv_docu_key TYPE doku_obj.
FIELD-SYMBOLS <lv_msgv> TYPE any.
lv_docu_key = if_t100_message~t100key-msgid && if_t100_message~t100key-msgno.
CALL FUNCTION ''DOCU_GET''
EXPORTING
id = ''NA''
langu = sy-langu
object = lv_docu_key
typ = ''E''
TABLES
line = rt_itf
EXCEPTIONS
OTHERS = 1.
IF sy-subrc = 0.
ASSIGN me->(if_t100_message~t100key-attr1) TO <lv_msgv>.
IF sy-subrc = 0.
REPLACE ALL OCCURRENCES OF ''&V1&'' IN TABLE rt_itf WITH <lv_msgv>.
ENDIF.
ASSIGN me->(if_t100_message~t100key-attr2) TO <lv_msgv>.
IF sy-subrc = 0.
REPLACE ALL OCCURRENCES OF ''&V2&'' IN TABLE rt_itf WITH <lv_msgv>.
ENDIF.
ASSIGN me->(if_t100_message~t100key-attr3) TO <lv_msgv>.
IF sy-subrc = 0.
REPLACE ALL OCCURRENCES OF ''&V3&'' IN TABLE rt_itf WITH <lv_msgv>.
ENDIF.
ASSIGN me->(if_t100_message~t100key-attr4) TO <lv_msgv>.
IF sy-subrc = 0.
REPLACE ALL OCCURRENCES OF ''&V4&'' IN TABLE rt_itf WITH <lv_msgv>.
ENDIF.
ENDIF.
ENDMETHOD.
METHOD if_message~get_longtext.
DATA: lv_preserve_newlines_handled TYPE abap_bool VALUE abap_false.
IF mv_longtext IS NOT INITIAL.
result = mv_longtext.
ELSEIF if_t100_message~t100key IS NOT INITIAL.
result = itf_to_string( get_t100_longtext_itf( ) ).
ELSE.
result = super->get_longtext( preserve_newlines ).
lv_preserve_newlines_handled = abap_true.
ENDIF.
IF lv_preserve_newlines_handled = abap_false AND preserve_newlines = abap_false.
result = remove_newlines_from_string( result ).
ENDIF.
ENDMETHOD.
METHOD itf_to_string.
CONSTANTS: lc_format_section TYPE string VALUE ''U1''.
DATA:
lt_stream TYPE TABLE OF tdline,
lt_string TYPE TABLE OF string,
lv_string LIKE LINE OF lt_string,
lt_itf TYPE tline_tab,
lv_has_content TYPE abap_bool,
lv_tabix_from TYPE syst-tabix,
lv_tabix_to TYPE syst-tabix.
FIELD-SYMBOLS: <ls_itf_section> TYPE tline,
<ls_itf_section_item> TYPE tline.
lt_itf = it_itf.
" You should remember that we replace the U1 format because
" that preserves the section header of longtexts.
LOOP AT lt_itf ASSIGNING <ls_itf_section>
WHERE tdformat = lc_format_section.
CLEAR:
lv_has_content,
lv_tabix_to.
lv_tabix_from = sy-tabix.
LOOP AT lt_itf ASSIGNING <ls_itf_section_item>
FROM sy-tabix + 1.
IF <ls_itf_section_item>-tdformat = lc_format_section.
lv_tabix_to = sy-tabix.
EXIT.
ELSEIF <ls_itf_section_item>-tdline IS NOT INITIAL.
lv_has_content = abap_true.
ENDIF.
ENDLOOP.
IF lv_has_content = abap_false.
remove_empty_section(
EXPORTING
iv_tabix_from = lv_tabix_from
iv_tabix_to = lv_tabix_to
CHANGING
ct_itf = lt_itf ).
CONTINUE.
ENDIF.
replace_section_head_with_text( CHANGING cs_itf = <ls_itf_section> ).
ENDLOOP.
CALL FUNCTION ''CONVERT_ITF_TO_STREAM_TEXT''
EXPORTING
lf = ''X''
IMPORTING
stream_lines = lt_string
TABLES
itf_text = lt_itf
text_stream = lt_stream.
LOOP AT lt_string INTO lv_string.
IF sy-tabix = 1.
rv_result = lv_string.
ELSE.
CONCATENATE rv_result lv_string
INTO rv_result
SEPARATED BY cl_abap_char_utilities=>newline.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD raise.
DATA lv_text TYPE string.
IF iv_text IS INITIAL.
lv_text = c_generic_error_msg.
ELSE.
lv_text = iv_text.
ENDIF.
split_text_to_symsg( lv_text ).
raise_t100(
ii_log = ii_log
ix_previous = ix_previous
iv_longtext = iv_longtext ).
ENDMETHOD.
METHOD raise_t100.
DATA: ls_t100_key TYPE scx_t100key.
ls_t100_key-msgid = iv_msgid.
ls_t100_key-msgno = iv_msgno.
ls_t100_key-attr1 = ''MSGV1''.
ls_t100_key-attr2 = ''MSGV2''.
ls_t100_key-attr3 = ''MSGV3''.
ls_t100_key-attr4 = ''MSGV4''.
IF iv_msgid IS INITIAL.
CLEAR ls_t100_key.
ENDIF.
RAISE EXCEPTION TYPE zcx_abapgit_exception
EXPORTING
textid = ls_t100_key
log = ii_log
msgv1 = iv_msgv1
msgv2 = iv_msgv2
msgv3 = iv_msgv3
msgv4 = iv_msgv4
previous = ix_previous
longtext = iv_longtext.
ENDMETHOD.
METHOD raise_with_text.
raise(
iv_text = ix_previous->get_text( )
ix_previous = ix_previous
iv_longtext = iv_longtext ).
ENDMETHOD.
METHOD remove_empty_section.
IF iv_tabix_to BETWEEN iv_tabix_from AND lines( ct_itf ).
DELETE ct_itf FROM iv_tabix_from TO iv_tabix_to.
ELSE.
DELETE ct_itf FROM iv_tabix_from.
ENDIF.
ENDMETHOD.
METHOD remove_newlines_from_string.
rv_result = iv_string.
REPLACE ALL OCCURRENCES OF \` \` && cl_abap_char_utilities=>cr_lf IN rv_result WITH \` \`.
REPLACE ALL OCCURRENCES OF cl_abap_char_utilities=>cr_lf IN rv_result WITH \` \`.
REPLACE ALL OCCURRENCES OF \` \` && cl_abap_char_utilities=>newline IN rv_result WITH \` \`.
REPLACE ALL OCCURRENCES OF cl_abap_char_utilities=>newline IN rv_result WITH \` \`.
ENDMETHOD.
METHOD replace_section_head_with_text.
CASE cs_itf-tdline.
WHEN c_section_token-cause.
cs_itf-tdline = c_section_text-cause.
WHEN c_section_token-system_response.
cs_itf-tdline = c_section_text-system_response.
WHEN c_section_token-what_to_do.
cs_itf-tdline = c_section_text-what_to_do.
WHEN c_section_token-sys_admin.
cs_itf-tdline = c_section_text-sys_admin.
ENDCASE.
ENDMETHOD.
METHOD save_callstack.
FIELD-SYMBOLS: <ls_callstack> LIKE LINE OF mt_callstack.
CALL FUNCTION ''SYSTEM_CALLSTACK''
IMPORTING
callstack = mt_callstack.
" You should remember that the first lines are from zcx_abapgit_exception
" and are removed so that highest level in the callstack is the position where
" the exception is raised.
"
" For the merged report it''s hard to do that, because zcx_abapgit_exception
" isn''t visible in the callstack. Therefore we have to check the Events.
LOOP AT mt_callstack ASSIGNING <ls_callstack>.
IF <ls_callstack>-mainprogram CP |ZCX_ABAPGIT_EXCEPTION*| " full
OR <ls_callstack>-blockname = \`SAVE_CALLSTACK\` " merged
OR <ls_callstack>-blockname = \`CONSTRUCTOR\` " merged
OR <ls_callstack>-blockname CP \`RAISE*\`. "merged
DELETE TABLE mt_callstack FROM <ls_callstack>.
ELSE.
EXIT.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD split_text_to_symsg.
DATA ls_msg TYPE symsg.
cl_message_helper=>set_msg_vars_for_clike( iv_text ).
ls_msg-msgv1 = sy-msgv1.
ls_msg-msgv2 = sy-msgv2.
ls_msg-msgv3 = sy-msgv3.
ls_msg-msgv4 = sy-msgv4.
" Set syst using generic error message
MESSAGE e001(00) WITH ls_msg-msgv1 ls_msg-msgv2 ls_msg-msgv3 ls_msg-msgv4 INTO null.
rs_msg = ls_msg.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZCX_ABAPGIT_NOT_FOUND ', 'CLASS zcx_abapgit_not_found DEFINITION
PUBLIC
INHERITING FROM cx_static_check
FINAL
CREATE PUBLIC.
PUBLIC SECTION.
METHODS constructor
IMPORTING
!textid LIKE textid OPTIONAL
!previous LIKE previous OPTIONAL.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcx_abapgit_not_found IMPLEMENTATION.
METHOD constructor ##ADT_SUPPRESS_GENERATION.
super->constructor(
textid = textid
previous = previous ).
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_DEFINITIONS ', 'INTERFACE zif_abapgit_definitions
PUBLIC .
TYPES:
ty_string_tt TYPE STANDARD TABLE OF string WITH DEFAULT KEY .
TYPES:
BEGIN OF ty_item_signature,
obj_type TYPE tadir-object,
obj_name TYPE tadir-obj_name,
devclass TYPE devclass,
END OF ty_item_signature .
TYPES:
BEGIN OF ty_obj_namespace,
namespace TYPE trnspace-namespace,
obj_without_namespace TYPE tadir-obj_name,
END OF ty_obj_namespace.
TYPES:
BEGIN OF ty_item.
INCLUDE TYPE ty_item_signature.
TYPES:
srcsystem TYPE tadir-srcsystem,
origlang TYPE tadir-masterlang,
inactive TYPE abap_bool,
abap_language_version TYPE zif_abapgit_aff_types_v1=>ty_abap_language_version,
END OF ty_item .
TYPES:
ty_items_tt TYPE STANDARD TABLE OF ty_item WITH DEFAULT KEY .
TYPES:
ty_items_ts TYPE SORTED TABLE OF ty_item WITH UNIQUE KEY obj_type obj_name .
TYPES:
BEGIN OF ty_file_item,
file TYPE zif_abapgit_git_definitions=>ty_file,
item TYPE ty_item,
END OF ty_file_item .
TYPES:
ty_files_item_tt TYPE STANDARD TABLE OF ty_file_item WITH DEFAULT KEY .
TYPES:
ty_files_item_by_file_tt TYPE SORTED TABLE OF ty_file_item WITH UNIQUE KEY file-path file-filename.
TYPES:
ty_yes_no TYPE c LENGTH 1,
ty_yes_no_partial TYPE c LENGTH 1.
TYPES:
BEGIN OF ty_overwrite.
INCLUDE TYPE ty_item.
TYPES:
state TYPE c LENGTH 2,
action TYPE i,
icon TYPE icon_d,
text TYPE string,
decision TYPE ty_yes_no,
END OF ty_overwrite .
TYPES:
ty_overwrite_tt TYPE STANDARD TABLE OF ty_overwrite WITH DEFAULT KEY
WITH UNIQUE HASHED KEY object_type_and_name
COMPONENTS obj_type obj_name .
TYPES:
BEGIN OF ty_requirements,
met TYPE ty_yes_no,
decision TYPE ty_yes_no,
END OF ty_requirements .
TYPES:
BEGIN OF ty_dependencies,
met TYPE ty_yes_no,
decision TYPE ty_yes_no,
END OF ty_dependencies .
TYPES:
BEGIN OF ty_transport_type,
request TYPE trfunction,
task TYPE trfunction,
END OF ty_transport_type .
TYPES:
BEGIN OF ty_transport,
required TYPE abap_bool,
transport TYPE trkorr,
type TYPE ty_transport_type,
END OF ty_transport .
TYPES:
BEGIN OF ty_deserialize_checks,
overwrite TYPE ty_overwrite_tt,
warning_package TYPE ty_overwrite_tt,
requirements TYPE ty_requirements,
dependencies TYPE ty_dependencies,
transport TYPE ty_transport,
customizing TYPE ty_transport,
END OF ty_deserialize_checks .
TYPES:
BEGIN OF ty_delete_checks,
transport TYPE ty_transport,
END OF ty_delete_checks .
TYPES:
BEGIN OF ty_metadata,
class TYPE string,
version TYPE string,
END OF ty_metadata .
TYPES:
BEGIN OF ty_repo_file,
path TYPE string,
filename TYPE string,
is_changed TYPE abap_bool,
rstate TYPE zif_abapgit_git_definitions=>ty_item_state,
lstate TYPE zif_abapgit_git_definitions=>ty_item_state,
END OF ty_repo_file .
TYPES:
ty_repo_file_tt TYPE STANDARD TABLE OF ty_repo_file WITH DEFAULT KEY .
TYPES:
BEGIN OF ty_object,
sha1 TYPE zif_abapgit_git_definitions=>ty_sha1,
type TYPE zif_abapgit_git_definitions=>ty_type,
data TYPE xstring,
adler32 TYPE zif_abapgit_git_definitions=>ty_adler32,
index TYPE i,
END OF ty_object .
TYPES:
ty_objects_tt TYPE STANDARD TABLE OF ty_object WITH DEFAULT KEY
WITH NON-UNIQUE SORTED KEY sha COMPONENTS sha1
WITH NON-UNIQUE SORTED KEY type COMPONENTS type sha1 .
TYPES:
BEGIN OF ty_tadir,
pgmid TYPE tadir-pgmid,
object TYPE tadir-object,
obj_name TYPE tadir-obj_name,
devclass TYPE tadir-devclass,
korrnum TYPE tadir-korrnum, " used by ZCL_ABAPGIT_DEPENDENCIES->RESOLVE
delflag TYPE tadir-delflag,
genflag TYPE tadir-genflag,
path TYPE string,
srcsystem TYPE tadir-srcsystem,
masterlang TYPE tadir-masterlang,
END OF ty_tadir .
TYPES:
ty_tadir_tt TYPE STANDARD TABLE OF ty_tadir WITH DEFAULT KEY .
TYPES:
BEGIN OF ty_result,
obj_type TYPE tadir-object,
obj_name TYPE tadir-obj_name,
inactive TYPE abap_bool,
path TYPE string,
filename TYPE string,
package TYPE devclass,
match TYPE abap_bool,
lstate TYPE zif_abapgit_git_definitions=>ty_item_state,
rstate TYPE zif_abapgit_git_definitions=>ty_item_state,
packmove TYPE abap_bool,
srcsystem TYPE tadir-srcsystem,
origlang TYPE tadir-masterlang,
END OF ty_result .
TYPES:
ty_results_tt TYPE STANDARD TABLE OF ty_result WITH DEFAULT KEY
WITH NON-UNIQUE SORTED KEY sec_key
COMPONENTS obj_type obj_name.
TYPES:
ty_results_ts_path TYPE HASHED TABLE OF ty_result WITH UNIQUE KEY path filename .
TYPES:
BEGIN OF ty_stage_files,
local TYPE ty_files_item_tt,
remote TYPE zif_abapgit_git_definitions=>ty_files_tt,
status TYPE ty_results_ts_path,
END OF ty_stage_files .
TYPES:
BEGIN OF ty_tpool.
INCLUDE TYPE textpool.
TYPES: split TYPE c LENGTH 8.
TYPES: END OF ty_tpool .
TYPES:
ty_tpool_tt TYPE STANDARD TABLE OF ty_tpool WITH DEFAULT KEY .
TYPES:
BEGIN OF ty_transport_to_branch,
branch_name TYPE string,
commit_text TYPE string,
END OF ty_transport_to_branch .
TYPES:
BEGIN OF ty_diff,
patch_flag TYPE abap_bool,
new_num TYPE c LENGTH 6,
new TYPE string,
result TYPE c LENGTH 1,
old_num TYPE c LENGTH 6,
old TYPE string,
short TYPE abap_bool,
beacon TYPE i,
END OF ty_diff .
TYPES:
ty_diffs_tt TYPE STANDARD TABLE OF ty_diff
WITH DEFAULT KEY
WITH NON-UNIQUE SORTED KEY new_num COMPONENTS new_num
WITH NON-UNIQUE SORTED KEY old_num COMPONENTS old_num.
TYPES:
BEGIN OF ty_count,
insert TYPE i,
delete TYPE i,
update TYPE i,
END OF ty_count .
TYPES:
BEGIN OF ty_ancestor,
commit TYPE zif_abapgit_git_definitions=>ty_sha1,
tree TYPE zif_abapgit_git_definitions=>ty_sha1,
time TYPE string,
body TYPE string,
END OF ty_ancestor .
TYPES:
BEGIN OF ty_repo_item,
obj_type TYPE tadir-object,
obj_name TYPE tadir-obj_name,
inactive TYPE abap_bool,
sortkey TYPE i,
path TYPE string,
is_dir TYPE abap_bool,
changes TYPE i,
lstate TYPE zif_abapgit_git_definitions=>ty_item_state,
rstate TYPE zif_abapgit_git_definitions=>ty_item_state,
files TYPE ty_repo_file_tt,
changed_by TYPE syuname,
transport TYPE trkorr,
packmove TYPE abap_bool,
srcsystem TYPE tadir-srcsystem,
origlang TYPE tadir-masterlang,
END OF ty_repo_item .
TYPES:
ty_repo_item_tt TYPE STANDARD TABLE OF ty_repo_item WITH DEFAULT KEY .
TYPES:
BEGIN OF ty_s_user_settings,
max_lines TYPE i,
adt_jump_enabled TYPE abap_bool,
show_default_repo TYPE abap_bool,
link_hints_enabled TYPE abap_bool,
link_hint_key TYPE c LENGTH 1,
parallel_proc_disabled TYPE abap_bool,
icon_scaling TYPE c LENGTH 1,
ui_theme TYPE string,
hide_sapgui_hint TYPE abap_bool,
activate_wo_popup TYPE abap_bool,
label_colors TYPE string,
default_git_uname TYPE string,
default_git_email TYPE string,
END OF ty_s_user_settings .
TYPES:
BEGIN OF ty_list_settings,
filter TYPE string,
only_favorites TYPE abap_bool,
show_details TYPE abap_bool,
order_by TYPE string,
order_descending TYPE abap_bool,
END OF ty_list_settings.
TYPES:
ty_dokil_tt TYPE STANDARD TABLE OF dokil
WITH NON-UNIQUE DEFAULT KEY .
TYPES:
BEGIN OF ty_col_spec,
tech_name TYPE string,
display_name TYPE string,
css_class TYPE string,
add_tz TYPE abap_bool,
title TYPE string,
allow_order_by TYPE abap_bool,
END OF ty_col_spec,
ty_col_spec_tt TYPE STANDARD TABLE OF ty_col_spec
WITH NON-UNIQUE KEY tech_name.
TYPES:
ty_proxy_bypass_url TYPE c LENGTH 255,
ty_range_proxy_bypass_url TYPE RANGE OF ty_proxy_bypass_url.
TYPES:
BEGIN OF ty_version,
major TYPE i,
minor TYPE i,
patch TYPE i,
prerelase TYPE string,
prerelase_patch TYPE i,
END OF ty_version.
TYPES:
ty_deserialization_step TYPE string.
TYPES:
ty_deserialization_step_tt TYPE STANDARD TABLE OF ty_deserialization_step
WITH DEFAULT KEY .
TYPES ty_sci_result TYPE c LENGTH 1.
CONSTANTS:
BEGIN OF c_sci_result,
no_run TYPE ty_sci_result VALUE '''',
failed TYPE ty_sci_result VALUE ''F'',
warning TYPE ty_sci_result VALUE ''W'',
passed TYPE ty_sci_result VALUE ''P'',
END OF c_sci_result.
CONSTANTS:
BEGIN OF c_diff,
unchanged TYPE c LENGTH 1 VALUE '' '',
insert TYPE c LENGTH 1 VALUE ''I'',
delete TYPE c LENGTH 1 VALUE ''D'',
update TYPE c LENGTH 1 VALUE ''U'',
END OF c_diff .
CONSTANTS:
BEGIN OF c_state, " https://git-scm.com/docs/git-status
unchanged TYPE zif_abapgit_git_definitions=>ty_item_state VALUE '''',
added TYPE zif_abapgit_git_definitions=>ty_item_state VALUE ''A'',
modified TYPE zif_abapgit_git_definitions=>ty_item_state VALUE ''M'',
deleted TYPE zif_abapgit_git_definitions=>ty_item_state VALUE ''D'',
mixed TYPE zif_abapgit_git_definitions=>ty_item_state VALUE ''*'',
END OF c_state .
CONSTANTS c_english TYPE spras VALUE ''E'' ##NO_TEXT.
CONSTANTS c_root_dir TYPE string VALUE ''/'' ##NO_TEXT.
CONSTANTS c_dot_abapgit TYPE string VALUE ''.abapgit.xml'' ##NO_TEXT.
CONSTANTS c_author_regex TYPE string VALUE ''^(.+) <(.*)> (\\d{10})\\s?.\\d{4}$'' ##NO_TEXT.
CONSTANTS:
BEGIN OF c_action,
abapgit_home TYPE string VALUE ''abapgit_home'',
bg_update TYPE string VALUE ''bg_update'',
change_order_by TYPE string VALUE ''change_order_by'',
changelog TYPE string VALUE ''changelog'',
clipboard TYPE string VALUE ''clipboard'',
db_display TYPE string VALUE ''db_display'',
db_edit TYPE string VALUE ''db_edit'',
direction TYPE string VALUE ''direction'',
documentation TYPE string VALUE ''documentation'',
flow TYPE string VALUE ''flow'',
git_branch_create TYPE string VALUE ''git_branch_create'',
git_branch_delete TYPE string VALUE ''git_branch_delete'',
git_branch_merge TYPE string VALUE ''git_branch_merge'',
git_branch_switch TYPE string VALUE ''git_branch_switch'',
git_commit TYPE string VALUE ''git_commit'',
git_pull TYPE string VALUE ''git_pull'',
git_tag_create TYPE string VALUE ''git_tag_create'',
git_tag_delete TYPE string VALUE ''git_tag_delete'',
git_tag_switch TYPE string VALUE ''git_tag_switch'',
go_back TYPE string VALUE ''go_back'',
go_background TYPE string VALUE ''go_background'',
go_background_run TYPE string VALUE ''go_background_run'',
go_commit TYPE string VALUE ''go_commit'',
go_db TYPE string VALUE ''go_db'',
go_debuginfo TYPE string VALUE ''go_debuginfo'',
go_explore TYPE string VALUE ''go_explore'',
go_file_diff TYPE string VALUE ''go_file_diff'',
go_home TYPE string VALUE ''go_home'',
go_patch TYPE string VALUE ''go_patch'',
go_repo TYPE string VALUE ''go_repo'',
go_repo_diff TYPE string VALUE ''go_repo_diff'',
go_settings TYPE string VALUE ''go_settings'',
go_settings_personal TYPE string VALUE ''go_settings_personal'',
go_stage TYPE string VALUE ''go_stage'',
go_stage_transport TYPE string VALUE ''go_stage_transport'',
go_tutorial TYPE string VALUE ''go_tutorial'',
goto_message TYPE string VALUE ''goto_message'',
goto_source TYPE string VALUE ''goto_source'',
homepage TYPE string VALUE ''homepage'',
ie_devtools TYPE string VALUE ''ie_devtools'',
jump TYPE string VALUE ''jump'',
jump_transaction TYPE string VALUE ''jump_transaction'',
jump_transport TYPE string VALUE ''jump_transport'',
jump_user TYPE string VALUE ''jump_user'',
performance_test TYPE string VALUE ''performance_test'',
repo_activate_objects TYPE string VALUE ''repo_activate_objects'',
repo_add_all_obj_to_trans_req TYPE string VALUE ''repo_add_all_obj_to_trans_req'',
repo_background TYPE string VALUE ''repo_background'',
repo_code_inspector TYPE string VALUE ''repo_code_inspector'',
repo_delete_objects TYPE string VALUE ''repo_delete_objects'',
repo_infos TYPE string VALUE ''repo_infos'',
repo_local_settings TYPE string VALUE ''repo_local_settings'',
repo_log TYPE string VALUE ''repo_log'',
repo_newoffline TYPE string VALUE ''repo_newoffline'',
repo_newonline TYPE string VALUE ''repo_newonline'',
repo_open_in_master_lang TYPE string VALUE ''repo_open_in_master_lang'',
repo_purge TYPE string VALUE ''repo_purge'',
repo_refresh TYPE string VALUE ''repo_refresh'',
repo_refresh_checksums TYPE string VALUE ''repo_refresh_checksums'',
repo_remote_settings TYPE string VALUE ''repo_remote_settings'',
repo_remove TYPE string VALUE ''repo_remove'',
repo_settings TYPE string VALUE ''repo_settings'',
repo_syntax_check TYPE string VALUE ''repo_syntax_check'',
repo_toggle_fav TYPE string VALUE ''repo_toggle_fav'',
repo_transport_to_branch TYPE string VALUE ''repo_transport_to_branch'',
rfc_compare TYPE string VALUE ''rfc_compare'',
show_callstack TYPE string VALUE ''show_callstack'',
show_hotkeys TYPE string VALUE ''show_hotkeys'',
sponsor TYPE string VALUE ''sponsor'',
toggle_favorites TYPE string VALUE ''toggle_favorites'',
url TYPE string VALUE ''url'',
where_used TYPE string VALUE ''where_used'',
zip_export TYPE string VALUE ''zip_export'',
zip_export_transport TYPE string VALUE ''zip_export_transport'',
zip_import TYPE string VALUE ''zip_import'',
zip_object TYPE string VALUE ''zip_object'',
zip_package TYPE string VALUE ''zip_package'',
zip_transport TYPE string VALUE ''zip_transport'',
END OF c_action.
CONSTANTS c_spagpa_param_repo_key TYPE c LENGTH 20 VALUE ''REPO_KEY'' ##NO_TEXT.
CONSTANTS c_spagpa_param_package TYPE c LENGTH 20 VALUE ''PACKAGE'' ##NO_TEXT.
CONSTANTS c_yes TYPE ty_yes_no VALUE ''Y''.
CONSTANTS c_no TYPE ty_yes_no VALUE ''N''.
CONSTANTS c_partial TYPE ty_yes_no_partial VALUE ''P''.
TYPES:
ty_method TYPE c LENGTH 1 .
TYPES:
BEGIN OF ty_stage,
file TYPE zif_abapgit_git_definitions=>ty_file,
method TYPE ty_method,
status TYPE ty_result,
END OF ty_stage .
TYPES:
ty_stage_tt TYPE SORTED TABLE OF ty_stage
WITH UNIQUE KEY file-path file-filename .
CONSTANTS:
BEGIN OF c_method,
add TYPE ty_method VALUE ''A'',
rm TYPE ty_method VALUE ''R'',
ignore TYPE ty_method VALUE ''I'',
skip TYPE ty_method VALUE ''?'',
END OF c_method .
TYPES:
ty_sap_langu_tab TYPE STANDARD TABLE OF langu WITH DEFAULT KEY.
TYPES:
ty_languages TYPE STANDARD TABLE OF laiso WITH DEFAULT KEY.
TYPES:
BEGIN OF ty_i18n_params,
main_language TYPE sy-langu,
main_language_only TYPE abap_bool,
translation_languages TYPE ty_languages,
use_lxe TYPE abap_bool,
END OF ty_i18n_params .
TYPES ty_trrngtrkor_tt TYPE RANGE OF trkorr.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('ZIF_ABAPGIT_VERSION ', 'INTERFACE zif_abapgit_version
PUBLIC .
CONSTANTS c_xml_version TYPE string VALUE ''v1.0.0'' ##NO_TEXT.
CONSTANTS c_abap_version TYPE string VALUE ''1.129.0'' ##NO_TEXT.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_PACKAGE_FACTORY ', 'CLASS cl_package_factory DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS load_package
IMPORTING
i_package_name TYPE devclass
VALUE(i_force_reload) TYPE abap_bool OPTIONAL
EXPORTING
VALUE(e_package) TYPE REF TO if_package
EXCEPTIONS
object_not_existing
unexpected_error
intern_err
no_access
object_locked_and_modified.
CLASS-METHODS create_new_package
IMPORTING
VALUE(i_reuse_deleted_object) TYPE abap_bool DEFAULT ''X''
!i_suppress_dialog TYPE abap_bool DEFAULT abap_false
!i_suppress_access_permission TYPE abap_bool DEFAULT abap_false
EXPORTING
VALUE(e_package) TYPE REF TO if_package
CHANGING
c_package_data TYPE any.
ENDCLASS.
CLASS cl_package_factory IMPLEMENTATION.
METHOD load_package.
RAISE object_not_existing.
ENDMETHOD.
METHOD create_new_package.
* this should never be called in unit tests
ASSERT 1 = 2.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_PACKAGE_HELPER ', 'CLASS cl_package_helper DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS check_package_name
IMPORTING
i_package_name TYPE any.
CLASS-METHODS check_package_existence
IMPORTING
i_package_name TYPE any
EXPORTING
e_package_exists TYPE abap_bool.
ENDCLASS.
CLASS cl_package_helper IMPLEMENTATION.
METHOD check_package_name.
ASSERT i_package_name IS NOT INITIAL.
ENDMETHOD.
METHOD check_package_existence.
ASSERT i_package_name IS NOT INITIAL.
e_package_exists = abap_true.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_PACKAGE ', 'INTERFACE if_package PUBLIC.
DATA wbo_korr_flag TYPE c LENGTH 1 READ-ONLY.
DATA software_component TYPE string READ-ONLY.
DATA application_component TYPE string READ-ONLY.
DATA transport_layer TYPE string READ-ONLY.
DATA changed_by TYPE string READ-ONLY.
METHODS save
IMPORTING
i_transport_request TYPE trkorr OPTIONAL
EXCEPTIONS
object_invalid
object_not_changeable
cancelled_in_corr
permission_failure
unexpected_error
intern_err.
METHODS delete
EXCEPTIONS
object_not_empty
object_not_changeable
object_invalid
intern_err.
METHODS set_changeable
IMPORTING
i_changeable TYPE abap_bool.
METHODS get_changeable
EXPORTING
e_changeable TYPE abap.
METHODS get_all_attributes
EXPORTING
e_package_data TYPE scompkdtln
EXCEPTIONS
object_invalid
package_deleted
intern_err.
METHODS save_generic
IMPORTING
i_save_sign TYPE paksavsign
i_transport_request TYPE trkorr OPTIONAL
i_suppress_dialog TYPE abap_bool DEFAULT '' ''
EXPORTING
e_transport_request TYPE trkorr
EXCEPTIONS
cancelled_in_corr
permission_failure
object_not_changeable
object_invalid.
METHODS set_all_attributes
IMPORTING
i_package_data TYPE any
i_data_sign TYPE any
EXCEPTIONS
object_not_changeable
object_deleted
object_invalid
short_text_missing
author_not_existing
local_package
software_component_invalid
layer_invalid
korrflag_invalid
component_not_existing
component_missing
authorize_failure
prefix_in_use
unexpected_error
intern_err
wrong_mainpack_value
superpackage_invalid.
METHODS set_permissions_changeable
IMPORTING
i_changeable TYPE abap_bool
i_suppress_dialog TYPE abap_bool DEFAULT abap_false
i_suppress_language_check TYPE abap_bool DEFAULT abap_false
EXPORTING
e_deleted_permissions TYPE any
EXCEPTIONS
object_already_changeable
object_already_unlocked
object_locked_by_other_user
object_modified
object_just_created
object_deleted
permission_failure
object_invalid
unexpected_error.
METHODS get_permissions_to_use
EXPORTING
e_permissions TYPE tpak_permission_to_use_list
EXCEPTIONS
object_invalid
unexpected_error.
METHODS add_permission_to_use
IMPORTING
i_pkg_permission_data TYPE any
EXPORTING
e_pkg_permission TYPE REF TO if_package_permission_to_use
EXCEPTIONS
object_not_changeable
object_access_error
object_already_existing
object_invalid
unexpected_error.
ENDINTERFACE.
');`);
insert.push(`INSERT INTO "t100" ("sprsl", "arbgb", "msgnr", "text") VALUES ('E', '00 ', '001', '&1&2&3&4 ');`);
insert.push(`INSERT INTO "t100" ("sprsl", "arbgb", "msgnr", "text") VALUES ('E', '00 ', '002', 'needed by abapGit unit test ');`);
insert.push(`INSERT INTO "t100" ("sprsl", "arbgb", "msgnr", "text") VALUES ('E', '00 ', '003', 'needed by abapGit unit test ');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_CHAR_UTILITIES ', 'CLASS cl_abap_char_utilities DEFINITION PUBLIC.
PUBLIC SECTION.
* https://en.wikipedia.org/wiki/Byte_order_mark, 0xEF,0xBB,0xBF
CONSTANTS byte_order_mark_utf8 TYPE x LENGTH 3 VALUE ''EFBBBF''.
CONSTANTS byte_order_mark_big TYPE x LENGTH 2 VALUE ''FEFF''.
CONSTANTS byte_order_mark_little TYPE x LENGTH 2 VALUE ''FFFE''.
CONSTANTS charsize TYPE i VALUE 2.
* open-abap is little endian
CONSTANTS endian TYPE abap_endian VALUE ''L''.
CONSTANTS backspace TYPE abap_char1 VALUE %_backspace.
CONSTANTS cr_lf TYPE abap_cr_lf VALUE %_cr_lf.
CONSTANTS form_feed TYPE abap_char1 VALUE %_formfeed.
CONSTANTS horizontal_tab TYPE abap_char1 VALUE %_horizontal_tab.
CONSTANTS newline TYPE abap_char1 VALUE %_newline.
CONSTANTS vertical_tab TYPE abap_char1 VALUE %_vertical_tab.
CONSTANTS maxchar TYPE abap_char1 VALUE ''_''.
CONSTANTS minchar TYPE abap_char1 VALUE ''_''.
CLASS-METHODS class_constructor.
CLASS-METHODS get_simple_spaces_for_cur_cp
RETURNING
VALUE(s_str) TYPE string.
ENDCLASS.
CLASS cl_abap_char_utilities IMPLEMENTATION.
METHOD class_constructor.
WRITE ''@KERNEL cl_abap_char_utilities.maxchar.set(Buffer.from("FDFF", "hex").toString());''.
WRITE ''@KERNEL cl_abap_char_utilities.minchar.set(Buffer.from("0000", "hex").toString());''.
ENDMETHOD.
METHOD get_simple_spaces_for_cur_cp.
CONCATENATE \` \` horizontal_tab vertical_tab newline cr_lf(1) form_feed INTO s_str.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_EXCEPTIONAL_VALUES ', 'CLASS cl_abap_exceptional_values DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS get_max_value
IMPORTING
in TYPE any
RETURNING
VALUE(out) TYPE REF TO data.
CLASS-METHODS get_min_value
IMPORTING
in TYPE any
RETURNING
VALUE(out) TYPE REF TO data.
ENDCLASS.
CLASS cl_abap_exceptional_values IMPLEMENTATION.
METHOD get_max_value.
DATA lv_type TYPE c LENGTH 1.
DATA lv_length TYPE i.
DATA lv_decimals TYPE i.
DATA lv_digits_before_decimal TYPE i.
DATA lv_integer_part TYPE string.
DATA lv_decimal_part TYPE string.
FIELD-SYMBOLS <out> TYPE any.
DESCRIBE FIELD in TYPE lv_type.
CASE lv_type.
WHEN cl_abap_typedescr=>typekind_int.
GET REFERENCE OF cl_abap_math=>max_int4 INTO out.
WHEN cl_abap_typedescr=>typekind_packed.
DESCRIBE FIELD in LENGTH lv_length IN BYTE MODE DECIMALS lv_decimals.
CREATE DATA out TYPE p LENGTH lv_length DECIMALS lv_decimals.
ASSIGN out->* TO <out>.
lv_digits_before_decimal = lv_length * 2 - 1 - lv_decimals.
DO lv_digits_before_decimal TIMES.
lv_integer_part = lv_integer_part && ''9''.
ENDDO.
IF lv_decimals > 0.
lv_decimal_part = ''.''.
DO lv_decimals TIMES.
lv_decimal_part = lv_decimal_part && ''9''.
ENDDO.
ENDIF.
<out> = lv_integer_part && lv_decimal_part.
WHEN OTHERS.
WRITE ''@KERNEL console.dir(INPUT);''.
ASSERT 1 = ''todo''.
ENDCASE.
ENDMETHOD.
METHOD get_min_value.
DATA lv_type TYPE c LENGTH 1.
FIELD-SYMBOLS <out> TYPE any.
DESCRIBE FIELD in TYPE lv_type.
CASE lv_type.
WHEN cl_abap_typedescr=>typekind_int.
GET REFERENCE OF cl_abap_math=>min_int4 INTO out.
WHEN cl_abap_typedescr=>typekind_packed.
out = get_max_value( in ).
ASSIGN out->* TO <out>.
<out> = <out> * -1.
WHEN OTHERS.
WRITE ''@KERNEL console.dir(INPUT);''.
ASSERT 1 = ''todo''.
ENDCASE.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_FORMAT ', 'CLASS cl_abap_format DEFINITION PUBLIC.
PUBLIC SECTION.
CONSTANTS e_html_attr TYPE i VALUE 5.
CONSTANTS e_html_js TYPE i VALUE 8.
CONSTANTS e_html_js_html TYPE i VALUE 10.
CONSTANTS e_html_text TYPE i VALUE 4.
CONSTANTS e_json_string TYPE i VALUE 24.
CONSTANTS e_url TYPE i VALUE 12.
CONSTANTS e_xml_attr TYPE i VALUE 1.
CONSTANTS e_xss_ml TYPE i VALUE 26.
ENDCLASS.
CLASS cl_abap_format IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_GZIP ', 'CLASS cl_abap_gzip DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS decompress_binary
IMPORTING
gzip_in TYPE xstring
EXPORTING
raw_out TYPE xstring
raw_out_len TYPE i.
CLASS-METHODS compress_binary
IMPORTING
compress_level TYPE i OPTIONAL
raw_in TYPE xstring
EXPORTING
gzip_out TYPE xstring
gzip_out_len TYPE i.
CLASS-METHODS decompress_text
IMPORTING
gzip_in TYPE xsequence
gzip_in_len TYPE i DEFAULT -1
conversion TYPE abap_encod DEFAULT ''DEFAULT''
EXPORTING
text_out TYPE csequence
text_out_len TYPE i
RAISING
cx_parameter_invalid_range
cx_sy_buffer_overflow
cx_sy_conversion_codepage
cx_sy_compression_error.
CLASS-METHODS compress_text
IMPORTING
text_in TYPE csequence
text_in_len TYPE i DEFAULT -1
compress_level TYPE i DEFAULT 6
conversion TYPE abap_encod DEFAULT ''DEFAULT''
EXPORTING
gzip_out TYPE xsequence
gzip_out_len TYPE i
RAISING
cx_parameter_invalid_range
cx_sy_buffer_overflow
cx_sy_conversion_codepage
cx_sy_compression_error.
CLASS-METHODS decompress_binary_with_header
IMPORTING
gzip_in TYPE xstring
EXPORTING
raw_out TYPE xstring
RAISING
cx_parameter_invalid
cx_sy_buffer_overflow
cx_sy_compression_error.
ENDCLASS.
CLASS cl_abap_gzip IMPLEMENTATION.
METHOD decompress_binary_with_header.
* with gzip RFC 1952 header
WRITE ''@KERNEL const zlib = await import("zlib");''.
WRITE ''@KERNEL const buf = Buffer.from(gzip_in.get(), "hex");''.
WRITE ''@KERNEL const decompress = zlib.gunzipSync(buf).toString("hex").toUpperCase();''.
WRITE ''@KERNEL raw_out.set(decompress);''.
ENDMETHOD.
METHOD decompress_text.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD compress_text.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD decompress_binary.
WRITE ''@KERNEL const zlib = await import("zlib");''.
WRITE ''@KERNEL const buf = Buffer.from(gzip_in.get(), "hex");''.
WRITE ''@KERNEL const decompress = zlib.inflateRawSync(buf, {finishFlush: zlib.constants.Z_SYNC_FLUSH}).toString("hex").toUpperCase();''.
WRITE ''@KERNEL raw_out.set(decompress);''.
raw_out_len = xstrlen( raw_out ).
ENDMETHOD.
METHOD compress_binary.
* todo, input parameter COMPRESS_LEVEL corresponds to "level" in "options" for Node?
WRITE ''@KERNEL const zlib = await import("zlib");''.
WRITE ''@KERNEL const buf = Buffer.from(raw_in.get(), "hex");''.
WRITE ''@KERNEL const gzi = zlib.deflateRawSync(buf).toString("hex").toUpperCase();''.
WRITE ''@KERNEL gzip_out.set(gzi);''.
gzip_out_len = xstrlen( gzip_out ).
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_WEAK_REFERENCE ', 'CLASS cl_abap_weak_reference DEFINITION PUBLIC.
PUBLIC SECTION.
METHODS constructor
IMPORTING
oref TYPE REF TO object.
METHODS get
RETURNING
VALUE(oref) TYPE REF TO object.
PRIVATE SECTION.
DATA mv_ref TYPE x LENGTH 1.
ENDCLASS.
CLASS cl_abap_weak_reference IMPLEMENTATION.
METHOD constructor.
ASSERT oref IS NOT INITIAL.
* https://developer.mozilla.org/en-US/docs/Web/JavaScript/Reference/Global_Objects/WeakRef
WRITE ''@KERNEL this.mv_ref = new WeakRef(oref);''.
ENDMETHOD.
METHOD get.
WRITE ''@KERNEL oref.set(this.mv_ref.deref());''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_ZIP ', 'CLASS cl_abap_zip DEFINITION PUBLIC.
PUBLIC SECTION.
METHODS add
IMPORTING
name TYPE string
content TYPE xstring.
METHODS save
RETURNING
VALUE(val) TYPE xstring.
METHODS load
IMPORTING
zip TYPE xstring.
METHODS get
IMPORTING
name TYPE string OPTIONAL
index TYPE i OPTIONAL
EXPORTING
content TYPE xstring.
METHODS delete
IMPORTING
name TYPE string OPTIONAL
index TYPE i DEFAULT 0
EXCEPTIONS
zip_index_error.
CLASS-METHODS crc32
IMPORTING content TYPE xstring
RETURNING VALUE(crc) TYPE i.
TYPES: BEGIN OF t_file,
name TYPE string,
size TYPE i,
END OF t_file.
TYPES t_files TYPE STANDARD TABLE OF t_file WITH DEFAULT KEY.
DATA files TYPE t_files.
PRIVATE SECTION.
TYPES: BEGIN OF ty_contents,
name TYPE string,
* todo, optimize memory usage, dont store both compressed and original,
content TYPE xstring,
compressed TYPE xstring,
END OF ty_contents.
DATA mt_contents TYPE STANDARD TABLE OF ty_contents WITH DEFAULT KEY.
ENDCLASS.
CLASS cl_abap_zip IMPLEMENTATION.
METHOD crc32.
DATA lo_stream TYPE REF TO lcl_stream.
CREATE OBJECT lo_stream.
crc = lo_stream->append_crc(
iv_little_endian = abap_false
iv_xstring = content ).
ENDMETHOD.
METHOD delete.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD get.
DATA ls_length TYPE i.
DATA ls_contents LIKE LINE OF mt_contents.
ASSERT name IS NOT INITIAL.
ASSERT index IS INITIAL.
READ TABLE mt_contents WITH KEY name = name INTO ls_contents.
cl_abap_gzip=>decompress_binary(
EXPORTING
gzip_in = ls_contents-compressed
IMPORTING
raw_out = content
raw_out_len = ls_length ).
ENDMETHOD.
METHOD add.
DATA ls_contents LIKE LINE OF mt_contents.
ls_contents-name = name.
ls_contents-content = content.
cl_abap_gzip=>compress_binary(
EXPORTING
raw_in = content
IMPORTING
gzip_out = ls_contents-compressed ).
INSERT ls_contents INTO TABLE mt_contents.
ENDMETHOD.
METHOD load.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD save.
* https://en.wikipedia.org/wiki/ZIP_(file_format)
* https://pkware.cachefly.net/webdocs/casestudies/APPNOTE.TXT
DATA lo_total TYPE REF TO lcl_stream.
DATA lo_file TYPE REF TO lcl_stream.
DATA lo_central TYPE REF TO lcl_stream.
DATA ls_contents LIKE LINE OF mt_contents.
DATA lv_buffer TYPE xstring.
DATA lv_tmp TYPE xstring.
DATA lv_start TYPE i.
DATA lo_conv TYPE REF TO cl_abap_conv_out_ce.
CREATE OBJECT lo_central.
CREATE OBJECT lo_total.
lo_conv = cl_abap_conv_out_ce=>create( ).
LOOP AT mt_contents INTO ls_contents.
lo_conv->convert( EXPORTING data = ls_contents-name
IMPORTING buffer = lv_buffer ).
****************************************
* LOCAL FILE RECORD
CREATE OBJECT lo_file.
* 0, 4, Local file header signature
lo_file->append( ''504B0304'' ).
* 4, 2, Version needed to extract (minimum)
lo_file->append( ''1400'' ).
* 6, 2, General purpose bit flag
lo_file->append( ''0000'' ).
* 8, 2, Compression method; e.g. none = 0, DEFLATE = 8 (or "0x08 0x00")
lo_file->append( ''0800'' ).
* 10, 2, File last modification time
lo_file->append( ''0699'' ). "lo_stream->append_time( sy-uzeit ).
* 12, 2, File last modification date
lo_file->append( ''F856'' ). "lo_stream->append_date( sy-datum ).
* 14, 4, CRC-32 of uncompressed data
lo_file->append_crc(
iv_little_endian = abap_true
iv_xstring = ls_contents-content ).
* 18, 4, Compressed size (or 0xffffffff for ZIP64)
lo_file->append_int4( xstrlen( ls_contents-compressed ) ).
* 22, 4, Uncompressed size (or 0xffffffff for ZIP64)
lo_file->append_int4( xstrlen( ls_contents-content ) ).
* 26, 2, File name length (n)
lo_file->append_int2( xstrlen( lv_buffer ) ).
* 28, 2, Extra field length (m)
lo_file->append( ''0000'' ).
* 30, n, File name
lo_file->append( lv_buffer ).
* 30+n, m, Extra field
* empty
* compressed data,
lo_file->append( ls_contents-compressed ).
****************************************
* CENTRAL DIRECTORY FILE RECORD
* 0, 4, Central directory file header signature = 0x02014b50
lo_central->append( ''504B0102'' ).
* 4, 2, Version made by
lo_central->append( ''1400'' ).
* 6, 2, Version needed to extract (minimum)
* 8, 2, General purpose bit flag
* 10, 2, Compression method
* 12, 2, File last modification time
* 14, 2, File last modification date
* 16, 4, CRC-32 of uncompressed data
* 20, 4, Compressed size (or 0xffffffff for ZIP64)
* 24, 4, Uncompressed size (or 0xffffffff for ZIP64)
* 28, 2, File name length (n)
* 30, 2, Extra field length (m)
lv_tmp = lo_file->get( ).
lo_central->append( lv_tmp+4(26) ).
* 32, 2, File comment length (k)
lo_central->append_int2( 0 ).
* 34, 2, Disk number where file starts (or 0xffff for ZIP64)
lo_central->append_int2( 0 ).
* 36, 2, Internal file attributes
lo_central->append_int2( 0 ).
* 38, 4, External file attributes
lo_central->append_int4( 0 ).
* 42, 4, Relative offset of local file header (or 0xffffffff for ZIP64). This is the number of bytes between the start of the first disk on which the file occurs, and the start of the local file header. This allows software reading the central directory to locate the position of the file inside the ZIP file.
lo_central->append_int4( xstrlen( lo_total->get( ) ) ).
* 46, n, File name
lo_central->append( lv_buffer ).
lo_total->append( lo_file->get( ) ).
ENDLOOP.
lv_start = xstrlen( lo_total->get( ) ).
lo_total->append( lo_central->get( ) ).
****************************************
* END OF CENTRAL DIRECTORY
* 0, 4, End of central directory signature = 0x06054b50
lo_total->append( ''504B0506'' ).
* 4, 2, Number of this disk (or 0xffff for ZIP64)
lo_total->append_int2( 0 ).
* 6, 2, Disk where central directory starts (or 0xffff for ZIP64)
lo_total->append_int2( 0 ).
* 8, 2, Number of central directory records on this disk (or 0xffff for ZIP64)
lo_total->append_int2( lines( mt_contents ) ).
* 10, 2, Total number of central directory records (or 0xffff for ZIP64)
lo_total->append_int2( lines( mt_contents ) ).
* 12, 4, Size of central directory (bytes) (or 0xffffffff for ZIP64)
lo_total->append_int4( xstrlen( lo_central->get( ) ) ).
* 16, 4, Offset of start of central directory, relative to start of archive (or 0xffffffff for ZIP64)
lo_total->append_int4( lv_start ).
* 20, 2, Comment length (n)
lo_total->append_int2( 0 ).
* 22, n, Comment
* empty
val = lo_total->get( ).
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_DYN_PRG ', 'CLASS cl_abap_dyn_prg DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS check_table_name_str
IMPORTING
val TYPE csequence
packages TYPE csequence
incl_sub_packages TYPE abap_bool OPTIONAL
RETURNING
VALUE(val_str) TYPE string
RAISING
cx_abap_not_a_table
cx_abap_not_in_package.
CLASS-METHODS check_whitelist_str
IMPORTING
val TYPE csequence
whitelist TYPE csequence
RETURNING
VALUE(val_str) TYPE string
RAISING
cx_abap_not_in_whitelist.
CLASS-METHODS quote
IMPORTING
val TYPE csequence
RETURNING
VALUE(out) TYPE string.
CLASS-METHODS escape_quotes
IMPORTING
val TYPE csequence
RETURNING
VALUE(out) TYPE string.
CLASS-METHODS escape_xss_xml_html
IMPORTING
val TYPE csequence
RETURNING
VALUE(out) TYPE string.
CLASS-METHODS escape_xss_url
IMPORTING
val TYPE csequence
RETURNING
VALUE(out) TYPE string.
ENDCLASS.
CLASS cl_abap_dyn_prg IMPLEMENTATION.
METHOD check_table_name_str.
* allow everything
val_str = val.
ENDMETHOD.
METHOD check_whitelist_str.
* allow everything
val_str = val.
ENDMETHOD.
METHOD quote.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD escape_xss_url.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD escape_quotes.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD escape_xss_xml_html.
ASSERT 1 = ''todo''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_ABAP_NOT_A_TABLE ', 'CLASS cx_abap_not_a_table DEFINITION PUBLIC INHERITING FROM cx_static_check.
ENDCLASS.
CLASS cx_abap_not_a_table IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_ABAP_NOT_IN_PACKAGE ', 'CLASS cx_abap_not_in_package DEFINITION PUBLIC INHERITING FROM cx_static_check.
ENDCLASS.
CLASS cx_abap_not_in_package IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_ABAP_NOT_IN_WHITELIST ', 'CLASS cx_abap_not_in_whitelist DEFINITION PUBLIC INHERITING FROM cx_static_check.
ENDCLASS.
CLASS cx_abap_not_in_whitelist IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_HMAC ', 'CLASS cl_abap_hmac DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS calculate_hmac_for_raw
IMPORTING
if_algorithm TYPE string DEFAULT ''SHA1''
if_key TYPE xstring
if_data TYPE xstring
if_length TYPE i OPTIONAL
EXPORTING
ef_hmacstring TYPE string
ef_hmacxstring TYPE xstring
ef_hmacb64string TYPE string
RAISING
cx_abap_message_digest.
CLASS-METHODS calculate_hmac_for_char
IMPORTING
if_algorithm TYPE string DEFAULT ''SHA1''
if_key TYPE xstring
if_data TYPE string
EXPORTING
ef_hmacstring TYPE string
ef_hmacxstring TYPE xstring
ef_hmacb64string TYPE string
RAISING
cx_abap_message_digest.
CLASS-METHODS string_to_xstring
IMPORTING
if_input TYPE string
RETURNING
VALUE(er_output) TYPE xstring
RAISING
cx_abap_message_digest.
ENDCLASS.
CLASS cl_abap_hmac IMPLEMENTATION.
METHOD calculate_hmac_for_raw.
DATA lv_algorithm TYPE string.
CLEAR ef_hmacstring.
CLEAR ef_hmacxstring.
" todo,
ASSERT if_length = 0.
lv_algorithm = to_lower( if_algorithm ).
ASSERT lv_algorithm = ''sha1'' OR lv_algorithm = ''md5'' OR lv_algorithm = ''sha256''.
* todo, this doesnt work in browser?
WRITE ''@KERNEL const crypto = await import("crypto");''.
IF if_key IS INITIAL.
WRITE ''@KERNEL var shasum = crypto.createHash(lv_algorithm.get());''.
WRITE ''@KERNEL shasum.update(if_data.get(), "hex");''.
WRITE ''@KERNEL ef_hmacstring.set(shasum.digest("hex").toUpperCase());''.
ELSE.
WRITE ''@KERNEL let hmac = crypto.createHmac(lv_algorithm.get(), Buffer.from(if_key.get(), "hex")).update(if_data.get(), "hex").digest("hex").toUpperCase();''.
WRITE ''@KERNEL ef_hmacstring.set(hmac);''.
ENDIF.
WRITE ''@KERNEL ef_hmacb64string.set(Buffer.from(ef_hmacstring.get(), "hex").toString("base64"));''.
ef_hmacxstring = ef_hmacstring.
ENDMETHOD.
METHOD calculate_hmac_for_char.
DATA lv_xstr TYPE xstring.
* convert to utf8
lv_xstr = string_to_xstring( if_data ).
calculate_hmac_for_raw(
EXPORTING
if_algorithm = if_algorithm
if_key = if_key
if_data = lv_xstr
IMPORTING
ef_hmacstring = ef_hmacstring
ef_hmacxstring = ef_hmacxstring
ef_hmacb64string = ef_hmacb64string ).
ENDMETHOD.
METHOD string_to_xstring.
er_output = cl_abap_codepage=>convert_to( if_input ).
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_MESSAGE_DIGEST ', 'CLASS cl_abap_message_digest DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS calculate_hash_for_raw
IMPORTING
if_algorithm TYPE string DEFAULT ''SHA1''
if_data TYPE xstring
EXPORTING
ef_hashxstring TYPE xstring
RAISING
cx_abap_message_digest.
CLASS-METHODS calculate_hash_for_char
IMPORTING
if_algorithm TYPE string DEFAULT ''SHA1''
if_data TYPE string
EXPORTING
ef_hashxstring TYPE xstring
ef_hashstring TYPE string
ef_hashb64string TYPE string
RAISING
cx_abap_message_digest.
ENDCLASS.
CLASS cl_abap_message_digest IMPLEMENTATION.
METHOD calculate_hash_for_raw.
DATA lv_algorithm TYPE string.
lv_algorithm = to_lower( if_algorithm ).
ASSERT lv_algorithm = ''sha1'' OR lv_algorithm = ''md5'' OR lv_algorithm = ''sha256''.
* todo, this doesnt work in browser?
WRITE ''@KERNEL const crypto = await import("crypto");''.
WRITE ''@KERNEL var shasum = crypto.createHash(lv_algorithm.get());''.
WRITE ''@KERNEL shasum.update(if_data.get(), "hex");''.
WRITE ''@KERNEL ef_hashxstring.set(shasum.digest("hex").toUpperCase());''.
ENDMETHOD.
METHOD calculate_hash_for_char.
DATA lv_algorithm TYPE string.
lv_algorithm = to_lower( if_algorithm ).
ASSERT lv_algorithm = ''sha1'' OR lv_algorithm = ''md5'' OR lv_algorithm = ''sha256''.
* todo, this doesnt work in browser?
WRITE ''@KERNEL const crypto = await import("crypto");''.
WRITE ''@KERNEL var shasum = crypto.createHash(lv_algorithm.get());''.
WRITE ''@KERNEL shasum.update(if_data.get());''.
WRITE ''@KERNEL ef_hashxstring.set(shasum.digest("hex").toUpperCase());''.
WRITE ''@KERNEL ef_hashb64string.set(Buffer.from(ef_hashxstring.get(), "hex").toString("base64"));''.
ef_hashstring = ef_hashxstring.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_ABAP_MESSAGE_DIGEST ', 'CLASS cx_abap_message_digest DEFINITION PUBLIC INHERITING FROM cx_static_check.
ENDCLASS.
CLASS cx_abap_message_digest IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_MATH ', 'CLASS cl_abap_math DEFINITION PUBLIC.
PUBLIC SECTION.
CONSTANTS min_int4 TYPE i VALUE -2147483648.
CONSTANTS max_int4 TYPE i VALUE 2147483647.
CONSTANTS max_int8 TYPE int8 VALUE 9223372036854775807.
CONSTANTS min_int8 TYPE int8 VALUE -9223372036854775808.
CONSTANTS round_ceiling TYPE i VALUE 0.
CONSTANTS round_up TYPE i VALUE 1.
CONSTANTS round_half_up TYPE i VALUE 2.
CONSTANTS round_half_even TYPE i VALUE 3.
CONSTANTS round_half_down TYPE i VALUE 4.
CONSTANTS round_down TYPE i VALUE 5.
CONSTANTS round_floor TYPE i VALUE 6.
ENDCLASS.
CLASS cl_abap_math IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_RANDOM ', 'CLASS cl_abap_random DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS create
IMPORTING
seed TYPE i OPTIONAL
RETURNING
VALUE(ro_random) TYPE REF TO cl_abap_random.
METHODS int
RETURNING
VALUE(rv_integer) TYPE i.
METHODS intinrange
IMPORTING
low TYPE i
high TYPE i
RETURNING
VALUE(rv_integer) TYPE i.
CLASS-METHODS seed
RETURNING
VALUE(rv_seed) TYPE i.
* todo, use "crypto." instead for generating random numbers? see cl_abap_hmac which also uses crypto
ENDCLASS.
CLASS cl_abap_random IMPLEMENTATION.
METHOD create.
CREATE OBJECT ro_random.
ENDMETHOD.
METHOD int.
* todo, currently only positive integers are returned
WRITE ''@KERNEL rv_integer.set(Math.floor(Math.random() * 2147483647));''.
ENDMETHOD.
METHOD seed.
WRITE ''@KERNEL rv_seed.set(Math.floor(Math.random() * 2147483647));''.
ENDMETHOD.
METHOD intinrange.
* including "low" and "high" numbers
DATA lv_interval TYPE i.
ASSERT high > low.
ASSERT low >= 0.
lv_interval = high - low + 1.
rv_integer = abs( int( ) ).
rv_integer = rv_integer MOD lv_interval.
rv_integer = rv_integer + low.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_RANDOM_INT ', 'CLASS cl_abap_random_int DEFINITION PUBLIC FINAL CREATE PRIVATE.
PUBLIC SECTION.
CLASS-METHODS create
IMPORTING
seed TYPE i OPTIONAL
min TYPE i DEFAULT -2147483648
max TYPE i DEFAULT 2147483647
PREFERRED PARAMETER seed
RETURNING
VALUE(prng) TYPE REF TO cl_abap_random_int
RAISING
cx_abap_random.
METHODS get_next
RETURNING
VALUE(value) TYPE i.
PRIVATE SECTION.
DATA mv_min TYPE i.
DATA mv_max TYPE i.
ENDCLASS.
CLASS cl_abap_random_int IMPLEMENTATION.
METHOD create.
CREATE OBJECT prng.
prng->mv_min = min.
prng->mv_max = max.
ENDMETHOD.
METHOD get_next.
value = cl_abap_random=>create( )->intinrange(
low = mv_min
high = mv_max ).
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_ABAP_RANDOM ', 'CLASS cx_abap_random DEFINITION PUBLIC INHERITING FROM cx_dynamic_check.
ENDCLASS.
CLASS cx_abap_random IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_MATCHER ', 'CLASS cl_abap_matcher DEFINITION PUBLIC.
PUBLIC SECTION.
METHODS constructor
IMPORTING
pattern TYPE clike
ignore_case TYPE abap_bool
text TYPE clike.
METHODS find_all
RETURNING
VALUE(rt_matches) TYPE match_result_tab.
METHODS find_next
RETURNING
VALUE(found) TYPE abap_bool.
METHODS get_submatch
IMPORTING
index TYPE i
RETURNING
VALUE(match) TYPE string.
METHODS get_offset
RETURNING
VALUE(offset) TYPE i.
METHODS match
RETURNING
VALUE(success) TYPE abap_bool.
METHODS get_length
RETURNING
VALUE(length) TYPE i.
PRIVATE SECTION.
DATA mt_matches TYPE match_result_tab.
DATA mv_index TYPE i.
DATA mv_text TYPE string.
DATA mv_pattern TYPE string.
ENDCLASS.
CLASS cl_abap_matcher IMPLEMENTATION.
METHOD constructor.
IF ignore_case = abap_true.
FIND ALL OCCURRENCES OF REGEX pattern IN text RESULTS mt_matches IGNORING CASE.
ELSE.
FIND ALL OCCURRENCES OF REGEX pattern IN text RESULTS mt_matches.
ENDIF.
mv_pattern = pattern.
mv_text = text.
ENDMETHOD.
METHOD match.
FIND ALL OCCURRENCES OF REGEX |^{ mv_pattern }$| IN mv_text.
success = boolc( sy-subrc = 0 ).
ENDMETHOD.
METHOD find_all.
rt_matches = mt_matches.
ENDMETHOD.
METHOD find_next.
mv_index = mv_index + 1.
READ TABLE mt_matches INDEX mv_index TRANSPORTING NO FIELDS.
found = boolc( sy-subrc = 0 ).
ENDMETHOD.
METHOD get_submatch.
DATA ls_match LIKE LINE OF mt_matches.
DATA ls_submatch LIKE LINE OF ls_match-submatches.
READ TABLE mt_matches INDEX mv_index INTO ls_match.
READ TABLE ls_match-submatches INDEX index INTO ls_submatch.
IF sy-subrc = 0.
match = mv_text+ls_submatch-offset(ls_submatch-length).
ENDIF.
ENDMETHOD.
METHOD get_offset.
DATA ls_match LIKE LINE OF mt_matches.
READ TABLE mt_matches INDEX mv_index INTO ls_match.
offset = ls_match-offset.
ENDMETHOD.
METHOD get_length.
DATA ls_match LIKE LINE OF mt_matches.
READ TABLE mt_matches INDEX mv_index INTO ls_match.
length = ls_match-length.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_REGEX ', 'CLASS cl_abap_regex DEFINITION PUBLIC.
PUBLIC SECTION.
METHODS constructor
IMPORTING
pattern TYPE clike
ignore_case TYPE abap_bool DEFAULT abap_false.
METHODS create_matcher
IMPORTING
text TYPE clike
RETURNING
VALUE(ro_matcher) TYPE REF TO cl_abap_matcher.
CLASS-METHODS create_pcre
IMPORTING
pattern TYPE clike
ignore_case TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(regex) TYPE REF TO cl_abap_regex.
PRIVATE SECTION.
DATA mv_pattern TYPE string.
DATA mv_ignore_case TYPE abap_bool.
ENDCLASS.
CLASS cl_abap_regex IMPLEMENTATION.
METHOD constructor.
mv_pattern = pattern.
mv_ignore_case = ignore_case.
ENDMETHOD.
METHOD create_pcre.
CREATE OBJECT regex
EXPORTING
pattern = pattern
ignore_case = ignore_case.
ENDMETHOD.
METHOD create_matcher.
CREATE OBJECT ro_matcher
EXPORTING
pattern = mv_pattern
ignore_case = mv_ignore_case
text = text.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_SQL_RESULT_SET ', 'CLASS cl_sql_result_set DEFINITION PUBLIC.
PUBLIC SECTION.
METHODS set_param
IMPORTING
data_ref TYPE REF TO data
RAISING
cx_parameter_invalid.
METHODS set_param_table
IMPORTING
itab_ref TYPE REF TO data
RAISING
cx_parameter_invalid.
METHODS next
RETURNING
VALUE(rows_ret) TYPE i
RAISING
cx_sql_exception.
METHODS close.
METHODS next_package
RAISING
cx_sql_exception
cx_parameter_invalid_type.
PRIVATE SECTION.
DATA mv_magic TYPE x LENGTH 1.
DATA mv_index TYPE i.
DATA mv_ref TYPE REF TO data.
ENDCLASS.
CLASS cl_sql_result_set IMPLEMENTATION.
METHOD set_param.
mv_ref = data_ref.
ENDMETHOD.
METHOD next.
* todo, more work needed here
DATA lv_total TYPE i.
DATA lv_value TYPE string.
WRITE ''@KERNEL lv_total.set(this.mv_magic.length);''.
* WRITE ''@KERNEL console.dir(this.mv_magic);''.
WRITE ''@KERNEL const current = this.mv_magic[this.mv_index.get()];''.
WRITE ''@KERNEL lv_value.set(Object.values(current)[0]);''.
mv_ref->* = lv_value.
mv_index = mv_index + 1.
rows_ret = lv_total - mv_index.
ENDMETHOD.
METHOD close.
* nothing here,
RETURN.
ENDMETHOD.
METHOD set_param_table.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD next_package.
ASSERT 1 = ''todo''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_SQL_STATEMENT ', 'CLASS cl_sql_statement DEFINITION PUBLIC.
PUBLIC SECTION.
METHODS constructor
IMPORTING con_ref TYPE REF TO object OPTIONAL.
METHODS execute_update
IMPORTING
statement TYPE string
RAISING
cx_sql_exception.
METHODS execute_query
IMPORTING
statement TYPE string
RETURNING
VALUE(result_set) TYPE REF TO cl_sql_result_set
RAISING
cx_sql_exception.
METHODS execute_ddl
IMPORTING
statement TYPE string
RAISING
cx_sql_exception.
ENDCLASS.
CLASS cl_sql_statement IMPLEMENTATION.
METHOD constructor.
* todo,
ASSERT con_ref IS INITIAL.
ENDMETHOD.
METHOD execute_ddl.
ASSERT 1 = ''not supported''.
ENDMETHOD.
METHOD execute_update.
DATA lv_sql_message TYPE string.
ASSERT statement IS NOT INITIAL.
WRITE ''@KERNEL if (abap.context.databaseConnections["DEFAULT"] === undefined) {''.
lv_sql_message = ''not connected to db''.
WRITE ''@KERNEL }''.
IF lv_sql_message IS NOT INITIAL.
RAISE EXCEPTION TYPE cx_sql_exception.
ENDIF.
WRITE ''@KERNEL try {''.
WRITE ''@KERNEL await abap.context.databaseConnections["DEFAULT"].execute(statement.get());''.
WRITE ''@KERNEL } catch(e) {''.
WRITE ''@KERNEL lv_sql_message.set(e + "");''.
WRITE ''@KERNEL }''.
IF lv_sql_message IS NOT INITIAL.
RAISE EXCEPTION TYPE cx_sql_exception.
ENDIF.
ENDMETHOD.
METHOD execute_query.
DATA lv_sql_message TYPE string.
ASSERT statement IS NOT INITIAL.
WRITE ''@KERNEL if (abap.context.databaseConnections["DEFAULT"] === undefined) {''.
lv_sql_message = ''not connected to db''.
WRITE ''@KERNEL }''.
IF lv_sql_message IS NOT INITIAL.
RAISE EXCEPTION TYPE cx_sql_exception.
ENDIF.
CREATE OBJECT result_set.
WRITE ''@KERNEL try {''.
WRITE ''@KERNEL const res = await abap.context.databaseConnections["DEFAULT"].select({select: statement.get()});''.
* WRITE ''@KERNEL console.dir(res.rows);''.
WRITE ''@KERNEL result_set.get().mv_magic = res.rows;''.
WRITE ''@KERNEL } catch(e) {''.
WRITE ''@KERNEL lv_sql_message.set(e + "");''.
WRITE ''@KERNEL }''.
IF lv_sql_message IS NOT INITIAL.
RAISE EXCEPTION TYPE cx_sql_exception.
ENDIF.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SQL_EXCEPTION ', 'CLASS cx_sql_exception DEFINITION PUBLIC INHERITING FROM cx_static_check.
ENDCLASS.
CLASS cx_sql_exception IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_BCS ', 'CLASS cl_bcs DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS create_persistent
RETURNING
VALUE(result) TYPE REF TO cl_bcs
RAISING
cx_bcs.
METHODS add_recipient
IMPORTING
i_recipient TYPE REF TO if_recipient_bcs
i_express TYPE abap_bool OPTIONAL
i_copy TYPE abap_bool OPTIONAL
i_blind_copy TYPE abap_bool OPTIONAL
i_no_forward TYPE abap_bool OPTIONAL
RAISING
cx_bcs.
METHODS set_sender
IMPORTING
i_sender TYPE REF TO if_sender_bcs
RAISING
cx_bcs.
METHODS set_status_attributes
IMPORTING
i_requested_status TYPE any.
METHODS set_document
IMPORTING
i_document TYPE REF TO if_document_bcs
RAISING
cx_bcs.
METHODS set_message_subject
IMPORTING
ip_subject TYPE string
RAISING
cx_bcs.
METHODS send
IMPORTING
i_with_error_screen TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(result) TYPE abap_bool
RAISING
cx_bcs.
METHODS set_send_immediately
IMPORTING
i_send_immediately TYPE abap_bool
RAISING
cx_bcs.
ENDCLASS.
CLASS cl_bcs IMPLEMENTATION.
METHOD set_document.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_status_attributes.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_send_immediately.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_message_subject.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_sender.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD send.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD create_persistent.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD add_recipient.
ASSERT 1 = ''todo''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_BCS_CONVERT ', 'CLASS cl_bcs_convert DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS string_to_soli
IMPORTING
iv_string TYPE string
RETURNING
VALUE(et_soli) TYPE soli_tab.
CLASS-METHODS xstring_to_solix
IMPORTING
iv_xstring TYPE xstring
RETURNING
VALUE(et_solix) TYPE solix_tab.
CLASS-METHODS raw_to_string
IMPORTING
it_soli TYPE soli_tab
RETURNING
VALUE(ev_string) TYPE string
RAISING
cx_bcs.
CLASS-METHODS solix_to_xstring
IMPORTING
it_solix TYPE solix_tab
iv_size TYPE i OPTIONAL
RETURNING
VALUE(ev_xstring) TYPE xstring.
ENDCLASS.
CLASS cl_bcs_convert IMPLEMENTATION.
METHOD string_to_soli.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD solix_to_xstring.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD xstring_to_solix.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD raw_to_string.
ASSERT 1 = ''todo''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_CAM_ADDRESS_BCS ', 'CLASS cl_cam_address_bcs DEFINITION PUBLIC.
PUBLIC SECTION.
INTERFACES if_recipient_bcs.
INTERFACES if_sender_bcs.
CLASS-METHODS create_internet_address
IMPORTING
i_address_string TYPE clike
i_address_name TYPE clike OPTIONAL
i_incl_sapuser TYPE abap_bool OPTIONAL
RETURNING
VALUE(result) TYPE REF TO cl_cam_address_bcs
RAISING
cx_bcs.
ENDCLASS.
CLASS cl_cam_address_bcs IMPLEMENTATION.
METHOD create_internet_address.
ASSERT 1 = ''todo''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_DOCUMENT_BCS ', 'CLASS cl_document_bcs DEFINITION PUBLIC.
PUBLIC SECTION.
INTERFACES if_document_bcs.
CLASS-METHODS create_document
IMPORTING
i_type TYPE clike
i_subject TYPE clike
i_text TYPE any OPTIONAL
i_length TYPE i OPTIONAL
RETURNING
VALUE(result) TYPE REF TO cl_document_bcs
RAISING
cx_bcs.
METHODS add_attachment
IMPORTING
i_attachment_type TYPE clike
i_attachment_subject TYPE clike
i_attachment_size TYPE i OPTIONAL
i_att_content_text TYPE any OPTIONAL
i_att_content_hex TYPE any OPTIONAL
i_attachment_header TYPE soli_tab OPTIONAL
RAISING
cx_bcs.
ENDCLASS.
CLASS cl_document_bcs IMPLEMENTATION.
METHOD create_document.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD add_attachment.
ASSERT 1 = ''todo''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_BCS ', 'CLASS cx_bcs DEFINITION PUBLIC INHERITING FROM cx_static_check.
ENDCLASS.
CLASS cx_bcs IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_DOCUMENT_BCS ', 'INTERFACE if_document_bcs PUBLIC.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_RECIPIENT_BCS ', 'INTERFACE if_recipient_bcs PUBLIC.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_SENDER_BCS ', 'INTERFACE if_sender_bcs PUBLIC.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_DEMO_OUTPUT ', 'CLASS cl_demo_output DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS write
IMPORTING
data TYPE any
name TYPE string OPTIONAL.
CLASS-METHODS clear.
CLASS-METHODS display
IMPORTING
data TYPE any OPTIONAL
name TYPE string OPTIONAL PREFERRED PARAMETER data.
ENDCLASS.
CLASS cl_demo_output IMPLEMENTATION.
METHOD write.
ASSERT 1 = ''not supported''.
ENDMETHOD.
METHOD clear.
ASSERT 1 = ''not supported''.
ENDMETHOD.
METHOD display.
ASSERT 1 = ''not supported''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_I18N_LANGUAGES ', 'CLASS cl_i18n_languages DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS sap1_to_sap2
IMPORTING
im_lang_sap1 TYPE sy-langu
RETURNING
VALUE(re_lang_sap2) TYPE string
EXCEPTIONS
no_assignment.
CLASS-METHODS sap2_to_sap1
IMPORTING
im_lang_sap2 TYPE laiso
RETURNING
VALUE(re_lang_sap1) TYPE sy-langu
EXCEPTIONS
no_assignment.
CLASS-METHODS sap2_to_iso639_1
IMPORTING
im_lang_sap2 TYPE laiso
EXPORTING
ex_lang_iso639 TYPE string
ex_country TYPE land1
EXCEPTIONS
no_assignment.
ENDCLASS.
CLASS cl_i18n_languages IMPLEMENTATION.
METHOD sap2_to_sap1.
CASE to_upper( im_lang_sap2 ).
WHEN ''SR''.
re_lang_sap1 = ''0''.
WHEN ''ZH''.
re_lang_sap1 = ''1''.
WHEN ''TH''.
re_lang_sap1 = ''2''.
WHEN ''KO''.
re_lang_sap1 = ''3''.
WHEN ''RO''.
re_lang_sap1 = ''4''.
WHEN ''SL''.
re_lang_sap1 = ''5''.
WHEN ''HR''.
re_lang_sap1 = ''6''.
WHEN ''MS''.
re_lang_sap1 = ''7''.
WHEN ''UK''.
re_lang_sap1 = ''8''.
WHEN ''ET''.
re_lang_sap1 = ''9''.
WHEN ''AR''.
re_lang_sap1 = ''A''.
WHEN ''HE''.
re_lang_sap1 = ''B''.
WHEN ''CS''.
re_lang_sap1 = ''C''.
WHEN ''DE''.
re_lang_sap1 = ''D''.
WHEN ''EN''.
re_lang_sap1 = ''E''.
WHEN ''FR''.
re_lang_sap1 = ''F''.
WHEN ''EL''.
re_lang_sap1 = ''G''.
WHEN ''HU''.
re_lang_sap1 = ''H''.
WHEN ''IT''.
re_lang_sap1 = ''I''.
WHEN ''JA''.
re_lang_sap1 = ''J''.
WHEN ''DA''.
re_lang_sap1 = ''K''.
WHEN ''PL''.
re_lang_sap1 = ''L''.
WHEN ''ZF''.
re_lang_sap1 = ''M''.
WHEN ''NL''.
re_lang_sap1 = ''N''.
WHEN ''NO''.
re_lang_sap1 = ''O''.
WHEN ''PT''.
re_lang_sap1 = ''P''.
WHEN ''SK''.
re_lang_sap1 = ''Q''.
WHEN ''RU''.
re_lang_sap1 = ''R''.
WHEN ''ES''.
re_lang_sap1 = ''S''.
WHEN ''TR''.
re_lang_sap1 = ''T''.
WHEN ''FI''.
re_lang_sap1 = ''U''.
WHEN ''SV''.
re_lang_sap1 = ''V''.
WHEN ''BG''.
re_lang_sap1 = ''W''.
WHEN ''LT''.
re_lang_sap1 = ''X''.
WHEN ''LV''.
re_lang_sap1 = ''Y''.
WHEN ''Z1''.
re_lang_sap1 = ''Z''.
WHEN ''AF''.
re_lang_sap1 = ''a''.
WHEN ''IS''.
re_lang_sap1 = ''b''.
WHEN ''CA''.
re_lang_sap1 = ''c''.
WHEN ''SH''.
re_lang_sap1 = ''d''.
WHEN ''ID''.
re_lang_sap1 = ''i''.
WHEN ''1Q''.
re_lang_sap1 = ''''.
WHEN OTHERS.
RAISE no_assignment.
ENDCASE.
ENDMETHOD.
METHOD sap1_to_sap2.
* todo, ideally this should look up in a database table first
* if there is no database attached, fallback to the CASE below
CASE im_lang_sap1.
WHEN ''0''.
re_lang_sap2 = ''SR''.
WHEN ''1''.
re_lang_sap2 = ''ZH''.
WHEN ''2''.
re_lang_sap2 = ''TH''.
WHEN ''3''.
re_lang_sap2 = ''KO''.
WHEN ''4''.
re_lang_sap2 = ''RO''.
WHEN ''5''.
re_lang_sap2 = ''SL''.
WHEN ''6''.
re_lang_sap2 = ''HR''.
WHEN ''7''.
re_lang_sap2 = ''MS''.
WHEN ''8''.
re_lang_sap2 = ''UK''.
WHEN ''9''.
re_lang_sap2 = ''ET''.
WHEN ''A''.
re_lang_sap2 = ''AR''.
WHEN ''B''.
re_lang_sap2 = ''HE''.
WHEN ''C''.
re_lang_sap2 = ''CS''.
WHEN ''D''.
re_lang_sap2 = ''DE''.
WHEN ''E''.
re_lang_sap2 = ''EN''.
WHEN ''F''.
re_lang_sap2 = ''FR''.
WHEN ''G''.
re_lang_sap2 = ''EL''.
WHEN ''H''.
re_lang_sap2 = ''HU''.
WHEN ''I''.
re_lang_sap2 = ''IT''.
WHEN ''J''.
re_lang_sap2 = ''JA''.
WHEN ''K''.
re_lang_sap2 = ''DA''.
WHEN ''L''.
re_lang_sap2 = ''PL''.
WHEN ''M''.
re_lang_sap2 = ''ZF''.
WHEN ''N''.
re_lang_sap2 = ''NL''.
WHEN ''O''.
re_lang_sap2 = ''NO''.
WHEN ''P''.
re_lang_sap2 = ''PT''.
WHEN ''Q''.
re_lang_sap2 = ''SK''.
WHEN ''R''.
re_lang_sap2 = ''RU''.
WHEN ''S''.
re_lang_sap2 = ''ES''.
WHEN ''T''.
re_lang_sap2 = ''TR''.
WHEN ''U''.
re_lang_sap2 = ''FI''.
WHEN ''V''.
re_lang_sap2 = ''SV''.
WHEN ''W''.
re_lang_sap2 = ''BG''.
WHEN ''X''.
re_lang_sap2 = ''LT''.
WHEN ''Y''.
re_lang_sap2 = ''LV''.
WHEN ''Z''.
re_lang_sap2 = ''Z1''.
WHEN ''a''.
re_lang_sap2 = ''AF''.
WHEN ''b''.
re_lang_sap2 = ''IS''.
WHEN ''c''.
re_lang_sap2 = ''CA''.
WHEN ''d''.
re_lang_sap2 = ''SH''.
WHEN ''i''.
re_lang_sap2 = ''ID''.
WHEN OTHERS.
RAISE no_assignment.
ENDCASE.
ENDMETHOD.
METHOD sap2_to_iso639_1.
CASE im_lang_sap2.
WHEN ''SR''.
ex_lang_iso639 = ''sr''.
WHEN ''ZH''.
ex_lang_iso639 = ''zh''.
ex_country = ''CN''.
WHEN ''TH''.
ex_lang_iso639 = ''th''.
WHEN ''KO''.
ex_lang_iso639 = ''ko''.
ex_country = ''KR''.
WHEN ''RO''.
ex_lang_iso639 = ''ro''.
ex_country = ''RO''.
WHEN ''SL''.
ex_lang_iso639 = ''sl''.
WHEN ''HR''.
ex_lang_iso639 = ''hr''.
WHEN ''MS''.
ex_lang_iso639 = ''ms''.
ex_country = ''MY''.
WHEN ''UK''.
ex_lang_iso639 = ''uk''.
WHEN ''ET''.
ex_lang_iso639 = ''et''.
WHEN ''AR''.
ex_lang_iso639 = ''ar''.
ex_country = ''SA''.
WHEN ''HE''.
ex_lang_iso639 = ''he''.
WHEN ''CS''.
ex_lang_iso639 = ''cs''.
WHEN ''DE''.
ex_lang_iso639 = ''de''.
ex_country = ''DE''.
WHEN ''EN''.
ex_lang_iso639 = ''en''.
ex_country = ''US''.
WHEN ''FR''.
ex_lang_iso639 = ''fr''.
ex_country = ''FR''.
WHEN ''EL''.
ex_lang_iso639 = ''el''.
WHEN ''HU''.
ex_lang_iso639 = ''hu''.
WHEN ''IT''.
ex_lang_iso639 = ''it''.
ex_country = ''IT''.
WHEN ''JA''.
ex_lang_iso639 = ''ja''.
WHEN ''DA''.
ex_lang_iso639 = ''da''.
WHEN ''PL''.
ex_lang_iso639 = ''pl''.
WHEN ''ZF''.
ex_lang_iso639 = ''zh''.
ex_country = ''TW''.
WHEN ''NL''.
ex_lang_iso639 = ''nl''.
ex_country = ''NL''.
WHEN ''NO''.
ex_lang_iso639 = ''no''.
WHEN ''PT''.
ex_lang_iso639 = ''pt''.
ex_country = ''BR''.
WHEN ''SK''.
ex_lang_iso639 = ''sk''.
WHEN ''RU''.
ex_lang_iso639 = ''ru''.
ex_country = ''RU''.
WHEN ''ES''.
ex_lang_iso639 = ''es''.
ex_country = ''ES''.
WHEN ''TR''.
ex_lang_iso639 = ''tr''.
WHEN ''FI''.
ex_lang_iso639 = ''fi''.
WHEN ''SV''.
ex_lang_iso639 = ''sv''.
WHEN ''BG''.
ex_lang_iso639 = ''bg''.
WHEN ''LT''.
ex_lang_iso639 = ''lt''.
WHEN ''LV''.
ex_lang_iso639 = ''lv''.
WHEN ''AF''.
ex_lang_iso639 = ''af''.
WHEN ''IS''.
ex_lang_iso639 = ''is''.
WHEN ''CA''.
ex_lang_iso639 = ''ca''.
WHEN ''SH''.
ex_lang_iso639 = ''sr''.
WHEN ''ID''.
ex_lang_iso639 = ''id''.
WHEN OTHERS.
RAISE no_assignment.
ENDCASE.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_MESSAGE_HELPER ', 'CLASS cl_message_helper DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS set_msg_vars_for_if_msg
IMPORTING
text TYPE REF TO if_message
EXPORTING
VALUE(string) TYPE string.
CLASS-METHODS set_msg_vars_for_clike
IMPORTING
text TYPE clike.
CLASS-METHODS get_text_for_message
IMPORTING
text TYPE REF TO if_message
RETURNING
VALUE(result) TYPE string.
CLASS-METHODS check_msg_kind
IMPORTING
msg TYPE REF TO object
EXPORTING
t100key TYPE scx_t100key
textid TYPE sotr_conc.
CLASS-METHODS get_otr_text_raw
IMPORTING
textid TYPE sotr_conc
EXPORTING
result TYPE string.
CLASS-METHODS replace_text_params
IMPORTING
obj TYPE REF TO object
CHANGING
result TYPE string.
PRIVATE SECTION.
CONSTANTS gc_fallback TYPE string VALUE ''An exception was raised.''.
ENDCLASS.
CLASS cl_message_helper IMPLEMENTATION.
METHOD get_otr_text_raw.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD replace_text_params.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD get_text_for_message.
DATA lv_msgid LIKE sy-msgid.
DATA lv_msgno LIKE sy-msgno.
DATA lv_msgv1 LIKE sy-msgv1.
DATA lv_msgv2 LIKE sy-msgv2.
DATA lv_msgv3 LIKE sy-msgv3.
DATA lv_msgv4 LIKE sy-msgv4.
* when the transpiler can do more, the below can be implemented in ABAP instead of using KERNEL,
WRITE ''@KERNEL if (text.get()?.if_t100_message$t100key === undefined) { result.set(this.gc_fallback); return result; };''.
WRITE ''@KERNEL lv_msgid.set(text.get().if_t100_message$t100key.get().msgid);''.
WRITE ''@KERNEL lv_msgno.set(text.get().if_t100_message$t100key.get().msgno);''.
WRITE ''@KERNEL lv_msgv1.set(text.get()[text.get().if_t100_message$t100key.get().attr1.get().toLowerCase().replace("~", "$").trimEnd()] ? text.get()[text.get().if_t100_message$t100key.get().attr1.get().toLowerCase().replace("~", "$").trimEnd()].get() : "");''.
WRITE ''@KERNEL lv_msgv2.set(text.get()[text.get().if_t100_message$t100key.get().attr2.get().toLowerCase().replace("~", "$").trimEnd()] ? text.get()[text.get().if_t100_message$t100key.get().attr2.get().toLowerCase().replace("~", "$").trimEnd()].get() : "");''.
WRITE ''@KERNEL lv_msgv3.set(text.get()[text.get().if_t100_message$t100key.get().attr3.get().toLowerCase().replace("~", "$").trimEnd()] ? text.get()[text.get().if_t100_message$t100key.get().attr3.get().toLowerCase().replace("~", "$").trimEnd()].get() : "");''.
WRITE ''@KERNEL lv_msgv4.set(text.get()[text.get().if_t100_message$t100key.get().attr4.get().toLowerCase().replace("~", "$").trimEnd()] ? text.get()[text.get().if_t100_message$t100key.get().attr4.get().toLowerCase().replace("~", "$").trimEnd()].get() : "");''.
MESSAGE ID lv_msgid TYPE ''I'' NUMBER lv_msgno WITH lv_msgv1 lv_msgv2 lv_msgv3 lv_msgv4 INTO result.
ENDMETHOD.
METHOD set_msg_vars_for_if_msg.
IF text IS INITIAL.
RAISE EXCEPTION TYPE cx_sy_message_illegal_text.
ENDIF.
* first try if_t100_message
string = get_text_for_message( text ).
IF string <> gc_fallback.
CLEAR sy-msgty.
RETURN.
ENDIF.
string = text->get_text( ).
IF string IS INITIAL.
ASSERT 1 = ''todo''.
ENDIF.
set_msg_vars_for_clike( string ).
ENDMETHOD.
METHOD set_msg_vars_for_clike.
DATA lv_char200 TYPE c LENGTH 200.
" move to char200 to avoid checking out of bound
lv_char200 = text.
sy-msgid = ''00''.
sy-msgno = ''001''.
sy-msgv1 = lv_char200.
IF lv_char200+49(1) = space.
lv_char200 = lv_char200+49.
ELSE.
lv_char200 = text+50.
ENDIF.
sy-msgv2 = lv_char200.
IF lv_char200+49(1) = space.
lv_char200 = lv_char200+49.
ELSE.
lv_char200 = lv_char200+50.
ENDIF.
sy-msgv3 = lv_char200.
IF lv_char200+49(1) = space.
lv_char200 = lv_char200+49.
ELSE.
lv_char200 = lv_char200+50.
ENDIF.
sy-msgv4 = lv_char200.
ENDMETHOD.
METHOD check_msg_kind.
DATA li_t100_message TYPE REF TO if_t100_message.
TRY.
li_t100_message ?= msg.
t100key = li_t100_message->t100key.
CATCH cx_sy_move_cast_error.
ASSERT 1 = ''todo''.
ENDTRY.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_OO_ADT_CLASSRUN ', 'INTERFACE if_oo_adt_classrun PUBLIC.
METHODS main IMPORTING out TYPE REF TO if_oo_adt_classrun_out.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_OO_ADT_CLASSRUN_OUT ', 'INTERFACE if_oo_adt_classrun_out PUBLIC.
METHODS write
IMPORTING
data TYPE any
name TYPE string OPTIONAL
RETURNING
VALUE(output) TYPE REF TO if_oo_adt_classrun_out.
METHODS get
IMPORTING
data TYPE any OPTIONAL
name TYPE string OPTIONAL PREFERRED PARAMETER data
RETURNING
VALUE(output) TYPE string.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_CODEPAGE ', 'CLASS cl_abap_codepage DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS convert_to
IMPORTING
codepage TYPE string DEFAULT ''UTF-8''
source TYPE string
RETURNING
VALUE(output) TYPE xstring.
CLASS-METHODS convert_from
IMPORTING
codepage TYPE string DEFAULT ''UTF-8''
source TYPE xstring
RETURNING
VALUE(output) TYPE string.
CLASS-METHODS sap_codepage
IMPORTING
encoding TYPE string
RETURNING
VALUE(codepage) TYPE abap_encoding.
ENDCLASS.
CLASS cl_abap_codepage IMPLEMENTATION.
METHOD convert_to.
DATA conv TYPE REF TO cl_abap_conv_out_ce.
conv = cl_abap_conv_out_ce=>create( encoding = codepage ).
conv->convert( EXPORTING data = source
IMPORTING buffer = output ).
ENDMETHOD.
METHOD convert_from.
DATA conv TYPE REF TO cl_abap_conv_in_ce.
DATA data TYPE string.
conv = cl_abap_conv_in_ce=>create( encoding = codepage ).
conv->convert(
EXPORTING input = source
IMPORTING data = output ).
ENDMETHOD.
METHOD sap_codepage.
ASSERT encoding = ''UTF-16LE''.
codepage = ''4103''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_CONV_CODEPAGE ', 'CLASS cl_abap_conv_codepage DEFINITION PUBLIC FINAL CREATE PRIVATE.
PUBLIC SECTION.
CLASS-METHODS create_in
IMPORTING
codepage TYPE string DEFAULT ''UTF-8''
RETURNING
VALUE(instance) TYPE REF TO if_abap_conv_in
RAISING
cx_parameter_invalid_range.
CLASS-METHODS create_out
IMPORTING
codepage TYPE string DEFAULT ''UTF-8''
RETURNING
VALUE(instance) TYPE REF TO if_abap_conv_out
RAISING
cx_parameter_invalid_range.
ENDCLASS.
CLASS cl_abap_conv_codepage IMPLEMENTATION.
METHOD create_in.
CREATE OBJECT instance TYPE lcl_in EXPORTING codepage = codepage.
ENDMETHOD.
METHOD create_out.
CREATE OBJECT instance TYPE lcl_out EXPORTING codepage = codepage.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_CONV_IN_CE ', 'CLASS cl_abap_conv_in_ce DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS
create
IMPORTING
encoding TYPE abap_encoding DEFAULT ''UTF-8''
input TYPE xstring OPTIONAL
replacement TYPE char1 DEFAULT ''#''
ignore_cerr TYPE abap_bool DEFAULT abap_false
endian TYPE char1 OPTIONAL
RETURNING
VALUE(ret) TYPE REF TO cl_abap_conv_in_ce.
CLASS-METHODS
uccpi
IMPORTING
value TYPE i
RETURNING
VALUE(ret) TYPE string.
TYPES ty_char2 TYPE c LENGTH 2.
CLASS-METHODS uccp
IMPORTING
uccp TYPE simple
RETURNING
VALUE(char) TYPE ty_char2.
METHODS convert
IMPORTING
input TYPE xsequence
n TYPE i OPTIONAL
EXPORTING
data TYPE string.
METHODS read
IMPORTING
n TYPE i OPTIONAL
EXPORTING
data TYPE string.
PRIVATE SECTION.
DATA mv_input TYPE xstring.
DATA mv_js_encoding TYPE string.
DATA mv_ignore_cerr TYPE abap_bool.
ENDCLASS.
CLASS cl_abap_conv_in_ce IMPLEMENTATION.
METHOD create.
ASSERT replacement = ''#''. " todo
ASSERT endian IS INITIAL. " todo
CREATE OBJECT ret.
CASE encoding.
WHEN ''UTF-16''.
ret->mv_js_encoding = ''utf-16le''.
WHEN ''UTF-8''.
ret->mv_js_encoding = ''utf8''.
WHEN ''4103''.
ret->mv_js_encoding = ''utf-16le''.
WHEN OTHERS.
ASSERT 1 = ''not supported''.
ENDCASE.
ret->mv_input = input.
ret->mv_ignore_cerr = ignore_cerr.
ENDMETHOD.
METHOD uccp.
DATA int TYPE i.
DATA hex TYPE x LENGTH 2.
hex = uccp.
int = hex.
TRY.
char = uccpi( int ).
CATCH cx_sy_conversion_codepage.
* todo, hmm
ENDTRY.
ENDMETHOD.
METHOD uccpi.
DATA lv_hex TYPE x LENGTH 2.
DATA lo_in TYPE REF TO cl_abap_conv_in_ce.
lv_hex = value.
" switch to little endian
CONCATENATE lv_hex+1(1) lv_hex(1) INTO lv_hex IN BYTE MODE.
lo_in = create( encoding = ''4103'' ).
lo_in->convert(
EXPORTING
input = lv_hex
IMPORTING
data = ret ).
ENDMETHOD.
METHOD convert.
DATA lv_error TYPE abap_bool.
ASSERT mv_js_encoding IS NOT INITIAL.
WRITE ''@KERNEL let buf = Buffer.from(input.get(), "hex");''.
" Try TextDecoder first, if it runs in browser,
WRITE ''@KERNEL const decoder = TextDecoder || await import("util").TextDecoder;''.
* https://stackoverflow.com/questions/62334608/textdecoder-prototype-ignorebom-not-working-as-expected
WRITE ''@KERNEL const td = new decoder(this.mv_js_encoding.get(), {fatal: this.mv_ignore_cerr.get() !== "X", ignoreBOM: true});''.
WRITE ''@KERNEL try {''.
" WRITE ''@KERNEL console.dir(buf);''.
WRITE ''@KERNEL data.set(td.decode(buf));''.
" WRITE ''@KERNEL console.dir(td.decode(buf).charCodeAt( 0 ));''.
WRITE ''@KERNEL } catch (e) {''.
* WRITE ''@KERNEL console.dir(e);''.
* WRITE ''@KERNEL console.dir(this.mv_js_encoding.get());''.
lv_error = abap_true.
WRITE ''@KERNEL }''.
IF lv_error = abap_true.
RAISE EXCEPTION TYPE cx_sy_conversion_codepage.
ENDIF.
* old WRITE ''@KERNEL let result = buf.toString(this.mv_js_encoding.get());''.
* old WRITE ''@KERNEL data.set(result);''.
ENDMETHOD.
METHOD read.
convert(
EXPORTING
input = mv_input
n = n
IMPORTING
data = data ).
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_CONV_OUT_CE ', 'CLASS cl_abap_conv_out_ce DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS
create
IMPORTING
encoding TYPE abap_encoding OPTIONAL
ignore_cerr TYPE abap_bool DEFAULT abap_false
endian TYPE string OPTIONAL
replacement TYPE string OPTIONAL
RETURNING
VALUE(ret) TYPE REF TO cl_abap_conv_out_ce.
CLASS-METHODS
uccpi
IMPORTING
char TYPE clike
RETURNING
VALUE(ret) TYPE i.
TYPES hex02 TYPE x LENGTH 2.
CLASS-METHODS uccp
IMPORTING
char TYPE clike
RETURNING
VALUE(uccp) TYPE hex02
RAISING
cx_sy_conversion_codepage
cx_sy_codepage_converter_init
cx_parameter_invalid_range.
METHODS
convert
IMPORTING
data TYPE simple
n TYPE i OPTIONAL
EXPORTING
buffer TYPE xstring.
METHODS write
IMPORTING
data TYPE any.
METHODS get_buffer
RETURNING
VALUE(buffer) TYPE xstring.
METHODS reset.
PRIVATE SECTION.
DATA mv_js_encoding TYPE string.
DATA mv_buffer TYPE xstring.
ENDCLASS.
CLASS cl_abap_conv_out_ce IMPLEMENTATION.
METHOD create.
CREATE OBJECT ret.
CASE encoding.
WHEN ''UTF-8'' OR ''''.
ret->mv_js_encoding = ''utf8''.
WHEN ''4103''.
ret->mv_js_encoding = ''utf16le''.
WHEN OTHERS.
ASSERT 1 = ''not supported''.
ENDCASE.
ENDMETHOD.
METHOD uccpi.
DATA lo_out TYPE REF TO cl_abap_conv_out_ce.
DATA lv_hex TYPE xstring.
lo_out = create( encoding = ''4103'' ).
lo_out->convert(
EXPORTING
data = char
IMPORTING
buffer = lv_hex ).
ASSERT xstrlen( lv_hex ) = 2.
ret = lv_hex(1).
ret = ret + lv_hex+1(1) * 255.
ENDMETHOD.
METHOD write.
DATA res TYPE xstring.
convert( EXPORTING data = data
IMPORTING buffer = res ).
CONCATENATE mv_buffer res INTO mv_buffer IN BYTE MODE.
ENDMETHOD.
METHOD get_buffer.
buffer = mv_buffer.
ENDMETHOD.
METHOD uccp.
DATA lv_char TYPE c LENGTH 1.
DATA lo_obj TYPE REF TO cl_abap_conv_out_ce.
lv_char = char(1).
lo_obj = create( encoding = ''4103'' ).
lo_obj->convert( EXPORTING data = lv_char
IMPORTING buffer = uccp ).
SHIFT uccp LEFT CIRCULAR IN BYTE MODE.
ENDMETHOD.
METHOD reset.
CLEAR mv_buffer.
ENDMETHOD.
METHOD convert.
DATA lv_str TYPE string.
WRITE ''@KERNEL let result = "";''.
* WRITE ''@KERNEL console.dir(n);''.
IF n IS SUPPLIED.
lv_str = data.
lv_str = lv_str(n).
WRITE ''@KERNEL result = Buffer.from(lv_str.get(), this.mv_js_encoding.get()).toString("hex");''.
ELSE.
WRITE ''@KERNEL result = Buffer.from(data.get(), this.mv_js_encoding.get()).toString("hex");''.
ENDIF.
WRITE ''@KERNEL buffer.set(result.toUpperCase());''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_GDT_CONVERSION ', 'CLASS cl_gdt_conversion DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS language_code_outbound
IMPORTING
im_value TYPE spras
EXPORTING
ex_value TYPE laiso.
CLASS-METHODS language_code_inbound
IMPORTING
im_value TYPE csequence
EXPORTING
ex_value TYPE spras
RAISING
cx_gdt_conversion.
CLASS-METHODS amount_outbound
IMPORTING
im_value TYPE p
im_currency_code TYPE clike
EXPORTING
ex_value TYPE p
RAISING
cx_gdt_conversion.
CLASS-METHODS country_code_outbound
IMPORTING
im_value TYPE land1
EXPORTING
ex_value TYPE csequence
RAISING
cx_gdt_conversion.
CLASS-METHODS date_time_inbound
IMPORTING
im_value TYPE csequence
EXPORTING
ex_value_short TYPE timestamp
RAISING
cx_gdt_conversion.
CLASS-METHODS unit_code_inbound
IMPORTING
im_value TYPE csequence
EXPORTING
ex_value TYPE msehi
RAISING
cx_gdt_conversion.
CLASS-METHODS unit_code_outbound
IMPORTING
im_value TYPE msehi
EXPORTING
ex_value TYPE csequence
RAISING
cx_gdt_conversion.
ENDCLASS.
CLASS cl_gdt_conversion IMPLEMENTATION.
METHOD amount_outbound.
CASE im_currency_code.
WHEN ''DKK'' OR ''EUR'' OR ''USD''.
ex_value = im_value.
WHEN ''VND''.
ex_value = im_value * 100.
WHEN OTHERS.
ASSERT 1 = ''todo''.
ENDCASE.
ENDMETHOD.
METHOD language_code_inbound.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD unit_code_outbound.
CASE im_value.
WHEN ''''.
RAISE EXCEPTION TYPE cx_gdt_conversion.
WHEN ''ST''.
ex_value = ''PCE''.
WHEN ''KG''.
ex_value = ''KGM''.
WHEN ''CDM''.
ex_value = ''DMQ''.
WHEN OTHERS.
ASSERT 1 = ''todo''.
ENDCASE.
ENDMETHOD.
METHOD country_code_outbound.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD date_time_inbound.
DATA lv_str TYPE string.
IF im_value NP ''*Z''.
ASSERT 1 = ''todo, only handles UTC for now''.
ENDIF.
lv_str = im_value.
REPLACE ALL OCCURRENCES OF ''-'' IN lv_str WITH ''''.
REPLACE ALL OCCURRENCES OF '':'' IN lv_str WITH ''''.
REPLACE ALL OCCURRENCES OF ''T'' IN lv_str WITH ''''.
REPLACE ALL OCCURRENCES OF ''Z'' IN lv_str WITH ''''.
ex_value_short = lv_str.
ENDMETHOD.
METHOD unit_code_inbound.
* todo, first look up in database, if there is no database connected, fallback to below
CASE im_value.
WHEN ''MTR''.
ex_value = ''M''.
WHEN ''PCE''.
ex_value = ''PC''.
WHEN ''KGM''.
ex_value = ''KG''.
WHEN ''LTR''.
ex_value = ''L''.
WHEN OTHERS.
ASSERT 1 = ''todo''.
ENDCASE.
ENDMETHOD.
METHOD language_code_outbound.
cl_i18n_languages=>sap1_to_sap2(
EXPORTING
im_lang_sap1 = im_value
RECEIVING
re_lang_sap2 = ex_value
EXCEPTIONS
no_assignment = 1
OTHERS = 2 ).
TRANSLATE ex_value TO LOWER CASE.
IF sy-subrc <> 0.
RAISE EXCEPTION TYPE cx_gdt_conversion.
ENDIF.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_GDT_CONVERSION ', 'CLASS cx_gdt_conversion DEFINITION PUBLIC INHERITING FROM cx_dynamic_check.
ENDCLASS.
CLASS cx_gdt_conversion IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_ABAP_CONV_IN ', 'INTERFACE if_abap_conv_in PUBLIC.
METHODS convert
IMPORTING
source TYPE xstring
RETURNING
VALUE(result) TYPE string
RAISING
cx_sy_conversion_codepage.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_ABAP_CONV_OUT ', 'INTERFACE if_abap_conv_out PUBLIC.
METHODS convert
IMPORTING
source TYPE string
RETURNING
VALUE(result) TYPE xstring
RAISING
cx_sy_conversion_codepage.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_DATFM ', 'CLASS cl_abap_datfm DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS conv_date_ext_to_int
IMPORTING
im_datext TYPE csequence
im_datfmdes TYPE char1 OPTIONAL
EXPORTING
ex_datint TYPE d
ex_datfmused TYPE char1
RAISING
cx_abap_datfm.
CLASS-METHODS get_date_format_des
IMPORTING
im_datfm TYPE char1 OPTIONAL
im_langu TYPE spras DEFAULT sy-langu
im_plain TYPE abap_bool DEFAULT abap_false
im_long TYPE abap_bool DEFAULT abap_false
EXPORTING
ex_dateformat TYPE csequence
RAISING
cx_abap_datfm.
CLASS-METHODS conv_period_ext_to_int
IMPORTING
im_periodext TYPE csequence
EXPORTING
ex_periodint TYPE csequence
RAISING
cx_abap_datfm.
PRIVATE SECTION.
CONSTANTS ddmmyyyy_dot_seperated TYPE c VALUE ''1''.
CONSTANTS yyyymmdd_dot_seperated TYPE c VALUE ''4''.
ENDCLASS.
CLASS cl_abap_datfm IMPLEMENTATION.
METHOD conv_period_ext_to_int.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD conv_date_ext_to_int.
DATA regex_ddmmyyyy_dot_seperated TYPE string VALUE ''^(0[0-9]|[12][0-9]|3[01])[- \\..](0[0-9]|1[012])[- \\..]\\d\\d\\d\\d$''.
DATA regex_yyyymmdd_dot_seperated TYPE string VALUE ''^\\d\\d\\d\\d[- \\..](0[0-9]|1[012])[- \\..](0[0-9]|[12][0-9]|3[01])$''.
DATA regex_yyyymmdd_no_dot TYPE string VALUE ''^(\\d{4})(0[0-9]|1[012])(0[0-9]|[12][0-9]|3[01])$''.
IF im_datfmdes <> ddmmyyyy_dot_seperated
AND im_datfmdes <> yyyymmdd_dot_seperated.
RAISE EXCEPTION TYPE cx_abap_datfm.
ENDIF.
FIND ALL OCCURRENCES OF REGEX regex_ddmmyyyy_dot_seperated IN im_datext.
IF sy-subrc = 0.
ex_datint = im_datext+6(4) && im_datext+3(2) && im_datext(2).
ex_datfmused = ddmmyyyy_dot_seperated.
RETURN.
ENDIF.
FIND ALL OCCURRENCES OF REGEX regex_yyyymmdd_dot_seperated IN im_datext.
IF sy-subrc = 0.
ex_datint = im_datext(4) && im_datext+5(2) && im_datext+8(2).
ex_datfmused = yyyymmdd_dot_seperated.
RETURN.
ENDIF.
FIND ALL OCCURRENCES OF REGEX regex_yyyymmdd_no_dot IN im_datext.
IF sy-subrc = 0.
ex_datint = im_datext.
ex_datfmused = yyyymmdd_dot_seperated.
RETURN.
ENDIF.
RAISE EXCEPTION TYPE cx_abap_datfm.
ENDMETHOD.
METHOD get_date_format_des.
ASSERT 1 = ''todo''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_TIMEFM ', 'CLASS cl_abap_timefm DEFINITION PUBLIC.
PUBLIC SECTION.
TYPES ty_format TYPE i.
TYPES ty_timefm TYPE c LENGTH 1.
CLASS-METHODS conv_time_ext_to_int
IMPORTING
time_ext TYPE csequence
is_24_allowed TYPE abap_bool DEFAULT abap_false
EXPORTING
time_int TYPE t
RAISING
cx_abap_timefm_invalid.
CLASS-METHODS conv_time_int_to_ext
IMPORTING
time_int TYPE t
EXPORTING
time_ext TYPE string
RAISING
cx_parameter_invalid_range.
CLASS-METHODS get_environment_timefm
RETURNING
VALUE(timefm) TYPE ty_timefm.
ENDCLASS.
CLASS cl_abap_timefm IMPLEMENTATION.
METHOD conv_time_ext_to_int.
DATA lv_text TYPE string.
* todo,
ASSERT is_24_allowed = abap_true.
FIND REGEX ''^([0-1]?[0-9]|2[0-3]):[0-5][0-9]:[0-5][0-9]$'' IN time_ext.
IF sy-subrc <> 0.
RAISE EXCEPTION TYPE cx_abap_timefm_invalid.
ENDIF.
lv_text = time_ext.
REPLACE ALL OCCURRENCES OF '':'' IN lv_text WITH ''''.
time_int = lv_text.
ENDMETHOD.
METHOD conv_time_int_to_ext.
time_ext = |{ time_int TIME = ISO }|.
ENDMETHOD.
METHOD get_environment_timefm.
ASSERT 1 = ''todo''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_TSTMP ', 'CLASS cl_abap_tstmp DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS subtract
IMPORTING
tstmp1 TYPE p
tstmp2 TYPE p
RETURNING
VALUE(r_secs) TYPE i.
CLASS-METHODS add
IMPORTING
tstmp TYPE p
secs TYPE numeric
RETURNING
VALUE(time) TYPE timestamp.
CLASS-METHODS subtractsecs
IMPORTING
tstmp TYPE p
secs TYPE numeric
RETURNING
VALUE(time) TYPE timestamp.
CLASS-METHODS td_add
IMPORTING
date TYPE d
time TYPE t
secs TYPE numeric
EXPORTING
res_date TYPE d
res_time TYPE t.
CLASS-METHODS move
IMPORTING
tstmp_src TYPE p
EXPORTING
tstmp_tgt TYPE p.
CLASS-METHODS systemtstmp_syst2utc
IMPORTING
syst_date TYPE d
syst_time TYPE t
EXPORTING
utc_tstmp TYPE p
RAISING
cx_parameter_invalid_range.
CLASS-METHODS move_to_short
IMPORTING
tstmp_src TYPE tzntstmpl
RETURNING
VALUE(tstmp_out) TYPE tzntstmps
RAISING
cx_parameter_invalid_type
cx_parameter_invalid_range.
CLASS-METHODS td_subtract
IMPORTING
date1 TYPE d
time1 TYPE t
date2 TYPE d
time2 TYPE t
EXPORTING
res_secs TYPE numeric
RAISING
cx_parameter_invalid_type
cx_parameter_invalid_range.
CLASS-METHODS systemtstmp_utc2syst
IMPORTING
utc_tstmp TYPE timestamp
EXPORTING
syst_date TYPE d
syst_time TYPE t
RAISING
cx_parameter_invalid_range.
ENDCLASS.
CLASS cl_abap_tstmp IMPLEMENTATION.
METHOD td_add.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD systemtstmp_utc2syst.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD move.
* todo, this is most likely wrong, but will also work in some cases
* todo, input is generic packed? which is unknown to abaplint
tstmp_tgt = tstmp_src.
ENDMETHOD.
METHOD systemtstmp_syst2utc.
* system timezone is always UTC for open-abap, so no conversion needed
IF syst_date IS INITIAL.
RAISE EXCEPTION TYPE cx_parameter_invalid_range.
ENDIF.
utc_tstmp = |{ syst_date }{ syst_time }|.
ENDMETHOD.
METHOD subtract.
DATA str TYPE string.
DATA lv_dummy TYPE string.
str = |{ tstmp1 TIMESTAMP = ISO }|.
IF str CA '',''.
SPLIT str AT '','' INTO str lv_dummy.
ENDIF.
WRITE ''@KERNEL let t1 = Date.parse(str.get());''.
str = |{ tstmp2 TIMESTAMP = ISO }|.
IF str CA '',''.
SPLIT str AT '','' INTO str lv_dummy.
ENDIF.
WRITE ''@KERNEL let t2 = Date.parse(str.get());''.
WRITE ''@KERNEL r_secs.set((t1 - t2)/1000);''.
ENDMETHOD.
METHOD add.
DATA str TYPE string.
DATA lv_dummy TYPE string.
str = |{ tstmp TIMESTAMP = ISO }|.
IF str CA '',''.
SPLIT str AT '','' INTO str lv_dummy.
ENDIF.
WRITE ''@KERNEL let t1 = new Date(Date.parse(str.get() + "Z"));''.
WRITE ''@KERNEL t1.setSeconds( t1.getSeconds() + secs.get() );''.
WRITE ''@KERNEL time.set(t1.toISOString().slice(0, 19).replace(/-/g, "").replace(/:/g, "").replace("T", ""));''.
ENDMETHOD.
METHOD subtractsecs.
DATA lv_secs TYPE i.
lv_secs = secs * -1.
time = add(
tstmp = tstmp
secs = lv_secs ).
ENDMETHOD.
METHOD move_to_short.
move(
EXPORTING
tstmp_src = tstmp_src
IMPORTING
tstmp_tgt = tstmp_out ).
ENDMETHOD.
METHOD td_subtract.
DATA lv_stamp1 TYPE timestamp.
DATA lv_stamp2 TYPE timestamp.
CONVERT DATE date1 TIME time1 INTO TIME STAMP lv_stamp1.
CONVERT DATE date2 TIME time2 INTO TIME STAMP lv_stamp2.
res_secs = subtract(
tstmp1 = lv_stamp1
tstmp2 = lv_stamp2 ).
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_ABAP_DATFM ', 'CLASS cx_abap_datfm DEFINITION PUBLIC INHERITING FROM cx_static_check.
ENDCLASS.
CLASS cx_abap_datfm IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_ABAP_TIMEFM_INVALID ', 'CLASS cx_abap_timefm_invalid DEFINITION PUBLIC INHERITING FROM cx_static_check.
ENDCLASS.
CLASS cx_abap_timefm_invalid IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_DYNAMIC_CHECK ', 'CLASS cx_dynamic_check DEFINITION ABSTRACT PUBLIC INHERITING FROM cx_root.
ENDCLASS.
CLASS cx_dynamic_check IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_NO_CHECK ', 'CLASS cx_no_check DEFINITION PUBLIC INHERITING FROM cx_root.
PUBLIC SECTION.
METHODS constructor
IMPORTING
textid LIKE textid OPTIONAL
previous TYPE REF TO cx_root OPTIONAL.
ENDCLASS.
CLASS cx_no_check IMPLEMENTATION.
METHOD constructor.
super->constructor(
previous = previous
textid = textid ).
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_PARAMETER_INVALID ', 'CLASS cx_parameter_invalid DEFINITION PUBLIC INHERITING FROM cx_dynamic_check.
PUBLIC SECTION.
METHODS constructor
IMPORTING
textid LIKE textid OPTIONAL
previous LIKE previous OPTIONAL
parameter TYPE string OPTIONAL.
ENDCLASS.
CLASS cx_parameter_invalid IMPLEMENTATION.
METHOD constructor.
super->constructor(
textid = textid
previous = previous ).
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_PARAMETER_INVALID_RANGE ', 'CLASS cx_parameter_invalid_range DEFINITION PUBLIC INHERITING FROM cx_parameter_invalid.
PUBLIC SECTION.
METHODS constructor
IMPORTING
textid LIKE textid OPTIONAL
previous LIKE previous OPTIONAL
parameter TYPE string OPTIONAL
value TYPE string OPTIONAL.
ENDCLASS.
CLASS cx_parameter_invalid_range IMPLEMENTATION.
METHOD constructor.
super->constructor(
textid = textid
previous = previous
parameter = parameter ).
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_PARAMETER_INVALID_TYPE ', 'CLASS cx_parameter_invalid_type DEFINITION PUBLIC INHERITING FROM cx_parameter_invalid.
ENDCLASS.
CLASS cx_parameter_invalid_type IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_ROOT ', 'CLASS cx_root DEFINITION ABSTRACT PUBLIC.
PUBLIC SECTION.
DATA previous TYPE REF TO cx_root.
DATA textid TYPE c LENGTH 32.
METHODS constructor
IMPORTING
textid LIKE textid OPTIONAL
previous TYPE REF TO cx_root OPTIONAL.
METHODS get_source_position
EXPORTING
program_name TYPE string
include_name TYPE string
source_line TYPE i.
INTERFACES if_message.
ALIASES get_longtext FOR if_message~get_longtext.
ALIASES get_text FOR if_message~get_text.
ENDCLASS.
CLASS cx_root IMPLEMENTATION.
METHOD constructor.
me->previous = previous.
me->textid = textid.
ENDMETHOD.
METHOD get_source_position.
CLEAR program_name.
CLEAR include_name.
CLEAR source_line.
WRITE ''@KERNEL source_line.set(this.EXTRA_CX.INTERNAL_LINE || 1);''.
WRITE ''@KERNEL program_name.set(this.EXTRA_CX.INTERNAL_FILENAME || "error");''.
ENDMETHOD.
METHOD if_message~get_longtext.
result = ''OpenAbapGetLongtextDummyValue''.
ENDMETHOD.
METHOD if_message~get_text.
result = cl_message_helper=>get_text_for_message( me ).
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_ST_ERROR ', 'CLASS cx_st_error DEFINITION PUBLIC INHERITING FROM cx_transformation_error.
ENDCLASS.
CLASS cx_st_error IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_STATIC_CHECK ', 'CLASS cx_static_check DEFINITION PUBLIC INHERITING FROM cx_root.
PUBLIC SECTION.
METHODS constructor
IMPORTING
textid LIKE textid OPTIONAL
previous TYPE REF TO cx_root OPTIONAL.
ENDCLASS.
CLASS cx_static_check IMPLEMENTATION.
METHOD constructor.
super->constructor(
textid = textid
previous = previous ).
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_ARITHMETIC_ERROR ', 'CLASS cx_sy_arithmetic_error DEFINITION PUBLIC INHERITING FROM cx_dynamic_check.
ENDCLASS.
CLASS cx_sy_arithmetic_error IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_ARITHMETIC_OVERFLOW ', 'CLASS cx_sy_arithmetic_overflow DEFINITION PUBLIC INHERITING FROM cx_sy_arithmetic_error.
PUBLIC SECTION.
METHODS if_message~get_text REDEFINITION.
ENDCLASS.
CLASS cx_sy_arithmetic_overflow IMPLEMENTATION.
METHOD if_message~get_text.
result = ''Arithmetic overflow''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_BUFFER_OVERFLOW ', 'CLASS cx_sy_buffer_overflow DEFINITION PUBLIC INHERITING FROM cx_dynamic_check.
ENDCLASS.
CLASS cx_sy_buffer_overflow IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_CODEPAGE_CONVERTER_INIT ', 'CLASS cx_sy_codepage_converter_init DEFINITION PUBLIC INHERITING FROM cx_dynamic_check.
ENDCLASS.
CLASS cx_sy_codepage_converter_init IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_COMPRESSION_ERROR ', 'CLASS cx_sy_compression_error DEFINITION PUBLIC INHERITING FROM cx_dynamic_check.
ENDCLASS.
CLASS cx_sy_compression_error IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_CONVERSION_CODEPAGE ', 'CLASS cx_sy_conversion_codepage DEFINITION PUBLIC INHERITING FROM cx_dynamic_check.
PUBLIC SECTION.
DATA source_extract TYPE xstring.
ENDCLASS.
CLASS cx_sy_conversion_codepage IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_CONVERSION_DATA_LOSS ', 'CLASS cx_sy_conversion_data_loss DEFINITION PUBLIC INHERITING FROM cx_sy_conversion_error.
ENDCLASS.
CLASS cx_sy_conversion_data_loss IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_CONVERSION_ERROR ', 'CLASS cx_sy_conversion_error DEFINITION PUBLIC INHERITING FROM cx_dynamic_check.
ENDCLASS.
CLASS cx_sy_conversion_error IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_CONVERSION_NO_NUMBER ', 'CLASS cx_sy_conversion_no_number DEFINITION PUBLIC INHERITING FROM cx_sy_conversion_error.
PUBLIC SECTION.
METHODS if_message~get_text REDEFINITION.
ENDCLASS.
CLASS cx_sy_conversion_no_number IMPLEMENTATION.
METHOD if_message~get_text.
result = ''Conversion no number''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_CONVERSION_OVERFLOW ', 'CLASS cx_sy_conversion_overflow DEFINITION PUBLIC INHERITING FROM cx_sy_conversion_error.
PUBLIC SECTION.
METHODS constructor
IMPORTING
textid LIKE textid OPTIONAL
previous LIKE previous OPTIONAL
value TYPE string OPTIONAL.
ENDCLASS.
CLASS cx_sy_conversion_overflow IMPLEMENTATION.
METHOD constructor.
super->constructor(
textid = textid
previous = previous ).
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_CREATE_DATA_ERROR ', 'CLASS cx_sy_create_data_error DEFINITION PUBLIC INHERITING FROM cx_dynamic_check.
ENDCLASS.
CLASS cx_sy_create_data_error IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_CREATE_OBJECT_ERROR ', 'CLASS cx_sy_create_object_error DEFINITION PUBLIC INHERITING FROM cx_dynamic_check.
PUBLIC SECTION.
METHODS constructor
IMPORTING
textid LIKE textid OPTIONAL
previous LIKE previous OPTIONAL
classname TYPE string OPTIONAL.
METHODS if_message~get_text REDEFINITION.
DATA classname TYPE string READ-ONLY.
ENDCLASS.
CLASS cx_sy_create_object_error IMPLEMENTATION.
METHOD constructor.
super->constructor(
textid = textid
previous = previous ).
me->classname = classname.
ENDMETHOD.
METHOD if_message~get_text.
result = ''The object could not be created: The class ??? does not exist.''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_DATA_ACCESS_ERROR ', 'CLASS cx_sy_data_access_error DEFINITION PUBLIC INHERITING FROM cx_dynamic_check.
ENDCLASS.
CLASS cx_sy_data_access_error IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_DUPLICATE_KEY ', 'CLASS cx_sy_duplicate_key DEFINITION PUBLIC INHERITING FROM cx_dynamic_check.
ENDCLASS.
CLASS cx_sy_duplicate_key IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_DYN_CALL_ERROR ', 'CLASS cx_sy_dyn_call_error DEFINITION PUBLIC INHERITING FROM cx_dynamic_check.
ENDCLASS.
CLASS cx_sy_dyn_call_error IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_DYN_CALL_ILLEGAL_CLASS ', 'CLASS cx_sy_dyn_call_illegal_class DEFINITION PUBLIC INHERITING FROM cx_sy_dyn_call_error.
ENDCLASS.
CLASS cx_sy_dyn_call_illegal_class IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_DYN_CALL_ILLEGAL_FORM ', 'CLASS cx_sy_dyn_call_illegal_form DEFINITION PUBLIC INHERITING FROM cx_sy_dyn_call_error.
ENDCLASS.
CLASS cx_sy_dyn_call_illegal_form IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_DYN_CALL_ILLEGAL_FUNC ', 'CLASS cx_sy_dyn_call_illegal_func DEFINITION PUBLIC INHERITING FROM cx_sy_dyn_call_error.
ENDCLASS.
CLASS cx_sy_dyn_call_illegal_func IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_DYN_CALL_ILLEGAL_METHOD ', 'CLASS cx_sy_dyn_call_illegal_method DEFINITION PUBLIC INHERITING FROM cx_sy_dyn_call_error.
PUBLIC SECTION.
CONSTANTS private_method TYPE sotr_conc VALUE ''11111111111111111111111111111111''.
METHODS constructor
IMPORTING
textid LIKE textid OPTIONAL
previous LIKE previous OPTIONAL
classname TYPE string OPTIONAL
methodname TYPE string OPTIONAL.
ENDCLASS.
CLASS cx_sy_dyn_call_illegal_method IMPLEMENTATION.
METHOD constructor.
super->constructor( previous = previous ).
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_DYN_CALL_PARAM_NOT_FOUND ', 'CLASS cx_sy_dyn_call_param_not_found DEFINITION PUBLIC INHERITING FROM cx_sy_dyn_call_parameter_error.
ENDCLASS.
CLASS cx_sy_dyn_call_param_not_found IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_DYN_CALL_PARAMETER_ERROR ', 'CLASS cx_sy_dyn_call_parameter_error DEFINITION PUBLIC INHERITING FROM cx_sy_dyn_call_error.
PUBLIC SECTION.
DATA parameter TYPE string.
ENDCLASS.
CLASS cx_sy_dyn_call_parameter_error IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_DYNAMIC_OSQL_ERROR ', 'CLASS cx_sy_dynamic_osql_error DEFINITION PUBLIC INHERITING FROM cx_sy_open_sql_error.
PUBLIC SECTION.
METHODS constructor
IMPORTING
sqlmsg TYPE string OPTIONAL.
ENDCLASS.
CLASS cx_sy_dynamic_osql_error IMPLEMENTATION.
METHOD constructor.
super->constructor( sqlmsg = sqlmsg ).
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_DYNAMIC_OSQL_SEMANTICS ', 'CLASS cx_sy_dynamic_osql_semantics DEFINITION PUBLIC INHERITING FROM cx_sy_dynamic_osql_error.
PUBLIC SECTION.
METHODS constructor
IMPORTING
sqlmsg TYPE string OPTIONAL.
ENDCLASS.
CLASS cx_sy_dynamic_osql_semantics IMPLEMENTATION.
METHOD constructor.
super->constructor( sqlmsg = sqlmsg ).
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_FIND_INFINITE_LOOP ', 'CLASS cx_sy_find_infinite_loop DEFINITION PUBLIC INHERITING FROM cx_dynamic_check.
ENDCLASS.
CLASS cx_sy_find_infinite_loop IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_INVALID_REGEX ', 'CLASS cx_sy_invalid_regex DEFINITION PUBLIC INHERITING FROM cx_dynamic_check.
ENDCLASS.
CLASS cx_sy_invalid_regex IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_ITAB_DUPLICATE_KEY ', 'CLASS cx_sy_itab_duplicate_key DEFINITION PUBLIC INHERITING FROM cx_sy_itab_error.
ENDCLASS.
CLASS cx_sy_itab_duplicate_key IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_ITAB_ERROR ', 'CLASS cx_sy_itab_error DEFINITION PUBLIC INHERITING FROM cx_dynamic_check.
ENDCLASS.
CLASS cx_sy_itab_error IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_ITAB_LINE_NOT_FOUND ', 'CLASS cx_sy_itab_line_not_found DEFINITION PUBLIC INHERITING FROM cx_dynamic_check.
ENDCLASS.
CLASS cx_sy_itab_line_not_found IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_MESSAGE_ILLEGAL_TEXT ', 'CLASS cx_sy_message_illegal_text DEFINITION PUBLIC INHERITING FROM cx_dynamic_check.
PUBLIC SECTION.
ENDCLASS.
CLASS cx_sy_message_illegal_text IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_MOVE_CAST_ERROR ', 'CLASS cx_sy_move_cast_error DEFINITION PUBLIC INHERITING FROM cx_dynamic_check.
PUBLIC SECTION.
METHODS if_message~get_text REDEFINITION.
ENDCLASS.
CLASS cx_sy_move_cast_error IMPLEMENTATION.
METHOD if_message~get_text.
result = ''Casting failed, types not compatible''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_OPEN_SQL_ERROR ', 'CLASS cx_sy_open_sql_error DEFINITION PUBLIC INHERITING FROM cx_sy_sql_error.
PUBLIC SECTION.
METHODS constructor
IMPORTING
sqlmsg TYPE string OPTIONAL.
ENDCLASS.
CLASS cx_sy_open_sql_error IMPLEMENTATION.
METHOD constructor.
super->constructor( sqlmsg = sqlmsg ).
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_RANGE_OUT_OF_BOUNDS ', 'CLASS cx_sy_range_out_of_bounds DEFINITION PUBLIC INHERITING FROM cx_sy_data_access_error.
PUBLIC SECTION.
METHODS if_message~get_text REDEFINITION.
ENDCLASS.
CLASS cx_sy_range_out_of_bounds IMPLEMENTATION.
METHOD if_message~get_text.
result = ''Range out of bounds''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_REF_IS_INITIAL ', 'CLASS cx_sy_ref_is_initial DEFINITION PUBLIC INHERITING FROM cx_dynamic_check.
ENDCLASS.
CLASS cx_sy_ref_is_initial IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_REGEX ', 'CLASS cx_sy_regex DEFINITION PUBLIC INHERITING FROM cx_dynamic_check.
ENDCLASS.
CLASS cx_sy_regex IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_REGEX_TOO_COMPLEX ', 'CLASS cx_sy_regex_too_complex DEFINITION PUBLIC INHERITING FROM cx_dynamic_check.
ENDCLASS.
CLASS cx_sy_regex_too_complex IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_SQL_ERROR ', 'CLASS cx_sy_sql_error DEFINITION PUBLIC INHERITING FROM cx_dynamic_check.
PUBLIC SECTION.
DATA sqlmsg TYPE string.
METHODS constructor
IMPORTING
sqlmsg TYPE string OPTIONAL.
ENDCLASS.
CLASS cx_sy_sql_error IMPLEMENTATION.
METHOD constructor.
super->constructor( ).
me->sqlmsg = sqlmsg.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_STRG_PAR_VAL ', 'CLASS cx_sy_strg_par_val DEFINITION PUBLIC INHERITING FROM cx_dynamic_check.
PUBLIC SECTION.
ENDCLASS.
CLASS cx_sy_strg_par_val IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_STRUCT_ATTRIBUTES ', 'CLASS cx_sy_struct_attributes DEFINITION PUBLIC INHERITING FROM cx_sy_struct_creation.
ENDCLASS.
CLASS cx_sy_struct_attributes IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_STRUCT_COMP_NAME ', 'CLASS cx_sy_struct_comp_name DEFINITION PUBLIC INHERITING FROM cx_sy_struct_creation.
ENDCLASS.
CLASS cx_sy_struct_comp_name IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_STRUCT_COMP_TYPE ', 'CLASS cx_sy_struct_comp_type DEFINITION PUBLIC INHERITING FROM cx_sy_struct_creation.
ENDCLASS.
CLASS cx_sy_struct_comp_type IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_STRUCT_CREATION ', 'CLASS cx_sy_struct_creation DEFINITION PUBLIC INHERITING FROM cx_sy_type_creation.
ENDCLASS.
CLASS cx_sy_struct_creation IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_TYPE_CREATION ', 'CLASS cx_sy_type_creation DEFINITION PUBLIC INHERITING FROM cx_dynamic_check.
ENDCLASS.
CLASS cx_sy_type_creation IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SY_ZERODIVIDE ', 'CLASS cx_sy_zerodivide DEFINITION PUBLIC INHERITING FROM cx_sy_arithmetic_error.
PUBLIC SECTION.
METHODS if_message~get_text REDEFINITION.
ENDCLASS.
CLASS cx_sy_zerodivide IMPLEMENTATION.
METHOD if_message~get_text.
result = ''Division by zero.''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_TRANSFORMATION_ERROR ', 'CLASS cx_transformation_error DEFINITION PUBLIC INHERITING FROM cx_dynamic_check.
ENDCLASS.
CLASS cx_transformation_error IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_XSLT_EXCEPTION ', 'CLASS cx_xslt_exception DEFINITION PUBLIC INHERITING FROM cx_transformation_error.
ENDCLASS.
CLASS cx_xslt_exception IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_XSLT_FORMAT_ERROR ', 'CLASS cx_xslt_format_error DEFINITION PUBLIC INHERITING FROM cx_xslt_system_error.
ENDCLASS.
CLASS cx_xslt_format_error IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_XSLT_RUNTIME_ERROR ', 'CLASS cx_xslt_runtime_error DEFINITION PUBLIC INHERITING FROM cx_transformation_error.
ENDCLASS.
CLASS cx_xslt_runtime_error IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_XSLT_SERIALIZATION_ERROR ', 'CLASS cx_xslt_serialization_error DEFINITION PUBLIC INHERITING FROM cx_xslt_system_error.
ENDCLASS.
CLASS cx_xslt_serialization_error IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_XSLT_SYSTEM_ERROR ', 'CLASS cx_xslt_system_error DEFINITION PUBLIC INHERITING FROM cx_xslt_exception.
ENDCLASS.
CLASS cx_xslt_system_error IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_MESSAGE ', 'INTERFACE if_message PUBLIC.
METHODS get_text RETURNING VALUE(result) TYPE string.
METHODS get_longtext
IMPORTING preserve_newlines TYPE abap_bool OPTIONAL
RETURNING VALUE(result) TYPE string.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_T100_DYN_MSG ', 'INTERFACE if_t100_dyn_msg PUBLIC.
INTERFACES if_t100_message.
DATA msgty TYPE symsgty.
DATA msgv1 TYPE symsgv.
DATA msgv2 TYPE symsgv.
DATA msgv3 TYPE symsgv.
DATA msgv4 TYPE symsgv.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_T100_MESSAGE ', 'INTERFACE if_t100_message PUBLIC.
DATA t100key TYPE scx_t100key.
CONSTANTS:
BEGIN OF default_textid,
msgid TYPE symsgid VALUE ''AB'',
msgno TYPE symsgno VALUE ''123'',
attr1 TYPE scx_attrname VALUE '''',
attr2 TYPE scx_attrname VALUE '''',
attr3 TYPE scx_attrname VALUE '''',
attr4 TYPE scx_attrname VALUE '''',
END OF default_textid.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('KERNEL_FUGR_TEST ', 'CLASS kernel_fugr_test DEFINITION PUBLIC.
PUBLIC SECTION.
ENDCLASS.
CLASS kernel_fugr_test IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_HTTP_CLIENT ', 'CLASS cl_http_client DEFINITION PUBLIC CREATE PRIVATE.
PUBLIC SECTION.
INTERFACES if_http_client.
CLASS-METHODS create_by_url
IMPORTING
url TYPE string
ssl_id TYPE ssfapplssl OPTIONAL
proxy_host TYPE string OPTIONAL
proxy_service TYPE string OPTIONAL
EXPORTING
VALUE(client) TYPE REF TO if_http_client.
* todo, add classic exceptions
CLASS-METHODS create_by_destination
IMPORTING
destination TYPE clike
EXPORTING
VALUE(client) TYPE REF TO if_http_client.
* todo, add classic exceptions
CLASS-METHODS create_internal
EXPORTING
client TYPE REF TO if_http_client
EXCEPTIONS
plugin_not_active
internal_error.
METHODS constructor
IMPORTING
url TYPE string.
PRIVATE SECTION.
DATA mv_host TYPE string.
ENDCLASS.
CLASS cl_http_client IMPLEMENTATION.
METHOD constructor.
* SSL_ID and proxies are currently ignored
DATA lv_uri TYPE string.
DATA lv_query TYPE string.
CREATE OBJECT if_http_client~response TYPE cl_http_entity.
FIND REGEX ''\\w(\\/[\\w\\d\\.\\-\\/]+)'' IN url SUBMATCHES lv_uri.
mv_host = url.
* WRITE ''@KERNEL console.dir(this.mv_host.get());''.
* WRITE ''@KERNEL console.dir(lv_uri.get());''.
REPLACE FIRST OCCURRENCE OF lv_uri IN mv_host WITH ''''.
CREATE OBJECT if_http_client~request TYPE cl_http_entity.
if_http_client~request->set_header_field(
name = ''~request_uri''
value = lv_uri ).
FIND REGEX ''\\?(.*)'' IN url SUBMATCHES lv_query.
IF sy-subrc = 0.
cl_http_utility=>set_query(
request = if_http_client~request
query = lv_query ).
ENDIF.
ENDMETHOD.
METHOD if_http_client~escape_url.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD create_by_url.
CREATE OBJECT client TYPE cl_http_client
EXPORTING
url = url.
sy-subrc = 0. " todo
ENDMETHOD.
METHOD if_http_client~authenticate.
DATA lv_base64 TYPE string.
lv_base64 = cl_http_utility=>encode_base64( |{ username }:{ password }| ).
if_http_client~request->set_header_field(
name = ''authorization''
value = |Basic { lv_base64 }| ).
ENDMETHOD.
METHOD if_http_client~close.
* todo
RETURN.
ENDMETHOD.
METHOD create_by_destination.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD create_internal.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_client~create_abs_url.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_client~send.
DATA lv_method TYPE string.
DATA lv_url TYPE string.
DATA lv_body TYPE string.
DATA lv_name TYPE string.
DATA lv_value TYPE string.
DATA lv_content_type TYPE string.
DATA lv_xstr TYPE xstring.
DATA lt_form_fields TYPE tihttpnvp.
DATA lt_header_fields TYPE tihttpnvp.
DATA ls_field LIKE LINE OF lt_header_fields.
lv_method = if_http_client~request->get_method( ).
IF lv_method IS INITIAL.
lv_method = ''GET''.
ENDIF.
* default user-agent if not set
IF if_http_client~request->get_header_field( ''user-agent'' ) IS INITIAL.
if_http_client~request->set_header_field(
name = ''user-agent''
value = ''open-abap-http'' ).
ENDIF.
* building URL
lv_url = if_http_client~request->get_header_field( ''~request_uri'' ).
REPLACE FIRST OCCURRENCE OF mv_host IN lv_url WITH ''''.
lv_url = mv_host && lv_url.
if_http_client~request->get_form_fields( CHANGING fields = lt_form_fields ).
IF lines( lt_form_fields ) > 0.
CASE lv_method.
WHEN ''GET''.
lv_url = lv_url && ''?'' && cl_http_utility=>fields_to_string( lt_form_fields ).
WHEN ''POST''.
if_http_client~request->set_cdata( cl_http_utility=>fields_to_string( lt_form_fields ) ).
ENDCASE.
ENDIF.
* WRITE ''@KERNEL console.dir(lv_url.get());''.
* building headers
if_http_client~request->get_header_fields( CHANGING fields = lt_header_fields ).
WRITE ''@KERNEL let headers = {};''.
LOOP AT lt_header_fields INTO ls_field WHERE name <> ''~request_uri''.
WRITE ''@KERNEL headers[ls_field.get().name.get()] = ls_field.get().value.get();''.
ENDLOOP.
lv_content_type = if_http_client~request->get_content_type( ).
IF lv_content_type IS NOT INITIAL.
WRITE ''@KERNEL headers["content-type"] = lv_content_type.get();''.
ENDIF.
WRITE ''@KERNEL headers["accept-encoding"] = "gzip";''.
* WRITE ''@KERNEL console.dir(headers);''.
lv_body = if_http_client~request->get_cdata( ).
* WRITE ''@KERNEL console.dir(lv_body);''.
IF strlen( lv_body ) > 0.
WRITE ''@KERNEL headers["content-length"] = lv_body.get().length;''.
ENDIF.
WRITE ''@KERNEL const https = await import("https");''.
WRITE ''@KERNEL const http = await import("http");''.
WRITE ''@KERNEL function postData(url, options, requestBody) {''.
WRITE ''@KERNEL return new Promise((resolve, reject) => {''.
WRITE ''@KERNEL const prot = url.startsWith("http://") ? http : https;''.
WRITE ''@KERNEL const req = prot.request(url, options,''.
WRITE ''@KERNEL (res) => {''.
WRITE ''@KERNEL let chunks = [];''.
WRITE ''@KERNEL res.on("data", (chunk) => {chunks.push(chunk);});''.
WRITE ''@KERNEL res.on("error", reject);''.
WRITE ''@KERNEL res.on("end", () => {''.
* WRITE ''@KERNEL console.dir(res.statusCode + " " + JSON.stringify(res.headers));''.
* WRITE ''@KERNEL if (res.statusCode >= 200 && res.statusCode <= 299) {''.
WRITE ''@KERNEL resolve({statusCode: res.statusCode, headers: res.headers, body: Buffer.concat(chunks)});''.
* WRITE ''@KERNEL } else {''.
* WRITE ''@KERNEL reject("Request failed. status: " + res.statusCode + ", body: " + Buffer.concat(chunks).toString());''.
* WRITE ''@KERNEL }''.
WRITE ''@KERNEL });''.
WRITE ''@KERNEL });''.
WRITE ''@KERNEL req.on("error", reject);''.
WRITE ''@KERNEL req.write(requestBody, "binary");''.
WRITE ''@KERNEL req.end();''.
WRITE ''@KERNEL });''.
WRITE ''@KERNEL }''.
WRITE ''@KERNEL const prot = lv_url.get().startsWith("http://") ? http : https;''.
WRITE ''@KERNEL if (this.agent === undefined) {this.agent = new prot.Agent({keepAlive: true, maxSockets: 1});}''.
WRITE ''@KERNEL let response = await postData(lv_url.get(), {method: lv_method.get(), headers: headers, agent: this.agent}, lv_body.get());''.
" WRITE ''@KERNEL console.dir(response);''.
" WRITE ''@KERNEL console.dir(response.headers);''.
WRITE ''@KERNEL for (const h in response.headers) {''.
WRITE ''@KERNEL lv_name.set(h);''.
WRITE ''@KERNEL if (Array.isArray(response.headers[h])) continue;''.
WRITE ''@KERNEL lv_value.set(response.headers[h]);''.
if_http_client~response->set_header_field(
name = lv_name
value = lv_value ).
WRITE ''@KERNEL }''.
WRITE ''@KERNEL this.if_http_client$response.get().mv_content_type.set(response.headers["content-type"] || "");''.
WRITE ''@KERNEL this.if_http_client$response.get().mv_status.set(response.statusCode);''.
WRITE ''@KERNEL this.if_http_client$response.get().mv_data.set(response.body.toString("hex").toUpperCase());''.
* WRITE ''@KERNEL console.dir(this.if_http_client$response.get().mv_data);''.
lv_value = if_http_client~response->get_header_field( ''content-encoding'' ).
IF lv_value = ''gzip''.
cl_abap_gzip=>decompress_binary_with_header(
EXPORTING
gzip_in = if_http_client~response->get_data( )
IMPORTING
raw_out = lv_xstr ).
if_http_client~response->set_data( lv_xstr ).
ENDIF.
* workaround for classic exceptions, this should work sometime in the transpiler instead
sy-subrc = 0.
ENDMETHOD.
METHOD if_http_client~receive.
* handled in send()
* workaround for classic exceptions, this should work sometime in the transpiler instead
sy-subrc = 0.
ENDMETHOD.
METHOD if_http_client~get_last_error.
if_http_client~response->get_status( IMPORTING code = code ).
message = ''todo_open_abap''. " get from one of the response headers?
ENDMETHOD.
METHOD if_http_client~send_sap_logon_ticket.
* do nothing,
RETURN.
ENDMETHOD.
METHOD if_http_client~refresh_request.
ASSERT 1 = ''todo''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_HTTP_ENTITY ', 'CLASS cl_http_entity DEFINITION PUBLIC CREATE PRIVATE.
PUBLIC SECTION.
INTERFACES if_http_response.
INTERFACES if_http_request.
ALIASES set_header_field FOR if_http_entity~set_header_field.
ALIASES append_cdata FOR if_http_entity~append_cdata.
PROTECTED SECTION.
DATA m_last_error TYPE i.
PRIVATE SECTION.
DATA mv_status TYPE i.
DATA mv_reason TYPE string.
DATA mv_content_type TYPE string.
DATA mv_method TYPE string.
DATA mv_data TYPE xstring.
DATA mt_headers TYPE tihttpnvp.
DATA mt_form_fields TYPE tihttpnvp.
ENDCLASS.
CLASS cl_http_entity IMPLEMENTATION.
METHOD if_http_response~server_cache_expire_rel.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_response~server_cache_expire_default.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_response~server_cache_expire_abs.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_response~server_cache_browser_dependent.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_response~get_raw_message.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_response~copy.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_request~get_user_agent.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_request~get_uri_parameter.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_request~get_raw_message.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_request~get_form_data.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_request~get_authorization.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_request~copy.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_request~set_authorization.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_entity~add_multipart.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_entity~get_cookie_field.
* todo
CLEAR field_value.
ENDMETHOD.
METHOD if_http_entity~set_compression.
* todo
ENDMETHOD.
METHOD if_http_entity~append_cdata.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_entity~append_cdata2.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_entity~add_cookie_field.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_entity~append_data.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_entity~to_xstring.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_entity~delete_cookie_secure.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_entity~get_cookies.
* todo
CLEAR cookies.
ENDMETHOD.
METHOD if_http_entity~delete_form_field.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_entity~delete_form_field_secure.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_entity~get_cookie.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_entity~get_data_length.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_entity~from_xstring.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_entity~get_form_field_cs.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_entity~get_last_error.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_entity~delete_header_field.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_entity~delete_header_field_secure.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_entity~delete_cookie.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_entity~set_header_fields.
* todo, does this method clear the existing fields?
DATA ls_field LIKE LINE OF fields.
LOOP AT fields INTO ls_field.
if_http_entity~set_header_field(
name = ls_field-name
value = ls_field-value ).
ENDLOOP.
ENDMETHOD.
METHOD if_http_entity~suppress_content_type.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_entity~set_formfield_encoding.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_entity~set_cookie.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_entity~get_version.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_entity~get_serialized_message_length.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_entity~get_header_field.
DATA ls_header LIKE LINE OF mt_headers.
READ TABLE mt_headers WITH KEY name = to_lower( name ) INTO ls_header.
IF sy-subrc = 0.
value = ls_header-value.
ENDIF.
ENDMETHOD.
METHOD if_http_entity~get_header_fields.
fields = mt_headers.
ENDMETHOD.
METHOD if_http_response~get_status.
code = mv_status.
reason = mv_reason.
ENDMETHOD.
METHOD if_http_entity~get_cdata.
cl_abap_conv_in_ce=>create( encoding = ''UTF-8'' )->convert(
EXPORTING input = mv_data
IMPORTING data = data ).
ENDMETHOD.
METHOD if_http_response~set_status.
mv_status = code.
mv_reason = reason.
ENDMETHOD.
METHOD if_http_entity~set_cdata.
cl_abap_conv_out_ce=>create( encoding = ''UTF-8'' )->convert(
EXPORTING data = data
IMPORTING buffer = mv_data ).
ENDMETHOD.
METHOD if_http_entity~get_content_type.
content_type = if_http_entity~get_header_field( ''content-type'' ).
ENDMETHOD.
METHOD if_http_entity~set_content_type.
if_http_entity~set_header_field(
name = ''content-type''
value = content_type ).
ENDMETHOD.
METHOD if_http_entity~get_data.
data = mv_data.
ENDMETHOD.
METHOD if_http_entity~set_data.
mv_data = data.
ENDMETHOD.
METHOD if_http_response~delete_cookie_at_client.
ASSERT 2 = ''todo''.
ENDMETHOD.
METHOD if_http_response~redirect.
ASSERT 2 = ''todo''.
ENDMETHOD.
METHOD if_http_entity~num_multiparts.
* todo
num = 0.
ENDMETHOD.
METHOD if_http_entity~get_multipart.
ASSERT 2 = ''todo''.
ENDMETHOD.
METHOD if_http_entity~get_form_fields_cs.
fields = mt_form_fields.
ENDMETHOD.
METHOD if_http_entity~set_form_fields.
mt_form_fields = fields.
ENDMETHOD.
METHOD if_http_entity~get_form_fields.
DATA ls_field LIKE LINE OF mt_form_fields.
LOOP AT mt_form_fields INTO ls_field.
TRANSLATE ls_field-name TO LOWER CASE.
APPEND ls_field TO fields.
ENDLOOP.
ENDMETHOD.
METHOD if_http_entity~get_form_field.
DATA ls_field LIKE LINE OF mt_form_fields.
READ TABLE mt_form_fields INTO ls_field WITH KEY name = to_lower( name ).
IF sy-subrc = 0.
value = ls_field-value.
ENDIF.
ENDMETHOD.
METHOD if_http_entity~set_header_field.
DATA ls_header LIKE LINE OF mt_headers.
FIELD-SYMBOLS <ls_header> LIKE LINE OF mt_headers.
READ TABLE mt_headers WITH KEY name = to_lower( name ) ASSIGNING <ls_header>.
IF sy-subrc = 0.
<ls_header>-value = value.
ELSE.
ls_header-name = to_lower( name ).
ls_header-value = value.
APPEND ls_header TO mt_headers.
ENDIF.
IF name = ''~request_method''.
if_http_request~set_method( value ).
ENDIF.
ENDMETHOD.
METHOD if_http_request~set_method.
mv_method = method.
ENDMETHOD.
METHOD if_http_request~get_method.
meth = mv_method.
ENDMETHOD.
METHOD if_http_request~set_version.
* todo,
RETURN.
ENDMETHOD.
METHOD if_http_entity~set_form_field.
DATA ls_field LIKE LINE OF mt_form_fields.
ls_field-name = name.
ls_field-value = value.
APPEND ls_field TO mt_form_fields.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_HTTP_SERVER ', 'CLASS cl_http_server DEFINITION PUBLIC CREATE PRIVATE.
PUBLIC SECTION.
INTERFACES if_http_server.
ALIASES co_enabled FOR if_http_server~co_enabled.
ALIASES append_field_url FOR if_http_server~append_field_url.
CLASS-DATA c_compression_supported TYPE i.
DATA m_protocol_version TYPE string READ-ONLY.
CLASS-METHODS get_location
IMPORTING
application TYPE csequence OPTIONAL
EXPORTING
port TYPE string
out_protocol TYPE string
host TYPE string.
ENDCLASS.
CLASS cl_http_server IMPLEMENTATION.
METHOD if_http_server~logoff.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_server~set_session_stateful.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_server~append_field_url.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_server~create_abs_url.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_server~create_rel_url.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_server~decode_base64.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_server~enable_foreign_session_access.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_server~encode_base64.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_server~escape_html.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_server~escape_url.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_server~get_extension_info.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_server~get_extension_url.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_server~get_last_error.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_server~get_location.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_server~get_location_exception.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_server~get_xsrf_token.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_server~send_page.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_server~set_compression.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_server~set_page.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_server~set_session_stateful_via_url.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_server~unescape_url.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_server~validate_xsrf_token.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD get_location.
host = ''open-abap.org''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_HTTP_UTILITY ', 'CLASS cl_http_utility DEFINITION PUBLIC.
PUBLIC SECTION.
INTERFACES if_http_utility.
ALIASES decode_base64 FOR if_http_utility~decode_base64.
ALIASES encode_base64 FOR if_http_utility~encode_base64.
ALIASES escape_url FOR if_http_utility~escape_url.
ALIASES fields_to_string FOR if_http_utility~fields_to_string.
ALIASES get_last_error FOR if_http_utility~get_last_error.
ALIASES string_to_fields FOR if_http_utility~string_to_fields.
ALIASES unescape_url FOR if_http_utility~unescape_url.
ALIASES normalize_url FOR if_http_utility~normalize_url.
CLASS-METHODS decode_x_base64
IMPORTING
encoded TYPE string
RETURNING
VALUE(decoded) TYPE xstring.
CLASS-METHODS encode_x_base64
IMPORTING
unencoded TYPE xstring
RETURNING
VALUE(encoded) TYPE string.
CLASS-METHODS set_query
IMPORTING
request TYPE REF TO if_http_request
query TYPE string.
CLASS-METHODS set_request_uri
IMPORTING
request TYPE REF TO if_http_request
uri TYPE string.
CLASS-METHODS escape_xml_attr_value
IMPORTING
unescaped TYPE csequence
RETURNING
VALUE(escaped) TYPE string.
CLASS-METHODS escape_html
IMPORTING
unescaped TYPE string
keep_num_char_ref TYPE abap_bool DEFAULT abap_undefined
RETURNING
VALUE(escaped) TYPE string.
CLASS-METHODS escape_javascript
IMPORTING
unescaped TYPE string
inside_html TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(escaped) TYPE string.
ENDCLASS.
CLASS cl_http_utility IMPLEMENTATION.
METHOD set_request_uri.
request->set_header_field(
name = ''~request_uri''
value = uri ).
ENDMETHOD.
METHOD escape_html.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD escape_javascript.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD escape_xml_attr_value.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_utility~get_last_error.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_utility~string_to_fields.
DATA tab TYPE STANDARD TABLE OF string WITH DEFAULT KEY.
DATA str LIKE LINE OF tab.
DATA ls_field LIKE LINE OF fields.
ASSERT ignore_parenthesis = 0.
SPLIT string AT ''&'' INTO TABLE tab.
LOOP AT tab INTO str.
SPLIT str AT ''='' INTO ls_field-name ls_field-value.
APPEND ls_field TO fields.
ENDLOOP.
ENDMETHOD.
METHOD set_query.
request->set_form_fields( string_to_fields( query ) ).
ENDMETHOD.
METHOD if_http_utility~normalize_url.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_http_utility~fields_to_string.
DATA tab TYPE STANDARD TABLE OF string WITH DEFAULT KEY.
DATA str TYPE string.
DATA ls_field LIKE LINE OF fields.
LOOP AT fields INTO ls_field.
ls_field-value = if_http_utility~escape_url( ls_field-value ).
str = ls_field-name && ''='' && ls_field-value.
APPEND str TO tab.
ENDLOOP.
string = concat_lines_of( table = tab sep = ''&'' ).
ENDMETHOD.
METHOD encode_x_base64.
WRITE ''@KERNEL let buffer = Buffer.from(unencoded.get(), "hex");''.
WRITE ''@KERNEL encoded.set(buffer.toString("base64"));''.
ENDMETHOD.
METHOD decode_x_base64.
WRITE ''@KERNEL let buffer = Buffer.from(encoded.get(), "base64");''.
WRITE ''@KERNEL decoded.set(buffer.toString("hex").toUpperCase());''.
ENDMETHOD.
METHOD if_http_utility~unescape_url.
WRITE ''@KERNEL let foo = escaped.get();''.
WRITE ''@KERNEL unescaped.set(decodeURIComponent(foo));''.
ENDMETHOD.
METHOD if_http_utility~escape_url.
DATA lv_index TYPE i.
DATA lv_char TYPE string.
DO strlen( unescaped ) TIMES.
lv_index = sy-index - 1.
lv_char = unescaped+lv_index(1).
IF to_upper( lv_char ) CA sy-abcde OR lv_char CA ''0123456789.-()''.
escaped = escaped && lv_char.
ELSE.
escaped = escaped && ''%'' && to_lower( cl_abap_codepage=>convert_to( lv_char ) ).
ENDIF.
ENDDO.
ENDMETHOD.
METHOD if_http_utility~encode_base64.
WRITE ''@KERNEL let buffer = Buffer.from(unencoded.get());''.
WRITE ''@KERNEL encoded.set(buffer.toString("base64"));''.
ENDMETHOD.
METHOD if_http_utility~decode_base64.
WRITE ''@KERNEL let buffer = Buffer.from(encoded.get(), "base64");''.
WRITE ''@KERNEL decoded.set(buffer.toString());''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_WEB_HTTP_UTILITY ', 'CLASS cl_web_http_utility DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS unescape_url
IMPORTING
escaped TYPE string
options TYPE i OPTIONAL
RETURNING
VALUE(unescaped) TYPE string.
CLASS-METHODS decode_x_base64
IMPORTING
encoded TYPE string
RETURNING
VALUE(decoded) TYPE xstring.
CLASS-METHODS encode_x_base64
IMPORTING
unencoded TYPE xstring
RETURNING
VALUE(encoded) TYPE string.
CLASS-METHODS decode_base64
IMPORTING
encoded TYPE string
RETURNING
VALUE(decoded) TYPE string.
CLASS-METHODS encode_base64
IMPORTING
unencoded TYPE string
RETURNING
VALUE(encoded) TYPE string.
ENDCLASS.
CLASS cl_web_http_utility IMPLEMENTATION.
METHOD decode_base64.
decoded = cl_abap_codepage=>convert_from( cl_http_utility=>decode_x_base64( encoded ) ).
ENDMETHOD.
METHOD encode_base64.
encoded = cl_http_utility=>encode_x_base64( cl_abap_codepage=>convert_to( unencoded ) ).
ENDMETHOD.
METHOD unescape_url.
unescaped = cl_http_utility=>unescape_url(
escaped = escaped
options = options ).
ENDMETHOD.
METHOD decode_x_base64.
decoded = cl_http_utility=>decode_x_base64( encoded ).
ENDMETHOD.
METHOD encode_x_base64.
encoded = cl_http_utility=>encode_x_base64( unencoded ).
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_HTTP_CLIENT ', 'INTERFACE if_http_client PUBLIC.
DATA request TYPE REF TO if_http_request.
DATA response TYPE REF TO if_http_response.
DATA propertytype_logon_popup TYPE i.
DATA propertytype_accept_cookie TYPE i.
DATA propertytype_redirect TYPE i.
CONSTANTS co_disabled TYPE i VALUE 0.
CONSTANTS co_enabled TYPE i VALUE 1.
CONSTANTS co_timeout_default TYPE i VALUE 60.
METHODS authenticate
IMPORTING
proxy_authentication TYPE abap_bool OPTIONAL
username TYPE string
password TYPE string.
METHODS close.
METHODS send
IMPORTING
timeout TYPE i DEFAULT 0
EXCEPTIONS
http_communication_failure
http_invalid_state
http_processing_failed
http_invalid_timeout.
METHODS receive
EXCEPTIONS
http_communication_failure
http_invalid_state
http_processing_failed.
METHODS send_sap_logon_ticket.
METHODS get_last_error
EXPORTING
code TYPE i
message TYPE string.
METHODS refresh_request.
METHODS create_abs_url
IMPORTING
path TYPE string OPTIONAL
RETURNING
VALUE(url) TYPE string.
CLASS-METHODS escape_url
IMPORTING
unescaped TYPE string
RETURNING
VALUE(escaped) TYPE string.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_HTTP_ENTITY ', 'INTERFACE if_http_entity PUBLIC.
CONSTANTS co_request_method_get TYPE string VALUE ''GET''.
CONSTANTS co_request_method_post TYPE string VALUE ''POST''.
CONSTANTS co_body_before_query_string TYPE i VALUE 3.
CONSTANTS co_protocol_version_1_0 TYPE i VALUE 1000.
CONSTANTS co_protocol_version_1_1 TYPE i VALUE 1001.
CONSTANTS co_compress_based_on_mime_type TYPE i VALUE 2.
METHODS set_cdata
IMPORTING
data TYPE string
offset TYPE i OPTIONAL
length TYPE i OPTIONAL.
METHODS set_data
IMPORTING
data TYPE xstring.
METHODS get_header_field
IMPORTING
name TYPE string
RETURNING
VALUE(value) TYPE string.
METHODS set_header_field
IMPORTING
name TYPE string
value TYPE string.
METHODS get_form_fields
CHANGING
fields TYPE tihttpnvp.
METHODS set_compression
IMPORTING
disable_extended_checks TYPE abap_bool DEFAULT abap_false
options TYPE i DEFAULT co_compress_based_on_mime_type
PREFERRED PARAMETER options.
METHODS add_multipart
IMPORTING
suppress_content_length TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(entity) TYPE REF TO if_http_entity.
METHODS append_cdata IMPORTING data TYPE clike.
METHODS get_form_field IMPORTING name TYPE string RETURNING VALUE(value) TYPE string.
METHODS get_cdata RETURNING VALUE(data) TYPE string.
METHODS get_content_type
RETURNING
VALUE(content_type) TYPE string.
METHODS get_serialized_message_length
EXPORTING
VALUE(body_length) TYPE i
VALUE(header_length) TYPE i.
METHODS set_content_type
IMPORTING
content_type TYPE string.
METHODS get_data
RETURNING
VALUE(data) TYPE xstring.
METHODS get_header_fields
CHANGING
fields TYPE tihttpnvp.
METHODS to_xstring
RETURNING
VALUE(data) TYPE xstring.
METHODS get_cookies
CHANGING
cookies TYPE any.
METHODS add_cookie_field
IMPORTING
cookie_name TYPE string
cookie_path TYPE string OPTIONAL
field_name TYPE string
field_value TYPE string
base64 TYPE i DEFAULT 1.
METHODS append_cdata2
IMPORTING
data TYPE string
encoding TYPE i OPTIONAL
offset TYPE i OPTIONAL
length TYPE i OPTIONAL.
METHODS append_data
IMPORTING
data TYPE xstring
offset TYPE i OPTIONAL
length TYPE i OPTIONAL.
METHODS delete_cookie_secure
IMPORTING
name TYPE string
path TYPE string DEFAULT \`\`.
METHODS delete_form_field
IMPORTING
name TYPE string.
METHODS delete_form_field_secure
IMPORTING
name TYPE string.
METHODS from_xstring
IMPORTING
data TYPE xstring.
METHODS get_cookie
IMPORTING
name TYPE string
path TYPE string DEFAULT \`\`
EXPORTING
value TYPE string
domain TYPE string
expires TYPE string
secure TYPE i.
METHODS get_cookie_field
IMPORTING
cookie_name TYPE string
cookie_path TYPE string OPTIONAL
field_name TYPE string
base64 TYPE i DEFAULT 1
RETURNING
VALUE(field_value) TYPE string.
METHODS get_data_length
EXPORTING
VALUE(data_length) TYPE i.
METHODS get_form_fields_cs
IMPORTING
formfield_encoding TYPE i OPTIONAL
search_option TYPE i DEFAULT co_body_before_query_string
CHANGING
fields TYPE tihttpnvp.
METHODS get_form_field_cs
IMPORTING
name TYPE string
formfield_encoding TYPE i OPTIONAL
search_option TYPE i DEFAULT co_body_before_query_string
RETURNING
VALUE(value) TYPE string.
METHODS get_last_error
RETURNING
VALUE(rc) TYPE i.
METHODS get_multipart
IMPORTING
index TYPE i
RETURNING
VALUE(entity) TYPE REF TO if_http_entity.
METHODS get_version
RETURNING
VALUE(version) TYPE i.
METHODS num_multiparts
RETURNING
VALUE(num) TYPE i.
METHODS set_cookie
IMPORTING
name TYPE string
path TYPE string OPTIONAL
value TYPE string
domain TYPE string OPTIONAL
expires TYPE string OPTIONAL
secure TYPE i OPTIONAL.
METHODS set_formfield_encoding
IMPORTING
formfield_encoding TYPE i.
METHODS set_form_field
IMPORTING
name TYPE string
value TYPE string.
METHODS set_form_fields
IMPORTING
fields TYPE tihttpnvp
multivalue TYPE int4 OPTIONAL.
METHODS set_header_fields
IMPORTING
fields TYPE tihttpnvp.
METHODS suppress_content_type
IMPORTING
suppress TYPE abap_bool DEFAULT abap_true.
METHODS delete_cookie
IMPORTING
name TYPE string
path TYPE string OPTIONAL.
METHODS delete_header_field
IMPORTING
name TYPE string.
METHODS delete_header_field_secure
IMPORTING
name TYPE string.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_HTTP_EXTENSION ', 'INTERFACE if_http_extension PUBLIC.
DATA flow_rc TYPE i.
CONSTANTS co_flow_ok TYPE i VALUE 0.
CONSTANTS co_flow_ok_others_mand TYPE i VALUE 2.
METHODS handle_request IMPORTING server TYPE REF TO if_http_server.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_HTTP_REQUEST ', 'INTERFACE if_http_request PUBLIC.
INTERFACES if_http_entity.
ALIASES add_cookie_field FOR if_http_entity~add_cookie_field.
ALIASES add_multipart FOR if_http_entity~add_multipart.
ALIASES append_cdata FOR if_http_entity~append_cdata.
ALIASES append_cdata2 FOR if_http_entity~append_cdata2.
ALIASES append_data FOR if_http_entity~append_data.
ALIASES co_compress_based_on_mime_type FOR if_http_entity~co_compress_based_on_mime_type.
ALIASES co_protocol_version_1_0 FOR if_http_entity~co_protocol_version_1_0.
ALIASES co_protocol_version_1_1 FOR if_http_entity~co_protocol_version_1_1.
ALIASES co_request_method_get FOR if_http_entity~co_request_method_get.
ALIASES co_request_method_post FOR if_http_entity~co_request_method_post.
ALIASES delete_cookie FOR if_http_entity~delete_cookie.
ALIASES delete_cookie_secure FOR if_http_entity~delete_cookie_secure.
ALIASES delete_form_field FOR if_http_entity~delete_form_field.
ALIASES delete_form_field_secure FOR if_http_entity~delete_form_field_secure.
ALIASES delete_header_field FOR if_http_entity~delete_header_field.
ALIASES delete_header_field_secure FOR if_http_entity~delete_header_field_secure.
ALIASES from_xstring FOR if_http_entity~from_xstring.
ALIASES get_cdata FOR if_http_entity~get_cdata.
ALIASES get_content_type FOR if_http_entity~get_content_type.
ALIASES get_cookie FOR if_http_entity~get_cookie.
ALIASES get_cookie_field FOR if_http_entity~get_cookie_field.
ALIASES get_cookies FOR if_http_entity~get_cookies.
ALIASES get_data FOR if_http_entity~get_data.
ALIASES get_form_field FOR if_http_entity~get_form_field.
ALIASES get_form_field_cs FOR if_http_entity~get_form_field_cs.
ALIASES get_form_fields FOR if_http_entity~get_form_fields.
ALIASES get_form_fields_cs FOR if_http_entity~get_form_fields_cs.
ALIASES get_header_field FOR if_http_entity~get_header_field.
ALIASES get_header_fields FOR if_http_entity~get_header_fields.
ALIASES get_last_error FOR if_http_entity~get_last_error.
ALIASES get_multipart FOR if_http_entity~get_multipart.
ALIASES get_serialized_message_length FOR if_http_entity~get_serialized_message_length.
ALIASES get_version FOR if_http_entity~get_version.
ALIASES num_multiparts FOR if_http_entity~num_multiparts.
ALIASES set_cdata FOR if_http_entity~set_cdata.
ALIASES set_compression FOR if_http_entity~set_compression.
ALIASES set_content_type FOR if_http_entity~set_content_type.
ALIASES set_cookie FOR if_http_entity~set_cookie.
ALIASES set_data FOR if_http_entity~set_data.
ALIASES set_formfield_encoding FOR if_http_entity~set_formfield_encoding.
ALIASES set_form_field FOR if_http_entity~set_form_field.
ALIASES set_form_fields FOR if_http_entity~set_form_fields.
ALIASES set_header_field FOR if_http_entity~set_header_field.
ALIASES set_header_fields FOR if_http_entity~set_header_fields.
ALIASES suppress_content_type FOR if_http_entity~suppress_content_type.
ALIASES to_xstring FOR if_http_entity~to_xstring.
METHODS set_method
IMPORTING
method TYPE string.
METHODS get_method
RETURNING
VALUE(meth) TYPE string.
METHODS set_version
IMPORTING
version TYPE i.
METHODS set_authorization
IMPORTING
auth_type TYPE i DEFAULT 1
username TYPE string
password TYPE string.
METHODS copy
RETURNING
VALUE(request) TYPE REF TO if_http_request.
METHODS get_authorization
EXPORTING
auth_type TYPE i
username TYPE string
password TYPE string.
METHODS get_form_data
IMPORTING
name TYPE string
CHANGING
data TYPE data.
METHODS get_raw_message
RETURNING
VALUE(data) TYPE xstring.
METHODS get_uri_parameter
IMPORTING
name TYPE string
RETURNING
VALUE(value) TYPE string.
METHODS get_user_agent
EXPORTING
user_agent_type TYPE i
user_agent_version TYPE i.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_HTTP_RESPONSE ', 'INTERFACE if_http_response PUBLIC.
INTERFACES if_http_entity.
ALIASES add_cookie_field FOR if_http_entity~add_cookie_field.
ALIASES add_multipart FOR if_http_entity~add_multipart.
ALIASES append_cdata FOR if_http_entity~append_cdata.
ALIASES append_cdata2 FOR if_http_entity~append_cdata2.
ALIASES append_data FOR if_http_entity~append_data.
ALIASES co_compress_based_on_mime_type FOR if_http_entity~co_compress_based_on_mime_type.
ALIASES co_protocol_version_1_0 FOR if_http_entity~co_protocol_version_1_0.
ALIASES co_protocol_version_1_1 FOR if_http_entity~co_protocol_version_1_1.
ALIASES co_request_method_get FOR if_http_entity~co_request_method_get.
ALIASES co_request_method_post FOR if_http_entity~co_request_method_post.
ALIASES delete_cookie FOR if_http_entity~delete_cookie.
ALIASES delete_cookie_secure FOR if_http_entity~delete_cookie_secure.
ALIASES delete_form_field FOR if_http_entity~delete_form_field.
ALIASES delete_form_field_secure FOR if_http_entity~delete_form_field_secure.
ALIASES delete_header_field FOR if_http_entity~delete_header_field.
ALIASES delete_header_field_secure FOR if_http_entity~delete_header_field_secure.
ALIASES from_xstring FOR if_http_entity~from_xstring.
ALIASES get_cdata FOR if_http_entity~get_cdata.
ALIASES get_content_type FOR if_http_entity~get_content_type.
ALIASES get_cookie FOR if_http_entity~get_cookie.
ALIASES get_cookie_field FOR if_http_entity~get_cookie_field.
ALIASES get_cookies FOR if_http_entity~get_cookies.
ALIASES get_data FOR if_http_entity~get_data.
ALIASES get_form_field FOR if_http_entity~get_form_field.
ALIASES get_form_field_cs FOR if_http_entity~get_form_field_cs.
ALIASES get_form_fields FOR if_http_entity~get_form_fields.
ALIASES get_form_fields_cs FOR if_http_entity~get_form_fields_cs.
ALIASES get_header_field FOR if_http_entity~get_header_field.
ALIASES get_header_fields FOR if_http_entity~get_header_fields.
ALIASES get_last_error FOR if_http_entity~get_last_error.
ALIASES get_multipart FOR if_http_entity~get_multipart.
ALIASES get_serialized_message_length FOR if_http_entity~get_serialized_message_length.
ALIASES get_version FOR if_http_entity~get_version.
ALIASES num_multiparts FOR if_http_entity~num_multiparts.
ALIASES set_cdata FOR if_http_entity~set_cdata.
ALIASES set_compression FOR if_http_entity~set_compression.
ALIASES set_content_type FOR if_http_entity~set_content_type.
ALIASES set_cookie FOR if_http_entity~set_cookie.
ALIASES set_data FOR if_http_entity~set_data.
ALIASES set_formfield_encoding FOR if_http_entity~set_formfield_encoding.
ALIASES set_form_field FOR if_http_entity~set_form_field.
ALIASES set_form_fields FOR if_http_entity~set_form_fields.
ALIASES set_header_field FOR if_http_entity~set_header_field.
ALIASES set_header_fields FOR if_http_entity~set_header_fields.
ALIASES suppress_content_type FOR if_http_entity~suppress_content_type.
ALIASES to_xstring FOR if_http_entity~to_xstring.
METHODS get_status
EXPORTING
code TYPE i
reason TYPE string.
METHODS set_status
IMPORTING
code TYPE i
reason TYPE string.
METHODS delete_cookie_at_client
IMPORTING
name TYPE string
path TYPE string OPTIONAL
domain TYPE string OPTIONAL.
METHODS redirect
IMPORTING
url TYPE string
permanently TYPE i OPTIONAL
explanation TYPE string OPTIONAL
protocol_dependent TYPE i OPTIONAL.
METHODS copy
RETURNING
VALUE(response) TYPE REF TO if_http_response.
METHODS get_raw_message
RETURNING
VALUE(data) TYPE xstring.
METHODS server_cache_browser_dependent
IMPORTING
dependent TYPE boolean DEFAULT abap_true.
METHODS server_cache_expire_abs
IMPORTING
expires_abs_date TYPE d OPTIONAL
expires_abs_time TYPE t OPTIONAL
etag TYPE char32 OPTIONAL
browser_dependent TYPE boolean DEFAULT abap_false
no_ufo_cache TYPE boolean DEFAULT abap_false.
METHODS server_cache_expire_default
IMPORTING
etag TYPE char32 OPTIONAL
browser_dependent TYPE boolean DEFAULT abap_false
no_ufo_cache TYPE boolean DEFAULT abap_false.
METHODS server_cache_expire_rel
IMPORTING
expires_rel TYPE i
etag TYPE char32 OPTIONAL
browser_dependent TYPE boolean DEFAULT abap_false
no_ufo_cache TYPE boolean DEFAULT abap_false.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_HTTP_SERVER ', 'INTERFACE if_http_server PUBLIC.
DATA response TYPE REF TO if_http_response.
DATA request TYPE REF TO if_http_request.
CONSTANTS authmethod_service TYPE i VALUE 4.
CONSTANTS co_compress_based_on_mime_type TYPE i VALUE 2.
CONSTANTS co_disabled TYPE i VALUE 0.
CONSTANTS co_enabled TYPE i VALUE 1.
CONSTANTS co_page_error_type TYPE c LENGTH 1 VALUE ''1''.
CONSTANTS co_response_page_option TYPE c LENGTH 1 VALUE '' ''.
CLASS-DATA session_id TYPE string READ-ONLY.
CLASS-DATA authentication_method TYPE i READ-ONLY.
CLASS-DATA authenticated TYPE i READ-ONLY.
METHODS logoff
IMPORTING
delete_mysapsso2_cookie TYPE abap_bool OPTIONAL
propagate_logoff TYPE abap_bool OPTIONAL
redirect_url TYPE string OPTIONAL.
METHODS set_session_stateful
IMPORTING
stateful TYPE i DEFAULT co_enabled
path TYPE string OPTIONAL.
CLASS-METHODS append_field_url
IMPORTING
name TYPE string
value TYPE string
CHANGING
url TYPE string.
METHODS create_abs_url
IMPORTING
protocol TYPE string OPTIONAL
post TYPE string OPTIONAL
port TYPE string OPTIONAL
path TYPE string OPTIONAL
querystring TYPE string OPTIONAL
RETURNING
VALUE(url) TYPE string.
METHODS create_rel_url
IMPORTING
path TYPE string OPTIONAL
querystring TYPE string OPTIONAL
RETURNING
VALUE(url) TYPE string.
CLASS-METHODS decode_base64
IMPORTING
encoded TYPE string
RETURNING
VALUE(decoded) TYPE string.
METHODS enable_foreign_session_access
IMPORTING
url_path TYPE string
user_id TYPE syuname OPTIONAL
one_time_access_token TYPE abap_bool DEFAULT abap_true
EXPORTING
session_access_token TYPE string
EXCEPTIONS
url_path_is_not_supported
user_unknown
session_is_not_stateful
internal_error.
CLASS-METHODS encode_base64
IMPORTING
unencoded TYPE string
RETURNING
VALUE(encoded) TYPE string.
CLASS-METHODS escape_html
IMPORTING
unescaped TYPE string
RETURNING
VALUE(escaped) TYPE string.
CLASS-METHODS escape_url
IMPORTING
unescaped TYPE string
RETURNING
VALUE(escaped) TYPE string.
CLASS-METHODS get_extension_info
IMPORTING
extension_class TYPE string OPTIONAL
EXPORTING
urls TYPE string_table.
CLASS-METHODS get_extension_url
IMPORTING
extension_class TYPE string
EXPORTING
urls TYPE string_table.
METHODS get_last_error
RETURNING
VALUE(rc) TYPE i.
CLASS-METHODS get_location
IMPORTING
protocol TYPE csequence OPTIONAL
application TYPE csequence OPTIONAL
for_domain TYPE csequence OPTIONAL
server TYPE REF TO if_http_server OPTIONAL
use_ticket_protocol TYPE abap_bool DEFAULT abap_true
EXPORTING
host TYPE string
port TYPE string
out_protocol TYPE string
vh_switch TYPE abap_bool
RETURNING
VALUE(url_part) TYPE string.
CLASS-METHODS get_location_exception
IMPORTING
protocol TYPE csequence OPTIONAL
application TYPE csequence OPTIONAL
for_domain TYPE csequence OPTIONAL
server TYPE REF TO if_http_server OPTIONAL
use_ticket_protocol TYPE abap_bool DEFAULT abap_true
EXPORTING
host TYPE string
port TYPE string
out_protocol TYPE string
vh_switch TYPE abap_bool
RETURNING
VALUE(url_part) TYPE string.
METHODS get_xsrf_token
EXPORTING
token TYPE string
EXCEPTIONS
internal_error
called_by_public_service.
METHODS send_page.
METHODS set_compression
IMPORTING
options TYPE i DEFAULT co_compress_based_on_mime_type
EXCEPTIONS
compression_not_possible.
METHODS set_page
IMPORTING
response_page_type TYPE char1 DEFAULT co_page_error_type
response_option TYPE char1 DEFAULT co_response_page_option
response_option_page TYPE any OPTIONAL
response_option_redirect_url TYPE any OPTIONAL
EXCEPTIONS
invalid_parameter
document_not_found.
METHODS set_session_stateful_via_url
IMPORTING
stateful TYPE i DEFAULT co_enabled
CHANGING
rewrite_url TYPE string OPTIONAL.
CLASS-METHODS unescape_url
IMPORTING
escaped TYPE string
RETURNING
VALUE(unescaped) TYPE string.
METHODS validate_xsrf_token
IMPORTING
token TYPE string OPTIONAL
EXPORTING
successful TYPE abap_bool
EXCEPTIONS
token_not_found
cookie_not_found
internal_error
called_by_public_service.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_HTTP_UTILITY ', 'INTERFACE if_http_utility PUBLIC.
CLASS-METHODS string_to_fields
IMPORTING
string TYPE string
ignore_parenthesis TYPE i DEFAULT 0
RETURNING
VALUE(fields) TYPE tihttpnvp.
CLASS-METHODS get_last_error
RETURNING
VALUE(rc) TYPE i.
CLASS-METHODS unescape_url
IMPORTING
escaped TYPE string
options TYPE i OPTIONAL
RETURNING
VALUE(unescaped) TYPE string.
CLASS-METHODS escape_url
IMPORTING
unescaped TYPE string
RETURNING
VALUE(escaped) TYPE string.
CLASS-METHODS encode_base64
IMPORTING
unencoded TYPE string
RETURNING
VALUE(encoded) TYPE string.
CLASS-METHODS fields_to_string
IMPORTING
fields TYPE tihttpnvp
RETURNING
VALUE(string) TYPE string.
CLASS-METHODS decode_base64
IMPORTING
encoded TYPE string
RETURNING
VALUE(decoded) TYPE string.
CLASS-METHODS normalize_url
IMPORTING
unnormalized TYPE string
RETURNING
VALUE(normalized) TYPE string.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_AMDP_MARKER_HDB ', 'INTERFACE if_amdp_marker_hdb PUBLIC.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_SERIALIZABLE_OBJECT ', 'INTERFACE if_serializable_object PUBLIC.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_IXML ', 'CLASS cl_ixml DEFINITION PUBLIC CREATE PRIVATE.
PUBLIC SECTION.
INTERFACES if_ixml.
CLASS-METHODS
create
RETURNING
VALUE(xml) TYPE REF TO if_ixml.
ENDCLASS.
CLASS cl_ixml IMPLEMENTATION.
METHOD create.
CREATE OBJECT xml TYPE cl_ixml.
ENDMETHOD.
METHOD if_ixml~create_encoding.
CREATE OBJECT rval TYPE lcl_encoding.
ENDMETHOD.
METHOD if_ixml~create_document.
CREATE OBJECT doc TYPE lcl_document.
ENDMETHOD.
METHOD if_ixml~create_stream_factory.
CREATE OBJECT stream TYPE lcl_stream_factory.
ENDMETHOD.
METHOD if_ixml~create_renderer.
CREATE OBJECT renderer TYPE lcl_renderer
EXPORTING
ostream = ostream
document = document.
ENDMETHOD.
METHOD if_ixml~create_parser.
CREATE OBJECT parser TYPE lcl_parser
EXPORTING
istream = istream
document = document.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_IXML ', 'INTERFACE if_ixml PUBLIC.
METHODS create_document
RETURNING
VALUE(doc) TYPE REF TO if_ixml_document.
METHODS create_stream_factory
RETURNING
VALUE(stream) TYPE REF TO if_ixml_stream_factory.
METHODS create_renderer
IMPORTING
ostream TYPE REF TO if_ixml_ostream
document TYPE REF TO if_ixml_document
RETURNING
VALUE(renderer) TYPE REF TO if_ixml_renderer.
METHODS create_parser
IMPORTING
stream_factory TYPE REF TO if_ixml_stream_factory
istream TYPE REF TO if_ixml_istream
document TYPE REF TO if_ixml_document
RETURNING
VALUE(parser) TYPE REF TO if_ixml_parser.
METHODS create_encoding
IMPORTING
byte_order TYPE i
character_set TYPE string
RETURNING
VALUE(rval) TYPE REF TO if_ixml_encoding.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_IXML_ATTRIBUTE ', 'INTERFACE if_ixml_attribute PUBLIC.
INTERFACES if_ixml_node.
METHODS get_value RETURNING VALUE(val) TYPE string.
METHODS set_value IMPORTING value TYPE string.
METHODS get_name RETURNING VALUE(val) TYPE string.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_IXML_DOCUMENT ', 'INTERFACE if_ixml_document PUBLIC.
INTERFACES if_ixml_node.
ALIASES create_filter_name_ns FOR if_ixml_node~create_filter_name_ns.
METHODS:
set_encoding
IMPORTING
encoding TYPE REF TO object,
set_standalone
IMPORTING
standalone TYPE abap_bool,
get_standalone
RETURNING
VALUE(rval) TYPE abap_bool,
set_namespace_prefix
IMPORTING
prefix TYPE string,
append_child
IMPORTING
new_child TYPE REF TO if_ixml_node,
get_first_child
RETURNING
VALUE(child) TYPE REF TO if_ixml_node,
create_attribute_ns
IMPORTING
name TYPE string
prefix TYPE string OPTIONAL
RETURNING
VALUE(element) TYPE REF TO if_ixml_attribute,
create_element_ns
IMPORTING
name TYPE string
prefix TYPE string OPTIONAL
uri TYPE string OPTIONAL
RETURNING
VALUE(element) TYPE REF TO if_ixml_element,
create_element
IMPORTING
name TYPE string
RETURNING
VALUE(element) TYPE REF TO if_ixml_element,
create_iterator_filtered
IMPORTING filter TYPE any
RETURNING VALUE(val) TYPE REF TO if_ixml_node_iterator,
create_filter_and
IMPORTING
filter1 TYPE any
filter2 TYPE any
RETURNING
VALUE(val) TYPE REF TO if_ixml_node_filter,
create_iterator
RETURNING VALUE(rval) TYPE REF TO if_ixml_node_iterator,
create_filter_node_type
IMPORTING node_types TYPE i
RETURNING VALUE(val) TYPE REF TO if_ixml_node_filter,
create_simple_element_ns
IMPORTING
name TYPE string
parent TYPE REF TO if_ixml_node
prefix TYPE string OPTIONAL
RETURNING
VALUE(val) TYPE REF TO if_ixml_element,
create_filter_attribute
IMPORTING
name TYPE string
RETURNING
VALUE(val) TYPE REF TO if_ixml_node_filter,
create_simple_element
IMPORTING
name TYPE string
parent TYPE REF TO if_ixml_node
value TYPE string OPTIONAL
RETURNING
VALUE(val) TYPE REF TO if_ixml_element,
find_from_name
IMPORTING
name TYPE string
depth TYPE i OPTIONAL
namespace TYPE string OPTIONAL
RETURNING
VALUE(element) TYPE REF TO if_ixml_element,
find_from_name_ns
IMPORTING
depth TYPE i OPTIONAL
uri TYPE string OPTIONAL
name TYPE string
RETURNING
VALUE(element) TYPE REF TO if_ixml_element,
find_from_path
IMPORTING
path TYPE string
RETURNING
VALUE(val) TYPE REF TO if_ixml_element,
get_elements_by_tag_name_ns
IMPORTING
name TYPE string
namespace TYPE string OPTIONAL
uri TYPE string OPTIONAL
RETURNING VALUE(val) TYPE REF TO if_ixml_node_collection,
get_elements_by_tag_name
IMPORTING
depth TYPE i OPTIONAL
name TYPE string
namespace TYPE string OPTIONAL
RETURNING VALUE(val) TYPE REF TO if_ixml_node_collection,
get_root RETURNING VALUE(node) TYPE REF TO if_ixml_node,
get_root_element RETURNING VALUE(root) TYPE REF TO if_ixml_element.
METHODS set_declaration
IMPORTING
declaration TYPE abap_bool.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_IXML_ELEMENT ', 'INTERFACE if_ixml_element PUBLIC.
INTERFACES if_ixml_node.
METHODS:
remove_attribute_ns
IMPORTING foo TYPE string,
get_attributes
RETURNING VALUE(attr) TYPE REF TO if_ixml_named_node_map,
get_next
RETURNING VALUE(next) TYPE REF TO if_ixml_element,
get_name
RETURNING VALUE(name) TYPE string,
append_child
IMPORTING
new_child TYPE REF TO if_ixml_node
RETURNING
VALUE(rc) TYPE i,
clone
RETURNING VALUE(val) TYPE REF TO if_ixml_node,
create_filter_node_type
IMPORTING node_types TYPE i
RETURNING VALUE(val) TYPE REF TO if_ixml_node_filter,
create_iterator
RETURNING VALUE(val) TYPE REF TO if_ixml_node_iterator,
find_from_name_ns
IMPORTING
name TYPE string
namespace TYPE string OPTIONAL
uri TYPE string OPTIONAL
depth TYPE i OPTIONAL
RETURNING VALUE(val) TYPE REF TO if_ixml_element,
find_from_name
IMPORTING
name TYPE string
namespace TYPE string OPTIONAL
depth TYPE i OPTIONAL
RETURNING VALUE(val) TYPE REF TO if_ixml_element,
get_attribute_node
IMPORTING name TYPE string
RETURNING VALUE(val) TYPE REF TO if_ixml_attribute,
get_attribute_ns
IMPORTING
name TYPE string
uri TYPE string OPTIONAL
RETURNING
VALUE(val) TYPE string,
get_attribute
IMPORTING
name TYPE string
namespace TYPE string OPTIONAL
RETURNING VALUE(val) TYPE string,
get_children
RETURNING VALUE(val) TYPE REF TO if_ixml_node_list,
get_elements_by_tag_name
IMPORTING
name TYPE string
RETURNING
VALUE(val) TYPE REF TO if_ixml_node_collection,
get_elements_by_tag_name_ns
IMPORTING
name TYPE string
uri TYPE string OPTIONAL
RETURNING
VALUE(val) TYPE REF TO if_ixml_node_collection,
get_attribute_node_ns
IMPORTING
name TYPE string
uri TYPE string OPTIONAL
RETURNING
VALUE(val) TYPE REF TO if_ixml_attribute,
get_first_child
RETURNING VALUE(val) TYPE REF TO if_ixml_node,
get_value
RETURNING VALUE(val) TYPE string,
remove_attribute
IMPORTING name TYPE string,
remove_node,
render
IMPORTING
ostream TYPE REF TO if_ixml_ostream,
set_attribute_node_ns
IMPORTING
attr TYPE any,
set_attribute
IMPORTING
name TYPE string
namespace TYPE string OPTIONAL
value TYPE string OPTIONAL
RETURNING
VALUE(rval) TYPE i,
set_attribute_ns
IMPORTING
name TYPE string
prefix TYPE string OPTIONAL
value TYPE string OPTIONAL,
set_value
IMPORTING
value TYPE string
RETURNING
VALUE(rc) TYPE i.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_IXML_ENCODING ', 'INTERFACE if_ixml_encoding PUBLIC.
CONSTANTS co_none TYPE i VALUE 0.
CONSTANTS co_big_endian TYPE i VALUE 1.
CONSTANTS co_platform_endian TYPE i VALUE 4.
METHODS get_byte_order
RETURNING
VALUE(rval) TYPE i.
METHODS get_character_set
RETURNING
VALUE(rval) TYPE string.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_IXML_ISTREAM ', 'INTERFACE if_ixml_istream PUBLIC.
CONSTANTS dtd_allowed TYPE i VALUE 0.
CONSTANTS dtd_restricted TYPE i VALUE 1.
CONSTANTS dtd_prohibited TYPE i VALUE 2.
METHODS close.
METHODS get_dtd_restriction
RETURNING
VALUE(rval) TYPE i.
METHODS set_dtd_restriction
IMPORTING
level TYPE i DEFAULT dtd_restricted.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_IXML_NAMED_NODE_MAP ', 'INTERFACE if_ixml_named_node_map PUBLIC.
METHODS:
create_iterator
RETURNING VALUE(iterator) TYPE REF TO if_ixml_node_iterator,
get_length
RETURNING VALUE(val) TYPE i,
get_named_item_ns
IMPORTING name TYPE string
RETURNING VALUE(val) TYPE REF TO if_ixml_node,
get_named_item
IMPORTING name TYPE string
RETURNING VALUE(val) TYPE REF TO if_ixml_node,
set_named_item_ns
IMPORTING node TYPE REF TO if_ixml_node,
remove_named_item
IMPORTING name TYPE string.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_IXML_NODE ', 'INTERFACE if_ixml_node PUBLIC.
CONSTANTS:
co_node_document TYPE i VALUE 1,
co_node_element TYPE i VALUE 4,
co_node_text TYPE i VALUE 16,
co_node_cdata_section TYPE i VALUE 32.
METHODS:
append_child IMPORTING new_child TYPE REF TO if_ixml_node,
get_attributes RETURNING VALUE(map) TYPE REF TO if_ixml_named_node_map,
get_first_child RETURNING VALUE(node) TYPE REF TO if_ixml_node,
get_children RETURNING VALUE(val) TYPE REF TO if_ixml_node_list,
query_interface
IMPORTING iid TYPE i
RETURNING VALUE(rval) TYPE REF TO if_ixml_unknown,
remove_node,
get_parent RETURNING VALUE(val) TYPE REF TO if_ixml_node,
replace_child IMPORTING
new_child TYPE string
old_child TYPE string,
get_name RETURNING VALUE(val) TYPE string,
get_depth RETURNING VALUE(val) TYPE i,
is_leaf RETURNING VALUE(val) TYPE abap_bool,
get_namespace RETURNING VALUE(val) TYPE string,
get_value RETURNING VALUE(val) TYPE string,
get_type RETURNING VALUE(val) TYPE string,
set_name IMPORTING name TYPE string,
set_namespace_prefix IMPORTING val TYPE string,
remove_child IMPORTING child TYPE REF TO if_ixml_node,
set_value IMPORTING value TYPE string.
METHODS get_gid
RETURNING
VALUE(rval) TYPE i.
METHODS insert_child
IMPORTING
new_child TYPE REF TO if_ixml_node
ref_child TYPE REF TO if_ixml_node
RETURNING
VALUE(rval) TYPE i.
METHODS get_next
RETURNING
VALUE(rval) TYPE REF TO if_ixml_node.
METHODS get_namespace_prefix
RETURNING
VALUE(rv_prefix) TYPE string.
METHODS get_namespace_uri
RETURNING
VALUE(rval) TYPE string.
METHODS get_height
RETURNING
VALUE(rval) TYPE i.
METHODS create_filter_name_ns
IMPORTING
name TYPE string
namespace TYPE string OPTIONAL
RETURNING
VALUE(rval) TYPE REF TO if_ixml_node_filter.
METHODS get_column
RETURNING
VALUE(rval) TYPE i.
METHODS create_iterator_filtered
IMPORTING
filter TYPE REF TO if_ixml_node_filter
RETURNING
VALUE(rval) TYPE REF TO if_ixml_node_iterator.
METHODS clone
RETURNING
VALUE(rval) TYPE REF TO if_ixml_node.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_IXML_NODE_COLLECTION ', 'INTERFACE if_ixml_node_collection PUBLIC.
METHODS create_iterator
RETURNING
VALUE(rval) TYPE REF TO if_ixml_node_iterator.
METHODS get_length
RETURNING
VALUE(rval) TYPE i.
METHODS get_item
IMPORTING
index TYPE i
RETURNING
VALUE(rval) TYPE REF TO if_ixml_node.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_IXML_NODE_FILTER ', 'INTERFACE if_ixml_node_filter PUBLIC.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_IXML_NODE_ITERATOR ', 'INTERFACE if_ixml_node_iterator PUBLIC.
METHODS reset.
METHODS get_next
RETURNING
VALUE(rval) TYPE REF TO if_ixml_node.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_IXML_NODE_LIST ', 'INTERFACE if_ixml_node_list PUBLIC.
METHODS:
get_length
RETURNING
VALUE(length) TYPE i,
create_iterator
RETURNING VALUE(rval) TYPE REF TO if_ixml_node_iterator,
get_item
IMPORTING
index TYPE i
RETURNING
VALUE(val) TYPE REF TO if_ixml_node,
create_rev_iterator_filtered
IMPORTING
filter TYPE any
RETURNING
VALUE(val) TYPE REF TO if_ixml_node_iterator.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_IXML_OSTREAM ', 'INTERFACE if_ixml_ostream PUBLIC.
METHODS write_string
IMPORTING
string TYPE string
RETURNING
VALUE(rval) TYPE i.
METHODS get_num_written_raw
RETURNING
VALUE(rval) TYPE i.
METHODS set_encoding
IMPORTING
encoding TYPE REF TO if_ixml_encoding
RETURNING
VALUE(rval) TYPE boolean.
METHODS set_pretty_print
IMPORTING
pretty_print TYPE abap_bool DEFAULT abap_true.
METHODS get_pretty_print
RETURNING
VALUE(rval) TYPE boolean.
METHODS get_indent
RETURNING
VALUE(rval) TYPE i.
METHODS set_indent
IMPORTING
indent TYPE i.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_IXML_PARSE_ERROR ', 'INTERFACE if_ixml_parse_error PUBLIC.
METHODS get_reason
RETURNING
VALUE(reason) TYPE string.
METHODS get_line
RETURNING
VALUE(line) TYPE i.
METHODS get_column
RETURNING
VALUE(column) TYPE i.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_IXML_PARSER ', 'INTERFACE if_ixml_parser PUBLIC.
CONSTANTS co_no_validation TYPE i VALUE 0.
CONSTANTS co_validate_if_dtd TYPE i VALUE 2.
METHODS parse
RETURNING
VALUE(subrc) TYPE i.
METHODS set_normalizing
IMPORTING
normal TYPE abap_bool.
METHODS num_errors
RETURNING
VALUE(errors) TYPE i.
METHODS add_strip_space_element.
METHODS get_error
IMPORTING
index TYPE i
RETURNING
VALUE(error) TYPE REF TO if_ixml_parse_error.
METHODS set_validating
IMPORTING
mode TYPE i OPTIONAL
RETURNING
VALUE(rval) TYPE abap_bool.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_IXML_RENDERER ', 'INTERFACE if_ixml_renderer PUBLIC.
METHODS render RETURNING VALUE(rval) TYPE i.
METHODS set_normalizing IMPORTING normal TYPE abap_bool.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_IXML_STREAM_FACTORY ', 'INTERFACE if_ixml_stream_factory PUBLIC.
METHODS create_ostream_cstring
IMPORTING
string TYPE string
RETURNING
VALUE(stream) TYPE REF TO if_ixml_ostream.
METHODS create_ostream_xstring
IMPORTING
string TYPE xstring
RETURNING
VALUE(stream) TYPE REF TO if_ixml_ostream.
METHODS create_istream_string
IMPORTING
string TYPE string
RETURNING
VALUE(stream) TYPE REF TO if_ixml_istream.
METHODS create_istream_xstring
IMPORTING
string TYPE xstring
RETURNING
VALUE(stream) TYPE REF TO if_ixml_istream.
METHODS create_ostream_itable
IMPORTING
table TYPE table
RETURNING
VALUE(rval) TYPE REF TO if_ixml_ostream.
METHODS create_istream_cstring
IMPORTING
string TYPE string
RETURNING
VALUE(rval) TYPE REF TO if_ixml_istream.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_IXML_UNKNOWN ', 'INTERFACE if_ixml_unknown PUBLIC.
METHODS query_interface
IMPORTING
iid TYPE i
RETURNING
VALUE(rval) TYPE REF TO if_ixml_unknown.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('/UI2/CL_JSON ', 'CLASS /ui2/cl_json DEFINITION PUBLIC.
PUBLIC SECTION.
TYPES pretty_name_mode TYPE string.
CONSTANTS: BEGIN OF pretty_mode,
none TYPE string VALUE '''',
low_case TYPE string VALUE ''low_case'',
camel_case TYPE string VALUE ''camel_case'',
END OF pretty_mode.
TYPES tribool TYPE c LENGTH 1.
CLASS-METHODS deserialize
IMPORTING
json TYPE string OPTIONAL
jsonx TYPE xstring OPTIONAL
pretty_name TYPE string OPTIONAL
assoc_arrays TYPE abap_bool OPTIONAL
assoc_arrays_opt TYPE abap_bool OPTIONAL
CHANGING
data TYPE data.
CLASS-METHODS serialize
IMPORTING
data TYPE data
compress TYPE abap_bool OPTIONAL
pretty_name TYPE string OPTIONAL
assoc_arrays TYPE abap_bool OPTIONAL
assoc_arrays_opt TYPE abap_bool OPTIONAL
ts_as_iso8601 TYPE abap_bool OPTIONAL
type_descr TYPE REF TO cl_abap_typedescr OPTIONAL
format_output TYPE abap_bool OPTIONAL
RETURNING
VALUE(r_json) TYPE string.
CLASS-METHODS generate
IMPORTING
json TYPE string
pretty_name TYPE string OPTIONAL
RETURNING
VALUE(rr_data) TYPE REF TO data.
METHODS serialize_int
IMPORTING
data TYPE data
type_descr TYPE REF TO cl_abap_typedescr OPTIONAL
RETURNING
VALUE(r_json) TYPE string.
METHODS constructor
IMPORTING
compress TYPE abap_bool DEFAULT abap_false
pretty_name TYPE pretty_name_mode DEFAULT pretty_mode-none
assoc_arrays TYPE abap_bool DEFAULT abap_false
ts_as_iso8601 TYPE abap_bool DEFAULT abap_false.
PROTECTED SECTION.
DATA mv_compress TYPE abap_bool.
DATA mv_pretty_name TYPE string.
DATA mv_assoc_arrays TYPE abap_bool.
DATA mv_ts_as_iso8601 TYPE abap_bool.
DATA mv_extended TYPE abap_bool.
METHODS is_compressable
IMPORTING
type_descr TYPE REF TO cl_abap_typedescr
name TYPE string
RETURNING
VALUE(rv_compress) TYPE abap_bool.
PRIVATE SECTION.
CLASS-DATA mo_parsed TYPE REF TO lcl_parser.
CLASS-METHODS _deserialize
IMPORTING
VALUE(prefix) TYPE string
pretty_name TYPE string OPTIONAL
io_type TYPE REF TO cl_abap_typedescr
CHANGING
data TYPE data.
ENDCLASS.
CLASS /ui2/cl_json IMPLEMENTATION.
METHOD serialize_int.
DATA lo_type TYPE REF TO cl_abap_typedescr.
DATA lo_struct TYPE REF TO cl_abap_structdescr.
DATA lo_table TYPE REF TO cl_abap_tabledescr.
DATA lt_components TYPE cl_abap_structdescr=>component_table.
DATA ref TYPE REF TO data.
DATA lv_index TYPE i.
FIELD-SYMBOLS <ls_component> LIKE LINE OF lt_components.
FIELD-SYMBOLS <any> TYPE any.
FIELD-SYMBOLS <tab> TYPE ANY TABLE.
IF type_descr IS INITIAL.
lo_type = cl_abap_typedescr=>describe_by_data( data ).
ELSE.
lo_type = type_descr.
ENDIF.
CASE lo_type->kind.
WHEN cl_abap_typedescr=>kind_elem.
* WRITE ''@KERNEL console.dir(lo_type);''.
CASE lo_type->type_kind.
WHEN cl_abap_typedescr=>typekind_char.
IF lo_type->absolute_name = \`\\TYPE-POOL=ABAP\\TYPE=ABAP_BOOL\`.
IF data = abap_true.
r_json = ''true''.
ELSE.
r_json = ''false''.
ENDIF.
ELSEIF data IS INITIAL.
r_json = ''""''.
ELSE.
r_json = ''"'' && escape( val = |{ data }| format = cl_abap_format=>e_json_string ) && ''"''.
ENDIF.
WHEN cl_abap_typedescr=>typekind_xstring.
r_json = ''"'' && cl_http_utility=>encode_x_base64( data ) && ''"''.
WHEN cl_abap_typedescr=>typekind_string.
r_json = ''"'' && escape( val = data format = cl_abap_format=>e_json_string ) && ''"''.
WHEN cl_abap_typedescr=>typekind_int.
r_json = |{ data }|.
WHEN cl_abap_typedescr=>typekind_num.
IF data = 0.
r_json = |0|.
ELSE.
r_json = |{ data }|.
SHIFT r_json LEFT DELETING LEADING ''0''.
ENDIF.
WHEN cl_abap_typedescr=>typekind_packed.
IF mv_ts_as_iso8601 = abap_true
AND ( lo_type->absolute_name = \`\\TYPE=TIMESTAMP\`
OR lo_type->absolute_name = \`\\TYPE=TIMESTAMPL\` ).
IF data IS INITIAL.
r_json = |""|.
ELSEIF lo_type->absolute_name = \`\\TYPE=TIMESTAMP\`.
r_json = |"{ data TIMESTAMP = ISO }.0000000Z"|.
ELSE.
r_json = |"{ data TIMESTAMP = ISO }Z"|.
REPLACE '','' IN r_json WITH ''.''.
ENDIF.
ELSE.
r_json = |{ data }|.
ENDIF.
WHEN cl_abap_typedescr=>typekind_date.
r_json = |"{ data DATE = ISO }"|.
WHEN cl_abap_typedescr=>typekind_time.
r_json = |"{ data TIME = ISO }"|.
WHEN OTHERS.
r_json = data.
ENDCASE.
WHEN cl_abap_typedescr=>kind_table.
r_json = ''[''.
ASSIGN data TO <tab>.
lo_table ?= lo_type.
LOOP AT <tab> ASSIGNING <any>.
lv_index = sy-tabix.
r_json = r_json && serialize_int(
data = <any>
type_descr = lo_table->get_table_line_type( ) ).
IF lines( <tab> ) <> lv_index.
r_json = r_json && '',''.
ENDIF.
ENDLOOP.
r_json = r_json && '']''.
WHEN cl_abap_typedescr=>kind_struct.
lo_struct ?= lo_type.
lt_components = lo_struct->get_components( ).
r_json = ''{''.
LOOP AT lt_components ASSIGNING <ls_component>.
ASSIGN COMPONENT <ls_component>-name OF STRUCTURE data TO <any>.
ASSERT sy-subrc = 0.
IF mv_compress = abap_true AND <any> IS INITIAL.
CONTINUE.
ENDIF.
IF mv_pretty_name = pretty_mode-camel_case.
r_json = r_json && |"{ to_mixed( to_lower( <ls_component>-name ) ) }":|.
ELSEIF mv_pretty_name = pretty_mode-low_case.
r_json = r_json && |"{ to_lower( <ls_component>-name ) }":|.
ELSE.
r_json = r_json && |"{ <ls_component>-name }":|.
ENDIF.
r_json = r_json && serialize_int(
data = <any>
type_descr = <ls_component>-type ).
r_json = r_json && '',''.
ENDLOOP.
IF r_json CP ''*,''.
r_json = substring( val = r_json off = 0 len = strlen( r_json ) - 1 ).
ENDIF.
r_json = r_json && ''}''.
WHEN cl_abap_typedescr=>kind_ref.
IF data IS INITIAL.
r_json = ''null''.
RETURN.
ENDIF.
ASSIGN data->* TO <any>.
r_json = serialize_int( data = <any> ).
WHEN OTHERS.
ASSERT 1 = ''cl_json, unknown kind''.
ENDCASE.
ENDMETHOD.
METHOD deserialize.
DATA lo_type TYPE REF TO cl_abap_typedescr.
CREATE OBJECT mo_parsed.
IF jsonx IS NOT INITIAL.
mo_parsed->parse( cl_abap_codepage=>convert_from( jsonx ) ).
ELSEIF json IS INITIAL.
RETURN.
ELSE.
mo_parsed->parse( json ).
ENDIF.
* todo, this should take the "pretty_name" into account
mo_parsed->adjust_names( ).
lo_type = cl_abap_typedescr=>describe_by_data( data ).
_deserialize(
EXPORTING
prefix = ''''
pretty_name = pretty_name
io_type = lo_type
CHANGING
data = data ).
ENDMETHOD.
METHOD constructor.
DATA rtti TYPE REF TO cl_abap_classdescr.
mv_compress = compress.
mv_pretty_name = pretty_name.
mv_assoc_arrays = assoc_arrays.
mv_ts_as_iso8601 = ts_as_iso8601.
* rtti ?= cl_abap_classdescr=>describe_by_object_ref( me ).
* IF rtti->absolute_name NE mc_me_type.
* mv_extended = abap_true.
* ENDIF.
ENDMETHOD.
METHOD is_compressable.
rv_compress = abap_true.
ENDMETHOD.
METHOD generate.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD serialize.
DATA lo_json TYPE REF TO /ui2/cl_json.
ASSERT format_output IS INITIAL.
CREATE OBJECT lo_json
EXPORTING
compress = compress
pretty_name = pretty_name
assoc_arrays = assoc_arrays
ts_as_iso8601 = ts_as_iso8601.
r_json = lo_json->serialize_int(
data = data
type_descr = type_descr ).
ENDMETHOD.
METHOD _deserialize.
DATA lo_struct TYPE REF TO cl_abap_structdescr.
DATA lo_table TYPE REF TO cl_abap_tabledescr.
DATA lo_refdescr TYPE REF TO cl_abap_refdescr.
DATA lt_components TYPE cl_abap_structdescr=>component_table.
DATA ls_component LIKE LINE OF lt_components.
DATA lt_members TYPE string_table.
DATA ref TYPE REF TO data.
DATA lv_name TYPE string.
DATA lv_type TYPE string.
DATA lv_value TYPE string.
DATA lv_member LIKE LINE OF lt_members.
FIELD-SYMBOLS <any> TYPE any.
FIELD-SYMBOLS <at> TYPE ANY TABLE.
FIELD-SYMBOLS <ls_component> LIKE LINE OF lt_components.
prefix = mo_parsed->find_ignore_case( prefix ).
* WRITE ''@KERNEL console.dir(lo_type.get());''.
CASE io_type->kind.
WHEN cl_abap_typedescr=>kind_elem.
* WRITE ''@KERNEL console.dir(lo_type.get().absolute_name);''.
IF io_type->absolute_name = ''\\TYPE-POOL=ABAP\\TYPE=ABAP_BOOL''
OR io_type->absolute_name = ''\\TYPE=ABAP_BOOLEAN''
OR io_type->absolute_name = ''\\TYPE=FLAG''.
data = boolc( mo_parsed->value_string( prefix ) = ''true'' ).
ELSEIF io_type->absolute_name = \`\\TYPE=TIMESTAMP\`
OR io_type->absolute_name = \`\\TYPE=TIMESTAMPL\`.
lv_value = mo_parsed->value_string( prefix ).
REPLACE ALL OCCURRENCES OF ''-'' IN lv_value WITH ''''.
REPLACE ALL OCCURRENCES OF ''T'' IN lv_value WITH ''''.
REPLACE ALL OCCURRENCES OF '':'' IN lv_value WITH ''''.
REPLACE ALL OCCURRENCES OF ''Z'' IN lv_value WITH ''''.
data = lv_value.
ELSEIF io_type->type_kind = cl_abap_typedescr=>typekind_date.
lv_value = mo_parsed->value_string( prefix ).
REPLACE ALL OCCURRENCES OF ''-'' IN lv_value WITH ''''.
IF lv_value CO space.
CLEAR data.
ELSE.
data = lv_value.
ENDIF.
ELSEIF io_type->type_kind = cl_abap_typedescr=>typekind_time.
lv_value = mo_parsed->value_string( prefix ).
REPLACE ALL OCCURRENCES OF '':'' IN lv_value WITH ''''.
IF lv_value CO space.
CLEAR data.
ELSE.
data = lv_value.
ENDIF.
ELSE.
data = mo_parsed->value_string( prefix ).
ENDIF.
WHEN cl_abap_typedescr=>kind_table.
lo_table ?= io_type.
lt_members = mo_parsed->members( prefix && ''/'' ).
ASSIGN data TO <at>.
LOOP AT lt_members INTO lv_member.
* WRITE ''@KERNEL console.dir(lv_member.get());''.
CREATE DATA ref LIKE LINE OF data.
ASSIGN ref->* TO <any>.
_deserialize(
EXPORTING
prefix = prefix && ''/'' && lv_member
pretty_name = pretty_name
io_type = lo_table->get_table_line_type( )
CHANGING
data = <any> ).
* WRITE ''@KERNEL console.dir(fs_row_);''.
INSERT <any> INTO TABLE <at>.
ENDLOOP.
WHEN cl_abap_typedescr=>kind_struct.
lo_struct ?= io_type.
lt_components = lo_struct->get_components( ).
LOOP AT lt_components ASSIGNING <ls_component>.
ASSIGN COMPONENT <ls_component>-name OF STRUCTURE data TO <any>.
ASSERT sy-subrc = 0.
CASE pretty_name.
WHEN pretty_mode-camel_case.
lv_name = to_mixed( to_lower( <ls_component>-name ) ).
WHEN OTHERS.
lv_name = to_lower( <ls_component>-name ).
ENDCASE.
" WRITE ''@KERNEL console.dir("structure: " + lv_name.get());''.
_deserialize(
EXPORTING
prefix = prefix && ''/'' && lv_name
pretty_name = pretty_name
io_type = <ls_component>-type
CHANGING
data = <any> ).
ENDLOOP.
WHEN cl_abap_typedescr=>kind_ref.
lo_refdescr ?= io_type.
IF data IS INITIAL.
lt_members = mo_parsed->members( prefix && ''/'' ).
* WRITE ''@KERNEL console.dir(prefix.get());''.
IF lines( lt_members ) = 0 AND prefix = ''''.
RETURN.
ENDIF.
lv_type = mo_parsed->get_type( prefix && ''/'' ).
IF lv_type IS INITIAL.
lv_type = mo_parsed->get_type( prefix ).
ENDIF.
* WRITE ''@KERNEL console.dir("type: " + lv_type.get());''.
IF lines( lt_members ) > 0 AND lv_type = ''object''.
CLEAR lt_components.
LOOP AT lt_members INTO lv_member.
* WRITE ''@KERNEL console.dir("component: " + lv_member.get());''.
CLEAR ls_component.
ls_component-name = to_upper( lv_member ).
TRANSLATE ls_component-name USING ''-_''.
ls_component-type = cl_abap_refdescr=>get_ref_to_data( ).
ASSERT ls_component-name IS NOT INITIAL.
APPEND ls_component TO lt_components.
ENDLOOP.
lo_struct = cl_abap_structdescr=>create( lt_components ).
CREATE DATA data TYPE HANDLE lo_struct.
ELSEIF lv_type = ''array''.
lo_table = cl_abap_tabledescr=>create( cl_abap_refdescr=>get_ref_to_data( ) ).
CREATE DATA data TYPE HANDLE lo_table.
ELSE.
CASE lv_type.
WHEN ''num''.
lv_value = mo_parsed->value_string( prefix ).
IF lv_value CO ''-0123456789''.
CREATE DATA data TYPE i.
ELSEIF lv_value CO ''-0123456789.''.
CREATE DATA data TYPE f.
ELSE.
ASSERT 1 = ''todo''.
ENDIF.
WHEN ''bool''.
CREATE DATA data TYPE HANDLE cl_abap_typedescr=>describe_by_name( ''ABAP_BOOL'' ).
WHEN ''str''.
CREATE DATA data TYPE HANDLE cl_abap_elemdescr=>get_string( ).
" WHEN OTHERS.
" ASSERT 1 = ''todo''.
ENDCASE.
ENDIF.
ENDIF.
ASSIGN data->* TO <any>.
* todo: optimize, it should not be nessesary to call cl_abap_typedescr
_deserialize(
EXPORTING
prefix = prefix
pretty_name = pretty_name
io_type = cl_abap_typedescr=>describe_by_data( <any> )
CHANGING
data = <any> ).
WHEN OTHERS.
ASSERT 1 = ''cl_json, unknown kind''.
ENDCASE.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('KERNEL_CALL_TRANSFORMATION ', 'CLASS kernel_call_transformation DEFINITION PUBLIC.
* handling of ABAP statement CALL TRANSFORMATION
PUBLIC SECTION.
TYPES: BEGIN OF ty_options,
initial_components TYPE string,
xml_header TYPE string,
END OF ty_options.
CONSTANTS: BEGIN OF gc_options,
suppress TYPE string VALUE ''suppress'',
END OF gc_options.
CLASS-METHODS call
IMPORTING
name TYPE any
options TYPE any.
PRIVATE SECTION.
CLASS-DATA mi_doc TYPE REF TO if_ixml_document.
CLASS-DATA ms_options TYPE ty_options.
CLASS-METHODS parse_xml
IMPORTING
iv_xml TYPE string.
CLASS-METHODS parse_options
IMPORTING options TYPE any.
ENDCLASS.
CLASS kernel_call_transformation IMPLEMENTATION.
METHOD call.
* first convert SOURCE to internal format stored in "MI_DOC"?
* then output to RESULT
DATA lv_name TYPE string.
DATA lv_source TYPE string.
DATA lv_result TYPE string.
DATA result TYPE REF TO data.
DATA lt_rtab TYPE abap_trans_resbind_tab.
DATA ls_rtab LIKE LINE OF lt_rtab.
DATA lv_type TYPE string.
DATA lv_dummy TYPE string.
DATA li_writer TYPE REF TO if_sxml_writer.
DATA li_doc TYPE REF TO if_ixml_document.
CLEAR mi_doc.
* WRITE ''@KERNEL console.dir(INPUT);''.
* only the ID transformation is implemented
WRITE ''@KERNEL lv_name.set(INPUT.name.toUpperCase());''.
ASSERT lv_name = ''ID''.
parse_options( options ).
* Handle input SOURCE
WRITE ''@KERNEL if (INPUT.sourceXML?.constructor.name === "ABAPObject") this.mi_doc.set(INPUT.sourceXML);''.
WRITE ''@KERNEL if (INPUT.sourceXML?.constructor.name === "String") lv_source.set(INPUT.sourceXML);''.
IF lv_source IS NOT INITIAL.
IF lv_source(1) = ''<''.
lv_type = ''XML''.
parse_xml( lv_source ).
ELSEIF lv_source(1) = ''{'' OR lv_source(1) = ''[''.
lv_type = ''JSON''.
mi_doc = kernel_json_to_ixml=>build( lv_source ).
ELSE.
RAISE EXCEPTION TYPE cx_xslt_format_error.
ENDIF.
ENDIF.
* input = object, output = ixml_document
WRITE ''@KERNEL if (typeof INPUT.source === "object"''.
WRITE ''@KERNEL && INPUT.resultXML?.constructor.name === "ABAPObject"''.
WRITE ''@KERNEL && INPUT.resultXML?.qualifiedName === "IF_IXML_DOCUMENT") {''.
WRITE ''@KERNEL li_doc.set(INPUT.resultXML);''.
WRITE ''@KERNEL lv_dummy = INPUT.source;''.
WRITE ''@KERNEL }''.
IF li_doc IS NOT INITIAL.
lcl_object_to_ixml=>run(
ii_doc = li_doc
source = lv_dummy ).
RETURN.
ENDIF.
* input = object, output = sxml_writer
WRITE ''@KERNEL if (typeof INPUT.source === "object"''.
WRITE ''@KERNEL && INPUT.resultXML?.constructor.name === "ABAPObject") {''.
WRITE ''@KERNEL li_writer.set(INPUT.resultXML);''.
WRITE ''@KERNEL lv_dummy = INPUT.source;''.
WRITE ''@KERNEL }''.
IF li_writer IS NOT INITIAL.
lcl_object_to_sxml=>run(
ii_writer = li_writer
source = lv_dummy ).
RETURN.
ENDIF.
* input = string, output = string
WRITE ''@KERNEL if (INPUT.resultXML && INPUT.resultXML.constructor.name === "String") {''.
WRITE ''@KERNEL if (INPUT.sourceXML && INPUT.sourceXML.constructor.name === "String") {''.
WRITE ''@KERNEL lv_result.set("X");''.
WRITE ''@KERNEL lv_dummy = INPUT.sourceXML;''.
WRITE ''@KERNEL }''.
WRITE ''@KERNEL }''.
IF lv_result = abap_true.
lv_result = lcl_string_to_string=>run(
source = lv_dummy
options = ms_options ).
WRITE ''@KERNEL INPUT.resultXML.set(lv_result);''.
RETURN.
ENDIF.
* input = object, output = string
WRITE ''@KERNEL if (INPUT.resultXML && INPUT.resultXML.constructor.name === "String") {''.
WRITE ''@KERNEL lv_result.set("X");''.
WRITE ''@KERNEL lv_dummy = INPUT.source;''.
WRITE ''@KERNEL }''.
IF lv_result = abap_true.
lv_result = lcl_object_to_string=>run(
is_options = ms_options
source = lv_dummy ).
WRITE ''@KERNEL INPUT.resultXML.set(lv_result);''.
RETURN.
ENDIF.
IF lv_source IS INITIAL AND mi_doc IS INITIAL.
RAISE EXCEPTION TYPE cx_xslt_runtime_error.
ENDIF.
* output = is an ABAP internal table, dynamic result parameter
WRITE ''@KERNEL if (INPUT.result.constructor.name === "Table") {''.
WRITE ''@KERNEL lt_rtab = INPUT.result;''.
LOOP AT lt_rtab INTO ls_rtab.
kernel_ixml_xml_to_data=>build(
iv_name = ls_rtab-name
iv_ref = ls_rtab-value
ii_doc = mi_doc ).
ENDLOOP.
WRITE ''@KERNEL } else {''.
* INPUT.result is a javascript structure
WRITE ''@KERNEL for (const name in INPUT.result) {''.
WRITE ''@KERNEL lv_name.set(name.toUpperCase());''.
WRITE ''@KERNEL if (INPUT.result[name].constructor.name === "FieldSymbol") {''.
WRITE ''@KERNEL result.assign(INPUT.result[name].getPointer());''.
WRITE ''@KERNEL } else {''.
WRITE ''@KERNEL result.assign(INPUT.result[name]);''.
WRITE ''@KERNEL }''.
IF lv_type = ''JSON''.
kernel_ixml_json_to_data=>build(
iv_name = lv_name
iv_ref = result
ii_doc = mi_doc ).
ELSE.
kernel_ixml_xml_to_data=>build(
iv_name = lv_name
iv_ref = result
ii_doc = mi_doc ).
ENDIF.
WRITE ''@KERNEL }''.
WRITE ''@KERNEL }''.
ENDMETHOD.
METHOD parse_options.
* https://help.sap.com/doc/abapdocu_752_index_htm/7.52/en-US/abapcall_transformation_options.htm
DATA lv_name TYPE string.
DATA lv_value TYPE string.
FIELD-SYMBOLS <lv_field> TYPE string.
WRITE ''@KERNEL for (const name in INPUT.options || {}) {''.
WRITE ''@KERNEL lv_name.set(name);''.
WRITE ''@KERNEL lv_value.set(INPUT.options[name]);''.
ASSIGN COMPONENT lv_name OF STRUCTURE ms_options TO <lv_field>.
IF sy-subrc = 0.
<lv_field> = lv_value.
ENDIF.
WRITE ''@KERNEL }''.
ENDMETHOD.
METHOD parse_xml.
DATA li_factory TYPE REF TO if_ixml_stream_factory.
DATA li_istream TYPE REF TO if_ixml_istream.
DATA li_parser TYPE REF TO if_ixml_parser.
DATA li_ixml TYPE REF TO if_ixml.
DATA lv_subrc TYPE i.
li_ixml = cl_ixml=>create( ).
mi_doc = li_ixml->create_document( ).
li_factory = li_ixml->create_stream_factory( ).
li_istream = li_factory->create_istream_string( iv_xml ).
li_parser = li_ixml->create_parser( stream_factory = li_factory
istream = li_istream
document = mi_doc ).
li_parser->add_strip_space_element( ).
lv_subrc = li_parser->parse( ).
li_istream->close( ).
ASSERT lv_subrc = 0.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('KERNEL_IXML_JSON_TO_DATA ', 'CLASS kernel_ixml_json_to_data DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS build
IMPORTING
iv_name TYPE string
iv_ref TYPE REF TO data
ii_doc TYPE REF TO if_ixml_document.
PRIVATE SECTION.
CLASS-METHODS get_field_name
IMPORTING ii_node TYPE REF TO if_ixml_node
RETURNING VALUE(rv_name) TYPE string.
CLASS-METHODS traverse
IMPORTING
ii_node TYPE REF TO if_ixml_node
iv_ref TYPE REF TO data.
ENDCLASS.
CLASS kernel_ixml_json_to_data IMPLEMENTATION.
METHOD get_field_name.
DATA li_aiterator TYPE REF TO if_ixml_node_iterator.
DATA li_anode TYPE REF TO if_ixml_node.
DATA attr TYPE REF TO if_ixml_named_node_map.
attr = ii_node->get_attributes( ).
IF attr IS NOT INITIAL.
li_aiterator = attr->create_iterator( ).
DO.
li_anode = li_aiterator->get_next( ).
IF li_anode IS INITIAL.
EXIT. " current loop
ENDIF.
* assume its the name,
rv_name = li_anode->get_value( ).
RETURN.
ENDDO.
ENDIF.
ENDMETHOD.
METHOD build.
* assumptions: the top level element is an object containing iv_name
DATA li_first TYPE REF TO if_ixml_node.
DATA li_node TYPE REF TO if_ixml_node.
DATA lv_name TYPE string.
DATA li_iterator TYPE REF TO if_ixml_node_iterator.
li_first = ii_doc->get_root( )->get_first_child( ).
ASSERT li_first->get_name( ) = ''object''.
li_iterator = li_first->get_children( )->create_iterator( ).
DO.
li_node = li_iterator->get_next( ).
IF li_node IS INITIAL.
EXIT. " current loop
ENDIF.
lv_name = get_field_name( li_node ).
IF lv_name = iv_name.
* WRITE ''@KERNEL console.dir("found");''.
traverse(
iv_ref = iv_ref
ii_node = li_node ).
RETURN.
ENDIF.
ENDDO.
ENDMETHOD.
METHOD traverse.
DATA lo_type TYPE REF TO cl_abap_typedescr.
DATA li_child TYPE REF TO if_ixml_node.
DATA lv_name TYPE string.
DATA li_iterator TYPE REF TO if_ixml_node_iterator.
DATA lv_ref TYPE REF TO data.
FIELD-SYMBOLS <any> TYPE any.
FIELD-SYMBOLS <field> TYPE any.
FIELD-SYMBOLS <tab> TYPE ANY TABLE.
lo_type = cl_abap_typedescr=>describe_by_data( iv_ref->* ).
CASE lo_type->kind.
WHEN cl_abap_typedescr=>kind_struct.
ASSERT ii_node->get_name( ) = ''object''.
ASSIGN iv_ref->* TO <any>.
li_iterator = ii_node->get_children( )->create_iterator( ).
DO.
li_child = li_iterator->get_next( ).
IF li_child IS INITIAL.
EXIT. " current loop
ENDIF.
lv_name = get_field_name( li_child ).
ASSIGN COMPONENT lv_name OF STRUCTURE <any> TO <field>.
IF sy-subrc = 0.
GET REFERENCE OF <field> INTO lv_ref.
traverse( ii_node = li_child
iv_ref = lv_ref ).
ENDIF.
ENDDO.
WHEN cl_abap_typedescr=>kind_elem.
li_child = ii_node->get_first_child( ).
ASSERT li_child->get_name( ) = ''#text''.
ASSIGN iv_ref->* TO <any>.
<any> = li_child->get_value( ).
IF lo_type->type_kind = cl_abap_typedescr=>typekind_char
OR lo_type->type_kind = cl_abap_typedescr=>typekind_clike
OR lo_type->type_kind = cl_abap_typedescr=>typekind_string.
REPLACE ALL OCCURRENCES OF ''\\"'' IN <any> WITH ''"''.
ENDIF.
WHEN cl_abap_typedescr=>kind_table.
ASSERT ii_node->get_name( ) = ''array''.
ASSIGN iv_ref->* TO <tab>.
li_iterator = ii_node->get_children( )->create_iterator( ).
DO.
li_child = li_iterator->get_next( ).
IF li_child IS INITIAL.
EXIT. " current loop
ENDIF.
CREATE DATA lv_ref LIKE LINE OF <tab>.
ASSIGN lv_ref->* TO <any>.
traverse( ii_node = li_child
iv_ref = lv_ref ).
INSERT <any> INTO TABLE <tab>.
ENDDO.
WHEN OTHERS.
WRITE ''@KERNEL console.dir(lo_type.get().kind.get());''.
ASSERT 1 = ''todo''.
ENDCASE.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('KERNEL_IXML_XML_TO_DATA ', 'CLASS kernel_ixml_xml_to_data DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS build
IMPORTING
iv_name TYPE string
iv_ref TYPE REF TO data
ii_doc TYPE REF TO if_ixml_document.
PRIVATE SECTION.
CLASS-DATA mi_heap TYPE REF TO if_ixml_element.
CLASS-METHODS traverse
IMPORTING
ii_node TYPE REF TO if_ixml_node
iv_ref TYPE REF TO data.
CLASS-METHODS find_href_in_heap
IMPORTING
VALUE(iv_href) TYPE string
RETURNING
VALUE(ri_node) TYPE REF TO if_ixml_node.
ENDCLASS.
CLASS kernel_ixml_xml_to_data IMPLEMENTATION.
METHOD build.
DATA li_first TYPE REF TO if_ixml_element.
DATA li_node TYPE REF TO if_ixml_node.
DATA lv_name TYPE string.
DATA li_iterator TYPE REF TO if_ixml_node_iterator.
mi_heap = ii_doc->find_from_name_ns( ''heap'' ).
* WRITE ''@KERNEL console.dir(this.mi_heap);''.
li_first ?= ii_doc->get_root( )->get_first_child( ).
li_node = li_first->find_from_name_ns(
name = iv_name
depth = 0
namespace = '''' ).
IF li_node IS NOT INITIAL.
traverse( ii_node = li_node
iv_ref = iv_ref ).
ENDIF.
ENDMETHOD.
METHOD find_href_in_heap.
DATA li_iterator TYPE REF TO if_ixml_node_iterator.
DATA li_child TYPE REF TO if_ixml_node.
DATA lv_id TYPE string.
REPLACE FIRST OCCURRENCE OF ''#'' IN iv_href WITH ''''.
ASSERT mi_heap IS NOT INITIAL.
ASSERT iv_href IS NOT INITIAL.
li_iterator = mi_heap->get_children( )->create_iterator( ).
DO.
li_child = li_iterator->get_next( ).
IF li_child IS INITIAL.
EXIT. " current loop
ENDIF.
lv_id = li_child->get_attributes( )->get_named_item_ns( ''id'' )->get_value( ).
IF lv_id = iv_href.
ri_node = li_child.
RETURN.
ENDIF.
ENDDO.
ASSERT 1 = ''not found in heap''.
ENDMETHOD.
METHOD traverse.
DATA lo_type TYPE REF TO cl_abap_typedescr.
DATA li_child TYPE REF TO if_ixml_node.
DATA li_heap TYPE REF TO if_ixml_node.
DATA li_iname TYPE REF TO if_ixml_node.
DATA lv_name TYPE string.
DATA li_iterator TYPE REF TO if_ixml_node_iterator.
DATA lv_ref TYPE REF TO data.
DATA lv_value TYPE string.
DATA li_href TYPE REF TO if_ixml_node.
FIELD-SYMBOLS <any> TYPE any.
FIELD-SYMBOLS <field> TYPE any.
FIELD-SYMBOLS <tab> TYPE ANY TABLE.
lo_type = cl_abap_typedescr=>describe_by_data( iv_ref->* ).
CASE lo_type->kind.
WHEN cl_abap_typedescr=>kind_struct.
ASSIGN iv_ref->* TO <any>.
li_iterator = ii_node->get_children( )->create_iterator( ).
DO.
li_child = li_iterator->get_next( ).
IF li_child IS INITIAL.
EXIT. " current loop
ENDIF.
lv_name = li_child->get_name( ).
ASSIGN COMPONENT lv_name OF STRUCTURE <any> TO <field>.
IF sy-subrc = 0.
GET REFERENCE OF <field> INTO lv_ref.
traverse( ii_node = li_child
iv_ref = lv_ref ).
ENDIF.
ENDDO.
WHEN cl_abap_typedescr=>kind_elem.
li_child = ii_node->get_first_child( ).
IF li_child IS NOT INITIAL.
ASSIGN iv_ref->* TO <any>.
<any> = li_child->get_value( ).
ENDIF.
WHEN cl_abap_typedescr=>kind_table.
ASSIGN iv_ref->* TO <tab>.
li_iterator = ii_node->get_children( )->create_iterator( ).
DO.
li_child = li_iterator->get_next( ).
IF li_child IS INITIAL.
EXIT. " current loop
ENDIF.
CREATE DATA lv_ref LIKE LINE OF <tab>.
ASSIGN lv_ref->* TO <any>.
traverse( ii_node = li_child
iv_ref = lv_ref ).
INSERT <any> INTO TABLE <tab>.
ENDDO.
WHEN cl_abap_typedescr=>kind_ref.
ASSIGN iv_ref->* TO <any>.
IF <any> IS INITIAL.
" WRITE ''@KERNEL lv_rtti_name.set(fs_any_.getPointer().RTTIName);''.
" lv_internal = kernel_internal_name=>rtti_to_internal( lv_rtti_name ).
" WRITE ''@KERNEL fs_any_.pointer.value = new abap.Classes[lv_internal.get()]();''.
li_href = ii_node->get_attributes( )->get_named_item_ns( ''href'' ).
IF li_href IS INITIAL.
RETURN.
ENDIF.
lv_value = li_href->get_value( ).
ASSERT lv_value IS NOT INITIAL.
li_heap = find_href_in_heap( lv_value ).
li_iname = li_heap->get_attributes( )->get_named_item_ns( ''internalName'' ).
IF li_iname IS INITIAL AND lv_value(2) = ''#o''.
* then its a non serializable object, not to be instantiated
RETURN.
ENDIF.
IF lv_value(2) = ''#o''.
lv_value = li_iname->get_value( ).
ASSERT lv_value IS NOT INITIAL.
* WRITE ''@KERNEL console.dir(lv_value);''.
WRITE ''@KERNEL fs_any_.pointer.value = new abap.Classes[lv_value.get()]();''.
" li_child = ii_node->get_attributes( )->get_named_item_ns( ''href'' ).
" WRITE ''@KERNEL console.dir(ii_node.get());''.
li_iterator = li_heap->get_first_child( )->get_children( )->create_iterator( ).
DO.
li_child = li_iterator->get_next( ).
IF li_child IS INITIAL.
EXIT. " current loop
ENDIF.
lv_name = li_child->get_name( ).
REPLACE FIRST OCCURRENCE OF ''.'' IN lv_name WITH ''~''.
ASSIGN <any>->(lv_name) TO <field>.
IF sy-subrc = 0.
GET REFERENCE OF <field> INTO lv_ref.
traverse( ii_node = li_child
iv_ref = lv_ref ).
ENDIF.
ENDDO.
ELSE.
* its a data reference
" WRITE / lv_value.
" WRITE ''@KERNEL console.dir(fs_any_);''.
CREATE DATA <any>.
" WRITE ''@KERNEL console.dir(fs_any_);''.
li_child = li_heap->get_first_child( ).
GET REFERENCE OF <any> INTO lv_ref.
" WRITE ''@KERNEL console.dir(lv_ref);''.
traverse( ii_node = li_child
iv_ref = lv_ref->* ).
ENDIF.
ELSE.
ASSERT 1 = ''todo_ref2''.
ENDIF.
WHEN OTHERS.
WRITE ''@KERNEL console.dir(lo_type.get().kind.get());''.
ASSERT 1 = ''todo''.
ENDCASE.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('KERNEL_JSON_TO_IXML ', 'CLASS kernel_json_to_ixml DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS build
IMPORTING iv_json TYPE string
RETURNING VALUE(ri_doc) TYPE REF TO if_ixml_document.
ENDCLASS.
CLASS kernel_json_to_ixml IMPLEMENTATION.
METHOD build.
* build IXML by calling SXML json parser and then converting :)
DATA li_reader TYPE REF TO if_sxml_reader.
DATA li_node TYPE REF TO if_sxml_node.
DATA li_close TYPE REF TO if_sxml_close_element.
DATA li_open TYPE REF TO if_sxml_open_element.
DATA li_value TYPE REF TO if_sxml_value_node.
DATA lt_attributes TYPE if_sxml_attribute=>attributes.
DATA li_attribute TYPE REF TO if_sxml_attribute.
DATA li_current TYPE REF TO if_ixml_node.
DATA lv_name TYPE string.
DATA li_map TYPE REF TO if_ixml_named_node_map.
DATA li_new TYPE REF TO if_ixml_node.
DATA li_element TYPE REF TO if_ixml_element.
li_reader = cl_sxml_string_reader=>create( cl_abap_codepage=>convert_to( iv_json ) ).
ri_doc = cl_ixml=>create( )->create_document( ).
li_current = ri_doc->get_root( ).
DO.
li_node = li_reader->read_next_node( ).
IF li_node IS INITIAL.
EXIT.
ENDIF.
CASE li_node->type.
WHEN if_sxml_node=>co_nt_element_open.
li_open ?= li_node.
* WRITE: / ''open: '', li_open->qname-name.
CLEAR lv_name.
lt_attributes = li_open->get_attributes( ).
LOOP AT lt_attributes INTO li_attribute.
* WRITE / li_attribute->get_value( ).
lv_name = li_attribute->get_value( ).
ENDLOOP.
li_element = ri_doc->create_element_ns( li_open->qname-name ).
li_new ?= li_element.
li_current->append_child( li_new ).
li_current = li_new.
* WRITE ''@KERNEL console.dir(li_element);''.
IF lv_name IS NOT INITIAL.
li_element = ri_doc->create_element_ns( ''name'' ).
li_new ?= li_element.
li_new->set_value( lv_name ).
li_map = li_current->get_attributes( ).
li_map->set_named_item_ns( li_new ).
ENDIF.
WHEN if_sxml_node=>co_nt_element_close.
li_close ?= li_node.
* WRITE: / ''close: '', li_close->qname-name.
* IF li_close->qname-name = ''object'' OR li_close->qname-name = ''array''.
li_current = li_current->get_parent( ).
* ENDIF.
WHEN if_sxml_node=>co_nt_value.
li_value ?= li_node.
* WRITE / li_value->get_value( ).
* li_current->set_value( li_value->get_value( ) ).
li_element = ri_doc->create_element_ns( ''#text'' ).
li_element->set_value( li_value->get_value( ) ).
li_new ?= li_element.
li_current->append_child( li_new ).
ENDCASE.
ENDDO.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('KERNEL_AUTHORITY_CHECK ', 'CLASS kernel_authority_check DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS call.
PRIVATE SECTION.
ENDCLASS.
CLASS kernel_authority_check IMPLEMENTATION.
METHOD call.
* add custom implementation here if needed
sy-subrc = 0.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('KERNEL_CALL ', 'CLASS kernel_call DEFINITION PUBLIC.
* handling of ABAP statement CALL
PUBLIC SECTION.
CLASS-METHODS call
IMPORTING
input TYPE any.
PRIVATE SECTION.
ENDCLASS.
CLASS kernel_call IMPLEMENTATION.
METHOD call.
DATA uuid TYPE sysuuid_x16.
DATA name TYPE string.
WRITE ''@KERNEL name.set(INPUT.name);''.
IF name = ''RFCControl''.
uuid = cl_system_uuid=>if_system_uuid_static~create_uuid_x16( ).
WRITE ''@KERNEL INPUT.uuid.set(uuid);''.
ENDIF.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('KERNEL_CREATE_DATA_HANDLE ', 'CLASS kernel_create_data_handle DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS call
IMPORTING
handle TYPE REF TO cl_abap_datadescr
CHANGING
dref TYPE REF TO any.
PRIVATE SECTION.
CLASS-METHODS elem
IMPORTING
handle TYPE REF TO cl_abap_datadescr
CHANGING
dref TYPE REF TO any.
CLASS-METHODS struct
IMPORTING
handle TYPE REF TO cl_abap_datadescr
CHANGING
dref TYPE REF TO any.
CLASS-METHODS table
IMPORTING
handle TYPE REF TO cl_abap_datadescr
CHANGING
dref TYPE REF TO any.
CLASS-METHODS ref
IMPORTING
handle TYPE REF TO cl_abap_datadescr
CHANGING
dref TYPE REF TO any.
ENDCLASS.
CLASS kernel_create_data_handle IMPLEMENTATION.
METHOD call.
ASSERT handle IS BOUND.
WRITE ''@KERNEL if (dref.constructor.name === "FieldSymbol") {''.
WRITE ''@KERNEL dref = dref.getPointer();''.
WRITE ''@KERNEL }''.
CASE handle->kind.
WHEN cl_abap_typedescr=>kind_elem.
elem( EXPORTING handle = handle
CHANGING dref = dref ).
WHEN cl_abap_typedescr=>kind_struct.
struct( EXPORTING handle = handle
CHANGING dref = dref ).
WHEN cl_abap_typedescr=>kind_table.
table( EXPORTING handle = handle
CHANGING dref = dref ).
WHEN cl_abap_typedescr=>kind_ref.
ref( EXPORTING handle = handle
CHANGING dref = dref ).
WHEN OTHERS.
WRITE ''@KERNEL console.dir(handle);''.
ASSERT 1 = ''todo''.
ENDCASE.
ENDMETHOD.
METHOD ref.
DATA lo_ref TYPE REF TO cl_abap_refdescr.
DATA lo_data TYPE REF TO cl_abap_datadescr.
DATA field TYPE REF TO data.
lo_ref ?= handle.
lo_data ?= lo_ref->get_referenced_type( ).
call(
EXPORTING
handle = lo_data
CHANGING
dref = field ).
WRITE ''@KERNEL dref.assign(new abap.types.DataReference(field.getPointer()));''.
ENDMETHOD.
METHOD struct.
DATA lo_struct TYPE REF TO cl_abap_structdescr.
DATA lt_components TYPE cl_abap_structdescr=>component_table.
DATA field TYPE REF TO data.
DATA lv_name TYPE string.
FIELD-SYMBOLS <ls_component> LIKE LINE OF lt_components.
lo_struct ?= handle.
lt_components = lo_struct->get_components( ).
WRITE ''@KERNEL let obj = {};''.
LOOP AT lt_components ASSIGNING <ls_component>.
* WRITE ''@KERNEL console.dir(ls_component.get().name);''.
call(
EXPORTING
handle = lo_struct->get_component_type( <ls_component>-name )
CHANGING
dref = field ).
lv_name = to_lower( <ls_component>-name ).
WRITE ''@KERNEL obj[lv_name.get()] = field.getPointer();''.
ENDLOOP.
WRITE ''@KERNEL dref.assign(new abap.types.Structure(obj));''.
ENDMETHOD.
METHOD table.
DATA lo_table TYPE REF TO cl_abap_tabledescr.
DATA lt_keys TYPE abap_table_keydescr_tab.
DATA lv_component TYPE string.
DATA field TYPE REF TO data.
FIELD-SYMBOLS <ls_key> LIKE LINE OF lt_keys.
lo_table ?= handle.
call(
EXPORTING
handle = lo_table->get_table_line_type( )
CHANGING
dref = field ).
WRITE ''@KERNEL let options = {primaryKey: undefined, keyType: "DEFAULT", withHeader: false};''.
WRITE ''@KERNEL options.primaryKey = {name: "primary_key", type: "STANDARD", keyFields: [], isUnique: false};''.
* todo, handle secondary keys,
lt_keys = lo_table->get_keys( ).
LOOP AT lt_keys ASSIGNING <ls_key> WHERE is_primary = abap_true.
IF <ls_key>-access_kind = cl_abap_tabledescr=>tablekind_sorted.
WRITE ''@KERNEL options.primaryKey.type = "SORTED";''.
ELSEIF <ls_key>-access_kind = cl_abap_tabledescr=>tablekind_hashed.
WRITE ''@KERNEL options.primaryKey.type = "HASHED";''.
ENDIF.
IF <ls_key>-is_unique = abap_true.
WRITE ''@KERNEL options.primaryKey.isUnique = true;''.
ENDIF.
LOOP AT <ls_key>-components INTO lv_component.
WRITE ''@KERNEL options.primaryKey.keyFields.push(lv_component.get().toLowerCase());''.
ENDLOOP.
ENDLOOP.
WRITE ''@KERNEL dref.assign(abap.types.TableFactory.construct(field.getPointer(), options));''.
ENDMETHOD.
METHOD elem.
DATA lv_half TYPE i.
CASE handle->type_kind.
WHEN cl_abap_typedescr=>typekind_float.
CREATE DATA dref TYPE f.
WHEN cl_abap_typedescr=>typekind_string.
CREATE DATA dref TYPE string.
WHEN cl_abap_typedescr=>typekind_xstring.
CREATE DATA dref TYPE xstring.
WHEN cl_abap_typedescr=>typekind_int.
CREATE DATA dref TYPE i.
WHEN cl_abap_typedescr=>typekind_utclong.
CREATE DATA dref TYPE utclong.
WHEN cl_abap_typedescr=>typekind_date.
CREATE DATA dref TYPE d.
WHEN cl_abap_typedescr=>typekind_hex.
CREATE DATA dref TYPE x LENGTH handle->length.
WHEN cl_abap_typedescr=>typekind_packed.
CREATE DATA dref TYPE p LENGTH handle->length DECIMALS handle->decimals.
WHEN cl_abap_typedescr=>typekind_char.
lv_half = handle->length / 2.
CREATE DATA dref TYPE c LENGTH lv_half.
* todo, this needs some redesign to work properly,
WRITE ''@KERNEL dref.getPointer().extra = {"qualifiedName": handle.get().relative_name};''.
WHEN cl_abap_typedescr=>typekind_num.
lv_half = handle->length / 2.
CREATE DATA dref TYPE n LENGTH lv_half.
WHEN cl_abap_typedescr=>typekind_time.
CREATE DATA dref TYPE t.
WHEN cl_abap_typedescr=>typekind_int8.
CREATE DATA dref TYPE int8.
WHEN OTHERS.
WRITE ''@KERNEL console.dir(handle);''.
ASSERT 1 = ''todo''.
ENDCASE.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('KERNEL_INTERNAL_NAME ', 'CLASS kernel_internal_name DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS internal_to_rtti
IMPORTING
iv_internal TYPE string
RETURNING
VALUE(rv_rtti) TYPE string.
CLASS-METHODS rtti_to_internal
IMPORTING
iv_rtti TYPE string
RETURNING
VALUE(rv_internal) TYPE string.
ENDCLASS.
CLASS kernel_internal_name IMPLEMENTATION.
METHOD internal_to_rtti.
rv_rtti = iv_internal.
IF rv_rtti CP ''*CLAS-*''.
REPLACE FIRST OCCURRENCE OF ''CLAS-'' IN rv_rtti WITH ''\\CLASS#POOL=''.
REPLACE FIRST OCCURRENCE OF ''-'' IN rv_rtti WITH ''\\CLASS=''.
REPLACE FIRST OCCURRENCE OF ''#'' IN rv_rtti WITH ''-''.
ELSE.
rv_rtti = ''\\CLASS='' && rv_rtti.
ENDIF.
ENDMETHOD.
METHOD rtti_to_internal.
rv_internal = iv_rtti.
IF rv_internal CP ''\\CLASS=*''.
REPLACE FIRST OCCURRENCE OF ''\\CLASS='' IN rv_internal WITH ''''.
ELSEIF rv_internal CP ''\\CLASS-POOL=*''.
REPLACE FIRST OCCURRENCE OF ''\\CLASS-POOL='' IN rv_internal WITH ''CLAS-''.
REPLACE FIRST OCCURRENCE OF ''\\CLASS='' IN rv_internal WITH ''-''.
REPLACE FIRST OCCURRENCE OF ''\\INTERFACE='' IN rv_internal WITH ''-''.
ENDIF.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('KERNEL_LOCK ', 'CLASS kernel_lock DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS enqueue
IMPORTING
input TYPE any
EXCEPTIONS
foreign_lock
system_failure.
CLASS-METHODS dequeue
IMPORTING
input TYPE any.
PRIVATE SECTION.
ENDCLASS.
CLASS kernel_lock IMPLEMENTATION.
METHOD enqueue.
* add custom implementation here if needed
sy-subrc = 0.
ENDMETHOD.
METHOD dequeue.
* add custom implementation here if needed
sy-subrc = 0.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('KERNEL_PUSH_CHANNELS ', 'CLASS kernel_push_channels DEFINITION PUBLIC.
* handling of ABAP statement WAIT FOR PUSH CHANNELS
PUBLIC SECTION.
CLASS-METHODS wait
IMPORTING
seconds TYPE i
cond TYPE any.
PRIVATE SECTION.
ENDCLASS.
CLASS kernel_push_channels IMPLEMENTATION.
METHOD wait.
DATA lv_seconds TYPE i.
DATA lv_condition TYPE abap_bool.
lv_seconds = seconds * 1000.
ASSERT lv_seconds > 0.
WHILE lv_seconds > 0.
WRITE ''@KERNEL await new Promise(resolve => setTimeout(resolve, 100));''.
WRITE ''@KERNEL lv_condition = cond() ? "X" : " ";''.
IF lv_condition = abap_true.
sy-subrc = 0.
RETURN.
ENDIF.
lv_seconds = lv_seconds - 100.
ENDWHILE.
sy-subrc = 4.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('KERNEL_SCAN_ABAP_SOURCE ', 'CLASS kernel_scan_abap_source DEFINITION PUBLIC.
* handling of ABAP statement SCAN ABAP-SOURCE
PUBLIC SECTION.
CLASS-METHODS call IMPORTING input TYPE any.
PRIVATE SECTION.
TYPES ty_stokesx TYPE STANDARD TABLE OF stokesx WITH DEFAULT KEY.
TYPES ty_sstmnt TYPE STANDARD TABLE OF sstmnt WITH DEFAULT KEY.
CLASS-METHODS call_internal
IMPORTING
source TYPE string
EXPORTING
et_stokesx TYPE ty_stokesx
et_sstmnt TYPE ty_sstmnt.
CONSTANTS: BEGIN OF gc_token,
comment TYPE c LENGTH 1 VALUE ''C'',
identifier TYPE c LENGTH 1 VALUE ''I'',
list TYPE c LENGTH 1 VALUE ''L'',
literal TYPE c LENGTH 1 VALUE ''S'',
pragma TYPE c LENGTH 1 VALUE ''P'',
END OF gc_token.
CONSTANTS: BEGIN OF gc_statement,
comment TYPE c LENGTH 1 VALUE ''P'',
comment_in_stmnt TYPE c LENGTH 1 VALUE ''S'',
compute_direct TYPE c LENGTH 1 VALUE ''C'',
empty TYPE c LENGTH 1 VALUE ''N'',
macro_call TYPE c LENGTH 1 VALUE ''D'',
macro_definition TYPE c LENGTH 1 VALUE ''M'',
method_direct TYPE c LENGTH 1 VALUE ''A'',
native_sql TYPE c LENGTH 1 VALUE ''E'',
pragma TYPE c LENGTH 1 VALUE ''G'',
standard TYPE c LENGTH 1 VALUE ''K'',
END OF gc_statement.
CLASS-METHODS pass1
IMPORTING
source TYPE string
EXPORTING
et_tokens TYPE ty_stokesx
et_statements TYPE ty_sstmnt.
CLASS-METHODS pass2
CHANGING
ct_tokens TYPE ty_stokesx
ct_statements TYPE ty_sstmnt.
ENDCLASS.
CLASS kernel_scan_abap_source IMPLEMENTATION.
METHOD call.
* non-goal: good performance
DATA lt_sstmnt TYPE ty_sstmnt.
DATA lt_stokes TYPE stokes_tab.
DATA ls_stokes LIKE LINE OF lt_stokes.
DATA lt_stokesx TYPE ty_stokesx.
DATA ls_stokesx LIKE LINE OF lt_stokesx.
DATA lv_source TYPE string.
WRITE ''@KERNEL lv_source.set(INPUT.scan_abap_source.array ? INPUT.scan_abap_source.array().map(e => e.get()).join("\\n") : INPUT.scan_abap_source.get());''.
call_internal(
EXPORTING
source = lv_source
IMPORTING
et_stokesx = lt_stokesx
et_sstmnt = lt_sstmnt ).
LOOP AT lt_stokesx INTO ls_stokesx.
CLEAR ls_stokes.
MOVE-CORRESPONDING ls_stokesx TO ls_stokes.
APPEND ls_stokes TO lt_stokes.
ENDLOOP.
WRITE ''@KERNEL const len = Object.keys(INPUT.tokens_into.getRowType().get()).length;''.
WRITE ''@KERNEL INPUT.tokens_into.set(len == 4 ? lt_stokes : lt_stokesx);''.
WRITE ''@KERNEL INPUT.statements_into.set(lt_sstmnt);''.
ENDMETHOD.
METHOD call_internal.
* build tokens in sequence of occurence in the source
* take care of chained statements
pass1(
EXPORTING
source = source
IMPORTING
et_tokens = et_stokesx
et_statements = et_sstmnt ).
* move comment tokens and add/change statements to comment type
pass2(
CHANGING
ct_tokens = et_stokesx
ct_statements = et_sstmnt ).
ENDMETHOD.
METHOD pass1.
CONSTANTS: BEGIN OF c_mode,
normal TYPE i VALUE 1,
comment TYPE i VALUE 2,
END OF c_mode.
DATA character TYPE c LENGTH 1.
DATA row TYPE i VALUE 1.
DATA column TYPE i.
DATA index TYPE i.
DATA sfrom TYPE i VALUE 1.
DATA mode TYPE i.
DATA chain_tokens TYPE ty_stokesx.
FIELD-SYMBOLS <trow> LIKE LINE OF et_tokens.
FIELD-SYMBOLS <srow> LIKE LINE OF et_statements.
mode = c_mode-normal.
WHILE source IS NOT INITIAL.
character = source(1).
source = source+1.
IF <trow> IS NOT ASSIGNED AND character <> '''' AND character <> |\\n|.
APPEND INITIAL LINE TO et_tokens ASSIGNING <trow>.
<trow>-row = row.
<trow>-col = column.
<trow>-type = gc_token-identifier.
ELSEIF mode = c_mode-normal AND ( character = '''' OR character CA |.,| ).
UNASSIGN <trow>.
" IF character = '',''.
" * WRITE ''@KERNEL console.dir("before");''.
" APPEND LINES OF chain_tokens TO et_tokens.
" * WRITE ''@KERNEL console.dir("after");''.
" * WRITE lines( <tokens> ).
" ENDIF.
ELSEIF mode = c_mode-normal AND character = '':''.
CLEAR chain_tokens.
APPEND LINES OF et_tokens FROM sfrom TO chain_tokens.
DELETE chain_tokens WHERE type = gc_token-comment.
* WRITE ''@KERNEL console.dir(chain_tokens);''.
ENDIF.
IF ( mode = c_mode-normal AND character CA |.,| )
OR source = ''''.
APPEND INITIAL LINE TO et_statements ASSIGNING <srow>.
<srow>-terminator = character.
<srow>-from = sfrom.
<srow>-to = lines( et_tokens ).
sfrom = <srow>-to + 1.
IF character = '',''.
* WRITE ''@KERNEL console.dir("before");''.
APPEND LINES OF chain_tokens TO et_tokens.
* WRITE ''@KERNEL console.dir("after");''.
* WRITE lines( <tokens> ).
ENDIF.
ENDIF.
IF character = |\\n|.
mode = c_mode-normal.
UNASSIGN <trow>.
row = row + 1.
column = 0.
ELSE.
IF <trow> IS ASSIGNED.
IF ( character = ''*'' AND column = 0 ) OR character = ''"''.
mode = c_mode-comment.
<trow>-type = gc_token-comment.
ENDIF.
IF mode = c_mode-comment.
<trow>-type = gc_token-comment.
CONCATENATE <trow>-str character INTO <trow>-str RESPECTING BLANKS.
ELSEIF character <> '':''.
<trow>-str = <trow>-str && to_upper( |{ character }| ).
ENDIF.
ENDIF.
column = column + 1.
ENDIF.
ENDWHILE.
ENDMETHOD.
METHOD pass2.
FIELD-SYMBOLS <ls_statement> LIKE LINE OF ct_statements.
DATA ls_statement LIKE LINE OF ct_statements.
DATA ls_token LIKE LINE OF ct_tokens.
DATA contains_comment TYPE abap_bool.
DATA contains_normal TYPE abap_bool.
DATA lv_count TYPE i.
DATA lv_statement_index TYPE i.
DATA lt_insert LIKE ct_tokens.
DATA lt_delete TYPE STANDARD TABLE OF i WITH DEFAULT KEY.
DATA lv_index LIKE LINE OF lt_delete.
LOOP AT ct_statements ASSIGNING <ls_statement>.
lv_statement_index = sy-tabix.
* WRITE ''@KERNEL console.dir("statement");''.
contains_comment = abap_false.
contains_normal = abap_false.
LOOP AT ct_tokens INTO ls_token FROM <ls_statement>-from TO <ls_statement>-to.
IF ls_token-type = gc_token-comment.
contains_comment = abap_true.
ELSE.
contains_normal = abap_true.
ENDIF.
* WRITE ''@KERNEL console.dir(ls_token.get().str.get());''.
ENDLOOP.
IF contains_comment = abap_true AND contains_normal = abap_true.
* its a mix, move comments to the front as separate statement
* WRITE ''@KERNEL console.dir("from: " + fs_ls_statement_.get().from.get());''.
* WRITE ''@KERNEL console.dir("to: " + fs_ls_statement_.get().to.get());''.
lv_count = 0.
CLEAR lt_insert.
CLEAR lt_delete.
LOOP AT ct_tokens INTO ls_token FROM <ls_statement>-from TO <ls_statement>-to.
* WRITE ''@KERNEL console.dir("token: " + ls_token.get().str.get() + " " + abap.builtin.sy.get().tabix.get());''.
IF ls_token-type = gc_token-comment.
INSERT sy-tabix INTO lt_delete INDEX 1.
INSERT ls_token INTO lt_insert INDEX 1.
lv_count = lv_count + 1.
ENDIF.
ENDLOOP.
LOOP AT lt_delete INTO lv_index.
DELETE ct_tokens INDEX lv_index.
ENDLOOP.
LOOP AT lt_insert INTO ls_token.
INSERT ls_token INTO ct_tokens INDEX <ls_statement>-from.
ENDLOOP.
CLEAR ls_statement.
ls_statement-from = <ls_statement>-from.
ls_statement-to = <ls_statement>-from + lv_count - 1.
ls_statement-type = gc_statement-comment.
<ls_statement>-from = <ls_statement>-from + lv_count.
INSERT ls_statement INTO ct_statements INDEX lv_statement_index.
ELSEIF contains_comment = abap_true.
<ls_statement>-type = gc_statement-comment.
ELSE.
<ls_statement>-type = gc_statement-standard.
ENDIF.
ENDLOOP.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_NUMBERRANGE_RUNTIME ', 'CLASS cl_numberrange_runtime DEFINITION PUBLIC.
PUBLIC SECTION.
TYPES nr_interval TYPE c LENGTH 2.
TYPES nr_object TYPE c LENGTH 10.
TYPES nr_number TYPE n LENGTH 20.
CLASS-METHODS number_get
IMPORTING
nr_range_nr TYPE nr_interval
object TYPE nr_object
EXPORTING
number TYPE nr_number
RAISING
cx_static_check.
ENDCLASS.
CLASS cl_numberrange_runtime IMPLEMENTATION.
METHOD number_get.
CALL FUNCTION ''NUMBER_GET_NEXT''
EXPORTING
nr_range_nr = nr_range_nr
object = object
IMPORTING
number = number
EXCEPTIONS
interval_not_found = 1
number_range_not_intern = 2
object_not_found = 3
quantity_is_0 = 4
quantity_is_not_1 = 5
interval_overflow = 6
buffer_overflow = 7
OTHERS = 8.
IF sy-subrc <> 0.
RETURN. " todo
ENDIF.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('KERNEL_NUMBERRANGE ', 'CLASS kernel_numberrange DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS number_get
IMPORTING
nr_range_nr TYPE cl_numberrange_runtime=>nr_interval
object TYPE cl_numberrange_runtime=>nr_object
EXPORTING
number TYPE cl_numberrange_runtime=>nr_number
RAISING
cx_static_check.
PRIVATE SECTION.
TYPES: BEGIN OF ty_status,
nr_range_nr TYPE cl_numberrange_runtime=>nr_interval,
object TYPE cl_numberrange_runtime=>nr_object,
number TYPE cl_numberrange_runtime=>nr_number,
END OF ty_status.
CLASS-DATA status TYPE STANDARD TABLE OF ty_status WITH DEFAULT KEY.
ENDCLASS.
CLASS kernel_numberrange IMPLEMENTATION.
METHOD number_get.
* for now, only in memory for the current session
FIELD-SYMBOLS <row> LIKE LINE OF status.
READ TABLE status WITH KEY nr_range_nr = nr_range_nr object = object ASSIGNING <row>.
IF sy-subrc = 0.
<row>-number = <row>-number + 1.
ELSE.
APPEND INITIAL LINE TO status ASSIGNING <row>.
<row>-nr_range_nr = nr_range_nr.
<row>-object = object.
<row>-number = 1.
ENDIF.
number = <row>-number.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_OA2C_CONFIG_WRITER_API ', 'CLASS cl_oa2c_config_writer_api DEFINITION PUBLIC.
PUBLIC SECTION.
CONSTANTS c_granttype_cc TYPE oa2c_granttype VALUE 4.
CLASS-METHODS create
IMPORTING
i_profile TYPE oa2c_profile
i_configuration TYPE oa2c_configuration OPTIONAL
i_client_id TYPE string
i_client_secret TYPE string
i_authorization_endpoint TYPE string OPTIONAL
i_token_endpoint TYPE string OPTIONAL
i_target_path TYPE string OPTIONAL
i_configured_granttype TYPE oa2c_granttype DEFAULT 0
RETURNING
VALUE(ro_config_writer_api) TYPE REF TO cl_oa2c_config_writer_api
RAISING
cx_oa2c.
CLASS-METHODS load
IMPORTING
i_configuration TYPE oa2c_configuration OPTIONAL
RETURNING
VALUE(ro_config_writer_api) TYPE REF TO cl_oa2c_config_writer_api
RAISING
cx_oa2c.
METHODS save
RAISING
cx_oa2c.
METHODS read
EXPORTING
e_client_id TYPE string
e_authorization_endpoint TYPE string
e_token_endpoint TYPE string
e_target_path TYPE string
e_configured_granttype TYPE oa2c_granttype.
PRIVATE SECTION.
TYPES: BEGIN OF ty_config,
configuration TYPE oa2c_configuration,
client_id TYPE string,
client_secret TYPE string,
authorization_endpoint TYPE string,
token_endpoint TYPE string,
target_path TYPE string,
granttype TYPE oa2c_granttype,
END OF ty_config.
* this class currently only saves to memory for testing purposes
CLASS-DATA mt_saved_configs TYPE SORTED TABLE OF ty_config WITH UNIQUE KEY configuration.
DATA ms_config TYPE ty_config.
ENDCLASS.
CLASS cl_oa2c_config_writer_api IMPLEMENTATION.
METHOD create.
ASSERT i_configured_granttype = c_granttype_cc.
CREATE OBJECT ro_config_writer_api.
ro_config_writer_api->ms_config-configuration = i_configuration.
ro_config_writer_api->ms_config-client_id = i_client_id.
ro_config_writer_api->ms_config-client_secret = i_client_secret.
ro_config_writer_api->ms_config-authorization_endpoint = i_authorization_endpoint.
ro_config_writer_api->ms_config-token_endpoint = i_token_endpoint.
ro_config_writer_api->ms_config-target_path = i_target_path.
ro_config_writer_api->ms_config-granttype = i_configured_granttype.
ENDMETHOD.
METHOD save.
INSERT ms_config INTO TABLE mt_saved_configs.
ASSERT sy-subrc = 0.
ENDMETHOD.
METHOD load.
DATA ls_config TYPE ty_config.
READ TABLE mt_saved_configs INTO ls_config WITH KEY configuration = i_configuration.
IF sy-subrc <> 0.
RAISE EXCEPTION TYPE cx_oa2c_config_not_found.
ENDIF.
CREATE OBJECT ro_config_writer_api.
ro_config_writer_api->ms_config = ls_config.
ENDMETHOD.
METHOD read.
e_client_id = ms_config-client_id.
e_authorization_endpoint = ms_config-authorization_endpoint.
e_token_endpoint = ms_config-token_endpoint.
e_target_path = ms_config-target_path.
e_configured_granttype = ms_config-granttype.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_OAUTH2_CLIENT ', 'CLASS cl_oauth2_client DEFINITION PUBLIC.
PUBLIC SECTION.
INTERFACES if_oauth2_client.
CLASS-METHODS create
IMPORTING
i_profile TYPE oa2c_profile
i_configuration TYPE oa2c_configuration OPTIONAL
RETURNING
VALUE(ro_oauth2_client) TYPE REF TO if_oauth2_client
RAISING
cx_oa2c.
PRIVATE SECTION.
DATA mo_config_writer_api TYPE REF TO cl_oa2c_config_writer_api.
DATA mv_token TYPE string.
DATA mv_scope TYPE string.
ENDCLASS.
CLASS cl_oauth2_client IMPLEMENTATION.
METHOD create.
DATA lo_client TYPE REF TO cl_oauth2_client.
DATA lv_scope TYPE string.
WRITE ''@KERNEL const scopes = abap.OA2P[i_profile.get().toUpperCase().trimEnd()].scopes;''.
WRITE ''@KERNEL lv_scope.set(scopes[0]);''.
CREATE OBJECT lo_client.
lo_client->mo_config_writer_api = cl_oa2c_config_writer_api=>load( i_configuration ).
lo_client->mv_scope = lv_scope.
ro_oauth2_client ?= lo_client.
ENDMETHOD.
METHOD if_oauth2_client~execute_cc_flow.
DATA lv_text TYPE string.
DATA lv_code TYPE i.
DATA lv_message TYPE string.
DATA lv_cdata TYPE string.
DATA lv_client_id TYPE string.
DATA lv_client_secret TYPE string.
DATA lv_endpoint TYPE string.
DATA lv_path TYPE string.
DATA li_http_client TYPE REF TO if_http_client.
mo_config_writer_api->read(
IMPORTING
e_client_id = lv_client_id
e_token_endpoint = lv_endpoint
e_target_path = lv_path ).
WRITE ''@KERNEL lv_client_secret.set(this.mo_config_writer_api.get().ms_config.get().client_secret);''.
cl_http_client=>create_by_url(
EXPORTING
url = lv_endpoint && lv_path
IMPORTING
client = li_http_client
EXCEPTIONS
argument_not_found = 1
plugin_not_active = 2
internal_error = 3
OTHERS = 4 ).
IF sy-subrc <> 0.
RAISE EXCEPTION TYPE cx_oa2c.
ENDIF.
li_http_client->propertytype_logon_popup = if_http_client=>co_disabled.
li_http_client->request->set_method( ''POST'' ).
li_http_client->request->set_form_field(
name = ''grant_type''
value = ''client_credentials'' ).
li_http_client->request->set_form_field(
name = ''client_id''
value = lv_client_id ).
li_http_client->request->set_form_field(
name = ''scope''
value = mv_scope ).
li_http_client->request->set_form_field(
name = ''client_secret''
value = lv_client_secret ).
li_http_client->request->set_content_type( ''application/x-www-form-urlencoded'' ).
li_http_client->send(
EXCEPTIONS
http_communication_failure = 1
http_invalid_state = 2
http_processing_failed = 3
http_invalid_timeout = 4
OTHERS = 5 ).
IF sy-subrc <> 0.
RAISE EXCEPTION TYPE cx_oa2c.
ENDIF.
li_http_client->receive(
EXCEPTIONS
http_communication_failure = 1
http_invalid_state = 2
http_processing_failed = 3
OTHERS = 4 ).
IF sy-subrc <> 0.
li_http_client->get_last_error(
IMPORTING
code = lv_code
message = lv_message ).
RAISE EXCEPTION TYPE cx_oa2c.
ENDIF.
li_http_client->response->get_status( IMPORTING code = lv_code ).
lv_cdata = li_http_client->response->get_cdata( ).
li_http_client->close( ).
IF lv_code <> 200.
RAISE EXCEPTION TYPE cx_oa2c.
ENDIF.
FIND REGEX |"access_token":"([\\\\w\\\\.-]+)"| IN lv_cdata SUBMATCHES mv_token.
ASSERT sy-subrc = 0.
ENDMETHOD.
METHOD if_oauth2_client~set_token.
IF mv_token IS INITIAL.
RAISE EXCEPTION TYPE cx_oa2c_at_not_available.
ENDIF.
io_http_client->request->set_header_field(
name = ''Authorization''
value = |Bearer { mv_token }| ).
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_OA2C ', 'CLASS cx_oa2c DEFINITION PUBLIC INHERITING FROM cx_static_check.
PUBLIC SECTION.
ENDCLASS.
CLASS cx_oa2c IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_OA2C_AT_NOT_AVAILABLE ', 'CLASS cx_oa2c_at_not_available DEFINITION PUBLIC INHERITING FROM cx_oa2c.
PUBLIC SECTION.
ENDCLASS.
CLASS cx_oa2c_at_not_available IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_OA2C_CONFIG_NOT_FOUND ', 'CLASS cx_oa2c_config_not_found DEFINITION PUBLIC INHERITING FROM cx_oa2c.
PUBLIC SECTION.
ENDCLASS.
CLASS cx_oa2c_config_not_found IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_OAUTH2_CLIENT ', 'INTERFACE if_oauth2_client PUBLIC.
CONSTANTS c_param_kind_header_field TYPE string VALUE ''H''.
CONSTANTS c_param_kind_form_field TYPE string VALUE ''F''.
METHODS execute_cc_flow
RAISING
cx_oa2c.
METHODS set_token
IMPORTING
io_http_client TYPE REF TO if_http_client
i_param_kind TYPE string OPTIONAL
RAISING
cx_oa2c.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_OO_FACTORY ', 'CLASS cl_oo_factory DEFINITION PUBLIC CREATE PRIVATE.
PUBLIC SECTION.
INTERFACES if_oo_clif_source.
CLASS-METHODS create_instance
RETURNING
VALUE(result) TYPE REF TO cl_oo_factory.
METHODS create_clif_source
IMPORTING
clif_name TYPE csequence
RETURNING
VALUE(result) TYPE REF TO if_oo_clif_source
RAISING
cx_oo_clif_not_exists.
PRIVATE SECTION.
DATA mv_name TYPE string.
ENDCLASS.
CLASS cl_oo_factory IMPLEMENTATION.
METHOD create_instance.
CREATE OBJECT result.
ENDMETHOD.
METHOD create_clif_source.
* todo, this not correct, should return a new instance, but will work for now
result = me.
mv_name = to_upper( clif_name ).
ENDMETHOD.
METHOD if_oo_clif_source~get_source.
DATA ls_data TYPE reposrc.
SELECT SINGLE * FROM reposrc INTO ls_data WHERE progname = mv_name.
SPLIT ls_data-data AT |\\n| INTO TABLE source.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_OO_CLIF_NOT_EXISTS ', 'CLASS cx_oo_clif_not_exists DEFINITION PUBLIC INHERITING FROM cx_dynamic_check.
ENDCLASS.
CLASS cx_oo_clif_not_exists IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_OO_CLIF_SOURCE ', 'INTERFACE if_oo_clif_source PUBLIC.
METHODS get_source
EXPORTING
source TYPE string_table.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_CLASSDESCR ', 'CLASS cl_abap_classdescr DEFINITION PUBLIC INHERITING FROM cl_abap_objectdescr.
PUBLIC SECTION.
CLASS-METHODS get_class_name
IMPORTING
p_object TYPE REF TO object
RETURNING
VALUE(p_name) TYPE abap_abstypename.
METHODS get_super_class_type
RETURNING
VALUE(p_descr_ref) TYPE REF TO cl_abap_classdescr
EXCEPTIONS
super_class_not_found.
METHODS constructor
IMPORTING
p_object TYPE any OPTIONAL.
ENDCLASS.
CLASS cl_abap_classdescr IMPLEMENTATION.
METHOD constructor.
super->constructor( p_object ).
ENDMETHOD.
METHOD get_class_name.
DATA lv_name TYPE string.
WRITE ''@KERNEL lv_name.set(p_object.get().constructor.INTERNAL_NAME);''.
p_name = kernel_internal_name=>internal_to_rtti( lv_name ).
ENDMETHOD.
METHOD get_super_class_type.
ASSERT 1 = ''todo''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_COMPLEXDESCR ', 'CLASS cl_abap_complexdescr DEFINITION PUBLIC INHERITING FROM cl_abap_datadescr.
PUBLIC SECTION.
ENDCLASS.
CLASS cl_abap_complexdescr IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_DATADESCR ', 'CLASS cl_abap_datadescr DEFINITION PUBLIC INHERITING FROM cl_abap_typedescr.
PUBLIC SECTION.
CLASS-METHODS get_data_type_kind
IMPORTING
p_data TYPE data
RETURNING
VALUE(p_type_kind) TYPE abap_typekind.
METHODS applies_to_data
IMPORTING
p_data TYPE data
RETURNING
VALUE(p_flag) TYPE abap_bool.
ENDCLASS.
CLASS cl_abap_datadescr IMPLEMENTATION.
METHOD get_data_type_kind.
DATA descr TYPE REF TO cl_abap_typedescr.
descr = cl_abap_typedescr=>describe_by_data( p_data ).
p_type_kind = descr->type_kind.
ENDMETHOD.
METHOD applies_to_data.
ASSERT 1 = ''todo''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_ELEMDESCR ', 'CLASS cl_abap_elemdescr DEFINITION PUBLIC INHERITING FROM cl_abap_datadescr.
PUBLIC SECTION.
TYPES:
BEGIN OF fixvalue,
low TYPE c LENGTH 10,
high TYPE c LENGTH 10,
option TYPE c LENGTH 2,
ddlanguage TYPE c,
ddtext TYPE c LENGTH 60,
END OF fixvalue.
TYPES fixvalues TYPE STANDARD TABLE OF fixvalue WITH DEFAULT KEY.
DATA output_length TYPE i READ-ONLY.
DATA edit_mask TYPE abap_editmask READ-ONLY.
DATA help_id TYPE abap_helpid READ-ONLY.
METHODS get_ddic_fixed_values
IMPORTING
p_langu TYPE sy-langu DEFAULT sy-langu
RETURNING
VALUE(p_fixed_values) TYPE fixvalues.
METHODS get_ddic_field
IMPORTING
p_langu TYPE sy-langu DEFAULT sy-langu
RETURNING
VALUE(p_flddescr) TYPE dfies
EXCEPTIONS
not_found
no_ddic_type.
CLASS-METHODS get_i RETURNING VALUE(r_result) TYPE REF TO cl_abap_elemdescr.
CLASS-METHODS get_int8 RETURNING VALUE(r_result) TYPE REF TO cl_abap_elemdescr.
CLASS-METHODS get_f RETURNING VALUE(r_result) TYPE REF TO cl_abap_elemdescr.
CLASS-METHODS get_d RETURNING VALUE(r_result) TYPE REF TO cl_abap_elemdescr.
CLASS-METHODS get_t RETURNING VALUE(r_result) TYPE REF TO cl_abap_elemdescr.
CLASS-METHODS get_decfloat16 RETURNING VALUE(r_result) TYPE REF TO cl_abap_elemdescr.
CLASS-METHODS get_decfloat34 RETURNING VALUE(r_result) TYPE REF TO cl_abap_elemdescr.
CLASS-METHODS get_string RETURNING VALUE(p_result) TYPE REF TO cl_abap_elemdescr.
CLASS-METHODS get_utclong RETURNING VALUE(p_result) TYPE REF TO cl_abap_elemdescr.
CLASS-METHODS get_c
IMPORTING
p_length TYPE i
RETURNING
VALUE(p_result) TYPE REF TO cl_abap_elemdescr.
CLASS-METHODS get_p
IMPORTING
p_length TYPE i
p_decimals TYPE i
RETURNING
VALUE(p_result) TYPE REF TO cl_abap_elemdescr.
CLASS-METHODS get_n
IMPORTING
p_length TYPE i
RETURNING
VALUE(p_result) TYPE REF TO cl_abap_elemdescr.
CLASS-METHODS get_x
IMPORTING
p_length TYPE i
RETURNING
VALUE(p_result) TYPE REF TO cl_abap_elemdescr.
CLASS-METHODS get_xstring
RETURNING
VALUE(p_result) TYPE REF TO cl_abap_elemdescr.
ENDCLASS.
CLASS cl_abap_elemdescr IMPLEMENTATION.
METHOD get_p.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD get_decfloat16.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD get_decfloat34.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD get_n.
DATA foo TYPE REF TO data.
CREATE DATA foo TYPE n LENGTH p_length.
p_result ?= cl_abap_typedescr=>describe_by_data_ref( foo ).
ENDMETHOD.
METHOD get_x.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD get_xstring.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD get_ddic_field.
p_flddescr-tabname = absolute_name.
p_flddescr-inttype = type_kind.
p_flddescr-langu = sy-langu.
p_flddescr-position = 1.
p_flddescr-leng = length.
p_flddescr-decimals = decimals.
WRITE ''@KERNEL p_flddescr.get().domname.set(abap.DDIC[this.relative_name.get()]?.domain || "");''.
* todo, dfies-convexit
ENDMETHOD.
METHOD get_i.
DATA foo TYPE i.
r_result ?= cl_abap_typedescr=>describe_by_data( foo ).
ENDMETHOD.
METHOD get_int8.
DATA foo TYPE int8.
r_result ?= cl_abap_typedescr=>describe_by_data( foo ).
ENDMETHOD.
METHOD get_string.
DATA foo TYPE string.
p_result ?= cl_abap_typedescr=>describe_by_data( foo ).
ENDMETHOD.
METHOD get_f.
DATA foo TYPE f.
r_result ?= cl_abap_typedescr=>describe_by_data( foo ).
ENDMETHOD.
METHOD get_d.
DATA foo TYPE d.
r_result ?= cl_abap_typedescr=>describe_by_data( foo ).
ENDMETHOD.
METHOD get_t.
DATA foo TYPE t.
r_result ?= cl_abap_typedescr=>describe_by_data( foo ).
ENDMETHOD.
METHOD get_c.
DATA foo TYPE REF TO data.
CREATE DATA foo TYPE c LENGTH p_length.
p_result ?= cl_abap_typedescr=>describe_by_data_ref( foo ).
ENDMETHOD.
METHOD get_utclong.
DATA foo TYPE REF TO data.
CREATE DATA foo TYPE utclong.
p_result ?= cl_abap_typedescr=>describe_by_data_ref( foo ).
ENDMETHOD.
METHOD get_ddic_fixed_values.
DATA lv_dummy TYPE string.
DATA lv_name TYPE string.
DATA ls_row LIKE LINE OF p_fixed_values.
* todo: take P_LANGU into account
SPLIT absolute_name AT ''='' INTO lv_dummy lv_name.
WRITE ''@KERNEL for (const f of abap.DDIC[lv_name.get()]?.fixedValues || []) {''.
CLEAR ls_row.
WRITE ''@KERNEL ls_row.get().low.set(f.low || "");''.
WRITE ''@KERNEL ls_row.get().high.set(f.high || "");''.
WRITE ''@KERNEL ls_row.get().option.set(f.option || "");''.
WRITE ''@KERNEL ls_row.get().ddlanguage.set(f.ddlanguage || "");''.
WRITE ''@KERNEL ls_row.get().ddtext.set(f.ddtext || "");''.
APPEND ls_row TO p_fixed_values.
WRITE ''@KERNEL }''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_ENUMDESCR ', 'CLASS cl_abap_enumdescr DEFINITION PUBLIC INHERITING FROM cl_abap_elemdescr.
PUBLIC SECTION.
TYPES: BEGIN OF member,
name TYPE c LENGTH 30,
value TYPE string,
END OF member.
TYPES member_table TYPE STANDARD TABLE OF member WITH KEY name.
DATA members TYPE member_table READ-ONLY.
ENDCLASS.
CLASS cl_abap_enumdescr IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_INTFDESCR ', 'CLASS cl_abap_intfdescr DEFINITION PUBLIC INHERITING FROM cl_abap_objectdescr.
PUBLIC SECTION.
ENDCLASS.
CLASS cl_abap_intfdescr IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_OBJECTDESCR ', 'CLASS cl_abap_objectdescr DEFINITION PUBLIC INHERITING FROM cl_abap_typedescr.
PUBLIC SECTION.
CONSTANTS changing TYPE abap_parmkind VALUE ''C''.
CONSTANTS exporting TYPE abap_parmkind VALUE ''E''.
CONSTANTS importing TYPE abap_parmkind VALUE ''I''.
CONSTANTS receiving TYPE abap_parmkind VALUE ''R''.
CONSTANTS returning TYPE abap_parmkind VALUE ''R''.
CONSTANTS private TYPE abap_visibility VALUE ''I''.
CONSTANTS protected TYPE abap_visibility VALUE ''O''.
CONSTANTS public TYPE abap_visibility VALUE ''U''.
DATA attributes TYPE abap_attrdescr_tab READ-ONLY.
DATA methods TYPE abap_methdescr_tab READ-ONLY.
DATA interfaces TYPE abap_intfdescr_tab READ-ONLY.
METHODS constructor
IMPORTING
p_object TYPE any OPTIONAL.
METHODS get_attribute_type
IMPORTING
p_name TYPE any
RETURNING
VALUE(p_descr_ref) TYPE REF TO cl_abap_datadescr
EXCEPTIONS
attribute_not_found.
METHODS get_method_parameter_type
IMPORTING
p_method_name TYPE any
p_parameter_name TYPE any
RETURNING
VALUE(p_descr_ref) TYPE REF TO cl_abap_datadescr
EXCEPTIONS
parameter_not_found
method_not_found.
METHODS get_interface_type
IMPORTING
p_name TYPE any
RETURNING
VALUE(p_descr_ref) TYPE REF TO cl_abap_intfdescr
EXCEPTIONS
interface_not_found.
PROTECTED SECTION.
DATA mv_object_name TYPE string.
DATA mv_object_type TYPE string.
TYPES: BEGIN OF ty_attribute_types,
name TYPE abap_attrname,
type TYPE REF TO cl_abap_datadescr,
END OF ty_attribute_types.
DATA mt_attribute_types TYPE STANDARD TABLE OF ty_attribute_types WITH DEFAULT KEY.
TYPES: BEGIN OF ty_parameter_types,
method TYPE string,
parameter TYPE string,
type TYPE REF TO data,
END OF ty_parameter_types.
DATA mt_parameter_types TYPE STANDARD TABLE OF ty_parameter_types WITH DEFAULT KEY.
ENDCLASS.
CLASS cl_abap_objectdescr IMPLEMENTATION.
METHOD constructor.
DATA lv_name TYPE abap_attrname.
DATA lv_char1 TYPE c LENGTH 1.
DATA lv_any TYPE string.
FIELD-SYMBOLS <attr> TYPE abap_attrdescr.
FIELD-SYMBOLS <intf> TYPE abap_intfdescr.
FIELD-SYMBOLS <method> TYPE abap_methdescr.
FIELD-SYMBOLS <parameter> TYPE abap_parmdescr.
FIELD-SYMBOLS <atype> LIKE LINE OF mt_attribute_types.
FIELD-SYMBOLS <ptype> LIKE LINE OF mt_parameter_types.
* set attributes
WRITE ''@KERNEL for (const a in p_object?.ATTRIBUTES || []) {''.
WRITE ''@KERNEL lv_name.set(a);''.
APPEND INITIAL LINE TO attributes ASSIGNING <attr>.
APPEND INITIAL LINE TO mt_attribute_types ASSIGNING <atype>.
<attr>-name = lv_name.
<atype>-name = lv_name.
<attr>-is_interface = boolc( lv_name CA ''~'' ).
WRITE ''@KERNEL lv_char1.set(p_object.ATTRIBUTES[a].is_constant);''.
<attr>-is_constant = lv_char1.
WRITE ''@KERNEL lv_char1.set(p_object.ATTRIBUTES[a].is_class || "");''.
<attr>-is_class = lv_char1.
WRITE ''@KERNEL lv_char1.set(p_object.ATTRIBUTES[a].visibility);''.
<attr>-visibility = lv_char1.
WRITE ''@KERNEL lv_any = p_object.ATTRIBUTES[a].type();''.
<atype>-type ?= describe_by_data( lv_any ).
<attr>-type_kind = <atype>-type->type_kind.
<attr>-length = <atype>-type->length.
<attr>-decimals = <atype>-type->decimals.
WRITE ''@KERNEL }''.
SORT attributes BY is_interface DESCENDING name ASCENDING.
* set interfaces
WRITE ''@KERNEL for (const a of p_object?.IMPLEMENTED_INTERFACES || []) {''.
WRITE ''@KERNEL lv_name.set(a);''.
APPEND INITIAL LINE TO interfaces ASSIGNING <intf>.
<intf>-name = lv_name.
WRITE ''@KERNEL }''.
SORT interfaces BY name ASCENDING.
* set methods
WRITE ''@KERNEL for (const a in p_object?.METHODS || []) {''.
WRITE ''@KERNEL lv_name.set(a);''.
APPEND INITIAL LINE TO methods ASSIGNING <method>.
<method>-name = lv_name.
WRITE ''@KERNEL lv_char1.set(p_object.METHODS[a].visibility);''.
<method>-visibility = lv_char1.
* set parameters of methods
WRITE ''@KERNEL for (const p in p_object.METHODS[a].parameters || []) {''.
APPEND INITIAL LINE TO mt_parameter_types ASSIGNING <ptype>.
APPEND INITIAL LINE TO <method>-parameters ASSIGNING <parameter>.
<ptype>-method = <method>-name.
WRITE ''@KERNEL lv_name.set(p);''.
<parameter>-name = lv_name.
<ptype>-parameter = lv_name.
WRITE ''@KERNEL lv_any = p_object.METHODS[a].parameters[p].type();''.
* hmm, cannot call describe_by_data() here, as it can cause inifnite recursion
GET REFERENCE OF lv_any INTO <ptype>-type.
" <parameter>-type_kind = <ptype>-type->type_kind.
" <parameter>-length = <ptype>-type->length.
" <parameter>-decimals = <ptype>-type->decimals.
" * todo, set PARAM_KIND
WRITE ''@KERNEL }''.
WRITE ''@KERNEL }''.
SORT methods BY name ASCENDING.
super->constructor( ).
ENDMETHOD.
METHOD get_method_parameter_type.
DATA ls_row LIKE LINE OF mt_parameter_types.
* WRITE ''@KERNEL this.mt_parameter_types.array().map(e => console.dir(e.get()));''.
READ TABLE mt_parameter_types INTO ls_row WITH KEY method = p_method_name parameter = p_parameter_name.
IF sy-subrc = 0.
p_descr_ref ?= describe_by_data( ls_row-type->* ).
ELSE.
RAISE parameter_not_found.
ENDIF.
ENDMETHOD.
METHOD get_interface_type.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD get_attribute_type.
DATA lv_name TYPE abap_attrname.
DATA ls_type LIKE LINE OF mt_attribute_types.
lv_name = to_upper( p_name ).
READ TABLE mt_attribute_types INTO ls_type WITH KEY name = lv_name.
IF sy-subrc <> 0.
RAISE attribute_not_found.
ENDIF.
p_descr_ref = ls_type-type.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_REFDESCR ', 'CLASS cl_abap_refdescr DEFINITION PUBLIC INHERITING FROM cl_abap_datadescr.
PUBLIC SECTION.
METHODS get_referenced_type
RETURNING VALUE(type) TYPE REF TO cl_abap_typedescr.
CLASS-METHODS get_ref_to_data
RETURNING
VALUE(p_result) TYPE REF TO cl_abap_refdescr.
PRIVATE SECTION.
DATA referenced TYPE REF TO cl_abap_typedescr.
ENDCLASS.
CLASS cl_abap_refdescr IMPLEMENTATION.
METHOD get_referenced_type.
type = referenced.
ENDMETHOD.
METHOD get_ref_to_data.
DATA foo TYPE REF TO data.
p_result ?= cl_abap_typedescr=>describe_by_data( foo ).
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_STRUCTDESCR ', 'CLASS cl_abap_structdescr DEFINITION PUBLIC INHERITING FROM cl_abap_complexdescr.
PUBLIC SECTION.
CLASS-METHODS
construct_from_data
IMPORTING data TYPE any
RETURNING VALUE(descr) TYPE REF TO cl_abap_structdescr.
TYPES component TYPE abap_componentdescr.
TYPES component_table TYPE abap_component_tab.
TYPES included_view TYPE abap_component_view_tab.
TYPES symbol_table TYPE abap_component_symbol_tab.
METHODS
get_components
RETURNING
VALUE(rt_components) TYPE component_table.
METHODS
get_ddic_field_list
IMPORTING
p_langu TYPE syst-langu DEFAULT sy-langu
p_including_substructres TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(rt_components) TYPE ddfields
EXCEPTIONS
not_found
no_ddic_type.
METHODS get_component_type
IMPORTING
p_name TYPE any
RETURNING
VALUE(p_descr_ref) TYPE REF TO cl_abap_datadescr
EXCEPTIONS
component_not_found
unsupported_input_type.
METHODS get_included_view
IMPORTING
p_level TYPE i OPTIONAL
RETURNING
VALUE(p_result) TYPE included_view.
CLASS-METHODS get
IMPORTING
p_components TYPE component_table
RETURNING
VALUE(p_result) TYPE REF TO cl_abap_structdescr
RAISING
cx_sy_struct_creation.
CLASS-METHODS create
IMPORTING
p_components TYPE component_table
p_strict TYPE abap_bool OPTIONAL
RETURNING
VALUE(ref) TYPE REF TO cl_abap_structdescr.
METHODS get_symbols
RETURNING
VALUE(p_result) TYPE symbol_table.
DATA components TYPE abap_compdescr_tab.
DATA struct_kind TYPE abap_structkind READ-ONLY.
PRIVATE SECTION.
METHODS update_components.
DATA mt_refs TYPE component_table.
ENDCLASS.
CLASS cl_abap_structdescr IMPLEMENTATION.
METHOD get_symbols.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD get.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD create.
DATA ls_component LIKE LINE OF p_components.
DATA ls_ref LIKE LINE OF mt_refs.
IF lines( p_components ) = 0.
RAISE EXCEPTION TYPE cx_sy_struct_attributes.
ENDIF.
LOOP AT p_components INTO ls_component.
IF ls_component-name IS INITIAL.
RAISE EXCEPTION TYPE cx_sy_struct_comp_name.
ELSEIF ls_component-type IS INITIAL.
RAISE EXCEPTION TYPE cx_sy_struct_comp_type.
ELSEIF strlen( ls_component-name ) > 30. " todo, use abap_max_comp_name_ln
RAISE EXCEPTION TYPE cx_sy_struct_comp_name.
ENDIF.
ENDLOOP.
CREATE OBJECT ref.
LOOP AT p_components INTO ls_component.
CLEAR ls_ref.
ls_ref-name = ls_component-name.
ls_ref-type = ls_component-type.
APPEND ls_ref TO ref->mt_refs.
ENDLOOP.
ref->update_components( ).
ref->type_kind = typekind_struct2.
ref->kind = kind_struct.
ENDMETHOD.
METHOD get_included_view.
DATA ls_component LIKE LINE OF components.
DATA ls_view LIKE LINE OF p_result.
DATA ls_ref LIKE LINE OF mt_refs.
LOOP AT components INTO ls_component.
CLEAR ls_view.
ls_view-name = ls_component-name.
READ TABLE mt_refs WITH KEY name = ls_component-name INTO ls_ref.
IF sy-subrc = 0.
ls_view-type = ls_ref-type.
ENDIF.
IF ls_ref-as_include = abap_true.
CONTINUE.
ENDIF.
INSERT ls_view INTO TABLE p_result.
ENDLOOP.
ENDMETHOD.
METHOD get_ddic_field_list.
DATA lt_components TYPE component_table.
DATA ls_component LIKE LINE OF lt_components.
DATA ls_return LIKE LINE OF rt_components.
DATA lv_name TYPE string.
DATA lv_keyfield TYPE string.
DATA lo_elemdescr TYPE REF TO cl_abap_elemdescr.
FIELD-SYMBOLS <component> LIKE LINE OF rt_components.
lt_components = get_components( ).
ASSERT absolute_name CP ''+TYPE=*''.
lv_name = absolute_name+6.
LOOP AT lt_components INTO ls_component.
CLEAR ls_return.
ls_return-tabname = lv_name.
ls_return-fieldname = ls_component-name.
IF ls_component-type->kind = cl_abap_typedescr=>kind_elem.
lo_elemdescr ?= ls_component-type.
ls_return-leng = lo_elemdescr->output_length.
ENDIF.
* todo, fill more fields in ls_return
APPEND ls_return TO rt_components.
ENDLOOP.
* WRITE ''@KERNEL console.dir(abap.DDIC[lv_name.get()]?.keyFields);''.
WRITE ''@KERNEL for (const keyfield of abap.DDIC[lv_name.get()]?.keyFields || [] ) {''.
WRITE ''@KERNEL lv_keyfield.set(keyfield);''.
* WRITE ''@KERNEL console.dir(rt_components.array()[0].get());''.
READ TABLE rt_components ASSIGNING <component> WITH KEY fieldname = lv_keyfield.
ASSERT sy-subrc = 0.
<component>-keyflag = abap_true.
WRITE ''@KERNEL }''.
ENDMETHOD.
METHOD construct_from_data.
* todo, this method should be private
DATA lv_name TYPE string.
DATA ls_ref LIKE LINE OF mt_refs.
DATA lv_suffix TYPE string.
DATA lv_as_include TYPE abap_bool.
DATA lo_datadescr TYPE REF TO cl_abap_datadescr.
FIELD-SYMBOLS <fs> TYPE any.
CREATE OBJECT descr.
* todo, fail if input is not a structure?
WRITE ''@KERNEL for (const name of Object.keys(INPUT.data.value)) {''.
WRITE ''@KERNEL lv_name.set(name.toUpperCase());''.
ASSIGN COMPONENT lv_name OF STRUCTURE data TO <fs>.
lo_datadescr ?= cl_abap_typedescr=>describe_by_data( <fs> ).
ls_ref-name = lv_name.
ls_ref-type = lo_datadescr.
WRITE ''@KERNEL if (INPUT.data?.getAsInclude) {''.
WRITE ''@KERNEL lv_as_include.set(INPUT.data?.getAsInclude()?.[name.toLowerCase()] ? "X" : " ");''.
WRITE ''@KERNEL }''.
ls_ref-as_include = lv_as_include.
WRITE ''@KERNEL if (INPUT.data?.getSuffix) {''.
WRITE ''@KERNEL lv_as_include.set(INPUT.data?.getSuffix()?.[name.toLowerCase()] || "");''.
WRITE ''@KERNEL }''.
ls_ref-suffix = lv_suffix.
APPEND ls_ref TO descr->mt_refs.
WRITE ''@KERNEL }''.
descr->update_components( ).
ENDMETHOD.
METHOD update_components.
DATA ls_component LIKE LINE OF components.
FIELD-SYMBOLS <ls_ref> LIKE LINE OF mt_refs.
CLEAR components.
LOOP AT mt_refs ASSIGNING <ls_ref>.
ls_component-name = <ls_ref>-name.
ls_component-type_kind = <ls_ref>-type->type_kind.
ls_component-length = <ls_ref>-type->length.
ls_component-decimals = <ls_ref>-type->decimals.
APPEND ls_component TO components.
ENDLOOP.
ENDMETHOD.
METHOD get_components.
rt_components = mt_refs.
ENDMETHOD.
METHOD get_component_type.
FIELD-SYMBOLS <line> LIKE LINE OF mt_refs.
READ TABLE mt_refs ASSIGNING <line> WITH KEY name = p_name.
IF sy-subrc <> 0.
RAISE component_not_found.
ELSE.
p_descr_ref = <line>-type.
ENDIF.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_TABLEDESCR ', 'CLASS cl_abap_tabledescr DEFINITION PUBLIC INHERITING FROM cl_abap_datadescr.
PUBLIC SECTION.
DATA has_unique_key TYPE abap_bool READ-ONLY.
DATA key TYPE abap_keydescr_tab READ-ONLY.
DATA key_defkind TYPE abap_keydefkind READ-ONLY.
DATA table_kind TYPE abap_tablekind.
CONSTANTS tablekind_any TYPE c LENGTH 1 VALUE ''A''.
CONSTANTS tablekind_std TYPE c LENGTH 1 VALUE ''S''.
CONSTANTS tablekind_index TYPE c LENGTH 1 VALUE ''I''.
CONSTANTS tablekind_hashed TYPE c LENGTH 1 VALUE ''H''.
CONSTANTS tablekind_sorted TYPE c LENGTH 1 VALUE ''O''.
CONSTANTS keydefkind_default TYPE c LENGTH 1 VALUE ''D''.
CONSTANTS keydefkind_tableline TYPE c LENGTH 1 VALUE ''L''.
CONSTANTS keydefkind_user TYPE c LENGTH 1 VALUE ''U''.
CONSTANTS keydefkind_empty TYPE c LENGTH 1 VALUE ''E''.
CLASS-METHODS
construct_from_data
IMPORTING data TYPE any
RETURNING VALUE(descr) TYPE REF TO cl_abap_tabledescr.
METHODS get_table_line_type
RETURNING
VALUE(type) TYPE REF TO cl_abap_datadescr.
CLASS-METHODS get
IMPORTING type TYPE REF TO cl_abap_typedescr
RETURNING VALUE(val) TYPE REF TO cl_abap_tabledescr.
CLASS-METHODS get_with_keys
IMPORTING
p_line_type TYPE REF TO cl_abap_datadescr
p_keys TYPE abap_table_keydescr_tab
RETURNING
VALUE(p_result) TYPE REF TO cl_abap_tabledescr.
CLASS-METHODS create
IMPORTING
p_line_type TYPE REF TO cl_abap_typedescr
p_table_kind TYPE abap_tablekind DEFAULT tablekind_std
p_unique TYPE abap_bool DEFAULT abap_false
p_key TYPE abap_keydescr_tab OPTIONAL
p_key_kind TYPE abap_keydefkind DEFAULT keydefkind_default
RETURNING
VALUE(ref) TYPE REF TO cl_abap_tabledescr.
METHODS get_keys
RETURNING
VALUE(p_keys) TYPE abap_table_keydescr_tab.
PRIVATE SECTION.
DATA mo_line_type TYPE REF TO cl_abap_typedescr.
DATA mt_keys TYPE abap_table_keydescr_tab.
ENDCLASS.
CLASS cl_abap_tabledescr IMPLEMENTATION.
METHOD create.
CREATE OBJECT ref.
ref->has_unique_key = p_unique.
ref->mo_line_type = p_line_type.
ref->key = p_key.
ref->key_defkind = p_key_kind.
ref->table_kind = p_table_kind.
" cl_abap_typedescr
ref->type_kind = typekind_table.
ref->kind = kind_table.
ENDMETHOD.
METHOD get_keys.
p_keys = mt_keys.
ENDMETHOD.
METHOD get_with_keys.
DATA ls_key LIKE LINE OF p_keys.
IF lines( p_keys ) <> 1.
ASSERT 1 = ''todo''.
ENDIF.
READ TABLE p_keys INDEX 1 INTO ls_key.
ASSERT sy-subrc = 0.
CREATE OBJECT p_result.
p_result->has_unique_key = ls_key-is_unique.
p_result->mo_line_type = p_line_type.
p_result->key_defkind = ls_key-key_kind.
p_result->table_kind = ls_key-access_kind.
p_result->mt_keys = p_keys.
" cl_abap_typedescr
p_result->type_kind = typekind_table.
p_result->kind = kind_table.
ENDMETHOD.
METHOD get.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD construct_from_data.
* todo, this method should be private
DATA lv_dummy TYPE i.
DATA lv_flag TYPE abap_bool.
DATA lv_str TYPE string.
DATA lv_type TYPE string.
DATA lo_struct TYPE REF TO cl_abap_structdescr.
DATA lt_components TYPE cl_abap_structdescr=>component_table.
DATA ls_component LIKE LINE OF lt_components.
DATA ls_key TYPE LINE OF abap_keydescr_tab.
CREATE OBJECT descr.
WRITE ''@KERNEL lv_flag.set(data.getOptions()?.primaryKey?.isUnique === true ? "X" : "");''.
descr->has_unique_key = lv_flag.
WRITE ''@KERNEL lv_type.set(data.getOptions()?.primaryKey?.type || "");''.
CASE lv_type.
WHEN ''STANDARD''.
descr->table_kind = tablekind_std.
WHEN ''SORTED''.
descr->table_kind = tablekind_sorted.
WHEN ''HASHED''.
descr->table_kind = tablekind_hashed.
WHEN OTHERS.
descr->table_kind = tablekind_std.
ENDCASE.
WRITE ''@KERNEL lv_dummy = data.getRowType();''.
descr->mo_line_type = cl_abap_typedescr=>describe_by_data( lv_dummy ).
WRITE ''@KERNEL lv_flag.set(data.getOptions()?.primaryKey?.keyFields.length > 0 ? "X" : "");''.
IF lv_flag = abap_true.
descr->key_defkind = keydefkind_user.
WRITE ''@KERNEL for (const k of data.getOptions()?.primaryKey?.keyFields) {''.
WRITE ''@KERNEL lv_str.set(k);''.
ls_key-name = lv_str.
APPEND ls_key TO descr->key.
WRITE ''@KERNEL }''.
IF lines( descr->key ) = 1 AND ls_key-name = ''TABLE_LINE''.
descr->key_defkind = keydefkind_tableline.
ENDIF.
ELSE.
* EMPTY KEY currently not supported in open-abap
descr->key_defkind = keydefkind_default.
IF descr->mo_line_type->kind = kind_struct.
lo_struct ?= descr->mo_line_type.
lt_components = lo_struct->get_components( ).
LOOP AT lt_components INTO ls_component.
ls_key-name = ls_component-name.
APPEND ls_key TO descr->key.
ENDLOOP.
ENDIF.
ENDIF.
ENDMETHOD.
METHOD get_table_line_type.
type ?= mo_line_type.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_TYPEDESCR ', 'CLASS cl_abap_typedescr DEFINITION PUBLIC.
* todo, this class should be ABSTRACT
PUBLIC SECTION.
CLASS-METHODS
describe_by_data
IMPORTING p_data TYPE any
RETURNING VALUE(type) TYPE REF TO cl_abap_typedescr.
CLASS-METHODS
describe_by_name
IMPORTING
p_name TYPE clike
RETURNING
VALUE(type) TYPE REF TO cl_abap_typedescr
EXCEPTIONS
type_not_found.
CLASS-METHODS
describe_by_data_ref
IMPORTING p_data_ref TYPE REF TO data
RETURNING VALUE(type) TYPE REF TO cl_abap_typedescr.
CLASS-METHODS
describe_by_object_ref
IMPORTING
p_object_ref TYPE REF TO object
RETURNING
VALUE(p_descr_ref) TYPE REF TO cl_abap_typedescr
EXCEPTIONS
reference_is_initial.
METHODS get_ddic_header
RETURNING
VALUE(p_header) TYPE abap_bool. " hmm, todo
METHODS
get_relative_name
RETURNING
VALUE(name) TYPE string.
METHODS
is_ddic_type
RETURNING
VALUE(p_abap_bool) TYPE abap_bool.
METHODS is_instantiatable
RETURNING
VALUE(p_result) TYPE abap_bool.
METHODS get_ddic_object
RETURNING
VALUE(p_object) TYPE string_table
EXCEPTIONS
not_found
no_ddic_type.
DATA type_kind TYPE abap_typekind.
DATA kind TYPE c LENGTH 1.
DATA ddic TYPE abap_bool.
DATA length TYPE i.
DATA decimals TYPE i.
DATA absolute_name TYPE abap_abstypename.
DATA relative_name TYPE string.
CONSTANTS typekind_any TYPE abap_typekind VALUE ''~''.
CONSTANTS typekind_char TYPE abap_typekind VALUE ''C''.
CONSTANTS typekind_class TYPE abap_typekind VALUE ''*''.
CONSTANTS typekind_clike TYPE abap_typekind VALUE ''&''.
CONSTANTS typekind_csequence TYPE abap_typekind VALUE ''?''.
CONSTANTS typekind_data TYPE abap_typekind VALUE ''#''.
CONSTANTS typekind_date TYPE abap_typekind VALUE ''D''.
CONSTANTS typekind_decfloat TYPE abap_typekind VALUE ''/''.
CONSTANTS typekind_decfloat16 TYPE abap_typekind VALUE ''a''.
CONSTANTS typekind_decfloat34 TYPE abap_typekind VALUE ''e''.
CONSTANTS typekind_dref TYPE abap_typekind VALUE ''l''.
CONSTANTS typekind_enum TYPE abap_typekind VALUE ''k''.
CONSTANTS typekind_float TYPE abap_typekind VALUE ''F''.
CONSTANTS typekind_hex TYPE abap_typekind VALUE ''X''.
CONSTANTS typekind_int TYPE abap_typekind VALUE ''I''.
CONSTANTS typekind_int1 TYPE abap_typekind VALUE ''b''.
CONSTANTS typekind_int2 TYPE abap_typekind VALUE ''s''.
CONSTANTS typekind_int8 TYPE abap_typekind VALUE ''8''.
CONSTANTS typekind_intf TYPE abap_typekind VALUE ''+''.
CONSTANTS typekind_iref TYPE abap_typekind VALUE ''m''.
CONSTANTS typekind_num TYPE abap_typekind VALUE ''N''.
CONSTANTS typekind_numeric TYPE abap_typekind VALUE ''%''.
CONSTANTS typekind_oref TYPE abap_typekind VALUE ''r''.
CONSTANTS typekind_packed TYPE abap_typekind VALUE ''P''.
CONSTANTS typekind_simple TYPE abap_typekind VALUE ''$''.
CONSTANTS typekind_string TYPE abap_typekind VALUE ''g''.
CONSTANTS typekind_struct1 TYPE abap_typekind VALUE ''u''.
CONSTANTS typekind_struct2 TYPE abap_typekind VALUE ''v''.
CONSTANTS typekind_table TYPE abap_typekind VALUE ''h''.
CONSTANTS typekind_time TYPE abap_typekind VALUE ''T''.
CONSTANTS typekind_utclong TYPE abap_typekind VALUE ''p''.
CONSTANTS typekind_w TYPE abap_typekind VALUE ''w''.
CONSTANTS typekind_xstring TYPE abap_typekind VALUE ''y''.
CONSTANTS kind_elem TYPE c LENGTH 1 VALUE ''E''.
CONSTANTS kind_struct TYPE c LENGTH 1 VALUE ''S''.
CONSTANTS kind_table TYPE c LENGTH 1 VALUE ''T''.
CONSTANTS kind_ref TYPE c LENGTH 1 VALUE ''R''.
CONSTANTS kind_class TYPE c LENGTH 1 VALUE ''C''.
CONSTANTS kind_intf TYPE c LENGTH 1 VALUE ''I''.
PRIVATE SECTION.
CLASS-DATA gv_counter TYPE n LENGTH 10.
CLASS-METHODS describe_by_dashes
IMPORTING p_name TYPE clike
RETURNING VALUE(type) TYPE REF TO cl_abap_typedescr.
CLASS-METHODS is_deep
IMPORTING io_struct TYPE REF TO cl_abap_structdescr
RETURNING VALUE(rv_deep) TYPE abap_bool.
ENDCLASS.
CLASS cl_abap_typedescr IMPLEMENTATION.
METHOD get_ddic_object.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD is_instantiatable.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD describe_by_dashes.
DATA lt_parts TYPE STANDARD TABLE OF string WITH DEFAULT KEY.
DATA lv_part LIKE LINE OF lt_parts.
DATA lo_current TYPE REF TO cl_abap_typedescr.
DATA lo_struct TYPE REF TO cl_abap_structdescr.
SPLIT p_name AT ''-'' INTO TABLE lt_parts.
LOOP AT lt_parts INTO lv_part.
IF lo_current IS INITIAL.
lo_current = describe_by_name( lv_part ).
ELSEIF lo_current->kind = kind_struct.
lo_struct ?= lo_current.
lo_current = lo_struct->get_component_type( lv_part ).
ENDIF.
ENDLOOP.
type = lo_current.
ENDMETHOD.
METHOD describe_by_name.
DATA ref TYPE REF TO data.
DATA objectdescr TYPE REF TO cl_abap_objectdescr.
DATA oo_type TYPE string.
DATA lv_any TYPE string.
* note, p_name might be internal name, so check and skip these,
IF p_name CA ''-'' AND p_name NP ''CLAS-*'' AND p_name NP ''PROG-*''.
type = describe_by_dashes( p_name ).
RETURN.
ENDIF.
WRITE ''@KERNEL oo_type.set(abap.Classes[p_name.get().toUpperCase().trimEnd()]?.INTERNAL_TYPE || "");''.
WRITE ''@KERNEL lv_any = abap.Classes[p_name.get().toUpperCase().trimEnd()];''.
CASE oo_type.
WHEN ''INTF''.
CREATE OBJECT type TYPE cl_abap_intfdescr
EXPORTING
p_object = lv_any.
type->type_kind = typekind_intf.
type->kind = kind_intf.
type->relative_name = to_upper( p_name ).
type->absolute_name = ''\\CLASS='' && to_upper( p_name ).
objectdescr ?= type.
objectdescr->mv_object_name = to_upper( p_name ). " todo, this should give syntax error, as they are not friends
objectdescr->mv_object_type = oo_type. " todo, this should give syntax error, as they are not friends
WHEN ''CLAS''.
CREATE OBJECT type TYPE cl_abap_classdescr.
type->type_kind = typekind_class.
type->kind = kind_class.
type->relative_name = to_upper( p_name ).
IF p_name CP ''CLAS-*''.
type->absolute_name = kernel_internal_name=>internal_to_rtti( p_name ).
ELSE.
type->absolute_name = ''\\CLASS='' && to_upper( p_name ).
ENDIF.
objectdescr ?= type.
objectdescr->mv_object_name = to_upper( p_name ). " todo, this should give syntax error, as they are not friends
objectdescr->mv_object_type = oo_type. " todo, this should give syntax error, as they are not friends
WHEN OTHERS.
TRY.
CREATE DATA ref TYPE (p_name).
CATCH cx_sy_create_data_error.
RAISE type_not_found.
ENDTRY.
type = describe_by_data_ref( ref ).
ENDCASE.
ENDMETHOD.
METHOD get_relative_name.
name = relative_name.
ENDMETHOD.
METHOD get_ddic_header.
ASSERT 1 = 2.
ENDMETHOD.
METHOD is_ddic_type.
p_abap_bool = ddic.
ENDMETHOD.
METHOD describe_by_data_ref.
FIELD-SYMBOLS <ref> TYPE any.
ASSIGN p_data_ref->* TO <ref>.
type = describe_by_data( <ref> ).
ENDMETHOD.
METHOD describe_by_object_ref.
DATA lv_name TYPE string.
DATA lo_cdescr TYPE REF TO cl_abap_classdescr.
DATA lv_any TYPE string.
IF p_object_ref IS INITIAL.
RAISE reference_is_initial.
ENDIF.
WRITE ''@KERNEL lv_any = p_object_ref.get().constructor;''.
CREATE OBJECT lo_cdescr TYPE cl_abap_classdescr
EXPORTING
p_object = lv_any.
lo_cdescr->type_kind = typekind_class.
lo_cdescr->kind = kind_class.
WRITE ''@KERNEL lv_name.set(p_object_ref.get().constructor.name.toUpperCase());''.
lo_cdescr->relative_name = lv_name.
lo_cdescr->absolute_name = ''\\CLASS='' && lv_name.
p_descr_ref = lo_cdescr.
ENDMETHOD.
METHOD is_deep.
DATA lt_components TYPE cl_abap_structdescr=>component_table.
FIELD-SYMBOLS <ls_component> LIKE LINE OF lt_components.
lt_components = io_struct->get_components( ).
rv_deep = abap_false.
LOOP AT lt_components ASSIGNING <ls_component>.
IF <ls_component>-type->kind = kind_struct
OR <ls_component>-type->type_kind = typekind_string
OR <ls_component>-type->type_kind = typekind_xstring
OR <ls_component>-type->kind = kind_table.
rv_deep = abap_true.
RETURN.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD describe_by_data.
DATA lo_elem TYPE REF TO cl_abap_elemdescr.
DATA lo_ref TYPE REF TO cl_abap_refdescr.
DATA lo_struct TYPE REF TO cl_abap_structdescr.
DATA lv_any TYPE string.
DATA lv_convexit TYPE string.
DATA lv_ddicname TYPE string.
DATA lv_decimals TYPE i.
DATA lv_length TYPE i.
DATA lv_name TYPE string.
DATA lv_prefix TYPE string.
DATA lv_qualified TYPE string.
DATA lv_rtti_name TYPE string.
WRITE ''@KERNEL lv_name.set(p_data.constructor.name);''.
WRITE ''@KERNEL lv_length.set(p_data.getLength ? p_data.getLength() : 0);''.
WRITE ''@KERNEL lv_decimals.set(p_data.getDecimals ? p_data.getDecimals() : 0);''.
* These are the constructor names from the js runtime
CASE lv_name.
WHEN ''Integer''.
CREATE OBJECT type TYPE cl_abap_elemdescr.
type->type_kind = typekind_int.
type->kind = kind_elem.
type->length = 4.
lo_elem ?= type.
lo_elem->output_length = 11.
type->absolute_name = ''I''.
WHEN ''Integer8''.
CREATE OBJECT type TYPE cl_abap_elemdescr.
type->type_kind = typekind_int8.
type->kind = kind_elem.
type->length = 8.
lo_elem ?= type.
lo_elem->output_length = 20.
type->absolute_name = ''INT8''.
WHEN ''Numc''.
CREATE OBJECT type TYPE cl_abap_elemdescr.
type->type_kind = typekind_num.
type->kind = kind_elem.
type->length = lv_length * 2.
lo_elem ?= type.
lo_elem->output_length = lv_length.
WHEN ''Hex'' OR ''HexUInt8''.
CREATE OBJECT type TYPE cl_abap_elemdescr.
type->type_kind = typekind_hex.
type->kind = kind_elem.
type->length = lv_length.
lo_elem ?= type.
lo_elem->output_length = lv_length * 2.
WHEN ''Date''.
CREATE OBJECT type TYPE cl_abap_elemdescr.
type->type_kind = typekind_date.
type->kind = kind_elem.
type->length = 16.
lo_elem ?= type.
lo_elem->output_length = 8.
type->absolute_name = ''D''.
WHEN ''Packed''.
CREATE OBJECT type TYPE cl_abap_elemdescr.
type->type_kind = typekind_packed.
type->kind = kind_elem.
type->length = lv_length.
type->decimals = lv_decimals.
WHEN ''Time''.
CREATE OBJECT type TYPE cl_abap_elemdescr.
type->type_kind = typekind_time.
type->kind = kind_elem.
type->length = 12.
lo_elem ?= type.
lo_elem->output_length = 6.
type->absolute_name = ''T''.
WHEN ''Float''.
CREATE OBJECT type TYPE cl_abap_elemdescr.
type->type_kind = typekind_float.
type->kind = kind_elem.
type->absolute_name = ''F''.
WHEN ''DecFloat34''.
CREATE OBJECT type TYPE cl_abap_elemdescr.
type->type_kind = typekind_decfloat34.
type->kind = kind_elem.
WHEN ''Structure''.
lo_struct = cl_abap_structdescr=>construct_from_data( p_data ).
type ?= lo_struct.
IF is_deep( lo_struct ) = abap_true.
type->type_kind = typekind_struct2.
ELSE.
type->type_kind = typekind_struct1.
ENDIF.
type->kind = kind_struct.
WHEN ''Table'' OR ''HashedTable''.
type ?= cl_abap_tabledescr=>construct_from_data( p_data ).
type->type_kind = typekind_table.
type->kind = kind_table.
type->length = 8. " yea, well, because it is. Pointer size?
WHEN ''XString''.
CREATE OBJECT type TYPE cl_abap_elemdescr.
type->type_kind = typekind_xstring.
type->kind = kind_elem.
type->length = 8.
type->absolute_name = ''XSTRING''.
WHEN ''String''.
CREATE OBJECT type TYPE cl_abap_elemdescr.
type->type_kind = typekind_string.
type->kind = kind_elem.
type->length = 8.
type->absolute_name = ''STRING''.
WHEN ''Character''.
CREATE OBJECT type TYPE cl_abap_elemdescr.
type->type_kind = typekind_char.
type->kind = kind_elem.
type->length = lv_length * 2.
lo_elem ?= type.
lo_elem->output_length = lv_length.
WHEN ''FieldSymbol''.
WRITE ''@KERNEL lv_name = p_data.getPointer();''.
type = describe_by_data( lv_name ).
RETURN.
WHEN ''ABAPObject''.
CREATE OBJECT type TYPE cl_abap_refdescr.
type->type_kind = typekind_oref.
type->kind = kind_ref.
lo_ref ?= type.
IF p_data IS INITIAL.
* note: using the name doesnt work for local classes
WRITE ''@KERNEL lv_rtti_name.set(p_data.RTTIName || "");''.
IF lv_rtti_name CP ''\\CLASS-POOL=*''.
* convert to internal name,
lv_rtti_name = kernel_internal_name=>rtti_to_internal( lv_rtti_name ).
lo_ref->referenced = describe_by_name( lv_rtti_name ).
ELSE.
WRITE ''@KERNEL lv_name.set(p_data.qualifiedName || "");''.
lo_ref->referenced = describe_by_name( lv_name ).
ENDIF.
ELSE.
lo_ref->referenced = describe_by_object_ref( p_data ).
ENDIF.
WHEN ''UTCLong''.
CREATE OBJECT type TYPE cl_abap_elemdescr.
type->type_kind = typekind_utclong.
type->kind = kind_elem.
WHEN ''DataReference''.
CREATE OBJECT type TYPE cl_abap_refdescr.
type->type_kind = typekind_dref.
type->kind = kind_ref.
lo_ref ?= type.
WRITE ''@KERNEL lv_any = p_data.type;''.
lo_ref->referenced = describe_by_data( lv_any ).
WHEN OTHERS.
WRITE / lv_name.
ASSERT 1 = ''todo_cl_abap_typedescr''.
ENDCASE.
* WRITE ''@KERNEL console.dir(p_data);''.
WRITE ''@KERNEL lv_ddicname.set(p_data.getDDICName ? p_data.getDDICName() || "" : "");''.
WRITE ''@KERNEL lv_convexit.set(p_data.getConversionExit ? p_data.getConversionExit() || "" : "");''.
WRITE ''@KERNEL lv_qualified.set(p_data.getQualifiedName ? p_data.getQualifiedName() || "" : "");''.
IF lv_qualified NA ''-''.
type->absolute_name = lv_qualified.
ELSEIF lv_ddicname <> ''''.
type->absolute_name = lv_ddicname.
ENDIF.
* this is not completely correct, local type names and ddic names might overlap, but will work for now,
* todo: use/check getDDICName() in the future,
WRITE ''@KERNEL if(abap.DDIC[type.get().absolute_name.get().toUpperCase().trimEnd()]) { type.get().ddic.set("X"); }''.
TRANSLATE type->absolute_name TO UPPER CASE.
TRANSLATE type->relative_name TO UPPER CASE.
IF type->absolute_name = ''ABAP_BOOL''.
type->relative_name = ''ABAP_BOOL''.
type->absolute_name = ''\\TYPE-POOL=ABAP\\TYPE=ABAP_BOOL''.
ELSEIF type->absolute_name IS INITIAL.
gv_counter = gv_counter + 1.
type->absolute_name = ''\\TYPE=%_T000000000000000'' && gv_counter.
ELSEIF type->absolute_name CS ''=>''.
SPLIT type->absolute_name AT ''=>'' INTO lv_prefix type->absolute_name.
type->relative_name = type->absolute_name.
type->absolute_name = ''\\CLASS='' && lv_prefix && ''\\TYPE='' && type->absolute_name.
ELSEIF type->type_kind = typekind_oref.
type->relative_name = type->absolute_name.
type->absolute_name = ''\\CLASS='' && type->absolute_name.
ELSE.
type->relative_name = type->absolute_name.
type->absolute_name = ''\\TYPE='' && type->absolute_name.
ENDIF.
IF lv_convexit <> ''''.
lo_elem->edit_mask = ''=='' && lv_convexit.
ENDIF.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_SHM_AREA ', 'CLASS cl_shm_area DEFINITION PUBLIC INHERITING FROM cx_shm_general_error ABSTRACT.
PUBLIC SECTION.
CONSTANTS default_instance TYPE shm_inst_name VALUE ''$DEFAULT_INSTANCE$''.
CONSTANTS invocation_mode_explicit TYPE shm_constr_invocation_mode VALUE 319200300.
CONSTANTS life_context_appserver TYPE shm_life_context VALUE 109200001.
CONSTANTS attach_mode_default TYPE shm_attach_mode VALUE 1302197000.
CONSTANTS attach_mode_wait TYPE shm_attach_mode VALUE 1302197002.
CONSTANTS affect_local_server TYPE shm_affect_server VALUE 281119720.
DATA properties TYPE shm_properties READ-ONLY.
DATA inst_name TYPE shm_inst_name READ-ONLY.
DATA client TYPE mandt READ-ONLY.
METHODS detach_commit
RAISING
cx_shm_wrong_handle
cx_shm_already_detached
cx_shm_secondary_commit
cx_shm_event_execution_failed
cx_shm_completion_error.
METHODS detach
RAISING
cx_shm_wrong_handle
cx_shm_already_detached.
METHODS get_root ABSTRACT
RETURNING
VALUE(root) TYPE REF TO object
RAISING
cx_shm_already_detached.
METHODS is_valid
RETURNING
VALUE(valid) TYPE abap_bool.
PROTECTED SECTION.
DATA inst_trace_active TYPE abap_bool VALUE abap_false.
DATA inst_trace_service TYPE REF TO if_shm_trace.
DATA _lock TYPE %_c_pointer.
CONSTANTS attach_mode_wait_2nd_try TYPE shm_attach_mode VALUE 1302197003.
METHODS _attach_read71
IMPORTING
sneak_mode TYPE abap_bool DEFAULT abap_false
area_name TYPE shm_area_name
life_context TYPE shm_life_context
EXPORTING
root TYPE REF TO object
RAISING
cx_shm_inconsistent
cx_shm_no_active_version
cx_shm_read_lock_active
cx_shm_exclusive_lock_active
cx_shm_parameter_error
cx_shm_change_lock_active.
METHODS _attach_update70
IMPORTING
area_name TYPE shm_area_name
mode TYPE shm_attach_mode
EXPORTING
root TYPE REF TO object
CHANGING
wait_time TYPE i OPTIONAL
RAISING
cx_shm_inconsistent
cx_shm_exclusive_lock_active
cx_shm_change_lock_active
cx_shm_version_limit_exceeded
cx_shm_no_active_version
cx_shm_parameter_error
cx_shm_pending_lock_removed.
METHODS _attach_write70
IMPORTING
area_name TYPE shm_area_name
mode TYPE shm_attach_mode
EXPORTING
root TYPE REF TO object
CHANGING
wait_time TYPE i OPTIONAL
RAISING
cx_shm_version_limit_exceeded
cx_shm_exclusive_lock_active
cx_shm_change_lock_active
cx_shm_parameter_error
cx_shm_pending_lock_removed.
CLASS-METHODS _invalidate_area71
IMPORTING
area_name TYPE shm_area_name
client TYPE shm_client
client_supplied TYPE abap_bool DEFAULT abap_false
transactional TYPE abap_bool DEFAULT abap_false
client_dependent TYPE abap_bool DEFAULT abap_false
terminate_changer TYPE abap_bool
affect_server TYPE shm_affect_server
life_context TYPE shm_life_context DEFAULT life_context_appserver
RETURNING
VALUE(rc) TYPE shm_rc
RAISING
cx_shm_parameter_error.
CLASS-METHODS _invalidate_instance71
IMPORTING
area_name TYPE shm_area_name
inst_name TYPE shm_inst_name
client TYPE shm_client
client_supplied TYPE abap_bool DEFAULT abap_false
transactional TYPE abap_bool DEFAULT abap_false
client_dependent TYPE abap_bool DEFAULT abap_false
terminate_changer TYPE abap_bool
affect_server TYPE shm_affect_server
life_context TYPE shm_life_context DEFAULT life_context_appserver
RETURNING
VALUE(rc) TYPE shm_rc
RAISING
cx_shm_parameter_error.
METHODS _set_root
IMPORTING
root TYPE REF TO object
RAISING
cx_shm_wrong_handle
cx_shm_initial_reference.
CLASS-METHODS _detach_area71
IMPORTING
area_name TYPE shm_area_name
client TYPE shm_client
client_supplied TYPE abap_bool
client_dependent TYPE abap_bool DEFAULT abap_false
life_context TYPE shm_life_context
RETURNING
VALUE(rc) TYPE shm_rc.
CLASS-METHODS _free_area71
IMPORTING
area_name TYPE shm_area_name
client TYPE shm_client
client_supplied TYPE abap_bool DEFAULT abap_false
transactional TYPE abap_bool DEFAULT abap_false
client_dependent TYPE abap_bool DEFAULT abap_false
terminate_changer TYPE abap_bool
affect_server TYPE shm_affect_server
life_context TYPE shm_life_context DEFAULT life_context_appserver
RETURNING
VALUE(rc) TYPE shm_rc
RAISING
cx_shm_parameter_error.
CLASS-METHODS _get_instance_infos71
IMPORTING
area_name TYPE shm_area_name
client TYPE shm_client
client_supplied TYPE abap_bool DEFAULT abap_false
client_dependent TYPE abap_bool DEFAULT abap_false
life_context TYPE shm_life_context
RETURNING
VALUE(infos) TYPE shm_inst_infos.
CLASS-METHODS _free_instance71
IMPORTING
area_name TYPE shm_area_name
inst_name TYPE shm_inst_name
client TYPE shm_client
client_supplied TYPE abap_bool DEFAULT abap_false
transactional TYPE abap_bool DEFAULT abap_false
client_dependent TYPE abap_bool DEFAULT abap_false
terminate_changer TYPE abap_bool
affect_server TYPE shm_affect_server
life_context TYPE shm_life_context DEFAULT life_context_appserver
RETURNING
VALUE(rc) TYPE shm_rc
RAISING
cx_shm_parameter_error.
PRIVATE SECTION.
CLASS-DATA mo_root TYPE REF TO object.
ENDCLASS.
CLASS cl_shm_area IMPLEMENTATION.
METHOD is_valid.
valid = abap_true.
ENDMETHOD.
METHOD _free_instance71.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD detach_commit.
RETURN.
ENDMETHOD.
METHOD detach.
RETURN.
ENDMETHOD.
METHOD _attach_read71.
DATA created TYPE REF TO object.
DATA lv_name TYPE string.
IF sneak_mode = abap_false AND mo_root IS INITIAL.
lv_name = area_name.
* todo, this is an evil workaround
REPLACE FIRST OCCURRENCE OF ''_AREA'' IN lv_name WITH ''_ROOT''.
CREATE OBJECT created TYPE (lv_name).
_set_root( created ).
ENDIF.
root = mo_root.
ENDMETHOD.
METHOD _get_instance_infos71.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD _detach_area71.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD _free_area71.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD _set_root.
mo_root = root.
ENDMETHOD.
METHOD _invalidate_instance71.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD _invalidate_area71.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD _attach_update70.
DATA created TYPE REF TO object.
DATA lv_name TYPE string.
IF mo_root IS INITIAL.
* todo, this should respect the auto build flag configuration from the SHMA area
* todo, this is an evil workaround
REPLACE FIRST OCCURRENCE OF ''_AREA'' IN lv_name WITH ''_ROOT''.
CREATE OBJECT created TYPE (lv_name).
_set_root( created ).
ENDIF.
* open-abap is currently single threaded, so no lock conflicts
root = mo_root.
ENDMETHOD.
METHOD _attach_write70.
* open-abap is currently single threaded, so no lock conflicts
RETURN.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_SHM_SERVICE ', 'CLASS cl_shm_service DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS initialize
IMPORTING
area_name TYPE shm_area_name
client TYPE shma_client OPTIONAL
EXPORTING
attributes TYPE shma_attributes.
CLASS-METHODS get_auto_build_class_name
IMPORTING
area_name TYPE shm_area_name
RETURNING
VALUE(auto_build_class_name) TYPE shm_auto_build_class_name
RAISING
cx_shma_not_configured
cx_shma_inconsistent.
CLASS-METHODS trace_get_service
IMPORTING
!area_name TYPE shm_area_name OPTIONAL
RETURNING
VALUE(trace_service) TYPE REF TO if_shm_trace.
CLASS-METHODS trace_is_variant_active
IMPORTING
service_name TYPE shmm_trc_variant_name
RETURNING
VALUE(is_active) TYPE abap_bool.
ENDCLASS.
CLASS cl_shm_service IMPLEMENTATION.
METHOD initialize.
RETURN.
ENDMETHOD.
METHOD get_auto_build_class_name.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD trace_get_service.
* dont dump, this method is called from area CLASS_CONSTRUCTORs
RETURN.
ENDMETHOD.
METHOD trace_is_variant_active.
ASSERT 1 = ''todo''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SHM_ALREADY_DETACHED ', 'CLASS cx_shm_already_detached DEFINITION PUBLIC INHERITING FROM cx_shm_general_error.
PUBLIC SECTION.
METHODS constructor
IMPORTING
textid LIKE textid OPTIONAL
previous LIKE previous OPTIONAL
area_name TYPE string OPTIONAL
inst_name TYPE string OPTIONAL
client TYPE string OPTIONAL.
ENDCLASS.
CLASS cx_shm_already_detached IMPLEMENTATION.
METHOD constructor.
RETURN.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SHM_ATTACH_ERROR ', 'CLASS cx_shm_attach_error DEFINITION PUBLIC INHERITING FROM cx_shm_error.
ENDCLASS.
CLASS cx_shm_attach_error IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SHM_BUILD_FAILED ', 'CLASS cx_shm_build_failed DEFINITION PUBLIC INHERITING FROM cx_shm_general_error.
ENDCLASS.
CLASS cx_shm_build_failed IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SHM_CHANGE_LOCK_ACTIVE ', 'CLASS cx_shm_change_lock_active DEFINITION PUBLIC INHERITING FROM cx_shm_attach_error.
ENDCLASS.
CLASS cx_shm_change_lock_active IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SHM_COMPLETION_ERROR ', 'CLASS cx_shm_completion_error DEFINITION PUBLIC INHERITING FROM cx_shm_detach_error.
ENDCLASS.
CLASS cx_shm_completion_error IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SHM_DETACH_ERROR ', 'CLASS cx_shm_detach_error DEFINITION PUBLIC INHERITING FROM cx_dynamic_check.
ENDCLASS.
CLASS cx_shm_detach_error IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SHM_ERROR ', 'CLASS cx_shm_error DEFINITION PUBLIC INHERITING FROM cx_static_check.
ENDCLASS.
CLASS cx_shm_error IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SHM_EVENT_EXECUTION_FAILED ', 'CLASS cx_shm_event_execution_failed DEFINITION PUBLIC INHERITING FROM cx_shm_completion_error.
ENDCLASS.
CLASS cx_shm_event_execution_failed IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SHM_EXCLUSIVE_LOCK_ACTIVE ', 'CLASS cx_shm_exclusive_lock_active DEFINITION PUBLIC INHERITING FROM cx_shm_attach_error.
ENDCLASS.
CLASS cx_shm_exclusive_lock_active IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SHM_GENERAL_ERROR ', 'CLASS cx_shm_general_error DEFINITION PUBLIC INHERITING FROM cx_dynamic_check.
ENDCLASS.
CLASS cx_shm_general_error IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SHM_INCONSISTENT ', 'CLASS cx_shm_inconsistent DEFINITION PUBLIC INHERITING FROM cx_shm_attach_error.
ENDCLASS.
CLASS cx_shm_inconsistent IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SHM_INITIAL_REFERENCE ', 'CLASS cx_shm_initial_reference DEFINITION PUBLIC INHERITING FROM cx_shm_general_error.
ENDCLASS.
CLASS cx_shm_initial_reference IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SHM_NO_ACTIVE_VERSION ', 'CLASS cx_shm_no_active_version DEFINITION PUBLIC INHERITING FROM cx_shm_attach_error.
ENDCLASS.
CLASS cx_shm_no_active_version IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SHM_PARAMETER_ERROR ', 'CLASS cx_shm_parameter_error DEFINITION PUBLIC INHERITING FROM cx_shm_general_error.
ENDCLASS.
CLASS cx_shm_parameter_error IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SHM_PENDING_LOCK_REMOVED ', 'CLASS cx_shm_pending_lock_removed DEFINITION PUBLIC INHERITING FROM cx_shm_attach_error.
ENDCLASS.
CLASS cx_shm_pending_lock_removed IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SHM_READ_LOCK_ACTIVE ', 'CLASS cx_shm_read_lock_active DEFINITION PUBLIC INHERITING FROM cx_shm_attach_error.
ENDCLASS.
CLASS cx_shm_read_lock_active IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SHM_SECONDARY_COMMIT ', 'CLASS cx_shm_secondary_commit DEFINITION PUBLIC INHERITING FROM cx_shm_detach_error.
ENDCLASS.
CLASS cx_shm_secondary_commit IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SHM_VERSION_LIMIT_EXCEEDED ', 'CLASS cx_shm_version_limit_exceeded DEFINITION PUBLIC INHERITING FROM cx_shm_attach_error.
ENDCLASS.
CLASS cx_shm_version_limit_exceeded IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SHM_WRONG_HANDLE ', 'CLASS cx_shm_wrong_handle DEFINITION PUBLIC INHERITING FROM cx_shm_general_error.
ENDCLASS.
CLASS cx_shm_wrong_handle IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SHMA_DYNAMIC ', 'CLASS cx_shma_dynamic DEFINITION PUBLIC INHERITING FROM cx_dynamic_check.
ENDCLASS.
CLASS cx_shma_dynamic IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SHMA_INCONSISTENT ', 'CLASS cx_shma_inconsistent DEFINITION PUBLIC INHERITING FROM cx_shma_dynamic.
ENDCLASS.
CLASS cx_shma_inconsistent IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SHMA_NOT_CONFIGURED ', 'CLASS cx_shma_not_configured DEFINITION PUBLIC INHERITING FROM cx_shma_dynamic.
ENDCLASS.
CLASS cx_shma_not_configured IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_SHM_BUILD_INSTANCE ', 'INTERFACE if_shm_build_instance PUBLIC.
CLASS-METHODS build
IMPORTING
inst_name TYPE shm_inst_name DEFAULT cl_shm_area=>default_instance
invocation_mode TYPE shm_constr_invocation_mode DEFAULT cl_shm_area=>invocation_mode_explicit
RAISING
cx_shm_build_failed.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_SHM_TRACE ', 'INTERFACE if_shm_trace PUBLIC.
DATA: BEGIN OF variant,
def_name TYPE shmm_trc_variant_name,
attach_for_upd TYPE abap_bool,
attach_for_read TYPE abap_bool,
free_area TYPE abap_bool,
detach_area TYPE abap_bool,
set_root TYPE abap_bool,
invalidate_inst TYPE abap_bool,
get_instance_inf TYPE abap_bool,
free_instance TYPE abap_bool,
invalidate_area TYPE abap_bool,
build TYPE abap_bool,
attach_for_write TYPE abap_bool,
get_root TYPE abap_bool,
END OF variant.
METHODS trin_attach_for_write
IMPORTING
area_name TYPE shm_area_name
inst_name TYPE shm_inst_name DEFAULT cl_shm_area=>default_instance
client TYPE shm_client DEFAULT sy-mandt
mode TYPE shm_attach_mode DEFAULT cl_shm_area=>attach_mode_default
wait_time TYPE i DEFAULT 0.
METHODS trcx_attach_for_write
IMPORTING
area_name TYPE shm_area_name
inst_name TYPE shm_inst_name DEFAULT cl_shm_area=>default_instance
client TYPE shm_client DEFAULT sy-mandt
mode TYPE shm_attach_mode DEFAULT cl_shm_area=>attach_mode_default
wait_time TYPE i DEFAULT 0
cx TYPE REF TO cx_root.
METHODS trin_attach_for_update
IMPORTING
area_name TYPE shm_area_name
inst_name TYPE shm_inst_name DEFAULT cl_shm_area=>default_instance
client TYPE shm_client DEFAULT sy-mandt
mode TYPE shm_attach_mode DEFAULT cl_shm_area=>attach_mode_default
wait_time TYPE i DEFAULT 0.
METHODS trcx_attach_for_update
IMPORTING
area_name TYPE shm_area_name
inst_name TYPE shm_inst_name DEFAULT cl_shm_area=>default_instance
client TYPE shm_client DEFAULT sy-mandt
mode TYPE shm_attach_mode DEFAULT cl_shm_area=>attach_mode_default
wait_time TYPE i DEFAULT 0
cx TYPE REF TO cx_root.
METHODS trin_attach_for_read
IMPORTING
area_name TYPE shm_area_name
inst_name TYPE shm_inst_name DEFAULT cl_shm_area=>default_instance
client TYPE shm_client DEFAULT sy-mandt.
METHODS trcx_attach_for_read
IMPORTING
area_name TYPE shm_area_name
inst_name TYPE shm_inst_name DEFAULT cl_shm_area=>default_instance
client TYPE shm_client DEFAULT sy-mandt
cx TYPE REF TO cx_root.
METHODS trin_build
IMPORTING
area_name TYPE shm_area_name
inst_name TYPE shm_inst_name DEFAULT cl_shm_area=>default_instance.
METHODS trcx_build
IMPORTING
area_name TYPE shm_area_name
inst_name TYPE shm_inst_name DEFAULT cl_shm_area=>default_instance
cx TYPE REF TO cx_root.
METHODS trin_set_root
IMPORTING
area_name TYPE shm_area_name
inst_name TYPE shm_inst_name
root TYPE REF TO object.
METHODS trcx_set_root
IMPORTING
area_name TYPE shm_area_name
inst_name TYPE shm_inst_name
root TYPE REF TO object
cx TYPE REF TO cx_root.
METHODS trin_detach_area
IMPORTING
area_name TYPE shm_area_name
client TYPE shm_client DEFAULT sy-mandt
rc TYPE shm_rc.
METHODS trin_free_area
IMPORTING
area_name TYPE shm_area_name
client TYPE shm_client DEFAULT sy-mandt
terminate_changer TYPE abap_bool DEFAULT abap_true
affect_server TYPE shm_affect_server OPTIONAL
rc TYPE shm_rc.
METHODS trin_free_instance
IMPORTING
area_name TYPE shm_area_name
inst_name TYPE shm_inst_name DEFAULT cl_shm_area=>default_instance
client TYPE shm_client DEFAULT sy-mandt
terminate_changer TYPE abap_bool DEFAULT abap_true
affect_server TYPE shm_affect_server OPTIONAL
rc TYPE shm_rc.
METHODS trin_get_instance_infos
IMPORTING
area_name TYPE shm_area_name
inst_name TYPE shm_inst_name OPTIONAL
client TYPE shm_client DEFAULT sy-mandt
infos TYPE shm_inst_infos.
METHODS trin_invalidate_area
IMPORTING
area_name TYPE shm_area_name
client TYPE shm_client DEFAULT sy-mandt
rc TYPE shm_rc
affect_server TYPE shm_affect_server OPTIONAL
terminate_changer TYPE abap_bool DEFAULT abap_true.
METHODS trin_invalidate_instance
IMPORTING
area_name TYPE shm_area_name
inst_name TYPE shm_inst_name DEFAULT cl_shm_area=>default_instance
client TYPE shm_client DEFAULT sy-mandt
terminate_changer TYPE abap_bool DEFAULT abap_true
affect_server TYPE shm_affect_server OPTIONAL
rc TYPE shm_rc.
METHODS trin_get_root
IMPORTING
area_name TYPE shm_area_name.
METHODS trcx_get_root
IMPORTING
area_name TYPE shm_area_name
cx TYPE REF TO cx_root.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_MIME_REPOSITORY_API ', 'CLASS cl_mime_repository_api DEFINITION PUBLIC FINAL CREATE PRIVATE.
PUBLIC SECTION.
INTERFACES if_mr_api.
ALIASES get_api FOR if_mr_api~get_api.
ENDCLASS.
CLASS cl_mime_repository_api IMPLEMENTATION.
METHOD if_mr_api~get_by_io.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_mr_api~get_url_for_io.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_mr_api~get_api.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_mr_api~get.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_mr_api~create_folder.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_mr_api~put.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_mr_api~delete.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_mr_api~file_list.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_mr_api~properties.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_mr_api~get_io_for_url.
ASSERT 1 = ''todo''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_MR_API ', 'INTERFACE if_mr_api PUBLIC.
CLASS-METHODS get_api
IMPORTING
i_prefix TYPE csequence DEFAULT space
RETURNING
VALUE(r_mr_api) TYPE REF TO if_mr_api.
METHODS get
IMPORTING
i_url TYPE csequence
i_check_authority TYPE abap_bool DEFAULT abap_true
EXPORTING
e_is_folder TYPE abap_bool
e_content TYPE xstring
e_mime_type TYPE csequence
e_loio TYPE skwf_io
e_content_last_changed TYPE any
CHANGING
c_language TYPE langu OPTIONAL
EXCEPTIONS
parameter_missing
error_occured
not_found
permission_failure.
METHODS create_folder
IMPORTING
i_url TYPE csequence
i_language TYPE langu DEFAULT sy-langu
i_description TYPE csequence OPTIONAL
i_check_authority TYPE abap_bool DEFAULT abap_true
i_suppress_package_dialog TYPE abap_bool DEFAULT space
i_dev_package TYPE devclass OPTIONAL
i_genflag TYPE abap_bool DEFAULT abap_false
i_corr_number TYPE trkorr OPTIONAL
i_folder_loio TYPE any OPTIONAL
i_suppress_dialogs TYPE abap_bool OPTIONAL
i_folder_role TYPE any OPTIONAL
i_new_folder_role_description TYPE any OPTIONAL
EXPORTING
e_folder_io TYPE skwf_io
EXCEPTIONS
parameter_missing
error_occured
cancelled
permission_failure
folder_exists.
METHODS put
IMPORTING
i_url TYPE csequence
i_content TYPE xstring
i_language TYPE langu DEFAULT sy-langu
i_description TYPE csequence OPTIONAL
i_check_authority TYPE abap_bool DEFAULT abap_true
i_suppress_package_dialog TYPE abap_bool DEFAULT space
i_dev_package TYPE devclass OPTIONAL
i_genflag TYPE abap_bool DEFAULT abap_false
i_corr_number TYPE trkorr OPTIONAL
i_new_loio TYPE any OPTIONAL
i_virus_profile TYPE any OPTIONAL
i_suppress_dialogs TYPE abap_bool OPTIONAL
EXCEPTIONS
parameter_missing
error_occured
cancelled
permission_failure
data_inconsistency
new_loio_already_exists
is_folder.
METHODS delete
IMPORTING
i_url TYPE csequence
i_delete_children TYPE abap_bool DEFAULT abap_false
i_check_authority TYPE abap_bool DEFAULT abap_true
i_corr_number TYPE trkorr OPTIONAL
i_suppress_dialogs TYPE abap_bool OPTIONAL
EXCEPTIONS
parameter_missing
error_occured
cancelled
permission_failure
not_found.
METHODS file_list
IMPORTING
i_url TYPE csequence
i_recursive_call TYPE abap_bool DEFAULT abap_false
i_check_authority TYPE abap_bool DEFAULT abap_true
EXPORTING
e_files TYPE string_table
EXCEPTIONS
parameter_missing
error_occured
not_found
permission_failure
is_not_folder.
METHODS properties
IMPORTING
i_url TYPE csequence
i_check_authority TYPE abap_bool DEFAULT abap_true
EXPORTING
e_is_folder TYPE abap_bool
e_mime_type TYPE csequence
e_name TYPE string
e_size TYPE i
e_bin_data TYPE abap_bool
e_loio TYPE skwf_io
e_phio TYPE skwf_io
e_language TYPE langu
e_phio_last_changed TYPE string " wrong, delete parameter?
EXCEPTIONS
parameter_missing
error_occured
not_found
permission_failure.
METHODS get_io_for_url
IMPORTING
i_url TYPE csequence
EXPORTING
e_is_folder TYPE abap_bool
e_loio TYPE skwf_io
EXCEPTIONS
parameter_missing
error_occured
not_found.
METHODS get_by_io
IMPORTING
i_loio TYPE any
i_check_authority TYPE abap_bool DEFAULT abap_true
EXPORTING
e_is_folder TYPE abap_bool
e_content TYPE xstring
e_content_last_changed TYPE any
e_mime_type TYPE csequence
e_phio_id TYPE any
CHANGING
c_language TYPE spras OPTIONAL.
METHODS get_url_for_io
IMPORTING
i_loio TYPE any
EXPORTING
e_url TYPE string
e_is_folder TYPE abap_bool.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_SEC_SXML_WRITER ', 'CLASS cl_sec_sxml_writer DEFINITION PUBLIC.
PUBLIC SECTION.
CONSTANTS co_aes128_algorithm TYPE string VALUE ''http://www.w3.org/2001/04/xmlenc#aes128-cbc'' ##NO_TEXT.
CONSTANTS co_aes192_algorithm TYPE string VALUE ''http://www.w3.org/2001/04/xmlenc#aes192-cbc'' ##NO_TEXT.
CONSTANTS co_aes256_algorithm TYPE string VALUE ''http://www.w3.org/2001/04/xmlenc#aes256-cbc'' ##NO_TEXT.
CLASS-METHODS crypt_aes_ctr
IMPORTING
input TYPE xstring
key TYPE xstring
iv TYPE xstring
algorithm TYPE string DEFAULT co_aes128_algorithm
EXPORTING
result TYPE xstring.
ENDCLASS.
CLASS cl_sec_sxml_writer IMPLEMENTATION.
METHOD crypt_aes_ctr.
DATA lv_algo TYPE string.
CASE algorithm.
WHEN co_aes128_algorithm.
lv_algo = ''aes-128-ctr''.
WHEN co_aes256_algorithm.
lv_algo = ''aes-256-ctr''.
WHEN OTHERS.
ASSERT 1 = ''todo''.
ENDCASE.
WRITE ''@KERNEL const crypto = await import("crypto");''.
WRITE ''@KERNEL const js_key = Buffer.from(key.get(), "hex");''.
WRITE ''@KERNEL const js_iv = Buffer.from(iv.get(), "hex");''.
WRITE ''@KERNEL const js_input = Buffer.from(input.get(), "hex");''.
WRITE ''@KERNEL const cipher = crypto.createDecipheriv(lv_algo.get(), js_key, js_iv);''.
WRITE ''@KERNEL const encrypted = cipher.update(js_input);''.
WRITE ''@KERNEL result.set(encrypted.toString("hex").toUpperCase());''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_SXML_STRING_READER ', 'CLASS cl_sxml_string_reader DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS create
IMPORTING
input TYPE xstring
RETURNING
VALUE(reader) TYPE REF TO if_sxml_reader.
ENDCLASS.
CLASS cl_sxml_string_reader IMPLEMENTATION.
METHOD create.
CREATE OBJECT reader TYPE lcl_reader
EXPORTING
iv_json = cl_abap_codepage=>convert_from( input ).
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_SXML_STRING_WRITER ', 'CLASS cl_sxml_string_writer DEFINITION PUBLIC FINAL CREATE PRIVATE.
PUBLIC SECTION.
INTERFACES if_sxml_writer.
METHODS constructor
IMPORTING
type TYPE if_sxml=>xml_stream_type.
METHODS get_output
RETURNING
VALUE(output) TYPE xstring.
CLASS-METHODS create
IMPORTING
type TYPE if_sxml=>xml_stream_type DEFAULT if_sxml=>co_xt_xml10
ignore_conversion_errors TYPE abap_bool DEFAULT abap_false
normalizing TYPE abap_bool DEFAULT abap_false
no_empty_elements TYPE abap_bool DEFAULT abap_false
encoding TYPE string DEFAULT ''UTF-8''
PREFERRED PARAMETER type
RETURNING
VALUE(writer) TYPE REF TO cl_sxml_string_writer
RAISING
cx_sxml_illegal_argument_error.
PRIVATE SECTION.
DATA mv_output TYPE xstring.
DATA mv_type TYPE if_sxml=>xml_stream_type.
DATA mt_stack TYPE STANDARD TABLE OF string WITH DEFAULT KEY.
METHODS append_text IMPORTING text TYPE string.
METHODS get_text RETURNING VALUE(text) TYPE string.
* stack operations
METHODS peek RETURNING VALUE(rv_name) TYPE string.
METHODS remove RETURNING VALUE(rv_name) TYPE string.
ENDCLASS.
CLASS cl_sxml_string_writer IMPLEMENTATION.
METHOD constructor.
mv_type = type.
ENDMETHOD.
METHOD if_sxml_writer~new_close_element.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_sxml_writer~write_attribute_raw.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_sxml_writer~new_value.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_sxml_writer~new_open_element.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_sxml_writer~write_value_raw.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_sxml_writer~write_namespace_declaration.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD if_sxml_writer~write_node.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD create.
CREATE OBJECT writer
EXPORTING
type = type.
ENDMETHOD.
METHOD if_sxml_writer~set_option.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD get_output.
output = mv_output.
ENDMETHOD.
METHOD append_text.
DATA append TYPE xstring.
append = cl_abap_conv_codepage=>create_out( )->convert( text ).
CONCATENATE mv_output append INTO mv_output IN BYTE MODE.
ENDMETHOD.
METHOD get_text.
text = cl_abap_conv_codepage=>create_in( )->convert( mv_output ).
ENDMETHOD.
METHOD if_sxml_writer~open_element.
DATA parent TYPE string.
parent = peek( ).
IF parent = ''array'' AND get_text( ) NP ''*[''.
append_text( '','' ).
ENDIF.
IF parent = ''object'' AND get_text( ) NP ''*{''.
append_text( '','' ).
ENDIF.
APPEND name TO mt_stack.
CASE name.
WHEN ''object''.
append_text( ''{'' ).
WHEN ''array''.
append_text( ''['' ).
ENDCASE.
ENDMETHOD.
METHOD remove.
DATA index TYPE i.
index = lines( mt_stack ).
READ TABLE mt_stack INDEX index INTO rv_name.
DELETE mt_stack INDEX index.
ENDMETHOD.
METHOD if_sxml_writer~close_element.
DATA name TYPE string.
name = remove( ).
CASE name.
WHEN ''object''.
append_text( ''}'' ).
WHEN ''array''.
append_text( '']'' ).
ENDCASE.
ENDMETHOD.
METHOD if_sxml_writer~write_attribute.
append_text( ''"'' ).
append_text( value ).
append_text( ''":'' ).
ENDMETHOD.
METHOD peek.
DATA index TYPE i.
index = lines( mt_stack ).
READ TABLE mt_stack INDEX index INTO rv_name.
ENDMETHOD.
METHOD if_sxml_writer~write_value.
DATA name TYPE string.
name = peek( ).
CASE name.
WHEN ''str''.
append_text( ''"'' ).
append_text( condense( value ) ).
append_text( ''"'' ).
WHEN ''num''.
append_text( condense( value ) ).
WHEN OTHERS.
WRITE ''@KERNEL console.dir(name);''.
ASSERT 1 = ''todo_if_sxml_writer_write_value''.
ENDCASE.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SXML_ERROR ', 'CLASS cx_sxml_error DEFINITION PUBLIC INHERITING FROM cx_dynamic_check.
ENDCLASS.
CLASS cx_sxml_error IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SXML_ILLEGAL_ARGUMENT_ERROR ', 'CLASS cx_sxml_illegal_argument_error DEFINITION PUBLIC INHERITING FROM cx_sxml_error.
PUBLIC SECTION.
ENDCLASS.
CLASS cx_sxml_illegal_argument_error IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SXML_NAME_ERROR ', 'CLASS cx_sxml_name_error DEFINITION PUBLIC INHERITING FROM cx_sxml_error.
PUBLIC SECTION.
ENDCLASS.
CLASS cx_sxml_name_error IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SXML_PARSE_ERROR ', 'CLASS cx_sxml_parse_error DEFINITION PUBLIC INHERITING FROM cx_sxml_error.
PUBLIC SECTION.
METHODS constructor IMPORTING xml_offset TYPE i.
CONSTANTS kernel_parser TYPE sotr_conc VALUE ''00000000000000000000000000000000''.
DATA error_text TYPE string.
DATA rawstring TYPE string.
DATA xml_offset TYPE i.
DATA rc TYPE i.
ENDCLASS.
CLASS cx_sxml_parse_error IMPLEMENTATION.
METHOD constructor.
super->constructor( ).
me->xml_offset = xml_offset.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SXML_STATE_ERROR ', 'CLASS cx_sxml_state_error DEFINITION PUBLIC INHERITING FROM cx_sxml_error.
PUBLIC SECTION.
ENDCLASS.
CLASS cx_sxml_state_error IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_SXML ', 'INTERFACE if_sxml PUBLIC.
TYPES xml_stream_type TYPE i.
CONSTANTS co_xt_xml10 TYPE xml_stream_type VALUE 1.
CONSTANTS co_xt_binary TYPE xml_stream_type VALUE 2.
CONSTANTS co_xt_xop TYPE xml_stream_type VALUE 3.
CONSTANTS co_xt_json TYPE xml_stream_type VALUE 4.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_SXML_ATTRIBUTE ', 'INTERFACE if_sxml_attribute PUBLIC.
TYPES attributes TYPE STANDARD TABLE OF REF TO if_sxml_attribute WITH DEFAULT KEY.
DATA: BEGIN OF qname,
name TYPE string,
namespace TYPE string,
END OF qname.
DATA prefix TYPE string READ-ONLY.
DATA value_type TYPE if_sxml_value=>value_type.
METHODS get_value RETURNING VALUE(value) TYPE string.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_SXML_CLOSE_ELEMENT ', 'INTERFACE if_sxml_close_element PUBLIC.
INTERFACES if_sxml_node.
DATA: BEGIN OF qname,
name TYPE string,
namespace TYPE string,
END OF qname.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_SXML_NAMED ', 'INTERFACE if_sxml_named PUBLIC.
TYPES: BEGIN OF pathnode,
BEGIN OF qname,
name TYPE string,
namespace TYPE string,
END OF qname,
prefix TYPE string,
child_position TYPE i,
END OF pathnode.
TYPES path TYPE STANDARD TABLE OF pathnode WITH DEFAULT KEY.
TYPES: BEGIN OF nsbinding,
prefix TYPE string,
nsuri TYPE string,
END OF nsbinding.
TYPES nsbindings TYPE HASHED TABLE OF nsbinding WITH UNIQUE KEY prefix.
CONSTANTS co_use_default_xmlns TYPE string VALUE '':''.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_SXML_NODE ', 'INTERFACE if_sxml_node PUBLIC.
TYPES node_type TYPE i.
DATA type TYPE node_type READ-ONLY.
CONSTANTS co_nt_initial TYPE node_type VALUE 0.
CONSTANTS co_nt_element_open TYPE node_type VALUE 1.
CONSTANTS co_nt_element_close TYPE node_type VALUE 2.
CONSTANTS co_nt_value TYPE node_type VALUE 4.
CONSTANTS co_nt_attribute TYPE node_type VALUE 32.
CONSTANTS co_nt_final TYPE node_type VALUE 128.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_SXML_OPEN_ELEMENT ', 'INTERFACE if_sxml_open_element PUBLIC.
INTERFACES if_sxml_node.
DATA: BEGIN OF qname,
name TYPE string,
namespace TYPE string,
END OF qname.
DATA prefix TYPE string READ-ONLY.
METHODS get_attributes
RETURNING
VALUE(attr) TYPE if_sxml_attribute=>attributes.
METHODS set_attribute
IMPORTING
name TYPE string
nsuri TYPE string OPTIONAL
prefix TYPE string OPTIONAL
value TYPE string OPTIONAL
RETURNING
VALUE(attribute) TYPE REF TO if_sxml_attribute
RAISING
cx_sxml_name_error.
METHODS set_attributes
IMPORTING
attributes TYPE if_sxml_attribute=>attributes
RAISING
cx_sxml_name_error.
METHODS set_prefix
IMPORTING
prefix TYPE string OPTIONAL.
METHODS get_attribute_value
IMPORTING
!name TYPE string
!nsuri TYPE string OPTIONAL
RETURNING
VALUE(value) TYPE REF TO if_sxml_value.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_SXML_READER ', 'INTERFACE if_sxml_reader PUBLIC.
DATA node_type TYPE if_sxml_node=>node_type READ-ONLY.
DATA name TYPE string READ-ONLY.
DATA value_type TYPE if_sxml_value=>value_type READ-ONLY.
DATA value TYPE string READ-ONLY.
DATA value_raw TYPE xstring READ-ONLY.
CONSTANTS co_opt_normalizing TYPE i VALUE 1.
CONSTANTS co_opt_keep_whitespace TYPE i VALUE 2.
CONSTANTS co_opt_asxml TYPE i VALUE 3.
CONSTANTS co_opt_sep_member TYPE i VALUE 4.
METHODS
read_next_node
RETURNING VALUE(node) TYPE REF TO if_sxml_node.
METHODS next_node
IMPORTING
value_type TYPE if_sxml_value=>value_type DEFAULT if_sxml_value=>co_vt_text
RAISING
cx_sxml_parse_error.
METHODS next_attribute
IMPORTING
value_type TYPE if_sxml_value=>value_type OPTIONAL.
METHODS skip_node
IMPORTING
writer TYPE REF TO if_sxml_writer OPTIONAL
RAISING
cx_sxml_parse_error.
METHODS set_option
IMPORTING
option TYPE i
value TYPE abap_bool DEFAULT abap_true.
METHODS get_nsuri_by_prefix
IMPORTING
!prefix TYPE string
RETURNING
VALUE(nsuri) TYPE string.
METHODS get_prefix_by_nsuri
IMPORTING
!nsuri TYPE string
RETURNING
VALUE(prefix) TYPE string.
METHODS get_nsbindings
RETURNING
VALUE(nsbindings) TYPE if_sxml_named=>nsbindings.
METHODS get_path
RETURNING
VALUE(path) TYPE if_sxml_named=>path.
METHODS current_node.
METHODS read_current_node
RETURNING
VALUE(node) TYPE REF TO if_sxml_node.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_SXML_VALUE ', 'INTERFACE if_sxml_value PUBLIC.
TYPES value_type TYPE i.
DATA type TYPE value_type.
CONSTANTS co_vt_text TYPE value_type VALUE 2.
METHODS get_value
RETURNING
VALUE(value) TYPE string.
METHODS get_value_raw
RETURNING
VALUE(value) TYPE xstring.
METHODS set_value
IMPORTING
value TYPE string.
METHODS set_value_raw
IMPORTING
value TYPE xstring.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_SXML_VALUE_NODE ', 'INTERFACE if_sxml_value_node PUBLIC.
INTERFACES if_sxml_node.
METHODS get_value
RETURNING
VALUE(value) TYPE string.
METHODS get_value_raw
RETURNING
VALUE(value) TYPE xstring.
METHODS set_value
IMPORTING
value TYPE string.
METHODS set_value_raw
IMPORTING
value TYPE xstring.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_SXML_WRITER ', 'INTERFACE if_sxml_writer PUBLIC.
CONSTANTS co_opt_normalizing TYPE i VALUE 1.
CONSTANTS co_opt_no_empty TYPE i VALUE 2.
CONSTANTS co_opt_ignore_conv_errros TYPE i VALUE 3.
CONSTANTS co_opt_linebreaks TYPE i VALUE 4.
CONSTANTS co_opt_indent TYPE i VALUE 5.
CONSTANTS co_opt_illegal_char_reject TYPE i VALUE 6.
CONSTANTS co_opt_illegal_char_replace TYPE i VALUE 7.
CONSTANTS co_opt_illegal_char_replace_by TYPE i VALUE 8.
CONSTANTS co_opt_base64_no_lf TYPE i VALUE 9.
METHODS open_element
IMPORTING
name TYPE string
nsuri TYPE string OPTIONAL
prefix TYPE string OPTIONAL
RAISING
cx_sxml_state_error
cx_sxml_name_error.
METHODS close_element
RAISING
cx_sxml_state_error.
CLASS-METHODS new_close_element
RETURNING
VALUE(element) TYPE REF TO if_sxml_close_element.
METHODS write_attribute
IMPORTING
name TYPE string
nsuri TYPE string OPTIONAL
prefix TYPE string OPTIONAL
value TYPE string OPTIONAL
RAISING
cx_sxml_state_error
cx_sxml_name_error.
METHODS write_attribute_raw
IMPORTING
name TYPE string
nsuri TYPE string OPTIONAL
prefix TYPE string OPTIONAL
value TYPE xstring OPTIONAL
RAISING
cx_sxml_state_error
cx_sxml_name_error.
METHODS write_value
IMPORTING
value TYPE string
RAISING
cx_sxml_state_error.
METHODS set_option
IMPORTING
option TYPE i
value TYPE abap_bool DEFAULT abap_true.
CLASS-METHODS new_open_element
IMPORTING
name TYPE string
nsuri TYPE string OPTIONAL
prefix TYPE string OPTIONAL
RETURNING
VALUE(element) TYPE REF TO if_sxml_open_element
RAISING
cx_sxml_name_error.
CLASS-METHODS new_value
RETURNING
VALUE(value) TYPE REF TO if_sxml_value_node.
METHODS write_namespace_declaration
IMPORTING
nsuri TYPE string
prefix TYPE string OPTIONAL
RAISING
cx_sxml_name_error.
METHODS write_node
IMPORTING
node TYPE REF TO if_sxml_node
RAISING
cx_sxml_state_error.
METHODS write_value_raw
IMPORTING
value TYPE xstring
RAISING
cx_sxml_state_error.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_SXMLP_FACTORY ', 'INTERFACE if_sxmlp_factory PUBLIC.
CLASS-METHODS create_list
IMPORTING
name TYPE string
nsuri TYPE string OPTIONAL
prefix TYPE string OPTIONAL
RETURNING
VALUE(rval) TYPE REF TO if_sxmlp_list.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_SXMLP_LIST ', 'INTERFACE if_sxmlp_list PUBLIC.
INTERFACES if_sxmlp_part.
METHODS add_part
IMPORTING
part TYPE REF TO if_sxmlp_part.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_SXMLP_PART ', 'INTERFACE if_sxmlp_part PUBLIC.
METHODS serialize IMPORTING writer TYPE REF TO if_sxml_writer.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_SXMLP_SIMPLE ', 'INTERFACE if_sxmlp_simple PUBLIC.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_APC_TCP_CLIENT_MANAGER ', 'CLASS cl_apc_tcp_client_manager DEFINITION PUBLIC.
PUBLIC SECTION.
CONSTANTS co_protocol_type_tcp TYPE i VALUE 1.
CONSTANTS co_protocol_type_tcps TYPE i VALUE 2.
CLASS-METHODS create
IMPORTING
i_host TYPE string
i_port TYPE string
i_frame TYPE if_abap_channel_types=>ty_apc_tcp_frame
i_event_handler TYPE REF TO if_apc_wsp_event_handler
i_protocol TYPE i DEFAULT co_protocol_type_tcp
i_ssl_id TYPE ssfapplssl OPTIONAL
RETURNING
VALUE(ri_client) TYPE REF TO if_apc_wsp_client
RAISING
cx_apc_error.
ENDCLASS.
CLASS cl_apc_tcp_client_manager IMPLEMENTATION.
METHOD create.
DATA lv_port TYPE i.
lv_port = i_port.
CREATE OBJECT ri_client TYPE lcl_client
EXPORTING
iv_host = i_host
iv_port = lv_port
io_handler = i_event_handler
iv_protocol = i_protocol.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_APC_WSP_EXT_STATELESS_BASE ', 'CLASS cl_apc_wsp_ext_stateless_base DEFINITION PUBLIC ABSTRACT.
PUBLIC SECTION.
INTERFACES if_apc_wsp_extension.
ENDCLASS.
CLASS cl_apc_wsp_ext_stateless_base IMPLEMENTATION.
METHOD if_apc_wsp_extension~on_start.
RETURN.
ENDMETHOD.
METHOD if_apc_wsp_extension~on_message.
RETURN.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_APC_ERROR ', 'CLASS cx_apc_error DEFINITION PUBLIC INHERITING FROM cx_static_check.
ENDCLASS.
CLASS cx_apc_error IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_ABAP_CHANNEL_TYPES ', 'INTERFACE if_abap_channel_types PUBLIC.
TYPES: BEGIN OF ty_apc_tcp_frame,
frame_type TYPE i,
fixed_length TYPE i,
terminator TYPE string,
length_field_length TYPE i,
length_field_offset TYPE i,
length_field_header TYPE i,
END OF ty_apc_tcp_frame.
TYPES ty_tihttpnvp TYPE tihttpnvp.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_APC_TCP_FRAME_TYPES ', 'INTERFACE if_apc_tcp_frame_types PUBLIC.
CONSTANTS co_frame_type_fixed_length TYPE i VALUE 1.
CONSTANTS co_frame_type_terminator TYPE i VALUE 2.
CONSTANTS co_frame_type_length_field TYPE i VALUE 3.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_APC_WSP_BINDING_MANAGER ', 'INTERFACE if_apc_wsp_binding_manager PUBLIC.
METHODS bind_amc_message_consumer
IMPORTING
i_application_id TYPE clike
i_channel_id TYPE clike
RAISING
cx_apc_error.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_APC_WSP_CLIENT ', 'INTERFACE if_apc_wsp_client PUBLIC.
METHODS connect
RAISING
cx_apc_error.
METHODS close
RAISING
cx_apc_error.
METHODS get_message_manager
RETURNING
VALUE(ri_manager) TYPE REF TO if_apc_wsp_message_manager
RAISING
cx_apc_error.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_APC_WSP_EVENT_HANDLER ', 'INTERFACE if_apc_wsp_event_handler PUBLIC.
METHODS on_open.
METHODS on_message
IMPORTING i_message TYPE REF TO if_apc_wsp_message.
METHODS on_close.
METHODS on_error
IMPORTING
i_reason TYPE string.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_APC_WSP_EXTENSION ', 'INTERFACE if_apc_wsp_extension PUBLIC.
METHODS on_start
IMPORTING
i_context TYPE REF TO if_apc_wsp_server_context
i_message_manager TYPE REF TO if_apc_wsp_message_manager.
METHODS on_message
IMPORTING
i_message TYPE REF TO if_apc_wsp_message
i_message_manager TYPE REF TO if_apc_wsp_message_manager
i_context TYPE REF TO if_apc_wsp_server_context.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_APC_WSP_INITIAL_REQUEST ', 'INTERFACE if_apc_wsp_initial_request PUBLIC.
METHODS get_form_fields
IMPORTING
i_formfield_encoding TYPE i DEFAULT 0
CHANGING
c_fields TYPE if_abap_channel_types=>ty_tihttpnvp
RAISING
cx_apc_error.
METHODS get_header_fields
CHANGING
c_fields TYPE if_abap_channel_types=>ty_tihttpnvp
RAISING
cx_apc_error.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_APC_WSP_MESSAGE ', 'INTERFACE if_apc_wsp_message PUBLIC.
METHODS get_binary
RETURNING VALUE(rv_binary) TYPE xstring
RAISING cx_apc_error.
METHODS set_binary
IMPORTING iv_binary TYPE xsequence
RAISING cx_apc_error.
METHODS get_text
RETURNING VALUE(r_message) TYPE string
RAISING cx_apc_error.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_APC_WSP_MESSAGE_MANAGER ', 'INTERFACE if_apc_wsp_message_manager PUBLIC.
METHODS create_message
RETURNING
VALUE(ri_message) TYPE REF TO if_apc_wsp_message
RAISING
cx_apc_error.
METHODS send
IMPORTING
ii_message TYPE REF TO if_apc_wsp_message
RAISING
cx_apc_error.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_APC_WSP_SERVER_CONTEXT ', 'INTERFACE if_apc_wsp_server_context PUBLIC.
METHODS get_initial_request
RETURNING VALUE(r_initial_request) TYPE REF TO if_apc_wsp_initial_request
RAISING cx_apc_error.
METHODS get_binding_manager
RETURNING VALUE(r_binding_manager) TYPE REF TO if_apc_wsp_binding_manager
RAISING cx_apc_error.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_UNIT_ASSERT ', 'CLASS cl_abap_unit_assert DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS
assert_equals
IMPORTING
act TYPE any
exp TYPE any
msg TYPE csequence OPTIONAL
tol TYPE f OPTIONAL
quit TYPE i OPTIONAL
level TYPE i OPTIONAL.
CLASS-METHODS abort
IMPORTING
msg TYPE csequence OPTIONAL
detail TYPE csequence OPTIONAL
quit TYPE int1 DEFAULT 2 PREFERRED PARAMETER msg.
CLASS-METHODS
assert_differs
IMPORTING
act TYPE simple
exp TYPE simple
msg TYPE csequence OPTIONAL
quit TYPE i OPTIONAL
level TYPE i OPTIONAL.
CLASS-METHODS
assert_number_between
IMPORTING
lower TYPE i
upper TYPE i
number TYPE i
msg TYPE csequence OPTIONAL
quit TYPE i OPTIONAL
level TYPE i OPTIONAL.
CLASS-METHODS
assert_not_initial
IMPORTING
act TYPE any
msg TYPE csequence OPTIONAL
quit TYPE i OPTIONAL
level TYPE i OPTIONAL.
CLASS-METHODS
assert_initial
IMPORTING
act TYPE any
msg TYPE csequence OPTIONAL
quit TYPE i OPTIONAL
level TYPE i OPTIONAL.
CLASS-METHODS
skip
IMPORTING
msg TYPE csequence
detail TYPE csequence OPTIONAL.
CLASS-METHODS
fail
IMPORTING
msg TYPE csequence OPTIONAL
quit TYPE i OPTIONAL
level TYPE i OPTIONAL
detail TYPE csequence OPTIONAL
PREFERRED PARAMETER msg.
CLASS-METHODS
assert_subrc
IMPORTING
exp TYPE i DEFAULT 0
act TYPE i DEFAULT sy-subrc
msg TYPE csequence OPTIONAL
quit TYPE i OPTIONAL
level TYPE i OPTIONAL
PREFERRED PARAMETER act.
CLASS-METHODS
assert_true
IMPORTING
act TYPE abap_bool
msg TYPE csequence OPTIONAL
quit TYPE i OPTIONAL
level TYPE i OPTIONAL.
CLASS-METHODS
assert_false
IMPORTING
act TYPE abap_bool
msg TYPE csequence OPTIONAL
quit TYPE i OPTIONAL
level TYPE i OPTIONAL.
CLASS-METHODS
assert_char_cp
IMPORTING
act TYPE clike
exp TYPE clike
msg TYPE string OPTIONAL
quit TYPE i OPTIONAL
level TYPE i OPTIONAL.
CLASS-METHODS
assert_char_np
IMPORTING
act TYPE clike
exp TYPE clike
msg TYPE csequence OPTIONAL
quit TYPE i OPTIONAL
level TYPE i OPTIONAL.
CLASS-METHODS
assert_bound
IMPORTING
act TYPE any
msg TYPE csequence OPTIONAL
quit TYPE i OPTIONAL
level TYPE i OPTIONAL.
CLASS-METHODS
assert_not_bound
IMPORTING
act TYPE any
msg TYPE csequence OPTIONAL
quit TYPE i OPTIONAL
level TYPE i OPTIONAL.
CLASS-METHODS
assert_text_matches
IMPORTING
pattern TYPE csequence
text TYPE csequence
msg TYPE csequence OPTIONAL
quit TYPE i OPTIONAL
level TYPE i OPTIONAL.
PRIVATE SECTION.
CLASS-METHODS
compare_tables
IMPORTING
act TYPE any
exp TYPE any.
ENDCLASS.
CLASS cl_abap_unit_assert IMPLEMENTATION.
METHOD compare_tables.
DATA index TYPE i.
DATA type1 TYPE REF TO cl_abap_tabledescr.
DATA type2 TYPE REF TO cl_abap_tabledescr.
DATA lv_match TYPE abap_bool.
FIELD-SYMBOLS <tab1> TYPE INDEX TABLE.
FIELD-SYMBOLS <row1> TYPE any.
FIELD-SYMBOLS <tab2> TYPE INDEX TABLE.
FIELD-SYMBOLS <row2> TYPE any.
IF lines( act ) <> lines( exp ).
RAISE EXCEPTION TYPE kernel_cx_assert
EXPORTING
msg = |Expected table to contain { lines( exp ) } rows, got { lines( act ) }|.
ENDIF.
ASSIGN act TO <tab1>.
ASSIGN exp TO <tab2>.
type1 ?= cl_abap_typedescr=>describe_by_data( act ).
type2 ?= cl_abap_typedescr=>describe_by_data( exp ).
* WRITE ''@KERNEL console.dir(type1);''.
IF type1->table_kind = cl_abap_tabledescr=>tablekind_hashed
OR type2->table_kind = cl_abap_tabledescr=>tablekind_hashed.
LOOP AT <tab1> ASSIGNING <row1>.
lv_match = abap_false.
LOOP AT <tab2> ASSIGNING <row2>.
TRY.
assert_equals(
act = <row1>
exp = <row2> ).
lv_match = abap_true.
EXIT. " current loop
CATCH kernel_cx_assert.
ENDTRY.
ENDLOOP.
IF lv_match = abap_false.
RAISE EXCEPTION TYPE kernel_cx_assert
EXPORTING
msg = |Hashed table contents differs|.
ENDIF.
ENDLOOP.
ELSE.
DO lines( act ) TIMES.
index = sy-index.
READ TABLE <tab1> INDEX index ASSIGNING <row1>.
assert_subrc( ).
READ TABLE <tab2> INDEX index ASSIGNING <row2>.
assert_subrc( ).
assert_equals(
act = <row1>
exp = <row2> ).
ENDDO.
ENDIF.
ENDMETHOD.
METHOD assert_text_matches.
DATA lv_match TYPE abap_bool.
lv_match = boolc( contains(
val = text
regex = pattern ) ).
IF lv_match = abap_false.
RAISE EXCEPTION TYPE kernel_cx_assert
EXPORTING
expected = pattern
actual = text
msg = msg.
ENDIF.
ENDMETHOD.
METHOD abort.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD assert_bound.
IF act IS NOT BOUND.
RAISE EXCEPTION TYPE kernel_cx_assert
EXPORTING
msg = |Expected value to be bound|.
ENDIF.
ENDMETHOD.
METHOD assert_not_bound.
IF act IS BOUND.
RAISE EXCEPTION TYPE kernel_cx_assert
EXPORTING
msg = |Expected value to not be bound|.
ENDIF.
ENDMETHOD.
METHOD assert_char_cp.
IF act NP exp.
RAISE EXCEPTION TYPE kernel_cx_assert
EXPORTING
expected = exp
actual = act
msg = msg.
ENDIF.
ENDMETHOD.
METHOD assert_char_np.
IF act CP exp.
RAISE EXCEPTION TYPE kernel_cx_assert
EXPORTING
msg = |Actual: { act }|.
ENDIF.
ENDMETHOD.
METHOD fail.
RAISE EXCEPTION TYPE kernel_cx_assert
EXPORTING
msg = msg.
ENDMETHOD.
METHOD skip.
RETURN.
ENDMETHOD.
METHOD assert_differs.
TRY.
assert_equals(
act = act
exp = exp ).
RAISE EXCEPTION TYPE kernel_cx_assert
EXPORTING
msg = |Expected different values|
actual = act
expected = exp.
CATCH kernel_cx_assert.
RETURN.
ENDTRY.
ENDMETHOD.
METHOD assert_true.
IF act <> abap_true.
RAISE EXCEPTION TYPE kernel_cx_assert
EXPORTING
msg = |Expected abap_true|.
ENDIF.
ENDMETHOD.
METHOD assert_false.
IF act <> abap_false.
RAISE EXCEPTION TYPE kernel_cx_assert
EXPORTING
msg = |Expected abap_false|.
ENDIF.
ENDMETHOD.
METHOD assert_equals.
DATA type1 TYPE c LENGTH 1.
DATA type2 TYPE c LENGTH 1.
DATA diff TYPE f.
DATA lv_exp TYPE string.
DATA lv_act TYPE string.
DATA lv_msg TYPE string.
DESCRIBE FIELD act TYPE type1.
DESCRIBE FIELD exp TYPE type2.
" WRITE ''@KERNEL console.dir(type1.get());''.
" WRITE ''@KERNEL console.dir(type2.get());''.
IF type1 CA ''CgyIFPDTXN8''. " basic types
IF type2 IS NOT INITIAL.
IF type2 NA ''CgyIFPDTXN8''.
RAISE EXCEPTION TYPE kernel_cx_assert
EXPORTING
msg = |Unexpected types|.
ENDIF.
ENDIF.
ELSEIF type1 IS NOT INITIAL AND type2 IS NOT INITIAL.
* else check the types are identical
IF type1 <> type2.
RAISE EXCEPTION TYPE kernel_cx_assert
EXPORTING
msg = |Unexpected types|.
ENDIF.
ENDIF.
IF type1 = ''h''.
compare_tables(
act = act
exp = exp ).
ELSEIF tol IS SUPPLIED.
diff = exp - act.
* WRITE ''@KERNEL console.dir(tol);''.
* WRITE ''@KERNEL console.dir(diff);''.
IF diff >= tol.
RAISE EXCEPTION TYPE kernel_cx_assert.
ENDIF.
ELSEIF type1 = ''l''.
assert_equals(
act = act->*
exp = exp->* ).
ELSEIF act <> exp.
lv_act = lcl_dump=>to_string( act ).
lv_exp = lcl_dump=>to_string( exp ).
IF msg <> ''''.
lv_msg = msg.
ELSE.
lv_msg = |Expected ''{ lv_exp }'', got ''{ lv_act }''|.
ENDIF.
RAISE EXCEPTION TYPE kernel_cx_assert
EXPORTING
msg = lv_msg
actual = lv_act
expected = lv_exp.
ENDIF.
ENDMETHOD.
METHOD assert_not_initial.
DATA lv_msg TYPE string.
IF act IS INITIAL.
lv_msg = msg.
IF lv_msg IS INITIAL.
lv_msg = |Expected non initial value|.
ENDIF.
RAISE EXCEPTION TYPE kernel_cx_assert
EXPORTING
msg = lv_msg.
ENDIF.
ENDMETHOD.
METHOD assert_initial.
DATA lv_msg TYPE string.
IF act IS NOT INITIAL.
lv_msg = msg.
IF lv_msg IS INITIAL.
lv_msg = |Expected initial value|.
ENDIF.
RAISE EXCEPTION TYPE kernel_cx_assert
EXPORTING
msg = lv_msg.
ENDIF.
ENDMETHOD.
METHOD assert_subrc.
DATA lv_msg TYPE string.
IF act <> exp.
lv_msg = msg.
IF lv_msg IS INITIAL.
lv_msg = |Expected sy-subrc to equal { exp }, got { act }|.
ENDIF.
RAISE EXCEPTION TYPE kernel_cx_assert
EXPORTING
msg = lv_msg.
ENDIF.
ENDMETHOD.
METHOD assert_number_between.
IF number < lower OR number > upper.
RAISE EXCEPTION TYPE kernel_cx_assert.
ENDIF.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_FUNCTION_TEST_ENVIRONMENT ', 'CLASS cl_function_test_environment DEFINITION PUBLIC.
PUBLIC SECTION.
INTERFACES if_function_test_environment.
"! Note: open-abap function module test doubles allows creating doubles for non-existing
"! function modules
CLASS-METHODS create
IMPORTING
function_modules TYPE if_function_test_environment=>tt_function_dependencies
RETURNING
VALUE(function_test_environment) TYPE REF TO if_function_test_environment.
PRIVATE SECTION.
TYPES: BEGIN OF ty_backup,
name TYPE sxco_fm_name,
backup TYPE i,
double TYPE REF TO if_function_testdouble,
END OF ty_backup.
CLASS-DATA gt_backup TYPE SORTED TABLE OF ty_backup WITH UNIQUE KEY name.
ENDCLASS.
CLASS cl_function_test_environment IMPLEMENTATION.
METHOD create.
DATA lv_module LIKE LINE OF function_modules.
DATA ls_row LIKE LINE OF gt_backup.
ASSERT lines( function_modules ) > 0.
LOOP AT function_modules INTO lv_module.
ls_row-name = lv_module.
CREATE OBJECT ls_row-double TYPE lcl_double
EXPORTING
iv_name = lv_module.
WRITE ''@KERNEL ls_row.get().backup = abap.FunctionModules[lv_module.get().trimEnd()];''.
INSERT ls_row INTO gt_backup.
ENDLOOP.
CREATE OBJECT function_test_environment TYPE cl_function_test_environment.
ENDMETHOD.
METHOD if_function_test_environment~get_double.
FIELD-SYMBOLS <ls_row> LIKE LINE OF gt_backup.
READ TABLE gt_backup ASSIGNING <ls_row> WITH KEY name = function_name.
ASSERT sy-subrc = 0.
result = <ls_row>-double.
ENDMETHOD.
METHOD if_function_test_environment~clear_doubles.
FIELD-SYMBOLS <ls_row> LIKE LINE OF gt_backup.
LOOP AT gt_backup ASSIGNING <ls_row>.
WRITE ''@KERNEL abap.FunctionModules[fs_ls_row_.get().name.get().trimEnd()] = fs_ls_row_.get().backup;''.
ENDLOOP.
CLEAR gt_backup.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_FTD_PARAMETER_NOT_FOUND ', 'CLASS cx_ftd_parameter_not_found DEFINITION PUBLIC FINAL CREATE PUBLIC INHERITING FROM cx_no_check.
ENDCLASS.
CLASS cx_ftd_parameter_not_found IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_FTD_INPUT_ARGUMENTS ', 'INTERFACE if_ftd_input_arguments PUBLIC.
METHODS get_importing_parameter
IMPORTING
name TYPE abap_parmname
RETURNING
VALUE(result) TYPE REF TO data
RAISING
cx_ftd_parameter_not_found.
METHODS get_table_parameter
IMPORTING
name TYPE abap_parmname
RETURNING
VALUE(result) TYPE REF TO data
RAISING
cx_ftd_parameter_not_found.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_FTD_INPUT_CONFIG_SETTER ', 'INTERFACE if_ftd_input_config_setter PUBLIC.
METHODS ignore_all_parameters
RETURNING
VALUE(output_configuration_setter) TYPE REF TO if_ftd_output_config_setter.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_FTD_INVOCATION_ANSWER ', 'INTERFACE if_ftd_invocation_answer PUBLIC.
METHODS answer
IMPORTING
arguments TYPE REF TO if_ftd_input_arguments
CHANGING
result TYPE REF TO if_ftd_invocation_result.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_FTD_INVOCATION_RESULT ', 'INTERFACE if_ftd_invocation_result PUBLIC.
METHODS get_output_configuration
RETURNING
VALUE(result) TYPE REF TO if_ftd_output_configuration.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_FTD_OUTPUT_CONFIG_SETTER ', 'INTERFACE if_ftd_output_config_setter PUBLIC.
METHODS then_answer
IMPORTING
answer TYPE REF TO if_ftd_invocation_answer
RETURNING
VALUE(self) TYPE REF TO if_ftd_output_config_setter.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_FTD_OUTPUT_CONFIGURATION ', 'INTERFACE if_ftd_output_configuration PUBLIC.
METHODS set_exporting_parameter
IMPORTING
name TYPE abap_parmname
value TYPE any
RETURNING
VALUE(self) TYPE REF TO if_ftd_output_configuration
RAISING
cx_ftd_parameter_not_found.
METHODS set_table_parameter
IMPORTING
name TYPE abap_parmname
value TYPE any
RETURNING
VALUE(self) TYPE REF TO if_ftd_output_configuration
RAISING
cx_ftd_parameter_not_found.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_FUNCTION_TEST_ENVIRONMENT ', 'INTERFACE if_function_test_environment PUBLIC.
TYPES tt_function_dependencies TYPE STANDARD TABLE OF sxco_fm_name WITH KEY table_line.
METHODS get_double
IMPORTING
function_name TYPE sxco_fm_name
RETURNING
VALUE(result) TYPE REF TO if_function_testdouble.
METHODS clear_doubles.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_FUNCTION_TESTDOUBLE ', 'INTERFACE if_function_testdouble PUBLIC.
METHODS configure_call
RETURNING
VALUE(input_configuration_setter) TYPE REF TO if_ftd_input_config_setter.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_ABAP_UNIT_CONSTANT ', 'INTERFACE if_abap_unit_constant PUBLIC.
CONSTANTS:
BEGIN OF severity,
low TYPE int1 VALUE 0,
medium TYPE int1 VALUE 1,
high TYPE int1 VALUE 2,
END OF severity.
CONSTANTS:
BEGIN OF quit,
test TYPE int1 VALUE 1,
no TYPE int1 VALUE 5,
END OF quit.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_AUNIT_CONSTANTS ', 'INTERFACE if_aunit_constants PUBLIC.
CONSTANTS no TYPE int1 VALUE 0.
CONSTANTS critical TYPE int1 VALUE 1.
CONSTANTS fatal TYPE int1 VALUE 1.
CONSTANTS tolerable TYPE int1 VALUE 1.
CONSTANTS method TYPE int1 VALUE 1.
CONSTANTS class TYPE int1 VALUE 2.
CONSTANTS: BEGIN OF severity,
low TYPE int1 VALUE 0,
medium TYPE int1 VALUE 1,
high TYPE int1 VALUE 2,
END OF severity.
CONSTANTS: BEGIN OF quit,
no TYPE int1 VALUE 0,
test TYPE int1 VALUE 1,
END OF quit.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('KERNEL_CX_ASSERT ', 'CLASS kernel_cx_assert DEFINITION PUBLIC INHERITING FROM cx_dynamic_check.
PUBLIC SECTION.
DATA actual TYPE string.
DATA expected TYPE string.
DATA msg TYPE string.
METHODS constructor
IMPORTING
msg TYPE string
previous LIKE previous OPTIONAL
expected LIKE expected OPTIONAL
actual LIKE actual OPTIONAL.
ENDCLASS.
CLASS kernel_cx_assert IMPLEMENTATION.
METHOD constructor.
super->constructor( previous = previous ).
me->expected = expected.
me->actual = actual.
me->msg = msg.
IF me->msg IS INITIAL.
me->msg = |Unit test assertion failed|.
ENDIF.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('KERNEL_UNIT_RUNNER ', 'CLASS kernel_unit_runner DEFINITION PUBLIC.
PUBLIC SECTION.
* as of now, only global classes with local testclasses are supported
TYPES: BEGIN OF ty_input_item,
class_name TYPE c LENGTH 30,
testclass_name TYPE c LENGTH 30,
method_name TYPE c LENGTH 30,
END OF ty_input_item.
TYPES ty_input TYPE STANDARD TABLE OF ty_input_item WITH DEFAULT KEY.
TYPES ty_status TYPE string.
CONSTANTS: BEGIN OF gc_status,
success TYPE ty_status VALUE ''SUCCESS'',
failed TYPE ty_status VALUE ''FAILED'',
skipped TYPE ty_status VALUE ''SKIPPED'',
END OF gc_status.
TYPES BEGIN OF ty_result_item.
INCLUDE TYPE ty_input_item.
TYPES: expected TYPE string,
actual TYPE string,
status TYPE ty_status,
runtime TYPE i,
message TYPE string,
js_location TYPE string,
console TYPE string,
END OF ty_result_item.
TYPES: BEGIN OF ty_result,
list TYPE STANDARD TABLE OF ty_result_item WITH DEFAULT KEY,
json TYPE string,
END OF ty_result.
CLASS-DATA mv_console TYPE string.
CLASS-METHODS run
IMPORTING
it_input TYPE ty_input
RETURNING
VALUE(rs_result) TYPE ty_result.
PRIVATE SECTION.
TYPES: BEGIN OF ty_class_item,
class_name TYPE c LENGTH 30,
testclass_name TYPE c LENGTH 30,
END OF ty_class_item.
TYPES ty_classes TYPE STANDARD TABLE OF ty_class_item WITH DEFAULT KEY.
CLASS-METHODS unique_classes
IMPORTING
it_input TYPE ty_input
RETURNING
VALUE(rt_classes) TYPE ty_classes.
CLASS-METHODS to_json
IMPORTING it_list TYPE ty_result-list
RETURNING VALUE(rv_json) TYPE string.
CLASS-METHODS get_location
IMPORTING ix_error TYPE REF TO cx_root
RETURNING VALUE(rv_location) TYPE string.
ENDCLASS.
CLASS kernel_unit_runner IMPLEMENTATION.
METHOD get_location.
DATA lv_stack TYPE string.
DATA lt_lines TYPE STANDARD TABLE OF string WITH DEFAULT KEY.
DATA lv_found TYPE abap_bool.
WRITE ''@KERNEL lv_stack.set(INPUT.ix_error.get().stack);''.
SPLIT lv_stack AT |\\n| INTO TABLE lt_lines.
* find whatever comes after "cl_abap_unit_assert"
LOOP AT lt_lines INTO lv_stack.
IF lv_stack CP ''*cl_abap_unit_assert*''.
lv_found = abap_true.
CONTINUE.
ELSEIF lv_found = abap_true.
REPLACE FIRST OCCURRENCE OF |at | IN lv_stack WITH ''''.
rv_location = condense( lv_stack ).
EXIT.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD to_json.
* would like to keep the dependencies of this class minimal,
* so not using CALL TRANSFORMATION or any other ABAP classes
DATA ls_list LIKE LINE OF it_list.
DATA lt_strings TYPE STANDARD TABLE OF string WITH DEFAULT KEY.
DATA lv_string LIKE LINE OF lt_strings.
DATA lv_message TYPE string.
LOOP AT it_list INTO ls_list.
lv_message = ls_list-message.
REPLACE ALL OCCURRENCES OF |"| IN lv_message WITH |\\"|.
REPLACE ALL OCCURRENCES OF |\\n| IN lv_message WITH |\\\\n|.
REPLACE ALL OCCURRENCES OF |"| IN ls_list-expected WITH |\\"|.
REPLACE ALL OCCURRENCES OF |\\n| IN ls_list-expected WITH |\\\\n|.
REPLACE ALL OCCURRENCES OF |"| IN ls_list-actual WITH |\\"|.
REPLACE ALL OCCURRENCES OF |\\n| IN ls_list-actual WITH |\\\\n|.
REPLACE ALL OCCURRENCES OF |"| IN ls_list-console WITH |\\"|.
REPLACE ALL OCCURRENCES OF |\\n| IN ls_list-console WITH |\\\\n|.
lv_string = |\\{"class_name": "{ ls_list-class_name
}","testclass_name": "{ ls_list-testclass_name
}","method_name": "{ ls_list-method_name
}","expected": "{ ls_list-expected
}","actual": "{ ls_list-actual
}","status": "{ ls_list-status
}","runtime": { ls_list-runtime
},"console": "{ ls_list-console
}","message": "{ lv_message
}","js_location": "{ ls_list-js_location }"\\}|.
APPEND lv_string TO lt_strings.
ENDLOOP.
CONCATENATE LINES OF lt_strings INTO rv_json SEPARATED BY '',''.
rv_json = ''['' && rv_json && '']''.
ENDMETHOD.
METHOD unique_classes.
DATA ls_input LIKE LINE OF it_input.
DATA ls_class LIKE LINE OF rt_classes.
LOOP AT it_input INTO ls_input.
MOVE-CORRESPONDING ls_input TO ls_class.
INSERT ls_class INTO TABLE rt_classes.
ENDLOOP.
SORT rt_classes.
DELETE ADJACENT DUPLICATES FROM rt_classes.
ENDMETHOD.
METHOD run.
DATA ls_input LIKE LINE OF it_input.
DATA lv_time TYPE i.
DATA lo_obj TYPE REF TO object.
DATA lv_name TYPE string.
DATA lt_classes TYPE ty_classes.
DATA ls_class LIKE LINE OF lt_classes.
DATA lx_root TYPE REF TO cx_root.
DATA lx_assert TYPE REF TO kernel_cx_assert.
FIELD-SYMBOLS <ls_result> LIKE LINE OF rs_result-list.
* todo, respect quit level, default = method?
lt_classes = unique_classes( it_input ).
LOOP AT lt_classes INTO ls_class.
* this is special, and must match the runtime:
lv_name = |CLAS-{ ls_class-class_name }-{ ls_class-testclass_name }|.
CREATE OBJECT lo_obj TYPE (lv_name).
TRY.
CALL METHOD lo_obj->(''CLASS_SETUP'').
CATCH cx_sy_dyn_call_illegal_method.
ENDTRY.
LOOP AT it_input INTO ls_input WHERE class_name = ls_class-class_name AND testclass_name = ls_class-testclass_name.
APPEND INITIAL LINE TO rs_result-list ASSIGNING <ls_result>.
MOVE-CORRESPONDING ls_input TO <ls_result>.
TRY.
CALL METHOD lo_obj->(''SETUP'').
CATCH cx_sy_dyn_call_illegal_method.
ENDTRY.
GET RUN TIME FIELD lv_time.
CLEAR mv_console.
TRY.
CALL METHOD lo_obj->(ls_input-method_name).
<ls_result>-status = gc_status-success.
<ls_result>-console = mv_console.
CATCH kernel_cx_assert INTO lx_assert.
<ls_result>-status = gc_status-failed.
<ls_result>-actual = lx_assert->actual.
<ls_result>-expected = lx_assert->expected.
<ls_result>-message = lx_assert->msg.
<ls_result>-js_location = get_location( lx_assert ).
<ls_result>-console = mv_console.
CATCH cx_root INTO lx_root.
<ls_result>-status = gc_status-failed.
<ls_result>-message = |Some exception raised|. " todo, use RTTI to find the class name?
<ls_result>-js_location = get_location( lx_root ).
<ls_result>-console = mv_console.
ENDTRY.
GET RUN TIME FIELD lv_time.
<ls_result>-runtime = lv_time.
TRY.
CALL METHOD lo_obj->(''TEARDOWN'').
CATCH cx_sy_dyn_call_illegal_method.
ENDTRY.
ENDLOOP.
TRY.
CALL METHOD lo_obj->(''CLASS_TEARDOWN'').
CATCH cx_sy_dyn_call_illegal_method.
ENDTRY.
ENDLOOP.
rs_result-json = to_json( rs_result-list ).
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_OSQL_TEST_ENVIRONMENT ', 'CLASS cl_osql_test_environment DEFINITION PUBLIC.
PUBLIC SECTION.
INTERFACES if_osql_test_environment.
CLASS-METHODS create
IMPORTING
i_dependency_list TYPE if_osql_test_environment=>ty_t_sobjnames
RETURNING
VALUE(r_result) TYPE REF TO if_osql_test_environment.
PRIVATE SECTION.
CONSTANTS mv_schema TYPE string VALUE ''double''.
DATA mt_tables TYPE if_osql_test_environment=>ty_t_sobjnames.
DATA mo_sql TYPE REF TO cl_sql_statement.
METHODS initialize.
METHODS validate.
METHODS set_runtime_prefix.
ENDCLASS.
CLASS cl_osql_test_environment IMPLEMENTATION.
METHOD create.
DATA lo_env TYPE REF TO cl_osql_test_environment.
ASSERT sy-dbsys = ''sqlite''.
CREATE OBJECT lo_env.
lo_env->mt_tables = i_dependency_list.
CREATE OBJECT lo_env->mo_sql.
lo_env->initialize( ).
r_result = lo_env.
ENDMETHOD.
METHOD validate.
DATA ref TYPE REF TO data.
DATA lv_table LIKE LINE OF mt_tables.
FIELD-SYMBOLS <fs> TYPE any.
LOOP AT mt_tables INTO lv_table.
TRY.
CREATE DATA ref TYPE (lv_table).
ASSIGN ref->* TO <fs>.
SELECT SINGLE * FROM (lv_table) INTO <fs>.
CATCH cx_sy_create_data_error cx_sy_dynamic_osql_semantics.
WRITE ''@KERNEL throw new Error(\`table \${lv_table.get().trimEnd()} invalid or does not exist\`);''.
ENDTRY.
ENDLOOP.
ENDMETHOD.
METHOD initialize.
DATA lv_table LIKE LINE OF mt_tables.
DATA lv_sql TYPE string.
DATA lo_result TYPE REF TO cl_sql_result_set.
DATA lr_ref TYPE REF TO data.
WRITE ''@KERNEL if (abap.dbo.schemaPrefix !== "") throw new Error("already prefixed");''.
* validate that the tables to be doubled exists
validate( ).
* https://www.sqlite.org/lang_attach.html
mo_sql->execute_update( |ATTACH DATABASE '':memory:'' AS { mv_schema };| ).
LOOP AT mt_tables INTO lv_table.
lv_table = to_lower( lv_table ).
lo_result = mo_sql->execute_query( |SELECT sql FROM main.sqlite_master WHERE type=''table'' AND name=''{ lv_table }'';| ).
GET REFERENCE OF lv_sql INTO lr_ref.
lo_result->set_param( lr_ref ).
lo_result->next( ).
lo_result->close( ).
REPLACE FIRST OCCURRENCE OF lv_table IN lv_sql WITH |{ mv_schema }''.''{ lv_table }|.
ASSERT sy-subrc = 0.
mo_sql->execute_update( lv_sql ).
ENDLOOP.
set_runtime_prefix( ).
ENDMETHOD.
METHOD set_runtime_prefix.
WRITE ''@KERNEL abap.dbo.schemaPrefix = this.mv_schema.get();''.
ENDMETHOD.
METHOD if_osql_test_environment~clear_doubles.
DATA lv_table LIKE LINE OF mt_tables.
LOOP AT mt_tables INTO lv_table.
lv_table = to_lower( lv_table ).
mo_sql->execute_update( |DELETE FROM { mv_schema }."{ lv_table }";| ).
ENDLOOP.
ENDMETHOD.
METHOD if_osql_test_environment~destroy.
* https://www.sqlite.org/lang_detach.html
mo_sql->execute_update( |DETACH DATABASE { mv_schema };| ).
WRITE ''@KERNEL abap.dbo.schemaPrefix = "";''.
ENDMETHOD.
METHOD if_osql_test_environment~insert_test_data.
DATA lo_table_descr TYPE REF TO cl_abap_tabledescr.
DATA lo_struct_descr TYPE REF TO cl_abap_structdescr.
DATA lv_table TYPE string.
lo_table_descr ?= cl_abap_typedescr=>describe_by_data( i_data ).
lo_struct_descr ?= lo_table_descr->get_table_line_type( ).
lv_table = lo_struct_descr->get_relative_name( ).
* sanity checks,
ASSERT lv_table IS NOT INITIAL.
READ TABLE mt_tables WITH KEY table_line = lv_table TRANSPORTING NO FIELDS.
ASSERT sy-subrc = 0.
INSERT (lv_table) FROM TABLE i_data.
ASSERT sy-subrc = 0.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_OSQL_TEST_ENVIRONMENT ', 'INTERFACE if_osql_test_environment PUBLIC.
TYPES ty_s_sobjname TYPE abap_compname.
TYPES ty_t_sobjnames TYPE STANDARD TABLE OF ty_s_sobjname WITH DEFAULT KEY.
METHODS clear_doubles.
METHODS destroy.
METHODS insert_test_data
IMPORTING
i_data TYPE ANY TABLE.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_SYSTEM_UUID ', 'CLASS cl_system_uuid DEFINITION PUBLIC.
PUBLIC SECTION.
INTERFACES if_system_uuid_rfc4122_static.
INTERFACES if_system_uuid_static.
ALIASES create_uuid_c32_static FOR if_system_uuid_static~create_uuid_c32.
ALIASES create_uuid_x16_static FOR if_system_uuid_static~create_uuid_x16.
PRIVATE SECTION.
CLASS-METHODS random RETURNING VALUE(rv_str) TYPE string.
ENDCLASS.
CLASS cl_system_uuid IMPLEMENTATION.
METHOD random.
" browser and node
WRITE ''@KERNEL if (cl_system_uuid.CRYPTO === undefined) cl_system_uuid.CRYPTO = await import("crypto");''.
WRITE ''@KERNEL if (cl_system_uuid.CRYPTO.randomUUID) {''.
WRITE ''@KERNEL rv_str.set(cl_system_uuid.CRYPTO.randomUUID());''.
WRITE ''@KERNEL } else {''.
WRITE ''@KERNEL rv_str = window.crypto.randomUUID();''.
WRITE ''@KERNEL }''.
ENDMETHOD.
METHOD if_system_uuid_static~create_uuid_x16.
DATA lv_str TYPE string.
lv_str = random( ).
REPLACE ALL OCCURRENCES OF ''-'' IN lv_str WITH ''''.
TRANSLATE lv_str TO UPPER CASE.
uuid = lv_str(32).
ENDMETHOD.
METHOD if_system_uuid_static~create_uuid_c32.
DATA lv_str TYPE string.
lv_str = random( ).
REPLACE ALL OCCURRENCES OF ''-'' IN lv_str WITH ''''.
uuid = lv_str(32).
TRANSLATE uuid TO UPPER CASE.
ENDMETHOD.
METHOD if_system_uuid_rfc4122_static~create_uuid_c36_by_version.
ASSERT version = 4.
uuid = random( ).
ENDMETHOD.
METHOD if_system_uuid_static~create_uuid_c22.
DATA lv_str TYPE string.
lv_str = random( ).
REPLACE ALL OCCURRENCES OF ''-'' IN lv_str WITH ''''.
uuid = lv_str(22).
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_UUID_ERROR ', 'CLASS cx_uuid_error DEFINITION PUBLIC INHERITING FROM cx_static_check.
ENDCLASS.
CLASS cx_uuid_error IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_SYSTEM_UUID_RFC4122_STATIC ', 'INTERFACE if_system_uuid_rfc4122_static PUBLIC.
CLASS-METHODS create_uuid_c36_by_version
IMPORTING
version TYPE i
RETURNING
VALUE(uuid) TYPE sysuuid_c36
RAISING
cx_uuid_error.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_SYSTEM_UUID_STATIC ', 'INTERFACE if_system_uuid_static PUBLIC.
CLASS-METHODS create_uuid_x16
RETURNING
VALUE(uuid) TYPE sysuuid_x16
RAISING
cx_uuid_error.
CLASS-METHODS create_uuid_c32
RETURNING
VALUE(uuid) TYPE sysuuid_c32
RAISING
cx_uuid_error.
CLASS-METHODS create_uuid_c22
RETURNING
VALUE(uuid) TYPE sysuuid_c22
RAISING
cx_uuid_error.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ALV_CHANGED_DATA_PROTOCOL ', 'CLASS cl_alv_changed_data_protocol DEFINITION PUBLIC.
PUBLIC SECTION.
ENDCLASS.
CLASS cl_alv_changed_data_protocol IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ALV_EVENT_TOOLBAR_SET ', 'CLASS cl_alv_event_toolbar_set DEFINITION PUBLIC.
PUBLIC SECTION.
DATA mt_toolbar TYPE ttb_button.
ENDCLASS.
CLASS cl_alv_event_toolbar_set IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ALV_TABLE_CREATE ', 'CLASS cl_alv_table_create DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS create_dynamic_table
IMPORTING
i_style_table TYPE char1 OPTIONAL
it_fieldcatalog TYPE any
i_length_in_byte TYPE abap_bool OPTIONAL
EXPORTING
ep_table TYPE REF TO data
e_style_fname TYPE string.
ENDCLASS.
CLASS cl_alv_table_create IMPLEMENTATION.
METHOD create_dynamic_table.
ASSERT 1 = 2.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ALV_VARIANT ', 'CLASS cl_alv_variant DEFINITION PUBLIC.
PUBLIC SECTION.
METHODS delete_variants
IMPORTING
it_variants TYPE any
RETURNING
VALUE(boolean) TYPE abap_bool.
ENDCLASS.
CLASS cl_alv_variant IMPLEMENTATION.
METHOD delete_variants.
RETURN. " todo, implement method
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ABAP_BROWSER ', 'CLASS cl_abap_browser DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS show_xml
IMPORTING
xml_string TYPE string
title TYPE string OPTIONAL
container TYPE REF TO cl_gui_container OPTIONAL
dialog TYPE abap_bool OPTIONAL
printing TYPE abap_bool OPTIONAL.
CLASS-METHODS show_html
IMPORTING
html_string TYPE string
title TYPE string OPTIONAL
container TYPE REF TO cl_gui_container OPTIONAL
dialog TYPE abap_bool OPTIONAL
printing TYPE abap_bool OPTIONAL.
ENDCLASS.
CLASS cl_abap_browser IMPLEMENTATION.
METHOD show_xml.
RETURN.
ENDMETHOD.
METHOD show_html.
RETURN.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_GUI_ALV_GRID ', 'CLASS cl_gui_alv_grid DEFINITION PUBLIC INHERITING FROM cl_gui_control.
PUBLIC SECTION.
METHODS constructor
IMPORTING
i_parent TYPE REF TO cl_gui_container
i_appl_events TYPE char1 DEFAULT space.
METHODS free.
METHODS set_frontend_layout
IMPORTING
is_layout TYPE any.
METHODS set_table_for_first_display
IMPORTING
i_buffer_active TYPE any OPTIONAL
i_bypassing_buffer TYPE abap_bool OPTIONAL
i_consistency_check TYPE abap_bool OPTIONAL
i_structure_name TYPE any OPTIONAL
is_variant TYPE any OPTIONAL
i_save TYPE abap_bool OPTIONAL
i_default TYPE abap_bool DEFAULT abap_true
is_layout TYPE any OPTIONAL
is_print TYPE any OPTIONAL
it_special_groups TYPE any OPTIONAL
it_toolbar_excluding TYPE any OPTIONAL
it_hyperlink TYPE any OPTIONAL
it_alv_graphics TYPE any OPTIONAL
it_except_qinfo TYPE any OPTIONAL
ir_salv_adapter TYPE REF TO any OPTIONAL
CHANGING
it_outtab TYPE STANDARD TABLE
it_fieldcatalog TYPE any OPTIONAL
it_sort TYPE any OPTIONAL
it_filter TYPE any OPTIONAL
EXCEPTIONS
invalid_parameter_combination
program_error
too_many_lines.
METHODS get_selected_rows
EXPORTING
et_index_rows TYPE any
et_row_no TYPE any.
METHODS refresh_table_display
IMPORTING
is_stable TYPE any OPTIONAL
i_soft_refresh TYPE abap_bool OPTIONAL
EXCEPTIONS
finished.
EVENTS double_click
EXPORTING
VALUE(e_row) TYPE any OPTIONAL
VALUE(e_column) TYPE any OPTIONAL
VALUE(es_row_no) TYPE any OPTIONAL.
EVENTS data_changed
EXPORTING
VALUE(er_data_changed) TYPE REF TO cl_alv_changed_data_protocol OPTIONAL
VALUE(e_onf4) TYPE char1 OPTIONAL
VALUE(e_onf4_before) TYPE char1 OPTIONAL
VALUE(e_onf4_after) TYPE char1 OPTIONAL
VALUE(e_ucomm) TYPE sy-ucomm OPTIONAL.
EVENTS after_user_command
EXPORTING
VALUE(e_ucomm) TYPE sy-ucomm OPTIONAL
VALUE(e_saved) TYPE abap_bool OPTIONAL
VALUE(e_not_processed) TYPE abap_bool OPTIONAL.
EVENTS user_command
EXPORTING
VALUE(e_ucomm) TYPE sy-ucomm OPTIONAL.
EVENTS hotspot_click
EXPORTING
VALUE(e_row_id) TYPE lvc_s_row OPTIONAL
VALUE(e_column_id) TYPE lvc_s_col OPTIONAL
VALUE(es_row_no) TYPE lvc_s_roid OPTIONAL.
EVENTS toolbar
EXPORTING
VALUE(e_object) TYPE REF TO cl_alv_event_toolbar_set OPTIONAL
VALUE(e_interactive) TYPE char1 OPTIONAL.
CLASS-METHODS offline
RETURNING
VALUE(e_offline) TYPE i.
METHODS set_ready_for_input
IMPORTING
i_ready_for_input TYPE i.
METHODS set_selected_rows
IMPORTING
it_index_rows TYPE any OPTIONAL
it_row_no TYPE any OPTIONAL
is_keep_other_selections TYPE abap_bool OPTIONAL.
METHODS set_toolbar_interactive.
METHODS set_gridtitle
IMPORTING
i_gridtitle TYPE lvc_title.
METHODS check_changed_data
EXPORTING
e_valid TYPE abap_bool
CHANGING
c_refresh TYPE abap_bool DEFAULT abap_true.
METHODS get_frontend_layout
EXPORTING
es_layout TYPE lvc_s_layo.
METHODS get_frontend_fieldcatalog
EXPORTING
et_fieldcatalog TYPE any.
CONSTANTS mc_fc_detail TYPE ui_func VALUE ''TODO''.
CONSTANTS mc_fc_loc_append_row TYPE ui_func VALUE ''TODO''.
CONSTANTS mc_fc_loc_copy TYPE ui_func VALUE ''TODO''.
CONSTANTS mc_fc_loc_copy_row TYPE ui_func VALUE ''TODO''.
CONSTANTS mc_fc_loc_cut TYPE ui_func VALUE ''TODO''.
CONSTANTS mc_fc_loc_delete_row TYPE ui_func VALUE ''TODO''.
CONSTANTS mc_fc_loc_insert_row TYPE ui_func VALUE ''TODO''.
CONSTANTS mc_fc_loc_move_row TYPE ui_func VALUE ''TODO''.
CONSTANTS mc_fc_loc_paste TYPE ui_func VALUE ''TODO''.
CONSTANTS mc_fc_loc_paste_new_row TYPE ui_func VALUE ''TODO''.
CONSTANTS mc_fc_loc_undo TYPE ui_func VALUE ''TODO''.
CONSTANTS mc_fc_refresh TYPE ui_func VALUE ''TODO''.
ENDCLASS.
CLASS cl_gui_alv_grid IMPLEMENTATION.
METHOD get_frontend_fieldcatalog.
RETURN. " todo, implement method
ENDMETHOD.
METHOD get_frontend_layout.
RETURN. " todo, implement method
ENDMETHOD.
METHOD check_changed_data.
RETURN. " todo, implement method
ENDMETHOD.
METHOD set_gridtitle.
RETURN. " todo, implement method
ENDMETHOD.
METHOD constructor.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_frontend_layout.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_toolbar_interactive.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_ready_for_input.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_selected_rows.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD offline.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD free.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD refresh_table_display.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_table_for_first_display.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD get_selected_rows.
ASSERT 1 = ''todo''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_GUI_CFW ', 'CLASS cl_gui_cfw DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS
compute_pixel_from_metric
IMPORTING
x_or_y TYPE c
in TYPE i
RETURNING
VALUE(val) TYPE i.
CLASS-METHODS
flush.
CLASS-METHODS
set_new_ok_code
IMPORTING new_code
TYPE clike.
ENDCLASS.
CLASS cl_gui_cfw IMPLEMENTATION.
METHOD compute_pixel_from_metric.
val = 1.
ENDMETHOD.
METHOD flush.
RETURN.
ENDMETHOD.
METHOD set_new_ok_code.
ASSERT 1 = ''not implemented''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_GUI_COLUMN_TREE ', 'CLASS cl_gui_column_tree DEFINITION PUBLIC.
PUBLIC SECTION.
CONSTANTS align_center TYPE i VALUE 1.
CONSTANTS align_right TYPE i VALUE 2.
CONSTANTS eventid_button_click TYPE i VALUE 1.
CONSTANTS eventid_link_click TYPE i VALUE 2.
CONSTANTS eventid_node_double_click TYPE i VALUE 25.
CONSTANTS eventid_item_double_click TYPE i VALUE 22.
CONSTANTS item_class_button TYPE i VALUE 2.
CONSTANTS item_class_link TYPE i VALUE 3.
CONSTANTS item_class_text TYPE i VALUE 1.
CONSTANTS node_sel_mode_single TYPE i VALUE 1.
CONSTANTS relat_last_child TYPE i VALUE 1.
CONSTANTS style_emphasized TYPE i VALUE 1.
CONSTANTS style_emphasized_a TYPE i VALUE 2.
CONSTANTS style_emphasized_c TYPE i VALUE 3.
CONSTANTS style_emphasized_positive TYPE i VALUE 4.
CONSTANTS style_inactive TYPE i VALUE 5.
METHODS constructor
IMPORTING
parent TYPE REF TO cl_gui_container
node_selection_mode TYPE i
item_selection TYPE abap_bool
hierarchy_column_name TYPE clike
hierarchy_header TYPE treev_hhdr.
METHODS free.
METHODS add_nodes_and_items
IMPORTING
node_table TYPE any OPTIONAL
item_table TYPE STANDARD TABLE
item_table_structure_name TYPE clike
EXCEPTIONS
failed
cntl_system_error
error_in_tables
dp_error
table_structure_name_not_found.
METHODS set_registered_events
IMPORTING
events TYPE cntl_simple_events
EXCEPTIONS
cntl_error
cntl_system_error
illegal_event_combination.
METHODS delete_all_nodes
EXCEPTIONS
failed
cntl_system_error.
METHODS add_column
IMPORTING
name TYPE clike
hidden TYPE abap_bool OPTIONAL
disabled TYPE abap_bool OPTIONAL
alignment TYPE i OPTIONAL
width TYPE i
width_pix TYPE abap_bool OPTIONAL
header_image TYPE clike OPTIONAL
header_text TYPE clike
header_tooltip TYPE clike OPTIONAL
EXCEPTIONS
column_exists
illegal_column_name
too_many_columns
illegal_alignment
different_column_types
cntl_system_error
failed
predecessor_column_not_found.
METHODS expand_node
IMPORTING
node_key TYPE clike
level_count TYPE i OPTIONAL
expand_subtree TYPE abap_bool OPTIONAL
EXCEPTIONS
failed
illegal_level_count
cntl_system_error
node_not_found
cannot_expand_leaf.
EVENTS button_click
EXPORTING
VALUE(node_key) TYPE string
VALUE(item_name) TYPE string.
EVENTS link_click
EXPORTING
VALUE(node_key) TYPE string
VALUE(item_name) TYPE string.
ENDCLASS.
CLASS cl_gui_column_tree IMPLEMENTATION.
METHOD constructor.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD expand_node.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD free.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD add_column.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD add_nodes_and_items.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_registered_events.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD delete_all_nodes.
ASSERT 1 = ''todo''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_GUI_CONTAINER ', 'CLASS cl_gui_container DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-DATA screen0 TYPE REF TO cl_gui_container.
CLASS-DATA default_screen TYPE REF TO cl_gui_container.
CONSTANTS visible_true TYPE c LENGTH 1 VALUE ''1''.
CONSTANTS visible_false TYPE c LENGTH 1 VALUE ''0''.
METHODS free.
ENDCLASS.
CLASS cl_gui_container IMPLEMENTATION.
METHOD free.
ASSERT 1 = ''not supported''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_GUI_CONTROL ', 'CLASS cl_gui_control DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-DATA www_active TYPE abap_bool READ-ONLY.
CLASS-METHODS set_focus
IMPORTING
control TYPE REF TO cl_gui_control.
METHODS set_enable
IMPORTING
enable TYPE c.
METHODS set_visible
IMPORTING
visible TYPE c.
ENDCLASS.
CLASS cl_gui_control IMPLEMENTATION.
METHOD set_visible.
RETURN. " todo, implement method
ENDMETHOD.
METHOD set_focus.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_enable.
ASSERT 1 = ''todo''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_GUI_CUSTOM_CONTAINER ', 'CLASS cl_gui_custom_container DEFINITION PUBLIC INHERITING FROM cl_gui_container.
PUBLIC SECTION.
METHODS constructor
IMPORTING
container_name TYPE c.
ENDCLASS.
CLASS cl_gui_custom_container IMPLEMENTATION.
METHOD constructor.
ASSERT 1 = 2.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_GUI_FRONTEND_SERVICES ', 'CLASS cl_gui_frontend_services DEFINITION PUBLIC.
PUBLIC SECTION.
CONSTANTS filetype_all TYPE string VALUE ''abc''.
CONSTANTS filetype_xml TYPE string VALUE ''xml''.
CONSTANTS filetype_text TYPE string VALUE ''txt''.
CONSTANTS action_cancel TYPE i VALUE 1.
CONSTANTS action_ok TYPE i VALUE 1.
CONSTANTS platform_nt351 TYPE i VALUE 1.
CONSTANTS platform_nt40 TYPE i VALUE 2.
CONSTANTS platform_nt50 TYPE i VALUE 3.
CONSTANTS platform_windows95 TYPE i VALUE 4.
CONSTANTS platform_windows98 TYPE i VALUE 5.
CONSTANTS platform_windowsxp TYPE i VALUE 6.
CLASS-METHODS
gui_download
IMPORTING
bin_filesize TYPE i OPTIONAL
filename TYPE string
filetype TYPE string OPTIONAL
write_lf TYPE abap_bool OPTIONAL
write_field_separator TYPE char1 OPTIONAL
show_transfer_status TYPE char1 OPTIONAL
confirm_overwrite TYPE abap_bool OPTIONAL
CHANGING
data_tab TYPE any.
CLASS-METHODS file_exist
IMPORTING
file TYPE string
RETURNING
VALUE(result) TYPE abap_bool.
CLASS-METHODS
directory_list_files
IMPORTING
directory TYPE string
files_only TYPE abap_bool OPTIONAL
CHANGING
file_table TYPE any
count TYPE i.
CLASS-METHODS
gui_upload
IMPORTING
filename TYPE string
filetype TYPE char10 OPTIONAL
codepage TYPE abap_encoding DEFAULT space
read_by_line TYPE abap_bool OPTIONAL
EXPORTING
filelength TYPE i
CHANGING
data_tab TYPE any.
CLASS-METHODS
file_open_dialog
IMPORTING
window_title TYPE string OPTIONAL
default_filename TYPE string OPTIONAL
default_extension TYPE string OPTIONAL
multiselection TYPE abap_bool OPTIONAL
file_filter TYPE string OPTIONAL
initial_directory TYPE string OPTIONAL
CHANGING
file_table TYPE filetable
rc TYPE i
user_action TYPE i OPTIONAL.
CLASS-METHODS
get_platform
RETURNING
VALUE(platform) TYPE i.
CLASS-METHODS
file_save_dialog
IMPORTING
window_title TYPE string OPTIONAL
default_extension TYPE string OPTIONAL
default_file_name TYPE string OPTIONAL
file_filter TYPE string OPTIONAL
initial_directory TYPE string OPTIONAL
prompt_on_overwrite TYPE abap_bool OPTIONAL
CHANGING
filename TYPE string
path TYPE string
fullpath TYPE string
user_action TYPE i OPTIONAL.
CLASS-METHODS
directory_browse
IMPORTING
window_title TYPE string OPTIONAL
initial_folder TYPE string OPTIONAL
CHANGING
selected_folder TYPE string.
CLASS-METHODS
execute
IMPORTING
document TYPE string OPTIONAL
application TYPE string OPTIONAL
parameter TYPE string OPTIONAL
default_directory TYPE string OPTIONAL
maximized TYPE string OPTIONAL
minimized TYPE string OPTIONAL
synchronous TYPE string OPTIONAL
operation TYPE string DEFAULT ''OPEN''.
CLASS-METHODS
get_file_separator
CHANGING
file_separator TYPE string.
CLASS-METHODS
directory_exist
IMPORTING
directory TYPE string
RETURNING
VALUE(result) TYPE abap_bool.
CLASS-METHODS
directory_create
IMPORTING
directory TYPE string
CHANGING
rc TYPE i.
CLASS-METHODS
clipboard_export
IMPORTING
no_auth_check TYPE abap_bool OPTIONAL
EXPORTING
data TYPE any
CHANGING
rc TYPE i.
CLASS-METHODS
get_system_directory
CHANGING
system_directory TYPE string.
CLASS-METHODS
get_gui_version
CHANGING
version_table TYPE filetable
rc TYPE i.
CLASS-METHODS clipboard_import
EXPORTING
data TYPE STANDARD TABLE
length TYPE i.
CLASS-METHODS file_delete
IMPORTING
filename TYPE string
CHANGING
rc TYPE i.
CLASS-METHODS get_sapgui_workdir
CHANGING
sapworkdir TYPE string.
ENDCLASS.
CLASS cl_gui_frontend_services IMPLEMENTATION.
METHOD directory_exist.
ASSERT 1 = ''directory_exist not supported''.
ENDMETHOD.
METHOD get_sapgui_workdir.
ASSERT 1 = ''get_sapgui_workdir not supported''.
ENDMETHOD.
METHOD file_exist.
ASSERT 1 = ''file_exist not supported''.
ENDMETHOD.
METHOD file_delete.
ASSERT 1 = ''file_delete not supported''.
ENDMETHOD.
METHOD clipboard_import.
ASSERT 1 = ''clipboard_import not supported''.
ENDMETHOD.
METHOD directory_list_files.
ASSERT 1 = ''directory_list_files not supported''.
ENDMETHOD.
METHOD directory_create.
ASSERT 1 = ''directory_create not supported''.
ENDMETHOD.
METHOD gui_download.
ASSERT 1 = ''gui_download not supported''.
ENDMETHOD.
METHOD get_file_separator.
ASSERT 1 = ''get_file_separator not supported''.
ENDMETHOD.
METHOD execute.
ASSERT 1 = ''execute not supported''.
ENDMETHOD.
METHOD directory_browse.
ASSERT 1 = ''directory_browse not supported''.
ENDMETHOD.
METHOD gui_upload.
ASSERT 1 = ''gui_upload not supported''.
ENDMETHOD.
METHOD file_open_dialog.
ASSERT 1 = ''file_open_dialog not supported''.
ENDMETHOD.
METHOD file_save_dialog.
ASSERT 1 = ''file_save_dialog not supported''.
ENDMETHOD.
METHOD get_platform.
platform = platform_windowsxp.
ENDMETHOD.
METHOD clipboard_export.
ASSERT 1 = ''clipboard_export not supported''.
ENDMETHOD.
METHOD get_system_directory.
ASSERT 1 = ''get_system_directory not supported''.
ENDMETHOD.
METHOD get_gui_version.
* just some dummy values
* release,
INSERT ''9999'' INTO TABLE version_table.
* sp,
INSERT ''1'' INTO TABLE version_table.
* patch,
INSERT ''20'' INTO TABLE version_table.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_GUI_PICTURE ', 'CLASS cl_gui_picture DEFINITION INHERITING FROM cl_gui_control PUBLIC.
PUBLIC SECTION.
CONSTANTS display_mode_fit TYPE i VALUE 2.
METHODS constructor
IMPORTING
parent TYPE REF TO cl_gui_container.
METHODS clear_picture.
METHODS free.
METHODS set_display_mode
IMPORTING
display_mode TYPE i.
METHODS load_picture_from_url_async
IMPORTING
url TYPE c.
METHODS load_picture_from_url
IMPORTING
url TYPE c
EXPORTING
result TYPE i.
ENDCLASS.
CLASS cl_gui_picture IMPLEMENTATION.
METHOD load_picture_from_url.
RETURN. " todo, implement method
ENDMETHOD.
METHOD load_picture_from_url_async.
RETURN. " todo, implement method
ENDMETHOD.
METHOD free.
RETURN. " todo, implement method
ENDMETHOD.
METHOD clear_picture.
RETURN. " todo, implement method
ENDMETHOD.
METHOD constructor.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_display_mode.
ASSERT 1 = ''todo''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_GUI_SPLITTER_CONTAINER ', 'CLASS cl_gui_splitter_container DEFINITION PUBLIC.
PUBLIC SECTION.
CONSTANTS mode_absolute TYPE i VALUE 0.
METHODS constructor
IMPORTING
parent TYPE REF TO cl_gui_container OPTIONAL
rows TYPE i OPTIONAL
columns TYPE i OPTIONAL.
METHODS free.
METHODS set_column_mode
IMPORTING
mode TYPE i
EXPORTING
result TYPE i.
METHODS set_column_width
IMPORTING
id TYPE i
width TYPE i
EXPORTING
result TYPE i
EXCEPTIONS
cntl_error
cntl_system_error.
METHODS set_border
IMPORTING
border TYPE abap_bool
EXCEPTIONS
cntl_error
cntl_system_error.
METHODS get_container
IMPORTING
row TYPE i
column TYPE i
RETURNING
VALUE(container) TYPE REF TO cl_gui_container.
ENDCLASS.
CLASS cl_gui_splitter_container IMPLEMENTATION.
METHOD constructor.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_column_mode.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD free.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD get_container.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_column_width.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_border.
ASSERT 1 = ''todo''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_GUI_TEXTEDIT ', 'CLASS cl_gui_textedit DEFINITION INHERITING FROM cl_gui_control PUBLIC.
PUBLIC SECTION.
CONSTANTS false TYPE i VALUE 0.
CONSTANTS true TYPE i VALUE 1.
METHODS constructor
IMPORTING
max_number_chars TYPE i OPTIONAL
parent TYPE REF TO cl_gui_container.
METHODS set_toolbar_mode
IMPORTING
toolbar_mode TYPE i DEFAULT false.
METHODS set_statusbar_mode
IMPORTING
statusbar_mode TYPE i DEFAULT false.
METHODS get_textstream
IMPORTING
only_when_modified TYPE i DEFAULT false
EXPORTING
text TYPE string
is_modified TYPE i.
METHODS set_readonly_mode
IMPORTING
readonly_mode TYPE i DEFAULT true.
METHODS delete_text.
METHODS set_text_as_stream
IMPORTING
text TYPE STANDARD TABLE OPTIONAL.
METHODS set_font_fixed
IMPORTING
mode TYPE i DEFAULT true.
METHODS set_textstream
IMPORTING
text TYPE string OPTIONAL.
ENDCLASS.
CLASS cl_gui_textedit IMPLEMENTATION.
METHOD set_textstream.
RETURN. " todo, implement method
ENDMETHOD.
METHOD set_font_fixed.
RETURN. " todo, implement method
ENDMETHOD.
METHOD set_text_as_stream.
RETURN. " todo, implement method
ENDMETHOD.
METHOD delete_text.
RETURN. " todo, implement method
ENDMETHOD.
METHOD set_readonly_mode.
RETURN. " todo, implement method
ENDMETHOD.
METHOD constructor.
ASSERT 1 = 2.
ENDMETHOD.
METHOD set_toolbar_mode.
ASSERT 1 = 2.
ENDMETHOD.
METHOD set_statusbar_mode.
ASSERT 1 = 2.
ENDMETHOD.
METHOD get_textstream.
ASSERT 1 = 2.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_GUI_TOOLBAR ', 'CLASS cl_gui_toolbar DEFINITION PUBLIC.
PUBLIC SECTION.
METHODS free.
METHODS add_button
IMPORTING
fcode TYPE clike
icon TYPE c
is_disabled TYPE abap_bool OPTIONAL
butn_type TYPE i
text TYPE string OPTIONAL
quickinfo TYPE string OPTIONAL
is_checked TYPE c OPTIONAL
EXCEPTIONS
cntl_error
cntb_btype_error
cntb_error_fcode.
METHODS set_static_ctxmenu
IMPORTING
fcode TYPE clike
icon TYPE clike OPTIONAL
ctxmenu TYPE any OPTIONAL
btntype TYPE i OPTIONAL.
EVENTS function_selected
EXPORTING
VALUE(fcode) TYPE any.
ENDCLASS.
CLASS cl_gui_toolbar IMPLEMENTATION.
METHOD set_static_ctxmenu.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD free.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD add_button.
ASSERT 1 = ''todo''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_PROGRESS_INDICATOR ', 'CLASS cl_progress_indicator DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS progress_indicate
IMPORTING
i_text TYPE any OPTIONAL
i_processed TYPE sy-tabix OPTIONAL
i_total TYPE sy-tabix OPTIONAL
i_output_immediately TYPE abap_bool OPTIONAL
EXPORTING
e_progress_sent TYPE abap_bool.
ENDCLASS.
CLASS cl_progress_indicator IMPLEMENTATION.
METHOD progress_indicate.
* do nothing, gui is not supported, but background logic might indicatoe progress
RETURN.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_SALV_AGGREGATIONS ', 'CLASS cl_salv_aggregations DEFINITION PUBLIC.
PUBLIC SECTION.
METHODS add_aggregation
IMPORTING
columnname TYPE any
aggregation TYPE i DEFAULT if_salv_c_aggregation=>total.
ENDCLASS.
CLASS cl_salv_aggregations IMPLEMENTATION.
METHOD add_aggregation.
ASSERT 1 = ''todo''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_SALV_COLUMN ', 'CLASS cl_salv_column DEFINITION PUBLIC.
PUBLIC SECTION.
METHODS set_technical IMPORTING value TYPE abap_bool DEFAULT abap_true.
METHODS set_short_text IMPORTING value TYPE clike.
METHODS set_medium_text IMPORTING value TYPE clike.
METHODS set_long_text IMPORTING value TYPE clike.
METHODS set_output_length IMPORTING value TYPE any.
METHODS set_sign IMPORTING value TYPE any OPTIONAL.
METHODS set_optimized IMPORTING value TYPE abap_bool DEFAULT abap_true.
METHODS set_alignment IMPORTING svalue TYPE any OPTIONAL.
ENDCLASS.
CLASS cl_salv_column IMPLEMENTATION.
METHOD set_alignment.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_optimized.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_technical.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_short_text.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_medium_text.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_long_text.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_output_length.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_sign.
ASSERT 1 = ''todo''.
ENDMETHOD.
ENDCLASS.
');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_SALV_COLUMN_LIST ', 'CLASS cl_salv_column_list DEFINITION PUBLIC INHERITING FROM cl_salv_column.
PUBLIC SECTION.
METHODS set_icon
IMPORTING
value TYPE abap_bool DEFAULT abap_true.
METHODS set_cell_type
IMPORTING
value TYPE any OPTIONAL.
ENDCLASS.
CLASS cl_salv_column_list IMPLEMENTATION.
METHOD set_cell_type.
RETURN. " todo, implement method
ENDMETHOD.
METHOD set_icon.
RETURN. " todo, implement method
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_SALV_COLUMN_TABLE ', 'CLASS cl_salv_column_table DEFINITION PUBLIC INHERITING FROM cl_salv_column_list.
PUBLIC SECTION.
ENDCLASS.
CLASS cl_salv_column_table IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_SALV_COLUMNS_TABLE ', 'CLASS cl_salv_columns_table DEFINITION PUBLIC.
PUBLIC SECTION.
METHODS set_cell_type_column
IMPORTING value TYPE string.
METHODS set_optimize
IMPORTING value TYPE abap_bool DEFAULT abap_true.
METHODS set_color_column
IMPORTING value TYPE string.
METHODS get_column
IMPORTING columnname TYPE string
RETURNING VALUE(value) TYPE REF TO cl_salv_column.
METHODS get
RETURNING VALUE(value) TYPE string.
METHODS set_exception_column
IMPORTING value TYPE any.
METHODS set_hyperlink_entry_column
IMPORTING
value TYPE any.
ENDCLASS.
CLASS cl_salv_columns_table IMPLEMENTATION.
METHOD set_hyperlink_entry_column.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD get_column.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_exception_column.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_cell_type_column.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_optimize.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD get.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_color_column.
ASSERT 1 = ''todo''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_SALV_EVENTS_TABLE ', 'CLASS cl_salv_events_table DEFINITION PUBLIC.
PUBLIC SECTION.
EVENTS double_click
EXPORTING
VALUE(row) TYPE i
VALUE(column) TYPE string.
EVENTS added_function
EXPORTING
VALUE(e_salv_function) TYPE string OPTIONAL.
EVENTS link_click
EXPORTING
VALUE(row) TYPE i
VALUE(column) TYPE string.
ENDCLASS.
CLASS cl_salv_events_table IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_SALV_FILTERS ', 'CLASS cl_salv_filters DEFINITION PUBLIC.
PUBLIC SECTION.
ENDCLASS.
CLASS cl_salv_filters IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_SALV_FUNCTIONAL_SETTINGS ', 'CLASS cl_salv_functional_settings DEFINITION PUBLIC.
PUBLIC SECTION.
METHODS get_hyperlinks
RETURNING
VALUE(value) TYPE REF TO cl_salv_hyperlinks.
ENDCLASS.
CLASS cl_salv_functional_settings IMPLEMENTATION.
METHOD get_hyperlinks.
RETURN.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_SALV_FUNCTIONS_LIST ', 'CLASS cl_salv_functions_list DEFINITION PUBLIC.
PUBLIC SECTION.
METHODS set_all
IMPORTING flag
TYPE abap_bool OPTIONAL.
METHODS get_functions
RETURNING
VALUE(sdf) TYPE string.
METHODS set_default
IMPORTING
value TYPE abap_bool DEFAULT abap_true.
METHODS add_function
IMPORTING
name TYPE any
icon TYPE string OPTIONAL
text TYPE string OPTIONAL
tooltip TYPE string
position TYPE any.
ENDCLASS.
CLASS cl_salv_functions_list IMPLEMENTATION.
METHOD set_all.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD get_functions.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_default.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD add_function.
ASSERT 1 = ''todo''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_SALV_HYPERLINKS ', 'CLASS cl_salv_hyperlinks DEFINITION PUBLIC.
PUBLIC SECTION.
METHODS add_hyperlink
IMPORTING
handle TYPE any
hyperlink TYPE any OPTIONAL
RAISING
cx_salv_existing.
ENDCLASS.
CLASS cl_salv_hyperlinks IMPLEMENTATION.
METHOD add_hyperlink.
RETURN.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_SALV_LAYOUT ', 'CLASS cl_salv_layout DEFINITION PUBLIC.
PUBLIC SECTION.
CONSTANTS restrict_none TYPE i VALUE 3.
METHODS set_key
IMPORTING
value TYPE any.
METHODS set_save_restriction
IMPORTING
value TYPE any OPTIONAL.
METHODS set_default
IMPORTING
value TYPE abap_bool.
METHODS has_default
RETURNING
VALUE(value) TYPE abap_bool.
METHODS set_initial_layout
IMPORTING
value TYPE clike.
ENDCLASS.
CLASS cl_salv_layout IMPLEMENTATION.
METHOD set_key.
ASSERT 1 = ''not supported''.
ENDMETHOD.
METHOD set_initial_layout.
ASSERT 1 = ''not supported''.
ENDMETHOD.
METHOD set_save_restriction.
ASSERT 1 = ''not supported''.
ENDMETHOD.
METHOD set_default.
ASSERT 1 = ''not supported''.
ENDMETHOD.
METHOD has_default.
ASSERT 1 = ''not supported''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_SALV_LAYOUT_SERVICE ', 'CLASS cl_salv_layout_service DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS f4_layouts
IMPORTING
s_key TYPE any
layout TYPE any OPTIONAL
restrict TYPE any OPTIONAL
RETURNING
VALUE(value) TYPE salv_s_layout_info.
CLASS-METHODS get_layouts
IMPORTING
s_key TYPE any
RETURNING
VALUE(t_layout) TYPE salv_t_layout_info.
ENDCLASS.
CLASS cl_salv_layout_service IMPLEMENTATION.
METHOD get_layouts.
ASSERT 1 = 2.
ENDMETHOD.
METHOD f4_layouts.
ASSERT 1 = 2.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_SALV_SORTS ', 'CLASS cl_salv_sorts DEFINITION PUBLIC.
PUBLIC SECTION.
METHODS add_sort
IMPORTING
columnname TYPE clike
subtotal TYPE abap_bool DEFAULT abap_false
RAISING
cx_salv_not_found
cx_salv_existing
cx_salv_data_error.
ENDCLASS.
CLASS cl_salv_sorts IMPLEMENTATION.
METHOD add_sort.
ASSERT 1 = ''todo''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_SALV_TABLE ', 'CLASS cl_salv_table DEFINITION PUBLIC.
PUBLIC SECTION.
CONSTANTS c_functions_all TYPE i VALUE 1.
TYPES ty_rows TYPE STANDARD TABLE OF i WITH DEFAULT KEY.
CLASS-METHODS factory
IMPORTING
list_display TYPE any OPTIONAL
r_container TYPE any OPTIONAL
EXPORTING
r_salv_table TYPE REF TO cl_salv_table
CHANGING
t_table TYPE any.
METHODS get_selections RETURNING VALUE(val) TYPE REF TO cl_salv_table.
METHODS set_selected_rows IMPORTING val TYPE any.
METHODS set_selection_mode IMPORTING val TYPE i.
METHODS get_selected_rows RETURNING VALUE(rows) TYPE ty_rows.
METHODS close_screen.
METHODS refresh IMPORTING refresh_mode TYPE any OPTIONAL.
METHODS display.
METHODS is_offline RETURNING VALUE(value) TYPE abap_bool.
METHODS get_metadata.
METHODS get_layout
RETURNING
VALUE(value) TYPE REF TO cl_salv_layout.
METHODS set_screen_status
IMPORTING
pfstatus TYPE any
set_functions TYPE any OPTIONAL
report TYPE any.
METHODS set_screen_popup
IMPORTING
start_column TYPE i
end_column TYPE i
start_line TYPE i
end_line TYPE i.
METHODS get_event
RETURNING VALUE(val) TYPE REF TO cl_salv_events_table.
METHODS get_display_settings
RETURNING VALUE(val) TYPE REF TO cl_salv_table.
METHODS set_striped_pattern IMPORTING val TYPE any.
METHODS set_list_header IMPORTING val TYPE any.
METHODS set_top_of_list IMPORTING val TYPE any.
METHODS get_columns RETURNING VALUE(val) TYPE REF TO cl_salv_columns_table.
METHODS get_functions RETURNING VALUE(val) TYPE REF TO cl_salv_functions_list.
METHODS get_aggregations
RETURNING
VALUE(value) TYPE REF TO cl_salv_aggregations.
METHODS get_filters
RETURNING
VALUE(foo) TYPE REF TO cl_salv_filters.
METHODS to_xml
IMPORTING
xml_type TYPE any
RETURNING
VALUE(xml) TYPE xstring.
METHODS get_sorts
RETURNING
VALUE(value) TYPE REF TO cl_salv_sorts.
METHODS get_functional_settings
RETURNING
VALUE(value) TYPE REF TO cl_salv_functional_settings.
ENDCLASS.
CLASS cl_salv_table IMPLEMENTATION.
METHOD get_sorts.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD get_functional_settings.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_selected_rows.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD get_layout.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD to_xml.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD get_filters.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD get_aggregations.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD get_functions.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD get_selected_rows.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD get_metadata.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_selection_mode.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_striped_pattern.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_list_header.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD factory.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD is_offline.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD get_selections.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD close_screen.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD refresh.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD display.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_screen_status.
ASSERT 1 = ''TODO''.
ENDMETHOD.
METHOD set_screen_popup.
ASSERT 1 = ''TODO''.
ENDMETHOD.
METHOD get_event.
ASSERT 1 = ''TODO''.
ENDMETHOD.
METHOD get_display_settings.
ASSERT 1 = ''TODO''.
ENDMETHOD.
METHOD set_top_of_list.
ASSERT 1 = ''TODO''.
ENDMETHOD.
METHOD get_columns.
ASSERT 1 = ''TODO''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SALV_ACCESS_ERROR ', 'CLASS cx_salv_access_error DEFINITION PUBLIC INHERITING FROM cx_salv_static_check.
ENDCLASS.
CLASS cx_salv_access_error IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SALV_DATA_ERROR ', 'CLASS cx_salv_data_error DEFINITION PUBLIC INHERITING FROM cx_salv_static_check.
ENDCLASS.
CLASS cx_salv_data_error IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SALV_ERROR ', 'CLASS cx_salv_error DEFINITION PUBLIC INHERITING FROM cx_static_check.
ENDCLASS.
CLASS cx_salv_error IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SALV_EXISTING ', 'CLASS cx_salv_existing DEFINITION PUBLIC INHERITING FROM cx_salv_access_error.
ENDCLASS.
CLASS cx_salv_existing IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SALV_MSG ', 'CLASS cx_salv_msg DEFINITION PUBLIC INHERITING FROM cx_salv_error.
ENDCLASS.
CLASS cx_salv_msg IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SALV_NOT_FOUND ', 'CLASS cx_salv_not_found DEFINITION PUBLIC INHERITING FROM cx_salv_access_error.
ENDCLASS.
CLASS cx_salv_not_found IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CX_SALV_STATIC_CHECK ', 'CLASS cx_salv_static_check DEFINITION PUBLIC INHERITING FROM cx_salv_error.
ENDCLASS.
CLASS cx_salv_static_check IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_SALV_C_AGGREGATION ', 'INTERFACE if_salv_c_aggregation PUBLIC.
CONSTANTS none TYPE i VALUE 0.
CONSTANTS total TYPE i VALUE 1.
CONSTANTS minimum TYPE i VALUE 2.
CONSTANTS maximum TYPE i VALUE 3.
CONSTANTS average TYPE i VALUE 4.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_SALV_C_BOOL_SAP ', 'INTERFACE if_salv_c_bool_sap PUBLIC.
CONSTANTS true TYPE abap_bool VALUE abap_true.
CONSTANTS false TYPE abap_bool VALUE abap_false.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_SALV_C_CELL_TYPE ', 'INTERFACE if_salv_c_cell_type PUBLIC.
CONSTANTS text TYPE i VALUE 0.
CONSTANTS checkbox TYPE i VALUE 1.
CONSTANTS button TYPE i VALUE 2.
CONSTANTS dropdown TYPE i VALUE 3.
CONSTANTS link TYPE i VALUE 4.
CONSTANTS hotspot TYPE i VALUE 5.
CONSTANTS checkbox_hotspot TYPE i VALUE 6.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_SALV_C_SELECTION_MODE ', 'INTERFACE if_salv_c_selection_mode PUBLIC.
CONSTANTS cell TYPE i VALUE 1.
CONSTANTS multiple TYPE i VALUE 2.
CONSTANTS none TYPE i VALUE 3.
CONSTANTS row_column TYPE i VALUE 4.
CONSTANTS single TYPE i VALUE 5.
ENDINTERFACE.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ALV_TREE_BASE ', 'CLASS cl_alv_tree_base DEFINITION PUBLIC.
PUBLIC SECTION.
CONSTANTS c_hierarchy_column_name TYPE string VALUE ''&Hierarchy''.
CONSTANTS mc_fc_calculate TYPE ui_func VALUE ''&CALC''.
CONSTANTS mc_fc_current_variant TYPE ui_func VALUE ''&COL0''.
CONSTANTS mc_fc_load_variant TYPE ui_func VALUE ''&LOAD''.
CONSTANTS mc_fc_maintain_variant TYPE ui_func VALUE ''&MAINTAIN''.
CONSTANTS mc_fc_print_back TYPE ui_func VALUE ''&PRINT_BACK''.
CONSTANTS mc_fc_print_back_all TYPE ui_func VALUE ''&PRINT_BACK_ALL''.
CONSTANTS mc_fc_save_variant TYPE ui_func VALUE ''&SAVE''.
ENDCLASS.
CLASS cl_alv_tree_base IMPLEMENTATION.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_GUI_ALV_TREE ', 'CLASS cl_gui_alv_tree DEFINITION INHERITING FROM cl_alv_tree_base PUBLIC.
PUBLIC SECTION.
METHODS free.
METHODS get_outtab_line
IMPORTING
i_node_key TYPE any
EXPORTING
e_outtab_line TYPE any
e_node_text TYPE any
et_item_layout TYPE any
es_node_layout TYPE any
EXCEPTIONS
node_not_found.
METHODS set_registered_events
IMPORTING
events TYPE cntl_simple_events
EXCEPTIONS
cntl_error
cntl_system_error
illegal_event_combination.
METHODS get_registered_events
EXPORTING
events TYPE cntl_simple_events
EXCEPTIONS
cntl_error.
EVENTS link_click
EXPORTING
VALUE(fieldname) TYPE string
VALUE(node_key) TYPE string.
EVENTS item_double_click
EXPORTING
VALUE(fieldname) TYPE any
VALUE(node_key) TYPE any.
EVENTS node_double_click
EXPORTING
VALUE(node_key) TYPE any.
METHODS get_toolbar_object
EXPORTING
er_toolbar TYPE REF TO cl_gui_toolbar.
METHODS set_table_for_first_display
IMPORTING
i_structure_name TYPE any OPTIONAL
is_variant TYPE any OPTIONAL
i_save TYPE abap_bool OPTIONAL
i_default TYPE abap_bool DEFAULT ''X''
is_hierarchy_header TYPE any OPTIONAL
is_exception_field TYPE any OPTIONAL
it_special_groups TYPE any OPTIONAL
it_list_commentary TYPE any OPTIONAL
i_logo TYPE any OPTIONAL
i_background_id TYPE any OPTIONAL
it_toolbar_excluding TYPE any OPTIONAL
it_except_qinfo TYPE any OPTIONAL
CHANGING
it_outtab TYPE STANDARD TABLE
it_filter TYPE any OPTIONAL
it_fieldcatalog TYPE any OPTIONAL.
METHODS delete_all_nodes
EXCEPTIONS
failed
cntl_system_error.
METHODS add_node
IMPORTING
i_relat_node_key TYPE any
i_relationship TYPE i
is_outtab_line TYPE any OPTIONAL
is_node_layout TYPE any OPTIONAL
it_item_layout TYPE any OPTIONAL
i_node_text TYPE any OPTIONAL
EXPORTING
e_new_node_key TYPE any
EXCEPTIONS
relat_node_not_found
node_not_found.
METHODS expand_node
IMPORTING
i_node_key TYPE any
i_level_count TYPE i DEFAULT 1
i_expand_subtree TYPE abap_bool OPTIONAL
EXCEPTIONS
failed
illegal_level_count
cntl_system_error
node_not_found
cannot_expand_leaf.
METHODS frontend_update.
METHODS expand_nodes
IMPORTING
it_node_key TYPE any.
METHODS get_selected_item
EXPORTING
e_selected_node TYPE any.
METHODS get_selected_nodes
CHANGING
ct_selected_nodes TYPE any.
METHODS set_selected_nodes
IMPORTING
it_selected_nodes TYPE any.
METHODS change_node
IMPORTING
i_node_key TYPE any
is_node_layout TYPE any
i_outtab_line TYPE any.
METHODS get_children
IMPORTING
i_node_key TYPE lvc_nkey
EXPORTING
et_children TYPE lvc_t_nkey.
METHODS set_top_node
IMPORTING
i_node_key TYPE lvc_nkey.
ENDCLASS.
CLASS cl_gui_alv_tree IMPLEMENTATION.
METHOD set_top_node.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD get_children.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD change_node.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_selected_nodes.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD expand_nodes.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD get_selected_item.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD free.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD get_selected_nodes.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD frontend_update.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD expand_node.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD add_node.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD delete_all_nodes.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_table_for_first_display.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD get_toolbar_object.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD set_registered_events.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD get_registered_events.
ASSERT 1 = ''todo''.
ENDMETHOD.
METHOD get_outtab_line.
ASSERT 1 = ''todo''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_EXPRESS_ICF_SHIM ', 'CLASS cl_express_icf_shim DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS run
IMPORTING
res TYPE any
req TYPE any
base TYPE string OPTIONAL.
PRIVATE SECTION.
CLASS-DATA mi_server TYPE REF TO if_http_server.
CLASS-METHODS response
IMPORTING
res TYPE any ##NEEDED.
CLASS-METHODS request
IMPORTING
req TYPE any
base TYPE string ##NEEDED.
ENDCLASS.
CLASS cl_express_icf_shim IMPLEMENTATION.
METHOD run.
DATA lv_classname TYPE string.
DATA li_handler TYPE REF TO if_http_extension.
WRITE ''@KERNEL lv_classname.set(INPUT.class);''.
TRANSLATE lv_classname TO UPPER CASE.
CREATE OBJECT li_handler TYPE (lv_classname).
IF mi_server IS INITIAL.
CREATE OBJECT mi_server TYPE lcl_server.
ENDIF.
CREATE OBJECT mi_server->request TYPE cl_http_entity.
request(
req = req
base = base ).
********************************************************
CREATE OBJECT mi_server->response TYPE cl_http_entity.
li_handler->handle_request( mi_server ).
********************************************************
response( res ).
ENDMETHOD.
METHOD request.
DATA lv_xstr TYPE xstring.
DATA lv_str TYPE string.
DATA lv_name TYPE string.
DATA lv_value TYPE string.
DATA lt_fields TYPE tihttpnvp.
WRITE ''@KERNEL lv_xstr.set(INPUT.req.body.toString("hex").toUpperCase());''.
mi_server->request->set_data( lv_xstr ).
WRITE ''@KERNEL lv_str.set(INPUT.req.method);''.
mi_server->request->set_method( lv_str ).
WRITE ''@KERNEL for (const h in INPUT.req.headers) {''.
WRITE ''@KERNEL lv_name.set(h);''.
WRITE ''@KERNEL lv_value.set(INPUT.req.headers[h]);''.
mi_server->request->set_header_field(
name = lv_name
value = lv_value ).
WRITE ''@KERNEL }''.
WRITE ''@KERNEL lv_value.set(INPUT.req.url);''.
mi_server->request->set_header_field(
name = ''~request_uri''
value = lv_value ).
SPLIT lv_value AT ''?'' INTO lv_value lv_value.
mi_server->request->set_header_field(
name = ''~query_string''
value = lv_value ).
lt_fields = cl_http_utility=>string_to_fields( lv_value ).
mi_server->request->set_form_fields( lt_fields ).
WRITE ''@KERNEL lv_value.set(INPUT.req.path);''.
mi_server->request->set_header_field(
name = ''~path''
value = lv_value ).
mi_server->request->set_header_field(
name = ''~path_translated_expanded''
value = lv_value ).
REPLACE FIRST OCCURRENCE OF base IN lv_value WITH ''''.
mi_server->request->set_header_field(
name = ''~path_info''
value = lv_value ).
* path_info_expanded is without alias
mi_server->request->set_header_field(
name = ''~path_info_expanded''
value = lv_value ).
ENDMETHOD.
METHOD response.
DATA lv_code TYPE i.
DATA lv_xstr TYPE xstring.
DATA lv_content_type TYPE string.
DATA lt_header_fields TYPE tihttpnvp.
DATA ls_field LIKE LINE OF lt_header_fields.
mi_server->response->get_status( IMPORTING code = lv_code ).
IF lv_code IS INITIAL.
lv_code = 200.
ENDIF.
lv_content_type = mi_server->response->get_content_type( ).
IF lv_content_type IS INITIAL.
mi_server->response->set_content_type( ''text/html'' ).
ENDIF.
mi_server->response->get_header_fields( CHANGING fields = lt_header_fields ).
LOOP AT lt_header_fields INTO ls_field.
WRITE ''@KERNEL INPUT.res.append(ls_field.get().name.get(), ls_field.get().value.get());''.
ENDLOOP.
lv_xstr = mi_server->response->get_data( ).
WRITE ''@KERNEL INPUT.res.status(lv_code.get()).send(Buffer.from(lv_xstr.get(), "hex"));''.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('CL_ICF_TREE ', 'CLASS cl_icf_tree DEFINITION PUBLIC.
PUBLIC SECTION.
INTERFACES if_icf_tree.
ENDCLASS.
CLASS cl_icf_tree IMPLEMENTATION.
METHOD if_icf_tree~service_from_url.
* todo
RETURN.
ENDMETHOD.
ENDCLASS.');`);
insert.push(`INSERT INTO reposrc ('PROGNAME', 'DATA') VALUES ('IF_ICF_TREE ', 'INTERFACE if_icf_tree PUBLIC.
CLASS-METHODS service_from_url
IMPORTING
url TYPE string DEFAULT ''/''
hostnumber TYPE i
authority_check TYPE c DEFAULT ''X''
EXPORTING
urlsuffix TYPE string
icfnodguid TYPE char25
icf_name TYPE char15
icfactive TYPE abap_bool
icfaltnme TYPE string
EXCEPTIONS
wrong_application
no_application
not_allow_application
wrong_url
no_authority.
ENDINTERFACE.');`);
insert.push(`INSERT INTO t000 ('mandt', 'cccategory', 'ccnocliind') VALUES ('123', '', '');`);
const {setup} = await import("../test/setup.mjs");
await setup(globalThis.abap, schemas, insert);
} |