st/lang_2023
1
0
Fork 0
mirror of https://codeberg.org/ProgramSnail/lang_2023.git synced 2025-12-06 06:58:45 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

variable namespace, function declaration fixes

Browse source
This commit is contained in:
ProgramSnail 2023-04-29 12:33:05 +03:00
parent c31b20fa24
commit f973f65b5b
17 changed files with 511 additions and 98 deletions
Download patch file Download diff file Expand all files Collapse all files

0
include/abstract_types_contexts.hpp → archived/abstract_types_contexts.hpp
View file

118
archived/symbols_info.hpp Normal file
View file

@ -0,0 +1,118 @@
#pragma once
#include "interpreter_tree.hpp"
#include <string>
#include <variant>
#include <vector>
#include <optional>
#include <unordered_map>
#include <memory>
// for clangd
#include "utils.hpp"
namespace interpreter {
class Node;
} // namespace interpreter
namespace info {
struct VariantTypeInfo;
struct TupleTypeInfo;
struct AliasTypeInfo;
struct TypeInfo;
struct TypeclassInfo;
enum class BuiltInTypeInfo {
StringT,
IntT,
FloatT,
UnitT,
};
struct TypeUsageInfo {
interpreter::tokens::TypeExpression* node;
TypeInfo* info = nullptr;
};
struct ParameterInfo {
std::string type;
std::vector<interpreter::tokens::TypeclassExpression*> typeclass_nodes;
std::vector<TypeclassInfo*> typeclass_types;
};
struct AbstractTypeInfo {
enum { Basic, Abstract } modifier;
ParameterInfo type;
};
struct AliasTypeInfo {
enum {Alias, Type, Let} modifier;
std::vector<std::string> parameters;
TypeUsageInfo value;
};
struct AnyTypeInfo {
ParameterInfo type;
std::vector<ParameterInfo> parameters;
interpreter::tokens::AnyType* value;
};
struct TypeInfo {
std::variant<AbstractTypeInfo, AliasTypeInfo, AnyTypeInfo> type;
};
struct ConstructorInfo {
std::string name;
size_t order;
utils::IdType type_id;
};
struct FunctionDeclarationInfo {
std::vector<ParameterInfo> parameters;
std::vector<interpreter::tokens::AnyType*> argument_type_nodes;
std::vector<AnyTypeInfo*> argument_types;
interpreter::tokens::FunctionDeclaration* node = nullptr;
};
struct FunctionDefinitionInfo {
std::vector<ParameterInfo> parameters;
std::vector<std::string> argument_names;
interpreter::tokens::FunctionDefinitionStatement* node = nullptr;
};
struct FunctionInfo {
size_t argument_count = 0;
std::optional<FunctionDeclarationInfo> declaration;
std::optional<FunctionDefinitionInfo> definition;
};
struct TypeclassInfo {
std::vector<ParameterInfo> parameters;
std::vector<FunctionDeclarationInfo> requirements;
};
struct ImportInfo {
std::string module_name;
std::vector<std::string> symbols;
};
struct NamespaceInfo {
enum Modifier { Const, Var };
std::unordered_map<std::string, utils::IdType> types;
std::unordered_map<std::string, utils::IdType> typeclasses;
std::unordered_map<std::string, utils::IdType> functions;
std::unordered_map<std::string, utils::IdType> constructors;
std::unordered_map<std::string, NamespaceInfo> namespaces;
std::unordered_map<std::string, std::vector<NamespaceInfo>> variable_namespaces;
std::optional<Modifier> modifier;
std::optional<std::string> variable;
std::string type_name;
TypeInfo* type_info = nullptr;
};
} // namespace info

9
include/type_graph.hpp → archived/type_graph.hpp
View file

@ -1,3 +1,7 @@
////////////////////////////////////////////////////////////////////////////////////////
// Temporary frozen, TODO
////////////////////////////////////////////////////////////////////////////////////////
#pragma once #pragma once
#include <vector> #include <vector>
@ -33,6 +37,8 @@ public:
edges_.emplace_back(); edges_.emplace_back();
back_edges_.emplace_back(); back_edges_.emplace_back();
groups_.AddElement();
return verticles_.size() - 1; return verticles_.size() - 1;
} }
@ -96,7 +102,7 @@ public:
void SetEqual(size_t u, size_t v) { void SetEqual(size_t u, size_t v) {
AddEdge(u, v); AddEdge(u, v);
AddEdge(v, u); AddEdge(v, u);
// TODO: set equality groups_.Unite(u, v);
} }
void Calculate() { void Calculate() {
@ -218,6 +224,7 @@ private:
std::vector<RequirementsData> cluster_requirements_; std::vector<RequirementsData> cluster_requirements_;
utils::Storage<std::string> storage_; utils::Storage<std::string> storage_;
utils::GroupsManager groups_;
bool is_calculated_ = false; bool is_calculated_ = false;
}; };

6
include/typeclass_graph.hpp → archived/typeclass_graph.hpp
View file

@ -1,6 +1,12 @@
#pragma once #pragma once
#include <string> #include <string>
////////////////////////////////////////////////////////////////////////////////////////
// Temporary frozen, TODO
////////////////////////////////////////////////////////////////////////////////////////
#pragma once
#include <unordered_map> #include <unordered_map>
// for calngd // for calngd

16
include/global_info.hpp
View file

@ -6,7 +6,7 @@
// for clangd // for clangd
#include "symbols_info.hpp" #include "symbols_info.hpp"
#include "type_graph.hpp" #include "type_manager.hpp"
#include "utils.hpp" #include "utils.hpp"
namespace info { namespace info {
@ -22,8 +22,8 @@ public:
void AddImport(ImportInfo&& import_info, const std::optional<std::string>& name = std::nullopt); void AddImport(ImportInfo&& import_info, const std::optional<std::string>& name = std::nullopt);
void AddEnterNamespace(const std::string& name, void AddEnterNamespace(const std::string& name,
const std::optional<NamespaceInfo::Modifier>& modifier = std::nullopt, const std::optional<NamespaceInfo::Modifier>& modifier = std::nullopt,
const std::optional<std::string>& variable = std::nullopt); const std::optional<std::string>& variable = std::nullopt);
void EnterNamespace(const std::string& name); void EnterNamespace(const std::string& name);
@ -60,8 +60,8 @@ public:
return global_info_.CreateVisitor(); return global_info_.CreateVisitor();
} }
TypeGraph* GetAbstractTypeGraph() { type::TypeManager* GetTypeManager() {
return global_info_.GetAbstractTypeGraph(); return global_info_.GetTypeManager();
} }
GlobalInfo* GetGlobalInfo() { GlobalInfo* GetGlobalInfo() {
@ -92,8 +92,8 @@ public:
return NamespaceVisitor(*this); return NamespaceVisitor(*this);
} }
TypeGraph* GetAbstractTypeGraph() { type::TypeManager* GetTypeManager() {
return &abstract_type_graph_; return &type_manager_;
} }
// TODO: remember about vector realloc // TODO: remember about vector realloc
@ -116,7 +116,7 @@ private:
std::vector<TypeInfo> types_; std::vector<TypeInfo> types_;
std::vector<TypeclassInfo> typeclasses_; std::vector<TypeclassInfo> typeclasses_;
info::TypeGraph abstract_type_graph_; type::TypeManager type_manager_;
NamespaceInfo global_namespace_; NamespaceInfo global_namespace_;
std::vector<ImportInfo> imports_; std::vector<ImportInfo> imports_;

4
include/interpreter_tree.hpp
View file

