4fae60c4b0
GET_COMMAND_ARGUMENT takes a lot of optional arguments: VALUE, LENGTH, STATUS and ERRMSG. This patch breaks up the interface into 2 different functions: * One for getting the LENGTH of an argument. * One for getting the VALUE and the ERRMSG of an argument. This returns the STATUS, which can be easily ignored by lowering if it is missing in the invocation. Differential Revision: https://reviews.llvm.org/D108688
43 lines
1.4 KiB
C++
43 lines
1.4 KiB
C++
//===-- runtime/command.h ---------------------------------------*- 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
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
#ifndef FORTRAN_RUNTIME_COMMAND_H_
|
|
#define FORTRAN_RUNTIME_COMMAND_H_
|
|
|
|
#include "cpp-type.h"
|
|
#include "entry-names.h"
|
|
|
|
namespace Fortran::runtime {
|
|
class Descriptor;
|
|
|
|
extern "C" {
|
|
// 16.9.51 COMMAND_ARGUMENT_COUNT
|
|
//
|
|
// Lowering may need to cast the result to match the precision of the default
|
|
// integer kind.
|
|
CppTypeFor<TypeCategory::Integer, 4> RTNAME(ArgumentCount)();
|
|
|
|
// 16.9.83 GET_COMMAND_ARGUMENT
|
|
// We're breaking up the interface into several different functions, since most
|
|
// of the parameters are optional.
|
|
|
|
// Try to get the value of the n'th argument.
|
|
// Returns a STATUS as described in the standard.
|
|
CppTypeFor<TypeCategory::Integer, 4> RTNAME(ArgumentValue)(
|
|
CppTypeFor<TypeCategory::Integer, 4> n, const Descriptor *value,
|
|
const Descriptor *errmsg);
|
|
|
|
// Try to get the significant length of the n'th argument.
|
|
// Returns 0 if it doesn't manage.
|
|
CppTypeFor<TypeCategory::Integer, 4> RTNAME(ArgumentLength)(
|
|
CppTypeFor<TypeCategory::Integer, 4> n);
|
|
}
|
|
} // namespace Fortran::runtime
|
|
|
|
#endif // FORTRAN_RUNTIME_COMMAND_H_
|