REBOL [
	Title:   "Red/System compiler wrapper"
	Author:  "Nenad Rakocevic, Andreas Bolka"
	File: 	 %rsc.r
	Rights:  "Copyright (C) 2011 Nenad Rakocevic, Andreas Bolka. All rights reserved."
	License: "BSD-3 - https://github.com/dockimbel/Red/blob/master/BSD-3-License.txt"
	Usage:   {
		do/args %rsc.r "[-v <integer!>] path/source.reds"
	}
]

unless value? 'system-dialect [
	do %compiler.r
]

rsc: context [
	fail: func [value] [
		print value
		if system/options/args [quit/return 1]
		halt
	]

	fail-try: func [component body /local err] [
		if error? set/any 'err try body [
			err: disarm err
			foreach w [arg1 arg2 arg3][
				set w either unset? get/any in err w [none][
					get/any in err w
				]
			]
			fail [
				"***" component "Internal Error:"
				system/error/(err/type)/type #":"
				reduce system/error/(err/type)/(err/id) newline
				"*** Where:" mold/flat err/where newline
				"*** Near: " mold/flat err/near newline
			]
		]
	]

	load-filename: func [filename /local result] [
		unless any [
			all [
				#"%" = first filename
				attempt [result: load filename]
				file? result
			]
			attempt [result: to-rebol-file filename]
		] [
			fail ["Invalid filename:" filename]
		]
		result
	]

	load-targets: func [/local targets] [
		targets: load %config.r
		if exists? %custom-targets.r [
			insert targets load %custom-targets.r
		]
		targets
	]

	parse-options: has [
		args srcs opts output target verbose filename config config-name
	] [
		args: any [system/options/args parse any [system/script/args ""] none]

		;; Select a default target based on the REBOL version.
		target: any [
			select [
				2 "Darwin"
				3 "MSDOS"
				4 "Linux"
			] system/version/4
			"MSDOS"
		]

		srcs: copy []
		opts: make system-dialect/options-class [link?: yes]

		parse args [
			any [
				  ["-r" | "--no-runtime"]   (opts/runtime?: no)
				| ["-g" | "--debug-stabs"]  (opts/debug?: yes)
				| ["-l" | "--literal-pool"] (opts/literal-pool?: yes)
				| ["-o" | "--output"]  		set output skip
				| ["-t" | "--target"]  		set target skip
				| ["-v" | "--verbose"] 		set verbose skip
				| set filename skip (append srcs load-filename filename)
			]
		]

		;; Process -t/--target first, so that all other command-line options
		;; can potentially override the target config settings.
		unless config: select load-targets config-name: to word! trim target [
			fail ["Unknown target:" target]
		]
		opts: make opts config
		opts/config-name: config-name

		;; Process -o/--output (if any).
		if output [
			opts/build-prefix: %""
			opts/build-basename: load-filename output
		]

		;; Process -v/--verbose (if any).
		if verbose [
			unless attempt [opts/verbosity: to integer! trim verbose] [
				fail ["Invalid verbosity:" verbose]
			]
		]

		;; Process input sources.
		if empty? srcs [fail "No source files specified."]
		foreach src srcs [
			unless exists? src [
				fail ["Cannot access source file:" src]
			]
		]

		reduce [srcs opts]
	]

	main: has [srcs opts build-dir result] [
		set [srcs opts] parse-options

		;; If we use a build directory, ensure it exists.
		if all [opts/build-prefix find opts/build-prefix %/] [
			build-dir: copy/part opts/build-prefix find/last opts/build-prefix %/
			unless attempt [make-dir/deep build-dir] [
				fail ["Cannot access build dir:" build-dir]
			]
		]

		print [
			newline
			"-= Red/System Compiler =-" newline
			"Compiling" srcs "..."
		]

		fail-try "Compiler" [
			result: system-dialect/compile/options srcs opts
		]

		print ["^/...compilation time:" tab round result/1/second * 1000 "ms"]
		if result/2 [
			print [
				"...linking time:" tab tab round result/2/second * 1000 "ms^/"
				"...output file size:" tab result/3 "bytes"
			]
		]
	]

	fail-try "Driver" [main]
]