@ -268,8 +268,7 @@ struct Sources {
struct Namespace { struct Namespace {
enum Modifier { Const, Var }; enum Modifier { Const, Var };
std::optional<Modifier> modifier; std::optional<Modifier> modifier; // modifier => variable namespace
std::optional<ExtendedName> name;
TypeIdentifier type; TypeIdentifier type;
std::unique_ptr<Sources> scope; std::unique_ptr<Sources> scope;
@ -358,7 +357,6 @@ struct TypeclassDefinitionStatement {
struct FunctionDefinition { struct FunctionDefinition {
enum { Operator, Function } modifier; enum { Operator, Function } modifier;
ExtendedName name; ExtendedName name;
std::vector<std::unique_ptr<AnnotatedAbstractType>> parameters;
std::vector<ExtendedName> arguments; std::vector<ExtendedName> arguments;
}; };

26
include/type_manager.hpp Normal file
View file

@ -0,0 +1,26 @@
#pragma once
#include <vector>
// for clangd
#include "types.hpp"
#include "utils.hpp"
namespace info::type {
class TypeManager {
public:
template<typename T>
void AddType(const T& type) {
types_.emplace(type);
}
template<typename T>
T GetType(utils::IdType type_id) {
return std::get<T>(types_.at(type_id));
}
private:
std::vector<Type> types_;
};
} // namespace info::type

19
include/types_info.hpp → include/types.hpp
View file

@ -10,16 +10,16 @@
namespace info::type { namespace info::type {
// TODO: differentiate abstract and basic types // // Temporary frozen, TODO
struct AbstractType { // struct AbstractType {
utils::IdType graph_id; // utils::IdType graph_id;
std::vector<utils::IdType> paramaters; // std::vector<utils::IdType> paramaters;
}; // };
// TODO: check, if defined type is variant, etc. // TODO: check, if defined type is variant, etc.
struct DefinedType { struct DefinedType {
utils::IdType type_id; utils::IdType type_id; // in defined types
std::vector<utils::IdType> paramaters; utils::IdType type; // in types manager, created using context types
}; };
enum class InternalType { enum class InternalType {
@ -31,7 +31,7 @@ enum class InternalType {
Unit, Unit,
}; };
struct TupleType { // struct TupleType {
std::optional<std::string> type; std::optional<std::string> type;
std::vector<std::pair<std::optional<std::string>, utils::IdType>> fields; std::vector<std::pair<std::optional<std::string>, utils::IdType>> fields;
}; };
@ -60,8 +60,7 @@ struct ArrayType {
std::optional<utils::IdType> elements_type; std::optional<utils::IdType> elements_type;
}; };
using Type = std::variant<AbstractType, using Type = std::variant<DefinedType,
DefinedType,
InternalType, InternalType,
TupleType, TupleType,
VariantType, VariantType,

28
include/utils.hpp
View file

@ -40,9 +40,11 @@ private:
std::unordered_map<T, IdType> value_to_id_; std::unordered_map<T, IdType> value_to_id_;
}; };
class Union { // TODO: recall right algorithm name class GroupsManager { // TODO: recall right algorithm name
public: public:
Union(size_t n) { GroupsManager() = default;
explicit GroupsManager(size_t n) {
edges_.resize(n); edges_.resize(n);
ranks_.resize(n); ranks_.resize(n);
@ -52,26 +54,34 @@ public:
} }
} }
void Connect(size_t u, size_t v) { // TODO: recall choice algorithm void Unite(size_t u, size_t v) { // TODO: recall choice algorithm
u = GetRoot(u); u = GetGroupRoot(u);
v = GetRoot(v); v = GetGroupRoot(v);
if (ranks_[v] >= ranks_[u]) { if (ranks_[v] >= ranks_[u]) {
edges_[u] = v; edges_[u] = v;
ranks_[v] = std::max(ranks_[u] + 1, ranks_[v]); ranks_[v] = std::max(ranks_[u] + 1, ranks_[v]);
} else { } else {
edges_[v] = u; edges_[v] = u;
// always ranks_[u] > ranks_[v]
} }
} }
bool IsConnected(size_t u, size_t v) { bool IsInOneGroup(size_t u, size_t v) {
return GetRoot(u) == GetRoot(v); return GetGroupRoot(u) == GetGroupRoot(v);
} }
size_t GetRoot(size_t v) { size_t AddElement() {
size_t id = edges_.size();
edges_.push_back(id);
ranks_.push_back(1);
return id;
}
size_t GetGroupRoot(size_t v) {
if (edges_[v] == v) { if (edges_[v] == v) {
return v; return v;
} }
return edges_[v] = GetRoot(edges_[v]); return edges_[v] = GetGroupRoot(edges_[v]);
} }
private: private:
std::vector<size_t> edges_; std::vector<size_t> edges_;

25
src/build_visitor.cpp
View file

@ -50,20 +50,15 @@ void BuildVisitor::Visit(Sources* node) {
void BuildVisitor::Visit(Namespace* node) { void BuildVisitor::Visit(Namespace* node) {
auto parse_node = current_node_; auto parse_node = current_node_;
size_t child_count = parse_node.NamedChildCount(); size_t child_count = parse_node.ChildCount();
if (child_count > 2) {
current_node_ = parse_node.ChildByFieldName("name");
if (child_count > 3) { // "namespace", ["var"/"const",] type, scope
std::string modifier = parse_node.NthChild(1).GetValue(); std::string modifier = parse_node.NthChild(1).GetValue();
if (modifier == "const") { if (modifier == "const") {
node->modifier = Namespace::Const; node->modifier = Namespace::Const;
} else if (modifier == "var") { } else if (modifier == "var") {
node->modifier = Namespace::Var; node->modifier = Namespace::Var;
} }
node->name = ExtendedName();
Visit(&node->name.value());
} }
current_node_ = parse_node.ChildByFieldName("type"); current_node_ = parse_node.ChildByFieldName("type");
@ -338,22 +333,10 @@ void BuildVisitor::Visit(FunctionDefinition* node) {
size_t child_count = parse_node.NamedChildCount(); size_t child_count = parse_node.NamedChildCount();
if (child_count > 1) { if (child_count > 1) {
bool parameters_ended = false; node->arguments.resize(child_count - 1);
for (size_t i = 0; i + 1 < child_count; ++i) { for (size_t i = 0; i + 1 < child_count; ++i) {
current_node_ = parse_node.NthNamedChild(i + 1); current_node_ = parse_node.NthNamedChild(i + 1);
Visit(&node->arguments[i]);
if (current_node_.GetType() != parser::tokens::AnnotatedAbstractType) {
parameters_ended = true;
}
if (!parameters_ended) {
node->parameters.push_back(std::make_unique<AnnotatedAbstractType>());
Visit(node->parameters.back().get());
} else {
node->arguments.emplace_back();
Visit(&node->arguments.back());
}
} }
} }

28
src/print_visitor.cpp
View file

@ -49,20 +49,15 @@ void PrintVisitor::Visit(Partition* node) {
void PrintVisitor::Visit(Namespace* node) { void PrintVisitor::Visit(Namespace* node) {
out_ << "[Namespace] "; out_ << "[Namespace] ";
if (node->name.has_value()) { if (node->modifier.has_value()) {
if (node->modifier.has_value()) { switch (node->modifier.value()) {
switch (node->modifier.value()) { case Namespace::Const:
case Namespace::Const: out_ << "const ";
out_ << "const "; break;
break; case Namespace::Var:
case Namespace::Var: out_ << "var ";
out_ << "var "; break;
break;
}
} else {
// error
} }
Visit(&node->name.value());
} }
Visit(&node->type); Visit(&node->type);
out_ << "{\n"; out_ << "{\n";
@ -206,13 +201,6 @@ void PrintVisitor::Visit(FunctionDefinition* node) {
out_ << ' '; out_ << ' ';
Visit(&node->name); Visit(&node->name);
out_ << "]"; out_ << "]";
if (!node->parameters.empty()) {
out_ << " (";
for (auto& parameter : node->parameters) {
Visit(parameter.get());
}
out_ << ')';
}
if (!node->arguments.empty()) { if (!node->arguments.empty()) {
out_ << " : ("; out_ << " : (";
for (auto& argument : node->arguments) { for (auto& argument : node->arguments) {

6
src/visitor.cpp
View file

@ -369,9 +369,6 @@ void Visitor::Visit(Partition* node) {
} }
void Visitor::Visit(Namespace* node) { void Visitor::Visit(Namespace* node) {
if (node->name.has_value()) {
Visit(&node->name.value());
}
Visit(&node->type); Visit(&node->type);
Visit(node->scope.get()); Visit(node->scope.get());
} }
@ -427,9 +424,6 @@ void Visitor::Visit(TypeclassDefinitionStatement* node) {
void Visitor::Visit(FunctionDefinition* node) { void Visitor::Visit(FunctionDefinition* node) {
Visit(&node->name); Visit(&node->name);
for (auto& parameter : node->parameters) {
Visit(parameter.get());
}
for (auto& argument : node->arguments) { for (auto& argument : node->arguments) {
Visit(&argument); Visit(&argument);
} }

4
tests/functions.lang
View file

@ -16,7 +16,7 @@ def fact : n =
| _ -> error "n must be positive" | _ -> error "n must be positive"
decl find_prefix_hashes ('H : (#AccHash Char)) : String -> (Array 'H) decl find_prefix_hashes ('H : (#AccHash Char)) : String -> (Array 'H)
def find_prefix_hashes 'H : str = { def find_prefix_hashes : str = {
var hashes = (Array 'H).new (str.size () + 1) var hashes = (Array 'H).new (str.size () + 1)
; hashes:0 = 'H.of str:0 ; hashes:0 = 'H.of str:0
@ -38,7 +38,7 @@ def find_substring : str substr = {
const substr_hash = Hash.of substr const substr_hash = Hash.of substr
for i in 0..(str_hashes.size () - substr.size ()) do { for i in 0..(str_hashes.size () - substr.size ()) do {
const part_hash = Hash.diff str_hashes:(i + substr->size ()) str_hashes:i const part_hash = Hash.diff str_hashes(i + substr->size ()) str_hashes:i
if part_hash == substr_hash then { if part_hash == substr_hash then {
; result.push i ; result.push i

245
tests/match.lang
View file

@ -1,15 +1,244 @@
================================================================================
Match
================================================================================
def fruit_cost : fruit = { def fruit_cost : fruit = {
return (match fruit with return (match fruit with
| $Banana -> 11 | $Banana -> 11
| $Apple | $Orange -> 7) | $Apple | $Orange -> 7)
} }
def amount_to_string : x is_zero_separated = { def amount_to_string : x is_zero_separated = {
const ans = match x with const ans = match x with
| 0 ? is_zero_separated () -> "Zero" | 0 ? is_zero_separated () -> "Zero"
| 0 | 1 | 2 | 3 | 4 -> "Few" | 0 | 1 | 2 | 3 | 4 -> "Few"
| x ? (5..9).contains x -> "Several" | x ? (5..9).contains x -> "Several"
| x ? (10..19).contains x -> "Pack" | x ? (10..19).contains x -> "Pack"
| _ -> "Lots" | _ -> "Lots"
return ans return ans
} }
--------------------------------------------------------------------------------
(source_file
(source_statement
(function_definition_statement
(function_definition
(extended_name
(name_identifier))
(extended_name
(name_identifier)))
(superexpression
(expression
(prefixed_expression
(block
(block_statement
(prefixed_expression
(return_expression
(expression
(subexpression
(subexpression_token
(scoped_statement
(superexpression
(flow_control
(match
(expression
(subexpression
(subexpression_token
(name_expression
(extended_name
(name_identifier))))))
(match_case
(pattern
(type_constructor_pattern
(type_expression
(type_subexpression
(type_identifier)))))
(expression
(subexpression
(subexpression_token
(literal
(number_literal))))))
(match_case
(pattern
(type_constructor_pattern
(type_expression
(type_subexpression
(type_identifier))))))
(match_case
(pattern
(type_constructor_pattern
(type_expression
(type_subexpression
(type_identifier)))))
(expression
(subexpression
(subexpression_token
(literal
(number_literal))))))))))))))))))))))
(source_statement
(function_definition_statement
(function_definition
(extended_name
(name_identifier))
(extended_name
(name_identifier))
(extended_name
(name_identifier)))
(superexpression
(expression
(prefixed_expression
(block
(block_statement
(variable_definition_statement
(any_name
(annotated_name
(extended_name
(name_identifier))))
(superexpression
(flow_control
(match
(expression
(subexpression
(subexpression_token
(name_expression
(extended_name
(name_identifier))))))
(match_case
(pattern
(pattern_token
(literal
(number_literal))))
(expression
(subexpression
(function_call_expression
(extended_name
(name_identifier))
(function_argument
(subexpression_token
(literal
(unit_literal)))))))
(expression
(subexpression
(subexpression_token
(literal
(string_literal))))))
(match_case
(pattern
(pattern_token
(literal
(number_literal)))))
(match_case
(pattern
(pattern_token
(literal
(number_literal)))))
(match_case
(pattern
(pattern_token
(literal
(number_literal)))))
(match_case
(pattern
(pattern_token
(literal
(number_literal)))))
(match_case
(pattern
(pattern_token
(literal
(number_literal))))
(expression
(subexpression
(subexpression_token
(literal
(string_literal))))))
(match_case
(pattern
(pattern_token
(extended_name
(name_identifier))))
(expression
(subexpression
(function_call_expression
(subexpression_token
(scoped_statement
(superexpression
(expression
(subexpression
(binary_operator_expression
(subexpression
(subexpression_token
(literal
(number_literal))))
(operator)
(subexpression
(subexpression_token
(literal
(number_literal))))))))))
(extended_name
(name_identifier))
(function_argument
(subexpression_token
(name_expression
(extended_name
(name_identifier))))))))
(expression
(subexpression
(subexpression_token
(literal
(string_literal))))))
(match_case
(pattern
(pattern_token
(extended_name
(name_identifier))))
(expression
(subexpression
(function_call_expression
(subexpression_token
(scoped_statement
(superexpression
(expression
(subexpression
(binary_operator_expression
(subexpression
(subexpression_token
(literal
(number_literal))))
(operator)
(subexpression
(subexpression_token
(literal
(number_literal))))))))))
(extended_name
(name_identifier))
(function_argument
(subexpression_token
(name_expression
(extended_name
(name_identifier))))))))
(expression
(subexpression
(subexpression_token
(literal
(string_literal))))))
(match_case
(pattern
(pattern_token
(extended_name
(name_identifier))))
(expression
(subexpression
(subexpression_token
(literal
(string_literal)))))))))))
(block_statement
(prefixed_expression
(return_expression
(expression
(subexpression
(subexpression_token
(name_expression
(extended_name
(name_identifier))))))))))))))))

6
tests/namespaces.lang
View file

@ -10,6 +10,10 @@ namespace Array {
decl something : Unit -> Unit decl something : Unit -> Unit
} }
namespace var a : Array { namespace var : Array {
decl something : Unit -> Unit
}
namespace const : Array {
decl something : Unit -> Unit decl something : Unit -> Unit
} }

24
tests/typeclasses.lang
View file

@ -2,10 +2,7 @@ typeclass Copy =
& copy : Copy -> Copy & copy : Copy -> Copy
typeclass (Ord : #Eq) = typeclass (Ord : #Eq) =
& ( < ) : Ord -> Ord -> Bool & is_less_then : Ord -> Bool
& ( > ) : Ord -> Ord -> Bool
& ( <= ) : Ord -> Ord -> Bool
& ( >= ) : Ord -> Ord -> Bool
typeclass (D : #A #B #C) 'A 'B = typeclass (D : #A #B #C) 'A 'B =
& do_something : Unit -> (& 'A & 'B) & do_something : Unit -> (& 'A & 'B)
@ -13,8 +10,17 @@ typeclass (D : #A #B #C) 'A 'B =
typeclass E 'A = typeclass E 'A =
& do_something : Unit -> 'A & do_something : Unit -> 'A
namespace const ord : Ord { decl ( == ) ('A : #Ord) : 'A -> 'A -> Bool
def ( <= ) : a b = (a < b) || (a == b) def ( == ) : a b = a.is_equal_to b
def ( > ) : a b = !(a <= b)
def ( >= ) : a b = !(a < b) decl ( < ) ('A : #Ord) : 'A -> 'A -> Bool
} def ( < ) : a b = a.is_less_then b
decl ( > ) ('A : #Ord) : 'A -> 'A -> Bool
def ( > ) : a b = !(a <= b)
decl ( <= ) ('A : #Ord) : 'A -> 'A -> Bool
def ( <= ) : a b = (a < b) || (a == b)
decl ( >= ) ('A : #Ord) : 'A -> 'A -> Bool
def ( >= ) : a b = !(a < b)

45
tests/types.lang
View file

@ -1,3 +1,7 @@
================================================================================
Types
================================================================================
alias T1 = Int alias T1 = Int
abstract (T2 : #A #B #C) abstract (T2 : #A #B #C)
@ -6,3 +10,44 @@ abstract (T2 : #A #B #C)
let T2 = Int let T2 = Int
let T2 = Float let T2 = Float
let T2 = Complex let T2 = Complex
--------------------------------------------------------------------------------
(source_file
(source_statement
(alias_definition_statement
(type_identifier)
(type_expression
(type_subexpression
(type_identifier)))))
(source_statement
(abstract_type_definition_statement
(annotated_type
(type_identifier)
(typeclass_expression
(typeclass_subexpression
(typeclass_identifier)))
(typeclass_expression
(typeclass_subexpression
(typeclass_identifier)))
(typeclass_expression
(typeclass_subexpression
(typeclass_identifier))))))
(source_statement
(alias_definition_statement
(type_identifier)
(type_expression
(type_subexpression
(type_identifier)))))
(source_statement
(alias_definition_statement
(type_identifier)
(type_expression
(type_subexpression
(type_identifier)))))
(source_statement
(alias_definition_statement
(type_identifier)
(type_expression
(type_subexpression
(type_identifier))))))