steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Changed with-default-stream to with-unscoped 

added writeln
cvs
Doug Coleman 2005-09-20 02:59:25 +00:00
parent 49bc74e044
commit b3f306eef3
1 changed files with 21 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
contrib/aim/net-bytes.factor
View File

@ -2,7 +2,8 @@ IN: aim
USING: kernel sequences lists stdio prettyprint strings namespaces math unparser threads vectors errors parser interpreter test io crypto ; USING: kernel sequences lists stdio prettyprint strings namespaces math unparser threads vectors errors parser interpreter test io crypto ;
SYMBOL: big-endian t big-endian set SYMBOL: big-endian t big-endian set
SYMBOL: default-stream SYMBOL: unscoped-stream
SYMBOL: unscoped-stack
: >nvector ( elems n -- ) : >nvector ( elems n -- )
@ -12,6 +13,9 @@ SYMBOL: default-stream
: papply ( seq seq -- seq ) : papply ( seq seq -- seq )
[ [ 2list call % ] 2each ] "" make ; [ [ 2list call % ] 2each ] "" make ;
: writeln ( string -- )
write terpri ;
! Examples: ! Examples:
! 1 2 3 4 4 >nvector . ! 1 2 3 4 4 >nvector .
! { 1 2 3 4 } ! { 1 2 3 4 }
@ -22,9 +26,17 @@ SYMBOL: default-stream
! [ 1 >short 6 >long ] make-packet . ! [ 1 >short 6 >long ] make-packet .
! "\0\u0001\0\0\0\0\0\0\0\u0006" ! "\0\u0001\0\0\0\0\0\0\0\u0006"
: with-default-stream ( stream quot -- ) : with-unscoped-stream ( stream quot -- )
swap default-stream set unscoped-stack get [ { } clone unscoped-stack set ] unless
[ dup [ default-stream get stream-close ] when rethrow ] catch ; swap dup unscoped-stream set unscoped-stack get push
[
dup [ unscoped-stream get stream-close ] when
unscoped-stack get dup length 1 > [ [ pop ] keep nip peek unscoped-stream set ] [ pop drop ] ifte
rethrow
] catch ;
: close-unscoped-stream ( -- )
unscoped-stream get stream-close ;
: >endian ( obj n -- str ) : >endian ( obj n -- str )
big-endian get [ >be ] [ >le ] ifte ; big-endian get [ >be ] [ >le ] ifte ;
@ -59,19 +71,19 @@ SYMBOL: default-stream
: head-byte ( -- byte ) : head-byte ( -- byte )
1 default-stream get stream-read first ; 1 unscoped-stream get stream-read first ;
: head-short ( -- short ) : head-short ( -- short )
2 default-stream get stream-read (head-short) ; 2 unscoped-stream get stream-read (head-short) ;
: head-int ( -- int ) : head-int ( -- int )
4 default-stream get stream-read (head-int) ; 4 unscoped-stream get stream-read (head-int) ;
: head-long ( -- long ) : head-long ( -- long )
8 default-stream get stream-read (head-long) ; 8 unscoped-stream get stream-read (head-long) ;
: head-string ( n -- str ) : head-string ( n -- str )
default-stream get stream-read >string ; unscoped-stream get stream-read >string ;
! wrote this months and months ago.. ! wrote this months and months ago..