1 ## our_shell: ysh
2 ## oils_failures_allowed: 1
3
4 #### Command.sourceCode() on literal block: p { echo hi }
5
6 proc p ( ; ; ; block) {
7 var src = block.sourceCode()
8 echo $[src.code_str] > out.ysh
9
10 # don't assert this yet, because whitespace can change
11 call src->erase('code_str')
12
13 json write (src)
14
15 # New location is out.ysh:4
16 $[ENV.SH] out.ysh || true
17
18 echo ---
19
20 #echo 'zz (' > bad.ysh
21
22 # Original location is [ stdin ]:20
23 ... $[ENV.SH]
24 --location-str $[src.location_str]
25 --location-start-line $[src.location_start_line]
26 out.ysh
27 || true
28 ;
29 }
30
31 p {
32 echo 1
33 echo 2
34 false
35 echo 3
36 }
37
38 ## STDOUT:
39 {
40 "location_str": "[ stdin ]",
41 "location_start_line": 22
42 }
43 1
44 2
45 ---
46 1
47 2
48 ## END
49
50
51 #### Command.sourceCode() on Expr: ^(echo 1; echo 2)
52
53 var cmd = ^(echo 1; echo 2; false)
54
55 var src = cmd.sourceCode()
56
57 assert [null === src]
58
59 # Test passing it
60 proc p ( ; ; ; block) {
61 pp test_ (block)
62 assert [null === block.sourceCode()]
63 }
64
65 p ( ; ; cmd)
66
67 ## STDOUT:
68 <Command>
69 ## END
70
71
72 #### Command.sourceCode() works with reparsing, e.g. backticks
73
74 # TODO: fix this bug - same as Hay bug
75
76 proc p ( ; ; ; block) {
77 var src = block.sourceCode()
78
79 #pp test_ (src.code_str)
80
81 # Re-parsing messes this up
82 echo $[src.code_str]
83 echo
84 }
85
86 shopt --set parse_backticks
87
88 p {
89 echo "greeting `echo hi`"
90 }
91
92 shopt --set expand_aliases
93
94
95 alias e='echo hi'
96
97 p {
98 e foo
99 }
100
101 shopt --set parse_sh_arith
102
103 p {
104 a[i++]=y
105 }
106
107 ## STDOUT:
108 ## END