The R Project SVN R

Rev

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

Rev 25241 Rev 26057
Line 35... Line 35...
35 
 *
 35 
 *
36 
 * do_paste uses two passes to paste the arguments (in CAR(args)) together.
 36 
 * do_paste uses two passes to paste the arguments (in CAR(args)) together.
37 
 * The first pass calculates the width of the paste buffer,
 37 
 * The first pass calculates the width of the paste buffer,
38 
 * then it is alloc-ed and the second pass stuffs the information in.
 38 
 * then it is alloc-ed and the second pass stuffs the information in.
39 
 */
 39 
 */
40 
 
 - 
 
41 
 
 - 
 
42 
SEXP do_paste(SEXP call, SEXP op, SEXP args, SEXP env)
 40 
SEXP do_paste(SEXP call, SEXP op, SEXP args, SEXP env)
43 
{
 41 
{
44 
    SEXP ans, collapse, sep, x, tmpchar;
 42 
    SEXP ans, collapse, sep, x, tmpchar;
45 
    int i, j, k, maxlen, nx, pwidth, sepw;
 43 
    int i, j, k, maxlen, nx, pwidth, sepw;
46 
    char *s, *buf;
 44 
    char *s, *buf;