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

imap: privatizing the non-api words

db4
Björn Lindqvist 2014-01-16 22:14:27 +01:00
parent d20dc5e649
commit 92d71a4a3b
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/imap/imap.factor
View File

@ -32,6 +32,8 @@ CONSTANT: IMAP4_SSL_PORT 993
read-hms " " expect readln parse-rfc822-gmt-offset <timestamp> read-hms " " expect readln parse-rfc822-gmt-offset <timestamp>
] with-string-reader ; ] with-string-reader ;
<PRIVATE
: >utf7imap4 ( str -- str' ) : >utf7imap4 ( str -- str' )
utf7imap4 encode >string ; utf7imap4 encode >string ;
@ -100,6 +102,8 @@ CONSTANT: IMAP4_SSL_PORT 993
first 1 tail values first2 [ " " split ] dip string>number swap 2array first 1 tail values first2 [ " " split ] dip string>number swap 2array
] map ; ] map ;
PRIVATE>
! Constructor ! Constructor
: <imap4ssl> ( host -- imap4 ) : <imap4ssl> ( host -- imap4 )
IMAP4_SSL_PORT <inet> <secure> binary <client> drop IMAP4_SSL_PORT <inet> <secure> binary <client> drop