← Back to branch summary

~showard314/ubuntu/karmic/r-base/remove_start_comments

« back to all changes in this revision

Viewing changes to src/main/gram.c

  • Committer: Bazaar Package Importer
  • Author(s): Dirk Eddelbuettel
  • Date: 2008-12-20 09:26:38 UTC
  • mfrom: (1.2.6 upstream)
  • mto: (2.1.32 jaunty)
  • mto: This revision was merged to the branch mainline in revision 6.
  • Revision ID: james.westby@ubuntu.com-20081220092638-i4p6po0hndi24ri5
* Updated to Dec 19 release candidate of R 2.8.1 expected for Dec 22

* r-doc-pdf expected to be empty due to the tex/texinfo bug below

* debian/control: Change Build-Depends: on openjdk-6-jdk to 
  'openjdk-6-jdk [!arm !hppa]' as arm and hppa do not have one.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/main/gram.c
150
150
 
151
151
 
152
152
/* Copy the first part of user declarations.  */
153
 
#line 1 "gram.y"
 
153
 
154
154
 
155
155
/*
156
156
 *  R : A Computer Langage for Statistical Data Analysis
388
388
 
389
389
 
390
390
/* Line 216 of yacc.c.  */
391
 
#line 392 "gram.c"
 
391
 
392
392
 
393
393
#ifdef short
394
394
# undef short
1865
1865
  switch (yyn)
