fincyacc.c

FinC is Fava in C! A C-like syntax language. It s designed to apply to embededd system.

{ finc_lang_func_opt_param(); ;
    break;}
case 35:
#line 170 "fincyacc.y"
{ yyval.expr = NULL; ;
    break;}
case 38:
#line 177 "fincyacc.y"
{ finc_lang_func_add_param (yyvsp[-1].expr, yyvsp[0].expr); ;
    break;}
case 39:
#line 179 "fincyacc.y"
{
      yyvsp[-3].expr->type->array_type = FinCArrayType_Dynamic;
      yyvsp[-3].expr->type->array_size = 0;
      finc_lang_func_add_param (yyvsp[-3].expr, yyvsp[-2].expr);
    ;
    break;}
case 40:
#line 185 "fincyacc.y"
{ finc_lang_error ("Expecting a ']'\n"); ;
    break;}
case 41:
#line 187 "fincyacc.y"
{
      yyvsp[-4].expr->type->array_type = FinCArrayType_Fixed;
      yyvsp[-4].expr->type->array_size = yyvsp[-1].val_int;
      finc_lang_func_add_param (yyvsp[-4].expr, yyvsp[-3].expr);
    ;
    break;}
case 42:
#line 193 "fincyacc.y"
{ finc_lang_error ("Expecting a ']'\n"); ;
    break;}
case 43:
#line 197 "fincyacc.y"
{ yyval.expr = finc_lang_efunc_create1 ("import", finc_lang_data_string_create (yyvsp[-1].val_string)); ;
    break;}
case 44:
#line 199 "fincyacc.y"
{ yyval.expr = NULL;
      finc_lang_error ("Missing a ';' in import");
    ;
    break;}
case 45:
#line 205 "fincyacc.y"
{ finc_lang_pkg_begin(yyvsp[0].val_string); ;
    break;}
case 46:
#line 209 "fincyacc.y"
{ yyval.expr = finc_lang_pkg_end(); ;
    break;}
case 49:
#line 219 "fincyacc.y"
{ finc_lang_func_create(yyvsp[-1].expr, yyvsp[0].expr); ;
    break;}
case 50:
#line 221 "fincyacc.y"
{ yyval.expr = finc_lang_pkg_func_add(); ;
    break;}
case 51:
#line 229 "fincyacc.y"
{ yyval.expr = finc_lang_type_create (yyvsp[0].type, FinCArrayType_None, 0); ;
    break;}
case 52:
#line 230 "fincyacc.y"
{ yyval.expr = finc_lang_type_create_name (yyvsp[0].expr, FinCArrayType_None, 0); ;
    break;}
case 53:
#line 234 "fincyacc.y"
{ yyval.type = yyvsp[0].type; ;
    break;}
case 54:
#line 235 "fincyacc.y"
{ yyval.type = yyvsp[-1].type || yyvsp[0].type; ;
    break;}
case 55:
#line 239 "fincyacc.y"
{ yyval.type = FinCType_Void; ;
    break;}
case 56:
#line 240 "fincyacc.y"
{ yyval.type = FinCType_Char; ;
    break;}
case 57:
#line 241 "fincyacc.y"
{ yyval.type = FinCType_Short; ;
    break;}
case 58:
#line 242 "fincyacc.y"
{ yyval.type = FinCType_Int; ;
    break;}
case 59:
#line 243 "fincyacc.y"
{ yyval.type = FinCType_String; ;
    break;}
case 60:
#line 244 "fincyacc.y"
{ yyval.type = FinCType_Pointer; ;
    break;}
case 61:
#line 245 "fincyacc.y"
{ yyval.type = FinCType_Float; ;
    break;}
case 62:
#line 246 "fincyacc.y"
{ yyval.type = FinCType_Double; ;
    break;}
case 63:
#line 247 "fincyacc.y"
{ yyval.type = FinCType_Bool; ;
    break;}
case 64:
#line 248 "fincyacc.y"
{ yyval.type = FinCType_Static; ;
    break;}
case 65:
#line 249 "fincyacc.y"
{ yyval.type = FinCType_Unsigned; ;
    break;}
case 66:
#line 250 "fincyacc.y"
{ yyval.type = FinCType_Native; ;
    break;}
case 67:
#line 254 "fincyacc.y"
{ yyval.expr =  finc_node_new_name (yyvsp[0].identifier); ;
    break;}
case 68:
#line 258 "fincyacc.y"
{ yyval.expr = finc_lang_data_string_create (yyvsp[0].val_string);   ;
    break;}
case 69:
#line 259 "fincyacc.y"
{ yyval.expr = finc_lang_data_integer_create (yyvsp[0].val_int);  ;
    break;}
