public void Write(string name, string output, ast.Line root, ast.NameDict nameDict)
{
this.nameDict = nameDict;
try
{
html.Open(output + ".html");
js.Open(output + ".js");
html.Put(html.body);
html.Put(name);
js.Write(js.require);
foreach (var line in root.childList)
{
CreateBody(line);
}
html.Close();
js.Close();
}
catch (Exception exception)
{
html.Delete();
js.Delete();
parser.SemErr(exception.Message + "\nStack Trace:\n" + exception.StackTrace);
}
finally
{
html.Dispose();
js.Dispose();
}
}
void CreateMethodBody(MethodDefinition method, ast.Line root)
{
foreach (var line in root.childList)
{
switch (line.kind)
{
case ast.Line.Kind.CODE:
CreateCode(method, line);
break;
case ast.Line.Kind.CLASS:
CreateClass(method, line);
break;
case ast.Line.Kind.FUNCTION:
CreateFunction(method, line);
break;
default:
Debug.Assert(false);
break;
}
}
assembly.Return(method);
}
void CreateClazzBody(ast.Line root)
{
foreach (var line in root.childList)
{
var name = line.define.identity.name;
var node = line.define.node;
if (line.childList != ast.LineList.empty)
{
CreateClazz(line);
}
if (node == null)
{
}
else if (node is ast.Final)
{
var final = node as ast.Final;
var value = final.value;
if (final.kind == ast.Final.Kind.UNICODE)
{
var keyUnicode = js.Put(js.keyUnicode);
js.Put(name);
js.Put(value, keyUnicode);
}
else
{
var keyValue = js.Put(js.keyValue);
js.Put(name);
js.Put(value, keyValue);
}
}
else if (node is ast.Call)
{
var call = node as ast.Call;
var value = call.path.name;
if (ast.Keywords.isKeyword(value))
{
var keyValue = js.Put(js.keyValue);
js.Put(name);
js.Put(value, keyValue);
}
else if (root.define.Param(value) != null)
{
var keyClone = js.Put(js.keyClone);
js.Put(name);
js.Put(value, keyClone);
}
else if (nameDict.ContainsKey(value))
{
var keyClone = js.Put(js.keyClone);
js.Put(name);
js.Put(value, keyClone);
}
else
{
parser.SemErr("Variable: '" + value + "' does NOT exist");
}
}
}
}
void CreateFunction(MethodDefinition parent, ast.Line root)
{
var call = root.expr.itemList[0] as ast.Call;
foreach (var part in call.path.partList)
{
var name = part.name;
var method = assembly.CreateMethod(name, parent);
CreateMethodBody(method, root);
parent = method;
}
}
void CreateClass(MethodDefinition parent, ast.Line root)
{
var call = root.expr.itemList[0] as ast.Call;
foreach (var part in call.path.partList)
{
var name = part.name;
var type = assembly.CreateType(name, parent);
var ctor = assembly.CreateCtor(name, type);
assembly.CreateField(name, type, parent);
CreateMethodBody(ctor, root);
parent = ctor;
}
}
void CreateNodeChildren(ast.Line root)
{
foreach (var line in root.childList)
{
if (trCounter > 0)
{
var td = html.Put(html.td);
CreateNode(line);
html.End(td);
}
else
{
CreateNode(line);
}
}
}
void CreateClazz(ast.Line root)
{
var clazz = js.Put(js.clazz);
js.Put(root.define.identity.name);
string comma = string.Empty;
foreach (var param in root.define.paramList)
{
js.Write(comma);
comma = js.comma;
js.Write(param.identity.name);
}
js.Put(string.Empty);
CreateClazzBody(root);
js.End(clazz);
}
void CreateCode(MethodDefinition parent, ast.Line line)
{
for (int i = line.expr.itemList.Count - 2; i >= 0; i--)
{
var itemL = line.expr.itemList[i];
var itemR = line.expr.itemList[i + 1];
if (itemL is ast.Const)
{
parser.SemErr("Constant cannot evaluate");
}
else if (itemL is ast.Call)
{
var callL = itemL as ast.Call;
var nameL = callL.path.partList[0].name;
if (itemR is ast.Const)
{
var cnst = itemR as ast.Const;
var type = assembly.ConstType(cnst);
if (assembly.IsCtor(parent))
{
var field = assembly.CreateField(nameL, type, parent);
assembly.LoadConst(cnst, parent);
assembly.StoreField(field, parent);
}
else
{
var variable = assembly.CreateVariable(nameL, type, parent);
assembly.LoadConst(cnst, parent);
assembly.StoreVariable(variable, parent);
}
}
else if (itemR is ast.Call)
{
var callR = itemR as ast.Call;
var type = assembly.BasicType(callR.path.partList[0].name);
}
}
}
}
void CreateBody(ast.Line line)
{
var node = line.define.node;
if (node == null)
{
if (line.childList.Count > 0)
{
CreateClazzBody(line);
}
}
else if (node is ast.Final)
{
var final = node as ast.Final;
if (final.kind == ast.Final.Kind.UNICODE)
{
var keyUnicode = js.Put(js.keyUnicode);
js.Put(line.name);
js.Put(final.value, keyUnicode);
}
else
{
var keyValue = js.Put(js.keyValue);
js.Put(line.name);
js.Put(final.value, keyValue);
}
}
else if (node is ast.Call)
{
var call = node as ast.Call;
if (line.define.identity.name.Equals("main_layout") && call.path.name.Equals("layout"))
{
CreateNodeChildren(line);
}
}
}
public void WriteAssembly(string name, string output, ast.Line root)
{
assembly = il.Assembly.Create(name);
CreateMethodBody(assembly.MainMethod, root);
assembly.Write(output);
}
void CreateNode(ast.Line line)
{
var name = line.define.identity.name;
var node = line.define.node;
if (node == null)
{
if (name.StartsWith("y_pane"))
{
var table = html.Put(html.table);
tableCounter++;
CreateNodeChildren(line);
tableCounter--;
html.End(table);
}
else if (name.StartsWith("x_pane"))
{
var tr = html.Put(html.tr);
trCounter++;
CreateNodeChildren(line);
trCounter--;
html.End(tr);
}
else
{
ast.LineList lineList;
if (nameDict.TryGetValue(name, out lineList))
{
CreateNode(lineList[0]);
}
else
{
parser.SemErr("Variable: '" + name + "'does NOT exist");
}
}
}
else if (node is ast.Final)
{
}
else if (node is ast.Call)
{
var call = node as ast.Call;
var value = call.path.name;
if (value.Equals("dialog"))
{
var dialog = html.Put(html.dialog);
html.Put(name);
CreateNodeChildren(line);
html.End(dialog);
}
else if (value.Equals("label"))
{
var label = html.Put(html.label);
html.Put(name, label);
}
else if (value.Equals("edit"))
{
html.Write(html.edit);
}
else if (value.Equals("button"))
{
var button = html.Put(html.button);
html.Put(name, button);
}
else
{
parser.SemErr("Variable: '" + value + "' does NOT exist");
}
}
}