1866
1866
    {
1867
1867
        case 2:
1868
 
#line 227 "gram.y"
1869
 
    { return 0; ;}
 
1868
 
 
1869
    { return 0; }
1870
1870
    break;
1871
1871
 
1872
1872
  case 3:
1873
 
#line 228 "gram.y"
1874
 
    { return xxvalue(NULL,2,NULL); ;}
 
1873
 
 
1874
    { return xxvalue(NULL,2,NULL); }
1875
1875
    break;
1876
1876
 
1877
1877
  case 4:
1878
 
#line 229 "gram.y"
1879
 
    { return xxvalue((yyvsp[(1) - (2)]),3,&(yylsp[(1) - (2)])); ;}
 
1878
 
 
1879
    { return xxvalue((yyvsp[(1) - (2)]),3,&(yylsp[(1) - (2)])); }
1880
1880
    break;
1881
1881
 
1882
1882
  case 5:
1883
 
#line 230 "gram.y"
1884
 
    { return xxvalue((yyvsp[(1) - (2)]),4,&(yylsp[(1) - (2)])); ;}
 
1883
 
 
1884
    { return xxvalue((yyvsp[(1) - (2)]),4,&(yylsp[(1) - (2)])); }
1885
1885
    break;
1886
1886
 
1887
1887
  case 6:
1888
 
#line 231 "gram.y"
1889
 
    { YYABORT; ;}
 
1888
 
 
1889
    { YYABORT; }
1890
1890
    break;
1891
1891
 
1892
1892
  case 7:
1893
 
#line 234 "gram.y"
1894
 
    { (yyval) = (yyvsp[(1) - (1)]); ;}
 
1893
 
 
1894
    { (yyval) = (yyvsp[(1) - (1)]); }
1895
1895
    break;
1896
1896
 
1897
1897
  case 8:
1898
 
#line 235 "gram.y"
1899
 
    { (yyval) = (yyvsp[(1) - (1)]); ;}
 
1898
 
 
1899
    { (yyval) = (yyvsp[(1) - (1)]); }
1900
1900
    break;
1901
1901
 
1902
1902
  case 9:
1903
 
#line 238 "gram.y"
1904
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
1903
 
 
1904
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
1905
1905
    break;
1906
1906
 
1907
1907
  case 10:
1908
 
#line 241 "gram.y"
1909
 
    { (yyval) = (yyvsp[(1) - (1)]); ;}
 
1908
 
 
1909
    { (yyval) = (yyvsp[(1) - (1)]); }
1910
1910
    break;
1911
1911
 
1912
1912
  case 11:
1913
 
#line 242 "gram.y"
1914
 
    { (yyval) = (yyvsp[(1) - (1)]); ;}
 
1913
 
 
1914
    { (yyval) = (yyvsp[(1) - (1)]); }
1915
1915
    break;
1916
1916
 
1917
1917
  case 12:
1918
 
#line 243 "gram.y"
1919
 
    { (yyval) = (yyvsp[(1) - (1)]); ;}
 
1918
 
 
1919
    { (yyval) = (yyvsp[(1) - (1)]); }
1920
1920
    break;
1921
1921
 
1922
1922
  case 13:
1923
 
#line 244 "gram.y"
1924
 
    { (yyval) = (yyvsp[(1) - (1)]); ;}
 
1923
 
 
1924
    { (yyval) = (yyvsp[(1) - (1)]); }
1925
1925
    break;
1926
1926
 
1927
1927
  case 14:
1928
 
#line 246 "gram.y"
1929
 
    { (yyval) = xxexprlist((yyvsp[(1) - (3)]),&(yylsp[(1) - (3)]),(yyvsp[(2) - (3)])); ;}
 
1928
 
 
1929
    { (yyval) = xxexprlist((yyvsp[(1) - (3)]),&(yylsp[(1) - (3)]),(yyvsp[(2) - (3)])); }
1930
1930
    break;
1931
1931
 
1932
1932
  case 15:
1933
 
#line 247 "gram.y"
1934
 
    { (yyval) = xxparen((yyvsp[(1) - (3)]),(yyvsp[(2) - (3)])); ;}
 
1933
 
 
1934
    { (yyval) = xxparen((yyvsp[(1) - (3)]),(yyvsp[(2) - (3)])); }
1935
1935
    break;
1936
1936
 
1937
1937
  case 16:
1938
 
#line 249 "gram.y"
1939
 
    { (yyval) = xxunary((yyvsp[(1) - (2)]),(yyvsp[(2) - (2)])); ;}
 
1938
 
 
1939
    { (yyval) = xxunary((yyvsp[(1) - (2)]),(yyvsp[(2) - (2)])); }
1940
1940
    break;
1941
1941
 
1942
1942
  case 17:
1943
 
#line 250 "gram.y"
1944
 
    { (yyval) = xxunary((yyvsp[(1) - (2)]),(yyvsp[(2) - (2)])); ;}
 
1943
 
 
1944
    { (yyval) = xxunary((yyvsp[(1) - (2)]),(yyvsp[(2) - (2)])); }
1945
1945
    break;
1946
1946
 
1947
1947
  case 18:
1948
 
#line 251 "gram.y"
1949
 
    { (yyval) = xxunary((yyvsp[(1) - (2)]),(yyvsp[(2) - (2)])); ;}
 
1948
 
 
1949
    { (yyval) = xxunary((yyvsp[(1) - (2)]),(yyvsp[(2) - (2)])); }
1950
1950
    break;
1951
1951
 
1952
1952
  case 19:
1953
 
#line 252 "gram.y"
1954
 
    { (yyval) = xxunary((yyvsp[(1) - (2)]),(yyvsp[(2) - (2)])); ;}
 
1953
 
 
1954
    { (yyval) = xxunary((yyvsp[(1) - (2)]),(yyvsp[(2) - (2)])); }
1955
1955
    break;
1956
1956
 
1957
1957
  case 20:
1958
 
#line 253 "gram.y"
1959
 
    { (yyval) = xxunary((yyvsp[(1) - (2)]),(yyvsp[(2) - (2)])); ;}
 
1958
 
 
1959
    { (yyval) = xxunary((yyvsp[(1) - (2)]),(yyvsp[(2) - (2)])); }
1960
1960
    break;
1961
1961
 
1962
1962
  case 21:
1963
 
#line 255 "gram.y"
1964
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
1963
 
 
1964
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
1965
1965
    break;
1966
1966
 
1967
1967
  case 22:
1968
 
#line 256 "gram.y"
1969
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
1968
 
 
1969
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
1970
1970
    break;
1971
1971
 
1972
1972
  case 23:
1973
 
#line 257 "gram.y"
1974
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
1973
 
 
1974
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
1975
1975
    break;
1976
1976
 
1977
1977
  case 24:
1978
 
#line 258 "gram.y"
1979
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
1978
 
 
1979
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
1980
1980
    break;
1981
1981
 
1982
1982
  case 25:
1983
 
#line 259 "gram.y"
1984
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
1983
 
 
1984
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
1985
1985
    break;
1986
1986
 
1987
1987
  case 26:
1988
 
#line 260 "gram.y"
1989
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
1988
 
 
1989
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
1990
1990
    break;
1991
1991
 
1992
1992
  case 27:
1993
 
#line 261 "gram.y"
1994
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
1993
 
 
1994
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
1995
1995
    break;
1996
1996
 
1997
1997
  case 28:
1998
 
#line 262 "gram.y"
1999
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
1998
 
 
1999
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
2000
2000
    break;
2001
2001
 
2002
2002
  case 29:
2003
 
#line 263 "gram.y"
2004
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
2003
 
 
2004
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
2005
2005
    break;
2006
2006
 
2007
2007
  case 30:
2008
 
#line 264 "gram.y"
2009
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
2008
 
 
2009
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
2010
2010
    break;
2011
2011
 
2012
2012
  case 31:
2013
 
#line 265 "gram.y"
2014
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
2013
 
 
2014
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
2015
2015
    break;
2016
2016
 
2017
2017
  case 32:
2018
 
#line 266 "gram.y"
2019
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
2018
 
 
2019
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
2020
2020
    break;
2021
2021
 
2022
2022
  case 33:
2023
 
#line 267 "gram.y"
2024
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
2023
 
 
2024
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
2025
2025
    break;
2026
2026
 
2027
2027
  case 34:
2028
 
#line 268 "gram.y"
2029
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
2028
 
 
2029
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
2030
2030
    break;
2031
2031
 
2032
2032
  case 35:
2033
 
#line 269 "gram.y"
2034
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
2033
 
 
2034
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
2035
2035
    break;
2036
2036
 
2037
2037
  case 36:
2038
 
#line 270 "gram.y"
2039
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
2038
 
 
2039
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
2040
2040
    break;
2041
2041
 
2042
2042
  case 37:
2043
 
#line 271 "gram.y"
2044
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
2043
 
 
2044
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
2045
2045
    break;
2046
2046
 
2047
2047
  case 38:
2048
 
#line 272 "gram.y"
2049
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
2048
 
 
2049
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
2050
2050
    break;
2051
2051
 
2052
2052
  case 39:
2053
 
#line 273 "gram.y"
2054
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
2053
 
 
2054
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
2055
2055
    break;
2056
2056
 
2057
2057
  case 40:
2058
 
#line 274 "gram.y"
2059
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
2058
 
 
2059
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
2060
2060
    break;
2061
2061
 
2062
2062
  case 41:
2063
 
#line 276 "gram.y"
2064
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
2063
 
 
2064
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
2065
2065
    break;
2066
2066
 
2067
2067
  case 42:
2068
 
#line 277 "gram.y"
2069
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(3) - (3)]),(yyvsp[(1) - (3)])); ;}
 
