1 |
# YSH specific features of eval
|
2 |
|
3 |
## our_shell: ysh
|
4 |
## oils_failures_allowed: 1
|
5 |
|
6 |
|
7 |
|
8 |
var b = ^(echo obj)
|
9 |
eval (b)
|
10 |
|
11 |
eval (^(echo command literal))
|
12 |
|
13 |
# Doesn't work because it's a positional arg
|
14 |
eval { echo block }
|
15 |
|
16 |
## status: 3
|
17 |
## STDOUT:
|
18 |
obj
|
19 |
command literal
|
20 |
## END
|
21 |
|
22 |
|
23 |
|
24 |
proc run (;;; block) {
|
25 |
eval (block)
|
26 |
}
|
27 |
|
28 |
run {
|
29 |
echo 'In a block!'
|
30 |
}
|
31 |
## STDOUT:
|
32 |
In a block!
|
33 |
## END
|
34 |
|
35 |
|
36 |
proc lazy-block ( ; out; ; block) {
|
37 |
call out->setValue(block)
|
38 |
}
|
39 |
|
40 |
var myglobal = 0
|
41 |
|
42 |
lazy-block (&my_block) {
|
43 |
json write (myglobal)
|
44 |
}
|
45 |
|
46 |
eval (my_block)
|
47 |
setvar myglobal = 1
|
48 |
eval (my_block)
|
49 |
## STDOUT:
|
50 |
0
|
51 |
1
|
52 |
## END
|
53 |
|
54 |
|
55 |
|
56 |
proc p2(code_str) {
|
57 |
var mylocal = 42
|
58 |
eval $code_str
|
59 |
}
|
60 |
|
61 |
p2 'echo mylocal=$mylocal'
|
62 |
|
63 |
proc p (;;; block) {
|
64 |
var mylocal = 99
|
65 |
eval (block)
|
66 |
}
|
67 |
|
68 |
p {
|
69 |
echo mylocal=$mylocal
|
70 |
}
|
71 |
|
72 |
|
73 |
## STDOUT:
|
74 |
mylocal=42
|
75 |
mylocal=99
|
76 |
## END
|
77 |
|
78 |
|
79 |
|
80 |
proc p (;;; block) {
|
81 |
var this = 42
|
82 |
|
83 |
# like push-registers? Not sure
|
84 |
# We could use state.ctx_Temp ? There's also ctx_FuncCall etc.
|
85 |
#
|
86 |
# I think we want to provide full control over the stack.
|
87 |
push-frame {
|
88 |
eval (block)
|
89 |
}
|
90 |
}
|
91 |
|
92 |
p {
|
93 |
echo $this
|
94 |
}
|
95 |
|
96 |
## status: 1
|
97 |
## STDOUT:
|
98 |
TODO
|
99 |
## END
|