Commit a600ae4c authored by bernd's avatar bernd
Browse files

Floating point logging

parent 37f3ac86

client-tests.fs

+1 −1
Original line number Original line Diff line number Diff line
@@ -114,7 +114,7 @@ previous 
    [: .time ." Download test: 1 text file and 2 photos" cr ;] $err

    [: .time ." Download test: 1 text file and 2 photos" cr ;] $err

    net2o-code

    net2o-code

      expect-reply

      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 )

      $400 blocksize! $400 blockalign! stat( request-stats )

      "net2o.fs" "net2o.fs" >cache n2o:copy

      "net2o.fs" "net2o.fs" >cache n2o:copy

      "data/2011-05-13_11-26-57-small.jpg" "photo000s.jpg" >cache n2o:copy

      "data/2011-05-13_11-26-57-small.jpg" "photo000s.jpg" >cache n2o:copy

net2o-cmd.fs

+2 −0
Original line number Original line Diff line number Diff line
@@ -475,6 +475,8 @@ gen-table $@ setup-table $! 
    $> F type ;

    $> F type ;

+net2o: . ( -- ) \ print number on server log

+net2o: . ( -- ) \ print number on server log

    64. ;

    64. ;

+net2o: f. ( -- ) \ print fp number on server log

    F f. ;

+net2o: cr ( -- ) \ newline on server log

+net2o: cr ( -- ) \ newline on server log

    F cr ;

    F cr ;

+net2o: see-me ( -- ) \ see received commands on server log

+net2o: see-me ( -- ) \ see received commands on server log