2148 char *yymsg = yymsgbuf;
2149 YYSIZE_T yymsg_alloc =
sizeof yymsgbuf;
2152 #define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N)) 2163 YYDPRINTF ((stderr,
"Starting parse\n"));
2190 if (yyss + yystacksize - 1 <= yyssp)
2193 YYSIZE_T yysize = yyssp - yyss + 1;
2207 yyoverflow (
YY_(
"memory exhausted"),
2208 &yyss1, yysize *
sizeof (*yyssp),
2209 &yyvs1, yysize *
sizeof (*yyvsp),
2216 # ifndef YYSTACK_RELOCATE 2217 goto yyexhaustedlab;
2221 goto yyexhaustedlab;
2228 union yyalloc *yyptr =
2229 (
union yyalloc *)
YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize));
2231 goto yyexhaustedlab;
2232 YYSTACK_RELOCATE (yyss_alloc, yyss);
2233 YYSTACK_RELOCATE (yyvs_alloc, yyvs);
2234 # undef YYSTACK_RELOCATE 2241 yyssp = yyss + yysize - 1;
2242 yyvsp = yyvs + yysize - 1;
2244 YYDPRINTF ((stderr,
"Stack size increased to %lu\n",
2245 (
unsigned long int) yystacksize));
2247 if (yyss + yystacksize - 1 <= yyssp)
2251 YYDPRINTF ((stderr,
"Entering state %d\n", yystate));
2276 YYDPRINTF ((stderr,
"Reading a token: "));
2280 if (yychar <=
YYEOF)
2282 yychar = yytoken =
YYEOF;
2283 YYDPRINTF ((stderr,
"Now at end of input.\n"));
2347 yyval = yyvsp[1-yylen];
2356 #line 319 "grammar.y" 2392 #line 354 "grammar.y" 2399 #line 356 "grammar.y" 2406 #line 358 "grammar.y" 2415 #line 362 "grammar.y" 2425 #line 367 "grammar.y" 2432 #line 369 "grammar.y" 2442 if ((
inerror!=3) && ((yyvsp[(1) - (2)].
i)<
UMINUS) && ((yyvsp[(1) - (2)].
i)>
' '))
2486 #line 427 "grammar.y" 2493 #line 430 "grammar.y" 2500 #line 445 "grammar.y" 2509 #line 452 "grammar.y" 2519 #line 457 "grammar.y" 2521 syMake(&(yyval.lv),(yyvsp[(1) - (1)].name));
2528 #line 461 "grammar.y" 2537 #line 465 "grammar.y" 2539 if(
iiExprArith2(&(yyval.lv), &(yyvsp[(1) - (3)].lv),
'.', &(yyvsp[(3) - (3)].lv)))
YYERROR;
2546 #line 469 "grammar.y" 2555 #line 473 "grammar.y" 2557 if ((yyvsp[(1) - (4)].lv).rtyp==
UNKNOWN)
2564 memcpy((yyvsp[(1) - (4)].lv).
next,&(yyvsp[(3) - (4)].lv),
sizeof(
sleftv));
2573 #line 486 "grammar.y" 2577 memset(&(yyval.lv),0,
sizeof(
sleftv));
2579 leftv v = &(yyvsp[(2) - (3)].lv);
2584 memset(&tmp,0,
sizeof(tmp));
2589 (yyvsp[(2) - (3)].lv).CleanUp();
2594 (yyval.lv).data = (
void *)
pAdd((
poly)(yyval.lv).data,p);
2599 (yyvsp[(2) - (3)].lv).CleanUp();
2606 #line 514 "grammar.y" 2608 memset(&(yyval.lv),0,
sizeof((yyval.lv)));
2609 int i = atoi((yyvsp[(1) - (1)].
name));
2613 (yyval.lv).data = (
void *)(long)i;
2616 int l = strlen((yyvsp[(1) - (1)].
name))+2;
2621 sprintf(tmp,
"%d",i);
2622 if (strcmp(tmp,(yyvsp[(1) - (1)].
name))!=0)
2626 (yyval.lv).data = n;
2635 #line 538 "grammar.y" 2637 memset(&(yyval.lv),0,
sizeof((yyval.lv)));
2638 (yyval.lv).rtyp = (yyvsp[(1) - (1)].i);
2639 (yyval.lv).data = (yyval.lv).Data();
2646 #line 544 "grammar.y" 2648 memset(&(yyval.lv),0,
sizeof((yyval.lv)));
2650 (yyval.lv).data = (yyvsp[(1) - (1)].
name);
2657 #line 550 "grammar.y" 2666 #line 554 "grammar.y" 2675 #line 558 "grammar.y" 2684 #line 562 "grammar.y" 2693 #line 566 "grammar.y" 2702 #line 570 "grammar.y" 2711 #line 574 "grammar.y" 2720 #line 578 "grammar.y" 2729 #line 582 "grammar.y" 2738 #line 586 "grammar.y" 2747 #line 590 "grammar.y" 2756 #line 594 "grammar.y" 2758 if(
iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),
TRUE))
YYERROR;
2765 #line 598 "grammar.y" 2767 if(
iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),
TRUE))
YYERROR;
2774 #line 602 "grammar.y" 2776 if(
iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),
TRUE))
YYERROR;
2783 #line 606 "grammar.y" 2785 if(
iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),
TRUE))
YYERROR;
2792 #line 610 "grammar.y" 2794 if(
iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv)))
YYERROR;
2801 #line 614 "grammar.y" 2803 if(
iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv)))
YYERROR;
2810 #line 618 "grammar.y" 2812 if(
iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv)))
YYERROR;
2819 #line 622 "grammar.y" 2821 if(
iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv)))
YYERROR;
2828 #line 626 "grammar.y" 2837 #line 630 "grammar.y" 2839 int b=
iiExprArithM(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i));
2848 #line 636 "grammar.y" 2850 if(
iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv)))
YYERROR;
2857 #line 640 "grammar.y" 2866 #line 644 "grammar.y" 2875 #line 648 "grammar.y" 2884 #line 652 "grammar.y" 2886 if (
iiARROW(&(yyval.lv),(yyvsp[(1) - (3)].name),(yyvsp[(3) - (3)].name)))
YYERROR;
2893 #line 659 "grammar.y" 2895 leftv v = &(yyvsp[(1) - (3)].lv);
2901 memcpy(v->
next,&((yyvsp[(3) - (3)].lv)),
sizeof(
sleftv));
2902 (yyval.lv) = (yyvsp[(1) - (3)].lv);
2909 #line 670 "grammar.y" 2911 (yyval.lv) = (yyvsp[(1) - (1)].lv);
2918 #line 676 "grammar.y" 2921 (yyval.lv) = (yyvsp[(1) - (1)].lv);
2928 #line 680 "grammar.y" 2929 { (yyval.lv) = (yyvsp[(1) - (1)].lv); ;}
2935 #line 681 "grammar.y" 2936 { (yyval.lv) = (yyvsp[(2) - (3)].lv); ;}
2942 #line 683 "grammar.y" 2944 if(
iiExprArith3(&(yyval.lv),
'[',&(yyvsp[(1) - (6)].lv),&(yyvsp[(3) - (6)].lv),&(yyvsp[(5) - (6)].lv)))
YYERROR;
2951 #line 687 "grammar.y" 2960 #line 691 "grammar.y" 2962 if (
iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i),
NULL))
YYERROR;
2969 #line 695 "grammar.y" 2971 if (
iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i),
NULL))
YYERROR;
2978 #line 699 "grammar.y" 2980 if (
iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i),
NULL))
YYERROR;
2987 #line 703 "grammar.y" 2989 if (
iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i),
NULL))
YYERROR;
2996 #line 707 "grammar.y" 2998 if (
iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i),
NULL))
YYERROR;
3005 #line 711 "grammar.y" 3007 if (
iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), 0, &(yyvsp[(5) - (6)].lv)))
YYERROR;
3014 #line 715 "grammar.y" 3016 (yyval.lv)=(yyvsp[(2) - (3)].lv);
3023 #line 719 "grammar.y" 3028 {
if (
iiExprArith2(&(yyval.lv),&(yyvsp[(2) - (5)].lv),
'=',&(yyvsp[(4) - (5)].lv)))
YYERROR; }
3032 memset(&(yyval.lv),0,
sizeof((yyval.lv)));
3033 (yyval.lv).rtyp=
NONE;
3045 #line 736 "grammar.y" 3047 iiTestAssume(&(yyvsp[(2) - (5)].lv),&(yyvsp[(4) - (5)].lv));
3048 memset(&(yyval.lv),0,
sizeof((yyval.lv)));
3049 (yyval.lv).rtyp=
NONE;
3056 #line 742 "grammar.y" 3067 #line 748 "grammar.y" 3070 if (
siq<=0) (yyvsp[(4) - (5)].lv).Eval();
3072 (yyval.lv)=(yyvsp[(4) - (5)].lv);
3082 #line 760 "grammar.y" 3093 #line 768 "grammar.y" 3104 #line 776 "grammar.y" 3115 #line 785 "grammar.y" 3124 #line 789 "grammar.y" 3133 #line 793 "grammar.y" 3142 #line 797 "grammar.y" 3151 #line 801 "grammar.y" 3153 if(
iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),(yyvsp[(2) - (3)].i),&(yyvsp[(3) - (3)].lv)))
YYERROR;
3160 #line 805 "grammar.y" 3169 #line 809 "grammar.y" 3171 if(
iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),(yyvsp[(2) - (3)].i),&(yyvsp[(3) - (3)].lv)))
YYERROR;
3178 #line 813 "grammar.y" 3180 if(
iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),(yyvsp[(2) - (3)].i),&(yyvsp[(3) - (3)].lv)))
YYERROR;
3187 #line 817 "grammar.y" 3196 #line 821 "grammar.y" 3205 #line 825 "grammar.y" 3214 #line 829 "grammar.y" 3223 #line 833 "grammar.y" 3229 memset(&(yyval.lv),0,
sizeof((yyval.lv)));
3232 (yyval.lv).data = (
void *)(long)(i == 0 ? 1 : 0);
3240 #line 845 "grammar.y" 3249 #line 851 "grammar.y" 3250 { (yyval.lv) = (yyvsp[(1) - (2)].lv); ;}
3256 #line 853 "grammar.y" 3258 if ((yyvsp[(1) - (2)].lv).rtyp==0)
3260 Werror(
"`%s` is undefined",(yyvsp[(1) - (2)].lv).Fullname());
3263 else if (((yyvsp[(1) - (2)].lv).rtyp==
MODUL_CMD)
3265 && ((yyvsp[(1) - (2)].lv).e!=
NULL) && ((yyvsp[(1) - (2)].lv).e->next==
NULL))
3267 MYYERROR(
"matrix must have 2 indices");
3269 (yyval.lv) = (yyvsp[(1) - (2)].lv);
3276 #line 873 "grammar.y" 3280 MYYERROR(
"string expression expected");
3282 (yyval.name) = (
char *)(yyvsp[(2) - (3)].lv).CopyD(
STRING_CMD);
3283 (yyvsp[(2) - (3)].lv).CleanUp();
3290 #line 885 "grammar.y" 3292 if (
iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),
myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
3300 #line 890 "grammar.y" 3302 if (
iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),
myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
3310 #line 895 "grammar.y" 3319 #line 899 "grammar.y" 3328 #line 903 "grammar.y" 3345 if (
iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (8)].lv),
myynest,(yyvsp[(1) - (8)].i),&((yyvsp[(2) - (8)].lv).req_packhdl->idroot)))
3355 if (
iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (8)].lv),
myynest,(yyvsp[(1) - (8)].i),&((yyvsp[(2) - (8)].lv).req_packhdl->idroot)))
3369 #line 939 "grammar.y" 3377 if (
iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),
myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
3379 leftv v=&(yyval.lv);
3391 if (
iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),
myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
3400 #line 965 "grammar.y" 3402 int t=(yyvsp[(1) - (3)].lv).Typ();
3404 memset(&r,0,
sizeof(
sleftv));
3412 if (
iiDeclCommand(&r,&(yyvsp[(3) - (3)].lv),
myynest,t,&((yyvsp[(3) - (3)].lv).req_packhdl->idroot)))
3415 leftv v=&(yyvsp[(1) - (3)].lv);
3419 (yyval.lv)=(yyvsp[(1) - (3)].lv);
3426 #line 986 "grammar.y" 3428 if (
iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),
myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
3436 #line 999 "grammar.y" 3438 leftv v = &(yyvsp[(2) - (5)].lv);
3444 memcpy(v->
next,&((yyvsp[(4) - (5)].lv)),
sizeof(
sleftv));
3445 (yyval.lv) = (yyvsp[(2) - (5)].lv);
3452 #line 1013 "grammar.y" 3462 #line 1021 "grammar.y" 3464 memset(&(yyval.lv),0,
sizeof((yyval.lv)));
3467 (*iv)[1] = (yyvsp[(1) - (1)].i);
3469 (yyval.lv).data = (
void *)iv;
3476 #line 1030 "grammar.y" 3478 memset(&(yyval.lv),0,
sizeof((yyval.lv)));
3479 leftv sl = &(yyvsp[(3) - (4)].lv);
3483 int l = 2 + slLength;
3485 (*iv)[0] = slLength;
3486 (*iv)[1] = (yyvsp[(1) - (4)].i);
3489 while ((i<l) && (sl!=
NULL))
3493 (*iv)[i++] = (int)((
long)(sl->
Data()));
3499 int ll = 0,l = ivv->
length();
3502 (*iv)[i++] = (*ivv)[ll++];
3508 (yyvsp[(3) - (4)].lv).CleanUp();
3509 MYYERROR(
"wrong type in ordering");
3514 (yyval.lv).data = (
void *)iv;
3516 (yyvsp[(3) - (4)].lv).CleanUp();
3523 #line 1076 "grammar.y" 3525 (yyval.lv) = (yyvsp[(1) - (3)].lv);
3527 memcpy((yyval.lv).next,&(yyvsp[(3) - (3)].lv),
sizeof(
sleftv));
3534 #line 1086 "grammar.y" 3536 (yyval.lv) = (yyvsp[(2) - (3)].lv);
3543 #line 1092 "grammar.y" 3552 #line 1099 "grammar.y" 3553 { (yyval.i) = (yyvsp[(1) - (1)].i); ;}
3559 #line 1101 "grammar.y" 3560 { (yyval.i) = (yyvsp[(1) - (1)].i); ;}
3566 #line 1103 "grammar.y" 3567 { (yyval.i) = (yyvsp[(1) - (1)].i); ;}
3573 #line 1112 "grammar.y" 3574 {
if ((yyvsp[(1) - (2)].i) !=
'<')
YYERROR;
3581 #line 1115 "grammar.y" 3588 #line 1120 "grammar.y" 3598 #line 1125 "grammar.y" 3607 #line 1132 "grammar.y" 3617 #line 1140 "grammar.y" 3619 if (
basePack!=(yyvsp[(2) - (2)].lv).req_packhdl)
3631 #line 1152 "grammar.y" 3633 leftv v=&(yyvsp[(2) - (2)].lv);
3652 #line 1168 "grammar.y" 3654 leftv v=&(yyvsp[(3) - (3)].lv);
3673 #line 1187 "grammar.y" 3682 #line 1191 "grammar.y" 3691 #line 1195 "grammar.y" 3701 #line 1200 "grammar.y" 3710 #line 1204 "grammar.y" 3719 #line 1208 "grammar.y" 3728 #line 1212 "grammar.y" 3737 #line 1216 "grammar.y" 3739 list_cmd(0,(yyvsp[(3) - (4)].lv).Fullname(),
"// ",
TRUE);
3740 (yyvsp[(3) - (4)].lv).CleanUp();
3747 #line 1221 "grammar.y" 3751 (yyvsp[(3) - (6)].lv).CleanUp();
3758 #line 1227 "grammar.y" 3762 (yyvsp[(3) - (6)].lv).CleanUp();
3769 #line 1233 "grammar.y" 3773 (yyvsp[(3) - (6)].lv).CleanUp();
3780 #line 1239 "grammar.y" 3784 (yyvsp[(3) - (6)].lv).CleanUp();
3791 #line 1245 "grammar.y" 3795 (yyvsp[(3) - (6)].lv).CleanUp();
3802 #line 1251 "grammar.y" 3806 (yyvsp[(3) - (6)].lv).CleanUp();
3813 #line 1257 "grammar.y" 3817 (yyvsp[(3) - (6)].lv).CleanUp();
3824 #line 1269 "grammar.y" 3833 #line 1275 "grammar.y" 3840 #line 1284 "grammar.y" 3842 const char *ring_name = (yyvsp[(2) - (8)].lv).
name;
3844 rInit(&(yyvsp[(4) - (8)].lv),
3845 &(yyvsp[(6) - (8)].lv),
3846 &(yyvsp[(8) - (8)].lv));
3852 &((yyvsp[(2) - (8)].lv).req_packhdl->idroot),
FALSE);
3853 (yyvsp[(2) - (8)].lv).CleanUp();
3854 if (newRingHdl!=
NULL)
3864 if (newRingHdl==
NULL)
3878 #line 1317 "grammar.y" 3880 const char *ring_name = (yyvsp[(2) - (2)].lv).
name;
3883 (yyvsp[(2) - (2)].lv).CleanUp();
3890 #line 1324 "grammar.y" 3900 #line 1332 "grammar.y" 3909 #line 1341 "grammar.y" 3912 MYYERROR(
"only inside a proc allowed");
3913 const char * n=(yyvsp[(2) - (2)].lv).Name();
3914 if ((((yyvsp[(2) - (2)].lv).Typ()==
RING_CMD)||((yyvsp[(2) - (2)].lv).Typ()==
QRING_CMD))
3915 && ((yyvsp[(2) - (2)].lv).rtyp==
IDHDL))
3918 if ((yyvsp[(2) - (2)].lv).e!=
NULL) h=
rFindHdl((ring)(yyvsp[(2) - (2)].lv).Data(),
NULL);
3949 #ifdef USE_IILOCALRING 3957 Werror(
"%s is no identifier",n);
3958 (yyvsp[(2) - (2)].lv).CleanUp();
3965 Werror(
"cannot find the name of the basering %s",n);
3966 (yyvsp[(2) - (2)].lv).CleanUp();
3969 (yyvsp[(2) - (2)].lv).CleanUp();
3973 Werror(
"%s is no name of a ring/qring",n);
3974 (yyvsp[(2) - (2)].lv).CleanUp();
3983 #line 1413 "grammar.y" 3985 type_cmd(&((yyvsp[(2) - (2)].lv)));
3992 #line 1417 "grammar.y" 3996 if ((yyvsp[(1) - (1)].lv).rtyp!=
COMMAND)
3999 if ((yyvsp[(1) - (1)].lv).Typ()==
UNKNOWN)
4001 if ((yyvsp[(1) - (1)].lv).
name!=
NULL)
4003 Werror(
"`%s` is undefined",(yyvsp[(1) - (1)].lv).
name);
4012 (yyvsp[(1) - (1)].lv).CleanUp(
currRing);
4020 #line 1446 "grammar.y" 4038 #line 1459 "grammar.y" 4060 #line 1476 "grammar.y" 4074 #line 1485 "grammar.y" 4084 #line 1490 "grammar.y" 4094 #line 1498 "grammar.y" 4097 char *
s = (
char *)
omAlloc( strlen((yyvsp[(2) - (3)].
name)) + strlen((yyvsp[(3) - (3)].
name)) + 36);
4098 sprintf(s,
"whileif (!(%s)) break;\n%scontinue;\n " ,(yyvsp[(2) - (3)].
name),(yyvsp[(3) - (3)].
name));
4108 #line 1510 "grammar.y" 4112 char * s = (
char *)
omAlloc( strlen((yyvsp[(3) - (5)].
name))+strlen((yyvsp[(4) - (5)].
name))+strlen((yyvsp[(5) - (5)].
name))+36);
4113 sprintf(s,
"forif (!(%s)) break;\n%s%s;\ncontinue;\n " 4114 ,(yyvsp[(3) - (5)].
name),(yyvsp[(5) - (5)].
name),(yyvsp[(4) - (5)].
name));
4119 s = (
char *)
omAlloc( strlen((yyvsp[(2) - (5)].
name)) + 3);
4120 sprintf(s,
"%s;\n",(yyvsp[(2) - (5)].
name));
4129 #line 1529 "grammar.y" 4135 sprintf(
IDPROC(h)->data.s.body,
"parameter list #;\n%s;return();\n\n",(yyvsp[(3) - (3)].name));
4144 #line 1539 "grammar.y" 4157 IDPROC(h)->data.s.body = (
char *)
omAlloc(strlen((yyvsp[(3) - (3)].
name))+strlen(args)+14);;
4158 sprintf(
IDPROC(h)->data.s.body,
"%s\n%s;return();\n\n",args,(yyvsp[(3) - (3)].name));
4168 #line 1558 "grammar.y" 4183 IDPROC(h)->data.s.body = (
char *)
omAlloc(strlen((yyvsp[(4) - (4)].
name))+strlen(args)+14);;
4184 sprintf(
IDPROC(h)->data.s.body,
"%s\n%s;return();\n\n",args,(yyvsp[(4) - (4)].name));
4193 #line 1581 "grammar.y" 4204 #line 1587 "grammar.y" 4218 #line 1599 "grammar.y" 4221 (yyvsp[(3) - (4)].lv).CleanUp();
4229 #line 1605 "grammar.y" 4231 if ((yyvsp[(1) - (3)].i)==
RETURN)
4243 #line 4244 "grammar.cc" 4261 if (0 <= yystate && yystate <=
YYLAST &&
yycheck[yystate] == *yyssp)
4277 #if ! YYERROR_VERBOSE 4281 YYSIZE_T yysize = yysyntax_error (0, yystate, yychar);
4287 if (yymsg != yymsgbuf)
4291 yymsg_alloc = yyalloc;
4295 yymsg_alloc =
sizeof yymsgbuf;
4299 if (0 < yysize && yysize <= yymsg_alloc)
4301 (void) yysyntax_error (yymsg, yystate, yychar);
4308 goto yyexhaustedlab;
4316 if (yyerrstatus == 3)
4321 if (yychar <=
YYEOF)
4324 if (yychar ==
YYEOF)
4416 #if !defined(yyoverflow) || YYERROR_VERBOSE 4434 while (yyssp != yyss)
4445 if (yymsg != yymsgbuf)
4449 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)