case 70:
#line 260 "fincyacc.y"
{ yyval.expr = finc_lang_data_float_create (yyvsp[0].val_float);    ;
    break;}
case 71:
#line 261 "fincyacc.y"
{ yyval.expr = finc_lang_data_bool_create (TRUE);   ;
    break;}
case 72:
#line 262 "fincyacc.y"
{ yyval.expr = finc_lang_data_bool_create (FALSE);  ;
    break;}
case 73:
#line 263 "fincyacc.y"
{ yyval.expr = finc_lang_data_pointer_create (NULL); ;
    break;}
case 74:
#line 271 "fincyacc.y"
{ yyval.expr = yyvsp[0].expr; ;
    break;}
case 75:
#line 272 "fincyacc.y"
{ yyval.expr = finc_lang_efunc_create2 (",", yyvsp[-2].expr, yyvsp[0].expr);;
    break;}
case 77:
#line 277 "fincyacc.y"
{ yyval.expr = finc_lang_efunc_create2 ("=", yyvsp[-2].expr, yyvsp[0].expr); ;
    break;}
case 78:
#line 281 "fincyacc.y"
{ yyval.expr =yyvsp[0].expr; ;
    break;}
case 79:
#line 282 "fincyacc.y"
{ yyval.expr = finc_lang_efunc_create3("?", yyvsp[-4].expr, yyvsp[-2].expr, yyvsp[0].expr); ;
    break;}
case 80:
#line 286 "fincyacc.y"
{ yyval.expr = yyvsp[0].expr; ;
    break;}
case 81:
#line 287 "fincyacc.y"
{ yyval.expr = finc_lang_efunc_create2 ("||", yyvsp[-3].expr, yyvsp[0].expr); ;
    break;}
case 82:
#line 291 "fincyacc.y"
{ yyval.expr = yyvsp[0].expr; ;
    break;}
case 83:
#line 292 "fincyacc.y"
{ yyval.expr = finc_lang_efunc_create2 ("&&", yyvsp[-3].expr, yyvsp[0].expr); ;
    break;}
case 84:
#line 296 "fincyacc.y"
{ yyval.expr = yyvsp[0].expr; ;
    break;}
case 85:
#line 297 "fincyacc.y"
{ yyval.expr = finc_lang_efunc_create2 ("==", yyvsp[-2].expr, yyvsp[0].expr); ;
    break;}
case 86:
#line 298 "fincyacc.y"
{ yyval.expr = finc_lang_efunc_create2 ("!=", yyvsp[-2].expr, yyvsp[0].expr); ;
    break;}
case 87:
#line 302 "fincyacc.y"
{ yyval.expr = yyvsp[0].expr; ;
    break;}
case 88:
#line 303 "fincyacc.y"
{ yyval.expr = finc_lang_efunc_create2 ("<", yyvsp[-2].expr, yyvsp[0].expr); ;
    break;}
case 89:
#line 304 "fincyacc.y"
{ yyval.expr = finc_lang_efunc_create2 (">", yyvsp[-2].expr, yyvsp[0].expr); ;
    break;}
case 90:
#line 305 "fincyacc.y"
{ yyval.expr = finc_lang_efunc_create2 ("<=", yyvsp[-2].expr, yyvsp[0].expr); ;
    break;}
case 91:
#line 306 "fincyacc.y"
{ yyval.expr = finc_lang_efunc_create2 (">=", yyvsp[-2].expr, yyvsp[0].expr); ;
    break;}
case 92:
#line 310 "fincyacc.y"
{ yyval.expr = yyvsp[0].expr; ;
    break;}
case 93:
#line 311 "fincyacc.y"
{ yyval.expr = finc_lang_efunc_create2 ("-", yyvsp[-2].expr, yyvsp[0].expr); ;
    break;}
case 94:
#line 312 "fincyacc.y"
{ yyval.expr = finc_lang_efunc_create2 ("+", yyvsp[-2].expr, yyvsp[0].expr); ;
    break;}
case 95:
#line 316 "fincyacc.y"
{ yyval.expr = yyvsp[0].expr; ;
    break;}
case 96:
#line 317 "fincyacc.y"
{ yyval.expr = finc_lang_efunc_create2 ("*", yyvsp[-2].expr, yyvsp[0].expr); ;
    break;}
case 97:
#line 318 "fincyacc.y"
{ yyval.expr = finc_lang_efunc_create2 ("/", yyvsp[-2].expr, yyvsp[0].expr); ;
    break;}
case 98:
#line 322 "fincyacc.y"
{ yyval.expr =yyvsp[0].expr; ;
    break;}
