outputFolder = ...

getFiles = (locale) ->
	locale = if locale == "en" then "" else "#{locale}/"
	[
		"doc/docs/#{locale}doc/index.md"
		"doc/docs/#{locale}doc/advanced/do.md"
		"doc/docs/#{locale}doc/advanced/line-decorators.md"
		"doc/docs/#{locale}doc/advanced/macro.md"
		"doc/docs/#{locale}doc/advanced/module.md"
		"doc/docs/#{locale}doc/advanced/try.md"
		"doc/docs/#{locale}doc/data-structures/table-literals.md"
		"doc/docs/#{locale}doc/data-structures/comprehensions.md"
		"doc/docs/#{locale}doc/objects/object-oriented-programming.md"
		"doc/docs/#{locale}doc/objects/with-statement.md"
		"doc/docs/#{locale}doc/assignment/assignment.md"
		"doc/docs/#{locale}doc/assignment/varargs-assignment.md"
		"doc/docs/#{locale}doc/assignment/if-assignment.md"
		"doc/docs/#{locale}doc/assignment/destructuring-assignment.md"
		"doc/docs/#{locale}doc/assignment/the-using-clause-controlling-destructive-assignment.md"
		"doc/docs/#{locale}doc/getting-started/usage.md"
		"doc/docs/#{locale}doc/getting-started/introduction.md"
		"doc/docs/#{locale}doc/getting-started/installation.md"
		"doc/docs/#{locale}doc/control-flow/conditionals.md"
		"doc/docs/#{locale}doc/control-flow/for-loop.md"
		"doc/docs/#{locale}doc/control-flow/continue.md"
		"doc/docs/#{locale}doc/control-flow/switch.md"
		"doc/docs/#{locale}doc/control-flow/while-loop.md"
		"doc/docs/#{locale}doc/functions/function-stubs.md"
		"doc/docs/#{locale}doc/functions/backcalls.md"
		"doc/docs/#{locale}doc/functions/function-literals.md"
		"doc/docs/#{locale}doc/language-basics/whitespace.md"
		"doc/docs/#{locale}doc/language-basics/comment.md"
		"doc/docs/#{locale}doc/language-basics/attributes.md"
		"doc/docs/#{locale}doc/language-basics/operator.md"
		"doc/docs/#{locale}doc/language-basics/literals.md"
		"doc/docs/#{locale}doc/reference/license-mit.md"
		"doc/docs/#{locale}doc/reference/the-yuescript-library.md"
	]
docs = [ ["codes_from_doc_#{locale}.lua", getFiles locale] for locale in *["en", "zh", "pt-br", "de", "id-id"]]
for [compiledFile, docFiles] in *docs
	codes = []
	for docFile in *docFiles
		close input = with? io.open docFile
			import "yue" as :to_lua
			text = \read "*a"
			for code in text\gmatch "```yuescript[\r\n]+(.-)```[^%w]"
				if result, err := to_lua code, implicit_return_root: false, reserve_line_number: false
					codes[] = result
				elseif not err\match "macro exporting module only accepts macro definition"
					print err
					os.exit 1
			for code in text\gmatch "```yue[\r\n]+(.-)```[^%w]"
				if result, err := to_lua code, implicit_return_root: false, reserve_line_number: false
					codes[] = result
				else
					print err
					os.exit 1
	close output = with io.open "#{outputFolder}/#{compiledFile}", "w+"
		\write table.concat codes