flex.c

Linux下VB解释器

  75, 75, 667, 535, 76, 536, 534, 75, 76, 76,

  532, 533, 667, 667, 545, 76, 75, 539, 540, 547,
  538, 537, 76, 75, 76, 667, 667, 76, 667, 75,
  75, 76, 550, 543, 541, 75, 542, 76, 76, 75,
  76, 75, 75, 76, 544, 555, 667, 76, 667, 76,
  76, 75, 546, 76, 548, 75, 551, 557, 75, 76,
  75, 549, 75, 76, 75, 76, 76, 553, 76, 75,
  76, 75, 76, 554, 75, 75, 556, 76, 552, 76,
  564, 75, 76, 76, 75, 75, 75, 75, 76, 76,
  667, 667, 76, 76, 76, 76, 559, 75, 560, 562,
  667, 561, 75, 558, 75, 76, 75, 75, 565, 575,

  76, 667, 76, 563, 76, 76, 75, 76, 75, 568,
  75, 75, 75, 75, 76, 566, 76, 574, 76, 76,
  76, 76, 75, 75, 75, 567, 75, 75, 75, 576,
  76, 76, 76, 75, 76, 76, 76, 667, 75, 75,
  75, 76, 580, 667, 75, 579, 76, 76, 76, 577,
  578, 582, 76, 75, 667, 667, 75, 75, 583, 667,
  75, 76, 581, 584, 76, 76, 75, 585, 76, 75,
  75, 589, 667, 75, 76, 75, 586, 76, 76, 76,
  587, 76, 75, 76, 75, 75, 75, 595, 75, 75,
  76, 75, 76, 76, 76, 76, 76, 76, 75, 76,

  602, 667, 75, 590, 667, 667, 76, 588, 76, 591,
  76, 667, 596, 592, 75, 75, 75, 667, 75, 594,
  75, 667, 76, 76, 76, 603, 76, 75, 76, 593,
  667, 75, 75, 75, 75, 76, 597, 75, 606, 76,
  76, 76, 76, 75, 75, 76, 75, 667, 604, 607,
  608, 76, 76, 605, 76, 610, 75, 75, 75, 667,
  75, 75, 609, 75, 76, 76, 76, 612, 76, 76,
  611, 76, 667, 75, 667, 75, 75, 667, 75, 613,
  614, 76, 617, 76, 76, 626, 76, 75, 75, 667,
  75, 75, 627, 622, 615, 76, 76, 616, 76, 76,

  667, 75, 667, 625, 75, 667, 667, 75, 631, 76,
  629, 623, 76, 624, 630, 76, 75, 75, 75, 667,
  632, 638, 75, 667, 76, 76, 76, 628, 667, 76,
  76, 75, 641, 75, 667, 75, 633, 626, 75, 76,
  642, 76, 75, 76, 627, 667, 76, 75, 667, 667,
  76, 75, 75, 634, 75, 76, 635, 640, 75, 76,
  76, 75, 76, 75, 639, 641, 76, 75, 75, 76,
  75, 76, 75, 642, 644, 76, 76, 667, 76, 75,
  76, 667, 667, 643, 75, 646, 667, 76, 75, 645,
  650, 651, 76, 649, 75, 75, 76, 652, 75, 331,

  75, 75, 76, 76, 75, 653, 76, 654, 76, 76,
  75, 75, 76, 655, 75, 667, 75, 75, 76, 76,
  75, 656, 76, 75, 76, 76, 667, 657, 76, 667,
  667, 76, 75, 660, 658, 75, 667, 661, 659, 662,
  76, 663, 667, 76, 667, 667, 667, 667, 667, 667,
  667, 667, 666, 664, 667, 667, 667, 667, 667, 665,
  55, 55, 55, 55, 55, 55, 55, 57, 57, 57,
  57, 57, 57, 57, 60, 60, 60, 60, 60, 60,
  60, 63, 63, 63, 63, 63, 63, 63, 77, 77,
  77, 77, 169, 169, 169, 169, 169, 169, 169, 171,

  171, 171, 171, 171, 171, 171, 175, 175, 667, 175,
  175, 175, 175, 177, 667, 667, 667, 667, 177, 180,
  180, 667, 180, 180, 180, 180, 306, 306, 306, 307,
  667, 307, 307, 431, 431, 667, 431, 431, 431, 431,
  473, 473, 667, 473, 473, 473, 473, 500, 500, 11,
  667, 667, 667, 667, 667, 667, 667, 667, 667, 667,
  667, 667, 667, 667, 667, 667, 667, 667, 667, 667,
  667, 667, 667, 667, 667, 667, 667, 667, 667, 667,
  667, 667, 667, 667, 667, 667, 667, 667, 667, 667,
  667, 667, 667, 667, 667, 667, 667, 667, 667, 667,

  667
};

