The R Project SVN R

Rev

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

Rev 34396 Rev 34401
Line 52... Line 52...
52 
{
 52 
{
53 
    SEXP value, names;
 53 
    SEXP value, names;
54 
    char buf[128];
 54 
    char buf[128];
55 
    checkArity(op, args);
 55 
    checkArity(op, args);
56 
    sprintf(buf,"%s, %s", R_CPU, R_OS);
 56 
    sprintf(buf,"%s, %s", R_CPU, R_OS);
57 
    PROTECT(value = allocVector(VECSXP,11));
 57 
    PROTECT(value = allocVector(VECSXP,12));
58 
    PROTECT(names = allocVector(STRSXP,11));
 58 
    PROTECT(names = allocVector(STRSXP,12));
59 
    SET_STRING_ELT(names, 0, mkChar("platform"));
 59 
    SET_STRING_ELT(names, 0, mkChar("platform"));
60 
    SET_VECTOR_ELT(value, 0, mkString(R_PLATFORM));
 60 
    SET_VECTOR_ELT(value, 0, mkString(R_PLATFORM));
61 
    SET_STRING_ELT(names, 1, mkChar("arch"));
 61 
    SET_STRING_ELT(names, 1, mkChar("arch"));
62 
    SET_VECTOR_ELT(value, 1, mkString(R_CPU));
 62 
    SET_VECTOR_ELT(value, 1, mkString(R_CPU));
63 
    SET_STRING_ELT(names, 2, mkChar("os"));
 63 
    SET_STRING_ELT(names, 2, mkChar("os"));
Line 74... Line 74...
74 
    SET_VECTOR_ELT(value, 7, mkString(R_YEAR));
 74 
    SET_VECTOR_ELT(value, 7, mkString(R_YEAR));
75 
    SET_STRING_ELT(names, 8, mkChar("month"));
 75 
    SET_STRING_ELT(names, 8, mkChar("month"));
76 
    SET_VECTOR_ELT(value, 8, mkString(R_MONTH));
 76 
    SET_VECTOR_ELT(value, 8, mkString(R_MONTH));
77 
    SET_STRING_ELT(names, 9, mkChar("day"));
 77 
    SET_STRING_ELT(names, 9, mkChar("day"));
78 
    SET_VECTOR_ELT(value, 9, mkString(R_DAY));
 78 
    SET_VECTOR_ELT(value, 9, mkString(R_DAY));
- 
 
 79 
    SET_STRING_ELT(names, 10, mkChar("svn rev"));
- 
 
 80 
    SET_VECTOR_ELT(value, 10, mkString(R_SVN_REVISION));
79 
    SET_STRING_ELT(names, 10, mkChar("language"));
 81 
    SET_STRING_ELT(names, 11, mkChar("language"));
80 
    SET_VECTOR_ELT(value, 10, mkString("R"));
 82 
    SET_VECTOR_ELT(value, 11, mkString("R"));
81 
    setAttrib(value, R_NamesSymbol, names);
 83 
    setAttrib(value, R_NamesSymbol, names);
82 
    UNPROTECT(2);
 84 
    UNPROTECT(2);
83 
    return value;
 85 
    return value;
84 
}
 86 
}
85 
 
 87