diff options
| -rw-r--r-- | res/keyboard/compose/dead | 16 | ||||
| -rw-r--r-- | src/mds-kbdc/mds-kbdc.c | 6 |
2 files changed, 13 insertions, 9 deletions
diff --git a/res/keyboard/compose/dead b/res/keyboard/compose/dead index cab479d..2ad7d3f 100644 --- a/res/keyboard/compose/dead +++ b/res/keyboard/compose/dead @@ -1621,28 +1621,28 @@ function braille/1 end function macro braille_double/1 let \2 : "\u2800" - if \and(\1 1) = 1 + if \and(\1 1) let \2 : \or(\2 8) end if - if \and(\1 2) = 2 + if \and(\1 2) let \2 : \or(\2 16) end if - if \and(\1 4) = 4 + if \and(\1 4) let \2 : \or(\2 32) end if - if \and(\1 8) = 8 + if \and(\1 8) let \2 : \or(\2 1) end if - if \and(\1 16) = 16 + if \and(\1 16) let \2 : \or(\2 2) end if - if \and(\1 32) = 32 + if \and(\1 32) let \2 : \or(\2 4) end if - if \and(\1 64) = 64 + if \and(\1 64) let \2 : \or(\2 128) end if - if \and(\1 128) = 128 + if \and(\1 128) let \2 : \or(\2 64) end if <dead compose> "\1" "\1" : "\or(\1 \2)" diff --git a/src/mds-kbdc/mds-kbdc.c b/src/mds-kbdc/mds-kbdc.c index 3fd0d82..da1d9a4 100644 --- a/src/mds-kbdc/mds-kbdc.c +++ b/src/mds-kbdc/mds-kbdc.c @@ -95,7 +95,11 @@ int main(int argc_, char** argv_) \set(\6 \8 \add(\rsh(\get(\6 \8) \8) \mul(2 \rsh(\get(\7 \8))))) end for - if \and(\1 128) = 128 + if \equals(\and(\1 128)) + let \2 : \or(\2 64) + end if + + if \and(\1 128) ## a number is true iff it is not zero let \2 : \or(\2 64) end if |