static yyconst short int yy_chk[2002] = { 0,
  1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
  1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
  1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
  1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
  1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
  1, 2, 16, 51, 16, 2, 19, 2, 21, 29,
  21, 23, 23, 63, 31, 63, 2, 29, 51, 19,
  681, 33, 31, 21, 30, 33, 35, 167, 37, 33,
  35, 50, 30, 31, 35, 33, 37, 31, 33, 50,
  35, 31, 167, 35, 30, 30, 36, 31, 678, 38,

  31, 37, 637, 54, 36, 54, 30, 38, 48, 67,
  30, 30, 30, 32, 50, 64, 48, 64, 54, 36,
  636, 32, 67, 38, 620, 41, 36, 48, 47, 36,
  38, 38, 32, 41, 42, 618, 47, 39, 601, 32,
  32, 39, 42, 32, 70, 39, 32, 437, 41, 437,
  600, 39, 32, 34, 39, 40, 39, 70, 41, 40,
  47, 34, 47, 40, 41, 47, 42, 43, 42, 40,
  42, 43, 40, 626, 44, 43, 599, 598, 44, 573,
  626, 43, 44, 34, 43, 34, 34, 43, 44, 34,
  572, 571, 34, 44, 44, 34, 45, 68, 45, 68,

  45, 77, 68, 570, 45, 78, 79, 45, 519, 77,
  518, 45, 45, 78, 79, 45, 45, 46, 45, 49,
  45, 46, 516, 49, 46, 46, 49, 49, 71, 80,
  71, 46, 81, 49, 46, 515, 49, 80, 82, 79,
  81, 83, 78, 71, 85, 84, 82, 86, 87, 83,
  88, 80, 85, 84, 89, 86, 87, 514, 88, 82,
  83, 90, 89, 91, 93, 82, 84, 85, 81, 90,
  92, 91, 93, 88, 85, 94, 95, 474, 92, 86,
  99, 96, 441, 94, 95, 86, 440, 439, 99, 96,
  87, 89, 97, 92, 93, 93, 93, 90, 98, 91,

  97, 93, 96, 92, 100, 96, 98, 101, 102, 438,
  103, 94, 100, 436, 95, 101, 102, 99, 103, 98,
  105, 106, 104, 97, 107, 109, 100, 108, 105, 106,
  104, 101, 107, 109, 110, 108, 98, 432, 336, 111,
  103, 379, 110, 101, 102, 104, 108, 111, 336, 104,
  105, 106, 336, 112, 113, 331, 104, 114, 116, 307,
  107, 112, 113, 109, 115, 114, 116, 110, 306, 181,
  179, 118, 115, 117, 120, 119, 111, 111, 116, 118,
  121, 117, 120, 119, 123, 178, 124, 177, 121, 176,
  174, 114, 123, 115, 124, 112, 119, 117, 115, 122,

  119, 115, 115, 118, 125, 117, 123, 122, 119, 126,
  120, 117, 125, 171, 169, 168, 119, 126, 127, 61,
  59, 122, 121, 123, 128, 129, 127, 124, 124, 130,
  131, 122, 128, 129, 56, 132, 133, 130, 131, 53,
  126, 135, 125, 132, 133, 52, 134, 128, 136, 135,
  138, 139, 129, 131, 134, 142, 136, 25, 138, 139,
  20, 141, 140, 142, 182, 133, 144, 18, 130, 141,
  140, 14, 182, 134, 144, 138, 13, 145, 142, 135,
  136, 137, 138, 137, 137, 145, 11, 139, 8, 144,
  143, 137, 7, 137, 140, 146, 137, 141, 143, 137,

  137, 147, 137, 146, 150, 148, 149, 145, 151, 147,
  6, 153, 150, 148, 149, 143, 151, 5, 152, 153,
  147, 154, 143, 4, 147, 148, 152, 155, 156, 154,
  157, 146, 3, 149, 153, 155, 156, 147, 157, 158,
  151, 150, 159, 161, 0, 160, 162, 158, 152, 163,
  159, 161, 154, 160, 162, 156, 155, 163, 164, 173,
  152, 173, 0, 166, 165, 0, 164, 156, 157, 159,
  161, 166, 165, 158, 173, 160, 163, 183, 162, 184,
  186, 185, 0, 0, 187, 183, 188, 184, 186, 185,
  164, 165, 187, 189, 188, 190, 191, 192, 194, 166,

  185, 189, 195, 190, 191, 192, 194, 193, 0, 196,
  195, 0, 197, 0, 183, 193, 187, 196, 188, 192,
  197, 195, 189, 198, 0, 200, 191, 193, 199, 190,
  201, 198, 196, 200, 202, 203, 199, 204, 201, 0,
  205, 206, 202, 203, 198, 204, 207, 199, 205, 206,
  208, 209, 210, 211, 207, 0, 0, 210, 208, 209,
  206, 211, 200, 201, 206, 210, 212, 0, 202, 208,
  213, 214, 0, 203, 212, 213, 215, 216, 217, 214,
  205, 0, 213, 213, 215, 216, 217, 218, 0, 212,
  219, 220, 221, 212, 0, 218, 210, 222, 219, 220,

  221, 217, 213, 223, 224, 222, 225, 227, 218, 228,
  216, 223, 224, 226, 225, 227, 0, 228, 0, 0,
  0, 226, 229, 230, 220, 224, 225, 222, 219, 221,
  229, 230, 231, 226, 0, 0, 232, 234, 0, 233,
  231, 235, 228, 225, 232, 234, 227, 233, 0, 235,
  236, 237, 0, 238, 240, 231, 230, 239, 236, 237,
  234, 238, 240, 241, 235, 239, 242, 0, 243, 0,
  244, 241, 0, 240, 242, 232, 243, 233, 244, 245,
  239, 246, 247, 0, 248, 249, 250, 245, 236, 246,
  247, 243, 248, 249, 250, 251, 252, 244, 253, 254,

  242, 255, 256, 251, 252, 257, 253, 254, 259, 255,
  256, 261, 258, 257, 0, 263, 259, 260, 0, 261,
  258, 262, 249, 263, 0, 260, 255, 0, 264, 262,
  0, 254, 253, 251, 257, 258, 264, 260, 266, 256,
  259, 0, 267, 262, 265, 265, 266, 0, 268, 265,
  267, 269, 270, 263, 260, 264, 268, 265, 271, 269,
  270, 266, 272, 273, 275, 274, 271, 276, 277, 278,
  272, 273, 275, 274, 269, 276, 277, 278, 270, 0,
  267, 0, 279, 280, 0, 0, 281, 268, 274, 272,
  279, 280, 278, 275, 281, 271, 282, 283, 284, 285,

  286, 273, 287, 288, 282, 283, 284, 285, 286, 279,
  287, 288, 289, 0, 290, 0, 0, 291, 292, 298,
  289, 280, 290, 293, 281, 291, 292, 298, 294, 0,
  282, 293, 0, 288, 284, 295, 294, 285, 286, 297,
  291, 292, 293, 295, 296, 299, 290, 297, 300, 301,
  289, 294, 296, 299, 293, 302, 300, 301, 303, 0,
  304, 308, 295, 302, 309, 310, 303, 296, 304, 308,
  300, 297, 309, 310, 311, 0, 312, 302, 313, 301,
  314, 316, 311, 299, 312, 317, 313, 318, 314, 316,
  319, 321, 322, 317, 323, 318, 303, 312, 319, 321,

  322, 324, 323, 325, 326, 328, 327, 309, 0, 324,
  329, 325, 326, 328, 327, 317, 318, 323, 329, 330,
  332, 321, 335, 0, 333, 332, 334, 330, 322, 327,
  325, 326, 333, 332, 334, 337, 338, 324, 339, 340,
  324, 341, 0, 337, 338, 342, 339, 340, 0, 341,
  334, 333, 343, 342, 335, 345, 332, 344, 330, 337,
  343, 346, 347, 345, 335, 344, 0, 0, 335, 346,
  347, 348, 338, 0, 339, 343, 349, 350, 340, 348,
  344, 342, 352, 347, 349, 350, 353, 354, 346, 357,
  352, 355, 356, 358, 353, 354, 349, 357, 359, 355,

  356, 358, 360, 361, 362, 363, 359, 365, 366, 368,
  360, 361, 362, 363, 367, 365, 366, 368, 352, 357,
  0, 0, 367, 369, 0, 354, 370, 355, 356, 353,
  365, 369, 360, 367, 370, 371, 363, 372, 373, 374,
  362, 0, 0, 371, 375, 372, 373, 374, 376, 370,
  369, 377, 375, 378, 381, 382, 376, 0, 0, 377,
  383, 378, 381, 382, 384, 375, 374, 0, 383, 385,
  377, 386, 384, 381, 387, 376, 373, 385, 389, 386,
  0, 388, 387, 390, 378, 391, 389, 392, 382, 388,
  393, 390, 0, 391, 394, 392, 383, 0, 393, 0,

  384, 389, 394, 395, 397, 387, 398, 385, 388, 386,
  399, 395, 397, 0, 398, 400, 401, 0, 399, 391,
  402, 394, 403, 400, 401, 392, 404, 398, 402, 0,
  403, 405, 406, 399, 404, 407, 408, 397, 409, 405,
  406, 411, 410, 407, 408, 412, 409, 413, 414, 411,
  410, 415, 418, 412, 417, 413, 414, 419, 404, 415,
  418, 420, 417, 405, 421, 419, 408, 410, 0, 420,
  413, 422, 421, 0, 409, 423, 417, 0, 415, 422,
  424, 414, 425, 423, 419, 418, 426, 421, 424, 427,
  425, 417, 428, 430, 426, 419, 433, 427, 434, 435,

  428, 430, 442, 443, 433, 444, 434, 435, 0, 445,
  442, 443, 446, 444, 0, 0, 426, 445, 425, 433,
  446, 427, 434, 430, 447, 449, 448, 451, 450, 452,
  453, 454, 447, 449, 448, 451, 450, 452, 453, 454,
  0, 455, 0, 456, 457, 459, 460, 445, 448, 455,
  446, 456, 457, 459, 460, 0, 0, 461, 462, 0,
  463, 464, 465, 449, 450, 461, 462, 452, 463, 464,
  465, 0, 467, 468, 469, 470, 471, 472, 462, 456,
  467, 468, 469, 470, 471, 472, 475, 0, 0, 462,
  476, 477, 0, 464, 475, 467, 463, 478, 476, 477,

  462, 462, 0, 0, 479, 478, 480, 470, 471, 481,
  469, 468, 479, 482, 480, 0, 0, 481, 0, 483,
  484, 482, 485, 477, 475, 486, 476, 483, 484, 487,
  485, 488, 489, 486, 478, 491, 0, 487, 0, 488,
  489, 492, 480, 491, 482, 494, 486, 495, 496, 492,
  497, 483, 498, 494, 499, 495, 496, 488, 497, 503,
  498, 501, 499, 489, 502, 504, 492, 503, 487, 501,
  505, 506, 502, 504, 507, 508, 509, 511, 505, 506,
  0, 0, 507, 508, 509, 511, 499, 510, 501, 503,
  0, 502, 512, 498, 520, 510, 521, 522, 508, 523,

  512, 0, 520, 504, 521, 522, 524, 523, 525, 511,
  527, 530, 531, 532, 524, 509, 525, 520, 527, 530,
  531, 532, 533, 534, 535, 510, 536, 537, 538, 524,
  533, 534, 535, 539, 536, 537, 538, 0, 540, 541,
  543, 539, 534, 0, 542, 531, 540, 541, 543, 527,
  530, 538, 542, 544, 0, 0, 546, 548, 539, 0,
  549, 544, 536, 540, 546, 548, 551, 542, 549, 552,
  553, 554, 0, 556, 551, 558, 544, 552, 553, 554,
  548, 556, 560, 558, 559, 561, 562, 563, 565, 566,
  560, 567, 559, 561, 562, 563, 565, 566, 568, 567,

  574, 0, 576, 556, 0, 0, 568, 552, 574, 559,
  576, 0, 566, 560, 577, 578, 579, 0, 580, 562,
  581, 0, 577, 578, 579, 576, 580, 582, 581, 561,
  0, 583, 584, 585, 586, 582, 568, 587, 579, 583,
  584, 585, 586, 588, 590, 587, 591, 0, 577, 580,
  582, 588, 590, 578, 591, 587, 592, 593, 594, 0,
  596, 603, 584, 597, 592, 593, 594, 590, 596, 603,
  588, 597, 0, 604, 0, 605, 606, 0, 608, 592,
  593, 604, 597, 605, 606, 607, 608, 610, 611, 0,
  607, 609, 607, 603, 594, 610, 611, 594, 607, 609,

  0, 612, 0, 606, 613, 0, 0, 614, 610, 612,
  608, 604, 613, 605, 609, 614, 615, 616, 617, 0,
  611, 622, 623, 0, 615, 616, 617, 607, 0, 622,
  623, 624, 627, 625, 0, 629, 613, 628, 630, 624,
  627, 625, 628, 629, 628, 0, 630, 631, 0, 0,
  628, 632, 633, 616, 634, 631, 617, 625, 635, 632,
  633, 639, 634, 640, 624, 641, 635, 644, 643, 639,
  645, 640, 646, 641, 632, 644, 643, 0, 645, 649,
  646, 0, 0, 631, 650, 635, 0, 649, 652, 633,
  640, 643, 650, 639, 651, 653, 652, 645, 654, 657,

  655, 656, 651, 653, 657, 646, 654, 650, 655, 656,
  658, 660, 657, 651, 659, 0, 663, 661, 658, 660,
  664, 652, 659, 662, 663, 661, 0, 653, 664, 0,
  0, 662, 665, 656, 654, 666, 0, 659, 655, 661,
  665, 662, 0, 666, 0, 0, 0, 0, 0, 0,
  0, 0, 665, 663, 0, 0, 0, 0, 0, 664,
  668, 668, 668, 668, 668, 668, 668, 669, 669, 669,
  669, 669, 669, 669, 670, 670, 670, 670, 670, 670,
  670, 671, 671, 671, 671, 671, 671, 671, 672, 672,
  672, 672, 673, 673, 673, 673, 673, 673, 673, 674,

  674, 674, 674, 674, 674, 674, 675, 675, 0, 675,
  675, 675, 675, 676, 0, 0, 0, 0, 676, 677,
  677, 0, 677, 677, 677, 677, 679, 679, 679, 680,
  0, 680, 680, 682, 682, 0, 682, 682, 682, 682,
  683, 683, 0, 683, 683, 683, 683, 684, 684, 667,
  667, 667, 667, 667, 667, 667, 667, 667, 667, 667,
  667, 667, 667, 667, 667, 667, 667, 667, 667, 667,
  667, 667, 667, 667, 667, 667, 667, 667, 667, 667,
  667, 667, 667, 667, 667, 667, 667, 667, 667, 667,
  667, 667, 667, 667, 667, 667, 667, 667, 667, 667,

  667
};

