blob: 794132921912a491431d26f124ada151bad877df (
plain) (
blame)
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
|
discard """
output: '''("string here", 80)'''
cmd: '''nim c --gc:arc --expandArc:main --expandArc:sio --hint:Performance:off $file'''
nimout: '''--expandArc: main
var
x_cursor
:tmpD
try:
x_cursor = ("hi", 5)
if cond:
x_cursor = ("different", 54) else:
x_cursor = ("string here", 80)
echo [
:tmpD = `$$`(x_cursor)
:tmpD]
finally:
`=destroy`(:tmpD)
-- end of expandArc ------------------------
--expandArc: sio
block :tmp:
var x_cursor
var f = open("debug.txt", fmRead, 8000)
try:
var res
try:
res = newStringOfCap(80)
block :tmp_1:
while readLine(f, res):
x_cursor = res
echo [x_cursor]
finally:
`=destroy`(res)
finally:
close(f)
-- end of expandArc ------------------------'''
"""
proc main(cond: bool) =
var x = ("hi", 5) # goal: computed as cursor
x = if cond:
("different", 54)
else:
("string here", 80)
echo x
main(false)
proc sio =
for x in lines("debug.txt"):
echo x
if false:
sio()
|