1*64ab3302SCarolineConcatto //===-- lib/Common/idioms.cpp ---------------------------------------------===// 2*64ab3302SCarolineConcatto // 3*64ab3302SCarolineConcatto // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. 4*64ab3302SCarolineConcatto // See https://llvm.org/LICENSE.txt for license information. 5*64ab3302SCarolineConcatto // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception 6*64ab3302SCarolineConcatto // 7*64ab3302SCarolineConcatto //===----------------------------------------------------------------------===// 8*64ab3302SCarolineConcatto 9*64ab3302SCarolineConcatto #include "flang/Common/idioms.h" 10*64ab3302SCarolineConcatto #include <cstdarg> 11*64ab3302SCarolineConcatto #include <cstdio> 12*64ab3302SCarolineConcatto #include <cstdlib> 13*64ab3302SCarolineConcatto 14*64ab3302SCarolineConcatto namespace Fortran::common { 15*64ab3302SCarolineConcatto 16*64ab3302SCarolineConcatto [[noreturn]] void die(const char *msg, ...) { 17*64ab3302SCarolineConcatto va_list ap; 18*64ab3302SCarolineConcatto va_start(ap, msg); 19*64ab3302SCarolineConcatto std::fputs("\nfatal internal error: ", stderr); 20*64ab3302SCarolineConcatto std::vfprintf(stderr, msg, ap); 21*64ab3302SCarolineConcatto va_end(ap); 22*64ab3302SCarolineConcatto fputc('\n', stderr); 23*64ab3302SCarolineConcatto std::abort(); 24*64ab3302SCarolineConcatto } 25*64ab3302SCarolineConcatto 26*64ab3302SCarolineConcatto // Convert the int index of an enumerator to a string. 27*64ab3302SCarolineConcatto // enumNames is a list of the names, separated by commas with optional spaces. 28*64ab3302SCarolineConcatto // This is intended for use from the expansion of ENUM_CLASS. 29*64ab3302SCarolineConcatto std::string EnumIndexToString(int index, const char *enumNames) { 30*64ab3302SCarolineConcatto const char *p{enumNames}; 31*64ab3302SCarolineConcatto for (; index > 0; --index, ++p) { 32*64ab3302SCarolineConcatto for (; *p && *p != ','; ++p) { 33*64ab3302SCarolineConcatto } 34*64ab3302SCarolineConcatto } 35*64ab3302SCarolineConcatto for (; *p == ' '; ++p) { 36*64ab3302SCarolineConcatto } 37*64ab3302SCarolineConcatto CHECK(*p != '\0'); 38*64ab3302SCarolineConcatto const char *q = p; 39*64ab3302SCarolineConcatto for (; *q && *q != ' ' && *q != ','; ++q) { 40*64ab3302SCarolineConcatto } 41*64ab3302SCarolineConcatto return std::string(p, q - p); 42*64ab3302SCarolineConcatto } 43*64ab3302SCarolineConcatto } 44