libretro/scummvm
1
0
Fork 0
mirror of https://github.com/libretro/scummvm.git synced 2025-02-04 09:56:30 +00:00
Code Issues Actions 2 Packages Projects Releases Wiki Activity

DIRECTOR: Lingo: Suport multiple one-line 'else if' statements

Browse Source
This commit is contained in:
Eugene Sandulenko 2016-07-08 01:14:02 +02:00
parent bfe252edac
commit 336f0bee9d
4 changed files with 357 additions and 351 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
engines/director/director.cpp
View File

@ -115,6 +115,7 @@ Common::Error DirectorEngine::run() {
repeat with x = 1 to 5\n\ repeat with x = 1 to 5\n\
if x = 3 then put 30\n\ if x = 3 then put 30\n\
else if x = 4 then put 40\n\ else if x = 4 then put 40\n\
else if x = 5 then put 50\n\
else put 10.0\n\ else put 10.0\n\
if x = 1 then\n\ if x = 1 then\n\
put 1\n\ put 1\n\

694
engines/director/lingo/lingo-gr.cpp
View File

@ -437,11 +437,11 @@ union yyalloc
/* YYNTOKENS -- Number of terminals. */ /* YYNTOKENS -- Number of terminals. */
#define YYNTOKENS 57 #define YYNTOKENS 57
/* YYNNTS -- Number of nonterminals. */ /* YYNNTS -- Number of nonterminals. */
#define YYNNTS 32 #define YYNNTS 33
/* YYNRULES -- Number of rules. */ /* YYNRULES -- Number of rules. */
#define YYNRULES 96 #define YYNRULES 98
/* YYNRULES -- Number of states. */ /* YYNRULES -- Number of states. */
#define YYNSTATES 206 #define YYNSTATES 208
/* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX. */ /* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX. */
#define YYUNDEFTOK 2 #define YYUNDEFTOK 2
@ -493,55 +493,55 @@ static const yytype_uint16 yyprhs[] =
0, 0, 3, 7, 9, 11, 12, 14, 16, 18, 0, 0, 3, 7, 9, 11, 12, 14, 16, 18,
20, 22, 24, 29, 34, 39, 41, 43, 45, 47, 20, 22, 24, 29, 34, 39, 41, 43, 45, 47,
56, 68, 81, 90, 102, 115, 122, 133, 144, 145, 56, 68, 81, 90, 102, 115, 122, 133, 144, 145,
149, 152, 154, 161, 163, 169, 171, 175, 179, 182, 149, 152, 154, 157, 159, 166, 168, 174, 176, 180,
186, 188, 190, 191, 192, 193, 196, 199, 201, 203, 184, 187, 191, 193, 195, 196, 197, 198, 201, 204,
208, 213, 215, 217, 221, 225, 229, 233, 237, 241, 206, 208, 213, 218, 220, 222, 226, 230, 234, 238,
245, 249, 253, 256, 259, 263, 266, 269, 272, 274, 242, 246, 250, 254, 258, 261, 264, 268, 271, 274,
276, 279, 281, 285, 288, 291, 294, 297, 301, 304, 277, 279, 281, 284, 286, 290, 293, 296, 299, 302,
308, 311, 314, 316, 320, 323, 327, 328, 337, 338, 306, 309, 313, 316, 319, 321, 325, 328, 332, 333,
340, 344, 349, 350, 354, 355, 357 342, 343, 345, 349, 354, 355, 359, 360, 362
}; };
/* YYRHS -- A `-1'-separated list of the rules' RHS. */ /* YYRHS -- A `-1'-separated list of the rules' RHS. */
static const yytype_int8 yyrhs[] = static const yytype_int8 yyrhs[] =
{ {
58, 0, -1, 58, 59, 60, -1, 60, -1, 51, 58, 0, -1, 58, 59, 60, -1, 60, -1, 51,
-1, -1, 83, -1, 78, -1, 87, -1, 61, -1, -1, -1, 84, -1, 79, -1, 88, -1, 61, -1,
63, -1, 1, -1, 31, 77, 22, 10, -1, 33, 63, -1, 1, -1, 31, 78, 22, 10, -1, 33,
10, 45, 77, -1, 33, 10, 35, 77, -1, 77, 10, 45, 78, -1, 33, 10, 35, 78, -1, 78,
-1, 78, -1, 62, -1, 64, -1, 70, 52, 69, -1, 79, -1, 62, -1, 64, -1, 71, 52, 70,
53, 76, 75, 16, 32, -1, 71, 45, 77, 75, 53, 77, 76, 16, 32, -1, 72, 45, 78, 76,
35, 77, 75, 76, 75, 16, 32, -1, 71, 45, 35, 78, 76, 77, 76, 16, 32, -1, 72, 45,
77, 75, 13, 35, 77, 75, 76, 75, 16, 32, 78, 76, 13, 35, 78, 76, 77, 76, 16, 32,
-1, 72, 69, 34, 59, 76, 75, 16, 21, -1, -1, 73, 70, 34, 59, 77, 76, 16, 21, -1,
72, 69, 34, 59, 76, 75, 14, 76, 75, 16, 73, 70, 34, 59, 77, 76, 14, 77, 76, 16,
21, -1, 72, 69, 34, 59, 76, 75, 74, 66, 21, -1, 73, 70, 34, 59, 77, 76, 75, 66,
75, 59, 16, 21, -1, 72, 69, 34, 74, 62, 76, 59, 16, 21, -1, 73, 70, 34, 75, 62,
75, -1, 72, 69, 34, 74, 62, 75, 38, 74, 76, -1, 73, 70, 34, 75, 62, 76, 38, 75,
62, 75, -1, 72, 69, 34, 74, 62, 75, 67, 62, 76, -1, 73, 70, 34, 75, 62, 76, 67,
75, 65, 75, -1, -1, 38, 74, 62, -1, 66, 76, 65, 76, -1, -1, 38, 75, 62, -1, 66,
68, -1, 68, -1, 73, 69, 34, 74, 63, 75, 69, -1, 69, -1, 67, 68, -1, 68, -1, 74,
-1, 67, -1, 73, 69, 34, 76, 75, -1, 77, 70, 34, 75, 63, 76, -1, 67, -1, 74, 70,
-1, 77, 45, 77, -1, 52, 69, 53, -1, 32, 34, 77, 76, -1, 78, -1, 78, 45, 78, -1,
37, -1, 32, 36, 10, -1, 21, -1, 15, -1, 52, 70, 53, -1, 32, 37, -1, 32, 36, 10,
-1, -1, -1, 76, 59, -1, 76, 63, -1, 7, -1, 21, -1, 15, -1, -1, -1, -1, 77, 59,
-1, 8, -1, 9, 52, 88, 53, -1, 10, 52, -1, 77, 63, -1, 7, -1, 8, -1, 9, 52,
88, 53, -1, 10, -1, 61, -1, 77, 46, 77, 89, 53, -1, 10, 52, 89, 53, -1, 10, -1,
-1, 77, 47, 77, -1, 77, 48, 77, -1, 77, 61, -1, 78, 46, 78, -1, 78, 47, 78, -1,
49, 77, -1, 77, 54, 77, -1, 77, 55, 77, 78, 48, 78, -1, 78, 49, 78, -1, 78, 54,
-1, 77, 44, 77, -1, 77, 39, 77, -1, 77, 78, -1, 78, 55, 78, -1, 78, 44, 78, -1,
40, 77, -1, 46, 77, -1, 47, 77, -1, 52, 78, 39, 78, -1, 78, 40, 78, -1, 46, 78,
77, 53, -1, 25, 11, -1, 26, 10, -1, 31, -1, 47, 78, -1, 52, 78, 53, -1, 25, 11,
77, -1, 80, -1, 17, -1, 19, 79, -1, 10, -1, 26, 10, -1, 31, 78, -1, 81, -1, 17,
-1, 79, 56, 10, -1, 20, 23, -1, 20, 28, -1, 19, 80, -1, 10, -1, 80, 56, 10, -1,
-1, 20, 30, -1, 20, 81, -1, 20, 81, 82, 20, 23, -1, 20, 28, -1, 20, 30, -1, 20,
-1, 20, 82, -1, 35, 18, 11, -1, 18, 11, 82, -1, 20, 82, 83, -1, 20, 83, -1, 35,
-1, 35, 11, -1, 11, -1, 29, 27, 11, -1, 18, 11, -1, 18, 11, -1, 35, 11, -1, 11,
27, 11, -1, 35, 27, 11, -1, -1, 24, 10, -1, 29, 27, 11, -1, 27, 11, -1, 35, 27,
84, 74, 85, 59, 86, 76, -1, -1, 10, -1, 11, -1, -1, 24, 10, 85, 75, 86, 59, 87,
85, 56, 10, -1, 85, 59, 56, 10, -1, -1, 77, -1, -1, 10, -1, 86, 56, 10, -1, 86,
10, 74, 88, -1, -1, 77, -1, 88, 56, 77, 59, 56, 10, -1, -1, 10, 75, 89, -1, -1,
-1 78, -1, 89, 56, 78, -1
}; };
/* YYRLINE[YYN] -- source line where rule number YYN was defined. */ /* YYRLINE[YYN] -- source line where rule number YYN was defined. */
@ -550,13 +550,13 @@ static const yytype_uint16 yyrline[] =
0, 93, 93, 94, 97, 102, 103, 104, 105, 106, 0, 93, 93, 94, 97, 102, 103, 104, 105, 106,
107, 108, 111, 117, 123, 130, 131, 133, 134, 139, 107, 108, 111, 117, 123, 130, 131, 133, 134, 139,
150, 166, 180, 187, 196, 205, 215, 225, 236, 237, 150, 166, 180, 187, 196, 205, 215, 225, 236, 237,
240, 241, 244, 251, 252, 260, 261, 262, 264, 266, 240, 241, 244, 245, 248, 256, 257, 265, 266, 267,
272, 278, 285, 287, 289, 290, 291, 294, 299, 302, 269, 271, 277, 283, 290, 292, 294, 295, 296, 299,
308, 316, 319, 320, 321, 322, 323, 324, 325, 326, 304, 307, 313, 321, 324, 325, 326, 327, 328, 329,
327, 328, 329, 330, 331, 334, 335, 336, 337, 338, 330, 331, 332, 333, 334, 335, 336, 339, 340, 341,
340, 343, 344, 355, 356, 357, 358, 363, 369, 376, 342, 343, 345, 348, 349, 360, 361, 362, 363, 368,
377, 378, 379, 382, 383, 384, 412, 412, 419, 420, 374, 381, 382, 383, 384, 387, 388, 389, 417, 417,
421, 422, 424, 427, 435, 436, 437 424, 425, 426, 427, 429, 432, 440, 441, 442
}; };
#endif #endif
@ -574,10 +574,10 @@ static const char *const yytname[] =
"'+'", "'-'", "'*'", "'/'", "'%'", "'\\n'", "'('", "')'", "'>'", "'<'", "'+'", "'-'", "'*'", "'/'", "'%'", "'\\n'", "'('", "')'", "'>'", "'<'",
"','", "$accept", "program", "nl", "programline", "asgn", "stmtoneliner", "','", "$accept", "program", "nl", "programline", "asgn", "stmtoneliner",
"stmt", "ifstmt", "elsestmtoneliner", "elseifstmt", "elseifstmtoneliner", "stmt", "ifstmt", "elsestmtoneliner", "elseifstmt", "elseifstmtoneliner",
"elseifstmt1", "cond", "repeatwhile", "repeatwith", "if", "elseif", "elseifstmtoneliner1", "elseifstmt1", "cond", "repeatwhile",
"begin", "end", "stmtlist", "expr", "func", "globallist", "gotofunc", "repeatwith", "if", "elseif", "begin", "end", "stmtlist", "expr", "func",
"gotoframe", "gotomovie", "defn", "@1", "argdef", "argstore", "macro", "globallist", "gotofunc", "gotoframe", "gotomovie", "defn", "@1",
"arglist", 0 "argdef", "argstore", "macro", "arglist", 0
}; };
#endif #endif
@ -601,13 +601,13 @@ static const yytype_uint8 yyr1[] =
0, 57, 58, 58, 59, 60, 60, 60, 60, 60, 0, 57, 58, 58, 59, 60, 60, 60, 60, 60,
60, 60, 61, 61, 61, 62, 62, 63, 63, 63, 60, 60, 61, 61, 61, 62, 62, 63, 63, 63,
63, 63, 64, 64, 64, 64, 64, 64, 65, 65, 63, 63, 64, 64, 64, 64, 64, 64, 65, 65,
66, 66, 67, 68, 68, 69, 69, 69, 70, 71, 66, 66, 67, 67, 68, 69, 69, 70, 70, 70,
72, 73, 74, 75, 76, 76, 76, 77, 77, 77, 71, 72, 73, 74, 75, 76, 77, 77, 77, 78,
77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 78, 78, 78, 78, 78, 78, 78, 78, 78, 78,
77, 77, 77, 77, 77, 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, 79, 79, 79,
78, 79, 79, 80, 80, 80, 80, 80, 80, 81, 79, 79, 79, 80, 80, 81, 81, 81, 81, 81,
81, 81, 81, 82, 82, 82, 84, 83, 85, 85, 81, 82, 82, 82, 82, 83, 83, 83, 85, 84,
85, 85, 86, 87, 88, 88, 88 86, 86, 86, 86, 87, 88, 89, 89, 89
}; };
/* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN. */ /* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN. */
@ -616,13 +616,13 @@ static const yytype_uint8 yyr2[] =
0, 2, 3, 1, 1, 0, 1, 1, 1, 1, 0, 2, 3, 1, 1, 0, 1, 1, 1, 1,
1, 1, 4, 4, 4, 1, 1, 1, 1, 8, 1, 1, 4, 4, 4, 1, 1, 1, 1, 8,
11, 12, 8, 11, 12, 6, 10, 10, 0, 3, 11, 12, 8, 11, 12, 6, 10, 10, 0, 3,
2, 1, 6, 1, 5, 1, 3, 3, 2, 3, 2, 1, 2, 1, 6, 1, 5, 1, 3, 3,
1, 1, 0, 0, 0, 2, 2, 1, 1, 4, 2, 3, 1, 1, 0, 0, 0, 2, 2, 1,
4, 1, 1, 3, 3, 3, 3, 3, 3, 3, 1, 4, 4, 1, 1, 3, 3, 3, 3, 3,
3, 3, 2, 2, 3, 2, 2, 2, 1, 1, 3, 3, 3, 3, 2, 2, 3, 2, 2, 2,
2, 1, 3, 2, 2, 2, 2, 3, 2, 3, 1, 1, 2, 1, 3, 2, 2, 2, 2, 3,
2, 2, 1, 3, 2, 3, 0, 8, 0, 1, 2, 3, 2, 2, 1, 3, 2, 3, 0, 8,
3, 4, 0, 3, 0, 1, 3 0, 1, 3, 4, 0, 3, 0, 1, 3
}; };
/* YYDEFACT[STATE-NAME] -- Default rule to reduce with in state /* YYDEFACT[STATE-NAME] -- Default rule to reduce with in state
@ -630,165 +630,165 @@ static const yytype_uint8 yyr2[] =
means the default is an error. */ means the default is an error. */
static const yytype_uint8 yydefact[] = static const yytype_uint8 yydefact[] =
{ {
0, 11, 47, 48, 0, 42, 69, 0, 0, 40, 0, 11, 49, 50, 0, 44, 71, 0, 0, 42,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
3, 52, 17, 10, 18, 0, 0, 0, 15, 7, 3, 54, 17, 10, 18, 0, 0, 0, 15, 7,
68, 6, 8, 94, 94, 94, 71, 70, 82, 0, 70, 6, 8, 96, 96, 96, 73, 72, 84, 0,
73, 0, 74, 0, 75, 0, 76, 78, 86, 65, 75, 0, 76, 0, 77, 0, 78, 80, 88, 67,
66, 51, 0, 52, 67, 0, 38, 0, 62, 63, 68, 53, 0, 54, 69, 0, 40, 0, 64, 65,
0, 1, 4, 0, 0, 0, 0, 0, 35, 0, 0, 1, 4, 0, 0, 0, 0, 0, 37, 0,
0, 0, 0, 0, 0, 0, 0, 0, 95, 0, 0, 0, 0, 0, 0, 0, 0, 0, 97, 0,
0, 93, 0, 80, 84, 0, 81, 0, 0, 0, 0, 95, 0, 82, 86, 0, 83, 0, 0, 0,
77, 42, 0, 0, 39, 0, 0, 64, 2, 0, 79, 44, 0, 0, 41, 0, 0, 66, 2, 0,
43, 0, 0, 42, 0, 60, 61, 59, 53, 54, 45, 0, 0, 44, 0, 62, 63, 61, 55, 56,
55, 56, 57, 58, 49, 0, 50, 72, 83, 79, 57, 58, 59, 60, 51, 0, 52, 74, 85, 81,
85, 88, 12, 14, 13, 44, 0, 37, 44, 0, 87, 90, 12, 14, 13, 46, 0, 39, 46, 0,
36, 96, 89, 0, 43, 0, 0, 43, 43, 16, 38, 98, 91, 0, 45, 0, 0, 45, 45, 16,
0, 92, 45, 46, 0, 0, 43, 42, 25, 90, 0, 94, 47, 48, 0, 0, 45, 44, 25, 92,
0, 44, 0, 43, 44, 44, 0, 0, 41, 42, 0, 46, 0, 45, 46, 46, 0, 0, 43, 44,
43, 0, 91, 87, 19, 44, 43, 43, 22, 43, 45, 33, 0, 93, 89, 19, 46, 45, 45, 22,
33, 31, 0, 0, 28, 0, 43, 0, 0, 30, 45, 35, 31, 0, 0, 32, 28, 0, 45, 0,
0, 0, 43, 42, 43, 42, 0, 0, 0, 0, 0, 30, 0, 0, 45, 44, 45, 44, 0, 0,
42, 26, 0, 27, 0, 0, 20, 23, 0, 43, 0, 0, 44, 26, 0, 27, 0, 0, 20, 23,
29, 43, 21, 24, 34, 32 0, 45, 29, 45, 21, 24, 36, 34
}; };
/* YYDEFGOTO[NTERM-NUM]. */ /* YYDEFGOTO[NTERM-NUM]. */
static const yytype_int16 yydefgoto[] = static const yytype_int16 yydefgoto[] =
{ {
-1, 19, 142, 20, 53, 22, 143, 24, 184, 169, -1, 19, 142, 20, 53, 22, 143, 24, 186, 170,
170, 171, 67, 25, 26, 27, 172, 194, 126, 134, 171, 161, 172, 67, 25, 26, 27, 162, 196, 126,
28, 139, 37, 30, 46, 47, 31, 91, 133, 151, 134, 28, 139, 37, 30, 46, 47, 31, 91, 133,
32, 79 151, 32, 79
}; };
/* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing /* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
STATE-NUM. */ STATE-NUM. */
#define YYPACT_NINF -127 #define YYPACT_NINF -147
static const yytype_int16 yypact[] = static const yytype_int16 yypact[] =
{ {
164, -127, -127, -127, -18, -24, -127, 19, 308, -127, 169, -147, -147, -147, -26, 337, -147, 46, 23, -147,
25, 54, 63, 123, -23, 73, 123, 123, 123, 8, 50, 78, 51, 197, 11, 54, 197, 197, 197, 6,
-127, 10, -127, -127, -127, 41, 39, 192, 337, -127, -147, 8, -147, -147, -147, 38, 48, 243, 325, -147,
-127, -127, -127, 123, 123, 123, -127, 42, -127, 99, -147, -147, -147, 197, 197, 197, -147, 35, -147, 83,
-127, 103, -127, 88, -127, 79, 33, -127, -127, -127, -147, 89, -147, 76, -147, 12, 53, -147, -147, -147,
-127, 65, 123, -127, -3, 109, -127, 13, 68, 68, -147, 55, 197, -147, 282, 92, -147, -23, 95, 95,
313, -127, -127, 164, 192, 123, 192, 87, 325, 123, 313, -147, -147, 169, 243, 197, 243, 71, 75, 197,
123, 123, 123, 123, 123, 123, 123, 123, 337, 32, 197, 197, 197, 197, 197, 197, 197, 197, 325, -28,
38, 70, 118, -127, -127, 124, -127, 125, 126, 102, 9, 52, 99, -147, -147, 102, -147, 116, 120, 105,
-127, -127, -3, 128, -127, 123, 123, -127, -127, 86, -147, -147, 282, 100, -147, 197, 197, -147, -147, 80,
337, 91, 301, 94, 123, 337, 337, 337, 230, 230, 325, 84, 301, 90, 197, 325, 325, 325, 118, 118,
68, 68, 337, 337, -127, 123, -127, -127, -127, -127, 95, 95, 325, 325, -147, 197, -147, -147, -147, -147,
-127, 136, -127, 337, 337, -127, -2, -127, -127, 287, -147, 130, -147, 325, 325, -147, 3, -147, -147, 292,
337, 337, -127, -39, 210, 112, 123, 210, -127, -127, 325, 325, -147, -24, 215, 110, 197, 215, -147, -147,
138, 93, -127, -127, 135, 123, 337, 89, 11, -127, 136, 96, -147, -147, 132, 197, 325, 69, -5, -147,
142, -127, 121, 337, -127, -127, 137, 145, -127, -127, 141, -147, 121, 325, -147, -147, 133, 145, -147, -147,
-127, 192, -127, 210, -127, -127, 210, 210, -127, 145, 145, -147, 243, -147, 215, -147, -147, 215, 215, -147,
-127, -127, 192, 287, 129, 127, 210, 146, 152, -127, 145, 145, -147, 243, 292, -147, 125, 122, 215, 152,
94, 144, -127, -127, -127, -127, 160, 148, 161, 170, 155, -147, 90, 140, -147, -147, -147, -147, 164, 150,
-9, -127, 287, -127, 256, 155, -127, -127, 171, 210, 162, 168, -6, -147, 292, -147, 261, 153, -147, -147,
-127, -127, -127, -127, -127, -127 166, 215, -147, -147, -147, -147, -147, -147
}; };
/* YYPGOTO[NTERM-NUM]. */ /* YYPGOTO[NTERM-NUM]. */
static const yytype_int16 yypgoto[] = static const yytype_int16 yypgoto[] =
{ {
-127, -127, -17, 130, 4, -126, 0, -127, -127, -127, -147, -147, -17, 128, 7, -125, 0, -147, -147, -147,
43, 29, -59, -127, -127, -127, 55, -4, -42, -101, 44, -129, 27, -61, -147, -147, -147, -146, -4, -42,
5, 9, -127, -127, -127, 158, -127, -127, -127, -127, -111, 2, 21, -147, -147, -147, 157, -147, -147, -147,
-127, 21 -147, -147, -21
}; };
/* YYTABLE[YYPACT[STATE-NUM]]. What to do in state STATE-NUM. If /* YYTABLE[YYPACT[STATE-NUM]]. What to do in state STATE-NUM. If
positive, shift that token. If negative, reduce the rule which positive, shift that token. If negative, reduce the rule which
number is the opposite. If zero, do what YYDEFACT says. number is the opposite. If zero, do what YYDEFACT says.
If YYTABLE_NINF, syntax error. */ If YYTABLE_NINF, syntax error. */
#define YYTABLE_NINF -52 #define YYTABLE_NINF -54
static const yytype_int16 yytable[] = static const yytype_int16 yytable[] =
{ {
23, 35, 63, 138, 21, 99, -44, 101, 61, 29, 23, 35, 63, 99, 138, 101, 61, 21, -9, -46,
-9, 135, 62, 55, 56, -51, -51, 140, 54, 93, 158, 173, 95, 80, 81, 54, 135, 137, 58, 59,
-51, 58, 59, 60, -51, -51, 158, 137, 34, 36, 60, 29, 96, 86, 173, 114, 33, 62, 115, 68,
-51, -51, 68, 136, 33, 48, 69, 70, 78, 78, 87, 175, 140, 159, 38, 78, 78, 78, 136, 88,
78, 71, -44, 72, 73, 74, 75, 182, 95, 159, 164, 39, 175, 167, 168, -46, 40, 55, 56, 184,
163, 76, 77, 166, 167, 80, 81, 92, 96, 62, 41, 42, 43, 44, 92, 178, 36, 62, 45, -9,
41, -9, 43, 23, 176, 49, 200, 21, 89, 68, 48, 50, 116, 23, 57, 115, 68, 100, 102, 202,
100, 102, 29, 50, 105, 106, 107, 108, 109, 110, 21, 105, 106, 107, 108, 109, 110, 111, 112, 113,
111, 112, 113, 57, 65, 114, 128, 121, 115, 199, 41, 201, 43, 155, 29, 156, 128, 121, 89, 49,
86, 116, 144, 64, 115, 147, 148, 87, 82, 129, 64, 82, 144, 65, 83, 147, 148, 123, 124, 129,
123, 124, 175, 155, 154, 156, 88, 69, 70, 130, 84, 177, 94, 85, 154, 103, 130, 34, 115, 117,
83, 165, 71, 181, 84, 85, 141, 34, 174, 94, 122, 166, 183, 118, 69, 70, 141, 131, 176, 71,
131, 103, 76, 77, 177, 178, 115, 180, 117, 88, 104, 72, 73, 74, 75, 179, 180, 119, 182, 76,
2, 3, 4, 51, 186, 118, 119, 120, 122, 125, 77, 120, 88, 125, 69, 70, 188, 127, 146, 71,
191, 146, 193, 157, 127, 62, 132, 145, 149, 150, 132, 62, 193, 157, 195, 145, 149, 153, 152, 76,
153, 152, 162, 164, 52, 173, 15, 204, 168, 205, 77, 163, 150, 165, 169, 174, 187, 69, 70, 206,
158, 185, 187, 189, -5, 1, 68, 183, 188, 16, 158, 207, 71, 185, 68, 191, 74, 75, 189, -5,
17, 2, 3, 4, 5, 18, 195, 68, 190, 192, 1, 190, 76, 77, 192, 68, 2, 3, 4, 5,
196, 6, 197, 7, 8, 9, 198, 202, 10, 11, 197, 194, 198, 199, 200, 204, 6, 205, 7, 8,
12, 160, 203, 98, 201, 13, 14, 15, 179, 2, 9, 98, 160, 10, 11, 12, 203, 181, 0, 0,
3, 4, 51, 161, 90, 0, 0, 0, 0, 0, 13, 14, 15, 90, 2, 3, 4, 51, 0, 0,
16, 17, 0, 0, 0, -5, 18, 2, 3, 4, 0, 0, 0, 0, 0, 16, 17, 0, 0, 0,
51, 0, 0, 52, 0, 15, 0, 6, 0, 7, -5, 18, 2, 3, 4, 51, 0, 0, 52, 0,
8, 9, 0, 0, 0, 11, 12, 0, 16, 17, 15, 0, 6, 0, 7, 8, 9, 0, 0, 0,
0, 13, 14, 15, 66, 0, 0, 0, 0, 0, 11, 12, 0, 16, 17, 0, 13, 14, 15, 18,
0, 0, 0, 0, 0, 0, 16, 17, 0, 0, 2, 3, 4, 51, 0, 0, 0, 0, 0, 0,
0, 62, 18, 2, 3, 4, 51, 0, 0, 69, 0, 16, 17, 0, 0, 0, 62, 18, 2, 3,
70, 0, 0, 6, 71, 7, 8, 9, 74, 75, 4, 51, 0, 0, 52, 0, 15, 0, 6, 0,
0, 11, 12, 0, 76, 77, 0, 13, 14, 15, 7, 8, 9, 0, 0, 0, 11, 12, 0, 16,
0, 0, 0, 0, 2, 3, 4, 51, 0, 0, 17, 0, 13, 14, 15, 66, 0, 0, 0, 2,
0, 0, 16, 17, 6, 0, 7, 8, 18, 0, 3, 4, 51, 0, 93, 0, 0, 16, 17, 6,
0, 0, 11, 12, 0, 0, 0, 0, 13, 38, 0, 7, 8, 18, 0, 0, 0, 11, 12, 0,
15, 0, 0, 0, 0, 0, 39, 0, 0, 0, 0, 69, 70, 13, 0, 15, 71, 0, 72, 73,
0, 40, 0, 16, 17, 41, 42, 43, 44, 18, 74, 75, 0, 0, 0, 0, 76, 77, 16, 17,
69, 70, 0, 45, 0, 71, 104, 72, 73, 74, 69, 70, 0, 0, 18, 71, 104, 72, 73, 74,
75, 0, 69, 70, 97, 76, 77, 71, 0, 72, 75, 0, 69, 70, 97, 76, 77, 71, 0, 72,
73, 74, 75, 0, 69, 70, 97, 76, 77, 71, 73, 74, 75, 0, 69, 70, 97, 76, 77, 71,
104, 72, 73, 74, 75, 0, 69, 70, 0, 76, 0, 72, 73, 74, 75, 0, -53, -53, 0, 76,
77, 71, 0, 72, 73, 74, 75, 0, 0, 0, 77, -53, 0, 0, 0, -53, -53, 0, 0, 34,
0, 76, 77 0, -53, -53
}; };
static const yytype_int16 yycheck[] = static const yytype_int16 yycheck[] =
{ {
0, 5, 19, 129, 0, 64, 15, 66, 0, 0, 0, 5, 19, 64, 129, 66, 0, 0, 0, 15,
0, 13, 51, 36, 37, 39, 40, 56, 13, 22, 15, 157, 35, 34, 35, 13, 13, 128, 16, 17,
44, 16, 17, 18, 48, 49, 15, 128, 52, 10, 18, 0, 45, 11, 170, 53, 52, 51, 56, 27,
54, 55, 27, 35, 52, 10, 39, 40, 33, 34, 18, 160, 56, 38, 11, 33, 34, 35, 35, 27,
35, 44, 51, 46, 47, 48, 49, 173, 35, 38, 151, 18, 171, 154, 155, 51, 23, 36, 37, 174,
151, 54, 55, 154, 155, 34, 35, 52, 45, 51, 27, 28, 29, 30, 52, 166, 10, 51, 35, 51,
27, 51, 29, 63, 165, 11, 192, 63, 35, 64, 10, 10, 53, 63, 10, 56, 64, 65, 66, 194,
65, 66, 63, 10, 69, 70, 71, 72, 73, 74, 63, 69, 70, 71, 72, 73, 74, 75, 76, 77,
75, 76, 77, 10, 45, 53, 103, 91, 56, 190, 27, 192, 29, 14, 63, 16, 103, 91, 35, 11,
11, 53, 134, 52, 56, 137, 138, 18, 56, 103, 52, 56, 134, 45, 11, 137, 138, 95, 96, 103,
95, 96, 161, 14, 146, 16, 27, 39, 40, 104, 11, 162, 10, 27, 146, 34, 104, 52, 56, 10,
11, 153, 44, 172, 11, 27, 133, 52, 160, 10, 10, 153, 173, 11, 39, 40, 133, 115, 160, 44,
115, 34, 54, 55, 166, 167, 56, 169, 10, 27, 45, 46, 47, 48, 49, 167, 168, 11, 170, 54,
7, 8, 9, 10, 176, 11, 11, 11, 10, 53, 55, 11, 27, 53, 39, 40, 178, 53, 136, 44,
182, 136, 184, 147, 53, 51, 10, 35, 10, 56, 10, 51, 184, 147, 186, 35, 10, 145, 16, 54,
145, 16, 10, 32, 31, 159, 33, 199, 21, 201, 55, 10, 56, 32, 21, 159, 34, 39, 40, 201,
15, 34, 16, 180, 0, 1, 161, 38, 16, 46, 15, 203, 44, 38, 162, 182, 48, 49, 16, 0,
47, 7, 8, 9, 10, 52, 16, 172, 34, 183, 1, 16, 54, 55, 34, 173, 7, 8, 9, 10,
32, 17, 21, 19, 20, 21, 16, 32, 24, 25, 16, 185, 32, 21, 16, 32, 17, 21, 19, 20,
26, 148, 21, 63, 194, 31, 32, 33, 169, 7, 21, 63, 148, 24, 25, 26, 196, 170, -1, -1,
8, 9, 10, 148, 46, -1, -1, -1, -1, -1, 31, 32, 33, 46, 7, 8, 9, 10, -1, -1,
46, 47, -1, -1, -1, 51, 52, 7, 8, 9, -1, -1, -1, -1, -1, 46, 47, -1, -1, -1,
10, -1, -1, 31, -1, 33, -1, 17, -1, 19, 51, 52, 7, 8, 9, 10, -1, -1, 31, -1,
20, 21, -1, -1, -1, 25, 26, -1, 46, 47, 33, -1, 17, -1, 19, 20, 21, -1, -1, -1,
-1, 31, 32, 33, 52, -1, -1, -1, -1, -1, 25, 26, -1, 46, 47, -1, 31, 32, 33, 52,
-1, -1, -1, -1, -1, -1, 46, 47, -1, -1, 7, 8, 9, 10, -1, -1, -1, -1, -1, -1,
-1, 51, 52, 7, 8, 9, 10, -1, -1, 39, -1, 46, 47, -1, -1, -1, 51, 52, 7, 8,
40, -1, -1, 17, 44, 19, 20, 21, 48, 49, 9, 10, -1, -1, 31, -1, 33, -1, 17, -1,
-1, 25, 26, -1, 54, 55, -1, 31, 32, 33, 19, 20, 21, -1, -1, -1, 25, 26, -1, 46,
-1, -1, -1, -1, 7, 8, 9, 10, -1, -1, 47, -1, 31, 32, 33, 52, -1, -1, -1, 7,
-1, -1, 46, 47, 17, -1, 19, 20, 52, -1, 8, 9, 10, -1, 22, -1, -1, 46, 47, 17,
-1, -1, 25, 26, -1, -1, -1, -1, 31, 11, -1, 19, 20, 52, -1, -1, -1, 25, 26, -1,
33, -1, -1, -1, -1, -1, 18, -1, -1, -1, -1, 39, 40, 31, -1, 33, 44, -1, 46, 47,
-1, 23, -1, 46, 47, 27, 28, 29, 30, 52, 48, 49, -1, -1, -1, -1, 54, 55, 46, 47,
39, 40, -1, 35, -1, 44, 45, 46, 47, 48, 39, 40, -1, -1, 52, 44, 45, 46, 47, 48,
49, -1, 39, 40, 53, 54, 55, 44, -1, 46, 49, -1, 39, 40, 53, 54, 55, 44, -1, 46,
47, 48, 49, -1, 39, 40, 53, 54, 55, 44, 47, 48, 49, -1, 39, 40, 53, 54, 55, 44,
45, 46, 47, 48, 49, -1, 39, 40, -1, 54, -1, 46, 47, 48, 49, -1, 39, 40, -1, 54,
55, 44, -1, 46, 47, 48, 49, -1, -1, -1, 55, 44, -1, -1, -1, 48, 49, -1, -1, 52,
-1, 54, 55 -1, 54, 55
}; };
@ -798,25 +798,25 @@ static const yytype_uint8 yystos[] =
{ {
0, 1, 7, 8, 9, 10, 17, 19, 20, 21, 0, 1, 7, 8, 9, 10, 17, 19, 20, 21,
24, 25, 26, 31, 32, 33, 46, 47, 52, 58, 24, 25, 26, 31, 32, 33, 46, 47, 52, 58,
60, 61, 62, 63, 64, 70, 71, 72, 77, 78, 60, 61, 62, 63, 64, 71, 72, 73, 78, 79,
80, 83, 87, 52, 52, 74, 10, 79, 11, 18, 81, 84, 88, 52, 52, 75, 10, 80, 11, 18,
23, 27, 28, 29, 30, 35, 81, 82, 10, 11, 23, 27, 28, 29, 30, 35, 82, 83, 10, 11,
10, 10, 31, 61, 77, 36, 37, 10, 77, 77, 10, 10, 31, 61, 78, 36, 37, 10, 78, 78,
77, 0, 51, 59, 52, 45, 52, 69, 77, 39, 78, 0, 51, 59, 52, 45, 52, 70, 78, 39,
40, 44, 46, 47, 48, 49, 54, 55, 77, 88, 40, 44, 46, 47, 48, 49, 54, 55, 78, 89,
88, 88, 56, 11, 11, 27, 11, 18, 27, 35, 89, 89, 56, 11, 11, 27, 11, 18, 27, 35,
82, 84, 77, 22, 10, 35, 45, 53, 60, 69, 83, 85, 78, 22, 10, 35, 45, 53, 60, 70,
77, 69, 77, 34, 45, 77, 77, 77, 77, 77, 78, 70, 78, 34, 45, 78, 78, 78, 78, 78,
77, 77, 77, 77, 53, 56, 53, 10, 11, 11, 78, 78, 78, 78, 53, 56, 53, 10, 11, 11,
11, 74, 10, 77, 77, 53, 75, 53, 59, 74, 11, 75, 10, 78, 78, 53, 76, 53, 59, 75,
77, 77, 10, 85, 76, 13, 35, 76, 62, 78, 78, 78, 10, 86, 77, 13, 35, 77, 62, 79,
56, 59, 59, 63, 75, 35, 77, 75, 75, 10, 56, 59, 59, 63, 76, 35, 78, 76, 76, 10,
56, 86, 16, 77, 75, 14, 16, 74, 15, 38, 56, 87, 16, 78, 76, 14, 16, 75, 15, 38,
67, 73, 10, 76, 32, 75, 76, 76, 21, 66, 67, 68, 74, 10, 77, 32, 76, 77, 77, 21,
67, 68, 73, 74, 75, 69, 76, 75, 75, 68, 66, 67, 69, 74, 75, 68, 76, 70, 77, 76,
75, 69, 62, 38, 65, 34, 75, 16, 16, 59, 76, 69, 76, 70, 62, 38, 65, 34, 76, 16,
34, 75, 74, 75, 74, 16, 32, 21, 16, 76, 16, 59, 34, 76, 75, 76, 75, 16, 32, 21,
62, 63, 32, 21, 75, 75 16, 77, 62, 63, 32, 21, 76, 76
}; };
#define yyerrok (yyerrstatus = 0) #define yyerrok (yyerrstatus = 0)
@ -1814,8 +1814,8 @@ yyreduce:
{ (yyval.code) = (yyvsp[(2) - (3)].code); ;} { (yyval.code) = (yyvsp[(2) - (3)].code); ;}
break; break;
case 32: case 34:
#line 244 "engines/director/lingo/lingo-gr.y" #line 248 "engines/director/lingo/lingo-gr.y"
{ {
inst then = 0; inst then = 0;
WRITE_UINT32(&then, (yyvsp[(4) - (6)].code)); WRITE_UINT32(&then, (yyvsp[(4) - (6)].code));
@ -1824,8 +1824,8 @@ yyreduce:
g_lingo->codeLabel((yyvsp[(1) - (6)].code)); ;} g_lingo->codeLabel((yyvsp[(1) - (6)].code)); ;}
break; break;
case 34: case 36:
#line 252 "engines/director/lingo/lingo-gr.y" #line 257 "engines/director/lingo/lingo-gr.y"
{ {
inst then = 0; inst then = 0;
WRITE_UINT32(&then, (yyvsp[(4) - (5)].code)); WRITE_UINT32(&then, (yyvsp[(4) - (5)].code));
@ -1834,23 +1834,23 @@ yyreduce:
g_lingo->codeLabel((yyvsp[(1) - (5)].code)); ;} g_lingo->codeLabel((yyvsp[(1) - (5)].code)); ;}
break; break;
case 35: case 37:
#line 260 "engines/director/lingo/lingo-gr.y" #line 265 "engines/director/lingo/lingo-gr.y"
{ g_lingo->code1(STOP); ;} { g_lingo->code1(STOP); ;}
break; break;
case 36: case 38:
#line 261 "engines/director/lingo/lingo-gr.y" #line 266 "engines/director/lingo/lingo-gr.y"
{ g_lingo->code2(g_lingo->c_eq, STOP); ;} { g_lingo->code2(g_lingo->c_eq, STOP); ;}
break; break;
case 38: case 40:
#line 264 "engines/director/lingo/lingo-gr.y" #line 269 "engines/director/lingo/lingo-gr.y"
{ (yyval.code) = g_lingo->code3(g_lingo->c_repeatwhilecode, STOP, STOP); ;} { (yyval.code) = g_lingo->code3(g_lingo->c_repeatwhilecode, STOP, STOP); ;}
break; break;
case 39: case 41:
#line 266 "engines/director/lingo/lingo-gr.y" #line 271 "engines/director/lingo/lingo-gr.y"
{ {
(yyval.code) = g_lingo->code3(g_lingo->c_repeatwithcode, STOP, STOP); (yyval.code) = g_lingo->code3(g_lingo->c_repeatwithcode, STOP, STOP);
g_lingo->code3(STOP, STOP, STOP); g_lingo->code3(STOP, STOP, STOP);
@ -1858,8 +1858,8 @@ yyreduce:
delete (yyvsp[(3) - (3)].s); ;} delete (yyvsp[(3) - (3)].s); ;}
break; break;
case 40: case 42:
#line 272 "engines/director/lingo/lingo-gr.y" #line 277 "engines/director/lingo/lingo-gr.y"
{ {
(yyval.code) = g_lingo->code1(g_lingo->c_ifcode); (yyval.code) = g_lingo->code1(g_lingo->c_ifcode);
g_lingo->code3(STOP, STOP, STOP); g_lingo->code3(STOP, STOP, STOP);
@ -1867,8 +1867,8 @@ yyreduce:
g_lingo->codeLabel(0); ;} g_lingo->codeLabel(0); ;}
break; break;
case 41: case 43:
#line 278 "engines/director/lingo/lingo-gr.y" #line 283 "engines/director/lingo/lingo-gr.y"
{ {
inst skipEnd; inst skipEnd;
WRITE_UINT32(&skipEnd, 1); // We have to skip end to avoid multiple executions WRITE_UINT32(&skipEnd, 1); // We have to skip end to avoid multiple executions
@ -1877,23 +1877,23 @@ yyreduce:
g_lingo->code1(skipEnd); ;} g_lingo->code1(skipEnd); ;}
break; break;
case 42: case 44:
#line 285 "engines/director/lingo/lingo-gr.y" #line 290 "engines/director/lingo/lingo-gr.y"
{ (yyval.code) = g_lingo->_currentScript->size(); ;} { (yyval.code) = g_lingo->_currentScript->size(); ;}
break; break;
case 43: case 45:
#line 287 "engines/director/lingo/lingo-gr.y" #line 292 "engines/director/lingo/lingo-gr.y"
{ g_lingo->code1(STOP); (yyval.code) = g_lingo->_currentScript->size(); ;} { g_lingo->code1(STOP); (yyval.code) = g_lingo->_currentScript->size(); ;}
break; break;
case 44: case 46:
#line 289 "engines/director/lingo/lingo-gr.y" #line 294 "engines/director/lingo/lingo-gr.y"
{ (yyval.code) = g_lingo->_currentScript->size(); ;} { (yyval.code) = g_lingo->_currentScript->size(); ;}
break; break;
case 47: case 49:
#line 294 "engines/director/lingo/lingo-gr.y" #line 299 "engines/director/lingo/lingo-gr.y"
{ {
(yyval.code) = g_lingo->code1(g_lingo->c_constpush); (yyval.code) = g_lingo->code1(g_lingo->c_constpush);
inst i = 0; inst i = 0;
@ -1901,15 +1901,15 @@ yyreduce:
g_lingo->code1(i); ;} g_lingo->code1(i); ;}
break; break;
case 48: case 50:
#line 299 "engines/director/lingo/lingo-gr.y" #line 304 "engines/director/lingo/lingo-gr.y"
{ {
(yyval.code) = g_lingo->code1(g_lingo->c_fconstpush); (yyval.code) = g_lingo->code1(g_lingo->c_fconstpush);
g_lingo->codeFloat((yyvsp[(1) - (1)].f)); ;} g_lingo->codeFloat((yyvsp[(1) - (1)].f)); ;}
break; break;
case 49: case 51:
#line 302 "engines/director/lingo/lingo-gr.y" #line 307 "engines/director/lingo/lingo-gr.y"
{ {
if ((yyvsp[(3) - (4)].narg) != g_lingo->_builtins[*(yyvsp[(1) - (4)].s)]->nargs) if ((yyvsp[(3) - (4)].narg) != g_lingo->_builtins[*(yyvsp[(1) - (4)].s)]->nargs)
error("Built-in function %s expects %d arguments but got %d", (yyvsp[(1) - (4)].s)->c_str(), g_lingo->_builtins[*(yyvsp[(1) - (4)].s)]->nargs, (yyvsp[(3) - (4)].narg)); error("Built-in function %s expects %d arguments but got %d", (yyvsp[(1) - (4)].s)->c_str(), g_lingo->_builtins[*(yyvsp[(1) - (4)].s)]->nargs, (yyvsp[(3) - (4)].narg));
@ -1918,8 +1918,8 @@ yyreduce:
delete (yyvsp[(1) - (4)].s); ;} delete (yyvsp[(1) - (4)].s); ;}
break; break;
case 50: case 52:
#line 308 "engines/director/lingo/lingo-gr.y" #line 313 "engines/director/lingo/lingo-gr.y"
{ {
(yyval.code) = g_lingo->code1(g_lingo->c_call); (yyval.code) = g_lingo->code1(g_lingo->c_call);
g_lingo->codeString((yyvsp[(1) - (4)].s)->c_str()); g_lingo->codeString((yyvsp[(1) - (4)].s)->c_str());
@ -1930,121 +1930,121 @@ yyreduce:
delete (yyvsp[(1) - (4)].s); ;} delete (yyvsp[(1) - (4)].s); ;}
break; break;
case 51: case 53:
#line 316 "engines/director/lingo/lingo-gr.y" #line 321 "engines/director/lingo/lingo-gr.y"
{ {
(yyval.code) = g_lingo->codeId(*(yyvsp[(1) - (1)].s)); (yyval.code) = g_lingo->codeId(*(yyvsp[(1) - (1)].s));
delete (yyvsp[(1) - (1)].s); ;} delete (yyvsp[(1) - (1)].s); ;}
break; break;
case 53: case 55:
#line 320 "engines/director/lingo/lingo-gr.y" #line 325 "engines/director/lingo/lingo-gr.y"
{ g_lingo->code1(g_lingo->c_add); ;} { g_lingo->code1(g_lingo->c_add); ;}
break; break;
case 54: case 56:
#line 321 "engines/director/lingo/lingo-gr.y" #line 326 "engines/director/lingo/lingo-gr.y"
{ g_lingo->code1(g_lingo->c_sub); ;} { g_lingo->code1(g_lingo->c_sub); ;}
break; break;
case 55: case 57:
#line 322 "engines/director/lingo/lingo-gr.y" #line 327 "engines/director/lingo/lingo-gr.y"
{ g_lingo->code1(g_lingo->c_mul); ;} { g_lingo->code1(g_lingo->c_mul); ;}
break; break;
case 56: case 58:
#line 323 "engines/director/lingo/lingo-gr.y" #line 328 "engines/director/lingo/lingo-gr.y"
{ g_lingo->code1(g_lingo->c_div); ;} { g_lingo->code1(g_lingo->c_div); ;}
break; break;
case 57: case 59:
#line 324 "engines/director/lingo/lingo-gr.y" #line 329 "engines/director/lingo/lingo-gr.y"
{ g_lingo->code1(g_lingo->c_gt); ;} { g_lingo->code1(g_lingo->c_gt); ;}
break; break;
case 58: case 60:
#line 325 "engines/director/lingo/lingo-gr.y" #line 330 "engines/director/lingo/lingo-gr.y"
{ g_lingo->code1(g_lingo->c_lt); ;} { g_lingo->code1(g_lingo->c_lt); ;}
break; break;
case 59: case 61:
#line 326 "engines/director/lingo/lingo-gr.y" #line 331 "engines/director/lingo/lingo-gr.y"
{ g_lingo->code1(g_lingo->c_neq); ;} { g_lingo->code1(g_lingo->c_neq); ;}
break; break;
case 60: case 62:
#line 327 "engines/director/lingo/lingo-gr.y" #line 332 "engines/director/lingo/lingo-gr.y"
{ g_lingo->code1(g_lingo->c_ge); ;} { g_lingo->code1(g_lingo->c_ge); ;}
break; break;
case 61: case 63:
#line 328 "engines/director/lingo/lingo-gr.y" #line 333 "engines/director/lingo/lingo-gr.y"
{ g_lingo->code1(g_lingo->c_le); ;} { g_lingo->code1(g_lingo->c_le); ;}
break; break;
case 62: case 64:
#line 329 "engines/director/lingo/lingo-gr.y" #line 334 "engines/director/lingo/lingo-gr.y"
{ (yyval.code) = (yyvsp[(2) - (2)].code); ;} { (yyval.code) = (yyvsp[(2) - (2)].code); ;}
break; break;
case 63: case 65:
#line 330 "engines/director/lingo/lingo-gr.y" #line 335 "engines/director/lingo/lingo-gr.y"
{ (yyval.code) = (yyvsp[(2) - (2)].code); g_lingo->code1(g_lingo->c_negate); ;} { (yyval.code) = (yyvsp[(2) - (2)].code); g_lingo->code1(g_lingo->c_negate); ;}
break; break;
case 64: case 66:
#line 331 "engines/director/lingo/lingo-gr.y" #line 336 "engines/director/lingo/lingo-gr.y"
{ (yyval.code) = (yyvsp[(2) - (3)].code); ;} { (yyval.code) = (yyvsp[(2) - (3)].code); ;}
break; break;
case 65: case 67:
#line 334 "engines/director/lingo/lingo-gr.y" #line 339 "engines/director/lingo/lingo-gr.y"
{ g_lingo->code1(g_lingo->c_mci); g_lingo->codeString((yyvsp[(2) - (2)].s)->c_str()); delete (yyvsp[(2) - (2)].s); ;} { g_lingo->code1(g_lingo->c_mci); g_lingo->codeString((yyvsp[(2) - (2)].s)->c_str()); delete (yyvsp[(2) - (2)].s); ;}
break; break;
case 66: case 68:
#line 335 "engines/director/lingo/lingo-gr.y" #line 340 "engines/director/lingo/lingo-gr.y"
{ g_lingo->code1(g_lingo->c_mciwait); g_lingo->codeString((yyvsp[(2) - (2)].s)->c_str()); delete (yyvsp[(2) - (2)].s); ;} { g_lingo->code1(g_lingo->c_mciwait); g_lingo->codeString((yyvsp[(2) - (2)].s)->c_str()); delete (yyvsp[(2) - (2)].s); ;}
break; break;
case 67:
#line 336 "engines/director/lingo/lingo-gr.y"
{ g_lingo->code1(g_lingo->c_printtop); ;}
break;
case 69: case 69:
#line 338 "engines/director/lingo/lingo-gr.y" #line 341 "engines/director/lingo/lingo-gr.y"
{ g_lingo->code2(g_lingo->c_constpush, (inst)0); // Push fake value on stack { g_lingo->code1(g_lingo->c_printtop); ;}
g_lingo->code1(g_lingo->c_procret); ;}
break; break;
case 71: case 71:
#line 343 "engines/director/lingo/lingo-gr.y" #line 343 "engines/director/lingo/lingo-gr.y"
{ g_lingo->code1(g_lingo->c_global); g_lingo->codeString((yyvsp[(1) - (1)].s)->c_str()); delete (yyvsp[(1) - (1)].s); ;} { g_lingo->code2(g_lingo->c_constpush, (inst)0); // Push fake value on stack
break; g_lingo->code1(g_lingo->c_procret); ;}
case 72:
#line 344 "engines/director/lingo/lingo-gr.y"
{ g_lingo->code1(g_lingo->c_global); g_lingo->codeString((yyvsp[(3) - (3)].s)->c_str()); delete (yyvsp[(3) - (3)].s); ;}
break; break;
case 73: case 73:
#line 355 "engines/director/lingo/lingo-gr.y" #line 348 "engines/director/lingo/lingo-gr.y"
{ g_lingo->code1(g_lingo->c_gotoloop); ;} { g_lingo->code1(g_lingo->c_global); g_lingo->codeString((yyvsp[(1) - (1)].s)->c_str()); delete (yyvsp[(1) - (1)].s); ;}
break; break;
case 74: case 74:
#line 356 "engines/director/lingo/lingo-gr.y" #line 349 "engines/director/lingo/lingo-gr.y"
{ g_lingo->code1(g_lingo->c_gotonext); ;} { g_lingo->code1(g_lingo->c_global); g_lingo->codeString((yyvsp[(3) - (3)].s)->c_str()); delete (yyvsp[(3) - (3)].s); ;}
break; break;
case 75: case 75:
#line 357 "engines/director/lingo/lingo-gr.y" #line 360 "engines/director/lingo/lingo-gr.y"
{ g_lingo->code1(g_lingo->c_gotoprevious); ;} { g_lingo->code1(g_lingo->c_gotoloop); ;}
break; break;
case 76: case 76:
#line 358 "engines/director/lingo/lingo-gr.y" #line 361 "engines/director/lingo/lingo-gr.y"
{ g_lingo->code1(g_lingo->c_gotonext); ;}
break;
case 77:
#line 362 "engines/director/lingo/lingo-gr.y"
{ g_lingo->code1(g_lingo->c_gotoprevious); ;}
break;
case 78:
#line 363 "engines/director/lingo/lingo-gr.y"
{ {
g_lingo->code1(g_lingo->c_goto); g_lingo->code1(g_lingo->c_goto);
g_lingo->codeString((yyvsp[(2) - (2)].s)->c_str()); g_lingo->codeString((yyvsp[(2) - (2)].s)->c_str());
@ -2052,8 +2052,8 @@ yyreduce:
delete (yyvsp[(2) - (2)].s); ;} delete (yyvsp[(2) - (2)].s); ;}
break; break;
case 77: case 79:
#line 363 "engines/director/lingo/lingo-gr.y" #line 368 "engines/director/lingo/lingo-gr.y"
{ {
g_lingo->code1(g_lingo->c_goto); g_lingo->code1(g_lingo->c_goto);
g_lingo->codeString((yyvsp[(2) - (3)].s)->c_str()); g_lingo->codeString((yyvsp[(2) - (3)].s)->c_str());
@ -2062,8 +2062,8 @@ yyreduce:
delete (yyvsp[(3) - (3)].s); ;} delete (yyvsp[(3) - (3)].s); ;}
break; break;
case 78: case 80:
#line 369 "engines/director/lingo/lingo-gr.y" #line 374 "engines/director/lingo/lingo-gr.y"
{ {
g_lingo->code1(g_lingo->c_goto); g_lingo->code1(g_lingo->c_goto);
g_lingo->codeString(""); g_lingo->codeString("");
@ -2071,48 +2071,48 @@ yyreduce:
delete (yyvsp[(2) - (2)].s); ;} delete (yyvsp[(2) - (2)].s); ;}
break; break;
case 79:
#line 376 "engines/director/lingo/lingo-gr.y"
{ (yyval.s) = (yyvsp[(3) - (3)].s); ;}
break;
case 80:
#line 377 "engines/director/lingo/lingo-gr.y"
{ (yyval.s) = (yyvsp[(2) - (2)].s); ;}
break;
case 81: case 81:
#line 378 "engines/director/lingo/lingo-gr.y" #line 381 "engines/director/lingo/lingo-gr.y"
{ (yyval.s) = (yyvsp[(2) - (2)].s); ;} { (yyval.s) = (yyvsp[(3) - (3)].s); ;}
break; break;
case 82: case 82:
#line 379 "engines/director/lingo/lingo-gr.y" #line 382 "engines/director/lingo/lingo-gr.y"
{ (yyval.s) = (yyvsp[(1) - (1)].s); ;} { (yyval.s) = (yyvsp[(2) - (2)].s); ;}
break; break;
case 83: case 83:
#line 382 "engines/director/lingo/lingo-gr.y"
{ (yyval.s) = (yyvsp[(3) - (3)].s); ;}
break;
case 84:
#line 383 "engines/director/lingo/lingo-gr.y" #line 383 "engines/director/lingo/lingo-gr.y"
{ (yyval.s) = (yyvsp[(2) - (2)].s); ;} { (yyval.s) = (yyvsp[(2) - (2)].s); ;}
break; break;
case 85: case 84:
#line 384 "engines/director/lingo/lingo-gr.y" #line 384 "engines/director/lingo/lingo-gr.y"
{ (yyval.s) = (yyvsp[(1) - (1)].s); ;}
break;
case 85:
#line 387 "engines/director/lingo/lingo-gr.y"
{ (yyval.s) = (yyvsp[(3) - (3)].s); ;} { (yyval.s) = (yyvsp[(3) - (3)].s); ;}
break; break;
case 86: case 86:
#line 412 "engines/director/lingo/lingo-gr.y" #line 388 "engines/director/lingo/lingo-gr.y"
{ g_lingo->_indef = true; ;} { (yyval.s) = (yyvsp[(2) - (2)].s); ;}
break; break;
case 87: case 87:
#line 413 "engines/director/lingo/lingo-gr.y" #line 389 "engines/director/lingo/lingo-gr.y"
{ (yyval.s) = (yyvsp[(3) - (3)].s); ;}
break;
case 88:
#line 417 "engines/director/lingo/lingo-gr.y"
{ g_lingo->_indef = true; ;}
break;
case 89:
#line 418 "engines/director/lingo/lingo-gr.y"
{ {
g_lingo->code2(g_lingo->c_constpush, (inst)0); // Push fake value on stack g_lingo->code2(g_lingo->c_constpush, (inst)0); // Push fake value on stack
g_lingo->code1(g_lingo->c_procret); g_lingo->code1(g_lingo->c_procret);
@ -2120,33 +2120,33 @@ yyreduce:
g_lingo->_indef = false; ;} g_lingo->_indef = false; ;}
break; break;
case 88: case 90:
#line 419 "engines/director/lingo/lingo-gr.y" #line 424 "engines/director/lingo/lingo-gr.y"
{ (yyval.narg) = 0; ;} { (yyval.narg) = 0; ;}
break; break;
case 89: case 91:
#line 420 "engines/director/lingo/lingo-gr.y" #line 425 "engines/director/lingo/lingo-gr.y"
{ g_lingo->codeArg((yyvsp[(1) - (1)].s)); (yyval.narg) = 1; ;} { g_lingo->codeArg((yyvsp[(1) - (1)].s)); (yyval.narg) = 1; ;}
break; break;
case 90:
#line 421 "engines/director/lingo/lingo-gr.y"
{ g_lingo->codeArg((yyvsp[(3) - (3)].s)); (yyval.narg) = (yyvsp[(1) - (3)].narg) + 1; ;}
break;
case 91:
#line 422 "engines/director/lingo/lingo-gr.y"
{ g_lingo->codeArg((yyvsp[(4) - (4)].s)); (yyval.narg) = (yyvsp[(1) - (4)].narg) + 1; ;}
break;
case 92: case 92:
#line 424 "engines/director/lingo/lingo-gr.y" #line 426 "engines/director/lingo/lingo-gr.y"
{ g_lingo->codeArgStore(); ;} { g_lingo->codeArg((yyvsp[(3) - (3)].s)); (yyval.narg) = (yyvsp[(1) - (3)].narg) + 1; ;}
break; break;
case 93: case 93:
#line 427 "engines/director/lingo/lingo-gr.y" #line 427 "engines/director/lingo/lingo-gr.y"
{ g_lingo->codeArg((yyvsp[(4) - (4)].s)); (yyval.narg) = (yyvsp[(1) - (4)].narg) + 1; ;}
break;
case 94:
#line 429 "engines/director/lingo/lingo-gr.y"
{ g_lingo->codeArgStore(); ;}
break;
case 95:
#line 432 "engines/director/lingo/lingo-gr.y"
{ {
g_lingo->code1(g_lingo->c_call); g_lingo->code1(g_lingo->c_call);
g_lingo->codeString((yyvsp[(1) - (3)].s)->c_str()); g_lingo->codeString((yyvsp[(1) - (3)].s)->c_str());
@ -2155,18 +2155,18 @@ yyreduce:
g_lingo->code1(numpar); ;} g_lingo->code1(numpar); ;}
break; break;
case 94: case 96:
#line 435 "engines/director/lingo/lingo-gr.y" #line 440 "engines/director/lingo/lingo-gr.y"
{ (yyval.narg) = 0; ;} { (yyval.narg) = 0; ;}
break; break;
case 95: case 97:
#line 436 "engines/director/lingo/lingo-gr.y" #line 441 "engines/director/lingo/lingo-gr.y"
{ (yyval.narg) = 1; ;} { (yyval.narg) = 1; ;}
break; break;
case 96: case 98:
#line 437 "engines/director/lingo/lingo-gr.y" #line 442 "engines/director/lingo/lingo-gr.y"
{ (yyval.narg) = (yyvsp[(1) - (3)].narg) + 1; ;} { (yyval.narg) = (yyvsp[(1) - (3)].narg) + 1; ;}
break; break;
@ -2386,6 +2386,6 @@ yyreturn:
} }
#line 440 "engines/director/lingo/lingo-gr.y" #line 445 "engines/director/lingo/lingo-gr.y"