2068
 
 
2069
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(3) - (3)]),(yyvsp[(1) - (3)])); }
2070
2070
    break;
2071
2071
 
2072
2072
  case 43:
2073
 
#line 279 "gram.y"
2074
 
    { (yyval) = xxdefun((yyvsp[(1) - (6)]),(yyvsp[(3) - (6)]),(yyvsp[(6) - (6)])); ;}
 
2073
 
 
2074
    { (yyval) = xxdefun((yyvsp[(1) - (6)]),(yyvsp[(3) - (6)]),(yyvsp[(6) - (6)])); }
2075
2075
    break;
2076
2076
 
2077
2077
  case 44:
2078
 
#line 280 "gram.y"
2079
 
    { (yyval) = xxfuncall((yyvsp[(1) - (4)]),(yyvsp[(3) - (4)])); ;}
 
2078
 
 
2079
    { (yyval) = xxfuncall((yyvsp[(1) - (4)]),(yyvsp[(3) - (4)])); }
2080
2080
    break;
2081
2081
 
2082
2082
  case 45:
2083
 
#line 281 "gram.y"
2084
 
    { (yyval) = xxif((yyvsp[(1) - (3)]),(yyvsp[(2) - (3)]),(yyvsp[(3) - (3)])); ;}
 
2083
 
 
2084
    { (yyval) = xxif((yyvsp[(1) - (3)]),(yyvsp[(2) - (3)]),(yyvsp[(3) - (3)])); }
