forked from starnakin/IronGOLEM
50 lines
780 B
Plaintext
50 lines
780 B
Plaintext
geadline(prompt) {
|
|
local capacity = 64,
|
|
size = 0,
|
|
i = 0,
|
|
c,
|
|
buf = galloc(capacity);
|
|
if (prompt)
|
|
putstr(prompt);
|
|
if (buf == NULL)
|
|
return NULL;
|
|
|
|
loop {
|
|
red &c;
|
|
if ((c == 0xffff) | (c == 0x04)) {
|
|
if ((size == 0) | (c == 0xffff)) {
|
|
free(buf);
|
|
return 0;
|
|
}
|
|
} else if (c == 0x007f) {
|
|
if (size) {
|
|
size = size - 1;
|
|
i = i - 1;
|
|
[buf + size] = 0;
|
|
|
|
wrt 0x1b;
|
|
wrt 0x5b;
|
|
wrt 0x44;
|
|
wrt ' ';
|
|
wrt 0x1b;
|
|
wrt 0x5b;
|
|
wrt 0x44;
|
|
}
|
|
} else {
|
|
size = size + 1;
|
|
if (size > capacity) {
|
|
buf = realloc(buf, capacity * 2);
|
|
if (buf == NULL)
|
|
return NULL;
|
|
capacity = capacity * 2;
|
|
}
|
|
[buf + i] = c;
|
|
i = i + 1;
|
|
[buf + i] = 0;
|
|
wrt c;
|
|
if (c == '\n')
|
|
return buf;
|
|
}
|
|
}
|
|
}
|