/// <summary>
/// Turns Iro precompile data into a compiled Rouge target.
/// </summary>
public CompileResult Compile(IroPrecompileData data)
{
var text = new RubyStringMaker();
//Add the coding header and modules.
text.AppendLine("# -*- coding: utf-8 -*- #");
text.AppendLine();
text.AppendLine("module Rouge");
text.TabIn();
text.AppendLine("module Lexers");
text.TabIn();
text.AppendLine("class " + data.Name[0].ToString().ToUpper() + data.Name.Substring(1) + " < RegexLexer");
text.TabIn();
//Add basic metadata.
text.AppendLine("title \"" + data.Name[0].ToString().ToUpper() + data.Name.Substring(1) + "\"");
text.AppendLine("tag '" + data.Name[0].ToString().ToUpper() + data.Name.Substring(1) + "'");
text.AppendLine("mimetypes 'text/x-" + data.Name[0].ToString().ToUpper() + data.Name.Substring(1) + "'");
string fileTypes = "";
foreach (var ext in data.FileExtensions)
{
fileTypes += "'*." + ext + "', ";
}
fileTypes = fileTypes.TrimEnd(',', ' ');
text.AppendLine("filenames " + fileTypes);
text.AppendLine();
//Check the main context exists.
var mainCtx = data.Contexts.FirstOrDefault(x => x.Name == "main");
if (mainCtx == null)
{
Error.Compile("No context exists named 'main' to use as the root context. Add a 'main' context.");
return(null);
}
AddContext(mainCtx, "root", data, ref text);
//Add all the queued helpers.
while (queuedContexts.Count != 0)
{
var item = queuedContexts.ElementAt(0);
AddILPContext(item.Key.Item1, item.Key.Item2, item.Value, data, ref text);
queuedContexts.Remove(item.Key);
}
//Close all the modules.
text.TabOut();
text.AppendLine("end");
text.TabOut();
text.AppendLine("end");
text.TabOut();
text.AppendLine("end");
return(new CompileResult()
{
GeneratedFile = text.ToString(),
Target = Target.Rouge
});
}
//Adds a single context to the text.
private void AddContext(IroContext ctx, string name, IroPrecompileData data, ref RubyStringMaker text)
{
//Reset includes, create new state.
includedThisRun = new List <string>();
text.AppendLine("state:" + name);
text.TabIn();
//Loop over rules, add them.
foreach (var member in ctx.Members)
{
AddContextMember(member, ctx.Name, data, ref text);
}
text.TabOut();
text.AppendLine("end");
}
//Adds an inline push context member.
private void AddILPContext(string ctxName, string name, InlinePushContextMember mem, IroPrecompileData data, ref RubyStringMaker text)
{
//Create the rule, reset includes.
includedThisRun = new List <string>();
text.AppendLine("state:" + name);
text.TabIn();
//Add the pop rule.
string popRule = "rule /" + mem.PopData + "/";
var styles = GetPatternStyles(mem.PopStyles, data);
if (styles.Count > 1)
{
//Append.
popRule += " do";
text.AppendLine(popRule);
text.TabIn();
//Newline with groups.
popRule = "groups ";
foreach (var scope in styles)
{
popRule += scope.PygmentsScope.Replace(".", "::") + ", ";
}
popRule = popRule.TrimEnd(' ', ',');
text.AppendLine(popRule);
text.AppendLine("push :pop!");
text.TabOut();
text.AppendLine("end");
}
else if (styles.Count == 1)
{
//Single style.
popRule += ", " + styles[0].PygmentsScope.Replace(".", "::") + ", :pop!";
text.AppendLine(popRule);
}
else
{
Error.Compile("No pop styles included for pop rule '" + mem.PopData + "'.");
return;
}
//Loop over rules, add them.
foreach (var member in mem.Patterns)
{
AddContextMember(member, ctxName, data, ref text);
}
text.TabOut();
text.AppendLine("end");
}
private void AddContextMember(ContextMember member, string ctxName, IroPrecompileData data, ref RubyStringMaker text)
{
//What type is it?
switch (member.Type)
{
case ContextMemberType.Pattern:
//Normal pattern.
var pattern = (PatternContextMember)member;
string rule = "rule /";
rule += pattern.Data + "/";
//Get styles for pattern. Do they match up?
var styles = GetPatternStyles(pattern.Styles, data);
if (styles.Count > 1)
{
//Grouped.
rule += " do";
text.AppendLine(rule);
text.TabIn();
rule = "groups ";
foreach (var style in styles)
{
rule += style.PygmentsScope.Replace(".", "::") + ", ";
}
rule = rule.TrimEnd(' ', ',');
text.AppendLine(rule);
text.TabOut();
text.AppendLine("end");
}
else if (styles.Count != 0)
{
//Ungrouped.
rule += ", " + styles[0].PygmentsScope.Replace(".", "::");
text.AppendLine(rule);
}
else
{
Error.Compile("No styles given for rule '" + pattern.Data + "'.");
return;
}
break;
case ContextMemberType.InlinePush:
//Inline push pattern.
var ilp = (InlinePushContextMember)member;
string ruleIlp = "rule /" + ilp.Data + "/";
//Get styles for pattern. Do they match up?
var pushStyles = GetPatternStyles(ilp.Styles, data);
string helperName = "helper_" + ShortId.Generate(7);
//Is the helper already made?
var madeHelper = queuedContexts.FirstOrDefault(x => x.Key.Item1 == ctxName && x.Value.Data == ilp.Data);
if (madeHelper.Key != null)
{
//Already made a helper, set the name.
helperName = madeHelper.Key.Item2;
}
if (pushStyles.Count > 1)
{
//Grouped.
ruleIlp += " do";
text.AppendLine(ruleIlp);
text.TabIn();
ruleIlp = "groups ";
foreach (var style in pushStyles)
{
ruleIlp += style.PygmentsScope.Replace(".", "::") + ", ";
}
ruleIlp = ruleIlp.TrimEnd(' ', ',');
text.AppendLine(ruleIlp);
//Add the push.
ruleIlp = "push :" + helperName;
//Tab out, end.
text.TabOut();
text.AppendLine("end");
}
else if (pushStyles.Count != 0)
{
//Ungrouped.
ruleIlp += ", " + pushStyles[0].PygmentsScope.Replace(".", "::") + ", :" + helperName;
text.AppendLine(ruleIlp);
}
else
{
Error.Compile("No styles given for rule '" + ilp.Data + "'.");
return;
}
//Queue the push scope if not already pushed.
if (madeHelper.Key == null)
{
QueueILPScope(ctxName, helperName, ilp);
}
break;
case ContextMemberType.Include:
//Get the context to include.
var ctx = data.Contexts.FirstOrDefault(x => x.Name == member.Data);
if (ctx == null)
{
Error.Compile("Context mentioned to include '" + member.Data + "' does not exist.");
return;
}
//Skip?
if (includedThisRun.Contains(member.Data))
{
return;
}
//Include all members recursively with update list.
includedThisRun.Add(member.Data);
foreach (var mem in ctx.Members)
{
AddContextMember(mem, ctxName, data, ref text);
}
break;
}
}
