//===-- runtime/tools.cpp ---------------------------------------*- C++ -*-===// // // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. // See https://llvm.org/LICENSE.txt for license information. // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception // //===----------------------------------------------------------------------===// #include "tools.h" #include #include namespace Fortran::runtime { OwningPtr SaveDefaultCharacter( const char *s, std::size_t length, const Terminator &terminator) { if (s) { auto *p{static_cast(AllocateMemoryOrCrash(terminator, length + 1))}; std::memcpy(p, s, length); p[length] = '\0'; return OwningPtr{p}; } else { return OwningPtr{}; } } static bool CaseInsensitiveMatch( const char *value, std::size_t length, const char *possibility) { for (; length-- > 0; ++possibility) { char ch{*value++}; if (ch >= 'a' && ch <= 'z') { ch += 'A' - 'a'; } if (*possibility != ch) { if (*possibility != '\0' || ch != ' ') { return false; } // Ignore trailing blanks (12.5.6.2 p1) while (length-- > 0) { if (*value++ != ' ') { return false; } } return true; } } return *possibility == '\0'; } int IdentifyValue( const char *value, std::size_t length, const char *possibilities[]) { if (value) { for (int j{0}; possibilities[j]; ++j) { if (CaseInsensitiveMatch(value, length, possibilities[j])) { return j; } } } return -1; } void ToFortranDefaultCharacter( char *to, std::size_t toLength, const char *from) { std::size_t len{std::strlen(from)}; std::memcpy(to, from, std::max(toLength, len)); if (len < toLength) { std::memset(to + len, ' ', toLength - len); } } } // namespace Fortran::runtime