native: disable the broken part of the keyboard driver

FossilOrigin-Name: 193997c220e6eef57f7c2a2a4b396db52f30bbb6fc3e0c1ff74ea4fea9723468
This commit is contained in:
crc 2019-04-16 18:16:33 +00:00
parent 43c27bb13a
commit 2af4392a66
3 changed files with 599 additions and 623 deletions

View file

@ -2,7 +2,7 @@ all: native386 clean
native386: native386:
cp ../../ngaImage nativeImage cp ../../ngaImage nativeImage
../../bin/retro-extend nativeImage x86/common.forth x86/keyboard.forth x86/cmos-rtc.forth x86/serial.forth x86/display.forth x86/ata.forth x86/listener.forth x86/Block-Editor.forth ../../bin/retro-extend nativeImage x86/common.forth x86/cmos-rtc.forth x86/serial.forth x86/display.forth x86/ata.forth x86/listener.forth x86/Block-Editor.forth
../../bin/retro-embedimage nativeImage >image.c ../../bin/retro-embedimage nativeImage >image.c
cc -fno-pie -Wall -m32 -DTARGET_X86 -c retro.c -o retro_qwerty.o cc -fno-pie -Wall -m32 -DTARGET_X86 -c retro.c -o retro_qwerty.o
cc -fno-pie -Wall -m32 -DTARGET_X86 -DUSE_DVORAK -c retro.c -o retro_dvorak.o cc -fno-pie -Wall -m32 -DTARGET_X86 -DUSE_DVORAK -c retro.c -o retro_dvorak.o

File diff suppressed because it is too large Load diff

View file

@ -27,7 +27,4 @@
&listen #1 store &listen #1 store
[ $? c:put sp 'word_not_found s:put nl ] &err:notfound set-hook [ $? c:put sp 'word_not_found s:put nl ] &err:notfound set-hook
}} }}
:use-key &getc &c:get set-hook 'Hook_set s:put nl ;
~~~ ~~~