From 45ebfcf4eb106b6896f90e745546ebaba3e061b7 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Thu, 9 Apr 2015 10:44:03 -0700 Subject: [PATCH] curl: enable use from command-line. --- extra/curl/curl.factor | 18 +++++++++++++++--- 1 file changed, 15 insertions(+), 3 deletions(-) diff --git a/extra/curl/curl.factor b/extra/curl/curl.factor index fcd7f2d068..bc041756ac 100644 --- a/extra/curl/curl.factor +++ b/extra/curl/curl.factor @@ -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 -alien.syntax curl.ffi destructors io io.encodings.string -io.encodings.utf8 io.streams.c kernel math namespaces present -sequences ; +alien.syntax command-line curl.ffi destructors io +io.encodings.string io.encodings.utf8 io.streams.c kernel math +namespaces present sequences ; IN: curl @@ -38,3 +41,12 @@ PRIVATE> [ swap curl-set-url ] [ curl-perform ] tri ] with-destructors ; + +: curl-main ( -- ) + command-line get [ + curl-init + [ swap curl-set-url ] + [ curl-perform ] bi + ] each ; + +MAIN: curl-main