075fe789da
Original-commit: flang-compiler/f18@a006ceef1d Reviewed-on: https://github.com/flang-compiler/f18/pull/61 Tree-same-pre-rewrite: false
18 lines
334 B
C++
18 lines
334 B
C++
#include "char-set.h"
|
|
|
|
namespace Fortran {
|
|
namespace parser {
|
|
|
|
std::string SetOfCharsToString(SetOfChars set) {
|
|
std::string result;
|
|
for (char ch{' '}; set != 0; ++ch) {
|
|
if (IsCharInSet(set, ch)) {
|
|
set -= SingletonChar(ch);
|
|
result += ch;
|
|
}
|
|
}
|
|
return result;
|
|
}
|
|
|
|
} // namespace parser
|
|
} // namespace Fortran
|