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

updated to work with the new hash implementation

cvs
Doug Coleman 2005-11-28 22:50:31 +00:00
parent 3b0110db42
commit 2b1ca6c96f
1 changed files with 52 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

104
contrib/aim/aim.factor
View File

@ -1,7 +1,7 @@
! All Talk ! All Talk
IN: aim-internals IN: aim-internals
USING: kernel sequences lists stdio prettyprint strings namespaces math unparser threads vectors errors parser interpreter test io crypto words hashtables inspector aim-internals generic queues ; USING: kernel sequences lists stdio prettyprint strings namespaces math unparser threads vectors errors parser interpreter test io crypto words hashtables inspector aim-internals generic queues arrays ;
SYMBOL: username SYMBOL: username
SYMBOL: password SYMBOL: password
@ -65,77 +65,77 @@ TUPLE: buddy name id gid capabilities buddy-icon online ;
! Family names from ethereal ! Family names from ethereal
: family-names : family-names
H{ H{
[[ 1 "Generic" ]] [[ 2 "Location" ]] [[ 3 "Buddylist" ]] { 1 "Generic" } { 2 "Location" } { 3 "Buddylist" }
[[ 4 "Messaging" ]] [[ 6 "Invitation" ]] [[ 8 "Popup" ]] { 4 "Messaging" } { 6 "Invitation" } { 8 "Popup" }
[[ 9 "BOS" ]] [[ 10 "User Lookup" ]] [[ 11 "Stats" ]] { 9 "BOS" } { 10 "User Lookup" } { 11 "Stats" }
[[ 12 "Translate" ]] [[ 19 "SSI" ]] [[ 21 "ICQ" ]] { 12 "Translate" } { 19 "SSI" } { 21 "ICQ" }
[[ 34 "Unknown Family" ]] } ; { 34 "Unknown Family" } } ;
: sanitize-name ( name -- name ) HEX: 20 swap remove >lower ; : sanitize-name ( name -- name ) HEX: 20 swap remove >lower ;
: hash-swap ( hash -- hash ) : hash-swap ( hash -- hash )
[ [ unswons cons , ] hash-each ] { } make alist>hash ; [ [ swap 2array , ] hash-each ] { } make alist>hash ;
: 2list>hash ( keys values -- hash ) : 2list>hash ( keys values -- hash )
H{ } clone -rot [ swap pick set-hash ] 2each ; H{ } clone -rot [ swap pick set-hash ] 2each ;
: capability-names : capability-names
H{ H{
[[ "Unknown1" HEX: 094601054c7f11d18222444553540000 ]] { "Unknown1" HEX: 094601054c7f11d18222444553540000 }
[[ "Games" HEX: 0946134a4c7f11d18222444553540000 ]] { "Games" HEX: 0946134a4c7f11d18222444553540000 }
[[ "Send Buddy List" HEX: 0946134b4c7f11d18222444553540000 ]] { "Send Buddy List" HEX: 0946134b4c7f11d18222444553540000 }
[[ "Chat" HEX: 748f2420628711d18222444553540000 ]] { "Chat" HEX: 748f2420628711d18222444553540000 }
[[ "AIM/ICQ Interoperability" HEX: 0946134d4c7f11d18222444553540000 ]] { "AIM/ICQ Interoperability" HEX: 0946134d4c7f11d18222444553540000 }
[[ "Voice Chat" HEX: 094613414c7f11d18222444553540000 ]] { "Voice Chat" HEX: 094613414c7f11d18222444553540000 }
[[ "iChat" HEX: 094600004c7f11d18222444553540000 ]] { "iChat" HEX: 094600004c7f11d18222444553540000 }
[[ "Send File" HEX: 094613434c7f11d18222444553540000 ]] { "Send File" HEX: 094613434c7f11d18222444553540000 }
[[ "Unknown2" HEX: 094601ff4c7f11d18222444553540000 ]] { "Unknown2" HEX: 094601ff4c7f11d18222444553540000 }
[[ "Live Video" HEX: 094601014c7f11d18222444553540000 ]] { "Live Video" HEX: 094601014c7f11d18222444553540000 }
[[ "Direct Instant Messaging" HEX: 094613454c7f11d18222444553540000 ]] { "Direct Instant Messaging" HEX: 094613454c7f11d18222444553540000 }
[[ "Unknown3" HEX: 094601034c7f11d18222444553540000 ]] { "Unknown3" HEX: 094601034c7f11d18222444553540000 }
[[ "Buddy Icon" HEX: 094613464c7f11d18222444553540000 ]] { "Buddy Icon" HEX: 094613464c7f11d18222444553540000 }
[[ "Add-Ins" HEX: 094613474c7f11d18222444553540000 ]] { "Add-Ins" HEX: 094613474c7f11d18222444553540000 }
} ; } ;
: capability-values capability-names hash-swap ; : capability-values capability-names hash-swap ;
: capability-abbrevs : capability-abbrevs
H{ H{
[[ CHAR: A "Voice" ]] { CHAR: A "Voice" }
[[ CHAR: C "Send File" ]] { CHAR: C "Send File" }
[[ CHAR: E "AIM Direct IM" ]] { CHAR: E "AIM Direct IM" }
[[ CHAR: F "Buddy Icon" ]] { CHAR: F "Buddy Icon" }
[[ CHAR: G "Add-Ins" ]] { CHAR: G "Add-Ins" }
[[ CHAR: H "Get File" ]] { CHAR: H "Get File" }
[[ CHAR: K "Send Buddy List" ]] { CHAR: K "Send Buddy List" }
} ; } ;
: aim-errors : aim-errors
H{ H{
[[ 1 "Invalid SNAC header." ]] { 1 "Invalid SNAC header." }
[[ 2 "Server rate limit exceeded." ]] { 2 "Server rate limit exceeded." }
[[ 3 "Client rate limit exceeded." ]] { 3 "Client rate limit exceeded." }
[[ 4 "Recipient is not logged in." ]] { 4 "Recipient is not logged in." }
[[ 5 "Requested service unavailable." ]] { 5 "Requested service unavailable." }
[[ 6 "Requested service not defined." ]] { 6 "Requested service not defined." }
[[ 7 "You sent obsolete SNAC." ]] { 7 "You sent obsolete SNAC." }
[[ 8 "Not supported by server." ]] { 8 "Not supported by server." }
[[ 9 "Not supported by client." ]] { 9 "Not supported by client." }
[[ 10 "Refused by client." ]] { 10 "Refused by client." }
[[ 11 "Reply too big." ]] { 11 "Reply too big." }
[[ 12 "Responses lost." ]] { 12 "Responses lost." }
[[ 13 "Request denied." ]] { 13 "Request denied." }
[[ 14 "Incorrect SNAC format." ]] { 14 "Incorrect SNAC format." }
[[ 15 "Insufficient rights." ]] { 15 "Insufficient rights." }
[[ 16 "In local permit/deny. (recipient blocked)" ]] { 16 "In local permit/deny. (recipient blocked)" }
[[ 17 "Sender too evil." ]] { 17 "Sender too evil." }
[[ 18 "Receiver too evil." ]] { 18 "Receiver too evil." }
[[ 19 "User temporarily unavailable." ]] { 19 "User temporarily unavailable." }
[[ 20 "No match." ]] { 20 "No match." }
[[ 22 "List overflow." ]] { 22 "List overflow." }
[[ 23 "Request ambiguous." ]] { 23 "Request ambiguous." }
[[ 24 "Server queue full." ]] { 24 "Server queue full." }
[[ 25 "Not while on AOL." ]] { 25 "Not while on AOL." }
} ; } ;