lang/src/statement_printers.cpp

#include "statement_printers.hpp"

#include "basic_printers.hpp"
#include "doc_printers.hpp"
#include "expression_nodes.hpp"
#include "expression_printers.hpp"
#include "type_printers.hpp"

namespace printers {

void print_import(const nodes::Import &statement, Printer &printer) {
  printer.print(":: ");

  print_identifier(*statement.get_import_name(), printer);

  if (*statement.get_import_name()->get() !=
      *statement.get_module_name()->get()) {
    printer.print(" = ");
    print_identifier(*statement.get_module_name(), printer);
  }

  if (statement.symbols_size() > 0) {
    printer.print(" :");
    for (size_t i = 0; i < statement.symbols_size(); ++i) {
      printer.space();

      bool identifier_is_operator =
          (statement.get_symbol(i)->get_type() == nodes::Identifier::OPERATOR);

      if (identifier_is_operator) {
        printer.print("( ");
      }

      print_identifier(*statement.get_symbol(i), printer);

      if (identifier_is_operator) {
        printer.print(" )");
      }
    }
  }
  printer.print(";");
} // IN PROGRESS

void print_constraint(const nodes::Constraint &statement, Printer &printer) {
  printer.print("? ");
  print_expression(*statement.get_expression(), printer);
  printer.print(";");
}

template <typename T>
void print_statement_methods(const T &statement, Printer &printer) {
  if (statement.get_methods_size() > 0) {
    printer.print(" {");
    printer.indent();

    for (size_t i = 0; i < statement.get_methods_size(); ++i) {
      printer.new_indent_line();
      print_function_definition(*statement.get_method(i), printer);
      if (i + 1 < statement.get_methods_size()) {
        printer.new_indent_line();
      }
    }

    printer.deindent();
    printer.new_indent_line();
    printer.print("}");
  } else {
    printer.print(";");
  }
}

void print_type_definition(const nodes::TypeDefinition &statement,
                           Printer &printer) {
  print_docs(*statement.get_docs(), printer);

  if (statement.is_on_heap()) {
    printer.print("^");
  }

  print_identifier(*statement.get_name(), printer);

  for (size_t i = 0; i < statement.get_arguments_size(); ++i) {
    printer.space();
    print_identifier(*statement.get_argument(i), printer);
  }

  if (statement.get_type().has_value()) {
    printer.print(" = ");

    size_t previous_indentation_level = printer.get_indentation_level();

    printer.set_indentation_level(printer.get_current_position() - 2);

    print_variant_type(*statement.get_type().value(), printer);

    printer.set_indentation_level(previous_indentation_level);
  }

  print_statement_methods(statement, printer);
} // IN PROGRESS

void print_function_definition(const nodes::FunctionDefinition &statement,
                               Printer &printer) {
  print_docs(*statement.get_docs(), printer);

  for (size_t i = 0; i < statement.get_constraints_size(); ++i) {
    print_constraint(*statement.get_constraint(i), printer);
    printer.new_indent_line();
  }

  switch (statement.get_modifier()) {
  case nodes::FunctionDefinition::STATIC:
    break;
  case nodes::FunctionDefinition::LET:
    printer.print(printer.print_words_instead_of_symbols() ? "let " : "%");
    break;
  case nodes::FunctionDefinition::VAR:
    printer.print(printer.print_words_instead_of_symbols() ? "var " : "$");
    break;
  default: // remove ??
    break;
  }

  bool identifier_is_operator =
      (statement.get_name()->get_type() == nodes::Identifier::OPERATOR);

  if (identifier_is_operator) {
    printer.print("( ");
  }

  print_identifier(*statement.get_name(), printer);

  if (identifier_is_operator) {
    printer.print(" )");
  }

  for (size_t i = 0; i < statement.get_arguments_size(); ++i) {
    if (!statement.get_argument(i)->get_name().has_value()) {
      break;
    }

    printer.space();

    // all arguments are typed or are untyped in the same time
    if (!statement.get_argument(i)->get_type().has_value()) {

      // print annotation
      if (!statement.are_annotations_same_to_names() &&
          statement.get_argument(i)->get_annotation().has_value()) {
        print_annotation(*statement.get_argument(i)->get_annotation().value(),
                         printer);
        printer.space();
      }

      print_modifier(statement.get_argument(i)->get_before_modifier(), printer);
    }

    print_identifier(*statement.get_argument(i)->get_name().value(), printer);

    // all arguments are typed or are untyped in the same time
    if (!statement.get_argument(i)->get_type().has_value()) {
      print_modifier(statement.get_argument(i)->get_after_modifier(), printer);
    }
  }

  // all arguments are typed or are untyped in the same time
  if (statement.get_arguments_size() > 0 &&
      statement.get_argument(0)->get_type().has_value()) {

    printer.print(" :");

    for (size_t i = 0; i < statement.get_arguments_size(); ++i) {
      printer.space();
      if (statement.get_argument(i)->get_annotation().has_value()) {
        print_annotation(*statement.get_argument(i)->get_annotation().value(),
                         printer);
        printer.space();
      }

      print_modifier(statement.get_argument(i)->get_before_modifier(), printer);

      print_type(*statement.get_argument(i)->get_type().value(), printer);
    }
  }

  if (statement.get_expression().has_value()) {
    printer.print(" = ");
    print_expression(*statement.get_expression().value(), printer);
    if (!statement.get_expression()
             .value()
             ->get<nodes::Container>()
             .has_value()) {
      printer.print(";");
    }
  } else {
    printer.print(";");
  }
} // IN PROGRESS

void print_typeclass_definition(const nodes::TypeclassDefinition &statement,
                                Printer &printer) {
  print_docs(*statement.get_docs(), printer);

  print_identifier(*statement.get_name(), printer);

  if (statement.get_base_typeclasses_size() > 0) {
    printer.print(" :");
    for (size_t i = 0; i < statement.get_base_typeclasses_size(); ++i) {
      printer.space();
      print_identifier(*statement.get_base_typeclass(i), printer);
    }
  }

  print_statement_methods(statement, printer);
} // IN PROGRESS

} // namespace printers