| 41 | namespace internal { |
| 42 | |
| 43 | inline SEXP make_charsexp__impl__wstring(const wchar_t* data) { |
| 44 | char* buffer = get_string_buffer(); |
| 45 | wcstombs(buffer, data, MAXELTSIZE); |
| 46 | return Rf_mkChar(buffer); |
| 47 | } |
| 48 | inline SEXP make_charsexp__impl__wstring(wchar_t data) { |
| 49 | wchar_t x[2]; x[0] = data; x[1] = '\0'; |
| 50 | char* buffer = get_string_buffer(); |
no test coverage detected