22 lines
546 B
Factor
22 lines
546 B
Factor
|
! Copyright (C) 2008 Doug Coleman.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
USING: accessors arrays assocs combinators io io.files kernel
|
||
|
math.parser sequences strings ;
|
||
|
|
IN: ftp
|
||
|
|
|
||
|
|
SINGLETON: active
|
||
|
|
SINGLETON: passive
|
||
|
|
|
||
|
|
TUPLE: ftp-response n strings parsed ;
|
||
|
|
|
||
|
|
: <ftp-response> ( -- ftp-response )
|
||
|
|
ftp-response new
|
||
|
|
V{ } clone >>strings ;
|
||
|
|
|
||
|
|
: add-response-line ( ftp-response string -- ftp-response )
|
||
|
|
over strings>> push ;
|
||
|
|
|
||
|
|
: ftp-send ( string -- ) write "\r\n" write flush ;
|
||
|
|
: ftp-ipv4 1 ; inline
|
||
|
|
: ftp-ipv6 2 ; inline
|