Diff for /parser3/src/main/compile.tab.C between versions 1.65 and 1.81.2.7

version 1.65, 2002/09/13 13:41:48 version 1.81.2.7, 2003/02/04 09:44:27
Line 20 Line 20
 #define NGE     270  #define NGE     270
 #define NEQ     271  #define NEQ     271
 #define NNE     272  #define NNE     272
 #define SLT     273  #define NSL     273
 #define SGT     274  #define NSR     274
 #define SLE     275  #define SLT     275
 #define SGE     276  #define SGT     276
 #define SEQ     277  #define SLE     277
 #define SNE     278  #define SGE     278
 #define DEF     279  #define SEQ     279
 #define IN      280  #define SNE     280
 #define FEXISTS 281  #define DEF     281
 #define DEXISTS 282  #define IN      282
 #define IS      283  #define FEXISTS 283
 #define NEG     284  #define DEXISTS 284
   #define IS      285
   #define NUNARY  286
   
 #line 1 "compile.y"  #line 1 "compile.y"
   
 /** @file  /** @file
         Parser: compiler(lexical parser and grammar).          Parser: compiler(lexical parser and grammar).
   
         Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)          Copyright (c) 2001, 2003 ArtLebedev Group (http://www.artlebedev.com)
         Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)          Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
   
         $Id$          $Id$
Line 55 Line 57
                 -#:     in iis make up specialized Pool object for that                  -#:     in iis make up specialized Pool object for that
 */  */
   
 #define YYSTYPE  Array/*<Operation>*/ *  #define YYSTYPE  ArrayOperationPtr
 #define YYPARSE_PARAM  pc  #define YYPARSE_PARAM  pc
 #define YYLEX_PARAM  pc  #define YYLEX_PARAM  pc
 #define YYDEBUG  1  #define YYDEBUG  1
Line 70 Line 72
 #include "pa_vdouble.h"  #include "pa_vdouble.h"
 #include "pa_globals.h"  #include "pa_globals.h"
 #include "pa_vvoid.h"  #include "pa_vvoid.h"
   #include "pa_vmethod_frame.h"
   
 #define SELF_ELEMENT_NAME "self"  
 #define USE_CONTROL_METHOD_NAME "USE"  #define USE_CONTROL_METHOD_NAME "USE"
   
 static int real_yyerror(parse_control *pc, char *s);  static int real_yyerror(parse_control *pc, char *s);
