From 20a5eab89f11d3943ab667487599b749e85eb3aa Mon Sep 17 00:00:00 2001 From: Mattias Andrée Date: Fri, 24 Oct 2014 18:49:38 +0200 Subject: kbd misc MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Mattias Andrée --- src/mds-kbdc/mds-kbdc.c | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/mds-kbdc/mds-kbdc.c b/src/mds-kbdc/mds-kbdc.c index 2cc6cff..608d0b4 100644 --- a/src/mds-kbdc/mds-kbdc.c +++ b/src/mds-kbdc/mds-kbdc.c @@ -95,14 +95,20 @@ int main(int argc_, char** argv_) \set(\6 \8 \add(\rsh(\get(\6 \8) \8) \mul(2 \rsh(\get(\7 \8))))) end for - if \equals(\and(\1 128)) - let \2 : \or(\2 64) + if \or(\equals(\1 0) \equals(\1 "0")) + "0" + else if \or(\equals(\1 1) \equals(\1 "1")) + "1" + else + "9" end if if \and(\1 128) ## a number is true iff it is not zero let \2 : \or(\2 64) end if + : <-altgr ultra> + */ source_code_destroy(&source_code); -- cgit v1.2.3-70-g09d2