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

Maintain a buddy list

cvs
Doug Coleman 2005-10-07 22:45:47 +00:00
parent 1765f6e943
commit e4e2d1b0c6
1 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
contrib/aim/aim.factor
View File

@ -14,6 +14,7 @@ SYMBOL: family
SYMBOL: opcode SYMBOL: opcode
SYMBOL: name SYMBOL: name
SYMBOL: message SYMBOL: message
SYMBOL: buddy-list
: aim-login-server "login.oscar.aol.com" ; inline : aim-login-server "login.oscar.aol.com" ; inline
: icq-login-server "login.icq.com" ; inline : icq-login-server "login.icq.com" ; inline
@ -33,6 +34,7 @@ SYMBOL: message
: initialize-aim ( username password -- ) : initialize-aim ( username password -- )
password set username set password set username set
{{ }} clone buddy-list set
0 65534 random-int seq-num set 0 65534 random-int seq-num set
1 stage-num set ; 1 stage-num set ;
@ -87,6 +89,20 @@ SYMBOL: message
"Unhandled family: " write family get >hex "h" append writeln "Unhandled family: " write family get >hex "h" append writeln
unhandled-opcode ; unhandled-opcode ;
! Events
: buddy-signon ( name -- )
0 swap buddy-list get set-hash ;
: buddy-signoff ( name -- )
buddy-list get remove-hash ;
: print-buddy-list
buddy-list get hash-keys string-sort [ print ] each ;
: family-table ( -- hash ) : family-table ( -- hash )
{{ }} ; {{ }} ;
@ -117,7 +133,7 @@ SYMBOL: message
{ {
{ [ dup 1 = ] [ drop name get write head-short HEX: 20 bitand 1 > [ " is away." ] [ " is online." ] if writeln ] } { [ dup 1 = ] [ drop name get write head-short HEX: 20 bitand 1 > [ " is away." ] [ " is online." ] if writeln ] }
{ [ dup 2 = ] [ drop "2: " write head-short unparse writeln ] } { [ dup 2 = ] [ drop "2: " write head-short unparse writeln ] }
{ [ dup 3 = ] [ drop name get write " went online at " write head-int unparse writeln ] } { [ dup 3 = ] [ drop name get write " went online at " write head-int unparse writeln name get buddy-signon ] }
{ [ dup 4 = ] [ drop name get write " has been idle for " write head-short unparse write " minutes." writeln ] } { [ dup 4 = ] [ drop name get write " has been idle for " write head-short unparse write " minutes." writeln ] }
! { [ dup 5 = ] [ drop ] } ! { [ dup 5 = ] [ drop ] }
! { [ dup 6 = ] [ drop name get write ": (6): " write head-short head-short unparse writeln ] } ! { [ dup 6 = ] [ drop name get write ": (6): " write head-short head-short unparse writeln ] }
@ -142,7 +158,7 @@ SYMBOL: message
head-short head-short
head-short head-string <string-reader> [ head-short head-string <string-reader> [
{ {
{ [ dup 1 = ] [ drop name get write " signed off." writeln ] } { [ dup 1 = ] [ drop name get write " signed off." writeln name get buddy-signoff ] }
{ [ dup HEX: 1d = ] [ drop ] } { [ dup HEX: 1d = ] [ drop ] }
{ [ t ] [ "Unhandled tlv 3h-ch: " write unparse writeln ] } { [ t ] [ "Unhandled tlv 3h-ch: " write unparse writeln ] }
} cond } cond