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).rtyp==
UNKNOWN)
2568 memcpy((yyvsp[(1) - (4)].lv).
next,&(yyvsp[(3) - (4)].lv),
sizeof(
sleftv));
2577 #line 486 "grammar.y" 2581 memset(&(yyval.lv),0,
sizeof(
sleftv));
2583 leftv v = &(yyvsp[(2) - (3)].lv);
2588 memset(&tmp,0,
sizeof(tmp));
2593 (yyvsp[(2) - (3)].lv).CleanUp();
2598 (yyval.lv).data = (
void *)
pAdd((
poly)(yyval.lv).data,p);
2603 (yyvsp[(2) - (3)].lv).CleanUp();
2610 #line 514 "grammar.y" 2612 memset(&(yyval.lv),0,
sizeof((yyval.lv)));
2613 int i = atoi((yyvsp[(1) - (1)].
name));
2617 (yyval.lv).data = (
void *)(long)i;
2620 int l = strlen((yyvsp[(1) - (1)].
name))+2;
2625 sprintf(tmp,
"%d",i);
2626 if (strcmp(tmp,(yyvsp[(1) - (1)].
name))!=0)
2630 (yyval.lv).data = n;
2639 #line 538 "grammar.y" 2641 memset(&(yyval.lv),0,
sizeof((yyval.lv)));
2642 (yyval.lv).rtyp = (yyvsp[(1) - (1)].i);
2643 (yyval.lv).data = (yyval.lv).Data();
2650 #line 544 "grammar.y" 2652 memset(&(yyval.lv),0,
sizeof((yyval.lv)));
2654 (yyval.lv).data = (yyvsp[(1) - (1)].
name);
2661 #line 550 "grammar.y" 2670 #line 554 "grammar.y" 2679 #line 558 "grammar.y" 2688 #line 562 "grammar.y" 2697 #line 566 "grammar.y" 2706 #line 570 "grammar.y" 2715 #line 574 "grammar.y" 2724 #line 578 "grammar.y" 2733 #line 582 "grammar.y" 2742 #line 586 "grammar.y" 2751 #line 590 "grammar.y" 2760 #line 594 "grammar.y" 2762 if(
iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),
TRUE))
YYERROR;
2769 #line 598 "grammar.y" 2771 if(
iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),
TRUE))
YYERROR;
2778 #line 602 "grammar.y" 2780 if(
iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),
TRUE))
YYERROR;
2787 #line 606 "grammar.y" 2789 if(
iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),
TRUE))
YYERROR;
2796 #line 610 "grammar.y" 2798 if(
iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv)))
YYERROR;
2805 #line 614 "grammar.y" 2807 if(
iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv)))
YYERROR;
2814 #line 618 "grammar.y" 2816 if(
iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv)))
YYERROR;
2823 #line 622 "grammar.y" 2825 if(
iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv)))
YYERROR;
2832 #line 626 "grammar.y" 2841 #line 630 "grammar.y" 2843 int b=
iiExprArithM(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i));
2852 #line 636 "grammar.y" 2854 if(
iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv)))
YYERROR;
2861 #line 640 "grammar.y" 2870 #line 644 "grammar.y" 2879 #line 648 "grammar.y" 2888 #line 652 "grammar.y" 2890 if (
iiARROW(&(yyval.lv),(yyvsp[(1) - (3)].name),(yyvsp[(3) - (3)].name)))
YYERROR;
2897 #line 659 "grammar.y" 2899 leftv v = &(yyvsp[(1) - (3)].lv);
2905 memcpy(v->
next,&((yyvsp[(3) - (3)].lv)),
sizeof(
sleftv));
2906 (yyval.lv) = (yyvsp[(1) - (3)].lv);
2913 #line 670 "grammar.y" 2915 (yyval.lv) = (yyvsp[(1) - (1)].lv);
2922 #line 676 "grammar.y" 2925 (yyval.lv) = (yyvsp[(1) - (1)].lv);
2932 #line 680 "grammar.y" 2933 { (yyval.lv) = (yyvsp[(1) - (1)].lv); ;}
2939 #line 681 "grammar.y" 2940 { (yyval.lv) = (yyvsp[(2) - (3)].lv); ;}
2946 #line 683 "grammar.y" 2948 if(
iiExprArith3(&(yyval.lv),
'[',&(yyvsp[(1) - (6)].lv),&(yyvsp[(3) - (6)].lv),&(yyvsp[(5) - (6)].lv)))
YYERROR;
2955 #line 687 "grammar.y" 2964 #line 691 "grammar.y" 2966 if (
iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i),
NULL))
YYERROR;
2973 #line 695 "grammar.y" 2975 if (
iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i),
NULL))
YYERROR;
2982 #line 699 "grammar.y" 2984 if (
iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i),
NULL))
YYERROR;
2991 #line 703 "grammar.y" 2993 if (
iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i),
NULL))
YYERROR;
3000 #line 707 "grammar.y" 3002 if (
iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i),
NULL))
YYERROR;
3009 #line 711 "grammar.y" 3011 if (
iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), 0, &(yyvsp[(5) - (6)].lv)))
YYERROR;
3018 #line 715 "grammar.y" 3020 (yyval.lv)=(yyvsp[(2) - (3)].lv);
3027 #line 719 "grammar.y" 3032 {
if (
iiExprArith2(&(yyval.lv),&(yyvsp[(2) - (5)].lv),
'=',&(yyvsp[(4) - (5)].lv)))
YYERROR; }
3036 memset(&(yyval.lv),0,
sizeof((yyval.lv)));
3037 (yyval.lv).rtyp=
NONE;
3049 #line 736 "grammar.y" 3051 iiTestAssume(&(yyvsp[(2) - (5)].lv),&(yyvsp[(4) - (5)].lv));
3052 memset(&(yyval.lv),0,
sizeof((yyval.lv)));
3053 (yyval.lv).rtyp=
NONE;
3060 #line 742 "grammar.y" 3071 #line 748 "grammar.y" 3074 if (
siq<=0) (yyvsp[(4) - (5)].lv).Eval();
3076 (yyval.lv)=(yyvsp[(4) - (5)].lv);
3086 #line 760 "grammar.y" 3097 #line 768 "grammar.y" 3108 #line 776 "grammar.y" 3119 #line 785 "grammar.y" 3128 #line 789 "grammar.y" 3137 #line 793 "grammar.y" 3146 #line 797 "grammar.y" 3155 #line 801 "grammar.y" 3157 if(
iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),(yyvsp[(2) - (3)].i),&(yyvsp[(3) - (3)].lv)))
YYERROR;
3164 #line 805 "grammar.y" 3173 #line 809 "grammar.y" 3175 if(
iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),(yyvsp[(2) - (3)].i),&(yyvsp[(3) - (3)].lv)))
YYERROR;
3182 #line 813 "grammar.y" 3184 if(
iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),(yyvsp[(2) - (3)].i),&(yyvsp[(3) - (3)].lv)))
YYERROR;
3191 #line 817 "grammar.y" 3200 #line 821 "grammar.y" 3209 #line 825 "grammar.y" 3218 #line 829 "grammar.y" 3227 #line 833 "grammar.y" 3233 memset(&(yyval.lv),0,
sizeof((yyval.lv)));
3236 (yyval.lv).data = (
void *)(long)(i == 0 ? 1 : 0);
3244 #line 845 "grammar.y" 3253 #line 851 "grammar.y" 3254 { (yyval.lv) = (yyvsp[(1) - (2)].lv); ;}
3260 #line 853 "grammar.y" 3262 if ((yyvsp[(1) - (2)].lv).rtyp==0)
3264 Werror(
"`%s` is undefined",(yyvsp[(1) - (2)].lv).Fullname());
3267 else if (((yyvsp[(1) - (2)].lv).rtyp==
MODUL_CMD)
3269 && ((yyvsp[(1) - (2)].lv).e!=
NULL) && ((yyvsp[(1) - (2)].lv).e->next==
NULL))
3271 MYYERROR(
"matrix must have 2 indices");
3273 (yyval.lv) = (yyvsp[(1) - (2)].lv);
3280 #line 873 "grammar.y" 3284 MYYERROR(
"string expression expected");
3286 (yyval.name) = (
char *)(yyvsp[(2) - (3)].lv).CopyD(
STRING_CMD);
3287 (yyvsp[(2) - (3)].lv).CleanUp();
3294 #line 885 "grammar.y" 3296 if (
iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),
myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
3304 #line 890 "grammar.y" 3306 if (
iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),
myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
3314 #line 895 "grammar.y" 3323 #line 899 "grammar.y" 3332 #line 903 "grammar.y" 3349 if (
iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (8)].lv),
myynest,(yyvsp[(1) - (8)].i),&((yyvsp[(2) - (8)].lv).req_packhdl->idroot)))
3359 if (
iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (8)].lv),
myynest,(yyvsp[(1) - (8)].i),&((yyvsp[(2) - (8)].lv).req_packhdl->idroot)))
3373 #line 939 "grammar.y" 3381 if (
iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),
myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
3383 leftv v=&(yyval.lv);
3395 if (
iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),
myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
3404 #line 965 "grammar.y" 3406 int t=(yyvsp[(1) - (3)].lv).Typ();
3408 memset(&r,0,
sizeof(
sleftv));
3416 if (
iiDeclCommand(&r,&(yyvsp[(3) - (3)].lv),
myynest,t,&((yyvsp[(3) - (3)].lv).req_packhdl->idroot)))
3419 leftv v=&(yyvsp[(1) - (3)].lv);
3423 (yyval.lv)=(yyvsp[(1) - (3)].lv);
3430 #line 986 "grammar.y" 3432 if (
iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),
myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
3440 #line 999 "grammar.y" 3442 leftv v = &(yyvsp[(2) - (5)].lv);
3448 memcpy(v->
next,&((yyvsp[(4) - (5)].lv)),
sizeof(
sleftv));
3449 (yyval.lv) = (yyvsp[(2) - (5)].lv);
3456 #line 1013 "grammar.y" 3466 #line 1021 "grammar.y" 3468 memset(&(yyval.lv),0,
sizeof((yyval.lv)));
3471 (*iv)[1] = (yyvsp[(1) - (1)].i);
3473 (yyval.lv).data = (
void *)iv;
3480 #line 1030 "grammar.y" 3482 memset(&(yyval.lv),0,
sizeof((yyval.lv)));
3483 leftv sl = &(yyvsp[(3) - (4)].lv);
3487 int l = 2 + slLength;
3489 (*iv)[0] = slLength;
3490 (*iv)[1] = (yyvsp[(1) - (4)].i);
3493 while ((i<l) && (sl!=
NULL))
3497 (*iv)[i++] = (int)((
long)(sl->
Data()));
3503 int ll = 0,l = ivv->
length();
3506 (*iv)[i++] = (*ivv)[ll++];
3512 (yyvsp[(3) - (4)].lv).CleanUp();
3513 MYYERROR(
"wrong type in ordering");
3518 (yyval.lv).data = (
void *)iv;
3520 (yyvsp[(3) - (4)].lv).CleanUp();
3527 #line 1076 "grammar.y" 3529 (yyval.lv) = (yyvsp[(1) - (3)].lv);
3531 memcpy((yyval.lv).next,&(yyvsp[(3) - (3)].lv),
sizeof(
sleftv));
3538 #line 1086 "grammar.y" 3540 (yyval.lv) = (yyvsp[(2) - (3)].lv);
3547 #line 1092 "grammar.y" 3556 #line 1099 "grammar.y" 3557 { (yyval.i) = (yyvsp[(1) - (1)].i); ;}
3563 #line 1101 "grammar.y" 3564 { (yyval.i) = (yyvsp[(1) - (1)].i); ;}
3570 #line 1103 "grammar.y" 3571 { (yyval.i) = (yyvsp[(1) - (1)].i); ;}
3577 #line 1112 "grammar.y" 3578 {
if ((yyvsp[(1) - (2)].i) !=
'<')
YYERROR;
3585 #line 1115 "grammar.y" 3592 #line 1120 "grammar.y" 3602 #line 1125 "grammar.y" 3611 #line 1132 "grammar.y" 3621 #line 1140 "grammar.y" 3623 if (
basePack!=(yyvsp[(2) - (2)].lv).req_packhdl)
3635 #line 1152 "grammar.y" 3637 leftv v=&(yyvsp[(2) - (2)].lv);
3656 #line 1168 "grammar.y" 3658 leftv v=&(yyvsp[(3) - (3)].lv);
3677 #line 1187 "grammar.y" 3686 #line 1191 "grammar.y" 3695 #line 1195 "grammar.y" 3705 #line 1200 "grammar.y" 3714 #line 1204 "grammar.y" 3723 #line 1208 "grammar.y" 3732 #line 1212 "grammar.y" 3741 #line 1216 "grammar.y" 3743 list_cmd(0,(yyvsp[(3) - (4)].lv).Fullname(),
"// ",
TRUE);
3744 (yyvsp[(3) - (4)].lv).CleanUp();
3751 #line 1221 "grammar.y" 3755 (yyvsp[(3) - (6)].lv).CleanUp();
3762 #line 1227 "grammar.y" 3766 (yyvsp[(3) - (6)].lv).CleanUp();
3773 #line 1233 "grammar.y" 3777 (yyvsp[(3) - (6)].lv).CleanUp();
3784 #line 1239 "grammar.y" 3788 (yyvsp[(3) - (6)].lv).CleanUp();
3795 #line 1245 "grammar.y" 3799 (yyvsp[(3) - (6)].lv).CleanUp();
3806 #line 1251 "grammar.y" 3810 (yyvsp[(3) - (6)].lv).CleanUp();
3817 #line 1257 "grammar.y" 3821 (yyvsp[(3) - (6)].lv).CleanUp();
3828 #line 1269 "grammar.y" 3837 #line 1275 "grammar.y" 3844 #line 1284 "grammar.y" 3846 const char *ring_name = (yyvsp[(2) - (8)].lv).
name;
3848 rInit(&(yyvsp[(4) - (8)].lv),
3849 &(yyvsp[(6) - (8)].lv),
3850 &(yyvsp[(8) - (8)].lv));
3856 &((yyvsp[(2) - (8)].lv).req_packhdl->idroot),
FALSE);
3857 (yyvsp[(2) - (8)].lv).CleanUp();
3858 if (newRingHdl!=
NULL)
3868 if (newRingHdl==
NULL)
3882 #line 1317 "grammar.y" 3884 const char *ring_name = (yyvsp[(2) - (2)].lv).
name;
3887 (yyvsp[(2) - (2)].lv).CleanUp();
3894 #line 1324 "grammar.y" 3904 #line 1329 "grammar.y" 3910 memcpy((yyvsp[(4) - (7)].lv).next,&(yyvsp[(6) - (7)].lv),
sizeof(
sleftv));
3911 memset(&(yyvsp[(6) - (7)].lv),0,
sizeof(
sleftv));
3923 #line 1346 "grammar.y" 3932 #line 1355 "grammar.y" 3935 MYYERROR(
"only inside a proc allowed");
3936 const char * n=(yyvsp[(2) - (2)].lv).Name();
3937 if (((yyvsp[(2) - (2)].lv).Typ()==
RING_CMD)
3938 && ((yyvsp[(2) - (2)].lv).rtyp==
IDHDL))
3941 if ((yyvsp[(2) - (2)].lv).e!=
NULL) h=
rFindHdl((ring)(yyvsp[(2) - (2)].lv).Data(),
NULL);
3976 Werror(
"%s is no identifier",n);
3977 (yyvsp[(2) - (2)].lv).CleanUp();
3984 Werror(
"cannot find the name of the basering %s",n);
3985 (yyvsp[(2) - (2)].lv).CleanUp();
3988 (yyvsp[(2) - (2)].lv).CleanUp();
3992 Werror(
"%s is no name of a ring/qring",n);
3993 (yyvsp[(2) - (2)].lv).CleanUp();
4002 #line 1423 "grammar.y" 4004 type_cmd(&((yyvsp[(2) - (2)].lv)));
4011 #line 1427 "grammar.y" 4015 if ((yyvsp[(1) - (1)].lv).rtyp!=
COMMAND)
4018 if ((yyvsp[(1) - (1)].lv).Typ()==
UNKNOWN)
4020 if ((yyvsp[(1) - (1)].lv).
name!=
NULL)
4022 Werror(
"`%s` is undefined",(yyvsp[(1) - (1)].lv).
name);
4031 (yyvsp[(1) - (1)].lv).CleanUp(
currRing);
4039 #line 1456 "grammar.y" 4057 #line 1469 "grammar.y" 4079 #line 1486 "grammar.y" 4093 #line 1495 "grammar.y" 4103 #line 1500 "grammar.y" 4113 #line 1508 "grammar.y" 4116 char *
s = (
char *)
omAlloc( strlen((yyvsp[(2) - (3)].
name)) + strlen((yyvsp[(3) - (3)].
name)) + 36);
4117 sprintf(s,
"whileif (!(%s)) break;\n%scontinue;\n " ,(yyvsp[(2) - (3)].
name),(yyvsp[(3) - (3)].
name));
4127 #line 1520 "grammar.y" 4131 char * s = (
char *)
omAlloc( strlen((yyvsp[(3) - (5)].
name))+strlen((yyvsp[(4) - (5)].
name))+strlen((yyvsp[(5) - (5)].
name))+36);
4132 sprintf(s,
"forif (!(%s)) break;\n%s%s;\ncontinue;\n " 4133 ,(yyvsp[(3) - (5)].
name),(yyvsp[(5) - (5)].
name),(yyvsp[(4) - (5)].
name));
4138 s = (
char *)
omAlloc( strlen((yyvsp[(2) - (5)].
name)) + 3);
4139 sprintf(s,
"%s;\n",(yyvsp[(2) - (5)].
name));
4148 #line 1539 "grammar.y" 4154 sprintf(
IDPROC(h)->data.s.body,
"parameter list #;\n%s;return();\n\n",(yyvsp[(3) - (3)].name));
4163 #line 1549 "grammar.y" 4176 IDPROC(h)->data.s.body = (
char *)
omAlloc(strlen((yyvsp[(3) - (3)].
name))+strlen(args)+14);;
4177 sprintf(
IDPROC(h)->data.s.body,
"%s\n%s;return();\n\n",args,(yyvsp[(3) - (3)].name));
4187 #line 1568 "grammar.y" 4202 IDPROC(h)->data.s.body = (
char *)
omAlloc(strlen((yyvsp[(4) - (4)].
name))+strlen(args)+14);;
4203 sprintf(
IDPROC(h)->data.s.body,
"%s\n%s;return();\n\n",args,(yyvsp[(4) - (4)].name));
4212 #line 1591 "grammar.y" 4223 #line 1597 "grammar.y" 4237 #line 1609 "grammar.y" 4240 (yyvsp[(3) - (4)].lv).CleanUp();
4248 #line 1615 "grammar.y" 4250 if ((yyvsp[(1) - (3)].i)==
RETURN)
4262 #line 4263 "grammar.cc" 4280 if (0 <= yystate && yystate <=
YYLAST &&
yycheck[yystate] == *yyssp)
4296 #if ! YYERROR_VERBOSE 4300 YYSIZE_T yysize = yysyntax_error (0, yystate, yychar);
4306 if (yymsg != yymsgbuf)
4310 yymsg_alloc = yyalloc;
4314 yymsg_alloc =
sizeof yymsgbuf;
4318 if (0 < yysize && yysize <= yymsg_alloc)
4320 (void) yysyntax_error (yymsg, yystate, yychar);
4327 goto yyexhaustedlab;
4335 if (yyerrstatus == 3)
4340 if (yychar <=
YYEOF)
4343 if (yychar ==
YYEOF)
4435 #if !defined(yyoverflow) || YYERROR_VERBOSE 4453 while (yyssp != yyss)
4464 if (yymsg != yymsgbuf)
4468 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
procinfo * iiInitSingularProcinfo(procinfov pi, const char *libname, const char *procname, int line, long pos, BOOLEAN pstatic)
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)
#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)