2085
2085
    break;
2086
2086
 
2087
2087
  case 46:
2088
 
#line 282 "gram.y"
2089
 
    { (yyval) = xxifelse((yyvsp[(1) - (5)]),(yyvsp[(2) - (5)]),(yyvsp[(3) - (5)]),(yyvsp[(5) - (5)])); ;}
 
2088
 
 
2089
    { (yyval) = xxifelse((yyvsp[(1) - (5)]),(yyvsp[(2) - (5)]),(yyvsp[(3) - (5)]),(yyvsp[(5) - (5)])); }
2090
2090
    break;
2091
2091
 
2092
2092
  case 47:
2093
 
#line 283 "gram.y"
2094
 
    { (yyval) = xxfor((yyvsp[(1) - (3)]),(yyvsp[(2) - (3)]),(yyvsp[(3) - (3)])); ;}
 
2093
 
 
2094
    { (yyval) = xxfor((yyvsp[(1) - (3)]),(yyvsp[(2) - (3)]),(yyvsp[(3) - (3)])); }
2095
2095
    break;
2096
2096
 
2097
2097
  case 48:
2098
 
#line 284 "gram.y"
2099
 
    { (yyval) = xxwhile((yyvsp[(1) - (3)]),(yyvsp[(2) - (3)]),(yyvsp[(3) - (3)])); ;}
 
2098
 
 
2099
    { (yyval) = xxwhile((yyvsp[(1) - (3)]),(yyvsp[(2) - (3)]),(yyvsp[(3) - (3)])); }
2100
2100
    break;
2101
2101
 
2102
2102
  case 49:
2103
 
#line 285 "gram.y"
2104
 
    { (yyval) = xxrepeat((yyvsp[(1) - (2)]),(yyvsp[(2) - (2)])); ;}
 
2103
 
 
2104
    { (yyval) = xxrepeat((yyvsp[(1) - (2)]),(yyvsp[(2) - (2)])); }
2105
2105
    break;
2106
2106
 
2107
2107
  case 50:
2108
 
#line 286 "gram.y"
2109
 
    { (yyval) = xxsubscript((yyvsp[(1) - (5)]),(yyvsp[(2) - (5)]),(yyvsp[(3) - (5)])); ;}
 
2108
 
 
2109
    { (yyval) = xxsubscript((yyvsp[(1) - (5)]),(yyvsp[(2) - (5)]),(yyvsp[(3) - (5)])); }
2110
2110
    break;
2111
2111
 
2112
2112
  case 51:
2113
 
#line 287 "gram.y"
2114
 
    { (yyval) = xxsubscript((yyvsp[(1) - (4)]),(yyvsp[(2) - (4)]),(yyvsp[(3) - (4)])); ;}
 
2113
 
 
2114
    { (yyval) = xxsubscript((yyvsp[(1) - (4)]),(yyvsp[(2) - (4)]),(yyvsp[(3) - (4)])); }
2115
2115
    break;
2116
2116
 
2117
2117
  case 52:
2118
 
#line 288 "gram.y"
2119
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
2118
 
 
2119
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
2120
2120
    break;
2121
2121
 
2122
2122
  case 53:
2123
 
#line 289 "gram.y"
2124
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
2123
 
 
2124
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
2125
2125
    break;
2126
2126
 
2127
2127
  case 54:
2128
 
#line 290 "gram.y"
2129
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
2128
 
 
2129
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
2130
2130
    break;
2131
2131
 
2132
2132
  case 55:
2133
 
#line 291 "gram.y"
2134
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
2133
 
 
2134
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
2135
2135
    break;
2136
2136
 
2137
2137
  case 56:
