public bool Compile(string[] filenames)
{
bool success = true;
Console.WriteLine("MultiPascal Delphi compiler");
// Load, preprocess and order them
planner.LoadFiles(filenames);
if (planner.GetNumFiles() == 0)
{
return(false);
}
Console.WriteLine(planner.ListFiles());
AstPrinter astPrinter = new AstPrinter();
NameResolver resolver = new NameResolver();
int skip = 0;
foreach (SourceFile sf in planner.GetSourceFiles())
{
if (++skip < 0)
{
continue;
}
Console.Write("####### Compile file " + Path.GetFileName(sf.name) + ": ");
if (sf.preprocText == null) // preprocessing failed
{
success = false;
Console.Error.WriteLine("preprocessing failed");
break;
}
StringReader sr = new StringReader(sf.preprocText);
TranslationUnit ast = null;
try {
ast = parser.Parse(sr, sf);
}
catch (ParserException e)
{
Console.Error.WriteLine(e);
Console.Error.WriteLine("Parsing failed");
success = false;
break;
}
if (ast == null)
{
Console.ReadLine();
continue;
}
Console.ForegroundColor = ConsoleColor.Green;
Console.WriteLine("Parsed OK: " + ast.name + " " + ast.ToString());
Console.ResetColor();
resolver.Reset(sf);
resolver.Process(ast);
Console.WriteLine("Name Resolving OK: " + ast.name + " " + ast.ToString());
DeclarationsEnvironment env = resolver.declEnv;
env.InitEnvironment();
// Console.WriteLine(env.symEnv.ListTreeFromRoot(Int32.Max, false));
PostProcessing.SetParents(ast);
// new ParentProcessor().StartProcessing(ast);
Console.WriteLine("SET parents OK: " + ast.name + " " + ast.ToString());
// astPrinter.Process(ast);
// Console.WriteLine(astPrinter.Output());
ConstantFolder constfolder = new ConstantFolder();
constfolder.Process(ast);
CppCodegen cppGen = new CppCodegen();
Console.WriteLine("Now compiling...");
cppGen.Process(ast);
Console.WriteLine(cppGen.Output());
LlvmILGen llvmGen = new LlvmILGen();
// llvmGen.Process(ast);
}
return(success);
}