Commit 7427f32c authored by bernd's avatar bernd

Modified words

parent fbb93421
......@@ -115,7 +115,7 @@ previous
net2o-code
expect-reply
!time .time s" Download test " $, type 1 lit, . pi float, f. cr
( see-me ) get-ip 0 lit, file-id words push' cr endwith
( see-me ) get-ip 0 lit, file-id 0 lit, words push' cr endwith
$400 blocksize! $400 blockalign! stat( request-stats )
"net2o.fs" "net2o.fs" >cache n2o:copy
"data/2011-05-13_11-26-57-small.jpg" "photo000s.jpg" >cache n2o:copy
......
......@@ -475,14 +475,18 @@ also net2o-base definitions
dup set-current
: net2o:words ( -- )
token-table $@ bounds U+DO
I @ ?dup-IF >net2o-name 2dup type space $, s" -" $, token THEN
: net2o:words ( start -- )
token-table $@ rot cells safe/string bounds U+DO
I @ ?dup-IF
>net2o-name dup $A0 + maxstring < IF
$, s" -" $, token
ELSE 2drop THEN
THEN
cell +LOOP ;
definitions
+net2o: words ( -- )
+net2o: words ( start -- ) 64>n
net2o:words ;
\ setup connection class
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment