Files
carbon-lang/explorer/ast/expression.cpp
T
Prabhat SachdevaandJon Ross-Perkins 289d05813e Explorer: Remove PrintDepth and implement PrintIndent. (#3113)
This PR removes `PrintDepth` from statement and declaration.
Implements `PrintIndent` for better indented formatting along with
various changes to make printing of statements and declarations better.

---------

Co-authored-by: Jon Ross-Perkins <jperkins@google.com>
2023-08-25 17:17:39 +00:00

431 lines
14 KiB
C++

// Part of the Carbon Language project, under the Apache License v2.0 with LLVM
// Exceptions. See /LICENSE for license information.
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
#include "explorer/ast/expression.h"
#include <map>
#include <optional>
#include "explorer/ast/pattern.h"
#include "explorer/ast/value.h"
#include "explorer/base/arena.h"
#include "explorer/base/error_builders.h"
#include "llvm/ADT/StringExtras.h"
#include "llvm/Support/Casting.h"
#include "llvm/Support/raw_ostream.h"
namespace Carbon {
using llvm::cast;
using llvm::isa;
auto IntrinsicExpression::FindIntrinsic(std::string_view name,
SourceLocation source_loc)
-> ErrorOr<Intrinsic> {
// TODO: Remove Print special casing once we have variadics or overloads.
if (name == "Print") {
return Intrinsic::Print;
}
static const auto& intrinsic_map = *new std::map<std::string_view, Intrinsic>(
{{"print", Intrinsic::Print},
{"new", Intrinsic::Alloc},
{"delete", Intrinsic::Dealloc},
{"print_allocs", Intrinsic::PrintAllocs},
{"rand", Intrinsic::Rand},
{"implicit_as", Intrinsic::ImplicitAs},
{"implicit_as_convert", Intrinsic::ImplicitAsConvert},
{"int_eq", Intrinsic::IntEq},
{"int_compare", Intrinsic::IntCompare},
{"int_bit_complement", Intrinsic::IntBitComplement},
{"int_bit_and", Intrinsic::IntBitAnd},
{"int_bit_or", Intrinsic::IntBitOr},
{"int_bit_xor", Intrinsic::IntBitXor},
{"int_left_shift", Intrinsic::IntLeftShift},
{"int_right_shift", Intrinsic::IntRightShift},
{"str_eq", Intrinsic::StrEq},
{"str_compare", Intrinsic::StrCompare},
{"assert", Intrinsic::Assert}});
name.remove_prefix(std::strlen("__intrinsic_"));
auto it = intrinsic_map.find(name);
if (it == intrinsic_map.end()) {
return ProgramError(source_loc) << "Unknown intrinsic '" << name << "'";
}
return it->second;
}
auto IntrinsicExpression::name() const -> std::string_view {
switch (intrinsic()) {
case IntrinsicExpression::Intrinsic::Print:
// TODO: Remove Print special casing once we have variadics or overloads.
return "Print";
case IntrinsicExpression::Intrinsic::Alloc:
return "__intrinsic_new";
case IntrinsicExpression::Intrinsic::Dealloc:
return "__intrinsic_delete";
case IntrinsicExpression::Intrinsic::PrintAllocs:
return "__intrinsic_print_allocs";
case IntrinsicExpression::Intrinsic::Rand:
return "__intrinsic_rand";
case IntrinsicExpression::Intrinsic::ImplicitAs:
return "__intrinsic_implicit_as";
case IntrinsicExpression::Intrinsic::ImplicitAsConvert:
return "__intrinsic_implicit_as_convert";
case IntrinsicExpression::Intrinsic::IntEq:
return "__intrinsic_int_eq";
case IntrinsicExpression::Intrinsic::IntCompare:
return "__intrinsic_int_compare";
case IntrinsicExpression::Intrinsic::IntBitComplement:
return "__intrinsic_int_bit_complement";
case IntrinsicExpression::Intrinsic::IntBitAnd:
return "__intrinsic_int_bit_and";
case IntrinsicExpression::Intrinsic::IntBitOr:
return "__intrinsic_int_bit_or";
case IntrinsicExpression::Intrinsic::IntBitXor:
return "__intrinsic_int_bit_xor";
case IntrinsicExpression::Intrinsic::IntLeftShift:
return "__intrinsic_int_left_shift";
case IntrinsicExpression::Intrinsic::IntRightShift:
return "__intrinsic_int_right_shift";
case IntrinsicExpression::Intrinsic::StrEq:
return "__intrinsic_str_eq";
case IntrinsicExpression::Intrinsic::StrCompare:
return "__intrinsic_str_compare";
case IntrinsicExpression::Intrinsic::Assert:
return "__intrinsic_assert";
}
}
auto ExpressionFromParenContents(
Nonnull<Arena*> arena, SourceLocation source_loc,
const ParenContents<Expression>& paren_contents) -> Nonnull<Expression*> {
std::optional<Nonnull<Expression*>> single_term = paren_contents.SingleTerm();
if (single_term.has_value()) {
return *single_term;
} else {
return TupleExpressionFromParenContents(arena, source_loc, paren_contents);
}
}
auto TupleExpressionFromParenContents(
Nonnull<Arena*> arena, SourceLocation source_loc,
const ParenContents<Expression>& paren_contents) -> Nonnull<TupleLiteral*> {
return arena->New<TupleLiteral>(source_loc, paren_contents.elements);
}
Expression::~Expression() = default;
auto OperatorToString(Operator op) -> std::string_view {
switch (op) {
case Operator::Add:
return "+";
case Operator::As:
return "as";
case Operator::AddressOf:
case Operator::BitwiseAnd:
return "&";
case Operator::BitwiseOr:
return "|";
case Operator::BitwiseXor:
case Operator::Complement:
return "^";
case Operator::BitShiftLeft:
return "<<";
case Operator::BitShiftRight:
return ">>";
case Operator::Div:
return "/";
case Operator::Neg:
case Operator::Sub:
return "-";
case Operator::Mul:
case Operator::Deref:
case Operator::Ptr:
return "*";
case Operator::Not:
return "not";
case Operator::NotEq:
return "!=";
case Operator::And:
return "and";
case Operator::Or:
return "or";
case Operator::Eq:
return "==";
case Operator::Mod:
return "%";
case Operator::Less:
return "<";
case Operator::LessEq:
return "<=";
case Operator::Greater:
return ">";
case Operator::GreaterEq:
return ">=";
}
}
static void PrintFields(llvm::raw_ostream& out,
const std::vector<FieldInitializer>& fields,
std::string_view separator) {
llvm::ListSeparator sep;
for (const auto& field : fields) {
out << sep << "." << field.name() << separator << field.expression();
}
}
void Expression::Print(llvm::raw_ostream& out) const {
switch (kind()) {
case ExpressionKind::IndexExpression: {
const auto& index = cast<IndexExpression>(*this);
out << index.object() << "[" << index.offset() << "]";
break;
}
case ExpressionKind::SimpleMemberAccessExpression: {
const auto& access = cast<SimpleMemberAccessExpression>(*this);
out << access.object() << "." << access.member_name();
break;
}
case ExpressionKind::CompoundMemberAccessExpression: {
const auto& access = cast<CompoundMemberAccessExpression>(*this);
out << access.object() << ".(" << access.path() << ")";
break;
}
case ExpressionKind::BaseAccessExpression: {
const auto& access = cast<BaseAccessExpression>(*this);
out << access.object() << ".base";
break;
}
case ExpressionKind::TupleLiteral: {
out << "(";
llvm::ListSeparator sep;
for (Nonnull<const Expression*> field :
cast<TupleLiteral>(*this).fields()) {
out << sep << *field;
}
out << ")";
break;
}
case ExpressionKind::StructLiteral:
out << "{";
PrintFields(out, cast<StructLiteral>(*this).fields(), " = ");
out << "}";
break;
case ExpressionKind::StructTypeLiteral:
out << "{";
PrintFields(out, cast<StructTypeLiteral>(*this).fields(), ": ");
out << "}";
break;
case ExpressionKind::OperatorExpression: {
out << "(";
const auto& op = cast<OperatorExpression>(*this);
switch (op.arguments().size()) {
case 0:
out << OperatorToString(op.op());
break;
case 1:
out << OperatorToString(op.op()) << " " << *op.arguments()[0];
break;
case 2:
out << *op.arguments()[0] << " " << OperatorToString(op.op()) << " "
<< *op.arguments()[1];
break;
default:
CARBON_FATAL() << "Unexpected argument count: "
<< op.arguments().size();
}
out << ")";
break;
}
case ExpressionKind::CallExpression: {
const auto& call = cast<CallExpression>(*this);
out << call.function();
if (isa<TupleLiteral>(call.argument())) {
out << call.argument();
} else {
out << "(" << call.argument() << ")";
}
break;
}
case ExpressionKind::FunctionTypeLiteral: {
const auto& fn = cast<FunctionTypeLiteral>(*this);
out << "fn " << fn.parameter() << " -> " << fn.return_type();
break;
}
case ExpressionKind::IntrinsicExpression: {
const auto& iexp = cast<IntrinsicExpression>(*this);
out << iexp.name() << iexp.args();
break;
}
case ExpressionKind::IfExpression: {
const auto& if_expr = cast<IfExpression>(*this);
out << "if " << if_expr.condition() << " then "
<< if_expr.then_expression() << " else " << if_expr.else_expression();
break;
}
case ExpressionKind::WhereExpression: {
const auto& where = cast<WhereExpression>(*this);
out << where.self_binding().type() << " where ";
llvm::ListSeparator sep(" and ");
for (const WhereClause* clause : where.clauses()) {
out << sep << *clause;
}
break;
}
case ExpressionKind::BuiltinConvertExpression: {
// These don't represent source syntax, so just print the original
// expression.
out << *cast<BuiltinConvertExpression>(this)->source_expression();
break;
}
case ExpressionKind::UnimplementedExpression: {
const auto& unimplemented = cast<UnimplementedExpression>(*this);
out << "UnimplementedExpression<" << unimplemented.label() << ">(";
llvm::ListSeparator sep;
for (Nonnull<const AstNode*> child : unimplemented.children()) {
out << sep << *child;
}
out << ")";
break;
}
case ExpressionKind::ArrayTypeLiteral: {
const auto& array_literal = cast<ArrayTypeLiteral>(*this);
out << "[" << array_literal.element_type_expression() << ";";
if (array_literal.has_size_expression()) {
out << " " << array_literal.size_expression();
}
out << "]";
break;
}
case ExpressionKind::IdentifierExpression:
case ExpressionKind::DotSelfExpression:
case ExpressionKind::IntLiteral:
case ExpressionKind::BoolLiteral:
case ExpressionKind::BoolTypeLiteral:
case ExpressionKind::IntTypeLiteral:
case ExpressionKind::StringLiteral:
case ExpressionKind::StringTypeLiteral:
case ExpressionKind::TypeTypeLiteral:
case ExpressionKind::ValueLiteral:
PrintID(out);
break;
}
}
void Expression::PrintID(llvm::raw_ostream& out) const {
switch (kind()) {
case ExpressionKind::IdentifierExpression:
out << cast<IdentifierExpression>(*this).name();
break;
case ExpressionKind::DotSelfExpression:
out << ".Self";
break;
case ExpressionKind::IntLiteral:
out << cast<IntLiteral>(*this).value();
break;
case ExpressionKind::BoolLiteral:
out << (cast<BoolLiteral>(*this).value() ? "true" : "false");
break;
case ExpressionKind::BoolTypeLiteral:
out << "bool";
break;
case ExpressionKind::IntTypeLiteral:
out << "i32";
break;
case ExpressionKind::StringLiteral:
out << "\"";
out.write_escaped(cast<StringLiteral>(*this).value());
out << "\"";
break;
case ExpressionKind::StringTypeLiteral:
out << "String";
break;
case ExpressionKind::TypeTypeLiteral:
out << "type";
break;
case ExpressionKind::ValueLiteral:
out << cast<ConstantValueLiteral>(*this).constant_value();
break;
case ExpressionKind::ArrayTypeLiteral:
case ExpressionKind::FunctionTypeLiteral:
case ExpressionKind::StructLiteral:
case ExpressionKind::IndexExpression:
case ExpressionKind::SimpleMemberAccessExpression:
case ExpressionKind::CompoundMemberAccessExpression:
case ExpressionKind::BaseAccessExpression:
case ExpressionKind::IfExpression:
case ExpressionKind::WhereExpression:
case ExpressionKind::BuiltinConvertExpression:
case ExpressionKind::TupleLiteral:
case ExpressionKind::StructTypeLiteral:
case ExpressionKind::CallExpression:
case ExpressionKind::OperatorExpression:
case ExpressionKind::IntrinsicExpression:
case ExpressionKind::UnimplementedExpression:
out << "...";
break;
}
}
DotSelfExpression::DotSelfExpression(CloneContext& context,
const DotSelfExpression& other)
: Expression(context, other),
name_(other.name_),
self_binding_(context.Remap(other.self_binding_)) {}
MemberAccessExpression::MemberAccessExpression(
CloneContext& context, const MemberAccessExpression& other)
: Expression(context, other),
object_(context.Clone(other.object_)),
is_type_access_(other.is_type_access_),
is_addr_me_method_(other.is_addr_me_method_),
impl_(context.Clone(other.impl_)),
constant_value_(context.Clone(other.constant_value_)) {}
SimpleMemberAccessExpression::SimpleMemberAccessExpression(
CloneContext& context, const SimpleMemberAccessExpression& other)
: RewritableMixin(context, other),
member_name_(other.member_name_),
member_(context.Clone(other.member_)),
found_in_interface_(context.Clone(other.found_in_interface_)),
value_node_(context.Clone(other.value_node_)) {}
CompoundMemberAccessExpression::CompoundMemberAccessExpression(
CloneContext& context, const CompoundMemberAccessExpression& other)
: MemberAccessExpression(context, other),
path_(context.Clone(other.path_)),
member_(context.Clone(other.member_)) {}
WhereClause::~WhereClause() = default;
void WhereClause::Print(llvm::raw_ostream& out) const {
switch (kind()) {
case WhereClauseKind::ImplsWhereClause: {
const auto& clause = cast<ImplsWhereClause>(*this);
out << clause.type() << " impls " << clause.constraint();
break;
}
case WhereClauseKind::EqualsWhereClause: {
const auto& clause = cast<EqualsWhereClause>(*this);
out << clause.lhs() << " == " << clause.rhs();
break;
}
case WhereClauseKind::RewriteWhereClause: {
const auto& clause = cast<RewriteWhereClause>(*this);
out << "." << clause.member_name() << " = " << clause.replacement();
break;
}
}
}
void WhereClause::PrintID(llvm::raw_ostream& out) const { out << "..."; }
WhereExpression::WhereExpression(CloneContext& context,
const WhereExpression& other)
: RewritableMixin(context, other),
self_binding_(context.Clone(other.self_binding_)),
clauses_(context.Clone(other.clauses_)),
enclosing_dot_self_(context.Remap(other.enclosing_dot_self_)) {}
} // namespace Carbon