From 46061a18da134248c69ec6307ed1c7c1a0b05fb7 Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <peter@pmikkelsen.com>
Date: Tue, 8 Feb 2022 16:21:48 +0000
Subject: Add script to use APL keyboard

---
 aplkeys | 101 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 101 insertions(+)
 create mode 100755 aplkeys

(limited to 'aplkeys')

diff --git a/aplkeys b/aplkeys
new file mode 100755
index 0000000..5d04d40
--- /dev/null
+++ b/aplkeys
@@ -0,0 +1,101 @@
+#!/bin/rc
+
+if(! ~ $#* 1){
+	echo 'usage: aplkeys kbmap' >[1=2]
+	exit usage
+}
+
+if(! test -e /sys/lib/kbmap/$1){
+	echo 'No such kbmap in /sys/lib/kbmap/:' $1
+	exit 'no such file'
+}
+
+cat /sys/lib/kbmap/ascii > /dev/kbmap
+cat /sys/lib/kbmap/$1 > /dev/kbmap
+cat >> /dev/kbmap <<EOF
+8	41	'⋄
+8	2	'¨
+8	3	'¯
+8	4	'<
+8	5	'≤
+8	6	'=
+8	7	'≥
+8	8	'>
+8	9	'≠
+8	10	'∨
+8	11	'∧
+8	12	'×
+8	13	'÷
+8	16	'?
+8	17	0x2375
+8	18	'∊
+8	19	0x2374
+8	20	'~
+8	21	'↑
+8	22	'↓
+8	23	0x2373
+8	24	'○
+8	25	'*
+8	26	'←
+8	27	'→
+8	30	0x237a
+8	31	'⌈
+8	32	'⌊
+8	33	'_
+8	34	'∇
+8	35	'∆
+8	36	'∘
+8	37	''
+8	38	0x2395
+8	39	0x234e
+8	40	0x2355
+8	43	'⊢
+8	86	'⊢
+8	44	'⊂
+8	45	'⊃
+8	46	'∩
+8	47	'∪
+8	48	'⊥
+8	49	'⊤
+8	50	'|
+8	51	0x235d
+8	52	0x2340
+8	53	0x233f
+9	41	0x233a
+9	2	0x2336
+9	3	0x236b
+9	4	0x2352
+9	5	0x234b
+9	6	0x233d
+9	7	0x2349
+9	8	'⊖
+9	9	0x235f
+9	10	0x2371
+9	11	0x2372
+9	12	'!
+9	13	0x2339
+9	17	0x2379
+9	18	0x2377
+9	19	0x233e
+9	20	0x2368
+9	23	0x2378
+9	24	0x2365
+9	25	0x2363
+9	26	0x235e
+9	27	0x236c
+9	30	0x2376
+9	34	0x2362
+9	36	0x2364
+9	37	0x2338
+9	38	0x2337
+9	39	'≡
+9	40	'≢
+9	43	'⊣
+9	86	'⊣
+9	44	'⊆
+9	45	0x2347
+9	46	0x2348
+9	51	0x236a
+9	52	0x2359
+9	53	0x2360
+EOF
\ No newline at end of file
-- 
cgit v1.2.3