97 lines
2.9 KiB
Factor
97 lines
2.9 KiB
Factor
! :folding=indent:collapseFolds=1:
|
|
|
|
! $Id$
|
|
!
|
|
! Copyright (C) 2003, 2004 Slava Pestov.
|
|
!
|
|
! Redistribution and use in source and binary forms, with or without
|
|
! modification, are permitted provided that the following conditions are met:
|
|
!
|
|
! 1. Redistributions of source code must retain the above copyright notice,
|
|
! this list of conditions and the following disclaimer.
|
|
!
|
|
! 2. Redistributions in binary form must reproduce the above copyright notice,
|
|
! this list of conditions and the following disclaimer in the documentation
|
|
! and/or other materials provided with the distribution.
|
|
!
|
|
! THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
|
|
! INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
|
|
! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
|
|
! DEVELOPERS AND CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
|
|
! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
|
|
! PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
|
|
! OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
|
|
! WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
|
|
! OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
|
|
! ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
|
|
IN: command-line
|
|
USE: compiler
|
|
USE: errors
|
|
USE: files
|
|
USE: listener
|
|
USE: kernel
|
|
USE: lists
|
|
USE: namespaces
|
|
USE: parser
|
|
USE: prettyprint
|
|
USE: random
|
|
USE: stdio
|
|
USE: streams
|
|
USE: strings
|
|
USE: words
|
|
|
|
! This file is run as the last stage of boot.factor; it relies
|
|
! on all other words already being defined.
|
|
|
|
: ?run-file ( file -- )
|
|
dup exists? [ (run-file) ] [ drop ] ifte ;
|
|
|
|
: run-user-init ( -- )
|
|
#! Run user init file if it exists
|
|
"user-init" get [
|
|
[ "~" get , "/" , ".factor-" , "rc" , ] make-string
|
|
?run-file
|
|
] when ;
|
|
|
|
: cli-var-param ( name value -- )
|
|
swap ":" split set-object-path ;
|
|
|
|
: cli-param ( param -- )
|
|
#! Handle a command-line argument starting with '-' by
|
|
#! setting that variable to t, or if the argument is
|
|
#! prefixed with 'no-', setting the variable to f.
|
|
#!
|
|
#! Arguments containing = are handled differently; they
|
|
#! set the object path.
|
|
"=" split1 dup [
|
|
cli-var-param
|
|
] [
|
|
drop dup "no-" str-head? dup [
|
|
f put drop
|
|
] [
|
|
drop t put
|
|
] ifte
|
|
] ifte ;
|
|
|
|
: cli-arg ( argument -- argument )
|
|
#! Handle a command-line argument. If the argument was
|
|
#! consumed, returns f. Otherwise returns the argument.
|
|
dup f-or-"" [
|
|
dup "-" str-head? dup [
|
|
cli-param drop f
|
|
] [
|
|
drop
|
|
] ifte
|
|
] unless ;
|
|
|
|
: parse-switches ( args -- args )
|
|
[ cli-arg ] map ;
|
|
|
|
: run-files ( args -- )
|
|
[ [ run-file ] when* ] each ;
|
|
|
|
: parse-command-line ( args -- )
|
|
#! Parse command line arguments.
|
|
parse-switches run-files ;
|