Adding missed file.
This commit is contained in:
15
ueforth/arduino/arduino_bterm.fs
Normal file
15
ueforth/arduino/arduino_bterm.fs
Normal file
@ -0,0 +1,15 @@
|
||||
( Lazy loaded Bluetooth Serial Terminal )
|
||||
|
||||
: bterm r|
|
||||
vocabulary bterm bterm definitions
|
||||
also bluetooth also internals
|
||||
SerialBT.new constant bt
|
||||
z" forth" 0 bt SerialBT.begin .
|
||||
esp_bt_dev_get_address hex 6 dump cr
|
||||
: bt-type bt SerialBT.write drop ;
|
||||
: bt-key
|
||||
begin bt SerialBT.available until 0 >r rp@ 1 bt SerialBT.readBytes drop r> ;
|
||||
: bt-on ['] bt-type is type ['] bt-key is key ;
|
||||
: bt-off ['] arduino-type is type ['] arduino-key is key ;
|
||||
only forth definitions
|
||||
| evaluate ;
|
||||
Reference in New Issue
Block a user