2219 char *yymsg = yymsgbuf;
2220 YYSIZE_T yymsg_alloc =
sizeof yymsgbuf;
2223 #define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N)) 2234 YYDPRINTF ((stderr,
"Starting parse\n"));
2261 if (yyss + yystacksize - 1 <= yyssp)
2264 YYSIZE_T yysize = yyssp - yyss + 1;
2278 yyoverflow (
YY_(
"memory exhausted"),
2279 &yyss1, yysize *
sizeof (*yyssp),
2280 &yyvs1, yysize *
sizeof (*yyvsp),
2287 # ifndef YYSTACK_RELOCATE 2288 goto yyexhaustedlab;
2292 goto yyexhaustedlab;
2299 union yyalloc *yyptr =
2300 (
union yyalloc *)
YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize));
2302 goto yyexhaustedlab;
2303 YYSTACK_RELOCATE (yyss_alloc, yyss);
2304 YYSTACK_RELOCATE (yyvs_alloc, yyvs);
2305 # undef YYSTACK_RELOCATE 2312 yyssp = yyss + yysize - 1;
2313 yyvsp = yyvs + yysize - 1;
2315 YYDPRINTF ((stderr,
"Stack size increased to %lu\n",
2316 (
unsigned long int) yystacksize));
2318 if (yyss + yystacksize - 1 <= yyssp)
2322 YYDPRINTF ((stderr,
"Entering state %d\n", yystate));
2347 YYDPRINTF ((stderr,
"Reading a token: "));
2351 if (yychar <=
YYEOF)
2353 yychar = yytoken =
YYEOF;
2354 YYDPRINTF ((stderr,
"Now at end of input.\n"));
2418 yyval = yyvsp[1-yylen];
2427 #line 366 "grammar.y" 2463 #line 401 "grammar.y" 2470 #line 403 "grammar.y" 2477 #line 405 "grammar.y" 2486 #line 409 "grammar.y" 2496 #line 414 "grammar.y" 2503 #line 416 "grammar.y" 2513 if ((
inerror!=3) && ((yyvsp[(1) - (2)].
i)<
UMINUS) && ((yyvsp[(1) - (2)].
i)>
' '))
2557 #line 474 "grammar.y" 2564 #line 477 "grammar.y" 2571 #line 492 "grammar.y" 2580 #line 499 "grammar.y" 2590 #line 504 "grammar.y" 2592 syMake(&(yyval.lv),(yyvsp[(1) - (1)].name));
2599 #line 508 "grammar.y" 2608 #line 512 "grammar.y" 2610 if(
iiExprArith2(&(yyval.lv), &(yyvsp[(1) - (3)].lv),
'.', &(yyvsp[(3) - (3)].lv)))
YYERROR;
2617 #line 516 "grammar.y" 2626 #line 520 "grammar.y" 2628 if ((yyvsp[(1) - (4)].lv).rtyp==
UNKNOWN)
2635 memcpy((yyvsp[(1) - (4)].lv).
next,&(yyvsp[(3) - (4)].lv),
sizeof(
sleftv));
2644 #line 533 "grammar.y" 2648 memset(&(yyval.lv),0,
sizeof(
sleftv));
2650 leftv v = &(yyvsp[(2) - (3)].lv);
2655 memset(&tmp,0,
sizeof(tmp));
2660 (yyvsp[(2) - (3)].lv).CleanUp();
2665 (yyval.lv).data = (
void *)
pAdd((
poly)(yyval.lv).data,p);
2670 (yyvsp[(2) - (3)].lv).CleanUp();
2677 #line 561 "grammar.y" 2679 memset(&(yyval.lv),0,
sizeof((yyval.lv)));
2680 int i = atoi((yyvsp[(1) - (1)].
name));
2684 (yyval.lv).data = (
void *)(long)i;
2687 int l = strlen((yyvsp[(1) - (1)].
name))+2;
2692 sprintf(tmp,
"%d",i);
2693 if (strcmp(tmp,(yyvsp[(1) - (1)].
name))!=0)
2697 (yyval.lv).data = n;
2706 #line 585 "grammar.y" 2708 memset(&(yyval.lv),0,
sizeof((yyval.lv)));
2709 (yyval.lv).rtyp = (yyvsp[(1) - (1)].i);
2710 (yyval.lv).data = (yyval.lv).Data();
2717 #line 591 "grammar.y" 2719 memset(&(yyval.lv),0,
sizeof((yyval.lv)));
2721 (yyval.lv).data = (yyvsp[(1) - (1)].
name);
2728 #line 597 "grammar.y" 2737 #line 601 "grammar.y" 2746 #line 605 "grammar.y" 2755 #line 609 "grammar.y" 2764 #line 613 "grammar.y" 2773 #line 617 "grammar.y" 2782 #line 621 "grammar.y" 2791 #line 625 "grammar.y" 2800 #line 629 "grammar.y" 2809 #line 633 "grammar.y" 2818 #line 637 "grammar.y" 2827 #line 641 "grammar.y" 2829 if(
iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),
TRUE))
YYERROR;
2836 #line 645 "grammar.y" 2838 if(
iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),
TRUE))
YYERROR;
2845 #line 649 "grammar.y" 2847 if(
iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),
TRUE))
YYERROR;
2854 #line 653 "grammar.y" 2856 if(
iiExprArith2(&(yyval.lv),&(yyvsp[(3) - (6)].lv),(yyvsp[(1) - (6)].i),&(yyvsp[(5) - (6)].lv),
TRUE))
YYERROR;
2863 #line 657 "grammar.y" 2865 if(
iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv)))
YYERROR;
2872 #line 661 "grammar.y" 2874 if(
iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv)))
YYERROR;
2881 #line 665 "grammar.y" 2883 if(
iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv)))
YYERROR;
2890 #line 669 "grammar.y" 2892 if(
iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv)))
YYERROR;
2899 #line 673 "grammar.y" 2908 #line 677 "grammar.y" 2910 int b=
iiExprArithM(&(yyval.lv),&(yyvsp[(3) - (4)].lv),(yyvsp[(1) - (4)].i));
2919 #line 683 "grammar.y" 2921 if(
iiExprArith3(&(yyval.lv),(yyvsp[(1) - (8)].i),&(yyvsp[(3) - (8)].lv),&(yyvsp[(5) - (8)].lv),&(yyvsp[(7) - (8)].lv)))
YYERROR;
2928 #line 687 "grammar.y" 2937 #line 691 "grammar.y" 2946 #line 695 "grammar.y" 2955 #line 699 "grammar.y" 2957 if (
iiARROW(&(yyval.lv),(yyvsp[(1) - (3)].name),(yyvsp[(3) - (3)].name)))
YYERROR;
2964 #line 706 "grammar.y" 2966 leftv v = &(yyvsp[(1) - (3)].lv);
2972 memcpy(v->
next,&((yyvsp[(3) - (3)].lv)),
sizeof(
sleftv));
2973 (yyval.lv) = (yyvsp[(1) - (3)].lv);
2980 #line 717 "grammar.y" 2982 (yyval.lv) = (yyvsp[(1) - (1)].lv);
2989 #line 723 "grammar.y" 2992 (yyval.lv) = (yyvsp[(1) - (1)].lv);
2999 #line 727 "grammar.y" 3000 { (yyval.lv) = (yyvsp[(1) - (1)].lv); ;}
3006 #line 728 "grammar.y" 3007 { (yyval.lv) = (yyvsp[(2) - (3)].lv); ;}
3013 #line 730 "grammar.y" 3015 if(
iiExprArith3(&(yyval.lv),
'[',&(yyvsp[(1) - (6)].lv),&(yyvsp[(3) - (6)].lv),&(yyvsp[(5) - (6)].lv)))
YYERROR;
3022 #line 734 "grammar.y" 3031 #line 738 "grammar.y" 3033 if (
iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i),
NULL))
YYERROR;
3040 #line 742 "grammar.y" 3042 if (
iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i),
NULL))
YYERROR;
3049 #line 746 "grammar.y" 3051 if (
iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i),
NULL))
YYERROR;
3058 #line 750 "grammar.y" 3060 if (
iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i),
NULL))
YYERROR;
3067 #line 754 "grammar.y" 3069 if (
iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), (yyvsp[(5) - (6)].i),
NULL))
YYERROR;
3076 #line 758 "grammar.y" 3078 if (
iiApply(&(yyval.lv), &(yyvsp[(3) - (6)].lv), 0, &(yyvsp[(5) - (6)].lv)))
YYERROR;
3085 #line 762 "grammar.y" 3087 (yyval.lv)=(yyvsp[(2) - (3)].lv);
3094 #line 766 "grammar.y" 3099 {
if (
iiExprArith2(&(yyval.lv),&(yyvsp[(2) - (5)].lv),
'=',&(yyvsp[(4) - (5)].lv)))
YYERROR; }
3103 memset(&(yyval.lv),0,
sizeof((yyval.lv)));
3104 (yyval.lv).rtyp=
NONE;
3116 #line 783 "grammar.y" 3118 iiTestAssume(&(yyvsp[(2) - (5)].lv),&(yyvsp[(4) - (5)].lv));
3119 memset(&(yyval.lv),0,
sizeof((yyval.lv)));
3120 (yyval.lv).rtyp=
NONE;
3127 #line 789 "grammar.y" 3138 #line 795 "grammar.y" 3141 if (
siq<=0) (yyvsp[(4) - (5)].lv).Eval();
3143 (yyval.lv)=(yyvsp[(4) - (5)].lv);
3153 #line 807 "grammar.y" 3164 #line 815 "grammar.y" 3175 #line 823 "grammar.y" 3186 #line 832 "grammar.y" 3195 #line 836 "grammar.y" 3204 #line 840 "grammar.y" 3213 #line 844 "grammar.y" 3222 #line 848 "grammar.y" 3224 if(
iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),(yyvsp[(2) - (3)].i),&(yyvsp[(3) - (3)].lv)))
YYERROR;
3231 #line 852 "grammar.y" 3240 #line 856 "grammar.y" 3242 if(
iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),(yyvsp[(2) - (3)].i),&(yyvsp[(3) - (3)].lv)))
YYERROR;
3249 #line 860 "grammar.y" 3251 if(
iiExprArith2(&(yyval.lv),&(yyvsp[(1) - (3)].lv),(yyvsp[(2) - (3)].i),&(yyvsp[(3) - (3)].lv)))
YYERROR;
3258 #line 864 "grammar.y" 3267 #line 868 "grammar.y" 3276 #line 872 "grammar.y" 3285 #line 876 "grammar.y" 3294 #line 880 "grammar.y" 3300 memset(&(yyval.lv),0,
sizeof((yyval.lv)));
3303 (yyval.lv).data = (
void *)(long)(i == 0 ? 1 : 0);
3311 #line 892 "grammar.y" 3320 #line 898 "grammar.y" 3321 { (yyval.lv) = (yyvsp[(1) - (2)].lv); ;}
3327 #line 900 "grammar.y" 3329 if ((yyvsp[(1) - (2)].lv).rtyp==0)
3331 Werror(
"`%s` is undefined",(yyvsp[(1) - (2)].lv).Fullname());
3334 else if (((yyvsp[(1) - (2)].lv).rtyp==
MODUL_CMD)
3336 && ((yyvsp[(1) - (2)].lv).e!=
NULL) && ((yyvsp[(1) - (2)].lv).e->next==
NULL))
3338 MYYERROR(
"matrix must have 2 indices");
3340 (yyval.lv) = (yyvsp[(1) - (2)].lv);
3347 #line 920 "grammar.y" 3351 MYYERROR(
"string expression expected");
3353 (yyval.name) = (
char *)(yyvsp[(2) - (3)].lv).CopyD(
STRING_CMD);
3354 (yyvsp[(2) - (3)].lv).CleanUp();
3361 #line 932 "grammar.y" 3363 if (
iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),
myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
3371 #line 937 "grammar.y" 3373 if (
iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),
myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
3381 #line 942 "grammar.y" 3390 #line 946 "grammar.y" 3399 #line 950 "grammar.y" 3416 if (
iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (8)].lv),
myynest,(yyvsp[(1) - (8)].i),&((yyvsp[(2) - (8)].lv).req_packhdl->idroot)))
3426 if (
iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (8)].lv),
myynest,(yyvsp[(1) - (8)].i),&((yyvsp[(2) - (8)].lv).req_packhdl->idroot)))
3440 #line 986 "grammar.y" 3448 if (
iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),
myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
3450 leftv v=&(yyval.lv);
3462 if (
iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),
myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
3471 #line 1012 "grammar.y" 3473 int t=(yyvsp[(1) - (3)].lv).Typ();
3475 memset(&r,0,
sizeof(
sleftv));
3483 if (
iiDeclCommand(&r,&(yyvsp[(3) - (3)].lv),
myynest,t,&((yyvsp[(3) - (3)].lv).req_packhdl->idroot)))
3486 leftv v=&(yyvsp[(1) - (3)].lv);
3490 (yyval.lv)=(yyvsp[(1) - (3)].lv);
3497 #line 1033 "grammar.y" 3499 if (
iiDeclCommand(&(yyval.lv),&(yyvsp[(2) - (2)].lv),
myynest,(yyvsp[(1) - (2)].i),&((yyvsp[(2) - (2)].lv).req_packhdl->idroot)))
3507 #line 1046 "grammar.y" 3509 leftv v = &(yyvsp[(2) - (5)].lv);
3515 memcpy(v->
next,&((yyvsp[(4) - (5)].lv)),
sizeof(
sleftv));
3516 (yyval.lv) = (yyvsp[(2) - (5)].lv);
3523 #line 1060 "grammar.y" 3533 #line 1068 "grammar.y" 3535 memset(&(yyval.lv),0,
sizeof((yyval.lv)));
3538 (*iv)[1] = (yyvsp[(1) - (1)].i);
3540 (yyval.lv).data = (
void *)iv;
3547 #line 1077 "grammar.y" 3549 memset(&(yyval.lv),0,
sizeof((yyval.lv)));
3550 leftv sl = &(yyvsp[(3) - (4)].lv);
3554 int l = 2 + slLength;
3556 (*iv)[0] = slLength;
3557 (*iv)[1] = (yyvsp[(1) - (4)].i);
3560 while ((i<l) && (sl!=
NULL))
3564 (*iv)[i++] = (int)((
long)(sl->
Data()));
3570 int ll = 0,l = ivv->
length();
3573 (*iv)[i++] = (*ivv)[ll++];
3579 (yyvsp[(3) - (4)].lv).CleanUp();
3580 MYYERROR(
"wrong type in ordering");
3585 (yyval.lv).data = (
void *)iv;
3587 (yyvsp[(3) - (4)].lv).CleanUp();
3594 #line 1123 "grammar.y" 3596 (yyval.lv) = (yyvsp[(1) - (3)].lv);
3598 memcpy((yyval.lv).next,&(yyvsp[(3) - (3)].lv),
sizeof(
sleftv));
3605 #line 1133 "grammar.y" 3607 (yyval.lv) = (yyvsp[(2) - (3)].lv);
3614 #line 1139 "grammar.y" 3623 #line 1146 "grammar.y" 3624 { (yyval.i) = (yyvsp[(1) - (1)].i); ;}
3630 #line 1148 "grammar.y" 3631 { (yyval.i) = (yyvsp[(1) - (1)].i); ;}
3637 #line 1150 "grammar.y" 3638 { (yyval.i) = (yyvsp[(1) - (1)].i); ;}
3644 #line 1159 "grammar.y" 3645 {
if ((yyvsp[(1) - (2)].i) !=
'<')
YYERROR;
3652 #line 1162 "grammar.y" 3659 #line 1167 "grammar.y" 3669 #line 1172 "grammar.y" 3678 #line 1179 "grammar.y" 3688 #line 1187 "grammar.y" 3690 if (
basePack!=(yyvsp[(2) - (2)].lv).req_packhdl)
3702 #line 1199 "grammar.y" 3704 leftv v=&(yyvsp[(2) - (2)].lv);
3723 #line 1215 "grammar.y" 3725 leftv v=&(yyvsp[(3) - (3)].lv);
3744 #line 1234 "grammar.y" 3753 #line 1238 "grammar.y" 3762 #line 1242 "grammar.y" 3772 #line 1247 "grammar.y" 3781 #line 1251 "grammar.y" 3790 #line 1255 "grammar.y" 3799 #line 1259 "grammar.y" 3808 #line 1263 "grammar.y" 3810 list_cmd(0,(yyvsp[(3) - (4)].lv).Fullname(),
"// ",
TRUE);
3811 (yyvsp[(3) - (4)].lv).CleanUp();
3818 #line 1268 "grammar.y" 3822 (yyvsp[(3) - (6)].lv).CleanUp();
3829 #line 1274 "grammar.y" 3833 (yyvsp[(3) - (6)].lv).CleanUp();
3840 #line 1280 "grammar.y" 3844 (yyvsp[(3) - (6)].lv).CleanUp();
3851 #line 1286 "grammar.y" 3855 (yyvsp[(3) - (6)].lv).CleanUp();
3862 #line 1292 "grammar.y" 3866 (yyvsp[(3) - (6)].lv).CleanUp();
3873 #line 1298 "grammar.y" 3877 (yyvsp[(3) - (6)].lv).CleanUp();
3884 #line 1304 "grammar.y" 3888 (yyvsp[(3) - (6)].lv).CleanUp();
3895 #line 1316 "grammar.y" 3904 #line 1322 "grammar.y" 3911 #line 1331 "grammar.y" 3913 const char *ring_name = (yyvsp[(2) - (8)].lv).
name;
3915 rInit(&(yyvsp[(4) - (8)].lv),
3916 &(yyvsp[(6) - (8)].lv),
3917 &(yyvsp[(8) - (8)].lv));
3923 &((yyvsp[(2) - (8)].lv).req_packhdl->idroot),
FALSE);
3924 (yyvsp[(2) - (8)].lv).CleanUp();
3925 if (newRingHdl!=
NULL)
3935 if (newRingHdl==
NULL)
3949 #line 1364 "grammar.y" 3951 const char *ring_name = (yyvsp[(2) - (2)].lv).
name;
3954 (yyvsp[(2) - (2)].lv).CleanUp();
3961 #line 1371 "grammar.y" 3971 #line 1379 "grammar.y" 3980 #line 1388 "grammar.y" 3983 MYYERROR(
"only inside a proc allowed");
3984 const char * n=(yyvsp[(2) - (2)].lv).Name();
3985 if ((((yyvsp[(2) - (2)].lv).Typ()==
RING_CMD)||((yyvsp[(2) - (2)].lv).Typ()==
QRING_CMD))
3986 && ((yyvsp[(2) - (2)].lv).rtyp==
IDHDL))
3989 if ((yyvsp[(2) - (2)].lv).e!=
NULL) h=
rFindHdl((ring)(yyvsp[(2) - (2)].lv).Data(),
NULL);
4020 #ifdef USE_IILOCALRING 4028 Werror(
"%s is no identifier",n);
4029 (yyvsp[(2) - (2)].lv).CleanUp();
4036 Werror(
"cannot find the name of the basering %s",n);
4037 (yyvsp[(2) - (2)].lv).CleanUp();
4040 (yyvsp[(2) - (2)].lv).CleanUp();
4044 Werror(
"%s is no name of a ring/qring",n);
4045 (yyvsp[(2) - (2)].lv).CleanUp();
4054 #line 1460 "grammar.y" 4056 type_cmd(&((yyvsp[(2) - (2)].lv)));
4063 #line 1464 "grammar.y" 4067 if ((yyvsp[(1) - (1)].lv).rtyp!=
COMMAND)
4070 if ((yyvsp[(1) - (1)].lv).Typ()==
UNKNOWN)
4072 if ((yyvsp[(1) - (1)].lv).
name!=
NULL)
4074 Werror(
"`%s` is undefined",(yyvsp[(1) - (1)].lv).
name);
4083 (yyvsp[(1) - (1)].lv).CleanUp(
currRing);
4091 #line 1493 "grammar.y" 4109 #line 1506 "grammar.y" 4131 #line 1523 "grammar.y" 4145 #line 1532 "grammar.y" 4155 #line 1537 "grammar.y" 4165 #line 1545 "grammar.y" 4168 char *
s = (
char *)
omAlloc( strlen((yyvsp[(2) - (3)].
name)) + strlen((yyvsp[(3) - (3)].
name)) + 36);
4169 sprintf(s,
"whileif (!(%s)) break;\n%scontinue;\n " ,(yyvsp[(2) - (3)].
name),(yyvsp[(3) - (3)].
name));
4179 #line 1557 "grammar.y" 4183 char * s = (
char *)
omAlloc( strlen((yyvsp[(3) - (5)].
name))+strlen((yyvsp[(4) - (5)].
name))+strlen((yyvsp[(5) - (5)].
name))+36);
4184 sprintf(s,
"forif (!(%s)) break;\n%s%s;\ncontinue;\n " 4185 ,(yyvsp[(3) - (5)].
name),(yyvsp[(5) - (5)].
name),(yyvsp[(4) - (5)].
name));
4190 s = (
char *)
omAlloc( strlen((yyvsp[(2) - (5)].
name)) + 3);
4191 sprintf(s,
"%s;\n",(yyvsp[(2) - (5)].
name));
4200 #line 1576 "grammar.y" 4206 sprintf(
IDPROC(h)->data.s.body,
"parameter list #;\n%s;return();\n\n",(yyvsp[(3) - (3)].name));
4215 #line 1586 "grammar.y" 4228 IDPROC(h)->data.s.body = (
char *)
omAlloc(strlen((yyvsp[(3) - (3)].
name))+strlen(args)+14);;
4229 sprintf(
IDPROC(h)->data.s.body,
"%s\n%s;return();\n\n",args,(yyvsp[(3) - (3)].name));
4239 #line 1605 "grammar.y" 4254 IDPROC(h)->data.s.body = (
char *)
omAlloc(strlen((yyvsp[(4) - (4)].
name))+strlen(args)+14);;
4255 sprintf(
IDPROC(h)->data.s.body,
"%s\n%s;return();\n\n",args,(yyvsp[(4) - (4)].name));
4264 #line 1628 "grammar.y" 4275 #line 1634 "grammar.y" 4289 #line 1646 "grammar.y" 4292 (yyvsp[(3) - (4)].lv).CleanUp();
4300 #line 1652 "grammar.y" 4302 if ((yyvsp[(1) - (3)].i)==
RETURN)
4314 #line 4315 "grammar.cc" 4332 if (0 <= yystate && yystate <=
YYLAST &&
yycheck[yystate] == *yyssp)
4348 #if ! YYERROR_VERBOSE 4352 YYSIZE_T yysize = yysyntax_error (0, yystate, yychar);
4358 if (yymsg != yymsgbuf)
4362 yymsg_alloc = yyalloc;
4366 yymsg_alloc =
sizeof yymsgbuf;
4370 if (0 < yysize && yysize <= yymsg_alloc)
4372 (void) yysyntax_error (yymsg, yystate, yychar);
4379 goto yyexhaustedlab;
4387 if (yyerrstatus == 3)
4392 if (yychar <=
YYEOF)
4395 if (yychar ==
YYEOF)
4487 #if !defined(yyoverflow) || YYERROR_VERBOSE 4505 while (yyssp != yyss)
4516 if (yymsg != yymsgbuf)
4520 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.
void syMake(leftv v, const char *id, idhdl packhdl)
#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)
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)
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
char name(const Variable &v)
void killhdl(idhdl h, package proot)
BOOLEAN iiConvert(int inputType, int outputType, int index, leftv input, leftv output, struct sConvertTypes *dConvertTypes)
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[]
ring rInit(sleftv *pn, sleftv *rv, sleftv *ord)
static const yytype_uint8 yyr1[]
BOOLEAN iiExprArith2(leftv res, leftv a, int op, leftv b, BOOLEAN proccall)
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)