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
|
use crate::ast_emitter::AstEmitter;
use crate::emitter::EmitError;
use crate::reference_op_emitter::{
AssignmentEmitter, DeclarationEmitter, GetNameEmitter, NameReferenceEmitter,
};
use ast::source_atom_set::SourceAtomSetIndex;
use stencil::gcthings::GCThingIndex;
use stencil::script::ScriptStencilIndex;
pub struct LazyFunctionEmitter {
pub stencil_index: ScriptStencilIndex,
}
impl LazyFunctionEmitter {
pub fn emit(self, emitter: &mut AstEmitter) -> GCThingIndex {
emitter
.compilation_info
.scripts
.get_mut(self.stencil_index)
.set_function_emitted();
emitter.emit.get_function_gcthing_index(self.stencil_index)
}
}
pub struct LexicalFunctionDeclarationEmitter {
pub name: SourceAtomSetIndex,
pub fun_index: GCThingIndex,
}
impl LexicalFunctionDeclarationEmitter {
pub fn emit(self, emitter: &mut AstEmitter) -> Result<(), EmitError> {
DeclarationEmitter {
lhs: |emitter| {
Ok(NameReferenceEmitter { name: self.name }.emit_for_declaration(emitter))
},
rhs: |emitter| {
emitter.emit.lambda(self.fun_index);
Ok(())
},
}
.emit(emitter)?;
emitter.emit.pop();
Ok(())
}
}
pub struct AnnexBFunctionDeclarationEmitter {
pub name: SourceAtomSetIndex,
pub fun_index: GCThingIndex,
}
impl AnnexBFunctionDeclarationEmitter {
pub fn emit(self, emitter: &mut AstEmitter) -> Result<(), EmitError> {
LexicalFunctionDeclarationEmitter {
name: self.name,
fun_index: self.fun_index,
}
.emit(emitter)?;
AssignmentEmitter {
lhs: |emitter| {
Ok(NameReferenceEmitter { name: self.name }.emit_for_var_assignment(emitter))
},
rhs: |emitter| {
GetNameEmitter { name: self.name }.emit(emitter);
Ok(())
},
}
.emit(emitter)?;
emitter.emit.pop();
Ok(())
}
}
|
