private CompiledAssembly InternalBuild(string source, Document doc, IBuildLogger logger, params ExtendedOption[] options)
{
logger.WriteBuildInfo("Ela", ElaVersionInfo.Version);
var bo = new BuildOptionsManager(App);
var lopt = bo.CreateLinkerOptions();
var copt = bo.CreateCompilerOptions();
if (options.Set(ForceRecompile.Code))
{
lopt.ForceRecompile = true;
}
if (!options.Set(NoDebug.Code))
{
copt.GenerateDebugInfo = true;
}
if (options.Set(NoWarnings.Code))
{
copt.NoWarnings = true;
}
logger.WriteBuildOptions("Compiler options: {0}", copt);
logger.WriteBuildOptions("Linker options: {0}", lopt);
logger.WriteBuildOptions("Module lookup directories:");
lopt.CodeBase.Directories.ForEach(d => logger.WriteBuildOptions(d));
var lnk = new ElaIncrementalLinker(lopt, copt, doc.FileInfo == null ? new ModuleFileInfo(doc.Title) : doc.FileInfo.ToModuleFileInfo());
lnk.ModuleResolve += (o, e) =>
{
//TBD
};
var res = lnk.Build(source);
var messages = res.Messages.Take(100).ToList();
logger.WriteMessages(messages.Select(m =>
new MessageItem(
m.Type == MessageType.Error ? MessageItemType.Error : (m.Type == MessageType.Warning ? MessageItemType.Warning : MessageItemType.Information),
String.Format("ELA{0}: {1}", m.Code, m.Message),
m.File == null || !new FileInfo(m.File.FullName).Exists ? doc : new VirtualDocument(new FileInfo(m.File.FullName)),
m.Line,
m.Column)
{
Tag = m.Code
})
, m => (Int32)m.Tag < 600); //Exclude linker messages
return(res.Success ? new CompiledAssembly(doc, res.Assembly) : null);
}
internal bool RunCode(string code, bool fastFail = false, bool onlyErrors = false)
{
if (link == null)
{
var bo = new BuildOptionsManager(App);
link = new ElaIncrementalLinker(bo.CreateLinkerOptions(),
bo.CreateCompilerOptions());
}
link.SetSource(code.Trim('\0'));
var lr = link.Build();
if (!lr.Success && fastFail)
{
return(false);
}
foreach (var m in lr.Messages)
{
if (m.Type == Ela.MessageType.Error || !onlyErrors)
{
var tag = m.Type == Ela.MessageType.Error ? "``!!!" :
m.Type == Ela.MessageType.Warning ? "``|||" :
"``???";
Con.PrintLine(String.Format("{0}{1} ({2},{3}): {4} ELA{5}: {6}", tag, m.File.Name, m.Line, m.Column, m.Type, m.Code, m.Message));
}
}
if (lr.Success)
{
var th = new Thread(() => ExecuteInput(lr.Assembly));
Con.SetExecControl(th);
App.GetService <IStatusBarService>().SetStatusString(StatusType.Information, "Executing code in Interactive...");
th.Start();
return(true);
}
else
{
Con.PrintLine();
Con.Print(Con.Prompt + ">");
Con.ScrollToCaret();
return(false);
}
}
private static int InterpretFile(string fileName)
{
var res = default(LinkerResult);
try
{
linker = new ElaIncrementalLinker(CreateLinkerOptions(), CreateCompilerOptions(),
new ModuleFileInfo(fileName));
if (opt.Arguments.Count > 0)
{
CompileArguments(linker);
}
res = linker.Build();
}
catch (ElaException ex)
{
helper.PrintInternalError(ex);
return(R_ERR);
}
helper.PrintErrors(res.Messages);
if (!res.Success)
{
return(R_ERR);
}
else
{
var ret = Execute(res.Assembly, false);
if (ret == R_OK && opt.LunchInteractive)
{
StartInteractiveMode();
}
return(ret);
}
}
private static int InterpretString(string source)
{
if (linker == null)
{
linker = new ElaIncrementalLinker(CreateLinkerOptions(), CreateCompilerOptions());
if (opt.Arguments.Count > 0)
{
CompileArguments(linker);
}
}
linker.SetSource(source);
var res = linker.Build();
helper.PrintErrors(res.Messages);
if (!res.Success)
{
if (res.Assembly != null)
{
var r = res.Assembly.GetRootModule();
if (r != null)
{
lastOffset = r.Ops.Count;
}
}
return(R_ERR);
}
else
{
return(Execute(res.Assembly, true));
}
}
private void WalkLines(IEnumerable <DocLine> lines, StringBuilder toc, StringBuilder sb)
{
int tocId = 0;
WalkLines(lines,
(str, type) =>
{
if (type == LineType.CodeItem)
{
GenerateCodeItem(str, sb);
}
else if (type == LineType.Table)
{
str = HttpUtility.HtmlEncode(str);
var rows = str.Split(new char[] { '\r', '\n' }, StringSplitOptions.RemoveEmptyEntries);
sb.Append("<table class='textTable'>");
foreach (var r in rows)
{
var cells = new List <String>();
var buffer = r.ToCharArray();
var pos = 0;
var l = '\0';
for (var i = 0; i < buffer.Length; i++)
{
var c = buffer[i];
var last = i == buffer.Length - 1;
if ((l == ' ' && c == '|') || last)
{
cells.Add(new String(buffer, pos, i - pos + (last ? 1 : 0)));
pos = i + 1;
}
l = c;
}
sb.Append("<tr>");
foreach (var c in cells)
{
sb.AppendFormat("<td class='textTd'>{0}</td>",
MarkupParser.Parse(c));
}
sb.Append("</tr>");
}
sb.Append("</table>");
}
else if (type == LineType.ElaCode || type == LineType.EvalCode)
{
if (type == LineType.EvalCode)
{
lnk.SetSource(str);
var res = lnk.Build();
if (res.Success)
{
if (vm == null)
{
vm = new ElaMachine(res.Assembly);
}
else
{
vm.RefreshState();
}
try
{
var rv = vm.Resume();
if (!rv.ReturnValue.Is <ElaUnit>())
{
var val = vm.PrintValue(rv.ReturnValue);
if (val.Contains('\r') || val.Length > 30)
{
str += "\r\n/*\r\nThe result is:\r\n" + val + "\r\n*/";
}
else
{
str += " //The result is: " + val;
}
}
}
catch (ElaCodeException ex)
{
Error(ex.Message);
}
}
else
{
res.Messages.ToList().ForEach(m => Console.Write("\r\n" + m.ToString()));
}
}
sb.AppendFormat(ELACODE, Lex(str));
}
else if (type == LineType.Code)
{
str = HttpUtility.HtmlEncode(str);
sb.AppendFormat(CODE, str);
}
else if (type == LineType.Header1)
{
str = HttpUtility.HtmlEncode(str);
var id = (tocId++).ToString();
sb.AppendFormat("<a name=\"{0}\"></a>", id);
sb.AppendFormat(H1, str);
toc.Append("<b>");
toc.AppendFormat(A, id, str);
toc.Append("</b><br/>");
}
else if (type == LineType.Header2)
{
str = HttpUtility.HtmlEncode(str);
var id = (tocId++).ToString();
sb.AppendFormat("<a name=\"{0}\"></a>", id);
sb.AppendFormat(H2, str);
toc.Append(" ");
toc.AppendFormat(A, id, str);
toc.Append("<br/>");
}
else if (type == LineType.Header3)
{
str = HttpUtility.HtmlEncode(str);
sb.AppendFormat(H3, str);
}
else if (type == LineType.List)
{
str = HttpUtility.HtmlEncode(str);
sb.Append("<ul>");
var split = str.Split(new char[] { '\r', '\n' }, StringSplitOptions.RemoveEmptyEntries);
split.ToList().ForEach(s => sb.AppendFormat(LI, MarkupParser.Parse(s)));
sb.Append("</ul>");
}
else
{
str = HttpUtility.HtmlEncode(str);
sb.AppendFormat(TEXT, MarkupParser.Parse(str));
}
});
}
static int Run(string file, string outputFile)
{
Console.Write("\r\nGenerating documentation file: {0}...", outputFile);
var fi = new FileInfo(file);
var doc = default(Doc);
using (var sr = new StreamReader(file))
{
var lst = new List <String>();
var line = String.Empty;
while ((line = sr.ReadLine()) != null)
{
lst.Add(line);
}
var p = new DocParser();
doc = p.Parse(lst.ToArray());
}
var gen = default(HtmGenerator);
var lopt = new LinkerOptions();
var copt = new CompilerOptions {
Prelude = "prelude"
};
ConfigurationManager.AppSettings["refs"].Split(new char[] { ';' }, StringSplitOptions.RemoveEmptyEntries)
.ToList().ForEach(s => lopt.CodeBase.Directories.Add(s));
if (!String.IsNullOrEmpty(doc.File) && doc.File.Trim(' ').Length != 0)
{
var elaFile = new FileInfo(Path.Combine(fi.DirectoryName, doc.File));
if (!elaFile.Exists)
{
foreach (var d in lopt.CodeBase.Directories)
{
elaFile = new FileInfo(Path.Combine(d, doc.File));
if (elaFile.Exists)
{
break;
}
}
}
var elap = new ElaParser();
var res = elap.Parse(elaFile);
if (!res.Success)
{
res.Messages.ToList().ForEach(m => Console.WriteLine("\r\n" + m));
return(-1);
}
lopt.CodeBase.Directories.Add(elaFile.Directory.FullName);
var lnk = new ElaIncrementalLinker(lopt, copt, new ModuleFileInfo(elaFile.FullName));
var lres = lnk.Build();
if (!lres.Success)
{
lres.Messages.ToList().ForEach(m => Console.Write("\r\n" + m));
return(-1);
}
var vm = new ElaMachine(lres.Assembly);
vm.Run();
gen = new HtmGenerator(res.Program, doc, lnk, vm);
}
else
{
var lnk = new ElaIncrementalLinker(lopt, copt);
gen = new HtmGenerator(null, doc, lnk, null);
}
var src = gen.Generate();
var outFi = new FileInfo(outputFile);
if (!outFi.Directory.Exists)
{
outFi.Directory.Create();
}
using (var fs = new StreamWriter(File.Create(outputFile)))
fs.Write(src);
Console.Write(" Done");
return(0);
}
private static int InterpretFile(string fileName)
{
var res = default(LinkerResult);
try
{
linker = new ElaIncrementalLinker(CreateLinkerOptions(), CreateCompilerOptions(),
new FileInfo(fileName));
if (opt.Arguments.Count > 0)
CompileArguments(linker);
res = linker.Build();
}
catch (ElaException ex)
{
helper.PrintInternalError(ex);
return R_ERR;
}
helper.PrintErrors(res.Messages);
if (!res.Success)
return R_ERR;
else
{
var ret = Execute(res.Assembly, false);
if (ret == R_OK && opt.LunchInteractive)
StartInteractiveMode();
return ret;
}
}
