public YukaScript Disassemble()
{
Stream.Seek(0);
var r = Stream.NewReader();
var header = ReadHeader(r);
// read instructions
var code = new uint[header.InstrCount];
Stream.Seek(header.InstrOffset);
for (int i = 0; i < header.InstrCount; i++)
{
code[i] = r.ReadUInt32();
}
// prepare data buffer
var dataBuffer = new byte[header.DataLength];
Stream.Seek(header.DataOffset).Read(dataBuffer, 0, (int)header.DataLength);
// read index
var index = new DataElement[header.IndexCount];
Stream.Seek(header.IndexOffset);
using (var dataSector = new DataSectorReader(dataBuffer, header.Encryption == 1)) {
for (int i = 0; i < header.IndexCount; i++)
{
var type = (DataElementType)r.ReadUInt32();
uint field1 = r.ReadUInt32();
uint field2 = r.ReadUInt32();
uint field3 = r.ReadUInt32();
index[i] = DataElement.Create(type, field1, field2, field3, dataSector);
}
//foreach(var e in index) Console.WriteLine(e);
// needed to assign a unique id to each label
int currentLabelId = 0;
// disassemble instructions
var instructions = new InstructionList(header.MaxLocals);
for (uint i = 0; i < code.Length; i++)
{
var dataElement = index[code[i]];
switch (dataElement)
{
case DataElement.Func func:
uint argCount = code[++i];
var arguments = new DataElement[argCount];
for (int j = 0; j < argCount; j++)
{
var argument = index[code[++i]];
if (argument is DataElement.Ctrl ctrl)
{
int argLink = dataSector.GetInteger(ctrl.LinkOffset).IntValue;
if (argLink != -1 && argLink < code.Length)
{
ctrl.LinkedElement = index[code[argLink]] as DataElement.Ctrl;
}
else
{
if (argLink == Format.Yks.OperatorLink)
{
Debug.Assert(Format.Yks.Operators.Contains(ctrl.Name.StringValue));
}
//Console.WriteLine("Unlinked control element: " + ctrl);
}
}
arguments[j] = argument;
}
instructions.Add(new CallInstruction(func, arguments, instructions));
break;
case DataElement.Ctrl ctrl:
// assign a unique id to this label
ctrl.Id = currentLabelId++;
// link the label
int link = dataSector.GetInteger(ctrl.LinkOffset).IntValue;
if (link != -1)
{
ctrl.LinkedElement = index[code[link]] as DataElement.Ctrl;
}
//else Console.WriteLine("Unlinked control element: " + ctrl);
instructions.Add(new LabelInstruction(ctrl, instructions));
break;
case DataElement.SStr _:
case DataElement.VInt _:
case DataElement.VLoc _:
case DataElement.VStr _:
instructions.Add(new TargetInstruction(dataElement, instructions));
break;
case DataElement.CInt cint:
cint.Value.PointerId = _flagPointerId++;
// Console.WriteLine("WARNING: Constant element gets assigned! Unexpected behavior may occur.");
instructions.Add(new TargetInstruction(dataElement, instructions));
break;
case DataElement.CStr cstr:
throw new InvalidOperationException($"Assignment to string constants is not supported by the disassembler: '{cstr.Value.StringValue}'");
default:
throw new FormatException("Invalid instruction type: " + dataElement.Type);
}
}
return(new YukaScript(FileName, instructions));
}
}