diff options
Diffstat (limited to 'linux/tui.mu')
| -rw-r--r-- | linux/tui.mu | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/linux/tui.mu b/linux/tui.mu new file mode 100644 index 00000000..c58a82c6 --- /dev/null +++ b/linux/tui.mu @@ -0,0 +1,34 @@ +# Test some primitives for text-mode. +# +# To run: +# $ ./translate_mu apps/tui.mu +# $ ./a.elf + +fn main -> _/ebx: int { + var nrows/eax: int <- copy 0 + var ncols/ecx: int <- copy 0 + nrows, ncols <- screen-size 0 + enable-screen-grid-mode + move-cursor 0/screen, 5/row, 0x22/col + start-color 0/screen, 1/fg, 0x7a/bg + start-blinking 0/screen + print-string 0/screen, "Hello world!" + reset-formatting 0/screen + move-cursor 0/screen, 6/row, 0x22/col + print-string 0/screen, "tty dimensions: " + print-int32-hex 0/screen, nrows + print-string 0/screen, " rows, " + print-int32-hex 0/screen, ncols + print-string 0/screen, " rows\n" + + print-string 0/screen, "press a key to see its code: " + enable-keyboard-immediate-mode + var x/eax: grapheme <- read-key-from-real-keyboard + enable-keyboard-type-mode + enable-screen-type-mode + print-string 0/screen, "You pressed " + var x-int/eax: int <- copy x + print-int32-hex 0/screen, x-int + print-string 0/screen, "\n" + return 0 +} |