2138
 
#line 292 "gram.y"
2139
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
2138
 
 
2139
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
2140
2140
    break;
2141
2141
 
2142
2142
  case 57:
2143
 
#line 293 "gram.y"
2144
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
2143
 
 
2144
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
2145
2145
    break;
2146
2146
 
2147
2147
  case 58:
2148
 
#line 294 "gram.y"
2149
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
2148
 
 
2149
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
2150
2150
    break;
2151
2151
 
2152
2152
  case 59:
2153
 
#line 295 "gram.y"
2154
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
2153
 
 
2154
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
2155
2155
    break;
2156
2156
 
2157
2157
  case 60:
2158
 
#line 296 "gram.y"
2159
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
2158
 
 
2159
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
2160
2160
    break;
2161
2161
 
2162
2162
  case 61:
2163
 
#line 297 "gram.y"
2164
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
2163
 
 
2164
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
2165
2165
    break;
2166
2166
 
2167
2167
  case 62:
2168
 
#line 298 "gram.y"
2169
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
2168
 
 
2169
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
2170
2170
    break;
2171
2171
 
2172
2172
  case 63:
2173
 
#line 299 "gram.y"
2174
 
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
2173
 
 
2174
    { (yyval) = xxbinary((yyvsp[(2) - (3)]),(yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
2175
2175
    break;
2176
2176
 
2177
2177
  case 64:
2178
 
#line 300 "gram.y"
2179
 
    { (yyval) = xxnxtbrk((yyvsp[(1) - (1)])); ;}
 
2178
 
 
2179
    { (yyval) = xxnxtbrk((yyvsp[(1) - (1)])); }
2180
2180
    break;
2181
2181
 
2182
2182
  case 65:
2183
 
#line 301 "gram.y"
2184
 
    { (yyval) = xxnxtbrk((yyvsp[(1) - (1)])); ;}
 
2183
 
 
2184
    { (yyval) = xxnxtbrk((yyvsp[(1) - (1)])); }
2185
2185
    break;
2186
2186
 
2187
2187
  case 66:
2188
 
#line 305 "gram.y"
2189
 
    { (yyval) = xxcond((yyvsp[(2) - (3)])); ;}
 
2188
 
 
2189
    { (yyval) = xxcond((yyvsp[(2) - (3)])); }
2190
2190
    break;
2191
2191
 
2192
2192
  case 67:
2193
 
#line 308 "gram.y"
2194
 
    { (yyval) = xxifcond((yyvsp[(2) - (3)])); ;}
 
2193
 
 
2194
    { (yyval) = xxifcond((yyvsp[(2) - (3)])); }
2195
2195
    break;
2196
2196
 
2197
2197
  case 68:
2198
 
#line 311 "gram.y"
2199
 
    { (yyval) = xxforcond((yyvsp[(2) - (5)]),(yyvsp[(4) - (5)])); ;}
 
2198
 
 
2199
    { (yyval) = xxforcond((yyvsp[(2) - (5)]),(yyvsp[(4) - (5)])); }
2200
2200
    break;
2201
2201
 
2202
2202
  case 69:
2203
 
#line 315 "gram.y"
2204
 
    { (yyval) = xxexprlist0(); ;}
 
2203
 
 
2204
    { (yyval) = xxexprlist0(); }
2205
2205
    break;
2206
2206
 
2207
2207
  case 70:
2208
 
#line 316 "gram.y"
2209
 
    { (yyval) = xxexprlist1((yyvsp[(1) - (1)]), &(yylsp[(1) - (1)])); ;}
 
2208
 
 
2209
    { (yyval) = xxexprlist1((yyvsp[(1) - (1)]), &(yylsp[(1) - (1)])); }
2210
2210
    break;
2211
2211
 
2212
2212
  case 71:
2213
 
#line 317 "gram.y"
2214
 
    { (yyval) = xxexprlist2((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]), &(yylsp[(3) - (3)])); ;}
 
2213
 
 
2214
    { (yyval) = xxexprlist2((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]), &(yylsp[(3) - (3)])); }
2215
2215
    break;
2216
2216
 
2217
2217
  case 72:
2218
 
#line 318 "gram.y"
2219
 
    { (yyval) = (yyvsp[(1) - (2)]); ;}
 
2218
 
 
2219
    { (yyval) = (yyvsp[(1) - (2)]); }
2220
2220
    break;
2221
2221
 
2222
2222
  case 73:
2223
 
#line 319 "gram.y"
2224
 
    { (yyval) = xxexprlist2((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]), &(yylsp[(3) - (3)])); ;}
 
2223
 
 
2224
    { (yyval) = xxexprlist2((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]), &(yylsp[(3) - (3)])); }
2225
2225
    break;
2226
2226
 
2227
2227
  case 74:
2228
 
#line 320 "gram.y"
2229
 
    { (yyval) = (yyvsp[(1) - (2)]);;}
 
2228
 
 
2229
    { (yyval) = (yyvsp[(1) - (2)]);}
2230
2230
    break;
2231
2231
 
2232
2232
  case 75:
2233
 
#line 323 "gram.y"
2234
 
    { (yyval) = xxsublist1((yyvsp[(1) - (1)])); ;}
 
2233
 
 
2234
    { (yyval) = xxsublist1((yyvsp[(1) - (1)])); }
2235
2235
    break;
2236
2236
 
2237
2237
  case 76:
2238
 
#line 324 "gram.y"
2239
 
    { (yyval) = xxsublist2((yyvsp[(1) - (4)]),(yyvsp[(4) - (4)])); ;}
 
2238
 
 
2239
    { (yyval) = xxsublist2((yyvsp[(1) - (4)]),(yyvsp[(4) - (4)])); }
2240
2240
    break;
2241
2241
 
2242
2242
  case 77:
2243
 
#line 327 "gram.y"
2244
 
    { (yyval) = xxsub0(); ;}
 
2243
 
 
2244
    { (yyval) = xxsub0(); }
2245
2245
    break;
2246
2246
 
2247
2247
  case 78:
2248
 
#line 328 "gram.y"
2249
 
    { (yyval) = xxsub1((yyvsp[(1) - (1)]), &(yylsp[(1) - (1)])); ;}
 
2248
 
 
2249
    { (yyval) = xxsub1((yyvsp[(1) - (1)]), &(yylsp[(1) - (1)])); }
2250
2250
    break;
2251
2251
 
2252
2252
  case 79:
2253
 
#line 329 "gram.y"
2254
 
    { (yyval) = xxsymsub0((yyvsp[(1) - (2)]), &(yylsp[(1) - (2)])); ;}
 
2253
 
 
2254
    { (yyval) = xxsymsub0((yyvsp[(1) - (2)]), &(yylsp[(1) - (2)])); }
2255
2255
    break;
2256
2256
 
2257
2257
  case 80:
2258
 
#line 330 "gram.y"
2259
 
    { (yyval) = xxsymsub1((yyvsp[(1) - (3)]),(yyvsp[(3) - (3)]), &(yylsp[(1) - (3)])); ;}
 
2258
 
 
2259
    { (yyval) = xxsymsub1((yyvsp[(1) - (3)]),(yyvsp[(3) - (3)]), &(yylsp[(1) - (3)])); }
2260
2260
    break;
2261
2261
 
2262
2262
  case 81:
2263
 
#line 331 "gram.y"
2264
 
    { (yyval) = xxsymsub0((yyvsp[(1) - (2)]), &(yylsp[(1) - (2)])); ;}
 
2263
 
 
2264
    { (yyval) = xxsymsub0((yyvsp[(1) - (2)]), &(yylsp[(1) - (2)])); }
2265
2265
    break;
2266
2266
 
2267
2267
  case 82:
2268
 
#line 332 "gram.y"
2269
 
    { (yyval) = xxsymsub1((yyvsp[(1) - (3)]),(yyvsp[(3) - (3)]), &(yylsp[(1) - (3)])); ;}
 
2268
 
 
2269
    { (yyval) = xxsymsub1((yyvsp[(1) - (3)]),(yyvsp[(3) - (3)]), &(yylsp[(1) - (3)])); }
