Commit 7427f32c authored by bernd's avatar bernd
Browse files

Modified words

parent fbb93421

client-tests.fs

+1 −1
Original line number Diff line number Diff line
@@ -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

net2o-cmd.fs

+8 −4
Original line number Diff line number Diff line
@@ -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