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
|
// Defines the colors that a terminal is expected to implement.
// These are the classical VGA colors.
export type color = enum {
BLACK,
BLUE,
GREEN,
CYAN,
RED,
MAGENTA,
BROWN,
LGRAY,
DGRAY,
LBLUE,
LGREEN,
LCYAN,
LRED,
YELLOW,
LMAGENTA,
WHITE
};
export type vtable = struct {
setpos: *fn(_: *term, _: (size, size)) void,
getpos: *fn(_: *term) (size, size),
setcolors: *fn(_: *term, _: (color, color)) void,
getcolors: *fn(_: *term) (color, color),
putchar: *fn(_: *term, _: u8) void,
getdim: *fn(_: *term) (size, size),
};
export type term = *vtable;
export fn setpos(ctrl: *term, pos: (size, size)) void = {
ctrl.setpos(ctrl, pos);
};
export fn getpos(ctrl: *term) (size, size) = {
return ctrl.getpos(ctrl);
};
export fn setcolors(ctrl: *term, colors: (color, color)) void = {
ctrl.setcolors(ctrl, colors);
};
export fn getcolors(ctrl: *term) (color, color) = {
return ctrl.getcolors(ctrl);
};
export fn putchar(ctrl: *term, c: u8) void = {
ctrl.putchar(ctrl, c);
};
export fn getdim(ctrl: *term) (size, size) = {
return ctrl.getdim(ctrl);
};
fn advancex(ctrl: *term) void = {
let dim = getdim(ctrl);
let pos = getpos(ctrl);
pos.0 += 1;
if (pos.0 >= dim.0) {
newline(ctrl);
} else {
setpos(ctrl, pos);
};
};
fn newline(ctrl: *term) void = {
let dim = getdim(ctrl);
let pos = getpos(ctrl);
pos.0 = 0;
pos.1 += 1;
if (pos.1 >= dim.1) {
clear(ctrl);
setpos(ctrl, (0, 0));
} else {
setpos(ctrl, pos);
};
};
fn carriage(ctrl: *term) void = {
let pos = getpos(ctrl);
pos.0 = 0;
setpos(ctrl, pos);
};
export fn print(ctrl: *term, msg: str) void = {
let msg = *(&msg: *[]u8);
for (let i = 0z; i < len(msg); i += 1) {
switch (msg[i]) {
case '\n' => newline(ctrl);
case '\r' => carriage(ctrl);
case =>
putchar(ctrl, msg[i]);
advancex(ctrl);
};
};
};
export fn clear(ctrl: *term) void = {
let colors = getcolors(ctrl);
setcolors(ctrl, (colors.1, colors.1));
let dim = getdim(ctrl);
let pos = getpos(ctrl);
for (let j = 0z; j < dim.1; j += 1) {
for (let i = 0z; i < dim.0; i += 1) {
setpos(ctrl, (i, j));
putchar(ctrl, ' ');
};
};
setpos(ctrl, pos);
setcolors(ctrl, colors);
};
|
