Exemplo n.º 1
0
 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();
 }
Exemplo n.º 2
0
 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();
 }
Exemplo n.º 3
0
        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");
        }
Exemplo n.º 4
0
        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");
        }
Exemplo n.º 5
0
 private static void СгенерироватьМетод(TypeInterface ti, Метод m)
 {
     wr.WriteLine(m.типМетода + " " + ti.TypeName + "." + m.Заголовок);
     wr.WriteLine("begin");
     wr.WriteLine(m.Тело);
     wr.WriteLine("end;");
     wr.WriteLine();
 }
Exemplo n.º 6
0
 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));
     }
 }
Exemplo n.º 7
0
        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]);
            }
        }
Exemplo n.º 8
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");
        }