1 /** 2 * Copyright (c) 2021-2025 Huawei Device Co., Ltd. 3 * Licensed under the Apache License, Version 2.0 (the "License"); 4 * you may not use this file except in compliance with the License. 5 * You may obtain a copy of the License at 6 * 7 * http://www.apache.org/licenses/LICENSE-2.0 8 * 9 * Unless required by applicable law or agreed to in writing, software 10 * distributed under the License is distributed on an "AS IS" BASIS, 11 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. 12 * See the License for the specific language governing permissions and 13 * limitations under the License. 14 */ 15 16 #include "intrinsics.h" 17 #include "helpers/ets_intrinsics_helpers.h" 18 #include "types/ets_primitives.h" 19 20 namespace ark::ets::intrinsics { 21 22 const char LOWER_TO_UPPER_OFFSET = 'a' - 'A'; 23 StdCoreCharIsUpperCase(EtsChar value)24extern "C" EtsBoolean StdCoreCharIsUpperCase(EtsChar value) 25 { 26 return ToEtsBoolean(value >= 'A' && value <= 'Z'); 27 } StdCoreCharToUpperCase(EtsChar value)28extern "C" EtsChar StdCoreCharToUpperCase(EtsChar value) 29 { 30 return (value >= 'a' && value <= 'z') ? value - LOWER_TO_UPPER_OFFSET : value; 31 } StdCoreCharIsLowerCase(EtsChar value)32extern "C" EtsBoolean StdCoreCharIsLowerCase(EtsChar value) 33 { 34 return ToEtsBoolean(value >= 'a' && value <= 'z'); 35 } StdCoreCharToLowerCase(EtsChar value)36extern "C" EtsChar StdCoreCharToLowerCase(EtsChar value) 37 { 38 return (value >= 'A' && value <= 'Z') ? value + LOWER_TO_UPPER_OFFSET : value; 39 } StdCoreCharIsWhiteSpace(EtsChar value)40extern "C" EtsBoolean StdCoreCharIsWhiteSpace(EtsChar value) 41 { 42 return ToEtsBoolean(utf::IsWhiteSpaceChar(value)); 43 } 44 StdCoreCharToByte(EtsChar val)45EtsByte StdCoreCharToByte(EtsChar val) 46 { 47 return static_cast<int8_t>(val); 48 } 49 StdCoreCharToShort(EtsChar val)50EtsShort StdCoreCharToShort(EtsChar val) 51 { 52 return static_cast<int16_t>(val); 53 } 54 StdCoreCharToInt(EtsChar val)55EtsInt StdCoreCharToInt(EtsChar val) 56 { 57 return static_cast<int32_t>(val); 58 } 59 StdCoreCharToLong(EtsChar val)60EtsLong StdCoreCharToLong(EtsChar val) 61 { 62 return static_cast<int64_t>(val); 63 } 64 StdCoreCharToFloat(EtsChar val)65EtsFloat StdCoreCharToFloat(EtsChar val) 66 { 67 return static_cast<float>(val); 68 } 69 StdCoreCharToDouble(EtsChar val)70EtsDouble StdCoreCharToDouble(EtsChar val) 71 { 72 return static_cast<double>(val); 73 } 74 75 } // namespace ark::ets::intrinsics 76