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

Adding host lookup.

Browse Source
This commit is contained in:
Brad Nelson
2022-08-11 00:07:46 -07:00
parent 00c6a87228
commit dce538da4a
3 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
esp32/bindings.fs
View File

@ -100,6 +100,9 @@ transfer sockets-builtins
: sockaddr create 16 c, AF_INET c, 0 bs, 0 l, 0 l, 0 l, ;
: ->port@ ( a -- n ) 2 + >r r@ c@ 256 * r> 1+ c@ + ;
: ->port! ( n a -- ) 2 + >r dup 256 / r@ c! r> 1+ c! ;
: ->addr@ ( a -- n ) 4 + ul@ ;
: ->addr! ( n a -- ) 4 + l! ;
: ->h_addr ( hostent -- n ) 2 cells + 8 + @ @ ul@ ;
forth definitions
vocabulary interrupts interrupts definitions