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

curl: enable use from command-line.

db4
John Benediktsson 2015-04-09 10:44:03 -07:00
parent 01d244c829
commit 45ebfcf4eb
1 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
extra/curl/curl.factor
View File

@ -1,7 +1,10 @@
! Copyright (C) 2014 John Benediktsson
! See http://factorcode.org/license.txt for BSD license
USING: alien alien.c-types alien.data alien.destructors USING: alien alien.c-types alien.data alien.destructors
alien.syntax curl.ffi destructors io io.encodings.string alien.syntax command-line curl.ffi destructors io
io.encodings.utf8 io.streams.c kernel math namespaces present io.encodings.string io.encodings.utf8 io.streams.c kernel math
sequences ; namespaces present sequences ;
IN: curl IN: curl
@ -38,3 +41,12 @@ PRIVATE>
[ swap curl-set-url ] [ swap curl-set-url ]
[ curl-perform ] tri [ curl-perform ] tri
] with-destructors ; ] with-destructors ;
: curl-main ( -- )
command-line get [
curl-init
[ swap curl-set-url ]
[ curl-perform ] bi
] each ;
MAIN: curl-main