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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
# .tlv file generated by https://github.com/akkartik/teliva
# You may edit it if you are careful; however, you may see cryptic errors if you
# violate Teliva's assumptions.
#
# .tlv files are representations of Teliva programs. Teliva programs consist of
# sequences of definitions. Each definition is a table of key/value pairs. Keys
# and values are both strings.
#
# Lines in .tlv files always follow exactly one of the following forms:
# - comment lines at the top of the file starting with '#' at column 0
# - beginnings of definitions starting with '- ' at column 0, followed by a
# key/value pair
# - key/value pairs consisting of ' ' at column 0, containing either a
# spaceless value on the same line, or a multi-line value
# - multiline values indented by more than 2 spaces, starting with a '>'
#
# If these constraints are violated, Teliva may unceremoniously crash. Please
# report bugs at http://akkartik.name/contact
- __teliva_timestamp: original
render:
>function render(window)
> window:clear()
> local lines, cols = window:getmaxyx()
> local line = math.floor(lines/2)
> local col = math.floor(cols/4)
> for i,t in ipairs(tower) do
> render_tower(window, line, i*col, i, t)
> end
> curses.refresh()
>end
- __teliva_timestamp: original
lines:
>function lines(window)
> local lines, cols = window:getmaxyx()
> return lines
>end
- __teliva_timestamp: original
pop:
>function pop(array)
> return table.remove(array)
>end
- __teliva_timestamp: original
window:
>window = curses.stdscr()
- __teliva_timestamp: original
render_tower:
>function render_tower(window, line, col, tower_index, tower)
> window:attron(curses.A_BOLD)
> window:mvaddch(line+2, col, string.char(96+tower_index))
> window:attroff(curses.A_BOLD)
> window:attron(curses.color_pair(15))
> window:mvaddstr(line+1, col-6, " ")
> window:attroff(curses.color_pair(15))
> for i, n in ipairs(tower) do
> render_disk(window, line, col, n)
> line = line - 1
> end
> for i=1,5-len(tower)+1 do
> window:attron(curses.color_pair(15))
> window:mvaddstr(line, col, " ")
> window:attroff(curses.color_pair(15))
> line = line - 1
> end
>end
- __teliva_timestamp: original
tower:
>tower = {{6, 5, 4, 3, 2}, {}, {}}
- __teliva_timestamp: original
render_disk:
>function render_disk(window, line, col, size)
> col = col-size+1
> for i=1,size do
> window:attron(curses.color_pair(size))
> window:mvaddstr(line, col, " ")
> window:attroff(curses.color_pair(size))
> col = col+2
> end
>end
- __teliva_timestamp: original
main:
>function main()
> curses.assume_default_colors(238, 139)
> for i=1,7 do
> curses.init_pair(i, 0, i)
> end
> curses.init_pair(15, 0, 250) -- tower frames
>
> while true do
> render(window)
> update(window)
> end
>end
- __teliva_timestamp: original
len:
>function len(array)
> local result = 0
> for k in pairs(array) do
> result = result+1
> end
> return result
>end
- __teliva_timestamp: original
update:
>function update(window)
> window:mvaddstr(lines(window)-2, 5, "tower to remove top disk from? ")
> local from = curses.getch() - 96
> window:mvaddstr(lines(window)-1, 5, "tower to stack it on? ")
> local to = curses.getch() - 96
> make_move(from, to)
>end
- __teliva_timestamp: original
make_move:
>function make_move(from, to)
> local disk = pop(tower[from])
> table.insert(tower[to], disk)
>end
- __teliva_timestamp: original
cols:
>function cols(window)
> local lines, cols = window:getmaxyx()
> return cols
>end
|