Line 98  static int yylex(YYSTYPE *lvalp, void *p Line 100  static int yylex(YYSTYPE *lvalp, void *p
   
   
   
 #define YYFINAL         248  #define YYFINAL         252
 #define YYFLAG          -32768  #define YYFLAG          -32768
 #define YYNTBASE        58  #define YYNTBASE        60
   
 #define YYTRANSLATE(x) ((unsigned)(x) <= 284 ? yytranslate[x] : 137)  #define YYTRANSLATE(x) ((unsigned)(x) <= 286 ? yytranslate[x] : 139)
   
 static const char yytranslate[] = {     0,  static const char yytranslate[] = {     0,
      2,     2,     2,     2,     2,     2,     2,     2,     2,    44,       2,     2,     2,     2,     2,     2,     2,     2,     2,    46,
      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
      2,     2,    32,    56,     2,    48,    40,    34,    57,    52,       2,     2,    44,    58,     2,    50,    41,    35,    59,    54,
     53,    38,    37,     2,    36,    51,    39,     2,     2,     2,      55,    38,    36,     2,    37,    53,    39,     2,     2,     2,
      2,     2,     2,     2,     2,     2,     2,    55,    47,    30,       2,     2,     2,     2,     2,     2,     2,    57,    49,    32,
      2,    31,     2,    43,     2,     2,     2,     2,     2,     2,       2,    33,     2,    45,     2,     2,     2,     2,     2,     2,
      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     45,    41,    46,    54,     2,     2,     2,     2,     2,     2,      47,    40,    48,    56,     2,     2,     2,     2,     2,     2,
      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
      2,     2,    49,    33,    50,    35,     2,     2,     2,     2,       2,     2,    51,    34,    52,    43,     2,     2,     2,     2,
      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
Line 133  static const char yytranslate[] = { Line 135  static const char yytranslate[] = {
      2,     2,     2,     2,     2,     1,     3,     4,     5,     6,       2,     2,     2,     2,     2,     1,     3,     4,     5,     6,
      7,     8,     9,    10,    11,    12,    13,    14,    15,    16,       7,     8,     9,    10,    11,    12,    13,    14,    15,    16,
     17,    18,    19,    20,    21,    22,    23,    24,    25,    26,      17,    18,    19,    20,    21,    22,    23,    24,    25,    26,
     27,    28,    29,    42      27,    28,    29,    30,    31,    42
 };  };
   
 #if YYDEBUG != 0  #if YYDEBUG != 0
Line 153  static const short yyprhs[] = {     0, Line 155  static const short yyprhs[] = {     0,
    306,   310,   313,   316,   319,   322,   325,   328,   331,   334,     306,   310,   313,   316,   319,   322,   325,   328,   331,   334,
    338,   342,   346,   350,   354,   358,   362,   366,   370,   374,     338,   342,   346,   350,   354,   358,   362,   366,   370,   374,
    378,   382,   386,   390,   394,   398,   402,   406,   410,   414,     378,   382,   386,   390,   394,   398,   402,   406,   410,   414,
    418,   422,   426,   430,   434,   436,   438,   439     418,   422,   426,   430,   434,   438,   442,   444,   446,   447
 };  };
   
 static const short yyrhs[] = {    60,  static const short yyrhs[] = {    62,
      0,    59,     0,    61,     0,    59,    61,     0,    73,     0,       0,    61,     0,    63,     0,    61,    63,     0,    75,     0,
     62,     0,    67,     0,    43,     4,    44,    63,     0,   136,      64,     0,    69,     0,    45,     4,    46,    65,     0,   138,
      0,    64,     0,    65,     0,    64,    65,     0,    66,    44,       0,    66,     0,    67,     0,    66,    67,     0,    68,    46,
      0,   136,     0,     4,     0,    43,     4,    69,    68,    72,       0,   138,     0,     4,     0,    45,     4,    71,    70,    74,
     44,    73,     0,   136,     0,    69,     0,    45,    70,    46,      46,    75,     0,   138,     0,    71,     0,    47,    72,    48,
      0,   136,     0,    71,     0,     4,     0,    71,    47,     4,       0,   138,     0,    73,     0,     4,     0,    73,    49,     4,
      0,   136,     0,     4,     0,   136,     0,    74,     0,    75,       0,   138,     0,     4,     0,   138,     0,    76,     0,    77,
      0,    74,    75,     0,   134,     0,    76,     0,    77,     0,       0,    76,    77,     0,   136,     0,    78,     0,    79,     0,
     85,     0,    98,     0,    78,     0,    48,    79,     0,    81,      87,     0,   100,     0,    80,     0,    50,    81,     0,    83,
      3,     0,    80,     0,    49,    81,    50,     0,    82,     0,       3,     0,    82,     0,    51,    83,    52,     0,    84,     0,
     83,     0,    84,     0,   128,    84,     0,   120,     0,   117,      85,     0,    86,     0,   130,    86,     0,   122,     0,   119,
    120,     0,    48,    86,    90,     0,    87,     0,    88,     0,     122,     0,    50,    88,    92,     0,    89,     0,    90,     0,
     89,     0,   116,     0,    51,   116,     0,   128,   116,     0,      91,     0,   118,     0,    53,   118,     0,   130,   118,     0,
     91,     0,    92,     0,    93,     0,    45,    94,    46,     0,      93,     0,    94,     0,    95,     0,    47,    96,    48,     0,
     52,   131,    53,     0,    49,    73,    50,     0,   135,     0,      54,   133,    55,     0,    51,    75,    52,     0,   137,     0,
      4,     0,    95,     0,    96,     0,    97,     0,    76,     0,       4,     0,    97,     0,    98,     0,    99,     0,    78,     0,
     75,    74,     0,    99,     0,     0,     0,    54,   100,   102,      77,    76,     0,   101,     0,     0,     0,    56,   102,   104,
    101,   103,     3,     0,    81,     0,   104,     0,   103,   104,     103,   105,     3,     0,    83,     0,   106,     0,   105,   106,
      0,   105,     0,   106,     0,   107,     0,    45,   108,    46,       0,   107,     0,   108,     0,   109,     0,    47,   110,    48,
      0,    52,   109,    53,     0,    49,   110,    50,     0,   111,       0,    54,   111,    55,     0,    51,   112,    52,     0,   113,
      0,   108,    47,   111,     0,   112,     0,   109,    47,   112,       0,   110,    49,   113,     0,   114,     0,   111,    49,   114,
      0,   113,     0,   110,    47,   113,     0,   114,     0,   115,       0,   115,     0,   112,    49,   115,     0,   116,     0,   117,
      0,    73,     0,   135,     0,     4,     0,    95,     0,   131,       0,    75,     0,   137,     0,     4,     0,    97,     0,   133,
      0,   121,     0,   117,   121,     0,   118,     0,   117,   118,       0,   123,     0,   119,   123,     0,   120,     0,   119,   120,
      0,   119,    51,     0,   121,     0,   121,     0,     4,     5,       0,   121,    53,     0,   123,     0,   123,     0,     4,     5,
      0,     4,     0,   122,     0,   123,     0,   124,     0,    48,       0,     4,     0,   124,     0,   125,     0,   126,     0,    50,
    125,     0,     4,   126,     0,    45,    74,    46,     0,     4,     127,     0,     4,   128,     0,    47,    76,    48,     0,     4,
      0,   127,     0,   126,   127,     0,    48,   125,     0,   129,       0,   129,     0,   128,   129,     0,    50,   127,     0,   131,
      0,   130,     0,     4,    55,     0,   129,    55,     0,   132,       0,   132,     0,     4,    57,     0,   131,    57,     0,   134,
      0,     4,     0,    78,     0,    99,     0,    56,   133,    56,       0,     4,     0,    80,     0,   101,     0,    58,   135,    58,
      0,    57,   133,    57,     0,    52,   132,    53,     0,    36,       0,    59,   135,    59,     0,    54,   134,    55,     0,    37,
    132,     0,    37,   132,     0,    35,   132,     0,    32,   132,     134,     0,    36,   134,     0,    43,   134,     0,    44,   134,
      0,    25,   132,     0,    26,   132,     0,    27,   132,     0,       0,    27,   134,     0,    28,   134,     0,    29,   134,     0,
     28,   132,     0,   132,    36,   132,     0,   132,    37,   132,      30,   134,     0,   134,    37,   134,     0,   134,    36,   134,
      0,   132,    38,   132,     0,   132,    39,   132,     0,   132,       0,   134,    38,   134,     0,   134,    39,   134,     0,   134,
     40,   132,     0,   132,    41,   132,     0,   132,    34,   132,      41,   134,     0,   134,    40,   134,     0,   134,    19,   134,
      0,   132,    33,   132,     0,   132,    14,   132,     0,   132,       0,   134,    20,   134,     0,   134,    35,   134,     0,   134,
     11,   132,     0,   132,    12,   132,     0,   132,    13,   132,      34,   134,     0,   134,    14,   134,     0,   134,    11,   134,
      0,   132,    30,   132,     0,   132,    31,   132,     0,   132,       0,   134,    12,   134,     0,   134,    13,   134,     0,   134,
     15,   132,     0,   132,    16,   132,     0,   132,    17,   132,      32,   134,     0,   134,    33,   134,     0,   134,    15,   134,
      0,   132,    18,   132,     0,   132,    19,   132,     0,   132,       0,   134,    16,   134,     0,   134,    17,   134,     0,   134,
     20,   132,     0,   132,    21,   132,     0,   132,    22,   132,      18,   134,     0,   134,    21,   134,     0,   134,    22,   134,
      0,   132,    23,   132,     0,   132,    24,   132,     0,   132,       0,   134,    23,   134,     0,   134,    24,   134,     0,   134,
     29,   132,     0,    73,     0,     4,     0,     0,     0      25,   134,     0,   134,    26,   134,     0,   134,    31,   134,
        0,    75,     0,     4,     0,     0,     0
 };  };
   
 #endif  #endif
   
 #if YYDEBUG != 0  #if YYDEBUG != 0
 static const short yyrline[] = { 0,  static const short yyrline[] = { 0,
    110,   120,   122,   122,   123,   125,   125,   127,   194,   194,     115,   123,   125,   125,   126,   128,   128,   130,   202,   202,
    195,   195,   196,   197,   197,   199,   228,   228,   229,   230,     203,   203,   204,   205,   205,   207,   236,   236,   237,   238,
    230,   231,   231,   233,   233,   237,   237,   239,   239,   240,     238,   239,   239,   241,   241,   245,   245,   247,   247,   248,
    240,   241,   241,   241,   245,   252,   253,   253,   254,   255,     248,   249,   249,   249,   253,   260,   261,   261,   262,   263,
    257,   258,   280,   281,   281,   285,   289,   291,   292,   293,     265,   266,   288,   289,   289,   293,   297,   299,   300,   301,
    310,   315,   317,   319,   320,   322,   328,   336,   342,   344,     318,   323,   325,   327,   328,   330,   336,   344,   350,   352,
    345,   347,   353,   354,   354,   358,   364,   367,   370,   383,     353,   355,   361,   362,   362,   366,   372,   375,   378,   391,
    385,   385,   386,   388,   389,   391,   392,   393,   394,   396,     393,   393,   394,   396,   397,   399,   400,   401,   402,   404,
    398,   400,   402,   404,   406,   410,   414,   418,   420,   421,     406,   408,   410,   412,   414,   418,   422,   426,   428,   429,
    423,   432,   432,   434,   434,   435,   436,   444,   449,   451,     431,   440,   440,   442,   442,   443,   444,   452,   457,   459,
    453,   454,   455,   457,   461,   470,   476,   481,   481,   482,     461,   462,   463,   465,   469,   478,   484,   489,   489,   490,
    487,   489,   491,   503,   515,   520,   522,   523,   524,   525,     495,   497,   499,   511,   523,   528,   530,   531,   532,   533,
    526,   528,   529,   530,   531,   532,   533,   534,   535,   537,     534,   536,   537,   538,   539,   540,   541,   542,   543,   545,
    538,   539,   540,   541,   542,   543,   544,   545,   546,   547,     546,   547,   548,   549,   550,   551,   552,   553,   554,   555,
    548,   549,   550,   551,   552,   553,   554,   555,   556,   557,     556,   557,   558,   559,   560,   561,   562,   563,   564,   565,
    558,   559,   560,   561,   564,   573,   578,   579     566,   567,   568,   569,   570,   571,   574,   583,   588,   589
 };  };
 #endif  #endif
   
Line 232  static const short yyrline[] = { 0, Line 235  static const short yyrline[] = { 0,
 static const char * const yytname[] = {   "$","error","$undefined.","EON","STRING",  static const char * const yytname[] = {   "$","error","$undefined.","EON","STRING",
 "BOGUS","BAD_STRING_COMPARISON_OPERATOR","BAD_HEX_LITERAL","BAD_METHOD_DECL_START",  "BOGUS","BAD_STRING_COMPARISON_OPERATOR","BAD_HEX_LITERAL","BAD_METHOD_DECL_START",
 "BAD_METHOD_PARAMETER_NAME_CHARACTER","BAD_MATH_OPERATOR_CHARACTER","\"&&\"",  "BAD_METHOD_PARAMETER_NAME_CHARACTER","BAD_MATH_OPERATOR_CHARACTER","\"&&\"",
 "\"||\"","\"!||\"","\"!|\"","\"<=\"","\">=\"","\"==\"","\"!=\"","\"lt\"","\"gt\"",  "\"||\"","\"!||\"","\"!|\"","\"<=\"","\">=\"","\"==\"","\"!=\"","\"<<\"","\">>\"",
 "\"le\"","\"ge\"","\"eq\"","\"ne\"","\"def\"","\"in\"","\"-f\"","\"-d\"","\"is\"",  "\"lt\"","\"gt\"","\"le\"","\"ge\"","\"eq\"","\"ne\"","\"def\"","\"in\"","\"-f\"",
 "'<'","'>'","'!'","'|'","'&'","'~'","'-'","'+'","'*'","'/'","'%'","'\\\\'","NEG",  "\"-d\"","\"is\"","'<'","'>'","'|'","'&'","'+'","'-'","'*'","'/'","'\\\\'","'%'",
 "'@'","'\\n'","'['","']'","';'","'$'","'{'","'}'","'.'","'('","')'","'^'","':'",  "NUNARY","'~'","'!'","'@'","'\\n'","'['","']'","';'","'$'","'{'","'}'","'.'",
 "'\\\"'","'\\''","all","methods","one_big_piece","method","control_method","maybe_control_strings",  "'('","')'","'^'","':'","'\\\"'","'\\''","all","methods","one_big_piece","method",
 "control_strings","control_string","maybe_string","code_method","maybe_bracketed_strings",  "control_method","maybe_control_strings","control_strings","control_string",
 "bracketed_maybe_strings","maybe_strings","strings","maybe_comment","maybe_codes",  "maybe_string","code_method","maybe_bracketed_strings","bracketed_maybe_strings",
 "codes","code","action","get","get_value","get_name_value","name_in_curly_rdive",  "maybe_strings","strings","maybe_comment","maybe_codes","codes","code","action",
 "name_without_curly_rdive","name_without_curly_rdive_read","name_without_curly_rdive_class",  "get","get_value","get_name_value","name_in_curly_rdive","name_without_curly_rdive",
 "name_without_curly_rdive_code","put","name_expr_wdive","name_expr_wdive_root",  "name_without_curly_rdive_read","name_without_curly_rdive_class","name_without_curly_rdive_code",
 "name_expr_wdive_write","name_expr_wdive_class","construct","construct_square",  "put","name_expr_wdive","name_expr_wdive_root","name_expr_wdive_write","name_expr_wdive_class",
 "construct_round","construct_curly","any_constructor_code_value","constructor_code_value",  "construct","construct_square","construct_round","construct_curly","any_constructor_code_value",
 "constructor_code","codes__excluding_sole_str_literal","call","call_value","@1",  "constructor_code_value","constructor_code","codes__excluding_sole_str_literal",
 "@2","call_name","store_params","store_param","store_square_param","store_round_param",  "call","call_value","@1","@2","call_name","store_params","store_param","store_square_param",
 "store_curly_param","store_code_param_parts","store_expr_param_parts","store_curly_param_parts",  "store_round_param","store_curly_param","store_code_param_parts","store_expr_param_parts",
 "store_code_param_part","store_expr_param_part","store_curly_param_part","code_param_value",  "store_curly_param_parts","store_code_param_part","store_expr_param_part","store_curly_param_part",
 "write_expr_value","name_expr_dive_code","name_path","name_step","name_advance1",  "code_param_value","write_expr_value","name_expr_dive_code","name_path","name_step",
 "name_advance2","name_expr_value","name_expr_subvar_value","name_expr_with_subvar_value",  "name_advance1","name_advance2","name_expr_value","name_expr_subvar_value","name_expr_with_subvar_value",
 "name_square_code_value","subvar_ref_name_rdive","subvar_get_writes","subvar__get_write",  "name_square_code_value","subvar_ref_name_rdive","subvar_get_writes","subvar__get_write",
 "class_prefix","class_static_prefix","class_constructor_prefix","expr_value",  "class_prefix","class_static_prefix","class_constructor_prefix","expr_value",
 "expr","string_inside_quotes_value","write_string","void_value","empty", NULL  "expr","string_inside_quotes_value","write_string","void_value","empty", NULL
Line 257  static const char * const yytname[] = { Line 260  static const char * const yytname[] = {
 #endif  #endif
   
 static const short yyr1[] = {     0,  static const short yyr1[] = {     0,
     58,    58,    59,    59,    60,    61,    61,    62,    63,    63,      60,    60,    61,    61,    62,    63,    63,    64,    65,    65,
     64,    64,    65,    66,    66,    67,    68,    68,    69,    70,      66,    66,    67,    68,    68,    69,    70,    70,    71,    72,
     70,    71,    71,    72,    72,    73,    73,    74,    74,    75,      72,    73,    73,    74,    74,    75,    75,    76,    76,    77,
     75,    76,    76,    76,    77,    78,    79,    79,    80,    81,      77,    78,    78,    78,    79,    80,    81,    81,    82,    83,
     81,    82,    83,    84,    84,    85,    86,    86,    86,    87,      83,    84,    85,    86,    86,    87,    88,    88,    88,    89,
     88,    89,    90,    90,    90,    91,    92,    93,    94,    94,      90,    91,    92,    92,    92,    93,    94,    95,    96,    96,
     94,    95,    96,    97,    97,    98,   100,   101,    99,   102,      96,    97,    98,    99,    99,   100,   102,   103,   101,   104,
    103,   103,   104,   104,   104,   105,   106,   107,   108,   108,     105,   105,   106,   106,   106,   107,   108,   109,   110,   110,
    109,   109,   110,   110,   111,   112,   113,   114,   114,   114,     111,   111,   112,   112,   113,   114,   115,   116,   116,   116,
    115,   116,   116,   117,   117,   118,   119,   120,   120,   121,     117,   118,   118,   119,   119,   120,   121,   122,   122,   123,
    121,   121,   121,   122,   123,   124,   125,   126,   126,   127,     123,   123,   123,   124,   125,   126,   127,   128,   128,   129,
    128,   128,   129,   130,   131,   132,   132,   132,   132,   132,     130,   130,   131,   132,   133,   134,   134,   134,   134,   134,
    132,   132,   132,   132,   132,   132,   132,   132,   132,   132,     134,   134,   134,   134,   134,   134,   134,   134,   134,   134,
    132,   132,   132,   132,   132,   132,   132,   132,   132,   132,     134,   134,   134,   134,   134,   134,   134,   134,   134,   134,
    132,   132,   132,   132,   132,   132,   132,   132,   132,   132,     134,   134,   134,   134,   134,   134,   134,   134,   134,   134,
    132,   132,   132,   132,   133,   134,   135,   136     134,   134,   134,   134,   134,   134,   135,   136,   137,   138
 };  };
   
 static const short yyr2[] = {     0,  static const short yyr2[] = {     0,
Line 291  static const short yyr2[] = {     0, Line 294  static const short yyr2[] = {     0,
      3,     2,     2,     2,     2,     2,     2,     2,     2,     3,       3,     2,     2,     2,     2,     2,     2,     2,     2,     3,
      3,     3,     3,     3,     3,     3,     3,     3,     3,     3,       3,     3,     3,     3,     3,     3,     3,     3,     3,     3,
      3,     3,     3,     3,     3,     3,     3,     3,     3,     3,       3,     3,     3,     3,     3,     3,     3,     3,     3,     3,
      3,     3,     3,     3,     1,     1,     0,     0       3,     3,     3,     3,     3,     3,     1,     1,     0,     0
 };  };
   
 static const short yydefact[] = {   158,  static const short yydefact[] = {   160,
    156,     0,     0,    67,     2,     1,     3,     6,     7,     5,     158,     0,     0,    67,     2,     1,     3,     6,     7,     5,
     27,    28,    31,    32,    35,    33,    34,    66,    30,    26,      27,    28,    31,    32,    35,    33,    34,    66,    30,    26,
      0,   100,     0,     0,     0,     0,    36,    38,     0,    40,       0,   100,     0,     0,     0,     0,    36,    38,     0,    40,
     41,    42,     0,    47,    48,    49,    50,     0,    94,     0,      41,    42,     0,    47,    48,    49,    50,     0,    94,     0,
     44,    92,   101,   102,   103,     0,   111,   112,     0,     4,      44,    92,   101,   102,   103,     0,   111,   112,     0,     4,
     29,   158,   158,   158,    99,     0,   113,   105,   108,     0,      29,   160,   160,   160,    99,     0,   113,   105,   108,     0,
    107,   104,     0,     0,    98,     0,   100,    51,     0,    92,     107,   104,     0,     0,    98,     0,   100,    51,     0,    92,
     37,   157,   158,     0,    46,    53,    54,    55,   100,    95,      37,   159,   160,     0,    46,    53,    54,    55,   100,    95,
     45,    93,    96,    43,    52,   114,    70,    68,    15,     8,      45,    93,    96,    43,    52,   114,    70,    68,    15,     8,
     10,    11,     0,     9,    22,     0,    21,    20,   158,    18,      10,    11,     0,     9,    22,     0,    21,    20,   160,    18,
     17,   110,   109,   106,    39,    93,   156,     0,    31,     0,      17,   110,   109,   106,    39,    93,   158,     0,    31,     0,
     61,    62,    63,    59,     0,   116,     0,     0,     0,     0,      61,    62,    63,    59,     0,   116,     0,     0,     0,     0,
      0,     0,     0,     0,     0,     0,   158,   158,   117,   118,       0,     0,     0,     0,     0,     0,   160,   160,   117,   118,
      0,   115,     0,    12,    14,    13,    19,     0,    25,     0,       0,   115,     0,    12,    14,    13,    19,     0,    25,     0,
     24,    65,    56,    58,   126,   127,   128,   129,   125,   124,      24,    65,    56,    58,   126,   127,   128,   129,   123,   122,
    122,   123,     0,   155,     0,     0,    57,     0,     0,     0,     124,   125,     0,   157,     0,     0,    57,     0,     0,     0,
      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
      0,     0,   157,   158,     0,     0,    71,    73,    74,    75,       0,     0,     0,     0,   159,   160,     0,     0,    71,    73,
     23,   158,   121,   119,   120,   139,   140,   141,   138,   144,      74,    75,    23,   160,   121,   119,   120,   141,   142,   143,
    145,   146,   147,   148,   149,   150,   151,   152,   153,   154,     140,   146,   147,   148,   149,   136,   137,   150,   151,   152,
    142,   143,   137,   136,   130,   131,   132,   133,   134,   135,     153,   154,   155,   156,   144,   145,   139,   138,   131,   130,
    156,    90,     0,    79,    85,    88,    87,     0,    83,     0,     132,   133,   135,   134,   158,    90,     0,    79,    85,    88,
     81,    86,    91,    69,    72,    16,    76,   157,   158,    78,      87,     0,    83,     0,    81,    86,    91,    69,    72,    16,
      0,    77,    80,    84,    82,     0,     0,     0      76,   159,   160,    78,     0,    77,    80,    84,    82,     0,
        0,     0
 };  };
   
 static const short yydefgoto[] = {   246,  static const short yydefgoto[] = {   250,
      5,     6,     7,     8,    90,    91,    92,    93,     9,    99,       5,     6,     7,     8,    90,    91,    92,    93,     9,    99,
     54,    96,    97,   140,   154,    11,    12,    13,    14,   129,      54,    96,    97,   140,   154,    11,    12,    13,    14,   129,
     27,    28,    29,    30,    31,    32,    16,    33,    34,    35,      27,    28,    29,    30,    31,    32,    16,    33,    34,    35,
     36,    75,    76,    77,    78,   110,   222,   112,   113,    17,      36,    75,    76,    77,    78,   110,   226,   112,   113,    17,
    130,    49,   133,    88,   186,   187,   188,   189,   190,   223,     130,    49,   133,    88,   188,   189,   190,   191,   192,   227,
    230,   228,   224,   231,   229,   225,   232,    37,    64,    39,     234,   232,   228,   235,   233,   229,   236,    37,    64,    39,
     40,    41,    65,    43,    44,    45,    62,    58,    59,    66,      40,    41,    65,    43,    44,    45,    62,    58,    59,    66,
     47,    48,   233,   132,   155,    19,   226,    20      47,    48,   237,   132,   155,    19,   230,    20
 };  };
   
 static const short yypact[] = {    15,  static const short yypact[] = {    13,
 -32768,    12,    55,-32768,   -25,-32768,-32768,-32768,-32768,-32768,  -32768,    24,    98,-32768,    36,-32768,-32768,-32768,-32768,-32768,
     16,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,      14,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
     54,     1,    16,    17,    93,    98,-32768,-32768,    42,-32768,     -26,    39,    14,    44,    45,   100,-32768,-32768,    47,-32768,
 -32768,-32768,    -6,-32768,-32768,-32768,-32768,   103,-32768,    40,  -32768,-32768,    52,-32768,-32768,-32768,-32768,   118,-32768,    59,
 -32768,    37,-32768,-32768,-32768,   103,    13,-32768,    93,-32768,  -32768,     4,-32768,-32768,-32768,   118,    -3,-32768,    45,-32768,
 -32768,    97,   113,   100,-32768,    17,-32768,    99,-32768,    33,  -32768,   101,   113,    71,-32768,    44,-32768,    70,-32768,    32,
 -32768,-32768,   118,   103,   121,   103,    99,-32768,    98,   121,  -32768,-32768,    73,   118,    83,   118,    70,-32768,   100,    83,
 -32768,    23,    16,    57,-32768,-32768,-32768,-32768,    19,-32768,  -32768,    27,    14,    57,-32768,-32768,-32768,-32768,     1,-32768,
 -32768,    37,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,  -32768,     4,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
     22,-32768,   105,   125,-32768,   104,   123,-32768,   169,-32768,      20,-32768,    78,    91,-32768,    90,    94,-32768,   135,-32768,
 -32768,-32768,-32768,-32768,-32768,   121,   142,    16,    87,   143,  -32768,-32768,-32768,-32768,-32768,    83,    92,    14,   -22,   106,
 -32768,-32768,-32768,-32768,   140,-32768,    57,    57,    57,    57,  -32768,-32768,-32768,-32768,   115,-32768,    57,    57,    57,    57,
     57,    57,    57,    57,    91,    57,    16,    16,-32768,-32768,      57,    57,    57,    57,   105,    57,    14,    14,-32768,-32768,
    138,   275,    -1,-32768,-32768,-32768,-32768,   189,-32768,   178,     114,   281,    72,-32768,-32768,-32768,-32768,   142,-32768,   107,
 -32768,    16,-32768,-32768,    82,    82,    82,    82,    82,   196,  -32768,    14,-32768,-32768,   440,   440,   440,   440,-32768,-32768,
 -32768,-32768,   232,-32768,   173,   200,-32768,    57,    57,    57,  -32768,-32768,   236,-32768,   112,   120,-32768,    57,    57,    57,
     57,    57,    57,    57,    57,    57,    57,    57,    57,    57,      57,    57,    57,    57,    57,    57,    57,    57,    57,    57,
     57,    57,    57,    57,    57,    57,    57,    57,    57,    57,      57,    57,    57,    57,    57,    57,    57,    57,    57,    57,
     57,    57,    32,    16,    57,     5,-32768,-32768,-32768,-32768,      57,    57,    57,    57,    41,    14,    57,     5,-32768,-32768,
 -32768,    16,-32768,-32768,-32768,   365,   337,   306,   141,   393,  -32768,-32768,-32768,    14,-32768,-32768,-32768,   371,   343,   312,
    393,   406,   406,   393,   393,   393,   393,   406,   406,    82,     244,   399,   399,   412,   412,   136,   136,   399,   399,   399,
    393,   393,   187,   196,   -10,   -10,-32768,-32768,-32768,-32768,     399,   412,   412,   440,   399,   399,   447,   453,    93,    93,
    107,-32768,   119,-32768,-32768,-32768,-32768,   -33,-32768,    84,  -32768,-32768,-32768,-32768,   -11,-32768,    19,-32768,-32768,-32768,
 -32768,-32768,-32768,-32768,-32768,-32768,-32768,    32,    16,-32768,  -32768,   -10,-32768,   -33,-32768,-32768,-32768,-32768,-32768,-32768,
     57,-32768,-32768,-32768,-32768,   230,   258,-32768  -32768,    41,    14,-32768,    57,-32768,-32768,-32768,-32768,   180,
      181,-32768
 };  };
   
 static const short yypgoto[] = {-32768,  static const short yypgoto[] = {-32768,
 -32768,-32768,   254,-32768,-32768,-32768,   176,-32768,-32768,-32768,  -32768,-32768,   177,-32768,-32768,-32768,    99,-32768,-32768,-32768,
    206,-32768,-32768,-32768,     3,   -18,    -7,   -71,-32768,     0,     129,-32768,-32768,-32768,     3,   -18,    -7,   -71,-32768,     0,
 -32768,-32768,   -15,-32768,-32768,   -24,-32768,-32768,-32768,-32768,  -32768,-32768,    -6,-32768,-32768,   -37,-32768,-32768,-32768,-32768,
 -32768,-32768,-32768,-32768,-32768,-32768,   192,-32768,-32768,-32768,  -32768,-32768,-32768,-32768,-32768,-32768,   119,-32768,-32768,-32768,
      2,-32768,-32768,-32768,-32768,    88,-32768,-32768,-32768,-32768,       2,-32768,-32768,-32768,-32768,    -4,-32768,-32768,-32768,-32768,
 -32768,-32768,    39,    34,    41,-32768,-32768,   106,     6,   -31,  -32768,-32768,   -50,   -52,   -48,-32768,-32768,   -16,    95,   -23,
 -32768,   -23,     9,-32768,-32768,-32768,   220,-32768,   221,   278,  -32768,   -24,     9,-32768,-32768,-32768,   169,-32768,   168,   224,
 -32768,-32768,   204,    38,   154,-32768,   211,    72  -32768,-32768,   154,    40,   102,-32768,   157,   -20
 };  };
   
   
 #define YYLAST          447  #define YYLAST          494
   
   
 static const short yytable[] = {    15,  static const short yytable[] = {    15,
    109,    18,    10,    51,    60,    55,    80,   234,    38,    63,     109,    18,    10,    51,    60,    55,   -98,   238,    84,    68,
     15,    42,    18,   239,    81,    21,   240,     2,     1,     1,      15,    42,    18,    81,    80,   245,     1,     1,    63,    52,
     61,    84,    15,    55,    18,    89,   107,   179,   180,   181,      53,   246,    15,    89,    18,   -64,   -64,    21,    84,    85,
    182,    69,    80,    87,    70,   221,     1,    80,    72,   -98,     107,    94,    98,   101,    70,     1,   -89,   -89,   243,    81,
     81,    84,    73,   183,    71,    74,    82,   184,    56,   183,      80,   244,    87,    55,   225,    80,    82,    61,    22,    71,
    185,    38,    51,   184,    42,    57,   185,     2,    22,    15,      56,   185,    51,    86,    42,   186,   -97,     2,   187,    15,
    116,    18,     3,     3,   108,  -158,    56,    86,     4,     4,     116,    18,     3,     3,   108,  -160,   241,   242,     4,     4,
      3,    15,    15,    18,    18,   115,     4,   106,   104,     3,     135,    15,    15,    18,    18,   115,     3,   106,   141,   104,
      3,   117,   118,   119,   120,     4,     4,   -97,   121,   142,       2,     3,     4,   117,   118,   119,   120,     4,    56,   142,
     83,   122,   123,   124,    22,   161,    22,    52,    53,    23,       3,    23,   121,   122,    24,    57,     4,    38,    72,   123,
     89,    67,    24,    25,   125,    26,    79,    15,   126,    18,     124,    22,    73,    67,    89,    74,   125,    15,    22,    18,
      4,   109,   127,   128,   175,   176,    95,   177,   178,   179,     126,    83,     4,   109,   127,   128,    95,    53,   185,    56,
    180,   181,   182,    94,    98,   101,    15,    15,    18,    18,      69,    79,   186,   136,   105,   187,    15,    15,    18,    18,
    241,    68,   -64,   -64,    51,    23,   242,    23,    24,    25,     181,   182,   183,   184,    51,   -97,   -14,   137,   139,   -60,
     24,    15,    23,    18,    53,    24,    56,    23,   136,   137,      38,    15,   138,    18,    23,   193,    23,    24,    25,    24,
     24,    85,   -89,   -89,   145,   146,   147,   148,   149,   150,      26,    23,   194,   143,    24,    25,   145,   146,   147,   148,
    151,   152,   135,   153,   237,   238,   109,   105,   -14,   138,     149,   150,   151,   152,    23,   153,   144,    24,   157,   196,
    141,   -97,   139,   175,   176,   108,   177,   178,   179,   180,     109,   179,   180,   181,   182,   183,   184,   108,   197,   251,
    181,   182,    15,    15,    18,    18,   227,   -60,   143,   144,     252,    50,   100,   239,    15,    15,    18,    18,   231,   134,
    157,    15,   191,    18,   236,   196,   197,   198,   199,   200,     111,   247,   249,    15,   248,    18,   240,   198,   199,   200,
    201,   202,   203,   204,   205,   206,   207,   208,   209,   210,     201,   202,   203,   204,   205,   206,   207,   208,   209,   210,
    211,   212,   213,   214,   215,   216,   217,   218,   219,   220,     211,   212,   213,   214,   215,   216,   217,   218,   219,   220,
    176,   192,   177,   178,   179,   180,   181,   182,   194,   247,     221,   222,   223,   224,   102,   103,    46,   131,   114,   156,
    108,   177,   178,   179,   180,   181,   182,    15,    15,    18,       0,     0,     0,     0,   108,     0,     0,     0,     0,     0,
     18,   227,   158,   159,   160,   161,   162,   163,   164,   165,       0,    15,    15,    18,    18,   231,   158,   159,   160,   161,
    166,   167,   168,   169,   170,   171,   195,   248,    50,   100,  
    172,   173,   174,   111,   175,   176,   134,   177,   178,   179,  
    180,   181,   182,   235,   245,   102,   243,   131,   103,   244,  
     46,   156,   114,     0,   193,   158,   159,   160,   161,   162,  
    163,   164,   165,   166,   167,   168,   169,   170,   171,     0,  
      0,     0,     0,   172,   173,   174,     0,   175,   176,     0,  
    177,   178,   179,   180,   181,   182,   158,   159,     0,   161,  
    162,   163,   164,   165,   166,   167,   168,   169,   170,   171,     162,   163,   164,   165,   166,   167,   168,   169,   170,   171,
      0,     0,     0,     0,   172,   173,   174,     0,   175,   176,     172,   173,   166,   167,     0,     0,   174,   175,   176,   177,
      0,   177,   178,   179,   180,   181,   182,   158,     0,     0,     178,   179,   180,   181,   182,   183,   184,   177,   178,   179,
    161,   162,   163,   164,   165,   166,   167,   168,   169,   170,     180,   181,   182,   183,   184,     0,     0,     0,     0,     0,
    171,     0,     0,     0,     0,   172,   173,   174,     0,   175,     195,   158,   159,   160,   161,   162,   163,   164,   165,   166,
    176,     0,   177,   178,   179,   180,   181,   182,   161,   162,     167,   168,   169,   170,   171,   172,   173,     0,     0,     0,
    163,   164,   165,   166,   167,   168,   169,   170,   171,     0,       0,   174,   175,   176,   177,   178,   179,   180,   181,   182,
      0,     0,     0,   172,   173,   174,     0,   175,   176,     0,     183,   184,   158,   159,     0,   161,   162,   163,   164,   165,
    177,   178,   179,   180,   181,   182,   161,     0,     0,   164,     166,   167,   168,   169,   170,   171,   172,   173,     0,     0,
    165,     0,     0,     0,     0,   170,   171,     0,     0,   161,       0,     0,   174,   175,   176,   177,   178,   179,   180,   181,
      0,   172,     0,     0,     0,   175,   176,     0,   177,   178,     182,   183,   184,   158,     0,     0,   161,   162,   163,   164,
    179,   180,   181,   182,   172,     0,     0,     0,   175,   176,     165,   166,   167,   168,   169,   170,   171,   172,   173,     0,
      0,   177,   178,   179,   180,   181,   182       0,     0,     0,   174,   175,   176,   177,   178,   179,   180,
      181,   182,   183,   184,   161,   162,   163,   164,   165,   166,
      167,   168,   169,   170,   171,   172,   173,     0,     0,     0,
        0,   174,   175,   176,   177,   178,   179,   180,   181,   182,
      183,   184,   161,     0,     0,   164,   165,   166,   167,     0,
        0,     0,     0,   172,   173,   161,     0,     0,     0,   174,
      166,   167,   177,   178,   179,   180,   181,   182,   183,   184,
        0,     0,   174,     0,     0,   177,   178,   179,   180,   181,
      182,   183,   184,   161,     0,     0,     0,     0,   166,   167,
        0,     0,     0,     0,     0,   166,   167,     0,     0,     0,
        0,   166,   167,   177,   178,   179,   180,   181,   182,   183,
      184,   178,   179,   180,   181,   182,   183,   184,   179,   180,
      181,   182,   183,   184
 };  };
   
 static const short yycheck[] = {     0,  static const short yycheck[] = {     0,
     72,     0,     0,    11,    23,     5,    38,     3,     3,    25,      72,     0,     0,    11,    23,     5,     3,     3,    46,    26,
     11,     3,    11,    47,    38,     4,    50,    43,     4,     4,      11,     3,    11,    38,    38,    49,     4,     4,    25,    46,
      4,    46,    23,     5,    23,     4,     4,    38,    39,    40,      47,    55,    23,     4,    23,    48,    49,     4,    66,    46,
     41,    26,    64,    49,    26,     4,     4,    69,    45,     3,       4,    52,    53,    54,    26,     4,    48,    49,    49,    64,
     64,    66,    49,    45,     3,    52,    38,    49,    48,    45,      64,    52,    49,     5,     4,    69,    38,     4,     4,     3,
     52,    46,    60,    49,    46,    55,    52,    43,     4,    60,      50,    47,    60,    57,    46,    51,    53,    45,    54,    60,
      4,    60,    48,    48,    72,    44,    48,    55,    54,    54,       4,    60,    50,    50,    72,    46,    48,    49,    56,    56,
     48,    72,    73,    72,    73,    73,    54,    69,    46,    48,      91,    72,    73,    72,    73,    73,    50,    69,    99,    48,
     48,    25,    26,    27,    28,    54,    54,    51,    32,   108,      45,    50,    56,    27,    28,    29,    30,    56,    50,   108,
     51,    35,    36,    37,     4,    14,     4,    44,    45,    45,      50,    47,    36,    37,    50,    57,    56,     3,    47,    43,
      4,     4,    48,    49,    48,    51,     4,   108,    52,   108,      44,     4,    51,     4,     4,    54,    50,   108,     4,   108,
     54,   183,    56,    57,    33,    34,     4,    36,    37,    38,      54,    53,    56,   185,    58,    59,     4,    47,    47,    50,
     39,    40,    41,    52,    53,    54,   127,   128,   127,   128,      26,     4,    51,    46,    52,    54,   127,   128,   127,   128,
     47,    26,    46,    47,   142,    45,    53,    45,    48,    49,      38,    39,    40,    41,   142,    53,    46,    48,     4,    48,
     48,   142,    45,   142,    45,    48,    48,    45,    44,    46,      46,   142,    49,   142,    47,     4,    47,    50,    51,    50,
     48,    46,    46,    47,   117,   118,   119,   120,   121,   122,      53,    47,    46,    48,    50,    51,   117,   118,   119,   120,
    123,   124,    91,   126,    46,    47,   238,    50,    44,    47,     121,   122,   123,   124,    47,   126,    52,    50,    55,    58,
     99,    51,     4,    33,    34,   183,    36,    37,    38,    39,     242,    36,    37,    38,    39,    40,    41,   185,    59,     0,
     40,    41,   183,   184,   183,   184,   184,    46,    46,    50,       0,     5,    54,   188,   185,   186,   185,   186,   186,    91,
     53,   192,     4,   192,   192,   158,   159,   160,   161,   162,      72,   242,   245,   194,   243,   194,   194,   158,   159,   160,
    163,   164,   165,   166,   167,   168,   169,   170,   171,   172,     161,   162,   163,   164,   165,   166,   167,   168,   169,   170,
    173,   174,   175,   176,   177,   178,   179,   180,   181,   182,     171,   172,   173,   174,   175,   176,   177,   178,   179,   180,
     34,    44,    36,    37,    38,    39,    40,    41,    56,     0,     181,   182,   183,   184,    56,    58,     3,    74,    72,   128,
    238,    36,    37,    38,    39,    40,    41,   238,   239,   238,      -1,    -1,    -1,    -1,   242,    -1,    -1,    -1,    -1,    -1,
    239,   239,    11,    12,    13,    14,    15,    16,    17,    18,      -1,   242,   243,   242,   243,   243,    11,    12,    13,    14,
     19,    20,    21,    22,    23,    24,    57,     0,     5,    54,  
     29,    30,    31,    72,    33,    34,    91,    36,    37,    38,  
     39,    40,    41,   186,   241,    56,   238,    74,    58,   239,  
      3,   128,    72,    -1,    53,    11,    12,    13,    14,    15,  
     16,    17,    18,    19,    20,    21,    22,    23,    24,    -1,  
     -1,    -1,    -1,    29,    30,    31,    -1,    33,    34,    -1,  
     36,    37,    38,    39,    40,    41,    11,    12,    -1,    14,  
     15,    16,    17,    18,    19,    20,    21,    22,    23,    24,      15,    16,    17,    18,    19,    20,    21,    22,    23,    24,
     -1,    -1,    -1,    -1,    29,    30,    31,    -1,    33,    34,      25,    26,    19,    20,    -1,    -1,    31,    32,    33,    34,
     -1,    36,    37,    38,    39,    40,    41,    11,    -1,    -1,      35,    36,    37,    38,    39,    40,    41,    34,    35,    36,
     14,    15,    16,    17,    18,    19,    20,    21,    22,    23,      37,    38,    39,    40,    41,    -1,    -1,    -1,    -1,    -1,
     24,    -1,    -1,    -1,    -1,    29,    30,    31,    -1,    33,      55,    11,    12,    13,    14,    15,    16,    17,    18,    19,
     34,    -1,    36,    37,    38,    39,    40,    41,    14,    15,      20,    21,    22,    23,    24,    25,    26,    -1,    -1,    -1,
     16,    17,    18,    19,    20,    21,    22,    23,    24,    -1,      -1,    31,    32,    33,    34,    35,    36,    37,    38,    39,
     -1,    -1,    -1,    29,    30,    31,    -1,    33,    34,    -1,      40,    41,    11,    12,    -1,    14,    15,    16,    17,    18,
     36,    37,    38,    39,    40,    41,    14,    -1,    -1,    17,      19,    20,    21,    22,    23,    24,    25,    26,    -1,    -1,
     18,    -1,    -1,    -1,    -1,    23,    24,    -1,    -1,    14,      -1,    -1,    31,    32,    33,    34,    35,    36,    37,    38,
     -1,    29,    -1,    -1,    -1,    33,    34,    -1,    36,    37,      39,    40,    41,    11,    -1,    -1,    14,    15,    16,    17,
     38,    39,    40,    41,    29,    -1,    -1,    -1,    33,    34,      18,    19,    20,    21,    22,    23,    24,    25,    26,    -1,
     -1,    36,    37,    38,    39,    40,    41      -1,    -1,    -1,    31,    32,    33,    34,    35,    36,    37,
       38,    39,    40,    41,    14,    15,    16,    17,    18,    19,
       20,    21,    22,    23,    24,    25,    26,    -1,    -1,    -1,
       -1,    31,    32,    33,    34,    35,    36,    37,    38,    39,
       40,    41,    14,    -1,    -1,    17,    18,    19,    20,    -1,
       -1,    -1,    -1,    25,    26,    14,    -1,    -1,    -1,    31,
       19,    20,    34,    35,    36,    37,    38,    39,    40,    41,
       -1,    -1,    31,    -1,    -1,    34,    35,    36,    37,    38,
       39,    40,    41,    14,    -1,    -1,    -1,    -1,    19,    20,
       -1,    -1,    -1,    -1,    -1,    19,    20,    -1,    -1,    -1,
       -1,    19,    20,    34,    35,    36,    37,    38,    39,    40,
       41,    35,    36,    37,    38,    39,    40,    41,    36,    37,
       38,    39,    40,    41
 };  };
 #define YYPURE 1  #define YYPURE 1
   
 /* -*-C-*-  Note some compilers choke on comments on `#line' lines.  */  /* -*-C-*-  Note some compilers choke on comments on `#line' lines.  */
 #line 3 "/usr/share/bison.simple"  #line 3 "/usr/lib/bison.simple"
 /* This file comes from bison-1.28.  */  /* This file comes from bison-1.28.  */
   
 /* Skeleton output parser for bison,  /* Skeleton output parser for bison,
Line 688  __yy_memcpy (char *to, char *from, unsig Line 703  __yy_memcpy (char *to, char *from, unsig
 #endif  #endif
 #endif  #endif
   
 #line 217 "/usr/share/bison.simple"  #line 217 "/usr/lib/bison.simple"
   
 /* The user can define YYPARSE_PARAM as the name of an argument to be passed  /* The user can define YYPARSE_PARAM as the name of an argument to be passed
    into yyparse.  The argument should have type void *.     into yyparse.  The argument should have type void *.
Line 1017  yyreduce: Line 1032  yyreduce:
   switch (yyn) {    switch (yyn) {
   
 case 1:  case 1:
 #line 111 "compile.y"  #line 116 "compile.y"
 {  {
         Method& method=*NEW Method(POOL,           MethodPtr method(new Method(main_method_name, Method::CT_ANY,
                 PC.request->main_method_name,   
                 Method::CT_ANY,  
                 0, 0, /*min, max numbered_params_count*/                  0, 0, /*min, max numbered_params_count*/
                 0/*param_names*/, 0/*local_names*/,                   ArrayStringPtr(0)/*param_names*/, ArrayStringPtr(0)/*local_names*/, 
                 yyvsp[0]/*parser_code*/, 0/*native_code*/);                  yyvsp[0]/*parser_code*/, 0/*native_code*/));
         PC.cclass->add_method(PC.request->main_method_name, method);          PC.cclass->add_method(main_method_name, method);
 ;  ;
     break;}      break;}
 case 8:  case 8:
 #line 128 "compile.y"  #line 131 "compile.y"
 {  {
         const String& command=*LA2S(yyvsp[-2]);          StringPtr command=LA2S(*yyvsp[-2]);
         YYSTYPE strings_code=yyvsp[0];          YYSTYPE strings_code=yyvsp[0];
         if(strings_code->size()<1*2) {          if(strings_code->count()<1*2) {
                 strcpy(PC.error, "@");                  strcpy(PC.error, "@");
                 strcat(PC.error, command.cstr());                  strcat(PC.error, command->cstr());
                 strcat(PC.error, " is empty");                  strcat(PC.error, " is empty");
                 YYERROR;                  YYERROR;
         }          }
         if(command==CLASS_NAME) {          if(*command==CLASS_NAME) {
                 if(PC.cclass->base_class()) { // already changed from default?                  if(PC.cclass->base_class()) { // already changed from default?
                         strcpy(PC.error, "class already have a name '");                          strcpy(PC.error, "class already have a name '");
                         strncat(PC.error, PC.cclass->name().cstr(), 100);                          strncat(PC.error, PC.cclass->name()->cstr(), 100);
                         strcat(PC.error, "'");                          strcat(PC.error, "'");
                         YYERROR;                          YYERROR;
                 }                  }
                 if(strings_code->size()==1*2) {                  if(strings_code->count()==1*2) {
                         // new class' name                          // new class' name
                         const String *name=LA2S(strings_code);                          StringPtr name=LA2S(*strings_code);
                         // creating the class                          // creating the class
                         PC.cclass=NEW VClass(POOL);                          VStateless_classPtr cclass(new VClass);
                         PC.cclass->set_name(*name);                          PC.cclass=cclass.get();
                           PC.cclass->set_name(name);
                         // append to request's classes                          // append to request's classes
                         PC.request->classes().put(*name, PC.cclass);                          PC.request->classes().put(name, cclass);
                 } else {                  } else {
                         strcpy(PC.error, "@"CLASS_NAME" must contain sole name");                          strcpy(PC.error, "@"CLASS_NAME" must contain sole name");
                         YYERROR;                          YYERROR;
                 }                  }
         } else if(command==USE_CONTROL_METHOD_NAME) {          } else if(*command==USE_CONTROL_METHOD_NAME) {
                 for(int i=0; i<strings_code->size(); i+=2)                   for(int i=0; i<strings_code->count(); i+=2) 
                         PC.request->use_file(*LA2S(strings_code, i));                          PC.request->use_file(*PC.request->main_class, LA2S(*strings_code, i));
         } else if(command==BASE_NAME) {          } else if(*command==BASE_NAME) {
                 if(PC.cclass->base_class()) { // already changed from default?                  if(PC.cclass->base_class()) { // already changed from default?
                         strcpy(PC.error, "class already have a base '");                          strcpy(PC.error, "class already have a base '");
                         strncat(PC.error, PC.cclass->base_class()->name().cstr(), 100);                          strncat(PC.error, PC.cclass->base_class()->name()->cstr(), 100);
                         strcat(PC.error, "'");                          strcat(PC.error, "'");
                         YYERROR;                          YYERROR;
                 }                  }
                 if(strings_code->size()==1*2) {                  if(strings_code->count()==1*2) {
                         const String& base_name=*LA2S(strings_code);                          StringPtr base_name=LA2S(*strings_code);
                         Value *vbase_class=static_cast<VClass *>(                          if(ValuePtr base_class_value=PC.request->classes().get(base_name)) {
                                 PC.request->classes().get(base_name));                                  // @CLASS == @BASE sanity check
                         VStateless_class *base_class=vbase_class?vbase_class->get_class():0;                                  if(VStateless_class *base_class=base_class_value->get_class()) {
                         if(!base_class) {                                          if(PC.cclass==base_class) {
                                 strcpy(PC.error, base_name.cstr());                                                  strcpy(PC.error, "@"CLASS_NAME" equals @"BASE_NAME);
                                                   YYERROR;
                                           }
                                           PC.cclass->get_class()->set_base(base_class);
                                   } else { // they asked to derive from a class without methods ['env' & co]
                                           strcpy(PC.error, base_name->cstr());
                                           strcat(PC.error, ": you can not derive from this class in @"BASE_NAME);
                                           YYERROR;
                                   }
                           } else {
                                   strcpy(PC.error, base_name->cstr());
                                 strcat(PC.error, ": undefined class in @"BASE_NAME);                                  strcat(PC.error, ": undefined class in @"BASE_NAME);
                                 YYERROR;                                  YYERROR;
                         }                          }
                         // @CLASS == @BASE sanity check  
                         if(PC.cclass==base_class) {  
                                 strcpy(PC.error, "@"CLASS_NAME" equals @"BASE_NAME);  
                                 YYERROR;  
                         }  
                         PC.cclass->set_base(base_class);  
                 } else {                  } else {
                         strcpy(PC.error, "@"BASE_NAME" must contain sole name");                          strcpy(PC.error, "@"BASE_NAME" must contain sole name");
                         YYERROR;                          YYERROR;
                 }                  }
         } else {          } else {
                 strcpy(PC.error, "'");                  strcpy(PC.error, "'");
                 strncat(PC.error, command.cstr(), MAX_STRING/2);                  strncat(PC.error, command->cstr(), MAX_STRING/2);
                 strcat(PC.error, "' invalid special name. valid names are "                  strcat(PC.error, "' invalid special name. valid names are "
                         "'"CLASS_NAME"', '"USE_CONTROL_METHOD_NAME"' and '"BASE_NAME"'");                          "'"CLASS_NAME"', '"USE_CONTROL_METHOD_NAME"' and '"BASE_NAME"'");
                 YYERROR;                  YYERROR;
Line 1098  case 8: Line 1116  case 8:
 ;  ;
     break;}      break;}
 case 12:  case 12:
 #line 195 "compile.y"  #line 203 "compile.y"
 { yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;  { yyval=yyvsp[-1]; P(*yyval, *yyvsp[0]) ;
     break;}      break;}
 case 16:  case 16:
 #line 200 "compile.y"  #line 208 "compile.y"
 {  {
         const String *name=LA2S(yyvsp[-5]);          StringPtr name=LA2S(*yyvsp[-5]);
   
         YYSTYPE params_names_code=yyvsp[-4];          YYSTYPE params_names_code=yyvsp[-4];
         Array *params_names=0;          ArrayStringPtr params_names;
         if(int size=params_names_code->size()) {          if(int size=params_names_code->count()) {
                 params_names=NEW Array(POOL);                  params_names=ArrayStringPtr(new ArrayString);
                 for(int i=0; i<size; i+=2)                  for(int i=0; i<size; i+=2)
                         *params_names+=LA2S(params_names_code, i);                          *params_names+=LA2S(*params_names_code, i);
         }          }
   
         YYSTYPE locals_names_code=yyvsp[-3];          YYSTYPE locals_names_code=yyvsp[-3];
         Array *locals_names=0;          ArrayStringPtr locals_names;
         if(int size=locals_names_code->size()) {          if(int size=locals_names_code->count()) {
                 locals_names=NEW Array(POOL);                  locals_names=ArrayStringPtr(new ArrayString);
                 for(int i=0; i<size; i+=2)                  for(int i=0; i<size; i+=2)
                         *locals_names+=LA2S(locals_names_code, i);                          *locals_names+=LA2S(*locals_names_code, i);
         }          }
   
         Method& method=*NEW Method(POOL,           MethodPtr method(new Method(
                 *name,                   name, 
                 Method::CT_ANY,                  Method::CT_ANY,
                 0, 0/*min,max numbered_params_count*/,                   0, 0/*min,max numbered_params_count*/, 
                 params_names, locals_names,                   params_names, locals_names, 
                 yyvsp[0], 0);                  yyvsp[0], 0));
         PC.cclass->add_method(*name, method);          PC.cclass->add_method(name, method);
 ;  ;
     break;}      break;}
 case 19:  case 19:
 #line 229 "compile.y"  #line 237 "compile.y"
 {yyval=yyvsp[-1];  {yyval=yyvsp[-1];
     break;}      break;}
 case 23:  case 23:
 #line 231 "compile.y"  #line 239 "compile.y"
 { yyval=yyvsp[-2]; P(yyval, yyvsp[0]) ;  { yyval=yyvsp[-2]; P(*yyval, *yyvsp[0]) ;
     break;}      break;}
 case 29:  case 29:
 #line 239 "compile.y"  #line 247 "compile.y"
 { yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;  { yyval=yyvsp[-1]; P(*yyval, *yyvsp[0]) ;
     break;}      break;}
 case 35:  case 35:
 #line 245 "compile.y"  #line 253 "compile.y"
 {  {
         yyval=yyvsp[0]; /* stack: resulting value */           yyval=yyvsp[0]; /* stack: resulting value */ 
         changetail_or_append(yyval,           changetail_or_append(*yyval, 
                 OP_GET_ELEMENT, false,  /*->*/OP_GET_ELEMENT__WRITE,                  OP_GET_ELEMENT, false,  /*->*/OP_GET_ELEMENT__WRITE,
                 /*or */OP_WRITE_VALUE                  /*or */OP_WRITE_VALUE
                 ); /* value=pop; wcontext.write(value) */                  ); /* value=pop; wcontext.write(value) */
 ;  ;
     break;}      break;}
 case 36:  case 36:
 #line 252 "compile.y"  #line 260 "compile.y"
 { yyval=yyvsp[0] ;  { yyval=yyvsp[0] ;
     break;}      break;}
 case 39:  case 39:
 #line 254 "compile.y"  #line 262 "compile.y"
 { yyval=yyvsp[-1] ;  { yyval=yyvsp[-1] ;
     break;}      break;}
 case 42:  case 42:
 #line 258 "compile.y"  #line 266 "compile.y"
 {  {
         yyval=N(POOL);           yyval=N(); 
         Array *diving_code=yyvsp[0];          ArrayOperationPtr diving_code=yyvsp[0];
         const String *first_name=LA2S(diving_code);          StringPtr first_name=LA2S(*diving_code);
         // self.xxx... -> xxx...          // self.xxx... -> xxx...
         // OP_VALUE+string+OP_GET_ELEMENT+... -> OP_WITH_SELF+...          // OP_VALUE+string+OP_GET_ELEMENT+... -> OP_WITH_SELF+...
         if(first_name && *first_name==SELF_ELEMENT_NAME) {          if(first_name && *first_name==SELF_ELEMENT_NAME) {
                 O(yyval, OP_WITH_SELF); /* stack: starting context */                  O(*yyval, OP_WITH_SELF); /* stack: starting context */
                 P(yyval, diving_code,                   P(*yyval, *diving_code, 
                         /* skip over... */                          /* skip over... */
                         diving_code->size()>=3?3/*OP_VALUE+string+OP_GET_ELEMENTx*/:2/*OP_+string*/);                          diving_code->count()>=3?3/*OP_VALUE+string+OP_GET_ELEMENTx*/:2/*OP_+string*/);
         } else {          } else {
                 O(yyval, OP_WITH_READ); /* stack: starting context */                  O(*yyval, OP_WITH_READ); /* stack: starting context */
   
                 // ^if ELEMENT -> ^if ELEMENT_OR_OPERATOR                  // ^if ELEMENT -> ^if ELEMENT_OR_OPERATOR
                 // OP_VALUE+string+OP_GET_ELEMENT. -> OP_VALUE+string+OP_GET_ELEMENT_OR_OPERATOR.                  // OP_VALUE+string+OP_GET_ELEMENT. -> OP_VALUE+string+OP_GET_ELEMENT_OR_OPERATOR.
                 if(PC.in_call_value && diving_code->size()==3)                  if(PC.in_call_value && diving_code->count()==3)
                         diving_code->put_int(2, OP_GET_ELEMENT_OR_OPERATOR);                          (*diving_code)[2].code=OP_GET_ELEMENT_OR_OPERATOR;
                 P(yyval, diving_code);                  P(*yyval, *diving_code);
         }          }
         /* diving code; stack: current context */          /* diving code; stack: current context */
 ;  ;
     break;}      break;}
 case 43:  case 43:
 #line 280 "compile.y"  #line 288 "compile.y"
 { yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;  { yyval=yyvsp[-1]; P(*yyval, *yyvsp[0]) ;
     break;}      break;}
 case 45:  case 45:
 #line 281 "compile.y"  #line 289 "compile.y"
 { yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;  { yyval=yyvsp[-1]; P(*yyval, *yyvsp[0]) ;
     break;}      break;}
 case 46:  case 46:
 #line 285 "compile.y"  #line 293 "compile.y"
 {  {
         yyval=yyvsp[-1]; /* stack: context,name */          yyval=yyvsp[-1]; /* stack: context,name */
         P(yyval, yyvsp[0]); /* stack: context,name,constructor_value */          P(*yyval, *yyvsp[0]); /* stack: context,name,constructor_value */
 ;  ;
     break;}      break;}
 case 50:  case 50:
 #line 293 "compile.y"  #line 301 "compile.y"
 {  {
         yyval=N(POOL);          yyval=N();
         Array *diving_code=yyvsp[0];          ArrayOperationPtr diving_code=yyvsp[0];
         const String *first_name=LA2S(diving_code);          StringPtr first_name=LA2S(*diving_code);
         // $self.xxx... -> $xxx...          // $self.xxx... -> $xxx...
         // OP_VALUE+string+OP_GET_ELEMENT+... -> OP_WITH_SELF+...          // OP_VALUE+string+OP_GET_ELEMENT+... -> OP_WITH_SELF+...
         if(first_name && *first_name==SELF_ELEMENT_NAME) {          if(first_name && *first_name==SELF_ELEMENT_NAME) {
                 O(yyval, OP_WITH_SELF); /* stack: starting context */                  O(*yyval, OP_WITH_SELF); /* stack: starting context */
                 P(yyval, diving_code,                   P(*yyval, *diving_code, 
                         /* skip over... */                          /* skip over... */
                         diving_code->size()>=3?3/*OP_VALUE+string+OP_GET_ELEMENTx*/:2/*OP_+string*/);                          diving_code->count()>=3?3/*OP_VALUE+string+OP_GET_ELEMENTx*/:2/*OP_+string*/);
         } else {          } else {
                 O(yyval, OP_WITH_ROOT); /* stack: starting context */                  O(*yyval, OP_WITH_ROOT); /* stack: starting context */
                 P(yyval, diving_code);                  P(*yyval, *diving_code);
         }          }
         /* diving code; stack: current context */          /* diving code; stack: current context */
 ;  ;
     break;}      break;}
 case 51:  case 51:
 #line 310 "compile.y"  #line 318 "compile.y"
 {  {
         yyval=N(POOL);           yyval=N(); 
         O(yyval, OP_WITH_WRITE); /* stack: starting context */          O(*yyval, OP_WITH_WRITE); /* stack: starting context */
         P(yyval, yyvsp[0]); /* diving code; stack: context,name */          P(*yyval, *yyvsp[0]); /* diving code; stack: context,name */
 ;  ;
     break;}      break;}
 case 52:  case 52:
 #line 315 "compile.y"  #line 323 "compile.y"
 { yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;  { yyval=yyvsp[-1]; P(*yyval, *yyvsp[0]) ;
     break;}      break;}
 case 56:  case 56:
 #line 322 "compile.y"  #line 330 "compile.y"
 {  {
         // stack: context, name          // stack: context, name
         yyval=yyvsp[-1]; // stack: context, name, value          yyval=yyvsp[-1]; // stack: context, name, value
         O(yyval, OP_CONSTRUCT_VALUE); /* value=pop; name=pop; context=pop; construct(context,name,value) */          O(*yyval, OP_CONSTRUCT_VALUE); /* value=pop; name=pop; context=pop; construct(context,name,value) */
 ;  ;
     break;}      break;}
 case 57:  case 57:
 #line 328 "compile.y"  #line 336 "compile.y"
 {   { 
         yyval=N(POOL);           yyval=N(); 
         O(yyval, OP_PREPARE_TO_EXPRESSION);          O(*yyval, OP_PREPARE_TO_EXPRESSION);
         // stack: context, name          // stack: context, name
         P(yyval, yyvsp[-1]); // stack: context, name, value          P(*yyval, *yyvsp[-1]); // stack: context, name, value
         O(yyval, OP_CONSTRUCT_EXPR); /* value=pop->as_expr_result; name=pop; context=pop; construct(context,name,value) */          O(*yyval, OP_CONSTRUCT_EXPR); /* value=pop->as_expr_result; name=pop; context=pop; construct(context,name,value) */
 ;  ;
     break;}      break;}
 case 58:  case 58:
 #line 336 "compile.y"  #line 344 "compile.y"
 {  {
         // stack: context, name          // stack: context, name
         yyval=N(POOL);           yyval=N(); 
         OA(yyval, OP_CURLY_CODE__CONSTRUCT, yyvsp[-1]); /* code=pop; name=pop; context=pop; construct(context,name,junction(code)) */          OA(*yyval, OP_CURLY_CODE__CONSTRUCT, yyvsp[-1]); /* code=pop; name=pop; context=pop; construct(context,name,junction(code)) */
 ;  ;
     break;}      break;}
 case 62:  case 62:
 #line 347 "compile.y"  #line 355 "compile.y"
 {  {
         yyval=N(POOL);           yyval=N(); 
         OA(yyval, OP_OBJECT_POOL, yyvsp[0]); /* stack: empty write context */          OA(*yyval, OP_OBJECT_POOL, yyvsp[0]); /* stack: empty write context */
         /* some code that writes to that context */          /* some code that writes to that context */
         /* context=pop; stack: context.value() */          /* context=pop; stack: context.value() */
 ;  ;
     break;}      break;}
 case 65:  case 65:
 #line 354 "compile.y"  #line 362 "compile.y"
 { yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;  { yyval=yyvsp[-1]; P(*yyval, *yyvsp[0]) ;
     break;}      break;}
 case 66:  case 66:
 #line 358 "compile.y"  #line 366 "compile.y"
 {  {
         yyval=yyvsp[0]; /* stack: value */          yyval=yyvsp[0]; /* stack: value */
         changetail_or_append(yyval,           changetail_or_append(*yyval, 
                 OP_CALL, true,  /*->*/ OP_CALL__WRITE,                  OP_CALL, true,  /*->*/ OP_CALL__WRITE,
                 /*or */OP_WRITE_VALUE); /* value=pop; wcontext.write(value) */                  /*or */OP_WRITE_VALUE); /* value=pop; wcontext.write(value) */
 ;  ;
     break;}      break;}
 case 67:  case 67:
 #line 364 "compile.y"  #line 372 "compile.y"
 {   { 
                                         PC.in_call_value=true;                                           PC.in_call_value=true; 
                         ;                          ;
     break;}      break;}
 case 68:  case 68:
 #line 367 "compile.y"  #line 375 "compile.y"
 {  {
                                 PC.in_call_value=false;                                  PC.in_call_value=false;
                         ;                          ;
     break;}      break;}
 case 69:  case 69:
 #line 370 "compile.y"  #line 378 "compile.y"
 { /* ^field.$method{vasya} */  { /* ^field.$method{vasya} */
         yyval=yyvsp[-3]; /* with_xxx,diving code; stack: context,method_junction */          yyval=yyvsp[-3]; /* with_xxx,diving code; stack: context,method_junction */
   
         YYSTYPE params_code=yyvsp[-1];          YYSTYPE params_code=yyvsp[-1];
         if(params_code->size()==3) { // probably [] case. [OP_VALUE + Void + STORE_PARAM]          if(params_code->count()==3) { // probably [] case. [OP_VALUE + Void + STORE_PARAM]
                 if(Value *value=LA2V(params_code)) // it is OP_VALUE + value?                  if(ValuePtr value=LA2V(*params_code)) // it is OP_VALUE + value?
                         if(!value->is_defined()) // value is VVoid?                          if(!value->is_defined()) // value is VVoid?
                                 params_code=0; // ^zzz[] case. don't append lone empty param.                                  params_code=YYSTYPE(0); // ^zzz[] case. don't append lone empty param.
         }          }
         /* stack: context, method_junction */          /* stack: context, method_junction */
         OA(yyval, OP_CALL, params_code); // method_frame=make frame(pop junction); ncontext=pop; call(ncontext,method_frame) stack: value          OA(*yyval, OP_CALL, params_code); // method_frame=make frame(pop junction); ncontext=pop; call(ncontext,method_frame) stack: value
 ;  ;
     break;}      break;}
 case 72:  case 72:
 #line 385 "compile.y"  #line 393 "compile.y"
 { yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;  { yyval=yyvsp[-1]; P(*yyval, *yyvsp[0]) ;
     break;}      break;}
 case 76:  case 76:
 #line 391 "compile.y"  #line 399 "compile.y"
 {yyval=yyvsp[-1];  {yyval=yyvsp[-1];
     break;}      break;}
 case 77:  case 77:
 #line 392 "compile.y"  #line 400 "compile.y"
 {yyval=yyvsp[-1];  {yyval=yyvsp[-1];
     break;}      break;}
 case 78:  case 78:
 #line 393 "compile.y"  #line 401 "compile.y"
 {yyval=yyvsp[-1];  {yyval=yyvsp[-1];
     break;}      break;}
 case 80:  case 80:
 #line 396 "compile.y"  #line 404 "compile.y"
 { yyval=yyvsp[-2]; P(yyval, yyvsp[0]) ;  { yyval=yyvsp[-2]; P(*yyval, *yyvsp[0]) ;
     break;}      break;}
 case 82:  case 82:
 #line 400 "compile.y"  #line 408 "compile.y"
 { yyval=yyvsp[-2]; P(yyval, yyvsp[0]) ;  { yyval=yyvsp[-2]; P(*yyval, *yyvsp[0]) ;
     break;}      break;}
 case 84:  case 84:
 #line 404 "compile.y"  #line 412 "compile.y"
 { yyval=yyvsp[-2]; P(yyval, yyvsp[0]) ;  { yyval=yyvsp[-2]; P(*yyval, *yyvsp[0]) ;
     break;}      break;}
 case 85:  case 85:
 #line 406 "compile.y"  #line 414 "compile.y"
 {  {
         yyval=yyvsp[0];          yyval=yyvsp[0];
         O(yyval, OP_STORE_PARAM);          O(*yyval, OP_STORE_PARAM);
 ;  ;
     break;}      break;}
 case 86:  case 86:
 #line 410 "compile.y"  #line 418 "compile.y"
 {  {
         yyval=N(POOL);           yyval=N(); 
         OA(yyval, OP_EXPR_CODE__STORE_PARAM, yyvsp[0]);          OA(*yyval, OP_EXPR_CODE__STORE_PARAM, yyvsp[0]);
 ;  ;
     break;}      break;}
 case 87:  case 87:
 #line 414 "compile.y"  #line 422 "compile.y"
 {  {
         yyval=N(POOL);           yyval=N(); 
         OA(yyval, OP_CURLY_CODE__STORE_PARAM, yyvsp[0]);          OA(*yyval, OP_CURLY_CODE__STORE_PARAM, yyvsp[0]);
 ;  ;
     break;}      break;}
 case 91:  case 91:
 #line 423 "compile.y"  #line 431 "compile.y"
 {  {
         yyval=N(POOL);           yyval=N(); 
         O(yyval, OP_PREPARE_TO_EXPRESSION);          O(*yyval, OP_PREPARE_TO_EXPRESSION);
         P(yyval, yyvsp[0]);          P(*yyval, *yyvsp[0]);
         O(yyval, OP_WRITE_EXPR_RESULT);          O(*yyval, OP_WRITE_EXPR_RESULT);
 ;  ;
     break;}      break;}
 case 93:  case 93:
 #line 432 "compile.y"  #line 440 "compile.y"
 { yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;  { yyval=yyvsp[-1]; P(*yyval, *yyvsp[0]) ;
     break;}      break;}
 case 95:  case 95:
 #line 434 "compile.y"  #line 442 "compile.y"
 { yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;  { yyval=yyvsp[-1]; P(*yyval, *yyvsp[0]) ;
     break;}      break;}
 case 97:  case 97:
 #line 436 "compile.y"  #line 444 "compile.y"
 {  {
         // we know that name_advance1 not called from ^xxx context          // we know that name_advance1 not called from ^xxx context
         // so we'll not check for operator call possibility as we do in name_advance2          // so we'll not check for operator call possibility as we do in name_advance2
   
         /* stack: context */          /* stack: context */
         yyval=yyvsp[0]; /* stack: context,name */          yyval=yyvsp[0]; /* stack: context,name */
         O(yyval, OP_GET_ELEMENT); /* name=pop; context=pop; stack: context.get_element(name) */          O(*yyval, OP_GET_ELEMENT); /* name=pop; context=pop; stack: context.get_element(name) */
 ;  ;
     break;}      break;}
 case 98:  case 98:
 #line 444 "compile.y"  #line 452 "compile.y"
 {  {
         /* stack: context */          /* stack: context */
         yyval=yyvsp[0]; /* stack: context,name */          yyval=yyvsp[0]; /* stack: context,name */
         O(yyval, OP_GET_ELEMENT); /* name=pop; context=pop; stack: context.get_element(name) */          O(*yyval, OP_GET_ELEMENT); /* name=pop; context=pop; stack: context.get_element(name) */
 ;  ;
     break;}      break;}
 case 104:  case 104:
 #line 457 "compile.y"  #line 465 "compile.y"
 {  {
         yyval=yyvsp[0];          yyval=yyvsp[0];
         O(yyval, OP_GET_ELEMENT);          O(*yyval, OP_GET_ELEMENT);
 ;  ;
     break;}      break;}
 case 105:  case 105:
 #line 461 "compile.y"  #line 469 "compile.y"
 {  {
         Array *code;          ArrayOperationPtr code;
         {          {
                 change_string_literal_to_write_string_literal(code=yyvsp[-1]);                  change_string_literal_to_write_string_literal(*(code=yyvsp[-1]));
                 P(code, yyvsp[0]);                  P(*code, *yyvsp[0]);
         }          }
         yyval=N(POOL);           yyval=N(); 
         OA(yyval, OP_STRING_POOL, code);          OA(*yyval, OP_STRING_POOL, code);
 ;  ;
     break;}      break;}
 case 106:  case 106:
 #line 470 "compile.y"  #line 478 "compile.y"
 {  {
         yyval=N(POOL);           yyval=N(); 
         OA(yyval, OP_OBJECT_POOL, yyvsp[-1]); /* stack: empty write context */          OA(*yyval, OP_OBJECT_POOL, yyvsp[-1]); /* stack: empty write context */
         /* some code that writes to that context */          /* some code that writes to that context */
         /* context=pop; stack: context.value() */          /* context=pop; stack: context.value() */
 ;  ;
     break;}      break;}
 case 107:  case 107:
 #line 476 "compile.y"  #line 484 "compile.y"
 {  {
         yyval=N(POOL);           yyval=N(); 
         O(yyval, OP_WITH_READ);          O(*yyval, OP_WITH_READ);
         P(yyval, yyvsp[0]);          P(*yyval, *yyvsp[0]);
 ;  ;
     break;}      break;}
 case 109:  case 109:
 #line 481 "compile.y"  #line 489 "compile.y"
 { yyval=yyvsp[-1]; P(yyval, yyvsp[0]) ;  { yyval=yyvsp[-1]; P(*yyval, *yyvsp[0]) ;
     break;}      break;}
 case 110:  case 110:
 #line 482 "compile.y"  #line 490 "compile.y"
 {  {
         yyval=yyvsp[0];          yyval=yyvsp[0];
         O(yyval, OP_GET_ELEMENT__WRITE);          O(*yyval, OP_GET_ELEMENT__WRITE);
 ;  ;
     break;}      break;}
 case 113:  case 113:
 #line 491 "compile.y"  #line 499 "compile.y"
 {  {
         yyval=yyvsp[-1]; // stack: class name string          yyval=yyvsp[-1]; // stack: class name string
         if(*LA2S(yyval) == BASE_NAME) { // pseude BASE class          if(*LA2S(*yyval) == BASE_NAME) { // pseude BASE class
                 if(VStateless_class *base=PC.cclass->base_class()) {                  if(VStateless_class* base=PC.cclass->base_class()) {
                         change_string_literal_value(yyval, base->name());                          change_string_literal_value(*yyval, base->name());
                 } else {                  } else {
                         strcpy(PC.error, "no base class declared");                          strcpy(PC.error, "no base class declared");
                         YYERROR;                          YYERROR;
                 }                  }
         }          }
         O(yyval, OP_GET_CLASS);          O(*yyval, OP_GET_CLASS);
 ;  ;
     break;}      break;}
 case 114:  case 114:
 #line 503 "compile.y"  #line 511 "compile.y"
 {  {
         yyval=yyvsp[-1];          yyval=yyvsp[-1];
         if(!PC.in_call_value) {          if(!PC.in_call_value) {
                 strcpy(PC.error, ":: not allowed here");                  strcpy(PC.error, ":: not allowed here");
                 YYERROR;                  YYERROR;
         }          }
         O(yyval, OP_PREPARE_TO_CONSTRUCT_OBJECT);          O(*yyval, OP_PREPARE_TO_CONSTRUCT_OBJECT);
 ;  ;
     break;}      break;}
 case 115:  case 115:
 #line 515 "compile.y"  #line 523 "compile.y"
 {  {
         // see OP_PREPARE_TO_EXPRESSION!!          // see OP_PREPARE_TO_EXPRESSION!!
         if((yyval=yyvsp[0])->size()==2) // only one string literal in there?          if((yyval=yyvsp[0])->count()==2) // only one string literal in there?
                 change_string_literal_to_double_literal(yyval); // make that string literal Double                  change_string_literal_to_double_literal(*yyval); // make that string literal Double
 ;  ;
     break;}      break;}
 case 119:  case 119:
 #line 524 "compile.y"  #line 532 "compile.y"
 { yyval = yyvsp[-1]; ;  { yyval = yyvsp[-1]; ;
     break;}      break;}
 case 120:  case 120:
 #line 525 "compile.y"  #line 533 "compile.y"
 { yyval = yyvsp[-1]; ;  { yyval = yyvsp[-1]; ;
     break;}      break;}
 case 121:  case 121:
 #line 526 "compile.y"  #line 534 "compile.y"
 { yyval = yyvsp[-1]; ;  { yyval = yyvsp[-1]; ;
     break;}      break;}
 case 122:  case 122:
 #line 528 "compile.y"  #line 536 "compile.y"
 { yyval=yyvsp[0];  O(yyval, OP_NEG) ;  { yyval=yyvsp[0];  O(*yyval, OP_NEG) ;
     break;}      break;}
 case 123:  case 123:
 #line 529 "compile.y"  #line 537 "compile.y"
 { yyval=yyvsp[0] ;  { yyval=yyvsp[0] ;
     break;}      break;}
 case 124:  case 124:
 #line 530 "compile.y"  #line 538 "compile.y"
 { yyval=yyvsp[0];        O(yyval, OP_INV) ;  { yyval=yyvsp[0];        O(*yyval, OP_INV) ;
     break;}      break;}
 case 125:  case 125:
 #line 531 "compile.y"  #line 539 "compile.y"
 { yyval=yyvsp[0];  O(yyval, OP_NOT) ;  { yyval=yyvsp[0];  O(*yyval, OP_NOT) ;
     break;}      break;}
 case 126:  case 126:
 #line 532 "compile.y"  #line 540 "compile.y"
 { yyval=yyvsp[0];  O(yyval, OP_DEF) ;  { yyval=yyvsp[0];  O(*yyval, OP_DEF) ;
     break;}      break;}
 case 127:  case 127:
 #line 533 "compile.y"  #line 541 "compile.y"
 { yyval=yyvsp[0];  O(yyval, OP_IN) ;  { yyval=yyvsp[0];  O(*yyval, OP_IN) ;
     break;}      break;}
 case 128:  case 128:
 #line 534 "compile.y"  #line 542 "compile.y"
 { yyval=yyvsp[0];  O(yyval, OP_FEXISTS) ;  { yyval=yyvsp[0];  O(*yyval, OP_FEXISTS) ;
     break;}      break;}
 case 129:  case 129:
 #line 535 "compile.y"  #line 543 "compile.y"
 { yyval=yyvsp[0];  O(yyval, OP_DEXISTS) ;  { yyval=yyvsp[0];  O(*yyval, OP_DEXISTS) ;
     break;}      break;}
 case 130:  case 130:
 #line 537 "compile.y"  #line 545 "compile.y"
 {       yyval=yyvsp[-2];  P(yyval, yyvsp[0]);  O(yyval, OP_SUB) ;  {       yyval=yyvsp[-2];  P(*yyval, *yyvsp[0]);  O(*yyval, OP_SUB) ;
     break;}      break;}
 case 131:  case 131:
 #line 538 "compile.y"  #line 546 "compile.y"
 { yyval=yyvsp[-2];  P(yyval, yyvsp[0]);  O(yyval, OP_ADD) ;  { yyval=yyvsp[-2];  P(*yyval, *yyvsp[0]);  O(*yyval, OP_ADD) ;
     break;}      break;}
 case 132:  case 132:
 #line 539 "compile.y"  #line 547 "compile.y"
 { yyval=yyvsp[-2];  P(yyval, yyvsp[0]);  O(yyval, OP_MUL) ;  { yyval=yyvsp[-2];  P(*yyval, *yyvsp[0]);  O(*yyval, OP_MUL) ;
     break;}      break;}
 case 133:  case 133:
 #line 540 "compile.y"  #line 548 "compile.y"
 { yyval=yyvsp[-2];  P(yyval, yyvsp[0]);  O(yyval, OP_DIV) ;  { yyval=yyvsp[-2];  P(*yyval, *yyvsp[0]);  O(*yyval, OP_DIV) ;
     break;}      break;}
 case 134:  case 134:
 #line 541 "compile.y"  #line 549 "compile.y"
 { yyval=yyvsp[-2];  P(yyval, yyvsp[0]);  O(yyval, OP_MOD) ;  { yyval=yyvsp[-2];  P(*yyval, *yyvsp[0]);  O(*yyval, OP_MOD) ;
     break;}      break;}
 case 135:  case 135:
 #line 542 "compile.y"  #line 550 "compile.y"
 { yyval=yyvsp[-2];  P(yyval, yyvsp[0]);  O(yyval, OP_INTDIV) ;  { yyval=yyvsp[-2];  P(*yyval, *yyvsp[0]);  O(*yyval, OP_INTDIV) ;
     break;}      break;}
 case 136:  case 136:
 #line 543 "compile.y"  #line 551 "compile.y"
 { yyval=yyvsp[-2];      P(yyval, yyvsp[0]);  O(yyval, OP_BIN_AND) ;  { yyval=yyvsp[-2];  P(*yyval, *yyvsp[0]);  O(*yyval, OP_BIN_SL) ;
     break;}      break;}
 case 137:  case 137:
 #line 544 "compile.y"  #line 552 "compile.y"
 { yyval=yyvsp[-2];  P(yyval, yyvsp[0]);  O(yyval, OP_BIN_OR) ;  { yyval=yyvsp[-2];  P(*yyval, *yyvsp[0]);  O(*yyval, OP_BIN_SR) ;
     break;}      break;}
 case 138:  case 138:
 #line 545 "compile.y"  #line 553 "compile.y"
 { yyval=yyvsp[-2];  P(yyval, yyvsp[0]);  O(yyval, OP_BIN_XOR) ;  { yyval=yyvsp[-2];      P(*yyval, *yyvsp[0]);  O(*yyval, OP_BIN_AND) ;
     break;}      break;}
 case 139:  case 139:
 #line 546 "compile.y"  #line 554 "compile.y"
 { yyval=yyvsp[-2];  OA(yyval, OP_NESTED_CODE, yyvsp[0]);  O(yyval, OP_LOG_AND) ;  { yyval=yyvsp[-2];  P(*yyval, *yyvsp[0]);  O(*yyval, OP_BIN_OR) ;
     break;}      break;}
 case 140:  case 140:
 #line 547 "compile.y"  #line 555 "compile.y"
 { yyval=yyvsp[-2];  OA(yyval, OP_NESTED_CODE, yyvsp[0]);  O(yyval, OP_LOG_OR) ;  { yyval=yyvsp[-2];  P(*yyval, *yyvsp[0]);  O(*yyval, OP_BIN_XOR) ;
     break;}      break;}
 case 141:  case 141:
 #line 548 "compile.y"  #line 556 "compile.y"
 { yyval=yyvsp[-2];  P(yyval, yyvsp[0]);  O(yyval, OP_LOG_XOR) ;  { yyval=yyvsp[-2];  OA(*yyval, OP_NESTED_CODE, yyvsp[0]);  O(*yyval, OP_LOG_AND) ;
     break;}      break;}
 case 142:  case 142:
 #line 549 "compile.y"  #line 557 "compile.y"
 { yyval=yyvsp[-2];  P(yyval, yyvsp[0]);  O(yyval, OP_NUM_LT) ;  { yyval=yyvsp[-2];  OA(*yyval, OP_NESTED_CODE, yyvsp[0]);  O(*yyval, OP_LOG_OR) ;
     break;}      break;}
 case 143:  case 143:
 #line 550 "compile.y"  #line 558 "compile.y"
 { yyval=yyvsp[-2];  P(yyval, yyvsp[0]);  O(yyval, OP_NUM_GT) ;  { yyval=yyvsp[-2];  P(*yyval, *yyvsp[0]);  O(*yyval, OP_LOG_XOR) ;
     break;}      break;}
 case 144:  case 144:
 #line 551 "compile.y"  #line 559 "compile.y"
 { yyval=yyvsp[-2];  P(yyval, yyvsp[0]);  O(yyval, OP_NUM_LE) ;  { yyval=yyvsp[-2];  P(*yyval, *yyvsp[0]);  O(*yyval, OP_NUM_LT) ;
     break;}      break;}
 case 145:  case 145:
 #line 552 "compile.y"  #line 560 "compile.y"
 { yyval=yyvsp[-2];  P(yyval, yyvsp[0]);  O(yyval, OP_NUM_GE) ;  { yyval=yyvsp[-2];  P(*yyval, *yyvsp[0]);  O(*yyval, OP_NUM_GT) ;
     break;}      break;}
 case 146:  case 146:
 #line 553 "compile.y"  #line 561 "compile.y"
 { yyval=yyvsp[-2];  P(yyval, yyvsp[0]);  O(yyval, OP_NUM_EQ) ;  { yyval=yyvsp[-2];  P(*yyval, *yyvsp[0]);  O(*yyval, OP_NUM_LE) ;
     break;}      break;}
 case 147:  case 147:
 #line 554 "compile.y"  #line 562 "compile.y"
 { yyval=yyvsp[-2];  P(yyval, yyvsp[0]);  O(yyval, OP_NUM_NE) ;  { yyval=yyvsp[-2];  P(*yyval, *yyvsp[0]);  O(*yyval, OP_NUM_GE) ;
     break;}      break;}
 case 148:  case 148:
 #line 555 "compile.y"  #line 563 "compile.y"
 { yyval=yyvsp[-2];  P(yyval, yyvsp[0]);  O(yyval, OP_STR_LT) ;  { yyval=yyvsp[-2];  P(*yyval, *yyvsp[0]);  O(*yyval, OP_NUM_EQ) ;
     break;}      break;}
 case 149:  case 149:
 #line 556 "compile.y"  #line 564 "compile.y"
 { yyval=yyvsp[-2];  P(yyval, yyvsp[0]);  O(yyval, OP_STR_GT) ;  { yyval=yyvsp[-2];  P(*yyval, *yyvsp[0]);  O(*yyval, OP_NUM_NE) ;
     break;}      break;}
 case 150:  case 150:
 #line 557 "compile.y"  #line 565 "compile.y"
 { yyval=yyvsp[-2];  P(yyval, yyvsp[0]);  O(yyval, OP_STR_LE) ;  { yyval=yyvsp[-2];  P(*yyval, *yyvsp[0]);  O(*yyval, OP_STR_LT) ;
     break;}      break;}
 case 151:  case 151:
 #line 558 "compile.y"  #line 566 "compile.y"
 { yyval=yyvsp[-2];  P(yyval, yyvsp[0]);  O(yyval, OP_STR_GE) ;  { yyval=yyvsp[-2];  P(*yyval, *yyvsp[0]);  O(*yyval, OP_STR_GT) ;
     break;}      break;}
 case 152:  case 152:
 #line 559 "compile.y"  #line 567 "compile.y"
 { yyval=yyvsp[-2];  P(yyval, yyvsp[0]);  O(yyval, OP_STR_EQ) ;  { yyval=yyvsp[-2];  P(*yyval, *yyvsp[0]);  O(*yyval, OP_STR_LE) ;
     break;}      break;}
 case 153:  case 153:
 #line 560 "compile.y"  #line 568 "compile.y"
 { yyval=yyvsp[-2];  P(yyval, yyvsp[0]);  O(yyval, OP_STR_NE) ;  { yyval=yyvsp[-2];  P(*yyval, *yyvsp[0]);  O(*yyval, OP_STR_GE) ;
     break;}      break;}
 case 154:  case 154:
 #line 561 "compile.y"  #line 569 "compile.y"
 { yyval=yyvsp[-2];  P(yyval, yyvsp[0]);  O(yyval, OP_IS) ;  { yyval=yyvsp[-2];  P(*yyval, *yyvsp[0]);  O(*yyval, OP_STR_EQ) ;
     break;}      break;}
 case 155:  case 155:
 #line 564 "compile.y"  #line 570 "compile.y"
   { yyval=yyvsp[-2];  P(*yyval, *yyvsp[0]);  O(*yyval, OP_STR_NE) ;
       break;}
   case 156:
   #line 571 "compile.y"
   { yyval=yyvsp[-2];  P(*yyval, *yyvsp[0]);  O(*yyval, OP_IS) ;
       break;}
   case 157:
   #line 574 "compile.y"
 {  {
         yyval=N(POOL);          yyval=N();
         OA(yyval, OP_STRING_POOL, yyvsp[0]); /* stack: empty write context */          OA(*yyval, OP_STRING_POOL, yyvsp[0]); /* stack: empty write context */
         /* some code that writes to that context */          /* some code that writes to that context */
         /* context=pop; stack: context.get_string() */          /* context=pop; stack: context.get_string() */
 ;  ;
     break;}      break;}
 case 156:  case 158:
 #line 573 "compile.y"  #line 583 "compile.y"
 {  {
         // optimized from OP_STRING+OP_WRITE_VALUE to OP_STRING__WRITE          // optimized from OP_STRING+OP_WRITE_VALUE to OP_STRING__WRITE
         change_string_literal_to_write_string_literal(yyval=yyvsp[0])          change_string_literal_to_write_string_literal(*(yyval=yyvsp[0]))
 ;  ;
     break;}      break;}
 case 157:  case 159:
 #line 578 "compile.y"  #line 588 "compile.y"
 { yyval=VL(NEW VVoid(POOL)) ;  { yyval=VL(ValuePtr(new VVoid())) ;
     break;}      break;}
 case 158:  case 160:
 #line 579 "compile.y"  #line 589 "compile.y"
 { yyval=N(POOL) ;  { yyval=N() ;
     break;}      break;}
 }  }
    /* the action file gets copied in in place of this dollarsign */     /* the action file gets copied in in place of this dollarsign */
 #line 543 "/usr/share/bison.simple"  #line 543 "/usr/lib/bison.simple"
   
   yyvsp -= yylen;    yyvsp -= yylen;
   yyssp -= yylen;    yyssp -= yylen;
Line 1864  yyerrhandle: Line 1890  yyerrhandle:
     }      }
   return 1;    return 1;
 }  }
 #line 581 "compile.y"  #line 591 "compile.y"
   
 #endif  #endif
   
