Paste: copy

Author: mrjbq7
Mode: factor
Date: Wed, 27 Jul 2011 19:18:09
Plain Text | 
! Copyright (C) 2011 John Benediktsson
! See http://factorcode.org/license.txt for BSD license

USING: combinators command-line io io.directories io.files.info
kernel math namespaces sequences ;

IN: unix-tools.copy

: usage ( -- )
    "Usage: copy source ... target" print ;

: copy-to-dir ( args -- )
    dup last file-info directory?
    [ unclip-last copy-files-into ] [ drop usage ] if ;

: copy-to-file ( args -- )
    dup last file-info directory?
    [ copy-to-dir ] [ first2 copy-file ] if ;

: run-copy ( -- )
    command-line get dup length {
        { [ dup 2 > ] [ drop copy-to-dir  ] }
        { [ dup 2 = ] [ drop copy-to-file ] }
        [ 2drop usage ]
    } cond ;

MAIN: run-copy

New Annotation

Summary:
Author:
Mode:
Body: