The R Project SVN R

Rev

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

Rev 35524 Rev 35576
Line 45... Line 45...
45 
 int  ans_flags;
 45 
 int  ans_flags;
46 
 SEXP ans_ptr;
 46 
 SEXP ans_ptr;
47 
 int  ans_length;
 47 
 int  ans_length;
48 
 SEXP ans_names;
 48 
 SEXP ans_names;
49 
 int  ans_nnames;
 49 
 int  ans_nnames;
50 
/* int  deparse_level; /* Initialize to 1. */
 50 
/* int  deparse_level; Initialize to 1. */
51 
};
 51 
};
52 
 
 52 
 
53 
static int HasNames(SEXP x)
 53 
static int HasNames(SEXP x)
54 
{
 54 
{
55 
    if(isVector(x)) {
 55 
    if(isVector(x)) {
Line 608... Line 608...
608 
    SEXP ans, t;
 608 
    SEXP ans, t;
609 
    int mode, recurse, usenames;
 609 
    int mode, recurse, usenames;
610 
    struct BindData data;
 610 
    struct BindData data;
611 
    struct NameData nameData;
 611 
    struct NameData nameData;
612 
 
 612 
 
613 
/*    data.deparse_level = 1; /* Initialize this early. */
 613 
/*    data.deparse_level = 1;  Initialize this early. */
614 
    R_Visible = 1;
 614 
    R_Visible = 1;
615 
 
 615 
 
616 
    /* Method dispatch has failed; run the default code. */
 616 
    /* Method dispatch has failed; run the default code. */
617 
    /* By default we do not recurse, but this can be over-ridden */
 617 
    /* By default we do not recurse, but this can be over-ridden */
618 
    /* by an optional "recursive" argument. */
 618 
    /* by an optional "recursive" argument. */