Line 1924  static int yylex(YYSTYPE *lvalp, void *p Line 1950  static int yylex(YYSTYPE *lvalp, void *p
                         } else // @ in first column inside some code [when could that be?]                          } else // @ in first column inside some code [when could that be?]
                                 result=BAD_METHOD_DECL_START;                                  result=BAD_METHOD_DECL_START;
                         goto break2;                          goto break2;
                 } else if(c=='^')                  } else if(c=='^') {
                           if(PC.ls==LS_METHOD_AFTER) {
                                   // handle after-method situation
                                   pop_LS(PC);
                                   result=EON;
                                   skip_analized=-1; // return to punctuation afterwards to assure it's literality
                                   goto break2;
                           }
                         switch(PC.ls) {                          switch(PC.ls) {
 case LS_EXPRESSION_VAR_NAME_WITH_COLON:  case LS_EXPRESSION_VAR_NAME_WITH_COLON:
 case LS_EXPRESSION_VAR_NAME_WITHOUT_COLON:  case LS_EXPRESSION_VAR_NAME_WITHOUT_COLON:
Line 1932  case LS_VAR_NAME_SIMPLE_WITH_COLON: Line 1965  case LS_VAR_NAME_SIMPLE_WITH_COLON:
 case LS_VAR_NAME_SIMPLE_WITHOUT_COLON:  case LS_VAR_NAME_SIMPLE_WITHOUT_COLON:
 case LS_VAR_NAME_CURLY:  case LS_VAR_NAME_CURLY:
 case LS_METHOD_NAME:  case LS_METHOD_NAME:
 case LS_COMMENT:  case LS_USER_COMMENT:
 case LS_DEF_COMMENT:  case LS_DEF_COMMENT:
         // no literals in names, please          // no literals in names, please
         break;          break;
Line 1949  default: Line 1982  default:
                                         PC.string->APPEND_CLEAN(begin, end-begin, PC.file, begin_line);                                          PC.string->APPEND_CLEAN(begin, end-begin, PC.file, begin_line);
                                 }                                  }
                                 // reset piece 'begin' position & line                                  // reset piece 'begin' position & line
                                 end=begin=PC.source; // ^                                  begin=PC.source; // ->punctuation
                                 begin_line=PC.line;                                  begin_line=PC.line;
                                 if(PC.ls==LS_METHOD_AFTER) {                                  // skip over _ after ^
                                         pop_LS(PC);                                  PC.source++;  PC.col++;
                                         result=EON;                                  // skip analysis = forced literal
                                         skip_analized=-1; // return to ^ afterwards to assure it's literality                                  continue;
                                         goto break2;  
                                 } else {  
                                         // skip over _ after ^  
                                         PC.source++;  PC.col++;  
                                         // skip analysis = forced literal  
                                         continue;  
                                 }  
   
                         // converting ^#HH into char(hex(HH))                          // converting ^#HH into char(hex(HH))
                         case '#':                          case '#':
Line 1985  default: Line 2011  default:
                                         PC.source+=3;                                          PC.source+=3;
                                         PC.col+=3;                                          PC.col+=3;
                                         // reset piece 'begin' position & line                                          // reset piece 'begin' position & line
                                         begin=PC.source; // ^                                          begin=PC.source; // ->after ^#HH
                                         begin_line=PC.line;                                          begin_line=PC.line;
                                           // skip analysis = forced literal
                                         continue;                                          continue;
                                 }                                  }
                                 break;                                  break;
                         }                          }
                         break;                          break;
                           }
                 }                  }
                 // #comment  start skipping                  // #comment  start skipping
                 if(c=='#' && PC.col==1) {                  if(c=='#' && PC.col==1) {
Line 2000  default: Line 2028  default:
                                 PC.string->APPEND_CLEAN(begin, end-begin, PC.file, begin_line);                                  PC.string->APPEND_CLEAN(begin, end-begin, PC.file, begin_line);
                         }                          }
                         // fall into COMMENT lexical state [wait for \n]                          // fall into COMMENT lexical state [wait for \n]
                         push_LS(PC, LS_COMMENT);                          push_LS(PC, LS_USER_COMMENT);
                         continue;                          continue;
                 }                  }
                 switch(PC.ls) {                  switch(PC.ls) {
Line 2039  default: Line 2067  default:
                         break;                          break;
                                                   
                 // #COMMENT                  // #COMMENT
                 case LS_COMMENT:                  case LS_USER_COMMENT:
                         if(c=='\n') {                          if(c=='\n') {
                                 // skip comment                                  // skip comment
                                 begin=PC.source;                                  begin=PC.source;
Line 2137  default: Line 2165  default:
                                         else // PC.ls==LS_VAR_ROUND // variable constructor ended                                          else // PC.ls==LS_VAR_ROUND // variable constructor ended
                                                 pop_LS(PC); // return to normal life                                                  pop_LS(PC); // return to normal life
                                 RC;                                  RC;
                           case '#': // comment start skipping
                                   if(end!=begin) {
                                           // append piece till #
                                           PC.string->APPEND_CLEAN(begin, end-begin, PC.file, begin_line);
                                   }
                                   // fall into COMMENT lexical state [wait for \n]
                                   push_LS(PC, LS_EXPRESSION_COMMENT);
                                   lexical_brackets_nestage=1;
                                   continue;
                         case '$':                          case '$':
                                 push_LS(PC, LS_EXPRESSION_VAR_NAME_WITH_COLON);                                                           push_LS(PC, LS_EXPRESSION_VAR_NAME_WITH_COLON);                         
                                 RC;                                  RC;
Line 2165  default: Line 2202  default:
                         case '~':                          case '~':
                         case ';':                          case ';':
                                 RC;                                  RC;
                         //case '#': // comment start  
                         case '&': case '|':                          case '&': case '|':
                                 if(*PC.source==c) { // && ||                                  if(*PC.source==c) { // && ||
                                         result=c=='&'?LAND:LOR;                                          result=c=='&'?LAND:LOR;
Line 2189  default: Line 2225  default:
                                         goto break2;                                          goto break2;
                                 }                                  }
                                 RC;                                  RC;
                         case '<': case '>': case '=':   
                                 if(*PC.source=='=') { // <= >= ==                          case '<': // <<, <=, <
                                         skip_analized=1;                                  switch(*PC.source) {
                                         switch(c) {                                  case '<': // <[<]
                                         case '<': result=NLE; break;                                          skip_analized=1; result=NSL; break;
                                         case '>': result=NGE; break;                                  case '=': // <[=]
                                         case '=': result=NEQ; break;                                          skip_analized=1; result=NLE; break;
                                         }                                  default: // <[]
                                 } else                                          result=c; break;
                                         result=c;                                  }
                                   goto break2;
                           case '>': // >>, >=, >
                                   switch(*PC.source) {
                                   case '>': // >[>]
                                           skip_analized=1; result=NSR; break;
                                   case '=': // >[=]
                                           skip_analized=1; result=NGE; break;
                                   default: // >[]
                                           result=c; break;
                                   }
                                 goto break2;                                  goto break2;
                           case '=': // ==
                                   switch(*PC.source) {
                                   case '=': // =[=]
                                           skip_analized=1; result=NEQ; break;
                                   default: // =[]
                                           result=c; break; // not used now
                                   }
                                   goto break2;
   
                         case '"':                          case '"':
                                 push_LS(PC, LS_EXPRESSION_STRING_QUOTED);                                  push_LS(PC, LS_EXPRESSION_STRING_QUOTED);
                                 RC;                                  RC;
Line 2262  default: Line 2317  default:
                                 continue;                                  continue;
                         }                          }
                         break;                          break;
                   case LS_EXPRESSION_COMMENT:
                           if(c=='(')
                                   lexical_brackets_nestage++;
                           
                           switch(*PC.source) {
                           case '\n': case ')':
                                   if(*PC.source==')')
                                           if(--lexical_brackets_nestage!=0)
                                                   continue;
   
                                   // skip comment
                                   begin=PC.source;
                                   begin_line=PC.line;
   
                                   pop_LS(PC);
                                   continue;
                           }
                           break;
   
                 // VARIABLE GET/PUT/WITH                  // VARIABLE GET/PUT/WITH
                 case LS_VAR_NAME_SIMPLE_WITH_COLON:                   case LS_VAR_NAME_SIMPLE_WITH_COLON: 
Line 2525  break2: Line 2598  break2:
                         if(end!=begin && end[-1]=='\n') // allow one empty line before LS_DEF_NAME                          if(end!=begin && end[-1]=='\n') // allow one empty line before LS_DEF_NAME
                                 end--;                                  end--;
                 }                  }
                 if(end!=begin && PC.ls!=LS_COMMENT) { // last piece still alive and not comment?                  if(end!=begin && PC.ls!=LS_USER_COMMENT) { // last piece still alive and not comment?
                         // append it                          // append it
                         PC.string->APPEND_CLEAN(begin, end-begin, PC.file, begin_line/*, start_col*/);                          PC.string->APPEND_CLEAN(begin, end-begin, PC.file, begin_line/*, start_col*/);
                 }                  }
         }          }
         if(PC.string->size()) { // something accumulated?          if(PC.string->size()) { // something accumulated?
                 // create STRING value: array of OP_VALUE+vstring                  // create STRING value: array of OP_VALUE+vstring
                 *lvalp=VL(NEW VString(*PC.string));                  *lvalp=VL(ValuePtr(new VString(PC.string)));
                 // new pieces storage                  // new pieces storage
                 PC.string=NEW String(POOL);                  PC.string=StringPtr(new String);
                 // make current result be pending for next call, return STRING for now                  // make current result be pending for next call, return STRING for now
                 PC.pending_state=result;  result=STRING;                  PC.pending_state=result;  result=STRING;
         }          }
Line 2551  static int real_yyerror(parse_control *p Line 2624  static int real_yyerror(parse_control *p
   
 static void yyprint(FILE *file, int type, YYSTYPE value) {  static void yyprint(FILE *file, int type, YYSTYPE value) {
         if(type==STRING)          if(type==STRING)
                 fprintf(file, " \"%s\"", LA2S(value)->cstr());                  fprintf(file, " \"%s\"", LA2S(*value)->cstr().get());
 }  }

Removed from v.1.65  
changed lines
  Added in v.1.81.2.7


E-mail: