The R Project SVN R-packages

Rev

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

Rev 3307 Rev 3324
Line 88... Line 88...
88 
const char *_get_column_type(const char *class, int type) {
 88 
const char *_get_column_type(const char *class, int type) {
89 
    if (type == INTSXP) return "int";
 89 
    if (type == INTSXP) return "int";
90 
    else if (type == REALSXP) return "double";
 90 
    else if (type == REALSXP) return "double";
91 
    else if (type == CHARSXP) return "text";
 91 
    else if (type == CHARSXP) return "text";
92 
    else if (type == LGLSXP) return "bit";
 92 
    else if (type == LGLSXP) return "bit";
93 
    else if (strcmp(class, "factor") == 0) return "int";
 93 
    else if (strcmp(class, "factor") == 0) return "int"; /* do I really reach this ? */
94 
    else if (strcmp(class, "ordered") == 0) return "int";
 94 
    else if (strcmp(class, "ordered") == 0) return "int";
95
95
96 
    return NULL;
 96 
    return NULL;
97 
}
 97 
}
98 
 
 98