18 lines
391 B
Factor
18 lines
391 B
Factor
|
! Copyright (C) 2011 John Benediktsson
|
||
|
|
! See http://factorcode.org/license.txt for BSD license
|
||
|
|
|
||
|
|
USING: command-line io kernel namespaces sequences ;
|
||
|
|
|
||
|
|
IN: tools.echo
|
||
|
|
|
||
|
|
: -n? ( args -- ? args' )
|
||
|
|
[ first "-n" = ] keep over [ rest ] when ;
|
||
|
|
|
||
|
|
: echo-args ( args -- )
|
||
|
|
-n? " " join write [ nl ] unless ;
|
||
|
|
|
||
|
|
: run-echo ( -- )
|
||
|
|
command-line get [ nl ] [ echo-args ] if-empty ;
|
||
|
|
|
||
|
|
MAIN: run-echo
|