开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 通讯/手机编程 > 手机WAP编程 > 查看源码
wsgram.c
资源名称：gateway-1.2.1　[点击查看]
上传用户：gzpyjq
上传日期：2013-01-31
资源大小：1852k
文件大小：64k
源码类别：

手机WAP编程

开发平台：

WINDOWS

wsgram.c：源码内容
  2. /*  A Bison parser, made from wmlscript/wsgram.y
  3.     by GNU Bison version 1.28  */
  5. #define YYBISON 1  /* Identify Bison output.  */
  7. #define yyparse ws_yy_parse
  8. #define yylex ws_yy_lex
  9. #define yyerror ws_yy_error
  10. #define yylval ws_yy_lval
  11. #define yychar ws_yy_char
  12. #define yydebug ws_yy_debug
  13. #define yynerrs ws_yy_nerrs
  14. #define YYLSP_NEEDED
  16. #define tINVALID 257
  17. #define tTRUE 258
  18. #define tFALSE 259
  19. #define tINTEGER 260
  20. #define tFLOAT 261
  21. #define tSTRING 262
  22. #define tIDENTIFIER 263
  23. #define tACCESS 264
  24. #define tAGENT 265
  25. #define tBREAK 266
  26. #define tCONTINUE 267
  27. #define tIDIV 268
  28. #define tIDIVA 269
  29. #define tDOMAIN 270
  30. #define tELSE 271
  31. #define tEQUIV 272
  32. #define tEXTERN 273
  33. #define tFOR 274
  34. #define tFUNCTION 275
  35. #define tHEADER 276
  36. #define tHTTP 277
  37. #define tIF 278
  38. #define tISVALID 279
  39. #define tMETA 280
  40. #define tNAME 281
  41. #define tPATH 282
  42. #define tRETURN 283
  43. #define tTYPEOF 284
  44. #define tUSE 285
  45. #define tUSER 286
  46. #define tVAR 287
  47. #define tWHILE 288
  48. #define tURL 289
  49. #define tDELETE 290
  50. #define tIN 291
  51. #define tLIB 292
  52. #define tNEW 293
  53. #define tNULL 294
  54. #define tTHIS 295
  55. #define tVOID 296
  56. #define tWITH 297
  57. #define tCASE 298
  58. #define tCATCH 299
  59. #define tCLASS 300
  60. #define tCONST 301
  61. #define tDEBUGGER 302
  62. #define tDEFAULT 303
  63. #define tDO 304
  64. #define tENUM 305
  65. #define tEXPORT 306
  66. #define tEXTENDS 307
  67. #define tFINALLY 308
  68. #define tIMPORT 309
  69. #define tPRIVATE 310
  70. #define tPUBLIC 311
  71. #define tSIZEOF 312
  72. #define tSTRUCT 313
  73. #define tSUPER 314
  74. #define tSWITCH 315
  75. #define tTHROW 316
  76. #define tTRY 317
  77. #define tEQ 318
  78. #define tLE 319
  79. #define tGE 320
  80. #define tNE 321
  81. #define tAND 322
  82. #define tOR 323
  83. #define tPLUSPLUS 324
  84. #define tMINUSMINUS 325
  85. #define tLSHIFT 326
  86. #define tRSSHIFT 327
  87. #define tRSZSHIFT 328
  88. #define tADDA 329
  89. #define tSUBA 330
  90. #define tMULA 331
  91. #define tDIVA 332
  92. #define tANDA 333
  93. #define tORA 334
  94. #define tXORA 335
  95. #define tREMA 336
  96. #define tLSHIFTA 337
  97. #define tRSSHIFTA 338
  98. #define tRSZSHIFTA 339
  100. #line 1 "wmlscript/wsgram.y"
  102. /*
  103.  *
  104.  * wsgram.y
  105.  *
  106.  * Author: Markku Rossi <mtr@iki.fi>
  107.  *
  108.  * Copyright (c) 1999-2000 WAPIT OY LTD.
  109.  *  All rights reserved.
  110.  *
  111.  * Bison grammar for the WMLScript compiler.
  112.  *
  113.  */
  115. #include "wmlscript/wsint.h"
  117. #define YYPARSE_PARAM pctx
  118. #define YYLEX_PARAM pctx
  120. /* The required yyerror() function.  This is actually not used but to
  121.    report the internal parser errors.  All other errors are reported
  122.    by using the `wserror.h' functions. */
  123. extern void yyerror(char *msg);
  125. #if WS_DEBUG
  126. /* Just for debugging purposes. */
  127. WsCompilerPtr global_compiler = NULL;
  128. #endif /* WS_DEBUG */
  131. #line 33 "wmlscript/wsgram.y"
  132. typedef union
  133. {
  134.     WsUInt32 integer;
  135.     WsFloat vfloat;
  136.     char *identifier;
  137.     WsUtf8String *string;
  139.     WsBool boolean;
  140.     WsList *list;
  141.     WsFormalParm *parm;
  142.     WsVarDec *vardec;
  144.     WsPragmaMetaBody *meta_body;
  146.     WsStatement *stmt;
  147.     WsExpression *expr;
  148. } YYSTYPE;
  150. #ifndef YYLTYPE
  151. typedef
  152.   struct yyltype
  153.     {
  154.       int timestamp;
  155.       int first_line;
  156.       int first_column;
  157.       int last_line;
  158.       int last_column;
  159.       char *text;
  160.    }
  161.   yyltype;
  163. #define YYLTYPE yyltype
  164. #endif
  166. #include <stdio.h>
  168. #ifndef __cplusplus
  169. #ifndef __STDC__
  170. #define const
  171. #endif
  172. #endif
  176. #define YYFINAL 257
  177. #define YYFLAG -32768
  178. #define YYNTBASE 109
  180. #define YYTRANSLATE(x) ((unsigned)(x) <= 339 ? yytranslate[x] : 163)
  182. static const char yytranslate[] = {     0,
  183.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  184.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  185.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  186.      2,     2,   106,     2,   107,     2,   104,    97,     2,    87,
  187.     88,   102,   100,    89,   101,   108,   103,     2,     2,     2,
  188.      2,     2,     2,     2,     2,     2,     2,    94,    86,    98,
  189.     92,    99,    93,     2,     2,     2,     2,     2,     2,     2,
  190.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  191.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  192.      2,     2,     2,    96,     2,     2,     2,     2,     2,     2,
  193.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  194.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  195.      2,     2,    90,    95,    91,   105,     2,     2,     2,     2,
  196.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  197.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  198.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  199.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  200.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  201.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  202.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  203.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  204.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  205.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  206.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  207.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  208.      2,     2,     2,     2,     2,     1,     3,     4,     5,     6,
  209.      7,     8,     9,    10,    11,    12,    13,    14,    15,    16,
  210.     17,    18,    19,    20,    21,    22,    23,    24,    25,    26,
  211.     27,    28,    29,    30,    31,    32,    33,    34,    35,    36,
  212.     37,    38,    39,    40,    41,    42,    43,    44,    45,    46,
  213.     47,    48,    49,    50,    51,    52,    53,    54,    55,    56,
  214.     57,    58,    59,    60,    61,    62,    63,    64,    65,    66,
  215.     67,    68,    69,    70,    71,    72,    73,    74,    75,    76,
  216.     77,    78,    79,    80,    81,    82,    83,    84,    85
  217. };
  219. #if YYDEBUG != 0
  220. static const short yyprhs[] = {     0,
  221.      0,     3,     5,     7,     9,    12,    16,    18,    20,    22,
  222.     24,    28,    31,    34,    37,    42,    45,    47,    49,    51,
  223.     54,    58,    62,    65,    69,    71,    73,    75,    77,    80,
  224.     89,    90,    92,    93,    95,    96,    98,   100,   104,   106,
  225.    108,   110,   113,   115,   117,   120,   123,   125,   129,   131,
  226.    132,   134,   136,   139,   143,   146,   148,   152,   155,   156,
  227.    159,   167,   173,   179,   181,   191,   202,   206,   207,   209,
  228.    211,   215,   217,   221,   225,   229,   233,   237,   241,   245,
  229.    249,   253,   257,   261,   265,   269,   271,   277,   279,   283,
  230.    285,   289,   291,   295,   297,   301,   303,   307,   309,   313,
  231.    317,   319,   323,   327,   331,   335,   337,   341,   345,   349,
  232.    351,   355,   359,   361,   365,   369,   373,   377,   379,   382,
  233.    385,   388,   391,   394,   397,   400,   403,   405,   408,   411,
  234.    413,   416,   421,   426,   428,   430,   432,   434,   436,   438,
  235.    440,   444,   447,   451,   453
  236. };
  238. static const short yyrhs[] = {   110,
  239.    125,     0,   125,     0,     1,     0,   111,     0,   110,   111,
  240.      0,    31,   112,    86,     0,     1,     0,   113,     0,   114,
  241.      0,   116,     0,    35,     9,     8,     0,    10,   115,     0,
  242.     16,     8,     0,    28,     8,     0,    16,     8,    28,     8,
  243.      0,    26,   117,     0,   118,     0,   119,     0,   120,     0,
  244.     27,   121,     0,    23,    18,   121,     0,    32,    11,   121,
  245.      0,   122,   123,     0,   122,   123,   124,     0,     8,     0,
  246.      8,     0,     8,     0,   126,     0,   125,   126,     0,   127,
  247.     21,     9,    87,   128,    88,   132,   129,     0,     0,    19,
  248.      0,     0,   130,     0,     0,    86,     0,     9,     0,   130,
  249.     89,     9,     0,   132,     0,   135,     0,    86,     0,   144,
  250.     86,     0,   139,     0,   140,     0,    13,    86,     0,    12,
  251.     86,     0,   142,     0,    90,   133,    91,     0,     1,     0,
  252.      0,   134,     0,   131,     0,   134,   131,     0,    33,   136,
  253.     86,     0,    33,     1,     0,   137,     0,   136,    89,   137,
  254.      0,     9,   138,     0,     0,    92,   146,     0,    24,    87,
  255.    144,    88,   131,    17,   131,     0,    24,    87,   144,    88,
  256.    131,     0,    34,    87,   144,    88,   131,     0,   141,     0,
  257.     20,    87,   143,    86,   143,    86,   143,    88,   131,     0,
  258.     20,    87,    33,   136,    86,   143,    86,   143,    88,   131,
  259.      0,    29,   143,    86,     0,     0,   144,     0,   145,     0,
  260.    144,    89,   145,     0,   146,     0,     9,    92,   145,     0,
  261.      9,    77,   145,     0,     9,    78,   145,     0,     9,    82,
  262.    145,     0,     9,    75,   145,     0,     9,    76,   145,     0,
  263.      9,    83,   145,     0,     9,    84,   145,     0,     9,    85,
  264.    145,     0,     9,    79,   145,     0,     9,    81,   145,     0,
  265.      9,    80,   145,     0,     9,    15,   145,     0,   147,     0,
  266.    147,    93,   145,    94,   145,     0,   148,     0,   147,    69,
  267.    148,     0,   149,     0,   148,    68,   149,     0,   150,     0,
  268.    149,    95,   150,     0,   151,     0,   150,    96,   151,     0,
  269.    152,     0,   151,    97,   152,     0,   153,     0,   152,    64,
  270.    153,     0,   152,    67,   153,     0,   154,     0,   153,    98,
  271.    154,     0,   153,    99,   154,     0,   153,    65,   154,     0,
  272.    153,    66,   154,     0,   155,     0,   154,    72,   155,     0,
  273.    154,    73,   155,     0,   154,    74,   155,     0,   156,     0,
  274.    155,   100,   156,     0,   155,   101,   156,     0,   157,     0,
  275.    156,   102,   157,     0,   156,   103,   157,     0,   156,    14,
  276.    157,     0,   156,   104,   157,     0,   158,     0,    30,   157,
  277.      0,    25,   157,     0,    70,     9,     0,    71,     9,     0,
  278.    100,   157,     0,   101,   157,     0,   105,   157,     0,   106,
  279.    157,     0,   159,     0,     9,    70,     0,     9,    71,     0,
  280.    160,     0,     9,   161,     0,     9,   107,     9,   161,     0,
  281.      9,   108,     9,   161,     0,     9,     0,     3,     0,     4,
  282.      0,     5,     0,     6,     0,     7,     0,     8,     0,    87,
  283.    144,    88,     0,    87,    88,     0,    87,   162,    88,     0,
  284.    145,     0,   162,    89,   145,     0
  285. };
  287. #endif
  289. #if YYDEBUG != 0
  290. static const short yyrline[] = { 0,
  291.    121,   123,   124,   130,   132,   135,   137,   141,   143,   144,
  292.    147,   152,   156,   167,   178,   200,   204,   206,   207,   210,
  293.    228,   248,   283,   286,   290,   291,   292,   296,   298,   301,
  294.    316,   318,   321,   324,   327,   329,   332,   351,   371,   380,
  295.    381,   383,   385,   386,   387,   389,   391,   394,   402,   409,
  296.    412,   415,   421,   425,   428,   432,   438,   442,   457,   460,
  297.    464,   467,   471,   474,   477,   481,   486,   493,   495,   499,
  298.    501,   505,   507,   509,   511,   513,   515,   517,   519,   521,
  299.    523,   525,   527,   529,   531,   535,   537,   541,   543,   547,
  300.    549,   553,   555,   559,   561,   565,   567,   571,   573,   575,
  301.    579,   581,   583,   585,   587,   591,   593,   595,   597,   601,
  302.    603,   605,   609,   611,   613,   615,   617,   621,   623,   625,
  303.    627,   629,   631,   647,   649,   651,   655,   657,   659,   663,
  304.    665,   675,   677,   681,   684,   686,   688,   690,   692,   694,
  305.    696,   700,   703,   707,   713
  306. };
  307. #endif
  310. #if YYDEBUG != 0 || defined (YYERROR_VERBOSE)
  312. static const char * const yytname[] = {   "$","error","$undefined.","tINVALID",
  313. "tTRUE","tFALSE","tINTEGER","tFLOAT","tSTRING","tIDENTIFIER","tACCESS","tAGENT",
  314. "tBREAK","tCONTINUE","tIDIV","tIDIVA","tDOMAIN","tELSE","tEQUIV","tEXTERN","tFOR",
  315. "tFUNCTION","tHEADER","tHTTP","tIF","tISVALID","tMETA","tNAME","tPATH","tRETURN",
  316. "tTYPEOF","tUSE","tUSER","tVAR","tWHILE","tURL","tDELETE","tIN","tLIB","tNEW",
  317. "tNULL","tTHIS","tVOID","tWITH","tCASE","tCATCH","tCLASS","tCONST","tDEBUGGER",
  318. "tDEFAULT","tDO","tENUM","tEXPORT","tEXTENDS","tFINALLY","tIMPORT","tPRIVATE",
  319. "tPUBLIC","tSIZEOF","tSTRUCT","tSUPER","tSWITCH","tTHROW","tTRY","tEQ","tLE",
  320. "tGE","tNE","tAND","tOR","tPLUSPLUS","tMINUSMINUS","tLSHIFT","tRSSHIFT","tRSZSHIFT",
  321. "tADDA","tSUBA","tMULA","tDIVA","tANDA","tORA","tXORA","tREMA","tLSHIFTA","tRSSHIFTA",
  322. "tRSZSHIFTA","';'","'('","')'","','","'{'","'}'","'='","'?'","':'","'|'","'^'",
  323. "'&'","'<'","'>'","'+'","'-'","'*'","'/'","'%'","'~'","'!'","'#'","'.'","CompilationUnit",
  324. "Pragmas","Pragma","PragmaDeclaration","ExternalCompilationUnitPragma","AccessControlPragma",
  325. "AccessControlSpecifier","MetaPragma","MetaSpecifier","MetaName","MetaHttpEquiv",
  326. "MetaUserAgent","MetaBody","MetaPropertyName","MetaContent","MetaScheme","FunctionDeclarations",
  327. "FunctionDeclaration","ExternOpt","FormalParameterListOpt","SemicolonOpt","FormalParameterList",
  328. "Statement","Block","StatementListOpt","StatementList","VariableStatement","VariableDeclarationList",
  329. "VariableDeclaration","VariableInitializedOpt","IfStatement","IterationStatement",
  330. "ForStatement","ReturnStatement","ExpressionOpt","Expression","AssignmentExpression",
  331. "ConditionalExpression","LogicalORExpression","LogicalANDExpression","BitwiseORExpression",
  332. "BitwiseXORExpression","BitwiseANDExpression","EqualityExpression","RelationalExpression",
  333. "ShiftExpression","AdditiveExpression","MultiplicativeExpression","UnaryExpression",
  334. "PostfixExpression","CallExpression","PrimaryExpression","Arguments","ArgumentList", NULL
  335. };
  336. #endif
  338. static const short yyr1[] = {     0,
  339.    109,   109,   109,   110,   110,   111,   111,   112,   112,   112,
  340.    113,   114,   115,   115,   115,   116,   117,   117,   117,   118,
  341.    119,   120,   121,   121,   122,   123,   124,   125,   125,   126,
  342.    127,   127,   128,   128,   129,   129,   130,   130,   131,   131,
  343.    131,   131,   131,   131,   131,   131,   131,   132,   132,   133,
  344.    133,   134,   134,   135,   135,   136,   136,   137,   138,   138,
  345.    139,   139,   140,   140,   141,   141,   142,   143,   143,   144,
  346.    144,   145,   145,   145,   145,   145,   145,   145,   145,   145,
  347.    145,   145,   145,   145,   145,   146,   146,   147,   147,   148,
  348.    148,   149,   149,   150,   150,   151,   151,   152,   152,   152,
  349.    153,   153,   153,   153,   153,   154,   154,   154,   154,   155,
  350.    155,   155,   156,   156,   156,   156,   156,   157,   157,   157,
  351.    157,   157,   157,   157,   157,   157,   158,   158,   158,   159,
  352.    159,   159,   159,   160,   160,   160,   160,   160,   160,   160,
  353.    160,   161,   161,   162,   162
  354. };
  356. static const short yyr2[] = {     0,
  357.      2,     1,     1,     1,     2,     3,     1,     1,     1,     1,
  358.      3,     2,     2,     2,     4,     2,     1,     1,     1,     2,
  359.      3,     3,     2,     3,     1,     1,     1,     1,     2,     8,
  360.      0,     1,     0,     1,     0,     1,     1,     3,     1,     1,
  361.      1,     2,     1,     1,     2,     2,     1,     3,     1,     0,
  362.      1,     1,     2,     3,     2,     1,     3,     2,     0,     2,
  363.      7,     5,     5,     1,     9,    10,     3,     0,     1,     1,
  364.      3,     1,     3,     3,     3,     3,     3,     3,     3,     3,
  365.      3,     3,     3,     3,     3,     1,     5,     1,     3,     1,
  366.      3,     1,     3,     1,     3,     1,     3,     1,     3,     3,
  367.      1,     3,     3,     3,     3,     1,     3,     3,     3,     1,
  368.      3,     3,     1,     3,     3,     3,     3,     1,     2,     2,
  369.      2,     2,     2,     2,     2,     2,     1,     2,     2,     1,
  370.      2,     4,     4,     1,     1,     1,     1,     1,     1,     1,
  371.      3,     2,     3,     1,     3
  372. };
  374. static const short yydefact[] = {     0,
  375.      7,    32,     0,     0,     4,     2,    28,     0,     0,     0,
  376.      0,     0,     8,     9,    10,     7,     5,     1,    29,     0,
  377.      0,     0,    12,     0,     0,     0,    16,    17,    18,    19,
  378.      0,     6,     0,    13,    14,     0,    25,    20,     0,     0,
  379.     11,    33,     0,    21,    26,    23,    22,    37,     0,    34,
  380.     15,    27,    24,     0,     0,    49,     0,    35,    38,   135,
  381.    136,   137,   138,   139,   140,   134,     0,     0,     0,     0,
  382.      0,    68,     0,     0,     0,     0,     0,    41,     0,     0,
  383.      0,     0,     0,    52,    39,     0,     0,    40,    43,    44,
  384.     64,    47,     0,    70,    72,    86,    88,    90,    92,    94,
  385.     96,    98,   101,   106,   110,   113,   118,   127,   130,    36,
  386.     30,     0,   128,   129,     0,     0,     0,     0,     0,     0,
  387.      0,     0,     0,     0,     0,     0,     0,     0,     0,   131,
  388.     46,    45,    68,     0,   134,   120,     0,    69,   119,    55,
  389.     59,     0,    56,     0,   121,   122,     0,   123,   124,   125,
  390.    126,    48,    53,    42,     0,     0,     0,     0,     0,     0,
  391.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  392.      0,     0,     0,     0,     0,     0,    85,    77,    78,    74,
  393.     75,    82,    84,    83,    76,    79,    80,    81,   142,   144,
  394.      0,    73,     0,     0,     0,     0,     0,    67,     0,    58,
  395.     54,     0,     0,   141,    71,    89,     0,    91,    93,    95,
  396.     97,    99,   100,   104,   105,   102,   103,   107,   108,   109,
  397.    111,   112,   116,   114,   115,   117,   143,     0,   132,   133,
  398.      0,    68,     0,    60,    57,     0,     0,   145,    68,     0,
  399.     62,    63,    87,     0,    68,     0,    68,     0,    61,     0,
  400.      0,     0,    65,    66,     0,     0,     0
  401. };
  403. static const short yydefgoto[] = {   255,
  404.      4,     5,    12,    13,    14,    23,    15,    27,    28,    29,
  405.     30,    38,    39,    46,    53,     6,     7,     8,    49,   111,
  406.     50,    84,    85,    86,    87,    88,   142,   143,   200,    89,
  407.     90,    91,    92,   137,    93,    94,    95,    96,    97,    98,
  408.     99,   100,   101,   102,   103,   104,   105,   106,   107,   108,
  409.    109,   130,   191
  410. };
  412. static const short yypact[] = {    59,
  413.     37,-32768,    28,    63,-32768,    95,-32768,    23,     8,    54,
  414.     13,   -20,-32768,-32768,-32768,-32768,-32768,    95,-32768,    48,
  415.     67,    75,-32768,    77,   112,   118,-32768,-32768,-32768,-32768,
  416.    126,-32768,    62,   123,-32768,   112,-32768,-32768,   156,   112,
  417. -32768,   163,   166,-32768,-32768,   169,-32768,-32768,   105,   107,
  418. -32768,-32768,-32768,     1,   185,-32768,   132,   111,-32768,-32768,
  419. -32768,-32768,-32768,-32768,-32768,   340,   115,   120,   124,   125,
  420.    296,   308,   296,    58,   127,   189,   198,-32768,   308,   296,
  421.    296,   296,   296,-32768,-32768,   119,   175,-32768,-32768,-32768,
  422. -32768,-32768,   -18,-32768,-32768,   -48,   145,   121,   128,   137,
  423.    -61,   -25,    45,     5,    44,-32768,-32768,-32768,-32768,-32768,
  424. -32768,   308,-32768,-32768,   308,   308,   308,   308,   308,   308,
  425.    308,   308,   308,   308,   308,   222,   308,   206,   208,-32768,
  426. -32768,-32768,   264,   308,   -38,-32768,   134,   146,-32768,-32768,
  427.    129,   -10,-32768,   308,-32768,-32768,    43,-32768,-32768,-32768,
  428. -32768,-32768,-32768,-32768,   308,   296,   308,   296,   296,   296,
  429.    296,   296,   296,   296,   296,   296,   296,   296,   296,   296,
  430.    296,   296,   296,   296,   296,   296,-32768,-32768,-32768,-32768,
  431. -32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
  432.     66,-32768,   149,   149,   230,   154,    70,-32768,   296,-32768,
  433. -32768,   230,    82,-32768,-32768,   145,   147,   121,   128,   137,
  434.    -61,   -25,   -25,    45,    45,    45,    45,     5,     5,     5,
  435.     44,    44,-32768,-32768,-32768,-32768,-32768,   308,-32768,-32768,
  436.     -1,   308,    22,-32768,-32768,    22,   308,-32768,   308,   157,
  437.    225,-32768,-32768,   158,   308,    22,   308,   160,-32768,   161,
  438.     22,    22,-32768,-32768,   250,   251,-32768
  439. };
  441. static const short yypgoto[] = {-32768,
  442. -32768,   249,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
  443. -32768,     3,-32768,-32768,-32768,   252,    47,-32768,-32768,-32768,
  444. -32768,   -83,   200,-32768,-32768,-32768,    60,    55,-32768,-32768,
  445. -32768,-32768,-32768,  -132,   -72,  -107,    61,-32768,   102,   101,
  446.    104,   114,   103,   -52,   -63,   -44,   -29,    16,-32768,-32768,
  447. -32768,    -8,-32768
  448. };
  451. #define YYLAST 448
  454. static const short yytable[] = {   138,
  455.    196,    56,   162,   153,   177,   163,   147,   178,   179,   180,
  456.    181,   182,   183,   184,   185,   186,   187,   188,   190,   192,
  457.    156,    31,    56,    21,    60,    61,    62,    63,    64,    65,
  458.     66,   113,   114,    67,    68,    22,    -3,     9,    44,   164,
  459.    165,    69,    47,    20,   157,    70,    71,   205,   126,   207,
  460.     72,    73,    19,    10,    74,    75,    33,   173,   140,     1,
  461.    138,   197,    11,    16,    19,    32,   141,   154,   128,   129,
  462.    155,   203,   166,   167,    34,   201,    24,     2,   202,   -31,
  463.     25,     2,    35,   -31,   239,    26,   136,   202,   139,     3,
  464.     57,    76,    77,     3,    36,   148,   149,   150,   151,   240,
  465.    214,   215,   216,   217,   171,   172,   244,    78,    79,   212,
  466.    213,    57,   248,     2,   250,   -31,   168,   169,   170,    37,
  467.    238,    80,    81,   218,   219,   220,    82,    83,    40,   243,
  468.    204,   155,    56,    41,    60,    61,    62,    63,    64,    65,
  469.     66,   221,   222,    67,    68,   174,   175,   176,    42,   241,
  470.     43,    69,   242,   227,   228,    70,    71,   233,   155,   138,
  471.     72,    73,   249,    45,    74,    75,   138,   253,   254,   236,
  472.    155,    48,   138,    51,   138,    56,    52,    60,    61,    62,
  473.     63,    64,    65,    66,   229,   230,    67,    68,   223,   224,
  474.    225,   226,    54,    59,    69,    55,   110,   145,    70,    71,
  475.    131,    76,    77,    72,    73,   132,   146,    74,    75,   152,
  476.    133,   134,   158,   144,   193,   159,   194,    78,    79,   198,
  477.    199,    57,   -50,   160,    60,    61,    62,    63,    64,    65,
  478.     66,    80,    81,   161,   155,   126,    82,    83,   141,   232,
  479.    237,   246,   245,   247,    76,    77,    71,   251,   252,   256,
  480.    257,    73,    17,    58,   231,    18,   235,   206,   208,   234,
  481.     78,    79,   209,   211,    57,   -51,    60,    61,    62,    63,
  482.     64,    65,    66,   210,    80,    81,     0,     0,     0,    82,
  483.     83,     0,     0,     0,     0,     0,     0,     0,    71,     0,
  484.      0,    76,    77,    73,     0,     0,   195,     0,    60,    61,
  485.     62,    63,    64,    65,   135,     0,     0,     0,    79,   189,
  486.     60,    61,    62,    63,    64,    65,    66,     0,     0,     0,
  487.     71,    80,    81,     0,     0,    73,    82,    83,     0,     0,
  488.      0,     0,    71,    76,    77,     0,     0,    73,     0,     0,
  489.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  490.     79,     0,     0,     0,   112,     0,     0,     0,     0,     0,
  491.      0,     0,     0,    80,    81,    76,    77,     0,    82,    83,
  492.      0,     0,     0,     0,     0,     0,     0,    76,    77,     0,
  493.      0,     0,    79,     0,     0,     0,     0,     0,     0,     0,
  494.      0,     0,     0,     0,    79,    80,    81,     0,     0,     0,
  495.     82,    83,     0,     0,     0,     0,     0,    80,    81,   113,
  496.    114,     0,    82,    83,   115,   116,   117,   118,   119,   120,
  497.    121,   122,   123,   124,   125,     0,   126,     0,     0,     0,
  498.      0,   127,     0,     0,     0,     0,     0,     0,     0,     0,
  499.      0,     0,     0,     0,     0,     0,   128,   129
  500. };
  502. static const short yycheck[] = {    72,
  503.    133,     1,    64,    87,   112,    67,    79,   115,   116,   117,
  504.    118,   119,   120,   121,   122,   123,   124,   125,   126,   127,
  505.     69,     9,     1,    16,     3,     4,     5,     6,     7,     8,
  506.      9,    70,    71,    12,    13,    28,     0,    10,    36,    65,
  507.     66,    20,    40,    21,    93,    24,    25,   155,    87,   157,
  508.     29,    30,     6,    26,    33,    34,     9,    14,     1,     1,
  509.    133,   134,    35,     1,    18,    86,     9,    86,   107,   108,
  510.     89,   144,    98,    99,     8,    86,    23,    19,    89,    21,
  511.     27,    19,     8,    21,    86,    32,    71,    89,    73,    31,
  512.     90,    70,    71,    31,    18,    80,    81,    82,    83,   232,
  513.    164,   165,   166,   167,   100,   101,   239,    86,    87,   162,
  514.    163,    90,   245,    19,   247,    21,    72,    73,    74,     8,
  515.    228,   100,   101,   168,   169,   170,   105,   106,    11,   237,
  516.     88,    89,     1,     8,     3,     4,     5,     6,     7,     8,
  517.      9,   171,   172,    12,    13,   102,   103,   104,    87,   233,
  518.     28,    20,   236,    88,    89,    24,    25,    88,    89,   232,
  519.     29,    30,   246,     8,    33,    34,   239,   251,   252,    88,
  520.     89,     9,   245,     8,   247,     1,     8,     3,     4,     5,
  521.      6,     7,     8,     9,   193,   194,    12,    13,   173,   174,
  522.    175,   176,    88,     9,    20,    89,    86,     9,    24,    25,
  523.     86,    70,    71,    29,    30,    86,     9,    33,    34,    91,
  524.     87,    87,    68,    87,     9,    95,     9,    86,    87,    86,
  525.     92,    90,    91,    96,     3,     4,     5,     6,     7,     8,
  526.      9,   100,   101,    97,    89,    87,   105,   106,     9,    86,
  527.     94,    17,    86,    86,    70,    71,    25,    88,    88,     0,
  528.      0,    30,     4,    54,   195,     4,   202,   156,   158,   199,
  529.     86,    87,   159,   161,    90,    91,     3,     4,     5,     6,
  530.      7,     8,     9,   160,   100,   101,    -1,    -1,    -1,   105,
  531.    106,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    25,    -1,
  532.     -1,    70,    71,    30,    -1,    -1,    33,    -1,     3,     4,
  533.      5,     6,     7,     8,     9,    -1,    -1,    -1,    87,    88,
  534.      3,     4,     5,     6,     7,     8,     9,    -1,    -1,    -1,
  535.     25,   100,   101,    -1,    -1,    30,   105,   106,    -1,    -1,
  536.     -1,    -1,    25,    70,    71,    -1,    -1,    30,    -1,    -1,
  537.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  538.     87,    -1,    -1,    -1,    15,    -1,    -1,    -1,    -1,    -1,
  539.     -1,    -1,    -1,   100,   101,    70,    71,    -1,   105,   106,
  540.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    70,    71,    -1,
  541.     -1,    -1,    87,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  542.     -1,    -1,    -1,    -1,    87,   100,   101,    -1,    -1,    -1,
  543.    105,   106,    -1,    -1,    -1,    -1,    -1,   100,   101,    70,
  544.     71,    -1,   105,   106,    75,    76,    77,    78,    79,    80,
  545.     81,    82,    83,    84,    85,    -1,    87,    -1,    -1,    -1,
  546.     -1,    92,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  547.     -1,    -1,    -1,    -1,    -1,    -1,   107,   108
  548. };
  549. #define YYPURE 1
  551. /* -*-C-*-  Note some compilers choke on comments on `#line' lines.  */
  552. #line 3 "/usr/share/misc/bison.simple"
  553. /* This file comes from bison-1.28.  */
  555. /* Skeleton output parser for bison,
  556.    Copyright (C) 1984, 1989, 1990 Free Software Foundation, Inc.
  558.    This program is free software; you can redistribute it and/or modify
  559.    it under the terms of the GNU General Public License as published by
  560.    the Free Software Foundation; either version 2, or (at your option)
  561.    any later version.
  563.    This program is distributed in the hope that it will be useful,
  564.    but WITHOUT ANY WARRANTY; without even the implied warranty of
  565.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  566.    GNU General Public License for more details.
  568.    You should have received a copy of the GNU General Public License
  569.    along with this program; if not, write to the Free Software
  570.    Foundation, Inc., 59 Temple Place - Suite 330,
  571.    Boston, MA 02111-1307, USA.  */
  573. /* As a special exception, when this file is copied by Bison into a
  574.    Bison output file, you may use that output file without restriction.
  575.    This special exception was added by the Free Software Foundation
  576.    in version 1.24 of Bison.  */
  578. /* This is the parser code that is written into each bison parser
  579.   when the %semantic_parser declaration is not specified in the grammar.
  580.   It was written by Richard Stallman by simplifying the hairy parser
  581.   used when %semantic_parser is specified.  */
  583. #ifndef YYSTACK_USE_ALLOCA
  584. #ifdef alloca
  585. #define YYSTACK_USE_ALLOCA
  586. #else /* alloca not defined */
  587. #ifdef __GNUC__
  588. #define YYSTACK_USE_ALLOCA
  589. #define alloca __builtin_alloca
  590. #else /* not GNU C.  */
  591. #if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__) || defined (__sparc) || defined (__sgi) || (defined (__sun) && defined (__i386))
  592. #define YYSTACK_USE_ALLOCA
  593. #include <alloca.h>
  594. #else /* not sparc */
  595. /* We think this test detects Watcom and Microsoft C.  */
  596. /* This used to test MSDOS, but that is a bad idea
  597.    since that symbol is in the user namespace.  */
  598. #if (defined (_MSDOS) || defined (_MSDOS_)) && !defined (__TURBOC__)
  599. #if 0 /* No need for malloc.h, which pollutes the namespace;
  600.  instead, just don't use alloca.  */
  601. #include <malloc.h>
  602. #endif
  603. #else /* not MSDOS, or __TURBOC__ */
  604. #if defined(_AIX)
  605. /* I don't know what this was needed for, but it pollutes the namespace.
  606.    So I turned it off.   rms, 2 May 1997.  */
  607. /* #include <malloc.h>  */
  608.  #pragma alloca
  609. #define YYSTACK_USE_ALLOCA
  610. #else /* not MSDOS, or __TURBOC__, or _AIX */
  611. #if 0
  612. #ifdef __hpux /* haible@ilog.fr says this works for HPUX 9.05 and up,
  613.  and on HPUX 10.  Eventually we can turn this on.  */
  614. #define YYSTACK_USE_ALLOCA
  615. #define alloca __builtin_alloca
  616. #endif /* __hpux */
  617. #endif
  618. #endif /* not _AIX */
  619. #endif /* not MSDOS, or __TURBOC__ */
  620. #endif /* not sparc */
  621. #endif /* not GNU C */
  622. #endif /* alloca not defined */
  623. #endif /* YYSTACK_USE_ALLOCA not defined */
  625. #ifdef YYSTACK_USE_ALLOCA
  626. #define YYSTACK_ALLOC alloca
  627. #else
  628. #define YYSTACK_ALLOC malloc
  629. #endif
  631. /* Note: there must be only one dollar sign in this file.
  632.    It is replaced by the list of actions, each action
  633.    as one case of the switch.  */
  635. #define yyerrok (yyerrstatus = 0)
  636. #define yyclearin (yychar = YYEMPTY)
  637. #define YYEMPTY -2
  638. #define YYEOF 0
  639. #define YYACCEPT goto yyacceptlab
  640. #define YYABORT  goto yyabortlab
  641. #define YYERROR goto yyerrlab1
  642. /* Like YYERROR except do call yyerror.
  643.    This remains here temporarily to ease the
  644.    transition to the new meaning of YYERROR, for GCC.
  645.    Once GCC version 2 has supplanted version 1, this can go.  */
  646. #define YYFAIL goto yyerrlab
  647. #define YYRECOVERING()  (!!yyerrstatus)
  648. #define YYBACKUP(token, value) 
  649. do
  650.   if (yychar == YYEMPTY && yylen == 1)
  651.     { yychar = (token), yylval = (value);
  652.       yychar1 = YYTRANSLATE (yychar);
  653.       YYPOPSTACK;
  654.       goto yybackup;
  655.     }
  656.   else
  657.     { yyerror ("syntax error: cannot back up"); YYERROR; }
  658. while (0)
  660. #define YYTERROR 1
  661. #define YYERRCODE 256
  663. #ifndef YYPURE
  664. #define YYLEX yylex()
  665. #endif
  667. #ifdef YYPURE
  668. #ifdef YYLSP_NEEDED
  669. #ifdef YYLEX_PARAM
  670. #define YYLEX yylex(&yylval, &yylloc, YYLEX_PARAM)
  671. #else
  672. #define YYLEX yylex(&yylval, &yylloc)
  673. #endif
  674. #else /* not YYLSP_NEEDED */
  675. #ifdef YYLEX_PARAM
  676. #define YYLEX yylex(&yylval, YYLEX_PARAM)
  677. #else
  678. #define YYLEX yylex(&yylval)
  679. #endif
  680. #endif /* not YYLSP_NEEDED */
  681. #endif
  683. /* If nonreentrant, generate the variables here */
  685. #ifndef YYPURE
  687. int yychar; /*  the lookahead symbol */
  688. YYSTYPE yylval; /*  the semantic value of the */
  689. /*  lookahead symbol */
  691. #ifdef YYLSP_NEEDED
  692. YYLTYPE yylloc; /*  location data for the lookahead */
  693. /*  symbol */
  694. #endif
  696. int yynerrs; /*  number of parse errors so far       */
  697. #endif  /* not YYPURE */
  699. #if YYDEBUG != 0
  700. int yydebug; /*  nonzero means print parse trace */
  701. /* Since this is uninitialized, it does not stop multiple parsers
  702.    from coexisting.  */
  703. #endif
  705. /*  YYINITDEPTH indicates the initial size of the parser's stacks */
  707. #ifndef YYINITDEPTH
  708. #define YYINITDEPTH 200
  709. #endif
  711. /*  YYMAXDEPTH is the maximum size the stacks can grow to
  712.     (effective only if the built-in stack extension method is used).  */
  714. #if YYMAXDEPTH == 0
  715. #undef YYMAXDEPTH
  716. #endif
  718. #ifndef YYMAXDEPTH
  719. #define YYMAXDEPTH 10000
  720. #endif
  722. /* Define __yy_memcpy.  Note that the size argument
  723.    should be passed with type unsigned int, because that is what the non-GCC
  724.    definitions require.  With GCC, __builtin_memcpy takes an arg
  725.    of type size_t, but it can handle unsigned int.  */
  727. #if __GNUC__ > 1 /* GNU C and GNU C++ define this.  */
  728. #define __yy_memcpy(TO,FROM,COUNT) __builtin_memcpy(TO,FROM,COUNT)
  729. #else /* not GNU C or C++ */
  730. #ifndef __cplusplus
  732. /* This is the most reliable way to avoid incompatibilities
  733.    in available built-in functions on various systems.  */
  734. static void
  735. __yy_memcpy (to, from, count)
  736.      char *to;
  737.      char *from;
  738.      unsigned int count;
  739. {
  740.   register char *f = from;
  741.   register char *t = to;
  742.   register int i = count;
  744.   while (i-- > 0)
  745.     *t++ = *f++;
  746. }
  748. #else /* __cplusplus */
  750. /* This is the most reliable way to avoid incompatibilities
  751.    in available built-in functions on various systems.  */
  752. static void
  753. __yy_memcpy (char *to, char *from, unsigned int count)
  754. {
  755.   register char *t = to;
  756.   register char *f = from;
  757.   register int i = count;
  759.   while (i-- > 0)
  760.     *t++ = *f++;
  761. }
  763. #endif
  764. #endif
  766. #line 217 "/usr/share/misc/bison.simple"
  768. /* The user can define YYPARSE_PARAM as the name of an argument to be passed
  769.    into yyparse.  The argument should have type void *.
  770.    It should actually point to an object.
  771.    Grammar actions can access the variable by casting it
  772.    to the proper pointer type.  */
  774. #ifdef YYPARSE_PARAM
  775. #ifdef __cplusplus
  776. #define YYPARSE_PARAM_ARG void *YYPARSE_PARAM
  777. #define YYPARSE_PARAM_DECL
  778. #else /* not __cplusplus */
  779. #define YYPARSE_PARAM_ARG YYPARSE_PARAM
  780. #define YYPARSE_PARAM_DECL void *YYPARSE_PARAM;
  781. #endif /* not __cplusplus */
  782. #else /* not YYPARSE_PARAM */
  783. #define YYPARSE_PARAM_ARG
  784. #define YYPARSE_PARAM_DECL
  785. #endif /* not YYPARSE_PARAM */
  787. /* Prevent warning if -Wstrict-prototypes.  */
  788. #ifdef __GNUC__
  789. #ifdef YYPARSE_PARAM
  790. int yyparse (void *);
  791. #else
  792. int yyparse (void);
  793. #endif
  794. #endif
  796. int
  797. yyparse(YYPARSE_PARAM_ARG)
  798.      YYPARSE_PARAM_DECL
  799. {
  800.   register int yystate;
  801.   register int yyn;
  802.   register short *yyssp;
  803.   register YYSTYPE *yyvsp;
  804.   int yyerrstatus; /*  number of tokens to shift before error messages enabled */
  805.   int yychar1 = 0; /*  lookahead token as an internal (translated) token number */
  807.   short yyssa[YYINITDEPTH]; /*  the state stack */
  808.   YYSTYPE yyvsa[YYINITDEPTH]; /*  the semantic value stack */
  810.   short *yyss = yyssa; /*  refer to the stacks thru separate pointers */
  811.   YYSTYPE *yyvs = yyvsa; /*  to allow yyoverflow to reallocate them elsewhere */
  813. #ifdef YYLSP_NEEDED
  814.   YYLTYPE yylsa[YYINITDEPTH]; /*  the location stack */
  815.   YYLTYPE *yyls = yylsa;
  816.   YYLTYPE *yylsp;
  818. #define YYPOPSTACK   (yyvsp--, yyssp--, yylsp--)
  819. #else
  820. #define YYPOPSTACK   (yyvsp--, yyssp--)
  821. #endif
  823.   int yystacksize = YYINITDEPTH;
  824.   int yyfree_stacks = 0;
  826. #ifdef YYPURE
  827.   int yychar;
  828.   YYSTYPE yylval;
  829.   int yynerrs;
  830. #ifdef YYLSP_NEEDED
  831.   YYLTYPE yylloc;
  832. #endif
  833. #endif
  835.   YYSTYPE yyval; /*  the variable used to return */
  836. /*  semantic values from the action */
  837. /*  routines */
  839.   int yylen;
  841. #if YYDEBUG != 0
  842.   if (yydebug)
  843.     fprintf(stderr, "Starting parsen");
  844. #endif
  846.   yystate = 0;
  847.   yyerrstatus = 0;
  848.   yynerrs = 0;
  849.   yychar = YYEMPTY; /* Cause a token to be read.  */
  851.   /* Initialize stack pointers.
  852.      Waste one element of value and location stack
  853.      so that they stay on the same level as the state stack.
  854.      The wasted elements are never initialized.  */
  856.   yyssp = yyss - 1;
  857.   yyvsp = yyvs;
  858. #ifdef YYLSP_NEEDED
  859.   yylsp = yyls;
  860. #endif
  862. /* Push a new state, which is found in  yystate  .  */
  863. /* In all cases, when you get here, the value and location stacks
  864.    have just been pushed. so pushing a state here evens the stacks.  */
  865. yynewstate:
  867.   *++yyssp = yystate;
  869.   if (yyssp >= yyss + yystacksize - 1)
  870.     {
  871.       /* Give user a chance to reallocate the stack */
  872.       /* Use copies of these so that the &'s don't force the real ones into memory. */
  873.       YYSTYPE *yyvs1 = yyvs;
  874.       short *yyss1 = yyss;
  875. #ifdef YYLSP_NEEDED
  876.       YYLTYPE *yyls1 = yyls;
  877. #endif
  879.       /* Get the current used size of the three stacks, in elements.  */
  880.       int size = yyssp - yyss + 1;
  882. #ifdef yyoverflow
  883.       /* Each stack pointer address is followed by the size of
  884.  the data in use in that stack, in bytes.  */
  885. #ifdef YYLSP_NEEDED
  886.       /* This used to be a conditional around just the two extra args,
  887.  but that might be undefined if yyoverflow is a macro.  */
  888.       yyoverflow("parser stack overflow",
  889.  &yyss1, size * sizeof (*yyssp),
  890.  &yyvs1, size * sizeof (*yyvsp),
  891.  &yyls1, size * sizeof (*yylsp),
  892.  &yystacksize);
  893. #else
  894.       yyoverflow("parser stack overflow",
  895.  &yyss1, size * sizeof (*yyssp),
  896.  &yyvs1, size * sizeof (*yyvsp),
  897.  &yystacksize);
  898. #endif
  900.       yyss = yyss1; yyvs = yyvs1;
  901. #ifdef YYLSP_NEEDED
  902.       yyls = yyls1;
  903. #endif
  904. #else /* no yyoverflow */
  905.       /* Extend the stack our own way.  */
  906.       if (yystacksize >= YYMAXDEPTH)
  907. {
  908.   yyerror("parser stack overflow");
  909.   if (yyfree_stacks)
  910.     {
  911.       free (yyss);
  912.       free (yyvs);
  913. #ifdef YYLSP_NEEDED
  914.       free (yyls);
  915. #endif
  916.     }
  917.   return 2;
  918. }
  919.       yystacksize *= 2;
  920.       if (yystacksize > YYMAXDEPTH)
  921. yystacksize = YYMAXDEPTH;
  922. #ifndef YYSTACK_USE_ALLOCA
  923.       yyfree_stacks = 1;
  924. #endif
  925.       yyss = (short *) YYSTACK_ALLOC (yystacksize * sizeof (*yyssp));
  926.       __yy_memcpy ((char *)yyss, (char *)yyss1,
  927.    size * (unsigned int) sizeof (*yyssp));
  928.       yyvs = (YYSTYPE *) YYSTACK_ALLOC (yystacksize * sizeof (*yyvsp));
  929.       __yy_memcpy ((char *)yyvs, (char *)yyvs1,
  930.    size * (unsigned int) sizeof (*yyvsp));
  931. #ifdef YYLSP_NEEDED
  932.       yyls = (YYLTYPE *) YYSTACK_ALLOC (yystacksize * sizeof (*yylsp));
  933.       __yy_memcpy ((char *)yyls, (char *)yyls1,
  934.    size * (unsigned int) sizeof (*yylsp));
  935. #endif
  936. #endif /* no yyoverflow */
  938.       yyssp = yyss + size - 1;
  939.       yyvsp = yyvs + size - 1;
  940. #ifdef YYLSP_NEEDED
  941.       yylsp = yyls + size - 1;
  942. #endif
  944. #if YYDEBUG != 0
  945.       if (yydebug)
  946. fprintf(stderr, "Stack size increased to %dn", yystacksize);
  947. #endif
  949.       if (yyssp >= yyss + yystacksize - 1)
  950. YYABORT;
  951.     }
  953. #if YYDEBUG != 0
  954.   if (yydebug)
  955.     fprintf(stderr, "Entering state %dn", yystate);
  956. #endif
  958.   goto yybackup;
  959.  yybackup:
  961. /* Do appropriate processing given the current state.  */
  962. /* Read a lookahead token if we need one and don't already have one.  */
  963. /* yyresume: */
  965.   /* First try to decide what to do without reference to lookahead token.  */
  967.   yyn = yypact[yystate];
  968.   if (yyn == YYFLAG)
  969.     goto yydefault;
  971.   /* Not known => get a lookahead token if don't already have one.  */
  973.   /* yychar is either YYEMPTY or YYEOF
  974.      or a valid token in external form.  */
  976.   if (yychar == YYEMPTY)
  977.     {
  978. #if YYDEBUG != 0
  979.       if (yydebug)
  980. fprintf(stderr, "Reading a token: ");
  981. #endif
  982.       yychar = YYLEX;
  983.     }
  985.   /* Convert token to internal form (in yychar1) for indexing tables with */
  987.   if (yychar <= 0) /* This means end of input. */
  988.     {
  989.       yychar1 = 0;
  990.       yychar = YYEOF; /* Don't call YYLEX any more */
  992. #if YYDEBUG != 0
  993.       if (yydebug)
  994. fprintf(stderr, "Now at end of input.n");
  995. #endif
  996.     }
  997.   else
  998.     {
  999.       yychar1 = YYTRANSLATE(yychar);
  1001. #if YYDEBUG != 0
  1002.       if (yydebug)
  1003. {
  1004.   fprintf (stderr, "Next token is %d (%s", yychar, yytname[yychar1]);
  1005.   /* Give the individual parser a way to print the precise meaning
  1006.      of a token, for further debugging info.  */
  1007. #ifdef YYPRINT
  1008.   YYPRINT (stderr, yychar, yylval);
  1009. #endif
  1010.   fprintf (stderr, ")n");
  1011. }
  1012. #endif
  1013.     }
  1015.   yyn += yychar1;
  1016.   if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != yychar1)
  1017.     goto yydefault;
  1019.   yyn = yytable[yyn];
  1021.   /* yyn is what to do for this token type in this state.
  1022.      Negative => reduce, -yyn is rule number.
  1023.      Positive => shift, yyn is new state.
  1024.        New state is final state => don't bother to shift,
  1025.        just return success.
  1026.      0, or most negative number => error.  */
  1028.   if (yyn < 0)
  1029.     {
  1030.       if (yyn == YYFLAG)
  1031. goto yyerrlab;
  1032.       yyn = -yyn;
  1033.       goto yyreduce;
  1034.     }
  1035.   else if (yyn == 0)
  1036.     goto yyerrlab;
  1038.   if (yyn == YYFINAL)
  1039.     YYACCEPT;
  1041.   /* Shift the lookahead token.  */
  1043. #if YYDEBUG != 0
  1044.   if (yydebug)
  1045.     fprintf(stderr, "Shifting token %d (%s), ", yychar, yytname[yychar1]);
  1046. #endif
  1048.   /* Discard the token being shifted unless it is eof.  */
  1049.   if (yychar != YYEOF)
  1050.     yychar = YYEMPTY;
  1052.   *++yyvsp = yylval;
  1053. #ifdef YYLSP_NEEDED
  1054.   *++yylsp = yylloc;
  1055. #endif
  1057.   /* count tokens shifted since error; after three, turn off error status.  */
  1058.   if (yyerrstatus) yyerrstatus--;
  1060.   yystate = yyn;
  1061.   goto yynewstate;
  1063. /* Do the default action for the current state.  */
  1064. yydefault:
  1066.   yyn = yydefact[yystate];
  1067.   if (yyn == 0)
  1068.     goto yyerrlab;
  1070. /* Do a reduction.  yyn is the number of a rule to reduce with.  */
  1071. yyreduce:
  1072.   yylen = yyr2[yyn];
  1073.   if (yylen > 0)
  1074.     yyval = yyvsp[1-yylen]; /* implement default value of the action */
  1076. #if YYDEBUG != 0
  1077.   if (yydebug)
  1078.     {
  1079.       int i;
  1081.       fprintf (stderr, "Reducing via rule %d (line %d), ",
  1082.        yyn, yyrline[yyn]);
  1084.       /* Print the symbols being reduced, and their result.  */
  1085.       for (i = yyprhs[yyn]; yyrhs[i] > 0; i++)
  1086. fprintf (stderr, "%s ", yytname[yyrhs[i]]);
  1087.       fprintf (stderr, " -> %sn", yytname[yyr1[yyn]]);
  1088.     }
  1089. #endif
  1092.   switch (yyn) {
  1094. case 3:
  1095. #line 125 "wmlscript/wsgram.y"
  1096. { ws_error_syntax(pctx, yylsp[0].first_line); ;
  1097.     break;}
  1098. case 7:
  1099. #line 138 "wmlscript/wsgram.y"
  1100. { ws_error_syntax(pctx, yylsp[1].first_line); ;
  1101.     break;}
  1102. case 11:
  1103. #line 149 "wmlscript/wsgram.y"
  1104. { ws_pragma_use(pctx, yylsp[-1].first_line, yyvsp[-1].identifier, yyvsp[0].string); ;
  1105.     break;}
  1106. case 13:
  1107. #line 158 "wmlscript/wsgram.y"
  1108. {
  1109.     WsCompiler *compiler = (WsCompiler *) pctx;
  1111.     /* Pass this to the byte-code */
  1112.     if (!ws_bc_add_pragma_access_domain(compiler->bc, yyvsp[0].string->data,
  1113.         yyvsp[0].string->len))
  1114.         ws_error_memory(pctx);
  1115.     ws_lexer_free_utf8(compiler, yyvsp[0].string);
  1116. ;
  1117.     break;}
  1118. case 14:
  1119. #line 168 "wmlscript/wsgram.y"
  1120. {
  1121.     WsCompiler *compiler = (WsCompiler *) pctx;
  1123.     /* Pass this to the byte-code */
  1124.     if (!ws_bc_add_pragma_access_path(compiler->bc, yyvsp[0].string->data,
  1125.       yyvsp[0].string->len))
  1126.         ws_error_memory(pctx);
  1128.     ws_lexer_free_utf8(compiler, yyvsp[0].string);
  1129. ;
  1130.     break;}
  1131. case 15:
  1132. #line 179 "wmlscript/wsgram.y"
  1133. {
  1134.     WsCompiler *compiler = (WsCompiler *) pctx;
  1135.     WsBool success = WS_TRUE;
  1137.     /* Pass these to the byte-code */
  1138.     if (!ws_bc_add_pragma_access_domain(compiler->bc, yyvsp[-2].string->data,
  1139.         yyvsp[-2].string->len))
  1140.         success = WS_FALSE;
  1142.     if (!ws_bc_add_pragma_access_path(compiler->bc, yyvsp[0].string->data,
  1143.       yyvsp[0].string->len))
  1144.         success = WS_FALSE;
  1146.     if (!success)
  1147.         ws_error_memory(pctx);
  1149.     ws_lexer_free_utf8(compiler, yyvsp[-2].string);
  1150.     ws_lexer_free_utf8(compiler, yyvsp[0].string);
  1151. ;
  1152.     break;}
  1153. case 20:
  1154. #line 212 "wmlscript/wsgram.y"
  1155. {
  1156.     WsCompiler *compiler = (WsCompiler *) pctx;
  1158.     /* Meta information for the origin servers.  Show it
  1159.                      * to the user if requested. */
  1160.     if (compiler->params.meta_name_cb)
  1161.         (*compiler->params.meta_name_cb)(
  1162. yyvsp[0].meta_body->property_name, yyvsp[0].meta_body->content,
  1163. yyvsp[0].meta_body->scheme,
  1164. compiler->params.meta_name_cb_context);
  1166.     /* We do not need the MetaBody anymore. */
  1167.     ws_pragma_meta_body_free(compiler, yyvsp[0].meta_body);
  1168. ;
  1169.     break;}
  1170. case 21:
  1171. #line 230 "wmlscript/wsgram.y"
  1172. {
  1173.     WsCompiler *compiler = (WsCompiler *) pctx;
  1175.     /* Meta information HTTP header that should be
  1176.                      * included to an HTTP response header.  Show it to
  1177.                      * the user if requested. */
  1178.     if (compiler->params.meta_http_equiv_cb)
  1179.         (*compiler->params.meta_http_equiv_cb)(
  1180. yyvsp[0].meta_body->property_name,
  1181. yyvsp[0].meta_body->content,
  1182. yyvsp[0].meta_body->scheme,
  1183. compiler->params.meta_http_equiv_cb_context);
  1185.     /* We do not need the MetaBody anymore. */
  1186.     ws_pragma_meta_body_free(compiler, yyvsp[0].meta_body);
  1187. ;
  1188.     break;}
  1189. case 22:
  1190. #line 250 "wmlscript/wsgram.y"
  1191. {
  1192.     WsBool success;
  1193.     WsCompiler *compiler = (WsCompiler *) pctx;
  1195.     /* Pass this pragma to the byte-code */
  1196.     if (yyvsp[0].meta_body) {
  1197.         if (yyvsp[0].meta_body->scheme)
  1198.        success
  1199.   = ws_bc_add_pragma_user_agent_property_and_scheme(
  1200. compiler->bc,
  1201. yyvsp[0].meta_body->property_name->data,
  1202. yyvsp[0].meta_body->property_name->len,
  1203. yyvsp[0].meta_body->content->data,
  1204. yyvsp[0].meta_body->content->len,
  1205. yyvsp[0].meta_body->scheme->data,
  1206. yyvsp[0].meta_body->scheme->len);
  1207.         else
  1208.        success = ws_bc_add_pragma_user_agent_property(
  1209. compiler->bc,
  1210. yyvsp[0].meta_body->property_name->data,
  1211. yyvsp[0].meta_body->property_name->len,
  1212. yyvsp[0].meta_body->content->data,
  1213. yyvsp[0].meta_body->content->len);
  1215.         /* Free the MetaBody. */
  1216.         ws_pragma_meta_body_free(compiler, yyvsp[0].meta_body);
  1218.         if (!success)
  1219.        ws_error_memory(pctx);
  1220.     }
  1221. ;
  1222.     break;}
  1223. case 23:
  1224. #line 285 "wmlscript/wsgram.y"
  1225. { yyval.meta_body = ws_pragma_meta_body(pctx, yyvsp[-1].string, yyvsp[0].string, NULL); ;
  1226.     break;}
  1227. case 24:
  1228. #line 287 "wmlscript/wsgram.y"
  1229. { yyval.meta_body = ws_pragma_meta_body(pctx, yyvsp[-2].string, yyvsp[-1].string, yyvsp[0].string); ;
  1230.     break;}
  1231. case 30:
  1232. #line 304 "wmlscript/wsgram.y"
  1233. {
  1234.     char *name = ws_strdup(yyvsp[-5].identifier);
  1236.     ws_lexer_free_block(pctx, yyvsp[-5].identifier);
  1238.     if (name)
  1239.         ws_function(pctx, yyvsp[-7].boolean, name, yylsp[-5].first_line, yyvsp[-3].list, yyvsp[-1].list);
  1240.     else
  1241.         ws_error_memory(pctx);
  1242. ;
  1243.     break;}
  1244. case 31:
  1245. #line 317 "wmlscript/wsgram.y"
  1246. { yyval.boolean = WS_FALSE; ;
  1247.     break;}
  1248. case 32:
  1249. #line 318 "wmlscript/wsgram.y"
  1250. { yyval.boolean = WS_TRUE;  ;
  1251.     break;}
  1252. case 33:
  1253. #line 323 "wmlscript/wsgram.y"
  1254. { yyval.list = ws_list_new(pctx); ;
  1255.     break;}
  1256. case 37:
  1257. #line 334 "wmlscript/wsgram.y"
  1258. {
  1259.                     char *id;
  1260.                     WsFormalParm *parm;
  1262.     id = ws_f_strdup(((WsCompiler *) pctx)->pool_stree, yyvsp[0].identifier);
  1263.                     parm = ws_formal_parameter(pctx, yylsp[0].first_line, id);
  1265.     ws_lexer_free_block(pctx, yyvsp[0].identifier);
  1267.     if (id == NULL || parm == NULL) {
  1268.         ws_error_memory(pctx);
  1269.         yyval.list = NULL;
  1270.     } else {
  1271.         yyval.list = ws_list_new(pctx);
  1272.         ws_list_append(pctx, yyval.list, parm);
  1273.     }
  1274. ;
  1275.     break;}
  1276. case 38:
  1277. #line 352 "wmlscript/wsgram.y"
  1278. {
  1279.                     char *id;
  1280.                     WsFormalParm *parm;
  1282.     id = ws_f_strdup(((WsCompiler *) pctx)->pool_stree, yyvsp[0].identifier);
  1283.                     parm = ws_formal_parameter(pctx, yylsp[-2].first_line, id);
  1285.     ws_lexer_free_block(pctx, yyvsp[0].identifier);
  1287.     if (id == NULL || parm == NULL) {
  1288.         ws_error_memory(pctx);
  1289.         yyval.list = NULL;
  1290.     } else
  1291.         ws_list_append(pctx, yyvsp[-2].list, parm);
  1292. ;
  1293.     break;}
  1294. case 39:
  1295. #line 373 "wmlscript/wsgram.y"
  1296. {
  1297.     if (yyvsp[0].list)
  1298.         yyval.stmt = ws_stmt_block(pctx, yyvsp[0].list->first_line, yyvsp[0].list->last_line,
  1299.            yyvsp[0].list);
  1300.     else
  1301.         yyval.stmt = NULL;
  1302. ;
  1303.     break;}
  1304. case 41:
  1305. #line 382 "wmlscript/wsgram.y"
  1306. { yyval.stmt = ws_stmt_empty(pctx, yylsp[0].first_line); ;
  1307.     break;}
  1308. case 42:
  1309. #line 384 "wmlscript/wsgram.y"
  1310. { yyval.stmt = ws_stmt_expr(pctx, yyvsp[-1].expr->line, yyvsp[-1].expr); ;
  1311.     break;}
  1312. case 45:
  1313. #line 388 "wmlscript/wsgram.y"
  1314. { yyval.stmt = ws_stmt_continue(pctx, yylsp[-1].first_line); ;
  1315.     break;}
  1316. case 46:
  1317. #line 390 "wmlscript/wsgram.y"
  1318. { yyval.stmt = ws_stmt_break(pctx, yylsp[-1].first_line); ;
  1319.     break;}
  1320. case 48:
  1321. #line 395 "wmlscript/wsgram.y"
  1322. {
  1323.     yyval.list = yyvsp[-1].list;
  1324.     if (yyval.list) {
  1325.         yyval.list->first_line = yylsp[-2].first_line;
  1326.         yyval.list->last_line = yylsp[0].first_line;
  1327.     }
  1328. ;
  1329.     break;}
  1330. case 49:
  1331. #line 403 "wmlscript/wsgram.y"
  1332. {
  1333.     ws_error_syntax(pctx, yylsp[1].first_line);
  1334.     yyval.list = NULL;
  1335. ;
  1336.     break;}
  1337. case 50:
  1338. #line 411 "wmlscript/wsgram.y"
  1339. { yyval.list = ws_list_new(pctx); ;
  1340.     break;}
  1341. case 52:
  1342. #line 417 "wmlscript/wsgram.y"
  1343. {
  1344.     yyval.list = ws_list_new(pctx);
  1345.     ws_list_append(pctx, yyval.list, yyvsp[0].stmt);
  1346. ;
  1347.     break;}
  1348. case 53:
  1349. #line 422 "wmlscript/wsgram.y"
  1350. { ws_list_append(pctx, yyvsp[-1].list, yyvsp[0].stmt); ;
  1351.     break;}
  1352. case 54:
  1353. #line 427 "wmlscript/wsgram.y"
  1354. { yyval.stmt = ws_stmt_variable(pctx, yylsp[-2].first_line, yyvsp[-1].list); ;
  1355.     break;}
  1356. case 55:
  1357. #line 429 "wmlscript/wsgram.y"
  1358. { ws_error_syntax(pctx, yylsp[0].first_line); ;
  1359.     break;}
  1360. case 56:
  1361. #line 434 "wmlscript/wsgram.y"
  1362. {
  1363.     yyval.list = ws_list_new(pctx);
  1364.     ws_list_append(pctx, yyval.list, yyvsp[0].vardec);
  1365. ;
  1366.     break;}
  1367. case 57:
  1368. #line 439 "wmlscript/wsgram.y"
  1369. { ws_list_append(pctx, yyvsp[-2].list, yyvsp[0].vardec); ;
  1370.     break;}
  1371. case 58:
  1372. #line 444 "wmlscript/wsgram.y"
  1373. {
  1374.     char *id = ws_f_strdup(((WsCompiler *) pctx)->pool_stree,
  1375.    yyvsp[-1].identifier);
  1377.     ws_lexer_free_block(pctx, yyvsp[-1].identifier);
  1378.     if (id == NULL) {
  1379.         ws_error_memory(pctx);
  1380.         yyval.vardec = NULL;
  1381.     } else
  1382.         yyval.vardec = ws_variable_declaration(pctx, id, yyvsp[0].expr);
  1383. ;
  1384.     break;}
  1385. case 59:
  1386. #line 459 "wmlscript/wsgram.y"
  1387. { yyval.expr = NULL; ;
  1388.     break;}
  1389. case 60:
  1390. #line 461 "wmlscript/wsgram.y"
  1391. { yyval.expr = yyvsp[0].expr; ;
  1392.     break;}
  1393. case 61:
  1394. #line 466 "wmlscript/wsgram.y"
  1395. { yyval.stmt = ws_stmt_if(pctx, yylsp[-6].first_line, yyvsp[-4].expr, yyvsp[-2].stmt, yyvsp[0].stmt); ;
  1396.     break;}
  1397. case 62:
  1398. #line 468 "wmlscript/wsgram.y"
  1399. { yyval.stmt = ws_stmt_if(pctx, yylsp[-4].first_line, yyvsp[-2].expr, yyvsp[0].stmt, NULL); ;
  1400.     break;}
  1401. case 63:
  1402. #line 473 "wmlscript/wsgram.y"
  1403. { yyval.stmt = ws_stmt_while(pctx, yylsp[-4].first_line, yyvsp[-2].expr, yyvsp[0].stmt); ;
  1404.     break;}
  1405. case 65:
  1406. #line 480 "wmlscript/wsgram.y"
  1407. { yyval.stmt = ws_stmt_for(pctx, yylsp[-8].first_line, NULL, yyvsp[-6].expr, yyvsp[-4].expr, yyvsp[-2].expr, yyvsp[0].stmt); ;
  1408.     break;}
  1409. case 66:
  1410. #line 483 "wmlscript/wsgram.y"
  1411. { yyval.stmt = ws_stmt_for(pctx, yylsp[-9].first_line, yyvsp[-6].list, NULL, yyvsp[-4].expr, yyvsp[-2].expr, yyvsp[0].stmt); ;
  1412.     break;}
  1413. case 67:
  1414. #line 488 "wmlscript/wsgram.y"
  1415. { yyval.stmt = ws_stmt_return(pctx, yylsp[-2].first_line, yyvsp[-1].expr); ;
  1416.     break;}
  1417. case 68:
  1418. #line 494 "wmlscript/wsgram.y"
  1419. { yyval.expr = NULL; ;
  1420.     break;}
  1421. case 71:
  1422. #line 502 "wmlscript/wsgram.y"
  1423. { yyval.expr = ws_expr_comma(pctx, yylsp[-1].first_line, yyvsp[-2].expr, yyvsp[0].expr); ;
  1424.     break;}
  1425. case 73:
  1426. #line 508 "wmlscript/wsgram.y"
  1427. { yyval.expr = ws_expr_assign(pctx, yylsp[-2].first_line, yyvsp[-2].identifier, '=', yyvsp[0].expr); ;
  1428.     break;}
  1429. case 74:
  1430. #line 510 "wmlscript/wsgram.y"
  1431. { yyval.expr = ws_expr_assign(pctx, yylsp[-2].first_line, yyvsp[-2].identifier, tMULA, yyvsp[0].expr); ;
  1432.     break;}
  1433. case 75:
  1434. #line 512 "wmlscript/wsgram.y"
  1435. { yyval.expr = ws_expr_assign(pctx, yylsp[-2].first_line, yyvsp[-2].identifier, tDIVA, yyvsp[0].expr); ;
  1436.     break;}
  1437. case 76:
  1438. #line 514 "wmlscript/wsgram.y"
  1439. { yyval.expr = ws_expr_assign(pctx, yylsp[-2].first_line, yyvsp[-2].identifier, tREMA, yyvsp[0].expr); ;
  1440.     break;}
  1441. case 77:
  1442. #line 516 "wmlscript/wsgram.y"
  1443. { yyval.expr = ws_expr_assign(pctx, yylsp[-2].first_line, yyvsp[-2].identifier, tADDA, yyvsp[0].expr); ;
  1444.     break;}
  1445. case 78:
  1446. #line 518 "wmlscript/wsgram.y"
  1447. { yyval.expr = ws_expr_assign(pctx, yylsp[-2].first_line, yyvsp[-2].identifier, tSUBA, yyvsp[0].expr); ;
  1448.     break;}
  1449. case 79:
  1450. #line 520 "wmlscript/wsgram.y"
  1451. { yyval.expr = ws_expr_assign(pctx, yylsp[-2].first_line, yyvsp[-2].identifier, tLSHIFTA, yyvsp[0].expr); ;
  1452.     break;}
  1453. case 80:
  1454. #line 522 "wmlscript/wsgram.y"
  1455. { yyval.expr = ws_expr_assign(pctx, yylsp[-2].first_line, yyvsp[-2].identifier, tRSSHIFTA, yyvsp[0].expr); ;
  1456.     break;}
  1457. case 81:
  1458. #line 524 "wmlscript/wsgram.y"
  1459. { yyval.expr = ws_expr_assign(pctx, yylsp[-2].first_line, yyvsp[-2].identifier, tRSZSHIFTA, yyvsp[0].expr); ;
  1460.     break;}
  1461. case 82:
  1462. #line 526 "wmlscript/wsgram.y"
  1463. { yyval.expr = ws_expr_assign(pctx, yylsp[-2].first_line, yyvsp[-2].identifier, tANDA, yyvsp[0].expr); ;
  1464.     break;}
  1465. case 83:
  1466. #line 528 "wmlscript/wsgram.y"
  1467. { yyval.expr = ws_expr_assign(pctx, yylsp[-2].first_line, yyvsp[-2].identifier, tXORA, yyvsp[0].expr); ;
  1468.     break;}
  1469. case 84:
  1470. #line 530 "wmlscript/wsgram.y"
  1471. { yyval.expr = ws_expr_assign(pctx, yylsp[-2].first_line, yyvsp[-2].identifier, tORA, yyvsp[0].expr); ;
  1472.     break;}
  1473. case 85:
  1474. #line 532 "wmlscript/wsgram.y"
  1475. { yyval.expr = ws_expr_assign(pctx, yylsp[-2].first_line, yyvsp[-2].identifier, tIDIVA, yyvsp[0].expr); ;
  1476.     break;}
  1477. case 87:
  1478. #line 538 "wmlscript/wsgram.y"
  1479. { yyval.expr = ws_expr_conditional(pctx, yylsp[-3].first_line, yyvsp[-4].expr, yyvsp[-2].expr, yyvsp[0].expr); ;
  1480.     break;}
  1481. case 89:
  1482. #line 544 "wmlscript/wsgram.y"
  1483. { yyval.expr = ws_expr_logical(pctx, yylsp[-1].first_line, WS_ASM_SCOR, yyvsp[-2].expr, yyvsp[0].expr); ;
  1484.     break;}
  1485. case 91:
  1486. #line 550 "wmlscript/wsgram.y"
  1487. { yyval.expr = ws_expr_logical(pctx, yylsp[-1].first_line, WS_ASM_SCAND, yyvsp[-2].expr, yyvsp[0].expr); ;
  1488.     break;}
  1489. case 93:
  1490. #line 556 "wmlscript/wsgram.y"
  1491. { yyval.expr = ws_expr_binary(pctx, yylsp[-1].first_line, WS_ASM_B_OR, yyvsp[-2].expr, yyvsp[0].expr); ;
  1492.     break;}
  1493. case 95:
  1494. #line 562 "wmlscript/wsgram.y"
  1495. { yyval.expr = ws_expr_binary(pctx, yylsp[-1].first_line, WS_ASM_B_XOR, yyvsp[-2].expr, yyvsp[0].expr); ;
  1496.     break;}
  1497. case 97:
  1498. #line 568 "wmlscript/wsgram.y"
  1499. { yyval.expr = ws_expr_binary(pctx, yylsp[-1].first_line, WS_ASM_B_AND, yyvsp[-2].expr, yyvsp[0].expr); ;
  1500.     break;}
  1501. case 99:
  1502. #line 574 "wmlscript/wsgram.y"
  1503. { yyval.expr = ws_expr_binary(pctx, yylsp[-1].first_line, WS_ASM_EQ, yyvsp[-2].expr, yyvsp[0].expr); ;
  1504.     break;}
  1505. case 100:
  1506. #line 576 "wmlscript/wsgram.y"
  1507. { yyval.expr = ws_expr_binary(pctx, yylsp[-1].first_line, WS_ASM_NE, yyvsp[-2].expr, yyvsp[0].expr); ;
  1508.     break;}
  1509. case 102:
  1510. #line 582 "wmlscript/wsgram.y"
  1511. { yyval.expr = ws_expr_binary(pctx, yylsp[-1].first_line, WS_ASM_LT, yyvsp[-2].expr, yyvsp[0].expr); ;
  1512.     break;}
  1513. case 103:
  1514. #line 584 "wmlscript/wsgram.y"
  1515. { yyval.expr = ws_expr_binary(pctx, yylsp[-1].first_line, WS_ASM_GT, yyvsp[-2].expr, yyvsp[0].expr); ;
  1516.     break;}
  1517. case 104:
  1518. #line 586 "wmlscript/wsgram.y"
  1519. { yyval.expr = ws_expr_binary(pctx, yylsp[-1].first_line, WS_ASM_LE, yyvsp[-2].expr, yyvsp[0].expr); ;
  1520.     break;}
  1521. case 105:
  1522. #line 588 "wmlscript/wsgram.y"
  1523. { yyval.expr = ws_expr_binary(pctx, yylsp[-1].first_line, WS_ASM_GE, yyvsp[-2].expr, yyvsp[0].expr); ;
  1524.     break;}
  1525. case 107:
  1526. #line 594 "wmlscript/wsgram.y"
  1527. { yyval.expr = ws_expr_binary(pctx, yylsp[-1].first_line, WS_ASM_B_LSHIFT, yyvsp[-2].expr, yyvsp[0].expr); ;
  1528.     break;}
  1529. case 108:
  1530. #line 596 "wmlscript/wsgram.y"
  1531. { yyval.expr = ws_expr_binary(pctx, yylsp[-1].first_line, WS_ASM_B_RSSHIFT, yyvsp[-2].expr, yyvsp[0].expr); ;
  1532.     break;}
  1533. case 109:
  1534. #line 598 "wmlscript/wsgram.y"
  1535. { yyval.expr = ws_expr_binary(pctx, yylsp[-1].first_line, WS_ASM_B_RSZSHIFT, yyvsp[-2].expr, yyvsp[0].expr); ;
  1536.     break;}
  1537. case 111:
  1538. #line 604 "wmlscript/wsgram.y"
  1539. { yyval.expr = ws_expr_binary(pctx, yylsp[-1].first_line, WS_ASM_ADD, yyvsp[-2].expr, yyvsp[0].expr); ;
  1540.     break;}
  1541. case 112:
  1542. #line 606 "wmlscript/wsgram.y"
  1543. { yyval.expr = ws_expr_binary(pctx, yylsp[-1].first_line, WS_ASM_SUB, yyvsp[-2].expr, yyvsp[0].expr); ;
  1544.     break;}
  1545. case 114:
  1546. #line 612 "wmlscript/wsgram.y"
  1547. { yyval.expr = ws_expr_binary(pctx, yylsp[-1].first_line, WS_ASM_MUL, yyvsp[-2].expr, yyvsp[0].expr); ;
  1548.     break;}
  1549. case 115:
  1550. #line 614 "wmlscript/wsgram.y"
  1551. { yyval.expr = ws_expr_binary(pctx, yylsp[-1].first_line, WS_ASM_DIV, yyvsp[-2].expr, yyvsp[0].expr); ;
  1552.     break;}
  1553. case 116:
  1554. #line 616 "wmlscript/wsgram.y"
  1555. { yyval.expr = ws_expr_binary(pctx, yylsp[-1].first_line, WS_ASM_IDIV, yyvsp[-2].expr, yyvsp[0].expr); ;
  1556.     break;}
  1557. case 117:
  1558. #line 618 "wmlscript/wsgram.y"
  1559. { yyval.expr = ws_expr_binary(pctx, yylsp[-1].first_line, WS_ASM_REM, yyvsp[-2].expr, yyvsp[0].expr); ;
  1560.     break;}
  1561. case 119:
  1562. #line 624 "wmlscript/wsgram.y"
  1563. { yyval.expr = ws_expr_unary(pctx, yylsp[-1].first_line, WS_ASM_TYPEOF, yyvsp[0].expr); ;
  1564.     break;}
  1565. case 120:
  1566. #line 626 "wmlscript/wsgram.y"
  1567. { yyval.expr = ws_expr_unary(pctx, yylsp[-1].first_line, WS_ASM_ISVALID, yyvsp[0].expr); ;
  1568.     break;}
  1569. case 121:
  1570. #line 628 "wmlscript/wsgram.y"
  1571. { yyval.expr = ws_expr_unary_var(pctx, yylsp[-1].first_line, WS_TRUE, yyvsp[0].identifier); ;
  1572.     break;}
  1573. case 122:
  1574. #line 630 "wmlscript/wsgram.y"
  1575. { yyval.expr = ws_expr_unary_var(pctx, yylsp[-1].first_line, WS_FALSE, yyvsp[0].identifier); ;
  1576.     break;}
  1577. case 123:
  1578. #line 632 "wmlscript/wsgram.y"
  1579. {
  1580.                     /* There is no direct way to compile unary `+'.
  1581.                      * It doesn't do anything except require type conversion
  1582.      * (section 7.2, 7.3.2), and we do that by converting
  1583.      * it to a binary expression: `UnaryExpression - 0'.
  1584.                      * Using `--UnaryExpression' would not be correct because
  1585.                      * it might overflow if UnaryExpression is the smallest
  1586.                      * possible integer value (see 6.2.7.1).
  1587.                      * Using `UnaryExpression + 0' would not be correct
  1588.                      * because binary `+' accepts strings, which makes the
  1589.      * type conversion different.
  1590.                      */
  1591.                     yyval.expr = ws_expr_binary(pctx, yylsp[-1].first_line, WS_ASM_SUB, yyvsp[0].expr,
  1592.                               ws_expr_const_integer(pctx, yylsp[-1].first_line, 0));
  1593. ;
  1594.     break;}
  1595. case 124:
  1596. #line 648 "wmlscript/wsgram.y"
  1597. { yyval.expr = ws_expr_unary(pctx, yylsp[-1].first_line, WS_ASM_UMINUS, yyvsp[0].expr); ;
  1598.     break;}
  1599. case 125:
  1600. #line 650 "wmlscript/wsgram.y"
  1601. { yyval.expr = ws_expr_unary(pctx, yylsp[-1].first_line, WS_ASM_B_NOT, yyvsp[0].expr); ;
  1602.     break;}
  1603. case 126:
  1604. #line 652 "wmlscript/wsgram.y"
  1605. { yyval.expr = ws_expr_unary(pctx, yylsp[-1].first_line, WS_ASM_NOT, yyvsp[0].expr); ;
  1606.     break;}
  1607. case 128:
  1608. #line 658 "wmlscript/wsgram.y"
  1609. { yyval.expr = ws_expr_postfix_var(pctx, yylsp[-1].first_line, WS_TRUE, yyvsp[-1].identifier); ;
  1610.     break;}
  1611. case 129:
  1612. #line 660 "wmlscript/wsgram.y"
  1613. { yyval.expr = ws_expr_postfix_var(pctx, yylsp[-1].first_line, WS_FALSE, yyvsp[-1].identifier); ;
  1614.     break;}
  1615. case 131:
  1616. #line 666 "wmlscript/wsgram.y"
  1617. {
  1618.     WsFunctionHash *f = ws_function_hash(pctx, yyvsp[-1].identifier);
  1620.     /* Add an usage count for the local script function. */
  1621.     if (f)
  1622.       f->usage_count++;
  1624.     yyval.expr = ws_expr_call(pctx, yylsp[-1].first_line, ' ', NULL, yyvsp[-1].identifier, yyvsp[0].list);
  1625. ;
  1626.     break;}
  1627. case 132:
  1628. #line 676 "wmlscript/wsgram.y"
  1629. { yyval.expr = ws_expr_call(pctx, yylsp[-1].first_line, '#', yyvsp[-3].identifier, yyvsp[-1].identifier, yyvsp[0].list); ;
  1630.     break;}
  1631. case 133:
  1632. #line 678 "wmlscript/wsgram.y"
  1633. { yyval.expr = ws_expr_call(pctx, yylsp[-1].first_line, '.', yyvsp[-3].identifier, yyvsp[-1].identifier, yyvsp[0].list); ;
  1634.     break;}
  1635. case 134:
  1636. #line 683 "wmlscript/wsgram.y"
  1637. { yyval.expr = ws_expr_symbol(pctx, yylsp[0].first_line, yyvsp[0].identifier); ;
  1638.     break;}
  1639. case 135:
  1640. #line 685 "wmlscript/wsgram.y"
  1641. { yyval.expr = ws_expr_const_invalid(pctx, yylsp[0].first_line); ;
  1642.     break;}
  1643. case 136:
  1644. #line 687 "wmlscript/wsgram.y"
  1645. { yyval.expr = ws_expr_const_true(pctx, yylsp[0].first_line); ;
  1646.     break;}
  1647. case 137:
  1648. #line 689 "wmlscript/wsgram.y"
  1649. { yyval.expr = ws_expr_const_false(pctx, yylsp[0].first_line); ;
  1650.     break;}
  1651. case 138:
  1652. #line 691 "wmlscript/wsgram.y"
  1653. { yyval.expr = ws_expr_const_integer(pctx, yylsp[0].first_line, yyvsp[0].integer); ;
  1654.     break;}
  1655. case 139:
  1656. #line 693 "wmlscript/wsgram.y"
  1657. { yyval.expr = ws_expr_const_float(pctx, yylsp[0].first_line, yyvsp[0].vfloat); ;
  1658.     break;}
  1659. case 140:
  1660. #line 695 "wmlscript/wsgram.y"
  1661. { yyval.expr = ws_expr_const_string(pctx, yylsp[0].first_line, yyvsp[0].string); ;
  1662.     break;}
  1663. case 141:
  1664. #line 697 "wmlscript/wsgram.y"
  1665. { yyval.expr = yyvsp[-1].expr; ;
  1666.     break;}
  1667. case 142:
  1668. #line 702 "wmlscript/wsgram.y"
  1669. { yyval.list = ws_list_new(pctx); ;
  1670.     break;}
  1671. case 143:
  1672. #line 704 "wmlscript/wsgram.y"
  1673. { yyval.list = yyvsp[-1].list; ;
  1674.     break;}
  1675. case 144:
  1676. #line 709 "wmlscript/wsgram.y"
  1677. {
  1678.     yyval.list = ws_list_new(pctx);
  1679.     ws_list_append(pctx, yyval.list, yyvsp[0].expr);
  1680. ;
  1681.     break;}
  1682. case 145:
  1683. #line 714 "wmlscript/wsgram.y"
  1684. { ws_list_append(pctx, yyvsp[-2].list, yyvsp[0].expr); ;
  1685.     break;}
  1686. }
  1687.    /* the action file gets copied in in place of this dollarsign */
  1688. #line 543 "/usr/share/misc/bison.simple"
  1690.   yyvsp -= yylen;
  1691.   yyssp -= yylen;
  1692. #ifdef YYLSP_NEEDED
  1693.   yylsp -= yylen;
  1694. #endif
  1696. #if YYDEBUG != 0
  1697.   if (yydebug)
  1698.     {
  1699.       short *ssp1 = yyss - 1;
  1700.       fprintf (stderr, "state stack now");
  1701.       while (ssp1 != yyssp)
  1702. fprintf (stderr, " %d", *++ssp1);
  1703.       fprintf (stderr, "n");
  1704.     }
  1705. #endif
  1707.   *++yyvsp = yyval;
  1709. #ifdef YYLSP_NEEDED
  1710.   yylsp++;
  1711.   if (yylen == 0)
  1712.     {
  1713.       yylsp->first_line = yylloc.first_line;
  1714.       yylsp->first_column = yylloc.first_column;
  1715.       yylsp->last_line = (yylsp-1)->last_line;
  1716.       yylsp->last_column = (yylsp-1)->last_column;
  1717.       yylsp->text = 0;
  1718.     }
  1719.   else
  1720.     {
  1721.       yylsp->last_line = (yylsp+yylen-1)->last_line;
  1722.       yylsp->last_column = (yylsp+yylen-1)->last_column;
  1723.     }
  1724. #endif
  1726.   /* Now "shift" the result of the reduction.
  1727.      Determine what state that goes to,
  1728.      based on the state we popped back to
  1729.      and the rule number reduced by.  */
  1731.   yyn = yyr1[yyn];
  1733.   yystate = yypgoto[yyn - YYNTBASE] + *yyssp;
  1734.   if (yystate >= 0 && yystate <= YYLAST && yycheck[yystate] == *yyssp)
  1735.     yystate = yytable[yystate];
  1736.   else
  1737.     yystate = yydefgoto[yyn - YYNTBASE];
  1739.   goto yynewstate;
  1741. yyerrlab:   /* here on detecting error */
  1743.   if (! yyerrstatus)
  1744.     /* If not already recovering from an error, report this error.  */
  1745.     {
  1746.       ++yynerrs;
  1748. #ifdef YYERROR_VERBOSE
  1749.       yyn = yypact[yystate];
  1751.       if (yyn > YYFLAG && yyn < YYLAST)
  1752. {
  1753.   int size = 0;
  1754.   char *msg;
  1755.   int x, count;
  1757.   count = 0;
  1758.   /* Start X at -yyn if nec to avoid negative indexes in yycheck.  */
  1759.   for (x = (yyn < 0 ? -yyn : 0);
  1760.        x < (sizeof(yytname) / sizeof(char *)); x++)
  1761.     if (yycheck[x + yyn] == x)
  1762.       size += strlen(yytname[x]) + 15, count++;
  1763.   msg = (char *) malloc(size + 15);
  1764.   if (msg != 0)
  1765.     {
  1766.       strcpy(msg, "parse error");
  1768.       if (count < 5)
  1769. {
  1770.   count = 0;
  1771.   for (x = (yyn < 0 ? -yyn : 0);
  1772.        x < (sizeof(yytname) / sizeof(char *)); x++)
  1773.     if (yycheck[x + yyn] == x)
  1774.       {
  1775. strcat(msg, count == 0 ? ", expecting `" : " or `");
  1776. strcat(msg, yytname[x]);
  1777. strcat(msg, "'");
  1778. count++;
  1779.       }
  1780. }
  1781.       yyerror(msg);
  1782.       free(msg);
  1783.     }
  1784.   else
  1785.     yyerror ("parse error; also virtual memory exceeded");
  1786. }
  1787.       else
  1788. #endif /* YYERROR_VERBOSE */
  1789. yyerror("parse error");
  1790.     }
  1792.   goto yyerrlab1;
  1793. yyerrlab1:   /* here on error raised explicitly by an action */
  1795.   if (yyerrstatus == 3)
  1796.     {
  1797.       /* if just tried and failed to reuse lookahead token after an error, discard it.  */
  1799.       /* return failure if at end of input */
  1800.       if (yychar == YYEOF)
  1801. YYABORT;
  1803. #if YYDEBUG != 0
  1804.       if (yydebug)
  1805. fprintf(stderr, "Discarding token %d (%s).n", yychar, yytname[yychar1]);
  1806. #endif
  1808.       yychar = YYEMPTY;
  1809.     }
  1811.   /* Else will try to reuse lookahead token
  1812.      after shifting the error token.  */
  1814.   yyerrstatus = 3; /* Each real token shifted decrements this */
  1816.   goto yyerrhandle;
  1818. yyerrdefault:  /* current state does not do anything special for the error token. */
  1820. #if 0
  1821.   /* This is wrong; only states that explicitly want error tokens
  1822.      should shift them.  */
  1823.   yyn = yydefact[yystate];  /* If its default is to accept any token, ok.  Otherwise pop it.*/
  1824.   if (yyn) goto yydefault;
  1825. #endif
  1827. yyerrpop:   /* pop the current state because it cannot handle the error token */
  1829.   if (yyssp == yyss) YYABORT;
  1830.   yyvsp--;
  1831.   yystate = *--yyssp;
  1832. #ifdef YYLSP_NEEDED
  1833.   yylsp--;
  1834. #endif
  1836. #if YYDEBUG != 0
  1837.   if (yydebug)
  1838.     {
  1839.       short *ssp1 = yyss - 1;
  1840.       fprintf (stderr, "Error: state stack now");
  1841.       while (ssp1 != yyssp)
  1842. fprintf (stderr, " %d", *++ssp1);
  1843.       fprintf (stderr, "n");
  1844.     }
  1845. #endif
  1847. yyerrhandle:
  1849.   yyn = yypact[yystate];
  1850.   if (yyn == YYFLAG)
  1851.     goto yyerrdefault;
  1853.   yyn += YYTERROR;
  1854.   if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != YYTERROR)
  1855.     goto yyerrdefault;
  1857.   yyn = yytable[yyn];
  1858.   if (yyn < 0)
  1859.     {
  1860.       if (yyn == YYFLAG)
  1861. goto yyerrpop;
  1862.       yyn = -yyn;
  1863.       goto yyreduce;
  1864.     }
  1865.   else if (yyn == 0)
  1866.     goto yyerrpop;
  1868.   if (yyn == YYFINAL)
  1869.     YYACCEPT;
  1871. #if YYDEBUG != 0
  1872.   if (yydebug)
  1873.     fprintf(stderr, "Shifting error token, ");
  1874. #endif
  1876.   *++yyvsp = yylval;
  1877. #ifdef YYLSP_NEEDED
  1878.   *++yylsp = yylloc;
  1879. #endif
  1881.   yystate = yyn;
  1882.   goto yynewstate;
  1884.  yyacceptlab:
  1885.   /* YYACCEPT comes here.  */
  1886.   if (yyfree_stacks)
  1887.     {
  1888.       free (yyss);
  1889.       free (yyvs);
  1890. #ifdef YYLSP_NEEDED
  1891.       free (yyls);
  1892. #endif
  1893.     }
  1894.   return 0;
  1896.  yyabortlab:
  1897.   /* YYABORT comes here.  */
  1898.   if (yyfree_stacks)
  1899.     {
  1900.       free (yyss);
  1901.       free (yyvs);
  1902. #ifdef YYLSP_NEEDED
  1903.       free (yyls);
  1904. #endif
  1905.     }
  1906.   return 1;
  1907. }
  1908. #line 717 "wmlscript/wsgram.y"
  1911. void
  1912. yyerror(char *msg)
  1913. {
  1914. #if WS_DEBUG
  1915.   fprintf(stderr, "*** %s:%d: wsc: %s - this msg will be removed ***n",
  1916.   global_compiler->input_name, global_compiler->linenum, msg);
  1917. #endif /* WS_DEBUG */
  1918. }