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

Change r|

Browse Source
This commit is contained in:
Brad Nelson
2021-01-09 07:57:49 -08:00
parent a707176cd1
commit 11dc57fa55
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
ueforth/arduino/arduino_server.fs
View File

@ -1,7 +1,6 @@
( Server Terminal ) ( Server Terminal )
: n. ( n -- ) <# #s #> type ; : ip# dup 255 and n. [char] . emit 256 / ; : n. ( n -- ) <# #s #> type ; : ip# dup 255 and n. [char] . emit 256 / ;
: ip. ( n -- ) ip# ip# ip# 255 and . ; : ip. ( n -- ) ip# ip# ip# 255 and . ;
: r| ( -- z ) [char] | parse s>z ;
r| r|
<!html> <!html>
@ -94,7 +93,7 @@ window.onload = function() {
prompt.focus(); prompt.focus();
}; };
</script> </script>
| constant index-html | s>z constant index-html
variable webserver variable webserver
20000 constant out-size 20000 constant out-size

1
ueforth/common/boot.fs
View File

@ -160,6 +160,7 @@ variable hld
: ." postpone s" state @ if postpone type else type then ; immediate : ." postpone s" state @ if postpone type else type then ; immediate
: z" postpone s" state @ if postpone drop else drop then ; immediate : z" postpone s" state @ if postpone drop else drop then ; immediate
: r" parse-quote state @ if swap aliteral aliteral then ; immediate : r" parse-quote state @ if swap aliteral aliteral then ; immediate
: r| [char] | parse state @ if swap aliteral aliteral then ; immediate
: s>z ( a n -- z ) here >r $place r> ; : s>z ( a n -- z ) here >r $place r> ;
: z>s ( z -- a n ) 0 over begin dup c@ while 1+ swap 1+ swap repeat drop ; : z>s ( z -- a n ) 0 over begin dup c@ while 1+ swap 1+ swap repeat drop ;