static void GenerateStructExprData(StructExpression sexpr, TextWriter writer)
{
foreach (var val in sexpr.Values)
{
if (val.Value is StructExpression)
{
GenerateStructExprData((StructExpression)val.Value, writer);
}
else if (val.Value is IntegerConstant)
{
var constant = val.Value as IntegerConstant;
writer.WriteLine(" DC." + (val.Type.Width == 1 ? "B" : (val.Type.Width == 2 ? "W" : "L")) +
" " + constant.Constant);
}
else if (val.Value == null)
{
writer.WriteLine(" DC." + (val.Type.Width == 1 ? "B" : (val.Type.Width == 2 ? "W" : "L")) +
" 0");
}
else
{
writer.Write(" DC." + (val.Type.Width == 1 ? "B" : (val.Type.Width == 2 ? "W" : "L")));
writer.WriteLine($" {M68kInstruction.ConvertLabel(((VariableReference)((GetElementPtr)val.Value).PtrVal).Variable)}");
}
}
}
// http://info.sonicretro.org/SCHG:68000_ASM-to-Hex_Code_Reference
void EncodeInstruction(M68kInstruction inst, Stream stream)
{
switch (inst.Opcode)
{
case M68kOpcode.Rts:
Write(stream, 0x4E75);
break;
case M68kOpcode.Jsr:
Write(stream, 0x4EB9);
Write(stream, (uint)0);
break;
default:
throw new NotSupportedException();
}
}
public void WriteFile(string fileName, CodeGenerator codeGenerator)
{
using (var writer = new StreamWriter(fileName))
{
foreach (var decl in codeGenerator.Globals.Where(d => d.Value.Declare || d.Value.External))
{
//if (decl.Value.Value == null && decl.Value.Expr == null)
{
writer.WriteLine(" xref " + FixName(decl.Value.Name));
}
}
foreach (var func in codeGenerator.Functions.Keys)
{
writer.WriteLine(" xdef " + FixName(func));
}
writer.WriteLine(" section text,code");
foreach (var func in codeGenerator.Functions)
{
foreach (var inst in func.Value.Instructions)
{
writer.WriteLine(inst);
}
}
writer.WriteLine(" section data,DATA");
foreach (
var decl in
codeGenerator.Globals.Where(d => (d.Value.Global || d.Value.Constant) && !d.Value.External))
{
if (decl.Value.Value != null)
{
writer.WriteLine("{0} dc.b {1}",
M68kInstruction.ConvertLabel(decl.Value.Name),
string.Join(",", ToBytes(decl.Value.Value)));
}
else if (decl.Value.Type != null)
{
if (decl.Value.InitializeToZero || decl.Value.Expr == null)
{
writer.WriteLine(
$"{M68kInstruction.ConvertLabel(decl.Value.Name)}: dcb.b {decl.Value.Type.Width},0");
}
else
{
writer.Write($"{M68kInstruction.ConvertLabel(decl.Value.Name)}: ");
var sexpr = decl.Value.Expr as StructExpression;
if (sexpr != null)
{
GenerateStructExprData(sexpr, writer);
}
else if (decl.Value.Expr is ArrayExpression)
{
var arre = (ArrayExpression)decl.Value.Expr;
foreach (var vl in arre.Values)
{
if (vl is VariableReference)
{
var e = (VariableReference)vl;
writer.WriteLine("\tDC.L " + FixName(e.Variable));
}
else if (vl is GetElementPtr)
{
var gep = (GetElementPtr)vl;
writer.WriteLine("\tDC.L " + FixName(((VariableReference)gep.PtrVal).Variable));
}
}
}
else
{
var constant = decl.Value.Expr as IntegerConstant;
writer.WriteLine("DC." +
(decl.Value.Type.Width == 1
? "B"
: (decl.Value.Type.Width == 2 ? "W" : "L") + " " +
constant.Constant));
}
}
}
}
writer.WriteLine(" end");
}
}