Floating point logging

client-tests.fs

@@ -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

net2o-cmd.fs

@@ -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