The R Project SVN R

Rev

Rev 63171 | Rev 64272 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 63171 Rev 63181
Line 1827... Line 1827...
1827 
 
 1827 
 
1828 
    return R_NilValue;
 1828 
    return R_NilValue;
1829 
}
 1829 
}
1830 
 
 1830 
 
1831 
 
 1831 
 
- 
 
 1832 
/* Caller has to manage the R_alloc stack */
1832 
/* NB: strings can have equal collation weight without being identical */
 1833 
/* NB: strings can have equal collation weight without being identical */
1833 
attribute_hidden
 1834 
attribute_hidden
1834 
int Scollate(SEXP a, SEXP b)
 1835 
int Scollate(SEXP a, SEXP b)
1835 
{
 1836 
{
1836 
    int result = 0;
 1837 
    int result = 0;
Line 2180... Line 2181...
2180 
    Rboolean rm_trailing_0 = digits >= 0;
 2181 
    Rboolean rm_trailing_0 = digits >= 0;
2181 
    Rboolean do_fg = !strcmp("fg", format); /* TRUE  iff  format == "fg" */
 2182 
    Rboolean do_fg = !strcmp("fg", format); /* TRUE  iff  format == "fg" */
2182 
    double xx;
 2183 
    double xx;
2183 
    int iex;
 2184 
    int iex;
2184 
    size_t j, len_flag = strlen(flag);
 2185 
    size_t j, len_flag = strlen(flag);
2185 
    void *vmax = vmaxget();
 2186 
    const void *vmax = vmaxget();
2186 
 
 2187 
 
2187 
    char *f0  =	 R_alloc((size_t) do_fg ? 1+1+len_flag+3 : 1, sizeof(char));
 2188 
    char *f0  =	 R_alloc((size_t) do_fg ? 1+1+len_flag+3 : 1, sizeof(char));
2188 
    char *form = R_alloc((size_t) 1+1+len_flag+3 + strlen(format),
 2189 
    char *form = R_alloc((size_t) 1+1+len_flag+3 + strlen(format),
2189 
			 sizeof(char));
 2190 
			 sizeof(char));
2190 
 
 2191