private static void ОписаниеТипа(TypeInterface ti)
{
wr.WriteLine("{ " + ti.TypeName + " }");
wr.WriteLine();
wr.WriteLine(" " + ti.TypeName + " = " + ti.TypeType);
if (ti.Fields.Count > 0)
{
wr.WriteLine(" private");
foreach (string s in ti.Fields)
{
wr.WriteLine(" " + s);
}
}
wr.WriteLine(" protected");
wr.WriteLine(" { " + ti.InterfaceName + " }");
foreach (Метод m in ti.PropertyAccessors)
{
wr.WriteLine(" " + m.Декларация);
}
foreach (Метод m in ti.Methods)
{
wr.WriteLine(" " + m.Декларация);
}
if (ti.AfterConstruction != "")
{
wr.WriteLine(" public");
wr.WriteLine(" procedure AfterConstruction; override;");
}
wr.WriteLine(" end;");
wr.WriteLine();
}
private static void ОписаниеИнтерфейса(TypeInterface ti)
{
wr.WriteLine("{ " + ti.InterfaceName + " }");
wr.WriteLine();
wr.WriteLine(" " + ti.InterfaceName + " = " + ti.InterfaceType);
wr.WriteLine(" ['{" + Guid.NewGuid().ToString().ToUpper() + "}']");
if (ti.PropertyAccessors.Count > 0)
{
wr.WriteLine(" { Property Accessors }");
foreach (Метод m in ti.PropertyAccessors)
{
wr.WriteLine(" " + m.Декларация);
}
}
wr.WriteLine(" { Methods & Properties }");
foreach (Метод m in ti.Methods)
{
wr.WriteLine(" " + m.Декларация);
}
foreach (string p in ti.Properties)
{
wr.WriteLine(" " + p);
}
wr.WriteLine(" end;");
wr.WriteLine();
}
public void ТестированиеПростогоТэга()
{
DelphiGenerator dg = GetDelphiGenerator(@"..\..\Tests\XMLFile2.xml");
Assert.NotNull(dg);
Assert.Equals(1, dg.TypeList.Count);
TypeInterface XMLTest = dg.TypeList[0];
Assert.Equals("IXMLTest", XMLTest.InterfaceName);
Assert.Equals(2, XMLTest.PropertyAccessors.Count);
Assert.Equals("function Get_HelloWorld: Integer;", XMLTest.PropertyAccessors[0].Декларация);
Assert.Equals(" Result := ChildNodes['HelloWorld'].NodeValue;", XMLTest.PropertyAccessors[0].Тело);
Assert.Equals("procedure Set_HelloWorld(Value: Integer);", XMLTest.PropertyAccessors[1].Декларация);
Assert.Equals(" ChildNodes['HelloWorld'].NodeValue := Value;", XMLTest.PropertyAccessors[1].Тело);
Assert.Equals(0, XMLTest.Methods.Count);
Assert.Equals(1, XMLTest.Properties.Count);
Assert.Equals("property HelloWorld: Integer read Get_HelloWorld write Set_HelloWorld;", XMLTest.Properties[0]);
Assert.Equals("", XMLTest.AfterConstruction);
Assert.Equals(3, dg.GlobalFunctions.Count);
Assert.Equals("function GetTest(Doc: IXMLDocument): IXMLTest;", dg.GlobalFunctions[0].Заголовок);
Assert.Equals(" Result := Doc.GetDocBinding('Test', TXMLTest, TargetNamespace) as IXMLTest;",
dg.GlobalFunctions[0].Тело);
Assert.Equals("function LoadTest(const FileName: WideString): IXMLTest;", dg.GlobalFunctions[1].Заголовок);
Assert.Equals(
" Result := LoadXMLDocument(FileName).GetDocBinding('Test', TXMLTest, TargetNamespace) as IXMLTest;",
dg.GlobalFunctions[1].Тело);
Assert.Equals("function NewTest: IXMLTest;", dg.GlobalFunctions[2].Заголовок);
Assert.Equals(" Result := NewXMLDocument.GetDocBinding('Test', TXMLTest, TargetNamespace) as IXMLTest;",
dg.GlobalFunctions[2].Тело);
dg.Сгенерировать(@"..\..\Tests\XMLFile2_.pas");
}
public void ТестированиеПовторяющегосяПростогоТэга()
{
DelphiGenerator dg = GetDelphiGenerator(@"..\..\Tests\XMLFile1.xml");
Assert.NotNull(dg);
Assert.Equals(1, dg.TypeList.Count);
TypeInterface XMLTest = dg.TypeList[0];
Assert.Equals("IXMLTest", XMLTest.InterfaceName);
Assert.Equals(1, XMLTest.PropertyAccessors.Count);
Assert.Equals("function Get_HelloWorld(Index: Integer): Integer;", XMLTest.PropertyAccessors[0].Декларация);
Assert.Equals(2, XMLTest.Methods.Count);
Assert.Equals("function Add(const HelloWorld: Integer): IXMLNode;", XMLTest.Methods[0].Декларация);
Assert.Equals("function Insert(const Index: Integer; const HelloWorld: Integer): IXMLNode;",
XMLTest.Methods[1].Декларация);
Assert.Equals(1, XMLTest.Properties.Count);
Assert.Equals("property HelloWorld[Index: Integer]: Integer read Get_HelloWorld; default;", XMLTest.Properties[0]);
Assert.Equals(" ItemTag := 'HelloWorld';" + Utils.NewLine + " ItemInterface := IXMLNode;",
XMLTest.AfterConstruction);
Assert.Equals(3, dg.GlobalFunctions.Count);
Assert.Equals("function GetTest(Doc: IXMLDocument): IXMLTest;", dg.GlobalFunctions[0].Заголовок);
Assert.Equals(" Result := Doc.GetDocBinding('Test', TXMLTest, TargetNamespace) as IXMLTest;",
dg.GlobalFunctions[0].Тело);
Assert.Equals("function LoadTest(const FileName: WideString): IXMLTest;", dg.GlobalFunctions[1].Заголовок);
Assert.Equals(
" Result := LoadXMLDocument(FileName).GetDocBinding('Test', TXMLTest, TargetNamespace) as IXMLTest;",
dg.GlobalFunctions[1].Тело);
Assert.Equals("function NewTest: IXMLTest;", dg.GlobalFunctions[2].Заголовок);
Assert.Equals(" Result := NewXMLDocument.GetDocBinding('Test', TXMLTest, TargetNamespace) as IXMLTest;",
dg.GlobalFunctions[2].Тело);
dg.Сгенерировать(@"..\..\Tests\XMLFile1_.pas");
}
private static void СгенерироватьМетод(TypeInterface ti, Метод m)
{
wr.WriteLine(m.типМетода + " " + ti.TypeName + "." + m.Заголовок);
wr.WriteLine("begin");
wr.WriteLine(m.Тело);
wr.WriteLine("end;");
wr.WriteLine();
}
private static void GetAttributes(Тэг t, TypeInterface ti)
{
foreach (Атрибут a in t.Атрибуты)
{
string body = " Result := AttributeNodes['" + a.имяXML + "'].NodeValue;";
if (a.TypeCode == XmlTypeCode.String)
{
body = " Result := AttributeNodes['" + a.имяXML + "'].Text;";
}
ti.PropertyAccessors.Add(new Метод("function", "Get_" + a.Id + ": " + a.PascalType + ";",
body));
}
}
private void Подготовка(Тэг t)
{
if (t.типТэга == ТипТэга.ПростойТип)
{
return;
}
bool ОдиночныйВложенныйПовторяющийсяТэг = t.ВложенныеТэги.Count == 1 && t.ВложенныеТэги[0].Повторяется;
TypeInterface ti = new TypeInterface();
ti.InterfaceName = "IXML" + t.Id;
ti.TypeName = "TXML" + t.Id;
ti.InterfaceType = "interface(IXMLNode)";
ti.TypeType = "class(TXMLNode, " + ti.InterfaceName + ")";
TypeList.Add(ti);
GetAttributes(t, ti);
foreach (Тэг tt in t.ВложенныеТэги)
{
if (tt.типТэга == ТипТэга.Структура)
{
ti.AfterConstruction += " RegisterChildNode('" + tt.имяXML + "', TXML" + tt.Id + ");" + Utils.NewLine;
}
}
ti.AfterConstruction = ti.AfterConstruction.TrimEnd();
if (ОдиночныйВложенныйПовторяющийсяТэг)
{
string idТэга = t.ВложенныеТэги[0].Id;
ti.InterfaceType = "interface(IXMLNodeCollection)";
ti.TypeType = "class(TXMLNodeCollection, " + ti.InterfaceName + ")";
string тип = t.ВложенныеТэги[0].PascalType;
string типItemInterface = "IXMLNode";
if (t.ВложенныеТэги[0].типТэга == ТипТэга.Структура)
{
типItemInterface = "IXML" + t.ВложенныеТэги[0].Id;
тип = типItemInterface;
ti.Methods.Add(new Метод("function", "Add: " + типItemInterface + ";",
" Result := AddItem(-1);"));
ti.Methods.Add(
new Метод("function", "Insert(const Index: Integer): " + типItemInterface + ";",
" Result := AddItem(Index);"));
}
else
{
ti.Methods.Add(new Метод("function", "Add(const " + idТэга + ": " + тип + "): " + типItemInterface + ";",
" Result := AddItem(-1);" + Utils.NewLine +
" Result.NodeValue := " + idТэга + ";"));
ti.Methods.Add(
new Метод("function",
"Insert(const Index: Integer; const " + idТэга + ": " + тип + "): " + типItemInterface + ";",
" Result := AddItem(Index);" + Utils.NewLine +
" Result.NodeValue := " + idТэга + ";"));
}
ti.PropertyAccessors.Add(new Метод("function", "Get_" + idТэга + "(Index: Integer): " + тип + ";",
" Result := List[Index].NodeValue;"));
if (ti.AfterConstruction != "")
{
ti.AfterConstruction += Utils.NewLine;
}
ti.AfterConstruction += " ItemTag := '" + t.ВложенныеТэги[0].имяXML + "';" + Utils.NewLine +
" ItemInterface := " + типItemInterface + ";";
}
else
{
if (ti.AfterConstruction != "")
{
ti.AfterConstruction += Utils.NewLine;
}
foreach (Тэг tt in t.ВложенныеТэги)
{
if (tt.типТэга == ТипТэга.Структура && tt.Повторяется)
{
ti.Fields.Add("F" + tt.Id + ": IXML" + tt.Id + "List;");
ti.AfterConstruction += " F" + tt.Id + " := CreateCollection(TXML" + tt.Id + "List, IXML" + tt.Id + ", '" +
tt.имяXML + "') as IXML" + tt.Id + "List;" + Utils.NewLine;
}
}
ti.AfterConstruction = ti.AfterConstruction.TrimEnd();
foreach (Тэг tt in t.ВложенныеТэги)
{
string body = " Result := ChildNodes['" + tt.имяXML + "'].NodeValue;";
if (tt.TypeCode == XmlTypeCode.String)
{
body = " Result := ChildNodes['" + tt.имяXML + "'].Text;";
}
if (tt.типТэга == ТипТэга.Структура)
{
if (tt.Повторяется)
{
body = " Result := F" + tt.Id + ";";
}
else
{
body = " Result := ChildNodes['" + tt.имяXML + "'] as IXML" + tt.Id + ";";
}
}
ti.PropertyAccessors.Add(new Метод("function", "Get_" + tt.Id + ": " + tt.PascalType + ";",
body));
}
}
foreach (Атрибут a in t.Атрибуты)
{
ti.PropertyAccessors.Add(new Метод("procedure", "Set_" + a.Id + "(Value: " + a.PascalType + ");",
" SetAttribute('" + a.имяXML + "', Value);"));
ti.Properties.Add("property " + a.Id + ": " + a.PascalType + " read Get_" + a.Id + " write Set_" + a.Id + ";");
}
if (!ОдиночныйВложенныйПовторяющийсяТэг)
{
foreach (Тэг tt in t.ВложенныеТэги)
{
switch (tt.типТэга)
{
case ТипТэга.Структура:
ti.Properties.Add("property " + tt.Id + ": " + tt.PascalType + " read Get_" + tt.Id + ";");
break;
case ТипТэга.ПростойТип:
ti.PropertyAccessors.Add(new Метод("procedure", "Set_" + tt.Id + "(Value: " + tt.PascalType + ");",
" ChildNodes['" + tt.имяXML + "'].NodeValue := Value;"));
ti.Properties.Add("property " + tt.Id + ": " + tt.PascalType + " read Get_" + tt.Id + " write Set_" +
tt.Id + ";");
break;
}
}
foreach (Тэг tt in t.ВложенныеТэги)
{
Подготовка(tt);
}
}
if (t.Повторяется)
{
TypeInterface tiList = new TypeInterface();
tiList.InterfaceName = "IXML" + t.Id + "List";
tiList.TypeName = "TXML" + t.Id + "List";
tiList.InterfaceType = "interface(IXMLNodeCollection)";
tiList.TypeType = "class(TXMLNodeCollection, " + tiList.InterfaceName + ")";
tiList.Methods.Add(new Метод("function", "Add: " + ti.InterfaceName + ";",
" Result := AddItem(-1) as " + ti.InterfaceName + ";"));
tiList.Methods.Add(new Метод("function", "Insert(const Index: Integer): " + ti.InterfaceName + ";",
" Result := AddItem(Index) as " + ti.InterfaceName + ";"));
tiList.Methods.Add(new Метод("function", "Get_Item(Index: Integer): " + ti.InterfaceName + ";",
" Result := List[Index] as " + ti.InterfaceName + ";"));
tiList.Properties.Add("property Items[Index: Integer]: IXML" + t.Id + " read Get_Item; default;");
TypeList.Add(tiList);
}
if (ОдиночныйВложенныйПовторяющийсяТэг)
{
if (t.ВложенныеТэги[0].типТэга == ТипТэга.Структура)
{
ti.Properties.Add("property " + t.ВложенныеТэги[0].Id + "[Index: Integer]: IXML" + t.ВложенныеТэги[0].Id +
" read Get_" +
t.ВложенныеТэги[0].Id + "; default;");
}
else
{
ti.Properties.Add("property " + t.ВложенныеТэги[0].Id + "[Index: Integer]: " + t.ВложенныеТэги[0].PascalType +
" read Get_" +
t.ВложенныеТэги[0].Id + "; default;");
}
t.ВложенныеТэги[0].Повторяется = false;
Подготовка(t.ВложенныеТэги[0]);
}
}
public void TestConfig()
{
DelphiGenerator dg = GetDelphiGenerator(@"..\..\Tests\config.xml");
Assert.NotNull(dg);
Assert.Equals(11, dg.TypeList.Count);
Assert.Equals("IXMLConfig", dg.TypeList[0].InterfaceName);
Assert.Equals("IXMLButton", dg.TypeList[1].InterfaceName);
Assert.Equals("IXMLButtonList", dg.TypeList[2].InterfaceName);
Assert.Equals("IXMLBackGround", dg.TypeList[3].InterfaceName);
Assert.Equals("IXMLAllPages", dg.TypeList[4].InterfaceName);
Assert.Equals("IXMLFont", dg.TypeList[5].InterfaceName);
Assert.Equals("IXMLPage", dg.TypeList[6].InterfaceName);
Assert.Equals("IXMLPageList", dg.TypeList[7].InterfaceName);
Assert.Equals("IXMLNeed", dg.TypeList[8].InterfaceName);
Assert.Equals("IXMLMsi", dg.TypeList[9].InterfaceName);
Assert.Equals("IXMLMsiList", dg.TypeList[10].InterfaceName);
TypeInterface XMLConfig = dg.TypeList[0];
Assert.Equals("TXMLConfig", XMLConfig.TypeName);
Assert.Equals("class(TXMLNode, IXMLConfig)", XMLConfig.TypeType);
TypeInterface XMLButton = dg.TypeList[1];
Assert.Equals("TXMLButton", XMLButton.TypeName);
Assert.Equals("class(TXMLNode, IXMLButton)", XMLButton.TypeType);
TypeInterface XMLButtonList = dg.TypeList[2];
Assert.Equals("TXMLButtonList", XMLButtonList.TypeName);
Assert.Equals("class(TXMLNodeCollection, IXMLButtonList)", XMLButtonList.TypeType);
TypeInterface XMLBackGround = dg.TypeList[3];
Assert.Equals("TXMLBackGround", XMLBackGround.TypeName);
Assert.Equals("class(TXMLNode, IXMLBackGround)", XMLBackGround.TypeType);
TypeInterface XMLAllPages = dg.TypeList[4];
Assert.Equals("TXMLAllPages", XMLAllPages.TypeName);
Assert.Equals("class(TXMLNode, IXMLAllPages)", XMLAllPages.TypeType);
TypeInterface XMLFont = dg.TypeList[5];
Assert.Equals("TXMLFont", XMLFont.TypeName);
Assert.Equals("class(TXMLNode, IXMLFont)", XMLFont.TypeType);
TypeInterface XMLPage = dg.TypeList[6];
Assert.Equals("TXMLPage", XMLPage.TypeName);
Assert.Equals("class(TXMLNodeCollection, IXMLPage)", XMLPage.TypeType);
TypeInterface XMLPageList = dg.TypeList[7];
Assert.Equals("TXMLPageList", XMLPageList.TypeName);
Assert.Equals("class(TXMLNodeCollection, IXMLPageList)", XMLPageList.TypeType);
TypeInterface XMLNeed = dg.TypeList[8];
Assert.Equals("TXMLNeed", XMLNeed.TypeName);
Assert.Equals("class(TXMLNode, IXMLNeed)", XMLNeed.TypeType);
TypeInterface XMLMsi = dg.TypeList[9];
Assert.Equals("TXMLMsi", XMLMsi.TypeName);
Assert.Equals("class(TXMLNode, IXMLMsi)", XMLMsi.TypeType);
TypeInterface XMLMsiList = dg.TypeList[10];
Assert.Equals("TXMLMsiList", XMLMsiList.TypeName);
Assert.Equals("class(TXMLNodeCollection, IXMLMsiList)", XMLMsiList.TypeType);
Assert.Equals(
@" RegisterChildNode('Button', TXMLButton);
RegisterChildNode('backGround', TXMLBackGround);
RegisterChildNode('AllPages', TXMLAllPages);
RegisterChildNode('Page', TXMLPage);
RegisterChildNode('msi', TXMLMsi);
FButton := CreateCollection(TXMLButtonList, IXMLButton, 'Button') as IXMLButtonList;
FPage := CreateCollection(TXMLPageList, IXMLPage, 'Page') as IXMLPageList;
FMsi := CreateCollection(TXMLMsiList, IXMLMsi, 'msi') as IXMLMsiList;",
XMLConfig.AfterConstruction);
Метод метод;
метод = XMLPage.PropertyAccessors[0];
Assert.Equals("Get_Exe: WideString;", метод.Заголовок);
Assert.Equals(@" Result := AttributeNodes['exe'].Text;", метод.Тело);
метод = XMLPage.PropertyAccessors[2];
Assert.Equals("Get_X: Integer;", метод.Заголовок);
Assert.Equals(@" Result := AttributeNodes['X'].NodeValue;", метод.Тело);
метод = XMLPage.PropertyAccessors[3];
Assert.Equals("Get_Y: Integer;", метод.Заголовок);
Assert.Equals(@" Result := AttributeNodes['Y'].NodeValue;", метод.Тело);
метод = XMLPage.PropertyAccessors[11];
Assert.Equals("Get_Standart: Boolean;", метод.Заголовок);
Assert.Equals(@" Result := AttributeNodes['Standart'].NodeValue;", метод.Тело);
метод = XMLPage.PropertyAccessors[13];
Assert.Equals("Get_Need(Index: Integer): IXMLNeed;", метод.Заголовок);
Assert.Equals(@" Result := List[Index].NodeValue;", метод.Тело);
метод = XMLPage.PropertyAccessors[16];
Assert.Equals("Set_X(Value: Integer);", метод.Заголовок);
Assert.Equals(@" SetAttribute('X', Value);", метод.Тело);
метод = XMLPage.PropertyAccessors[17];
Assert.Equals("Set_Y(Value: Integer);", метод.Заголовок);
Assert.Equals(@" SetAttribute('Y', Value);", метод.Тело);
метод = XMLPage.PropertyAccessors[18];
Assert.Equals("Set_Hint(Value: WideString);", метод.Заголовок);
Assert.Equals(@" SetAttribute('Hint', Value);", метод.Тело);
метод = XMLPage.PropertyAccessors[19];
Assert.Equals("Set_Header(Value: WideString);", метод.Заголовок);
Assert.Equals(@" SetAttribute('header', Value);", метод.Тело);
метод = XMLPage.PropertyAccessors[20];
Assert.Equals("Set_Bottom(Value: WideString);", метод.Заголовок);
Assert.Equals(@" SetAttribute('bottom', Value);", метод.Тело);
метод = XMLPage.PropertyAccessors[21];
Assert.Equals("Set_Html(Value: WideString);", метод.Заголовок);
Assert.Equals(@" SetAttribute('html', Value);", метод.Тело);
метод = XMLPage.PropertyAccessors[22];
Assert.Equals("Set_InstallerExe(Value: WideString);", метод.Заголовок);
Assert.Equals(@" SetAttribute('installerExe', Value);", метод.Тело);
метод = XMLPage.PropertyAccessors[23];
Assert.Equals("Set_ExeAfterInstall(Value: WideString);", метод.Заголовок);
Assert.Equals(@" SetAttribute('exeAfterInstall', Value);", метод.Тело);
метод = XMLPage.PropertyAccessors[24];
Assert.Equals("Set_RegInstallPath(Value: WideString);", метод.Заголовок);
Assert.Equals(@" SetAttribute('regInstallPath', Value);", метод.Тело);
метод = XMLPage.PropertyAccessors[25];
Assert.Equals("Set_Standart(Value: Boolean);", метод.Заголовок);
Assert.Equals(@" SetAttribute('Standart', Value);", метод.Тело);
метод = XMLPage.PropertyAccessors[26];
Assert.Equals("Set_PageImage(Value: WideString);", метод.Заголовок);
Assert.Equals(@" SetAttribute('pageImage', Value);", метод.Тело);
//int cnt = 0;
//foreach (TypeInterface ti in dg.TypeList) {
// string s = ti.TypeName.Substring(1);
// Console.WriteLine("TypeInterface " + s + " = dg.TypeList[" + cnt + "];");
// Console.WriteLine("Assert.Equals(\"" + ti.TypeName + "\"," + s + ".TypeName);");
// Console.WriteLine("Assert.Equals(\"" + ti.TypeType + "\"," + s + ".TypeType);");
// cnt++;
//}
//int cnt = 0;
//Console.WriteLine("Метод метод;");
//foreach (Метод m in XMLPage.PropertyAccessors) {
// Console.WriteLine("метод = XMLPage.PropertyAccessors[" + cnt + "];");
// Console.WriteLine("Assert.Equals(\"" + m.Заголовок + "\",метод.Заголовок);");
// Console.WriteLine("Assert.Equals(@" + "\"" + m.Тело + "\",метод.Тело);");
// cnt++;
//}
dg.Сгенерировать(@"..\..\Tests\config_.pas");
}
