| 28 | | |
| 29 | | |
| 30 | | // (str -- enc) |
| 31 | | UR_CALL( uc_encodingQ ) |
| 32 | | { |
| 33 | | UR_CALL_UNUSED_TH |
| 34 | | |
| 35 | | if( ur_is(tos, UT_STRING) ) |
| 36 | | { |
| 37 | | UAtom atom = UR_ATOM_ASCII; |
| 38 | | |
| 39 | | switch( ur_encoding(tos) ) |
| 40 | | { |
| 41 | | //case UR_ENC_ASCII: atom = UR_ATOM_ASCII; break; |
| 42 | | case UR_ENC_UTF8: atom = UR_ATOM_UTF8; break; |
| 43 | | case UR_ENC_UTF16: atom = UR_ATOM_UTF16; break; |
| 44 | | } |
| 45 | | |
| 46 | | ur_initType(tos, UT_WORD); |
| 47 | | ur_setUnbound(tos, atom); |
| 48 | | } |
| 49 | | else |
| 50 | | { |
| 51 | | ur_initType(tos, UT_NONE); |
| 52 | | } |
| 53 | | } |
| | 136 | // (str -- enc) |
| | 137 | UR_CALL( uc_encodingQ ) |
| | 138 | { |
| | 139 | UR_CALL_UNUSED_TH |
| | 140 | |
| | 141 | if( ur_is(tos, UT_STRING) ) |
| | 142 | { |
| | 143 | UAtom atom = UR_ATOM_ASCII; |
| | 144 | |
| | 145 | switch( ur_encoding(tos) ) |
| | 146 | { |
| | 147 | //case UR_ENC_ASCII: atom = UR_ATOM_ASCII; break; |
| | 148 | case UR_ENC_UTF8: atom = UR_ATOM_UTF8; break; |
| | 149 | case UR_ENC_UTF16: atom = UR_ATOM_UTF16; break; |
| | 150 | } |
| | 151 | |
| | 152 | ur_initType(tos, UT_WORD); |
| | 153 | ur_setUnbound(tos, atom); |
| | 154 | } |
| | 155 | else |
| | 156 | { |
| | 157 | ur_initType(tos, UT_NONE); |
| | 158 | } |
| | 159 | } |
| | 160 | #endif |
| | 161 | |
| | 162 | |