1 /** 2 * Copyright (c) 2021-2024 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 19 namespace ark::ets::intrinsics { 20 21 const char LOWER_TO_UPPER_OFFSET = 'a' - 'A'; 22 StdCoreCharIsUpperCase(EtsChar value)23extern "C" EtsBoolean StdCoreCharIsUpperCase(EtsChar value) 24 { 25 return ToEtsBoolean(value >= 'A' && value <= 'Z'); 26 } StdCoreCharToUpperCase(EtsChar value)27extern "C" EtsChar StdCoreCharToUpperCase(EtsChar value) 28 { 29 return (value >= 'a' && value <= 'z') ? value - LOWER_TO_UPPER_OFFSET : value; 30 } StdCoreCharIsLowerCase(EtsChar value)31extern "C" EtsBoolean StdCoreCharIsLowerCase(EtsChar value) 32 { 33 return ToEtsBoolean(value >= 'a' && value <= 'z'); 34 } StdCoreCharToLowerCase(EtsChar value)35extern "C" EtsChar StdCoreCharToLowerCase(EtsChar value) 36 { 37 return (value >= 'A' && value <= 'Z') ? value + LOWER_TO_UPPER_OFFSET : value; 38 } StdCoreCharIsWhiteSpace(EtsChar value)39extern "C" EtsBoolean StdCoreCharIsWhiteSpace(EtsChar value) 40 { 41 return ToEtsBoolean(utf::IsWhiteSpaceChar(value)); 42 } 43 44 } // namespace ark::ets::intrinsics 45