Import parser_old.rhope

Main[args]
{
	fname <- [args]Index[1]
	{
		file <- <String@File[~]
		,text <- [file]Get FString[[file]Length]
		params <- New@Parser[]
		Print[["Parsing "]Append[fname]]
		Null[text, params, New@Parse Program[], 0]
		{
			Print["Parsing imports"]
			Process Imports[~, params]
			{
				tree <- [~]Workers << [ Map[[~]Workers >>, ["Check Worker Literals"]Set Input[1, ~]] ]
				{ Print["Compiling"] }
			}
			compiled <- [Tree to Program Native[tree]]Compile Program[C Program[]]
			{ Print["Compiled program to backend"] }
			outfile <- <String@File[ [fname]Append[".c"] ]
			[outfile]Put String[ [compiled]Text ]
			{ Print[["Wrote output to "]Append[ [fname]Append[".c"] ]] }
		}
	}{
		REPL[New@Parser[]]
	}
}