| 1815 | // NProcessSwitchesX(), except here each switch begins with 'YX'. |
| 1816 | |
| 1817 | int NProcessSwitchesRareX(int argc, char **argv, int pos, |
| 1818 | flag fOr, flag fAnd, flag fNot) |
| 1819 | { |
| 1820 | int darg = 0, i, j; |
| 1821 | real rT; |
| 1822 | char ch1; |
| 1823 | #ifdef SWISS |
| 1824 | flag fAdd; |
| 1825 | #ifdef CONSTEL |
| 1826 | CONST char **ppch; |
| 1827 | #endif |
| 1828 | #endif // SWISS |
| 1829 | |
| 1830 | ch1 = argv[0][pos+1]; |
| 1831 | switch (argv[0][pos]) { |
| 1832 | |
| 1833 | // No longer implemented, but still skip 2 parameters and do nothing for |
| 1834 | // compatibility with old astrolog.as files. |
| 1835 | case chNull: |
| 1836 | if (FErrorArgc("YX", argc, 2)) |
| 1837 | return tcError; |
| 1838 | darg += 2; |
| 1839 | break; |
| 1840 | |
| 1841 | case 'G': |
| 1842 | if (FErrorArgc("YXG", argc, 1)) |
| 1843 | return tcError; |
| 1844 | i = NFromSz(argv[1]); |
| 1845 | switch (ch1) { |
| 1846 | case 'c': |
| 1847 | if (FErrorValN("YXGc", !FBetween(i, 1, 2), i, 0)) |
| 1848 | return tcError; |
| 1849 | gs.nGlyphCap = i; |
| 1850 | break; |
| 1851 | case 'u': |
| 1852 | if (FErrorValN("YXGu", !FBetween(i, 1, 2), i, 0)) |
| 1853 | return tcError; |
| 1854 | gs.nGlyphUra = i; |
| 1855 | break; |
| 1856 | case 'p': |
| 1857 | if (FErrorValN("YXGp", !FBetween(i, 1, 3), i, 0)) |
| 1858 | return tcError; |
| 1859 | gs.nGlyphPlu = i; |
| 1860 | break; |
| 1861 | case 'l': |
| 1862 | if (FErrorValN("YXGl", !FBetween(i, 1, 2), i, 0)) |
| 1863 | return tcError; |
| 1864 | gs.nGlyphLil = i; |
| 1865 | break; |
| 1866 | case 'v': |
| 1867 | if (FErrorValN("YXGv", !FBetween(i, 1, 2), i, 0)) |
| 1868 | return tcError; |
| 1869 | gs.nGlyphVer = i; |
| 1870 | break; |
| 1871 | case 'e': |
| 1872 | if (FErrorValN("YXGe", !FBetween(i, 1, 2), i, 0)) |
| 1873 | return tcError; |
| 1874 | gs.nGlyphEri = i; |
no test coverage detected