2152 char *yymsg = yymsgbuf;
2153 YYSIZE_T yymsg_alloc =
sizeof yymsgbuf;
2156 #define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N)) 2167 YYDPRINTF ((stderr,
"Starting parse\n"));
2194 if (yyss + yystacksize - 1 <= yyssp)
2197 YYSIZE_T yysize = yyssp - yyss + 1;
2211 yyoverflow (
YY_(
"memory exhausted"),
2212 &yyss1, yysize *
sizeof (*yyssp),
2213 &yyvs1, yysize *
sizeof (*yyvsp),
2220 # ifndef YYSTACK_RELOCATE 2221 goto yyexhaustedlab;
2225 goto yyexhaustedlab;
2232 union yyalloc *yyptr =
2233 (
union yyalloc *)
YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize));
2235 goto yyexhaustedlab;
2236 YYSTACK_RELOCATE (yyss_alloc, yyss);
2237 YYSTACK_RELOCATE (yyvs_alloc, yyvs);
2238 # undef YYSTACK_RELOCATE 2245 yyssp = yyss + yysize - 1;
2246 yyvsp = yyvs + yysize - 1;
2248 YYDPRINTF ((stderr,
"Stack size increased to %lu\n",
2249 (
unsigned long int) yystacksize));
2251 if (yyss + yystacksize - 1 <= yyssp)
2255 YYDPRINTF ((stderr,
"Entering state %d\n", yystate));
2280 YYDPRINTF ((stderr,
"Reading a token: "));
2284 if (yychar <=
YYEOF)
2286 yychar = yytoken =
YYEOF;
2287 YYDPRINTF ((stderr,
"Now at end of input.\n"));
2351 yyval = yyvsp[1-yylen];
2360 #line 319 "grammar.y" 2396 #line 354 "grammar.y" 2403 #line 356 "grammar.y" 2410 #line 358 "grammar.y" 2419 #line 362 "grammar.y" 2429 #line 367 "grammar.y" 2436 #line 369 "grammar.y" 2446 if ((
inerror!=3) && ((yyvsp[(1) - (2)].
i)<
UMINUS) && ((yyvsp[(1) - (2)].
i)>
' '))
2490 #line 427 "grammar.y" 2497 #line 430 "grammar.y" 2504 #line 445 "grammar.y" 2513 #line 452 "grammar.y" 2523 #line 457 "grammar.y" 2525 syMake(&(yyval.lv),(yyvsp[(1) - (1)].name));
2532 #line 461 "grammar.y" 2541 #line 465 "grammar.y" 2543 if(
iiExprArith2(&(yyval.lv), &(yyvsp[(1) - (3)].lv),
'.', &(yyvsp[(3) - (3)].lv)))
YYERROR;
2550 #line 469 "grammar.y" 2559 #line 473 "grammar.y" 2561 if ((yyvsp[(1) - (4)].lv).
next==
NULL)
2564 memcpy((yyvsp[(1) - (4)].lv).
next,&(yyvsp[(3) - (4)].lv),
sizeof(
sleftv));
2567 else if ((yyvsp[(1) - (4)].lv).rtyp==
UNKNOWN)
2578 #line 487 "grammar.y" 2582 memset(&(yyval.lv),0,
sizeof(
sleftv));
2584 leftv v = &(yyvsp[(2) - (3)].lv);
2589 memset(&tmp,0,
sizeof(tmp));
2594 (yyvsp[(2) - (3)].lv).CleanUp();
2599 (yyval.lv).data = (
void *)
pAdd((
poly)(yyval.lv).data,p);
2604 (yyvsp[(2) - (3)].lv).CleanUp();
2611 #line 515 "grammar.y" 2613 memset(&(yyval.lv),0,
sizeof((yyval.lv)));
2614 int i = atoi((yyvsp[(1) - (1)].
name));
2618 (yyval.lv).data = (
void *)(long)i;
2621 int l = strlen((yyvsp[(1) - (1)].
name))+2;
2626 sprintf(tmp,
"%d",i);
2627 if (strcmp(tmp,(yyvsp[(1) - (1)].
name))!=0)
2631 (yyval.lv).data = n;
2640 #line 539 "grammar.y" 2642 memset(&(yyval.lv),0,
sizeof((yyval.lv)));
2643 (yyval.lv).rtyp = (yyvsp[(1) - (1)].i);
2644 (yyval.lv).data = (yyval.lv).Data();
2651 #line 545 "grammar.y" 2653 memset(&(yyval.lv),0,
sizeof((yyval.lv)));
2655 (yyval.lv).data = (yyvsp[(1) - (1)].
name);
2662 #line 551 "grammar.y" 2671 #line 555 "grammar.y" 2680 #line 559 "grammar.y" 2689 #line 563 "grammar.y" 2698 #line 567 "grammar.y" 2707 #line 571 "grammar.y" 2716 #line 575 "grammar.y" 2725 #line 579 "grammar.y" 2734 #line 583 "grammar.y" 2743 #line 587 "grammar.y" 2752 #line 591 "grammar.y" 2761 #line 595 "grammar.y" 2763 if(
iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),
TRUE))
YYERROR;
2770 #line 599 "grammar.y" 2772 if(
iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),
TRUE))
YYERROR;
2779 #line 603 "grammar.y" 2781 if(
iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),
TRUE))
YYERROR;
2788 #line 607 "grammar.y" 2790 if(
iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),
TRUE))
YYERROR;
2797 #line 611 "grammar.y" 2799 if(
iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv)))
YYERROR;
2806 #line 615 "grammar.y" 2808 if(
iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv)))
YYERROR;
2815 #line 619 "grammar.y" 2817 if(
iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv)))
YYERROR;
2824 #line 623 "grammar.y" 2826 if(
iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv)))
YYERROR;
2833 #line 627 "grammar.y" 2842 #line 631 "grammar.y" 2844 int b=
iiExprArithM(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i));
2853 #line 637 "grammar.y" 2855 if(
iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv)))
YYERROR;
2862 #line 641 "grammar.y" 2871 #line 645 "grammar.y" 2880 #line 649 "grammar.y" 2889 #line 653 "grammar.y" 2891 if (
iiARROW(&(yyval.lv),(yyvsp[(1) - (3)].name),(yyvsp[(3) - (3)].name)))
YYERROR;
2898 #line 656 "grammar.y" 2899 { (yyval.lv) = (yyvsp[(2) - (3)].lv); ;}
2905 #line 661 "grammar.y" 2907 leftv v = &(yyvsp[(1) - (3)].lv);
2913 memcpy(v->
next,&((yyvsp[(3) - (3)].lv)),
sizeof(
sleftv));
2914 (yyval.lv) = (yyvsp[(1) - (3)].lv);
2921 #line 672 "grammar.y" 2923 (yyval.lv) = (yyvsp[(1) - (1)].lv);
2930 #line 678 "grammar.y" 2933 (yyval.lv) = (yyvsp[(1) - (1)].lv);
2940 #line 682 "grammar.y" 2941 { (yyval.lv) = (yyvsp[(1) - (1)].lv); ;}
2947 #line 684 "grammar.y" 2949 if(
iiExprArith3(&(yyval.lv),
'[',&(yyvsp[(1) - (6)].lv),&(yyvsp[(3) - (6)].lv),&(yyvsp[(5) - (6)].lv)))
YYERROR;
2956 #line 688 "grammar.y" 2965 #line 692 "grammar.y" 2967 if (
iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i),
NULL))
YYERROR;
2974 #line 696 "grammar.y" 2976 if (
iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i),
NULL))
YYERROR;
2983 #line 700 "grammar.y" 2985 if (
iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i),
NULL))
YYERROR;
2992 #line 704 "grammar.y" 2994 if (
iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i),
NULL))
YYERROR;
3001 #line 708 "grammar.y" 3003 if (
iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i),
NULL))
YYERROR;
3010 #line 712 "grammar.y" 3012 if (
iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), 0, &(yyvsp[(5) - (6)].lv)))
YYERROR;
3019 #line 716 "grammar.y" 3021 (yyval.lv)=(yyvsp[(2) - (3)].lv);
3028 #line 720 "grammar.y" 3033 {
if (
iiExprArith2(&(yyval.lv),&(yyvsp[(2) - (5)].lv),
'=',&(yyvsp[(4) - (5)].lv)))
YYERROR; }
3037 memset(&(yyval.lv),0,
sizeof((yyval.lv)));
3038 (yyval.lv).rtyp=
NONE;
3050 #line 737 "grammar.y" 3052 iiTestAssume(&(yyvsp[(2) - (5)].lv),&(yyvsp[(4) - (5)].lv));
3053 memset(&(yyval.lv),0,
sizeof((yyval.lv)));
3054 (yyval.lv).rtyp=
NONE;
3061 #line 743 "grammar.y" 3072 #line 749 "grammar.y" 3075 if (
siq<=0) (yyvsp[(4) - (5)].lv).Eval();
3077 (yyval.lv)=(yyvsp[(4) - (5)].lv);
3087 #line 761 "grammar.y" 3098 #line 769 "grammar.y" 3109 #line 777 "grammar.y" 3120 #line 786 "grammar.y" 3129 #line 790 "grammar.y" 3138 #line 794 "grammar.y" 3147 #line 798 "grammar.y" 3156 #line 802 "grammar.y" 3158 if(
iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),(yyvsp[(2) - (3)].i),&(yyvsp[(3) - (3)].lv)))
YYERROR;
3165 #line 806 "grammar.y" 3174 #line 810 "grammar.y" 3176 if(
iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),(yyvsp[(2) - (3)].i),&(yyvsp[(3) - (3)].lv)))
YYERROR;
3183 #line 814 "grammar.y" 3185 if(
iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),(yyvsp[(2) - (3)].i),&(yyvsp[(3) - (3)].lv)))
YYERROR;
3192 #line 818 "grammar.y" 3201 #line 822 "grammar.y" 3210 #line 826 "grammar.y" 3219 #line 830 "grammar.y" 3228 #line 834 "grammar.y" 3234 memset(&(yyval.lv),0,
sizeof((yyval.lv)));
3237 (yyval.lv).data = (
void *)(long)(i == 0 ? 1 : 0);
3245 #line 846 "grammar.y" 3254 #line 852 "grammar.y" 3255 { (yyval.lv) = (yyvsp[(1) - (2)].lv); ;}
3261 #line 854 "grammar.y" 3263 if ((yyvsp[(1) - (2)].lv).rtyp==0)
3265 Werror(
"`%s` is undefined",(yyvsp[(1) - (2)].lv).Fullname());
3268 else if (((yyvsp[(1) - (2)].lv).rtyp==
MODUL_CMD)
3270 && ((yyvsp[(1) - (2)].lv).e!=
NULL) && ((yyvsp[(1) - (2)].lv).e->next==
NULL))
3272 MYYERROR(
"matrix must have 2 indices");
3274 (yyval.lv) = (yyvsp[(1) - (2)].lv);
3281 #line 874 "grammar.y" 3285 MYYERROR(
"string expression expected");
3287 (yyval.name) = (
char *)(yyvsp[(2) - (3)].lv).CopyD(
STRING_CMD);
3288 (yyvsp[(2) - (3)].lv).CleanUp();
3295 #line 886 "grammar.y" 3297 if (
iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),
myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
3305 #line 891 "grammar.y" 3307 if (
iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),
myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
3315 #line 896 "grammar.y" 3324 #line 900 "grammar.y" 3333 #line 904 "grammar.y" 3350 if (
iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (8)].lv),
myynest,(yyvsp[(1) - (8)].i),&((yyvsp[(2) - (8)].lv).req_packhdl->idroot)))
3360 if (
iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (8)].lv),
myynest,(yyvsp[(1) - (8)].i),&((yyvsp[(2) - (8)].lv).req_packhdl->idroot)))
3374 #line 940 "grammar.y" 3382 if (
iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),
myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
3384 leftv v=&(yyval.lv);
3396 if (
iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),
myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
3405 #line 966 "grammar.y" 3407 int t=(yyvsp[(1) - (3)].lv).Typ();
3409 memset(&r,0,
sizeof(
sleftv));
3417 if (
iiDeclCommand(&r,&(yyvsp[(3) - (3)].lv),
myynest,t,&((yyvsp[(3) - (3)].lv).req_packhdl->idroot)))
3420 leftv v=&(yyvsp[(1) - (3)].lv);
3424 (yyval.lv)=(yyvsp[(1) - (3)].lv);
3431 #line 987 "grammar.y" 3433 if (
iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),
myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
3441 #line 1000 "grammar.y" 3443 leftv v = &(yyvsp[(2) - (5)].lv);
3449 memcpy(v->
next,&((yyvsp[(4) - (5)].lv)),
sizeof(
sleftv));
3450 (yyval.lv) = (yyvsp[(2) - (5)].lv);
3457 #line 1014 "grammar.y" 3467 #line 1022 "grammar.y" 3469 memset(&(yyval.lv),0,
sizeof((yyval.lv)));
3472 (*iv)[1] = (yyvsp[(1) - (1)].i);
3474 (yyval.lv).data = (
void *)iv;
3481 #line 1031 "grammar.y" 3483 memset(&(yyval.lv),0,
sizeof((yyval.lv)));
3484 leftv sl = &(yyvsp[(3) - (4)].lv);
3488 int l = 2 + slLength;
3490 (*iv)[0] = slLength;
3491 (*iv)[1] = (yyvsp[(1) - (4)].i);
3494 while ((i<l) && (sl!=
NULL))
3498 (*iv)[i++] = (int)((
long)(sl->
Data()));
3504 int ll = 0,l = ivv->
length();
3507 (*iv)[i++] = (*ivv)[ll++];
3513 (yyvsp[(3) - (4)].lv).CleanUp();
3514 MYYERROR(
"wrong type in ordering");
3519 (yyval.lv).data = (
void *)iv;
3521 (yyvsp[(3) - (4)].lv).CleanUp();
3528 #line 1077 "grammar.y" 3530 (yyval.lv) = (yyvsp[(1) - (3)].lv);
3532 memcpy((yyval.lv).next,&(yyvsp[(3) - (3)].lv),
sizeof(
sleftv));
3539 #line 1087 "grammar.y" 3541 (yyval.lv) = (yyvsp[(2) - (3)].lv);
3548 #line 1093 "grammar.y" 3557 #line 1100 "grammar.y" 3558 { (yyval.i) = (yyvsp[(1) - (1)].i); ;}
3564 #line 1102 "grammar.y" 3565 { (yyval.i) = (yyvsp[(1) - (1)].i); ;}
3571 #line 1104 "grammar.y" 3572 { (yyval.i) = (yyvsp[(1) - (1)].i); ;}
3578 #line 1113 "grammar.y" 3579 {
if ((yyvsp[(1) - (2)].i) !=
'<')
YYERROR;
3586 #line 1116 "grammar.y" 3593 #line 1121 "grammar.y" 3603 #line 1126 "grammar.y" 3612 #line 1133 "grammar.y" 3622 #line 1141 "grammar.y" 3624 if (
basePack!=(yyvsp[(2) - (2)].lv).req_packhdl)
3636 #line 1153 "grammar.y" 3638 leftv v=&(yyvsp[(2) - (2)].lv);
3657 #line 1169 "grammar.y" 3659 leftv v=&(yyvsp[(3) - (3)].lv);
3678 #line 1188 "grammar.y" 3687 #line 1192 "grammar.y" 3696 #line 1196 "grammar.y" 3706 #line 1201 "grammar.y" 3715 #line 1205 "grammar.y" 3724 #line 1209 "grammar.y" 3733 #line 1213 "grammar.y" 3742 #line 1217 "grammar.y" 3744 list_cmd(0,(yyvsp[(3) - (4)].lv).Fullname(),
"// ",
TRUE);
3745 (yyvsp[(3) - (4)].lv).CleanUp();
3752 #line 1222 "grammar.y" 3756 (yyvsp[(3) - (6)].lv).CleanUp();
3763 #line 1228 "grammar.y" 3767 (yyvsp[(3) - (6)].lv).CleanUp();
3774 #line 1234 "grammar.y" 3778 (yyvsp[(3) - (6)].lv).CleanUp();
3785 #line 1240 "grammar.y" 3789 (yyvsp[(3) - (6)].lv).CleanUp();
3796 #line 1246 "grammar.y" 3800 (yyvsp[(3) - (6)].lv).CleanUp();
3807 #line 1252 "grammar.y" 3811 (yyvsp[(3) - (6)].lv).CleanUp();
3818 #line 1258 "grammar.y" 3822 (yyvsp[(3) - (6)].lv).CleanUp();
3829 #line 1270 "grammar.y" 3838 #line 1276 "grammar.y" 3845 #line 1285 "grammar.y" 3847 const char *ring_name = (yyvsp[(2) - (8)].lv).
name;
3849 rInit(&(yyvsp[(4) - (8)].lv),
3850 &(yyvsp[(6) - (8)].lv),
3851 &(yyvsp[(8) - (8)].lv));
3857 &((yyvsp[(2) - (8)].lv).req_packhdl->idroot),
FALSE);
3858 (yyvsp[(2) - (8)].lv).CleanUp();
3859 if (newRingHdl!=
NULL)
3869 if (newRingHdl==
NULL)
3883 #line 1318 "grammar.y" 3885 const char *ring_name = (yyvsp[(2) - (2)].lv).
name;
3888 (yyvsp[(2) - (2)].lv).CleanUp();
3895 #line 1325 "grammar.y" 3905 #line 1330 "grammar.y" 3910 memcpy((yyvsp[(4) - (7)].lv).next,&(yyvsp[(6) - (7)].lv),
sizeof(
sleftv));
3911 memset(&(yyvsp[(6) - (7)].lv),0,
sizeof(
sleftv));
3920 #line 1343 "grammar.y" 3929 #line 1352 "grammar.y" 3932 MYYERROR(
"only inside a proc allowed");
3933 const char * n=(yyvsp[(2) - (2)].lv).Name();
3934 if (((yyvsp[(2) - (2)].lv).Typ()==
RING_CMD)
3935 && ((yyvsp[(2) - (2)].lv).rtyp==
IDHDL))
3938 if ((yyvsp[(2) - (2)].lv).e!=
NULL) h=
rFindHdl((ring)(yyvsp[(2) - (2)].lv).Data(),
NULL);
3973 Werror(
"%s is no identifier",n);
3974 (yyvsp[(2) - (2)].lv).CleanUp();
3981 Werror(
"cannot find the name of the basering %s",n);
3982 (yyvsp[(2) - (2)].lv).CleanUp();
3985 (yyvsp[(2) - (2)].lv).CleanUp();
3989 Werror(
"%s is no name of a ring/qring",n);
3990 (yyvsp[(2) - (2)].lv).CleanUp();
3999 #line 1420 "grammar.y" 4001 type_cmd(&((yyvsp[(2) - (2)].lv)));
4008 #line 1424 "grammar.y" 4012 if ((yyvsp[(1) - (1)].lv).rtyp!=
COMMAND)
4015 if ((yyvsp[(1) - (1)].lv).Typ()==
UNKNOWN)
4017 if ((yyvsp[(1) - (1)].lv).
name!=
NULL)
4019 Werror(
"`%s` is undefined",(yyvsp[(1) - (1)].lv).
name);
4028 (yyvsp[(1) - (1)].lv).CleanUp(
currRing);
4036 #line 1453 "grammar.y" 4054 #line 1466 "grammar.y" 4076 #line 1483 "grammar.y" 4090 #line 1492 "grammar.y" 4100 #line 1497 "grammar.y" 4110 #line 1505 "grammar.y" 4113 char *
s = (
char *)
omAlloc( strlen((yyvsp[(2) - (3)].
name)) + strlen((yyvsp[(3) - (3)].
name)) + 36);
4114 sprintf(s,
"whileif (!(%s)) break;\n%scontinue;\n " ,(yyvsp[(2) - (3)].
name),(yyvsp[(3) - (3)].
name));
4124 #line 1517 "grammar.y" 4128 char * s = (
char *)
omAlloc( strlen((yyvsp[(3) - (5)].
name))+strlen((yyvsp[(4) - (5)].
name))+strlen((yyvsp[(5) - (5)].
name))+36);
4129 sprintf(s,
"forif (!(%s)) break;\n%s%s;\ncontinue;\n " 4130 ,(yyvsp[(3) - (5)].
name),(yyvsp[(5) - (5)].
name),(yyvsp[(4) - (5)].
name));
4135 s = (
char *)
omAlloc( strlen((yyvsp[(2) - (5)].
name)) + 3);
4136 sprintf(s,
"%s;\n",(yyvsp[(2) - (5)].
name));
4145 #line 1536 "grammar.y" 4151 sprintf(
IDPROC(h)->data.s.body,
"parameter list #;\n%s;return();\n\n",(yyvsp[(3) - (3)].name));
4160 #line 1546 "grammar.y" 4173 IDPROC(h)->data.s.body = (
char *)
omAlloc(strlen((yyvsp[(3) - (3)].
name))+strlen(args)+14);;
4174 sprintf(
IDPROC(h)->data.s.body,
"%s\n%s;return();\n\n",args,(yyvsp[(3) - (3)].name));
4184 #line 1565 "grammar.y" 4199 IDPROC(h)->data.s.body = (
char *)
omAlloc(strlen((yyvsp[(4) - (4)].
name))+strlen(args)+14);;
4200 sprintf(
IDPROC(h)->data.s.body,
"%s\n%s;return();\n\n",args,(yyvsp[(4) - (4)].name));
4209 #line 1588 "grammar.y" 4220 #line 1594 "grammar.y" 4234 #line 1606 "grammar.y" 4237 (yyvsp[(3) - (4)].lv).CleanUp();
4245 #line 1612 "grammar.y" 4247 if ((yyvsp[(1) - (3)].i)==
RETURN)
4259 #line 4260 "grammar.cc" 4277 if (0 <= yystate && yystate <=
YYLAST &&
yycheck[yystate] == *yyssp)
4293 #if ! YYERROR_VERBOSE 4297 YYSIZE_T yysize = yysyntax_error (0, yystate, yychar);
4303 if (yymsg != yymsgbuf)
4307 yymsg_alloc = yyalloc;
4311 yymsg_alloc =
sizeof yymsgbuf;
4315 if (0 < yysize && yysize <= yymsg_alloc)
4317 (void) yysyntax_error (yymsg, yystate, yychar);
4324 goto yyexhaustedlab;
4332 if (yyerrstatus == 3)
4337 if (yychar <=
YYEOF)
4340 if (yychar ==
YYEOF)
4432 #if !defined(yyoverflow) || YYERROR_VERBOSE 4450 while (yyssp != yyss)
4461 if (yymsg != yymsgbuf)
4465 return YYID (yyresult);
char * iiProcArgs(char *e, BOOLEAN withParenth)
BOOLEAN yyInRingConstruction
const CanonicalForm int s
int iiTestConvert(int inputType, int outputType)
Class used for (list of) interpreter objects.
void singular_example(char *str)
static FORCE_INLINE const char * n_Read(const char *s, number *a, const coeffs r)
!!! Recommendation: This method is too cryptic to be part of the user- !!! interface. As defined here, it is merely a helper !!! method for parsing number input strings.
#define idDelete(H)
delete an ideal
BOOLEAN iiExprArith1(leftv res, leftv a, int op)
BOOLEAN iiConvert(int inputType, int outputType, int index, leftv input, leftv output, const struct sConvertTypes *dConvertTypes)
int exprlist_length(leftv v)
BOOLEAN iiExprArith3(leftv res, int op, leftv a, leftv b, leftv c)
void writeTime(const char *v)
procinfo * iiInitSingularProcinfo(procinfov pi, const char *libname, const char *procname, int, long pos, BOOLEAN pstatic)
#define YY_SYMBOL_PRINT(Title, Type, Value, Location)
BOOLEAN iiAssignCR(leftv r, leftv arg)
BOOLEAN iiExprArithM(leftv res, leftv a, int op)
void WerrorS(const char *s)
BOOLEAN jjLOAD(const char *s, BOOLEAN autoexport)
load lib/module given in v
BOOLEAN exitBuffer(feBufferTypes typ)
BOOLEAN iiExport(leftv v, int toLev)
idhdl get(const char *s, int lev)
BOOLEAN iiParameter(leftv p)
BOOLEAN iiTestAssume(leftv a, leftv b)
ring currRing
Widely used global variable which specifies the current polynomial ring for Singular interpreter and ...
void killhdl2(idhdl h, idhdl *ih, ring r)
idhdl enterid(const char *s, int lev, int t, idhdl *root, BOOLEAN init, BOOLEAN search)
static const yytype_uint8 yyr2[]
const char * iiTwoOps(int t)
void list_cmd(int typ, const char *what, const char *prefix, BOOLEAN iterate, BOOLEAN fullname)
static const yytype_int16 yypact[]
#define YYSTACK_ALLOC_MAXIMUM
#define YY_REDUCE_PRINT(Rule)
int rOrderName(char *ordername)
#define YY_STACK_PRINT(Bottom, Top)
ring rDefault(const coeffs cf, int N, char **n, int ord_size, int *ord, int *block0, int *block1, int **wvhdl)
FILE * feFopen(const char *path, const char *mode, char *where, short useWerror, short path_only)
ring rInit(leftv pn, leftv rv, leftv ord)
char name(const Variable &v)
idhdl rFindHdl(ring r, idhdl n)
static void yydestruct(const char *yymsg, int yytype, YYSTYPE *yyvaluep)
static const yytype_int16 yypgoto[]
static const yytype_uint8 yydefact[]
matrix mpNew(int r, int c)
create a r x c zero-matrix
int iiDeclCommand(leftv sy, leftv name, int lev, int t, idhdl *root, BOOLEAN isring, BOOLEAN init_b)
const Variable & v
< [in] a sqrfree bivariate poly
void killhdl(idhdl h, package proot)
void yyerror(const char *fmt)
void CleanUp(ring r=currRing)
void newBuffer(char *s, feBufferTypes t, procinfo *pi, int lineno)
BOOLEAN newFile(char *fname, FILE *f)
BOOLEAN iiARROW(leftv r, char *a, char *s)
static const yytype_int16 yytable[]
static const yytype_int16 yydefgoto[]
static const yytype_int16 yycheck[]
static const yytype_uint8 yyr1[]
BOOLEAN iiExprArith2(leftv res, leftv a, int op, leftv b, BOOLEAN proccall)
void syMake(leftv v, const char *id, package pa)
BOOLEAN iiApply(leftv res, leftv a, int op, leftv proc)
void Werror(const char *fmt,...)
const char * lastreserved
void writeRTime(const char *v)
BOOLEAN iiAssign(leftv l, leftv r, BOOLEAN toplevel)
static const yytype_uint8 yystos[]
BOOLEAN contBuffer(feBufferTypes typ)