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

Get contrib/aim/ to load

darcs
slava 2006-06-15 06:19:10 +00:00
parent 9759381d95
commit fd6c9963a7
3 changed files with 7 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
contrib/aim/aim.factor
View File

@ -1,7 +1,7 @@
! All Talk ! All Talk
IN: aim-internals IN: aim-internals
USING: kernel sequences lists prettyprint strings namespaces math threads vectors errors parser interpreter test io crypto words hashtables inspector aim-internals generic queues arrays ; USING: kernel sequences prettyprint strings namespaces math threads vectors errors parser interpreter test io crypto words hashtables inspector aim-internals generic queues arrays ;
SYMBOL: username SYMBOL: username
SYMBOL: password SYMBOL: password
@ -261,15 +261,12 @@ M: object get-banned ( name -- <buddy> )
: family-table ( -- hash ) H{ } ; : family-table ( -- hash ) H{ } ;
: FAMILY: ( -- fam# ) : FAMILY: ( -- fam# )
scan hex> swons dup car family-table hash dup [ scan hex> dup family-table hash [
drop H{ } clone over family-table set-hash
] [ ] unless ; parsing
drop H{ } clone over car family-table set-hash
] if ; parsing
: OPCODE: ( fam# -- ) : OPCODE: ( fam# -- )
car family-table hash word scan hex> rot set-hash f ; parsing family-table hash word scan hex> rot set-hash ; parsing
! Generic, Capabilities ! Generic, Capabilities
: send-generic-capabilities : send-generic-capabilities

2
contrib/aim/load.factor
View File

@ -1,8 +1,6 @@
IN: scratchpad IN: scratchpad
USING: kernel parser sequences words compiler ; USING: kernel parser sequences words compiler ;
"/contrib/crypto/load.factor" run-resource
{ {
"net-bytes" "net-bytes"
"aim" "aim"

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

@ -1,5 +1,5 @@
IN: aim-internals IN: aim-internals
USING: kernel sequences lists prettyprint strings namespaces math threads vectors errors parser interpreter test io crypto arrays ; USING: kernel sequences prettyprint strings namespaces math threads vectors errors parser interpreter test io crypto arrays ;
SYMBOL: big-endian t big-endian set SYMBOL: big-endian t big-endian set
SYMBOL: unscoped-stream SYMBOL: unscoped-stream
@ -31,7 +31,7 @@ SYMBOL: unscoped-stack
! TODO: make this work for types other than "" ! TODO: make this work for types other than ""
: papply ( seq seq -- seq ) : papply ( seq seq -- seq )
[ [ 2array >list call % ] 2each ] "" make ; [ [ 2array >quotation call % ] 2each ] "" make ;
: writeln ( string -- ) : writeln ( string -- )
write terpri ; write terpri ;