The R Project SVN R

Rev

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

Rev 28008 Rev 28036
Line 881... Line 881...
881 
#endif
 881 
#endif
882 
 
 882 
 
883 
#ifdef HAVE_LOCALE_H
 883 
#ifdef HAVE_LOCALE_H
884 
# include <locale.h>
 884 
# include <locale.h>
885 
#endif
 885 
#endif
- 
 
 886 
#ifdef HAVE_LANGINFO_H
- 
 
 887 
# include <langinfo.h>
- 
 
 888 
#endif
886 
 
 889 
 
887 
SEXP do_getlocale(SEXP call, SEXP op, SEXP args, SEXP rho)
 890 
SEXP do_getlocale(SEXP call, SEXP op, SEXP args, SEXP rho)
888 
{
 891 
{
889 
#ifdef HAVE_LOCALE_H
 892 
#ifdef HAVE_LOCALE_H
890 
    SEXP ans;
 893 
    SEXP ans;
Line 906... Line 909...
906 
    p = setlocale(cat, NULL);
 909 
    p = setlocale(cat, NULL);
907 
    PROTECT(ans = allocVector(STRSXP, 1));
 910 
    PROTECT(ans = allocVector(STRSXP, 1));
908 
    if(p) SET_STRING_ELT(ans, 0, mkChar(p));
 911 
    if(p) SET_STRING_ELT(ans, 0, mkChar(p));
909 
    else  SET_STRING_ELT(ans, 0, mkChar(""));
 912 
    else  SET_STRING_ELT(ans, 0, mkChar(""));
910 
    UNPROTECT(1);
 913 
    UNPROTECT(1);
- 
 
 914 
#ifdef HAVE_NL_LANGINFO
- 
 
 915 
    utf8locale = strcmp(nl_langinfo(CODESET), "UTF-8") == 0;
- 
 
 916 
#endif
911 
    return ans;
 917 
    return ans;
912 
#else
 918 
#else
913 
    return R_NilValue;
 919 
    return R_NilValue;
914 
#endif
 920 
#endif
915 
}
 921 
}