7
engines/director/lingo/lingo-gr.y
View File

@ -241,12 +241,17 @@ elseifstmt: elseifstmt elseifstmt1
| elseifstmt1 | elseifstmt1
; ;
elseifstmtoneliner: elseif cond tTHEN begin stmt end { elseifstmtoneliner: elseifstmtoneliner elseifstmtoneliner1
| elseifstmtoneliner1
;
elseifstmtoneliner1: elseif cond tTHEN begin stmt end {
inst then = 0; inst then = 0;
WRITE_UINT32(&then, $4); WRITE_UINT32(&then, $4);
(*g_lingo->_currentScript)[$1 + 1] = then; /* thenpart */ (*g_lingo->_currentScript)[$1 + 1] = then; /* thenpart */
g_lingo->codeLabel($1); } g_lingo->codeLabel($1); }
;
elseifstmt1: elseifstmtoneliner elseifstmt1: elseifstmtoneliner
| elseif cond tTHEN stmtlist end { | elseif cond tTHEN stmtlist end {

6
engines/director/lingo/lingo-lex.l
View File

@ -88,9 +88,9 @@ whitespace [\t ]
(?i:with) { count(); return tWITH; } (?i:with) { count(); return tWITH; }
(?i:while) { count(); return tWHILE; } (?i:while) { count(); return tWHILE; }
[!][=] { count(); return tNEQ; } [!][=] { count(); return tNEQ; }
[>][=] { count(); return tGE; } [>][=] { count(); return tGE; }
[<][=] { count(); return tLE; } [<][=] { count(); return tLE; }
{identifier} { {identifier} {
count(); count();