diff --git a/ueforth/Makefile b/ueforth/Makefile index 51d0e27..ac3a650 100644 --- a/ueforth/Makefile +++ b/ueforth/Makefile @@ -125,7 +125,8 @@ POSIX_BOOT = common/boot.fs common/conditionals.fs common/vocabulary.fs \ common/hide_calls.fs common/ansi.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/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 $(GEN)/posix_boot.h: common/source_to_string.js $(POSIX_BOOT) | $(GEN) echo "ok" | cat $(POSIX_BOOT) - | $< boot $(VERSION) $(REVISION) >$@ diff --git a/ueforth/arduino/telnetd.fs b/ueforth/arduino/telnetd.fs index 5b98f16..1011014 100644 --- a/ueforth/arduino/telnetd.fs +++ b/ueforth/arduino/telnetd.fs @@ -1,7 +1,7 @@ ( Telnet ) vocabulary telnetd telnetd definitions also sockets also internals -8080 constant port +23 constant port -1 value sockfd -1 value clientfd : bs, ( n -- ) dup 256 / c, c, ; : s, ( n -- ) dup c, 256 / c, ; diff --git a/ueforth/posix/telnetd.fs b/ueforth/posix/telnetd.fs index cda00a9..ba3671e 100644 --- a/ueforth/posix/telnetd.fs +++ b/ueforth/posix/telnetd.fs @@ -3,7 +3,7 @@ include posix/sockets.fs vocabulary telnetd telnetd definitions also posix -8080 constant port +5555 constant port -1 value sockfd -1 value clientfd : bs, ( n -- ) dup 256 / c, c, ; : s, ( n -- ) dup c, 256 / c, ; @@ -38,4 +38,3 @@ defer broker only forth definitions -telnetd server diff --git a/ueforth/site/ESP32forth.html b/ueforth/site/ESP32forth.html index 98f4bd4..825c42c 100644 --- a/ueforth/site/ESP32forth.html +++ b/ueforth/site/ESP32forth.html @@ -296,6 +296,7 @@ pinchange ( xt pin -- ) Call xt when pin changes.

Example:

+17 input pinMode
 : test ." pinvalue: " 17 digitalRead . cr ;
 ' test 17 pinchange