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);
3658 #line 1170 "grammar.y" 3660 leftv v=&(yyvsp[(3) - (3)].lv);
3680 #line 1190 "grammar.y" 3689 #line 1194 "grammar.y" 3698 #line 1198 "grammar.y" 3708 #line 1203 "grammar.y" 3717 #line 1207 "grammar.y" 3726 #line 1211 "grammar.y" 3735 #line 1215 "grammar.y" 3744 #line 1219 "grammar.y" 3746 list_cmd(0,(yyvsp[(3) - (4)].lv).Fullname(),
"// ",
TRUE);
3747 (yyvsp[(3) - (4)].lv).CleanUp();
3754 #line 1224 "grammar.y" 3758 (yyvsp[(3) - (6)].lv).CleanUp();
3765 #line 1230 "grammar.y" 3769 (yyvsp[(3) - (6)].lv).CleanUp();
3776 #line 1236 "grammar.y" 3780 (yyvsp[(3) - (6)].lv).CleanUp();
3787 #line 1242 "grammar.y" 3791 (yyvsp[(3) - (6)].lv).CleanUp();
3798 #line 1248 "grammar.y" 3802 (yyvsp[(3) - (6)].lv).CleanUp();
3809 #line 1254 "grammar.y" 3813 (yyvsp[(3) - (6)].lv).CleanUp();
3820 #line 1260 "grammar.y" 3824 (yyvsp[(3) - (6)].lv).CleanUp();
3831 #line 1272 "grammar.y" 3840 #line 1278 "grammar.y" 3847 #line 1287 "grammar.y" 3849 const char *ring_name = (yyvsp[(2) - (8)].lv).
name;
3851 rInit(&(yyvsp[(4) - (8)].lv),
3852 &(yyvsp[(6) - (8)].lv),
3853 &(yyvsp[(8) - (8)].lv));
3859 &((yyvsp[(2) - (8)].lv).req_packhdl->idroot),
FALSE);
3860 (yyvsp[(2) - (8)].lv).CleanUp();
3861 if (newRingHdl!=
NULL)
3871 if (newRingHdl==
NULL)
3885 #line 1320 "grammar.y" 3887 const char *ring_name = (yyvsp[(2) - (2)].lv).
name;
3890 (yyvsp[(2) - (2)].lv).CleanUp();
3897 #line 1327 "grammar.y" 3907 #line 1332 "grammar.y" 3912 memcpy((yyvsp[(4) - (7)].lv).next,&(yyvsp[(6) - (7)].lv),
sizeof(
sleftv));
3913 memset(&(yyvsp[(6) - (7)].lv),0,
sizeof(
sleftv));
3922 #line 1345 "grammar.y" 3931 #line 1354 "grammar.y" 3934 MYYERROR(
"only inside a proc allowed");
3935 const char * n=(yyvsp[(2) - (2)].lv).Name();
3936 if (((yyvsp[(2) - (2)].lv).Typ()==
RING_CMD)
3937 && ((yyvsp[(2) - (2)].lv).rtyp==
IDHDL))
3940 if ((yyvsp[(2) - (2)].lv).e!=
NULL) h=
rFindHdl((ring)(yyvsp[(2) - (2)].lv).Data(),
NULL);
3975 Werror(
"%s is no identifier",n);
3976 (yyvsp[(2) - (2)].lv).CleanUp();
3983 Werror(
"cannot find the name of the basering %s",n);
3984 (yyvsp[(2) - (2)].lv).CleanUp();
3987 (yyvsp[(2) - (2)].lv).CleanUp();
3991 Werror(
"%s is no name of a ring/qring",n);
3992 (yyvsp[(2) - (2)].lv).CleanUp();
4001 #line 1422 "grammar.y" 4003 type_cmd(&((yyvsp[(2) - (2)].lv)));
4010 #line 1426 "grammar.y" 4014 if ((yyvsp[(1) - (1)].lv).rtyp!=
COMMAND)
4017 if ((yyvsp[(1) - (1)].lv).Typ()==
UNKNOWN)
4019 if ((yyvsp[(1) - (1)].lv).
name!=
NULL)
4021 Werror(
"`%s` is undefined",(yyvsp[(1) - (1)].lv).
name);
4030 (yyvsp[(1) - (1)].lv).CleanUp(
currRing);
4038 #line 1455 "grammar.y" 4056 #line 1468 "grammar.y" 4078 #line 1485 "grammar.y" 4092 #line 1494 "grammar.y" 4102 #line 1499 "grammar.y" 4112 #line 1507 "grammar.y" 4115 char *
s = (
char *)
omAlloc( strlen((yyvsp[(2) - (3)].
name)) + strlen((yyvsp[(3) - (3)].
name)) + 36);
4116 sprintf(s,
"whileif (!(%s)) break;\n%scontinue;\n " ,(yyvsp[(2) - (3)].
name),(yyvsp[(3) - (3)].
name));
4126 #line 1519 "grammar.y" 4130 char * s = (
char *)
omAlloc( strlen((yyvsp[(3) - (5)].
name))+strlen((yyvsp[(4) - (5)].
name))+strlen((yyvsp[(5) - (5)].
name))+36);
4131 sprintf(s,
"forif (!(%s)) break;\n%s%s;\ncontinue;\n " 4132 ,(yyvsp[(3) - (5)].
name),(yyvsp[(5) - (5)].
name),(yyvsp[(4) - (5)].
name));
4137 s = (
char *)
omAlloc( strlen((yyvsp[(2) - (5)].
name)) + 3);
4138 sprintf(s,
"%s;\n",(yyvsp[(2) - (5)].
name));
4147 #line 1538 "grammar.y" 4153 sprintf(
IDPROC(h)->data.s.body,
"parameter list #;\n%s;return();\n\n",(yyvsp[(3) - (3)].name));
4162 #line 1548 "grammar.y" 4175 IDPROC(h)->data.s.body = (
char *)
omAlloc(strlen((yyvsp[(3) - (3)].
name))+strlen(args)+14);;
4176 sprintf(
IDPROC(h)->data.s.body,
"%s\n%s;return();\n\n",args,(yyvsp[(3) - (3)].name));
4186 #line 1567 "grammar.y" 4201 IDPROC(h)->data.s.body = (
char *)
omAlloc(strlen((yyvsp[(4) - (4)].
name))+strlen(args)+14);;
4202 sprintf(
IDPROC(h)->data.s.body,
"%s\n%s;return();\n\n",args,(yyvsp[(4) - (4)].name));
4211 #line 1590 "grammar.y" 4222 #line 1596 "grammar.y" 4236 #line 1608 "grammar.y" 4239 (yyvsp[(3) - (4)].lv).CleanUp();
4247 #line 1614 "grammar.y" 4249 if ((yyvsp[(1) - (3)].i)==
RETURN)
4261 #line 4262 "grammar.cc" 4279 if (0 <= yystate && yystate <=
YYLAST &&
yycheck[yystate] == *yyssp)
4295 #if ! YYERROR_VERBOSE 4299 YYSIZE_T yysize = yysyntax_error (0, yystate, yychar);
4305 if (yymsg != yymsgbuf)
4309 yymsg_alloc = yyalloc;
4313 yymsg_alloc =
sizeof yymsgbuf;
4317 if (0 < yysize && yysize <= yymsg_alloc)
4319 (void) yysyntax_error (yymsg, yystate, yychar);
4326 goto yyexhaustedlab;
4334 if (yyerrstatus == 3)
4339 if (yychar <=
YYEOF)
4342 if (yychar ==
YYEOF)
4434 #if !defined(yyoverflow) || YYERROR_VERBOSE 4452 while (yyssp != yyss)
4463 if (yymsg != yymsgbuf)
4467 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)
#define YY_STACK_PRINT(Bottom, Top)
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)
ring rDefault(const coeffs cf, int N, char **n, int ord_size, rRingOrder_t *ord, int *block0, int *block1, int **wvhdl)
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)
rRingOrder_t rOrderName(char *ordername)
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)