static yy_state_type yy_state_buf[YY_BUF_SIZE + 2], *yy_state_ptr;
static char *yy_full_match;
static int yy_lp;
static int yy_looking_for_trail_begin = 0;
static int yy_full_lp;
static int *yy_full_state;
#define YY_TRAILING_MASK 0x2000
#define YY_TRAILING_HEAD_MASK 0x4000
#define REJECT \
{ \
*yy_cp = yy_hold_char; /* undo effects of setting up yytext */ \
yy_cp = yy_full_match; /* restore poss. backed-over text */ \
yy_lp = yy_full_lp; /* restore orig. accepting pos. */ \
yy_state_ptr = yy_full_state; /* restore orig. state */ \
yy_current_state = *yy_state_ptr; /* restore curr. state */ \
++yy_lp; \
goto find_rule; \
}
static int yy_more_flag = 0;
static int yy_more_len = 0;
#define yymore() (yy_more_flag = 1)
#define YY_MORE_ADJ yy_more_len
#define YY_RESTORE_YY_MORE_OFFSET
char *yytext;
#define INITIAL 0
/*

    YABASIC ---  a simple Basic Interpreter
    written by Marc-Oliver Ihm 1995-2005
    homepage: www.yabasic.de

    FLEX part
     
    This file is part of yabasic and may be copied only 
    under the terms of either the Artistic License or 
    the GNU General Public License (GPL), both of which 
    can be found at www.yabasic.de

*/

