alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Various tweaks.

Browse Source
This commit is contained in:
Brad Nelson
2021-04-10 08:23:26 -07:00
parent 04677eb5d0
commit e3fa41d8c2
4 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
ueforth/Makefile
View File

@ -125,7 +125,8 @@ POSIX_BOOT = common/boot.fs common/conditionals.fs common/vocabulary.fs \
common/hide_calls.fs common/ansi.fs \ common/hide_calls.fs common/ansi.fs \
posix/posix.fs posix/posix_highlevel.fs posix/termios.fs common/locals.fs \ posix/posix.fs posix/posix_highlevel.fs posix/termios.fs common/locals.fs \
common/utils.fs common/highlevel.fs common/filetools.fs posix/posix_desktop.fs \ common/utils.fs common/highlevel.fs common/filetools.fs posix/posix_desktop.fs \
common/tasks.fs common/streams.fs common/blocks.fs posix/autoboot.fs \ common/tasks.fs common/streams.fs common/blocks.fs posix/telnetd.fs \
posix/autoboot.fs \
common/fini.fs common/fini.fs
$(GEN)/posix_boot.h: common/source_to_string.js $(POSIX_BOOT) | $(GEN) $(GEN)/posix_boot.h: common/source_to_string.js $(POSIX_BOOT) | $(GEN)
echo "ok" | cat $(POSIX_BOOT) - | $< boot $(VERSION) $(REVISION) >$@ echo "ok" | cat $(POSIX_BOOT) - | $< boot $(VERSION) $(REVISION) >$@

2
ueforth/arduino/telnetd.fs
View File

@ -1,7 +1,7 @@
( Telnet ) ( Telnet )
vocabulary telnetd telnetd definitions also sockets also internals vocabulary telnetd telnetd definitions also sockets also internals
8080 constant port 23 constant port
-1 value sockfd -1 value clientfd -1 value sockfd -1 value clientfd
: bs, ( n -- ) dup 256 / c, c, ; : bs, ( n -- ) dup 256 / c, c, ;
: s, ( n -- ) dup c, 256 / c, ; : s, ( n -- ) dup c, 256 / c, ;

3
ueforth/posix/telnetd.fs
View File

@ -3,7 +3,7 @@ include posix/sockets.fs
vocabulary telnetd telnetd definitions also posix vocabulary telnetd telnetd definitions also posix
8080 constant port 5555 constant port
-1 value sockfd -1 value clientfd -1 value sockfd -1 value clientfd
: bs, ( n -- ) dup 256 / c, c, ; : bs, ( n -- ) dup 256 / c, c, ;
: s, ( n -- ) dup c, 256 / c, ; : s, ( n -- ) dup c, 256 / c, ;
@ -38,4 +38,3 @@ defer broker
only forth definitions only forth definitions
telnetd server

1
ueforth/site/ESP32forth.html
View File

@ -296,6 +296,7 @@ pinchange ( xt pin -- ) Call xt when pin changes.
<p>Example:</p> <p>Example:</p>
<pre> <pre>
17 input pinMode
: test ." pinvalue: " 17 digitalRead . cr ; : test ." pinvalue: " 17 digitalRead . cr ;
' test 17 pinchange ' test 17 pinchange
</pre> </pre>