1445 {
1448 {
1451 }
1453
1454
1456
1457
1458
1459
1461
1464yy_match:
1465 do
1466 {
1469 {
1472 }
1473 while (
yy_chk[
yy_base[yy_current_state] + yy_c] != yy_current_state )
1474 {
1475 yy_current_state = (int)
yy_def[yy_current_state];
1476 if ( yy_current_state >= 485 )
1477 yy_c =
yy_meta[(
unsigned int) yy_c];
1478 }
1479 yy_current_state =
yy_nxt[
yy_base[yy_current_state] + (
unsigned int) yy_c];
1481 }
1482 while ( yy_current_state != 484 );
1485
1486yy_find_action:
1488
1490
1491
1492do_action:
1493
1494
1496 {
1497 case 0:
1498
1502 goto yy_find_action;
1503
1504case 1:
1506#line 230 "libparse.l"
1507{ }
1509case 2:
1511#line 231 "libparse.l"
1514case 3:
1516#line 233 "libparse.l"
1517{
1519 }
1521case 4:
1523#line 236 "libparse.l"
1524{
1526 }
1528case 5:
1530#line 239 "libparse.l"
1531{
1533 {
1534 #ifdef STANDALONE_PARSER
1536 {
1538 printf("$url = \"");
1539 while ((*c != '\0') && (*c != '"')) c++;
1540 c++;
1541 while ((*c != '\0') && (*c != '"'))
1542 {
1543 if (*c != '\r') putchar(*c);
1544 c++;
1545 }
1546 printf("\";\n");
1547 }
1548 #endif
1549 }
1550 }
1552case 6:
1554#line 260 "libparse.l"
1555{
1558 {
1560 #ifdef STANDALONE_PARSER
1562 {
1564 printf("$version = \"");
1565 while (*c != '\0')
1566 {
1567 if (*c == '$' || *c == '@') putchar('\\');
1568 if (*c != '\r') putchar(*c);
1569 if (*c == '\\')
1570 {
1571 c++;
1572 if (*c != '"') putchar('\\');
1573 }
1574 else
1575 c++;
1576 }
1577 printf("\";\n");
1578 }
1579 else if (!category_out)
1581 #else
1585 #endif
1586 }
1587 }
1589case 7:
1591#line 294 "libparse.l"
1594case 8:
1596#line 296 "libparse.l"
1597{
1604 #if YYLPDEBUG > 1
1605 printf("Newlib:%s\n", newlib);
1606 #endif
1607 #ifdef STANDALONE_PARSER
1609 {
1612 }
1616 #else
1618 {
1623 {
1624 package save=currPack;
1630 }
1631
1633 {
1637 {
1641 }
1644 Warn(
" proc '%s' registered",
proc );
1645 }
1646 #endif
1648 #if YYLPDEBUG
1650 {
1651 printf(
"// PROCEDURE '%s' status: %s, ",
proc,
1653 printf("starting at line %d,%d: definition end: %d (%d).\n",
1655 }
1656 #endif
1658 #ifndef STANDALONE_PARSER
1659 }
1660 #endif
1661 }
1663case 9:
1665#line 361 "libparse.l"
1666{
1669 #if YYLPDEBUG
1671 {
1672 printf(
"// EXAMPLE at line %d,%d (%d)\n",
yylplineno,
1674 }
1675 #endif
1676 }
1678case 10:
1680#line 373 "libparse.l"
1683 }
1685case 11:
1687#line 377 "libparse.l"
1690 }
1692case 12:
1694#line 381 "libparse.l"
1695{
1697 #if YYLPDEBUG > 1
1698 printf(
"+(id)HEAD:%s\n",
yytext);
1699 #endif
1700 }
1702case 13:
1704#line 387 "libparse.l"
1705{
1706 #if YYLPDEBUG
1707 printf(
"+(cmt)HEAD:%s\n",
yytext);
1708 #endif
1709 }
1711case 14:
1713#line 392 "libparse.l"
1714{
1715 #if YYLPDEBUG > 1
1716 printf(
"-HEAD:%s\n",
yytext);
1717 #endif
1718 }
1720case 15:
1722#line 397 "libparse.l"
1726 }
1728case 16:
1730#line 401 "libparse.l"
1731{
1736 }
1738case 17:
1740#line 408 "libparse.l"
1743 }
1745case 18:
1747#line 411 "libparse.l"
1750 }
1752case 19:
1754#line 414 "libparse.l"
1757case 20:
1759#line 415 "libparse.l"
1760{
1761 #if YYLPDEBUG > 1
1762 printf(
" HEAD:%s\n",
yytext);
1763 #endif
1766 }
1768case 21:
1770#line 422 "libparse.l"
1771{
1772 #if YYLPDEBUG > 1
1773 printf(
" HELP:%s\n",
yytext);
1774 #endif
1777case 22:
1779#line 427 "libparse.l"
1780{
1781 #if YYLPDEBUG > 1
1782 printf(
" HELP:%s\n",
yytext);
1783 #endif
1785 }
1787case 23:
1789#line 433 "libparse.l"
1790{
1795 }
1797case 24:
1799#line 439 "libparse.l"
1800{
1802
1805 }
1807case 25:
1809#line 445 "libparse.l"
1812 }
1814case 26:
1816#line 448 "libparse.l"
1819 }
1821case 27:
1823#line 452 "libparse.l"
1826case 28:
1828#line 453 "libparse.l"
1829{
1830 #if YYLPDEBUG
1832 #endif
1833 }
1835case 29:
1837#line 458 "libparse.l"
1838{
1840 #if YYLPDEBUG > 1
1841 printf(
"-HELP:%s\n",
yytext);
1842 #endif
1843 }
1845case 30:
1847#line 466 "libparse.l"
1850 #ifndef STANDALONE_PARSER
1852 {
1854 }
1855 #endif
1856 #if YYLPDEBUG
1858 #endif
1860 }
1862case 31:
1864#line 479 "libparse.l"
1867 #ifndef STANDALONE_PARSER
1869 {
1871 }
1872 #endif
1873 #if YYLPDEBUG
1875 #endif
1877 }
1879case 32:
1881#line 493 "libparse.l"
1882{ }
1884case 33:
1886#line 494 "libparse.l"
1887{
1889 #if YYLPDEBUG > 1
1891 #endif
1892 }
1894case 34:
1896#line 500 "libparse.l"
1897{
1899 #if YYLPDEBUG > 1
1900 printf(
">%s<\n",
yytext);
1902 #endif
1904 {
1905 #if YYLPDEBUG > 1
1907 #endif
1910 }
1911 }
1913case 35:
1915#line 515 "libparse.l"
1916{
1918 {
1919 #if YYLPDEBUG > 1
1921 #endif
1923 return(1);
1924 }
1925 else
1926 {
1929 printf(
"// BODY at line %d,%d (%d)\n",
yylplineno,
1932 }
1933 }
1935case 36:
1937#line 533 "libparse.l"
1940 {
1941#if YYLPDEBUG > 1
1943#endif
1945 }
1946 }
1948case 37:
1950#line 542 "libparse.l"
1951{ }
1953case 38:
1955#line 543 "libparse.l"
1958case 39:
1960#line 544 "libparse.l"
1961{
1963 {
1966 }
1967 }
1969case 40:
1971#line 552 "libparse.l"
1972{
1973 #if YYLPDEBUG
1975 #endif
1977 {
1978 printf("Procedure %s has OLD-STYLE-HELP!\n",
1980 }
1984 }
1986case 41:
1988#line 565 "libparse.l"
1989{
1990 #if YYLPDEBUG
1992 #endif
1995 }
1997case 42:
1999#line 572 "libparse.l"
2000{
2002 {
2003 printf("Procedure %s has OLD-STYLE-HELP!\n",
2005 }
2006 #if YYLPDEBUG
2008 printf(
"2-Len=%d, %s;\n",
yyleng,
pi->procname);
2009 #endif
2013 }
2015case 43:
2017#line 586 "libparse.l"
2018{ printf(
"[%s]",
yytext); }
2020case 44:
2022#line 588 "libparse.l"
2023{ }
2025case 45:
2027#line 589 "libparse.l"
2028{
2032 {
2033 printf("// HELP from %d to %d\n",
2034 (
int)
pi->data.s.help_start, (
int)
pi->data.s.help_end);
2035 printf(
"// BODY at line %d,%d (%d)\n",
yylplineno,
2037 }
2038#if YYLPDEBUG > 1
2040#endif
2042#if YYLPDEBUG > 1
2044#endif
2045 }
2047case 46:
2049#line 607 "libparse.l"
2052case 47:
2054#line 608 "libparse.l"
2055{ }
2057case 48:
2059#line 610 "libparse.l"
2060{
2064 }
2066case 49:
2068#line 615 "libparse.l"
2069{}
2071case 50:
2073#line 616 "libparse.l"
2074{
2077 {
2078 printf("// HELP from %d to %d\n",
2079 (
int)
pi->data.s.help_start, (
int)
pi->data.s.help_end);
2080 printf(
"// BODY at line %d,%d (%d)\n",
yylplineno,
2082 }
2083 #if YYLPDEBUG > 1
2085 #endif
2087 #if YYLPDEBUG > 1
2089 #endif
2090 }
2092case 51:
2094#line 633 "libparse.l"
2097case 52:
2099#line 635 "libparse.l"
2100{ }
2102case 53:
2104#line 636 "libparse.l"
2107 }
2109case 54:
2111#line 640 "libparse.l"
2112{
2113 if(
check) printf(
"*** found 2 proc whithin procedure '%s'.\n",
2116 }
2118case 55:
2120#line 645 "libparse.l"
2121{
2122 if(
check) printf(
"*** found 1 proc whithin procedure '%s'.\n",
2125 }
2127case 56:
2129#line 650 "libparse.l"
2130{
2132 #if YYLPDEBUG > 1
2134 #endif
2135 }
2137case 57:
2139#line 656 "libparse.l"
2140{
2141 #if YYLPDEBUG > 1
2142 printf("line: %d, (%d)%s\n",
2144 #endif
2147 {
2149 return(1);
2150 }
2152 {
2154 return(1);
2155 }
2157 {
2160 #if YYLPDEBUG > 1
2162 #endif
2164 }
2165 }
2167case 58:
2169#line 682 "libparse.l"
2170{
2172 }
2174case 59:
2176#line 685 "libparse.l"
2177{
2181 return(1);
2182 }
2183 }
2185case 60:
2187#line 692 "libparse.l"
2188{
2190 }
2192case 61:
2194#line 695 "libparse.l"
2195{
2199 return(1);
2200 }
2201 }
2203case 62:
2205#line 702 "libparse.l"
2208case 63:
2210#line 703 "libparse.l"
2211{ }
2213case 64:
2215#line 705 "libparse.l"
2216{
2222 }
2224case 65:
2226#line 712 "libparse.l"
2229case 66:
2231#line 713 "libparse.l"
2232{ }
2234case 67:
2236#line 715 "libparse.l"
2237{
2243 }
2245case 68:
2247#line 722 "libparse.l"
2250case 69:
2252#line 723 "libparse.l"
2253{ }
2255case 70:
2257#line 726 "libparse.l"
2262 {
2264 }
2266 }
2268case 71:
2270#line 735 "libparse.l"
2273case 72:
2275#line 736 "libparse.l"
2278case 73:
2280#line 737 "libparse.l"
2283case 74:
2285#line 739 "libparse.l"
2286{ }
2288case 75:
2290#line 740 "libparse.l"
2293 }
2295case 76:
2297#line 743 "libparse.l"
2298{
2300 }
2302case 77:
2304#line 746 "libparse.l"
2305{
2312 }
2313 }
2315case 78:
2317#line 755 "libparse.l"
2318{
2320 }
2322case 79:
2324#line 758 "libparse.l"
2325{
2327 }
2329case 80:
2331#line 761 "libparse.l"
2332{
2334 }
2336case 81:
2338#line 764 "libparse.l"
2339{
2341 }
2343case 82:
2345#line 767 "libparse.l"
2348case 83:
2350#line 768 "libparse.l"
2351{ }
2353case 84:
2355#line 770 "libparse.l"
2358 }
2360case 85:
2362#line 773 "libparse.l"
2363{ }
2365case 86:
2367#line 774 "libparse.l"
2368{ }
2370case 87:
2372#line 775 "libparse.l"
2375case 88:
2377#line 776 "libparse.l"
2378{ }
2380case 89:
2382#line 778 "libparse.l"
2385case 90:
2387#line 779 "libparse.l"
2390case 91:
2392#line 780 "libparse.l"
2393{ }
2395case 92:
2397#line 782 "libparse.l"
2400case 93:
2402#line 783 "libparse.l"
2403{ }
2405case 94:
2407#line 784 "libparse.l"
2409 #if YYLPDEBUG > 1
2411 #endif
2412 }
2414case 95:
2416#line 789 "libparse.l"
2419 #ifdef STANDALONE_PARSER
2421 #else
2425 #endif
2426 #if YYLPDEBUG > 1
2428 #endif
2429 return(1);
2430 }
2432case 96:
2434#line 804 "libparse.l"
2457
2459 {
2460
2462
2463
2466
2468 {
2469
2470
2471
2472
2473
2474
2475
2476
2477
2481 }
2482
2483
2484
2485
2486
2487
2488
2489
2490 if ( yy_c_buf_p <= &yy_current_buffer->yy_ch_buf[
yy_n_chars] )
2491 {
2493
2495
2497
2498
2499
2500
2501
2502
2503
2504
2505
2506
2508
2510
2511 if ( yy_next_state )
2512 {
2513
2515 yy_current_state = yy_next_state;
2516 goto yy_match;
2517 }
2518
2519 else
2520 {
2523 goto yy_find_action;
2524 }
2525 }
2526
2528 {
2530 {
2532
2534 {
2535
2536
2537
2538
2539
2540
2541
2542
2543
2545
2547 goto do_action;
2548 }
2549
2550 else
2551 {
2554 }
2555 break;
2556 }
2557
2561
2563
2566 goto yy_match;
2567
2571
2573
2576 goto yy_find_action;
2577 }
2578 break;
2579 }
2580
2581 default:
2583 "fatal flex scanner internal error--no action found" );
2584 }
2585 }
unsigned char * proc[NUM_PROC]
void push(const char *p, char *libname)
idhdl enterid(const char *s, int lev, int t, idhdl *root, BOOLEAN init, BOOLEAN search)
BOOLEAN piKill(procinfov pi)
procinfo * iiInitSingularProcinfo(procinfov pi, const char *libname, const char *procname, int, long pos, BOOLEAN pstatic)
VAR int found_proc_in_proc
static yyconst int yy_ec[256]
STATIC_VAR int yy_n_chars
#define YY_RESTORE_YY_MORE_OFFSET
#define SET_DEF_END(mode, pi, p)
static yyconst short int yy_base[533]
#define EOB_ACT_END_OF_FILE
STATIC_VAR int yy_did_buffer_switch_on_eof
#define SET_EXAMPLE_START(mode, pi, l, p)
void make_version(char *p, int what)
static int yy_get_next_buffer()
#define SET_HELP_START(mode, pi, p)
static yyconst short int yy_def[533]
static yyconst short int yy_nxt[2253]
static yyconst short int yy_accept[485]
EXTERN_VAR libstackv library_stack
#define YY_STATE_EOF(state)
void copy_string(lp_modes mode)
static yyconst short int yy_chk[2253]
#define YY_FATAL_ERROR(msg)
STATIC_VAR int yy_more_flag
#define SET_BODY_END(mode, pi, p)
static yy_state_type yy_get_previous_state()
#define EOB_ACT_LAST_MATCH
#define EOB_ACT_CONTINUE_SCAN
#define SET_HELP_END(mode, pi, p)
static yyconst int yy_meta[53]
static yy_state_type yy_try_NUL_trans(yy_state_type yy_current_state)
#define SET_PROC_END(mode, pi, p)
STATIC_VAR yy_state_type yy_last_accepting_state
#define SET_BODY_START(mode, pi, l, p)
STATIC_VAR char * yy_last_accepting_cpos