You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
133 lines
2.3 KiB
133 lines
2.3 KiB
/* |
|
* Copyright (C) 2023 Riyyi |
|
* |
|
* SPDX-License-Identifier: MIT |
|
*/ |
|
|
|
#include <cstdint> // int64_t |
|
#include <memory> |
|
#include <string> |
|
|
|
#include "ast.h" |
|
#include "environment.h" |
|
#include "forward.h" |
|
#include "printer.h" |
|
#include "types.h" |
|
|
|
namespace blaze { |
|
|
|
Collection::Collection(const std::list<ValuePtr>& nodes) |
|
: m_nodes(nodes) |
|
{ |
|
} |
|
|
|
void Collection::add(ValuePtr node) |
|
{ |
|
if (node == nullptr) { |
|
return; |
|
} |
|
|
|
m_nodes.push_back(node); |
|
} |
|
|
|
// ----------------------------------------- |
|
|
|
List::List(const std::list<ValuePtr>& nodes) |
|
: Collection(nodes) |
|
{ |
|
} |
|
|
|
// ----------------------------------------- |
|
|
|
Vector::Vector(const std::list<ValuePtr>& nodes) |
|
: Collection(nodes) |
|
{ |
|
} |
|
|
|
// ----------------------------------------- |
|
|
|
void HashMap::add(const std::string& key, ValuePtr value) |
|
{ |
|
if (value == nullptr) { |
|
return; |
|
} |
|
|
|
m_elements.emplace(key, value); |
|
} |
|
|
|
// ----------------------------------------- |
|
|
|
String::String(const std::string& data) |
|
: m_data(data) |
|
{ |
|
} |
|
|
|
// ----------------------------------------- |
|
|
|
Keyword::Keyword(const std::string& data) |
|
: m_data(std::string(1, 0x7f) + data) // 127 |
|
{ |
|
} |
|
|
|
// ----------------------------------------- |
|
|
|
Number::Number(int64_t number) |
|
: m_number(number) |
|
{ |
|
} |
|
|
|
// ----------------------------------------- |
|
|
|
Symbol::Symbol(const std::string& symbol) |
|
: m_symbol(symbol) |
|
{ |
|
} |
|
|
|
// ----------------------------------------- |
|
|
|
Constant::Constant(State state) |
|
: m_state(state) |
|
{ |
|
} |
|
|
|
// ----------------------------------------- |
|
|
|
Function::Function(const std::string& name, FunctionType function) |
|
: m_name(name) |
|
, m_function(function) |
|
{ |
|
} |
|
|
|
// ----------------------------------------- |
|
|
|
Lambda::Lambda(const std::vector<std::string>& bindings, ValuePtr body, EnvironmentPtr env) |
|
: m_bindings(bindings) |
|
, m_body(body) |
|
, m_env(env) |
|
{ |
|
} |
|
|
|
Lambda::Lambda(std::shared_ptr<Lambda> that, bool is_macro) |
|
: m_bindings(that->m_bindings) |
|
, m_body(that->m_body) |
|
, m_env(that->m_env) |
|
, m_is_macro(is_macro) |
|
{ |
|
} |
|
|
|
// ----------------------------------------- |
|
|
|
Atom::Atom(ValuePtr pointer) |
|
: m_value(pointer) |
|
{ |
|
} |
|
|
|
} // namespace blaze |
|
|
|
// ----------------------------------------- |
|
|
|
void Formatter<blaze::ValuePtr>::format(Builder& builder, blaze::ValuePtr value) const |
|
{ |
|
blaze::Printer printer; |
|
return Formatter<std::string>::format(builder, printer.printNoErrorCheck(value)); |
|
}
|
|
|