case 99:
#line 323 "fincyacc.y"
{ yyval.expr = finc_lang_efunc_create2 ("cast", yyvsp[-2].expr, yyvsp[0].expr); ;
    break;}
case 100:
#line 327 "fincyacc.y"
{ yyval.expr = yyvsp[0].expr; ;
    break;}
case 101:
#line 328 "fincyacc.y"
{ yyval.expr = finc_lang_efunc_create1 ("plus", yyvsp[0].expr); ;
    break;}
case 102:
#line 329 "fincyacc.y"
{ yyval.expr = finc_lang_efunc_create1 ("negative", yyvsp[0].expr); ;
    break;}
case 103:
#line 330 "fincyacc.y"
{ yyval.expr = finc_lang_efunc_create1 ("addr_of", yyvsp[-1].expr); ;
    break;}
case 104:
#line 331 "fincyacc.y"
{ yyval.expr = finc_lang_efunc_create1 ("content_of", yyvsp[-1].expr);
    break;}
case 105:
#line 333 "fincyacc.y"
{ yyval.expr = NULL;
      finc_lang_error("Missing '(' in addrof operator");
      yyerrok;
    ;
    break;}
case 106:
#line 338 "fincyacc.y"
{ yyval.expr = NULL;
      finc_lang_error("addrof is expecting an <expr>");
      yyerrok;
    ;
    break;}
case 107:
#line 343 "fincyacc.y"
{ yyval.expr = NULL;
      finc_lang_error("Missing ')' in addrof operator");
      yyerrok;
    ;
    break;}
case 108:
#line 348 "fincyacc.y"
{ yyval.expr = NULL;
      finc_lang_error("Missing '(' in contentof operator");
      yyerrok;
    ;
    break;}
case 109:
#line 353 "fincyacc.y"
{ yyval.expr = NULL;
      finc_lang_error("contentof is expecting an <expr>");
      yyerrok;
    ;
    break;}
case 110:
#line 358 "fincyacc.y"
{ yyval.expr = NULL;
      finc_lang_error("Missing ')' in contentof operator");
      yyerrok;
    ;
    break;}
case 111:
#line 365 "fincyacc.y"
{ yyval.expr = yyvsp[0].expr; ;
    break;}
case 112:
#line 366 "fincyacc.y"
{ yyval.expr = finc_lang_efunc_create2 ("[]", yyvsp[-3].expr, yyvsp[-1].expr); ;
    break;}
case 113:
#line 367 "fincyacc.y"
{ yyval.expr = finc_lang_efunc_create1 ("++", yyvsp[-1].expr);;
    break;}
case 114:
#line 368 "fincyacc.y"
{ yyval.expr = finc_lang_efunc_create1 ("--", yyvsp[-1].expr);;
    break;}
case 115:
#line 369 "fincyacc.y"
{ yyval.expr = finc_lang_efunc_create2 (".", yyvsp[-2].expr, yyvsp[0].expr); ;
    break;}
case 116:
#line 371 "fincyacc.y"
{ finc_lang_call_begin (string_get_str (yyvsp[0].expr->identifier));
    unref (yyvsp[0].expr);
  ;
    break;}
case 117:
#line 375 "fincyacc.y"
{ yyval.expr = finc_lang_call_end (); ;
    break;}
case 118:
#line 379 "fincyacc.y"
{ yyval.expr = yyvsp[0].expr; ;
    break;}
case 119:
#line 380 "fincyacc.y"
{ yyval.expr = yyvsp[-1].expr; ;
    break;}
case 120:
#line 381 "fincyacc.y"
{ yyval.expr = yyvsp[0].expr; ;
    break;}
case 121:
#line 385 "fincyacc.y"
{ yyval.expr = NULL; ;
    break;}
case 122:
#line 386 "fincyacc.y"
{ finc_lang_call_add (yyvsp[0].expr); ;
    break;}
case 123:
#line 387 "fincyacc.y"
{ finc_lang_call_add (yyvsp[0].expr); ;
    break;}
case 124:
#line 395 "fincyacc.y"
{ yyval.expr = yyvsp[0].expr; ;
    break;}
case 125:
#line 396 "fincyacc.y"
{ yyval.expr = yyvsp[0].expr; ;
    break;}
case 126:
#line 397 "fincyacc.y"
{ yyval.expr = yyvsp[0].expr; ;
    break;}
case 127:
#line 398 "fincyacc.y"
{ yyval.expr = yyvsp[0].expr; ;
    break;}
case 128:
#line 399 "fincyacc.y"
{ yyval.expr = yyvsp[0].expr; ;
    break;}
case 129:
#line 400 "fincyacc.y"
{ yyval.expr = yyvsp[0].expr; ;
    break;}
case 130: