1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
use crate::BaseData;
use crate::BoundVar;
use crate::BoundVarOr;
use crate::ReprKind;
use crate::TypeFamily;
use lark_debug_derive::DebugWith;
use lark_debug_with::{DebugWith, FmtWithSpecialized};
use lark_intern::{Intern, Untern};
use std::fmt;
#[derive(Copy, Clone, Debug, DebugWith, PartialEq, Eq, Hash)]
pub struct Declaration;
impl TypeFamily for Declaration {
type InternTables = DeclarationTables;
type Repr = ReprKind;
type Perm = Perm;
type Base = Base;
type Placeholder = !;
fn own_perm(tables: &dyn AsRef<DeclarationTables>) -> Self::Perm {
DeclaredPermKind::Own.intern(tables)
}
fn known_repr(_tables: &dyn AsRef<DeclarationTables>, repr_kind: ReprKind) -> ReprKind {
repr_kind
}
fn intern_base_data(
tables: &dyn AsRef<DeclarationTables>,
base_data: BaseData<Self>,
) -> Self::Base {
BoundVarOr::Known(base_data).intern(tables)
}
}
impl Declaration {
pub fn intern_bound_var(db: &AsRef<DeclarationTables>, bv: BoundVar) -> Base {
let bv: BoundVarOr<BaseData<Declaration>> = BoundVarOr::BoundVar(bv);
bv.intern(db)
}
}
lark_collections::index_type! {
pub struct Base { .. }
}
lark_debug_with::debug_fallback_impl!(Base);
impl<Cx> FmtWithSpecialized<Cx> for Base
where
Cx: AsRef<DeclarationTables>,
{
fn fmt_with_specialized(&self, cx: &Cx, fmt: &mut fmt::Formatter<'_>) -> fmt::Result {
self.untern(cx).fmt_with(cx, fmt)
}
}
lark_collections::index_type! {
pub struct Perm { .. }
}
lark_debug_with::debug_fallback_impl!(Perm);
impl<Cx> FmtWithSpecialized<Cx> for Perm
where
Cx: AsRef<DeclarationTables>,
{
fn fmt_with_specialized(&self, cx: &Cx, fmt: &mut fmt::Formatter<'_>) -> fmt::Result {
self.untern(cx).fmt_with(cx, fmt)
}
}
#[derive(Copy, Clone, Debug, DebugWith, PartialEq, Eq, Hash)]
pub enum DeclaredPermKind {
Own,
}
lark_intern::intern_tables! {
pub struct DeclarationTables {
struct DeclarationTablesData {
bases: map(Base, BoundVarOr<BaseData<Declaration>>),
perms: map(Perm, DeclaredPermKind),
}
}
}