Commit a600ae4c authored by bernd's avatar bernd

Floating point logging

parent 37f3ac86
......@@ -114,7 +114,7 @@ previous
[: .time ." Download test: 1 text file and 2 photos" cr ;] $err
net2o-code
expect-reply
!time .time s" Download test" $, type cr ( see-me ) get-ip
!time .time s" Download test " $, type 1 lit, . pi float, f. cr ( see-me ) get-ip
$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,6 +475,8 @@ gen-table $@ setup-table $!
$> F type ;
+net2o: . ( -- ) \ print number on server log
64. ;
+net2o: f. ( -- ) \ print fp number on server log
F f. ;
+net2o: cr ( -- ) \ newline on server log
F cr ;
+net2o: see-me ( -- ) \ see received commands on server log
......
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