1 ! Copyright (C) 2003, 2009 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors alien.strings assocs continuations fry init
4 io.encodings.utf8 io.files io.pathnames kernel kernel.private
5 namespaces parser parser.notes sequences source-files
6 source-files.errors splitting system vocabs.loader ;
9 SYMBOL: user-init-errors
10 SYMBOL: +user-init-error+
12 TUPLE: user-init-error error path line# asset ;
14 : <user-init-error> ( error -- error' )
15 [ ] [ error-file ] [ error-line ] tri
16 f user-init-error boa ; inline
17 M: user-init-error error-file path>> ;
18 M: user-init-error error-line line#>> ;
19 M: user-init-error error-type drop +user-init-error+ ;
24 : (command-line) ( -- args )
25 OBJ-ARGS special-object sift [ alien>native-string ] map ;
27 : delete-user-init-errors ( file -- )
28 user-init-errors get delete-at* nip
29 [ notify-error-observers ] when ;
31 : try-user-init ( file -- )
32 [ delete-user-init-errors ] keep
33 "user-init" get swap '[
36 swap user-init-errors get set-at
37 notify-error-observers
41 : run-bootstrap-init ( -- )
42 "~/.factor-boot-rc" try-user-init ;
44 : run-user-init ( -- )
45 "~/.factor-rc" try-user-init ;
47 : load-vocab-roots ( -- )
49 "~/.factor-roots" dup file-exists? [
50 utf8 file-lines harvest [ add-vocab-root ] each
54 split [ add-vocab-root ] each
58 : var-param ( name value -- ) swap set-global ;
60 : bool-param ( name -- ) "no-" ?head not var-param ;
63 "=" split1 [ var-param ] [ bool-param ] if* ;
65 : run-script ( file -- )
68 [ path>source-file main>> [ execute( -- ) ] when* ] bi
71 : (parse-command-line) ( args -- )
74 [ CHAR: - = ] trim-head
75 [ param ] [ "run=" head? ] bi
77 [ (parse-command-line) ] if
79 script set command-line set
83 : parse-command-line ( args -- )
86 rest (parse-command-line) ;
88 SYMBOL: main-vocab-hook
90 : main-vocab ( -- vocab )
92 "alien.remote-control"
94 main-vocab-hook get [ call( -- vocab ) ] [ "listener" ] if*
97 : default-cli-args ( -- )
105 H{ } user-init-errors set-global
109 { "debugger" "command-line" } "command-line.debugger" require-when