private static bool OutputErrors(out string msg)
{
msg = "";
foreach (var s in errors)
{
msg += s + Environment.NewLine;
}
ts = null;
r = null;
return false;
}
public static bool Compile(Record r2, out string msg)
{
msg = null;
r = new Record();
string script = null;
var scptype = 0;
foreach (var sr2 in r2.SubRecords)
{
if (sr2.Name == "SCTX")
{
script = sr2.GetStrData();
}
if (sr2.Name == "SCHR")
{
var tmp = sr2.GetReadonlyData();
scptype = TypeConverter.h2si(tmp[16], tmp[17], tmp[18], tmp[19]);
}
}
if (script == null)
{
msg = "Script had no SCTX record to compile";
return false;
}
locals.Clear();
localList.Clear();
edidRefs.Clear();
refcount = 0;
errors.Clear();
ts = new TokenStream(script, errors);
if (errors.Count > 0)
{
return OutputErrors(out msg);
}
var smt = ts.PopNextStatement();
if (smt.Length != 2 || !smt[0].IsKeyword(Keywords.ScriptName) || smt[1].token == null)
{
return ReturnError("Expected 'ScriptName <edid>'", out msg);
}
var sr = new SubRecord();
sr.Name = "EDID";
sr.SetStrData(smt[1].utoken, true);
r.AddRecord(sr);
r.descriptiveName = " (" + smt[1].token + ")";
schr = new SubRecord();
schr.Name = "SCHR";
r.AddRecord(schr);
scda = new SubRecord();
scda.Name = "SCDA";
r.AddRecord(scda);
sr = new SubRecord();
sr.Name = "SCTX";
sr.SetStrData(script, false);
r.AddRecord(sr);
bw = new BinaryWriter(new MemoryStream());
Emit(0x001d);
Emit(0x0000);
try
{
HandleVariables();
}
catch (Exception ex)
{
return ReturnError(ex.Message, out msg);
}
for (var i = 0; i < localList.Count; i++)
{
if (localList[i].type == VarType.Ref)
{
sr = new SubRecord();
sr.Name = "SCRV";
sr.SetData(TypeConverter.si2h(i + 1));
r.AddRecord(sr);
refcount++;
localList[i].refid = refcount;
}
}
while (ts.PeekNextStatement().Length > 0)
{
try
{
HandleBlock();
}
catch (Exception ex)
{
return ReturnError(ex.Message, out msg);
}
}
if (errors.Count > 0)
{
return OutputErrors(out msg);
}
var header = new byte[20];
TypeConverter.si2h(refcount, header, 4);
TypeConverter.i2h((uint) bw.BaseStream.Length, header, 8);
TypeConverter.si2h(localList.Count, header, 12);
TypeConverter.si2h(scptype, header, 16);
schr.SetData(header);
var compileddata = ((MemoryStream) bw.BaseStream).GetBuffer();
if (compileddata.Length != bw.BaseStream.Length)
{
Array.Resize(ref compileddata, (int) bw.BaseStream.Length);
}
scda.SetData(compileddata);
r2.SubRecords.Clear();
r2.SubRecords.AddRange(r.SubRecords);
bw.Close();
return true;
}
private static bool ReturnError(string msg, out string error)
{
error = ts.Line + ": " + msg;
ts = null;
r = null;
return false;
}
public static bool CompileResultScript(SubRecord sr, out Record r2, out string msg)
{
msg = null;
r2 = null;
r = new Record();
var script = sr.GetStrData();
locals.Clear();
localList.Clear();
edidRefs.Clear();
refcount = 0;
errors.Clear();
ts = new TokenStream(script, errors);
if (errors.Count > 0)
{
return OutputErrors(out msg);
}
schr = new SubRecord();
schr.Name = "SCHR";
r.AddRecord(schr);
scda = new SubRecord();
scda.Name = "SCDA";
r.AddRecord(scda);
sr = (SubRecord) sr.Clone();
r.AddRecord(sr);
bw = new BinaryWriter(new MemoryStream());
while (ts.PeekNextStatement().Length > 0)
{
try
{
HandleResultsBlock();
}
catch (Exception ex)
{
return ReturnError(ex.Message, out msg);
}
}
if (errors.Count > 0)
{
return OutputErrors(out msg);
}
var header = new byte[20];
TypeConverter.si2h(refcount, header, 4);
TypeConverter.i2h((uint) bw.BaseStream.Length, header, 8);
TypeConverter.si2h(localList.Count, header, 12);
TypeConverter.si2h(0x10000, header, 16);
schr.SetData(header);
var compileddata = ((MemoryStream) bw.BaseStream).GetBuffer();
if (compileddata.Length != bw.BaseStream.Length)
{
Array.Resize(ref compileddata, (int) bw.BaseStream.Length);
}
scda.SetData(compileddata);
bw.Close();
r2 = r;
return true;
}
