diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2021-10-13 23:15:59 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2021-10-13 23:15:59 -0700 |
commit | 9a183b817903c39fc33d38d73bf506ced3e5553e (patch) | |
tree | bfa090e6815c1963dc1583397ee68349fa6b571c /400.mu | |
parent | db0363462f42b05561853bd295fb4d39909a9f6c (diff) | |
download | mu-9a183b817903c39fc33d38d73bf506ced3e5553e.tar.gz |
support backspace when reading line from keyboard
Diffstat (limited to '400.mu')
-rw-r--r-- | 400.mu | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/400.mu b/400.mu index 539093b8..9baad977 100644 --- a/400.mu +++ b/400.mu @@ -65,6 +65,7 @@ sig write-stream-immutable f: (addr stream byte), s: (addr stream byte) sig read-byte s: (addr stream byte) -> _/eax: byte sig peek-byte s: (addr stream byte) -> _/eax: byte sig append-byte f: (addr stream byte), n: int # really just a byte, but I want to pass in literal numbers +sig undo-append-byte f: (addr stream byte) # take most recent append back out #sig to-hex-char in/eax: int -> out/eax: int sig append-byte-hex f: (addr stream byte), n: int # really just a byte, but I want to pass in literal numbers sig write-int32-hex f: (addr stream byte), n: int |