#include <string.h>
#undef WINDOWS

#include "bison.h"		/* get tokens from BISON */
#ifndef YABASIC_INCLUDED
#include "yabasic.h"		/* definitions of yabasic */
#endif
extern int main_lineno;		/* defined in yabasic.bison: line number of main file */
extern int yylineno;		/* defined in yabasic.bison: line number of main file */
int import_lib (char *);	/* import library */

#define MAX_INCLUDE_DEPTH 5
#define MAX_INCLUDE_NUMBER 100
static YY_BUFFER_STATE include_stack[MAX_INCLUDE_DEPTH];	/* stack for included libraries */
int include_stack_ptr;		/* current position in libfile_stack */
struct libfile_name *libfile_stack[MAX_INCLUDE_DEPTH];	/* stack for library file names */
int libfile_chain_length = 0;	/* length of libfile_chain */
struct libfile_name *libfile_chain[MAX_INCLUDE_NUMBER];	/* list of all library file names */
struct libfile_name *currlib;	/* current libfile as relevant to bison */
int inlib;			/* true, while in library */
int fi_pending = 0;		/* true, if within a short if */
int flex_line = 0;		/* line number counted in flex */
#define PRELNO 1

#define PASTLNO 2

#define IMPORT 3

#define IMPORT_DONE 4


/* Macros after this point can all be overridden by user definitions in
 * section 1.
 */

#ifndef YY_SKIP_YYWRAP
#ifdef __cplusplus
extern "C" int yywrap YY_PROTO ((void));
#else
extern int yywrap YY_PROTO ((void));
#endif
#endif

#ifndef YY_NO_UNPUT
static void yyunput YY_PROTO ((int c, char *buf_ptr));
#endif

#ifndef yytext_ptr
static void yy_flex_strncpy YY_PROTO ((char *, yyconst char *, int));
#endif

#ifdef YY_NEED_STRLEN
static int yy_flex_strlen YY_PROTO ((yyconst char *));
#endif

#ifndef YY_NO_INPUT
#ifdef __cplusplus
static int yyinput YY_PROTO ((void));
#else
static int input YY_PROTO ((void));
#endif
#endif

#if YY_STACK_USED
static int yy_start_stack_ptr = 0;
static int yy_start_stack_depth = 0;
static int *yy_start_stack = 0;
#ifndef YY_NO_PUSH_STATE
static void yy_push_state YY_PROTO ((int new_state));
#endif
#ifndef YY_NO_POP_STATE
static void yy_pop_state YY_PROTO ((void));
#endif