2024-02-08 09:01:44 +00:00
|
|
|
|
---
|
|
|
|
|
date: "2023-12-06T01:36:43+09:00"
|
|
|
|
|
---
|
2023-11-29 06:22:30 +00:00
|
|
|
|
#programming-language #compiler-design
|
|
|
|
|
|
|
|
|
|
## 動機
|
2023-09-01 03:44:46 +00:00
|
|
|
|
|
2023-09-01 10:08:25 +00:00
|
|
|
|
[chumskyのチュートリアル](https://github.com/zesterer/chumsky/blob/main/tutorial.md)で、評価する関数の実装がライフタイム付きでこんな感じになってたの頭いいなと思ったので、RAIIにしたらもっとシンプルに見えるのではと思った
|
|
|
|
|
|
|
|
|
|
OCamlとかの関数型言語とかみたいに、`env :: newbind`とかするのはRustではイテレータとか使いづらいしやっぱ微妙、というのもある
|
2023-09-01 03:44:46 +00:00
|
|
|
|
|
|
|
|
|
```rust
|
2023-09-01 10:08:25 +00:00
|
|
|
|
fn eval<'a>(expr: &'a Expr, vars: &mut Vec<(&'a String, f64)>) -> Result<f64, String> {
|
|
|
|
|
match expr {
|
2023-09-01 03:44:46 +00:00
|
|
|
|
...
|
2023-09-01 10:08:25 +00:00
|
|
|
|
Expr::Let { name, rhs, then } => {
|
|
|
|
|
let rhs = eval(rhs, vars)?;
|
|
|
|
|
vars.push((name, rhs));
|
|
|
|
|
let output = eval(then, vars);
|
|
|
|
|
vars.pop();
|
|
|
|
|
output
|
|
|
|
|
},
|
2023-09-01 03:44:46 +00:00
|
|
|
|
...
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
```
|
|
|
|
|
|
2023-09-01 10:08:25 +00:00
|
|
|
|
Environmentは評価全体で見ればLetやLambdaごとに分岐していく構造だけれど、局所的には1列のベクタで表現できるので、実は`Vec`で十分
|
2023-09-01 03:44:46 +00:00
|
|
|
|
|
2023-09-01 09:50:32 +00:00
|
|
|
|
こんな感じすかねえ
|
2023-09-01 03:44:46 +00:00
|
|
|
|
|
2023-09-01 10:08:25 +00:00
|
|
|
|
[[Rust]]初心者には逆にわかりにくかもしれないな、、、
|
|
|
|
|
|
|
|
|
|
lookupでは値をコピーして返してる(このオブジェクトが有効な期間は中身のベクタの不変参照を返すことができないため)
|
|
|
|
|
|
2023-09-01 09:50:32 +00:00
|
|
|
|
```rust
|
2023-09-01 09:57:37 +00:00
|
|
|
|
struct EnvironmentT<'a, T: Clone>(&'a mut Vec<(String, T)>, usize);
|
2023-09-01 03:44:46 +00:00
|
|
|
|
|
2023-09-01 09:57:37 +00:00
|
|
|
|
impl<'a, T: Clone> EnvironmentT<'a, T> {
|
2023-09-01 09:50:32 +00:00
|
|
|
|
pub fn new(vec: &'a mut Vec<(String, T)>, mut names: Vec<(String, T)>) -> Self {
|
|
|
|
|
let len = vec.len();
|
|
|
|
|
vec.append(&mut names);
|
|
|
|
|
Self(vec, len)
|
|
|
|
|
}
|
2023-09-01 09:57:37 +00:00
|
|
|
|
pub fn lookup(&self, name: &String) -> Option<T> {
|
2023-09-01 09:50:32 +00:00
|
|
|
|
let res = self
|
|
|
|
|
.0
|
|
|
|
|
.iter()
|
|
|
|
|
.rev()
|
|
|
|
|
.filter(|(n, _v)| name == n)
|
|
|
|
|
.collect::<Vec<_>>();
|
2023-09-01 09:57:37 +00:00
|
|
|
|
res.get(0).map(|(_, v)| v.clone())
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
impl<'a, T: Clone> Drop for EnvironmentT<'a, T> {
|
|
|
|
|
fn drop(&mut self) {
|
|
|
|
|
self.0.truncate(self.1);
|
2023-09-01 09:50:32 +00:00
|
|
|
|
}
|
2023-09-01 03:44:46 +00:00
|
|
|
|
}
|
2023-09-02 12:37:00 +00:00
|
|
|
|
```
|
|
|
|
|
|
|
|
|
|
---
|
|
|
|
|
|
|
|
|
|
なんかDropのタイミングがうまく制御できずコンパイルを通せない、、、
|
|
|
|
|
し、綺麗ではあるけど言うほど記述量が減るわけではない
|
|
|
|
|
|
|
|
|
|
ので、evalを相互再帰するヘルパー関数とかでこういう感じにした方が楽かも
|
|
|
|
|
|
|
|
|
|
```rust
|
2023-09-02 13:58:04 +00:00
|
|
|
|
fn lookup(env: &mut Vec<(String, Value)>, name: &String) -> Option<Value> {
|
|
|
|
|
let res = env
|
|
|
|
|
.iter()
|
|
|
|
|
.rev()
|
|
|
|
|
.filter(|(n, _v)| name == n)
|
|
|
|
|
.collect::<Vec<_>>();
|
|
|
|
|
res.get(0).map(|(_, v)| v.clone())
|
|
|
|
|
}
|
2023-09-02 12:37:00 +00:00
|
|
|
|
fn eval_with_new_env<'a>(
|
|
|
|
|
e_meta: Box<WithMeta<ast::Expr>>,
|
|
|
|
|
env: &'a mut Vec<(String, Value)>,
|
|
|
|
|
mut names: Vec<(String, Value)>,
|
|
|
|
|
) -> Result<Value, Error> {
|
|
|
|
|
let len_origin = env.len();
|
|
|
|
|
env.append(&mut names);
|
|
|
|
|
let res = eval_ast(e_meta, env);
|
|
|
|
|
env.truncate(len_origin);
|
|
|
|
|
res
|
|
|
|
|
}
|
|
|
|
|
fn eval_ast<'a>(
|
|
|
|
|
e_meta: Box<WithMeta<ast::Expr>>,
|
|
|
|
|
env: &'a mut Vec<(String, Value)>,
|
|
|
|
|
) -> Result<Value, Error>{
|
|
|
|
|
...
|
|
|
|
|
match e {
|
|
|
|
|
...
|
|
|
|
|
ast::Expr::Let(TypedId { id, ty: _t }, e, then) => {
|
|
|
|
|
let e_v = eval_ast(e, env)?;
|
|
|
|
|
match then {
|
|
|
|
|
Some(t) => eval_with_new_env(t, env, vec![(id, e_v)]),
|
|
|
|
|
None => Ok(Value::Unit),
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
...
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
}
|
2023-11-29 06:22:30 +00:00
|
|
|
|
```
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
## 改善
|
|
|
|
|
|
|
|
|
|
微妙だったので結局ライフタイムで制御する方がいいのかもしれない
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
評価した時に、クロージャを作ると環境を保持する
|
|
|
|
|
|
|
|
|
|
Valueの中ではクロージャが`Env`と、bodyで`Expr`を保持し、環境はValueを保持するので定義も内部構造も循環することになる
|
|
|
|
|
|
|
|
|
|
全部メモリ的にフラットな構造にするためは?
|
|
|
|
|
|
|
|
|
|
Envは評価結果のValueをIdで保持する
|
|
|
|
|
|
|
|
|
|
一度lookupしたらEnvのインデックスに置き換えて2度目以降のアクセスはキャッシュが効くようにする
|
|
|
|
|
|
|
|
|
|
```rust
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
struct Compiler<'a,E,V>{
|
|
|
|
|
expr_pool:Arena<Expr<'a>>,
|
|
|
|
|
env:Environment<Intened<String>,V>,
|
|
|
|
|
symbols:Interner<String>,
|
|
|
|
|
}
|
|
|
|
|
|
2023-09-01 03:44:46 +00:00
|
|
|
|
```
|