2270
2270
    break;
2271
2271
 
2272
2272
  case 83:
2273
 
#line 333 "gram.y"
2274
 
    { (yyval) = xxnullsub0(&(yylsp[(1) - (2)])); ;}
 
2273
 
 
2274
    { (yyval) = xxnullsub0(&(yylsp[(1) - (2)])); }
2275
2275
    break;
2276
2276
 
2277
2277
  case 84:
2278
 
#line 334 "gram.y"
2279
 
    { (yyval) = xxnullsub1((yyvsp[(3) - (3)]), &(yylsp[(1) - (3)])); ;}
 
2278
 
 
2279
    { (yyval) = xxnullsub1((yyvsp[(3) - (3)]), &(yylsp[(1) - (3)])); }
2280
2280
    break;
2281
2281
 
2282
2282
  case 85:
2283
 
#line 337 "gram.y"
2284
 
    { (yyval) = xxnullformal(); ;}
 
2283
 
 
2284
    { (yyval) = xxnullformal(); }
2285
2285
    break;
2286
2286
 
2287
2287
  case 86:
2288
 
#line 338 "gram.y"
2289
 
    { (yyval) = xxfirstformal0((yyvsp[(1) - (1)])); ;}
 
2288
 
 
2289
    { (yyval) = xxfirstformal0((yyvsp[(1) - (1)])); }
2290
2290
    break;
2291
2291
 
2292
2292
  case 87:
2293
 
#line 339 "gram.y"
2294
 
    { (yyval) = xxfirstformal1((yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); ;}
 
2293
 
 
2294
    { (yyval) = xxfirstformal1((yyvsp[(1) - (3)]),(yyvsp[(3) - (3)])); }
2295
2295
    break;
2296
2296
 
2297
2297
  case 88:
2298
 
#line 340 "gram.y"
2299
 
    { (yyval) = xxaddformal0((yyvsp[(1) - (3)]),(yyvsp[(3) - (3)]), &(yylsp[(3) - (3)])); ;}
 
2298
 
 
2299
    { (yyval) = xxaddformal0((yyvsp[(1) - (3)]),(yyvsp[(3) - (3)]), &(yylsp[(3) - (3)])); }
2300
2300
    break;
2301
2301
 
2302
2302
  case 89:
2303
 
#line 341 "gram.y"
2304
 
    { (yyval) = xxaddformal1((yyvsp[(1) - (5)]),(yyvsp[(3) - (5)]),(yyvsp[(5) - (5)]),&(yylsp[(3) - (5)])); ;}
 
2303
 
 
2304
    { (yyval) = xxaddformal1((yyvsp[(1) - (5)]),(yyvsp[(3) - (5)]),(yyvsp[(5) - (5)]),&(yylsp[(3) - (5)])); }
2305
2305
    break;
2306
2306
 
2307
2307
  case 90:
2308
 
#line 344 "gram.y"
2309
 
    { EatLines = 1; ;}
 
2308
 
 
2309
    { EatLines = 1; }
2310
2310
    break;
2311
2311
 
2312
2312
 
2313
2313
/* Line 1267 of yacc.c.  */
2314
 
#line 2315 "gram.c"
 
2314
 
2315
2315
      default: break;
2316
2316
    }
2317
2317
  YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc);
2531
2531
}
2532
2532
 
2533
2533
 
2534
 
#line 346 "gram.y"
 
2534
 
2535
2535
 
2536
2536
 
2537
2537
 
3360
3360
        case PARSE_INCOMPLETE:
3361
3361
        case PARSE_ERROR:
3362
3362
            R_PPStackTop = savestack;
 
3363
            SrcFile = NULL;
3363
3364
            return R_NilValue;
3364
3365
            break;
3365
3366
        case PARSE_EOF:
3504
3505
        case PARSE_ERROR:
3505
3506
            R_IoBufferWriteReset(buffer);
3506
3507
            R_PPStackTop = savestack;
 
3508
            SrcFile = NULL;
3507
3509
            return R_NilValue;
3508
3510
            break;
3509
3511
        case PARSE_EOF: