From 3c58221867ad535a81ab2b0ee09274b0ebec09bc Mon Sep 17 00:00:00 2001 From: Joe Care Date: Tue, 14 Apr 2026 17:20:47 +0200 Subject: [PATCH 01/63] TraceCsv2realCsv --- .../Libraries/BaseLibTests/Helper/IoCTests.cs | 2 +- .../Libraries/BaseLibTests/Models/BaseTest.cs | 23 +++++++++---------- 2 files changed, 12 insertions(+), 13 deletions(-) diff --git a/CSharpBible/Libraries/BaseLibTests/Helper/IoCTests.cs b/CSharpBible/Libraries/BaseLibTests/Helper/IoCTests.cs index e3b004bbf..13d7ca907 100644 --- a/CSharpBible/Libraries/BaseLibTests/Helper/IoCTests.cs +++ b/CSharpBible/Libraries/BaseLibTests/Helper/IoCTests.cs @@ -2,7 +2,7 @@ using Microsoft.VisualStudio.TestTools.UnitTesting; using Microsoft.Extensions.DependencyInjection; using NSubstitute; -using BaseLib.Model.Tests; +using BaseLib.Models.Tests; namespace BaseLib.Helper.Tests; diff --git a/CSharpBible/Libraries/BaseLibTests/Models/BaseTest.cs b/CSharpBible/Libraries/BaseLibTests/Models/BaseTest.cs index 6ba8e4ef3..d850a3de7 100644 --- a/CSharpBible/Libraries/BaseLibTests/Models/BaseTest.cs +++ b/CSharpBible/Libraries/BaseLibTests/Models/BaseTest.cs @@ -1,19 +1,18 @@ using System; -namespace BaseLib.Model.Tests +namespace BaseLib.Models.Tests; + +public class BaseTest { - public class BaseTest - { - private string _debugLog = ""; + private string _debugLog = ""; - protected virtual void ClearLog() - { - _debugLog = string.Empty; - } + protected virtual void ClearLog() + { + _debugLog = string.Empty; + } - protected string DebugLog => _debugLog; + protected string DebugLog => _debugLog; - protected virtual void DoLog(string st) - => _debugLog += $"{st}{Environment.NewLine}"; - } + protected virtual void DoLog(string st) + => _debugLog += $"{st}{Environment.NewLine}"; } From c0c784b81a9498f77c1713af75375c9f5c93370d Mon Sep 17 00:00:00 2001 From: Joe Care Date: Tue, 14 Apr 2026 17:37:00 +0200 Subject: [PATCH 02/63] TestStatements --- .../.github/upgrades/dotnet-upgrade-plan.md | 33 ------------------- 1 file changed, 33 deletions(-) delete mode 100644 TestStatements/.github/upgrades/dotnet-upgrade-plan.md diff --git a/TestStatements/.github/upgrades/dotnet-upgrade-plan.md b/TestStatements/.github/upgrades/dotnet-upgrade-plan.md deleted file mode 100644 index c4a8a1fd8..000000000 --- a/TestStatements/.github/upgrades/dotnet-upgrade-plan.md +++ /dev/null @@ -1,33 +0,0 @@ -# .NET 8.0 Upgrade Plan - -## Execution Steps - -Execute steps below sequentially one by one in the order they are listed. - -1. Validate that an .NET 8.0 SDK required for this upgrade is installed on the machine and if not, help to get it installed. -2. Ensure that the SDK version specified in global.json files is compatible with the .NET 8.0 upgrade. -3. Upgrade UWP_00_Test\UWP_00_Test.csproj - -## Settings - -This section contains settings and data used by execution steps. - -### Excluded projects - -Table below contains projects that do belong to the dependency graph for selected projects and should not be included in the upgrade. - -| Project name | Description | -|:-------------|:-----------:| - -### Project upgrade details -This section contains details about each project upgrade and modifications that need to be done in the project. - -#### UWP_00_Test\UWP_00_Test.csproj modifications - -Project properties changes: - - Include shared props: `..\MVVM_Tutorial.props` - - Enable nullable reference types: `nullable` set to `enable` - - Migrate project to SDK style targeting .NET 8 (Windows): adopt `Microsoft.NET.Sdk` with appropriate target framework if required by the app model - -Other changes: - - Review and adjust Windows application model dependencies as needed for .NET 8 (e.g., Windows App SDK / WinUI migration if applicable) From 64d3ccd7c4ab2b182eb42f9cfaf74d1364f1956b Mon Sep 17 00:00:00 2001 From: Joe Care Date: Tue, 14 Apr 2026 17:40:57 +0200 Subject: [PATCH 03/63] Transpiler_pp --- .../.github/upgrades/dotnet-upgrade-plan.md | 33 ------------------- 1 file changed, 33 deletions(-) delete mode 100644 Transpiler_pp/.github/upgrades/dotnet-upgrade-plan.md diff --git a/Transpiler_pp/.github/upgrades/dotnet-upgrade-plan.md b/Transpiler_pp/.github/upgrades/dotnet-upgrade-plan.md deleted file mode 100644 index c4a8a1fd8..000000000 --- a/Transpiler_pp/.github/upgrades/dotnet-upgrade-plan.md +++ /dev/null @@ -1,33 +0,0 @@ -# .NET 8.0 Upgrade Plan - -## Execution Steps - -Execute steps below sequentially one by one in the order they are listed. - -1. Validate that an .NET 8.0 SDK required for this upgrade is installed on the machine and if not, help to get it installed. -2. Ensure that the SDK version specified in global.json files is compatible with the .NET 8.0 upgrade. -3. Upgrade UWP_00_Test\UWP_00_Test.csproj - -## Settings - -This section contains settings and data used by execution steps. - -### Excluded projects - -Table below contains projects that do belong to the dependency graph for selected projects and should not be included in the upgrade. - -| Project name | Description | -|:-------------|:-----------:| - -### Project upgrade details -This section contains details about each project upgrade and modifications that need to be done in the project. - -#### UWP_00_Test\UWP_00_Test.csproj modifications - -Project properties changes: - - Include shared props: `..\MVVM_Tutorial.props` - - Enable nullable reference types: `nullable` set to `enable` - - Migrate project to SDK style targeting .NET 8 (Windows): adopt `Microsoft.NET.Sdk` with appropriate target framework if required by the app model - -Other changes: - - Review and adjust Windows application model dependencies as needed for .NET 8 (e.g., Windows App SDK / WinUI migration if applicable) From 459a9bb72a3f958526136a91e71d0484f1f42c99 Mon Sep 17 00:00:00 2001 From: "dependabot[bot]" <49699333+dependabot[bot]@users.noreply.github.com> Date: Mon, 20 Apr 2026 08:07:11 +0000 Subject: [PATCH 04/63] Bump coverlet.collector from 8.0.1 to 10.0.0 --- updated-dependencies: - dependency-name: coverlet.collector dependency-version: 10.0.0 dependency-type: direct:production update-type: version-update:semver-major - dependency-name: coverlet.collector dependency-version: 10.0.0 dependency-type: direct:production update-type: version-update:semver-major ... Signed-off-by: dependabot[bot] --- TestStatements/TestStatementsTest/TestStatementsTest.csproj | 2 +- TestStatements/TestStatementsTest/TestStatements_netTest.csproj | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/TestStatements/TestStatementsTest/TestStatementsTest.csproj b/TestStatements/TestStatementsTest/TestStatementsTest.csproj index 12fff3947..edc7eb3a6 100644 --- a/TestStatements/TestStatementsTest/TestStatementsTest.csproj +++ b/TestStatements/TestStatementsTest/TestStatementsTest.csproj @@ -35,7 +35,7 @@ - + all runtime; build; native; contentfiles; analyzers; buildtransitive diff --git a/TestStatements/TestStatementsTest/TestStatements_netTest.csproj b/TestStatements/TestStatementsTest/TestStatements_netTest.csproj index c2ce4eeb0..bd372aadf 100644 --- a/TestStatements/TestStatementsTest/TestStatements_netTest.csproj +++ b/TestStatements/TestStatementsTest/TestStatements_netTest.csproj @@ -42,7 +42,7 @@ - + all runtime; build; native; contentfiles; analyzers; buildtransitive From 919abafce08e11740d7782a2e7d5f2b7c34d7b1b Mon Sep 17 00:00:00 2001 From: "dependabot[bot]" <49699333+dependabot[bot]@users.noreply.github.com> Date: Mon, 20 Apr 2026 08:16:00 +0000 Subject: [PATCH 05/63] Bump Microsoft.Extensions.Configuration.UserSecrets from 10.0.5 to 10.0.6 --- updated-dependencies: - dependency-name: Microsoft.Extensions.Configuration.UserSecrets dependency-version: 10.0.6 dependency-type: direct:production update-type: version-update:semver-patch - dependency-name: Microsoft.Extensions.Configuration.UserSecrets dependency-version: 10.0.6 dependency-type: direct:production update-type: version-update:semver-patch ... Signed-off-by: dependabot[bot] --- TestStatements/AppWithPlugin/AppWithPlugin.csproj | 2 +- TestStatements/AppWithPluginWpf/AppWithPluginWpf.csproj | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/TestStatements/AppWithPlugin/AppWithPlugin.csproj b/TestStatements/AppWithPlugin/AppWithPlugin.csproj index 3bc4d0569..93c883d51 100644 --- a/TestStatements/AppWithPlugin/AppWithPlugin.csproj +++ b/TestStatements/AppWithPlugin/AppWithPlugin.csproj @@ -25,7 +25,7 @@ - + diff --git a/TestStatements/AppWithPluginWpf/AppWithPluginWpf.csproj b/TestStatements/AppWithPluginWpf/AppWithPluginWpf.csproj index ae4ecf026..ae412f17a 100644 --- a/TestStatements/AppWithPluginWpf/AppWithPluginWpf.csproj +++ b/TestStatements/AppWithPluginWpf/AppWithPluginWpf.csproj @@ -23,7 +23,7 @@ - + From 8c0f9fac1f75a48f816163d3a3c9f079f8ce2364 Mon Sep 17 00:00:00 2001 From: "dependabot[bot]" <49699333+dependabot[bot]@users.noreply.github.com> Date: Mon, 20 Apr 2026 08:33:00 +0000 Subject: [PATCH 06/63] Bump Microsoft.Extensions.DependencyInjection.Abstractions from 10.0.5 to 10.0.6 --- updated-dependencies: - dependency-name: Microsoft.Extensions.DependencyInjection.Abstractions dependency-version: 10.0.6 dependency-type: direct:production update-type: version-update:semver-patch ... Signed-off-by: dependabot[bot] --- CSharpBible/Libraries/BaseLib/BaseLib.csproj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/CSharpBible/Libraries/BaseLib/BaseLib.csproj b/CSharpBible/Libraries/BaseLib/BaseLib.csproj index 5cc8cd416..46b241976 100644 --- a/CSharpBible/Libraries/BaseLib/BaseLib.csproj +++ b/CSharpBible/Libraries/BaseLib/BaseLib.csproj @@ -31,6 +31,6 @@ - + \ No newline at end of file From 0e3159c92c22d1545dc13a7d0c5d19a0c58afb32 Mon Sep 17 00:00:00 2001 From: "dependabot[bot]" <49699333+dependabot[bot]@users.noreply.github.com> Date: Mon, 20 Apr 2026 08:37:28 +0000 Subject: [PATCH 07/63] Bump Microsoft.Extensions.DependencyInjection and Microsoft.Extensions.Hosting Bumps Microsoft.Extensions.DependencyInjection from 10.0.5 to 10.0.6 Bumps Microsoft.Extensions.Hosting from 10.0.5 to 10.0.6 --- updated-dependencies: - dependency-name: Microsoft.Extensions.DependencyInjection dependency-version: 10.0.6 dependency-type: direct:production update-type: version-update:semver-patch - dependency-name: Microsoft.Extensions.Hosting dependency-version: 10.0.6 dependency-type: direct:production update-type: version-update:semver-patch - dependency-name: Microsoft.Extensions.DependencyInjection dependency-version: 10.0.6 dependency-type: direct:production update-type: version-update:semver-patch - dependency-name: Microsoft.Extensions.Hosting dependency-version: 10.0.6 dependency-type: direct:production update-type: version-update:semver-patch ... Signed-off-by: dependabot[bot] --- TestStatements/TestStatements/TestStatements.csproj | 4 ++-- TestStatements/TestStatements/TestStatements_net.csproj | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/TestStatements/TestStatements/TestStatements.csproj b/TestStatements/TestStatements/TestStatements.csproj index 3557228da..36600d630 100644 --- a/TestStatements/TestStatements/TestStatements.csproj +++ b/TestStatements/TestStatements/TestStatements.csproj @@ -58,8 +58,8 @@ - - + + diff --git a/TestStatements/TestStatements/TestStatements_net.csproj b/TestStatements/TestStatements/TestStatements_net.csproj index da7c02a5b..1d990c84b 100644 --- a/TestStatements/TestStatements/TestStatements_net.csproj +++ b/TestStatements/TestStatements/TestStatements_net.csproj @@ -62,8 +62,8 @@ - - + + From ca8b43422c6ab5440bbabfc97d8162f3ffa4d230 Mon Sep 17 00:00:00 2001 From: Joe Care Date: Mon, 20 Apr 2026 16:43:58 +0200 Subject: [PATCH 08/63] AA16_Usercontrol1 --- .../AA16_UserControl/AA16_Usercontrol1/Directory.Packages.props | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Avalonia_Apps/AA16_UserControl/AA16_Usercontrol1/Directory.Packages.props b/Avalonia_Apps/AA16_UserControl/AA16_Usercontrol1/Directory.Packages.props index b2047f1c5..f2e4b2002 100644 --- a/Avalonia_Apps/AA16_UserControl/AA16_Usercontrol1/Directory.Packages.props +++ b/Avalonia_Apps/AA16_UserControl/AA16_Usercontrol1/Directory.Packages.props @@ -9,7 +9,7 @@ - + From f7315878ac99a035b284fc42891567dd9a8b9896 Mon Sep 17 00:00:00 2001 From: Joe Care Date: Mon, 20 Apr 2026 16:44:10 +0200 Subject: [PATCH 09/63] Avln_AnimationTiming --- .../Avln_AnimationTiming/Avln_AnimationTiming.csproj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Avalonia_Apps/AvlnSamples/Avln_AnimationTiming/Avln_AnimationTiming.csproj b/Avalonia_Apps/AvlnSamples/Avln_AnimationTiming/Avln_AnimationTiming.csproj index 64d1f8953..0dd6d72dc 100644 --- a/Avalonia_Apps/AvlnSamples/Avln_AnimationTiming/Avln_AnimationTiming.csproj +++ b/Avalonia_Apps/AvlnSamples/Avln_AnimationTiming/Avln_AnimationTiming.csproj @@ -44,7 +44,7 @@ - + From 4caf84568d67d2379025c0c7fd76633f7a710ce1 Mon Sep 17 00:00:00 2001 From: Joe Care Date: Mon, 20 Apr 2026 16:44:11 +0200 Subject: [PATCH 10/63] Avln_AnimationTimingTests --- .../Avln_AnimationTimingTests/Avln_AnimationTimingTests.csproj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Avalonia_Apps/AvlnSamples/Avln_AnimationTimingTests/Avln_AnimationTimingTests.csproj b/Avalonia_Apps/AvlnSamples/Avln_AnimationTimingTests/Avln_AnimationTimingTests.csproj index de53f4cc3..f2cb13294 100644 --- a/Avalonia_Apps/AvlnSamples/Avln_AnimationTimingTests/Avln_AnimationTimingTests.csproj +++ b/Avalonia_Apps/AvlnSamples/Avln_AnimationTimingTests/Avln_AnimationTimingTests.csproj @@ -11,7 +11,7 @@ - + all runtime; build; native; contentfiles; analyzers; buildtransitive From 918106c78d7bb290a213843012bf7e41acf0e515 Mon Sep 17 00:00:00 2001 From: Joe Care Date: Mon, 20 Apr 2026 16:44:11 +0200 Subject: [PATCH 11/63] Avln_Brushes --- Avalonia_Apps/AvlnSamples/Avln_Brushes/Avln_Brushes.csproj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Avalonia_Apps/AvlnSamples/Avln_Brushes/Avln_Brushes.csproj b/Avalonia_Apps/AvlnSamples/Avln_Brushes/Avln_Brushes.csproj index 551245854..4a6c5fb89 100644 --- a/Avalonia_Apps/AvlnSamples/Avln_Brushes/Avln_Brushes.csproj +++ b/Avalonia_Apps/AvlnSamples/Avln_Brushes/Avln_Brushes.csproj @@ -28,7 +28,7 @@ - + From 9424fa2911cd44c1bf092eed96b7ff989b4dfc7e Mon Sep 17 00:00:00 2001 From: Joe Care Date: Mon, 20 Apr 2026 16:44:12 +0200 Subject: [PATCH 12/63] Avln_Complex_Layout --- .../AvlnSamples/Avln_Complex_Layout/Avln_Complex_Layout.csproj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Avalonia_Apps/AvlnSamples/Avln_Complex_Layout/Avln_Complex_Layout.csproj b/Avalonia_Apps/AvlnSamples/Avln_Complex_Layout/Avln_Complex_Layout.csproj index 77e663dba..6f6db7d8e 100644 --- a/Avalonia_Apps/AvlnSamples/Avln_Complex_Layout/Avln_Complex_Layout.csproj +++ b/Avalonia_Apps/AvlnSamples/Avln_Complex_Layout/Avln_Complex_Layout.csproj @@ -24,7 +24,7 @@ - + From fcf97f1fda1cfaf61cdeaf04cb3237d34c3eee3b Mon Sep 17 00:00:00 2001 From: Joe Care Date: Mon, 20 Apr 2026 16:44:13 +0200 Subject: [PATCH 13/63] Avln_CustomAnimation --- .../Avln_CustomAnimation/Avln_CustomAnimation.csproj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Avalonia_Apps/AvlnSamples/Avln_CustomAnimation/Avln_CustomAnimation.csproj b/Avalonia_Apps/AvlnSamples/Avln_CustomAnimation/Avln_CustomAnimation.csproj index cb18cc10e..38e960e9c 100644 --- a/Avalonia_Apps/AvlnSamples/Avln_CustomAnimation/Avln_CustomAnimation.csproj +++ b/Avalonia_Apps/AvlnSamples/Avln_CustomAnimation/Avln_CustomAnimation.csproj @@ -17,7 +17,7 @@ - + From 22f87d32b27712b8caeccedadadf867548e07395 Mon Sep 17 00:00:00 2001 From: Joe Care Date: Mon, 20 Apr 2026 16:44:13 +0200 Subject: [PATCH 14/63] Avln_Geometry --- Avalonia_Apps/AvlnSamples/Avln_Geometry/Avln_Geometry.csproj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Avalonia_Apps/AvlnSamples/Avln_Geometry/Avln_Geometry.csproj b/Avalonia_Apps/AvlnSamples/Avln_Geometry/Avln_Geometry.csproj index d5a0d1020..2bf00eb81 100644 --- a/Avalonia_Apps/AvlnSamples/Avln_Geometry/Avln_Geometry.csproj +++ b/Avalonia_Apps/AvlnSamples/Avln_Geometry/Avln_Geometry.csproj @@ -30,7 +30,7 @@ - + From 6269567a208d8f3629443ce536c60c516691968d Mon Sep 17 00:00:00 2001 From: Joe Care Date: Mon, 20 Apr 2026 16:44:14 +0200 Subject: [PATCH 15/63] Avln_Hello_World --- .../AvlnSamples/Avln_Hello_World/Avln_Hello_World.csproj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Avalonia_Apps/AvlnSamples/Avln_Hello_World/Avln_Hello_World.csproj b/Avalonia_Apps/AvlnSamples/Avln_Hello_World/Avln_Hello_World.csproj index fa27176fa..c0634e8b9 100644 --- a/Avalonia_Apps/AvlnSamples/Avln_Hello_World/Avln_Hello_World.csproj +++ b/Avalonia_Apps/AvlnSamples/Avln_Hello_World/Avln_Hello_World.csproj @@ -24,7 +24,7 @@ - + From cb46ae764b4c56bf2c07fceeffe3c82245aead30 Mon Sep 17 00:00:00 2001 From: Joe Care Date: Mon, 20 Apr 2026 16:44:14 +0200 Subject: [PATCH 16/63] Avln_Hello_WorldTests --- .../Avln_Hello_WorldTests/Avln_Hello_WorldTests.csproj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Avalonia_Apps/AvlnSamples/Avln_Hello_WorldTests/Avln_Hello_WorldTests.csproj b/Avalonia_Apps/AvlnSamples/Avln_Hello_WorldTests/Avln_Hello_WorldTests.csproj index be7c90cde..f062d5161 100644 --- a/Avalonia_Apps/AvlnSamples/Avln_Hello_WorldTests/Avln_Hello_WorldTests.csproj +++ b/Avalonia_Apps/AvlnSamples/Avln_Hello_WorldTests/Avln_Hello_WorldTests.csproj @@ -11,7 +11,7 @@ - + all runtime; build; native; contentfiles; analyzers; buildtransitive From 3e11cf7d334e9b7c8bc0bcce4f8b8cba5eed0e90 Mon Sep 17 00:00:00 2001 From: Joe Care Date: Mon, 20 Apr 2026 16:44:14 +0200 Subject: [PATCH 17/63] Avln_ImageView --- Avalonia_Apps/AvlnSamples/Avln_ImageView/Avln_ImageView.csproj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Avalonia_Apps/AvlnSamples/Avln_ImageView/Avln_ImageView.csproj b/Avalonia_Apps/AvlnSamples/Avln_ImageView/Avln_ImageView.csproj index 73c225143..bbc0bfe7f 100644 --- a/Avalonia_Apps/AvlnSamples/Avln_ImageView/Avln_ImageView.csproj +++ b/Avalonia_Apps/AvlnSamples/Avln_ImageView/Avln_ImageView.csproj @@ -18,7 +18,7 @@ - + From 1b883a5d51a514965be99bc2b9035fdb88edb29c Mon Sep 17 00:00:00 2001 From: Joe Care Date: Mon, 20 Apr 2026 16:44:15 +0200 Subject: [PATCH 18/63] Avln_IntegrationTestApp --- .../Avln_IntegrationTestApp/Avln_IntegrationTestApp.csproj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Avalonia_Apps/AvlnSamples/Avln_IntegrationTestApp/Avln_IntegrationTestApp.csproj b/Avalonia_Apps/AvlnSamples/Avln_IntegrationTestApp/Avln_IntegrationTestApp.csproj index 4843a87a5..11808d1a0 100644 --- a/Avalonia_Apps/AvlnSamples/Avln_IntegrationTestApp/Avln_IntegrationTestApp.csproj +++ b/Avalonia_Apps/AvlnSamples/Avln_IntegrationTestApp/Avln_IntegrationTestApp.csproj @@ -28,7 +28,7 @@ - + From b8f7d7adbb0722a55cf7db7963c51fdfa7712435 Mon Sep 17 00:00:00 2001 From: Joe Care Date: Mon, 20 Apr 2026 16:44:15 +0200 Subject: [PATCH 19/63] Avln_MoveWindow --- .../AvlnSamples/Avln_MoveWindow/Avln_MoveWindow.csproj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Avalonia_Apps/AvlnSamples/Avln_MoveWindow/Avln_MoveWindow.csproj b/Avalonia_Apps/AvlnSamples/Avln_MoveWindow/Avln_MoveWindow.csproj index acb1f3edf..e3cbceb45 100644 --- a/Avalonia_Apps/AvlnSamples/Avln_MoveWindow/Avln_MoveWindow.csproj +++ b/Avalonia_Apps/AvlnSamples/Avln_MoveWindow/Avln_MoveWindow.csproj @@ -24,7 +24,7 @@ - + From 6b33652fa7e51bb5c3d727d749eff3bfe61cbdfd Mon Sep 17 00:00:00 2001 From: Joe Care Date: Mon, 20 Apr 2026 16:44:15 +0200 Subject: [PATCH 20/63] Avln_MoveWindowTests --- .../Avln_MoveWindowTests/Avln_MoveWindowTests.csproj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Avalonia_Apps/AvlnSamples/Avln_MoveWindowTests/Avln_MoveWindowTests.csproj b/Avalonia_Apps/AvlnSamples/Avln_MoveWindowTests/Avln_MoveWindowTests.csproj index eff889143..bc7497dea 100644 --- a/Avalonia_Apps/AvlnSamples/Avln_MoveWindowTests/Avln_MoveWindowTests.csproj +++ b/Avalonia_Apps/AvlnSamples/Avln_MoveWindowTests/Avln_MoveWindowTests.csproj @@ -11,7 +11,7 @@ - + all runtime; build; native; contentfiles; analyzers; buildtransitive From d95d800a9a850f83716220a81f6a88ef65e4d836 Mon Sep 17 00:00:00 2001 From: Joe Care Date: Mon, 20 Apr 2026 16:44:16 +0200 Subject: [PATCH 21/63] Avln_RenderDemo --- .../AvlnSamples/Avln_RenderDemo/Avln_RenderDemo.csproj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Avalonia_Apps/AvlnSamples/Avln_RenderDemo/Avln_RenderDemo.csproj b/Avalonia_Apps/AvlnSamples/Avln_RenderDemo/Avln_RenderDemo.csproj index 439aaa42c..cee076ff3 100644 --- a/Avalonia_Apps/AvlnSamples/Avln_RenderDemo/Avln_RenderDemo.csproj +++ b/Avalonia_Apps/AvlnSamples/Avln_RenderDemo/Avln_RenderDemo.csproj @@ -18,7 +18,7 @@ - + From d73be685ffb63350d2ad9d09993b809c55d392fd Mon Sep 17 00:00:00 2001 From: Joe Care Date: Mon, 20 Apr 2026 16:44:16 +0200 Subject: [PATCH 22/63] Avln_Sample_Template --- .../Avln_Sample_Template/Avln_Sample_Template.csproj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Avalonia_Apps/AvlnSamples/Avln_Sample_Template/Avln_Sample_Template.csproj b/Avalonia_Apps/AvlnSamples/Avln_Sample_Template/Avln_Sample_Template.csproj index dc7fbe676..192d1f127 100644 --- a/Avalonia_Apps/AvlnSamples/Avln_Sample_Template/Avln_Sample_Template.csproj +++ b/Avalonia_Apps/AvlnSamples/Avln_Sample_Template/Avln_Sample_Template.csproj @@ -24,7 +24,7 @@ - + From 72afc1c8ba3b0efe1ac5ae73223584575f919fa1 Mon Sep 17 00:00:00 2001 From: Joe Care Date: Mon, 20 Apr 2026 16:44:39 +0200 Subject: [PATCH 23/63] Avln_BaseLib --- Avalonia_Apps/Libraries/Avln_BaseLib/Avln_BaseLib.csproj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Avalonia_Apps/Libraries/Avln_BaseLib/Avln_BaseLib.csproj b/Avalonia_Apps/Libraries/Avln_BaseLib/Avln_BaseLib.csproj index e986b9b5a..7ef5843ed 100644 --- a/Avalonia_Apps/Libraries/Avln_BaseLib/Avln_BaseLib.csproj +++ b/Avalonia_Apps/Libraries/Avln_BaseLib/Avln_BaseLib.csproj @@ -29,7 +29,7 @@ - + From 94cf47b894c345d9039124f64349c14c98b3edb3 Mon Sep 17 00:00:00 2001 From: Joe Care Date: Mon, 20 Apr 2026 16:44:39 +0200 Subject: [PATCH 24/63] Avln_BaseLibTests --- .../Libraries/Avln_BaseLibTests/Avln_BaseLibTests.csproj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Avalonia_Apps/Libraries/Avln_BaseLibTests/Avln_BaseLibTests.csproj b/Avalonia_Apps/Libraries/Avln_BaseLibTests/Avln_BaseLibTests.csproj index 151cd9e6f..f02dc2086 100644 --- a/Avalonia_Apps/Libraries/Avln_BaseLibTests/Avln_BaseLibTests.csproj +++ b/Avalonia_Apps/Libraries/Avln_BaseLibTests/Avln_BaseLibTests.csproj @@ -18,7 +18,7 @@ - + all runtime; build; native; contentfiles; analyzers; buildtransitive From d531c9cde0cac17133c8b5e9dad3ba959c073bb5 Mon Sep 17 00:00:00 2001 From: Joe Care Date: Mon, 20 Apr 2026 16:44:41 +0200 Subject: [PATCH 25/63] BaseLib --- Avalonia_Apps/Libraries/BaseLib/BaseLib.csproj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Avalonia_Apps/Libraries/BaseLib/BaseLib.csproj b/Avalonia_Apps/Libraries/BaseLib/BaseLib.csproj index c6fd681ff..e81b727d4 100644 --- a/Avalonia_Apps/Libraries/BaseLib/BaseLib.csproj +++ b/Avalonia_Apps/Libraries/BaseLib/BaseLib.csproj @@ -31,6 +31,6 @@ - + \ No newline at end of file From 22a9eacb381914acbea3d37b525d4b9207d93baa Mon Sep 17 00:00:00 2001 From: Joe Care Date: Mon, 20 Apr 2026 16:44:41 +0200 Subject: [PATCH 26/63] BaseLibTests --- Avalonia_Apps/Libraries/BaseLibTests/BaseLibTests.csproj | 2 +- .../Libraries/BaseLibTests/Models/FileProxyTests.cs | 8 ++++---- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/Avalonia_Apps/Libraries/BaseLibTests/BaseLibTests.csproj b/Avalonia_Apps/Libraries/BaseLibTests/BaseLibTests.csproj index 8d729d6ba..838f80605 100644 --- a/Avalonia_Apps/Libraries/BaseLibTests/BaseLibTests.csproj +++ b/Avalonia_Apps/Libraries/BaseLibTests/BaseLibTests.csproj @@ -16,7 +16,7 @@ - + all runtime; build; native; contentfiles; analyzers; buildtransitive diff --git a/Avalonia_Apps/Libraries/BaseLibTests/Models/FileProxyTests.cs b/Avalonia_Apps/Libraries/BaseLibTests/Models/FileProxyTests.cs index d01734aff..a5821bf1c 100644 --- a/Avalonia_Apps/Libraries/BaseLibTests/Models/FileProxyTests.cs +++ b/Avalonia_Apps/Libraries/BaseLibTests/Models/FileProxyTests.cs @@ -26,7 +26,7 @@ public void TestCleanup() Directory.Delete(_sTestDirectory, recursive: true); } - [DataTestMethod] + [TestMethod] [DataRow(false)] [DataRow(true)] public void Exists_ForFilePresence_ReturnsExpectedResult(bool xCreateFile) @@ -84,7 +84,7 @@ public void OpenRead_ForExistingFile_ReturnsReadableStream() CollectionAssert.AreEqual(rgBytes, stmMemory.ToArray()); } - [DataTestMethod] + [TestMethod] [DataRow("Plain UTF8 text")] [DataRow("äöü ß Ελληνικά")] public void WriteAllText_WithoutEncoding_WritesReadableUtf8Content(string sContents) @@ -96,7 +96,7 @@ public void WriteAllText_WithoutEncoding_WritesReadableUtf8Content(string sConte Assert.AreEqual(sContents, File.ReadAllText(sPath)); } - [DataTestMethod] + [TestMethod] [DataRow("Plain UTF8 text")] [DataRow("äöü ß Ελληνικά")] public void ReadAllText_WithoutEncoding_ReturnsFileContent(string sContents) @@ -168,7 +168,7 @@ public void Delete_RemovesFile() Assert.IsFalse(File.Exists(sPath)); } - [DataTestMethod] + [TestMethod] [DataRow(false, "source")] [DataRow(true, "new")] public void Copy_CopiesFileToDestination(bool xOverwrite, string sExpectedDestinationContent) From a78341ddd44c5806510d5c10ab8f84392a34f1b4 Mon Sep 17 00:00:00 2001 From: Joe Care Date: Mon, 20 Apr 2026 16:44:43 +0200 Subject: [PATCH 27/63] RenderImage.BaseTests --- .../RenderImage.BaseTests/RenderImage.BaseTests.csproj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Avalonia_Apps/RenderImage.BaseTests/RenderImage.BaseTests.csproj b/Avalonia_Apps/RenderImage.BaseTests/RenderImage.BaseTests.csproj index 53de2cc54..456a9025f 100644 --- a/Avalonia_Apps/RenderImage.BaseTests/RenderImage.BaseTests.csproj +++ b/Avalonia_Apps/RenderImage.BaseTests/RenderImage.BaseTests.csproj @@ -10,7 +10,7 @@ - + all runtime; build; native; contentfiles; analyzers; buildtransitive From 3babb8edce94819bc9d674731bbaf240e420031a Mon Sep 17 00:00:00 2001 From: Joe Care Date: Mon, 20 Apr 2026 16:44:46 +0200 Subject: [PATCH 28/63] Avalonia_Apps --- Avalonia_Apps/.github/copilot-instructions.md | 54 +++++++++++++++++-- .../AA21_Buttons/Directory.Packages.props | 2 +- Avalonia_Apps/Packages.props | 14 ++--- 3 files changed, 59 insertions(+), 11 deletions(-) diff --git a/Avalonia_Apps/.github/copilot-instructions.md b/Avalonia_Apps/.github/copilot-instructions.md index 9c684e023..c311a9245 100644 --- a/Avalonia_Apps/.github/copilot-instructions.md +++ b/Avalonia_Apps/.github/copilot-instructions.md @@ -1,4 +1,52 @@ -# Copilot Instructions +# Repository instructions for GitHub Copilot -## Projektrichtlinien -- Im Projekt gilt die Regel: eine Klasse pro Datei, Ausnahme nur für zusammengehörige Paare `Foo` und `Foo`. \ No newline at end of file +Apply these defaults when working in this repository unless the user explicitly asks otherwise: + +## General Guidelines +- Document code thoroughly in English. +- Validate changes with relevant builds and tests before finishing. +- If requirements are unclear, ask clarifying questions before starting implementation or planning refinement. +- Avoid UI text strings in core services. Use Enumerations instead, and keep UI-facing strings in the ViewModel/UI layer. +- Prefer one class/interface/struct per file. +- Document changes in a DevOps manner using Markdown, extrapolating bugs, tasks, backlogs, and features. +- Use `DevOps` as the planning directory in this workspace, and treat `.Info.md` as the general planning description file. Team terminology around Azure DevOps backlog items may differ from generic 'story' naming. +- When reviewing build warnings in this repository, ignore unsupported older framework warnings if the project also targets newer supported frameworks. Additionally, ignore `IDE0130` warnings in test projects. +- Keep project-specific decisions in the repository `DevOps` folder; do not store them in memory for this repository. Use memory only for general solution-wide working preferences. +- Planning should be done step by step in the `DevOps` directory with a Scrum-oriented structure. +- Extract complex UI elements into separate widgets/components to keep main windows clean and simple. + +## Testing +- Use `MSTest` in the latest practical version for new or updated tests. +- Use `NSubstitute` for mocks, stubs, and substitutes in tests. +- Prefer `DataRow` for parameterized single-test scenarios. + +## Internationalization +- Keep I18N in mind when writing code, ensuring it can be easily adapted for different languages and regions. + +## Architecture +- Use MVVM architecture for UI components to separate concerns and improve testability, using CommunityToolkit.Mvvm for MVVM implementation. +- Prefer `NotifyPropertyChangedFor` over manual `OnPropertyChanged(nameof(...))` in CommunityToolkit.Mvvm observable properties where applicable. +- Use Dependency Injection to manage dependencies and improve testability, using Microsoft.Extensions.DependencyInjection. +- UI-facing strings and summary formatting should stay in the ViewModel/UI layer, not in extracted application logic services. + +## Naming Conventions +- Distinguish between UI control naming and variable/field naming. +- Use PascalCase for class names, method names, and properties. +- Use `_camelCase` for private fields. +- Use `camelCase` for local variables and parameters. +- Use short 1-character prefixes for simple types only when they meaningfully disambiguate, e.g. + - `s` for `string` + - `i` for signed integer types + - `u` for unsigned integer types + - `x` for `bool` + - `f` for `float`, `double`, or `decimal` +- Prefer meaningful domain names over type prefixes when the intent is already clear. +- In UI code, use short 3-character prefixes for actual controls in views and code-behind, e.g. + - `lst` for list controls + - `btn` for all kinds of buttons + - `edt` for any keyboard input control + - `lbl` for any text output control +- Do not use UI control prefixes for ViewModel properties or other non-UI members. + +## Nullability +- Use strict nullable reference types to indicate when a variable can be null, and handle nullability appropriately in code. diff --git a/Avalonia_Apps/AA21_Buttons/Directory.Packages.props b/Avalonia_Apps/AA21_Buttons/Directory.Packages.props index 190c4d639..94540e818 100644 --- a/Avalonia_Apps/AA21_Buttons/Directory.Packages.props +++ b/Avalonia_Apps/AA21_Buttons/Directory.Packages.props @@ -23,7 +23,7 @@ - + diff --git a/Avalonia_Apps/Packages.props b/Avalonia_Apps/Packages.props index ddaff1811..354b33d12 100644 --- a/Avalonia_Apps/Packages.props +++ b/Avalonia_Apps/Packages.props @@ -16,7 +16,7 @@ - + @@ -25,16 +25,16 @@ - - - - - + + + + + - + From b19dc4e9e7108a186b2a936546a8448a5788758c Mon Sep 17 00:00:00 2001 From: Joe Care Date: Mon, 20 Apr 2026 18:24:32 +0200 Subject: [PATCH 29/63] AppWithPlugin --- TestStatements/AppWithPlugin/AppWithPlugin.csproj | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/TestStatements/AppWithPlugin/AppWithPlugin.csproj b/TestStatements/AppWithPlugin/AppWithPlugin.csproj index 3bc4d0569..141d83632 100644 --- a/TestStatements/AppWithPlugin/AppWithPlugin.csproj +++ b/TestStatements/AppWithPlugin/AppWithPlugin.csproj @@ -25,9 +25,9 @@ - - - + + + From c88f656d024c679587e6c348378efa7973bbf174 Mon Sep 17 00:00:00 2001 From: Joe Care Date: Mon, 20 Apr 2026 18:24:33 +0200 Subject: [PATCH 30/63] AppWithPluginWpf --- TestStatements/AppWithPluginWpf/AppWithPluginWpf.csproj | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/TestStatements/AppWithPluginWpf/AppWithPluginWpf.csproj b/TestStatements/AppWithPluginWpf/AppWithPluginWpf.csproj index ae4ecf026..bca8da093 100644 --- a/TestStatements/AppWithPluginWpf/AppWithPluginWpf.csproj +++ b/TestStatements/AppWithPluginWpf/AppWithPluginWpf.csproj @@ -23,9 +23,9 @@ - - - + + + From aead6f04d93c359db48a5a11d677bd9190841826 Mon Sep 17 00:00:00 2001 From: Joe Care Date: Mon, 20 Apr 2026 18:24:36 +0200 Subject: [PATCH 31/63] ConsoleDI.Example --- TestStatements/ConsoleDI.Example/ConsoleDI.Example.csproj | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/TestStatements/ConsoleDI.Example/ConsoleDI.Example.csproj b/TestStatements/ConsoleDI.Example/ConsoleDI.Example.csproj index 2b7a94fb6..c09a2fd55 100644 --- a/TestStatements/ConsoleDI.Example/ConsoleDI.Example.csproj +++ b/TestStatements/ConsoleDI.Example/ConsoleDI.Example.csproj @@ -11,8 +11,8 @@ - - + + From f0cae4e958862bff6566f900e1106acbcd80e2b2 Mon Sep 17 00:00:00 2001 From: Joe Care Date: Mon, 20 Apr 2026 18:24:39 +0200 Subject: [PATCH 32/63] HelloPlugin --- TestStatements/HelloPlugin/HelloPlugin.csproj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/TestStatements/HelloPlugin/HelloPlugin.csproj b/TestStatements/HelloPlugin/HelloPlugin.csproj index ad2e2388a..a24a5a3ae 100644 --- a/TestStatements/HelloPlugin/HelloPlugin.csproj +++ b/TestStatements/HelloPlugin/HelloPlugin.csproj @@ -25,7 +25,7 @@ - + From 9a7e16af3586f398338e96fd099f40a6686d40dd Mon Sep 17 00:00:00 2001 From: Joe Care Date: Mon, 20 Apr 2026 18:24:39 +0200 Subject: [PATCH 33/63] HelloPluginTest --- TestStatements/HelloPluginTest/HelloPluginTest.csproj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/TestStatements/HelloPluginTest/HelloPluginTest.csproj b/TestStatements/HelloPluginTest/HelloPluginTest.csproj index a3416fb6e..7cd8ae463 100644 --- a/TestStatements/HelloPluginTest/HelloPluginTest.csproj +++ b/TestStatements/HelloPluginTest/HelloPluginTest.csproj @@ -17,7 +17,7 @@ - + From 0cb7fcfc3aef35e6ea4e8fe6d2cccfc60f76b71c Mon Sep 17 00:00:00 2001 From: Joe Care Date: Mon, 20 Apr 2026 18:24:39 +0200 Subject: [PATCH 34/63] OtherPlugin --- TestStatements/OtherPlugin/OtherPlugin.csproj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/TestStatements/OtherPlugin/OtherPlugin.csproj b/TestStatements/OtherPlugin/OtherPlugin.csproj index 81947bee8..0470f89bd 100644 --- a/TestStatements/OtherPlugin/OtherPlugin.csproj +++ b/TestStatements/OtherPlugin/OtherPlugin.csproj @@ -21,7 +21,7 @@ ..\snKey.snk - + From fab728537291fe2e420cebb4ceba236a8883b624 Mon Sep 17 00:00:00 2001 From: Joe Care Date: Mon, 20 Apr 2026 18:24:47 +0200 Subject: [PATCH 35/63] TestStatements --- TestStatements/TestStatements/TestStatements.csproj | 4 ++-- TestStatements/TestStatements/TestStatements_net.csproj | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/TestStatements/TestStatements/TestStatements.csproj b/TestStatements/TestStatements/TestStatements.csproj index 3557228da..36600d630 100644 --- a/TestStatements/TestStatements/TestStatements.csproj +++ b/TestStatements/TestStatements/TestStatements.csproj @@ -58,8 +58,8 @@ - - + + diff --git a/TestStatements/TestStatements/TestStatements_net.csproj b/TestStatements/TestStatements/TestStatements_net.csproj index da7c02a5b..1d990c84b 100644 --- a/TestStatements/TestStatements/TestStatements_net.csproj +++ b/TestStatements/TestStatements/TestStatements_net.csproj @@ -62,8 +62,8 @@ - - + + From a9d6234a26e8a8a8cf5fef3083c738f0757ca3f3 Mon Sep 17 00:00:00 2001 From: Joe Care Date: Mon, 20 Apr 2026 18:24:49 +0200 Subject: [PATCH 36/63] TestStatementsTest --- TestStatements/TestStatementsTest/TestStatementsTest.csproj | 2 +- TestStatements/TestStatementsTest/TestStatements_netTest.csproj | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/TestStatements/TestStatementsTest/TestStatementsTest.csproj b/TestStatements/TestStatementsTest/TestStatementsTest.csproj index 12fff3947..edc7eb3a6 100644 --- a/TestStatements/TestStatementsTest/TestStatementsTest.csproj +++ b/TestStatements/TestStatementsTest/TestStatementsTest.csproj @@ -35,7 +35,7 @@ - + all runtime; build; native; contentfiles; analyzers; buildtransitive diff --git a/TestStatements/TestStatementsTest/TestStatements_netTest.csproj b/TestStatements/TestStatementsTest/TestStatements_netTest.csproj index c2ce4eeb0..bd372aadf 100644 --- a/TestStatements/TestStatementsTest/TestStatements_netTest.csproj +++ b/TestStatements/TestStatementsTest/TestStatements_netTest.csproj @@ -42,7 +42,7 @@ - + all runtime; build; native; contentfiles; analyzers; buildtransitive From f45cabe0561905594efc4346483652390017e859 Mon Sep 17 00:00:00 2001 From: Joe Care Date: Tue, 21 Apr 2026 23:57:10 +0200 Subject: [PATCH 37/63] Transpiler_pp --- Transpiler_pp/.info | 0 .../Analyzer1.CodeFixes.csproj | 22 - .../Analyzer1CodeFixProvider.cs | 71 - .../CodeFixResources.Designer.cs | 72 - .../CodeFixResources.de.resx | 123 - .../Analyzer1.CodeFixes/CodeFixResources.resx | 124 - .../Analyzer1.Package.csproj | 45 - Transpiler_pp/Analyzer1/Analyzer1.Test/.info | 0 .../Analyzer1.Test/Analyzer1.Test.csproj | 28 - .../Analyzer1.Test/Analyzer1UnitTests.cs | 59 - .../CSharpAnalyzerVerifier`1+Test.cs | 24 - .../Verifiers/CSharpAnalyzerVerifier`1.cs | 37 - .../Verifiers/CSharpCodeFixVerifier`2+Test.cs | 26 - .../Verifiers/CSharpCodeFixVerifier`2.cs | 60 - .../CSharpCodeRefactoringVerifier`1+Test.cs | 25 - .../CSharpCodeRefactoringVerifier`1.cs | 36 - .../Verifiers/CSharpVerifierHelper.cs | 33 - .../VisualBasicAnalyzerVerifier`1+Test.cs | 16 - .../VisualBasicAnalyzerVerifier`1.cs | 37 - .../VisualBasicCodeFixVerifier`2+Test.cs | 15 - .../Verifiers/VisualBasicCodeFixVerifier`2.cs | 60 - ...sualBasicCodeRefactoringVerifier`1+Test.cs | 13 - .../VisualBasicCodeRefactoringVerifier`1.cs | 36 - .../Analyzer1.Vsix/Analyzer1.Vsix.csproj | 48 - Transpiler_pp/Analyzer1/Analyzer1.props | 8 - Transpiler_pp/Analyzer1/Analyzer1/.info | 1 - .../Analyzer1/Analyzer1/Analyzer1.csproj | 26 - .../Analyzer1/Analyzer1/Analyzer1Analyzer.cs | 54 - .../Analyzer1/Analyzer1/Resources.Designer.cs | 90 - .../Analyzer1/Analyzer1/Resources.de.resx | 129 - .../Analyzer1/Analyzer1/Resources.resx | 132 - Transpiler_pp/CONTRIBUTING.md | 26 - Transpiler_pp/ResXManager.config.xml | 2 - Transpiler_pp/Transpiler.props | 16 - Transpiler_pp/Transpiler.sln | 427 - Transpiler_pp/TranspilerConsTest/.info | 0 .../TranspilerConsTest/Model/JsonOutput.cs | 54 - .../TranspilerConsTest/Model/XmlOutput.cs | 48 - Transpiler_pp/TranspilerConsTest/Program.cs | 27 - .../Properties/launchSettings.json | 12 - .../Resources/fbCalcWinkelVector.json | 112 - .../Resources/fbCalcWinkelvVector.xml | 100 - .../Resources/udtVector.json | 114 - .../Resources/udtVector.xml | 71 - .../TranspilerConsTest.csproj | 22 - .../AssemblyInfo.cs | 3 - .../Models/Scanner/CCodeBlockTests.cs | 134 - .../Models/Scanner/CSCodeTests.cs | 341 - .../Models/Scanner/CSTokenHandlerTests.cs | 228 - .../TestData/TestCSDataClass.cs | 3348 ------ .../TranspilerLib.CSharp.Tests.csproj | 41 - .../Data/CSReservedWords.cs | 36 - .../Data/ECSharpResWords1.cs | 27 - .../Interfaces/Code/ICSCode.cs | 39 - .../Models/Scanner/CSCode.cs | 240 - .../Models/Scanner/CSCodeBuilder.cs | 180 - .../Models/Scanner/CSTokenHandler.cs | 204 - .../Models/Scanner/CodeOptimizer.cs | 308 - .../TranspilerLib.CSharp.csproj | 22 - .../AssemblyInfo.cs | 3 - .../Models/DriveCompilerTests.cs | 712 -- .../TranspilerLib.DriveBASIC.Tests.csproj | 41 - .../Data/DriveCommand.cs | 58 - .../Data/EDriveToken.cs | 110 - .../Data/EExpressionOperation.cs | 90 - .../TranspilerLib.DriveBASIC/Data/EVarType.cs | 34 - .../Data/Interfaces/IDriveCommand.cs | 10 - .../Data/Interfaces/ILabel.cs | 8 - .../Data/Interfaces/IVariable.cs | 8 - .../TranspilerLib.DriveBASIC/Data/ParseDef.cs | 3 - .../Data/ParseDef2.cs | 6 - .../Data/ParseDefinitions.cs | 171 - .../Models/CommandBuilderState.cs | 33 - .../Models/CompilerLabel.cs | 11 - .../Models/CompilerVariable.cs | 13 - .../Models/DriveCompiler.Compile.cs | 144 - .../Models/DriveCompiler.Decompile.cs | 205 - .../Models/DriveCompiler.Emit.cs | 546 - .../Models/DriveCompiler.Parse.cs | 148 - .../Models/DriveCompiler.cs | 162 - .../TranspilerLib.DriveBASIC.csproj | 24 - .../TranspilerLib.IEC.Tests/AssemblyInfo.cs | 3 - .../Models/ExtOutputTests.cs | 148 - .../Models/Interpreter/IECInterpreterTests.cs | 178 - .../Models/Scanner/IECCodeBuilderTests.cs | 123 - .../Models/Scanner/IECCodeTests.cs | 113 - .../Models/Scanner/IECTokenHandlerTests.cs | 157 - .../TestData/IECTestDataClass.cs | 127 - .../TranspilerLib.IEC.Tests.csproj | 41 - .../Interpreter/IECInterpreter.cs | 138 - .../TranspilerLib.IEC/Models/ExtOutput.cs | 277 - .../TranspilerLib.IEC/Models/IECReader.cs | 84 - .../Models/Scanner/IECCode.cs | 146 - .../Models/Scanner/IECCodeBlock.cs | 73 - .../Models/Scanner/IECCodeBuilder.cs | 261 - .../Models/Scanner/IECResWords.cs | 63 - .../Models/Scanner/IECTokenHandler.cs | 297 - .../TranspilerLib.IEC.csproj | 19 - .../AssemblyInfo.cs | 3 - .../Helper/GenericInterfaceConverter.cs | 230 - .../Helper/ICodeBlockPasCodeBlockConverter.cs | 20 - .../Helper/SerializeTests.cs | 75 - .../Models/Interpreter/PasInterpreterTests.cs | 218 - .../Models/LfmObjectBuilderTests.cs | 314 - .../Models/LfmTokenTests.cs | 39 - .../Models/LfmTokenizerTests.cs | 91 - .../Scanner/PasCodeBuilderReproTests.cs | 144 - .../Models/Scanner/PasCodeTests.cs | 423 - .../IOPCC/IOPCC_ExpectedCodeBlocks.json | 1407 --- .../Resources/IOPCC/IOPCC_ExpectedTokens.json | 1 - .../Resources/IOPCC/iopcc_source.pas | 39 - .../Resources/Lfm1/Lfm1_Source.lfm | 149 - .../Resources/Lfm1/Lfm1_actual.json | 1 - .../Resources/Lfm1/Lfm1_expected.json | 1 - .../Resources/Lfm2/Lfm2_expected.json | 1 - .../Resources/Lfm2/Lfm2_source.lfm | 600 -- .../Resources/Lfm3/Lfm3_Source.lfm | 1078 -- .../Resources/Lfm3/Lfm3_expected.json | 1 - .../Resources/Lfm4/Lfm4_Source.lfm | 58 - .../Resources/Lfm4/Lfm4_expected.json | 1 - .../Resources/Test1/ReadMe.md | 9 - .../Test1/Test1_ExpectedCodeBlocks.json | 41 - .../Resources/Test1/Test1_ExpectedTokens.json | 1 - .../Resources/Test1/Test1_Source.pas | 3 - .../Resources/Test2/ReadMe.md | 10 - .../Test2/Test2_ExpectedCodeBlocks.json | 42 - .../Resources/Test2/Test2_ExpectedTokens.json | 1 - .../Resources/Test2/Test2_Source.pas | 4 - .../Resources/Test3/ReadMe.md | 9 - .../Test3/Test3_ExpectedCodeBlocks.json | 137 - .../Resources/Test3/Test3_ExpectedTokens.json | 31 - .../Resources/Test3/Test3_Source.pas | 10 - .../Resources/Test4/ReadMe.md | 10 - .../Test4/Test4_ExpectedCodeBlocks.json | 130 - .../Resources/Test4/Test4_ExpectedTokens.json | 28 - .../Resources/Test4/Test4_Source.pas | 11 - .../Test4/Test4_actual_codeblocks.json | 130 - .../Resources/Test5/ReadMe.md | 10 - .../Test5/Test5_ExpectedCodeBlocks.json | 1 - .../Resources/Test5/Test5_ExpectedTokens.json | 1 - .../Resources/Test5/Test5_Source.pas | 1 - .../TranspilerLib.Pascal.Tests.csproj | 41 - .../TranspilerLib.Pascal/Data/EPasResWords.cs | 44 - .../Data/PasReservedWords.cs | 11 - .../Interpreter/PasInterpreter.cs | 198 - .../TranspilerLib.Pascal/Models/LfmObject.cs | 19 - .../Models/LfmObjectBuilder.cs | 393 - .../Models/LfmProperty.cs | 53 - .../TranspilerLib.Pascal/Models/LfmToken.cs | 22 - .../Models/LfmTokenType.cs | 28 - .../Models/LfmTokenizer.cs | 236 - .../Models/Scanner/PasCode.cs | 56 - .../Models/Scanner/PasCodeBlock.cs | 35 - .../Scanner/PasCodeBuilder.BuildBlock.cs | 48 - .../Models/Scanner/PasCodeBuilder.cs | 468 - .../Models/Scanner/PasTokenHandler.cs | 252 - .../TranspilerLib.Pascal.csproj | 21 - Transpiler_pp/TranspilerLib/.info | 1 - Transpiler_pp/TranspilerLib/Data/CharSets.cs | 55 - .../TranspilerLib/Data/CodeBlockType.cs | 109 - Transpiler_pp/TranspilerLib/Data/TokenData.cs | 40 - .../TranspilerLib/Docs/TranspilerLib.xml | 1892 ---- .../Interfaces/Code/ICodeBase.cs | 79 - .../Interfaces/Code/ICodeBlock.cs | 122 - .../Interfaces/Code/ICodeBuilder.cs | 25 - .../Interfaces/Code/ICodeBuilderData.cs | 32 - .../Interfaces/Code/ICodeOptimizer.cs | 19 - .../TranspilerLib/Interfaces/Code/IIECCode.cs | 11 - .../Interfaces/Code/ITokenHandler.cs | 24 - .../TranspilerLib/Interfaces/IHasParents.cs | 21 - .../TranspilerLib/Interfaces/IInterpreter.cs | 8 - .../TranspilerLib/Interfaces/IOutput.cs | 17 - .../TranspilerLib/Interfaces/IReader.cs | 99 - .../TranspilerLib/Models/CFileScanner.cs | 37 - .../TranspilerLib/Models/CPascalScanner.cs | 16 - .../TranspilerLib/Models/EMessageType.cs | 42 - Transpiler_pp/TranspilerLib/Models/EToken.cs | 300 - .../Models/Interpreter/InterpData.cs | 23 - .../Models/Interpreter/InterpreterBase.cs | 7 - .../TranspilerLib/Models/ParentedItemsList.cs | 139 - .../TranspilerLib/Models/Scanner/CodeBase.cs | 50 - .../TranspilerLib/Models/Scanner/CodeBlock.cs | 441 - .../Models/Scanner/CodeBuilder.cs | 89 - .../Models/Scanner/TokenHandlerBase.cs | 84 - .../Models/Scanner/TokenizeData.cs | 44 - .../TranspilerLib/Models/TStrings.cs | 7 - .../Properties/Resources.Designer.cs | 369 - .../Properties/Resources.de.resx | 222 - .../TranspilerLib/Properties/Resources.resx | 222 - .../TranspilerLib/TranspilerLib.csproj | 41 - Transpiler_pp/TranspilerLibTests/.info | 1 - .../TranspilerLibTests/AssemblyInfo.cs | 3 - .../TranspilerLibTests/Data/TokenDataTests.cs | 15 - .../TranspilerLibTests/Helper/TestHelper.cs | 152 - .../Models/ParentedItemsListTests.cs | 170 - .../TranspilerLibTests/Models/TestBase.cs | 38 - .../Properties/Resources.Designer.cs | 1341 --- .../Properties/Resources.resx | 298 - .../IECCodeBuilder/Test00/Blocks00.json | 1 - .../IECCodeBuilder/Test00/Blocks00.txt | 4 - .../IECCodeBuilder/Test01/Blocks01.json | 52 - .../IECCodeBuilder/Test01/Blocks01.txt | 8 - .../IECCodeBuilder/Test01/Tokens01.json | 20 - .../IECCodeBuilder/Test02/Blocks02.txt | 12 - .../IECCodeBuilder/Test02/Tokens02.json | 1304 --- .../IECCodeBuilder/Test03/Tokens03.json | 1304 --- .../IECCodeBuilder/Test04/Blocks04.txt | 16 - .../IECCodeBuilder/Test04/Tokens04.json | 45 - .../IECCodeBuilder/Test05/Blocks05.txt | 16 - .../IECCodeBuilder/Test05/Tokens05.json | 45 - .../IECCodeBuilder/Test06/Tokens06.json | 45 - .../IECCodeBuilder/Test07/Tokens07.json | 45 - .../Resources/IEC_00/IECTestDataList0.json | 1 - .../Resources/IEC_01/ExpLog01.txt | 23 - .../Resources/IEC_01/IECTestDataList1.json | 1 - .../Resources/IEC_01/TestCode01.ext | 10 - .../Resources/IEC_01/TestExpCode01.txt | 10 - .../Resources/IEC_01/TestExpParse01.txt | 48 - .../Resources/IEC_02/ExpLog02.txt | 217 - .../Resources/IEC_02/IECTestDataList2.json | 1 - .../Resources/IEC_02/TestCode02.ext | 23 - .../Resources/IEC_02/TestExpCode02.txt | 1 - .../Resources/IEC_02/TestExpParse02.txt | 1 - .../Resources/Test01/Test1Dat.cs | 307 - .../Resources/Test01/Test1Dat.cs.txt | 307 - .../Resources/Test01/Test1DataList.json | 1 - .../Resources/Test01/Test1ExpCode.txt | 307 - .../Resources/Test01/Test1ExpParse.txt | 614 -- .../Resources/Test01/Test1ExpParseRL.txt | 348 - .../Resources/Test01/Test1ExpParseSL.txt | 614 -- .../Resources/Test01/Test1ExpTokenize.txt | 355 - .../Resources/Test02/Test2Dat.cs | 110 - .../Resources/Test02/Test2Dat.cs.txt | 110 - .../Resources/Test02/Test2DataList.json | 1 - .../Resources/Test02/Test2ExpCode.txt | 111 - .../Resources/Test02/Test2ExpParse.txt | 222 - .../Resources/Test02/Test2ExpParseRL.txt | 158 - .../Resources/Test02/Test2ExpParseSL.txt | 222 - .../Resources/Test02/Test2ExpTokenize.txt | 126 - .../Resources/Test08/Test8Dat.cs | 21 - .../Resources/Test08/Test8DataList.json | 1 - .../Resources/Test08/Test8ExpCode.txt | 21 - .../Resources/Test08/Test8ExpParse.txt | 42 - .../Resources/Test08/Test8ExpTokenize.txt | 22 - .../Resources/Test09/Test9Dat.cs | 4581 --------- .../Resources/Test09/Test9Dat.cs.txt | 4581 --------- .../Resources/Test09/Test9DataList.json | 1 - .../Resources/Test09/Test9ExpCode.txt | 4576 --------- .../Resources/Test09/Test9ExpParse.txt | 9152 ----------------- .../Resources/Test09/Test9ExpParseRL.txt | 3326 ------ .../Resources/Test09/Test9ExpParseSL.txt | 9152 ----------------- .../Resources/Test09/Test9ExpTokenize.txt | 5062 --------- .../Resources/Test0DataList.json | 1 - .../Resources/Test10/Test10Dat.cs | 4 - .../Resources/Test10/Test10DataList.json | 1 - .../Resources/Test10/Test10ExpCode.txt | 4 - .../Resources/Test10/Test10ExpParse.txt | 8 - .../Resources/Test10/Test10ExpTokenize.txt | 4 - .../Resources/Test11/Test11Dat.cs | 17 - .../Resources/Test11/Test11DataList.json | 1 - .../Resources/Test11/Test11ExpCode.txt | 17 - .../Resources/Test11/Test11ExpParse.txt | 34 - .../Resources/Test11/Test11ExpTokenize.txt | 32 - .../Resources/Test12/Test12Dat.cs | 45 - .../Resources/Test12/Test12DataList.json | 1 - .../Resources/Test12/Test12ExpCode.txt | 44 - .../Resources/Test12/Test12ExpParse.txt | 88 - .../Resources/Test12/Test12ExpParseRL.txt | 56 - .../Resources/Test12/Test12ExpTokenize.txt | 48 - .../Resources/Test13/Test13Dat.cs | 5 - .../Resources/Test13/Test13DataList.json | 1 - .../Resources/Test13/Test13ExpCode.txt | 5 - .../Resources/Test13/Test13ExpParse.txt | 10 - .../Resources/Test13/Test13ExpParseRL.txt | 10 - .../Resources/Test13/Test13ExpTokenize.txt | 7 - .../Resources/Test14/Test14Dat.cs | 45 - .../Resources/Test14/Test14DataList.json | 242 - .../Resources/Test14/Test14ExpCode.txt | 44 - .../Resources/Test14/Test14ExpParse.txt | 88 - .../Resources/Test14/Test14ExpParseRL.txt | 56 - .../Resources/Test14/Test14ExpTokenize.txt | 48 - .../Resources/Test3DataList.json | 1 - .../Resources/Test4DataList.json | 1 - .../Resources/Test5DataList.json | 1 - .../Resources/Test6DataList.json | 1 - .../Resources/Test7DataList.json | 1 - .../TranspilerLibTests/Resources/_/.info | 0 .../TranspilerLibTests.csproj | 70 - .../Trnsp.Show.Lfm.Tests/SampleTests.cs | 29 - .../Services/LfmObjectResolverTests.cs | 103 - .../Trnsp.Show.Lfm.Tests.csproj | 25 - Transpiler_pp/Trnsp.Show.Lfm/App.xaml | 7 - Transpiler_pp/Trnsp.Show.Lfm/App.xaml.cs | 46 - Transpiler_pp/Trnsp.Show.Lfm/AssemblyInfo.cs | 10 - .../Controls/LfmDesignerCanvas.cs | 153 - Transpiler_pp/Trnsp.Show.Lfm/MainWindow.xaml | 153 - .../Trnsp.Show.Lfm/MainWindow.xaml.cs | 14 - .../Models/Components/BitBtnKind.cs | 16 - .../Models/Components/ButtonLayout.cs | 9 - .../Models/Components/CheckBoxState.cs | 8 - .../Models/Components/ComboBoxStyle.cs | 10 - .../Models/Components/EBevelShape.cs | 12 - .../Models/Components/EBevelStyle.cs | 7 - .../Models/Components/EBrushStyle.cs | 13 - .../Models/Components/EGridOptions.cs | 23 - .../Models/Components/EGridScrollBars.cs | 12 - .../Models/Components/ELabelPosition.cs | 9 - .../Models/Components/EPenStyle.cs | 12 - .../Models/Components/EShapeType.cs | 17 - .../Models/Components/EStaticBorderStyle.cs | 8 - .../Models/Components/EditBorderStyle.cs | 7 - .../Models/Components/LfmComponentBase.cs | 400 - .../Models/Components/ListBoxStyle.cs | 8 - .../Models/Components/ModalResult.cs | 14 - .../Models/Components/PanelBevelStyle.cs | 9 - .../Models/Components/PanelBorderStyle.cs | 7 - .../Components/ProgressBarOrientation.cs | 7 - .../Models/Components/ScrollStyle.cs | 9 - .../Models/Components/TActionList.cs | 168 - .../Models/Components/TBevel.cs | 56 - .../Models/Components/TBitBtn.cs | 126 - .../Models/Components/TBitmap.cs | 408 - .../Models/Components/TButton.cs | 60 - .../Models/Components/TCheckBox.cs | 55 - .../Models/Components/TCheckGroup.cs | 29 - .../Models/Components/TComboBox.cs | 56 - .../Trnsp.Show.Lfm/Models/Components/TEdit.cs | 68 - .../Models/Components/TFloatSpinEdit.cs | 55 - .../Trnsp.Show.Lfm/Models/Components/TForm.cs | 133 - .../Trnsp.Show.Lfm/Models/Components/TGrid.cs | 97 - .../Models/Components/TGroupBox.cs | 17 - .../Models/Components/TImage.cs | 49 - .../Models/Components/TImageList.cs | 200 - .../Models/Components/TLabel.cs | 59 - .../Models/Components/TLabeledEdit.cs | 78 - .../Models/Components/TListBox.cs | 54 - .../Trnsp.Show.Lfm/Models/Components/TMemo.cs | 46 - .../Trnsp.Show.Lfm/Models/Components/TMenu.cs | 209 - .../Models/Components/TPageControl.cs | 193 - .../Models/Components/TPaintBox.cs | 8 - .../Models/Components/TPanel.cs | 95 - .../Models/Components/TProgressBar.cs | 56 - .../Models/Components/TRadioButton.cs | 31 - .../Models/Components/TRadioGroup.cs | 44 - .../Models/Components/TScrollBox.cs | 30 - .../Models/Components/TShape.cs | 105 - .../Models/Components/TSpeedButton.cs | 49 - .../Models/Components/TSpinEdit.cs | 56 - .../Models/Components/TSplitter.cs | 37 - .../Models/Components/TStaticText.cs | 33 - .../Models/Components/TStatusBar.cs | 120 - .../Models/Components/TStringGrid.cs | 8 - .../Models/Components/TTimer.cs | 31 - .../Models/Components/TToolBar.cs | 231 - .../Models/Components/TTrackBar.cs | 62 - .../Models/Components/TUnknownComponent.cs | 13 - .../Models/Components/TUpDown.cs | 68 - .../Models/Components/TValueListEditor.cs | 18 - .../Models/Components/TrackBarOrientation.cs | 7 - .../Models/Components/UpDownOrientation.cs | 7 - .../Services/ComponentFactory.cs | 219 - .../Services/ComponentRenderer.cs | 1432 --- .../Services/Interfaces/IComponentFactory.cs | 20 - .../Services/Interfaces/ILfmParserService.cs | 23 - .../Services/Interfaces/IObjectResolver.cs | 10 - .../Services/Interfaces/IXamlExporter.cs | 20 - .../Services/LfmBitmapDecoder.cs | 0 .../Services/LfmObjectResolver.cs | 97 - .../Services/LfmParserService.cs | 41 - .../Services/XamlExporter.Button.cs | 74 - .../Services/XamlExporter.Edit.cs | 78 - .../Services/XamlExporter.Label.cs | 55 - .../Services/XamlExporter.Selection.cs | 104 - .../Trnsp.Show.Lfm/Services/XamlExporter.cs | 909 -- .../Trnsp.Show.Lfm/Trnsp.Show.Lfm.csproj | 27 - .../ViewModels/LfmObjectViewModel.cs | 116 - .../ViewModels/MainViewModel.cs | 224 - .../Trnsp.Show.Pas.Tests/MSTestSettings.cs | 1 - .../Services/FileServiceTests.cs | 16 - .../Services/PascalParserServiceTests.cs | 37 - Transpiler_pp/Trnsp.Show.Pas.Tests/Test1.cs | 17 - .../Trnsp.Show.Pas.Tests.csproj | 32 - .../ViewModels/CodeBlockNodeTests.cs | 58 - .../ViewModels/MainViewModelTests.cs | 81 - Transpiler_pp/Trnsp.Show.Pas/App.xaml | 9 - Transpiler_pp/Trnsp.Show.Pas/App.xaml.cs | 40 - Transpiler_pp/Trnsp.Show.Pas/AssemblyInfo.cs | 10 - Transpiler_pp/Trnsp.Show.Pas/MainWindow.xaml | 192 - .../Trnsp.Show.Pas/MainWindow.xaml.cs | 54 - .../Trnsp.Show.Pas/Services/FileService.cs | 28 - .../Trnsp.Show.Pas/Services/IFileService.cs | 8 - .../Services/IPascalParserService.cs | 9 - .../Services/PascalParserService.cs | 12 - .../Trnsp.Show.Pas/Trnsp.Show.Pas.csproj | 29 - .../ViewModels/CodeBlockNode.cs | 65 - .../ViewModels/MainViewModel.cs | 48 - 396 files changed, 83986 deletions(-) delete mode 100644 Transpiler_pp/.info delete mode 100644 Transpiler_pp/Analyzer1/Analyzer1.CodeFixes/Analyzer1.CodeFixes.csproj delete mode 100644 Transpiler_pp/Analyzer1/Analyzer1.CodeFixes/Analyzer1CodeFixProvider.cs delete mode 100644 Transpiler_pp/Analyzer1/Analyzer1.CodeFixes/CodeFixResources.Designer.cs delete mode 100644 Transpiler_pp/Analyzer1/Analyzer1.CodeFixes/CodeFixResources.de.resx delete mode 100644 Transpiler_pp/Analyzer1/Analyzer1.CodeFixes/CodeFixResources.resx delete mode 100644 Transpiler_pp/Analyzer1/Analyzer1.Package/Analyzer1.Package.csproj delete mode 100644 Transpiler_pp/Analyzer1/Analyzer1.Test/.info delete mode 100644 Transpiler_pp/Analyzer1/Analyzer1.Test/Analyzer1.Test.csproj delete mode 100644 Transpiler_pp/Analyzer1/Analyzer1.Test/Analyzer1UnitTests.cs delete mode 100644 Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/CSharpAnalyzerVerifier`1+Test.cs delete mode 100644 Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/CSharpAnalyzerVerifier`1.cs delete mode 100644 Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/CSharpCodeFixVerifier`2+Test.cs delete mode 100644 Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/CSharpCodeFixVerifier`2.cs delete mode 100644 Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/CSharpCodeRefactoringVerifier`1+Test.cs delete mode 100644 Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/CSharpCodeRefactoringVerifier`1.cs delete mode 100644 Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/CSharpVerifierHelper.cs delete mode 100644 Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/VisualBasicAnalyzerVerifier`1+Test.cs delete mode 100644 Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/VisualBasicAnalyzerVerifier`1.cs delete mode 100644 Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/VisualBasicCodeFixVerifier`2+Test.cs delete mode 100644 Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/VisualBasicCodeFixVerifier`2.cs delete mode 100644 Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/VisualBasicCodeRefactoringVerifier`1+Test.cs delete mode 100644 Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/VisualBasicCodeRefactoringVerifier`1.cs delete mode 100644 Transpiler_pp/Analyzer1/Analyzer1.Vsix/Analyzer1.Vsix.csproj delete mode 100644 Transpiler_pp/Analyzer1/Analyzer1.props delete mode 100644 Transpiler_pp/Analyzer1/Analyzer1/.info delete mode 100644 Transpiler_pp/Analyzer1/Analyzer1/Analyzer1.csproj delete mode 100644 Transpiler_pp/Analyzer1/Analyzer1/Analyzer1Analyzer.cs delete mode 100644 Transpiler_pp/Analyzer1/Analyzer1/Resources.Designer.cs delete mode 100644 Transpiler_pp/Analyzer1/Analyzer1/Resources.de.resx delete mode 100644 Transpiler_pp/Analyzer1/Analyzer1/Resources.resx delete mode 100644 Transpiler_pp/CONTRIBUTING.md delete mode 100644 Transpiler_pp/ResXManager.config.xml delete mode 100644 Transpiler_pp/Transpiler.props delete mode 100644 Transpiler_pp/Transpiler.sln delete mode 100644 Transpiler_pp/TranspilerConsTest/.info delete mode 100644 Transpiler_pp/TranspilerConsTest/Model/JsonOutput.cs delete mode 100644 Transpiler_pp/TranspilerConsTest/Model/XmlOutput.cs delete mode 100644 Transpiler_pp/TranspilerConsTest/Program.cs delete mode 100644 Transpiler_pp/TranspilerConsTest/Properties/launchSettings.json delete mode 100644 Transpiler_pp/TranspilerConsTest/Resources/fbCalcWinkelVector.json delete mode 100644 Transpiler_pp/TranspilerConsTest/Resources/fbCalcWinkelvVector.xml delete mode 100644 Transpiler_pp/TranspilerConsTest/Resources/udtVector.json delete mode 100644 Transpiler_pp/TranspilerConsTest/Resources/udtVector.xml delete mode 100644 Transpiler_pp/TranspilerConsTest/TranspilerConsTest.csproj delete mode 100644 Transpiler_pp/TranspilerLib.CSharp.Tests/AssemblyInfo.cs delete mode 100644 Transpiler_pp/TranspilerLib.CSharp.Tests/Models/Scanner/CCodeBlockTests.cs delete mode 100644 Transpiler_pp/TranspilerLib.CSharp.Tests/Models/Scanner/CSCodeTests.cs delete mode 100644 Transpiler_pp/TranspilerLib.CSharp.Tests/Models/Scanner/CSTokenHandlerTests.cs delete mode 100644 Transpiler_pp/TranspilerLib.CSharp.Tests/TestData/TestCSDataClass.cs delete mode 100644 Transpiler_pp/TranspilerLib.CSharp.Tests/TranspilerLib.CSharp.Tests.csproj delete mode 100644 Transpiler_pp/TranspilerLib.CSharp/Data/CSReservedWords.cs delete mode 100644 Transpiler_pp/TranspilerLib.CSharp/Data/ECSharpResWords1.cs delete mode 100644 Transpiler_pp/TranspilerLib.CSharp/Interfaces/Code/ICSCode.cs delete mode 100644 Transpiler_pp/TranspilerLib.CSharp/Models/Scanner/CSCode.cs delete mode 100644 Transpiler_pp/TranspilerLib.CSharp/Models/Scanner/CSCodeBuilder.cs delete mode 100644 Transpiler_pp/TranspilerLib.CSharp/Models/Scanner/CSTokenHandler.cs delete mode 100644 Transpiler_pp/TranspilerLib.CSharp/Models/Scanner/CodeOptimizer.cs delete mode 100644 Transpiler_pp/TranspilerLib.CSharp/TranspilerLib.CSharp.csproj delete mode 100644 Transpiler_pp/TranspilerLib.DriveBASIC.Tests/AssemblyInfo.cs delete mode 100644 Transpiler_pp/TranspilerLib.DriveBASIC.Tests/Models/DriveCompilerTests.cs delete mode 100644 Transpiler_pp/TranspilerLib.DriveBASIC.Tests/TranspilerLib.DriveBASIC.Tests.csproj delete mode 100644 Transpiler_pp/TranspilerLib.DriveBASIC/Data/DriveCommand.cs delete mode 100644 Transpiler_pp/TranspilerLib.DriveBASIC/Data/EDriveToken.cs delete mode 100644 Transpiler_pp/TranspilerLib.DriveBASIC/Data/EExpressionOperation.cs delete mode 100644 Transpiler_pp/TranspilerLib.DriveBASIC/Data/EVarType.cs delete mode 100644 Transpiler_pp/TranspilerLib.DriveBASIC/Data/Interfaces/IDriveCommand.cs delete mode 100644 Transpiler_pp/TranspilerLib.DriveBASIC/Data/Interfaces/ILabel.cs delete mode 100644 Transpiler_pp/TranspilerLib.DriveBASIC/Data/Interfaces/IVariable.cs delete mode 100644 Transpiler_pp/TranspilerLib.DriveBASIC/Data/ParseDef.cs delete mode 100644 Transpiler_pp/TranspilerLib.DriveBASIC/Data/ParseDef2.cs delete mode 100644 Transpiler_pp/TranspilerLib.DriveBASIC/Data/ParseDefinitions.cs delete mode 100644 Transpiler_pp/TranspilerLib.DriveBASIC/Models/CommandBuilderState.cs delete mode 100644 Transpiler_pp/TranspilerLib.DriveBASIC/Models/CompilerLabel.cs delete mode 100644 Transpiler_pp/TranspilerLib.DriveBASIC/Models/CompilerVariable.cs delete mode 100644 Transpiler_pp/TranspilerLib.DriveBASIC/Models/DriveCompiler.Compile.cs delete mode 100644 Transpiler_pp/TranspilerLib.DriveBASIC/Models/DriveCompiler.Decompile.cs delete mode 100644 Transpiler_pp/TranspilerLib.DriveBASIC/Models/DriveCompiler.Emit.cs delete mode 100644 Transpiler_pp/TranspilerLib.DriveBASIC/Models/DriveCompiler.Parse.cs delete mode 100644 Transpiler_pp/TranspilerLib.DriveBASIC/Models/DriveCompiler.cs delete mode 100644 Transpiler_pp/TranspilerLib.DriveBASIC/TranspilerLib.DriveBASIC.csproj delete mode 100644 Transpiler_pp/TranspilerLib.IEC.Tests/AssemblyInfo.cs delete mode 100644 Transpiler_pp/TranspilerLib.IEC.Tests/Models/ExtOutputTests.cs delete mode 100644 Transpiler_pp/TranspilerLib.IEC.Tests/Models/Interpreter/IECInterpreterTests.cs delete mode 100644 Transpiler_pp/TranspilerLib.IEC.Tests/Models/Scanner/IECCodeBuilderTests.cs delete mode 100644 Transpiler_pp/TranspilerLib.IEC.Tests/Models/Scanner/IECCodeTests.cs delete mode 100644 Transpiler_pp/TranspilerLib.IEC.Tests/Models/Scanner/IECTokenHandlerTests.cs delete mode 100644 Transpiler_pp/TranspilerLib.IEC.Tests/TestData/IECTestDataClass.cs delete mode 100644 Transpiler_pp/TranspilerLib.IEC.Tests/TranspilerLib.IEC.Tests.csproj delete mode 100644 Transpiler_pp/TranspilerLib.IEC/Interpreter/IECInterpreter.cs delete mode 100644 Transpiler_pp/TranspilerLib.IEC/Models/ExtOutput.cs delete mode 100644 Transpiler_pp/TranspilerLib.IEC/Models/IECReader.cs delete mode 100644 Transpiler_pp/TranspilerLib.IEC/Models/Scanner/IECCode.cs delete mode 100644 Transpiler_pp/TranspilerLib.IEC/Models/Scanner/IECCodeBlock.cs delete mode 100644 Transpiler_pp/TranspilerLib.IEC/Models/Scanner/IECCodeBuilder.cs delete mode 100644 Transpiler_pp/TranspilerLib.IEC/Models/Scanner/IECResWords.cs delete mode 100644 Transpiler_pp/TranspilerLib.IEC/Models/Scanner/IECTokenHandler.cs delete mode 100644 Transpiler_pp/TranspilerLib.IEC/TranspilerLib.IEC.csproj delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/AssemblyInfo.cs delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Helper/GenericInterfaceConverter.cs delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Helper/ICodeBlockPasCodeBlockConverter.cs delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Helper/SerializeTests.cs delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Models/Interpreter/PasInterpreterTests.cs delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Models/LfmObjectBuilderTests.cs delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Models/LfmTokenTests.cs delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Models/LfmTokenizerTests.cs delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Models/Scanner/PasCodeBuilderReproTests.cs delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Models/Scanner/PasCodeTests.cs delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/IOPCC/IOPCC_ExpectedCodeBlocks.json delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/IOPCC/IOPCC_ExpectedTokens.json delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/IOPCC/iopcc_source.pas delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm1/Lfm1_Source.lfm delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm1/Lfm1_actual.json delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm1/Lfm1_expected.json delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm2/Lfm2_expected.json delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm2/Lfm2_source.lfm delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm3/Lfm3_Source.lfm delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm3/Lfm3_expected.json delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm4/Lfm4_Source.lfm delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm4/Lfm4_expected.json delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test1/ReadMe.md delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test1/Test1_ExpectedCodeBlocks.json delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test1/Test1_ExpectedTokens.json delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test1/Test1_Source.pas delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test2/ReadMe.md delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test2/Test2_ExpectedCodeBlocks.json delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test2/Test2_ExpectedTokens.json delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test2/Test2_Source.pas delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test3/ReadMe.md delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test3/Test3_ExpectedCodeBlocks.json delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test3/Test3_ExpectedTokens.json delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test3/Test3_Source.pas delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test4/ReadMe.md delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test4/Test4_ExpectedCodeBlocks.json delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test4/Test4_ExpectedTokens.json delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test4/Test4_Source.pas delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test4/Test4_actual_codeblocks.json delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test5/ReadMe.md delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test5/Test5_ExpectedCodeBlocks.json delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test5/Test5_ExpectedTokens.json delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test5/Test5_Source.pas delete mode 100644 Transpiler_pp/TranspilerLib.Pascal.Tests/TranspilerLib.Pascal.Tests.csproj delete mode 100644 Transpiler_pp/TranspilerLib.Pascal/Data/EPasResWords.cs delete mode 100644 Transpiler_pp/TranspilerLib.Pascal/Data/PasReservedWords.cs delete mode 100644 Transpiler_pp/TranspilerLib.Pascal/Interpreter/PasInterpreter.cs delete mode 100644 Transpiler_pp/TranspilerLib.Pascal/Models/LfmObject.cs delete mode 100644 Transpiler_pp/TranspilerLib.Pascal/Models/LfmObjectBuilder.cs delete mode 100644 Transpiler_pp/TranspilerLib.Pascal/Models/LfmProperty.cs delete mode 100644 Transpiler_pp/TranspilerLib.Pascal/Models/LfmToken.cs delete mode 100644 Transpiler_pp/TranspilerLib.Pascal/Models/LfmTokenType.cs delete mode 100644 Transpiler_pp/TranspilerLib.Pascal/Models/LfmTokenizer.cs delete mode 100644 Transpiler_pp/TranspilerLib.Pascal/Models/Scanner/PasCode.cs delete mode 100644 Transpiler_pp/TranspilerLib.Pascal/Models/Scanner/PasCodeBlock.cs delete mode 100644 Transpiler_pp/TranspilerLib.Pascal/Models/Scanner/PasCodeBuilder.BuildBlock.cs delete mode 100644 Transpiler_pp/TranspilerLib.Pascal/Models/Scanner/PasCodeBuilder.cs delete mode 100644 Transpiler_pp/TranspilerLib.Pascal/Models/Scanner/PasTokenHandler.cs delete mode 100644 Transpiler_pp/TranspilerLib.Pascal/TranspilerLib.Pascal.csproj delete mode 100644 Transpiler_pp/TranspilerLib/.info delete mode 100644 Transpiler_pp/TranspilerLib/Data/CharSets.cs delete mode 100644 Transpiler_pp/TranspilerLib/Data/CodeBlockType.cs delete mode 100644 Transpiler_pp/TranspilerLib/Data/TokenData.cs delete mode 100644 Transpiler_pp/TranspilerLib/Docs/TranspilerLib.xml delete mode 100644 Transpiler_pp/TranspilerLib/Interfaces/Code/ICodeBase.cs delete mode 100644 Transpiler_pp/TranspilerLib/Interfaces/Code/ICodeBlock.cs delete mode 100644 Transpiler_pp/TranspilerLib/Interfaces/Code/ICodeBuilder.cs delete mode 100644 Transpiler_pp/TranspilerLib/Interfaces/Code/ICodeBuilderData.cs delete mode 100644 Transpiler_pp/TranspilerLib/Interfaces/Code/ICodeOptimizer.cs delete mode 100644 Transpiler_pp/TranspilerLib/Interfaces/Code/IIECCode.cs delete mode 100644 Transpiler_pp/TranspilerLib/Interfaces/Code/ITokenHandler.cs delete mode 100644 Transpiler_pp/TranspilerLib/Interfaces/IHasParents.cs delete mode 100644 Transpiler_pp/TranspilerLib/Interfaces/IInterpreter.cs delete mode 100644 Transpiler_pp/TranspilerLib/Interfaces/IOutput.cs delete mode 100644 Transpiler_pp/TranspilerLib/Interfaces/IReader.cs delete mode 100644 Transpiler_pp/TranspilerLib/Models/CFileScanner.cs delete mode 100644 Transpiler_pp/TranspilerLib/Models/CPascalScanner.cs delete mode 100644 Transpiler_pp/TranspilerLib/Models/EMessageType.cs delete mode 100644 Transpiler_pp/TranspilerLib/Models/EToken.cs delete mode 100644 Transpiler_pp/TranspilerLib/Models/Interpreter/InterpData.cs delete mode 100644 Transpiler_pp/TranspilerLib/Models/Interpreter/InterpreterBase.cs delete mode 100644 Transpiler_pp/TranspilerLib/Models/ParentedItemsList.cs delete mode 100644 Transpiler_pp/TranspilerLib/Models/Scanner/CodeBase.cs delete mode 100644 Transpiler_pp/TranspilerLib/Models/Scanner/CodeBlock.cs delete mode 100644 Transpiler_pp/TranspilerLib/Models/Scanner/CodeBuilder.cs delete mode 100644 Transpiler_pp/TranspilerLib/Models/Scanner/TokenHandlerBase.cs delete mode 100644 Transpiler_pp/TranspilerLib/Models/Scanner/TokenizeData.cs delete mode 100644 Transpiler_pp/TranspilerLib/Models/TStrings.cs delete mode 100644 Transpiler_pp/TranspilerLib/Properties/Resources.Designer.cs delete mode 100644 Transpiler_pp/TranspilerLib/Properties/Resources.de.resx delete mode 100644 Transpiler_pp/TranspilerLib/Properties/Resources.resx delete mode 100644 Transpiler_pp/TranspilerLib/TranspilerLib.csproj delete mode 100644 Transpiler_pp/TranspilerLibTests/.info delete mode 100644 Transpiler_pp/TranspilerLibTests/AssemblyInfo.cs delete mode 100644 Transpiler_pp/TranspilerLibTests/Data/TokenDataTests.cs delete mode 100644 Transpiler_pp/TranspilerLibTests/Helper/TestHelper.cs delete mode 100644 Transpiler_pp/TranspilerLibTests/Models/ParentedItemsListTests.cs delete mode 100644 Transpiler_pp/TranspilerLibTests/Models/TestBase.cs delete mode 100644 Transpiler_pp/TranspilerLibTests/Properties/Resources.Designer.cs delete mode 100644 Transpiler_pp/TranspilerLibTests/Properties/Resources.resx delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test00/Blocks00.json delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test00/Blocks00.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test01/Blocks01.json delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test01/Blocks01.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test01/Tokens01.json delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test02/Blocks02.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test02/Tokens02.json delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test03/Tokens03.json delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test04/Blocks04.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test04/Tokens04.json delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test05/Blocks05.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test05/Tokens05.json delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test06/Tokens06.json delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test07/Tokens07.json delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/IEC_00/IECTestDataList0.json delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/IEC_01/ExpLog01.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/IEC_01/IECTestDataList1.json delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/IEC_01/TestCode01.ext delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/IEC_01/TestExpCode01.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/IEC_01/TestExpParse01.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/IEC_02/ExpLog02.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/IEC_02/IECTestDataList2.json delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/IEC_02/TestCode02.ext delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/IEC_02/TestExpCode02.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/IEC_02/TestExpParse02.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test01/Test1Dat.cs delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test01/Test1Dat.cs.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test01/Test1DataList.json delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test01/Test1ExpCode.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test01/Test1ExpParse.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test01/Test1ExpParseRL.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test01/Test1ExpParseSL.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test01/Test1ExpTokenize.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test02/Test2Dat.cs delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test02/Test2Dat.cs.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test02/Test2DataList.json delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test02/Test2ExpCode.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test02/Test2ExpParse.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test02/Test2ExpParseRL.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test02/Test2ExpParseSL.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test02/Test2ExpTokenize.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test08/Test8Dat.cs delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test08/Test8DataList.json delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test08/Test8ExpCode.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test08/Test8ExpParse.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test08/Test8ExpTokenize.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test09/Test9Dat.cs delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test09/Test9Dat.cs.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test09/Test9DataList.json delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test09/Test9ExpCode.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test09/Test9ExpParse.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test09/Test9ExpParseRL.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test09/Test9ExpParseSL.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test09/Test9ExpTokenize.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test0DataList.json delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test10/Test10Dat.cs delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test10/Test10DataList.json delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test10/Test10ExpCode.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test10/Test10ExpParse.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test10/Test10ExpTokenize.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test11/Test11Dat.cs delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test11/Test11DataList.json delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test11/Test11ExpCode.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test11/Test11ExpParse.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test11/Test11ExpTokenize.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test12/Test12Dat.cs delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test12/Test12DataList.json delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test12/Test12ExpCode.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test12/Test12ExpParse.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test12/Test12ExpParseRL.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test12/Test12ExpTokenize.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test13/Test13Dat.cs delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test13/Test13DataList.json delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test13/Test13ExpCode.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test13/Test13ExpParse.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test13/Test13ExpParseRL.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test13/Test13ExpTokenize.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test14/Test14Dat.cs delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test14/Test14DataList.json delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test14/Test14ExpCode.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test14/Test14ExpParse.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test14/Test14ExpParseRL.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test14/Test14ExpTokenize.txt delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test3DataList.json delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test4DataList.json delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test5DataList.json delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test6DataList.json delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/Test7DataList.json delete mode 100644 Transpiler_pp/TranspilerLibTests/Resources/_/.info delete mode 100644 Transpiler_pp/TranspilerLibTests/TranspilerLibTests.csproj delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm.Tests/SampleTests.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm.Tests/Services/LfmObjectResolverTests.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm.Tests/Trnsp.Show.Lfm.Tests.csproj delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/App.xaml delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/App.xaml.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/AssemblyInfo.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Controls/LfmDesignerCanvas.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/MainWindow.xaml delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/MainWindow.xaml.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/BitBtnKind.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/ButtonLayout.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/CheckBoxState.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/ComboBoxStyle.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/EBevelShape.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/EBevelStyle.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/EBrushStyle.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/EGridOptions.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/EGridScrollBars.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/ELabelPosition.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/EPenStyle.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/EShapeType.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/EStaticBorderStyle.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/EditBorderStyle.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/LfmComponentBase.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/ListBoxStyle.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/ModalResult.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/PanelBevelStyle.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/PanelBorderStyle.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/ProgressBarOrientation.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/ScrollStyle.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TActionList.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TBevel.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TBitBtn.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TBitmap.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TButton.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TCheckBox.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TCheckGroup.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TComboBox.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TEdit.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TFloatSpinEdit.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TForm.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TGrid.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TGroupBox.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TImage.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TImageList.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TLabel.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TLabeledEdit.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TListBox.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TMemo.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TMenu.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TPageControl.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TPaintBox.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TPanel.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TProgressBar.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TRadioButton.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TRadioGroup.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TScrollBox.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TShape.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TSpeedButton.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TSpinEdit.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TSplitter.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TStaticText.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TStatusBar.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TStringGrid.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TTimer.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TToolBar.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TTrackBar.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TUnknownComponent.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TUpDown.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TValueListEditor.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/TrackBarOrientation.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Models/Components/UpDownOrientation.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Services/ComponentFactory.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Services/ComponentRenderer.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Services/Interfaces/IComponentFactory.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Services/Interfaces/ILfmParserService.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Services/Interfaces/IObjectResolver.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Services/Interfaces/IXamlExporter.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Services/LfmBitmapDecoder.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Services/LfmObjectResolver.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Services/LfmParserService.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Services/XamlExporter.Button.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Services/XamlExporter.Edit.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Services/XamlExporter.Label.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Services/XamlExporter.Selection.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Services/XamlExporter.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/Trnsp.Show.Lfm.csproj delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/ViewModels/LfmObjectViewModel.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Lfm/ViewModels/MainViewModel.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Pas.Tests/MSTestSettings.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Pas.Tests/Services/FileServiceTests.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Pas.Tests/Services/PascalParserServiceTests.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Pas.Tests/Test1.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Pas.Tests/Trnsp.Show.Pas.Tests.csproj delete mode 100644 Transpiler_pp/Trnsp.Show.Pas.Tests/ViewModels/CodeBlockNodeTests.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Pas.Tests/ViewModels/MainViewModelTests.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Pas/App.xaml delete mode 100644 Transpiler_pp/Trnsp.Show.Pas/App.xaml.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Pas/AssemblyInfo.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Pas/MainWindow.xaml delete mode 100644 Transpiler_pp/Trnsp.Show.Pas/MainWindow.xaml.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Pas/Services/FileService.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Pas/Services/IFileService.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Pas/Services/IPascalParserService.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Pas/Services/PascalParserService.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Pas/Trnsp.Show.Pas.csproj delete mode 100644 Transpiler_pp/Trnsp.Show.Pas/ViewModels/CodeBlockNode.cs delete mode 100644 Transpiler_pp/Trnsp.Show.Pas/ViewModels/MainViewModel.cs diff --git a/Transpiler_pp/.info b/Transpiler_pp/.info deleted file mode 100644 index e69de29bb..000000000 diff --git a/Transpiler_pp/Analyzer1/Analyzer1.CodeFixes/Analyzer1.CodeFixes.csproj b/Transpiler_pp/Analyzer1/Analyzer1.CodeFixes/Analyzer1.CodeFixes.csproj deleted file mode 100644 index 78a71e17d..000000000 --- a/Transpiler_pp/Analyzer1/Analyzer1.CodeFixes/Analyzer1.CodeFixes.csproj +++ /dev/null @@ -1,22 +0,0 @@ - - - - net8.0 - false - Analyzer1 - - - - - - - - - - - - - - - - diff --git a/Transpiler_pp/Analyzer1/Analyzer1.CodeFixes/Analyzer1CodeFixProvider.cs b/Transpiler_pp/Analyzer1/Analyzer1.CodeFixes/Analyzer1CodeFixProvider.cs deleted file mode 100644 index a64eec1eb..000000000 --- a/Transpiler_pp/Analyzer1/Analyzer1.CodeFixes/Analyzer1CodeFixProvider.cs +++ /dev/null @@ -1,71 +0,0 @@ -using Microsoft.CodeAnalysis; -using Microsoft.CodeAnalysis.CodeActions; -using Microsoft.CodeAnalysis.CodeFixes; -using Microsoft.CodeAnalysis.CSharp; -using Microsoft.CodeAnalysis.CSharp.Syntax; -using Microsoft.CodeAnalysis.Rename; -using Microsoft.CodeAnalysis.Text; -using System; -using System.Collections.Generic; -using System.Collections.Immutable; -using System.Composition; -using System.Linq; -using System.Threading; -using System.Threading.Tasks; - -namespace Analyzer1 -{ - [ExportCodeFixProvider(LanguageNames.CSharp, Name = nameof(Analyzer1CodeFixProvider)), Shared] - public class Analyzer1CodeFixProvider : CodeFixProvider - { - public sealed override ImmutableArray FixableDiagnosticIds - { - get { return ImmutableArray.Create(Analyzer1Analyzer.DiagnosticId); } - } - - public sealed override FixAllProvider GetFixAllProvider() - { - // See https://github.com/dotnet/roslyn/blob/main/docs/analyzers/FixAllProvider.md for more information on Fix All Providers - return WellKnownFixAllProviders.BatchFixer; - } - - public sealed override async Task RegisterCodeFixesAsync(CodeFixContext context) - { - var root = await context.Document.GetSyntaxRootAsync(context.CancellationToken).ConfigureAwait(false); - - // TODO: Replace the following code with your own analysis, generating a CodeAction for each fix to suggest - var diagnostic = context.Diagnostics.First(); - var diagnosticSpan = diagnostic.Location.SourceSpan; - - // Find the type declaration identified by the diagnostic. - var declaration = root.FindToken(diagnosticSpan.Start).Parent.AncestorsAndSelf().OfType().First(); - - // Register a code action that will invoke the fix. - context.RegisterCodeFix( - CodeAction.Create( - title: CodeFixResources.CodeFixTitle, - createChangedSolution: c => MakeUppercaseAsync(context.Document, declaration, c), - equivalenceKey: nameof(CodeFixResources.CodeFixTitle)), - diagnostic); - } - - private async Task MakeUppercaseAsync(Document document, TypeDeclarationSyntax typeDecl, CancellationToken cancellationToken) - { - // Compute new uppercase name. - var identifierToken = typeDecl.Identifier; - var newName = identifierToken.Text.ToUpperInvariant(); - - // Get the symbol representing the type to be renamed. - var semanticModel = await document.GetSemanticModelAsync(cancellationToken); - var typeSymbol = semanticModel.GetDeclaredSymbol(typeDecl, cancellationToken); - - // Produce a new solution that has all references to that type renamed, including the declaration. - var originalSolution = document.Project.Solution; - var optionSet = originalSolution.Workspace.Options; - var newSolution = await Renamer.RenameSymbolAsync(document.Project.Solution, typeSymbol, newName, optionSet, cancellationToken).ConfigureAwait(false); - - // Return the new solution with the now-uppercase type name. - return newSolution; - } - } -} diff --git a/Transpiler_pp/Analyzer1/Analyzer1.CodeFixes/CodeFixResources.Designer.cs b/Transpiler_pp/Analyzer1/Analyzer1.CodeFixes/CodeFixResources.Designer.cs deleted file mode 100644 index c8aca0d8b..000000000 --- a/Transpiler_pp/Analyzer1/Analyzer1.CodeFixes/CodeFixResources.Designer.cs +++ /dev/null @@ -1,72 +0,0 @@ -//------------------------------------------------------------------------------ -// -// Dieser Code wurde von einem Tool generiert. -// Laufzeitversion:4.0.30319.42000 -// -// Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn -// der Code erneut generiert wird. -// -//------------------------------------------------------------------------------ - -namespace Analyzer1 { - using System; - - - /// - /// Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. - /// - // Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert - // -Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. - // Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen - // mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. - [global::System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "18.0.0.0")] - [global::System.Diagnostics.DebuggerNonUserCodeAttribute()] - [global::System.Runtime.CompilerServices.CompilerGeneratedAttribute()] - internal class CodeFixResources { - - private static global::System.Resources.ResourceManager resourceMan; - - private static global::System.Globalization.CultureInfo resourceCulture; - - [global::System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")] - internal CodeFixResources() { - } - - /// - /// Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. - /// - [global::System.ComponentModel.EditorBrowsableAttribute(global::System.ComponentModel.EditorBrowsableState.Advanced)] - internal static global::System.Resources.ResourceManager ResourceManager { - get { - if (object.ReferenceEquals(resourceMan, null)) { - global::System.Resources.ResourceManager temp = new global::System.Resources.ResourceManager("Analyzer1.CodeFixResources", typeof(CodeFixResources).Assembly); - resourceMan = temp; - } - return resourceMan; - } - } - - /// - /// Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle - /// Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. - /// - [global::System.ComponentModel.EditorBrowsableAttribute(global::System.ComponentModel.EditorBrowsableState.Advanced)] - internal static global::System.Globalization.CultureInfo Culture { - get { - return resourceCulture; - } - set { - resourceCulture = value; - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die Make uppercase ähnelt. - /// - internal static string CodeFixTitle { - get { - return ResourceManager.GetString("CodeFixTitle", resourceCulture); - } - } - } -} diff --git a/Transpiler_pp/Analyzer1/Analyzer1.CodeFixes/CodeFixResources.de.resx b/Transpiler_pp/Analyzer1/Analyzer1.CodeFixes/CodeFixResources.de.resx deleted file mode 100644 index e79e89654..000000000 --- a/Transpiler_pp/Analyzer1/Analyzer1.CodeFixes/CodeFixResources.de.resx +++ /dev/null @@ -1,123 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Machen Sie Großbuchstaben - - \ No newline at end of file diff --git a/Transpiler_pp/Analyzer1/Analyzer1.CodeFixes/CodeFixResources.resx b/Transpiler_pp/Analyzer1/Analyzer1.CodeFixes/CodeFixResources.resx deleted file mode 100644 index 97abe6894..000000000 --- a/Transpiler_pp/Analyzer1/Analyzer1.CodeFixes/CodeFixResources.resx +++ /dev/null @@ -1,124 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Make uppercase - The title of the code fix. - - \ No newline at end of file diff --git a/Transpiler_pp/Analyzer1/Analyzer1.Package/Analyzer1.Package.csproj b/Transpiler_pp/Analyzer1/Analyzer1.Package/Analyzer1.Package.csproj deleted file mode 100644 index 84da5e535..000000000 --- a/Transpiler_pp/Analyzer1/Analyzer1.Package/Analyzer1.Package.csproj +++ /dev/null @@ -1,45 +0,0 @@ - - - - net8.0 - false - true - true - - - - Analyzer1 - 1.0.0.0 - Mir - http://LICENSE_URL_HERE_OR_DELETE_THIS_LINE - http://PROJECT_URL_HERE_OR_DELETE_THIS_LINE - http://ICON_URL_HERE_OR_DELETE_THIS_LINE - http://REPOSITORY_URL_HERE_OR_DELETE_THIS_LINE - false - Analyzer1 - Summary of changes made in this release of the package. - Copyright - Analyzer1, analyzers - true - true - - $(TargetsForTfmSpecificContentInPackage);_AddAnalyzersToOutput - - - - - - - - - - - - - - - - - - - diff --git a/Transpiler_pp/Analyzer1/Analyzer1.Test/.info b/Transpiler_pp/Analyzer1/Analyzer1.Test/.info deleted file mode 100644 index e69de29bb..000000000 diff --git a/Transpiler_pp/Analyzer1/Analyzer1.Test/Analyzer1.Test.csproj b/Transpiler_pp/Analyzer1/Analyzer1.Test/Analyzer1.Test.csproj deleted file mode 100644 index c9aa8d937..000000000 --- a/Transpiler_pp/Analyzer1/Analyzer1.Test/Analyzer1.Test.csproj +++ /dev/null @@ -1,28 +0,0 @@ - - - - net8.0 - - true - true - - - - - - - - - - - - - - - - - - - - - diff --git a/Transpiler_pp/Analyzer1/Analyzer1.Test/Analyzer1UnitTests.cs b/Transpiler_pp/Analyzer1/Analyzer1.Test/Analyzer1UnitTests.cs deleted file mode 100644 index b89fd6cc0..000000000 --- a/Transpiler_pp/Analyzer1/Analyzer1.Test/Analyzer1UnitTests.cs +++ /dev/null @@ -1,59 +0,0 @@ -using Microsoft.VisualStudio.TestTools.UnitTesting; -using System.Threading.Tasks; -using VerifyCS = Analyzer1.Test.CSharpCodeFixVerifier< - Analyzer1.Analyzer1Analyzer, - Analyzer1.Analyzer1CodeFixProvider>; - -namespace Analyzer1.Test -{ - [TestClass] - public class Analyzer1UnitTest - { - //No diagnostics expected to show up - [TestMethod] - public async Task TestMethod1() - { - var test = @""; - - await VerifyCS.VerifyAnalyzerAsync(test); - } - - //Diagnostic and CodeFix both triggered and checked for - [TestMethod] - public async Task TestMethod2() - { - var test = @" - using System; - using System.Collections.Generic; - using System.Linq; - using System.Text; - using System.Threading.Tasks; - using System.Diagnostics; - - namespace ConsoleApplication1 - { - class {|#0:TypeName|} - { - } - }"; - - var fixtest = @" - using System; - using System.Collections.Generic; - using System.Linq; - using System.Text; - using System.Threading.Tasks; - using System.Diagnostics; - - namespace ConsoleApplication1 - { - class TYPENAME - { - } - }"; - - var expected = VerifyCS.Diagnostic("Analyzer1").WithLocation(0).WithArguments("TypeName"); - await VerifyCS.VerifyCodeFixAsync(test, expected, fixtest); - } - } -} diff --git a/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/CSharpAnalyzerVerifier`1+Test.cs b/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/CSharpAnalyzerVerifier`1+Test.cs deleted file mode 100644 index 773f0f681..000000000 --- a/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/CSharpAnalyzerVerifier`1+Test.cs +++ /dev/null @@ -1,24 +0,0 @@ -using Microsoft.CodeAnalysis.CSharp.Testing; -using Microsoft.CodeAnalysis.Diagnostics; - -namespace Analyzer1.Test; - -public static partial class CSharpAnalyzerVerifier - where TAnalyzer : DiagnosticAnalyzer, new() -{ - public class Test : CSharpAnalyzerTest - { - public Test() - { - SolutionTransforms.Add((solution, projectId) => - { - var compilationOptions = solution.GetProject(projectId).CompilationOptions; - compilationOptions = compilationOptions.WithSpecificDiagnosticOptions( - compilationOptions.SpecificDiagnosticOptions.SetItems(CSharpVerifierHelper.NullableWarnings)); - solution = solution.WithProjectCompilationOptions(projectId, compilationOptions); - - return solution; - }); - } - } -} diff --git a/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/CSharpAnalyzerVerifier`1.cs b/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/CSharpAnalyzerVerifier`1.cs deleted file mode 100644 index c17454c93..000000000 --- a/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/CSharpAnalyzerVerifier`1.cs +++ /dev/null @@ -1,37 +0,0 @@ -using Microsoft.CodeAnalysis; -using Microsoft.CodeAnalysis.CSharp.Testing; -using Microsoft.CodeAnalysis.Diagnostics; -using Microsoft.CodeAnalysis.Testing; -using System.Threading; -using System.Threading.Tasks; - -namespace Analyzer1.Test -{ - public static partial class CSharpAnalyzerVerifier - where TAnalyzer : DiagnosticAnalyzer, new() - { - /// - public static DiagnosticResult Diagnostic() - => CSharpAnalyzerVerifier.Diagnostic(); - - /// - public static DiagnosticResult Diagnostic(string diagnosticId) - => CSharpAnalyzerVerifier.Diagnostic(diagnosticId); - - /// - public static DiagnosticResult Diagnostic(DiagnosticDescriptor descriptor) - => CSharpAnalyzerVerifier.Diagnostic(descriptor); - - /// - public static async Task VerifyAnalyzerAsync(string source, params DiagnosticResult[] expected) - { - var test = new Test - { - TestCode = source, - }; - - test.ExpectedDiagnostics.AddRange(expected); - await test.RunAsync(CancellationToken.None); - } - } -} diff --git a/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/CSharpCodeFixVerifier`2+Test.cs b/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/CSharpCodeFixVerifier`2+Test.cs deleted file mode 100644 index 4a0fe428e..000000000 --- a/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/CSharpCodeFixVerifier`2+Test.cs +++ /dev/null @@ -1,26 +0,0 @@ -using Microsoft.CodeAnalysis.CodeFixes; -using Microsoft.CodeAnalysis.CSharp.Testing; -using Microsoft.CodeAnalysis.Diagnostics; - -namespace Analyzer1.Test; - -public static partial class CSharpCodeFixVerifier - where TAnalyzer : DiagnosticAnalyzer, new() - where TCodeFix : CodeFixProvider, new() -{ - public class Test : CSharpCodeFixTest - { - public Test() - { - SolutionTransforms.Add((solution, projectId) => - { - var compilationOptions = solution.GetProject(projectId).CompilationOptions; - compilationOptions = compilationOptions.WithSpecificDiagnosticOptions( - compilationOptions.SpecificDiagnosticOptions.SetItems(CSharpVerifierHelper.NullableWarnings)); - solution = solution.WithProjectCompilationOptions(projectId, compilationOptions); - - return solution; - }); - } - } -} diff --git a/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/CSharpCodeFixVerifier`2.cs b/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/CSharpCodeFixVerifier`2.cs deleted file mode 100644 index 25ab469dd..000000000 --- a/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/CSharpCodeFixVerifier`2.cs +++ /dev/null @@ -1,60 +0,0 @@ -using Microsoft.CodeAnalysis; -using Microsoft.CodeAnalysis.CodeFixes; -using Microsoft.CodeAnalysis.CSharp.Testing; -using Microsoft.CodeAnalysis.Diagnostics; -using Microsoft.CodeAnalysis.Testing; -using System.Threading; -using System.Threading.Tasks; - -namespace Analyzer1.Test -{ - public static partial class CSharpCodeFixVerifier - where TAnalyzer : DiagnosticAnalyzer, new() - where TCodeFix : CodeFixProvider, new() - { - /// - public static DiagnosticResult Diagnostic() - => CSharpCodeFixVerifier.Diagnostic(); - - /// - public static DiagnosticResult Diagnostic(string diagnosticId) - => CSharpCodeFixVerifier.Diagnostic(diagnosticId); - - /// - public static DiagnosticResult Diagnostic(DiagnosticDescriptor descriptor) - => CSharpCodeFixVerifier.Diagnostic(descriptor); - - /// - public static async Task VerifyAnalyzerAsync(string source, params DiagnosticResult[] expected) - { - var test = new Test - { - TestCode = source, - }; - - test.ExpectedDiagnostics.AddRange(expected); - await test.RunAsync(CancellationToken.None); - } - - /// - public static async Task VerifyCodeFixAsync(string source, string fixedSource) - => await VerifyCodeFixAsync(source, DiagnosticResult.EmptyDiagnosticResults, fixedSource); - - /// - public static async Task VerifyCodeFixAsync(string source, DiagnosticResult expected, string fixedSource) - => await VerifyCodeFixAsync(source, new[] { expected }, fixedSource); - - /// - public static async Task VerifyCodeFixAsync(string source, DiagnosticResult[] expected, string fixedSource) - { - var test = new Test - { - TestCode = source, - FixedCode = fixedSource, - }; - - test.ExpectedDiagnostics.AddRange(expected); - await test.RunAsync(CancellationToken.None); - } - } -} diff --git a/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/CSharpCodeRefactoringVerifier`1+Test.cs b/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/CSharpCodeRefactoringVerifier`1+Test.cs deleted file mode 100644 index 8f2920e6d..000000000 --- a/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/CSharpCodeRefactoringVerifier`1+Test.cs +++ /dev/null @@ -1,25 +0,0 @@ -using Microsoft.CodeAnalysis.CodeRefactorings; -using Microsoft.CodeAnalysis.CSharp.Testing; - -namespace Analyzer1.Test -{ - public static partial class CSharpCodeRefactoringVerifier - where TCodeRefactoring : CodeRefactoringProvider, new() - { - public class Test : CSharpCodeRefactoringTest - { - public Test() - { - SolutionTransforms.Add((solution, projectId) => - { - var compilationOptions = solution.GetProject(projectId).CompilationOptions; - compilationOptions = compilationOptions.WithSpecificDiagnosticOptions( - compilationOptions.SpecificDiagnosticOptions.SetItems(CSharpVerifierHelper.NullableWarnings)); - solution = solution.WithProjectCompilationOptions(projectId, compilationOptions); - - return solution; - }); - } - } - } -} diff --git a/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/CSharpCodeRefactoringVerifier`1.cs b/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/CSharpCodeRefactoringVerifier`1.cs deleted file mode 100644 index 34aaeddaa..000000000 --- a/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/CSharpCodeRefactoringVerifier`1.cs +++ /dev/null @@ -1,36 +0,0 @@ -using Microsoft.CodeAnalysis.CodeRefactorings; -using Microsoft.CodeAnalysis.Testing; -using System.Threading; -using System.Threading.Tasks; - -namespace Analyzer1.Test -{ - public static partial class CSharpCodeRefactoringVerifier - where TCodeRefactoring : CodeRefactoringProvider, new() - { - /// - public static async Task VerifyRefactoringAsync(string source, string fixedSource) - { - await VerifyRefactoringAsync(source, DiagnosticResult.EmptyDiagnosticResults, fixedSource); - } - - /// - public static async Task VerifyRefactoringAsync(string source, DiagnosticResult expected, string fixedSource) - { - await VerifyRefactoringAsync(source, new[] { expected }, fixedSource); - } - - /// - public static async Task VerifyRefactoringAsync(string source, DiagnosticResult[] expected, string fixedSource) - { - var test = new Test - { - TestCode = source, - FixedCode = fixedSource, - }; - - test.ExpectedDiagnostics.AddRange(expected); - await test.RunAsync(CancellationToken.None); - } - } -} diff --git a/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/CSharpVerifierHelper.cs b/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/CSharpVerifierHelper.cs deleted file mode 100644 index fbfa92721..000000000 --- a/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/CSharpVerifierHelper.cs +++ /dev/null @@ -1,33 +0,0 @@ -using Microsoft.CodeAnalysis; -using Microsoft.CodeAnalysis.CSharp; -using System; -using System.Collections.Immutable; - -namespace Analyzer1.Test -{ - internal static class CSharpVerifierHelper - { - /// - /// By default, the compiler reports diagnostics for nullable reference types at - /// , and the analyzer test framework defaults to only validating - /// diagnostics at . This map contains all compiler diagnostic IDs - /// related to nullability mapped to , which is then used to enable all - /// of these warnings for default validation during analyzer and code fix tests. - /// - internal static ImmutableDictionary NullableWarnings { get; } = GetNullableWarningsFromCompiler(); - - private static ImmutableDictionary GetNullableWarningsFromCompiler() - { - string[] args = { "/warnaserror:nullable" }; - var commandLineArguments = CSharpCommandLineParser.Default.Parse(args, baseDirectory: Environment.CurrentDirectory, sdkDirectory: Environment.CurrentDirectory); - var nullableWarnings = commandLineArguments.CompilationOptions.SpecificDiagnosticOptions; - - // Workaround for https://github.com/dotnet/roslyn/issues/41610 - nullableWarnings = nullableWarnings - .SetItem("CS8632", ReportDiagnostic.Error) - .SetItem("CS8669", ReportDiagnostic.Error); - - return nullableWarnings; - } - } -} diff --git a/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/VisualBasicAnalyzerVerifier`1+Test.cs b/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/VisualBasicAnalyzerVerifier`1+Test.cs deleted file mode 100644 index 08a8fe2c3..000000000 --- a/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/VisualBasicAnalyzerVerifier`1+Test.cs +++ /dev/null @@ -1,16 +0,0 @@ -using Microsoft.CodeAnalysis.Diagnostics; -using Microsoft.CodeAnalysis.VisualBasic.Testing; - -namespace Analyzer1.Test -{ - public static partial class VisualBasicAnalyzerVerifier - where TAnalyzer : DiagnosticAnalyzer, new() - { - public class Test : VisualBasicAnalyzerTest - { - public Test() - { - } - } - } -} diff --git a/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/VisualBasicAnalyzerVerifier`1.cs b/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/VisualBasicAnalyzerVerifier`1.cs deleted file mode 100644 index 52ef72636..000000000 --- a/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/VisualBasicAnalyzerVerifier`1.cs +++ /dev/null @@ -1,37 +0,0 @@ -using Microsoft.CodeAnalysis; -using Microsoft.CodeAnalysis.Diagnostics; -using Microsoft.CodeAnalysis.Testing; -using Microsoft.CodeAnalysis.VisualBasic.Testing; -using System.Threading; -using System.Threading.Tasks; - -namespace Analyzer1.Test -{ - public static partial class VisualBasicAnalyzerVerifier - where TAnalyzer : DiagnosticAnalyzer, new() - { - /// - public static DiagnosticResult Diagnostic() - => VisualBasicAnalyzerVerifier.Diagnostic(); - - /// - public static DiagnosticResult Diagnostic(string diagnosticId) - => VisualBasicAnalyzerVerifier.Diagnostic(diagnosticId); - - /// - public static DiagnosticResult Diagnostic(DiagnosticDescriptor descriptor) - => VisualBasicAnalyzerVerifier.Diagnostic(descriptor); - - /// - public static async Task VerifyAnalyzerAsync(string source, params DiagnosticResult[] expected) - { - var test = new Test - { - TestCode = source, - }; - - test.ExpectedDiagnostics.AddRange(expected); - await test.RunAsync(CancellationToken.None); - } - } -} diff --git a/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/VisualBasicCodeFixVerifier`2+Test.cs b/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/VisualBasicCodeFixVerifier`2+Test.cs deleted file mode 100644 index 99f934285..000000000 --- a/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/VisualBasicCodeFixVerifier`2+Test.cs +++ /dev/null @@ -1,15 +0,0 @@ -using Microsoft.CodeAnalysis.CodeFixes; -using Microsoft.CodeAnalysis.Diagnostics; -using Microsoft.CodeAnalysis.VisualBasic.Testing; - -namespace Analyzer1.Test -{ - public static partial class VisualBasicCodeFixVerifier - where TAnalyzer : DiagnosticAnalyzer, new() - where TCodeFix : CodeFixProvider, new() - { - public class Test : VisualBasicCodeFixTest - { - } - } -} diff --git a/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/VisualBasicCodeFixVerifier`2.cs b/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/VisualBasicCodeFixVerifier`2.cs deleted file mode 100644 index 675fbc2e1..000000000 --- a/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/VisualBasicCodeFixVerifier`2.cs +++ /dev/null @@ -1,60 +0,0 @@ -using Microsoft.CodeAnalysis; -using Microsoft.CodeAnalysis.CodeFixes; -using Microsoft.CodeAnalysis.Diagnostics; -using Microsoft.CodeAnalysis.Testing; -using Microsoft.CodeAnalysis.VisualBasic.Testing; -using System.Threading; -using System.Threading.Tasks; - -namespace Analyzer1.Test -{ - public static partial class VisualBasicCodeFixVerifier - where TAnalyzer : DiagnosticAnalyzer, new() - where TCodeFix : CodeFixProvider, new() - { - /// - public static DiagnosticResult Diagnostic() - => VisualBasicCodeFixVerifier.Diagnostic(); - - /// - public static DiagnosticResult Diagnostic(string diagnosticId) - => VisualBasicCodeFixVerifier.Diagnostic(diagnosticId); - - /// - public static DiagnosticResult Diagnostic(DiagnosticDescriptor descriptor) - => VisualBasicCodeFixVerifier.Diagnostic(descriptor); - - /// - public static async Task VerifyAnalyzerAsync(string source, params DiagnosticResult[] expected) - { - var test = new Test - { - TestCode = source, - }; - - test.ExpectedDiagnostics.AddRange(expected); - await test.RunAsync(CancellationToken.None); - } - - /// - public static async Task VerifyCodeFixAsync(string source, string fixedSource) - => await VerifyCodeFixAsync(source, DiagnosticResult.EmptyDiagnosticResults, fixedSource); - - /// - public static async Task VerifyCodeFixAsync(string source, DiagnosticResult expected, string fixedSource) - => await VerifyCodeFixAsync(source, new[] { expected }, fixedSource); - - /// - public static async Task VerifyCodeFixAsync(string source, DiagnosticResult[] expected, string fixedSource) - { - var test = new Test - { - TestCode = source, - FixedCode = fixedSource, - }; - - test.ExpectedDiagnostics.AddRange(expected); - await test.RunAsync(CancellationToken.None); - } - } -} diff --git a/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/VisualBasicCodeRefactoringVerifier`1+Test.cs b/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/VisualBasicCodeRefactoringVerifier`1+Test.cs deleted file mode 100644 index 2a760b195..000000000 --- a/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/VisualBasicCodeRefactoringVerifier`1+Test.cs +++ /dev/null @@ -1,13 +0,0 @@ -using Microsoft.CodeAnalysis.CodeRefactorings; -using Microsoft.CodeAnalysis.VisualBasic.Testing; - -namespace Analyzer1.Test -{ - public static partial class VisualBasicCodeRefactoringVerifier - where TCodeRefactoring : CodeRefactoringProvider, new() - { - public class Test : VisualBasicCodeRefactoringTest - { - } - } -} diff --git a/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/VisualBasicCodeRefactoringVerifier`1.cs b/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/VisualBasicCodeRefactoringVerifier`1.cs deleted file mode 100644 index a0d83e68d..000000000 --- a/Transpiler_pp/Analyzer1/Analyzer1.Test/Verifiers/VisualBasicCodeRefactoringVerifier`1.cs +++ /dev/null @@ -1,36 +0,0 @@ -using Microsoft.CodeAnalysis.CodeRefactorings; -using Microsoft.CodeAnalysis.Testing; -using System.Threading; -using System.Threading.Tasks; - -namespace Analyzer1.Test -{ - public static partial class VisualBasicCodeRefactoringVerifier - where TCodeRefactoring : CodeRefactoringProvider, new() - { - /// - public static async Task VerifyRefactoringAsync(string source, string fixedSource) - { - await VerifyRefactoringAsync(source, DiagnosticResult.EmptyDiagnosticResults, fixedSource); - } - - /// - public static async Task VerifyRefactoringAsync(string source, DiagnosticResult expected, string fixedSource) - { - await VerifyRefactoringAsync(source, new[] { expected }, fixedSource); - } - - /// - public static async Task VerifyRefactoringAsync(string source, DiagnosticResult[] expected, string fixedSource) - { - var test = new Test - { - TestCode = source, - FixedCode = fixedSource, - }; - - test.ExpectedDiagnostics.AddRange(expected); - await test.RunAsync(CancellationToken.None); - } - } -} diff --git a/Transpiler_pp/Analyzer1/Analyzer1.Vsix/Analyzer1.Vsix.csproj b/Transpiler_pp/Analyzer1/Analyzer1.Vsix/Analyzer1.Vsix.csproj deleted file mode 100644 index fe9a470d5..000000000 --- a/Transpiler_pp/Analyzer1/Analyzer1.Vsix/Analyzer1.Vsix.csproj +++ /dev/null @@ -1,48 +0,0 @@ - - - - - - net8.0 - Analyzer1.Vsix - Analyzer1.Vsix - - - - false - false - false - false - false - false - Roslyn - - - - - - - - Program - $(DevEnvDir)devenv.exe - /rootsuffix $(VSSDKTargetPlatformRegRootSuffix) - - - - - - - - - - - - - - - - - - - - \ No newline at end of file diff --git a/Transpiler_pp/Analyzer1/Analyzer1.props b/Transpiler_pp/Analyzer1/Analyzer1.props deleted file mode 100644 index d30c1217a..000000000 --- a/Transpiler_pp/Analyzer1/Analyzer1.props +++ /dev/null @@ -1,8 +0,0 @@ - - - - .. - $(UpDir)\..\bin\$(MSBuildProjectName)\ - $(UpDir)\..\obj\$(MSBuildProjectName)\ - - \ No newline at end of file diff --git a/Transpiler_pp/Analyzer1/Analyzer1/.info b/Transpiler_pp/Analyzer1/Analyzer1/.info deleted file mode 100644 index 0045fe857..000000000 --- a/Transpiler_pp/Analyzer1/Analyzer1/.info +++ /dev/null @@ -1 +0,0 @@ -Analyser - Package \ No newline at end of file diff --git a/Transpiler_pp/Analyzer1/Analyzer1/Analyzer1.csproj b/Transpiler_pp/Analyzer1/Analyzer1/Analyzer1.csproj deleted file mode 100644 index 98f833629..000000000 --- a/Transpiler_pp/Analyzer1/Analyzer1/Analyzer1.csproj +++ /dev/null @@ -1,26 +0,0 @@ - - - - net8.0 - false - - - *$(MSBuildProjectFile)* - - - true - - - - all - runtime; build; native; contentfiles; analyzers; buildtransitive - - - - - - - - - - diff --git a/Transpiler_pp/Analyzer1/Analyzer1/Analyzer1Analyzer.cs b/Transpiler_pp/Analyzer1/Analyzer1/Analyzer1Analyzer.cs deleted file mode 100644 index 1482977e4..000000000 --- a/Transpiler_pp/Analyzer1/Analyzer1/Analyzer1Analyzer.cs +++ /dev/null @@ -1,54 +0,0 @@ -using Microsoft.CodeAnalysis; -using Microsoft.CodeAnalysis.CSharp; -using Microsoft.CodeAnalysis.CSharp.Syntax; -using Microsoft.CodeAnalysis.Diagnostics; -using System; -using System.Collections.Generic; -using System.Collections.Immutable; -using System.Linq; -using System.Threading; - -namespace Analyzer1 -{ - [DiagnosticAnalyzer(LanguageNames.CSharp)] - public class Analyzer1Analyzer : DiagnosticAnalyzer - { - public const string DiagnosticId = "Analyzer1"; - - // You can change these strings in the Resources.resx file. If you do not want your analyzer to be localize-able, you can use regular strings for Title and MessageFormat. - // See https://github.com/dotnet/roslyn/blob/main/docs/analyzers/Localizing%20Analyzers.md for more on localization - private static readonly LocalizableString Title = new LocalizableResourceString(nameof(Resources.AnalyzerTitle), Resources.ResourceManager, typeof(Resources)); - private static readonly LocalizableString MessageFormat = new LocalizableResourceString(nameof(Resources.AnalyzerMessageFormat), Resources.ResourceManager, typeof(Resources)); - private static readonly LocalizableString Description = new LocalizableResourceString(nameof(Resources.AnalyzerDescription), Resources.ResourceManager, typeof(Resources)); - private const string Category = "Naming"; - - private static readonly DiagnosticDescriptor Rule = new DiagnosticDescriptor(DiagnosticId, Title, MessageFormat, Category, DiagnosticSeverity.Warning, isEnabledByDefault: true, description: Description); - - public override ImmutableArray SupportedDiagnostics { get { return ImmutableArray.Create(Rule); } } - - public override void Initialize(AnalysisContext context) - { - context.ConfigureGeneratedCodeAnalysis(GeneratedCodeAnalysisFlags.None); - context.EnableConcurrentExecution(); - - // TODO: Consider registering other actions that act on syntax instead of or in addition to symbols - // See https://github.com/dotnet/roslyn/blob/main/docs/analyzers/Analyzer%20Actions%20Semantics.md for more information - context.RegisterSymbolAction(AnalyzeSymbol, SymbolKind.NamedType); - } - - private static void AnalyzeSymbol(SymbolAnalysisContext context) - { - // TODO: Replace the following code with your own analysis, generating Diagnostic objects for any issues you find - var namedTypeSymbol = (INamedTypeSymbol)context.Symbol; - - // Find just those named type symbols with names containing lowercase letters. - if (namedTypeSymbol.Name.ToCharArray().Any(char.IsLower)) - { - // For all such symbols, produce a diagnostic. - var diagnostic = Diagnostic.Create(Rule, namedTypeSymbol.Locations[0], namedTypeSymbol.Name); - - context.ReportDiagnostic(diagnostic); - } - } - } -} diff --git a/Transpiler_pp/Analyzer1/Analyzer1/Resources.Designer.cs b/Transpiler_pp/Analyzer1/Analyzer1/Resources.Designer.cs deleted file mode 100644 index f28a53845..000000000 --- a/Transpiler_pp/Analyzer1/Analyzer1/Resources.Designer.cs +++ /dev/null @@ -1,90 +0,0 @@ -//------------------------------------------------------------------------------ -// -// Dieser Code wurde von einem Tool generiert. -// Laufzeitversion:4.0.30319.42000 -// -// Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn -// der Code erneut generiert wird. -// -//------------------------------------------------------------------------------ - -namespace Analyzer1 { - using System; - - - /// - /// Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. - /// - // Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert - // -Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. - // Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen - // mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. - [global::System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "18.0.0.0")] - [global::System.Diagnostics.DebuggerNonUserCodeAttribute()] - [global::System.Runtime.CompilerServices.CompilerGeneratedAttribute()] - internal class Resources { - - private static global::System.Resources.ResourceManager resourceMan; - - private static global::System.Globalization.CultureInfo resourceCulture; - - [global::System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")] - internal Resources() { - } - - /// - /// Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. - /// - [global::System.ComponentModel.EditorBrowsableAttribute(global::System.ComponentModel.EditorBrowsableState.Advanced)] - internal static global::System.Resources.ResourceManager ResourceManager { - get { - if (object.ReferenceEquals(resourceMan, null)) { - global::System.Resources.ResourceManager temp = new global::System.Resources.ResourceManager("Analyzer1.Resources", typeof(Resources).Assembly); - resourceMan = temp; - } - return resourceMan; - } - } - - /// - /// Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle - /// Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. - /// - [global::System.ComponentModel.EditorBrowsableAttribute(global::System.ComponentModel.EditorBrowsableState.Advanced)] - internal static global::System.Globalization.CultureInfo Culture { - get { - return resourceCulture; - } - set { - resourceCulture = value; - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die Type names should be all uppercase. ähnelt. - /// - internal static string AnalyzerDescription { - get { - return ResourceManager.GetString("AnalyzerDescription", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die Type name '{0}' contains lowercase letters ähnelt. - /// - internal static string AnalyzerMessageFormat { - get { - return ResourceManager.GetString("AnalyzerMessageFormat", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die Type name contains lowercase letters ähnelt. - /// - internal static string AnalyzerTitle { - get { - return ResourceManager.GetString("AnalyzerTitle", resourceCulture); - } - } - } -} diff --git a/Transpiler_pp/Analyzer1/Analyzer1/Resources.de.resx b/Transpiler_pp/Analyzer1/Analyzer1/Resources.de.resx deleted file mode 100644 index 5c32f459b..000000000 --- a/Transpiler_pp/Analyzer1/Analyzer1/Resources.de.resx +++ /dev/null @@ -1,129 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Typnamen sollten ausschließlich in Großbuchstaben geschrieben werden. - - - Der Typname „{0}“ enthält Kleinbuchstaben - - - Der Typname enthält Kleinbuchstaben - - \ No newline at end of file diff --git a/Transpiler_pp/Analyzer1/Analyzer1/Resources.resx b/Transpiler_pp/Analyzer1/Analyzer1/Resources.resx deleted file mode 100644 index 410edccd7..000000000 --- a/Transpiler_pp/Analyzer1/Analyzer1/Resources.resx +++ /dev/null @@ -1,132 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Type names should be all uppercase. - An optional longer localizable description of the diagnostic. - - - Type name '{0}' contains lowercase letters - The format-able message the diagnostic displays. - - - Type name contains lowercase letters - The title of the diagnostic. - - \ No newline at end of file diff --git a/Transpiler_pp/CONTRIBUTING.md b/Transpiler_pp/CONTRIBUTING.md deleted file mode 100644 index ca73712c5..000000000 --- a/Transpiler_pp/CONTRIBUTING.md +++ /dev/null @@ -1,26 +0,0 @@ -# Contributing Guidelines - -## Coding Standards & Patterns - -### Architecture -- **MVVM (Model-View-ViewModel):** We strictly follow the MVVM pattern for UI applications. -- **Dependency Injection (DI):** Use DI for loose coupling and testability. -- **File Structure:** Adhere to the "One Class per File" rule. -- **Strict Separation of Concerns:** Each class should have a single responsibility. -- **Strict Separation of Code and generated Stuff:** The code you write should be separate from any generated code. -- **I18n/L10n:** All user-facing strings must be localized. - -### Testing & TDD -- **Test-Driven Development (TDD):** Tests must be created *before* the implementation. -- **Frameworks:** - - **Testing Framework:** MSTestv4 - - **Mocking:** NSubstitute - - **MVVM Support:** CommunityToolkit.Mvvm - -### Build Configuration -- **Warnings as Errors:** `TreatWarningsAsErrors` is enabled. Ensure your code compiles without warnings. - -## Workflow -1. Create a failing test (Red). -2. Implement the minimal code to pass the test (Green). -3. Refactor. diff --git a/Transpiler_pp/ResXManager.config.xml b/Transpiler_pp/ResXManager.config.xml deleted file mode 100644 index 3541f951b..000000000 --- a/Transpiler_pp/ResXManager.config.xml +++ /dev/null @@ -1,2 +0,0 @@ - - \ No newline at end of file diff --git a/Transpiler_pp/Transpiler.props b/Transpiler_pp/Transpiler.props deleted file mode 100644 index eb6c6e994..000000000 --- a/Transpiler_pp/Transpiler.props +++ /dev/null @@ -1,16 +0,0 @@ - - - .. - $(UpDir)\..\bin\$(MSBuildProjectName)\ - $(UpDir)\..\obj\$(MSBuildProjectName)\ - preview - enable - - NULLABLE - disable - JC-Soft - Joe Care - Copyright © JC-Soft 2024 - true - - \ No newline at end of file diff --git a/Transpiler_pp/Transpiler.sln b/Transpiler_pp/Transpiler.sln deleted file mode 100644 index 3884c70a2..000000000 --- a/Transpiler_pp/Transpiler.sln +++ /dev/null @@ -1,427 +0,0 @@ - -Microsoft Visual Studio Solution File, Format Version 12.00 -# Visual Studio Version 18 -VisualStudioVersion = 18.0.11201.2 -MinimumVisualStudioVersion = 10.0.40219.1 -Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "Projektmappenelemente", "Projektmappenelemente", "{FB9836CD-815C-4901-B10D-8CCF99B18E30}" - ProjectSection(SolutionItems) = preProject - CONTRIBUTING.md = CONTRIBUTING.md - ..\Gen_FreeWin\GenFreeWin.props = ..\Gen_FreeWin\GenFreeWin.props - Transpiler.props = Transpiler.props - EndProjectSection -EndProject -Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "Libraries", "Libraries", "{8655F273-B5AF-4D9A-B635-7F9168703579}" - ProjectSection(SolutionItems) = preProject - ..\CSharpBible\Libraries\Libraries.props = ..\CSharpBible\Libraries\Libraries.props - EndProjectSection -EndProject -Project("{9A19103F-16F7-4668-BE54-9A1E7A4F7556}") = "MVVM_BaseLib", "..\CSharpBible\Libraries\MVVM_BaseLib\MVVM_BaseLib.csproj", "{624E6963-3DCC-4625-8828-84F8E54C7EC9}" -EndProject -Project("{9A19103F-16F7-4668-BE54-9A1E7A4F7556}") = "MVVM_BaseLibTests", "..\CSharpBible\Libraries\MVVM_BaseLibTests\MVVM_BaseLibTests.csproj", "{AF053FC5-A810-4BBA-9A68-AF97906CE1FB}" -EndProject -Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "Transpiler", "Transpiler", "{5481B009-5D62-45A8-9DD3-B9E6792B0C0E}" -EndProject -Project("{9A19103F-16F7-4668-BE54-9A1E7A4F7556}") = "TranspilerLib", "TranspilerLib\TranspilerLib.csproj", "{AAD1DE18-2941-4281-80D9-395BD21C6318}" -EndProject -Project("{9A19103F-16F7-4668-BE54-9A1E7A4F7556}") = "TranspilerConsTest", "TranspilerConsTest\TranspilerConsTest.csproj", "{A2F2028C-E393-4A04-BF9F-E002B13FB3E7}" -EndProject -Project("{9A19103F-16F7-4668-BE54-9A1E7A4F7556}") = "Analyzer1", "Analyzer1\Analyzer1\Analyzer1.csproj", "{68CCC629-61B7-435B-A39C-C9EE023388D6}" -EndProject -Project("{9A19103F-16F7-4668-BE54-9A1E7A4F7556}") = "Analyzer1.CodeFixes", "Analyzer1\Analyzer1.CodeFixes\Analyzer1.CodeFixes.csproj", "{BE43CB35-C6AA-4EA3-BE1D-8DC865B948A8}" -EndProject -Project("{9A19103F-16F7-4668-BE54-9A1E7A4F7556}") = "Analyzer1.Package", "Analyzer1\Analyzer1.Package\Analyzer1.Package.csproj", "{15FE2AB9-637E-4FD2-BB48-67C3CE22DEBD}" -EndProject -Project("{9A19103F-16F7-4668-BE54-9A1E7A4F7556}") = "Analyzer1.Vsix", "Analyzer1\Analyzer1.Vsix\Analyzer1.Vsix.csproj", "{8A24ABD1-0D57-4EFD-8C2A-4999D4DACAE0}" -EndProject -Project("{9A19103F-16F7-4668-BE54-9A1E7A4F7556}") = "TranspilerLibTests", "TranspilerLibTests\TranspilerLibTests.csproj", "{C87BEC24-2C21-4DEF-BB8D-B9503105A086}" -EndProject -Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "BaseLib", "..\CSharpBible\Libraries\BaseLib\BaseLib.csproj", "{8608004D-250B-461E-BD95-D288414A9C01}" -EndProject -Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "BaseLibTests", "..\CSharpBible\Libraries\BaseLibTests\BaseLibTests.csproj", "{893755DA-9A1A-4DCB-8B7D-CD5C61790B76}" -EndProject -Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "TranspilerLib.Pascal", "TranspilerLib.Pascal\TranspilerLib.Pascal.csproj", "{D87F3521-E414-4F1C-895D-7CDA16483DFF}" -EndProject -Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "TranspilerLib.IEC", "TranspilerLib.IEC\TranspilerLib.IEC.csproj", "{07C23DC0-BB5F-4E3F-A85E-2F4ACB66ECC0}" -EndProject -Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "TranspilerLib.CSharp", "TranspilerLib.CSharp\TranspilerLib.CSharp.csproj", "{1CCC7458-4422-4370-8540-3BE92F479BEA}" -EndProject -Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "TranspilerLib.Pascal.Tests", "TranspilerLib.Pascal.Tests\TranspilerLib.Pascal.Tests.csproj", "{DD21FC5F-2FFF-4BD6-847B-7B5006DB3389}" -EndProject -Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "cmd", "cmd", "{0E2C6B7C-A659-45E8-AD73-092473A0572D}" - ProjectSection(SolutionItems) = preProject - ..\..\Cmd\CheckIn.cmd = ..\..\Cmd\CheckIn.cmd - ..\..\Cmd\CheckIn2.cmd = ..\..\Cmd\CheckIn2.cmd - EndProjectSection -EndProject -Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "Trnsp.Show.Lfm", "Trnsp.Show.Lfm\Trnsp.Show.Lfm.csproj", "{AFFF4BB6-EFBC-4077-AC1B-D2B8869476B8}" -EndProject -Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "Trnsp.Show.Lfm.Tests", "Trnsp.Show.Lfm.Tests\Trnsp.Show.Lfm.Tests.csproj", "{254C22CE-920A-AED1-2EA5-C96DB6A09864}" -EndProject -Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "Trnsp.Show.Pas.Tests", "Trnsp.Show.Pas.Tests\Trnsp.Show.Pas.Tests.csproj", "{53F850C8-1AAB-4FDE-9474-DFCF998A53C9}" -EndProject -Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "Trnsp.Show.Pas", "Trnsp.Show.Pas\Trnsp.Show.Pas.csproj", "{6DC12DCF-BAA7-66F1-405F-3B2AD554496C}" -EndProject -Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "TranspilerLib.IEC.Tests", "TranspilerLib.IEC.Tests\TranspilerLib.IEC.Tests.csproj", "{0ED82AAC-FAD8-F687-071C-D9647D285686}" -EndProject -Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "TranspilerLib.CSharp.Tests", "TranspilerLib.CSharp.Tests\TranspilerLib.CSharp.Tests.csproj", "{BEB66A05-10A8-4E22-BEF8-60C65D5D7D33}" -EndProject -Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "TranspilerLib.DriveBASIC", "TranspilerLib.DriveBASIC\TranspilerLib.DriveBASIC.csproj", "{89581B77-FF19-1BB1-F4CA-B9DBE0B262DA}" -EndProject -Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "Legacie", "Legacie", "{ED056C0C-6B22-40E7-B1AC-F82DE8D2E88A}" - ProjectSection(SolutionItems) = preProject - ..\..\Delphi\Projekte\MPS-LR\Test\fpctestdrivecompiler.pas = ..\..\Delphi\Projekte\MPS-LR\Test\fpctestdrivecompiler.pas - ..\..\Delphi\Projekte\MPS-LR\Drive\unt_DriveBase.pas = ..\..\Delphi\Projekte\MPS-LR\Drive\unt_DriveBase.pas - ..\..\Delphi\Projekte\MPS-LR\Drive\unt_DriveCompiler.pas = ..\..\Delphi\Projekte\MPS-LR\Drive\unt_DriveCompiler.pas - EndProjectSection -EndProject -Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "TranspilerLib.DriveBASIC.Tests", "TranspilerLib.DriveBASIC.Tests\TranspilerLib.DriveBASIC.Tests.csproj", "{FE5B9048-D9EC-1419-5118-1D1143392538}" -EndProject -Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "CommonDialogs", "..\CSharpBible\Libraries\CommonDialogs\CommonDialogs.csproj", "{905154E7-63D0-FDF0-0011-D38969128C0C}" -EndProject -Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "CommonDialogs_net", "..\CSharpBible\Libraries\CommonDialogs\CommonDialogs_net.csproj", "{A38C52AE-8CF4-16EE-8830-1D420CEE8760}" -EndProject -Global - GlobalSection(SolutionConfigurationPlatforms) = preSolution - Debug|Any CPU = Debug|Any CPU - Debug|Mixed Platforms = Debug|Mixed Platforms - Debug|x86 = Debug|x86 - Release|Any CPU = Release|Any CPU - Release|Mixed Platforms = Release|Mixed Platforms - Release|x86 = Release|x86 - EndGlobalSection - GlobalSection(ProjectConfigurationPlatforms) = postSolution - {624E6963-3DCC-4625-8828-84F8E54C7EC9}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {624E6963-3DCC-4625-8828-84F8E54C7EC9}.Debug|Any CPU.Build.0 = Debug|Any CPU - {624E6963-3DCC-4625-8828-84F8E54C7EC9}.Debug|Mixed Platforms.ActiveCfg = Debug|x86 - {624E6963-3DCC-4625-8828-84F8E54C7EC9}.Debug|Mixed Platforms.Build.0 = Debug|x86 - {624E6963-3DCC-4625-8828-84F8E54C7EC9}.Debug|x86.ActiveCfg = Debug|x86 - {624E6963-3DCC-4625-8828-84F8E54C7EC9}.Debug|x86.Build.0 = Debug|x86 - {624E6963-3DCC-4625-8828-84F8E54C7EC9}.Release|Any CPU.ActiveCfg = Release|Any CPU - {624E6963-3DCC-4625-8828-84F8E54C7EC9}.Release|Any CPU.Build.0 = Release|Any CPU - {624E6963-3DCC-4625-8828-84F8E54C7EC9}.Release|Mixed Platforms.ActiveCfg = Release|x86 - {624E6963-3DCC-4625-8828-84F8E54C7EC9}.Release|Mixed Platforms.Build.0 = Release|x86 - {624E6963-3DCC-4625-8828-84F8E54C7EC9}.Release|x86.ActiveCfg = Release|x86 - {624E6963-3DCC-4625-8828-84F8E54C7EC9}.Release|x86.Build.0 = Release|x86 - {AF053FC5-A810-4BBA-9A68-AF97906CE1FB}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {AF053FC5-A810-4BBA-9A68-AF97906CE1FB}.Debug|Any CPU.Build.0 = Debug|Any CPU - {AF053FC5-A810-4BBA-9A68-AF97906CE1FB}.Debug|Mixed Platforms.ActiveCfg = Debug|x86 - {AF053FC5-A810-4BBA-9A68-AF97906CE1FB}.Debug|Mixed Platforms.Build.0 = Debug|x86 - {AF053FC5-A810-4BBA-9A68-AF97906CE1FB}.Debug|x86.ActiveCfg = Debug|x86 - {AF053FC5-A810-4BBA-9A68-AF97906CE1FB}.Debug|x86.Build.0 = Debug|x86 - {AF053FC5-A810-4BBA-9A68-AF97906CE1FB}.Release|Any CPU.ActiveCfg = Release|Any CPU - {AF053FC5-A810-4BBA-9A68-AF97906CE1FB}.Release|Any CPU.Build.0 = Release|Any CPU - {AF053FC5-A810-4BBA-9A68-AF97906CE1FB}.Release|Mixed Platforms.ActiveCfg = Release|x86 - {AF053FC5-A810-4BBA-9A68-AF97906CE1FB}.Release|Mixed Platforms.Build.0 = Release|x86 - {AF053FC5-A810-4BBA-9A68-AF97906CE1FB}.Release|x86.ActiveCfg = Release|x86 - {AF053FC5-A810-4BBA-9A68-AF97906CE1FB}.Release|x86.Build.0 = Release|x86 - {AAD1DE18-2941-4281-80D9-395BD21C6318}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {AAD1DE18-2941-4281-80D9-395BD21C6318}.Debug|Any CPU.Build.0 = Debug|Any CPU - {AAD1DE18-2941-4281-80D9-395BD21C6318}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU - {AAD1DE18-2941-4281-80D9-395BD21C6318}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU - {AAD1DE18-2941-4281-80D9-395BD21C6318}.Debug|x86.ActiveCfg = Debug|Any CPU - {AAD1DE18-2941-4281-80D9-395BD21C6318}.Debug|x86.Build.0 = Debug|Any CPU - {AAD1DE18-2941-4281-80D9-395BD21C6318}.Release|Any CPU.ActiveCfg = Release|Any CPU - {AAD1DE18-2941-4281-80D9-395BD21C6318}.Release|Any CPU.Build.0 = Release|Any CPU - {AAD1DE18-2941-4281-80D9-395BD21C6318}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU - {AAD1DE18-2941-4281-80D9-395BD21C6318}.Release|Mixed Platforms.Build.0 = Release|Any CPU - {AAD1DE18-2941-4281-80D9-395BD21C6318}.Release|x86.ActiveCfg = Release|Any CPU - {AAD1DE18-2941-4281-80D9-395BD21C6318}.Release|x86.Build.0 = Release|Any CPU - {A2F2028C-E393-4A04-BF9F-E002B13FB3E7}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {A2F2028C-E393-4A04-BF9F-E002B13FB3E7}.Debug|Any CPU.Build.0 = Debug|Any CPU - {A2F2028C-E393-4A04-BF9F-E002B13FB3E7}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU - {A2F2028C-E393-4A04-BF9F-E002B13FB3E7}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU - {A2F2028C-E393-4A04-BF9F-E002B13FB3E7}.Debug|x86.ActiveCfg = Debug|Any CPU - {A2F2028C-E393-4A04-BF9F-E002B13FB3E7}.Debug|x86.Build.0 = Debug|Any CPU - {A2F2028C-E393-4A04-BF9F-E002B13FB3E7}.Release|Any CPU.ActiveCfg = Release|Any CPU - {A2F2028C-E393-4A04-BF9F-E002B13FB3E7}.Release|Any CPU.Build.0 = Release|Any CPU - {A2F2028C-E393-4A04-BF9F-E002B13FB3E7}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU - {A2F2028C-E393-4A04-BF9F-E002B13FB3E7}.Release|Mixed Platforms.Build.0 = Release|Any CPU - {A2F2028C-E393-4A04-BF9F-E002B13FB3E7}.Release|x86.ActiveCfg = Release|Any CPU - {A2F2028C-E393-4A04-BF9F-E002B13FB3E7}.Release|x86.Build.0 = Release|Any CPU - {68CCC629-61B7-435B-A39C-C9EE023388D6}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {68CCC629-61B7-435B-A39C-C9EE023388D6}.Debug|Any CPU.Build.0 = Debug|Any CPU - {68CCC629-61B7-435B-A39C-C9EE023388D6}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU - {68CCC629-61B7-435B-A39C-C9EE023388D6}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU - {68CCC629-61B7-435B-A39C-C9EE023388D6}.Debug|x86.ActiveCfg = Debug|Any CPU - {68CCC629-61B7-435B-A39C-C9EE023388D6}.Debug|x86.Build.0 = Debug|Any CPU - {68CCC629-61B7-435B-A39C-C9EE023388D6}.Release|Any CPU.ActiveCfg = Release|Any CPU - {68CCC629-61B7-435B-A39C-C9EE023388D6}.Release|Any CPU.Build.0 = Release|Any CPU - {68CCC629-61B7-435B-A39C-C9EE023388D6}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU - {68CCC629-61B7-435B-A39C-C9EE023388D6}.Release|Mixed Platforms.Build.0 = Release|Any CPU - {68CCC629-61B7-435B-A39C-C9EE023388D6}.Release|x86.ActiveCfg = Release|Any CPU - {68CCC629-61B7-435B-A39C-C9EE023388D6}.Release|x86.Build.0 = Release|Any CPU - {BE43CB35-C6AA-4EA3-BE1D-8DC865B948A8}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {BE43CB35-C6AA-4EA3-BE1D-8DC865B948A8}.Debug|Any CPU.Build.0 = Debug|Any CPU - {BE43CB35-C6AA-4EA3-BE1D-8DC865B948A8}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU - {BE43CB35-C6AA-4EA3-BE1D-8DC865B948A8}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU - {BE43CB35-C6AA-4EA3-BE1D-8DC865B948A8}.Debug|x86.ActiveCfg = Debug|Any CPU - {BE43CB35-C6AA-4EA3-BE1D-8DC865B948A8}.Debug|x86.Build.0 = Debug|Any CPU - {BE43CB35-C6AA-4EA3-BE1D-8DC865B948A8}.Release|Any CPU.ActiveCfg = Release|Any CPU - {BE43CB35-C6AA-4EA3-BE1D-8DC865B948A8}.Release|Any CPU.Build.0 = Release|Any CPU - {BE43CB35-C6AA-4EA3-BE1D-8DC865B948A8}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU - {BE43CB35-C6AA-4EA3-BE1D-8DC865B948A8}.Release|Mixed Platforms.Build.0 = Release|Any CPU - {BE43CB35-C6AA-4EA3-BE1D-8DC865B948A8}.Release|x86.ActiveCfg = Release|Any CPU - {BE43CB35-C6AA-4EA3-BE1D-8DC865B948A8}.Release|x86.Build.0 = Release|Any CPU - {15FE2AB9-637E-4FD2-BB48-67C3CE22DEBD}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {15FE2AB9-637E-4FD2-BB48-67C3CE22DEBD}.Debug|Any CPU.Build.0 = Debug|Any CPU - {15FE2AB9-637E-4FD2-BB48-67C3CE22DEBD}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU - {15FE2AB9-637E-4FD2-BB48-67C3CE22DEBD}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU - {15FE2AB9-637E-4FD2-BB48-67C3CE22DEBD}.Debug|x86.ActiveCfg = Debug|Any CPU - {15FE2AB9-637E-4FD2-BB48-67C3CE22DEBD}.Debug|x86.Build.0 = Debug|Any CPU - {15FE2AB9-637E-4FD2-BB48-67C3CE22DEBD}.Release|Any CPU.ActiveCfg = Release|Any CPU - {15FE2AB9-637E-4FD2-BB48-67C3CE22DEBD}.Release|Any CPU.Build.0 = Release|Any CPU - {15FE2AB9-637E-4FD2-BB48-67C3CE22DEBD}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU - {15FE2AB9-637E-4FD2-BB48-67C3CE22DEBD}.Release|Mixed Platforms.Build.0 = Release|Any CPU - {15FE2AB9-637E-4FD2-BB48-67C3CE22DEBD}.Release|x86.ActiveCfg = Release|Any CPU - {15FE2AB9-637E-4FD2-BB48-67C3CE22DEBD}.Release|x86.Build.0 = Release|Any CPU - {8A24ABD1-0D57-4EFD-8C2A-4999D4DACAE0}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {8A24ABD1-0D57-4EFD-8C2A-4999D4DACAE0}.Debug|Any CPU.Build.0 = Debug|Any CPU - {8A24ABD1-0D57-4EFD-8C2A-4999D4DACAE0}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU - {8A24ABD1-0D57-4EFD-8C2A-4999D4DACAE0}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU - {8A24ABD1-0D57-4EFD-8C2A-4999D4DACAE0}.Debug|x86.ActiveCfg = Debug|Any CPU - {8A24ABD1-0D57-4EFD-8C2A-4999D4DACAE0}.Debug|x86.Build.0 = Debug|Any CPU - {8A24ABD1-0D57-4EFD-8C2A-4999D4DACAE0}.Release|Any CPU.ActiveCfg = Release|Any CPU - {8A24ABD1-0D57-4EFD-8C2A-4999D4DACAE0}.Release|Any CPU.Build.0 = Release|Any CPU - {8A24ABD1-0D57-4EFD-8C2A-4999D4DACAE0}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU - {8A24ABD1-0D57-4EFD-8C2A-4999D4DACAE0}.Release|Mixed Platforms.Build.0 = Release|Any CPU - {8A24ABD1-0D57-4EFD-8C2A-4999D4DACAE0}.Release|x86.ActiveCfg = Release|Any CPU - {8A24ABD1-0D57-4EFD-8C2A-4999D4DACAE0}.Release|x86.Build.0 = Release|Any CPU - {C87BEC24-2C21-4DEF-BB8D-B9503105A086}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {C87BEC24-2C21-4DEF-BB8D-B9503105A086}.Debug|Any CPU.Build.0 = Debug|Any CPU - {C87BEC24-2C21-4DEF-BB8D-B9503105A086}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU - {C87BEC24-2C21-4DEF-BB8D-B9503105A086}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU - {C87BEC24-2C21-4DEF-BB8D-B9503105A086}.Debug|x86.ActiveCfg = Debug|Any CPU - {C87BEC24-2C21-4DEF-BB8D-B9503105A086}.Debug|x86.Build.0 = Debug|Any CPU - {C87BEC24-2C21-4DEF-BB8D-B9503105A086}.Release|Any CPU.ActiveCfg = Release|Any CPU - {C87BEC24-2C21-4DEF-BB8D-B9503105A086}.Release|Any CPU.Build.0 = Release|Any CPU - {C87BEC24-2C21-4DEF-BB8D-B9503105A086}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU - {C87BEC24-2C21-4DEF-BB8D-B9503105A086}.Release|Mixed Platforms.Build.0 = Release|Any CPU - {C87BEC24-2C21-4DEF-BB8D-B9503105A086}.Release|x86.ActiveCfg = Release|Any CPU - {C87BEC24-2C21-4DEF-BB8D-B9503105A086}.Release|x86.Build.0 = Release|Any CPU - {8608004D-250B-461E-BD95-D288414A9C01}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {8608004D-250B-461E-BD95-D288414A9C01}.Debug|Any CPU.Build.0 = Debug|Any CPU - {8608004D-250B-461E-BD95-D288414A9C01}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU - {8608004D-250B-461E-BD95-D288414A9C01}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU - {8608004D-250B-461E-BD95-D288414A9C01}.Debug|x86.ActiveCfg = Debug|Any CPU - {8608004D-250B-461E-BD95-D288414A9C01}.Debug|x86.Build.0 = Debug|Any CPU - {8608004D-250B-461E-BD95-D288414A9C01}.Release|Any CPU.ActiveCfg = Release|Any CPU - {8608004D-250B-461E-BD95-D288414A9C01}.Release|Any CPU.Build.0 = Release|Any CPU - {8608004D-250B-461E-BD95-D288414A9C01}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU - {8608004D-250B-461E-BD95-D288414A9C01}.Release|Mixed Platforms.Build.0 = Release|Any CPU - {8608004D-250B-461E-BD95-D288414A9C01}.Release|x86.ActiveCfg = Release|Any CPU - {8608004D-250B-461E-BD95-D288414A9C01}.Release|x86.Build.0 = Release|Any CPU - {893755DA-9A1A-4DCB-8B7D-CD5C61790B76}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {893755DA-9A1A-4DCB-8B7D-CD5C61790B76}.Debug|Any CPU.Build.0 = Debug|Any CPU - {893755DA-9A1A-4DCB-8B7D-CD5C61790B76}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU - {893755DA-9A1A-4DCB-8B7D-CD5C61790B76}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU - {893755DA-9A1A-4DCB-8B7D-CD5C61790B76}.Debug|x86.ActiveCfg = Debug|Any CPU - {893755DA-9A1A-4DCB-8B7D-CD5C61790B76}.Debug|x86.Build.0 = Debug|Any CPU - {893755DA-9A1A-4DCB-8B7D-CD5C61790B76}.Release|Any CPU.ActiveCfg = Release|Any CPU - {893755DA-9A1A-4DCB-8B7D-CD5C61790B76}.Release|Any CPU.Build.0 = Release|Any CPU - {893755DA-9A1A-4DCB-8B7D-CD5C61790B76}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU - {893755DA-9A1A-4DCB-8B7D-CD5C61790B76}.Release|Mixed Platforms.Build.0 = Release|Any CPU - {893755DA-9A1A-4DCB-8B7D-CD5C61790B76}.Release|x86.ActiveCfg = Release|Any CPU - {893755DA-9A1A-4DCB-8B7D-CD5C61790B76}.Release|x86.Build.0 = Release|Any CPU - {D87F3521-E414-4F1C-895D-7CDA16483DFF}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {D87F3521-E414-4F1C-895D-7CDA16483DFF}.Debug|Any CPU.Build.0 = Debug|Any CPU - {D87F3521-E414-4F1C-895D-7CDA16483DFF}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU - {D87F3521-E414-4F1C-895D-7CDA16483DFF}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU - {D87F3521-E414-4F1C-895D-7CDA16483DFF}.Debug|x86.ActiveCfg = Debug|Any CPU - {D87F3521-E414-4F1C-895D-7CDA16483DFF}.Debug|x86.Build.0 = Debug|Any CPU - {D87F3521-E414-4F1C-895D-7CDA16483DFF}.Release|Any CPU.ActiveCfg = Release|Any CPU - {D87F3521-E414-4F1C-895D-7CDA16483DFF}.Release|Any CPU.Build.0 = Release|Any CPU - {D87F3521-E414-4F1C-895D-7CDA16483DFF}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU - {D87F3521-E414-4F1C-895D-7CDA16483DFF}.Release|Mixed Platforms.Build.0 = Release|Any CPU - {D87F3521-E414-4F1C-895D-7CDA16483DFF}.Release|x86.ActiveCfg = Release|Any CPU - {D87F3521-E414-4F1C-895D-7CDA16483DFF}.Release|x86.Build.0 = Release|Any CPU - {07C23DC0-BB5F-4E3F-A85E-2F4ACB66ECC0}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {07C23DC0-BB5F-4E3F-A85E-2F4ACB66ECC0}.Debug|Any CPU.Build.0 = Debug|Any CPU - {07C23DC0-BB5F-4E3F-A85E-2F4ACB66ECC0}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU - {07C23DC0-BB5F-4E3F-A85E-2F4ACB66ECC0}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU - {07C23DC0-BB5F-4E3F-A85E-2F4ACB66ECC0}.Debug|x86.ActiveCfg = Debug|Any CPU - {07C23DC0-BB5F-4E3F-A85E-2F4ACB66ECC0}.Debug|x86.Build.0 = Debug|Any CPU - {07C23DC0-BB5F-4E3F-A85E-2F4ACB66ECC0}.Release|Any CPU.ActiveCfg = Release|Any CPU - {07C23DC0-BB5F-4E3F-A85E-2F4ACB66ECC0}.Release|Any CPU.Build.0 = Release|Any CPU - {07C23DC0-BB5F-4E3F-A85E-2F4ACB66ECC0}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU - {07C23DC0-BB5F-4E3F-A85E-2F4ACB66ECC0}.Release|Mixed Platforms.Build.0 = Release|Any CPU - {07C23DC0-BB5F-4E3F-A85E-2F4ACB66ECC0}.Release|x86.ActiveCfg = Release|Any CPU - {07C23DC0-BB5F-4E3F-A85E-2F4ACB66ECC0}.Release|x86.Build.0 = Release|Any CPU - {1CCC7458-4422-4370-8540-3BE92F479BEA}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {1CCC7458-4422-4370-8540-3BE92F479BEA}.Debug|Any CPU.Build.0 = Debug|Any CPU - {1CCC7458-4422-4370-8540-3BE92F479BEA}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU - {1CCC7458-4422-4370-8540-3BE92F479BEA}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU - {1CCC7458-4422-4370-8540-3BE92F479BEA}.Debug|x86.ActiveCfg = Debug|Any CPU - {1CCC7458-4422-4370-8540-3BE92F479BEA}.Debug|x86.Build.0 = Debug|Any CPU - {1CCC7458-4422-4370-8540-3BE92F479BEA}.Release|Any CPU.ActiveCfg = Release|Any CPU - {1CCC7458-4422-4370-8540-3BE92F479BEA}.Release|Any CPU.Build.0 = Release|Any CPU - {1CCC7458-4422-4370-8540-3BE92F479BEA}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU - {1CCC7458-4422-4370-8540-3BE92F479BEA}.Release|Mixed Platforms.Build.0 = Release|Any CPU - {1CCC7458-4422-4370-8540-3BE92F479BEA}.Release|x86.ActiveCfg = Release|Any CPU - {1CCC7458-4422-4370-8540-3BE92F479BEA}.Release|x86.Build.0 = Release|Any CPU - {DD21FC5F-2FFF-4BD6-847B-7B5006DB3389}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {DD21FC5F-2FFF-4BD6-847B-7B5006DB3389}.Debug|Any CPU.Build.0 = Debug|Any CPU - {DD21FC5F-2FFF-4BD6-847B-7B5006DB3389}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU - {DD21FC5F-2FFF-4BD6-847B-7B5006DB3389}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU - {DD21FC5F-2FFF-4BD6-847B-7B5006DB3389}.Debug|x86.ActiveCfg = Debug|Any CPU - {DD21FC5F-2FFF-4BD6-847B-7B5006DB3389}.Debug|x86.Build.0 = Debug|Any CPU - {DD21FC5F-2FFF-4BD6-847B-7B5006DB3389}.Release|Any CPU.ActiveCfg = Release|Any CPU - {DD21FC5F-2FFF-4BD6-847B-7B5006DB3389}.Release|Any CPU.Build.0 = Release|Any CPU - {DD21FC5F-2FFF-4BD6-847B-7B5006DB3389}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU - {DD21FC5F-2FFF-4BD6-847B-7B5006DB3389}.Release|Mixed Platforms.Build.0 = Release|Any CPU - {DD21FC5F-2FFF-4BD6-847B-7B5006DB3389}.Release|x86.ActiveCfg = Release|Any CPU - {DD21FC5F-2FFF-4BD6-847B-7B5006DB3389}.Release|x86.Build.0 = Release|Any CPU - {AFFF4BB6-EFBC-4077-AC1B-D2B8869476B8}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {AFFF4BB6-EFBC-4077-AC1B-D2B8869476B8}.Debug|Any CPU.Build.0 = Debug|Any CPU - {AFFF4BB6-EFBC-4077-AC1B-D2B8869476B8}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU - {AFFF4BB6-EFBC-4077-AC1B-D2B8869476B8}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU - {AFFF4BB6-EFBC-4077-AC1B-D2B8869476B8}.Debug|x86.ActiveCfg = Debug|Any CPU - {AFFF4BB6-EFBC-4077-AC1B-D2B8869476B8}.Debug|x86.Build.0 = Debug|Any CPU - {AFFF4BB6-EFBC-4077-AC1B-D2B8869476B8}.Release|Any CPU.ActiveCfg = Release|Any CPU - {AFFF4BB6-EFBC-4077-AC1B-D2B8869476B8}.Release|Any CPU.Build.0 = Release|Any CPU - {AFFF4BB6-EFBC-4077-AC1B-D2B8869476B8}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU - {AFFF4BB6-EFBC-4077-AC1B-D2B8869476B8}.Release|Mixed Platforms.Build.0 = Release|Any CPU - {AFFF4BB6-EFBC-4077-AC1B-D2B8869476B8}.Release|x86.ActiveCfg = Release|Any CPU - {AFFF4BB6-EFBC-4077-AC1B-D2B8869476B8}.Release|x86.Build.0 = Release|Any CPU - {254C22CE-920A-AED1-2EA5-C96DB6A09864}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {254C22CE-920A-AED1-2EA5-C96DB6A09864}.Debug|Any CPU.Build.0 = Debug|Any CPU - {254C22CE-920A-AED1-2EA5-C96DB6A09864}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU - {254C22CE-920A-AED1-2EA5-C96DB6A09864}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU - {254C22CE-920A-AED1-2EA5-C96DB6A09864}.Debug|x86.ActiveCfg = Debug|Any CPU - {254C22CE-920A-AED1-2EA5-C96DB6A09864}.Debug|x86.Build.0 = Debug|Any CPU - {254C22CE-920A-AED1-2EA5-C96DB6A09864}.Release|Any CPU.ActiveCfg = Release|Any CPU - {254C22CE-920A-AED1-2EA5-C96DB6A09864}.Release|Any CPU.Build.0 = Release|Any CPU - {254C22CE-920A-AED1-2EA5-C96DB6A09864}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU - {254C22CE-920A-AED1-2EA5-C96DB6A09864}.Release|Mixed Platforms.Build.0 = Release|Any CPU - {254C22CE-920A-AED1-2EA5-C96DB6A09864}.Release|x86.ActiveCfg = Release|Any CPU - {254C22CE-920A-AED1-2EA5-C96DB6A09864}.Release|x86.Build.0 = Release|Any CPU - {53F850C8-1AAB-4FDE-9474-DFCF998A53C9}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {53F850C8-1AAB-4FDE-9474-DFCF998A53C9}.Debug|Any CPU.Build.0 = Debug|Any CPU - {53F850C8-1AAB-4FDE-9474-DFCF998A53C9}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU - {53F850C8-1AAB-4FDE-9474-DFCF998A53C9}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU - {53F850C8-1AAB-4FDE-9474-DFCF998A53C9}.Debug|x86.ActiveCfg = Debug|Any CPU - {53F850C8-1AAB-4FDE-9474-DFCF998A53C9}.Debug|x86.Build.0 = Debug|Any CPU - {53F850C8-1AAB-4FDE-9474-DFCF998A53C9}.Release|Any CPU.ActiveCfg = Release|Any CPU - {53F850C8-1AAB-4FDE-9474-DFCF998A53C9}.Release|Any CPU.Build.0 = Release|Any CPU - {53F850C8-1AAB-4FDE-9474-DFCF998A53C9}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU - {53F850C8-1AAB-4FDE-9474-DFCF998A53C9}.Release|Mixed Platforms.Build.0 = Release|Any CPU - {53F850C8-1AAB-4FDE-9474-DFCF998A53C9}.Release|x86.ActiveCfg = Release|Any CPU - {53F850C8-1AAB-4FDE-9474-DFCF998A53C9}.Release|x86.Build.0 = Release|Any CPU - {6DC12DCF-BAA7-66F1-405F-3B2AD554496C}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {6DC12DCF-BAA7-66F1-405F-3B2AD554496C}.Debug|Any CPU.Build.0 = Debug|Any CPU - {6DC12DCF-BAA7-66F1-405F-3B2AD554496C}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU - {6DC12DCF-BAA7-66F1-405F-3B2AD554496C}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU - {6DC12DCF-BAA7-66F1-405F-3B2AD554496C}.Debug|x86.ActiveCfg = Debug|Any CPU - {6DC12DCF-BAA7-66F1-405F-3B2AD554496C}.Debug|x86.Build.0 = Debug|Any CPU - {6DC12DCF-BAA7-66F1-405F-3B2AD554496C}.Release|Any CPU.ActiveCfg = Release|Any CPU - {6DC12DCF-BAA7-66F1-405F-3B2AD554496C}.Release|Any CPU.Build.0 = Release|Any CPU - {6DC12DCF-BAA7-66F1-405F-3B2AD554496C}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU - {6DC12DCF-BAA7-66F1-405F-3B2AD554496C}.Release|Mixed Platforms.Build.0 = Release|Any CPU - {6DC12DCF-BAA7-66F1-405F-3B2AD554496C}.Release|x86.ActiveCfg = Release|Any CPU - {6DC12DCF-BAA7-66F1-405F-3B2AD554496C}.Release|x86.Build.0 = Release|Any CPU - {0ED82AAC-FAD8-F687-071C-D9647D285686}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {0ED82AAC-FAD8-F687-071C-D9647D285686}.Debug|Any CPU.Build.0 = Debug|Any CPU - {0ED82AAC-FAD8-F687-071C-D9647D285686}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU - {0ED82AAC-FAD8-F687-071C-D9647D285686}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU - {0ED82AAC-FAD8-F687-071C-D9647D285686}.Debug|x86.ActiveCfg = Debug|Any CPU - {0ED82AAC-FAD8-F687-071C-D9647D285686}.Debug|x86.Build.0 = Debug|Any CPU - {0ED82AAC-FAD8-F687-071C-D9647D285686}.Release|Any CPU.ActiveCfg = Release|Any CPU - {0ED82AAC-FAD8-F687-071C-D9647D285686}.Release|Any CPU.Build.0 = Release|Any CPU - {0ED82AAC-FAD8-F687-071C-D9647D285686}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU - {0ED82AAC-FAD8-F687-071C-D9647D285686}.Release|Mixed Platforms.Build.0 = Release|Any CPU - {0ED82AAC-FAD8-F687-071C-D9647D285686}.Release|x86.ActiveCfg = Release|Any CPU - {0ED82AAC-FAD8-F687-071C-D9647D285686}.Release|x86.Build.0 = Release|Any CPU - {BEB66A05-10A8-4E22-BEF8-60C65D5D7D33}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {BEB66A05-10A8-4E22-BEF8-60C65D5D7D33}.Debug|Any CPU.Build.0 = Debug|Any CPU - {BEB66A05-10A8-4E22-BEF8-60C65D5D7D33}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU - {BEB66A05-10A8-4E22-BEF8-60C65D5D7D33}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU - {BEB66A05-10A8-4E22-BEF8-60C65D5D7D33}.Debug|x86.ActiveCfg = Debug|Any CPU - {BEB66A05-10A8-4E22-BEF8-60C65D5D7D33}.Debug|x86.Build.0 = Debug|Any CPU - {BEB66A05-10A8-4E22-BEF8-60C65D5D7D33}.Release|Any CPU.ActiveCfg = Release|Any CPU - {BEB66A05-10A8-4E22-BEF8-60C65D5D7D33}.Release|Any CPU.Build.0 = Release|Any CPU - {BEB66A05-10A8-4E22-BEF8-60C65D5D7D33}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU - {BEB66A05-10A8-4E22-BEF8-60C65D5D7D33}.Release|Mixed Platforms.Build.0 = Release|Any CPU - {BEB66A05-10A8-4E22-BEF8-60C65D5D7D33}.Release|x86.ActiveCfg = Release|Any CPU - {BEB66A05-10A8-4E22-BEF8-60C65D5D7D33}.Release|x86.Build.0 = Release|Any CPU - {89581B77-FF19-1BB1-F4CA-B9DBE0B262DA}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {89581B77-FF19-1BB1-F4CA-B9DBE0B262DA}.Debug|Any CPU.Build.0 = Debug|Any CPU - {89581B77-FF19-1BB1-F4CA-B9DBE0B262DA}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU - {89581B77-FF19-1BB1-F4CA-B9DBE0B262DA}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU - {89581B77-FF19-1BB1-F4CA-B9DBE0B262DA}.Debug|x86.ActiveCfg = Debug|Any CPU - {89581B77-FF19-1BB1-F4CA-B9DBE0B262DA}.Debug|x86.Build.0 = Debug|Any CPU - {89581B77-FF19-1BB1-F4CA-B9DBE0B262DA}.Release|Any CPU.ActiveCfg = Release|Any CPU - {89581B77-FF19-1BB1-F4CA-B9DBE0B262DA}.Release|Any CPU.Build.0 = Release|Any CPU - {89581B77-FF19-1BB1-F4CA-B9DBE0B262DA}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU - {89581B77-FF19-1BB1-F4CA-B9DBE0B262DA}.Release|Mixed Platforms.Build.0 = Release|Any CPU - {89581B77-FF19-1BB1-F4CA-B9DBE0B262DA}.Release|x86.ActiveCfg = Release|Any CPU - {89581B77-FF19-1BB1-F4CA-B9DBE0B262DA}.Release|x86.Build.0 = Release|Any CPU - {FE5B9048-D9EC-1419-5118-1D1143392538}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {FE5B9048-D9EC-1419-5118-1D1143392538}.Debug|Any CPU.Build.0 = Debug|Any CPU - {FE5B9048-D9EC-1419-5118-1D1143392538}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU - {FE5B9048-D9EC-1419-5118-1D1143392538}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU - {FE5B9048-D9EC-1419-5118-1D1143392538}.Debug|x86.ActiveCfg = Debug|Any CPU - {FE5B9048-D9EC-1419-5118-1D1143392538}.Debug|x86.Build.0 = Debug|Any CPU - {FE5B9048-D9EC-1419-5118-1D1143392538}.Release|Any CPU.ActiveCfg = Release|Any CPU - {FE5B9048-D9EC-1419-5118-1D1143392538}.Release|Any CPU.Build.0 = Release|Any CPU - {FE5B9048-D9EC-1419-5118-1D1143392538}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU - {FE5B9048-D9EC-1419-5118-1D1143392538}.Release|Mixed Platforms.Build.0 = Release|Any CPU - {FE5B9048-D9EC-1419-5118-1D1143392538}.Release|x86.ActiveCfg = Release|Any CPU - {FE5B9048-D9EC-1419-5118-1D1143392538}.Release|x86.Build.0 = Release|Any CPU - {905154E7-63D0-FDF0-0011-D38969128C0C}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {905154E7-63D0-FDF0-0011-D38969128C0C}.Debug|Any CPU.Build.0 = Debug|Any CPU - {905154E7-63D0-FDF0-0011-D38969128C0C}.Debug|Mixed Platforms.ActiveCfg = Debug|x64 - {905154E7-63D0-FDF0-0011-D38969128C0C}.Debug|Mixed Platforms.Build.0 = Debug|x64 - {905154E7-63D0-FDF0-0011-D38969128C0C}.Debug|x86.ActiveCfg = Debug|x86 - {905154E7-63D0-FDF0-0011-D38969128C0C}.Debug|x86.Build.0 = Debug|x86 - {905154E7-63D0-FDF0-0011-D38969128C0C}.Release|Any CPU.ActiveCfg = Release|Any CPU - {905154E7-63D0-FDF0-0011-D38969128C0C}.Release|Any CPU.Build.0 = Release|Any CPU - {905154E7-63D0-FDF0-0011-D38969128C0C}.Release|Mixed Platforms.ActiveCfg = Release|x64 - {905154E7-63D0-FDF0-0011-D38969128C0C}.Release|Mixed Platforms.Build.0 = Release|x64 - {905154E7-63D0-FDF0-0011-D38969128C0C}.Release|x86.ActiveCfg = Release|x86 - {905154E7-63D0-FDF0-0011-D38969128C0C}.Release|x86.Build.0 = Release|x86 - {A38C52AE-8CF4-16EE-8830-1D420CEE8760}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {A38C52AE-8CF4-16EE-8830-1D420CEE8760}.Debug|Any CPU.Build.0 = Debug|Any CPU - {A38C52AE-8CF4-16EE-8830-1D420CEE8760}.Debug|Mixed Platforms.ActiveCfg = Debug|x64 - {A38C52AE-8CF4-16EE-8830-1D420CEE8760}.Debug|Mixed Platforms.Build.0 = Debug|x64 - {A38C52AE-8CF4-16EE-8830-1D420CEE8760}.Debug|x86.ActiveCfg = Debug|x86 - {A38C52AE-8CF4-16EE-8830-1D420CEE8760}.Debug|x86.Build.0 = Debug|x86 - {A38C52AE-8CF4-16EE-8830-1D420CEE8760}.Release|Any CPU.ActiveCfg = Release|Any CPU - {A38C52AE-8CF4-16EE-8830-1D420CEE8760}.Release|Any CPU.Build.0 = Release|Any CPU - {A38C52AE-8CF4-16EE-8830-1D420CEE8760}.Release|Mixed Platforms.ActiveCfg = Release|x64 - {A38C52AE-8CF4-16EE-8830-1D420CEE8760}.Release|Mixed Platforms.Build.0 = Release|x64 - {A38C52AE-8CF4-16EE-8830-1D420CEE8760}.Release|x86.ActiveCfg = Release|x86 - {A38C52AE-8CF4-16EE-8830-1D420CEE8760}.Release|x86.Build.0 = Release|x86 - EndGlobalSection - GlobalSection(SolutionProperties) = preSolution - HideSolutionNode = FALSE - EndGlobalSection - GlobalSection(NestedProjects) = preSolution - {624E6963-3DCC-4625-8828-84F8E54C7EC9} = {8655F273-B5AF-4D9A-B635-7F9168703579} - {AF053FC5-A810-4BBA-9A68-AF97906CE1FB} = {8655F273-B5AF-4D9A-B635-7F9168703579} - {AAD1DE18-2941-4281-80D9-395BD21C6318} = {5481B009-5D62-45A8-9DD3-B9E6792B0C0E} - {A2F2028C-E393-4A04-BF9F-E002B13FB3E7} = {5481B009-5D62-45A8-9DD3-B9E6792B0C0E} - {68CCC629-61B7-435B-A39C-C9EE023388D6} = {5481B009-5D62-45A8-9DD3-B9E6792B0C0E} - {BE43CB35-C6AA-4EA3-BE1D-8DC865B948A8} = {5481B009-5D62-45A8-9DD3-B9E6792B0C0E} - {15FE2AB9-637E-4FD2-BB48-67C3CE22DEBD} = {5481B009-5D62-45A8-9DD3-B9E6792B0C0E} - {8A24ABD1-0D57-4EFD-8C2A-4999D4DACAE0} = {5481B009-5D62-45A8-9DD3-B9E6792B0C0E} - {C87BEC24-2C21-4DEF-BB8D-B9503105A086} = {5481B009-5D62-45A8-9DD3-B9E6792B0C0E} - {8608004D-250B-461E-BD95-D288414A9C01} = {8655F273-B5AF-4D9A-B635-7F9168703579} - {893755DA-9A1A-4DCB-8B7D-CD5C61790B76} = {8655F273-B5AF-4D9A-B635-7F9168703579} - {D87F3521-E414-4F1C-895D-7CDA16483DFF} = {5481B009-5D62-45A8-9DD3-B9E6792B0C0E} - {07C23DC0-BB5F-4E3F-A85E-2F4ACB66ECC0} = {5481B009-5D62-45A8-9DD3-B9E6792B0C0E} - {1CCC7458-4422-4370-8540-3BE92F479BEA} = {5481B009-5D62-45A8-9DD3-B9E6792B0C0E} - {DD21FC5F-2FFF-4BD6-847B-7B5006DB3389} = {5481B009-5D62-45A8-9DD3-B9E6792B0C0E} - {AFFF4BB6-EFBC-4077-AC1B-D2B8869476B8} = {5481B009-5D62-45A8-9DD3-B9E6792B0C0E} - {254C22CE-920A-AED1-2EA5-C96DB6A09864} = {5481B009-5D62-45A8-9DD3-B9E6792B0C0E} - {53F850C8-1AAB-4FDE-9474-DFCF998A53C9} = {5481B009-5D62-45A8-9DD3-B9E6792B0C0E} - {6DC12DCF-BAA7-66F1-405F-3B2AD554496C} = {5481B009-5D62-45A8-9DD3-B9E6792B0C0E} - {0ED82AAC-FAD8-F687-071C-D9647D285686} = {5481B009-5D62-45A8-9DD3-B9E6792B0C0E} - {BEB66A05-10A8-4E22-BEF8-60C65D5D7D33} = {5481B009-5D62-45A8-9DD3-B9E6792B0C0E} - {89581B77-FF19-1BB1-F4CA-B9DBE0B262DA} = {5481B009-5D62-45A8-9DD3-B9E6792B0C0E} - {FE5B9048-D9EC-1419-5118-1D1143392538} = {5481B009-5D62-45A8-9DD3-B9E6792B0C0E} - {905154E7-63D0-FDF0-0011-D38969128C0C} = {8655F273-B5AF-4D9A-B635-7F9168703579} - {A38C52AE-8CF4-16EE-8830-1D420CEE8760} = {8655F273-B5AF-4D9A-B635-7F9168703579} - EndGlobalSection - GlobalSection(ExtensibilityGlobals) = postSolution - SolutionGuid = {44374C4A-6FF4-4900-8BB8-964A6A2E0338} - EndGlobalSection -EndGlobal diff --git a/Transpiler_pp/TranspilerConsTest/.info b/Transpiler_pp/TranspilerConsTest/.info deleted file mode 100644 index e69de29bb..000000000 diff --git a/Transpiler_pp/TranspilerConsTest/Model/JsonOutput.cs b/Transpiler_pp/TranspilerConsTest/Model/JsonOutput.cs deleted file mode 100644 index 1ff52b424..000000000 --- a/Transpiler_pp/TranspilerConsTest/Model/JsonOutput.cs +++ /dev/null @@ -1,54 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using System.Text; -using System.Threading.Tasks; -using TranspilerLib.Interfaces; - -namespace TranspilerConsTest.Model; - -public class JsonOutput : IOutput -{ - public void Output(IReader reader, Action write, Action debug) - { - var indent = 0; - write("{"); - var xElExists = false; - while (reader.Read()) - { - if (reader.IsStartElement()) - { - write($"{(xElExists ? ", " : "")} \"{reader.GetLocalName()}\" : {{"); - xElExists = false; - var xIsEmptyElement = reader.IsEmptyElement; - var count = reader.GetAttributeCount(); - for (var i = 0; i < count; i++) - { - write($"{(xElExists ? ", " : "")} \"{reader.GetAttributeName(i)}\" : \"{reader.GetAttributeValue(i)}\""); - xElExists = true; - } - if (xIsEmptyElement) - { - write("}"); - xElExists = true; - } - } - else if (reader.IsEndElement()) - { - write("}"); - xElExists = true; - - } - else if (reader.HasValue) - { - write($"{(xElExists ? ", " : "")} \"@\" : \"{Quoted(reader.getValue().ToString())}\""); - } - } - write("}"); - - string Quoted(string value) - { - return value.Replace("\\", "\\\\").Replace("\"", "\\\"").Replace("\r", "\\r").Replace("\n", "\\n").Replace("\t", "\\t"); - } - } -} diff --git a/Transpiler_pp/TranspilerConsTest/Model/XmlOutput.cs b/Transpiler_pp/TranspilerConsTest/Model/XmlOutput.cs deleted file mode 100644 index fd8bfc28f..000000000 --- a/Transpiler_pp/TranspilerConsTest/Model/XmlOutput.cs +++ /dev/null @@ -1,48 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using System.Text; -using System.Threading.Tasks; -using TranspilerLib.Interfaces; -using TranspilerLib.Models; - -namespace TranspilerConsTest.Model -{ - public class XmlOutput : IOutput - { - public void Output(IReader reader, Action write,Action debug) - { - var indent = 0; - while (reader.Read()) - { - if (reader.IsStartElement()) - { - write($"{new string(' ', indent * 2)}<{reader.GetLocalName()}"); - var xIsEmptyElement = reader.IsEmptyElement; - if (!xIsEmptyElement) - indent++; - var count = reader.GetAttributeCount(); - for (var i = 0; i < count; i++) - { - write($" {reader.GetAttributeName(i)}=\"{reader.GetAttributeValue(i)}\""); - } - if (xIsEmptyElement) - write(" /"); - write(">"); - if (xIsEmptyElement || !reader.IsEmptyElement || !reader.HasValue) - write(Environment.NewLine); - } - else if (reader.IsEndElement()) - { - indent--; - write($"{new string(' ', indent * 2)}{Environment.NewLine}"); - } - else if (reader.HasValue) - { - write($"{reader.getValue()}{Environment.NewLine}"); - } - } - - } - } -} diff --git a/Transpiler_pp/TranspilerConsTest/Program.cs b/Transpiler_pp/TranspilerConsTest/Program.cs deleted file mode 100644 index 7f47996f0..000000000 --- a/Transpiler_pp/TranspilerConsTest/Program.cs +++ /dev/null @@ -1,27 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Diagnostics; -using TranspilerLib.IEC.Models; -using TranspilerLib.IEC.Models.Scanner; -using TranspilerLib.Interfaces; -using TranspilerLib.Interfaces.Code; -using TranspilerLib.Models; - -internal class Program -{ - private static void Main(string[] args) - { - var xr = new System.Xml.XmlTextReader(args[0]); - var reader = new IECReader(xr); - IOutput output = new ExtOutput(); - var extcode = new List(); - output.Output(reader, (s)=>extcode.Add(s), (s) => Debug.Write(s)); - ICodeBase code = new IECCode(); - code.OriginalCode = string.Join("",extcode); - Console.WriteLine(code.OriginalCode); - var cb= code.Parse(); - Console.WriteLine(code.ToCode(cb)); - - } - -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerConsTest/Properties/launchSettings.json b/Transpiler_pp/TranspilerConsTest/Properties/launchSettings.json deleted file mode 100644 index 9451fe9a3..000000000 --- a/Transpiler_pp/TranspilerConsTest/Properties/launchSettings.json +++ /dev/null @@ -1,12 +0,0 @@ -{ - "profiles": { - "TranspilerConsTest": { - "commandName": "Project", - "commandLineArgs": "resources\\fbCalcWinkelvVector.xml" - }, - "WSL": { - "commandName": "WSL2", - "distributionName": "" - } - } -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerConsTest/Resources/fbCalcWinkelVector.json b/Transpiler_pp/TranspilerConsTest/Resources/fbCalcWinkelVector.json deleted file mode 100644 index b9261f316..000000000 --- a/Transpiler_pp/TranspilerConsTest/Resources/fbCalcWinkelVector.json +++ /dev/null @@ -1,112 +0,0 @@ -{ - "project": { - "xmlns": "http://www.plcopen.org/xml/tc6_0200", - "fileHeader": { - "companyName": "Beckhoff Automation GmbH", - "productName": "TwinCAT PLC Control", - "productVersion": "3.5.13.21", - "creationDateTime": "2024-03-30T11:42:10.9132946" - }, - "contentHeader": { - "name": "Lib2dMath", - "modificationDateTime": "2024-03-30T11:42:10.9579594", - "coordinateInfo": { - "fbd": { - "scaling": { - "x": "1", - "y": "1" - } - }, - "ld": { - "scaling": { - "x": "1", - "y": "1" - } - }, - "sfc": { - "scaling": { - "x": "1", - "y": "1" - } - } - }, - "addData": { - "data": { - "name": "http://www.3s-software.com/plcopenxml/projectinformation", - "handleUnknown": "implementation", - "ProjectInformation": {} - } - } - }, - "types": { - "dataTypes": {}, - "pous": { - "pou": { - "name": "fbCalcWinkelvVector", - "pouType": "function", - "interface": { - "returnType": { "LREAL": {} }, - "inputVars": { - "variable": { - "name": "Vec", - "type": { "derived": { "name": "udtVector" } } - } - }, - "outputVars": { - "variable": { - "name": "Len", - "type": { "LREAL": {} } - } - }, - "localVars": { - "variable": { - "name": "ZwErg", - "type": { "LREAL": {} } - } - } - }, - "body": { - "ST": { - "xhtml": { - "xmlns": "http://www.w3.org/1999/xhtml", - "content": "IF ABS(Vec.v.x) > ABS(Vec.v.y) THEN\n ZwErg :=SEL(Vec.v.x<0.0,ATAN(Vec.v.y/vec.v.x),ATAN(Vec.v.y/vec.v.x)+pi);\n len:=Vec.v.x/COS(ZwErg);\n fbCalcWinkelvVector := ZwErg+pi*2.0-DINT_TO_REAL(TRUNC(Zwerg/pi*0.5+1.5))*pi*2.0;\nELSIF ABS(Vec.v.y) > epsilon THEN\n fbCalcWinkelvVector := SEL(Vec.v.y < 0.0,ATAN(-Vec.v.x/vec.v.y)+0.5*pi,ATAN(-Vec.v.x/vec.v.y)-0.5*pi);\n len:=Vec.v.y/SIN(fbCalcWinkelvVector);\nelse\n fbCalcWinkelvVector :=0.0;\n Len := 0.0;\nend_if;" - } - } - }, - "addData": { - "data": [ - { - "name": "http://www.3s-software.com/plcopenxml/interfaceasplaintext", - "handleUnknown": "implementation", - "InterfaceAsPlainText": { - "xhtml": { - "xmlns": "http://www.w3.org/1999/xhtml", - "content": "FUNCTION fbCalcWinkelvVector : LReal\nVAR_INPUT\n\tVec:udtVector;\nEND_VAR\nVAR_OUTPUT\n\tLen:LREAL;\nEND_VAR\nVAR\n\tZwErg: LREAL;\nEND_VAR\n" - } - } - }, - { - "name": "http://www.3s-software.com/plcopenxml/objectid", - "handleUnknown": "discard", - "ObjectId": { "content": "88a28a1d-9e90-424f-a9a6-1f2601c634e8" } - } - ] - } - } - } - }, - "instances": { "configurations": {} }, - "addData": { - "data": { - "name": "http://www.3s-software.com/plcopenxml/projectstructure", - "handleUnknown": "discard", - "ProjectStructure": { - "Object": { - "Name": "fbCalcWinkelvVector", - "ObjectId": "88a28a1d-9e90-424f-a9a6-1f2601c634e8" - } - } - } - } - } -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerConsTest/Resources/fbCalcWinkelvVector.xml b/Transpiler_pp/TranspilerConsTest/Resources/fbCalcWinkelvVector.xml deleted file mode 100644 index d7e4db267..000000000 --- a/Transpiler_pp/TranspilerConsTest/Resources/fbCalcWinkelvVector.xml +++ /dev/null @@ -1,100 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - IF ABS(Vec.v.x) > ABS(Vec.v.y) THEN - ZwErg :=SEL(Vec.v.x<0.0,ATAN(Vec.v.y/vec.v.x),ATAN(Vec.v.y/vec.v.x)+pi); - len:=Vec.v.x/COS(ZwErg); - fbCalcWinkelvVector := ZwErg+pi*2.0-DINT_TO_REAL(TRUNC(Zwerg/pi*0.5+1.5))*pi*2.0; -ELSIF ABS(Vec.v.y) > epsilon THEN - fbCalcWinkelvVector := SEL(Vec.v.y < 0.0,ATAN(-Vec.v.x/vec.v.y)+0.5*pi,ATAN(-Vec.v.x/vec.v.y)-0.5*pi); - len:=Vec.v.y/SIN(fbCalcWinkelvVector); -else - fbCalcWinkelvVector :=0.0; - Len := 0.0; -end_if; - - - - - - FUNCTION fbCalcWinkelvVector : LReal -VAR_INPUT - Vec:udtVector; -END_VAR -VAR_OUTPUT - Len:LREAL; -END_VAR -VAR - ZwErg: LREAL; -END_VAR - - - - - 88a28a1d-9e90-424f-a9a6-1f2601c634e8 - - - - - - - - - - - - - - - - \ No newline at end of file diff --git a/Transpiler_pp/TranspilerConsTest/Resources/udtVector.json b/Transpiler_pp/TranspilerConsTest/Resources/udtVector.json deleted file mode 100644 index 1540b23a3..000000000 --- a/Transpiler_pp/TranspilerConsTest/Resources/udtVector.json +++ /dev/null @@ -1,114 +0,0 @@ -{ - "project": { - "xmlns": "http://www.plcopen.org/xml/tc6_0200", - "fileHeader": { - "companyName": "Beckhoff Automation GmbH", - "productName": "TwinCAT PLC Control", - "productVersion": "3.5.13.21", - "creationDateTime": "2024-03-30T11:42:44.2492878" - }, - "contentHeader": { - "name": "Lib2dMath", - "modificationDateTime": "2024-03-30T11:42:44.2492878", - "coordinateInfo": { - "fbd": { - "scaling": { - "x": "1", - "y": "1" - } - }, - "ld": { - "scaling": { - "x": "1", - "y": "1" - } - }, - "sfc": { - "scaling": { - "x": "1", - "y": "1" - } - } - }, - "addData": { - "data": { - "name": "http://www.3s-software.com/plcopenxml/projectinformation", - "handleUnknown": "implementation", - "ProjectInformation": { - } - } - } - }, - "types": { - "dataTypes": { - } - "pous": { - } - }, - "instances": { - "configurations": { - } - }, - "addData": { - "data": { - "name": "http://www.3s-software.com/plcopenxml/union", - "handleUnknown": "implementation", - "union": { - "name": "udtVector", - "variable": { - "name": "v", - "type": { - "derived": { - "name": "udtVectorData" - } - } - }, - "variable": { - "name": "Koordinate", - "type": { - "array": { - "dimension": { - "lower": "0", - "upper": "1" - }, - "baseType": { - "LREAL": { - } - } - } - } - }, - "addData": { - "data": { - "name": "http://www.3s-software.com/plcopenxml/interfaceasplaintext", - "handleUnknown": "implementation", - "InterfaceAsPlainText": { - "xhtml": { - "xmlns": "http://www.w3.org/1999/xhtml", - "@": "TYPE udtVector :\nUNION\n\tv:udtVectorData;\n\tKoordinate:ARRAY[0..1] OF LREAL;\nEND_UNION\nEND_TYPE\n" - } - } - }, - "data": { - "name": "http://www.3s-software.com/plcopenxml/objectid", - "handleUnknown": "discard", - "ObjectId": { - "@": "ab6e77a9-a0e5-4c83-b585-71e00e888f29" - } - } - } - } - }, - "data": { - "name": "http://www.3s-software.com/plcopenxml/projectstructure", - "handleUnknown": "discard", - "ProjectStructure": { - "Object": { - "Name": "udtVector", - "ObjectId": "ab6e77a9-a0e5-4c83-b585-71e00e888f29" - } - } - } - } - } -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerConsTest/Resources/udtVector.xml b/Transpiler_pp/TranspilerConsTest/Resources/udtVector.xml deleted file mode 100644 index 8c8363d99..000000000 --- a/Transpiler_pp/TranspilerConsTest/Resources/udtVector.xml +++ /dev/null @@ -1,71 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - TYPE udtVector : -UNION - v:udtVectorData; - Koordinate:ARRAY[0..1] OF LREAL; -END_UNION -END_TYPE - - - - - ab6e77a9-a0e5-4c83-b585-71e00e888f29 - - - - - - - - - - - \ No newline at end of file diff --git a/Transpiler_pp/TranspilerConsTest/TranspilerConsTest.csproj b/Transpiler_pp/TranspilerConsTest/TranspilerConsTest.csproj deleted file mode 100644 index f825a37ea..000000000 --- a/Transpiler_pp/TranspilerConsTest/TranspilerConsTest.csproj +++ /dev/null @@ -1,22 +0,0 @@ - - - - Exe - net8.0-windows;net9.0-windows - enable - - - - - - - PreserveNewest - - - - - - - - - diff --git a/Transpiler_pp/TranspilerLib.CSharp.Tests/AssemblyInfo.cs b/Transpiler_pp/TranspilerLib.CSharp.Tests/AssemblyInfo.cs deleted file mode 100644 index ba900e03a..000000000 --- a/Transpiler_pp/TranspilerLib.CSharp.Tests/AssemblyInfo.cs +++ /dev/null @@ -1,3 +0,0 @@ -using Microsoft.VisualStudio.TestTools.UnitTesting; - -[assembly: Parallelize(Workers =0, Scope = ExecutionScope.MethodLevel)] diff --git a/Transpiler_pp/TranspilerLib.CSharp.Tests/Models/Scanner/CCodeBlockTests.cs b/Transpiler_pp/TranspilerLib.CSharp.Tests/Models/Scanner/CCodeBlockTests.cs deleted file mode 100644 index 92b01e5d1..000000000 --- a/Transpiler_pp/TranspilerLib.CSharp.Tests/Models/Scanner/CCodeBlockTests.cs +++ /dev/null @@ -1,134 +0,0 @@ -using System.Collections.Generic; -using TranspilerLib.Data; -using TranspilerLib.Models.Tests; -using TranspilerLibTests.TestData; -using static TranspilerLib.Helper.TestHelper; - -#pragma warning disable IDE0130 // Der Namespace entspricht stimmt nicht der Ordnerstruktur. -namespace TranspilerLib.Models.Scanner.Tests; -#pragma warning restore IDE0130 // Der Namespace entspricht stimmt nicht der Ordnerstruktur. - -[TestClass()] -public class CCodeBlockTests : TestBase -{ -#pragma warning disable CS8618 // Ein Non-Nullable-Feld muss beim Beenden des Konstruktors einen Wert ungleich NULL enthalten. Erwägen Sie die Deklaration als Nullable. - private CSCode _testClass; - - public static IEnumerable TestListMove => new object[][] -{ - ["0a", TestCSDataClass.TestDataList0(), (new int[] { }, 3, 3, 1), false, new[] { TestCSDataClass.testDataExp0 }], - - ["1a", TestCSDataClass.TestDataList1()!, (new[] { 8, 1, 5 }, 5, 5, 1), false, new[] { TestCSDataClass.testDataExp1 }], - ["1b", TestCSDataClass.TestDataList1()!, (new[] { 8, 1, 5 }, -1, 5, 1), false, new[] { TestCSDataClass.testDataExp1 }], - ["1c", TestCSDataClass.TestDataList1()!, (new[] { 8, 1, 5 }, 5, -1, 1), false, new[] { TestCSDataClass.testDataExp1 }], - ["1d", TestCSDataClass.TestDataList1()!, (new[] { 8, 1, 5 }, 131, 5, 1), false, new[] { TestCSDataClass.testDataExp1 }], - ["1e", TestCSDataClass.TestDataList1()!, (new[] { 8, 1, 5 }, 5, 131, 1), false, new[] { TestCSDataClass.testDataExp1 }], - ["1f", TestCSDataClass.TestDataList1()!, (new[] { 8, 1, 5 }, 125, 5, 6), false, new[] { TestCSDataClass.testDataExp1 }], - ["1g0", TestCSDataClass.TestDataList1()!, (new[] { 8, 1, 5 }, 6, 9, 3), true, new[] { TestCSDataClass.testDataExp1 }], - ["1gd", TestCSDataClass.TestDataList1()!, (new[] { 8, 1, 5 }, 6, 13, 3), true, new[] { TestCSDataClass.testDataMoveExp }], - ["1gu", TestCSDataClass.TestDataList1()!, (new[] { 8, 1, 5 }, 9, 6, 4), true, new[] { TestCSDataClass.testDataMoveExp }], - - ["2a", TestCSDataClass.TestDataList2()!, (new[] { 7, 1, 3 }, 5, 5, 1), false, new[] { TestCSDataClass.testDataExp2 }], - ["2b", TestCSDataClass.TestDataList2()!, (new[] { 7, 1, 3 }, -1, 5, 1), false, new[] { TestCSDataClass.testDataExp2 }], - ["2c", TestCSDataClass.TestDataList2()!, (new[] { 7, 1, 3 }, 5, -1, 1), false, new[] { TestCSDataClass.testDataExp2 }], - ["2d", TestCSDataClass.TestDataList2()!, (new[] { 7, 1, 3 }, 34, 5, 1), false, new[] { TestCSDataClass.testDataExp2 }], - ["2e", TestCSDataClass.TestDataList2()!, (new[] { 7, 1, 3 }, 5, 34, 1), false, new[] { TestCSDataClass.testDataExp2 }], - ["2f", TestCSDataClass.TestDataList2()!, (new[] { 7, 1, 3 }, 30, 5, 5), false, new[] { TestCSDataClass.testDataExp2 }], - - }; - - public static IEnumerable TestListDelete => new object[][] -{ - ["0a", TestCSDataClass.TestDataList0()!, (new int[] { }, 5, 9), false, new[] { TestCSDataClass.testDataExp0 }], - - ["1b", TestCSDataClass.TestDataList1()!, (new[] { 8, 1, 5 }, -1, 1), false, new[] { TestCSDataClass.testDataExp1 }], - ["1d", TestCSDataClass.TestDataList1()!, (new[] { 8, 1, 5 }, 131, 1), false, new[] { TestCSDataClass.testDataExp1 }], - ["1f", TestCSDataClass.TestDataList1()!, (new[] { 8, 1, 5 }, 125, 6), false, new[] { TestCSDataClass.testDataExp1 }], - ["1gd", TestCSDataClass.TestDataList1()!, (new[] { 8, 1, 5 }, 6, 3), true, new[] { TestCSDataClass.testDataDeleteExp }], - ["1gu", TestCSDataClass.TestDataList1()!, (new[] { 8, 1, 5 }, 9, 4), true, new[] { TestCSDataClass.testDataDelete2Exp }], - - ["2b", TestCSDataClass.TestDataList2()!, (new[] { 7, 1, 3 }, -1, 1), false, new[] { TestCSDataClass.testDataExp2 }], - ["2d", TestCSDataClass.TestDataList2()!, (new[] { 7, 1, 3 }, 34, 1), false, new[] { TestCSDataClass.testDataExp2 }], - ["2f", TestCSDataClass.TestDataList2()!, (new[] { 7, 1, 3 }, 30, 5), false, new[] { TestCSDataClass.testDataExp2 }], - - }; -#pragma warning restore CS8618 // Ein Non-Nullable-Feld muss beim Beenden des Konstruktors einen Wert ungleich NULL enthalten. Erwägen Sie die Deklaration als Nullable. - [TestInitialize] - public void TestInitialize() - { - _testClass = new(); - } - - [TestMethod()] - public void SetUpTest() - { - Assert.IsNotNull(_testClass); - } - - [TestMethod()] - [DynamicData(nameof(TestListMove))] - public void MoveBlocksTest(string _, List actList, (int[], int, int, int) movedata, bool xSucc, string[] data) - { - var act = _testClass.Parse(actList); - var act2 = act; - foreach (var s in movedata.Item1) - act2 = act2.SubBlocks[s]; - Assert.AreEqual(xSucc, act2.MoveSubBlocks(movedata.Item2, movedata.Item3, movedata.Item4)); - var sAct = act.ToString(); - if (sAct != data[0]) - DoLog(sAct); - AssertAreEqual(data[0], sAct); - } - - [TestMethod()] - [DynamicData(nameof(TestListMove))] - public void MoveBlocksTest2(string _, List actList, (int[], int, int, int) movedata, bool xSucc, string[] data) - { - var act = _testClass.Parse(actList); - var act2 = act; - foreach (var s in movedata.Item1) - act2 = act2.SubBlocks[s]; - var c = movedata.Item3 is >= 0 && movedata.Item3 < act2.SubBlocks.Count ? act2.SubBlocks[movedata.Item3] : null; - Assert.AreEqual(xSucc, act2.MoveSubBlocks(movedata.Item2, c!, movedata.Item4)); - var sAct = act.ToString(); - if (sAct != data[0]) - DoLog(sAct); - AssertAreEqual(data[0], sAct); - } - - [TestMethod()] - [DynamicData(nameof(TestListDelete))] - public void DeleteBlocksTest(string _, List actList, (int[], int, int) deldata, bool xSucc, string[] data) - { - var act = _testClass.Parse(actList); - var act2 = act; - foreach (var s in deldata.Item1) - act2 = act2.SubBlocks[s]; - Assert.AreEqual(xSucc, act2.DeleteSubBlocks(deldata.Item2, deldata.Item3)); - var sAct = act.ToString(); - if (sAct != data[0]) - DoLog(sAct); - AssertAreEqual(data[0], sAct); - } - - [TestMethod()] - public void GetItemIndex() - { - var act = _testClass.Parse(TestCSDataClass.TestDataList1() as List); - var act2 = act.SubBlocks[7]; - ((CodeBlock)act2).SourcesIndex = new() { new() { 1 } }; - Assert.IsTrue(act2.Sources[0].TryGetTarget(out var act3)); - Assert.AreEqual(act, act3); - } - - [TestMethod()] - public void GetItemByIndexIndexTest() - { - var act = _testClass.Parse(TestCSDataClass.TestDataList1() as List); - var act2 = act.SubBlocks[7]; - ((CodeBlock)act2).DestinationIndex = new() { 1 }; - Assert.IsTrue(act2!.Destination!.TryGetTarget(out var act3)); - Assert.AreEqual(act, act3); - } - -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib.CSharp.Tests/Models/Scanner/CSCodeTests.cs b/Transpiler_pp/TranspilerLib.CSharp.Tests/Models/Scanner/CSCodeTests.cs deleted file mode 100644 index c19ed0da0..000000000 --- a/Transpiler_pp/TranspilerLib.CSharp.Tests/Models/Scanner/CSCodeTests.cs +++ /dev/null @@ -1,341 +0,0 @@ -using Microsoft.VisualStudio.TestTools.UnitTesting; -using Newtonsoft.Json.Converters; -using Newtonsoft.Json.Linq; -using System; -using System.Collections.Generic; -using System.IO; -using System.Runtime.Serialization; -using System.Runtime.Serialization.Json; -using System.Text; -using System.Text.Json; -using System.Text.Json.Serialization; -using System.Xml.Linq; -using TranspilerLib.Data; -using TranspilerLib.Models.Tests; -using TranspilerLibTests.TestData; -using static TranspilerLib.Helper.TestHelper; - -#pragma warning disable IDE0130 // Der Namespace entspricht stimmt nicht der Ordnerstruktur. -namespace TranspilerLib.Models.Scanner.Tests; -#pragma warning restore IDE0130 // Der Namespace entspricht stimmt nicht der Ordnerstruktur. - - -[TestClass()] -public class CSCodeTests : TestBase -{ -#pragma warning disable CS8618 // Ein Non-Nullable-Feld muss beim Beenden des Konstruktors einen Wert ungleich NULL enthalten. Erwägen Sie die Deklaration als Nullable. - private CSCode _testClass; -#pragma warning restore CS8618 // Ein Non-Nullable-Feld muss beim Beenden des Konstruktors einen Wert ungleich NULL enthalten. Erwägen Sie die Deklaration als Nullable. - - public static IEnumerable TestTokenizeList => new object[][] - { - [ "0", new[] { Encoding.UTF8.GetBytes(TestCSDataClass.testData0 ) }, TestCSDataClass.TestDataList0() ], - [ "1", new[] { Encoding.UTF8.GetBytes(TestCSDataClass.test1Data ) }, TestCSDataClass.TestDataList1()! ], - [ "2", new[] { Encoding.UTF8.GetBytes(TestCSDataClass.test2Data ) }, TestCSDataClass.TestDataList2()! ], - [ "3", new[] { Encoding.UTF8.GetBytes(TestCSDataClass.testData3 ) }, TestCSDataClass.TestDataList3() ], - [ "4", new[] { Encoding.UTF8.GetBytes(TestCSDataClass.testData4 ) }, TestCSDataClass.TestDataList4() ], - [ "5", new[] { Encoding.UTF8.GetBytes(TestCSDataClass.testData5 ) }, TestCSDataClass.TestDataList5() ], - [ "6", new[] { Encoding.UTF8.GetBytes(TestCSDataClass.testData6 ) }, TestCSDataClass.TestDataList6() ], - [ "7", new[] { Encoding.UTF8.GetBytes(TestCSDataClass.testData7 ) }, TestCSDataClass.TestDataList7() ], - [ "8", new[] { Encoding.UTF8.GetBytes(TestCSDataClass.test8Data ) }, TestCSDataClass.TestDataList8()! ], - [ "9", new[] { Encoding.UTF8.GetBytes(TestCSDataClass.test9Data ) }, TestCSDataClass.TestDataList9()! ], - [ "10", new[] { Encoding.UTF8.GetBytes(TestCSDataClass.test10Data) }, TestCSDataClass.TestDataList10()! ], - [ "11", new[] { Encoding.UTF8.GetBytes(TestCSDataClass.test11Data) }, TestCSDataClass.TestDataList11()! ], - [ "12", new[] { Encoding.UTF8.GetBytes(TestCSDataClass.test12Data) }, TestCSDataClass.TestDataList12()! ], - [ "13", new[] { Encoding.UTF8.GetBytes(TestCSDataClass.test13Data) }, TestCSDataClass.TestDataList13()! ], - - }; - - public static IEnumerable TestListParse => new object[][] -{ - ["0", TestCSDataClass.TestDataList0()!, new[] { TestCSDataClass.testDataExp0 }], - ["1", TestCSDataClass.TestDataList1()!, new[] { TestCSDataClass.testDataExp1 }], - ["2", TestCSDataClass.TestDataList2()!, new[] { TestCSDataClass.testDataExp2 }], - ["3", TestCSDataClass.TestDataList3(), new[] { TestCSDataClass.testDataExp3 }], - ["4", TestCSDataClass.TestDataList4(), new[] { TestCSDataClass.testDataExp4 }], - ["5", TestCSDataClass.TestDataList5(), new[] { TestCSDataClass.testDataExp5 }], - ["6", TestCSDataClass.TestDataList6(), new[] { TestCSDataClass.testDataExp6 }], - ["7", TestCSDataClass.TestDataList7(), new[] { TestCSDataClass.testDataExp7 }], - }; - public static IEnumerable ReorderListData => new object[][] -{ - ["0", TestCSDataClass.TestDataList0(), new[] { TestCSDataClass.testDataExp0 }], - ["1", TestCSDataClass.TestDataList1(), new[] { TestCSDataClass.testDataExpReorder1 }], - ["2", TestCSDataClass.TestDataList2(), new[] { TestCSDataClass.testDataExpReorder2 }], - ["3", TestCSDataClass.TestDataList3(), new[] { TestCSDataClass.testDataExpReorder3 }], - ["4", TestCSDataClass.TestDataList4(), new[] { TestCSDataClass.testDataExpReorder4 }], - ["7", TestCSDataClass.TestDataList7(), new[] { TestCSDataClass.testDataExp7 }], - ["8", TestCSDataClass.TestDataList8(), new[] { TestCSDataClass.test8DataExp }], - ["9", TestCSDataClass.TestDataList9(), new[] { TestCSDataClass.testDataExpReorder9 }], -}; - public static IEnumerable RemoveLabelsData => new object[][] -{ - ["0", TestCSDataClass.TestDataList0(), new[] { TestCSDataClass.testDataExpRemoveL0 }], - ["1", TestCSDataClass.TestDataList1(), new[] { TestCSDataClass.testDataExpRemoveL1 }], - ["2", TestCSDataClass.TestDataList2(), new[] { TestCSDataClass.testDataExpRemoveL2 }], - ["3", TestCSDataClass.TestDataList3(), new[] { TestCSDataClass.testDataExpRemoveL3 }], - ["4", TestCSDataClass.TestDataList4(), new[] { TestCSDataClass.testDataExpRemoveL4 }], - ["7", TestCSDataClass.TestDataList7(), new[] { TestCSDataClass.testDataExpRemoveL7 }], - ["9", TestCSDataClass.TestDataList9(), new[] { TestCSDataClass.testDataExpRemoveL9 }], - ["12", TestCSDataClass.TestDataList12(), new[] { TestCSDataClass.testDataExpRemoveL12 }], - ["13", TestCSDataClass.TestDataList13(), new[] { TestCSDataClass.testDataExpRemoveL13 }], -}; - - public static IEnumerable TestListParse2 => new object[][] -{ - ["0", TestCSDataClass.TestDataList0(), new[] { TestCSDataClass.cExpCode0 }], - ["1", TestCSDataClass.TestDataList1(), new[] { TestCSDataClass.cExpCode1 }], - ["2", TestCSDataClass.TestDataList2(), new[] { TestCSDataClass.cExpCode2 }], - ["3", TestCSDataClass.TestDataList3(), new[] { TestCSDataClass.cExpCode3 }], - ["4", TestCSDataClass.TestDataList4(), new[] { TestCSDataClass.cExpCode4 }], - ["5", TestCSDataClass.TestDataList5(), new[] { TestCSDataClass.cExpCode5 }], - ["6", TestCSDataClass.TestDataList6(), new[] { TestCSDataClass.cExpCode6 }], - ["7", TestCSDataClass.TestDataList7(), new[] { TestCSDataClass.cExpCode7 }], - ["8", TestCSDataClass.TestDataList8(), new[] { TestCSDataClass.cExpCode8 }], - ["9", TestCSDataClass.TestDataList9(), new[] { TestCSDataClass.cExpCode9 }], -}; - - private static readonly JsonSerializerOptions _jsonOptions = new() - { - PropertyNameCaseInsensitive = true, - ReadCommentHandling = JsonCommentHandling.Skip, - AllowTrailingCommas = true, - Converters = { - new JsonStringEnumConverter(JsonNamingPolicy.CamelCase, allowIntegerValues: true), - } - }; - - - [TestInitialize] - public void TestInitialize() - { - _testClass = new(); - } - - [TestMethod()] - public void SetUpTest() - { - Assert.IsNotNull(_testClass); - /* - using var ms = new FileStream(nameof(TestDataClass.Test1DataList)+".json",FileMode.OpenOrCreate); - ms.SetLength(0); - ms.Position = 0; - var l = TestDataClass.Test1DataList(); - // Serialize l as a JSON array. - DataContractJsonSerializer ser = new(typeof(List<(string, ICSCode.CodeBlockType, int)>)); - ser.WriteObject(ms, l); - ms.Close(); - */ - } - - public static IEnumerable TokenizeTestData => new object[][] - { - ["1", new[] { Encoding.UTF8.GetBytes(TestCSDataClass.test1Data), Encoding.UTF8.GetBytes(TestCSDataClass.cExp1Log )}], - ["2", new[] { Encoding.UTF8.GetBytes(TestCSDataClass.test2Data), Encoding.UTF8.GetBytes(TestCSDataClass.cExp2Log )}], - ["8", new[] { Encoding.UTF8.GetBytes(TestCSDataClass.test8Data), Encoding.UTF8.GetBytes(TestCSDataClass.cExp8Log )}], - ["9", new[] { Encoding.UTF8.GetBytes(TestCSDataClass.test9Data), Encoding.UTF8.GetBytes(TestCSDataClass.cExp9Log )}], - ["10", new[] { Encoding.UTF8.GetBytes(TestCSDataClass.test10Data), Encoding.UTF8.GetBytes(TestCSDataClass.cExp10Log )}], - ["11", new[] { Encoding.UTF8.GetBytes(TestCSDataClass.test11Data), Encoding.UTF8.GetBytes(TestCSDataClass.cExp11Log )}], - ["12", new[] { Encoding.UTF8.GetBytes(TestCSDataClass.test12Data), Encoding.UTF8.GetBytes(TestCSDataClass.cExp12Log )}], - ["13", new[] { Encoding.UTF8.GetBytes(TestCSDataClass.test13Data), Encoding.UTF8.GetBytes(TestCSDataClass.cExp13Log )}], - }; - - [TestMethod()] - [DataRow("0", new[] { TestCSDataClass.testData0, TestCSDataClass.cExpLog0 }, DisplayName = "0")] - // [DataRow("2", new[] { TestDataClass.test2Data, TestDataClass.cExp2Log }, DisplayName = "2")] - [DataRow("3", new[] { TestCSDataClass.testData3, TestCSDataClass.cExpLog3 }, DisplayName = "3")] - [DataRow("4", new[] { TestCSDataClass.testData4, TestCSDataClass.cExpLog4 }, DisplayName = "4")] - [DataRow("5", new[] { TestCSDataClass.testData5, TestCSDataClass.cExpLog5 }, DisplayName = "5")] - [DataRow("6", new[] { TestCSDataClass.testData6, TestCSDataClass.cExpLog6 }, DisplayName = "6")] - [DataRow("7", new[] { TestCSDataClass.testData7, TestCSDataClass.cExpLog7 }, DisplayName = "7")] - [DynamicData(nameof(TokenizeTestData))] - public void TokenizeTest(string _, object[] data) - { - if (data[0] is byte[] bAct) - _testClass.OriginalCode = Encoding.UTF8.GetString(bAct); - else - _testClass.OriginalCode = data[0] as string ?? ""; - var sExp = ""; - if (data[1] is byte[] bExp) - sExp = Encoding.UTF8.GetString(bExp); - else - sExp = data[1] as string ?? ""; - - _testClass.Tokenize((t) => DoLog($"T:{t.type},{t.Level},{t.Code}")); - AssertAreEqual(sExp, DebugLog); - } - - public static IEnumerable ParseTestData => new object[][] - { - ["1",new[] { Encoding.UTF8.GetBytes(TestCSDataClass.test1Data), Encoding.UTF8.GetBytes(TestCSDataClass.testDataExp1) }], - ["2",new[] { Encoding.UTF8.GetBytes(TestCSDataClass.test2Data), Encoding.UTF8.GetBytes(TestCSDataClass.testDataExp2 )}], - ["8",new[] { Encoding.UTF8.GetBytes(TestCSDataClass.test8Data), Encoding.UTF8.GetBytes(TestCSDataClass.test8DataExp )}], - ["9",new[] { Encoding.UTF8.GetBytes(TestCSDataClass.test9Data), Encoding.UTF8.GetBytes(TestCSDataClass.test9DataExp )}], - ["10",new[] { Encoding.UTF8.GetBytes(TestCSDataClass.test10Data), Encoding.UTF8.GetBytes(TestCSDataClass.test10DataExp )}], - ["11",new[] { Encoding.UTF8.GetBytes(TestCSDataClass.test11Data), Encoding.UTF8.GetBytes(TestCSDataClass.test11DataExp )}], - ["12",new[] { Encoding.UTF8.GetBytes(TestCSDataClass.test12Data), Encoding.UTF8.GetBytes(TestCSDataClass.test12DataExp )}], - ["13",new[] { Encoding.UTF8.GetBytes(TestCSDataClass.test13Data), Encoding.UTF8.GetBytes(TestCSDataClass.test13DataExp )}], - }; - - - [TestMethod()] - [DataRow("0", new[] { TestCSDataClass.testData0, TestCSDataClass.testDataExp0 }, DisplayName = "0")] - // [DataRow("2", new[] { TestDataClass.test2Data, TestDataClass.testDataExp2 }, DisplayName = "2")] - [DataRow("3", new[] { TestCSDataClass.testData3, TestCSDataClass.testDataExp3 }, DisplayName = "3")] - [DataRow("4", new[] { TestCSDataClass.testData4, TestCSDataClass.testDataExp4 }, DisplayName = "4")] - [DataRow("5", new[] { TestCSDataClass.testData5, TestCSDataClass.testDataExp5 }, DisplayName = "5")] - [DataRow("6", new[] { TestCSDataClass.testData6, TestCSDataClass.testDataExp6 }, DisplayName = "6")] - [DataRow("7", new[] { TestCSDataClass.testData7, TestCSDataClass.testDataExp7 }, DisplayName = "7")] - [DynamicData(nameof(ParseTestData))] - public void ParseTest(string name, object[] data) - { - if (data[0] is string _sAct) - _testClass.OriginalCode = _sAct; - else if (data[0] is byte[] _bAct) - _testClass.OriginalCode = Encoding.UTF8.GetString(_bAct); - string sExp = ""; - if (data[1] is string _sExp) - sExp = _sExp; - else if (data[1] is byte[] _bExp) - sExp = Encoding.UTF8.GetString(_bExp); - - var act = _testClass.Parse(); - var sAct = act.ToString(); - using var ms = new FileStream("Test" + name + "CodeBlock.json", FileMode.Create); - new DataContractJsonSerializer( - typeof(CodeBlock), - new DataContractJsonSerializerSettings() - { - EmitTypeInformation = EmitTypeInformation.AsNeeded - }) - .WriteObject(ms, act); - ms.Close(); - if (sAct != sExp) - { - DoLog(sAct); - } - AssertAreEqual(sExp, sAct); - } - public static IEnumerable Parse2TestData => new object[][] - { - ["1", new[] { TestCSDataClass.test1Data, TestCSDataClass.cExpCode1 }], - ["2", new[] { TestCSDataClass.test2Data, TestCSDataClass.cExpCode2 }], - ["8", new[] { TestCSDataClass.test8Data, TestCSDataClass.cExpCode8 }], - ["9", new[] { TestCSDataClass.test9Data, TestCSDataClass.cExpCode9 }], - ["10", new[] { TestCSDataClass.test10Data, TestCSDataClass.cExpCode10 }], - ["11", new[] { TestCSDataClass.test11Data, TestCSDataClass.cExpCode11 }], - ["12", new[] { TestCSDataClass.test12Data, TestCSDataClass.cExpCode12 }], - ["13", new[] { TestCSDataClass.test13Data, TestCSDataClass.cExpCode13 }], - }; - - [TestMethod()] - [DataRow("0", new[] { TestCSDataClass.testData0, TestCSDataClass.cExpCode0 }, DisplayName = "0")] - //[DataRow("1", new[] { TestDataClass.test1Data, TestDataClass.cExpCode1 }, DisplayName = "1")] - //[DataRow("2", new[] { TestDataClass.test2Data, TestDataClass.cExpCode2 }, DisplayName = "2")] - [DataRow("3", new[] { TestCSDataClass.testData3, TestCSDataClass.cExpCode3 }, DisplayName = "3")] - [DataRow("4", new[] { TestCSDataClass.testData4, TestCSDataClass.cExpCode4 }, DisplayName = "4")] - [DataRow("5", new[] { TestCSDataClass.testData5, TestCSDataClass.cExpCode5 }, DisplayName = "5")] - [DataRow("6", new[] { TestCSDataClass.testData6, TestCSDataClass.cExpCode6 }, DisplayName = "6")] - [DataRow("7", new[] { TestCSDataClass.testData7, TestCSDataClass.cExpCode7 }, DisplayName = "7")] - [DynamicData(nameof(Parse2TestData))] - public void Parse2Test(string _, string[] data) - { - _testClass.OriginalCode = data[0]; - var act = _testClass.Parse(); - var sAct = act.ToCode(); - if (sAct != data[1]) - DoLog(sAct); - AssertAreEqual(data[1], sAct); - } - - [TestMethod()] - [DataRow([TestCSDataClass.testData0, TestCSDataClass.cExpLog0], DisplayName = "0")] - [DataRow([TestCSDataClass.testData5, TestCSDataClass.cExpLog0], DisplayName = "0")] - public void Tokenize0Test(string[] data) - { - _testClass.OriginalCode = data[0]; - _testClass.Tokenize(null); - AssertAreEqual("", DebugLog); - } - - - [TestMethod()] - [DynamicData(nameof(TestTokenizeList))] - public void Tokenize2Test(string _, object[] data, List expList) - { - if (data[0] is byte[] bAct) - _testClass.OriginalCode = Encoding.UTF8.GetString(bAct); - else - _testClass.OriginalCode = data[0] as string ?? ""; - //var sExp = ""; - //if (data[1] is byte[] bExp) - // sExp = Encoding.UTF8.GetString(bExp); - //else - // sExp = data[1] as string; - - var list = new List(); - DoLog("new List<(string, ICSCode.CodeBlockType, int)>() {"); - _testClass.Tokenize((t) => list.Add(t)); - - if (File.Exists($"Test{_}DataList.json")) - File.Delete($"Test{_}DataList.json"); - File.WriteAllText($"Test{_}DataList.json", JsonSerializer.Serialize(list, _jsonOptions)); - - if (expList.Count < 3) - Assert.AreEqual("", DebugLog); - for (var i = 0; i < Math.Min(expList.Count, list.Count); i++) - { - Assert.AreEqual(expList[i].type, list[i].type, $"Type({i})"); - Assert.AreEqual(expList[i].Code, list[i].Code, $"Code({i})"); - Assert.AreEqual(expList[i].Level, list[i].Level, $"Stack({i})"); - } - } - - [TestMethod()] - [DynamicData(nameof(TestListParse))] - public void ParseEnumTest(string _, List actList, string[] data) - { - var act = _testClass.Parse(actList); - AssertAreEqual(data[0], act?.ToString()?.Replace("\"+", "\" +")); - } - - - [TestMethod()] - [DynamicData(nameof(TestListParse2))] - public void ParseEnum2Test(string _, List actList, string[] data) - { - var act = _testClass.Parse(actList); - AssertAreEqual(data[0], act.ToCode()); - } - - [TestMethod()] - [DynamicData(nameof(ReorderListData))] - public void ReorderLabelsTest(string _, List actList, string[] data) - { - var act = _testClass.Parse(actList); - _testClass.ReorderLabels(act); - var sAct = act.ToString(); - if (sAct != data[0]) - DoLog(sAct); - // else - // DoLog(_testClass.ToCode(act,4)); - AssertAreEqual(data[0], sAct); - } - - [TestMethod()] - [DynamicData(nameof(RemoveLabelsData))] - public void RemoveLabelsTest(string _, List actList, string[] data) - { - var act = _testClass.Parse(actList); - _testClass.ReorderLabels(act); - _testClass.RemoveSingleSourceLabels1(act); - var sAct = act.ToString(); - if (sAct != data[0]) - DoLog(sAct); - else - DoLog(_testClass.ToCode(act, 4)); - AssertAreEqual(data[0], sAct); - } - - -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib.CSharp.Tests/Models/Scanner/CSTokenHandlerTests.cs b/Transpiler_pp/TranspilerLib.CSharp.Tests/Models/Scanner/CSTokenHandlerTests.cs deleted file mode 100644 index d7ac3e87b..000000000 --- a/Transpiler_pp/TranspilerLib.CSharp.Tests/Models/Scanner/CSTokenHandlerTests.cs +++ /dev/null @@ -1,228 +0,0 @@ -using System; -using TranspilerLib.Interfaces.Code; -using System.Diagnostics; -using System.Collections.Generic; -using TranspilerLib.Data; - -namespace TranspilerLib.Models.Scanner.Tests -{ - [TestClass()] - public class CSTokenHandlerTests - { -#pragma warning disable CS8618 // Ein Non-Nullable-Feld muss beim Beenden des Konstruktors einen Wert ungleich NULL enthalten. Fügen Sie ggf. den „erforderlichen“ Modifizierer hinzu, oder deklarieren Sie den Modifizierer als NULL-Werte zulassend. - ITokenHandler testHandler; -#pragma warning restore CS8618 // Ein Non-Nullable-Feld muss beim Beenden des Konstruktors einen Wert ungleich NULL enthalten. Fügen Sie ggf. den „erforderlichen“ Modifizierer hinzu, oder deklarieren Sie den Modifizierer als NULL-Werte zulassend. - - [TestInitialize] - public void Init() - { - testHandler = new CSTokenHandler() - { - stringEndChars = CSCode.stringEndChars, - reservedWords = CSCode.ReservedWords, - }; - } - - [TestMethod()] - public void InitTest() - { - Assert.IsNotNull(testHandler); - Assert.IsInstanceOfType(testHandler, typeof(ITokenHandler)); - Assert.IsInstanceOfType(testHandler, typeof(CSTokenHandler)); - } - - [TestMethod()] - [DataRow(-1, false, "")] - [DataRow(0, true, "HandleDefault")] - [DataRow(1, true, "HandleStrings")] - [DataRow(2, true, "HandleLineComments")] - [DataRow(3, true, "HandleBlockComments")] - [DataRow(4, true, "HandleStrings")] - [DataRow(5, true, "HandleStrings")] - [DataRow(6, true, "<.cctor>b__*")] - [DataRow(7, false, "")] - public void TryGetValueTest(int iAct, bool xAct, string sExpName) - { - Assert.AreEqual(xAct, testHandler.TryGetValue(iAct, out var handler)); - if (xAct) - { - Assert.IsNotNull(handler); - Assert.IsInstanceOfType(handler, typeof(Action)); - - Debug.WriteLine(handler.Method.Name); - if (!sExpName.EndsWith("*")) - Assert.AreEqual(sExpName, handler.Method.Name); - else - { - Assert.AreEqual(sExpName.Substring(0, sExpName.Length - 1), handler.Method.Name.Substring(0, sExpName.Length - 1)); - } - } - } - - [TestMethod()] - [DataRow(0, 1, "_ ", 0, 0, 1, "")] - [DataRow(0, 3, " if ", 1, 0, 3, "if")] - [DataRow(0, 1, "_\" ", 1, 1, 1, "_")] - [DataRow(0, 2, "_$\" ", 1, 4, 2, "_")] - [DataRow(0, 2, "_@\" ", 1, 5, 2, "_")] - [DataRow(0, 1, "_/ ", 0, 0, 1, "")] - [DataRow(0, 1, "_/*", 1, 3, 2, "_")] - [DataRow(0, 1, "_//", 1, 2, 2, "_")] - [DataRow(0, 1, "_: ", 1, 0, 1, "_:")] - [DataRow(0, 1, "_; ", 1, 0, 1, "_;")] - [DataRow(0, 6, "goto _; ", 1, 0, 6, "goto _;")] - [DataRow(0, 1, "_? ", 0, 0, 1, "")] - [DataRow(0, 1, "_{ ", 2, 0, 1, "_")] - [DataRow(0, 1, "_} ", 2, 0, 1, "_")] - [DataRow(0, 1, "_a ", 0, 0, 1, "")] - [DataRow(0, 1, ")a ", 1, 0, 1, ")")] - public void HandleDefaultTest(int iState, int iPos, string sAct, int iExpCnt, int iExpState, int iExpPos, string sExpCode) - { - // Arrange - Assert.IsTrue(testHandler.TryGetValue(iState, out var handler)); - var data = new TokenizeData() { State = iState, Pos = iPos, Pos2 = 0, flag=sExpCode=="if" }; - int iCnt = 0; - List lData = new(); - - // Act - handler((d) => { iCnt++; lData.Add(d); }, sAct, data); - - // Assert - Assert.AreEqual(iExpCnt, iCnt, nameof(iCnt)); - Assert.AreEqual(iExpState, data.State, nameof(data.State)); - Assert.AreEqual(iExpPos, data.Pos, nameof(data.Pos)); - Assert.HasCount(iExpCnt, lData, nameof(lData.Count)); - if (lData.Count > 0) - { - if (sExpCode.EndsWith(':')) - Assert.AreEqual(CodeBlockType.Label, lData[0].type); - else if (sExpCode.StartsWith("goto")) - Assert.AreEqual(CodeBlockType.Goto, lData[0].type); - else - Assert.AreEqual(CodeBlockType.Operation, lData[0].type); - - Assert.AreEqual(0, lData[0].Level); - Assert.AreEqual(0, lData[0].Pos); - Assert.AreEqual(sExpCode, lData[0].Code); - } - } - - [TestMethod()] - [DataRow(3, 1, "0 ", 0, 3, 1, "")] - [DataRow(3, 1, " */", 1, 0, 2, "*/")] //? - [DataRow(3, 0, "*/ ", 1, 0, 1, "*/")] - [DataRow(3, 0, "**/ ", 0, 3, 0, "")] - [DataRow(3, 1, "*/ ", 0, 3, 1, "")] - public void HandleBlockCommentsTest(int iState, int iPos, string sAct, int iExpCnt, int iExpState, int iExpPos, string sExpCode) - { - // Arrange - Assert.IsTrue(testHandler.TryGetValue(iState, out var handler)); - var data = new TokenizeData() { State = iState, Pos = iPos, Pos2 = 0 }; - int iCnt = 0; - List lData = new(); - - // Act - handler((d) => { iCnt++; lData.Add(d); }, sAct, data); - - // Assert - Assert.AreEqual(iExpCnt, iCnt, nameof(iCnt)); - Assert.AreEqual(iExpState, data.State, nameof(data.State)); - Assert.AreEqual(iExpPos, data.Pos, nameof(data.Pos)); - Assert.HasCount(iExpCnt, lData, nameof(lData.Count)); - if (lData.Count > 0) - { - Assert.AreEqual(CodeBlockType.Comment, lData[0].type); - Assert.AreEqual(0, lData[0].Level); - Assert.AreEqual(0, lData[0].Pos); - Assert.AreEqual(sExpCode, lData[0].Code); - } - } - [TestMethod()] - [DataRow(2, 1, "0 ", 1, 0, 1, "0")] - [DataRow(2, 1, "0 3", 0, 2, 1, "")] - [DataRow(2, 1, "x\r\n", 1, 0, 1, "x")] //? - [DataRow(2, 0, "\r ", 1, 0, 0, "")] - public void HandleLineCommentsTest(int iState, int iPos, string sAct, int iExpCnt, int iExpState, int iExpPos, string sExpCode) - { - // Arrange - Assert.IsTrue(testHandler.TryGetValue(iState, out var handler)); - var data = new TokenizeData() { State = iState, Pos = iPos, Pos2 = 0 }; - int iCnt = 0; - List lData = new(); - - // Act - handler((d) => { iCnt++; lData.Add(d); }, sAct, data); - - // Assert - Assert.AreEqual(iExpCnt, iCnt, nameof(iCnt)); - Assert.AreEqual(iExpState, data.State, nameof(data.State)); - Assert.AreEqual(iExpPos, data.Pos, nameof(data.Pos)); - Assert.HasCount(iExpCnt, lData, nameof(lData.Count)); - if (lData.Count > 0) - { - Assert.AreEqual(CodeBlockType.LComment, lData[0].type); - Assert.AreEqual(0, lData[0].Level); - Assert.AreEqual(0, lData[0].Pos); - Assert.AreEqual(sExpCode, lData[0].Code); - } - } - [TestMethod()] - [DataRow(1, 1, "0 ", 0, 1, 1, "0")] - [DataRow(1, 1, "0 3", 0, 1, 1, "")] - [DataRow(1, 0, "\r ", 1, 0, 0, "")] - [DataRow(1, 1, "x\r\n", 1, 0, 1, "x")] //? - [DataRow(1, 1, "x\"", 1, 0, 1, "x\"")] - [DataRow(1, 1, "x\\\"1", 0, 1, 2, "")] //? - [DataRow(4, 0, "{3", 0, 6, 0, "")] - [DataRow(4, 0, "{{", 0, 4, 1, "")] - [DataRow(5, 0, "\r ", 0, 5, 0, "")] - [DataRow(5, 0, "{3", 0, 5, 0, "")] - [DataRow(5, 1, "x\"", 1, 0, 1, "x\"")] - [DataRow(5, 1, "x\"\"", 0, 5, 2, "")] - [DataRow(5, 1, "x\\\"1", 0, 5, 1, "")] //? - public void HandleStringsTest(int iState, int iPos, string sAct, int iExpCnt, int iExpState, int iExpPos, string sExpCode) - { - // Arrange - Assert.IsTrue(testHandler.TryGetValue(iState, out var handler)); - var data = new TokenizeData() { State = iState, Pos = iPos, Pos2 = 0 }; - int iCnt = 0; - List lData = new(); - - // Act - handler((d) => { iCnt++; lData.Add(d); }, sAct, data); - - // Assert - Assert.AreEqual(iExpCnt, iCnt, nameof(iCnt)); - Assert.AreEqual(iExpState, data.State, nameof(data.State)); - Assert.AreEqual(iExpPos, data.Pos, nameof(data.Pos)); - Assert.HasCount(iExpCnt, lData, nameof(lData.Count)); - if (lData.Count > 0) - { - Assert.AreEqual(CodeBlockType.String, lData[0].type); - Assert.AreEqual(0, lData[0].Level); - Assert.AreEqual(0, lData[0].Pos); - Assert.AreEqual(sExpCode, lData[0].Code); - } - } - - [TestMethod()] - [DataRow(0, 0, "Test", 0, 0, 0)] - [DataRow(1, 0, "Test", 0, 1, 0)] - [DataRow(1, 0, "};", 0, 4, 0)] - public void AnonymousHandlerTest(int iState, int iPos, string sAct, int iExpCnt, int iExpState, int iExpPos) - { - // Arrange - Assert.IsTrue(testHandler.TryGetValue(6, out var handler)); - var data = new TokenizeData() { State = iState, Pos = iPos }; - int iCnt = 0; - - // Act - handler((d) => iCnt++, sAct, data); - - // Assert - Assert.AreEqual(iExpCnt, iCnt); - Assert.AreEqual(iExpState, data.State); - Assert.AreEqual(iExpPos, data.Pos); - } - } -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib.CSharp.Tests/TestData/TestCSDataClass.cs b/Transpiler_pp/TranspilerLib.CSharp.Tests/TestData/TestCSDataClass.cs deleted file mode 100644 index 08315b1d8..000000000 --- a/Transpiler_pp/TranspilerLib.CSharp.Tests/TestData/TestCSDataClass.cs +++ /dev/null @@ -1,3348 +0,0 @@ -using System.Collections.Generic; -using System.IO; -using System.Runtime.Serialization.Json; -using System.Text.Json; -using System.Text.Json.Serialization; -using TranspilerLib.Data; -using TranspilerLib.Interfaces.Code; -using TranspilerLibTests.Properties; - -namespace TranspilerLibTests.TestData; - -public class TestCSDataClass -{ - - private static readonly JsonSerializerOptions _jsonOptions = new() - { - PropertyNameCaseInsensitive = true, - ReadCommentHandling = JsonCommentHandling.Skip, - AllowTrailingCommas = true, - Converters = - { - new JsonStringEnumConverter(JsonNamingPolicy.CamelCase, allowIntegerValues: true), - } - }; - - #region Raw TestData - public const string testData0 = @"public const string TestData() -{ - // Discarded unreachable code: IL_0085 - string test = ""test""; - goto IL_0001; - /* Only one IL_0001 is allowed */ -IL_0001: - Test(test: ""Some Test""); - switch (test) - { - case ""test"": - case ""test2"": - break; - default: - goto IL_0002; - } - goto IL_0002; -IL_0002: - return test; -}"; - public static string test1Data { get; } = Resources.Test1Dat_cs; - public static string test2Data { get; } = Resources.Test2Dat_cs; - public const string testData3 = @"public void Test3(){ -Modul1.UbgT = (Text2[0].Text).Trim(); - goto IL_105c; - IL_105c: - num = 209; - if (Modul1.UbgT == """") - { - goto IL_107c; - } - else - { - test = @""""""Test""""""; - test2 = $""\""{test}\""""; - test3 = $""{{test}}""; - goto IL_108d; - } - //================= - IL_107c: - num = 210; - Modul1.UbgT = ""\""""; - goto IL_108d; - IL_108d: - num = 212; - DataModul.DB_PersonTable.Seek("">"", Modul1.UbgT, Modul1.PersInArb); -}"; - public const string testData4 = @"public void Test4(){ - goto IL_105c; - IL_105c: - num = 209; - Test(test: ""Some Test""); - goto IL_107c; - //================= - IL_107c: - num = 210; - Modul1.UbgT = ""\""""; - goto IL_108d; - IL_108d: - num = 212; -}"; - public const string testData5 = @"public void Test5(){ - test = ""Some unended string ... ; - test2 = $""Some {(test.Length()>5?@""\"""":""7"")} nested string ...""; - test3 = ""Some broken"" - /* some comment */ - +"" string ...""; - test3 = ""Another broken"" - // some other comment - +"" string ...""; -}"; - public const string testData6 = @"public void Test6(){ - if (true) - { - goto IL_105c; - } - else - goto IL_107c; - IL_105c: - goto IL_107c; - IL_107c: - return; -}"; - public const string testData7 = @"public void Test7(){ - if (true) - goto IL_105c; - else - goto IL_107c; - IL_105c: - num = 209; - i++; - goto IL_108c; - IL_107c: - num = 210; - i--; - goto IL_108c; - IL_108c: - num = 212; - return; -}"; - public static readonly string test8Data = Resources.Test8Dat_cs; - public static readonly string test9Data = Resources.Test9Dat_cs; - public static readonly string test10Data = Resources.Test10Dat_cs; - public static readonly string test11Data = Resources.Test11Dat_cs; - public static readonly string test12Data = Resources.Test12Dat_cs; - public static readonly string test13Data = Resources.Test13Dat_cs; - - #endregion - - #region Expected TestData - public const string testDataExp0 = @"///Declaration MainBlock 0,0 -public const string TestData() -///BlockStart Block 1,0 -{ -///Comment LComment 1,1 -// Discarded unreachable code: IL_0085 -///Operation Operation 1,2 -string test = ""test""; -///Goto Goto 1,3 Dest:OK -goto IL_0001; -///Comment Comment 1,4 -/* Only one IL_0001 is allowed */ -///Label Label 1,5 1 -IL_0001: -///Operation Operation 1,6 -Test(test: ""Some Test""); -///Operation Operation 1,7 -switch (test) -///BlockStart Block 2,0 -{ -///Operation Label 2,1 -case ""test"": -///Operation Label 2,2 -case ""test2"": -///Operation Operation 2,3 -break; -///Label Label 2,4 -default: -///Goto Goto 2,5 Dest:OK -goto IL_0002; -///BlockEnd Block 2,6 -} -///Goto Goto 1,8 Dest:OK -goto IL_0002; -///Label Label 1,9 2 -IL_0002: -///Operation Operation 1,10 -return test; -///BlockEnd Block 1,11 -}"; - public static string testDataExp1 { get; } = Resources.Test1ExpParse; - public static string testDataExp2 { get; } = Resources.Test2ExpParse; - public const string testDataExp3 = @"///Declaration MainBlock 0,0 -public void Test3() -///BlockStart Block 1,0 -{ -///Operation Operation 1,1 -Modul1.UbgT = (Text2[0].Text).Trim(); -///Goto Goto 1,2 Dest:OK -goto IL_105c; -///Label Label 1,3 1 -IL_105c: -///Operation Operation 1,4 -num = 209; -///Operation Operation 1,5 -if (Modul1.UbgT == """") -///BlockStart Block 2,0 -{ -///Goto Goto 2,1 Dest:OK -goto IL_107c; -///BlockEnd Block 2,2 -} -///Operation Operation 1,6 -else -///BlockStart Block 2,0 -{ -///Operation Operation 2,1 -test = @""""""Test""""""; -///Operation Operation 2,2 -test2 = $""\""{test}\""""; -///Operation Operation 2,3 -test3 = $""{{test}}""; -///Goto Goto 2,4 Dest:OK -goto IL_108d; -///BlockEnd Block 2,5 -} -///Comment LComment 1,7 -//================= -///Label Label 1,8 1 -IL_107c: -///Operation Operation 1,9 -num = 210; -///Operation Operation 1,10 -Modul1.UbgT = ""\""""; -///Goto Goto 1,11 Dest:OK -goto IL_108d; -///Label Label 1,12 2 -IL_108d: -///Operation Operation 1,13 -num = 212; -///Operation Operation 1,14 -DataModul.DB_PersonTable.Seek("">"", Modul1.UbgT, Modul1.PersInArb); -///BlockEnd Block 1,15 -}"; - public const string testDataExp4 = @"///Declaration MainBlock 0,0 -public void Test4() -///BlockStart Block 1,0 -{ -///Goto Goto 1,1 Dest:OK -goto IL_105c; -///Label Label 1,2 1 -IL_105c: -///Operation Operation 1,3 -num = 209; -///Operation Operation 1,4 -Test(test: ""Some Test""); -///Goto Goto 1,5 Dest:OK -goto IL_107c; -///Comment LComment 1,6 -//================= -///Label Label 1,7 1 -IL_107c: -///Operation Operation 1,8 -num = 210; -///Operation Operation 1,9 -Modul1.UbgT = ""\""""; -///Goto Goto 1,10 Dest:OK -goto IL_108d; -///Label Label 1,11 1 -IL_108d: -///Operation Operation 1,12 -num = 212; -///BlockEnd Block 1,13 -}"; - public const string testDataExp5 = @"///Declaration MainBlock 0,0 -public void Test5() -///BlockStart Block 1,0 -{ -///Operation Operation 1,1 -test = ""Some unended string ... ; -///Operation Operation 1,2 -test2 = $""Some {(test.Length()>5?@""\"""":""7"")} nested string ...""; -///Operation Operation 1,3 -test3 = ""Some broken"" -///Comment Comment 1,4 -/* some comment */ -///Operation Operation 1,5 -+ "" string ...""; -///Operation Operation 1,6 -test3 = ""Another broken"" -///Comment LComment 1,7 -// some other comment -///Operation Operation 1,8 -+ "" string ...""; -///BlockEnd Block 1,9 -}"; - public const string testDataExp6 = @"///Declaration MainBlock 0,0 -public void Test6() -///BlockStart Block 1,0 -{ -///Operation Operation 1,1 -if (true) -///BlockStart Block 2,0 -{ -///Goto Goto 2,1 Dest:OK -goto IL_105c; -///BlockEnd Block 2,2 -} -///Operation Operation 1,2 -else -///Goto Goto 1,3 Dest:OK -goto IL_107c; -///Label Label 1,4 1 -IL_105c: -///Goto Goto 1,5 Dest:OK -goto IL_107c; -///Label Label 1,6 2 -IL_107c: -///Operation Operation 1,7 -return; -///BlockEnd Block 1,8 -}"; - public const string testDataExp7 = @"///Declaration MainBlock 0,0 -public void Test7() -///BlockStart Block 1,0 -{ -///Operation Operation 1,1 -if (true) -///Goto Goto 1,2 Dest:OK -goto IL_105c; -///Operation Operation 1,3 -else -///Goto Goto 1,4 Dest:OK -goto IL_107c; -///Label Label 1,5 1 -IL_105c: -///Operation Operation 1,6 -num = 209; -///Operation Operation 1,7 -i++; -///Goto Goto 1,8 Dest:OK -goto IL_108c; -///Label Label 1,9 1 -IL_107c: -///Operation Operation 1,10 -num = 210; -///Operation Operation 1,11 -i--; -///Goto Goto 1,12 Dest:OK -goto IL_108c; -///Label Label 1,13 2 -IL_108c: -///Operation Operation 1,14 -num = 212; -///Operation Operation 1,15 -return; -///BlockEnd Block 1,16 -}"; - public static readonly string test8DataExp = Resources.Test8ExpParse; - public static readonly string test9DataExp = Resources.Test9ExpParse; - public static readonly string test10DataExp = Resources.Test10ExpParse; - public static readonly string test11DataExp = Resources.Test11ExpParse; - public static readonly string test12DataExp = Resources.Test12ExpParse; - public static readonly string test13DataExp = Resources.Test13ExpParse; - //==================================================================================================================================================================== - - public const string testDataMoveExp0 = @""; - public const string testDataMoveExp = @"///Declaration MainBlock 0,0 -private void Befehl_Click(object eventSender, EventArgs eventArgs) -///BlockStart Block 1,0 -{ -///Operation Operation 1,1 -int try0000_dispatch = -1; -///Operation Operation 1,2 -int num = default(int); -///Operation Operation 1,3 -short index = default(short); -///Operation Operation 1,4 -int num2 = default(int); -///Operation Operation 1,5 -int num3 = default(int); -///Operation Operation 1,6 -int number = default(int); -///Operation Operation 1,7 -string prompt = default(string); -///Operation Operation 1,8 -while (true) -///BlockStart Block 2,0 -{ -///Operation Operation 2,1 -try -///BlockStart Block 3,0 -{ -///Comment Comment 3,1 -/*Note: ILSpy has introduced the following switch to emulate a goto from catch-block to try-block*/ -///Operation Operation 3,2 -; -///Operation Operation 3,3 -int num4; -///Operation Operation 3,4 -string text; -///Operation Operation 3,5 -switch (try0000_dispatch) -///BlockStart Block 4,0 -{ -///Label Label 4,1 1 -default: -///Operation Operation 4,2 -num = 1; -///Operation Operation 4,3 -index = Befehl.GetIndex((Button)eventSender); -///Goto Goto 4,4 Dest:OK -goto IL_0015; -///Label Label 4,5 -case 1043: -///BlockStart Block 5,0 -{ -///Operation Operation 5,1 -num2 = num; -///Operation Operation 5,2 -switch (num3) -///BlockStart Block 6,0 -{ -///Label Label 6,1 -case 2: -///Operation Operation 6,2 -break; -///Label Label 6,3 -case 1: -///Goto Goto 6,4 Dest:OK -goto IL_0319; -///Label Label 6,5 -default: -///Goto Goto 6,6 Dest:OK -goto end_IL_0000; -///BlockEnd Block 6,7 -} -///Goto Goto 5,3 Dest:OK -goto IL_0248; -///BlockEnd Block 5,4 -} -///Label Label 4,6 2 -IL_0248: -///Operation Operation 4,7 -num = 36; -///Operation Operation 4,8 -number = Information.Err().Number; -///Goto Goto 4,9 Dest:OK -goto IL_0258; -///Label Label 4,10 1 -IL_0319: -///Operation Operation 4,11 -num4 = num2 + 1; -///Goto Goto 4,12 Dest:OK -goto IL_031d; -///Label Label 4,13 2 -IL_0258: -///Operation Operation 4,14 -num = 39; -///Operation Operation 4,15 -if (number == 25) -///BlockStart Block 5,0 -{ -///Goto Goto 5,1 Dest:OK -goto IL_0262; -///BlockEnd Block 5,2 -} -///Goto Goto 4,16 Dest:OK -goto IL_029b; -///Label Label 4,17 2 -IL_029b: -///Operation Operation 4,18 -num = 46; -///Operation Operation 4,19 -if (number == 55) -///BlockStart Block 5,0 -{ -///Goto Goto 5,1 Dest:OK -goto IL_02a5; -///BlockEnd Block 5,2 -} -///Goto Goto 4,20 Dest:OK -goto IL_02d0; -///Label Label 4,21 2 -IL_02d0: -///Operation Operation 4,22 -num = 52; -///Operation Operation 4,23 -if (Interaction.MsgBox(Conversion.ErrorToString(), MsgBoxStyle.OkCancel, (Information.Err().Number).AsString()) == MsgBoxResult.Cancel) -///BlockStart Block 5,0 -{ -///Operation Operation 5,1 -ProjectData.EndApp(); -///BlockEnd Block 5,2 -} -///Goto Goto 4,24 Dest:OK -goto IL_02f6; -///Label Label 4,25 2 -IL_00ad: -///Operation Operation 4,26 -num = 9; -///Operation Operation 4,27 -RichTextBox1.LoadFile(COND.Verz1 + ""TEMP\\Text2.RTF"", RichTextBoxStreamType.RichText); -///Goto Goto 4,28 Dest:OK -goto IL_00cc; -///Label Label 4,29 2 -IL_02f6: -///Operation Operation 4,30 -num = 55; -///Operation Operation 4,31 -ProjectData.ClearProjectError(); -///Operation Operation 4,32 -if (num2 == 0) -///BlockStart Block 5,0 -{ -///Operation Operation 5,1 -throw ProjectData.CreateProjectError(-2146828268); -///BlockEnd Block 5,2 -} -///Goto Goto 4,33 Dest:OK -goto IL_0315; -///Label Label 4,34 2 -IL_00cc: -///Operation Operation 4,35 -num = 10; -///Operation Operation 4,36 -Interaction.Shell(COND.Aus[7] + "" "" + COND.Verz1 + ""Temp\\Text2.RTF"", AppWinStyle.MaximizedFocus); -///Goto Goto 4,37 Dest:OK -goto end_IL_0000_2; -///Label Label 4,38 3 -IL_0315: -///Operation Operation 4,39 -num4 = num2; -///Goto Goto 4,40 Dest:OK -goto IL_031d; -///Label Label 4,41 2 -IL_031d: -///Operation Operation 4,42 -num2 = 0; -///Operation Operation 4,43 -switch (num4) -///BlockStart Block 5,0 -{ -///Label Label 5,1 -case 1: -///Operation Operation 5,2 -break; -///Label Label 5,3 -case 2: -///Goto Goto 5,4 Dest:OK -goto IL_0015; -///Label Label 5,5 -case 3: -///Goto Goto 5,6 Dest:OK -goto IL_001d; -///Label Label 5,7 -case 4: -///Goto Goto 5,8 Dest:OK -goto IL_0073; -///Label Label 5,9 -case 6: -///Label Label 5,10 -case 8: -///Goto Goto 5,11 Dest:OK -goto IL_008f; -///Label Label 5,12 -case 9: -///Goto Goto 5,13 Dest:OK -goto IL_00ad; -///Label Label 5,14 -case 10: -///Goto Goto 5,15 Dest:OK -goto IL_00cc; -///Label Label 5,16 -case 12: -///Label Label 5,17 -case 13: -///Goto Goto 5,18 Dest:OK -goto IL_00f9; -///Label Label 5,19 -case 14: -///Goto Goto 5,20 Dest:OK -goto IL_010d; -///Label Label 5,21 -case 15: -///Goto Goto 5,22 Dest:OK -goto IL_0117; -///Label Label 5,23 -case 18: -///Label Label 5,24 -case 19: -///Goto Goto 5,25 Dest:OK -goto IL_0134; -///Label Label 5,26 -case 20: -///Goto Goto 5,27 Dest:OK -goto IL_0151; -///Label Label 5,28 -case 21: -///Goto Goto 5,29 Dest:OK -goto IL_0178; -///Label Label 5,30 -case 22: -///Goto Goto 5,31 Dest:OK -goto IL_0191; -///Label Label 5,32 -case 23: -///Goto Goto 5,33 Dest:OK -goto IL_01aa; -///Label Label 5,34 -case 24: -///Goto Goto 5,35 Dest:OK -goto IL_01d0; -///Label Label 5,36 -case 26: -///Label Label 5,37 -case 28: -///Goto Goto 5,38 Dest:OK -goto IL_01f9; -///Label Label 5,39 -case 30: -///Label Label 5,40 -case 31: -///Goto Goto 5,41 Dest:OK -goto IL_021f; -///Label Label 5,42 -case 36: -///Goto Goto 5,43 Dest:OK -goto IL_0248; -///Label Label 5,44 -case 38: -///Label Label 5,45 -case 39: -///Goto Goto 5,46 Dest:OK -goto IL_0258; -///Label Label 5,47 -case 40: -///Goto Goto 5,48 Dest:OK -goto IL_0262; -///Label Label 5,49 -case 41: -///Goto Goto 5,50 Dest:OK -goto IL_026c; -///Label Label 5,51 -case 42: -///Goto Goto 5,52 Dest:OK -goto IL_027f; -///Label Label 5,53 -case 46: -///Goto Goto 5,54 Dest:OK -goto IL_029b; -///Label Label 5,55 -case 47: -///Goto Goto 5,56 Dest:OK -goto IL_02a5; -///Label Label 5,57 -case 48: -///Goto Goto 5,58 Dest:OK -goto IL_02b4; -///Label Label 5,59 -case 51: -///Label Label 5,60 -case 52: -///Goto Goto 5,61 Dest:OK -goto IL_02d0; -///Label Label 5,62 -case 53: -///Label Label 5,63 -case 55: -///Goto Goto 5,64 Dest:OK -goto IL_02f6; -///Label Label 5,65 -default: -///Goto Goto 5,66 Dest:OK -goto end_IL_0000; -///Label Label 5,67 -case 5: -///Label Label 5,68 -case 11: -///Label Label 5,69 -case 16: -///Label Label 5,70 -case 17: -///Label Label 5,71 -case 25: -///Label Label 5,72 -case 29: -///Label Label 5,73 -case 32: -///Label Label 5,74 -case 33: -///Label Label 5,75 -case 34: -///Label Label 5,76 -case 35: -///Label Label 5,77 -case 37: -///Label Label 5,78 -case 43: -///Label Label 5,79 -case 45: -///Label Label 5,80 -case 49: -///Label Label 5,81 -case 50: -///Label Label 5,82 -case 56: -///Label Label 5,83 -case 57: -///Label Label 5,84 -case 58: -///Goto Goto 5,85 Dest:OK -goto end_IL_0000_2; -///BlockEnd Block 5,86 -} -///Goto Goto 4,44 Dest:OK -goto default; -///Label Label 4,45 2 -IL_02a5: -///Operation Operation 4,46 -num = 47; -///Operation Operation 4,47 -FileSystem.FileClose(); -///Goto Goto 4,48 Dest:OK -goto IL_02b4; -///Label Label 4,49 2 -IL_02b4: -///Operation Operation 4,50 -num = 48; -///Operation Operation 4,51 -ProjectData.ClearProjectError(); -///Operation Operation 4,52 -if (num2 == 0) -///BlockStart Block 5,0 -{ -///Operation Operation 5,1 -throw ProjectData.CreateProjectError(-2146828268); -///BlockEnd Block 5,2 -} -///Goto Goto 4,53 Dest:OK -goto IL_0315; -///Label Label 4,54 2 -IL_008f: -///Operation Operation 4,55 -num = 8; -///Operation Operation 4,56 -RichTextBox1.SaveFile(COND.Verz1 + ""TEMP\\Text2.RTF"", RichTextBoxStreamType.RichText); -///Goto Goto 4,57 Dest:OK -goto IL_00ad; -///Label Label 4,58 2 -IL_0262: -///Operation Operation 4,59 -num = 40; -///Operation Operation 4,60 -prompt = ""Das angegebene Gerät ist nicht bereit.\rBitte einschalten oder abbrechen.""; -///Goto Goto 4,61 Dest:OK -goto IL_026c; -///Label Label 4,62 2 -IL_026c: -///Operation Operation 4,63 -num = 41; -///Operation Operation 4,64 -if (Interaction.MsgBox(prompt, MsgBoxStyle.OkCancel, ""Fehler"") == MsgBoxResult.Cancel) -///BlockStart Block 5,0 -{ -///Goto Goto 5,1 Dest:OK -goto end_IL_0000_2; -///BlockEnd Block 5,2 -} -///Goto Goto 4,65 Dest:OK -goto IL_027f; -///Label Label 4,66 2 -IL_027f: -///Operation Operation 4,67 -num = 42; -///Operation Operation 4,68 -ProjectData.ClearProjectError(); -///Operation Operation 4,69 -if (num2 == 0) -///BlockStart Block 5,0 -{ -///Operation Operation 5,1 -throw ProjectData.CreateProjectError(-2146828268); -///BlockEnd Block 5,2 -} -///Goto Goto 4,70 Dest:OK -goto IL_0315; -///Label Label 4,71 2 -IL_0117: -///Operation Operation 4,72 -num = 15; -///Operation Operation 4,73 -MyProject.Forms.Druck.Show(); -///Goto Goto 4,74 Dest:OK -goto end_IL_0000_2; -///Label Label 4,75 2 -IL_0015: -///Operation Operation 4,76 -ProjectData.ClearProjectError(); -///Operation Operation 4,77 -num3 = 2; -///Goto Goto 4,78 Dest:OK -goto IL_001d; -///Label Label 4,79 2 -IL_001d: -///Operation Operation 4,80 -num = 3; -///Operation Operation 4,81 -text = ""Datum "" + Strings.Mid(DateAndTime.DateString, 4, 2) + ""."" + DateAndTime.DateString.Left( 2) + ""."" + Strings.Mid(DateAndTime.DateString, 7, 4); -///Goto Goto 4,82 Dest:OK -goto IL_0073; -///Label Label 4,83 2 -IL_0073: -///Operation Operation 4,84 -num = 4; -///Operation Operation 4,85 -switch (index) -///BlockStart Block 5,0 -{ -///Label Label 5,1 -case 1: -///Operation Operation 5,2 -break; -///Label Label 5,3 -case 2: -///Goto Goto 5,4 Dest:OK -goto IL_00f9; -///Label Label 5,5 -case 3: -///Goto Goto 5,6 Dest:OK -goto IL_0134; -///Label Label 5,7 -default: -///Goto Goto 5,8 Dest:OK -goto end_IL_0000_2; -///BlockEnd Block 5,9 -} -///Goto Goto 4,86 Dest:OK -goto IL_008f; -///Label Label 4,87 2 -IL_0134: -///Operation Operation 4,88 -num = 19; -///Operation Operation 4,89 -MyProject.Forms.Hinter.CommonDialog1Save.Filter = ""Text (*.txt)|*.txt|Formartierter Text (*.RTF)|*.RTF""; -///Goto Goto 4,90 Dest:OK -goto IL_0151; -///Label Label 4,91 2 -IL_0151: -///Operation Operation 4,92 -num = 20; -///Operation Operation 4,93 -MyProject.Forms.Hinter.CommonDialog1Save.InitialDirectory = COND.GenPlu + ""list\\""; -///Goto Goto 4,94 Dest:OK -goto IL_0178; -///Label Label 4,95 2 -IL_0178: -///Operation Operation 4,96 -num = 21; -///Operation Operation 4,97 -MyProject.Forms.Hinter.CommonDialog1Save.FilterIndex = 2; -///Goto Goto 4,98 Dest:OK -goto IL_0191; -///Label Label 4,99 2 -IL_0191: -///Operation Operation 4,100 -num = 22; -///Operation Operation 4,101 -MyProject.Forms.Hinter.CommonDialog1Save.ShowDialog(); -///Goto Goto 4,102 Dest:OK -goto IL_01aa; -///Label Label 4,103 2 -IL_01aa: -///Operation Operation 4,104 -num = 23; -///Operation Operation 4,105 -if (MyProject.Forms.Hinter.CommonDialog1Save.FileName == """") -///BlockStart Block 5,0 -{ -///Goto Goto 5,1 Dest:OK -goto end_IL_0000_2; -///BlockEnd Block 5,2 -} -///Goto Goto 4,106 Dest:OK -goto IL_01d0; -///Label Label 4,107 2 -IL_01d0: -///Operation Operation 4,108 -num = 24; -///Operation Operation 4,109 -switch (MyProject.Forms.Hinter.CommonDialog1Save.FilterIndex) -///BlockStart Block 5,0 -{ -///Label Label 5,1 -case 1: -///Operation Operation 5,2 -break; -///Label Label 5,3 -case 2: -///Goto Goto 5,4 Dest:OK -goto IL_021f; -///Label Label 5,5 -default: -///Goto Goto 5,6 Dest:OK -goto end_IL_0000_2; -///BlockEnd Block 5,7 -} -///Goto Goto 4,110 Dest:OK -goto IL_01f9; -///Label Label 4,111 2 -IL_021f: -///Operation Operation 4,112 -num = 31; -///Operation Operation 4,113 -RichTextBox1.SaveFile(MyProject.Forms.Hinter.CommonDialog1Save.FileName, RichTextBoxStreamType.RichText); -///Goto Goto 4,114 Dest:OK -goto end_IL_0000_2; -///Label Label 4,115 2 -IL_01f9: -///Operation Operation 4,116 -num = 28; -///Operation Operation 4,117 -RichTextBox1.SaveFile(MyProject.Forms.Hinter.CommonDialog1Save.FileName, RichTextBoxStreamType.PlainText); -///Goto Goto 4,118 Dest:OK -goto end_IL_0000_2; -///Label Label 4,119 2 -IL_00f9: -///Operation Operation 4,120 -num = 13; -///Operation Operation 4,121 -RichTextBox1.Text = """"; -///Goto Goto 4,122 Dest:OK -goto IL_010d; -///Label Label 4,123 2 -IL_010d: -///Operation Operation 4,124 -num = 14; -///Operation Operation 4,125 -Close(); -///Goto Goto 4,126 Dest:OK -goto IL_0117; -///Label Label 4,127 2 -end_IL_0000: -///Operation Operation 4,128 -break; -///BlockEnd Block 4,129 -} -///BlockEnd Block 3,6 -} -///Operation Operation 2,2 -catch (Exception obj) when (obj is not null && num3 != 0 && num2 == 0) -///BlockStart Block 3,0 -{ -///Operation Operation 3,1 -ProjectData.SetProjectError(obj); -///Operation Operation 3,2 -try0000_dispatch = 1043; -///Operation Operation 3,3 -continue; -///BlockEnd Block 3,4 -} -///Operation Operation 2,3 -throw ProjectData.CreateProjectError(-2146828237); -///Operation Operation 2,4 -continue; -///Label Label 2,5 9 -end_IL_0000_2: -///Operation Operation 2,6 -break; -///BlockEnd Block 2,7 -} -///Operation Operation 1,9 -if (num2 != 0) -///BlockStart Block 2,0 -{ -///Operation Operation 2,1 -ProjectData.ClearProjectError(); -///BlockEnd Block 2,2 -} -///BlockEnd Block 1,10 -}"; - public const string testDataMoveExp2 = @""; - public const string testDataDeleteExp = @"///Declaration MainBlock 0,0 -private void Befehl_Click(object eventSender, EventArgs eventArgs) -///BlockStart Block 1,0 -{ -///Operation Operation 1,1 -int try0000_dispatch = -1; -///Operation Operation 1,2 -int num = default(int); -///Operation Operation 1,3 -short index = default(short); -///Operation Operation 1,4 -int num2 = default(int); -///Operation Operation 1,5 -int num3 = default(int); -///Operation Operation 1,6 -int number = default(int); -///Operation Operation 1,7 -string prompt = default(string); -///Operation Operation 1,8 -while (true) -///BlockStart Block 2,0 -{ -///Operation Operation 2,1 -try -///BlockStart Block 3,0 -{ -///Comment Comment 3,1 -/*Note: ILSpy has introduced the following switch to emulate a goto from catch-block to try-block*/ -///Operation Operation 3,2 -; -///Operation Operation 3,3 -int num4; -///Operation Operation 3,4 -string text; -///Operation Operation 3,5 -switch (try0000_dispatch) -///BlockStart Block 4,0 -{ -///Label Label 4,1 1 -default: -///Operation Operation 4,2 -num = 1; -///Operation Operation 4,3 -index = Befehl.GetIndex((Button)eventSender); -///Goto Goto 4,4 Dest:OK -goto IL_0015; -///Label Label 4,5 -case 1043: -///BlockStart Block 5,0 -{ -///Operation Operation 5,1 -num2 = num; -///Operation Operation 5,2 -switch (num3) -///BlockStart Block 6,0 -{ -///Label Label 6,1 -case 2: -///Operation Operation 6,2 -break; -///Label Label 6,3 -case 1: -///Goto Goto 6,4 -goto IL_0319; -///Label Label 6,5 -default: -///Goto Goto 6,6 Dest:OK -goto end_IL_0000; -///BlockEnd Block 6,7 -} -///Goto Goto 5,3 Dest:OK -goto IL_0248; -///BlockEnd Block 5,4 -} -///Label Label 4,6 2 -IL_0248: -///Operation Operation 4,7 -num = 36; -///Operation Operation 4,8 -number = Information.Err().Number; -///Goto Goto 4,9 Dest:OK -goto IL_0258; -///Label Label 4,10 2 -IL_0258: -///Operation Operation 4,11 -num = 39; -///Operation Operation 4,12 -if (number == 25) -///BlockStart Block 5,0 -{ -///Goto Goto 5,1 Dest:OK -goto IL_0262; -///BlockEnd Block 5,2 -} -///Goto Goto 4,13 Dest:OK -goto IL_029b; -///Label Label 4,14 2 -IL_029b: -///Operation Operation 4,15 -num = 46; -///Operation Operation 4,16 -if (number == 55) -///BlockStart Block 5,0 -{ -///Goto Goto 5,1 Dest:OK -goto IL_02a5; -///BlockEnd Block 5,2 -} -///Goto Goto 4,17 Dest:OK -goto IL_02d0; -///Label Label 4,18 2 -IL_02d0: -///Operation Operation 4,19 -num = 52; -///Operation Operation 4,20 -if (Interaction.MsgBox(Conversion.ErrorToString(), MsgBoxStyle.OkCancel, (Information.Err().Number).AsString()) == MsgBoxResult.Cancel) -///BlockStart Block 5,0 -{ -///Operation Operation 5,1 -ProjectData.EndApp(); -///BlockEnd Block 5,2 -} -///Goto Goto 4,21 Dest:OK -goto IL_02f6; -///Label Label 4,22 2 -IL_00ad: -///Operation Operation 4,23 -num = 9; -///Operation Operation 4,24 -RichTextBox1.LoadFile(COND.Verz1 + ""TEMP\\Text2.RTF"", RichTextBoxStreamType.RichText); -///Goto Goto 4,25 Dest:OK -goto IL_00cc; -///Label Label 4,26 2 -IL_02f6: -///Operation Operation 4,27 -num = 55; -///Operation Operation 4,28 -ProjectData.ClearProjectError(); -///Operation Operation 4,29 -if (num2 == 0) -///BlockStart Block 5,0 -{ -///Operation Operation 5,1 -throw ProjectData.CreateProjectError(-2146828268); -///BlockEnd Block 5,2 -} -///Goto Goto 4,30 Dest:OK -goto IL_0315; -///Label Label 4,31 2 -IL_00cc: -///Operation Operation 4,32 -num = 10; -///Operation Operation 4,33 -Interaction.Shell(COND.Aus[7] + "" "" + COND.Verz1 + ""Temp\\Text2.RTF"", AppWinStyle.MaximizedFocus); -///Goto Goto 4,34 Dest:OK -goto end_IL_0000_2; -///Label Label 4,35 3 -IL_0315: -///Operation Operation 4,36 -num4 = num2; -///Goto Goto 4,37 Dest:OK -goto IL_031d; -///Label Label 4,38 1 -IL_031d: -///Operation Operation 4,39 -num2 = 0; -///Operation Operation 4,40 -switch (num4) -///BlockStart Block 5,0 -{ -///Label Label 5,1 -case 1: -///Operation Operation 5,2 -break; -///Label Label 5,3 -case 2: -///Goto Goto 5,4 Dest:OK -goto IL_0015; -///Label Label 5,5 -case 3: -///Goto Goto 5,6 Dest:OK -goto IL_001d; -///Label Label 5,7 -case 4: -///Goto Goto 5,8 Dest:OK -goto IL_0073; -///Label Label 5,9 -case 6: -///Label Label 5,10 -case 8: -///Goto Goto 5,11 Dest:OK -goto IL_008f; -///Label Label 5,12 -case 9: -///Goto Goto 5,13 Dest:OK -goto IL_00ad; -///Label Label 5,14 -case 10: -///Goto Goto 5,15 Dest:OK -goto IL_00cc; -///Label Label 5,16 -case 12: -///Label Label 5,17 -case 13: -///Goto Goto 5,18 Dest:OK -goto IL_00f9; -///Label Label 5,19 -case 14: -///Goto Goto 5,20 Dest:OK -goto IL_010d; -///Label Label 5,21 -case 15: -///Goto Goto 5,22 Dest:OK -goto IL_0117; -///Label Label 5,23 -case 18: -///Label Label 5,24 -case 19: -///Goto Goto 5,25 Dest:OK -goto IL_0134; -///Label Label 5,26 -case 20: -///Goto Goto 5,27 Dest:OK -goto IL_0151; -///Label Label 5,28 -case 21: -///Goto Goto 5,29 Dest:OK -goto IL_0178; -///Label Label 5,30 -case 22: -///Goto Goto 5,31 Dest:OK -goto IL_0191; -///Label Label 5,32 -case 23: -///Goto Goto 5,33 Dest:OK -goto IL_01aa; -///Label Label 5,34 -case 24: -///Goto Goto 5,35 Dest:OK -goto IL_01d0; -///Label Label 5,36 -case 26: -///Label Label 5,37 -case 28: -///Goto Goto 5,38 Dest:OK -goto IL_01f9; -///Label Label 5,39 -case 30: -///Label Label 5,40 -case 31: -///Goto Goto 5,41 Dest:OK -goto IL_021f; -///Label Label 5,42 -case 36: -///Goto Goto 5,43 Dest:OK -goto IL_0248; -///Label Label 5,44 -case 38: -///Label Label 5,45 -case 39: -///Goto Goto 5,46 Dest:OK -goto IL_0258; -///Label Label 5,47 -case 40: -///Goto Goto 5,48 Dest:OK -goto IL_0262; -///Label Label 5,49 -case 41: -///Goto Goto 5,50 Dest:OK -goto IL_026c; -///Label Label 5,51 -case 42: -///Goto Goto 5,52 Dest:OK -goto IL_027f; -///Label Label 5,53 -case 46: -///Goto Goto 5,54 Dest:OK -goto IL_029b; -///Label Label 5,55 -case 47: -///Goto Goto 5,56 Dest:OK -goto IL_02a5; -///Label Label 5,57 -case 48: -///Goto Goto 5,58 Dest:OK -goto IL_02b4; -///Label Label 5,59 -case 51: -///Label Label 5,60 -case 52: -///Goto Goto 5,61 Dest:OK -goto IL_02d0; -///Label Label 5,62 -case 53: -///Label Label 5,63 -case 55: -///Goto Goto 5,64 Dest:OK -goto IL_02f6; -///Label Label 5,65 -default: -///Goto Goto 5,66 Dest:OK -goto end_IL_0000; -///Label Label 5,67 -case 5: -///Label Label 5,68 -case 11: -///Label Label 5,69 -case 16: -///Label Label 5,70 -case 17: -///Label Label 5,71 -case 25: -///Label Label 5,72 -case 29: -///Label Label 5,73 -case 32: -///Label Label 5,74 -case 33: -///Label Label 5,75 -case 34: -///Label Label 5,76 -case 35: -///Label Label 5,77 -case 37: -///Label Label 5,78 -case 43: -///Label Label 5,79 -case 45: -///Label Label 5,80 -case 49: -///Label Label 5,81 -case 50: -///Label Label 5,82 -case 56: -///Label Label 5,83 -case 57: -///Label Label 5,84 -case 58: -///Goto Goto 5,85 Dest:OK -goto end_IL_0000_2; -///BlockEnd Block 5,86 -} -///Goto Goto 4,41 Dest:OK -goto default; -///Label Label 4,42 2 -IL_02a5: -///Operation Operation 4,43 -num = 47; -///Operation Operation 4,44 -FileSystem.FileClose(); -///Goto Goto 4,45 Dest:OK -goto IL_02b4; -///Label Label 4,46 2 -IL_02b4: -///Operation Operation 4,47 -num = 48; -///Operation Operation 4,48 -ProjectData.ClearProjectError(); -///Operation Operation 4,49 -if (num2 == 0) -///BlockStart Block 5,0 -{ -///Operation Operation 5,1 -throw ProjectData.CreateProjectError(-2146828268); -///BlockEnd Block 5,2 -} -///Goto Goto 4,50 Dest:OK -goto IL_0315; -///Label Label 4,51 2 -IL_008f: -///Operation Operation 4,52 -num = 8; -///Operation Operation 4,53 -RichTextBox1.SaveFile(COND.Verz1 + ""TEMP\\Text2.RTF"", RichTextBoxStreamType.RichText); -///Goto Goto 4,54 Dest:OK -goto IL_00ad; -///Label Label 4,55 2 -IL_0262: -///Operation Operation 4,56 -num = 40; -///Operation Operation 4,57 -prompt = ""Das angegebene Gerät ist nicht bereit.\rBitte einschalten oder abbrechen.""; -///Goto Goto 4,58 Dest:OK -goto IL_026c; -///Label Label 4,59 2 -IL_026c: -///Operation Operation 4,60 -num = 41; -///Operation Operation 4,61 -if (Interaction.MsgBox(prompt, MsgBoxStyle.OkCancel, ""Fehler"") == MsgBoxResult.Cancel) -///BlockStart Block 5,0 -{ -///Goto Goto 5,1 Dest:OK -goto end_IL_0000_2; -///BlockEnd Block 5,2 -} -///Goto Goto 4,62 Dest:OK -goto IL_027f; -///Label Label 4,63 2 -IL_027f: -///Operation Operation 4,64 -num = 42; -///Operation Operation 4,65 -ProjectData.ClearProjectError(); -///Operation Operation 4,66 -if (num2 == 0) -///BlockStart Block 5,0 -{ -///Operation Operation 5,1 -throw ProjectData.CreateProjectError(-2146828268); -///BlockEnd Block 5,2 -} -///Goto Goto 4,67 Dest:OK -goto IL_0315; -///Label Label 4,68 2 -IL_0117: -///Operation Operation 4,69 -num = 15; -///Operation Operation 4,70 -MyProject.Forms.Druck.Show(); -///Goto Goto 4,71 Dest:OK -goto end_IL_0000_2; -///Label Label 4,72 2 -IL_0015: -///Operation Operation 4,73 -ProjectData.ClearProjectError(); -///Operation Operation 4,74 -num3 = 2; -///Goto Goto 4,75 Dest:OK -goto IL_001d; -///Label Label 4,76 2 -IL_001d: -///Operation Operation 4,77 -num = 3; -///Operation Operation 4,78 -text = ""Datum "" + Strings.Mid(DateAndTime.DateString, 4, 2) + ""."" + DateAndTime.DateString.Left( 2) + ""."" + Strings.Mid(DateAndTime.DateString, 7, 4); -///Goto Goto 4,79 Dest:OK -goto IL_0073; -///Label Label 4,80 2 -IL_0073: -///Operation Operation 4,81 -num = 4; -///Operation Operation 4,82 -switch (index) -///BlockStart Block 5,0 -{ -///Label Label 5,1 -case 1: -///Operation Operation 5,2 -break; -///Label Label 5,3 -case 2: -///Goto Goto 5,4 Dest:OK -goto IL_00f9; -///Label Label 5,5 -case 3: -///Goto Goto 5,6 Dest:OK -goto IL_0134; -///Label Label 5,7 -default: -///Goto Goto 5,8 Dest:OK -goto end_IL_0000_2; -///BlockEnd Block 5,9 -} -///Goto Goto 4,83 Dest:OK -goto IL_008f; -///Label Label 4,84 2 -IL_0134: -///Operation Operation 4,85 -num = 19; -///Operation Operation 4,86 -MyProject.Forms.Hinter.CommonDialog1Save.Filter = ""Text (*.txt)|*.txt|Formartierter Text (*.RTF)|*.RTF""; -///Goto Goto 4,87 Dest:OK -goto IL_0151; -///Label Label 4,88 2 -IL_0151: -///Operation Operation 4,89 -num = 20; -///Operation Operation 4,90 -MyProject.Forms.Hinter.CommonDialog1Save.InitialDirectory = COND.GenPlu + ""list\\""; -///Goto Goto 4,91 Dest:OK -goto IL_0178; -///Label Label 4,92 2 -IL_0178: -///Operation Operation 4,93 -num = 21; -///Operation Operation 4,94 -MyProject.Forms.Hinter.CommonDialog1Save.FilterIndex = 2; -///Goto Goto 4,95 Dest:OK -goto IL_0191; -///Label Label 4,96 2 -IL_0191: -///Operation Operation 4,97 -num = 22; -///Operation Operation 4,98 -MyProject.Forms.Hinter.CommonDialog1Save.ShowDialog(); -///Goto Goto 4,99 Dest:OK -goto IL_01aa; -///Label Label 4,100 2 -IL_01aa: -///Operation Operation 4,101 -num = 23; -///Operation Operation 4,102 -if (MyProject.Forms.Hinter.CommonDialog1Save.FileName == """") -///BlockStart Block 5,0 -{ -///Goto Goto 5,1 Dest:OK -goto end_IL_0000_2; -///BlockEnd Block 5,2 -} -///Goto Goto 4,103 Dest:OK -goto IL_01d0; -///Label Label 4,104 2 -IL_01d0: -///Operation Operation 4,105 -num = 24; -///Operation Operation 4,106 -switch (MyProject.Forms.Hinter.CommonDialog1Save.FilterIndex) -///BlockStart Block 5,0 -{ -///Label Label 5,1 -case 1: -///Operation Operation 5,2 -break; -///Label Label 5,3 -case 2: -///Goto Goto 5,4 Dest:OK -goto IL_021f; -///Label Label 5,5 -default: -///Goto Goto 5,6 Dest:OK -goto end_IL_0000_2; -///BlockEnd Block 5,7 -} -///Goto Goto 4,107 Dest:OK -goto IL_01f9; -///Label Label 4,108 2 -IL_021f: -///Operation Operation 4,109 -num = 31; -///Operation Operation 4,110 -RichTextBox1.SaveFile(MyProject.Forms.Hinter.CommonDialog1Save.FileName, RichTextBoxStreamType.RichText); -///Goto Goto 4,111 Dest:OK -goto end_IL_0000_2; -///Label Label 4,112 2 -IL_01f9: -///Operation Operation 4,113 -num = 28; -///Operation Operation 4,114 -RichTextBox1.SaveFile(MyProject.Forms.Hinter.CommonDialog1Save.FileName, RichTextBoxStreamType.PlainText); -///Goto Goto 4,115 Dest:OK -goto end_IL_0000_2; -///Label Label 4,116 2 -IL_00f9: -///Operation Operation 4,117 -num = 13; -///Operation Operation 4,118 -RichTextBox1.Text = """"; -///Goto Goto 4,119 Dest:OK -goto IL_010d; -///Label Label 4,120 2 -IL_010d: -///Operation Operation 4,121 -num = 14; -///Operation Operation 4,122 -Close(); -///Goto Goto 4,123 Dest:OK -goto IL_0117; -///Label Label 4,124 2 -end_IL_0000: -///Operation Operation 4,125 -break; -///BlockEnd Block 4,126 -} -///BlockEnd Block 3,6 -} -///Operation Operation 2,2 -catch (Exception obj) when (obj is not null && num3 != 0 && num2 == 0) -///BlockStart Block 3,0 -{ -///Operation Operation 3,1 -ProjectData.SetProjectError(obj); -///Operation Operation 3,2 -try0000_dispatch = 1043; -///Operation Operation 3,3 -continue; -///BlockEnd Block 3,4 -} -///Operation Operation 2,3 -throw ProjectData.CreateProjectError(-2146828237); -///Operation Operation 2,4 -continue; -///Label Label 2,5 9 -end_IL_0000_2: -///Operation Operation 2,6 -break; -///BlockEnd Block 2,7 -} -///Operation Operation 1,9 -if (num2 != 0) -///BlockStart Block 2,0 -{ -///Operation Operation 2,1 -ProjectData.ClearProjectError(); -///BlockEnd Block 2,2 -} -///BlockEnd Block 1,10 -}"; - public const string testDataDelete2Exp = @"///Declaration MainBlock 0,0 -private void Befehl_Click(object eventSender, EventArgs eventArgs) -///BlockStart Block 1,0 -{ -///Operation Operation 1,1 -int try0000_dispatch = -1; -///Operation Operation 1,2 -int num = default(int); -///Operation Operation 1,3 -short index = default(short); -///Operation Operation 1,4 -int num2 = default(int); -///Operation Operation 1,5 -int num3 = default(int); -///Operation Operation 1,6 -int number = default(int); -///Operation Operation 1,7 -string prompt = default(string); -///Operation Operation 1,8 -while (true) -///BlockStart Block 2,0 -{ -///Operation Operation 2,1 -try -///BlockStart Block 3,0 -{ -///Comment Comment 3,1 -/*Note: ILSpy has introduced the following switch to emulate a goto from catch-block to try-block*/ -///Operation Operation 3,2 -; -///Operation Operation 3,3 -int num4; -///Operation Operation 3,4 -string text; -///Operation Operation 3,5 -switch (try0000_dispatch) -///BlockStart Block 4,0 -{ -///Label Label 4,1 1 -default: -///Operation Operation 4,2 -num = 1; -///Operation Operation 4,3 -index = Befehl.GetIndex((Button)eventSender); -///Goto Goto 4,4 Dest:OK -goto IL_0015; -///Label Label 4,5 -case 1043: -///BlockStart Block 5,0 -{ -///Operation Operation 5,1 -num2 = num; -///Operation Operation 5,2 -switch (num3) -///BlockStart Block 6,0 -{ -///Label Label 6,1 -case 2: -///Operation Operation 6,2 -break; -///Label Label 6,3 -case 1: -///Goto Goto 6,4 Dest:OK -goto IL_0319; -///Label Label 6,5 -default: -///Goto Goto 6,6 Dest:OK -goto end_IL_0000; -///BlockEnd Block 6,7 -} -///Goto Goto 5,3 -goto IL_0248; -///BlockEnd Block 5,4 -} -///Label Label 4,6 1 -IL_0319: -///Operation Operation 4,7 -num4 = num2 + 1; -///Goto Goto 4,8 Dest:OK -goto IL_031d; -///Label Label 4,9 1 -IL_0258: -///Operation Operation 4,10 -num = 39; -///Operation Operation 4,11 -if (number == 25) -///BlockStart Block 5,0 -{ -///Goto Goto 5,1 Dest:OK -goto IL_0262; -///BlockEnd Block 5,2 -} -///Goto Goto 4,12 Dest:OK -goto IL_029b; -///Label Label 4,13 2 -IL_029b: -///Operation Operation 4,14 -num = 46; -///Operation Operation 4,15 -if (number == 55) -///BlockStart Block 5,0 -{ -///Goto Goto 5,1 Dest:OK -goto IL_02a5; -///BlockEnd Block 5,2 -} -///Goto Goto 4,16 Dest:OK -goto IL_02d0; -///Label Label 4,17 2 -IL_02d0: -///Operation Operation 4,18 -num = 52; -///Operation Operation 4,19 -if (Interaction.MsgBox(Conversion.ErrorToString(), MsgBoxStyle.OkCancel, (Information.Err().Number).AsString()) == MsgBoxResult.Cancel) -///BlockStart Block 5,0 -{ -///Operation Operation 5,1 -ProjectData.EndApp(); -///BlockEnd Block 5,2 -} -///Goto Goto 4,20 Dest:OK -goto IL_02f6; -///Label Label 4,21 2 -IL_00ad: -///Operation Operation 4,22 -num = 9; -///Operation Operation 4,23 -RichTextBox1.LoadFile(COND.Verz1 + ""TEMP\\Text2.RTF"", RichTextBoxStreamType.RichText); -///Goto Goto 4,24 Dest:OK -goto IL_00cc; -///Label Label 4,25 2 -IL_02f6: -///Operation Operation 4,26 -num = 55; -///Operation Operation 4,27 -ProjectData.ClearProjectError(); -///Operation Operation 4,28 -if (num2 == 0) -///BlockStart Block 5,0 -{ -///Operation Operation 5,1 -throw ProjectData.CreateProjectError(-2146828268); -///BlockEnd Block 5,2 -} -///Goto Goto 4,29 Dest:OK -goto IL_0315; -///Label Label 4,30 2 -IL_00cc: -///Operation Operation 4,31 -num = 10; -///Operation Operation 4,32 -Interaction.Shell(COND.Aus[7] + "" "" + COND.Verz1 + ""Temp\\Text2.RTF"", AppWinStyle.MaximizedFocus); -///Goto Goto 4,33 Dest:OK -goto end_IL_0000_2; -///Label Label 4,34 3 -IL_0315: -///Operation Operation 4,35 -num4 = num2; -///Goto Goto 4,36 Dest:OK -goto IL_031d; -///Label Label 4,37 2 -IL_031d: -///Operation Operation 4,38 -num2 = 0; -///Operation Operation 4,39 -switch (num4) -///BlockStart Block 5,0 -{ -///Label Label 5,1 -case 1: -///Operation Operation 5,2 -break; -///Label Label 5,3 -case 2: -///Goto Goto 5,4 Dest:OK -goto IL_0015; -///Label Label 5,5 -case 3: -///Goto Goto 5,6 Dest:OK -goto IL_001d; -///Label Label 5,7 -case 4: -///Goto Goto 5,8 Dest:OK -goto IL_0073; -///Label Label 5,9 -case 6: -///Label Label 5,10 -case 8: -///Goto Goto 5,11 Dest:OK -goto IL_008f; -///Label Label 5,12 -case 9: -///Goto Goto 5,13 Dest:OK -goto IL_00ad; -///Label Label 5,14 -case 10: -///Goto Goto 5,15 Dest:OK -goto IL_00cc; -///Label Label 5,16 -case 12: -///Label Label 5,17 -case 13: -///Goto Goto 5,18 Dest:OK -goto IL_00f9; -///Label Label 5,19 -case 14: -///Goto Goto 5,20 Dest:OK -goto IL_010d; -///Label Label 5,21 -case 15: -///Goto Goto 5,22 Dest:OK -goto IL_0117; -///Label Label 5,23 -case 18: -///Label Label 5,24 -case 19: -///Goto Goto 5,25 Dest:OK -goto IL_0134; -///Label Label 5,26 -case 20: -///Goto Goto 5,27 Dest:OK -goto IL_0151; -///Label Label 5,28 -case 21: -///Goto Goto 5,29 Dest:OK -goto IL_0178; -///Label Label 5,30 -case 22: -///Goto Goto 5,31 Dest:OK -goto IL_0191; -///Label Label 5,32 -case 23: -///Goto Goto 5,33 Dest:OK -goto IL_01aa; -///Label Label 5,34 -case 24: -///Goto Goto 5,35 Dest:OK -goto IL_01d0; -///Label Label 5,36 -case 26: -///Label Label 5,37 -case 28: -///Goto Goto 5,38 Dest:OK -goto IL_01f9; -///Label Label 5,39 -case 30: -///Label Label 5,40 -case 31: -///Goto Goto 5,41 Dest:OK -goto IL_021f; -///Label Label 5,42 -case 36: -///Goto Goto 5,43 -goto IL_0248; -///Label Label 5,44 -case 38: -///Label Label 5,45 -case 39: -///Goto Goto 5,46 Dest:OK -goto IL_0258; -///Label Label 5,47 -case 40: -///Goto Goto 5,48 Dest:OK -goto IL_0262; -///Label Label 5,49 -case 41: -///Goto Goto 5,50 Dest:OK -goto IL_026c; -///Label Label 5,51 -case 42: -///Goto Goto 5,52 Dest:OK -goto IL_027f; -///Label Label 5,53 -case 46: -///Goto Goto 5,54 Dest:OK -goto IL_029b; -///Label Label 5,55 -case 47: -///Goto Goto 5,56 Dest:OK -goto IL_02a5; -///Label Label 5,57 -case 48: -///Goto Goto 5,58 Dest:OK -goto IL_02b4; -///Label Label 5,59 -case 51: -///Label Label 5,60 -case 52: -///Goto Goto 5,61 Dest:OK -goto IL_02d0; -///Label Label 5,62 -case 53: -///Label Label 5,63 -case 55: -///Goto Goto 5,64 Dest:OK -goto IL_02f6; -///Label Label 5,65 -default: -///Goto Goto 5,66 Dest:OK -goto end_IL_0000; -///Label Label 5,67 -case 5: -///Label Label 5,68 -case 11: -///Label Label 5,69 -case 16: -///Label Label 5,70 -case 17: -///Label Label 5,71 -case 25: -///Label Label 5,72 -case 29: -///Label Label 5,73 -case 32: -///Label Label 5,74 -case 33: -///Label Label 5,75 -case 34: -///Label Label 5,76 -case 35: -///Label Label 5,77 -case 37: -///Label Label 5,78 -case 43: -///Label Label 5,79 -case 45: -///Label Label 5,80 -case 49: -///Label Label 5,81 -case 50: -///Label Label 5,82 -case 56: -///Label Label 5,83 -case 57: -///Label Label 5,84 -case 58: -///Goto Goto 5,85 Dest:OK -goto end_IL_0000_2; -///BlockEnd Block 5,86 -} -///Goto Goto 4,40 Dest:OK -goto default; -///Label Label 4,41 2 -IL_02a5: -///Operation Operation 4,42 -num = 47; -///Operation Operation 4,43 -FileSystem.FileClose(); -///Goto Goto 4,44 Dest:OK -goto IL_02b4; -///Label Label 4,45 2 -IL_02b4: -///Operation Operation 4,46 -num = 48; -///Operation Operation 4,47 -ProjectData.ClearProjectError(); -///Operation Operation 4,48 -if (num2 == 0) -///BlockStart Block 5,0 -{ -///Operation Operation 5,1 -throw ProjectData.CreateProjectError(-2146828268); -///BlockEnd Block 5,2 -} -///Goto Goto 4,49 Dest:OK -goto IL_0315; -///Label Label 4,50 2 -IL_008f: -///Operation Operation 4,51 -num = 8; -///Operation Operation 4,52 -RichTextBox1.SaveFile(COND.Verz1 + ""TEMP\\Text2.RTF"", RichTextBoxStreamType.RichText); -///Goto Goto 4,53 Dest:OK -goto IL_00ad; -///Label Label 4,54 2 -IL_0262: -///Operation Operation 4,55 -num = 40; -///Operation Operation 4,56 -prompt = ""Das angegebene Gerät ist nicht bereit.\rBitte einschalten oder abbrechen.""; -///Goto Goto 4,57 Dest:OK -goto IL_026c; -///Label Label 4,58 2 -IL_026c: -///Operation Operation 4,59 -num = 41; -///Operation Operation 4,60 -if (Interaction.MsgBox(prompt, MsgBoxStyle.OkCancel, ""Fehler"") == MsgBoxResult.Cancel) -///BlockStart Block 5,0 -{ -///Goto Goto 5,1 Dest:OK -goto end_IL_0000_2; -///BlockEnd Block 5,2 -} -///Goto Goto 4,61 Dest:OK -goto IL_027f; -///Label Label 4,62 2 -IL_027f: -///Operation Operation 4,63 -num = 42; -///Operation Operation 4,64 -ProjectData.ClearProjectError(); -///Operation Operation 4,65 -if (num2 == 0) -///BlockStart Block 5,0 -{ -///Operation Operation 5,1 -throw ProjectData.CreateProjectError(-2146828268); -///BlockEnd Block 5,2 -} -///Goto Goto 4,66 Dest:OK -goto IL_0315; -///Label Label 4,67 2 -IL_0117: -///Operation Operation 4,68 -num = 15; -///Operation Operation 4,69 -MyProject.Forms.Druck.Show(); -///Goto Goto 4,70 Dest:OK -goto end_IL_0000_2; -///Label Label 4,71 2 -IL_0015: -///Operation Operation 4,72 -ProjectData.ClearProjectError(); -///Operation Operation 4,73 -num3 = 2; -///Goto Goto 4,74 Dest:OK -goto IL_001d; -///Label Label 4,75 2 -IL_001d: -///Operation Operation 4,76 -num = 3; -///Operation Operation 4,77 -text = ""Datum "" + Strings.Mid(DateAndTime.DateString, 4, 2) + ""."" + DateAndTime.DateString.Left( 2) + ""."" + Strings.Mid(DateAndTime.DateString, 7, 4); -///Goto Goto 4,78 Dest:OK -goto IL_0073; -///Label Label 4,79 2 -IL_0073: -///Operation Operation 4,80 -num = 4; -///Operation Operation 4,81 -switch (index) -///BlockStart Block 5,0 -{ -///Label Label 5,1 -case 1: -///Operation Operation 5,2 -break; -///Label Label 5,3 -case 2: -///Goto Goto 5,4 Dest:OK -goto IL_00f9; -///Label Label 5,5 -case 3: -///Goto Goto 5,6 Dest:OK -goto IL_0134; -///Label Label 5,7 -default: -///Goto Goto 5,8 Dest:OK -goto end_IL_0000_2; -///BlockEnd Block 5,9 -} -///Goto Goto 4,82 Dest:OK -goto IL_008f; -///Label Label 4,83 2 -IL_0134: -///Operation Operation 4,84 -num = 19; -///Operation Operation 4,85 -MyProject.Forms.Hinter.CommonDialog1Save.Filter = ""Text (*.txt)|*.txt|Formartierter Text (*.RTF)|*.RTF""; -///Goto Goto 4,86 Dest:OK -goto IL_0151; -///Label Label 4,87 2 -IL_0151: -///Operation Operation 4,88 -num = 20; -///Operation Operation 4,89 -MyProject.Forms.Hinter.CommonDialog1Save.InitialDirectory = COND.GenPlu + ""list\\""; -///Goto Goto 4,90 Dest:OK -goto IL_0178; -///Label Label 4,91 2 -IL_0178: -///Operation Operation 4,92 -num = 21; -///Operation Operation 4,93 -MyProject.Forms.Hinter.CommonDialog1Save.FilterIndex = 2; -///Goto Goto 4,94 Dest:OK -goto IL_0191; -///Label Label 4,95 2 -IL_0191: -///Operation Operation 4,96 -num = 22; -///Operation Operation 4,97 -MyProject.Forms.Hinter.CommonDialog1Save.ShowDialog(); -///Goto Goto 4,98 Dest:OK -goto IL_01aa; -///Label Label 4,99 2 -IL_01aa: -///Operation Operation 4,100 -num = 23; -///Operation Operation 4,101 -if (MyProject.Forms.Hinter.CommonDialog1Save.FileName == """") -///BlockStart Block 5,0 -{ -///Goto Goto 5,1 Dest:OK -goto end_IL_0000_2; -///BlockEnd Block 5,2 -} -///Goto Goto 4,102 Dest:OK -goto IL_01d0; -///Label Label 4,103 2 -IL_01d0: -///Operation Operation 4,104 -num = 24; -///Operation Operation 4,105 -switch (MyProject.Forms.Hinter.CommonDialog1Save.FilterIndex) -///BlockStart Block 5,0 -{ -///Label Label 5,1 -case 1: -///Operation Operation 5,2 -break; -///Label Label 5,3 -case 2: -///Goto Goto 5,4 Dest:OK -goto IL_021f; -///Label Label 5,5 -default: -///Goto Goto 5,6 Dest:OK -goto end_IL_0000_2; -///BlockEnd Block 5,7 -} -///Goto Goto 4,106 Dest:OK -goto IL_01f9; -///Label Label 4,107 2 -IL_021f: -///Operation Operation 4,108 -num = 31; -///Operation Operation 4,109 -RichTextBox1.SaveFile(MyProject.Forms.Hinter.CommonDialog1Save.FileName, RichTextBoxStreamType.RichText); -///Goto Goto 4,110 Dest:OK -goto end_IL_0000_2; -///Label Label 4,111 2 -IL_01f9: -///Operation Operation 4,112 -num = 28; -///Operation Operation 4,113 -RichTextBox1.SaveFile(MyProject.Forms.Hinter.CommonDialog1Save.FileName, RichTextBoxStreamType.PlainText); -///Goto Goto 4,114 Dest:OK -goto end_IL_0000_2; -///Label Label 4,115 2 -IL_00f9: -///Operation Operation 4,116 -num = 13; -///Operation Operation 4,117 -RichTextBox1.Text = """"; -///Goto Goto 4,118 Dest:OK -goto IL_010d; -///Label Label 4,119 2 -IL_010d: -///Operation Operation 4,120 -num = 14; -///Operation Operation 4,121 -Close(); -///Goto Goto 4,122 Dest:OK -goto IL_0117; -///Label Label 4,123 2 -end_IL_0000: -///Operation Operation 4,124 -break; -///BlockEnd Block 4,125 -} -///BlockEnd Block 3,6 -} -///Operation Operation 2,2 -catch (Exception obj) when (obj is not null && num3 != 0 && num2 == 0) -///BlockStart Block 3,0 -{ -///Operation Operation 3,1 -ProjectData.SetProjectError(obj); -///Operation Operation 3,2 -try0000_dispatch = 1043; -///Operation Operation 3,3 -continue; -///BlockEnd Block 3,4 -} -///Operation Operation 2,3 -throw ProjectData.CreateProjectError(-2146828237); -///Operation Operation 2,4 -continue; -///Label Label 2,5 9 -end_IL_0000_2: -///Operation Operation 2,6 -break; -///BlockEnd Block 2,7 -} -///Operation Operation 1,9 -if (num2 != 0) -///BlockStart Block 2,0 -{ -///Operation Operation 2,1 -ProjectData.ClearProjectError(); -///BlockEnd Block 2,2 -} -///BlockEnd Block 1,10 -}"; - // public static string TestDataExpReorder0 =@""; - public static string testDataExpReorder1 { get; } = Resources.Test1ExpParseSL; - - public static string testDataExpReorder2 { get; } = Resources.Test2ExpParseSL; - public static string testDataExpReorder3 { get; } = @"///Declaration MainBlock 0,0 -public void Test3() -///BlockStart Block 1,0 -{ -///Operation Operation 1,1 -Modul1.UbgT = (Text2[0].Text).Trim(); -///Goto Goto 1,2 Dest:OK -goto IL_105c; -///Label Label 1,3 1 -IL_105c: -///Operation Operation 1,4 -num = 209; -///Operation Operation 1,5 -if (Modul1.UbgT == """") -///BlockStart Block 2,0 -{ -///Goto Goto 2,1 Dest:OK -goto IL_107c; -///BlockEnd Block 2,2 -} -///Operation Operation 1,6 -else -///BlockStart Block 2,0 -{ -///Operation Operation 2,1 -test = @""""""Test""""""; -///Operation Operation 2,2 -test2 = $""\""{test}\""""; -///Operation Operation 2,3 -test3 = $""{{test}}""; -///Goto Goto 2,4 Dest:OK -goto IL_108d; -///BlockEnd Block 2,5 -} -///Comment LComment 1,7 -//================= -///Label Label 1,8 1 -IL_107c: -///Operation Operation 1,9 -num = 210; -///Operation Operation 1,10 -Modul1.UbgT = ""\""""; -///Goto Goto 1,11 Dest:OK -goto IL_108d; -///Label Label 1,12 2 -IL_108d: -///Operation Operation 1,13 -num = 212; -///Operation Operation 1,14 -DataModul.DB_PersonTable.Seek("">"", Modul1.UbgT, Modul1.PersInArb); -///BlockEnd Block 1,15 -}"; - public static string testDataExpReorder4 { get; } = @"///Declaration MainBlock 0,0 -public void Test4() -///BlockStart Block 1,0 -{ -///Goto Goto 1,1 Dest:OK -goto IL_105c; -///Label Label 1,2 1 -IL_105c: -///Operation Operation 1,3 -num = 209; -///Operation Operation 1,4 -Test(test: ""Some Test""); -///Goto Goto 1,5 Dest:OK -goto IL_107c; -///Comment LComment 1,6 -//================= -///Label Label 1,7 1 -IL_107c: -///Operation Operation 1,8 -num = 210; -///Operation Operation 1,9 -Modul1.UbgT = ""\""""; -///Goto Goto 1,10 Dest:OK -goto IL_108d; -///Label Label 1,11 1 -IL_108d: -///Operation Operation 1,12 -num = 212; -///BlockEnd Block 1,13 -}"; - public static string testDataExpReorder7 { get; } = @"///Declaration MainBlock 0,0 -public void Test4() -///BlockStart Block 1,0 -{ -///Goto Goto 1,1 Dest:OK -goto IL_105c; -///Label Label 1,2 1 -IL_105c: -///Operation Operation 1,3 -num = 209; -///Operation Operation 1,4 -Test(test: ""Some Test""); -///Goto Goto 1,5 Dest:OK -goto IL_107c; -///Comment LComment 1,6 -//================= -///Label Label 1,7 1 -IL_107c: -///Operation Operation 1,8 -num = 210; -///Operation Operation 1,9 -Modul1.UbgT = ""\""""; -///Goto Goto 1,10 Dest:OK -goto IL_108d; -///Label Label 1,11 1 -IL_108d: -///Operation Operation 1,12 -num = 212; -///BlockEnd Block 1,13 -}"; - - public static string testDataExpReorder9 { get; } = Resources.Test9ExpParseSL; - - - public static string testDataExpRemoveL0 { get; } = @"///Declaration MainBlock 0,0 -public const string TestData() -///BlockStart Block 1,0 -{ -///Comment LComment 1,1 -// Discarded unreachable code: IL_0085 -///Operation Operation 1,2 -string test = ""test""; -///Operation Operation 1,3 -Test(test: ""Some Test""); -///Operation Operation 1,4 -switch (test) -///BlockStart Block 2,0 -{ -///Operation Label 2,1 -case ""test"": -///Operation Label 2,2 -case ""test2"": -///Operation Operation 2,3 -break; -///Label Label 2,4 -default: -///Goto Goto 2,5 Dest:OK -goto IL_0002; -///BlockEnd Block 2,6 -} -///Goto Goto 1,5 Dest:OK -goto IL_0002; -///Label Label 1,6 2 -IL_0002: -///Operation Operation 1,7 -return test; -///BlockEnd Block 1,8 -}"; - public static string testDataExpRemoveL1 { get; } = Resources.Test1ExpParseRL; - public static string testDataExpRemoveL2 { get; } = Resources.Test2ExpParseRL; - public static string testDataExpRemoveL3 { get; } = @"///Declaration MainBlock 0,0 -public void Test3() -///BlockStart Block 1,0 -{ -///Operation Operation 1,1 -Modul1.UbgT = (Text2[0].Text).Trim(); -///Operation Operation 1,2 -if (Modul1.UbgT == """") -///BlockStart Block 2,0 -{ -///Operation Operation 2,1 -Modul1.UbgT = ""\""""; -///BlockEnd Block 2,2 -} -///Operation Operation 1,3 -else -///BlockStart Block 2,0 -{ -///Operation Operation 2,1 -test = @""""""Test""""""; -///Operation Operation 2,2 -test2 = $""\""{test}\""""; -///Operation Operation 2,3 -test3 = $""{{test}}""; -///BlockEnd Block 2,4 -} -///Operation Operation 1,4 -DataModul.DB_PersonTable.Seek("">"", Modul1.UbgT, Modul1.PersInArb); -///BlockEnd Block 1,5 -}"; - public static string testDataExpRemoveL4 { get; } = @"///Declaration MainBlock 0,0 -public void Test4() -///BlockStart Block 1,0 -{ -///Operation Operation 1,1 -Test(test: ""Some Test""); -///Operation Operation 1,2 -Modul1.UbgT = ""\""""; -///BlockEnd Block 1,3 -}"; - public static string testDataExpRemoveL7 { get; } = @"///Declaration MainBlock 0,0 -public void Test7() -///BlockStart Block 1,0 -{ -///Operation Operation 1,1 -if (true) -///Start Block 2,0 -{ -///Operation Operation 2,1 -i++; -///End Block 2,2 -} -///Operation Operation 1,2 -else -///Start Block 2,0 -{ -///Operation Operation 2,1 -i--; -///End Block 2,2 -} -///Operation Operation 1,3 -return; -///BlockEnd Block 1,4 -}"; - public static string testDataExpRemoveL9 { get; } = Resources.Test9ExpParseRL; - public static string testDataExpRemoveL12 { get; } = Resources.Test12ExpParseRL; - public static string testDataExpRemoveL13 { get; } = Resources.Test13ExpParseRL; - #endregion - - #region Expected data for Tokenizer - public const string cExpLog0 = @"T:Operation,0,public const string TestData() -T:Block,1,{ -T:Operation,1, -T:LComment,1,// Discarded unreachable code: IL_0085 -T:Operation,1,string test = -T:String,1,""test"" -T:Operation,1,; -T:Goto,1,goto IL_0001; -T:Operation,1, -T:Comment,1,/* Only one IL_0001 is allowed */ -T:Label,1,IL_0001: -T:Label,1,Test(test: -T:Operation,1, -T:String,1,""Some Test"" -T:Operation,1,); -T:Operation,1,switch -T:Operation,1,(test) -T:Block,2,{ -T:Operation,2,case -T:String,2,""test"" -T:Label,2,: -T:Operation,2,case -T:String,2,""test2"" -T:Label,2,: -T:Operation,2,break; -T:Label,2,default: -T:Goto,2,goto IL_0002; -T:Block,2,} -T:Goto,1,goto IL_0002; -T:Label,1,IL_0002: -T:Operation,1,return -T:Operation,1,test; -T:Block,1,} -"; - public static string cExp1Log { get; } = Resources.Test1ExpTokenize; - public static string cExp2Log { get; } = Resources.Test2ExpTokenize; - public const string cExpLog3 = @"T:Operation,0,public void Test3() -T:Block,1,{ -T:Operation,1,Modul1.UbgT = (Text2[0].Text).Trim(); -T:Goto,1,goto IL_105c; -T:Label,1,IL_105c: -T:Operation,1,num = 209; -T:Operation,1,if -T:Operation,1,(Modul1.UbgT == -T:String,1,"""" -T:Operation,1,) -T:Block,2,{ -T:Goto,2,goto IL_107c; -T:Block,2,} -T:Operation,1,else -T:Block,2,{ -T:Operation,2,test = -T:String,2,@""""""Test"""""" -T:Operation,2,; -T:Operation,2,test2 = -T:String,2,$""\""{test}\"""" -T:Operation,2,; -T:Operation,2,test3 = -T:String,2,$""{{test}}"" -T:Operation,2,; -T:Goto,2,goto IL_108d; -T:Block,2,} -T:Operation,1, -T:LComment,1,//================= -T:Label,1,IL_107c: -T:Operation,1,num = 210; -T:Operation,1,Modul1.UbgT = -T:String,1,""\"""" -T:Operation,1,; -T:Goto,1,goto IL_108d; -T:Label,1,IL_108d: -T:Operation,1,num = 212; -T:Operation,1,DataModul.DB_PersonTable.Seek( -T:String,1,"">"" -T:Operation,1,, Modul1.UbgT, Modul1.PersInArb); -T:Block,1,} -"; - public const string cExpLog4 = @"T:Operation,0,public void Test4() -T:Block,1,{ -T:Goto,1,goto IL_105c; -T:Label,1,IL_105c: -T:Operation,1,num = 209; -T:Label,1,Test(test: -T:Operation,1, -T:String,1,""Some Test"" -T:Operation,1,); -T:Goto,1,goto IL_107c; -T:Operation,1, -T:LComment,1,//================= -T:Label,1,IL_107c: -T:Operation,1,num = 210; -T:Operation,1,Modul1.UbgT = -T:String,1,""\"""" -T:Operation,1,; -T:Goto,1,goto IL_108d; -T:Label,1,IL_108d: -T:Operation,1,num = 212; -T:Block,1,} -"; - public const string cExpLog5 = @"T:Operation,0,public void Test5() -T:Block,1,{ -T:Operation,1,test = -T:String,1,""Some unended string ... ; -T:Operation,1,test2 = -T:String,1,$""Some {(test.Length()>5?@""\"""":""7"")} nested string ..."" -T:Operation,1,; -T:Operation,1,test3 = -T:String,1,""Some broken"" -T:Operation,1, -T:Comment,1,/* some comment */ -T:Operation,1,+ -T:String,1,"" string ..."" -T:Operation,1,; -T:Operation,1,test3 = -T:String,1,""Another broken"" -T:Operation,1, -T:LComment,1,// some other comment -T:Operation,1,+ -T:String,1,"" string ..."" -T:Operation,1,; -T:Block,1,} -"; - public const string cExpLog6 = @"T:Operation,0,public void Test6() -T:Block,1,{ -T:Operation,1,if -T:Operation,1,(true) -T:Block,2,{ -T:Goto,2,goto IL_105c; -T:Block,2,} -T:Operation,1,else -T:Goto,1,goto IL_107c; -T:Label,1,IL_105c: -T:Goto,1,goto IL_107c; -T:Label,1,IL_107c: -T:Operation,1,return; -T:Block,1,} -"; - public const string cExpLog7 = @"T:Operation,0,public void Test7() -T:Block,1,{ -T:Operation,1,if -T:Operation,1,(true) -T:Goto,1,goto IL_105c; -T:Operation,1,else -T:Goto,1,goto IL_107c; -T:Label,1,IL_105c: -T:Operation,1,num = 209; -T:Operation,1,i++; -T:Goto,1,goto IL_108c; -T:Label,1,IL_107c: -T:Operation,1,num = 210; -T:Operation,1,i--; -T:Goto,1,goto IL_108c; -T:Label,1,IL_108c: -T:Operation,1,num = 212; -T:Operation,1,return; -T:Block,1,} -"; - public static readonly string cExp8Log = Resources.Test8ExpTokenize; - public static readonly string cExp9Log = Resources.Test9ExpTokenize; - public static readonly string cExp10Log = Resources.Test10ExpTokenize; - public static readonly string cExp11Log = Resources.Test11ExpTokenize; - public static readonly string cExp12Log = Resources.Test12ExpTokenize; - public static readonly string cExp13Log = Resources.Test13ExpTokenize; - - #endregion - - #region Expected code (unchanged) - public const string cExpCode0 = @" public const string TestData() - { - // Discarded unreachable code: IL_0085 - string test = ""test""; - goto IL_0001; - /* Only one IL_0001 is allowed */ - IL_0001: - Test(test: ""Some Test""); - switch (test) - { - case ""test"": - case ""test2"": - break; - default: - goto IL_0002; - } - goto IL_0002; - IL_0002: - return test; - }"; - public static string cExpCode1 { get; } = Resources.Test1ExpCode; - public static string cExpCode2 { get; } = Resources.Test2ExpCode; - public const string cExpCode3 = @" public void Test3() - { - Modul1.UbgT = (Text2[0].Text).Trim(); - goto IL_105c; - IL_105c: - num = 209; - if (Modul1.UbgT == """") - { - goto IL_107c; - } - else - { - test = @""""""Test""""""; - test2 = $""\""{test}\""""; - test3 = $""{{test}}""; - goto IL_108d; - } - //================= - IL_107c: - num = 210; - Modul1.UbgT = ""\""""; - goto IL_108d; - IL_108d: - num = 212; - DataModul.DB_PersonTable.Seek("">"", Modul1.UbgT, Modul1.PersInArb); - }"; - public const string cExpCode4 = @" public void Test4() - { - goto IL_105c; - IL_105c: - num = 209; - Test(test: ""Some Test""); - goto IL_107c; - //================= - IL_107c: - num = 210; - Modul1.UbgT = ""\""""; - goto IL_108d; - IL_108d: - num = 212; - }"; - public const string cExpCode5 = @" public void Test5() - { - test = ""Some unended string ... ; - test2 = $""Some {(test.Length()>5?@""\"""":""7"")} nested string ...""; - test3 = ""Some broken"" - /* some comment */ - + "" string ...""; - test3 = ""Another broken"" - // some other comment - + "" string ...""; - }"; - public const string cExpCode6 = @" public void Test6() - { - if (true) - { - goto IL_105c; - } - else - goto IL_107c; - IL_105c: - goto IL_107c; - IL_107c: - return; - }"; - public const string cExpCode7 = @" public void Test7() - { - if (true) - goto IL_105c; - else - goto IL_107c; - IL_105c: - num = 209; - i++; - goto IL_108c; - IL_107c: - num = 210; - i--; - goto IL_108c; - IL_108c: - num = 212; - return; - }"; - public static string cExpCode8 { get; } = Resources.Test8ExpCode; - public static string cExpCode9 { get; } = Resources.Test9ExpCode; - public static string cExpCode10 { get; } = Resources.Test10ExpCode; - public static string cExpCode11 { get; } = Resources.Test11ExpCode; - public static string cExpCode12 { get; } = Resources.Test12ExpCode; - public static string cExpCode13 { get; } = Resources.Test13ExpCode; - #endregion - private static object? ReadObject(byte[] JsonData) => JsonSerializer.Deserialize>(new MemoryStream(JsonData),_jsonOptions); - - #region Intermediste token-list - public static object TestDataList0() => new List(){ - ("public const string TestData()", CodeBlockType.Operation, 0), - ("{", CodeBlockType.Block, 1), - ("", CodeBlockType.Operation, 1), - ("// Discarded unreachable code: IL_0085", CodeBlockType.LComment, 1), - ("string test =", CodeBlockType.Operation, 1), - ("\"test\"", CodeBlockType.String, 1), - (";", CodeBlockType.Operation, 1), - ("goto IL_0001;", CodeBlockType.Goto, 1), - ("", CodeBlockType.Operation, 1), - ("/* Only one IL_0001 is allowed */", CodeBlockType.Comment, 1), - ("IL_0001:", CodeBlockType.Label, 1), - ("Test(test:", CodeBlockType.Label, 1), - ("", CodeBlockType.Operation, 1), - ("\"Some Test\"", CodeBlockType.String, 1), - (");", CodeBlockType.Operation, 1), - ("switch", CodeBlockType.Operation, 1), - ("(test)", CodeBlockType.Operation, 1), - ("{", CodeBlockType.Block, 2), - ("case", CodeBlockType.Operation, 2), - ("\"test\"", CodeBlockType.String, 2), - (":", CodeBlockType.Label, 2), - ("case", CodeBlockType.Operation, 2), - ("\"test2\"", CodeBlockType.String, 2), - (":", CodeBlockType.Label, 2), - ("break;", CodeBlockType.Operation, 2), - ("default:", CodeBlockType.Label, 2), - ("goto IL_0002;", CodeBlockType.Goto, 2), - ("}", CodeBlockType.Block, 2), - ("goto IL_0002;", CodeBlockType.Goto, 1), - ("IL_0002:", CodeBlockType.Label, 1), - ("return", CodeBlockType.Operation, 1), - ("test;", CodeBlockType.Operation, 1), - ("}", CodeBlockType.Block, 1),}; - public static object TestDataList1_org() => new List() { - ("private void Befehl_Click(object eventSender, EventArgs eventArgs)", CodeBlockType.Operation, 0), - ("{", CodeBlockType.Block, 1), - ("int try0000_dispatch = -1;", CodeBlockType.Operation, 1), - ("int num = default(int);", CodeBlockType.Operation, 1), - ("short index = default(short);", CodeBlockType.Operation, 1), - ("int num2 = default(int);", CodeBlockType.Operation, 1), - ("int num3 = default(int);", CodeBlockType.Operation, 1), - ("int number = default(int);", CodeBlockType.Operation, 1), - ("string prompt = default(string);", CodeBlockType.Operation, 1), - ("while", CodeBlockType.Operation, 1), -("(true)", CodeBlockType.Operation, 1), - ("{", CodeBlockType.Block, 2), - ("try", CodeBlockType.Operation, 2), - ("{", CodeBlockType.Block, 3), - ("", CodeBlockType.Operation, 3), - ("/*Note: ILSpy has introduced the following switch to emulate a goto from catch-block to try-block*/", CodeBlockType.Comment, 3), - (";", CodeBlockType.Operation, 3), - ("int num4;", CodeBlockType.Operation, 3), - ("string text;", CodeBlockType.Operation, 3), - ("switch", CodeBlockType.Operation, 3), -("(try0000_dispatch)", CodeBlockType.Operation, 3), - ("{", CodeBlockType.Block, 4), - ("default:", CodeBlockType.Label, 4), - ("num = 1;", CodeBlockType.Operation, 4), - ("index = Befehl.GetIndex((Button)eventSender);", CodeBlockType.Operation, 4), - ("goto IL_0015;", CodeBlockType.Goto, 4), - ("case 1043:", CodeBlockType.Label, 4), - ("{", CodeBlockType.Block, 5), - ("num2 = num;", CodeBlockType.Operation, 5), - ("switch", CodeBlockType.Operation, 5), -("(num3)", CodeBlockType.Operation, 5), - ("{", CodeBlockType.Block, 6), - ("case 2:", CodeBlockType.Label, 6), - ("break;", CodeBlockType.Operation, 6), - ("case 1:", CodeBlockType.Label, 6), - ("goto IL_0319;", CodeBlockType.Goto, 6), - ("default:", CodeBlockType.Label, 6), - ("goto end_IL_0000;", CodeBlockType.Goto, 6), - ("}", CodeBlockType.Block, 6), - ("goto IL_0248;", CodeBlockType.Goto, 5), - ("}", CodeBlockType.Block, 5), - ("IL_0319:", CodeBlockType.Label, 4), - ("num4 = num2 + 1;", CodeBlockType.Operation, 4), - ("goto IL_031d;", CodeBlockType.Goto, 4), - ("IL_0248:", CodeBlockType.Label, 4), - ("num = 36;", CodeBlockType.Operation, 4), - ("number = Information.Err().Number;", CodeBlockType.Operation, 4), - ("goto IL_0258;", CodeBlockType.Goto, 4), - ("IL_0258:", CodeBlockType.Label, 4), - ("num = 39;", CodeBlockType.Operation, 4), - ("if", CodeBlockType.Operation, 4), -("(number == 25)", CodeBlockType.Operation, 4), - ("{", CodeBlockType.Block, 5), - ("goto IL_0262;", CodeBlockType.Goto, 5), - ("}", CodeBlockType.Block, 5), - ("goto IL_029b;", CodeBlockType.Goto, 4), - ("IL_029b:", CodeBlockType.Label, 4), - ("num = 46;", CodeBlockType.Operation, 4), - ("if", CodeBlockType.Operation, 4), -("(number == 55)", CodeBlockType.Operation, 4), - ("{", CodeBlockType.Block, 5), - ("goto IL_02a5;", CodeBlockType.Goto, 5), - ("}", CodeBlockType.Block, 5), - ("goto IL_02d0;", CodeBlockType.Goto, 4), - ("IL_02d0:", CodeBlockType.Label, 4), - ("num = 52;", CodeBlockType.Operation, 4), - ("if", CodeBlockType.Operation, 4), -("(Interaction.MsgBox(Conversion.ErrorToString(), MsgBoxStyle.OkCancel, (Information.Err().Number).AsString()) == MsgBoxResult.Cancel)", CodeBlockType.Operation, 4), - ("{", CodeBlockType.Block, 5), - ("ProjectData.EndApp();", CodeBlockType.Operation, 5), - ("}", CodeBlockType.Block, 5), - ("goto IL_02f6;", CodeBlockType.Goto, 4), - ("IL_00ad:", CodeBlockType.Label, 4), - ("num = 9;", CodeBlockType.Operation, 4), - ("RichTextBox1.LoadFile(COND.Verz1 +", CodeBlockType.Operation, 4), - ("\"TEMP\\\\Text2.RTF\"", CodeBlockType.String, 4), - (", RichTextBoxStreamType.RichText);", CodeBlockType.Operation, 4), - ("goto IL_00cc;", CodeBlockType.Goto, 4), - ("IL_02f6:", CodeBlockType.Label, 4), - ("num = 55;", CodeBlockType.Operation, 4), - ("ProjectData.ClearProjectError();", CodeBlockType.Operation, 4), - ("if", CodeBlockType.Operation, 4), -("(num2 == 0)", CodeBlockType.Operation, 4), - ("{", CodeBlockType.Block, 5), - ("throw", CodeBlockType.Operation, 5), -("ProjectData.CreateProjectError(-2146828268);", CodeBlockType.Operation, 5), - ("}", CodeBlockType.Block, 5), - ("goto IL_0315;", CodeBlockType.Goto, 4), - ("IL_00cc:", CodeBlockType.Label, 4), - ("num = 10;", CodeBlockType.Operation, 4), - ("Interaction.Shell(COND.Aus[7] +", CodeBlockType.Operation, 4), - ("\" \"", CodeBlockType.String, 4), - ("+ COND.Verz1 +", CodeBlockType.Operation, 4), - ("\"Temp\\\\Text2.RTF\"", CodeBlockType.String, 4), - (", AppWinStyle.MaximizedFocus);", CodeBlockType.Operation, 4), - ("goto end_IL_0000_2;", CodeBlockType.Goto, 4), - ("IL_0315:", CodeBlockType.Label, 4), - ("num4 = num2;", CodeBlockType.Operation, 4), - ("goto IL_031d;", CodeBlockType.Goto, 4), - ("IL_031d:", CodeBlockType.Label, 4), - ("num2 = 0;", CodeBlockType.Operation, 4), - ("switch", CodeBlockType.Operation, 4), -("(num4)", CodeBlockType.Operation, 4), - ("{", CodeBlockType.Block, 5), - ("case 1:", CodeBlockType.Label, 5), - ("break;", CodeBlockType.Operation, 5), - ("case 2:", CodeBlockType.Label, 5), - ("goto IL_0015;", CodeBlockType.Goto, 5), - ("case 3:", CodeBlockType.Label, 5), - ("goto IL_001d;", CodeBlockType.Goto, 5), - ("case 4:", CodeBlockType.Label, 5), - ("goto IL_0073;", CodeBlockType.Goto, 5), - ("case 6:", CodeBlockType.Label, 5), - ("case 8:", CodeBlockType.Label, 5), - ("goto IL_008f;", CodeBlockType.Goto, 5), - ("case 9:", CodeBlockType.Label, 5), - ("goto IL_00ad;", CodeBlockType.Goto, 5), - ("case 10:", CodeBlockType.Label, 5), - ("goto IL_00cc;", CodeBlockType.Goto, 5), - ("case 12:", CodeBlockType.Label, 5), - ("case 13:", CodeBlockType.Label, 5), - ("goto IL_00f9;", CodeBlockType.Goto, 5), - ("case 14:", CodeBlockType.Label, 5), - ("goto IL_010d;", CodeBlockType.Goto, 5), - ("case 15:", CodeBlockType.Label, 5), - ("goto IL_0117;", CodeBlockType.Goto, 5), - ("case 18:", CodeBlockType.Label, 5), - ("case 19:", CodeBlockType.Label, 5), - ("goto IL_0134;", CodeBlockType.Goto, 5), - ("case 20:", CodeBlockType.Label, 5), - ("goto IL_0151;", CodeBlockType.Goto, 5), - ("case 21:", CodeBlockType.Label, 5), - ("goto IL_0178;", CodeBlockType.Goto, 5), - ("case 22:", CodeBlockType.Label, 5), - ("goto IL_0191;", CodeBlockType.Goto, 5), - ("case 23:", CodeBlockType.Label, 5), - ("goto IL_01aa;", CodeBlockType.Goto, 5), - ("case 24:", CodeBlockType.Label, 5), - ("goto IL_01d0;", CodeBlockType.Goto, 5), - ("case 26:", CodeBlockType.Label, 5), - ("case 28:", CodeBlockType.Label, 5), - ("goto IL_01f9;", CodeBlockType.Goto, 5), - ("case 30:", CodeBlockType.Label, 5), - ("case 31:", CodeBlockType.Label, 5), - ("goto IL_021f;", CodeBlockType.Goto, 5), - ("case 36:", CodeBlockType.Label, 5), - ("goto IL_0248;", CodeBlockType.Goto, 5), - ("case 38:", CodeBlockType.Label, 5), - ("case 39:", CodeBlockType.Label, 5), - ("goto IL_0258;", CodeBlockType.Goto, 5), - ("case 40:", CodeBlockType.Label, 5), - ("goto IL_0262;", CodeBlockType.Goto, 5), - ("case 41:", CodeBlockType.Label, 5), - ("goto IL_026c;", CodeBlockType.Goto, 5), - ("case 42:", CodeBlockType.Label, 5), - ("goto IL_027f;", CodeBlockType.Goto, 5), - ("case 46:", CodeBlockType.Label, 5), - ("goto IL_029b;", CodeBlockType.Goto, 5), - ("case 47:", CodeBlockType.Label, 5), - ("goto IL_02a5;", CodeBlockType.Goto, 5), - ("case 48:", CodeBlockType.Label, 5), - ("goto IL_02b4;", CodeBlockType.Goto, 5), - ("case 51:", CodeBlockType.Label, 5), - ("case 52:", CodeBlockType.Label, 5), - ("goto IL_02d0;", CodeBlockType.Goto, 5), - ("case 53:", CodeBlockType.Label, 5), - ("case 55:", CodeBlockType.Label, 5), - ("goto IL_02f6;", CodeBlockType.Goto, 5), - ("default:", CodeBlockType.Label, 5), - ("goto end_IL_0000;", CodeBlockType.Goto, 5), - ("case 5:", CodeBlockType.Label, 5), - ("case 11:", CodeBlockType.Label, 5), - ("case 16:", CodeBlockType.Label, 5), - ("case 17:", CodeBlockType.Label, 5), - ("case 25:", CodeBlockType.Label, 5), - ("case 29:", CodeBlockType.Label, 5), - ("case 32:", CodeBlockType.Label, 5), - ("case 33:", CodeBlockType.Label, 5), - ("case 34:", CodeBlockType.Label, 5), - ("case 35:", CodeBlockType.Label, 5), - ("case 37:", CodeBlockType.Label, 5), - ("case 43:", CodeBlockType.Label, 5), - ("case 45:", CodeBlockType.Label, 5), - ("case 49:", CodeBlockType.Label, 5), - ("case 50:", CodeBlockType.Label, 5), - ("case 56:", CodeBlockType.Label, 5), - ("case 57:", CodeBlockType.Label, 5), - ("case 58:", CodeBlockType.Label, 5), - ("goto end_IL_0000_2;", CodeBlockType.Goto, 5), - ("}", CodeBlockType.Block, 5), - ("goto default;", CodeBlockType.Goto, 4), - ("IL_02a5:", CodeBlockType.Label, 4), - ("num = 47;", CodeBlockType.Operation, 4), - ("FileSystem.FileClose();", CodeBlockType.Operation, 4), - ("goto IL_02b4;", CodeBlockType.Goto, 4), - ("IL_02b4:", CodeBlockType.Label, 4), - ("num = 48;", CodeBlockType.Operation, 4), - ("ProjectData.ClearProjectError();", CodeBlockType.Operation, 4), - ("if", CodeBlockType.Operation, 4), -("(num2 == 0)", CodeBlockType.Operation, 4), - ("{", CodeBlockType.Block, 5), - ("throw", CodeBlockType.Operation, 5), -("ProjectData.CreateProjectError(-2146828268);", CodeBlockType.Operation, 5), - ("}", CodeBlockType.Block, 5), - ("goto IL_0315;", CodeBlockType.Goto, 4), - ("IL_008f:", CodeBlockType.Label, 4), - ("num = 8;", CodeBlockType.Operation, 4), - ("RichTextBox1.SaveFile(COND.Verz1 +", CodeBlockType.Operation, 4), - ("\"TEMP\\\\Text2.RTF\"", CodeBlockType.String, 4), - (", RichTextBoxStreamType.RichText);", CodeBlockType.Operation, 4), - ("goto IL_00ad;", CodeBlockType.Goto, 4), - ("IL_0262:", CodeBlockType.Label, 4), - ("num = 40;", CodeBlockType.Operation, 4), - ("prompt =", CodeBlockType.Operation, 4), - ("\"Das angegebene Gerät ist nicht bereit.\\rBitte einschalten oder abbrechen.\"", CodeBlockType.String, 4), - (";", CodeBlockType.Operation, 4), - ("goto IL_026c;", CodeBlockType.Goto, 4), - ("IL_026c:", CodeBlockType.Label, 4), - ("num = 41;", CodeBlockType.Operation, 4), - ("if", CodeBlockType.Operation, 4), -("(Interaction.MsgBox(prompt, MsgBoxStyle.OkCancel,", CodeBlockType.Operation, 4), - ("\"Fehler\"", CodeBlockType.String, 4), - (") == MsgBoxResult.Cancel)", CodeBlockType.Operation, 4), - ("{", CodeBlockType.Block, 5), - ("goto end_IL_0000_2;", CodeBlockType.Goto, 5), - ("}", CodeBlockType.Block, 5), - ("goto IL_027f;", CodeBlockType.Goto, 4), - ("IL_027f:", CodeBlockType.Label, 4), - ("num = 42;", CodeBlockType.Operation, 4), - ("ProjectData.ClearProjectError();", CodeBlockType.Operation, 4), - ("if", CodeBlockType.Operation, 4), -("(num2 == 0)", CodeBlockType.Operation, 4), - ("{", CodeBlockType.Block, 5), - ("throw", CodeBlockType.Operation, 5), -("ProjectData.CreateProjectError(-2146828268);", CodeBlockType.Operation, 5), - ("}", CodeBlockType.Block, 5), - ("goto IL_0315;", CodeBlockType.Goto, 4), - ("IL_0117:", CodeBlockType.Label, 4), - ("num = 15;", CodeBlockType.Operation, 4), - ("MyProject.Forms.Druck.Show();", CodeBlockType.Operation, 4), - ("goto end_IL_0000_2;", CodeBlockType.Goto, 4), - ("IL_0015:", CodeBlockType.Label, 4), - ("ProjectData.ClearProjectError();", CodeBlockType.Operation, 4), - ("num3 = 2;", CodeBlockType.Operation, 4), - ("goto IL_001d;", CodeBlockType.Goto, 4), - ("IL_001d:", CodeBlockType.Label, 4), - ("num = 3;", CodeBlockType.Operation, 4), - ("text =", CodeBlockType.Operation, 4), - ("\"Datum \"", CodeBlockType.String, 4), - ("+ Strings.Mid(DateAndTime.DateString, 4, 2) +", CodeBlockType.Operation, 4), - ("\".\"", CodeBlockType.String, 4), - ("+ DateAndTime.DateString.Left( 2) +", CodeBlockType.Operation, 4), - ("\".\"", CodeBlockType.String, 4), - ("+ Strings.Mid(DateAndTime.DateString, 7, 4);", CodeBlockType.Operation, 4), - ("goto IL_0073;", CodeBlockType.Goto, 4), - ("IL_0073:", CodeBlockType.Label, 4), - ("num = 4;", CodeBlockType.Operation, 4), - ("switch", CodeBlockType.Operation, 4), -("(index)", CodeBlockType.Operation, 4), - ("{", CodeBlockType.Block, 5), - ("case 1:", CodeBlockType.Label, 5), - ("break;", CodeBlockType.Operation, 5), - ("case 2:", CodeBlockType.Label, 5), - ("goto IL_00f9;", CodeBlockType.Goto, 5), - ("case 3:", CodeBlockType.Label, 5), - ("goto IL_0134;", CodeBlockType.Goto, 5), - ("default:", CodeBlockType.Label, 5), - ("goto end_IL_0000_2;", CodeBlockType.Goto, 5), - ("}", CodeBlockType.Block, 5), - ("goto IL_008f;", CodeBlockType.Goto, 4), - ("IL_0134:", CodeBlockType.Label, 4), - ("num = 19;", CodeBlockType.Operation, 4), - ("MyProject.Forms.Hinter.CommonDialog1Save.Filter =", CodeBlockType.Operation, 4), - ("\"Text (*.txt)|*.txt|Formartierter Text (*.RTF)|*.RTF\"", CodeBlockType.String, 4), - (";", CodeBlockType.Operation, 4), - ("goto IL_0151;", CodeBlockType.Goto, 4), - ("IL_0151:", CodeBlockType.Label, 4), - ("num = 20;", CodeBlockType.Operation, 4), - ("MyProject.Forms.Hinter.CommonDialog1Save.InitialDirectory = COND.GenPlu +", CodeBlockType.Operation, 4), - ("\"list\\\\\"", CodeBlockType.String, 4), - (";", CodeBlockType.Operation, 4), - ("goto IL_0178;", CodeBlockType.Goto, 4), - ("IL_0178:", CodeBlockType.Label, 4), - ("num = 21;", CodeBlockType.Operation, 4), - ("MyProject.Forms.Hinter.CommonDialog1Save.FilterIndex = 2;", CodeBlockType.Operation, 4), - ("goto IL_0191;", CodeBlockType.Goto, 4), - ("IL_0191:", CodeBlockType.Label, 4), - ("num = 22;", CodeBlockType.Operation, 4), - ("MyProject.Forms.Hinter.CommonDialog1Save.ShowDialog();", CodeBlockType.Operation, 4), - ("goto IL_01aa;", CodeBlockType.Goto, 4), - ("IL_01aa:", CodeBlockType.Label, 4), - ("num = 23;", CodeBlockType.Operation, 4), - ("if", CodeBlockType.Operation, 4), -("(Operators.CompareString(MyProject.Forms.Hinter.CommonDialog1Save.FileName,", CodeBlockType.Operation, 4), - ("\"\"", CodeBlockType.String, 4), - (", TextCompare:", CodeBlockType.Label, 4), - ("false) == 0)", CodeBlockType.Operation, 4), - ("{", CodeBlockType.Block, 5), - ("goto end_IL_0000_2;", CodeBlockType.Goto, 5), - ("}", CodeBlockType.Block, 5), - ("goto IL_01d0;", CodeBlockType.Goto, 4), - ("IL_01d0:", CodeBlockType.Label, 4), - ("num = 24;", CodeBlockType.Operation, 4), - ("switch", CodeBlockType.Operation, 4), -("(MyProject.Forms.Hinter.CommonDialog1Save.FilterIndex)", CodeBlockType.Operation, 4), - ("{", CodeBlockType.Block, 5), - ("case 1:", CodeBlockType.Label, 5), - ("break;", CodeBlockType.Operation, 5), - ("case 2:", CodeBlockType.Label, 5), - ("goto IL_021f;", CodeBlockType.Goto, 5), - ("default:", CodeBlockType.Label, 5), - ("goto end_IL_0000_2;", CodeBlockType.Goto, 5), - ("}", CodeBlockType.Block, 5), - ("goto IL_01f9;", CodeBlockType.Goto, 4), - ("IL_021f:", CodeBlockType.Label, 4), - ("num = 31;", CodeBlockType.Operation, 4), - ("RichTextBox1.SaveFile(MyProject.Forms.Hinter.CommonDialog1Save.FileName, RichTextBoxStreamType.RichText);", CodeBlockType.Operation, 4), - ("goto end_IL_0000_2;", CodeBlockType.Goto, 4), - ("IL_01f9:", CodeBlockType.Label, 4), - ("num = 28;", CodeBlockType.Operation, 4), - ("RichTextBox1.SaveFile(MyProject.Forms.Hinter.CommonDialog1Save.FileName, RichTextBoxStreamType.PlainText);", CodeBlockType.Operation, 4), - ("goto end_IL_0000_2;", CodeBlockType.Goto, 4), - ("IL_00f9:", CodeBlockType.Label, 4), - ("num = 13;", CodeBlockType.Operation, 4), - ("RichTextBox1.Text =", CodeBlockType.Operation, 4), - ("\"\"", CodeBlockType.String, 4), - (";", CodeBlockType.Operation, 4), - ("goto IL_010d;", CodeBlockType.Goto, 4), - ("IL_010d:", CodeBlockType.Label, 4), - ("num = 14;", CodeBlockType.Operation, 4), - ("Close();", CodeBlockType.Operation, 4), - ("goto IL_0117;", CodeBlockType.Goto, 4), - ("end_IL_0000:", CodeBlockType.Label, 4), - ("break;", CodeBlockType.Operation, 4), - ("}", CodeBlockType.Block, 4), - ("}", CodeBlockType.Block, 3), - ("catch", CodeBlockType.Operation, 2), - ("(Exception obj)", CodeBlockType.Operation, 2), - ("when (obj is not null && num3 != 0 && num2 == 0)", CodeBlockType.Operation, 2), - ("{", CodeBlockType.Block, 3), - ("ProjectData.SetProjectError(obj);", CodeBlockType.Operation, 3), - ("try0000_dispatch = 1043;", CodeBlockType.Operation, 3), - ("continue;", CodeBlockType.Operation, 3), - ("}", CodeBlockType.Block, 3), - ("throw", CodeBlockType.Operation, 2), -("ProjectData.CreateProjectError(-2146828237);", CodeBlockType.Operation, 2), - ("continue;", CodeBlockType.Operation, 2), - ("end_IL_0000_2:", CodeBlockType.Label, 2), - ("break;", CodeBlockType.Operation, 2), - ("}", CodeBlockType.Block, 2), - ("if", CodeBlockType.Operation, 1), -("(num2 != 0)", CodeBlockType.Operation, 1), - ("{", CodeBlockType.Block, 2), - ("ProjectData.ClearProjectError();", CodeBlockType.Operation, 2), - ("}", CodeBlockType.Block, 2), - ("}", CodeBlockType.Block, 1), - }; - public static object TestDataList1() => ReadObject(Resources.Test1DataList)!; - - public static object TestDataList2_org() => new List() { - ("private void Button2_Click(object sender, EventArgs e)", CodeBlockType.Operation, 0), - ("{", CodeBlockType.Block, 1), - ("", CodeBlockType.Operation, 1), - ("//Discarded unreachable code: IL_0085", CodeBlockType.LComment, 1), - ("int try0000_dispatch = -1;", CodeBlockType.Operation, 1), - ("int num3 = default(int);", CodeBlockType.Operation, 1), - ("int num2 = default(int);", CodeBlockType.Operation, 1), - ("int num = default(int);", CodeBlockType.Operation, 1), - ("byte b = default(byte);", CodeBlockType.Operation, 1), - ("while", CodeBlockType.Operation, 1), -("(true)", CodeBlockType.Operation, 1), - ("{", CodeBlockType.Block, 2), - ("try", CodeBlockType.Operation, 2), - ("{", CodeBlockType.Block, 3), - ("", CodeBlockType.Operation, 3), - ("/*Note: ILSpy has introduced the following switch to emulate a goto from catch-block to try-block*/", CodeBlockType.Comment, 3), - (";", CodeBlockType.Operation, 3), - ("switch", CodeBlockType.Operation, 3), -("(try0000_dispatch)", CodeBlockType.Operation, 3), - ("{", CodeBlockType.Block, 4), - ("default:", CodeBlockType.Label, 4), - ("ProjectData.ClearProjectError();", CodeBlockType.Operation, 4), - ("num3 = 1;", CodeBlockType.Operation, 4), - ("goto IL_0007;", CodeBlockType.Goto, 4), - ("case 196:", CodeBlockType.Label, 4), - ("{", CodeBlockType.Block, 5), - ("num2 = num;", CodeBlockType.Operation, 5), - ("switch", CodeBlockType.Operation, 5), -("(num3)", CodeBlockType.Operation, 5), - ("{", CodeBlockType.Block, 6), - ("case 1:", CodeBlockType.Label, 6), - ("break;", CodeBlockType.Operation, 6), - ("default:", CodeBlockType.Label, 6), - ("goto end_IL_0000;", CodeBlockType.Goto, 6), - ("}", CodeBlockType.Block, 6), - ("int num4 = num2 + 1;", CodeBlockType.Operation, 5), - ("num2 = 0;", CodeBlockType.Operation, 5), - ("switch", CodeBlockType.Operation, 5), -("(num4)", CodeBlockType.Operation, 5), - ("{", CodeBlockType.Block, 6), - ("case 1:", CodeBlockType.Label, 6), - ("break;", CodeBlockType.Operation, 6), - ("case 2:", CodeBlockType.Label, 6), - ("goto IL_0007;", CodeBlockType.Goto, 6), - ("case 3:", CodeBlockType.Label, 6), - ("goto IL_0024;", CodeBlockType.Goto, 6), - ("case 6:", CodeBlockType.Label, 6), - ("goto IL_002b;", CodeBlockType.Goto, 6), - ("case 7:", CodeBlockType.Label, 6), - ("goto IL_0033;", CodeBlockType.Goto, 6), - ("case 4:", CodeBlockType.Label, 6), - ("case 5:", CodeBlockType.Label, 6), - ("case 8:", CodeBlockType.Label, 6), - ("goto IL_0048;", CodeBlockType.Goto, 6), - ("case 9:", CodeBlockType.Label, 6), - ("goto IL_0054;", CodeBlockType.Goto, 6), - ("case 10:", CodeBlockType.Label, 6), - ("goto end_IL_0000_2;", CodeBlockType.Goto, 6), - ("default:", CodeBlockType.Label, 6), - ("goto end_IL_0000;", CodeBlockType.Goto, 6), - ("case 11:", CodeBlockType.Label, 6), - ("goto end_IL_0000_3;", CodeBlockType.Goto, 6), - ("}", CodeBlockType.Block, 6), - ("goto default;", CodeBlockType.Goto, 5), - ("}", CodeBlockType.Block, 5), - ("IL_0033:", CodeBlockType.Label, 4), - ("num = 7;", CodeBlockType.Operation, 4), - ("FileSystem.Input(99, ref COND.Aus[b]);", CodeBlockType.Operation, 4), - ("goto IL_0048;", CodeBlockType.Goto, 4), - ("IL_0007:", CodeBlockType.Label, 4), - ("num = 2;", CodeBlockType.Operation, 4), - ("FileSystem.FileOpen(99, COND.GenPlu +", CodeBlockType.Operation, 4), - ("\"\\\\Init\\\\Druck_ini.dat\"", CodeBlockType.String, 4), - (", OpenMode.Input);", CodeBlockType.Operation, 4), - ("goto IL_0024;", CodeBlockType.Goto, 4), - ("IL_0024:", CodeBlockType.Label, 4), - ("num = 3;", CodeBlockType.Operation, 4), - ("b = 0;", CodeBlockType.Operation, 4), - ("goto IL_0048;", CodeBlockType.Goto, 4), - ("IL_0048:", CodeBlockType.Label, 4), - ("num = 5;", CodeBlockType.Operation, 4), - ("if", CodeBlockType.Operation, 4), -("(!FileSystem.EOF(99))", CodeBlockType.Operation, 4), - ("{", CodeBlockType.Block, 5), - ("goto IL_002b;", CodeBlockType.Goto, 5), - ("}", CodeBlockType.Block, 5), - ("goto IL_0054;", CodeBlockType.Goto, 4), - ("IL_0054:", CodeBlockType.Label, 4), - ("num = 9;", CodeBlockType.Operation, 4), - ("FileSystem.FileClose(99);", CodeBlockType.Operation, 4), - ("break;", CodeBlockType.Operation, 4), - ("IL_002b:", CodeBlockType.Label, 4), - ("num = 6;", CodeBlockType.Operation, 4), - ("b = checked((byte)(unchecked(b) + 1));", CodeBlockType.Operation, 4), - ("goto IL_0033;", CodeBlockType.Goto, 4), - ("end_IL_0000_2:", CodeBlockType.Label, 4), - ("break;", CodeBlockType.Operation, 4), - ("}", CodeBlockType.Block, 4), - ("num = 10;", CodeBlockType.Operation, 3), - ("Process.Start(COND.GenPlu +", CodeBlockType.Operation, 3), - ("\"\\\\Hilfe\\\\TeilB.PDF\"", CodeBlockType.String, 3), - (");", CodeBlockType.Operation, 3), - ("break;", CodeBlockType.Operation, 3), - ("end_IL_0000:", CodeBlockType.Label, 3), - (";", CodeBlockType.Operation, 3), - ("}", CodeBlockType.Block, 3), - ("catch", CodeBlockType.Operation, 2), - ("(Exception obj)", CodeBlockType.Operation, 2), - ("when (obj is not null && num3 != 0 && num2 == 0)", CodeBlockType.Operation, 2), - ("{", CodeBlockType.Block, 3), - ("ProjectData.SetProjectError(obj);", CodeBlockType.Operation, 3), - ("try0000_dispatch = 196;", CodeBlockType.Operation, 3), - ("continue;", CodeBlockType.Operation, 3), - ("}", CodeBlockType.Block, 3), - ("throw", CodeBlockType.Operation, 2), -("ProjectData.CreateProjectError(-2146828237);", CodeBlockType.Operation, 2), - ("continue;", CodeBlockType.Operation, 2), - ("end_IL_0000_3:", CodeBlockType.Label, 2), - ("break;", CodeBlockType.Operation, 2), - ("}", CodeBlockType.Block, 2), - ("if", CodeBlockType.Operation, 1), -("(num2 != 0)", CodeBlockType.Operation, 1), - ("{", CodeBlockType.Block, 2), - ("ProjectData.ClearProjectError();", CodeBlockType.Operation, 2), - ("}", CodeBlockType.Block, 2), - ("}", CodeBlockType.Block, 1), - }; - - public static object TestDataList2() => ReadObject(Resources.Test2DataList)!; - - public static object TestDataList3() => new List(){ - ("public void Test3()", CodeBlockType.Operation, 0), - ("{", CodeBlockType.Block, 1), - ("Modul1.UbgT = (Text2[0].Text).Trim();", CodeBlockType.Operation, 1), - ("goto IL_105c;", CodeBlockType.Goto, 1), - ("IL_105c:", CodeBlockType.Label, 1), - ("num = 209;", CodeBlockType.Operation, 1), - ("if", CodeBlockType.Operation, 1), -("(Modul1.UbgT ==", CodeBlockType.Operation, 1), - ("\"\"", CodeBlockType.String, 1), - (")", CodeBlockType.Operation, 1), - ("{", CodeBlockType.Block, 2), - ("goto IL_107c;", CodeBlockType.Goto, 2), - ("}", CodeBlockType.Block, 2), - ("else", CodeBlockType.Operation, 1), - ("{", CodeBlockType.Block, 2), - ("test =", CodeBlockType.Operation, 2), - ("@\"\"\"Test\"\"\"", CodeBlockType.String, 2), - (";", CodeBlockType.Operation, 2), - ("test2 =", CodeBlockType.Operation, 2), - ("$\"\\\"{test}\\\"\"", CodeBlockType.String, 2), - (";", CodeBlockType.Operation, 2), - ("test3 =", CodeBlockType.Operation, 2), - ("$\"{{test}}\"", CodeBlockType.String, 2), - (";", CodeBlockType.Operation, 2), - ("goto IL_108d;", CodeBlockType.Goto, 2), - ("}", CodeBlockType.Block, 2), - ("", CodeBlockType.Operation, 1), - ("//=================", CodeBlockType.LComment, 1), - ("IL_107c:", CodeBlockType.Label, 1), - ("num = 210;", CodeBlockType.Operation, 1), - ("Modul1.UbgT =", CodeBlockType.Operation, 1), - ("\"\\\"\"", CodeBlockType.String, 1), - (";", CodeBlockType.Operation, 1), - ("goto IL_108d;", CodeBlockType.Goto, 1), - ("IL_108d:", CodeBlockType.Label, 1), - ("num = 212;", CodeBlockType.Operation, 1), - ("DataModul.DB_PersonTable.Seek(", CodeBlockType.Operation, 1), - ("\">\"", CodeBlockType.String, 1), - (", Modul1.UbgT, Modul1.PersInArb);", CodeBlockType.Operation, 1), - ("}", CodeBlockType.Block, 1),}; - public static object TestDataList4() => new List(){ - ("public void Test4()", CodeBlockType.Operation, 0), -("{", CodeBlockType.Block, 1), -("goto IL_105c;", CodeBlockType.Goto, 1), -("IL_105c:", CodeBlockType.Label, 1), -("num = 209;", CodeBlockType.Operation, 1), -("Test(test:", CodeBlockType.Label, 1), -("", CodeBlockType.Operation, 1), -("\"Some Test\"", CodeBlockType.String, 1), -(");", CodeBlockType.Operation, 1), -("goto IL_107c;", CodeBlockType.Goto, 1), -("", CodeBlockType.Operation, 1), -("//=================", CodeBlockType.LComment, 1), -("IL_107c:", CodeBlockType.Label, 1), -("num = 210;", CodeBlockType.Operation, 1), -("Modul1.UbgT =", CodeBlockType.Operation, 1), -("\"\\\"\"", CodeBlockType.String, 1), -(";", CodeBlockType.Operation, 1), -("goto IL_108d;", CodeBlockType.Goto, 1), -("IL_108d:", CodeBlockType.Label, 1), -("num = 212;", CodeBlockType.Operation, 1), -("}", CodeBlockType.Block, 1), - }; - public static object TestDataList5() => new List(){ - ("public void Test5()", CodeBlockType.Operation, 0), - ("{", CodeBlockType.Block, 1), - ("test =", CodeBlockType.Operation, 1), - ("\"Some unended string ... ;", CodeBlockType.String, 1), - ("test2 =", CodeBlockType.Operation, 1), - ("$\"Some {(test.Length()>5?@\"\\\"\":\"7\")} nested string ...\"", CodeBlockType.String, 1), - (";", CodeBlockType.Operation, 1), - ("test3 =", CodeBlockType.Operation, 1), - ("\"Some broken\"", CodeBlockType.String, 1), - ("", CodeBlockType.Operation, 1), - ("/* some comment */", CodeBlockType.Comment, 1), - ("+", CodeBlockType.Operation, 1), - ("\" string ...\"", CodeBlockType.String, 1), - (";", CodeBlockType.Operation, 1), - ("test3 =", CodeBlockType.Operation, 1), - ("\"Another broken\"", CodeBlockType.String, 1), - ("", CodeBlockType.Operation, 1), - ("// some other comment", CodeBlockType.LComment, 1), - ("+", CodeBlockType.Operation, 1), - ("\" string ...\"", CodeBlockType.String, 1), - (";", CodeBlockType.Operation, 1), - ("}", CodeBlockType.Block, 1), - }; - public static object TestDataList6() => new List() { - ("public void Test6()", CodeBlockType.Operation, 0), - ("{", CodeBlockType.Block, 1), - ("if", CodeBlockType.Operation, 1), - ("(true)", CodeBlockType.Operation, 1), - ("{", CodeBlockType.Block, 2), - ("goto IL_105c;", CodeBlockType.Goto, 2), - ("}", CodeBlockType.Block, 2), - ("else", CodeBlockType.Operation, 1), - ("goto IL_107c;", CodeBlockType.Goto, 1), - ("IL_105c:", CodeBlockType.Label, 1), - ("goto IL_107c;", CodeBlockType.Goto, 1), - ("IL_107c:", CodeBlockType.Label, 1), - ("return;", CodeBlockType.Operation, 1), - ("}", CodeBlockType.Block, 1), - }; - public static object TestDataList7() => new List() { - ("public void Test7()", CodeBlockType.Operation, 0), - ("{", CodeBlockType.Block, 1), - ("if", CodeBlockType.Operation, 1), - ("(true)", CodeBlockType.Operation, 1), - ("goto IL_105c;", CodeBlockType.Goto, 1), - ("else", CodeBlockType.Operation, 1), - ("goto IL_107c;", CodeBlockType.Goto, 1), - ("IL_105c:", CodeBlockType.Label, 1), - ("num = 209;", CodeBlockType.Operation, 1), - ("i++;", CodeBlockType.Operation, 1), - ("goto IL_108c;", CodeBlockType.Goto, 1), - ("IL_107c:", CodeBlockType.Label, 1), - ("num = 210;", CodeBlockType.Operation, 1), - ("i--;", CodeBlockType.Operation, 1), - ("goto IL_108c;", CodeBlockType.Goto, 1), - ("IL_108c:", CodeBlockType.Label, 1), - ("num = 212;", CodeBlockType.Operation, 1), - ("return;", CodeBlockType.Operation, 1), - ("}", CodeBlockType.Block, 1), - }; - public static object TestDataList8() => ReadObject(Resources.Test8DataList)!; - public static object TestDataList9() => ReadObject(Resources.Test9DataList)!; - public static object TestDataList10() => ReadObject(Resources.Test10DataList)!; - public static object TestDataList11() => ReadObject(Resources.Test11DataList)!; - public static object TestDataList12() => ReadObject(Resources.Test12DataList)!; - public static object TestDataList13() => ReadObject(Resources.Test13DataList)!; - #endregion -} diff --git a/Transpiler_pp/TranspilerLib.CSharp.Tests/TranspilerLib.CSharp.Tests.csproj b/Transpiler_pp/TranspilerLib.CSharp.Tests/TranspilerLib.CSharp.Tests.csproj deleted file mode 100644 index 2b930376a..000000000 --- a/Transpiler_pp/TranspilerLib.CSharp.Tests/TranspilerLib.CSharp.Tests.csproj +++ /dev/null @@ -1,41 +0,0 @@ - - - - net8.0 - enable - false - true - TranspilerLib.CSharp - - - - - $(TargetFrameworks);net9.0 - - - $(TargetFrameworks);net10.0 - - - - - - - - all - runtime; build; native; contentfiles; analyzers; buildtransitive - - - - - - - - - PreserveNewest - - - - - - - diff --git a/Transpiler_pp/TranspilerLib.CSharp/Data/CSReservedWords.cs b/Transpiler_pp/TranspilerLib.CSharp/Data/CSReservedWords.cs deleted file mode 100644 index d4868341f..000000000 --- a/Transpiler_pp/TranspilerLib.CSharp/Data/CSReservedWords.cs +++ /dev/null @@ -1,36 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using System.Text; -using System.Threading.Tasks; - -namespace TranspilerLib.CSharp.Data; - -public static class CSReservedWords -{ - /// - /// Reserved C# keywords used by the tokenizer to distinguish identifiers from language constructs. - /// - /// - /// This set is consumed by to drive lexical decisions while scanning control-flow - /// and other language elements. Extend with care to avoid misclassification of identifiers. - /// - public static readonly string[] ReservedWords = Enum.GetNames(typeof(ECSharpResWords1)); - - public static readonly string[] ReservedWords2 = [ - "case", "default", "goto", "break", "continue", - "new", "var", "const", "static", "public", - "private", "protected", "internal", "class", "struct", - "interface", "enum", "delegate", "event", "namespace", - "abstract", "sealed", "override", "virtual", "extern", - "readonly", "volatile", "unsafe", "ref", "out", - "in", "is", "as", "sizeof", "typeof", - "checked", "unchecked", "fixed", "operator", "implicit", - "explicit", "this", "base", "params", "true", - "false", "null", "void", "object", "string", - "bool", "byte", "sbyte", "short", "ushort", - "int", "uint", "long", "ulong", "float", - "double", "decimal" - ]; - -} diff --git a/Transpiler_pp/TranspilerLib.CSharp/Data/ECSharpResWords1.cs b/Transpiler_pp/TranspilerLib.CSharp/Data/ECSharpResWords1.cs deleted file mode 100644 index 5439175ad..000000000 --- a/Transpiler_pp/TranspilerLib.CSharp/Data/ECSharpResWords1.cs +++ /dev/null @@ -1,27 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using System.Text; -using System.Threading.Tasks; - -namespace TranspilerLib.CSharp.Data; - -public enum ECSharpResWords1 -{ - @catch, - @do, - @else, - @if, - @try, - @while, - @switch, - @for, - @foreach, - @return, - @throw, - @using, - @lock, - get, - set, - @break -} diff --git a/Transpiler_pp/TranspilerLib.CSharp/Interfaces/Code/ICSCode.cs b/Transpiler_pp/TranspilerLib.CSharp/Interfaces/Code/ICSCode.cs deleted file mode 100644 index 5ffec364f..000000000 --- a/Transpiler_pp/TranspilerLib.CSharp/Interfaces/Code/ICSCode.cs +++ /dev/null @@ -1,39 +0,0 @@ -// *********************************************************************** -// Assembly : VBUnObfusicator -// Author : Mir -// Created : 09-26-2023 -// -// Last Modified By : Mir -// Last Modified On : 09-29-2023 -// *********************************************************************** -// -// Copyright © JC-Soft 2023 -// -// -// *********************************************************************** -namespace TranspilerLib.Interfaces.Code; - -/// -/// Interface ICSCode -/// -public partial interface ICSCode : ICodeBase -{ - - /// - /// Gets or sets the original code. - /// - /// The original code. - bool DoWhile { get; set; } - - /// - /// Removes the single source labels1. - /// - /// The c structure. - void RemoveSingleSourceLabels1(ICodeBlock cStruct); - /// - /// Reorders the labels. - /// - /// The c structure. - void ReorderLabels(ICodeBlock cStruct); - -} diff --git a/Transpiler_pp/TranspilerLib.CSharp/Models/Scanner/CSCode.cs b/Transpiler_pp/TranspilerLib.CSharp/Models/Scanner/CSCode.cs deleted file mode 100644 index 9946ecfee..000000000 --- a/Transpiler_pp/TranspilerLib.CSharp/Models/Scanner/CSCode.cs +++ /dev/null @@ -1,240 +0,0 @@ -using BaseLib.Helper; -using System; -using System.Collections.Generic; -using System.Linq; -using TranspilerLib.CSharp.Data; -using TranspilerLib.Data; -using TranspilerLib.Interfaces.Code; -using static TranspilerLib.Interfaces.Code.ICodeBase; - -namespace TranspilerLib.Models.Scanner; - -/// -/// Provides a concrete implementation for tokenizing, parsing, and optimizing C# source code. -/// -/// -/// The class orchestrates three main collaborators: -/// -/// to scan the raw and produce tokens. -/// to build an tree from the token stream. -/// to perform structural optimizations on the produced block tree. -/// -/// It also exposes utilities to reorder labels and to simplify label usage, which can improve readability of the re-emitted code. -/// -public partial class CSCode : CodeBase, ICSCode -{ - - /// - /// Reserved C# keywords used by the tokenizer to distinguish identifiers from language constructs. - /// - /// - /// This set is consumed by to drive lexical decisions while scanning control-flow - /// and other language elements. Extend with care to avoid misclassification of identifiers. - /// - public static readonly string[] ReservedWords = CSReservedWords.ReservedWords; - - private static readonly string[] reservedWords2 = CSReservedWords.ReservedWords2; - - /// - /// Characters that signal the end (or state transition) of a string/interpolated string during tokenization. - /// - /// - /// The handler uses these characters to split string literals and handle escapes/interpolation correctly: a quote ('"'), - /// a backslash ('\\'), an opening brace ('{') for interpolated strings, and carriage return ('\r'). - /// - public static readonly char[] stringEndChars = ['"', '\\', '{', '\r']; - - /// - /// Enables or disables do..while loop reconstruction during optimization. - /// - /// - /// true to allow the optimizer to synthesize do..while constructs where applicable; otherwise, false. - /// - /// - /// Internally mapped to via an inverted flag (_noWhile). Setting this property to - /// true clears the internal "no while" restriction; setting it to false disables such rewrites. - /// - public bool DoWhile { get => !codeOptimizer._noWhile; set => codeOptimizer._noWhile = !value; } - - private ITokenHandler tokenHandler; - private ICodeBuilder codeBuilder; - private ICodeOptimizer codeOptimizer; - // public string Code { get; set; } - - /// - /// Initializes a new instance of the class with default tokenizer, builder, and optimizer. - /// - /// - /// The constructor wires with and , - /// uses a to construct block trees, and applies a default CodeOptimizer for structural clean-up. - /// - public CSCode() : base() { - tokenHandler = new CSTokenHandler() { - stringEndChars = stringEndChars, - reservedWords = ReservedWords }; - codeBuilder = new CSCodeBuilder() { }; - codeOptimizer = new CodeOptimizer(); - } - private static string GetDebug(TokenizeData data, string code) => $"{code.Substring(Math.Max(0, data.Pos - 20), data.Pos - Math.Max(0, data.Pos - 20))}" + - $">{code[data.Pos]}<" + - $"{code.Substring(Math.Min(data.Pos + 1, code.Length - 1), Math.Min(40, code.Length - data.Pos - 1))}"; - - /// - /// Produces a complete token stream for the current . - /// - /// - /// An ordered sequence of items representing the lexed input. - /// - /// - /// This method iteratively invokes the configured states until the end of the input is reached. - /// Internally, tokens collected on a stack are reversed to preserve their semantic order before being yielded. - /// - public override IEnumerable Tokenize() - { - TokenizeData data = new(); - Stack stack = new(); - while ( - data.Pos < OriginalCode.Length - && tokenHandler.TryGetValue(data.State, out var Handler)) - { - string debug = GetDebug(data, OriginalCode); - - Handler(t => stack.Push(t), OriginalCode, data); - stack.Reverse(); - while (stack.Count > 0) - yield return stack.Pop(); - data.Pos++; - } - } - - /// - /// Tokenizes the input and optionally streams each token to a callback. - /// - /// Optional callback to receive tokens as they are produced; may be null to skip streaming. - /// - /// Compared to , this variant is designed for on-the-fly processing. It advances through the input - /// by repeatedly invoking the active state and calling the provided delegate for each emitted token. - /// - public override void Tokenize(TokenDelegate? token) - { - TokenizeData data = new(); - while (data.Pos < OriginalCode.Length && tokenHandler.TryGetValue(data.State, out var Handler)) - { - //Debug: - string debug = GetDebug(data, OriginalCode); - Handler(token, OriginalCode, data); - data.Pos++; - } - } - - /// - /// Parses either a provided token sequence or the tokens produced from the current . - /// - /// Optional externally supplied tokens; when null, the method tokenizes the current input first. - /// - /// The root representing the parsed structure (e.g., declarations and nested blocks). - /// - /// - /// The method constructs a fresh context, feeds all tokens into the , - /// and finally resolves goto destinations to their corresponding label blocks via weak references. - /// - public override ICodeBlock Parse(IEnumerable? values = null) - { - string BlockCode = string.Empty; - ICodeBlock codeBlock = new CodeBlock() { Name = "Declaration",Type=CodeBlockType.MainBlock, Code = "", Parent = null }; - var data = codeBuilder.NewData(codeBlock); - - if (values == null) - Tokenize((tokenData) => codeBuilder.OnToken(tokenData, data)); - else - foreach (var item in values) - { - codeBuilder.OnToken(item, data); - } - - foreach (var item in data.gotos) - { - if (data.labels.TryGetValue(item.Code.Remove(0, 5).Replace(";", ":"), out var label)) - { - item.Destination = new(label); - label.Sources.Add(new(item)); - } - } - - return codeBlock; - } - - /// - /// Reorders label blocks in a subtree to restore natural control-flow order. - /// - /// The root whose immediate and nested labels will be considered for reordering. - /// - /// Only labels that are not case or default labels are considered. Labels are sorted by their textual code, - /// with special handling for MSIL-style prefixes (e.g., IL_) and "Start" markers to maintain numeric ordering. - /// When necessary, contiguous chunks are moved via . - /// - public void ReorderLabels(ICodeBlock codeBlock) - { - List labels = new(); - foreach (var item in codeBlock.SubBlocks) - if (item.Type is CodeBlockType.Label - && !item.Code.StartsWith("case ") - && !item.Code.StartsWith("default:")) - { - labels.Add(item); - } - if (labels.Count > 1) - { - labels.Sort((a, b) => Code2(a.Code).CompareTo(Code2(b.Code))); - // System.Diagnostics.Debug.WriteLine($"List: ({string.Join(", ", labels.Cast().Select((cb) => cb.Index))})"); - for (var i = labels.Count - 1; i > 0; i--) - if (labels[i - 1].Index > labels[i].Index) - { - var l = CodeOptimizer.CalcChunksize(labels[i - 1]); - // System.Diagnostics.Debug.WriteLine($"Move[{i - 1}] ({labels[i - 1].Index},{labels[i].Index},{l})"); - _ = codeBlock.MoveSubBlocks(labels[i - 1].Index, labels[i], l); - // System.Diagnostics.Debug.WriteLine($"List: ({string.Join(", ", labels.Cast().Select((cb) => cb.Index))})"); - } - labels.Clear(); - } - foreach (var item in codeBlock.SubBlocks) - if (item.SubBlocks.Count > 0) - ReorderLabels(item); - - static string Code2(string code) - { - return code.StartsWith("IL_") - ? "IL_" + code.Substring(3).PadLeft(7, '0') - : code.Replace("Start", "0000"); - } - } - - /// - /// Simplifies labels that are referenced only from a single source (or at most two), recursively across the tree. - /// - /// The root block to inspect and simplify. - /// - /// This method collects candidate labels that are not switch case/default labels and delegates simplification - /// to the configured . It then recurses into child blocks to continue the clean-up. - /// - public void RemoveSingleSourceLabels1(ICodeBlock codeBlock) - { - List labels = new(); - foreach (var item in codeBlock.SubBlocks) - if (item.Type is CodeBlockType.Label - && item.Sources.Count <= 2 - && item.Sources.Count > 0 - && !item.Code.StartsWith("case ") - && !item.Code.StartsWith("default:")) - labels.Add(item); - - foreach (var item in labels) - { - codeOptimizer.TestItem(item); - } - foreach (var item in codeBlock.SubBlocks.ToArray()) - if (item.SubBlocks.Count > 0) - RemoveSingleSourceLabels1(item); - } - -} diff --git a/Transpiler_pp/TranspilerLib.CSharp/Models/Scanner/CSCodeBuilder.cs b/Transpiler_pp/TranspilerLib.CSharp/Models/Scanner/CSCodeBuilder.cs deleted file mode 100644 index 2a7738db8..000000000 --- a/Transpiler_pp/TranspilerLib.CSharp/Models/Scanner/CSCodeBuilder.cs +++ /dev/null @@ -1,180 +0,0 @@ -using System; -using System.Linq; -using TranspilerLib.Data; -using TranspilerLib.Interfaces.Code; - -namespace TranspilerLib.Models.Scanner; - -/// -/// C#-specific implementation of that interprets tokens emitted by -/// the C# tokenizer and constructs an tree (operations, labels, blocks, comments, strings). -/// -/// -/// The builder groups tokens into semantic blocks and maintains a mutable state () -/// for label resolution and control-flow constructs (e.g., goto). It assigns -/// to created blocks to preserve mapping back to the original source. -/// -public class CSCodeBuilder : CodeBuilder -{ - /// - /// Initializes a new instance of the class and configures the default - /// factory to produce instances with source positions. - /// - public CSCodeBuilder() - { - NewCodeBlock = (name, type, code, parent, pos) => new CodeBlock() { Name = name, Type = type, Code = code, Parent = parent, SourcePos = pos }; - } - - /// - /// Processes a single token and updates the current builder state, creating or extending blocks as necessary. - /// - /// The token to process. - /// The mutable builder state tracking the current block, labels, and gotos. - /// - /// Dispatches to specialized handlers for operations, labels, strings, comments, blocks and goto statements. - /// Updates to assist with context-sensitive decisions for subsequent tokens. - /// - public override void OnToken(TokenData tokenData, ICodeBuilderData data) - { - switch (tokenData.type) - { - default: - break; - case CodeBlockType.Operation when !string.IsNullOrEmpty(tokenData.Code): - BuildInstruction(tokenData, data); - break; - case CodeBlockType.Goto: - BuildGoto(tokenData, data); - break; - case CodeBlockType.Comment: - case CodeBlockType.LComment: - BuildComment(tokenData, data); - break; - case CodeBlockType.String: - BuildString(tokenData, data); - break; - case CodeBlockType.Label: - tokenData = BuildLabel(tokenData, data); - break; - case CodeBlockType.Block when tokenData.Code == "{": - BuildBlockStart(tokenData, data); - break; - case CodeBlockType.Block: - BuildBlockEnd(tokenData, data); - break; - - } - data.cbtLast = tokenData.type; - } - - private void BuildBlockEnd(TokenData tokenData, ICodeBuilderData data) - { - _ = NewCodeBlock($"{tokenData.type}End", tokenData.type, tokenData.Code, data.actualBlock?.Parent, tokenData.Pos); - data.actualBlock = data.actualBlock?.Parent; - } - - private void BuildBlockStart(TokenData tokenData, ICodeBuilderData data) - { - data.actualBlock = NewCodeBlock($"{tokenData.type}Start", tokenData.type, tokenData.Code, (ICodeBlock?)data.actualBlock, tokenData.Pos); - data.xBreak = true; - } - - private TokenData BuildLabel(TokenData tokenData, ICodeBuilderData data) - { - if (!data.actualBlock.Code.StartsWith("case ") && (tokenData.Code.Contains(",") || tokenData.Code.Contains("("))) //not cElse label - { - if (data.actualBlock.Type is not CodeBlockType.Operation || data.actualBlock.Code.EndsWith(";")) - data.actualBlock = NewCodeBlock($"Operation", CodeBlockType.Operation, "", data.actualBlock.Parent, tokenData.Pos); - data.actualBlock.Code += tokenData.Code + " "; - tokenData.type = CodeBlockType.Operation; //!! not cElse label - } - else - { - if (data.actualBlock.Type is CodeBlockType.Operation - && data.actualBlock.Code.StartsWith("case ") - && tokenData.Code.EndsWith(":")) - { - data.actualBlock.Type = CodeBlockType.Label; - if (tokenData.Code.StartsWith("+")) - data.actualBlock.Code += " "; // Padding - data.actualBlock.Code += tokenData.Code; - tokenData.Code = data.actualBlock.Code.Substring(5); - } - else - data.actualBlock = NewCodeBlock($"{tokenData.type}", tokenData.type, tokenData.Code, data.actualBlock.Parent, tokenData.Pos); - if (!data.labels.ContainsKey(tokenData.Code)) - data.labels.Add(tokenData.Code, data.actualBlock); - } - - return tokenData; - } - - private void BuildString(TokenData tokenData, ICodeBuilderData data) - { - if (data.actualBlock.Type is not CodeBlockType.Operation) - data.actualBlock = new CodeBlock() - { - Name = $"Operation", - Type = CodeBlockType.Operation, - Code = "", - Parent = data.actualBlock.Parent, - SourcePos = tokenData.Pos - }; - else if (data.actualBlock.Code.EndsWith("+") - || data.actualBlock.Code.EndsWith("=") - || data.actualBlock.Code.EndsWith(",") - || data.actualBlock.Code.EndsWith("case")) - data.actualBlock.Code += " "; - data.actualBlock.Code += tokenData.Code; - } - - private void BuildComment(TokenData tokenData, ICodeBuilderData data) - { - data.actualBlock = new CodeBlock() - { - Name = $"Comment", - Type = tokenData.type, - Code = tokenData.Code, - Parent = data.actualBlock.Parent, - SourcePos = tokenData.Pos - }; - } - - private void BuildGoto(TokenData tokenData, ICodeBuilderData data) - { - data.actualBlock = new CodeBlock() - { - Name = $"{tokenData.type}", - Type = tokenData.type, - Code = tokenData.Code, - Parent = data.actualBlock?.Parent, - SourcePos = tokenData.Pos - }; - data.gotos.Add((ICodeBlock?)data.actualBlock); - data.xBreak = false; - } - - private void BuildInstruction(TokenData tokenData, ICodeBuilderData data) - { - if (data.actualBlock.Type is not CodeBlockType.Operation and not CodeBlockType.MainBlock - || (data.cbtLast is not CodeBlockType.Operation and not CodeBlockType.String and not CodeBlockType.Unknown) - || (!string.IsNullOrEmpty(data.actualBlock.Code) && data.actualBlock.Code.EndsWith(";"))) - { - data.actualBlock = new CodeBlock() - { - Name = $"{tokenData.type}", - Type = tokenData.type, - Code = tokenData.Code, - Parent = data.actualBlock.Parent ?? data.actualBlock - }; - } - else - data.actualBlock.Code += ((data.actualBlock.Code.EndsWith("\"") && tokenData.Code.StartsWith("+")) - || tokenData.Code.StartsWith("(") - || (CharSets.lettersAndNumbers.Contains(tokenData.Code[0]) - && !string.IsNullOrEmpty(data.actualBlock.Code) - && !data.actualBlock.Code.EndsWith(" ")) ? " " : "") + tokenData.Code; - data.xBreak = tokenData.Code.Contains("break;"); - } - -} diff --git a/Transpiler_pp/TranspilerLib.CSharp/Models/Scanner/CSTokenHandler.cs b/Transpiler_pp/TranspilerLib.CSharp/Models/Scanner/CSTokenHandler.cs deleted file mode 100644 index a0955c354..000000000 --- a/Transpiler_pp/TranspilerLib.CSharp/Models/Scanner/CSTokenHandler.cs +++ /dev/null @@ -1,204 +0,0 @@ -using BaseLib.Helper; -using System; -using System.Collections.Generic; -using System.Linq; -using TranspilerLib.Data; -using TranspilerLib.Interfaces.Code; -using static TranspilerLib.Interfaces.Code.ICodeBase; - -namespace TranspilerLib.Models.Scanner; - -public class CSTokenHandler : TokenHandlerBase, ITokenHandler -{ - - private static readonly Dictionary> _tokenStateHandler = new() - { - { 0, HandleDefault }, - { 1, HandleStrings }, - { 2, HandleLineComments }, - { 3, HandleBlockComments }, - { 4, HandleStrings }, - { 5, HandleStrings }, - { 6, (_, s, d) => d.State = s[d.Pos] == '}' ? 4 : d.State}, - }; - - private static char[] _stringEndChars { get; set; } = []; - private static string[] _reservedWords { get; set; } = []; - public char[] stringEndChars { set => _stringEndChars = value; } - -#if NET7_0_OR_GREATER - public required -#else - public -#endif - string[] reservedWords { set => _reservedWords = value; } - - internal static void HandleBlockComments(TokenDelegate? token, string code, TokenizeData data) - { - if (code[data.Pos] == '*' && GetNxtChar(data.Pos,code) == '/') - { - EmitToken(token, data, CodeBlockType.Comment, code, 2); - data.Pos2 = data.Pos + 2; - data.State = 0; // Block-Comment-end - data.Pos++; - } - } - - internal static void HandleLineComments(TokenDelegate? token, string code, TokenizeData data) - { - if (code[data.Pos] == '\r' || data.Pos == code.Length-1 ) - { - EmitToken(token, data, CodeBlockType.LComment, code); - data.Pos2 = data.Pos + 1; - data.State = 0; - } - } - - internal static void HandleStrings(TokenDelegate? token, string code, TokenizeData data) - { - if (_stringEndChars.Contains(code[data.Pos])) - switch (code[data.Pos]) - { - case '\\' when data.State != 5: // Escape - case '{' when (data.State == 4) && (GetNxtChar(data.Pos, code) == '{'): - case '"' when (data.State == 5) && (GetNxtChar(data.Pos, code) == '"'): - data.Pos++; - break; - case '{' when data.State == 4: // inner statement - data.State = 6; - break; - case '"':// String-End - case '\r' when data.State != 5: - if (code[data.Pos] == '\r') - EmitToken(token, data, CodeBlockType.String, code); - else - EmitToken(token, data, CodeBlockType.String, code, 1); - data.Pos2 = data.Pos + 1; - data.State = 0; - break; - default: - break; - } - - } - - public static void HandleDefault(TokenDelegate? token, string OriginalCode, TokenizeData data) - { - switch (OriginalCode[data.Pos]) - { - case '{': - DefaultBlock(token, OriginalCode, data, xStart: true); - break; - case '}': - DefaultBlock(token, OriginalCode, data, xEnd: true); - break; - case ';': - DefaultInstructionEnd(token, OriginalCode, data); - break; - case ':': - DefaultLabel(token, OriginalCode, data); - break; - case '"': - DefaultString(token, OriginalCode, data); - break; - case '/' when GetNxtChar(data.Pos,OriginalCode) == '/': - DefaultComment(token, OriginalCode, data, 2); - break; - case '/' when GetNxtChar(data.Pos, OriginalCode) == '*': - DefaultComment(token, OriginalCode, data, 3); - break; - case Char c when CharSets.whitespace.Contains(c): - DefaultWhitespace(token, OriginalCode, data); - break; - case Char c when CharSets.letters.Contains(c): - DefaultAlpha(token, OriginalCode, data); - break; - default: - break; - } - } - - private static void DefaultAlpha(TokenDelegate? token, string OriginalCode, TokenizeData data) - { - if (!data.flag && (data.flag = true) - && GetText(data, OriginalCode).Trim().EndsWith(")")) - { - EmitToken(token, data, CodeBlockType.Operation, OriginalCode); - data.Pos2 = data.Pos; - } - } - - private static void DefaultWhitespace(TokenDelegate? token, string OriginalCode, TokenizeData data) - { - if (data.flag && !(data.flag = false) - && GetText(data, OriginalCode).EndswithAny(_reservedWords)) - { - EmitToken(token, data, CodeBlockType.Operation, OriginalCode); - data.Pos2 = data.Pos; - } - } - - private static void DefaultComment(TokenDelegate? token, string OriginalCode, TokenizeData data, int iNewState) - { - EmitToken(token, data, CodeBlockType.Operation, OriginalCode); - data.Pos2 = data.Pos; - data.State = iNewState; - data.Pos++; - } - - private static void DefaultString(TokenDelegate? token, string OriginalCode, TokenizeData data) - { - data.State = 1; // "Normal" String - if (GetPrvChar(data.Pos, OriginalCode) == '$') - { - data.State = 4; // "$"-String - data.Pos--; - } - else if (GetPrvChar(data.Pos, OriginalCode) == '@') - { - data.State = 5; // "@"-String - data.Pos--; - } - EmitToken(token, data, CodeBlockType.Operation, OriginalCode); - data.Pos2 = data.Pos; - if (data.State != 1) - data.Pos++; - } - - private static void DefaultLabel(TokenDelegate? token, string OriginalCode, TokenizeData data) - { - if (!GetText(data, OriginalCode).Trim().Contains('?')) - { - EmitToken(token, data, CodeBlockType.Label, OriginalCode, 1); - data.Pos2 = data.Pos + 1; - } - } - - private static void DefaultInstructionEnd(TokenDelegate? token, string OriginalCode, TokenizeData data) - { - var text = GetText(data, OriginalCode, 1); - EmitToken(token, data, text.Contains("goto ") ? CodeBlockType.Goto : CodeBlockType.Operation, OriginalCode, 1); - data.Pos2 = data.Pos + 1; - } - - private static void DefaultBlock(TokenDelegate? token, string OriginalCode, TokenizeData data, bool xStart = false, bool xEnd = false) - { - if (!string.IsNullOrEmpty(GetText(data, OriginalCode).Trim())) - EmitToken(token, data, CodeBlockType.Operation, OriginalCode); - if (xStart) - data.Stack += 1; - data.Pos2 = data.Pos; - EmitToken(token, data, CodeBlockType.Block, OriginalCode, 1); - data.Pos2 = data.Pos + 1; - if (xEnd) - data.Stack -= 1; - } - - public bool TryGetValue(int state, out Action handler) - { - return _tokenStateHandler.TryGetValue(state, out handler); - } -} - - - diff --git a/Transpiler_pp/TranspilerLib.CSharp/Models/Scanner/CodeOptimizer.cs b/Transpiler_pp/TranspilerLib.CSharp/Models/Scanner/CodeOptimizer.cs deleted file mode 100644 index 5713aac75..000000000 --- a/Transpiler_pp/TranspilerLib.CSharp/Models/Scanner/CodeOptimizer.cs +++ /dev/null @@ -1,308 +0,0 @@ -using BaseLib.Helper; -using System.Collections.Generic; -using System.Linq; -using TranspilerLib.Data; -using TranspilerLib.Interfaces.Code; - -namespace TranspilerLib.Models.Scanner; - - -public class CodeOptimizer : ICodeOptimizer -{ - public bool _noWhile { get; set; } = false; - - private ICodeBlock? RemoveGotoAndLabel(ICodeBlock item, ICodeBlock source) - { - var p = source.Parent; - if (source.Parent == item.Parent - && (item.Index < source.Index + 3) - && (item.Index > source.Index)) - { - var c = item; - while (c.Next is ICodeBlock next2 - && next2.Type is CodeBlockType.LComment or CodeBlockType.Comment) - c = next2; - if (c.Next is ICodeBlock next - && next.Code.StartsWith("num =") - && !next.Code.Contains("(") - && next.Code.EndsWith(";")) - c = next; - if (c.Next is ICodeBlock next3) - c = next3; - _ = source.Parent!.DeleteSubBlocks(source.Index, c.Index - source.Index); - if (FindLeadingLabel(c) is ICodeBlock labelItem - && labelItem.Sources.Count >= 2) - TestItem(labelItem); - } - return p; - } - - private static void MoveItemBlockToSource(ICodeBlock item, ICodeBlock source) - { - if (item.Parent is ICodeBlock actParent - && ((source.Parent != actParent - && !(source.Parent?.Code.StartsWith("switch") ?? true)) - || ((source.Parent == actParent) - && (source.Next != item) - && (source.Next?.Next != item) - && FindLeadingLabel(source) is ICodeBlock lbl - && (lbl.Code != "default:") - && (!lbl.Code.StartsWith("case ") - || !actParent.Code.StartsWith("switch (try")) // VB-specific - ))) - { - // Calculate Chunksize - var l = CalcChunksize(item); - var cDst = source; - while (cDst.Type is CodeBlockType.Goto or CodeBlockType.LComment && cDst.Next is ICodeBlock next) - cDst = next; - _ = actParent.MoveSubBlocks(item.Index, cDst, l); - } - } - - private static void TestMoveToLowerLevel(ICodeBlock source) - { - if (source.Prev is ICodeBlock prev - && prev.Type == CodeBlockType.Operation - && prev.SubBlocks.Count == 0 - && ((prev.Code == "else") - || prev.Code.StartsWith("if "))) - { - _ = new CodeBlock() { Name = "Start", Type = CodeBlockType.Block, Code = "{", Parent = prev }; - source.Parent = prev; - _ = new CodeBlock() { Name = "End", Type = CodeBlockType.Block, Code = "}", Parent = prev }; - } - } - - private void DeleteAndMoveGoto(ICodeBlock cIf, ICodeBlock cIfGoto, ICodeBlock cElse, ICodeBlock cElseGoto) - { - if (cIfGoto.Type == CodeBlockType.Goto - && cIfGoto.Type == CodeBlockType.Goto - && cElse.Next is ICodeBlock next) - { - var flag = false; - if (cElseGoto.Code == cIfGoto.Code) - { - flag = cIf.DeleteSubBlocks(cIfGoto.Index, 1); - flag |= cElse.MoveSubBlocks(cElseGoto.Index, next, 1); - } - else if (cElseGoto.Destination!.TryGetTarget(out var cEGTarg) - && cIfGoto.Destination!.TryGetTarget(out var cIGTarg) - && cEGTarg.Sources.Count > 2 - && cIGTarg.Sources.Count > 2) - flag = cElse.MoveSubBlocks(cElseGoto.Index, next, 1); - // ====================== - if (cElse.SubBlocks.Count == 2 - && cElse.SubBlocks.All((c) => c.Type == CodeBlockType.Block)) - _ = cElse.Parent!.DeleteSubBlocks(cElse.Index, 1); - if (cElseGoto.Destination!.TryGetTarget(out var destLabel) - && flag - && destLabel.Sources.Count is 1 or 2) - TestItem(destLabel); - else if (flag && destLabel != null && destLabel.Sources.Count > 1) - // foreach (var item in _testList) - TestEndGotoUpLevel(next.Parent); - - } - } - - private static ICodeBlock? FindLeadingLabel(ICodeBlock item) - { - ICodeBlock c = item; - while (c.Type is not CodeBlockType.Label && c.Prev is ICodeBlock prev) - c = prev; - return c.Type == CodeBlockType.Label ? c : null; - } - - private static ICodeBlock? FindTailingGoto(IList codeBlocks) - { - if (codeBlocks.Count > 0) - { - ICodeBlock c = codeBlocks[codeBlocks.Count - 1]; - while (c.Type is CodeBlockType.Block or CodeBlockType.Comment or CodeBlockType.LComment && c.Prev is ICodeBlock prev) - c = prev; - return c.Type == CodeBlockType.Goto ? c : null; - } - else - return null!; - } - - private void TestEndGotoUpLevel(ICodeBlock? actParent) - { - if (actParent is ICodeBlock a - && FindTailingGoto(a.SubBlocks) is ICodeBlock ag) - { - if (a.Code == "else" - && a.Prev is ICodeBlock b1 - && (b1.Code.StartsWith("if ") - || b1.Code.StartsWith("if("))) - { - if (b1.SubBlocks.Count > 0 - && FindTailingGoto(b1.SubBlocks) is ICodeBlock bg) - { - DeleteAndMoveGoto(b1, bg, a, ag); - } - } - else if ((a.Code.StartsWith("if ") - || a.Code.StartsWith("if(")) - && a.Next is ICodeBlock b2 - && b2.Code == "else") - { - if (b2.SubBlocks.Count > 0 - && FindTailingGoto(b2.SubBlocks) is ICodeBlock bg) - { - DeleteAndMoveGoto(a, ag, b2, bg); - } - } - else if (IsIfStatement(a) - && a.Next is ICodeBlock b3 - && b3.Type == CodeBlockType.Goto) - { - if (ag.Code == b3.Code) - { - _ = a.DeleteSubBlocks(ag.Index, 1); - } - } - } - - } - - private static bool IsIfStatement(ICodeBlock a) - { - return a.Type == CodeBlockType.Operation - && (a.Code.StartsWith("if ") - || a.Code.StartsWith("if(")); - } - - public void TestItem(ICodeBlock item) - { - RemoveResumeNextCode(item); - if (item.Sources.Count == 1 - && item.Sources[0].TryGetTarget(out var source)) - { - TestMoveToLowerLevel(source); - MoveItemBlockToSource(item, source); - var actParent = RemoveGotoAndLabel(item, source); - TestEndGotoUpLevel(actParent); - } - else if (item.Sources.Count > 1) - TestForEasyWhileLoops(item); - } - - private void TestForEasyWhileLoops(ICodeBlock item) - { - if (_noWhile) return; - foreach (var wrSource in item.Sources) - if (wrSource.TryGetTarget(out var source) - && source.Parent is ICodeBlock ifItem - && IsIfStatement(ifItem) - && (IsFirstInstructon(source) || IsFirstInstructon(ifItem)) - && FindLeadingLabel(ifItem) == item) - { - // Find while-pattern - ReplaceIfVar(ifItem); - ReplaceIfVar(ifItem); - var c = item.Next; - while (c?.Next is ICodeBlock next - && c.Type is CodeBlockType.LComment or CodeBlockType.Comment) - c = next; - if (c?.Next is ICodeBlock next2 - && c.Code.StartsWith("num =")) - c = next2; - // move Instructions to While-Goto - if (item.Parent?.MoveSubBlocks(c!.Index, source, ifItem.Index - c.Index) ?? false) - { - ifItem.Code = ifItem.Code.Replace("if", "while"); - // Delete goto - DeleteItem(source); - if (ifItem.Next is ICodeBlock elseItem - && elseItem.Type == CodeBlockType.Operation - && elseItem.Code == "else" - && elseItem.Next != null) - { - elseItem.MoveSubBlocks(1, elseItem.Next, elseItem.SubBlocks.Count - 2); - DeleteItem(elseItem); - } - TestItem(item); - break; - } - } - - static void ReplaceIfVar(ICodeBlock ifItem) - { - if (ifItem.Prev is ICodeBlock asItem1 - && asItem1.Code.Contains(" = ")) - { - var var1 = asItem1.Code.Substring(0, asItem1.Code.IndexOf(" = ")); - var var2 = asItem1.Code.Substring(asItem1.Code.IndexOf(" = ") + 3).TrimEnd(';'); - if (IsIdentifyer(var1) && asItem1.Code.Contains(var1) && !var2.Contains("+") && !var2.Contains("-")) - { - ifItem.Code = $"{ifItem.Code.Substring(0, 2)}{ifItem.Code.Substring(2).Replace(var1, var2)}"; - DeleteItem(asItem1); - } - } - } - } - - private static bool IsFirstInstructon(ICodeBlock source) - { - bool result = true; - var test = source.Prev; - while (result && test is CodeBlock c && !(c.Type is CodeBlockType.Label)) - { - result = (c.Type is CodeBlockType.LComment or CodeBlockType.Comment or CodeBlockType.Block) - || (c.Type is CodeBlockType.Operation && c.Code.StartsWith("num =")); - test = c.Prev; - } - return result; - } - - private static void DeleteItem(ICodeBlock asItem1) - { - if (asItem1.Parent is ICodeBlock p) - _ = p.DeleteSubBlocks(asItem1.Index, 1); - } - - private static bool IsIdentifyer(string var2) - { - if (var2.Length == 0) return false; - if (!char.IsLetter(var2[0]) && var2[0] != '_') return false; - foreach (char c in var2) - if (!char.IsLetterOrDigit(c) && c != '_' && c != '.') - return false; - return true; - } - - private static void RemoveResumeNextCode(ICodeBlock item) - { - if (item.Sources.Count != 2) return; - foreach (var item2 in item.Sources) - if (item2.TryGetTarget(out var source)) - if (source.Parent?.Code is string s - && s.StartsWith("switch (num") - && s.EndswithAny("(num4)", "(num5)", "(num6)", "(num7)", "(num7)", "(num8)", "(num9)")) - { - var l = 1; - while (source.Parent.SubBlocks[source.Index - l].Type == CodeBlockType.Label) - l++; - _ = source.Parent.DeleteSubBlocks(source.Index - l + 1, l); - break; - } - } - - public static int CalcChunksize(ICodeBlock item) - { - if (item.Parent is ICodeBlock codeBlock) - { - int l = 1; - while (item.Index + l < codeBlock.SubBlocks.Count - 1 - && codeBlock.SubBlocks[item.Index + l].Type is not CodeBlockType.Label and not CodeBlockType.Block) - l++; - return l; - } - else return 0; - } - -} - - diff --git a/Transpiler_pp/TranspilerLib.CSharp/TranspilerLib.CSharp.csproj b/Transpiler_pp/TranspilerLib.CSharp/TranspilerLib.CSharp.csproj deleted file mode 100644 index 65fdf3b55..000000000 --- a/Transpiler_pp/TranspilerLib.CSharp/TranspilerLib.CSharp.csproj +++ /dev/null @@ -1,22 +0,0 @@ - - - - net481;net8.0 - enable - - - - - $(TargetFrameworks);net9.0 - - - $(TargetFrameworks);net10.0 - - - - - all - runtime; build; native; contentfiles; analyzers; buildtransitive - - - diff --git a/Transpiler_pp/TranspilerLib.DriveBASIC.Tests/AssemblyInfo.cs b/Transpiler_pp/TranspilerLib.DriveBASIC.Tests/AssemblyInfo.cs deleted file mode 100644 index ba900e03a..000000000 --- a/Transpiler_pp/TranspilerLib.DriveBASIC.Tests/AssemblyInfo.cs +++ /dev/null @@ -1,3 +0,0 @@ -using Microsoft.VisualStudio.TestTools.UnitTesting; - -[assembly: Parallelize(Workers =0, Scope = ExecutionScope.MethodLevel)] diff --git a/Transpiler_pp/TranspilerLib.DriveBASIC.Tests/Models/DriveCompilerTests.cs b/Transpiler_pp/TranspilerLib.DriveBASIC.Tests/Models/DriveCompilerTests.cs deleted file mode 100644 index 17f0e5a74..000000000 --- a/Transpiler_pp/TranspilerLib.DriveBASIC.Tests/Models/DriveCompilerTests.cs +++ /dev/null @@ -1,712 +0,0 @@ -using BaseLib.Helper; -using System; -using System.Collections; -using System.Collections.Generic; -using System.Diagnostics; -using System.Globalization; -using System.Linq; -using System.Reflection; -using System.Text; -using System.Threading.Tasks; -using TranspilerLib.DriveBASIC.Data; -using TranspilerLib.DriveBASIC.Data.Interfaces; - -#pragma warning disable IDE0130 // Der Namespace entspricht stimmt nicht der Ordnerstruktur. -namespace TranspilerLib.DriveBASIC.Models.Tests; -#pragma warning restore IDE0130 // Der Namespace entspricht stimmt nicht der Ordnerstruktur. - -[TestClass] -public class DriveCompilerTests -{ -#pragma warning disable CS8618 // Ein Non-Nullable-Feld muss beim Beenden des Konstruktors einen Wert ungleich NULL enthalten. Fügen Sie ggf. den „erforderlichen“ Modifizierer hinzu, oder deklarieren Sie den Modifizierer als NULL-Werte zulassend. - private DriveBasic FCompiler; -#pragma warning restore CS8618 // Ein Non-Nullable-Feld muss beim Beenden des Konstruktors einen Wert ungleich NULL enthalten. Fügen Sie ggf. den „erforderlichen“ Modifizierer hinzu, oder deklarieren Sie den Modifizierer als NULL-Werte zulassend. - - [TestInitialize] - public void TestInitialize() - { - FCompiler = new DriveBasic(); - } - - [TestMethod] - [TestCategory("DriveCompiler")] - [DataRow(null, EDriveToken.tt_Nop, new object[] { })] - [DataRow("NOP", EDriveToken.tt_Nop, new object[] { (byte)1 })] - [DataRow("DEFINE 5,\"Dies ist ein Test\"", EDriveToken.tt_Nop, new object[] { (byte)3, 5u })] - [DataRow("Goto 2", EDriveToken.tt_goto, new object[] { (byte)0, 2 })] - [DataRow("Call 2", EDriveToken.tt_goto, new object[] { (byte)1, 2 })] - [DataRow("On 1", EDriveToken.tte_goto2, new object[] { (byte)0,0,0, 1 })] - [DataRow("End", EDriveToken.tt_end, new object[] { (byte)1 })] - [DataRow("Stop", EDriveToken.tt_end, new object[] { (byte)2 })] - [DataRow("Pause", EDriveToken.tt_end, new object[] { (byte)3 })] - public void Compile1Nop(string? line, EDriveToken token, object[] oExp) - { - // Arrange - var LMessage = new List(); - FCompiler.SourceCode = [line]; - FCompiler.Log = LMessage; - // Act - bool LResult = FCompiler.Compile(); - // Assert - - CollectionAssert.AreEqual(new List() { "Leerer TokenCode (OK)", "Leeres Label-Array (OK)", "Leeres Message-Array (OK)", "Kein (System-)Variablen-Array (OK)" }, LMessage, "Log-Entry"); - Assert.HasCount(0, FCompiler.Variables, "Var Count"); - Assert.HasCount(0, FCompiler.Labels, "Labels Count"); - Assert.HasCount(1, FCompiler.TokenCode, "Tokens Count"); - Assert.AreEqual(new DriveCommand(token, oExp), FCompiler.TokenCode[0], "Token[0]"); - } - - [TestMethod] - [TestCategory("DriveCompiler")] - [DataRow(" ", EDriveToken.tt_Nop, new object[] { })] - [DataRow(" NOP", EDriveToken.tt_Nop, new object[] { (byte)1 })] - [DataRow(" DEFINE 5,\"Dies ist ein Test\"", EDriveToken.tt_Nop, new object[] { (byte)3, 5u })] - [DataRow(" GOTO 2", EDriveToken.tt_goto, new object[] { (byte)0, 2 })] - [DataRow(" CALL 2", EDriveToken.tt_goto, new object[] { (byte)1, 2 })] - [DataRow(" ON 1", EDriveToken.tte_goto2, new object[] { (byte)0, 0, 0, 1 })] - [DataRow(" END", EDriveToken.tt_end, new object[] { (byte)1 })] - [DataRow(" STOP", EDriveToken.tt_end, new object[] { (byte)2 })] - [DataRow(" PAUSE", EDriveToken.tt_end, new object[] { (byte)3 })] - public void Decompile1Nop(string? line, EDriveToken token, object[] oExp) - { - // Arrange - var LMessage = new List(); - FCompiler.TokenCode = [new DriveCommand(token, oExp)]; - FCompiler.Labels = []; - FCompiler.Variables = []; - FCompiler.Messages = ["","","","","", "Dies ist ein Test"]; - FCompiler.Log = LMessage; - // Act - FCompiler.Decompile(); - // Assert - - CollectionAssert.AreEqual(new List() , LMessage, "Log-Entry"); - Assert.HasCount(0, FCompiler.Variables, "Var Count"); - Assert.HasCount(0, FCompiler.Labels, "Labels Count"); - Assert.HasCount(1, FCompiler.SourceCode, "Source Count"); - Assert.AreEqual(line, FCompiler.SourceCode.First(), "Source[0]"); - } - - - [TestMethod] - [DataRow("DECLARE Testpunkt.", EDriveToken.tt_Nop, new object[] { (byte)2, 0, 0, 32769d }, "TESTPUNKT.", 32769)] - [DataRow("DECLARE TestReal%", EDriveToken.tt_Nop, new object[] { (byte)2, 0, 0, 16385d }, "TESTREAL%", 16385)] - [DataRow("DECLARE TestBool&", EDriveToken.tt_Nop, new object[] { (byte)2, 0, 0, 1d }, "TESTBOOL&", 1)] - [DataRow("onc TestInt%", EDriveToken.tte_goto2, new object[] { (byte)96, 0, 0, 16385d }, "TESTINT%", 16385)] - public void Compile2SL_Declare(string line, EDriveToken token, object[] oExp, string sExp, int iExp) - { - // Arrange - var LMessage = new List(); - FCompiler.SourceCode = [line]; - FCompiler.Log = LMessage; - // Act - bool LResult = FCompiler.Compile(); - // Assert - CollectionAssert.AreEqual(new List() { "Leerer TokenCode (OK)", "Leeres Label-Array (OK)", "Leeres Message-Array (OK)", "Kein (System-)Variablen-Array (OK)" }, LMessage, "Log-Entry"); - Assert.HasCount(1, FCompiler.Variables, "Var Count"); - Assert.AreEqual(sExp, FCompiler.Variables[0].Name, "Var[0].Name"); - Assert.AreEqual(iExp, FCompiler.Variables[0].Index, "Var[0].Index"); - Assert.HasCount(1, FCompiler.TokenCode, "Tokens Count"); - Assert.AreEqual(new DriveCommand(token, oExp), FCompiler.TokenCode[0], "Token[0]"); - } - - [TestMethod] - [DataRow(" DECLARE TESTPUNKT.", EDriveToken.tt_Nop, new object[] { (byte)2, 0, 0, 32769d }, "TESTPUNKT.", 32769)] - [DataRow(" DECLARE TESTREAL%", EDriveToken.tt_Nop, new object[] { (byte)2, 0, 0, 16385d }, "TESTREAL%", 16385)] - [DataRow(" DECLARE TESTBOOL&", EDriveToken.tt_Nop, new object[] { (byte)2, 0, 0, 1d }, "TESTBOOL&", 1)] - [DataRow(" ONC TESTINT%", EDriveToken.tte_goto2, new object[] { (byte)96, 0, 0, 16385d }, "TESTINT%", 16385)] - public void Decompile2SL_Declare(string line, EDriveToken token, object[] oExp, string sExp, int iExp) - { - // Arrange - var LMessage = new List(); - FCompiler.TokenCode = [new DriveCommand(token, oExp)]; - FCompiler.Labels = []; - FCompiler.Variables = [new CompilerVariable() {Name = sExp,Index=iExp }]; - FCompiler.Log = LMessage; - // Act - FCompiler.Decompile(); - // Assert - CollectionAssert.AreEqual(new List() , LMessage, "Log-Entry"); - Assert.HasCount(1, FCompiler.SourceCode, "Source Count"); - Assert.AreEqual(line, FCompiler.SourceCode.First(), "Source[0]"); - } - - [TestMethod] - [DataRow("Let TestBool& := 1", EDriveToken.tte_let, new object[] { (byte)0, 1, 0, 1d }, "TESTBOOL&", 1)] - [DataRow("TestBool& := 1", EDriveToken.tte_let, new object[] { (byte)64, 1, 0, 1d }, "TESTBOOL&", 1)] - [DataRow("Let TestReal% := 1.1", EDriveToken.tte_let, new object[] { (byte)0, 16385, 0, 1.1 }, "TESTREAL%", 16385)] - [DataRow("Let TestPoint. := 1.1", EDriveToken.tte_let, new object[] { (byte)0, 32769, 0, 1.1 }, "TESTPOINT.", 32769)] - [DataRow("Let TestPoint.z := 1", EDriveToken.tte_let, new object[] { (byte)0, 49160, 0, 1d }, "TESTPOINT.", 32769)] - public void Compile3LetConst(string line, EDriveToken token, object[] oExp, string sExp, int iExp) - { - // Arrange - var LMessage = new List(); - FCompiler.SourceCode = [line]; - FCompiler.Log = LMessage; - // Act - bool LResult = FCompiler.Compile(); - // Assert - CollectionAssert.AreEqual(new List() { "Leerer TokenCode (OK)", "Leeres Label-Array (OK)", "Leeres Message-Array (OK)", "Kein (System-)Variablen-Array (OK)" }, LMessage, "Log-Entry"); - Assert.HasCount(1, FCompiler.Variables, "Var Count"); - Assert.AreEqual(sExp, FCompiler.Variables[0].Name, "Var[0].Name"); - Assert.AreEqual(iExp, FCompiler.Variables[0].Index, "Var[0].Index"); - Assert.HasCount(1, FCompiler.TokenCode, "Tokens Count"); - Assert.AreEqual(new DriveCommand(token, oExp), FCompiler.TokenCode[0], "Token[0]"); - } - - [TestMethod] - [DataRow(" LET TESTBOOL& := 1", EDriveToken.tte_let, new object[] { (byte)0, 1, 0, 1d }, "TESTBOOL&", 1)] - [DataRow(" TESTBOOL& := 1", EDriveToken.tte_let, new object[] { (byte)64, 1, 0, 1d }, "TESTBOOL&", 1)] - [DataRow(" LET TESTREAL% := 1.1", EDriveToken.tte_let, new object[] { (byte)0, 16385, 0, 1.1 }, "TESTREAL%", 16385)] - [DataRow(" TESTREAL% := 1.1", EDriveToken.tte_let, new object[] { (byte)64, 16385, 0, 1.1 }, "TESTREAL%", 16385)] - [DataRow(" LET TESTPOINT. := 1.1", EDriveToken.tte_let, new object[] { (byte)0, 32769, 0, 1.1 }, "TESTPOINT.", 32769)] - [DataRow(" TESTPOINT. := 1.1", EDriveToken.tte_let, new object[] { (byte)64, 32769, 0, 1.1 }, "TESTPOINT.", 32769)] - [DataRow(" LET TESTPOINT.z := 1", EDriveToken.tte_let, new object[] { (byte)0, 49160, 0, 1d }, "TESTPOINT.", 32769)] - [DataRow(" TESTPOINT.z := 1", EDriveToken.tte_let, new object[] { (byte)64, 49160, 0, 1d }, "TESTPOINT.", 32769)] - public void Decompile3LetConst(string line, EDriveToken token, object[] oExp, string sExp, int iExp) - { - // Arrange - var LMessage = new List(); - FCompiler.TokenCode = [new DriveCommand(token, oExp)]; - FCompiler.Labels = []; - FCompiler.Variables = [new CompilerVariable() { Name = sExp, Index = iExp }]; - FCompiler.Log = LMessage; - // Act - FCompiler.Decompile(); - // Assert - CollectionAssert.AreEqual(new List(), LMessage, "Log-Entry"); - Assert.HasCount(1, FCompiler.SourceCode, "Source Count"); - Assert.AreEqual(line, FCompiler.SourceCode.First(), "Source[0]"); - } - - - [TestMethod] - [DataRow("Let TestBool& := Active&", EDriveToken.tte_let, new object[] { (byte)32, 1, 0, 2d }, "TESTBOOL&", 1)] - [DataRow("Let TestReal% := Active&", EDriveToken.tte_let, new object[] { (byte)32, 16385, 0, 1d }, "TESTREAL%", 16385)] - [DataRow("Let TestPoint. := Active&", EDriveToken.tte_let, new object[] { (byte)32, 32769, 0, 1d }, "TESTPOINT.", 32769)] - [DataRow("Let TestPoint.z := Active&", EDriveToken.tte_let, new object[] { (byte)32, 49160, 0, 1d }, "TESTPOINT.", 32769)] - public void Compile4LetVar(string line, EDriveToken token, object[] oExp, string sExp, int iExp) - { - // Arrange - var LMessage = new List(); - FCompiler.SourceCode = [line]; - FCompiler.Log = LMessage; - // Act - bool LResult = FCompiler.Compile(); - // Assert - CollectionAssert.AreEqual(new List() { "Leerer TokenCode (OK)", "Leeres Label-Array (OK)", "Leeres Message-Array (OK)", "Kein (System-)Variablen-Array (OK)" }, LMessage, "Log-Entry"); - Assert.HasCount(2, FCompiler.Variables, "Var Count"); - if (iExp == 1) - { - Assert.AreEqual(sExp, FCompiler.Variables[0].Name, "Var[0].Name"); - Assert.AreEqual(iExp, FCompiler.Variables[0].Index, "Var[0].Index"); - Assert.AreEqual("ACTIVE&", FCompiler.Variables[1].Name, "Var[1].Name"); - Assert.AreEqual(2, FCompiler.Variables[1].Index, "Var[1].Index"); - } - else - { - Assert.AreEqual("ACTIVE&", FCompiler.Variables[0].Name, "Var[0].Name"); - Assert.AreEqual(1, FCompiler.Variables[0].Index, "Var[0].Index"); - Assert.AreEqual(sExp, FCompiler.Variables[1].Name, "Var[1].Name"); - Assert.AreEqual(iExp, FCompiler.Variables[1].Index, "Var[1].Index"); - } - Assert.HasCount(1, FCompiler.TokenCode, "Tokens Count"); - Assert.AreEqual(new DriveCommand(token, oExp), FCompiler.TokenCode[0], "Token[0]"); - } - - [TestMethod] - [DataRow("TestLbl: Goto TestLbl", EDriveToken.tt_goto, new object[] { (byte)2 }, "TESTLBL", 0)] - [DataRow("TestLbl: Call TestLbl", EDriveToken.tt_goto, new object[] { (byte)3 }, "TESTLBL", 0)] - public void Compile5GotoLbl(string line, EDriveToken token, object[] oExp, string sExp, int iExp) - { - // Arrange - var LMessage = new List(); - FCompiler.SourceCode = [line]; - FCompiler.Log = LMessage; - // Act - bool LResult = FCompiler.Compile(); - // Assert - CollectionAssert.AreEqual(new List() { "Leerer TokenCode (OK)", "Leeres Label-Array (OK)", "Leeres Message-Array (OK)", "Kein (System-)Variablen-Array (OK)" }, LMessage, "Log-Entry"); - Assert.HasCount(0, FCompiler.Variables, "Var Count"); - Assert.HasCount(1, FCompiler.Labels, "Label Count"); - Assert.AreEqual(sExp, FCompiler.Labels[0].Name, "Labels[0].Name"); - Assert.AreEqual(iExp, FCompiler.Labels[0].Index, "Labels[0].Index"); - Assert.HasCount(1, FCompiler.TokenCode, "Tokens Count"); - Assert.AreEqual(new DriveCommand(token, oExp), FCompiler.TokenCode[0], "Token[0]"); - } - - [TestMethod] - [DataRow(new[] { "ON 1", "Goto 1", "Goto 2" }, - new[] { EDriveToken.tte_goto2, EDriveToken.tt_goto, EDriveToken.tt_goto }, - new object[]{ - new object[]{(byte)0,0,0,1d }, - new object[]{(byte)0,1 }, - new object[]{(byte)0,2 } - })] - [DataRow(new[] { "IF 1 THEN", "ENDIF" }, - new[] { EDriveToken.tte_if, EDriveToken.tt_end }, - new object[]{ - new object[]{(byte)0,1,0,1d }, - new object[]{(byte)4 }, - })] - [DataRow(new[] { "IF 1 THEN", "ELSE", "ENDIF" }, - new[] { EDriveToken.tte_if,EDriveToken.tt_else, EDriveToken.tt_end }, - new object[]{ - new object[]{(byte)0,1,0,1d }, - new object[]{(byte)0,2 }, - new object[]{(byte)4 }, - })] - [DataRow(new[] { "IF 1 THEN", "ELSIF 0 THEN", "ENDIF" }, - new[] { EDriveToken.tte_if,EDriveToken.tte_if, EDriveToken.tt_end }, - new object[]{ - new object[]{(byte)0,1,0, 1d }, - new object[]{(byte)64,2 }, - new object[]{(byte)4 }, - })] - [DataRow(new[] { "IF 1 THEN", "ELSIF 0 THEN", "ELSE", "ENDIF" }, - new[] { EDriveToken.tte_if, EDriveToken.tte_if, EDriveToken.tt_else, EDriveToken.tt_end }, - new object[]{ - new object[]{(byte)0,1,0, 1d }, - new object[]{(byte)64,2 }, - new object[]{(byte)0,3 }, - new object[]{(byte)4 }, - })] - [DataRow(new[] { "While 1", "NOP", "WEND" }, - new[] { EDriveToken.tte_while, EDriveToken.tt_Nop, EDriveToken.tt_end }, - new object[]{ - new object[]{(byte)0,2,0,1d }, - new object[]{(byte)1 }, - new object[]{(byte)6 }, - })] - public void Compile6MLCommand(string[] lines, EDriveToken[] token, object[] oExp) - { - // Arrange - List LMessage = new List(); - FCompiler.SourceCode = lines; - FCompiler.Log = LMessage; - // Act - bool LResult = FCompiler.Compile(); - // Assert - List expectedMessages = ["Leerer TokenCode (OK)", "Leeres Label-Array (OK)", "Leeres Message-Array (OK)", "Kein (System-)Variablen-Array (OK)"]; - - CollectionAssert.AreEqual(expectedMessages, LMessage, "Log-Entry"); - Assert.HasCount(0, FCompiler.Variables, "Var Count"); - Assert.HasCount(0, FCompiler.Labels, "Label Count"); - Assert.HasCount(token.Length, FCompiler.TokenCode, "Tokens Count"); - for (int i = 0; i < token.Length; i++) - Assert.AreEqual(new DriveCommand(token[i], oExp[i] as object[]), FCompiler.TokenCode[i], $"Token[{i}]"); - } - - [TestMethod] - [DataRow("Drive TestBool&", EDriveToken.tte_drive, new object[] { (byte)32, 0, 0, 1d }, "TESTBOOL&", 1)] - [DataRow("Drive_x TestBool&", EDriveToken.tte_drive, new object[] { (byte)96, 1, 0, 1d }, "TESTBOOL&", 1)] - [DataRow("Drive_rel TestReal%", EDriveToken.tte_drive, new object[] { (byte)160, 0, 0, 16385 }, "TESTREAL%", 16385)] - [DataRow("Drive_rel_y TestReal%", EDriveToken.tte_drive, new object[] { (byte)224, 2, 0, 16385 }, "TESTREAL%", 16385)] - [DataRow("Drivevia TestPoint.", EDriveToken.tte_drive_via, new object[] { (byte)32, 0, 0, 32769 }, "TESTPOINT.", 32769)] - [DataRow("Drivevia_z TestPoint.z", EDriveToken.tte_drive_via, new object[] { (byte)96, 3, 0, 49160 }, "TESTPOINT.", 32769)] - public void Compile7DriveVar(string line, EDriveToken token, object[] oExp, string sExp, int iExp) - { - // Arrange - var LMessage = new List(); - FCompiler.SourceCode = [line]; - FCompiler.Log = LMessage; - // Act - bool LResult = FCompiler.Compile(); - // Assert - CollectionAssert.AreEqual(new List() { "Leerer TokenCode (OK)", "Leeres Label-Array (OK)", "Leeres Message-Array (OK)", "Kein (System-)Variablen-Array (OK)" }, LMessage, "Log-Entry"); - Assert.HasCount(1, FCompiler.Variables, "Var Count"); - Assert.AreEqual(sExp, FCompiler.Variables[0].Name, "Var[0].Name"); - Assert.AreEqual(iExp, FCompiler.Variables[0].Index, "Var[0].Index"); - Assert.HasCount(1, FCompiler.TokenCode, "Tokens Count"); - Assert.AreEqual(new DriveCommand(token, oExp), FCompiler.TokenCode[0], "Token[0]"); - } - - [TestMethod] - [DataRow(" DRIVE TESTBOOL&", EDriveToken.tte_drive, new object[] { (byte)32, 0, 0, 1d }, "TESTBOOL&", 1)] - [DataRow(" DRIVE_x TESTBOOL&", EDriveToken.tte_drive, new object[] { (byte)96, 1, 0, 1d }, "TESTBOOL&", 1)] - [DataRow(" DRIVE_REL TESTREAL%", EDriveToken.tte_drive, new object[] { (byte)160, 0, 0, 16385 }, "TESTREAL%", 16385)] - [DataRow(" DRIVE_REL_y TESTREAL%", EDriveToken.tte_drive, new object[] { (byte)224, 2, 0, 16385 }, "TESTREAL%", 16385)] - [DataRow(" DRIVEVIA TESTPOINT.", EDriveToken.tte_drive_via, new object[] { (byte)32, 0, 0, 32769 }, "TESTPOINT.", 32769)] - [DataRow(" DRIVEVIA_z TESTPOINT.z", EDriveToken.tte_drive_via, new object[] { (byte)96, 3, 0, 49160 }, "TESTPOINT.", 32769)] - public void Decompile7DriveVar(string line, EDriveToken token, object[] oExp, string sExp, int iExp) - { - // Arrange - var LMessage = new List(); - FCompiler.TokenCode = [new DriveCommand(token, oExp)]; - FCompiler.Labels = []; - FCompiler.Variables = [new CompilerVariable() { Name = sExp, Index = iExp }]; - FCompiler.Log = LMessage; - // Act - FCompiler.Decompile(); - // Assert - CollectionAssert.AreEqual(new List(), LMessage, "Log-Entry"); - Assert.HasCount(1, FCompiler.SourceCode, "Source Count"); - Assert.AreEqual(line, FCompiler.SourceCode.First(), "Source[0]"); - } - - [TestMethod] - [DataRow("1 + 2", 0, true, new[] { "(0, False, 1 + 2)" })] - [DataRow("Wert2: ", 0, true, new[] { "(0, False, Wert2: )", "(32, False, Wert2: )" })] - public void BuildExpressionNormalTests(string line,int iStart,bool xAct,string[]? lExp) - { - List result = []; - // Act - FCompiler.BuildExpressionNormal(line, (o) => result.Add($"{o}"), 0, false); - // Assert - Assert.HasCount(lExp?.Length ?? 0, result, "Result Count"); - for (int i = 0; i < lExp.Length; i++) - Assert.AreEqual(lExp[i], result[i], $"Result[{i}]"); - } - - [TestMethod] - [DataRow("", "123", false)] - public void TestPlaceHolderCharsetTests(string placeholder, string text, bool expected) - { - // Act - var result = FCompiler.TestPlaceHolderCharset(placeholder, text); - - // Assert - Assert.AreEqual(expected, result, $"Placeholder: {placeholder}, Text: {text}"); - } - - - - [TestMethod] - [DataRow("Empty line", "", new[] - { - "|rule|", - "|nested|", - "|rule|" - })] - [DataRow("Literal command without arguments", "NOP", new[] - { - "|rule|", - "|nested|", - "|rule|NOP" - })] - [DataRow("Command with identifier parameter", "SUB Start", new[] - { - "|rule|", - "|nested|", - "|rule|SUB ", - "|literal|Start" - })] - [DataRow("Label prefix followed by command", "Main: NOP", new[] - { - "|rule|: ", - "|literal|Main", - "|nested|", - "|rule|NOP" - })] - [DataRow("a define-Command", "DEFINE 5,\"Dies ist ein Test\"", new[] - { - "|rule|", - "|nested|", - "|rule|DEFINE ,\"\"", - "|literal|5", - "|literal|Dies ist ein Test" - })] - [DataRow("a declare-Command", "DECLARE TestBool&", new[] - { - "|rule|", - "|nested|", - "|rule|DECLARE ", - "|nested|", - "|literal|TestBool&", - })] - [DataRow("a while-Command", "While 1", new[] - { - "|rule|", - "|nested|", - "|rule|WHILE ", - "|nested|", - "|literal|1", - })] - [DataRow("a If-Then command", "If 1 Then", new[] - { - "|rule|", - "|nested|", - "|rule|IF THEN", - "|nested|", - "|literal|1", - })] - - public void ParseLine_Succeeds(string scenario, string line, string[] expectations) - { - var parseResult = AssertParseResult(FCompiler.ParseLine(ParseDefinitions.CCommand, line, out var errorCode)); - Debug.WriteLine(TokenParseTreeDbg(parseResult)); - - Assert.AreEqual(0, errorCode, $"{scenario}: unexpected error code"); - AssertMatchesSpec(parseResult, expectations, scenario); - } - - [TestMethod] - [DataRow("", "1", "", new[] { "|rule|", "|literal|1" })] - [DataRow("", "1", "", new[] { "|rule|", "|literal|1" })] - [DataRow("", "WHILE 1", "", new[] { "|rule|WHILE ", "|literal|1" })] - [DataRow("", "IF 1 THEN", "", new[] { "|rule|IF THEN", "|literal|1" })] - public void ParseLine_Succeeds2(string scenario, string line,string ph, string[] expectations) - { - var parseResult = AssertParseResult(FCompiler.ParseLine(ph, line, out var errorCode)); - Debug.WriteLine(TokenParseTreeDbg(parseResult)); - - Assert.AreEqual(0, errorCode, $"{scenario}: unexpected error code"); - AssertMatchesSpec(parseResult, expectations, scenario); - } - - - [TestMethod] - [DataRow("Invalid integer placeholder", "FUNC TEXT", DisplayName = "Integer placeholder requires numeric value")] - public void ParseLine_Fails(string scenario, string line) - { - var result = FCompiler.ParseLine(ParseDefinitions.CCommand, line, out var errorCode); - - Assert.IsNull(result, $"{scenario}: expected null result"); - Assert.AreNotEqual(0, errorCode, $"{scenario}: error code should be non-zero"); - } - - private static IReadOnlyList> AssertParseResult(object? candidate) - { - Assert.IsNotNull(candidate, "Parse result was expected but is null."); - Assert.IsInstanceOfType(candidate, typeof(IList>)); - return (IReadOnlyList>)candidate; - } - - private void AssertMatchesSpec(IReadOnlyList> matches, string[] spec, string scenario) - { - foreach (var entry in spec) - { - var parts = entry.Split('|'); - Assert.IsTrue(parts.Length >= 3, $"{scenario}: invalid expectation entry '{entry}'"); - - var placeholder = parts[0]; - var expectationType = parts[1]; - var expectationValue = parts[2]; - - var match = GetMatch(matches, placeholder); - switch (expectationType) - { - case "rule": - var ruleIndex = int.Parse(match.Value.ToString() ?? "0", CultureInfo.InvariantCulture); - var pattern = ResolveRulePattern(placeholder, ruleIndex); - Assert.AreEqual(expectationValue, pattern, $"{scenario}: placeholder {placeholder} rule mismatch"); - break; - case "literal": - Assert.AreEqual(expectationValue, match.Value, $"{scenario}: placeholder {placeholder} literal mismatch"); - break; - case "nested": - var nested = AssertParseResult(match.Value); - Assert.AreEqual(expectationValue, nested[0].Key, $"{scenario}: nested root mismatch for {placeholder}"); - // Assert.AreEqual(parts[3], nested[0].Value.ToString()); - break; - default: - Assert.Fail($"{scenario}: unknown expectation type '{expectationType}'"); - break; - } - } - } - - private static KeyValuePair GetMatch(IReadOnlyList> matches, string placeholder) - { - var match = matches.FirstOrDefault(pair => string.Equals(pair.Key, placeholder, StringComparison.OrdinalIgnoreCase)); - if (match.Key==null) - match = matches.Select(pair2 => (pair2.Value is IReadOnlyList> kvp)?GetMatch(kvp,placeholder):default).FirstOrDefault(p=>p.Key!=null); - - // Assert.AreNotEqual(default(KeyValuePair), match, $"Match for placeholder '{placeholder}' not found."); - return match; - } - - private string ResolveRulePattern(string placeholder, int ruleIndex) - { - if (string.Equals(placeholder, ParseDefinitions.CToken, StringComparison.OrdinalIgnoreCase)) - { - return ParseDefinitions.ParseDefBase[ruleIndex].text; - } - if (string.Equals(placeholder, ParseDefinitions.CExpression, StringComparison.OrdinalIgnoreCase)) - { - return FCompiler.ExpressionNormals[ruleIndex].Item3; - } - - return ParseDefinitions.PlaceHolderDefBase[ruleIndex].text; - } - - [TestMethod] - [DataRow(new object[] { - new object[] { "", 4 }, - new object[] { "", new object[] { - new object[] { "", 1 } } } }, EDriveToken.tt_Nop, (byte)1, 0, 0, 0d)] - [DataRow("CALL 2", EDriveToken.tt_goto, (byte)1, 2, 0, 0d)] - [DataRow("ON 1", EDriveToken.tte_goto2, (byte)0, 0, 0, 1d)] - [DataRow(new object[] { - new object[] {"", 4 }, - new object[] {"", new object[] { - new object[] {"", 5 }, - new object[] {"", "Start" }, - } }, }, EDriveToken.tt_Nop, (byte)5, 0, 0, 0d)] - public void BuildCommand_ProducesDriveCommandFromParseTree(object source, EDriveToken expectedToken, byte expectedSubToken, int expectedPar1, int expectedPar2, double expectedPar3) - { - IReadOnlyList>? parseResult =null; - if (source is string sSource) - { - parseResult = FCompiler.ParseLine("", sSource, out _); - Debug.WriteLine(TokenParseTreeDbg(parseResult!)); - } - else if (source is object[] arrSource) - parseResult = TokenParseTree(arrSource); - - var tokenBuffer = new List(); - const int pc = 0; - InitializeCompilerState(tokenBuffer, pc); - - var resultName = InvokeBuildCommand(parseResult, tokenBuffer, 0, pc, out var errorText); - - Assert.AreEqual("BC_OK", resultName, $"{source}: unexpected build result"); - Assert.AreEqual(string.Empty, errorText, $"{source}: error text must stay empty"); - Assert.IsTrue(pc < tokenBuffer.Count, $"{source}: token buffer does not contain index {pc}"); - var command = tokenBuffer[pc]; - Assert.IsNotNull(command, $"{source}: token buffer entry must not be null"); - Assert.AreEqual(expectedToken, command.Token, $"{source}: token mismatch"); - Assert.AreEqual(expectedSubToken, command.SubToken, $"{source}: sub token mismatch"); - Assert.AreEqual(expectedPar1, command.Par1, $"{source}: Par1 mismatch"); - Assert.AreEqual(expectedPar2, command.Par2, $"{source}: Par2 mismatch"); - Assert.AreEqual(expectedPar3, command.Par3, $"{source}: Par3 mismatch"); - } - - [TestMethod] - [DataRow(null, "BC_SyntaxError")] - [DataRow("plain text payload", "BC_SyntaxError")] - public void BuildCommand_ReturnsSyntaxErrorForInvalidPayload(object? invalidPayload, string expectedResult) - { - var tokenBuffer = new List(); - InitializeCompilerState(tokenBuffer, 0); - var placeholder = tokenBuffer[0]; - - var resultName = InvokeBuildCommand(invalidPayload, tokenBuffer, 0, 0, out var errorText); - - Assert.AreEqual(expectedResult, resultName, "Invalid payload should yield syntax error"); - Assert.IsFalse(string.IsNullOrWhiteSpace(errorText), "Expected descriptive error text"); - Assert.AreSame(placeholder, tokenBuffer[0], "Invalid payload must not mutate the token buffer"); - } - - private static IReadOnlyList> TokenParseTree(object[] objects) - { - var result = new List>(); - foreach (var o in objects) - { - if (o is object[] arr && arr.Length >= 1) - { - if (arr[1] is object[] arr2) - result.Add(new KeyValuePair((string)arr[0], TokenParseTree(arr2))); - else - result.Add(new KeyValuePair((string)arr[0], arr[1])); - } - } - - return result; - } - - private static string TokenParseTreeDbg(IReadOnlyList> tree) - { - var sb = new StringBuilder(); - void Recurse(IReadOnlyList> nodes, int level) - { - var indent = new string(' ', level * 2); - foreach (var node in nodes) - { - if (node.Value is IReadOnlyList> subnode) - { - sb.AppendLine($"{indent} new object[] {{\"{node.Key}\", new object[] {{"); - Recurse(subnode, level + 1); - sb.AppendLine($"{indent}}} }},"); - } - else - { - var quotedValue = node.Value is string ? $"\"{node.Value}\"" : node.Value?.ToString() ?? "null"; - sb.AppendLine($"{indent} new object[] {{\"{node.Key}\", {quotedValue} }},"); - } - } - } - sb.AppendLine("new object[] {"); - Recurse(tree, 0); - sb.AppendLine("}"); - return sb.ToString(); - } - - private void InitializeCompilerState(IList tokenBuffer, int targetPc) - { - FCompiler.Log = new List(); - FCompiler.Messages = new List(); - FCompiler.Variables = new List(); - FCompiler.Labels = new List(); - FCompiler.TokenCode = tokenBuffer; - FCompiler.SourceCode ??= Array.Empty(); - - while (tokenBuffer.Count <= targetPc) - { - tokenBuffer.Add(new DriveCommand(EDriveToken.tt_Nop)); - } - } - - private string InvokeBuildCommand(object? parseTree, IList tokenBuffer, int level, int pc, out string errorText) - { - var method = typeof(DriveBasic).GetMethod("BuildCommand", BindingFlags.Instance | BindingFlags.NonPublic | BindingFlags.Public) - ?? throw new InvalidOperationException("BuildCommand method not found."); - - var treeArg = parseTree is string ? new List>() : parseTree; - - var arguments = new object?[] { treeArg, tokenBuffer, level, pc, string.Empty }; - var result = method.Invoke(FCompiler, arguments); - errorText = arguments[4] as string ?? string.Empty; - return result?.ToString() ?? string.Empty; - } - -// PSEUDOCODE -// - Prepare helper to invoke private DriveBasic.GetAxisName via reflection. -// * Resolve MethodInfo once per call, ensure non-null, invoke with axis argument, ensure string result. -// - Test mapped axes: -// * Use DataRow to cover several axis numbers (1, 2, 3, 4). -// * For each axis, call helper and assert returned axis identifier matches expected string. -// - Test fallback path: -// * Call helper with unmapped axis (e.g., 99). -// * Assert the method returns the numeric string representation of the axis. - - [TestMethod] - [DataRow(1, "x")] - [DataRow(2, "y")] - [DataRow(3, "z")] - [DataRow(4, "a")] - public void GetAxisName_ReturnsAxisIdentifier_ForMappedAxis(int axis, string expected) - { - var actual = InvokeGetAxisName(axis); - - Assert.AreEqual(expected, actual); - } - - [TestMethod] - public void GetAxisName_ReturnsNumericFallback_ForUnknownAxis() - { - var actual = InvokeGetAxisName(99); - - Assert.AreEqual("99", actual); - } - - private string InvokeGetAxisName(int axis) - { - var method = typeof(DriveBasic).GetMethod("GetAxisName", BindingFlags.Instance | BindingFlags.NonPublic) - ?? throw new InvalidOperationException("GetAxisName method not found."); - - var result = method.Invoke(FCompiler, new object[] { axis }) as string; - Assert.IsNotNull(result, "GetAxisName returned null."); - - return result!; - } -} diff --git a/Transpiler_pp/TranspilerLib.DriveBASIC.Tests/TranspilerLib.DriveBASIC.Tests.csproj b/Transpiler_pp/TranspilerLib.DriveBASIC.Tests/TranspilerLib.DriveBASIC.Tests.csproj deleted file mode 100644 index 1dc0b4a94..000000000 --- a/Transpiler_pp/TranspilerLib.DriveBASIC.Tests/TranspilerLib.DriveBASIC.Tests.csproj +++ /dev/null @@ -1,41 +0,0 @@ - - - - net8.0 - enable - false - true - TranspilerLib.DriveBASIC - - - - - $(TargetFrameworks);net9.0 - - - $(TargetFrameworks);net10.0 - - - - - - - - all - runtime; build; native; contentfiles; analyzers; buildtransitive - - - - - - - - - PreserveNewest - - - - - - - diff --git a/Transpiler_pp/TranspilerLib.DriveBASIC/Data/DriveCommand.cs b/Transpiler_pp/TranspilerLib.DriveBASIC/Data/DriveCommand.cs deleted file mode 100644 index 24f4a54c8..000000000 --- a/Transpiler_pp/TranspilerLib.DriveBASIC/Data/DriveCommand.cs +++ /dev/null @@ -1,58 +0,0 @@ -using System; -using TranspilerLib.DriveBASIC.Data.Interfaces; - -namespace TranspilerLib.DriveBASIC.Data; - -public class DriveCommand : IDriveCommand -{ - public EDriveToken Token { get; } - public byte SubToken { get; } - public int Par1 { get; set; } - public int Par2 { get; } - public double Par3 { get; } - - public DriveCommand(EDriveToken token, byte sub = 0, int par1 = 0, int par2 = 0, double par3 = 0) - { - this.Token = token; - this.SubToken = sub; - this.Par1 = par1; - this.Par2 = par2; - this.Par3 = par3; - } - - public DriveCommand(EDriveToken token, object[] oExp) - { - this.Token = token; - var Pc = 0; - foreach (var o in oExp) - { - switch (o) - { - case int i when ++Pc == 1: SubToken = (byte)i; break; - case int i when Pc == 2: Par1 = i; break; - case int i when Pc == 3: Par2 = i; break; - case int i when Pc == 4: Par3 = i; break; - case double d: Par3 = d; Pc = 4; break; - case decimal f: Par3 = (double)f; Pc = 4; break; - default: - throw new ArgumentException($"Ungültiger Parameter-Typ {o.GetType()} in DriveCommand-Array", nameof(oExp)); - } - } - } - - public override string ToString() - { - return $"DriveCommand(Token={Token}, SubToken={SubToken}, Par1={Par1}, Par2={Par2}, Par3={Par3})"; - } - - public override bool Equals(object? obj) - { - return obj is IDriveCommand dc? - Token == dc.Token - && SubToken == dc.SubToken - && Par1 == dc.Par1 - && Par2 == dc.Par2 - && Par3 == dc.Par3 - : false; - } -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib.DriveBASIC/Data/EDriveToken.cs b/Transpiler_pp/TranspilerLib.DriveBASIC/Data/EDriveToken.cs deleted file mode 100644 index a0be68cf0..000000000 --- a/Transpiler_pp/TranspilerLib.DriveBASIC/Data/EDriveToken.cs +++ /dev/null @@ -1,110 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using System.Text; -using System.Threading.Tasks; - -namespace TranspilerLib.DriveBASIC.Data; - -/// C. Rosewich -/// 17.05.2009 -/// Token steht fuer den Befehl der ausgefuehrt werden soll. -public enum EDriveToken -{ - /// C. Rosewich - /// Befehl mit diesem Token tut Nichts - tt_Nop = 0, - - /// C.Rosewich - /// 17.05.2009 - /// Zuweisung: Variable := Ausdruck - tte_let = 1, - // Zuweisung, variable,Koordinate := variable,Koordinate,Konstante (+-*/ mod and or Xor) variable,Koordinate,Konstante - - /// design:node:::6lmgksd6s0f_n - /// C. Rosewich - /// 17.05.2009 - /// Befehl mit diesem Token setzt Abarbeitung an anderer Stelle fort - tt_goto = 2, // Goto, Gosub - - /// C. Rosewich - /// 17.05.2009 - /// Befehl mit diesem Token setzt Abarbeitung an anderer Stelle fort - tte_goto2 = 3, // Goto, Gosub - - /// C.Rosewich - /// 17.05.2009 - /// Negativer Zweig einer IF-Abfrage - tt_else = 4, // .. Else - - /// C.Rosewich - /// 17.05.2009 - /// Bedingte Ausfuehrung der naechsten Befehle bis Else oder EndIf - tte_if = 5, // if ..then - - /// C. Rosewich - /// 23.05.2009 - /// Schleife mit Schleifenzaehler, (festgelegte Durchgaenge) - tt_for = 6, - - /// C.Rosewich - /// 17.05.2009 - /// Schleife solange Ausdruck erfuellt - tte_while = 7, // while ... - - /// C.Rosewich - /// 17.05.2009 - /// Beendet Schleifen/If-Konstrukte oder Ablauf und kehrt evtl. zur naechsten Ebene zurueck - tt_end = 8, // end (if, While, for ...) - - /// C.Rosewich - /// 17.05.2009 - /// Warte auf Zeit/Ereigniss - tte_wait = 9, // pause, - - /// C.Rosewich - /// 17.05.2009 - /// Setzt eine Nachricht: Kommentar,Status,Meldung oder Fehler - tt_Msg = 10, // comment,state,meldung,error nummer - - /// C.Rosewich - /// 17.05.2009 - /// Setzt eine Nachricht: Kommentar,Status,Meldung oder Fehler - tte_Msg2 = 11, // comment,state,meldung,error nummer - - /// C.Rosewich - /// 17.05.2009 - /// Aufruf einer externer Funktionen evtl. mit einem Parameter - tt_Funct = 12, // fuehre funktion aus und warte auf deren beendigung - - /// C.Rosewich - /// 17.05.2009 - /// Aufruf einer externer Funktionen evtl. mit einem Parameter - tte_funct2 = 13, // fuehre funktion aus und warte auf deren beendigung - - /// C.Rosewich - /// 17.05.2009 - /// Fuehrt sobald/solange Ausruck erfuellt ist den naechsten Befehl aus. - tt_Sync = 14, - - /// C.Rosewich - /// 17.05.2009 - /// Fuehrt sobald/solange Ausruck erfuellt ist den naechsten Befehl aus. - tte_sync2 = 15, - - /// C.Rosewich - /// 17.05.2009 - /// Fahrbefehl auf Punkt/Koordinate, Weiterschaltung bei Genauhaltfenster - tte_drive = 17, - - /// C. Rosewich - /// 20.05.2009 - /// Fahr-Befehl auf Punkt/Koordinate, WeiterSchaltung bei Grossem Fenster - tte_drive_via = 19, - // fahre aus aktueller koordinate auf Punkt , Achse auf koordinate ... ptp, interpolierend , koordiniert - - /// C.Rosewich - /// 17.05.2009 - /// Fahre auf Punkt/Koordinate, Weiterschaltung, sofort - tte_drive_async = 21 -} diff --git a/Transpiler_pp/TranspilerLib.DriveBASIC/Data/EExpressionOperation.cs b/Transpiler_pp/TranspilerLib.DriveBASIC/Data/EExpressionOperation.cs deleted file mode 100644 index ad59bcada..000000000 --- a/Transpiler_pp/TranspilerLib.DriveBASIC/Data/EExpressionOperation.cs +++ /dev/null @@ -1,90 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using System.Text; -using System.Threading.Tasks; - -namespace TranspilerLib.DriveBASIC.Data; - - -/// C. Rosewich -/// 18.09.2015 -/// 0.2 -/// Enumeriert die Operation, die bei einem Ausdruck ausgeführt werden soll -public enum EExpressionOperation -{ - /// C.Rosewich - /// 18.09.2015 - /// Plus - teo_plus = 0, - - /// C.Rosewich - /// 18.09.2015 - /// Minus - teo_minus = 1, - - /// C.Rosewich - /// 18.09.2015 - /// Multiplikation - teo_mult = 2, - - /// C.Rosewich - /// 18.09.2015 - /// Division - teo_div = 3, - - /// C.Rosewich - /// 18.09.2015 - /// Binäre Und-Verknüpfung - teo_and = 4, - - /// C.Rosewich - /// 18.09.2015 - /// Binäre Oder-Verknüpfung - teo_or = 5, - - /// C.Rosewich - /// 18.09.2015 - /// Binäre Exklusiv-Oder-Verknüpfung - teo_xor = 6, - - /// C.Rosewich - /// 18.09.2015 - /// Kleiner als - teo_lt = 7, - - /// C.Rosewich - /// 18.09.2015 - /// Kleiner oder Gleich - teo_lte = 8, - - /// C.Rosewich - /// 18.09.2015 - /// Gleich - teo_eq = 9, - - /// C.Rosewich - /// 18.09.2015 - /// Ungleich - teo_neq = 10, - - /// C.Rosewich - /// 18.09.2015 - /// Größer als - teo_gt = 11, - - /// C.Rosewich - /// 18.09.2015 - /// Größer oder gleich - teo_gte = 12, - - /// C.Rosewich - /// 18.09.2015 - /// Unäre Funktion - teo_fct = 14, - - /// C.Rosewich - /// 18.09.2015 - /// Indirekter Zugriff (Array) - teo_indirect = 15 -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib.DriveBASIC/Data/EVarType.cs b/Transpiler_pp/TranspilerLib.DriveBASIC/Data/EVarType.cs deleted file mode 100644 index 0665aef4f..000000000 --- a/Transpiler_pp/TranspilerLib.DriveBASIC/Data/EVarType.cs +++ /dev/null @@ -1,34 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using System.Text; -using System.Threading.Tasks; - -namespace TranspilerLib.DriveBASIC.Data; - -/// C. Rosewich -/// 22.06.2009 -/// 0.1 -public enum EVarType -{ - /// C. Rosewich - /// 18.05.2011 - /// Universeller Typ - vt_universal = -1, - /// C. Rosewich - /// 18.05.2011 - /// Typ-ID für Bool-Variablen - vt_bool = 0, - /// C. Rosewich - /// 18.05.2011 - /// Typ-ID für Real/float-Variablen - vt_real = 1, - /// C. Rosewich - /// 18.05.2011 - /// Typ-ID für Punkt-Variablen - vt_point = 2, - /// C. Rosewich - /// 18.05.2011 - /// Typ-ID für Punkt-Dimension-Zugriff - vt_dimension = 3 -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib.DriveBASIC/Data/Interfaces/IDriveCommand.cs b/Transpiler_pp/TranspilerLib.DriveBASIC/Data/Interfaces/IDriveCommand.cs deleted file mode 100644 index b25fd704e..000000000 --- a/Transpiler_pp/TranspilerLib.DriveBASIC/Data/Interfaces/IDriveCommand.cs +++ /dev/null @@ -1,10 +0,0 @@ -namespace TranspilerLib.DriveBASIC.Data.Interfaces; - -public interface IDriveCommand -{ - EDriveToken Token { get; } - byte SubToken { get; } - int Par1 { get; set; } - int Par2 { get; } - double Par3 { get; } -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib.DriveBASIC/Data/Interfaces/ILabel.cs b/Transpiler_pp/TranspilerLib.DriveBASIC/Data/Interfaces/ILabel.cs deleted file mode 100644 index b42a6758a..000000000 --- a/Transpiler_pp/TranspilerLib.DriveBASIC/Data/Interfaces/ILabel.cs +++ /dev/null @@ -1,8 +0,0 @@ -namespace TranspilerLib.DriveBASIC.Data.Interfaces -{ - public interface ILabel - { - string? Name { get; } - int Index { get; } - } -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib.DriveBASIC/Data/Interfaces/IVariable.cs b/Transpiler_pp/TranspilerLib.DriveBASIC/Data/Interfaces/IVariable.cs deleted file mode 100644 index b16532ba3..000000000 --- a/Transpiler_pp/TranspilerLib.DriveBASIC/Data/Interfaces/IVariable.cs +++ /dev/null @@ -1,8 +0,0 @@ -namespace TranspilerLib.DriveBASIC.Data.Interfaces; - -public interface IVariable -{ - string? Name { get; } - int Index { get; } - object? Value { get; set; } -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib.DriveBASIC/Data/ParseDef.cs b/Transpiler_pp/TranspilerLib.DriveBASIC/Data/ParseDef.cs deleted file mode 100644 index a60fccc52..000000000 --- a/Transpiler_pp/TranspilerLib.DriveBASIC/Data/ParseDef.cs +++ /dev/null @@ -1,3 +0,0 @@ -namespace TranspilerLib.DriveBASIC.Data; - -public record ParseDef(EDriveToken Token = EDriveToken.tt_Nop, int SubToken=0, string? text =null); diff --git a/Transpiler_pp/TranspilerLib.DriveBASIC/Data/ParseDef2.cs b/Transpiler_pp/TranspilerLib.DriveBASIC/Data/ParseDef2.cs deleted file mode 100644 index f5177085e..000000000 --- a/Transpiler_pp/TranspilerLib.DriveBASIC/Data/ParseDef2.cs +++ /dev/null @@ -1,6 +0,0 @@ -namespace TranspilerLib.DriveBASIC.Data; - -public record ParseDef2( - string PlaceHolder = "", - int Number = 0, - string? text = null); diff --git a/Transpiler_pp/TranspilerLib.DriveBASIC/Data/ParseDefinitions.cs b/Transpiler_pp/TranspilerLib.DriveBASIC/Data/ParseDefinitions.cs deleted file mode 100644 index 240f71a62..000000000 --- a/Transpiler_pp/TranspilerLib.DriveBASIC/Data/ParseDefinitions.cs +++ /dev/null @@ -1,171 +0,0 @@ -using BaseLib.Helper; -using System; -using System.Collections.Generic; -using System.Linq; -using System.Runtime.InteropServices; -using System.Text; -using System.Threading.Tasks; -using TranspilerLib.Data; -using TranspilerLib.Models; - -namespace TranspilerLib.DriveBASIC.Data; - -/// -/// -/// -/// -/// C. Rosewich -/// -public class ParseDefinitions -{ - public const string - CCommand = "", - CToken = "", - CTToken = "", - CExpression = ""; - - /// Data - /// C. Rosewich - /// 12.11.2009 - public static readonly string[] ParseStrings = ["Label>", "Message>", - "", "", "", - "", "","", "", - "<" + "Axis:Param1>", "", CTToken, CExpression, "", - "", ""]; - - /// Data - /// unt_DriveCompiler.TParseDef - /// C. Rosewich - /// 12.06.2009 - public static readonly ParseDef[] ParseDefBase = [ - new(){Token= EDriveToken.tt_Nop, SubToken= 0, text= ""}, - new(){Token= EDriveToken.tt_Nop, SubToken= 1, text= "NOP" }, - new(){Token= EDriveToken.tt_Nop, SubToken= 2, text= "DECLARE "}, - new(){Token= EDriveToken.tt_Nop, SubToken= 3, text= "DEFINE ,\"\""}, - new(){Token= EDriveToken.tt_Nop, SubToken= 4, text= "DEF_LBL "}, - new(){Token= EDriveToken.tt_Nop, SubToken= 5, text= "SUB "}, - new(){Token= EDriveToken.tt_goto, SubToken= 0, text= "GOTO "}, - new(){Token= EDriveToken.tt_goto, SubToken= 1, text= "CALL "}, - new(){Token= EDriveToken.tt_goto, SubToken= 2, text= "GOTO "}, - new(){Token= EDriveToken.tt_goto, SubToken= 3, text= "CALL "}, - new(){Token= EDriveToken.tte_goto2, SubToken= 0, text= "ON " + CExpression}, - new(){Token= EDriveToken.tte_goto2, SubToken= 1, text= "ONC " + CExpression}, - new(){Token= EDriveToken.tt_end, SubToken= 0, text= "RETURN"}, - new(){Token= EDriveToken.tt_end, SubToken= 1, text= "END"}, - new(){Token= EDriveToken.tt_end, SubToken= 2, text= "STOP"}, - new(){Token= EDriveToken.tt_end, SubToken= 3, text= "PAUSE"}, - new(){Token= EDriveToken.tt_end, SubToken= 4, text= "ENDIF"}, - new(){Token= EDriveToken.tt_end, SubToken= 5, text= "NEXT"}, - new(){Token= EDriveToken.tt_end, SubToken= 6, text= "WEND"}, - new(){Token= EDriveToken.tte_if, SubToken= 0, text= "IF " + CExpression + " THEN"}, - new(){Token= EDriveToken.tte_if, SubToken= 1, text= "ELSIF " + CExpression + " THEN"}, - new(){Token= EDriveToken.tt_else, SubToken= 0, text= "ELSE"}, - new(){Token= EDriveToken.tte_while, SubToken= 0, text= "WHILE " + CExpression}, - new(){Token= EDriveToken.tt_for, SubToken= 0, text= "FOR := 0 TO "}, - new(){Token= EDriveToken.tt_for, SubToken= 0, text= "FOR := TO "}, - new(){Token= EDriveToken.tt_for, SubToken= 1, text= "FOR := TO "}, - new(){Token= EDriveToken.tt_for, SubToken= 2, text= "FOR := DOWNTO 0"}, - new(){Token= EDriveToken.tt_for, SubToken= 2, text= "FOR := DOWNTO "}, - new(){Token= EDriveToken.tt_for, SubToken= 3, text= "FOR := DOWNTO "}, - new(){Token= EDriveToken.tte_let, SubToken= 0, text= "LET := " + CExpression}, - new(){Token= EDriveToken.tte_let, SubToken= 1, text= " := " + CExpression}, - new(){Token= EDriveToken.tte_wait, SubToken= 0, text= "WAIT " + CExpression}, - new(){Token= EDriveToken.tt_Msg, SubToken= 0, text= "(**)"}, - new(){Token= EDriveToken.tt_Msg, SubToken= 1, text= "//"}, - new(){Token= EDriveToken.tte_Msg2, SubToken= 1, text= "ERROR " + CExpression}, - new(){Token= EDriveToken.tt_Msg, SubToken= 2, text= "STATE \"\""}, - new(){Token= EDriveToken.tte_Msg2, SubToken= 2, text= "STATE " + CExpression}, - new(){Token= EDriveToken.tt_Msg, SubToken= 3, text= "MSG\"\""}, - new(){Token= EDriveToken.tte_Msg2, SubToken= 3, text= "MSG " + CExpression}, - new(){Token= EDriveToken.tt_Msg, SubToken= 6, text= "ERROR \"\""}, - new(){Token= EDriveToken.tt_Funct, SubToken= 0, text= "CALLF "}, - new(){Token= EDriveToken.tt_Funct, SubToken= 1, text= "FUNC "}, - new(){Token= EDriveToken.tte_funct2, SubToken= 0, text= "CALLF ," + CExpression}, - new(){Token= EDriveToken.tte_funct2, SubToken= 1, text= "FUNC ," + CExpression}, - new(){Token= EDriveToken.tt_Sync, SubToken= 0, text= "SYNC_# OFF"}, - new(){Token= EDriveToken.tt_Sync, SubToken= 1, text= "INT_# "}, - new(){Token= EDriveToken.tte_sync2, SubToken= 0, text= "WHENEVER_# " + CExpression}, - new(){Token= EDriveToken.tte_sync2, SubToken= 1, text= "WHEN_# " + CExpression}, - // Beispiel fuer eine Erweiterung - new(){Token= EDriveToken.tte_drive, SubToken= 0, text= "DRIVE " + CExpression}, - new(){Token= EDriveToken.tte_drive, SubToken= 1, text= "DRIVE_ " + CExpression}, - new(){Token= EDriveToken.tte_drive, SubToken= 2, text= "DRIVE_REL " + CExpression}, - new(){Token= EDriveToken.tte_drive, SubToken= 3, text= "DRIVE_REL_ " + CExpression}, - - new(){Token= EDriveToken.tte_drive_via, SubToken= 0, text= "DRIVEVIA " + CExpression}, - new(){Token= EDriveToken.tte_drive_via, SubToken= 1, text= "DRIVEVIA_ " + CExpression}, - new(){Token= EDriveToken.tte_drive_via, SubToken= 2, text= "DRIVEVIA_REL " + CExpression}, - new(){Token= EDriveToken.tte_drive_via, SubToken= 3, text= "DRIVEVIA_REL_ " + CExpression}, - - new(){Token= EDriveToken.tte_drive_async, SubToken= 0, text= "DRIVEASYNC " + CExpression}, - new(){Token= EDriveToken.tte_drive_async, SubToken= 1, text= "DRIVEASYNC_ " + CExpression}, - new(){Token= EDriveToken.tte_drive_async, SubToken= 2, text= "DRIVEASYNC_REL " + CExpression}, - new(){Token= EDriveToken.tte_drive_async, SubToken= 3, text= "DRIVEASYNC_REL_ " + CExpression}]; - - /// Data - /// unt_DriveCompiler.TParseDef2 - /// C. Rosewich - /// 12.06.2009 - public static readonly ParseDef2[] PlaceHolderDefBase = [ - new(){PlaceHolder= "", Number= 0, text= ""}, - new(){PlaceHolder= "", Number= 0, text= CCommand + Environment.NewLine + ""}, - new(){PlaceHolder= "",Number= 0, text= CCommand}, - new(){PlaceHolder= CCommand, Number= 0, text= ": "+CTToken}, - new(){PlaceHolder= CCommand, Number= 0, text= CTToken}, - - new(){PlaceHolder= CExpression, Number= 0, text= ""}, - new(){PlaceHolder= CExpression, Number= 16, text= ""}, - new(){PlaceHolder= CExpression, Number= (int)EExpressionOperation.teo_indirect, text= "[]"}, - new(){PlaceHolder= CExpression, Number= (int)EExpressionOperation.teo_fct, text= "FNCnew(){}"}, - new(){PlaceHolder= CExpression, Number= 0, text= ""}, - new(){PlaceHolder= CExpression, Number= (int)EExpressionOperation.teo_minus+32, text= "-"}, - - new(){PlaceHolder= "", Number= (int)EExpressionOperation.teo_plus, text= "+"}, - new(){PlaceHolder= "", Number= (int)EExpressionOperation.teo_minus, text= "-"}, - new(){PlaceHolder= "", Number= (int)EExpressionOperation.teo_mult, text= "*"}, - new(){PlaceHolder= "", Number= (int)EExpressionOperation.teo_div, text= "/"}, - new(){PlaceHolder= "", Number= (int)EExpressionOperation.teo_and, text= " AND "}, - new(){PlaceHolder= "", Number= (int)EExpressionOperation.teo_or, text= " OR "}, - new(){PlaceHolder= "", Number= (int)EExpressionOperation.teo_xor, text= " XOR "}, - new(){PlaceHolder= "", Number= (int)EExpressionOperation.teo_lt, text= "<"}, - new(){PlaceHolder= "", Number= (int)EExpressionOperation.teo_lte, text= "<="}, - new(){PlaceHolder= "", Number= (int)EExpressionOperation.teo_eq, text= "="}, - new(){PlaceHolder= "", Number= (int)EExpressionOperation.teo_neq, text= "<>"}, - new(){PlaceHolder= "", Number= (int)EExpressionOperation.teo_gt, text= ">"}, - new(){PlaceHolder= "", Number= (int)EExpressionOperation.teo_gte, text= ">="}, - - new(){PlaceHolder= "", Number= 0, text= ""}, - new(){PlaceHolder= "", Number= 32, text= ""}, - new(){PlaceHolder= "", Number= 0, text= ""}, - new(){PlaceHolder= "", Number= 0, text= ""}, - new(){PlaceHolder= "", Number= 0, text= ""}, - // ,new(){PlaceHolder= "", Number= 0, text= ""} - ]; - // - /// Data - /// - /// Definiert die erlaubten Zeichen fuer die verschiedenen Platzhalter-Typen - /// - public static (string Placeholder, bool HasPointAsSep, bool MaybeEmpty, ISet first, ISet? inner, ISet? last)[] SysPHCharset = - [("(){'%', '&', '.' }), - ("",false,true, CharSets.whitespace.ToHashSet(), CharSets.whitespace.ToHashSet(),null)]; - - - public static (EDriveToken Token, int SubToken, EDriveToken ReferencingToken, int ReferencingSubtoken, bool Backward)[] ReferencingToken = - [(EDriveToken.tt_end,4,EDriveToken.tte_if,0,true), - (EDriveToken.tt_end,6,EDriveToken.tte_while,-1,true), - (EDriveToken.tt_end,5,EDriveToken.tt_for,-1,true), - (EDriveToken.tt_else,-1,EDriveToken.tt_end,4,false), - (EDriveToken.tte_if,-1,EDriveToken.tte_if,1,false), - (EDriveToken.tte_if,-1,EDriveToken.tt_else,-1,false), - (EDriveToken.tte_if,-1,EDriveToken.tt_end,4,false), - (EDriveToken.tte_while,-1,EDriveToken.tt_end,6,false) - ]; - - // Removed obsolete static TteTokens set now that DriveBasic builds it dynamically - } diff --git a/Transpiler_pp/TranspilerLib.DriveBASIC/Models/CommandBuilderState.cs b/Transpiler_pp/TranspilerLib.DriveBASIC/Models/CommandBuilderState.cs deleted file mode 100644 index e6e948afd..000000000 --- a/Transpiler_pp/TranspilerLib.DriveBASIC/Models/CommandBuilderState.cs +++ /dev/null @@ -1,33 +0,0 @@ -using TranspilerLib.DriveBASIC.Data; - -namespace TranspilerLib.DriveBASIC.Models; - -public sealed class CommandBuilderState -{ - public CommandBuilderState() - { - } - - public bool HasToken { get; private set; } - public EDriveToken Token { get; private set; } - public int SubToken { get; private set; } - public int Param1 { get; set; } - public int Param2 { get; set; } - public double Param3 { get; set; } - - public void Initialize(EDriveToken token, int subToken) - { - HasToken = true; - Token = token; - SubToken = subToken; - Param1 = 0; - Param2 = 0; - Param3 = 0d; - } - - public void AddSubToken(int delta) => SubToken += delta; - - public DriveCommand ToDriveCommand() - => new(Token, [(SubToken & 0xFF), Param1, Param2, Param3]); -} - diff --git a/Transpiler_pp/TranspilerLib.DriveBASIC/Models/CompilerLabel.cs b/Transpiler_pp/TranspilerLib.DriveBASIC/Models/CompilerLabel.cs deleted file mode 100644 index 5dbe3d571..000000000 --- a/Transpiler_pp/TranspilerLib.DriveBASIC/Models/CompilerLabel.cs +++ /dev/null @@ -1,11 +0,0 @@ -using TranspilerLib.DriveBASIC.Data.Interfaces; - -namespace TranspilerLib.DriveBASIC.Models; - - -public sealed class CompilerLabel : ILabel -{ - public string? Name { get; set; } - public int Index { get; set; } = -1; -} - diff --git a/Transpiler_pp/TranspilerLib.DriveBASIC/Models/CompilerVariable.cs b/Transpiler_pp/TranspilerLib.DriveBASIC/Models/CompilerVariable.cs deleted file mode 100644 index 571063a5c..000000000 --- a/Transpiler_pp/TranspilerLib.DriveBASIC/Models/CompilerVariable.cs +++ /dev/null @@ -1,13 +0,0 @@ -using TranspilerLib.DriveBASIC.Data; -using TranspilerLib.DriveBASIC.Data.Interfaces; - -namespace TranspilerLib.DriveBASIC.Models; - -public sealed class CompilerVariable : IVariable -{ - public string? Name { get; set; } - public int Index { get; set; } - public object? Value { get; set; } - public EVarType Type { get; set; } -} - diff --git a/Transpiler_pp/TranspilerLib.DriveBASIC/Models/DriveCompiler.Compile.cs b/Transpiler_pp/TranspilerLib.DriveBASIC/Models/DriveCompiler.Compile.cs deleted file mode 100644 index 800f9ea47..000000000 --- a/Transpiler_pp/TranspilerLib.DriveBASIC/Models/DriveCompiler.Compile.cs +++ /dev/null @@ -1,144 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Configuration; -using TranspilerLib.DriveBASIC.Data; -using TranspilerLib.DriveBASIC.Data.Interfaces; - -namespace TranspilerLib.DriveBASIC.Models; - -public partial class DriveBasic -{ - - public bool Compile()=>new Compiler(this).Compile(); - - public partial class Compiler - { - private readonly Dictionary _variablesByName = new(StringComparer.OrdinalIgnoreCase); - private readonly Dictionary _labelsByName = new(StringComparer.OrdinalIgnoreCase); - private readonly Dictionary _messageNumbers = new(StringComparer.OrdinalIgnoreCase); - private readonly List _messagesList = new(); - private readonly Dictionary _varMax = new(); - private int _maxMessage; - - private DriveBasic _parent; - - public Compiler(DriveBasic parent) - { - _parent = parent; - - foreach (EVarType type in Enum.GetValues(typeof(EVarType))) - { - _varMax[type] = 0; - } - - InitCompilerEmit(ParseDefinitions.ReferencingToken); - - } - public void AppendLog(int lineNr, string text) - { - _parent.Log.Add(lineNr >= 0 ? $"Line {lineNr}: {text}" : text); - } - - private void ResetStateForCompile() - { - _variablesByName.Clear(); - _labelsByName.Clear(); - _messageNumbers.Clear(); - _messagesList.Clear(); - foreach (EVarType type in Enum.GetValues(typeof(EVarType))) - { - _varMax[type] = 0; - } - _maxMessage = 0; - } - - public bool Compile() - { - if (_parent.SourceCode == null) - { - AppendLog(-1, StrKeineQuelleIstZw); - return false; - } - - if (_parent.TokenCode == null) - { - AppendLog(-1, StrLeererTokenCodeOK); - } - - if (_parent.Labels == null) - { - AppendLog(-1, StrLeeresLabelArray); - } - - if (_parent.Messages == null) - { - AppendLog(-1, StrLeeresMessageArray); - } - - if (_parent.Variables == null) - { - AppendLog(-1, StrKeinSystemVariab); - } - - ResetStateForCompile(); - _parent.TokenCode = []; - var parseResults = new List>?>(); - - int lineIndex = 0; - foreach (var line in _parent.SourceCode) - { - parseResults.Add(ParseLine(_parent.CCommand, line, out int parseError)); - if (parseError > 0 && string.IsNullOrWhiteSpace(line)) - { - AppendLog(lineIndex, StrFehlerBeimParsen + $"{parseError}"); - } - lineIndex++; - } - - lineIndex = 0; - foreach (var parseTree in parseResults) - { - switch (BuildCommand(parseTree, _parent.TokenCode, 0, lineIndex++, out string errorText)) - { - case BCErr.BC_ErrExpression: - AppendLog(lineIndex, StrFehlerBeiAusdruck + errorText); - break; - case BCErr.BC_SyntaxError: - AppendLog(lineIndex, StrSyntaxError + errorText); - break; - case BCErr.BC_UnknownPlaceHolder: - AppendLog(lineIndex, StrUnbekannterPlatzhal + errorText); - break; - case BCErr.BC_Exception: - AppendLog(lineIndex, StrFehlerInBuildComm); - break; - case BCErr.BC_CharsetErr: - AppendLog(lineIndex, StrUngueltigesZeichenF + errorText); - break; - case BCErr.BC_FaultyRef: - AppendLog(lineIndex, StrReferenzNichtGefun); - break; - } - } - - lineIndex = 0; - foreach (var parseTree in parseResults) - { - if (_parent.TokenCode[lineIndex++].Token is EDriveToken.tt_goto) - { - BuildCommand(parseTree, _parent.TokenCode, 0, lineIndex - 1, out _); - } - } - - _parent.Labels = [.. _labelsByName.Values]; - - var vars = new List(_variablesByName.Values); - vars.Sort((a, b) => a.Index.CompareTo(b.Index)); - _parent.Variables = vars; - - _parent.Messages = [.. _messagesList]; - - return true; - } - } -} diff --git a/Transpiler_pp/TranspilerLib.DriveBASIC/Models/DriveCompiler.Decompile.cs b/Transpiler_pp/TranspilerLib.DriveBASIC/Models/DriveCompiler.Decompile.cs deleted file mode 100644 index 07f597600..000000000 --- a/Transpiler_pp/TranspilerLib.DriveBASIC/Models/DriveCompiler.Decompile.cs +++ /dev/null @@ -1,205 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Globalization; -using System.Linq; -using BaseLib.Helper; -using TranspilerLib.DriveBASIC.Data; -using TranspilerLib.DriveBASIC.Data.Interfaces; -using static TranspilerLib.DriveBASIC.Data.ParseDefinitions; - -namespace TranspilerLib.DriveBASIC.Models; - -public partial class DriveBasic -{ - public void Decompile() - => new Decompiler(this).Decompile(); - - public class Decompiler(DriveBasic parent) - { - public void Decompile() - { - var i = 0; - var indent = 2; - var hasLabelPrefix = false; - string sourceLine = string.Empty; - - IList result = []; - foreach (var cmd in parent.TokenCode) - { - if (cmd.Token is EDriveToken.tt_end or EDriveToken.tt_else) - { - indent -= 4; - } - if (cmd.Token is EDriveToken.tte_if && cmd.SubToken % 64 == 1) - { - indent += 4; - } - - sourceLine = DecompileTC(cmd, hasLabelPrefix, i); - if (hasLabelPrefix || sourceLine.StartsWith("//", StringComparison.Ordinal)) - { - result.Add(new string(' ', indent) + sourceLine); - } - else - { - result.Add(new string(' ', indent + 4) + sourceLine); - } - - if (cmd.Token is EDriveToken.tt_else or EDriveToken.tte_if or EDriveToken.tte_while - or EDriveToken.tt_for || cmd.Token == EDriveToken.tt_Nop && cmd.SubToken == 5) - { - indent += 4; - } - - i++; - } - parent.SourceCode = result; - } - - private string DecompileTC(IDriveCommand cmd, bool hasLabelPrefix, int index) - { - ParseDef? found = null; - foreach (var definition in parent.parseDefs.Where(o => o.Token == cmd.Token)) - { - if ((DefinitionUsesExpression(definition.text) ? cmd.SubToken & 0b11000000 : cmd.SubToken) == definition.SubToken) - { - found = definition; - break; - } - } - - string result; - if (found != null && found.text != null) - { - if (cmd.Token == EDriveToken.tt_Nop && cmd.SubToken == 5) - { - cmd.Par1 = index; - } - result = found.text!; - } - else - { - result = string.Empty; - } - - int nextPlaceholder = result.GetNextPlaceHolder(); - while (nextPlaceholder < result.Length) - { - result = SubstitutePlaceHolder(result, cmd); - nextPlaceholder = result.GetNextPlaceHolder(); - } - - if (cmd.Token != EDriveToken.tt_Nop || cmd.SubToken != 5) - { - for (int k = 0; k < parent.Labels?.Count; k++) - { - if (parent.Labels[k].Index == index) - { - result = $"{parent.Labels[k].Name}: {result}"; - } - } - } - - return result; - } - - private string SubstitutePlaceHolder(string line, IDriveCommand cmd) - { - int placeholderPos = line.GetNextPlaceHolder(); - int placeholderEnd = line.IndexOf('>', placeholderPos); - if (placeholderPos >= 0 && placeholderEnd > placeholderPos) - { - var placeholderToken = line.Substring(placeholderPos, placeholderEnd - placeholderPos + 1); - if (parent.IsSystemPlaceholder(placeholderToken, out _)) - { - switch (parent.ParsePlaceholderIndex(placeholderToken)) - { - case 0: - return line.Replace(placeholderToken, GetLabelText(cmd.Par1)); - case 1: - return line.Replace(placeholderToken, GetMessageText(cmd.Par1)); - case 2: - return line.Replace(placeholderToken, GetVariableText(cmd.Par1)); - case 3: - return line.Replace(placeholderToken, GetVariableText(cmd.Par2)); - case 4: - return line.Replace(placeholderToken, GetVariableText((int)Math.Round(cmd.Par3))); - case 5: - return line.Replace(placeholderToken, cmd.Par3.ToString(CultureInfo.InvariantCulture)); - case 6: - return line.Replace(placeholderToken, cmd.Par1.ToString(CultureInfo.InvariantCulture)); - case 7: - return line.Replace(placeholderToken, cmd.Par2.ToString(CultureInfo.InvariantCulture)); - case 8: - return line.Replace(placeholderToken, ((int)Math.Round(cmd.Par3)).ToString(CultureInfo.InvariantCulture)); - case 9: - return line.Replace(placeholderToken, parent.GetAxisName(cmd.Par1)); - case 10: - return line.Replace(placeholderToken, " "); - default: - return line; - } - } - else if (placeholderToken.Equals(CExpression, StringComparison.OrdinalIgnoreCase)) - { - foreach (var expression in parent.expressionNormals) - { - if ((cmd.SubToken & 63) == expression.Item1 && expression.Item2 == (cmd.Par2 != 0)) - { - return line.Replace(placeholderToken, expression.Item3); - } - } - } - else - { - for (int i = 0; i < parent.PlaceHolderSubst.Length; i++) - { - if (parent.PlaceHolderSubst[i].PlaceHolder.Equals(placeholderToken, StringComparison.OrdinalIgnoreCase)) - { - return line.Replace(placeholderToken, parent.PlaceHolderSubst[i].text); - } - } - } - } - - return line; - } - - private string GetLabelText(int par1) - { - var label = parent.Labels.FirstOrDefault(l => l.Index == par1); - return label != null ? label.Name ?? par1.ToString() : par1.ToString(); - } - - private string GetMessageText(int par1) - { - var message = par1 >= 0 && par1 < parent.Messages.Count ? parent.Messages[par1] : null; - return message ?? $"#{par1}"; - } - - private string GetVariableText(int value) - { - int labelIndex; - int axis; - if (value >= DimensionBase) - { - labelIndex = ((value - DimensionBase) / 6) + PointBase; - axis = ((value - DimensionBase) % 6) + 1; - } - else - { - labelIndex = value; - axis = 0; - } - - var variable = parent.Variables.FirstOrDefault(var => var.Index == labelIndex); - var name = variable != null ? variable.Name ?? $"#{labelIndex}" : $"#{labelIndex}"; - if (axis > 0) - { - name += parent.GetAxisName(axis); - } - return name; - } - - } -} diff --git a/Transpiler_pp/TranspilerLib.DriveBASIC/Models/DriveCompiler.Emit.cs b/Transpiler_pp/TranspilerLib.DriveBASIC/Models/DriveCompiler.Emit.cs deleted file mode 100644 index 4a7ee0f52..000000000 --- a/Transpiler_pp/TranspilerLib.DriveBASIC/Models/DriveCompiler.Emit.cs +++ /dev/null @@ -1,546 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Globalization; -using System.Linq; -using System.Runtime.ConstrainedExecution; -using TranspilerLib.DriveBASIC.Data; -using TranspilerLib.DriveBASIC.Data.Interfaces; - -namespace TranspilerLib.DriveBASIC.Models; - -public partial class DriveBasic -{ - public Compiler.BCErr BuildCommand(IReadOnlyList>? parseTree, IList tokenBuffer, int level, int pc, out string errorText)=> - new Compiler(this).BuildCommand(parseTree, tokenBuffer, level, pc, out errorText); - - - public partial class Compiler - { - - private IList<(EDriveToken Token, int SubToken, bool xExprToken, EDriveToken ReferencingToken, int ReferencingSubtoken, bool Backward, bool xRefExpr)> ReferencingToken; - - private void InitCompilerEmit(IEnumerable<(EDriveToken Token, int SubToken, EDriveToken ReferencingToken, int ReferencingSubtoken, bool Backward)> refTokenBase) - { - bool b, b2; - ReferencingToken = refTokenBase.Select( - o => (o.Token, (b = TokenUsesExpression(o.Token)) && o.SubToken != -1 ? o.SubToken * 64 : o.SubToken, b, - o.ReferencingToken, (b2 = TokenUsesExpression(o.ReferencingToken)) && o.ReferencingSubtoken != -1 ? o.ReferencingSubtoken * 64 : o.ReferencingSubtoken, - o.Backward, b2)).ToList(); - } - public BCErr BuildCommand(IReadOnlyList>? parseTree, IList tokenBuffer, int level, int pc, out string errorText) - { - errorText = string.Empty; - if (parseTree == null) - { - errorText = StrSyntaxError; - return BCErr.BC_SyntaxError; - } - - var builder = new CommandBuilderState(); - - try - { - var result = ProcessNode(parseTree, builder, tokenBuffer, level, pc, out errorText); - if (result != BCErr.BC_OK) - return result; - - if (!builder.HasToken) - { - errorText = StrSyntaxError; - return BCErr.BC_SyntaxError; - } - - EnsureTokenSlot(tokenBuffer, pc); - tokenBuffer[pc] = builder.ToDriveCommand(); - return BCErr.BC_OK; - } - catch (Exception ex) - { - errorText = ex.Message; - return BCErr.BC_Exception; - } - } - - private BCErr ProcessNode(IReadOnlyList> nodes, CommandBuilderState builder, IList tokenBuffer, int level, int pc, out string error) - { - error = string.Empty; - if (nodes.Count == 0) - { - error = StrSyntaxError; - return BCErr.BC_SyntaxError; - } - - if (level >= MaxRecursionDepth) - { - error = StrFehlerInBuildComm; - return BCErr.BC_SyntaxError; - } - - if (nodes[0].Value == null) - { - error = StrSyntaxError; - return BCErr.BC_SyntaxError; - } - - int ruleIndex; - try - { - ruleIndex = Convert.ToInt32(nodes[0].Value, CultureInfo.InvariantCulture); - } - catch - { - error = StrSyntaxError; - return BCErr.BC_SyntaxError; - } - - var placeholder = nodes[0].Key ?? string.Empty; - var isTokenNode = placeholder.Equals(_parent.CToken, StringComparison.OrdinalIgnoreCase); - var isExpressionNode = placeholder.Equals(CExpression, StringComparison.OrdinalIgnoreCase); - var isCommandNode = placeholder.Equals(_parent.CCommand, StringComparison.OrdinalIgnoreCase); - - if (isTokenNode) - { - if (ruleIndex < 0 || ruleIndex >= _parent.parseDefs.Length) - { - error = StrSyntaxError; - return BCErr.BC_SyntaxError; - } - var def = _parent.parseDefs[ruleIndex]; - builder.Initialize(def.Token, def.SubToken); - } - else if (isExpressionNode) - { - if (ruleIndex < 0 || ruleIndex >= _parent.expressionNormals.Count) - { - error = StrSyntaxError; - return BCErr.BC_SyntaxError; - } - builder.AddSubToken(_parent.expressionNormals[ruleIndex].Item1); - } - else if (isCommandNode) - { - RegisterInlineLabels(nodes, pc); - } - else - { - if (ruleIndex < 0 || ruleIndex >= _parent.PlaceHolderSubst.Length) - { - error = StrSyntaxError; - return BCErr.BC_SyntaxError; - } - builder.AddSubToken(_parent.PlaceHolderSubst[ruleIndex].Number); - } - - foreach (var child in nodes) - { - if (_parent.IsSystemPlaceholder(child.Key, out _) - && !child.Key.Equals(_parent.CToken, StringComparison.OrdinalIgnoreCase) - && !child.Key.Equals(ParseDefinitions.CTToken, StringComparison.OrdinalIgnoreCase)) - { - var placeholderIndex = _parent.ParsePlaceholderIndex(child.Key); - if (placeholderIndex < 0) - { - error = child.Key ?? string.Empty; - return BCErr.BC_UnknownPlaceHolder; - } - - var sysResult = HandleSystemPlaceholder(placeholderIndex, child.Value, builder, isCommandNode, level, pc, out error); - if (sysResult != BCErr.BC_OK) - return sysResult; - continue; - } - - if (child.Value is IReadOnlyList> nested) - { - var nestedResult = ProcessNode(nested, builder, tokenBuffer, level + 1, pc, out error); - if (nestedResult != BCErr.BC_OK) - return nestedResult; - } - else - { - var literal = (child.Value as string)?.Trim() ?? string.Empty; - if (!string.IsNullOrEmpty(literal)) - { - error = literal; - return BCErr.BC_UnknownPlaceHolder; - } - } - } - - if (isTokenNode) - { - var refResult = ResolveReferences(builder, tokenBuffer, pc, out error); - if (refResult != BCErr.BC_OK) - return refResult; - } - - return BCErr.BC_OK; - } - - private void RegisterInlineLabels(IReadOnlyList> node, int pc) - { - for (int i = 1; i < node.Count; i++) - { - if (IsLabelPlaceholder(node[i].Key) && node[i].Value is string labelText && !string.IsNullOrWhiteSpace(labelText)) - { - SetLabel(labelText, pc); - } - } - } - - private bool IsLabelPlaceholder(string? placeholder) - => !string.IsNullOrEmpty(placeholder) - && _parent.IsSystemPlaceholder(placeholder!, out _) - && placeholder!.EndsWith("Label>", StringComparison.OrdinalIgnoreCase); - - private BCErr HandleSystemPlaceholder(int placeholderIndex, object? rawValue, CommandBuilderState builder, bool isCommandNode, int level, int pc, out string error) - { - error = string.Empty; - var text = (rawValue as string)?.Trim() ?? rawValue?.ToString()?.Trim() ?? string.Empty; - - switch (placeholderIndex) - { - case 0: - if (isCommandNode) - return BCErr.BC_OK; - var definitionTarget = level < 1 || (builder.Token == EDriveToken.tt_Nop && builder.SubToken == 5) ? pc : -1; - var labelIndex = GetLabelIndex(text, definitionTarget); - builder.Param1 = labelIndex >= 0 ? labelIndex : ushort.MaxValue; - return BCErr.BC_OK; - case 1: - if (builder.Token == EDriveToken.tt_Nop && builder.SubToken == 3) - { - GetMessageNumber(text, builder.Param1); - } - else - { - builder.Param1 = GetMessageNumber(text); - } - return BCErr.BC_OK; - case 2: - builder.Param1 = GetVariableNumber(text); - return BCErr.BC_OK; - case 3: - builder.Param2 = GetVariableNumber(text); - return BCErr.BC_OK; - case 4: - builder.Param3 = GetVariableNumber(text); - return BCErr.BC_OK; - case 5: - case 8: - if (!TryParseFloatValue(text, out var floatValue)) - { - error = text; - return BCErr.BC_SyntaxError; - } - builder.Param3 = floatValue; - return BCErr.BC_OK; - case 6: - if (!TryParseIntValue(text, out var intValue1)) - { - error = text; - return BCErr.BC_SyntaxError; - } - builder.Param1 = intValue1; - return BCErr.BC_OK; - case 7: - if (!TryParseIntValue(text, out var intValue2)) - { - error = text; - return BCErr.BC_SyntaxError; - } - builder.Param2 = intValue2; - return BCErr.BC_OK; - case 9: - var axis = GetAxisNumber(text); - if (axis <= 0) - { - error = text; - return BCErr.BC_SyntaxError; - } - builder.Param1 = axis; - return BCErr.BC_OK; - default: - if (!string.IsNullOrEmpty(text)) - { - error = text; - return BCErr.BC_UnknownPlaceHolder; - } - return BCErr.BC_OK; - } - } - - private CompilerLabel EnsureLabel(string labelName) - { - var normalized = NormalizeIdentifier(labelName); - if (!_labelsByName.TryGetValue(normalized, out var label)) - { - label = new CompilerLabel { Name = normalized }; - _labelsByName[normalized] = label; - } - return label; - } - - private void SetLabel(string labelName, int destinationPc) - { - if (destinationPc < 0 || string.IsNullOrWhiteSpace(labelName)) - return; - var label = EnsureLabel(labelName); - label.Index = destinationPc; - } - - private int GetLabelIndex(string labelName, int destinationPc) - { - if (string.IsNullOrWhiteSpace(labelName)) - return -1; - var label = EnsureLabel(labelName); - if (destinationPc >= 0) - label.Index = destinationPc; - return label.Index; - } - - private int GetMessageNumber(string text, int? forcedId = null) - { - if (string.IsNullOrWhiteSpace(text)) - return 0; - var normalized = NormalizeIdentifier(text); - if (!_messageNumbers.TryGetValue(normalized, out var number)) - { - number = forcedId ?? ++_maxMessage; - if (forcedId.HasValue && forcedId.Value > _maxMessage) - _maxMessage = forcedId.Value; - - _messageNumbers[normalized] = number; - _messagesList.Add(text.Trim()); - } - return number; - } - - private int GetVariableNumber(string name) - { - if (string.IsNullOrWhiteSpace(name)) - return 0; - - var trimmedName = name.Trim(); - var normalized = NormalizeIdentifier(trimmedName); - var type = DetectVariableType(normalized); - - if (type == EVarType.vt_dimension && normalized.Length >= 2) - { - var axisChar = trimmedName[trimmedName.Length - 1]; - var baseDisplayName = trimmedName.Substring(0, trimmedName.Length - 1); - var baseVariable = EnsureVariableEntry(baseDisplayName, EVarType.vt_point); - var axis = GetAxisNumber(axisChar.ToString()); - if (axis <= 0) - return 0; - return DimensionBase + (baseVariable.Index - PointBase) * 6 + axis - 1; - } - - var resolvedType = type == EVarType.vt_dimension ? EVarType.vt_point : type; - var variable = EnsureVariableEntry(trimmedName, resolvedType); - return variable.Index; - } - - private CompilerVariable EnsureVariableEntry(string displayName, EVarType type) - { - var normalized = NormalizeIdentifier(displayName); - if (!_variablesByName.TryGetValue(normalized, out var variable)) - { - variable = new CompilerVariable - { - Name = normalized, - Type = type, - Index = AllocateVarNo(type) - }; - _variablesByName[normalized] = variable; - } - return variable; - } - - private int AllocateVarNo(EVarType type) - { - var key = type switch - { - EVarType.vt_universal => EVarType.vt_real, - EVarType.vt_dimension => EVarType.vt_point, - _ => type - }; - - var current = _varMax.TryGetValue(key, out var max) ? max : 0; - current++; - _varMax[key] = current; - return current + (int)key * VarTypeStride; - } - - private static EVarType DetectVariableType(string name) - { - if (string.IsNullOrEmpty(name)) - return EVarType.vt_real; - if (name.EndsWith("?", StringComparison.Ordinal)) - return EVarType.vt_universal; - if (name.EndsWith("&", StringComparison.Ordinal)) - return EVarType.vt_bool; - if (name.EndsWith("%", StringComparison.Ordinal)) - return EVarType.vt_real; - if (name.EndsWith(".", StringComparison.Ordinal)) - return EVarType.vt_point; - if (name.Length >= 2 && name.LastIndexOf('.') == name.Length - 2) - return EVarType.vt_dimension; - return EVarType.vt_real; - } - - private static string NormalizeIdentifier(string? text) - => text?.Trim().ToUpperInvariant() ?? string.Empty; - - private static bool TryParseFloatValue(string text, out double value) - { - if (double.TryParse(text, NumberStyles.Float | NumberStyles.AllowThousands, CultureInfo.InvariantCulture, out value)) - return true; - var normalized = text.Replace(',', '.'); - if (double.TryParse(normalized, NumberStyles.Float | NumberStyles.AllowThousands, CultureInfo.InvariantCulture, out value)) - return true; - return double.TryParse(text, NumberStyles.Float | NumberStyles.AllowThousands, CultureInfo.CurrentCulture, out value); - } - - private static bool TryParseIntValue(string text, out int value) - => int.TryParse(text, NumberStyles.Integer, CultureInfo.InvariantCulture, out value); - - private static int GetAxisNumber(string? text) - { - if (string.IsNullOrWhiteSpace(text)) - return 0; - var key = char.ToLowerInvariant(text.Trim()[0]); - return AxisMap.TryGetValue(key, out var axis) ? axis : 0; - } - - private static void EnsureTokenSlot(IList tokenBuffer, int pc) - { - while (tokenBuffer.Count <= pc) - { - tokenBuffer.Add(new DriveCommand(EDriveToken.tt_Nop)); - } - } - - private BCErr ResolveReferences(CommandBuilderState builder, IList tokenBuffer, int pc, out string error) - { - error = string.Empty; - bool backwardRuleHit = false; - bool backwardResolved = false; - bool forwardRuleHit = false; - bool forwardResolved = false; - int forwardTarget = -1; - - foreach (var rule in ReferencingToken) - { - bool matchesBackward = rule.Backward - && builder.Token == rule.Token - && (rule.SubToken == -1 || GetComparableSubToken(builder.Token, builder.SubToken, rule.xExprToken) == rule.SubToken); - - bool matchesForward = !rule.Backward - && builder.Token == rule.ReferencingToken - && (rule.ReferencingSubtoken == -1 || GetComparableSubToken(builder.Token, builder.SubToken, rule.xRefExpr) == rule.ReferencingSubtoken); - - if (!matchesBackward && !matchesForward) - continue; - - var searchToken = matchesBackward ? rule.ReferencingToken : rule.Token; - var searchSubToken = matchesBackward ? rule.ReferencingSubtoken : rule.SubToken; - var found = FindReferenceTarget(tokenBuffer, pc - 1, searchToken, searchSubToken); - - if (matchesBackward) - { - backwardRuleHit = true; - if (found >= 0) - { - builder.Param1 = found; - backwardResolved = true; - } - } - else - { - forwardRuleHit = true; - if (found > forwardTarget) - { - forwardTarget = found; - forwardResolved = found >= 0; - } - } - } - - if (forwardRuleHit) - { - if (forwardResolved && forwardTarget >= 0) - { - UpdateCommandParam1(tokenBuffer, forwardTarget, pc); - } - else - { - return BCErr.BC_FaultyRef; - } - } - - if (backwardRuleHit && !backwardResolved) - return BCErr.BC_FaultyRef; - - return BCErr.BC_OK; - } - - private int GetComparableSubToken(EDriveToken token, int subToken, bool xExpr) - => xExpr ? subToken & 0b1100_0000 : subToken; - - private int FindReferenceTarget(IList tokenBuffer, int startIndex, EDriveToken searchToken, int searchSubToken) - { - var index = startIndex; - while (index >= 0 && index < tokenBuffer.Count) - { - var jumped = false; - var candidate = tokenBuffer[index]; - foreach (var rule in ReferencingToken.Where(r => r.Backward && r.Token == candidate.Token)) - { - if ((rule.SubToken == -1 || GetComparableSubToken(candidate.Token, candidate.SubToken, rule.xExprToken) == rule.SubToken) - && candidate.Par1 <= index) - { - index = candidate.Par1 - 1; - jumped = true; - break; - } - } - - if (!jumped) - { - if (candidate.Token == searchToken - && (searchSubToken == -1 || GetComparableSubToken(candidate.Token, candidate.SubToken, TokenUsesExpression(candidate.Token)) == searchSubToken)) - { - return index; - } - - index--; - } - } - - return -1; - } - - private void UpdateCommandParam1(IList tokenBuffer, int index, int newValue) - { - if (index < 0) - return; - EnsureTokenSlot(tokenBuffer, index); - tokenBuffer[index].Par1 = newValue; - } - - private bool TokenUsesExpression(EDriveToken token) - => _parent.parseDefs.Any(def => def.Token == token && DefinitionUsesExpression(def.text)); - - public enum BCErr - { - BC_OK, - BC_ErrExpression, - BC_SyntaxError, - BC_UnknownPlaceHolder, - BC_Exception, - BC_CharsetErr, - BC_FaultyRef - } - } -} diff --git a/Transpiler_pp/TranspilerLib.DriveBASIC/Models/DriveCompiler.Parse.cs b/Transpiler_pp/TranspilerLib.DriveBASIC/Models/DriveCompiler.Parse.cs deleted file mode 100644 index c896264d5..000000000 --- a/Transpiler_pp/TranspilerLib.DriveBASIC/Models/DriveCompiler.Parse.cs +++ /dev/null @@ -1,148 +0,0 @@ -using System; -using System.Collections.Generic; -using BaseLib.Helper; -using TranspilerLib.DriveBASIC.Data; - -namespace TranspilerLib.DriveBASIC.Models; - -public partial class DriveBasic -{ - public IReadOnlyList>? ParseLine(string placeholder, string line, out int errp)=> - new Compiler(this).ParseLine(placeholder,line, out errp); - - public bool TestPlaceHolderCharset(string placeholder, string text) => - new Compiler(this).TestPlaceHolderCharset(placeholder, text); - - public partial class Compiler - { - - public bool TestPlaceHolderCharset(string placeholder, string text) - { - foreach (var sysPlaceHolder in ParseDefinitions.SysPHCharset) - { - var result = true; - if (placeholder.StartsWith(sysPlaceHolder.Placeholder, StringComparison.OrdinalIgnoreCase)) - { - var separatorPos = 0; - if (sysPlaceHolder.HasPointAsSep) - separatorPos = text.IndexOf('.'); - - for (var index = 0; index < text.Length; index++) - { - if (index == 0) - result &= sysPlaceHolder.first.Contains(text[index]); - else if (index == text.Length - 1 && sysPlaceHolder.last != null) - result &= sysPlaceHolder.last.Contains(text[index]); - else if (sysPlaceHolder.inner != null && index != separatorPos) - result &= sysPlaceHolder.inner.Contains(text[index]); - else - result &= index == separatorPos; - } - - if (result) - return true; - } - } - - return false; - } - - public IReadOnlyList>? ParseLine(string placeholder, string line, out int errp) - { - errp = 1; - placeholder ??= string.Empty; - line ??= string.Empty; - - var isTokenPlaceholder = placeholder.Equals(_parent.CToken, StringComparison.OrdinalIgnoreCase); - var isExpressionPlaceholder = placeholder.Equals(CExpression, StringComparison.OrdinalIgnoreCase); - - int iterationCount = isTokenPlaceholder - ? _parent.parseDefs.Length - : isExpressionPlaceholder - ? _parent.expressionNormals.Count - : _parent.PlaceHolderSubst.Length; - - var trimmedLine = line.Trim(); - - for (int index = 0; index < iterationCount; index++) - { - string testedPlaceholder = isTokenPlaceholder - ? _parent.CToken - : isExpressionPlaceholder - ? CExpression - : _parent.PlaceHolderSubst[index].PlaceHolder; - - if (!placeholder.Equals(testedPlaceholder, StringComparison.OrdinalIgnoreCase)) - continue; - - string matchingText = (isTokenPlaceholder - ? _parent.parseDefs[index].text - : isExpressionPlaceholder - ? _parent.expressionNormals[index].Item3 - : _parent.PlaceHolderSubst[index].text) ?? string.Empty; - - matchingText = matchingText.MTSpaceTrim(); - - var wildcardMatches = new List>(); - if (!StringUtils.TryPlaceHolderMatching(trimmedLine, matchingText, wildcardMatches)) - continue; - - var resultMatches = new List>(wildcardMatches.Count + 1) - { - new(testedPlaceholder, index) - }; - - bool success = true; - int localError = 0; - - for (int matchIndex = 0; matchIndex < wildcardMatches.Count; matchIndex++) - { - var currentMatch = wildcardMatches[matchIndex]; - var matchedPlaceholder = currentMatch.Key; - var matchedText = currentMatch.Value?.Trim() ?? string.Empty; - - bool isCToken = matchedPlaceholder.Equals(ParseDefinitions.CTToken, StringComparison.OrdinalIgnoreCase); - bool isSystemPlaceholder = _parent.IsSystemPlaceholder(matchedPlaceholder, out _); - - if (isSystemPlaceholder && !isCToken) - { - if (!TestPlaceHolderCharset(matchedPlaceholder, matchedText)) - { - success = false; - localError = 1 + matchIndex; - break; - } - resultMatches.Add(new KeyValuePair(matchedPlaceholder, matchedText)); - continue; - } - - var nestedPlaceholder = isCToken ? _parent.CToken : matchedPlaceholder; - var nested = ParseLine(nestedPlaceholder, matchedText, out var nestedError); - if (nestedError != 0) - { - success = false; - localError = nestedError + (matchIndex + 1) * 2; - break; - } - - object? nestedValue = (object?)nested ?? matchedText; - resultMatches.Add(new KeyValuePair(matchedPlaceholder, nestedValue)); - } - - if (success) - { - errp = 0; - return resultMatches; - } - - if (localError != 0) - errp = localError; - } - - return null; - } - - bool CheckPlaceholderCharset(string placeholderToken, string trimmed) - => !_parent.IsSystemPlaceholder(placeholderToken, out _) || TestPlaceHolderCharset(placeholderToken, trimmed); - } -} diff --git a/Transpiler_pp/TranspilerLib.DriveBASIC/Models/DriveCompiler.cs b/Transpiler_pp/TranspilerLib.DriveBASIC/Models/DriveCompiler.cs deleted file mode 100644 index a5df5d519..000000000 --- a/Transpiler_pp/TranspilerLib.DriveBASIC/Models/DriveCompiler.cs +++ /dev/null @@ -1,162 +0,0 @@ -using BaseLib.Helper; -using System; -using System.Collections.Generic; -using System.Globalization; -using System.Linq; -using TranspilerLib.Data; -using TranspilerLib.DriveBASIC.Data; -using TranspilerLib.DriveBASIC.Data.Interfaces; - -namespace TranspilerLib.DriveBASIC.Models; - -public partial class DriveBasic -{ - // resourcestring - const string - StrKeineQuelleIstZw = "Keine Quelle, ist zwingend erforderlich", - StrLeererTokenCodeOK = "Leerer TokenCode (OK)", - StrLeeresLabelArray = "Leeres Label-Array (OK)", - StrFehlerBeimParsen = "Fehler beim Parsen :", - StrKeinSystemVariab = "Kein (System-)Variablen-Array (OK)", - StrLeeresMessageArray = "Leeres Message-Array (OK)", - StrFehlerBeiAusdruck = "Fehler bei Ausdruck", - StrSyntaxError = "Syntax Error :", - StrUnbekannterPlatzhal = "Unbekannter Platzhalter", - StrFehlerInBuildComm = "Fehler in Build-Command", - StrUngueltigesZeichenF = "Ungültiges Zeichen für Platzhalter: ", - StrReferenzNichtGefun = "Referenz nicht gefunden "; - - public IList Log { get; set; } - public IEnumerable SourceCode { get; set; } - public IList Messages { get; set; } - public IList Variables { get; set; } - public IList Labels { get; set; } - public IList TokenCode { get; set; } - - ParseDef[] parseDefs; - ParseDef2[] PlaceHolderSubst = ParseDefinitions.PlaceHolderDefBase; - IList<(int, bool, string)> expressionNormals = []; - public IReadOnlyList<(int, bool, string)> ExpressionNormals => expressionNormals.ToList(); - - public static string CExpression { get; } = ParseDefinitions.CExpression; - private readonly string CToken = ParseDefinitions.CToken; - private readonly string CCommand = ParseDefinitions.CCommand; - - string[] PlaceHolders = ParseDefinitions.ParseStrings; - Dictionary TextsPerToken = []; - Dictionary Sindex = []; - char[] replace = ['§', 'm', '¹', '²', '³', 'f', '1', '2', '3', 'x', ' ', 't', 'a', '¹', '²', '³']; - - private static readonly Dictionary AxisMap = new() - { - ['x'] = 1, - ['1'] = 1, - ['y'] = 2, - ['2'] = 2, - ['z'] = 3, - ['3'] = 3, - ['a'] = 4, - ['4'] = 4, - ['b'] = 5, - ['5'] = 5, - ['c'] = 6, - ['6'] = 6 - }; - - - private const int VarTypeStride = 0x4000; - private const int PointBase = 0x8000; - private const int DimensionBase = 0xC000; - private const int MaxRecursionDepth = 15; - - public DriveBasic() - { - parseDefs = ParseDefinitions.ParseDefBase - .Select(def => DefinitionUsesExpression(def.text) - ? def with { SubToken = def.SubToken * 64 } - : def) - .ToArray(); - - foreach (var def in parseDefs) - { - if (!TextsPerToken.TryGetValue(def.Token, out _)) - TextsPerToken.Add(def.Token, 0); - TextsPerToken[def.Token] += 1; - } - foreach (EDriveToken def in Enum.GetValues(typeof(EDriveToken))) - { - if (!Sindex.TryGetValue(def, out _)) - Sindex.Add(def, 0); - if (Sindex.TryGetValue(def - 1, out int s1)) - Sindex[def] = s1 + (TextsPerToken.TryGetValue(def, out int i) ? i : 0); - } - - BuildExpressionNormal(CExpression, expressionNormals.Add); - } - - private string GetAxisName(int par1) - => AxisMap.ContainsValue(par1) ? $"{AxisMap.Keys.ToList()[AxisMap.Values.IndexOf(par1)]}" : par1.ToString(CultureInfo.InvariantCulture); - - - private int ParsePlaceholderIndex(string placeholderToken) - { - for (int i = 0; i < PlaceHolders.Length; i++) - { - if (placeholderToken.EndsWith(PlaceHolders[i], StringComparison.OrdinalIgnoreCase)) - return i; - } - return -1; - } - - private bool IsSystemPlaceholder(string candidate, out bool setParam2Used) - { - foreach (var sysPlaceHolder in ParseDefinitions.SysPHCharset) - { - if (candidate.StartsWith(sysPlaceHolder.Placeholder, StringComparison.OrdinalIgnoreCase)) - { - setParam2Used = candidate.EndsWith(":PARAM2>", StringComparison.OrdinalIgnoreCase); - return true; - } - } - - setParam2Used = false; - return false; - } - public void BuildExpressionNormal(string line, Action<(int, bool, string)> actAdd, int subToken = 0, bool param2Used = false) - { - var startPos = line.GetNextPlaceHolder(); - string nonSysPlaceholder = string.Empty; - while (startPos < line.Length && nonSysPlaceholder == string.Empty) - { - var endPos = line.IndexOf('>', startPos); - string candidate = line.Substring(startPos, endPos - startPos + 1); - if (IsSystemPlaceholder(candidate, out bool setParam2Used)) - { - param2Used |= setParam2Used; - } - else - { - nonSysPlaceholder = candidate; - } - startPos = line.GetNextPlaceHolder(endPos + 1); - } - - if (nonSysPlaceholder == string.Empty) - { - actAdd?.Invoke((subToken, param2Used, line)); - return; - } - - foreach (var substitution in PlaceHolderSubst) - { - if (substitution.PlaceHolder == nonSysPlaceholder) - { - BuildExpressionNormal(line.Replace(nonSysPlaceholder, substitution.text), actAdd, subToken + substitution.Number, param2Used); - } - } - } - - private static bool DefinitionUsesExpression(string? text) - => !string.IsNullOrEmpty(text) && text.IndexOf(CExpression, StringComparison.OrdinalIgnoreCase) >= 0; - -} diff --git a/Transpiler_pp/TranspilerLib.DriveBASIC/TranspilerLib.DriveBASIC.csproj b/Transpiler_pp/TranspilerLib.DriveBASIC/TranspilerLib.DriveBASIC.csproj deleted file mode 100644 index 0ee5b9907..000000000 --- a/Transpiler_pp/TranspilerLib.DriveBASIC/TranspilerLib.DriveBASIC.csproj +++ /dev/null @@ -1,24 +0,0 @@ - - - - net481;net8.0 - enable - - - - - $(TargetFrameworks);net9.0 - - - $(TargetFrameworks);net10.0 - - - - all - runtime; build; native; contentfiles; analyzers; buildtransitive - - - - - - diff --git a/Transpiler_pp/TranspilerLib.IEC.Tests/AssemblyInfo.cs b/Transpiler_pp/TranspilerLib.IEC.Tests/AssemblyInfo.cs deleted file mode 100644 index ba900e03a..000000000 --- a/Transpiler_pp/TranspilerLib.IEC.Tests/AssemblyInfo.cs +++ /dev/null @@ -1,3 +0,0 @@ -using Microsoft.VisualStudio.TestTools.UnitTesting; - -[assembly: Parallelize(Workers =0, Scope = ExecutionScope.MethodLevel)] diff --git a/Transpiler_pp/TranspilerLib.IEC.Tests/Models/ExtOutputTests.cs b/Transpiler_pp/TranspilerLib.IEC.Tests/Models/ExtOutputTests.cs deleted file mode 100644 index b37fd6574..000000000 --- a/Transpiler_pp/TranspilerLib.IEC.Tests/Models/ExtOutputTests.cs +++ /dev/null @@ -1,148 +0,0 @@ -using Microsoft.VisualStudio.TestTools.UnitTesting; -using System; -using System.IO; -using System.Text; -using System.Xml; -using TranspilerLib.Models; - -namespace TranspilerLib.IEC.Models.Tests; - -[TestClass] -public class ExtOutputTests -{ - private static string RunExtOutput(string xml, out string debug) - { - var sb = new StringBuilder(); - var db = new StringBuilder(); - using var sr = new StringReader(xml); - using var xr = XmlReader.Create(sr, new XmlReaderSettings { IgnoreComments = true, IgnoreWhitespace = false }); - var reader = new IECReader(xr); - var output = new ExtOutput(); - output.Output(reader, s => sb.Append(s), s => db.Append(s)); - debug = db.ToString(); - return sb.ToString(); - } - - [TestMethod] - public void Output_Function_With_ReturnType_Interface_InputVars_And_Body_ST() - { - var xml = """ - - ignored - - - - - - - - - - - - - - - - - - - - a := a + b; - - - - - -"""; - - var result = RunExtOutput(xml, out _); - var nl = Environment.NewLine; - var expected = new StringBuilder() - .Append($"FUNCTION Add : ") - .Append($"INT; {nl}") - .Append($"interface;{nl}") - .Append($"VAR_INPUT{nl}") - .Append($" a : INT; {nl}") - .Append($" b : INT; {nl}") - .Append($"END_VAR{nl}") - .Append($"BEGIN{nl}") - .Append($"a := a + b;{nl}") - .Append($"END_FUNCTION{nl}") - .ToString(); - - Assert.AreEqual(expected, result); - } - - [TestMethod] - public void Output_FunctionBlock_With_Locals_And_Body_ST() - { - var xml = """ - - - - - - - - - - - - - x := 5; - - - - - -"""; - - var result = RunExtOutput(xml, out _); - var nl = Environment.NewLine; - var expected = new StringBuilder() - .Append($"FUNCTIONBLOCK Main;") - .Append($"interface;{nl}") - .Append($"VAR{nl}") - .Append($" x : INT; {nl}") - .Append($"END_VAR{nl}") - .Append($"BEGIN{nl}") - .Append($"x := 5;{nl}") - .Append($"END_FUNCTION_BLOCK{nl}") - .ToString(); - - Assert.AreEqual(expected, result); - } - - [TestMethod] - public void Output_Union_Type_With_Variables() - { - var xml = """ - - - - - - - - - - - - - - -"""; - - var result = RunExtOutput(xml, out _); - var nl = Environment.NewLine; - var expected = new StringBuilder() - .Append($"TYPE MyUnion :{nl} UNION{nl}") - .Append($" A : INT; {nl}") - .Append($" B : BOOL; {nl}") - .Append($" END_UNION{nl}END_TYPE{nl}") - .ToString(); - - Assert.AreEqual(expected, result); - } -} diff --git a/Transpiler_pp/TranspilerLib.IEC.Tests/Models/Interpreter/IECInterpreterTests.cs b/Transpiler_pp/TranspilerLib.IEC.Tests/Models/Interpreter/IECInterpreterTests.cs deleted file mode 100644 index bfb82c50e..000000000 --- a/Transpiler_pp/TranspilerLib.IEC.Tests/Models/Interpreter/IECInterpreterTests.cs +++ /dev/null @@ -1,178 +0,0 @@ -using TranspilerLib.Models.Interpreter; -using System; -using System.Collections.Generic; -using System.Linq; -using TranspilerLib.Models.Scanner; -using TranspilerLib.Interfaces.Code; -using TranspilerLib.Data; -using TranspilerLib.IEC.Models.Scanner; - -#pragma warning disable IDE0130 // Der Namespace entspricht stimmt nicht der Ordnerstruktur. -namespace TranspilerLib.IEC.Models.Interpreter.Tests; -#pragma warning restore IDE0130 // Der Namespace entspricht stimmt nicht der Ordnerstruktur. - -[TestClass()] -public class IECInterpreterTests -{ - private static (ICodeBlock root, ICodeBlock pre) BuildLinearBlocks(params ICodeBlock[] blocks) - { - var root = new CodeBlock { Code = "ROOT", Type = CodeBlockType.Block }; - foreach (var b in blocks) - b.Parent = root; - return (root, blocks.First()); - } - - private static ICodeBlock Block(string code, CodeBlockType type) => new CodeBlock { Code = code, Type = type }; - - [TestMethod()] - public void Interpret_AssignmentChain_Works() - { - // Arrange: pre -> BEGIN -> a=b -> c=rw_ABS(b) - var pre = Block("DECL", CodeBlockType.Declaration); - var begin = Block("BEGIN", CodeBlockType.Label); - var assign1 = Block("a = b", CodeBlockType.Assignment); - var assign2 = Block("c = rw_ABS(b)", CodeBlockType.Assignment); - var (root, preForExec) = BuildLinearBlocks(pre, begin, assign1, assign2); - - var sut = new IECInterpreter(root); - var parameters = new Dictionary { ["a"] = 0, ["b"] = -2 }; - - // Act - var result = sut.Interpret(preForExec, parameters); - - // Assert - Assert.IsNull(result); - Assert.AreEqual(parameters["b"], parameters["a"]); - Assert.AreEqual(2, parameters["c"]); - } - - [TestMethod()] - public void Interpret_FunctionCall_WithMultipleArgs_Works() - { - // Arrange: pre -> BEGIN -> d=rw_CONCAT(a,b) - var pre = Block("DECL", CodeBlockType.Declaration); - var begin = Block("BEGIN", CodeBlockType.Label); - var assign = Block("d = rw_CONCAT(a,b)", CodeBlockType.Assignment); - var (root, preForExec) = BuildLinearBlocks(pre, begin, assign); - - var sut = new IECInterpreter(root); - var parameters = new Dictionary { ["a"] = "A", ["b"] = "B" }; - - // Act - sut.Interpret(preForExec, parameters); - - // Assert - Assert.AreEqual("AB", parameters["d"]); - } - - [TestMethod()] - public void Interpret_Throws_WhenBeginMissing() - { - // Arrange: pre -> stmt (no BEGIN) - var pre = Block("DECL", CodeBlockType.Declaration); - var stmt = Block("a = b", CodeBlockType.Assignment); - var (root, preForExec) = BuildLinearBlocks(pre, stmt); - - var sut = new IECInterpreter(root); - var parameters = new Dictionary { ["a"] = 0, ["b"] = 1 }; - - // Act + Assert - Assert.ThrowsExactly(() => sut.Interpret(preForExec, parameters)); - } - - [TestMethod()] - public void Interpret_Throws_OnUnsupportedBlockType() - { - // Arrange: pre -> BEGIN -> unsupported(Operation) - var pre = Block("DECL", CodeBlockType.Declaration); - var begin = Block("BEGIN", CodeBlockType.Label); - var op = Block("a + b", CodeBlockType.Operation); - var (root, preForExec) = BuildLinearBlocks(pre, begin, op); - - var sut = new IECInterpreter(root); - var parameters = new Dictionary { ["a"] = 1, ["b"] = 2 }; - - // Act + Assert - Assert.ThrowsExactly(() => sut.Interpret(preForExec, parameters)); - } - - [TestMethod()] - public void Interpret_Throws_OnInvalidAssignmentSyntax() - { - // Arrange: pre -> BEGIN -> invalid assignment - var pre = Block("DECL", CodeBlockType.Declaration); - var begin = Block("BEGIN", CodeBlockType.Label); - var badAssign = Block("a = b = c", CodeBlockType.Assignment); - var (root, preForExec) = BuildLinearBlocks(pre, begin, badAssign); - - var sut = new IECInterpreter(root); - var parameters = new Dictionary { ["a"] = 0, ["b"] = 1, ["c"] = 2 }; - - // Act + Assert - Assert.ThrowsExactly(() => sut.Interpret(preForExec, parameters)); - } - - [TestMethod()] - [DataRow(IECResWords.rw_ABS, 1, true, 1)] - [DataRow(IECResWords.rw_ABS, -1, true, 1)] - [DataRow(IECResWords.rw_ABS, 0, true, 0)] - [DataRow(IECResWords.rw_ABS, -1.1, true, 1.1)] - [DataRow(IECResWords.rw_ACOS, 0.0, true, Math.PI/2)] - [DataRow(IECResWords.rw_ACOS, 0.5, true, Math.PI/3)] - [DataRow(IECResWords.rw_ASIN, 1e-9d, true, 0.0)] - [DataRow(IECResWords.rw_ASIN, 0.5, true, Math.PI/6)] - [DataRow(IECResWords.rw_ATAN, 1e-9d, true, 0.0)] - [DataRow(IECResWords.rw_ATAN, 0.5, true, 0.463647609)] - // [DataRow(IECResWords.rw_ATAN2, new object[] { 0.0, 1.0 }, true, 1.1)] - [DataRow(IECResWords.rw_CONCAT, new object[] { "a", "b" }, true, "ab")] - [DataRow(IECResWords.rw_CONCAT, new object[] { "a", "b", "c" }, true, "abc")] - [DataRow(IECResWords.rw_COS, 1e-9d, true, 1.0)] - [DataRow(IECResWords.rw_COS, Math.PI, true, -1.0)] - [DataRow(IECResWords.rw_DIV, new object[] { 5, 2 }, true, new object[] { 2, 1 })] - [DataRow(IECResWords.rw_DIV, new object[] { 5, 3 }, true, new object[] { 1, 2 })] - [DataRow(IECResWords.rw_EXP, 1e-9d, true, 1.0)] - [DataRow(IECResWords.rw_EXP, 1d, true, Math.E)] - [DataRow(IECResWords.rw_INT, 1.1, true, 1d)] - [DataRow(IECResWords.rw_INT, -1.1, true, -2d)] - [DataRow(IECResWords.rw_LEN, "abc", true, 3)] - [DataRow(IECResWords.rw_LN, 1d, true, 0.0)] - [DataRow(IECResWords.rw_LN, Math.E, true, 1.0)] - [DataRow(IECResWords.rw_LOG, 1d, true, 0.0)] - [DataRow(IECResWords.rw_LOG, 10d, true, 1.0)] - [DataRow(IECResWords.rw_MOD, new object[] { 5, 2 }, true, 1)] - [DataRow(IECResWords.rw_MOD, new object[] { 5, 3 }, true, 2)] - [DataRow(IECResWords.rw_SIN, 1e-9d, true, 0.0)] - [DataRow(IECResWords.rw_SIN, Math.PI, true, 0.0)] - [DataRow(IECResWords.rw_SQRT, 1e-20d, true, 0.0)] - [DataRow(IECResWords.rw_SQRT, 4d, true, 2.0)] - [DataRow(IECResWords.rw_TO_STRING, 1, true, "1")] - [DataRow(IECResWords.rw_TO_STRING, 1.1, true, "1,1")] - [DataRow(IECResWords.rw_TAN, 1e-9d, true, 0.0)] - [DataRow(IECResWords.rw_TAN, Math.PI, true, 0.0)] - [DataRow(IECResWords.rw_TRUNC, 1.1d, true, 1.0)] - [DataRow(IECResWords.rw_TRUNC, -1.1d, true, -1.0)] - public void SystemfunctionsTest(Enum eAct, object value,bool xExp,object exp) - { - Assert.AreEqual(xExp, IECInterpreter.systemfunctions.TryGetValue(eAct,out var methods)); - if (value is object[] values) - { - var m = methods!.FirstOrDefault(m => (values.Count() == m?.GetParameters().Count()) && m.GetParameters().First().ParameterType.IsAssignableFrom(values[0].GetType())); - if (m!.ReturnType.IsAssignableTo(typeof(double))) - Assert.AreEqual((double)exp, (double)(m?.Invoke(null, values) ?? throw new InvalidOperationException("Method returned null")), 1e-7d); - else if (m.ReturnType.IsAssignableTo(typeof((int, int))) && exp is object[] aexp) - Assert.AreEqual((aexp[0], aexp[1]), ((int,int))(m?.Invoke(null, values) ?? throw new InvalidOperationException("Method returned null"))); - else - Assert.AreEqual(exp, m?.Invoke(null, values)); - } - else - { - // if (value is int i && exp is int ) value = (double)i; - var m = methods!.First(m => m?.GetParameters().First().ParameterType.IsAssignableFrom(value.GetType())??false); - if (m.ReturnType.IsAssignableTo(typeof(double))) - Assert.AreEqual((double)exp, (double)(m?.Invoke(null, [value]) ?? throw new InvalidOperationException("Method returned null")), 1e-7); - else - Assert.AreEqual(exp, m?.Invoke(null, [value])); - } - } - -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib.IEC.Tests/Models/Scanner/IECCodeBuilderTests.cs b/Transpiler_pp/TranspilerLib.IEC.Tests/Models/Scanner/IECCodeBuilderTests.cs deleted file mode 100644 index 991fd4419..000000000 --- a/Transpiler_pp/TranspilerLib.IEC.Tests/Models/Scanner/IECCodeBuilderTests.cs +++ /dev/null @@ -1,123 +0,0 @@ -using System; -using System.Collections.Generic; -using TranspilerLib.Interfaces.Code; -using TranspilerLib.Data; -using BaseLib.Helper; -using System.Diagnostics; -using System.IO; -using System.Runtime.Serialization.Json; -using static TranspilerLib.Helper.TestHelper; -using TranspilerLib.IEC.TestData; -using TranspilerLib.Models.Scanner; - -#pragma warning disable IDE0130 // Der Namespace entspricht stimmt nicht der Ordnerstruktur. -namespace TranspilerLib.IEC.Models.Scanner.Tests; -#pragma warning restore IDE0130 // Der Namespace entspricht stimmt nicht der Ordnerstruktur. - -[TestClass()] -public class IECCodeBuilderTests -{ - private const string TokensFilePath = ".\\Resources\\IECCodeBuilder\\Test{0}\\Tokens{0}.json"; - private const string BlocksFilePath = ".\\Resources\\IECCodeBuilder\\Test{0}\\Blocks{0}.json"; - private const string BlocksTextPath = ".\\Resources\\IECCodeBuilder\\Test{0}\\Blocks{0}.txt"; - - public static IEnumerable OnIECTokenTestData => [ - ["0" , new List() { new("-", CodeBlockType.Operation, 1, 1), new("2.0", CodeBlockType.Number, 1, 3) }, GetBuildCommands("00")], - ["1" , GetTokenlist("01"), GetBuildCommands("01") ], - ["2" , GetTokenlist("02"), GetBuildCommands("02") ], - ["3" , GetTokenlist("03"), GetBuildCommands("03") ], - ["4" , GetTokenlist("04"), GetBuildCommands("04") ], - ["5" , GetTokenlist("05"), GetBuildCommands("05") ], - ["6" , GetTokenlist("06"), GetBuildCommands("06") ], - ["7" , GetTokenlist("07"), GetBuildCommands("07") ], - ]; - - private static string[]? GetBuildCommands(string sFNStumb) - { - var sFile = BlocksTextPath.Format(sFNStumb.PadLeft(2, '0')); - if (File.Exists(sFile)) - try - { - return File.ReadAllText(sFile).Split(Environment.NewLine); - } - catch (Exception ex) - { - Debug.WriteLine(ex.Message); - return null; - } - else - { - return null; - } - } - - private static object? GetTokenlist(string sFNStumb) - { - var sFile = TokensFilePath.Format(sFNStumb.PadLeft(2, '0')); - if (File.Exists(sFile)) - { - return IECTestDataClass.ReadFileObject(sFile); - } - else - { - return null; - } - } - - private IECCodeBuilder testClass; - - [TestInitialize] - public void Init() { - testClass = new IECCodeBuilder(); - } - - [TestMethod()] - public void IECCodeBuilderTest() - { - Assert.IsNotNull(testClass); - Assert.IsInstanceOfType(testClass, typeof(ICodeBuilder)); - Assert.IsInstanceOfType(testClass, typeof(IECCodeBuilder)); - var data = GetTokenlist("01"); - Assert.IsNotNull(data); - data = GetTokenlist("2"); - } - - [TestMethod()] - [DynamicData(nameof(OnIECTokenTestData))] - public void OnTokenTest(string sFNStumb, List tokens, string[] codes) - { - // Arrange - ICodeBlock codeBlock = new CodeBlock() { Name = "Declaration", Code = "", Parent = null,SourcePos=-1 }; - var data = testClass.NewData(codeBlock); - - // Act - if (tokens != null) - foreach (var token in tokens) - { - testClass.OnToken(token, data); - } - - var sFile = BlocksFilePath.Format(sFNStumb.PadLeft(2, '0'))+"_"; - Directory.CreateDirectory(Path.GetDirectoryName(sFile)); - using var ms = new FileStream(sFile, FileMode.Create); - new DataContractJsonSerializer( - type: typeof(List), - knownTypes: [typeof(IECCodeBlock)]) - .WriteObject(ms, codeBlock.SubBlocks); - ms.Close(); - - sFile = BlocksTextPath.Format(sFNStumb.PadLeft(2, '0')) + "_"; - using var fs2 = new FileStream(sFile, FileMode.Create); - using var sw2 = new StreamWriter(fs2); - sw2.Write(codeBlock.ToString()); - sw2.Close(); - - // Assert - Debug.WriteLine("CodeBlocks:"); - Debug.WriteLine(codeBlock.ToString()); - - Debug.WriteLine("Code:"); - Debug.WriteLine(codeBlock.ToCode(2)); - AssertAreEqual(string.Join(Environment.NewLine, codes??[""]), codeBlock.ToString()); - } -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib.IEC.Tests/Models/Scanner/IECCodeTests.cs b/Transpiler_pp/TranspilerLib.IEC.Tests/Models/Scanner/IECCodeTests.cs deleted file mode 100644 index a9dada2be..000000000 --- a/Transpiler_pp/TranspilerLib.IEC.Tests/Models/Scanner/IECCodeTests.cs +++ /dev/null @@ -1,113 +0,0 @@ -using System; -using System.Collections.Generic; -using System.IO; -using System.Runtime.Serialization.Json; -using TranspilerLib.Data; -using TranspilerLib.IEC.TestData; -using TranspilerLib.Models.Tests; -using static TranspilerLib.Helper.TestHelper; - -namespace TranspilerLib.IEC.Models.Scanner.Tests; - -[TestClass] -public class IECCodeTests : TestBase -{ -#pragma warning disable CS8618 // Ein Non-Nullable-Feld muss beim Beenden des Konstruktors einen Wert ungleich NULL enthalten. Fügen Sie ggf. den „erforderlichen“ Modifizierer hinzu, oder deklarieren Sie den Modifizierer als NULL-Werte zulassend. - private IECCode _testClass; -#pragma warning restore CS8618 // Ein Non-Nullable-Feld muss beim Beenden des Konstruktors einen Wert ungleich NULL enthalten. Fügen Sie ggf. den „erforderlichen“ Modifizierer hinzu, oder deklarieren Sie den Modifizierer als NULL-Werte zulassend. - - public static IEnumerable TestTokenizeList => - [ - [ "0", new[] { IECTestDataClass.testData0 }, IECTestDataClass.TestDataList0() ], - [ "1", new[] { IECTestDataClass.testData1 }, IECTestDataClass.TestDataList1() ], - [ "2", new[] { IECTestDataClass.testData2 }, IECTestDataClass.TestDataList2() ], - ]; - - public static IEnumerable TestListParse => -[ - ["0", IECTestDataClass.TestDataList0(), new[] { IECTestDataClass.testDataExp0 }], - ["1", IECTestDataClass.TestDataList1()!, new[] { IECTestDataClass.testDataExp1 }], - ["2", IECTestDataClass.TestDataList2()!, new[] { IECTestDataClass.testDataExp2 }], - ]; - public static IEnumerable TestListParse2 => -[ - ["0", IECTestDataClass.TestDataList0(), new[] { IECTestDataClass.cExpCode0 }], - ["1", IECTestDataClass.TestDataList1(), new[] { IECTestDataClass.cExpCode1 }], - ["2", IECTestDataClass.TestDataList2(), new[] { IECTestDataClass.cExpCode2 }], -]; - - [TestInitialize] - public void TestInitialize() - { - _testClass = new IECCode(); - } - public static IEnumerable TokenizeTestData => new object[][] -{ - ["1", new[] { IECTestDataClass.testData1, IECTestDataClass.cExpLog1 }], - ["2", new[] { IECTestDataClass.testData2, IECTestDataClass.cExpLog2 }], -}; - - [TestMethod()] - [DataRow("0", new[] { IECTestDataClass.testData0, IECTestDataClass.cExpLog0 }, DisplayName = "0")] - [DynamicData(nameof(TokenizeTestData))] - public void TokenizeTest(string _, string[] data) - { - _testClass.OriginalCode = data[0]; - _testClass.Tokenize((t) => DoLog($"T:{t.type},{t.Pos},{t.Level},{t.Code}")); - AssertAreEqual(data[1], DebugLog); - } - - [TestMethod()] - [DataRow("0", new[] { IECTestDataClass.testData0, IECTestDataClass.cExpLog0 }, DisplayName = "0")] - [DynamicData(nameof(TokenizeTestData))] - public void TokenizeTest2(string _, string[] data) - { - _testClass.OriginalCode = data[0]; - foreach (var item in _testClass.Tokenize()) - { - DoLog($"T:{item.type},{item.Pos},{item.Level},{item.Code}"); - } - AssertAreEqual(data[1], DebugLog); - } - - [TestMethod()] - [DynamicData(nameof(TestTokenizeList))] - public void Tokenize2Test(string _, string[] data, List expList) - { - _testClass.OriginalCode = data[0]; - var list = new List(); - DoLog("new List<(string, ICSCode.CodeBlockType, int)>() {"); - _testClass.Tokenize((t) => list.Add(t)); - - using var ms = new FileStream($"IECTestDataList{_}.json", FileMode.Create); - new DataContractJsonSerializer(typeof(List) - ).WriteObject(ms, list); - ms.Close(); - if (expList.Count < 3) - Assert.AreEqual("", DebugLog); - for (var i = 0; i < Math.Min(expList.Count, list.Count); i++) - { - Assert.AreEqual(expList[i].type, list[i].type, $"Type({i})"); - Assert.AreEqual(expList[i].Pos, list[i].Pos, $"Pos({i})"); - Assert.AreEqual(expList[i].Code, list[i].Code, $"Code({i})"); - Assert.AreEqual(expList[i].Level, list[i].Level, $"Stack({i})"); - } - } - - [TestMethod()] - [DynamicData(nameof(TestListParse))] - public void ParseEnumTest(string _, List actList, string[] data) - { - var act = _testClass.Parse(actList); - AssertAreEqual(data[0], act?.ToString()?.Replace("\"+", "\" +")); - } - - - [TestMethod()] - [DynamicData(nameof(TestListParse2))] - public void ParseEnum2Test(string _, List actList, string[] data) - { - var act = _testClass.Parse(actList); - AssertAreEqual(data[0], act.ToCode()); - } -} diff --git a/Transpiler_pp/TranspilerLib.IEC.Tests/Models/Scanner/IECTokenHandlerTests.cs b/Transpiler_pp/TranspilerLib.IEC.Tests/Models/Scanner/IECTokenHandlerTests.cs deleted file mode 100644 index 23f4ca7ca..000000000 --- a/Transpiler_pp/TranspilerLib.IEC.Tests/Models/Scanner/IECTokenHandlerTests.cs +++ /dev/null @@ -1,157 +0,0 @@ -using System; -using System.Collections.Generic; -using TranspilerLib.Interfaces.Code; -using System.Diagnostics; -using TranspilerLib.Data; -using TranspilerLib.IEC.Models.Scanner; - -namespace TranspilerLib.Models.Scanner.Tests -{ - [TestClass()] - public class IECTokenHandlerTests - { -#pragma warning disable CS8618 // Ein Non-Nullable-Feld muss beim Beenden des Konstruktors einen Wert ungleich NULL enthalten. Fügen Sie ggf. den „erforderlichen“ Modifizierer hinzu, oder deklarieren Sie den Modifizierer als NULL-Werte zulassend. - ITokenHandler testHandler; -#pragma warning restore CS8618 // Ein Non-Nullable-Feld muss beim Beenden des Konstruktors einen Wert ungleich NULL enthalten. Fügen Sie ggf. den „erforderlichen“ Modifizierer hinzu, oder deklarieren Sie den Modifizierer als NULL-Werte zulassend. - - [TestInitialize] - public void Init() - { - testHandler = new IECTokenHandler() - { - reservedWords = IECCode.ReservedWords2, - blockWords = IECCode.IECBlocksWords, - sysTypes = IECCode.IECSysTypes - }; - } - - [TestMethod()] - public void InitTest() - { - Assert.IsNotNull(testHandler); - Assert.IsInstanceOfType(testHandler, typeof(ITokenHandler)); - Assert.IsInstanceOfType(testHandler, typeof(IECTokenHandler)); - } - - - [TestMethod()] - [DataRow(-1, false,"")] - [DataRow(0, true, "HandleDefault")] - [DataRow(1, true, "HandleAlpha")] - [DataRow(2, true, "HandleLineComments")] - [DataRow(3, true, "HandleBlockComments")] - [DataRow(4, true, "HandleStrings")] - [DataRow(5, true, "HandleStrings")] - [DataRow(6, true, "HandleStrings")] - [DataRow(7, true, "<.cctor>b__*")] - [DataRow(8, true, "HandleNumbers")] - [DataRow(9, false, "")] - public void TryGetValueTest(int iAct, bool xAct,string sExpName) - { - Assert.AreEqual(xAct, testHandler.TryGetValue(iAct, out var handler)); - if (xAct) - { - Assert.IsNotNull(handler); - Assert.IsInstanceOfType(handler, typeof(Action)); - - Debug.WriteLine(handler.Method.Name); - if (!sExpName.EndsWith("*")) - Assert.AreEqual(sExpName, handler.Method.Name); - else - { - Assert.AreEqual(sExpName.Substring(0, sExpName.Length - 1),handler.Method.Name.Substring(0, sExpName.Length - 1)); - } - } - } - - [TestMethod()] - public void HandleDefaultTest() - { - Assert.IsTrue(testHandler.TryGetValue(0, out var handler)); - } - - [TestMethod()] - public void HandleAlphaTest() - { - Assert.IsTrue(testHandler.TryGetValue(1, out var handler)); - } - - [TestMethod()] - public void HandleLineCommentsTest() - { - Assert.IsTrue(testHandler.TryGetValue(2, out var handler)); - } - - [TestMethod()] - public void HandleBlockCommentsTest() - { - Assert.IsTrue(testHandler.TryGetValue(3, out var handler)); - } - - [TestMethod()] - public void HandleStringsTest() - { - Assert.IsTrue(testHandler.TryGetValue(4, out var handler)); - } - - [TestMethod()] - [DataRow(8,1,"0 ",1,0,1, "0")] - [DataRow(8, 1, "0a", 1, 1, 1,"0")] - [DataRow(8, 1, "0ab", 1, 1, 1, "0")] - [DataRow(8, 1, "1.", 1, 8, 2, "1.")] - [DataRow(8, 1, "1.0", 0, 8, 1,"")] - [DataRow(8, 1, "1..", 1, 0, 1, "1")] - [DataRow(8, 1, "1..5", 1, 0, 1, "1")] - [DataRow(8, 1, "2e", 1, 8, 2,"2e")] - [DataRow(8, 1, "2E5", 0, 8, 1,"")] - [DataRow(8, 1, "e-", 1, 8, 2, "e-")] - [DataRow(8, 1, "E-2", 0, 8, 1,"")] - [DataRow(8, 1, "3-", 2, 0, 1,"3")] - [DataRow(8, 1, "3-e", 2, 0, 1,"3")] - public void HandleNumbersTest(int iState, int iPos, string sAct, int iExpCnt, int iExpState, int iExpPos,string sExpCode) - { - // Arrange - Assert.IsTrue(testHandler.TryGetValue(8, out var handler)); - var data = new TokenizeData() { State = iState, Pos = iPos, Pos2=0 }; - int iCnt = 0; - List lData = new(); - - // Act - handler((d) => { iCnt++;lData.Add(d); }, sAct, data); - - // Assert - Assert.AreEqual(iExpCnt, iCnt,nameof(iCnt)); - Assert.AreEqual(iExpState, data.State, nameof(data.State)); - Assert.AreEqual(iExpPos, data.Pos, nameof(data.Pos)); - Assert.HasCount(iExpCnt, lData, nameof(lData.Count)); - if (lData.Count >0) - { - Assert.AreEqual(CodeBlockType.Number, lData[0].type); - Assert.AreEqual(0, lData[0].Level); - Assert.AreEqual(0, lData[0].Pos); - Assert.AreEqual(sExpCode, lData[0].Code); - } - } - - [TestMethod()] - [DataRow(0, 0, "Test", 0, 0, 0)] - [DataRow(1, 0, "Test", 0, 1, 0)] - [DataRow(1, 0, "};", 0, 4, 0)] - - public void AnonymousHandlerTest(int iState,int iPos, string sAct,int iExpCnt, int iExpState, int iExpPos) - { - // Arrange - Assert.IsTrue(testHandler.TryGetValue(7, out var handler)); - var data = new TokenizeData() {State = iState,Pos = iPos }; - int iCnt = 0; - - // Act - handler((d)=> iCnt++, sAct, data); - - // Assert - Assert.AreEqual(iExpCnt, iCnt); - Assert.AreEqual(iExpState, data.State); - Assert.AreEqual(iExpPos, data.Pos); - } - } -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib.IEC.Tests/TestData/IECTestDataClass.cs b/Transpiler_pp/TranspilerLib.IEC.Tests/TestData/IECTestDataClass.cs deleted file mode 100644 index a7c802810..000000000 --- a/Transpiler_pp/TranspilerLib.IEC.Tests/TestData/IECTestDataClass.cs +++ /dev/null @@ -1,127 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using System.Text; -using System.Threading.Tasks; -using System.Runtime.Serialization.Json; -using TranspilerLib.Data; -using TranspilerLibTests.Properties; -using System.IO; -using TranspilerLib.Interfaces.Code; -using TranspilerLib.Models.Scanner; -using TranspilerLib.IEC.Models.Scanner; - -namespace TranspilerLib.IEC.TestData; - -public class IECTestDataClass -{ - #region Raw TestData - public const string testData0 = @"TYPE udtVector : - UNION - v : udtVectorData; - Koordinate : ARRAY[0..1] OF LREAL; - END_UNION -END_TYPE"; - public static readonly string testData1 = Resources.TestCode01; - public static readonly string testData2 = Resources.TestCode02; - #endregion - - #region Expected data for Tokenizer - public const string cExpLog0 = @"T:Block,0,0,TYPE -T:Variable,4,1,udtVector -T:Operation,14,1,: -T:Block,16,1,UNION -T:Variable,25,2,v -T:Operation,32,2,: -T:Variable,34,2,udtVectorData -T:Operation,48,2,; -T:Variable,49,2,Koordinate -T:Operation,65,2,: -T:Function,67,2,ARRAY -T:Bracket,73,2,[ -T:Number,74,3,0 -T:Operation,75,3,.. -T:Number,77,3,1 -T:Bracket,78,2,] -T:Function,79,2,OF -T:Function,82,2,LREAL -T:Operation,88,2,; -T:Block,89,1,END_UNION -T:Block,102,0,END_TYPE -"; - public static readonly string cExpLog1 = Resources.ExpLog01; - public static readonly string cExpLog2 = Resources.ExpLog02; - #endregion - - private static object? ReadObject(byte[] JsonData) => new DataContractJsonSerializer(typeof(List)).ReadObject(new MemoryStream(JsonData)); - internal static object? ReadFileObject(string sFile) => new DataContractJsonSerializer(typeof(List)).ReadObject(new FileStream(sFile,FileMode.Open)); - internal static object? ReadBlockFileObject(string sFile) => new DataContractJsonSerializer( - typeof(ICodeBlock), [typeof(CodeBlock),typeof(IECCodeBlock)]).ReadObject(new FileStream(sFile, FileMode.Open)); - #region Test Data for Tokenizer - public static object TestDataList0() => ReadObject(Resources.IECTestDataList0)!; - public static object TestDataList1() => ReadObject(Resources.IECTestDataList1)!; - public static object TestDataList2() => ReadObject(Resources.IECTestDataList2)!; - #endregion - - #region Expected code (unchanged) - public const string cExpCode0 = @" - TYPE udtVector : - UNION - v : udtVectorData ; - Koordinate : ARRAY [ 0 .. 1 ] OF LREAL ; - END_UNION - END_TYPE"; - - public static string cExpCode1 { get; } = Resources.TestExpCode01; - public static string cExpCode2 { get; } = Resources.TestExpCode02; - #endregion - - #region Expected TestData - public const string testDataExp0 = @"///Declaration MainBlock 0,0 - -///Block Block 1,0,0 -TYPE -///Variable Variable 2,4,0 -udtVector -///Operation Operation 2,1 -: -///Block Block 2,2 -UNION -///Variable Variable 3,0 -v -///Operation Operation 3,1 -: -///Variable Variable 3,2 -udtVectorData -///Operation Operation 3,3 -; -///Variable Variable 3,4 -Koordinate -///Operation Operation 3,5 -: -///Function Function 3,6 -ARRAY -///Bracket Bracket 3,7 -[ -///Number Number 4,0 -0 -///Operation Operation 4,1 -.. -///Number Number 4,2 -1 -///Bracket Bracket 3,8 -] -///Function Function 3,9 -OF -///Function Function 3,10 -LREAL -///Operation Operation 3,11 -; -///Block Block 2,3 -END_UNION -///Block Block 1,1 -END_TYPE"; - public static string testDataExp1 { get; } = Resources.TestExpParse01; - public static string testDataExp2 { get; } = Resources.TestExpParse02; - #endregion -} diff --git a/Transpiler_pp/TranspilerLib.IEC.Tests/TranspilerLib.IEC.Tests.csproj b/Transpiler_pp/TranspilerLib.IEC.Tests/TranspilerLib.IEC.Tests.csproj deleted file mode 100644 index d78ccb65c..000000000 --- a/Transpiler_pp/TranspilerLib.IEC.Tests/TranspilerLib.IEC.Tests.csproj +++ /dev/null @@ -1,41 +0,0 @@ - - - - net8.0 - enable - false - true - TranspilerLib.IEC - - - - - $(TargetFrameworks);net9.0 - - - $(TargetFrameworks);net10.0 - - - - - - - - all - runtime; build; native; contentfiles; analyzers; buildtransitive - - - - - - - - - PreserveNewest - - - - - - - diff --git a/Transpiler_pp/TranspilerLib.IEC/Interpreter/IECInterpreter.cs b/Transpiler_pp/TranspilerLib.IEC/Interpreter/IECInterpreter.cs deleted file mode 100644 index 3da894417..000000000 --- a/Transpiler_pp/TranspilerLib.IEC/Interpreter/IECInterpreter.cs +++ /dev/null @@ -1,138 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using System.Reflection; -using TranspilerLib.Data; -using TranspilerLib.IEC.Models.Scanner; -using TranspilerLib.Interfaces; -using TranspilerLib.Interfaces.Code; - -namespace TranspilerLib.Models.Interpreter; - -/// -/// Einfache Interpreter-Implementierung für einen Teil des IEC AST. -/// Aktuell unterstützt: Funktionsaufrufe (aus ) und Zuweisungen innerhalb eines CodeBlock-Graphen. -/// -public class IECInterpreter(ICodeBlock codeBlock) : InterpreterBase, IInterpreter -{ - /// - /// Wurzel-Codeblock (z.B. Funktion / Programm) ab dem interpretiert wird. - /// - private readonly ICodeBlock _codeBlock = codeBlock; - - /// - /// Abbildung von IEC-Reserviertwort (Funktionsname) auf die .NET Methoden-Signaturen. - /// Mehrere Overloads werden gesammelt; beim Aufruf wird anhand der Argumentanzahl ausgewählt. - /// - public static IDictionary> systemfunctions = - new Dictionary>() { - {IECResWords.rw_ABS,typeof(Math).GetMethods().Where(m=>m.Name==nameof(Math.Abs)) }, - {IECResWords.rw_ACOS,typeof(Math).GetMethods().Where(m=>m.Name==nameof(Math.Acos)) }, - {IECResWords.rw_ASIN,typeof(Math).GetMethods().Where(m => m.Name == nameof(Math.Asin)) }, - {IECResWords.rw_ATAN,typeof(Math).GetMethods().Where(m => m.Name == nameof(Math.Atan)) }, - // {IECResWords.rw_ATAN2,typeof(Math).GetMethods().Where(m => m.Name == nameof(Math.Atan2)) }, - {IECResWords.rw_CONCAT,typeof(string).GetMethods().Where(m=>m.Name==nameof(string.Concat)) }, - {IECResWords.rw_COS,typeof(Math).GetMethods().Where(m => m.Name == nameof(Math.Cos)) }, - {IECResWords.rw_DIV,typeof(Math).GetMethods().Where(m => m.Name == nameof(Math.DivRem)) }, - {IECResWords.rw_EXP,typeof(Math).GetMethods().Where(m => m.Name == nameof(Math.Exp)) }, - {IECResWords.rw_INT,typeof(Math).GetMethods().Where(m => m.Name == nameof(Math.Floor)) }, - {IECResWords.rw_LEN,[typeof(IECInterpreter).GetMethod(nameof(GetStringLength),BindingFlags.NonPublic|BindingFlags.Static)] }, - {IECResWords.rw_LN,typeof(Math).GetMethods().Where(m => m.Name == nameof(Math.Log)) }, - {IECResWords.rw_LOG,typeof(Math).GetMethods().Where(m => m.Name == nameof(Math.Log10)) }, - {IECResWords.rw_MOD,typeof(Math).GetMethods().Where(m => m.Name == nameof(Math.IEEERemainder)) }, - // {IECResWords.rw_POW,typeof(Math).GetMethod(nameof(Math.Pow)) }, - //?? {IECResWords.rw_ROUND,typeof(Math).GetMethod(nameof(Math.Round)) }, - {IECResWords.rw_SIN,typeof(Math).GetMethods().Where(m => m.Name == nameof(Math.Sin)) }, - {IECResWords.rw_SQRT,typeof(Math).GetMethods().Where(m => m.Name == nameof(Math.Sqrt)) }, - {IECResWords.rw_TO_STRING,typeof(Convert).GetMethods().Where(m=>m.Name==nameof(Convert.ToString)) }, - {IECResWords.rw_TAN,typeof(Math).GetMethods().Where(m => m.Name == nameof(Math.Tan)) }, - {IECResWords.rw_TRUNC,typeof(Math).GetMethods().Where(m => m.Name == nameof(Math.Truncate)) }, - }; - - /// - /// Hilfsfunktion für LEN. - /// - private static int GetStringLength(string s) => s.Length; - - /// - /// Callback zur Auflösung unbekannter Identifikatoren (z.B. Variablen / Funktionen), falls nicht in . - /// Default: wirft . - /// - public Func ResolveUnknown { get; set; } - = (s => throw new NotImplementedException()); - - /// - /// Liefert ein Dictionary aller im Wurzelblock definierten Entitäten (Noch nicht implementiert). - /// - public IDictionary Entitys => GetEntitys(_codeBlock); - - private IDictionary GetEntitys(ICodeBlock codeBlock) - { - // TODO: Sammeln von Deklarationen / Labels / etc. - throw new NotImplementedException(); - } - - /// - /// Interpretiert den angegebenen Codeblock sequentiell. - /// Erwartet einen Ablauf: Deklarationen ... 'BEGIN' ... Statements. - /// Unterstützt aktuell nur Zuweisungen mit optionalem Funktionsaufruf rechts. - /// - /// Startblock (üblicherweise Wurzel einer Funktion). - /// Variablen-Map (Name -> Wert), wird in-place aktualisiert. - /// Optionales Ergebnis (derzeit immer null). - public object? Interpret(ICodeBlock cb, IDictionary parameters) - { - var code = cb.Next; - // Vorlaufen bis BEGIN gefunden wurde - while (code != null && code.Code != "BEGIN") - code = code.Next; - if (code == null) - throw new InvalidOperationException("BEGIN Block nicht gefunden."); - - var ipd = new InterpData(code.Next); - // Hauptschleife: sequentielles Abarbeiten der Next-Kette - while (ipd.pc != null) - { - switch (ipd.pc.Type) - { - case CodeBlockType.Assignment: - ExecuteAssignment(ipd.pc, parameters); - break; - default: - throw new NotImplementedException($"Interpreter unterstützt den Blocktyp '{ipd.pc.Type}' noch nicht."); - } - ipd.pc = ipd.pc.Next; - } - - return null; - } - - /// - /// Führt eine einfache Zuweisung aus. Rechts kann optional ein Funktionsaufruf (Name(Arg1,Arg2,...)) stehen. - /// - private static void ExecuteAssignment(ICodeBlock block, IDictionary parameters) - { - var parts = block.Code.Split('='); - if (parts.Length != 2) - throw new FormatException($"Ungültige Assignment-Syntax: '{block.Code}'"); - var left = parts[0].Trim(); - var right = parts[1].Trim(); - - if (right.Contains('(')) - { - var func = right.Split('(')[0]; - var args = right.Split('(')[1].Split(')')[0].Split(',', StringSplitOptions.RemoveEmptyEntries | StringSplitOptions.TrimEntries); - var values = args.Select(a => parameters[a.Trim()]).ToArray(); - // Funktionsauflösung anhand Name und Argumentanzahl - var method = systemfunctions - .First(m => string.Equals(m.Key.ToString(), func, StringComparison.OrdinalIgnoreCase)) - .Value.First(m => values.Length == m.GetParameters().Length); - var result = method.Invoke(null, values); - parameters[left] = result!; - } - else - { - parameters[left] = parameters[right]; - } - } -} diff --git a/Transpiler_pp/TranspilerLib.IEC/Models/ExtOutput.cs b/Transpiler_pp/TranspilerLib.IEC/Models/ExtOutput.cs deleted file mode 100644 index 1d6682697..000000000 --- a/Transpiler_pp/TranspilerLib.IEC/Models/ExtOutput.cs +++ /dev/null @@ -1,277 +0,0 @@ -using System; -using System.Collections.Generic; -using TranspilerLib.Interfaces; - -namespace TranspilerLib.Models; - -public class ExtOutput : IOutput -{ - - enum E_State - { - Ignore, - POU, - Union, - U_Decl, - V_Decl, - V_Type, - Type, - Done, - TypeDerived, - TypeArray, - V_Done, - Function, - pou_Interface, - pou_Body, - pou_St, - } - const string sPathIgnore = "/project/contentheader"; - const string scNodePou = "pou"; - const string scNodeUnion = "union"; - const string sPathPOU = "/project/types/pous/" + scNodePou; - const string sPathUnion = "/project/adddata/data/" + scNodeUnion; - const string scAttrName = "name"; - const string scAttrPouType = "poutype"; - const string scNodeVariable = "variable"; - const string scNodeType = "type"; - const string scNodeDerived = "derived"; - const string scNodeArray = "array"; - const string scNodeInterface = "interface"; - const string scNodeArrDimension = "dimension"; - const string scAttArrLower = "lower"; - const string scAttArrUpper = "upper"; - const string scNodeReturnType = "returntype"; - const string scNodeInputVars = "inputvars"; - const string scNodeOutputVars = "outputvars"; - const string scNodeLocalVars = "localvars"; - const string scNodeBody = "body"; - const string scNodeST = "st"; - - - public void Output(IReader reader, Action write, Action debug) - { - var xElExists = false; - string sPath = ""; - var eState = E_State.Ignore; - var dData = new System.Collections.Generic.Dictionary(); - while (reader.Read()) - { - if (reader.IsStartElement()) - { - var sName = reader.GetLocalName(); - var xIsEmptyElement = reader.IsEmptyElement; - sPath += "/" + sName; - if (sPath.ToLower().StartsWith(sPathIgnore)) - { - if (xIsEmptyElement) - { - sPath = sPath.Remove(sPath.Length - sName.Length - 1, sName.Length + 1); - } - continue; - } - // Debug - debug($"/{sPath}{Environment.NewLine}"); - eState = NodeStateMachine(eState, sPath, sName, dData, xIsEmptyElement, write, debug); - xElExists = false; - var count = reader.GetAttributeCount(); - for (var i = 0; i < count; i++) - { - string sAttrName = reader.GetAttributeName(i); - object oAttrValue = reader.GetAttributeValue(i); - // Debug - debug($"/{sPath}/{sAttrName} : \"{oAttrValue}\"{Environment.NewLine}"); - eState = AttribStateMachine(eState, sAttrName, oAttrValue, sName, dData, write); - } - if (xIsEmptyElement) - { - sPath = sPath.Remove(sPath.Length - sName.Length - 1, sName.Length + 1); - } - } - else if (reader.IsEndElement()) - { - var sName = reader.GetLocalName(); - eState = EndNodeStateMachine(write, eState, dData, sName); - sPath = sPath.Remove(sPath.Length - reader.GetLocalName().Length - 1, reader.GetLocalName().Length + 1); - - } - else if (reader.HasValue) - { - if (sPath.ToLower().StartsWith(sPathIgnore)) - continue; - if (eState == E_State.pou_St) - write($"{reader.getValue()}{Environment.NewLine}"); - else - debug($"/{sPath}/@ : \"{Quoted(reader.getValue().ToString())}\""); - } - } - - string Quoted(string value) - { - return value.Replace("\\", "\\\\").Replace("\"", "\\\"").Replace("\r", "\\r").Replace("\n", "\\n").Replace("\t", "\\t"); - } - } - - private static E_State EndNodeStateMachine(Action _out, E_State eState, Dictionary dData, string sName) - { - switch (eState, sName.ToLower()) - { - case (E_State.Type, scNodeType): - eState = E_State.V_Decl; - break; - case (E_State.Type, scNodeReturnType): - eState = E_State.pou_Interface; - break; - case (E_State.V_Done, scNodeInputVars): - _out($"END_VAR{Environment.NewLine}"); - eState = E_State.pou_Interface; - break; - case (E_State.V_Done, scNodeOutputVars): - _out($"END_VAR{Environment.NewLine}"); - eState = E_State.pou_Interface; - break; - case (E_State.V_Done, scNodeLocalVars): - _out($"END_VAR{Environment.NewLine}"); - eState = E_State.pou_Interface; - break; - case (E_State.pou_St, scNodeST): - eState = E_State.pou_Body; - break; - case (E_State.pou_Body, scNodeBody): - eState = E_State.pou_Interface; - break; - case (E_State.pou_Interface, scNodePou): - if (dData.ContainsKey(scAttrPouType) && dData[scAttrPouType].ToLower() == "function") - { - _out($"END_FUNCTION{Environment.NewLine}"); - } - else - { - _out($"END_FUNCTION_BLOCK{Environment.NewLine}"); - } - eState = E_State.Done; - break; - case (E_State.V_Decl, scNodeVariable): - eState = E_State.V_Done; - break; - case (E_State.V_Done or E_State.U_Decl, scNodeUnion): - eState = E_State.Done; - _out($" END_UNION{Environment.NewLine}END_TYPE{Environment.NewLine}"); - break; - } - - return eState; - } - - private static E_State AttribStateMachine(E_State eState, string sAttrName, object sAttrValue, string sName, Dictionary dData, Action _out) - { - switch (eState, sAttrName.ToLower()) - { - case (E_State.Union, scAttrName): - eState = E_State.U_Decl; - _out($"TYPE {sAttrValue} :{Environment.NewLine} UNION{Environment.NewLine}"); - break; - case (E_State.V_Decl, scAttrName): - eState = E_State.V_Type; - _out($" {sAttrValue} : "); - break; - case (E_State.Type, scAttrName): - eState = E_State.V_Type; - _out($" {sAttrValue} : "); - break; - case (E_State.TypeDerived, scAttrName): - eState = E_State.Type; - _out($"{sAttrValue}; {Environment.NewLine}"); - break; - case (E_State.TypeArray, scAttArrLower) when sName.ToLower() == scNodeArrDimension: - _out($"{sAttrValue} .."); - break; - case (E_State.TypeArray, scAttArrUpper) when sName.ToLower() == scNodeArrDimension: - _out($" {sAttrValue}] OF "); - eState = E_State.Type; - break; - case (E_State.POU, scAttrName) when sName.ToLower() == scNodePou: - dData[scAttrName] = sAttrValue.ToString(); - break; - case (E_State.POU, scAttrPouType) when sName.ToLower() == scNodePou - && dData.ContainsKey(scAttrName): - dData[scAttrPouType] = sAttrValue.ToString(); - if (sAttrValue?.ToString()?.ToLower() == "function") - { - _out($"FUNCTION {dData[scAttrName]} : "); - eState = E_State.Function; - } - else - _out($"{sAttrValue?.ToString()?.ToUpper()} {dData[scAttrName]};"); - break; - } - - return eState; - } - - private static E_State NodeStateMachine(E_State _eState, string sPath, string sName, Dictionary dData, bool xIsEmptyElement, Action _out, Action write) - { - E_State eState = _eState; - switch (eState, sPath.ToLower(), sName.ToLower()) - { - case (_, sPathPOU, _): - - eState = E_State.POU; - dData.Clear(); - break; - case (_, sPathUnion, _): - eState = E_State.Union; - break; - case (E_State.V_Done, _, scNodeVariable): - case (E_State.U_Decl, _, scNodeVariable): - eState = E_State.V_Decl; - break; - case (E_State.V_Type, _, scNodeType): - eState = E_State.Type; - break; - case (E_State.Type, _, scNodeDerived): - eState = E_State.TypeDerived; - break; - case (E_State.Type, _, scNodeArray): - eState = E_State.TypeArray; - _out($"ARRAY[ "); - break; - case (E_State.Type, _, _) when xIsEmptyElement: - _out($"{sName};{Environment.NewLine}"); - break; - case (E_State.POU, _, scNodeInterface): - _out($"{sName};{Environment.NewLine}"); - // Debug - write($"// eState : {eState} {Environment.NewLine}"); - break; - case (E_State.Function, _, scNodeReturnType): - eState = E_State.Type; - break; - case (E_State.pou_Interface, _, scNodeInputVars): - eState = E_State.V_Decl; - _out($"VAR_INPUT{Environment.NewLine}"); - break; - case (E_State.pou_Interface, _, scNodeOutputVars): - eState = E_State.V_Decl; - _out($"VAR_OUTPUT{Environment.NewLine}"); - break; - case (E_State.pou_Interface, _, scNodeLocalVars): - eState = E_State.V_Decl; - _out($"VAR{Environment.NewLine}"); - break; - case (E_State.pou_Interface, _, scNodeBody): - eState = E_State.pou_Body; - _out($"BEGIN{Environment.NewLine}"); - break; - case (E_State.pou_Body, _, scNodeST): - eState = E_State.pou_St; - break; - default: break; - } - if (_eState != eState) - {// Debug - write($"// eState : {eState} {Environment.NewLine}"); - } - return eState; - } - -} diff --git a/Transpiler_pp/TranspilerLib.IEC/Models/IECReader.cs b/Transpiler_pp/TranspilerLib.IEC/Models/IECReader.cs deleted file mode 100644 index b23901e1f..000000000 --- a/Transpiler_pp/TranspilerLib.IEC/Models/IECReader.cs +++ /dev/null @@ -1,84 +0,0 @@ -using System.Xml; -using TranspilerLib.Interfaces; - -namespace TranspilerLib.IEC.Models; - -/// -/// Wrapper um zur Vereinheitlichung des Zugriffs in der Transpiler-Pipeline. -/// Dient als Abstraktion, damit Parser / Scanner unabhängig vom konkreten Reader getestet werden können. -/// -public class IECReader : IReader -{ - /// - /// Der zugrunde liegende . - /// - private readonly XmlReader _xr; - - /// - /// Erstellt eine neue Instanz von . - /// - /// Bereits geöffneter (Besitz verbleibt beim Aufrufer). - public IECReader(XmlReader xr) - { - _xr = xr; - } - - /// - /// Liest den nächsten XML-Knoten. - /// - /// true, falls ein weiterer Knoten gelesen werden konnte; andernfalls false. - public bool Read() => _xr.Read(); - - /// - /// Prüft ob das Dateiende erreicht wurde. - /// - public bool EOF() => _xr.EOF; - - /// - /// Prüft ob sich der Reader aktuell auf einem Start-Element befindet. - /// - public bool IsStartElement() => _xr.IsStartElement(); - - /// - /// Prüft ob sich der Reader aktuell auf einem End-Element befindet. - /// - public bool IsEndElement() => _xr.NodeType == XmlNodeType.EndElement; - - /// - /// Liefert die Anzahl der Attribute des aktuellen Elements. - /// - public int GetAttributeCount() => _xr.AttributeCount; - - /// - /// Liefert den Attributwert an Position . - /// - /// Nullbasierter Attributindex. - /// Wert des Attributs oder null. - public object? GetAttributeValue(int i) => _xr.GetAttribute(i); - - /// - /// Liefert den Attributnamen an Position . - /// - /// Nullbasierter Attributindex. - public string GetAttributeName(int i) - { - _xr.MoveToAttribute(i); - return _xr.Name; - } - - /// - /// Liefert den lokalen Namen des aktuellen Knotens. - /// - public string GetLocalName() => _xr.LocalName; - - /// - /// Liefert den aktuellen Text/Attributwert. - /// - public object getValue() => _xr.Value; - - /// - public bool HasValue => _xr.HasValue; - - /// - public bool IsEmptyElement => _xr.IsEmptyElement; -} diff --git a/Transpiler_pp/TranspilerLib.IEC/Models/Scanner/IECCode.cs b/Transpiler_pp/TranspilerLib.IEC/Models/Scanner/IECCode.cs deleted file mode 100644 index 9934f5318..000000000 --- a/Transpiler_pp/TranspilerLib.IEC/Models/Scanner/IECCode.cs +++ /dev/null @@ -1,146 +0,0 @@ -using BaseLib.Helper; -using System; -using System.Collections.Generic; -using System.Linq; -using System.Timers; -using TranspilerLib.Data; -using TranspilerLib.Interfaces.Code; -using TranspilerLib.Models; -using TranspilerLib.Models.Scanner; -using static TranspilerLib.Interfaces.Code.ICodeBase; - -namespace TranspilerLib.IEC.Models.Scanner; - -public partial class IECCode : CodeBase, IIECCode -{ - - private static readonly string[] reservedWords = new[] { - "catch", "do", "else", "IF", "try","THEN", - "while", "switch", "for", "foreach", "return", - "throw", "using", "lock", "get", "set", "break", - }; - public static string[] ReservedWords2 => Enum.GetNames(typeof(IECResWords)).Select(s => s.Substring(3)).ToArray(); - - public static Dictionary IECBlocksWords = new() - { - {IECResWords.rw_CONFIGURATION,IECResWords.rw_END_CONFIGURATION}, - {IECResWords.rw_FOR,IECResWords.rw_END_FOR}, - {IECResWords.rw_FUNCTION,IECResWords.rw_END_FUNCTION}, - {IECResWords.rw_FUNCTION_BLOCK,IECResWords.rw_END_FUNCTION_BLOCK}, - {IECResWords.rw_IF,IECResWords.rw_END_IF}, - {IECResWords.rw_NAMESPACE,IECResWords.rw_END_NAMESPACE}, - {IECResWords.rw_PROGRAM,IECResWords.rw_END_PROGRAM}, - {IECResWords.rw_REPEAT,IECResWords.rw_END_REPEAT}, - {IECResWords.rw_RESOURCE,IECResWords.rw_END_RESOURCE}, - {IECResWords.rw_STEP,IECResWords.rw_END_STEP}, - {IECResWords.rw_STRUCT,IECResWords.rw_END_STRUCT}, - {IECResWords.rw_TRANSITION,IECResWords.rw_END_TRANSITION}, - {IECResWords.rw_TYPE,IECResWords.rw_END_TYPE}, - {IECResWords.rw_VAR,IECResWords.rw_END_VAR}, - {IECResWords.rw_VAR_EXTERNAL,IECResWords.rw_END_VAR}, - {IECResWords.rw_VAR_GLOBAL,IECResWords.rw_END_VAR}, - {IECResWords.rw_VAR_INPUT,IECResWords.rw_END_VAR}, - {IECResWords.rw_VAR_INST,IECResWords.rw_END_VAR}, - {IECResWords.rw_VAR_IN_OUT,IECResWords.rw_END_VAR}, - {IECResWords.rw_VAR_OUTPUT,IECResWords.rw_END_VAR}, - {IECResWords.rw_VAR_TEMP,IECResWords.rw_END_VAR}, - {IECResWords.rw_UNION,IECResWords.rw_END_UNION}, - {IECResWords.rw_WHILE,IECResWords.rw_END_WHILE}, - }; - - public static Dictionary IECSysTypes = new() - { - {IECResWords.rw_BOOL, TypeCode.Boolean}, - {IECResWords.rw_BYTE, TypeCode.Byte}, - {IECResWords.rw_CHAR, TypeCode.Char}, - {IECResWords.rw_DATE, TypeCode.DateTime}, - {IECResWords.rw_DATE_AND_TIME, TypeCode.DateTime}, - {IECResWords.rw_DINT, TypeCode.Int32}, - {IECResWords.rw_DT, TypeCode.DateTime}, - {IECResWords.rw_DWORD, TypeCode.UInt32}, - {IECResWords.rw_INT, TypeCode.Int32}, - {IECResWords.rw_LDATE, TypeCode.DateTime}, - {IECResWords.rw_LDATE_AND_TIME, TypeCode.DateTime}, - {IECResWords.rw_LINT, TypeCode.Int64}, - {IECResWords.rw_LREAL, TypeCode.Double}, - {IECResWords.rw_LTIME, TypeCode.DateTime}, - {IECResWords.rw_LTIME_OF_DAY, TypeCode.DateTime}, - {IECResWords.rw_LTOD, TypeCode.DateTime}, - {IECResWords.rw_LWORD, TypeCode.UInt64}, - {IECResWords.rw_REAL, TypeCode.Single}, - {IECResWords.rw_SINGLE, TypeCode.Single}, - {IECResWords.rw_SINT, TypeCode.SByte}, - {IECResWords.rw_STRING, TypeCode.String}, - {IECResWords.rw_TIME, TypeCode.DateTime}, - {IECResWords.rw_TIME_OF_DAY, TypeCode.DateTime}, - {IECResWords.rw_TOD, TypeCode.DateTime}, - {IECResWords.rw_UDINT, TypeCode.UInt32}, - {IECResWords.rw_UINT, TypeCode.UInt32}, - {IECResWords.rw_ULINT, TypeCode.UInt64}, - {IECResWords.rw_USINT, TypeCode.Byte}, - {IECResWords.rw_WORD, TypeCode.UInt16}, - {IECResWords.rw_WSTRING, TypeCode.String}, - }; - - // public bool DoWhile { get => !codeOptimizer._noWhile; set => codeOptimizer._noWhile = !value; } - - private ITokenHandler tokenHandler = new IECTokenHandler() { reservedWords = ReservedWords2, blockWords = IECBlocksWords, sysTypes = IECSysTypes }; - private ICodeBuilder codeBuilder = new IECCodeBuilder() { }; -// private ICodeOptimizer codeOptimizer = new CodeOptimizer(); - // public string Code { get; set; } - - private static string GetDebug(TokenizeData data, string code) => $"{code.Substring(Math.Max(0, data.Pos - 20), data.Pos - Math.Max(0, data.Pos - 20))}" + - $">{code[data.Pos]}<" + - $"{code.Substring(Math.Min(data.Pos + 1, code.Length - 1), Math.Min(40, code.Length - data.Pos - 1))}"; - - public override IEnumerable Tokenize() - { - TokenizeData data = new(); - List fifo = new(); - Tokenize(t => fifo.Add(t)); - foreach (var itm in fifo) - yield return itm; - fifo.Clear(); - } - - public override void Tokenize(TokenDelegate? doToken) - { - TokenizeData data = new(); - while (data.Pos < OriginalCode.Length - && tokenHandler.TryGetValue(data.State, out var Handler)) - { - //Debug: - string debug = GetDebug(data, OriginalCode); - Handler(doToken, OriginalCode, data); - data.Pos++; - } - } - - public override ICodeBlock Parse(IEnumerable? values = null) - { - string BlockCode = string.Empty; - ICodeBlock codeBlock = new CodeBlock() { Name = "Declaration", Code = "", Parent = null }; - var data = codeBuilder.NewData(codeBlock); - - if (values == null) - Tokenize((tokenData) => codeBuilder.OnToken(tokenData, data)); - else - foreach (var item in values) - { - codeBuilder.OnToken(item, data); - } - - foreach (var item in data.gotos) - { - if (data.labels.TryGetValue(item.Code.Remove(0, 5).Replace(";", ":"), out var label)) - { - item.Destination = new(label); - label.Sources.Add(new(item)); - } - } - - return codeBlock; - } - - -} diff --git a/Transpiler_pp/TranspilerLib.IEC/Models/Scanner/IECCodeBlock.cs b/Transpiler_pp/TranspilerLib.IEC/Models/Scanner/IECCodeBlock.cs deleted file mode 100644 index 3c0b54165..000000000 --- a/Transpiler_pp/TranspilerLib.IEC/Models/Scanner/IECCodeBlock.cs +++ /dev/null @@ -1,73 +0,0 @@ -using System; -using System.Linq; -using TranspilerLib.Data; -using TranspilerLib.Interfaces.Code; -using TranspilerLib.Models.Scanner; - -namespace TranspilerLib.IEC.Models.Scanner; - -/// -/// Repräsentiert einen IEC Code-Block mit auf IEC zugeschnittener Formatierungslogik für die Code-Generierung. -/// Ableitung von zur Spezialisierung der Ausgabe (). -/// -public class IECCodeBlock : CodeBlock -{ - /// - /// Erzeugt den (formatierten) Quellcode für diesen Block und seine Unter-Blöcke. - /// - /// Einrückung (Anzahl Leerzeichen) für den aktuellen Block. Default 2 für kompaktere IEC Darstellung. - /// Formatierter Code-String inklusive aller Kind-Blöcke. - /// - /// Spezielle Regeln: - /// - /// Labels mit mehr als 2 eingehenden Sprüngen erhalten einen Kommentar zur Visualisierung. - /// Operations-/Assignments-Blöcke mit Unterblöcken werden als verkettete Operationkette ausgegeben. - /// Kommentarblöcke (Line-/Full-Line/Inline) werden mit Einrückung und Zeilenumbruch ausgegeben. - /// Trennzeichen wie ':' oder ';' beenden eine Zeile, außer nach ':' folgt unmittelbar ein Kommentar. - /// Variablenblöcke erhalten ein führendes Leerzeichen (für Deklarationslisten). - /// - /// - public - override - string ToCode(int indent = 2) - { - string codeComment = string.Empty; - string subCode = string.Empty; - - // Label-Hinweis (Anzahl eingehender Kanten) - if (Type is CodeBlockType.Label && Sources.Count > 2) - codeComment = $" // <========== {Sources.Count}"; - - // Unterblöcke für Operation / Assignment inline verkettet mit dem Operator-Code - if (SubBlocks?.Count > 0 && Type is CodeBlockType.Operation or CodeBlockType.Assignment) - subCode = string.Join(' ' + Code, SubBlocks.Select(c => c.ToCode(indent + 2))); - else if (SubBlocks?.Count > 1) - subCode = string.Join(' ', SubBlocks.Select(c => c.ToCode(indent + 2))); - - // Kommentarzeilen (verschiedene Kommentararten) – eigene Zeile - if (new[] { CodeBlockType.LComment, CodeBlockType.FLComment, CodeBlockType.Comment }.Contains(Type)) - return $"{new string(' ', indent)}{Code}{Environment.NewLine}"; - // Separatoren ':' ';' behandeln – ggf. Zeilenumbruch wenn nicht unmittelbar ein Kommentar folgt - else if (Type == CodeBlockType.Operation && new[] { ":", ";" }.Contains(Code) - && Next?.Type != CodeBlockType.LComment - && (Next?.Type == CodeBlockType.Block || Code != ":")) - return $"{Code}{codeComment}{Environment.NewLine}"; - // Inline verkettete Operation/Ausdrucksketten - else if (Type is CodeBlockType.Operation or CodeBlockType.Assignment && SubBlocks?.Count > 0) - return $"{subCode}"; - // Variablen erhalten einen führenden Space (z.B. nach VAR) - else if (Type == CodeBlockType.Variable) - return $" {Code}"; - // Standardformatierung (Einrückung abhängig vom Blocktyp) - else - return $"{new string(' ', Type is CodeBlockType.Block or CodeBlockType.Label ? indent - 4 : 1)}{Code}{codeComment}{(SubBlocks?.Count > 0 ? "\r\n" : string.Empty)}{subCode}"; - } - - /// - /// Debug-/Diagnoseausgabe des Blockes inklusive Meta-Informationen (Name, Typ, Position, Quellverweise). - /// - public override string ToString() - { - return $"///{Name} {Type} {Level},{SourcePos},{Index}{(Destination != null ? " Dest:OK" : "")}{(Sources.Count > 0 ? $" {Sources.Count}" : "")}\r\n{Code}{(SubBlocks.Count > 0 ? Environment.NewLine : string.Empty)}{string.Join(Environment.NewLine, SubBlocks)}"; - } -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib.IEC/Models/Scanner/IECCodeBuilder.cs b/Transpiler_pp/TranspilerLib.IEC/Models/Scanner/IECCodeBuilder.cs deleted file mode 100644 index 04e7813b8..000000000 --- a/Transpiler_pp/TranspilerLib.IEC/Models/Scanner/IECCodeBuilder.cs +++ /dev/null @@ -1,261 +0,0 @@ -using System; -using System.Linq; -using TranspilerLib.Data; -using TranspilerLib.Interfaces.Code; -using TranspilerLib.Models.Scanner; - -namespace TranspilerLib.IEC.Models.Scanner; - -public class IECCodeBuilder : CodeBuilder -{ - public IECCodeBuilder() - { - NewCodeBlock = (name, type, code, parent, pos) => new IECCodeBlock() { Name = name, Type = type, Code = code, Parent = parent, SourcePos = pos }; - } - - public override void OnToken(TokenData tokenData, ICodeBuilderData data) - { - switch (tokenData.type) - { - default: - base.OnToken(tokenData, data); - break; - case CodeBlockType.Operation when !string.IsNullOrEmpty(tokenData.Code): - BuildInstruction(tokenData, data); - break; - case CodeBlockType.Number when !string.IsNullOrEmpty(tokenData.Code): - BuildNumber(tokenData, data); - break; - case CodeBlockType.Variable when !string.IsNullOrEmpty(tokenData.Code): - BuildVariable(tokenData, data); - break; - case CodeBlockType.Function when !string.IsNullOrEmpty(tokenData.Code): - BuildFunction(tokenData, data); - break; - case CodeBlockType.Bracket when !string.IsNullOrEmpty(tokenData.Code): - BuildBracket(tokenData, data); - break; - } - data.cbtLast = tokenData.type; - } - - private void BuildBracket(TokenData tokenData, ICodeBuilderData data) - { - switch (tokenData.Code) - { - default: - { - var td = tokenData; - td.Level = data.actualBlock.Level - 1; - base.OnToken(td, data); - data.actualBlock = data.actualBlock.Parent!; - } - break; - case "(" when data.actualBlock.Type is CodeBlockType.Variable or CodeBlockType.Function: - case "[" when data.actualBlock.Type is CodeBlockType.Variable or CodeBlockType.Function: - data.actualBlock.Type = CodeBlockType.Function; - data.actualBlock.Code += tokenData.Code; - break; - case "(" when data.actualBlock.SubBlocks?.Last()?.Type is CodeBlockType.Variable or CodeBlockType.Function: - data.actualBlock = data.actualBlock.SubBlocks.Last(); - data.actualBlock.Type = CodeBlockType.Function; - data.actualBlock.Code += tokenData.Code; - break; - case "(": - case "[": - { - var td = tokenData; - td.Level = data.actualBlock.Level - 1; - base.OnToken(td, data); - } - break; - } - } - - private void BuildFunction(TokenData tokenData, ICodeBuilderData data) - { - switch (tokenData.Code.ToUpper()) - { - default: - { - ICodeBlock block = data.actualBlock; - var td = tokenData; - td.Level = block.Level; - base.OnToken(td, data); - if (data.actualBlock.Type is CodeBlockType.Operation or CodeBlockType.Assignment) - { - data.actualBlock.Parent = block; - data.actualBlock = block; - } - } - break; - case "BEGIN" or "THEN" or "ELSE" or "ELSIF" or "DO": - { // ToDo: Do some sanity-checks here - var td = tokenData; - td.type = CodeBlockType.Block; - td.Level = tokenData.Level - 1; - while (data.actualBlock?.Level > tokenData.Level && data.actualBlock.Parent!=null) - data.actualBlock = data.actualBlock.Parent; - base.OnToken(td, data); - } - break; - } - } - - private void BuildVariable(TokenData tokenData, ICodeBuilderData data) - { - switch (data.actualBlock.Type) - { - case CodeBlockType.Variable or CodeBlockType.Function when data.actualBlock.Code.EndsWith("."): - data.actualBlock.Type = CodeBlockType.Variable; - data.actualBlock.Code += tokenData.Code; - break; - case CodeBlockType.Function: - { - var td = tokenData; - td.Level = data.actualBlock.Level; - base.OnToken(td, data); - } - break; - case CodeBlockType.Operation when - data.actualBlock.SubBlocks?.LastOrDefault() is ICodeBlock cb - && cb.Type is CodeBlockType.Variable - && cb.Code.EndsWith("."): - { - cb.Type = CodeBlockType.Variable; - cb.Code += tokenData.Code; - } - break; - case CodeBlockType.Operation - or CodeBlockType.Assignment: // ? - { - ICodeBlock block = data.actualBlock; - var td = tokenData; - td.Level = block.Level; - base.OnToken(td, data); - data.actualBlock.Parent = block; - data.actualBlock = block; - } - break; - default: - base.OnToken(tokenData, data); - break; - } - } - - private void BuildNumber(TokenData tokenData, ICodeBuilderData data) - { - if (data.actualBlock.Type is CodeBlockType.Operation or CodeBlockType.Assignment) - { - ICodeBlock block = data.actualBlock; - var td = tokenData; - td.Level = block.Level; - base.OnToken(td, data); - data.actualBlock.Parent = block; - data.actualBlock = block; - } - else - { - base.OnToken(tokenData, data); - } - } - - private void BuildInstruction(TokenData tokenData, ICodeBuilderData data) - { - switch (tokenData.Code, data.actualBlock.Type) - { - default: - { - var td = tokenData; - td.Level = Math.Max( data.actualBlock.Level - 1,0); - base.OnToken(td, data); - } - break; - case ("-", _) - when data.cbtLast is CodeBlockType.Operation : - case ( ".",CodeBlockType.Variable or CodeBlockType.Function): - data.actualBlock.Code += tokenData.Code; - if (data.actualBlock.Type == CodeBlockType.Function) - { - data.actualBlock.Type = CodeBlockType.Variable; - } - break; - case (".",_) when data.actualBlock.SubBlocks?.Last()?.Type is CodeBlockType.Variable or CodeBlockType.Function: - { - var block = data.actualBlock.SubBlocks.Last(); - block.Type = CodeBlockType.Variable; - block.Code += tokenData.Code; - } - break; - case (":=", CodeBlockType.Variable or CodeBlockType.Function): - { - ICodeBlock block = data.actualBlock; - if (block.Type == CodeBlockType.Function && !block.Code.EndsWith("(")) - block.Type = CodeBlockType.Variable; - var td = tokenData; - td.Level = block.Level-1; - td.type = CodeBlockType.Assignment; - base.OnToken(td, data); - block.Parent = data.actualBlock; - } - break; - case (",",_) : - { - var td = tokenData; - td.Level = data.actualBlock.Level - 2; - base.OnToken(td, data); - } - break; - case (";",_): - { - var td = tokenData; - td.Level = data.actualBlock.Level - 1; - td.type = CodeBlockType.Block; - base.OnToken(td, data); - while (data.actualBlock?.Level > tokenData.Level && data.actualBlock.Parent!= null) - data.actualBlock = data.actualBlock.Parent; - } - break; - case ("/",CodeBlockType.Number or CodeBlockType.Variable or CodeBlockType.Operation or CodeBlockType.Function): - case ("*" , CodeBlockType.Number or CodeBlockType.Variable or CodeBlockType.Operation or CodeBlockType.Function): - case ("+" , CodeBlockType.Number or CodeBlockType.Variable or CodeBlockType.Operation or CodeBlockType.Function): - case ("-", CodeBlockType.Number or CodeBlockType.Variable or CodeBlockType.Operation or CodeBlockType.Function) - when data.cbtLast != CodeBlockType.Operation: - case ("<", CodeBlockType.Number or CodeBlockType.Variable or CodeBlockType.Operation or CodeBlockType.Function): - case ("=<", CodeBlockType.Number or CodeBlockType.Variable or CodeBlockType.Operation or CodeBlockType.Function): - case ("=", CodeBlockType.Number or CodeBlockType.Variable or CodeBlockType.Operation or CodeBlockType.Function): - case (">=", CodeBlockType.Number or CodeBlockType.Variable or CodeBlockType.Operation or CodeBlockType.Function): - case (">", CodeBlockType.Number or CodeBlockType.Variable or CodeBlockType.Operation or CodeBlockType.Function): - case ("AND", CodeBlockType.Number or CodeBlockType.Variable or CodeBlockType.Operation or CodeBlockType.Function): - case ("OR", CodeBlockType.Number or CodeBlockType.Variable or CodeBlockType.Operation or CodeBlockType.Function): - { - ICodeBlock block = data.actualBlock; - var td = tokenData; - td.Level = block.Level - 1; - base.OnToken(td, data); - if (block.Type == CodeBlockType.Operation - && new[] { "*", "/" }.Contains(td.Code) - && new[] { "+", "-" }.Contains(block.Code)) - { - var subBlock = block.SubBlocks.Last(); - data.actualBlock.Parent = block; - subBlock.Parent = data.actualBlock; - // data.actualBlock = block; - - } - else - if (block.Type == CodeBlockType.Operation - && new[] { "*", "/" }.Contains(block.Code) - && new[] { "+", "-" }.Contains(block.Parent?.Code) - && new[] { "+", "-" }.Contains(td.Code)) - { - data.actualBlock.Parent = block.Parent!.Parent; - block.Parent.Parent = data.actualBlock; - } - else - block.Parent = data.actualBlock; - } - break; - } - } -} diff --git a/Transpiler_pp/TranspilerLib.IEC/Models/Scanner/IECResWords.cs b/Transpiler_pp/TranspilerLib.IEC/Models/Scanner/IECResWords.cs deleted file mode 100644 index 870c014f0..000000000 --- a/Transpiler_pp/TranspilerLib.IEC/Models/Scanner/IECResWords.cs +++ /dev/null @@ -1,63 +0,0 @@ -namespace TranspilerLib.IEC.Models.Scanner; - -public enum IECResWords -{ - rw_ABS, rw_ABSTRACT, rw_ACOS, rw_ACTION, rw_ADD, - rw_AND, rw_ARRAY, rw_ASIN, rw_AT, rw_ATAN, - rw_ATAN2, rw_BEGIN, rw_BOOL, rw_BY, rw_BYTE, rw_CASE, - rw_CHAR, rw_CLASS, rw_CONCAT, rw_CONFIGURATION, rw_CONSTANT, - rw_CONTINUE, rw_COS, rw_CTD, rw_CTU, rw_CTUD, - rw_DATE, rw_DATE_AND_TIME, rw_DELETE, rw_DINT, rw_DIV, - rw_DO, rw_DT, rw_DWORD, rw_ELSE, rw_ELSIF, - rw_END_ACTION, rw_END_CASE, rw_END_CLASS, rw_END_CONFIGURATION, rw_END_FOR, - rw_END_FUNCTION, rw_END_FUNCTION_BLOCK, rw_END_IF, rw_END_INTERFACE, rw_END_METHOD, - rw_END_NAMESPACE, rw_END_PROGRAM, rw_END_REPEAT, rw_END_RESOURCE, rw_END_STEP, - rw_END_STRUCT, rw_END_TRANSITION, rw_END_TYPE, rw_END_VAR, rw_END_WHILE, - rw_EQ, rw_EXIT, rw_EXP, rw_EXPT, rw_EXTENDS, - rw_F_EDGE, rw_F_TRIG, rw_FALSE, rw_FINAL, rw_FIND, - rw_FOR, rw_FROM, rw_FUNCTION, rw_FUNCTION_BLOCK, rw_GE, - rw_GT, rw_IF, rw_IMPLEMENTS, rw_INITIAL_STEP, rw_INSERT, - rw_INT, rw_INTERFACE, rw_INTERNAL, rw_INTERVAL, rw_LD, - rw_LDATE, rw_LDATE_AND_TIME, rw_LDT, rw_LE, rw_LEFT, - rw_LEN, rw_LIMIT, rw_LINT, rw_LN, rw_LOG, - rw_LREAL, rw_LT, rw_LTIME, rw_LTIME_OF_DAY, rw_LTOD, - rw_LWORD, rw_MAX, rw_METHOD, rw_MID, rw_MIN, - rw_MOD, rw_MOVE, rw_MUL, rw_MUX, rw_NAMESPACE, - rw_NE, rw_NON_RETAIN, rw_NOT, rw_NULL, rw_OF, - rw_ON, rw_OR, rw_OVERLAP, rw_OVERRIDE, rw_PRIORITY, - rw_PRIVATE, rw_PROGRAM, rw_PROTECTED, rw_PUBLIC, rw_R_EDGE, - rw_R_TRIG, rw_READ_ONLY, rw_READ_WRITE, rw_REAL, rw_REF, - rw_REF_TO, rw_REPEAT, rw_REPLACE, rw_RESOURCE, rw_RETAIN, - rw_RETURN, rw_RIGHT, rw_ROL, rw_ROR, rw_RS, - rw_SEL, rw_SHL, rw_SHR, rw_SIN, rw_SINGLE, - rw_SINT, rw_SQRT, rw_SR, rw_STEP, rw_STRING, - rw_STRUCT, rw_SUB, rw_SUPER, rw_T, rw_TAN, - rw_TASK, rw_THEN, rw_THIS, rw_TIME, rw_TIME_OF_DAY, - rw_TO, rw_TOD, rw_TOF, rw_TON, rw_TP, - rw_TRANSITION, rw_TRUE, rw_TRUNC, rw_TYPE, rw_UDINT, - rw_UINT, rw_ULINT, rw_UNTIL, rw_USING, rw_USINT, - rw_VAR, rw_VAR_ACCESS, rw_VAR_CONFIG, rw_VAR_EXTERNAL, rw_VAR_GLOBAL, - rw_VAR_IN_OUT, rw_VAR_INPUT, rw_VAR_INST, rw_VAR_OUTPUT, rw_VAR_TEMP, rw_WCHAR, - rw_WHILE, rw_WITH, rw_WORD, rw_WSTRING, rw_XOR, - rw_UNION, rw_END_UNION, -// internal Converter-Functions - rw_DINT_TO_REAL, rw_REAL_TO_DINT, rw_INT_TO_REAL, rw_REAL_TO_INT, - rw_DINT_TO_LREAL, rw_LREAL_TO_DINT, rw_INT_TO_LREAL, rw_LREAL_TO_INT, - rw_DINT_TO_INT, rw_INT_TO_DINT, rw_REAL_TO_LREAL, rw_LREAL_TO_REAL, - rw_UDINT_TO_REAL, rw_REAL_TO_UDINT, rw_UINT_TO_REAL, rw_REAL_TO_UINT, - rw_UDINT_TO_LREAL, rw_LREAL_TO_UDINT, rw_UINT_TO_LREAL, rw_LREAL_TO_UINT, - rw_UDINT_TO_INT, rw_UINT_TO_DINT, rw_UDINT_TO_UINT, rw_UINT_TO_UDINT, - rw_REAL_TO_STRING, rw_STRING_TO_REAL, rw_INT_TO_STRING, rw_STRING_TO_INT, - rw_DINT_TO_STRING, rw_STRING_TO_DINT, rw_LREAL_TO_STRING, rw_STRING_TO_LREAL, - rw_BOOL_TO_STRING, rw_STRING_TO_BOOL, rw_TIME_TO_STRING, rw_STRING_TO_TIME, - rw_DATE_TO_STRING, rw_STRING_TO_DATE, rw_TIME_OF_DAY_TO_STRING, rw_STRING_TO_TIME_OF_DAY, - rw_DATE_AND_TIME_TO_STRING, rw_STRING_TO_DATE_AND_TIME, - rw_BYTE_TO_STRING, rw_STRING_TO_BYTE, rw_WORD_TO_STRING, rw_STRING_TO_WORD, - rw_DWORD_TO_STRING, rw_STRING_TO_DWORD, rw_LWORD_TO_STRING, rw_STRING_TO_LWORD, - rw_SINT_TO_STRING, rw_STRING_TO_SINT, rw_USINT_TO_STRING, rw_STRING_TO_USINT, - rw_UINT_TO_STRING, rw_STRING_TO_UINT, - // internal implicit type conversion - rw_TO_STRING, rw_TO_BOOL, rw_TO_BYTE, rw_TO_CHAR, rw_TO_DATE, - rw_TO_DATE_AND_TIME, rw_TO_DINT, rw_TO_DT, rw_TO_DWORD, rw_TO_INT, - rw_TO_LDATE, rw_TO_LDATE_AND_TIME, rw_TO_LINT, rw_TO_LREAL, rw_TO_LTIME, -} diff --git a/Transpiler_pp/TranspilerLib.IEC/Models/Scanner/IECTokenHandler.cs b/Transpiler_pp/TranspilerLib.IEC/Models/Scanner/IECTokenHandler.cs deleted file mode 100644 index 73943a351..000000000 --- a/Transpiler_pp/TranspilerLib.IEC/Models/Scanner/IECTokenHandler.cs +++ /dev/null @@ -1,297 +0,0 @@ -using BaseLib.Helper; -using System; -using System.Collections.Generic; -using System.Linq; -using TranspilerLib.Data; -using TranspilerLib.Interfaces.Code; -using TranspilerLib.Models; -using TranspilerLib.Models.Scanner; -using static TranspilerLib.Interfaces.Code.ICodeBase; - -namespace TranspilerLib.IEC.Models.Scanner; - -public class IECTokenHandler : TokenHandlerBase, ITokenHandler -{ - - private static readonly Dictionary> _tokenStateHandler = new() - { - { 0, HandleDefault }, - { 1, HandleAlpha }, - { 2, HandleLineComments }, - { 3, HandleBlockComments }, - { 4, HandleStrings }, - { 5, HandleStrings }, - { 6, HandleStrings }, - { 7, (_, s, d) => d.State = s[d.Pos] == '}' ? 4 : d.State}, - { 8, HandleNumbers }, - }; - - public static Dictionary _sysTypes { get; set; } - public static string[] _reservedWords { get; set; } - public static Dictionary _blockWords { get; set; } - public -#if NET7_0_OR_GREATER -required -#endif -Dictionary sysTypes - { set => _sysTypes = value; } - public -#if NET7_0_OR_GREATER -required -#endif - string[] reservedWords - { set => _reservedWords = value; } - public -#if NET7_0_OR_GREATER -required -#endif -Dictionary blockWords - { set => _blockWords = value; } - - public static void HandleDefault(TokenDelegate? token, string OriginalCode, TokenizeData data) - { - switch (OriginalCode[data.Pos]) - { - case '/' when GetNxtChar(data.Pos, OriginalCode) == '/': - DefaultComment(token, OriginalCode, data, 2); - break; - case '(' when GetNxtChar(data.Pos, OriginalCode) == '*': - DefaultComment(token, OriginalCode, data, 3); - break; - case char c when CharSets.bracketsSet.Contains(c): - DefaultBrackets(token, c, OriginalCode, data); - break; - case char c when CharSets.numbers.Contains(c): - DefaultNumbers(token, OriginalCode, data); - break; - case char c when CharSets.operatorSet.Contains(c): - DefaultOperator(token, OriginalCode, data); - break; - case '"': - DefaultString(token, OriginalCode, data); - break; - case char c when CharSets.whitespace.Contains(c): - DefaultWhitespace(token, OriginalCode, data); - break; - case char c when CharSets.letters.Contains(c) || c == '_': - DefaultAlpha(token, OriginalCode, data); - break; - default: - break; - } - } - - private static void DefaultBrackets(TokenDelegate? token, char c, string originalCode, TokenizeData data) - { - var _iBrackets = CharSets.bracketsSet.IndexOf(c); - if (_iBrackets % 2 != 0) - data.Stack -= 1; - EmitToken(token, data, CodeBlockType.Bracket, originalCode, 1); - data.Pos2 = data.Pos + 1; - if (_iBrackets % 2 == 0) - data.Stack += 1; - } - - private static void DefaultAlpha(TokenDelegate? token, string OriginalCode, TokenizeData data) - { - - if (!data.flag && (data.flag = true) - && GetText(data, OriginalCode).Trim().EndsWith(")")) - { - EmitToken(token, data, CodeBlockType.Operation, OriginalCode); - data.Pos2 = data.Pos; - } - data.State = 1; - } - private static void DefaultWhitespace(TokenDelegate? token, string OriginalCode, TokenizeData data) - { - if (data.flag && !(data.flag = false)) - { - string testc; - if (!string.IsNullOrEmpty(testc = GetText(data, OriginalCode).Trim())) - { - if (_reservedWords.Contains(testc)) - EmitToken(token, data, CodeBlockType.Declaration, OriginalCode); - else - EmitToken(token, data, CodeBlockType.Operation, OriginalCode); - } - data.Pos2 = data.Pos; - } - } - - private static void DefaultNumbers(TokenDelegate? token, string originalCode, TokenizeData data) - { - data.State = 8; - } - private static void DefaultString(TokenDelegate? token, string OriginalCode, TokenizeData data) - { - data.State = 6; // "Normal" String - EmitToken(token, data, CodeBlockType.Operation, OriginalCode); - data.Pos2 = data.Pos; - if (data.State != 1) - data.Pos++; - } - private static void DefaultLabel(TokenDelegate? token, string OriginalCode, TokenizeData data) - { - if (!GetText(data, OriginalCode).Trim().Contains('?')) - { - EmitToken(token, data, CodeBlockType.Label, OriginalCode, 1); - data.Pos2 = data.Pos + 1; - } - } - - private static void DefaultOperator(TokenDelegate? token, string originalCode, TokenizeData data) - { - char cNxt = GetNxtChar(data.Pos, originalCode); - if (!CharSets.operatorSet.Contains(cNxt) || cNxt == '/') - { - EmitToken(token, data, CodeBlockType.Operation, originalCode, 1); - data.Pos2 = data.Pos + 1; - } - } - private static void DefaultComment(TokenDelegate? token, string OriginalCode, TokenizeData data, int iNewState) - { - if (!string.IsNullOrWhiteSpace(GetText(data, OriginalCode))) - EmitToken(token, data, CodeBlockType.Operation, OriginalCode); - data.Pos2 = data.Pos; - data.State = iNewState; - data.Pos++; - } - - private static void HandleNumbers(TokenDelegate? token, string OriginalCode, TokenizeData data) - { - char c = char.ToLower(OriginalCode[data.Pos]); - if (CharSets.numbersExt.Contains(c) - && (c != '.' || GetNxtChar(data.Pos, OriginalCode) != '.') - && (c != '-' || char.ToLower(GetPrvChar(data.Pos, OriginalCode)) == 'e')) - { - - if (data.Pos == OriginalCode.Length - 1) - { - data.Pos++; - EmitToken(token, data, CodeBlockType.Number, OriginalCode); - } - return; - } - else - { - EmitToken(token, data, CodeBlockType.Number, OriginalCode); - data.Pos2 = data.Pos; - data.State = 0; - HandleDefault(token, OriginalCode, data); - } - } - private static void HandleAlpha(TokenDelegate? token, string OriginalCode, TokenizeData data) - { - if (CharSets.lettersAndNumbers.Contains(OriginalCode[data.Pos]) || OriginalCode[data.Pos] == '_') - { - if (data.Pos == OriginalCode.Length - 1) - { - data.Pos++; - TestEmit(token, OriginalCode, data); - } - return; - } - else if (OriginalCode[data.Pos] == '#' && CharSets.numbers.Contains(GetNxtChar(data.Pos, OriginalCode))) - { - int _iResWrdIdx = _reservedWords.IndexOf(GetText(data, OriginalCode).Trim().ToUpper()); - if (_iResWrdIdx > -1 && _sysTypes.TryGetValue((IECResWords)_iResWrdIdx, out var typeCode)) - { - data.State = 8; - } - else - { - TestEmit(token, OriginalCode, data); - HandleDefault(token, OriginalCode, data); - } - } - else - { - TestEmit(token, OriginalCode, data); - HandleDefault(token, OriginalCode, data); - } - - static void TestEmit(TokenDelegate? token, string OriginalCode, TokenizeData data) - { - int _iResWrdIdx = _reservedWords.IndexOf(GetText(data, OriginalCode).Trim().ToUpper()); - if (_iResWrdIdx > -1) - { - if (_blockWords.TryGetValue((IECResWords)_iResWrdIdx, out var iECResWordEnd)) - { - EmitToken(token, data, CodeBlockType.Block, OriginalCode); - data.Stack += 1; - } - else if (_blockWords.Values.Contains((IECResWords)_iResWrdIdx)) - { - data.Stack -= 1; - EmitToken(token, data, CodeBlockType.Block, OriginalCode); - } - else - { - EmitToken(token, data, CodeBlockType.Function, OriginalCode); - } - } - else - { - EmitToken(token, data, CodeBlockType.Variable, OriginalCode); - } - data.Pos2 = data.Pos; - data.State = 0; - } - } - - - private static void HandleBlockComments(TokenDelegate? token, string code, TokenizeData data) - { - if (code[data.Pos] == '*' && data.Pos < code.Length - 2 && code[data.Pos + 1] == ')') - { - EmitToken(token, data, CodeBlockType.Comment, code, 2); - data.Pos2 = data.Pos + 2; - data.State = 0; // Block-Comment-end - data.Pos++; - } - } - - private static void HandleLineComments(TokenDelegate? token, string code, TokenizeData data) - { - if (code[data.Pos] == '\r') - { - var p = data.Pos2; - while (p > 0 && code[--p] is ' ' or '\t') - ; - if (code[p] == '\n' || code[p] == '\r' || p == 0) - EmitToken(token, data, CodeBlockType.FLComment, code); - else - EmitToken(token, data, CodeBlockType.LComment, code); - data.Pos2 = data.Pos + 1; - data.State = 0; - } - } - - private static void HandleStrings(TokenDelegate? token, string code, TokenizeData data) - { - if (new[] { '"', '\'' }.Contains(code[data.Pos])) - - switch (code[data.Pos]) - { - case '"':// String-End - case '\r' when data.State != 5: - if (code[data.Pos] == '\r') - EmitToken(token, data, CodeBlockType.String, code); - else - EmitToken(token, data, CodeBlockType.String, code, 1); - data.Pos2 = data.Pos + 1; - data.State = 0; - break; - } - } - - - public bool TryGetValue(int state, out Action handler) - { - return _tokenStateHandler.TryGetValue(state, out handler); - } -} - - - diff --git a/Transpiler_pp/TranspilerLib.IEC/TranspilerLib.IEC.csproj b/Transpiler_pp/TranspilerLib.IEC/TranspilerLib.IEC.csproj deleted file mode 100644 index 1ed73ae31..000000000 --- a/Transpiler_pp/TranspilerLib.IEC/TranspilerLib.IEC.csproj +++ /dev/null @@ -1,19 +0,0 @@ - - - - net8.0 - enable - - - - - $(TargetFrameworks);net9.0 - - - $(TargetFrameworks);net10.0 - - - - - - diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/AssemblyInfo.cs b/Transpiler_pp/TranspilerLib.Pascal.Tests/AssemblyInfo.cs deleted file mode 100644 index ba900e03a..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/AssemblyInfo.cs +++ /dev/null @@ -1,3 +0,0 @@ -using Microsoft.VisualStudio.TestTools.UnitTesting; - -[assembly: Parallelize(Workers =0, Scope = ExecutionScope.MethodLevel)] diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Helper/GenericInterfaceConverter.cs b/Transpiler_pp/TranspilerLib.Pascal.Tests/Helper/GenericInterfaceConverter.cs deleted file mode 100644 index e050ab1a2..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Helper/GenericInterfaceConverter.cs +++ /dev/null @@ -1,230 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using System.Reflection; -using System.Text.Json; -using System.Text.Json.Serialization; -using TranspilerLib.Data; -using TranspilerLib.Interfaces.Code; -using TranspilerLib.Models.Scanner; - -#pragma warning disable IDE0130 -namespace TranspilerLib.Pascal.Helper; - -// Allgemein gehaltener Converter fr Interface -> konkrete Implementierung (hier ICodeBlock -> CodeBlock-Abkmmling). -// Verwendet Reflection, optional Property-Whitelist. Standard: Name, Code, Type, SubBlocks. -public class GenericInterfaceConverter : JsonConverter - where TInterface : class - where TConcrete : class, TInterface, new() -{ - private readonly Dictionary _props; - private readonly bool _isCodeBlockLike; - private readonly PropertyInfo? _subBlocksProp; - private readonly PropertyInfo? _typeProp; - - public GenericInterfaceConverter(params string[]? propertyWhitelist) - { - var flags = BindingFlags.Instance | BindingFlags.Public; - var allProps = typeof(TConcrete).GetProperties(flags) - .Where(p => p.CanRead && p.CanWrite) - .ToDictionary(p => p.Name, StringComparer.OrdinalIgnoreCase); - - if (propertyWhitelist is { Length: > 0 }) - _props = propertyWhitelist - .Where(n => allProps.ContainsKey(n)) - .Distinct(StringComparer.OrdinalIgnoreCase) - .ToDictionary(n => n, n => allProps[n], StringComparer.OrdinalIgnoreCase); - else - _props = allProps; - - _isCodeBlockLike = typeof(ICodeBlock).IsAssignableFrom(typeof(TInterface)) - && typeof(CodeBlock).IsAssignableFrom(typeof(TConcrete)); - - // Spezielle Behandlung fr ICodeBlock-hnliche Typen - if (_isCodeBlockLike) - { - _subBlocksProp = _props.Values.FirstOrDefault(p => - typeof(IList).IsAssignableFrom(p.PropertyType)); - _typeProp = _props.Values.FirstOrDefault(p => p.PropertyType == typeof(CodeBlockType)); - - // Sicherstellen, dass Standardfelder vorhanden sind - AddIfMissing(allProps, "Name"); - AddIfMissing(allProps, "Code"); - AddIfMissing(allProps, "Type"); - AddIfMissing(allProps, "SubBlocks"); - } - - void AddIfMissing(Dictionary source, string name) - { - if (!_props.ContainsKey(name) && source.ContainsKey(name)) - _props[name] = source[name]; - } - } - - public override TInterface? Read(ref Utf8JsonReader reader, Type typeToConvert, JsonSerializerOptions options) - { - if (reader.TokenType == JsonTokenType.Null) return null; - - using var doc = JsonDocument.ParseValue(ref reader); - var root = doc.RootElement; - - var instance = new TConcrete(); - - foreach (var jsonProp in root.EnumerateObject()) - { - var name = jsonProp.Name; - if (!_props.TryGetValue(name, out var pInfo)) - continue; - - try - { - if (_isCodeBlockLike && _subBlocksProp != null && pInfo == _subBlocksProp && - jsonProp.Value.ValueKind == JsonValueKind.Array) - { - // Bei CodeBlock-Typen: Direktes Setzen von Parent fgt das Kind automatisch der SubBlocks-Liste hinzu. - // list.Add(child) wrde bei ParentedItemsList zu doppelten Eintrgen fhren. - foreach (var el in jsonProp.Value.EnumerateArray()) - { - var child = JsonSerializer.Deserialize(el.GetRawText(), options); - if (child != null) - { - child.Parent = (ICodeBlock)instance; - } - } - continue; - } - - object? value = null; - switch (jsonProp.Value.ValueKind) - { - case JsonValueKind.String: - if (pInfo.PropertyType == typeof(string)) - value = jsonProp.Value.GetString(); - else if (pInfo.PropertyType.IsEnum) - { - var s = jsonProp.Value.GetString(); - if (Enum.TryParse(pInfo.PropertyType, s, true, out var enumVal)) - value = enumVal; - } - break; - - case JsonValueKind.Number: - if (pInfo.PropertyType == typeof(int) && jsonProp.Value.TryGetInt32(out var i)) - value = i; - else if (pInfo.PropertyType == typeof(long) && jsonProp.Value.TryGetInt64(out var l)) - value = l; - else if (pInfo.PropertyType == typeof(double) && jsonProp.Value.TryGetDouble(out var d)) - value = d; - else if (pInfo.PropertyType == typeof(float) && jsonProp.Value.TryGetDouble(out var f)) - value = (float)f; - break; - - case JsonValueKind.True: - case JsonValueKind.False: - if (pInfo.PropertyType == typeof(bool)) - value = jsonProp.Value.GetBoolean(); - break; - - case JsonValueKind.Array: - // Generische einfache List (nur fr primitive oder String) - if (pInfo.PropertyType.IsGenericType && - typeof(IList<>).IsAssignableFrom(pInfo.PropertyType.GetGenericTypeDefinition())) - { - var elemType = pInfo.PropertyType.GetGenericArguments()[0]; - if (elemType == typeof(string)) - { - var arr = (IList)Activator.CreateInstance(pInfo.PropertyType)!; - foreach (var el in jsonProp.Value.EnumerateArray()) - if (el.ValueKind == JsonValueKind.String) - arr.Add(el.GetString()!); - value = arr; - } - } - break; - - case JsonValueKind.Object: - // Rekursive Deserialisierung komplexer verschachtelter Objekte - value = JsonSerializer.Deserialize(jsonProp.Value.GetRawText(), pInfo.PropertyType, options); - break; - } - - if (value != null) - pInfo.SetValue(instance, value); - } - catch - { - // Fehler bei Einzelproperty ignorieren (robust) - } - } - - return instance; - } - - public override void Write(Utf8JsonWriter writer, TInterface value, JsonSerializerOptions options) - { - writer.WriteStartObject(); - - foreach (var kv in _props) - { - var pInfo = kv.Value; - var propVal = pInfo.GetValue(value); - if (propVal == null) continue; - - if (_isCodeBlockLike && _subBlocksProp != null && pInfo == _subBlocksProp && - propVal is IList list && list.Count > 0) - { - writer.WritePropertyName("SubBlocks"); - writer.WriteStartArray(); - foreach (var sb in list) - JsonSerializer.Serialize(writer, sb, options); - writer.WriteEndArray(); - continue; - } - - if (pInfo.PropertyType == typeof(string)) - { - writer.WriteString(pInfo.Name, (string)propVal); - } - else if (pInfo.PropertyType.IsEnum) - { - writer.WriteString(pInfo.Name, propVal.ToString()); - } - else if (propVal is int i) - { - writer.WriteNumber(pInfo.Name, i); - } - else if (propVal is bool b) - { - writer.WriteBoolean(pInfo.Name, b); - } - else if (propVal is long l) - { - writer.WriteNumber(pInfo.Name, l); - } - else if (propVal is double d) - { - writer.WriteNumber(pInfo.Name, d); - } - else if (propVal is float f) - { - writer.WriteNumber(pInfo.Name, f); - } - else if (propVal is IEnumerable strEnum) - { - writer.WritePropertyName(pInfo.Name); - writer.WriteStartArray(); - foreach (var s in strEnum) - writer.WriteStringValue(s); - writer.WriteEndArray(); - } - else - { - // Fallback fr komplexe Typen - writer.WritePropertyName(pInfo.Name); - JsonSerializer.Serialize(writer, propVal, propVal.GetType(), options); - } - } - - writer.WriteEndObject(); - } -} diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Helper/ICodeBlockPasCodeBlockConverter.cs b/Transpiler_pp/TranspilerLib.Pascal.Tests/Helper/ICodeBlockPasCodeBlockConverter.cs deleted file mode 100644 index 40aacba44..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Helper/ICodeBlockPasCodeBlockConverter.cs +++ /dev/null @@ -1,20 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using System.Reflection; -using System.Text.Json; -using System.Text.Json.Serialization; -using TranspilerLib.Data; -using TranspilerLib.Interfaces.Code; -using TranspilerLib.Models.Scanner; -using TranspilerLib.Pascal.Models.Scanner; - -#pragma warning disable IDE0130 -namespace TranspilerLib.Pascal.Helper; - -// Spezialisierte Registrierung fr PasCodeBlock (Beibehaltung des alten Namens zur Kompatibilitt). -public sealed class ICodeBlockPasCodeBlockConverter : GenericInterfaceConverter -{ - // Optional: nur relevante Properties explizit angeben (ansonsten alle). - public ICodeBlockPasCodeBlockConverter() : base("Name", "Code", "Type", "SubBlocks") { } -} diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Helper/SerializeTests.cs b/Transpiler_pp/TranspilerLib.Pascal.Tests/Helper/SerializeTests.cs deleted file mode 100644 index e8d111073..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Helper/SerializeTests.cs +++ /dev/null @@ -1,75 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using System.Text; -using System.Threading.Tasks; -using TranspilerLib.Data; -using TranspilerLib.Interfaces.Code; -using TranspilerLib.Pascal.Models.Scanner; - -#pragma warning disable IDE0130 -namespace TranspilerLib.Pascal.Helper.Tests; - -[TestClass] -public class SerializeTests -{ - [TestMethod] - public void Test_SerializePasCodeBlock() - { - var block = new PasCodeBlock - { - Name = "MyFunction", - Code = "function MyFunction(): Integer", - Type = CodeBlockType.Function, - SubBlocks = - [ - new PasCodeBlock - { - Name = "Body", - Code = "begin", - Type = CodeBlockType.Block, - //SubBlocks = - //[ - // new PasCodeBlock - // { - // Name = "ReturnStatement", - // Code = ":=", - // Type = CodeBlockType.Assignment, - // SubBlocks = - // [ - // new PasCodeBlock - // { - // Name = "ReturnStatement", - // Code = "Result", - // Type = CodeBlockType.Variable - // }, - // new PasCodeBlock - // { - // Name = "Number", - // Code = "42", - // Type = CodeBlockType.Number - // } - // ] - // } - //] - } - ] - }; - var options = new System.Text.Json.JsonSerializerOptions - { - WriteIndented = true, - Converters = - { - new ICodeBlockPasCodeBlockConverter() - } - }; - var json = System.Text.Json.JsonSerializer.Serialize(block, options); - Console.WriteLine(json); - var deserializedBlock = System.Text.Json.JsonSerializer.Deserialize(json, options); - Assert.IsNotNull(deserializedBlock); - Assert.AreEqual(block.Name, deserializedBlock.Name); - Assert.AreEqual(block.Code, deserializedBlock.Code); - Assert.AreEqual(block.Type, deserializedBlock.Type); - Assert.HasCount(block.SubBlocks.Count, deserializedBlock.SubBlocks); - } -} diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Models/Interpreter/PasInterpreterTests.cs b/Transpiler_pp/TranspilerLib.Pascal.Tests/Models/Interpreter/PasInterpreterTests.cs deleted file mode 100644 index 20ca36dda..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Models/Interpreter/PasInterpreterTests.cs +++ /dev/null @@ -1,218 +0,0 @@ -using Microsoft.VisualStudio.TestTools.UnitTesting; -using TranspilerLib.Pascal.Interpreter; -using TranspilerLib.Interfaces.Code; -using TranspilerLib.Models.Scanner; -using TranspilerLib.Data; -using System; -using TranspilerLib.Pascal.Models.Scanner; -using System.Collections.Generic; - -namespace TranspilerLib.Pascal.Tests.Models.Interpreter; - -[TestClass] -public class PasInterpreterTests -{ - private static ICodeBlock DummyBlock(IList s) => new CodeBlock { Code = "", Type = CodeBlockType.Block, SubBlocks = s }; - private static ICodeBlock DummyBlock() => new CodeBlock { Code = "", Type = CodeBlockType.Block }; - - [TestMethod] - public void Interpret_ReturnsTrue_ForSimpleBlock() - { - var sut = new PasInterpreter(); - var block = DummyBlock(); - - var result = sut.Interpret(block); - - Assert.IsTrue(result); - } - - [TestMethod] - public void Variables_DefaultEmpty_AndSettable() - { - var sut = new PasInterpreter(); - - Assert.IsEmpty(sut.Variables); - sut.Variables["x"] = 42; - Assert.AreEqual(42, sut.Variables["x"]); - } - - [TestMethod] - public void Externals_DefaultEmpty_AndInvocable() - { - var sut = new PasInterpreter(); - Assert.IsEmpty(sut.Externals); - - bool called = false; - sut.Externals["id"] = o => { called = true; return o; }; - - var f = sut.Externals["id"]; - var result = f(5); - - Assert.IsTrue(called); - Assert.AreEqual(5, result); - } - - [TestMethod] - public void Prepare_ReturnsFalse_When_CodeBlock_IsNull() - { - var sut = new PasInterpreter(); - ICodeBlock? root = null; - - var result = sut.Prepare(root!); - - Assert.IsFalse(result); - } - - [TestMethod] - public void Prepare_Registers_Variables_From_Declaration_Code() - { - var sut = new PasInterpreter(); - var root = DummyBlock(); - var decl = new PasCodeBlock - { - Type = CodeBlockType.Declaration, - Code = ":", - SubBlocks = [ - new PasCodeBlock - { - Type = CodeBlockType.Variable, - Code = "x, y" - }, - new PasCodeBlock - { - Type = CodeBlockType.Variable, - Code = "Integer" - } - ] - }; - root.SubBlocks.Add(decl); - - var ok = sut.Prepare(root); - - Assert.IsTrue(ok); - Assert.IsTrue(sut.Variables.ContainsKey("x")); - Assert.IsTrue(sut.Variables.ContainsKey("y")); - } - - [TestMethod] - public void Prepare_Registers_Variables_From_Name() - { - var sut = new PasInterpreter(); - var root = DummyBlock(); - var varNode = new CodeBlock - { - Type = CodeBlockType.Variable, - Name = "z" - }; - root.SubBlocks.Add(varNode); - - var ok = sut.Prepare(root); - - Assert.IsTrue(ok); - Assert.IsTrue(sut.Variables.ContainsKey("z")); - } - - [TestMethod] - public void Prepare_Adds_External_Stub_For_Undeclared_Call() - { - var sut = new PasInterpreter(); - var root = DummyBlock(); - root.SubBlocks.Add(new CodeBlock - { - Type = CodeBlockType.Function, - Code = "foo", - SubBlocks = [new PasCodeBlock { Type=CodeBlockType.Number,Code = "1" }] - }); - - var ok = sut.Prepare(root); - - Assert.IsTrue(ok); - Assert.IsTrue(sut.Externals.ContainsKey("foo")); - Assert.ThrowsExactly(() => sut.Externals["foo"](null!)); - } - - [TestMethod] - public void Prepare_Does_Not_Add_Stub_For_Declared_Function() - { - var sut = new PasInterpreter(); - var root = DummyBlock(); - - var call = new CodeBlock { Type = CodeBlockType.Operation, Code = "foo();" }; - var func = new CodeBlock { Type = CodeBlockType.Function, Name = "foo" }; - - root.SubBlocks.Add(call); - root.SubBlocks.Add(func); - - var ok = sut.Prepare(root); - - Assert.IsTrue(ok); - Assert.IsFalse(sut.Externals.ContainsKey("foo")); - } - - [TestMethod] - public void Prepare_Skips_Keywords_And_Strings_And_Tracks_Other_Calls() - { - var sut = new PasInterpreter(); - /* Struktur: - * 1) Zuweisung: x := 'bar(baz)' - * 2) if a then begin end - * 3) noop(); - */ - var root = DummyBlock([ - // 1) String-Block: "'bar(baz)'" - new PasCodeBlock{ Type = CodeBlockType.Assignment, Code = ":=", SubBlocks =[ - new PasCodeBlock{ Type = CodeBlockType.Variable, Code = "x" }, - new PasCodeBlock{ Type = CodeBlockType.String, Code = "'bar(baz)'" }] }, - - // 2) if-Block mit Subblocks: a (Bedingung) und einem leeren begin-end Block - new PasCodeBlock{ Type = CodeBlockType.Operation, Code = "if", SubBlocks =[ - new PasCodeBlock { Type = CodeBlockType.Variable, Code = "a" }, - new PasCodeBlock {Type = CodeBlockType.Block, Code = "begin" }] }, - - // 3) letzter Block: Funktionsaufruf "noop" - new PasCodeBlock { Type = CodeBlockType.Function, Code = "noop" }]); - - var ok = sut.Prepare(root); - - Assert.IsTrue(ok); - Assert.IsTrue(sut.Externals.ContainsKey("noop")); - Assert.IsFalse(sut.Externals.ContainsKey("if")); // keyword gefiltert - Assert.IsFalse(sut.Externals.ContainsKey("bar")); // im String, ignoriert - } - - [TestMethod] - public void Prepare_Does_Not_Override_Existing_External() - { - var sut = new PasInterpreter(); - bool called = false; - Func existing = o => { called = true; return 123; }; - sut.Externals["foo"] = existing; - - var root = DummyBlock(); - root.SubBlocks.Add(new CodeBlock { Type = CodeBlockType.Operation, Code = "foo();" }); - - var ok = sut.Prepare(root); - - Assert.IsTrue(ok); - Assert.IsTrue(sut.Externals.ContainsKey("foo")); - Assert.AreSame(existing, sut.Externals["foo"]); - var result = sut.Externals["foo"](null!); - Assert.IsTrue(called); - Assert.AreEqual(123, result); - } - - [TestMethod] - public void Prepare_Ignores_Case_For_Function_Declarations() - { - var sut = new PasInterpreter(); - var root = DummyBlock(); - - root.SubBlocks.Add(new CodeBlock { Type = CodeBlockType.Operation, Code = "foo();" }); - root.SubBlocks.Add(new CodeBlock { Type = CodeBlockType.Function, Name = "Foo" }); // different case - - var ok = sut.Prepare(root); - - Assert.IsTrue(ok); - Assert.IsFalse(sut.Externals.ContainsKey("foo")); - } -} diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Models/LfmObjectBuilderTests.cs b/Transpiler_pp/TranspilerLib.Pascal.Tests/Models/LfmObjectBuilderTests.cs deleted file mode 100644 index 5676ee0bc..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Models/LfmObjectBuilderTests.cs +++ /dev/null @@ -1,314 +0,0 @@ -using System.Collections.Generic; -using System.IO; -using System.Text.Json; - -namespace TranspilerLib.Pascal.Models.Tests; - -[TestClass] -public class LfmObjectBuilderTests -{ -#pragma warning disable CS8618 - private LfmObjectBuilder _builder; - private LfmTokenizer _tokenizer; -#pragma warning restore CS8618 - - public static IEnumerable TestBuildList - { - get - { - foreach (var dir in Directory.EnumerateDirectories(".\\Resources")) - { - if (!File.Exists(Path.Combine(dir, Path.GetFileName(dir) + "_Source.lfm"))) - continue; - - var value = new object[] - { - Path.GetFileName(dir)!, - dir, - }; - yield return value; - } - } - } - - [TestInitialize] - public void Init() - { - _builder = new LfmObjectBuilder(); - _tokenizer = new LfmTokenizer(); - } - - [TestMethod] - public void Setup_tests() - { - Assert.IsNotNull(_builder); - Assert.IsInstanceOfType(_builder, typeof(LfmObjectBuilder)); - } - - [TestMethod] - public void Build_SimpleObject_ReturnsLfmObject() - { - // Arrange - const string input = @"object Form1: TForm1 - Left = 100 -end"; - _tokenizer.SetInput(input); - var tokens = _tokenizer.Tokenize(); - - // Act - var result = _builder.Build(tokens); - - // Assert - Assert.IsNotNull(result); - Assert.AreEqual("Form1", result.Name); - Assert.AreEqual("TForm1", result.TypeName); - Assert.IsFalse(result.IsInherited); - Assert.HasCount(1, result.Properties); - Assert.AreEqual("Left", result.Properties[0].Name); - Assert.AreEqual(100, result.Properties[0].Value); - } - - [TestMethod] - public void Build_InheritedObject_ReturnsLfmObjectWithIsInheritedTrue() - { - // Arrange - const string input = @"inherited Form1: TForm1 - Caption = 'Test' -end"; - _tokenizer.SetInput(input); - var tokens = _tokenizer.Tokenize(); - - // Act - var result = _builder.Build(tokens); - - // Assert - Assert.IsNotNull(result); - Assert.IsTrue(result.IsInherited); - Assert.AreEqual("Form1", result.Name); - Assert.AreEqual("TForm1", result.TypeName); - } - - [TestMethod] - public void Build_ObjectWithStringProperty_ParsesStringCorrectly() - { - // Arrange - const string input = @"object Form1: TForm1 - Caption = 'Hello World' -end"; - _tokenizer.SetInput(input); - var tokens = _tokenizer.Tokenize(); - - // Act - var result = _builder.Build(tokens); - - // Assert - Assert.IsNotNull(result); - Assert.HasCount(1, result.Properties); - Assert.AreEqual("Caption", result.Properties[0].Name); - Assert.AreEqual("Hello World", result.Properties[0].Value); - } - - [TestMethod] - public void Build_ObjectWithBooleanProperty_ParsesBooleanCorrectly() - { - // Arrange - const string input = @"object Form1: TForm1 - Enabled = True - Visible = False -end"; - _tokenizer.SetInput(input); - var tokens = _tokenizer.Tokenize(); - - // Act - var result = _builder.Build(tokens); - - // Assert - Assert.IsNotNull(result); - Assert.HasCount(2, result.Properties); - Assert.IsTrue((bool?)result.Properties[0].Value); - Assert.IsFalse((bool?)result.Properties[1].Value); - } - - [TestMethod] - public void Build_ObjectWithNestedObject_ParsesChildrenCorrectly() - { - // Arrange - const string input = @"object Form1: TForm1 - Left = 100 - object Button1: TButton - Caption = 'Click' - end -end"; - _tokenizer.SetInput(input); - var tokens = _tokenizer.Tokenize(); - - // Act - var result = _builder.Build(tokens); - - // Assert - Assert.IsNotNull(result); - Assert.AreEqual("Form1", result.Name); - Assert.HasCount(1, result.Properties); - Assert.HasCount(1, result.Children); - - var child = result.Children[0]; - Assert.AreEqual("Button1", child.Name); - Assert.AreEqual("TButton", child.TypeName); - Assert.HasCount(1, child.Properties); - Assert.AreEqual("Caption", child.Properties[0].Name); - Assert.AreEqual("Click", child.Properties[0].Value); - } - - [TestMethod] - public void Build_ObjectWithSetProperty_ParsesSetCorrectly() - { - // Arrange - const string input = @"object Form1: TForm1 - BorderIcons = [biMinimize, biMaximize] -end"; - _tokenizer.SetInput(input); - var tokens = _tokenizer.Tokenize(); - - // Act - var result = _builder.Build(tokens); - - // Assert - Assert.IsNotNull(result); - Assert.HasCount(1, result.Properties); - Assert.AreEqual(LfmPropertyType.Set, result.Properties[0].PropertyType); - - var setItems = result.Properties[0].Value as List; - Assert.IsNotNull(setItems); - Assert.HasCount(2, setItems); - Assert.AreEqual("biMinimize", setItems[0]); - Assert.AreEqual("biMaximize", setItems[1]); - } - - [TestMethod] - public void Build_ObjectWithNegativeNumber_ParsesNegativeCorrectly() - { - // Arrange - const string input = @"object Form1: TForm1 - Min = -1000 -end"; - _tokenizer.SetInput(input); - var tokens = _tokenizer.Tokenize(); - - // Act - var result = _builder.Build(tokens); - - // Assert - Assert.IsNotNull(result); - Assert.HasCount(1, result.Properties); - Assert.AreEqual("Min", result.Properties[0].Name); - Assert.AreEqual(-1000, result.Properties[0].Value); - } - - [TestMethod] - public void Build_ObjectWithIdentifierProperty_ParsesIdentifierCorrectly() - { - // Arrange - const string input = @"object Form1: TForm1 - BorderStyle = bsToolWindow -end"; - _tokenizer.SetInput(input); - var tokens = _tokenizer.Tokenize(); - - // Act - var result = _builder.Build(tokens); - - // Assert - Assert.IsNotNull(result); - Assert.HasCount(1, result.Properties); - Assert.AreEqual("BorderStyle", result.Properties[0].Name); - Assert.AreEqual("bsToolWindow", result.Properties[0].Value); - } - - [TestMethod] - public void Build_ObjectWithQualifiedPropertyName_ParsesQualifiedNameCorrectly() - { - // Arrange - const string input = @"object Form1: TForm1 - Font.Name = 'Arial' -end"; - _tokenizer.SetInput(input); - var tokens = _tokenizer.Tokenize(); - - // Act - var result = _builder.Build(tokens); - - // Assert - Assert.IsNotNull(result); - Assert.HasCount(1, result.Properties); - Assert.AreEqual("Font.Name", result.Properties[0].Name); - Assert.AreEqual("Arial", result.Properties[0].Value); - } - - [TestMethod] - public void Build_ObjectWithItemListProperty_ParsesItemListCorrectly() - { - // Arrange - const string input = @"object StatusBar1: TStatusBar - Panels = < - item - Width = 50 - end - item - Width = 80 - end> -end"; - _tokenizer.SetInput(input); - var tokens = _tokenizer.Tokenize(); - - // Act - var result = _builder.Build(tokens); - - // Assert - Assert.IsNotNull(result); - Assert.AreEqual("StatusBar1", result.Name); - Assert.AreEqual("TStatusBar", result.TypeName); - Assert.HasCount(1, result.Properties); - - var panelsProperty = result.Properties[0]; - Assert.AreEqual("Panels", panelsProperty.Name); - Assert.AreEqual(LfmPropertyType.ItemList, panelsProperty.PropertyType); - - var items = panelsProperty.Value as List; - Assert.IsNotNull(items); - Assert.HasCount(2, items); - - // Check first item - Assert.HasCount(1, items[0].Properties); - Assert.AreEqual("Width", items[0].Properties[0].Name); - Assert.AreEqual(50, items[0].Properties[0].Value); - - // Check second item - Assert.HasCount(1, items[1].Properties); - Assert.AreEqual("Width", items[1].Properties[0].Name); - Assert.AreEqual(80, items[1].Properties[0].Value); - } - - [TestMethod] - [DynamicData(nameof(TestBuildList))] - public void Build_FromTestResources_BuildsSuccessfully(string testName, string dir) - { - var source = File.ReadAllText(Path.Combine(dir, testName + "_Source.lfm")); - - // Arrange - _tokenizer.SetInput(source); - var tokens = _tokenizer.Tokenize(); - - // Act - var result = _builder.Build(tokens); - - // Assert - Assert.IsNotNull(result, $"Failed to build object tree for {testName}"); - Assert.IsFalse(string.IsNullOrEmpty(result.Name), $"Object name should not be empty for {testName}"); - Assert.IsFalse(string.IsNullOrEmpty(result.TypeName), $"Object type should not be empty for {testName}"); - - // Output for debugging - var json = JsonSerializer.Serialize(result, new JsonSerializerOptions { WriteIndented = false }); - var outputPath = Path.Combine(dir, testName + "_ObjectTree.json"); - File.WriteAllText(outputPath, json); - } -} diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Models/LfmTokenTests.cs b/Transpiler_pp/TranspilerLib.Pascal.Tests/Models/LfmTokenTests.cs deleted file mode 100644 index 93b980b4e..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Models/LfmTokenTests.cs +++ /dev/null @@ -1,39 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using System.Text; -using System.Threading.Tasks; -using TranspilerLib.Pascal.Models; - -namespace TranspilerLib.Pascal.Tests.Models; - -[TestClass] -public class LfmTokenTests -{ -#pragma warning disable CS8618 // Ein Non-Nullable-Feld muss beim Beenden des Konstruktors einen Wert ungleich NULL enthalten. Fügen Sie ggf. den „erforderlichen“ Modifizierer hinzu, oder deklarieren Sie den Modifizierer als NULL-Werte zulassend. - private LfmToken testClass; -#pragma warning restore CS8618 // Ein Non-Nullable-Feld muss beim Beenden des Konstruktors einen Wert ungleich NULL enthalten. Fügen Sie ggf. den „erforderlichen“ Modifizierer hinzu, oder deklarieren Sie den Modifizierer als NULL-Werte zulassend. - - [TestInitialize] - public void Init() - { - testClass = new LfmToken(LfmTokenType.OBJECT,"button",2,6); - } - - [TestMethod] - public void Setup_tests() - { - // Assert - Assert.IsNotNull(testClass); - Assert.IsInstanceOfType(testClass, typeof(LfmToken)); - } - - [TestMethod] - public void ToCode_tests() - { - // Act - var code = testClass.ToString(); - // Assert - Assert.AreEqual("OBJECT: 'button' at 2:6", code); - } -} diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Models/LfmTokenizerTests.cs b/Transpiler_pp/TranspilerLib.Pascal.Tests/Models/LfmTokenizerTests.cs deleted file mode 100644 index 699db429b..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Models/LfmTokenizerTests.cs +++ /dev/null @@ -1,91 +0,0 @@ -using System; -using System.Collections.Generic; -using System.IO; -using System.Linq; -using System.Text; -using System.Text.Json; -using System.Text.Json.Serialization; -using System.Threading.Tasks; -using System.Xml.Linq; -using TranspilerLib.Pascal.Helper; - -namespace TranspilerLib.Pascal.Models.Tests; - -[TestClass] -public class LfmTokenizerTests -{ - #pragma warning disable CS8618 // Ein Non-Nullable-Feld muss beim Beenden des Konstruktors einen Wert ungleich NULL enthalten. Fügen Sie ggf. den „erforderlichen“ Modifizierer hinzu, oder deklarieren Sie den Modifizierer als NULL-Werte zulassend. - private LfmTokenizer testClass; -#pragma warning restore CS8618 // Ein Non-Nullable-Feld muss beim Beenden des Konstruktors einen Wert ungleich NULL enthalten. Fügen Sie ggf. den „erforderlichen“ Modifizierer hinzu, oder deklarieren Sie den Modifizierer als NULL-Werte zulassend. - - private static readonly JsonSerializerOptions _jsonOptions = new() - { - PropertyNameCaseInsensitive = true, - ReadCommentHandling = JsonCommentHandling.Skip, - AllowTrailingCommas = true, - Converters = - { - new JsonStringEnumConverter(JsonNamingPolicy.CamelCase, allowIntegerValues: true), - } - }; - - - public static IEnumerable TestTokenizeList - { - get - { - foreach (var dir in Directory.EnumerateDirectories(".\\Resources")) - { - if (!File.Exists(Path.Combine(dir, Path.GetFileName(dir) + "_Source.lfm"))) - continue; - - var value = new object[] - { - Path.GetFileName(dir)!, - dir , - }; - yield return value; - } - } - } - - [TestInitialize] - public void Init() - { - testClass = new LfmTokenizer(); - } - - [TestMethod] - public void Setup_tests() - { - // Assert - Assert.IsNotNull(testClass); - Assert.IsInstanceOfType(testClass, typeof(LfmTokenizer)); - } - - [TestMethod] - [DynamicData(nameof(TestTokenizeList))] - public void Tokenize_tests(string sTestName, string dir) - { - var sSource = File.ReadAllText(Path.Combine(dir, Path.GetFileName(dir) + "_Source.lfm")); - var sExpectedTokens = File.Exists(Path.Combine(dir, Path.GetFileName(dir) + "_Expected.json")) ? File.ReadAllText(Path.Combine(dir, Path.GetFileName(dir) + "_Expected.json")):""; - // Arrange - testClass.SetInput(sSource); - // Act - var tokens = testClass.Tokenize(); - // Assert - var sActualTokens = JsonSerializer.Serialize(tokens, _jsonOptions); - try - { - Assert.AreEqual(sExpectedTokens, sActualTokens, $"Testcase: {sTestName}"); - } - catch (AssertFailedException) - { - if (File.Exists(Path.Combine(".", "Resources", sTestName, sTestName + "_actual.json"))) - File.Delete(Path.Combine(".", "Resources", sTestName, sTestName + "_actual.json")); - File.WriteAllText(Path.Combine(".", "Resources", sTestName, sTestName + "_actual.json"), sActualTokens); - throw; - } - - } -} diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Models/Scanner/PasCodeBuilderReproTests.cs b/Transpiler_pp/TranspilerLib.Pascal.Tests/Models/Scanner/PasCodeBuilderReproTests.cs deleted file mode 100644 index 9136bb388..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Models/Scanner/PasCodeBuilderReproTests.cs +++ /dev/null @@ -1,144 +0,0 @@ -using Microsoft.VisualStudio.TestTools.UnitTesting; -using System.Collections.Generic; -using System.Linq; -using TranspilerLib.Data; -using TranspilerLib.Interfaces.Code; -using TranspilerLib.Pascal.Models.Scanner; - -namespace TranspilerLib.Pascal.Models.Scanner.Tests -{ - [TestClass] - public class PasCodeBuilderReproTests - { - [TestMethod] - public void Parse_MultipleVarDeclarations_ShouldBeInDeclarationBlock() - { - var code = @" -var - x: Integer; - y: String; -begin -end."; - var pasCode = new PasCode { OriginalCode = code }; - var root = pasCode.Parse(); - - var declBlock = root.SubBlocks.FirstOrDefault(b => b.Type == CodeBlockType.Declaration && b.Code == "var"); - Assert.IsNotNull(declBlock, "Var declaration block not found"); - - var colons = declBlock.SubBlocks.Where(b => b.Type == CodeBlockType.Operation && b.Code == ":").ToList(); - - // Debug output - System.Console.WriteLine($"DeclBlock SubBlocks: {declBlock.SubBlocks.Count}"); - foreach(var sub in declBlock.SubBlocks) - { - System.Console.WriteLine($" - {sub.Type} {sub.Code}"); - } - System.Console.WriteLine($"Root SubBlocks: {root.SubBlocks.Count}"); - foreach(var sub in root.SubBlocks) - { - System.Console.WriteLine($" - {sub.Type} {sub.Code}"); - } - - Assert.HasCount(2, colons, "Should have 2 declarations in var block"); - } - - [TestMethod] - public void Parse_ProgramName_ShouldBeSetInMainBlock() - { - var code = "Program MyProg; begin end."; - var pasCode = new PasCode { OriginalCode = code }; - var root = pasCode.Parse(); - - Assert.AreEqual("MyProg", root.Name); - Assert.AreEqual("Program", root.Code); - - var dot = root.SubBlocks.LastOrDefault(); - Assert.IsNotNull(dot, "Last block is null"); - Assert.AreEqual(".", dot.Code); - Assert.AreEqual(CodeBlockType.Operation, dot.Type); - } - - [TestMethod] - public void Parse_UnitName_ShouldBeSetInMainBlock() - { - var code = "Unit MyUnit; interface implementation end."; - var pasCode = new PasCode { OriginalCode = code }; - var root = pasCode.Parse(); - - Assert.AreEqual("MyUnit", root.Name); - Assert.AreEqual("Unit", root.Code); - } - - [TestMethod] - public void Parse_MultipleAssignments_ShouldBeSiblingsInBlock() - { - var code = @" -program Test3; -begin - a := 1; - b := 2; -end."; - var pasCode = new PasCode { OriginalCode = code }; - var root = pasCode.Parse(); - - var body = root.SubBlocks.FirstOrDefault(b => b.Type == CodeBlockType.Block && b.Code == "begin"); - Assert.IsNotNull(body, "Body block not found"); - - // Debug - System.Console.WriteLine($"Body SubBlocks: {body.SubBlocks.Count}"); - foreach(var sub in body.SubBlocks) - { - System.Console.WriteLine($" - {sub.Type} {sub.Code}"); - } - - var assignments = body.SubBlocks.Where(b => b.Type == CodeBlockType.Assignment).ToList(); - Assert.HasCount(2, assignments, "Should have 2 assignments"); - Assert.AreEqual("a", assignments[0].SubBlocks[0].Code); - Assert.AreEqual("b", assignments[1].SubBlocks[0].Code); - } - - [TestMethod] - public void Parse_Test2_Repro() - { - // var json = "[{\"Code\":\"var\",\"type\":\"operation\",\"Level\":0,\"Pos\":0},{\"Code\":\"x\",\"type\":\"variable\",\"Level\":0,\"Pos\":4},{\"Code\":\":\",\"type\":\"operation\",\"Level\":0,\"Pos\":5},{\"Code\":\"integer\",\"type\":\"variable\",\"Level\":0,\"Pos\":6},{\"Code\":\";\",\"type\":\"separator\",\"Level\":0,\"Pos\":13},{\"Code\":\"begin\",\"type\":\"block\",\"Level\":1,\"Pos\":16},{\"Code\":\"x\",\"type\":\"variable\",\"Level\":1,\"Pos\":27},{\"Code\":":=\",\"type\":\"assignment\",\"Level\":1,\"Pos\":28},{\"Code\":\"$B10F\",\"type\":\"number\",\"Level\":1,\"Pos\":32},{\"Code\":\";\",\"type\":\"separator\",\"Level\":1,\"Pos\":37},{\"Code\":\"end\",\"type\":\"block\",\"Level\":1,\"Pos\":40},{\"Code\":\".\",\"type\":\"operation\",\"Level\":0,\"Pos\":43}]"; - - var tokens = new List - { - new TokenData { Code = "var", type = CodeBlockType.Operation }, - new TokenData { Code = "x", type = CodeBlockType.Variable }, - new TokenData { Code = ":", type = CodeBlockType.Operation }, - new TokenData { Code = "integer", type = CodeBlockType.Variable }, - new TokenData { Code = ";", type = CodeBlockType.Separator }, - new TokenData { Code = "begin", type = CodeBlockType.Block }, - new TokenData { Code = "x", type = CodeBlockType.Variable }, - new TokenData { Code = ":=", type = CodeBlockType.Assignment }, - new TokenData { Code = "$B10F", type = CodeBlockType.Number }, - new TokenData { Code = ";", type = CodeBlockType.Separator }, - new TokenData { Code = "end", type = CodeBlockType.Block }, - new TokenData { Code = ".", type = CodeBlockType.Operation } - }; - - var pasCode = new PasCode(); - var root = pasCode.Parse(tokens); - - Assert.AreEqual("PascalRoot", root.Name); - Assert.AreEqual(CodeBlockType.MainBlock, root.Type); - - // Check Declaration - var decl = root.SubBlocks.FirstOrDefault(b => b.Type == CodeBlockType.Declaration); - Assert.IsNotNull(decl, "Declaration block missing"); - Assert.AreEqual("var", decl.Code); - - // Check Colon - Assert.HasCount(1, decl.SubBlocks, "Declaration should have 1 child (Colon)"); - var colon = decl.SubBlocks[0]; - Assert.AreEqual(CodeBlockType.Operation, colon.Type); - Assert.AreEqual(":", colon.Code); - - // Check x - Assert.HasCount(2, colon.SubBlocks, "Colon should have 2 children (x, integer)"); - Assert.AreEqual("x", colon.SubBlocks[0].Code); - Assert.AreEqual("integer", colon.SubBlocks[1].Code); - } - } -} diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Models/Scanner/PasCodeTests.cs b/Transpiler_pp/TranspilerLib.Pascal.Tests/Models/Scanner/PasCodeTests.cs deleted file mode 100644 index a7ffa8983..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Models/Scanner/PasCodeTests.cs +++ /dev/null @@ -1,423 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Diagnostics; -using System.IO; -using System.Linq; -using System.Text.Json; -using System.Text.Json.Serialization; -using System.Threading; -using TranspilerLib.Data; -using TranspilerLib.Interfaces.Code; -using TranspilerLib.Pascal.Helper; - -#pragma warning disable IDE0130 -namespace TranspilerLib.Pascal.Models.Scanner.Tests; -#pragma warning restore IDE0130 - -[TestClass] -public class PasCodeTests : TranspilerLib.Models.Tests.TestBase -{ - private PasCode _testClass = null!; - - public static IEnumerable TestTokenizeList - { - get - { - foreach (var dir in Directory.EnumerateDirectories(".\\Resources")) - { - if (!File.Exists(Path.Combine(dir, Path.GetFileName(dir) + "_Source.pas"))) - continue; - - var value = new object[] - { - Path.GetFileName(dir)!, - Path.Combine(dir, Path.GetFileName(dir)+ "_Source.pas") , - File.Exists(Path.Combine(dir,Path.GetFileName(dir)+"_ExpectedTokens.json"))?Path.Combine(dir,Path.GetFileName(dir)+"_ExpectedTokens.json"):"" - }; - yield return value; - } - } - } - - public static IEnumerable TestCodeBuilderList - { - get - { - foreach (var dir in Directory.EnumerateDirectories(".\\Resources")) - { - // require expected tokens to drive Parse() and optionally expected code blocks - var tokensPath = Path.Combine(dir, Path.GetFileName(dir) + "_ExpectedTokens.json"); - if (!File.Exists(tokensPath)) - continue; - - var codeBlocksPath = Path.Combine(dir, Path.GetFileName(dir) + "_ExpectedCodeBlocks.json"); - - var value = new object[] - { - Path.GetFileName(dir)!, - tokensPath, - File.Exists(codeBlocksPath) ? codeBlocksPath : string.Empty - }; - yield return value; - } - } - } - - - [TestInitialize] - public void Init() => _testClass = new PasCode(); - - /* - Erweiterung: JSON-basierte exakte Tokenprfung - ------------------------------------------------ - Ziel: Eine erwartete Sequenz inkl. Reihenfolge, Code und optional Typ przise validieren. - Vorgehen: - - Record ExpectedToken(Code, Type?) - - JsonSerializerOptions mit StringEnumConverter + CaseInsensitive - - Neues DataTestMethod: Tokenize_Scenarios_Json(source, expectedJson) - - Deserialisieren zu List - - Tokenize ausfhren und komplette bereinstimmung prfen: - * Anzahl gleich - * Jedes Token[i].Code case-insensitive == Expected[i].Code - * Falls Expected[i].Type != null -> Vergleich Token[i].type == Expected[i].Type - - Fehlermeldungen klar mit Index / Soll / Ist - Beispiel JSON: - [ {"code":"begin","type":"Block"}, {"code":"end","type":"Block"}, {"code":";"} ] - Hinweis: "type" kann entfallen falls nicht geprft werden soll. - */ - - private sealed record ExpectedToken(string Code, CodeBlockType? Type); - - private static readonly JsonSerializerOptions _jsonOptions = new() - { - PropertyNameCaseInsensitive = true, - ReadCommentHandling = JsonCommentHandling.Skip, - AllowTrailingCommas = true, - Converters = - { - new JsonStringEnumConverter(JsonNamingPolicy.CamelCase, allowIntegerValues: true), - new ICodeBlockPasCodeBlockConverter() - } - }; - - private static List DeserializeTokens(string? json) - { - if (string.IsNullOrWhiteSpace(json)) - return new(); - try - { - var list = JsonSerializer.Deserialize>(json, _jsonOptions); - return list ?? new(); - } - catch (Exception ex) - { - Assert.Fail($"Fehler beim Deserialisieren der Expected-Tokenliste: {ex.Message}\nJSON:\n{json}"); - return new(); - } - } - - private static List DeserializeCodeBlocks(string? json) - { - if (string.IsNullOrWhiteSpace(json)) - return []; - try - { - var list = JsonSerializer.Deserialize>(json, _jsonOptions); - return list?.Select(o=>o as ICodeBlock).ToList() ?? []; - } - catch (Exception ex) - { - Assert.Fail($"Fehler beim Deserialisieren der Expected-Tokenliste: {ex.Message}\nJSON:\n{json}"); - return []; - } - } - - - [TestMethod] - [DataRow("", null, null, 0)] - [DataRow("begin end;", new[] { "begin", "end",";" }, null, 3)] - [DataRow("begin begin end; end;", new[] { "begin", "begin", "end",";", "end",";" }, null, null)] - [DataRow("begin 'a''b'; end;", null, new[] { CodeBlockType.String }, null)] - [DataRow("begin //x\n(* abc *) {def} end;", null, new[] { CodeBlockType.LComment, CodeBlockType.Comment }, null)] - [DataRow("var x: integer; begin end;", new[] { "var","x",":","integer",";", "begin", "end",";" }, null, null)] - [DataRow(" \t\r\n begin end ; ", new[] { "begin", "end", ";" }, null, null)] - public void Tokenize_Scenarios(string source, string[]? expectedCodes, CodeBlockType[]? expectedTypes, int? expectedCount) - { - _testClass.OriginalCode = source; - var tokens = new List(); - _testClass.Tokenize(t => tokens.Add(t)); - - if (expectedCount.HasValue) - Assert.HasCount(expectedCount.Value, tokens, $"Tokenanzahl stimmt nicht fr Source: '{source}'."); - - if (expectedCodes != null) - { - foreach (var ec in expectedCodes.Zip(tokens)) - { - Assert.AreEqual(ec.First, ec.Second.Code.ToLower(), - $"Erwartetes Token-Code '{ec.First}' nicht gefunden but '{ec.Second.Code}' in Source: '{source}'. Gefundene Codes: {string.Join(", ", tokens.Select(t => t.Code))}"); - } - } - - if (expectedTypes != null) - { - foreach (var et in expectedTypes) - { - Assert.IsTrue(tokens.Any(t => t.type == et), - $"Erwarteter Token-Typ '{et}' nicht gefunden in Source: '{source}'. Gefundene Typen: {string.Join(", ", tokens.Select(t => t.type))}"); - } - } - } - - [TestMethod] - [DataRow("begin end;", - "[{\"code\":\"begin\",\"type\":\"Block\",\"Level\":1},{\"code\":\"end\",\"type\":\"Block\",\"Level\":1},{\"code\":\";\"}]")] - [DataRow("begin begin end; end;", - "[{\"code\":\"begin\",\"Level\":1},{\"code\":\"begin\",\"Level\":2},{\"code\":\"end\",\"Level\":2},{\"code\":\";\",\"Level\":1},{\"code\":\"end\",\"Level\":1},{\"code\":\";\"}]")] - [DataRow("begin 'a''b'; end;", - "[{\"code\":\"begin\",\"Level\":1},{\"code\":\"'a''b'\",\"type\":\"String\",\"Level\":1},{\"code\":\";\",\"Level\":1},{\"code\":\"end\",\"Level\":1},{\"code\":\";\"}]")] - [DataRow("begin //x\n(* abc *) {def} end;", - "[{\"code\":\"begin\",\"Level\":1},{\"code\":\"//x\",\"type\":\"LComment\",\"Level\":1},{\"code\":\"(* abc *)\",\"type\":\"FLComment\",\"Level\":1},{\"code\":\"{def}\",\"type\":\"Comment\",\"Level\":1},{\"code\":\"end\",\"Level\":1},{\"code\":\";\"}]")] - [DataRow("var x: integer; begin end;", - "[{\"code\":\"var\"},{\"code\":\"x\"},{\"code\":\":\"},{\"code\":\"integer\"},{\"code\":\";\"},{\"code\":\"begin\",\"Level\":1},{\"code\":\"end\",\"Level\":1},{\"code\":\";\"}]")] - [DataRow(" \t\r\n begin end ; ", - "[{\"code\":\"begin\",\"Level\":1},{\"code\":\"end\",\"Level\":1},{\"code\":\";\"}]")] - [DataRow("var a : array[0..5] of byte;", - "[{\"Code\":\"var\",\"type\":\"operation\",\"Level\":0,\"Pos\":0},{\"Code\":\"a\",\"type\":\"variable\",\"Level\":0,\"Pos\":4},{\"Code\":\":\",\"type\":\"operation\",\"Level\":0,\"Pos\":5},{\"Code\":\"array\",\"type\":\"variable\",\"Level\":0,\"Pos\":8},{\"Code\":\"[\",\"type\":\"operation\",\"Level\":0,\"Pos\":13},{\"Code\":\"0\",\"type\":\"number\",\"Level\":0,\"Pos\":14},{\"Code\":\"..\",\"type\":\"operation\",\"Level\":0,\"Pos\":15},{\"Code\":\"5\",\"type\":\"number\",\"Level\":0,\"Pos\":17},{\"Code\":\"]\",\"type\":\"operation\",\"Level\":0,\"Pos\":18},{\"Code\":\"of\",\"type\":\"operation\",\"Level\":0,\"Pos\":20},{\"Code\":\"byte\",\"type\":\"variable\",\"Level\":0,\"Pos\":23},{\"Code\":\";\",\"type\":\"separator\",\"Level\":0,\"Pos\":27}]")] - [DataRow("var a : 0..5;", - "[{\"Code\":\"var\",\"type\":\"operation\",\"Level\":0,\"Pos\":0},{\"Code\":\"a\",\"type\":\"variable\",\"Level\":0,\"Pos\":4},{\"Code\":\":\",\"type\":\"operation\",\"Level\":0,\"Pos\":5},{\"Code\":\"0\",\"type\":\"number\",\"Level\":0,\"Pos\":8},{\"Code\":\"..\",\"type\":\"operation\",\"Level\":0,\"Pos\":9},{\"Code\":\"5\",\"type\":\"number\",\"Level\":0,\"Pos\":11},{\"Code\":\";\",\"type\":\"separator\",\"Level\":0,\"Pos\":12}]")] - [DataRow("a[2]:=6;", - "[{\"Code\":\"a\",\"type\":\"variable\",\"Level\":0,\"Pos\":0},{\"Code\":\"[\",\"type\":\"operation\",\"Level\":0,\"Pos\":1},{\"Code\":\"2\",\"type\":\"number\",\"Level\":0,\"Pos\":2},{\"Code\":\"]\",\"type\":\"operation\",\"Level\":0,\"Pos\":3},{\"Code\":\":=\",\"type\":\"assignment\",\"Level\":0,\"Pos\":4},{\"Code\":\"6\",\"type\":\"number\",\"Level\":0,\"Pos\":6},{\"Code\":\";\",\"type\":\"separator\",\"Level\":0,\"Pos\":7}]")] - [DataRow("a.b:=2;", - "[{\"Code\":\"a\",\"type\":\"variable\",\"Level\":0,\"Pos\":0},{\"Code\":\".\",\"type\":\"operation\",\"Level\":0,\"Pos\":1},{\"Code\":\"b\",\"type\":\"variable\",\"Level\":0,\"Pos\":2},{\"Code\":\":=\",\"type\":\"assignment\",\"Level\":0,\"Pos\":3},{\"Code\":\"2\",\"type\":\"number\",\"Level\":0,\"Pos\":5},{\"Code\":\";\",\"type\":\"separator\",\"Level\":0,\"Pos\":6}]")] - [DataRow("", "[]")] - public void Tokenize_Scenarios_Json(string source, string? expectedJson) - { - var expected = DeserializeTokens(expectedJson); - _testClass.OriginalCode = source; - var tokens = _testClass.Tokenize().ToList(); - var found = JsonSerializer.Serialize(tokens, _jsonOptions); - Assert.HasCount(expected.Count, tokens, - $"Tokenanzahl stimmt nicht. Erwartet: {expected.Count}, Ist: {tokens.Count} fr Source: '{source}'. Gefundene Codes: {found}"); - - for (int i = 0; i < expected.Count; i++) - { - var exp = expected[i]; - var tok = tokens[i]; - - Assert.AreEqual(exp.Code.ToLowerInvariant(), tok.Code.ToLowerInvariant(), - $"Code-Mismatch an Index {i}. Erwartet: '{exp.Code}' Ist: '{tok.Code}' Source: '{source}'."); - - if (exp.type != CodeBlockType.Unknown) - { - Assert.AreEqual(exp.type, tok.type, - $"Typ-Mismatch an Index {i}. Erwartet: '{exp.type}' Ist: '{tok.type}' fr Token-Code '{tok.Code}' Source: '{source}'."); - } - if (exp.Level != -1) - { - Assert.AreEqual(exp.Level, tok.Level, - $"Typ-Mismatch an Index {i}. Erwartet: '{exp.Level}' Ist: '{tok.type}' fr Token-Code '{tok.Code}' Source: '{source}'."); - } - } - } - - [TestMethod] - [DynamicData(nameof(TestTokenizeList))] - public void Tokenize_Scenarios_Dyn(string name, string sourceFile, string? expectedJsonFile) - { - var source = File.ReadAllText(sourceFile); - var expectedJson = expectedJsonFile != null ? File.ReadAllText(expectedJsonFile) : null; - - var expected = DeserializeTokens(expectedJson); - _testClass.OriginalCode = source; - var tokens = _testClass.Tokenize().ToList(); - - try - { - Assert.HasCount(expected.Count, tokens, - $"Tokenanzahl stimmt nicht. Erwartet: {expected.Count}, Ist: {tokens.Count} fr Source: '{source}'. Gefundene Codes: {string.Join(", ", tokens.Select(t => t.Code))}"); - for (int i = 0; i < expected.Count; i++) - { - var exp = expected[i]; - var tok = tokens[i]; - - Assert.AreEqual(exp.Code.ToLowerInvariant(), tok.Code.ToLowerInvariant(), - $"Code-Mismatch an Index {i}. Erwartet: '{exp.Code}' Ist: '{tok.Code}' Source: '{source}'."); - - if (exp.type != CodeBlockType.Unknown) - { - Assert.AreEqual(exp.type, tok.type, - $"Typ-Mismatch an Index {i}. Erwartet: '{exp.type}' Ist: '{tok.type}' fr Token-Code '{tok.Code}' Source: '{source}'."); - } - if (exp.Level != -1) - { - Assert.AreEqual(exp.Level, tok.Level, - $"Typ-Mismatch an Index {i}. Erwartet: '{exp.Level}' Ist: '{tok.type}' fr Token-Code '{tok.Code}' Source: '{source}'."); - } - } - } - catch (AssertFailedException) - { - if (File.Exists(Path.Combine(".","Resources", name, name + "_actual.json"))) - File.Delete(Path.Combine(".","Resources", name, name + "_actual.json")); - File.WriteAllText(Path.Combine(".","Resources", name, name + "_actual.json"), JsonSerializer.Serialize(tokens, _jsonOptions)); - throw; - } - } - - [TestMethod] - public void Parse_SimpleBeginEnd() - { - _testClass.OriginalCode = "begin end;"; - var root = _testClass.Parse(); - var code = root.ToCode(); - Assert.Contains("begin",code.ToLower()); - Assert.Contains("end",code.ToLower()); - } - - [TestMethod] - [DataRow("", - "[]", - "[{\"Name\":\"PascalRoot\",\"Code\":\"\",\"Type\":\"MainBlock\",\"SubBlocks\":[]}]")] - [DataRow("a[2]:=6;", - "[{\"Code\":\"a\",\"type\":\"variable\",\"Level\":0,\"Pos\":0},{\"Code\":\"[\",\"type\":\"operation\",\"Level\":0,\"Pos\":1},{\"Code\":\"2\",\"type\":\"number\",\"Level\":0,\"Pos\":2},{\"Code\":\"]\",\"type\":\"operation\",\"Level\":0,\"Pos\":3},{\"Code\":\":=\",\"type\":\"assignment\",\"Level\":0,\"Pos\":4},{\"Code\":\"6\",\"type\":\"number\",\"Level\":0,\"Pos\":6},{\"Code\":\";\",\"type\":\"separator\",\"Level\":0,\"Pos\":7}]", - "[{\"Name\":\"PascalRoot\",\"Code\":\"\",\"Type\":\"MainBlock\",\"SubBlocks\":[{\"Name\":\"Assignment\",\"Code\":\":=\",\"Type\":\"Assignment\",\"SubBlocks\":[{\"Name\":\"Operation\",\"Code\":\"[\",\"Type\":\"Operation\",\"SubBlocks\":[{\"Name\":\"Variable\",\"Code\":\"a\",\"Type\":\"Variable\",\"SubBlocks\":[]},{\"Name\":\"Number\",\"Code\":\"2\",\"Type\":\"Number\",\"SubBlocks\":[]}]},{\"Name\":\"Number\",\"Code\":\"6\",\"Type\":\"Number\",\"SubBlocks\":[]}]}]}]")] - [DataRow("a.b:=2;", - "[{\"Code\":\"a\",\"type\":\"variable\",\"Level\":0,\"Pos\":0},{\"Code\":\".\",\"type\":\"operation\",\"Level\":0,\"Pos\":1},{\"Code\":\"b\",\"type\":\"variable\",\"Level\":0,\"Pos\":2},{\"Code\":\":=\",\"type\":\"assignment\",\"Level\":0,\"Pos\":3},{\"Code\":\"2\",\"type\":\"number\",\"Level\":0,\"Pos\":5},{\"Code\":\";\",\"type\":\"separator\",\"Level\":0,\"Pos\":6}]", - "[{\"Name\":\"PascalRoot\",\"Code\":\"\",\"Type\":\"MainBlock\",\"SubBlocks\":[{\"Name\":\"Assignment\",\"Code\":\":=\",\"Type\":\"Assignment\",\"SubBlocks\":[{\"Name\":\"Operation\",\"Code\":\".\",\"Type\":\"Operation\",\"SubBlocks\":[{\"Name\":\"Variable\",\"Code\":\"a\",\"Type\":\"Variable\",\"SubBlocks\":[]},{\"Name\":\"Variable\",\"Code\":\"b\",\"Type\":\"Variable\",\"SubBlocks\":[]}]},{\"Name\":\"Number\",\"Code\":\"2\",\"Type\":\"Number\",\"SubBlocks\":[]}]}]}]")] - [DataRow("begin end;", - "[{\"code\":\"begin\",\"type\":\"Block\",\"Level\":1},{\"code\":\"end\",\"type\":\"Block\",\"Level\":1},{\"code\":\";\",\"type\":\"Operation\"}]", - "[{\"Name\":\"PascalRoot\",\"Code\":\"\",\"Type\":\"MainBlock\",\"SubBlocks\":[{\"Name\":\"Body\",\"Code\":\"begin\",\"Type\":\"Block\",\"SubBlocks\":[]}]}]")] - [DataRow("begin begin end; end;", - "[{\"code\":\"begin\",\"Level\":1,\"type\":\"Block\"},{\"code\":\"begin\",\"Level\":2,\"type\":\"Block\"},{\"code\":\"end\",\"Level\":2,\"type\":\"Block\"},{\"code\":\";\",\"Level\":1,\"type\":\"Operation\"},{\"code\":\"end\",\"Level\":1,\"type\":\"Block\"},{\"code\":\";\",\"type\":\"Operation\"}]", - "[{\"Name\":\"PascalRoot\",\"Code\":\"\",\"Type\":\"MainBlock\",\"SubBlocks\":[{\"Name\":\"Body\",\"Code\":\"begin\",\"Type\":\"Block\",\"SubBlocks\":[{\"Name\":\"Block\",\"Code\":\"begin\",\"Type\":\"Block\",\"SubBlocks\":[]}]}]}]")] - [DataRow("begin 'a''b'; end;", - "[{\"code\":\"begin\",\"Level\":1},{\"code\":\"'a''b'\",\"type\":\"String\",\"Level\":1},{\"code\":\";\",\"Level\":1},{\"code\":\"end\",\"Level\":1},{\"code\":\";\"}]", - "[]")] - [DataRow("begin //x\n(* abc *) {def} end;", - "[{\"code\":\"begin\",\"Level\":1,\"type\":\"Block\"},{\"code\":\"//x\",\"type\":\"LComment\",\"Level\":1},{\"code\":\"(* abc *)\",\"type\":\"FLComment\",\"Level\":1},{\"code\":\"{def}\",\"type\":\"Comment\",\"Level\":1},{\"code\":\"end\",\"Level\":1,\"type\":\"Block\"},{\"code\":\";\",\"type\":\"Operation\"}]", - "[{\"Name\":\"PascalRoot\",\"Code\":\"\",\"Type\":\"MainBlock\",\"SubBlocks\":[{\"Name\":\"Body\",\"Code\":\"begin\",\"Type\":\"Block\",\"SubBlocks\":[{\"Name\":\"LComment\",\"Code\":\"//x\",\"Type\":\"LComment\",\"SubBlocks\":[]},{\"Name\":\"FLComment\",\"Code\":\"(* abc *)\",\"Type\":\"FLComment\",\"SubBlocks\":[]},{\"Name\":\"Comment\",\"Code\":\"{def}\",\"Type\":\"Comment\",\"SubBlocks\":[]}]}]}]")] - [DataRow(" \t\r\n begin end ; ", - "[{\"code\":\"begin\",\"Level\":1,\"type\":\"Block\"},{\"code\":\"end\",\"Level\":1,\"type\":\"Block\"},{\"code\":\";\",\"type\":\"Operation\"}]", - "[{\"Name\":\"PascalRoot\",\"Code\":\"\",\"Type\":\"MainBlock\",\"SubBlocks\":[{\"Name\":\"Body\",\"Code\":\"begin\",\"Type\":\"Block\",\"SubBlocks\":[]}]}]")] - [DataRow("var a : array[0..5] of byte;", - "[{\"Code\":\"var\",\"type\":\"operation\",\"Level\":0,\"Pos\":0},{\"Code\":\"a\",\"type\":\"variable\",\"Level\":0,\"Pos\":4},{\"Code\":\":\",\"type\":\"operation\",\"Level\":0,\"Pos\":5},{\"Code\":\"array\",\"type\":\"variable\",\"Level\":0,\"Pos\":8},{\"Code\":\"[\",\"type\":\"operation\",\"Level\":0,\"Pos\":13},{\"Code\":\"0\",\"type\":\"number\",\"Level\":0,\"Pos\":14},{\"Code\":\"..\",\"type\":\"operation\",\"Level\":0,\"Pos\":15},{\"Code\":\"5\",\"type\":\"number\",\"Level\":0,\"Pos\":17},{\"Code\":\"]\",\"type\":\"operation\",\"Level\":0,\"Pos\":18},{\"Code\":\"of\",\"type\":\"operation\",\"Level\":0,\"Pos\":20},{\"Code\":\"byte\",\"type\":\"variable\",\"Level\":0,\"Pos\":23},{\"Code\":\";\",\"type\":\"separator\",\"Level\":0,\"Pos\":27}]", - "[]")] - [DataRow("var a : 0..5;", - "[{\"Code\":\"var\",\"type\":\"operation\",\"Level\":0,\"Pos\":0},{\"Code\":\"a\",\"type\":\"variable\",\"Level\":0,\"Pos\":4},{\"Code\":\":\",\"type\":\"operation\",\"Level\":0,\"Pos\":5},{\"Code\":\"0\",\"type\":\"number\",\"Level\":0,\"Pos\":8},{\"Code\":\"..\",\"type\":\"operation\",\"Level\":0,\"Pos\":9},{\"Code\":\"5\",\"type\":\"number\",\"Level\":0,\"Pos\":11},{\"Code\":\";\",\"type\":\"separator\",\"Level\":0,\"Pos\":12}]", - "[{\"Name\":\"PascalRoot\",\"Code\":\"\",\"Type\":\"MainBlock\",\"SubBlocks\":[{\"Name\":\"Declaration\",\"Code\":\"var\",\"Type\":\"Declaration\",\"SubBlocks\":[{\"Name\":\"Operation\",\"Code\":\":\",\"Type\":\"Operation\",\"SubBlocks\":[{\"Name\":\"Variable\",\"Code\":\"a\",\"Type\":\"Variable\",\"SubBlocks\":[]},{\"Name\":\"Range\",\"Code\":\"..\",\"Type\":\"Operation\",\"SubBlocks\":[{\"Name\":\"Number\",\"Code\":\"0\",\"Type\":\"Number\",\"SubBlocks\":[]}]},{\"Name\":\"Number\",\"Code\":\"5\",\"Type\":\"Number\",\"SubBlocks\":[]}]}]}]}]")] - [DataRow("var x: integer; begin end;", - "[{\"Code\":\"var\",\"type\":\"operation\",\"Level\":0,\"Pos\":0},{\"Code\":\"x\",\"type\":\"variable\",\"Level\":0,\"Pos\":4},{\"Code\":\":\",\"type\":\"operation\",\"Level\":0,\"Pos\":5},{\"Code\":\"integer\",\"type\":\"variable\",\"Level\":0,\"Pos\":7},{\"Code\":\";\",\"type\":\"separator\",\"Level\":0,\"Pos\":14},{\"Code\":\"begin\",\"type\":\"block\",\"Level\":1,\"Pos\":16},{\"Code\":\"end\",\"type\":\"block\",\"Level\":1,\"Pos\":22},{\"Code\":\";\",\"type\":\"separator\",\"Level\":0,\"Pos\":25}]", - "[{\"Name\":\"PascalRoot\",\"Code\":\"\",\"Type\":\"MainBlock\",\"SubBlocks\":[{\"Name\":\"Declaration\",\"Code\":\"var\",\"Type\":\"Declaration\",\"SubBlocks\":[{\"Name\":\"Operation\",\"Code\":\":\",\"Type\":\"Operation\",\"SubBlocks\":[{\"Name\":\"Variable\",\"Code\":\"x\",\"Type\":\"Variable\",\"SubBlocks\":[]},{\"Name\":\"Type\",\"Code\":\"integer\",\"Type\":\"Variable\",\"SubBlocks\":[]}]}]},{\"Name\":\"Body\",\"Code\":\"begin\",\"Type\":\"Block\",\"SubBlocks\":[]}]}]")] - public void Parse_ShortJson(string pascode, string tokenj, string codeblockj) - { - var tokens = DeserializeTokens(tokenj); - var codeBlocks = DeserializeCodeBlocks(codeblockj); - - var result = _testClass.Parse(tokens); - var found = JsonSerializer.Serialize>([result], _jsonOptions); - - Assert.IsNotNull(result); - try - { - CheckSubBlocks(codeBlocks, [result], "ShortJsonTest"); - } - catch (AssertFailedException) - { - Debug.WriteLine($"Expected CodeBlocks: {found}"); - throw; - } - } - - [TestMethod] - [DynamicData(nameof(TestCodeBuilderList))] - public void Parse_CodeBlockList(string name, string tokensFile, string codeBlocksFile) - { - var tokens = string.IsNullOrWhiteSpace(tokensFile) ? null : File.ReadAllText(tokensFile); - var codeBlocks = string.IsNullOrWhiteSpace(codeBlocksFile) ? null : File.ReadAllText(codeBlocksFile); - - var tokenlist = DeserializeTokens(tokens); - var codeBlockList = DeserializeCodeBlocks(codeBlocks); - - var result = _testClass.Parse(tokenlist); - Assert.IsNotNull(result); - try - { - if (codeBlockList.Count == 1 && codeBlockList[0].Type == CodeBlockType.MainBlock) - { - var expectedBlock = codeBlockList[0]; - var actualBlock = result as PasCodeBlock; - Assert.IsNotNull(actualBlock, $"Result ist null oder nicht vom Typ PasCodeBlock fr Testcase: '{name}'."); - Assert.AreEqual(expectedBlock.Name, actualBlock!.Name, - $"CodeBlock-Name stimmt nicht. Erwartet: '{expectedBlock.Name}', Ist: '{actualBlock.Name}' fr Testcase: '{name}'."); - Assert.AreEqual(expectedBlock.Type, actualBlock.Type, - $"CodeBlock-Type stimmt nicht. Erwartet: '{expectedBlock.Type}', Ist: '{actualBlock.Type}' fr Testcase: '{name}'."); - Assert.AreEqual(expectedBlock.Code, actualBlock.Code, - $"CodeBlock-Code stimmt nicht. Erwartet: '{expectedBlock.Code}', Ist: '{actualBlock.Code}' fr Testcase: '{name}'."); - - // Recursively check sub-blocks? - // The original test only checked top-level. - // But if we want to be thorough, we should check children. - // But let's stick to what the test was trying to do (top level check). - // Wait, the original test iterated codeBlockList and compared with result.SubBlocks. - // If codeBlockList contained children, it would check children. - // Since codeBlockList contains ROOT, it checked ROOT against CHILD. - - // If I fix it to check ROOT against ROOT, I should also check children if possible. - // But the JSON contains subBlocks! - // So I should probably implement a recursive check or at least check the first level of subBlocks. - - CheckSubBlocks(expectedBlock.SubBlocks, actualBlock.SubBlocks, name); - } - else - { - Assert.HasCount(codeBlockList.Count, result.SubBlocks, - $"CodeBlock-Anzahl stimmt nicht. Erwartet: {codeBlockList.Count}, Ist: {result.SubBlocks.Count} fr Testcase: '{name}'."); - for (int i = 0; i < codeBlockList.Count; i++) - { - var expectedBlock = codeBlockList[i]; - var actualBlock = result.SubBlocks[i] as PasCodeBlock; - Assert.IsNotNull(actualBlock, $"CodeBlock an Index {i} ist null oder nicht vom Typ PasCodeBlock fr Testcase: '{name}'."); - Assert.AreEqual(expectedBlock.Name, actualBlock!.Name, - $"CodeBlock-Name stimmt nicht an Index {i}. Erwartet: '{expectedBlock.Name}', Ist: '{actualBlock.Name}' fr Testcase: '{name}'."); - Assert.AreEqual(expectedBlock.Type, actualBlock.Type, - $"CodeBlock-Type stimmt nicht an Index {i}. Erwartet: '{expectedBlock.Type}', Ist: '{actualBlock.Type}' fr Testcase: '{name}'."); - Assert.AreEqual(expectedBlock.Code, actualBlock.Code, - $"CodeBlock-Code stimmt nicht an Index {i}. Erwartet: '{expectedBlock.Code}', Ist: '{actualBlock.Code}' fr Testcase: '{name}'."); - - CheckSubBlocks(expectedBlock.SubBlocks, actualBlock.SubBlocks, name); - } - } - } - catch (AssertFailedException) - { - if (File.Exists(Path.Combine(".","Resources", name, name + "_actual_codeblocks.json"))) - File.Delete(Path.Combine(".","Resources", name, name + "_actual_codeblocks.json")); - File.WriteAllText(Path.Combine(".","Resources", name, name + "_actual_codeblocks.json"), JsonSerializer.Serialize>([result], _jsonOptions)); - throw; - } - } - - private void CheckSubBlocks(IList expected, IList actual, string name) - { - if (expected.Count != actual.Count) - { - Console.WriteLine($"SubBlock count mismatch for {name}. Expected: {expected.Count}, Actual: {actual.Count}"); - Console.WriteLine("Actual blocks:"); - foreach(var b in actual) Console.WriteLine($" - {b.Type} {b.Code}"); - } - Assert.HasCount(expected.Count, actual, $"SubBlock count mismatch for {name}"); - for(int i=0; i0) or(_fe - >=Hel) do begin oO:=0 ;S:=CA ;CA:= A;_C:= - E[S]; Wor:=0 ;for P in(l0 ) do begin - A:=lQ [P and 3]+S; if((A >= 0) and(A< - U*U) and(P<> (A mod U))and (( _C and Z) - <>(E [A]and Z))) then begin l1[ H( - Wor) ]:=P; end; end ; if ( Wor<>0 - )then begin P:=l1[ Random (Wor)] and 3; - A:=lQ [P]+S ;E[S] := _C or O shl P; - E[A] :=E[A]or Z or( O shl( (P+2) mod 4));ll[H(_fe)] - :=A;end else begin if _fe >=Hel then A:=ll[H(Hel)]; - end;end ; Q(d-2); for S :=O to U-O do Q(D shr O);Q(D+O); - for S:=O to U do begin for A:=O to U do Q(E[H(Oo)]and 6 - );Q(D);end; {$IFDEF _} Readln ; {$ENDIF}End;end. - -// (C)ode an (O)pen (O)bjectoriented (L)anguage !!!!! diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm1/Lfm1_Source.lfm b/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm1/Lfm1_Source.lfm deleted file mode 100644 index 19db3bf4e..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm1/Lfm1_Source.lfm +++ /dev/null @@ -1,149 +0,0 @@ -object Form1: TForm1 - Left = 242 - Height = 823 - Top = 127 - Width = 1348 - Caption = 'Form1' - ClientHeight = 823 - ClientWidth = 1348 - OnCreate = FormCreate - OnDestroy = FormDestroy - LCLVersion = '2.0.12.0' - object PaintBox1: TPaintBox - Left = 14 - Height = 105 - Top = 12 - Width = 514 - end - object BitBtn1: TBitBtn - Left = 451 - Height = 30 - Top = 120 - Width = 75 - Caption = 'BitBtn1' - OnClick = BitBtn1Click - TabOrder = 0 - end - object TrackBar1: TTrackBar - Left = 16 - Height = 25 - Top = 120 - Width = 428 - Max = 1000 - Min = -1000 - OnChange = BitBtn1Click - Position = 0 - TabOrder = 1 - end - object PaintBox2: TPaintBox - Left = 14 - Height = 105 - Top = 160 - Width = 514 - end - object BitBtn2: TBitBtn - Left = 453 - Height = 30 - Top = 268 - Width = 75 - Caption = 'BitBtn2' - OnClick = BitBtn2Click - TabOrder = 2 - end - object TrackBar2: TTrackBar - Left = 28 - Height = 25 - Top = 268 - Width = 428 - Max = 1000 - Min = -1000 - OnChange = BitBtn2Click - Position = 0 - TabOrder = 3 - end - object PaintBox3: TPaintBox - Left = 536 - Height = 800 - Top = 12 - Width = 800 - end - object CheckBox1: TCheckBox - Left = 56 - Height = 19 - Top = 303 - Width = 85 - Caption = 'Autochange' - OnChange = CheckBox1Change - OnClick = CheckBox1Click - TabOrder = 4 - end - object btnReset: TButton - Left = 56 - Height = 25 - Top = 328 - Width = 75 - Caption = 'Reset' - OnClick = btnResetClick - TabOrder = 5 - end - object btnStep: TButton - Left = 168 - Height = 25 - Top = 312 - Width = 75 - Caption = 'Step' - OnClick = Timer1Timer - TabOrder = 6 - end - object btnExport: TButton - Left = 310 - Height = 25 - Top = 311 - Width = 75 - Caption = 'Export ...' - OnClick = btnExportClick - TabOrder = 7 - end - object btnPrint: TButton - Left = 310 - Height = 25 - Top = 348 - Width = 75 - Caption = 'Print ...' - OnClick = btnPrintClick - TabOrder = 8 - end - object TrackBar3: TTrackBar - Left = 28 - Height = 25 - Top = 384 - Width = 428 - Max = 6298 - OnChange = TrackBar3Change - Position = 0 - TabOrder = 9 - end - object Label1: TLabel - Left = 39 - Height = 15 - Top = 413 - Width = 34 - Caption = 'Label1' - ParentColor = False - end - object Timer1: TTimer - Enabled = False - Interval = 25 - OnTimer = Timer1Timer - Left = 16 - Top = 304 - end - object SavePictureDialog1: TSavePictureDialog - Left = 392 - Top = 304 - end - object PrintDialog1: TPrintDialog - Left = 392 - Top = 344 - end -end diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm1/Lfm1_actual.json b/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm1/Lfm1_actual.json deleted file mode 100644 index fb7a8d3fd..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm1/Lfm1_actual.json +++ /dev/null @@ -1 +0,0 @@ -[{"Type":"object","Value":"object","Line":1,"Column":1},{"Type":"identifier","Value":"Form1","Line":1,"Column":8},{"Type":"colon","Value":":","Line":1,"Column":13},{"Type":"identifier","Value":"TForm1","Line":1,"Column":15},{"Type":"identifier","Value":"Left","Line":2,"Column":3},{"Type":"equals","Value":"=","Line":2,"Column":8},{"Type":"number","Value":"242","Line":2,"Column":10},{"Type":"identifier","Value":"Height","Line":3,"Column":3},{"Type":"equals","Value":"=","Line":3,"Column":10},{"Type":"number","Value":"823","Line":3,"Column":12},{"Type":"identifier","Value":"Top","Line":4,"Column":3},{"Type":"equals","Value":"=","Line":4,"Column":7},{"Type":"number","Value":"127","Line":4,"Column":9},{"Type":"identifier","Value":"Width","Line":5,"Column":3},{"Type":"equals","Value":"=","Line":5,"Column":9},{"Type":"number","Value":"1348","Line":5,"Column":11},{"Type":"identifier","Value":"Caption","Line":6,"Column":3},{"Type":"equals","Value":"=","Line":6,"Column":11},{"Type":"string","Value":"Form1","Line":6,"Column":13},{"Type":"identifier","Value":"ClientHeight","Line":7,"Column":3},{"Type":"equals","Value":"=","Line":7,"Column":16},{"Type":"number","Value":"823","Line":7,"Column":18},{"Type":"identifier","Value":"ClientWidth","Line":8,"Column":3},{"Type":"equals","Value":"=","Line":8,"Column":15},{"Type":"number","Value":"1348","Line":8,"Column":17},{"Type":"identifier","Value":"OnCreate","Line":9,"Column":3},{"Type":"equals","Value":"=","Line":9,"Column":12},{"Type":"identifier","Value":"FormCreate","Line":9,"Column":14},{"Type":"identifier","Value":"OnDestroy","Line":10,"Column":3},{"Type":"equals","Value":"=","Line":10,"Column":13},{"Type":"identifier","Value":"FormDestroy","Line":10,"Column":15},{"Type":"identifier","Value":"LCLVersion","Line":11,"Column":3},{"Type":"equals","Value":"=","Line":11,"Column":14},{"Type":"string","Value":"2.0.12.0","Line":11,"Column":16},{"Type":"object","Value":"object","Line":12,"Column":3},{"Type":"identifier","Value":"PaintBox1","Line":12,"Column":10},{"Type":"colon","Value":":","Line":12,"Column":19},{"Type":"identifier","Value":"TPaintBox","Line":12,"Column":21},{"Type":"identifier","Value":"Left","Line":13,"Column":5},{"Type":"equals","Value":"=","Line":13,"Column":10},{"Type":"number","Value":"14","Line":13,"Column":12},{"Type":"identifier","Value":"Height","Line":14,"Column":5},{"Type":"equals","Value":"=","Line":14,"Column":12},{"Type":"number","Value":"105","Line":14,"Column":14},{"Type":"identifier","Value":"Top","Line":15,"Column":5},{"Type":"equals","Value":"=","Line":15,"Column":9},{"Type":"number","Value":"12","Line":15,"Column":11},{"Type":"identifier","Value":"Width","Line":16,"Column":5},{"Type":"equals","Value":"=","Line":16,"Column":11},{"Type":"number","Value":"514","Line":16,"Column":13},{"Type":"end","Value":"end","Line":17,"Column":3},{"Type":"object","Value":"object","Line":18,"Column":3},{"Type":"identifier","Value":"BitBtn1","Line":18,"Column":10},{"Type":"colon","Value":":","Line":18,"Column":17},{"Type":"identifier","Value":"TBitBtn","Line":18,"Column":19},{"Type":"identifier","Value":"Left","Line":19,"Column":5},{"Type":"equals","Value":"=","Line":19,"Column":10},{"Type":"number","Value":"451","Line":19,"Column":12},{"Type":"identifier","Value":"Height","Line":20,"Column":5},{"Type":"equals","Value":"=","Line":20,"Column":12},{"Type":"number","Value":"30","Line":20,"Column":14},{"Type":"identifier","Value":"Top","Line":21,"Column":5},{"Type":"equals","Value":"=","Line":21,"Column":9},{"Type":"number","Value":"120","Line":21,"Column":11},{"Type":"identifier","Value":"Width","Line":22,"Column":5},{"Type":"equals","Value":"=","Line":22,"Column":11},{"Type":"number","Value":"75","Line":22,"Column":13},{"Type":"identifier","Value":"Caption","Line":23,"Column":5},{"Type":"equals","Value":"=","Line":23,"Column":13},{"Type":"string","Value":"BitBtn1","Line":23,"Column":15},{"Type":"identifier","Value":"OnClick","Line":24,"Column":5},{"Type":"equals","Value":"=","Line":24,"Column":13},{"Type":"identifier","Value":"BitBtn1Click","Line":24,"Column":15},{"Type":"identifier","Value":"TabOrder","Line":25,"Column":5},{"Type":"equals","Value":"=","Line":25,"Column":14},{"Type":"number","Value":"0","Line":25,"Column":16},{"Type":"end","Value":"end","Line":26,"Column":3},{"Type":"object","Value":"object","Line":27,"Column":3},{"Type":"identifier","Value":"TrackBar1","Line":27,"Column":10},{"Type":"colon","Value":":","Line":27,"Column":19},{"Type":"identifier","Value":"TTrackBar","Line":27,"Column":21},{"Type":"identifier","Value":"Left","Line":28,"Column":5},{"Type":"equals","Value":"=","Line":28,"Column":10},{"Type":"number","Value":"16","Line":28,"Column":12},{"Type":"identifier","Value":"Height","Line":29,"Column":5},{"Type":"equals","Value":"=","Line":29,"Column":12},{"Type":"number","Value":"25","Line":29,"Column":14},{"Type":"identifier","Value":"Top","Line":30,"Column":5},{"Type":"equals","Value":"=","Line":30,"Column":9},{"Type":"number","Value":"120","Line":30,"Column":11},{"Type":"identifier","Value":"Width","Line":31,"Column":5},{"Type":"equals","Value":"=","Line":31,"Column":11},{"Type":"number","Value":"428","Line":31,"Column":13},{"Type":"identifier","Value":"Max","Line":32,"Column":5},{"Type":"equals","Value":"=","Line":32,"Column":9},{"Type":"number","Value":"1000","Line":32,"Column":11},{"Type":"identifier","Value":"Min","Line":33,"Column":5},{"Type":"equals","Value":"=","Line":33,"Column":9},{"Type":"minus","Value":"-","Line":33,"Column":11},{"Type":"number","Value":"1000","Line":33,"Column":12},{"Type":"identifier","Value":"OnChange","Line":34,"Column":5},{"Type":"equals","Value":"=","Line":34,"Column":14},{"Type":"identifier","Value":"BitBtn1Click","Line":34,"Column":16},{"Type":"identifier","Value":"Position","Line":35,"Column":5},{"Type":"equals","Value":"=","Line":35,"Column":14},{"Type":"number","Value":"0","Line":35,"Column":16},{"Type":"identifier","Value":"TabOrder","Line":36,"Column":5},{"Type":"equals","Value":"=","Line":36,"Column":14},{"Type":"number","Value":"1","Line":36,"Column":16},{"Type":"end","Value":"end","Line":37,"Column":3},{"Type":"object","Value":"object","Line":38,"Column":3},{"Type":"identifier","Value":"PaintBox2","Line":38,"Column":10},{"Type":"colon","Value":":","Line":38,"Column":19},{"Type":"identifier","Value":"TPaintBox","Line":38,"Column":21},{"Type":"identifier","Value":"Left","Line":39,"Column":5},{"Type":"equals","Value":"=","Line":39,"Column":10},{"Type":"number","Value":"14","Line":39,"Column":12},{"Type":"identifier","Value":"Height","Line":40,"Column":5},{"Type":"equals","Value":"=","Line":40,"Column":12},{"Type":"number","Value":"105","Line":40,"Column":14},{"Type":"identifier","Value":"Top","Line":41,"Column":5},{"Type":"equals","Value":"=","Line":41,"Column":9},{"Type":"number","Value":"160","Line":41,"Column":11},{"Type":"identifier","Value":"Width","Line":42,"Column":5},{"Type":"equals","Value":"=","Line":42,"Column":11},{"Type":"number","Value":"514","Line":42,"Column":13},{"Type":"end","Value":"end","Line":43,"Column":3},{"Type":"object","Value":"object","Line":44,"Column":3},{"Type":"identifier","Value":"BitBtn2","Line":44,"Column":10},{"Type":"colon","Value":":","Line":44,"Column":17},{"Type":"identifier","Value":"TBitBtn","Line":44,"Column":19},{"Type":"identifier","Value":"Left","Line":45,"Column":5},{"Type":"equals","Value":"=","Line":45,"Column":10},{"Type":"number","Value":"453","Line":45,"Column":12},{"Type":"identifier","Value":"Height","Line":46,"Column":5},{"Type":"equals","Value":"=","Line":46,"Column":12},{"Type":"number","Value":"30","Line":46,"Column":14},{"Type":"identifier","Value":"Top","Line":47,"Column":5},{"Type":"equals","Value":"=","Line":47,"Column":9},{"Type":"number","Value":"268","Line":47,"Column":11},{"Type":"identifier","Value":"Width","Line":48,"Column":5},{"Type":"equals","Value":"=","Line":48,"Column":11},{"Type":"number","Value":"75","Line":48,"Column":13},{"Type":"identifier","Value":"Caption","Line":49,"Column":5},{"Type":"equals","Value":"=","Line":49,"Column":13},{"Type":"string","Value":"BitBtn2","Line":49,"Column":15},{"Type":"identifier","Value":"OnClick","Line":50,"Column":5},{"Type":"equals","Value":"=","Line":50,"Column":13},{"Type":"identifier","Value":"BitBtn2Click","Line":50,"Column":15},{"Type":"identifier","Value":"TabOrder","Line":51,"Column":5},{"Type":"equals","Value":"=","Line":51,"Column":14},{"Type":"number","Value":"2","Line":51,"Column":16},{"Type":"end","Value":"end","Line":52,"Column":3},{"Type":"object","Value":"object","Line":53,"Column":3},{"Type":"identifier","Value":"TrackBar2","Line":53,"Column":10},{"Type":"colon","Value":":","Line":53,"Column":19},{"Type":"identifier","Value":"TTrackBar","Line":53,"Column":21},{"Type":"identifier","Value":"Left","Line":54,"Column":5},{"Type":"equals","Value":"=","Line":54,"Column":10},{"Type":"number","Value":"28","Line":54,"Column":12},{"Type":"identifier","Value":"Height","Line":55,"Column":5},{"Type":"equals","Value":"=","Line":55,"Column":12},{"Type":"number","Value":"25","Line":55,"Column":14},{"Type":"identifier","Value":"Top","Line":56,"Column":5},{"Type":"equals","Value":"=","Line":56,"Column":9},{"Type":"number","Value":"268","Line":56,"Column":11},{"Type":"identifier","Value":"Width","Line":57,"Column":5},{"Type":"equals","Value":"=","Line":57,"Column":11},{"Type":"number","Value":"428","Line":57,"Column":13},{"Type":"identifier","Value":"Max","Line":58,"Column":5},{"Type":"equals","Value":"=","Line":58,"Column":9},{"Type":"number","Value":"1000","Line":58,"Column":11},{"Type":"identifier","Value":"Min","Line":59,"Column":5},{"Type":"equals","Value":"=","Line":59,"Column":9},{"Type":"minus","Value":"-","Line":59,"Column":11},{"Type":"number","Value":"1000","Line":59,"Column":12},{"Type":"identifier","Value":"OnChange","Line":60,"Column":5},{"Type":"equals","Value":"=","Line":60,"Column":14},{"Type":"identifier","Value":"BitBtn2Click","Line":60,"Column":16},{"Type":"identifier","Value":"Position","Line":61,"Column":5},{"Type":"equals","Value":"=","Line":61,"Column":14},{"Type":"number","Value":"0","Line":61,"Column":16},{"Type":"identifier","Value":"TabOrder","Line":62,"Column":5},{"Type":"equals","Value":"=","Line":62,"Column":14},{"Type":"number","Value":"3","Line":62,"Column":16},{"Type":"end","Value":"end","Line":63,"Column":3},{"Type":"object","Value":"object","Line":64,"Column":3},{"Type":"identifier","Value":"PaintBox3","Line":64,"Column":10},{"Type":"colon","Value":":","Line":64,"Column":19},{"Type":"identifier","Value":"TPaintBox","Line":64,"Column":21},{"Type":"identifier","Value":"Left","Line":65,"Column":5},{"Type":"equals","Value":"=","Line":65,"Column":10},{"Type":"number","Value":"536","Line":65,"Column":12},{"Type":"identifier","Value":"Height","Line":66,"Column":5},{"Type":"equals","Value":"=","Line":66,"Column":12},{"Type":"number","Value":"800","Line":66,"Column":14},{"Type":"identifier","Value":"Top","Line":67,"Column":5},{"Type":"equals","Value":"=","Line":67,"Column":9},{"Type":"number","Value":"12","Line":67,"Column":11},{"Type":"identifier","Value":"Width","Line":68,"Column":5},{"Type":"equals","Value":"=","Line":68,"Column":11},{"Type":"number","Value":"800","Line":68,"Column":13},{"Type":"end","Value":"end","Line":69,"Column":3},{"Type":"object","Value":"object","Line":70,"Column":3},{"Type":"identifier","Value":"CheckBox1","Line":70,"Column":10},{"Type":"colon","Value":":","Line":70,"Column":19},{"Type":"identifier","Value":"TCheckBox","Line":70,"Column":21},{"Type":"identifier","Value":"Left","Line":71,"Column":5},{"Type":"equals","Value":"=","Line":71,"Column":10},{"Type":"number","Value":"56","Line":71,"Column":12},{"Type":"identifier","Value":"Height","Line":72,"Column":5},{"Type":"equals","Value":"=","Line":72,"Column":12},{"Type":"number","Value":"19","Line":72,"Column":14},{"Type":"identifier","Value":"Top","Line":73,"Column":5},{"Type":"equals","Value":"=","Line":73,"Column":9},{"Type":"number","Value":"303","Line":73,"Column":11},{"Type":"identifier","Value":"Width","Line":74,"Column":5},{"Type":"equals","Value":"=","Line":74,"Column":11},{"Type":"number","Value":"85","Line":74,"Column":13},{"Type":"identifier","Value":"Caption","Line":75,"Column":5},{"Type":"equals","Value":"=","Line":75,"Column":13},{"Type":"string","Value":"Autochange","Line":75,"Column":15},{"Type":"identifier","Value":"OnChange","Line":76,"Column":5},{"Type":"equals","Value":"=","Line":76,"Column":14},{"Type":"identifier","Value":"CheckBox1Change","Line":76,"Column":16},{"Type":"identifier","Value":"OnClick","Line":77,"Column":5},{"Type":"equals","Value":"=","Line":77,"Column":13},{"Type":"identifier","Value":"CheckBox1Click","Line":77,"Column":15},{"Type":"identifier","Value":"TabOrder","Line":78,"Column":5},{"Type":"equals","Value":"=","Line":78,"Column":14},{"Type":"number","Value":"4","Line":78,"Column":16},{"Type":"end","Value":"end","Line":79,"Column":3},{"Type":"object","Value":"object","Line":80,"Column":3},{"Type":"identifier","Value":"btnReset","Line":80,"Column":10},{"Type":"colon","Value":":","Line":80,"Column":18},{"Type":"identifier","Value":"TButton","Line":80,"Column":20},{"Type":"identifier","Value":"Left","Line":81,"Column":5},{"Type":"equals","Value":"=","Line":81,"Column":10},{"Type":"number","Value":"56","Line":81,"Column":12},{"Type":"identifier","Value":"Height","Line":82,"Column":5},{"Type":"equals","Value":"=","Line":82,"Column":12},{"Type":"number","Value":"25","Line":82,"Column":14},{"Type":"identifier","Value":"Top","Line":83,"Column":5},{"Type":"equals","Value":"=","Line":83,"Column":9},{"Type":"number","Value":"328","Line":83,"Column":11},{"Type":"identifier","Value":"Width","Line":84,"Column":5},{"Type":"equals","Value":"=","Line":84,"Column":11},{"Type":"number","Value":"75","Line":84,"Column":13},{"Type":"identifier","Value":"Caption","Line":85,"Column":5},{"Type":"equals","Value":"=","Line":85,"Column":13},{"Type":"string","Value":"Reset","Line":85,"Column":15},{"Type":"identifier","Value":"OnClick","Line":86,"Column":5},{"Type":"equals","Value":"=","Line":86,"Column":13},{"Type":"identifier","Value":"btnResetClick","Line":86,"Column":15},{"Type":"identifier","Value":"TabOrder","Line":87,"Column":5},{"Type":"equals","Value":"=","Line":87,"Column":14},{"Type":"number","Value":"5","Line":87,"Column":16},{"Type":"end","Value":"end","Line":88,"Column":3},{"Type":"object","Value":"object","Line":89,"Column":3},{"Type":"identifier","Value":"btnStep","Line":89,"Column":10},{"Type":"colon","Value":":","Line":89,"Column":17},{"Type":"identifier","Value":"TButton","Line":89,"Column":19},{"Type":"identifier","Value":"Left","Line":90,"Column":5},{"Type":"equals","Value":"=","Line":90,"Column":10},{"Type":"number","Value":"168","Line":90,"Column":12},{"Type":"identifier","Value":"Height","Line":91,"Column":5},{"Type":"equals","Value":"=","Line":91,"Column":12},{"Type":"number","Value":"25","Line":91,"Column":14},{"Type":"identifier","Value":"Top","Line":92,"Column":5},{"Type":"equals","Value":"=","Line":92,"Column":9},{"Type":"number","Value":"312","Line":92,"Column":11},{"Type":"identifier","Value":"Width","Line":93,"Column":5},{"Type":"equals","Value":"=","Line":93,"Column":11},{"Type":"number","Value":"75","Line":93,"Column":13},{"Type":"identifier","Value":"Caption","Line":94,"Column":5},{"Type":"equals","Value":"=","Line":94,"Column":13},{"Type":"string","Value":"Step","Line":94,"Column":15},{"Type":"identifier","Value":"OnClick","Line":95,"Column":5},{"Type":"equals","Value":"=","Line":95,"Column":13},{"Type":"identifier","Value":"Timer1Timer","Line":95,"Column":15},{"Type":"identifier","Value":"TabOrder","Line":96,"Column":5},{"Type":"equals","Value":"=","Line":96,"Column":14},{"Type":"number","Value":"6","Line":96,"Column":16},{"Type":"end","Value":"end","Line":97,"Column":3},{"Type":"object","Value":"object","Line":98,"Column":3},{"Type":"identifier","Value":"btnExport","Line":98,"Column":10},{"Type":"colon","Value":":","Line":98,"Column":19},{"Type":"identifier","Value":"TButton","Line":98,"Column":21},{"Type":"identifier","Value":"Left","Line":99,"Column":5},{"Type":"equals","Value":"=","Line":99,"Column":10},{"Type":"number","Value":"310","Line":99,"Column":12},{"Type":"identifier","Value":"Height","Line":100,"Column":5},{"Type":"equals","Value":"=","Line":100,"Column":12},{"Type":"number","Value":"25","Line":100,"Column":14},{"Type":"identifier","Value":"Top","Line":101,"Column":5},{"Type":"equals","Value":"=","Line":101,"Column":9},{"Type":"number","Value":"311","Line":101,"Column":11},{"Type":"identifier","Value":"Width","Line":102,"Column":5},{"Type":"equals","Value":"=","Line":102,"Column":11},{"Type":"number","Value":"75","Line":102,"Column":13},{"Type":"identifier","Value":"Caption","Line":103,"Column":5},{"Type":"equals","Value":"=","Line":103,"Column":13},{"Type":"string","Value":"Export ...","Line":103,"Column":15},{"Type":"identifier","Value":"OnClick","Line":104,"Column":5},{"Type":"equals","Value":"=","Line":104,"Column":13},{"Type":"identifier","Value":"btnExportClick","Line":104,"Column":15},{"Type":"identifier","Value":"TabOrder","Line":105,"Column":5},{"Type":"equals","Value":"=","Line":105,"Column":14},{"Type":"number","Value":"7","Line":105,"Column":16},{"Type":"end","Value":"end","Line":106,"Column":3},{"Type":"object","Value":"object","Line":107,"Column":3},{"Type":"identifier","Value":"btnPrint","Line":107,"Column":10},{"Type":"colon","Value":":","Line":107,"Column":18},{"Type":"identifier","Value":"TButton","Line":107,"Column":20},{"Type":"identifier","Value":"Left","Line":108,"Column":5},{"Type":"equals","Value":"=","Line":108,"Column":10},{"Type":"number","Value":"310","Line":108,"Column":12},{"Type":"identifier","Value":"Height","Line":109,"Column":5},{"Type":"equals","Value":"=","Line":109,"Column":12},{"Type":"number","Value":"25","Line":109,"Column":14},{"Type":"identifier","Value":"Top","Line":110,"Column":5},{"Type":"equals","Value":"=","Line":110,"Column":9},{"Type":"number","Value":"348","Line":110,"Column":11},{"Type":"identifier","Value":"Width","Line":111,"Column":5},{"Type":"equals","Value":"=","Line":111,"Column":11},{"Type":"number","Value":"75","Line":111,"Column":13},{"Type":"identifier","Value":"Caption","Line":112,"Column":5},{"Type":"equals","Value":"=","Line":112,"Column":13},{"Type":"string","Value":"Print ...","Line":112,"Column":15},{"Type":"identifier","Value":"OnClick","Line":113,"Column":5},{"Type":"equals","Value":"=","Line":113,"Column":13},{"Type":"identifier","Value":"btnPrintClick","Line":113,"Column":15},{"Type":"identifier","Value":"TabOrder","Line":114,"Column":5},{"Type":"equals","Value":"=","Line":114,"Column":14},{"Type":"number","Value":"8","Line":114,"Column":16},{"Type":"end","Value":"end","Line":115,"Column":3},{"Type":"object","Value":"object","Line":116,"Column":3},{"Type":"identifier","Value":"TrackBar3","Line":116,"Column":10},{"Type":"colon","Value":":","Line":116,"Column":19},{"Type":"identifier","Value":"TTrackBar","Line":116,"Column":21},{"Type":"identifier","Value":"Left","Line":117,"Column":5},{"Type":"equals","Value":"=","Line":117,"Column":10},{"Type":"number","Value":"28","Line":117,"Column":12},{"Type":"identifier","Value":"Height","Line":118,"Column":5},{"Type":"equals","Value":"=","Line":118,"Column":12},{"Type":"number","Value":"25","Line":118,"Column":14},{"Type":"identifier","Value":"Top","Line":119,"Column":5},{"Type":"equals","Value":"=","Line":119,"Column":9},{"Type":"number","Value":"384","Line":119,"Column":11},{"Type":"identifier","Value":"Width","Line":120,"Column":5},{"Type":"equals","Value":"=","Line":120,"Column":11},{"Type":"number","Value":"428","Line":120,"Column":13},{"Type":"identifier","Value":"Max","Line":121,"Column":5},{"Type":"equals","Value":"=","Line":121,"Column":9},{"Type":"number","Value":"6298","Line":121,"Column":11},{"Type":"identifier","Value":"OnChange","Line":122,"Column":5},{"Type":"equals","Value":"=","Line":122,"Column":14},{"Type":"identifier","Value":"TrackBar3Change","Line":122,"Column":16},{"Type":"identifier","Value":"Position","Line":123,"Column":5},{"Type":"equals","Value":"=","Line":123,"Column":14},{"Type":"number","Value":"0","Line":123,"Column":16},{"Type":"identifier","Value":"TabOrder","Line":124,"Column":5},{"Type":"equals","Value":"=","Line":124,"Column":14},{"Type":"number","Value":"9","Line":124,"Column":16},{"Type":"end","Value":"end","Line":125,"Column":3},{"Type":"object","Value":"object","Line":126,"Column":3},{"Type":"identifier","Value":"Label1","Line":126,"Column":10},{"Type":"colon","Value":":","Line":126,"Column":16},{"Type":"identifier","Value":"TLabel","Line":126,"Column":18},{"Type":"identifier","Value":"Left","Line":127,"Column":5},{"Type":"equals","Value":"=","Line":127,"Column":10},{"Type":"number","Value":"39","Line":127,"Column":12},{"Type":"identifier","Value":"Height","Line":128,"Column":5},{"Type":"equals","Value":"=","Line":128,"Column":12},{"Type":"number","Value":"15","Line":128,"Column":14},{"Type":"identifier","Value":"Top","Line":129,"Column":5},{"Type":"equals","Value":"=","Line":129,"Column":9},{"Type":"number","Value":"413","Line":129,"Column":11},{"Type":"identifier","Value":"Width","Line":130,"Column":5},{"Type":"equals","Value":"=","Line":130,"Column":11},{"Type":"number","Value":"34","Line":130,"Column":13},{"Type":"identifier","Value":"Caption","Line":131,"Column":5},{"Type":"equals","Value":"=","Line":131,"Column":13},{"Type":"string","Value":"Label1","Line":131,"Column":15},{"Type":"identifier","Value":"ParentColor","Line":132,"Column":5},{"Type":"equals","Value":"=","Line":132,"Column":17},{"Type":"boolean","Value":"False","Line":132,"Column":19},{"Type":"end","Value":"end","Line":133,"Column":3},{"Type":"object","Value":"object","Line":134,"Column":3},{"Type":"identifier","Value":"Timer1","Line":134,"Column":10},{"Type":"colon","Value":":","Line":134,"Column":16},{"Type":"identifier","Value":"TTimer","Line":134,"Column":18},{"Type":"identifier","Value":"Enabled","Line":135,"Column":5},{"Type":"equals","Value":"=","Line":135,"Column":13},{"Type":"boolean","Value":"False","Line":135,"Column":15},{"Type":"identifier","Value":"Interval","Line":136,"Column":5},{"Type":"equals","Value":"=","Line":136,"Column":14},{"Type":"number","Value":"25","Line":136,"Column":16},{"Type":"identifier","Value":"OnTimer","Line":137,"Column":5},{"Type":"equals","Value":"=","Line":137,"Column":13},{"Type":"identifier","Value":"Timer1Timer","Line":137,"Column":15},{"Type":"identifier","Value":"Left","Line":138,"Column":5},{"Type":"equals","Value":"=","Line":138,"Column":10},{"Type":"number","Value":"16","Line":138,"Column":12},{"Type":"identifier","Value":"Top","Line":139,"Column":5},{"Type":"equals","Value":"=","Line":139,"Column":9},{"Type":"number","Value":"304","Line":139,"Column":11},{"Type":"end","Value":"end","Line":140,"Column":3},{"Type":"object","Value":"object","Line":141,"Column":3},{"Type":"identifier","Value":"SavePictureDialog1","Line":141,"Column":10},{"Type":"colon","Value":":","Line":141,"Column":28},{"Type":"identifier","Value":"TSavePictureDialog","Line":141,"Column":30},{"Type":"identifier","Value":"Left","Line":142,"Column":5},{"Type":"equals","Value":"=","Line":142,"Column":10},{"Type":"number","Value":"392","Line":142,"Column":12},{"Type":"identifier","Value":"Top","Line":143,"Column":5},{"Type":"equals","Value":"=","Line":143,"Column":9},{"Type":"number","Value":"304","Line":143,"Column":11},{"Type":"end","Value":"end","Line":144,"Column":3},{"Type":"object","Value":"object","Line":145,"Column":3},{"Type":"identifier","Value":"PrintDialog1","Line":145,"Column":10},{"Type":"colon","Value":":","Line":145,"Column":22},{"Type":"identifier","Value":"TPrintDialog","Line":145,"Column":24},{"Type":"identifier","Value":"Left","Line":146,"Column":5},{"Type":"equals","Value":"=","Line":146,"Column":10},{"Type":"number","Value":"392","Line":146,"Column":12},{"Type":"identifier","Value":"Top","Line":147,"Column":5},{"Type":"equals","Value":"=","Line":147,"Column":9},{"Type":"number","Value":"344","Line":147,"Column":11},{"Type":"end","Value":"end","Line":148,"Column":3},{"Type":"end","Value":"end","Line":149,"Column":1},{"Type":"eof","Value":"","Line":150,"Column":1}] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm1/Lfm1_expected.json b/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm1/Lfm1_expected.json deleted file mode 100644 index fb7a8d3fd..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm1/Lfm1_expected.json +++ /dev/null @@ -1 +0,0 @@ -[{"Type":"object","Value":"object","Line":1,"Column":1},{"Type":"identifier","Value":"Form1","Line":1,"Column":8},{"Type":"colon","Value":":","Line":1,"Column":13},{"Type":"identifier","Value":"TForm1","Line":1,"Column":15},{"Type":"identifier","Value":"Left","Line":2,"Column":3},{"Type":"equals","Value":"=","Line":2,"Column":8},{"Type":"number","Value":"242","Line":2,"Column":10},{"Type":"identifier","Value":"Height","Line":3,"Column":3},{"Type":"equals","Value":"=","Line":3,"Column":10},{"Type":"number","Value":"823","Line":3,"Column":12},{"Type":"identifier","Value":"Top","Line":4,"Column":3},{"Type":"equals","Value":"=","Line":4,"Column":7},{"Type":"number","Value":"127","Line":4,"Column":9},{"Type":"identifier","Value":"Width","Line":5,"Column":3},{"Type":"equals","Value":"=","Line":5,"Column":9},{"Type":"number","Value":"1348","Line":5,"Column":11},{"Type":"identifier","Value":"Caption","Line":6,"Column":3},{"Type":"equals","Value":"=","Line":6,"Column":11},{"Type":"string","Value":"Form1","Line":6,"Column":13},{"Type":"identifier","Value":"ClientHeight","Line":7,"Column":3},{"Type":"equals","Value":"=","Line":7,"Column":16},{"Type":"number","Value":"823","Line":7,"Column":18},{"Type":"identifier","Value":"ClientWidth","Line":8,"Column":3},{"Type":"equals","Value":"=","Line":8,"Column":15},{"Type":"number","Value":"1348","Line":8,"Column":17},{"Type":"identifier","Value":"OnCreate","Line":9,"Column":3},{"Type":"equals","Value":"=","Line":9,"Column":12},{"Type":"identifier","Value":"FormCreate","Line":9,"Column":14},{"Type":"identifier","Value":"OnDestroy","Line":10,"Column":3},{"Type":"equals","Value":"=","Line":10,"Column":13},{"Type":"identifier","Value":"FormDestroy","Line":10,"Column":15},{"Type":"identifier","Value":"LCLVersion","Line":11,"Column":3},{"Type":"equals","Value":"=","Line":11,"Column":14},{"Type":"string","Value":"2.0.12.0","Line":11,"Column":16},{"Type":"object","Value":"object","Line":12,"Column":3},{"Type":"identifier","Value":"PaintBox1","Line":12,"Column":10},{"Type":"colon","Value":":","Line":12,"Column":19},{"Type":"identifier","Value":"TPaintBox","Line":12,"Column":21},{"Type":"identifier","Value":"Left","Line":13,"Column":5},{"Type":"equals","Value":"=","Line":13,"Column":10},{"Type":"number","Value":"14","Line":13,"Column":12},{"Type":"identifier","Value":"Height","Line":14,"Column":5},{"Type":"equals","Value":"=","Line":14,"Column":12},{"Type":"number","Value":"105","Line":14,"Column":14},{"Type":"identifier","Value":"Top","Line":15,"Column":5},{"Type":"equals","Value":"=","Line":15,"Column":9},{"Type":"number","Value":"12","Line":15,"Column":11},{"Type":"identifier","Value":"Width","Line":16,"Column":5},{"Type":"equals","Value":"=","Line":16,"Column":11},{"Type":"number","Value":"514","Line":16,"Column":13},{"Type":"end","Value":"end","Line":17,"Column":3},{"Type":"object","Value":"object","Line":18,"Column":3},{"Type":"identifier","Value":"BitBtn1","Line":18,"Column":10},{"Type":"colon","Value":":","Line":18,"Column":17},{"Type":"identifier","Value":"TBitBtn","Line":18,"Column":19},{"Type":"identifier","Value":"Left","Line":19,"Column":5},{"Type":"equals","Value":"=","Line":19,"Column":10},{"Type":"number","Value":"451","Line":19,"Column":12},{"Type":"identifier","Value":"Height","Line":20,"Column":5},{"Type":"equals","Value":"=","Line":20,"Column":12},{"Type":"number","Value":"30","Line":20,"Column":14},{"Type":"identifier","Value":"Top","Line":21,"Column":5},{"Type":"equals","Value":"=","Line":21,"Column":9},{"Type":"number","Value":"120","Line":21,"Column":11},{"Type":"identifier","Value":"Width","Line":22,"Column":5},{"Type":"equals","Value":"=","Line":22,"Column":11},{"Type":"number","Value":"75","Line":22,"Column":13},{"Type":"identifier","Value":"Caption","Line":23,"Column":5},{"Type":"equals","Value":"=","Line":23,"Column":13},{"Type":"string","Value":"BitBtn1","Line":23,"Column":15},{"Type":"identifier","Value":"OnClick","Line":24,"Column":5},{"Type":"equals","Value":"=","Line":24,"Column":13},{"Type":"identifier","Value":"BitBtn1Click","Line":24,"Column":15},{"Type":"identifier","Value":"TabOrder","Line":25,"Column":5},{"Type":"equals","Value":"=","Line":25,"Column":14},{"Type":"number","Value":"0","Line":25,"Column":16},{"Type":"end","Value":"end","Line":26,"Column":3},{"Type":"object","Value":"object","Line":27,"Column":3},{"Type":"identifier","Value":"TrackBar1","Line":27,"Column":10},{"Type":"colon","Value":":","Line":27,"Column":19},{"Type":"identifier","Value":"TTrackBar","Line":27,"Column":21},{"Type":"identifier","Value":"Left","Line":28,"Column":5},{"Type":"equals","Value":"=","Line":28,"Column":10},{"Type":"number","Value":"16","Line":28,"Column":12},{"Type":"identifier","Value":"Height","Line":29,"Column":5},{"Type":"equals","Value":"=","Line":29,"Column":12},{"Type":"number","Value":"25","Line":29,"Column":14},{"Type":"identifier","Value":"Top","Line":30,"Column":5},{"Type":"equals","Value":"=","Line":30,"Column":9},{"Type":"number","Value":"120","Line":30,"Column":11},{"Type":"identifier","Value":"Width","Line":31,"Column":5},{"Type":"equals","Value":"=","Line":31,"Column":11},{"Type":"number","Value":"428","Line":31,"Column":13},{"Type":"identifier","Value":"Max","Line":32,"Column":5},{"Type":"equals","Value":"=","Line":32,"Column":9},{"Type":"number","Value":"1000","Line":32,"Column":11},{"Type":"identifier","Value":"Min","Line":33,"Column":5},{"Type":"equals","Value":"=","Line":33,"Column":9},{"Type":"minus","Value":"-","Line":33,"Column":11},{"Type":"number","Value":"1000","Line":33,"Column":12},{"Type":"identifier","Value":"OnChange","Line":34,"Column":5},{"Type":"equals","Value":"=","Line":34,"Column":14},{"Type":"identifier","Value":"BitBtn1Click","Line":34,"Column":16},{"Type":"identifier","Value":"Position","Line":35,"Column":5},{"Type":"equals","Value":"=","Line":35,"Column":14},{"Type":"number","Value":"0","Line":35,"Column":16},{"Type":"identifier","Value":"TabOrder","Line":36,"Column":5},{"Type":"equals","Value":"=","Line":36,"Column":14},{"Type":"number","Value":"1","Line":36,"Column":16},{"Type":"end","Value":"end","Line":37,"Column":3},{"Type":"object","Value":"object","Line":38,"Column":3},{"Type":"identifier","Value":"PaintBox2","Line":38,"Column":10},{"Type":"colon","Value":":","Line":38,"Column":19},{"Type":"identifier","Value":"TPaintBox","Line":38,"Column":21},{"Type":"identifier","Value":"Left","Line":39,"Column":5},{"Type":"equals","Value":"=","Line":39,"Column":10},{"Type":"number","Value":"14","Line":39,"Column":12},{"Type":"identifier","Value":"Height","Line":40,"Column":5},{"Type":"equals","Value":"=","Line":40,"Column":12},{"Type":"number","Value":"105","Line":40,"Column":14},{"Type":"identifier","Value":"Top","Line":41,"Column":5},{"Type":"equals","Value":"=","Line":41,"Column":9},{"Type":"number","Value":"160","Line":41,"Column":11},{"Type":"identifier","Value":"Width","Line":42,"Column":5},{"Type":"equals","Value":"=","Line":42,"Column":11},{"Type":"number","Value":"514","Line":42,"Column":13},{"Type":"end","Value":"end","Line":43,"Column":3},{"Type":"object","Value":"object","Line":44,"Column":3},{"Type":"identifier","Value":"BitBtn2","Line":44,"Column":10},{"Type":"colon","Value":":","Line":44,"Column":17},{"Type":"identifier","Value":"TBitBtn","Line":44,"Column":19},{"Type":"identifier","Value":"Left","Line":45,"Column":5},{"Type":"equals","Value":"=","Line":45,"Column":10},{"Type":"number","Value":"453","Line":45,"Column":12},{"Type":"identifier","Value":"Height","Line":46,"Column":5},{"Type":"equals","Value":"=","Line":46,"Column":12},{"Type":"number","Value":"30","Line":46,"Column":14},{"Type":"identifier","Value":"Top","Line":47,"Column":5},{"Type":"equals","Value":"=","Line":47,"Column":9},{"Type":"number","Value":"268","Line":47,"Column":11},{"Type":"identifier","Value":"Width","Line":48,"Column":5},{"Type":"equals","Value":"=","Line":48,"Column":11},{"Type":"number","Value":"75","Line":48,"Column":13},{"Type":"identifier","Value":"Caption","Line":49,"Column":5},{"Type":"equals","Value":"=","Line":49,"Column":13},{"Type":"string","Value":"BitBtn2","Line":49,"Column":15},{"Type":"identifier","Value":"OnClick","Line":50,"Column":5},{"Type":"equals","Value":"=","Line":50,"Column":13},{"Type":"identifier","Value":"BitBtn2Click","Line":50,"Column":15},{"Type":"identifier","Value":"TabOrder","Line":51,"Column":5},{"Type":"equals","Value":"=","Line":51,"Column":14},{"Type":"number","Value":"2","Line":51,"Column":16},{"Type":"end","Value":"end","Line":52,"Column":3},{"Type":"object","Value":"object","Line":53,"Column":3},{"Type":"identifier","Value":"TrackBar2","Line":53,"Column":10},{"Type":"colon","Value":":","Line":53,"Column":19},{"Type":"identifier","Value":"TTrackBar","Line":53,"Column":21},{"Type":"identifier","Value":"Left","Line":54,"Column":5},{"Type":"equals","Value":"=","Line":54,"Column":10},{"Type":"number","Value":"28","Line":54,"Column":12},{"Type":"identifier","Value":"Height","Line":55,"Column":5},{"Type":"equals","Value":"=","Line":55,"Column":12},{"Type":"number","Value":"25","Line":55,"Column":14},{"Type":"identifier","Value":"Top","Line":56,"Column":5},{"Type":"equals","Value":"=","Line":56,"Column":9},{"Type":"number","Value":"268","Line":56,"Column":11},{"Type":"identifier","Value":"Width","Line":57,"Column":5},{"Type":"equals","Value":"=","Line":57,"Column":11},{"Type":"number","Value":"428","Line":57,"Column":13},{"Type":"identifier","Value":"Max","Line":58,"Column":5},{"Type":"equals","Value":"=","Line":58,"Column":9},{"Type":"number","Value":"1000","Line":58,"Column":11},{"Type":"identifier","Value":"Min","Line":59,"Column":5},{"Type":"equals","Value":"=","Line":59,"Column":9},{"Type":"minus","Value":"-","Line":59,"Column":11},{"Type":"number","Value":"1000","Line":59,"Column":12},{"Type":"identifier","Value":"OnChange","Line":60,"Column":5},{"Type":"equals","Value":"=","Line":60,"Column":14},{"Type":"identifier","Value":"BitBtn2Click","Line":60,"Column":16},{"Type":"identifier","Value":"Position","Line":61,"Column":5},{"Type":"equals","Value":"=","Line":61,"Column":14},{"Type":"number","Value":"0","Line":61,"Column":16},{"Type":"identifier","Value":"TabOrder","Line":62,"Column":5},{"Type":"equals","Value":"=","Line":62,"Column":14},{"Type":"number","Value":"3","Line":62,"Column":16},{"Type":"end","Value":"end","Line":63,"Column":3},{"Type":"object","Value":"object","Line":64,"Column":3},{"Type":"identifier","Value":"PaintBox3","Line":64,"Column":10},{"Type":"colon","Value":":","Line":64,"Column":19},{"Type":"identifier","Value":"TPaintBox","Line":64,"Column":21},{"Type":"identifier","Value":"Left","Line":65,"Column":5},{"Type":"equals","Value":"=","Line":65,"Column":10},{"Type":"number","Value":"536","Line":65,"Column":12},{"Type":"identifier","Value":"Height","Line":66,"Column":5},{"Type":"equals","Value":"=","Line":66,"Column":12},{"Type":"number","Value":"800","Line":66,"Column":14},{"Type":"identifier","Value":"Top","Line":67,"Column":5},{"Type":"equals","Value":"=","Line":67,"Column":9},{"Type":"number","Value":"12","Line":67,"Column":11},{"Type":"identifier","Value":"Width","Line":68,"Column":5},{"Type":"equals","Value":"=","Line":68,"Column":11},{"Type":"number","Value":"800","Line":68,"Column":13},{"Type":"end","Value":"end","Line":69,"Column":3},{"Type":"object","Value":"object","Line":70,"Column":3},{"Type":"identifier","Value":"CheckBox1","Line":70,"Column":10},{"Type":"colon","Value":":","Line":70,"Column":19},{"Type":"identifier","Value":"TCheckBox","Line":70,"Column":21},{"Type":"identifier","Value":"Left","Line":71,"Column":5},{"Type":"equals","Value":"=","Line":71,"Column":10},{"Type":"number","Value":"56","Line":71,"Column":12},{"Type":"identifier","Value":"Height","Line":72,"Column":5},{"Type":"equals","Value":"=","Line":72,"Column":12},{"Type":"number","Value":"19","Line":72,"Column":14},{"Type":"identifier","Value":"Top","Line":73,"Column":5},{"Type":"equals","Value":"=","Line":73,"Column":9},{"Type":"number","Value":"303","Line":73,"Column":11},{"Type":"identifier","Value":"Width","Line":74,"Column":5},{"Type":"equals","Value":"=","Line":74,"Column":11},{"Type":"number","Value":"85","Line":74,"Column":13},{"Type":"identifier","Value":"Caption","Line":75,"Column":5},{"Type":"equals","Value":"=","Line":75,"Column":13},{"Type":"string","Value":"Autochange","Line":75,"Column":15},{"Type":"identifier","Value":"OnChange","Line":76,"Column":5},{"Type":"equals","Value":"=","Line":76,"Column":14},{"Type":"identifier","Value":"CheckBox1Change","Line":76,"Column":16},{"Type":"identifier","Value":"OnClick","Line":77,"Column":5},{"Type":"equals","Value":"=","Line":77,"Column":13},{"Type":"identifier","Value":"CheckBox1Click","Line":77,"Column":15},{"Type":"identifier","Value":"TabOrder","Line":78,"Column":5},{"Type":"equals","Value":"=","Line":78,"Column":14},{"Type":"number","Value":"4","Line":78,"Column":16},{"Type":"end","Value":"end","Line":79,"Column":3},{"Type":"object","Value":"object","Line":80,"Column":3},{"Type":"identifier","Value":"btnReset","Line":80,"Column":10},{"Type":"colon","Value":":","Line":80,"Column":18},{"Type":"identifier","Value":"TButton","Line":80,"Column":20},{"Type":"identifier","Value":"Left","Line":81,"Column":5},{"Type":"equals","Value":"=","Line":81,"Column":10},{"Type":"number","Value":"56","Line":81,"Column":12},{"Type":"identifier","Value":"Height","Line":82,"Column":5},{"Type":"equals","Value":"=","Line":82,"Column":12},{"Type":"number","Value":"25","Line":82,"Column":14},{"Type":"identifier","Value":"Top","Line":83,"Column":5},{"Type":"equals","Value":"=","Line":83,"Column":9},{"Type":"number","Value":"328","Line":83,"Column":11},{"Type":"identifier","Value":"Width","Line":84,"Column":5},{"Type":"equals","Value":"=","Line":84,"Column":11},{"Type":"number","Value":"75","Line":84,"Column":13},{"Type":"identifier","Value":"Caption","Line":85,"Column":5},{"Type":"equals","Value":"=","Line":85,"Column":13},{"Type":"string","Value":"Reset","Line":85,"Column":15},{"Type":"identifier","Value":"OnClick","Line":86,"Column":5},{"Type":"equals","Value":"=","Line":86,"Column":13},{"Type":"identifier","Value":"btnResetClick","Line":86,"Column":15},{"Type":"identifier","Value":"TabOrder","Line":87,"Column":5},{"Type":"equals","Value":"=","Line":87,"Column":14},{"Type":"number","Value":"5","Line":87,"Column":16},{"Type":"end","Value":"end","Line":88,"Column":3},{"Type":"object","Value":"object","Line":89,"Column":3},{"Type":"identifier","Value":"btnStep","Line":89,"Column":10},{"Type":"colon","Value":":","Line":89,"Column":17},{"Type":"identifier","Value":"TButton","Line":89,"Column":19},{"Type":"identifier","Value":"Left","Line":90,"Column":5},{"Type":"equals","Value":"=","Line":90,"Column":10},{"Type":"number","Value":"168","Line":90,"Column":12},{"Type":"identifier","Value":"Height","Line":91,"Column":5},{"Type":"equals","Value":"=","Line":91,"Column":12},{"Type":"number","Value":"25","Line":91,"Column":14},{"Type":"identifier","Value":"Top","Line":92,"Column":5},{"Type":"equals","Value":"=","Line":92,"Column":9},{"Type":"number","Value":"312","Line":92,"Column":11},{"Type":"identifier","Value":"Width","Line":93,"Column":5},{"Type":"equals","Value":"=","Line":93,"Column":11},{"Type":"number","Value":"75","Line":93,"Column":13},{"Type":"identifier","Value":"Caption","Line":94,"Column":5},{"Type":"equals","Value":"=","Line":94,"Column":13},{"Type":"string","Value":"Step","Line":94,"Column":15},{"Type":"identifier","Value":"OnClick","Line":95,"Column":5},{"Type":"equals","Value":"=","Line":95,"Column":13},{"Type":"identifier","Value":"Timer1Timer","Line":95,"Column":15},{"Type":"identifier","Value":"TabOrder","Line":96,"Column":5},{"Type":"equals","Value":"=","Line":96,"Column":14},{"Type":"number","Value":"6","Line":96,"Column":16},{"Type":"end","Value":"end","Line":97,"Column":3},{"Type":"object","Value":"object","Line":98,"Column":3},{"Type":"identifier","Value":"btnExport","Line":98,"Column":10},{"Type":"colon","Value":":","Line":98,"Column":19},{"Type":"identifier","Value":"TButton","Line":98,"Column":21},{"Type":"identifier","Value":"Left","Line":99,"Column":5},{"Type":"equals","Value":"=","Line":99,"Column":10},{"Type":"number","Value":"310","Line":99,"Column":12},{"Type":"identifier","Value":"Height","Line":100,"Column":5},{"Type":"equals","Value":"=","Line":100,"Column":12},{"Type":"number","Value":"25","Line":100,"Column":14},{"Type":"identifier","Value":"Top","Line":101,"Column":5},{"Type":"equals","Value":"=","Line":101,"Column":9},{"Type":"number","Value":"311","Line":101,"Column":11},{"Type":"identifier","Value":"Width","Line":102,"Column":5},{"Type":"equals","Value":"=","Line":102,"Column":11},{"Type":"number","Value":"75","Line":102,"Column":13},{"Type":"identifier","Value":"Caption","Line":103,"Column":5},{"Type":"equals","Value":"=","Line":103,"Column":13},{"Type":"string","Value":"Export ...","Line":103,"Column":15},{"Type":"identifier","Value":"OnClick","Line":104,"Column":5},{"Type":"equals","Value":"=","Line":104,"Column":13},{"Type":"identifier","Value":"btnExportClick","Line":104,"Column":15},{"Type":"identifier","Value":"TabOrder","Line":105,"Column":5},{"Type":"equals","Value":"=","Line":105,"Column":14},{"Type":"number","Value":"7","Line":105,"Column":16},{"Type":"end","Value":"end","Line":106,"Column":3},{"Type":"object","Value":"object","Line":107,"Column":3},{"Type":"identifier","Value":"btnPrint","Line":107,"Column":10},{"Type":"colon","Value":":","Line":107,"Column":18},{"Type":"identifier","Value":"TButton","Line":107,"Column":20},{"Type":"identifier","Value":"Left","Line":108,"Column":5},{"Type":"equals","Value":"=","Line":108,"Column":10},{"Type":"number","Value":"310","Line":108,"Column":12},{"Type":"identifier","Value":"Height","Line":109,"Column":5},{"Type":"equals","Value":"=","Line":109,"Column":12},{"Type":"number","Value":"25","Line":109,"Column":14},{"Type":"identifier","Value":"Top","Line":110,"Column":5},{"Type":"equals","Value":"=","Line":110,"Column":9},{"Type":"number","Value":"348","Line":110,"Column":11},{"Type":"identifier","Value":"Width","Line":111,"Column":5},{"Type":"equals","Value":"=","Line":111,"Column":11},{"Type":"number","Value":"75","Line":111,"Column":13},{"Type":"identifier","Value":"Caption","Line":112,"Column":5},{"Type":"equals","Value":"=","Line":112,"Column":13},{"Type":"string","Value":"Print ...","Line":112,"Column":15},{"Type":"identifier","Value":"OnClick","Line":113,"Column":5},{"Type":"equals","Value":"=","Line":113,"Column":13},{"Type":"identifier","Value":"btnPrintClick","Line":113,"Column":15},{"Type":"identifier","Value":"TabOrder","Line":114,"Column":5},{"Type":"equals","Value":"=","Line":114,"Column":14},{"Type":"number","Value":"8","Line":114,"Column":16},{"Type":"end","Value":"end","Line":115,"Column":3},{"Type":"object","Value":"object","Line":116,"Column":3},{"Type":"identifier","Value":"TrackBar3","Line":116,"Column":10},{"Type":"colon","Value":":","Line":116,"Column":19},{"Type":"identifier","Value":"TTrackBar","Line":116,"Column":21},{"Type":"identifier","Value":"Left","Line":117,"Column":5},{"Type":"equals","Value":"=","Line":117,"Column":10},{"Type":"number","Value":"28","Line":117,"Column":12},{"Type":"identifier","Value":"Height","Line":118,"Column":5},{"Type":"equals","Value":"=","Line":118,"Column":12},{"Type":"number","Value":"25","Line":118,"Column":14},{"Type":"identifier","Value":"Top","Line":119,"Column":5},{"Type":"equals","Value":"=","Line":119,"Column":9},{"Type":"number","Value":"384","Line":119,"Column":11},{"Type":"identifier","Value":"Width","Line":120,"Column":5},{"Type":"equals","Value":"=","Line":120,"Column":11},{"Type":"number","Value":"428","Line":120,"Column":13},{"Type":"identifier","Value":"Max","Line":121,"Column":5},{"Type":"equals","Value":"=","Line":121,"Column":9},{"Type":"number","Value":"6298","Line":121,"Column":11},{"Type":"identifier","Value":"OnChange","Line":122,"Column":5},{"Type":"equals","Value":"=","Line":122,"Column":14},{"Type":"identifier","Value":"TrackBar3Change","Line":122,"Column":16},{"Type":"identifier","Value":"Position","Line":123,"Column":5},{"Type":"equals","Value":"=","Line":123,"Column":14},{"Type":"number","Value":"0","Line":123,"Column":16},{"Type":"identifier","Value":"TabOrder","Line":124,"Column":5},{"Type":"equals","Value":"=","Line":124,"Column":14},{"Type":"number","Value":"9","Line":124,"Column":16},{"Type":"end","Value":"end","Line":125,"Column":3},{"Type":"object","Value":"object","Line":126,"Column":3},{"Type":"identifier","Value":"Label1","Line":126,"Column":10},{"Type":"colon","Value":":","Line":126,"Column":16},{"Type":"identifier","Value":"TLabel","Line":126,"Column":18},{"Type":"identifier","Value":"Left","Line":127,"Column":5},{"Type":"equals","Value":"=","Line":127,"Column":10},{"Type":"number","Value":"39","Line":127,"Column":12},{"Type":"identifier","Value":"Height","Line":128,"Column":5},{"Type":"equals","Value":"=","Line":128,"Column":12},{"Type":"number","Value":"15","Line":128,"Column":14},{"Type":"identifier","Value":"Top","Line":129,"Column":5},{"Type":"equals","Value":"=","Line":129,"Column":9},{"Type":"number","Value":"413","Line":129,"Column":11},{"Type":"identifier","Value":"Width","Line":130,"Column":5},{"Type":"equals","Value":"=","Line":130,"Column":11},{"Type":"number","Value":"34","Line":130,"Column":13},{"Type":"identifier","Value":"Caption","Line":131,"Column":5},{"Type":"equals","Value":"=","Line":131,"Column":13},{"Type":"string","Value":"Label1","Line":131,"Column":15},{"Type":"identifier","Value":"ParentColor","Line":132,"Column":5},{"Type":"equals","Value":"=","Line":132,"Column":17},{"Type":"boolean","Value":"False","Line":132,"Column":19},{"Type":"end","Value":"end","Line":133,"Column":3},{"Type":"object","Value":"object","Line":134,"Column":3},{"Type":"identifier","Value":"Timer1","Line":134,"Column":10},{"Type":"colon","Value":":","Line":134,"Column":16},{"Type":"identifier","Value":"TTimer","Line":134,"Column":18},{"Type":"identifier","Value":"Enabled","Line":135,"Column":5},{"Type":"equals","Value":"=","Line":135,"Column":13},{"Type":"boolean","Value":"False","Line":135,"Column":15},{"Type":"identifier","Value":"Interval","Line":136,"Column":5},{"Type":"equals","Value":"=","Line":136,"Column":14},{"Type":"number","Value":"25","Line":136,"Column":16},{"Type":"identifier","Value":"OnTimer","Line":137,"Column":5},{"Type":"equals","Value":"=","Line":137,"Column":13},{"Type":"identifier","Value":"Timer1Timer","Line":137,"Column":15},{"Type":"identifier","Value":"Left","Line":138,"Column":5},{"Type":"equals","Value":"=","Line":138,"Column":10},{"Type":"number","Value":"16","Line":138,"Column":12},{"Type":"identifier","Value":"Top","Line":139,"Column":5},{"Type":"equals","Value":"=","Line":139,"Column":9},{"Type":"number","Value":"304","Line":139,"Column":11},{"Type":"end","Value":"end","Line":140,"Column":3},{"Type":"object","Value":"object","Line":141,"Column":3},{"Type":"identifier","Value":"SavePictureDialog1","Line":141,"Column":10},{"Type":"colon","Value":":","Line":141,"Column":28},{"Type":"identifier","Value":"TSavePictureDialog","Line":141,"Column":30},{"Type":"identifier","Value":"Left","Line":142,"Column":5},{"Type":"equals","Value":"=","Line":142,"Column":10},{"Type":"number","Value":"392","Line":142,"Column":12},{"Type":"identifier","Value":"Top","Line":143,"Column":5},{"Type":"equals","Value":"=","Line":143,"Column":9},{"Type":"number","Value":"304","Line":143,"Column":11},{"Type":"end","Value":"end","Line":144,"Column":3},{"Type":"object","Value":"object","Line":145,"Column":3},{"Type":"identifier","Value":"PrintDialog1","Line":145,"Column":10},{"Type":"colon","Value":":","Line":145,"Column":22},{"Type":"identifier","Value":"TPrintDialog","Line":145,"Column":24},{"Type":"identifier","Value":"Left","Line":146,"Column":5},{"Type":"equals","Value":"=","Line":146,"Column":10},{"Type":"number","Value":"392","Line":146,"Column":12},{"Type":"identifier","Value":"Top","Line":147,"Column":5},{"Type":"equals","Value":"=","Line":147,"Column":9},{"Type":"number","Value":"344","Line":147,"Column":11},{"Type":"end","Value":"end","Line":148,"Column":3},{"Type":"end","Value":"end","Line":149,"Column":1},{"Type":"eof","Value":"","Line":150,"Column":1}] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm2/Lfm2_expected.json b/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm2/Lfm2_expected.json deleted file mode 100644 index 79ce4dcb6..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm2/Lfm2_expected.json +++ /dev/null @@ -1 +0,0 @@ -[{"Type":"object","Value":"object","Line":1,"Column":1},{"Type":"identifier","Value":"Form2","Line":1,"Column":8},{"Type":"colon","Value":":","Line":1,"Column":13},{"Type":"identifier","Value":"TForm2","Line":1,"Column":15},{"Type":"identifier","Value":"Left","Line":2,"Column":3},{"Type":"equals","Value":"=","Line":2,"Column":8},{"Type":"number","Value":"337","Line":2,"Column":10},{"Type":"identifier","Value":"Height","Line":3,"Column":3},{"Type":"equals","Value":"=","Line":3,"Column":10},{"Type":"number","Value":"26","Line":3,"Column":12},{"Type":"identifier","Value":"Top","Line":4,"Column":3},{"Type":"equals","Value":"=","Line":4,"Column":7},{"Type":"number","Value":"250","Line":4,"Column":9},{"Type":"identifier","Value":"Width","Line":5,"Column":3},{"Type":"equals","Value":"=","Line":5,"Column":9},{"Type":"number","Value":"93","Line":5,"Column":11},{"Type":"identifier","Value":"AutoSize","Line":6,"Column":3},{"Type":"equals","Value":"=","Line":6,"Column":12},{"Type":"boolean","Value":"True","Line":6,"Column":14},{"Type":"identifier","Value":"BorderIcons","Line":7,"Column":3},{"Type":"equals","Value":"=","Line":7,"Column":15},{"Type":"lbracket","Value":"[","Line":7,"Column":17},{"Type":"identifier","Value":"biMinimize","Line":7,"Column":18},{"Type":"comma","Value":",","Line":7,"Column":28},{"Type":"identifier","Value":"biMaximize","Line":7,"Column":30},{"Type":"rbracket","Value":"]","Line":7,"Column":40},{"Type":"identifier","Value":"BorderStyle","Line":8,"Column":3},{"Type":"equals","Value":"=","Line":8,"Column":15},{"Type":"identifier","Value":"bsToolWindow","Line":8,"Column":17},{"Type":"identifier","Value":"Caption","Line":9,"Column":3},{"Type":"equals","Value":"=","Line":9,"Column":11},{"Type":"string","Value":"Form2","Line":9,"Column":13},{"Type":"identifier","Value":"ClientHeight","Line":10,"Column":3},{"Type":"equals","Value":"=","Line":10,"Column":16},{"Type":"number","Value":"26","Line":10,"Column":18},{"Type":"identifier","Value":"ClientWidth","Line":11,"Column":3},{"Type":"equals","Value":"=","Line":11,"Column":15},{"Type":"number","Value":"93","Line":11,"Column":17},{"Type":"identifier","Value":"FormStyle","Line":12,"Column":3},{"Type":"equals","Value":"=","Line":12,"Column":13},{"Type":"identifier","Value":"fsMDIChild","Line":12,"Column":15},{"Type":"identifier","Value":"ShowInTaskBar","Line":13,"Column":3},{"Type":"equals","Value":"=","Line":13,"Column":17},{"Type":"identifier","Value":"stNever","Line":13,"Column":19},{"Type":"object","Value":"object","Line":14,"Column":3},{"Type":"identifier","Value":"BCToolBar1","Line":14,"Column":10},{"Type":"colon","Value":":","Line":14,"Column":20},{"Type":"identifier","Value":"TBCToolBar","Line":14,"Column":22},{"Type":"identifier","Value":"Left","Line":15,"Column":5},{"Type":"equals","Value":"=","Line":15,"Column":10},{"Type":"number","Value":"0","Line":15,"Column":12},{"Type":"identifier","Value":"Height","Line":16,"Column":5},{"Type":"equals","Value":"=","Line":16,"Column":12},{"Type":"number","Value":"26","Line":16,"Column":14},{"Type":"identifier","Value":"Top","Line":17,"Column":5},{"Type":"equals","Value":"=","Line":17,"Column":9},{"Type":"number","Value":"0","Line":17,"Column":11},{"Type":"identifier","Value":"Width","Line":18,"Column":5},{"Type":"equals","Value":"=","Line":18,"Column":11},{"Type":"number","Value":"93","Line":18,"Column":13},{"Type":"identifier","Value":"Caption","Line":19,"Column":5},{"Type":"equals","Value":"=","Line":19,"Column":13},{"Type":"string","Value":"BCToolBar1","Line":19,"Column":15},{"Type":"identifier","Value":"Images","Line":20,"Column":5},{"Type":"equals","Value":"=","Line":20,"Column":12},{"Type":"identifier","Value":"BGRAImageList1","Line":20,"Column":14},{"Type":"identifier","Value":"TabOrder","Line":21,"Column":5},{"Type":"equals","Value":"=","Line":21,"Column":14},{"Type":"number","Value":"0","Line":21,"Column":16},{"Type":"identifier","Value":"LimitMemoryUsage","Line":22,"Column":5},{"Type":"equals","Value":"=","Line":22,"Column":22},{"Type":"boolean","Value":"False","Line":22,"Column":24},{"Type":"object","Value":"object","Line":23,"Column":5},{"Type":"identifier","Value":"ToolButton1","Line":23,"Column":12},{"Type":"colon","Value":":","Line":23,"Column":23},{"Type":"identifier","Value":"TToolButton","Line":23,"Column":25},{"Type":"identifier","Value":"Left","Line":24,"Column":7},{"Type":"equals","Value":"=","Line":24,"Column":12},{"Type":"number","Value":"1","Line":24,"Column":14},{"Type":"identifier","Value":"Top","Line":25,"Column":7},{"Type":"equals","Value":"=","Line":25,"Column":11},{"Type":"number","Value":"2","Line":25,"Column":13},{"Type":"identifier","Value":"Caption","Line":26,"Column":7},{"Type":"equals","Value":"=","Line":26,"Column":15},{"Type":"string","Value":"ToolButton1","Line":26,"Column":17},{"Type":"identifier","Value":"ImageIndex","Line":27,"Column":7},{"Type":"equals","Value":"=","Line":27,"Column":18},{"Type":"number","Value":"16","Line":27,"Column":20},{"Type":"end","Value":"end","Line":28,"Column":5},{"Type":"object","Value":"object","Line":29,"Column":5},{"Type":"identifier","Value":"ToolButton2","Line":29,"Column":12},{"Type":"colon","Value":":","Line":29,"Column":23},{"Type":"identifier","Value":"TToolButton","Line":29,"Column":25},{"Type":"identifier","Value":"Left","Line":30,"Column":7},{"Type":"equals","Value":"=","Line":30,"Column":12},{"Type":"number","Value":"24","Line":30,"Column":14},{"Type":"identifier","Value":"Top","Line":31,"Column":7},{"Type":"equals","Value":"=","Line":31,"Column":11},{"Type":"number","Value":"2","Line":31,"Column":13},{"Type":"identifier","Value":"Caption","Line":32,"Column":7},{"Type":"equals","Value":"=","Line":32,"Column":15},{"Type":"string","Value":"ToolButton2","Line":32,"Column":17},{"Type":"identifier","Value":"ImageIndex","Line":33,"Column":7},{"Type":"equals","Value":"=","Line":33,"Column":18},{"Type":"number","Value":"7","Line":33,"Column":20},{"Type":"end","Value":"end","Line":34,"Column":5},{"Type":"object","Value":"object","Line":35,"Column":5},{"Type":"identifier","Value":"ToolButton3","Line":35,"Column":12},{"Type":"colon","Value":":","Line":35,"Column":23},{"Type":"identifier","Value":"TToolButton","Line":35,"Column":25},{"Type":"identifier","Value":"Left","Line":36,"Column":7},{"Type":"equals","Value":"=","Line":36,"Column":12},{"Type":"number","Value":"47","Line":36,"Column":14},{"Type":"identifier","Value":"Top","Line":37,"Column":7},{"Type":"equals","Value":"=","Line":37,"Column":11},{"Type":"number","Value":"2","Line":37,"Column":13},{"Type":"identifier","Value":"Caption","Line":38,"Column":7},{"Type":"equals","Value":"=","Line":38,"Column":15},{"Type":"string","Value":"ToolButton3","Line":38,"Column":17},{"Type":"identifier","Value":"ImageIndex","Line":39,"Column":7},{"Type":"equals","Value":"=","Line":39,"Column":18},{"Type":"number","Value":"4","Line":39,"Column":20},{"Type":"end","Value":"end","Line":40,"Column":5},{"Type":"object","Value":"object","Line":41,"Column":5},{"Type":"identifier","Value":"ToolButton4","Line":41,"Column":12},{"Type":"colon","Value":":","Line":41,"Column":23},{"Type":"identifier","Value":"TToolButton","Line":41,"Column":25},{"Type":"identifier","Value":"Left","Line":42,"Column":7},{"Type":"equals","Value":"=","Line":42,"Column":12},{"Type":"number","Value":"70","Line":42,"Column":14},{"Type":"identifier","Value":"Top","Line":43,"Column":7},{"Type":"equals","Value":"=","Line":43,"Column":11},{"Type":"number","Value":"2","Line":43,"Column":13},{"Type":"identifier","Value":"Caption","Line":44,"Column":7},{"Type":"equals","Value":"=","Line":44,"Column":15},{"Type":"string","Value":"ToolButton4","Line":44,"Column":17},{"Type":"identifier","Value":"ImageIndex","Line":45,"Column":7},{"Type":"equals","Value":"=","Line":45,"Column":18},{"Type":"number","Value":"5","Line":45,"Column":20},{"Type":"end","Value":"end","Line":46,"Column":5},{"Type":"end","Value":"end","Line":47,"Column":3},{"Type":"object","Value":"object","Line":48,"Column":3},{"Type":"identifier","Value":"BGRAImageList1","Line":48,"Column":10},{"Type":"colon","Value":":","Line":48,"Column":24},{"Type":"identifier","Value":"TBGRAImageList","Line":48,"Column":26},{"Type":"identifier","Value":"Scaled","Line":49,"Column":5},{"Type":"equals","Value":"=","Line":49,"Column":12},{"Type":"boolean","Value":"True","Line":49,"Column":14},{"Type":"identifier","Value":"left","Line":50,"Column":5},{"Type":"equals","Value":"=","Line":50,"Column":10},{"Type":"number","Value":"20","Line":50,"Column":12},{"Type":"identifier","Value":"top","Line":51,"Column":5},{"Type":"equals","Value":"=","Line":51,"Column":9},{"Type":"number","Value":"18","Line":51,"Column":11},{"Type":"identifier","Value":"Bitmap","Line":52,"Column":5},{"Type":"equals","Value":"=","Line":52,"Column":12},{"Type":"lbrace","Value":"4C69110000001000000010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000008282825A848B88C08A9593E38A9593E3888F8CD07F7F7F6E00000000000000000000000000000000000000000000000000000000000000007F7F7F0C888E8DCA9CB9B2F6B0E2D6FFB7EEE0FFB7EEE0FFB3E7DAFFA0C2BAF68A9593E37F7F7F1800000000000000000000000000000000000000000000000087918FD2AEE0D4FBBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFB7EEE0FF8D9A97EA7F7F7F0C0000000000000000000000000000000080848285A3C8C0F5BFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFAFDED2FC848988B9000000000000000000000000000000008B9693E8B7EFE1FFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBCFAEBFF8D9B98FB000000000000000000000000000000008B9A96F8BCF9EAFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFF8E9D99FF000000000000000000000000000000008C9895F1BAF4E5FFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBEFDEDFF8E9B98FD00000000000000000000000000000000838886B0ADDBD0FCBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFB4E9DCFF89918ED6000000000000000000000000000000007F7F7F0C8E9C98EEBAF4E5FFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBCFAEBFF96ADA8F27D7D7D3B00000000000000000000000000000000000000007F7F7F308FA09CF0AFDED2FCBCF9EAFFBFFFEFFFBFFFEFFFBEFDEDFFB1E4D7FF92A4A1F581818145000000000000000000000000000000000000000000000000000000007F7F7F18848988B98B9A96F88E9D99FF8E9D99FF8E9B98FD878D8AC87F7F7F2400000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000889390EB8E9D99FF8E9D99FF8E9D99FF8E9D99FF8E9D99FF8E9D99FF8E9D99FF8E9D99FF8E9D99FF8E9D99FF889390EB000000000000000000000000000000008E9D99FFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFF8E9D99FF000000000000000000000000000000008E9D99FFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFF8E9D99FF000000000000000000000000000000008E9D99FFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFF8E9D99FF000000000000000000000000000000008E9D99FFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFF8E9D99FF000000000000000000000000000000008E9D99FFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFF8E9D99FF000000000000000000000000000000008E9D99FFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFF8E9D99FF00000000000000000000000000000000888F8EF98E9D99FF8E9D99FF8E9D99FF8E9D99FF8E9D99FF8E9D99FF8E9D99FF8E9D99FF8E9D99FF8E9D99FF888F8EF90000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFB37FFF0000000000000000FFFFFFFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFF000000000000000000000000FFFFFFFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFF000000000000000000000000FFFFFFFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFF000000000000000000000000FFFFFFFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFF000000000000000000000000FFFFFFFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFF000000000000000000000000FFFFFFFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFF000000000000000000000000FFFFFFFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFF000000000000000000000000FFFFFFFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFF000000000000000000000000FFFFFFFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFF000000000000000000000000FFFFFFFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFF000000000000000000000000FFFFFFFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFF000000000000000000000000FFFFFFFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFF000000000000000000000000FFB37FFF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007F7F7F409F948FFF808080FFFBFBFBFFFEFEFEFF838281FF9F948FFF8C8986528080800A000000000000000000000000000000000000000000000000FEFEFEFFFEFEFEFFDEBEAEFFFFD4BFFFFFD4BFFFFFD4BFFFFAD1BCFFDEBEAEFFA99B94FFC0ABA0540000000000000000000000000000000000000000A79A93FFCCB3A7FFFFDFD1FFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFE6C3B2FFFDFDFDFEFEFEFE56000000000000000000000000BBA89DFFC2ACA0FFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFEFEFEFFF3F3F39E000000000000000000000000FFFEFEFFE2D5D0FFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFB7A49BFF7F7F7F70000000000000000000000000CDCDCD34F7F6F6FFE8C7B7FFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFBEA99EFFBEA99EFF00000000000000000000000000000000D4D4D4599F948FFFE6C3B2FFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFF9F8F6FFE5E5E5C900000000000000000000000000000000000000007F7F7F208F8A87FFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFDABCACFFFFFFFFFFFFFFFF1000000000000000000000000000000000000000007F7F7F409F948FFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFD2B7A8FFA79A93FF7F7F7F0800000000000000000000000000000000000000007F7F7F08ECEBEAFFF0CFBCFFFFD4BFFFFFD4BFFFFFD4BFFFFBD9C9FFF7F4F3FFB7ACA5FF7F7F7F08000000000000000000000000000000000000000000000000F3F1F0FFEADDD6FFFFD4BFFFFFD4BFFFF6CEBAFFCEB3A6FFFAF9F9FFC1C1C1950000000000000000000000000000000000000000000000000000000000000000A79A93FF8F8A87FFFEFEFEFFFEFEFEFF878483FFAF9F97FF7F7F7F20000000000000000000000000000000000000000000000000000000000000000000000000000000007F7F7F207F7F7F3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E5E5E5C556565685958E8AD5C7C3C1EFF9F9F9FE7F7F7F6E0000000000000000000000000000000000000000000000000000000000000000B2B2B214EEEDEDF7F4F2F1FEE4C5B4FFEEC9B7FFEEC9B7FFE7C4B3FFC2ACA0F6F1F0EFFBF6F6F68F000000000000000000000000000000000000000000000000918B87D2E0C1B0FBFFD9C7FFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFF8E9E0FFF8F7F7FE7F7F7F0C00000000000000000000000000000000F7F7F7FEC8B1A3F5FFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFDEBEAFFC898684B900000000000000000000000000000000FFFFFFFFF0CCB9FFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFAD1BCFF9B928DFB000000000000000000000000000000009A908BF8F9D1BCFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFEFEFEFF0000000000000000000000000000000098908CF1F4CDBAFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFDD3BEFFFEFEFEFF00000000000000000000000000000000FAFAFAFDEDE0DAFEFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFE9C6B4FF918B89D600000000000000000000000000000000FDFDFD87F9F9F8FEF4CDBAFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFAD1BCFFAD9E96F27D7D7D3B0000000000000000000000000000000000000000D5D5D569A0958FF0DEBEAFFCF9D1BCFFFFD4BFFFFFD4BFFFFDD3BEFFF0DCD2FFEFEDEBFD81818145000000000000000000000000000000000000000000000000000000007F7F7F18898684B9F7F7F7FEFEFEFEFF9D938EFF9B938EFDE7E7E7F3B1B1B13800000000000000000000000000000000000000000000000000000000000000000000000000000000FEFEFE1F00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000A6A6A6CE434343700000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000006C6C6C05828282A7757575FF2424241B0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007D7D7D8F565656FF2E2E2E540000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000005C5C5C5A6C6C6CFF333333BC0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000101010C464646FF3B3B3BFF0D0D0D190000000000000000000000000000000000000000938B88EB9D938EFFF8F8F7FFFFFFFFFFA09692FFA09692FFF3F3F3FF272727FF2E2E2EFF7B7471FFFEFEFEFFF7F7F7FE000000000000000000000000000000009D938EFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFE5D9FF777777FFB29689FFFDD2BDFFFFD4BFFF9D938EFF000000000000000000000000FFFFFF60FFFFFFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFAD7C5FFFFFFFFFFFFE7DBFFFFD4BFFFFFD4BFFFFFD4BFFF9D938EFF000000000000000000000000FEFEFE25FEFEFDFFFFD4BFFFFFD4BFFFFFD4BFFFF8DCCCFFC2F5FEFFC7D4D4FFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFBFBFBFFFEFEFE170000000000000000000000009D938EFFFFD4BFFFFFD4BFFFF6D0BDFFB4C8CBFF618B98FFCAA797FFD0AC9BFFC6A494FFD3AF9EFFE2BBA9FFF2F2F2FFCCCCCC0A0000000000000000FEFEFE45FFFFFFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFF9D938EFF000000000000000000000000FEFEFE45FEFEFEFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFF9D938EFF000000000000000000000000000000008F8B88F99D938EFFFEFEFEFFFEFEFEFF9D938EFF9D938EFFFFFFFFFFFEFEFEFF9D938EFF9D938EFFFEFEFEFFFFFFFFFF000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000EEEEEEF67C7C7C2F00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FBFBFBFFAEAEAEED80808063000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000A9A9A971FDFDFDFEF8D4C4FF7F7F7F9E00000000000000000000000000000000000000000000000000000000000000000000000000000000000000007F7F7F48808080AFF0CAB7FFFFD4BFFFFFFFFFFF000000000000000000000000000000000000000000000000000000000000000000000000000000007F7F7F38808080BFE8C5B5FFFFD4BFFFFFD4BFFFF8F8F8FE7F7F7F100000000000000000000000000000000000000000000000000000000000000000DEDEDE77F6F6F6FBF6D0BEFFFBD0BFFFFFD4BFFFFFD4BFFF808080B882828252000000000000000000000000000000000000000000000000000000007F7F7F20FBFBFBFDFAE6DDFFFCD1BFFFFFD4BFFFFFD4BFFFFFD4BFFFF0CAB7FF818181A60000000000000000000000000000000000000000000000007F7F7F10808080BFF1CCB9FFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFFFFFFFFFFFFF33000000000000000000000000000000007F7F7F10818181BFF3CDBAFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFF8F8F8FE7F7F7F1000000000000000000000000000000000F3F3F3F5F0CAB7FFFDD3BEFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFF818181AA8282826200000000000000000000000000000000D6D6D679F9F9F9FD959595D5DFBFB0FFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFF1CBB9FF7E7E7EA1000000000000000000000000000000007F7F7F04000000007F7F7F307A7A7A9CF0F0F0FAF5F5F5FD8080808FE5C3B3FFFFD4BFFFFFD4BFFFFFD4BFFFFDFDFDFE0000000000000000000000000000000000000000000000000000000000000000FEFEFE25BEBEBE3B7F7F7F70808080CFF5F5F5FEFDFDFDFEF0DCD2FFFEFEFEFF7F7F7F2000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007F7F7F207F7F7F78808080D3808080DB7F7F7F200000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000938B88EB9D938EFFF8F8F7FFFFFFFFFFA09692FFA09692FFFEFEFEFFFEFEFEFF9D938EFF9D938EFFFEFEFEFFF7F7F7FE000000000000000000000000000000009D938EFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFF9D938EFF000000000000000000000000FFFFFF60FFFFFFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFF9D938EFF000000000000000000000000FEFEFE25FEFEFDFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFBFBFBFFFEFEFE170000000000000000000000009D938EFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFFFFFFFFFFFFF080000000000000000FEFEFE45FFFFFFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFF9D938EFF000000000000000000000000FEFEFE45FEFEFEFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFF9D938EFF000000000000000000000000000000008F8B88F99D938EFFFEFEFEFFFEFEFEFF9D938EFF9D938EFFFFFFFFFFFEFEFEFF9D938EFF9D938EFFFEFEFEFFFFFFFFFF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000088F2790488F279D787F178EC86F177ED86F177ED73DA64EF44A137D80000000000000000000000000000000000000000000000000000000000000000000000000000000088F279F225B011FF25B011F424AD11DE18740BF7197A0C7D0000000000000000000000000000000000000000000000000000000000000000000000000000000088F279FE25B011FD25B011FF24AC10FF18720BB8000000000000000000000000000000000000000000000000000000000000000000000000000000000000000088F279F225B011FA1E8F0EFF26B012EB25AE11A600000000000000000000000000000000938B88EB9D938EFFF8F8F7FFFFFFFFFFA09692FFA09692FFFEFEFEFF86EE78FF28821AFF236A17FF9CF390FF40BD2EFF25B0110B0000000000000000000000009D938EFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFF3E872DFF618945FFF0CDB4FFADE98FFF58C146FF25B011580000000000000000FFFFFF60FFFFFFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFE0C5A7FFFFD4BFFFFFD4BFFFC6E29DFF6DC55CFF25B011920000000000000000FEFEFE25FEFEFDFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFED4BEFFA2DC9AFF2BB218C80000000000000000000000009D938EFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFA5DF9EFF27B113C10000000000000000FEFEFE45FFFFFFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFD7DEA8FF69C458FF18710BE715650A0D00000000FEFEFE45FEFEFEFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFAFE890FFFFD4BFFFFFD4BFFFAFE890FF57BF47FF15670AF115650A0100000000000000008F8B88F99D938EFFFEFEFEFFFEFEFEFF9D938EFF9D938EFFFFFFFFFF89F27AFF4DA83AFF9C988DFF91F284FF309722FF15660AC30000000000000000000000000000000000000000000000000000000000000000000000000000000088F279FA28B214DD3CBF29D66ADA5ADF16690AF815650A250000000000000000000000000000000000000000000000000000000000000000000000000000000088F279F729B315EE28B215FE228115FC166A0BD015650A1F0000000000000000000000000000000000000000000000000000000000000000000000000000000088F279F32AB316FF25B011FE24AA11F01C860DE9176D0BF115650A12000000000000000000000000000000000000000000000000000000000000000000000000368E2AF115650AFF15650AFF15650AFF15650AFF15660AEC15650ADE15650A0D000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000068757F164A51593067727BFF64737BFF4B5663FF4B5664FF505B67FF728089FF3F4754FF000000000000000000000000000000000000000000000000606C750E727E884E6C7881E1BCCBD3FAEAFFFFFFEAFFFFFFEAFFFFFFFBFFFFFFEEFFFFFF819099E90000000000000000000000000000000000000000545E670E6C77814E67727CE1B7C6CFFAE7FBFCFFEAFFFFFFF2FFFFFFEDFFFFFFE3F8F9FF707E86FF84939DE600000000000000000000000000000000545E670E6A75804E5E6972E1B8C7D0FADFF3F6FFE9FEFDFFEAFFFFFFE4F9FAFFD5E8EEFF59646AFFA8B5C2FF8796A0E8000000000000000000000000545E670E6A757F4E616C76E1BFD1DBFADFF5F5FFE9FEFDFFECFFFFFFE4F9FAFFD5E8EEFF545D64FFB0BFCBFFF3FFFFFF84939DF80000000000000000545E670E6C77814E616C76E1C0D2DBFAE3FAFBFFEBFFFFFFEEFFFFFFE7FCFDFFD5E8F0FF525C63FFAFC0CDFFFFFFFFFC77848BF74E4E4DF90000000082919D14727E8A565A636DE4C3D3DFFAF6FFFFFFF5FFFFFFE1F5F6FFE4FAF8FFE8FDFFFF535D64FFAFBDCAFFF9FFFFFC636D76F155585AC14E51545300000000808E99367E8C97FF8B9BA4FF919FA8FF90A0A7FF7A8A95FF7A8994FF95A4AEFF8493A0FFBECDDCFFF8FFFFFC636F76EF5F6264BB4E51533A4545450E0000000084929D5490A1A9ECFDFFFFFFE3F8F9FFDFF4F5FFDFF4F5FFE3F8F9FFF9FFFFFF91A0AAFFE7FBFFFD657178EF65686AB9575A5C385C5C5C0900000000000000008795A0548F9EA8EFFDFFFFFFE3F8F9FFDFF4F5FFDFF4F5FFE3F8F9FFFCFFFFFF8C9BA4FF5E6972F6646567BB5B5F61366262620A0000000000000000000000008B99A33E909EA8FF8D9EA6EF92A0A9E6909FA8E6909FAAE692A2ABE690A1A9E88496A0FB616568EC585B5F4063636308000000000000000000000000000000008E9CA6148D9AA43B8998A24686959F3E86959F3E8895A13E8897A13E8C9CA641889AA643737E852F8080800D0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000282723464D3D2FFF56422FFF292621890000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000003D362DCDA46432FF7C5330FF413C32F4000000000000000000000000000000000000000000000000000000000000000000000000000000004F4C44FF5D442DE261472DFF724D30FF3A352EFF3B3A33FF000000000000000000000000000000000000000000000000000000000000000000000000000000078F969895977963FF42392FFF32312CF534322CB03E3B354900000000000000000000000000000000000000000000000000000000000000000000000978868D7DFFFFFFFFF0EDE7FF464645FF34322CC62C2A250E0000000000000000000000000000000000000000000000000000000000000000686D6B1395A0B093FFFFFFFFFFF7EDFFC5C1C3FF64676455504D44C5000000000000000000000000000000000000000000000000000000000000000000000009878A9596D8BAA1FFE2B691FFB2ACA7FF858D8D4A0000000200000000000000000000000000000000000000000000000000000000000000000000000678859981CBA176FFB86927FF9C7E5CFF666A7E410000000200000000000000010000000000000001000000010000000000000000000000009BA19E0B978E97CBCC9F73FFB36829FF9C7B60FF64687C430000000000000000000000030000000300000004000000020000000000000000000000000000000063757D31AB9785FFC36F2DFF9E7B5FFF6C7282560000000100000003000000060000000800000007000000060000000400000001000000000000000023130802A2ADB0E9CFC5BDFF9A9291FF7D878750000000090000000A0000000E0000000E0000000D0000000B00000009000000050000000100000000000000002D17093F9F653BF575615EBC000000000000001300000018000000190000001A00000017000000110000000D00000008000000050000000100000000000000005A381E5CC89162FF4B260EAD2A16093C000000260000002800000026000000200000001C000000140000000D0000000700000004000000010000000047250F28D3B79DFBF7C695FFA67348FF4525108B000000340000002E0000002B000000230000001B0000001200000009000000050000000100000000000000004F2C122BA7754DFEC08757FF7F4D29FF2513086B0000003100000027000000210000001A000000140000000C000000060000000200000000000000000000000000000000552D122E572D12533B1F0C490D07022E0000001C0000001700000014000000100000000C0000000800000003000000010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007F7F7F408F9F9BFF808080FF808080FF808080FF818383FF8F9F9BFF868C8B528080800A00000000000000000000000000000000000000000000000099B3ADFF8F9F9BFFAEDED2FFBFFFEFFFBFFFEFFFBFFFEFFFBCFAEBFFAEDED2FF94A9A4FFA0C0B854000000000000000000000000000000000000000093A7A2FFA4CAC1FFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFB2E6D9FF8B9794ED000000000000000000000000000000009DBBB4FFA0C2BAFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFF878F8DFF7F7F7F200000000000000000000000009BB7B0FFA2C6BDFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFF9BB7B0FF7F7F7F700000000000000000000000007F7F7F18858B8AFFB2E6D9FFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFF9EBEB6FF9EBEB6FF000000000000000000000000000000007F7F7F288F9F9BFFB2E6D9FFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFF99B3ADFF7F7F7F6800000000000000000000000000000000000000007F7F7F20878F8DFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFACDACFFF91A39FFF0000000000000000000000000000000000000000000000007F7F7F408F9F9BFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFA8D2C8FF93A7A2FF7F7F7F0800000000000000000000000000000000000000007F7F7F08899391FFB6EEE0FFBFFFEFFFBFFFEFFFBFFFEFFFBCFAEBFF99B3ADFF95ABA6FF7F7F7F0800000000000000000000000000000000000000000000000097AFA9FFA6CEC4FFBFFFEFFFBFFFEFFFBAF6E7FFA6CEC4FF899391FF7F7F7F68000000000000000000000000000000000000000000000000000000000000000093A7A2FF878F8DFF8D9B98FF8C9996FF838786FF97AFA9FF7F7F7F20000000000000000000000000000000000000000000000000000000000000000000000000000000007F7F7F207F7F7F380000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000052521F0097970000333349092E2E44052F2F4F000000000000000000000000000000000000008000000077050000780A0000000000003400000000004D4D3700181894002727752D1B1B9FAF1B1B938B202056112020680000000000000000000E0E95000606870E2020B4872525BCB20C0C95321C1CD30000003A002525810029296F2D2020A9C96161E3FF4646CFFC191994981C1C58101E1E6D00121291000A0A800D1E1EAF926060D8FB8383EAFF3333C7CE080898321919C10043432F091B1B9BAF5353E5FFC0C0F5FFA8A8F0FF3D3DCBFC1919969819195C0F10107E0C1E1EAA925050D0FBAFAFEFFFC2C2F4FF7E7EEFFF2727BDBA00004310494909041E1E8B8C3737D1FD8C8CEEFFA2A2EDFF8888E8FF3535C4FC1A1A989F1D1DA29A4040C7FA8C8CE7FFA1A1EDFF9797EEFF5E5EE1FF1C1CA0A300001C0C29295A002C2C43101B1B8C982E2ECCFC6B6BE6FF7D7DE6FF6868DFFF2C2CBFFE2F2FBFFE6A6ADFFF7C7CE6FF7474E6FF4E4ED9FE1B1B9EAF0000431C03036A000000000026265F00292948101C1C8F982525C8FC4B4BDEFF5757E0FF4A4AD8FF4A4AD8FF5656E0FF5252DDFF3E3ED0FE1B1B99AF0000421D050568000000000000000000000000002323630025254A0F1D1D919F1C1CC5FF2C2CD6FF3131D9FF3030D9FF3030D5FF3030CBFF1A1A96B401013C1C0707630000000000000000000000000000000000292972002F2F5D0C2020969A0D0DBFFF0606C0FF0A0AB8FF0F0FB7FF1A1ABBFF2929C3FF1D1DA4A601016E0F090984000000000000000000000000002C2C6C003333580D1F1F96920C0CC6FB0000CBFF0000B6FF0000A3FF0808A1FF1818B0FF2929C2FF3333CDFC2020B0980000751006068A0000000000303067003838510D202093920B0BCCFB0000DAFF0000C9FF0101B8FF1010AFFF1717AFFF1919B2FF2828C0FF3838D1FF3D3DD7FC2121B5980000781004048D0054540A03212190870A0AD2FC0000E7FF0000D9FF0101CBFF0F0FB7FE191987B41D1D97A62222B9FB2828C2FF3737D0FF4848E1FF4848E2FD2020B6900000300742422D091C1C98B10404E4FF0000E7FF0000DAFF0D0DC0FE191983AF0E0E331C0E0E690F1F1FA3982C2CC4FC3838D1FF4747E0FF5252ECFF2626B3C40000381425258000282864321717A4CE0505DBFF0C0CC7FE191981AF1111321D1717520010107F0009096A102020A8983636CFFC4444DFFF2C2CB9DD07076C476767FF002A2A1E001F1FA100252568331A1A95BB19197DA31313311D19194E0000000000000000000D0D8300060671102020A9902222AAC509096A47FFFFFF0000000E000000000022220D00383800001D1D291114141D0D25253C000000000000000000000000000000000000004E000000450900003A14000000010000080000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000938B88EB9D938EFFF8F8F7FFFFFFFFFFA09692FFA09692FFFEFEFEFFFEFEFEFF9D938EFF9D938EFFFEFEFEFFF7F7F7FE000000000000000000000000000000009D938EFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFF9D938EFF000000000000000000000000FFFFFF60FFFFFFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFF9D938EFF000000000000000000000000FEFEFE25FEFEFDFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFCCABB5FFDBB7B6FFFFD4BFFFFFD4BFFFDCB8BCFFC7C7E9FFFEFEFE170000000000000000000000009D938EFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFCCABB4FF706EDAFF6864CBFFD5B2B5FFD8B4BAFF7873D3FF8686E8FF3131B5450000000000000000FEFEFE45FFFFFFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFDCB7B5FF5B56CAFF8585E8FF4F4AC1FF5550C4FF8787E8FF6261D0FF16168B330000000000000000FEFEFE45FEFEFEFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFD6B3B4FF403CC3FF4040DAFF4040DAFF4744C6FF7D768BFF000000000000000000000000000000008F8B88F99D938EFFFEFEFEFFFEFEFEFF9D938EFF9D938EFFD9D9EBFF2424C3FF0404B4FF1212B1FF3D3DC5FFD5D5EEFF000000000000000000000000000000000000000000000000000000000000000000000000242488260B0BCCE20000D2FF0D0DACEC1C1CAEE83030C9FF3E3ED7E41C1CAA2A00000000000000000000000000000000000000000000000000000000000000002020893B0707D5F30B0BBDEB17176F3A1C1C992E3030C6E44343DAF71C1C99480000000000000000000000000000000000000000000000000000000000000000000000001C1C854018186C3300000000000000001C1C9E2A19199248000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001FFF400021FF800021FF800021FF800021FF800021FF800021FF800021FF80001FFF40000000000000000000000000000000000000000000000000000000000021FF800021FFFF0021FFFF0021FFFF0021FFFF0021FFFF0021FFFF0021FFFF0021FF80000000000000000000000000000000000000000000000000000000000021FF800021FFFF0021FFFF0021FFFF0021FFFF0021FFFF0021FFFF0021FFFF0021FF80000000000000000000000000000000000000000000000000000000000021FF800021FFFF0021FFFF0021FFFF0021FFFF0021FFFF0021FFFF0021FFFF0021FF80000000000000000000000000000000000000000000000000000000000021FF800021FFFF0021FFFF0021FFFF0021FFFF0021FFFF381AC8FF4019C0FF66149AA0000000000000000000000000000000000000000000000000000000000021FF800021FFFF0021FFFF0021FFFF5816A8FFE7031CFFFF0004FFFF0004FFFF0004FFFE0004EFFF0004780000000000000000000000000000000000000000001FFF400021FF800021FF80A20C5EBCFF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFE000397000000000000000000000000000000000000000000000000FF000010FE0004F7FF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF0005300000000000000000000000000000000000000000FE000258FF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF0003800000000000000000000000000000000000000000FE000468FF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF0003800000000000000000000000000000000000000000FF000628FF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF000350000000000000000000000000000000000000000000000000FE0004A7FF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFE0003CF00000000000000000000000000000000000000000000000000000000FF000008FE0004B7FF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFE0003C7FF000720000000000000000000000000000000000000000000000000000000000000000000000000FE000438FF000380FF000380FF000380FE00034800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000632C2D0700000000EC9C4616F0A72CFF8A49002900000000000000000000000000000000000000000000000000000000000000000000000000000000927B6263A49E98FF0000000000000000E7771DFF683700300000000000000000000000000000000000000000000000000000000000000000000000007D66473FBBB09FFFE6E4E7FFB8D0E5CC00000000DA7415FF6735002B00000000000000000000000000000000000000000000000000000000000000007557363FA59684D4C7BFB7FFC4B4B2FFF2E9EEFFD7F4E5E3BA7718ED6B24001C000000000000000000000000000000000000000000000000000000007A5D3C3F9D8C78D4AC9F97FFD2C8C3FFE3DBCEFFF4E6E0FFF7E4CFFFBD6002FF55373D29000000000000000000000000000000000000000000000000785E3C3F9D8C75D4BDB1A6FFBBACA0FFC0B3ABFFF5F1EBFFE6D9D1FFCEB9ACFFBA9D62FFA3A4BCE1FFB06CA1FCAE322200000000000000000000000087694F3F978470D4B4A89BFFC4B8B1FFE6D9CFFFE5D7D1FFBBADA4FFD9CECBFFBDC0B3FFA9A4A7FF979BCCFFDCAC7BFFDD7F1CF60000000000000000967C6042A7998BFFB3A8A1FFBFB2A9FFDFD3CCFFF4E7E0FFE2D2CCFFBEAFA4FFA09189FFCCC3C0FFA09298FF6B747FFFA18860FFD77B1AFFA15C016B8B673724A89782FFCCC5C3FFD1C7BEFFE2D5CFFFEFE2DAFFDCCEC8FFC7B9B2FFB9AA9FFFA5968CFF97867AFFC0B6ACFF7C7384FF6E6265F1CF7D1EFF9F6001940000000569564098C5B7AEFFF6EAE9FFF4E7E1FFDCCEC8FFC1B4AAFFB6A79FFFAE9F96FF9B8C85FF8B7B6FFF85746AFF8A7D89C44C354B0DC8841AFF9F620C97000000000000000969564067C0AE9FE8EDE4E6FFCFC5BDFFC4B2ADFFA99A91FF9B8C82FF908076FF7F6F64FF756250E30000000000000000BF7E20FF9F630C9A0000000000000000000000096B574267B4A293E8D4C3C0FFB6ADA1FF9E9290FF8D7D73FF7F6F64FF7D6755F25E5135780000000000000000B3761AF59F650F9B000000000000000000000000000000096A554167B69D82E8B1A7A0FF9D8B82FF7F6F66FF786752E968513D750000000D0000000000000000B67419FFA26510BD000000000000000000000000000000000000000A66543D67A3928DFF897E7FFF83756CFF604E38670000000C000000000000000000000000E69216E8AB6B10FB00000000000000000000000000000000000000000000000464503B6A947862FF634E3A6A0000000400000000000000000000000000000000CB7F1476C17913DB0000000000000000000000000000000000000000000000000000000D41311B5D0000000D00000000000000000000000000000000000000002E1C02142C1A0216008080000080800000808000008080000080800000808000008080000080800000808000008080000080800000808000008080000080800000808000008080000080800000808000008080000080800000808000008080000080800000808000008080000080800000808000008080000080800000808000008080000080800000808000000000FF000000FF0080800000808000008080000080800000808000008080000080800000808000008080000080800000808000008080000080800000808000000000FF0000FFFF000000FF000000FF00808000008080000080800000808000008080000080800000808000008080000080800000808000008080000080800000808000000000FF0000FFFF0000FFFF000000FF000000FF0080800000808000008080000080800000808000008080000080800000808000008080000080800000808000000000FF0000FFFF0000FFFF0000FFFF0000FFFF000000FF000000FF00808000008080000080800000808000008080000080800000808000008080000080800000808000000000FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF000000FF000000FF7F7F7FFF00808000008080000080800000808000008080000080800000808000000000FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF000000FF008080000080800000808000008080000080800000808000008080000080800000808000000000FF0000FFFF0000FFFF0000FFFF0000FFFF000000FF00808000008080000080800000808000008080000080800000808000008080000080800000808000000000FF0000FFFF0000FFFF0000FFFF0000FFFF000000FF7F7F7FFF00808000008080000080800000808000008080000080800000808000008080000080800000808000000000FF0000FFFF000000FF000000FF0000FFFF000000FF7F7F7FFF008080000080800000808000008080000080800000808000008080000080800000808000000000FF000000FF008080007F7F7FFF000000FF0000FFFF000000FF7F7F7FFF00808000008080000080800000808000008080000080800000808000008080007F7F7FFF0080800000808000008080007F7F7FFF000000FF0000FFFF000000FF7F7F7FFF0080800000808000008080000080800000808000008080000080800000808000008080000080800000808000008080007F7F7FFF000000FF0000FFFF000000FF008080000080800000808000008080000080800000808000008080000080800000808000008080000080800000808000008080007F7F7FFF000000FF7F7F7FFF008080000080800000808000008080000080800000808000008080000080800000808000008080000080800000808000008080000080800000808000008080000080800000808000","Line":52,"Column":14},{"Type":"end","Value":"end","Line":599,"Column":3},{"Type":"end","Value":"end","Line":600,"Column":1},{"Type":"eof","Value":"","Line":601,"Column":1}] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm2/Lfm2_source.lfm b/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm2/Lfm2_source.lfm deleted file mode 100644 index 65bc4e843..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm2/Lfm2_source.lfm +++ /dev/null @@ -1,600 +0,0 @@ -object Form2: TForm2 - Left = 337 - Height = 26 - Top = 250 - Width = 93 - AutoSize = True - BorderIcons = [biMinimize, biMaximize] - BorderStyle = bsToolWindow - Caption = 'Form2' - ClientHeight = 26 - ClientWidth = 93 - FormStyle = fsMDIChild - ShowInTaskBar = stNever - object BCToolBar1: TBCToolBar - Left = 0 - Height = 26 - Top = 0 - Width = 93 - Caption = 'BCToolBar1' - Images = BGRAImageList1 - TabOrder = 0 - LimitMemoryUsage = False - object ToolButton1: TToolButton - Left = 1 - Top = 2 - Caption = 'ToolButton1' - ImageIndex = 16 - end - object ToolButton2: TToolButton - Left = 24 - Top = 2 - Caption = 'ToolButton2' - ImageIndex = 7 - end - object ToolButton3: TToolButton - Left = 47 - Top = 2 - Caption = 'ToolButton3' - ImageIndex = 4 - end - object ToolButton4: TToolButton - Left = 70 - Top = 2 - Caption = 'ToolButton4' - ImageIndex = 5 - end - end - object BGRAImageList1: TBGRAImageList - Scaled = True - left = 20 - top = 18 - Bitmap = { - 4C69110000001000000010000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00008282825A848B88C08A9593E38A9593E3888F8CD07F7F7F6E000000000000 - 00000000000000000000000000000000000000000000000000007F7F7F0C888E - 8DCA9CB9B2F6B0E2D6FFB7EEE0FFB7EEE0FFB3E7DAFFA0C2BAF68A9593E37F7F - 7F1800000000000000000000000000000000000000000000000087918FD2AEE0 - D4FBBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFB7EEE0FF8D9A - 97EA7F7F7F0C0000000000000000000000000000000080848285A3C8C0F5BFFF - EFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFAFDE - D2FC848988B9000000000000000000000000000000008B9693E8B7EFE1FFBFFF - EFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBCFA - EBFF8D9B98FB000000000000000000000000000000008B9A96F8BCF9EAFFBFFF - EFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFF - EFFF8E9D99FF000000000000000000000000000000008C9895F1BAF4E5FFBFFF - EFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBEFD - EDFF8E9B98FD00000000000000000000000000000000838886B0ADDBD0FCBFFF - EFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFB4E9 - DCFF89918ED6000000000000000000000000000000007F7F7F0C8E9C98EEBAF4 - E5FFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBCFAEBFF96AD - A8F27D7D7D3B00000000000000000000000000000000000000007F7F7F308FA0 - 9CF0AFDED2FCBCF9EAFFBFFFEFFFBFFFEFFFBEFDEDFFB1E4D7FF92A4A1F58181 - 8145000000000000000000000000000000000000000000000000000000007F7F - 7F18848988B98B9A96F88E9D99FF8E9D99FF8E9B98FD878D8AC87F7F7F240000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000889390EB8E9D99FF8E9D - 99FF8E9D99FF8E9D99FF8E9D99FF8E9D99FF8E9D99FF8E9D99FF8E9D99FF8E9D - 99FF889390EB000000000000000000000000000000008E9D99FFBFFFEFFFBFFF - EFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFF - EFFF8E9D99FF000000000000000000000000000000008E9D99FFBFFFEFFFBFFF - EFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFF - EFFF8E9D99FF000000000000000000000000000000008E9D99FFBFFFEFFFBFFF - EFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFF - EFFF8E9D99FF000000000000000000000000000000008E9D99FFBFFFEFFFBFFF - EFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFF - EFFF8E9D99FF000000000000000000000000000000008E9D99FFBFFFEFFFBFFF - EFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFF - EFFF8E9D99FF000000000000000000000000000000008E9D99FFBFFFEFFFBFFF - EFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFF - EFFF8E9D99FF00000000000000000000000000000000888F8EF98E9D99FF8E9D - 99FF8E9D99FF8E9D99FF8E9D99FF8E9D99FF8E9D99FF8E9D99FF8E9D99FF8E9D - 99FF888F8EF90000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFB37FFF0000000000000000FFFFFFFFFFB37FFFFFB37FFFFFB3 - 7FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB3 - 7FFFFFB37FFF000000000000000000000000FFFFFFFFFFB37FFFFFB37FFFFFB3 - 7FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB3 - 7FFFFFB37FFF000000000000000000000000FFFFFFFFFFB37FFFFFB37FFFFFB3 - 7FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB3 - 7FFFFFB37FFF000000000000000000000000FFFFFFFFFFB37FFFFFB37FFFFFB3 - 7FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB3 - 7FFFFFB37FFF000000000000000000000000FFFFFFFFFFB37FFFFFB37FFFFFB3 - 7FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB3 - 7FFFFFB37FFF000000000000000000000000FFFFFFFFFFB37FFFFFB37FFFFFB3 - 7FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB3 - 7FFFFFB37FFF000000000000000000000000FFFFFFFFFFB37FFFFFB37FFFFFB3 - 7FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB3 - 7FFFFFB37FFF000000000000000000000000FFFFFFFFFFB37FFFFFB37FFFFFB3 - 7FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB3 - 7FFFFFB37FFF000000000000000000000000FFFFFFFFFFB37FFFFFB37FFFFFB3 - 7FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB3 - 7FFFFFB37FFF000000000000000000000000FFFFFFFFFFB37FFFFFB37FFFFFB3 - 7FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB3 - 7FFFFFB37FFF000000000000000000000000FFFFFFFFFFB37FFFFFB37FFFFFB3 - 7FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB3 - 7FFFFFB37FFF000000000000000000000000FFFFFFFFFFB37FFFFFB37FFFFFB3 - 7FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB37FFFFFB3 - 7FFFFFB37FFF000000000000000000000000FFB37FFF00000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000007F7F - 7F409F948FFF808080FFFBFBFBFFFEFEFEFF838281FF9F948FFF8C8986528080 - 800A000000000000000000000000000000000000000000000000FEFEFEFFFEFE - FEFFDEBEAEFFFFD4BFFFFFD4BFFFFFD4BFFFFAD1BCFFDEBEAEFFA99B94FFC0AB - A0540000000000000000000000000000000000000000A79A93FFCCB3A7FFFFDF - D1FFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFE6C3B2FFFDFD - FDFEFEFEFE56000000000000000000000000BBA89DFFC2ACA0FFFFD4BFFFFFD4 - BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFEFE - FEFFF3F3F39E000000000000000000000000FFFEFEFFE2D5D0FFFFD4BFFFFFD4 - BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFB7A4 - 9BFF7F7F7F70000000000000000000000000CDCDCD34F7F6F6FFE8C7B7FFFFD4 - BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFBEA9 - 9EFFBEA99EFF00000000000000000000000000000000D4D4D4599F948FFFE6C3 - B2FFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFF9F8 - F6FFE5E5E5C900000000000000000000000000000000000000007F7F7F208F8A - 87FFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFDABCACFFFFFF - FFFFFFFFFF1000000000000000000000000000000000000000007F7F7F409F94 - 8FFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFD2B7A8FFA79A93FF7F7F - 7F0800000000000000000000000000000000000000007F7F7F08ECEBEAFFF0CF - BCFFFFD4BFFFFFD4BFFFFFD4BFFFFBD9C9FFF7F4F3FFB7ACA5FF7F7F7F080000 - 00000000000000000000000000000000000000000000F3F1F0FFEADDD6FFFFD4 - BFFFFFD4BFFFF6CEBAFFCEB3A6FFFAF9F9FFC1C1C19500000000000000000000 - 00000000000000000000000000000000000000000000A79A93FF8F8A87FFFEFE - FEFFFEFEFEFF878483FFAF9F97FF7F7F7F200000000000000000000000000000 - 00000000000000000000000000000000000000000000000000007F7F7F207F7F - 7F38000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000E5E5E5C556565685958E8AD5C7C3C1EFF9F9F9FE7F7F7F6E000000000000 - 0000000000000000000000000000000000000000000000000000B2B2B214EEED - EDF7F4F2F1FEE4C5B4FFEEC9B7FFEEC9B7FFE7C4B3FFC2ACA0F6F1F0EFFBF6F6 - F68F000000000000000000000000000000000000000000000000918B87D2E0C1 - B0FBFFD9C7FFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFF8E9E0FFF8F7 - F7FE7F7F7F0C00000000000000000000000000000000F7F7F7FEC8B1A3F5FFD4 - BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFDEBE - AFFC898684B900000000000000000000000000000000FFFFFFFFF0CCB9FFFFD4 - BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFAD1 - BCFF9B928DFB000000000000000000000000000000009A908BF8F9D1BCFFFFD4 - BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4 - BFFFFEFEFEFF0000000000000000000000000000000098908CF1F4CDBAFFFFD4 - BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFDD3 - BEFFFEFEFEFF00000000000000000000000000000000FAFAFAFDEDE0DAFEFFD4 - BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFE9C6 - B4FF918B89D600000000000000000000000000000000FDFDFD87F9F9F8FEF4CD - BAFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFAD1BCFFAD9E - 96F27D7D7D3B0000000000000000000000000000000000000000D5D5D569A095 - 8FF0DEBEAFFCF9D1BCFFFFD4BFFFFFD4BFFFFDD3BEFFF0DCD2FFEFEDEBFD8181 - 8145000000000000000000000000000000000000000000000000000000007F7F - 7F18898684B9F7F7F7FEFEFEFEFF9D938EFF9B938EFDE7E7E7F3B1B1B1380000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000FEFEFE1F00000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000000000000000000000A6A6 - A6CE434343700000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000006C6C6C05828282A77575 - 75FF2424241B0000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000007D7D7D8F565656FF2E2E - 2E54000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000005C5C5C5A6C6C6CFF333333BC0000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000101010C464646FF3B3B3BFF0D0D0D190000 - 000000000000000000000000000000000000938B88EB9D938EFFF8F8F7FFFFFF - FFFFA09692FFA09692FFF3F3F3FF272727FF2E2E2EFF7B7471FFFEFEFEFFF7F7 - F7FE000000000000000000000000000000009D938EFFFFD4BFFFFFD4BFFFFFD4 - BFFFFFD4BFFFFFD4BFFFFFE5D9FF777777FFB29689FFFDD2BDFFFFD4BFFF9D93 - 8EFF000000000000000000000000FFFFFF60FFFFFFFFFFD4BFFFFFD4BFFFFFD4 - BFFFFFD4BFFFFAD7C5FFFFFFFFFFFFE7DBFFFFD4BFFFFFD4BFFFFFD4BFFF9D93 - 8EFF000000000000000000000000FEFEFE25FEFEFDFFFFD4BFFFFFD4BFFFFFD4 - BFFFF8DCCCFFC2F5FEFFC7D4D4FFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFBFB - FBFFFEFEFE170000000000000000000000009D938EFFFFD4BFFFFFD4BFFFF6D0 - BDFFB4C8CBFF618B98FFCAA797FFD0AC9BFFC6A494FFD3AF9EFFE2BBA9FFF2F2 - F2FFCCCCCC0A0000000000000000FEFEFE45FFFFFFFFFFD4BFFFFFD4BFFFFFD4 - BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFF9D93 - 8EFF000000000000000000000000FEFEFE45FEFEFEFFFFD4BFFFFFD4BFFFFFD4 - BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFF9D93 - 8EFF000000000000000000000000000000008F8B88F99D938EFFFEFEFEFFFEFE - FEFF9D938EFF9D938EFFFFFFFFFFFEFEFEFF9D938EFF9D938EFFFEFEFEFFFFFF - FFFF000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000EEEEEEF67C7C7C2F0000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000FBFBFBFFAEAEAEED808080630000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000A9A9A971FDFDFDFEF8D4C4FF7F7F7F9E0000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000007F7F7F48808080AFF0CAB7FFFFD4BFFFFFFFFFFF0000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000007F7F7F38808080BFE8C5B5FFFFD4BFFFFFD4BFFFF8F8F8FE7F7F - 7F10000000000000000000000000000000000000000000000000000000000000 - 0000DEDEDE77F6F6F6FBF6D0BEFFFBD0BFFFFFD4BFFFFFD4BFFF808080B88282 - 8252000000000000000000000000000000000000000000000000000000007F7F - 7F20FBFBFBFDFAE6DDFFFCD1BFFFFFD4BFFFFFD4BFFFFFD4BFFFF0CAB7FF8181 - 81A60000000000000000000000000000000000000000000000007F7F7F108080 - 80BFF1CCB9FFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFFF - FFFFFFFFFF33000000000000000000000000000000007F7F7F10818181BFF3CD - BAFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFF8F8 - F8FE7F7F7F1000000000000000000000000000000000F3F3F3F5F0CAB7FFFDD3 - BEFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFF8181 - 81AA8282826200000000000000000000000000000000D6D6D679F9F9F9FD9595 - 95D5DFBFB0FFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFF1CB - B9FF7E7E7EA1000000000000000000000000000000007F7F7F04000000007F7F - 7F307A7A7A9CF0F0F0FAF5F5F5FD8080808FE5C3B3FFFFD4BFFFFFD4BFFFFFD4 - BFFFFDFDFDFE0000000000000000000000000000000000000000000000000000 - 000000000000FEFEFE25BEBEBE3B7F7F7F70808080CFF5F5F5FEFDFDFDFEF0DC - D2FFFEFEFEFF7F7F7F2000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000007F7F7F207F7F7F788080 - 80D3808080DB7F7F7F2000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000938B88EB9D938EFFF8F8 - F7FFFFFFFFFFA09692FFA09692FFFEFEFEFFFEFEFEFF9D938EFF9D938EFFFEFE - FEFFF7F7F7FE000000000000000000000000000000009D938EFFFFD4BFFFFFD4 - BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4 - BFFF9D938EFF000000000000000000000000FFFFFF60FFFFFFFFFFD4BFFFFFD4 - BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4 - BFFF9D938EFF000000000000000000000000FEFEFE25FEFEFDFFFFD4BFFFFFD4 - BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4 - BFFFFBFBFBFFFEFEFE170000000000000000000000009D938EFFFFD4BFFFFFD4 - BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4 - BFFFFFFFFFFFFFFFFF080000000000000000FEFEFE45FFFFFFFFFFD4BFFFFFD4 - BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4 - BFFF9D938EFF000000000000000000000000FEFEFE45FEFEFEFFFFD4BFFFFFD4 - BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4 - BFFF9D938EFF000000000000000000000000000000008F8B88F99D938EFFFEFE - FEFFFEFEFEFF9D938EFF9D938EFFFFFFFFFFFEFEFEFF9D938EFF9D938EFFFEFE - FEFFFFFFFFFF0000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000088F2790488F279D787F178EC86F177ED86F177ED73DA - 64EF44A137D80000000000000000000000000000000000000000000000000000 - 000000000000000000000000000088F279F225B011FF25B011F424AD11DE1874 - 0BF7197A0C7D0000000000000000000000000000000000000000000000000000 - 000000000000000000000000000088F279FE25B011FD25B011FF24AC10FF1872 - 0BB8000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000088F279F225B011FA1E8F0EFF26B012EB25AE - 11A600000000000000000000000000000000938B88EB9D938EFFF8F8F7FFFFFF - FFFFA09692FFA09692FFFEFEFEFF86EE78FF28821AFF236A17FF9CF390FF40BD - 2EFF25B0110B0000000000000000000000009D938EFFFFD4BFFFFFD4BFFFFFD4 - BFFFFFD4BFFFFFD4BFFFFFD4BFFF3E872DFF618945FFF0CDB4FFADE98FFF58C1 - 46FF25B011580000000000000000FFFFFF60FFFFFFFFFFD4BFFFFFD4BFFFFFD4 - BFFFFFD4BFFFFFD4BFFFFFD4BFFFE0C5A7FFFFD4BFFFFFD4BFFFC6E29DFF6DC5 - 5CFF25B011920000000000000000FEFEFE25FEFEFDFFFFD4BFFFFFD4BFFFFFD4 - BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFED4BEFFA2DC - 9AFF2BB218C80000000000000000000000009D938EFFFFD4BFFFFFD4BFFFFFD4 - BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFA5DF - 9EFF27B113C10000000000000000FEFEFE45FFFFFFFFFFD4BFFFFFD4BFFFFFD4 - BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFD7DEA8FF69C4 - 58FF18710BE715650A0D00000000FEFEFE45FEFEFEFFFFD4BFFFFFD4BFFFFFD4 - BFFFFFD4BFFFFFD4BFFFFFD4BFFFAFE890FFFFD4BFFFFFD4BFFFAFE890FF57BF - 47FF15670AF115650A0100000000000000008F8B88F99D938EFFFEFEFEFFFEFE - FEFF9D938EFF9D938EFFFFFFFFFF89F27AFF4DA83AFF9C988DFF91F284FF3097 - 22FF15660AC30000000000000000000000000000000000000000000000000000 - 000000000000000000000000000088F279FA28B214DD3CBF29D66ADA5ADF1669 - 0AF815650A250000000000000000000000000000000000000000000000000000 - 000000000000000000000000000088F279F729B315EE28B215FE228115FC166A - 0BD015650A1F0000000000000000000000000000000000000000000000000000 - 000000000000000000000000000088F279F32AB316FF25B011FE24AA11F01C86 - 0DE9176D0BF115650A1200000000000000000000000000000000000000000000 - 0000000000000000000000000000368E2AF115650AFF15650AFF15650AFF1565 - 0AFF15660AEC15650ADE15650A0D000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000068757F164A51593067727BFF64737BFF4B5663FF4B5664FF505B - 67FF728089FF3F4754FF00000000000000000000000000000000000000000000 - 0000606C750E727E884E6C7881E1BCCBD3FAEAFFFFFFEAFFFFFFEAFFFFFFFBFF - FFFFEEFFFFFF819099E90000000000000000000000000000000000000000545E - 670E6C77814E67727CE1B7C6CFFAE7FBFCFFEAFFFFFFF2FFFFFFEDFFFFFFE3F8 - F9FF707E86FF84939DE600000000000000000000000000000000545E670E6A75 - 804E5E6972E1B8C7D0FADFF3F6FFE9FEFDFFEAFFFFFFE4F9FAFFD5E8EEFF5964 - 6AFFA8B5C2FF8796A0E8000000000000000000000000545E670E6A757F4E616C - 76E1BFD1DBFADFF5F5FFE9FEFDFFECFFFFFFE4F9FAFFD5E8EEFF545D64FFB0BF - CBFFF3FFFFFF84939DF80000000000000000545E670E6C77814E616C76E1C0D2 - DBFAE3FAFBFFEBFFFFFFEEFFFFFFE7FCFDFFD5E8F0FF525C63FFAFC0CDFFFFFF - FFFC77848BF74E4E4DF90000000082919D14727E8A565A636DE4C3D3DFFAF6FF - FFFFF5FFFFFFE1F5F6FFE4FAF8FFE8FDFFFF535D64FFAFBDCAFFF9FFFFFC636D - 76F155585AC14E51545300000000808E99367E8C97FF8B9BA4FF919FA8FF90A0 - A7FF7A8A95FF7A8994FF95A4AEFF8493A0FFBECDDCFFF8FFFFFC636F76EF5F62 - 64BB4E51533A4545450E0000000084929D5490A1A9ECFDFFFFFFE3F8F9FFDFF4 - F5FFDFF4F5FFE3F8F9FFF9FFFFFF91A0AAFFE7FBFFFD657178EF65686AB9575A - 5C385C5C5C0900000000000000008795A0548F9EA8EFFDFFFFFFE3F8F9FFDFF4 - F5FFDFF4F5FFE3F8F9FFFCFFFFFF8C9BA4FF5E6972F6646567BB5B5F61366262 - 620A0000000000000000000000008B99A33E909EA8FF8D9EA6EF92A0A9E6909F - A8E6909FAAE692A2ABE690A1A9E88496A0FB616568EC585B5F40636363080000 - 00000000000000000000000000008E9CA6148D9AA43B8998A24686959F3E8695 - 9F3E8895A13E8897A13E8C9CA641889AA643737E852F8080800D000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000282723464D3D2FFF5642 - 2FFF292621890000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000003D362DCDA46432FF7C53 - 30FF413C32F40000000000000000000000000000000000000000000000000000 - 00000000000000000000000000004F4C44FF5D442DE261472DFF724D30FF3A35 - 2EFF3B3A33FF0000000000000000000000000000000000000000000000000000 - 00000000000000000000000000078F969895977963FF42392FFF32312CF53432 - 2CB03E3B35490000000000000000000000000000000000000000000000000000 - 0000000000000000000978868D7DFFFFFFFFF0EDE7FF464645FF34322CC62C2A - 250E000000000000000000000000000000000000000000000000000000000000 - 0000686D6B1395A0B093FFFFFFFFFFF7EDFFC5C1C3FF64676455504D44C50000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0009878A9596D8BAA1FFE2B691FFB2ACA7FF858D8D4A00000002000000000000 - 0000000000000000000000000000000000000000000000000000000000067885 - 9981CBA176FFB86927FF9C7E5CFF666A7E410000000200000000000000010000 - 000000000001000000010000000000000000000000009BA19E0B978E97CBCC9F - 73FFB36829FF9C7B60FF64687C43000000000000000000000003000000030000 - 0004000000020000000000000000000000000000000063757D31AB9785FFC36F - 2DFF9E7B5FFF6C72825600000001000000030000000600000008000000070000 - 00060000000400000001000000000000000023130802A2ADB0E9CFC5BDFF9A92 - 91FF7D878750000000090000000A0000000E0000000E0000000D0000000B0000 - 0009000000050000000100000000000000002D17093F9F653BF575615EBC0000 - 00000000001300000018000000190000001A00000017000000110000000D0000 - 0008000000050000000100000000000000005A381E5CC89162FF4B260EAD2A16 - 093C000000260000002800000026000000200000001C000000140000000D0000 - 000700000004000000010000000047250F28D3B79DFBF7C695FFA67348FF4525 - 108B000000340000002E0000002B000000230000001B00000012000000090000 - 00050000000100000000000000004F2C122BA7754DFEC08757FF7F4D29FF2513 - 086B0000003100000027000000210000001A000000140000000C000000060000 - 000200000000000000000000000000000000552D122E572D12533B1F0C490D07 - 022E0000001C0000001700000014000000100000000C00000008000000030000 - 0001000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000007F7F - 7F408F9F9BFF808080FF808080FF808080FF818383FF8F9F9BFF868C8B528080 - 800A00000000000000000000000000000000000000000000000099B3ADFF8F9F - 9BFFAEDED2FFBFFFEFFFBFFFEFFFBFFFEFFFBCFAEBFFAEDED2FF94A9A4FFA0C0 - B854000000000000000000000000000000000000000093A7A2FFA4CAC1FFBFFF - EFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFB2E6D9FF8B97 - 94ED000000000000000000000000000000009DBBB4FFA0C2BAFFBFFFEFFFBFFF - EFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFF878F - 8DFF7F7F7F200000000000000000000000009BB7B0FFA2C6BDFFBFFFEFFFBFFF - EFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFF9BB7 - B0FF7F7F7F700000000000000000000000007F7F7F18858B8AFFB2E6D9FFBFFF - EFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFF9EBE - B6FF9EBEB6FF000000000000000000000000000000007F7F7F288F9F9BFFB2E6 - D9FFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFF99B3 - ADFF7F7F7F6800000000000000000000000000000000000000007F7F7F20878F - 8DFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFACDACFFF91A3 - 9FFF0000000000000000000000000000000000000000000000007F7F7F408F9F - 9BFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFBFFFEFFFA8D2C8FF93A7A2FF7F7F - 7F0800000000000000000000000000000000000000007F7F7F08899391FFB6EE - E0FFBFFFEFFFBFFFEFFFBFFFEFFFBCFAEBFF99B3ADFF95ABA6FF7F7F7F080000 - 0000000000000000000000000000000000000000000097AFA9FFA6CEC4FFBFFF - EFFFBFFFEFFFBAF6E7FFA6CEC4FF899391FF7F7F7F6800000000000000000000 - 0000000000000000000000000000000000000000000093A7A2FF878F8DFF8D9B - 98FF8C9996FF838786FF97AFA9FF7F7F7F200000000000000000000000000000 - 00000000000000000000000000000000000000000000000000007F7F7F207F7F - 7F38000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000052521F0097970000333349092E2E - 44052F2F4F000000000000000000000000000000000000008000000077050000 - 780A0000000000003400000000004D4D3700181894002727752D1B1B9FAF1B1B - 938B202056112020680000000000000000000E0E95000606870E2020B4872525 - BCB20C0C95321C1CD30000003A002525810029296F2D2020A9C96161E3FF4646 - CFFC191994981C1C58101E1E6D00121291000A0A800D1E1EAF926060D8FB8383 - EAFF3333C7CE080898321919C10043432F091B1B9BAF5353E5FFC0C0F5FFA8A8 - F0FF3D3DCBFC1919969819195C0F10107E0C1E1EAA925050D0FBAFAFEFFFC2C2 - F4FF7E7EEFFF2727BDBA00004310494909041E1E8B8C3737D1FD8C8CEEFFA2A2 - EDFF8888E8FF3535C4FC1A1A989F1D1DA29A4040C7FA8C8CE7FFA1A1EDFF9797 - EEFF5E5EE1FF1C1CA0A300001C0C29295A002C2C43101B1B8C982E2ECCFC6B6B - E6FF7D7DE6FF6868DFFF2C2CBFFE2F2FBFFE6A6ADFFF7C7CE6FF7474E6FF4E4E - D9FE1B1B9EAF0000431C03036A000000000026265F00292948101C1C8F982525 - C8FC4B4BDEFF5757E0FF4A4AD8FF4A4AD8FF5656E0FF5252DDFF3E3ED0FE1B1B - 99AF0000421D050568000000000000000000000000002323630025254A0F1D1D - 919F1C1CC5FF2C2CD6FF3131D9FF3030D9FF3030D5FF3030CBFF1A1A96B40101 - 3C1C0707630000000000000000000000000000000000292972002F2F5D0C2020 - 969A0D0DBFFF0606C0FF0A0AB8FF0F0FB7FF1A1ABBFF2929C3FF1D1DA4A60101 - 6E0F090984000000000000000000000000002C2C6C003333580D1F1F96920C0C - C6FB0000CBFF0000B6FF0000A3FF0808A1FF1818B0FF2929C2FF3333CDFC2020 - B0980000751006068A0000000000303067003838510D202093920B0BCCFB0000 - DAFF0000C9FF0101B8FF1010AFFF1717AFFF1919B2FF2828C0FF3838D1FF3D3D - D7FC2121B5980000781004048D0054540A03212190870A0AD2FC0000E7FF0000 - D9FF0101CBFF0F0FB7FE191987B41D1D97A62222B9FB2828C2FF3737D0FF4848 - E1FF4848E2FD2020B6900000300742422D091C1C98B10404E4FF0000E7FF0000 - DAFF0D0DC0FE191983AF0E0E331C0E0E690F1F1FA3982C2CC4FC3838D1FF4747 - E0FF5252ECFF2626B3C40000381425258000282864321717A4CE0505DBFF0C0C - C7FE191981AF1111321D1717520010107F0009096A102020A8983636CFFC4444 - DFFF2C2CB9DD07076C476767FF002A2A1E001F1FA100252568331A1A95BB1919 - 7DA31313311D19194E0000000000000000000D0D8300060671102020A9902222 - AAC509096A47FFFFFF0000000E000000000022220D00383800001D1D29111414 - 1D0D25253C000000000000000000000000000000000000004E00000045090000 - 3A14000000010000080000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000938B88EB9D938EFFF8F8 - F7FFFFFFFFFFA09692FFA09692FFFEFEFEFFFEFEFEFF9D938EFF9D938EFFFEFE - FEFFF7F7F7FE000000000000000000000000000000009D938EFFFFD4BFFFFFD4 - BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4 - BFFF9D938EFF000000000000000000000000FFFFFF60FFFFFFFFFFD4BFFFFFD4 - BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4BFFFFFD4 - BFFF9D938EFF000000000000000000000000FEFEFE25FEFEFDFFFFD4BFFFFFD4 - BFFFFFD4BFFFFFD4BFFFFFD4BFFFCCABB5FFDBB7B6FFFFD4BFFFFFD4BFFFDCB8 - BCFFC7C7E9FFFEFEFE170000000000000000000000009D938EFFFFD4BFFFFFD4 - BFFFFFD4BFFFFFD4BFFFCCABB4FF706EDAFF6864CBFFD5B2B5FFD8B4BAFF7873 - D3FF8686E8FF3131B5450000000000000000FEFEFE45FFFFFFFFFFD4BFFFFFD4 - BFFFFFD4BFFFFFD4BFFFDCB7B5FF5B56CAFF8585E8FF4F4AC1FF5550C4FF8787 - E8FF6261D0FF16168B330000000000000000FEFEFE45FEFEFEFFFFD4BFFFFFD4 - BFFFFFD4BFFFFFD4BFFFFFD4BFFFD6B3B4FF403CC3FF4040DAFF4040DAFF4744 - C6FF7D768BFF000000000000000000000000000000008F8B88F99D938EFFFEFE - FEFFFEFEFEFF9D938EFF9D938EFFD9D9EBFF2424C3FF0404B4FF1212B1FF3D3D - C5FFD5D5EEFF0000000000000000000000000000000000000000000000000000 - 00000000000000000000242488260B0BCCE20000D2FF0D0DACEC1C1CAEE83030 - C9FF3E3ED7E41C1CAA2A00000000000000000000000000000000000000000000 - 000000000000000000002020893B0707D5F30B0BBDEB17176F3A1C1C992E3030 - C6E44343DAF71C1C994800000000000000000000000000000000000000000000 - 00000000000000000000000000001C1C854018186C3300000000000000001C1C - 9E2A191992480000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000001FFF400021FF800021 - FF800021FF800021FF800021FF800021FF800021FF80001FFF40000000000000 - 000000000000000000000000000000000000000000000021FF800021FFFF0021 - FFFF0021FFFF0021FFFF0021FFFF0021FFFF0021FFFF0021FF80000000000000 - 000000000000000000000000000000000000000000000021FF800021FFFF0021 - FFFF0021FFFF0021FFFF0021FFFF0021FFFF0021FFFF0021FF80000000000000 - 000000000000000000000000000000000000000000000021FF800021FFFF0021 - FFFF0021FFFF0021FFFF0021FFFF0021FFFF0021FFFF0021FF80000000000000 - 000000000000000000000000000000000000000000000021FF800021FFFF0021 - FFFF0021FFFF0021FFFF0021FFFF381AC8FF4019C0FF66149AA0000000000000 - 000000000000000000000000000000000000000000000021FF800021FFFF0021 - FFFF0021FFFF5816A8FFE7031CFFFF0004FFFF0004FFFF0004FFFE0004EFFF00 - 04780000000000000000000000000000000000000000001FFF400021FF800021 - FF80A20C5EBCFF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF00 - 04FFFE000397000000000000000000000000000000000000000000000000FF00 - 0010FE0004F7FF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF00 - 04FFFF0004FFFF0005300000000000000000000000000000000000000000FE00 - 0258FF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF00 - 04FFFF0004FFFF0003800000000000000000000000000000000000000000FE00 - 0468FF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF00 - 04FFFF0004FFFF0003800000000000000000000000000000000000000000FF00 - 0628FF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF00 - 04FFFF0004FFFF00035000000000000000000000000000000000000000000000 - 0000FE0004A7FF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFF00 - 04FFFE0003CF0000000000000000000000000000000000000000000000000000 - 0000FF000008FE0004B7FF0004FFFF0004FFFF0004FFFF0004FFFF0004FFFE00 - 03C7FF0007200000000000000000000000000000000000000000000000000000 - 00000000000000000000FE000438FF000380FF000380FF000380FE0003480000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000632C2D0700000000EC9C4616F0A72CFF8A49 - 0029000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000927B6263A49E98FF0000000000000000E7771DFF6837 - 0030000000000000000000000000000000000000000000000000000000000000 - 0000000000007D66473FBBB09FFFE6E4E7FFB8D0E5CC00000000DA7415FF6735 - 002B000000000000000000000000000000000000000000000000000000000000 - 00007557363FA59684D4C7BFB7FFC4B4B2FFF2E9EEFFD7F4E5E3BA7718ED6B24 - 001C000000000000000000000000000000000000000000000000000000007A5D - 3C3F9D8C78D4AC9F97FFD2C8C3FFE3DBCEFFF4E6E0FFF7E4CFFFBD6002FF5537 - 3D29000000000000000000000000000000000000000000000000785E3C3F9D8C - 75D4BDB1A6FFBBACA0FFC0B3ABFFF5F1EBFFE6D9D1FFCEB9ACFFBA9D62FFA3A4 - BCE1FFB06CA1FCAE322200000000000000000000000087694F3F978470D4B4A8 - 9BFFC4B8B1FFE6D9CFFFE5D7D1FFBBADA4FFD9CECBFFBDC0B3FFA9A4A7FF979B - CCFFDCAC7BFFDD7F1CF60000000000000000967C6042A7998BFFB3A8A1FFBFB2 - A9FFDFD3CCFFF4E7E0FFE2D2CCFFBEAFA4FFA09189FFCCC3C0FFA09298FF6B74 - 7FFFA18860FFD77B1AFFA15C016B8B673724A89782FFCCC5C3FFD1C7BEFFE2D5 - CFFFEFE2DAFFDCCEC8FFC7B9B2FFB9AA9FFFA5968CFF97867AFFC0B6ACFF7C73 - 84FF6E6265F1CF7D1EFF9F6001940000000569564098C5B7AEFFF6EAE9FFF4E7 - E1FFDCCEC8FFC1B4AAFFB6A79FFFAE9F96FF9B8C85FF8B7B6FFF85746AFF8A7D - 89C44C354B0DC8841AFF9F620C97000000000000000969564067C0AE9FE8EDE4 - E6FFCFC5BDFFC4B2ADFFA99A91FF9B8C82FF908076FF7F6F64FF756250E30000 - 000000000000BF7E20FF9F630C9A0000000000000000000000096B574267B4A2 - 93E8D4C3C0FFB6ADA1FF9E9290FF8D7D73FF7F6F64FF7D6755F25E5135780000 - 000000000000B3761AF59F650F9B000000000000000000000000000000096A55 - 4167B69D82E8B1A7A0FF9D8B82FF7F6F66FF786752E968513D750000000D0000 - 000000000000B67419FFA26510BD000000000000000000000000000000000000 - 000A66543D67A3928DFF897E7FFF83756CFF604E38670000000C000000000000 - 000000000000E69216E8AB6B10FB000000000000000000000000000000000000 - 00000000000464503B6A947862FF634E3A6A0000000400000000000000000000 - 000000000000CB7F1476C17913DB000000000000000000000000000000000000 - 0000000000000000000D41311B5D0000000D0000000000000000000000000000 - 0000000000002E1C02142C1A0216008080000080800000808000008080000080 - 8000008080000080800000808000008080000080800000808000008080000080 - 8000008080000080800000808000008080000080800000808000008080000080 - 8000008080000080800000808000008080000080800000808000008080000080 - 800000808000008080000080800000808000000000FF000000FF008080000080 - 8000008080000080800000808000008080000080800000808000008080000080 - 800000808000008080000080800000808000000000FF0000FFFF000000FF0000 - 00FF008080000080800000808000008080000080800000808000008080000080 - 80000080800000808000008080000080800000808000000000FF0000FFFF0000 - FFFF000000FF000000FF00808000008080000080800000808000008080000080 - 80000080800000808000008080000080800000808000000000FF0000FFFF0000 - FFFF0000FFFF0000FFFF000000FF000000FF0080800000808000008080000080 - 8000008080000080800000808000008080000080800000808000000000FF0000 - FFFF0000FFFF0000FFFF0000FFFF0000FFFF000000FF000000FF7F7F7FFF0080 - 8000008080000080800000808000008080000080800000808000000000FF0000 - FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF000000FF008080000080 - 8000008080000080800000808000008080000080800000808000008080000000 - 00FF0000FFFF0000FFFF0000FFFF0000FFFF000000FF00808000008080000080 - 8000008080000080800000808000008080000080800000808000008080000000 - 00FF0000FFFF0000FFFF0000FFFF0000FFFF000000FF7F7F7FFF008080000080 - 8000008080000080800000808000008080000080800000808000008080000080 - 8000000000FF0000FFFF000000FF000000FF0000FFFF000000FF7F7F7FFF0080 - 8000008080000080800000808000008080000080800000808000008080000080 - 8000000000FF000000FF008080007F7F7FFF000000FF0000FFFF000000FF7F7F - 7FFF008080000080800000808000008080000080800000808000008080000080 - 80007F7F7FFF0080800000808000008080007F7F7FFF000000FF0000FFFF0000 - 00FF7F7F7FFF0080800000808000008080000080800000808000008080000080 - 800000808000008080000080800000808000008080007F7F7FFF000000FF0000 - FFFF000000FF0080800000808000008080000080800000808000008080000080 - 80000080800000808000008080000080800000808000008080007F7F7FFF0000 - 00FF7F7F7FFF0080800000808000008080000080800000808000008080000080 - 8000008080000080800000808000008080000080800000808000008080000080 - 8000008080000080800000808000 - } - end -end diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm3/Lfm3_Source.lfm b/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm3/Lfm3_Source.lfm deleted file mode 100644 index 0acb7afe7..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm3/Lfm3_Source.lfm +++ /dev/null @@ -1,1078 +0,0 @@ -object FrmVecFontEditMain: TFrmVecFontEditMain - Left = 444 - Height = 669 - Top = 147 - Width = 936 - ActiveControl = DrawGrid1 - Caption = 'FrmVecFontEditMain' - ClientHeight = 669 - ClientWidth = 936 - Menu = MainMenu1 - OnCreate = FormCreate - OnDestroy = FormDestroy - ShowHint = True - ShowInTaskBar = stAlways - LCLVersion = '1.6.0.4' - Visible = False - object StatusBar1: TStatusBar - Left = 0 - Height = 23 - Top = 626 - Width = 936 - Panels = < - item - Width = 50 - end - item - Width = 80 - end - item - Width = 50 - end - item - Width = 50 - end> - SimplePanel = False - end - object ToolBar1: TToolBar - Left = 0 - Height = 26 - Top = 0 - Width = 936 - Caption = 'ToolBar1' - Images = ImageList1 - TabOrder = 1 - object lbl_Version: TLabel - Left = 900 - Height = 24 - Top = 2 - Width = 36 - Align = alRight - Caption = 'lbl_Version' - Font.Height = -7 - Font.Name = 'Small Fonts' - ParentColor = False - ParentFont = False - OnClick = lbl_VersionClick - end - object ToolButton1: TToolButton - Left = 1 - Top = 2 - Action = actFileNew - end - object ToolButton2: TToolButton - Left = 24 - Top = 2 - Action = FileOpen1 - end - object ToolButton3: TToolButton - Left = 47 - Top = 2 - Action = actFileSave - end - object ToolButton4: TToolButton - Left = 70 - Height = 22 - Top = 2 - Width = 5 - Caption = 'ToolButton4' - Style = tbsDivider - end - object ToolButton5: TToolButton - Left = 75 - Top = 2 - Action = FileExit1 - end - end - object DrawGrid1: TDrawGrid - Left = 224 - Height = 416 - Top = 72 - Width = 416 - ColCount = 17 - DefaultColWidth = 24 - DefaultRowHeight = 24 - ExtendedSelect = False - RowCount = 17 - TabOrder = 2 - OnClick = DrawGrid1Click - OnDrawCell = DrawGrid1DrawCell - end - object LEd_TestText: TLabeledEdit - Left = 224 - Height = 23 - Top = 44 - Width = 216 - EditLabel.AnchorSideLeft.Control = LEd_TestText - EditLabel.AnchorSideRight.Control = LEd_TestText - EditLabel.AnchorSideRight.Side = asrBottom - EditLabel.AnchorSideBottom.Control = LEd_TestText - EditLabel.Left = 224 - EditLabel.Height = 15 - EditLabel.Top = 26 - EditLabel.Width = 216 - EditLabel.Caption = 'Testtext:' - EditLabel.ParentColor = False - TabOrder = 3 - Text = 'The quick brown fox jumps over the lazy dog!' - OnChange = SpeedButton1Click - end - object PaintBox1: TPaintBox - Left = 462 - Height = 38 - Top = 30 - Width = 468 - end - object SpeedButton1: TSpeedButton - Left = 440 - Height = 30 - Top = 32 - Width = 23 - Caption = '>' - OnClick = SpeedButton1Click - end - object SpinEdit1: TSpinEdit - Left = 169 - Height = 23 - Top = 44 - Width = 49 - MaxValue = 3 - MinValue = 1 - OnChange = SpeedButton1Click - TabOrder = 4 - Value = 2 - end - object Label1: TLabel - Left = 169 - Height = 15 - Top = 27 - Width = 23 - Caption = 'Size:' - ParentColor = False - end - object PaintBox2: TPaintBox - Left = 649 - Height = 375 - Top = 112 - Width = 278 - OnMouseMove = PaintBox2MouseMove - OnPaint = PaintBox2Paint - end - object Edit1: TEdit - Left = 226 - Height = 23 - Top = 500 - Width = 664 - OnChange = Edit1Change - OnKeyPress = Edit1KeyPress - TabOrder = 5 - Text = 'Edit1' - end - object SpinEdit2: TSpinEdit - Left = 649 - Height = 23 - Top = 88 - Width = 50 - TabOrder = 6 - Value = 3 - end - object SpinEdit3: TSpinEdit - Left = 707 - Height = 23 - Top = 88 - Width = 50 - TabOrder = 7 - Value = 8 - end - object SpinEdit4: TSpinEdit - Left = 764 - Height = 23 - Top = 87 - Width = 50 - TabOrder = 8 - Value = 11 - end - object lbl_Middle: TLabel - Left = 649 - Height = 15 - Top = 72 - Width = 40 - Caption = 'Middle:' - ParentColor = False - end - object Label3: TLabel - Left = 707 - Height = 15 - Top = 72 - Width = 43 - Caption = 'Bottom:' - ParentColor = False - end - object Label4: TLabel - Left = 764 - Height = 15 - Top = 72 - Width = 35 - Caption = 'Under:' - ParentColor = False - end - object LEd_FontTitle: TLabeledEdit - Left = 8 - Height = 23 - Top = 44 - Width = 152 - EditLabel.AnchorSideLeft.Control = LEd_FontTitle - EditLabel.AnchorSideRight.Control = LEd_FontTitle - EditLabel.AnchorSideRight.Side = asrBottom - EditLabel.AnchorSideBottom.Control = LEd_FontTitle - EditLabel.Left = 8 - EditLabel.Height = 15 - EditLabel.Top = 26 - EditLabel.Width = 152 - EditLabel.Caption = 'Font-Title' - EditLabel.ParentColor = False - TabOrder = 9 - Text = 'LEd_FontTitle' - OnChange = LEd_FontTitleChange - OnExit = LEd_FontTitleExit - end - object MainMenu1: TMainMenu - Images = ImageList1 - left = 120 - top = 88 - object mniFile: TMenuItem - Caption = 'Datei' - object mniFileNew: TMenuItem - Action = actFileNew - Bitmap.Data = { - 36040000424D3604000000000000360000002800000010000000100000000100 - 2000000000000004000064000000640000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 - 00FF000000FF000000FF000000FF000000000000000000000000000000000000 - 0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFF000000FF000000000000000000000000000000000000 - 0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFF000000FF000000000000000000000000000000000000 - 0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFF000000FF000000000000000000000000000000000000 - 0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFF000000FF000000000000000000000000000000000000 - 0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFF000000FF000000000000000000000000000000000000 - 0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFF000000FF000000000000000000000000000000000000 - 0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFF000000FF000000000000000000000000000000000000 - 0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFF000000FF000000000000000000000000000000000000 - 0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000 - 00FF000000FF000000FF000000FF000000000000000000000000000000000000 - 0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000 - 00FFFFFFFFFF000000FF00000000000000000000000000000000000000000000 - 0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000 - 00FF000000FF0000000000000000000000000000000000000000000000000000 - 0000000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 - 00FF000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000 - } - end - object mniFileOpen: TMenuItem - Action = FileOpen1 - Bitmap.Data = { - 36040000424D3604000000000000360000002800000010000000100000000100 - 2000000000000004000064000000640000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000FF0000 - 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 - 00FF000000FF0000000000000000000000000000000000000000000000FF0000 - 00FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF0084 - 84FF008484FF000000FF00000000000000000000000000000000000000FF00FF - FFFF000000FF008484FF008484FF008484FF008484FF008484FF008484FF0084 - 84FF008484FF008484FF000000FF000000000000000000000000000000FFFFFF - FFFF00FFFFFF000000FF008484FF008484FF008484FF008484FF008484FF0084 - 84FF008484FF008484FF008484FF000000FF0000000000000000000000FF00FF - FFFFFFFFFFFF00FFFFFF000000FF008484FF008484FF008484FF008484FF0084 - 84FF008484FF008484FF008484FF008484FF000000FF00000000000000FFFFFF - FFFF00FFFFFFFFFFFFFF00FFFFFF000000FF000000FF000000FF000000FF0000 - 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00FF - FFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FF - FFFF000000FF0000000000000000000000000000000000000000000000FFFFFF - FFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFF - FFFF000000FF0000000000000000000000000000000000000000000000FF00FF - FFFFFFFFFFFF00FFFFFF000000FF000000FF000000FF000000FF000000FF0000 - 00FF000000FF0000000000000000000000000000000000000000000000000000 - 00FF000000FF000000FF00000000000000000000000000000000000000000000 - 00000000000000000000000000FF000000FF000000FF00000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000FF000000FF00000000000000000000 - 0000000000000000000000000000000000000000000000000000000000FF0000 - 00000000000000000000000000FF00000000000000FF00000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00FF000000FF000000FF00000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000 - } - end - object mniFileSave: TMenuItem - Action = actFileSave - Bitmap.Data = { - 36040000424D3604000000000000360000002800000010000000100000000100 - 2000000000000004000064000000640000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 - 00FF000000FF000000FF000000FF000000FF000000FF00000000000000000000 - 00FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF0000 - 00FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF00000000000000000000 - 00FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF0000 - 00FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF00000000000000000000 - 00FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF0000 - 00FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF00000000000000000000 - 00FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF0000 - 00FF000000FF000000FF000000FF008484FF000000FF00000000000000000000 - 00FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF0084 - 84FF008484FF008484FF008484FF008484FF000000FF00000000000000000000 - 00FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF0000 - 00FF000000FF000000FF008484FF008484FF000000FF00000000000000000000 - 00FF008484FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6 - C6FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF00000000000000000000 - 00FF008484FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6 - C6FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF00000000000000000000 - 00FF008484FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6 - C6FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF00000000000000000000 - 00FF008484FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6 - C6FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF00000000000000000000 - 00FF008484FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6 - C6FFC6C6C6FFC6C6C6FF000000FF000000FF000000FF00000000000000000000 - 00FF008484FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6 - C6FFC6C6C6FFC6C6C6FF000000FFC6C6C6FF000000FF00000000000000000000 - 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 - 00FF000000FF000000FF000000FF000000FF000000FF00000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000 - } - end - object mniFileSaveAs: TMenuItem - Action = FileSaveAs1 - Bitmap.Data = { - 36040000424D3604000000000000360000002800000010000000100000000100 - 2000000000000004000064000000640000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 - 00FF000000FF000000FF000000FF000000FF000000FF00000000000000000000 - 00FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF0000 - 00FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF00000000000000000000 - 00FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF0000 - 00FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF00000000000000000000 - 00FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF0000 - 00FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF00000000000000000000 - 00FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF0000 - 00FF000000FF000000FF000000FF008484FF000000FF00000000000000000000 - 00FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF0084 - 84FF008484FF008484FF008484FF008484FF000000FF00000000000000000000 - 00FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF0000 - 00FF000000FF000000FF008484FF008484FF000000FF00000000000000000000 - 00FF008484FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6 - C6FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF00000000000000000000 - 00FF008484FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6 - C6FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF00000000000000000000 - 00FF008484FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6 - C6FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF00000000000000000000 - 00FF008484FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6 - C6FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF00000000000000000000 - 00FF008484FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6 - C6FFC6C6C6FFC6C6C6FF000000FF000000FF000000FF00000000000000000000 - 00FF008484FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6 - C6FFC6C6C6FFC6C6C6FF000000FFC6C6C6FF000000FF00000000000000000000 - 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 - 00FF000000FF000000FF000000FF000000FF000000FF00000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000 - } - end - object mniFileClose: TMenuItem - Caption = 'Schliessen' - end - object mniFileSep1: TMenuItem - Caption = '-' - end - object mniFileExit: TMenuItem - Action = FileExit1 - Bitmap.Data = { - 36040000424D3604000000000000360000002800000010000000100000000100 - 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00B7B7 - B7FFAEAEAEFF3071A9FF2C6EA6FF286BA3FF2468A0FF21669EFF1D639BFF1A61 - 99FF175F97FF145C94FF115B93FF6C6C6CFF6C6C6CFFFFFFFF00FFFFFF00FFFF - FF00FFFFFF003675ADFF86B6D8FF83B3D7FF81B2D6FF7DAFD5FF7BADD4FF79AB - D3FF76AAD2FF74A8D1FF155D95FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF003C79B1FF8BB9DAFF66A2CEFF62A0CDFF5F9DCBFF5B9AC9FF5897 - C8FF5495C7FF77ABD3FF196098FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00427DB5FF8FBDDCFF6CA7D0FF67A4CFFF64A1CDFF609ECCFF5C9B - CAFF5999C9FF7BADD4FF1E649CFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF004882BAFF93C0DDFF71ABD2FF6DA8D1FF69A5CFFF66A2CEFF629F - CCFF5E9CCBFF7FB0D5FF23679FFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF004E86BEFF98C3DFFF77AFD5FF73ACD3FF6FA9D2FF6BA7D0FF5BB7 - E3FF54C2EDFF81B4D7FF286BA3FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00538AC2FF9CC6E1FF7CB3D7FF79B1D5FF75ADD4FF71ABD2FF5FBA - E4FF4BD4FFFF7CBBE0FF2E6FA7FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00598EC6FFA0C9E3FF82B8D9FF7EB5D8FF7AB2D6FF77AFD5FF73AC - D3FF6DABD4FF8CBADAFF3373ABFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF005E91C9FFA4CCE4FF87BBDBFF84B9DAFF80B6D8FF7CB3D7FF79B0 - D5FF74ADD4FF8FBDDCFF3977AFFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF006395CDFFA8CFE5FF8CBFDDFF88BDDCFF85BADBFF81B7D9FF7EB4 - D7FF7AB2D6FF94C1DDFF3F7CB4FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF006798D0FFABD1E7FF90C2DFFF8DC0DEFF8ABEDCFF87BBDBFF83B8 - DAFF80B6D8FF99C4E0FF4580B8FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF006B9BD3FFAED4E8FFABD3E8FFAAD1E7FFA8CFE5FFA5CDE4FFA2CB - E4FFA0C9E2FF9DC7E1FF4B84BCFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF006E9DD5FF6C9BD3FF699AD2FF6697CFFF6395CDFF6093CBFF5C90 - C8FF598EC6FF558BC3FF5188C0FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 - } - end - end - object mniHelp: TMenuItem - Caption = '?' - RightJustify = True - object mniHelpAbout: TMenuItem - Action = actHelpAbout - end - end - end - object ActionList1: TActionList - Images = ImageList1 - left = 160 - top = 88 - object actFileNew: TAction - Category = 'File' - Caption = 'Neu' - ImageIndex = 6 - OnExecute = actFileNewExecute - ShortCut = 16462 - end - object actFileSave: TAction - Category = 'File' - Caption = 'Save' - ImageIndex = 8 - OnExecute = actFileSaveExecute - OnUpdate = actFileSaveUpdate - ShortCut = 16467 - end - object FileOpen1: TFileOpen - Category = 'File' - Caption = 'Ö&ffnen' - Dialog.DefaultExt = '.vec' - Dialog.Filter = 'Vectordatei [*.vec]|*.vec|Text-Definitionsdatei [*.txt]|*.txt|Alle Dateien [*.*]|*.*' - Hint = 'Öffnen' - ImageIndex = 7 - ShortCut = 16463 - OnAccept = FileOpen1Accept - end - object FileSaveAs1: TFileSaveAs - Category = 'File' - Caption = 'Sichern &als' - Dialog.DefaultExt = '.vec' - Dialog.Filter = 'Vectordatei [*.vec]|*.vec|Text-Definitionsdatei [*.txt]|*.txt|Alle Dateien [*.*]|*.*' - Hint = 'Sichern als' - ImageIndex = 8 - OnAccept = FileSaveAs1Accept - end - object FileExit1: TFileExit - Category = 'File' - Caption = '&Beenden' - Hint = 'Beenden' - ImageIndex = 16 - SecondaryShortCuts.Strings = ( - 'Alt - F4' - ) - end - object actHelpAbout: TAction - Category = 'Help' - Caption = 'Über ...' - OnExecute = actHelpAboutExecute - ShortCut = 24688 - end - end - object OpenDialog1: TOpenDialog - left = 240 - top = 88 - end - object SaveDialog1: TSaveDialog - left = 280 - top = 88 - end - object AboutBox1: TAboutBox - Comment = 'Erstellen und Bearbeiten von JC-Vector-Fonts' - Company = 'JC-Soft' - left = 320 - top = 88 - end - object Config1: TConfig - left = 360 - top = 88 - end - object ImageList1: TImageList - left = 200 - top = 88 - Bitmap = { - 4C69110000001000000010000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000FF000000000000000000000000000000FF000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000FF000000000000000000000000000000FF000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000FF000000000000000000000000000000FF000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000FF000000FF00000000000000FF000000FF000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000FF00000000000000FF00000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000FF000000FF000000FF00000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000FF0000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000840000FF000000FF840000FF00000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000840000FF00000000840000FF840000FF840000FF0000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000840000FF840000FF840000FF00000000840000FF00000000000000008400 - 00FF000000000000000000000000000000000000000000000000000000008400 - 00FF0000000000000000840000FF00000000840000FF00000000000000008400 - 00FF000000000000000000000000000000000000000000000000000000008400 - 00FF0000000000000000840000FF00000000840000FF00000000000000008400 - 00FF000000000000000000000000000000000000000000000000000000008400 - 00FF0000000000000000840000FF0000000000000000840000FF840000FF0000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000840000FF840000FF00000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000FF000000FF000000FF0000 - 00FF000000FF000000FF00000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFF000000FF000000FF000000000000000000000000000000000000 - 000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFF000000FFFFFFFFFF000000FF0000000000000000000000000000 - 000000000000000000000000000000000000000000FFFFFFFFFF000000FF0000 - 00FFFFFFFFFF000000FF840000FF840000FF840000FF840000FF840000FF8400 - 00FF00000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFF840000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8400 - 00FF840000FF000000000000000000000000000000FFFFFFFFFF000000FF0000 - 00FF000000FF000000FF840000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8400 - 00FFFFFFFFFF840000FF0000000000000000000000FFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFF840000FFFFFFFFFF000000FF000000FFFFFFFFFF8400 - 00FF840000FF840000FF840000FF00000000000000FFFFFFFFFF000000FF0000 - 00FF000000FF000000FF840000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFF840000FF00000000000000FFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFF840000FFFFFFFFFF000000FF000000FF000000FF0000 - 00FF000000FFFFFFFFFF840000FF00000000000000FF000000FF000000FF0000 - 00FF000000FF000000FF840000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFF840000FF000000000000000000000000000000000000 - 00000000000000000000840000FFFFFFFFFF000000FF000000FF000000FF0000 - 00FF000000FFFFFFFFFF840000FF000000000000000000000000000000000000 - 00000000000000000000840000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFF840000FF000000000000000000000000000000000000 - 00000000000000000000840000FF840000FF840000FF840000FF840000FF8400 - 00FF840000FF840000FF840000FF000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000FF000000FF000000FF000000FF0000000000000000000000000000 - 000000000000000000000000000000000000000000FF000000FF000000FF0000 - 00FF000000FF00FFFFFF00FFFFFF000000FF000000FF000000FF000000FF0000 - 00FF000000000000000000000000000000FF008484FF848484FF008484FF0000 - 00FF00FFFFFF000000FF000000FF00FFFFFF000000FF848484FF008484FF8484 - 84FF000000FF0000000000000000000000FF848484FF848484FF000000FFC6C6 - C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF848484FF0084 - 84FF000000FF0000000000000000000000FF008484FF848484FF000000FF0000 - 00FF000000FF000000FF000000FF000000FF000000FF000000FF848484FF8484 - 84FF000000FF0000000000000000000000FF848484FF008484FF848484FF0084 - 84FF848484FF008484FF848484FF008484FF848484FF008484FF848484FF0084 - 84FF000000FF0000000000000000000000FF008484FF848484FF008484FF8484 - 84FF008484FF840000FF840000FF840000FF840000FF840000FF840000FF8400 - 00FF000000FF0000000000000000000000FF848484FF008484FF848484FF0084 - 84FF848484FF840000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8400 - 00FF840000FF0000000000000000000000FF008484FF848484FF008484FF8484 - 84FF008484FF840000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8400 - 00FFFFFFFFFF840000FF00000000000000FF848484FF008484FF848484FF0084 - 84FF848484FF840000FFFFFFFFFF000000FF000000FF000000FFFFFFFFFF8400 - 00FF840000FF840000FF840000FF000000FF008484FF848484FF008484FF8484 - 84FF008484FF840000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFF840000FF000000FF848484FF008484FF848484FF0084 - 84FF848484FF840000FFFFFFFFFF000000FF000000FF000000FF000000FF0000 - 00FF000000FFFFFFFFFF840000FF00000000000000FF000000FF000000FF0000 - 00FF000000FF840000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFF840000FF000000000000000000000000000000000000 - 000000000000840000FF840000FF840000FF840000FF840000FF840000FF8400 - 00FF840000FF840000FF840000FF000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000D9A77DFF7F5B00FF7F5B00FF7F5B00FF7F5B00FFD9A7 - 7DFF0000000000000000000000000000000000000000916B0AFF000000000000 - 0000D9A77DFF7F5B00FF7F5B00FFD9A77DFF0000000000000000D9A77DFF7F5B - 00FFD9A77DFF00000000000000000000000000000000916B0AFF916B0AFFD9A7 - 7DFF7F5B00FFD9A77DFF0000000000000000000000000000000000000000D9A7 - 7DFF7F5B00FF00000000000000000000000000000000916B0AFF7F5B00FF916B - 0AFFD9A77DFF0000000000000000000000000000000000000000000000000000 - 00007F5B00FF00000000000000000000000000000000916B0AFF7F5B00FF7F5B - 00FF916B0AFF0000000000000000000000000000000000000000000000000000 - 00007F5B00FF00000000000000000000000000000000644904FF644904FF6449 - 04FF644904FF644904FF00000000000000000000000000000000000000000000 - 00007F5B00FF0000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000D9A77DFF7F5B - 00FF7F5B00FF7F5B00FF7F5B00FFD9A77DFF0000000000000000000000000000 - 00000000000000000000000000000000000000000000D9A77DFF7F5B00FFD9A7 - 7DFF0000000000000000D9A77DFF7F5B00FF7F5B00FFD9A77DFF000000000000 - 0000916B0AFF000000000000000000000000000000007F5B00FFD9A77DFF0000 - 000000000000000000000000000000000000D9A77DFF7F5B00FFD9A77DFF916B - 0AFF916B0AFF000000000000000000000000000000007F5B00FF000000000000 - 00000000000000000000000000000000000000000000D9A77DFF916B0AFF7F5B - 00FF916B0AFF000000000000000000000000000000007F5B00FF000000000000 - 00000000000000000000000000000000000000000000916B0AFF7F5B00FF7F5B - 00FF916B0AFF000000000000000000000000000000007F5B00FF000000000000 - 000000000000000000000000000000000000644904FF644904FF644904FF6449 - 04FF644904FF0000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000000000FF000000FF0000 - 00FF000000000000000000000000000000000000000000000000000000000000 - 000000000000000000FF000000000000000000000000000000FF000000FF0000 - 00FF000000FF0000000000000000000000000000000000000000000000000000 - 00FF000000FF0000000000000000000000000000000000000000000000FF0000 - 00FF000000FF000000FF00000000000000000000000000000000000000FF0000 - 00FF000000000000000000000000000000000000000000000000000000000000 - 0000000000FF000000FF000000FF0000000000000000000000FF000000FF0000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000FF000000FF000000FF000000FF000000FF000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000FF000000FF000000FF00000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000FF000000FF000000FF000000FF000000FF000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000FF000000FF000000FF0000000000000000000000FF000000FF0000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00FF000000FF000000FF00000000000000000000000000000000000000FF0000 - 00FF000000000000000000000000000000000000000000000000000000FF0000 - 00FF000000FF0000000000000000000000000000000000000000000000000000 - 00FF0000000000000000000000000000000000000000000000FF000000FF0000 - 00FF000000FF0000000000000000000000000000000000000000000000000000 - 0000000000FF00000000000000000000000000000000000000FF000000FF0000 - 00FF000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000FF0000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000FF00000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000000000FF000000FF0000 - 00FF000000FF000000FF000000FF000000FF000000FF00000000000000000000 - 00000000000000000000000000000000000000000000000000FFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF000000FF000000000000 - 00000000000000000000000000000000000000000000000000FFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFF000000FF0000 - 00000000000000000000000000000000000000000000000000FFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF000000FF000000FF0000 - 00FF0000000000000000000000000000000000000000000000FFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000 - 00FF0000000000000000000000000000000000000000000000FFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000 - 00FF0000000000000000000000000000000000000000000000FFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000 - 00FF0000000000000000000000000000000000000000000000FFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000 - 00FF0000000000000000000000000000000000000000000000FFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000 - 00FF0000000000000000000000000000000000000000000000FFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000 - 00FF0000000000000000000000000000000000000000000000FFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000 - 00FF0000000000000000000000000000000000000000000000FFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000 - 00FF0000000000000000000000000000000000000000000000FF000000FF0000 - 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 - 00FF000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000FF000000FF000000FF0000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000FF0000000000000000000000000000 - 00FF00000000000000FF00000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000FF000000FF0000000000000000000000FF000000FF000000FF0000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00FF000000FF000000FF00000000000000FF00FFFFFFFFFFFFFF00FFFFFF0000 - 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000000000 - 0000000000000000000000000000000000FFFFFFFFFF00FFFFFFFFFFFFFF00FF - FFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF000000FF000000000000 - 0000000000000000000000000000000000FF00FFFFFFFFFFFFFF00FFFFFFFFFF - FFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFF000000FF000000000000 - 0000000000000000000000000000000000FFFFFFFFFF00FFFFFFFFFFFFFF00FF - FFFF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 - 00FF000000FF000000FF000000FF000000FF00FFFFFFFFFFFFFF00FFFFFF0000 - 00FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF0084 - 84FF008484FF000000FF00000000000000FFFFFFFFFF00FFFFFF000000FF0084 - 84FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF0084 - 84FF000000FF0000000000000000000000FF00FFFFFF000000FF008484FF0084 - 84FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF0000 - 00FF000000000000000000000000000000FF000000FF008484FF008484FF0084 - 84FF008484FF008484FF008484FF008484FF008484FF008484FF000000FF0000 - 0000000000000000000000000000000000FF000000FF000000FF000000FF0000 - 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000FF000000FF000000FF0000 - 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 - 00FF000000FF000000FF0000000000000000000000FF008484FF000000FFC6C6 - C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF0000 - 00FFC6C6C6FF000000FF0000000000000000000000FF008484FF000000FFC6C6 - C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF0000 - 00FF000000FF000000FF0000000000000000000000FF008484FF000000FFC6C6 - C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF0000 - 00FF008484FF000000FF0000000000000000000000FF008484FF000000FFC6C6 - C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF0000 - 00FF008484FF000000FF0000000000000000000000FF008484FF000000FFC6C6 - C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF0000 - 00FF008484FF000000FF0000000000000000000000FF008484FF000000FFC6C6 - C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF0000 - 00FF008484FF000000FF0000000000000000000000FF008484FF008484FF0000 - 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0084 - 84FF008484FF000000FF0000000000000000000000FF008484FF008484FF0084 - 84FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF0084 - 84FF008484FF000000FF0000000000000000000000FF008484FF008484FF0000 - 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 - 00FF008484FF000000FF0000000000000000000000FF008484FF008484FF0000 - 00FF000000FF000000FF000000FF000000FF000000FFC6C6C6FFC6C6C6FF0000 - 00FF008484FF000000FF0000000000000000000000FF008484FF008484FF0000 - 00FF000000FF000000FF000000FF000000FF000000FFC6C6C6FFC6C6C6FF0000 - 00FF008484FF000000FF0000000000000000000000FF008484FF008484FF0000 - 00FF000000FF000000FF000000FF000000FF000000FFC6C6C6FFC6C6C6FF0000 - 00FF008484FF000000FF000000000000000000000000000000FF000000FF0000 - 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 - 00FF000000FF000000FF00000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000FF000000FF000000FF000000FF0000 - 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 - 0000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF000000FF00000000000000000000 - 0000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFC6C6C6FF000000FF000000000000 - 0000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF000000FF000000FF000000FF0000 - 0000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000 - 0000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF000000FF000000FF000000FF0000 - 0000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFF000000FF848484FFC6C6C6FFC6C6C6FF848484FF0000 - 00FF000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFF000000FF848484FFFFFF00FFFFFF00FFC6C6C6FF848484FF8484 - 84FF000000FF0000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFF000000FFC6C6C6FFFFFF00FFC6C6C6FFC6C6C6FF848484FFC6C6 - C6FF000000FF0000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF848484FFC6C6 - C6FF000000FF0000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFF000000FF848484FFC6C6C6FFC6C6C6FFFFFF00FF848484FF8484 - 84FF000000FF0000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFF000000FF848484FFC6C6C6FFC6C6C6FF848484FF0000 - 00FF000000FF0000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF000000FF000000FF000000FF0000 - 00FF000000FF000000FF00000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000 - 0000000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 - 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 - 000000000000000000FF000000FF000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000FF000000FF000000FF000000FF000000FF0000 - 00FF00000000840000FF840000FF000000000000000000000000000000000000 - 000000000000000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6 - C6FF000000FF840000FF840000FF000000000000000000000000000000000000 - 0000000000FFC6C6C6FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6 - C6FFC6C6C6FF840000FF840000FF000000FF000000FF000000FF000000FF0000 - 00FFC6C6C6FF000000FFC6C6C6FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6 - C6FFC6C6C6FF840000FF840000FF000000FFFFFFFFFFFFFFFFFF000000FFC6C6 - C6FF000000FFC6C6C6FF000000FFC6C6C6FF000000FFC6C6C6FFC6C6C6FFC6C6 - C6FF000000FF840000FF840000FF000000FFFFFFFFFF000000FFC6C6C6FF0000 - 00FFFFFFFFFF000000FFC6C6C6FF000000FFC6C6C6FF000000FF000000FF0000 - 00FF00000000840000FF840000FF000000FFFFFFFFFF000000FF000000FFFFFF - FFFFFFFFFFFFFFFFFFFF000000FFC6C6C6FF000000FFFFFFFFFF000000FF0000 - 0000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF000000FF0000 - 0000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000 - 0000000000000000000000000000000000FFFFFFFFFF000000FF000000FFFFFF - FFFF000000FF000000FF000000FF000000FF000000FFFFFFFFFF000000FF0000 - 0000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000 - 0000000000000000000000000000000000FFFFFFFFFF000000FF000000FFFFFF - FFFF000000FF000000FF000000FF000000FF000000FFFFFFFFFF000000FF0000 - 0000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000 - 0000000000000000000000000000000000FF000000FF000000FF000000FF0000 - 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000FF0000000000000000000000000000 - 000000000000000000000000000000000000840000FF840000FF840000FF8400 - 00FF840000FF0000000000000000000000FF000000FF00000000000000000000 - 0000000000000000000000000000840000FF840000FF840000FF840000FF8400 - 00FF840000FF840000FF00000000000000FF000000FF000000FF000000000000 - 00000000000000000000840000FF840000FF840000FF00000000000000000000 - 0000840000FF840000FF840000FF000000FF000000FF000000FF000000FF0000 - 00000000000000000000840000FF840000FF840000FF00000000000000000000 - 0000840000FF840000FF840000FF000000FF000000FF000000FF000000FF0000 - 00FF0000000000000000840000FF840000FF840000FF00000000000000000000 - 0000840000FF840000FF840000FF000000FF000000FF000000FF000000FF0000 - 00FF000000FF0000000000000000000000000000000000000000000000008400 - 00FF840000FF840000FF00000000000000FF000000FF000000FF000000FF0000 - 00FF000000FF000000FF00000000000000000000000000000000840000FF8400 - 00FF840000FF0000000000000000000000FF000000FF000000FF000000FF0000 - 00FF000000FF000000FF000000FF0000000000000000840000FF840000FF8400 - 00FF000000000000000000000000000000FF000000FF000000FF000000FF0000 - 00FF0000000000000000000000000000000000000000840000FF840000FF8400 - 00FF000000000000000000000000000000FF000000FF00000000000000FF0000 - 00FF000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000FF0000000000000000000000000000 - 00FF000000FF00000000000000000000000000000000840000FF840000FF8400 - 00FF000000000000000000000000000000000000000000000000000000000000 - 00FF000000FF00000000000000000000000000000000840000FF840000FF8400 - 00FF000000000000000000000000000000000000000000000000000000000000 - 0000000000FF000000FF00000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000FF000000FF00000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00FF000000FF000000FF000000FF000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000000000FF000000FFC6C6 - C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF000000FF00000000000000000000 - 000000000000000000000000000000000000000000FF848484FFFFFFFFFFFFFF - FFFFFFFFFFFFC6C6C6FFC6C6C6FFC6C6C6FF848484FF000000FF000000000000 - 000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFF - 00FFFFFF00FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF000000000000 - 0000000000000000000000000000000000FFC6C6C6FFFFFFFFFFFFFF00FFC6C6 - C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF0000 - 0000000000000000000000000000000000FFC6C6C6FFFFFFFFFFFFFF00FFC6C6 - C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF0000 - 0000000000000000000000000000000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6 - C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF0000 - 0000000000000000000000000000000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6 - C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF0000 - 000000000000000000000000000000000000000000FFC6C6C6FFC6C6C6FFC6C6 - C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFFFFFFFFF000000FF000000000000 - 000000000000000000000000000000000000000000FF848484FFC6C6C6FFC6C6 - C6FFC6C6C6FFC6C6C6FFC6C6C6FFFFFFFFFF848484FF000000FF000000000000 - 00000000000000000000000000000000000000000000000000FF000000FFC6C6 - C6FFC6C6C6FFC6C6C6FFFFFFFFFF848484FF840000FF840000FF840000FF0000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00FF000000FF000000FF000000FF840000FFC6C6C6FF840000FF840000FF8400 - 00FF000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000840000FFC6C6C6FF840000FF8400 - 00FF840000FF0000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000840000FFC6C6C6FF8400 - 00FF840000FF840000FF00000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000840000FFC6C6 - C6FF840000FF840000FF00000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000008400 - 00FF840000FF0000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 84FF000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 84FF000084FF0000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000000084FF000084FF0000 - 84FF000084FF000084FF00000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000084FF00000000000000000000 - 84FF000084FF0000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000084FF00000000000000000000 - 84FF0000000000000000000000000000000000000000000000FF000000FF0000 - 00FF000000FF000000000000000000000000000084FF00000000000000000000 - 000000000000000000000000000000000000000000FF848484FFC6C6C6FFC6C6 - C6FF848484FF000000FF00000000000000000000000000000000000000000000 - 00000000000000000000000084FF000000FF848484FFFFFFFFFFFFFFFFFFC6C6 - C6FFC6C6C6FF848484FF000000FF000000000000000000000000000000000000 - 84FF0000000000000000000084FF000000FFC6C6C6FFFFFFFFFFFFFF00FFC6C6 - C6FFC6C6C6FFC6C6C6FF000000FF000000000000000000000000000084FF0000 - 84FF0000000000000000000084FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6 - C6FFC6C6C6FFFFFFFFFF000000FF0000000000000000000084FF000084FF0000 - 84FF000084FF000084FF00000000000000FF848484FFC6C6C6FFC6C6C6FFC6C6 - C6FFFFFFFFFF848484FF000000FF000000000000000000000000000084FF0000 - 84FF00000000000000000000000000000000000000FF848484FFC6C6C6FFFFFF - FFFF848484FF000000FF840000FF000000000000000000000000000000000000 - 84FF0000000000000000000000000000000000000000000000FF000000FF0000 - 00FF000000FF840000FF840000FF840000FF0000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000840000FF840000FF840000FF00000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000840000FF840000FF00000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 - 00FF000000FF0000000000000000000000000000000000000000000000000000 - 00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFF000000FF0000000000000000000000000000000000000000000000000000 - 00FFFFFFFFFF000000FF000000FF000000FF000000FF000000FFFFFFFFFF0000 - 00FF000000000000000000000000000000000000000000000000000000FFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000 - 00FF000000000000000000000000000000000000000000000000000000FFFFFF - FFFF000000FF000000FF000000FF000000FF000000FFFFFFFFFF000000FF0000 - 00FF000000FF000000FF000000000000000000000000000000FFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFC6C6 - C6FF000000FFC6C6C6FF000000FF00000000000000FF000000FF000000FF0000 - 00FF000000FF000000FF000000FF000000FF000000FF000000FFC6C6C6FF0000 - 00FFC6C6C6FF000000FF000000FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6 - C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FFC6C6 - C6FF000000FFC6C6C6FF000000FF000000FF000000FF000000FF000000FF0000 - 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 - 00FFC6C6C6FFC6C6C6FF000000FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6 - C6FFC6C6C6FFC6C6C6FF848484FF848484FF848484FFC6C6C6FFC6C6C6FF0000 - 00FFC6C6C6FF000000FF00000000000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6 - C6FFC6C6C6FFC6C6C6FF00FFFFFF00FFFFFF00FFFFFFC6C6C6FFC6C6C6FF0000 - 00FF000000FF000000FF00000000000000FF000000FF000000FF000000FF0000 - 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 - 00FFC6C6C6FF000000FF0000000000000000000000FFC6C6C6FFC6C6C6FFC6C6 - C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FFC6C6 - C6FF000000FF00000000000000000000000000000000000000FF000000FF0000 - 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 - 00FF000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000848484FF848484FF848484FF8484 - 84FF848484FF848484FF848484FF848484FF848484FF848484FF848484FF8484 - 84FF848484FF000000000000000000000000848484FF000000FF00FFFFFFFFFF - FFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFF0000 - 00FF848484FF000000FF0000000000000000848484FF00FFFFFF000000FF00FF - FFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFFFF000000FF00FF - FFFF848484FF000000FF0000000000000000848484FFFFFFFFFF00FFFFFF0000 - 00FF00FFFFFF0000000000FFFFFF0000000000FFFFFF000000FF00FFFFFF0000 - 0000848484FF000000FF0000000000000000848484FF00FFFFFF0000000000FF - FFFF000000FF00FFFFFF0000000000FFFFFF000000FF00FFFFFF0000000000FF - FFFF848484FF000000FF0000000000000000848484FFFFFFFFFF00FFFFFF0000 - 00FF00FFFFFF000000FF00FFFFFF000000FF00FFFFFF000000FF00FFFFFF0000 - 0000848484FF000000FF0000000000000000848484FF00FFFFFF000000FF00FF - FFFF0000000000FFFFFF000000FF00FFFFFF0000000000FFFFFF000000FF00FF - FFFF848484FF000000FF0000000000000000848484FF000000FF00FFFFFF0000 - 000000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFFFF0000 - 00FF848484FF000000FF0000000000000000848484FF00FFFFFF0000000000FF - FFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000FF - FFFF848484FF000000FF0000000000000000848484FF848484FF848484FF8484 - 84FF848484FF848484FF848484FF848484FF848484FF848484FF848484FF8484 - 84FF848484FF000000FF000000000000000000000000000000FF000000FF0000 - 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 - 00FF000000FF000000FF00000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006E9DD5FF6C9B - D3FF699AD2FF6697CFFF6395CDFF6093CBFF5C90C8FF598EC6FF558BC3FF5188 - C0FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006B9BD3FFAED4 - E8FFABD3E8FFAAD1E7FFA8CFE5FFA5CDE4FFA2CBE4FFA0C9E2FF9DC7E1FF4B84 - BCFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006798D0FFABD1 - E7FF90C2DFFF8DC0DEFF8ABEDCFF87BBDBFF83B8DAFF80B6D8FF99C4E0FF4580 - B8FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006395CDFFA8CF - E5FF8CBFDDFF88BDDCFF85BADBFF81B7D9FF7EB4D7FF7AB2D6FF94C1DDFF3F7C - B4FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005E91C9FFA4CC - E4FF87BBDBFF84B9DAFF80B6D8FF7CB3D7FF79B0D5FF74ADD4FF8FBDDCFF3977 - AFFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00598EC6FFA0C9 - E3FF82B8D9FF7EB5D8FF7AB2D6FF77AFD5FF73ACD3FF6DABD4FF8CBADAFF3373 - ABFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00538AC2FF9CC6 - E1FF7CB3D7FF79B1D5FF75ADD4FF71ABD2FF5FBAE4FF4BD4FFFF7CBBE0FF2E6F - A7FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004E86BEFF98C3 - DFFF77AFD5FF73ACD3FF6FA9D2FF6BA7D0FF5BB7E3FF54C2EDFF81B4D7FF286B - A3FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004882BAFF93C0 - DDFF71ABD2FF6DA8D1FF69A5CFFF66A2CEFF629FCCFF5E9CCBFF7FB0D5FF2367 - 9FFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00427DB5FF8FBD - DCFF6CA7D0FF67A4CFFF64A1CDFF609ECCFF5C9BCAFF5999C9FF7BADD4FF1E64 - 9CFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003C79B1FF8BB9 - DAFF66A2CEFF62A0CDFF5F9DCBFF5B9AC9FF5897C8FF5495C7FF77ABD3FF1960 - 98FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003675ADFF86B6 - D8FF83B3D7FF81B2D6FF7DAFD5FF7BADD4FF79ABD3FF76AAD2FF74A8D1FF155D - 95FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00B7B7B7FFAEAEAEFF3071A9FF2C6E - A6FF286BA3FF2468A0FF21669EFF1D639BFF1A6199FF175F97FF145C94FF115B - 93FF6C6C6CFF6C6C6CFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00 - } - end -end diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm3/Lfm3_expected.json b/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm3/Lfm3_expected.json deleted file mode 100644 index d97f3868c..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm3/Lfm3_expected.json +++ /dev/null @@ -1 +0,0 @@ -[{"Type":"object","Value":"object","Line":1,"Column":1},{"Type":"identifier","Value":"FrmVecFontEditMain","Line":1,"Column":8},{"Type":"colon","Value":":","Line":1,"Column":26},{"Type":"identifier","Value":"TFrmVecFontEditMain","Line":1,"Column":28},{"Type":"identifier","Value":"Left","Line":2,"Column":3},{"Type":"equals","Value":"=","Line":2,"Column":8},{"Type":"number","Value":"444","Line":2,"Column":10},{"Type":"identifier","Value":"Height","Line":3,"Column":3},{"Type":"equals","Value":"=","Line":3,"Column":10},{"Type":"number","Value":"669","Line":3,"Column":12},{"Type":"identifier","Value":"Top","Line":4,"Column":3},{"Type":"equals","Value":"=","Line":4,"Column":7},{"Type":"number","Value":"147","Line":4,"Column":9},{"Type":"identifier","Value":"Width","Line":5,"Column":3},{"Type":"equals","Value":"=","Line":5,"Column":9},{"Type":"number","Value":"936","Line":5,"Column":11},{"Type":"identifier","Value":"ActiveControl","Line":6,"Column":3},{"Type":"equals","Value":"=","Line":6,"Column":17},{"Type":"identifier","Value":"DrawGrid1","Line":6,"Column":19},{"Type":"identifier","Value":"Caption","Line":7,"Column":3},{"Type":"equals","Value":"=","Line":7,"Column":11},{"Type":"string","Value":"FrmVecFontEditMain","Line":7,"Column":13},{"Type":"identifier","Value":"ClientHeight","Line":8,"Column":3},{"Type":"equals","Value":"=","Line":8,"Column":16},{"Type":"number","Value":"669","Line":8,"Column":18},{"Type":"identifier","Value":"ClientWidth","Line":9,"Column":3},{"Type":"equals","Value":"=","Line":9,"Column":15},{"Type":"number","Value":"936","Line":9,"Column":17},{"Type":"identifier","Value":"Menu","Line":10,"Column":3},{"Type":"equals","Value":"=","Line":10,"Column":8},{"Type":"identifier","Value":"MainMenu1","Line":10,"Column":10},{"Type":"identifier","Value":"OnCreate","Line":11,"Column":3},{"Type":"equals","Value":"=","Line":11,"Column":12},{"Type":"identifier","Value":"FormCreate","Line":11,"Column":14},{"Type":"identifier","Value":"OnDestroy","Line":12,"Column":3},{"Type":"equals","Value":"=","Line":12,"Column":13},{"Type":"identifier","Value":"FormDestroy","Line":12,"Column":15},{"Type":"identifier","Value":"ShowHint","Line":13,"Column":3},{"Type":"equals","Value":"=","Line":13,"Column":12},{"Type":"boolean","Value":"True","Line":13,"Column":14},{"Type":"identifier","Value":"ShowInTaskBar","Line":14,"Column":3},{"Type":"equals","Value":"=","Line":14,"Column":17},{"Type":"identifier","Value":"stAlways","Line":14,"Column":19},{"Type":"identifier","Value":"LCLVersion","Line":15,"Column":3},{"Type":"equals","Value":"=","Line":15,"Column":14},{"Type":"string","Value":"1.6.0.4","Line":15,"Column":16},{"Type":"identifier","Value":"Visible","Line":16,"Column":3},{"Type":"equals","Value":"=","Line":16,"Column":11},{"Type":"boolean","Value":"False","Line":16,"Column":13},{"Type":"object","Value":"object","Line":17,"Column":3},{"Type":"identifier","Value":"StatusBar1","Line":17,"Column":10},{"Type":"colon","Value":":","Line":17,"Column":20},{"Type":"identifier","Value":"TStatusBar","Line":17,"Column":22},{"Type":"identifier","Value":"Left","Line":18,"Column":5},{"Type":"equals","Value":"=","Line":18,"Column":10},{"Type":"number","Value":"0","Line":18,"Column":12},{"Type":"identifier","Value":"Height","Line":19,"Column":5},{"Type":"equals","Value":"=","Line":19,"Column":12},{"Type":"number","Value":"23","Line":19,"Column":14},{"Type":"identifier","Value":"Top","Line":20,"Column":5},{"Type":"equals","Value":"=","Line":20,"Column":9},{"Type":"number","Value":"626","Line":20,"Column":11},{"Type":"identifier","Value":"Width","Line":21,"Column":5},{"Type":"equals","Value":"=","Line":21,"Column":11},{"Type":"number","Value":"936","Line":21,"Column":13},{"Type":"identifier","Value":"Panels","Line":22,"Column":5},{"Type":"equals","Value":"=","Line":22,"Column":12},{"Type":"langle","Value":"\u003C","Line":22,"Column":14},{"Type":"identifier","Value":"item","Line":23,"Column":7},{"Type":"identifier","Value":"Width","Line":24,"Column":9},{"Type":"equals","Value":"=","Line":24,"Column":15},{"Type":"number","Value":"50","Line":24,"Column":17},{"Type":"end","Value":"end","Line":25,"Column":7},{"Type":"identifier","Value":"item","Line":26,"Column":7},{"Type":"identifier","Value":"Width","Line":27,"Column":9},{"Type":"equals","Value":"=","Line":27,"Column":15},{"Type":"number","Value":"80","Line":27,"Column":17},{"Type":"end","Value":"end","Line":28,"Column":7},{"Type":"identifier","Value":"item","Line":29,"Column":7},{"Type":"identifier","Value":"Width","Line":30,"Column":9},{"Type":"equals","Value":"=","Line":30,"Column":15},{"Type":"number","Value":"50","Line":30,"Column":17},{"Type":"end","Value":"end","Line":31,"Column":7},{"Type":"identifier","Value":"item","Line":32,"Column":7},{"Type":"identifier","Value":"Width","Line":33,"Column":9},{"Type":"equals","Value":"=","Line":33,"Column":15},{"Type":"number","Value":"50","Line":33,"Column":17},{"Type":"end","Value":"end","Line":34,"Column":7},{"Type":"rangle","Value":"\u003E","Line":34,"Column":10},{"Type":"identifier","Value":"SimplePanel","Line":35,"Column":5},{"Type":"equals","Value":"=","Line":35,"Column":17},{"Type":"boolean","Value":"False","Line":35,"Column":19},{"Type":"end","Value":"end","Line":36,"Column":3},{"Type":"object","Value":"object","Line":37,"Column":3},{"Type":"identifier","Value":"ToolBar1","Line":37,"Column":10},{"Type":"colon","Value":":","Line":37,"Column":18},{"Type":"identifier","Value":"TToolBar","Line":37,"Column":20},{"Type":"identifier","Value":"Left","Line":38,"Column":5},{"Type":"equals","Value":"=","Line":38,"Column":10},{"Type":"number","Value":"0","Line":38,"Column":12},{"Type":"identifier","Value":"Height","Line":39,"Column":5},{"Type":"equals","Value":"=","Line":39,"Column":12},{"Type":"number","Value":"26","Line":39,"Column":14},{"Type":"identifier","Value":"Top","Line":40,"Column":5},{"Type":"equals","Value":"=","Line":40,"Column":9},{"Type":"number","Value":"0","Line":40,"Column":11},{"Type":"identifier","Value":"Width","Line":41,"Column":5},{"Type":"equals","Value":"=","Line":41,"Column":11},{"Type":"number","Value":"936","Line":41,"Column":13},{"Type":"identifier","Value":"Caption","Line":42,"Column":5},{"Type":"equals","Value":"=","Line":42,"Column":13},{"Type":"string","Value":"ToolBar1","Line":42,"Column":15},{"Type":"identifier","Value":"Images","Line":43,"Column":5},{"Type":"equals","Value":"=","Line":43,"Column":12},{"Type":"identifier","Value":"ImageList1","Line":43,"Column":14},{"Type":"identifier","Value":"TabOrder","Line":44,"Column":5},{"Type":"equals","Value":"=","Line":44,"Column":14},{"Type":"number","Value":"1","Line":44,"Column":16},{"Type":"object","Value":"object","Line":45,"Column":5},{"Type":"identifier","Value":"lbl_Version","Line":45,"Column":12},{"Type":"colon","Value":":","Line":45,"Column":23},{"Type":"identifier","Value":"TLabel","Line":45,"Column":25},{"Type":"identifier","Value":"Left","Line":46,"Column":7},{"Type":"equals","Value":"=","Line":46,"Column":12},{"Type":"number","Value":"900","Line":46,"Column":14},{"Type":"identifier","Value":"Height","Line":47,"Column":7},{"Type":"equals","Value":"=","Line":47,"Column":14},{"Type":"number","Value":"24","Line":47,"Column":16},{"Type":"identifier","Value":"Top","Line":48,"Column":7},{"Type":"equals","Value":"=","Line":48,"Column":11},{"Type":"number","Value":"2","Line":48,"Column":13},{"Type":"identifier","Value":"Width","Line":49,"Column":7},{"Type":"equals","Value":"=","Line":49,"Column":13},{"Type":"number","Value":"36","Line":49,"Column":15},{"Type":"identifier","Value":"Align","Line":50,"Column":7},{"Type":"equals","Value":"=","Line":50,"Column":13},{"Type":"identifier","Value":"alRight","Line":50,"Column":15},{"Type":"identifier","Value":"Caption","Line":51,"Column":7},{"Type":"equals","Value":"=","Line":51,"Column":15},{"Type":"string","Value":"lbl_Version","Line":51,"Column":17},{"Type":"identifier","Value":"Font","Line":52,"Column":7},{"Type":"dot","Value":".","Line":52,"Column":11},{"Type":"identifier","Value":"Height","Line":52,"Column":12},{"Type":"equals","Value":"=","Line":52,"Column":19},{"Type":"minus","Value":"-","Line":52,"Column":21},{"Type":"number","Value":"7","Line":52,"Column":22},{"Type":"identifier","Value":"Font","Line":53,"Column":7},{"Type":"dot","Value":".","Line":53,"Column":11},{"Type":"identifier","Value":"Name","Line":53,"Column":12},{"Type":"equals","Value":"=","Line":53,"Column":17},{"Type":"string","Value":"Small Fonts","Line":53,"Column":19},{"Type":"identifier","Value":"ParentColor","Line":54,"Column":7},{"Type":"equals","Value":"=","Line":54,"Column":19},{"Type":"boolean","Value":"False","Line":54,"Column":21},{"Type":"identifier","Value":"ParentFont","Line":55,"Column":7},{"Type":"equals","Value":"=","Line":55,"Column":18},{"Type":"boolean","Value":"False","Line":55,"Column":20},{"Type":"identifier","Value":"OnClick","Line":56,"Column":7},{"Type":"equals","Value":"=","Line":56,"Column":15},{"Type":"identifier","Value":"lbl_VersionClick","Line":56,"Column":17},{"Type":"end","Value":"end","Line":57,"Column":5},{"Type":"object","Value":"object","Line":58,"Column":5},{"Type":"identifier","Value":"ToolButton1","Line":58,"Column":12},{"Type":"colon","Value":":","Line":58,"Column":23},{"Type":"identifier","Value":"TToolButton","Line":58,"Column":25},{"Type":"identifier","Value":"Left","Line":59,"Column":7},{"Type":"equals","Value":"=","Line":59,"Column":12},{"Type":"number","Value":"1","Line":59,"Column":14},{"Type":"identifier","Value":"Top","Line":60,"Column":7},{"Type":"equals","Value":"=","Line":60,"Column":11},{"Type":"number","Value":"2","Line":60,"Column":13},{"Type":"identifier","Value":"Action","Line":61,"Column":7},{"Type":"equals","Value":"=","Line":61,"Column":14},{"Type":"identifier","Value":"actFileNew","Line":61,"Column":16},{"Type":"end","Value":"end","Line":62,"Column":5},{"Type":"object","Value":"object","Line":63,"Column":5},{"Type":"identifier","Value":"ToolButton2","Line":63,"Column":12},{"Type":"colon","Value":":","Line":63,"Column":23},{"Type":"identifier","Value":"TToolButton","Line":63,"Column":25},{"Type":"identifier","Value":"Left","Line":64,"Column":7},{"Type":"equals","Value":"=","Line":64,"Column":12},{"Type":"number","Value":"24","Line":64,"Column":14},{"Type":"identifier","Value":"Top","Line":65,"Column":7},{"Type":"equals","Value":"=","Line":65,"Column":11},{"Type":"number","Value":"2","Line":65,"Column":13},{"Type":"identifier","Value":"Action","Line":66,"Column":7},{"Type":"equals","Value":"=","Line":66,"Column":14},{"Type":"identifier","Value":"FileOpen1","Line":66,"Column":16},{"Type":"end","Value":"end","Line":67,"Column":5},{"Type":"object","Value":"object","Line":68,"Column":5},{"Type":"identifier","Value":"ToolButton3","Line":68,"Column":12},{"Type":"colon","Value":":","Line":68,"Column":23},{"Type":"identifier","Value":"TToolButton","Line":68,"Column":25},{"Type":"identifier","Value":"Left","Line":69,"Column":7},{"Type":"equals","Value":"=","Line":69,"Column":12},{"Type":"number","Value":"47","Line":69,"Column":14},{"Type":"identifier","Value":"Top","Line":70,"Column":7},{"Type":"equals","Value":"=","Line":70,"Column":11},{"Type":"number","Value":"2","Line":70,"Column":13},{"Type":"identifier","Value":"Action","Line":71,"Column":7},{"Type":"equals","Value":"=","Line":71,"Column":14},{"Type":"identifier","Value":"actFileSave","Line":71,"Column":16},{"Type":"end","Value":"end","Line":72,"Column":5},{"Type":"object","Value":"object","Line":73,"Column":5},{"Type":"identifier","Value":"ToolButton4","Line":73,"Column":12},{"Type":"colon","Value":":","Line":73,"Column":23},{"Type":"identifier","Value":"TToolButton","Line":73,"Column":25},{"Type":"identifier","Value":"Left","Line":74,"Column":7},{"Type":"equals","Value":"=","Line":74,"Column":12},{"Type":"number","Value":"70","Line":74,"Column":14},{"Type":"identifier","Value":"Height","Line":75,"Column":7},{"Type":"equals","Value":"=","Line":75,"Column":14},{"Type":"number","Value":"22","Line":75,"Column":16},{"Type":"identifier","Value":"Top","Line":76,"Column":7},{"Type":"equals","Value":"=","Line":76,"Column":11},{"Type":"number","Value":"2","Line":76,"Column":13},{"Type":"identifier","Value":"Width","Line":77,"Column":7},{"Type":"equals","Value":"=","Line":77,"Column":13},{"Type":"number","Value":"5","Line":77,"Column":15},{"Type":"identifier","Value":"Caption","Line":78,"Column":7},{"Type":"equals","Value":"=","Line":78,"Column":15},{"Type":"string","Value":"ToolButton4","Line":78,"Column":17},{"Type":"identifier","Value":"Style","Line":79,"Column":7},{"Type":"equals","Value":"=","Line":79,"Column":13},{"Type":"identifier","Value":"tbsDivider","Line":79,"Column":15},{"Type":"end","Value":"end","Line":80,"Column":5},{"Type":"object","Value":"object","Line":81,"Column":5},{"Type":"identifier","Value":"ToolButton5","Line":81,"Column":12},{"Type":"colon","Value":":","Line":81,"Column":23},{"Type":"identifier","Value":"TToolButton","Line":81,"Column":25},{"Type":"identifier","Value":"Left","Line":82,"Column":7},{"Type":"equals","Value":"=","Line":82,"Column":12},{"Type":"number","Value":"75","Line":82,"Column":14},{"Type":"identifier","Value":"Top","Line":83,"Column":7},{"Type":"equals","Value":"=","Line":83,"Column":11},{"Type":"number","Value":"2","Line":83,"Column":13},{"Type":"identifier","Value":"Action","Line":84,"Column":7},{"Type":"equals","Value":"=","Line":84,"Column":14},{"Type":"identifier","Value":"FileExit1","Line":84,"Column":16},{"Type":"end","Value":"end","Line":85,"Column":5},{"Type":"end","Value":"end","Line":86,"Column":3},{"Type":"object","Value":"object","Line":87,"Column":3},{"Type":"identifier","Value":"DrawGrid1","Line":87,"Column":10},{"Type":"colon","Value":":","Line":87,"Column":19},{"Type":"identifier","Value":"TDrawGrid","Line":87,"Column":21},{"Type":"identifier","Value":"Left","Line":88,"Column":5},{"Type":"equals","Value":"=","Line":88,"Column":10},{"Type":"number","Value":"224","Line":88,"Column":12},{"Type":"identifier","Value":"Height","Line":89,"Column":5},{"Type":"equals","Value":"=","Line":89,"Column":12},{"Type":"number","Value":"416","Line":89,"Column":14},{"Type":"identifier","Value":"Top","Line":90,"Column":5},{"Type":"equals","Value":"=","Line":90,"Column":9},{"Type":"number","Value":"72","Line":90,"Column":11},{"Type":"identifier","Value":"Width","Line":91,"Column":5},{"Type":"equals","Value":"=","Line":91,"Column":11},{"Type":"number","Value":"416","Line":91,"Column":13},{"Type":"identifier","Value":"ColCount","Line":92,"Column":5},{"Type":"equals","Value":"=","Line":92,"Column":14},{"Type":"number","Value":"17","Line":92,"Column":16},{"Type":"identifier","Value":"DefaultColWidth","Line":93,"Column":5},{"Type":"equals","Value":"=","Line":93,"Column":21},{"Type":"number","Value":"24","Line":93,"Column":23},{"Type":"identifier","Value":"DefaultRowHeight","Line":94,"Column":5},{"Type":"equals","Value":"=","Line":94,"Column":22},{"Type":"number","Value":"24","Line":94,"Column":24},{"Type":"identifier","Value":"ExtendedSelect","Line":95,"Column":5},{"Type":"equals","Value":"=","Line":95,"Column":20},{"Type":"boolean","Value":"False","Line":95,"Column":22},{"Type":"identifier","Value":"RowCount","Line":96,"Column":5},{"Type":"equals","Value":"=","Line":96,"Column":14},{"Type":"number","Value":"17","Line":96,"Column":16},{"Type":"identifier","Value":"TabOrder","Line":97,"Column":5},{"Type":"equals","Value":"=","Line":97,"Column":14},{"Type":"number","Value":"2","Line":97,"Column":16},{"Type":"identifier","Value":"OnClick","Line":98,"Column":5},{"Type":"equals","Value":"=","Line":98,"Column":13},{"Type":"identifier","Value":"DrawGrid1Click","Line":98,"Column":15},{"Type":"identifier","Value":"OnDrawCell","Line":99,"Column":5},{"Type":"equals","Value":"=","Line":99,"Column":16},{"Type":"identifier","Value":"DrawGrid1DrawCell","Line":99,"Column":18},{"Type":"end","Value":"end","Line":100,"Column":3},{"Type":"object","Value":"object","Line":101,"Column":3},{"Type":"identifier","Value":"LEd_TestText","Line":101,"Column":10},{"Type":"colon","Value":":","Line":101,"Column":22},{"Type":"identifier","Value":"TLabeledEdit","Line":101,"Column":24},{"Type":"identifier","Value":"Left","Line":102,"Column":5},{"Type":"equals","Value":"=","Line":102,"Column":10},{"Type":"number","Value":"224","Line":102,"Column":12},{"Type":"identifier","Value":"Height","Line":103,"Column":5},{"Type":"equals","Value":"=","Line":103,"Column":12},{"Type":"number","Value":"23","Line":103,"Column":14},{"Type":"identifier","Value":"Top","Line":104,"Column":5},{"Type":"equals","Value":"=","Line":104,"Column":9},{"Type":"number","Value":"44","Line":104,"Column":11},{"Type":"identifier","Value":"Width","Line":105,"Column":5},{"Type":"equals","Value":"=","Line":105,"Column":11},{"Type":"number","Value":"216","Line":105,"Column":13},{"Type":"identifier","Value":"EditLabel","Line":106,"Column":5},{"Type":"dot","Value":".","Line":106,"Column":14},{"Type":"identifier","Value":"AnchorSideLeft","Line":106,"Column":15},{"Type":"dot","Value":".","Line":106,"Column":29},{"Type":"identifier","Value":"Control","Line":106,"Column":30},{"Type":"equals","Value":"=","Line":106,"Column":38},{"Type":"identifier","Value":"LEd_TestText","Line":106,"Column":40},{"Type":"identifier","Value":"EditLabel","Line":107,"Column":5},{"Type":"dot","Value":".","Line":107,"Column":14},{"Type":"identifier","Value":"AnchorSideRight","Line":107,"Column":15},{"Type":"dot","Value":".","Line":107,"Column":30},{"Type":"identifier","Value":"Control","Line":107,"Column":31},{"Type":"equals","Value":"=","Line":107,"Column":39},{"Type":"identifier","Value":"LEd_TestText","Line":107,"Column":41},{"Type":"identifier","Value":"EditLabel","Line":108,"Column":5},{"Type":"dot","Value":".","Line":108,"Column":14},{"Type":"identifier","Value":"AnchorSideRight","Line":108,"Column":15},{"Type":"dot","Value":".","Line":108,"Column":30},{"Type":"identifier","Value":"Side","Line":108,"Column":31},{"Type":"equals","Value":"=","Line":108,"Column":36},{"Type":"identifier","Value":"asrBottom","Line":108,"Column":38},{"Type":"identifier","Value":"EditLabel","Line":109,"Column":5},{"Type":"dot","Value":".","Line":109,"Column":14},{"Type":"identifier","Value":"AnchorSideBottom","Line":109,"Column":15},{"Type":"dot","Value":".","Line":109,"Column":31},{"Type":"identifier","Value":"Control","Line":109,"Column":32},{"Type":"equals","Value":"=","Line":109,"Column":40},{"Type":"identifier","Value":"LEd_TestText","Line":109,"Column":42},{"Type":"identifier","Value":"EditLabel","Line":110,"Column":5},{"Type":"dot","Value":".","Line":110,"Column":14},{"Type":"identifier","Value":"Left","Line":110,"Column":15},{"Type":"equals","Value":"=","Line":110,"Column":20},{"Type":"number","Value":"224","Line":110,"Column":22},{"Type":"identifier","Value":"EditLabel","Line":111,"Column":5},{"Type":"dot","Value":".","Line":111,"Column":14},{"Type":"identifier","Value":"Height","Line":111,"Column":15},{"Type":"equals","Value":"=","Line":111,"Column":22},{"Type":"number","Value":"15","Line":111,"Column":24},{"Type":"identifier","Value":"EditLabel","Line":112,"Column":5},{"Type":"dot","Value":".","Line":112,"Column":14},{"Type":"identifier","Value":"Top","Line":112,"Column":15},{"Type":"equals","Value":"=","Line":112,"Column":19},{"Type":"number","Value":"26","Line":112,"Column":21},{"Type":"identifier","Value":"EditLabel","Line":113,"Column":5},{"Type":"dot","Value":".","Line":113,"Column":14},{"Type":"identifier","Value":"Width","Line":113,"Column":15},{"Type":"equals","Value":"=","Line":113,"Column":21},{"Type":"number","Value":"216","Line":113,"Column":23},{"Type":"identifier","Value":"EditLabel","Line":114,"Column":5},{"Type":"dot","Value":".","Line":114,"Column":14},{"Type":"identifier","Value":"Caption","Line":114,"Column":15},{"Type":"equals","Value":"=","Line":114,"Column":23},{"Type":"string","Value":"Testtext:","Line":114,"Column":25},{"Type":"identifier","Value":"EditLabel","Line":115,"Column":5},{"Type":"dot","Value":".","Line":115,"Column":14},{"Type":"identifier","Value":"ParentColor","Line":115,"Column":15},{"Type":"equals","Value":"=","Line":115,"Column":27},{"Type":"boolean","Value":"False","Line":115,"Column":29},{"Type":"identifier","Value":"TabOrder","Line":116,"Column":5},{"Type":"equals","Value":"=","Line":116,"Column":14},{"Type":"number","Value":"3","Line":116,"Column":16},{"Type":"identifier","Value":"Text","Line":117,"Column":5},{"Type":"equals","Value":"=","Line":117,"Column":10},{"Type":"string","Value":"The quick brown fox jumps over the lazy dog!","Line":117,"Column":12},{"Type":"identifier","Value":"OnChange","Line":118,"Column":5},{"Type":"equals","Value":"=","Line":118,"Column":14},{"Type":"identifier","Value":"SpeedButton1Click","Line":118,"Column":16},{"Type":"end","Value":"end","Line":119,"Column":3},{"Type":"object","Value":"object","Line":120,"Column":3},{"Type":"identifier","Value":"PaintBox1","Line":120,"Column":10},{"Type":"colon","Value":":","Line":120,"Column":19},{"Type":"identifier","Value":"TPaintBox","Line":120,"Column":21},{"Type":"identifier","Value":"Left","Line":121,"Column":5},{"Type":"equals","Value":"=","Line":121,"Column":10},{"Type":"number","Value":"462","Line":121,"Column":12},{"Type":"identifier","Value":"Height","Line":122,"Column":5},{"Type":"equals","Value":"=","Line":122,"Column":12},{"Type":"number","Value":"38","Line":122,"Column":14},{"Type":"identifier","Value":"Top","Line":123,"Column":5},{"Type":"equals","Value":"=","Line":123,"Column":9},{"Type":"number","Value":"30","Line":123,"Column":11},{"Type":"identifier","Value":"Width","Line":124,"Column":5},{"Type":"equals","Value":"=","Line":124,"Column":11},{"Type":"number","Value":"468","Line":124,"Column":13},{"Type":"end","Value":"end","Line":125,"Column":3},{"Type":"object","Value":"object","Line":126,"Column":3},{"Type":"identifier","Value":"SpeedButton1","Line":126,"Column":10},{"Type":"colon","Value":":","Line":126,"Column":22},{"Type":"identifier","Value":"TSpeedButton","Line":126,"Column":24},{"Type":"identifier","Value":"Left","Line":127,"Column":5},{"Type":"equals","Value":"=","Line":127,"Column":10},{"Type":"number","Value":"440","Line":127,"Column":12},{"Type":"identifier","Value":"Height","Line":128,"Column":5},{"Type":"equals","Value":"=","Line":128,"Column":12},{"Type":"number","Value":"30","Line":128,"Column":14},{"Type":"identifier","Value":"Top","Line":129,"Column":5},{"Type":"equals","Value":"=","Line":129,"Column":9},{"Type":"number","Value":"32","Line":129,"Column":11},{"Type":"identifier","Value":"Width","Line":130,"Column":5},{"Type":"equals","Value":"=","Line":130,"Column":11},{"Type":"number","Value":"23","Line":130,"Column":13},{"Type":"identifier","Value":"Caption","Line":131,"Column":5},{"Type":"equals","Value":"=","Line":131,"Column":13},{"Type":"string","Value":"\u003E","Line":131,"Column":15},{"Type":"identifier","Value":"OnClick","Line":132,"Column":5},{"Type":"equals","Value":"=","Line":132,"Column":13},{"Type":"identifier","Value":"SpeedButton1Click","Line":132,"Column":15},{"Type":"end","Value":"end","Line":133,"Column":3},{"Type":"object","Value":"object","Line":134,"Column":3},{"Type":"identifier","Value":"SpinEdit1","Line":134,"Column":10},{"Type":"colon","Value":":","Line":134,"Column":19},{"Type":"identifier","Value":"TSpinEdit","Line":134,"Column":21},{"Type":"identifier","Value":"Left","Line":135,"Column":5},{"Type":"equals","Value":"=","Line":135,"Column":10},{"Type":"number","Value":"169","Line":135,"Column":12},{"Type":"identifier","Value":"Height","Line":136,"Column":5},{"Type":"equals","Value":"=","Line":136,"Column":12},{"Type":"number","Value":"23","Line":136,"Column":14},{"Type":"identifier","Value":"Top","Line":137,"Column":5},{"Type":"equals","Value":"=","Line":137,"Column":9},{"Type":"number","Value":"44","Line":137,"Column":11},{"Type":"identifier","Value":"Width","Line":138,"Column":5},{"Type":"equals","Value":"=","Line":138,"Column":11},{"Type":"number","Value":"49","Line":138,"Column":13},{"Type":"identifier","Value":"MaxValue","Line":139,"Column":5},{"Type":"equals","Value":"=","Line":139,"Column":14},{"Type":"number","Value":"3","Line":139,"Column":16},{"Type":"identifier","Value":"MinValue","Line":140,"Column":5},{"Type":"equals","Value":"=","Line":140,"Column":14},{"Type":"number","Value":"1","Line":140,"Column":16},{"Type":"identifier","Value":"OnChange","Line":141,"Column":5},{"Type":"equals","Value":"=","Line":141,"Column":14},{"Type":"identifier","Value":"SpeedButton1Click","Line":141,"Column":16},{"Type":"identifier","Value":"TabOrder","Line":142,"Column":5},{"Type":"equals","Value":"=","Line":142,"Column":14},{"Type":"number","Value":"4","Line":142,"Column":16},{"Type":"identifier","Value":"Value","Line":143,"Column":5},{"Type":"equals","Value":"=","Line":143,"Column":11},{"Type":"number","Value":"2","Line":143,"Column":13},{"Type":"end","Value":"end","Line":144,"Column":3},{"Type":"object","Value":"object","Line":145,"Column":3},{"Type":"identifier","Value":"Label1","Line":145,"Column":10},{"Type":"colon","Value":":","Line":145,"Column":16},{"Type":"identifier","Value":"TLabel","Line":145,"Column":18},{"Type":"identifier","Value":"Left","Line":146,"Column":5},{"Type":"equals","Value":"=","Line":146,"Column":10},{"Type":"number","Value":"169","Line":146,"Column":12},{"Type":"identifier","Value":"Height","Line":147,"Column":5},{"Type":"equals","Value":"=","Line":147,"Column":12},{"Type":"number","Value":"15","Line":147,"Column":14},{"Type":"identifier","Value":"Top","Line":148,"Column":5},{"Type":"equals","Value":"=","Line":148,"Column":9},{"Type":"number","Value":"27","Line":148,"Column":11},{"Type":"identifier","Value":"Width","Line":149,"Column":5},{"Type":"equals","Value":"=","Line":149,"Column":11},{"Type":"number","Value":"23","Line":149,"Column":13},{"Type":"identifier","Value":"Caption","Line":150,"Column":5},{"Type":"equals","Value":"=","Line":150,"Column":13},{"Type":"string","Value":"Size:","Line":150,"Column":15},{"Type":"identifier","Value":"ParentColor","Line":151,"Column":5},{"Type":"equals","Value":"=","Line":151,"Column":17},{"Type":"boolean","Value":"False","Line":151,"Column":19},{"Type":"end","Value":"end","Line":152,"Column":3},{"Type":"object","Value":"object","Line":153,"Column":3},{"Type":"identifier","Value":"PaintBox2","Line":153,"Column":10},{"Type":"colon","Value":":","Line":153,"Column":19},{"Type":"identifier","Value":"TPaintBox","Line":153,"Column":21},{"Type":"identifier","Value":"Left","Line":154,"Column":5},{"Type":"equals","Value":"=","Line":154,"Column":10},{"Type":"number","Value":"649","Line":154,"Column":12},{"Type":"identifier","Value":"Height","Line":155,"Column":5},{"Type":"equals","Value":"=","Line":155,"Column":12},{"Type":"number","Value":"375","Line":155,"Column":14},{"Type":"identifier","Value":"Top","Line":156,"Column":5},{"Type":"equals","Value":"=","Line":156,"Column":9},{"Type":"number","Value":"112","Line":156,"Column":11},{"Type":"identifier","Value":"Width","Line":157,"Column":5},{"Type":"equals","Value":"=","Line":157,"Column":11},{"Type":"number","Value":"278","Line":157,"Column":13},{"Type":"identifier","Value":"OnMouseMove","Line":158,"Column":5},{"Type":"equals","Value":"=","Line":158,"Column":17},{"Type":"identifier","Value":"PaintBox2MouseMove","Line":158,"Column":19},{"Type":"identifier","Value":"OnPaint","Line":159,"Column":5},{"Type":"equals","Value":"=","Line":159,"Column":13},{"Type":"identifier","Value":"PaintBox2Paint","Line":159,"Column":15},{"Type":"end","Value":"end","Line":160,"Column":3},{"Type":"object","Value":"object","Line":161,"Column":3},{"Type":"identifier","Value":"Edit1","Line":161,"Column":10},{"Type":"colon","Value":":","Line":161,"Column":15},{"Type":"identifier","Value":"TEdit","Line":161,"Column":17},{"Type":"identifier","Value":"Left","Line":162,"Column":5},{"Type":"equals","Value":"=","Line":162,"Column":10},{"Type":"number","Value":"226","Line":162,"Column":12},{"Type":"identifier","Value":"Height","Line":163,"Column":5},{"Type":"equals","Value":"=","Line":163,"Column":12},{"Type":"number","Value":"23","Line":163,"Column":14},{"Type":"identifier","Value":"Top","Line":164,"Column":5},{"Type":"equals","Value":"=","Line":164,"Column":9},{"Type":"number","Value":"500","Line":164,"Column":11},{"Type":"identifier","Value":"Width","Line":165,"Column":5},{"Type":"equals","Value":"=","Line":165,"Column":11},{"Type":"number","Value":"664","Line":165,"Column":13},{"Type":"identifier","Value":"OnChange","Line":166,"Column":5},{"Type":"equals","Value":"=","Line":166,"Column":14},{"Type":"identifier","Value":"Edit1Change","Line":166,"Column":16},{"Type":"identifier","Value":"OnKeyPress","Line":167,"Column":5},{"Type":"equals","Value":"=","Line":167,"Column":16},{"Type":"identifier","Value":"Edit1KeyPress","Line":167,"Column":18},{"Type":"identifier","Value":"TabOrder","Line":168,"Column":5},{"Type":"equals","Value":"=","Line":168,"Column":14},{"Type":"number","Value":"5","Line":168,"Column":16},{"Type":"identifier","Value":"Text","Line":169,"Column":5},{"Type":"equals","Value":"=","Line":169,"Column":10},{"Type":"string","Value":"Edit1","Line":169,"Column":12},{"Type":"end","Value":"end","Line":170,"Column":3},{"Type":"object","Value":"object","Line":171,"Column":3},{"Type":"identifier","Value":"SpinEdit2","Line":171,"Column":10},{"Type":"colon","Value":":","Line":171,"Column":19},{"Type":"identifier","Value":"TSpinEdit","Line":171,"Column":21},{"Type":"identifier","Value":"Left","Line":172,"Column":5},{"Type":"equals","Value":"=","Line":172,"Column":10},{"Type":"number","Value":"649","Line":172,"Column":12},{"Type":"identifier","Value":"Height","Line":173,"Column":5},{"Type":"equals","Value":"=","Line":173,"Column":12},{"Type":"number","Value":"23","Line":173,"Column":14},{"Type":"identifier","Value":"Top","Line":174,"Column":5},{"Type":"equals","Value":"=","Line":174,"Column":9},{"Type":"number","Value":"88","Line":174,"Column":11},{"Type":"identifier","Value":"Width","Line":175,"Column":5},{"Type":"equals","Value":"=","Line":175,"Column":11},{"Type":"number","Value":"50","Line":175,"Column":13},{"Type":"identifier","Value":"TabOrder","Line":176,"Column":5},{"Type":"equals","Value":"=","Line":176,"Column":14},{"Type":"number","Value":"6","Line":176,"Column":16},{"Type":"identifier","Value":"Value","Line":177,"Column":5},{"Type":"equals","Value":"=","Line":177,"Column":11},{"Type":"number","Value":"3","Line":177,"Column":13},{"Type":"end","Value":"end","Line":178,"Column":3},{"Type":"object","Value":"object","Line":179,"Column":3},{"Type":"identifier","Value":"SpinEdit3","Line":179,"Column":10},{"Type":"colon","Value":":","Line":179,"Column":19},{"Type":"identifier","Value":"TSpinEdit","Line":179,"Column":21},{"Type":"identifier","Value":"Left","Line":180,"Column":5},{"Type":"equals","Value":"=","Line":180,"Column":10},{"Type":"number","Value":"707","Line":180,"Column":12},{"Type":"identifier","Value":"Height","Line":181,"Column":5},{"Type":"equals","Value":"=","Line":181,"Column":12},{"Type":"number","Value":"23","Line":181,"Column":14},{"Type":"identifier","Value":"Top","Line":182,"Column":5},{"Type":"equals","Value":"=","Line":182,"Column":9},{"Type":"number","Value":"88","Line":182,"Column":11},{"Type":"identifier","Value":"Width","Line":183,"Column":5},{"Type":"equals","Value":"=","Line":183,"Column":11},{"Type":"number","Value":"50","Line":183,"Column":13},{"Type":"identifier","Value":"TabOrder","Line":184,"Column":5},{"Type":"equals","Value":"=","Line":184,"Column":14},{"Type":"number","Value":"7","Line":184,"Column":16},{"Type":"identifier","Value":"Value","Line":185,"Column":5},{"Type":"equals","Value":"=","Line":185,"Column":11},{"Type":"number","Value":"8","Line":185,"Column":13},{"Type":"end","Value":"end","Line":186,"Column":3},{"Type":"object","Value":"object","Line":187,"Column":3},{"Type":"identifier","Value":"SpinEdit4","Line":187,"Column":10},{"Type":"colon","Value":":","Line":187,"Column":19},{"Type":"identifier","Value":"TSpinEdit","Line":187,"Column":21},{"Type":"identifier","Value":"Left","Line":188,"Column":5},{"Type":"equals","Value":"=","Line":188,"Column":10},{"Type":"number","Value":"764","Line":188,"Column":12},{"Type":"identifier","Value":"Height","Line":189,"Column":5},{"Type":"equals","Value":"=","Line":189,"Column":12},{"Type":"number","Value":"23","Line":189,"Column":14},{"Type":"identifier","Value":"Top","Line":190,"Column":5},{"Type":"equals","Value":"=","Line":190,"Column":9},{"Type":"number","Value":"87","Line":190,"Column":11},{"Type":"identifier","Value":"Width","Line":191,"Column":5},{"Type":"equals","Value":"=","Line":191,"Column":11},{"Type":"number","Value":"50","Line":191,"Column":13},{"Type":"identifier","Value":"TabOrder","Line":192,"Column":5},{"Type":"equals","Value":"=","Line":192,"Column":14},{"Type":"number","Value":"8","Line":192,"Column":16},{"Type":"identifier","Value":"Value","Line":193,"Column":5},{"Type":"equals","Value":"=","Line":193,"Column":11},{"Type":"number","Value":"11","Line":193,"Column":13},{"Type":"end","Value":"end","Line":194,"Column":3},{"Type":"object","Value":"object","Line":195,"Column":3},{"Type":"identifier","Value":"lbl_Middle","Line":195,"Column":10},{"Type":"colon","Value":":","Line":195,"Column":20},{"Type":"identifier","Value":"TLabel","Line":195,"Column":22},{"Type":"identifier","Value":"Left","Line":196,"Column":5},{"Type":"equals","Value":"=","Line":196,"Column":10},{"Type":"number","Value":"649","Line":196,"Column":12},{"Type":"identifier","Value":"Height","Line":197,"Column":5},{"Type":"equals","Value":"=","Line":197,"Column":12},{"Type":"number","Value":"15","Line":197,"Column":14},{"Type":"identifier","Value":"Top","Line":198,"Column":5},{"Type":"equals","Value":"=","Line":198,"Column":9},{"Type":"number","Value":"72","Line":198,"Column":11},{"Type":"identifier","Value":"Width","Line":199,"Column":5},{"Type":"equals","Value":"=","Line":199,"Column":11},{"Type":"number","Value":"40","Line":199,"Column":13},{"Type":"identifier","Value":"Caption","Line":200,"Column":5},{"Type":"equals","Value":"=","Line":200,"Column":13},{"Type":"string","Value":"Middle:","Line":200,"Column":15},{"Type":"identifier","Value":"ParentColor","Line":201,"Column":5},{"Type":"equals","Value":"=","Line":201,"Column":17},{"Type":"boolean","Value":"False","Line":201,"Column":19},{"Type":"end","Value":"end","Line":202,"Column":3},{"Type":"object","Value":"object","Line":203,"Column":3},{"Type":"identifier","Value":"Label3","Line":203,"Column":10},{"Type":"colon","Value":":","Line":203,"Column":16},{"Type":"identifier","Value":"TLabel","Line":203,"Column":18},{"Type":"identifier","Value":"Left","Line":204,"Column":5},{"Type":"equals","Value":"=","Line":204,"Column":10},{"Type":"number","Value":"707","Line":204,"Column":12},{"Type":"identifier","Value":"Height","Line":205,"Column":5},{"Type":"equals","Value":"=","Line":205,"Column":12},{"Type":"number","Value":"15","Line":205,"Column":14},{"Type":"identifier","Value":"Top","Line":206,"Column":5},{"Type":"equals","Value":"=","Line":206,"Column":9},{"Type":"number","Value":"72","Line":206,"Column":11},{"Type":"identifier","Value":"Width","Line":207,"Column":5},{"Type":"equals","Value":"=","Line":207,"Column":11},{"Type":"number","Value":"43","Line":207,"Column":13},{"Type":"identifier","Value":"Caption","Line":208,"Column":5},{"Type":"equals","Value":"=","Line":208,"Column":13},{"Type":"string","Value":"Bottom:","Line":208,"Column":15},{"Type":"identifier","Value":"ParentColor","Line":209,"Column":5},{"Type":"equals","Value":"=","Line":209,"Column":17},{"Type":"boolean","Value":"False","Line":209,"Column":19},{"Type":"end","Value":"end","Line":210,"Column":3},{"Type":"object","Value":"object","Line":211,"Column":3},{"Type":"identifier","Value":"Label4","Line":211,"Column":10},{"Type":"colon","Value":":","Line":211,"Column":16},{"Type":"identifier","Value":"TLabel","Line":211,"Column":18},{"Type":"identifier","Value":"Left","Line":212,"Column":5},{"Type":"equals","Value":"=","Line":212,"Column":10},{"Type":"number","Value":"764","Line":212,"Column":12},{"Type":"identifier","Value":"Height","Line":213,"Column":5},{"Type":"equals","Value":"=","Line":213,"Column":12},{"Type":"number","Value":"15","Line":213,"Column":14},{"Type":"identifier","Value":"Top","Line":214,"Column":5},{"Type":"equals","Value":"=","Line":214,"Column":9},{"Type":"number","Value":"72","Line":214,"Column":11},{"Type":"identifier","Value":"Width","Line":215,"Column":5},{"Type":"equals","Value":"=","Line":215,"Column":11},{"Type":"number","Value":"35","Line":215,"Column":13},{"Type":"identifier","Value":"Caption","Line":216,"Column":5},{"Type":"equals","Value":"=","Line":216,"Column":13},{"Type":"string","Value":"Under:","Line":216,"Column":15},{"Type":"identifier","Value":"ParentColor","Line":217,"Column":5},{"Type":"equals","Value":"=","Line":217,"Column":17},{"Type":"boolean","Value":"False","Line":217,"Column":19},{"Type":"end","Value":"end","Line":218,"Column":3},{"Type":"object","Value":"object","Line":219,"Column":3},{"Type":"identifier","Value":"LEd_FontTitle","Line":219,"Column":10},{"Type":"colon","Value":":","Line":219,"Column":23},{"Type":"identifier","Value":"TLabeledEdit","Line":219,"Column":25},{"Type":"identifier","Value":"Left","Line":220,"Column":5},{"Type":"equals","Value":"=","Line":220,"Column":10},{"Type":"number","Value":"8","Line":220,"Column":12},{"Type":"identifier","Value":"Height","Line":221,"Column":5},{"Type":"equals","Value":"=","Line":221,"Column":12},{"Type":"number","Value":"23","Line":221,"Column":14},{"Type":"identifier","Value":"Top","Line":222,"Column":5},{"Type":"equals","Value":"=","Line":222,"Column":9},{"Type":"number","Value":"44","Line":222,"Column":11},{"Type":"identifier","Value":"Width","Line":223,"Column":5},{"Type":"equals","Value":"=","Line":223,"Column":11},{"Type":"number","Value":"152","Line":223,"Column":13},{"Type":"identifier","Value":"EditLabel","Line":224,"Column":5},{"Type":"dot","Value":".","Line":224,"Column":14},{"Type":"identifier","Value":"AnchorSideLeft","Line":224,"Column":15},{"Type":"dot","Value":".","Line":224,"Column":29},{"Type":"identifier","Value":"Control","Line":224,"Column":30},{"Type":"equals","Value":"=","Line":224,"Column":38},{"Type":"identifier","Value":"LEd_FontTitle","Line":224,"Column":40},{"Type":"identifier","Value":"EditLabel","Line":225,"Column":5},{"Type":"dot","Value":".","Line":225,"Column":14},{"Type":"identifier","Value":"AnchorSideRight","Line":225,"Column":15},{"Type":"dot","Value":".","Line":225,"Column":30},{"Type":"identifier","Value":"Control","Line":225,"Column":31},{"Type":"equals","Value":"=","Line":225,"Column":39},{"Type":"identifier","Value":"LEd_FontTitle","Line":225,"Column":41},{"Type":"identifier","Value":"EditLabel","Line":226,"Column":5},{"Type":"dot","Value":".","Line":226,"Column":14},{"Type":"identifier","Value":"AnchorSideRight","Line":226,"Column":15},{"Type":"dot","Value":".","Line":226,"Column":30},{"Type":"identifier","Value":"Side","Line":226,"Column":31},{"Type":"equals","Value":"=","Line":226,"Column":36},{"Type":"identifier","Value":"asrBottom","Line":226,"Column":38},{"Type":"identifier","Value":"EditLabel","Line":227,"Column":5},{"Type":"dot","Value":".","Line":227,"Column":14},{"Type":"identifier","Value":"AnchorSideBottom","Line":227,"Column":15},{"Type":"dot","Value":".","Line":227,"Column":31},{"Type":"identifier","Value":"Control","Line":227,"Column":32},{"Type":"equals","Value":"=","Line":227,"Column":40},{"Type":"identifier","Value":"LEd_FontTitle","Line":227,"Column":42},{"Type":"identifier","Value":"EditLabel","Line":228,"Column":5},{"Type":"dot","Value":".","Line":228,"Column":14},{"Type":"identifier","Value":"Left","Line":228,"Column":15},{"Type":"equals","Value":"=","Line":228,"Column":20},{"Type":"number","Value":"8","Line":228,"Column":22},{"Type":"identifier","Value":"EditLabel","Line":229,"Column":5},{"Type":"dot","Value":".","Line":229,"Column":14},{"Type":"identifier","Value":"Height","Line":229,"Column":15},{"Type":"equals","Value":"=","Line":229,"Column":22},{"Type":"number","Value":"15","Line":229,"Column":24},{"Type":"identifier","Value":"EditLabel","Line":230,"Column":5},{"Type":"dot","Value":".","Line":230,"Column":14},{"Type":"identifier","Value":"Top","Line":230,"Column":15},{"Type":"equals","Value":"=","Line":230,"Column":19},{"Type":"number","Value":"26","Line":230,"Column":21},{"Type":"identifier","Value":"EditLabel","Line":231,"Column":5},{"Type":"dot","Value":".","Line":231,"Column":14},{"Type":"identifier","Value":"Width","Line":231,"Column":15},{"Type":"equals","Value":"=","Line":231,"Column":21},{"Type":"number","Value":"152","Line":231,"Column":23},{"Type":"identifier","Value":"EditLabel","Line":232,"Column":5},{"Type":"dot","Value":".","Line":232,"Column":14},{"Type":"identifier","Value":"Caption","Line":232,"Column":15},{"Type":"equals","Value":"=","Line":232,"Column":23},{"Type":"string","Value":"Font-Title","Line":232,"Column":25},{"Type":"identifier","Value":"EditLabel","Line":233,"Column":5},{"Type":"dot","Value":".","Line":233,"Column":14},{"Type":"identifier","Value":"ParentColor","Line":233,"Column":15},{"Type":"equals","Value":"=","Line":233,"Column":27},{"Type":"boolean","Value":"False","Line":233,"Column":29},{"Type":"identifier","Value":"TabOrder","Line":234,"Column":5},{"Type":"equals","Value":"=","Line":234,"Column":14},{"Type":"number","Value":"9","Line":234,"Column":16},{"Type":"identifier","Value":"Text","Line":235,"Column":5},{"Type":"equals","Value":"=","Line":235,"Column":10},{"Type":"string","Value":"LEd_FontTitle","Line":235,"Column":12},{"Type":"identifier","Value":"OnChange","Line":236,"Column":5},{"Type":"equals","Value":"=","Line":236,"Column":14},{"Type":"identifier","Value":"LEd_FontTitleChange","Line":236,"Column":16},{"Type":"identifier","Value":"OnExit","Line":237,"Column":5},{"Type":"equals","Value":"=","Line":237,"Column":12},{"Type":"identifier","Value":"LEd_FontTitleExit","Line":237,"Column":14},{"Type":"end","Value":"end","Line":238,"Column":3},{"Type":"object","Value":"object","Line":239,"Column":3},{"Type":"identifier","Value":"MainMenu1","Line":239,"Column":10},{"Type":"colon","Value":":","Line":239,"Column":19},{"Type":"identifier","Value":"TMainMenu","Line":239,"Column":21},{"Type":"identifier","Value":"Images","Line":240,"Column":5},{"Type":"equals","Value":"=","Line":240,"Column":12},{"Type":"identifier","Value":"ImageList1","Line":240,"Column":14},{"Type":"identifier","Value":"left","Line":241,"Column":5},{"Type":"equals","Value":"=","Line":241,"Column":10},{"Type":"number","Value":"120","Line":241,"Column":12},{"Type":"identifier","Value":"top","Line":242,"Column":5},{"Type":"equals","Value":"=","Line":242,"Column":9},{"Type":"number","Value":"88","Line":242,"Column":11},{"Type":"object","Value":"object","Line":243,"Column":5},{"Type":"identifier","Value":"mniFile","Line":243,"Column":12},{"Type":"colon","Value":":","Line":243,"Column":19},{"Type":"identifier","Value":"TMenuItem","Line":243,"Column":21},{"Type":"identifier","Value":"Caption","Line":244,"Column":7},{"Type":"equals","Value":"=","Line":244,"Column":15},{"Type":"string","Value":"Datei","Line":244,"Column":17},{"Type":"object","Value":"object","Line":245,"Column":7},{"Type":"identifier","Value":"mniFileNew","Line":245,"Column":14},{"Type":"colon","Value":":","Line":245,"Column":24},{"Type":"identifier","Value":"TMenuItem","Line":245,"Column":26},{"Type":"identifier","Value":"Action","Line":246,"Column":9},{"Type":"equals","Value":"=","Line":246,"Column":16},{"Type":"identifier","Value":"actFileNew","Line":246,"Column":18},{"Type":"identifier","Value":"Bitmap","Line":247,"Column":9},{"Type":"dot","Value":".","Line":247,"Column":15},{"Type":"identifier","Value":"Data","Line":247,"Column":16},{"Type":"equals","Value":"=","Line":247,"Column":21},{"Type":"lbrace","Value":"36040000424D3604000000000000360000002800000010000000100000000100200000000000000400006400000064000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF000000FF000000FF000000FF0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFF000000FF000000000000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF000000FF00000000000000000000000000000000000000000000000000000000000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000","Line":247,"Column":23},{"Type":"end","Value":"end","Line":283,"Column":7},{"Type":"object","Value":"object","Line":284,"Column":7},{"Type":"identifier","Value":"mniFileOpen","Line":284,"Column":14},{"Type":"colon","Value":":","Line":284,"Column":25},{"Type":"identifier","Value":"TMenuItem","Line":284,"Column":27},{"Type":"identifier","Value":"Action","Line":285,"Column":9},{"Type":"equals","Value":"=","Line":285,"Column":16},{"Type":"identifier","Value":"FileOpen1","Line":285,"Column":18},{"Type":"identifier","Value":"Bitmap","Line":286,"Column":9},{"Type":"dot","Value":".","Line":286,"Column":15},{"Type":"identifier","Value":"Data","Line":286,"Column":16},{"Type":"equals","Value":"=","Line":286,"Column":21},{"Type":"lbrace","Value":"36040000424D360400000000000036000000280000001000000010000000010020000000000000040000640000006400000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000000000000000000000000000000000000000000000FF000000FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF000000FF00000000000000000000000000000000000000FF00FFFFFF000000FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF000000FF000000000000000000000000000000FFFFFFFFFF00FFFFFF000000FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF000000FF0000000000000000000000FF00FFFFFFFFFFFFFF00FFFFFF000000FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF000000FF00000000000000FFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFF000000FF0000000000000000000000000000000000000000000000FFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF000000FF0000000000000000000000000000000000000000000000FF00FFFFFFFFFFFFFF00FFFFFF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000000000000000000000000000000000000000000000000000FF000000FF000000FF0000000000000000000000000000000000000000000000000000000000000000000000FF000000FF000000FF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF000000FF000000000000000000000000000000000000000000000000000000000000000000000000000000FF000000000000000000000000000000FF00000000000000FF00000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF000000FF000000FF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000","Line":286,"Column":23},{"Type":"end","Value":"end","Line":322,"Column":7},{"Type":"object","Value":"object","Line":323,"Column":7},{"Type":"identifier","Value":"mniFileSave","Line":323,"Column":14},{"Type":"colon","Value":":","Line":323,"Column":25},{"Type":"identifier","Value":"TMenuItem","Line":323,"Column":27},{"Type":"identifier","Value":"Action","Line":324,"Column":9},{"Type":"equals","Value":"=","Line":324,"Column":16},{"Type":"identifier","Value":"actFileSave","Line":324,"Column":18},{"Type":"identifier","Value":"Bitmap","Line":325,"Column":9},{"Type":"dot","Value":".","Line":325,"Column":15},{"Type":"identifier","Value":"Data","Line":325,"Column":16},{"Type":"equals","Value":"=","Line":325,"Column":21},{"Type":"lbrace","Value":"36040000424D36040000000000003600000028000000100000001000000001002000000000000004000064000000640000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000000000000000000000FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF000000FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF0000000000000000000000FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF000000FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF0000000000000000000000FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF000000FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF0000000000000000000000FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF008484FF000000FF0000000000000000000000FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF000000FF0000000000000000000000FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF008484FF008484FF000000FF0000000000000000000000FF008484FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF0000000000000000000000FF008484FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF0000000000000000000000FF008484FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF0000000000000000000000FF008484FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF0000000000000000000000FF008484FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF000000FF000000FF0000000000000000000000FF008484FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FFC6C6C6FF000000FF0000000000000000000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000","Line":325,"Column":23},{"Type":"end","Value":"end","Line":361,"Column":7},{"Type":"object","Value":"object","Line":362,"Column":7},{"Type":"identifier","Value":"mniFileSaveAs","Line":362,"Column":14},{"Type":"colon","Value":":","Line":362,"Column":27},{"Type":"identifier","Value":"TMenuItem","Line":362,"Column":29},{"Type":"identifier","Value":"Action","Line":363,"Column":9},{"Type":"equals","Value":"=","Line":363,"Column":16},{"Type":"identifier","Value":"FileSaveAs1","Line":363,"Column":18},{"Type":"identifier","Value":"Bitmap","Line":364,"Column":9},{"Type":"dot","Value":".","Line":364,"Column":15},{"Type":"identifier","Value":"Data","Line":364,"Column":16},{"Type":"equals","Value":"=","Line":364,"Column":21},{"Type":"lbrace","Value":"36040000424D36040000000000003600000028000000100000001000000001002000000000000004000064000000640000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000000000000000000000FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF000000FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF0000000000000000000000FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF000000FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF0000000000000000000000FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF000000FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF0000000000000000000000FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF008484FF000000FF0000000000000000000000FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF000000FF0000000000000000000000FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF008484FF008484FF000000FF0000000000000000000000FF008484FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF0000000000000000000000FF008484FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF0000000000000000000000FF008484FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF0000000000000000000000FF008484FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF0000000000000000000000FF008484FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF000000FF000000FF0000000000000000000000FF008484FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FFC6C6C6FF000000FF0000000000000000000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000","Line":364,"Column":23},{"Type":"end","Value":"end","Line":400,"Column":7},{"Type":"object","Value":"object","Line":401,"Column":7},{"Type":"identifier","Value":"mniFileClose","Line":401,"Column":14},{"Type":"colon","Value":":","Line":401,"Column":26},{"Type":"identifier","Value":"TMenuItem","Line":401,"Column":28},{"Type":"identifier","Value":"Caption","Line":402,"Column":9},{"Type":"equals","Value":"=","Line":402,"Column":17},{"Type":"string","Value":"Schliessen","Line":402,"Column":19},{"Type":"end","Value":"end","Line":403,"Column":7},{"Type":"object","Value":"object","Line":404,"Column":7},{"Type":"identifier","Value":"mniFileSep1","Line":404,"Column":14},{"Type":"colon","Value":":","Line":404,"Column":25},{"Type":"identifier","Value":"TMenuItem","Line":404,"Column":27},{"Type":"identifier","Value":"Caption","Line":405,"Column":9},{"Type":"equals","Value":"=","Line":405,"Column":17},{"Type":"string","Value":"-","Line":405,"Column":19},{"Type":"end","Value":"end","Line":406,"Column":7},{"Type":"object","Value":"object","Line":407,"Column":7},{"Type":"identifier","Value":"mniFileExit","Line":407,"Column":14},{"Type":"colon","Value":":","Line":407,"Column":25},{"Type":"identifier","Value":"TMenuItem","Line":407,"Column":27},{"Type":"identifier","Value":"Action","Line":408,"Column":9},{"Type":"equals","Value":"=","Line":408,"Column":16},{"Type":"identifier","Value":"FileExit1","Line":408,"Column":18},{"Type":"identifier","Value":"Bitmap","Line":409,"Column":9},{"Type":"dot","Value":".","Line":409,"Column":15},{"Type":"identifier","Value":"Data","Line":409,"Column":16},{"Type":"equals","Value":"=","Line":409,"Column":21},{"Type":"lbrace","Value":"36040000424D36040000000000003600000028000000100000001000000001002000000000000004000064000000640000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00B7B7B7FFAEAEAEFF3071A9FF2C6EA6FF286BA3FF2468A0FF21669EFF1D639BFF1A6199FF175F97FF145C94FF115B93FF6C6C6CFF6C6C6CFFFFFFFF00FFFFFF00FFFFFF00FFFFFF003675ADFF86B6D8FF83B3D7FF81B2D6FF7DAFD5FF7BADD4FF79ABD3FF76AAD2FF74A8D1FF155D95FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003C79B1FF8BB9DAFF66A2CEFF62A0CDFF5F9DCBFF5B9AC9FF5897C8FF5495C7FF77ABD3FF196098FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00427DB5FF8FBDDCFF6CA7D0FF67A4CFFF64A1CDFF609ECCFF5C9BCAFF5999C9FF7BADD4FF1E649CFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004882BAFF93C0DDFF71ABD2FF6DA8D1FF69A5CFFF66A2CEFF629FCCFF5E9CCBFF7FB0D5FF23679FFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004E86BEFF98C3DFFF77AFD5FF73ACD3FF6FA9D2FF6BA7D0FF5BB7E3FF54C2EDFF81B4D7FF286BA3FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00538AC2FF9CC6E1FF7CB3D7FF79B1D5FF75ADD4FF71ABD2FF5FBAE4FF4BD4FFFF7CBBE0FF2E6FA7FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00598EC6FFA0C9E3FF82B8D9FF7EB5D8FF7AB2D6FF77AFD5FF73ACD3FF6DABD4FF8CBADAFF3373ABFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005E91C9FFA4CCE4FF87BBDBFF84B9DAFF80B6D8FF7CB3D7FF79B0D5FF74ADD4FF8FBDDCFF3977AFFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006395CDFFA8CFE5FF8CBFDDFF88BDDCFF85BADBFF81B7D9FF7EB4D7FF7AB2D6FF94C1DDFF3F7CB4FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006798D0FFABD1E7FF90C2DFFF8DC0DEFF8ABEDCFF87BBDBFF83B8DAFF80B6D8FF99C4E0FF4580B8FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006B9BD3FFAED4E8FFABD3E8FFAAD1E7FFA8CFE5FFA5CDE4FFA2CBE4FFA0C9E2FF9DC7E1FF4B84BCFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006E9DD5FF6C9BD3FF699AD2FF6697CFFF6395CDFF6093CBFF5C90C8FF598EC6FF558BC3FF5188C0FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00","Line":409,"Column":23},{"Type":"end","Value":"end","Line":445,"Column":7},{"Type":"end","Value":"end","Line":446,"Column":5},{"Type":"object","Value":"object","Line":447,"Column":5},{"Type":"identifier","Value":"mniHelp","Line":447,"Column":12},{"Type":"colon","Value":":","Line":447,"Column":19},{"Type":"identifier","Value":"TMenuItem","Line":447,"Column":21},{"Type":"identifier","Value":"Caption","Line":448,"Column":7},{"Type":"equals","Value":"=","Line":448,"Column":15},{"Type":"string","Value":"?","Line":448,"Column":17},{"Type":"identifier","Value":"RightJustify","Line":449,"Column":7},{"Type":"equals","Value":"=","Line":449,"Column":20},{"Type":"boolean","Value":"True","Line":449,"Column":22},{"Type":"object","Value":"object","Line":450,"Column":7},{"Type":"identifier","Value":"mniHelpAbout","Line":450,"Column":14},{"Type":"colon","Value":":","Line":450,"Column":26},{"Type":"identifier","Value":"TMenuItem","Line":450,"Column":28},{"Type":"identifier","Value":"Action","Line":451,"Column":9},{"Type":"equals","Value":"=","Line":451,"Column":16},{"Type":"identifier","Value":"actHelpAbout","Line":451,"Column":18},{"Type":"end","Value":"end","Line":452,"Column":7},{"Type":"end","Value":"end","Line":453,"Column":5},{"Type":"end","Value":"end","Line":454,"Column":3},{"Type":"object","Value":"object","Line":455,"Column":3},{"Type":"identifier","Value":"ActionList1","Line":455,"Column":10},{"Type":"colon","Value":":","Line":455,"Column":21},{"Type":"identifier","Value":"TActionList","Line":455,"Column":23},{"Type":"identifier","Value":"Images","Line":456,"Column":5},{"Type":"equals","Value":"=","Line":456,"Column":12},{"Type":"identifier","Value":"ImageList1","Line":456,"Column":14},{"Type":"identifier","Value":"left","Line":457,"Column":5},{"Type":"equals","Value":"=","Line":457,"Column":10},{"Type":"number","Value":"160","Line":457,"Column":12},{"Type":"identifier","Value":"top","Line":458,"Column":5},{"Type":"equals","Value":"=","Line":458,"Column":9},{"Type":"number","Value":"88","Line":458,"Column":11},{"Type":"object","Value":"object","Line":459,"Column":5},{"Type":"identifier","Value":"actFileNew","Line":459,"Column":12},{"Type":"colon","Value":":","Line":459,"Column":22},{"Type":"identifier","Value":"TAction","Line":459,"Column":24},{"Type":"identifier","Value":"Category","Line":460,"Column":7},{"Type":"equals","Value":"=","Line":460,"Column":16},{"Type":"string","Value":"File","Line":460,"Column":18},{"Type":"identifier","Value":"Caption","Line":461,"Column":7},{"Type":"equals","Value":"=","Line":461,"Column":15},{"Type":"string","Value":"Neu","Line":461,"Column":17},{"Type":"identifier","Value":"ImageIndex","Line":462,"Column":7},{"Type":"equals","Value":"=","Line":462,"Column":18},{"Type":"number","Value":"6","Line":462,"Column":20},{"Type":"identifier","Value":"OnExecute","Line":463,"Column":7},{"Type":"equals","Value":"=","Line":463,"Column":17},{"Type":"identifier","Value":"actFileNewExecute","Line":463,"Column":19},{"Type":"identifier","Value":"ShortCut","Line":464,"Column":7},{"Type":"equals","Value":"=","Line":464,"Column":16},{"Type":"number","Value":"16462","Line":464,"Column":18},{"Type":"end","Value":"end","Line":465,"Column":5},{"Type":"object","Value":"object","Line":466,"Column":5},{"Type":"identifier","Value":"actFileSave","Line":466,"Column":12},{"Type":"colon","Value":":","Line":466,"Column":23},{"Type":"identifier","Value":"TAction","Line":466,"Column":25},{"Type":"identifier","Value":"Category","Line":467,"Column":7},{"Type":"equals","Value":"=","Line":467,"Column":16},{"Type":"string","Value":"File","Line":467,"Column":18},{"Type":"identifier","Value":"Caption","Line":468,"Column":7},{"Type":"equals","Value":"=","Line":468,"Column":15},{"Type":"string","Value":"Save","Line":468,"Column":17},{"Type":"identifier","Value":"ImageIndex","Line":469,"Column":7},{"Type":"equals","Value":"=","Line":469,"Column":18},{"Type":"number","Value":"8","Line":469,"Column":20},{"Type":"identifier","Value":"OnExecute","Line":470,"Column":7},{"Type":"equals","Value":"=","Line":470,"Column":17},{"Type":"identifier","Value":"actFileSaveExecute","Line":470,"Column":19},{"Type":"identifier","Value":"OnUpdate","Line":471,"Column":7},{"Type":"equals","Value":"=","Line":471,"Column":16},{"Type":"identifier","Value":"actFileSaveUpdate","Line":471,"Column":18},{"Type":"identifier","Value":"ShortCut","Line":472,"Column":7},{"Type":"equals","Value":"=","Line":472,"Column":16},{"Type":"number","Value":"16467","Line":472,"Column":18},{"Type":"end","Value":"end","Line":473,"Column":5},{"Type":"object","Value":"object","Line":474,"Column":5},{"Type":"identifier","Value":"FileOpen1","Line":474,"Column":12},{"Type":"colon","Value":":","Line":474,"Column":21},{"Type":"identifier","Value":"TFileOpen","Line":474,"Column":23},{"Type":"identifier","Value":"Category","Line":475,"Column":7},{"Type":"equals","Value":"=","Line":475,"Column":16},{"Type":"string","Value":"File","Line":475,"Column":18},{"Type":"identifier","Value":"Caption","Line":476,"Column":7},{"Type":"equals","Value":"=","Line":476,"Column":15},{"Type":"string","Value":"\u00D6\u0026ffnen","Line":476,"Column":17},{"Type":"identifier","Value":"Dialog","Line":477,"Column":7},{"Type":"dot","Value":".","Line":477,"Column":13},{"Type":"identifier","Value":"DefaultExt","Line":477,"Column":14},{"Type":"equals","Value":"=","Line":477,"Column":25},{"Type":"string","Value":".vec","Line":477,"Column":27},{"Type":"identifier","Value":"Dialog","Line":478,"Column":7},{"Type":"dot","Value":".","Line":478,"Column":13},{"Type":"identifier","Value":"Filter","Line":478,"Column":14},{"Type":"equals","Value":"=","Line":478,"Column":21},{"Type":"string","Value":"Vectordatei [*.vec]|*.vec|Text-Definitionsdatei [*.txt]|*.txt|Alle Dateien [*.*]|*.*","Line":478,"Column":23},{"Type":"identifier","Value":"Hint","Line":479,"Column":7},{"Type":"equals","Value":"=","Line":479,"Column":12},{"Type":"string","Value":"\u00D6ffnen","Line":479,"Column":14},{"Type":"identifier","Value":"ImageIndex","Line":480,"Column":7},{"Type":"equals","Value":"=","Line":480,"Column":18},{"Type":"number","Value":"7","Line":480,"Column":20},{"Type":"identifier","Value":"ShortCut","Line":481,"Column":7},{"Type":"equals","Value":"=","Line":481,"Column":16},{"Type":"number","Value":"16463","Line":481,"Column":18},{"Type":"identifier","Value":"OnAccept","Line":482,"Column":7},{"Type":"equals","Value":"=","Line":482,"Column":16},{"Type":"identifier","Value":"FileOpen1Accept","Line":482,"Column":18},{"Type":"end","Value":"end","Line":483,"Column":5},{"Type":"object","Value":"object","Line":484,"Column":5},{"Type":"identifier","Value":"FileSaveAs1","Line":484,"Column":12},{"Type":"colon","Value":":","Line":484,"Column":23},{"Type":"identifier","Value":"TFileSaveAs","Line":484,"Column":25},{"Type":"identifier","Value":"Category","Line":485,"Column":7},{"Type":"equals","Value":"=","Line":485,"Column":16},{"Type":"string","Value":"File","Line":485,"Column":18},{"Type":"identifier","Value":"Caption","Line":486,"Column":7},{"Type":"equals","Value":"=","Line":486,"Column":15},{"Type":"string","Value":"Sichern \u0026als","Line":486,"Column":17},{"Type":"identifier","Value":"Dialog","Line":487,"Column":7},{"Type":"dot","Value":".","Line":487,"Column":13},{"Type":"identifier","Value":"DefaultExt","Line":487,"Column":14},{"Type":"equals","Value":"=","Line":487,"Column":25},{"Type":"string","Value":".vec","Line":487,"Column":27},{"Type":"identifier","Value":"Dialog","Line":488,"Column":7},{"Type":"dot","Value":".","Line":488,"Column":13},{"Type":"identifier","Value":"Filter","Line":488,"Column":14},{"Type":"equals","Value":"=","Line":488,"Column":21},{"Type":"string","Value":"Vectordatei [*.vec]|*.vec|Text-Definitionsdatei [*.txt]|*.txt|Alle Dateien [*.*]|*.*","Line":488,"Column":23},{"Type":"identifier","Value":"Hint","Line":489,"Column":7},{"Type":"equals","Value":"=","Line":489,"Column":12},{"Type":"string","Value":"Sichern als","Line":489,"Column":14},{"Type":"identifier","Value":"ImageIndex","Line":490,"Column":7},{"Type":"equals","Value":"=","Line":490,"Column":18},{"Type":"number","Value":"8","Line":490,"Column":20},{"Type":"identifier","Value":"OnAccept","Line":491,"Column":7},{"Type":"equals","Value":"=","Line":491,"Column":16},{"Type":"identifier","Value":"FileSaveAs1Accept","Line":491,"Column":18},{"Type":"end","Value":"end","Line":492,"Column":5},{"Type":"object","Value":"object","Line":493,"Column":5},{"Type":"identifier","Value":"FileExit1","Line":493,"Column":12},{"Type":"colon","Value":":","Line":493,"Column":21},{"Type":"identifier","Value":"TFileExit","Line":493,"Column":23},{"Type":"identifier","Value":"Category","Line":494,"Column":7},{"Type":"equals","Value":"=","Line":494,"Column":16},{"Type":"string","Value":"File","Line":494,"Column":18},{"Type":"identifier","Value":"Caption","Line":495,"Column":7},{"Type":"equals","Value":"=","Line":495,"Column":15},{"Type":"string","Value":"\u0026Beenden","Line":495,"Column":17},{"Type":"identifier","Value":"Hint","Line":496,"Column":7},{"Type":"equals","Value":"=","Line":496,"Column":12},{"Type":"string","Value":"Beenden","Line":496,"Column":14},{"Type":"identifier","Value":"ImageIndex","Line":497,"Column":7},{"Type":"equals","Value":"=","Line":497,"Column":18},{"Type":"number","Value":"16","Line":497,"Column":20},{"Type":"identifier","Value":"SecondaryShortCuts","Line":498,"Column":7},{"Type":"dot","Value":".","Line":498,"Column":25},{"Type":"identifier","Value":"Strings","Line":498,"Column":26},{"Type":"equals","Value":"=","Line":498,"Column":34},{"Type":"lparen","Value":"(","Line":498,"Column":36},{"Type":"string","Value":"Alt - F4","Line":499,"Column":9},{"Type":"rparen","Value":")","Line":500,"Column":7},{"Type":"end","Value":"end","Line":501,"Column":5},{"Type":"object","Value":"object","Line":502,"Column":5},{"Type":"identifier","Value":"actHelpAbout","Line":502,"Column":12},{"Type":"colon","Value":":","Line":502,"Column":24},{"Type":"identifier","Value":"TAction","Line":502,"Column":26},{"Type":"identifier","Value":"Category","Line":503,"Column":7},{"Type":"equals","Value":"=","Line":503,"Column":16},{"Type":"string","Value":"Help","Line":503,"Column":18},{"Type":"identifier","Value":"Caption","Line":504,"Column":7},{"Type":"equals","Value":"=","Line":504,"Column":15},{"Type":"string","Value":"\u00DCber ...","Line":504,"Column":17},{"Type":"identifier","Value":"OnExecute","Line":505,"Column":7},{"Type":"equals","Value":"=","Line":505,"Column":17},{"Type":"identifier","Value":"actHelpAboutExecute","Line":505,"Column":19},{"Type":"identifier","Value":"ShortCut","Line":506,"Column":7},{"Type":"equals","Value":"=","Line":506,"Column":16},{"Type":"number","Value":"24688","Line":506,"Column":18},{"Type":"end","Value":"end","Line":507,"Column":5},{"Type":"end","Value":"end","Line":508,"Column":3},{"Type":"object","Value":"object","Line":509,"Column":3},{"Type":"identifier","Value":"OpenDialog1","Line":509,"Column":10},{"Type":"colon","Value":":","Line":509,"Column":21},{"Type":"identifier","Value":"TOpenDialog","Line":509,"Column":23},{"Type":"identifier","Value":"left","Line":510,"Column":5},{"Type":"equals","Value":"=","Line":510,"Column":10},{"Type":"number","Value":"240","Line":510,"Column":12},{"Type":"identifier","Value":"top","Line":511,"Column":5},{"Type":"equals","Value":"=","Line":511,"Column":9},{"Type":"number","Value":"88","Line":511,"Column":11},{"Type":"end","Value":"end","Line":512,"Column":3},{"Type":"object","Value":"object","Line":513,"Column":3},{"Type":"identifier","Value":"SaveDialog1","Line":513,"Column":10},{"Type":"colon","Value":":","Line":513,"Column":21},{"Type":"identifier","Value":"TSaveDialog","Line":513,"Column":23},{"Type":"identifier","Value":"left","Line":514,"Column":5},{"Type":"equals","Value":"=","Line":514,"Column":10},{"Type":"number","Value":"280","Line":514,"Column":12},{"Type":"identifier","Value":"top","Line":515,"Column":5},{"Type":"equals","Value":"=","Line":515,"Column":9},{"Type":"number","Value":"88","Line":515,"Column":11},{"Type":"end","Value":"end","Line":516,"Column":3},{"Type":"object","Value":"object","Line":517,"Column":3},{"Type":"identifier","Value":"AboutBox1","Line":517,"Column":10},{"Type":"colon","Value":":","Line":517,"Column":19},{"Type":"identifier","Value":"TAboutBox","Line":517,"Column":21},{"Type":"identifier","Value":"Comment","Line":518,"Column":5},{"Type":"equals","Value":"=","Line":518,"Column":13},{"Type":"string","Value":"Erstellen und Bearbeiten von JC-Vector-Fonts","Line":518,"Column":15},{"Type":"identifier","Value":"Company","Line":519,"Column":5},{"Type":"equals","Value":"=","Line":519,"Column":13},{"Type":"string","Value":"JC-Soft","Line":519,"Column":15},{"Type":"identifier","Value":"left","Line":520,"Column":5},{"Type":"equals","Value":"=","Line":520,"Column":10},{"Type":"number","Value":"320","Line":520,"Column":12},{"Type":"identifier","Value":"top","Line":521,"Column":5},{"Type":"equals","Value":"=","Line":521,"Column":9},{"Type":"number","Value":"88","Line":521,"Column":11},{"Type":"end","Value":"end","Line":522,"Column":3},{"Type":"object","Value":"object","Line":523,"Column":3},{"Type":"identifier","Value":"Config1","Line":523,"Column":10},{"Type":"colon","Value":":","Line":523,"Column":17},{"Type":"identifier","Value":"TConfig","Line":523,"Column":19},{"Type":"identifier","Value":"left","Line":524,"Column":5},{"Type":"equals","Value":"=","Line":524,"Column":10},{"Type":"number","Value":"360","Line":524,"Column":12},{"Type":"identifier","Value":"top","Line":525,"Column":5},{"Type":"equals","Value":"=","Line":525,"Column":9},{"Type":"number","Value":"88","Line":525,"Column":11},{"Type":"end","Value":"end","Line":526,"Column":3},{"Type":"object","Value":"object","Line":527,"Column":3},{"Type":"identifier","Value":"ImageList1","Line":527,"Column":10},{"Type":"colon","Value":":","Line":527,"Column":20},{"Type":"identifier","Value":"TImageList","Line":527,"Column":22},{"Type":"identifier","Value":"left","Line":528,"Column":5},{"Type":"equals","Value":"=","Line":528,"Column":10},{"Type":"number","Value":"200","Line":528,"Column":12},{"Type":"identifier","Value":"top","Line":529,"Column":5},{"Type":"equals","Value":"=","Line":529,"Column":9},{"Type":"number","Value":"88","Line":529,"Column":11},{"Type":"identifier","Value":"Bitmap","Line":530,"Column":5},{"Type":"equals","Value":"=","Line":530,"Column":12},{"Type":"lbrace","Value":"4C6911000000100000001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF000000000000000000000000000000FF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF000000000000000000000000000000FF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF000000000000000000000000000000FF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF000000FF00000000000000FF000000FF000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF00000000000000FF00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF000000FF000000FF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000840000FF000000FF840000FF00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000840000FF00000000840000FF840000FF840000FF000000000000000000000000000000000000000000000000000000000000000000000000840000FF840000FF840000FF00000000840000FF0000000000000000840000FF00000000000000000000000000000000000000000000000000000000840000FF0000000000000000840000FF00000000840000FF0000000000000000840000FF00000000000000000000000000000000000000000000000000000000840000FF0000000000000000840000FF00000000840000FF0000000000000000840000FF00000000000000000000000000000000000000000000000000000000840000FF0000000000000000840000FF0000000000000000840000FF840000FF000000000000000000000000000000000000000000000000000000000000000000000000840000FF840000FF000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF000000FF000000FF000000FF000000FF000000FF00000000000000000000000000000000000000000000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF000000FF000000000000000000000000000000000000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFF000000FF0000000000000000000000000000000000000000000000000000000000000000000000FFFFFFFFFF000000FF000000FFFFFFFFFF000000FF840000FF840000FF840000FF840000FF840000FF840000FF00000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF840000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF840000FF840000FF000000000000000000000000000000FFFFFFFFFF000000FF000000FF000000FF000000FF840000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF840000FFFFFFFFFF840000FF0000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF840000FFFFFFFFFF000000FF000000FFFFFFFFFF840000FF840000FF840000FF840000FF00000000000000FFFFFFFFFF000000FF000000FF000000FF000000FF840000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF840000FF00000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF840000FFFFFFFFFF000000FF000000FF000000FF000000FF000000FFFFFFFFFF840000FF00000000000000FF000000FF000000FF000000FF000000FF000000FF840000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF840000FF00000000000000000000000000000000000000000000000000000000840000FFFFFFFFFF000000FF000000FF000000FF000000FF000000FFFFFFFFFF840000FF00000000000000000000000000000000000000000000000000000000840000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF840000FF00000000000000000000000000000000000000000000000000000000840000FF840000FF840000FF840000FF840000FF840000FF840000FF840000FF840000FF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF000000FF000000FF000000FF0000000000000000000000000000000000000000000000000000000000000000000000FF000000FF000000FF000000FF000000FF00FFFFFF00FFFFFF000000FF000000FF000000FF000000FF000000FF000000000000000000000000000000FF008484FF848484FF008484FF000000FF00FFFFFF000000FF000000FF00FFFFFF000000FF848484FF008484FF848484FF000000FF0000000000000000000000FF848484FF848484FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF848484FF008484FF000000FF0000000000000000000000FF008484FF848484FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF848484FF848484FF000000FF0000000000000000000000FF848484FF008484FF848484FF008484FF848484FF008484FF848484FF008484FF848484FF008484FF848484FF008484FF000000FF0000000000000000000000FF008484FF848484FF008484FF848484FF008484FF840000FF840000FF840000FF840000FF840000FF840000FF840000FF000000FF0000000000000000000000FF848484FF008484FF848484FF008484FF848484FF840000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF840000FF840000FF0000000000000000000000FF008484FF848484FF008484FF848484FF008484FF840000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF840000FFFFFFFFFF840000FF00000000000000FF848484FF008484FF848484FF008484FF848484FF840000FFFFFFFFFF000000FF000000FF000000FFFFFFFFFF840000FF840000FF840000FF840000FF000000FF008484FF848484FF008484FF848484FF008484FF840000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF840000FF000000FF848484FF008484FF848484FF008484FF848484FF840000FFFFFFFFFF000000FF000000FF000000FF000000FF000000FF000000FFFFFFFFFF840000FF00000000000000FF000000FF000000FF000000FF000000FF840000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF840000FF000000000000000000000000000000000000000000000000840000FF840000FF840000FF840000FF840000FF840000FF840000FF840000FF840000FF840000FF000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000D9A77DFF7F5B00FF7F5B00FF7F5B00FF7F5B00FFD9A77DFF0000000000000000000000000000000000000000916B0AFF0000000000000000D9A77DFF7F5B00FF7F5B00FFD9A77DFF0000000000000000D9A77DFF7F5B00FFD9A77DFF00000000000000000000000000000000916B0AFF916B0AFFD9A77DFF7F5B00FFD9A77DFF0000000000000000000000000000000000000000D9A77DFF7F5B00FF00000000000000000000000000000000916B0AFF7F5B00FF916B0AFFD9A77DFF000000000000000000000000000000000000000000000000000000007F5B00FF00000000000000000000000000000000916B0AFF7F5B00FF7F5B00FF916B0AFF000000000000000000000000000000000000000000000000000000007F5B00FF00000000000000000000000000000000644904FF644904FF644904FF644904FF644904FF0000000000000000000000000000000000000000000000007F5B00FF000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000D9A77DFF7F5B00FF7F5B00FF7F5B00FF7F5B00FFD9A77DFF000000000000000000000000000000000000000000000000000000000000000000000000D9A77DFF7F5B00FFD9A77DFF0000000000000000D9A77DFF7F5B00FF7F5B00FFD9A77DFF0000000000000000916B0AFF000000000000000000000000000000007F5B00FFD9A77DFF0000000000000000000000000000000000000000D9A77DFF7F5B00FFD9A77DFF916B0AFF916B0AFF000000000000000000000000000000007F5B00FF00000000000000000000000000000000000000000000000000000000D9A77DFF916B0AFF7F5B00FF916B0AFF000000000000000000000000000000007F5B00FF00000000000000000000000000000000000000000000000000000000916B0AFF7F5B00FF7F5B00FF916B0AFF000000000000000000000000000000007F5B00FF000000000000000000000000000000000000000000000000644904FF644904FF644904FF644904FF644904FF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF000000FF000000FF000000000000000000000000000000000000000000000000000000000000000000000000000000FF000000000000000000000000000000FF000000FF000000FF000000FF000000000000000000000000000000000000000000000000000000FF000000FF0000000000000000000000000000000000000000000000FF000000FF000000FF000000FF00000000000000000000000000000000000000FF000000FF0000000000000000000000000000000000000000000000000000000000000000000000FF000000FF000000FF0000000000000000000000FF000000FF00000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF000000FF000000FF000000FF000000FF000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF000000FF000000FF000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF000000FF000000FF000000FF000000FF00000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF000000FF000000FF0000000000000000000000FF000000FF0000000000000000000000000000000000000000000000000000000000000000000000FF000000FF000000FF00000000000000000000000000000000000000FF000000FF000000000000000000000000000000000000000000000000000000FF000000FF000000FF000000000000000000000000000000000000000000000000000000FF0000000000000000000000000000000000000000000000FF000000FF000000FF000000FF00000000000000000000000000000000000000000000000000000000000000FF00000000000000000000000000000000000000FF000000FF000000FF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF00000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000000000000000000000000000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF000000FF00000000000000000000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFF000000FF000000000000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF000000FF000000FF000000FF0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000000000000000000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF000000FF000000FF000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF000000000000000000000000000000FF00000000000000FF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF000000FF0000000000000000000000FF000000FF000000FF0000000000000000000000000000000000000000000000000000000000000000000000FF000000FF000000FF00000000000000FF00FFFFFFFFFFFFFF00FFFFFF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000000000000000000000000000000000000000000000FFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF000000FF0000000000000000000000000000000000000000000000FF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFF000000FF0000000000000000000000000000000000000000000000FFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00FFFFFFFFFFFFFF00FFFFFF000000FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF000000FF00000000000000FFFFFFFFFF00FFFFFF000000FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF000000FF0000000000000000000000FF00FFFFFF000000FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF000000FF000000000000000000000000000000FF000000FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF000000FF00000000000000000000000000000000000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000000000000000000000FF008484FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FFC6C6C6FF000000FF0000000000000000000000FF008484FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF000000FF000000FF0000000000000000000000FF008484FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF0000000000000000000000FF008484FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF0000000000000000000000FF008484FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF0000000000000000000000FF008484FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF0000000000000000000000FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF008484FF008484FF000000FF0000000000000000000000FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF008484FF000000FF0000000000000000000000FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF008484FF000000FF0000000000000000000000FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF000000FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF0000000000000000000000FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF000000FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF0000000000000000000000FF008484FF008484FF000000FF000000FF000000FF000000FF000000FF000000FFC6C6C6FFC6C6C6FF000000FF008484FF000000FF000000000000000000000000000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00000000000000000000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF000000FF000000000000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFC6C6C6FF000000FF0000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF000000FF000000FF000000FF00000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF00000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF000000FF000000FF000000FF00000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF848484FFC6C6C6FFC6C6C6FF848484FF000000FF000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF848484FFFFFF00FFFFFF00FFC6C6C6FF848484FF848484FF000000FF0000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFC6C6C6FFFFFF00FFC6C6C6FFC6C6C6FF848484FFC6C6C6FF000000FF0000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF848484FFC6C6C6FF000000FF0000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF848484FFC6C6C6FFC6C6C6FFFFFF00FF848484FF848484FF000000FF0000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF848484FFC6C6C6FFC6C6C6FF848484FF000000FF000000FF0000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF00000000000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000000000000000000000FF000000FF000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF000000FF000000FF000000FF000000FF000000FF00000000840000FF840000FF000000000000000000000000000000000000000000000000000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF840000FF840000FF0000000000000000000000000000000000000000000000FFC6C6C6FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF840000FF840000FF000000FF000000FF000000FF000000FF000000FFC6C6C6FF000000FFC6C6C6FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF840000FF840000FF000000FFFFFFFFFFFFFFFFFF000000FFC6C6C6FF000000FFC6C6C6FF000000FFC6C6C6FF000000FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF840000FF840000FF000000FFFFFFFFFF000000FFC6C6C6FF000000FFFFFFFFFF000000FFC6C6C6FF000000FFC6C6C6FF000000FF000000FF000000FF00000000840000FF840000FF000000FFFFFFFFFF000000FF000000FFFFFFFFFFFFFFFFFFFFFFFFFF000000FFC6C6C6FF000000FFFFFFFFFF000000FF00000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF000000FF00000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF00000000000000000000000000000000000000FFFFFFFFFF000000FF000000FFFFFFFFFF000000FF000000FF000000FF000000FF000000FFFFFFFFFF000000FF00000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF00000000000000000000000000000000000000FFFFFFFFFF000000FF000000FFFFFFFFFF000000FF000000FF000000FF000000FF000000FFFFFFFFFF000000FF00000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF00000000000000000000000000000000000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF0000000000000000000000000000000000000000000000000000000000000000840000FF840000FF840000FF840000FF840000FF0000000000000000000000FF000000FF000000000000000000000000000000000000000000000000840000FF840000FF840000FF840000FF840000FF840000FF840000FF00000000000000FF000000FF000000FF00000000000000000000000000000000840000FF840000FF840000FF000000000000000000000000840000FF840000FF840000FF000000FF000000FF000000FF000000FF000000000000000000000000840000FF840000FF840000FF000000000000000000000000840000FF840000FF840000FF000000FF000000FF000000FF000000FF000000FF0000000000000000840000FF840000FF840000FF000000000000000000000000840000FF840000FF840000FF000000FF000000FF000000FF000000FF000000FF000000FF000000000000000000000000000000000000000000000000840000FF840000FF840000FF00000000000000FF000000FF000000FF000000FF000000FF000000FF000000FF00000000000000000000000000000000840000FF840000FF840000FF0000000000000000000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000000000000000840000FF840000FF840000FF000000000000000000000000000000FF000000FF000000FF000000FF000000FF0000000000000000000000000000000000000000840000FF840000FF840000FF000000000000000000000000000000FF000000FF00000000000000FF000000FF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF000000000000000000000000000000FF000000FF00000000000000000000000000000000840000FF840000FF840000FF00000000000000000000000000000000000000000000000000000000000000FF000000FF00000000000000000000000000000000840000FF840000FF840000FF0000000000000000000000000000000000000000000000000000000000000000000000FF000000FF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF000000FF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF000000FF000000FF000000FF00000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF000000FF00000000000000000000000000000000000000000000000000000000000000FF848484FFFFFFFFFFFFFFFFFFFFFFFFFFC6C6C6FFC6C6C6FFC6C6C6FF848484FF000000FF000000000000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFF00FFFFFF00FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF0000000000000000000000000000000000000000000000FFC6C6C6FFFFFFFFFFFFFF00FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF00000000000000000000000000000000000000FFC6C6C6FFFFFFFFFFFFFF00FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF00000000000000000000000000000000000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF00000000000000000000000000000000000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF0000000000000000000000000000000000000000000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFFFFFFFFF000000FF000000000000000000000000000000000000000000000000000000FF848484FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFFFFFFFFF848484FF000000FF00000000000000000000000000000000000000000000000000000000000000FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFFFFFFFFF848484FF840000FF840000FF840000FF0000000000000000000000000000000000000000000000000000000000000000000000FF000000FF000000FF000000FF840000FFC6C6C6FF840000FF840000FF840000FF000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000840000FFC6C6C6FF840000FF840000FF840000FF000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000840000FFC6C6C6FF840000FF840000FF840000FF000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000840000FFC6C6C6FF840000FF840000FF00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000840000FF840000FF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000084FF000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000084FF000084FF000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000084FF000084FF000084FF000084FF000084FF00000000000000000000000000000000000000000000000000000000000000000000000000000000000084FF0000000000000000000084FF000084FF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000084FF0000000000000000000084FF0000000000000000000000000000000000000000000000FF000000FF000000FF000000FF000000000000000000000000000084FF00000000000000000000000000000000000000000000000000000000000000FF848484FFC6C6C6FFC6C6C6FF848484FF000000FF0000000000000000000000000000000000000000000000000000000000000000000084FF000000FF848484FFFFFFFFFFFFFFFFFFC6C6C6FFC6C6C6FF848484FF000000FF00000000000000000000000000000000000084FF0000000000000000000084FF000000FFC6C6C6FFFFFFFFFFFFFF00FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF000000000000000000000000000084FF000084FF0000000000000000000084FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFFFFFFFFF000000FF0000000000000000000084FF000084FF000084FF000084FF000084FF00000000000000FF848484FFC6C6C6FFC6C6C6FFC6C6C6FFFFFFFFFF848484FF000000FF000000000000000000000000000084FF000084FF00000000000000000000000000000000000000FF848484FFC6C6C6FFFFFFFFFF848484FF000000FF840000FF00000000000000000000000000000000000084FF0000000000000000000000000000000000000000000000FF000000FF000000FF000000FF840000FF840000FF840000FF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000840000FF840000FF840000FF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000840000FF840000FF00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000000000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF000000000000000000000000000000000000000000000000000000FFFFFFFFFF000000FF000000FF000000FF000000FF000000FFFFFFFFFF000000FF000000000000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF000000000000000000000000000000000000000000000000000000FFFFFFFFFF000000FF000000FF000000FF000000FF000000FFFFFFFFFF000000FF000000FF000000FF000000FF000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFC6C6C6FF000000FFC6C6C6FF000000FF00000000000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FFC6C6C6FF000000FFC6C6C6FF000000FF000000FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FFC6C6C6FF000000FFC6C6C6FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FFC6C6C6FFC6C6C6FF000000FF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF848484FF848484FF848484FFC6C6C6FFC6C6C6FF000000FFC6C6C6FF000000FF00000000000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF00FFFFFF00FFFFFF00FFFFFFC6C6C6FFC6C6C6FF000000FF000000FF000000FF00000000000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FFC6C6C6FF000000FF0000000000000000000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FFC6C6C6FF000000FF00000000000000000000000000000000000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000848484FF848484FF848484FF848484FF848484FF848484FF848484FF848484FF848484FF848484FF848484FF848484FF848484FF000000000000000000000000848484FF000000FF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFF000000FF848484FF000000FF0000000000000000848484FF00FFFFFF000000FF00FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFFFF000000FF00FFFFFF848484FF000000FF0000000000000000848484FFFFFFFFFF00FFFFFF000000FF00FFFFFF0000000000FFFFFF0000000000FFFFFF000000FF00FFFFFF00000000848484FF000000FF0000000000000000848484FF00FFFFFF0000000000FFFFFF000000FF00FFFFFF0000000000FFFFFF000000FF00FFFFFF0000000000FFFFFF848484FF000000FF0000000000000000848484FFFFFFFFFF00FFFFFF000000FF00FFFFFF000000FF00FFFFFF000000FF00FFFFFF000000FF00FFFFFF00000000848484FF000000FF0000000000000000848484FF00FFFFFF000000FF00FFFFFF0000000000FFFFFF000000FF00FFFFFF0000000000FFFFFF000000FF00FFFFFF848484FF000000FF0000000000000000848484FF000000FF00FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFFFF000000FF848484FF000000FF0000000000000000848484FF00FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFFFF848484FF000000FF0000000000000000848484FF848484FF848484FF848484FF848484FF848484FF848484FF848484FF848484FF848484FF848484FF848484FF848484FF000000FF000000000000000000000000000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006E9DD5FF6C9BD3FF699AD2FF6697CFFF6395CDFF6093CBFF5C90C8FF598EC6FF558BC3FF5188C0FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006B9BD3FFAED4E8FFABD3E8FFAAD1E7FFA8CFE5FFA5CDE4FFA2CBE4FFA0C9E2FF9DC7E1FF4B84BCFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006798D0FFABD1E7FF90C2DFFF8DC0DEFF8ABEDCFF87BBDBFF83B8DAFF80B6D8FF99C4E0FF4580B8FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006395CDFFA8CFE5FF8CBFDDFF88BDDCFF85BADBFF81B7D9FF7EB4D7FF7AB2D6FF94C1DDFF3F7CB4FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005E91C9FFA4CCE4FF87BBDBFF84B9DAFF80B6D8FF7CB3D7FF79B0D5FF74ADD4FF8FBDDCFF3977AFFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00598EC6FFA0C9E3FF82B8D9FF7EB5D8FF7AB2D6FF77AFD5FF73ACD3FF6DABD4FF8CBADAFF3373ABFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00538AC2FF9CC6E1FF7CB3D7FF79B1D5FF75ADD4FF71ABD2FF5FBAE4FF4BD4FFFF7CBBE0FF2E6FA7FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004E86BEFF98C3DFFF77AFD5FF73ACD3FF6FA9D2FF6BA7D0FF5BB7E3FF54C2EDFF81B4D7FF286BA3FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004882BAFF93C0DDFF71ABD2FF6DA8D1FF69A5CFFF66A2CEFF629FCCFF5E9CCBFF7FB0D5FF23679FFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00427DB5FF8FBDDCFF6CA7D0FF67A4CFFF64A1CDFF609ECCFF5C9BCAFF5999C9FF7BADD4FF1E649CFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003C79B1FF8BB9DAFF66A2CEFF62A0CDFF5F9DCBFF5B9AC9FF5897C8FF5495C7FF77ABD3FF196098FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003675ADFF86B6D8FF83B3D7FF81B2D6FF7DAFD5FF7BADD4FF79ABD3FF76AAD2FF74A8D1FF155D95FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00B7B7B7FFAEAEAEFF3071A9FF2C6EA6FF286BA3FF2468A0FF21669EFF1D639BFF1A6199FF175F97FF145C94FF115B93FF6C6C6CFF6C6C6CFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00","Line":530,"Column":14},{"Type":"end","Value":"end","Line":1077,"Column":3},{"Type":"end","Value":"end","Line":1078,"Column":1},{"Type":"eof","Value":"","Line":1079,"Column":1}] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm4/Lfm4_Source.lfm b/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm4/Lfm4_Source.lfm deleted file mode 100644 index f205106ee..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm4/Lfm4_Source.lfm +++ /dev/null @@ -1,58 +0,0 @@ -object Form1: TForm1 - Left = 1457 - Height = 340 - Top = 5 - Width = 440 - Caption = 'Form1' - ClientHeight = 340 - ClientWidth = 440 - OnCreate = FormCreate - LCLVersion = '1.4.4.0' - inline Frame1_1: TFrame1 - Left = 24 - Height = 81 - Top = 23 - Width = 86 - ClientHeight = 81 - ClientWidth = 86 - inherited StaticText2: TStaticText - Top = 64 - Width = 86 - end - end - object TrackBar1: TTrackBar - Left = 17 - Height = 30 - Top = 128 - Width = 100 - Frequency = 10 - Max = 200 - Min = -50 - OnChange = TrackBar1Change - PageSize = 50 - Position = 0 - TabOrder = 1 - end - object Shape1: TShape - Left = 96 - Height = 65 - Top = 72 - Width = 65 - Shape = stDiamond - end - object Shape2: TShape - Left = 144 - Height = 65 - Top = 23 - Width = 65 - Shape = stEllipse - end - object BitBtn1: TBitBtn - Left = 145 - Height = 30 - Top = 188 - Width = 75 - Caption = 'BitBtn1' - TabOrder = 2 - end -end diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm4/Lfm4_expected.json b/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm4/Lfm4_expected.json deleted file mode 100644 index 4d54aaf9e..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Lfm4/Lfm4_expected.json +++ /dev/null @@ -1 +0,0 @@ -[{"Type":"object","Value":"object","Line":1,"Column":1},{"Type":"identifier","Value":"Form1","Line":1,"Column":8},{"Type":"colon","Value":":","Line":1,"Column":13},{"Type":"identifier","Value":"TForm1","Line":1,"Column":15},{"Type":"identifier","Value":"Left","Line":2,"Column":3},{"Type":"equals","Value":"=","Line":2,"Column":8},{"Type":"number","Value":"1457","Line":2,"Column":10},{"Type":"identifier","Value":"Height","Line":3,"Column":3},{"Type":"equals","Value":"=","Line":3,"Column":10},{"Type":"number","Value":"340","Line":3,"Column":12},{"Type":"identifier","Value":"Top","Line":4,"Column":3},{"Type":"equals","Value":"=","Line":4,"Column":7},{"Type":"number","Value":"5","Line":4,"Column":9},{"Type":"identifier","Value":"Width","Line":5,"Column":3},{"Type":"equals","Value":"=","Line":5,"Column":9},{"Type":"number","Value":"440","Line":5,"Column":11},{"Type":"identifier","Value":"Caption","Line":6,"Column":3},{"Type":"equals","Value":"=","Line":6,"Column":11},{"Type":"string","Value":"Form1","Line":6,"Column":13},{"Type":"identifier","Value":"ClientHeight","Line":7,"Column":3},{"Type":"equals","Value":"=","Line":7,"Column":16},{"Type":"number","Value":"340","Line":7,"Column":18},{"Type":"identifier","Value":"ClientWidth","Line":8,"Column":3},{"Type":"equals","Value":"=","Line":8,"Column":15},{"Type":"number","Value":"440","Line":8,"Column":17},{"Type":"identifier","Value":"OnCreate","Line":9,"Column":3},{"Type":"equals","Value":"=","Line":9,"Column":12},{"Type":"identifier","Value":"FormCreate","Line":9,"Column":14},{"Type":"identifier","Value":"LCLVersion","Line":10,"Column":3},{"Type":"equals","Value":"=","Line":10,"Column":14},{"Type":"string","Value":"1.4.4.0","Line":10,"Column":16},{"Type":"inline","Value":"inline","Line":11,"Column":3},{"Type":"identifier","Value":"Frame1_1","Line":11,"Column":10},{"Type":"colon","Value":":","Line":11,"Column":18},{"Type":"identifier","Value":"TFrame1","Line":11,"Column":20},{"Type":"identifier","Value":"Left","Line":12,"Column":5},{"Type":"equals","Value":"=","Line":12,"Column":10},{"Type":"number","Value":"24","Line":12,"Column":12},{"Type":"identifier","Value":"Height","Line":13,"Column":5},{"Type":"equals","Value":"=","Line":13,"Column":12},{"Type":"number","Value":"81","Line":13,"Column":14},{"Type":"identifier","Value":"Top","Line":14,"Column":5},{"Type":"equals","Value":"=","Line":14,"Column":9},{"Type":"number","Value":"23","Line":14,"Column":11},{"Type":"identifier","Value":"Width","Line":15,"Column":5},{"Type":"equals","Value":"=","Line":15,"Column":11},{"Type":"number","Value":"86","Line":15,"Column":13},{"Type":"identifier","Value":"ClientHeight","Line":16,"Column":5},{"Type":"equals","Value":"=","Line":16,"Column":18},{"Type":"number","Value":"81","Line":16,"Column":20},{"Type":"identifier","Value":"ClientWidth","Line":17,"Column":5},{"Type":"equals","Value":"=","Line":17,"Column":17},{"Type":"number","Value":"86","Line":17,"Column":19},{"Type":"inherited","Value":"inherited","Line":18,"Column":5},{"Type":"identifier","Value":"StaticText2","Line":18,"Column":15},{"Type":"colon","Value":":","Line":18,"Column":26},{"Type":"identifier","Value":"TStaticText","Line":18,"Column":28},{"Type":"identifier","Value":"Top","Line":19,"Column":7},{"Type":"equals","Value":"=","Line":19,"Column":11},{"Type":"number","Value":"64","Line":19,"Column":13},{"Type":"identifier","Value":"Width","Line":20,"Column":7},{"Type":"equals","Value":"=","Line":20,"Column":13},{"Type":"number","Value":"86","Line":20,"Column":15},{"Type":"end","Value":"end","Line":21,"Column":5},{"Type":"end","Value":"end","Line":22,"Column":3},{"Type":"object","Value":"object","Line":23,"Column":3},{"Type":"identifier","Value":"TrackBar1","Line":23,"Column":10},{"Type":"colon","Value":":","Line":23,"Column":19},{"Type":"identifier","Value":"TTrackBar","Line":23,"Column":21},{"Type":"identifier","Value":"Left","Line":24,"Column":5},{"Type":"equals","Value":"=","Line":24,"Column":10},{"Type":"number","Value":"17","Line":24,"Column":12},{"Type":"identifier","Value":"Height","Line":25,"Column":5},{"Type":"equals","Value":"=","Line":25,"Column":12},{"Type":"number","Value":"30","Line":25,"Column":14},{"Type":"identifier","Value":"Top","Line":26,"Column":5},{"Type":"equals","Value":"=","Line":26,"Column":9},{"Type":"number","Value":"128","Line":26,"Column":11},{"Type":"identifier","Value":"Width","Line":27,"Column":5},{"Type":"equals","Value":"=","Line":27,"Column":11},{"Type":"number","Value":"100","Line":27,"Column":13},{"Type":"identifier","Value":"Frequency","Line":28,"Column":5},{"Type":"equals","Value":"=","Line":28,"Column":15},{"Type":"number","Value":"10","Line":28,"Column":17},{"Type":"identifier","Value":"Max","Line":29,"Column":5},{"Type":"equals","Value":"=","Line":29,"Column":9},{"Type":"number","Value":"200","Line":29,"Column":11},{"Type":"identifier","Value":"Min","Line":30,"Column":5},{"Type":"equals","Value":"=","Line":30,"Column":9},{"Type":"minus","Value":"-","Line":30,"Column":11},{"Type":"number","Value":"50","Line":30,"Column":12},{"Type":"identifier","Value":"OnChange","Line":31,"Column":5},{"Type":"equals","Value":"=","Line":31,"Column":14},{"Type":"identifier","Value":"TrackBar1Change","Line":31,"Column":16},{"Type":"identifier","Value":"PageSize","Line":32,"Column":5},{"Type":"equals","Value":"=","Line":32,"Column":14},{"Type":"number","Value":"50","Line":32,"Column":16},{"Type":"identifier","Value":"Position","Line":33,"Column":5},{"Type":"equals","Value":"=","Line":33,"Column":14},{"Type":"number","Value":"0","Line":33,"Column":16},{"Type":"identifier","Value":"TabOrder","Line":34,"Column":5},{"Type":"equals","Value":"=","Line":34,"Column":14},{"Type":"number","Value":"1","Line":34,"Column":16},{"Type":"end","Value":"end","Line":35,"Column":3},{"Type":"object","Value":"object","Line":36,"Column":3},{"Type":"identifier","Value":"Shape1","Line":36,"Column":10},{"Type":"colon","Value":":","Line":36,"Column":16},{"Type":"identifier","Value":"TShape","Line":36,"Column":18},{"Type":"identifier","Value":"Left","Line":37,"Column":5},{"Type":"equals","Value":"=","Line":37,"Column":10},{"Type":"number","Value":"96","Line":37,"Column":12},{"Type":"identifier","Value":"Height","Line":38,"Column":5},{"Type":"equals","Value":"=","Line":38,"Column":12},{"Type":"number","Value":"65","Line":38,"Column":14},{"Type":"identifier","Value":"Top","Line":39,"Column":5},{"Type":"equals","Value":"=","Line":39,"Column":9},{"Type":"number","Value":"72","Line":39,"Column":11},{"Type":"identifier","Value":"Width","Line":40,"Column":5},{"Type":"equals","Value":"=","Line":40,"Column":11},{"Type":"number","Value":"65","Line":40,"Column":13},{"Type":"identifier","Value":"Shape","Line":41,"Column":5},{"Type":"equals","Value":"=","Line":41,"Column":11},{"Type":"identifier","Value":"stDiamond","Line":41,"Column":13},{"Type":"end","Value":"end","Line":42,"Column":3},{"Type":"object","Value":"object","Line":43,"Column":3},{"Type":"identifier","Value":"Shape2","Line":43,"Column":10},{"Type":"colon","Value":":","Line":43,"Column":16},{"Type":"identifier","Value":"TShape","Line":43,"Column":18},{"Type":"identifier","Value":"Left","Line":44,"Column":5},{"Type":"equals","Value":"=","Line":44,"Column":10},{"Type":"number","Value":"144","Line":44,"Column":12},{"Type":"identifier","Value":"Height","Line":45,"Column":5},{"Type":"equals","Value":"=","Line":45,"Column":12},{"Type":"number","Value":"65","Line":45,"Column":14},{"Type":"identifier","Value":"Top","Line":46,"Column":5},{"Type":"equals","Value":"=","Line":46,"Column":9},{"Type":"number","Value":"23","Line":46,"Column":11},{"Type":"identifier","Value":"Width","Line":47,"Column":5},{"Type":"equals","Value":"=","Line":47,"Column":11},{"Type":"number","Value":"65","Line":47,"Column":13},{"Type":"identifier","Value":"Shape","Line":48,"Column":5},{"Type":"equals","Value":"=","Line":48,"Column":11},{"Type":"identifier","Value":"stEllipse","Line":48,"Column":13},{"Type":"end","Value":"end","Line":49,"Column":3},{"Type":"object","Value":"object","Line":50,"Column":3},{"Type":"identifier","Value":"BitBtn1","Line":50,"Column":10},{"Type":"colon","Value":":","Line":50,"Column":17},{"Type":"identifier","Value":"TBitBtn","Line":50,"Column":19},{"Type":"identifier","Value":"Left","Line":51,"Column":5},{"Type":"equals","Value":"=","Line":51,"Column":10},{"Type":"number","Value":"145","Line":51,"Column":12},{"Type":"identifier","Value":"Height","Line":52,"Column":5},{"Type":"equals","Value":"=","Line":52,"Column":12},{"Type":"number","Value":"30","Line":52,"Column":14},{"Type":"identifier","Value":"Top","Line":53,"Column":5},{"Type":"equals","Value":"=","Line":53,"Column":9},{"Type":"number","Value":"188","Line":53,"Column":11},{"Type":"identifier","Value":"Width","Line":54,"Column":5},{"Type":"equals","Value":"=","Line":54,"Column":11},{"Type":"number","Value":"75","Line":54,"Column":13},{"Type":"identifier","Value":"Caption","Line":55,"Column":5},{"Type":"equals","Value":"=","Line":55,"Column":13},{"Type":"string","Value":"BitBtn1","Line":55,"Column":15},{"Type":"identifier","Value":"TabOrder","Line":56,"Column":5},{"Type":"equals","Value":"=","Line":56,"Column":14},{"Type":"number","Value":"2","Line":56,"Column":16},{"Type":"end","Value":"end","Line":57,"Column":3},{"Type":"end","Value":"end","Line":58,"Column":1},{"Type":"eof","Value":"","Line":59,"Column":1}] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test1/ReadMe.md b/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test1/ReadMe.md deleted file mode 100644 index ed94aa9c7..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test1/ReadMe.md +++ /dev/null @@ -1,9 +0,0 @@ -# Test1 - -Dieser Test prft die minimalen Strukturen: -- Einfacher `begin..end.`-Block. -- Zuweisung `:=` mit numerischer Konstante. - -Dateien: -- `Test1_Source.pas`: Quelltext. -- `Test1_ExpectedTokens.json`: Erwartete Tokenliste. diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test1/Test1_ExpectedCodeBlocks.json b/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test1/Test1_ExpectedCodeBlocks.json deleted file mode 100644 index 625109b6b..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test1/Test1_ExpectedCodeBlocks.json +++ /dev/null @@ -1,41 +0,0 @@ -[ - { - "Name": "PascalRoot", - "Code": "", - "Type": "MainBlock", - "SubBlocks": [ - { - "Name": "Body", - "Code": "begin", - "Type": "Block", - "SubBlocks": [ - { - "Name": "Assignment", - "Code": ":=", - "Type": "Assignment", - "SubBlocks": [ - { - "Name": "Variable", - "Code": "X", - "Type": "Variable", - "SubBlocks": [] - }, - { - "Name": "Number", - "Code": "10", - "Type": "Number", - "SubBlocks": [] - } - ] - } - ] - }, - { - "Name": "Operation", - "Code": ".", - "Type": "Operation", - "SubBlocks": [] - } - ] - } -] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test1/Test1_ExpectedTokens.json b/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test1/Test1_ExpectedTokens.json deleted file mode 100644 index 89feb3818..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test1/Test1_ExpectedTokens.json +++ /dev/null @@ -1 +0,0 @@ -[{"Code":"Begin","type":"block","Level":1,"Pos":0},{"Code":"X","type":"variable","Level":1,"Pos":10},{"Code":":=","type":"assignment","Level":1,"Pos":11},{"Code":"10","type":"number","Level":1,"Pos":15},{"Code":";","type":"separator","Level":1,"Pos":17},{"Code":"end","type":"block","Level":1,"Pos":20},{"Code":".","type":"operation","Level":0,"Pos":23}] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test1/Test1_Source.pas b/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test1/Test1_Source.pas deleted file mode 100644 index f8ddc7ab6..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test1/Test1_Source.pas +++ /dev/null @@ -1,3 +0,0 @@ -Begin - X := 10; -end. \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test2/ReadMe.md b/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test2/ReadMe.md deleted file mode 100644 index 4febedfd3..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test2/ReadMe.md +++ /dev/null @@ -1,10 +0,0 @@ -# Test2 - -Dieser Test prft: -- Variable-Deklaration vor dem Block. -- Hexadezimale Zahl `$B10F`. -- Struktur mit `var`, `begin`, Zuweisung und Abschluss `end.`. - -Dateien: -- `Test2_Source.pas` -- `Test2_ExpectedTokens.json` diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test2/Test2_ExpectedCodeBlocks.json b/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test2/Test2_ExpectedCodeBlocks.json deleted file mode 100644 index 25c573e37..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test2/Test2_ExpectedCodeBlocks.json +++ /dev/null @@ -1,42 +0,0 @@ -[ - { - "name": "PascalRoot", - "type": "mainBlock", - "code": "", - "subBlocks": [ - { - "name": "Declaration", - "type": "declaration", - "code": "var", - "subBlocks": [ - { - "name": "Operation", - "type": "operation", - "code": ":", - "subBlocks": [ - { "name": "Variable", "type": "variable", "code": "x", "subBlocks": [] }, - { "name": "Type", "type": "variable", "code": "integer", "subBlocks": [] } - ] - } - ] - }, - { - "name": "Body", - "type": "block", - "code": "begin", - "subBlocks": [ - { - "name": "Assignment", - "type": "assignment", - "code": ":=", - "subBlocks": [ - { "name": "Variable", "type": "variable", "code": "x", "subBlocks": [] }, - { "name": "Number", "type": "number", "code": "$B10F", "subBlocks": [] } - ] - } - ] - }, - { "name": "Operation", "type": "operation", "code": ".", "subBlocks": [] } - ] - } -] diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test2/Test2_ExpectedTokens.json b/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test2/Test2_ExpectedTokens.json deleted file mode 100644 index 04316e41b..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test2/Test2_ExpectedTokens.json +++ /dev/null @@ -1 +0,0 @@ -[{"Code":"var","type":"operation","Level":0,"Pos":0},{"Code":"x","type":"variable","Level":0,"Pos":4},{"Code":":","type":"operation","Level":0,"Pos":5},{"Code":"integer","type":"variable","Level":0,"Pos":6},{"Code":";","type":"separator","Level":0,"Pos":13},{"Code":"begin","type":"block","Level":1,"Pos":16},{"Code":"x","type":"variable","Level":1,"Pos":27},{"Code":":=","type":"assignment","Level":1,"Pos":28},{"Code":"$B10F","type":"number","Level":1,"Pos":32},{"Code":";","type":"separator","Level":1,"Pos":37},{"Code":"end","type":"block","Level":1,"Pos":40},{"Code":".","type":"operation","Level":0,"Pos":43}] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test2/Test2_Source.pas b/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test2/Test2_Source.pas deleted file mode 100644 index a4d289ebd..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test2/Test2_Source.pas +++ /dev/null @@ -1,4 +0,0 @@ -var x:integer; -begin - x := $B10F; -end. \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test3/ReadMe.md b/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test3/ReadMe.md deleted file mode 100644 index c28388e10..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test3/ReadMe.md +++ /dev/null @@ -1,9 +0,0 @@ -# Test3 - -Dieser Test prft: -- Tokenisierung einer einfachen Programmeinheit mit `program`, `var`-Deklarationen und `begin..end.`-Block. -- Zuweisungen, Zahlen, Operator `+`, Separator `;`, und Abschluss `.`. - -Dateien: -- `Test3_Source.pas`: Pascal-Quelltext. -- `Test3_ExpectedTokens.json`: Erwartete Tokenliste fr `Tokenize`. diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test3/Test3_ExpectedCodeBlocks.json b/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test3/Test3_ExpectedCodeBlocks.json deleted file mode 100644 index 778b037a7..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test3/Test3_ExpectedCodeBlocks.json +++ /dev/null @@ -1,137 +0,0 @@ -[ - { - "name": "Test3", - "type": "mainBlock", - "code": "Program", - "subBlocks": [ - { - "name": "Declaration", - "type": "declaration", - "code": "var", - "subBlocks": [ - { - "name": "Operation", - "type": "operation", - "code": ":", - "subBlocks": [ - { - "name": "Operation", - "type": "operation", - "code": ",", - "subBlocks": [ - { - "name": "Variable", - "type": "variable", - "code": "a", - "subBlocks": [] - }, - { - "name": "Variable", - "type": "variable", - "code": "b", - "subBlocks": [] - }, - { - "name": "Variable", - "type": "variable", - "code": "c", - "subBlocks": [] - } - ] - }, - { - "name": "Type", - "type": "variable", - "code": "Integer", - "subBlocks": [] - } - ] - } - ] - }, - { - "name": "Body", - "type": "block", - "code": "begin", - "subBlocks": [ - { - "name": "Assignment", - "type": "assignment", - "code": ":=", - "subBlocks": [ - { - "name": "Variable", - "type": "variable", - "code": "a", - "subBlocks": [] - }, - { - "name": "Number", - "type": "number", - "code": "1", - "subBlocks": [] - } - ] - }, - { - "name": "Assignment", - "type": "assignment", - "code": ":=", - "subBlocks": [ - { - "name": "Variable", - "type": "variable", - "code": "b", - "subBlocks": [] - }, - { - "name": "Number", - "type": "number", - "code": "2", - "subBlocks": [] - } - ] - }, - { - "name": "Assignment", - "type": "assignment", - "code": ":=", - "subBlocks": [ - { - "name": "Variable", - "type": "variable", - "code": "c", - "subBlocks": [] - }, - { - "name": "Operation", - "type": "operation", - "code": "+", - "subBlocks": [ - { - "name": "Variable", - "type": "variable", - "code": "a", - "subBlocks": [] - }, - { - "name": "Variable", - "type": "variable", - "code": "b", - "subBlocks": [] - } - ] - } - ] - } - ] - }, - { - "name": "Operation", - "type": "operation", - "code": ".", - "subBlocks": [] - } - ] - } -] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test3/Test3_ExpectedTokens.json b/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test3/Test3_ExpectedTokens.json deleted file mode 100644 index 9b4900ab7..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test3/Test3_ExpectedTokens.json +++ /dev/null @@ -1,31 +0,0 @@ -[ - {"Code":"program","type":"operation","Level":0,"Pos":0}, - {"Code":"Test3","type":"variable","Level":0,"Pos":8}, - {"Code":";","type":"separator","Level":0,"Pos":13}, - {"Code":"var","type":"operation","Level":0,"Pos":16}, - {"Code":"a","type":"variable","Level":0,"Pos":20}, - {"Code":",","type":"operation","Level":0,"Pos":21}, - {"Code":"b","type":"variable","Level":0,"Pos":23}, - {"Code":",","type":"operation","Level":0,"Pos":24}, - {"Code":"c","type":"variable","Level":0,"Pos":26}, - {"Code":":","type":"operation","Level":0,"Pos":27}, - {"Code":"Integer","type":"variable","Level":0,"Pos":29}, - {"Code":";","type":"separator","Level":0,"Pos":36}, - {"Code":"begin","type":"block","Level":1,"Pos":39}, - {"Code":"a","type":"variable","Level":1,"Pos":47}, - {"Code":":=","type":"assignment","Level":1,"Pos":49}, - {"Code":"1","type":"number","Level":1,"Pos":54}, - {"Code":";","type":"separator","Level":1,"Pos":55}, - {"Code":"b","type":"variable","Level":1,"Pos":59}, - {"Code":":=","type":"assignment","Level":1,"Pos":61}, - {"Code":"2","type":"number","Level":1,"Pos":66}, - {"Code":";","type":"separator","Level":1,"Pos":67}, - {"Code":"c","type":"variable","Level":1,"Pos":71}, - {"Code":":=","type":"assignment","Level":1,"Pos":73}, - {"Code":"a","type":"variable","Level":1,"Pos":78}, - {"Code":"+","type":"operation","Level":1,"Pos":80}, - {"Code":"b","type":"variable","Level":1,"Pos":82}, - {"Code":";","type":"separator","Level":1,"Pos":83}, - {"Code":"end","type":"block","Level":1,"Pos":85}, - {"Code":".","type":"operation","Level":0,"Pos":88} -] diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test3/Test3_Source.pas b/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test3/Test3_Source.pas deleted file mode 100644 index 437754416..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test3/Test3_Source.pas +++ /dev/null @@ -1,10 +0,0 @@ -program Test3; - -var - a, b, c: Integer; - -begin - a := 1; - b := 2; - c := a + b; -end. diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test4/ReadMe.md b/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test4/ReadMe.md deleted file mode 100644 index 379d38ef5..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test4/ReadMe.md +++ /dev/null @@ -1,10 +0,0 @@ -# Test4 - -Dieser Test prft: -- Tokenisierung mit Zeilen- und Blockkommentaren (`//`, `(* *)`, `{ }`). -- Hexadezimale Zahlen mit `$`-Prfix (z. B. `$10`, `$0F`). -- Einfache arithmetische Operationen und Zuweisungen. - -Dateien: -- `Test4_Source.pas`: Pascal-Quelltext mit Kommentaren und Hexzahlen. -- `Test4_ExpectedTokens.json`: Erwartete Tokenliste fr `Tokenize`. diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test4/Test4_ExpectedCodeBlocks.json b/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test4/Test4_ExpectedCodeBlocks.json deleted file mode 100644 index bcba450ba..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test4/Test4_ExpectedCodeBlocks.json +++ /dev/null @@ -1,130 +0,0 @@ -[ - { - "name": "Test4", - "type": "mainBlock", - "code": "Program", - "subBlocks": [ - { - "name": "Declaration", - "type": "declaration", - "code": "var", - "subBlocks": [ - { - "name": "Operation", - "type": "operation", - "code": ":", - "subBlocks": [ - { - "name": "Variable", - "type": "variable", - "code": "x", - "subBlocks": [] - }, - { - "name": "Type", - "type": "variable", - "code": "Integer", - "subBlocks": [] - } - ] - } - ] - }, - { - "name": "Body", - "type": "block", - "code": "begin", - "subBlocks": [ - { - "name": "FLComment", - "type": "FlComment", - "code": "// Kommentar", - "subBlocks": [] - }, - { - "name": "Assignment", - "type": "assignment", - "code": ":=", - "subBlocks": [ - { - "name": "Variable", - "type": "variable", - "code": "x", - "subBlocks": [] - }, - { - "name": "Operation", - "type": "operation", - "code": "+", - "subBlocks": [ - { - "name": "Number", - "type": "number", - "code": "$10", - "subBlocks": [] - }, - { - "name": "Number", - "type": "number", - "code": "$0F", - "subBlocks": [] - } - ] - }, - { - "name": "Comment", - "type": "comment", - "code": "(* hex addition *)", - "subBlocks": [] - } - ] - }, - { - "name": "Assignment", - "type": "assignment", - "code": ":=", - "subBlocks": [ - { - "name": "Variable", - "type": "variable", - "code": "x", - "subBlocks": [] - }, - { - "name": "Operation", - "type": "operation", - "code": "-", - "subBlocks": [ - { - "name": "Variable", - "type": "variable", - "code": "x", - "subBlocks": [] - }, - { - "name": "Number", - "type": "number", - "code": "1", - "subBlocks": [] - } - ] - } - ] - }, - { - "name": "FLComment", - "type": "FlComment", - "code": "{ block comment }", - "subBlocks": [] - } - ] - }, - { - "name": "Operation", - "type": "operation", - "code": ".", - "subBlocks": [] - } - ] - } -] diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test4/Test4_ExpectedTokens.json b/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test4/Test4_ExpectedTokens.json deleted file mode 100644 index 338e6c475..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test4/Test4_ExpectedTokens.json +++ /dev/null @@ -1,28 +0,0 @@ -[ - {"Code":"program","type":"operation","Level":0}, - {"Code":"Test4","type":"variable","Level":0}, - {"Code":";","type":"separator","Level":0}, - {"Code":"var","type":"operation","Level":0}, - {"Code":"x","type":"variable","Level":0}, - {"Code":":","type":"operation","Level":0}, - {"Code":"Integer","type":"variable","Level":0}, - {"Code":";","type":"separator","Level":0}, - {"Code":"begin","type":"block","Level":1}, - {"Code":"// Kommentar","type":"FLComment","Level":1}, - {"Code":"x","type":"variable","Level":1}, - {"Code":":=","type":"assignment","Level":1}, - {"Code":"$10","type":"number","Level":1}, - {"Code":"+","type":"operation","Level":1}, - {"Code":"$0F","type":"number","Level":1}, - {"Code":";","type":"separator","Level":1}, - {"Code":"(* hex addition *)","type":"comment","Level":1}, - {"Code":"x","type":"variable","Level":1}, - {"Code":":=","type":"assignment","Level":1}, - {"Code":"x","type":"variable","Level":1}, - {"Code":"-","type":"operation","Level":1}, - {"Code":"1","type":"number","Level":1}, - {"Code":";","type":"separator","Level":1}, - {"Code":"{ block comment }","type":"FLComment","Level":1}, - {"Code":"end","type":"block","Level":1}, - {"Code":".","type":"operation","Level":0} -] diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test4/Test4_Source.pas b/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test4/Test4_Source.pas deleted file mode 100644 index 26946eb93..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test4/Test4_Source.pas +++ /dev/null @@ -1,11 +0,0 @@ -program Test4; - -var - x: Integer; - -begin - // Kommentar - x := $10 + $0F; (* hex addition *) - x := x - 1; - { block comment } -end. diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test4/Test4_actual_codeblocks.json b/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test4/Test4_actual_codeblocks.json deleted file mode 100644 index 5d542c9d0..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test4/Test4_actual_codeblocks.json +++ /dev/null @@ -1,130 +0,0 @@ -[ - { - "Name": "Test4", - "Code": "Program", - "Type": "MainBlock", - "SubBlocks": [ - { - "Name": "Declaration", - "Code": "var", - "Type": "Declaration", - "SubBlocks": [ - { - "Name": "Operation", - "Code": ":", - "Type": "Operation", - "SubBlocks": [ - { - "Name": "Variable", - "Code": "x", - "Type": "Variable", - "SubBlocks": [] - }, - { - "Name": "Type", - "Code": "Integer", - "Type": "Variable", - "SubBlocks": [] - } - ] - } - ] - }, - { - "Name": "Body", - "Code": "begin", - "Type": "Block", - "SubBlocks": [ - { - "Name": "FLComment", - "Code": "// Kommentar", - "Type": "FLComment", - "SubBlocks": [] - }, - { - "Name": "Assignment", - "Code": ":=", - "Type": "Assignment", - "SubBlocks": [ - { - "Name": "Variable", - "Code": "x", - "Type": "Variable", - "SubBlocks": [] - }, - { - "Name": "Operation", - "Code": "\u002B", - "Type": "Operation", - "SubBlocks": [ - { - "Name": "Number", - "Code": "$10", - "Type": "Number", - "SubBlocks": [] - }, - { - "Name": "Number", - "Code": "$0F", - "Type": "Number", - "SubBlocks": [] - } - ] - }, - { - "Name": "Comment", - "Code": "(* hex addition *)", - "Type": "Comment", - "SubBlocks": [] - } - ] - }, - { - "Name": "Assignment", - "Code": ":=", - "Type": "Assignment", - "SubBlocks": [ - { - "Name": "Variable", - "Code": "x", - "Type": "Variable", - "SubBlocks": [] - }, - { - "Name": "Operation", - "Code": "-", - "Type": "Operation", - "SubBlocks": [ - { - "Name": "Variable", - "Code": "x", - "Type": "Variable", - "SubBlocks": [] - }, - { - "Name": "Number", - "Code": "1", - "Type": "Number", - "SubBlocks": [] - } - ] - } - ] - }, - { - "Name": "FLComment", - "Code": "{ block comment }", - "Type": "FLComment", - "SubBlocks": [] - } - ] - }, - { - "Name": "Operation", - "Code": ".", - "Type": "Operation", - "SubBlocks": [] - } - ] - } -] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test5/ReadMe.md b/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test5/ReadMe.md deleted file mode 100644 index 379d38ef5..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test5/ReadMe.md +++ /dev/null @@ -1,10 +0,0 @@ -# Test4 - -Dieser Test prft: -- Tokenisierung mit Zeilen- und Blockkommentaren (`//`, `(* *)`, `{ }`). -- Hexadezimale Zahlen mit `$`-Prfix (z. B. `$10`, `$0F`). -- Einfache arithmetische Operationen und Zuweisungen. - -Dateien: -- `Test4_Source.pas`: Pascal-Quelltext mit Kommentaren und Hexzahlen. -- `Test4_ExpectedTokens.json`: Erwartete Tokenliste fr `Tokenize`. diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test5/Test5_ExpectedCodeBlocks.json b/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test5/Test5_ExpectedCodeBlocks.json deleted file mode 100644 index 5156cba98..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test5/Test5_ExpectedCodeBlocks.json +++ /dev/null @@ -1 +0,0 @@ -[{"Name":"PascalRoot","Code":"","Type":"MainBlock","SubBlocks":[{"Name":"Assignment","Code":":=","Type":"Assignment","SubBlocks":[{"Name":"Variable","Code":"x","Type":"Variable","SubBlocks":[]},{"Name":"Operation","Code":"-","Type":"Operation","SubBlocks":[{"Name":"Variable","Code":"x","Type":"Variable","SubBlocks":[]},{"Name":"Number","Code":"1","Type":"Number","SubBlocks":[]}]}]}]}] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test5/Test5_ExpectedTokens.json b/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test5/Test5_ExpectedTokens.json deleted file mode 100644 index 1115be955..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test5/Test5_ExpectedTokens.json +++ /dev/null @@ -1 +0,0 @@ -[{"Code":"x","type":"variable","Level":0,"Pos":0},{"Code":":=","type":"assignment","Level":0,"Pos":1},{"Code":"x","type":"variable","Level":0,"Pos":5},{"Code":"-","type":"operation","Level":0,"Pos":6},{"Code":"1","type":"number","Level":0,"Pos":9},{"Code":";","type":"separator","Level":0,"Pos":10}] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test5/Test5_Source.pas b/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test5/Test5_Source.pas deleted file mode 100644 index 25f90d223..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/Resources/Test5/Test5_Source.pas +++ /dev/null @@ -1 +0,0 @@ -x := x - 1; \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib.Pascal.Tests/TranspilerLib.Pascal.Tests.csproj b/Transpiler_pp/TranspilerLib.Pascal.Tests/TranspilerLib.Pascal.Tests.csproj deleted file mode 100644 index f9907da3b..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal.Tests/TranspilerLib.Pascal.Tests.csproj +++ /dev/null @@ -1,41 +0,0 @@ - - - - net8.0 - enable - false - true - TranspilerLib.Pascal - - - - - $(TargetFrameworks);net9.0 - - - $(TargetFrameworks);net10.0 - - - - - - - - all - runtime; build; native; contentfiles; analyzers; buildtransitive - - - - - - - - - PreserveNewest - - - - - - - diff --git a/Transpiler_pp/TranspilerLib.Pascal/Data/EPasResWords.cs b/Transpiler_pp/TranspilerLib.Pascal/Data/EPasResWords.cs deleted file mode 100644 index 32b7043b9..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal/Data/EPasResWords.cs +++ /dev/null @@ -1,44 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using System.Text; -using System.Threading.Tasks; - -namespace TranspilerLib.Pascal.Data; - -public enum EPasResWords -{ - PROGRAM, - UNIT, - INTERFACE, - IMPLEMENTATION, - USES, - BEGIN, - END, - VAR, - CONST, - TYPE, - FUNCTION, - PROCEDURE, - IF, - THEN, - ELSE, - FOR, - TO, - DOWNTO, - DO, - WHILE, - REPEAT, - UNTIL, - CASE, - OF, - WITH, - TRY, - EXCEPT, - FINALLY, - CLASS, - PRIVATE, - PUBLIC, - PROTECTED, - PUBLISHED -} diff --git a/Transpiler_pp/TranspilerLib.Pascal/Data/PasReservedWords.cs b/Transpiler_pp/TranspilerLib.Pascal/Data/PasReservedWords.cs deleted file mode 100644 index 3a1a794cc..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal/Data/PasReservedWords.cs +++ /dev/null @@ -1,11 +0,0 @@ -using System; - -namespace TranspilerLib.Pascal.Data; - -/// -/// Pascal / Delphi reserved words subset. Extend list as needed. -/// -public static class PasReservedWords -{ - public static readonly string[] Words = Enum.GetNames(typeof(EPasResWords)); -} diff --git a/Transpiler_pp/TranspilerLib.Pascal/Interpreter/PasInterpreter.cs b/Transpiler_pp/TranspilerLib.Pascal/Interpreter/PasInterpreter.cs deleted file mode 100644 index f3f114d60..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal/Interpreter/PasInterpreter.cs +++ /dev/null @@ -1,198 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using System.Runtime.ConstrainedExecution; -using System.Text; -using System.Threading.Tasks; -using TranspilerLib.Data; -using TranspilerLib.Interfaces.Code; -using TranspilerLib.Pascal.Data; // hinzugefügt für PasReservedWords - -namespace TranspilerLib.Pascal.Interpreter; - -public class PasInterpreter -{ - // Pseudocode Änderung: - // - Feste Liste der Schlüsselwörter durch PasReservedWords.Words ersetzen. - // - Zusätzliche nicht in PasReservedWords.Words enthaltene Pascal/Delphi Schlüsselwörter ergänzen. - // - Als HashSet zwischenspeichern (case-insensitive). - private static readonly HashSet ReservedWordSet = new( - PasReservedWords.Words - .Concat( - [ - // Zusätzliche Operatoren / Literale / Kontrollworte - "AND","OR","NOT","DIV","MOD","TRUE","FALSE","BREAK","CONTINUE","EXIT","NIL","GOTO","RECORD" - ]), - StringComparer.OrdinalIgnoreCase - ); - - public bool Interpret(ICodeBlock codeBlock) - { - if (Prepare(codeBlock)) - { - return Execute(codeBlock); - } - else - { - return false; - } - } - - public Dictionary Variables { get; set; } = new(); - public Dictionary> Externals { get; set; } = new(); - - private bool Execute(ICodeBlock codeBlock) - { - // Todo: Implement execution logic here - return true; - } - - public bool Prepare(ICodeBlock codeBlock) - { - if (codeBlock is null) return false; - - var declaredVars = new HashSet(StringComparer.OrdinalIgnoreCase); - var declaredFuncs = new HashSet(StringComparer.OrdinalIgnoreCase); - var externalCallCandidates = new HashSet(StringComparer.OrdinalIgnoreCase); - - Walk(codeBlock, declaredVars, declaredFuncs, externalCallCandidates); - - foreach (var name in externalCallCandidates) - { - if (declaredFuncs.Contains(name)) continue; - if (!Externals.ContainsKey(name)) - { - var localName = name; - Externals[localName] = (obj) => - throw new InvalidOperationException($"External '{localName}' is not linked."); - } - } - - return true; - } - - private void Walk(ICodeBlock node, HashSet? declaredVars, HashSet? declaredFuncs, HashSet? externalCallCandidates) - { - switch (node.Type) - { - case CodeBlockType.Variable: - case CodeBlockType.Declaration: - case CodeBlockType.Parameter: - ParseVariableDecl(node, declaredVars); - break; - case CodeBlockType.Function: - ParseFunctionDecl(node, declaredFuncs); - break; - default: - break; - } - - ExtractExternalCalls(node, declaredFuncs, externalCallCandidates); - - var subs = node.SubBlocks; - if (subs is not null) - { - for (int i = 0; i < subs.Count; i++) - { - var child = subs[i]; - if (child is not null) - Walk(child, declaredVars, declaredFuncs, externalCallCandidates); - } - } - } - - private static void ExtractExternalCalls(ICodeBlock node, HashSet? declaredFuncs, HashSet? externalCallCandidates) - { - if (externalCallCandidates is null) return; - - var code = node.Code ?? string.Empty; - code = StripStrings(code); - - // Einzelnes Wort direkt als Schlüsselwort / Funktionsname prüfen - if (ReservedWordSet.Contains(code)) return; - if (declaredFuncs != null && declaredFuncs.Contains(code)) return; - - externalCallCandidates.Add(code); - } - - private static string StripStrings(string s) - { - if (string.IsNullOrEmpty(s)) return s ?? string.Empty; - var sb = new StringBuilder(s.Length); - var inStr = false; - - for (int i = 0; i < s.Length; i++) - { - var c = s[i]; - if (c == '\'') - { - if (inStr) - { - if (i + 1 < s.Length && s[i + 1] == '\'') - { - i++; // skip escaped apostrophe - continue; - } - inStr = false; - } - else - { - inStr = true; - } - continue; - } - if (!inStr) sb.Append(c); - } - return sb.ToString(); - } - - private static void ParseFunctionDecl(ICodeBlock node, HashSet? declaredFuncs) - { - if (declaredFuncs is null) return; - - if (!string.IsNullOrWhiteSpace(node.Name)) - { - declaredFuncs.Add(node.Name.Trim()); - return; - } - - var code = node.Code ?? string.Empty; - var m = System.Text.RegularExpressions.Regex.Match( - code, - @"\b(function|procedure)\s+([A-Za-z_]\w*)", - System.Text.RegularExpressions.RegexOptions.IgnoreCase - ); - if (m.Success) - declaredFuncs.Add(m.Groups[2].Value); - } - - private void ParseVariableDecl(ICodeBlock node, HashSet? declaredVars) - { - if (declaredVars is null) return; - - if (!string.IsNullOrWhiteSpace(node.Name)) - { - RegisterVariable(node.Name, declaredVars); - return; - } - - var code = node.Code ?? string.Empty; - var beforeColon = code; - var colonIdx = code.IndexOf(':'); - if (colonIdx >= 0) beforeColon = code[..colonIdx]; - - foreach (var part in beforeColon.Split(',', StringSplitOptions.RemoveEmptyEntries | StringSplitOptions.TrimEntries)) - RegisterVariable(part, declaredVars); - } - - private void RegisterVariable(string? name, HashSet? declaredVars) - { - if (declaredVars is null) return; - if (string.IsNullOrWhiteSpace(name)) return; - var clean = name.Trim(); - if (!declaredVars.Contains(clean)) - declaredVars.Add(clean); - if (!Variables.ContainsKey(clean)) - Variables[clean] = null!; - } -} diff --git a/Transpiler_pp/TranspilerLib.Pascal/Models/LfmObject.cs b/Transpiler_pp/TranspilerLib.Pascal/Models/LfmObject.cs deleted file mode 100644 index 56534224a..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal/Models/LfmObject.cs +++ /dev/null @@ -1,19 +0,0 @@ -using System.Collections.Generic; - -namespace TranspilerLib.Pascal.Models; - -public class LfmObject -{ - public string Name { get; set; } = string.Empty; - public string TypeName { get; set; } = string.Empty; - public bool IsInherited { get; set; } - public bool IsInline { get; set; } - public List Properties { get; } = []; - public List Children { get; } = []; - - public override string ToString() - { - var keyword = IsInline ? "inline" : (IsInherited ? "inherited" : "object"); - return $"{keyword} {Name}: {TypeName} (Properties: {Properties.Count}, Children: {Children.Count})"; - } -} diff --git a/Transpiler_pp/TranspilerLib.Pascal/Models/LfmObjectBuilder.cs b/Transpiler_pp/TranspilerLib.Pascal/Models/LfmObjectBuilder.cs deleted file mode 100644 index 46a2557b4..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal/Models/LfmObjectBuilder.cs +++ /dev/null @@ -1,393 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using System.Text; -using System.Threading.Tasks; - -namespace TranspilerLib.Pascal.Models; - -/// -/// Builds an object tree from LFM tokens. -/// -public class LfmObjectBuilder -{ - private IEnumerator? _tokenEnumerator; - private LfmToken _currentToken = new(LfmTokenType.EOF, "", 0, 0); - - /// - /// Builds an LfmObject tree from the given token stream. - /// - /// The token stream from LfmTokenizer - /// The root LfmObject, or null if parsing fails - public LfmObject? Build(IEnumerable tokens) - { - _tokenEnumerator = tokens.GetEnumerator(); - Advance(); - - if (_currentToken.Type == LfmTokenType.OBJECT || - _currentToken.Type == LfmTokenType.INHERITED || - _currentToken.Type == LfmTokenType.INLINE) - { - return ParseObject(); - } - - return null; - } - - private void Advance() - { - if (_tokenEnumerator != null && _tokenEnumerator.MoveNext()) - { - _currentToken = _tokenEnumerator.Current; - } - else - { - _currentToken = new LfmToken(LfmTokenType.EOF, "", 0, 0); - } - } - - private LfmToken Expect(LfmTokenType type) - { - if (_currentToken.Type != type) - { - throw new InvalidOperationException( - $"Expected {type} but found {_currentToken.Type} at line {_currentToken.Line}, column {_currentToken.Column}"); - } - var token = _currentToken; - Advance(); - return token; - } - - private LfmObject ParseObject() - { - var obj = new LfmObject - { - IsInherited = _currentToken.Type == LfmTokenType.INHERITED, - IsInline = _currentToken.Type == LfmTokenType.INLINE - }; - - Advance(); // consume 'object', 'inherited', or 'inline' - - // Parse object name - var nameToken = Expect(LfmTokenType.IDENTIFIER); - obj.Name = nameToken.Value; - - // Expect colon - Expect(LfmTokenType.COLON); - - // Parse type name (may include dots like TForm1.Panel1) - obj.TypeName = ParseTypeName(); - - // Parse properties and nested objects until 'end' - while (_currentToken.Type != LfmTokenType.END && _currentToken.Type != LfmTokenType.EOF) - { - if (_currentToken.Type == LfmTokenType.OBJECT || - _currentToken.Type == LfmTokenType.INHERITED || - _currentToken.Type == LfmTokenType.INLINE) - { - var childObject = ParseObject(); - if (childObject != null) - { - obj.Children.Add(childObject); - } - } - else if (_currentToken.Type == LfmTokenType.IDENTIFIER) - { - var property = ParseProperty(); - if (property != null) - { - obj.Properties.Add(property); - } - } - else - { - // Unexpected token, skip - Advance(); - } - } - - // Consume 'end' - if (_currentToken.Type == LfmTokenType.END) - { - Advance(); - } - - return obj; - } - - private string ParseTypeName() - { - var sb = new StringBuilder(); - var nameToken = Expect(LfmTokenType.IDENTIFIER); - sb.Append(nameToken.Value); - - // Handle qualified names like TForm1.Panel1 - while (_currentToken.Type == LfmTokenType.DOT) - { - sb.Append('.'); - Advance(); // consume dot - nameToken = Expect(LfmTokenType.IDENTIFIER); - sb.Append(nameToken.Value); - } - - // Handle generic-like syntax - if (_currentToken.Type == LfmTokenType.LANGLE) - { - sb.Append('<'); - Advance(); - if (_currentToken.Type == LfmTokenType.IDENTIFIER) - { - sb.Append(_currentToken.Value); - Advance(); - } - if (_currentToken.Type == LfmTokenType.RANGLE) - { - sb.Append('>'); - Advance(); - } - } - - return sb.ToString(); - } - - private LfmProperty? ParseProperty() - { - var property = new LfmProperty(); - - // Property name (may be qualified like Font.Name) - var nameBuilder = new StringBuilder(); - var nameToken = Expect(LfmTokenType.IDENTIFIER); - nameBuilder.Append(nameToken.Value); - - while (_currentToken.Type == LfmTokenType.DOT) - { - nameBuilder.Append('.'); - Advance(); - nameToken = Expect(LfmTokenType.IDENTIFIER); - nameBuilder.Append(nameToken.Value); - } - - property.Name = nameBuilder.ToString(); - - // Expect equals - Expect(LfmTokenType.EQUALS); - - // Parse value - property.Value = ParseValue(property); - - return property; - } - - private object? ParseValue(LfmProperty property) - { - switch (_currentToken.Type) - { - case LfmTokenType.STRING: - var stringValue = _currentToken.Value; - Advance(); - // Handle string continuation with + - while (_currentToken.Type == LfmTokenType.PLUS) - { - Advance(); // consume + - if (_currentToken.Type == LfmTokenType.STRING) - { - stringValue += _currentToken.Value; - Advance(); - } - } - property.PropertyType = LfmPropertyType.Simple; - return stringValue; - - case LfmTokenType.NUMBER: - var numValue = _currentToken.Value; - Advance(); - property.PropertyType = LfmPropertyType.Simple; - if (int.TryParse(numValue, out int intResult)) - return intResult; - if (double.TryParse(numValue, out double doubleResult)) - return doubleResult; - return numValue; - - case LfmTokenType.MINUS: - Advance(); // consume - - if (_currentToken.Type == LfmTokenType.NUMBER) - { - var negNumValue = "-" + _currentToken.Value; - Advance(); - property.PropertyType = LfmPropertyType.Simple; - if (int.TryParse(negNumValue, out int negIntResult)) - return negIntResult; - if (double.TryParse(negNumValue, out double negDoubleResult)) - return negDoubleResult; - return negNumValue; - } - return null; - - case LfmTokenType.BOOLEAN: - var boolValue = _currentToken.Value.Equals("true", StringComparison.OrdinalIgnoreCase); - Advance(); - property.PropertyType = LfmPropertyType.Simple; - return boolValue; - - case LfmTokenType.IDENTIFIER: - var identValue = _currentToken.Value; - Advance(); - // Handle qualified identifiers like clBtnFace - while (_currentToken.Type == LfmTokenType.DOT) - { - identValue += "."; - Advance(); - if (_currentToken.Type == LfmTokenType.IDENTIFIER) - { - identValue += _currentToken.Value; - Advance(); - } - } - property.PropertyType = LfmPropertyType.Simple; - return identValue; - - case LfmTokenType.LBRACKET: - property.PropertyType = LfmPropertyType.Set; - return ParseSet(); - - case LfmTokenType.LBRACE: - property.PropertyType = LfmPropertyType.Binary; - var binaryData = _currentToken.Value; - Advance(); - return binaryData; - - case LfmTokenType.LPAREN: - property.PropertyType = LfmPropertyType.Collection; - return ParseCollection(); - - case LfmTokenType.LANGLE: - property.PropertyType = LfmPropertyType.ItemList; - return ParseItemList(); - - default: - Advance(); - return null; - } - } - - private List ParseSet() - { - var items = new List(); - Advance(); // consume [ - - while (_currentToken.Type != LfmTokenType.RBRACKET && _currentToken.Type != LfmTokenType.EOF) - { - if (_currentToken.Type == LfmTokenType.IDENTIFIER) - { - items.Add(_currentToken.Value); - Advance(); - } - else if (_currentToken.Type == LfmTokenType.COMMA) - { - Advance(); - } - else - { - Advance(); - } - } - - if (_currentToken.Type == LfmTokenType.RBRACKET) - { - Advance(); - } - - return items; - } - - private List ParseCollection() - { - var items = new List(); - Advance(); // consume ( - - while (_currentToken.Type != LfmTokenType.RPAREN && _currentToken.Type != LfmTokenType.EOF) - { - var dummyProp = new LfmProperty(); - var value = ParseValue(dummyProp); - items.Add(value); - } - - if (_currentToken.Type == LfmTokenType.RPAREN) - { - Advance(); - } - - return items; - } - - /// - /// Parses an item list like: <item ... end item ... end> - /// - private List ParseItemList() - { - var items = new List(); - Advance(); // consume < - - while (_currentToken.Type != LfmTokenType.RANGLE && _currentToken.Type != LfmTokenType.EOF) - { - // Expect 'item' keyword (as IDENTIFIER with value "item") - if (_currentToken.Type == LfmTokenType.IDENTIFIER && - _currentToken.Value.Equals("item", StringComparison.OrdinalIgnoreCase)) - { - var item = ParseItem(); - items.Add(item); - } - else - { - // Skip unexpected tokens - Advance(); - } - } - - if (_currentToken.Type == LfmTokenType.RANGLE) - { - Advance(); - } - - return items; - } - - /// - /// Parses a single item block: item PropertyName = Value ... end - /// - private LfmItem ParseItem() - { - var item = new LfmItem(); - Advance(); // consume 'item' - - // Parse properties until 'end' - while (_currentToken.Type != LfmTokenType.END && _currentToken.Type != LfmTokenType.EOF) - { - if (_currentToken.Type == LfmTokenType.IDENTIFIER) - { - var property = ParseProperty(); - if (property != null) - { - item.Properties.Add(property); - } - } - else if (_currentToken.Type == LfmTokenType.RANGLE) - { - // End of item list reached without explicit 'end' - stop parsing this item - break; - } - else - { - Advance(); - } - } - - // Consume 'end' if present - if (_currentToken.Type == LfmTokenType.END) - { - Advance(); - } - - return item; - } -} diff --git a/Transpiler_pp/TranspilerLib.Pascal/Models/LfmProperty.cs b/Transpiler_pp/TranspilerLib.Pascal/Models/LfmProperty.cs deleted file mode 100644 index a8eab2cb6..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal/Models/LfmProperty.cs +++ /dev/null @@ -1,53 +0,0 @@ -using System.Collections.Generic; - -namespace TranspilerLib.Pascal.Models; - -/// -/// Represents a property in an LFM object. -/// -public class LfmProperty -{ - public string Name { get; set; } = string.Empty; - public object? Value { get; set; } - public LfmPropertyType PropertyType { get; set; } = LfmPropertyType.Simple; - - public override string ToString() - { - return $"{Name} = {Value}"; - } -} - -/// -/// Represents an item in an LFM item list (e.g., Panels = <item...end>). -/// -public class LfmItem -{ - /// - /// Properties of this item. - /// - public List Properties { get; } = new(); - - public override string ToString() - { - return $"item ({Properties.Count} properties)"; - } -} - -/// -/// The type of LFM property value. -/// -public enum LfmPropertyType -{ - /// Simple value (string, number, boolean, identifier) - Simple, - /// Set value like [biMinimize, biMaximize] - Set, - /// Binary data enclosed in { } - Binary, - /// Multi-line string continuation with + - StringContinuation, - /// Item list enclosed in < > with item...end blocks - ItemList, - /// Collection enclosed in ( ) - Collection -} diff --git a/Transpiler_pp/TranspilerLib.Pascal/Models/LfmToken.cs b/Transpiler_pp/TranspilerLib.Pascal/Models/LfmToken.cs deleted file mode 100644 index 53bb2805e..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal/Models/LfmToken.cs +++ /dev/null @@ -1,22 +0,0 @@ -namespace TranspilerLib.Pascal.Models; - -public class LfmToken -{ - public LfmTokenType Type { get; } - public string Value { get; } - public int Line { get; } - public int Column { get; } - - public LfmToken(LfmTokenType type, string value, int line, int column) - { - Type = type; - Value = value; - Line = line; - Column = column; - } - - public override string ToString() - { - return $"{Type}: '{Value}' at {Line}:{Column}"; - } -} diff --git a/Transpiler_pp/TranspilerLib.Pascal/Models/LfmTokenType.cs b/Transpiler_pp/TranspilerLib.Pascal/Models/LfmTokenType.cs deleted file mode 100644 index f561cd732..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal/Models/LfmTokenType.cs +++ /dev/null @@ -1,28 +0,0 @@ -namespace TranspilerLib.Pascal.Models; - -public enum LfmTokenType -{ - OBJECT, - END, - INHERITED, - INLINE, - COLON, - EQUALS, - DOT, - LANGLE, - RANGLE, - LPAREN, - RPAREN, - IDENTIFIER, - STRING, - NUMBER, - BOOLEAN, - EOF, - LBRACKET, - RBRACKET, - LBRACE, - RBRACE, - COMMA, - PLUS, - MINUS -} diff --git a/Transpiler_pp/TranspilerLib.Pascal/Models/LfmTokenizer.cs b/Transpiler_pp/TranspilerLib.Pascal/Models/LfmTokenizer.cs deleted file mode 100644 index 1546a6660..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal/Models/LfmTokenizer.cs +++ /dev/null @@ -1,236 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using System.Text; -using System.Threading.Tasks; - -namespace TranspilerLib.Pascal.Models; - -public class LfmTokenizer -{ - private string _input; - private int _position; - private int _line; - private int _column; - - public LfmTokenizer() - { - _input = string.Empty; - _position = 0; - _line = 1; - _column = 1; - } - - public void SetInput(string input) - { - _input = input; - _position = 0; - _line = 1; - _column = 1; - } - - - public IEnumerable Tokenize() - { - while (_position < _input.Length) - { - char current = _input[_position]; - if (char.IsWhiteSpace(current)) - { - if (current == '\n') - { - _line++; - _column = 1; - } - else - { - _column++; - } - _position++; - continue; - } - - switch (current) - { - case ':': - yield return new LfmToken(LfmTokenType.COLON, ":", _line, _column); - _column++; - _position++; - break; - case '=': - yield return new LfmToken(LfmTokenType.EQUALS, "=", _line, _column); - _column++; - _position++; - break; - case '.': - yield return new LfmToken(LfmTokenType.DOT, ".", _line, _column); - _column++; - _position++; - break; - case '<': - yield return new LfmToken(LfmTokenType.LANGLE, "<", _line, _column); - _column++; - _position++; - break; - case '>': - yield return new LfmToken(LfmTokenType.RANGLE, ">", _line, _column); - _column++; - _position++; - break; - case '(': - yield return new LfmToken(LfmTokenType.LPAREN, "(", _line, _column); - _column++; - _position++; - break; - case ')': - yield return new LfmToken(LfmTokenType.RPAREN, ")", _line, _column); - _column++; - _position++; - break; - case '[': - yield return new LfmToken(LfmTokenType.LBRACKET, "[", _line, _column); - _column++; - _position++; - break; - case ']': - yield return new LfmToken(LfmTokenType.RBRACKET, "]", _line, _column); - _column++; - _position++; - break; - case '{': - yield return ReadBinaryData(); - break; - case ',': - yield return new LfmToken(LfmTokenType.COMMA, ",", _line, _column); - _column++; - _position++; - break; - case '+': - yield return new LfmToken(LfmTokenType.PLUS, "+", _line, _column); - _column++; - _position++; - break; - case '-': - yield return new LfmToken(LfmTokenType.MINUS, "-", _line, _column); - _column++; - _position++; - break; - case '\'': - yield return ReadString(); - break; - default: - if (char.IsLetter(current) || current == '_') - { - yield return ReadIdentifierOrKeyword(); - } - else if (char.IsDigit(current)) - { - yield return ReadNumber(); - } - else - { - // Unknown character, skip or error - _column++; - _position++; - } - break; - } - } - yield return new LfmToken(LfmTokenType.EOF, "", _line, _column); - } - - private LfmToken ReadString() - { - int startColumn = _column; - _position++; // skip opening ' - _column++; - StringBuilder sb = new StringBuilder(); - while (_position < _input.Length && _input[_position] != '\'') - { - sb.Append(_input[_position]); - _position++; - _column++; - } - if (_position < _input.Length) - { - _position++; // skip closing ' - _column++; - } - return new LfmToken(LfmTokenType.STRING, sb.ToString(), _line, startColumn); - } - - private LfmToken ReadIdentifierOrKeyword() - { - int startColumn = _column; - StringBuilder sb = new StringBuilder(); - while (_position < _input.Length && (char.IsLetterOrDigit(_input[_position]) || _input[_position] == '_')) - { - sb.Append(_input[_position]); - _position++; - _column++; - } - string value = sb.ToString(); - LfmTokenType type = GetKeywordType(value); - return new LfmToken(type, value, _line, startColumn); - } - - private LfmToken ReadNumber() - { - int startColumn = _column; - StringBuilder sb = new StringBuilder(); - while (_position < _input.Length && char.IsDigit(_input[_position])) - { - sb.Append(_input[_position]); - _position++; - _column++; - } - return new LfmToken(LfmTokenType.NUMBER, sb.ToString(), _line, startColumn); - } - - private LfmToken ReadBinaryData() - { - int startColumn = _column; - int startLine = _line; - _position++; // skip opening { - _column++; - StringBuilder sb = new StringBuilder(); - while (_position < _input.Length && _input[_position] != '}') - { - char c = _input[_position]; - if (c == '\n') - { - _line++; - _column = 1; - } - else - { - _column++; - } - if (!char.IsWhiteSpace(c)) - { - sb.Append(c); - } - _position++; - } - if (_position < _input.Length) - { - _position++; // skip closing } - _column++; - } - return new LfmToken(LfmTokenType.LBRACE, sb.ToString(), startLine, startColumn); - } - - private LfmTokenType GetKeywordType(string value) - { - switch (value.ToLower()) - { - case "object": return LfmTokenType.OBJECT; - case "end": return LfmTokenType.END; - case "inherited": return LfmTokenType.INHERITED; - case "inline": return LfmTokenType.INLINE; - case "true": - case "false": return LfmTokenType.BOOLEAN; - default: return LfmTokenType.IDENTIFIER; - } - } -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib.Pascal/Models/Scanner/PasCode.cs b/Transpiler_pp/TranspilerLib.Pascal/Models/Scanner/PasCode.cs deleted file mode 100644 index 25856487c..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal/Models/Scanner/PasCode.cs +++ /dev/null @@ -1,56 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using TranspilerLib.Data; -using TranspilerLib.Interfaces.Code; -using TranspilerLib.Models; -using TranspilerLib.Models.Scanner; -using TranspilerLib.Pascal.Data; -using static TranspilerLib.Interfaces.Code.ICodeBase; - -namespace TranspilerLib.Pascal.Models.Scanner; - -public class PasCode : CodeBase -{ - private static readonly string[] _reserved = PasReservedWords.Words; - - private readonly ITokenHandler _tokenHandler = new PasTokenHandler() { reservedWords = _reserved }; - private readonly ICodeBuilder _codeBuilder = new PasCodeBuilder(); - // private readonly ICodeOptimizer _optimizer = new CodeOptimizer(); - - private static string GetDebug(TokenizeData data, string code) => $"{code.Substring(Math.Max(0, data.Pos - 20), data.Pos - Math.Max(0, data.Pos - 20))}>" + code[data.Pos] + "<" + - $"{code.Substring(Math.Min(data.Pos + 1, code.Length - 1), Math.Min(40, code.Length - data.Pos - 1))}"; - - public override IEnumerable Tokenize() - { - List list = new(); - Tokenize(t => list.Add(t)); - foreach (var t in list) - yield return t; - } - - public override void Tokenize(TokenDelegate? doToken) - { - TokenizeData data = new(); - while (data.Pos < OriginalCode.Length && _tokenHandler.TryGetValue(data.State, out var handler)) - { - var dbg = GetDebug(data, OriginalCode); - handler(doToken, OriginalCode, data); - data.Pos++; - } - } - - public override ICodeBlock Parse(IEnumerable? values = null) - { - ICodeBlock root = new PasCodeBlock() { Name = "PascalRoot", Code = string.Empty, Parent = null, Type=CodeBlockType.MainBlock }; - var data = _codeBuilder.NewData(root); - - if (values == null) - Tokenize(td => _codeBuilder.OnToken(td, data)); - else - foreach (var v in values) - _codeBuilder.OnToken(v, data); - - return root; - } -} diff --git a/Transpiler_pp/TranspilerLib.Pascal/Models/Scanner/PasCodeBlock.cs b/Transpiler_pp/TranspilerLib.Pascal/Models/Scanner/PasCodeBlock.cs deleted file mode 100644 index 5f4432799..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal/Models/Scanner/PasCodeBlock.cs +++ /dev/null @@ -1,35 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using System.Text; -using System.Threading.Tasks; -using TranspilerLib.Data; -using TranspilerLib.Models.Scanner; - -namespace TranspilerLib.Pascal.Models.Scanner; - -public class PasCodeBlock : CodeBlock -{ - public override string ToCode(int indent = 4) - { - switch (Type) - { - case CodeBlockType.Function: - return $"{new string(' ', indent)}{Code};\r\n{string.Join(string.Empty, SubBlocks.Select(sb => sb.ToCode(indent + 4)))}{new string(' ', indent)}end;\r\n"; - case CodeBlockType.Block: - return $"{new string(' ', indent)}begin\r\n{string.Join(string.Empty, SubBlocks.Select(sb => sb.ToCode(indent + 4)))}{new string(' ', indent)}end;\r\n"; - case CodeBlockType.MainBlock: - return $"{new string(' ', indent)}{Code}{(string.IsNullOrEmpty(Code) ? "" : ";")}\r\n{string.Join(string.Empty, SubBlocks.Select(sb => sb.ToCode(indent)))}"; - default: - return $"{new string(' ', indent)}{Code};\r\n"; - } - } - /// - /// Debug-/Diagnoseausgabe des Blockes inklusive Meta-Informationen (Name, Typ, Position, Quellverweise). - /// - public override string ToString() - { - return $"///{Name} {Type} {Level},{SourcePos},{Index}{(Destination != null ? " Dest:OK" : "")}{(Sources.Count > 0 ? $" {Sources.Count}" : "")}\r\n{Code}{(SubBlocks.Count > 0 ? Environment.NewLine : string.Empty)}{string.Join(Environment.NewLine, SubBlocks)}"; - } - -} diff --git a/Transpiler_pp/TranspilerLib.Pascal/Models/Scanner/PasCodeBuilder.BuildBlock.cs b/Transpiler_pp/TranspilerLib.Pascal/Models/Scanner/PasCodeBuilder.BuildBlock.cs deleted file mode 100644 index eab732100..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal/Models/Scanner/PasCodeBuilder.BuildBlock.cs +++ /dev/null @@ -1,48 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using System.Text; -using System.Threading.Tasks; -using TranspilerLib.Data; -using TranspilerLib.Interfaces.Code; -using TranspilerLib.Pascal.Data; - -namespace TranspilerLib.Pascal.Models.Scanner; - -public partial class PasCodeBuilder -{ - private void BuildBlock(TokenData tokenData, ICodeBuilderData data) - { - var erw = TryGetResWord(tokenData.Code); - if (erw == EPasResWords.BEGIN) - { - if (IsDeclContext(data)) - { - var decl = GetDecl(data); - if (decl?.Parent != null) - data.actualBlock = decl.Parent; - } - - var isMetaRoot = data.actualBlock.Type == CodeBlockType.MainBlock || data.actualBlock.Type == CodeBlockType.Function; - var name = isMetaRoot ? "Body" : "Block"; - - data.actualBlock = NewCodeBlock(name, CodeBlockType.Block, tokenData.Code.ToLower(), data.actualBlock, tokenData.Pos); - ClearDeclState(data); - } - else if (erw == EPasResWords.END) - { - var block = data.actualBlock; - while (block != null && block.Type != CodeBlockType.Block && block.Type != CodeBlockType.Function && block.Type != CodeBlockType.MainBlock) - { - block = block.Parent; - } - - if (block != null && block.Parent != null) - data.actualBlock = block.Parent; - } - else - { - AddRawToken(tokenData, data); - } - } -} diff --git a/Transpiler_pp/TranspilerLib.Pascal/Models/Scanner/PasCodeBuilder.cs b/Transpiler_pp/TranspilerLib.Pascal/Models/Scanner/PasCodeBuilder.cs deleted file mode 100644 index 82705cb04..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal/Models/Scanner/PasCodeBuilder.cs +++ /dev/null @@ -1,468 +0,0 @@ -using System; -using System.Linq; -using System.Collections.Generic; -using TranspilerLib.Data; -using TranspilerLib.Interfaces.Code; -using TranspilerLib.Models.Scanner; -using TranspilerLib.Pascal.Data; - -namespace TranspilerLib.Pascal.Models.Scanner; - -/// -/// Pascal-spezifischer Builder ohne Rckgriff auf base.OnToken. -/// Entfernt Level-basierte Logik der Basisklasse und baut ausschlielich einen -/// expliziten Pascal-Strukturbaum: -/// - PROGRAM/UNIT Marker am Root -/// - Deklarationssektionen (var/const/type) vor begin -/// - Body Block fr begin..end -/// - Assignment-Reparenting: x := a + b -> Assignment[x, Operation('+')[a,b]] -/// -public partial class PasCodeBuilder : CodeBuilder -{ - private const string DECL_KEY = "__DECL"; - private const string DECL_COMMA_KEY = "__DECL_COMMA"; - private const string DECL_COLON_KEY = "__DECL_COLON"; - - public PasCodeBuilder() - { - NewCodeBlock = (name, type, code, parent, pos) - => new PasCodeBlock() { Name = name, Type = type, Code = code, Parent = parent, SourcePos = pos }; - } - - public override void OnToken(TokenData tokenData, ICodeBuilderData data) - { - switch (tokenData.type) - { - case CodeBlockType.Block: - BuildBlock(tokenData, data); - break; - case CodeBlockType.Assignment: - BuildAssignment(tokenData, data); - break; - case CodeBlockType.Operation: - BuildOperation(tokenData, data); - break; - case CodeBlockType.Variable: - case CodeBlockType.Number: - BuildValue(tokenData, data); - break; - case CodeBlockType.Separator: - BuildOperation(tokenData, data); - break; - default: - AddRawToken(tokenData, data); - break; - } - data.cbtLast = tokenData.type; - } - - EPasResWords? TryGetResWord(string code) - { - if (Enum.TryParse(code.ToUpperInvariant(), out var resWord)) - return resWord; - return null; - } - - private void BuildAssignment(TokenData tokenData, ICodeBuilderData data) - { - var left = data.actualBlock; - if (left == null) return; - - var parent = data.actualBlock.Parent ?? left; - // Assignment is higher prio than any operation. - while (parent.Type == CodeBlockType.Operation && parent.Parent != null) - { - left = parent; - parent = parent.Parent; - } - int leftIndex = left.Parent != null ? left.Parent.SubBlocks.IndexOf(left) : -1; - - var assign = NewCodeBlock("Assignment", CodeBlockType.Assignment, tokenData.Code, parent, tokenData.Pos); - - if (left.Parent != null && leftIndex >= 0) - { - var siblings = left.Parent.SubBlocks; - int idxAssign = siblings.IndexOf(assign); - if (idxAssign >= 0) - siblings.RemoveAt(idxAssign); - siblings[leftIndex] = assign; - } - - if (!left.MoveToSub(assign)) - { - if (left.Parent != null) - { - var siblings = left.Parent.SubBlocks; - int idx = siblings.IndexOf(left); - if (idx >= 0) siblings.RemoveAt(idx); - } - assign.SubBlocks.Insert(0, left); - } - else - { - var idxL = assign.SubBlocks.IndexOf(left); - if (idxL > 0) - { - assign.SubBlocks.RemoveAt(idxL); - assign.SubBlocks.Insert(0, left); - } - } - - data.actualBlock = assign; - } - - private static bool IsDeclContext(ICodeBuilderData data) - => data.labels != null && data.labels.ContainsKey(DECL_KEY); - - private static ICodeBlock? GetDecl(ICodeBuilderData data) - => IsDeclContext(data) ? data.labels[DECL_KEY] : null; - - private static ICodeBlock? GetDeclComma(ICodeBuilderData data) - => (data.labels != null && data.labels.ContainsKey(DECL_COMMA_KEY)) ? data.labels[DECL_COMMA_KEY] : null; - - private static bool DeclHasColon(ICodeBuilderData data) - => data.labels != null && data.labels.ContainsKey(DECL_COLON_KEY); - - private static void SetDecl(ICodeBuilderData data, ICodeBlock decl) - { - data.labels[DECL_KEY] = decl; - if (data.labels.ContainsKey(DECL_COMMA_KEY)) data.labels.Remove(DECL_COMMA_KEY); - if (data.labels.ContainsKey(DECL_COLON_KEY)) data.labels.Remove(DECL_COLON_KEY); - } - - private static void SetDeclComma(ICodeBuilderData data, ICodeBlock comma) - => data.labels[DECL_COMMA_KEY] = comma; - - private static void SetDeclColon(ICodeBuilderData data) - => data.labels[DECL_COLON_KEY] = data.actualBlock; - - private static void ClearDeclState(ICodeBuilderData data) - { - if (data.labels.ContainsKey(DECL_KEY)) data.labels.Remove(DECL_KEY); - if (data.labels.ContainsKey(DECL_COMMA_KEY)) data.labels.Remove(DECL_COMMA_KEY); - if (data.labels.ContainsKey(DECL_COLON_KEY)) data.labels.Remove(DECL_COLON_KEY); - } - - private static bool IsOperator(string text) - => text is "+" or "-" or "." or "*" or "/" or "[" or "="; - - private void BuildOperation(TokenData tokenData, ICodeBuilderData data) - { - var text = tokenData.Code.Trim(); - var upper = text.ToUpperInvariant(); - - if (upper == "PROGRAM" && data.actualBlock.Type == CodeBlockType.MainBlock) - { - data.actualBlock.Code = "Program"; - return; - } - if (upper == "UNIT" && data.actualBlock.Type == CodeBlockType.MainBlock) - { - data.actualBlock.Code = "Unit"; - return; - } - - if (upper == "VAR") - { - if (IsDeclContext(data)) - { - var oldDecl = GetDecl(data); - if (oldDecl?.Parent != null) - data.actualBlock = oldDecl.Parent; - } - var parent = data.actualBlock; - var decl = NewCodeBlock("Declaration", CodeBlockType.Declaration, "var", parent, tokenData.Pos); - data.actualBlock = decl; - SetDecl(data, decl); - return; - } - - if (upper == "CONST") - { - if (IsDeclContext(data)) - { - var oldDecl = GetDecl(data); - if (oldDecl?.Parent != null) - data.actualBlock = oldDecl.Parent; - } - var parent = data.actualBlock; - var decl = NewCodeBlock("Declaration", CodeBlockType.Declaration, "const", parent, tokenData.Pos); - data.actualBlock = decl; - SetDecl(data, decl); - return; - } - - if (upper == "TYPE") - { - if (IsDeclContext(data)) - { - var oldDecl = GetDecl(data); - if (oldDecl?.Parent != null) - data.actualBlock = oldDecl.Parent; - } - var parent = data.actualBlock; - var decl = NewCodeBlock("Declaration", CodeBlockType.Declaration, "type", parent, tokenData.Pos); - data.actualBlock = decl; - SetDecl(data, decl); - return; - } - - if (IsDeclContext(data)) - { - var decl = GetDecl(data)!; - if (text == "," && !DeclHasColon(data)) - { - var comma = GetDeclComma(data); - if (comma == null) - { - comma = NewCodeBlock("Operation", CodeBlockType.Operation, ",", decl, tokenData.Pos); - if (decl.SubBlocks.Count > 0) - { - var last = decl.SubBlocks[^2]; - if (last.Type == CodeBlockType.Variable) - last.MoveToSub(comma); - } - SetDeclComma(data, comma); - } - data.actualBlock = comma; - return; - } - if (text == ":") - { - var colon = NewCodeBlock("Operation", CodeBlockType.Operation, ":", decl, tokenData.Pos); - var comma = GetDeclComma(data); - if (comma != null) - { - comma.MoveToSub(colon); - } - else if (decl.SubBlocks.Count > 1) - { - var v = decl.SubBlocks[^2]; - if (v.Type == CodeBlockType.Variable) - { - bool moved = v.MoveToSub(colon); - } - } - SetDeclColon(data); - data.actualBlock = colon; - return; - } - if (text == ";") - { - data.actualBlock = decl; - if (data.labels.ContainsKey(DECL_COMMA_KEY)) data.labels.Remove(DECL_COMMA_KEY); - if (data.labels.ContainsKey(DECL_COLON_KEY)) data.labels.Remove(DECL_COLON_KEY); - return; - } - if (text == "..") - { - var par1 = data.actualBlock; - data.actualBlock = NewCodeBlock("Range", CodeBlockType.Operation, text, par1!.Parent!, tokenData.Pos); - par1.MoveToSub(data.actualBlock); - return; - } - } - - if (text == ";" && data.actualBlock.Type == CodeBlockType.MainBlock && - (data.actualBlock.Code == "Program" || data.actualBlock.Code == "Unit")) - { - return; - } - - if (text == ";") - { - // Find the nearest enclosing block (Block, Function, MainBlock) - // But respect Interface/Implementation and Procedure/Function structure - var block = data.actualBlock; - - // Check if we should reset the current block - bool shouldReset = true; - if (block.Type == CodeBlockType.Operation) - { - var code = block.Code.Trim(); - if (code.Equals("interface", StringComparison.OrdinalIgnoreCase) || - code.Equals("implementation", StringComparison.OrdinalIgnoreCase)) - { - shouldReset = false; - } - else if (code.StartsWith("procedure", StringComparison.OrdinalIgnoreCase) || - code.StartsWith("function", StringComparison.OrdinalIgnoreCase) || - code.StartsWith("constructor", StringComparison.OrdinalIgnoreCase) || - code.StartsWith("destructor", StringComparison.OrdinalIgnoreCase)) - { - // Only reset if we already have a body block (begin...end) - if (!block.SubBlocks.Any(b => b.Type == CodeBlockType.Block)) - { - shouldReset = false; - } - } - } - - if (shouldReset) - { - while (block != null && block.Type != CodeBlockType.Block && block.Type != CodeBlockType.Function && block.Type != CodeBlockType.MainBlock) - { - // Also stop at Interface/Implementation if we are inside one - if (block.Type == CodeBlockType.Operation) - { - var c = block.Code.Trim(); - if (c.Equals("interface", StringComparison.OrdinalIgnoreCase) || - c.Equals("implementation", StringComparison.OrdinalIgnoreCase)) - { - break; - } - } - block = block.Parent; - } - - if (block != null) - { - data.actualBlock = block; - return; - } - } - } - - if (IsOperator(text)) - { - ICodeBlock? assign = data.actualBlock.Type == CodeBlockType.Assignment - ? data.actualBlock - : data.actualBlock.Parent?.Type == CodeBlockType.Assignment ? data.actualBlock.Parent : null; - if (assign != null) - { - var op = NewCodeBlock("Operation", CodeBlockType.Operation, text, assign, tokenData.Pos); - if (assign.SubBlocks.Count > 1) - { - var last = assign.SubBlocks[^2]; - if (last != op) - last.MoveToSub(op); - } - data.actualBlock = op; - return; - } - else if (data.actualBlock.Type is CodeBlockType.Variable or CodeBlockType.Number) - { - var para1 = data.actualBlock; - data.actualBlock = NewCodeBlock("Operation", CodeBlockType.Operation, text, para1!.Parent!, tokenData.Pos); - para1.MoveToSub(data.actualBlock); - return; - } - - } - - if (data.actualBlock.Type is not CodeBlockType.Operation - || data.actualBlock.Type == CodeBlockType.MainBlock - || (!string.IsNullOrEmpty(data.actualBlock.Code) && data.actualBlock.Code.EndsWith(";")) - || data.actualBlock.Code.Trim().Equals("interface", StringComparison.OrdinalIgnoreCase) - || data.actualBlock.Code.Trim().Equals("implementation", StringComparison.OrdinalIgnoreCase)) - { - var parent = (data.actualBlock.Type is CodeBlockType.Function or CodeBlockType.Block or CodeBlockType.MainBlock) - ? data.actualBlock - : data.actualBlock.Parent; - - data.actualBlock = NewCodeBlock("Operation", CodeBlockType.Operation, text, parent!, tokenData.Pos); - } - else - { - var pad = (data.actualBlock.Code.EndsWith("\"") && text.StartsWith("+")) || text.StartsWith("(") - ? " " : string.Empty; - data.actualBlock.Code += pad + tokenData.Code; - } - } - - private void BuildValue(TokenData tokenData, ICodeBuilderData data) - { - if (data.actualBlock.Type == CodeBlockType.MainBlock && - (data.actualBlock.Code == "Program" || data.actualBlock.Code == "Unit") && - (data.actualBlock.SubBlocks.Count == 0) && - tokenData.type == CodeBlockType.Variable) - { - data.actualBlock.Name = tokenData.Code; - return; - } - - if (IsDeclContext(data) && !DeclHasColon(data)) - { - var parent = data.actualBlock; - NewCodeBlock( - tokenData.type == CodeBlockType.Variable ? "Variable" : "Number", - tokenData.type, - tokenData.Code, - parent, - tokenData.Pos); - return; - } - - if (IsDeclContext(data) && DeclHasColon(data)) - { - var colon = data.actualBlock.Type == CodeBlockType.Operation && data.actualBlock.Code == ":" - ? data.actualBlock - : GetDecl(data)!.SubBlocks.LastOrDefault(sb => sb.Type == CodeBlockType.Operation && sb.Code == ":") ?? data.actualBlock; - - data.actualBlock = NewCodeBlock( - tokenData.type == CodeBlockType.Variable ? "Type" : (tokenData.type == CodeBlockType.Number ? "Number" : "Value"), - tokenData.type, - tokenData.Code, - colon, - tokenData.Pos); - return; - } - - if (data.actualBlock.Type == CodeBlockType.Assignment) - { - data.actualBlock = NewCodeBlock( - tokenData.type == CodeBlockType.Variable ? "Variable" : "Number", - tokenData.type, - tokenData.Code, - data.actualBlock, - tokenData.Pos); - return; - } - if (data.actualBlock.Type == CodeBlockType.Operation && IsOperator(data.actualBlock.Code) - && data.actualBlock.Parent?.Type == CodeBlockType.Assignment) - { - data.actualBlock = NewCodeBlock( - tokenData.type == CodeBlockType.Variable ? "Variable" : "Number", - tokenData.type, - tokenData.Code, - data.actualBlock, - tokenData.Pos); - return; - } - - AddRawToken(tokenData, data); - } - - /// - /// Ersetzt alle frheren base.OnToken-Verwendungen: Fgt ein generisches LfmToken - /// als eigener Block unter dem aktuellen Kontext hinzu ohne Level-Logik. - /// - private void AddRawToken(TokenData tokenData, ICodeBuilderData data) - { - var parent = data.actualBlock; - if ((tokenData.type == CodeBlockType.Comment || tokenData.type == CodeBlockType.LComment)&& data.actualBlock.SubBlocks.Count>0 && !IsComment(data.actualBlock.SubBlocks[^1]?.Type) ) - { - parent = data.actualBlock.SubBlocks[^1]; - NewCodeBlock( - tokenData.type.ToString(), - tokenData.type, - tokenData.Code, - parent!, - tokenData.Pos); - return; - } - data.actualBlock = NewCodeBlock( - tokenData.type.ToString(), - tokenData.type, - tokenData.Code, - parent, - tokenData.Pos); - if ( IsComment(tokenData.type)) - { - // Kommentare nicht als aktuelles Element setzen - data.actualBlock = parent; - } - } - - private bool IsComment(CodeBlockType? type) => type == CodeBlockType.Comment || type == CodeBlockType.LComment || type == CodeBlockType.FLComment; -} diff --git a/Transpiler_pp/TranspilerLib.Pascal/Models/Scanner/PasTokenHandler.cs b/Transpiler_pp/TranspilerLib.Pascal/Models/Scanner/PasTokenHandler.cs deleted file mode 100644 index 29016198c..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal/Models/Scanner/PasTokenHandler.cs +++ /dev/null @@ -1,252 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using TranspilerLib.Data; -using TranspilerLib.Interfaces.Code; -using TranspilerLib.Models; -using TranspilerLib.Models.Scanner; -using static TranspilerLib.Interfaces.Code.ICodeBase; - -namespace TranspilerLib.Pascal.Models.Scanner; - -/// -/// Sehr kleiner initialer Pascal/Delphi LfmToken Handler. -/// Erweiterung: Untersttzung fr Hexadezimalzahlen beginnend mit '$'. -/// -public class PasTokenHandler : TokenHandlerBase, ITokenHandler -{ - /* - Pseudocode / nderungsplan: - - Enum PasTokenState um InHexNumber erweitern. - - Dictionary _tokenStateHandler um Handler fr InHexNumber ergnzen. - - Neue Methode HandleHexNumber: - * Nchstes Zeichen prfen: solange Hex-Zeichen (0-9, A-F, a-f) -> weiter. - * Wenn nchstes Zeichen kein Hex-Zeichen -> EmitToken(Number). - - Hilfsmethode IsHexDigit(char c) hinzufgen. - - In HandleDefault neuen case: - case '$' when IsHexDigit(GetNxtChar(...)): - setze Pos2, State = InHexNumber. - break; - Falls nach '$' kein Hex-Zeichen: Default-Operation greift (wird als Operation emittiert). - */ - - private enum PasTokenState - { - Default = 0, - InString = 1, - InLineComment = 2, - InBlockCommentStar = 3, - InBlockCommentBrace = 4, - InIdentifier = 5, - InNumber = 6, - InHexNumber = 7, - } - - private static readonly Dictionary> _tokenStateHandler = new() - { - {PasTokenState.Default, HandleDefault}, - {PasTokenState.InString, HandleString}, - {PasTokenState.InLineComment, HandleLineComment}, - {PasTokenState.InBlockCommentStar, HandleBlockCommentStar}, - {PasTokenState.InBlockCommentBrace, HandleBlockCommentBrace}, - {PasTokenState.InIdentifier, HandleIdentifyer}, - {PasTokenState.InNumber, HandleNumber}, - {PasTokenState.InHexNumber, HandleHexNumber}, - }; - - private static void HandleNumber(TokenDelegate? token, string code, TokenizeData data) - { - var nxtChar = GetNxtChar(data.Pos, code); - if (!char.IsDigit(nxtChar) && nxtChar != 'e' && nxtChar != 'E' && nxtChar != '-' && nxtChar != '.' - || code[data.Pos] == '-' && !char.IsDigit(nxtChar)) - { - EmitToken(token, data, CodeBlockType.Number, code, 1); - data.Pos2 = data.Pos + 1; - data.State = 0; - } - if (code[data.Pos] == '.' && nxtChar == '.') - { - EmitToken(token, data, CodeBlockType.Number, code); - data.Pos2 = data.Pos; - data.State = 0; - } - } - - private static void HandleHexNumber(TokenDelegate? token, string code, TokenizeData data) - { - var nxtChar = GetNxtChar(data.Pos, code); - if (!IsHexDigit(nxtChar)) - { - // Ganzes LfmToken inkl. '$' emittieren - EmitToken(token, data, CodeBlockType.Number, code, 1); - data.Pos2 = data.Pos + 1; - data.State = 0; - } - } - - private static bool IsHexDigit(char c) - => char.IsDigit(c) || - (c >= 'A' && c <= 'F') || - (c >= 'a' && c <= 'f'); - - private static string[] _reservedWords = Array.Empty(); - public string[] reservedWords { set => _reservedWords = value.Select(s => s.ToUpper()).ToArray(); } - - private static void HandleString(TokenDelegate? token, string code, TokenizeData data) - { - if (code[data.Pos] == '\'' && GetNxtChar(data.Pos, code) == '\'') // doubled quote -> skip next - { - data.Pos++; // stay in string - return; - } - if (code[data.Pos] == '\'') - { - EmitToken(token, data, CodeBlockType.String, code, 1); - data.Pos2 = data.Pos + 1; - data.State = 0; - } - } - - private static void HandleLineComment(TokenDelegate? token, string code, TokenizeData data) - { - if (code[data.Pos] == '\n' || data.Pos == code.Length - 1) - { - var p= data.Pos2-1; - while (p > 0 && code[p] == ' ') - p--; - EmitToken(token, data, ((IList)[ '\r', '\n' ]).Contains(code[p]) ? CodeBlockType.FLComment : CodeBlockType.LComment, code); - data.Pos2 = data.Pos + 1; - data.State = 0; - } - } - - private static void HandleBlockCommentStar(TokenDelegate? token, string code, TokenizeData data) - { - if (code[data.Pos] == '*' && GetNxtChar(data.Pos, code) == ')') - { - var p = data.Pos2 - 1; - while (p > 0 && code[p] == ' ') - p--; - EmitToken(token, data, ((IList)['\r', '\n']).Contains(code[p]) ? CodeBlockType.FLComment : CodeBlockType.Comment, code, 2); - data.Pos2 = data.Pos + 2; - data.State = 0; - data.Pos++; // skip ) - } - } - private static void HandleBlockCommentBrace(TokenDelegate? token, string code, TokenizeData data) - { - if (code[data.Pos] == '}') - { - var p = data.Pos2 - 1; - while (p > 0 && code[p] == ' ') - p--; - EmitToken(token, data, ((IList)['\r', '\n']).Contains(code[p]) ? CodeBlockType.FLComment : CodeBlockType.Comment, code, 1); - data.Pos2 = data.Pos + 1; - data.State = 0; - } - } - - private static void HandleIdentifyer(TokenDelegate? token, string code, TokenizeData data) - { - var nxtChar = GetNxtChar(data.Pos, code); - if (!char.IsLetterOrDigit(nxtChar) && nxtChar != '_') - { - var text = GetText(data, code, 1); - if (!string.IsNullOrWhiteSpace(text)) - { - if (_reservedWords.Contains(text.ToUpper())) - { - if (text.Equals("BEGIN", StringComparison.OrdinalIgnoreCase)) - { - data.Stack++; - EmitToken(token, data, CodeBlockType.Block, code, 1); - } - else if (text.Equals("END", StringComparison.OrdinalIgnoreCase)) - { - EmitToken(token, data, CodeBlockType.Block, code, 1); - data.Stack--; - } - else - EmitToken(token, data, CodeBlockType.Operation, code, 1); - } - else - { - EmitToken(token, data, CodeBlockType.Variable, code, 1); - } - } - data.Pos2 = data.Pos + 1; - data.State = 0; - } - } - - private static void HandleDefault(TokenDelegate? token, string code, TokenizeData data) - { - switch (code[data.Pos]) - { - case '\'': // string start - data.Pos2 = data.Pos; - data.State = (int)PasTokenState.InString; - break; - case '/' when GetNxtChar(data.Pos, code) == '/': - data.Pos2 = data.Pos; - data.State = (int)PasTokenState.InLineComment; - data.Pos++; // consume second / - break; - case '(' when GetNxtChar(data.Pos, code) == '*': // (* comment *) - data.Pos2 = data.Pos; - data.State = (int)PasTokenState.InBlockCommentStar; - data.Pos++; // skip * - break; - case '{': // { comment } - data.Pos2 = data.Pos; - data.State = (int)PasTokenState.InBlockCommentBrace; - break; - case ';': - EmitToken(token, data, CodeBlockType.Separator, code, 1); - data.Pos2 = data.Pos + 1; - break; - case ':' when GetNxtChar(data.Pos, code) == '=': - EmitToken(token, data, CodeBlockType.Assignment, code, 2); - data.Pos2 = data.Pos + 2; - data.Pos++; - break; - case ':': - EmitToken(token, data, CodeBlockType.Operation, code, 1); - data.Pos2 = data.Pos + 1; - break; - case '$': - // Start Hex-Zahl - data.Pos2 = data.Pos; - data.State = (int)PasTokenState.InHexNumber; - data.Pos--; - break; - case ' ': - case '\t': - case '\r': - case '\n': - break; - default: - if (char.IsLetter(code[data.Pos]) || code[data.Pos] == '_') - { - data.Pos2 = data.Pos; - data.State = (int)PasTokenState.InIdentifier; - data.Pos--; - } - else if (char.IsDigit(code[data.Pos]) || (code[data.Pos] == '-' && char.IsDigit(GetNxtChar(data.Pos, code)))) - { - data.Pos2 = data.Pos; - data.State = (int)PasTokenState.InNumber; - data.Pos--; - } - else - { - EmitToken(token, data, CodeBlockType.Operation, code, 1); - data.Pos2 = data.Pos + 1; - } - break; - } - } - - public bool TryGetValue(int state, out Action handler) - => _tokenStateHandler.TryGetValue((PasTokenState)state, out handler!); -} diff --git a/Transpiler_pp/TranspilerLib.Pascal/TranspilerLib.Pascal.csproj b/Transpiler_pp/TranspilerLib.Pascal/TranspilerLib.Pascal.csproj deleted file mode 100644 index 85b14c592..000000000 --- a/Transpiler_pp/TranspilerLib.Pascal/TranspilerLib.Pascal.csproj +++ /dev/null @@ -1,21 +0,0 @@ - - - - - - net8.0 - enable - - - - - $(TargetFrameworks);net9.0 - - - $(TargetFrameworks);net10.0 - - - - - - diff --git a/Transpiler_pp/TranspilerLib/.info b/Transpiler_pp/TranspilerLib/.info deleted file mode 100644 index ba4f0bfc1..000000000 --- a/Transpiler_pp/TranspilerLib/.info +++ /dev/null @@ -1 +0,0 @@ -Transpiler - Library \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib/Data/CharSets.cs b/Transpiler_pp/TranspilerLib/Data/CharSets.cs deleted file mode 100644 index 5ac3582c7..000000000 --- a/Transpiler_pp/TranspilerLib/Data/CharSets.cs +++ /dev/null @@ -1,55 +0,0 @@ -using BaseLib.Helper; -using System.Collections; -using System.Collections.Generic; -using System.Linq; - -namespace TranspilerLib.Data; - -/// -/// Provides reusable character sets used by tokenizers for quick membership checks. -/// -public static class CharSets -{ - /// - /// The set of operator characters. - /// - public static readonly ISet operatorSet = new HashSet() { ';', ',', '.', '+', '-', '*', '/', '%', '&', '|', '^', '!', '~', '=', '<', '>', '?', ':', '"', '\'', '\\', '#', '@' }; - /// - /// The set of bracket characters: (), {}, []. - /// - public static readonly ISet bracketsSet = new HashSet() { '(', ')', '{', '}', '[', ']' }; - /// - /// The set of whitespace characters considered by tokenizers. - /// - public static readonly char[] whitespace = [' ', '\t', '\r', '\n', '\u0000']; - /// - /// The set of decimal digit characters. - /// - public static readonly char[] numbers = '0'.To('9'); - /// - /// Extended number characters including exponent and sign. - /// - public static readonly char[] numbersExt = numbers.Concat(['e', '.', '-']).ToArray(); - /// - /// Hexadecimal digits (0-9, A-F, a-f). - /// - public static readonly char[] hexNumbers = numbers.Concat('A'.To('F')).Concat('a'.To('f')).ToArray(); - /// - /// ASCII letters (A-Z, a-z). - /// - public static readonly char[] letters = 'A'.To('Z').Concat('a'.To('z')).ToArray(); - /// - /// Alphanumeric set combining letters and digits. - /// - public static readonly char[] lettersAndNumbers = letters.Concat(numbers).ToArray(); - /// - /// All visible characters combining letters, digits, operators, and brackets. - /// - public static readonly char[] allVisible = lettersAndNumbers.Concat(operatorSet).Concat(bracketsSet).ToArray(); - /// - /// ASCII letters (A-Z, a-z). - /// - public static readonly ISet allNormal = ' '.To('\x7f').Concat(['§']).ToHashSet(); - - -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib/Data/CodeBlockType.cs b/Transpiler_pp/TranspilerLib/Data/CodeBlockType.cs deleted file mode 100644 index ebed6ce50..000000000 --- a/Transpiler_pp/TranspilerLib/Data/CodeBlockType.cs +++ /dev/null @@ -1,109 +0,0 @@ -// *********************************************************************** -// Assembly : TranspilerLib -// Author : Mir -// Created : 09-26-2023 -// -// Last Modified By : Mir -// Last Modified On : 09-29-2023 -// *********************************************************************** -// -// Copyright © JC-Soft 2023 -// -// -// *********************************************************************** -namespace TranspilerLib.Data; - -/// -/// Enum CodeBlockType -/// -public enum CodeBlockType -{ - /// - /// The unknown - /// - Unknown, - /// - /// The main block - /// - MainBlock, - /// - /// The sub block - /// - SubBlock, - /// - /// The label - /// - Label, - /// - /// The variable - /// - Variable, - /// - /// The function - /// - Function, - /// - /// The declaration - /// - Declaration, - /// - /// The class - /// - Class, - /// - /// The instruction - /// - Operation, - /// - /// The parameter - /// - Parameter, - /// - /// The namespace - /// - Namespace, - /// - /// The using - /// - Using, - /// - /// The goto - /// - Goto, - /// - /// The Linecomment (starts with '//', usually after the element) - /// - LComment, - /// - /// The full Linecomment (starts with '//', usually before the element) - /// - FLComment, - /// - /// The comment - /// - Comment, - /// - /// The string(-constant) - /// - String, - /// - /// The block - /// - Block, - /// - /// A number-constant - /// - Number, - /// - /// A bracket (e.g. '(' or ')') - /// - Bracket, - /// - /// An Assignment-Operation - /// - Assignment, - /// - /// A code-separator (e.g. ';' or ',') - /// - Separator, -} diff --git a/Transpiler_pp/TranspilerLib/Data/TokenData.cs b/Transpiler_pp/TranspilerLib/Data/TokenData.cs deleted file mode 100644 index 1fbcce75d..000000000 --- a/Transpiler_pp/TranspilerLib/Data/TokenData.cs +++ /dev/null @@ -1,40 +0,0 @@ -// *********************************************************************** -// Assembly : TranspilerLib -// Author : Mir -// Created : 09-26-2023 -// -// Last Modified By : Mir -// Last Modified On : 09-29-2023 -// *********************************************************************** -// -// Copyright © JC-Soft 2023 -// -// -// *********************************************************************** -namespace TranspilerLib.Data; - -/// -/// Represents a single token with its lexeme, token kind and nesting level information. -/// -/// The token text as found in the source. -/// The semantic kind of the token. -/// The block nesting level at which the token was observed. -/// Optional absolute character position in the source. -public record struct TokenData(string Code, CodeBlockType type = CodeBlockType.Unknown, int Level=-1,int Pos=0) -{ - /* - public static implicit operator (string, ICSCode.CodeBlockType, int)(TokenData value) - { - return (value.Code, value.type, value.Level); - } - */ - /// - /// Implicitly constructs a from a tuple of (code, type, level). - /// - /// Tuple containing the token fields. - public static implicit operator TokenData((string, CodeBlockType, int) value) - { - return new TokenData(value.Item1, value.Item2, value.Item3); - } - -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib/Docs/TranspilerLib.xml b/Transpiler_pp/TranspilerLib/Docs/TranspilerLib.xml deleted file mode 100644 index 0b17d434f..000000000 --- a/Transpiler_pp/TranspilerLib/Docs/TranspilerLib.xml +++ /dev/null @@ -1,1892 +0,0 @@ - - - - TranspilerLib - - - - - Provides reusable character sets used by tokenizers for quick membership checks. - - - - - The set of operator characters. - - - - - The set of bracket characters: (), {}, []. - - - - - The set of whitespace characters considered by tokenizers. - - - - - The set of decimal digit characters. - - - - - Extended number characters including exponent and sign. - - - - - Hexadecimal digits (0-9, A-F, a-f). - - - - - ASCII letters (A-Z, a-z). - - - - - Alphanumeric set combining letters and digits. - - - - - All visible characters combining letters, digits, operators, and brackets. - - - - - ASCII letters (A-Z, a-z). - - - - - Enum CodeBlockType - - - - - The unknown - - - - - The main block - - - - - The sub block - - - - - The label - - - - - The variable - - - - - The function - - - - - The declaration - - - - - The class - - - - - The instruction - - - - - The parameter - - - - - The namespace - - - - - The using - - - - - The goto - - - - - The Linecomment (starts with '//', usually after the element) - - - - - The full Linecomment (starts with '//', usually before the element) - - - - - The comment - - - - - The string(-constant) - - - - - The block - - - - - A number-constant - - - - - A bracket (e.g. '(' or ')') - - - - - An Assignment-Operation - - - - - A code-separator (e.g. ';' or ',') - - - - - Represents a single token with its lexeme, token kind and nesting level information. - - The token text as found in the source. - The semantic kind of the token. - The block nesting level at which the token was observed. - Optional absolute character position in the source. - - - - Represents a single token with its lexeme, token kind and nesting level information. - - The token text as found in the source. - The semantic kind of the token. - The block nesting level at which the token was observed. - Optional absolute character position in the source. - - - The token text as found in the source. - - - The semantic kind of the token. - - - The block nesting level at which the token was observed. - - - Optional absolute character position in the source. - - - - Implicitly constructs a from a tuple of (code, type, level). - - Tuple containing the token fields. - - - - Defines the common lifecycle for code processors: accept raw input (), - tokenize it ( or the streaming variant), build a structured representation - (), and finally render - it back to formatted code (). - - - - - Delegate used to stream tokens during tokenization. Implementations receive each produced . - - The token produced by the tokenizer. - - - - Gets or sets the raw source text (e.g., file contents, code fragment) to be processed. - - - - - Parses the specified token sequence or, when is null, the tokens produced from - the current . - - Optional predetermined token sequence. - The root of the generated syntax/structure tree. - - - - Converts a code block tree into formatted source code. - - The root of the code block tree to emit. - Base indentation width (default 4). - The formatted code as a string. - - - - Performs a full tokenization of the currently set and returns the resulting sequence. - - An enumerable of all produced in lexical order. - - - - Tokenizes the source and invokes the optional callback for each produced token. - - Optional delegate for streaming processing of individual tokens; may be null. - - - - Interface ICodeBlock - Extends the - Extends the - - - - - - - Gets the sub blocks. - - The sub blocks. - - - - Gets or sets the type. - - The type. - - - - Gets or sets the name. - - The name. - - - - Gets or sets the code. - - The code. - - - - Gets or sets the destination. - - The destination. - - - - Gets the level. - - The level. - - - - Gets the index. - - The index. - - - - Gets the sources. - - The sources. - - - - Gets the next. - - The next. - - - - Gets the previous. - - The previous. - - - - Gets the position in the original source from which this block was created. - - The zero-based character index in the source text. - - - - Deletes the sub blocks. - - The index of the first sub block to delete. - The number of sub blocks to delete. - true if successful; otherwise, false. - - - - Moves the sub blocks. - - The index of the first sub block to move. - The destination index within the same parent. - The number of sub blocks to move. - true if successful; otherwise, false. - - - - Moves the sub blocks to a different destination block. - - The index of the first sub block to move. - The destination block reference. - The number of sub blocks to move. - true if successful; otherwise, false. - - - - Moves this block into the sub blocks of the specified destination. - - The destination block to move under. - true if successful; otherwise, false. - - - - Converts to code. - - The indent. - string. - - - - Builds an tree from a stream of . - - - - - Creates a new builder state object used to accumulate blocks, labels, and gotos while parsing tokens. - - The root block the builder should attach newly created nodes to. - A fresh context. - - - - Processes a single token and mutates the provided accordingly - (creating/moving/emitting blocks and control-flow constructs as needed). - - The token to handle. - The active builder state. - - - - Represents the mutable state used by an while constructing an tree. - - - - - Gets or sets the current block being appended to or modified. - - - - - Gets or sets the map of encountered label identifiers to their corresponding blocks. - - - - - Gets or sets the list of encountered goto statements for later target resolution. - - - - - Gets or sets a flag used by builders to detect statement boundaries (e.g., after breaks or strings). - - - - - Gets or sets the last processed to aid context-sensitive decisions. - - - - - Provides optimization hooks for post-parse code structure clean-up and control-flow reconstruction. - - - - - Gets or sets the flag to disable while/do-while reconstruction. When true, such rewrites are suppressed. - - - - - Analyzes and potentially rewrites the supplied to simplify the block graph. - - The code block candidate to test and optimize. - - - - Represents an interface for IEC (International Electrotechnical Commission) codes, extending the functionality of - the interface. - - This interface serves as a marker or base for defining IEC-specific code implementations. It inherits - from , allowing for shared functionality across code-related types. - - - - Abstraction for a stateful token handler used during lexical analysis. - - - - - Sets the reserved words used to distinguish identifiers from keywords during scanning. - - - - - Retrieves a handler delegate for the given . - - The current tokenizer state. - When this method returns, contains the state handler delegate if found. - true if a handler for the state exists; otherwise, false. - - - - Definiert ein Objekt, das einen Verweis auf sein übergeordnetes Objekt (Parent) besitzt. - - Der Typ des übergeordneten Objekts. Muss eine Referenztyp-Klasse sein. - - Diese Schnittstelle unterstützt hierarchische Strukturen (z. B. AST-Knoten), - indem jedes Element optional auf sein Parent-Element verweist. Der Wert kann - null sein, wenn das Objekt an der Wurzel der Hierarchie steht. - - - - - Ruft das übergeordnete Objekt ab oder legt es fest. - - - Das Parent-Objekt vom Typ oder null, wenn kein Parent vorhanden ist. - - - - - Interface for interpreters that can execute code blocks. - - - - - Interface for output handlers that process reader data and produce output. - - - - - Outputs the specified reader. - - The reader. - The write. - The debug. - - - - Definiert einen vorwärtsgerichteten, zustandsbehafteten Reader über eine - strukturierte Eingabe (z. B. Token-, Knoten- oder Elementsequenz). - Der Reader erlaubt sequenzielles Lesen von Start-/End-Elementen, Attributen und Werten. - - - Das Interface abstrahiert typische Funktionen ähnlich eines XML- oder AST-Readers: - - Navigation erfolgt ausschließlich vorwärts mittels . - - Attribute eines aktuellen Start-Elements können über Index abgefragt werden. - - Werte sind nur verfügbar, wenn wahr ist. - - Elementgrenzen werden über und kenntlich. - Implementierungen sollten nach Erreichen des Endes dauerhaft true zurückgeben. - - - - - Gibt an, ob das aktuelle Start-Element leer ist (d. h. kein separates End-Element folgt). - - Typisch für Konstrukte wie <element /> in XML-ähnlichen Strukturen. - - - - Gibt an, ob am aktuellen Readerpunkt ein Wert verfügbar ist. - - - Ist true, kann aufgerufen werden, um den Inhalt zu lesen. - Ein Wert kann z. B. Text- oder Literalinhalt sein. - - - - - Bestimmt, ob das Ende des Datenstroms erreicht wurde. - - true, wenn keine weiteren Elemente gelesen werden können; andernfalls false. - - - - Liefert die Anzahl der Attribute des aktuellen Start-Elements. - - Anzahl der verfügbaren Attribute (0, wenn keine vorhanden). - - - - Liefert den lokalen Namen eines Attributes anhand seines Index. - - Der nullbasierte Attributindex. - Der Name des Attributs. - Wenn der Index außerhalb des gültigen Bereichs liegt. - - - - Liefert den Wert eines Attributes anhand seines Index. - - Der nullbasierte Attributindex. - Der Attributwert (typischerweise ), oder ein typ-spezifisches Objekt. - Wenn der Index außerhalb des gültigen Bereichs liegt. - - - - Liefert den lokalen Namen des aktuellen Elements oder Knotens. - - Der lokale Elementname, oder null, falls nicht anwendbar. - - - - Liefert den Wert am aktuellen Positionierungspunkt. - - - Nur aufrufen, wenn wahr ist. Rückgabewert kann je nach Implementierung - typisiert sein (z. B. , numerische Literaltypen oder komplexe Objekte). - - Der aktuelle Wert oder null, falls keiner vorhanden. - - - - Gibt an, ob sich der Reader aktuell auf einem End-Element befindet. - - true, wenn ein End-Element erkannt wurde; andernfalls false. - - - - Gibt an, ob sich der Reader aktuell auf einem Start-Element befindet. - - true, wenn ein Start-Element erkannt wurde; andernfalls false. - - - - Liest den nächsten Knoten / das nächste Element aus der Eingabesequenz. - - - Bei erfolgreichem Lesen wird der interne Cursor weitergeschoben und die Eigenschaften - spiegeln den neuen Zustand wider. Bei Ende des Stroms liefert der Aufruf false. - - true, wenn ein weiterer Eintrag gelesen wurde; false bei Ende. - - - - Provides file scanning related types and callbacks used by the transpiler to process resources and warnings. - - - - - Represents a callback that handles an individual resource file discovered by the scanner. - - The sender that triggered the callback, typically the scanner instance. - The full path or name of the resource file being handled. - Additional options or parameters associated with the resource handling. - - - - Describes a mapping between a file extension and a corresponding . - - - - - Represents a warning-number specific state used while scanning files. - - - - - Scanner for Pascal source files. - - - - - - Defines the severity or kind of diagnostic messages that can be emitted by components in this library. - - - - - A fatal error indicating that processing cannot continue. - - - - - A non-recoverable error condition for a particular operation. - - - - - A recoverable issue that may affect output or behavior. - - - - - An informational note providing additional context. - - - - - A suggestion or hint to improve readability or performance. - - - - - General informational message. - - - - - Debug-only message useful during development. - - - - - Represents all token kinds produced by the scanner / lexer. - - - - End of input. - - - Whitespace (space, tab, etc.). - - - Identifier. - - - Label (identifier followed by colon in some languages). - - - String constant. - - - Numeric literal. - - - Control character / character literal (^A .. ^Z). - - - Line ending (newline sequence). - - - Tabulator character. - - - C style line comment //. - - - C style block comment /* ... */. - - - '{' - - - '}' - - - '(' - - - ')' - - - '*' - - - '+' - - - ',' - - - '-' - - - '.' - - - '/' - - - ':' - - - ';' - - - '%lt;' - - - '=' (single assign) - - - '>' - - - '[' - - - ']' - - - '^' (xor operator) - - - '\' - - - '&' - - - '|' - - - '!' - - - '?' - - - '%' - - - '~' - - - '==' equality operator. - - - '=>' lambda operator. - - - '..' range / spread operator. - - - '!=' not equal operator. - - - '<=' less or equal operator. - - - '>=' greater or equal operator. - - - '**' power operator. - - - '><' symmetrical difference operator. - - - '??' null-coalescing operator. - - - '++' increment operator. - - - '--' decrement operator. - - - '+=' addition assignment. - - - '-=' subtraction assignment. - - - '*=' multiplication assignment. - - - '/=' division assignment. - - - '%=' modulo assignment. - - - '&=' bitwise and assignment. - - - '|=' bitwise or assignment. - - - '^=' bitwise xor assignment. - - - '&&' logical and operator. - - - '||' logical or operator. - - - '%lt;%lt;' shift-left operator. - - - '>>' shift-right operator. - - - '<%lt;=' shift-left assignment. - - - '>>=' shift-right assignment. - - - '??=' null-coalescing assignment. - - - 'abstract' keyword. - - - 'as' keyword. - - - 'base' keyword. - - - 'bool' keyword. - - - 'break' keyword. - - - 'byte' keyword. - - - 'case' keyword. - - - 'catch' keyword. - - - 'char' keyword. - - - 'checked' keyword. - - - 'class' keyword. - - - 'const' keyword. - - - 'continue' keyword. - - - 'decimal' keyword. - - - 'default' keyword. - - - 'delegate' keyword. - - - 'do' keyword. - - - 'double' keyword. - - - 'else' keyword. - - - 'enum' keyword. - - - 'event' keyword. - - - 'explicit' keyword. - - - 'extern' keyword. - - - 'false' literal. - - - 'finally' keyword. - - - 'fixed' keyword. - - - 'float' keyword. - - - 'for' keyword. - - - 'foreach' keyword. - - - 'goto' keyword. - - - 'if' keyword. - - - 'implicit' keyword. - - - 'in' keyword. - - - 'int' keyword. - - - 'interface' keyword. - - - 'internal' keyword. - - - 'is' keyword. - - - 'lock' keyword. - - - 'long' keyword. - - - 'namespace' keyword. - - - 'new' keyword. - - - 'null' literal. - - - 'object' keyword. - - - 'operator' keyword. - - - 'out' keyword. - - - 'override' keyword. - - - 'params' keyword. - - - 'private' keyword. - - - 'protected' keyword. - - - 'public' keyword. - - - 'readonly' keyword. - - - 'ref' keyword. - - - 'return' keyword. - - - 'sbyte' keyword. - - - 'sealed' keyword. - - - 'short' keyword. - - - 'sizeof' keyword. - - - 'stackalloc' keyword. - - - 'static' keyword. - - - 'string' keyword. - - - 'struct' keyword. - - - 'switch' keyword. - - - 'this' keyword. - - - 'throw' keyword. - - - 'true' literal. - - - 'try' keyword. - - - 'typeof' keyword. - - - 'uint' keyword. - - - 'ulong' keyword. - - - 'unchecked' keyword. - - - 'unsafe' keyword. - - - 'ushort' keyword. - - - 'using' keyword. - - - 'virtual' keyword. - - - 'void' keyword. - - - 'volatile' keyword. - - - 'while' keyword. - - - - Laufzeitdaten für den Interpreter (Program Counter und ggf. weitere Statusinformationen in Zukunft). - - - - - Erstellt eine neue Instanz und setzt den Program Counter auf . - - Erster auszuführender Codeblock. - - - - Program Counter – zeigt auf den aktuell auszuführenden Block. - - - - - Base class for interpreters that can execute code blocks. - - - - - Stellt eine Liste von Elementen bereit, die jeweils einen Verweis auf ihr übergeordnetes Objekt (Parent) besitzen. - Beim Einfügen oder Hinzufügen eines Elements wird dessen automatisch auf den Parent dieser Liste gesetzt, - sofern es noch keinen Parent hat oder ein anderer Parent hinterlegt ist. - - - Der Elementtyp. Muss eine Klassen-Referenz sein, implementieren und vergleichbar über sein. - - - Typisches Einsatzszenario sind hierarchische oder baumartige Strukturen (z. B. AST-Knoten), - bei denen ein konsistenter Parent-Verweis gepflegt werden soll. - - - - - Interne Speicherliste der Elemente. - - - - - Der Parent, der allen eingefügten Elementen zugewiesen wird (sofern erforderlich). - - - Ist dieser Wert null, werden neue Elemente nicht verändert, selbst wenn sie keinen Parent besitzen. - - - - - Gibt die Anzahl der enthaltenen Elemente zurück. - - - - - Immer false, da diese Liste veränderbar ist. - - - - - Ruft das Element am angegebenen Index ab oder legt es fest. - - Der nullbasierte Index. - Das Element am angegebenen Index. - Wenn ungültig ist. - - - - Erstellt eine neue Instanz der mit dem angegebenen Parent. - - Der Parent, der neuen Elementen zugewiesen wird (falls nötig). - - - - Ermittelt den Index eines bestimmten Elements. - - Das zu suchende Element. - Der Index oder -1, falls nicht gefunden. - - - - Fügt ein Element an einer bestimmten Position ein und setzt dessen Parent falls erforderlich. - - Der nullbasierte Insert-Index. - Das einzufügende Element. - Wenn ungültig ist. - - - - Entfernt das Element am angegebenen Index. - - Der nullbasierte Index. - Wenn ungültig ist. - - - - Fügt ein Element am Ende ein und setzt dessen Parent falls erforderlich. - - Das hinzuzufügende Element. - - - - Entfernt alle Elemente aus der Liste. - - - - - Prüft, ob ein Element enthalten ist. - - Das zu prüfende Element. - true, wenn enthalten; andernfalls false. - - - - Kopiert die Elemente in ein Zielarray ab einem Startindex. - - Das Zielarray. - Startindex im Zielarray. - - - - Entfernt ein bestimmtes Element, sofern vorhanden. - - Das zu entfernende Element. - true, wenn entfernt; andernfalls false. - - - - Gibt einen Enumerator über die Elemente zurück. - - Enumerator über die Liste. - - - - Nicht-generischer Enumerator. - - Enumerator über die Liste. - - - - Abstrakte Basisklasse für IEC / C / andere Quellcode-Repräsentationen. - Bietet den gemeinsamen Lebenszyklus: setzen, (oder Callback-Variante), - anschließend zum Aufbau eines -Baums - und abschließend zur Re-Emission / Transformation. - - - - - Roh-Quelltext der Einheit (z.B. eine Datei, Funktionsblock, Fragment). - Kann von konkreten Implementierungen beim Tokenisieren ausgewertet werden. - - - - - Vollständige Tokenisierung des aktuell gesetzten . - - Enumerable aller erzeugten in lexikalischer Reihenfolge. - - - - Tokenisiert den Quelltext und ruft für jedes Token den optionalen Callback auf. - - Optionaler Delegat zur Streaming-Verarbeitung einzelner Tokens (kann null sein). - - - - Parst entweder die übergebenen Tokens oder – falls null ist – das Ergebnis von . - - Vorgegebene Token-Sequenz (optional). - Wurzel- des generierten Syntax-/Strukturbaumes. - - - - Konvertiert einen vorhandenen Block-Baum in formatierten Code. - - Wurzel des auszugebenden Codeblock-Baumes. - Basis-Einrückung (Default 4). - Formatierter Code als String. - - - - Represents a hierarchical unit of parsed source code. - A CodeBlock can contain nested sub blocks forming a tree structure - (e.g. namespaces, classes, methods, statements, labels, etc.). - It also supports weak references to control-flow destinations and sources - (e.g. for Goto/Label relationships) without preventing garbage collection. - - - Main responsibilities: - 1. Maintain parent/child relationships among code blocks. - 2. Track positional metadata () and structural metadata (, ). - 3. Represent semantic type information via . - 4. Manage directed weak links for flow navigation ( and ). - 5. Provide helper operations to move or delete sub blocks while keeping references consistent. - 6. Support serialization of destination/source references through index paths (, ). - - - - - Backing field for . - - - - - Gets the depth level of this block within the root code tree. - Root level is 0; each nested level increments by 1. - - Zero-based depth level. - - - - Gets the zero-based index of this block among its siblings in 's list. - Returns 0 if this block has no parent. - - The sibling index or 0 if no parent. - - - - Gets or sets the logical name of this code block (e.g. identifier, label, method name). - May be empty if not applicable for the . - - Human readable or identifier name. - - - - Gets or sets the raw code text fragment represented by this block. - This is typically the original token(s) or reconstructed code for output. - - Source code fragment. - - - - Gets or sets the semantic classification for this block. - Used to distinguish structural, declarative, and operational elements. - - A value of . - - - - Gets the list of child code blocks nested inside this block. - Children maintain their own parent reference automatically. - - Mutable list of sub blocks. - - - - Gets the next sibling block under the same parent, if any. - - Next sibling or null. - - - - Gets the previous sibling block under the same parent, if any. - - Previous sibling or null. - - - - Gets or sets the weak reference to a destination block (e.g. target of a Goto or jump). - This forms a single forward link; the reciprocal sources are recorded in . - - - Weak reference is used to avoid ownership cycles and permit GC if blocks become detached. - - Weak reference to destination or null. - - - - Gets or sets a serialized index-path representation of . - The path is a sequence of indexes from root to the referenced block. - Setting this reconstructs the weak destination link and updates the target's . - - Index path list; empty if no destination. - - - - Gets the collection of weak references to blocks that point to this block as their . - - - Each entry is a weak reference; entries may become invalid if the source is GC collected. - - List of weak references to source blocks. - - - - Gets or sets the index-paths for each source referring to this block. - Setting reconstructs the list and updates each source's . - - Collection of index paths; each path identifies a source block. - - - - Gets or sets the parent block in the hierarchical tree. - Setting handles removal from the previous parent and insertion into the new parent's . - Passing null detaches the block from the tree. - - - Insertion happens at the end of the new parent's children list. - - Parent block or null. - - - - Gets the zero-based character position in the original source text - where parsing produced this block. - Useful for diagnostics, mapping, and error reporting. - - Character index into original source. - - - - Initializes a new instance of the class. - Creates an empty list bound to this instance as parent. - - - - - Creates a destination weak reference from an index path and registers - this block as a source of the destination. - - Current block initiating the link. - Index path to target block (root-first order). - Weak reference to destination or null if invalid path. - - Adds a reciprocal source entry in the destination's . - - - - - Creates a source weak reference from an index path and sets the source's - destination to this block. - - Current destination block. - Index path to source block. - Weak reference to source or null if invalid path. - - Updates the source block's property to point to . - - - - - Resolves an index path into a block starting from the root ancestor of . - - Reference block from which the root is derived. - Sequence of child indexes from root to desired block. - The resolved block or null if any index is invalid. - - - - Traverses upward from a given block to obtain the root ancestor. - - Starting block. - Root block (topmost with no parent). - - - - Converts a weak block reference into an index path suitable for serialization. - - Weak reference to a target block. - Index path from root to target or empty list if null/unresolved. - - - - Returns a string representation including metadata and recursively nested blocks. - Intended for debugging; not guaranteed to be valid recompilable source. - - Multi-line string representation. - - - - Renders this block and its descendants into a formatted code string. - - Current indentation level (spaces). First nested blocks increase indentation. - Formatted code snippet (not necessarily identical to original source). - - Adds an inline comment annotation for label blocks receiving more than two incoming sources. - - - - - Moves a contiguous range of child blocks within this block's list. - - Index of the first block to move. - Destination index for insertion (after move). - Number of blocks to move. - true if move succeeded; otherwise false. - - Rejects invalid indexes or no-op moves. Adjusts ordering while preserving parent references. - - - - - Moves a contiguous range of child blocks possibly into another block's parent list. - - Index of first block to move from this block. - Destination block whose parent list will receive moved blocks. - Number of blocks to move. - true if move succeeded; otherwise false. - - If shares the same parent, delegates to the indexed overload. - Otherwise reassigns each moved block's parent and reorders within the destination parent's list. - - - - - Deletes a contiguous range of sub blocks, cleaning up destination/source link references. - - Index of first sub block to delete. - Number of blocks to delete. - true if deletion succeeded; otherwise false. - - For each removed block: - 1. Detaches from parent. - 2. Removes reciprocal source entries from its destination (if any). - 3. Clears destination links from its sources. - Does not recursively delete grandchildren beyond detaching chain references. - - - - - Moves this block to become a direct child of . - - Destination parent block. - true if successful; otherwise false. - - Fails if: - - is null - - This block has no current parent - - Destination is a descendant making cyclic structure - - Destination equals current parent (no-op) - - - - - Determines whether this instance and another represent the same object reference. - - Other block to compare. - true if same reference; otherwise false. - - - - Abstrakte Basisklasse zur Erstellung eines hierarchischen -Baumes - aus einer Sequenz von . Konkrete Ableitungen übersteuern - üblicherweise , um sprachspezifische - Strukturierungsregeln (z.B. Blockgrenzen) zu implementieren. - - - - - Fabrik-Delegate zum Anlegen eines neuen . Kann von außen ersetzt werden - (z.B. für spezielle Block-Typen oder Instrumentierung / Tests). - - - Parameter: (name, type, code, parent, pos) - - - - - Interne Standard-Implementierung der zur Laufzeit gehaltenen Build-Daten. - - - - - - - - - - - - - - - - - - - - Erstellt eine neue Dateninstanz für den angegebenen Startblock. - - Aktueller (Start-)Block. - - - - Erzeugt eine neue Build-Datenstruktur für einen gegebenen Wurzelblock. - Kann in Ableitungen übersteuert werden um angepasste Implementierungen bereitzustellen. - - Wurzel / Startblock. - Datencontainer zur Fortschrittsverwaltung. - - - - Verarbeitet ein einzelnes Token und erzeugt (bzw. verschiebt) den aktuellen Block-Kontext. - Die Default-Implementierung leitet anhand der Level-Differenz die Elternebene ab. - - Aktuelles Token. - Mutable Builder-Daten (enthält u.a. den aktuellen Block). - Geworfen wenn eine unvorhergesehene Level-Differenz auftritt. - - - - Basisklasse für spezifische Token-Handler innerhalb des Scannervorgangs. - Stellt Hilfsmethoden bereit, um Zeichen aus dem Originalcode zu lesen und aus dem Scan-Bereich Tokens zu emittieren. - - - Die Klasse kapselt wiederkehrende Operationen wie: - 1. Ermitteln des nächsten / vorherigen Zeichens ohne Ausnahme auszulösen. - 2. Extraktion des aktuell gescannten Textsegments (Bereich zwischen und ). - 3. Erzeugung und Übergabe eines an einen bereitgestellten Delegaten (). - - - - - Erzeugt aus dem aktuellen Scanbereich ein und übergibt es an den angegebenen Delegaten. - - Delegat, der das erzeugte Token verarbeitet (kann null sein). - Scan-Zustandsdaten (Positionsmarker, Stacktiefe etc.). - Der zuzuweisende für das erzeugte Token. - Der vollständige Quellcode, aus dem gescannt wird. - - Optionaler Off-Set, um den Endbereich zu erweitern (z. B. um abschließende Zeichen einzuschließen). - Typischer Einsatz bei Abschlusszeichen oder nachlaufenden Trennern. - - - Der extrahierte Text reicht von data.Pos2 bis data.Pos + offs (inklusive) und wird vor Übergabe getrimmt. - Wenn null ist, passiert nichts. - - - - - Liefert das nächste Zeichen relativ zur übergebenen Position. - - Aktuelle Indexposition im Quellcode. - Der vollständige Quelltext. - - Das Zeichen an Position Pos + 1, oder das Null-Zeichen '\0', wenn das Ende erreicht ist. - - - Sicherer Zugriff ohne Ausnahme am Ende des Strings. - - - - - Liefert das vorherige Zeichen relativ zur übergebenen Position. - - Aktuelle Indexposition im Quellcode. - Der vollständige Quelltext. - - Das Zeichen an Position Pos - 1, oder das erste Zeichen, wenn gleich 0 ist. - - - Negative Indizes werden abgefangen, indem auf Index 0 zurückgegriffen wird. - - - - - Extrahiert den aktuell gescannten Text zwischen und . - - Aktuelle Scan-Daten mit Start- und Endposition. - Optional: Vollständiger Quellcode. Wenn leer, wird ein leerer String zurückgegeben. - Optionaler Erweiterungs-Offset (positiv oder 0). Negative Werte werden als 0 behandelt. - - Das nicht getrimmte Rohsegment des Quelltexts. Bei ungültigen Längen wird ein leerer String geliefert. - - - Diese Methode führt kein Trimming durch (im Gegensatz zu ). - - - - - Kapselt den veränderlichen Zustand während des Tokenisierungs-/Scan-Vorgangs. - - - Diese Struktur dient als einfacher Container für Positions- und Zustandsinformationen, - die typischerweise von einem Scanner oder Lexer inkrementell aktualisiert werden. - Alle Felder sind absichtlich öffentlich und als einfache Felder (keine Properties) gehalten, - um Overhead bei sehr häufigen Aktualisierungen zu vermeiden. - - - - - Primärer Positionszeiger im Quellpuffer (aktuelles Zeichen / aktueller Index). - - - - - Sekundärer Positionszeiger (z. B. Start eines Tokens oder Lookahead-Beginn). - - - - - Allgemeiner Zähler / Stack-Level (z. B. für Verschachtelungen wie Klammern). - - - - - Aktueller Zustandswert der zustandsbasierten Tokenisierungs- / FSM-Logik. - - - - - Allgemeines Flag für temporäre Markierungen oder bedingte Pfade im Scan-Prozess. - - - - - Initialisiert eine neue Instanz mit Standardwerten (alle numerischen Felder = 0, Flag = false). - - - - - Represents a collection of strings. - - - - - Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. - - - - - Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. - - - - - Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle - Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. - - - - - Sucht eine lokalisierte Zeichenfolge, die Error: Division by Zero ähnelt. - - - - - Sucht eine lokalisierte Zeichenfolge, die Nesting of $IFxxx too deep ähnelt. - - - - - Sucht eine lokalisierte Zeichenfolge, die Could not find include file '{0}' ähnelt. - - - - - Sucht eine lokalisierte Zeichenfolge, die Error: The include-limit is reached ähnelt. - - - - - Sucht eine lokalisierte Zeichenfolge, die Invalid character '{0}' ähnelt. - - - - - Sucht eine lokalisierte Zeichenfolge, die Error: Invalid mode ähnelt. - - - - - Sucht eine lokalisierte Zeichenfolge, die Error: Invalid mode-swich ähnelt. - - - - - Sucht eine lokalisierte Zeichenfolge, die $ELSE without matching $IFxxx ähnelt. - - - - - Sucht eine lokalisierte Zeichenfolge, die $ENDIF without matching $IFxxx ähnelt. - - - - - Sucht eine lokalisierte Zeichenfolge, die string exceeds end of line ähnelt. - - - - - Sucht eine lokalisierte Zeichenfolge, die ähnelt. - - - - - Sucht eine lokalisierte Zeichenfolge, die ähnelt. - - - - - Sucht eine lokalisierte Zeichenfolge, die ähnelt. - - - - - Sucht eine lokalisierte Zeichenfolge, die ähnelt. - - - - - Sucht eine lokalisierte Zeichenfolge, die ähnelt. - - - - - Sucht eine lokalisierte Zeichenfolge, die ähnelt. - - - - - Sucht eine lokalisierte Zeichenfolge, die ähnelt. - - - - - Sucht eine lokalisierte Zeichenfolge, die ähnelt. - - - - - Sucht eine lokalisierte Zeichenfolge, die ähnelt. - - - - - Sucht eine lokalisierte Zeichenfolge, die IFDEF {0} found, accepting. ähnelt. - - - - - Sucht eine lokalisierte Zeichenfolge, die ähnelt. - - - - - Sucht eine lokalisierte Zeichenfolge, die ähnelt. - - - - - Sucht eine lokalisierte Zeichenfolge, die ähnelt. - - - - - Sucht eine lokalisierte Zeichenfolge, die ähnelt. - - - - - Sucht eine lokalisierte Zeichenfolge, die Reading line {0}. ähnelt. - - - - - Sucht eine lokalisierte Zeichenfolge, die ähnelt. - - - - - Sucht eine lokalisierte Zeichenfolge, die ähnelt. - - - - - Sucht eine lokalisierte Zeichenfolge, die ähnelt. - - - - - Sucht eine lokalisierte Zeichenfolge, die Opening source file "{0}". ähnelt. - - - - - Sucht eine lokalisierte Zeichenfolge, die ähnelt. - - - - - Sucht eine lokalisierte Zeichenfolge, die ähnelt. - - - - - Sucht eine lokalisierte Zeichenfolge, die Could not find resource file '{0}' ähnelt. - - - - - Sucht eine lokalisierte Zeichenfolge, die ähnelt. - - - - - Sucht eine lokalisierte Zeichenfolge, die ähnelt. - - - - diff --git a/Transpiler_pp/TranspilerLib/Interfaces/Code/ICodeBase.cs b/Transpiler_pp/TranspilerLib/Interfaces/Code/ICodeBase.cs deleted file mode 100644 index de56f216e..000000000 --- a/Transpiler_pp/TranspilerLib/Interfaces/Code/ICodeBase.cs +++ /dev/null @@ -1,79 +0,0 @@ -// *********************************************************************** -// Assembly : TranspilerLib -// Author : Mir -// Created : 09-26-2023 -// -// Last Modified By : Mir -// Last Modified On : 09-29-2023 -// *********************************************************************** -// -// Copyright © JC-Soft 2023 -// -// -// *********************************************************************** - -// *********************************************************************** -// Assembly : TranspilerLib -// Author : Mir -// Created : 09-26-2023 -// -// Last Modified By : Mir -// Last Modified On : 09-29-2023 -// *********************************************************************** -// -// Copyright © JC-Soft 2023 -// -// -// *********************************************************************** -using System.Collections.Generic; -using TranspilerLib.Data; - -namespace TranspilerLib.Interfaces.Code; - -/// -/// Defines the common lifecycle for code processors: accept raw input (), -/// tokenize it ( or the streaming variant), build a structured representation -/// (), and finally render -/// it back to formatted code (). -/// -public interface ICodeBase -{ - /// - /// Delegate used to stream tokens during tokenization. Implementations receive each produced . - /// - /// The token produced by the tokenizer. - public delegate void TokenDelegate(TokenData data); - - /// - /// Gets or sets the raw source text (e.g., file contents, code fragment) to be processed. - /// - string OriginalCode { get; set; } - - /// - /// Parses the specified token sequence or, when is null, the tokens produced from - /// the current . - /// - /// Optional predetermined token sequence. - /// The root of the generated syntax/structure tree. - ICodeBlock Parse(IEnumerable? values = null); - - /// - /// Converts a code block tree into formatted source code. - /// - /// The root of the code block tree to emit. - /// Base indentation width (default 4). - /// The formatted code as a string. - string ToCode(ICodeBlock cStruct, int indent = 4); - - /// - /// Performs a full tokenization of the currently set and returns the resulting sequence. - /// - /// An enumerable of all produced in lexical order. - IEnumerable Tokenize(); - - /// - /// Tokenizes the source and invokes the optional callback for each produced token. - /// - /// Optional delegate for streaming processing of individual tokens; may be null. - void Tokenize(TokenDelegate? token); -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib/Interfaces/Code/ICodeBlock.cs b/Transpiler_pp/TranspilerLib/Interfaces/Code/ICodeBlock.cs deleted file mode 100644 index d3442f7ae..000000000 --- a/Transpiler_pp/TranspilerLib/Interfaces/Code/ICodeBlock.cs +++ /dev/null @@ -1,122 +0,0 @@ -// *********************************************************************** -// Assembly : TranspilerLib -// Author : Mir -// Created : 09-26-2023 -// -// Last Modified By : Mir -// Last Modified On : 09-29-2023 -// *********************************************************************** -// -// Copyright © JC-Soft 2023 -// -// -// *********************************************************************** -using System; -using System.Collections.Generic; -using TranspilerLib.Data; - -namespace TranspilerLib.Interfaces.Code; - -/// -/// Interface ICodeBlock -/// Extends the -/// Extends the -/// -/// -/// -public interface ICodeBlock : IHasParents, IEquatable -{ - /// - /// Gets the sub blocks. - /// - /// The sub blocks. - IList SubBlocks { get; } - /// - /// Gets or sets the type. - /// - /// The type. - CodeBlockType Type { get; set; } - /// - /// Gets or sets the name. - /// - /// The name. - string Name { get; set; } - /// - /// Gets or sets the code. - /// - /// The code. - string Code { get; set; } - /// - /// Gets or sets the destination. - /// - /// The destination. - WeakReference? Destination { get; set; } - /// - /// Gets the level. - /// - /// The level. - int Level { get; } - /// - /// Gets the index. - /// - /// The index. - int Index { get; } - /// - /// Gets the sources. - /// - /// The sources. - IList> Sources { get; } - // new ICodeBlock? Parent { get; set; } - /// - /// Gets the next. - /// - /// The next. - ICodeBlock? Next { get; } - /// - /// Gets the previous. - /// - /// The previous. - ICodeBlock? Prev { get; } - /// - /// Gets the position in the original source from which this block was created. - /// - /// The zero-based character index in the source text. - int SourcePos { get; init; } - - /// - /// Deletes the sub blocks. - /// - /// The index of the first sub block to delete. - /// The number of sub blocks to delete. - /// true if successful; otherwise, false. - bool DeleteSubBlocks(int iSrc, int cnt); - /// - /// Moves the sub blocks. - /// - /// The index of the first sub block to move. - /// The destination index within the same parent. - /// The number of sub blocks to move. - /// true if successful; otherwise, false. - bool MoveSubBlocks(int iSrc, int iDst, int cnt); - /// - /// Moves the sub blocks to a different destination block. - /// - /// The index of the first sub block to move. - /// The destination block reference. - /// The number of sub blocks to move. - /// true if successful; otherwise, false. - bool MoveSubBlocks(int iSrc, ICodeBlock cDst, int cnt); - /// - /// Moves this block into the sub blocks of the specified destination. - /// - /// The destination block to move under. - /// true if successful; otherwise, false. - bool MoveToSub(ICodeBlock cDst); - /// - /// Converts to code. - /// - /// The indent. - /// string. - string ToCode(int indent = 4); -} - diff --git a/Transpiler_pp/TranspilerLib/Interfaces/Code/ICodeBuilder.cs b/Transpiler_pp/TranspilerLib/Interfaces/Code/ICodeBuilder.cs deleted file mode 100644 index c9f8dfc1d..000000000 --- a/Transpiler_pp/TranspilerLib/Interfaces/Code/ICodeBuilder.cs +++ /dev/null @@ -1,25 +0,0 @@ -using TranspilerLib.Data; - -namespace TranspilerLib.Interfaces.Code -{ - /// - /// Builds an tree from a stream of . - /// - public interface ICodeBuilder - { - /// - /// Creates a new builder state object used to accumulate blocks, labels, and gotos while parsing tokens. - /// - /// The root block the builder should attach newly created nodes to. - /// A fresh context. - ICodeBuilderData NewData(ICodeBlock block); - - /// - /// Processes a single token and mutates the provided accordingly - /// (creating/moving/emitting blocks and control-flow constructs as needed). - /// - /// The token to handle. - /// The active builder state. - void OnToken(TokenData tokenData, ICodeBuilderData data); - } -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib/Interfaces/Code/ICodeBuilderData.cs b/Transpiler_pp/TranspilerLib/Interfaces/Code/ICodeBuilderData.cs deleted file mode 100644 index 67940829b..000000000 --- a/Transpiler_pp/TranspilerLib/Interfaces/Code/ICodeBuilderData.cs +++ /dev/null @@ -1,32 +0,0 @@ -using System.Collections.Generic; -using TranspilerLib.Data; - -namespace TranspilerLib.Interfaces.Code -{ - /// - /// Represents the mutable state used by an while constructing an tree. - /// - public interface ICodeBuilderData - { - /// - /// Gets or sets the current block being appended to or modified. - /// - ICodeBlock actualBlock { get; set; } - /// - /// Gets or sets the map of encountered label identifiers to their corresponding blocks. - /// - Dictionary labels { get; set; } - /// - /// Gets or sets the list of encountered goto statements for later target resolution. - /// - List gotos { get; set; } - /// - /// Gets or sets a flag used by builders to detect statement boundaries (e.g., after breaks or strings). - /// - bool xBreak { get; set; } - /// - /// Gets or sets the last processed to aid context-sensitive decisions. - /// - CodeBlockType cbtLast { get; set; } - } -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib/Interfaces/Code/ICodeOptimizer.cs b/Transpiler_pp/TranspilerLib/Interfaces/Code/ICodeOptimizer.cs deleted file mode 100644 index 2870638f4..000000000 --- a/Transpiler_pp/TranspilerLib/Interfaces/Code/ICodeOptimizer.cs +++ /dev/null @@ -1,19 +0,0 @@ -namespace TranspilerLib.Interfaces.Code -{ - /// - /// Provides optimization hooks for post-parse code structure clean-up and control-flow reconstruction. - /// - public interface ICodeOptimizer - { - /// - /// Gets or sets the flag to disable while/do-while reconstruction. When true, such rewrites are suppressed. - /// - bool _noWhile { get; set; } - - /// - /// Analyzes and potentially rewrites the supplied to simplify the block graph. - /// - /// The code block candidate to test and optimize. - void TestItem(ICodeBlock item); - } -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib/Interfaces/Code/IIECCode.cs b/Transpiler_pp/TranspilerLib/Interfaces/Code/IIECCode.cs deleted file mode 100644 index c9cd0f136..000000000 --- a/Transpiler_pp/TranspilerLib/Interfaces/Code/IIECCode.cs +++ /dev/null @@ -1,11 +0,0 @@ -namespace TranspilerLib.Interfaces.Code; - -/// -/// Represents an interface for IEC (International Electrotechnical Commission) codes, extending the functionality of -/// the interface. -/// -/// This interface serves as a marker or base for defining IEC-specific code implementations. It inherits -/// from , allowing for shared functionality across code-related types. -public interface IIECCode : ICodeBase -{ -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib/Interfaces/Code/ITokenHandler.cs b/Transpiler_pp/TranspilerLib/Interfaces/Code/ITokenHandler.cs deleted file mode 100644 index 190a68e97..000000000 --- a/Transpiler_pp/TranspilerLib/Interfaces/Code/ITokenHandler.cs +++ /dev/null @@ -1,24 +0,0 @@ -using System; -using TranspilerLib.Models; - -namespace TranspilerLib.Interfaces.Code -{ - /// - /// Abstraction for a stateful token handler used during lexical analysis. - /// - public interface ITokenHandler - { - /// - /// Sets the reserved words used to distinguish identifiers from keywords during scanning. - /// - string[] reservedWords { set; } - - /// - /// Retrieves a handler delegate for the given . - /// - /// The current tokenizer state. - /// When this method returns, contains the state handler delegate if found. - /// true if a handler for the state exists; otherwise, false. - bool TryGetValue(int state, out Action handler); - } -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib/Interfaces/IHasParents.cs b/Transpiler_pp/TranspilerLib/Interfaces/IHasParents.cs deleted file mode 100644 index 787bf218f..000000000 --- a/Transpiler_pp/TranspilerLib/Interfaces/IHasParents.cs +++ /dev/null @@ -1,21 +0,0 @@ -namespace TranspilerLib.Interfaces; - -/// -/// Definiert ein Objekt, das einen Verweis auf sein übergeordnetes Objekt (Parent) besitzt. -/// -/// Der Typ des übergeordneten Objekts. Muss eine Referenztyp-Klasse sein. -/// -/// Diese Schnittstelle unterstützt hierarchische Strukturen (z. B. AST-Knoten), -/// indem jedes Element optional auf sein Parent-Element verweist. Der Wert kann -/// null sein, wenn das Objekt an der Wurzel der Hierarchie steht. -/// -public interface IHasParents where T : class -{ - /// - /// Ruft das übergeordnete Objekt ab oder legt es fest. - /// - /// - /// Das Parent-Objekt vom Typ oder null, wenn kein Parent vorhanden ist. - /// - T? Parent { get; set; } -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib/Interfaces/IInterpreter.cs b/Transpiler_pp/TranspilerLib/Interfaces/IInterpreter.cs deleted file mode 100644 index 5b338a3ab..000000000 --- a/Transpiler_pp/TranspilerLib/Interfaces/IInterpreter.cs +++ /dev/null @@ -1,8 +0,0 @@ -namespace TranspilerLib.Interfaces; -/// -/// Interface for interpreters that can execute code blocks. -/// -public interface IInterpreter -{ - -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib/Interfaces/IOutput.cs b/Transpiler_pp/TranspilerLib/Interfaces/IOutput.cs deleted file mode 100644 index 11876a15a..000000000 --- a/Transpiler_pp/TranspilerLib/Interfaces/IOutput.cs +++ /dev/null @@ -1,17 +0,0 @@ -using System; -using TranspilerLib.Interfaces; - -namespace TranspilerLib.Interfaces; -/// -/// Interface for output handlers that process reader data and produce output. -/// -public interface IOutput -{ - /// - /// Outputs the specified reader. - /// - /// The reader. - /// The write. - /// The debug. - void Output(IReader reader, Action write, Action debug); -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib/Interfaces/IReader.cs b/Transpiler_pp/TranspilerLib/Interfaces/IReader.cs deleted file mode 100644 index a666a46fa..000000000 --- a/Transpiler_pp/TranspilerLib/Interfaces/IReader.cs +++ /dev/null @@ -1,99 +0,0 @@ -namespace TranspilerLib.Interfaces -{ - /// - /// Definiert einen vorwärtsgerichteten, zustandsbehafteten Reader über eine - /// strukturierte Eingabe (z. B. Token-, Knoten- oder Elementsequenz). - /// Der Reader erlaubt sequenzielles Lesen von Start-/End-Elementen, Attributen und Werten. - /// - /// - /// Das Interface abstrahiert typische Funktionen ähnlich eines XML- oder AST-Readers: - /// - Navigation erfolgt ausschließlich vorwärts mittels . - /// - Attribute eines aktuellen Start-Elements können über Index abgefragt werden. - /// - Werte sind nur verfügbar, wenn wahr ist. - /// - Elementgrenzen werden über und kenntlich. - /// Implementierungen sollten nach Erreichen des Endes dauerhaft true zurückgeben. - /// - public interface IReader - { - /// - /// Gibt an, ob das aktuelle Start-Element leer ist (d. h. kein separates End-Element folgt). - /// - /// Typisch für Konstrukte wie <element /> in XML-ähnlichen Strukturen. - bool IsEmptyElement { get; } - - /// - /// Gibt an, ob am aktuellen Readerpunkt ein Wert verfügbar ist. - /// - /// - /// Ist true, kann aufgerufen werden, um den Inhalt zu lesen. - /// Ein Wert kann z. B. Text- oder Literalinhalt sein. - /// - bool HasValue { get; } - - /// - /// Bestimmt, ob das Ende des Datenstroms erreicht wurde. - /// - /// true, wenn keine weiteren Elemente gelesen werden können; andernfalls false. - bool EOF(); - - /// - /// Liefert die Anzahl der Attribute des aktuellen Start-Elements. - /// - /// Anzahl der verfügbaren Attribute (0, wenn keine vorhanden). - int GetAttributeCount(); - - /// - /// Liefert den lokalen Namen eines Attributes anhand seines Index. - /// - /// Der nullbasierte Attributindex. - /// Der Name des Attributs. - /// Wenn der Index außerhalb des gültigen Bereichs liegt. - string GetAttributeName(int i); - - /// - /// Liefert den Wert eines Attributes anhand seines Index. - /// - /// Der nullbasierte Attributindex. - /// Der Attributwert (typischerweise ), oder ein typ-spezifisches Objekt. - /// Wenn der Index außerhalb des gültigen Bereichs liegt. - object GetAttributeValue(int i); - - /// - /// Liefert den lokalen Namen des aktuellen Elements oder Knotens. - /// - /// Der lokale Elementname, oder null, falls nicht anwendbar. - string GetLocalName(); - - /// - /// Liefert den Wert am aktuellen Positionierungspunkt. - /// - /// - /// Nur aufrufen, wenn wahr ist. Rückgabewert kann je nach Implementierung - /// typisiert sein (z. B. , numerische Literaltypen oder komplexe Objekte). - /// - /// Der aktuelle Wert oder null, falls keiner vorhanden. - object getValue(); - - /// - /// Gibt an, ob sich der Reader aktuell auf einem End-Element befindet. - /// - /// true, wenn ein End-Element erkannt wurde; andernfalls false. - bool IsEndElement(); - - /// - /// Gibt an, ob sich der Reader aktuell auf einem Start-Element befindet. - /// - /// true, wenn ein Start-Element erkannt wurde; andernfalls false. - bool IsStartElement(); - - /// - /// Liest den nächsten Knoten / das nächste Element aus der Eingabesequenz. - /// - /// - /// Bei erfolgreichem Lesen wird der interne Cursor weitergeschoben und die Eigenschaften - /// spiegeln den neuen Zustand wider. Bei Ende des Stroms liefert der Aufruf false. - /// - /// true, wenn ein weiterer Eintrag gelesen wurde; false bei Ende. - bool Read(); - } -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib/Models/CFileScanner.cs b/Transpiler_pp/TranspilerLib/Models/CFileScanner.cs deleted file mode 100644 index 2a68d99c6..000000000 --- a/Transpiler_pp/TranspilerLib/Models/CFileScanner.cs +++ /dev/null @@ -1,37 +0,0 @@ -using System.Reflection; - -namespace TranspilerLib.Models; - -/// -/// Provides file scanning related types and callbacks used by the transpiler to process resources and warnings. -/// -public class CFileScanner -{ - /// - /// Represents a callback that handles an individual resource file discovered by the scanner. - /// - /// The sender that triggered the callback, typically the scanner instance. - /// The full path or name of the resource file being handled. - /// Additional options or parameters associated with the resource handling. - public delegate void TResourceHandler(object? Sender, string aFileName, TStrings aOptions); - - /// - /// Describes a mapping between a file extension and a corresponding . - /// - public struct TResourceHandlerRecord - { - string Ext; - TResourceHandler Handler; - } - - /// - /// Represents a warning-number specific state used while scanning files. - /// - public struct TWarnMsgNumberState - { - int Number; - // TWarnMsgState State; - } - - -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib/Models/CPascalScanner.cs b/Transpiler_pp/TranspilerLib/Models/CPascalScanner.cs deleted file mode 100644 index db86e7204..000000000 --- a/Transpiler_pp/TranspilerLib/Models/CPascalScanner.cs +++ /dev/null @@ -1,16 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using System.Text; -using System.Threading.Tasks; - -namespace TranspilerLib.Models; - -/// -/// Scanner for Pascal source files. -/// -/// -public class CPascalScanner:CFileScanner -{ - -} diff --git a/Transpiler_pp/TranspilerLib/Models/EMessageType.cs b/Transpiler_pp/TranspilerLib/Models/EMessageType.cs deleted file mode 100644 index dfcae3bc2..000000000 --- a/Transpiler_pp/TranspilerLib/Models/EMessageType.cs +++ /dev/null @@ -1,42 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using System.Text; -using System.Threading.Tasks; - -namespace TranspilerLib.Models; - -/// -/// Defines the severity or kind of diagnostic messages that can be emitted by components in this library. -/// -public enum EMessageType -{ - /// - /// A fatal error indicating that processing cannot continue. - /// - mtFatal, - /// - /// A non-recoverable error condition for a particular operation. - /// - mtError, - /// - /// A recoverable issue that may affect output or behavior. - /// - mtWarning, - /// - /// An informational note providing additional context. - /// - mtNote, - /// - /// A suggestion or hint to improve readability or performance. - /// - mtHint, - /// - /// General informational message. - /// - mtInfo, - /// - /// Debug-only message useful during development. - /// - mtDebug -} diff --git a/Transpiler_pp/TranspilerLib/Models/EToken.cs b/Transpiler_pp/TranspilerLib/Models/EToken.cs deleted file mode 100644 index 4edac9910..000000000 --- a/Transpiler_pp/TranspilerLib/Models/EToken.cs +++ /dev/null @@ -1,300 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using System.Text; -using System.Threading.Tasks; - -namespace TranspilerLib.Models; - -/// -/// Represents all token kinds produced by the scanner / lexer. -/// -public enum EToken -{ - /// End of input. - tkEOF, - /// Whitespace (space, tab, etc.). - tkWhitespace, - /// Identifier. - tkIdentifier, - /// Label (identifier followed by colon in some languages). - tkLabel, - /// String constant. - tkStringConst, - /// Numeric literal. - tkNumber, - /// Control character / character literal (^A .. ^Z). - tkCharacter, // ^A .. ^Z - /// Line ending (newline sequence). - tkLineEnding, // normal LineEnding - /// Tabulator character. - tkTab, // a Tabulator-Key - - /// C style line comment //. - tkLineComment, // // - /// C style block comment /* ... */. - tkComment, // /* ... */ - - // Simple (one-character) tokens - /// '{' - tkCurlyBraceOpen, // '{' - /// '}' - tkCurlyBraceClose, // '}' - /// '(' - tkBraceOpen, // '(' - /// ')' - tkBraceClose, // ')' - /// '*' - tkMul, // '*' - /// '+' - tkPlus, // '+' - /// ',' - tkComma, // ',' - /// '-' - tkMinus, // '-' - /// '.' - tkDot, // '.') - /// '/' - tkDivision, // '/' - /// ':' - tkColon, // ':' - /// ';' - tkSemicolon, // ';' - /// '%lt;' - tkLessThan, // '<' - /// '=' (single assign) - tkAssign, // '=' - /// '>' - tkGreaterThan, // '>' - // tkAt, // '@' - /// '[' - tkSquaredBraceOpen, // '[' - /// ']' - tkSquaredBraceClose, // ']' - /// '^' (xor operator) - tkXor, // '^' (xor operator) - /// '\' - tkBackslash, // '\' - /// '&' - tkSingleAnd, // '&' - /// '|' - tkSingleOr, // '|' - /// '!' - tkNot, // '!' - /// '?' - tkAsk, // '?' - /// '%' - tkMod, // '%' - /// '~' - tkKomplement, // '~' - // Two-character tokens - /// '==' equality operator. - tkEqual, // '==' - /// '=>' lambda operator. - tkLambda, // '=>' - /// '..' range / spread operator. - tkDotDot, // '..' - /// '!=' not equal operator. - tkNotEqual, // '!=' - /// '<=' less or equal operator. - tkLessEqualThan, // '<=' - /// '>=' greater or equal operator. - tkGreaterEqualThan, // '>=' - /// '**' power operator. - tkPower, // '**' - /// '><' symmetrical difference operator. - tkSymmetricalDifference, // '><' - /// '??' null-coalescing operator. - tkAskAsk, // '??' - /// '++' increment operator. - tkPlusPlus, // '++' - /// '--' decrement operator. - tkMinusMinus, // '--' - /// '+=' addition assignment. - tkAssignPlus, // '+=' - /// '-=' subtraction assignment. - tkAssignMinus, // '-=' - /// '*=' multiplication assignment. - tkAssignMul, // '*=' - /// '/=' division assignment. - tkAssignDivision, // '/=' - /// '%=' modulo assignment. - tkAssignModulo, // '%=' - /// '&=' bitwise and assignment. - tkAssignAnd, // '&=' - /// '|=' bitwise or assignment. - tkAssignOr, // '|=' - /// '^=' bitwise xor assignment. - tkAssignXor, // '^=' - /// '&&' logical and operator. - tkAnd, // '&&' - /// '||' logical or operator. - tkOr, // '||' - /// '%lt;%lt;' shift-left operator. - tkShl, // '<<' - /// '>>' shift-right operator. - tkShr, // '>>' - // Three-Character token - /// '<%lt;=' shift-left assignment. - tkAssignShl, // '<<=' - /// '>>=' shift-right assignment. - tkAssignShr, // '>>=' - /// '??=' null-coalescing assignment. - tkAssignAsk, // '??=' - - // Reserved words - /// 'abstract' keyword. - tkAbstract, - /// 'as' keyword. - tkAs, - /// 'base' keyword. - tkBase, - /// 'bool' keyword. - tkBool, - /// 'break' keyword. - tkBreak, - /// 'byte' keyword. - tkByte, - /// 'case' keyword. - tkCase, - /// 'catch' keyword. - tkCatch, - /// 'char' keyword. - tkChar, - /// 'checked' keyword. - tkChecked, - /// 'class' keyword. - tkClass, - /// 'const' keyword. - tkConst, - /// 'continue' keyword. - tkContinue, - /// 'decimal' keyword. - tkDecimal, - /// 'default' keyword. - tkDefault, - /// 'delegate' keyword. - tkDelegate, - /// 'do' keyword. - tkDo, - /// 'double' keyword. - tkDouble, - /// 'else' keyword. - tkElse, - /// 'enum' keyword. - tkEnum, - /// 'event' keyword. - tkEvent, - /// 'explicit' keyword. - tkExplicit, - /// 'extern' keyword. - tkExtern, - /// 'false' literal. - tkFalse, - /// 'finally' keyword. - tkFinally, - /// 'fixed' keyword. - tkFixed, - /// 'float' keyword. - tkFloat, - /// 'for' keyword. - tkFor, - /// 'foreach' keyword. - tkForeach, - /// 'goto' keyword. - tkGoto, - /// 'if' keyword. - tkIf, - /// 'implicit' keyword. - tkImplicit, - /// 'in' keyword. - tkIn, - /// 'int' keyword. - tkInt, - /// 'interface' keyword. - tkInterface, - /// 'internal' keyword. - tkInternal, - /// 'is' keyword. - tkIs, - /// 'lock' keyword. - tkLock, - /// 'long' keyword. - tkLong, - /// 'namespace' keyword. - tkNamespace, - /// 'new' keyword. - tkNew, - /// 'null' literal. - tkNull, - /// 'object' keyword. - tkObject, - /// 'operator' keyword. - tkOperator, - /// 'out' keyword. - tkOut, - /// 'override' keyword. - tkOverride, - /// 'params' keyword. - tkParams, - /// 'private' keyword. - tkPrivate, - /// 'protected' keyword. - tkProtected, - /// 'public' keyword. - tkPublic, - /// 'readonly' keyword. - tkReadonly, - /// 'ref' keyword. - tkRef, - /// 'return' keyword. - tkReturn, - /// 'sbyte' keyword. - tkSbyte, - /// 'sealed' keyword. - tkSealed, - /// 'short' keyword. - tkShort, - /// 'sizeof' keyword. - tkSizeof, - /// 'stackalloc' keyword. - tkStackalloc, - /// 'static' keyword. - tkStatic, - /// 'string' keyword. - tkString, - /// 'struct' keyword. - tkStruct, - /// 'switch' keyword. - tkSwitch, - /// 'this' keyword. - tkThis, - /// 'throw' keyword. - tkThrow, - /// 'true' literal. - tkTrue, - /// 'try' keyword. - tkTry, - /// 'typeof' keyword. - tkTypeof, - /// 'uint' keyword. - tkUint, - /// 'ulong' keyword. - tkUlong, - /// 'unchecked' keyword. - tkUnchecked, - /// 'unsafe' keyword. - tkUnsafe, - /// 'ushort' keyword. - tkUshort, - /// 'using' keyword. - tkUsing, - /// 'virtual' keyword. - tkVirtual, - /// 'void' keyword. - tkVoid, - /// 'volatile' keyword. - tkVolatile, - /// 'while' keyword. - tkWhile -} diff --git a/Transpiler_pp/TranspilerLib/Models/Interpreter/InterpData.cs b/Transpiler_pp/TranspilerLib/Models/Interpreter/InterpData.cs deleted file mode 100644 index fd259dd1e..000000000 --- a/Transpiler_pp/TranspilerLib/Models/Interpreter/InterpData.cs +++ /dev/null @@ -1,23 +0,0 @@ -using TranspilerLib.Interfaces.Code; - -namespace TranspilerLib.Models.Interpreter; - -/// -/// Laufzeitdaten für den Interpreter (Program Counter und ggf. weitere Statusinformationen in Zukunft). -/// -public class InterpData -{ - /// - /// Erstellt eine neue Instanz und setzt den Program Counter auf . - /// - /// Erster auszuführender Codeblock. - public InterpData(ICodeBlock? next) - { - pc = next; - } - - /// - /// Program Counter – zeigt auf den aktuell auszuführenden Block. - /// - public ICodeBlock? pc { get; set; } -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib/Models/Interpreter/InterpreterBase.cs b/Transpiler_pp/TranspilerLib/Models/Interpreter/InterpreterBase.cs deleted file mode 100644 index 114b27e15..000000000 --- a/Transpiler_pp/TranspilerLib/Models/Interpreter/InterpreterBase.cs +++ /dev/null @@ -1,7 +0,0 @@ -namespace TranspilerLib.Models.Interpreter; -/// -/// Base class for interpreters that can execute code blocks. -/// -public class InterpreterBase -{ -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib/Models/ParentedItemsList.cs b/Transpiler_pp/TranspilerLib/Models/ParentedItemsList.cs deleted file mode 100644 index 3739f69c4..000000000 --- a/Transpiler_pp/TranspilerLib/Models/ParentedItemsList.cs +++ /dev/null @@ -1,139 +0,0 @@ -using System; -using System.Collections; -using System.Collections.Generic; -using TranspilerLib.Interfaces; - -namespace TranspilerLib.Models; - -/// -/// Stellt eine Liste von Elementen bereit, die jeweils einen Verweis auf ihr übergeordnetes Objekt (Parent) besitzen. -/// Beim Einfügen oder Hinzufügen eines Elements wird dessen automatisch auf den Parent dieser Liste gesetzt, -/// sofern es noch keinen Parent hat oder ein anderer Parent hinterlegt ist. -/// -/// -/// Der Elementtyp. Muss eine Klassen-Referenz sein, implementieren und vergleichbar über sein. -/// -/// -/// Typisches Einsatzszenario sind hierarchische oder baumartige Strukturen (z. B. AST-Knoten), -/// bei denen ein konsistenter Parent-Verweis gepflegt werden soll. -/// -public class ParentedItemsList : IHasParents, IList where T : class, IHasParents, IEquatable -{ - /// - /// Interne Speicherliste der Elemente. - /// - private readonly List list = new(); - - /// - /// Der Parent, der allen eingefügten Elementen zugewiesen wird (sofern erforderlich). - /// - /// - /// Ist dieser Wert null, werden neue Elemente nicht verändert, selbst wenn sie keinen Parent besitzen. - /// - public T Parent { get; set; } - - /// - /// Gibt die Anzahl der enthaltenen Elemente zurück. - /// - public int Count => list.Count; - - /// - /// Immer false, da diese Liste veränderbar ist. - /// - public bool IsReadOnly => false; - - /// - /// Ruft das Element am angegebenen Index ab oder legt es fest. - /// - /// Der nullbasierte Index. - /// Das Element am angegebenen Index. - /// Wenn ungültig ist. - public T this[int index] { get => list[index]; set => list[index] = value; } - - /// - /// Erstellt eine neue Instanz der mit dem angegebenen Parent. - /// - /// Der Parent, der neuen Elementen zugewiesen wird (falls nötig). - public ParentedItemsList(T _parent) - { - Parent = _parent; - } - - /// - /// Ermittelt den Index eines bestimmten Elements. - /// - /// Das zu suchende Element. - /// Der Index oder -1, falls nicht gefunden. - public int IndexOf(T item) => list.IndexOf(item); - - /// - /// Fügt ein Element an einer bestimmten Position ein und setzt dessen Parent falls erforderlich. - /// - /// Der nullbasierte Insert-Index. - /// Das einzufügende Element. - /// Wenn ungültig ist. - public void Insert(int index, T item) - { - if (!item.Parent?.Equals(Parent) ?? Parent != null) - item.Parent = Parent; - list.Insert(index, item); - } - - /// - /// Entfernt das Element am angegebenen Index. - /// - /// Der nullbasierte Index. - /// Wenn ungültig ist. - public void RemoveAt(int index) => list.RemoveAt(index); - - /// - /// Fügt ein Element am Ende ein und setzt dessen Parent falls erforderlich. - /// - /// Das hinzuzufügende Element. - public void Add(T item) - { - if (!item.Parent?.Equals(Parent) ?? Parent != null) - item.Parent = Parent; - list.Add(item); - } - - /// - /// Entfernt alle Elemente aus der Liste. - /// - public void Clear() => list.Clear(); - - /// - /// Prüft, ob ein Element enthalten ist. - /// - /// Das zu prüfende Element. - /// true, wenn enthalten; andernfalls false. - public bool Contains(T item) => list.Contains(item); - - /// - /// Kopiert die Elemente in ein Zielarray ab einem Startindex. - /// - /// Das Zielarray. - /// Startindex im Zielarray. - public void CopyTo(T[] array, int arrayIndex) => list.CopyTo(array, arrayIndex); - - /// - /// Entfernt ein bestimmtes Element, sofern vorhanden. - /// - /// Das zu entfernende Element. - /// true, wenn entfernt; andernfalls false. - public bool Remove(T item) => list.Remove(item); - - /// - /// Gibt einen Enumerator über die Elemente zurück. - /// - /// Enumerator über die Liste. - public IEnumerator GetEnumerator() => list.GetEnumerator(); - - /// - /// Nicht-generischer Enumerator. - /// - /// Enumerator über die Liste. - IEnumerator IEnumerable.GetEnumerator() => list.GetEnumerator(); -} - - diff --git a/Transpiler_pp/TranspilerLib/Models/Scanner/CodeBase.cs b/Transpiler_pp/TranspilerLib/Models/Scanner/CodeBase.cs deleted file mode 100644 index e9026a55f..000000000 --- a/Transpiler_pp/TranspilerLib/Models/Scanner/CodeBase.cs +++ /dev/null @@ -1,50 +0,0 @@ -using System.Collections.Generic; -using TranspilerLib.Data; -using TranspilerLib.Interfaces.Code; - -namespace TranspilerLib.Models.Scanner; - -/// -/// Abstrakte Basisklasse für IEC / C / andere Quellcode-Repräsentationen. -/// Bietet den gemeinsamen Lebenszyklus: setzen, (oder Callback-Variante), -/// anschließend zum Aufbau eines -Baums -/// und abschließend zur Re-Emission / Transformation. -/// -public abstract class CodeBase : ICodeBase -{ - /// - /// Roh-Quelltext der Einheit (z.B. eine Datei, Funktionsblock, Fragment). - /// Kann von konkreten Implementierungen beim Tokenisieren ausgewertet werden. - /// - public string OriginalCode { get; set; } = string.Empty; - - /// - /// Vollständige Tokenisierung des aktuell gesetzten . - /// - /// Enumerable aller erzeugten in lexikalischer Reihenfolge. - public abstract IEnumerable Tokenize(); - - /// - /// Tokenisiert den Quelltext und ruft für jedes Token den optionalen Callback auf. - /// - /// Optionaler Delegat zur Streaming-Verarbeitung einzelner Tokens (kann null sein). - public abstract void Tokenize(ICodeBase.TokenDelegate? token); - - /// - /// Parst entweder die übergebenen Tokens oder – falls null ist – das Ergebnis von . - /// - /// Vorgegebene Token-Sequenz (optional). - /// Wurzel- des generierten Syntax-/Strukturbaumes. - public abstract ICodeBlock Parse(IEnumerable? values = null); - - /// - /// Konvertiert einen vorhandenen Block-Baum in formatierten Code. - /// - /// Wurzel des auszugebenden Codeblock-Baumes. - /// Basis-Einrückung (Default 4). - /// Formatierter Code als String. - public string ToCode(ICodeBlock codeBlock, int indent = 4) - { - return codeBlock.ToCode(indent); - } -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib/Models/Scanner/CodeBlock.cs b/Transpiler_pp/TranspilerLib/Models/Scanner/CodeBlock.cs deleted file mode 100644 index ccd6a59a1..000000000 --- a/Transpiler_pp/TranspilerLib/Models/Scanner/CodeBlock.cs +++ /dev/null @@ -1,441 +0,0 @@ -// *********************************************************************** -// Assembly : TranspilerLib -// Author : Mir -// Created : 09-29-2023 -// -// Last Modified By : Mir -// Last Modified On : 09-29-2023 -// *********************************************************************** -// -// Copyright © JC-Soft 2023 -// -// -// *********************************************************************** -using BaseLib.Helper; -using System; -using System.Collections.Generic; -using System.Linq; -using System.Runtime.Serialization; -using TranspilerLib.Data; -using TranspilerLib.Interfaces.Code; - -namespace TranspilerLib.Models.Scanner; - - -/// -/// Represents a hierarchical unit of parsed source code. -/// A CodeBlock can contain nested sub blocks forming a tree structure -/// (e.g. namespaces, classes, methods, statements, labels, etc.). -/// It also supports weak references to control-flow destinations and sources -/// (e.g. for Goto/Label relationships) without preventing garbage collection. -/// -/// -/// Main responsibilities: -/// 1. Maintain parent/child relationships among code blocks. -/// 2. Track positional metadata () and structural metadata (, ). -/// 3. Represent semantic type information via . -/// 4. Manage directed weak links for flow navigation ( and ). -/// 5. Provide helper operations to move or delete sub blocks while keeping references consistent. -/// 6. Support serialization of destination/source references through index paths (, ). -/// -public class CodeBlock : ICodeBlock -{ - #region Properties - - /// - /// Backing field for . - /// - private ICodeBlock? _parent = null; - - /// - /// Gets the depth level of this block within the root code tree. - /// Root level is 0; each nested level increments by 1. - /// - /// Zero-based depth level. - public int Level => Parent?.Level + 1 ?? 0; - - /// - /// Gets the zero-based index of this block among its siblings in 's list. - /// Returns 0 if this block has no parent. - /// - /// The sibling index or 0 if no parent. - public int Index => Parent?.SubBlocks.IndexOf(this) ?? 0; - - /// - /// Gets or sets the logical name of this code block (e.g. identifier, label, method name). - /// May be empty if not applicable for the . - /// - /// Human readable or identifier name. - public string Name { get; set; } = ""; - - /// - /// Gets or sets the raw code text fragment represented by this block. - /// This is typically the original token(s) or reconstructed code for output. - /// - /// Source code fragment. - public string Code { get; set; } = ""; - - /// - /// Gets or sets the semantic classification for this block. - /// Used to distinguish structural, declarative, and operational elements. - /// - /// A value of . - public CodeBlockType Type { get; set; } - - /// - /// Gets the list of child code blocks nested inside this block. - /// Children maintain their own parent reference automatically. - /// - /// Mutable list of sub blocks. - public IList SubBlocks { get; init; } - - /// - /// Gets the next sibling block under the same parent, if any. - /// - /// Next sibling or null. - public ICodeBlock? Next => Parent is ICodeBlock pcb && pcb.SubBlocks.Count > Index + 1 ? pcb.SubBlocks[Index + 1] : null; - - /// - /// Gets the previous sibling block under the same parent, if any. - /// - /// Previous sibling or null. - public ICodeBlock? Prev => Parent is ICodeBlock pcb && 0 < Index ? pcb.SubBlocks[Index - 1] : null; - - /// - /// Gets or sets the weak reference to a destination block (e.g. target of a Goto or jump). - /// This forms a single forward link; the reciprocal sources are recorded in . - /// - /// - /// Weak reference is used to avoid ownership cycles and permit GC if blocks become detached. - /// - /// Weak reference to destination or null. - [IgnoreDataMember] - public virtual WeakReference? Destination { get; set; } - - /// - /// Gets or sets a serialized index-path representation of . - /// The path is a sequence of indexes from root to the referenced block. - /// Setting this reconstructs the weak destination link and updates the target's . - /// - /// Index path list; empty if no destination. - [DataMember(EmitDefaultValue = false)] - public List DestinationIndex { get => GetItemIdx(Destination); set => Destination = SetDestByIdx(this, value); } - - /// - /// Gets the collection of weak references to blocks that point to this block as their . - /// - /// - /// Each entry is a weak reference; entries may become invalid if the source is GC collected. - /// - /// List of weak references to source blocks. - [IgnoreDataMember] - public virtual IList> Sources { get; private set; } = new List>(); - - /// - /// Gets or sets the index-paths for each source referring to this block. - /// Setting reconstructs the list and updates each source's . - /// - /// Collection of index paths; each path identifies a source block. - [DataMember(EmitDefaultValue = false)] - public List> SourcesIndex - { - get => Sources.Select((s) => GetItemIdx(s)).ToList(); - set => Sources = value.Select((s) => SetSourceByIdx(this, s)).Where((s) => s != null).Select(s=>s!).ToList(); - } - - /// - /// Gets or sets the parent block in the hierarchical tree. - /// Setting handles removal from the previous parent and insertion into the new parent's . - /// Passing null detaches the block from the tree. - /// - /// - /// Insertion happens at the end of the new parent's children list. - /// - /// Parent block or null. - [IgnoreDataMember] - public virtual ICodeBlock? Parent - { - get => _parent; - set - { - if (_parent != value) - { - _ = (_parent?.SubBlocks.Remove(this)); - _parent = value; - _parent?.SubBlocks.Add(this); - } - } - } - - /// - /// Gets the zero-based character position in the original source text - /// where parsing produced this block. - /// Useful for diagnostics, mapping, and error reporting. - /// - /// Character index into original source. - public int SourcePos { get; init; } - - #endregion - - /// - /// Initializes a new instance of the class. - /// Creates an empty list bound to this instance as parent. - /// - public CodeBlock() - { - SubBlocks = new ParentedItemsList(this); - } - - /// - /// Creates a destination weak reference from an index path and registers - /// this block as a source of the destination. - /// - /// Current block initiating the link. - /// Index path to target block (root-first order). - /// Weak reference to destination or null if invalid path. - /// - /// Adds a reciprocal source entry in the destination's . - /// - private static WeakReference? SetDestByIdx(ICodeBlock item, List value) - { - WeakReference? result = null; - ICodeBlock? dst = GetItemByIndex(item, value); - if (dst != null) - { - result = new(dst); - dst.Sources.Add(new(item)); - } - return result; - } - - /// - /// Creates a source weak reference from an index path and sets the source's - /// destination to this block. - /// - /// Current destination block. - /// Index path to source block. - /// Weak reference to source or null if invalid path. - /// - /// Updates the source block's property to point to . - /// - private static WeakReference? SetSourceByIdx(ICodeBlock item, List value) - { - WeakReference? result = null; - ICodeBlock? src = GetItemByIndex(item, value); - if (src != null) - { - result = new(src); - src.Destination = new(item); - } - return result; - } - - /// - /// Resolves an index path into a block starting from the root ancestor of . - /// - /// Reference block from which the root is derived. - /// Sequence of child indexes from root to desired block. - /// The resolved block or null if any index is invalid. - private static ICodeBlock? GetItemByIndex(ICodeBlock item, List value) - { - ICodeBlock root = GetRoot(item); - ICodeBlock? item2 = null; - foreach (var v in value) - { - if (item2 == null) - item2 = root; - else if (item2 != null && v >= item2.SubBlocks.Count || v < 0) - { item2 = null; break; } - else - item2 = item2!.SubBlocks[v]; - } - return item2; - } - - /// - /// Traverses upward from a given block to obtain the root ancestor. - /// - /// Starting block. - /// Root block (topmost with no parent). - private static ICodeBlock GetRoot(ICodeBlock item) - { - var root = item; - while (root.Parent is ICodeBlock pcb) - root = pcb; - return root; - } - - /// - /// Converts a weak block reference into an index path suitable for serialization. - /// - /// Weak reference to a target block. - /// Index path from root to target or empty list if null/unresolved. - private static List GetItemIdx(WeakReference? Dst) - { - List result = new(); - if (Dst?.TryGetTarget(out var target) ?? false) - { - result.Add(target.Index); - while (target.Parent is ICodeBlock pcb) - { - result.Insert(0, pcb.Index); - target = pcb; - } - } - return result; - } - - /// - /// Returns a string representation including metadata and recursively nested blocks. - /// Intended for debugging; not guaranteed to be valid recompilable source. - /// - /// Multi-line string representation. - public override string ToString() - { - return $"///{Name} {Type} {Level},{Index}{(Destination != null ? " Dest:OK" : "")}{(Sources.Count > 0 ? $" {Sources.Count}" : "")}\r\n{Code}{(SubBlocks.Count > 0 ? Environment.NewLine : string.Empty)}{string.Join(Environment.NewLine, SubBlocks)}"; - } - - /// - /// Renders this block and its descendants into a formatted code string. - /// - /// Current indentation level (spaces). First nested blocks increase indentation. - /// Formatted code snippet (not necessarily identical to original source). - /// - /// Adds an inline comment annotation for label blocks receiving more than two incoming sources. - /// - public virtual string ToCode(int indent = 4) - { - string codeComment = string.Empty; - if (Type is CodeBlockType.Label && Sources.Count > 2) - codeComment = $" // <========== {Sources.Count}"; - return $"{new string(' ', Type is CodeBlockType.Block or CodeBlockType.Label ? indent - 4 : indent)}{Code}{codeComment}{(SubBlocks.Count > 0 ? Environment.NewLine : string.Empty)}{string.Join(Environment.NewLine, SubBlocks.Select((c) => c.ToCode(indent + 4)))}"; - } - - /// - /// Moves a contiguous range of child blocks within this block's list. - /// - /// Index of the first block to move. - /// Destination index for insertion (after move). - /// Number of blocks to move. - /// true if move succeeded; otherwise false. - /// - /// Rejects invalid indexes or no-op moves. Adjusts ordering while preserving parent references. - /// - public bool MoveSubBlocks(int iSrc, int iDst, int cnt) - { - if (iSrc == iDst || iSrc < 0 || iSrc + cnt >= SubBlocks.Count || iDst < 0 || iDst >= SubBlocks.Count) - return false; - - for (int i = 0; i < cnt; i++) - if (iDst > iSrc) - { - SubBlocks.MoveItem(iSrc, iDst); - } - else - { - SubBlocks.MoveItem(iSrc++, iDst++); - } - return true; - } - - /// - /// Moves a contiguous range of child blocks possibly into another block's parent list. - /// - /// Index of first block to move from this block. - /// Destination block whose parent list will receive moved blocks. - /// Number of blocks to move. - /// true if move succeeded; otherwise false. - /// - /// If shares the same parent, delegates to the indexed overload. - /// Otherwise reassigns each moved block's parent and reorders within the destination parent's list. - /// - public bool MoveSubBlocks(int iSrc, ICodeBlock cDst, int cnt) - { - if (cDst == null - || (cDst.Parent == this && iSrc == cDst.Index) - || iSrc < 0 - || iSrc + cnt >= SubBlocks.Count - || cDst.Parent == null - ) - return false; - if (cDst.Parent == this) - return MoveSubBlocks(iSrc, cDst.Index, cnt); - for (int i = 0; i < cnt; i++) - { - var c = SubBlocks[iSrc]; - c.Parent = cDst.Parent; - cDst.Parent.SubBlocks.MoveItem(c.Index, cDst.Index); - } - return true; - } - - /// - /// Deletes a contiguous range of sub blocks, cleaning up destination/source link references. - /// - /// Index of first sub block to delete. - /// Number of blocks to delete. - /// true if deletion succeeded; otherwise false. - /// - /// For each removed block: - /// 1. Detaches from parent. - /// 2. Removes reciprocal source entries from its destination (if any). - /// 3. Clears destination links from its sources. - /// Does not recursively delete grandchildren beyond detaching chain references. - /// - public bool DeleteSubBlocks(int iSrc, int cnt) - { - if (iSrc < 0 || iSrc + cnt >= SubBlocks.Count) - return false; - - ICodeBlock c; - for (int i = 0; i < cnt; i++) - { - (c = SubBlocks[iSrc]).Parent = null; - if (c.Destination != null && c.Destination.TryGetTarget(out var target)) - foreach (var item in target!.Sources) - if (item.TryGetTarget(out var source)) - if (source == c) - { - _ = target.Sources.Remove(item); - break; - } - if (c.Sources.Count > 0) - foreach (var item in c.Sources) - if (item.TryGetTarget(out var source)) - source.Destination = null; - } - return true; - } - - /// - /// Moves this block to become a direct child of . - /// - /// Destination parent block. - /// true if successful; otherwise false. - /// - /// Fails if: - /// - is null - /// - This block has no current parent - /// - Destination is a descendant making cyclic structure - /// - Destination equals current parent (no-op) - /// - public bool MoveToSub(ICodeBlock cDst) - { - if (cDst == null || Parent == null || cDst.Parent == this || Parent == cDst) - return false; - - Parent = cDst; - return true; - } - - /// - /// Determines whether this instance and another represent the same object reference. - /// - /// Other block to compare. - /// true if same reference; otherwise false. - public bool Equals(ICodeBlock? other) - { - return this == other; - } -} - diff --git a/Transpiler_pp/TranspilerLib/Models/Scanner/CodeBuilder.cs b/Transpiler_pp/TranspilerLib/Models/Scanner/CodeBuilder.cs deleted file mode 100644 index 2a7b39f49..000000000 --- a/Transpiler_pp/TranspilerLib/Models/Scanner/CodeBuilder.cs +++ /dev/null @@ -1,89 +0,0 @@ -using System; -using System.Collections.Generic; -using TranspilerLib.Data; -using TranspilerLib.Interfaces.Code; - -namespace TranspilerLib.Models.Scanner; - -/// -/// Abstrakte Basisklasse zur Erstellung eines hierarchischen -Baumes -/// aus einer Sequenz von . Konkrete Ableitungen übersteuern -/// üblicherweise , um sprachspezifische -/// Strukturierungsregeln (z.B. Blockgrenzen) zu implementieren. -/// -public abstract class CodeBuilder : ICodeBuilder -{ - /// - /// Fabrik-Delegate zum Anlegen eines neuen . Kann von außen ersetzt werden - /// (z.B. für spezielle Block-Typen oder Instrumentierung / Tests). - /// - /// - /// Parameter: (name, type, code, parent, pos) - /// - public Func NewCodeBlock { get; set; } = - (name, type, code, parent, pos) => new CodeBlock() { Name = name, Type = type, Code = code, Parent = parent, SourcePos = pos }; - - /// - /// Interne Standard-Implementierung der zur Laufzeit gehaltenen Build-Daten. - /// - private class CodeBuilderData : ICodeBuilderData - { - /// - public Dictionary labels { get; set; } = new(); - /// - public List gotos { get; set; } = new(); - /// - public ICodeBlock actualBlock { get; set; } - /// - public bool xBreak { get; set; } = false; - /// - public CodeBlockType cbtLast { get; set; } = CodeBlockType.Unknown; - - /// - /// Erstellt eine neue Dateninstanz für den angegebenen Startblock. - /// - /// Aktueller (Start-)Block. - public CodeBuilderData(ICodeBlock codeBlock) - { - actualBlock = codeBlock; - } - } - - /// - /// Erzeugt eine neue Build-Datenstruktur für einen gegebenen Wurzelblock. - /// Kann in Ableitungen übersteuert werden um angepasste Implementierungen bereitzustellen. - /// - /// Wurzel / Startblock. - /// Datencontainer zur Fortschrittsverwaltung. - public virtual ICodeBuilderData NewData(ICodeBlock block) - => new CodeBuilderData(block); - - /// - /// Verarbeitet ein einzelnes Token und erzeugt (bzw. verschiebt) den aktuellen Block-Kontext. - /// Die Default-Implementierung leitet anhand der Level-Differenz die Elternebene ab. - /// - /// Aktuelles Token. - /// Mutable Builder-Daten (enthält u.a. den aktuellen Block). - /// Geworfen wenn eine unvorhergesehene Level-Differenz auftritt. - public virtual void OnToken(TokenData tokenData, ICodeBuilderData data) - { - ICodeBlock NewBlock = (data.actualBlock.Level) switch - { - // Ein Level höher als das Token: wir hängen als Geschwister an den Parent - int i when i == tokenData.Level + 1 - => NewCodeBlock($"{tokenData.type}", tokenData.type, tokenData.Code, data.actualBlock.Parent!, tokenData.Pos), - // Gleiches Level: Kind des aktuellen Blocks - int i when i == tokenData.Level - => NewCodeBlock($"{tokenData.type}", tokenData.type, tokenData.Code, data.actualBlock, tokenData.Pos), - // Zwei Levels höher: wir steigen zwei Ebenen auf - int i when i == tokenData.Level + 2 - => NewCodeBlock($"{tokenData.type}", tokenData.type, tokenData.Code, data.actualBlock.Parent!.Parent!, tokenData.Pos), - // Drei Levels höher (Sonderfall) – vermutlich fehlerhafte Struktur aber aktuell zugelassen - int i when i == tokenData.Level + 3 - => NewCodeBlock($"{tokenData.type}", tokenData.type, tokenData.Code, data.actualBlock.Parent!.Parent!.Parent!, tokenData.Pos), - _ => throw new NotImplementedException() - }; - - data.actualBlock = NewBlock; - } -} diff --git a/Transpiler_pp/TranspilerLib/Models/Scanner/TokenHandlerBase.cs b/Transpiler_pp/TranspilerLib/Models/Scanner/TokenHandlerBase.cs deleted file mode 100644 index bd7e80457..000000000 --- a/Transpiler_pp/TranspilerLib/Models/Scanner/TokenHandlerBase.cs +++ /dev/null @@ -1,84 +0,0 @@ -using System; -using TranspilerLib.Data; -using TranspilerLib.Interfaces.Code; -using static TranspilerLib.Interfaces.Code.ICodeBase; - -namespace TranspilerLib.Models.Scanner; - -/// -/// Basisklasse für spezifische Token-Handler innerhalb des Scannervorgangs. -/// Stellt Hilfsmethoden bereit, um Zeichen aus dem Originalcode zu lesen und aus dem Scan-Bereich Tokens zu emittieren. -/// -/// -/// Die Klasse kapselt wiederkehrende Operationen wie: -/// 1. Ermitteln des nächsten / vorherigen Zeichens ohne Ausnahme auszulösen. -/// 2. Extraktion des aktuell gescannten Textsegments (Bereich zwischen und ). -/// 3. Erzeugung und Übergabe eines an einen bereitgestellten Delegaten (). -/// -public abstract class TokenHandlerBase -{ - /// - /// Erzeugt aus dem aktuellen Scanbereich ein und übergibt es an den angegebenen Delegaten. - /// - /// Delegat, der das erzeugte Token verarbeitet (kann null sein). - /// Scan-Zustandsdaten (Positionsmarker, Stacktiefe etc.). - /// Der zuzuweisende für das erzeugte Token. - /// Der vollständige Quellcode, aus dem gescannt wird. - /// - /// Optionaler Off-Set, um den Endbereich zu erweitern (z. B. um abschließende Zeichen einzuschließen). - /// Typischer Einsatz bei Abschlusszeichen oder nachlaufenden Trennern. - /// - /// - /// Der extrahierte Text reicht von data.Pos2 bis data.Pos + offs (inklusive) und wird vor Übergabe getrimmt. - /// Wenn null ist, passiert nichts. - /// - protected static void EmitToken(TokenDelegate? token, TokenizeData data, CodeBlockType type, string originalCode, int offs = 0) - => token?.Invoke(new TokenData( - originalCode.Substring(data.Pos2, data.Pos - data.Pos2 + offs).Trim(), - type, - data.Stack, - data.Pos2)); - - /// - /// Liefert das nächste Zeichen relativ zur übergebenen Position. - /// - /// Aktuelle Indexposition im Quellcode. - /// Der vollständige Quelltext. - /// - /// Das Zeichen an Position Pos + 1, oder das Null-Zeichen '\0', wenn das Ende erreicht ist. - /// - /// - /// Sicherer Zugriff ohne Ausnahme am Ende des Strings. - /// - protected static char GetNxtChar(int Pos, string OriginalCode) - => Pos + 1 < OriginalCode.Length ? OriginalCode[Pos + 1] : '\u0000'; - - /// - /// Liefert das vorherige Zeichen relativ zur übergebenen Position. - /// - /// Aktuelle Indexposition im Quellcode. - /// Der vollständige Quelltext. - /// - /// Das Zeichen an Position Pos - 1, oder das erste Zeichen, wenn gleich 0 ist. - /// - /// - /// Negative Indizes werden abgefangen, indem auf Index 0 zurückgegriffen wird. - /// - protected static char GetPrvChar(int Pos, string OriginalCode) - => OriginalCode[Math.Max(Pos - 1, 0)]; - - /// - /// Extrahiert den aktuell gescannten Text zwischen und . - /// - /// Aktuelle Scan-Daten mit Start- und Endposition. - /// Optional: Vollständiger Quellcode. Wenn leer, wird ein leerer String zurückgegeben. - /// Optionaler Erweiterungs-Offset (positiv oder 0). Negative Werte werden als 0 behandelt. - /// - /// Das nicht getrimmte Rohsegment des Quelltexts. Bei ungültigen Längen wird ein leerer String geliefert. - /// - /// - /// Diese Methode führt kein Trimming durch (im Gegensatz zu ). - /// - protected static string GetText(TokenizeData data, string OriginalCode = "", int offs = 0) - => OriginalCode.Substring(data.Pos2, Math.Max(data.Pos - data.Pos2 + offs, 0)); -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib/Models/Scanner/TokenizeData.cs b/Transpiler_pp/TranspilerLib/Models/Scanner/TokenizeData.cs deleted file mode 100644 index 33354067c..000000000 --- a/Transpiler_pp/TranspilerLib/Models/Scanner/TokenizeData.cs +++ /dev/null @@ -1,44 +0,0 @@ -namespace TranspilerLib.Models -{ - /// - /// Kapselt den veränderlichen Zustand während des Tokenisierungs-/Scan-Vorgangs. - /// - /// - /// Diese Struktur dient als einfacher Container für Positions- und Zustandsinformationen, - /// die typischerweise von einem Scanner oder Lexer inkrementell aktualisiert werden. - /// Alle Felder sind absichtlich öffentlich und als einfache Felder (keine Properties) gehalten, - /// um Overhead bei sehr häufigen Aktualisierungen zu vermeiden. - /// - public class TokenizeData - { - /// - /// Primärer Positionszeiger im Quellpuffer (aktuelles Zeichen / aktueller Index). - /// - public int Pos = 0; - - /// - /// Sekundärer Positionszeiger (z. B. Start eines Tokens oder Lookahead-Beginn). - /// - public int Pos2 = 0; - - /// - /// Allgemeiner Zähler / Stack-Level (z. B. für Verschachtelungen wie Klammern). - /// - public int Stack = 0; - - /// - /// Aktueller Zustandswert der zustandsbasierten Tokenisierungs- / FSM-Logik. - /// - public int State = 0; - - /// - /// Allgemeines Flag für temporäre Markierungen oder bedingte Pfade im Scan-Prozess. - /// - public bool flag = false; - - /// - /// Initialisiert eine neue Instanz mit Standardwerten (alle numerischen Felder = 0, Flag = false). - /// - public TokenizeData() { } - } -} diff --git a/Transpiler_pp/TranspilerLib/Models/TStrings.cs b/Transpiler_pp/TranspilerLib/Models/TStrings.cs deleted file mode 100644 index 833fe3396..000000000 --- a/Transpiler_pp/TranspilerLib/Models/TStrings.cs +++ /dev/null @@ -1,7 +0,0 @@ -namespace TranspilerLib.Models; -/// -/// Represents a collection of strings. -/// -public class TStrings -{ -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib/Properties/Resources.Designer.cs b/Transpiler_pp/TranspilerLib/Properties/Resources.Designer.cs deleted file mode 100644 index e8e391916..000000000 --- a/Transpiler_pp/TranspilerLib/Properties/Resources.Designer.cs +++ /dev/null @@ -1,369 +0,0 @@ -//------------------------------------------------------------------------------ -// -// Dieser Code wurde von einem Tool generiert. -// Laufzeitversion:4.0.30319.42000 -// -// Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn -// der Code erneut generiert wird. -// -//------------------------------------------------------------------------------ - -namespace TranspilerLib.Properties { - using System; - - - /// - /// Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. - /// - // Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert - // -Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. - // Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen - // mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. - [global::System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "18.0.0.0")] - [global::System.Diagnostics.DebuggerNonUserCodeAttribute()] - [global::System.Runtime.CompilerServices.CompilerGeneratedAttribute()] - internal class Resources { - - private static global::System.Resources.ResourceManager resourceMan; - - private static global::System.Globalization.CultureInfo resourceCulture; - - [global::System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")] - internal Resources() { - } - - /// - /// Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. - /// - [global::System.ComponentModel.EditorBrowsableAttribute(global::System.ComponentModel.EditorBrowsableState.Advanced)] - internal static global::System.Resources.ResourceManager ResourceManager { - get { - if (object.ReferenceEquals(resourceMan, null)) { - global::System.Resources.ResourceManager temp = new global::System.Resources.ResourceManager("TranspilerLib.Properties.Resources", typeof(Resources).Assembly); - resourceMan = temp; - } - return resourceMan; - } - } - - /// - /// Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle - /// Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. - /// - [global::System.ComponentModel.EditorBrowsableAttribute(global::System.ComponentModel.EditorBrowsableState.Advanced)] - internal static global::System.Globalization.CultureInfo Culture { - get { - return resourceCulture; - } - set { - resourceCulture = value; - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die Error: Division by Zero ähnelt. - /// - internal static string SErrDivByZero { - get { - return ResourceManager.GetString("SErrDivByZero", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die Nesting of $IFxxx too deep ähnelt. - /// - internal static string SErrIfXXXNestingLimitReached { - get { - return ResourceManager.GetString("SErrIfXXXNestingLimitReached", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die Could not find include file '{0}' ähnelt. - /// - internal static string SErrIncludeFileNotFound { - get { - return ResourceManager.GetString("SErrIncludeFileNotFound", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die Error: The include-limit is reached ähnelt. - /// - internal static string SErrIncludeLimitReached { - get { - return ResourceManager.GetString("SErrIncludeLimitReached", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die Invalid character '{0}' ähnelt. - /// - internal static string SErrInvalidCharacter { - get { - return ResourceManager.GetString("SErrInvalidCharacter", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die Error: Invalid mode ähnelt. - /// - internal static string SErrInvalidMode { - get { - return ResourceManager.GetString("SErrInvalidMode", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die Error: Invalid mode-swich ähnelt. - /// - internal static string SErrInvalidModeSwitch { - get { - return ResourceManager.GetString("SErrInvalidModeSwitch", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die $ELSE without matching $IFxxx ähnelt. - /// - internal static string SErrInvalidPPElse { - get { - return ResourceManager.GetString("SErrInvalidPPElse", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die $ENDIF without matching $IFxxx ähnelt. - /// - internal static string SErrInvalidPPEndif { - get { - return ResourceManager.GetString("SErrInvalidPPEndif", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die string exceeds end of line ähnelt. - /// - internal static string SErrOpenString { - get { - return ResourceManager.GetString("SErrOpenString", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ähnelt. - /// - internal static string SErrOperandAndOperatorMismatch { - get { - return ResourceManager.GetString("SErrOperandAndOperatorMismatch", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ähnelt. - /// - internal static string SErrRangeCheck { - get { - return ResourceManager.GetString("SErrRangeCheck", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ähnelt. - /// - internal static string SErrWrongSwitchToggle { - get { - return ResourceManager.GetString("SErrWrongSwitchToggle", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ähnelt. - /// - internal static string SErrXExpectedButYFound { - get { - return ResourceManager.GetString("SErrXExpectedButYFound", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ähnelt. - /// - internal static string SIllegalStateForWarnDirective { - get { - return ResourceManager.GetString("SIllegalStateForWarnDirective", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ähnelt. - /// - internal static string SInvalidDispatchFieldName { - get { - return ResourceManager.GetString("SInvalidDispatchFieldName", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ähnelt. - /// - internal static string SLogELSEIFAccepted { - get { - return ResourceManager.GetString("SLogELSEIFAccepted", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ähnelt. - /// - internal static string SLogELSEIFRejected { - get { - return ResourceManager.GetString("SLogELSEIFRejected", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ähnelt. - /// - internal static string SLogIFAccepted { - get { - return ResourceManager.GetString("SLogIFAccepted", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die IFDEF {0} found, accepting. ähnelt. - /// - internal static string SLogIFDefAccepted { - get { - return ResourceManager.GetString("SLogIFDefAccepted", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ähnelt. - /// - internal static string SLogIFDefRejected { - get { - return ResourceManager.GetString("SLogIFDefRejected", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ähnelt. - /// - internal static string SLogIFNDefAccepted { - get { - return ResourceManager.GetString("SLogIFNDefAccepted", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ähnelt. - /// - internal static string SLogIFNDefRejected { - get { - return ResourceManager.GetString("SLogIFNDefRejected", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ähnelt. - /// - internal static string SLogIFRejected { - get { - return ResourceManager.GetString("SLogIFRejected", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die Reading line {0}. ähnelt. - /// - internal static string SLogLineNumber { - get { - return ResourceManager.GetString("SLogLineNumber", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ähnelt. - /// - internal static string SLogMacroDefined { - get { - return ResourceManager.GetString("SLogMacroDefined", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ähnelt. - /// - internal static string SLogMacroUnDefined { - get { - return ResourceManager.GetString("SLogMacroUnDefined", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ähnelt. - /// - internal static string SLogMacroXSetToY { - get { - return ResourceManager.GetString("SLogMacroXSetToY", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die Opening source file "{0}". ähnelt. - /// - internal static string SLogOpeningFile { - get { - return ResourceManager.GetString("SLogOpeningFile", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ähnelt. - /// - internal static string SMisplacedGlobalCompilerSwitch { - get { - return ResourceManager.GetString("SMisplacedGlobalCompilerSwitch", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ähnelt. - /// - internal static string SNoResourceSupport { - get { - return ResourceManager.GetString("SNoResourceSupport", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die Could not find resource file '{0}' ähnelt. - /// - internal static string StrinSErrResourceFileNotFound { - get { - return ResourceManager.GetString("StrinSErrResourceFileNotFound", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ähnelt. - /// - internal static string SUserDefined { - get { - return ResourceManager.GetString("SUserDefined", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ähnelt. - /// - internal static string SWarnIllegalCompilerDirectiveX { - get { - return ResourceManager.GetString("SWarnIllegalCompilerDirectiveX", resourceCulture); - } - } - } -} diff --git a/Transpiler_pp/TranspilerLib/Properties/Resources.de.resx b/Transpiler_pp/TranspilerLib/Properties/Resources.de.resx deleted file mode 100644 index 4c9ed179b..000000000 --- a/Transpiler_pp/TranspilerLib/Properties/Resources.de.resx +++ /dev/null @@ -1,222 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Fehler: Division durch Null - - - Verschachtelung von $IFxxx zu tief - - - Die Include-Datei „{0}" konnte nicht gefunden werden. - - - Fehler: Das Include-Limit wurde erreicht - - - Ungültiges Zeichen „{0}" - - - Fehler: Ungültiger Modus - - - Fehler: Ungültiger Modus-Schalter - - - $ELSE ohne Übereinstimmung mit $IFxxx - - - $ENDIF ohne Übereinstimmung mit $IFxxx - - - Die Zeichenfolge überschreitet das Zeilenende - - - Operand und Operator stimmen nicht überein - - - Bereichsprüfungsfehler - - - Falscher Schalterwert, erwartet '+' oder '-' - - - „{0}" erwartet, aber „{1}" gefunden - - - Ungültiger Zustand für WARN-Direktive - - - Ungültiger Dispatch-Feldname „{0}" - - - ELSEIF-Bedingung akzeptiert. - - - ELSEIF-Bedingung abgelehnt. - - - IF-Bedingung akzeptiert. - - - IFDEF {0} gefunden, akzeptiert. - - - IFDEF {0} nicht definiert, abgelehnt. - - - IFNDEF {0} nicht definiert, akzeptiert. - - - IFNDEF {0} definiert, abgelehnt. - - - IF-Bedingung abgelehnt. - - - Lesezeile {0}. - - - Makro „{0}" definiert. - - - Makro „{0}" entfernt. - - - Makro „{0}" auf „{1}" gesetzt. - - - Quelldatei „{0}" wird geöffnet. - - - Fehlplatzierter globaler Compiler-Schalter - - - Ressourcendateien werden nicht unterstützt - - - Die Ressourcendatei „{0}" konnte nicht gefunden werden. - - - {0} - - - Warnung: Ungültige Compiler-Direktive „{0}" - - \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib/Properties/Resources.resx b/Transpiler_pp/TranspilerLib/Properties/Resources.resx deleted file mode 100644 index 3815adc71..000000000 --- a/Transpiler_pp/TranspilerLib/Properties/Resources.resx +++ /dev/null @@ -1,222 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Error: Division by Zero - - - Nesting of $IFxxx too deep - - - Could not find include file '{0}' - - - Error: The include-limit is reached - - - Invalid character '{0}' - - - Error: Invalid mode - - - Error: Invalid mode-swich - - - $ELSE without matching $IFxxx - - - $ENDIF without matching $IFxxx - - - string exceeds end of line - - - Operand and operator mismatch - - - Range check error - - - Wrong switch toggle value, expected '+' or '-' - - - '{0}' expected but '{1}' found - - - Illegal state for WARN directive - - - Invalid dispatch field name '{0}' - - - ELSEIF condition accepted. - - - ELSEIF condition rejected. - - - IF condition accepted. - - - IFDEF {0} found, accepting. - - - IFDEF {0} not defined, rejecting. - - - IFNDEF {0} not defined, accepting. - - - IFNDEF {0} defined, rejecting. - - - IF condition rejected. - - - Reading line {0}. - - - Macro '{0}' defined. - - - Macro '{0}' undefined. - - - Macro '{0}' set to '{1}'. - - - Opening source file "{0}". - - - Misplaced global compiler switch - - - Resource files not supported - - - Could not find resource file '{0}' - - - {0} - - - Warning: Illegal compiler directive '{0}' - - \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLib/TranspilerLib.csproj b/Transpiler_pp/TranspilerLib/TranspilerLib.csproj deleted file mode 100644 index 50e5a805b..000000000 --- a/Transpiler_pp/TranspilerLib/TranspilerLib.csproj +++ /dev/null @@ -1,41 +0,0 @@ - - - - net481;net8.0 - enable - - - true - $(OutputPath)Docs\$(MSBuildProjectName).xml - - - - - $(TargetFrameworks);net9.0 - - - $(TargetFrameworks);net10.0 - - - - - - - - - - - True - True - Resources.resx - - - - - - ResXFileCodeGenerator - Resources.Designer.cs - - - - diff --git a/Transpiler_pp/TranspilerLibTests/.info b/Transpiler_pp/TranspilerLibTests/.info deleted file mode 100644 index 97278ba98..000000000 --- a/Transpiler_pp/TranspilerLibTests/.info +++ /dev/null @@ -1 +0,0 @@ -Transpiler - Library Tests \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/AssemblyInfo.cs b/Transpiler_pp/TranspilerLibTests/AssemblyInfo.cs deleted file mode 100644 index ba900e03a..000000000 --- a/Transpiler_pp/TranspilerLibTests/AssemblyInfo.cs +++ /dev/null @@ -1,3 +0,0 @@ -using Microsoft.VisualStudio.TestTools.UnitTesting; - -[assembly: Parallelize(Workers =0, Scope = ExecutionScope.MethodLevel)] diff --git a/Transpiler_pp/TranspilerLibTests/Data/TokenDataTests.cs b/Transpiler_pp/TranspilerLibTests/Data/TokenDataTests.cs deleted file mode 100644 index 12724d3c2..000000000 --- a/Transpiler_pp/TranspilerLibTests/Data/TokenDataTests.cs +++ /dev/null @@ -1,15 +0,0 @@ -namespace TranspilerLib.Data.Tests; - -[TestClass] -public class TokenDataTests -{ - [TestMethod] - public void TokenDataTest() - { - var t = (TokenData)("If",CodeBlockType.Operation,2); - Assert.AreEqual("If", t.Code); - Assert.AreEqual(CodeBlockType.Operation, t.type); - Assert.AreEqual(2, t.Level); - } - -} diff --git a/Transpiler_pp/TranspilerLibTests/Helper/TestHelper.cs b/Transpiler_pp/TranspilerLibTests/Helper/TestHelper.cs deleted file mode 100644 index 5fed9210f..000000000 --- a/Transpiler_pp/TranspilerLibTests/Helper/TestHelper.cs +++ /dev/null @@ -1,152 +0,0 @@ -// *********************************************************************** -// Assembly : TranspilerLibTests -// Author : Mir -// Created : 03-28-2023 -// -// Last Modified By : Mir -// Last Modified On : 03-28-2023 -// *********************************************************************** -// -// Copyright © JC-Soft 2023 -// -// -// *********************************************************************** -using System; -using System.Collections; -using System.Collections.Generic; - -/// -/// The Helper namespace. -/// -#pragma warning disable IDE0130 // Der Namespace entspricht stimmt nicht der Ordnerstruktur. -namespace TranspilerLib.Helper; -#pragma warning restore IDE0130 // Der Namespace entspricht stimmt nicht der Ordnerstruktur. - -/// -/// Class TestHelper. -/// -/// -public static class TestHelper -{ - /* - /// - /// Asserts that both classes are equal. - /// string -> use String-Array proc - /// with normal class compare fields & properties - /// - /// - /// The exp data. - /// The act data. - /// The excluded Properties - /// The MSG. - public static void AssertAreEqual(T ExpData, T ActData, string[]? Excl, string Msg = "") where T : class - { - var props = typeof(T).GetProperties(); - foreach (var prop in props) - if (prop.CanRead && (Excl?.Contains(prop.Name) == false)) - { - Assert.AreEqual(ExpData.GetProp(prop.Name), ActData.GetProp(prop.Name), Msg + $".{prop.Name}"); - } - var fields = typeof(T).GetFields(); - foreach (var field in fields) - if (field.IsPublic && (Excl?.Contains(field.Name) == false)) - { - Assert.AreEqual(ExpData.GetField(field.Name), ActData.GetField(field.Name), Msg + $".{field.Name}"); - } - } - */ - public static void AssertAreEqual(T exp, T act, string Msg = "") where T : IEnumerable - { - static string BldLns(int i, string[] aLines) - => (i > 1 ? $"#{i - 2:D3}: {aLines[(i - 2) % 5]}{Environment.NewLine}" : "") + - (i > 0 ? $"#{i - 1:D3}: {aLines[(i - 1) % 5]}{Environment.NewLine}" : "") + - $"#{i:D3}> {aLines[i % 5]}" + - (i < aLines.Length - 1 ? $"{Environment.NewLine}#{i + 1:D3}: {aLines[(i + 1) % 5]}" : "") + - (i < aLines.Length - 2 ? $"{Environment.NewLine}#{i + 2:D3}: {aLines[(i + 2) % 5]}" : ""); - - var actE = act.GetEnumerator(); - var actLines = new string[5]; - var expLines = new string[5]; - actLines.Initialize(); - expLines.Initialize(); - var xEoAAct = !actE.MoveNext(); - var i = 0; - var iErr = -1; - foreach (var el in exp) - { - var al = !xEoAAct ? actE.Current : null; - actLines[i % 5] = $"{(al is string or null ? "" : al.GetType())}{al}"; - expLines[i % 5] = $"{(el is string or null ? "" : el.GetType())}{el}"; - if (iErr == -1 && !el!.Equals(al)) - iErr = i; - if (iErr != -1 && i - 3 == iErr) - Assert.AreEqual(BldLns(iErr, expLines), BldLns(iErr, actLines), $"{Msg}: Entry{i}:"); - xEoAAct = !actE.MoveNext(); - i++; - } - if (iErr != -1) - { - actLines[i % 5] = $""; - expLines[i % 5] = $""; - Assert.AreEqual(BldLns(iErr, expLines), BldLns(iErr, actLines), $"{Msg}: Entry{i}:"); - } - else - Assert.IsFalse(actE.MoveNext()); - - } - /// - /// Assert that both string-arrays are equal. (with diagnosis) - /// - /// The exp. - /// The act. - /// The MSG. - /// - public static void AssertAreEqual(string[] exp, string[]? act, string Msg = "") - { - static string BldLns(int i, string[] aLines) - => (i > 1 ? $"#{i - 2:D3}: {aLines[i - 2]}{Environment.NewLine}" : "") + - (i > 0 ? $"#{i - 1:D3}: {aLines[i - 1]}{Environment.NewLine}" : "") + - $"#{i:D3}> {aLines[i]}" + - (i < aLines.Length - 1 ? $"{Environment.NewLine}#{i + 1:D3}: {aLines[i + 1]}" : "") + - (i < aLines.Length - 2 ? $"{Environment.NewLine}#{i + 2:D3}: {aLines[i + 2]}" : ""); - if (exp != null && exp.Length / 2 < act?.Length) - for (int i = 0; i < Math.Min(exp.Length, act.Length); i++) - if (exp[i] != act[i]) - Assert.AreEqual(BldLns(i, exp), BldLns(i, act), $"{Msg}: Entry{i}:"); - Assert.AreEqual(exp?.Length, act?.Length); - - } - - public static void AssertAreEqual(T[] exp, T[] act, string Msg = "") where T : struct - { - if (exp != null && exp.Length / 2 < act?.Length) - for (int i = 0; i < Math.Min(exp.Length, act.Length); i++) - if (!EqualityComparer.Default.Equals(exp[i], act[i])) - Assert.AreEqual(BldLns(i, exp), BldLns(i, act), $"{Msg}: Entry{i}:"); - Assert.AreEqual(exp?.Length, act?.Length); - - static string BldLns(int i, T[] dta) - { - if (dta.Length < 10) return $"[{string.Join("; ", dta)}]"; - string sa; - List s = new() { (sa = $"{dta[i]}") }; - int size = sa.Length; - var j = 1; - for (; j < 30; j++) - { - if (i - j >= 0) { s.Insert(0, sa = $"{dta[i - j]}"); size += sa.Length; } - if (i + j < dta.Length) { s.Add(sa = $"{dta[i + j]}"); size += sa.Length; } - if (size > 200) break; - } - return $"[...{string.Join("; ", dta)}...]"; - } - } - - public static void AssertAreEqual(string sExp, string? sAct, string Msg = "") - { - var sSep = new[] { Environment.NewLine }; - AssertAreEqual(sExp.Split(sSep, StringSplitOptions.None), sAct?.Split(sSep, StringSplitOptions.None), Msg); - return; - } - -} diff --git a/Transpiler_pp/TranspilerLibTests/Models/ParentedItemsListTests.cs b/Transpiler_pp/TranspilerLibTests/Models/ParentedItemsListTests.cs deleted file mode 100644 index 27b1863a4..000000000 --- a/Transpiler_pp/TranspilerLibTests/Models/ParentedItemsListTests.cs +++ /dev/null @@ -1,170 +0,0 @@ -using Microsoft.VisualStudio.TestTools.UnitTesting; -using System; -using System.Collections.Generic; -using System.Collections; -using TranspilerLib.Interfaces; - -namespace TranspilerLib.Models.Tests; - -public interface ITestItf : IHasParents, IEquatable -{ - int iData { get; set; } - ITestItf this[int idx] { get; } - - void Add(ITestItf item); -} - -public class TestClass : ITestItf -{ - public TestClass(int v) - { - iData = v; - _list = new ParentedItemsList(this); - } - - public ITestItf this[int idx] => _list[idx]; - - public ITestItf? Parent { get; set; } - public int iData { get; set; } - - private ParentedItemsList _list; - - public bool Equals(ITestItf? other) - { - if (other is null) - return false; - return iData == other.iData; - } - - public void Add(ITestItf item) - { - _list.Add(item); - } -} - -[TestClass()] -public class ParentedItemsListTests : ITestItf -{ - public ITestItf? Parent { get; set; } - public int iData { get; set; } - - public ITestItf this[int idx] => testClass[idx]; - - ParentedItemsList testClass; - - - [TestInitialize()] - public void Init() - { - testClass = new(this); - } - - [TestMethod()] - public void IsReadonlyTest() - { - Assert.IsFalse(testClass.IsReadOnly); - } - - [TestMethod()] - public void ParentedItemsListTest() - { - AddTest(); - Assert.IsNotNull(testClass.GetEnumerator()); - Assert.IsInstanceOfType(testClass.GetEnumerator(), typeof(IEnumerator)); - } - - [TestMethod()] - public void IndexOfTest() - { - AddTest(); - Assert.AreEqual(0, testClass.IndexOf(new TestClass(3))); - Assert.AreEqual(-1, testClass.IndexOf(new TestClass(2))); - Assert.AreEqual(-1, testClass.IndexOf(this)); - } - - [TestMethod()] - public void InsertTest() - { - Assert.AreEqual(0, testClass.Count); - testClass.Insert(0, new TestClass(3)); - testClass.Insert(1, new TestClass(5)); - testClass[1].Add(new TestClass(11)); - testClass[1].Add(new TestClass(7)); - testClass.Insert(2, testClass[1][1]); - Assert.AreEqual(3, testClass.Count); - } - - [TestMethod()] - public void RemoveAtTest() - { - AddTest(); - testClass.RemoveAt(0); - Assert.AreEqual(2, testClass.Count); - testClass.RemoveAt(1); - Assert.AreEqual(1, testClass.Count); - testClass.RemoveAt(0); - Assert.AreEqual(0, testClass.Count); - } - - [TestMethod()] - public void AddTest() - { - Assert.AreEqual(0, testClass.Count); - testClass.Add(new TestClass(3)); - testClass.Add(new TestClass(5)); - testClass[1].Add(new TestClass(11)); - testClass[1].Add(new TestClass(7)); - testClass.Add(testClass[1][1]); - Assert.AreEqual(3, testClass.Count); - } - - [TestMethod()] - public void ClearTest() - { - AddTest(); - testClass.Clear(); - Assert.AreEqual(0, testClass.Count); - } - - [TestMethod()] - public void ContainsTest() - { - AddTest(); - Assert.IsTrue(testClass.Contains(new TestClass(3))); - Assert.IsFalse(testClass.Contains(new TestClass(2))); - Assert.IsFalse(testClass.Contains(this)); - } - - [TestMethod()] - public void CopyToTest() - { - AddTest(); - testClass.CopyTo(new ITestItf[3], 0); - } - - [TestMethod()] - public void RemoveTest() - { - AddTest(); - testClass.Remove(new TestClass(3)); - } - - [TestMethod()] - public void GetEnumeratorTest() - { - Assert.IsNotNull(((IEnumerable)testClass).GetEnumerator()); - Assert.IsInstanceOfType(((IEnumerable)testClass).GetEnumerator(), typeof(IEnumerator)); - } - - public bool Equals(ITestItf? other) - { - if (other is null) - return false; - return iData == other.iData; - } - - public void Add(ITestItf item) - { - throw new NotImplementedException(); - } -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Models/TestBase.cs b/Transpiler_pp/TranspilerLibTests/Models/TestBase.cs deleted file mode 100644 index 72b8a8d5e..000000000 --- a/Transpiler_pp/TranspilerLibTests/Models/TestBase.cs +++ /dev/null @@ -1,38 +0,0 @@ -using CommunityToolkit.Mvvm.Input; -using System; -using System.Collections.Generic; -using System.ComponentModel; -using System.ComponentModel.DataAnnotations; -using BaseLib.Helper; - -#pragma warning disable IDE0130 // Der Namespace entspricht stimmt nicht der Ordnerstruktur. -namespace TranspilerLib.Models.Tests; -#pragma warning restore IDE0130 // Der Namespace entspricht stimmt nicht der Ordnerstruktur. - -public class TestBase -{ - protected void DoLog(string? message) - { - DebugLog += $"{message}{Environment.NewLine}"; - System.Diagnostics.Debug.WriteLine(message); - } // End Sub DoLog - - protected void ErrorLog(Exception ex) - => DoLog("Err: " + ex.Message + Environment.NewLine + ex.StackTrace); - protected void ClearLog() => DebugLog = string.Empty; - - protected string DebugLog { get; private set; } = string.Empty; - - protected virtual void OnCanExChanged(object? sender, EventArgs e) - => DoLog($"CanExChanged({sender})={(sender as IRelayCommand)?.CanExecute(null)}"); - - protected virtual void OnVMPropertyChanged(object? sender, PropertyChangedEventArgs e) - => DoLog($"PropChg({sender},{e.PropertyName})={sender?.GetProp(e.PropertyName ?? "")}"); - - protected virtual void OnVMPropertyChanging(object? sender, PropertyChangingEventArgs e) - => DoLog($"PropChgn({sender},{e.PropertyName})={sender?.GetProp(e.PropertyName ?? "")}"); - - protected virtual void OnVMErrorsChanged(object? sender, DataErrorsChangedEventArgs e) - => DoLog($"ErrorsChanged({sender},{e.PropertyName})={string.Join(",", ((List)(sender as INotifyDataErrorInfo)!.GetErrors(e.PropertyName)).ConvertAll(o => o.ErrorMessage))}"); - -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Properties/Resources.Designer.cs b/Transpiler_pp/TranspilerLibTests/Properties/Resources.Designer.cs deleted file mode 100644 index 7c9c30928..000000000 --- a/Transpiler_pp/TranspilerLibTests/Properties/Resources.Designer.cs +++ /dev/null @@ -1,1341 +0,0 @@ -//------------------------------------------------------------------------------ -// -// Dieser Code wurde von einem Tool generiert. -// Laufzeitversion:4.0.30319.42000 -// -// Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn -// der Code erneut generiert wird. -// -//------------------------------------------------------------------------------ - -namespace TranspilerLibTests.Properties { - using System; - - - /// - /// Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. - /// - // Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert - // -Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. - // Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen - // mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. - [global::System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "18.0.0.0")] - [global::System.Diagnostics.DebuggerNonUserCodeAttribute()] - [global::System.Runtime.CompilerServices.CompilerGeneratedAttribute()] - public class Resources { - - private static global::System.Resources.ResourceManager resourceMan; - - private static global::System.Globalization.CultureInfo resourceCulture; - - [global::System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")] - internal Resources() { - } - - /// - /// Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. - /// - [global::System.ComponentModel.EditorBrowsableAttribute(global::System.ComponentModel.EditorBrowsableState.Advanced)] - public static global::System.Resources.ResourceManager ResourceManager { - get { - if (object.ReferenceEquals(resourceMan, null)) { - global::System.Resources.ResourceManager temp = new global::System.Resources.ResourceManager("TranspilerLibTests.Properties.Resources", typeof(Resources).Assembly); - resourceMan = temp; - } - return resourceMan; - } - } - - /// - /// Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle - /// Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. - /// - [global::System.ComponentModel.EditorBrowsableAttribute(global::System.ComponentModel.EditorBrowsableState.Advanced)] - public static global::System.Globalization.CultureInfo Culture { - get { - return resourceCulture; - } - set { - resourceCulture = value; - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die T:FLComment,0,0,// Dies ist ein Kommentar zum Typ ST_01 - ///T:Block,40,0,TYPE - ///T:Variable,45,1,ST_01 - ///T:Operation,51,1,: - ///T:Block,53,1,STRUCT - ///T:FLComment,67,2,// Dies ist ein Kommentar zum Element a - ///T:Variable,107,2,a - ///T:Operation,111,2,: - ///T:Function,112,2,INT - ///T:Operation,116,2,:= - ///T:Number,119,2,INT#1 - ///T:Operation,125,2,; - ///T:LComment,127,2,// Dies ist ein 2. Kommentar zum Element a - ///T:FLComment,173,2,// Dies ist ein Kommentar zum Element b - ///T:Variable,213,2,b - ///T:Operation,217,2,: - ///T:Function,218,2,LREAL - ///T [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - /// - public static string ExpLog01 { - get { - return ResourceManager.GetString("ExpLog01", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die T:Block,0,0,FUNCTION - ///T:Variable,8,1,fbCalcWinkelvVector - ///T:Operation,28,1,: - ///T:Function,30,1,LREAL - ///T:Operation,36,1,; - ///T:Block,37,1,VAR_INPUT - ///T:Variable,48,2,Vec - ///T:Operation,57,2,: - ///T:Variable,59,2,udtVector - ///T:Operation,69,2,; - ///T:Block,70,1,END_VAR - ///T:Block,79,1,VAR_OUTPUT - ///T:Function,91,2,Len - ///T:Operation,100,2,: - ///T:Function,102,2,LREAL - ///T:Operation,108,2,; - ///T:Block,109,1,END_VAR - ///T:Block,118,1,VAR - ///T:Variable,123,2,ZwErg - ///T:Operation,134,2,: - ///T:Function,136,2,LREAL - ///T:Operation,142,2,; - ///T:Block,143,1 [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - /// - public static string ExpLog02 { - get { - return ResourceManager.GetString("ExpLog02", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Ressource vom Typ System.Byte[]. - /// - public static byte[] IECTestDataList0 { - get { - object obj = ResourceManager.GetObject("IECTestDataList0", resourceCulture); - return ((byte[])(obj)); - } - } - - /// - /// Sucht eine lokalisierte Ressource vom Typ System.Byte[]. - /// - public static byte[] IECTestDataList1 { - get { - object obj = ResourceManager.GetObject("IECTestDataList1", resourceCulture); - return ((byte[])(obj)); - } - } - - /// - /// Sucht eine lokalisierte Ressource vom Typ System.Byte[]. - /// - public static byte[] IECTestDataList2 { - get { - object obj = ResourceManager.GetObject("IECTestDataList2", resourceCulture); - return ((byte[])(obj)); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die private void Test10Dat() - ///{ - /// writeln((xText ? 1 : 0).AsString()); - ///} - /// ähnelt. - /// - public static string Test10Dat_cs { - get { - return ResourceManager.GetString("Test10Dat_cs", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Ressource vom Typ System.Byte[]. - /// - public static byte[] Test10DataList { - get { - object obj = ResourceManager.GetObject("Test10DataList", resourceCulture); - return ((byte[])(obj)); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die private void Test10Dat() - /// { - /// writeln((xText ? 1 : 0).AsString()); - /// } ähnelt. - /// - public static string Test10ExpCode { - get { - return ResourceManager.GetString("Test10ExpCode", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ///Declaration MainBlock 0,0 - ///private void Test10Dat() - //////BlockStart Block 1,0 - ///{ - //////Operation Operation 1,1 - ///writeln((xText ? 1 : 0).AsString()); - //////BlockEnd Block 1,2 - ///} ähnelt. - /// - public static string Test10ExpParse { - get { - return ResourceManager.GetString("Test10ExpParse", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die T:Operation,0,private void Test10Dat() - ///T:Block,1,{ - ///T:Operation,1,writeln((xText ? 1 : 0).AsString()); - ///T:Block,1,} - /// ähnelt. - /// - public static string Test10ExpTokenize { - get { - return ResourceManager.GetString("Test10ExpTokenize", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die private void Test11Dat() - ///{ - /// switch (sTest) - /// { - /// case 0: - /// case "1": - /// case (2, "Test2"): - /// case (3, "Test3"): - /// case "4" + cGed_Test4: - /// case "5" + cGed_Test5: - /// case "6" + cGed_Test6: - /// case "7" + cGed_Test7: - /// break; - /// default: - /// break; - /// } - ///} - /// ähnelt. - /// - public static string Test11Dat_cs { - get { - return ResourceManager.GetString("Test11Dat_cs", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Ressource vom Typ System.Byte[]. - /// - public static byte[] Test11DataList { - get { - object obj = ResourceManager.GetObject("Test11DataList", resourceCulture); - return ((byte[])(obj)); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die private void Test11Dat() - /// { - /// switch (sTest) - /// { - /// case 0: - /// case "1": - /// case (2, "Test2"): - /// case (3, "Test3"): - /// case "4" + cGed_Test4: - /// case "5" + cGed_Test5: - /// case "6" + cGed_Test6: - /// case "7" + cGed_Test7: - /// break; - /// default: - /// break; - /// } - /// } ähnelt. - /// - public static string Test11ExpCode { - get { - return ResourceManager.GetString("Test11ExpCode", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ///Declaration MainBlock 0,0 - ///private void Test11Dat() - //////BlockStart Block 1,0 - ///{ - //////Operation Operation 1,1 - ///switch (sTest) - //////BlockStart Block 2,0 - ///{ - //////Label Label 2,1 - ///case 0: - //////Operation Label 2,2 - ///case "1": - //////Operation Label 2,3 - ///case (2, "Test2"): - //////Operation Label 2,4 - ///case (3, "Test3"): - //////Operation Label 2,5 - ///case "4" + cGed_Test4: - //////Operation Label 2,6 - ///case "5" + cGed_Test5: - //////Operation Label 2,7 - ///case "6" + cGed_Test6: - //////Operation Label 2,8 - ///case "7" + cGed_Test7: - //////Operation [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - /// - public static string Test11ExpParse { - get { - return ResourceManager.GetString("Test11ExpParse", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die T:Operation,0,private void Test11Dat() - ///T:Block,1,{ - ///T:Operation,1,switch - ///T:Operation,1,(sTest) - ///T:Block,2,{ - ///T:Label,2,case 0: - ///T:Operation,2,case - ///T:String,2,"1" - ///T:Label,2,: - ///T:Operation,2,case (2, - ///T:String,2,"Test2" - ///T:Label,2,): - ///T:Operation,2,case (3, - ///T:String,2,"Test3" - ///T:Label,2,): - ///T:Operation,2,case - ///T:String,2,"4" - ///T:Label,2,+ cGed_Test4: - ///T:Operation,2,case - ///T:String,2,"5" - ///T:Label,2,+ cGed_Test5: - ///T:Operation,2,case - ///T:String,2,"6" - ///T:Label,2,+ cGed_Test6: - ///T:Operation,2,case - ///T:String,2,"7" [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - /// - public static string Test11ExpTokenize { - get { - return ResourceManager.GetString("Test11ExpTokenize", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die private void Test12Dat() - ///{ - /// switch (sTest) - /// { - /// case 0: - /// goto IL_0001; - /// default: - /// break; - /// IL_0001: - /// v = 0; - /// goto IL_0002; - /// IL_0002: - /// K[v] = 0; - /// goto IL_0003; - /// IL_0003: - /// v++; - /// if (v < 13) - /// { - /// goto IL_0002; - /// } - /// goto IL_0004; - /// IL_0004: - /// v = 0; - /// goto IL_0005; - /// IL_0005: - /// [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - /// - public static string Test12Dat_cs { - get { - return ResourceManager.GetString("Test12Dat_cs", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Ressource vom Typ System.Byte[]. - /// - public static byte[] Test12DataList { - get { - object obj = ResourceManager.GetObject("Test12DataList", resourceCulture); - return ((byte[])(obj)); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die private void Test12Dat() - /// { - /// switch (sTest) - /// { - /// case 0: - /// goto IL_0001; - /// default: - /// break; - /// IL_0001: - /// v = 0; - /// goto IL_0002; - /// IL_0002: - /// K[v] = 0; - /// goto IL_0003; - /// IL_0003: - /// v++; - /// if (v < 13) - /// { - /// goto IL_0002; - /// } - /// goto IL_0004; - /// IL_0004: - /// v = 0; - /// goto IL_0005; - /// IL_ [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - /// - public static string Test12ExpCode { - get { - return ResourceManager.GetString("Test12ExpCode", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ///Declaration MainBlock 0,0 - ///private void Test12Dat() - //////BlockStart Block 1,0 - ///{ - //////Operation Operation 1,1 - ///switch (sTest) - //////BlockStart Block 2,0 - ///{ - //////Label Label 2,1 - ///case 0: - //////Goto Goto 2,2 Dest:OK - ///goto IL_0001; - //////Label Label 2,3 - ///default: - //////Operation Operation 2,4 - ///break; - //////Label Label 2,5 1 - ///IL_0001: - //////Operation Operation 2,6 - ///v = 0; - //////Goto Goto 2,7 Dest:OK - ///goto IL_0002; - //////Label Label 2,8 2 - ///IL_0002: - //////Operation Operation 2,9 - ///K[v] = 0; - //////Goto Goto 2,10 Dest:OK - ///goto IL_0003; [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - /// - public static string Test12ExpParse { - get { - return ResourceManager.GetString("Test12ExpParse", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ///Declaration MainBlock 0,0 - ///private void Test12Dat() - //////BlockStart Block 1,0 - ///{ - //////Operation Operation 1,1 - ///switch (sTest) - //////BlockStart Block 2,0 - ///{ - //////Label Label 2,1 - ///case 0: - //////Operation Operation 2,2 - ///v = 0; - //////Operation Operation 2,3 - ///while (v < 13) - //////BlockStart Block 3,0 - ///{ - //////Operation Operation 3,1 - ///K[v] = 0; - //////Operation Operation 3,2 - ///v++; - //////BlockEnd Block 3,3 - ///} - //////Operation Operation 2,4 - ///v = 0; - //////Goto Goto 2,5 Dest:OK - ///goto IL_0005; - //////Label Label 2,6 - ///default: - //////Operation [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - /// - public static string Test12ExpParseRL { - get { - return ResourceManager.GetString("Test12ExpParseRL", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die T:Operation,0,private void Test12Dat() - ///T:Block,1,{ - ///T:Operation,1,switch - ///T:Operation,1,(sTest) - ///T:Block,2,{ - ///T:Label,2,case 0: - ///T:Goto,2,goto IL_0001; - ///T:Label,2,default: - ///T:Operation,2,break; - ///T:Label,2,IL_0001: - ///T:Operation,2,v = 0; - ///T:Goto,2,goto IL_0002; - ///T:Label,2,IL_0002: - ///T:Operation,2,K[v] = 0; - ///T:Goto,2,goto IL_0003; - ///T:Label,2,IL_0003: - ///T:Operation,2,v++; - ///T:Operation,2,if - ///T:Operation,2,(v < 13) - ///T:Block,3,{ - ///T:Goto,3,goto IL_0002; - ///T:Block,3,} - ///T:Goto,2,goto IL_0004; - ///T:Label,2,IL_0004: - ///T:Ope [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - /// - public static string Test12ExpTokenize { - get { - return ResourceManager.GetString("Test12ExpTokenize", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die private bool Test13Dat() - ///{ - /// // Compare this snippet from VBUnObfusicatorTests/Resources/Test13Dat.cs: - /// return 0 < System.SomeFunc(123); - ///} - /// ähnelt. - /// - public static string Test13Dat_cs { - get { - return ResourceManager.GetString("Test13Dat_cs", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Ressource vom Typ System.Byte[]. - /// - public static byte[] Test13DataList { - get { - object obj = ResourceManager.GetObject("Test13DataList", resourceCulture); - return ((byte[])(obj)); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die private bool Test13Dat() - /// { - /// // Compare this snippet from VBUnObfusicatorTests/Resources/Test13Dat.cs: - /// return 0 < System.SomeFunc(123); - /// } ähnelt. - /// - public static string Test13ExpCode { - get { - return ResourceManager.GetString("Test13ExpCode", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ///Declaration MainBlock 0,0 - ///private bool Test13Dat() - //////BlockStart Block 1,0 - ///{ - //////Comment LComment 1,1 - ///// Compare this snippet from VBUnObfusicatorTests/Resources/Test13Dat.cs: - //////Operation Operation 1,2 - ///return 0 < System.SomeFunc(123); - //////BlockEnd Block 1,3 - ///} ähnelt. - /// - public static string Test13ExpParse { - get { - return ResourceManager.GetString("Test13ExpParse", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ///Declaration MainBlock 0,0 - ///private bool Test13Dat() - //////BlockStart Block 1,0 - ///{ - //////Comment LComment 1,1 - ///// Compare this snippet from VBUnObfusicatorTests/Resources/Test13Dat.cs: - //////Operation Operation 1,2 - ///return 0 < System.SomeFunc(123); - //////BlockEnd Block 1,3 - ///} ähnelt. - /// - public static string Test13ExpParseRL { - get { - return ResourceManager.GetString("Test13ExpParseRL", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die T:Operation,0,private bool Test13Dat() - ///T:Block,1,{ - ///T:Operation,1, - ///T:LComment,1,// Compare this snippet from VBUnObfusicatorTests/Resources/Test13Dat.cs: - ///T:Operation,1,return - ///T:Operation,1,0 < System.SomeFunc(123); - ///T:Block,1,} - /// ähnelt. - /// - public static string Test13ExpTokenize { - get { - return ResourceManager.GetString("Test13ExpTokenize", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die private void Befehl_Click(object eventSender, EventArgs eventArgs) - /// { - /// int try0000_dispatch = -1; - /// int num = default(int); - /// short index = default(short); - /// int num2 = default(int); - /// int num3 = default(int); - /// int number = default(int); - /// string prompt = default(string); - /// while (true) - /// { - /// try - /// { - /// /*Note: ILSpy has introduced the following switch to emulate a goto from catch-block to try-block* [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - /// - public static string Test1Dat_cs { - get { - return ResourceManager.GetString("Test1Dat_cs", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Ressource vom Typ System.Byte[]. - /// - public static byte[] Test1DataList { - get { - object obj = ResourceManager.GetObject("Test1DataList", resourceCulture); - return ((byte[])(obj)); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die private void Befehl_Click(object eventSender, EventArgs eventArgs) - /// { - /// int try0000_dispatch = -1; - /// int num = default(int); - /// short index = default(short); - /// int num2 = default(int); - /// int num3 = default(int); - /// int number = default(int); - /// string prompt = default(string); - /// while (true) - /// { - /// try - /// { - /// /*Note: ILSpy has introduced the following switch to emulate a goto from catch-block to try-block* [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - /// - public static string Test1ExpCode { - get { - return ResourceManager.GetString("Test1ExpCode", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ///Declaration MainBlock 0,0 - ///private void Befehl_Click(object eventSender, EventArgs eventArgs) - //////BlockStart Block 1,0 - ///{ - //////Operation Operation 1,1 - ///int try0000_dispatch = -1; - //////Operation Operation 1,2 - ///int num = default(int); - //////Operation Operation 1,3 - ///short index = default(short); - //////Operation Operation 1,4 - ///int num2 = default(int); - //////Operation Operation 1,5 - ///int num3 = default(int); - //////Operation Operation 1,6 - ///int number = default(int); - //////Operation Operation 1,7 - ///string prompt = default(st [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - /// - public static string Test1ExpParse { - get { - return ResourceManager.GetString("Test1ExpParse", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ///Declaration MainBlock 0,0 - ///private void Befehl_Click(object eventSender, EventArgs eventArgs) - //////BlockStart Block 1,0 - ///{ - //////Operation Operation 1,1 - ///int try0000_dispatch = -1; - //////Operation Operation 1,2 - ///int num = default(int); - //////Operation Operation 1,3 - ///short index = default(short); - //////Operation Operation 1,4 - ///int num2 = default(int); - //////Operation Operation 1,5 - ///int num3 = default(int); - //////Operation Operation 1,6 - ///int number = default(int); - //////Operation Operation 1,7 - ///string prompt = default(st [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - /// - public static string Test1ExpParseRL { - get { - return ResourceManager.GetString("Test1ExpParseRL", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ///Declaration MainBlock 0,0 - ///private void Befehl_Click(object eventSender, EventArgs eventArgs) - //////BlockStart Block 1,0 - ///{ - //////Operation Operation 1,1 - ///int try0000_dispatch = -1; - //////Operation Operation 1,2 - ///int num = default(int); - //////Operation Operation 1,3 - ///short index = default(short); - //////Operation Operation 1,4 - ///int num2 = default(int); - //////Operation Operation 1,5 - ///int num3 = default(int); - //////Operation Operation 1,6 - ///int number = default(int); - //////Operation Operation 1,7 - ///string prompt = default(st [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - /// - public static string Test1ExpParseSL { - get { - return ResourceManager.GetString("Test1ExpParseSL", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die T:Operation,0,private void Befehl_Click(object eventSender, EventArgs eventArgs) - ///T:Block,1,{ - ///T:Operation,1,int try0000_dispatch = -1; - ///T:Operation,1,int num = default(int); - ///T:Operation,1,short index = default(short); - ///T:Operation,1,int num2 = default(int); - ///T:Operation,1,int num3 = default(int); - ///T:Operation,1,int number = default(int); - ///T:Operation,1,string prompt = default(string); - ///T:Operation,1,while - ///T:Operation,1,(true) - ///T:Block,2,{ - ///T:Operation,2,try - ///T:Block,3,{ - ///T:Operation,3, - ///T:Comment,3,/*Not [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - /// - public static string Test1ExpTokenize { - get { - return ResourceManager.GetString("Test1ExpTokenize", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die private void Button2_Click(object sender, EventArgs e) - /// { - /// //Discarded unreachable code: IL_0085 - /// int try0000_dispatch = -1; - /// int num3 = default(int); - /// int num2 = default(int); - /// int num = default(int); - /// byte b = default(byte); - /// while (true) - /// { - /// try - /// { - /// /*Note: ILSpy has introduced the following switch to emulate a goto from catch-block to try-block*/ - /// ; - /// switch (try [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - /// - public static string Test2Dat_cs { - get { - return ResourceManager.GetString("Test2Dat_cs", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Ressource vom Typ System.Byte[]. - /// - public static byte[] Test2DataList { - get { - object obj = ResourceManager.GetObject("Test2DataList", resourceCulture); - return ((byte[])(obj)); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die private void Button2_Click(object sender, EventArgs e) - /// { - /// //Discarded unreachable code: IL_0085 - /// int try0000_dispatch = -1; - /// int num3 = default(int); - /// int num2 = default(int); - /// int num = default(int); - /// byte b = default(byte); - /// while (true) - /// { - /// try - /// { - /// /*Note: ILSpy has introduced the following switch to emulate a goto from catch-block to try-block*/ - /// ; - /// switch (try [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - /// - public static string Test2ExpCode { - get { - return ResourceManager.GetString("Test2ExpCode", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ///Declaration MainBlock 0,0 - ///private void Button2_Click(object sender, EventArgs e) - //////BlockStart Block 1,0 - ///{ - //////Comment LComment 1,1 - /////Discarded unreachable code: IL_0085 - //////Operation Operation 1,2 - ///int try0000_dispatch = -1; - //////Operation Operation 1,3 - ///int num3 = default(int); - //////Operation Operation 1,4 - ///int num2 = default(int); - //////Operation Operation 1,5 - ///int num = default(int); - //////Operation Operation 1,6 - ///byte b = default(byte); - //////Operation Operation 1,7 - ///while (true) - //////BlockStart Block 2, [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - /// - public static string Test2ExpParse { - get { - return ResourceManager.GetString("Test2ExpParse", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ///Declaration MainBlock 0,0 - ///private void Button2_Click(object sender, EventArgs e) - //////BlockStart Block 1,0 - ///{ - //////Comment LComment 1,1 - /////Discarded unreachable code: IL_0085 - //////Operation Operation 1,2 - ///int try0000_dispatch = -1; - //////Operation Operation 1,3 - ///int num3 = default(int); - //////Operation Operation 1,4 - ///int num2 = default(int); - //////Operation Operation 1,5 - ///int num = default(int); - //////Operation Operation 1,6 - ///byte b = default(byte); - //////Operation Operation 1,7 - ///while (true) - //////BlockStart Block 2, [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - /// - public static string Test2ExpParseRL { - get { - return ResourceManager.GetString("Test2ExpParseRL", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ///Declaration MainBlock 0,0 - ///private void Button2_Click(object sender, EventArgs e) - //////BlockStart Block 1,0 - ///{ - //////Comment LComment 1,1 - /////Discarded unreachable code: IL_0085 - //////Operation Operation 1,2 - ///int try0000_dispatch = -1; - //////Operation Operation 1,3 - ///int num3 = default(int); - //////Operation Operation 1,4 - ///int num2 = default(int); - //////Operation Operation 1,5 - ///int num = default(int); - //////Operation Operation 1,6 - ///byte b = default(byte); - //////Operation Operation 1,7 - ///while (true) - //////BlockStart Block 2, [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - /// - public static string Test2ExpParseSL { - get { - return ResourceManager.GetString("Test2ExpParseSL", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die T:Operation,0,private void Button2_Click(object sender, EventArgs e) - ///T:Block,1,{ - ///T:Operation,1, - ///T:LComment,1,//Discarded unreachable code: IL_0085 - ///T:Operation,1,int try0000_dispatch = -1; - ///T:Operation,1,int num3 = default(int); - ///T:Operation,1,int num2 = default(int); - ///T:Operation,1,int num = default(int); - ///T:Operation,1,byte b = default(byte); - ///T:Operation,1,while - ///T:Operation,1,(true) - ///T:Block,2,{ - ///T:Operation,2,try - ///T:Block,3,{ - ///T:Operation,3, - ///T:Comment,3,/*Note: ILSpy has introduced the following sw [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - /// - public static string Test2ExpTokenize { - get { - return ResourceManager.GetString("Test2ExpTokenize", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die public void Test8() - ///{ - /// if (true) - /// goto IL_109; - /// else - /// goto IL_1003; - /// IL_109: - /// num = 209; - /// i++; - /// goto IL_10002; - ///IL_1003: - /// num = 210; - /// i--; - /// goto IL_10002; - ///IL_10002: - /// num = 212; - /// goto IL_100001; - ///IL_100001: - /// num = 213; - /// return; - ///} ähnelt. - /// - public static string Test8Dat_cs { - get { - return ResourceManager.GetString("Test8Dat_cs", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Ressource vom Typ System.Byte[]. - /// - public static byte[] Test8DataList { - get { - object obj = ResourceManager.GetObject("Test8DataList", resourceCulture); - return ((byte[])(obj)); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die public void Test8() - /// { - /// if (true) - /// goto IL_109; - /// else - /// goto IL_1003; - /// IL_109: - /// num = 209; - /// i++; - /// goto IL_10002; - /// IL_1003: - /// num = 210; - /// i--; - /// goto IL_10002; - /// IL_10002: - /// num = 212; - /// goto IL_100001; - /// IL_100001: - /// num = 213; - /// return; - /// } ähnelt. - /// - public static string Test8ExpCode { - get { - return ResourceManager.GetString("Test8ExpCode", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ///Declaration MainBlock 0,0 - ///public void Test8() - //////BlockStart Block 1,0 - ///{ - //////Operation Operation 1,1 - ///if (true) - //////Goto Goto 1,2 Dest:OK - ///goto IL_109; - //////Operation Operation 1,3 - ///else - //////Goto Goto 1,4 Dest:OK - ///goto IL_1003; - //////Label Label 1,5 1 - ///IL_109: - //////Operation Operation 1,6 - ///num = 209; - //////Operation Operation 1,7 - ///i++; - //////Goto Goto 1,8 Dest:OK - ///goto IL_10002; - //////Label Label 1,9 1 - ///IL_1003: - //////Operation Operation 1,10 - ///num = 210; - //////Operation Operation 1,11 - ///i--; - //////Goto Goto 1,12 Dest:O [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - /// - public static string Test8ExpParse { - get { - return ResourceManager.GetString("Test8ExpParse", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die T:Operation,0,public void Test8() - ///T:Block,1,{ - ///T:Operation,1,if - ///T:Operation,1,(true) - ///T:Goto,1,goto IL_109; - ///T:Operation,1,else - ///T:Goto,1,goto IL_1003; - ///T:Label,1,IL_109: - ///T:Operation,1,num = 209; - ///T:Operation,1,i++; - ///T:Goto,1,goto IL_10002; - ///T:Label,1,IL_1003: - ///T:Operation,1,num = 210; - ///T:Operation,1,i--; - ///T:Goto,1,goto IL_10002; - ///T:Label,1,IL_10002: - ///T:Operation,1,num = 212; - ///T:Goto,1,goto IL_100001; - ///T:Label,1,IL_100001: - ///T:Operation,1,num = 213; - ///T:Operation,1,return; - ///T:Block,1,} - /// ähnelt. - /// - public static string Test8ExpTokenize { - get { - return ResourceManager.GetString("Test8ExpTokenize", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die private void Command1_Click(object eventSender, EventArgs eventArgs) - /// { - /// //Discarded unreachable code: IL_451b - /// int try0001_dispatch = -1; - /// int num = default; - /// short index = default; - /// int num2 = default; - /// int num3 = default; - /// int lErl = default; - /// int num6 = default; - /// int num7 = default; - /// int num8 = default; - /// int num9 = default; - /// string sDest = default; - /// int num10 = default; - /// string sDest2 = [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - /// - public static string Test9Dat_cs { - get { - return ResourceManager.GetString("Test9Dat_cs", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Ressource vom Typ System.Byte[]. - /// - public static byte[] Test9DataList { - get { - object obj = ResourceManager.GetObject("Test9DataList", resourceCulture); - return ((byte[])(obj)); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die private void Command1_Click(object eventSender, EventArgs eventArgs) - /// { - /// //Discarded unreachable code: IL_451b - /// int try0001_dispatch = -1; - /// int num = default; - /// short index = default; - /// int num2 = default; - /// int num3 = default; - /// int lErl = default; - /// int num6 = default; - /// int num7 = default; - /// int num8 = default; - /// int num9 = default; - /// string sDest = default; - /// int num10 = default; - /// string sDest2 [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - /// - public static string Test9ExpCode { - get { - return ResourceManager.GetString("Test9ExpCode", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ///Declaration MainBlock 0,0 - ///private void Command1_Click(object eventSender, EventArgs eventArgs) - //////BlockStart Block 1,0 - ///{ - //////Comment LComment 1,1 - /////Discarded unreachable code: IL_451b - //////Operation Operation 1,2 - ///int try0001_dispatch = -1; - //////Operation Operation 1,3 - ///int num = default; - //////Operation Operation 1,4 - ///short index = default; - //////Operation Operation 1,5 - ///int num2 = default; - //////Operation Operation 1,6 - ///int num3 = default; - //////Operation Operation 1,7 - ///int lErl = default; - //////Operation Oper [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - /// - public static string Test9ExpParse { - get { - return ResourceManager.GetString("Test9ExpParse", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ///Declaration MainBlock 0,0 - ///private void Command1_Click(object eventSender, EventArgs eventArgs) - //////BlockStart Block 1,0 - ///{ - //////Comment LComment 1,1 - /////Discarded unreachable code: IL_451b - //////Operation Operation 1,2 - ///int try0001_dispatch = -1; - //////Operation Operation 1,3 - ///int num = default; - //////Operation Operation 1,4 - ///short index = default; - //////Operation Operation 1,5 - ///int num2 = default; - //////Operation Operation 1,6 - ///int num3 = default; - //////Operation Operation 1,7 - ///int lErl = default; - //////Operation Oper [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - /// - public static string Test9ExpParseRL { - get { - return ResourceManager.GetString("Test9ExpParseRL", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ///Declaration MainBlock 0,0 - ///private void Command1_Click(object eventSender, EventArgs eventArgs) - //////BlockStart Block 1,0 - ///{ - //////Comment LComment 1,1 - /////Discarded unreachable code: IL_451b - //////Operation Operation 1,2 - ///int try0001_dispatch = -1; - //////Operation Operation 1,3 - ///int num = default; - //////Operation Operation 1,4 - ///short index = default; - //////Operation Operation 1,5 - ///int num2 = default; - //////Operation Operation 1,6 - ///int num3 = default; - //////Operation Operation 1,7 - ///int lErl = default; - //////Operation Oper [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - /// - public static string Test9ExpParseSL { - get { - return ResourceManager.GetString("Test9ExpParseSL", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die T:Operation,0,private void Command1_Click(object eventSender, EventArgs eventArgs) - ///T:Block,1,{ - ///T:Operation,1, - ///T:LComment,1,//Discarded unreachable code: IL_451b - ///T:Operation,1,int try0001_dispatch = -1; - ///T:Operation,1,int num = default; - ///T:Operation,1,short index = default; - ///T:Operation,1,int num2 = default; - ///T:Operation,1,int num3 = default; - ///T:Operation,1,int lErl = default; - ///T:Operation,1,int num6 = default; - ///T:Operation,1,int num7 = default; - ///T:Operation,1,int num8 = default; - ///T:Operation,1,int num9 [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - /// - public static string Test9ExpTokenize { - get { - return ResourceManager.GetString("Test9ExpTokenize", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die // Dies ist ein Kommentar zum Typ ST_01 - ///TYPE ST_01 : - /// STRUCT - /// // Dies ist ein Kommentar zum Element a - /// a: INT := INT#1; // Dies ist ein 2. Kommentar zum Element a - /// // Dies ist ein Kommentar zum Element b - /// b: LREAL := LREAL#2.7e-2; // Dies ist ein 2. Kommentar zum Element b - /// END_STRUCT - ///END_TYPE - /// ähnelt. - /// - public static string TestCode01 { - get { - return ResourceManager.GetString("TestCode01", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die FUNCTION fbCalcWinkelvVector : LREAL; - ///VAR_INPUT - /// Vec : udtVector; - ///END_VAR - ///VAR_OUTPUT - /// Len : LREAL; - ///END_VAR - ///VAR - /// ZwErg : LREAL; - ///END_VAR - ///BEGIN - ///IF ABS(Vec.v.x) > ABS(Vec.v.y) THEN - /// ZwErg :=SEL(Vec.v.x<0.0,ATAN(Vec.v.y/vec.v.x),ATAN(Vec.v.y/vec.v.x)+pi); - /// len:=Vec.v.x/COS(ZwErg); - /// fbCalcWinkelvVector := ZwErg+pi*2.0-DINT_TO_REAL(TRUNC(Zwerg/pi*0.5+1.5))*pi*2.0; - ///ELSIF ABS(Vec.v.y) > epsilon THEN - /// fbCalcWinkelvVector := SEL(Vec.v.y < 0.0,ATAN(-Vec.v.x/vec.v.y)+0.5*pi,ATAN(-Vec.v. [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - /// - public static string TestCode02 { - get { - return ResourceManager.GetString("TestCode02", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die // Dies ist ein Kommentar zum Typ ST_01 - ///TYPE ST_01 : - /// STRUCT - /// // Dies ist ein Kommentar zum Element a - /// a: INT := INT#1; // Dies ist ein 2. Kommentar zum Element a - /// // Dies ist ein Kommentar zum Element b - /// b: LREAL := LREAL#2.7e-2; // Dies ist ein 2. Kommentar zum Element b - /// END_STRUCT - ///END_TYPE - /// ähnelt. - /// - public static string TestExpCode01 { - get { - return ResourceManager.GetString("TestExpCode01", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ähnelt. - /// - public static string TestExpCode02 { - get { - return ResourceManager.GetString("TestExpCode02", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ///Declaration MainBlock 0,0 - /// - //////FLComment FLComment 1,0 - ///// Dies ist ein Kommentar zum Typ ST_01 - //////Block Block 1,1 - ///TYPE - //////Variable Variable 2,0 - ///ST_01 - //////Operation Operation 2,1 - ///: - //////Block Block 2,2 - ///STRUCT - //////FLComment FLComment 3,0 - ///// Dies ist ein Kommentar zum Element a - //////Variable Variable 3,1 - ///a - //////Operation Operation 3,2 - ///: - //////Function Function 3,3 - ///INT - //////Operation Operation 3,4 - ///:= - //////Number Number 3,5 - ///INT#1 - //////Operation Operation 3,6 - ///; - //////LComment LComment 3,7 - ///// Dies ist ein [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. - /// - public static string TestExpParse01 { - get { - return ResourceManager.GetString("TestExpParse01", resourceCulture); - } - } - - /// - /// Sucht eine lokalisierte Zeichenfolge, die ähnelt. - /// - public static string TestExpParse02 { - get { - return ResourceManager.GetString("TestExpParse02", resourceCulture); - } - } - } -} diff --git a/Transpiler_pp/TranspilerLibTests/Properties/Resources.resx b/Transpiler_pp/TranspilerLibTests/Properties/Resources.resx deleted file mode 100644 index 20fb38665..000000000 --- a/Transpiler_pp/TranspilerLibTests/Properties/Resources.resx +++ /dev/null @@ -1,298 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - - ..\Resources\IEC_00\IECTestDataList0.json;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ..\Resources\IEC_01\ExpLog01.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\IEC_01\IECTestDataList1.json;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ..\Resources\Test10\Test10DataList.json;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ..\Resources\Test10\Test10Dat.cs;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test10\Test10ExpCode.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test10\Test10ExpParse.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test10\Test10ExpTokenize.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test11\Test11DataList.json;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ..\Resources\Test11\Test11Dat.cs;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test11\Test11ExpCode.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test11\Test11ExpParse.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test11\Test11ExpTokenize.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test12\Test12DataList.json;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ..\Resources\Test12\Test12Dat.cs;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test12\Test12ExpCode.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test12\Test12ExpParse.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test12\Test12ExpParseRL.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test12\Test12ExpTokenize.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test13\Test13DataList.json;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ..\Resources\Test13\Test13Dat.cs;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test13\Test13ExpCode.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test13\Test13ExpParse.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test13\Test13ExpParseRL.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test13\Test13ExpTokenize.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test01\Test1DataList.json;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ..\Resources\Test01\Test1Dat.cs.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test01\Test1ExpCode.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test01\Test1ExpParse.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test01\Test1ExpParseRL.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test01\Test1ExpParseSL.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test01\Test1ExpTokenize.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test02\Test2DataList.json;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ..\Resources\Test02\Test2Dat.cs.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test02\Test2ExpCode.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test02\Test2ExpParse.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test02\Test2ExpParseRL.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test02\Test2ExpParseSL.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test02\Test2ExpTokenize.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test08\Test8DataList.json;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ..\Resources\Test08\Test8Dat.cs;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test08\Test8ExpCode.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test08\Test8ExpParse.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test08\Test8ExpTokenize.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test09\Test9DataList.json;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ..\Resources\Test09\Test9Dat.cs.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test09\Test9ExpCode.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test09\Test9ExpParse.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test09\Test9ExpParseRL.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test09\Test9ExpParseSL.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\Test09\Test9ExpTokenize.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\IEC_01\TestCode01.ext;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\IEC_01\TestExpCode01.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\IEC_01\TestExpParse01.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\IEC_02\ExpLog02.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\IEC_02\IECTestDataList2.json;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ..\Resources\IEC_02\TestCode02.ext;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\IEC_02\TestExpCode02.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - - ..\Resources\IEC_02\TestExpParse02.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - - \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test00/Blocks00.json b/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test00/Blocks00.json deleted file mode 100644 index c03314314..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test00/Blocks00.json +++ /dev/null @@ -1 +0,0 @@ -{"__type":"CodeBlock:#TranspilerLib.Models.Scanner","Code":"","DestinationIndex":[],"Name":"Declaration","SourcePos":-1,"SourcesIndex":[],"SubBlocks":[{"__type":"IECCodeBlock:#TranspilerLib.Models.Scanner","Code":"2.0","DestinationIndex":[],"Name":"Number","SourcePos":1,"SourcesIndex":[],"SubBlocks":[],"Type":18}],"Type":0} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test00/Blocks00.txt b/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test00/Blocks00.txt deleted file mode 100644 index 788dcac6f..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test00/Blocks00.txt +++ /dev/null @@ -1,4 +0,0 @@ -///Declaration MainBlock 0,0 - -///Number Number 1,1,0 -2.0 \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test01/Blocks01.json b/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test01/Blocks01.json deleted file mode 100644 index 3168d561d..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test01/Blocks01.json +++ /dev/null @@ -1,52 +0,0 @@ -{ - "__type": "CodeBlock:#TranspilerLib.Models.Scanner", - "Code": "", - "DestinationIndex": [ - ], - "Name": "Declaration", - "SourcePos": -1, - "SourcesIndex": [ - ], - "SubBlocks": [ - { - "__type": "IECCodeBlock:#TranspilerLib.Models.Scanner", - "Code": "+", - "DestinationIndex": [ - ], - "Name": "Operation", - "SourcePos": 5, - "SourcesIndex": [ - ], - "SubBlocks": [ - { - "__type": "IECCodeBlock:#TranspilerLib.Models.Scanner", - "Code": "2.0", - "DestinationIndex": [ - ], - "Name": "Number", - "SourcePos": 1, - "SourcesIndex": [ - ], - "SubBlocks": [ - ], - "Type": 18 - }, - { - "__type": "IECCodeBlock:#TranspilerLib.Models.Scanner", - "Code": "1.0", - "DestinationIndex": [ - ], - "Name": "Number", - "SourcePos": 7, - "SourcesIndex": [ - ], - "SubBlocks": [ - ], - "Type": 18 - } - ], - "Type": 7 - } - ], - "Type": 0 -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test01/Blocks01.txt b/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test01/Blocks01.txt deleted file mode 100644 index 5c71549db..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test01/Blocks01.txt +++ /dev/null @@ -1,8 +0,0 @@ -///Declaration MainBlock 0,0 - -///Operation Operation 1,5,0 -+ -///Number Number 2,1,0 -2.0 -///Number Number 2,7,1 -1.0 \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test01/Tokens01.json b/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test01/Tokens01.json deleted file mode 100644 index 0155ad0aa..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test01/Tokens01.json +++ /dev/null @@ -1,20 +0,0 @@ -[ - { - "Code": "2.0", - "Level": 1, - "Pos": 1, - "type": 18 - }, - { - "Code": "+", - "Level": 1, - "Pos": 5, - "type": 7 - }, - { - "Code": "1.0", - "Level": 1, - "Pos": 7, - "type": 18 - } -] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test02/Blocks02.txt b/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test02/Blocks02.txt deleted file mode 100644 index 265c98ea0..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test02/Blocks02.txt +++ /dev/null @@ -1,12 +0,0 @@ -///Declaration MainBlock 0,0 - -///Operation Operation 1,5,0 -+ -///Number Number 2,1,0 -1.0 -///Operation Operation 2,5,1 -* -///Number Number 3,7,0 -2.0 -///Number Number 3,7,1 -3.0 \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test02/Tokens02.json b/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test02/Tokens02.json deleted file mode 100644 index 0330c702d..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test02/Tokens02.json +++ /dev/null @@ -1,1304 +0,0 @@ -[ - { - "Code": "FUNCTION", - "Level": 0, - "Pos": 0, - "type": 17 - }, - { - "Code": "fbCalcWinkelvVector", - "Level": 1, - "Pos": 8, - "type": 3 - }, - { - "Code": ":", - "Level": 1, - "Pos": 28, - "type": 7 - }, - { - "Code": "LREAL", - "Level": 1, - "Pos": 30, - "type": 4 - }, - { - "Code": ";", - "Level": 1, - "Pos": 36, - "type": 7 - }, - { - "Code": "VAR_INPUT", - "Level": 1, - "Pos": 37, - "type": 17 - }, - { - "Code": "Vec", - "Level": 2, - "Pos": 48, - "type": 3 - }, - { - "Code": ":", - "Level": 2, - "Pos": 57, - "type": 7 - }, - { - "Code": "udtVector", - "Level": 2, - "Pos": 59, - "type": 3 - }, - { - "Code": ";", - "Level": 2, - "Pos": 69, - "type": 7 - }, - { - "Code": "END_VAR", - "Level": 1, - "Pos": 70, - "type": 17 - }, - { - "Code": "VAR_OUTPUT", - "Level": 1, - "Pos": 79, - "type": 17 - }, - { - "Code": "Len", - "Level": 2, - "Pos": 91, - "type": 4 - }, - { - "Code": ":", - "Level": 2, - "Pos": 100, - "type": 7 - }, - { - "Code": "LREAL", - "Level": 2, - "Pos": 102, - "type": 4 - }, - { - "Code": ";", - "Level": 2, - "Pos": 108, - "type": 7 - }, - { - "Code": "END_VAR", - "Level": 1, - "Pos": 109, - "type": 17 - }, - { - "Code": "VAR", - "Level": 1, - "Pos": 118, - "type": 17 - }, - { - "Code": "ZwErg", - "Level": 2, - "Pos": 123, - "type": 3 - }, - { - "Code": ":", - "Level": 2, - "Pos": 134, - "type": 7 - }, - { - "Code": "LREAL", - "Level": 2, - "Pos": 136, - "type": 4 - }, - { - "Code": ";", - "Level": 2, - "Pos": 142, - "type": 7 - }, - { - "Code": "END_VAR", - "Level": 1, - "Pos": 143, - "type": 17 - }, - { - "Code": "BEGIN", - "Level": 1, - "Pos": 152, - "type": 4 - }, - { - "Code": "IF", - "Level": 1, - "Pos": 159, - "type": 17 - }, - { - "Code": "ABS", - "Level": 2, - "Pos": 163, - "type": 4 - }, - { - "Code": "(", - "Level": 2, - "Pos": 167, - "type": 19 - }, - { - "Code": "Vec", - "Level": 3, - "Pos": 168, - "type": 3 - }, - { - "Code": ".", - "Level": 3, - "Pos": 171, - "type": 7 - }, - { - "Code": "v", - "Level": 3, - "Pos": 172, - "type": 3 - }, - { - "Code": ".", - "Level": 3, - "Pos": 173, - "type": 7 - }, - { - "Code": "x", - "Level": 3, - "Pos": 174, - "type": 3 - }, - { - "Code": ")", - "Level": 2, - "Pos": 175, - "type": 19 - }, - { - "Code": ">", - "Level": 2, - "Pos": 176, - "type": 7 - }, - { - "Code": "ABS", - "Level": 2, - "Pos": 178, - "type": 4 - }, - { - "Code": "(", - "Level": 2, - "Pos": 182, - "type": 19 - }, - { - "Code": "Vec", - "Level": 3, - "Pos": 183, - "type": 3 - }, - { - "Code": ".", - "Level": 3, - "Pos": 186, - "type": 7 - }, - { - "Code": "v", - "Level": 3, - "Pos": 187, - "type": 3 - }, - { - "Code": ".", - "Level": 3, - "Pos": 188, - "type": 7 - }, - { - "Code": "y", - "Level": 3, - "Pos": 189, - "type": 3 - }, - { - "Code": ")", - "Level": 2, - "Pos": 190, - "type": 19 - }, - { - "Code": "THEN", - "Level": 2, - "Pos": 191, - "type": 4 - }, - { - "Code": "ZwErg", - "Level": 2, - "Pos": 196, - "type": 3 - }, - { - "Code": ":=", - "Level": 2, - "Pos": 206, - "type": 7 - }, - { - "Code": "SEL", - "Level": 2, - "Pos": 209, - "type": 4 - }, - { - "Code": "(", - "Level": 2, - "Pos": 212, - "type": 19 - }, - { - "Code": "Vec", - "Level": 3, - "Pos": 213, - "type": 3 - }, - { - "Code": ".", - "Level": 3, - "Pos": 216, - "type": 7 - }, - { - "Code": "v", - "Level": 3, - "Pos": 217, - "type": 3 - }, - { - "Code": ".", - "Level": 3, - "Pos": 218, - "type": 7 - }, - { - "Code": "x", - "Level": 3, - "Pos": 219, - "type": 3 - }, - { - "Code": "<", - "Level": 3, - "Pos": 220, - "type": 7 - }, - { - "Code": "0.0", - "Level": 3, - "Pos": 221, - "type": 18 - }, - { - "Code": ",", - "Level": 3, - "Pos": 224, - "type": 7 - }, - { - "Code": "ATAN", - "Level": 3, - "Pos": 225, - "type": 4 - }, - { - "Code": "(", - "Level": 3, - "Pos": 229, - "type": 19 - }, - { - "Code": "Vec", - "Level": 4, - "Pos": 230, - "type": 3 - }, - { - "Code": ".", - "Level": 4, - "Pos": 233, - "type": 7 - }, - { - "Code": "v", - "Level": 4, - "Pos": 234, - "type": 3 - }, - { - "Code": ".", - "Level": 4, - "Pos": 235, - "type": 7 - }, - { - "Code": "y", - "Level": 4, - "Pos": 236, - "type": 3 - }, - { - "Code": "\/", - "Level": 4, - "Pos": 237, - "type": 7 - }, - { - "Code": "vec", - "Level": 4, - "Pos": 238, - "type": 3 - }, - { - "Code": ".", - "Level": 4, - "Pos": 241, - "type": 7 - }, - { - "Code": "v", - "Level": 4, - "Pos": 242, - "type": 3 - }, - { - "Code": ".", - "Level": 4, - "Pos": 243, - "type": 7 - }, - { - "Code": "x", - "Level": 4, - "Pos": 244, - "type": 3 - }, - { - "Code": ")", - "Level": 3, - "Pos": 245, - "type": 19 - }, - { - "Code": ",", - "Level": 3, - "Pos": 246, - "type": 7 - }, - { - "Code": "ATAN", - "Level": 3, - "Pos": 247, - "type": 4 - }, - { - "Code": "(", - "Level": 3, - "Pos": 251, - "type": 19 - }, - { - "Code": "Vec", - "Level": 4, - "Pos": 252, - "type": 3 - }, - { - "Code": ".", - "Level": 4, - "Pos": 255, - "type": 7 - }, - { - "Code": "v", - "Level": 4, - "Pos": 256, - "type": 3 - }, - { - "Code": ".", - "Level": 4, - "Pos": 257, - "type": 7 - }, - { - "Code": "y", - "Level": 4, - "Pos": 258, - "type": 3 - }, - { - "Code": "\/", - "Level": 4, - "Pos": 259, - "type": 7 - }, - { - "Code": "vec", - "Level": 4, - "Pos": 260, - "type": 3 - }, - { - "Code": ".", - "Level": 4, - "Pos": 263, - "type": 7 - }, - { - "Code": "v", - "Level": 4, - "Pos": 264, - "type": 3 - }, - { - "Code": ".", - "Level": 4, - "Pos": 265, - "type": 7 - }, - { - "Code": "x", - "Level": 4, - "Pos": 266, - "type": 3 - }, - { - "Code": ")", - "Level": 3, - "Pos": 267, - "type": 19 - }, - { - "Code": "+", - "Level": 3, - "Pos": 268, - "type": 7 - }, - { - "Code": "pi", - "Level": 3, - "Pos": 269, - "type": 3 - }, - { - "Code": ")", - "Level": 2, - "Pos": 271, - "type": 19 - }, - { - "Code": ";", - "Level": 2, - "Pos": 272, - "type": 7 - }, - { - "Code": "len", - "Level": 2, - "Pos": 273, - "type": 4 - }, - { - "Code": ":=", - "Level": 2, - "Pos": 281, - "type": 7 - }, - { - "Code": "Vec", - "Level": 2, - "Pos": 283, - "type": 3 - }, - { - "Code": ".", - "Level": 2, - "Pos": 286, - "type": 7 - }, - { - "Code": "v", - "Level": 2, - "Pos": 287, - "type": 3 - }, - { - "Code": ".", - "Level": 2, - "Pos": 288, - "type": 7 - }, - { - "Code": "x", - "Level": 2, - "Pos": 289, - "type": 3 - }, - { - "Code": "\/", - "Level": 2, - "Pos": 290, - "type": 7 - }, - { - "Code": "COS", - "Level": 2, - "Pos": 291, - "type": 4 - }, - { - "Code": "(", - "Level": 2, - "Pos": 294, - "type": 19 - }, - { - "Code": "ZwErg", - "Level": 3, - "Pos": 295, - "type": 3 - }, - { - "Code": ")", - "Level": 2, - "Pos": 300, - "type": 19 - }, - { - "Code": ";", - "Level": 2, - "Pos": 301, - "type": 7 - }, - { - "Code": "fbCalcWinkelvVector", - "Level": 2, - "Pos": 302, - "type": 3 - }, - { - "Code": ":=", - "Level": 2, - "Pos": 326, - "type": 7 - }, - { - "Code": "ZwErg", - "Level": 2, - "Pos": 329, - "type": 3 - }, - { - "Code": "+", - "Level": 2, - "Pos": 335, - "type": 7 - }, - { - "Code": "pi", - "Level": 2, - "Pos": 336, - "type": 3 - }, - { - "Code": "*", - "Level": 2, - "Pos": 338, - "type": 7 - }, - { - "Code": "2.0", - "Level": 2, - "Pos": 339, - "type": 18 - }, - { - "Code": "-", - "Level": 2, - "Pos": 342, - "type": 7 - }, - { - "Code": "DINT_TO_REAL", - "Level": 2, - "Pos": 343, - "type": 4 - }, - { - "Code": "(", - "Level": 2, - "Pos": 355, - "type": 19 - }, - { - "Code": "TRUNC", - "Level": 3, - "Pos": 356, - "type": 4 - }, - { - "Code": "(", - "Level": 3, - "Pos": 361, - "type": 19 - }, - { - "Code": "Zwerg", - "Level": 4, - "Pos": 362, - "type": 3 - }, - { - "Code": "\/", - "Level": 4, - "Pos": 367, - "type": 7 - }, - { - "Code": "pi", - "Level": 4, - "Pos": 368, - "type": 3 - }, - { - "Code": "*", - "Level": 4, - "Pos": 370, - "type": 7 - }, - { - "Code": "0.5", - "Level": 4, - "Pos": 371, - "type": 18 - }, - { - "Code": "+", - "Level": 4, - "Pos": 374, - "type": 7 - }, - { - "Code": "1.5", - "Level": 4, - "Pos": 375, - "type": 18 - }, - { - "Code": ")", - "Level": 3, - "Pos": 378, - "type": 19 - }, - { - "Code": ")", - "Level": 2, - "Pos": 379, - "type": 19 - }, - { - "Code": "*", - "Level": 2, - "Pos": 380, - "type": 7 - }, - { - "Code": "pi", - "Level": 2, - "Pos": 381, - "type": 3 - }, - { - "Code": "*", - "Level": 2, - "Pos": 383, - "type": 7 - }, - { - "Code": "2.0", - "Level": 2, - "Pos": 384, - "type": 18 - }, - { - "Code": ";", - "Level": 2, - "Pos": 387, - "type": 7 - }, - { - "Code": "ELSIF", - "Level": 2, - "Pos": 388, - "type": 4 - }, - { - "Code": "ABS", - "Level": 2, - "Pos": 395, - "type": 4 - }, - { - "Code": "(", - "Level": 2, - "Pos": 399, - "type": 19 - }, - { - "Code": "Vec", - "Level": 3, - "Pos": 400, - "type": 3 - }, - { - "Code": ".", - "Level": 3, - "Pos": 403, - "type": 7 - }, - { - "Code": "v", - "Level": 3, - "Pos": 404, - "type": 3 - }, - { - "Code": ".", - "Level": 3, - "Pos": 405, - "type": 7 - }, - { - "Code": "y", - "Level": 3, - "Pos": 406, - "type": 3 - }, - { - "Code": ")", - "Level": 2, - "Pos": 407, - "type": 19 - }, - { - "Code": ">", - "Level": 2, - "Pos": 408, - "type": 7 - }, - { - "Code": "epsilon", - "Level": 2, - "Pos": 410, - "type": 3 - }, - { - "Code": "THEN", - "Level": 2, - "Pos": 418, - "type": 4 - }, - { - "Code": "fbCalcWinkelvVector", - "Level": 2, - "Pos": 423, - "type": 3 - }, - { - "Code": ":=", - "Level": 2, - "Pos": 448, - "type": 7 - }, - { - "Code": "SEL", - "Level": 2, - "Pos": 451, - "type": 4 - }, - { - "Code": "(", - "Level": 2, - "Pos": 455, - "type": 19 - }, - { - "Code": "Vec", - "Level": 3, - "Pos": 456, - "type": 3 - }, - { - "Code": ".", - "Level": 3, - "Pos": 459, - "type": 7 - }, - { - "Code": "v", - "Level": 3, - "Pos": 460, - "type": 3 - }, - { - "Code": ".", - "Level": 3, - "Pos": 461, - "type": 7 - }, - { - "Code": "y", - "Level": 3, - "Pos": 462, - "type": 3 - }, - { - "Code": "<", - "Level": 3, - "Pos": 463, - "type": 7 - }, - { - "Code": "0.0", - "Level": 3, - "Pos": 465, - "type": 18 - }, - { - "Code": ",", - "Level": 3, - "Pos": 469, - "type": 7 - }, - { - "Code": "ATAN", - "Level": 3, - "Pos": 470, - "type": 4 - }, - { - "Code": "(", - "Level": 3, - "Pos": 474, - "type": 19 - }, - { - "Code": "-", - "Level": 4, - "Pos": 475, - "type": 7 - }, - { - "Code": "Vec", - "Level": 4, - "Pos": 476, - "type": 3 - }, - { - "Code": ".", - "Level": 4, - "Pos": 479, - "type": 7 - }, - { - "Code": "v", - "Level": 4, - "Pos": 480, - "type": 3 - }, - { - "Code": ".", - "Level": 4, - "Pos": 481, - "type": 7 - }, - { - "Code": "x", - "Level": 4, - "Pos": 482, - "type": 3 - }, - { - "Code": "\/", - "Level": 4, - "Pos": 483, - "type": 7 - }, - { - "Code": "vec", - "Level": 4, - "Pos": 484, - "type": 3 - }, - { - "Code": ".", - "Level": 4, - "Pos": 487, - "type": 7 - }, - { - "Code": "v", - "Level": 4, - "Pos": 488, - "type": 3 - }, - { - "Code": ".", - "Level": 4, - "Pos": 489, - "type": 7 - }, - { - "Code": "y", - "Level": 4, - "Pos": 490, - "type": 3 - }, - { - "Code": ")", - "Level": 3, - "Pos": 491, - "type": 19 - }, - { - "Code": "+", - "Level": 3, - "Pos": 492, - "type": 7 - }, - { - "Code": "0.5", - "Level": 3, - "Pos": 493, - "type": 18 - }, - { - "Code": "*", - "Level": 3, - "Pos": 496, - "type": 7 - }, - { - "Code": "pi", - "Level": 3, - "Pos": 497, - "type": 3 - }, - { - "Code": ",", - "Level": 3, - "Pos": 499, - "type": 7 - }, - { - "Code": "ATAN", - "Level": 3, - "Pos": 500, - "type": 4 - }, - { - "Code": "(", - "Level": 3, - "Pos": 504, - "type": 19 - }, - { - "Code": "-", - "Level": 4, - "Pos": 505, - "type": 7 - }, - { - "Code": "Vec", - "Level": 4, - "Pos": 506, - "type": 3 - }, - { - "Code": ".", - "Level": 4, - "Pos": 509, - "type": 7 - }, - { - "Code": "v", - "Level": 4, - "Pos": 510, - "type": 3 - }, - { - "Code": ".", - "Level": 4, - "Pos": 511, - "type": 7 - }, - { - "Code": "x", - "Level": 4, - "Pos": 512, - "type": 3 - }, - { - "Code": "\/", - "Level": 4, - "Pos": 513, - "type": 7 - }, - { - "Code": "vec", - "Level": 4, - "Pos": 514, - "type": 3 - }, - { - "Code": ".", - "Level": 4, - "Pos": 517, - "type": 7 - }, - { - "Code": "v", - "Level": 4, - "Pos": 518, - "type": 3 - }, - { - "Code": ".", - "Level": 4, - "Pos": 519, - "type": 7 - }, - { - "Code": "y", - "Level": 4, - "Pos": 520, - "type": 3 - }, - { - "Code": ")", - "Level": 3, - "Pos": 521, - "type": 19 - }, - { - "Code": "-", - "Level": 3, - "Pos": 522, - "type": 7 - }, - { - "Code": "0.5", - "Level": 3, - "Pos": 523, - "type": 18 - }, - { - "Code": "*", - "Level": 3, - "Pos": 526, - "type": 7 - }, - { - "Code": "pi", - "Level": 3, - "Pos": 527, - "type": 3 - }, - { - "Code": ")", - "Level": 2, - "Pos": 529, - "type": 19 - }, - { - "Code": ";", - "Level": 2, - "Pos": 530, - "type": 7 - }, - { - "Code": "len", - "Level": 2, - "Pos": 531, - "type": 4 - }, - { - "Code": ":=", - "Level": 2, - "Pos": 539, - "type": 7 - }, - { - "Code": "Vec", - "Level": 2, - "Pos": 541, - "type": 3 - }, - { - "Code": ".", - "Level": 2, - "Pos": 544, - "type": 7 - }, - { - "Code": "v", - "Level": 2, - "Pos": 545, - "type": 3 - }, - { - "Code": ".", - "Level": 2, - "Pos": 546, - "type": 7 - }, - { - "Code": "y", - "Level": 2, - "Pos": 547, - "type": 3 - }, - { - "Code": "\/", - "Level": 2, - "Pos": 548, - "type": 7 - }, - { - "Code": "SIN", - "Level": 2, - "Pos": 549, - "type": 4 - }, - { - "Code": "(", - "Level": 2, - "Pos": 552, - "type": 19 - }, - { - "Code": "fbCalcWinkelvVector", - "Level": 3, - "Pos": 553, - "type": 3 - }, - { - "Code": ")", - "Level": 2, - "Pos": 572, - "type": 19 - }, - { - "Code": ";", - "Level": 2, - "Pos": 573, - "type": 7 - }, - { - "Code": "else", - "Level": 2, - "Pos": 574, - "type": 4 - }, - { - "Code": "fbCalcWinkelvVector", - "Level": 2, - "Pos": 580, - "type": 3 - }, - { - "Code": ":=", - "Level": 2, - "Pos": 604, - "type": 7 - }, - { - "Code": "0.0", - "Level": 2, - "Pos": 607, - "type": 18 - }, - { - "Code": ";", - "Level": 2, - "Pos": 610, - "type": 7 - }, - { - "Code": "Len", - "Level": 2, - "Pos": 611, - "type": 4 - }, - { - "Code": ":=", - "Level": 2, - "Pos": 619, - "type": 7 - }, - { - "Code": "0.0", - "Level": 2, - "Pos": 622, - "type": 18 - }, - { - "Code": ";", - "Level": 2, - "Pos": 626, - "type": 7 - }, - { - "Code": "end_if", - "Level": 1, - "Pos": 627, - "type": 17 - }, - { - "Code": ";", - "Level": 1, - "Pos": 635, - "type": 7 - }, - { - "Code": "END_FUNCTION", - "Level": 0, - "Pos": 636, - "type": 17 - } -] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test03/Tokens03.json b/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test03/Tokens03.json deleted file mode 100644 index 0330c702d..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test03/Tokens03.json +++ /dev/null @@ -1,1304 +0,0 @@ -[ - { - "Code": "FUNCTION", - "Level": 0, - "Pos": 0, - "type": 17 - }, - { - "Code": "fbCalcWinkelvVector", - "Level": 1, - "Pos": 8, - "type": 3 - }, - { - "Code": ":", - "Level": 1, - "Pos": 28, - "type": 7 - }, - { - "Code": "LREAL", - "Level": 1, - "Pos": 30, - "type": 4 - }, - { - "Code": ";", - "Level": 1, - "Pos": 36, - "type": 7 - }, - { - "Code": "VAR_INPUT", - "Level": 1, - "Pos": 37, - "type": 17 - }, - { - "Code": "Vec", - "Level": 2, - "Pos": 48, - "type": 3 - }, - { - "Code": ":", - "Level": 2, - "Pos": 57, - "type": 7 - }, - { - "Code": "udtVector", - "Level": 2, - "Pos": 59, - "type": 3 - }, - { - "Code": ";", - "Level": 2, - "Pos": 69, - "type": 7 - }, - { - "Code": "END_VAR", - "Level": 1, - "Pos": 70, - "type": 17 - }, - { - "Code": "VAR_OUTPUT", - "Level": 1, - "Pos": 79, - "type": 17 - }, - { - "Code": "Len", - "Level": 2, - "Pos": 91, - "type": 4 - }, - { - "Code": ":", - "Level": 2, - "Pos": 100, - "type": 7 - }, - { - "Code": "LREAL", - "Level": 2, - "Pos": 102, - "type": 4 - }, - { - "Code": ";", - "Level": 2, - "Pos": 108, - "type": 7 - }, - { - "Code": "END_VAR", - "Level": 1, - "Pos": 109, - "type": 17 - }, - { - "Code": "VAR", - "Level": 1, - "Pos": 118, - "type": 17 - }, - { - "Code": "ZwErg", - "Level": 2, - "Pos": 123, - "type": 3 - }, - { - "Code": ":", - "Level": 2, - "Pos": 134, - "type": 7 - }, - { - "Code": "LREAL", - "Level": 2, - "Pos": 136, - "type": 4 - }, - { - "Code": ";", - "Level": 2, - "Pos": 142, - "type": 7 - }, - { - "Code": "END_VAR", - "Level": 1, - "Pos": 143, - "type": 17 - }, - { - "Code": "BEGIN", - "Level": 1, - "Pos": 152, - "type": 4 - }, - { - "Code": "IF", - "Level": 1, - "Pos": 159, - "type": 17 - }, - { - "Code": "ABS", - "Level": 2, - "Pos": 163, - "type": 4 - }, - { - "Code": "(", - "Level": 2, - "Pos": 167, - "type": 19 - }, - { - "Code": "Vec", - "Level": 3, - "Pos": 168, - "type": 3 - }, - { - "Code": ".", - "Level": 3, - "Pos": 171, - "type": 7 - }, - { - "Code": "v", - "Level": 3, - "Pos": 172, - "type": 3 - }, - { - "Code": ".", - "Level": 3, - "Pos": 173, - "type": 7 - }, - { - "Code": "x", - "Level": 3, - "Pos": 174, - "type": 3 - }, - { - "Code": ")", - "Level": 2, - "Pos": 175, - "type": 19 - }, - { - "Code": ">", - "Level": 2, - "Pos": 176, - "type": 7 - }, - { - "Code": "ABS", - "Level": 2, - "Pos": 178, - "type": 4 - }, - { - "Code": "(", - "Level": 2, - "Pos": 182, - "type": 19 - }, - { - "Code": "Vec", - "Level": 3, - "Pos": 183, - "type": 3 - }, - { - "Code": ".", - "Level": 3, - "Pos": 186, - "type": 7 - }, - { - "Code": "v", - "Level": 3, - "Pos": 187, - "type": 3 - }, - { - "Code": ".", - "Level": 3, - "Pos": 188, - "type": 7 - }, - { - "Code": "y", - "Level": 3, - "Pos": 189, - "type": 3 - }, - { - "Code": ")", - "Level": 2, - "Pos": 190, - "type": 19 - }, - { - "Code": "THEN", - "Level": 2, - "Pos": 191, - "type": 4 - }, - { - "Code": "ZwErg", - "Level": 2, - "Pos": 196, - "type": 3 - }, - { - "Code": ":=", - "Level": 2, - "Pos": 206, - "type": 7 - }, - { - "Code": "SEL", - "Level": 2, - "Pos": 209, - "type": 4 - }, - { - "Code": "(", - "Level": 2, - "Pos": 212, - "type": 19 - }, - { - "Code": "Vec", - "Level": 3, - "Pos": 213, - "type": 3 - }, - { - "Code": ".", - "Level": 3, - "Pos": 216, - "type": 7 - }, - { - "Code": "v", - "Level": 3, - "Pos": 217, - "type": 3 - }, - { - "Code": ".", - "Level": 3, - "Pos": 218, - "type": 7 - }, - { - "Code": "x", - "Level": 3, - "Pos": 219, - "type": 3 - }, - { - "Code": "<", - "Level": 3, - "Pos": 220, - "type": 7 - }, - { - "Code": "0.0", - "Level": 3, - "Pos": 221, - "type": 18 - }, - { - "Code": ",", - "Level": 3, - "Pos": 224, - "type": 7 - }, - { - "Code": "ATAN", - "Level": 3, - "Pos": 225, - "type": 4 - }, - { - "Code": "(", - "Level": 3, - "Pos": 229, - "type": 19 - }, - { - "Code": "Vec", - "Level": 4, - "Pos": 230, - "type": 3 - }, - { - "Code": ".", - "Level": 4, - "Pos": 233, - "type": 7 - }, - { - "Code": "v", - "Level": 4, - "Pos": 234, - "type": 3 - }, - { - "Code": ".", - "Level": 4, - "Pos": 235, - "type": 7 - }, - { - "Code": "y", - "Level": 4, - "Pos": 236, - "type": 3 - }, - { - "Code": "\/", - "Level": 4, - "Pos": 237, - "type": 7 - }, - { - "Code": "vec", - "Level": 4, - "Pos": 238, - "type": 3 - }, - { - "Code": ".", - "Level": 4, - "Pos": 241, - "type": 7 - }, - { - "Code": "v", - "Level": 4, - "Pos": 242, - "type": 3 - }, - { - "Code": ".", - "Level": 4, - "Pos": 243, - "type": 7 - }, - { - "Code": "x", - "Level": 4, - "Pos": 244, - "type": 3 - }, - { - "Code": ")", - "Level": 3, - "Pos": 245, - "type": 19 - }, - { - "Code": ",", - "Level": 3, - "Pos": 246, - "type": 7 - }, - { - "Code": "ATAN", - "Level": 3, - "Pos": 247, - "type": 4 - }, - { - "Code": "(", - "Level": 3, - "Pos": 251, - "type": 19 - }, - { - "Code": "Vec", - "Level": 4, - "Pos": 252, - "type": 3 - }, - { - "Code": ".", - "Level": 4, - "Pos": 255, - "type": 7 - }, - { - "Code": "v", - "Level": 4, - "Pos": 256, - "type": 3 - }, - { - "Code": ".", - "Level": 4, - "Pos": 257, - "type": 7 - }, - { - "Code": "y", - "Level": 4, - "Pos": 258, - "type": 3 - }, - { - "Code": "\/", - "Level": 4, - "Pos": 259, - "type": 7 - }, - { - "Code": "vec", - "Level": 4, - "Pos": 260, - "type": 3 - }, - { - "Code": ".", - "Level": 4, - "Pos": 263, - "type": 7 - }, - { - "Code": "v", - "Level": 4, - "Pos": 264, - "type": 3 - }, - { - "Code": ".", - "Level": 4, - "Pos": 265, - "type": 7 - }, - { - "Code": "x", - "Level": 4, - "Pos": 266, - "type": 3 - }, - { - "Code": ")", - "Level": 3, - "Pos": 267, - "type": 19 - }, - { - "Code": "+", - "Level": 3, - "Pos": 268, - "type": 7 - }, - { - "Code": "pi", - "Level": 3, - "Pos": 269, - "type": 3 - }, - { - "Code": ")", - "Level": 2, - "Pos": 271, - "type": 19 - }, - { - "Code": ";", - "Level": 2, - "Pos": 272, - "type": 7 - }, - { - "Code": "len", - "Level": 2, - "Pos": 273, - "type": 4 - }, - { - "Code": ":=", - "Level": 2, - "Pos": 281, - "type": 7 - }, - { - "Code": "Vec", - "Level": 2, - "Pos": 283, - "type": 3 - }, - { - "Code": ".", - "Level": 2, - "Pos": 286, - "type": 7 - }, - { - "Code": "v", - "Level": 2, - "Pos": 287, - "type": 3 - }, - { - "Code": ".", - "Level": 2, - "Pos": 288, - "type": 7 - }, - { - "Code": "x", - "Level": 2, - "Pos": 289, - "type": 3 - }, - { - "Code": "\/", - "Level": 2, - "Pos": 290, - "type": 7 - }, - { - "Code": "COS", - "Level": 2, - "Pos": 291, - "type": 4 - }, - { - "Code": "(", - "Level": 2, - "Pos": 294, - "type": 19 - }, - { - "Code": "ZwErg", - "Level": 3, - "Pos": 295, - "type": 3 - }, - { - "Code": ")", - "Level": 2, - "Pos": 300, - "type": 19 - }, - { - "Code": ";", - "Level": 2, - "Pos": 301, - "type": 7 - }, - { - "Code": "fbCalcWinkelvVector", - "Level": 2, - "Pos": 302, - "type": 3 - }, - { - "Code": ":=", - "Level": 2, - "Pos": 326, - "type": 7 - }, - { - "Code": "ZwErg", - "Level": 2, - "Pos": 329, - "type": 3 - }, - { - "Code": "+", - "Level": 2, - "Pos": 335, - "type": 7 - }, - { - "Code": "pi", - "Level": 2, - "Pos": 336, - "type": 3 - }, - { - "Code": "*", - "Level": 2, - "Pos": 338, - "type": 7 - }, - { - "Code": "2.0", - "Level": 2, - "Pos": 339, - "type": 18 - }, - { - "Code": "-", - "Level": 2, - "Pos": 342, - "type": 7 - }, - { - "Code": "DINT_TO_REAL", - "Level": 2, - "Pos": 343, - "type": 4 - }, - { - "Code": "(", - "Level": 2, - "Pos": 355, - "type": 19 - }, - { - "Code": "TRUNC", - "Level": 3, - "Pos": 356, - "type": 4 - }, - { - "Code": "(", - "Level": 3, - "Pos": 361, - "type": 19 - }, - { - "Code": "Zwerg", - "Level": 4, - "Pos": 362, - "type": 3 - }, - { - "Code": "\/", - "Level": 4, - "Pos": 367, - "type": 7 - }, - { - "Code": "pi", - "Level": 4, - "Pos": 368, - "type": 3 - }, - { - "Code": "*", - "Level": 4, - "Pos": 370, - "type": 7 - }, - { - "Code": "0.5", - "Level": 4, - "Pos": 371, - "type": 18 - }, - { - "Code": "+", - "Level": 4, - "Pos": 374, - "type": 7 - }, - { - "Code": "1.5", - "Level": 4, - "Pos": 375, - "type": 18 - }, - { - "Code": ")", - "Level": 3, - "Pos": 378, - "type": 19 - }, - { - "Code": ")", - "Level": 2, - "Pos": 379, - "type": 19 - }, - { - "Code": "*", - "Level": 2, - "Pos": 380, - "type": 7 - }, - { - "Code": "pi", - "Level": 2, - "Pos": 381, - "type": 3 - }, - { - "Code": "*", - "Level": 2, - "Pos": 383, - "type": 7 - }, - { - "Code": "2.0", - "Level": 2, - "Pos": 384, - "type": 18 - }, - { - "Code": ";", - "Level": 2, - "Pos": 387, - "type": 7 - }, - { - "Code": "ELSIF", - "Level": 2, - "Pos": 388, - "type": 4 - }, - { - "Code": "ABS", - "Level": 2, - "Pos": 395, - "type": 4 - }, - { - "Code": "(", - "Level": 2, - "Pos": 399, - "type": 19 - }, - { - "Code": "Vec", - "Level": 3, - "Pos": 400, - "type": 3 - }, - { - "Code": ".", - "Level": 3, - "Pos": 403, - "type": 7 - }, - { - "Code": "v", - "Level": 3, - "Pos": 404, - "type": 3 - }, - { - "Code": ".", - "Level": 3, - "Pos": 405, - "type": 7 - }, - { - "Code": "y", - "Level": 3, - "Pos": 406, - "type": 3 - }, - { - "Code": ")", - "Level": 2, - "Pos": 407, - "type": 19 - }, - { - "Code": ">", - "Level": 2, - "Pos": 408, - "type": 7 - }, - { - "Code": "epsilon", - "Level": 2, - "Pos": 410, - "type": 3 - }, - { - "Code": "THEN", - "Level": 2, - "Pos": 418, - "type": 4 - }, - { - "Code": "fbCalcWinkelvVector", - "Level": 2, - "Pos": 423, - "type": 3 - }, - { - "Code": ":=", - "Level": 2, - "Pos": 448, - "type": 7 - }, - { - "Code": "SEL", - "Level": 2, - "Pos": 451, - "type": 4 - }, - { - "Code": "(", - "Level": 2, - "Pos": 455, - "type": 19 - }, - { - "Code": "Vec", - "Level": 3, - "Pos": 456, - "type": 3 - }, - { - "Code": ".", - "Level": 3, - "Pos": 459, - "type": 7 - }, - { - "Code": "v", - "Level": 3, - "Pos": 460, - "type": 3 - }, - { - "Code": ".", - "Level": 3, - "Pos": 461, - "type": 7 - }, - { - "Code": "y", - "Level": 3, - "Pos": 462, - "type": 3 - }, - { - "Code": "<", - "Level": 3, - "Pos": 463, - "type": 7 - }, - { - "Code": "0.0", - "Level": 3, - "Pos": 465, - "type": 18 - }, - { - "Code": ",", - "Level": 3, - "Pos": 469, - "type": 7 - }, - { - "Code": "ATAN", - "Level": 3, - "Pos": 470, - "type": 4 - }, - { - "Code": "(", - "Level": 3, - "Pos": 474, - "type": 19 - }, - { - "Code": "-", - "Level": 4, - "Pos": 475, - "type": 7 - }, - { - "Code": "Vec", - "Level": 4, - "Pos": 476, - "type": 3 - }, - { - "Code": ".", - "Level": 4, - "Pos": 479, - "type": 7 - }, - { - "Code": "v", - "Level": 4, - "Pos": 480, - "type": 3 - }, - { - "Code": ".", - "Level": 4, - "Pos": 481, - "type": 7 - }, - { - "Code": "x", - "Level": 4, - "Pos": 482, - "type": 3 - }, - { - "Code": "\/", - "Level": 4, - "Pos": 483, - "type": 7 - }, - { - "Code": "vec", - "Level": 4, - "Pos": 484, - "type": 3 - }, - { - "Code": ".", - "Level": 4, - "Pos": 487, - "type": 7 - }, - { - "Code": "v", - "Level": 4, - "Pos": 488, - "type": 3 - }, - { - "Code": ".", - "Level": 4, - "Pos": 489, - "type": 7 - }, - { - "Code": "y", - "Level": 4, - "Pos": 490, - "type": 3 - }, - { - "Code": ")", - "Level": 3, - "Pos": 491, - "type": 19 - }, - { - "Code": "+", - "Level": 3, - "Pos": 492, - "type": 7 - }, - { - "Code": "0.5", - "Level": 3, - "Pos": 493, - "type": 18 - }, - { - "Code": "*", - "Level": 3, - "Pos": 496, - "type": 7 - }, - { - "Code": "pi", - "Level": 3, - "Pos": 497, - "type": 3 - }, - { - "Code": ",", - "Level": 3, - "Pos": 499, - "type": 7 - }, - { - "Code": "ATAN", - "Level": 3, - "Pos": 500, - "type": 4 - }, - { - "Code": "(", - "Level": 3, - "Pos": 504, - "type": 19 - }, - { - "Code": "-", - "Level": 4, - "Pos": 505, - "type": 7 - }, - { - "Code": "Vec", - "Level": 4, - "Pos": 506, - "type": 3 - }, - { - "Code": ".", - "Level": 4, - "Pos": 509, - "type": 7 - }, - { - "Code": "v", - "Level": 4, - "Pos": 510, - "type": 3 - }, - { - "Code": ".", - "Level": 4, - "Pos": 511, - "type": 7 - }, - { - "Code": "x", - "Level": 4, - "Pos": 512, - "type": 3 - }, - { - "Code": "\/", - "Level": 4, - "Pos": 513, - "type": 7 - }, - { - "Code": "vec", - "Level": 4, - "Pos": 514, - "type": 3 - }, - { - "Code": ".", - "Level": 4, - "Pos": 517, - "type": 7 - }, - { - "Code": "v", - "Level": 4, - "Pos": 518, - "type": 3 - }, - { - "Code": ".", - "Level": 4, - "Pos": 519, - "type": 7 - }, - { - "Code": "y", - "Level": 4, - "Pos": 520, - "type": 3 - }, - { - "Code": ")", - "Level": 3, - "Pos": 521, - "type": 19 - }, - { - "Code": "-", - "Level": 3, - "Pos": 522, - "type": 7 - }, - { - "Code": "0.5", - "Level": 3, - "Pos": 523, - "type": 18 - }, - { - "Code": "*", - "Level": 3, - "Pos": 526, - "type": 7 - }, - { - "Code": "pi", - "Level": 3, - "Pos": 527, - "type": 3 - }, - { - "Code": ")", - "Level": 2, - "Pos": 529, - "type": 19 - }, - { - "Code": ";", - "Level": 2, - "Pos": 530, - "type": 7 - }, - { - "Code": "len", - "Level": 2, - "Pos": 531, - "type": 4 - }, - { - "Code": ":=", - "Level": 2, - "Pos": 539, - "type": 7 - }, - { - "Code": "Vec", - "Level": 2, - "Pos": 541, - "type": 3 - }, - { - "Code": ".", - "Level": 2, - "Pos": 544, - "type": 7 - }, - { - "Code": "v", - "Level": 2, - "Pos": 545, - "type": 3 - }, - { - "Code": ".", - "Level": 2, - "Pos": 546, - "type": 7 - }, - { - "Code": "y", - "Level": 2, - "Pos": 547, - "type": 3 - }, - { - "Code": "\/", - "Level": 2, - "Pos": 548, - "type": 7 - }, - { - "Code": "SIN", - "Level": 2, - "Pos": 549, - "type": 4 - }, - { - "Code": "(", - "Level": 2, - "Pos": 552, - "type": 19 - }, - { - "Code": "fbCalcWinkelvVector", - "Level": 3, - "Pos": 553, - "type": 3 - }, - { - "Code": ")", - "Level": 2, - "Pos": 572, - "type": 19 - }, - { - "Code": ";", - "Level": 2, - "Pos": 573, - "type": 7 - }, - { - "Code": "else", - "Level": 2, - "Pos": 574, - "type": 4 - }, - { - "Code": "fbCalcWinkelvVector", - "Level": 2, - "Pos": 580, - "type": 3 - }, - { - "Code": ":=", - "Level": 2, - "Pos": 604, - "type": 7 - }, - { - "Code": "0.0", - "Level": 2, - "Pos": 607, - "type": 18 - }, - { - "Code": ";", - "Level": 2, - "Pos": 610, - "type": 7 - }, - { - "Code": "Len", - "Level": 2, - "Pos": 611, - "type": 4 - }, - { - "Code": ":=", - "Level": 2, - "Pos": 619, - "type": 7 - }, - { - "Code": "0.0", - "Level": 2, - "Pos": 622, - "type": 18 - }, - { - "Code": ";", - "Level": 2, - "Pos": 626, - "type": 7 - }, - { - "Code": "end_if", - "Level": 1, - "Pos": 627, - "type": 17 - }, - { - "Code": ";", - "Level": 1, - "Pos": 635, - "type": 7 - }, - { - "Code": "END_FUNCTION", - "Level": 0, - "Pos": 636, - "type": 17 - } -] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test04/Blocks04.txt b/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test04/Blocks04.txt deleted file mode 100644 index 465389e3f..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test04/Blocks04.txt +++ /dev/null @@ -1,16 +0,0 @@ -///Declaration MainBlock 0,0 - -///Operation Operation 1,5,0 -+ -///Number Number 2,1,0 -1.0 -///Operation Operation 2,5,1 -* -///Operation Operation 3,5,0 -* -///Number Number 4,7,0 -2.0 -///Number Number 4,7,1 -3.0 -///Number Number 3,7,1 -4.0 \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test04/Tokens04.json b/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test04/Tokens04.json deleted file mode 100644 index ea7d5ffb2..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test04/Tokens04.json +++ /dev/null @@ -1,45 +0,0 @@ -[ - { - "Code": "1.0", - "Level": 0, - "Pos": 1, - "type": 18 - }, - { - "Code": "+", - "Level": 0, - "Pos": 5, - "type": 7 - }, - { - "Code": "2.0", - "Level": 0, - "Pos": 7, - "type": 18 - }, - { - "Code": "*", - "Level": 0, - "Pos": 5, - "type": 7 - }, - { - "Code": "3.0", - "Level": 0, - "Pos": 7, - "type": 18 - }, - { - "Code": "*", - "Level": 0, - "Pos": 5, - "type": 7 - }, - { - "Code": "4.0", - "Level": 0, - "Pos": 7, - "type": 18 - } - -] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test05/Blocks05.txt b/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test05/Blocks05.txt deleted file mode 100644 index 00bff503f..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test05/Blocks05.txt +++ /dev/null @@ -1,16 +0,0 @@ -///Declaration MainBlock 0,0 - -///Operation Operation 1,5,0 -+ -///Operation Operation 2,5,0 -+ -///Number Number 3,1,0 -1.0 -///Operation Operation 3,5,1 -* -///Number Number 4,7,0 -2.0 -///Number Number 4,7,1 -3.0 -///Number Number 2,7,1 -4.0 \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test05/Tokens05.json b/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test05/Tokens05.json deleted file mode 100644 index 9a9190ade..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test05/Tokens05.json +++ /dev/null @@ -1,45 +0,0 @@ -[ - { - "Code": "1.0", - "Level": 0, - "Pos": 1, - "type": 18 - }, - { - "Code": "+", - "Level": 0, - "Pos": 5, - "type": 7 - }, - { - "Code": "2.0", - "Level": 0, - "Pos": 7, - "type": 18 - }, - { - "Code": "*", - "Level": 0, - "Pos": 5, - "type": 7 - }, - { - "Code": "3.0", - "Level": 0, - "Pos": 7, - "type": 18 - }, - { - "Code": "+", - "Level": 0, - "Pos": 5, - "type": 7 - }, - { - "Code": "4.0", - "Level": 0, - "Pos": 7, - "type": 18 - } - -] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test06/Tokens06.json b/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test06/Tokens06.json deleted file mode 100644 index 9a9190ade..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test06/Tokens06.json +++ /dev/null @@ -1,45 +0,0 @@ -[ - { - "Code": "1.0", - "Level": 0, - "Pos": 1, - "type": 18 - }, - { - "Code": "+", - "Level": 0, - "Pos": 5, - "type": 7 - }, - { - "Code": "2.0", - "Level": 0, - "Pos": 7, - "type": 18 - }, - { - "Code": "*", - "Level": 0, - "Pos": 5, - "type": 7 - }, - { - "Code": "3.0", - "Level": 0, - "Pos": 7, - "type": 18 - }, - { - "Code": "+", - "Level": 0, - "Pos": 5, - "type": 7 - }, - { - "Code": "4.0", - "Level": 0, - "Pos": 7, - "type": 18 - } - -] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test07/Tokens07.json b/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test07/Tokens07.json deleted file mode 100644 index 9a9190ade..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/IECCodeBuilder/Test07/Tokens07.json +++ /dev/null @@ -1,45 +0,0 @@ -[ - { - "Code": "1.0", - "Level": 0, - "Pos": 1, - "type": 18 - }, - { - "Code": "+", - "Level": 0, - "Pos": 5, - "type": 7 - }, - { - "Code": "2.0", - "Level": 0, - "Pos": 7, - "type": 18 - }, - { - "Code": "*", - "Level": 0, - "Pos": 5, - "type": 7 - }, - { - "Code": "3.0", - "Level": 0, - "Pos": 7, - "type": 18 - }, - { - "Code": "+", - "Level": 0, - "Pos": 5, - "type": 7 - }, - { - "Code": "4.0", - "Level": 0, - "Pos": 7, - "type": 18 - } - -] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/IEC_00/IECTestDataList0.json b/Transpiler_pp/TranspilerLibTests/Resources/IEC_00/IECTestDataList0.json deleted file mode 100644 index acfed1c8a..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/IEC_00/IECTestDataList0.json +++ /dev/null @@ -1 +0,0 @@ -[{"Code":"TYPE","Level":0,"Pos":0,"type":17},{"Code":"udtVector","Level":1,"Pos":4,"type":3},{"Code":":","Level":1,"Pos":14,"type":7},{"Code":"UNION","Level":1,"Pos":16,"type":17},{"Code":"v","Level":2,"Pos":25,"type":3},{"Code":":","Level":2,"Pos":32,"type":7},{"Code":"udtVectorData","Level":2,"Pos":34,"type":3},{"Code":";","Level":2,"Pos":48,"type":7},{"Code":"Koordinate","Level":2,"Pos":49,"type":3},{"Code":":","Level":2,"Pos":65,"type":7},{"Code":"ARRAY","Level":2,"Pos":67,"type":4},{"Code":"[","Level":2,"Pos":73,"type":19},{"Code":"0","Level":3,"Pos":74,"type":18},{"Code":"..","Level":3,"Pos":75,"type":7},{"Code":"1","Level":3,"Pos":77,"type":18},{"Code":"]","Level":2,"Pos":78,"type":19},{"Code":"OF","Level":2,"Pos":79,"type":4},{"Code":"LREAL","Level":2,"Pos":82,"type":4},{"Code":";","Level":2,"Pos":88,"type":7},{"Code":"END_UNION","Level":1,"Pos":89,"type":17},{"Code":"END_TYPE","Level":0,"Pos":102,"type":17}] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/IEC_01/ExpLog01.txt b/Transpiler_pp/TranspilerLibTests/Resources/IEC_01/ExpLog01.txt deleted file mode 100644 index 52a3f682d..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/IEC_01/ExpLog01.txt +++ /dev/null @@ -1,23 +0,0 @@ -T:FLComment,0,0,// Dies ist ein Kommentar zum Typ ST_01 -T:Block,40,0,TYPE -T:Variable,45,1,ST_01 -T:Operation,51,1,: -T:Block,53,1,STRUCT -T:FLComment,67,2,// Dies ist ein Kommentar zum Element a -T:Variable,107,2,a -T:Operation,111,2,: -T:Function,112,2,INT -T:Operation,116,2,:= -T:Number,119,2,INT#1 -T:Operation,125,2,; -T:LComment,127,2,// Dies ist ein 2. Kommentar zum Element a -T:FLComment,173,2,// Dies ist ein Kommentar zum Element b -T:Variable,213,2,b -T:Operation,217,2,: -T:Function,218,2,LREAL -T:Operation,224,2,:= -T:Number,227,2,LREAL#2.7e-2 -T:Operation,240,2,; -T:LComment,242,2,// Dies ist ein 2. Kommentar zum Element b -T:Block,285,1,END_STRUCT -T:Block,297,0,END_TYPE diff --git a/Transpiler_pp/TranspilerLibTests/Resources/IEC_01/IECTestDataList1.json b/Transpiler_pp/TranspilerLibTests/Resources/IEC_01/IECTestDataList1.json deleted file mode 100644 index 8d275294c..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/IEC_01/IECTestDataList1.json +++ /dev/null @@ -1 +0,0 @@ -[{"Code":"\/\/ Dies ist ein Kommentar zum Typ ST_01","Level":0,"Pos":0,"type":13},{"Code":"TYPE","Level":0,"Pos":40,"type":17},{"Code":"ST_01","Level":1,"Pos":45,"type":3},{"Code":":","Level":1,"Pos":51,"type":7},{"Code":"STRUCT","Level":1,"Pos":53,"type":17},{"Code":"\/\/ Dies ist ein Kommentar zum Element a","Level":2,"Pos":67,"type":13},{"Code":"a","Level":2,"Pos":107,"type":3},{"Code":":","Level":2,"Pos":111,"type":7},{"Code":"INT","Level":2,"Pos":112,"type":4},{"Code":":=","Level":2,"Pos":116,"type":7},{"Code":"INT#1","Level":2,"Pos":119,"type":18},{"Code":";","Level":2,"Pos":125,"type":7},{"Code":"\/\/ Dies ist ein 2. Kommentar zum Element a","Level":2,"Pos":127,"type":12},{"Code":"\/\/ Dies ist ein Kommentar zum Element b","Level":2,"Pos":173,"type":13},{"Code":"b","Level":2,"Pos":213,"type":3},{"Code":":","Level":2,"Pos":217,"type":7},{"Code":"LREAL","Level":2,"Pos":218,"type":4},{"Code":":=","Level":2,"Pos":224,"type":7},{"Code":"LREAL#2.7e-2","Level":2,"Pos":227,"type":18},{"Code":";","Level":2,"Pos":240,"type":7},{"Code":"\/\/ Dies ist ein 2. Kommentar zum Element b","Level":2,"Pos":242,"type":12},{"Code":"END_STRUCT","Level":1,"Pos":285,"type":17},{"Code":"END_TYPE","Level":0,"Pos":297,"type":17}] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/IEC_01/TestCode01.ext b/Transpiler_pp/TranspilerLibTests/Resources/IEC_01/TestCode01.ext deleted file mode 100644 index a0aebee5e..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/IEC_01/TestCode01.ext +++ /dev/null @@ -1,10 +0,0 @@ -// Dies ist ein Kommentar zum Typ ST_01 -TYPE ST_01 : - STRUCT - // Dies ist ein Kommentar zum Element a - a: INT := INT#1; // Dies ist ein 2. Kommentar zum Element a - // Dies ist ein Kommentar zum Element b - b: LREAL := LREAL#2.7e-2; // Dies ist ein 2. Kommentar zum Element b - END_STRUCT -END_TYPE - \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/IEC_01/TestExpCode01.txt b/Transpiler_pp/TranspilerLibTests/Resources/IEC_01/TestExpCode01.txt deleted file mode 100644 index a0aebee5e..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/IEC_01/TestExpCode01.txt +++ /dev/null @@ -1,10 +0,0 @@ -// Dies ist ein Kommentar zum Typ ST_01 -TYPE ST_01 : - STRUCT - // Dies ist ein Kommentar zum Element a - a: INT := INT#1; // Dies ist ein 2. Kommentar zum Element a - // Dies ist ein Kommentar zum Element b - b: LREAL := LREAL#2.7e-2; // Dies ist ein 2. Kommentar zum Element b - END_STRUCT -END_TYPE - \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/IEC_01/TestExpParse01.txt b/Transpiler_pp/TranspilerLibTests/Resources/IEC_01/TestExpParse01.txt deleted file mode 100644 index 3c0d4b2a6..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/IEC_01/TestExpParse01.txt +++ /dev/null @@ -1,48 +0,0 @@ -///Declaration MainBlock 0,0 - -///FLComment FLComment 1,0 -// Dies ist ein Kommentar zum Typ ST_01 -///Block Block 1,1 -TYPE -///Variable Variable 2,0 -ST_01 -///Operation Operation 2,1 -: -///Block Block 2,2 -STRUCT -///FLComment FLComment 3,0 -// Dies ist ein Kommentar zum Element a -///Variable Variable 3,1 -a -///Operation Operation 3,2 -: -///Function Function 3,3 -INT -///Operation Operation 3,4 -:= -///Number Number 3,5 -INT#1 -///Operation Operation 3,6 -; -///LComment LComment 3,7 -// Dies ist ein 2. Kommentar zum Element a -///FLComment FLComment 3,8 -// Dies ist ein Kommentar zum Element b -///Variable Variable 3,9 -b -///Operation Operation 3,10 -: -///Function Function 3,11 -LREAL -///Operation Operation 3,12 -:= -///Number Number 3,13 -LREAL#2.7e-2 -///Operation Operation 3,14 -; -///LComment LComment 3,15 -// Dies ist ein 2. Kommentar zum Element b -///Block Block 2,3 -END_STRUCT -///Block Block 1,2 -END_TYPE \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/IEC_02/ExpLog02.txt b/Transpiler_pp/TranspilerLibTests/Resources/IEC_02/ExpLog02.txt deleted file mode 100644 index 5022d145e..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/IEC_02/ExpLog02.txt +++ /dev/null @@ -1,217 +0,0 @@ -T:Block,0,0,FUNCTION -T:Variable,8,1,fbCalcWinkelvVector -T:Operation,28,1,: -T:Function,30,1,LREAL -T:Operation,36,1,; -T:Block,37,1,VAR_INPUT -T:Variable,48,2,Vec -T:Operation,57,2,: -T:Variable,59,2,udtVector -T:Operation,69,2,; -T:Block,70,1,END_VAR -T:Block,79,1,VAR_OUTPUT -T:Function,91,2,Len -T:Operation,100,2,: -T:Function,102,2,LREAL -T:Operation,108,2,; -T:Block,109,1,END_VAR -T:Block,118,1,VAR -T:Variable,123,2,ZwErg -T:Operation,134,2,: -T:Function,136,2,LREAL -T:Operation,142,2,; -T:Block,143,1,END_VAR -T:Function,152,1,BEGIN -T:Block,159,1,IF -T:Function,163,2,ABS -T:Bracket,167,2,( -T:Variable,168,3,Vec -T:Operation,171,3,. -T:Variable,172,3,v -T:Operation,173,3,. -T:Variable,174,3,x -T:Bracket,175,2,) -T:Operation,176,2,> -T:Function,178,2,ABS -T:Bracket,182,2,( -T:Variable,183,3,Vec -T:Operation,186,3,. -T:Variable,187,3,v -T:Operation,188,3,. -T:Variable,189,3,y -T:Bracket,190,2,) -T:Function,191,2,THEN -T:Variable,196,2,ZwErg -T:Operation,206,2,:= -T:Function,209,2,SEL -T:Bracket,212,2,( -T:Variable,213,3,Vec -T:Operation,216,3,. -T:Variable,217,3,v -T:Operation,218,3,. -T:Variable,219,3,x -T:Operation,220,3,< -T:Number,221,3,0.0 -T:Operation,224,3,, -T:Function,225,3,ATAN -T:Bracket,229,3,( -T:Variable,230,4,Vec -T:Operation,233,4,. -T:Variable,234,4,v -T:Operation,235,4,. -T:Variable,236,4,y -T:Operation,237,4,/ -T:Variable,238,4,vec -T:Operation,241,4,. -T:Variable,242,4,v -T:Operation,243,4,. -T:Variable,244,4,x -T:Bracket,245,3,) -T:Operation,246,3,, -T:Function,247,3,ATAN -T:Bracket,251,3,( -T:Variable,252,4,Vec -T:Operation,255,4,. -T:Variable,256,4,v -T:Operation,257,4,. -T:Variable,258,4,y -T:Operation,259,4,/ -T:Variable,260,4,vec -T:Operation,263,4,. -T:Variable,264,4,v -T:Operation,265,4,. -T:Variable,266,4,x -T:Bracket,267,3,) -T:Operation,268,3,+ -T:Variable,269,3,pi -T:Bracket,271,2,) -T:Operation,272,2,; -T:Function,273,2,len -T:Operation,281,2,:= -T:Variable,283,2,Vec -T:Operation,286,2,. -T:Variable,287,2,v -T:Operation,288,2,. -T:Variable,289,2,x -T:Operation,290,2,/ -T:Function,291,2,COS -T:Bracket,294,2,( -T:Variable,295,3,ZwErg -T:Bracket,300,2,) -T:Operation,301,2,; -T:Variable,302,2,fbCalcWinkelvVector -T:Operation,326,2,:= -T:Variable,329,2,ZwErg -T:Operation,335,2,+ -T:Variable,336,2,pi -T:Operation,338,2,* -T:Number,339,2,2.0 -T:Operation,342,2,- -T:Function,343,2,DINT_TO_REAL -T:Bracket,355,2,( -T:Function,356,3,TRUNC -T:Bracket,361,3,( -T:Variable,362,4,Zwerg -T:Operation,367,4,/ -T:Variable,368,4,pi -T:Operation,370,4,* -T:Number,371,4,0.5 -T:Operation,374,4,+ -T:Number,375,4,1.5 -T:Bracket,378,3,) -T:Bracket,379,2,) -T:Operation,380,2,* -T:Variable,381,2,pi -T:Operation,383,2,* -T:Number,384,2,2.0 -T:Operation,387,2,; -T:Function,388,2,ELSIF -T:Function,395,2,ABS -T:Bracket,399,2,( -T:Variable,400,3,Vec -T:Operation,403,3,. -T:Variable,404,3,v -T:Operation,405,3,. -T:Variable,406,3,y -T:Bracket,407,2,) -T:Operation,408,2,> -T:Variable,410,2,epsilon -T:Function,418,2,THEN -T:Variable,423,2,fbCalcWinkelvVector -T:Operation,448,2,:= -T:Function,451,2,SEL -T:Bracket,455,2,( -T:Variable,456,3,Vec -T:Operation,459,3,. -T:Variable,460,3,v -T:Operation,461,3,. -T:Variable,462,3,y -T:Operation,463,3,< -T:Number,465,3,0.0 -T:Operation,469,3,, -T:Function,470,3,ATAN -T:Bracket,474,3,( -T:Operation,475,4,- -T:Variable,476,4,Vec -T:Operation,479,4,. -T:Variable,480,4,v -T:Operation,481,4,. -T:Variable,482,4,x -T:Operation,483,4,/ -T:Variable,484,4,vec -T:Operation,487,4,. -T:Variable,488,4,v -T:Operation,489,4,. -T:Variable,490,4,y -T:Bracket,491,3,) -T:Operation,492,3,+ -T:Number,493,3,0.5 -T:Operation,496,3,* -T:Variable,497,3,pi -T:Operation,499,3,, -T:Function,500,3,ATAN -T:Bracket,504,3,( -T:Operation,505,4,- -T:Variable,506,4,Vec -T:Operation,509,4,. -T:Variable,510,4,v -T:Operation,511,4,. -T:Variable,512,4,x -T:Operation,513,4,/ -T:Variable,514,4,vec -T:Operation,517,4,. -T:Variable,518,4,v -T:Operation,519,4,. -T:Variable,520,4,y -T:Bracket,521,3,) -T:Operation,522,3,- -T:Number,523,3,0.5 -T:Operation,526,3,* -T:Variable,527,3,pi -T:Bracket,529,2,) -T:Operation,530,2,; -T:Function,531,2,len -T:Operation,539,2,:= -T:Variable,541,2,Vec -T:Operation,544,2,. -T:Variable,545,2,v -T:Operation,546,2,. -T:Variable,547,2,y -T:Operation,548,2,/ -T:Function,549,2,SIN -T:Bracket,552,2,( -T:Variable,553,3,fbCalcWinkelvVector -T:Bracket,572,2,) -T:Operation,573,2,; -T:Function,574,2,else -T:Variable,580,2,fbCalcWinkelvVector -T:Operation,604,2,:= -T:Number,607,2,0.0 -T:Operation,610,2,; -T:Function,611,2,Len -T:Operation,619,2,:= -T:Number,622,2,0.0 -T:Operation,626,2,; -T:Block,627,1,end_if -T:Operation,635,1,; -T:Block,636,0,END_FUNCTION diff --git a/Transpiler_pp/TranspilerLibTests/Resources/IEC_02/IECTestDataList2.json b/Transpiler_pp/TranspilerLibTests/Resources/IEC_02/IECTestDataList2.json deleted file mode 100644 index 3df7e691f..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/IEC_02/IECTestDataList2.json +++ /dev/null @@ -1 +0,0 @@ -[{"Code":"FUNCTION","Level":0,"Pos":0,"type":17},{"Code":"fbCalcWinkelvVector","Level":1,"Pos":8,"type":3},{"Code":":","Level":1,"Pos":28,"type":7},{"Code":"LREAL","Level":1,"Pos":30,"type":4},{"Code":";","Level":1,"Pos":36,"type":7},{"Code":"VAR_INPUT","Level":1,"Pos":37,"type":17},{"Code":"Vec","Level":2,"Pos":48,"type":3},{"Code":":","Level":2,"Pos":57,"type":7},{"Code":"udtVector","Level":2,"Pos":59,"type":3},{"Code":";","Level":2,"Pos":69,"type":7},{"Code":"END_VAR","Level":1,"Pos":70,"type":17},{"Code":"VAR_OUTPUT","Level":1,"Pos":79,"type":17},{"Code":"Len","Level":2,"Pos":91,"type":4},{"Code":":","Level":2,"Pos":100,"type":7},{"Code":"LREAL","Level":2,"Pos":102,"type":4},{"Code":";","Level":2,"Pos":108,"type":7},{"Code":"END_VAR","Level":1,"Pos":109,"type":17},{"Code":"VAR","Level":1,"Pos":118,"type":17},{"Code":"ZwErg","Level":2,"Pos":123,"type":3},{"Code":":","Level":2,"Pos":134,"type":7},{"Code":"LREAL","Level":2,"Pos":136,"type":4},{"Code":";","Level":2,"Pos":142,"type":7},{"Code":"END_VAR","Level":1,"Pos":143,"type":17},{"Code":"BEGIN","Level":1,"Pos":152,"type":4},{"Code":"IF","Level":1,"Pos":159,"type":17},{"Code":"ABS","Level":2,"Pos":163,"type":4},{"Code":"(","Level":2,"Pos":167,"type":19},{"Code":"Vec","Level":3,"Pos":168,"type":3},{"Code":".","Level":3,"Pos":171,"type":7},{"Code":"v","Level":3,"Pos":172,"type":3},{"Code":".","Level":3,"Pos":173,"type":7},{"Code":"x","Level":3,"Pos":174,"type":3},{"Code":")","Level":2,"Pos":175,"type":19},{"Code":">","Level":2,"Pos":176,"type":7},{"Code":"ABS","Level":2,"Pos":178,"type":4},{"Code":"(","Level":2,"Pos":182,"type":19},{"Code":"Vec","Level":3,"Pos":183,"type":3},{"Code":".","Level":3,"Pos":186,"type":7},{"Code":"v","Level":3,"Pos":187,"type":3},{"Code":".","Level":3,"Pos":188,"type":7},{"Code":"y","Level":3,"Pos":189,"type":3},{"Code":")","Level":2,"Pos":190,"type":19},{"Code":"THEN","Level":2,"Pos":191,"type":4},{"Code":"ZwErg","Level":2,"Pos":196,"type":3},{"Code":":=","Level":2,"Pos":206,"type":7},{"Code":"SEL","Level":2,"Pos":209,"type":4},{"Code":"(","Level":2,"Pos":212,"type":19},{"Code":"Vec","Level":3,"Pos":213,"type":3},{"Code":".","Level":3,"Pos":216,"type":7},{"Code":"v","Level":3,"Pos":217,"type":3},{"Code":".","Level":3,"Pos":218,"type":7},{"Code":"x","Level":3,"Pos":219,"type":3},{"Code":"<","Level":3,"Pos":220,"type":7},{"Code":"0.0","Level":3,"Pos":221,"type":18},{"Code":",","Level":3,"Pos":224,"type":7},{"Code":"ATAN","Level":3,"Pos":225,"type":4},{"Code":"(","Level":3,"Pos":229,"type":19},{"Code":"Vec","Level":4,"Pos":230,"type":3},{"Code":".","Level":4,"Pos":233,"type":7},{"Code":"v","Level":4,"Pos":234,"type":3},{"Code":".","Level":4,"Pos":235,"type":7},{"Code":"y","Level":4,"Pos":236,"type":3},{"Code":"\/","Level":4,"Pos":237,"type":7},{"Code":"vec","Level":4,"Pos":238,"type":3},{"Code":".","Level":4,"Pos":241,"type":7},{"Code":"v","Level":4,"Pos":242,"type":3},{"Code":".","Level":4,"Pos":243,"type":7},{"Code":"x","Level":4,"Pos":244,"type":3},{"Code":")","Level":3,"Pos":245,"type":19},{"Code":",","Level":3,"Pos":246,"type":7},{"Code":"ATAN","Level":3,"Pos":247,"type":4},{"Code":"(","Level":3,"Pos":251,"type":19},{"Code":"Vec","Level":4,"Pos":252,"type":3},{"Code":".","Level":4,"Pos":255,"type":7},{"Code":"v","Level":4,"Pos":256,"type":3},{"Code":".","Level":4,"Pos":257,"type":7},{"Code":"y","Level":4,"Pos":258,"type":3},{"Code":"\/","Level":4,"Pos":259,"type":7},{"Code":"vec","Level":4,"Pos":260,"type":3},{"Code":".","Level":4,"Pos":263,"type":7},{"Code":"v","Level":4,"Pos":264,"type":3},{"Code":".","Level":4,"Pos":265,"type":7},{"Code":"x","Level":4,"Pos":266,"type":3},{"Code":")","Level":3,"Pos":267,"type":19},{"Code":"+","Level":3,"Pos":268,"type":7},{"Code":"pi","Level":3,"Pos":269,"type":3},{"Code":")","Level":2,"Pos":271,"type":19},{"Code":";","Level":2,"Pos":272,"type":7},{"Code":"len","Level":2,"Pos":273,"type":4},{"Code":":=","Level":2,"Pos":281,"type":7},{"Code":"Vec","Level":2,"Pos":283,"type":3},{"Code":".","Level":2,"Pos":286,"type":7},{"Code":"v","Level":2,"Pos":287,"type":3},{"Code":".","Level":2,"Pos":288,"type":7},{"Code":"x","Level":2,"Pos":289,"type":3},{"Code":"\/","Level":2,"Pos":290,"type":7},{"Code":"COS","Level":2,"Pos":291,"type":4},{"Code":"(","Level":2,"Pos":294,"type":19},{"Code":"ZwErg","Level":3,"Pos":295,"type":3},{"Code":")","Level":2,"Pos":300,"type":19},{"Code":";","Level":2,"Pos":301,"type":7},{"Code":"fbCalcWinkelvVector","Level":2,"Pos":302,"type":3},{"Code":":=","Level":2,"Pos":326,"type":7},{"Code":"ZwErg","Level":2,"Pos":329,"type":3},{"Code":"+","Level":2,"Pos":335,"type":7},{"Code":"pi","Level":2,"Pos":336,"type":3},{"Code":"*","Level":2,"Pos":338,"type":7},{"Code":"2.0","Level":2,"Pos":339,"type":18},{"Code":"-","Level":2,"Pos":342,"type":7},{"Code":"DINT_TO_REAL","Level":2,"Pos":343,"type":4},{"Code":"(","Level":2,"Pos":355,"type":19},{"Code":"TRUNC","Level":3,"Pos":356,"type":4},{"Code":"(","Level":3,"Pos":361,"type":19},{"Code":"Zwerg","Level":4,"Pos":362,"type":3},{"Code":"\/","Level":4,"Pos":367,"type":7},{"Code":"pi","Level":4,"Pos":368,"type":3},{"Code":"*","Level":4,"Pos":370,"type":7},{"Code":"0.5","Level":4,"Pos":371,"type":18},{"Code":"+","Level":4,"Pos":374,"type":7},{"Code":"1.5","Level":4,"Pos":375,"type":18},{"Code":")","Level":3,"Pos":378,"type":19},{"Code":")","Level":2,"Pos":379,"type":19},{"Code":"*","Level":2,"Pos":380,"type":7},{"Code":"pi","Level":2,"Pos":381,"type":3},{"Code":"*","Level":2,"Pos":383,"type":7},{"Code":"2.0","Level":2,"Pos":384,"type":18},{"Code":";","Level":2,"Pos":387,"type":7},{"Code":"ELSIF","Level":2,"Pos":388,"type":4},{"Code":"ABS","Level":2,"Pos":395,"type":4},{"Code":"(","Level":2,"Pos":399,"type":19},{"Code":"Vec","Level":3,"Pos":400,"type":3},{"Code":".","Level":3,"Pos":403,"type":7},{"Code":"v","Level":3,"Pos":404,"type":3},{"Code":".","Level":3,"Pos":405,"type":7},{"Code":"y","Level":3,"Pos":406,"type":3},{"Code":")","Level":2,"Pos":407,"type":19},{"Code":">","Level":2,"Pos":408,"type":7},{"Code":"epsilon","Level":2,"Pos":410,"type":3},{"Code":"THEN","Level":2,"Pos":418,"type":4},{"Code":"fbCalcWinkelvVector","Level":2,"Pos":423,"type":3},{"Code":":=","Level":2,"Pos":448,"type":7},{"Code":"SEL","Level":2,"Pos":451,"type":4},{"Code":"(","Level":2,"Pos":455,"type":19},{"Code":"Vec","Level":3,"Pos":456,"type":3},{"Code":".","Level":3,"Pos":459,"type":7},{"Code":"v","Level":3,"Pos":460,"type":3},{"Code":".","Level":3,"Pos":461,"type":7},{"Code":"y","Level":3,"Pos":462,"type":3},{"Code":"<","Level":3,"Pos":463,"type":7},{"Code":"0.0","Level":3,"Pos":465,"type":18},{"Code":",","Level":3,"Pos":469,"type":7},{"Code":"ATAN","Level":3,"Pos":470,"type":4},{"Code":"(","Level":3,"Pos":474,"type":19},{"Code":"-","Level":4,"Pos":475,"type":7},{"Code":"Vec","Level":4,"Pos":476,"type":3},{"Code":".","Level":4,"Pos":479,"type":7},{"Code":"v","Level":4,"Pos":480,"type":3},{"Code":".","Level":4,"Pos":481,"type":7},{"Code":"x","Level":4,"Pos":482,"type":3},{"Code":"\/","Level":4,"Pos":483,"type":7},{"Code":"vec","Level":4,"Pos":484,"type":3},{"Code":".","Level":4,"Pos":487,"type":7},{"Code":"v","Level":4,"Pos":488,"type":3},{"Code":".","Level":4,"Pos":489,"type":7},{"Code":"y","Level":4,"Pos":490,"type":3},{"Code":")","Level":3,"Pos":491,"type":19},{"Code":"+","Level":3,"Pos":492,"type":7},{"Code":"0.5","Level":3,"Pos":493,"type":18},{"Code":"*","Level":3,"Pos":496,"type":7},{"Code":"pi","Level":3,"Pos":497,"type":3},{"Code":",","Level":3,"Pos":499,"type":7},{"Code":"ATAN","Level":3,"Pos":500,"type":4},{"Code":"(","Level":3,"Pos":504,"type":19},{"Code":"-","Level":4,"Pos":505,"type":7},{"Code":"Vec","Level":4,"Pos":506,"type":3},{"Code":".","Level":4,"Pos":509,"type":7},{"Code":"v","Level":4,"Pos":510,"type":3},{"Code":".","Level":4,"Pos":511,"type":7},{"Code":"x","Level":4,"Pos":512,"type":3},{"Code":"\/","Level":4,"Pos":513,"type":7},{"Code":"vec","Level":4,"Pos":514,"type":3},{"Code":".","Level":4,"Pos":517,"type":7},{"Code":"v","Level":4,"Pos":518,"type":3},{"Code":".","Level":4,"Pos":519,"type":7},{"Code":"y","Level":4,"Pos":520,"type":3},{"Code":")","Level":3,"Pos":521,"type":19},{"Code":"-","Level":3,"Pos":522,"type":7},{"Code":"0.5","Level":3,"Pos":523,"type":18},{"Code":"*","Level":3,"Pos":526,"type":7},{"Code":"pi","Level":3,"Pos":527,"type":3},{"Code":")","Level":2,"Pos":529,"type":19},{"Code":";","Level":2,"Pos":530,"type":7},{"Code":"len","Level":2,"Pos":531,"type":4},{"Code":":=","Level":2,"Pos":539,"type":7},{"Code":"Vec","Level":2,"Pos":541,"type":3},{"Code":".","Level":2,"Pos":544,"type":7},{"Code":"v","Level":2,"Pos":545,"type":3},{"Code":".","Level":2,"Pos":546,"type":7},{"Code":"y","Level":2,"Pos":547,"type":3},{"Code":"\/","Level":2,"Pos":548,"type":7},{"Code":"SIN","Level":2,"Pos":549,"type":4},{"Code":"(","Level":2,"Pos":552,"type":19},{"Code":"fbCalcWinkelvVector","Level":3,"Pos":553,"type":3},{"Code":")","Level":2,"Pos":572,"type":19},{"Code":";","Level":2,"Pos":573,"type":7},{"Code":"else","Level":2,"Pos":574,"type":4},{"Code":"fbCalcWinkelvVector","Level":2,"Pos":580,"type":3},{"Code":":=","Level":2,"Pos":604,"type":7},{"Code":"0.0","Level":2,"Pos":607,"type":18},{"Code":";","Level":2,"Pos":610,"type":7},{"Code":"Len","Level":2,"Pos":611,"type":4},{"Code":":=","Level":2,"Pos":619,"type":7},{"Code":"0.0","Level":2,"Pos":622,"type":18},{"Code":";","Level":2,"Pos":626,"type":7},{"Code":"end_if","Level":1,"Pos":627,"type":17},{"Code":";","Level":1,"Pos":635,"type":7},{"Code":"END_FUNCTION","Level":0,"Pos":636,"type":17}] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/IEC_02/TestCode02.ext b/Transpiler_pp/TranspilerLibTests/Resources/IEC_02/TestCode02.ext deleted file mode 100644 index e2374858e..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/IEC_02/TestCode02.ext +++ /dev/null @@ -1,23 +0,0 @@ -FUNCTION fbCalcWinkelvVector : LREAL; -VAR_INPUT - Vec : udtVector; -END_VAR -VAR_OUTPUT - Len : LREAL; -END_VAR -VAR - ZwErg : LREAL; -END_VAR -BEGIN -IF ABS(Vec.v.x) > ABS(Vec.v.y) THEN - ZwErg :=SEL(Vec.v.x<0.0,ATAN(Vec.v.y/vec.v.x),ATAN(Vec.v.y/vec.v.x)+pi); - len:=Vec.v.x/COS(ZwErg); - fbCalcWinkelvVector := ZwErg+pi*2.0-DINT_TO_REAL(TRUNC(Zwerg/pi*0.5+1.5))*pi*2.0; -ELSIF ABS(Vec.v.y) > epsilon THEN - fbCalcWinkelvVector := SEL(Vec.v.y < 0.0,ATAN(-Vec.v.x/vec.v.y)+0.5*pi,ATAN(-Vec.v.x/vec.v.y)-0.5*pi); - len:=Vec.v.y/SIN(fbCalcWinkelvVector); -else - fbCalcWinkelvVector :=0.0; - Len := 0.0; -end_if; -END_FUNCTION \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/IEC_02/TestExpCode02.txt b/Transpiler_pp/TranspilerLibTests/Resources/IEC_02/TestExpCode02.txt deleted file mode 100644 index 5f282702b..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/IEC_02/TestExpCode02.txt +++ /dev/null @@ -1 +0,0 @@ - \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/IEC_02/TestExpParse02.txt b/Transpiler_pp/TranspilerLibTests/Resources/IEC_02/TestExpParse02.txt deleted file mode 100644 index 5f282702b..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/IEC_02/TestExpParse02.txt +++ /dev/null @@ -1 +0,0 @@ - \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test01/Test1Dat.cs b/Transpiler_pp/TranspilerLibTests/Resources/Test01/Test1Dat.cs deleted file mode 100644 index 4a667962b..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test01/Test1Dat.cs +++ /dev/null @@ -1,307 +0,0 @@ - private void Befehl_Click(object eventSender, EventArgs eventArgs) - { - int try0000_dispatch = -1; - int num = default(int); - short index = default(short); - int num2 = default(int); - int num3 = default(int); - int number = default(int); - string prompt = default(string); - while (true) - { - try - { - /*Note: ILSpy has introduced the following switch to emulate a goto from catch-block to try-block*/ - ; - int num4; - string text; - switch (try0000_dispatch) - { - default: - num = 1; - index = Befehl.GetIndex((Button)eventSender); - goto IL_0015; - case 1043: - { - num2 = num; - switch (num3) - { - case 2: - break; - case 1: - goto IL_0319; - default: - goto end_IL_0000; - } - goto IL_0248; - } - IL_0319: - num4 = num2 + 1; - goto IL_031d; - IL_0248: - num = 36; - number = Information.Err().Number; - goto IL_0258; - IL_0258: - num = 39; - if (number == 25) - { - goto IL_0262; - } - goto IL_029b; - IL_029b: - num = 46; - if (number == 55) - { - goto IL_02a5; - } - goto IL_02d0; - IL_02d0: - num = 52; - if (Interaction.MsgBox(Conversion.ErrorToString(), MsgBoxStyle.OkCancel, (Information.Err().Number).AsString()) == MsgBoxResult.Cancel) - { - ProjectData.EndApp(); - } - goto IL_02f6; - IL_00ad: - num = 9; - RichTextBox1.LoadFile(COND.Verz1 + "TEMP\\Text2.RTF", RichTextBoxStreamType.RichText); - goto IL_00cc; - IL_02f6: - num = 55; - ProjectData.ClearProjectError(); - if (num2 == 0) - { - throw ProjectData.CreateProjectError(-2146828268); - } - goto IL_0315; - IL_00cc: - num = 10; - Interaction.Shell(COND.Aus[7] + " " + COND.Verz1 + "Temp\\Text2.RTF", AppWinStyle.MaximizedFocus); - goto end_IL_0000_2; - IL_0315: - num4 = num2; - goto IL_031d; - IL_031d: - num2 = 0; - switch (num4) - { - case 1: - break; - case 2: - goto IL_0015; - case 3: - goto IL_001d; - case 4: - goto IL_0073; - case 6: - case 8: - goto IL_008f; - case 9: - goto IL_00ad; - case 10: - goto IL_00cc; - case 12: - case 13: - goto IL_00f9; - case 14: - goto IL_010d; - case 15: - goto IL_0117; - case 18: - case 19: - goto IL_0134; - case 20: - goto IL_0151; - case 21: - goto IL_0178; - case 22: - goto IL_0191; - case 23: - goto IL_01aa; - case 24: - goto IL_01d0; - case 26: - case 28: - goto IL_01f9; - case 30: - case 31: - goto IL_021f; - case 36: - goto IL_0248; - case 38: - case 39: - goto IL_0258; - case 40: - goto IL_0262; - case 41: - goto IL_026c; - case 42: - goto IL_027f; - case 46: - goto IL_029b; - case 47: - goto IL_02a5; - case 48: - goto IL_02b4; - case 51: - case 52: - goto IL_02d0; - case 53: - case 55: - goto IL_02f6; - default: - goto end_IL_0000; - case 5: - case 11: - case 16: - case 17: - case 25: - case 29: - case 32: - case 33: - case 34: - case 35: - case 37: - case 43: - case 45: - case 49: - case 50: - case 56: - case 57: - case 58: - goto end_IL_0000_2; - } - goto default; - IL_02a5: - num = 47; - FileSystem.FileClose(); - goto IL_02b4; - IL_02b4: - num = 48; - ProjectData.ClearProjectError(); - if (num2 == 0) - { - throw ProjectData.CreateProjectError(-2146828268); - } - goto IL_0315; - IL_008f: - num = 8; - RichTextBox1.SaveFile(COND.Verz1 + "TEMP\\Text2.RTF", RichTextBoxStreamType.RichText); - goto IL_00ad; - IL_0262: - num = 40; - prompt = "Das angegebene Gerät ist nicht bereit.\rBitte einschalten oder abbrechen."; - goto IL_026c; - IL_026c: - num = 41; - if (Interaction.MsgBox(prompt, MsgBoxStyle.OkCancel, "Fehler") == MsgBoxResult.Cancel) - { - goto end_IL_0000_2; - } - goto IL_027f; - IL_027f: - num = 42; - ProjectData.ClearProjectError(); - if (num2 == 0) - { - throw ProjectData.CreateProjectError(-2146828268); - } - goto IL_0315; - IL_0117: - num = 15; - MyProject.Forms.Druck.Show(); - goto end_IL_0000_2; - IL_0015: - ProjectData.ClearProjectError(); - num3 = 2; - goto IL_001d; - IL_001d: - num = 3; - text = "Datum " + Strings.Mid(DateAndTime.DateString, 4, 2) + "." + DateAndTime.DateString.Left( 2) + "." + Strings.Mid(DateAndTime.DateString, 7, 4); - goto IL_0073; - IL_0073: - num = 4; - switch (index) - { - case 1: - break; - case 2: - goto IL_00f9; - case 3: - goto IL_0134; - default: - goto end_IL_0000_2; - } - goto IL_008f; - IL_0134: - num = 19; - MyProject.Forms.Hinter.CommonDialog1Save.Filter = "Text (*.txt)|*.txt|Formartierter Text (*.RTF)|*.RTF"; - goto IL_0151; - IL_0151: - num = 20; - MyProject.Forms.Hinter.CommonDialog1Save.InitialDirectory = COND.GenPlu + "list\\"; - goto IL_0178; - IL_0178: - num = 21; - MyProject.Forms.Hinter.CommonDialog1Save.FilterIndex = 2; - goto IL_0191; - IL_0191: - num = 22; - MyProject.Forms.Hinter.CommonDialog1Save.ShowDialog(); - goto IL_01aa; - IL_01aa: - num = 23; - if (MyProject.Forms.Hinter.CommonDialog1Save.FileName == "") - { - goto end_IL_0000_2; - } - goto IL_01d0; - IL_01d0: - num = 24; - switch (MyProject.Forms.Hinter.CommonDialog1Save.FilterIndex) - { - case 1: - break; - case 2: - goto IL_021f; - default: - goto end_IL_0000_2; - } - goto IL_01f9; - IL_021f: - num = 31; - RichTextBox1.SaveFile(MyProject.Forms.Hinter.CommonDialog1Save.FileName, RichTextBoxStreamType.RichText); - goto end_IL_0000_2; - IL_01f9: - num = 28; - RichTextBox1.SaveFile(MyProject.Forms.Hinter.CommonDialog1Save.FileName, RichTextBoxStreamType.PlainText); - goto end_IL_0000_2; - IL_00f9: - num = 13; - RichTextBox1.Text = ""; - goto IL_010d; - IL_010d: - num = 14; - Close(); - goto IL_0117; - end_IL_0000: - break; - } - } - catch (Exception obj) when (obj is not null && num3 != 0 && num2 == 0) - { - ProjectData.SetProjectError(obj); - try0000_dispatch = 1043; - continue; - } - throw ProjectData.CreateProjectError(-2146828237); - continue; - end_IL_0000_2: - break; - } - if (num2 != 0) - { - ProjectData.ClearProjectError(); - } - } \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test01/Test1Dat.cs.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test01/Test1Dat.cs.txt deleted file mode 100644 index 4a667962b..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test01/Test1Dat.cs.txt +++ /dev/null @@ -1,307 +0,0 @@ - private void Befehl_Click(object eventSender, EventArgs eventArgs) - { - int try0000_dispatch = -1; - int num = default(int); - short index = default(short); - int num2 = default(int); - int num3 = default(int); - int number = default(int); - string prompt = default(string); - while (true) - { - try - { - /*Note: ILSpy has introduced the following switch to emulate a goto from catch-block to try-block*/ - ; - int num4; - string text; - switch (try0000_dispatch) - { - default: - num = 1; - index = Befehl.GetIndex((Button)eventSender); - goto IL_0015; - case 1043: - { - num2 = num; - switch (num3) - { - case 2: - break; - case 1: - goto IL_0319; - default: - goto end_IL_0000; - } - goto IL_0248; - } - IL_0319: - num4 = num2 + 1; - goto IL_031d; - IL_0248: - num = 36; - number = Information.Err().Number; - goto IL_0258; - IL_0258: - num = 39; - if (number == 25) - { - goto IL_0262; - } - goto IL_029b; - IL_029b: - num = 46; - if (number == 55) - { - goto IL_02a5; - } - goto IL_02d0; - IL_02d0: - num = 52; - if (Interaction.MsgBox(Conversion.ErrorToString(), MsgBoxStyle.OkCancel, (Information.Err().Number).AsString()) == MsgBoxResult.Cancel) - { - ProjectData.EndApp(); - } - goto IL_02f6; - IL_00ad: - num = 9; - RichTextBox1.LoadFile(COND.Verz1 + "TEMP\\Text2.RTF", RichTextBoxStreamType.RichText); - goto IL_00cc; - IL_02f6: - num = 55; - ProjectData.ClearProjectError(); - if (num2 == 0) - { - throw ProjectData.CreateProjectError(-2146828268); - } - goto IL_0315; - IL_00cc: - num = 10; - Interaction.Shell(COND.Aus[7] + " " + COND.Verz1 + "Temp\\Text2.RTF", AppWinStyle.MaximizedFocus); - goto end_IL_0000_2; - IL_0315: - num4 = num2; - goto IL_031d; - IL_031d: - num2 = 0; - switch (num4) - { - case 1: - break; - case 2: - goto IL_0015; - case 3: - goto IL_001d; - case 4: - goto IL_0073; - case 6: - case 8: - goto IL_008f; - case 9: - goto IL_00ad; - case 10: - goto IL_00cc; - case 12: - case 13: - goto IL_00f9; - case 14: - goto IL_010d; - case 15: - goto IL_0117; - case 18: - case 19: - goto IL_0134; - case 20: - goto IL_0151; - case 21: - goto IL_0178; - case 22: - goto IL_0191; - case 23: - goto IL_01aa; - case 24: - goto IL_01d0; - case 26: - case 28: - goto IL_01f9; - case 30: - case 31: - goto IL_021f; - case 36: - goto IL_0248; - case 38: - case 39: - goto IL_0258; - case 40: - goto IL_0262; - case 41: - goto IL_026c; - case 42: - goto IL_027f; - case 46: - goto IL_029b; - case 47: - goto IL_02a5; - case 48: - goto IL_02b4; - case 51: - case 52: - goto IL_02d0; - case 53: - case 55: - goto IL_02f6; - default: - goto end_IL_0000; - case 5: - case 11: - case 16: - case 17: - case 25: - case 29: - case 32: - case 33: - case 34: - case 35: - case 37: - case 43: - case 45: - case 49: - case 50: - case 56: - case 57: - case 58: - goto end_IL_0000_2; - } - goto default; - IL_02a5: - num = 47; - FileSystem.FileClose(); - goto IL_02b4; - IL_02b4: - num = 48; - ProjectData.ClearProjectError(); - if (num2 == 0) - { - throw ProjectData.CreateProjectError(-2146828268); - } - goto IL_0315; - IL_008f: - num = 8; - RichTextBox1.SaveFile(COND.Verz1 + "TEMP\\Text2.RTF", RichTextBoxStreamType.RichText); - goto IL_00ad; - IL_0262: - num = 40; - prompt = "Das angegebene Gerät ist nicht bereit.\rBitte einschalten oder abbrechen."; - goto IL_026c; - IL_026c: - num = 41; - if (Interaction.MsgBox(prompt, MsgBoxStyle.OkCancel, "Fehler") == MsgBoxResult.Cancel) - { - goto end_IL_0000_2; - } - goto IL_027f; - IL_027f: - num = 42; - ProjectData.ClearProjectError(); - if (num2 == 0) - { - throw ProjectData.CreateProjectError(-2146828268); - } - goto IL_0315; - IL_0117: - num = 15; - MyProject.Forms.Druck.Show(); - goto end_IL_0000_2; - IL_0015: - ProjectData.ClearProjectError(); - num3 = 2; - goto IL_001d; - IL_001d: - num = 3; - text = "Datum " + Strings.Mid(DateAndTime.DateString, 4, 2) + "." + DateAndTime.DateString.Left( 2) + "." + Strings.Mid(DateAndTime.DateString, 7, 4); - goto IL_0073; - IL_0073: - num = 4; - switch (index) - { - case 1: - break; - case 2: - goto IL_00f9; - case 3: - goto IL_0134; - default: - goto end_IL_0000_2; - } - goto IL_008f; - IL_0134: - num = 19; - MyProject.Forms.Hinter.CommonDialog1Save.Filter = "Text (*.txt)|*.txt|Formartierter Text (*.RTF)|*.RTF"; - goto IL_0151; - IL_0151: - num = 20; - MyProject.Forms.Hinter.CommonDialog1Save.InitialDirectory = COND.GenPlu + "list\\"; - goto IL_0178; - IL_0178: - num = 21; - MyProject.Forms.Hinter.CommonDialog1Save.FilterIndex = 2; - goto IL_0191; - IL_0191: - num = 22; - MyProject.Forms.Hinter.CommonDialog1Save.ShowDialog(); - goto IL_01aa; - IL_01aa: - num = 23; - if (MyProject.Forms.Hinter.CommonDialog1Save.FileName == "") - { - goto end_IL_0000_2; - } - goto IL_01d0; - IL_01d0: - num = 24; - switch (MyProject.Forms.Hinter.CommonDialog1Save.FilterIndex) - { - case 1: - break; - case 2: - goto IL_021f; - default: - goto end_IL_0000_2; - } - goto IL_01f9; - IL_021f: - num = 31; - RichTextBox1.SaveFile(MyProject.Forms.Hinter.CommonDialog1Save.FileName, RichTextBoxStreamType.RichText); - goto end_IL_0000_2; - IL_01f9: - num = 28; - RichTextBox1.SaveFile(MyProject.Forms.Hinter.CommonDialog1Save.FileName, RichTextBoxStreamType.PlainText); - goto end_IL_0000_2; - IL_00f9: - num = 13; - RichTextBox1.Text = ""; - goto IL_010d; - IL_010d: - num = 14; - Close(); - goto IL_0117; - end_IL_0000: - break; - } - } - catch (Exception obj) when (obj is not null && num3 != 0 && num2 == 0) - { - ProjectData.SetProjectError(obj); - try0000_dispatch = 1043; - continue; - } - throw ProjectData.CreateProjectError(-2146828237); - continue; - end_IL_0000_2: - break; - } - if (num2 != 0) - { - ProjectData.ClearProjectError(); - } - } \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test01/Test1DataList.json b/Transpiler_pp/TranspilerLibTests/Resources/Test01/Test1DataList.json deleted file mode 100644 index 34ef455b2..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test01/Test1DataList.json +++ /dev/null @@ -1 +0,0 @@ -[{"Code":"private void Befehl_Click(object eventSender, EventArgs eventArgs)","type":"operation","Level":0,"Pos":0},{"Code":"{","type":"block","Level":1,"Pos":76},{"Code":"int try0000_dispatch = -1;","type":"operation","Level":1,"Pos":77},{"Code":"int num = default(int);","type":"operation","Level":1,"Pos":113},{"Code":"short index = default(short);","type":"operation","Level":1,"Pos":146},{"Code":"int num2 = default(int);","type":"operation","Level":1,"Pos":185},{"Code":"int num3 = default(int);","type":"operation","Level":1,"Pos":219},{"Code":"int number = default(int);","type":"operation","Level":1,"Pos":253},{"Code":"string prompt = default(string);","type":"operation","Level":1,"Pos":289},{"Code":"while","type":"operation","Level":1,"Pos":331},{"Code":"(true)","type":"operation","Level":1,"Pos":346},{"Code":"{","type":"block","Level":2,"Pos":363},{"Code":"try","type":"operation","Level":2,"Pos":364},{"Code":"{","type":"block","Level":3,"Pos":395},{"Code":"","type":"operation","Level":3,"Pos":396},{"Code":"/*Note: ILSpy has introduced the following switch to emulate a goto from catch-block to try-block*/","type":"comment","Level":3,"Pos":414},{"Code":";","type":"operation","Level":3,"Pos":513},{"Code":"int num4;","type":"operation","Level":3,"Pos":532},{"Code":"string text;","type":"operation","Level":3,"Pos":559},{"Code":"switch","type":"operation","Level":3,"Pos":589},{"Code":"(try0000_dispatch)","type":"operation","Level":3,"Pos":613},{"Code":"{","type":"block","Level":4,"Pos":650},{"Code":"default:","type":"label","Level":4,"Pos":651},{"Code":"num = 1;","type":"operation","Level":4,"Pos":681},{"Code":"index = Befehl.GetIndex((Button)eventSender);","type":"operation","Level":4,"Pos":715},{"Code":"goto IL_0015;","type":"goto","Level":4,"Pos":786},{"Code":"case 1043:","type":"label","Level":4,"Pos":825},{"Code":"{","type":"block","Level":5,"Pos":883},{"Code":"num2 = num;","type":"operation","Level":5,"Pos":884},{"Code":"switch","type":"operation","Level":5,"Pos":925},{"Code":"(num3)","type":"operation","Level":5,"Pos":961},{"Code":"{","type":"block","Level":6,"Pos":998},{"Code":"case 2:","type":"label","Level":6,"Pos":999},{"Code":"break;","type":"operation","Level":6,"Pos":1040},{"Code":"case 1:","type":"label","Level":6,"Pos":1084},{"Code":"goto IL_0319;","type":"goto","Level":6,"Pos":1125},{"Code":"default:","type":"label","Level":6,"Pos":1176},{"Code":"goto end_IL_0000;","type":"goto","Level":6,"Pos":1218},{"Code":"}","type":"block","Level":6,"Pos":1303},{"Code":"goto IL_0248;","type":"goto","Level":5,"Pos":1304},{"Code":"}","type":"block","Level":5,"Pos":1373},{"Code":"IL_0319:","type":"label","Level":4,"Pos":1374},{"Code":"num4 = num2 \u002B 1;","type":"operation","Level":4,"Pos":1404},{"Code":"goto IL_031d;","type":"goto","Level":4,"Pos":1446},{"Code":"IL_0248:","type":"label","Level":4,"Pos":1485},{"Code":"num = 36;","type":"operation","Level":4,"Pos":1515},{"Code":"number = Information.Err().Number;","type":"operation","Level":4,"Pos":1550},{"Code":"goto IL_0258;","type":"goto","Level":4,"Pos":1610},{"Code":"IL_0258:","type":"label","Level":4,"Pos":1649},{"Code":"num = 39;","type":"operation","Level":4,"Pos":1679},{"Code":"if","type":"operation","Level":4,"Pos":1714},{"Code":"(number == 25)","type":"operation","Level":4,"Pos":1742},{"Code":"{","type":"block","Level":5,"Pos":1783},{"Code":"goto IL_0262;","type":"goto","Level":5,"Pos":1784},{"Code":"}","type":"block","Level":5,"Pos":1853},{"Code":"goto IL_029b;","type":"goto","Level":4,"Pos":1854},{"Code":"IL_029b:","type":"label","Level":4,"Pos":1893},{"Code":"num = 46;","type":"operation","Level":4,"Pos":1923},{"Code":"if","type":"operation","Level":4,"Pos":1958},{"Code":"(number == 55)","type":"operation","Level":4,"Pos":1986},{"Code":"{","type":"block","Level":5,"Pos":2027},{"Code":"goto IL_02a5;","type":"goto","Level":5,"Pos":2028},{"Code":"}","type":"block","Level":5,"Pos":2097},{"Code":"goto IL_02d0;","type":"goto","Level":4,"Pos":2098},{"Code":"IL_02d0:","type":"label","Level":4,"Pos":2137},{"Code":"num = 52;","type":"operation","Level":4,"Pos":2167},{"Code":"if","type":"operation","Level":4,"Pos":2202},{"Code":"(Interaction.MsgBox(Conversion.ErrorToString(), MsgBoxStyle.OkCancel, (Information.Err().Number).AsString()) == MsgBoxResult.Cancel)","type":"operation","Level":4,"Pos":2230},{"Code":"{","type":"block","Level":5,"Pos":2389},{"Code":"ProjectData.EndApp();","type":"operation","Level":5,"Pos":2390},{"Code":"}","type":"block","Level":5,"Pos":2467},{"Code":"goto IL_02f6;","type":"goto","Level":4,"Pos":2468},{"Code":"IL_00ad:","type":"label","Level":4,"Pos":2507},{"Code":"num = 9;","type":"operation","Level":4,"Pos":2537},{"Code":"RichTextBox1.LoadFile(COND.Verz1 \u002B","type":"operation","Level":4,"Pos":2571},{"Code":"\u0022TEMP\\\\Text2.RTF\u0022","type":"string","Level":4,"Pos":2632},{"Code":", RichTextBoxStreamType.RichText);","type":"operation","Level":4,"Pos":2649},{"Code":"goto IL_00cc;","type":"goto","Level":4,"Pos":2683},{"Code":"IL_02f6:","type":"label","Level":4,"Pos":2722},{"Code":"num = 55;","type":"operation","Level":4,"Pos":2752},{"Code":"ProjectData.ClearProjectError();","type":"operation","Level":4,"Pos":2787},{"Code":"if","type":"operation","Level":4,"Pos":2845},{"Code":"(num2 == 0)","type":"operation","Level":4,"Pos":2873},{"Code":"{","type":"block","Level":5,"Pos":2911},{"Code":"throw","type":"operation","Level":5,"Pos":2912},{"Code":"ProjectData.CreateProjectError(-2146828268);","type":"operation","Level":5,"Pos":2947},{"Code":"}","type":"block","Level":5,"Pos":3018},{"Code":"goto IL_0315;","type":"goto","Level":4,"Pos":3019},{"Code":"IL_00cc:","type":"label","Level":4,"Pos":3058},{"Code":"num = 10;","type":"operation","Level":4,"Pos":3088},{"Code":"Interaction.Shell(COND.Aus[7] \u002B","type":"operation","Level":4,"Pos":3123},{"Code":"\u0022 \u0022","type":"string","Level":4,"Pos":3181},{"Code":"\u002B COND.Verz1 \u002B","type":"operation","Level":4,"Pos":3184},{"Code":"\u0022Temp\\\\Text2.RTF\u0022","type":"string","Level":4,"Pos":3200},{"Code":", AppWinStyle.MaximizedFocus);","type":"operation","Level":4,"Pos":3217},{"Code":"goto end_IL_0000_2;","type":"goto","Level":4,"Pos":3247},{"Code":"IL_0315:","type":"label","Level":4,"Pos":3292},{"Code":"num4 = num2;","type":"operation","Level":4,"Pos":3322},{"Code":"goto IL_031d;","type":"goto","Level":4,"Pos":3360},{"Code":"IL_031d:","type":"label","Level":4,"Pos":3399},{"Code":"num2 = 0;","type":"operation","Level":4,"Pos":3429},{"Code":"switch","type":"operation","Level":4,"Pos":3464},{"Code":"(num4)","type":"operation","Level":4,"Pos":3496},{"Code":"{","type":"block","Level":5,"Pos":3529},{"Code":"case 1:","type":"label","Level":5,"Pos":3530},{"Code":"break;","type":"operation","Level":5,"Pos":3567},{"Code":"case 2:","type":"label","Level":5,"Pos":3607},{"Code":"goto IL_0015;","type":"goto","Level":5,"Pos":3644},{"Code":"case 3:","type":"label","Level":5,"Pos":3691},{"Code":"goto IL_001d;","type":"goto","Level":5,"Pos":3728},{"Code":"case 4:","type":"label","Level":5,"Pos":3775},{"Code":"goto IL_0073;","type":"goto","Level":5,"Pos":3812},{"Code":"case 6:","type":"label","Level":5,"Pos":3859},{"Code":"case 8:","type":"label","Level":5,"Pos":3896},{"Code":"goto IL_008f;","type":"goto","Level":5,"Pos":3933},{"Code":"case 9:","type":"label","Level":5,"Pos":3980},{"Code":"goto IL_00ad;","type":"goto","Level":5,"Pos":4017},{"Code":"case 10:","type":"label","Level":5,"Pos":4064},{"Code":"goto IL_00cc;","type":"goto","Level":5,"Pos":4102},{"Code":"case 12:","type":"label","Level":5,"Pos":4149},{"Code":"case 13:","type":"label","Level":5,"Pos":4187},{"Code":"goto IL_00f9;","type":"goto","Level":5,"Pos":4225},{"Code":"case 14:","type":"label","Level":5,"Pos":4272},{"Code":"goto IL_010d;","type":"goto","Level":5,"Pos":4310},{"Code":"case 15:","type":"label","Level":5,"Pos":4357},{"Code":"goto IL_0117;","type":"goto","Level":5,"Pos":4395},{"Code":"case 18:","type":"label","Level":5,"Pos":4442},{"Code":"case 19:","type":"label","Level":5,"Pos":4480},{"Code":"goto IL_0134;","type":"goto","Level":5,"Pos":4518},{"Code":"case 20:","type":"label","Level":5,"Pos":4565},{"Code":"goto IL_0151;","type":"goto","Level":5,"Pos":4603},{"Code":"case 21:","type":"label","Level":5,"Pos":4650},{"Code":"goto IL_0178;","type":"goto","Level":5,"Pos":4688},{"Code":"case 22:","type":"label","Level":5,"Pos":4735},{"Code":"goto IL_0191;","type":"goto","Level":5,"Pos":4773},{"Code":"case 23:","type":"label","Level":5,"Pos":4820},{"Code":"goto IL_01aa;","type":"goto","Level":5,"Pos":4858},{"Code":"case 24:","type":"label","Level":5,"Pos":4905},{"Code":"goto IL_01d0;","type":"goto","Level":5,"Pos":4943},{"Code":"case 26:","type":"label","Level":5,"Pos":4990},{"Code":"case 28:","type":"label","Level":5,"Pos":5028},{"Code":"goto IL_01f9;","type":"goto","Level":5,"Pos":5066},{"Code":"case 30:","type":"label","Level":5,"Pos":5113},{"Code":"case 31:","type":"label","Level":5,"Pos":5151},{"Code":"goto IL_021f;","type":"goto","Level":5,"Pos":5189},{"Code":"case 36:","type":"label","Level":5,"Pos":5236},{"Code":"goto IL_0248;","type":"goto","Level":5,"Pos":5274},{"Code":"case 38:","type":"label","Level":5,"Pos":5321},{"Code":"case 39:","type":"label","Level":5,"Pos":5359},{"Code":"goto IL_0258;","type":"goto","Level":5,"Pos":5397},{"Code":"case 40:","type":"label","Level":5,"Pos":5444},{"Code":"goto IL_0262;","type":"goto","Level":5,"Pos":5482},{"Code":"case 41:","type":"label","Level":5,"Pos":5529},{"Code":"goto IL_026c;","type":"goto","Level":5,"Pos":5567},{"Code":"case 42:","type":"label","Level":5,"Pos":5614},{"Code":"goto IL_027f;","type":"goto","Level":5,"Pos":5652},{"Code":"case 46:","type":"label","Level":5,"Pos":5699},{"Code":"goto IL_029b;","type":"goto","Level":5,"Pos":5737},{"Code":"case 47:","type":"label","Level":5,"Pos":5784},{"Code":"goto IL_02a5;","type":"goto","Level":5,"Pos":5822},{"Code":"case 48:","type":"label","Level":5,"Pos":5869},{"Code":"goto IL_02b4;","type":"goto","Level":5,"Pos":5907},{"Code":"case 51:","type":"label","Level":5,"Pos":5954},{"Code":"case 52:","type":"label","Level":5,"Pos":5992},{"Code":"goto IL_02d0;","type":"goto","Level":5,"Pos":6030},{"Code":"case 53:","type":"label","Level":5,"Pos":6077},{"Code":"case 55:","type":"label","Level":5,"Pos":6115},{"Code":"goto IL_02f6;","type":"goto","Level":5,"Pos":6153},{"Code":"default:","type":"label","Level":5,"Pos":6200},{"Code":"goto end_IL_0000;","type":"goto","Level":5,"Pos":6238},{"Code":"case 5:","type":"label","Level":5,"Pos":6289},{"Code":"case 11:","type":"label","Level":5,"Pos":6326},{"Code":"case 16:","type":"label","Level":5,"Pos":6364},{"Code":"case 17:","type":"label","Level":5,"Pos":6402},{"Code":"case 25:","type":"label","Level":5,"Pos":6440},{"Code":"case 29:","type":"label","Level":5,"Pos":6478},{"Code":"case 32:","type":"label","Level":5,"Pos":6516},{"Code":"case 33:","type":"label","Level":5,"Pos":6554},{"Code":"case 34:","type":"label","Level":5,"Pos":6592},{"Code":"case 35:","type":"label","Level":5,"Pos":6630},{"Code":"case 37:","type":"label","Level":5,"Pos":6668},{"Code":"case 43:","type":"label","Level":5,"Pos":6706},{"Code":"case 45:","type":"label","Level":5,"Pos":6744},{"Code":"case 49:","type":"label","Level":5,"Pos":6782},{"Code":"case 50:","type":"label","Level":5,"Pos":6820},{"Code":"case 56:","type":"label","Level":5,"Pos":6858},{"Code":"case 57:","type":"label","Level":5,"Pos":6896},{"Code":"case 58:","type":"label","Level":5,"Pos":6934},{"Code":"goto end_IL_0000_2;","type":"goto","Level":5,"Pos":6972},{"Code":"}","type":"block","Level":5,"Pos":7051},{"Code":"goto default;","type":"goto","Level":4,"Pos":7052},{"Code":"IL_02a5:","type":"label","Level":4,"Pos":7091},{"Code":"num = 47;","type":"operation","Level":4,"Pos":7121},{"Code":"FileSystem.FileClose();","type":"operation","Level":4,"Pos":7156},{"Code":"goto IL_02b4;","type":"goto","Level":4,"Pos":7205},{"Code":"IL_02b4:","type":"label","Level":4,"Pos":7244},{"Code":"num = 48;","type":"operation","Level":4,"Pos":7274},{"Code":"ProjectData.ClearProjectError();","type":"operation","Level":4,"Pos":7309},{"Code":"if","type":"operation","Level":4,"Pos":7367},{"Code":"(num2 == 0)","type":"operation","Level":4,"Pos":7395},{"Code":"{","type":"block","Level":5,"Pos":7433},{"Code":"throw","type":"operation","Level":5,"Pos":7434},{"Code":"ProjectData.CreateProjectError(-2146828268);","type":"operation","Level":5,"Pos":7469},{"Code":"}","type":"block","Level":5,"Pos":7540},{"Code":"goto IL_0315;","type":"goto","Level":4,"Pos":7541},{"Code":"IL_008f:","type":"label","Level":4,"Pos":7580},{"Code":"num = 8;","type":"operation","Level":4,"Pos":7610},{"Code":"RichTextBox1.SaveFile(COND.Verz1 \u002B","type":"operation","Level":4,"Pos":7644},{"Code":"\u0022TEMP\\\\Text2.RTF\u0022","type":"string","Level":4,"Pos":7705},{"Code":", RichTextBoxStreamType.RichText);","type":"operation","Level":4,"Pos":7722},{"Code":"goto IL_00ad;","type":"goto","Level":4,"Pos":7756},{"Code":"IL_0262:","type":"label","Level":4,"Pos":7795},{"Code":"num = 40;","type":"operation","Level":4,"Pos":7825},{"Code":"prompt =","type":"operation","Level":4,"Pos":7860},{"Code":"\u0022Das angegebene Ger\u00E4t ist nicht bereit.\\rBitte einschalten oder abbrechen.\u0022","type":"string","Level":4,"Pos":7895},{"Code":";","type":"operation","Level":4,"Pos":7970},{"Code":"goto IL_026c;","type":"goto","Level":4,"Pos":7971},{"Code":"IL_026c:","type":"label","Level":4,"Pos":8010},{"Code":"num = 41;","type":"operation","Level":4,"Pos":8040},{"Code":"if","type":"operation","Level":4,"Pos":8075},{"Code":"(Interaction.MsgBox(prompt, MsgBoxStyle.OkCancel,","type":"operation","Level":4,"Pos":8103},{"Code":"\u0022Fehler\u0022","type":"string","Level":4,"Pos":8154},{"Code":") == MsgBoxResult.Cancel)","type":"operation","Level":4,"Pos":8162},{"Code":"{","type":"block","Level":5,"Pos":8213},{"Code":"goto end_IL_0000_2;","type":"goto","Level":5,"Pos":8214},{"Code":"}","type":"block","Level":5,"Pos":8289},{"Code":"goto IL_027f;","type":"goto","Level":4,"Pos":8290},{"Code":"IL_027f:","type":"label","Level":4,"Pos":8329},{"Code":"num = 42;","type":"operation","Level":4,"Pos":8359},{"Code":"ProjectData.ClearProjectError();","type":"operation","Level":4,"Pos":8394},{"Code":"if","type":"operation","Level":4,"Pos":8452},{"Code":"(num2 == 0)","type":"operation","Level":4,"Pos":8480},{"Code":"{","type":"block","Level":5,"Pos":8518},{"Code":"throw","type":"operation","Level":5,"Pos":8519},{"Code":"ProjectData.CreateProjectError(-2146828268);","type":"operation","Level":5,"Pos":8554},{"Code":"}","type":"block","Level":5,"Pos":8625},{"Code":"goto IL_0315;","type":"goto","Level":4,"Pos":8626},{"Code":"IL_0117:","type":"label","Level":4,"Pos":8665},{"Code":"num = 15;","type":"operation","Level":4,"Pos":8695},{"Code":"MyProject.Forms.Druck.Show();","type":"operation","Level":4,"Pos":8730},{"Code":"goto end_IL_0000_2;","type":"goto","Level":4,"Pos":8785},{"Code":"IL_0015:","type":"label","Level":4,"Pos":8830},{"Code":"ProjectData.ClearProjectError();","type":"operation","Level":4,"Pos":8860},{"Code":"num3 = 2;","type":"operation","Level":4,"Pos":8918},{"Code":"goto IL_001d;","type":"goto","Level":4,"Pos":8953},{"Code":"IL_001d:","type":"label","Level":4,"Pos":8992},{"Code":"num = 3;","type":"operation","Level":4,"Pos":9022},{"Code":"text =","type":"operation","Level":4,"Pos":9056},{"Code":"\u0022Datum \u0022","type":"string","Level":4,"Pos":9089},{"Code":"\u002B Strings.Mid(DateAndTime.DateString, 4, 2) \u002B","type":"operation","Level":4,"Pos":9097},{"Code":"\u0022.\u0022","type":"string","Level":4,"Pos":9144},{"Code":"\u002B DateAndTime.DateString.Left( 2) \u002B","type":"operation","Level":4,"Pos":9147},{"Code":"\u0022.\u0022","type":"string","Level":4,"Pos":9184},{"Code":"\u002B Strings.Mid(DateAndTime.DateString, 7, 4);","type":"operation","Level":4,"Pos":9187},{"Code":"goto IL_0073;","type":"goto","Level":4,"Pos":9232},{"Code":"IL_0073:","type":"label","Level":4,"Pos":9271},{"Code":"num = 4;","type":"operation","Level":4,"Pos":9301},{"Code":"switch","type":"operation","Level":4,"Pos":9335},{"Code":"(index)","type":"operation","Level":4,"Pos":9367},{"Code":"{","type":"block","Level":5,"Pos":9401},{"Code":"case 1:","type":"label","Level":5,"Pos":9402},{"Code":"break;","type":"operation","Level":5,"Pos":9439},{"Code":"case 2:","type":"label","Level":5,"Pos":9479},{"Code":"goto IL_00f9;","type":"goto","Level":5,"Pos":9516},{"Code":"case 3:","type":"label","Level":5,"Pos":9563},{"Code":"goto IL_0134;","type":"goto","Level":5,"Pos":9600},{"Code":"default:","type":"label","Level":5,"Pos":9647},{"Code":"goto end_IL_0000_2;","type":"goto","Level":5,"Pos":9685},{"Code":"}","type":"block","Level":5,"Pos":9764},{"Code":"goto IL_008f;","type":"goto","Level":4,"Pos":9765},{"Code":"IL_0134:","type":"label","Level":4,"Pos":9804},{"Code":"num = 19;","type":"operation","Level":4,"Pos":9834},{"Code":"MyProject.Forms.Hinter.CommonDialog1Save.Filter =","type":"operation","Level":4,"Pos":9869},{"Code":"\u0022Text (*.txt)|*.txt|Formartierter Text (*.RTF)|*.RTF\u0022","type":"string","Level":4,"Pos":9945},{"Code":";","type":"operation","Level":4,"Pos":9998},{"Code":"goto IL_0151;","type":"goto","Level":4,"Pos":9999},{"Code":"IL_0151:","type":"label","Level":4,"Pos":10038},{"Code":"num = 20;","type":"operation","Level":4,"Pos":10068},{"Code":"MyProject.Forms.Hinter.CommonDialog1Save.InitialDirectory = COND.GenPlu \u002B","type":"operation","Level":4,"Pos":10103},{"Code":"\u0022list\\\\\u0022","type":"string","Level":4,"Pos":10203},{"Code":";","type":"operation","Level":4,"Pos":10211},{"Code":"goto IL_0178;","type":"goto","Level":4,"Pos":10212},{"Code":"IL_0178:","type":"label","Level":4,"Pos":10251},{"Code":"num = 21;","type":"operation","Level":4,"Pos":10281},{"Code":"MyProject.Forms.Hinter.CommonDialog1Save.FilterIndex = 2;","type":"operation","Level":4,"Pos":10316},{"Code":"goto IL_0191;","type":"goto","Level":4,"Pos":10399},{"Code":"IL_0191:","type":"label","Level":4,"Pos":10438},{"Code":"num = 22;","type":"operation","Level":4,"Pos":10468},{"Code":"MyProject.Forms.Hinter.CommonDialog1Save.ShowDialog();","type":"operation","Level":4,"Pos":10503},{"Code":"goto IL_01aa;","type":"goto","Level":4,"Pos":10583},{"Code":"IL_01aa:","type":"label","Level":4,"Pos":10622},{"Code":"num = 23;","type":"operation","Level":4,"Pos":10652},{"Code":"if","type":"operation","Level":4,"Pos":10687},{"Code":"(MyProject.Forms.Hinter.CommonDialog1Save.FileName ==","type":"operation","Level":4,"Pos":10715},{"Code":"\u0022\u0022","type":"string","Level":4,"Pos":10771},{"Code":")","type":"operation","Level":4,"Pos":10773},{"Code":"{","type":"block","Level":5,"Pos":10800},{"Code":"goto end_IL_0000_2;","type":"goto","Level":5,"Pos":10801},{"Code":"}","type":"block","Level":5,"Pos":10876},{"Code":"goto IL_01d0;","type":"goto","Level":4,"Pos":10877},{"Code":"IL_01d0:","type":"label","Level":4,"Pos":10916},{"Code":"num = 24;","type":"operation","Level":4,"Pos":10946},{"Code":"switch","type":"operation","Level":4,"Pos":10981},{"Code":"(MyProject.Forms.Hinter.CommonDialog1Save.FilterIndex)","type":"operation","Level":4,"Pos":11013},{"Code":"{","type":"block","Level":5,"Pos":11094},{"Code":"case 1:","type":"label","Level":5,"Pos":11095},{"Code":"break;","type":"operation","Level":5,"Pos":11132},{"Code":"case 2:","type":"label","Level":5,"Pos":11172},{"Code":"goto IL_021f;","type":"goto","Level":5,"Pos":11209},{"Code":"default:","type":"label","Level":5,"Pos":11256},{"Code":"goto end_IL_0000_2;","type":"goto","Level":5,"Pos":11294},{"Code":"}","type":"block","Level":5,"Pos":11373},{"Code":"goto IL_01f9;","type":"goto","Level":4,"Pos":11374},{"Code":"IL_021f:","type":"label","Level":4,"Pos":11413},{"Code":"num = 31;","type":"operation","Level":4,"Pos":11443},{"Code":"RichTextBox1.SaveFile(MyProject.Forms.Hinter.CommonDialog1Save.FileName, RichTextBoxStreamType.RichText);","type":"operation","Level":4,"Pos":11478},{"Code":"goto end_IL_0000_2;","type":"goto","Level":4,"Pos":11609},{"Code":"IL_01f9:","type":"label","Level":4,"Pos":11654},{"Code":"num = 28;","type":"operation","Level":4,"Pos":11684},{"Code":"RichTextBox1.SaveFile(MyProject.Forms.Hinter.CommonDialog1Save.FileName, RichTextBoxStreamType.PlainText);","type":"operation","Level":4,"Pos":11719},{"Code":"goto end_IL_0000_2;","type":"goto","Level":4,"Pos":11851},{"Code":"IL_00f9:","type":"label","Level":4,"Pos":11896},{"Code":"num = 13;","type":"operation","Level":4,"Pos":11926},{"Code":"RichTextBox1.Text =","type":"operation","Level":4,"Pos":11961},{"Code":"\u0022\u0022","type":"string","Level":4,"Pos":12007},{"Code":";","type":"operation","Level":4,"Pos":12009},{"Code":"goto IL_010d;","type":"goto","Level":4,"Pos":12010},{"Code":"IL_010d:","type":"label","Level":4,"Pos":12049},{"Code":"num = 14;","type":"operation","Level":4,"Pos":12079},{"Code":"Close();","type":"operation","Level":4,"Pos":12114},{"Code":"goto IL_0117;","type":"goto","Level":4,"Pos":12148},{"Code":"end_IL_0000:","type":"label","Level":4,"Pos":12187},{"Code":"break;","type":"operation","Level":4,"Pos":12221},{"Code":"}","type":"block","Level":4,"Pos":12271},{"Code":"}","type":"block","Level":3,"Pos":12286},{"Code":"catch","type":"operation","Level":2,"Pos":12287},{"Code":"(Exception obj)","type":"operation","Level":2,"Pos":12306},{"Code":"when (obj is not null \u0026\u0026 num3 != 0 \u0026\u0026 num2 == 0)","type":"operation","Level":2,"Pos":12323},{"Code":"{","type":"block","Level":3,"Pos":12385},{"Code":"ProjectData.SetProjectError(obj);","type":"operation","Level":3,"Pos":12386},{"Code":"try0000_dispatch = 1043;","type":"operation","Level":3,"Pos":12437},{"Code":"continue;","type":"operation","Level":3,"Pos":12479},{"Code":"}","type":"block","Level":3,"Pos":12520},{"Code":"throw","type":"operation","Level":2,"Pos":12521},{"Code":"ProjectData.CreateProjectError(-2146828237);","type":"operation","Level":2,"Pos":12540},{"Code":"continue;","type":"operation","Level":2,"Pos":12585},{"Code":"end_IL_0000_2:","type":"label","Level":2,"Pos":12608},{"Code":"break;","type":"operation","Level":2,"Pos":12632},{"Code":"}","type":"block","Level":2,"Pos":12662},{"Code":"if","type":"operation","Level":1,"Pos":12663},{"Code":"(num2 != 0)","type":"operation","Level":1,"Pos":12675},{"Code":"{","type":"block","Level":2,"Pos":12697},{"Code":"ProjectData.ClearProjectError();","type":"operation","Level":2,"Pos":12698},{"Code":"}","type":"block","Level":2,"Pos":12754},{"Code":"}","type":"block","Level":1,"Pos":12761}] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test01/Test1ExpCode.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test01/Test1ExpCode.txt deleted file mode 100644 index 171d2b1b5..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test01/Test1ExpCode.txt +++ /dev/null @@ -1,307 +0,0 @@ - private void Befehl_Click(object eventSender, EventArgs eventArgs) - { - int try0000_dispatch = -1; - int num = default(int); - short index = default(short); - int num2 = default(int); - int num3 = default(int); - int number = default(int); - string prompt = default(string); - while (true) - { - try - { - /*Note: ILSpy has introduced the following switch to emulate a goto from catch-block to try-block*/ - ; - int num4; - string text; - switch (try0000_dispatch) - { - default: - num = 1; - index = Befehl.GetIndex((Button)eventSender); - goto IL_0015; - case 1043: - { - num2 = num; - switch (num3) - { - case 2: - break; - case 1: - goto IL_0319; - default: - goto end_IL_0000; - } - goto IL_0248; - } - IL_0319: - num4 = num2 + 1; - goto IL_031d; - IL_0248: - num = 36; - number = Information.Err().Number; - goto IL_0258; - IL_0258: - num = 39; - if (number == 25) - { - goto IL_0262; - } - goto IL_029b; - IL_029b: - num = 46; - if (number == 55) - { - goto IL_02a5; - } - goto IL_02d0; - IL_02d0: - num = 52; - if (Interaction.MsgBox(Conversion.ErrorToString(), MsgBoxStyle.OkCancel, (Information.Err().Number).AsString()) == MsgBoxResult.Cancel) - { - ProjectData.EndApp(); - } - goto IL_02f6; - IL_00ad: - num = 9; - RichTextBox1.LoadFile(COND.Verz1 + "TEMP\\Text2.RTF", RichTextBoxStreamType.RichText); - goto IL_00cc; - IL_02f6: - num = 55; - ProjectData.ClearProjectError(); - if (num2 == 0) - { - throw ProjectData.CreateProjectError(-2146828268); - } - goto IL_0315; - IL_00cc: - num = 10; - Interaction.Shell(COND.Aus[7] + " " + COND.Verz1 + "Temp\\Text2.RTF", AppWinStyle.MaximizedFocus); - goto end_IL_0000_2; - IL_0315: // <========== 3 - num4 = num2; - goto IL_031d; - IL_031d: - num2 = 0; - switch (num4) - { - case 1: - break; - case 2: - goto IL_0015; - case 3: - goto IL_001d; - case 4: - goto IL_0073; - case 6: - case 8: - goto IL_008f; - case 9: - goto IL_00ad; - case 10: - goto IL_00cc; - case 12: - case 13: - goto IL_00f9; - case 14: - goto IL_010d; - case 15: - goto IL_0117; - case 18: - case 19: - goto IL_0134; - case 20: - goto IL_0151; - case 21: - goto IL_0178; - case 22: - goto IL_0191; - case 23: - goto IL_01aa; - case 24: - goto IL_01d0; - case 26: - case 28: - goto IL_01f9; - case 30: - case 31: - goto IL_021f; - case 36: - goto IL_0248; - case 38: - case 39: - goto IL_0258; - case 40: - goto IL_0262; - case 41: - goto IL_026c; - case 42: - goto IL_027f; - case 46: - goto IL_029b; - case 47: - goto IL_02a5; - case 48: - goto IL_02b4; - case 51: - case 52: - goto IL_02d0; - case 53: - case 55: - goto IL_02f6; - default: - goto end_IL_0000; - case 5: - case 11: - case 16: - case 17: - case 25: - case 29: - case 32: - case 33: - case 34: - case 35: - case 37: - case 43: - case 45: - case 49: - case 50: - case 56: - case 57: - case 58: - goto end_IL_0000_2; - } - goto default; - IL_02a5: - num = 47; - FileSystem.FileClose(); - goto IL_02b4; - IL_02b4: - num = 48; - ProjectData.ClearProjectError(); - if (num2 == 0) - { - throw ProjectData.CreateProjectError(-2146828268); - } - goto IL_0315; - IL_008f: - num = 8; - RichTextBox1.SaveFile(COND.Verz1 + "TEMP\\Text2.RTF", RichTextBoxStreamType.RichText); - goto IL_00ad; - IL_0262: - num = 40; - prompt = "Das angegebene Gerät ist nicht bereit.\rBitte einschalten oder abbrechen."; - goto IL_026c; - IL_026c: - num = 41; - if (Interaction.MsgBox(prompt, MsgBoxStyle.OkCancel, "Fehler") == MsgBoxResult.Cancel) - { - goto end_IL_0000_2; - } - goto IL_027f; - IL_027f: - num = 42; - ProjectData.ClearProjectError(); - if (num2 == 0) - { - throw ProjectData.CreateProjectError(-2146828268); - } - goto IL_0315; - IL_0117: - num = 15; - MyProject.Forms.Druck.Show(); - goto end_IL_0000_2; - IL_0015: - ProjectData.ClearProjectError(); - num3 = 2; - goto IL_001d; - IL_001d: - num = 3; - text = "Datum " + Strings.Mid(DateAndTime.DateString, 4, 2) + "." + DateAndTime.DateString.Left( 2) + "." + Strings.Mid(DateAndTime.DateString, 7, 4); - goto IL_0073; - IL_0073: - num = 4; - switch (index) - { - case 1: - break; - case 2: - goto IL_00f9; - case 3: - goto IL_0134; - default: - goto end_IL_0000_2; - } - goto IL_008f; - IL_0134: - num = 19; - MyProject.Forms.Hinter.CommonDialog1Save.Filter = "Text (*.txt)|*.txt|Formartierter Text (*.RTF)|*.RTF"; - goto IL_0151; - IL_0151: - num = 20; - MyProject.Forms.Hinter.CommonDialog1Save.InitialDirectory = COND.GenPlu + "list\\"; - goto IL_0178; - IL_0178: - num = 21; - MyProject.Forms.Hinter.CommonDialog1Save.FilterIndex = 2; - goto IL_0191; - IL_0191: - num = 22; - MyProject.Forms.Hinter.CommonDialog1Save.ShowDialog(); - goto IL_01aa; - IL_01aa: - num = 23; - if (MyProject.Forms.Hinter.CommonDialog1Save.FileName == "") - { - goto end_IL_0000_2; - } - goto IL_01d0; - IL_01d0: - num = 24; - switch (MyProject.Forms.Hinter.CommonDialog1Save.FilterIndex) - { - case 1: - break; - case 2: - goto IL_021f; - default: - goto end_IL_0000_2; - } - goto IL_01f9; - IL_021f: - num = 31; - RichTextBox1.SaveFile(MyProject.Forms.Hinter.CommonDialog1Save.FileName, RichTextBoxStreamType.RichText); - goto end_IL_0000_2; - IL_01f9: - num = 28; - RichTextBox1.SaveFile(MyProject.Forms.Hinter.CommonDialog1Save.FileName, RichTextBoxStreamType.PlainText); - goto end_IL_0000_2; - IL_00f9: - num = 13; - RichTextBox1.Text = ""; - goto IL_010d; - IL_010d: - num = 14; - Close(); - goto IL_0117; - end_IL_0000: - break; - } - } - catch (Exception obj) when (obj is not null && num3 != 0 && num2 == 0) - { - ProjectData.SetProjectError(obj); - try0000_dispatch = 1043; - continue; - } - throw ProjectData.CreateProjectError(-2146828237); - continue; - end_IL_0000_2: // <========== 9 - break; - } - if (num2 != 0) - { - ProjectData.ClearProjectError(); - } - } \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test01/Test1ExpParse.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test01/Test1ExpParse.txt deleted file mode 100644 index fdff3c3d3..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test01/Test1ExpParse.txt +++ /dev/null @@ -1,614 +0,0 @@ -///Declaration MainBlock 0,0 -private void Befehl_Click(object eventSender, EventArgs eventArgs) -///BlockStart Block 1,0 -{ -///Operation Operation 1,1 -int try0000_dispatch = -1; -///Operation Operation 1,2 -int num = default(int); -///Operation Operation 1,3 -short index = default(short); -///Operation Operation 1,4 -int num2 = default(int); -///Operation Operation 1,5 -int num3 = default(int); -///Operation Operation 1,6 -int number = default(int); -///Operation Operation 1,7 -string prompt = default(string); -///Operation Operation 1,8 -while (true) -///BlockStart Block 2,0 -{ -///Operation Operation 2,1 -try -///BlockStart Block 3,0 -{ -///Comment Comment 3,1 -/*Note: ILSpy has introduced the following switch to emulate a goto from catch-block to try-block*/ -///Operation Operation 3,2 -; -///Operation Operation 3,3 -int num4; -///Operation Operation 3,4 -string text; -///Operation Operation 3,5 -switch (try0000_dispatch) -///BlockStart Block 4,0 -{ -///Label Label 4,1 1 -default: -///Operation Operation 4,2 -num = 1; -///Operation Operation 4,3 -index = Befehl.GetIndex((Button)eventSender); -///Goto Goto 4,4 Dest:OK -goto IL_0015; -///Label Label 4,5 -case 1043: -///BlockStart Block 5,0 -{ -///Operation Operation 5,1 -num2 = num; -///Operation Operation 5,2 -switch (num3) -///BlockStart Block 6,0 -{ -///Label Label 6,1 -case 2: -///Operation Operation 6,2 -break; -///Label Label 6,3 -case 1: -///Goto Goto 6,4 Dest:OK -goto IL_0319; -///Label Label 6,5 -default: -///Goto Goto 6,6 Dest:OK -goto end_IL_0000; -///BlockEnd Block 6,7 -} -///Goto Goto 5,3 Dest:OK -goto IL_0248; -///BlockEnd Block 5,4 -} -///Label Label 4,6 1 -IL_0319: -///Operation Operation 4,7 -num4 = num2 + 1; -///Goto Goto 4,8 Dest:OK -goto IL_031d; -///Label Label 4,9 2 -IL_0248: -///Operation Operation 4,10 -num = 36; -///Operation Operation 4,11 -number = Information.Err().Number; -///Goto Goto 4,12 Dest:OK -goto IL_0258; -///Label Label 4,13 2 -IL_0258: -///Operation Operation 4,14 -num = 39; -///Operation Operation 4,15 -if (number == 25) -///BlockStart Block 5,0 -{ -///Goto Goto 5,1 Dest:OK -goto IL_0262; -///BlockEnd Block 5,2 -} -///Goto Goto 4,16 Dest:OK -goto IL_029b; -///Label Label 4,17 2 -IL_029b: -///Operation Operation 4,18 -num = 46; -///Operation Operation 4,19 -if (number == 55) -///BlockStart Block 5,0 -{ -///Goto Goto 5,1 Dest:OK -goto IL_02a5; -///BlockEnd Block 5,2 -} -///Goto Goto 4,20 Dest:OK -goto IL_02d0; -///Label Label 4,21 2 -IL_02d0: -///Operation Operation 4,22 -num = 52; -///Operation Operation 4,23 -if (Interaction.MsgBox(Conversion.ErrorToString(), MsgBoxStyle.OkCancel, (Information.Err().Number).AsString()) == MsgBoxResult.Cancel) -///BlockStart Block 5,0 -{ -///Operation Operation 5,1 -ProjectData.EndApp(); -///BlockEnd Block 5,2 -} -///Goto Goto 4,24 Dest:OK -goto IL_02f6; -///Label Label 4,25 2 -IL_00ad: -///Operation Operation 4,26 -num = 9; -///Operation Operation 4,27 -RichTextBox1.LoadFile(COND.Verz1 + "TEMP\\Text2.RTF", RichTextBoxStreamType.RichText); -///Goto Goto 4,28 Dest:OK -goto IL_00cc; -///Label Label 4,29 2 -IL_02f6: -///Operation Operation 4,30 -num = 55; -///Operation Operation 4,31 -ProjectData.ClearProjectError(); -///Operation Operation 4,32 -if (num2 == 0) -///BlockStart Block 5,0 -{ -///Operation Operation 5,1 -throw ProjectData.CreateProjectError(-2146828268); -///BlockEnd Block 5,2 -} -///Goto Goto 4,33 Dest:OK -goto IL_0315; -///Label Label 4,34 2 -IL_00cc: -///Operation Operation 4,35 -num = 10; -///Operation Operation 4,36 -Interaction.Shell(COND.Aus[7] + " " + COND.Verz1 + "Temp\\Text2.RTF", AppWinStyle.MaximizedFocus); -///Goto Goto 4,37 Dest:OK -goto end_IL_0000_2; -///Label Label 4,38 3 -IL_0315: -///Operation Operation 4,39 -num4 = num2; -///Goto Goto 4,40 Dest:OK -goto IL_031d; -///Label Label 4,41 2 -IL_031d: -///Operation Operation 4,42 -num2 = 0; -///Operation Operation 4,43 -switch (num4) -///BlockStart Block 5,0 -{ -///Label Label 5,1 -case 1: -///Operation Operation 5,2 -break; -///Label Label 5,3 -case 2: -///Goto Goto 5,4 Dest:OK -goto IL_0015; -///Label Label 5,5 -case 3: -///Goto Goto 5,6 Dest:OK -goto IL_001d; -///Label Label 5,7 -case 4: -///Goto Goto 5,8 Dest:OK -goto IL_0073; -///Label Label 5,9 -case 6: -///Label Label 5,10 -case 8: -///Goto Goto 5,11 Dest:OK -goto IL_008f; -///Label Label 5,12 -case 9: -///Goto Goto 5,13 Dest:OK -goto IL_00ad; -///Label Label 5,14 -case 10: -///Goto Goto 5,15 Dest:OK -goto IL_00cc; -///Label Label 5,16 -case 12: -///Label Label 5,17 -case 13: -///Goto Goto 5,18 Dest:OK -goto IL_00f9; -///Label Label 5,19 -case 14: -///Goto Goto 5,20 Dest:OK -goto IL_010d; -///Label Label 5,21 -case 15: -///Goto Goto 5,22 Dest:OK -goto IL_0117; -///Label Label 5,23 -case 18: -///Label Label 5,24 -case 19: -///Goto Goto 5,25 Dest:OK -goto IL_0134; -///Label Label 5,26 -case 20: -///Goto Goto 5,27 Dest:OK -goto IL_0151; -///Label Label 5,28 -case 21: -///Goto Goto 5,29 Dest:OK -goto IL_0178; -///Label Label 5,30 -case 22: -///Goto Goto 5,31 Dest:OK -goto IL_0191; -///Label Label 5,32 -case 23: -///Goto Goto 5,33 Dest:OK -goto IL_01aa; -///Label Label 5,34 -case 24: -///Goto Goto 5,35 Dest:OK -goto IL_01d0; -///Label Label 5,36 -case 26: -///Label Label 5,37 -case 28: -///Goto Goto 5,38 Dest:OK -goto IL_01f9; -///Label Label 5,39 -case 30: -///Label Label 5,40 -case 31: -///Goto Goto 5,41 Dest:OK -goto IL_021f; -///Label Label 5,42 -case 36: -///Goto Goto 5,43 Dest:OK -goto IL_0248; -///Label Label 5,44 -case 38: -///Label Label 5,45 -case 39: -///Goto Goto 5,46 Dest:OK -goto IL_0258; -///Label Label 5,47 -case 40: -///Goto Goto 5,48 Dest:OK -goto IL_0262; -///Label Label 5,49 -case 41: -///Goto Goto 5,50 Dest:OK -goto IL_026c; -///Label Label 5,51 -case 42: -///Goto Goto 5,52 Dest:OK -goto IL_027f; -///Label Label 5,53 -case 46: -///Goto Goto 5,54 Dest:OK -goto IL_029b; -///Label Label 5,55 -case 47: -///Goto Goto 5,56 Dest:OK -goto IL_02a5; -///Label Label 5,57 -case 48: -///Goto Goto 5,58 Dest:OK -goto IL_02b4; -///Label Label 5,59 -case 51: -///Label Label 5,60 -case 52: -///Goto Goto 5,61 Dest:OK -goto IL_02d0; -///Label Label 5,62 -case 53: -///Label Label 5,63 -case 55: -///Goto Goto 5,64 Dest:OK -goto IL_02f6; -///Label Label 5,65 -default: -///Goto Goto 5,66 Dest:OK -goto end_IL_0000; -///Label Label 5,67 -case 5: -///Label Label 5,68 -case 11: -///Label Label 5,69 -case 16: -///Label Label 5,70 -case 17: -///Label Label 5,71 -case 25: -///Label Label 5,72 -case 29: -///Label Label 5,73 -case 32: -///Label Label 5,74 -case 33: -///Label Label 5,75 -case 34: -///Label Label 5,76 -case 35: -///Label Label 5,77 -case 37: -///Label Label 5,78 -case 43: -///Label Label 5,79 -case 45: -///Label Label 5,80 -case 49: -///Label Label 5,81 -case 50: -///Label Label 5,82 -case 56: -///Label Label 5,83 -case 57: -///Label Label 5,84 -case 58: -///Goto Goto 5,85 Dest:OK -goto end_IL_0000_2; -///BlockEnd Block 5,86 -} -///Goto Goto 4,44 Dest:OK -goto default; -///Label Label 4,45 2 -IL_02a5: -///Operation Operation 4,46 -num = 47; -///Operation Operation 4,47 -FileSystem.FileClose(); -///Goto Goto 4,48 Dest:OK -goto IL_02b4; -///Label Label 4,49 2 -IL_02b4: -///Operation Operation 4,50 -num = 48; -///Operation Operation 4,51 -ProjectData.ClearProjectError(); -///Operation Operation 4,52 -if (num2 == 0) -///BlockStart Block 5,0 -{ -///Operation Operation 5,1 -throw ProjectData.CreateProjectError(-2146828268); -///BlockEnd Block 5,2 -} -///Goto Goto 4,53 Dest:OK -goto IL_0315; -///Label Label 4,54 2 -IL_008f: -///Operation Operation 4,55 -num = 8; -///Operation Operation 4,56 -RichTextBox1.SaveFile(COND.Verz1 + "TEMP\\Text2.RTF", RichTextBoxStreamType.RichText); -///Goto Goto 4,57 Dest:OK -goto IL_00ad; -///Label Label 4,58 2 -IL_0262: -///Operation Operation 4,59 -num = 40; -///Operation Operation 4,60 -prompt = "Das angegebene Gerät ist nicht bereit.\rBitte einschalten oder abbrechen."; -///Goto Goto 4,61 Dest:OK -goto IL_026c; -///Label Label 4,62 2 -IL_026c: -///Operation Operation 4,63 -num = 41; -///Operation Operation 4,64 -if (Interaction.MsgBox(prompt, MsgBoxStyle.OkCancel, "Fehler") == MsgBoxResult.Cancel) -///BlockStart Block 5,0 -{ -///Goto Goto 5,1 Dest:OK -goto end_IL_0000_2; -///BlockEnd Block 5,2 -} -///Goto Goto 4,65 Dest:OK -goto IL_027f; -///Label Label 4,66 2 -IL_027f: -///Operation Operation 4,67 -num = 42; -///Operation Operation 4,68 -ProjectData.ClearProjectError(); -///Operation Operation 4,69 -if (num2 == 0) -///BlockStart Block 5,0 -{ -///Operation Operation 5,1 -throw ProjectData.CreateProjectError(-2146828268); -///BlockEnd Block 5,2 -} -///Goto Goto 4,70 Dest:OK -goto IL_0315; -///Label Label 4,71 2 -IL_0117: -///Operation Operation 4,72 -num = 15; -///Operation Operation 4,73 -MyProject.Forms.Druck.Show(); -///Goto Goto 4,74 Dest:OK -goto end_IL_0000_2; -///Label Label 4,75 2 -IL_0015: -///Operation Operation 4,76 -ProjectData.ClearProjectError(); -///Operation Operation 4,77 -num3 = 2; -///Goto Goto 4,78 Dest:OK -goto IL_001d; -///Label Label 4,79 2 -IL_001d: -///Operation Operation 4,80 -num = 3; -///Operation Operation 4,81 -text = "Datum " + Strings.Mid(DateAndTime.DateString, 4, 2) + "." + DateAndTime.DateString.Left( 2) + "." + Strings.Mid(DateAndTime.DateString, 7, 4); -///Goto Goto 4,82 Dest:OK -goto IL_0073; -///Label Label 4,83 2 -IL_0073: -///Operation Operation 4,84 -num = 4; -///Operation Operation 4,85 -switch (index) -///BlockStart Block 5,0 -{ -///Label Label 5,1 -case 1: -///Operation Operation 5,2 -break; -///Label Label 5,3 -case 2: -///Goto Goto 5,4 Dest:OK -goto IL_00f9; -///Label Label 5,5 -case 3: -///Goto Goto 5,6 Dest:OK -goto IL_0134; -///Label Label 5,7 -default: -///Goto Goto 5,8 Dest:OK -goto end_IL_0000_2; -///BlockEnd Block 5,9 -} -///Goto Goto 4,86 Dest:OK -goto IL_008f; -///Label Label 4,87 2 -IL_0134: -///Operation Operation 4,88 -num = 19; -///Operation Operation 4,89 -MyProject.Forms.Hinter.CommonDialog1Save.Filter = "Text (*.txt)|*.txt|Formartierter Text (*.RTF)|*.RTF"; -///Goto Goto 4,90 Dest:OK -goto IL_0151; -///Label Label 4,91 2 -IL_0151: -///Operation Operation 4,92 -num = 20; -///Operation Operation 4,93 -MyProject.Forms.Hinter.CommonDialog1Save.InitialDirectory = COND.GenPlu + "list\\"; -///Goto Goto 4,94 Dest:OK -goto IL_0178; -///Label Label 4,95 2 -IL_0178: -///Operation Operation 4,96 -num = 21; -///Operation Operation 4,97 -MyProject.Forms.Hinter.CommonDialog1Save.FilterIndex = 2; -///Goto Goto 4,98 Dest:OK -goto IL_0191; -///Label Label 4,99 2 -IL_0191: -///Operation Operation 4,100 -num = 22; -///Operation Operation 4,101 -MyProject.Forms.Hinter.CommonDialog1Save.ShowDialog(); -///Goto Goto 4,102 Dest:OK -goto IL_01aa; -///Label Label 4,103 2 -IL_01aa: -///Operation Operation 4,104 -num = 23; -///Operation Operation 4,105 -if (MyProject.Forms.Hinter.CommonDialog1Save.FileName == "") -///BlockStart Block 5,0 -{ -///Goto Goto 5,1 Dest:OK -goto end_IL_0000_2; -///BlockEnd Block 5,2 -} -///Goto Goto 4,106 Dest:OK -goto IL_01d0; -///Label Label 4,107 2 -IL_01d0: -///Operation Operation 4,108 -num = 24; -///Operation Operation 4,109 -switch (MyProject.Forms.Hinter.CommonDialog1Save.FilterIndex) -///BlockStart Block 5,0 -{ -///Label Label 5,1 -case 1: -///Operation Operation 5,2 -break; -///Label Label 5,3 -case 2: -///Goto Goto 5,4 Dest:OK -goto IL_021f; -///Label Label 5,5 -default: -///Goto Goto 5,6 Dest:OK -goto end_IL_0000_2; -///BlockEnd Block 5,7 -} -///Goto Goto 4,110 Dest:OK -goto IL_01f9; -///Label Label 4,111 2 -IL_021f: -///Operation Operation 4,112 -num = 31; -///Operation Operation 4,113 -RichTextBox1.SaveFile(MyProject.Forms.Hinter.CommonDialog1Save.FileName, RichTextBoxStreamType.RichText); -///Goto Goto 4,114 Dest:OK -goto end_IL_0000_2; -///Label Label 4,115 2 -IL_01f9: -///Operation Operation 4,116 -num = 28; -///Operation Operation 4,117 -RichTextBox1.SaveFile(MyProject.Forms.Hinter.CommonDialog1Save.FileName, RichTextBoxStreamType.PlainText); -///Goto Goto 4,118 Dest:OK -goto end_IL_0000_2; -///Label Label 4,119 2 -IL_00f9: -///Operation Operation 4,120 -num = 13; -///Operation Operation 4,121 -RichTextBox1.Text = ""; -///Goto Goto 4,122 Dest:OK -goto IL_010d; -///Label Label 4,123 2 -IL_010d: -///Operation Operation 4,124 -num = 14; -///Operation Operation 4,125 -Close(); -///Goto Goto 4,126 Dest:OK -goto IL_0117; -///Label Label 4,127 2 -end_IL_0000: -///Operation Operation 4,128 -break; -///BlockEnd Block 4,129 -} -///BlockEnd Block 3,6 -} -///Operation Operation 2,2 -catch (Exception obj) when (obj is not null && num3 != 0 && num2 == 0) -///BlockStart Block 3,0 -{ -///Operation Operation 3,1 -ProjectData.SetProjectError(obj); -///Operation Operation 3,2 -try0000_dispatch = 1043; -///Operation Operation 3,3 -continue; -///BlockEnd Block 3,4 -} -///Operation Operation 2,3 -throw ProjectData.CreateProjectError(-2146828237); -///Operation Operation 2,4 -continue; -///Label Label 2,5 9 -end_IL_0000_2: -///Operation Operation 2,6 -break; -///BlockEnd Block 2,7 -} -///Operation Operation 1,9 -if (num2 != 0) -///BlockStart Block 2,0 -{ -///Operation Operation 2,1 -ProjectData.ClearProjectError(); -///BlockEnd Block 2,2 -} -///BlockEnd Block 1,10 -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test01/Test1ExpParseRL.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test01/Test1ExpParseRL.txt deleted file mode 100644 index ce796203f..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test01/Test1ExpParseRL.txt +++ /dev/null @@ -1,348 +0,0 @@ -///Declaration MainBlock 0,0 -private void Befehl_Click(object eventSender, EventArgs eventArgs) -///BlockStart Block 1,0 -{ -///Operation Operation 1,1 -int try0000_dispatch = -1; -///Operation Operation 1,2 -int num = default(int); -///Operation Operation 1,3 -short index = default(short); -///Operation Operation 1,4 -int num2 = default(int); -///Operation Operation 1,5 -int num3 = default(int); -///Operation Operation 1,6 -int number = default(int); -///Operation Operation 1,7 -string prompt = default(string); -///Operation Operation 1,8 -while (true) -///BlockStart Block 2,0 -{ -///Operation Operation 2,1 -try -///BlockStart Block 3,0 -{ -///Comment Comment 3,1 -/*Note: ILSpy has introduced the following switch to emulate a goto from catch-block to try-block*/ -///Operation Operation 3,2 -; -///Operation Operation 3,3 -int num4; -///Operation Operation 3,4 -string text; -///Operation Operation 3,5 -switch (try0000_dispatch) -///BlockStart Block 4,0 -{ -///Label Label 4,1 1 -default: -///Operation Operation 4,2 -num = 1; -///Operation Operation 4,3 -index = Befehl.GetIndex((Button)eventSender); -///Goto Goto 4,4 Dest:OK -goto IL_0015; -///Label Label 4,5 -case 1043: -///BlockStart Block 5,0 -{ -///Operation Operation 5,1 -num2 = num; -///Operation Operation 5,2 -switch (num3) -///BlockStart Block 6,0 -{ -///Label Label 6,1 -case 2: -///Operation Operation 6,2 -break; -///Label Label 6,3 -case 1: -///Goto Goto 6,4 Dest:OK -goto IL_0319; -///Label Label 6,5 -default: -///Goto Goto 6,6 Dest:OK -goto end_IL_0000; -///BlockEnd Block 6,7 -} -///Operation Operation 5,3 -number = Information.Err().Number; -///Operation Operation 5,4 -if (number == 25) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -prompt = "Das angegebene Gerät ist nicht bereit.\rBitte einschalten oder abbrechen."; -///Operation Operation 6,2 -if (Interaction.MsgBox(prompt, MsgBoxStyle.OkCancel, "Fehler") == MsgBoxResult.Cancel) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto end_IL_0000_2; -///BlockEnd Block 7,2 -} -///Operation Operation 6,3 -ProjectData.ClearProjectError(); -///Operation Operation 6,4 -if (num2 == 0) -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -throw ProjectData.CreateProjectError(-2146828268); -///BlockEnd Block 7,2 -} -///Goto Goto 6,5 Dest:OK -goto IL_0315; -///BlockEnd Block 6,6 -} -///Operation Operation 5,5 -if (number == 55) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -FileSystem.FileClose(); -///Operation Operation 6,2 -ProjectData.ClearProjectError(); -///Operation Operation 6,3 -if (num2 == 0) -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -throw ProjectData.CreateProjectError(-2146828268); -///BlockEnd Block 7,2 -} -///Goto Goto 6,4 Dest:OK -goto IL_0315; -///BlockEnd Block 6,5 -} -///Operation Operation 5,6 -if (Interaction.MsgBox(Conversion.ErrorToString(), MsgBoxStyle.OkCancel, (Information.Err().Number).AsString()) == MsgBoxResult.Cancel) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -ProjectData.EndApp(); -///BlockEnd Block 6,2 -} -///Operation Operation 5,7 -ProjectData.ClearProjectError(); -///Operation Operation 5,8 -if (num2 == 0) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -throw ProjectData.CreateProjectError(-2146828268); -///BlockEnd Block 6,2 -} -///Goto Goto 5,9 Dest:OK -goto IL_0315; -///BlockEnd Block 5,10 -} -///Label Label 4,6 1 -end_IL_0000: -///Operation Operation 4,7 -break; -///Label Label 4,8 1 -IL_0015: -///Operation Operation 4,9 -ProjectData.ClearProjectError(); -///Operation Operation 4,10 -num3 = 2; -///Operation Operation 4,11 -text = "Datum " + Strings.Mid(DateAndTime.DateString, 4, 2) + "." + DateAndTime.DateString.Left( 2) + "." + Strings.Mid(DateAndTime.DateString, 7, 4); -///Operation Operation 4,12 -switch (index) -///BlockStart Block 5,0 -{ -///Label Label 5,1 -case 1: -///Operation Operation 5,2 -break; -///Label Label 5,3 -case 2: -///Goto Goto 5,4 Dest:OK -goto IL_00f9; -///Label Label 5,5 -case 3: -///Goto Goto 5,6 Dest:OK -goto IL_0134; -///Label Label 5,7 -default: -///Goto Goto 5,8 Dest:OK -goto end_IL_0000_2; -///BlockEnd Block 5,9 -} -///Operation Operation 4,13 -RichTextBox1.SaveFile(COND.Verz1 + "TEMP\\Text2.RTF", RichTextBoxStreamType.RichText); -///Operation Operation 4,14 -RichTextBox1.LoadFile(COND.Verz1 + "TEMP\\Text2.RTF", RichTextBoxStreamType.RichText); -///Operation Operation 4,15 -Interaction.Shell(COND.Aus[7] + " " + COND.Verz1 + "Temp\\Text2.RTF", AppWinStyle.MaximizedFocus); -///Goto Goto 4,16 Dest:OK -goto end_IL_0000_2; -///Label Label 4,17 1 -IL_00f9: -///Operation Operation 4,18 -num = 13; -///Operation Operation 4,19 -RichTextBox1.Text = ""; -///Operation Operation 4,20 -Close(); -///Operation Operation 4,21 -MyProject.Forms.Druck.Show(); -///Goto Goto 4,22 Dest:OK -goto end_IL_0000_2; -///Label Label 4,23 1 -IL_0134: -///Operation Operation 4,24 -num = 19; -///Operation Operation 4,25 -MyProject.Forms.Hinter.CommonDialog1Save.Filter = "Text (*.txt)|*.txt|Formartierter Text (*.RTF)|*.RTF"; -///Operation Operation 4,26 -MyProject.Forms.Hinter.CommonDialog1Save.InitialDirectory = COND.GenPlu + "list\\"; -///Operation Operation 4,27 -MyProject.Forms.Hinter.CommonDialog1Save.FilterIndex = 2; -///Operation Operation 4,28 -MyProject.Forms.Hinter.CommonDialog1Save.ShowDialog(); -///Operation Operation 4,29 -if (MyProject.Forms.Hinter.CommonDialog1Save.FileName == "") -///BlockStart Block 5,0 -{ -///Goto Goto 5,1 Dest:OK -goto end_IL_0000_2; -///BlockEnd Block 5,2 -} -///Operation Operation 4,30 -switch (MyProject.Forms.Hinter.CommonDialog1Save.FilterIndex) -///BlockStart Block 5,0 -{ -///Label Label 5,1 -case 1: -///Operation Operation 5,2 -break; -///Label Label 5,3 -case 2: -///Goto Goto 5,4 Dest:OK -goto IL_021f; -///Label Label 5,5 -default: -///Goto Goto 5,6 Dest:OK -goto end_IL_0000_2; -///BlockEnd Block 5,7 -} -///Operation Operation 4,31 -RichTextBox1.SaveFile(MyProject.Forms.Hinter.CommonDialog1Save.FileName, RichTextBoxStreamType.PlainText); -///Goto Goto 4,32 Dest:OK -goto end_IL_0000_2; -///Label Label 4,33 1 -IL_021f: -///Operation Operation 4,34 -num = 31; -///Operation Operation 4,35 -RichTextBox1.SaveFile(MyProject.Forms.Hinter.CommonDialog1Save.FileName, RichTextBoxStreamType.RichText); -///Goto Goto 4,36 Dest:OK -goto end_IL_0000_2; -///Label Label 4,37 3 -IL_0315: -///Operation Operation 4,38 -num4 = num2; -///Goto Goto 4,39 Dest:OK -goto IL_031d; -///Label Label 4,40 1 -IL_0319: -///Operation Operation 4,41 -num4 = num2 + 1; -///Goto Goto 4,42 Dest:OK -goto IL_031d; -///Label Label 4,43 2 -IL_031d: -///Operation Operation 4,44 -num2 = 0; -///Operation Operation 4,45 -switch (num4) -///BlockStart Block 5,0 -{ -///Label Label 5,1 -case 1: -///Operation Operation 5,2 -break; -///Label Label 5,3 -case 5: -///Label Label 5,4 -case 11: -///Label Label 5,5 -case 16: -///Label Label 5,6 -case 17: -///Label Label 5,7 -case 25: -///Label Label 5,8 -case 29: -///Label Label 5,9 -case 32: -///Label Label 5,10 -case 33: -///Label Label 5,11 -case 34: -///Label Label 5,12 -case 35: -///Label Label 5,13 -case 37: -///Label Label 5,14 -case 43: -///Label Label 5,15 -case 45: -///Label Label 5,16 -case 49: -///Label Label 5,17 -case 50: -///Label Label 5,18 -case 56: -///Label Label 5,19 -case 57: -///Label Label 5,20 -case 58: -///Goto Goto 5,21 Dest:OK -goto end_IL_0000_2; -///BlockEnd Block 5,22 -} -///Goto Goto 4,46 Dest:OK -goto default; -///BlockEnd Block 4,47 -} -///BlockEnd Block 3,6 -} -///Operation Operation 2,2 -catch (Exception obj) when (obj is not null && num3 != 0 && num2 == 0) -///BlockStart Block 3,0 -{ -///Operation Operation 3,1 -ProjectData.SetProjectError(obj); -///Operation Operation 3,2 -try0000_dispatch = 1043; -///Operation Operation 3,3 -continue; -///BlockEnd Block 3,4 -} -///Operation Operation 2,3 -throw ProjectData.CreateProjectError(-2146828237); -///Operation Operation 2,4 -continue; -///Label Label 2,5 9 -end_IL_0000_2: -///Operation Operation 2,6 -break; -///BlockEnd Block 2,7 -} -///Operation Operation 1,9 -if (num2 != 0) -///BlockStart Block 2,0 -{ -///Operation Operation 2,1 -ProjectData.ClearProjectError(); -///BlockEnd Block 2,2 -} -///BlockEnd Block 1,10 -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test01/Test1ExpParseSL.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test01/Test1ExpParseSL.txt deleted file mode 100644 index c44382ff2..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test01/Test1ExpParseSL.txt +++ /dev/null @@ -1,614 +0,0 @@ -///Declaration MainBlock 0,0 -private void Befehl_Click(object eventSender, EventArgs eventArgs) -///BlockStart Block 1,0 -{ -///Operation Operation 1,1 -int try0000_dispatch = -1; -///Operation Operation 1,2 -int num = default(int); -///Operation Operation 1,3 -short index = default(short); -///Operation Operation 1,4 -int num2 = default(int); -///Operation Operation 1,5 -int num3 = default(int); -///Operation Operation 1,6 -int number = default(int); -///Operation Operation 1,7 -string prompt = default(string); -///Operation Operation 1,8 -while (true) -///BlockStart Block 2,0 -{ -///Operation Operation 2,1 -try -///BlockStart Block 3,0 -{ -///Comment Comment 3,1 -/*Note: ILSpy has introduced the following switch to emulate a goto from catch-block to try-block*/ -///Operation Operation 3,2 -; -///Operation Operation 3,3 -int num4; -///Operation Operation 3,4 -string text; -///Operation Operation 3,5 -switch (try0000_dispatch) -///BlockStart Block 4,0 -{ -///Label Label 4,1 1 -default: -///Operation Operation 4,2 -num = 1; -///Operation Operation 4,3 -index = Befehl.GetIndex((Button)eventSender); -///Goto Goto 4,4 Dest:OK -goto IL_0015; -///Label Label 4,5 -case 1043: -///BlockStart Block 5,0 -{ -///Operation Operation 5,1 -num2 = num; -///Operation Operation 5,2 -switch (num3) -///BlockStart Block 6,0 -{ -///Label Label 6,1 -case 2: -///Operation Operation 6,2 -break; -///Label Label 6,3 -case 1: -///Goto Goto 6,4 Dest:OK -goto IL_0319; -///Label Label 6,5 -default: -///Goto Goto 6,6 Dest:OK -goto end_IL_0000; -///BlockEnd Block 6,7 -} -///Goto Goto 5,3 Dest:OK -goto IL_0248; -///BlockEnd Block 5,4 -} -///Label Label 4,6 2 -end_IL_0000: -///Operation Operation 4,7 -break; -///Label Label 4,8 2 -IL_0015: -///Operation Operation 4,9 -ProjectData.ClearProjectError(); -///Operation Operation 4,10 -num3 = 2; -///Goto Goto 4,11 Dest:OK -goto IL_001d; -///Label Label 4,12 2 -IL_001d: -///Operation Operation 4,13 -num = 3; -///Operation Operation 4,14 -text = "Datum " + Strings.Mid(DateAndTime.DateString, 4, 2) + "." + DateAndTime.DateString.Left( 2) + "." + Strings.Mid(DateAndTime.DateString, 7, 4); -///Goto Goto 4,15 Dest:OK -goto IL_0073; -///Label Label 4,16 2 -IL_0073: -///Operation Operation 4,17 -num = 4; -///Operation Operation 4,18 -switch (index) -///BlockStart Block 5,0 -{ -///Label Label 5,1 -case 1: -///Operation Operation 5,2 -break; -///Label Label 5,3 -case 2: -///Goto Goto 5,4 Dest:OK -goto IL_00f9; -///Label Label 5,5 -case 3: -///Goto Goto 5,6 Dest:OK -goto IL_0134; -///Label Label 5,7 -default: -///Goto Goto 5,8 Dest:OK -goto end_IL_0000_2; -///BlockEnd Block 5,9 -} -///Goto Goto 4,19 Dest:OK -goto IL_008f; -///Label Label 4,20 2 -IL_008f: -///Operation Operation 4,21 -num = 8; -///Operation Operation 4,22 -RichTextBox1.SaveFile(COND.Verz1 + "TEMP\\Text2.RTF", RichTextBoxStreamType.RichText); -///Goto Goto 4,23 Dest:OK -goto IL_00ad; -///Label Label 4,24 2 -IL_00ad: -///Operation Operation 4,25 -num = 9; -///Operation Operation 4,26 -RichTextBox1.LoadFile(COND.Verz1 + "TEMP\\Text2.RTF", RichTextBoxStreamType.RichText); -///Goto Goto 4,27 Dest:OK -goto IL_00cc; -///Label Label 4,28 2 -IL_00cc: -///Operation Operation 4,29 -num = 10; -///Operation Operation 4,30 -Interaction.Shell(COND.Aus[7] + " " + COND.Verz1 + "Temp\\Text2.RTF", AppWinStyle.MaximizedFocus); -///Goto Goto 4,31 Dest:OK -goto end_IL_0000_2; -///Label Label 4,32 2 -IL_00f9: -///Operation Operation 4,33 -num = 13; -///Operation Operation 4,34 -RichTextBox1.Text = ""; -///Goto Goto 4,35 Dest:OK -goto IL_010d; -///Label Label 4,36 2 -IL_010d: -///Operation Operation 4,37 -num = 14; -///Operation Operation 4,38 -Close(); -///Goto Goto 4,39 Dest:OK -goto IL_0117; -///Label Label 4,40 2 -IL_0117: -///Operation Operation 4,41 -num = 15; -///Operation Operation 4,42 -MyProject.Forms.Druck.Show(); -///Goto Goto 4,43 Dest:OK -goto end_IL_0000_2; -///Label Label 4,44 2 -IL_0134: -///Operation Operation 4,45 -num = 19; -///Operation Operation 4,46 -MyProject.Forms.Hinter.CommonDialog1Save.Filter = "Text (*.txt)|*.txt|Formartierter Text (*.RTF)|*.RTF"; -///Goto Goto 4,47 Dest:OK -goto IL_0151; -///Label Label 4,48 2 -IL_0151: -///Operation Operation 4,49 -num = 20; -///Operation Operation 4,50 -MyProject.Forms.Hinter.CommonDialog1Save.InitialDirectory = COND.GenPlu + "list\\"; -///Goto Goto 4,51 Dest:OK -goto IL_0178; -///Label Label 4,52 2 -IL_0178: -///Operation Operation 4,53 -num = 21; -///Operation Operation 4,54 -MyProject.Forms.Hinter.CommonDialog1Save.FilterIndex = 2; -///Goto Goto 4,55 Dest:OK -goto IL_0191; -///Label Label 4,56 2 -IL_0191: -///Operation Operation 4,57 -num = 22; -///Operation Operation 4,58 -MyProject.Forms.Hinter.CommonDialog1Save.ShowDialog(); -///Goto Goto 4,59 Dest:OK -goto IL_01aa; -///Label Label 4,60 2 -IL_01aa: -///Operation Operation 4,61 -num = 23; -///Operation Operation 4,62 -if (MyProject.Forms.Hinter.CommonDialog1Save.FileName == "") -///BlockStart Block 5,0 -{ -///Goto Goto 5,1 Dest:OK -goto end_IL_0000_2; -///BlockEnd Block 5,2 -} -///Goto Goto 4,63 Dest:OK -goto IL_01d0; -///Label Label 4,64 2 -IL_01d0: -///Operation Operation 4,65 -num = 24; -///Operation Operation 4,66 -switch (MyProject.Forms.Hinter.CommonDialog1Save.FilterIndex) -///BlockStart Block 5,0 -{ -///Label Label 5,1 -case 1: -///Operation Operation 5,2 -break; -///Label Label 5,3 -case 2: -///Goto Goto 5,4 Dest:OK -goto IL_021f; -///Label Label 5,5 -default: -///Goto Goto 5,6 Dest:OK -goto end_IL_0000_2; -///BlockEnd Block 5,7 -} -///Goto Goto 4,67 Dest:OK -goto IL_01f9; -///Label Label 4,68 2 -IL_01f9: -///Operation Operation 4,69 -num = 28; -///Operation Operation 4,70 -RichTextBox1.SaveFile(MyProject.Forms.Hinter.CommonDialog1Save.FileName, RichTextBoxStreamType.PlainText); -///Goto Goto 4,71 Dest:OK -goto end_IL_0000_2; -///Label Label 4,72 2 -IL_021f: -///Operation Operation 4,73 -num = 31; -///Operation Operation 4,74 -RichTextBox1.SaveFile(MyProject.Forms.Hinter.CommonDialog1Save.FileName, RichTextBoxStreamType.RichText); -///Goto Goto 4,75 Dest:OK -goto end_IL_0000_2; -///Label Label 4,76 2 -IL_0248: -///Operation Operation 4,77 -num = 36; -///Operation Operation 4,78 -number = Information.Err().Number; -///Goto Goto 4,79 Dest:OK -goto IL_0258; -///Label Label 4,80 2 -IL_0258: -///Operation Operation 4,81 -num = 39; -///Operation Operation 4,82 -if (number == 25) -///BlockStart Block 5,0 -{ -///Goto Goto 5,1 Dest:OK -goto IL_0262; -///BlockEnd Block 5,2 -} -///Goto Goto 4,83 Dest:OK -goto IL_029b; -///Label Label 4,84 2 -IL_0262: -///Operation Operation 4,85 -num = 40; -///Operation Operation 4,86 -prompt = "Das angegebene Gerät ist nicht bereit.\rBitte einschalten oder abbrechen."; -///Goto Goto 4,87 Dest:OK -goto IL_026c; -///Label Label 4,88 2 -IL_026c: -///Operation Operation 4,89 -num = 41; -///Operation Operation 4,90 -if (Interaction.MsgBox(prompt, MsgBoxStyle.OkCancel, "Fehler") == MsgBoxResult.Cancel) -///BlockStart Block 5,0 -{ -///Goto Goto 5,1 Dest:OK -goto end_IL_0000_2; -///BlockEnd Block 5,2 -} -///Goto Goto 4,91 Dest:OK -goto IL_027f; -///Label Label 4,92 2 -IL_027f: -///Operation Operation 4,93 -num = 42; -///Operation Operation 4,94 -ProjectData.ClearProjectError(); -///Operation Operation 4,95 -if (num2 == 0) -///BlockStart Block 5,0 -{ -///Operation Operation 5,1 -throw ProjectData.CreateProjectError(-2146828268); -///BlockEnd Block 5,2 -} -///Goto Goto 4,96 Dest:OK -goto IL_0315; -///Label Label 4,97 2 -IL_029b: -///Operation Operation 4,98 -num = 46; -///Operation Operation 4,99 -if (number == 55) -///BlockStart Block 5,0 -{ -///Goto Goto 5,1 Dest:OK -goto IL_02a5; -///BlockEnd Block 5,2 -} -///Goto Goto 4,100 Dest:OK -goto IL_02d0; -///Label Label 4,101 2 -IL_02a5: -///Operation Operation 4,102 -num = 47; -///Operation Operation 4,103 -FileSystem.FileClose(); -///Goto Goto 4,104 Dest:OK -goto IL_02b4; -///Label Label 4,105 2 -IL_02b4: -///Operation Operation 4,106 -num = 48; -///Operation Operation 4,107 -ProjectData.ClearProjectError(); -///Operation Operation 4,108 -if (num2 == 0) -///BlockStart Block 5,0 -{ -///Operation Operation 5,1 -throw ProjectData.CreateProjectError(-2146828268); -///BlockEnd Block 5,2 -} -///Goto Goto 4,109 Dest:OK -goto IL_0315; -///Label Label 4,110 2 -IL_02d0: -///Operation Operation 4,111 -num = 52; -///Operation Operation 4,112 -if (Interaction.MsgBox(Conversion.ErrorToString(), MsgBoxStyle.OkCancel, (Information.Err().Number).AsString()) == MsgBoxResult.Cancel) -///BlockStart Block 5,0 -{ -///Operation Operation 5,1 -ProjectData.EndApp(); -///BlockEnd Block 5,2 -} -///Goto Goto 4,113 Dest:OK -goto IL_02f6; -///Label Label 4,114 2 -IL_02f6: -///Operation Operation 4,115 -num = 55; -///Operation Operation 4,116 -ProjectData.ClearProjectError(); -///Operation Operation 4,117 -if (num2 == 0) -///BlockStart Block 5,0 -{ -///Operation Operation 5,1 -throw ProjectData.CreateProjectError(-2146828268); -///BlockEnd Block 5,2 -} -///Goto Goto 4,118 Dest:OK -goto IL_0315; -///Label Label 4,119 3 -IL_0315: -///Operation Operation 4,120 -num4 = num2; -///Goto Goto 4,121 Dest:OK -goto IL_031d; -///Label Label 4,122 1 -IL_0319: -///Operation Operation 4,123 -num4 = num2 + 1; -///Goto Goto 4,124 Dest:OK -goto IL_031d; -///Label Label 4,125 2 -IL_031d: -///Operation Operation 4,126 -num2 = 0; -///Operation Operation 4,127 -switch (num4) -///BlockStart Block 5,0 -{ -///Label Label 5,1 -case 1: -///Operation Operation 5,2 -break; -///Label Label 5,3 -case 2: -///Goto Goto 5,4 Dest:OK -goto IL_0015; -///Label Label 5,5 -case 3: -///Goto Goto 5,6 Dest:OK -goto IL_001d; -///Label Label 5,7 -case 4: -///Goto Goto 5,8 Dest:OK -goto IL_0073; -///Label Label 5,9 -case 6: -///Label Label 5,10 -case 8: -///Goto Goto 5,11 Dest:OK -goto IL_008f; -///Label Label 5,12 -case 9: -///Goto Goto 5,13 Dest:OK -goto IL_00ad; -///Label Label 5,14 -case 10: -///Goto Goto 5,15 Dest:OK -goto IL_00cc; -///Label Label 5,16 -case 12: -///Label Label 5,17 -case 13: -///Goto Goto 5,18 Dest:OK -goto IL_00f9; -///Label Label 5,19 -case 14: -///Goto Goto 5,20 Dest:OK -goto IL_010d; -///Label Label 5,21 -case 15: -///Goto Goto 5,22 Dest:OK -goto IL_0117; -///Label Label 5,23 -case 18: -///Label Label 5,24 -case 19: -///Goto Goto 5,25 Dest:OK -goto IL_0134; -///Label Label 5,26 -case 20: -///Goto Goto 5,27 Dest:OK -goto IL_0151; -///Label Label 5,28 -case 21: -///Goto Goto 5,29 Dest:OK -goto IL_0178; -///Label Label 5,30 -case 22: -///Goto Goto 5,31 Dest:OK -goto IL_0191; -///Label Label 5,32 -case 23: -///Goto Goto 5,33 Dest:OK -goto IL_01aa; -///Label Label 5,34 -case 24: -///Goto Goto 5,35 Dest:OK -goto IL_01d0; -///Label Label 5,36 -case 26: -///Label Label 5,37 -case 28: -///Goto Goto 5,38 Dest:OK -goto IL_01f9; -///Label Label 5,39 -case 30: -///Label Label 5,40 -case 31: -///Goto Goto 5,41 Dest:OK -goto IL_021f; -///Label Label 5,42 -case 36: -///Goto Goto 5,43 Dest:OK -goto IL_0248; -///Label Label 5,44 -case 38: -///Label Label 5,45 -case 39: -///Goto Goto 5,46 Dest:OK -goto IL_0258; -///Label Label 5,47 -case 40: -///Goto Goto 5,48 Dest:OK -goto IL_0262; -///Label Label 5,49 -case 41: -///Goto Goto 5,50 Dest:OK -goto IL_026c; -///Label Label 5,51 -case 42: -///Goto Goto 5,52 Dest:OK -goto IL_027f; -///Label Label 5,53 -case 46: -///Goto Goto 5,54 Dest:OK -goto IL_029b; -///Label Label 5,55 -case 47: -///Goto Goto 5,56 Dest:OK -goto IL_02a5; -///Label Label 5,57 -case 48: -///Goto Goto 5,58 Dest:OK -goto IL_02b4; -///Label Label 5,59 -case 51: -///Label Label 5,60 -case 52: -///Goto Goto 5,61 Dest:OK -goto IL_02d0; -///Label Label 5,62 -case 53: -///Label Label 5,63 -case 55: -///Goto Goto 5,64 Dest:OK -goto IL_02f6; -///Label Label 5,65 -default: -///Goto Goto 5,66 Dest:OK -goto end_IL_0000; -///Label Label 5,67 -case 5: -///Label Label 5,68 -case 11: -///Label Label 5,69 -case 16: -///Label Label 5,70 -case 17: -///Label Label 5,71 -case 25: -///Label Label 5,72 -case 29: -///Label Label 5,73 -case 32: -///Label Label 5,74 -case 33: -///Label Label 5,75 -case 34: -///Label Label 5,76 -case 35: -///Label Label 5,77 -case 37: -///Label Label 5,78 -case 43: -///Label Label 5,79 -case 45: -///Label Label 5,80 -case 49: -///Label Label 5,81 -case 50: -///Label Label 5,82 -case 56: -///Label Label 5,83 -case 57: -///Label Label 5,84 -case 58: -///Goto Goto 5,85 Dest:OK -goto end_IL_0000_2; -///BlockEnd Block 5,86 -} -///Goto Goto 4,128 Dest:OK -goto default; -///BlockEnd Block 4,129 -} -///BlockEnd Block 3,6 -} -///Operation Operation 2,2 -catch (Exception obj) when (obj is not null && num3 != 0 && num2 == 0) -///BlockStart Block 3,0 -{ -///Operation Operation 3,1 -ProjectData.SetProjectError(obj); -///Operation Operation 3,2 -try0000_dispatch = 1043; -///Operation Operation 3,3 -continue; -///BlockEnd Block 3,4 -} -///Operation Operation 2,3 -throw ProjectData.CreateProjectError(-2146828237); -///Operation Operation 2,4 -continue; -///Label Label 2,5 9 -end_IL_0000_2: -///Operation Operation 2,6 -break; -///BlockEnd Block 2,7 -} -///Operation Operation 1,9 -if (num2 != 0) -///BlockStart Block 2,0 -{ -///Operation Operation 2,1 -ProjectData.ClearProjectError(); -///BlockEnd Block 2,2 -} -///BlockEnd Block 1,10 -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test01/Test1ExpTokenize.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test01/Test1ExpTokenize.txt deleted file mode 100644 index fb1d5b63c..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test01/Test1ExpTokenize.txt +++ /dev/null @@ -1,355 +0,0 @@ -T:Operation,0,private void Befehl_Click(object eventSender, EventArgs eventArgs) -T:Block,1,{ -T:Operation,1,int try0000_dispatch = -1; -T:Operation,1,int num = default(int); -T:Operation,1,short index = default(short); -T:Operation,1,int num2 = default(int); -T:Operation,1,int num3 = default(int); -T:Operation,1,int number = default(int); -T:Operation,1,string prompt = default(string); -T:Operation,1,while -T:Operation,1,(true) -T:Block,2,{ -T:Operation,2,try -T:Block,3,{ -T:Operation,3, -T:Comment,3,/*Note: ILSpy has introduced the following switch to emulate a goto from catch-block to try-block*/ -T:Operation,3,; -T:Operation,3,int num4; -T:Operation,3,string text; -T:Operation,3,switch -T:Operation,3,(try0000_dispatch) -T:Block,4,{ -T:Label,4,default: -T:Operation,4,num = 1; -T:Operation,4,index = Befehl.GetIndex((Button)eventSender); -T:Goto,4,goto IL_0015; -T:Label,4,case 1043: -T:Block,5,{ -T:Operation,5,num2 = num; -T:Operation,5,switch -T:Operation,5,(num3) -T:Block,6,{ -T:Label,6,case 2: -T:Operation,6,break; -T:Label,6,case 1: -T:Goto,6,goto IL_0319; -T:Label,6,default: -T:Goto,6,goto end_IL_0000; -T:Block,6,} -T:Goto,5,goto IL_0248; -T:Block,5,} -T:Label,4,IL_0319: -T:Operation,4,num4 = num2 + 1; -T:Goto,4,goto IL_031d; -T:Label,4,IL_0248: -T:Operation,4,num = 36; -T:Operation,4,number = Information.Err().Number; -T:Goto,4,goto IL_0258; -T:Label,4,IL_0258: -T:Operation,4,num = 39; -T:Operation,4,if -T:Operation,4,(number == 25) -T:Block,5,{ -T:Goto,5,goto IL_0262; -T:Block,5,} -T:Goto,4,goto IL_029b; -T:Label,4,IL_029b: -T:Operation,4,num = 46; -T:Operation,4,if -T:Operation,4,(number == 55) -T:Block,5,{ -T:Goto,5,goto IL_02a5; -T:Block,5,} -T:Goto,4,goto IL_02d0; -T:Label,4,IL_02d0: -T:Operation,4,num = 52; -T:Operation,4,if -T:Operation,4,(Interaction.MsgBox(Conversion.ErrorToString(), MsgBoxStyle.OkCancel, (Information.Err().Number).AsString()) == MsgBoxResult.Cancel) -T:Block,5,{ -T:Operation,5,ProjectData.EndApp(); -T:Block,5,} -T:Goto,4,goto IL_02f6; -T:Label,4,IL_00ad: -T:Operation,4,num = 9; -T:Operation,4,RichTextBox1.LoadFile(COND.Verz1 + -T:String,4,"TEMP\\Text2.RTF" -T:Operation,4,, RichTextBoxStreamType.RichText); -T:Goto,4,goto IL_00cc; -T:Label,4,IL_02f6: -T:Operation,4,num = 55; -T:Operation,4,ProjectData.ClearProjectError(); -T:Operation,4,if -T:Operation,4,(num2 == 0) -T:Block,5,{ -T:Operation,5,throw -T:Operation,5,ProjectData.CreateProjectError(-2146828268); -T:Block,5,} -T:Goto,4,goto IL_0315; -T:Label,4,IL_00cc: -T:Operation,4,num = 10; -T:Operation,4,Interaction.Shell(COND.Aus[7] + -T:String,4," " -T:Operation,4,+ COND.Verz1 + -T:String,4,"Temp\\Text2.RTF" -T:Operation,4,, AppWinStyle.MaximizedFocus); -T:Goto,4,goto end_IL_0000_2; -T:Label,4,IL_0315: -T:Operation,4,num4 = num2; -T:Goto,4,goto IL_031d; -T:Label,4,IL_031d: -T:Operation,4,num2 = 0; -T:Operation,4,switch -T:Operation,4,(num4) -T:Block,5,{ -T:Label,5,case 1: -T:Operation,5,break; -T:Label,5,case 2: -T:Goto,5,goto IL_0015; -T:Label,5,case 3: -T:Goto,5,goto IL_001d; -T:Label,5,case 4: -T:Goto,5,goto IL_0073; -T:Label,5,case 6: -T:Label,5,case 8: -T:Goto,5,goto IL_008f; -T:Label,5,case 9: -T:Goto,5,goto IL_00ad; -T:Label,5,case 10: -T:Goto,5,goto IL_00cc; -T:Label,5,case 12: -T:Label,5,case 13: -T:Goto,5,goto IL_00f9; -T:Label,5,case 14: -T:Goto,5,goto IL_010d; -T:Label,5,case 15: -T:Goto,5,goto IL_0117; -T:Label,5,case 18: -T:Label,5,case 19: -T:Goto,5,goto IL_0134; -T:Label,5,case 20: -T:Goto,5,goto IL_0151; -T:Label,5,case 21: -T:Goto,5,goto IL_0178; -T:Label,5,case 22: -T:Goto,5,goto IL_0191; -T:Label,5,case 23: -T:Goto,5,goto IL_01aa; -T:Label,5,case 24: -T:Goto,5,goto IL_01d0; -T:Label,5,case 26: -T:Label,5,case 28: -T:Goto,5,goto IL_01f9; -T:Label,5,case 30: -T:Label,5,case 31: -T:Goto,5,goto IL_021f; -T:Label,5,case 36: -T:Goto,5,goto IL_0248; -T:Label,5,case 38: -T:Label,5,case 39: -T:Goto,5,goto IL_0258; -T:Label,5,case 40: -T:Goto,5,goto IL_0262; -T:Label,5,case 41: -T:Goto,5,goto IL_026c; -T:Label,5,case 42: -T:Goto,5,goto IL_027f; -T:Label,5,case 46: -T:Goto,5,goto IL_029b; -T:Label,5,case 47: -T:Goto,5,goto IL_02a5; -T:Label,5,case 48: -T:Goto,5,goto IL_02b4; -T:Label,5,case 51: -T:Label,5,case 52: -T:Goto,5,goto IL_02d0; -T:Label,5,case 53: -T:Label,5,case 55: -T:Goto,5,goto IL_02f6; -T:Label,5,default: -T:Goto,5,goto end_IL_0000; -T:Label,5,case 5: -T:Label,5,case 11: -T:Label,5,case 16: -T:Label,5,case 17: -T:Label,5,case 25: -T:Label,5,case 29: -T:Label,5,case 32: -T:Label,5,case 33: -T:Label,5,case 34: -T:Label,5,case 35: -T:Label,5,case 37: -T:Label,5,case 43: -T:Label,5,case 45: -T:Label,5,case 49: -T:Label,5,case 50: -T:Label,5,case 56: -T:Label,5,case 57: -T:Label,5,case 58: -T:Goto,5,goto end_IL_0000_2; -T:Block,5,} -T:Goto,4,goto default; -T:Label,4,IL_02a5: -T:Operation,4,num = 47; -T:Operation,4,FileSystem.FileClose(); -T:Goto,4,goto IL_02b4; -T:Label,4,IL_02b4: -T:Operation,4,num = 48; -T:Operation,4,ProjectData.ClearProjectError(); -T:Operation,4,if -T:Operation,4,(num2 == 0) -T:Block,5,{ -T:Operation,5,throw -T:Operation,5,ProjectData.CreateProjectError(-2146828268); -T:Block,5,} -T:Goto,4,goto IL_0315; -T:Label,4,IL_008f: -T:Operation,4,num = 8; -T:Operation,4,RichTextBox1.SaveFile(COND.Verz1 + -T:String,4,"TEMP\\Text2.RTF" -T:Operation,4,, RichTextBoxStreamType.RichText); -T:Goto,4,goto IL_00ad; -T:Label,4,IL_0262: -T:Operation,4,num = 40; -T:Operation,4,prompt = -T:String,4,"Das angegebene Gerät ist nicht bereit.\rBitte einschalten oder abbrechen." -T:Operation,4,; -T:Goto,4,goto IL_026c; -T:Label,4,IL_026c: -T:Operation,4,num = 41; -T:Operation,4,if -T:Operation,4,(Interaction.MsgBox(prompt, MsgBoxStyle.OkCancel, -T:String,4,"Fehler" -T:Operation,4,) == MsgBoxResult.Cancel) -T:Block,5,{ -T:Goto,5,goto end_IL_0000_2; -T:Block,5,} -T:Goto,4,goto IL_027f; -T:Label,4,IL_027f: -T:Operation,4,num = 42; -T:Operation,4,ProjectData.ClearProjectError(); -T:Operation,4,if -T:Operation,4,(num2 == 0) -T:Block,5,{ -T:Operation,5,throw -T:Operation,5,ProjectData.CreateProjectError(-2146828268); -T:Block,5,} -T:Goto,4,goto IL_0315; -T:Label,4,IL_0117: -T:Operation,4,num = 15; -T:Operation,4,MyProject.Forms.Druck.Show(); -T:Goto,4,goto end_IL_0000_2; -T:Label,4,IL_0015: -T:Operation,4,ProjectData.ClearProjectError(); -T:Operation,4,num3 = 2; -T:Goto,4,goto IL_001d; -T:Label,4,IL_001d: -T:Operation,4,num = 3; -T:Operation,4,text = -T:String,4,"Datum " -T:Operation,4,+ Strings.Mid(DateAndTime.DateString, 4, 2) + -T:String,4,"." -T:Operation,4,+ DateAndTime.DateString.Left( 2) + -T:String,4,"." -T:Operation,4,+ Strings.Mid(DateAndTime.DateString, 7, 4); -T:Goto,4,goto IL_0073; -T:Label,4,IL_0073: -T:Operation,4,num = 4; -T:Operation,4,switch -T:Operation,4,(index) -T:Block,5,{ -T:Label,5,case 1: -T:Operation,5,break; -T:Label,5,case 2: -T:Goto,5,goto IL_00f9; -T:Label,5,case 3: -T:Goto,5,goto IL_0134; -T:Label,5,default: -T:Goto,5,goto end_IL_0000_2; -T:Block,5,} -T:Goto,4,goto IL_008f; -T:Label,4,IL_0134: -T:Operation,4,num = 19; -T:Operation,4,MyProject.Forms.Hinter.CommonDialog1Save.Filter = -T:String,4,"Text (*.txt)|*.txt|Formartierter Text (*.RTF)|*.RTF" -T:Operation,4,; -T:Goto,4,goto IL_0151; -T:Label,4,IL_0151: -T:Operation,4,num = 20; -T:Operation,4,MyProject.Forms.Hinter.CommonDialog1Save.InitialDirectory = COND.GenPlu + -T:String,4,"list\\" -T:Operation,4,; -T:Goto,4,goto IL_0178; -T:Label,4,IL_0178: -T:Operation,4,num = 21; -T:Operation,4,MyProject.Forms.Hinter.CommonDialog1Save.FilterIndex = 2; -T:Goto,4,goto IL_0191; -T:Label,4,IL_0191: -T:Operation,4,num = 22; -T:Operation,4,MyProject.Forms.Hinter.CommonDialog1Save.ShowDialog(); -T:Goto,4,goto IL_01aa; -T:Label,4,IL_01aa: -T:Operation,4,num = 23; -T:Operation,4,if -T:Operation,4,(MyProject.Forms.Hinter.CommonDialog1Save.FileName == -T:String,4,"" -T:Operation,4,) -T:Block,5,{ -T:Goto,5,goto end_IL_0000_2; -T:Block,5,} -T:Goto,4,goto IL_01d0; -T:Label,4,IL_01d0: -T:Operation,4,num = 24; -T:Operation,4,switch -T:Operation,4,(MyProject.Forms.Hinter.CommonDialog1Save.FilterIndex) -T:Block,5,{ -T:Label,5,case 1: -T:Operation,5,break; -T:Label,5,case 2: -T:Goto,5,goto IL_021f; -T:Label,5,default: -T:Goto,5,goto end_IL_0000_2; -T:Block,5,} -T:Goto,4,goto IL_01f9; -T:Label,4,IL_021f: -T:Operation,4,num = 31; -T:Operation,4,RichTextBox1.SaveFile(MyProject.Forms.Hinter.CommonDialog1Save.FileName, RichTextBoxStreamType.RichText); -T:Goto,4,goto end_IL_0000_2; -T:Label,4,IL_01f9: -T:Operation,4,num = 28; -T:Operation,4,RichTextBox1.SaveFile(MyProject.Forms.Hinter.CommonDialog1Save.FileName, RichTextBoxStreamType.PlainText); -T:Goto,4,goto end_IL_0000_2; -T:Label,4,IL_00f9: -T:Operation,4,num = 13; -T:Operation,4,RichTextBox1.Text = -T:String,4,"" -T:Operation,4,; -T:Goto,4,goto IL_010d; -T:Label,4,IL_010d: -T:Operation,4,num = 14; -T:Operation,4,Close(); -T:Goto,4,goto IL_0117; -T:Label,4,end_IL_0000: -T:Operation,4,break; -T:Block,4,} -T:Block,3,} -T:Operation,2,catch -T:Operation,2,(Exception obj) -T:Operation,2,when (obj is not null && num3 != 0 && num2 == 0) -T:Block,3,{ -T:Operation,3,ProjectData.SetProjectError(obj); -T:Operation,3,try0000_dispatch = 1043; -T:Operation,3,continue; -T:Block,3,} -T:Operation,2,throw -T:Operation,2,ProjectData.CreateProjectError(-2146828237); -T:Operation,2,continue; -T:Label,2,end_IL_0000_2: -T:Operation,2,break; -T:Block,2,} -T:Operation,1,if -T:Operation,1,(num2 != 0) -T:Block,2,{ -T:Operation,2,ProjectData.ClearProjectError(); -T:Block,2,} -T:Block,1,} diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test02/Test2Dat.cs b/Transpiler_pp/TranspilerLibTests/Resources/Test02/Test2Dat.cs deleted file mode 100644 index 84db4caa0..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test02/Test2Dat.cs +++ /dev/null @@ -1,110 +0,0 @@ - private void Button2_Click(object sender, EventArgs e) - { - //Discarded unreachable code: IL_0085 - int try0000_dispatch = -1; - int num3 = default(int); - int num2 = default(int); - int num = default(int); - byte b = default(byte); - while (true) - { - try - { - /*Note: ILSpy has introduced the following switch to emulate a goto from catch-block to try-block*/ - ; - switch (try0000_dispatch) - { - default: - ProjectData.ClearProjectError(); - num3 = 1; - goto IL_0007; - case 196: - { - num2 = num; - switch (num3) - { - case 1: - break; - default: - goto end_IL_0000; - } - int num4 = num2 + 1; - num2 = 0; - switch (num4) - { - case 1: - break; - case 2: - goto IL_0007; - case 3: - goto IL_0024; - case 6: - goto IL_002b; - case 7: - goto IL_0033; - case 4: - case 5: - case 8: - goto IL_0048; - case 9: - goto IL_0054; - case 10: - goto end_IL_0000_2; - default: - goto end_IL_0000; - case 11: - goto end_IL_0000_3; - } - goto default; - } - IL_0033: - num = 7; - FileSystem.Input(99, ref COND.Aus[b]); - goto IL_0048; - IL_0007: - num = 2; - FileSystem.FileOpen(99, COND.GenPlu + "\\Init\\Druck_ini.dat", OpenMode.Input); - goto IL_0024; - IL_0024: - num = 3; - b = 0; - goto IL_0048; - IL_0048: - num = 5; - if (!FileSystem.EOF(99)) - { - goto IL_002b; - } - goto IL_0054; - IL_0054: - num = 9; - FileSystem.FileClose(99); - break; - IL_002b: - num = 6; - b = checked((byte)(unchecked(b) + 1)); - goto IL_0033; - end_IL_0000_2: - break; - } - num = 10; - Process.Start(COND.GenPlu + "\\Hilfe\\TeilB.PDF"); - break; - end_IL_0000:; - } - catch (Exception obj) when (obj is not null && num3 != 0 && num2 == 0) - { - ProjectData.SetProjectError(obj); - try0000_dispatch = 196; - continue; - } - throw ProjectData.CreateProjectError(-2146828237); - continue; - end_IL_0000_3: - break; - } - if (num2 != 0) - { - ProjectData.ClearProjectError(); - } - } \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test02/Test2Dat.cs.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test02/Test2Dat.cs.txt deleted file mode 100644 index 84db4caa0..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test02/Test2Dat.cs.txt +++ /dev/null @@ -1,110 +0,0 @@ - private void Button2_Click(object sender, EventArgs e) - { - //Discarded unreachable code: IL_0085 - int try0000_dispatch = -1; - int num3 = default(int); - int num2 = default(int); - int num = default(int); - byte b = default(byte); - while (true) - { - try - { - /*Note: ILSpy has introduced the following switch to emulate a goto from catch-block to try-block*/ - ; - switch (try0000_dispatch) - { - default: - ProjectData.ClearProjectError(); - num3 = 1; - goto IL_0007; - case 196: - { - num2 = num; - switch (num3) - { - case 1: - break; - default: - goto end_IL_0000; - } - int num4 = num2 + 1; - num2 = 0; - switch (num4) - { - case 1: - break; - case 2: - goto IL_0007; - case 3: - goto IL_0024; - case 6: - goto IL_002b; - case 7: - goto IL_0033; - case 4: - case 5: - case 8: - goto IL_0048; - case 9: - goto IL_0054; - case 10: - goto end_IL_0000_2; - default: - goto end_IL_0000; - case 11: - goto end_IL_0000_3; - } - goto default; - } - IL_0033: - num = 7; - FileSystem.Input(99, ref COND.Aus[b]); - goto IL_0048; - IL_0007: - num = 2; - FileSystem.FileOpen(99, COND.GenPlu + "\\Init\\Druck_ini.dat", OpenMode.Input); - goto IL_0024; - IL_0024: - num = 3; - b = 0; - goto IL_0048; - IL_0048: - num = 5; - if (!FileSystem.EOF(99)) - { - goto IL_002b; - } - goto IL_0054; - IL_0054: - num = 9; - FileSystem.FileClose(99); - break; - IL_002b: - num = 6; - b = checked((byte)(unchecked(b) + 1)); - goto IL_0033; - end_IL_0000_2: - break; - } - num = 10; - Process.Start(COND.GenPlu + "\\Hilfe\\TeilB.PDF"); - break; - end_IL_0000:; - } - catch (Exception obj) when (obj is not null && num3 != 0 && num2 == 0) - { - ProjectData.SetProjectError(obj); - try0000_dispatch = 196; - continue; - } - throw ProjectData.CreateProjectError(-2146828237); - continue; - end_IL_0000_3: - break; - } - if (num2 != 0) - { - ProjectData.ClearProjectError(); - } - } \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test02/Test2DataList.json b/Transpiler_pp/TranspilerLibTests/Resources/Test02/Test2DataList.json deleted file mode 100644 index 1d7f5cb2c..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test02/Test2DataList.json +++ /dev/null @@ -1 +0,0 @@ -[{"Code":"private void Button2_Click(object sender, EventArgs e)","type":"operation","Level":0,"Pos":0},{"Code":"{","type":"block","Level":1,"Pos":64},{"Code":"","type":"operation","Level":1,"Pos":65},{"Code":"//Discarded unreachable code: IL_0085","type":"lComment","Level":1,"Pos":75},{"Code":"int try0000_dispatch = -1;","type":"operation","Level":1,"Pos":113},{"Code":"int num3 = default(int);","type":"operation","Level":1,"Pos":148},{"Code":"int num2 = default(int);","type":"operation","Level":1,"Pos":182},{"Code":"int num = default(int);","type":"operation","Level":1,"Pos":216},{"Code":"byte b = default(byte);","type":"operation","Level":1,"Pos":249},{"Code":"while","type":"operation","Level":1,"Pos":282},{"Code":"(true)","type":"operation","Level":1,"Pos":297},{"Code":"{","type":"block","Level":2,"Pos":314},{"Code":"try","type":"operation","Level":2,"Pos":315},{"Code":"{","type":"block","Level":3,"Pos":346},{"Code":"","type":"operation","Level":3,"Pos":347},{"Code":"/*Note: ILSpy has introduced the following switch to emulate a goto from catch-block to try-block*/","type":"comment","Level":3,"Pos":365},{"Code":";","type":"operation","Level":3,"Pos":464},{"Code":"switch","type":"operation","Level":3,"Pos":483},{"Code":"(try0000_dispatch)","type":"operation","Level":3,"Pos":507},{"Code":"{","type":"block","Level":4,"Pos":544},{"Code":"default:","type":"label","Level":4,"Pos":545},{"Code":"ProjectData.ClearProjectError();","type":"operation","Level":4,"Pos":575},{"Code":"num3 = 1;","type":"operation","Level":4,"Pos":633},{"Code":"goto IL_0007;","type":"goto","Level":4,"Pos":668},{"Code":"case 196:","type":"label","Level":4,"Pos":707},{"Code":"{","type":"block","Level":5,"Pos":764},{"Code":"num2 = num;","type":"operation","Level":5,"Pos":765},{"Code":"switch","type":"operation","Level":5,"Pos":806},{"Code":"(num3)","type":"operation","Level":5,"Pos":842},{"Code":"{","type":"block","Level":6,"Pos":879},{"Code":"case 1:","type":"label","Level":6,"Pos":880},{"Code":"break;","type":"operation","Level":6,"Pos":921},{"Code":"default:","type":"label","Level":6,"Pos":965},{"Code":"goto end_IL_0000;","type":"goto","Level":6,"Pos":1007},{"Code":"}","type":"block","Level":6,"Pos":1092},{"Code":"int num4 = num2 \u002B 1;","type":"operation","Level":5,"Pos":1093},{"Code":"num2 = 0;","type":"operation","Level":5,"Pos":1143},{"Code":"switch","type":"operation","Level":5,"Pos":1182},{"Code":"(num4)","type":"operation","Level":5,"Pos":1218},{"Code":"{","type":"block","Level":6,"Pos":1255},{"Code":"case 1:","type":"label","Level":6,"Pos":1256},{"Code":"break;","type":"operation","Level":6,"Pos":1297},{"Code":"case 2:","type":"label","Level":6,"Pos":1341},{"Code":"goto IL_0007;","type":"goto","Level":6,"Pos":1382},{"Code":"case 3:","type":"label","Level":6,"Pos":1433},{"Code":"goto IL_0024;","type":"goto","Level":6,"Pos":1474},{"Code":"case 6:","type":"label","Level":6,"Pos":1525},{"Code":"goto IL_002b;","type":"goto","Level":6,"Pos":1566},{"Code":"case 7:","type":"label","Level":6,"Pos":1617},{"Code":"goto IL_0033;","type":"goto","Level":6,"Pos":1658},{"Code":"case 4:","type":"label","Level":6,"Pos":1709},{"Code":"case 5:","type":"label","Level":6,"Pos":1750},{"Code":"case 8:","type":"label","Level":6,"Pos":1791},{"Code":"goto IL_0048;","type":"goto","Level":6,"Pos":1832},{"Code":"case 9:","type":"label","Level":6,"Pos":1883},{"Code":"goto IL_0054;","type":"goto","Level":6,"Pos":1924},{"Code":"case 10:","type":"label","Level":6,"Pos":1975},{"Code":"goto end_IL_0000_2;","type":"goto","Level":6,"Pos":2017},{"Code":"default:","type":"label","Level":6,"Pos":2074},{"Code":"goto end_IL_0000;","type":"goto","Level":6,"Pos":2116},{"Code":"case 11:","type":"label","Level":6,"Pos":2171},{"Code":"goto end_IL_0000_3;","type":"goto","Level":6,"Pos":2213},{"Code":"}","type":"block","Level":6,"Pos":2300},{"Code":"goto default;","type":"goto","Level":5,"Pos":2301},{"Code":"}","type":"block","Level":5,"Pos":2370},{"Code":"IL_0033:","type":"label","Level":4,"Pos":2371},{"Code":"num = 7;","type":"operation","Level":4,"Pos":2401},{"Code":"FileSystem.Input(99, ref COND.Aus[b]);","type":"operation","Level":4,"Pos":2435},{"Code":"goto IL_0048;","type":"goto","Level":4,"Pos":2499},{"Code":"IL_0007:","type":"label","Level":4,"Pos":2538},{"Code":"num = 2;","type":"operation","Level":4,"Pos":2568},{"Code":"FileSystem.FileOpen(99, COND.GenPlu \u002B","type":"operation","Level":4,"Pos":2602},{"Code":"\u0022\\\\Init\\\\Druck_ini.dat\u0022","type":"string","Level":4,"Pos":2666},{"Code":", OpenMode.Input);","type":"operation","Level":4,"Pos":2689},{"Code":"goto IL_0024;","type":"goto","Level":4,"Pos":2707},{"Code":"IL_0024:","type":"label","Level":4,"Pos":2746},{"Code":"num = 3;","type":"operation","Level":4,"Pos":2776},{"Code":"b = 0;","type":"operation","Level":4,"Pos":2810},{"Code":"goto IL_0048;","type":"goto","Level":4,"Pos":2842},{"Code":"IL_0048:","type":"label","Level":4,"Pos":2881},{"Code":"num = 5;","type":"operation","Level":4,"Pos":2911},{"Code":"if","type":"operation","Level":4,"Pos":2945},{"Code":"(!FileSystem.EOF(99))","type":"operation","Level":4,"Pos":2973},{"Code":"{","type":"block","Level":5,"Pos":3021},{"Code":"goto IL_002b;","type":"goto","Level":5,"Pos":3022},{"Code":"}","type":"block","Level":5,"Pos":3091},{"Code":"goto IL_0054;","type":"goto","Level":4,"Pos":3092},{"Code":"IL_0054:","type":"label","Level":4,"Pos":3131},{"Code":"num = 9;","type":"operation","Level":4,"Pos":3161},{"Code":"FileSystem.FileClose(99);","type":"operation","Level":4,"Pos":3195},{"Code":"break;","type":"operation","Level":4,"Pos":3246},{"Code":"IL_002b:","type":"label","Level":4,"Pos":3278},{"Code":"num = 6;","type":"operation","Level":4,"Pos":3308},{"Code":"b = checked((byte)(unchecked(b) \u002B 1));","type":"operation","Level":4,"Pos":3342},{"Code":"goto IL_0033;","type":"goto","Level":4,"Pos":3406},{"Code":"end_IL_0000_2:","type":"label","Level":4,"Pos":3445},{"Code":"break;","type":"operation","Level":4,"Pos":3481},{"Code":"}","type":"block","Level":4,"Pos":3531},{"Code":"num = 10;","type":"operation","Level":3,"Pos":3532},{"Code":"Process.Start(COND.GenPlu \u002B","type":"operation","Level":3,"Pos":3559},{"Code":"\u0022\\\\Hilfe\\\\TeilB.PDF\u0022","type":"string","Level":3,"Pos":3605},{"Code":");","type":"operation","Level":3,"Pos":3625},{"Code":"break;","type":"operation","Level":3,"Pos":3627},{"Code":"end_IL_0000:","type":"label","Level":3,"Pos":3651},{"Code":";","type":"operation","Level":3,"Pos":3677},{"Code":"}","type":"block","Level":3,"Pos":3692},{"Code":"catch","type":"operation","Level":2,"Pos":3693},{"Code":"(Exception obj)","type":"operation","Level":2,"Pos":3712},{"Code":"when (obj is not null \u0026\u0026 num3 != 0 \u0026\u0026 num2 == 0)","type":"operation","Level":2,"Pos":3729},{"Code":"{","type":"block","Level":3,"Pos":3791},{"Code":"ProjectData.SetProjectError(obj);","type":"operation","Level":3,"Pos":3792},{"Code":"try0000_dispatch = 196;","type":"operation","Level":3,"Pos":3843},{"Code":"continue;","type":"operation","Level":3,"Pos":3884},{"Code":"}","type":"block","Level":3,"Pos":3925},{"Code":"throw","type":"operation","Level":2,"Pos":3926},{"Code":"ProjectData.CreateProjectError(-2146828237);","type":"operation","Level":2,"Pos":3945},{"Code":"continue;","type":"operation","Level":2,"Pos":3990},{"Code":"end_IL_0000_3:","type":"label","Level":2,"Pos":4013},{"Code":"break;","type":"operation","Level":2,"Pos":4037},{"Code":"}","type":"block","Level":2,"Pos":4067},{"Code":"if","type":"operation","Level":1,"Pos":4068},{"Code":"(num2 != 0)","type":"operation","Level":1,"Pos":4080},{"Code":"{","type":"block","Level":2,"Pos":4102},{"Code":"ProjectData.ClearProjectError();","type":"operation","Level":2,"Pos":4103},{"Code":"}","type":"block","Level":2,"Pos":4159},{"Code":"}","type":"block","Level":1,"Pos":4166}] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test02/Test2ExpCode.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test02/Test2ExpCode.txt deleted file mode 100644 index c677329b4..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test02/Test2ExpCode.txt +++ /dev/null @@ -1,111 +0,0 @@ - private void Button2_Click(object sender, EventArgs e) - { - //Discarded unreachable code: IL_0085 - int try0000_dispatch = -1; - int num3 = default(int); - int num2 = default(int); - int num = default(int); - byte b = default(byte); - while (true) - { - try - { - /*Note: ILSpy has introduced the following switch to emulate a goto from catch-block to try-block*/ - ; - switch (try0000_dispatch) - { - default: - ProjectData.ClearProjectError(); - num3 = 1; - goto IL_0007; - case 196: - { - num2 = num; - switch (num3) - { - case 1: - break; - default: - goto end_IL_0000; - } - int num4 = num2 + 1; - num2 = 0; - switch (num4) - { - case 1: - break; - case 2: - goto IL_0007; - case 3: - goto IL_0024; - case 6: - goto IL_002b; - case 7: - goto IL_0033; - case 4: - case 5: - case 8: - goto IL_0048; - case 9: - goto IL_0054; - case 10: - goto end_IL_0000_2; - default: - goto end_IL_0000; - case 11: - goto end_IL_0000_3; - } - goto default; - } - IL_0033: - num = 7; - FileSystem.Input(99, ref COND.Aus[b]); - goto IL_0048; - IL_0007: - num = 2; - FileSystem.FileOpen(99, COND.GenPlu + "\\Init\\Druck_ini.dat", OpenMode.Input); - goto IL_0024; - IL_0024: - num = 3; - b = 0; - goto IL_0048; - IL_0048: // <========== 3 - num = 5; - if (!FileSystem.EOF(99)) - { - goto IL_002b; - } - goto IL_0054; - IL_0054: - num = 9; - FileSystem.FileClose(99); - break; - IL_002b: - num = 6; - b = checked((byte)(unchecked(b) + 1)); - goto IL_0033; - end_IL_0000_2: - break; - } - num = 10; - Process.Start(COND.GenPlu + "\\Hilfe\\TeilB.PDF"); - break; - end_IL_0000: - ; - } - catch (Exception obj) when (obj is not null && num3 != 0 && num2 == 0) - { - ProjectData.SetProjectError(obj); - try0000_dispatch = 196; - continue; - } - throw ProjectData.CreateProjectError(-2146828237); - continue; - end_IL_0000_3: - break; - } - if (num2 != 0) - { - ProjectData.ClearProjectError(); - } - } \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test02/Test2ExpParse.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test02/Test2ExpParse.txt deleted file mode 100644 index d225cd201..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test02/Test2ExpParse.txt +++ /dev/null @@ -1,222 +0,0 @@ -///Declaration MainBlock 0,0 -private void Button2_Click(object sender, EventArgs e) -///BlockStart Block 1,0 -{ -///Comment LComment 1,1 -//Discarded unreachable code: IL_0085 -///Operation Operation 1,2 -int try0000_dispatch = -1; -///Operation Operation 1,3 -int num3 = default(int); -///Operation Operation 1,4 -int num2 = default(int); -///Operation Operation 1,5 -int num = default(int); -///Operation Operation 1,6 -byte b = default(byte); -///Operation Operation 1,7 -while (true) -///BlockStart Block 2,0 -{ -///Operation Operation 2,1 -try -///BlockStart Block 3,0 -{ -///Comment Comment 3,1 -/*Note: ILSpy has introduced the following switch to emulate a goto from catch-block to try-block*/ -///Operation Operation 3,2 -; -///Operation Operation 3,3 -switch (try0000_dispatch) -///BlockStart Block 4,0 -{ -///Label Label 4,1 1 -default: -///Operation Operation 4,2 -ProjectData.ClearProjectError(); -///Operation Operation 4,3 -num3 = 1; -///Goto Goto 4,4 Dest:OK -goto IL_0007; -///Label Label 4,5 -case 196: -///BlockStart Block 5,0 -{ -///Operation Operation 5,1 -num2 = num; -///Operation Operation 5,2 -switch (num3) -///BlockStart Block 6,0 -{ -///Label Label 6,1 -case 1: -///Operation Operation 6,2 -break; -///Label Label 6,3 -default: -///Goto Goto 6,4 Dest:OK -goto end_IL_0000; -///BlockEnd Block 6,5 -} -///Operation Operation 5,3 -int num4 = num2 + 1; -///Operation Operation 5,4 -num2 = 0; -///Operation Operation 5,5 -switch (num4) -///BlockStart Block 6,0 -{ -///Label Label 6,1 -case 1: -///Operation Operation 6,2 -break; -///Label Label 6,3 -case 2: -///Goto Goto 6,4 Dest:OK -goto IL_0007; -///Label Label 6,5 -case 3: -///Goto Goto 6,6 Dest:OK -goto IL_0024; -///Label Label 6,7 -case 6: -///Goto Goto 6,8 Dest:OK -goto IL_002b; -///Label Label 6,9 -case 7: -///Goto Goto 6,10 Dest:OK -goto IL_0033; -///Label Label 6,11 -case 4: -///Label Label 6,12 -case 5: -///Label Label 6,13 -case 8: -///Goto Goto 6,14 Dest:OK -goto IL_0048; -///Label Label 6,15 -case 9: -///Goto Goto 6,16 Dest:OK -goto IL_0054; -///Label Label 6,17 -case 10: -///Goto Goto 6,18 Dest:OK -goto end_IL_0000_2; -///Label Label 6,19 -default: -///Goto Goto 6,20 Dest:OK -goto end_IL_0000; -///Label Label 6,21 -case 11: -///Goto Goto 6,22 Dest:OK -goto end_IL_0000_3; -///BlockEnd Block 6,23 -} -///Goto Goto 5,6 Dest:OK -goto default; -///BlockEnd Block 5,7 -} -///Label Label 4,6 2 -IL_0033: -///Operation Operation 4,7 -num = 7; -///Operation Operation 4,8 -FileSystem.Input(99, ref COND.Aus[b]); -///Goto Goto 4,9 Dest:OK -goto IL_0048; -///Label Label 4,10 2 -IL_0007: -///Operation Operation 4,11 -num = 2; -///Operation Operation 4,12 -FileSystem.FileOpen(99, COND.GenPlu + "\\Init\\Druck_ini.dat", OpenMode.Input); -///Goto Goto 4,13 Dest:OK -goto IL_0024; -///Label Label 4,14 2 -IL_0024: -///Operation Operation 4,15 -num = 3; -///Operation Operation 4,16 -b = 0; -///Goto Goto 4,17 Dest:OK -goto IL_0048; -///Label Label 4,18 3 -IL_0048: -///Operation Operation 4,19 -num = 5; -///Operation Operation 4,20 -if (!FileSystem.EOF(99)) -///BlockStart Block 5,0 -{ -///Goto Goto 5,1 Dest:OK -goto IL_002b; -///BlockEnd Block 5,2 -} -///Goto Goto 4,21 Dest:OK -goto IL_0054; -///Label Label 4,22 2 -IL_0054: -///Operation Operation 4,23 -num = 9; -///Operation Operation 4,24 -FileSystem.FileClose(99); -///Operation Operation 4,25 -break; -///Label Label 4,26 2 -IL_002b: -///Operation Operation 4,27 -num = 6; -///Operation Operation 4,28 -b = checked((byte)(unchecked(b) + 1)); -///Goto Goto 4,29 Dest:OK -goto IL_0033; -///Label Label 4,30 1 -end_IL_0000_2: -///Operation Operation 4,31 -break; -///BlockEnd Block 4,32 -} -///Operation Operation 3,4 -num = 10; -///Operation Operation 3,5 -Process.Start(COND.GenPlu + "\\Hilfe\\TeilB.PDF"); -///Operation Operation 3,6 -break; -///Label Label 3,7 2 -end_IL_0000: -///Operation Operation 3,8 -; -///BlockEnd Block 3,9 -} -///Operation Operation 2,2 -catch (Exception obj) when (obj is not null && num3 != 0 && num2 == 0) -///BlockStart Block 3,0 -{ -///Operation Operation 3,1 -ProjectData.SetProjectError(obj); -///Operation Operation 3,2 -try0000_dispatch = 196; -///Operation Operation 3,3 -continue; -///BlockEnd Block 3,4 -} -///Operation Operation 2,3 -throw ProjectData.CreateProjectError(-2146828237); -///Operation Operation 2,4 -continue; -///Label Label 2,5 1 -end_IL_0000_3: -///Operation Operation 2,6 -break; -///BlockEnd Block 2,7 -} -///Operation Operation 1,8 -if (num2 != 0) -///BlockStart Block 2,0 -{ -///Operation Operation 2,1 -ProjectData.ClearProjectError(); -///BlockEnd Block 2,2 -} -///BlockEnd Block 1,9 -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test02/Test2ExpParseRL.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test02/Test2ExpParseRL.txt deleted file mode 100644 index 78753d6af..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test02/Test2ExpParseRL.txt +++ /dev/null @@ -1,158 +0,0 @@ -///Declaration MainBlock 0,0 -private void Button2_Click(object sender, EventArgs e) -///BlockStart Block 1,0 -{ -///Comment LComment 1,1 -//Discarded unreachable code: IL_0085 -///Operation Operation 1,2 -int try0000_dispatch = -1; -///Operation Operation 1,3 -int num3 = default(int); -///Operation Operation 1,4 -int num2 = default(int); -///Operation Operation 1,5 -int num = default(int); -///Operation Operation 1,6 -byte b = default(byte); -///Operation Operation 1,7 -while (true) -///BlockStart Block 2,0 -{ -///Operation Operation 2,1 -try -///BlockStart Block 3,0 -{ -///Comment Comment 3,1 -/*Note: ILSpy has introduced the following switch to emulate a goto from catch-block to try-block*/ -///Operation Operation 3,2 -; -///Operation Operation 3,3 -switch (try0000_dispatch) -///BlockStart Block 4,0 -{ -///Label Label 4,1 1 -default: -///Operation Operation 4,2 -ProjectData.ClearProjectError(); -///Operation Operation 4,3 -num3 = 1; -///Goto Goto 4,4 Dest:OK -goto IL_0007; -///Label Label 4,5 -case 196: -///BlockStart Block 5,0 -{ -///Operation Operation 5,1 -num2 = num; -///Operation Operation 5,2 -switch (num3) -///BlockStart Block 6,0 -{ -///Label Label 6,1 -case 1: -///Operation Operation 6,2 -break; -///Label Label 6,3 -default: -///Goto Goto 6,4 Dest:OK -goto end_IL_0000; -///BlockEnd Block 6,5 -} -///Operation Operation 5,3 -int num4 = num2 + 1; -///Operation Operation 5,4 -num2 = 0; -///Operation Operation 5,5 -switch (num4) -///BlockStart Block 6,0 -{ -///Label Label 6,1 -case 1: -///Operation Operation 6,2 -break; -///Label Label 6,3 -case 10: -///Goto Goto 6,4 Dest:OK -goto end_IL_0000_2; -///Label Label 6,5 -case 11: -///Goto Goto 6,6 Dest:OK -goto end_IL_0000_3; -///BlockEnd Block 6,7 -} -///Goto Goto 5,6 Dest:OK -goto default; -///BlockEnd Block 5,7 -} -///Label Label 4,6 1 -end_IL_0000_2: -///Operation Operation 4,7 -break; -///Label Label 4,8 1 -IL_0007: -///Operation Operation 4,9 -num = 2; -///Operation Operation 4,10 -FileSystem.FileOpen(99, COND.GenPlu + "\\Init\\Druck_ini.dat", OpenMode.Input); -///Operation Operation 4,11 -b = 0; -///Operation Operation 4,12 -while (!FileSystem.EOF(99)) -///BlockStart Block 5,0 -{ -///Operation Operation 5,1 -b = checked((byte)(unchecked(b) + 1)); -///Operation Operation 5,2 -FileSystem.Input(99, ref COND.Aus[b]); -///BlockEnd Block 5,3 -} -///Operation Operation 4,13 -FileSystem.FileClose(99); -///Operation Operation 4,14 -break; -///BlockEnd Block 4,15 -} -///Operation Operation 3,4 -num = 10; -///Operation Operation 3,5 -Process.Start(COND.GenPlu + "\\Hilfe\\TeilB.PDF"); -///Operation Operation 3,6 -break; -///Label Label 3,7 1 -end_IL_0000: -///Operation Operation 3,8 -; -///BlockEnd Block 3,9 -} -///Operation Operation 2,2 -catch (Exception obj) when (obj is not null && num3 != 0 && num2 == 0) -///BlockStart Block 3,0 -{ -///Operation Operation 3,1 -ProjectData.SetProjectError(obj); -///Operation Operation 3,2 -try0000_dispatch = 196; -///Operation Operation 3,3 -continue; -///BlockEnd Block 3,4 -} -///Operation Operation 2,3 -throw ProjectData.CreateProjectError(-2146828237); -///Operation Operation 2,4 -continue; -///Label Label 2,5 1 -end_IL_0000_3: -///Operation Operation 2,6 -break; -///BlockEnd Block 2,7 -} -///Operation Operation 1,8 -if (num2 != 0) -///BlockStart Block 2,0 -{ -///Operation Operation 2,1 -ProjectData.ClearProjectError(); -///BlockEnd Block 2,2 -} -///BlockEnd Block 1,9 -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test02/Test2ExpParseSL.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test02/Test2ExpParseSL.txt deleted file mode 100644 index d3d774944..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test02/Test2ExpParseSL.txt +++ /dev/null @@ -1,222 +0,0 @@ -///Declaration MainBlock 0,0 -private void Button2_Click(object sender, EventArgs e) -///BlockStart Block 1,0 -{ -///Comment LComment 1,1 -//Discarded unreachable code: IL_0085 -///Operation Operation 1,2 -int try0000_dispatch = -1; -///Operation Operation 1,3 -int num3 = default(int); -///Operation Operation 1,4 -int num2 = default(int); -///Operation Operation 1,5 -int num = default(int); -///Operation Operation 1,6 -byte b = default(byte); -///Operation Operation 1,7 -while (true) -///BlockStart Block 2,0 -{ -///Operation Operation 2,1 -try -///BlockStart Block 3,0 -{ -///Comment Comment 3,1 -/*Note: ILSpy has introduced the following switch to emulate a goto from catch-block to try-block*/ -///Operation Operation 3,2 -; -///Operation Operation 3,3 -switch (try0000_dispatch) -///BlockStart Block 4,0 -{ -///Label Label 4,1 1 -default: -///Operation Operation 4,2 -ProjectData.ClearProjectError(); -///Operation Operation 4,3 -num3 = 1; -///Goto Goto 4,4 Dest:OK -goto IL_0007; -///Label Label 4,5 -case 196: -///BlockStart Block 5,0 -{ -///Operation Operation 5,1 -num2 = num; -///Operation Operation 5,2 -switch (num3) -///BlockStart Block 6,0 -{ -///Label Label 6,1 -case 1: -///Operation Operation 6,2 -break; -///Label Label 6,3 -default: -///Goto Goto 6,4 Dest:OK -goto end_IL_0000; -///BlockEnd Block 6,5 -} -///Operation Operation 5,3 -int num4 = num2 + 1; -///Operation Operation 5,4 -num2 = 0; -///Operation Operation 5,5 -switch (num4) -///BlockStart Block 6,0 -{ -///Label Label 6,1 -case 1: -///Operation Operation 6,2 -break; -///Label Label 6,3 -case 2: -///Goto Goto 6,4 Dest:OK -goto IL_0007; -///Label Label 6,5 -case 3: -///Goto Goto 6,6 Dest:OK -goto IL_0024; -///Label Label 6,7 -case 6: -///Goto Goto 6,8 Dest:OK -goto IL_002b; -///Label Label 6,9 -case 7: -///Goto Goto 6,10 Dest:OK -goto IL_0033; -///Label Label 6,11 -case 4: -///Label Label 6,12 -case 5: -///Label Label 6,13 -case 8: -///Goto Goto 6,14 Dest:OK -goto IL_0048; -///Label Label 6,15 -case 9: -///Goto Goto 6,16 Dest:OK -goto IL_0054; -///Label Label 6,17 -case 10: -///Goto Goto 6,18 Dest:OK -goto end_IL_0000_2; -///Label Label 6,19 -default: -///Goto Goto 6,20 Dest:OK -goto end_IL_0000; -///Label Label 6,21 -case 11: -///Goto Goto 6,22 Dest:OK -goto end_IL_0000_3; -///BlockEnd Block 6,23 -} -///Goto Goto 5,6 Dest:OK -goto default; -///BlockEnd Block 5,7 -} -///Label Label 4,6 1 -end_IL_0000_2: -///Operation Operation 4,7 -break; -///Label Label 4,8 2 -IL_0007: -///Operation Operation 4,9 -num = 2; -///Operation Operation 4,10 -FileSystem.FileOpen(99, COND.GenPlu + "\\Init\\Druck_ini.dat", OpenMode.Input); -///Goto Goto 4,11 Dest:OK -goto IL_0024; -///Label Label 4,12 2 -IL_0024: -///Operation Operation 4,13 -num = 3; -///Operation Operation 4,14 -b = 0; -///Goto Goto 4,15 Dest:OK -goto IL_0048; -///Label Label 4,16 2 -IL_002b: -///Operation Operation 4,17 -num = 6; -///Operation Operation 4,18 -b = checked((byte)(unchecked(b) + 1)); -///Goto Goto 4,19 Dest:OK -goto IL_0033; -///Label Label 4,20 2 -IL_0033: -///Operation Operation 4,21 -num = 7; -///Operation Operation 4,22 -FileSystem.Input(99, ref COND.Aus[b]); -///Goto Goto 4,23 Dest:OK -goto IL_0048; -///Label Label 4,24 3 -IL_0048: -///Operation Operation 4,25 -num = 5; -///Operation Operation 4,26 -if (!FileSystem.EOF(99)) -///BlockStart Block 5,0 -{ -///Goto Goto 5,1 Dest:OK -goto IL_002b; -///BlockEnd Block 5,2 -} -///Goto Goto 4,27 Dest:OK -goto IL_0054; -///Label Label 4,28 2 -IL_0054: -///Operation Operation 4,29 -num = 9; -///Operation Operation 4,30 -FileSystem.FileClose(99); -///Operation Operation 4,31 -break; -///BlockEnd Block 4,32 -} -///Operation Operation 3,4 -num = 10; -///Operation Operation 3,5 -Process.Start(COND.GenPlu + "\\Hilfe\\TeilB.PDF"); -///Operation Operation 3,6 -break; -///Label Label 3,7 2 -end_IL_0000: -///Operation Operation 3,8 -; -///BlockEnd Block 3,9 -} -///Operation Operation 2,2 -catch (Exception obj) when (obj is not null && num3 != 0 && num2 == 0) -///BlockStart Block 3,0 -{ -///Operation Operation 3,1 -ProjectData.SetProjectError(obj); -///Operation Operation 3,2 -try0000_dispatch = 196; -///Operation Operation 3,3 -continue; -///BlockEnd Block 3,4 -} -///Operation Operation 2,3 -throw ProjectData.CreateProjectError(-2146828237); -///Operation Operation 2,4 -continue; -///Label Label 2,5 1 -end_IL_0000_3: -///Operation Operation 2,6 -break; -///BlockEnd Block 2,7 -} -///Operation Operation 1,8 -if (num2 != 0) -///BlockStart Block 2,0 -{ -///Operation Operation 2,1 -ProjectData.ClearProjectError(); -///BlockEnd Block 2,2 -} -///BlockEnd Block 1,9 -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test02/Test2ExpTokenize.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test02/Test2ExpTokenize.txt deleted file mode 100644 index c38f34ca3..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test02/Test2ExpTokenize.txt +++ /dev/null @@ -1,126 +0,0 @@ -T:Operation,0,private void Button2_Click(object sender, EventArgs e) -T:Block,1,{ -T:Operation,1, -T:LComment,1,//Discarded unreachable code: IL_0085 -T:Operation,1,int try0000_dispatch = -1; -T:Operation,1,int num3 = default(int); -T:Operation,1,int num2 = default(int); -T:Operation,1,int num = default(int); -T:Operation,1,byte b = default(byte); -T:Operation,1,while -T:Operation,1,(true) -T:Block,2,{ -T:Operation,2,try -T:Block,3,{ -T:Operation,3, -T:Comment,3,/*Note: ILSpy has introduced the following switch to emulate a goto from catch-block to try-block*/ -T:Operation,3,; -T:Operation,3,switch -T:Operation,3,(try0000_dispatch) -T:Block,4,{ -T:Label,4,default: -T:Operation,4,ProjectData.ClearProjectError(); -T:Operation,4,num3 = 1; -T:Goto,4,goto IL_0007; -T:Label,4,case 196: -T:Block,5,{ -T:Operation,5,num2 = num; -T:Operation,5,switch -T:Operation,5,(num3) -T:Block,6,{ -T:Label,6,case 1: -T:Operation,6,break; -T:Label,6,default: -T:Goto,6,goto end_IL_0000; -T:Block,6,} -T:Operation,5,int num4 = num2 + 1; -T:Operation,5,num2 = 0; -T:Operation,5,switch -T:Operation,5,(num4) -T:Block,6,{ -T:Label,6,case 1: -T:Operation,6,break; -T:Label,6,case 2: -T:Goto,6,goto IL_0007; -T:Label,6,case 3: -T:Goto,6,goto IL_0024; -T:Label,6,case 6: -T:Goto,6,goto IL_002b; -T:Label,6,case 7: -T:Goto,6,goto IL_0033; -T:Label,6,case 4: -T:Label,6,case 5: -T:Label,6,case 8: -T:Goto,6,goto IL_0048; -T:Label,6,case 9: -T:Goto,6,goto IL_0054; -T:Label,6,case 10: -T:Goto,6,goto end_IL_0000_2; -T:Label,6,default: -T:Goto,6,goto end_IL_0000; -T:Label,6,case 11: -T:Goto,6,goto end_IL_0000_3; -T:Block,6,} -T:Goto,5,goto default; -T:Block,5,} -T:Label,4,IL_0033: -T:Operation,4,num = 7; -T:Operation,4,FileSystem.Input(99, ref COND.Aus[b]); -T:Goto,4,goto IL_0048; -T:Label,4,IL_0007: -T:Operation,4,num = 2; -T:Operation,4,FileSystem.FileOpen(99, COND.GenPlu + -T:String,4,"\\Init\\Druck_ini.dat" -T:Operation,4,, OpenMode.Input); -T:Goto,4,goto IL_0024; -T:Label,4,IL_0024: -T:Operation,4,num = 3; -T:Operation,4,b = 0; -T:Goto,4,goto IL_0048; -T:Label,4,IL_0048: -T:Operation,4,num = 5; -T:Operation,4,if -T:Operation,4,(!FileSystem.EOF(99)) -T:Block,5,{ -T:Goto,5,goto IL_002b; -T:Block,5,} -T:Goto,4,goto IL_0054; -T:Label,4,IL_0054: -T:Operation,4,num = 9; -T:Operation,4,FileSystem.FileClose(99); -T:Operation,4,break; -T:Label,4,IL_002b: -T:Operation,4,num = 6; -T:Operation,4,b = checked((byte)(unchecked(b) + 1)); -T:Goto,4,goto IL_0033; -T:Label,4,end_IL_0000_2: -T:Operation,4,break; -T:Block,4,} -T:Operation,3,num = 10; -T:Operation,3,Process.Start(COND.GenPlu + -T:String,3,"\\Hilfe\\TeilB.PDF" -T:Operation,3,); -T:Operation,3,break; -T:Label,3,end_IL_0000: -T:Operation,3,; -T:Block,3,} -T:Operation,2,catch -T:Operation,2,(Exception obj) -T:Operation,2,when (obj is not null && num3 != 0 && num2 == 0) -T:Block,3,{ -T:Operation,3,ProjectData.SetProjectError(obj); -T:Operation,3,try0000_dispatch = 196; -T:Operation,3,continue; -T:Block,3,} -T:Operation,2,throw -T:Operation,2,ProjectData.CreateProjectError(-2146828237); -T:Operation,2,continue; -T:Label,2,end_IL_0000_3: -T:Operation,2,break; -T:Block,2,} -T:Operation,1,if -T:Operation,1,(num2 != 0) -T:Block,2,{ -T:Operation,2,ProjectData.ClearProjectError(); -T:Block,2,} -T:Block,1,} diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test08/Test8Dat.cs b/Transpiler_pp/TranspilerLibTests/Resources/Test08/Test8Dat.cs deleted file mode 100644 index a24d10218..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test08/Test8Dat.cs +++ /dev/null @@ -1,21 +0,0 @@ -public void Test8() -{ - if (true) - goto IL_109; - else - goto IL_1003; - IL_109: - num = 209; - i++; - goto IL_10002; -IL_1003: - num = 210; - i--; - goto IL_10002; -IL_10002: - num = 212; - goto IL_100001; -IL_100001: - num = 213; - return; -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test08/Test8DataList.json b/Transpiler_pp/TranspilerLibTests/Resources/Test08/Test8DataList.json deleted file mode 100644 index 32da6a7ee..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test08/Test8DataList.json +++ /dev/null @@ -1 +0,0 @@ -[{"Code":"public void Test8()","type":"operation","Level":0,"Pos":0},{"Code":"{","type":"block","Level":1,"Pos":21},{"Code":"if","type":"operation","Level":1,"Pos":22},{"Code":"(true)","type":"operation","Level":1,"Pos":30},{"Code":"goto IL_109;","type":"goto","Level":1,"Pos":47},{"Code":"else","type":"operation","Level":1,"Pos":59},{"Code":"goto IL_1003;","type":"goto","Level":1,"Pos":69},{"Code":"IL_109:","type":"label","Level":1,"Pos":92},{"Code":"num = 209;","type":"operation","Level":1,"Pos":105},{"Code":"i\u002B\u002B;","type":"operation","Level":1,"Pos":121},{"Code":"goto IL_10002;","type":"goto","Level":1,"Pos":131},{"Code":"IL_1003:","type":"label","Level":1,"Pos":151},{"Code":"num = 210;","type":"operation","Level":1,"Pos":161},{"Code":"i--;","type":"operation","Level":1,"Pos":177},{"Code":"goto IL_10002;","type":"goto","Level":1,"Pos":187},{"Code":"IL_10002:","type":"label","Level":1,"Pos":207},{"Code":"num = 212;","type":"operation","Level":1,"Pos":218},{"Code":"goto IL_100001;","type":"goto","Level":1,"Pos":234},{"Code":"IL_100001:","type":"label","Level":1,"Pos":255},{"Code":"num = 213;","type":"operation","Level":1,"Pos":267},{"Code":"return;","type":"operation","Level":1,"Pos":283},{"Code":"}","type":"block","Level":1,"Pos":298}] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test08/Test8ExpCode.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test08/Test8ExpCode.txt deleted file mode 100644 index 6c7083130..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test08/Test8ExpCode.txt +++ /dev/null @@ -1,21 +0,0 @@ - public void Test8() - { - if (true) - goto IL_109; - else - goto IL_1003; - IL_109: - num = 209; - i++; - goto IL_10002; - IL_1003: - num = 210; - i--; - goto IL_10002; - IL_10002: - num = 212; - goto IL_100001; - IL_100001: - num = 213; - return; - } \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test08/Test8ExpParse.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test08/Test8ExpParse.txt deleted file mode 100644 index e1dbb3ffa..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test08/Test8ExpParse.txt +++ /dev/null @@ -1,42 +0,0 @@ -///Declaration MainBlock 0,0 -public void Test8() -///BlockStart Block 1,0 -{ -///Operation Operation 1,1 -if (true) -///Goto Goto 1,2 Dest:OK -goto IL_109; -///Operation Operation 1,3 -else -///Goto Goto 1,4 Dest:OK -goto IL_1003; -///Label Label 1,5 1 -IL_109: -///Operation Operation 1,6 -num = 209; -///Operation Operation 1,7 -i++; -///Goto Goto 1,8 Dest:OK -goto IL_10002; -///Label Label 1,9 1 -IL_1003: -///Operation Operation 1,10 -num = 210; -///Operation Operation 1,11 -i--; -///Goto Goto 1,12 Dest:OK -goto IL_10002; -///Label Label 1,13 2 -IL_10002: -///Operation Operation 1,14 -num = 212; -///Goto Goto 1,15 Dest:OK -goto IL_100001; -///Label Label 1,16 1 -IL_100001: -///Operation Operation 1,17 -num = 213; -///Operation Operation 1,18 -return; -///BlockEnd Block 1,19 -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test08/Test8ExpTokenize.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test08/Test8ExpTokenize.txt deleted file mode 100644 index fc143290f..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test08/Test8ExpTokenize.txt +++ /dev/null @@ -1,22 +0,0 @@ -T:Operation,0,public void Test8() -T:Block,1,{ -T:Operation,1,if -T:Operation,1,(true) -T:Goto,1,goto IL_109; -T:Operation,1,else -T:Goto,1,goto IL_1003; -T:Label,1,IL_109: -T:Operation,1,num = 209; -T:Operation,1,i++; -T:Goto,1,goto IL_10002; -T:Label,1,IL_1003: -T:Operation,1,num = 210; -T:Operation,1,i--; -T:Goto,1,goto IL_10002; -T:Label,1,IL_10002: -T:Operation,1,num = 212; -T:Goto,1,goto IL_100001; -T:Label,1,IL_100001: -T:Operation,1,num = 213; -T:Operation,1,return; -T:Block,1,} diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test09/Test9Dat.cs b/Transpiler_pp/TranspilerLibTests/Resources/Test09/Test9Dat.cs deleted file mode 100644 index 159764eeb..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test09/Test9Dat.cs +++ /dev/null @@ -1,4581 +0,0 @@ - private void Command1_Click(object eventSender, EventArgs eventArgs) - { - //Discarded unreachable code: IL_451b - int try0001_dispatch = -1; - int num = default; - short index = default; - int num2 = default; - int num3 = default; - int lErl = default; - int num6 = default; - int num7 = default; - int num8 = default; - int num9 = default; - string sDest = default; - int num10 = default; - string sDest2 = default; - short num12 = default; - int num14 = default; - short num15 = default; - int num17 = default; - int num19 = default; - while (true) - { - try - { - /*Note: ILSpy has introduced the following switch to emulate a goto from catch-block to try-block*/ - ; - checked - { - int num4; - int i3; - int i4; - int i5; - int i6; - int i7; - short t; - short num13; - int i8; - int i9; - int i10; - short num16; - ListBox L; - short A; - int i11; - int i12; - int i13; - short num18; - int i14; - int i15; - int i16; - int i17; - int num5; - short t2; - short num20; - short num11; - switch (try0001_dispatch) - { - default: - num = 1; - index = Command1.GetIndex((Button)eventSender); - goto IL_0016; - case 21059: - { - num2 = num; - switch ((num3 <= -2) ? 1 : num3) - { - case 2: - break; - case 1: - goto IL_45b9; - default: - goto end_IL_0001; - } - goto IL_451d; - } - IL_0c00: - num = 149; - if (!DataModul.TTable.NoMatch) - { - goto IL_0c1a; - } - else - { - goto IL_0c34; - } - IL_0c1a: - num = 150; - StringType.MidStmtStr(ref Modul1.LiText, 79, 1, "J"); - goto IL_0c34; - IL_0ba2: - num = 148; - DataModul.TTable.Seek("=", 1, Modul1.PersInArb); - goto IL_0c00; - IL_451d: - num = 789; - if (Information.Err().Number == 6) - { - goto IL_4537; - } - else - { - goto IL_4563; - } - IL_4563: - num = 794; - if (Interaction.MsgBox(Conversion.ErrorToString(), MsgBoxStyle.OkCancel, (Information.Err().Number).AsString()) == MsgBoxResult.Cancel) - { - ProjectData.EndApp(); - } - goto IL_4593; - IL_0c6f: - num = 153; - Modul1.LiText = ""; - goto IL_0c81; - IL_4593: - num = 797; - ProjectData.ClearProjectError(); - if (num2 == 0) - { - throw ProjectData.CreateProjectError(-2146828268); - } - num4 = num2; - goto IL_45bd; - IL_0c81: - num = 154; - lErl = 5; - goto IL_0c8b; - IL_0c8b: - num = 155; - I1++; - goto IL_0ca1; - IL_45bd: - num2 = 0; - switch (num4) - { - case 1: - break; - case 2: - goto IL_0016; - case 3: - goto IL_0026; - case 4: - goto IL_0036; - case 5: - goto IL_003e; - case 7: - case 9: - goto IL_006f; - case 10: - goto IL_0080; - case 12: - case 13: - goto IL_0094; - case 6: - case 11: - case 14: - case 15: - goto IL_00a6; - case 16: - goto IL_00bb; - case 17: - goto IL_00db; - case 18: - case 19: - goto IL_00ed; - case 20: - goto IL_010d; - case 21: - case 22: - goto IL_011f; - case 23: - goto IL_0130; - case 24: - goto IL_0141; - case 25: - goto IL_0156; - case 26: - goto IL_016b; - case 27: - case 28: - goto IL_017c; - case 29: - goto IL_0191; - case 30: - case 31: - goto IL_01a2; - case 33: - case 35: - goto IL_01d7; - case 36: - goto IL_01ec; - case 37: - goto IL_0207; - case 38: - goto IL_0228; - case 39: - goto IL_0249; - case 40: - goto IL_027a; - case 41: - goto IL_02ab; - case 42: - goto IL_02b6; - case 43: - goto IL_02d2; - case 44: - goto IL_02f2; - case 45: - goto IL_02f9; - case 47: - case 48: - goto IL_0311; - case 49: - goto IL_0325; - case 50: - goto IL_0335; - case 51: - goto IL_0359; - case 53: - case 54: - goto IL_036e; - case 55: - goto IL_039e; - case 57: - case 58: - goto IL_03dd; - case 59: - goto IL_03ee; - case 60: - goto IL_03ff; - case 61: - goto IL_0410; - case 62: - goto IL_042c; - case 63: - goto IL_0441; - case 64: - goto IL_0456; - case 65: - goto IL_0466; - case 66: - goto IL_0470; - case 67: - goto IL_047f; - case 69: - case 70: - goto IL_0497; - case 71: - goto IL_04f6; - case 73: - case 74: - goto IL_050f; - case 75: - goto IL_0519; - case 76: - goto IL_0550; - case 77: - goto IL_055b; - case 78: - goto IL_0566; - case 79: - goto IL_057f; - case 80: - goto IL_0598; - case 81: - goto IL_05ba; - case 82: - goto IL_05c4; - case 83: - goto IL_05cf; - case 84: - goto IL_05f2; - case 85: - goto IL_0615; - case 86: - goto IL_0639; - case 87: - goto IL_065d; - case 88: - goto IL_0667; - case 89: - goto IL_067b; - case 90: - goto IL_06db; - case 92: - case 93: - goto IL_06f4; - case 95: - case 97: - goto IL_071b; - case 98: - goto IL_074a; - case 99: - case 100: - goto IL_0764; - case 101: - goto IL_0793; - case 102: - case 103: - goto IL_07ad; - case 104: - goto IL_07dc; - case 105: - case 106: - goto IL_07f6; - case 107: - goto IL_082e; - case 110: - case 111: - goto IL_084e; - case 112: - goto IL_087d; - case 113: - case 114: - goto IL_0897; - case 115: - goto IL_08c6; - case 116: - case 117: - goto IL_08e0; - case 118: - goto IL_090f; - case 119: - case 120: - goto IL_0929; - case 121: - goto IL_0961; - case 124: - case 125: - goto IL_0981; - case 126: - goto IL_09b0; - case 127: - case 128: - goto IL_09ca; - case 129: - goto IL_09fc; - case 130: - case 131: - goto IL_0a19; - case 132: - goto IL_0a4b; - case 133: - case 134: - goto IL_0a68; - case 135: - goto IL_0aa3; - case 91: - case 94: - case 108: - case 109: - case 122: - case 123: - case 136: - case 137: - case 138: - goto IL_0ac2; - case 139: - goto IL_0acc; - case 140: - goto IL_0ae8; - case 141: - goto IL_0b00; - case 142: - goto IL_0b0d; - case 143: - goto IL_0b40; - case 144: - goto IL_0b71; - case 145: - case 147: - goto IL_0b8b; - case 148: - goto IL_0ba2; - case 149: - goto IL_0c00; - case 150: - goto IL_0c1a; - case 151: - case 152: - goto IL_0c34; - case 153: - goto IL_0c6f; - case 72: - case 154: - goto IL_0c81; - case 155: - goto IL_0c8b; - case 156: - goto IL_0cb2; - case 158: - case 159: - goto IL_0cef; - case 160: - goto IL_0d06; - case 161: - goto IL_0d1e; - case 162: - goto IL_0d3c; - case 163: - goto IL_0d5a; - case 164: - goto IL_0d78; - case 165: - goto IL_0d90; - case 166: - case 167: - goto IL_0dad; - case 168: - goto IL_0dc5; - case 169: - case 170: - goto IL_0de2; - case 171: - goto IL_0dfa; - case 172: - case 173: - goto IL_0e17; - case 174: - goto IL_0e24; - case 175: - goto IL_0e42; - case 176: - goto IL_0e62; - case 177: - goto IL_0e6c; - case 179: - case 180: - goto IL_0e87; - case 181: - goto IL_0e9a; - case 182: - goto IL_0ec1; - case 183: - goto IL_0ef4; - case 185: - case 186: - goto IL_0f36; - case 187: - goto IL_0f4a; - case 188: - goto IL_0f69; - case 189: - goto IL_0f7d; - case 190: - goto IL_0f95; - case 191: - goto IL_0fa8; - case 192: - goto IL_0fb5; - case 193: - goto IL_0fc3; - case 194: - goto IL_0fd5; - case 196: - case 197: - goto IL_0ff0; - case 198: - goto IL_1007; - case 199: - goto IL_1069; - case 201: - case 202: - goto IL_1085; - case 203: - goto IL_1092; - case 204: - goto IL_10aa; - case 205: - goto IL_10bb; - case 206: - goto IL_10c8; - case 207: - goto IL_10ed; - case 209: - goto IL_1108; - case 210: - goto IL_1110; - case 208: - case 211: - case 212: - goto IL_1128; - case 213: - case 214: - goto IL_1140; - case 215: - goto IL_1158; - case 216: - goto IL_1169; - case 217: - goto IL_1176; - case 218: - goto IL_119b; - case 220: - goto IL_11b7; - case 221: - goto IL_11bf; - case 219: - case 222: - case 223: - case 224: - goto IL_11d9; - case 225: - goto IL_11f3; - case 226: - case 227: - goto IL_1210; - case 228: - goto IL_1227; - case 229: - goto IL_123e; - case 230: - goto IL_129b; - case 232: - case 233: - goto IL_12b7; - case 234: - goto IL_12e9; - case 235: - case 236: - goto IL_1306; - case 237: - goto IL_1313; - case 238: - goto IL_1320; - case 239: - goto IL_138c; - case 241: - case 242: - goto IL_13a8; - case 244: - case 246: - goto IL_13e2; - case 247: - goto IL_1414; - case 248: - case 249: - goto IL_1431; - case 250: - goto IL_146c; - case 253: - case 254: - goto IL_148f; - case 255: - goto IL_14c1; - case 256: - case 257: - goto IL_14de; - case 258: - goto IL_1519; - case 261: - case 262: - goto IL_153c; - case 263: - goto IL_156e; - case 264: - case 265: - goto IL_158b; - case 266: - goto IL_15c6; - case 269: - case 270: - goto IL_15e9; - case 271: - goto IL_161b; - case 272: - case 273: - goto IL_1638; - case 274: - goto IL_1673; - case 277: - case 278: - goto IL_1696; - case 279: - goto IL_16c8; - case 280: - case 281: - goto IL_16e5; - case 282: - goto IL_1720; - case 285: - case 286: - goto IL_1743; - case 287: - goto IL_1775; - case 288: - case 289: - goto IL_1792; - case 290: - goto IL_17cd; - case 240: - case 243: - case 251: - case 252: - case 259: - case 260: - case 267: - case 268: - case 275: - case 276: - case 283: - case 284: - case 291: - case 292: - case 293: - goto IL_17ec; - case 294: - goto IL_17f7; - case 295: - goto IL_1814; - case 296: - goto IL_181e; - case 297: - goto IL_188a; - case 298: - goto IL_18a7; - case 299: - goto IL_18d9; - case 300: - case 301: - goto IL_18f0; - case 302: - goto IL_192b; - case 303: - case 304: - case 305: - goto IL_1943; - case 200: - case 231: - case 306: - goto IL_197c; - case 307: - goto IL_1987; - case 308: - goto IL_19ae; - case 309: - goto IL_19e7; - case 310: - goto IL_19ff; - case 313: - case 314: - goto IL_1a3c; - case 315: - goto IL_1a54; - case 316: - goto IL_1a6c; - case 317: - goto IL_1a80; - case 318: - goto IL_1a94; - case 321: - case 322: - goto IL_1aae; - case 323: - goto IL_1acb; - case 324: - goto IL_1aed; - case 325: - goto IL_1b1c; - case 326: - goto IL_1b4b; - case 327: - goto IL_1b7a; - case 328: - goto IL_1b92; - case 330: - goto IL_1bb9; - case 331: - goto IL_1bc1; - case 329: - case 332: - case 333: - goto IL_1be7; - case 335: - case 336: - goto IL_1c00; - case 337: - goto IL_1c0e; - case 338: - goto IL_1c26; - case 339: - goto IL_1c44; - case 340: - goto IL_1c62; - case 341: - goto IL_1c80; - case 342: - goto IL_1c98; - case 343: - case 344: - goto IL_1cb5; - case 345: - goto IL_1ccd; - case 346: - case 347: - goto IL_1cea; - case 348: - goto IL_1d02; - case 349: - case 350: - goto IL_1d1f; - case 351: - goto IL_1d2c; - case 352: - goto IL_1d4a; - case 353: - goto IL_1d6a; - case 354: - goto IL_1d74; - case 356: - case 357: - goto IL_1d8f; - case 358: - goto IL_1da2; - case 359: - goto IL_1dc9; - case 360: - goto IL_1dfc; - case 362: - case 363: - goto IL_1e3d; - case 364: - goto IL_1e51; - case 365: - goto IL_1e65; - case 366: - goto IL_1e79; - case 367: - goto IL_1e9f; - case 368: - goto IL_1ec2; - case 369: - goto IL_1ed5; - case 370: - goto IL_1ee2; - case 371: - goto IL_1ef0; - case 372: - goto IL_1f02; - case 374: - case 375: - goto IL_1f1d; - case 376: - goto IL_1f34; - case 377: - goto IL_1f96; - case 379: - case 380: - goto IL_1fb2; - case 381: - goto IL_1fbf; - case 382: - goto IL_1fd7; - case 383: - goto IL_1fe8; - case 384: - goto IL_1ff5; - case 385: - goto IL_201a; - case 387: - goto IL_2035; - case 388: - goto IL_203d; - case 386: - case 389: - case 390: - goto IL_2055; - case 391: - case 392: - goto IL_206d; - case 393: - goto IL_2085; - case 394: - goto IL_2096; - case 395: - goto IL_20a3; - case 396: - goto IL_20c8; - case 398: - goto IL_20e4; - case 399: - goto IL_20ec; - case 397: - case 400: - case 401: - case 402: - goto IL_2106; - case 403: - goto IL_2120; - case 404: - case 405: - goto IL_213d; - case 406: - goto IL_2154; - case 407: - goto IL_216b; - case 408: - goto IL_21c8; - case 410: - case 411: - goto IL_21e4; - case 412: - goto IL_2216; - case 413: - case 414: - goto IL_2233; - case 415: - goto IL_2240; - case 416: - goto IL_224d; - case 417: - goto IL_22b9; - case 419: - case 420: - goto IL_22d8; - case 422: - case 423: - goto IL_22fa; - case 378: - case 409: - case 421: - case 424: - goto IL_2317; - case 425: - goto IL_2322; - case 426: - goto IL_238e; - case 428: - case 429: - goto IL_23aa; - case 430: - goto IL_23cf; - case 431: - goto IL_2407; - case 373: - case 418: - case 427: - case 432: - case 433: - goto IL_241f; - case 434: - goto IL_242a; - case 435: - goto IL_2451; - case 438: - case 439: - goto IL_2496; - case 440: - goto IL_24ae; - case 441: - goto IL_24cc; - case 442: - goto IL_24f0; - case 443: - goto IL_2514; - case 444: - goto IL_2522; - case 445: - goto IL_2541; - case 446: - goto IL_2564; - case 447: - goto IL_256e; - case 449: - case 450: - goto IL_2589; - case 451: - goto IL_25a0; - case 452: - goto IL_25b3; - case 453: - goto IL_25da; - case 455: - case 456: - goto IL_25f2; - case 457: - goto IL_2625; - case 459: - case 460: - goto IL_2666; - case 461: - goto IL_267a; - case 462: - goto IL_268e; - case 463: - goto IL_26a2; - case 464: - goto IL_26c1; - case 465: - goto IL_26e3; - case 466: - goto IL_26f6; - case 467: - goto IL_2703; - case 468: - goto IL_2715; - case 470: - case 471: - goto IL_2730; - case 472: - goto IL_2792; - case 474: - case 475: - goto IL_27ae; - case 476: - goto IL_27bb; - case 477: - goto IL_27f5; - case 478: - goto IL_2803; - case 479: - goto IL_2811; - case 480: - goto IL_282d; - case 481: - goto IL_2849; - case 482: - goto IL_286e; - case 483: - goto IL_287b; - case 484: - goto IL_2889; - case 486: - case 487: - goto IL_28b9; - case 489: - case 490: - goto IL_28e9; - case 492: - case 493: - goto IL_2919; - case 495: - case 496: - goto IL_2949; - case 497: - goto IL_2956; - case 498: - goto IL_296d; - case 499: - goto IL_29d0; - case 501: - case 502: - goto IL_29ec; - case 504: - case 506: - goto IL_2a16; - case 507: - goto IL_2a48; - case 508: - case 509: - goto IL_2a65; - case 511: - case 512: - goto IL_2a9c; - case 514: - case 515: - goto IL_2ad3; - case 516: - goto IL_2b0e; - case 519: - case 520: - goto IL_2b31; - case 521: - goto IL_2b63; - case 522: - case 523: - goto IL_2b80; - case 525: - case 526: - goto IL_2bb7; - case 528: - case 529: - goto IL_2bee; - case 530: - goto IL_2c29; - case 533: - case 534: - goto IL_2c4c; - case 535: - goto IL_2c7e; - case 536: - case 537: - goto IL_2c9b; - case 539: - case 540: - goto IL_2cd2; - case 542: - case 543: - goto IL_2d09; - case 544: - goto IL_2d44; - case 500: - case 503: - case 517: - case 518: - case 531: - case 532: - case 545: - case 546: - case 547: - goto IL_2d63; - case 548: - goto IL_2d6e; - case 550: - num = 550; - Modul1.PersInArbsp = Modul1.PersInArb; - goto case 551; - case 551: - num = 551; - Modul1.Kenn = 1f; - goto case 552; - case 552: - num = 552; - if ((DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.Sex)].AsString() == "F")) - { - goto case 553; - } - goto case 554; - case 553: - num = 553; - Modul1.Kenn = 2f; - goto case 554; - case 554: - case 555: - num = 555; - DataModul.DB_LinkTable.Index = nameof(DataModul.LinkIndex.ElSu); - goto case 556; - case 556: - num = 556; - DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), Modul1.Kenn); - goto case 557; - case 557: - num = 557; - if (!DataModul.DB_LinkTable.NoMatch) - { - goto case 559; - } - goto IL_3320; - case 559: - num = 559; - goto case 560; - case 560: - num = 560; - Modul1.FamInArb = DataModul.DB_LinkTable.Fields[nameof(DataModul.LinkFields.FamNr)].Value.AsInt(); - goto case 561; - case 561: - num = 561; - MainProject.Forms.Familie.Famles(Modul1.FamInArb); - goto case 562; - case 562: - num = 562; - if (Modul1.Kenn == 1f) - { - goto case 563; - } - goto case 565; - case 563: - num = 563; - Modul1.PersInArb = Modul1.Family.Frau; - goto case 564; - case 565: - num = 565; - if (Modul1.Kenn == 2f) - { - goto case 566; - } - goto case 564; - case 566: - num = 566; - Modul1.PersInArb = Modul1.Family.Mann; - goto case 564; - case 564: - case 567: - case 568: - num = 568; - DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.ArtNr); - goto case 569; - case 569: - num = 569; - Modul1.I = 101; - goto case 570; - case 570: - num = 570; - Modul1.Ubg = Modul1.I; - goto case 571; - case 571: - num = 571; - DataModul.DB_EventTable.Seek("=", Modul1.Ubg.AsString(), Modul1.PersInArb.AsString(), "0"); - goto case 572; - case 572: - num = 572; - if (!DataModul.DB_EventTable.NoMatch) - { - goto case 574; - } - goto case 573; - case 574: - case 575: - num = 575; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto case 576; - } - goto case 573; - case 576: - num = 576; - if (Conversions.ToDouble(Strings.Trim(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsString())) > 0.0) - { - goto case 577; - } - goto case 573; - case 577: - num = 577; - transdat = DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].Value.AsInt(); - goto case 578; - case 578: - num = 578; - neuedat(); - goto IL_3395; - case 573: - case 580: - case 581: - case 582: - num = 582; - lErl = 6; - goto case 583; - case 583: - { - num = 583; - Modul1.I++; - int i = Modul1.I; - num5 = 102; - if (i <= num5) - { - goto case 570; - } - goto case 584; - } - case 584: - num = 584; - num6 = 30000000; - goto case 585; - case 585: - num = 585; - this.A = 1; - goto case 586; - case 586: - num = 586; - if (Modul1.Family.Kind[this.A] > 0) - { - goto case 587; - } - goto case 598; - case 587: - num = 587; - Modul1.I = 101; - goto case 588; - case 588: - num = 588; - DataModul.DB_EventTable.Seek("=", Modul1.I.AsString(), Modul1.Family.Kind[this.A].AsString(), "0"); - goto case 589; - case 589: - num = 589; - if (!DataModul.DB_EventTable.NoMatch) - { - goto case 590; - } - goto case 593; - case 590: - num = 590; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].Value) > 0.0) - { - goto case 591; - } - goto case 593; - case 591: - num = 591; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].Value) < num6) - { - goto case 592; - } - goto case 593; - case 592: - num = 592; - num6 = (int)Math.Round(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].Value)); - goto case 593; - case 593: - case 594: - case 595: - case 596: - { - num = 596; - Modul1.I++; - int i2 = Modul1.I; - num5 = 102; - if (i2 <= num5) - { - goto case 588; - } - goto case 597; - } - case 598: - num = 598; - goto case 599; - case 597: - case 600: - case 601: - { - num = 601; - this.A++; - int a = this.A; - num5 = 99; - if (a <= num5) - { - goto case 586; - } - goto case 599; - } - case 599: - case 602: - num = 602; - if (num6 < 30000000) - { - goto case 603; - } - goto IL_32fc; - case 603: - num = 603; - transdat = Conversions.ToInteger(Conversion.Str(Conversions.ToDouble((num6).AsString().Left( 4)) - 25.0) + "0000"); - goto case 604; - case 604: - num = 604; - neuedat(); - goto IL_32fc; - case 549: - case 605: - case 606: - goto IL_32fc; - case 607: - goto IL_3307; - case 558: - case 608: - case 609: - goto IL_3320; - case 610: - goto IL_3348; - case 611: - case 612: - goto IL_3383; - case 473: - case 485: - case 488: - case 491: - case 494: - case 510: - case 513: - case 524: - case 527: - case 538: - case 541: - case 579: - case 613: - goto IL_3395; - case 614: - goto IL_33a0; - case 615: - goto IL_33c7; - case 617: - case 618: - goto IL_3406; - case 619: - goto IL_341e; - case 620: - goto IL_343f; - case 621: - goto IL_345d; - case 622: - goto IL_3467; - case 624: - case 625: - goto IL_3482; - case 626: - goto IL_3499; - case 627: - goto IL_34ac; - case 628: - goto IL_34d3; - case 630: - case 631: - goto IL_34eb; - case 632: - goto IL_351e; - case 634: - case 635: - goto IL_355f; - case 636: - goto IL_357d; - case 637: - goto IL_358a; - case 638: - goto IL_359e; - case 639: - goto IL_35b2; - case 640: - goto IL_35c6; - case 641: - goto IL_35e5; - case 642: - goto IL_3607; - case 643: - goto IL_361a; - case 644: - goto IL_3627; - case 645: - goto IL_3639; - case 646: - goto IL_364b; - case 648: - case 649: - goto IL_3666; - case 650: - goto IL_36c8; - case 652: - case 653: - goto IL_36e4; - case 654: - goto IL_36f2; - case 655: - goto IL_3700; - case 656: - goto IL_370e; - case 657: - goto IL_371f; - case 658: - goto IL_3736; - case 659: - goto IL_379d; - case 660: - goto IL_37b4; - case 661: - case 662: - goto IL_37c2; - case 663: - goto IL_37d3; - case 664: - goto IL_37e0; - case 665: - goto IL_3811; - case 666: - case 667: - goto IL_3822; - case 668: - goto IL_3839; - case 669: - goto IL_38a0; - case 670: - goto IL_38b7; - case 671: - case 672: - goto IL_38c5; - case 673: - goto IL_38e8; - case 674: - goto IL_38f5; - case 675: - goto IL_3935; - case 676: - goto IL_394b; - case 677: - case 678: - goto IL_3962; - case 679: - goto IL_3978; - case 680: - case 681: - goto IL_398f; - case 682: - goto IL_39f2; - case 683: - goto IL_3a0c; - case 684: - case 685: - goto IL_3a23; - case 686: - goto IL_3a86; - case 687: - goto IL_3aa0; - case 688: - case 689: - goto IL_3ab7; - case 690: - goto IL_3b1a; - case 691: - goto IL_3b34; - case 692: - case 693: - goto IL_3b4b; - case 694: - goto IL_3bae; - case 695: - goto IL_3bc8; - case 696: - case 697: - goto IL_3bdf; - case 698: - goto IL_3c42; - case 699: - goto IL_3c5c; - case 700: - case 701: - goto IL_3c73; - case 702: - goto IL_3cd7; - case 703: - goto IL_3cf1; - case 704: - case 705: - goto IL_3d08; - case 706: - goto IL_3d1f; - case 707: - goto IL_3d7c; - case 708: - goto IL_3d96; - case 709: - case 710: - goto IL_3dad; - case 651: - case 711: - case 712: - goto IL_3de8; - case 713: - goto IL_3e0f; - case 715: - case 716: - goto IL_3e4e; - case 717: - goto IL_3e62; - case 718: - goto IL_3e7a; - case 719: - goto IL_3e84; - case 721: - case 722: - goto IL_3e9f; - case 723: - goto IL_3ebd; - case 724: - goto IL_3edb; - case 725: - goto IL_3ef9; - case 726: - goto IL_3f16; - case 727: - goto IL_3f33; - case 728: - goto IL_3f45; - case 729: - goto IL_3f5c; - case 730: - goto IL_3fb6; - case 731: - goto IL_3fc4; - case 734: - goto IL_3fe6; - case 735: - goto IL_3ffb; - case 736: - goto IL_4044; - case 737: - goto IL_4076; - case 738: - case 739: - goto IL_4091; - case 740: - goto IL_40c3; - case 741: - case 742: - goto IL_40de; - case 743: - goto IL_4110; - case 744: - case 745: - goto IL_412b; - case 746: - goto IL_415d; - case 747: - case 748: - goto IL_4178; - case 749: - goto IL_41aa; - case 750: - case 751: - goto IL_41c5; - case 752: - goto IL_4203; - case 753: - case 754: - goto IL_421e; - case 755: - goto IL_4259; - case 756: - case 757: - goto IL_4274; - case 758: - goto IL_42af; - case 759: - case 760: - goto IL_42ca; - case 761: - goto IL_4308; - case 762: - case 763: - goto IL_4323; - case 764: - goto IL_4361; - case 765: - case 766: - goto IL_437c; - case 767: - goto IL_43ba; - case 768: - case 769: - goto IL_43d5; - case 770: - goto IL_43f2; - case 771: - goto IL_4407; - case 732: - case 733: - case 772: - goto IL_441a; - case 774: - goto IL_4439; - case 775: - goto IL_4441; - case 773: - case 776: - case 777: - goto IL_4454; - case 778: - goto IL_446b; - case 32: - case 68: - case 157: - case 195: - case 311: - case 312: - case 320: - case 334: - case 437: - case 469: - case 616: - case 647: - case 714: - case 779: - case 780: - case 781: - goto IL_448a; - case 782: - goto IL_4494; - case 783: - goto IL_44ac; - case 784: - goto IL_44c9; - case 785: - goto IL_44d6; - case 786: - goto IL_44f3; - case 789: - goto IL_451d; - case 790: - goto IL_4537; - case 791: - goto IL_4545; - case 792: - case 793: - case 794: - goto IL_4563; - case 795: - case 797: - goto IL_4593; - default: - goto end_IL_0001; - case 46: - case 52: - case 56: - case 178: - case 184: - case 319: - case 355: - case 361: - case 436: - case 448: - case 454: - case 458: - case 623: - case 629: - case 633: - case 720: - case 787: - case 788: - case 798: - goto end_IL_0001_2; - } - goto default; - IL_4537: - num = 790; - num7 = 200000000; - goto IL_4545; - IL_4545: - num = 791; - ProjectData.ClearProjectError(); - if (num2 == 0) - { - throw ProjectData.CreateProjectError(-2146828268); - } - goto IL_45b9; - IL_0c34: - num = 152; - List1.Items.Add(new ListItem(Modul1.LiText + " " + Modul1.PersInArb.AsString())); - goto IL_0c6f; - IL_45b9: - num4 = unchecked(num2 + 1); - goto IL_45bd; - IL_0016: - num = 2; - RadioButton1.Visible = true; - goto IL_0026; - IL_0026: - num = 3; - RadioButton2.Visible = true; - goto IL_0036; - IL_0036: - ProjectData.ClearProjectError(); - num3 = 2; - goto IL_003e; - IL_003e: - num = 5; - switch (index) - { - case 0: - case 1: - case 4: - case 5: - case 6: - break; - case 7: - goto IL_0094; - default: - goto IL_00a6; - } - - { - goto IL_006f; - } - IL_0094: - num = 13; - List1.Visible = false; - goto IL_00a6; - IL_006f: - num = 9; - List2.Visible = false; - goto IL_0080; - IL_0080: - num = 10; - List1.Visible = true; - goto IL_00a6; - IL_00a6: - num = 15; - Label4.Text = ""; - goto IL_00bb; - IL_00bb: - num = 16; - if (Modul1.Aus[12] == "") - { - goto IL_00db; - } - else - { - goto IL_00ed; - } - IL_00db: - num = 17; - Modul1.Aus[12] = "200"; - goto IL_00ed; - IL_00ed: - num = 19; - if (Modul1.Aus[13] == "") - { - goto IL_010d; - } - else - { - goto IL_011f; - } - IL_010d: - num = 20; - Modul1.Aus[13] = "200"; - goto IL_011f; - IL_011f: - num = 22; - List1.Visible = true; - goto IL_0130; - IL_0130: - num = 23; - List2.Visible = false; - goto IL_0141; - IL_0141: - num = 24; - Label2.Text = ""; - goto IL_0156; - IL_0156: - num = 25; - if (RadioButton1.Checked) - { - goto IL_016b; - } - else - { - goto IL_017c; - } - IL_016b: - num = 26; - List1.Sorted = true; - goto IL_017c; - IL_017c: - num = 28; - if (RadioButton2.Checked) - { - goto IL_0191; - } - else - { - goto IL_01a2; - } - IL_0191: - num = 29; - List1.Sorted = false; - goto IL_01a2; - IL_01a2: - num = 31; - switch (index) - { - case 0: - break; - case 1: - goto IL_0cef; - case 2: - goto IL_1a3c; - case 3: - goto IL_1aae; - case 4: - goto IL_1c00; - case 5: - goto IL_2496; - case 6: - goto IL_3406; - case 7: - goto IL_3e4e; - default: - goto IL_448a; - } - - { - goto IL_01d7; - } - IL_3e4e: - num = 716; - List2.Visible = true; - goto IL_3e62; - IL_3e62: - num = 717; - List2.Items.Clear(); - goto IL_3e7a; - IL_3e7a: - num = 718; - num7 = 1; - goto IL_3e84; - IL_3e84: - num = 719; - if (num7 <= 0) - { - goto end_IL_0001_2; - } - goto IL_3e9f; - IL_3e9f: - num = 722; - Label1[2].Text = "Fehlliste Orte"; - goto IL_3ebd; - IL_3ebd: - num = 723; - Label1[1].Text = " Nr Ort Orsteil Kreis Land Staat Loc Länge Breite PLZ Terr StKz"; - goto IL_3edb; - IL_3edb: - num = 724; - Label1[0].Text = " "; - goto IL_3ef9; - IL_3ef9: - num = 725; - List2.Items.Add("Fehlliste Orte"); - goto IL_3f16; - IL_3f16: - num = 726; - List2.Items.Add(" Nr Ort Ortsteil Kreis Land Staat Loc. Laenge Breite PLZ Terr. StKz"); - goto IL_3f33; - IL_3f33: - num = 727; - DataModul.DB_PlaceTable.MoveFirst(); - goto IL_3f45; - IL_3f45: - num = 728; - DataModul.DB_PlaceTable.Index = nameof(DataModul.PlaceIndex.OrtNr); - goto IL_3f5c; - IL_3f5c: - num = 729; - DataModul.DB_PlaceTable.Seek(">=", num7); - goto IL_3fb6; - IL_3fb6: - num = 730; - this.A = 1; - goto IL_3fc4; - IL_3fc4: - num = 731; - if (!DataModul.DB_PlaceTable.NoMatch) - { - goto IL_441a; - } - else - { - goto IL_4439; - } - IL_441a: - num = 733; - if (!DataModul.DB_PlaceTable.EOF) - { - goto IL_3fe6; - } - else - { - goto IL_4454; - } - IL_3fe6: - num = 734; - Modul1.LiText = new string(' ', 80); - goto IL_3ffb; - IL_3ffb: - num = 735; - StringType.MidStmtStr(ref Modul1.LiText, 1, 10, Strings.Right(" " + DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.OrtNr)].Value.AsString(), 10)); - goto IL_4044; - IL_4044: - num = 736; - if ((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Ort)].AsInt() == 0)) - { - goto IL_4076; - } - else - { - goto IL_4091; - } - IL_4076: - num = 737; - StringType.MidStmtStr(ref Modul1.LiText, 12, 2, "F "); - goto IL_4091; - IL_4091: - num = 739; - if ((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Ortsteil)].AsInt() == 0)) - { - goto IL_40c3; - } - else - { - goto IL_40de; - } - IL_40c3: - num = 740; - StringType.MidStmtStr(ref Modul1.LiText, 20, 2, "F "); - goto IL_40de; - IL_40de: - num = 742; - if ((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Kreis)].AsInt() == 0)) - { - goto IL_4110; - } - else - { - goto IL_412b; - } - IL_4110: - num = 743; - StringType.MidStmtStr(ref Modul1.LiText, 28, 2, "F "); - goto IL_412b; - IL_412b: - num = 745; - if ((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Land)].AsInt() == 0)) - { - goto IL_415d; - } - else - { - goto IL_4178; - } - IL_415d: - num = 746; - StringType.MidStmtStr(ref Modul1.LiText, 34, 2, "F "); - goto IL_4178; - IL_4178: - num = 748; - if ((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Staat)].AsInt() == 0)) - { - goto IL_41aa; - } - else - { - goto IL_41c5; - } - IL_41aa: - num = 749; - StringType.MidStmtStr(ref Modul1.LiText, 39, 2, "F "); - goto IL_41c5; - IL_41c5: - num = 751; - if (Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Loc)].AsString()) == "") - { - goto IL_4203; - } - else - { - goto IL_421e; - } - IL_4203: - num = 752; - StringType.MidStmtStr(ref Modul1.LiText, 44, 2, "F "); - goto IL_421e; - IL_421e: - num = 754; - if (Strings.Len(Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.L)].AsString())) <= 1) - { - goto IL_4259; - } - else - { - goto IL_4274; - } - IL_4259: - num = 755; - StringType.MidStmtStr(ref Modul1.LiText, 52, 2, "F "); - goto IL_4274; - IL_4274: - num = 757; - if (Strings.Len(Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.B)].AsString())) <= 1) - { - goto IL_42af; - } - else - { - goto IL_42ca; - } - IL_42af: - num = 758; - StringType.MidStmtStr(ref Modul1.LiText, 58, 2, "F "); - goto IL_42ca; - IL_42ca: - num = 760; - if (Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.PLZ)].AsString()) == "") - { - goto IL_4308; - } - else - { - goto IL_4323; - } - IL_4308: - num = 761; - StringType.MidStmtStr(ref Modul1.LiText, 63, 2, "F "); - goto IL_4323; - IL_4323: - num = 763; - if (Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Terr)].AsString()) == "") - { - goto IL_4361; - } - else - { - goto IL_437c; - } - IL_4361: - num = 764; - StringType.MidStmtStr(ref Modul1.LiText, 68, 2, "F "); - goto IL_437c; - IL_437c: - num = 766; - if (Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Staatk)].AsString()) == "") - { - goto IL_43ba; - } - else - { - goto IL_43d5; - } - IL_43ba: - num = 767; - StringType.MidStmtStr(ref Modul1.LiText, 71, 2, "F "); - goto IL_43d5; - IL_43d5: - num = 769; - List2.Items.Add(Modul1.LiText); - goto IL_43f2; - IL_43f2: - num = 770; - Modul1.LiText = new string(' ', 80); - goto IL_4407; - IL_4407: - num = 771; - DataModul.DB_PlaceTable.MoveNext(); - goto IL_441a; - IL_4439: - num = 774; - goto IL_4441; - IL_4441: - num = 775; - DataModul.DB_PlaceTable.MoveNext(); - goto IL_4454; - IL_4454: - num = 777; - if (DataModul.DB_PlaceTable.EOF) - { - goto IL_446b; - } - else - { - goto IL_448a; - } - IL_446b: - num = 778; - List2.Items.Add("Ende der Liste"); - goto IL_448a; - IL_3406: - num = 618; - List1.Items.Clear(); - goto IL_341e; - IL_341e: - num = 619; - Label1[2].Text = Modul1.IText[84]; - goto IL_343f; - IL_343f: - num = 620; - Label1[0].Text = "Name Elternteil Kind Pate Zeuge Adoptivkind verbunden"; - goto IL_345d; - IL_345d: - num = 621; - num7 = 1; - goto IL_3467; - IL_3467: - num = 622; - if (num7 <= 0) - { - goto end_IL_0001_2; - } - goto IL_3482; - IL_3482: - num = 625; - DataModul.DB_PersonTable.Index = nameof(DataModul.PersonIndex.PerNr); - goto IL_3499; - IL_3499: - num = 626; - DataModul.DB_PersonTable.MoveLast(); - goto IL_34ac; - IL_34ac: - num = 627; - num8 = DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value.AsInt(); - goto IL_34d3; - IL_34d3: - num = 628; - if (num7 == 0) - { - goto end_IL_0001_2; - } - goto IL_34eb; - IL_34eb: - num = 631; - if ((num7 > DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value)) - { - goto IL_351e; - } - else - { - goto IL_355f; - } - IL_351e: - num = 632; - Interaction.MsgBox(Modul1.IText[173] + " " + num7.AsString() + Modul1.IText[172]); - goto end_IL_0001_2; - IL_355f: - num = 635; - Label1[1].Text = "unvollständig verknüpfte Personen "; - goto IL_357d; - IL_357d: - num = 636; - Modul1.Schalt = 3; - goto IL_358a; - IL_358a: - num = 637; - ProgressBar1.Minimum = 0; - goto IL_359e; - IL_359e: - num = 638; - ProgressBar1.Maximum = 0; - goto IL_35b2; - IL_35b2: - num = 639; - ProgressBar1.Step = 1; - goto IL_35c6; - IL_35c6: - num = 640; - ProgressBar1.Maximum = DataModul.DB_PersonTable.RecordCount - 1; - goto IL_35e5; - IL_35e5: - num = 641; - i3 = num7; - num9 = DataModul.DB_PersonTable.RecordCount - 1; - I1 = i3; - goto IL_3dfe; - IL_3dfe: - i4 = I1; - num5 = num9; - if (i4 <= num5) - { - goto IL_3607; - } - else - { - goto IL_3e0f; - } - IL_3e0f: - num = 713; - Label4.Text = List1.Items.Count - 1.AsString() + " Einträge"; - goto IL_448a; - IL_3607: - num = 642; - ProgressBar1.PerformStep(); - goto IL_361a; - IL_361a: - num = 643; - Application.DoEvents(); - goto IL_3627; - IL_3627: - num = 644; - Modul1.PersInArb = I1; - goto IL_3639; - IL_3639: - num = 645; - sDest = new string(' ', 80); - goto IL_364b; - IL_364b: - num = 646; - if (Modul1.PersInArb <= num8) - { - goto IL_3666; - } - else - { - goto IL_448a; - } - IL_3666: - num = 649; - DataModul.DB_PersonTable.Seek("=", Modul1.PersInArb.AsString()); - goto IL_36c8; - IL_36c8: - num = 650; - if (!DataModul.DB_PersonTable.NoMatch) - { - goto IL_36e4; - } - else - { - goto IL_3de8; - } - IL_36e4: - num = 653; - LiKi = 1; - goto IL_36f2; - IL_36f2: - num = 654; - LiEl = 1; - goto IL_3700; - IL_3700: - num = 655; - //LiPa = 1; - goto IL_370e; - IL_370e: - num = 656; - Modul1.Kenn = 3f; - goto IL_371f; - IL_371f: - num = 657; - DataModul.DB_LinkTable.Index = nameof(DataModul.LinkIndex.ElSu); - goto IL_3736; - IL_3736: - num = 658; - DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), Modul1.Kenn); - goto IL_379d; - IL_379d: - num = 659; - if (DataModul.DB_LinkTable.NoMatch) - { - goto IL_37b4; - } - else - { - goto IL_37c2; - } - IL_37b4: - num = 660; - LiKi = 0; - goto IL_37c2; - IL_37c2: - num = 662; - Modul1.Kenn = 1f; - goto IL_37d3; - IL_37d3: - num = 663; - Modul1.PerSatzLes(); - goto IL_37e0; - IL_37e0: - num = 664; - if ((DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.Sex)].AsString() == "F")) - { - goto IL_3811; - } - else - { - goto IL_3822; - } - IL_3811: - num = 665; - Modul1.Kenn = 2f; - goto IL_3822; - IL_3822: - num = 667; - DataModul.DB_LinkTable.Index = nameof(DataModul.LinkIndex.ElSu); - goto IL_3839; - IL_3839: - num = 668; - DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), Modul1.Kenn); - goto IL_38a0; - IL_38a0: - num = 669; - if (DataModul.DB_LinkTable.NoMatch) - { - goto IL_38b7; - } - else - { - goto IL_38c5; - } - IL_38b7: - num = 670; - LiEl = 0; - goto IL_38c5; - IL_38c5: - num = 672; - if ((LiKi == 0) & (LiEl == 0)) - { - goto IL_38e8; - } - else - { - goto IL_3de8; - } - IL_38e8: - num = 673; - Modul1.Personlesen(Modul1.PersInArb); - goto IL_38f5; - IL_38f5: - num = 674; - StringType.MidStmtStr(ref sDest, 1, 20, Strings.Left((Modul1.Kont[0]).Trim() + "," + (Modul1.Kont[3]).Trim() + " ", 20)); - goto IL_3935; - IL_3935: - num = 675; - if (LiEl == 0) - { - goto IL_394b; - } - else - { - goto IL_3962; - } - IL_394b: - num = 676; - StringType.MidStmtStr(ref sDest, 24, 1, "N"); - goto IL_3962; - IL_3962: - num = 678; - if (LiKi == 0) - { - goto IL_3978; - } - else - { - goto IL_398f; - } - IL_3978: - num = 679; - StringType.MidStmtStr(ref sDest, 30, 1, "N"); - goto IL_398f; - IL_398f: - num = 681; - DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 4); - goto IL_39f2; - IL_39f2: - num = 682; - if (!DataModul.DB_LinkTable.NoMatch) - { - goto IL_3a0c; - } - else - { - goto IL_3a23; - } - IL_3a0c: - num = 683; - StringType.MidStmtStr(ref sDest, 36, 1, "J"); - goto IL_3a23; - IL_3a23: - num = 685; - DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 5); - goto IL_3a86; - IL_3a86: - num = 686; - if (!DataModul.DB_LinkTable.NoMatch) - { - goto IL_3aa0; - } - else - { - goto IL_3ab7; - } - IL_3aa0: - num = 687; - StringType.MidStmtStr(ref sDest, 46, 1, "J"); - goto IL_3ab7; - IL_3ab7: - num = 689; - DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 6); - goto IL_3b1a; - IL_3b1a: - num = 690; - if (!DataModul.DB_LinkTable.NoMatch) - { - goto IL_3b34; - } - else - { - goto IL_3b4b; - } - IL_3b34: - num = 691; - StringType.MidStmtStr(ref sDest, 46, 1, "J"); - goto IL_3b4b; - IL_3b4b: - num = 693; - DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 7); - goto IL_3bae; - IL_3bae: - num = 694; - if (!DataModul.DB_LinkTable.NoMatch) - { - goto IL_3bc8; - } - else - { - goto IL_3bdf; - } - IL_3bc8: - num = 695; - StringType.MidStmtStr(ref sDest, 46, 1, "J"); - goto IL_3bdf; - IL_3bdf: - num = 697; - DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 8); - goto IL_3c42; - IL_3c42: - num = 698; - if (!DataModul.DB_LinkTable.NoMatch) - { - goto IL_3c5c; - } - else - { - goto IL_3c73; - } - IL_3c5c: - num = 699; - StringType.MidStmtStr(ref sDest, 55, 1, "J"); - goto IL_3c73; - IL_3c73: - num = 701; - DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 9); - goto IL_3cd7; - IL_3cd7: - num = 702; - if (!DataModul.DB_LinkTable.NoMatch) - { - goto IL_3cf1; - } - else - { - goto IL_3d08; - } - IL_3cf1: - num = 703; - StringType.MidStmtStr(ref sDest, 70, 1, "J"); - goto IL_3d08; - IL_3d08: - num = 705; - DataModul.DB_WitnessTable.Index = nameof(DataModul.WitnessIndex.ElSu); - goto IL_3d1f; - IL_3d1f: - num = 706; - DataModul.DB_WitnessTable.Seek("=", Modul1.PersInArb, "10"); - goto IL_3d7c; - IL_3d7c: - num = 707; - if (!DataModul.DB_WitnessTable.NoMatch) - { - goto IL_3d96; - } - else - { - goto IL_3dad; - } - IL_3d96: - num = 708; - StringType.MidStmtStr(ref sDest, 46, 1, "J"); - goto IL_3dad; - IL_3dad: - num = 710; - List1.Items.Add(new ListItem(sDest + " " + Modul1.PersInArb.AsString())); - goto IL_3de8; - IL_3de8: - num = 712; - I1++; - goto IL_3dfe; - IL_2496: - num = 439; - List1.Items.Clear(); - goto IL_24ae; - IL_24ae: - num = 440; - Label1[2].Text = "Personen ohne Datum"; - goto IL_24cc; - IL_24cc: - num = 441; - Label1[1].Text = Modul1.IText[166]; - goto IL_24f0; - IL_24f0: - num = 442; - Label1[0].Text = Modul1.IText[167]; - goto IL_2514; - IL_2514: - num = 443; - I1 = 0; - goto IL_2522; - IL_2522: - num = 444; - Label1[(short)I1].Refresh(); - goto IL_2541; - IL_2541: - num = 445; - I1++; - i5 = I1; - num5 = 2; - if (i5 <= num5) - { - goto IL_2522; - } - else - { - goto IL_2564; - } - IL_2564: - num = 446; - num7 = 1; - goto IL_256e; - IL_256e: - num = 447; - if (num7 <= 0) - { - goto end_IL_0001_2; - } - goto IL_2589; - IL_2589: - num = 450; - DataModul.DB_PersonTable.Index = nameof(DataModul.PersonIndex.PerNr); - goto IL_25a0; - IL_25a0: - num = 451; - DataModul.DB_PersonTable.MoveLast(); - goto IL_25b3; - IL_25b3: - num = 452; - num8 = DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value.AsInt(); - goto IL_25da; - IL_25da: - num = 453; - if (num7 == 0) - { - goto end_IL_0001_2; - } - goto IL_25f2; - IL_25f2: - num = 456; - if ((num7 > DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value)) - { - goto IL_2625; - } - else - { - goto IL_2666; - } - IL_2625: - num = 457; - Interaction.MsgBox(Modul1.IText[173] + " " + num7.AsString() + Modul1.IText[172]); - goto end_IL_0001_2; - IL_2666: - num = 460; - ProgressBar1.Minimum = 0; - goto IL_267a; - IL_267a: - num = 461; - ProgressBar1.Maximum = 0; - goto IL_268e; - IL_268e: - num = 462; - ProgressBar1.Step = 1; - goto IL_26a2; - IL_26a2: - num = 463; - ProgressBar1.Maximum = DataModul.DB_PersonTable.RecordCount - 1; - goto IL_26c1; - IL_26c1: - num = 464; - i6 = num7; - num10 = DataModul.DB_PersonTable.RecordCount - 1; - I1 = i6; - goto IL_33b6; - IL_33b6: - i7 = I1; - num5 = num10; - if (i7 <= num5) - { - goto IL_26e3; - } - else - { - goto IL_33c7; - } - IL_33c7: - num = 615; - Label4.Text = List1.Items.Count - 1.AsString() + " Einträge"; - goto IL_448a; - IL_26e3: - num = 465; - ProgressBar1.PerformStep(); - goto IL_26f6; - IL_26f6: - num = 466; - Application.DoEvents(); - goto IL_2703; - IL_2703: - num = 467; - Modul1.PersInArb = I1; - goto IL_2715; - IL_2715: - num = 468; - if (Modul1.PersInArb <= num8) - { - goto IL_2730; - } - else - { - goto IL_448a; - } - IL_2730: - num = 471; - DataModul.DB_PersonTable.Seek("=", Modul1.PersInArb.AsString()); - goto IL_2792; - IL_2792: - num = 472; - if (!DataModul.DB_PersonTable.NoMatch) - { - goto IL_27ae; - } - else - { - goto IL_3395; - } - IL_27ae: - num = 475; - Modul1.Personlesen(Modul1.PersInArb); - goto IL_27bb; - IL_27bb: - num = 476; - Modul1.LiText = Strings.Left((Modul1.Kont[0]).Trim() + "," + (Modul1.Kont[3]).Trim() + " ", 20); - goto IL_27f5; - IL_27f5: - num = 477; - Modul1.Schalt = 20; - goto IL_2803; - IL_2803: - num = 478; - T = 1; - goto IL_2811; - IL_2811: - num = 479; - Modul1.Kont[T + 10] = ""; - goto IL_282d; - IL_282d: - num = 480; - Modul1.Kont[T + 20] = ""; - goto IL_2849; - IL_2849: - num = 481; - T = (short)unchecked(T + 1); - t = T; - num11 = 10; - if (t <= num11) - { - goto IL_2811; - } - else - { - goto IL_286e; - } - IL_286e: - num = 482; - Modul1.Datles(); - goto IL_287b; - IL_287b: - num = 483; - sDest2 = " "; - goto IL_2889; - IL_2889: - num = 484; - if ((Modul1.Kont[11]).Trim() == "") - { - goto IL_28b9; - } - else - { - goto IL_3395; - } - IL_28b9: - num = 487; - if ((Modul1.Kont[12]).Trim() == "") - { - goto IL_28e9; - } - else - { - goto IL_3395; - } - IL_28e9: - num = 490; - if ((Modul1.Kont[13]).Trim() == "") - { - goto IL_2919; - } - else - { - goto IL_3395; - } - IL_2919: - num = 493; - if ((Modul1.Kont[14]).Trim() == "") - { - goto IL_2949; - } - else - { - goto IL_3395; - } - IL_2949: - num = 496; - num12 = 300; - goto IL_2956; - IL_2956: - num = 497; - DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.BeSu); - goto IL_296d; - IL_296d: - num = 498; - DataModul.DB_EventTable.Seek("=", num12, Modul1.PersInArb.AsString()); - goto IL_29d0; - IL_29d0: - num = 499; - if (!DataModul.DB_EventTable.NoMatch) - { - goto IL_29ec; - } - else - { - goto IL_2d63; - } - IL_29ec: - num = 502; - switch (num12) - { - case 300: - break; - case 301: - goto IL_2b31; - case 302: - goto IL_2c4c; - default: - goto IL_2d63; - } - - { - goto IL_2a16; - } - IL_2c4c: - num = 534; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) - { - goto IL_2c7e; - } - else - { - goto IL_2c9b; - } - IL_2c7e: - num = 535; - StringType.MidStmtStr(ref sDest2, 50, 1, Modul1.IText[175]); - goto IL_2c9b; - IL_2c9b: - num = 537; - if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_2cd2; - } - else - { - goto IL_3395; - } - IL_2cd2: - num = 540; - if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) - { - goto IL_2d09; - } - else - { - goto IL_3395; - } - IL_2d09: - num = 543; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_2d44; - } - else - { - goto IL_2d63; - } - IL_2d44: - num = 544; - StringType.MidStmtStr(ref sDest2, 53, 1, Modul1.IText[175]); - goto IL_2d63; - IL_2b31: - num = 520; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) - { - goto IL_2b63; - } - else - { - goto IL_2b80; - } - IL_2b63: - num = 521; - StringType.MidStmtStr(ref sDest2, 42, 1, Modul1.IText[175]); - goto IL_2b80; - IL_2b80: - num = 523; - if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_2bb7; - } - else - { - goto IL_3395; - } - IL_2bb7: - num = 526; - if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) - { - goto IL_2bee; - } - else - { - goto IL_3395; - } - IL_2bee: - num = 529; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_2c29; - } - else - { - goto IL_2d63; - } - IL_2c29: - num = 530; - StringType.MidStmtStr(ref sDest2, 46, 1, Modul1.IText[175]); - goto IL_2d63; - IL_2a16: - num = 506; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) - { - goto IL_2a48; - } - else - { - goto IL_2a65; - } - IL_2a48: - num = 507; - StringType.MidStmtStr(ref sDest2, 34, 1, Modul1.IText[175]); - goto IL_2a65; - IL_2a65: - num = 509; - if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_2a9c; - } - else - { - goto IL_3395; - } - IL_2a9c: - num = 512; - if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) - { - goto IL_2ad3; - } - else - { - goto IL_3395; - } - IL_2ad3: - num = 515; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_2b0e; - } - else - { - goto IL_2d63; - } - IL_2b0e: - num = 516; - StringType.MidStmtStr(ref sDest2, 38, 1, Modul1.IText[175]); - goto IL_2d63; - IL_2d63: - num = 547; - lErl = 92; - goto IL_2d6e; - IL_2d6e: - num = 548; - num12 = (short)unchecked(num12 + 1); - num13 = num12; - num11 = 302; - if (num13 <= num11) - { - goto IL_2956; - } - else - { - goto IL_32fc; - } - IL_32fc: - num = 606; - lErl = 45; - goto IL_3307; - IL_3307: - num = 607; - Modul1.LiText += sDest2; - goto IL_3320; - IL_3320: - num = 609; - if ((Modul1.LiText).Trim() != "") - { - goto IL_3348; - } - else - { - goto IL_3383; - } - IL_3348: - num = 610; - List1.Items.Add(new ListItem(Modul1.LiText + " " + Modul1.PersInArb.AsString())); - goto IL_3383; - IL_3383: - num = 612; - Modul1.LiText = ""; - goto IL_3395; - IL_3395: - num = 613; - lErl = 95; - goto IL_33a0; - IL_33a0: - num = 614; - I1++; - goto IL_33b6; - IL_1c00: - num = 336; - //Sz = 0; - goto IL_1c0e; - IL_1c0e: - num = 337; - List1.Items.Clear(); - goto IL_1c26; - IL_1c26: - num = 338; - Label1[2].Text = "Familien ohne Datum"; - goto IL_1c44; - IL_1c44: - num = 339; - Label1[1].Text = "Mann Frau Kinder Pro Verl. Hei k.H. Schd. Eheä. Aus Fikt."; - goto IL_1c62; - IL_1c62: - num = 340; - Label1[0].Text = " DO DO DO DO DO DO DO"; - goto IL_1c80; - IL_1c80: - num = 341; - if (RadioButton2.Checked) - { - goto IL_1c98; - } - else - { - goto IL_1cb5; - } - IL_1c98: - num = 342; - List1.Items.Add("Familien ohne Datum"); - goto IL_1cb5; - IL_1cb5: - num = 344; - if (RadioButton2.Checked) - { - goto IL_1ccd; - } - else - { - goto IL_1cea; - } - IL_1ccd: - num = 345; - List1.Items.Add("Mann Frau Kinder Pro Verl. Hei k.H. Schd. eheä. auß Fikt."); - goto IL_1cea; - IL_1cea: - num = 347; - if (RadioButton2.Checked) - { - goto IL_1d02; - } - else - { - goto IL_1d1f; - } - IL_1d02: - num = 348; - List1.Items.Add(" DO DO DO DO DO DO DO"); - goto IL_1d1f; - IL_1d1f: - num = 350; - Modul1.I = 0; - goto IL_1d2c; - IL_1d2c: - num = 351; - Label1[(short)Modul1.I].Refresh(); - goto IL_1d4a; - IL_1d4a: - num = 352; - Modul1.I++; - i8 = Modul1.I; - num5 = 2; - if (i8 <= num5) - { - goto IL_1d2c; - } - else - { - goto IL_1d6a; - } - IL_1d6a: - num = 353; - num7 = 1; - goto IL_1d74; - IL_1d74: - num = 354; - if (num7 <= 0) - { - goto end_IL_0001_2; - } - goto IL_1d8f; - IL_1d8f: - num = 357; - DataModul.DB_FamilyTable.MoveLast(); - goto IL_1da2; - IL_1da2: - num = 358; - num8 = DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value.AsInt(); - goto IL_1dc9; - IL_1dc9: - num = 359; - if ((num7 > DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value)) - { - goto IL_1dfc; - } - else - { - goto IL_1e3d; - } - IL_1dfc: - num = 360; - Interaction.MsgBox(Modul1.IText[174] + " " + num7.AsString() + Modul1.IText[172]); - goto end_IL_0001_2; - IL_1e3d: - num = 363; - ProgressBar1.Minimum = 0; - goto IL_1e51; - IL_1e51: - num = 364; - ProgressBar1.Maximum = 0; - goto IL_1e65; - IL_1e65: - num = 365; - ProgressBar1.Step = 1; - goto IL_1e79; - IL_1e79: - num = 366; - ProgressBar1.Maximum = (int)Math.Round(Conversion.Val(Modul1.Aus[13])); - goto IL_1e9f; - IL_1e9f: - num = 367; - i9 = num7; - num14 = num7 + DataModul.DB_FamilyTable.RecordCount; - I1 = i9; - goto IL_2440; - IL_2440: - i10 = I1; - num5 = num14; - if (i10 <= num5) - { - goto IL_1ec2; - } - else - { - goto IL_2451; - } - IL_2451: - num = 435; - Label4.Text = List1.Items.Count - 2.AsString() + " Einträge"; - goto end_IL_0001_2; - IL_1ec2: - num = 368; - ProgressBar1.PerformStep(); - goto IL_1ed5; - IL_1ed5: - num = 369; - Application.DoEvents(); - goto IL_1ee2; - IL_1ee2: - num = 370; - sDest2 = " "; - goto IL_1ef0; - IL_1ef0: - num = 371; - Modul1.FamInArb = I1; - goto IL_1f02; - IL_1f02: - num = 372; - if (Modul1.FamInArb <= num8) - { - goto IL_1f1d; - } - else - { - goto IL_241f; - } - IL_1f1d: - num = 375; - DataModul.DB_FamilyTable.Index = nameof(DataModul.FamilyIndex.Fam); - goto IL_1f34; - IL_1f34: - num = 376; - DataModul.DB_FamilyTable.Seek("=", Modul1.FamInArb.AsString()); - goto IL_1f96; - IL_1f96: - num = 377; - if (!DataModul.DB_FamilyTable.NoMatch) - { - goto IL_1fb2; - } - else - { - goto IL_2317; - } - IL_1fb2: - num = 380; - MainProject.Forms.Familie.Famles(Modul1.FamInArb); - goto IL_1fbf; - IL_1fbf: - num = 381; - if (Modul1.Family.Mann > 0) - { - goto IL_1fd7; - } - else - { - goto IL_206d; - } - IL_1fd7: - num = 382; - Modul1.PersInArb = Modul1.Family.Mann; - goto IL_1fe8; - IL_1fe8: - num = 383; - Modul1.Personlesen(Modul1.PersInArb); - goto IL_1ff5; - IL_1ff5: - num = 384; - if (Modul1.Kont[0] != "") - { - goto IL_201a; - } - else - { - goto IL_2035; - } - IL_201a: - num = 385; - StringType.MidStmtStr(ref sDest2, 1, 15, Modul1.Kont[0]); - goto IL_2055; - IL_2035: - num = 387; - goto IL_203d; - IL_203d: - num = 388; - StringType.MidStmtStr(ref sDest2, 1, 15, ">NN<"); - goto IL_2055; - IL_2055: - num = 390; - StringType.MidStmtStr(ref sDest2, 16, 2, "/ "); - goto IL_206d; - IL_206d: - num = 392; - if (Modul1.Family.Frau > 0) - { - goto IL_2085; - } - else - { - goto IL_2106; - } - IL_2085: - num = 393; - Modul1.PersInArb = Modul1.Family.Frau; - goto IL_2096; - IL_2096: - num = 394; - Modul1.Personlesen(Modul1.PersInArb); - goto IL_20a3; - IL_20a3: - num = 395; - if (Modul1.Kont[0] != "") - { - goto IL_20c8; - } - else - { - goto IL_20e4; - } - IL_20c8: - num = 396; - StringType.MidStmtStr(ref sDest2, 17, 15, Modul1.Kont[0]); - goto IL_2106; - IL_20e4: - num = 398; - goto IL_20ec; - IL_20ec: - num = 399; - StringType.MidStmtStr(ref sDest2, 17, 15, ">NN<"); - goto IL_2106; - IL_2106: - num = 402; - if (Modul1.Family.Kind[1] != 0) - { - goto IL_2120; - } - else - { - goto IL_213d; - } - IL_2120: - num = 403; - StringType.MidStmtStr(ref sDest2, 32, 1, Modul1.IText[175]); - goto IL_213d; - IL_213d: - num = 405; - DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.ArtNr); - goto IL_2154; - IL_2154: - num = 406; - DataModul.DB_FamilyTable.Index = nameof(DataModul.FamilyIndex.Fam); - goto IL_216b; - IL_216b: - num = 407; - DataModul.DB_FamilyTable.Seek("=", Modul1.FamInArb); - goto IL_21c8; - IL_21c8: - num = 408; - if (!DataModul.DB_FamilyTable.NoMatch) - { - goto IL_21e4; - } - else - { - goto IL_2317; - } - IL_21e4: - num = 411; - if ((DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.Aeb)].Value == -1)) - { - goto IL_2216; - } - else - { - goto IL_2233; - } - IL_2216: - num = 412; - StringType.MidStmtStr(ref sDest2, 70, 1, Modul1.IText[175]); - goto IL_2233; - IL_2233: - num = 414; - num15 = 500; - goto IL_2240; - IL_2240: - num = 415; - Modul1.Ubg = num15; - goto IL_224d; - IL_224d: - num = 416; - DataModul.DB_EventTable.Seek("=", Modul1.Ubg.AsString(), Modul1.FamInArb.AsString(), "0"); - goto IL_22b9; - IL_22b9: - num = 417; - if (DataModul.DB_EventTable.NoMatch) - { - goto IL_22d8; - } - else - { - goto IL_241f; - } - IL_22d8: - num = 420; - if (!((num15 == 507) & DataModul.DB_EventTable.NoMatch)) - { - goto IL_22fa; - } - else - { - goto IL_2317; - } - IL_22fa: - num = 423; - num15 = (short)unchecked(num15 + 1); - num16 = num15; - num11 = 507; - if (num16 <= num11) - { - goto IL_2240; - } - else - { - goto IL_2317; - } - IL_2317: - num = 424; - lErl = 34; - goto IL_2322; - IL_2322: - num = 425; - DataModul.DB_EventTable.Seek("=", 601.AsString(), Modul1.FamInArb.AsString(), "0"); - goto IL_238e; - IL_238e: - num = 426; - if (DataModul.DB_EventTable.NoMatch) - { - goto IL_23aa; - } - else - { - goto IL_241f; - } - IL_23aa: - num = 429; - if (sDest2.Trim() != "") - { - goto IL_23cf; - } - else - { - goto IL_241f; - } - IL_23cf: - num = 430; - List1.Items.Add(new ListItem(sDest2 + " " + Modul1.FamInArb.AsString())); - goto IL_2407; - IL_2407: - num = 431; - //Sz++; - goto IL_241f; - IL_241f: - num = 433; - lErl = 35; - goto IL_242a; - IL_242a: - num = 434; - I1++; - goto IL_2440; - IL_1aae: - num = 322; - FileSystem.FileClose(99); - goto IL_1acb; - IL_1acb: - num = 323; - FileSystem.FileOpen(99, Modul1.TempPath + "\\Text4.Txt", OpenMode.Output); - goto IL_1aed; - IL_1aed: - num = 324; - FileSystem.PrintLine(99, Label1[2].Text); - goto IL_1b1c; - IL_1b1c: - num = 325; - FileSystem.PrintLine(99, Label1[1].Text); - goto IL_1b4b; - IL_1b4b: - num = 326; - FileSystem.PrintLine(99, Label1[0].Text); - goto IL_1b7a; - IL_1b7a: - num = 327; - if (List2.Visible) - { - goto IL_1b92; - } - else - { - goto IL_1bb9; - } - IL_1b92: - num = 328; - L = List2; - A = 2; - Modul1.Listbox3Clip(ref L, ref A); - List2 = L; - goto IL_1be7; - IL_1bb9: - num = 330; - goto IL_1bc1; - IL_1bc1: - num = 331; - L = List1; - A = 2; - Modul1.Listbox3Clip(ref L, ref A); - List1 = L; - goto IL_1be7; - IL_1be7: - num = 333; - FileSystem.FileClose(); - goto IL_448a; - IL_1a3c: - num = 314; - List1.Items.Clear(); - goto IL_1a54; - IL_1a54: - num = 315; - List2.Items.Clear(); - goto IL_1a6c; - IL_1a6c: - num = 316; - ProgressBar1.Minimum = 0; - goto IL_1a80; - IL_1a80: - num = 317; - ProgressBar1.Maximum = 0; - goto IL_1a94; - IL_1a94: - num = 318; - Close(); - goto end_IL_0001_2; - IL_0cef: - num = 159; - DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.ArtNr); - goto IL_0d06; - IL_0d06: - num = 160; - List1.Items.Clear(); - goto IL_0d1e; - IL_0d1e: - num = 161; - Label1[2].Text = "Fehlliste Familien"; - goto IL_0d3c; - IL_0d3c: - num = 162; - Label1[1].Text = "Mann Frau Kinder Pro Verl. Hei k.H. Schd. eheä. auß Fikt."; - goto IL_0d5a; - IL_0d5a: - num = 163; - Label1[0].Text = " DO DO DO DO DO DO DO"; - goto IL_0d78; - IL_0d78: - num = 164; - if (RadioButton2.Checked) - { - goto IL_0d90; - } - else - { - goto IL_0dad; - } - IL_0d90: - num = 165; - List1.Items.Add("Fehlliste Familien"); - goto IL_0dad; - IL_0dad: - num = 167; - if (RadioButton2.Checked) - { - goto IL_0dc5; - } - else - { - goto IL_0de2; - } - IL_0dc5: - num = 168; - List1.Items.Add("Mann Frau Kinder Pro Verl. Hei k.H. Schd. eheä. auß Fikt."); - goto IL_0de2; - IL_0de2: - num = 170; - if (RadioButton2.Checked) - { - goto IL_0dfa; - } - else - { - goto IL_0e17; - } - IL_0dfa: - num = 171; - List1.Items.Add(" DO DO DO DO DO DO DO"); - goto IL_0e17; - IL_0e17: - num = 173; - Modul1.I = 0; - goto IL_0e24; - IL_0e24: - num = 174; - Label1[(short)Modul1.I].Refresh(); - goto IL_0e42; - IL_0e42: - num = 175; - Modul1.I++; - i11 = Modul1.I; - num5 = 2; - if (i11 <= num5) - { - goto IL_0e24; - } - else - { - goto IL_0e62; - } - IL_0e62: - num = 176; - num7 = 1; - goto IL_0e6c; - IL_0e6c: - num = 177; - if (num7 <= 0) - { - goto end_IL_0001_2; - } - goto IL_0e87; - IL_0e87: - num = 180; - DataModul.DB_FamilyTable.MoveLast(); - goto IL_0e9a; - IL_0e9a: - num = 181; - num8 = DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value.AsInt(); - goto IL_0ec1; - IL_0ec1: - num = 182; - if ((num7 > DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value)) - { - goto IL_0ef4; - } - else - { - goto IL_0f36; - } - IL_0ef4: - num = 183; - Interaction.MsgBox("Die höchste Familiennummer ist " + DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value.AsString()); - goto end_IL_0001_2; - IL_0f36: - num = 186; - ProgressBar1.Minimum = 0; - goto IL_0f4a; - IL_0f4a: - num = 187; - ProgressBar1.Maximum = DataModul.DB_FamilyTable.RecordCount - 1; - goto IL_0f69; - IL_0f69: - num = 188; - ProgressBar1.Step = 1; - goto IL_0f7d; - IL_0f7d: - num = 189; - i12 = num7; - num17 = num8; - I1 = i12; - goto IL_199d; - IL_199d: - i13 = I1; - num5 = num17; - if (i13 <= num5) - { - goto IL_0f95; - } - else - { - goto IL_19ae; - } - IL_19ae: - num = 308; - Label4.Text = List1.Items.Count - 3.AsString() + " Familien"; - goto IL_19e7; - IL_19e7: - num = 309; - if (RadioButton1.Checked) - { - goto IL_19ff; - } - else - { - goto IL_448a; - } - IL_19ff: - num = 310; - Label4.Text = List1.Items.Count.AsString() + " Familien"; - goto IL_448a; - IL_0f95: - num = 190; - ProgressBar1.PerformStep(); - goto IL_0fa8; - IL_0fa8: - num = 191; - Application.DoEvents(); - goto IL_0fb5; - IL_0fb5: - num = 192; - sDest2 = " "; - goto IL_0fc3; - IL_0fc3: - num = 193; - Modul1.FamInArb = I1; - goto IL_0fd5; - IL_0fd5: - num = 194; - if (Modul1.FamInArb <= num8) - { - goto IL_0ff0; - } - else - { - goto IL_448a; - } - IL_0ff0: - num = 197; - DataModul.DB_FamilyTable.Index = nameof(DataModul.FamilyIndex.Fam); - goto IL_1007; - IL_1007: - num = 198; - DataModul.DB_FamilyTable.Seek("=", Modul1.FamInArb.AsString()); - goto IL_1069; - IL_1069: - num = 199; - if (!DataModul.DB_FamilyTable.NoMatch) - { - goto IL_1085; - } - else - { - goto IL_197c; - } - IL_1085: - num = 202; - MainProject.Forms.Familie.Famles(Modul1.FamInArb); - goto IL_1092; - IL_1092: - num = 203; - if (Modul1.Family.Mann > 0) - { - goto IL_10aa; - } - else - { - goto IL_1140; - } - IL_10aa: - num = 204; - Modul1.PersInArb = Modul1.Family.Mann; - goto IL_10bb; - IL_10bb: - num = 205; - Modul1.Personlesen(Modul1.PersInArb); - goto IL_10c8; - IL_10c8: - num = 206; - if (Modul1.Kont[0] != "") - { - goto IL_10ed; - } - else - { - goto IL_1108; - } - IL_10ed: - num = 207; - StringType.MidStmtStr(ref sDest2, 1, 15, Modul1.Kont[0]); - goto IL_1128; - IL_1108: - num = 209; - goto IL_1110; - IL_1110: - num = 210; - StringType.MidStmtStr(ref sDest2, 1, 15, ">NN<"); - goto IL_1128; - IL_1128: - num = 212; - StringType.MidStmtStr(ref sDest2, 16, 2, "/ "); - goto IL_1140; - IL_1140: - num = 214; - if (Modul1.Family.Frau > 0) - { - goto IL_1158; - } - else - { - goto IL_11d9; - } - IL_1158: - num = 215; - Modul1.PersInArb = Modul1.Family.Frau; - goto IL_1169; - IL_1169: - num = 216; - Modul1.Personlesen(Modul1.PersInArb); - goto IL_1176; - IL_1176: - num = 217; - if (Modul1.Kont[0] != "") - { - goto IL_119b; - } - else - { - goto IL_11b7; - } - IL_119b: - num = 218; - StringType.MidStmtStr(ref sDest2, 17, 15, Modul1.Kont[0]); - goto IL_11d9; - IL_11b7: - num = 220; - goto IL_11bf; - IL_11bf: - num = 221; - StringType.MidStmtStr(ref sDest2, 17, 15, ">NN<"); - goto IL_11d9; - IL_11d9: - num = 224; - if (Modul1.Family.Kind[1] != 0) - { - goto IL_11f3; - } - else - { - goto IL_1210; - } - IL_11f3: - num = 225; - StringType.MidStmtStr(ref sDest2, 32, 1, Modul1.IText[175]); - goto IL_1210; - IL_1210: - num = 227; - DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.ArtNr); - goto IL_1227; - IL_1227: - num = 228; - DataModul.DB_FamilyTable.Index = nameof(DataModul.FamilyIndex.Fam); - goto IL_123e; - IL_123e: - num = 229; - DataModul.DB_FamilyTable.Seek("=", Modul1.FamInArb); - goto IL_129b; - IL_129b: - num = 230; - if (!DataModul.DB_FamilyTable.NoMatch) - { - goto IL_12b7; - } - else - { - goto IL_197c; - } - IL_12b7: - num = 233; - if ((DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.Aeb)].Value == -1)) - { - goto IL_12e9; - } - else - { - goto IL_1306; - } - IL_12e9: - num = 234; - StringType.MidStmtStr(ref sDest2, 70, 1, Modul1.IText[175]); - goto IL_1306; - IL_1306: - num = 236; - num15 = 500; - goto IL_1313; - IL_1313: - num = 237; - Modul1.Ubg = num15; - goto IL_1320; - IL_1320: - num = 238; - DataModul.DB_EventTable.Seek("=", Modul1.Ubg.AsString(), Modul1.FamInArb.AsString(), "0"); - goto IL_138c; - IL_138c: - num = 239; - if (!DataModul.DB_EventTable.NoMatch) - { - goto IL_13a8; - } - else - { - goto IL_17ec; - } - IL_13a8: - num = 242; - switch (Modul1.Ubg) - { - case 500: - break; - case 501: - goto IL_148f; - case 502: - goto IL_153c; - case 503: - goto IL_15e9; - case 504: - goto IL_1696; - case 505: - goto IL_1743; - default: - goto IL_17ec; - } - - { - goto IL_13e2; - } - IL_1743: - num = 286; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_1775; - } - else - { - goto IL_1792; - } - IL_1775: - num = 287; - StringType.MidStmtStr(ref sDest2, 65, 1, Modul1.IText[175]); - goto IL_1792; - IL_1792: - num = 289; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_17cd; - } - else - { - goto IL_17ec; - } - IL_17cd: - num = 290; - StringType.MidStmtStr(ref sDest2, 66, 1, Modul1.IText[175]); - goto IL_17ec; - IL_1696: - num = 278; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_16c8; - } - else - { - goto IL_16e5; - } - IL_16c8: - num = 279; - StringType.MidStmtStr(ref sDest2, 59, 1, Modul1.IText[175]); - goto IL_16e5; - IL_16e5: - num = 281; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_1720; - } - else - { - goto IL_17ec; - } - IL_1720: - num = 282; - StringType.MidStmtStr(ref sDest2, 60, 1, Modul1.IText[175]); - goto IL_17ec; - IL_15e9: - num = 270; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_161b; - } - else - { - goto IL_1638; - } - IL_161b: - num = 271; - StringType.MidStmtStr(ref sDest2, 54, 1, Modul1.IText[175]); - goto IL_1638; - IL_1638: - num = 273; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_1673; - } - else - { - goto IL_17ec; - } - IL_1673: - num = 274; - StringType.MidStmtStr(ref sDest2, 55, 1, Modul1.IText[175]); - goto IL_17ec; - IL_153c: - num = 262; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_156e; - } - else - { - goto IL_158b; - } - IL_156e: - num = 263; - StringType.MidStmtStr(ref sDest2, 48, 1, Modul1.IText[175]); - goto IL_158b; - IL_158b: - num = 265; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_15c6; - } - else - { - goto IL_17ec; - } - IL_15c6: - num = 266; - StringType.MidStmtStr(ref sDest2, 49, 1, Modul1.IText[175]); - goto IL_17ec; - IL_148f: - num = 254; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_14c1; - } - else - { - goto IL_14de; - } - IL_14c1: - num = 255; - StringType.MidStmtStr(ref sDest2, 42, 1, Modul1.IText[175]); - goto IL_14de; - IL_14de: - num = 257; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_1519; - } - else - { - goto IL_17ec; - } - IL_1519: - num = 258; - StringType.MidStmtStr(ref sDest2, 43, 1, Modul1.IText[175]); - goto IL_17ec; - IL_13e2: - num = 246; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_1414; - } - else - { - goto IL_1431; - } - IL_1414: - num = 247; - StringType.MidStmtStr(ref sDest2, 37, 1, Modul1.IText[175]); - goto IL_1431; - IL_1431: - num = 249; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_146c; - } - else - { - goto IL_17ec; - } - IL_146c: - num = 250; - StringType.MidStmtStr(ref sDest2, 38, 1, Modul1.IText[175]); - goto IL_17ec; - IL_17ec: - num = 293; - lErl = 54; - goto IL_17f7; - IL_17f7: - num = 294; - num15 = (short)unchecked(num15 + 1); - num18 = num15; - num11 = 507; - if (num18 <= num11) - { - goto IL_1313; - } - else - { - goto IL_1814; - } - IL_1814: - num = 295; - lErl = 3; - goto IL_181e; - IL_181e: - num = 296; - DataModul.DB_EventTable.Seek("=", 601.AsString(), Modul1.FamInArb.AsString(), "0"); - goto IL_188a; - IL_188a: - num = 297; - if (!DataModul.DB_EventTable.NoMatch) - { - goto IL_18a7; - } - else - { - goto IL_1943; - } - IL_18a7: - num = 298; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_18d9; - } - else - { - goto IL_18f0; - } - IL_18d9: - num = 299; - StringType.MidStmtStr(ref sDest2, 75, 1, "J"); - goto IL_18f0; - IL_18f0: - num = 301; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_192b; - } - else - { - goto IL_1943; - } - IL_192b: - num = 302; - StringType.MidStmtStr(ref sDest2, 76, 1, "J"); - goto IL_1943; - IL_1943: - num = 305; - List1.Items.Add(new ListItem(sDest2 + " " + Modul1.FamInArb.AsString())); - goto IL_197c; - IL_197c: - num = 306; - lErl = 55; - goto IL_1987; - IL_1987: - num = 307; - I1++; - goto IL_199d; - IL_01d7: - num = 35; - List1.Items.Clear(); - goto IL_01ec; - IL_01ec: - num = 36; - Label1[2].Text = "Fehlliste Personen"; - goto IL_0207; - IL_0207: - num = 37; - Label1[1].Text = Modul1.IText[166]; - goto IL_0228; - IL_0228: - num = 38; - Label1[0].Text = Modul1.IText[167]; - goto IL_0249; - IL_0249: - num = 39; - Label1[1].Text = Label1[1].Text + " Quelle"; - goto IL_027a; - IL_027a: - num = 40; - Label1[0].Text = Label1[0].Text + " T V"; - goto IL_02ab; - IL_02ab: - num = 41; - I1 = 0; - goto IL_02b6; - IL_02b6: - num = 42; - Label1[(short)I1].Refresh(); - goto IL_02d2; - IL_02d2: - num = 43; - I1++; - i14 = I1; - num5 = 2; - if (i14 <= num5) - { - goto IL_02b6; - } - else - { - goto IL_02f2; - } - IL_02f2: - num = 44; - num7 = 1; - goto IL_02f9; - IL_02f9: - num = 45; - if (num7 <= 0) - { - goto end_IL_0001_2; - } - goto IL_0311; - IL_0311: - num = 48; - DataModul.DB_PersonTable.Index = nameof(DataModul.PersonIndex.PerNr); - goto IL_0325; - IL_0325: - num = 49; - DataModul.DB_PersonTable.MoveLast(); - goto IL_0335; - IL_0335: - num = 50; - num8 = DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value.AsInt(); - goto IL_0359; - IL_0359: - num = 51; - if (num7 == 0) - { - goto end_IL_0001_2; - } - goto IL_036e; - IL_036e: - num = 54; - if ((num7 > DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value)) - { - goto IL_039e; - } - else - { - goto IL_03dd; - } - IL_039e: - num = 55; - Interaction.MsgBox("Die höchste Personennummer ist " + DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value.AsString()); - goto end_IL_0001_2; - IL_03dd: - num = 58; - ProgressBar1.Minimum = 0; - goto IL_03ee; - IL_03ee: - num = 59; - ProgressBar1.Maximum = 0; - goto IL_03ff; - IL_03ff: - num = 60; - ProgressBar1.Step = 1; - goto IL_0410; - IL_0410: - num = 61; - ProgressBar1.Maximum = DataModul.DB_PersonTable.RecordCount - 1; - goto IL_042c; - IL_042c: - num = 62; - List1.Items.Clear(); - goto IL_0441; - IL_0441: - num = 63; - i15 = num7; - num19 = num8; - I1 = i15; - goto IL_0ca1; - IL_0ca1: - i16 = I1; - num5 = num19; - if (i16 <= num5) - { - goto IL_0456; - } - else - { - goto IL_0cb2; - } - IL_0cb2: - num = 156; - Label4.Text = List1.Items.Count.AsString() + " Einträge"; - goto IL_448a; - IL_0456: - num = 64; - ProgressBar1.PerformStep(); - goto IL_0466; - IL_0466: - num = 65; - Application.DoEvents(); - goto IL_0470; - IL_0470: - num = 66; - Modul1.PersInArb = I1; - goto IL_047f; - IL_047f: - num = 67; - if (Modul1.PersInArb <= num8) - { - goto IL_0497; - } - else - { - goto IL_448a; - } - IL_448a: - num = 781; - lErl = 4; - goto IL_4494; - IL_4494: - num = 782; - if (!RadioButton2.Checked) - { - goto end_IL_0001_2; - } - goto IL_44ac; - IL_44ac: - num = 783; - List1.Items.Add("Ende der Liste"); - goto IL_44c9; - IL_44c9: - num = 784; - Modul1.I = 1; - goto IL_44d6; - IL_44d6: - num = 785; - List1.Items.Add(""); - goto IL_44f3; - IL_44f3: - num = 786; - Modul1.I++; - i17 = Modul1.I; - num5 = 17; - if (i17 > num5) - { - goto end_IL_0001_2; - } - goto IL_44d6; - IL_0497: - num = 70; - DataModul.DB_PersonTable.Seek("=", Modul1.PersInArb.AsString()); - goto IL_04f6; - IL_04f6: - num = 71; - if (!DataModul.DB_PersonTable.NoMatch) - { - goto IL_050f; - } - else - { - goto IL_0c81; - } - IL_050f: - num = 74; - Modul1.Personlesen(Modul1.PersInArb); - goto IL_0519; - IL_0519: - num = 75; - Modul1.LiText = Strings.Left((Modul1.Kont[0]).Trim() + "," + (Modul1.Kont[3]).Trim() + " ", 20); - goto IL_0550; - IL_0550: - num = 76; - Modul1.Schalt = 20; - goto IL_055b; - IL_055b: - num = 77; - T = 1; - goto IL_0566; - IL_0566: - num = 78; - Modul1.Kont[T + 10] = " "; - goto IL_057f; - IL_057f: - num = 79; - Modul1.Kont[T + 20] = " "; - goto IL_0598; - IL_0598: - num = 80; - T = (short)unchecked(T + 1); - t2 = T; - num11 = 10; - if (t2 <= num11) - { - goto IL_0566; - } - else - { - goto IL_05ba; - } - IL_05ba: - num = 81; - Modul1.Datles(); - goto IL_05c4; - IL_05c4: - num = 82; - sDest2 = " "; - goto IL_05cf; - IL_05cf: - num = 83; - StringType.MidStmtStr(ref sDest2, 2, 2, Modul1.Kont[11] + Modul1.Kont[21]); - goto IL_05f2; - IL_05f2: - num = 84; - StringType.MidStmtStr(ref sDest2, 8, 2, Modul1.Kont[12] + Modul1.Kont[22]); - goto IL_0615; - IL_0615: - num = 85; - StringType.MidStmtStr(ref sDest2, 17, 2, Modul1.Kont[13] + Modul1.Kont[23]); - goto IL_0639; - IL_0639: - num = 86; - StringType.MidStmtStr(ref sDest2, 27, 2, Modul1.Kont[14] + Modul1.Kont[24]); - goto IL_065d; - IL_065d: - num = 87; - num12 = 300; - goto IL_0667; - IL_0667: - num = 88; - DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.BeSu); - goto IL_067b; - IL_067b: - num = 89; - DataModul.DB_EventTable.Seek("=", num12, Modul1.PersInArb.AsString()); - goto IL_06db; - IL_06db: - num = 90; - if (!DataModul.DB_EventTable.NoMatch) - { - goto IL_06f4; - } - else - { - goto IL_0ac2; - } - IL_06f4: - num = 93; - switch (num12) - { - case 300: - break; - case 301: - goto IL_084e; - case 302: - goto IL_0981; - default: - goto IL_0ac2; - } - - { - goto IL_071b; - } - IL_0981: - num = 125; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) - { - goto IL_09b0; - } - else - { - goto IL_09ca; - } - IL_09b0: - num = 126; - StringType.MidStmtStr(ref sDest2, 50, 1, Modul1.IText[175]); - goto IL_09ca; - IL_09ca: - num = 128; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_09fc; - } - else - { - goto IL_0a19; - } - IL_09fc: - num = 129; - StringType.MidStmtStr(ref sDest2, 51, 1, Modul1.IText[175]); - goto IL_0a19; - IL_0a19: - num = 131; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) - { - goto IL_0a4b; - } - else - { - goto IL_0a68; - } - IL_0a4b: - num = 132; - StringType.MidStmtStr(ref sDest2, 52, 1, Modul1.IText[175]); - goto IL_0a68; - IL_0a68: - num = 134; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_0aa3; - } - else - { - goto IL_0ac2; - } - IL_0aa3: - num = 135; - StringType.MidStmtStr(ref sDest2, 53, 1, Modul1.IText[175]); - goto IL_0ac2; - IL_084e: - num = 111; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) - { - goto IL_087d; - } - else - { - goto IL_0897; - } - IL_087d: - num = 112; - StringType.MidStmtStr(ref sDest2, 42, 1, Modul1.IText[175]); - goto IL_0897; - IL_0897: - num = 114; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_08c6; - } - else - { - goto IL_08e0; - } - IL_08c6: - num = 115; - StringType.MidStmtStr(ref sDest2, 44, 1, Modul1.IText[175]); - goto IL_08e0; - IL_08e0: - num = 117; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) - { - goto IL_090f; - } - else - { - goto IL_0929; - } - IL_090f: - num = 118; - StringType.MidStmtStr(ref sDest2, 45, 1, Modul1.IText[175]); - goto IL_0929; - IL_0929: - num = 120; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_0961; - } - else - { - goto IL_0ac2; - } - IL_0961: - num = 121; - StringType.MidStmtStr(ref sDest2, 46, 1, Modul1.IText[175]); - goto IL_0ac2; - IL_071b: - num = 97; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) - { - goto IL_074a; - } - else - { - goto IL_0764; - } - IL_074a: - num = 98; - StringType.MidStmtStr(ref sDest2, 34, 1, Modul1.IText[175]); - goto IL_0764; - IL_0764: - num = 100; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_0793; - } - else - { - goto IL_07ad; - } - IL_0793: - num = 101; - StringType.MidStmtStr(ref sDest2, 36, 1, Modul1.IText[175]); - goto IL_07ad; - IL_07ad: - num = 103; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) - { - goto IL_07dc; - } - else - { - goto IL_07f6; - } - IL_07dc: - num = 104; - StringType.MidStmtStr(ref sDest2, 37, 1, Modul1.IText[175]); - goto IL_07f6; - IL_07f6: - num = 106; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_082e; - } - else - { - goto IL_0ac2; - } - IL_082e: - num = 107; - StringType.MidStmtStr(ref sDest2, 38, 1, Modul1.IText[175]); - goto IL_0ac2; - IL_0ac2: - num = 138; - lErl = 2; - goto IL_0acc; - IL_0acc: - num = 139; - num12 = (short)unchecked(num12 + 1); - num20 = num12; - num11 = 302; - if (num20 <= num11) - { - goto IL_0667; - } - else - { - goto IL_0ae8; - } - IL_0ae8: - num = 140; - Modul1.LiText += sDest2; - goto IL_0b00; - IL_0b00: - num = 141; - Modul1.PerSatzLes(); - goto IL_0b0d; - IL_0b0d: - num = 142; - if (null != DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.Bem3)].Value) - { - goto IL_0b40; - } - else - { - goto IL_0b8b; - } - IL_0b40: - num = 143; - if (Operators.ConditionalCompareObjectNotEqual(DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.Bem3)].Value, "", TextCompare: false)) - { - goto IL_0b71; - } - else - { - goto IL_0b8b; - } - IL_0b71: - num = 144; - StringType.MidStmtStr(ref Modul1.LiText, 77, 1, "J"); - goto IL_0b8b; - IL_0b8b: - num = 147; - DataModul.TTable.Index = "Tab"; - goto IL_0ba2; - end_IL_0001: - break; - } - } - } - catch (Exception obj) when (num3 != 0 && num2 == 0) - { - ProjectData.SetProjectError(obj, lErl); - try0001_dispatch = 21059; - continue; - } - throw ProjectData.CreateProjectError(-2146828237); - end_IL_0001_2: - break; - } - if (num2 != 0) - { - ProjectData.ClearProjectError(); - } - } diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test09/Test9Dat.cs.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test09/Test9Dat.cs.txt deleted file mode 100644 index 159764eeb..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test09/Test9Dat.cs.txt +++ /dev/null @@ -1,4581 +0,0 @@ - private void Command1_Click(object eventSender, EventArgs eventArgs) - { - //Discarded unreachable code: IL_451b - int try0001_dispatch = -1; - int num = default; - short index = default; - int num2 = default; - int num3 = default; - int lErl = default; - int num6 = default; - int num7 = default; - int num8 = default; - int num9 = default; - string sDest = default; - int num10 = default; - string sDest2 = default; - short num12 = default; - int num14 = default; - short num15 = default; - int num17 = default; - int num19 = default; - while (true) - { - try - { - /*Note: ILSpy has introduced the following switch to emulate a goto from catch-block to try-block*/ - ; - checked - { - int num4; - int i3; - int i4; - int i5; - int i6; - int i7; - short t; - short num13; - int i8; - int i9; - int i10; - short num16; - ListBox L; - short A; - int i11; - int i12; - int i13; - short num18; - int i14; - int i15; - int i16; - int i17; - int num5; - short t2; - short num20; - short num11; - switch (try0001_dispatch) - { - default: - num = 1; - index = Command1.GetIndex((Button)eventSender); - goto IL_0016; - case 21059: - { - num2 = num; - switch ((num3 <= -2) ? 1 : num3) - { - case 2: - break; - case 1: - goto IL_45b9; - default: - goto end_IL_0001; - } - goto IL_451d; - } - IL_0c00: - num = 149; - if (!DataModul.TTable.NoMatch) - { - goto IL_0c1a; - } - else - { - goto IL_0c34; - } - IL_0c1a: - num = 150; - StringType.MidStmtStr(ref Modul1.LiText, 79, 1, "J"); - goto IL_0c34; - IL_0ba2: - num = 148; - DataModul.TTable.Seek("=", 1, Modul1.PersInArb); - goto IL_0c00; - IL_451d: - num = 789; - if (Information.Err().Number == 6) - { - goto IL_4537; - } - else - { - goto IL_4563; - } - IL_4563: - num = 794; - if (Interaction.MsgBox(Conversion.ErrorToString(), MsgBoxStyle.OkCancel, (Information.Err().Number).AsString()) == MsgBoxResult.Cancel) - { - ProjectData.EndApp(); - } - goto IL_4593; - IL_0c6f: - num = 153; - Modul1.LiText = ""; - goto IL_0c81; - IL_4593: - num = 797; - ProjectData.ClearProjectError(); - if (num2 == 0) - { - throw ProjectData.CreateProjectError(-2146828268); - } - num4 = num2; - goto IL_45bd; - IL_0c81: - num = 154; - lErl = 5; - goto IL_0c8b; - IL_0c8b: - num = 155; - I1++; - goto IL_0ca1; - IL_45bd: - num2 = 0; - switch (num4) - { - case 1: - break; - case 2: - goto IL_0016; - case 3: - goto IL_0026; - case 4: - goto IL_0036; - case 5: - goto IL_003e; - case 7: - case 9: - goto IL_006f; - case 10: - goto IL_0080; - case 12: - case 13: - goto IL_0094; - case 6: - case 11: - case 14: - case 15: - goto IL_00a6; - case 16: - goto IL_00bb; - case 17: - goto IL_00db; - case 18: - case 19: - goto IL_00ed; - case 20: - goto IL_010d; - case 21: - case 22: - goto IL_011f; - case 23: - goto IL_0130; - case 24: - goto IL_0141; - case 25: - goto IL_0156; - case 26: - goto IL_016b; - case 27: - case 28: - goto IL_017c; - case 29: - goto IL_0191; - case 30: - case 31: - goto IL_01a2; - case 33: - case 35: - goto IL_01d7; - case 36: - goto IL_01ec; - case 37: - goto IL_0207; - case 38: - goto IL_0228; - case 39: - goto IL_0249; - case 40: - goto IL_027a; - case 41: - goto IL_02ab; - case 42: - goto IL_02b6; - case 43: - goto IL_02d2; - case 44: - goto IL_02f2; - case 45: - goto IL_02f9; - case 47: - case 48: - goto IL_0311; - case 49: - goto IL_0325; - case 50: - goto IL_0335; - case 51: - goto IL_0359; - case 53: - case 54: - goto IL_036e; - case 55: - goto IL_039e; - case 57: - case 58: - goto IL_03dd; - case 59: - goto IL_03ee; - case 60: - goto IL_03ff; - case 61: - goto IL_0410; - case 62: - goto IL_042c; - case 63: - goto IL_0441; - case 64: - goto IL_0456; - case 65: - goto IL_0466; - case 66: - goto IL_0470; - case 67: - goto IL_047f; - case 69: - case 70: - goto IL_0497; - case 71: - goto IL_04f6; - case 73: - case 74: - goto IL_050f; - case 75: - goto IL_0519; - case 76: - goto IL_0550; - case 77: - goto IL_055b; - case 78: - goto IL_0566; - case 79: - goto IL_057f; - case 80: - goto IL_0598; - case 81: - goto IL_05ba; - case 82: - goto IL_05c4; - case 83: - goto IL_05cf; - case 84: - goto IL_05f2; - case 85: - goto IL_0615; - case 86: - goto IL_0639; - case 87: - goto IL_065d; - case 88: - goto IL_0667; - case 89: - goto IL_067b; - case 90: - goto IL_06db; - case 92: - case 93: - goto IL_06f4; - case 95: - case 97: - goto IL_071b; - case 98: - goto IL_074a; - case 99: - case 100: - goto IL_0764; - case 101: - goto IL_0793; - case 102: - case 103: - goto IL_07ad; - case 104: - goto IL_07dc; - case 105: - case 106: - goto IL_07f6; - case 107: - goto IL_082e; - case 110: - case 111: - goto IL_084e; - case 112: - goto IL_087d; - case 113: - case 114: - goto IL_0897; - case 115: - goto IL_08c6; - case 116: - case 117: - goto IL_08e0; - case 118: - goto IL_090f; - case 119: - case 120: - goto IL_0929; - case 121: - goto IL_0961; - case 124: - case 125: - goto IL_0981; - case 126: - goto IL_09b0; - case 127: - case 128: - goto IL_09ca; - case 129: - goto IL_09fc; - case 130: - case 131: - goto IL_0a19; - case 132: - goto IL_0a4b; - case 133: - case 134: - goto IL_0a68; - case 135: - goto IL_0aa3; - case 91: - case 94: - case 108: - case 109: - case 122: - case 123: - case 136: - case 137: - case 138: - goto IL_0ac2; - case 139: - goto IL_0acc; - case 140: - goto IL_0ae8; - case 141: - goto IL_0b00; - case 142: - goto IL_0b0d; - case 143: - goto IL_0b40; - case 144: - goto IL_0b71; - case 145: - case 147: - goto IL_0b8b; - case 148: - goto IL_0ba2; - case 149: - goto IL_0c00; - case 150: - goto IL_0c1a; - case 151: - case 152: - goto IL_0c34; - case 153: - goto IL_0c6f; - case 72: - case 154: - goto IL_0c81; - case 155: - goto IL_0c8b; - case 156: - goto IL_0cb2; - case 158: - case 159: - goto IL_0cef; - case 160: - goto IL_0d06; - case 161: - goto IL_0d1e; - case 162: - goto IL_0d3c; - case 163: - goto IL_0d5a; - case 164: - goto IL_0d78; - case 165: - goto IL_0d90; - case 166: - case 167: - goto IL_0dad; - case 168: - goto IL_0dc5; - case 169: - case 170: - goto IL_0de2; - case 171: - goto IL_0dfa; - case 172: - case 173: - goto IL_0e17; - case 174: - goto IL_0e24; - case 175: - goto IL_0e42; - case 176: - goto IL_0e62; - case 177: - goto IL_0e6c; - case 179: - case 180: - goto IL_0e87; - case 181: - goto IL_0e9a; - case 182: - goto IL_0ec1; - case 183: - goto IL_0ef4; - case 185: - case 186: - goto IL_0f36; - case 187: - goto IL_0f4a; - case 188: - goto IL_0f69; - case 189: - goto IL_0f7d; - case 190: - goto IL_0f95; - case 191: - goto IL_0fa8; - case 192: - goto IL_0fb5; - case 193: - goto IL_0fc3; - case 194: - goto IL_0fd5; - case 196: - case 197: - goto IL_0ff0; - case 198: - goto IL_1007; - case 199: - goto IL_1069; - case 201: - case 202: - goto IL_1085; - case 203: - goto IL_1092; - case 204: - goto IL_10aa; - case 205: - goto IL_10bb; - case 206: - goto IL_10c8; - case 207: - goto IL_10ed; - case 209: - goto IL_1108; - case 210: - goto IL_1110; - case 208: - case 211: - case 212: - goto IL_1128; - case 213: - case 214: - goto IL_1140; - case 215: - goto IL_1158; - case 216: - goto IL_1169; - case 217: - goto IL_1176; - case 218: - goto IL_119b; - case 220: - goto IL_11b7; - case 221: - goto IL_11bf; - case 219: - case 222: - case 223: - case 224: - goto IL_11d9; - case 225: - goto IL_11f3; - case 226: - case 227: - goto IL_1210; - case 228: - goto IL_1227; - case 229: - goto IL_123e; - case 230: - goto IL_129b; - case 232: - case 233: - goto IL_12b7; - case 234: - goto IL_12e9; - case 235: - case 236: - goto IL_1306; - case 237: - goto IL_1313; - case 238: - goto IL_1320; - case 239: - goto IL_138c; - case 241: - case 242: - goto IL_13a8; - case 244: - case 246: - goto IL_13e2; - case 247: - goto IL_1414; - case 248: - case 249: - goto IL_1431; - case 250: - goto IL_146c; - case 253: - case 254: - goto IL_148f; - case 255: - goto IL_14c1; - case 256: - case 257: - goto IL_14de; - case 258: - goto IL_1519; - case 261: - case 262: - goto IL_153c; - case 263: - goto IL_156e; - case 264: - case 265: - goto IL_158b; - case 266: - goto IL_15c6; - case 269: - case 270: - goto IL_15e9; - case 271: - goto IL_161b; - case 272: - case 273: - goto IL_1638; - case 274: - goto IL_1673; - case 277: - case 278: - goto IL_1696; - case 279: - goto IL_16c8; - case 280: - case 281: - goto IL_16e5; - case 282: - goto IL_1720; - case 285: - case 286: - goto IL_1743; - case 287: - goto IL_1775; - case 288: - case 289: - goto IL_1792; - case 290: - goto IL_17cd; - case 240: - case 243: - case 251: - case 252: - case 259: - case 260: - case 267: - case 268: - case 275: - case 276: - case 283: - case 284: - case 291: - case 292: - case 293: - goto IL_17ec; - case 294: - goto IL_17f7; - case 295: - goto IL_1814; - case 296: - goto IL_181e; - case 297: - goto IL_188a; - case 298: - goto IL_18a7; - case 299: - goto IL_18d9; - case 300: - case 301: - goto IL_18f0; - case 302: - goto IL_192b; - case 303: - case 304: - case 305: - goto IL_1943; - case 200: - case 231: - case 306: - goto IL_197c; - case 307: - goto IL_1987; - case 308: - goto IL_19ae; - case 309: - goto IL_19e7; - case 310: - goto IL_19ff; - case 313: - case 314: - goto IL_1a3c; - case 315: - goto IL_1a54; - case 316: - goto IL_1a6c; - case 317: - goto IL_1a80; - case 318: - goto IL_1a94; - case 321: - case 322: - goto IL_1aae; - case 323: - goto IL_1acb; - case 324: - goto IL_1aed; - case 325: - goto IL_1b1c; - case 326: - goto IL_1b4b; - case 327: - goto IL_1b7a; - case 328: - goto IL_1b92; - case 330: - goto IL_1bb9; - case 331: - goto IL_1bc1; - case 329: - case 332: - case 333: - goto IL_1be7; - case 335: - case 336: - goto IL_1c00; - case 337: - goto IL_1c0e; - case 338: - goto IL_1c26; - case 339: - goto IL_1c44; - case 340: - goto IL_1c62; - case 341: - goto IL_1c80; - case 342: - goto IL_1c98; - case 343: - case 344: - goto IL_1cb5; - case 345: - goto IL_1ccd; - case 346: - case 347: - goto IL_1cea; - case 348: - goto IL_1d02; - case 349: - case 350: - goto IL_1d1f; - case 351: - goto IL_1d2c; - case 352: - goto IL_1d4a; - case 353: - goto IL_1d6a; - case 354: - goto IL_1d74; - case 356: - case 357: - goto IL_1d8f; - case 358: - goto IL_1da2; - case 359: - goto IL_1dc9; - case 360: - goto IL_1dfc; - case 362: - case 363: - goto IL_1e3d; - case 364: - goto IL_1e51; - case 365: - goto IL_1e65; - case 366: - goto IL_1e79; - case 367: - goto IL_1e9f; - case 368: - goto IL_1ec2; - case 369: - goto IL_1ed5; - case 370: - goto IL_1ee2; - case 371: - goto IL_1ef0; - case 372: - goto IL_1f02; - case 374: - case 375: - goto IL_1f1d; - case 376: - goto IL_1f34; - case 377: - goto IL_1f96; - case 379: - case 380: - goto IL_1fb2; - case 381: - goto IL_1fbf; - case 382: - goto IL_1fd7; - case 383: - goto IL_1fe8; - case 384: - goto IL_1ff5; - case 385: - goto IL_201a; - case 387: - goto IL_2035; - case 388: - goto IL_203d; - case 386: - case 389: - case 390: - goto IL_2055; - case 391: - case 392: - goto IL_206d; - case 393: - goto IL_2085; - case 394: - goto IL_2096; - case 395: - goto IL_20a3; - case 396: - goto IL_20c8; - case 398: - goto IL_20e4; - case 399: - goto IL_20ec; - case 397: - case 400: - case 401: - case 402: - goto IL_2106; - case 403: - goto IL_2120; - case 404: - case 405: - goto IL_213d; - case 406: - goto IL_2154; - case 407: - goto IL_216b; - case 408: - goto IL_21c8; - case 410: - case 411: - goto IL_21e4; - case 412: - goto IL_2216; - case 413: - case 414: - goto IL_2233; - case 415: - goto IL_2240; - case 416: - goto IL_224d; - case 417: - goto IL_22b9; - case 419: - case 420: - goto IL_22d8; - case 422: - case 423: - goto IL_22fa; - case 378: - case 409: - case 421: - case 424: - goto IL_2317; - case 425: - goto IL_2322; - case 426: - goto IL_238e; - case 428: - case 429: - goto IL_23aa; - case 430: - goto IL_23cf; - case 431: - goto IL_2407; - case 373: - case 418: - case 427: - case 432: - case 433: - goto IL_241f; - case 434: - goto IL_242a; - case 435: - goto IL_2451; - case 438: - case 439: - goto IL_2496; - case 440: - goto IL_24ae; - case 441: - goto IL_24cc; - case 442: - goto IL_24f0; - case 443: - goto IL_2514; - case 444: - goto IL_2522; - case 445: - goto IL_2541; - case 446: - goto IL_2564; - case 447: - goto IL_256e; - case 449: - case 450: - goto IL_2589; - case 451: - goto IL_25a0; - case 452: - goto IL_25b3; - case 453: - goto IL_25da; - case 455: - case 456: - goto IL_25f2; - case 457: - goto IL_2625; - case 459: - case 460: - goto IL_2666; - case 461: - goto IL_267a; - case 462: - goto IL_268e; - case 463: - goto IL_26a2; - case 464: - goto IL_26c1; - case 465: - goto IL_26e3; - case 466: - goto IL_26f6; - case 467: - goto IL_2703; - case 468: - goto IL_2715; - case 470: - case 471: - goto IL_2730; - case 472: - goto IL_2792; - case 474: - case 475: - goto IL_27ae; - case 476: - goto IL_27bb; - case 477: - goto IL_27f5; - case 478: - goto IL_2803; - case 479: - goto IL_2811; - case 480: - goto IL_282d; - case 481: - goto IL_2849; - case 482: - goto IL_286e; - case 483: - goto IL_287b; - case 484: - goto IL_2889; - case 486: - case 487: - goto IL_28b9; - case 489: - case 490: - goto IL_28e9; - case 492: - case 493: - goto IL_2919; - case 495: - case 496: - goto IL_2949; - case 497: - goto IL_2956; - case 498: - goto IL_296d; - case 499: - goto IL_29d0; - case 501: - case 502: - goto IL_29ec; - case 504: - case 506: - goto IL_2a16; - case 507: - goto IL_2a48; - case 508: - case 509: - goto IL_2a65; - case 511: - case 512: - goto IL_2a9c; - case 514: - case 515: - goto IL_2ad3; - case 516: - goto IL_2b0e; - case 519: - case 520: - goto IL_2b31; - case 521: - goto IL_2b63; - case 522: - case 523: - goto IL_2b80; - case 525: - case 526: - goto IL_2bb7; - case 528: - case 529: - goto IL_2bee; - case 530: - goto IL_2c29; - case 533: - case 534: - goto IL_2c4c; - case 535: - goto IL_2c7e; - case 536: - case 537: - goto IL_2c9b; - case 539: - case 540: - goto IL_2cd2; - case 542: - case 543: - goto IL_2d09; - case 544: - goto IL_2d44; - case 500: - case 503: - case 517: - case 518: - case 531: - case 532: - case 545: - case 546: - case 547: - goto IL_2d63; - case 548: - goto IL_2d6e; - case 550: - num = 550; - Modul1.PersInArbsp = Modul1.PersInArb; - goto case 551; - case 551: - num = 551; - Modul1.Kenn = 1f; - goto case 552; - case 552: - num = 552; - if ((DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.Sex)].AsString() == "F")) - { - goto case 553; - } - goto case 554; - case 553: - num = 553; - Modul1.Kenn = 2f; - goto case 554; - case 554: - case 555: - num = 555; - DataModul.DB_LinkTable.Index = nameof(DataModul.LinkIndex.ElSu); - goto case 556; - case 556: - num = 556; - DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), Modul1.Kenn); - goto case 557; - case 557: - num = 557; - if (!DataModul.DB_LinkTable.NoMatch) - { - goto case 559; - } - goto IL_3320; - case 559: - num = 559; - goto case 560; - case 560: - num = 560; - Modul1.FamInArb = DataModul.DB_LinkTable.Fields[nameof(DataModul.LinkFields.FamNr)].Value.AsInt(); - goto case 561; - case 561: - num = 561; - MainProject.Forms.Familie.Famles(Modul1.FamInArb); - goto case 562; - case 562: - num = 562; - if (Modul1.Kenn == 1f) - { - goto case 563; - } - goto case 565; - case 563: - num = 563; - Modul1.PersInArb = Modul1.Family.Frau; - goto case 564; - case 565: - num = 565; - if (Modul1.Kenn == 2f) - { - goto case 566; - } - goto case 564; - case 566: - num = 566; - Modul1.PersInArb = Modul1.Family.Mann; - goto case 564; - case 564: - case 567: - case 568: - num = 568; - DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.ArtNr); - goto case 569; - case 569: - num = 569; - Modul1.I = 101; - goto case 570; - case 570: - num = 570; - Modul1.Ubg = Modul1.I; - goto case 571; - case 571: - num = 571; - DataModul.DB_EventTable.Seek("=", Modul1.Ubg.AsString(), Modul1.PersInArb.AsString(), "0"); - goto case 572; - case 572: - num = 572; - if (!DataModul.DB_EventTable.NoMatch) - { - goto case 574; - } - goto case 573; - case 574: - case 575: - num = 575; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto case 576; - } - goto case 573; - case 576: - num = 576; - if (Conversions.ToDouble(Strings.Trim(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsString())) > 0.0) - { - goto case 577; - } - goto case 573; - case 577: - num = 577; - transdat = DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].Value.AsInt(); - goto case 578; - case 578: - num = 578; - neuedat(); - goto IL_3395; - case 573: - case 580: - case 581: - case 582: - num = 582; - lErl = 6; - goto case 583; - case 583: - { - num = 583; - Modul1.I++; - int i = Modul1.I; - num5 = 102; - if (i <= num5) - { - goto case 570; - } - goto case 584; - } - case 584: - num = 584; - num6 = 30000000; - goto case 585; - case 585: - num = 585; - this.A = 1; - goto case 586; - case 586: - num = 586; - if (Modul1.Family.Kind[this.A] > 0) - { - goto case 587; - } - goto case 598; - case 587: - num = 587; - Modul1.I = 101; - goto case 588; - case 588: - num = 588; - DataModul.DB_EventTable.Seek("=", Modul1.I.AsString(), Modul1.Family.Kind[this.A].AsString(), "0"); - goto case 589; - case 589: - num = 589; - if (!DataModul.DB_EventTable.NoMatch) - { - goto case 590; - } - goto case 593; - case 590: - num = 590; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].Value) > 0.0) - { - goto case 591; - } - goto case 593; - case 591: - num = 591; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].Value) < num6) - { - goto case 592; - } - goto case 593; - case 592: - num = 592; - num6 = (int)Math.Round(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].Value)); - goto case 593; - case 593: - case 594: - case 595: - case 596: - { - num = 596; - Modul1.I++; - int i2 = Modul1.I; - num5 = 102; - if (i2 <= num5) - { - goto case 588; - } - goto case 597; - } - case 598: - num = 598; - goto case 599; - case 597: - case 600: - case 601: - { - num = 601; - this.A++; - int a = this.A; - num5 = 99; - if (a <= num5) - { - goto case 586; - } - goto case 599; - } - case 599: - case 602: - num = 602; - if (num6 < 30000000) - { - goto case 603; - } - goto IL_32fc; - case 603: - num = 603; - transdat = Conversions.ToInteger(Conversion.Str(Conversions.ToDouble((num6).AsString().Left( 4)) - 25.0) + "0000"); - goto case 604; - case 604: - num = 604; - neuedat(); - goto IL_32fc; - case 549: - case 605: - case 606: - goto IL_32fc; - case 607: - goto IL_3307; - case 558: - case 608: - case 609: - goto IL_3320; - case 610: - goto IL_3348; - case 611: - case 612: - goto IL_3383; - case 473: - case 485: - case 488: - case 491: - case 494: - case 510: - case 513: - case 524: - case 527: - case 538: - case 541: - case 579: - case 613: - goto IL_3395; - case 614: - goto IL_33a0; - case 615: - goto IL_33c7; - case 617: - case 618: - goto IL_3406; - case 619: - goto IL_341e; - case 620: - goto IL_343f; - case 621: - goto IL_345d; - case 622: - goto IL_3467; - case 624: - case 625: - goto IL_3482; - case 626: - goto IL_3499; - case 627: - goto IL_34ac; - case 628: - goto IL_34d3; - case 630: - case 631: - goto IL_34eb; - case 632: - goto IL_351e; - case 634: - case 635: - goto IL_355f; - case 636: - goto IL_357d; - case 637: - goto IL_358a; - case 638: - goto IL_359e; - case 639: - goto IL_35b2; - case 640: - goto IL_35c6; - case 641: - goto IL_35e5; - case 642: - goto IL_3607; - case 643: - goto IL_361a; - case 644: - goto IL_3627; - case 645: - goto IL_3639; - case 646: - goto IL_364b; - case 648: - case 649: - goto IL_3666; - case 650: - goto IL_36c8; - case 652: - case 653: - goto IL_36e4; - case 654: - goto IL_36f2; - case 655: - goto IL_3700; - case 656: - goto IL_370e; - case 657: - goto IL_371f; - case 658: - goto IL_3736; - case 659: - goto IL_379d; - case 660: - goto IL_37b4; - case 661: - case 662: - goto IL_37c2; - case 663: - goto IL_37d3; - case 664: - goto IL_37e0; - case 665: - goto IL_3811; - case 666: - case 667: - goto IL_3822; - case 668: - goto IL_3839; - case 669: - goto IL_38a0; - case 670: - goto IL_38b7; - case 671: - case 672: - goto IL_38c5; - case 673: - goto IL_38e8; - case 674: - goto IL_38f5; - case 675: - goto IL_3935; - case 676: - goto IL_394b; - case 677: - case 678: - goto IL_3962; - case 679: - goto IL_3978; - case 680: - case 681: - goto IL_398f; - case 682: - goto IL_39f2; - case 683: - goto IL_3a0c; - case 684: - case 685: - goto IL_3a23; - case 686: - goto IL_3a86; - case 687: - goto IL_3aa0; - case 688: - case 689: - goto IL_3ab7; - case 690: - goto IL_3b1a; - case 691: - goto IL_3b34; - case 692: - case 693: - goto IL_3b4b; - case 694: - goto IL_3bae; - case 695: - goto IL_3bc8; - case 696: - case 697: - goto IL_3bdf; - case 698: - goto IL_3c42; - case 699: - goto IL_3c5c; - case 700: - case 701: - goto IL_3c73; - case 702: - goto IL_3cd7; - case 703: - goto IL_3cf1; - case 704: - case 705: - goto IL_3d08; - case 706: - goto IL_3d1f; - case 707: - goto IL_3d7c; - case 708: - goto IL_3d96; - case 709: - case 710: - goto IL_3dad; - case 651: - case 711: - case 712: - goto IL_3de8; - case 713: - goto IL_3e0f; - case 715: - case 716: - goto IL_3e4e; - case 717: - goto IL_3e62; - case 718: - goto IL_3e7a; - case 719: - goto IL_3e84; - case 721: - case 722: - goto IL_3e9f; - case 723: - goto IL_3ebd; - case 724: - goto IL_3edb; - case 725: - goto IL_3ef9; - case 726: - goto IL_3f16; - case 727: - goto IL_3f33; - case 728: - goto IL_3f45; - case 729: - goto IL_3f5c; - case 730: - goto IL_3fb6; - case 731: - goto IL_3fc4; - case 734: - goto IL_3fe6; - case 735: - goto IL_3ffb; - case 736: - goto IL_4044; - case 737: - goto IL_4076; - case 738: - case 739: - goto IL_4091; - case 740: - goto IL_40c3; - case 741: - case 742: - goto IL_40de; - case 743: - goto IL_4110; - case 744: - case 745: - goto IL_412b; - case 746: - goto IL_415d; - case 747: - case 748: - goto IL_4178; - case 749: - goto IL_41aa; - case 750: - case 751: - goto IL_41c5; - case 752: - goto IL_4203; - case 753: - case 754: - goto IL_421e; - case 755: - goto IL_4259; - case 756: - case 757: - goto IL_4274; - case 758: - goto IL_42af; - case 759: - case 760: - goto IL_42ca; - case 761: - goto IL_4308; - case 762: - case 763: - goto IL_4323; - case 764: - goto IL_4361; - case 765: - case 766: - goto IL_437c; - case 767: - goto IL_43ba; - case 768: - case 769: - goto IL_43d5; - case 770: - goto IL_43f2; - case 771: - goto IL_4407; - case 732: - case 733: - case 772: - goto IL_441a; - case 774: - goto IL_4439; - case 775: - goto IL_4441; - case 773: - case 776: - case 777: - goto IL_4454; - case 778: - goto IL_446b; - case 32: - case 68: - case 157: - case 195: - case 311: - case 312: - case 320: - case 334: - case 437: - case 469: - case 616: - case 647: - case 714: - case 779: - case 780: - case 781: - goto IL_448a; - case 782: - goto IL_4494; - case 783: - goto IL_44ac; - case 784: - goto IL_44c9; - case 785: - goto IL_44d6; - case 786: - goto IL_44f3; - case 789: - goto IL_451d; - case 790: - goto IL_4537; - case 791: - goto IL_4545; - case 792: - case 793: - case 794: - goto IL_4563; - case 795: - case 797: - goto IL_4593; - default: - goto end_IL_0001; - case 46: - case 52: - case 56: - case 178: - case 184: - case 319: - case 355: - case 361: - case 436: - case 448: - case 454: - case 458: - case 623: - case 629: - case 633: - case 720: - case 787: - case 788: - case 798: - goto end_IL_0001_2; - } - goto default; - IL_4537: - num = 790; - num7 = 200000000; - goto IL_4545; - IL_4545: - num = 791; - ProjectData.ClearProjectError(); - if (num2 == 0) - { - throw ProjectData.CreateProjectError(-2146828268); - } - goto IL_45b9; - IL_0c34: - num = 152; - List1.Items.Add(new ListItem(Modul1.LiText + " " + Modul1.PersInArb.AsString())); - goto IL_0c6f; - IL_45b9: - num4 = unchecked(num2 + 1); - goto IL_45bd; - IL_0016: - num = 2; - RadioButton1.Visible = true; - goto IL_0026; - IL_0026: - num = 3; - RadioButton2.Visible = true; - goto IL_0036; - IL_0036: - ProjectData.ClearProjectError(); - num3 = 2; - goto IL_003e; - IL_003e: - num = 5; - switch (index) - { - case 0: - case 1: - case 4: - case 5: - case 6: - break; - case 7: - goto IL_0094; - default: - goto IL_00a6; - } - - { - goto IL_006f; - } - IL_0094: - num = 13; - List1.Visible = false; - goto IL_00a6; - IL_006f: - num = 9; - List2.Visible = false; - goto IL_0080; - IL_0080: - num = 10; - List1.Visible = true; - goto IL_00a6; - IL_00a6: - num = 15; - Label4.Text = ""; - goto IL_00bb; - IL_00bb: - num = 16; - if (Modul1.Aus[12] == "") - { - goto IL_00db; - } - else - { - goto IL_00ed; - } - IL_00db: - num = 17; - Modul1.Aus[12] = "200"; - goto IL_00ed; - IL_00ed: - num = 19; - if (Modul1.Aus[13] == "") - { - goto IL_010d; - } - else - { - goto IL_011f; - } - IL_010d: - num = 20; - Modul1.Aus[13] = "200"; - goto IL_011f; - IL_011f: - num = 22; - List1.Visible = true; - goto IL_0130; - IL_0130: - num = 23; - List2.Visible = false; - goto IL_0141; - IL_0141: - num = 24; - Label2.Text = ""; - goto IL_0156; - IL_0156: - num = 25; - if (RadioButton1.Checked) - { - goto IL_016b; - } - else - { - goto IL_017c; - } - IL_016b: - num = 26; - List1.Sorted = true; - goto IL_017c; - IL_017c: - num = 28; - if (RadioButton2.Checked) - { - goto IL_0191; - } - else - { - goto IL_01a2; - } - IL_0191: - num = 29; - List1.Sorted = false; - goto IL_01a2; - IL_01a2: - num = 31; - switch (index) - { - case 0: - break; - case 1: - goto IL_0cef; - case 2: - goto IL_1a3c; - case 3: - goto IL_1aae; - case 4: - goto IL_1c00; - case 5: - goto IL_2496; - case 6: - goto IL_3406; - case 7: - goto IL_3e4e; - default: - goto IL_448a; - } - - { - goto IL_01d7; - } - IL_3e4e: - num = 716; - List2.Visible = true; - goto IL_3e62; - IL_3e62: - num = 717; - List2.Items.Clear(); - goto IL_3e7a; - IL_3e7a: - num = 718; - num7 = 1; - goto IL_3e84; - IL_3e84: - num = 719; - if (num7 <= 0) - { - goto end_IL_0001_2; - } - goto IL_3e9f; - IL_3e9f: - num = 722; - Label1[2].Text = "Fehlliste Orte"; - goto IL_3ebd; - IL_3ebd: - num = 723; - Label1[1].Text = " Nr Ort Orsteil Kreis Land Staat Loc Länge Breite PLZ Terr StKz"; - goto IL_3edb; - IL_3edb: - num = 724; - Label1[0].Text = " "; - goto IL_3ef9; - IL_3ef9: - num = 725; - List2.Items.Add("Fehlliste Orte"); - goto IL_3f16; - IL_3f16: - num = 726; - List2.Items.Add(" Nr Ort Ortsteil Kreis Land Staat Loc. Laenge Breite PLZ Terr. StKz"); - goto IL_3f33; - IL_3f33: - num = 727; - DataModul.DB_PlaceTable.MoveFirst(); - goto IL_3f45; - IL_3f45: - num = 728; - DataModul.DB_PlaceTable.Index = nameof(DataModul.PlaceIndex.OrtNr); - goto IL_3f5c; - IL_3f5c: - num = 729; - DataModul.DB_PlaceTable.Seek(">=", num7); - goto IL_3fb6; - IL_3fb6: - num = 730; - this.A = 1; - goto IL_3fc4; - IL_3fc4: - num = 731; - if (!DataModul.DB_PlaceTable.NoMatch) - { - goto IL_441a; - } - else - { - goto IL_4439; - } - IL_441a: - num = 733; - if (!DataModul.DB_PlaceTable.EOF) - { - goto IL_3fe6; - } - else - { - goto IL_4454; - } - IL_3fe6: - num = 734; - Modul1.LiText = new string(' ', 80); - goto IL_3ffb; - IL_3ffb: - num = 735; - StringType.MidStmtStr(ref Modul1.LiText, 1, 10, Strings.Right(" " + DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.OrtNr)].Value.AsString(), 10)); - goto IL_4044; - IL_4044: - num = 736; - if ((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Ort)].AsInt() == 0)) - { - goto IL_4076; - } - else - { - goto IL_4091; - } - IL_4076: - num = 737; - StringType.MidStmtStr(ref Modul1.LiText, 12, 2, "F "); - goto IL_4091; - IL_4091: - num = 739; - if ((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Ortsteil)].AsInt() == 0)) - { - goto IL_40c3; - } - else - { - goto IL_40de; - } - IL_40c3: - num = 740; - StringType.MidStmtStr(ref Modul1.LiText, 20, 2, "F "); - goto IL_40de; - IL_40de: - num = 742; - if ((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Kreis)].AsInt() == 0)) - { - goto IL_4110; - } - else - { - goto IL_412b; - } - IL_4110: - num = 743; - StringType.MidStmtStr(ref Modul1.LiText, 28, 2, "F "); - goto IL_412b; - IL_412b: - num = 745; - if ((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Land)].AsInt() == 0)) - { - goto IL_415d; - } - else - { - goto IL_4178; - } - IL_415d: - num = 746; - StringType.MidStmtStr(ref Modul1.LiText, 34, 2, "F "); - goto IL_4178; - IL_4178: - num = 748; - if ((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Staat)].AsInt() == 0)) - { - goto IL_41aa; - } - else - { - goto IL_41c5; - } - IL_41aa: - num = 749; - StringType.MidStmtStr(ref Modul1.LiText, 39, 2, "F "); - goto IL_41c5; - IL_41c5: - num = 751; - if (Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Loc)].AsString()) == "") - { - goto IL_4203; - } - else - { - goto IL_421e; - } - IL_4203: - num = 752; - StringType.MidStmtStr(ref Modul1.LiText, 44, 2, "F "); - goto IL_421e; - IL_421e: - num = 754; - if (Strings.Len(Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.L)].AsString())) <= 1) - { - goto IL_4259; - } - else - { - goto IL_4274; - } - IL_4259: - num = 755; - StringType.MidStmtStr(ref Modul1.LiText, 52, 2, "F "); - goto IL_4274; - IL_4274: - num = 757; - if (Strings.Len(Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.B)].AsString())) <= 1) - { - goto IL_42af; - } - else - { - goto IL_42ca; - } - IL_42af: - num = 758; - StringType.MidStmtStr(ref Modul1.LiText, 58, 2, "F "); - goto IL_42ca; - IL_42ca: - num = 760; - if (Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.PLZ)].AsString()) == "") - { - goto IL_4308; - } - else - { - goto IL_4323; - } - IL_4308: - num = 761; - StringType.MidStmtStr(ref Modul1.LiText, 63, 2, "F "); - goto IL_4323; - IL_4323: - num = 763; - if (Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Terr)].AsString()) == "") - { - goto IL_4361; - } - else - { - goto IL_437c; - } - IL_4361: - num = 764; - StringType.MidStmtStr(ref Modul1.LiText, 68, 2, "F "); - goto IL_437c; - IL_437c: - num = 766; - if (Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Staatk)].AsString()) == "") - { - goto IL_43ba; - } - else - { - goto IL_43d5; - } - IL_43ba: - num = 767; - StringType.MidStmtStr(ref Modul1.LiText, 71, 2, "F "); - goto IL_43d5; - IL_43d5: - num = 769; - List2.Items.Add(Modul1.LiText); - goto IL_43f2; - IL_43f2: - num = 770; - Modul1.LiText = new string(' ', 80); - goto IL_4407; - IL_4407: - num = 771; - DataModul.DB_PlaceTable.MoveNext(); - goto IL_441a; - IL_4439: - num = 774; - goto IL_4441; - IL_4441: - num = 775; - DataModul.DB_PlaceTable.MoveNext(); - goto IL_4454; - IL_4454: - num = 777; - if (DataModul.DB_PlaceTable.EOF) - { - goto IL_446b; - } - else - { - goto IL_448a; - } - IL_446b: - num = 778; - List2.Items.Add("Ende der Liste"); - goto IL_448a; - IL_3406: - num = 618; - List1.Items.Clear(); - goto IL_341e; - IL_341e: - num = 619; - Label1[2].Text = Modul1.IText[84]; - goto IL_343f; - IL_343f: - num = 620; - Label1[0].Text = "Name Elternteil Kind Pate Zeuge Adoptivkind verbunden"; - goto IL_345d; - IL_345d: - num = 621; - num7 = 1; - goto IL_3467; - IL_3467: - num = 622; - if (num7 <= 0) - { - goto end_IL_0001_2; - } - goto IL_3482; - IL_3482: - num = 625; - DataModul.DB_PersonTable.Index = nameof(DataModul.PersonIndex.PerNr); - goto IL_3499; - IL_3499: - num = 626; - DataModul.DB_PersonTable.MoveLast(); - goto IL_34ac; - IL_34ac: - num = 627; - num8 = DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value.AsInt(); - goto IL_34d3; - IL_34d3: - num = 628; - if (num7 == 0) - { - goto end_IL_0001_2; - } - goto IL_34eb; - IL_34eb: - num = 631; - if ((num7 > DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value)) - { - goto IL_351e; - } - else - { - goto IL_355f; - } - IL_351e: - num = 632; - Interaction.MsgBox(Modul1.IText[173] + " " + num7.AsString() + Modul1.IText[172]); - goto end_IL_0001_2; - IL_355f: - num = 635; - Label1[1].Text = "unvollständig verknüpfte Personen "; - goto IL_357d; - IL_357d: - num = 636; - Modul1.Schalt = 3; - goto IL_358a; - IL_358a: - num = 637; - ProgressBar1.Minimum = 0; - goto IL_359e; - IL_359e: - num = 638; - ProgressBar1.Maximum = 0; - goto IL_35b2; - IL_35b2: - num = 639; - ProgressBar1.Step = 1; - goto IL_35c6; - IL_35c6: - num = 640; - ProgressBar1.Maximum = DataModul.DB_PersonTable.RecordCount - 1; - goto IL_35e5; - IL_35e5: - num = 641; - i3 = num7; - num9 = DataModul.DB_PersonTable.RecordCount - 1; - I1 = i3; - goto IL_3dfe; - IL_3dfe: - i4 = I1; - num5 = num9; - if (i4 <= num5) - { - goto IL_3607; - } - else - { - goto IL_3e0f; - } - IL_3e0f: - num = 713; - Label4.Text = List1.Items.Count - 1.AsString() + " Einträge"; - goto IL_448a; - IL_3607: - num = 642; - ProgressBar1.PerformStep(); - goto IL_361a; - IL_361a: - num = 643; - Application.DoEvents(); - goto IL_3627; - IL_3627: - num = 644; - Modul1.PersInArb = I1; - goto IL_3639; - IL_3639: - num = 645; - sDest = new string(' ', 80); - goto IL_364b; - IL_364b: - num = 646; - if (Modul1.PersInArb <= num8) - { - goto IL_3666; - } - else - { - goto IL_448a; - } - IL_3666: - num = 649; - DataModul.DB_PersonTable.Seek("=", Modul1.PersInArb.AsString()); - goto IL_36c8; - IL_36c8: - num = 650; - if (!DataModul.DB_PersonTable.NoMatch) - { - goto IL_36e4; - } - else - { - goto IL_3de8; - } - IL_36e4: - num = 653; - LiKi = 1; - goto IL_36f2; - IL_36f2: - num = 654; - LiEl = 1; - goto IL_3700; - IL_3700: - num = 655; - //LiPa = 1; - goto IL_370e; - IL_370e: - num = 656; - Modul1.Kenn = 3f; - goto IL_371f; - IL_371f: - num = 657; - DataModul.DB_LinkTable.Index = nameof(DataModul.LinkIndex.ElSu); - goto IL_3736; - IL_3736: - num = 658; - DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), Modul1.Kenn); - goto IL_379d; - IL_379d: - num = 659; - if (DataModul.DB_LinkTable.NoMatch) - { - goto IL_37b4; - } - else - { - goto IL_37c2; - } - IL_37b4: - num = 660; - LiKi = 0; - goto IL_37c2; - IL_37c2: - num = 662; - Modul1.Kenn = 1f; - goto IL_37d3; - IL_37d3: - num = 663; - Modul1.PerSatzLes(); - goto IL_37e0; - IL_37e0: - num = 664; - if ((DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.Sex)].AsString() == "F")) - { - goto IL_3811; - } - else - { - goto IL_3822; - } - IL_3811: - num = 665; - Modul1.Kenn = 2f; - goto IL_3822; - IL_3822: - num = 667; - DataModul.DB_LinkTable.Index = nameof(DataModul.LinkIndex.ElSu); - goto IL_3839; - IL_3839: - num = 668; - DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), Modul1.Kenn); - goto IL_38a0; - IL_38a0: - num = 669; - if (DataModul.DB_LinkTable.NoMatch) - { - goto IL_38b7; - } - else - { - goto IL_38c5; - } - IL_38b7: - num = 670; - LiEl = 0; - goto IL_38c5; - IL_38c5: - num = 672; - if ((LiKi == 0) & (LiEl == 0)) - { - goto IL_38e8; - } - else - { - goto IL_3de8; - } - IL_38e8: - num = 673; - Modul1.Personlesen(Modul1.PersInArb); - goto IL_38f5; - IL_38f5: - num = 674; - StringType.MidStmtStr(ref sDest, 1, 20, Strings.Left((Modul1.Kont[0]).Trim() + "," + (Modul1.Kont[3]).Trim() + " ", 20)); - goto IL_3935; - IL_3935: - num = 675; - if (LiEl == 0) - { - goto IL_394b; - } - else - { - goto IL_3962; - } - IL_394b: - num = 676; - StringType.MidStmtStr(ref sDest, 24, 1, "N"); - goto IL_3962; - IL_3962: - num = 678; - if (LiKi == 0) - { - goto IL_3978; - } - else - { - goto IL_398f; - } - IL_3978: - num = 679; - StringType.MidStmtStr(ref sDest, 30, 1, "N"); - goto IL_398f; - IL_398f: - num = 681; - DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 4); - goto IL_39f2; - IL_39f2: - num = 682; - if (!DataModul.DB_LinkTable.NoMatch) - { - goto IL_3a0c; - } - else - { - goto IL_3a23; - } - IL_3a0c: - num = 683; - StringType.MidStmtStr(ref sDest, 36, 1, "J"); - goto IL_3a23; - IL_3a23: - num = 685; - DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 5); - goto IL_3a86; - IL_3a86: - num = 686; - if (!DataModul.DB_LinkTable.NoMatch) - { - goto IL_3aa0; - } - else - { - goto IL_3ab7; - } - IL_3aa0: - num = 687; - StringType.MidStmtStr(ref sDest, 46, 1, "J"); - goto IL_3ab7; - IL_3ab7: - num = 689; - DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 6); - goto IL_3b1a; - IL_3b1a: - num = 690; - if (!DataModul.DB_LinkTable.NoMatch) - { - goto IL_3b34; - } - else - { - goto IL_3b4b; - } - IL_3b34: - num = 691; - StringType.MidStmtStr(ref sDest, 46, 1, "J"); - goto IL_3b4b; - IL_3b4b: - num = 693; - DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 7); - goto IL_3bae; - IL_3bae: - num = 694; - if (!DataModul.DB_LinkTable.NoMatch) - { - goto IL_3bc8; - } - else - { - goto IL_3bdf; - } - IL_3bc8: - num = 695; - StringType.MidStmtStr(ref sDest, 46, 1, "J"); - goto IL_3bdf; - IL_3bdf: - num = 697; - DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 8); - goto IL_3c42; - IL_3c42: - num = 698; - if (!DataModul.DB_LinkTable.NoMatch) - { - goto IL_3c5c; - } - else - { - goto IL_3c73; - } - IL_3c5c: - num = 699; - StringType.MidStmtStr(ref sDest, 55, 1, "J"); - goto IL_3c73; - IL_3c73: - num = 701; - DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 9); - goto IL_3cd7; - IL_3cd7: - num = 702; - if (!DataModul.DB_LinkTable.NoMatch) - { - goto IL_3cf1; - } - else - { - goto IL_3d08; - } - IL_3cf1: - num = 703; - StringType.MidStmtStr(ref sDest, 70, 1, "J"); - goto IL_3d08; - IL_3d08: - num = 705; - DataModul.DB_WitnessTable.Index = nameof(DataModul.WitnessIndex.ElSu); - goto IL_3d1f; - IL_3d1f: - num = 706; - DataModul.DB_WitnessTable.Seek("=", Modul1.PersInArb, "10"); - goto IL_3d7c; - IL_3d7c: - num = 707; - if (!DataModul.DB_WitnessTable.NoMatch) - { - goto IL_3d96; - } - else - { - goto IL_3dad; - } - IL_3d96: - num = 708; - StringType.MidStmtStr(ref sDest, 46, 1, "J"); - goto IL_3dad; - IL_3dad: - num = 710; - List1.Items.Add(new ListItem(sDest + " " + Modul1.PersInArb.AsString())); - goto IL_3de8; - IL_3de8: - num = 712; - I1++; - goto IL_3dfe; - IL_2496: - num = 439; - List1.Items.Clear(); - goto IL_24ae; - IL_24ae: - num = 440; - Label1[2].Text = "Personen ohne Datum"; - goto IL_24cc; - IL_24cc: - num = 441; - Label1[1].Text = Modul1.IText[166]; - goto IL_24f0; - IL_24f0: - num = 442; - Label1[0].Text = Modul1.IText[167]; - goto IL_2514; - IL_2514: - num = 443; - I1 = 0; - goto IL_2522; - IL_2522: - num = 444; - Label1[(short)I1].Refresh(); - goto IL_2541; - IL_2541: - num = 445; - I1++; - i5 = I1; - num5 = 2; - if (i5 <= num5) - { - goto IL_2522; - } - else - { - goto IL_2564; - } - IL_2564: - num = 446; - num7 = 1; - goto IL_256e; - IL_256e: - num = 447; - if (num7 <= 0) - { - goto end_IL_0001_2; - } - goto IL_2589; - IL_2589: - num = 450; - DataModul.DB_PersonTable.Index = nameof(DataModul.PersonIndex.PerNr); - goto IL_25a0; - IL_25a0: - num = 451; - DataModul.DB_PersonTable.MoveLast(); - goto IL_25b3; - IL_25b3: - num = 452; - num8 = DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value.AsInt(); - goto IL_25da; - IL_25da: - num = 453; - if (num7 == 0) - { - goto end_IL_0001_2; - } - goto IL_25f2; - IL_25f2: - num = 456; - if ((num7 > DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value)) - { - goto IL_2625; - } - else - { - goto IL_2666; - } - IL_2625: - num = 457; - Interaction.MsgBox(Modul1.IText[173] + " " + num7.AsString() + Modul1.IText[172]); - goto end_IL_0001_2; - IL_2666: - num = 460; - ProgressBar1.Minimum = 0; - goto IL_267a; - IL_267a: - num = 461; - ProgressBar1.Maximum = 0; - goto IL_268e; - IL_268e: - num = 462; - ProgressBar1.Step = 1; - goto IL_26a2; - IL_26a2: - num = 463; - ProgressBar1.Maximum = DataModul.DB_PersonTable.RecordCount - 1; - goto IL_26c1; - IL_26c1: - num = 464; - i6 = num7; - num10 = DataModul.DB_PersonTable.RecordCount - 1; - I1 = i6; - goto IL_33b6; - IL_33b6: - i7 = I1; - num5 = num10; - if (i7 <= num5) - { - goto IL_26e3; - } - else - { - goto IL_33c7; - } - IL_33c7: - num = 615; - Label4.Text = List1.Items.Count - 1.AsString() + " Einträge"; - goto IL_448a; - IL_26e3: - num = 465; - ProgressBar1.PerformStep(); - goto IL_26f6; - IL_26f6: - num = 466; - Application.DoEvents(); - goto IL_2703; - IL_2703: - num = 467; - Modul1.PersInArb = I1; - goto IL_2715; - IL_2715: - num = 468; - if (Modul1.PersInArb <= num8) - { - goto IL_2730; - } - else - { - goto IL_448a; - } - IL_2730: - num = 471; - DataModul.DB_PersonTable.Seek("=", Modul1.PersInArb.AsString()); - goto IL_2792; - IL_2792: - num = 472; - if (!DataModul.DB_PersonTable.NoMatch) - { - goto IL_27ae; - } - else - { - goto IL_3395; - } - IL_27ae: - num = 475; - Modul1.Personlesen(Modul1.PersInArb); - goto IL_27bb; - IL_27bb: - num = 476; - Modul1.LiText = Strings.Left((Modul1.Kont[0]).Trim() + "," + (Modul1.Kont[3]).Trim() + " ", 20); - goto IL_27f5; - IL_27f5: - num = 477; - Modul1.Schalt = 20; - goto IL_2803; - IL_2803: - num = 478; - T = 1; - goto IL_2811; - IL_2811: - num = 479; - Modul1.Kont[T + 10] = ""; - goto IL_282d; - IL_282d: - num = 480; - Modul1.Kont[T + 20] = ""; - goto IL_2849; - IL_2849: - num = 481; - T = (short)unchecked(T + 1); - t = T; - num11 = 10; - if (t <= num11) - { - goto IL_2811; - } - else - { - goto IL_286e; - } - IL_286e: - num = 482; - Modul1.Datles(); - goto IL_287b; - IL_287b: - num = 483; - sDest2 = " "; - goto IL_2889; - IL_2889: - num = 484; - if ((Modul1.Kont[11]).Trim() == "") - { - goto IL_28b9; - } - else - { - goto IL_3395; - } - IL_28b9: - num = 487; - if ((Modul1.Kont[12]).Trim() == "") - { - goto IL_28e9; - } - else - { - goto IL_3395; - } - IL_28e9: - num = 490; - if ((Modul1.Kont[13]).Trim() == "") - { - goto IL_2919; - } - else - { - goto IL_3395; - } - IL_2919: - num = 493; - if ((Modul1.Kont[14]).Trim() == "") - { - goto IL_2949; - } - else - { - goto IL_3395; - } - IL_2949: - num = 496; - num12 = 300; - goto IL_2956; - IL_2956: - num = 497; - DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.BeSu); - goto IL_296d; - IL_296d: - num = 498; - DataModul.DB_EventTable.Seek("=", num12, Modul1.PersInArb.AsString()); - goto IL_29d0; - IL_29d0: - num = 499; - if (!DataModul.DB_EventTable.NoMatch) - { - goto IL_29ec; - } - else - { - goto IL_2d63; - } - IL_29ec: - num = 502; - switch (num12) - { - case 300: - break; - case 301: - goto IL_2b31; - case 302: - goto IL_2c4c; - default: - goto IL_2d63; - } - - { - goto IL_2a16; - } - IL_2c4c: - num = 534; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) - { - goto IL_2c7e; - } - else - { - goto IL_2c9b; - } - IL_2c7e: - num = 535; - StringType.MidStmtStr(ref sDest2, 50, 1, Modul1.IText[175]); - goto IL_2c9b; - IL_2c9b: - num = 537; - if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_2cd2; - } - else - { - goto IL_3395; - } - IL_2cd2: - num = 540; - if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) - { - goto IL_2d09; - } - else - { - goto IL_3395; - } - IL_2d09: - num = 543; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_2d44; - } - else - { - goto IL_2d63; - } - IL_2d44: - num = 544; - StringType.MidStmtStr(ref sDest2, 53, 1, Modul1.IText[175]); - goto IL_2d63; - IL_2b31: - num = 520; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) - { - goto IL_2b63; - } - else - { - goto IL_2b80; - } - IL_2b63: - num = 521; - StringType.MidStmtStr(ref sDest2, 42, 1, Modul1.IText[175]); - goto IL_2b80; - IL_2b80: - num = 523; - if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_2bb7; - } - else - { - goto IL_3395; - } - IL_2bb7: - num = 526; - if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) - { - goto IL_2bee; - } - else - { - goto IL_3395; - } - IL_2bee: - num = 529; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_2c29; - } - else - { - goto IL_2d63; - } - IL_2c29: - num = 530; - StringType.MidStmtStr(ref sDest2, 46, 1, Modul1.IText[175]); - goto IL_2d63; - IL_2a16: - num = 506; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) - { - goto IL_2a48; - } - else - { - goto IL_2a65; - } - IL_2a48: - num = 507; - StringType.MidStmtStr(ref sDest2, 34, 1, Modul1.IText[175]); - goto IL_2a65; - IL_2a65: - num = 509; - if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_2a9c; - } - else - { - goto IL_3395; - } - IL_2a9c: - num = 512; - if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) - { - goto IL_2ad3; - } - else - { - goto IL_3395; - } - IL_2ad3: - num = 515; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_2b0e; - } - else - { - goto IL_2d63; - } - IL_2b0e: - num = 516; - StringType.MidStmtStr(ref sDest2, 38, 1, Modul1.IText[175]); - goto IL_2d63; - IL_2d63: - num = 547; - lErl = 92; - goto IL_2d6e; - IL_2d6e: - num = 548; - num12 = (short)unchecked(num12 + 1); - num13 = num12; - num11 = 302; - if (num13 <= num11) - { - goto IL_2956; - } - else - { - goto IL_32fc; - } - IL_32fc: - num = 606; - lErl = 45; - goto IL_3307; - IL_3307: - num = 607; - Modul1.LiText += sDest2; - goto IL_3320; - IL_3320: - num = 609; - if ((Modul1.LiText).Trim() != "") - { - goto IL_3348; - } - else - { - goto IL_3383; - } - IL_3348: - num = 610; - List1.Items.Add(new ListItem(Modul1.LiText + " " + Modul1.PersInArb.AsString())); - goto IL_3383; - IL_3383: - num = 612; - Modul1.LiText = ""; - goto IL_3395; - IL_3395: - num = 613; - lErl = 95; - goto IL_33a0; - IL_33a0: - num = 614; - I1++; - goto IL_33b6; - IL_1c00: - num = 336; - //Sz = 0; - goto IL_1c0e; - IL_1c0e: - num = 337; - List1.Items.Clear(); - goto IL_1c26; - IL_1c26: - num = 338; - Label1[2].Text = "Familien ohne Datum"; - goto IL_1c44; - IL_1c44: - num = 339; - Label1[1].Text = "Mann Frau Kinder Pro Verl. Hei k.H. Schd. Eheä. Aus Fikt."; - goto IL_1c62; - IL_1c62: - num = 340; - Label1[0].Text = " DO DO DO DO DO DO DO"; - goto IL_1c80; - IL_1c80: - num = 341; - if (RadioButton2.Checked) - { - goto IL_1c98; - } - else - { - goto IL_1cb5; - } - IL_1c98: - num = 342; - List1.Items.Add("Familien ohne Datum"); - goto IL_1cb5; - IL_1cb5: - num = 344; - if (RadioButton2.Checked) - { - goto IL_1ccd; - } - else - { - goto IL_1cea; - } - IL_1ccd: - num = 345; - List1.Items.Add("Mann Frau Kinder Pro Verl. Hei k.H. Schd. eheä. auß Fikt."); - goto IL_1cea; - IL_1cea: - num = 347; - if (RadioButton2.Checked) - { - goto IL_1d02; - } - else - { - goto IL_1d1f; - } - IL_1d02: - num = 348; - List1.Items.Add(" DO DO DO DO DO DO DO"); - goto IL_1d1f; - IL_1d1f: - num = 350; - Modul1.I = 0; - goto IL_1d2c; - IL_1d2c: - num = 351; - Label1[(short)Modul1.I].Refresh(); - goto IL_1d4a; - IL_1d4a: - num = 352; - Modul1.I++; - i8 = Modul1.I; - num5 = 2; - if (i8 <= num5) - { - goto IL_1d2c; - } - else - { - goto IL_1d6a; - } - IL_1d6a: - num = 353; - num7 = 1; - goto IL_1d74; - IL_1d74: - num = 354; - if (num7 <= 0) - { - goto end_IL_0001_2; - } - goto IL_1d8f; - IL_1d8f: - num = 357; - DataModul.DB_FamilyTable.MoveLast(); - goto IL_1da2; - IL_1da2: - num = 358; - num8 = DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value.AsInt(); - goto IL_1dc9; - IL_1dc9: - num = 359; - if ((num7 > DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value)) - { - goto IL_1dfc; - } - else - { - goto IL_1e3d; - } - IL_1dfc: - num = 360; - Interaction.MsgBox(Modul1.IText[174] + " " + num7.AsString() + Modul1.IText[172]); - goto end_IL_0001_2; - IL_1e3d: - num = 363; - ProgressBar1.Minimum = 0; - goto IL_1e51; - IL_1e51: - num = 364; - ProgressBar1.Maximum = 0; - goto IL_1e65; - IL_1e65: - num = 365; - ProgressBar1.Step = 1; - goto IL_1e79; - IL_1e79: - num = 366; - ProgressBar1.Maximum = (int)Math.Round(Conversion.Val(Modul1.Aus[13])); - goto IL_1e9f; - IL_1e9f: - num = 367; - i9 = num7; - num14 = num7 + DataModul.DB_FamilyTable.RecordCount; - I1 = i9; - goto IL_2440; - IL_2440: - i10 = I1; - num5 = num14; - if (i10 <= num5) - { - goto IL_1ec2; - } - else - { - goto IL_2451; - } - IL_2451: - num = 435; - Label4.Text = List1.Items.Count - 2.AsString() + " Einträge"; - goto end_IL_0001_2; - IL_1ec2: - num = 368; - ProgressBar1.PerformStep(); - goto IL_1ed5; - IL_1ed5: - num = 369; - Application.DoEvents(); - goto IL_1ee2; - IL_1ee2: - num = 370; - sDest2 = " "; - goto IL_1ef0; - IL_1ef0: - num = 371; - Modul1.FamInArb = I1; - goto IL_1f02; - IL_1f02: - num = 372; - if (Modul1.FamInArb <= num8) - { - goto IL_1f1d; - } - else - { - goto IL_241f; - } - IL_1f1d: - num = 375; - DataModul.DB_FamilyTable.Index = nameof(DataModul.FamilyIndex.Fam); - goto IL_1f34; - IL_1f34: - num = 376; - DataModul.DB_FamilyTable.Seek("=", Modul1.FamInArb.AsString()); - goto IL_1f96; - IL_1f96: - num = 377; - if (!DataModul.DB_FamilyTable.NoMatch) - { - goto IL_1fb2; - } - else - { - goto IL_2317; - } - IL_1fb2: - num = 380; - MainProject.Forms.Familie.Famles(Modul1.FamInArb); - goto IL_1fbf; - IL_1fbf: - num = 381; - if (Modul1.Family.Mann > 0) - { - goto IL_1fd7; - } - else - { - goto IL_206d; - } - IL_1fd7: - num = 382; - Modul1.PersInArb = Modul1.Family.Mann; - goto IL_1fe8; - IL_1fe8: - num = 383; - Modul1.Personlesen(Modul1.PersInArb); - goto IL_1ff5; - IL_1ff5: - num = 384; - if (Modul1.Kont[0] != "") - { - goto IL_201a; - } - else - { - goto IL_2035; - } - IL_201a: - num = 385; - StringType.MidStmtStr(ref sDest2, 1, 15, Modul1.Kont[0]); - goto IL_2055; - IL_2035: - num = 387; - goto IL_203d; - IL_203d: - num = 388; - StringType.MidStmtStr(ref sDest2, 1, 15, ">NN<"); - goto IL_2055; - IL_2055: - num = 390; - StringType.MidStmtStr(ref sDest2, 16, 2, "/ "); - goto IL_206d; - IL_206d: - num = 392; - if (Modul1.Family.Frau > 0) - { - goto IL_2085; - } - else - { - goto IL_2106; - } - IL_2085: - num = 393; - Modul1.PersInArb = Modul1.Family.Frau; - goto IL_2096; - IL_2096: - num = 394; - Modul1.Personlesen(Modul1.PersInArb); - goto IL_20a3; - IL_20a3: - num = 395; - if (Modul1.Kont[0] != "") - { - goto IL_20c8; - } - else - { - goto IL_20e4; - } - IL_20c8: - num = 396; - StringType.MidStmtStr(ref sDest2, 17, 15, Modul1.Kont[0]); - goto IL_2106; - IL_20e4: - num = 398; - goto IL_20ec; - IL_20ec: - num = 399; - StringType.MidStmtStr(ref sDest2, 17, 15, ">NN<"); - goto IL_2106; - IL_2106: - num = 402; - if (Modul1.Family.Kind[1] != 0) - { - goto IL_2120; - } - else - { - goto IL_213d; - } - IL_2120: - num = 403; - StringType.MidStmtStr(ref sDest2, 32, 1, Modul1.IText[175]); - goto IL_213d; - IL_213d: - num = 405; - DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.ArtNr); - goto IL_2154; - IL_2154: - num = 406; - DataModul.DB_FamilyTable.Index = nameof(DataModul.FamilyIndex.Fam); - goto IL_216b; - IL_216b: - num = 407; - DataModul.DB_FamilyTable.Seek("=", Modul1.FamInArb); - goto IL_21c8; - IL_21c8: - num = 408; - if (!DataModul.DB_FamilyTable.NoMatch) - { - goto IL_21e4; - } - else - { - goto IL_2317; - } - IL_21e4: - num = 411; - if ((DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.Aeb)].Value == -1)) - { - goto IL_2216; - } - else - { - goto IL_2233; - } - IL_2216: - num = 412; - StringType.MidStmtStr(ref sDest2, 70, 1, Modul1.IText[175]); - goto IL_2233; - IL_2233: - num = 414; - num15 = 500; - goto IL_2240; - IL_2240: - num = 415; - Modul1.Ubg = num15; - goto IL_224d; - IL_224d: - num = 416; - DataModul.DB_EventTable.Seek("=", Modul1.Ubg.AsString(), Modul1.FamInArb.AsString(), "0"); - goto IL_22b9; - IL_22b9: - num = 417; - if (DataModul.DB_EventTable.NoMatch) - { - goto IL_22d8; - } - else - { - goto IL_241f; - } - IL_22d8: - num = 420; - if (!((num15 == 507) & DataModul.DB_EventTable.NoMatch)) - { - goto IL_22fa; - } - else - { - goto IL_2317; - } - IL_22fa: - num = 423; - num15 = (short)unchecked(num15 + 1); - num16 = num15; - num11 = 507; - if (num16 <= num11) - { - goto IL_2240; - } - else - { - goto IL_2317; - } - IL_2317: - num = 424; - lErl = 34; - goto IL_2322; - IL_2322: - num = 425; - DataModul.DB_EventTable.Seek("=", 601.AsString(), Modul1.FamInArb.AsString(), "0"); - goto IL_238e; - IL_238e: - num = 426; - if (DataModul.DB_EventTable.NoMatch) - { - goto IL_23aa; - } - else - { - goto IL_241f; - } - IL_23aa: - num = 429; - if (sDest2.Trim() != "") - { - goto IL_23cf; - } - else - { - goto IL_241f; - } - IL_23cf: - num = 430; - List1.Items.Add(new ListItem(sDest2 + " " + Modul1.FamInArb.AsString())); - goto IL_2407; - IL_2407: - num = 431; - //Sz++; - goto IL_241f; - IL_241f: - num = 433; - lErl = 35; - goto IL_242a; - IL_242a: - num = 434; - I1++; - goto IL_2440; - IL_1aae: - num = 322; - FileSystem.FileClose(99); - goto IL_1acb; - IL_1acb: - num = 323; - FileSystem.FileOpen(99, Modul1.TempPath + "\\Text4.Txt", OpenMode.Output); - goto IL_1aed; - IL_1aed: - num = 324; - FileSystem.PrintLine(99, Label1[2].Text); - goto IL_1b1c; - IL_1b1c: - num = 325; - FileSystem.PrintLine(99, Label1[1].Text); - goto IL_1b4b; - IL_1b4b: - num = 326; - FileSystem.PrintLine(99, Label1[0].Text); - goto IL_1b7a; - IL_1b7a: - num = 327; - if (List2.Visible) - { - goto IL_1b92; - } - else - { - goto IL_1bb9; - } - IL_1b92: - num = 328; - L = List2; - A = 2; - Modul1.Listbox3Clip(ref L, ref A); - List2 = L; - goto IL_1be7; - IL_1bb9: - num = 330; - goto IL_1bc1; - IL_1bc1: - num = 331; - L = List1; - A = 2; - Modul1.Listbox3Clip(ref L, ref A); - List1 = L; - goto IL_1be7; - IL_1be7: - num = 333; - FileSystem.FileClose(); - goto IL_448a; - IL_1a3c: - num = 314; - List1.Items.Clear(); - goto IL_1a54; - IL_1a54: - num = 315; - List2.Items.Clear(); - goto IL_1a6c; - IL_1a6c: - num = 316; - ProgressBar1.Minimum = 0; - goto IL_1a80; - IL_1a80: - num = 317; - ProgressBar1.Maximum = 0; - goto IL_1a94; - IL_1a94: - num = 318; - Close(); - goto end_IL_0001_2; - IL_0cef: - num = 159; - DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.ArtNr); - goto IL_0d06; - IL_0d06: - num = 160; - List1.Items.Clear(); - goto IL_0d1e; - IL_0d1e: - num = 161; - Label1[2].Text = "Fehlliste Familien"; - goto IL_0d3c; - IL_0d3c: - num = 162; - Label1[1].Text = "Mann Frau Kinder Pro Verl. Hei k.H. Schd. eheä. auß Fikt."; - goto IL_0d5a; - IL_0d5a: - num = 163; - Label1[0].Text = " DO DO DO DO DO DO DO"; - goto IL_0d78; - IL_0d78: - num = 164; - if (RadioButton2.Checked) - { - goto IL_0d90; - } - else - { - goto IL_0dad; - } - IL_0d90: - num = 165; - List1.Items.Add("Fehlliste Familien"); - goto IL_0dad; - IL_0dad: - num = 167; - if (RadioButton2.Checked) - { - goto IL_0dc5; - } - else - { - goto IL_0de2; - } - IL_0dc5: - num = 168; - List1.Items.Add("Mann Frau Kinder Pro Verl. Hei k.H. Schd. eheä. auß Fikt."); - goto IL_0de2; - IL_0de2: - num = 170; - if (RadioButton2.Checked) - { - goto IL_0dfa; - } - else - { - goto IL_0e17; - } - IL_0dfa: - num = 171; - List1.Items.Add(" DO DO DO DO DO DO DO"); - goto IL_0e17; - IL_0e17: - num = 173; - Modul1.I = 0; - goto IL_0e24; - IL_0e24: - num = 174; - Label1[(short)Modul1.I].Refresh(); - goto IL_0e42; - IL_0e42: - num = 175; - Modul1.I++; - i11 = Modul1.I; - num5 = 2; - if (i11 <= num5) - { - goto IL_0e24; - } - else - { - goto IL_0e62; - } - IL_0e62: - num = 176; - num7 = 1; - goto IL_0e6c; - IL_0e6c: - num = 177; - if (num7 <= 0) - { - goto end_IL_0001_2; - } - goto IL_0e87; - IL_0e87: - num = 180; - DataModul.DB_FamilyTable.MoveLast(); - goto IL_0e9a; - IL_0e9a: - num = 181; - num8 = DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value.AsInt(); - goto IL_0ec1; - IL_0ec1: - num = 182; - if ((num7 > DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value)) - { - goto IL_0ef4; - } - else - { - goto IL_0f36; - } - IL_0ef4: - num = 183; - Interaction.MsgBox("Die höchste Familiennummer ist " + DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value.AsString()); - goto end_IL_0001_2; - IL_0f36: - num = 186; - ProgressBar1.Minimum = 0; - goto IL_0f4a; - IL_0f4a: - num = 187; - ProgressBar1.Maximum = DataModul.DB_FamilyTable.RecordCount - 1; - goto IL_0f69; - IL_0f69: - num = 188; - ProgressBar1.Step = 1; - goto IL_0f7d; - IL_0f7d: - num = 189; - i12 = num7; - num17 = num8; - I1 = i12; - goto IL_199d; - IL_199d: - i13 = I1; - num5 = num17; - if (i13 <= num5) - { - goto IL_0f95; - } - else - { - goto IL_19ae; - } - IL_19ae: - num = 308; - Label4.Text = List1.Items.Count - 3.AsString() + " Familien"; - goto IL_19e7; - IL_19e7: - num = 309; - if (RadioButton1.Checked) - { - goto IL_19ff; - } - else - { - goto IL_448a; - } - IL_19ff: - num = 310; - Label4.Text = List1.Items.Count.AsString() + " Familien"; - goto IL_448a; - IL_0f95: - num = 190; - ProgressBar1.PerformStep(); - goto IL_0fa8; - IL_0fa8: - num = 191; - Application.DoEvents(); - goto IL_0fb5; - IL_0fb5: - num = 192; - sDest2 = " "; - goto IL_0fc3; - IL_0fc3: - num = 193; - Modul1.FamInArb = I1; - goto IL_0fd5; - IL_0fd5: - num = 194; - if (Modul1.FamInArb <= num8) - { - goto IL_0ff0; - } - else - { - goto IL_448a; - } - IL_0ff0: - num = 197; - DataModul.DB_FamilyTable.Index = nameof(DataModul.FamilyIndex.Fam); - goto IL_1007; - IL_1007: - num = 198; - DataModul.DB_FamilyTable.Seek("=", Modul1.FamInArb.AsString()); - goto IL_1069; - IL_1069: - num = 199; - if (!DataModul.DB_FamilyTable.NoMatch) - { - goto IL_1085; - } - else - { - goto IL_197c; - } - IL_1085: - num = 202; - MainProject.Forms.Familie.Famles(Modul1.FamInArb); - goto IL_1092; - IL_1092: - num = 203; - if (Modul1.Family.Mann > 0) - { - goto IL_10aa; - } - else - { - goto IL_1140; - } - IL_10aa: - num = 204; - Modul1.PersInArb = Modul1.Family.Mann; - goto IL_10bb; - IL_10bb: - num = 205; - Modul1.Personlesen(Modul1.PersInArb); - goto IL_10c8; - IL_10c8: - num = 206; - if (Modul1.Kont[0] != "") - { - goto IL_10ed; - } - else - { - goto IL_1108; - } - IL_10ed: - num = 207; - StringType.MidStmtStr(ref sDest2, 1, 15, Modul1.Kont[0]); - goto IL_1128; - IL_1108: - num = 209; - goto IL_1110; - IL_1110: - num = 210; - StringType.MidStmtStr(ref sDest2, 1, 15, ">NN<"); - goto IL_1128; - IL_1128: - num = 212; - StringType.MidStmtStr(ref sDest2, 16, 2, "/ "); - goto IL_1140; - IL_1140: - num = 214; - if (Modul1.Family.Frau > 0) - { - goto IL_1158; - } - else - { - goto IL_11d9; - } - IL_1158: - num = 215; - Modul1.PersInArb = Modul1.Family.Frau; - goto IL_1169; - IL_1169: - num = 216; - Modul1.Personlesen(Modul1.PersInArb); - goto IL_1176; - IL_1176: - num = 217; - if (Modul1.Kont[0] != "") - { - goto IL_119b; - } - else - { - goto IL_11b7; - } - IL_119b: - num = 218; - StringType.MidStmtStr(ref sDest2, 17, 15, Modul1.Kont[0]); - goto IL_11d9; - IL_11b7: - num = 220; - goto IL_11bf; - IL_11bf: - num = 221; - StringType.MidStmtStr(ref sDest2, 17, 15, ">NN<"); - goto IL_11d9; - IL_11d9: - num = 224; - if (Modul1.Family.Kind[1] != 0) - { - goto IL_11f3; - } - else - { - goto IL_1210; - } - IL_11f3: - num = 225; - StringType.MidStmtStr(ref sDest2, 32, 1, Modul1.IText[175]); - goto IL_1210; - IL_1210: - num = 227; - DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.ArtNr); - goto IL_1227; - IL_1227: - num = 228; - DataModul.DB_FamilyTable.Index = nameof(DataModul.FamilyIndex.Fam); - goto IL_123e; - IL_123e: - num = 229; - DataModul.DB_FamilyTable.Seek("=", Modul1.FamInArb); - goto IL_129b; - IL_129b: - num = 230; - if (!DataModul.DB_FamilyTable.NoMatch) - { - goto IL_12b7; - } - else - { - goto IL_197c; - } - IL_12b7: - num = 233; - if ((DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.Aeb)].Value == -1)) - { - goto IL_12e9; - } - else - { - goto IL_1306; - } - IL_12e9: - num = 234; - StringType.MidStmtStr(ref sDest2, 70, 1, Modul1.IText[175]); - goto IL_1306; - IL_1306: - num = 236; - num15 = 500; - goto IL_1313; - IL_1313: - num = 237; - Modul1.Ubg = num15; - goto IL_1320; - IL_1320: - num = 238; - DataModul.DB_EventTable.Seek("=", Modul1.Ubg.AsString(), Modul1.FamInArb.AsString(), "0"); - goto IL_138c; - IL_138c: - num = 239; - if (!DataModul.DB_EventTable.NoMatch) - { - goto IL_13a8; - } - else - { - goto IL_17ec; - } - IL_13a8: - num = 242; - switch (Modul1.Ubg) - { - case 500: - break; - case 501: - goto IL_148f; - case 502: - goto IL_153c; - case 503: - goto IL_15e9; - case 504: - goto IL_1696; - case 505: - goto IL_1743; - default: - goto IL_17ec; - } - - { - goto IL_13e2; - } - IL_1743: - num = 286; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_1775; - } - else - { - goto IL_1792; - } - IL_1775: - num = 287; - StringType.MidStmtStr(ref sDest2, 65, 1, Modul1.IText[175]); - goto IL_1792; - IL_1792: - num = 289; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_17cd; - } - else - { - goto IL_17ec; - } - IL_17cd: - num = 290; - StringType.MidStmtStr(ref sDest2, 66, 1, Modul1.IText[175]); - goto IL_17ec; - IL_1696: - num = 278; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_16c8; - } - else - { - goto IL_16e5; - } - IL_16c8: - num = 279; - StringType.MidStmtStr(ref sDest2, 59, 1, Modul1.IText[175]); - goto IL_16e5; - IL_16e5: - num = 281; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_1720; - } - else - { - goto IL_17ec; - } - IL_1720: - num = 282; - StringType.MidStmtStr(ref sDest2, 60, 1, Modul1.IText[175]); - goto IL_17ec; - IL_15e9: - num = 270; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_161b; - } - else - { - goto IL_1638; - } - IL_161b: - num = 271; - StringType.MidStmtStr(ref sDest2, 54, 1, Modul1.IText[175]); - goto IL_1638; - IL_1638: - num = 273; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_1673; - } - else - { - goto IL_17ec; - } - IL_1673: - num = 274; - StringType.MidStmtStr(ref sDest2, 55, 1, Modul1.IText[175]); - goto IL_17ec; - IL_153c: - num = 262; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_156e; - } - else - { - goto IL_158b; - } - IL_156e: - num = 263; - StringType.MidStmtStr(ref sDest2, 48, 1, Modul1.IText[175]); - goto IL_158b; - IL_158b: - num = 265; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_15c6; - } - else - { - goto IL_17ec; - } - IL_15c6: - num = 266; - StringType.MidStmtStr(ref sDest2, 49, 1, Modul1.IText[175]); - goto IL_17ec; - IL_148f: - num = 254; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_14c1; - } - else - { - goto IL_14de; - } - IL_14c1: - num = 255; - StringType.MidStmtStr(ref sDest2, 42, 1, Modul1.IText[175]); - goto IL_14de; - IL_14de: - num = 257; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_1519; - } - else - { - goto IL_17ec; - } - IL_1519: - num = 258; - StringType.MidStmtStr(ref sDest2, 43, 1, Modul1.IText[175]); - goto IL_17ec; - IL_13e2: - num = 246; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_1414; - } - else - { - goto IL_1431; - } - IL_1414: - num = 247; - StringType.MidStmtStr(ref sDest2, 37, 1, Modul1.IText[175]); - goto IL_1431; - IL_1431: - num = 249; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_146c; - } - else - { - goto IL_17ec; - } - IL_146c: - num = 250; - StringType.MidStmtStr(ref sDest2, 38, 1, Modul1.IText[175]); - goto IL_17ec; - IL_17ec: - num = 293; - lErl = 54; - goto IL_17f7; - IL_17f7: - num = 294; - num15 = (short)unchecked(num15 + 1); - num18 = num15; - num11 = 507; - if (num18 <= num11) - { - goto IL_1313; - } - else - { - goto IL_1814; - } - IL_1814: - num = 295; - lErl = 3; - goto IL_181e; - IL_181e: - num = 296; - DataModul.DB_EventTable.Seek("=", 601.AsString(), Modul1.FamInArb.AsString(), "0"); - goto IL_188a; - IL_188a: - num = 297; - if (!DataModul.DB_EventTable.NoMatch) - { - goto IL_18a7; - } - else - { - goto IL_1943; - } - IL_18a7: - num = 298; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_18d9; - } - else - { - goto IL_18f0; - } - IL_18d9: - num = 299; - StringType.MidStmtStr(ref sDest2, 75, 1, "J"); - goto IL_18f0; - IL_18f0: - num = 301; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_192b; - } - else - { - goto IL_1943; - } - IL_192b: - num = 302; - StringType.MidStmtStr(ref sDest2, 76, 1, "J"); - goto IL_1943; - IL_1943: - num = 305; - List1.Items.Add(new ListItem(sDest2 + " " + Modul1.FamInArb.AsString())); - goto IL_197c; - IL_197c: - num = 306; - lErl = 55; - goto IL_1987; - IL_1987: - num = 307; - I1++; - goto IL_199d; - IL_01d7: - num = 35; - List1.Items.Clear(); - goto IL_01ec; - IL_01ec: - num = 36; - Label1[2].Text = "Fehlliste Personen"; - goto IL_0207; - IL_0207: - num = 37; - Label1[1].Text = Modul1.IText[166]; - goto IL_0228; - IL_0228: - num = 38; - Label1[0].Text = Modul1.IText[167]; - goto IL_0249; - IL_0249: - num = 39; - Label1[1].Text = Label1[1].Text + " Quelle"; - goto IL_027a; - IL_027a: - num = 40; - Label1[0].Text = Label1[0].Text + " T V"; - goto IL_02ab; - IL_02ab: - num = 41; - I1 = 0; - goto IL_02b6; - IL_02b6: - num = 42; - Label1[(short)I1].Refresh(); - goto IL_02d2; - IL_02d2: - num = 43; - I1++; - i14 = I1; - num5 = 2; - if (i14 <= num5) - { - goto IL_02b6; - } - else - { - goto IL_02f2; - } - IL_02f2: - num = 44; - num7 = 1; - goto IL_02f9; - IL_02f9: - num = 45; - if (num7 <= 0) - { - goto end_IL_0001_2; - } - goto IL_0311; - IL_0311: - num = 48; - DataModul.DB_PersonTable.Index = nameof(DataModul.PersonIndex.PerNr); - goto IL_0325; - IL_0325: - num = 49; - DataModul.DB_PersonTable.MoveLast(); - goto IL_0335; - IL_0335: - num = 50; - num8 = DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value.AsInt(); - goto IL_0359; - IL_0359: - num = 51; - if (num7 == 0) - { - goto end_IL_0001_2; - } - goto IL_036e; - IL_036e: - num = 54; - if ((num7 > DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value)) - { - goto IL_039e; - } - else - { - goto IL_03dd; - } - IL_039e: - num = 55; - Interaction.MsgBox("Die höchste Personennummer ist " + DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value.AsString()); - goto end_IL_0001_2; - IL_03dd: - num = 58; - ProgressBar1.Minimum = 0; - goto IL_03ee; - IL_03ee: - num = 59; - ProgressBar1.Maximum = 0; - goto IL_03ff; - IL_03ff: - num = 60; - ProgressBar1.Step = 1; - goto IL_0410; - IL_0410: - num = 61; - ProgressBar1.Maximum = DataModul.DB_PersonTable.RecordCount - 1; - goto IL_042c; - IL_042c: - num = 62; - List1.Items.Clear(); - goto IL_0441; - IL_0441: - num = 63; - i15 = num7; - num19 = num8; - I1 = i15; - goto IL_0ca1; - IL_0ca1: - i16 = I1; - num5 = num19; - if (i16 <= num5) - { - goto IL_0456; - } - else - { - goto IL_0cb2; - } - IL_0cb2: - num = 156; - Label4.Text = List1.Items.Count.AsString() + " Einträge"; - goto IL_448a; - IL_0456: - num = 64; - ProgressBar1.PerformStep(); - goto IL_0466; - IL_0466: - num = 65; - Application.DoEvents(); - goto IL_0470; - IL_0470: - num = 66; - Modul1.PersInArb = I1; - goto IL_047f; - IL_047f: - num = 67; - if (Modul1.PersInArb <= num8) - { - goto IL_0497; - } - else - { - goto IL_448a; - } - IL_448a: - num = 781; - lErl = 4; - goto IL_4494; - IL_4494: - num = 782; - if (!RadioButton2.Checked) - { - goto end_IL_0001_2; - } - goto IL_44ac; - IL_44ac: - num = 783; - List1.Items.Add("Ende der Liste"); - goto IL_44c9; - IL_44c9: - num = 784; - Modul1.I = 1; - goto IL_44d6; - IL_44d6: - num = 785; - List1.Items.Add(""); - goto IL_44f3; - IL_44f3: - num = 786; - Modul1.I++; - i17 = Modul1.I; - num5 = 17; - if (i17 > num5) - { - goto end_IL_0001_2; - } - goto IL_44d6; - IL_0497: - num = 70; - DataModul.DB_PersonTable.Seek("=", Modul1.PersInArb.AsString()); - goto IL_04f6; - IL_04f6: - num = 71; - if (!DataModul.DB_PersonTable.NoMatch) - { - goto IL_050f; - } - else - { - goto IL_0c81; - } - IL_050f: - num = 74; - Modul1.Personlesen(Modul1.PersInArb); - goto IL_0519; - IL_0519: - num = 75; - Modul1.LiText = Strings.Left((Modul1.Kont[0]).Trim() + "," + (Modul1.Kont[3]).Trim() + " ", 20); - goto IL_0550; - IL_0550: - num = 76; - Modul1.Schalt = 20; - goto IL_055b; - IL_055b: - num = 77; - T = 1; - goto IL_0566; - IL_0566: - num = 78; - Modul1.Kont[T + 10] = " "; - goto IL_057f; - IL_057f: - num = 79; - Modul1.Kont[T + 20] = " "; - goto IL_0598; - IL_0598: - num = 80; - T = (short)unchecked(T + 1); - t2 = T; - num11 = 10; - if (t2 <= num11) - { - goto IL_0566; - } - else - { - goto IL_05ba; - } - IL_05ba: - num = 81; - Modul1.Datles(); - goto IL_05c4; - IL_05c4: - num = 82; - sDest2 = " "; - goto IL_05cf; - IL_05cf: - num = 83; - StringType.MidStmtStr(ref sDest2, 2, 2, Modul1.Kont[11] + Modul1.Kont[21]); - goto IL_05f2; - IL_05f2: - num = 84; - StringType.MidStmtStr(ref sDest2, 8, 2, Modul1.Kont[12] + Modul1.Kont[22]); - goto IL_0615; - IL_0615: - num = 85; - StringType.MidStmtStr(ref sDest2, 17, 2, Modul1.Kont[13] + Modul1.Kont[23]); - goto IL_0639; - IL_0639: - num = 86; - StringType.MidStmtStr(ref sDest2, 27, 2, Modul1.Kont[14] + Modul1.Kont[24]); - goto IL_065d; - IL_065d: - num = 87; - num12 = 300; - goto IL_0667; - IL_0667: - num = 88; - DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.BeSu); - goto IL_067b; - IL_067b: - num = 89; - DataModul.DB_EventTable.Seek("=", num12, Modul1.PersInArb.AsString()); - goto IL_06db; - IL_06db: - num = 90; - if (!DataModul.DB_EventTable.NoMatch) - { - goto IL_06f4; - } - else - { - goto IL_0ac2; - } - IL_06f4: - num = 93; - switch (num12) - { - case 300: - break; - case 301: - goto IL_084e; - case 302: - goto IL_0981; - default: - goto IL_0ac2; - } - - { - goto IL_071b; - } - IL_0981: - num = 125; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) - { - goto IL_09b0; - } - else - { - goto IL_09ca; - } - IL_09b0: - num = 126; - StringType.MidStmtStr(ref sDest2, 50, 1, Modul1.IText[175]); - goto IL_09ca; - IL_09ca: - num = 128; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_09fc; - } - else - { - goto IL_0a19; - } - IL_09fc: - num = 129; - StringType.MidStmtStr(ref sDest2, 51, 1, Modul1.IText[175]); - goto IL_0a19; - IL_0a19: - num = 131; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) - { - goto IL_0a4b; - } - else - { - goto IL_0a68; - } - IL_0a4b: - num = 132; - StringType.MidStmtStr(ref sDest2, 52, 1, Modul1.IText[175]); - goto IL_0a68; - IL_0a68: - num = 134; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_0aa3; - } - else - { - goto IL_0ac2; - } - IL_0aa3: - num = 135; - StringType.MidStmtStr(ref sDest2, 53, 1, Modul1.IText[175]); - goto IL_0ac2; - IL_084e: - num = 111; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) - { - goto IL_087d; - } - else - { - goto IL_0897; - } - IL_087d: - num = 112; - StringType.MidStmtStr(ref sDest2, 42, 1, Modul1.IText[175]); - goto IL_0897; - IL_0897: - num = 114; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_08c6; - } - else - { - goto IL_08e0; - } - IL_08c6: - num = 115; - StringType.MidStmtStr(ref sDest2, 44, 1, Modul1.IText[175]); - goto IL_08e0; - IL_08e0: - num = 117; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) - { - goto IL_090f; - } - else - { - goto IL_0929; - } - IL_090f: - num = 118; - StringType.MidStmtStr(ref sDest2, 45, 1, Modul1.IText[175]); - goto IL_0929; - IL_0929: - num = 120; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_0961; - } - else - { - goto IL_0ac2; - } - IL_0961: - num = 121; - StringType.MidStmtStr(ref sDest2, 46, 1, Modul1.IText[175]); - goto IL_0ac2; - IL_071b: - num = 97; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) - { - goto IL_074a; - } - else - { - goto IL_0764; - } - IL_074a: - num = 98; - StringType.MidStmtStr(ref sDest2, 34, 1, Modul1.IText[175]); - goto IL_0764; - IL_0764: - num = 100; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_0793; - } - else - { - goto IL_07ad; - } - IL_0793: - num = 101; - StringType.MidStmtStr(ref sDest2, 36, 1, Modul1.IText[175]); - goto IL_07ad; - IL_07ad: - num = 103; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) - { - goto IL_07dc; - } - else - { - goto IL_07f6; - } - IL_07dc: - num = 104; - StringType.MidStmtStr(ref sDest2, 37, 1, Modul1.IText[175]); - goto IL_07f6; - IL_07f6: - num = 106; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_082e; - } - else - { - goto IL_0ac2; - } - IL_082e: - num = 107; - StringType.MidStmtStr(ref sDest2, 38, 1, Modul1.IText[175]); - goto IL_0ac2; - IL_0ac2: - num = 138; - lErl = 2; - goto IL_0acc; - IL_0acc: - num = 139; - num12 = (short)unchecked(num12 + 1); - num20 = num12; - num11 = 302; - if (num20 <= num11) - { - goto IL_0667; - } - else - { - goto IL_0ae8; - } - IL_0ae8: - num = 140; - Modul1.LiText += sDest2; - goto IL_0b00; - IL_0b00: - num = 141; - Modul1.PerSatzLes(); - goto IL_0b0d; - IL_0b0d: - num = 142; - if (null != DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.Bem3)].Value) - { - goto IL_0b40; - } - else - { - goto IL_0b8b; - } - IL_0b40: - num = 143; - if (Operators.ConditionalCompareObjectNotEqual(DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.Bem3)].Value, "", TextCompare: false)) - { - goto IL_0b71; - } - else - { - goto IL_0b8b; - } - IL_0b71: - num = 144; - StringType.MidStmtStr(ref Modul1.LiText, 77, 1, "J"); - goto IL_0b8b; - IL_0b8b: - num = 147; - DataModul.TTable.Index = "Tab"; - goto IL_0ba2; - end_IL_0001: - break; - } - } - } - catch (Exception obj) when (num3 != 0 && num2 == 0) - { - ProjectData.SetProjectError(obj, lErl); - try0001_dispatch = 21059; - continue; - } - throw ProjectData.CreateProjectError(-2146828237); - end_IL_0001_2: - break; - } - if (num2 != 0) - { - ProjectData.ClearProjectError(); - } - } diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test09/Test9DataList.json b/Transpiler_pp/TranspilerLibTests/Resources/Test09/Test9DataList.json deleted file mode 100644 index 8948d26fe..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test09/Test9DataList.json +++ /dev/null @@ -1 +0,0 @@ -[{"Code":"private void Command1_Click(object eventSender, EventArgs eventArgs)","type":"operation","Level":0,"Pos":0},{"Code":"{","type":"block","Level":1,"Pos":76},{"Code":"","type":"operation","Level":1,"Pos":77},{"Code":"//Discarded unreachable code: IL_451b","type":"lComment","Level":1,"Pos":87},{"Code":"int try0001_dispatch = -1;","type":"operation","Level":1,"Pos":125},{"Code":"int num = default;","type":"operation","Level":1,"Pos":160},{"Code":"short index = default;","type":"operation","Level":1,"Pos":188},{"Code":"int num2 = default;","type":"operation","Level":1,"Pos":220},{"Code":"int num3 = default;","type":"operation","Level":1,"Pos":249},{"Code":"int lErl = default;","type":"operation","Level":1,"Pos":278},{"Code":"int num6 = default;","type":"operation","Level":1,"Pos":307},{"Code":"int num7 = default;","type":"operation","Level":1,"Pos":336},{"Code":"int num8 = default;","type":"operation","Level":1,"Pos":365},{"Code":"int num9 = default;","type":"operation","Level":1,"Pos":394},{"Code":"string sDest = default;","type":"operation","Level":1,"Pos":423},{"Code":"int num10 = default;","type":"operation","Level":1,"Pos":456},{"Code":"string sDest2 = default;","type":"operation","Level":1,"Pos":486},{"Code":"short num12 = default;","type":"operation","Level":1,"Pos":520},{"Code":"int num14 = default;","type":"operation","Level":1,"Pos":552},{"Code":"short num15 = default;","type":"operation","Level":1,"Pos":582},{"Code":"int num17 = default;","type":"operation","Level":1,"Pos":614},{"Code":"int num19 = default;","type":"operation","Level":1,"Pos":644},{"Code":"while","type":"operation","Level":1,"Pos":674},{"Code":"(true)","type":"operation","Level":1,"Pos":689},{"Code":"{","type":"block","Level":2,"Pos":706},{"Code":"try","type":"operation","Level":2,"Pos":707},{"Code":"{","type":"block","Level":3,"Pos":738},{"Code":"","type":"operation","Level":3,"Pos":739},{"Code":"/*Note: ILSpy has introduced the following switch to emulate a goto from catch-block to try-block*/","type":"comment","Level":3,"Pos":757},{"Code":";","type":"operation","Level":3,"Pos":856},{"Code":"checked","type":"operation","Level":3,"Pos":875},{"Code":"{","type":"block","Level":4,"Pos":918},{"Code":"int num4;","type":"operation","Level":4,"Pos":919},{"Code":"int i3;","type":"operation","Level":4,"Pos":950},{"Code":"int i4;","type":"operation","Level":4,"Pos":979},{"Code":"int i5;","type":"operation","Level":4,"Pos":1008},{"Code":"int i6;","type":"operation","Level":4,"Pos":1037},{"Code":"int i7;","type":"operation","Level":4,"Pos":1066},{"Code":"short t;","type":"operation","Level":4,"Pos":1095},{"Code":"short num13;","type":"operation","Level":4,"Pos":1125},{"Code":"int i8;","type":"operation","Level":4,"Pos":1159},{"Code":"int i9;","type":"operation","Level":4,"Pos":1188},{"Code":"int i10;","type":"operation","Level":4,"Pos":1217},{"Code":"short num16;","type":"operation","Level":4,"Pos":1247},{"Code":"ListBox L;","type":"operation","Level":4,"Pos":1281},{"Code":"short A;","type":"operation","Level":4,"Pos":1313},{"Code":"int i11;","type":"operation","Level":4,"Pos":1343},{"Code":"int i12;","type":"operation","Level":4,"Pos":1373},{"Code":"int i13;","type":"operation","Level":4,"Pos":1403},{"Code":"short num18;","type":"operation","Level":4,"Pos":1433},{"Code":"int i14;","type":"operation","Level":4,"Pos":1467},{"Code":"int i15;","type":"operation","Level":4,"Pos":1497},{"Code":"int i16;","type":"operation","Level":4,"Pos":1527},{"Code":"int i17;","type":"operation","Level":4,"Pos":1557},{"Code":"int num5;","type":"operation","Level":4,"Pos":1587},{"Code":"short t2;","type":"operation","Level":4,"Pos":1618},{"Code":"short num20;","type":"operation","Level":4,"Pos":1649},{"Code":"short num11;","type":"operation","Level":4,"Pos":1683},{"Code":"switch","type":"operation","Level":4,"Pos":1717},{"Code":"(try0001_dispatch)","type":"operation","Level":4,"Pos":1745},{"Code":"{","type":"block","Level":5,"Pos":1786},{"Code":"default:","type":"label","Level":5,"Pos":1787},{"Code":"num = 1;","type":"operation","Level":5,"Pos":1821},{"Code":"index = Command1.GetIndex((Button)eventSender);","type":"operation","Level":5,"Pos":1859},{"Code":"goto IL_0016;","type":"goto","Level":5,"Pos":1936},{"Code":"case 21059:","type":"label","Level":5,"Pos":1979},{"Code":"{","type":"block","Level":6,"Pos":2046},{"Code":"num2 = num;","type":"operation","Level":6,"Pos":2047},{"Code":"switch","type":"operation","Level":6,"Pos":2092},{"Code":"((num3 \u003C= -2) ? 1 : num3)","type":"operation","Level":6,"Pos":2132},{"Code":"{","type":"block","Level":7,"Pos":2192},{"Code":"case 2:","type":"label","Level":7,"Pos":2193},{"Code":"break;","type":"operation","Level":7,"Pos":2238},{"Code":"case 1:","type":"label","Level":7,"Pos":2286},{"Code":"goto IL_45b9;","type":"goto","Level":7,"Pos":2331},{"Code":"default:","type":"label","Level":7,"Pos":2386},{"Code":"goto end_IL_0001;","type":"goto","Level":7,"Pos":2432},{"Code":"}","type":"block","Level":7,"Pos":2525},{"Code":"goto IL_451d;","type":"goto","Level":6,"Pos":2526},{"Code":"}","type":"block","Level":6,"Pos":2603},{"Code":"IL_0c00:","type":"label","Level":5,"Pos":2604},{"Code":"num = 149;","type":"operation","Level":5,"Pos":2638},{"Code":"if","type":"operation","Level":5,"Pos":2678},{"Code":"(!DataModul.TTable.NoMatch)","type":"operation","Level":5,"Pos":2710},{"Code":"{","type":"block","Level":6,"Pos":2768},{"Code":"goto IL_0c1a;","type":"goto","Level":6,"Pos":2769},{"Code":"}","type":"block","Level":6,"Pos":2846},{"Code":"else","type":"operation","Level":5,"Pos":2847},{"Code":"{","type":"block","Level":6,"Pos":2911},{"Code":"goto IL_0c34;","type":"goto","Level":6,"Pos":2912},{"Code":"}","type":"block","Level":6,"Pos":2989},{"Code":"IL_0c1a:","type":"label","Level":5,"Pos":2990},{"Code":"num = 150;","type":"operation","Level":5,"Pos":3024},{"Code":"StringType.MidStmtStr(ref Modul1.LiText, 79, 1,","type":"operation","Level":5,"Pos":3064},{"Code":"\u0022J\u0022","type":"string","Level":5,"Pos":3142},{"Code":");","type":"operation","Level":5,"Pos":3145},{"Code":"goto IL_0c34;","type":"goto","Level":5,"Pos":3147},{"Code":"IL_0ba2:","type":"label","Level":5,"Pos":3190},{"Code":"num = 148;","type":"operation","Level":5,"Pos":3224},{"Code":"DataModul.TTable.Seek(","type":"operation","Level":5,"Pos":3264},{"Code":"\u0022=\u0022","type":"string","Level":5,"Pos":3316},{"Code":", 1, Modul1.PersInArb);","type":"operation","Level":5,"Pos":3319},{"Code":"goto IL_0c00;","type":"goto","Level":5,"Pos":3342},{"Code":"IL_451d:","type":"label","Level":5,"Pos":3385},{"Code":"num = 789;","type":"operation","Level":5,"Pos":3419},{"Code":"if","type":"operation","Level":5,"Pos":3459},{"Code":"(Information.Err().Number == 6)","type":"operation","Level":5,"Pos":3491},{"Code":"{","type":"block","Level":6,"Pos":3553},{"Code":"goto IL_4537;","type":"goto","Level":6,"Pos":3554},{"Code":"}","type":"block","Level":6,"Pos":3631},{"Code":"else","type":"operation","Level":5,"Pos":3632},{"Code":"{","type":"block","Level":6,"Pos":3696},{"Code":"goto IL_4563;","type":"goto","Level":6,"Pos":3697},{"Code":"}","type":"block","Level":6,"Pos":3774},{"Code":"IL_4563:","type":"label","Level":5,"Pos":3775},{"Code":"num = 794;","type":"operation","Level":5,"Pos":3809},{"Code":"if","type":"operation","Level":5,"Pos":3849},{"Code":"(Interaction.MsgBox(Conversion.ErrorToString(), MsgBoxStyle.OkCancel, (Information.Err().Number).AsString()) == MsgBoxResult.Cancel)","type":"operation","Level":5,"Pos":3881},{"Code":"{","type":"block","Level":6,"Pos":4044},{"Code":"ProjectData.EndApp();","type":"operation","Level":6,"Pos":4045},{"Code":"}","type":"block","Level":6,"Pos":4130},{"Code":"goto IL_4593;","type":"goto","Level":5,"Pos":4131},{"Code":"IL_0c6f:","type":"label","Level":5,"Pos":4174},{"Code":"num = 153;","type":"operation","Level":5,"Pos":4208},{"Code":"Modul1.LiText =","type":"operation","Level":5,"Pos":4248},{"Code":"\u0022\u0022","type":"string","Level":5,"Pos":4294},{"Code":";","type":"operation","Level":5,"Pos":4296},{"Code":"goto IL_0c81;","type":"goto","Level":5,"Pos":4297},{"Code":"IL_4593:","type":"label","Level":5,"Pos":4340},{"Code":"num = 797;","type":"operation","Level":5,"Pos":4374},{"Code":"ProjectData.ClearProjectError();","type":"operation","Level":5,"Pos":4414},{"Code":"if","type":"operation","Level":5,"Pos":4476},{"Code":"(num2 == 0)","type":"operation","Level":5,"Pos":4508},{"Code":"{","type":"block","Level":6,"Pos":4550},{"Code":"throw","type":"operation","Level":6,"Pos":4551},{"Code":"ProjectData.CreateProjectError(-2146828268);","type":"operation","Level":6,"Pos":4590},{"Code":"}","type":"block","Level":6,"Pos":4665},{"Code":"num4 = num2;","type":"operation","Level":5,"Pos":4666},{"Code":"goto IL_45bd;","type":"goto","Level":5,"Pos":4708},{"Code":"IL_0c81:","type":"label","Level":5,"Pos":4751},{"Code":"num = 154;","type":"operation","Level":5,"Pos":4785},{"Code":"lErl = 5;","type":"operation","Level":5,"Pos":4825},{"Code":"goto IL_0c8b;","type":"goto","Level":5,"Pos":4864},{"Code":"IL_0c8b:","type":"label","Level":5,"Pos":4907},{"Code":"num = 155;","type":"operation","Level":5,"Pos":4941},{"Code":"I1\u002B\u002B;","type":"operation","Level":5,"Pos":4981},{"Code":"goto IL_0ca1;","type":"goto","Level":5,"Pos":5016},{"Code":"IL_45bd:","type":"label","Level":5,"Pos":5059},{"Code":"num2 = 0;","type":"operation","Level":5,"Pos":5093},{"Code":"switch","type":"operation","Level":5,"Pos":5132},{"Code":"(num4)","type":"operation","Level":5,"Pos":5168},{"Code":"{","type":"block","Level":6,"Pos":5205},{"Code":"case 1:","type":"label","Level":6,"Pos":5206},{"Code":"break;","type":"operation","Level":6,"Pos":5247},{"Code":"case 2:","type":"label","Level":6,"Pos":5291},{"Code":"goto IL_0016;","type":"goto","Level":6,"Pos":5332},{"Code":"case 3:","type":"label","Level":6,"Pos":5383},{"Code":"goto IL_0026;","type":"goto","Level":6,"Pos":5424},{"Code":"case 4:","type":"label","Level":6,"Pos":5475},{"Code":"goto IL_0036;","type":"goto","Level":6,"Pos":5516},{"Code":"case 5:","type":"label","Level":6,"Pos":5567},{"Code":"goto IL_003e;","type":"goto","Level":6,"Pos":5608},{"Code":"case 7:","type":"label","Level":6,"Pos":5659},{"Code":"case 9:","type":"label","Level":6,"Pos":5700},{"Code":"goto IL_006f;","type":"goto","Level":6,"Pos":5741},{"Code":"case 10:","type":"label","Level":6,"Pos":5792},{"Code":"goto IL_0080;","type":"goto","Level":6,"Pos":5834},{"Code":"case 12:","type":"label","Level":6,"Pos":5885},{"Code":"case 13:","type":"label","Level":6,"Pos":5927},{"Code":"goto IL_0094;","type":"goto","Level":6,"Pos":5969},{"Code":"case 6:","type":"label","Level":6,"Pos":6020},{"Code":"case 11:","type":"label","Level":6,"Pos":6061},{"Code":"case 14:","type":"label","Level":6,"Pos":6103},{"Code":"case 15:","type":"label","Level":6,"Pos":6145},{"Code":"goto IL_00a6;","type":"goto","Level":6,"Pos":6187},{"Code":"case 16:","type":"label","Level":6,"Pos":6238},{"Code":"goto IL_00bb;","type":"goto","Level":6,"Pos":6280},{"Code":"case 17:","type":"label","Level":6,"Pos":6331},{"Code":"goto IL_00db;","type":"goto","Level":6,"Pos":6373},{"Code":"case 18:","type":"label","Level":6,"Pos":6424},{"Code":"case 19:","type":"label","Level":6,"Pos":6466},{"Code":"goto IL_00ed;","type":"goto","Level":6,"Pos":6508},{"Code":"case 20:","type":"label","Level":6,"Pos":6559},{"Code":"goto IL_010d;","type":"goto","Level":6,"Pos":6601},{"Code":"case 21:","type":"label","Level":6,"Pos":6652},{"Code":"case 22:","type":"label","Level":6,"Pos":6694},{"Code":"goto IL_011f;","type":"goto","Level":6,"Pos":6736},{"Code":"case 23:","type":"label","Level":6,"Pos":6787},{"Code":"goto IL_0130;","type":"goto","Level":6,"Pos":6829},{"Code":"case 24:","type":"label","Level":6,"Pos":6880},{"Code":"goto IL_0141;","type":"goto","Level":6,"Pos":6922},{"Code":"case 25:","type":"label","Level":6,"Pos":6973},{"Code":"goto IL_0156;","type":"goto","Level":6,"Pos":7015},{"Code":"case 26:","type":"label","Level":6,"Pos":7066},{"Code":"goto IL_016b;","type":"goto","Level":6,"Pos":7108},{"Code":"case 27:","type":"label","Level":6,"Pos":7159},{"Code":"case 28:","type":"label","Level":6,"Pos":7201},{"Code":"goto IL_017c;","type":"goto","Level":6,"Pos":7243},{"Code":"case 29:","type":"label","Level":6,"Pos":7294},{"Code":"goto IL_0191;","type":"goto","Level":6,"Pos":7336},{"Code":"case 30:","type":"label","Level":6,"Pos":7387},{"Code":"case 31:","type":"label","Level":6,"Pos":7429},{"Code":"goto IL_01a2;","type":"goto","Level":6,"Pos":7471},{"Code":"case 33:","type":"label","Level":6,"Pos":7522},{"Code":"case 35:","type":"label","Level":6,"Pos":7564},{"Code":"goto IL_01d7;","type":"goto","Level":6,"Pos":7606},{"Code":"case 36:","type":"label","Level":6,"Pos":7657},{"Code":"goto IL_01ec;","type":"goto","Level":6,"Pos":7699},{"Code":"case 37:","type":"label","Level":6,"Pos":7750},{"Code":"goto IL_0207;","type":"goto","Level":6,"Pos":7792},{"Code":"case 38:","type":"label","Level":6,"Pos":7843},{"Code":"goto IL_0228;","type":"goto","Level":6,"Pos":7885},{"Code":"case 39:","type":"label","Level":6,"Pos":7936},{"Code":"goto IL_0249;","type":"goto","Level":6,"Pos":7978},{"Code":"case 40:","type":"label","Level":6,"Pos":8029},{"Code":"goto IL_027a;","type":"goto","Level":6,"Pos":8071},{"Code":"case 41:","type":"label","Level":6,"Pos":8122},{"Code":"goto IL_02ab;","type":"goto","Level":6,"Pos":8164},{"Code":"case 42:","type":"label","Level":6,"Pos":8215},{"Code":"goto IL_02b6;","type":"goto","Level":6,"Pos":8257},{"Code":"case 43:","type":"label","Level":6,"Pos":8308},{"Code":"goto IL_02d2;","type":"goto","Level":6,"Pos":8350},{"Code":"case 44:","type":"label","Level":6,"Pos":8401},{"Code":"goto IL_02f2;","type":"goto","Level":6,"Pos":8443},{"Code":"case 45:","type":"label","Level":6,"Pos":8494},{"Code":"goto IL_02f9;","type":"goto","Level":6,"Pos":8536},{"Code":"case 47:","type":"label","Level":6,"Pos":8587},{"Code":"case 48:","type":"label","Level":6,"Pos":8629},{"Code":"goto IL_0311;","type":"goto","Level":6,"Pos":8671},{"Code":"case 49:","type":"label","Level":6,"Pos":8722},{"Code":"goto IL_0325;","type":"goto","Level":6,"Pos":8764},{"Code":"case 50:","type":"label","Level":6,"Pos":8815},{"Code":"goto IL_0335;","type":"goto","Level":6,"Pos":8857},{"Code":"case 51:","type":"label","Level":6,"Pos":8908},{"Code":"goto IL_0359;","type":"goto","Level":6,"Pos":8950},{"Code":"case 53:","type":"label","Level":6,"Pos":9001},{"Code":"case 54:","type":"label","Level":6,"Pos":9043},{"Code":"goto IL_036e;","type":"goto","Level":6,"Pos":9085},{"Code":"case 55:","type":"label","Level":6,"Pos":9136},{"Code":"goto IL_039e;","type":"goto","Level":6,"Pos":9178},{"Code":"case 57:","type":"label","Level":6,"Pos":9229},{"Code":"case 58:","type":"label","Level":6,"Pos":9271},{"Code":"goto IL_03dd;","type":"goto","Level":6,"Pos":9313},{"Code":"case 59:","type":"label","Level":6,"Pos":9364},{"Code":"goto IL_03ee;","type":"goto","Level":6,"Pos":9406},{"Code":"case 60:","type":"label","Level":6,"Pos":9457},{"Code":"goto IL_03ff;","type":"goto","Level":6,"Pos":9499},{"Code":"case 61:","type":"label","Level":6,"Pos":9550},{"Code":"goto IL_0410;","type":"goto","Level":6,"Pos":9592},{"Code":"case 62:","type":"label","Level":6,"Pos":9643},{"Code":"goto IL_042c;","type":"goto","Level":6,"Pos":9685},{"Code":"case 63:","type":"label","Level":6,"Pos":9736},{"Code":"goto IL_0441;","type":"goto","Level":6,"Pos":9778},{"Code":"case 64:","type":"label","Level":6,"Pos":9829},{"Code":"goto IL_0456;","type":"goto","Level":6,"Pos":9871},{"Code":"case 65:","type":"label","Level":6,"Pos":9922},{"Code":"goto IL_0466;","type":"goto","Level":6,"Pos":9964},{"Code":"case 66:","type":"label","Level":6,"Pos":10015},{"Code":"goto IL_0470;","type":"goto","Level":6,"Pos":10057},{"Code":"case 67:","type":"label","Level":6,"Pos":10108},{"Code":"goto IL_047f;","type":"goto","Level":6,"Pos":10150},{"Code":"case 69:","type":"label","Level":6,"Pos":10201},{"Code":"case 70:","type":"label","Level":6,"Pos":10243},{"Code":"goto IL_0497;","type":"goto","Level":6,"Pos":10285},{"Code":"case 71:","type":"label","Level":6,"Pos":10336},{"Code":"goto IL_04f6;","type":"goto","Level":6,"Pos":10378},{"Code":"case 73:","type":"label","Level":6,"Pos":10429},{"Code":"case 74:","type":"label","Level":6,"Pos":10471},{"Code":"goto IL_050f;","type":"goto","Level":6,"Pos":10513},{"Code":"case 75:","type":"label","Level":6,"Pos":10564},{"Code":"goto IL_0519;","type":"goto","Level":6,"Pos":10606},{"Code":"case 76:","type":"label","Level":6,"Pos":10657},{"Code":"goto IL_0550;","type":"goto","Level":6,"Pos":10699},{"Code":"case 77:","type":"label","Level":6,"Pos":10750},{"Code":"goto IL_055b;","type":"goto","Level":6,"Pos":10792},{"Code":"case 78:","type":"label","Level":6,"Pos":10843},{"Code":"goto IL_0566;","type":"goto","Level":6,"Pos":10885},{"Code":"case 79:","type":"label","Level":6,"Pos":10936},{"Code":"goto IL_057f;","type":"goto","Level":6,"Pos":10978},{"Code":"case 80:","type":"label","Level":6,"Pos":11029},{"Code":"goto IL_0598;","type":"goto","Level":6,"Pos":11071},{"Code":"case 81:","type":"label","Level":6,"Pos":11122},{"Code":"goto IL_05ba;","type":"goto","Level":6,"Pos":11164},{"Code":"case 82:","type":"label","Level":6,"Pos":11215},{"Code":"goto IL_05c4;","type":"goto","Level":6,"Pos":11257},{"Code":"case 83:","type":"label","Level":6,"Pos":11308},{"Code":"goto IL_05cf;","type":"goto","Level":6,"Pos":11350},{"Code":"case 84:","type":"label","Level":6,"Pos":11401},{"Code":"goto IL_05f2;","type":"goto","Level":6,"Pos":11443},{"Code":"case 85:","type":"label","Level":6,"Pos":11494},{"Code":"goto IL_0615;","type":"goto","Level":6,"Pos":11536},{"Code":"case 86:","type":"label","Level":6,"Pos":11587},{"Code":"goto IL_0639;","type":"goto","Level":6,"Pos":11629},{"Code":"case 87:","type":"label","Level":6,"Pos":11680},{"Code":"goto IL_065d;","type":"goto","Level":6,"Pos":11722},{"Code":"case 88:","type":"label","Level":6,"Pos":11773},{"Code":"goto IL_0667;","type":"goto","Level":6,"Pos":11815},{"Code":"case 89:","type":"label","Level":6,"Pos":11866},{"Code":"goto IL_067b;","type":"goto","Level":6,"Pos":11908},{"Code":"case 90:","type":"label","Level":6,"Pos":11959},{"Code":"goto IL_06db;","type":"goto","Level":6,"Pos":12001},{"Code":"case 92:","type":"label","Level":6,"Pos":12052},{"Code":"case 93:","type":"label","Level":6,"Pos":12094},{"Code":"goto IL_06f4;","type":"goto","Level":6,"Pos":12136},{"Code":"case 95:","type":"label","Level":6,"Pos":12187},{"Code":"case 97:","type":"label","Level":6,"Pos":12229},{"Code":"goto IL_071b;","type":"goto","Level":6,"Pos":12271},{"Code":"case 98:","type":"label","Level":6,"Pos":12322},{"Code":"goto IL_074a;","type":"goto","Level":6,"Pos":12364},{"Code":"case 99:","type":"label","Level":6,"Pos":12415},{"Code":"case 100:","type":"label","Level":6,"Pos":12457},{"Code":"goto IL_0764;","type":"goto","Level":6,"Pos":12500},{"Code":"case 101:","type":"label","Level":6,"Pos":12551},{"Code":"goto IL_0793;","type":"goto","Level":6,"Pos":12594},{"Code":"case 102:","type":"label","Level":6,"Pos":12645},{"Code":"case 103:","type":"label","Level":6,"Pos":12688},{"Code":"goto IL_07ad;","type":"goto","Level":6,"Pos":12731},{"Code":"case 104:","type":"label","Level":6,"Pos":12782},{"Code":"goto IL_07dc;","type":"goto","Level":6,"Pos":12825},{"Code":"case 105:","type":"label","Level":6,"Pos":12876},{"Code":"case 106:","type":"label","Level":6,"Pos":12919},{"Code":"goto IL_07f6;","type":"goto","Level":6,"Pos":12962},{"Code":"case 107:","type":"label","Level":6,"Pos":13013},{"Code":"goto IL_082e;","type":"goto","Level":6,"Pos":13056},{"Code":"case 110:","type":"label","Level":6,"Pos":13107},{"Code":"case 111:","type":"label","Level":6,"Pos":13150},{"Code":"goto IL_084e;","type":"goto","Level":6,"Pos":13193},{"Code":"case 112:","type":"label","Level":6,"Pos":13244},{"Code":"goto IL_087d;","type":"goto","Level":6,"Pos":13287},{"Code":"case 113:","type":"label","Level":6,"Pos":13338},{"Code":"case 114:","type":"label","Level":6,"Pos":13381},{"Code":"goto IL_0897;","type":"goto","Level":6,"Pos":13424},{"Code":"case 115:","type":"label","Level":6,"Pos":13475},{"Code":"goto IL_08c6;","type":"goto","Level":6,"Pos":13518},{"Code":"case 116:","type":"label","Level":6,"Pos":13569},{"Code":"case 117:","type":"label","Level":6,"Pos":13612},{"Code":"goto IL_08e0;","type":"goto","Level":6,"Pos":13655},{"Code":"case 118:","type":"label","Level":6,"Pos":13706},{"Code":"goto IL_090f;","type":"goto","Level":6,"Pos":13749},{"Code":"case 119:","type":"label","Level":6,"Pos":13800},{"Code":"case 120:","type":"label","Level":6,"Pos":13843},{"Code":"goto IL_0929;","type":"goto","Level":6,"Pos":13886},{"Code":"case 121:","type":"label","Level":6,"Pos":13937},{"Code":"goto IL_0961;","type":"goto","Level":6,"Pos":13980},{"Code":"case 124:","type":"label","Level":6,"Pos":14031},{"Code":"case 125:","type":"label","Level":6,"Pos":14074},{"Code":"goto IL_0981;","type":"goto","Level":6,"Pos":14117},{"Code":"case 126:","type":"label","Level":6,"Pos":14168},{"Code":"goto IL_09b0;","type":"goto","Level":6,"Pos":14211},{"Code":"case 127:","type":"label","Level":6,"Pos":14262},{"Code":"case 128:","type":"label","Level":6,"Pos":14305},{"Code":"goto IL_09ca;","type":"goto","Level":6,"Pos":14348},{"Code":"case 129:","type":"label","Level":6,"Pos":14399},{"Code":"goto IL_09fc;","type":"goto","Level":6,"Pos":14442},{"Code":"case 130:","type":"label","Level":6,"Pos":14493},{"Code":"case 131:","type":"label","Level":6,"Pos":14536},{"Code":"goto IL_0a19;","type":"goto","Level":6,"Pos":14579},{"Code":"case 132:","type":"label","Level":6,"Pos":14630},{"Code":"goto IL_0a4b;","type":"goto","Level":6,"Pos":14673},{"Code":"case 133:","type":"label","Level":6,"Pos":14724},{"Code":"case 134:","type":"label","Level":6,"Pos":14767},{"Code":"goto IL_0a68;","type":"goto","Level":6,"Pos":14810},{"Code":"case 135:","type":"label","Level":6,"Pos":14861},{"Code":"goto IL_0aa3;","type":"goto","Level":6,"Pos":14904},{"Code":"case 91:","type":"label","Level":6,"Pos":14955},{"Code":"case 94:","type":"label","Level":6,"Pos":14997},{"Code":"case 108:","type":"label","Level":6,"Pos":15039},{"Code":"case 109:","type":"label","Level":6,"Pos":15082},{"Code":"case 122:","type":"label","Level":6,"Pos":15125},{"Code":"case 123:","type":"label","Level":6,"Pos":15168},{"Code":"case 136:","type":"label","Level":6,"Pos":15211},{"Code":"case 137:","type":"label","Level":6,"Pos":15254},{"Code":"case 138:","type":"label","Level":6,"Pos":15297},{"Code":"goto IL_0ac2;","type":"goto","Level":6,"Pos":15340},{"Code":"case 139:","type":"label","Level":6,"Pos":15391},{"Code":"goto IL_0acc;","type":"goto","Level":6,"Pos":15434},{"Code":"case 140:","type":"label","Level":6,"Pos":15485},{"Code":"goto IL_0ae8;","type":"goto","Level":6,"Pos":15528},{"Code":"case 141:","type":"label","Level":6,"Pos":15579},{"Code":"goto IL_0b00;","type":"goto","Level":6,"Pos":15622},{"Code":"case 142:","type":"label","Level":6,"Pos":15673},{"Code":"goto IL_0b0d;","type":"goto","Level":6,"Pos":15716},{"Code":"case 143:","type":"label","Level":6,"Pos":15767},{"Code":"goto IL_0b40;","type":"goto","Level":6,"Pos":15810},{"Code":"case 144:","type":"label","Level":6,"Pos":15861},{"Code":"goto IL_0b71;","type":"goto","Level":6,"Pos":15904},{"Code":"case 145:","type":"label","Level":6,"Pos":15955},{"Code":"case 147:","type":"label","Level":6,"Pos":15998},{"Code":"goto IL_0b8b;","type":"goto","Level":6,"Pos":16041},{"Code":"case 148:","type":"label","Level":6,"Pos":16092},{"Code":"goto IL_0ba2;","type":"goto","Level":6,"Pos":16135},{"Code":"case 149:","type":"label","Level":6,"Pos":16186},{"Code":"goto IL_0c00;","type":"goto","Level":6,"Pos":16229},{"Code":"case 150:","type":"label","Level":6,"Pos":16280},{"Code":"goto IL_0c1a;","type":"goto","Level":6,"Pos":16323},{"Code":"case 151:","type":"label","Level":6,"Pos":16374},{"Code":"case 152:","type":"label","Level":6,"Pos":16417},{"Code":"goto IL_0c34;","type":"goto","Level":6,"Pos":16460},{"Code":"case 153:","type":"label","Level":6,"Pos":16511},{"Code":"goto IL_0c6f;","type":"goto","Level":6,"Pos":16554},{"Code":"case 72:","type":"label","Level":6,"Pos":16605},{"Code":"case 154:","type":"label","Level":6,"Pos":16647},{"Code":"goto IL_0c81;","type":"goto","Level":6,"Pos":16690},{"Code":"case 155:","type":"label","Level":6,"Pos":16741},{"Code":"goto IL_0c8b;","type":"goto","Level":6,"Pos":16784},{"Code":"case 156:","type":"label","Level":6,"Pos":16835},{"Code":"goto IL_0cb2;","type":"goto","Level":6,"Pos":16878},{"Code":"case 158:","type":"label","Level":6,"Pos":16929},{"Code":"case 159:","type":"label","Level":6,"Pos":16972},{"Code":"goto IL_0cef;","type":"goto","Level":6,"Pos":17015},{"Code":"case 160:","type":"label","Level":6,"Pos":17066},{"Code":"goto IL_0d06;","type":"goto","Level":6,"Pos":17109},{"Code":"case 161:","type":"label","Level":6,"Pos":17160},{"Code":"goto IL_0d1e;","type":"goto","Level":6,"Pos":17203},{"Code":"case 162:","type":"label","Level":6,"Pos":17254},{"Code":"goto IL_0d3c;","type":"goto","Level":6,"Pos":17297},{"Code":"case 163:","type":"label","Level":6,"Pos":17348},{"Code":"goto IL_0d5a;","type":"goto","Level":6,"Pos":17391},{"Code":"case 164:","type":"label","Level":6,"Pos":17442},{"Code":"goto IL_0d78;","type":"goto","Level":6,"Pos":17485},{"Code":"case 165:","type":"label","Level":6,"Pos":17536},{"Code":"goto IL_0d90;","type":"goto","Level":6,"Pos":17579},{"Code":"case 166:","type":"label","Level":6,"Pos":17630},{"Code":"case 167:","type":"label","Level":6,"Pos":17673},{"Code":"goto IL_0dad;","type":"goto","Level":6,"Pos":17716},{"Code":"case 168:","type":"label","Level":6,"Pos":17767},{"Code":"goto IL_0dc5;","type":"goto","Level":6,"Pos":17810},{"Code":"case 169:","type":"label","Level":6,"Pos":17861},{"Code":"case 170:","type":"label","Level":6,"Pos":17904},{"Code":"goto IL_0de2;","type":"goto","Level":6,"Pos":17947},{"Code":"case 171:","type":"label","Level":6,"Pos":17998},{"Code":"goto IL_0dfa;","type":"goto","Level":6,"Pos":18041},{"Code":"case 172:","type":"label","Level":6,"Pos":18092},{"Code":"case 173:","type":"label","Level":6,"Pos":18135},{"Code":"goto IL_0e17;","type":"goto","Level":6,"Pos":18178},{"Code":"case 174:","type":"label","Level":6,"Pos":18229},{"Code":"goto IL_0e24;","type":"goto","Level":6,"Pos":18272},{"Code":"case 175:","type":"label","Level":6,"Pos":18323},{"Code":"goto IL_0e42;","type":"goto","Level":6,"Pos":18366},{"Code":"case 176:","type":"label","Level":6,"Pos":18417},{"Code":"goto IL_0e62;","type":"goto","Level":6,"Pos":18460},{"Code":"case 177:","type":"label","Level":6,"Pos":18511},{"Code":"goto IL_0e6c;","type":"goto","Level":6,"Pos":18554},{"Code":"case 179:","type":"label","Level":6,"Pos":18605},{"Code":"case 180:","type":"label","Level":6,"Pos":18648},{"Code":"goto IL_0e87;","type":"goto","Level":6,"Pos":18691},{"Code":"case 181:","type":"label","Level":6,"Pos":18742},{"Code":"goto IL_0e9a;","type":"goto","Level":6,"Pos":18785},{"Code":"case 182:","type":"label","Level":6,"Pos":18836},{"Code":"goto IL_0ec1;","type":"goto","Level":6,"Pos":18879},{"Code":"case 183:","type":"label","Level":6,"Pos":18930},{"Code":"goto IL_0ef4;","type":"goto","Level":6,"Pos":18973},{"Code":"case 185:","type":"label","Level":6,"Pos":19024},{"Code":"case 186:","type":"label","Level":6,"Pos":19067},{"Code":"goto IL_0f36;","type":"goto","Level":6,"Pos":19110},{"Code":"case 187:","type":"label","Level":6,"Pos":19161},{"Code":"goto IL_0f4a;","type":"goto","Level":6,"Pos":19204},{"Code":"case 188:","type":"label","Level":6,"Pos":19255},{"Code":"goto IL_0f69;","type":"goto","Level":6,"Pos":19298},{"Code":"case 189:","type":"label","Level":6,"Pos":19349},{"Code":"goto IL_0f7d;","type":"goto","Level":6,"Pos":19392},{"Code":"case 190:","type":"label","Level":6,"Pos":19443},{"Code":"goto IL_0f95;","type":"goto","Level":6,"Pos":19486},{"Code":"case 191:","type":"label","Level":6,"Pos":19537},{"Code":"goto IL_0fa8;","type":"goto","Level":6,"Pos":19580},{"Code":"case 192:","type":"label","Level":6,"Pos":19631},{"Code":"goto IL_0fb5;","type":"goto","Level":6,"Pos":19674},{"Code":"case 193:","type":"label","Level":6,"Pos":19725},{"Code":"goto IL_0fc3;","type":"goto","Level":6,"Pos":19768},{"Code":"case 194:","type":"label","Level":6,"Pos":19819},{"Code":"goto IL_0fd5;","type":"goto","Level":6,"Pos":19862},{"Code":"case 196:","type":"label","Level":6,"Pos":19913},{"Code":"case 197:","type":"label","Level":6,"Pos":19956},{"Code":"goto IL_0ff0;","type":"goto","Level":6,"Pos":19999},{"Code":"case 198:","type":"label","Level":6,"Pos":20050},{"Code":"goto IL_1007;","type":"goto","Level":6,"Pos":20093},{"Code":"case 199:","type":"label","Level":6,"Pos":20144},{"Code":"goto IL_1069;","type":"goto","Level":6,"Pos":20187},{"Code":"case 201:","type":"label","Level":6,"Pos":20238},{"Code":"case 202:","type":"label","Level":6,"Pos":20281},{"Code":"goto IL_1085;","type":"goto","Level":6,"Pos":20324},{"Code":"case 203:","type":"label","Level":6,"Pos":20375},{"Code":"goto IL_1092;","type":"goto","Level":6,"Pos":20418},{"Code":"case 204:","type":"label","Level":6,"Pos":20469},{"Code":"goto IL_10aa;","type":"goto","Level":6,"Pos":20512},{"Code":"case 205:","type":"label","Level":6,"Pos":20563},{"Code":"goto IL_10bb;","type":"goto","Level":6,"Pos":20606},{"Code":"case 206:","type":"label","Level":6,"Pos":20657},{"Code":"goto IL_10c8;","type":"goto","Level":6,"Pos":20700},{"Code":"case 207:","type":"label","Level":6,"Pos":20751},{"Code":"goto IL_10ed;","type":"goto","Level":6,"Pos":20794},{"Code":"case 209:","type":"label","Level":6,"Pos":20845},{"Code":"goto IL_1108;","type":"goto","Level":6,"Pos":20888},{"Code":"case 210:","type":"label","Level":6,"Pos":20939},{"Code":"goto IL_1110;","type":"goto","Level":6,"Pos":20982},{"Code":"case 208:","type":"label","Level":6,"Pos":21033},{"Code":"case 211:","type":"label","Level":6,"Pos":21076},{"Code":"case 212:","type":"label","Level":6,"Pos":21119},{"Code":"goto IL_1128;","type":"goto","Level":6,"Pos":21162},{"Code":"case 213:","type":"label","Level":6,"Pos":21213},{"Code":"case 214:","type":"label","Level":6,"Pos":21256},{"Code":"goto IL_1140;","type":"goto","Level":6,"Pos":21299},{"Code":"case 215:","type":"label","Level":6,"Pos":21350},{"Code":"goto IL_1158;","type":"goto","Level":6,"Pos":21393},{"Code":"case 216:","type":"label","Level":6,"Pos":21444},{"Code":"goto IL_1169;","type":"goto","Level":6,"Pos":21487},{"Code":"case 217:","type":"label","Level":6,"Pos":21538},{"Code":"goto IL_1176;","type":"goto","Level":6,"Pos":21581},{"Code":"case 218:","type":"label","Level":6,"Pos":21632},{"Code":"goto IL_119b;","type":"goto","Level":6,"Pos":21675},{"Code":"case 220:","type":"label","Level":6,"Pos":21726},{"Code":"goto IL_11b7;","type":"goto","Level":6,"Pos":21769},{"Code":"case 221:","type":"label","Level":6,"Pos":21820},{"Code":"goto IL_11bf;","type":"goto","Level":6,"Pos":21863},{"Code":"case 219:","type":"label","Level":6,"Pos":21914},{"Code":"case 222:","type":"label","Level":6,"Pos":21957},{"Code":"case 223:","type":"label","Level":6,"Pos":22000},{"Code":"case 224:","type":"label","Level":6,"Pos":22043},{"Code":"goto IL_11d9;","type":"goto","Level":6,"Pos":22086},{"Code":"case 225:","type":"label","Level":6,"Pos":22137},{"Code":"goto IL_11f3;","type":"goto","Level":6,"Pos":22180},{"Code":"case 226:","type":"label","Level":6,"Pos":22231},{"Code":"case 227:","type":"label","Level":6,"Pos":22274},{"Code":"goto IL_1210;","type":"goto","Level":6,"Pos":22317},{"Code":"case 228:","type":"label","Level":6,"Pos":22368},{"Code":"goto IL_1227;","type":"goto","Level":6,"Pos":22411},{"Code":"case 229:","type":"label","Level":6,"Pos":22462},{"Code":"goto IL_123e;","type":"goto","Level":6,"Pos":22505},{"Code":"case 230:","type":"label","Level":6,"Pos":22556},{"Code":"goto IL_129b;","type":"goto","Level":6,"Pos":22599},{"Code":"case 232:","type":"label","Level":6,"Pos":22650},{"Code":"case 233:","type":"label","Level":6,"Pos":22693},{"Code":"goto IL_12b7;","type":"goto","Level":6,"Pos":22736},{"Code":"case 234:","type":"label","Level":6,"Pos":22787},{"Code":"goto IL_12e9;","type":"goto","Level":6,"Pos":22830},{"Code":"case 235:","type":"label","Level":6,"Pos":22881},{"Code":"case 236:","type":"label","Level":6,"Pos":22924},{"Code":"goto IL_1306;","type":"goto","Level":6,"Pos":22967},{"Code":"case 237:","type":"label","Level":6,"Pos":23018},{"Code":"goto IL_1313;","type":"goto","Level":6,"Pos":23061},{"Code":"case 238:","type":"label","Level":6,"Pos":23112},{"Code":"goto IL_1320;","type":"goto","Level":6,"Pos":23155},{"Code":"case 239:","type":"label","Level":6,"Pos":23206},{"Code":"goto IL_138c;","type":"goto","Level":6,"Pos":23249},{"Code":"case 241:","type":"label","Level":6,"Pos":23300},{"Code":"case 242:","type":"label","Level":6,"Pos":23343},{"Code":"goto IL_13a8;","type":"goto","Level":6,"Pos":23386},{"Code":"case 244:","type":"label","Level":6,"Pos":23437},{"Code":"case 246:","type":"label","Level":6,"Pos":23480},{"Code":"goto IL_13e2;","type":"goto","Level":6,"Pos":23523},{"Code":"case 247:","type":"label","Level":6,"Pos":23574},{"Code":"goto IL_1414;","type":"goto","Level":6,"Pos":23617},{"Code":"case 248:","type":"label","Level":6,"Pos":23668},{"Code":"case 249:","type":"label","Level":6,"Pos":23711},{"Code":"goto IL_1431;","type":"goto","Level":6,"Pos":23754},{"Code":"case 250:","type":"label","Level":6,"Pos":23805},{"Code":"goto IL_146c;","type":"goto","Level":6,"Pos":23848},{"Code":"case 253:","type":"label","Level":6,"Pos":23899},{"Code":"case 254:","type":"label","Level":6,"Pos":23942},{"Code":"goto IL_148f;","type":"goto","Level":6,"Pos":23985},{"Code":"case 255:","type":"label","Level":6,"Pos":24036},{"Code":"goto IL_14c1;","type":"goto","Level":6,"Pos":24079},{"Code":"case 256:","type":"label","Level":6,"Pos":24130},{"Code":"case 257:","type":"label","Level":6,"Pos":24173},{"Code":"goto IL_14de;","type":"goto","Level":6,"Pos":24216},{"Code":"case 258:","type":"label","Level":6,"Pos":24267},{"Code":"goto IL_1519;","type":"goto","Level":6,"Pos":24310},{"Code":"case 261:","type":"label","Level":6,"Pos":24361},{"Code":"case 262:","type":"label","Level":6,"Pos":24404},{"Code":"goto IL_153c;","type":"goto","Level":6,"Pos":24447},{"Code":"case 263:","type":"label","Level":6,"Pos":24498},{"Code":"goto IL_156e;","type":"goto","Level":6,"Pos":24541},{"Code":"case 264:","type":"label","Level":6,"Pos":24592},{"Code":"case 265:","type":"label","Level":6,"Pos":24635},{"Code":"goto IL_158b;","type":"goto","Level":6,"Pos":24678},{"Code":"case 266:","type":"label","Level":6,"Pos":24729},{"Code":"goto IL_15c6;","type":"goto","Level":6,"Pos":24772},{"Code":"case 269:","type":"label","Level":6,"Pos":24823},{"Code":"case 270:","type":"label","Level":6,"Pos":24866},{"Code":"goto IL_15e9;","type":"goto","Level":6,"Pos":24909},{"Code":"case 271:","type":"label","Level":6,"Pos":24960},{"Code":"goto IL_161b;","type":"goto","Level":6,"Pos":25003},{"Code":"case 272:","type":"label","Level":6,"Pos":25054},{"Code":"case 273:","type":"label","Level":6,"Pos":25097},{"Code":"goto IL_1638;","type":"goto","Level":6,"Pos":25140},{"Code":"case 274:","type":"label","Level":6,"Pos":25191},{"Code":"goto IL_1673;","type":"goto","Level":6,"Pos":25234},{"Code":"case 277:","type":"label","Level":6,"Pos":25285},{"Code":"case 278:","type":"label","Level":6,"Pos":25328},{"Code":"goto IL_1696;","type":"goto","Level":6,"Pos":25371},{"Code":"case 279:","type":"label","Level":6,"Pos":25422},{"Code":"goto IL_16c8;","type":"goto","Level":6,"Pos":25465},{"Code":"case 280:","type":"label","Level":6,"Pos":25516},{"Code":"case 281:","type":"label","Level":6,"Pos":25559},{"Code":"goto IL_16e5;","type":"goto","Level":6,"Pos":25602},{"Code":"case 282:","type":"label","Level":6,"Pos":25653},{"Code":"goto IL_1720;","type":"goto","Level":6,"Pos":25696},{"Code":"case 285:","type":"label","Level":6,"Pos":25747},{"Code":"case 286:","type":"label","Level":6,"Pos":25790},{"Code":"goto IL_1743;","type":"goto","Level":6,"Pos":25833},{"Code":"case 287:","type":"label","Level":6,"Pos":25884},{"Code":"goto IL_1775;","type":"goto","Level":6,"Pos":25927},{"Code":"case 288:","type":"label","Level":6,"Pos":25978},{"Code":"case 289:","type":"label","Level":6,"Pos":26021},{"Code":"goto IL_1792;","type":"goto","Level":6,"Pos":26064},{"Code":"case 290:","type":"label","Level":6,"Pos":26115},{"Code":"goto IL_17cd;","type":"goto","Level":6,"Pos":26158},{"Code":"case 240:","type":"label","Level":6,"Pos":26209},{"Code":"case 243:","type":"label","Level":6,"Pos":26252},{"Code":"case 251:","type":"label","Level":6,"Pos":26295},{"Code":"case 252:","type":"label","Level":6,"Pos":26338},{"Code":"case 259:","type":"label","Level":6,"Pos":26381},{"Code":"case 260:","type":"label","Level":6,"Pos":26424},{"Code":"case 267:","type":"label","Level":6,"Pos":26467},{"Code":"case 268:","type":"label","Level":6,"Pos":26510},{"Code":"case 275:","type":"label","Level":6,"Pos":26553},{"Code":"case 276:","type":"label","Level":6,"Pos":26596},{"Code":"case 283:","type":"label","Level":6,"Pos":26639},{"Code":"case 284:","type":"label","Level":6,"Pos":26682},{"Code":"case 291:","type":"label","Level":6,"Pos":26725},{"Code":"case 292:","type":"label","Level":6,"Pos":26768},{"Code":"case 293:","type":"label","Level":6,"Pos":26811},{"Code":"goto IL_17ec;","type":"goto","Level":6,"Pos":26854},{"Code":"case 294:","type":"label","Level":6,"Pos":26905},{"Code":"goto IL_17f7;","type":"goto","Level":6,"Pos":26948},{"Code":"case 295:","type":"label","Level":6,"Pos":26999},{"Code":"goto IL_1814;","type":"goto","Level":6,"Pos":27042},{"Code":"case 296:","type":"label","Level":6,"Pos":27093},{"Code":"goto IL_181e;","type":"goto","Level":6,"Pos":27136},{"Code":"case 297:","type":"label","Level":6,"Pos":27187},{"Code":"goto IL_188a;","type":"goto","Level":6,"Pos":27230},{"Code":"case 298:","type":"label","Level":6,"Pos":27281},{"Code":"goto IL_18a7;","type":"goto","Level":6,"Pos":27324},{"Code":"case 299:","type":"label","Level":6,"Pos":27375},{"Code":"goto IL_18d9;","type":"goto","Level":6,"Pos":27418},{"Code":"case 300:","type":"label","Level":6,"Pos":27469},{"Code":"case 301:","type":"label","Level":6,"Pos":27512},{"Code":"goto IL_18f0;","type":"goto","Level":6,"Pos":27555},{"Code":"case 302:","type":"label","Level":6,"Pos":27606},{"Code":"goto IL_192b;","type":"goto","Level":6,"Pos":27649},{"Code":"case 303:","type":"label","Level":6,"Pos":27700},{"Code":"case 304:","type":"label","Level":6,"Pos":27743},{"Code":"case 305:","type":"label","Level":6,"Pos":27786},{"Code":"goto IL_1943;","type":"goto","Level":6,"Pos":27829},{"Code":"case 200:","type":"label","Level":6,"Pos":27880},{"Code":"case 231:","type":"label","Level":6,"Pos":27923},{"Code":"case 306:","type":"label","Level":6,"Pos":27966},{"Code":"goto IL_197c;","type":"goto","Level":6,"Pos":28009},{"Code":"case 307:","type":"label","Level":6,"Pos":28060},{"Code":"goto IL_1987;","type":"goto","Level":6,"Pos":28103},{"Code":"case 308:","type":"label","Level":6,"Pos":28154},{"Code":"goto IL_19ae;","type":"goto","Level":6,"Pos":28197},{"Code":"case 309:","type":"label","Level":6,"Pos":28248},{"Code":"goto IL_19e7;","type":"goto","Level":6,"Pos":28291},{"Code":"case 310:","type":"label","Level":6,"Pos":28342},{"Code":"goto IL_19ff;","type":"goto","Level":6,"Pos":28385},{"Code":"case 313:","type":"label","Level":6,"Pos":28436},{"Code":"case 314:","type":"label","Level":6,"Pos":28479},{"Code":"goto IL_1a3c;","type":"goto","Level":6,"Pos":28522},{"Code":"case 315:","type":"label","Level":6,"Pos":28573},{"Code":"goto IL_1a54;","type":"goto","Level":6,"Pos":28616},{"Code":"case 316:","type":"label","Level":6,"Pos":28667},{"Code":"goto IL_1a6c;","type":"goto","Level":6,"Pos":28710},{"Code":"case 317:","type":"label","Level":6,"Pos":28761},{"Code":"goto IL_1a80;","type":"goto","Level":6,"Pos":28804},{"Code":"case 318:","type":"label","Level":6,"Pos":28855},{"Code":"goto IL_1a94;","type":"goto","Level":6,"Pos":28898},{"Code":"case 321:","type":"label","Level":6,"Pos":28949},{"Code":"case 322:","type":"label","Level":6,"Pos":28992},{"Code":"goto IL_1aae;","type":"goto","Level":6,"Pos":29035},{"Code":"case 323:","type":"label","Level":6,"Pos":29086},{"Code":"goto IL_1acb;","type":"goto","Level":6,"Pos":29129},{"Code":"case 324:","type":"label","Level":6,"Pos":29180},{"Code":"goto IL_1aed;","type":"goto","Level":6,"Pos":29223},{"Code":"case 325:","type":"label","Level":6,"Pos":29274},{"Code":"goto IL_1b1c;","type":"goto","Level":6,"Pos":29317},{"Code":"case 326:","type":"label","Level":6,"Pos":29368},{"Code":"goto IL_1b4b;","type":"goto","Level":6,"Pos":29411},{"Code":"case 327:","type":"label","Level":6,"Pos":29462},{"Code":"goto IL_1b7a;","type":"goto","Level":6,"Pos":29505},{"Code":"case 328:","type":"label","Level":6,"Pos":29556},{"Code":"goto IL_1b92;","type":"goto","Level":6,"Pos":29599},{"Code":"case 330:","type":"label","Level":6,"Pos":29650},{"Code":"goto IL_1bb9;","type":"goto","Level":6,"Pos":29693},{"Code":"case 331:","type":"label","Level":6,"Pos":29744},{"Code":"goto IL_1bc1;","type":"goto","Level":6,"Pos":29787},{"Code":"case 329:","type":"label","Level":6,"Pos":29838},{"Code":"case 332:","type":"label","Level":6,"Pos":29881},{"Code":"case 333:","type":"label","Level":6,"Pos":29924},{"Code":"goto IL_1be7;","type":"goto","Level":6,"Pos":29967},{"Code":"case 335:","type":"label","Level":6,"Pos":30018},{"Code":"case 336:","type":"label","Level":6,"Pos":30061},{"Code":"goto IL_1c00;","type":"goto","Level":6,"Pos":30104},{"Code":"case 337:","type":"label","Level":6,"Pos":30155},{"Code":"goto IL_1c0e;","type":"goto","Level":6,"Pos":30198},{"Code":"case 338:","type":"label","Level":6,"Pos":30249},{"Code":"goto IL_1c26;","type":"goto","Level":6,"Pos":30292},{"Code":"case 339:","type":"label","Level":6,"Pos":30343},{"Code":"goto IL_1c44;","type":"goto","Level":6,"Pos":30386},{"Code":"case 340:","type":"label","Level":6,"Pos":30437},{"Code":"goto IL_1c62;","type":"goto","Level":6,"Pos":30480},{"Code":"case 341:","type":"label","Level":6,"Pos":30531},{"Code":"goto IL_1c80;","type":"goto","Level":6,"Pos":30574},{"Code":"case 342:","type":"label","Level":6,"Pos":30625},{"Code":"goto IL_1c98;","type":"goto","Level":6,"Pos":30668},{"Code":"case 343:","type":"label","Level":6,"Pos":30719},{"Code":"case 344:","type":"label","Level":6,"Pos":30762},{"Code":"goto IL_1cb5;","type":"goto","Level":6,"Pos":30805},{"Code":"case 345:","type":"label","Level":6,"Pos":30856},{"Code":"goto IL_1ccd;","type":"goto","Level":6,"Pos":30899},{"Code":"case 346:","type":"label","Level":6,"Pos":30950},{"Code":"case 347:","type":"label","Level":6,"Pos":30993},{"Code":"goto IL_1cea;","type":"goto","Level":6,"Pos":31036},{"Code":"case 348:","type":"label","Level":6,"Pos":31087},{"Code":"goto IL_1d02;","type":"goto","Level":6,"Pos":31130},{"Code":"case 349:","type":"label","Level":6,"Pos":31181},{"Code":"case 350:","type":"label","Level":6,"Pos":31224},{"Code":"goto IL_1d1f;","type":"goto","Level":6,"Pos":31267},{"Code":"case 351:","type":"label","Level":6,"Pos":31318},{"Code":"goto IL_1d2c;","type":"goto","Level":6,"Pos":31361},{"Code":"case 352:","type":"label","Level":6,"Pos":31412},{"Code":"goto IL_1d4a;","type":"goto","Level":6,"Pos":31455},{"Code":"case 353:","type":"label","Level":6,"Pos":31506},{"Code":"goto IL_1d6a;","type":"goto","Level":6,"Pos":31549},{"Code":"case 354:","type":"label","Level":6,"Pos":31600},{"Code":"goto IL_1d74;","type":"goto","Level":6,"Pos":31643},{"Code":"case 356:","type":"label","Level":6,"Pos":31694},{"Code":"case 357:","type":"label","Level":6,"Pos":31737},{"Code":"goto IL_1d8f;","type":"goto","Level":6,"Pos":31780},{"Code":"case 358:","type":"label","Level":6,"Pos":31831},{"Code":"goto IL_1da2;","type":"goto","Level":6,"Pos":31874},{"Code":"case 359:","type":"label","Level":6,"Pos":31925},{"Code":"goto IL_1dc9;","type":"goto","Level":6,"Pos":31968},{"Code":"case 360:","type":"label","Level":6,"Pos":32019},{"Code":"goto IL_1dfc;","type":"goto","Level":6,"Pos":32062},{"Code":"case 362:","type":"label","Level":6,"Pos":32113},{"Code":"case 363:","type":"label","Level":6,"Pos":32156},{"Code":"goto IL_1e3d;","type":"goto","Level":6,"Pos":32199},{"Code":"case 364:","type":"label","Level":6,"Pos":32250},{"Code":"goto IL_1e51;","type":"goto","Level":6,"Pos":32293},{"Code":"case 365:","type":"label","Level":6,"Pos":32344},{"Code":"goto IL_1e65;","type":"goto","Level":6,"Pos":32387},{"Code":"case 366:","type":"label","Level":6,"Pos":32438},{"Code":"goto IL_1e79;","type":"goto","Level":6,"Pos":32481},{"Code":"case 367:","type":"label","Level":6,"Pos":32532},{"Code":"goto IL_1e9f;","type":"goto","Level":6,"Pos":32575},{"Code":"case 368:","type":"label","Level":6,"Pos":32626},{"Code":"goto IL_1ec2;","type":"goto","Level":6,"Pos":32669},{"Code":"case 369:","type":"label","Level":6,"Pos":32720},{"Code":"goto IL_1ed5;","type":"goto","Level":6,"Pos":32763},{"Code":"case 370:","type":"label","Level":6,"Pos":32814},{"Code":"goto IL_1ee2;","type":"goto","Level":6,"Pos":32857},{"Code":"case 371:","type":"label","Level":6,"Pos":32908},{"Code":"goto IL_1ef0;","type":"goto","Level":6,"Pos":32951},{"Code":"case 372:","type":"label","Level":6,"Pos":33002},{"Code":"goto IL_1f02;","type":"goto","Level":6,"Pos":33045},{"Code":"case 374:","type":"label","Level":6,"Pos":33096},{"Code":"case 375:","type":"label","Level":6,"Pos":33139},{"Code":"goto IL_1f1d;","type":"goto","Level":6,"Pos":33182},{"Code":"case 376:","type":"label","Level":6,"Pos":33233},{"Code":"goto IL_1f34;","type":"goto","Level":6,"Pos":33276},{"Code":"case 377:","type":"label","Level":6,"Pos":33327},{"Code":"goto IL_1f96;","type":"goto","Level":6,"Pos":33370},{"Code":"case 379:","type":"label","Level":6,"Pos":33421},{"Code":"case 380:","type":"label","Level":6,"Pos":33464},{"Code":"goto IL_1fb2;","type":"goto","Level":6,"Pos":33507},{"Code":"case 381:","type":"label","Level":6,"Pos":33558},{"Code":"goto IL_1fbf;","type":"goto","Level":6,"Pos":33601},{"Code":"case 382:","type":"label","Level":6,"Pos":33652},{"Code":"goto IL_1fd7;","type":"goto","Level":6,"Pos":33695},{"Code":"case 383:","type":"label","Level":6,"Pos":33746},{"Code":"goto IL_1fe8;","type":"goto","Level":6,"Pos":33789},{"Code":"case 384:","type":"label","Level":6,"Pos":33840},{"Code":"goto IL_1ff5;","type":"goto","Level":6,"Pos":33883},{"Code":"case 385:","type":"label","Level":6,"Pos":33934},{"Code":"goto IL_201a;","type":"goto","Level":6,"Pos":33977},{"Code":"case 387:","type":"label","Level":6,"Pos":34028},{"Code":"goto IL_2035;","type":"goto","Level":6,"Pos":34071},{"Code":"case 388:","type":"label","Level":6,"Pos":34122},{"Code":"goto IL_203d;","type":"goto","Level":6,"Pos":34165},{"Code":"case 386:","type":"label","Level":6,"Pos":34216},{"Code":"case 389:","type":"label","Level":6,"Pos":34259},{"Code":"case 390:","type":"label","Level":6,"Pos":34302},{"Code":"goto IL_2055;","type":"goto","Level":6,"Pos":34345},{"Code":"case 391:","type":"label","Level":6,"Pos":34396},{"Code":"case 392:","type":"label","Level":6,"Pos":34439},{"Code":"goto IL_206d;","type":"goto","Level":6,"Pos":34482},{"Code":"case 393:","type":"label","Level":6,"Pos":34533},{"Code":"goto IL_2085;","type":"goto","Level":6,"Pos":34576},{"Code":"case 394:","type":"label","Level":6,"Pos":34627},{"Code":"goto IL_2096;","type":"goto","Level":6,"Pos":34670},{"Code":"case 395:","type":"label","Level":6,"Pos":34721},{"Code":"goto IL_20a3;","type":"goto","Level":6,"Pos":34764},{"Code":"case 396:","type":"label","Level":6,"Pos":34815},{"Code":"goto IL_20c8;","type":"goto","Level":6,"Pos":34858},{"Code":"case 398:","type":"label","Level":6,"Pos":34909},{"Code":"goto IL_20e4;","type":"goto","Level":6,"Pos":34952},{"Code":"case 399:","type":"label","Level":6,"Pos":35003},{"Code":"goto IL_20ec;","type":"goto","Level":6,"Pos":35046},{"Code":"case 397:","type":"label","Level":6,"Pos":35097},{"Code":"case 400:","type":"label","Level":6,"Pos":35140},{"Code":"case 401:","type":"label","Level":6,"Pos":35183},{"Code":"case 402:","type":"label","Level":6,"Pos":35226},{"Code":"goto IL_2106;","type":"goto","Level":6,"Pos":35269},{"Code":"case 403:","type":"label","Level":6,"Pos":35320},{"Code":"goto IL_2120;","type":"goto","Level":6,"Pos":35363},{"Code":"case 404:","type":"label","Level":6,"Pos":35414},{"Code":"case 405:","type":"label","Level":6,"Pos":35457},{"Code":"goto IL_213d;","type":"goto","Level":6,"Pos":35500},{"Code":"case 406:","type":"label","Level":6,"Pos":35551},{"Code":"goto IL_2154;","type":"goto","Level":6,"Pos":35594},{"Code":"case 407:","type":"label","Level":6,"Pos":35645},{"Code":"goto IL_216b;","type":"goto","Level":6,"Pos":35688},{"Code":"case 408:","type":"label","Level":6,"Pos":35739},{"Code":"goto IL_21c8;","type":"goto","Level":6,"Pos":35782},{"Code":"case 410:","type":"label","Level":6,"Pos":35833},{"Code":"case 411:","type":"label","Level":6,"Pos":35876},{"Code":"goto IL_21e4;","type":"goto","Level":6,"Pos":35919},{"Code":"case 412:","type":"label","Level":6,"Pos":35970},{"Code":"goto IL_2216;","type":"goto","Level":6,"Pos":36013},{"Code":"case 413:","type":"label","Level":6,"Pos":36064},{"Code":"case 414:","type":"label","Level":6,"Pos":36107},{"Code":"goto IL_2233;","type":"goto","Level":6,"Pos":36150},{"Code":"case 415:","type":"label","Level":6,"Pos":36201},{"Code":"goto IL_2240;","type":"goto","Level":6,"Pos":36244},{"Code":"case 416:","type":"label","Level":6,"Pos":36295},{"Code":"goto IL_224d;","type":"goto","Level":6,"Pos":36338},{"Code":"case 417:","type":"label","Level":6,"Pos":36389},{"Code":"goto IL_22b9;","type":"goto","Level":6,"Pos":36432},{"Code":"case 419:","type":"label","Level":6,"Pos":36483},{"Code":"case 420:","type":"label","Level":6,"Pos":36526},{"Code":"goto IL_22d8;","type":"goto","Level":6,"Pos":36569},{"Code":"case 422:","type":"label","Level":6,"Pos":36620},{"Code":"case 423:","type":"label","Level":6,"Pos":36663},{"Code":"goto IL_22fa;","type":"goto","Level":6,"Pos":36706},{"Code":"case 378:","type":"label","Level":6,"Pos":36757},{"Code":"case 409:","type":"label","Level":6,"Pos":36800},{"Code":"case 421:","type":"label","Level":6,"Pos":36843},{"Code":"case 424:","type":"label","Level":6,"Pos":36886},{"Code":"goto IL_2317;","type":"goto","Level":6,"Pos":36929},{"Code":"case 425:","type":"label","Level":6,"Pos":36980},{"Code":"goto IL_2322;","type":"goto","Level":6,"Pos":37023},{"Code":"case 426:","type":"label","Level":6,"Pos":37074},{"Code":"goto IL_238e;","type":"goto","Level":6,"Pos":37117},{"Code":"case 428:","type":"label","Level":6,"Pos":37168},{"Code":"case 429:","type":"label","Level":6,"Pos":37211},{"Code":"goto IL_23aa;","type":"goto","Level":6,"Pos":37254},{"Code":"case 430:","type":"label","Level":6,"Pos":37305},{"Code":"goto IL_23cf;","type":"goto","Level":6,"Pos":37348},{"Code":"case 431:","type":"label","Level":6,"Pos":37399},{"Code":"goto IL_2407;","type":"goto","Level":6,"Pos":37442},{"Code":"case 373:","type":"label","Level":6,"Pos":37493},{"Code":"case 418:","type":"label","Level":6,"Pos":37536},{"Code":"case 427:","type":"label","Level":6,"Pos":37579},{"Code":"case 432:","type":"label","Level":6,"Pos":37622},{"Code":"case 433:","type":"label","Level":6,"Pos":37665},{"Code":"goto IL_241f;","type":"goto","Level":6,"Pos":37708},{"Code":"case 434:","type":"label","Level":6,"Pos":37759},{"Code":"goto IL_242a;","type":"goto","Level":6,"Pos":37802},{"Code":"case 435:","type":"label","Level":6,"Pos":37853},{"Code":"goto IL_2451;","type":"goto","Level":6,"Pos":37896},{"Code":"case 438:","type":"label","Level":6,"Pos":37947},{"Code":"case 439:","type":"label","Level":6,"Pos":37990},{"Code":"goto IL_2496;","type":"goto","Level":6,"Pos":38033},{"Code":"case 440:","type":"label","Level":6,"Pos":38084},{"Code":"goto IL_24ae;","type":"goto","Level":6,"Pos":38127},{"Code":"case 441:","type":"label","Level":6,"Pos":38178},{"Code":"goto IL_24cc;","type":"goto","Level":6,"Pos":38221},{"Code":"case 442:","type":"label","Level":6,"Pos":38272},{"Code":"goto IL_24f0;","type":"goto","Level":6,"Pos":38315},{"Code":"case 443:","type":"label","Level":6,"Pos":38366},{"Code":"goto IL_2514;","type":"goto","Level":6,"Pos":38409},{"Code":"case 444:","type":"label","Level":6,"Pos":38460},{"Code":"goto IL_2522;","type":"goto","Level":6,"Pos":38503},{"Code":"case 445:","type":"label","Level":6,"Pos":38554},{"Code":"goto IL_2541;","type":"goto","Level":6,"Pos":38597},{"Code":"case 446:","type":"label","Level":6,"Pos":38648},{"Code":"goto IL_2564;","type":"goto","Level":6,"Pos":38691},{"Code":"case 447:","type":"label","Level":6,"Pos":38742},{"Code":"goto IL_256e;","type":"goto","Level":6,"Pos":38785},{"Code":"case 449:","type":"label","Level":6,"Pos":38836},{"Code":"case 450:","type":"label","Level":6,"Pos":38879},{"Code":"goto IL_2589;","type":"goto","Level":6,"Pos":38922},{"Code":"case 451:","type":"label","Level":6,"Pos":38973},{"Code":"goto IL_25a0;","type":"goto","Level":6,"Pos":39016},{"Code":"case 452:","type":"label","Level":6,"Pos":39067},{"Code":"goto IL_25b3;","type":"goto","Level":6,"Pos":39110},{"Code":"case 453:","type":"label","Level":6,"Pos":39161},{"Code":"goto IL_25da;","type":"goto","Level":6,"Pos":39204},{"Code":"case 455:","type":"label","Level":6,"Pos":39255},{"Code":"case 456:","type":"label","Level":6,"Pos":39298},{"Code":"goto IL_25f2;","type":"goto","Level":6,"Pos":39341},{"Code":"case 457:","type":"label","Level":6,"Pos":39392},{"Code":"goto IL_2625;","type":"goto","Level":6,"Pos":39435},{"Code":"case 459:","type":"label","Level":6,"Pos":39486},{"Code":"case 460:","type":"label","Level":6,"Pos":39529},{"Code":"goto IL_2666;","type":"goto","Level":6,"Pos":39572},{"Code":"case 461:","type":"label","Level":6,"Pos":39623},{"Code":"goto IL_267a;","type":"goto","Level":6,"Pos":39666},{"Code":"case 462:","type":"label","Level":6,"Pos":39717},{"Code":"goto IL_268e;","type":"goto","Level":6,"Pos":39760},{"Code":"case 463:","type":"label","Level":6,"Pos":39811},{"Code":"goto IL_26a2;","type":"goto","Level":6,"Pos":39854},{"Code":"case 464:","type":"label","Level":6,"Pos":39905},{"Code":"goto IL_26c1;","type":"goto","Level":6,"Pos":39948},{"Code":"case 465:","type":"label","Level":6,"Pos":39999},{"Code":"goto IL_26e3;","type":"goto","Level":6,"Pos":40042},{"Code":"case 466:","type":"label","Level":6,"Pos":40093},{"Code":"goto IL_26f6;","type":"goto","Level":6,"Pos":40136},{"Code":"case 467:","type":"label","Level":6,"Pos":40187},{"Code":"goto IL_2703;","type":"goto","Level":6,"Pos":40230},{"Code":"case 468:","type":"label","Level":6,"Pos":40281},{"Code":"goto IL_2715;","type":"goto","Level":6,"Pos":40324},{"Code":"case 470:","type":"label","Level":6,"Pos":40375},{"Code":"case 471:","type":"label","Level":6,"Pos":40418},{"Code":"goto IL_2730;","type":"goto","Level":6,"Pos":40461},{"Code":"case 472:","type":"label","Level":6,"Pos":40512},{"Code":"goto IL_2792;","type":"goto","Level":6,"Pos":40555},{"Code":"case 474:","type":"label","Level":6,"Pos":40606},{"Code":"case 475:","type":"label","Level":6,"Pos":40649},{"Code":"goto IL_27ae;","type":"goto","Level":6,"Pos":40692},{"Code":"case 476:","type":"label","Level":6,"Pos":40743},{"Code":"goto IL_27bb;","type":"goto","Level":6,"Pos":40786},{"Code":"case 477:","type":"label","Level":6,"Pos":40837},{"Code":"goto IL_27f5;","type":"goto","Level":6,"Pos":40880},{"Code":"case 478:","type":"label","Level":6,"Pos":40931},{"Code":"goto IL_2803;","type":"goto","Level":6,"Pos":40974},{"Code":"case 479:","type":"label","Level":6,"Pos":41025},{"Code":"goto IL_2811;","type":"goto","Level":6,"Pos":41068},{"Code":"case 480:","type":"label","Level":6,"Pos":41119},{"Code":"goto IL_282d;","type":"goto","Level":6,"Pos":41162},{"Code":"case 481:","type":"label","Level":6,"Pos":41213},{"Code":"goto IL_2849;","type":"goto","Level":6,"Pos":41256},{"Code":"case 482:","type":"label","Level":6,"Pos":41307},{"Code":"goto IL_286e;","type":"goto","Level":6,"Pos":41350},{"Code":"case 483:","type":"label","Level":6,"Pos":41401},{"Code":"goto IL_287b;","type":"goto","Level":6,"Pos":41444},{"Code":"case 484:","type":"label","Level":6,"Pos":41495},{"Code":"goto IL_2889;","type":"goto","Level":6,"Pos":41538},{"Code":"case 486:","type":"label","Level":6,"Pos":41589},{"Code":"case 487:","type":"label","Level":6,"Pos":41632},{"Code":"goto IL_28b9;","type":"goto","Level":6,"Pos":41675},{"Code":"case 489:","type":"label","Level":6,"Pos":41726},{"Code":"case 490:","type":"label","Level":6,"Pos":41769},{"Code":"goto IL_28e9;","type":"goto","Level":6,"Pos":41812},{"Code":"case 492:","type":"label","Level":6,"Pos":41863},{"Code":"case 493:","type":"label","Level":6,"Pos":41906},{"Code":"goto IL_2919;","type":"goto","Level":6,"Pos":41949},{"Code":"case 495:","type":"label","Level":6,"Pos":42000},{"Code":"case 496:","type":"label","Level":6,"Pos":42043},{"Code":"goto IL_2949;","type":"goto","Level":6,"Pos":42086},{"Code":"case 497:","type":"label","Level":6,"Pos":42137},{"Code":"goto IL_2956;","type":"goto","Level":6,"Pos":42180},{"Code":"case 498:","type":"label","Level":6,"Pos":42231},{"Code":"goto IL_296d;","type":"goto","Level":6,"Pos":42274},{"Code":"case 499:","type":"label","Level":6,"Pos":42325},{"Code":"goto IL_29d0;","type":"goto","Level":6,"Pos":42368},{"Code":"case 501:","type":"label","Level":6,"Pos":42419},{"Code":"case 502:","type":"label","Level":6,"Pos":42462},{"Code":"goto IL_29ec;","type":"goto","Level":6,"Pos":42505},{"Code":"case 504:","type":"label","Level":6,"Pos":42556},{"Code":"case 506:","type":"label","Level":6,"Pos":42599},{"Code":"goto IL_2a16;","type":"goto","Level":6,"Pos":42642},{"Code":"case 507:","type":"label","Level":6,"Pos":42693},{"Code":"goto IL_2a48;","type":"goto","Level":6,"Pos":42736},{"Code":"case 508:","type":"label","Level":6,"Pos":42787},{"Code":"case 509:","type":"label","Level":6,"Pos":42830},{"Code":"goto IL_2a65;","type":"goto","Level":6,"Pos":42873},{"Code":"case 511:","type":"label","Level":6,"Pos":42924},{"Code":"case 512:","type":"label","Level":6,"Pos":42967},{"Code":"goto IL_2a9c;","type":"goto","Level":6,"Pos":43010},{"Code":"case 514:","type":"label","Level":6,"Pos":43061},{"Code":"case 515:","type":"label","Level":6,"Pos":43104},{"Code":"goto IL_2ad3;","type":"goto","Level":6,"Pos":43147},{"Code":"case 516:","type":"label","Level":6,"Pos":43198},{"Code":"goto IL_2b0e;","type":"goto","Level":6,"Pos":43241},{"Code":"case 519:","type":"label","Level":6,"Pos":43292},{"Code":"case 520:","type":"label","Level":6,"Pos":43335},{"Code":"goto IL_2b31;","type":"goto","Level":6,"Pos":43378},{"Code":"case 521:","type":"label","Level":6,"Pos":43429},{"Code":"goto IL_2b63;","type":"goto","Level":6,"Pos":43472},{"Code":"case 522:","type":"label","Level":6,"Pos":43523},{"Code":"case 523:","type":"label","Level":6,"Pos":43566},{"Code":"goto IL_2b80;","type":"goto","Level":6,"Pos":43609},{"Code":"case 525:","type":"label","Level":6,"Pos":43660},{"Code":"case 526:","type":"label","Level":6,"Pos":43703},{"Code":"goto IL_2bb7;","type":"goto","Level":6,"Pos":43746},{"Code":"case 528:","type":"label","Level":6,"Pos":43797},{"Code":"case 529:","type":"label","Level":6,"Pos":43840},{"Code":"goto IL_2bee;","type":"goto","Level":6,"Pos":43883},{"Code":"case 530:","type":"label","Level":6,"Pos":43934},{"Code":"goto IL_2c29;","type":"goto","Level":6,"Pos":43977},{"Code":"case 533:","type":"label","Level":6,"Pos":44028},{"Code":"case 534:","type":"label","Level":6,"Pos":44071},{"Code":"goto IL_2c4c;","type":"goto","Level":6,"Pos":44114},{"Code":"case 535:","type":"label","Level":6,"Pos":44165},{"Code":"goto IL_2c7e;","type":"goto","Level":6,"Pos":44208},{"Code":"case 536:","type":"label","Level":6,"Pos":44259},{"Code":"case 537:","type":"label","Level":6,"Pos":44302},{"Code":"goto IL_2c9b;","type":"goto","Level":6,"Pos":44345},{"Code":"case 539:","type":"label","Level":6,"Pos":44396},{"Code":"case 540:","type":"label","Level":6,"Pos":44439},{"Code":"goto IL_2cd2;","type":"goto","Level":6,"Pos":44482},{"Code":"case 542:","type":"label","Level":6,"Pos":44533},{"Code":"case 543:","type":"label","Level":6,"Pos":44576},{"Code":"goto IL_2d09;","type":"goto","Level":6,"Pos":44619},{"Code":"case 544:","type":"label","Level":6,"Pos":44670},{"Code":"goto IL_2d44;","type":"goto","Level":6,"Pos":44713},{"Code":"case 500:","type":"label","Level":6,"Pos":44764},{"Code":"case 503:","type":"label","Level":6,"Pos":44807},{"Code":"case 517:","type":"label","Level":6,"Pos":44850},{"Code":"case 518:","type":"label","Level":6,"Pos":44893},{"Code":"case 531:","type":"label","Level":6,"Pos":44936},{"Code":"case 532:","type":"label","Level":6,"Pos":44979},{"Code":"case 545:","type":"label","Level":6,"Pos":45022},{"Code":"case 546:","type":"label","Level":6,"Pos":45065},{"Code":"case 547:","type":"label","Level":6,"Pos":45108},{"Code":"goto IL_2d63;","type":"goto","Level":6,"Pos":45151},{"Code":"case 548:","type":"label","Level":6,"Pos":45202},{"Code":"goto IL_2d6e;","type":"goto","Level":6,"Pos":45245},{"Code":"case 550:","type":"label","Level":6,"Pos":45296},{"Code":"num = 550;","type":"operation","Level":6,"Pos":45339},{"Code":"Modul1.PersInArbsp = Modul1.PersInArb;","type":"operation","Level":6,"Pos":45387},{"Code":"goto case 551;","type":"goto","Level":6,"Pos":45463},{"Code":"case 551:","type":"label","Level":6,"Pos":45515},{"Code":"num = 551;","type":"operation","Level":6,"Pos":45558},{"Code":"Modul1.Kenn = 1f;","type":"operation","Level":6,"Pos":45606},{"Code":"goto case 552;","type":"goto","Level":6,"Pos":45661},{"Code":"case 552:","type":"label","Level":6,"Pos":45713},{"Code":"num = 552;","type":"operation","Level":6,"Pos":45756},{"Code":"if","type":"operation","Level":6,"Pos":45804},{"Code":"((DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.Sex)].AsString() ==","type":"operation","Level":6,"Pos":45844},{"Code":"\u0022F\u0022","type":"string","Level":6,"Pos":45929},{"Code":"))","type":"operation","Level":6,"Pos":45932},{"Code":"{","type":"block","Level":7,"Pos":45972},{"Code":"goto case 553;","type":"goto","Level":7,"Pos":45973},{"Code":"}","type":"block","Level":7,"Pos":46067},{"Code":"goto case 554;","type":"goto","Level":6,"Pos":46068},{"Code":"case 553:","type":"label","Level":6,"Pos":46120},{"Code":"num = 553;","type":"operation","Level":6,"Pos":46163},{"Code":"Modul1.Kenn = 2f;","type":"operation","Level":6,"Pos":46211},{"Code":"goto case 554;","type":"goto","Level":6,"Pos":46266},{"Code":"case 554:","type":"label","Level":6,"Pos":46318},{"Code":"case 555:","type":"label","Level":6,"Pos":46361},{"Code":"num = 555;","type":"operation","Level":6,"Pos":46404},{"Code":"DataModul.DB_LinkTable.Index = nameof(DataModul.LinkIndex.ElSu);","type":"operation","Level":6,"Pos":46452},{"Code":"goto case 556;","type":"goto","Level":6,"Pos":46554},{"Code":"case 556:","type":"label","Level":6,"Pos":46606},{"Code":"num = 556;","type":"operation","Level":6,"Pos":46649},{"Code":"DataModul.DB_LinkTable.Seek(","type":"operation","Level":6,"Pos":46697},{"Code":"\u0022=\u0022","type":"string","Level":6,"Pos":46763},{"Code":", Modul1.PersInArb.AsString(), Modul1.Kenn);","type":"operation","Level":6,"Pos":46766},{"Code":"goto case 557;","type":"goto","Level":6,"Pos":46810},{"Code":"case 557:","type":"label","Level":6,"Pos":46862},{"Code":"num = 557;","type":"operation","Level":6,"Pos":46905},{"Code":"if","type":"operation","Level":6,"Pos":46953},{"Code":"(!DataModul.DB_LinkTable.NoMatch)","type":"operation","Level":6,"Pos":46993},{"Code":"{","type":"block","Level":7,"Pos":47065},{"Code":"goto case 559;","type":"goto","Level":7,"Pos":47066},{"Code":"}","type":"block","Level":7,"Pos":47160},{"Code":"goto IL_3320;","type":"goto","Level":6,"Pos":47161},{"Code":"case 559:","type":"label","Level":6,"Pos":47212},{"Code":"num = 559;","type":"operation","Level":6,"Pos":47255},{"Code":"goto case 560;","type":"goto","Level":6,"Pos":47303},{"Code":"case 560:","type":"label","Level":6,"Pos":47355},{"Code":"num = 560;","type":"operation","Level":6,"Pos":47398},{"Code":"Modul1.FamInArb = DataModul.DB_LinkTable.Fields[nameof(DataModul.LinkFields.FamNr)].Value.AsInt();","type":"operation","Level":6,"Pos":47446},{"Code":"goto case 561;","type":"goto","Level":6,"Pos":47582},{"Code":"case 561:","type":"label","Level":6,"Pos":47634},{"Code":"num = 561;","type":"operation","Level":6,"Pos":47677},{"Code":"MainProject.Forms.Familie.Famles(Modul1.FamInArb);","type":"operation","Level":6,"Pos":47725},{"Code":"goto case 562;","type":"goto","Level":6,"Pos":47813},{"Code":"case 562:","type":"label","Level":6,"Pos":47865},{"Code":"num = 562;","type":"operation","Level":6,"Pos":47908},{"Code":"if","type":"operation","Level":6,"Pos":47956},{"Code":"(Modul1.Kenn == 1f)","type":"operation","Level":6,"Pos":47996},{"Code":"{","type":"block","Level":7,"Pos":48054},{"Code":"goto case 563;","type":"goto","Level":7,"Pos":48055},{"Code":"}","type":"block","Level":7,"Pos":48149},{"Code":"goto case 565;","type":"goto","Level":6,"Pos":48150},{"Code":"case 563:","type":"label","Level":6,"Pos":48202},{"Code":"num = 563;","type":"operation","Level":6,"Pos":48245},{"Code":"Modul1.PersInArb = Modul1.Family.Frau;","type":"operation","Level":6,"Pos":48293},{"Code":"goto case 564;","type":"goto","Level":6,"Pos":48369},{"Code":"case 565:","type":"label","Level":6,"Pos":48421},{"Code":"num = 565;","type":"operation","Level":6,"Pos":48464},{"Code":"if","type":"operation","Level":6,"Pos":48512},{"Code":"(Modul1.Kenn == 2f)","type":"operation","Level":6,"Pos":48552},{"Code":"{","type":"block","Level":7,"Pos":48610},{"Code":"goto case 566;","type":"goto","Level":7,"Pos":48611},{"Code":"}","type":"block","Level":7,"Pos":48705},{"Code":"goto case 564;","type":"goto","Level":6,"Pos":48706},{"Code":"case 566:","type":"label","Level":6,"Pos":48758},{"Code":"num = 566;","type":"operation","Level":6,"Pos":48801},{"Code":"Modul1.PersInArb = Modul1.Family.Mann;","type":"operation","Level":6,"Pos":48849},{"Code":"goto case 564;","type":"goto","Level":6,"Pos":48925},{"Code":"case 564:","type":"label","Level":6,"Pos":48977},{"Code":"case 567:","type":"label","Level":6,"Pos":49020},{"Code":"case 568:","type":"label","Level":6,"Pos":49063},{"Code":"num = 568;","type":"operation","Level":6,"Pos":49106},{"Code":"DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.ArtNr);","type":"operation","Level":6,"Pos":49154},{"Code":"goto case 569;","type":"goto","Level":6,"Pos":49259},{"Code":"case 569:","type":"label","Level":6,"Pos":49311},{"Code":"num = 569;","type":"operation","Level":6,"Pos":49354},{"Code":"Modul1.I = 101;","type":"operation","Level":6,"Pos":49402},{"Code":"goto case 570;","type":"goto","Level":6,"Pos":49455},{"Code":"case 570:","type":"label","Level":6,"Pos":49507},{"Code":"num = 570;","type":"operation","Level":6,"Pos":49550},{"Code":"Modul1.Ubg = Modul1.I;","type":"operation","Level":6,"Pos":49598},{"Code":"goto case 571;","type":"goto","Level":6,"Pos":49658},{"Code":"case 571:","type":"label","Level":6,"Pos":49710},{"Code":"num = 571;","type":"operation","Level":6,"Pos":49753},{"Code":"DataModul.DB_EventTable.Seek(","type":"operation","Level":6,"Pos":49801},{"Code":"\u0022=\u0022","type":"string","Level":6,"Pos":49868},{"Code":", Modul1.Ubg.AsString(), Modul1.PersInArb.AsString(),","type":"operation","Level":6,"Pos":49871},{"Code":"\u00220\u0022","type":"string","Level":6,"Pos":49925},{"Code":");","type":"operation","Level":6,"Pos":49928},{"Code":"goto case 572;","type":"goto","Level":6,"Pos":49930},{"Code":"case 572:","type":"label","Level":6,"Pos":49982},{"Code":"num = 572;","type":"operation","Level":6,"Pos":50025},{"Code":"if","type":"operation","Level":6,"Pos":50073},{"Code":"(!DataModul.DB_EventTable.NoMatch)","type":"operation","Level":6,"Pos":50113},{"Code":"{","type":"block","Level":7,"Pos":50186},{"Code":"goto case 574;","type":"goto","Level":7,"Pos":50187},{"Code":"}","type":"block","Level":7,"Pos":50281},{"Code":"goto case 573;","type":"goto","Level":6,"Pos":50282},{"Code":"case 574:","type":"label","Level":6,"Pos":50334},{"Code":"case 575:","type":"label","Level":6,"Pos":50377},{"Code":"num = 575;","type":"operation","Level":6,"Pos":50420},{"Code":"if","type":"operation","Level":6,"Pos":50468},{"Code":"((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() \u003E0))","type":"operation","Level":6,"Pos":50508},{"Code":"{","type":"block","Level":7,"Pos":50630},{"Code":"goto case 576;","type":"goto","Level":7,"Pos":50631},{"Code":"}","type":"block","Level":7,"Pos":50725},{"Code":"goto case 573;","type":"goto","Level":6,"Pos":50726},{"Code":"case 576:","type":"label","Level":6,"Pos":50778},{"Code":"num = 576;","type":"operation","Level":6,"Pos":50821},{"Code":"if","type":"operation","Level":6,"Pos":50869},{"Code":"(Conversions.ToDouble(Strings.Trim(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsString())) \u003E 0.0)","type":"operation","Level":6,"Pos":50909},{"Code":"{","type":"block","Level":7,"Pos":51071},{"Code":"goto case 577;","type":"goto","Level":7,"Pos":51072},{"Code":"}","type":"block","Level":7,"Pos":51166},{"Code":"goto case 573;","type":"goto","Level":6,"Pos":51167},{"Code":"case 577:","type":"label","Level":6,"Pos":51219},{"Code":"num = 577;","type":"operation","Level":6,"Pos":51262},{"Code":"transdat = DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].Value.AsInt();","type":"operation","Level":6,"Pos":51310},{"Code":"goto case 578;","type":"goto","Level":6,"Pos":51442},{"Code":"case 578:","type":"label","Level":6,"Pos":51494},{"Code":"num = 578;","type":"operation","Level":6,"Pos":51537},{"Code":"neuedat();","type":"operation","Level":6,"Pos":51585},{"Code":"goto IL_3395;","type":"goto","Level":6,"Pos":51633},{"Code":"case 573:","type":"label","Level":6,"Pos":51684},{"Code":"case 580:","type":"label","Level":6,"Pos":51727},{"Code":"case 581:","type":"label","Level":6,"Pos":51770},{"Code":"case 582:","type":"label","Level":6,"Pos":51813},{"Code":"num = 582;","type":"operation","Level":6,"Pos":51856},{"Code":"lErl = 6;","type":"operation","Level":6,"Pos":51904},{"Code":"goto case 583;","type":"goto","Level":6,"Pos":51951},{"Code":"case 583:","type":"label","Level":6,"Pos":52003},{"Code":"{","type":"block","Level":7,"Pos":52084},{"Code":"num = 583;","type":"operation","Level":7,"Pos":52085},{"Code":"Modul1.I\u002B\u002B;","type":"operation","Level":7,"Pos":52137},{"Code":"int i = Modul1.I;","type":"operation","Level":7,"Pos":52190},{"Code":"num5 = 102;","type":"operation","Level":7,"Pos":52249},{"Code":"if","type":"operation","Level":7,"Pos":52302},{"Code":"(i \u003C= num5)","type":"operation","Level":7,"Pos":52346},{"Code":"{","type":"block","Level":8,"Pos":52400},{"Code":"goto case 570;","type":"goto","Level":8,"Pos":52401},{"Code":"}","type":"block","Level":8,"Pos":52503},{"Code":"goto case 584;","type":"goto","Level":7,"Pos":52504},{"Code":"}","type":"block","Level":7,"Pos":52598},{"Code":"case 584:","type":"label","Level":6,"Pos":52599},{"Code":"num = 584;","type":"operation","Level":6,"Pos":52642},{"Code":"num6 = 30000000;","type":"operation","Level":6,"Pos":52690},{"Code":"goto case 585;","type":"goto","Level":6,"Pos":52744},{"Code":"case 585:","type":"label","Level":6,"Pos":52796},{"Code":"num = 585;","type":"operation","Level":6,"Pos":52839},{"Code":"this.A = 1;","type":"operation","Level":6,"Pos":52887},{"Code":"goto case 586;","type":"goto","Level":6,"Pos":52936},{"Code":"case 586:","type":"label","Level":6,"Pos":52988},{"Code":"num = 586;","type":"operation","Level":6,"Pos":53031},{"Code":"if","type":"operation","Level":6,"Pos":53079},{"Code":"(Modul1.Family.Kind[this.A] \u003E 0)","type":"operation","Level":6,"Pos":53119},{"Code":"{","type":"block","Level":7,"Pos":53190},{"Code":"goto case 587;","type":"goto","Level":7,"Pos":53191},{"Code":"}","type":"block","Level":7,"Pos":53285},{"Code":"goto case 598;","type":"goto","Level":6,"Pos":53286},{"Code":"case 587:","type":"label","Level":6,"Pos":53338},{"Code":"num = 587;","type":"operation","Level":6,"Pos":53381},{"Code":"Modul1.I = 101;","type":"operation","Level":6,"Pos":53429},{"Code":"goto case 588;","type":"goto","Level":6,"Pos":53482},{"Code":"case 588:","type":"label","Level":6,"Pos":53534},{"Code":"num = 588;","type":"operation","Level":6,"Pos":53577},{"Code":"DataModul.DB_EventTable.Seek(","type":"operation","Level":6,"Pos":53625},{"Code":"\u0022=\u0022","type":"string","Level":6,"Pos":53692},{"Code":", Modul1.I.AsString(), Modul1.Family.Kind[this.A].AsString(),","type":"operation","Level":6,"Pos":53695},{"Code":"\u00220\u0022","type":"string","Level":6,"Pos":53757},{"Code":");","type":"operation","Level":6,"Pos":53760},{"Code":"goto case 589;","type":"goto","Level":6,"Pos":53762},{"Code":"case 589:","type":"label","Level":6,"Pos":53814},{"Code":"num = 589;","type":"operation","Level":6,"Pos":53857},{"Code":"if","type":"operation","Level":6,"Pos":53905},{"Code":"(!DataModul.DB_EventTable.NoMatch)","type":"operation","Level":6,"Pos":53945},{"Code":"{","type":"block","Level":7,"Pos":54018},{"Code":"goto case 590;","type":"goto","Level":7,"Pos":54019},{"Code":"}","type":"block","Level":7,"Pos":54113},{"Code":"goto case 593;","type":"goto","Level":6,"Pos":54114},{"Code":"case 590:","type":"label","Level":6,"Pos":54166},{"Code":"num = 590;","type":"operation","Level":6,"Pos":54209},{"Code":"if","type":"operation","Level":6,"Pos":54257},{"Code":"(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].Value) \u003E 0.0)","type":"operation","Level":6,"Pos":54297},{"Code":"{","type":"block","Level":7,"Pos":54434},{"Code":"goto case 591;","type":"goto","Level":7,"Pos":54435},{"Code":"}","type":"block","Level":7,"Pos":54529},{"Code":"goto case 593;","type":"goto","Level":6,"Pos":54530},{"Code":"case 591:","type":"label","Level":6,"Pos":54582},{"Code":"num = 591;","type":"operation","Level":6,"Pos":54625},{"Code":"if","type":"operation","Level":6,"Pos":54673},{"Code":"(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].Value) \u003C num6)","type":"operation","Level":6,"Pos":54713},{"Code":"{","type":"block","Level":7,"Pos":54851},{"Code":"goto case 592;","type":"goto","Level":7,"Pos":54852},{"Code":"}","type":"block","Level":7,"Pos":54946},{"Code":"goto case 593;","type":"goto","Level":6,"Pos":54947},{"Code":"case 592:","type":"label","Level":6,"Pos":54999},{"Code":"num = 592;","type":"operation","Level":6,"Pos":55042},{"Code":"num6 = (int)Math.Round(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].Value));","type":"operation","Level":6,"Pos":55090},{"Code":"goto case 593;","type":"goto","Level":6,"Pos":55243},{"Code":"case 593:","type":"label","Level":6,"Pos":55295},{"Code":"case 594:","type":"label","Level":6,"Pos":55338},{"Code":"case 595:","type":"label","Level":6,"Pos":55381},{"Code":"case 596:","type":"label","Level":6,"Pos":55424},{"Code":"{","type":"block","Level":7,"Pos":55505},{"Code":"num = 596;","type":"operation","Level":7,"Pos":55506},{"Code":"Modul1.I\u002B\u002B;","type":"operation","Level":7,"Pos":55558},{"Code":"int i2 = Modul1.I;","type":"operation","Level":7,"Pos":55611},{"Code":"num5 = 102;","type":"operation","Level":7,"Pos":55671},{"Code":"if","type":"operation","Level":7,"Pos":55724},{"Code":"(i2 \u003C= num5)","type":"operation","Level":7,"Pos":55768},{"Code":"{","type":"block","Level":8,"Pos":55823},{"Code":"goto case 588;","type":"goto","Level":8,"Pos":55824},{"Code":"}","type":"block","Level":8,"Pos":55926},{"Code":"goto case 597;","type":"goto","Level":7,"Pos":55927},{"Code":"}","type":"block","Level":7,"Pos":56021},{"Code":"case 598:","type":"label","Level":6,"Pos":56022},{"Code":"num = 598;","type":"operation","Level":6,"Pos":56065},{"Code":"goto case 599;","type":"goto","Level":6,"Pos":56113},{"Code":"case 597:","type":"label","Level":6,"Pos":56165},{"Code":"case 600:","type":"label","Level":6,"Pos":56208},{"Code":"case 601:","type":"label","Level":6,"Pos":56251},{"Code":"{","type":"block","Level":7,"Pos":56332},{"Code":"num = 601;","type":"operation","Level":7,"Pos":56333},{"Code":"this.A\u002B\u002B;","type":"operation","Level":7,"Pos":56385},{"Code":"int a = this.A;","type":"operation","Level":7,"Pos":56436},{"Code":"num5 = 99;","type":"operation","Level":7,"Pos":56493},{"Code":"if","type":"operation","Level":7,"Pos":56545},{"Code":"(a \u003C= num5)","type":"operation","Level":7,"Pos":56589},{"Code":"{","type":"block","Level":8,"Pos":56643},{"Code":"goto case 586;","type":"goto","Level":8,"Pos":56644},{"Code":"}","type":"block","Level":8,"Pos":56746},{"Code":"goto case 599;","type":"goto","Level":7,"Pos":56747},{"Code":"}","type":"block","Level":7,"Pos":56841},{"Code":"case 599:","type":"label","Level":6,"Pos":56842},{"Code":"case 602:","type":"label","Level":6,"Pos":56885},{"Code":"num = 602;","type":"operation","Level":6,"Pos":56928},{"Code":"if","type":"operation","Level":6,"Pos":56976},{"Code":"(num6 \u003C 30000000)","type":"operation","Level":6,"Pos":57016},{"Code":"{","type":"block","Level":7,"Pos":57072},{"Code":"goto case 603;","type":"goto","Level":7,"Pos":57073},{"Code":"}","type":"block","Level":7,"Pos":57167},{"Code":"goto IL_32fc;","type":"goto","Level":6,"Pos":57168},{"Code":"case 603:","type":"label","Level":6,"Pos":57219},{"Code":"num = 603;","type":"operation","Level":6,"Pos":57262},{"Code":"transdat = Conversions.ToInteger(Conversion.Str(Conversions.ToDouble((num6).AsString().Left( 4)) - 25.0) \u002B","type":"operation","Level":6,"Pos":57310},{"Code":"\u00220000\u0022","type":"string","Level":6,"Pos":57455},{"Code":");","type":"operation","Level":6,"Pos":57461},{"Code":"goto case 604;","type":"goto","Level":6,"Pos":57463},{"Code":"case 604:","type":"label","Level":6,"Pos":57515},{"Code":"num = 604;","type":"operation","Level":6,"Pos":57558},{"Code":"neuedat();","type":"operation","Level":6,"Pos":57606},{"Code":"goto IL_32fc;","type":"goto","Level":6,"Pos":57654},{"Code":"case 549:","type":"label","Level":6,"Pos":57705},{"Code":"case 605:","type":"label","Level":6,"Pos":57748},{"Code":"case 606:","type":"label","Level":6,"Pos":57791},{"Code":"goto IL_32fc;","type":"goto","Level":6,"Pos":57834},{"Code":"case 607:","type":"label","Level":6,"Pos":57885},{"Code":"goto IL_3307;","type":"goto","Level":6,"Pos":57928},{"Code":"case 558:","type":"label","Level":6,"Pos":57979},{"Code":"case 608:","type":"label","Level":6,"Pos":58022},{"Code":"case 609:","type":"label","Level":6,"Pos":58065},{"Code":"goto IL_3320;","type":"goto","Level":6,"Pos":58108},{"Code":"case 610:","type":"label","Level":6,"Pos":58159},{"Code":"goto IL_3348;","type":"goto","Level":6,"Pos":58202},{"Code":"case 611:","type":"label","Level":6,"Pos":58253},{"Code":"case 612:","type":"label","Level":6,"Pos":58296},{"Code":"goto IL_3383;","type":"goto","Level":6,"Pos":58339},{"Code":"case 473:","type":"label","Level":6,"Pos":58390},{"Code":"case 485:","type":"label","Level":6,"Pos":58433},{"Code":"case 488:","type":"label","Level":6,"Pos":58476},{"Code":"case 491:","type":"label","Level":6,"Pos":58519},{"Code":"case 494:","type":"label","Level":6,"Pos":58562},{"Code":"case 510:","type":"label","Level":6,"Pos":58605},{"Code":"case 513:","type":"label","Level":6,"Pos":58648},{"Code":"case 524:","type":"label","Level":6,"Pos":58691},{"Code":"case 527:","type":"label","Level":6,"Pos":58734},{"Code":"case 538:","type":"label","Level":6,"Pos":58777},{"Code":"case 541:","type":"label","Level":6,"Pos":58820},{"Code":"case 579:","type":"label","Level":6,"Pos":58863},{"Code":"case 613:","type":"label","Level":6,"Pos":58906},{"Code":"goto IL_3395;","type":"goto","Level":6,"Pos":58949},{"Code":"case 614:","type":"label","Level":6,"Pos":59000},{"Code":"goto IL_33a0;","type":"goto","Level":6,"Pos":59043},{"Code":"case 615:","type":"label","Level":6,"Pos":59094},{"Code":"goto IL_33c7;","type":"goto","Level":6,"Pos":59137},{"Code":"case 617:","type":"label","Level":6,"Pos":59188},{"Code":"case 618:","type":"label","Level":6,"Pos":59231},{"Code":"goto IL_3406;","type":"goto","Level":6,"Pos":59274},{"Code":"case 619:","type":"label","Level":6,"Pos":59325},{"Code":"goto IL_341e;","type":"goto","Level":6,"Pos":59368},{"Code":"case 620:","type":"label","Level":6,"Pos":59419},{"Code":"goto IL_343f;","type":"goto","Level":6,"Pos":59462},{"Code":"case 621:","type":"label","Level":6,"Pos":59513},{"Code":"goto IL_345d;","type":"goto","Level":6,"Pos":59556},{"Code":"case 622:","type":"label","Level":6,"Pos":59607},{"Code":"goto IL_3467;","type":"goto","Level":6,"Pos":59650},{"Code":"case 624:","type":"label","Level":6,"Pos":59701},{"Code":"case 625:","type":"label","Level":6,"Pos":59744},{"Code":"goto IL_3482;","type":"goto","Level":6,"Pos":59787},{"Code":"case 626:","type":"label","Level":6,"Pos":59838},{"Code":"goto IL_3499;","type":"goto","Level":6,"Pos":59881},{"Code":"case 627:","type":"label","Level":6,"Pos":59932},{"Code":"goto IL_34ac;","type":"goto","Level":6,"Pos":59975},{"Code":"case 628:","type":"label","Level":6,"Pos":60026},{"Code":"goto IL_34d3;","type":"goto","Level":6,"Pos":60069},{"Code":"case 630:","type":"label","Level":6,"Pos":60120},{"Code":"case 631:","type":"label","Level":6,"Pos":60163},{"Code":"goto IL_34eb;","type":"goto","Level":6,"Pos":60206},{"Code":"case 632:","type":"label","Level":6,"Pos":60257},{"Code":"goto IL_351e;","type":"goto","Level":6,"Pos":60300},{"Code":"case 634:","type":"label","Level":6,"Pos":60351},{"Code":"case 635:","type":"label","Level":6,"Pos":60394},{"Code":"goto IL_355f;","type":"goto","Level":6,"Pos":60437},{"Code":"case 636:","type":"label","Level":6,"Pos":60488},{"Code":"goto IL_357d;","type":"goto","Level":6,"Pos":60531},{"Code":"case 637:","type":"label","Level":6,"Pos":60582},{"Code":"goto IL_358a;","type":"goto","Level":6,"Pos":60625},{"Code":"case 638:","type":"label","Level":6,"Pos":60676},{"Code":"goto IL_359e;","type":"goto","Level":6,"Pos":60719},{"Code":"case 639:","type":"label","Level":6,"Pos":60770},{"Code":"goto IL_35b2;","type":"goto","Level":6,"Pos":60813},{"Code":"case 640:","type":"label","Level":6,"Pos":60864},{"Code":"goto IL_35c6;","type":"goto","Level":6,"Pos":60907},{"Code":"case 641:","type":"label","Level":6,"Pos":60958},{"Code":"goto IL_35e5;","type":"goto","Level":6,"Pos":61001},{"Code":"case 642:","type":"label","Level":6,"Pos":61052},{"Code":"goto IL_3607;","type":"goto","Level":6,"Pos":61095},{"Code":"case 643:","type":"label","Level":6,"Pos":61146},{"Code":"goto IL_361a;","type":"goto","Level":6,"Pos":61189},{"Code":"case 644:","type":"label","Level":6,"Pos":61240},{"Code":"goto IL_3627;","type":"goto","Level":6,"Pos":61283},{"Code":"case 645:","type":"label","Level":6,"Pos":61334},{"Code":"goto IL_3639;","type":"goto","Level":6,"Pos":61377},{"Code":"case 646:","type":"label","Level":6,"Pos":61428},{"Code":"goto IL_364b;","type":"goto","Level":6,"Pos":61471},{"Code":"case 648:","type":"label","Level":6,"Pos":61522},{"Code":"case 649:","type":"label","Level":6,"Pos":61565},{"Code":"goto IL_3666;","type":"goto","Level":6,"Pos":61608},{"Code":"case 650:","type":"label","Level":6,"Pos":61659},{"Code":"goto IL_36c8;","type":"goto","Level":6,"Pos":61702},{"Code":"case 652:","type":"label","Level":6,"Pos":61753},{"Code":"case 653:","type":"label","Level":6,"Pos":61796},{"Code":"goto IL_36e4;","type":"goto","Level":6,"Pos":61839},{"Code":"case 654:","type":"label","Level":6,"Pos":61890},{"Code":"goto IL_36f2;","type":"goto","Level":6,"Pos":61933},{"Code":"case 655:","type":"label","Level":6,"Pos":61984},{"Code":"goto IL_3700;","type":"goto","Level":6,"Pos":62027},{"Code":"case 656:","type":"label","Level":6,"Pos":62078},{"Code":"goto IL_370e;","type":"goto","Level":6,"Pos":62121},{"Code":"case 657:","type":"label","Level":6,"Pos":62172},{"Code":"goto IL_371f;","type":"goto","Level":6,"Pos":62215},{"Code":"case 658:","type":"label","Level":6,"Pos":62266},{"Code":"goto IL_3736;","type":"goto","Level":6,"Pos":62309},{"Code":"case 659:","type":"label","Level":6,"Pos":62360},{"Code":"goto IL_379d;","type":"goto","Level":6,"Pos":62403},{"Code":"case 660:","type":"label","Level":6,"Pos":62454},{"Code":"goto IL_37b4;","type":"goto","Level":6,"Pos":62497},{"Code":"case 661:","type":"label","Level":6,"Pos":62548},{"Code":"case 662:","type":"label","Level":6,"Pos":62591},{"Code":"goto IL_37c2;","type":"goto","Level":6,"Pos":62634},{"Code":"case 663:","type":"label","Level":6,"Pos":62685},{"Code":"goto IL_37d3;","type":"goto","Level":6,"Pos":62728},{"Code":"case 664:","type":"label","Level":6,"Pos":62779},{"Code":"goto IL_37e0;","type":"goto","Level":6,"Pos":62822},{"Code":"case 665:","type":"label","Level":6,"Pos":62873},{"Code":"goto IL_3811;","type":"goto","Level":6,"Pos":62916},{"Code":"case 666:","type":"label","Level":6,"Pos":62967},{"Code":"case 667:","type":"label","Level":6,"Pos":63010},{"Code":"goto IL_3822;","type":"goto","Level":6,"Pos":63053},{"Code":"case 668:","type":"label","Level":6,"Pos":63104},{"Code":"goto IL_3839;","type":"goto","Level":6,"Pos":63147},{"Code":"case 669:","type":"label","Level":6,"Pos":63198},{"Code":"goto IL_38a0;","type":"goto","Level":6,"Pos":63241},{"Code":"case 670:","type":"label","Level":6,"Pos":63292},{"Code":"goto IL_38b7;","type":"goto","Level":6,"Pos":63335},{"Code":"case 671:","type":"label","Level":6,"Pos":63386},{"Code":"case 672:","type":"label","Level":6,"Pos":63429},{"Code":"goto IL_38c5;","type":"goto","Level":6,"Pos":63472},{"Code":"case 673:","type":"label","Level":6,"Pos":63523},{"Code":"goto IL_38e8;","type":"goto","Level":6,"Pos":63566},{"Code":"case 674:","type":"label","Level":6,"Pos":63617},{"Code":"goto IL_38f5;","type":"goto","Level":6,"Pos":63660},{"Code":"case 675:","type":"label","Level":6,"Pos":63711},{"Code":"goto IL_3935;","type":"goto","Level":6,"Pos":63754},{"Code":"case 676:","type":"label","Level":6,"Pos":63805},{"Code":"goto IL_394b;","type":"goto","Level":6,"Pos":63848},{"Code":"case 677:","type":"label","Level":6,"Pos":63899},{"Code":"case 678:","type":"label","Level":6,"Pos":63942},{"Code":"goto IL_3962;","type":"goto","Level":6,"Pos":63985},{"Code":"case 679:","type":"label","Level":6,"Pos":64036},{"Code":"goto IL_3978;","type":"goto","Level":6,"Pos":64079},{"Code":"case 680:","type":"label","Level":6,"Pos":64130},{"Code":"case 681:","type":"label","Level":6,"Pos":64173},{"Code":"goto IL_398f;","type":"goto","Level":6,"Pos":64216},{"Code":"case 682:","type":"label","Level":6,"Pos":64267},{"Code":"goto IL_39f2;","type":"goto","Level":6,"Pos":64310},{"Code":"case 683:","type":"label","Level":6,"Pos":64361},{"Code":"goto IL_3a0c;","type":"goto","Level":6,"Pos":64404},{"Code":"case 684:","type":"label","Level":6,"Pos":64455},{"Code":"case 685:","type":"label","Level":6,"Pos":64498},{"Code":"goto IL_3a23;","type":"goto","Level":6,"Pos":64541},{"Code":"case 686:","type":"label","Level":6,"Pos":64592},{"Code":"goto IL_3a86;","type":"goto","Level":6,"Pos":64635},{"Code":"case 687:","type":"label","Level":6,"Pos":64686},{"Code":"goto IL_3aa0;","type":"goto","Level":6,"Pos":64729},{"Code":"case 688:","type":"label","Level":6,"Pos":64780},{"Code":"case 689:","type":"label","Level":6,"Pos":64823},{"Code":"goto IL_3ab7;","type":"goto","Level":6,"Pos":64866},{"Code":"case 690:","type":"label","Level":6,"Pos":64917},{"Code":"goto IL_3b1a;","type":"goto","Level":6,"Pos":64960},{"Code":"case 691:","type":"label","Level":6,"Pos":65011},{"Code":"goto IL_3b34;","type":"goto","Level":6,"Pos":65054},{"Code":"case 692:","type":"label","Level":6,"Pos":65105},{"Code":"case 693:","type":"label","Level":6,"Pos":65148},{"Code":"goto IL_3b4b;","type":"goto","Level":6,"Pos":65191},{"Code":"case 694:","type":"label","Level":6,"Pos":65242},{"Code":"goto IL_3bae;","type":"goto","Level":6,"Pos":65285},{"Code":"case 695:","type":"label","Level":6,"Pos":65336},{"Code":"goto IL_3bc8;","type":"goto","Level":6,"Pos":65379},{"Code":"case 696:","type":"label","Level":6,"Pos":65430},{"Code":"case 697:","type":"label","Level":6,"Pos":65473},{"Code":"goto IL_3bdf;","type":"goto","Level":6,"Pos":65516},{"Code":"case 698:","type":"label","Level":6,"Pos":65567},{"Code":"goto IL_3c42;","type":"goto","Level":6,"Pos":65610},{"Code":"case 699:","type":"label","Level":6,"Pos":65661},{"Code":"goto IL_3c5c;","type":"goto","Level":6,"Pos":65704},{"Code":"case 700:","type":"label","Level":6,"Pos":65755},{"Code":"case 701:","type":"label","Level":6,"Pos":65798},{"Code":"goto IL_3c73;","type":"goto","Level":6,"Pos":65841},{"Code":"case 702:","type":"label","Level":6,"Pos":65892},{"Code":"goto IL_3cd7;","type":"goto","Level":6,"Pos":65935},{"Code":"case 703:","type":"label","Level":6,"Pos":65986},{"Code":"goto IL_3cf1;","type":"goto","Level":6,"Pos":66029},{"Code":"case 704:","type":"label","Level":6,"Pos":66080},{"Code":"case 705:","type":"label","Level":6,"Pos":66123},{"Code":"goto IL_3d08;","type":"goto","Level":6,"Pos":66166},{"Code":"case 706:","type":"label","Level":6,"Pos":66217},{"Code":"goto IL_3d1f;","type":"goto","Level":6,"Pos":66260},{"Code":"case 707:","type":"label","Level":6,"Pos":66311},{"Code":"goto IL_3d7c;","type":"goto","Level":6,"Pos":66354},{"Code":"case 708:","type":"label","Level":6,"Pos":66405},{"Code":"goto IL_3d96;","type":"goto","Level":6,"Pos":66448},{"Code":"case 709:","type":"label","Level":6,"Pos":66499},{"Code":"case 710:","type":"label","Level":6,"Pos":66542},{"Code":"goto IL_3dad;","type":"goto","Level":6,"Pos":66585},{"Code":"case 651:","type":"label","Level":6,"Pos":66636},{"Code":"case 711:","type":"label","Level":6,"Pos":66679},{"Code":"case 712:","type":"label","Level":6,"Pos":66722},{"Code":"goto IL_3de8;","type":"goto","Level":6,"Pos":66765},{"Code":"case 713:","type":"label","Level":6,"Pos":66816},{"Code":"goto IL_3e0f;","type":"goto","Level":6,"Pos":66859},{"Code":"case 715:","type":"label","Level":6,"Pos":66910},{"Code":"case 716:","type":"label","Level":6,"Pos":66953},{"Code":"goto IL_3e4e;","type":"goto","Level":6,"Pos":66996},{"Code":"case 717:","type":"label","Level":6,"Pos":67047},{"Code":"goto IL_3e62;","type":"goto","Level":6,"Pos":67090},{"Code":"case 718:","type":"label","Level":6,"Pos":67141},{"Code":"goto IL_3e7a;","type":"goto","Level":6,"Pos":67184},{"Code":"case 719:","type":"label","Level":6,"Pos":67235},{"Code":"goto IL_3e84;","type":"goto","Level":6,"Pos":67278},{"Code":"case 721:","type":"label","Level":6,"Pos":67329},{"Code":"case 722:","type":"label","Level":6,"Pos":67372},{"Code":"goto IL_3e9f;","type":"goto","Level":6,"Pos":67415},{"Code":"case 723:","type":"label","Level":6,"Pos":67466},{"Code":"goto IL_3ebd;","type":"goto","Level":6,"Pos":67509},{"Code":"case 724:","type":"label","Level":6,"Pos":67560},{"Code":"goto IL_3edb;","type":"goto","Level":6,"Pos":67603},{"Code":"case 725:","type":"label","Level":6,"Pos":67654},{"Code":"goto IL_3ef9;","type":"goto","Level":6,"Pos":67697},{"Code":"case 726:","type":"label","Level":6,"Pos":67748},{"Code":"goto IL_3f16;","type":"goto","Level":6,"Pos":67791},{"Code":"case 727:","type":"label","Level":6,"Pos":67842},{"Code":"goto IL_3f33;","type":"goto","Level":6,"Pos":67885},{"Code":"case 728:","type":"label","Level":6,"Pos":67936},{"Code":"goto IL_3f45;","type":"goto","Level":6,"Pos":67979},{"Code":"case 729:","type":"label","Level":6,"Pos":68030},{"Code":"goto IL_3f5c;","type":"goto","Level":6,"Pos":68073},{"Code":"case 730:","type":"label","Level":6,"Pos":68124},{"Code":"goto IL_3fb6;","type":"goto","Level":6,"Pos":68167},{"Code":"case 731:","type":"label","Level":6,"Pos":68218},{"Code":"goto IL_3fc4;","type":"goto","Level":6,"Pos":68261},{"Code":"case 734:","type":"label","Level":6,"Pos":68312},{"Code":"goto IL_3fe6;","type":"goto","Level":6,"Pos":68355},{"Code":"case 735:","type":"label","Level":6,"Pos":68406},{"Code":"goto IL_3ffb;","type":"goto","Level":6,"Pos":68449},{"Code":"case 736:","type":"label","Level":6,"Pos":68500},{"Code":"goto IL_4044;","type":"goto","Level":6,"Pos":68543},{"Code":"case 737:","type":"label","Level":6,"Pos":68594},{"Code":"goto IL_4076;","type":"goto","Level":6,"Pos":68637},{"Code":"case 738:","type":"label","Level":6,"Pos":68688},{"Code":"case 739:","type":"label","Level":6,"Pos":68731},{"Code":"goto IL_4091;","type":"goto","Level":6,"Pos":68774},{"Code":"case 740:","type":"label","Level":6,"Pos":68825},{"Code":"goto IL_40c3;","type":"goto","Level":6,"Pos":68868},{"Code":"case 741:","type":"label","Level":6,"Pos":68919},{"Code":"case 742:","type":"label","Level":6,"Pos":68962},{"Code":"goto IL_40de;","type":"goto","Level":6,"Pos":69005},{"Code":"case 743:","type":"label","Level":6,"Pos":69056},{"Code":"goto IL_4110;","type":"goto","Level":6,"Pos":69099},{"Code":"case 744:","type":"label","Level":6,"Pos":69150},{"Code":"case 745:","type":"label","Level":6,"Pos":69193},{"Code":"goto IL_412b;","type":"goto","Level":6,"Pos":69236},{"Code":"case 746:","type":"label","Level":6,"Pos":69287},{"Code":"goto IL_415d;","type":"goto","Level":6,"Pos":69330},{"Code":"case 747:","type":"label","Level":6,"Pos":69381},{"Code":"case 748:","type":"label","Level":6,"Pos":69424},{"Code":"goto IL_4178;","type":"goto","Level":6,"Pos":69467},{"Code":"case 749:","type":"label","Level":6,"Pos":69518},{"Code":"goto IL_41aa;","type":"goto","Level":6,"Pos":69561},{"Code":"case 750:","type":"label","Level":6,"Pos":69612},{"Code":"case 751:","type":"label","Level":6,"Pos":69655},{"Code":"goto IL_41c5;","type":"goto","Level":6,"Pos":69698},{"Code":"case 752:","type":"label","Level":6,"Pos":69749},{"Code":"goto IL_4203;","type":"goto","Level":6,"Pos":69792},{"Code":"case 753:","type":"label","Level":6,"Pos":69843},{"Code":"case 754:","type":"label","Level":6,"Pos":69886},{"Code":"goto IL_421e;","type":"goto","Level":6,"Pos":69929},{"Code":"case 755:","type":"label","Level":6,"Pos":69980},{"Code":"goto IL_4259;","type":"goto","Level":6,"Pos":70023},{"Code":"case 756:","type":"label","Level":6,"Pos":70074},{"Code":"case 757:","type":"label","Level":6,"Pos":70117},{"Code":"goto IL_4274;","type":"goto","Level":6,"Pos":70160},{"Code":"case 758:","type":"label","Level":6,"Pos":70211},{"Code":"goto IL_42af;","type":"goto","Level":6,"Pos":70254},{"Code":"case 759:","type":"label","Level":6,"Pos":70305},{"Code":"case 760:","type":"label","Level":6,"Pos":70348},{"Code":"goto IL_42ca;","type":"goto","Level":6,"Pos":70391},{"Code":"case 761:","type":"label","Level":6,"Pos":70442},{"Code":"goto IL_4308;","type":"goto","Level":6,"Pos":70485},{"Code":"case 762:","type":"label","Level":6,"Pos":70536},{"Code":"case 763:","type":"label","Level":6,"Pos":70579},{"Code":"goto IL_4323;","type":"goto","Level":6,"Pos":70622},{"Code":"case 764:","type":"label","Level":6,"Pos":70673},{"Code":"goto IL_4361;","type":"goto","Level":6,"Pos":70716},{"Code":"case 765:","type":"label","Level":6,"Pos":70767},{"Code":"case 766:","type":"label","Level":6,"Pos":70810},{"Code":"goto IL_437c;","type":"goto","Level":6,"Pos":70853},{"Code":"case 767:","type":"label","Level":6,"Pos":70904},{"Code":"goto IL_43ba;","type":"goto","Level":6,"Pos":70947},{"Code":"case 768:","type":"label","Level":6,"Pos":70998},{"Code":"case 769:","type":"label","Level":6,"Pos":71041},{"Code":"goto IL_43d5;","type":"goto","Level":6,"Pos":71084},{"Code":"case 770:","type":"label","Level":6,"Pos":71135},{"Code":"goto IL_43f2;","type":"goto","Level":6,"Pos":71178},{"Code":"case 771:","type":"label","Level":6,"Pos":71229},{"Code":"goto IL_4407;","type":"goto","Level":6,"Pos":71272},{"Code":"case 732:","type":"label","Level":6,"Pos":71323},{"Code":"case 733:","type":"label","Level":6,"Pos":71366},{"Code":"case 772:","type":"label","Level":6,"Pos":71409},{"Code":"goto IL_441a;","type":"goto","Level":6,"Pos":71452},{"Code":"case 774:","type":"label","Level":6,"Pos":71503},{"Code":"goto IL_4439;","type":"goto","Level":6,"Pos":71546},{"Code":"case 775:","type":"label","Level":6,"Pos":71597},{"Code":"goto IL_4441;","type":"goto","Level":6,"Pos":71640},{"Code":"case 773:","type":"label","Level":6,"Pos":71691},{"Code":"case 776:","type":"label","Level":6,"Pos":71734},{"Code":"case 777:","type":"label","Level":6,"Pos":71777},{"Code":"goto IL_4454;","type":"goto","Level":6,"Pos":71820},{"Code":"case 778:","type":"label","Level":6,"Pos":71871},{"Code":"goto IL_446b;","type":"goto","Level":6,"Pos":71914},{"Code":"case 32:","type":"label","Level":6,"Pos":71965},{"Code":"case 68:","type":"label","Level":6,"Pos":72007},{"Code":"case 157:","type":"label","Level":6,"Pos":72049},{"Code":"case 195:","type":"label","Level":6,"Pos":72092},{"Code":"case 311:","type":"label","Level":6,"Pos":72135},{"Code":"case 312:","type":"label","Level":6,"Pos":72178},{"Code":"case 320:","type":"label","Level":6,"Pos":72221},{"Code":"case 334:","type":"label","Level":6,"Pos":72264},{"Code":"case 437:","type":"label","Level":6,"Pos":72307},{"Code":"case 469:","type":"label","Level":6,"Pos":72350},{"Code":"case 616:","type":"label","Level":6,"Pos":72393},{"Code":"case 647:","type":"label","Level":6,"Pos":72436},{"Code":"case 714:","type":"label","Level":6,"Pos":72479},{"Code":"case 779:","type":"label","Level":6,"Pos":72522},{"Code":"case 780:","type":"label","Level":6,"Pos":72565},{"Code":"case 781:","type":"label","Level":6,"Pos":72608},{"Code":"goto IL_448a;","type":"goto","Level":6,"Pos":72651},{"Code":"case 782:","type":"label","Level":6,"Pos":72702},{"Code":"goto IL_4494;","type":"goto","Level":6,"Pos":72745},{"Code":"case 783:","type":"label","Level":6,"Pos":72796},{"Code":"goto IL_44ac;","type":"goto","Level":6,"Pos":72839},{"Code":"case 784:","type":"label","Level":6,"Pos":72890},{"Code":"goto IL_44c9;","type":"goto","Level":6,"Pos":72933},{"Code":"case 785:","type":"label","Level":6,"Pos":72984},{"Code":"goto IL_44d6;","type":"goto","Level":6,"Pos":73027},{"Code":"case 786:","type":"label","Level":6,"Pos":73078},{"Code":"goto IL_44f3;","type":"goto","Level":6,"Pos":73121},{"Code":"case 789:","type":"label","Level":6,"Pos":73172},{"Code":"goto IL_451d;","type":"goto","Level":6,"Pos":73215},{"Code":"case 790:","type":"label","Level":6,"Pos":73266},{"Code":"goto IL_4537;","type":"goto","Level":6,"Pos":73309},{"Code":"case 791:","type":"label","Level":6,"Pos":73360},{"Code":"goto IL_4545;","type":"goto","Level":6,"Pos":73403},{"Code":"case 792:","type":"label","Level":6,"Pos":73454},{"Code":"case 793:","type":"label","Level":6,"Pos":73497},{"Code":"case 794:","type":"label","Level":6,"Pos":73540},{"Code":"goto IL_4563;","type":"goto","Level":6,"Pos":73583},{"Code":"case 795:","type":"label","Level":6,"Pos":73634},{"Code":"case 797:","type":"label","Level":6,"Pos":73677},{"Code":"goto IL_4593;","type":"goto","Level":6,"Pos":73720},{"Code":"default:","type":"label","Level":6,"Pos":73771},{"Code":"goto end_IL_0001;","type":"goto","Level":6,"Pos":73813},{"Code":"case 46:","type":"label","Level":6,"Pos":73868},{"Code":"case 52:","type":"label","Level":6,"Pos":73910},{"Code":"case 56:","type":"label","Level":6,"Pos":73952},{"Code":"case 178:","type":"label","Level":6,"Pos":73994},{"Code":"case 184:","type":"label","Level":6,"Pos":74037},{"Code":"case 319:","type":"label","Level":6,"Pos":74080},{"Code":"case 355:","type":"label","Level":6,"Pos":74123},{"Code":"case 361:","type":"label","Level":6,"Pos":74166},{"Code":"case 436:","type":"label","Level":6,"Pos":74209},{"Code":"case 448:","type":"label","Level":6,"Pos":74252},{"Code":"case 454:","type":"label","Level":6,"Pos":74295},{"Code":"case 458:","type":"label","Level":6,"Pos":74338},{"Code":"case 623:","type":"label","Level":6,"Pos":74381},{"Code":"case 629:","type":"label","Level":6,"Pos":74424},{"Code":"case 633:","type":"label","Level":6,"Pos":74467},{"Code":"case 720:","type":"label","Level":6,"Pos":74510},{"Code":"case 787:","type":"label","Level":6,"Pos":74553},{"Code":"case 788:","type":"label","Level":6,"Pos":74596},{"Code":"case 798:","type":"label","Level":6,"Pos":74639},{"Code":"goto end_IL_0001_2;","type":"goto","Level":6,"Pos":74682},{"Code":"}","type":"block","Level":6,"Pos":74769},{"Code":"goto default;","type":"goto","Level":5,"Pos":74770},{"Code":"IL_4537:","type":"label","Level":5,"Pos":74813},{"Code":"num = 790;","type":"operation","Level":5,"Pos":74847},{"Code":"num7 = 200000000;","type":"operation","Level":5,"Pos":74887},{"Code":"goto IL_4545;","type":"goto","Level":5,"Pos":74934},{"Code":"IL_4545:","type":"label","Level":5,"Pos":74977},{"Code":"num = 791;","type":"operation","Level":5,"Pos":75011},{"Code":"ProjectData.ClearProjectError();","type":"operation","Level":5,"Pos":75051},{"Code":"if","type":"operation","Level":5,"Pos":75113},{"Code":"(num2 == 0)","type":"operation","Level":5,"Pos":75145},{"Code":"{","type":"block","Level":6,"Pos":75187},{"Code":"throw","type":"operation","Level":6,"Pos":75188},{"Code":"ProjectData.CreateProjectError(-2146828268);","type":"operation","Level":6,"Pos":75227},{"Code":"}","type":"block","Level":6,"Pos":75302},{"Code":"goto IL_45b9;","type":"goto","Level":5,"Pos":75303},{"Code":"IL_0c34:","type":"label","Level":5,"Pos":75346},{"Code":"num = 152;","type":"operation","Level":5,"Pos":75380},{"Code":"List1.Items.Add(new ListItem(Modul1.LiText \u002B","type":"operation","Level":5,"Pos":75420},{"Code":"\u0022 \u0022","type":"string","Level":5,"Pos":75495},{"Code":"\u002B Modul1.PersInArb.AsString()));","type":"operation","Level":5,"Pos":75507},{"Code":"goto IL_0c6f;","type":"goto","Level":5,"Pos":75540},{"Code":"IL_45b9:","type":"label","Level":5,"Pos":75583},{"Code":"num4 = unchecked(num2 \u002B 1);","type":"operation","Level":5,"Pos":75617},{"Code":"goto IL_45bd;","type":"goto","Level":5,"Pos":75674},{"Code":"IL_0016:","type":"label","Level":5,"Pos":75717},{"Code":"num = 2;","type":"operation","Level":5,"Pos":75751},{"Code":"RadioButton1.Visible = true;","type":"operation","Level":5,"Pos":75789},{"Code":"goto IL_0026;","type":"goto","Level":5,"Pos":75847},{"Code":"IL_0026:","type":"label","Level":5,"Pos":75890},{"Code":"num = 3;","type":"operation","Level":5,"Pos":75924},{"Code":"RadioButton2.Visible = true;","type":"operation","Level":5,"Pos":75962},{"Code":"goto IL_0036;","type":"goto","Level":5,"Pos":76020},{"Code":"IL_0036:","type":"label","Level":5,"Pos":76063},{"Code":"ProjectData.ClearProjectError();","type":"operation","Level":5,"Pos":76097},{"Code":"num3 = 2;","type":"operation","Level":5,"Pos":76159},{"Code":"goto IL_003e;","type":"goto","Level":5,"Pos":76198},{"Code":"IL_003e:","type":"label","Level":5,"Pos":76241},{"Code":"num = 5;","type":"operation","Level":5,"Pos":76275},{"Code":"switch","type":"operation","Level":5,"Pos":76313},{"Code":"(index)","type":"operation","Level":5,"Pos":76349},{"Code":"{","type":"block","Level":6,"Pos":76387},{"Code":"case 0:","type":"label","Level":6,"Pos":76388},{"Code":"case 1:","type":"label","Level":6,"Pos":76429},{"Code":"case 4:","type":"label","Level":6,"Pos":76470},{"Code":"case 5:","type":"label","Level":6,"Pos":76511},{"Code":"case 6:","type":"label","Level":6,"Pos":76552},{"Code":"break;","type":"operation","Level":6,"Pos":76593},{"Code":"case 7:","type":"label","Level":6,"Pos":76637},{"Code":"goto IL_0094;","type":"goto","Level":6,"Pos":76678},{"Code":"default:","type":"label","Level":6,"Pos":76729},{"Code":"goto IL_00a6;","type":"goto","Level":6,"Pos":76771},{"Code":"}","type":"block","Level":6,"Pos":76852},{"Code":"{","type":"block","Level":6,"Pos":76885},{"Code":"goto IL_006f;","type":"goto","Level":6,"Pos":76886},{"Code":"}","type":"block","Level":6,"Pos":76963},{"Code":"IL_0094:","type":"label","Level":5,"Pos":76964},{"Code":"num = 13;","type":"operation","Level":5,"Pos":76998},{"Code":"List1.Visible = false;","type":"operation","Level":5,"Pos":77037},{"Code":"goto IL_00a6;","type":"goto","Level":5,"Pos":77089},{"Code":"IL_006f:","type":"label","Level":5,"Pos":77132},{"Code":"num = 9;","type":"operation","Level":5,"Pos":77166},{"Code":"List2.Visible = false;","type":"operation","Level":5,"Pos":77204},{"Code":"goto IL_0080;","type":"goto","Level":5,"Pos":77256},{"Code":"IL_0080:","type":"label","Level":5,"Pos":77299},{"Code":"num = 10;","type":"operation","Level":5,"Pos":77333},{"Code":"List1.Visible = true;","type":"operation","Level":5,"Pos":77372},{"Code":"goto IL_00a6;","type":"goto","Level":5,"Pos":77423},{"Code":"IL_00a6:","type":"label","Level":5,"Pos":77466},{"Code":"num = 15;","type":"operation","Level":5,"Pos":77500},{"Code":"Label4.Text =","type":"operation","Level":5,"Pos":77539},{"Code":"\u0022\u0022","type":"string","Level":5,"Pos":77583},{"Code":";","type":"operation","Level":5,"Pos":77585},{"Code":"goto IL_00bb;","type":"goto","Level":5,"Pos":77586},{"Code":"IL_00bb:","type":"label","Level":5,"Pos":77629},{"Code":"num = 16;","type":"operation","Level":5,"Pos":77663},{"Code":"if","type":"operation","Level":5,"Pos":77702},{"Code":"(Modul1.Aus[12] ==","type":"operation","Level":5,"Pos":77734},{"Code":"\u0022\u0022","type":"string","Level":5,"Pos":77754},{"Code":")","type":"operation","Level":5,"Pos":77756},{"Code":"{","type":"block","Level":6,"Pos":77787},{"Code":"goto IL_00db;","type":"goto","Level":6,"Pos":77788},{"Code":"}","type":"block","Level":6,"Pos":77865},{"Code":"else","type":"operation","Level":5,"Pos":77866},{"Code":"{","type":"block","Level":6,"Pos":77930},{"Code":"goto IL_00ed;","type":"goto","Level":6,"Pos":77931},{"Code":"}","type":"block","Level":6,"Pos":78008},{"Code":"IL_00db:","type":"label","Level":5,"Pos":78009},{"Code":"num = 17;","type":"operation","Level":5,"Pos":78043},{"Code":"Modul1.Aus[12] =","type":"operation","Level":5,"Pos":78082},{"Code":"\u0022200\u0022","type":"string","Level":5,"Pos":78129},{"Code":";","type":"operation","Level":5,"Pos":78134},{"Code":"goto IL_00ed;","type":"goto","Level":5,"Pos":78135},{"Code":"IL_00ed:","type":"label","Level":5,"Pos":78178},{"Code":"num = 19;","type":"operation","Level":5,"Pos":78212},{"Code":"if","type":"operation","Level":5,"Pos":78251},{"Code":"(Modul1.Aus[13] ==","type":"operation","Level":5,"Pos":78283},{"Code":"\u0022\u0022","type":"string","Level":5,"Pos":78303},{"Code":")","type":"operation","Level":5,"Pos":78305},{"Code":"{","type":"block","Level":6,"Pos":78336},{"Code":"goto IL_010d;","type":"goto","Level":6,"Pos":78337},{"Code":"}","type":"block","Level":6,"Pos":78414},{"Code":"else","type":"operation","Level":5,"Pos":78415},{"Code":"{","type":"block","Level":6,"Pos":78479},{"Code":"goto IL_011f;","type":"goto","Level":6,"Pos":78480},{"Code":"}","type":"block","Level":6,"Pos":78557},{"Code":"IL_010d:","type":"label","Level":5,"Pos":78558},{"Code":"num = 20;","type":"operation","Level":5,"Pos":78592},{"Code":"Modul1.Aus[13] =","type":"operation","Level":5,"Pos":78631},{"Code":"\u0022200\u0022","type":"string","Level":5,"Pos":78678},{"Code":";","type":"operation","Level":5,"Pos":78683},{"Code":"goto IL_011f;","type":"goto","Level":5,"Pos":78684},{"Code":"IL_011f:","type":"label","Level":5,"Pos":78727},{"Code":"num = 22;","type":"operation","Level":5,"Pos":78761},{"Code":"List1.Visible = true;","type":"operation","Level":5,"Pos":78800},{"Code":"goto IL_0130;","type":"goto","Level":5,"Pos":78851},{"Code":"IL_0130:","type":"label","Level":5,"Pos":78894},{"Code":"num = 23;","type":"operation","Level":5,"Pos":78928},{"Code":"List2.Visible = false;","type":"operation","Level":5,"Pos":78967},{"Code":"goto IL_0141;","type":"goto","Level":5,"Pos":79019},{"Code":"IL_0141:","type":"label","Level":5,"Pos":79062},{"Code":"num = 24;","type":"operation","Level":5,"Pos":79096},{"Code":"Label2.Text =","type":"operation","Level":5,"Pos":79135},{"Code":"\u0022\u0022","type":"string","Level":5,"Pos":79179},{"Code":";","type":"operation","Level":5,"Pos":79181},{"Code":"goto IL_0156;","type":"goto","Level":5,"Pos":79182},{"Code":"IL_0156:","type":"label","Level":5,"Pos":79225},{"Code":"num = 25;","type":"operation","Level":5,"Pos":79259},{"Code":"if","type":"operation","Level":5,"Pos":79298},{"Code":"(RadioButton1.Checked)","type":"operation","Level":5,"Pos":79330},{"Code":"{","type":"block","Level":6,"Pos":79383},{"Code":"goto IL_016b;","type":"goto","Level":6,"Pos":79384},{"Code":"}","type":"block","Level":6,"Pos":79461},{"Code":"else","type":"operation","Level":5,"Pos":79462},{"Code":"{","type":"block","Level":6,"Pos":79526},{"Code":"goto IL_017c;","type":"goto","Level":6,"Pos":79527},{"Code":"}","type":"block","Level":6,"Pos":79604},{"Code":"IL_016b:","type":"label","Level":5,"Pos":79605},{"Code":"num = 26;","type":"operation","Level":5,"Pos":79639},{"Code":"List1.Sorted = true;","type":"operation","Level":5,"Pos":79678},{"Code":"goto IL_017c;","type":"goto","Level":5,"Pos":79728},{"Code":"IL_017c:","type":"label","Level":5,"Pos":79771},{"Code":"num = 28;","type":"operation","Level":5,"Pos":79805},{"Code":"if","type":"operation","Level":5,"Pos":79844},{"Code":"(RadioButton2.Checked)","type":"operation","Level":5,"Pos":79876},{"Code":"{","type":"block","Level":6,"Pos":79929},{"Code":"goto IL_0191;","type":"goto","Level":6,"Pos":79930},{"Code":"}","type":"block","Level":6,"Pos":80007},{"Code":"else","type":"operation","Level":5,"Pos":80008},{"Code":"{","type":"block","Level":6,"Pos":80072},{"Code":"goto IL_01a2;","type":"goto","Level":6,"Pos":80073},{"Code":"}","type":"block","Level":6,"Pos":80150},{"Code":"IL_0191:","type":"label","Level":5,"Pos":80151},{"Code":"num = 29;","type":"operation","Level":5,"Pos":80185},{"Code":"List1.Sorted = false;","type":"operation","Level":5,"Pos":80224},{"Code":"goto IL_01a2;","type":"goto","Level":5,"Pos":80275},{"Code":"IL_01a2:","type":"label","Level":5,"Pos":80318},{"Code":"num = 31;","type":"operation","Level":5,"Pos":80352},{"Code":"switch","type":"operation","Level":5,"Pos":80391},{"Code":"(index)","type":"operation","Level":5,"Pos":80427},{"Code":"{","type":"block","Level":6,"Pos":80465},{"Code":"case 0:","type":"label","Level":6,"Pos":80466},{"Code":"break;","type":"operation","Level":6,"Pos":80507},{"Code":"case 1:","type":"label","Level":6,"Pos":80551},{"Code":"goto IL_0cef;","type":"goto","Level":6,"Pos":80592},{"Code":"case 2:","type":"label","Level":6,"Pos":80643},{"Code":"goto IL_1a3c;","type":"goto","Level":6,"Pos":80684},{"Code":"case 3:","type":"label","Level":6,"Pos":80735},{"Code":"goto IL_1aae;","type":"goto","Level":6,"Pos":80776},{"Code":"case 4:","type":"label","Level":6,"Pos":80827},{"Code":"goto IL_1c00;","type":"goto","Level":6,"Pos":80868},{"Code":"case 5:","type":"label","Level":6,"Pos":80919},{"Code":"goto IL_2496;","type":"goto","Level":6,"Pos":80960},{"Code":"case 6:","type":"label","Level":6,"Pos":81011},{"Code":"goto IL_3406;","type":"goto","Level":6,"Pos":81052},{"Code":"case 7:","type":"label","Level":6,"Pos":81103},{"Code":"goto IL_3e4e;","type":"goto","Level":6,"Pos":81144},{"Code":"default:","type":"label","Level":6,"Pos":81195},{"Code":"goto IL_448a;","type":"goto","Level":6,"Pos":81237},{"Code":"}","type":"block","Level":6,"Pos":81318},{"Code":"{","type":"block","Level":6,"Pos":81351},{"Code":"goto IL_01d7;","type":"goto","Level":6,"Pos":81352},{"Code":"}","type":"block","Level":6,"Pos":81429},{"Code":"IL_3e4e:","type":"label","Level":5,"Pos":81430},{"Code":"num = 716;","type":"operation","Level":5,"Pos":81464},{"Code":"List2.Visible = true;","type":"operation","Level":5,"Pos":81504},{"Code":"goto IL_3e62;","type":"goto","Level":5,"Pos":81555},{"Code":"IL_3e62:","type":"label","Level":5,"Pos":81598},{"Code":"num = 717;","type":"operation","Level":5,"Pos":81632},{"Code":"List2.Items.Clear();","type":"operation","Level":5,"Pos":81672},{"Code":"goto IL_3e7a;","type":"goto","Level":5,"Pos":81722},{"Code":"IL_3e7a:","type":"label","Level":5,"Pos":81765},{"Code":"num = 718;","type":"operation","Level":5,"Pos":81799},{"Code":"num7 = 1;","type":"operation","Level":5,"Pos":81839},{"Code":"goto IL_3e84;","type":"goto","Level":5,"Pos":81878},{"Code":"IL_3e84:","type":"label","Level":5,"Pos":81921},{"Code":"num = 719;","type":"operation","Level":5,"Pos":81955},{"Code":"if","type":"operation","Level":5,"Pos":81995},{"Code":"(num7 \u003C= 0)","type":"operation","Level":5,"Pos":82027},{"Code":"{","type":"block","Level":6,"Pos":82069},{"Code":"goto end_IL_0001_2;","type":"goto","Level":6,"Pos":82070},{"Code":"}","type":"block","Level":6,"Pos":82153},{"Code":"goto IL_3e9f;","type":"goto","Level":5,"Pos":82154},{"Code":"IL_3e9f:","type":"label","Level":5,"Pos":82197},{"Code":"num = 722;","type":"operation","Level":5,"Pos":82231},{"Code":"Label1[2].Text =","type":"operation","Level":5,"Pos":82271},{"Code":"\u0022Fehlliste Orte\u0022","type":"string","Level":5,"Pos":82318},{"Code":";","type":"operation","Level":5,"Pos":82334},{"Code":"goto IL_3ebd;","type":"goto","Level":5,"Pos":82335},{"Code":"IL_3ebd:","type":"label","Level":5,"Pos":82378},{"Code":"num = 723;","type":"operation","Level":5,"Pos":82412},{"Code":"Label1[1].Text =","type":"operation","Level":5,"Pos":82452},{"Code":"\u0022 Nr Ort Orsteil Kreis Land Staat Loc L\u00E4nge Breite PLZ Terr StKz\u0022","type":"string","Level":5,"Pos":82499},{"Code":";","type":"operation","Level":5,"Pos":82575},{"Code":"goto IL_3edb;","type":"goto","Level":5,"Pos":82576},{"Code":"IL_3edb:","type":"label","Level":5,"Pos":82619},{"Code":"num = 724;","type":"operation","Level":5,"Pos":82653},{"Code":"Label1[0].Text =","type":"operation","Level":5,"Pos":82693},{"Code":"\u0022 \u0022","type":"string","Level":5,"Pos":82740},{"Code":";","type":"operation","Level":5,"Pos":82744},{"Code":"goto IL_3ef9;","type":"goto","Level":5,"Pos":82745},{"Code":"IL_3ef9:","type":"label","Level":5,"Pos":82788},{"Code":"num = 725;","type":"operation","Level":5,"Pos":82822},{"Code":"List2.Items.Add(","type":"operation","Level":5,"Pos":82862},{"Code":"\u0022Fehlliste Orte\u0022","type":"string","Level":5,"Pos":82908},{"Code":");","type":"operation","Level":5,"Pos":82924},{"Code":"goto IL_3f16;","type":"goto","Level":5,"Pos":82926},{"Code":"IL_3f16:","type":"label","Level":5,"Pos":82969},{"Code":"num = 726;","type":"operation","Level":5,"Pos":83003},{"Code":"List2.Items.Add(","type":"operation","Level":5,"Pos":83043},{"Code":"\u0022 Nr Ort Ortsteil Kreis Land Staat Loc. Laenge Breite PLZ Terr. StKz\u0022","type":"string","Level":5,"Pos":83089},{"Code":");","type":"operation","Level":5,"Pos":83166},{"Code":"goto IL_3f33;","type":"goto","Level":5,"Pos":83168},{"Code":"IL_3f33:","type":"label","Level":5,"Pos":83211},{"Code":"num = 727;","type":"operation","Level":5,"Pos":83245},{"Code":"DataModul.DB_PlaceTable.MoveFirst();","type":"operation","Level":5,"Pos":83285},{"Code":"goto IL_3f45;","type":"goto","Level":5,"Pos":83351},{"Code":"IL_3f45:","type":"label","Level":5,"Pos":83394},{"Code":"num = 728;","type":"operation","Level":5,"Pos":83428},{"Code":"DataModul.DB_PlaceTable.Index = nameof(DataModul.PlaceIndex.OrtNr);","type":"operation","Level":5,"Pos":83468},{"Code":"goto IL_3f5c;","type":"goto","Level":5,"Pos":83565},{"Code":"IL_3f5c:","type":"label","Level":5,"Pos":83608},{"Code":"num = 729;","type":"operation","Level":5,"Pos":83642},{"Code":"DataModul.DB_PlaceTable.Seek(","type":"operation","Level":5,"Pos":83682},{"Code":"\u0022\u003E=\u0022","type":"string","Level":5,"Pos":83741},{"Code":", num7);","type":"operation","Level":5,"Pos":83745},{"Code":"goto IL_3fb6;","type":"goto","Level":5,"Pos":83753},{"Code":"IL_3fb6:","type":"label","Level":5,"Pos":83796},{"Code":"num = 730;","type":"operation","Level":5,"Pos":83830},{"Code":"this.A = 1;","type":"operation","Level":5,"Pos":83870},{"Code":"goto IL_3fc4;","type":"goto","Level":5,"Pos":83911},{"Code":"IL_3fc4:","type":"label","Level":5,"Pos":83954},{"Code":"num = 731;","type":"operation","Level":5,"Pos":83988},{"Code":"if","type":"operation","Level":5,"Pos":84028},{"Code":"(!DataModul.DB_PlaceTable.NoMatch)","type":"operation","Level":5,"Pos":84060},{"Code":"{","type":"block","Level":6,"Pos":84125},{"Code":"goto IL_441a;","type":"goto","Level":6,"Pos":84126},{"Code":"}","type":"block","Level":6,"Pos":84203},{"Code":"else","type":"operation","Level":5,"Pos":84204},{"Code":"{","type":"block","Level":6,"Pos":84268},{"Code":"goto IL_4439;","type":"goto","Level":6,"Pos":84269},{"Code":"}","type":"block","Level":6,"Pos":84346},{"Code":"IL_441a:","type":"label","Level":5,"Pos":84347},{"Code":"num = 733;","type":"operation","Level":5,"Pos":84381},{"Code":"if","type":"operation","Level":5,"Pos":84421},{"Code":"(!DataModul.DB_PlaceTable.EOF)","type":"operation","Level":5,"Pos":84453},{"Code":"{","type":"block","Level":6,"Pos":84514},{"Code":"goto IL_3fe6;","type":"goto","Level":6,"Pos":84515},{"Code":"}","type":"block","Level":6,"Pos":84592},{"Code":"else","type":"operation","Level":5,"Pos":84593},{"Code":"{","type":"block","Level":6,"Pos":84657},{"Code":"goto IL_4454;","type":"goto","Level":6,"Pos":84658},{"Code":"}","type":"block","Level":6,"Pos":84735},{"Code":"IL_3fe6:","type":"label","Level":5,"Pos":84736},{"Code":"num = 734;","type":"operation","Level":5,"Pos":84770},{"Code":"Modul1.LiText = new string(\u0027 \u0027, 80);","type":"operation","Level":5,"Pos":84810},{"Code":"goto IL_3ffb;","type":"goto","Level":5,"Pos":84876},{"Code":"IL_3ffb:","type":"label","Level":5,"Pos":84919},{"Code":"num = 735;","type":"operation","Level":5,"Pos":84953},{"Code":"StringType.MidStmtStr(ref Modul1.LiText, 1, 10, Strings.Right(","type":"operation","Level":5,"Pos":84993},{"Code":"\u0022 \u0022","type":"string","Level":5,"Pos":85085},{"Code":"\u002B DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.OrtNr)].Value.AsString(), 10));","type":"operation","Level":5,"Pos":85097},{"Code":"goto IL_4044;","type":"goto","Level":5,"Pos":85191},{"Code":"IL_4044:","type":"label","Level":5,"Pos":85234},{"Code":"num = 736;","type":"operation","Level":5,"Pos":85268},{"Code":"if","type":"operation","Level":5,"Pos":85308},{"Code":"((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Ort)].AsInt() == 0))","type":"operation","Level":5,"Pos":85340},{"Code":"{","type":"block","Level":6,"Pos":85453},{"Code":"goto IL_4076;","type":"goto","Level":6,"Pos":85454},{"Code":"}","type":"block","Level":6,"Pos":85531},{"Code":"else","type":"operation","Level":5,"Pos":85532},{"Code":"{","type":"block","Level":6,"Pos":85596},{"Code":"goto IL_4091;","type":"goto","Level":6,"Pos":85597},{"Code":"}","type":"block","Level":6,"Pos":85674},{"Code":"IL_4076:","type":"label","Level":5,"Pos":85675},{"Code":"num = 737;","type":"operation","Level":5,"Pos":85709},{"Code":"StringType.MidStmtStr(ref Modul1.LiText, 12, 2,","type":"operation","Level":5,"Pos":85749},{"Code":"\u0022F \u0022","type":"string","Level":5,"Pos":85827},{"Code":");","type":"operation","Level":5,"Pos":85831},{"Code":"goto IL_4091;","type":"goto","Level":5,"Pos":85833},{"Code":"IL_4091:","type":"label","Level":5,"Pos":85876},{"Code":"num = 739;","type":"operation","Level":5,"Pos":85910},{"Code":"if","type":"operation","Level":5,"Pos":85950},{"Code":"((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Ortsteil)].AsInt() == 0))","type":"operation","Level":5,"Pos":85982},{"Code":"{","type":"block","Level":6,"Pos":86100},{"Code":"goto IL_40c3;","type":"goto","Level":6,"Pos":86101},{"Code":"}","type":"block","Level":6,"Pos":86178},{"Code":"else","type":"operation","Level":5,"Pos":86179},{"Code":"{","type":"block","Level":6,"Pos":86243},{"Code":"goto IL_40de;","type":"goto","Level":6,"Pos":86244},{"Code":"}","type":"block","Level":6,"Pos":86321},{"Code":"IL_40c3:","type":"label","Level":5,"Pos":86322},{"Code":"num = 740;","type":"operation","Level":5,"Pos":86356},{"Code":"StringType.MidStmtStr(ref Modul1.LiText, 20, 2,","type":"operation","Level":5,"Pos":86396},{"Code":"\u0022F \u0022","type":"string","Level":5,"Pos":86474},{"Code":");","type":"operation","Level":5,"Pos":86478},{"Code":"goto IL_40de;","type":"goto","Level":5,"Pos":86480},{"Code":"IL_40de:","type":"label","Level":5,"Pos":86523},{"Code":"num = 742;","type":"operation","Level":5,"Pos":86557},{"Code":"if","type":"operation","Level":5,"Pos":86597},{"Code":"((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Kreis)].AsInt() == 0))","type":"operation","Level":5,"Pos":86629},{"Code":"{","type":"block","Level":6,"Pos":86744},{"Code":"goto IL_4110;","type":"goto","Level":6,"Pos":86745},{"Code":"}","type":"block","Level":6,"Pos":86822},{"Code":"else","type":"operation","Level":5,"Pos":86823},{"Code":"{","type":"block","Level":6,"Pos":86887},{"Code":"goto IL_412b;","type":"goto","Level":6,"Pos":86888},{"Code":"}","type":"block","Level":6,"Pos":86965},{"Code":"IL_4110:","type":"label","Level":5,"Pos":86966},{"Code":"num = 743;","type":"operation","Level":5,"Pos":87000},{"Code":"StringType.MidStmtStr(ref Modul1.LiText, 28, 2,","type":"operation","Level":5,"Pos":87040},{"Code":"\u0022F \u0022","type":"string","Level":5,"Pos":87118},{"Code":");","type":"operation","Level":5,"Pos":87122},{"Code":"goto IL_412b;","type":"goto","Level":5,"Pos":87124},{"Code":"IL_412b:","type":"label","Level":5,"Pos":87167},{"Code":"num = 745;","type":"operation","Level":5,"Pos":87201},{"Code":"if","type":"operation","Level":5,"Pos":87241},{"Code":"((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Land)].AsInt() == 0))","type":"operation","Level":5,"Pos":87273},{"Code":"{","type":"block","Level":6,"Pos":87387},{"Code":"goto IL_415d;","type":"goto","Level":6,"Pos":87388},{"Code":"}","type":"block","Level":6,"Pos":87465},{"Code":"else","type":"operation","Level":5,"Pos":87466},{"Code":"{","type":"block","Level":6,"Pos":87530},{"Code":"goto IL_4178;","type":"goto","Level":6,"Pos":87531},{"Code":"}","type":"block","Level":6,"Pos":87608},{"Code":"IL_415d:","type":"label","Level":5,"Pos":87609},{"Code":"num = 746;","type":"operation","Level":5,"Pos":87643},{"Code":"StringType.MidStmtStr(ref Modul1.LiText, 34, 2,","type":"operation","Level":5,"Pos":87683},{"Code":"\u0022F \u0022","type":"string","Level":5,"Pos":87761},{"Code":");","type":"operation","Level":5,"Pos":87765},{"Code":"goto IL_4178;","type":"goto","Level":5,"Pos":87767},{"Code":"IL_4178:","type":"label","Level":5,"Pos":87810},{"Code":"num = 748;","type":"operation","Level":5,"Pos":87844},{"Code":"if","type":"operation","Level":5,"Pos":87884},{"Code":"((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Staat)].AsInt() == 0))","type":"operation","Level":5,"Pos":87916},{"Code":"{","type":"block","Level":6,"Pos":88031},{"Code":"goto IL_41aa;","type":"goto","Level":6,"Pos":88032},{"Code":"}","type":"block","Level":6,"Pos":88109},{"Code":"else","type":"operation","Level":5,"Pos":88110},{"Code":"{","type":"block","Level":6,"Pos":88174},{"Code":"goto IL_41c5;","type":"goto","Level":6,"Pos":88175},{"Code":"}","type":"block","Level":6,"Pos":88252},{"Code":"IL_41aa:","type":"label","Level":5,"Pos":88253},{"Code":"num = 749;","type":"operation","Level":5,"Pos":88287},{"Code":"StringType.MidStmtStr(ref Modul1.LiText, 39, 2,","type":"operation","Level":5,"Pos":88327},{"Code":"\u0022F \u0022","type":"string","Level":5,"Pos":88405},{"Code":");","type":"operation","Level":5,"Pos":88409},{"Code":"goto IL_41c5;","type":"goto","Level":5,"Pos":88411},{"Code":"IL_41c5:","type":"label","Level":5,"Pos":88454},{"Code":"num = 751;","type":"operation","Level":5,"Pos":88488},{"Code":"if","type":"operation","Level":5,"Pos":88528},{"Code":"(Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Loc)].AsString()) ==","type":"operation","Level":5,"Pos":88560},{"Code":"\u0022\u0022","type":"string","Level":5,"Pos":88656},{"Code":")","type":"operation","Level":5,"Pos":88658},{"Code":"{","type":"block","Level":6,"Pos":88689},{"Code":"goto IL_4203;","type":"goto","Level":6,"Pos":88690},{"Code":"}","type":"block","Level":6,"Pos":88767},{"Code":"else","type":"operation","Level":5,"Pos":88768},{"Code":"{","type":"block","Level":6,"Pos":88832},{"Code":"goto IL_421e;","type":"goto","Level":6,"Pos":88833},{"Code":"}","type":"block","Level":6,"Pos":88910},{"Code":"IL_4203:","type":"label","Level":5,"Pos":88911},{"Code":"num = 752;","type":"operation","Level":5,"Pos":88945},{"Code":"StringType.MidStmtStr(ref Modul1.LiText, 44, 2,","type":"operation","Level":5,"Pos":88985},{"Code":"\u0022F \u0022","type":"string","Level":5,"Pos":89063},{"Code":");","type":"operation","Level":5,"Pos":89067},{"Code":"goto IL_421e;","type":"goto","Level":5,"Pos":89069},{"Code":"IL_421e:","type":"label","Level":5,"Pos":89112},{"Code":"num = 754;","type":"operation","Level":5,"Pos":89146},{"Code":"if","type":"operation","Level":5,"Pos":89186},{"Code":"(Strings.Len(Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.L)].AsString())) \u003C= 1)","type":"operation","Level":5,"Pos":89218},{"Code":"{","type":"block","Level":6,"Pos":89357},{"Code":"goto IL_4259;","type":"goto","Level":6,"Pos":89358},{"Code":"}","type":"block","Level":6,"Pos":89435},{"Code":"else","type":"operation","Level":5,"Pos":89436},{"Code":"{","type":"block","Level":6,"Pos":89500},{"Code":"goto IL_4274;","type":"goto","Level":6,"Pos":89501},{"Code":"}","type":"block","Level":6,"Pos":89578},{"Code":"IL_4259:","type":"label","Level":5,"Pos":89579},{"Code":"num = 755;","type":"operation","Level":5,"Pos":89613},{"Code":"StringType.MidStmtStr(ref Modul1.LiText, 52, 2,","type":"operation","Level":5,"Pos":89653},{"Code":"\u0022F \u0022","type":"string","Level":5,"Pos":89731},{"Code":");","type":"operation","Level":5,"Pos":89735},{"Code":"goto IL_4274;","type":"goto","Level":5,"Pos":89737},{"Code":"IL_4274:","type":"label","Level":5,"Pos":89780},{"Code":"num = 757;","type":"operation","Level":5,"Pos":89814},{"Code":"if","type":"operation","Level":5,"Pos":89854},{"Code":"(Strings.Len(Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.B)].AsString())) \u003C= 1)","type":"operation","Level":5,"Pos":89886},{"Code":"{","type":"block","Level":6,"Pos":90025},{"Code":"goto IL_42af;","type":"goto","Level":6,"Pos":90026},{"Code":"}","type":"block","Level":6,"Pos":90103},{"Code":"else","type":"operation","Level":5,"Pos":90104},{"Code":"{","type":"block","Level":6,"Pos":90168},{"Code":"goto IL_42ca;","type":"goto","Level":6,"Pos":90169},{"Code":"}","type":"block","Level":6,"Pos":90246},{"Code":"IL_42af:","type":"label","Level":5,"Pos":90247},{"Code":"num = 758;","type":"operation","Level":5,"Pos":90281},{"Code":"StringType.MidStmtStr(ref Modul1.LiText, 58, 2,","type":"operation","Level":5,"Pos":90321},{"Code":"\u0022F \u0022","type":"string","Level":5,"Pos":90399},{"Code":");","type":"operation","Level":5,"Pos":90403},{"Code":"goto IL_42ca;","type":"goto","Level":5,"Pos":90405},{"Code":"IL_42ca:","type":"label","Level":5,"Pos":90448},{"Code":"num = 760;","type":"operation","Level":5,"Pos":90482},{"Code":"if","type":"operation","Level":5,"Pos":90522},{"Code":"(Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.PLZ)].AsString()) ==","type":"operation","Level":5,"Pos":90554},{"Code":"\u0022\u0022","type":"string","Level":5,"Pos":90650},{"Code":")","type":"operation","Level":5,"Pos":90652},{"Code":"{","type":"block","Level":6,"Pos":90683},{"Code":"goto IL_4308;","type":"goto","Level":6,"Pos":90684},{"Code":"}","type":"block","Level":6,"Pos":90761},{"Code":"else","type":"operation","Level":5,"Pos":90762},{"Code":"{","type":"block","Level":6,"Pos":90826},{"Code":"goto IL_4323;","type":"goto","Level":6,"Pos":90827},{"Code":"}","type":"block","Level":6,"Pos":90904},{"Code":"IL_4308:","type":"label","Level":5,"Pos":90905},{"Code":"num = 761;","type":"operation","Level":5,"Pos":90939},{"Code":"StringType.MidStmtStr(ref Modul1.LiText, 63, 2,","type":"operation","Level":5,"Pos":90979},{"Code":"\u0022F \u0022","type":"string","Level":5,"Pos":91057},{"Code":");","type":"operation","Level":5,"Pos":91061},{"Code":"goto IL_4323;","type":"goto","Level":5,"Pos":91063},{"Code":"IL_4323:","type":"label","Level":5,"Pos":91106},{"Code":"num = 763;","type":"operation","Level":5,"Pos":91140},{"Code":"if","type":"operation","Level":5,"Pos":91180},{"Code":"(Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Terr)].AsString()) ==","type":"operation","Level":5,"Pos":91212},{"Code":"\u0022\u0022","type":"string","Level":5,"Pos":91309},{"Code":")","type":"operation","Level":5,"Pos":91311},{"Code":"{","type":"block","Level":6,"Pos":91342},{"Code":"goto IL_4361;","type":"goto","Level":6,"Pos":91343},{"Code":"}","type":"block","Level":6,"Pos":91420},{"Code":"else","type":"operation","Level":5,"Pos":91421},{"Code":"{","type":"block","Level":6,"Pos":91485},{"Code":"goto IL_437c;","type":"goto","Level":6,"Pos":91486},{"Code":"}","type":"block","Level":6,"Pos":91563},{"Code":"IL_4361:","type":"label","Level":5,"Pos":91564},{"Code":"num = 764;","type":"operation","Level":5,"Pos":91598},{"Code":"StringType.MidStmtStr(ref Modul1.LiText, 68, 2,","type":"operation","Level":5,"Pos":91638},{"Code":"\u0022F \u0022","type":"string","Level":5,"Pos":91716},{"Code":");","type":"operation","Level":5,"Pos":91720},{"Code":"goto IL_437c;","type":"goto","Level":5,"Pos":91722},{"Code":"IL_437c:","type":"label","Level":5,"Pos":91765},{"Code":"num = 766;","type":"operation","Level":5,"Pos":91799},{"Code":"if","type":"operation","Level":5,"Pos":91839},{"Code":"(Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Staatk)].AsString()) ==","type":"operation","Level":5,"Pos":91871},{"Code":"\u0022\u0022","type":"string","Level":5,"Pos":91970},{"Code":")","type":"operation","Level":5,"Pos":91972},{"Code":"{","type":"block","Level":6,"Pos":92003},{"Code":"goto IL_43ba;","type":"goto","Level":6,"Pos":92004},{"Code":"}","type":"block","Level":6,"Pos":92081},{"Code":"else","type":"operation","Level":5,"Pos":92082},{"Code":"{","type":"block","Level":6,"Pos":92146},{"Code":"goto IL_43d5;","type":"goto","Level":6,"Pos":92147},{"Code":"}","type":"block","Level":6,"Pos":92224},{"Code":"IL_43ba:","type":"label","Level":5,"Pos":92225},{"Code":"num = 767;","type":"operation","Level":5,"Pos":92259},{"Code":"StringType.MidStmtStr(ref Modul1.LiText, 71, 2,","type":"operation","Level":5,"Pos":92299},{"Code":"\u0022F \u0022","type":"string","Level":5,"Pos":92377},{"Code":");","type":"operation","Level":5,"Pos":92381},{"Code":"goto IL_43d5;","type":"goto","Level":5,"Pos":92383},{"Code":"IL_43d5:","type":"label","Level":5,"Pos":92426},{"Code":"num = 769;","type":"operation","Level":5,"Pos":92460},{"Code":"List2.Items.Add(Modul1.LiText);","type":"operation","Level":5,"Pos":92500},{"Code":"goto IL_43f2;","type":"goto","Level":5,"Pos":92561},{"Code":"IL_43f2:","type":"label","Level":5,"Pos":92604},{"Code":"num = 770;","type":"operation","Level":5,"Pos":92638},{"Code":"Modul1.LiText = new string(\u0027 \u0027, 80);","type":"operation","Level":5,"Pos":92678},{"Code":"goto IL_4407;","type":"goto","Level":5,"Pos":92744},{"Code":"IL_4407:","type":"label","Level":5,"Pos":92787},{"Code":"num = 771;","type":"operation","Level":5,"Pos":92821},{"Code":"DataModul.DB_PlaceTable.MoveNext();","type":"operation","Level":5,"Pos":92861},{"Code":"goto IL_441a;","type":"goto","Level":5,"Pos":92926},{"Code":"IL_4439:","type":"label","Level":5,"Pos":92969},{"Code":"num = 774;","type":"operation","Level":5,"Pos":93003},{"Code":"goto IL_4441;","type":"goto","Level":5,"Pos":93043},{"Code":"IL_4441:","type":"label","Level":5,"Pos":93086},{"Code":"num = 775;","type":"operation","Level":5,"Pos":93120},{"Code":"DataModul.DB_PlaceTable.MoveNext();","type":"operation","Level":5,"Pos":93160},{"Code":"goto IL_4454;","type":"goto","Level":5,"Pos":93225},{"Code":"IL_4454:","type":"label","Level":5,"Pos":93268},{"Code":"num = 777;","type":"operation","Level":5,"Pos":93302},{"Code":"if","type":"operation","Level":5,"Pos":93342},{"Code":"(DataModul.DB_PlaceTable.EOF)","type":"operation","Level":5,"Pos":93374},{"Code":"{","type":"block","Level":6,"Pos":93434},{"Code":"goto IL_446b;","type":"goto","Level":6,"Pos":93435},{"Code":"}","type":"block","Level":6,"Pos":93512},{"Code":"else","type":"operation","Level":5,"Pos":93513},{"Code":"{","type":"block","Level":6,"Pos":93577},{"Code":"goto IL_448a;","type":"goto","Level":6,"Pos":93578},{"Code":"}","type":"block","Level":6,"Pos":93655},{"Code":"IL_446b:","type":"label","Level":5,"Pos":93656},{"Code":"num = 778;","type":"operation","Level":5,"Pos":93690},{"Code":"List2.Items.Add(","type":"operation","Level":5,"Pos":93730},{"Code":"\u0022Ende der Liste\u0022","type":"string","Level":5,"Pos":93776},{"Code":");","type":"operation","Level":5,"Pos":93792},{"Code":"goto IL_448a;","type":"goto","Level":5,"Pos":93794},{"Code":"IL_3406:","type":"label","Level":5,"Pos":93837},{"Code":"num = 618;","type":"operation","Level":5,"Pos":93871},{"Code":"List1.Items.Clear();","type":"operation","Level":5,"Pos":93911},{"Code":"goto IL_341e;","type":"goto","Level":5,"Pos":93961},{"Code":"IL_341e:","type":"label","Level":5,"Pos":94004},{"Code":"num = 619;","type":"operation","Level":5,"Pos":94038},{"Code":"Label1[2].Text = Modul1.IText[84];","type":"operation","Level":5,"Pos":94078},{"Code":"goto IL_343f;","type":"goto","Level":5,"Pos":94142},{"Code":"IL_343f:","type":"label","Level":5,"Pos":94185},{"Code":"num = 620;","type":"operation","Level":5,"Pos":94219},{"Code":"Label1[0].Text =","type":"operation","Level":5,"Pos":94259},{"Code":"\u0022Name Elternteil Kind Pate Zeuge Adoptivkind verbunden\u0022","type":"string","Level":5,"Pos":94306},{"Code":";","type":"operation","Level":5,"Pos":94379},{"Code":"goto IL_345d;","type":"goto","Level":5,"Pos":94380},{"Code":"IL_345d:","type":"label","Level":5,"Pos":94423},{"Code":"num = 621;","type":"operation","Level":5,"Pos":94457},{"Code":"num7 = 1;","type":"operation","Level":5,"Pos":94497},{"Code":"goto IL_3467;","type":"goto","Level":5,"Pos":94536},{"Code":"IL_3467:","type":"label","Level":5,"Pos":94579},{"Code":"num = 622;","type":"operation","Level":5,"Pos":94613},{"Code":"if","type":"operation","Level":5,"Pos":94653},{"Code":"(num7 \u003C= 0)","type":"operation","Level":5,"Pos":94685},{"Code":"{","type":"block","Level":6,"Pos":94727},{"Code":"goto end_IL_0001_2;","type":"goto","Level":6,"Pos":94728},{"Code":"}","type":"block","Level":6,"Pos":94811},{"Code":"goto IL_3482;","type":"goto","Level":5,"Pos":94812},{"Code":"IL_3482:","type":"label","Level":5,"Pos":94855},{"Code":"num = 625;","type":"operation","Level":5,"Pos":94889},{"Code":"DataModul.DB_PersonTable.Index = nameof(DataModul.PersonIndex.PerNr);","type":"operation","Level":5,"Pos":94929},{"Code":"goto IL_3499;","type":"goto","Level":5,"Pos":95028},{"Code":"IL_3499:","type":"label","Level":5,"Pos":95071},{"Code":"num = 626;","type":"operation","Level":5,"Pos":95105},{"Code":"DataModul.DB_PersonTable.MoveLast();","type":"operation","Level":5,"Pos":95145},{"Code":"goto IL_34ac;","type":"goto","Level":5,"Pos":95211},{"Code":"IL_34ac:","type":"label","Level":5,"Pos":95254},{"Code":"num = 627;","type":"operation","Level":5,"Pos":95288},{"Code":"num8 = DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value.AsInt();","type":"operation","Level":5,"Pos":95328},{"Code":"goto IL_34d3;","type":"goto","Level":5,"Pos":95450},{"Code":"IL_34d3:","type":"label","Level":5,"Pos":95493},{"Code":"num = 628;","type":"operation","Level":5,"Pos":95527},{"Code":"if","type":"operation","Level":5,"Pos":95567},{"Code":"(num7 == 0)","type":"operation","Level":5,"Pos":95599},{"Code":"{","type":"block","Level":6,"Pos":95641},{"Code":"goto end_IL_0001_2;","type":"goto","Level":6,"Pos":95642},{"Code":"}","type":"block","Level":6,"Pos":95725},{"Code":"goto IL_34eb;","type":"goto","Level":5,"Pos":95726},{"Code":"IL_34eb:","type":"label","Level":5,"Pos":95769},{"Code":"num = 631;","type":"operation","Level":5,"Pos":95803},{"Code":"if","type":"operation","Level":5,"Pos":95843},{"Code":"((num7 \u003E DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value))","type":"operation","Level":5,"Pos":95875},{"Code":"{","type":"block","Level":6,"Pos":95993},{"Code":"goto IL_351e;","type":"goto","Level":6,"Pos":95994},{"Code":"}","type":"block","Level":6,"Pos":96071},{"Code":"else","type":"operation","Level":5,"Pos":96072},{"Code":"{","type":"block","Level":6,"Pos":96136},{"Code":"goto IL_355f;","type":"goto","Level":6,"Pos":96137},{"Code":"}","type":"block","Level":6,"Pos":96214},{"Code":"IL_351e:","type":"label","Level":5,"Pos":96215},{"Code":"num = 632;","type":"operation","Level":5,"Pos":96249},{"Code":"Interaction.MsgBox(Modul1.IText[173] \u002B","type":"operation","Level":5,"Pos":96289},{"Code":"\u0022 \u0022","type":"string","Level":5,"Pos":96358},{"Code":"\u002B num7.AsString() \u002B Modul1.IText[172]);","type":"operation","Level":5,"Pos":96361},{"Code":"goto end_IL_0001_2;","type":"goto","Level":5,"Pos":96401},{"Code":"IL_355f:","type":"label","Level":5,"Pos":96450},{"Code":"num = 635;","type":"operation","Level":5,"Pos":96484},{"Code":"Label1[1].Text =","type":"operation","Level":5,"Pos":96524},{"Code":"\u0022unvollst\u00E4ndig verkn\u00FCpfte Personen \u0022","type":"string","Level":5,"Pos":96571},{"Code":";","type":"operation","Level":5,"Pos":96607},{"Code":"goto IL_357d;","type":"goto","Level":5,"Pos":96608},{"Code":"IL_357d:","type":"label","Level":5,"Pos":96651},{"Code":"num = 636;","type":"operation","Level":5,"Pos":96685},{"Code":"Modul1.Schalt = 3;","type":"operation","Level":5,"Pos":96725},{"Code":"goto IL_358a;","type":"goto","Level":5,"Pos":96773},{"Code":"IL_358a:","type":"label","Level":5,"Pos":96816},{"Code":"num = 637;","type":"operation","Level":5,"Pos":96850},{"Code":"ProgressBar1.Minimum = 0;","type":"operation","Level":5,"Pos":96890},{"Code":"goto IL_359e;","type":"goto","Level":5,"Pos":96945},{"Code":"IL_359e:","type":"label","Level":5,"Pos":96988},{"Code":"num = 638;","type":"operation","Level":5,"Pos":97022},{"Code":"ProgressBar1.Maximum = 0;","type":"operation","Level":5,"Pos":97062},{"Code":"goto IL_35b2;","type":"goto","Level":5,"Pos":97117},{"Code":"IL_35b2:","type":"label","Level":5,"Pos":97160},{"Code":"num = 639;","type":"operation","Level":5,"Pos":97194},{"Code":"ProgressBar1.Step = 1;","type":"operation","Level":5,"Pos":97234},{"Code":"goto IL_35c6;","type":"goto","Level":5,"Pos":97286},{"Code":"IL_35c6:","type":"label","Level":5,"Pos":97329},{"Code":"num = 640;","type":"operation","Level":5,"Pos":97363},{"Code":"ProgressBar1.Maximum = DataModul.DB_PersonTable.RecordCount - 1;","type":"operation","Level":5,"Pos":97403},{"Code":"goto IL_35e5;","type":"goto","Level":5,"Pos":97497},{"Code":"IL_35e5:","type":"label","Level":5,"Pos":97540},{"Code":"num = 641;","type":"operation","Level":5,"Pos":97574},{"Code":"i3 = num7;","type":"operation","Level":5,"Pos":97614},{"Code":"num9 = DataModul.DB_PersonTable.RecordCount - 1;","type":"operation","Level":5,"Pos":97654},{"Code":"I1 = i3;","type":"operation","Level":5,"Pos":97732},{"Code":"goto IL_3dfe;","type":"goto","Level":5,"Pos":97770},{"Code":"IL_3dfe:","type":"label","Level":5,"Pos":97813},{"Code":"i4 = I1;","type":"operation","Level":5,"Pos":97847},{"Code":"num5 = num9;","type":"operation","Level":5,"Pos":97885},{"Code":"if","type":"operation","Level":5,"Pos":97927},{"Code":"(i4 \u003C= num5)","type":"operation","Level":5,"Pos":97959},{"Code":"{","type":"block","Level":6,"Pos":98002},{"Code":"goto IL_3607;","type":"goto","Level":6,"Pos":98003},{"Code":"}","type":"block","Level":6,"Pos":98080},{"Code":"else","type":"operation","Level":5,"Pos":98081},{"Code":"{","type":"block","Level":6,"Pos":98145},{"Code":"goto IL_3e0f;","type":"goto","Level":6,"Pos":98146},{"Code":"}","type":"block","Level":6,"Pos":98223},{"Code":"IL_3e0f:","type":"label","Level":5,"Pos":98224},{"Code":"num = 713;","type":"operation","Level":5,"Pos":98258},{"Code":"Label4.Text = List1.Items.Count - 1.AsString() \u002B","type":"operation","Level":5,"Pos":98298},{"Code":"\u0022 Eintr\u00E4ge\u0022","type":"string","Level":5,"Pos":98377},{"Code":";","type":"operation","Level":5,"Pos":98388},{"Code":"goto IL_448a;","type":"goto","Level":5,"Pos":98389},{"Code":"IL_3607:","type":"label","Level":5,"Pos":98432},{"Code":"num = 642;","type":"operation","Level":5,"Pos":98466},{"Code":"ProgressBar1.PerformStep();","type":"operation","Level":5,"Pos":98506},{"Code":"goto IL_361a;","type":"goto","Level":5,"Pos":98563},{"Code":"IL_361a:","type":"label","Level":5,"Pos":98606},{"Code":"num = 643;","type":"operation","Level":5,"Pos":98640},{"Code":"Application.DoEvents();","type":"operation","Level":5,"Pos":98680},{"Code":"goto IL_3627;","type":"goto","Level":5,"Pos":98733},{"Code":"IL_3627:","type":"label","Level":5,"Pos":98776},{"Code":"num = 644;","type":"operation","Level":5,"Pos":98810},{"Code":"Modul1.PersInArb = I1;","type":"operation","Level":5,"Pos":98850},{"Code":"goto IL_3639;","type":"goto","Level":5,"Pos":98902},{"Code":"IL_3639:","type":"label","Level":5,"Pos":98945},{"Code":"num = 645;","type":"operation","Level":5,"Pos":98979},{"Code":"sDest = new string(\u0027 \u0027, 80);","type":"operation","Level":5,"Pos":99019},{"Code":"goto IL_364b;","type":"goto","Level":5,"Pos":99077},{"Code":"IL_364b:","type":"label","Level":5,"Pos":99120},{"Code":"num = 646;","type":"operation","Level":5,"Pos":99154},{"Code":"if","type":"operation","Level":5,"Pos":99194},{"Code":"(Modul1.PersInArb \u003C= num8)","type":"operation","Level":5,"Pos":99226},{"Code":"{","type":"block","Level":6,"Pos":99283},{"Code":"goto IL_3666;","type":"goto","Level":6,"Pos":99284},{"Code":"}","type":"block","Level":6,"Pos":99361},{"Code":"else","type":"operation","Level":5,"Pos":99362},{"Code":"{","type":"block","Level":6,"Pos":99426},{"Code":"goto IL_448a;","type":"goto","Level":6,"Pos":99427},{"Code":"}","type":"block","Level":6,"Pos":99504},{"Code":"IL_3666:","type":"label","Level":5,"Pos":99505},{"Code":"num = 649;","type":"operation","Level":5,"Pos":99539},{"Code":"DataModul.DB_PersonTable.Seek(","type":"operation","Level":5,"Pos":99579},{"Code":"\u0022=\u0022","type":"string","Level":5,"Pos":99639},{"Code":", Modul1.PersInArb.AsString());","type":"operation","Level":5,"Pos":99642},{"Code":"goto IL_36c8;","type":"goto","Level":5,"Pos":99673},{"Code":"IL_36c8:","type":"label","Level":5,"Pos":99716},{"Code":"num = 650;","type":"operation","Level":5,"Pos":99750},{"Code":"if","type":"operation","Level":5,"Pos":99790},{"Code":"(!DataModul.DB_PersonTable.NoMatch)","type":"operation","Level":5,"Pos":99822},{"Code":"{","type":"block","Level":6,"Pos":99888},{"Code":"goto IL_36e4;","type":"goto","Level":6,"Pos":99889},{"Code":"}","type":"block","Level":6,"Pos":99966},{"Code":"else","type":"operation","Level":5,"Pos":99967},{"Code":"{","type":"block","Level":6,"Pos":100031},{"Code":"goto IL_3de8;","type":"goto","Level":6,"Pos":100032},{"Code":"}","type":"block","Level":6,"Pos":100109},{"Code":"IL_36e4:","type":"label","Level":5,"Pos":100110},{"Code":"num = 653;","type":"operation","Level":5,"Pos":100144},{"Code":"LiKi = 1;","type":"operation","Level":5,"Pos":100184},{"Code":"goto IL_36f2;","type":"goto","Level":5,"Pos":100223},{"Code":"IL_36f2:","type":"label","Level":5,"Pos":100266},{"Code":"num = 654;","type":"operation","Level":5,"Pos":100300},{"Code":"LiEl = 1;","type":"operation","Level":5,"Pos":100340},{"Code":"goto IL_3700;","type":"goto","Level":5,"Pos":100379},{"Code":"IL_3700:","type":"label","Level":5,"Pos":100422},{"Code":"num = 655;","type":"operation","Level":5,"Pos":100456},{"Code":"","type":"operation","Level":5,"Pos":100496},{"Code":"//LiPa = 1;","type":"lComment","Level":5,"Pos":100526},{"Code":"goto IL_370e;","type":"goto","Level":5,"Pos":100538},{"Code":"IL_370e:","type":"label","Level":5,"Pos":100580},{"Code":"num = 656;","type":"operation","Level":5,"Pos":100614},{"Code":"Modul1.Kenn = 3f;","type":"operation","Level":5,"Pos":100654},{"Code":"goto IL_371f;","type":"goto","Level":5,"Pos":100701},{"Code":"IL_371f:","type":"label","Level":5,"Pos":100744},{"Code":"num = 657;","type":"operation","Level":5,"Pos":100778},{"Code":"DataModul.DB_LinkTable.Index = nameof(DataModul.LinkIndex.ElSu);","type":"operation","Level":5,"Pos":100818},{"Code":"goto IL_3736;","type":"goto","Level":5,"Pos":100912},{"Code":"IL_3736:","type":"label","Level":5,"Pos":100955},{"Code":"num = 658;","type":"operation","Level":5,"Pos":100989},{"Code":"DataModul.DB_LinkTable.Seek(","type":"operation","Level":5,"Pos":101029},{"Code":"\u0022=\u0022","type":"string","Level":5,"Pos":101087},{"Code":", Modul1.PersInArb.AsString(), Modul1.Kenn);","type":"operation","Level":5,"Pos":101090},{"Code":"goto IL_379d;","type":"goto","Level":5,"Pos":101134},{"Code":"IL_379d:","type":"label","Level":5,"Pos":101177},{"Code":"num = 659;","type":"operation","Level":5,"Pos":101211},{"Code":"if","type":"operation","Level":5,"Pos":101251},{"Code":"(DataModul.DB_LinkTable.NoMatch)","type":"operation","Level":5,"Pos":101283},{"Code":"{","type":"block","Level":6,"Pos":101346},{"Code":"goto IL_37b4;","type":"goto","Level":6,"Pos":101347},{"Code":"}","type":"block","Level":6,"Pos":101424},{"Code":"else","type":"operation","Level":5,"Pos":101425},{"Code":"{","type":"block","Level":6,"Pos":101489},{"Code":"goto IL_37c2;","type":"goto","Level":6,"Pos":101490},{"Code":"}","type":"block","Level":6,"Pos":101567},{"Code":"IL_37b4:","type":"label","Level":5,"Pos":101568},{"Code":"num = 660;","type":"operation","Level":5,"Pos":101602},{"Code":"LiKi = 0;","type":"operation","Level":5,"Pos":101642},{"Code":"goto IL_37c2;","type":"goto","Level":5,"Pos":101681},{"Code":"IL_37c2:","type":"label","Level":5,"Pos":101724},{"Code":"num = 662;","type":"operation","Level":5,"Pos":101758},{"Code":"Modul1.Kenn = 1f;","type":"operation","Level":5,"Pos":101798},{"Code":"goto IL_37d3;","type":"goto","Level":5,"Pos":101845},{"Code":"IL_37d3:","type":"label","Level":5,"Pos":101888},{"Code":"num = 663;","type":"operation","Level":5,"Pos":101922},{"Code":"Modul1.PerSatzLes();","type":"operation","Level":5,"Pos":101962},{"Code":"goto IL_37e0;","type":"goto","Level":5,"Pos":102012},{"Code":"IL_37e0:","type":"label","Level":5,"Pos":102055},{"Code":"num = 664;","type":"operation","Level":5,"Pos":102089},{"Code":"if","type":"operation","Level":5,"Pos":102129},{"Code":"((DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.Sex)].AsString() ==","type":"operation","Level":5,"Pos":102161},{"Code":"\u0022F\u0022","type":"string","Level":5,"Pos":102246},{"Code":"))","type":"operation","Level":5,"Pos":102249},{"Code":"{","type":"block","Level":6,"Pos":102281},{"Code":"goto IL_3811;","type":"goto","Level":6,"Pos":102282},{"Code":"}","type":"block","Level":6,"Pos":102359},{"Code":"else","type":"operation","Level":5,"Pos":102360},{"Code":"{","type":"block","Level":6,"Pos":102424},{"Code":"goto IL_3822;","type":"goto","Level":6,"Pos":102425},{"Code":"}","type":"block","Level":6,"Pos":102502},{"Code":"IL_3811:","type":"label","Level":5,"Pos":102503},{"Code":"num = 665;","type":"operation","Level":5,"Pos":102537},{"Code":"Modul1.Kenn = 2f;","type":"operation","Level":5,"Pos":102577},{"Code":"goto IL_3822;","type":"goto","Level":5,"Pos":102624},{"Code":"IL_3822:","type":"label","Level":5,"Pos":102667},{"Code":"num = 667;","type":"operation","Level":5,"Pos":102701},{"Code":"DataModul.DB_LinkTable.Index = nameof(DataModul.LinkIndex.ElSu);","type":"operation","Level":5,"Pos":102741},{"Code":"goto IL_3839;","type":"goto","Level":5,"Pos":102835},{"Code":"IL_3839:","type":"label","Level":5,"Pos":102878},{"Code":"num = 668;","type":"operation","Level":5,"Pos":102912},{"Code":"DataModul.DB_LinkTable.Seek(","type":"operation","Level":5,"Pos":102952},{"Code":"\u0022=\u0022","type":"string","Level":5,"Pos":103010},{"Code":", Modul1.PersInArb.AsString(), Modul1.Kenn);","type":"operation","Level":5,"Pos":103013},{"Code":"goto IL_38a0;","type":"goto","Level":5,"Pos":103057},{"Code":"IL_38a0:","type":"label","Level":5,"Pos":103100},{"Code":"num = 669;","type":"operation","Level":5,"Pos":103134},{"Code":"if","type":"operation","Level":5,"Pos":103174},{"Code":"(DataModul.DB_LinkTable.NoMatch)","type":"operation","Level":5,"Pos":103206},{"Code":"{","type":"block","Level":6,"Pos":103269},{"Code":"goto IL_38b7;","type":"goto","Level":6,"Pos":103270},{"Code":"}","type":"block","Level":6,"Pos":103347},{"Code":"else","type":"operation","Level":5,"Pos":103348},{"Code":"{","type":"block","Level":6,"Pos":103412},{"Code":"goto IL_38c5;","type":"goto","Level":6,"Pos":103413},{"Code":"}","type":"block","Level":6,"Pos":103490},{"Code":"IL_38b7:","type":"label","Level":5,"Pos":103491},{"Code":"num = 670;","type":"operation","Level":5,"Pos":103525},{"Code":"LiEl = 0;","type":"operation","Level":5,"Pos":103565},{"Code":"goto IL_38c5;","type":"goto","Level":5,"Pos":103604},{"Code":"IL_38c5:","type":"label","Level":5,"Pos":103647},{"Code":"num = 672;","type":"operation","Level":5,"Pos":103681},{"Code":"if","type":"operation","Level":5,"Pos":103721},{"Code":"((LiKi == 0) \u0026 (LiEl == 0))","type":"operation","Level":5,"Pos":103753},{"Code":"{","type":"block","Level":6,"Pos":103811},{"Code":"goto IL_38e8;","type":"goto","Level":6,"Pos":103812},{"Code":"}","type":"block","Level":6,"Pos":103889},{"Code":"else","type":"operation","Level":5,"Pos":103890},{"Code":"{","type":"block","Level":6,"Pos":103954},{"Code":"goto IL_3de8;","type":"goto","Level":6,"Pos":103955},{"Code":"}","type":"block","Level":6,"Pos":104032},{"Code":"IL_38e8:","type":"label","Level":5,"Pos":104033},{"Code":"num = 673;","type":"operation","Level":5,"Pos":104067},{"Code":"Modul1.Personlesen(Modul1.PersInArb);","type":"operation","Level":5,"Pos":104107},{"Code":"goto IL_38f5;","type":"goto","Level":5,"Pos":104174},{"Code":"IL_38f5:","type":"label","Level":5,"Pos":104217},{"Code":"num = 674;","type":"operation","Level":5,"Pos":104251},{"Code":"StringType.MidStmtStr(ref sDest, 1, 20, Strings.Left((Modul1.Kont[0]).Trim() \u002B","type":"operation","Level":5,"Pos":104291},{"Code":"\u0022,\u0022","type":"string","Level":5,"Pos":104400},{"Code":"\u002B (Modul1.Kont[3]).Trim() \u002B","type":"operation","Level":5,"Pos":104403},{"Code":"\u0022 \u0022","type":"string","Level":5,"Pos":104432},{"Code":", 20));","type":"operation","Level":5,"Pos":104468},{"Code":"goto IL_3935;","type":"goto","Level":5,"Pos":104475},{"Code":"IL_3935:","type":"label","Level":5,"Pos":104518},{"Code":"num = 675;","type":"operation","Level":5,"Pos":104552},{"Code":"if","type":"operation","Level":5,"Pos":104592},{"Code":"(LiEl == 0)","type":"operation","Level":5,"Pos":104624},{"Code":"{","type":"block","Level":6,"Pos":104666},{"Code":"goto IL_394b;","type":"goto","Level":6,"Pos":104667},{"Code":"}","type":"block","Level":6,"Pos":104744},{"Code":"else","type":"operation","Level":5,"Pos":104745},{"Code":"{","type":"block","Level":6,"Pos":104809},{"Code":"goto IL_3962;","type":"goto","Level":6,"Pos":104810},{"Code":"}","type":"block","Level":6,"Pos":104887},{"Code":"IL_394b:","type":"label","Level":5,"Pos":104888},{"Code":"num = 676;","type":"operation","Level":5,"Pos":104922},{"Code":"StringType.MidStmtStr(ref sDest, 24, 1,","type":"operation","Level":5,"Pos":104962},{"Code":"\u0022N\u0022","type":"string","Level":5,"Pos":105032},{"Code":");","type":"operation","Level":5,"Pos":105035},{"Code":"goto IL_3962;","type":"goto","Level":5,"Pos":105037},{"Code":"IL_3962:","type":"label","Level":5,"Pos":105080},{"Code":"num = 678;","type":"operation","Level":5,"Pos":105114},{"Code":"if","type":"operation","Level":5,"Pos":105154},{"Code":"(LiKi == 0)","type":"operation","Level":5,"Pos":105186},{"Code":"{","type":"block","Level":6,"Pos":105228},{"Code":"goto IL_3978;","type":"goto","Level":6,"Pos":105229},{"Code":"}","type":"block","Level":6,"Pos":105306},{"Code":"else","type":"operation","Level":5,"Pos":105307},{"Code":"{","type":"block","Level":6,"Pos":105371},{"Code":"goto IL_398f;","type":"goto","Level":6,"Pos":105372},{"Code":"}","type":"block","Level":6,"Pos":105449},{"Code":"IL_3978:","type":"label","Level":5,"Pos":105450},{"Code":"num = 679;","type":"operation","Level":5,"Pos":105484},{"Code":"StringType.MidStmtStr(ref sDest, 30, 1,","type":"operation","Level":5,"Pos":105524},{"Code":"\u0022N\u0022","type":"string","Level":5,"Pos":105594},{"Code":");","type":"operation","Level":5,"Pos":105597},{"Code":"goto IL_398f;","type":"goto","Level":5,"Pos":105599},{"Code":"IL_398f:","type":"label","Level":5,"Pos":105642},{"Code":"num = 681;","type":"operation","Level":5,"Pos":105676},{"Code":"DataModul.DB_LinkTable.Seek(","type":"operation","Level":5,"Pos":105716},{"Code":"\u0022=\u0022","type":"string","Level":5,"Pos":105774},{"Code":", Modul1.PersInArb.AsString(), 4);","type":"operation","Level":5,"Pos":105777},{"Code":"goto IL_39f2;","type":"goto","Level":5,"Pos":105811},{"Code":"IL_39f2:","type":"label","Level":5,"Pos":105854},{"Code":"num = 682;","type":"operation","Level":5,"Pos":105888},{"Code":"if","type":"operation","Level":5,"Pos":105928},{"Code":"(!DataModul.DB_LinkTable.NoMatch)","type":"operation","Level":5,"Pos":105960},{"Code":"{","type":"block","Level":6,"Pos":106024},{"Code":"goto IL_3a0c;","type":"goto","Level":6,"Pos":106025},{"Code":"}","type":"block","Level":6,"Pos":106102},{"Code":"else","type":"operation","Level":5,"Pos":106103},{"Code":"{","type":"block","Level":6,"Pos":106167},{"Code":"goto IL_3a23;","type":"goto","Level":6,"Pos":106168},{"Code":"}","type":"block","Level":6,"Pos":106245},{"Code":"IL_3a0c:","type":"label","Level":5,"Pos":106246},{"Code":"num = 683;","type":"operation","Level":5,"Pos":106280},{"Code":"StringType.MidStmtStr(ref sDest, 36, 1,","type":"operation","Level":5,"Pos":106320},{"Code":"\u0022J\u0022","type":"string","Level":5,"Pos":106390},{"Code":");","type":"operation","Level":5,"Pos":106393},{"Code":"goto IL_3a23;","type":"goto","Level":5,"Pos":106395},{"Code":"IL_3a23:","type":"label","Level":5,"Pos":106438},{"Code":"num = 685;","type":"operation","Level":5,"Pos":106472},{"Code":"DataModul.DB_LinkTable.Seek(","type":"operation","Level":5,"Pos":106512},{"Code":"\u0022=\u0022","type":"string","Level":5,"Pos":106570},{"Code":", Modul1.PersInArb.AsString(), 5);","type":"operation","Level":5,"Pos":106573},{"Code":"goto IL_3a86;","type":"goto","Level":5,"Pos":106607},{"Code":"IL_3a86:","type":"label","Level":5,"Pos":106650},{"Code":"num = 686;","type":"operation","Level":5,"Pos":106684},{"Code":"if","type":"operation","Level":5,"Pos":106724},{"Code":"(!DataModul.DB_LinkTable.NoMatch)","type":"operation","Level":5,"Pos":106756},{"Code":"{","type":"block","Level":6,"Pos":106820},{"Code":"goto IL_3aa0;","type":"goto","Level":6,"Pos":106821},{"Code":"}","type":"block","Level":6,"Pos":106898},{"Code":"else","type":"operation","Level":5,"Pos":106899},{"Code":"{","type":"block","Level":6,"Pos":106963},{"Code":"goto IL_3ab7;","type":"goto","Level":6,"Pos":106964},{"Code":"}","type":"block","Level":6,"Pos":107041},{"Code":"IL_3aa0:","type":"label","Level":5,"Pos":107042},{"Code":"num = 687;","type":"operation","Level":5,"Pos":107076},{"Code":"StringType.MidStmtStr(ref sDest, 46, 1,","type":"operation","Level":5,"Pos":107116},{"Code":"\u0022J\u0022","type":"string","Level":5,"Pos":107186},{"Code":");","type":"operation","Level":5,"Pos":107189},{"Code":"goto IL_3ab7;","type":"goto","Level":5,"Pos":107191},{"Code":"IL_3ab7:","type":"label","Level":5,"Pos":107234},{"Code":"num = 689;","type":"operation","Level":5,"Pos":107268},{"Code":"DataModul.DB_LinkTable.Seek(","type":"operation","Level":5,"Pos":107308},{"Code":"\u0022=\u0022","type":"string","Level":5,"Pos":107366},{"Code":", Modul1.PersInArb.AsString(), 6);","type":"operation","Level":5,"Pos":107369},{"Code":"goto IL_3b1a;","type":"goto","Level":5,"Pos":107403},{"Code":"IL_3b1a:","type":"label","Level":5,"Pos":107446},{"Code":"num = 690;","type":"operation","Level":5,"Pos":107480},{"Code":"if","type":"operation","Level":5,"Pos":107520},{"Code":"(!DataModul.DB_LinkTable.NoMatch)","type":"operation","Level":5,"Pos":107552},{"Code":"{","type":"block","Level":6,"Pos":107616},{"Code":"goto IL_3b34;","type":"goto","Level":6,"Pos":107617},{"Code":"}","type":"block","Level":6,"Pos":107694},{"Code":"else","type":"operation","Level":5,"Pos":107695},{"Code":"{","type":"block","Level":6,"Pos":107759},{"Code":"goto IL_3b4b;","type":"goto","Level":6,"Pos":107760},{"Code":"}","type":"block","Level":6,"Pos":107837},{"Code":"IL_3b34:","type":"label","Level":5,"Pos":107838},{"Code":"num = 691;","type":"operation","Level":5,"Pos":107872},{"Code":"StringType.MidStmtStr(ref sDest, 46, 1,","type":"operation","Level":5,"Pos":107912},{"Code":"\u0022J\u0022","type":"string","Level":5,"Pos":107982},{"Code":");","type":"operation","Level":5,"Pos":107985},{"Code":"goto IL_3b4b;","type":"goto","Level":5,"Pos":107987},{"Code":"IL_3b4b:","type":"label","Level":5,"Pos":108030},{"Code":"num = 693;","type":"operation","Level":5,"Pos":108064},{"Code":"DataModul.DB_LinkTable.Seek(","type":"operation","Level":5,"Pos":108104},{"Code":"\u0022=\u0022","type":"string","Level":5,"Pos":108162},{"Code":", Modul1.PersInArb.AsString(), 7);","type":"operation","Level":5,"Pos":108165},{"Code":"goto IL_3bae;","type":"goto","Level":5,"Pos":108199},{"Code":"IL_3bae:","type":"label","Level":5,"Pos":108242},{"Code":"num = 694;","type":"operation","Level":5,"Pos":108276},{"Code":"if","type":"operation","Level":5,"Pos":108316},{"Code":"(!DataModul.DB_LinkTable.NoMatch)","type":"operation","Level":5,"Pos":108348},{"Code":"{","type":"block","Level":6,"Pos":108412},{"Code":"goto IL_3bc8;","type":"goto","Level":6,"Pos":108413},{"Code":"}","type":"block","Level":6,"Pos":108490},{"Code":"else","type":"operation","Level":5,"Pos":108491},{"Code":"{","type":"block","Level":6,"Pos":108555},{"Code":"goto IL_3bdf;","type":"goto","Level":6,"Pos":108556},{"Code":"}","type":"block","Level":6,"Pos":108633},{"Code":"IL_3bc8:","type":"label","Level":5,"Pos":108634},{"Code":"num = 695;","type":"operation","Level":5,"Pos":108668},{"Code":"StringType.MidStmtStr(ref sDest, 46, 1,","type":"operation","Level":5,"Pos":108708},{"Code":"\u0022J\u0022","type":"string","Level":5,"Pos":108778},{"Code":");","type":"operation","Level":5,"Pos":108781},{"Code":"goto IL_3bdf;","type":"goto","Level":5,"Pos":108783},{"Code":"IL_3bdf:","type":"label","Level":5,"Pos":108826},{"Code":"num = 697;","type":"operation","Level":5,"Pos":108860},{"Code":"DataModul.DB_LinkTable.Seek(","type":"operation","Level":5,"Pos":108900},{"Code":"\u0022=\u0022","type":"string","Level":5,"Pos":108958},{"Code":", Modul1.PersInArb.AsString(), 8);","type":"operation","Level":5,"Pos":108961},{"Code":"goto IL_3c42;","type":"goto","Level":5,"Pos":108995},{"Code":"IL_3c42:","type":"label","Level":5,"Pos":109038},{"Code":"num = 698;","type":"operation","Level":5,"Pos":109072},{"Code":"if","type":"operation","Level":5,"Pos":109112},{"Code":"(!DataModul.DB_LinkTable.NoMatch)","type":"operation","Level":5,"Pos":109144},{"Code":"{","type":"block","Level":6,"Pos":109208},{"Code":"goto IL_3c5c;","type":"goto","Level":6,"Pos":109209},{"Code":"}","type":"block","Level":6,"Pos":109286},{"Code":"else","type":"operation","Level":5,"Pos":109287},{"Code":"{","type":"block","Level":6,"Pos":109351},{"Code":"goto IL_3c73;","type":"goto","Level":6,"Pos":109352},{"Code":"}","type":"block","Level":6,"Pos":109429},{"Code":"IL_3c5c:","type":"label","Level":5,"Pos":109430},{"Code":"num = 699;","type":"operation","Level":5,"Pos":109464},{"Code":"StringType.MidStmtStr(ref sDest, 55, 1,","type":"operation","Level":5,"Pos":109504},{"Code":"\u0022J\u0022","type":"string","Level":5,"Pos":109574},{"Code":");","type":"operation","Level":5,"Pos":109577},{"Code":"goto IL_3c73;","type":"goto","Level":5,"Pos":109579},{"Code":"IL_3c73:","type":"label","Level":5,"Pos":109622},{"Code":"num = 701;","type":"operation","Level":5,"Pos":109656},{"Code":"DataModul.DB_LinkTable.Seek(","type":"operation","Level":5,"Pos":109696},{"Code":"\u0022=\u0022","type":"string","Level":5,"Pos":109754},{"Code":", Modul1.PersInArb.AsString(), 9);","type":"operation","Level":5,"Pos":109757},{"Code":"goto IL_3cd7;","type":"goto","Level":5,"Pos":109791},{"Code":"IL_3cd7:","type":"label","Level":5,"Pos":109834},{"Code":"num = 702;","type":"operation","Level":5,"Pos":109868},{"Code":"if","type":"operation","Level":5,"Pos":109908},{"Code":"(!DataModul.DB_LinkTable.NoMatch)","type":"operation","Level":5,"Pos":109940},{"Code":"{","type":"block","Level":6,"Pos":110004},{"Code":"goto IL_3cf1;","type":"goto","Level":6,"Pos":110005},{"Code":"}","type":"block","Level":6,"Pos":110082},{"Code":"else","type":"operation","Level":5,"Pos":110083},{"Code":"{","type":"block","Level":6,"Pos":110147},{"Code":"goto IL_3d08;","type":"goto","Level":6,"Pos":110148},{"Code":"}","type":"block","Level":6,"Pos":110225},{"Code":"IL_3cf1:","type":"label","Level":5,"Pos":110226},{"Code":"num = 703;","type":"operation","Level":5,"Pos":110260},{"Code":"StringType.MidStmtStr(ref sDest, 70, 1,","type":"operation","Level":5,"Pos":110300},{"Code":"\u0022J\u0022","type":"string","Level":5,"Pos":110370},{"Code":");","type":"operation","Level":5,"Pos":110373},{"Code":"goto IL_3d08;","type":"goto","Level":5,"Pos":110375},{"Code":"IL_3d08:","type":"label","Level":5,"Pos":110418},{"Code":"num = 705;","type":"operation","Level":5,"Pos":110452},{"Code":"DataModul.DB_WitnessTable.Index = nameof(DataModul.WitnessIndex.ElSu);","type":"operation","Level":5,"Pos":110492},{"Code":"goto IL_3d1f;","type":"goto","Level":5,"Pos":110592},{"Code":"IL_3d1f:","type":"label","Level":5,"Pos":110635},{"Code":"num = 706;","type":"operation","Level":5,"Pos":110669},{"Code":"DataModul.DB_WitnessTable.Seek(","type":"operation","Level":5,"Pos":110709},{"Code":"\u0022=\u0022","type":"string","Level":5,"Pos":110770},{"Code":", Modul1.PersInArb,","type":"operation","Level":5,"Pos":110773},{"Code":"\u002210\u0022","type":"string","Level":5,"Pos":110793},{"Code":");","type":"operation","Level":5,"Pos":110797},{"Code":"goto IL_3d7c;","type":"goto","Level":5,"Pos":110799},{"Code":"IL_3d7c:","type":"label","Level":5,"Pos":110842},{"Code":"num = 707;","type":"operation","Level":5,"Pos":110876},{"Code":"if","type":"operation","Level":5,"Pos":110916},{"Code":"(!DataModul.DB_WitnessTable.NoMatch)","type":"operation","Level":5,"Pos":110948},{"Code":"{","type":"block","Level":6,"Pos":111015},{"Code":"goto IL_3d96;","type":"goto","Level":6,"Pos":111016},{"Code":"}","type":"block","Level":6,"Pos":111093},{"Code":"else","type":"operation","Level":5,"Pos":111094},{"Code":"{","type":"block","Level":6,"Pos":111158},{"Code":"goto IL_3dad;","type":"goto","Level":6,"Pos":111159},{"Code":"}","type":"block","Level":6,"Pos":111236},{"Code":"IL_3d96:","type":"label","Level":5,"Pos":111237},{"Code":"num = 708;","type":"operation","Level":5,"Pos":111271},{"Code":"StringType.MidStmtStr(ref sDest, 46, 1,","type":"operation","Level":5,"Pos":111311},{"Code":"\u0022J\u0022","type":"string","Level":5,"Pos":111381},{"Code":");","type":"operation","Level":5,"Pos":111384},{"Code":"goto IL_3dad;","type":"goto","Level":5,"Pos":111386},{"Code":"IL_3dad:","type":"label","Level":5,"Pos":111429},{"Code":"num = 710;","type":"operation","Level":5,"Pos":111463},{"Code":"List1.Items.Add(new ListItem(sDest \u002B","type":"operation","Level":5,"Pos":111503},{"Code":"\u0022 \u0022","type":"string","Level":5,"Pos":111570},{"Code":"\u002B Modul1.PersInArb.AsString()));","type":"operation","Level":5,"Pos":111582},{"Code":"goto IL_3de8;","type":"goto","Level":5,"Pos":111615},{"Code":"IL_3de8:","type":"label","Level":5,"Pos":111658},{"Code":"num = 712;","type":"operation","Level":5,"Pos":111692},{"Code":"I1\u002B\u002B;","type":"operation","Level":5,"Pos":111732},{"Code":"goto IL_3dfe;","type":"goto","Level":5,"Pos":111767},{"Code":"IL_2496:","type":"label","Level":5,"Pos":111810},{"Code":"num = 439;","type":"operation","Level":5,"Pos":111844},{"Code":"List1.Items.Clear();","type":"operation","Level":5,"Pos":111884},{"Code":"goto IL_24ae;","type":"goto","Level":5,"Pos":111934},{"Code":"IL_24ae:","type":"label","Level":5,"Pos":111977},{"Code":"num = 440;","type":"operation","Level":5,"Pos":112011},{"Code":"Label1[2].Text =","type":"operation","Level":5,"Pos":112051},{"Code":"\u0022Personen ohne Datum\u0022","type":"string","Level":5,"Pos":112098},{"Code":";","type":"operation","Level":5,"Pos":112119},{"Code":"goto IL_24cc;","type":"goto","Level":5,"Pos":112120},{"Code":"IL_24cc:","type":"label","Level":5,"Pos":112163},{"Code":"num = 441;","type":"operation","Level":5,"Pos":112197},{"Code":"Label1[1].Text = Modul1.IText[166];","type":"operation","Level":5,"Pos":112237},{"Code":"goto IL_24f0;","type":"goto","Level":5,"Pos":112302},{"Code":"IL_24f0:","type":"label","Level":5,"Pos":112345},{"Code":"num = 442;","type":"operation","Level":5,"Pos":112379},{"Code":"Label1[0].Text = Modul1.IText[167];","type":"operation","Level":5,"Pos":112419},{"Code":"goto IL_2514;","type":"goto","Level":5,"Pos":112484},{"Code":"IL_2514:","type":"label","Level":5,"Pos":112527},{"Code":"num = 443;","type":"operation","Level":5,"Pos":112561},{"Code":"I1 = 0;","type":"operation","Level":5,"Pos":112601},{"Code":"goto IL_2522;","type":"goto","Level":5,"Pos":112638},{"Code":"IL_2522:","type":"label","Level":5,"Pos":112681},{"Code":"num = 444;","type":"operation","Level":5,"Pos":112715},{"Code":"Label1[(short)I1].Refresh();","type":"operation","Level":5,"Pos":112755},{"Code":"goto IL_2541;","type":"goto","Level":5,"Pos":112813},{"Code":"IL_2541:","type":"label","Level":5,"Pos":112856},{"Code":"num = 445;","type":"operation","Level":5,"Pos":112890},{"Code":"I1\u002B\u002B;","type":"operation","Level":5,"Pos":112930},{"Code":"i5 = I1;","type":"operation","Level":5,"Pos":112965},{"Code":"num5 = 2;","type":"operation","Level":5,"Pos":113003},{"Code":"if","type":"operation","Level":5,"Pos":113042},{"Code":"(i5 \u003C= num5)","type":"operation","Level":5,"Pos":113074},{"Code":"{","type":"block","Level":6,"Pos":113117},{"Code":"goto IL_2522;","type":"goto","Level":6,"Pos":113118},{"Code":"}","type":"block","Level":6,"Pos":113195},{"Code":"else","type":"operation","Level":5,"Pos":113196},{"Code":"{","type":"block","Level":6,"Pos":113260},{"Code":"goto IL_2564;","type":"goto","Level":6,"Pos":113261},{"Code":"}","type":"block","Level":6,"Pos":113338},{"Code":"IL_2564:","type":"label","Level":5,"Pos":113339},{"Code":"num = 446;","type":"operation","Level":5,"Pos":113373},{"Code":"num7 = 1;","type":"operation","Level":5,"Pos":113413},{"Code":"goto IL_256e;","type":"goto","Level":5,"Pos":113452},{"Code":"IL_256e:","type":"label","Level":5,"Pos":113495},{"Code":"num = 447;","type":"operation","Level":5,"Pos":113529},{"Code":"if","type":"operation","Level":5,"Pos":113569},{"Code":"(num7 \u003C= 0)","type":"operation","Level":5,"Pos":113601},{"Code":"{","type":"block","Level":6,"Pos":113643},{"Code":"goto end_IL_0001_2;","type":"goto","Level":6,"Pos":113644},{"Code":"}","type":"block","Level":6,"Pos":113727},{"Code":"goto IL_2589;","type":"goto","Level":5,"Pos":113728},{"Code":"IL_2589:","type":"label","Level":5,"Pos":113771},{"Code":"num = 450;","type":"operation","Level":5,"Pos":113805},{"Code":"DataModul.DB_PersonTable.Index = nameof(DataModul.PersonIndex.PerNr);","type":"operation","Level":5,"Pos":113845},{"Code":"goto IL_25a0;","type":"goto","Level":5,"Pos":113944},{"Code":"IL_25a0:","type":"label","Level":5,"Pos":113987},{"Code":"num = 451;","type":"operation","Level":5,"Pos":114021},{"Code":"DataModul.DB_PersonTable.MoveLast();","type":"operation","Level":5,"Pos":114061},{"Code":"goto IL_25b3;","type":"goto","Level":5,"Pos":114127},{"Code":"IL_25b3:","type":"label","Level":5,"Pos":114170},{"Code":"num = 452;","type":"operation","Level":5,"Pos":114204},{"Code":"num8 = DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value.AsInt();","type":"operation","Level":5,"Pos":114244},{"Code":"goto IL_25da;","type":"goto","Level":5,"Pos":114366},{"Code":"IL_25da:","type":"label","Level":5,"Pos":114409},{"Code":"num = 453;","type":"operation","Level":5,"Pos":114443},{"Code":"if","type":"operation","Level":5,"Pos":114483},{"Code":"(num7 == 0)","type":"operation","Level":5,"Pos":114515},{"Code":"{","type":"block","Level":6,"Pos":114557},{"Code":"goto end_IL_0001_2;","type":"goto","Level":6,"Pos":114558},{"Code":"}","type":"block","Level":6,"Pos":114641},{"Code":"goto IL_25f2;","type":"goto","Level":5,"Pos":114642},{"Code":"IL_25f2:","type":"label","Level":5,"Pos":114685},{"Code":"num = 456;","type":"operation","Level":5,"Pos":114719},{"Code":"if","type":"operation","Level":5,"Pos":114759},{"Code":"((num7 \u003E DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value))","type":"operation","Level":5,"Pos":114791},{"Code":"{","type":"block","Level":6,"Pos":114909},{"Code":"goto IL_2625;","type":"goto","Level":6,"Pos":114910},{"Code":"}","type":"block","Level":6,"Pos":114987},{"Code":"else","type":"operation","Level":5,"Pos":114988},{"Code":"{","type":"block","Level":6,"Pos":115052},{"Code":"goto IL_2666;","type":"goto","Level":6,"Pos":115053},{"Code":"}","type":"block","Level":6,"Pos":115130},{"Code":"IL_2625:","type":"label","Level":5,"Pos":115131},{"Code":"num = 457;","type":"operation","Level":5,"Pos":115165},{"Code":"Interaction.MsgBox(Modul1.IText[173] \u002B","type":"operation","Level":5,"Pos":115205},{"Code":"\u0022 \u0022","type":"string","Level":5,"Pos":115274},{"Code":"\u002B num7.AsString() \u002B Modul1.IText[172]);","type":"operation","Level":5,"Pos":115277},{"Code":"goto end_IL_0001_2;","type":"goto","Level":5,"Pos":115317},{"Code":"IL_2666:","type":"label","Level":5,"Pos":115366},{"Code":"num = 460;","type":"operation","Level":5,"Pos":115400},{"Code":"ProgressBar1.Minimum = 0;","type":"operation","Level":5,"Pos":115440},{"Code":"goto IL_267a;","type":"goto","Level":5,"Pos":115495},{"Code":"IL_267a:","type":"label","Level":5,"Pos":115538},{"Code":"num = 461;","type":"operation","Level":5,"Pos":115572},{"Code":"ProgressBar1.Maximum = 0;","type":"operation","Level":5,"Pos":115612},{"Code":"goto IL_268e;","type":"goto","Level":5,"Pos":115667},{"Code":"IL_268e:","type":"label","Level":5,"Pos":115710},{"Code":"num = 462;","type":"operation","Level":5,"Pos":115744},{"Code":"ProgressBar1.Step = 1;","type":"operation","Level":5,"Pos":115784},{"Code":"goto IL_26a2;","type":"goto","Level":5,"Pos":115836},{"Code":"IL_26a2:","type":"label","Level":5,"Pos":115879},{"Code":"num = 463;","type":"operation","Level":5,"Pos":115913},{"Code":"ProgressBar1.Maximum = DataModul.DB_PersonTable.RecordCount - 1;","type":"operation","Level":5,"Pos":115953},{"Code":"goto IL_26c1;","type":"goto","Level":5,"Pos":116047},{"Code":"IL_26c1:","type":"label","Level":5,"Pos":116090},{"Code":"num = 464;","type":"operation","Level":5,"Pos":116124},{"Code":"i6 = num7;","type":"operation","Level":5,"Pos":116164},{"Code":"num10 = DataModul.DB_PersonTable.RecordCount - 1;","type":"operation","Level":5,"Pos":116204},{"Code":"I1 = i6;","type":"operation","Level":5,"Pos":116283},{"Code":"goto IL_33b6;","type":"goto","Level":5,"Pos":116321},{"Code":"IL_33b6:","type":"label","Level":5,"Pos":116364},{"Code":"i7 = I1;","type":"operation","Level":5,"Pos":116398},{"Code":"num5 = num10;","type":"operation","Level":5,"Pos":116436},{"Code":"if","type":"operation","Level":5,"Pos":116479},{"Code":"(i7 \u003C= num5)","type":"operation","Level":5,"Pos":116511},{"Code":"{","type":"block","Level":6,"Pos":116554},{"Code":"goto IL_26e3;","type":"goto","Level":6,"Pos":116555},{"Code":"}","type":"block","Level":6,"Pos":116632},{"Code":"else","type":"operation","Level":5,"Pos":116633},{"Code":"{","type":"block","Level":6,"Pos":116697},{"Code":"goto IL_33c7;","type":"goto","Level":6,"Pos":116698},{"Code":"}","type":"block","Level":6,"Pos":116775},{"Code":"IL_33c7:","type":"label","Level":5,"Pos":116776},{"Code":"num = 615;","type":"operation","Level":5,"Pos":116810},{"Code":"Label4.Text = List1.Items.Count - 1.AsString() \u002B","type":"operation","Level":5,"Pos":116850},{"Code":"\u0022 Eintr\u00E4ge\u0022","type":"string","Level":5,"Pos":116929},{"Code":";","type":"operation","Level":5,"Pos":116940},{"Code":"goto IL_448a;","type":"goto","Level":5,"Pos":116941},{"Code":"IL_26e3:","type":"label","Level":5,"Pos":116984},{"Code":"num = 465;","type":"operation","Level":5,"Pos":117018},{"Code":"ProgressBar1.PerformStep();","type":"operation","Level":5,"Pos":117058},{"Code":"goto IL_26f6;","type":"goto","Level":5,"Pos":117115},{"Code":"IL_26f6:","type":"label","Level":5,"Pos":117158},{"Code":"num = 466;","type":"operation","Level":5,"Pos":117192},{"Code":"Application.DoEvents();","type":"operation","Level":5,"Pos":117232},{"Code":"goto IL_2703;","type":"goto","Level":5,"Pos":117285},{"Code":"IL_2703:","type":"label","Level":5,"Pos":117328},{"Code":"num = 467;","type":"operation","Level":5,"Pos":117362},{"Code":"Modul1.PersInArb = I1;","type":"operation","Level":5,"Pos":117402},{"Code":"goto IL_2715;","type":"goto","Level":5,"Pos":117454},{"Code":"IL_2715:","type":"label","Level":5,"Pos":117497},{"Code":"num = 468;","type":"operation","Level":5,"Pos":117531},{"Code":"if","type":"operation","Level":5,"Pos":117571},{"Code":"(Modul1.PersInArb \u003C= num8)","type":"operation","Level":5,"Pos":117603},{"Code":"{","type":"block","Level":6,"Pos":117660},{"Code":"goto IL_2730;","type":"goto","Level":6,"Pos":117661},{"Code":"}","type":"block","Level":6,"Pos":117738},{"Code":"else","type":"operation","Level":5,"Pos":117739},{"Code":"{","type":"block","Level":6,"Pos":117803},{"Code":"goto IL_448a;","type":"goto","Level":6,"Pos":117804},{"Code":"}","type":"block","Level":6,"Pos":117881},{"Code":"IL_2730:","type":"label","Level":5,"Pos":117882},{"Code":"num = 471;","type":"operation","Level":5,"Pos":117916},{"Code":"DataModul.DB_PersonTable.Seek(","type":"operation","Level":5,"Pos":117956},{"Code":"\u0022=\u0022","type":"string","Level":5,"Pos":118016},{"Code":", Modul1.PersInArb.AsString());","type":"operation","Level":5,"Pos":118019},{"Code":"goto IL_2792;","type":"goto","Level":5,"Pos":118050},{"Code":"IL_2792:","type":"label","Level":5,"Pos":118093},{"Code":"num = 472;","type":"operation","Level":5,"Pos":118127},{"Code":"if","type":"operation","Level":5,"Pos":118167},{"Code":"(!DataModul.DB_PersonTable.NoMatch)","type":"operation","Level":5,"Pos":118199},{"Code":"{","type":"block","Level":6,"Pos":118265},{"Code":"goto IL_27ae;","type":"goto","Level":6,"Pos":118266},{"Code":"}","type":"block","Level":6,"Pos":118343},{"Code":"else","type":"operation","Level":5,"Pos":118344},{"Code":"{","type":"block","Level":6,"Pos":118408},{"Code":"goto IL_3395;","type":"goto","Level":6,"Pos":118409},{"Code":"}","type":"block","Level":6,"Pos":118486},{"Code":"IL_27ae:","type":"label","Level":5,"Pos":118487},{"Code":"num = 475;","type":"operation","Level":5,"Pos":118521},{"Code":"Modul1.Personlesen(Modul1.PersInArb);","type":"operation","Level":5,"Pos":118561},{"Code":"goto IL_27bb;","type":"goto","Level":5,"Pos":118628},{"Code":"IL_27bb:","type":"label","Level":5,"Pos":118671},{"Code":"num = 476;","type":"operation","Level":5,"Pos":118705},{"Code":"Modul1.LiText = Strings.Left((Modul1.Kont[0]).Trim() \u002B","type":"operation","Level":5,"Pos":118745},{"Code":"\u0022,\u0022","type":"string","Level":5,"Pos":118830},{"Code":"\u002B (Modul1.Kont[3]).Trim() \u002B","type":"operation","Level":5,"Pos":118833},{"Code":"\u0022 \u0022","type":"string","Level":5,"Pos":118862},{"Code":", 20);","type":"operation","Level":5,"Pos":118898},{"Code":"goto IL_27f5;","type":"goto","Level":5,"Pos":118904},{"Code":"IL_27f5:","type":"label","Level":5,"Pos":118947},{"Code":"num = 477;","type":"operation","Level":5,"Pos":118981},{"Code":"Modul1.Schalt = 20;","type":"operation","Level":5,"Pos":119021},{"Code":"goto IL_2803;","type":"goto","Level":5,"Pos":119070},{"Code":"IL_2803:","type":"label","Level":5,"Pos":119113},{"Code":"num = 478;","type":"operation","Level":5,"Pos":119147},{"Code":"T = 1;","type":"operation","Level":5,"Pos":119187},{"Code":"goto IL_2811;","type":"goto","Level":5,"Pos":119223},{"Code":"IL_2811:","type":"label","Level":5,"Pos":119266},{"Code":"num = 479;","type":"operation","Level":5,"Pos":119300},{"Code":"Modul1.Kont[T \u002B 10] =","type":"operation","Level":5,"Pos":119340},{"Code":"\u0022\u0022","type":"string","Level":5,"Pos":119392},{"Code":";","type":"operation","Level":5,"Pos":119394},{"Code":"goto IL_282d;","type":"goto","Level":5,"Pos":119395},{"Code":"IL_282d:","type":"label","Level":5,"Pos":119438},{"Code":"num = 480;","type":"operation","Level":5,"Pos":119472},{"Code":"Modul1.Kont[T \u002B 20] =","type":"operation","Level":5,"Pos":119512},{"Code":"\u0022\u0022","type":"string","Level":5,"Pos":119564},{"Code":";","type":"operation","Level":5,"Pos":119566},{"Code":"goto IL_2849;","type":"goto","Level":5,"Pos":119567},{"Code":"IL_2849:","type":"label","Level":5,"Pos":119610},{"Code":"num = 481;","type":"operation","Level":5,"Pos":119644},{"Code":"T = (short)unchecked(T \u002B 1);","type":"operation","Level":5,"Pos":119684},{"Code":"t = T;","type":"operation","Level":5,"Pos":119742},{"Code":"num11 = 10;","type":"operation","Level":5,"Pos":119778},{"Code":"if","type":"operation","Level":5,"Pos":119819},{"Code":"(t \u003C= num11)","type":"operation","Level":5,"Pos":119851},{"Code":"{","type":"block","Level":6,"Pos":119894},{"Code":"goto IL_2811;","type":"goto","Level":6,"Pos":119895},{"Code":"}","type":"block","Level":6,"Pos":119972},{"Code":"else","type":"operation","Level":5,"Pos":119973},{"Code":"{","type":"block","Level":6,"Pos":120037},{"Code":"goto IL_286e;","type":"goto","Level":6,"Pos":120038},{"Code":"}","type":"block","Level":6,"Pos":120115},{"Code":"IL_286e:","type":"label","Level":5,"Pos":120116},{"Code":"num = 482;","type":"operation","Level":5,"Pos":120150},{"Code":"Modul1.Datles();","type":"operation","Level":5,"Pos":120190},{"Code":"goto IL_287b;","type":"goto","Level":5,"Pos":120236},{"Code":"IL_287b:","type":"label","Level":5,"Pos":120279},{"Code":"num = 483;","type":"operation","Level":5,"Pos":120313},{"Code":"sDest2 =","type":"operation","Level":5,"Pos":120353},{"Code":"\u0022 \u0022","type":"string","Level":5,"Pos":120392},{"Code":";","type":"operation","Level":5,"Pos":120470},{"Code":"goto IL_2889;","type":"goto","Level":5,"Pos":120471},{"Code":"IL_2889:","type":"label","Level":5,"Pos":120514},{"Code":"num = 484;","type":"operation","Level":5,"Pos":120548},{"Code":"if","type":"operation","Level":5,"Pos":120588},{"Code":"((Modul1.Kont[11]).Trim() ==","type":"operation","Level":5,"Pos":120620},{"Code":"\u0022\u0022","type":"string","Level":5,"Pos":120650},{"Code":")","type":"operation","Level":5,"Pos":120652},{"Code":"{","type":"block","Level":6,"Pos":120683},{"Code":"goto IL_28b9;","type":"goto","Level":6,"Pos":120684},{"Code":"}","type":"block","Level":6,"Pos":120761},{"Code":"else","type":"operation","Level":5,"Pos":120762},{"Code":"{","type":"block","Level":6,"Pos":120826},{"Code":"goto IL_3395;","type":"goto","Level":6,"Pos":120827},{"Code":"}","type":"block","Level":6,"Pos":120904},{"Code":"IL_28b9:","type":"label","Level":5,"Pos":120905},{"Code":"num = 487;","type":"operation","Level":5,"Pos":120939},{"Code":"if","type":"operation","Level":5,"Pos":120979},{"Code":"((Modul1.Kont[12]).Trim() ==","type":"operation","Level":5,"Pos":121011},{"Code":"\u0022\u0022","type":"string","Level":5,"Pos":121041},{"Code":")","type":"operation","Level":5,"Pos":121043},{"Code":"{","type":"block","Level":6,"Pos":121074},{"Code":"goto IL_28e9;","type":"goto","Level":6,"Pos":121075},{"Code":"}","type":"block","Level":6,"Pos":121152},{"Code":"else","type":"operation","Level":5,"Pos":121153},{"Code":"{","type":"block","Level":6,"Pos":121217},{"Code":"goto IL_3395;","type":"goto","Level":6,"Pos":121218},{"Code":"}","type":"block","Level":6,"Pos":121295},{"Code":"IL_28e9:","type":"label","Level":5,"Pos":121296},{"Code":"num = 490;","type":"operation","Level":5,"Pos":121330},{"Code":"if","type":"operation","Level":5,"Pos":121370},{"Code":"((Modul1.Kont[13]).Trim() ==","type":"operation","Level":5,"Pos":121402},{"Code":"\u0022\u0022","type":"string","Level":5,"Pos":121432},{"Code":")","type":"operation","Level":5,"Pos":121434},{"Code":"{","type":"block","Level":6,"Pos":121465},{"Code":"goto IL_2919;","type":"goto","Level":6,"Pos":121466},{"Code":"}","type":"block","Level":6,"Pos":121543},{"Code":"else","type":"operation","Level":5,"Pos":121544},{"Code":"{","type":"block","Level":6,"Pos":121608},{"Code":"goto IL_3395;","type":"goto","Level":6,"Pos":121609},{"Code":"}","type":"block","Level":6,"Pos":121686},{"Code":"IL_2919:","type":"label","Level":5,"Pos":121687},{"Code":"num = 493;","type":"operation","Level":5,"Pos":121721},{"Code":"if","type":"operation","Level":5,"Pos":121761},{"Code":"((Modul1.Kont[14]).Trim() ==","type":"operation","Level":5,"Pos":121793},{"Code":"\u0022\u0022","type":"string","Level":5,"Pos":121823},{"Code":")","type":"operation","Level":5,"Pos":121825},{"Code":"{","type":"block","Level":6,"Pos":121856},{"Code":"goto IL_2949;","type":"goto","Level":6,"Pos":121857},{"Code":"}","type":"block","Level":6,"Pos":121934},{"Code":"else","type":"operation","Level":5,"Pos":121935},{"Code":"{","type":"block","Level":6,"Pos":121999},{"Code":"goto IL_3395;","type":"goto","Level":6,"Pos":122000},{"Code":"}","type":"block","Level":6,"Pos":122077},{"Code":"IL_2949:","type":"label","Level":5,"Pos":122078},{"Code":"num = 496;","type":"operation","Level":5,"Pos":122112},{"Code":"num12 = 300;","type":"operation","Level":5,"Pos":122152},{"Code":"goto IL_2956;","type":"goto","Level":5,"Pos":122194},{"Code":"IL_2956:","type":"label","Level":5,"Pos":122237},{"Code":"num = 497;","type":"operation","Level":5,"Pos":122271},{"Code":"DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.BeSu);","type":"operation","Level":5,"Pos":122311},{"Code":"goto IL_296d;","type":"goto","Level":5,"Pos":122407},{"Code":"IL_296d:","type":"label","Level":5,"Pos":122450},{"Code":"num = 498;","type":"operation","Level":5,"Pos":122484},{"Code":"DataModul.DB_EventTable.Seek(","type":"operation","Level":5,"Pos":122524},{"Code":"\u0022=\u0022","type":"string","Level":5,"Pos":122583},{"Code":", num12, Modul1.PersInArb.AsString());","type":"operation","Level":5,"Pos":122586},{"Code":"goto IL_29d0;","type":"goto","Level":5,"Pos":122624},{"Code":"IL_29d0:","type":"label","Level":5,"Pos":122667},{"Code":"num = 499;","type":"operation","Level":5,"Pos":122701},{"Code":"if","type":"operation","Level":5,"Pos":122741},{"Code":"(!DataModul.DB_EventTable.NoMatch)","type":"operation","Level":5,"Pos":122773},{"Code":"{","type":"block","Level":6,"Pos":122838},{"Code":"goto IL_29ec;","type":"goto","Level":6,"Pos":122839},{"Code":"}","type":"block","Level":6,"Pos":122916},{"Code":"else","type":"operation","Level":5,"Pos":122917},{"Code":"{","type":"block","Level":6,"Pos":122981},{"Code":"goto IL_2d63;","type":"goto","Level":6,"Pos":122982},{"Code":"}","type":"block","Level":6,"Pos":123059},{"Code":"IL_29ec:","type":"label","Level":5,"Pos":123060},{"Code":"num = 502;","type":"operation","Level":5,"Pos":123094},{"Code":"switch","type":"operation","Level":5,"Pos":123134},{"Code":"(num12)","type":"operation","Level":5,"Pos":123170},{"Code":"{","type":"block","Level":6,"Pos":123208},{"Code":"case 300:","type":"label","Level":6,"Pos":123209},{"Code":"break;","type":"operation","Level":6,"Pos":123252},{"Code":"case 301:","type":"label","Level":6,"Pos":123296},{"Code":"goto IL_2b31;","type":"goto","Level":6,"Pos":123339},{"Code":"case 302:","type":"label","Level":6,"Pos":123390},{"Code":"goto IL_2c4c;","type":"goto","Level":6,"Pos":123433},{"Code":"default:","type":"label","Level":6,"Pos":123484},{"Code":"goto IL_2d63;","type":"goto","Level":6,"Pos":123526},{"Code":"}","type":"block","Level":6,"Pos":123607},{"Code":"{","type":"block","Level":6,"Pos":123640},{"Code":"goto IL_2a16;","type":"goto","Level":6,"Pos":123641},{"Code":"}","type":"block","Level":6,"Pos":123718},{"Code":"IL_2c4c:","type":"label","Level":5,"Pos":123719},{"Code":"num = 534;","type":"operation","Level":5,"Pos":123753},{"Code":"if","type":"operation","Level":5,"Pos":123793},{"Code":"((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() \u003E0))","type":"operation","Level":5,"Pos":123825},{"Code":"{","type":"block","Level":6,"Pos":123937},{"Code":"goto IL_2c7e;","type":"goto","Level":6,"Pos":123938},{"Code":"}","type":"block","Level":6,"Pos":124015},{"Code":"else","type":"operation","Level":5,"Pos":124016},{"Code":"{","type":"block","Level":6,"Pos":124080},{"Code":"goto IL_2c9b;","type":"goto","Level":6,"Pos":124081},{"Code":"}","type":"block","Level":6,"Pos":124158},{"Code":"IL_2c7e:","type":"label","Level":5,"Pos":124159},{"Code":"num = 535;","type":"operation","Level":5,"Pos":124193},{"Code":"StringType.MidStmtStr(ref sDest2, 50, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":124233},{"Code":"goto IL_2c9b;","type":"goto","Level":5,"Pos":124323},{"Code":"IL_2c9b:","type":"label","Level":5,"Pos":124366},{"Code":"num = 537;","type":"operation","Level":5,"Pos":124400},{"Code":"if","type":"operation","Level":5,"Pos":124440},{"Code":"(!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() \u003E0))","type":"operation","Level":5,"Pos":124472},{"Code":"{","type":"block","Level":6,"Pos":124587},{"Code":"goto IL_2cd2;","type":"goto","Level":6,"Pos":124588},{"Code":"}","type":"block","Level":6,"Pos":124665},{"Code":"else","type":"operation","Level":5,"Pos":124666},{"Code":"{","type":"block","Level":6,"Pos":124730},{"Code":"goto IL_3395;","type":"goto","Level":6,"Pos":124731},{"Code":"}","type":"block","Level":6,"Pos":124808},{"Code":"IL_2cd2:","type":"label","Level":5,"Pos":124809},{"Code":"num = 540;","type":"operation","Level":5,"Pos":124843},{"Code":"if","type":"operation","Level":5,"Pos":124883},{"Code":"(!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() \u003E0))","type":"operation","Level":5,"Pos":124915},{"Code":"{","type":"block","Level":6,"Pos":125030},{"Code":"goto IL_2d09;","type":"goto","Level":6,"Pos":125031},{"Code":"}","type":"block","Level":6,"Pos":125108},{"Code":"else","type":"operation","Level":5,"Pos":125109},{"Code":"{","type":"block","Level":6,"Pos":125173},{"Code":"goto IL_3395;","type":"goto","Level":6,"Pos":125174},{"Code":"}","type":"block","Level":6,"Pos":125251},{"Code":"IL_2d09:","type":"label","Level":5,"Pos":125252},{"Code":"num = 543;","type":"operation","Level":5,"Pos":125286},{"Code":"if","type":"operation","Level":5,"Pos":125326},{"Code":"(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) \u003E 0.0)","type":"operation","Level":5,"Pos":125358},{"Code":"{","type":"block","Level":6,"Pos":125484},{"Code":"goto IL_2d44;","type":"goto","Level":6,"Pos":125485},{"Code":"}","type":"block","Level":6,"Pos":125562},{"Code":"else","type":"operation","Level":5,"Pos":125563},{"Code":"{","type":"block","Level":6,"Pos":125627},{"Code":"goto IL_2d63;","type":"goto","Level":6,"Pos":125628},{"Code":"}","type":"block","Level":6,"Pos":125705},{"Code":"IL_2d44:","type":"label","Level":5,"Pos":125706},{"Code":"num = 544;","type":"operation","Level":5,"Pos":125740},{"Code":"StringType.MidStmtStr(ref sDest2, 53, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":125780},{"Code":"goto IL_2d63;","type":"goto","Level":5,"Pos":125870},{"Code":"IL_2b31:","type":"label","Level":5,"Pos":125913},{"Code":"num = 520;","type":"operation","Level":5,"Pos":125947},{"Code":"if","type":"operation","Level":5,"Pos":125987},{"Code":"((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() \u003E0))","type":"operation","Level":5,"Pos":126019},{"Code":"{","type":"block","Level":6,"Pos":126131},{"Code":"goto IL_2b63;","type":"goto","Level":6,"Pos":126132},{"Code":"}","type":"block","Level":6,"Pos":126209},{"Code":"else","type":"operation","Level":5,"Pos":126210},{"Code":"{","type":"block","Level":6,"Pos":126274},{"Code":"goto IL_2b80;","type":"goto","Level":6,"Pos":126275},{"Code":"}","type":"block","Level":6,"Pos":126352},{"Code":"IL_2b63:","type":"label","Level":5,"Pos":126353},{"Code":"num = 521;","type":"operation","Level":5,"Pos":126387},{"Code":"StringType.MidStmtStr(ref sDest2, 42, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":126427},{"Code":"goto IL_2b80;","type":"goto","Level":5,"Pos":126517},{"Code":"IL_2b80:","type":"label","Level":5,"Pos":126560},{"Code":"num = 523;","type":"operation","Level":5,"Pos":126594},{"Code":"if","type":"operation","Level":5,"Pos":126634},{"Code":"(!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() \u003E0))","type":"operation","Level":5,"Pos":126666},{"Code":"{","type":"block","Level":6,"Pos":126781},{"Code":"goto IL_2bb7;","type":"goto","Level":6,"Pos":126782},{"Code":"}","type":"block","Level":6,"Pos":126859},{"Code":"else","type":"operation","Level":5,"Pos":126860},{"Code":"{","type":"block","Level":6,"Pos":126924},{"Code":"goto IL_3395;","type":"goto","Level":6,"Pos":126925},{"Code":"}","type":"block","Level":6,"Pos":127002},{"Code":"IL_2bb7:","type":"label","Level":5,"Pos":127003},{"Code":"num = 526;","type":"operation","Level":5,"Pos":127037},{"Code":"if","type":"operation","Level":5,"Pos":127077},{"Code":"(!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() \u003E0))","type":"operation","Level":5,"Pos":127109},{"Code":"{","type":"block","Level":6,"Pos":127224},{"Code":"goto IL_2bee;","type":"goto","Level":6,"Pos":127225},{"Code":"}","type":"block","Level":6,"Pos":127302},{"Code":"else","type":"operation","Level":5,"Pos":127303},{"Code":"{","type":"block","Level":6,"Pos":127367},{"Code":"goto IL_3395;","type":"goto","Level":6,"Pos":127368},{"Code":"}","type":"block","Level":6,"Pos":127445},{"Code":"IL_2bee:","type":"label","Level":5,"Pos":127446},{"Code":"num = 529;","type":"operation","Level":5,"Pos":127480},{"Code":"if","type":"operation","Level":5,"Pos":127520},{"Code":"(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) \u003E 0.0)","type":"operation","Level":5,"Pos":127552},{"Code":"{","type":"block","Level":6,"Pos":127678},{"Code":"goto IL_2c29;","type":"goto","Level":6,"Pos":127679},{"Code":"}","type":"block","Level":6,"Pos":127756},{"Code":"else","type":"operation","Level":5,"Pos":127757},{"Code":"{","type":"block","Level":6,"Pos":127821},{"Code":"goto IL_2d63;","type":"goto","Level":6,"Pos":127822},{"Code":"}","type":"block","Level":6,"Pos":127899},{"Code":"IL_2c29:","type":"label","Level":5,"Pos":127900},{"Code":"num = 530;","type":"operation","Level":5,"Pos":127934},{"Code":"StringType.MidStmtStr(ref sDest2, 46, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":127974},{"Code":"goto IL_2d63;","type":"goto","Level":5,"Pos":128064},{"Code":"IL_2a16:","type":"label","Level":5,"Pos":128107},{"Code":"num = 506;","type":"operation","Level":5,"Pos":128141},{"Code":"if","type":"operation","Level":5,"Pos":128181},{"Code":"((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() \u003E0))","type":"operation","Level":5,"Pos":128213},{"Code":"{","type":"block","Level":6,"Pos":128325},{"Code":"goto IL_2a48;","type":"goto","Level":6,"Pos":128326},{"Code":"}","type":"block","Level":6,"Pos":128403},{"Code":"else","type":"operation","Level":5,"Pos":128404},{"Code":"{","type":"block","Level":6,"Pos":128468},{"Code":"goto IL_2a65;","type":"goto","Level":6,"Pos":128469},{"Code":"}","type":"block","Level":6,"Pos":128546},{"Code":"IL_2a48:","type":"label","Level":5,"Pos":128547},{"Code":"num = 507;","type":"operation","Level":5,"Pos":128581},{"Code":"StringType.MidStmtStr(ref sDest2, 34, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":128621},{"Code":"goto IL_2a65;","type":"goto","Level":5,"Pos":128711},{"Code":"IL_2a65:","type":"label","Level":5,"Pos":128754},{"Code":"num = 509;","type":"operation","Level":5,"Pos":128788},{"Code":"if","type":"operation","Level":5,"Pos":128828},{"Code":"(!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() \u003E0))","type":"operation","Level":5,"Pos":128860},{"Code":"{","type":"block","Level":6,"Pos":128975},{"Code":"goto IL_2a9c;","type":"goto","Level":6,"Pos":128976},{"Code":"}","type":"block","Level":6,"Pos":129053},{"Code":"else","type":"operation","Level":5,"Pos":129054},{"Code":"{","type":"block","Level":6,"Pos":129118},{"Code":"goto IL_3395;","type":"goto","Level":6,"Pos":129119},{"Code":"}","type":"block","Level":6,"Pos":129196},{"Code":"IL_2a9c:","type":"label","Level":5,"Pos":129197},{"Code":"num = 512;","type":"operation","Level":5,"Pos":129231},{"Code":"if","type":"operation","Level":5,"Pos":129271},{"Code":"(!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() \u003E0))","type":"operation","Level":5,"Pos":129303},{"Code":"{","type":"block","Level":6,"Pos":129418},{"Code":"goto IL_2ad3;","type":"goto","Level":6,"Pos":129419},{"Code":"}","type":"block","Level":6,"Pos":129496},{"Code":"else","type":"operation","Level":5,"Pos":129497},{"Code":"{","type":"block","Level":6,"Pos":129561},{"Code":"goto IL_3395;","type":"goto","Level":6,"Pos":129562},{"Code":"}","type":"block","Level":6,"Pos":129639},{"Code":"IL_2ad3:","type":"label","Level":5,"Pos":129640},{"Code":"num = 515;","type":"operation","Level":5,"Pos":129674},{"Code":"if","type":"operation","Level":5,"Pos":129714},{"Code":"(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) \u003E 0.0)","type":"operation","Level":5,"Pos":129746},{"Code":"{","type":"block","Level":6,"Pos":129872},{"Code":"goto IL_2b0e;","type":"goto","Level":6,"Pos":129873},{"Code":"}","type":"block","Level":6,"Pos":129950},{"Code":"else","type":"operation","Level":5,"Pos":129951},{"Code":"{","type":"block","Level":6,"Pos":130015},{"Code":"goto IL_2d63;","type":"goto","Level":6,"Pos":130016},{"Code":"}","type":"block","Level":6,"Pos":130093},{"Code":"IL_2b0e:","type":"label","Level":5,"Pos":130094},{"Code":"num = 516;","type":"operation","Level":5,"Pos":130128},{"Code":"StringType.MidStmtStr(ref sDest2, 38, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":130168},{"Code":"goto IL_2d63;","type":"goto","Level":5,"Pos":130258},{"Code":"IL_2d63:","type":"label","Level":5,"Pos":130301},{"Code":"num = 547;","type":"operation","Level":5,"Pos":130335},{"Code":"lErl = 92;","type":"operation","Level":5,"Pos":130375},{"Code":"goto IL_2d6e;","type":"goto","Level":5,"Pos":130415},{"Code":"IL_2d6e:","type":"label","Level":5,"Pos":130458},{"Code":"num = 548;","type":"operation","Level":5,"Pos":130492},{"Code":"num12 = (short)unchecked(num12 \u002B 1);","type":"operation","Level":5,"Pos":130532},{"Code":"num13 = num12;","type":"operation","Level":5,"Pos":130598},{"Code":"num11 = 302;","type":"operation","Level":5,"Pos":130642},{"Code":"if","type":"operation","Level":5,"Pos":130684},{"Code":"(num13 \u003C= num11)","type":"operation","Level":5,"Pos":130716},{"Code":"{","type":"block","Level":6,"Pos":130763},{"Code":"goto IL_2956;","type":"goto","Level":6,"Pos":130764},{"Code":"}","type":"block","Level":6,"Pos":130841},{"Code":"else","type":"operation","Level":5,"Pos":130842},{"Code":"{","type":"block","Level":6,"Pos":130906},{"Code":"goto IL_32fc;","type":"goto","Level":6,"Pos":130907},{"Code":"}","type":"block","Level":6,"Pos":130984},{"Code":"IL_32fc:","type":"label","Level":5,"Pos":130985},{"Code":"num = 606;","type":"operation","Level":5,"Pos":131019},{"Code":"lErl = 45;","type":"operation","Level":5,"Pos":131059},{"Code":"goto IL_3307;","type":"goto","Level":5,"Pos":131099},{"Code":"IL_3307:","type":"label","Level":5,"Pos":131142},{"Code":"num = 607;","type":"operation","Level":5,"Pos":131176},{"Code":"Modul1.LiText \u002B= sDest2;","type":"operation","Level":5,"Pos":131216},{"Code":"goto IL_3320;","type":"goto","Level":5,"Pos":131270},{"Code":"IL_3320:","type":"label","Level":5,"Pos":131313},{"Code":"num = 609;","type":"operation","Level":5,"Pos":131347},{"Code":"if","type":"operation","Level":5,"Pos":131387},{"Code":"((Modul1.LiText).Trim() !=","type":"operation","Level":5,"Pos":131419},{"Code":"\u0022\u0022","type":"string","Level":5,"Pos":131447},{"Code":")","type":"operation","Level":5,"Pos":131449},{"Code":"{","type":"block","Level":6,"Pos":131480},{"Code":"goto IL_3348;","type":"goto","Level":6,"Pos":131481},{"Code":"}","type":"block","Level":6,"Pos":131558},{"Code":"else","type":"operation","Level":5,"Pos":131559},{"Code":"{","type":"block","Level":6,"Pos":131623},{"Code":"goto IL_3383;","type":"goto","Level":6,"Pos":131624},{"Code":"}","type":"block","Level":6,"Pos":131701},{"Code":"IL_3348:","type":"label","Level":5,"Pos":131702},{"Code":"num = 610;","type":"operation","Level":5,"Pos":131736},{"Code":"List1.Items.Add(new ListItem(Modul1.LiText \u002B","type":"operation","Level":5,"Pos":131776},{"Code":"\u0022 \u0022","type":"string","Level":5,"Pos":131851},{"Code":"\u002B Modul1.PersInArb.AsString()));","type":"operation","Level":5,"Pos":131863},{"Code":"goto IL_3383;","type":"goto","Level":5,"Pos":131896},{"Code":"IL_3383:","type":"label","Level":5,"Pos":131939},{"Code":"num = 612;","type":"operation","Level":5,"Pos":131973},{"Code":"Modul1.LiText =","type":"operation","Level":5,"Pos":132013},{"Code":"\u0022\u0022","type":"string","Level":5,"Pos":132059},{"Code":";","type":"operation","Level":5,"Pos":132061},{"Code":"goto IL_3395;","type":"goto","Level":5,"Pos":132062},{"Code":"IL_3395:","type":"label","Level":5,"Pos":132105},{"Code":"num = 613;","type":"operation","Level":5,"Pos":132139},{"Code":"lErl = 95;","type":"operation","Level":5,"Pos":132179},{"Code":"goto IL_33a0;","type":"goto","Level":5,"Pos":132219},{"Code":"IL_33a0:","type":"label","Level":5,"Pos":132262},{"Code":"num = 614;","type":"operation","Level":5,"Pos":132296},{"Code":"I1\u002B\u002B;","type":"operation","Level":5,"Pos":132336},{"Code":"goto IL_33b6;","type":"goto","Level":5,"Pos":132371},{"Code":"IL_1c00:","type":"label","Level":5,"Pos":132414},{"Code":"num = 336;","type":"operation","Level":5,"Pos":132448},{"Code":"","type":"operation","Level":5,"Pos":132488},{"Code":"//Sz = 0;","type":"lComment","Level":5,"Pos":132518},{"Code":"goto IL_1c0e;","type":"goto","Level":5,"Pos":132528},{"Code":"IL_1c0e:","type":"label","Level":5,"Pos":132570},{"Code":"num = 337;","type":"operation","Level":5,"Pos":132604},{"Code":"List1.Items.Clear();","type":"operation","Level":5,"Pos":132644},{"Code":"goto IL_1c26;","type":"goto","Level":5,"Pos":132694},{"Code":"IL_1c26:","type":"label","Level":5,"Pos":132737},{"Code":"num = 338;","type":"operation","Level":5,"Pos":132771},{"Code":"Label1[2].Text =","type":"operation","Level":5,"Pos":132811},{"Code":"\u0022Familien ohne Datum\u0022","type":"string","Level":5,"Pos":132858},{"Code":";","type":"operation","Level":5,"Pos":132879},{"Code":"goto IL_1c44;","type":"goto","Level":5,"Pos":132880},{"Code":"IL_1c44:","type":"label","Level":5,"Pos":132923},{"Code":"num = 339;","type":"operation","Level":5,"Pos":132957},{"Code":"Label1[1].Text =","type":"operation","Level":5,"Pos":132997},{"Code":"\u0022Mann Frau Kinder Pro Verl. Hei k.H. Schd. Ehe\u00E4. Aus Fikt.\u0022","type":"string","Level":5,"Pos":133044},{"Code":";","type":"operation","Level":5,"Pos":133125},{"Code":"goto IL_1c62;","type":"goto","Level":5,"Pos":133126},{"Code":"IL_1c62:","type":"label","Level":5,"Pos":133169},{"Code":"num = 340;","type":"operation","Level":5,"Pos":133203},{"Code":"Label1[0].Text =","type":"operation","Level":5,"Pos":133243},{"Code":"\u0022 DO DO DO DO DO DO DO\u0022","type":"string","Level":5,"Pos":133290},{"Code":";","type":"operation","Level":5,"Pos":133368},{"Code":"goto IL_1c80;","type":"goto","Level":5,"Pos":133369},{"Code":"IL_1c80:","type":"label","Level":5,"Pos":133412},{"Code":"num = 341;","type":"operation","Level":5,"Pos":133446},{"Code":"if","type":"operation","Level":5,"Pos":133486},{"Code":"(RadioButton2.Checked)","type":"operation","Level":5,"Pos":133518},{"Code":"{","type":"block","Level":6,"Pos":133571},{"Code":"goto IL_1c98;","type":"goto","Level":6,"Pos":133572},{"Code":"}","type":"block","Level":6,"Pos":133649},{"Code":"else","type":"operation","Level":5,"Pos":133650},{"Code":"{","type":"block","Level":6,"Pos":133714},{"Code":"goto IL_1cb5;","type":"goto","Level":6,"Pos":133715},{"Code":"}","type":"block","Level":6,"Pos":133792},{"Code":"IL_1c98:","type":"label","Level":5,"Pos":133793},{"Code":"num = 342;","type":"operation","Level":5,"Pos":133827},{"Code":"List1.Items.Add(","type":"operation","Level":5,"Pos":133867},{"Code":"\u0022Familien ohne Datum\u0022","type":"string","Level":5,"Pos":133913},{"Code":");","type":"operation","Level":5,"Pos":133934},{"Code":"goto IL_1cb5;","type":"goto","Level":5,"Pos":133936},{"Code":"IL_1cb5:","type":"label","Level":5,"Pos":133979},{"Code":"num = 344;","type":"operation","Level":5,"Pos":134013},{"Code":"if","type":"operation","Level":5,"Pos":134053},{"Code":"(RadioButton2.Checked)","type":"operation","Level":5,"Pos":134085},{"Code":"{","type":"block","Level":6,"Pos":134138},{"Code":"goto IL_1ccd;","type":"goto","Level":6,"Pos":134139},{"Code":"}","type":"block","Level":6,"Pos":134216},{"Code":"else","type":"operation","Level":5,"Pos":134217},{"Code":"{","type":"block","Level":6,"Pos":134281},{"Code":"goto IL_1cea;","type":"goto","Level":6,"Pos":134282},{"Code":"}","type":"block","Level":6,"Pos":134359},{"Code":"IL_1ccd:","type":"label","Level":5,"Pos":134360},{"Code":"num = 345;","type":"operation","Level":5,"Pos":134394},{"Code":"List1.Items.Add(","type":"operation","Level":5,"Pos":134434},{"Code":"\u0022Mann Frau Kinder Pro Verl. Hei k.H. Schd. ehe\u00E4. au\u00DF Fikt.\u0022","type":"string","Level":5,"Pos":134480},{"Code":");","type":"operation","Level":5,"Pos":134561},{"Code":"goto IL_1cea;","type":"goto","Level":5,"Pos":134563},{"Code":"IL_1cea:","type":"label","Level":5,"Pos":134606},{"Code":"num = 347;","type":"operation","Level":5,"Pos":134640},{"Code":"if","type":"operation","Level":5,"Pos":134680},{"Code":"(RadioButton2.Checked)","type":"operation","Level":5,"Pos":134712},{"Code":"{","type":"block","Level":6,"Pos":134765},{"Code":"goto IL_1d02;","type":"goto","Level":6,"Pos":134766},{"Code":"}","type":"block","Level":6,"Pos":134843},{"Code":"else","type":"operation","Level":5,"Pos":134844},{"Code":"{","type":"block","Level":6,"Pos":134908},{"Code":"goto IL_1d1f;","type":"goto","Level":6,"Pos":134909},{"Code":"}","type":"block","Level":6,"Pos":134986},{"Code":"IL_1d02:","type":"label","Level":5,"Pos":134987},{"Code":"num = 348;","type":"operation","Level":5,"Pos":135021},{"Code":"List1.Items.Add(","type":"operation","Level":5,"Pos":135061},{"Code":"\u0022 DO DO DO DO DO DO DO\u0022","type":"string","Level":5,"Pos":135107},{"Code":");","type":"operation","Level":5,"Pos":135185},{"Code":"goto IL_1d1f;","type":"goto","Level":5,"Pos":135187},{"Code":"IL_1d1f:","type":"label","Level":5,"Pos":135230},{"Code":"num = 350;","type":"operation","Level":5,"Pos":135264},{"Code":"Modul1.I = 0;","type":"operation","Level":5,"Pos":135304},{"Code":"goto IL_1d2c;","type":"goto","Level":5,"Pos":135347},{"Code":"IL_1d2c:","type":"label","Level":5,"Pos":135390},{"Code":"num = 351;","type":"operation","Level":5,"Pos":135424},{"Code":"Label1[(short)Modul1.I].Refresh();","type":"operation","Level":5,"Pos":135464},{"Code":"goto IL_1d4a;","type":"goto","Level":5,"Pos":135528},{"Code":"IL_1d4a:","type":"label","Level":5,"Pos":135571},{"Code":"num = 352;","type":"operation","Level":5,"Pos":135605},{"Code":"Modul1.I\u002B\u002B;","type":"operation","Level":5,"Pos":135645},{"Code":"i8 = Modul1.I;","type":"operation","Level":5,"Pos":135686},{"Code":"num5 = 2;","type":"operation","Level":5,"Pos":135730},{"Code":"if","type":"operation","Level":5,"Pos":135769},{"Code":"(i8 \u003C= num5)","type":"operation","Level":5,"Pos":135801},{"Code":"{","type":"block","Level":6,"Pos":135844},{"Code":"goto IL_1d2c;","type":"goto","Level":6,"Pos":135845},{"Code":"}","type":"block","Level":6,"Pos":135922},{"Code":"else","type":"operation","Level":5,"Pos":135923},{"Code":"{","type":"block","Level":6,"Pos":135987},{"Code":"goto IL_1d6a;","type":"goto","Level":6,"Pos":135988},{"Code":"}","type":"block","Level":6,"Pos":136065},{"Code":"IL_1d6a:","type":"label","Level":5,"Pos":136066},{"Code":"num = 353;","type":"operation","Level":5,"Pos":136100},{"Code":"num7 = 1;","type":"operation","Level":5,"Pos":136140},{"Code":"goto IL_1d74;","type":"goto","Level":5,"Pos":136179},{"Code":"IL_1d74:","type":"label","Level":5,"Pos":136222},{"Code":"num = 354;","type":"operation","Level":5,"Pos":136256},{"Code":"if","type":"operation","Level":5,"Pos":136296},{"Code":"(num7 \u003C= 0)","type":"operation","Level":5,"Pos":136328},{"Code":"{","type":"block","Level":6,"Pos":136370},{"Code":"goto end_IL_0001_2;","type":"goto","Level":6,"Pos":136371},{"Code":"}","type":"block","Level":6,"Pos":136454},{"Code":"goto IL_1d8f;","type":"goto","Level":5,"Pos":136455},{"Code":"IL_1d8f:","type":"label","Level":5,"Pos":136498},{"Code":"num = 357;","type":"operation","Level":5,"Pos":136532},{"Code":"DataModul.DB_FamilyTable.MoveLast();","type":"operation","Level":5,"Pos":136572},{"Code":"goto IL_1da2;","type":"goto","Level":5,"Pos":136638},{"Code":"IL_1da2:","type":"label","Level":5,"Pos":136681},{"Code":"num = 358;","type":"operation","Level":5,"Pos":136715},{"Code":"num8 = DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value.AsInt();","type":"operation","Level":5,"Pos":136755},{"Code":"goto IL_1dc9;","type":"goto","Level":5,"Pos":136876},{"Code":"IL_1dc9:","type":"label","Level":5,"Pos":136919},{"Code":"num = 359;","type":"operation","Level":5,"Pos":136953},{"Code":"if","type":"operation","Level":5,"Pos":136993},{"Code":"((num7 \u003E DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value))","type":"operation","Level":5,"Pos":137025},{"Code":"{","type":"block","Level":6,"Pos":137142},{"Code":"goto IL_1dfc;","type":"goto","Level":6,"Pos":137143},{"Code":"}","type":"block","Level":6,"Pos":137220},{"Code":"else","type":"operation","Level":5,"Pos":137221},{"Code":"{","type":"block","Level":6,"Pos":137285},{"Code":"goto IL_1e3d;","type":"goto","Level":6,"Pos":137286},{"Code":"}","type":"block","Level":6,"Pos":137363},{"Code":"IL_1dfc:","type":"label","Level":5,"Pos":137364},{"Code":"num = 360;","type":"operation","Level":5,"Pos":137398},{"Code":"Interaction.MsgBox(Modul1.IText[174] \u002B","type":"operation","Level":5,"Pos":137438},{"Code":"\u0022 \u0022","type":"string","Level":5,"Pos":137507},{"Code":"\u002B num7.AsString() \u002B Modul1.IText[172]);","type":"operation","Level":5,"Pos":137510},{"Code":"goto end_IL_0001_2;","type":"goto","Level":5,"Pos":137550},{"Code":"IL_1e3d:","type":"label","Level":5,"Pos":137599},{"Code":"num = 363;","type":"operation","Level":5,"Pos":137633},{"Code":"ProgressBar1.Minimum = 0;","type":"operation","Level":5,"Pos":137673},{"Code":"goto IL_1e51;","type":"goto","Level":5,"Pos":137728},{"Code":"IL_1e51:","type":"label","Level":5,"Pos":137771},{"Code":"num = 364;","type":"operation","Level":5,"Pos":137805},{"Code":"ProgressBar1.Maximum = 0;","type":"operation","Level":5,"Pos":137845},{"Code":"goto IL_1e65;","type":"goto","Level":5,"Pos":137900},{"Code":"IL_1e65:","type":"label","Level":5,"Pos":137943},{"Code":"num = 365;","type":"operation","Level":5,"Pos":137977},{"Code":"ProgressBar1.Step = 1;","type":"operation","Level":5,"Pos":138017},{"Code":"goto IL_1e79;","type":"goto","Level":5,"Pos":138069},{"Code":"IL_1e79:","type":"label","Level":5,"Pos":138112},{"Code":"num = 366;","type":"operation","Level":5,"Pos":138146},{"Code":"ProgressBar1.Maximum = (int)Math.Round(Conversion.Val(Modul1.Aus[13]));","type":"operation","Level":5,"Pos":138186},{"Code":"goto IL_1e9f;","type":"goto","Level":5,"Pos":138287},{"Code":"IL_1e9f:","type":"label","Level":5,"Pos":138330},{"Code":"num = 367;","type":"operation","Level":5,"Pos":138364},{"Code":"i9 = num7;","type":"operation","Level":5,"Pos":138404},{"Code":"num14 = num7 \u002B DataModul.DB_FamilyTable.RecordCount;","type":"operation","Level":5,"Pos":138444},{"Code":"I1 = i9;","type":"operation","Level":5,"Pos":138526},{"Code":"goto IL_2440;","type":"goto","Level":5,"Pos":138564},{"Code":"IL_2440:","type":"label","Level":5,"Pos":138607},{"Code":"i10 = I1;","type":"operation","Level":5,"Pos":138641},{"Code":"num5 = num14;","type":"operation","Level":5,"Pos":138680},{"Code":"if","type":"operation","Level":5,"Pos":138723},{"Code":"(i10 \u003C= num5)","type":"operation","Level":5,"Pos":138755},{"Code":"{","type":"block","Level":6,"Pos":138799},{"Code":"goto IL_1ec2;","type":"goto","Level":6,"Pos":138800},{"Code":"}","type":"block","Level":6,"Pos":138877},{"Code":"else","type":"operation","Level":5,"Pos":138878},{"Code":"{","type":"block","Level":6,"Pos":138942},{"Code":"goto IL_2451;","type":"goto","Level":6,"Pos":138943},{"Code":"}","type":"block","Level":6,"Pos":139020},{"Code":"IL_2451:","type":"label","Level":5,"Pos":139021},{"Code":"num = 435;","type":"operation","Level":5,"Pos":139055},{"Code":"Label4.Text = List1.Items.Count - 2.AsString() \u002B","type":"operation","Level":5,"Pos":139095},{"Code":"\u0022 Eintr\u00E4ge\u0022","type":"string","Level":5,"Pos":139174},{"Code":";","type":"operation","Level":5,"Pos":139185},{"Code":"goto end_IL_0001_2;","type":"goto","Level":5,"Pos":139186},{"Code":"IL_1ec2:","type":"label","Level":5,"Pos":139235},{"Code":"num = 368;","type":"operation","Level":5,"Pos":139269},{"Code":"ProgressBar1.PerformStep();","type":"operation","Level":5,"Pos":139309},{"Code":"goto IL_1ed5;","type":"goto","Level":5,"Pos":139366},{"Code":"IL_1ed5:","type":"label","Level":5,"Pos":139409},{"Code":"num = 369;","type":"operation","Level":5,"Pos":139443},{"Code":"Application.DoEvents();","type":"operation","Level":5,"Pos":139483},{"Code":"goto IL_1ee2;","type":"goto","Level":5,"Pos":139536},{"Code":"IL_1ee2:","type":"label","Level":5,"Pos":139579},{"Code":"num = 370;","type":"operation","Level":5,"Pos":139613},{"Code":"sDest2 =","type":"operation","Level":5,"Pos":139653},{"Code":"\u0022 \u0022","type":"string","Level":5,"Pos":139692},{"Code":";","type":"operation","Level":5,"Pos":139784},{"Code":"goto IL_1ef0;","type":"goto","Level":5,"Pos":139785},{"Code":"IL_1ef0:","type":"label","Level":5,"Pos":139828},{"Code":"num = 371;","type":"operation","Level":5,"Pos":139862},{"Code":"Modul1.FamInArb = I1;","type":"operation","Level":5,"Pos":139902},{"Code":"goto IL_1f02;","type":"goto","Level":5,"Pos":139953},{"Code":"IL_1f02:","type":"label","Level":5,"Pos":139996},{"Code":"num = 372;","type":"operation","Level":5,"Pos":140030},{"Code":"if","type":"operation","Level":5,"Pos":140070},{"Code":"(Modul1.FamInArb \u003C= num8)","type":"operation","Level":5,"Pos":140102},{"Code":"{","type":"block","Level":6,"Pos":140158},{"Code":"goto IL_1f1d;","type":"goto","Level":6,"Pos":140159},{"Code":"}","type":"block","Level":6,"Pos":140236},{"Code":"else","type":"operation","Level":5,"Pos":140237},{"Code":"{","type":"block","Level":6,"Pos":140301},{"Code":"goto IL_241f;","type":"goto","Level":6,"Pos":140302},{"Code":"}","type":"block","Level":6,"Pos":140379},{"Code":"IL_1f1d:","type":"label","Level":5,"Pos":140380},{"Code":"num = 375;","type":"operation","Level":5,"Pos":140414},{"Code":"DataModul.DB_FamilyTable.Index = nameof(DataModul.FamilyIndex.Fam);","type":"operation","Level":5,"Pos":140454},{"Code":"goto IL_1f34;","type":"goto","Level":5,"Pos":140551},{"Code":"IL_1f34:","type":"label","Level":5,"Pos":140594},{"Code":"num = 376;","type":"operation","Level":5,"Pos":140628},{"Code":"DataModul.DB_FamilyTable.Seek(","type":"operation","Level":5,"Pos":140668},{"Code":"\u0022=\u0022","type":"string","Level":5,"Pos":140728},{"Code":", Modul1.FamInArb.AsString());","type":"operation","Level":5,"Pos":140731},{"Code":"goto IL_1f96;","type":"goto","Level":5,"Pos":140761},{"Code":"IL_1f96:","type":"label","Level":5,"Pos":140804},{"Code":"num = 377;","type":"operation","Level":5,"Pos":140838},{"Code":"if","type":"operation","Level":5,"Pos":140878},{"Code":"(!DataModul.DB_FamilyTable.NoMatch)","type":"operation","Level":5,"Pos":140910},{"Code":"{","type":"block","Level":6,"Pos":140976},{"Code":"goto IL_1fb2;","type":"goto","Level":6,"Pos":140977},{"Code":"}","type":"block","Level":6,"Pos":141054},{"Code":"else","type":"operation","Level":5,"Pos":141055},{"Code":"{","type":"block","Level":6,"Pos":141119},{"Code":"goto IL_2317;","type":"goto","Level":6,"Pos":141120},{"Code":"}","type":"block","Level":6,"Pos":141197},{"Code":"IL_1fb2:","type":"label","Level":5,"Pos":141198},{"Code":"num = 380;","type":"operation","Level":5,"Pos":141232},{"Code":"MainProject.Forms.Familie.Famles(Modul1.FamInArb);","type":"operation","Level":5,"Pos":141272},{"Code":"goto IL_1fbf;","type":"goto","Level":5,"Pos":141352},{"Code":"IL_1fbf:","type":"label","Level":5,"Pos":141395},{"Code":"num = 381;","type":"operation","Level":5,"Pos":141429},{"Code":"if","type":"operation","Level":5,"Pos":141469},{"Code":"(Modul1.Family.Mann \u003E 0)","type":"operation","Level":5,"Pos":141501},{"Code":"{","type":"block","Level":6,"Pos":141556},{"Code":"goto IL_1fd7;","type":"goto","Level":6,"Pos":141557},{"Code":"}","type":"block","Level":6,"Pos":141634},{"Code":"else","type":"operation","Level":5,"Pos":141635},{"Code":"{","type":"block","Level":6,"Pos":141699},{"Code":"goto IL_206d;","type":"goto","Level":6,"Pos":141700},{"Code":"}","type":"block","Level":6,"Pos":141777},{"Code":"IL_1fd7:","type":"label","Level":5,"Pos":141778},{"Code":"num = 382;","type":"operation","Level":5,"Pos":141812},{"Code":"Modul1.PersInArb = Modul1.Family.Mann;","type":"operation","Level":5,"Pos":141852},{"Code":"goto IL_1fe8;","type":"goto","Level":5,"Pos":141920},{"Code":"IL_1fe8:","type":"label","Level":5,"Pos":141963},{"Code":"num = 383;","type":"operation","Level":5,"Pos":141997},{"Code":"Modul1.Personlesen(Modul1.PersInArb);","type":"operation","Level":5,"Pos":142037},{"Code":"goto IL_1ff5;","type":"goto","Level":5,"Pos":142104},{"Code":"IL_1ff5:","type":"label","Level":5,"Pos":142147},{"Code":"num = 384;","type":"operation","Level":5,"Pos":142181},{"Code":"if","type":"operation","Level":5,"Pos":142221},{"Code":"(Modul1.Kont[0] !=","type":"operation","Level":5,"Pos":142253},{"Code":"\u0022\u0022","type":"string","Level":5,"Pos":142273},{"Code":")","type":"operation","Level":5,"Pos":142275},{"Code":"{","type":"block","Level":6,"Pos":142306},{"Code":"goto IL_201a;","type":"goto","Level":6,"Pos":142307},{"Code":"}","type":"block","Level":6,"Pos":142384},{"Code":"else","type":"operation","Level":5,"Pos":142385},{"Code":"{","type":"block","Level":6,"Pos":142449},{"Code":"goto IL_2035;","type":"goto","Level":6,"Pos":142450},{"Code":"}","type":"block","Level":6,"Pos":142527},{"Code":"IL_201a:","type":"label","Level":5,"Pos":142528},{"Code":"num = 385;","type":"operation","Level":5,"Pos":142562},{"Code":"StringType.MidStmtStr(ref sDest2, 1, 15, Modul1.Kont[0]);","type":"operation","Level":5,"Pos":142602},{"Code":"goto IL_2055;","type":"goto","Level":5,"Pos":142689},{"Code":"IL_2035:","type":"label","Level":5,"Pos":142732},{"Code":"num = 387;","type":"operation","Level":5,"Pos":142766},{"Code":"goto IL_203d;","type":"goto","Level":5,"Pos":142806},{"Code":"IL_203d:","type":"label","Level":5,"Pos":142849},{"Code":"num = 388;","type":"operation","Level":5,"Pos":142883},{"Code":"StringType.MidStmtStr(ref sDest2, 1, 15,","type":"operation","Level":5,"Pos":142923},{"Code":"\u0022\u003ENN\u003C\u0022","type":"string","Level":5,"Pos":142994},{"Code":");","type":"operation","Level":5,"Pos":143000},{"Code":"goto IL_2055;","type":"goto","Level":5,"Pos":143002},{"Code":"IL_2055:","type":"label","Level":5,"Pos":143045},{"Code":"num = 390;","type":"operation","Level":5,"Pos":143079},{"Code":"StringType.MidStmtStr(ref sDest2, 16, 2,","type":"operation","Level":5,"Pos":143119},{"Code":"\u0022/ \u0022","type":"string","Level":5,"Pos":143190},{"Code":");","type":"operation","Level":5,"Pos":143194},{"Code":"goto IL_206d;","type":"goto","Level":5,"Pos":143196},{"Code":"IL_206d:","type":"label","Level":5,"Pos":143239},{"Code":"num = 392;","type":"operation","Level":5,"Pos":143273},{"Code":"if","type":"operation","Level":5,"Pos":143313},{"Code":"(Modul1.Family.Frau \u003E 0)","type":"operation","Level":5,"Pos":143345},{"Code":"{","type":"block","Level":6,"Pos":143400},{"Code":"goto IL_2085;","type":"goto","Level":6,"Pos":143401},{"Code":"}","type":"block","Level":6,"Pos":143478},{"Code":"else","type":"operation","Level":5,"Pos":143479},{"Code":"{","type":"block","Level":6,"Pos":143543},{"Code":"goto IL_2106;","type":"goto","Level":6,"Pos":143544},{"Code":"}","type":"block","Level":6,"Pos":143621},{"Code":"IL_2085:","type":"label","Level":5,"Pos":143622},{"Code":"num = 393;","type":"operation","Level":5,"Pos":143656},{"Code":"Modul1.PersInArb = Modul1.Family.Frau;","type":"operation","Level":5,"Pos":143696},{"Code":"goto IL_2096;","type":"goto","Level":5,"Pos":143764},{"Code":"IL_2096:","type":"label","Level":5,"Pos":143807},{"Code":"num = 394;","type":"operation","Level":5,"Pos":143841},{"Code":"Modul1.Personlesen(Modul1.PersInArb);","type":"operation","Level":5,"Pos":143881},{"Code":"goto IL_20a3;","type":"goto","Level":5,"Pos":143948},{"Code":"IL_20a3:","type":"label","Level":5,"Pos":143991},{"Code":"num = 395;","type":"operation","Level":5,"Pos":144025},{"Code":"if","type":"operation","Level":5,"Pos":144065},{"Code":"(Modul1.Kont[0] !=","type":"operation","Level":5,"Pos":144097},{"Code":"\u0022\u0022","type":"string","Level":5,"Pos":144117},{"Code":")","type":"operation","Level":5,"Pos":144119},{"Code":"{","type":"block","Level":6,"Pos":144150},{"Code":"goto IL_20c8;","type":"goto","Level":6,"Pos":144151},{"Code":"}","type":"block","Level":6,"Pos":144228},{"Code":"else","type":"operation","Level":5,"Pos":144229},{"Code":"{","type":"block","Level":6,"Pos":144293},{"Code":"goto IL_20e4;","type":"goto","Level":6,"Pos":144294},{"Code":"}","type":"block","Level":6,"Pos":144371},{"Code":"IL_20c8:","type":"label","Level":5,"Pos":144372},{"Code":"num = 396;","type":"operation","Level":5,"Pos":144406},{"Code":"StringType.MidStmtStr(ref sDest2, 17, 15, Modul1.Kont[0]);","type":"operation","Level":5,"Pos":144446},{"Code":"goto IL_2106;","type":"goto","Level":5,"Pos":144534},{"Code":"IL_20e4:","type":"label","Level":5,"Pos":144577},{"Code":"num = 398;","type":"operation","Level":5,"Pos":144611},{"Code":"goto IL_20ec;","type":"goto","Level":5,"Pos":144651},{"Code":"IL_20ec:","type":"label","Level":5,"Pos":144694},{"Code":"num = 399;","type":"operation","Level":5,"Pos":144728},{"Code":"StringType.MidStmtStr(ref sDest2, 17, 15,","type":"operation","Level":5,"Pos":144768},{"Code":"\u0022\u003ENN\u003C\u0022","type":"string","Level":5,"Pos":144840},{"Code":");","type":"operation","Level":5,"Pos":144846},{"Code":"goto IL_2106;","type":"goto","Level":5,"Pos":144848},{"Code":"IL_2106:","type":"label","Level":5,"Pos":144891},{"Code":"num = 402;","type":"operation","Level":5,"Pos":144925},{"Code":"if","type":"operation","Level":5,"Pos":144965},{"Code":"(Modul1.Family.Kind[1] != 0)","type":"operation","Level":5,"Pos":144997},{"Code":"{","type":"block","Level":6,"Pos":145056},{"Code":"goto IL_2120;","type":"goto","Level":6,"Pos":145057},{"Code":"}","type":"block","Level":6,"Pos":145134},{"Code":"else","type":"operation","Level":5,"Pos":145135},{"Code":"{","type":"block","Level":6,"Pos":145199},{"Code":"goto IL_213d;","type":"goto","Level":6,"Pos":145200},{"Code":"}","type":"block","Level":6,"Pos":145277},{"Code":"IL_2120:","type":"label","Level":5,"Pos":145278},{"Code":"num = 403;","type":"operation","Level":5,"Pos":145312},{"Code":"StringType.MidStmtStr(ref sDest2, 32, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":145352},{"Code":"goto IL_213d;","type":"goto","Level":5,"Pos":145442},{"Code":"IL_213d:","type":"label","Level":5,"Pos":145485},{"Code":"num = 405;","type":"operation","Level":5,"Pos":145519},{"Code":"DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.ArtNr);","type":"operation","Level":5,"Pos":145559},{"Code":"goto IL_2154;","type":"goto","Level":5,"Pos":145656},{"Code":"IL_2154:","type":"label","Level":5,"Pos":145699},{"Code":"num = 406;","type":"operation","Level":5,"Pos":145733},{"Code":"DataModul.DB_FamilyTable.Index = nameof(DataModul.FamilyIndex.Fam);","type":"operation","Level":5,"Pos":145773},{"Code":"goto IL_216b;","type":"goto","Level":5,"Pos":145870},{"Code":"IL_216b:","type":"label","Level":5,"Pos":145913},{"Code":"num = 407;","type":"operation","Level":5,"Pos":145947},{"Code":"DataModul.DB_FamilyTable.Seek(","type":"operation","Level":5,"Pos":145987},{"Code":"\u0022=\u0022","type":"string","Level":5,"Pos":146047},{"Code":", Modul1.FamInArb);","type":"operation","Level":5,"Pos":146050},{"Code":"goto IL_21c8;","type":"goto","Level":5,"Pos":146069},{"Code":"IL_21c8:","type":"label","Level":5,"Pos":146112},{"Code":"num = 408;","type":"operation","Level":5,"Pos":146146},{"Code":"if","type":"operation","Level":5,"Pos":146186},{"Code":"(!DataModul.DB_FamilyTable.NoMatch)","type":"operation","Level":5,"Pos":146218},{"Code":"{","type":"block","Level":6,"Pos":146284},{"Code":"goto IL_21e4;","type":"goto","Level":6,"Pos":146285},{"Code":"}","type":"block","Level":6,"Pos":146362},{"Code":"else","type":"operation","Level":5,"Pos":146363},{"Code":"{","type":"block","Level":6,"Pos":146427},{"Code":"goto IL_2317;","type":"goto","Level":6,"Pos":146428},{"Code":"}","type":"block","Level":6,"Pos":146505},{"Code":"IL_21e4:","type":"label","Level":5,"Pos":146506},{"Code":"num = 411;","type":"operation","Level":5,"Pos":146540},{"Code":"if","type":"operation","Level":5,"Pos":146580},{"Code":"((DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.Aeb)].Value == -1))","type":"operation","Level":5,"Pos":146612},{"Code":"{","type":"block","Level":6,"Pos":146727},{"Code":"goto IL_2216;","type":"goto","Level":6,"Pos":146728},{"Code":"}","type":"block","Level":6,"Pos":146805},{"Code":"else","type":"operation","Level":5,"Pos":146806},{"Code":"{","type":"block","Level":6,"Pos":146870},{"Code":"goto IL_2233;","type":"goto","Level":6,"Pos":146871},{"Code":"}","type":"block","Level":6,"Pos":146948},{"Code":"IL_2216:","type":"label","Level":5,"Pos":146949},{"Code":"num = 412;","type":"operation","Level":5,"Pos":146983},{"Code":"StringType.MidStmtStr(ref sDest2, 70, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":147023},{"Code":"goto IL_2233;","type":"goto","Level":5,"Pos":147113},{"Code":"IL_2233:","type":"label","Level":5,"Pos":147156},{"Code":"num = 414;","type":"operation","Level":5,"Pos":147190},{"Code":"num15 = 500;","type":"operation","Level":5,"Pos":147230},{"Code":"goto IL_2240;","type":"goto","Level":5,"Pos":147272},{"Code":"IL_2240:","type":"label","Level":5,"Pos":147315},{"Code":"num = 415;","type":"operation","Level":5,"Pos":147349},{"Code":"Modul1.Ubg = num15;","type":"operation","Level":5,"Pos":147389},{"Code":"goto IL_224d;","type":"goto","Level":5,"Pos":147438},{"Code":"IL_224d:","type":"label","Level":5,"Pos":147481},{"Code":"num = 416;","type":"operation","Level":5,"Pos":147515},{"Code":"DataModul.DB_EventTable.Seek(","type":"operation","Level":5,"Pos":147555},{"Code":"\u0022=\u0022","type":"string","Level":5,"Pos":147614},{"Code":", Modul1.Ubg.AsString(), Modul1.FamInArb.AsString(),","type":"operation","Level":5,"Pos":147617},{"Code":"\u00220\u0022","type":"string","Level":5,"Pos":147670},{"Code":");","type":"operation","Level":5,"Pos":147673},{"Code":"goto IL_22b9;","type":"goto","Level":5,"Pos":147675},{"Code":"IL_22b9:","type":"label","Level":5,"Pos":147718},{"Code":"num = 417;","type":"operation","Level":5,"Pos":147752},{"Code":"if","type":"operation","Level":5,"Pos":147792},{"Code":"(DataModul.DB_EventTable.NoMatch)","type":"operation","Level":5,"Pos":147824},{"Code":"{","type":"block","Level":6,"Pos":147888},{"Code":"goto IL_22d8;","type":"goto","Level":6,"Pos":147889},{"Code":"}","type":"block","Level":6,"Pos":147966},{"Code":"else","type":"operation","Level":5,"Pos":147967},{"Code":"{","type":"block","Level":6,"Pos":148031},{"Code":"goto IL_241f;","type":"goto","Level":6,"Pos":148032},{"Code":"}","type":"block","Level":6,"Pos":148109},{"Code":"IL_22d8:","type":"label","Level":5,"Pos":148110},{"Code":"num = 420;","type":"operation","Level":5,"Pos":148144},{"Code":"if","type":"operation","Level":5,"Pos":148184},{"Code":"(!((num15 == 507) \u0026 DataModul.DB_EventTable.NoMatch))","type":"operation","Level":5,"Pos":148216},{"Code":"{","type":"block","Level":6,"Pos":148300},{"Code":"goto IL_22fa;","type":"goto","Level":6,"Pos":148301},{"Code":"}","type":"block","Level":6,"Pos":148378},{"Code":"else","type":"operation","Level":5,"Pos":148379},{"Code":"{","type":"block","Level":6,"Pos":148443},{"Code":"goto IL_2317;","type":"goto","Level":6,"Pos":148444},{"Code":"}","type":"block","Level":6,"Pos":148521},{"Code":"IL_22fa:","type":"label","Level":5,"Pos":148522},{"Code":"num = 423;","type":"operation","Level":5,"Pos":148556},{"Code":"num15 = (short)unchecked(num15 \u002B 1);","type":"operation","Level":5,"Pos":148596},{"Code":"num16 = num15;","type":"operation","Level":5,"Pos":148662},{"Code":"num11 = 507;","type":"operation","Level":5,"Pos":148706},{"Code":"if","type":"operation","Level":5,"Pos":148748},{"Code":"(num16 \u003C= num11)","type":"operation","Level":5,"Pos":148780},{"Code":"{","type":"block","Level":6,"Pos":148827},{"Code":"goto IL_2240;","type":"goto","Level":6,"Pos":148828},{"Code":"}","type":"block","Level":6,"Pos":148905},{"Code":"else","type":"operation","Level":5,"Pos":148906},{"Code":"{","type":"block","Level":6,"Pos":148970},{"Code":"goto IL_2317;","type":"goto","Level":6,"Pos":148971},{"Code":"}","type":"block","Level":6,"Pos":149048},{"Code":"IL_2317:","type":"label","Level":5,"Pos":149049},{"Code":"num = 424;","type":"operation","Level":5,"Pos":149083},{"Code":"lErl = 34;","type":"operation","Level":5,"Pos":149123},{"Code":"goto IL_2322;","type":"goto","Level":5,"Pos":149163},{"Code":"IL_2322:","type":"label","Level":5,"Pos":149206},{"Code":"num = 425;","type":"operation","Level":5,"Pos":149240},{"Code":"DataModul.DB_EventTable.Seek(","type":"operation","Level":5,"Pos":149280},{"Code":"\u0022=\u0022","type":"string","Level":5,"Pos":149339},{"Code":", 601.AsString(), Modul1.FamInArb.AsString(),","type":"operation","Level":5,"Pos":149342},{"Code":"\u00220\u0022","type":"string","Level":5,"Pos":149388},{"Code":");","type":"operation","Level":5,"Pos":149391},{"Code":"goto IL_238e;","type":"goto","Level":5,"Pos":149393},{"Code":"IL_238e:","type":"label","Level":5,"Pos":149436},{"Code":"num = 426;","type":"operation","Level":5,"Pos":149470},{"Code":"if","type":"operation","Level":5,"Pos":149510},{"Code":"(DataModul.DB_EventTable.NoMatch)","type":"operation","Level":5,"Pos":149542},{"Code":"{","type":"block","Level":6,"Pos":149606},{"Code":"goto IL_23aa;","type":"goto","Level":6,"Pos":149607},{"Code":"}","type":"block","Level":6,"Pos":149684},{"Code":"else","type":"operation","Level":5,"Pos":149685},{"Code":"{","type":"block","Level":6,"Pos":149749},{"Code":"goto IL_241f;","type":"goto","Level":6,"Pos":149750},{"Code":"}","type":"block","Level":6,"Pos":149827},{"Code":"IL_23aa:","type":"label","Level":5,"Pos":149828},{"Code":"num = 429;","type":"operation","Level":5,"Pos":149862},{"Code":"if","type":"operation","Level":5,"Pos":149902},{"Code":"(sDest2.Trim() !=","type":"operation","Level":5,"Pos":149934},{"Code":"\u0022\u0022","type":"string","Level":5,"Pos":149953},{"Code":")","type":"operation","Level":5,"Pos":149955},{"Code":"{","type":"block","Level":6,"Pos":149986},{"Code":"goto IL_23cf;","type":"goto","Level":6,"Pos":149987},{"Code":"}","type":"block","Level":6,"Pos":150064},{"Code":"else","type":"operation","Level":5,"Pos":150065},{"Code":"{","type":"block","Level":6,"Pos":150129},{"Code":"goto IL_241f;","type":"goto","Level":6,"Pos":150130},{"Code":"}","type":"block","Level":6,"Pos":150207},{"Code":"IL_23cf:","type":"label","Level":5,"Pos":150208},{"Code":"num = 430;","type":"operation","Level":5,"Pos":150242},{"Code":"List1.Items.Add(new ListItem(sDest2 \u002B","type":"operation","Level":5,"Pos":150282},{"Code":"\u0022 \u0022","type":"string","Level":5,"Pos":150350},{"Code":"\u002B Modul1.FamInArb.AsString()));","type":"operation","Level":5,"Pos":150362},{"Code":"goto IL_2407;","type":"goto","Level":5,"Pos":150394},{"Code":"IL_2407:","type":"label","Level":5,"Pos":150437},{"Code":"num = 431;","type":"operation","Level":5,"Pos":150471},{"Code":"","type":"operation","Level":5,"Pos":150511},{"Code":"//Sz\u002B\u002B;","type":"lComment","Level":5,"Pos":150541},{"Code":"goto IL_241f;","type":"goto","Level":5,"Pos":150549},{"Code":"IL_241f:","type":"label","Level":5,"Pos":150591},{"Code":"num = 433;","type":"operation","Level":5,"Pos":150625},{"Code":"lErl = 35;","type":"operation","Level":5,"Pos":150665},{"Code":"goto IL_242a;","type":"goto","Level":5,"Pos":150705},{"Code":"IL_242a:","type":"label","Level":5,"Pos":150748},{"Code":"num = 434;","type":"operation","Level":5,"Pos":150782},{"Code":"I1\u002B\u002B;","type":"operation","Level":5,"Pos":150822},{"Code":"goto IL_2440;","type":"goto","Level":5,"Pos":150857},{"Code":"IL_1aae:","type":"label","Level":5,"Pos":150900},{"Code":"num = 322;","type":"operation","Level":5,"Pos":150934},{"Code":"FileSystem.FileClose(99);","type":"operation","Level":5,"Pos":150974},{"Code":"goto IL_1acb;","type":"goto","Level":5,"Pos":151029},{"Code":"IL_1acb:","type":"label","Level":5,"Pos":151072},{"Code":"num = 323;","type":"operation","Level":5,"Pos":151106},{"Code":"FileSystem.FileOpen(99, Modul1.TempPath \u002B","type":"operation","Level":5,"Pos":151146},{"Code":"\u0022\\\\Text4.Txt\u0022","type":"string","Level":5,"Pos":151218},{"Code":", OpenMode.Output);","type":"operation","Level":5,"Pos":151231},{"Code":"goto IL_1aed;","type":"goto","Level":5,"Pos":151250},{"Code":"IL_1aed:","type":"label","Level":5,"Pos":151293},{"Code":"num = 324;","type":"operation","Level":5,"Pos":151327},{"Code":"FileSystem.PrintLine(99, Label1[2].Text);","type":"operation","Level":5,"Pos":151367},{"Code":"goto IL_1b1c;","type":"goto","Level":5,"Pos":151438},{"Code":"IL_1b1c:","type":"label","Level":5,"Pos":151481},{"Code":"num = 325;","type":"operation","Level":5,"Pos":151515},{"Code":"FileSystem.PrintLine(99, Label1[1].Text);","type":"operation","Level":5,"Pos":151555},{"Code":"goto IL_1b4b;","type":"goto","Level":5,"Pos":151626},{"Code":"IL_1b4b:","type":"label","Level":5,"Pos":151669},{"Code":"num = 326;","type":"operation","Level":5,"Pos":151703},{"Code":"FileSystem.PrintLine(99, Label1[0].Text);","type":"operation","Level":5,"Pos":151743},{"Code":"goto IL_1b7a;","type":"goto","Level":5,"Pos":151814},{"Code":"IL_1b7a:","type":"label","Level":5,"Pos":151857},{"Code":"num = 327;","type":"operation","Level":5,"Pos":151891},{"Code":"if","type":"operation","Level":5,"Pos":151931},{"Code":"(List2.Visible)","type":"operation","Level":5,"Pos":151963},{"Code":"{","type":"block","Level":6,"Pos":152009},{"Code":"goto IL_1b92;","type":"goto","Level":6,"Pos":152010},{"Code":"}","type":"block","Level":6,"Pos":152087},{"Code":"else","type":"operation","Level":5,"Pos":152088},{"Code":"{","type":"block","Level":6,"Pos":152152},{"Code":"goto IL_1bb9;","type":"goto","Level":6,"Pos":152153},{"Code":"}","type":"block","Level":6,"Pos":152230},{"Code":"IL_1b92:","type":"label","Level":5,"Pos":152231},{"Code":"num = 328;","type":"operation","Level":5,"Pos":152265},{"Code":"L = List2;","type":"operation","Level":5,"Pos":152305},{"Code":"A = 2;","type":"operation","Level":5,"Pos":152345},{"Code":"Modul1.Listbox3Clip(ref L, ref A);","type":"operation","Level":5,"Pos":152381},{"Code":"List2 = L;","type":"operation","Level":5,"Pos":152445},{"Code":"goto IL_1be7;","type":"goto","Level":5,"Pos":152485},{"Code":"IL_1bb9:","type":"label","Level":5,"Pos":152528},{"Code":"num = 330;","type":"operation","Level":5,"Pos":152562},{"Code":"goto IL_1bc1;","type":"goto","Level":5,"Pos":152602},{"Code":"IL_1bc1:","type":"label","Level":5,"Pos":152645},{"Code":"num = 331;","type":"operation","Level":5,"Pos":152679},{"Code":"L = List1;","type":"operation","Level":5,"Pos":152719},{"Code":"A = 2;","type":"operation","Level":5,"Pos":152759},{"Code":"Modul1.Listbox3Clip(ref L, ref A);","type":"operation","Level":5,"Pos":152795},{"Code":"List1 = L;","type":"operation","Level":5,"Pos":152859},{"Code":"goto IL_1be7;","type":"goto","Level":5,"Pos":152899},{"Code":"IL_1be7:","type":"label","Level":5,"Pos":152942},{"Code":"num = 333;","type":"operation","Level":5,"Pos":152976},{"Code":"FileSystem.FileClose();","type":"operation","Level":5,"Pos":153016},{"Code":"goto IL_448a;","type":"goto","Level":5,"Pos":153069},{"Code":"IL_1a3c:","type":"label","Level":5,"Pos":153112},{"Code":"num = 314;","type":"operation","Level":5,"Pos":153146},{"Code":"List1.Items.Clear();","type":"operation","Level":5,"Pos":153186},{"Code":"goto IL_1a54;","type":"goto","Level":5,"Pos":153236},{"Code":"IL_1a54:","type":"label","Level":5,"Pos":153279},{"Code":"num = 315;","type":"operation","Level":5,"Pos":153313},{"Code":"List2.Items.Clear();","type":"operation","Level":5,"Pos":153353},{"Code":"goto IL_1a6c;","type":"goto","Level":5,"Pos":153403},{"Code":"IL_1a6c:","type":"label","Level":5,"Pos":153446},{"Code":"num = 316;","type":"operation","Level":5,"Pos":153480},{"Code":"ProgressBar1.Minimum = 0;","type":"operation","Level":5,"Pos":153520},{"Code":"goto IL_1a80;","type":"goto","Level":5,"Pos":153575},{"Code":"IL_1a80:","type":"label","Level":5,"Pos":153618},{"Code":"num = 317;","type":"operation","Level":5,"Pos":153652},{"Code":"ProgressBar1.Maximum = 0;","type":"operation","Level":5,"Pos":153692},{"Code":"goto IL_1a94;","type":"goto","Level":5,"Pos":153747},{"Code":"IL_1a94:","type":"label","Level":5,"Pos":153790},{"Code":"num = 318;","type":"operation","Level":5,"Pos":153824},{"Code":"Close();","type":"operation","Level":5,"Pos":153864},{"Code":"goto end_IL_0001_2;","type":"goto","Level":5,"Pos":153902},{"Code":"IL_0cef:","type":"label","Level":5,"Pos":153951},{"Code":"num = 159;","type":"operation","Level":5,"Pos":153985},{"Code":"DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.ArtNr);","type":"operation","Level":5,"Pos":154025},{"Code":"goto IL_0d06;","type":"goto","Level":5,"Pos":154122},{"Code":"IL_0d06:","type":"label","Level":5,"Pos":154165},{"Code":"num = 160;","type":"operation","Level":5,"Pos":154199},{"Code":"List1.Items.Clear();","type":"operation","Level":5,"Pos":154239},{"Code":"goto IL_0d1e;","type":"goto","Level":5,"Pos":154289},{"Code":"IL_0d1e:","type":"label","Level":5,"Pos":154332},{"Code":"num = 161;","type":"operation","Level":5,"Pos":154366},{"Code":"Label1[2].Text =","type":"operation","Level":5,"Pos":154406},{"Code":"\u0022Fehlliste Familien\u0022","type":"string","Level":5,"Pos":154453},{"Code":";","type":"operation","Level":5,"Pos":154473},{"Code":"goto IL_0d3c;","type":"goto","Level":5,"Pos":154474},{"Code":"IL_0d3c:","type":"label","Level":5,"Pos":154517},{"Code":"num = 162;","type":"operation","Level":5,"Pos":154551},{"Code":"Label1[1].Text =","type":"operation","Level":5,"Pos":154591},{"Code":"\u0022Mann Frau Kinder Pro Verl. Hei k.H. Schd. ehe\u00E4. au\u00DF Fikt.\u0022","type":"string","Level":5,"Pos":154638},{"Code":";","type":"operation","Level":5,"Pos":154719},{"Code":"goto IL_0d5a;","type":"goto","Level":5,"Pos":154720},{"Code":"IL_0d5a:","type":"label","Level":5,"Pos":154763},{"Code":"num = 163;","type":"operation","Level":5,"Pos":154797},{"Code":"Label1[0].Text =","type":"operation","Level":5,"Pos":154837},{"Code":"\u0022 DO DO DO DO DO DO DO\u0022","type":"string","Level":5,"Pos":154884},{"Code":";","type":"operation","Level":5,"Pos":154962},{"Code":"goto IL_0d78;","type":"goto","Level":5,"Pos":154963},{"Code":"IL_0d78:","type":"label","Level":5,"Pos":155006},{"Code":"num = 164;","type":"operation","Level":5,"Pos":155040},{"Code":"if","type":"operation","Level":5,"Pos":155080},{"Code":"(RadioButton2.Checked)","type":"operation","Level":5,"Pos":155112},{"Code":"{","type":"block","Level":6,"Pos":155165},{"Code":"goto IL_0d90;","type":"goto","Level":6,"Pos":155166},{"Code":"}","type":"block","Level":6,"Pos":155243},{"Code":"else","type":"operation","Level":5,"Pos":155244},{"Code":"{","type":"block","Level":6,"Pos":155308},{"Code":"goto IL_0dad;","type":"goto","Level":6,"Pos":155309},{"Code":"}","type":"block","Level":6,"Pos":155386},{"Code":"IL_0d90:","type":"label","Level":5,"Pos":155387},{"Code":"num = 165;","type":"operation","Level":5,"Pos":155421},{"Code":"List1.Items.Add(","type":"operation","Level":5,"Pos":155461},{"Code":"\u0022Fehlliste Familien\u0022","type":"string","Level":5,"Pos":155507},{"Code":");","type":"operation","Level":5,"Pos":155527},{"Code":"goto IL_0dad;","type":"goto","Level":5,"Pos":155529},{"Code":"IL_0dad:","type":"label","Level":5,"Pos":155572},{"Code":"num = 167;","type":"operation","Level":5,"Pos":155606},{"Code":"if","type":"operation","Level":5,"Pos":155646},{"Code":"(RadioButton2.Checked)","type":"operation","Level":5,"Pos":155678},{"Code":"{","type":"block","Level":6,"Pos":155731},{"Code":"goto IL_0dc5;","type":"goto","Level":6,"Pos":155732},{"Code":"}","type":"block","Level":6,"Pos":155809},{"Code":"else","type":"operation","Level":5,"Pos":155810},{"Code":"{","type":"block","Level":6,"Pos":155874},{"Code":"goto IL_0de2;","type":"goto","Level":6,"Pos":155875},{"Code":"}","type":"block","Level":6,"Pos":155952},{"Code":"IL_0dc5:","type":"label","Level":5,"Pos":155953},{"Code":"num = 168;","type":"operation","Level":5,"Pos":155987},{"Code":"List1.Items.Add(","type":"operation","Level":5,"Pos":156027},{"Code":"\u0022Mann Frau Kinder Pro Verl. Hei k.H. Schd. ehe\u00E4. au\u00DF Fikt.\u0022","type":"string","Level":5,"Pos":156073},{"Code":");","type":"operation","Level":5,"Pos":156154},{"Code":"goto IL_0de2;","type":"goto","Level":5,"Pos":156156},{"Code":"IL_0de2:","type":"label","Level":5,"Pos":156199},{"Code":"num = 170;","type":"operation","Level":5,"Pos":156233},{"Code":"if","type":"operation","Level":5,"Pos":156273},{"Code":"(RadioButton2.Checked)","type":"operation","Level":5,"Pos":156305},{"Code":"{","type":"block","Level":6,"Pos":156358},{"Code":"goto IL_0dfa;","type":"goto","Level":6,"Pos":156359},{"Code":"}","type":"block","Level":6,"Pos":156436},{"Code":"else","type":"operation","Level":5,"Pos":156437},{"Code":"{","type":"block","Level":6,"Pos":156501},{"Code":"goto IL_0e17;","type":"goto","Level":6,"Pos":156502},{"Code":"}","type":"block","Level":6,"Pos":156579},{"Code":"IL_0dfa:","type":"label","Level":5,"Pos":156580},{"Code":"num = 171;","type":"operation","Level":5,"Pos":156614},{"Code":"List1.Items.Add(","type":"operation","Level":5,"Pos":156654},{"Code":"\u0022 DO DO DO DO DO DO DO\u0022","type":"string","Level":5,"Pos":156700},{"Code":");","type":"operation","Level":5,"Pos":156778},{"Code":"goto IL_0e17;","type":"goto","Level":5,"Pos":156780},{"Code":"IL_0e17:","type":"label","Level":5,"Pos":156823},{"Code":"num = 173;","type":"operation","Level":5,"Pos":156857},{"Code":"Modul1.I = 0;","type":"operation","Level":5,"Pos":156897},{"Code":"goto IL_0e24;","type":"goto","Level":5,"Pos":156940},{"Code":"IL_0e24:","type":"label","Level":5,"Pos":156983},{"Code":"num = 174;","type":"operation","Level":5,"Pos":157017},{"Code":"Label1[(short)Modul1.I].Refresh();","type":"operation","Level":5,"Pos":157057},{"Code":"goto IL_0e42;","type":"goto","Level":5,"Pos":157121},{"Code":"IL_0e42:","type":"label","Level":5,"Pos":157164},{"Code":"num = 175;","type":"operation","Level":5,"Pos":157198},{"Code":"Modul1.I\u002B\u002B;","type":"operation","Level":5,"Pos":157238},{"Code":"i11 = Modul1.I;","type":"operation","Level":5,"Pos":157279},{"Code":"num5 = 2;","type":"operation","Level":5,"Pos":157324},{"Code":"if","type":"operation","Level":5,"Pos":157363},{"Code":"(i11 \u003C= num5)","type":"operation","Level":5,"Pos":157395},{"Code":"{","type":"block","Level":6,"Pos":157439},{"Code":"goto IL_0e24;","type":"goto","Level":6,"Pos":157440},{"Code":"}","type":"block","Level":6,"Pos":157517},{"Code":"else","type":"operation","Level":5,"Pos":157518},{"Code":"{","type":"block","Level":6,"Pos":157582},{"Code":"goto IL_0e62;","type":"goto","Level":6,"Pos":157583},{"Code":"}","type":"block","Level":6,"Pos":157660},{"Code":"IL_0e62:","type":"label","Level":5,"Pos":157661},{"Code":"num = 176;","type":"operation","Level":5,"Pos":157695},{"Code":"num7 = 1;","type":"operation","Level":5,"Pos":157735},{"Code":"goto IL_0e6c;","type":"goto","Level":5,"Pos":157774},{"Code":"IL_0e6c:","type":"label","Level":5,"Pos":157817},{"Code":"num = 177;","type":"operation","Level":5,"Pos":157851},{"Code":"if","type":"operation","Level":5,"Pos":157891},{"Code":"(num7 \u003C= 0)","type":"operation","Level":5,"Pos":157923},{"Code":"{","type":"block","Level":6,"Pos":157965},{"Code":"goto end_IL_0001_2;","type":"goto","Level":6,"Pos":157966},{"Code":"}","type":"block","Level":6,"Pos":158049},{"Code":"goto IL_0e87;","type":"goto","Level":5,"Pos":158050},{"Code":"IL_0e87:","type":"label","Level":5,"Pos":158093},{"Code":"num = 180;","type":"operation","Level":5,"Pos":158127},{"Code":"DataModul.DB_FamilyTable.MoveLast();","type":"operation","Level":5,"Pos":158167},{"Code":"goto IL_0e9a;","type":"goto","Level":5,"Pos":158233},{"Code":"IL_0e9a:","type":"label","Level":5,"Pos":158276},{"Code":"num = 181;","type":"operation","Level":5,"Pos":158310},{"Code":"num8 = DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value.AsInt();","type":"operation","Level":5,"Pos":158350},{"Code":"goto IL_0ec1;","type":"goto","Level":5,"Pos":158471},{"Code":"IL_0ec1:","type":"label","Level":5,"Pos":158514},{"Code":"num = 182;","type":"operation","Level":5,"Pos":158548},{"Code":"if","type":"operation","Level":5,"Pos":158588},{"Code":"((num7 \u003E DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value))","type":"operation","Level":5,"Pos":158620},{"Code":"{","type":"block","Level":6,"Pos":158737},{"Code":"goto IL_0ef4;","type":"goto","Level":6,"Pos":158738},{"Code":"}","type":"block","Level":6,"Pos":158815},{"Code":"else","type":"operation","Level":5,"Pos":158816},{"Code":"{","type":"block","Level":6,"Pos":158880},{"Code":"goto IL_0f36;","type":"goto","Level":6,"Pos":158881},{"Code":"}","type":"block","Level":6,"Pos":158958},{"Code":"IL_0ef4:","type":"label","Level":5,"Pos":158959},{"Code":"num = 183;","type":"operation","Level":5,"Pos":158993},{"Code":"Interaction.MsgBox(","type":"operation","Level":5,"Pos":159033},{"Code":"\u0022Die h\u00F6chste Familiennummer ist \u0022","type":"string","Level":5,"Pos":159082},{"Code":"\u002B DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value.AsString());","type":"operation","Level":5,"Pos":159115},{"Code":"goto end_IL_0001_2;","type":"goto","Level":5,"Pos":159206},{"Code":"IL_0f36:","type":"label","Level":5,"Pos":159255},{"Code":"num = 186;","type":"operation","Level":5,"Pos":159289},{"Code":"ProgressBar1.Minimum = 0;","type":"operation","Level":5,"Pos":159329},{"Code":"goto IL_0f4a;","type":"goto","Level":5,"Pos":159384},{"Code":"IL_0f4a:","type":"label","Level":5,"Pos":159427},{"Code":"num = 187;","type":"operation","Level":5,"Pos":159461},{"Code":"ProgressBar1.Maximum = DataModul.DB_FamilyTable.RecordCount - 1;","type":"operation","Level":5,"Pos":159501},{"Code":"goto IL_0f69;","type":"goto","Level":5,"Pos":159595},{"Code":"IL_0f69:","type":"label","Level":5,"Pos":159638},{"Code":"num = 188;","type":"operation","Level":5,"Pos":159672},{"Code":"ProgressBar1.Step = 1;","type":"operation","Level":5,"Pos":159712},{"Code":"goto IL_0f7d;","type":"goto","Level":5,"Pos":159764},{"Code":"IL_0f7d:","type":"label","Level":5,"Pos":159807},{"Code":"num = 189;","type":"operation","Level":5,"Pos":159841},{"Code":"i12 = num7;","type":"operation","Level":5,"Pos":159881},{"Code":"num17 = num8;","type":"operation","Level":5,"Pos":159922},{"Code":"I1 = i12;","type":"operation","Level":5,"Pos":159965},{"Code":"goto IL_199d;","type":"goto","Level":5,"Pos":160004},{"Code":"IL_199d:","type":"label","Level":5,"Pos":160047},{"Code":"i13 = I1;","type":"operation","Level":5,"Pos":160081},{"Code":"num5 = num17;","type":"operation","Level":5,"Pos":160120},{"Code":"if","type":"operation","Level":5,"Pos":160163},{"Code":"(i13 \u003C= num5)","type":"operation","Level":5,"Pos":160195},{"Code":"{","type":"block","Level":6,"Pos":160239},{"Code":"goto IL_0f95;","type":"goto","Level":6,"Pos":160240},{"Code":"}","type":"block","Level":6,"Pos":160317},{"Code":"else","type":"operation","Level":5,"Pos":160318},{"Code":"{","type":"block","Level":6,"Pos":160382},{"Code":"goto IL_19ae;","type":"goto","Level":6,"Pos":160383},{"Code":"}","type":"block","Level":6,"Pos":160460},{"Code":"IL_19ae:","type":"label","Level":5,"Pos":160461},{"Code":"num = 308;","type":"operation","Level":5,"Pos":160495},{"Code":"Label4.Text = List1.Items.Count - 3.AsString() \u002B","type":"operation","Level":5,"Pos":160535},{"Code":"\u0022 Familien\u0022","type":"string","Level":5,"Pos":160614},{"Code":";","type":"operation","Level":5,"Pos":160625},{"Code":"goto IL_19e7;","type":"goto","Level":5,"Pos":160626},{"Code":"IL_19e7:","type":"label","Level":5,"Pos":160669},{"Code":"num = 309;","type":"operation","Level":5,"Pos":160703},{"Code":"if","type":"operation","Level":5,"Pos":160743},{"Code":"(RadioButton1.Checked)","type":"operation","Level":5,"Pos":160775},{"Code":"{","type":"block","Level":6,"Pos":160828},{"Code":"goto IL_19ff;","type":"goto","Level":6,"Pos":160829},{"Code":"}","type":"block","Level":6,"Pos":160906},{"Code":"else","type":"operation","Level":5,"Pos":160907},{"Code":"{","type":"block","Level":6,"Pos":160971},{"Code":"goto IL_448a;","type":"goto","Level":6,"Pos":160972},{"Code":"}","type":"block","Level":6,"Pos":161049},{"Code":"IL_19ff:","type":"label","Level":5,"Pos":161050},{"Code":"num = 310;","type":"operation","Level":5,"Pos":161084},{"Code":"Label4.Text = List1.Items.Count.AsString() \u002B","type":"operation","Level":5,"Pos":161124},{"Code":"\u0022 Familien\u0022","type":"string","Level":5,"Pos":161199},{"Code":";","type":"operation","Level":5,"Pos":161210},{"Code":"goto IL_448a;","type":"goto","Level":5,"Pos":161211},{"Code":"IL_0f95:","type":"label","Level":5,"Pos":161254},{"Code":"num = 190;","type":"operation","Level":5,"Pos":161288},{"Code":"ProgressBar1.PerformStep();","type":"operation","Level":5,"Pos":161328},{"Code":"goto IL_0fa8;","type":"goto","Level":5,"Pos":161385},{"Code":"IL_0fa8:","type":"label","Level":5,"Pos":161428},{"Code":"num = 191;","type":"operation","Level":5,"Pos":161462},{"Code":"Application.DoEvents();","type":"operation","Level":5,"Pos":161502},{"Code":"goto IL_0fb5;","type":"goto","Level":5,"Pos":161555},{"Code":"IL_0fb5:","type":"label","Level":5,"Pos":161598},{"Code":"num = 192;","type":"operation","Level":5,"Pos":161632},{"Code":"sDest2 =","type":"operation","Level":5,"Pos":161672},{"Code":"\u0022 \u0022","type":"string","Level":5,"Pos":161711},{"Code":";","type":"operation","Level":5,"Pos":161803},{"Code":"goto IL_0fc3;","type":"goto","Level":5,"Pos":161804},{"Code":"IL_0fc3:","type":"label","Level":5,"Pos":161847},{"Code":"num = 193;","type":"operation","Level":5,"Pos":161881},{"Code":"Modul1.FamInArb = I1;","type":"operation","Level":5,"Pos":161921},{"Code":"goto IL_0fd5;","type":"goto","Level":5,"Pos":161972},{"Code":"IL_0fd5:","type":"label","Level":5,"Pos":162015},{"Code":"num = 194;","type":"operation","Level":5,"Pos":162049},{"Code":"if","type":"operation","Level":5,"Pos":162089},{"Code":"(Modul1.FamInArb \u003C= num8)","type":"operation","Level":5,"Pos":162121},{"Code":"{","type":"block","Level":6,"Pos":162177},{"Code":"goto IL_0ff0;","type":"goto","Level":6,"Pos":162178},{"Code":"}","type":"block","Level":6,"Pos":162255},{"Code":"else","type":"operation","Level":5,"Pos":162256},{"Code":"{","type":"block","Level":6,"Pos":162320},{"Code":"goto IL_448a;","type":"goto","Level":6,"Pos":162321},{"Code":"}","type":"block","Level":6,"Pos":162398},{"Code":"IL_0ff0:","type":"label","Level":5,"Pos":162399},{"Code":"num = 197;","type":"operation","Level":5,"Pos":162433},{"Code":"DataModul.DB_FamilyTable.Index = nameof(DataModul.FamilyIndex.Fam);","type":"operation","Level":5,"Pos":162473},{"Code":"goto IL_1007;","type":"goto","Level":5,"Pos":162570},{"Code":"IL_1007:","type":"label","Level":5,"Pos":162613},{"Code":"num = 198;","type":"operation","Level":5,"Pos":162647},{"Code":"DataModul.DB_FamilyTable.Seek(","type":"operation","Level":5,"Pos":162687},{"Code":"\u0022=\u0022","type":"string","Level":5,"Pos":162747},{"Code":", Modul1.FamInArb.AsString());","type":"operation","Level":5,"Pos":162750},{"Code":"goto IL_1069;","type":"goto","Level":5,"Pos":162780},{"Code":"IL_1069:","type":"label","Level":5,"Pos":162823},{"Code":"num = 199;","type":"operation","Level":5,"Pos":162857},{"Code":"if","type":"operation","Level":5,"Pos":162897},{"Code":"(!DataModul.DB_FamilyTable.NoMatch)","type":"operation","Level":5,"Pos":162929},{"Code":"{","type":"block","Level":6,"Pos":162995},{"Code":"goto IL_1085;","type":"goto","Level":6,"Pos":162996},{"Code":"}","type":"block","Level":6,"Pos":163073},{"Code":"else","type":"operation","Level":5,"Pos":163074},{"Code":"{","type":"block","Level":6,"Pos":163138},{"Code":"goto IL_197c;","type":"goto","Level":6,"Pos":163139},{"Code":"}","type":"block","Level":6,"Pos":163216},{"Code":"IL_1085:","type":"label","Level":5,"Pos":163217},{"Code":"num = 202;","type":"operation","Level":5,"Pos":163251},{"Code":"MainProject.Forms.Familie.Famles(Modul1.FamInArb);","type":"operation","Level":5,"Pos":163291},{"Code":"goto IL_1092;","type":"goto","Level":5,"Pos":163371},{"Code":"IL_1092:","type":"label","Level":5,"Pos":163414},{"Code":"num = 203;","type":"operation","Level":5,"Pos":163448},{"Code":"if","type":"operation","Level":5,"Pos":163488},{"Code":"(Modul1.Family.Mann \u003E 0)","type":"operation","Level":5,"Pos":163520},{"Code":"{","type":"block","Level":6,"Pos":163575},{"Code":"goto IL_10aa;","type":"goto","Level":6,"Pos":163576},{"Code":"}","type":"block","Level":6,"Pos":163653},{"Code":"else","type":"operation","Level":5,"Pos":163654},{"Code":"{","type":"block","Level":6,"Pos":163718},{"Code":"goto IL_1140;","type":"goto","Level":6,"Pos":163719},{"Code":"}","type":"block","Level":6,"Pos":163796},{"Code":"IL_10aa:","type":"label","Level":5,"Pos":163797},{"Code":"num = 204;","type":"operation","Level":5,"Pos":163831},{"Code":"Modul1.PersInArb = Modul1.Family.Mann;","type":"operation","Level":5,"Pos":163871},{"Code":"goto IL_10bb;","type":"goto","Level":5,"Pos":163939},{"Code":"IL_10bb:","type":"label","Level":5,"Pos":163982},{"Code":"num = 205;","type":"operation","Level":5,"Pos":164016},{"Code":"Modul1.Personlesen(Modul1.PersInArb);","type":"operation","Level":5,"Pos":164056},{"Code":"goto IL_10c8;","type":"goto","Level":5,"Pos":164123},{"Code":"IL_10c8:","type":"label","Level":5,"Pos":164166},{"Code":"num = 206;","type":"operation","Level":5,"Pos":164200},{"Code":"if","type":"operation","Level":5,"Pos":164240},{"Code":"(Modul1.Kont[0] !=","type":"operation","Level":5,"Pos":164272},{"Code":"\u0022\u0022","type":"string","Level":5,"Pos":164292},{"Code":")","type":"operation","Level":5,"Pos":164294},{"Code":"{","type":"block","Level":6,"Pos":164325},{"Code":"goto IL_10ed;","type":"goto","Level":6,"Pos":164326},{"Code":"}","type":"block","Level":6,"Pos":164403},{"Code":"else","type":"operation","Level":5,"Pos":164404},{"Code":"{","type":"block","Level":6,"Pos":164468},{"Code":"goto IL_1108;","type":"goto","Level":6,"Pos":164469},{"Code":"}","type":"block","Level":6,"Pos":164546},{"Code":"IL_10ed:","type":"label","Level":5,"Pos":164547},{"Code":"num = 207;","type":"operation","Level":5,"Pos":164581},{"Code":"StringType.MidStmtStr(ref sDest2, 1, 15, Modul1.Kont[0]);","type":"operation","Level":5,"Pos":164621},{"Code":"goto IL_1128;","type":"goto","Level":5,"Pos":164708},{"Code":"IL_1108:","type":"label","Level":5,"Pos":164751},{"Code":"num = 209;","type":"operation","Level":5,"Pos":164785},{"Code":"goto IL_1110;","type":"goto","Level":5,"Pos":164825},{"Code":"IL_1110:","type":"label","Level":5,"Pos":164868},{"Code":"num = 210;","type":"operation","Level":5,"Pos":164902},{"Code":"StringType.MidStmtStr(ref sDest2, 1, 15,","type":"operation","Level":5,"Pos":164942},{"Code":"\u0022\u003ENN\u003C\u0022","type":"string","Level":5,"Pos":165013},{"Code":");","type":"operation","Level":5,"Pos":165019},{"Code":"goto IL_1128;","type":"goto","Level":5,"Pos":165021},{"Code":"IL_1128:","type":"label","Level":5,"Pos":165064},{"Code":"num = 212;","type":"operation","Level":5,"Pos":165098},{"Code":"StringType.MidStmtStr(ref sDest2, 16, 2,","type":"operation","Level":5,"Pos":165138},{"Code":"\u0022/ \u0022","type":"string","Level":5,"Pos":165209},{"Code":");","type":"operation","Level":5,"Pos":165213},{"Code":"goto IL_1140;","type":"goto","Level":5,"Pos":165215},{"Code":"IL_1140:","type":"label","Level":5,"Pos":165258},{"Code":"num = 214;","type":"operation","Level":5,"Pos":165292},{"Code":"if","type":"operation","Level":5,"Pos":165332},{"Code":"(Modul1.Family.Frau \u003E 0)","type":"operation","Level":5,"Pos":165364},{"Code":"{","type":"block","Level":6,"Pos":165419},{"Code":"goto IL_1158;","type":"goto","Level":6,"Pos":165420},{"Code":"}","type":"block","Level":6,"Pos":165497},{"Code":"else","type":"operation","Level":5,"Pos":165498},{"Code":"{","type":"block","Level":6,"Pos":165562},{"Code":"goto IL_11d9;","type":"goto","Level":6,"Pos":165563},{"Code":"}","type":"block","Level":6,"Pos":165640},{"Code":"IL_1158:","type":"label","Level":5,"Pos":165641},{"Code":"num = 215;","type":"operation","Level":5,"Pos":165675},{"Code":"Modul1.PersInArb = Modul1.Family.Frau;","type":"operation","Level":5,"Pos":165715},{"Code":"goto IL_1169;","type":"goto","Level":5,"Pos":165783},{"Code":"IL_1169:","type":"label","Level":5,"Pos":165826},{"Code":"num = 216;","type":"operation","Level":5,"Pos":165860},{"Code":"Modul1.Personlesen(Modul1.PersInArb);","type":"operation","Level":5,"Pos":165900},{"Code":"goto IL_1176;","type":"goto","Level":5,"Pos":165967},{"Code":"IL_1176:","type":"label","Level":5,"Pos":166010},{"Code":"num = 217;","type":"operation","Level":5,"Pos":166044},{"Code":"if","type":"operation","Level":5,"Pos":166084},{"Code":"(Modul1.Kont[0] !=","type":"operation","Level":5,"Pos":166116},{"Code":"\u0022\u0022","type":"string","Level":5,"Pos":166136},{"Code":")","type":"operation","Level":5,"Pos":166138},{"Code":"{","type":"block","Level":6,"Pos":166169},{"Code":"goto IL_119b;","type":"goto","Level":6,"Pos":166170},{"Code":"}","type":"block","Level":6,"Pos":166247},{"Code":"else","type":"operation","Level":5,"Pos":166248},{"Code":"{","type":"block","Level":6,"Pos":166312},{"Code":"goto IL_11b7;","type":"goto","Level":6,"Pos":166313},{"Code":"}","type":"block","Level":6,"Pos":166390},{"Code":"IL_119b:","type":"label","Level":5,"Pos":166391},{"Code":"num = 218;","type":"operation","Level":5,"Pos":166425},{"Code":"StringType.MidStmtStr(ref sDest2, 17, 15, Modul1.Kont[0]);","type":"operation","Level":5,"Pos":166465},{"Code":"goto IL_11d9;","type":"goto","Level":5,"Pos":166553},{"Code":"IL_11b7:","type":"label","Level":5,"Pos":166596},{"Code":"num = 220;","type":"operation","Level":5,"Pos":166630},{"Code":"goto IL_11bf;","type":"goto","Level":5,"Pos":166670},{"Code":"IL_11bf:","type":"label","Level":5,"Pos":166713},{"Code":"num = 221;","type":"operation","Level":5,"Pos":166747},{"Code":"StringType.MidStmtStr(ref sDest2, 17, 15,","type":"operation","Level":5,"Pos":166787},{"Code":"\u0022\u003ENN\u003C\u0022","type":"string","Level":5,"Pos":166859},{"Code":");","type":"operation","Level":5,"Pos":166865},{"Code":"goto IL_11d9;","type":"goto","Level":5,"Pos":166867},{"Code":"IL_11d9:","type":"label","Level":5,"Pos":166910},{"Code":"num = 224;","type":"operation","Level":5,"Pos":166944},{"Code":"if","type":"operation","Level":5,"Pos":166984},{"Code":"(Modul1.Family.Kind[1] != 0)","type":"operation","Level":5,"Pos":167016},{"Code":"{","type":"block","Level":6,"Pos":167075},{"Code":"goto IL_11f3;","type":"goto","Level":6,"Pos":167076},{"Code":"}","type":"block","Level":6,"Pos":167153},{"Code":"else","type":"operation","Level":5,"Pos":167154},{"Code":"{","type":"block","Level":6,"Pos":167218},{"Code":"goto IL_1210;","type":"goto","Level":6,"Pos":167219},{"Code":"}","type":"block","Level":6,"Pos":167296},{"Code":"IL_11f3:","type":"label","Level":5,"Pos":167297},{"Code":"num = 225;","type":"operation","Level":5,"Pos":167331},{"Code":"StringType.MidStmtStr(ref sDest2, 32, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":167371},{"Code":"goto IL_1210;","type":"goto","Level":5,"Pos":167461},{"Code":"IL_1210:","type":"label","Level":5,"Pos":167504},{"Code":"num = 227;","type":"operation","Level":5,"Pos":167538},{"Code":"DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.ArtNr);","type":"operation","Level":5,"Pos":167578},{"Code":"goto IL_1227;","type":"goto","Level":5,"Pos":167675},{"Code":"IL_1227:","type":"label","Level":5,"Pos":167718},{"Code":"num = 228;","type":"operation","Level":5,"Pos":167752},{"Code":"DataModul.DB_FamilyTable.Index = nameof(DataModul.FamilyIndex.Fam);","type":"operation","Level":5,"Pos":167792},{"Code":"goto IL_123e;","type":"goto","Level":5,"Pos":167889},{"Code":"IL_123e:","type":"label","Level":5,"Pos":167932},{"Code":"num = 229;","type":"operation","Level":5,"Pos":167966},{"Code":"DataModul.DB_FamilyTable.Seek(","type":"operation","Level":5,"Pos":168006},{"Code":"\u0022=\u0022","type":"string","Level":5,"Pos":168066},{"Code":", Modul1.FamInArb);","type":"operation","Level":5,"Pos":168069},{"Code":"goto IL_129b;","type":"goto","Level":5,"Pos":168088},{"Code":"IL_129b:","type":"label","Level":5,"Pos":168131},{"Code":"num = 230;","type":"operation","Level":5,"Pos":168165},{"Code":"if","type":"operation","Level":5,"Pos":168205},{"Code":"(!DataModul.DB_FamilyTable.NoMatch)","type":"operation","Level":5,"Pos":168237},{"Code":"{","type":"block","Level":6,"Pos":168303},{"Code":"goto IL_12b7;","type":"goto","Level":6,"Pos":168304},{"Code":"}","type":"block","Level":6,"Pos":168381},{"Code":"else","type":"operation","Level":5,"Pos":168382},{"Code":"{","type":"block","Level":6,"Pos":168446},{"Code":"goto IL_197c;","type":"goto","Level":6,"Pos":168447},{"Code":"}","type":"block","Level":6,"Pos":168524},{"Code":"IL_12b7:","type":"label","Level":5,"Pos":168525},{"Code":"num = 233;","type":"operation","Level":5,"Pos":168559},{"Code":"if","type":"operation","Level":5,"Pos":168599},{"Code":"((DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.Aeb)].Value == -1))","type":"operation","Level":5,"Pos":168631},{"Code":"{","type":"block","Level":6,"Pos":168746},{"Code":"goto IL_12e9;","type":"goto","Level":6,"Pos":168747},{"Code":"}","type":"block","Level":6,"Pos":168824},{"Code":"else","type":"operation","Level":5,"Pos":168825},{"Code":"{","type":"block","Level":6,"Pos":168889},{"Code":"goto IL_1306;","type":"goto","Level":6,"Pos":168890},{"Code":"}","type":"block","Level":6,"Pos":168967},{"Code":"IL_12e9:","type":"label","Level":5,"Pos":168968},{"Code":"num = 234;","type":"operation","Level":5,"Pos":169002},{"Code":"StringType.MidStmtStr(ref sDest2, 70, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":169042},{"Code":"goto IL_1306;","type":"goto","Level":5,"Pos":169132},{"Code":"IL_1306:","type":"label","Level":5,"Pos":169175},{"Code":"num = 236;","type":"operation","Level":5,"Pos":169209},{"Code":"num15 = 500;","type":"operation","Level":5,"Pos":169249},{"Code":"goto IL_1313;","type":"goto","Level":5,"Pos":169291},{"Code":"IL_1313:","type":"label","Level":5,"Pos":169334},{"Code":"num = 237;","type":"operation","Level":5,"Pos":169368},{"Code":"Modul1.Ubg = num15;","type":"operation","Level":5,"Pos":169408},{"Code":"goto IL_1320;","type":"goto","Level":5,"Pos":169457},{"Code":"IL_1320:","type":"label","Level":5,"Pos":169500},{"Code":"num = 238;","type":"operation","Level":5,"Pos":169534},{"Code":"DataModul.DB_EventTable.Seek(","type":"operation","Level":5,"Pos":169574},{"Code":"\u0022=\u0022","type":"string","Level":5,"Pos":169633},{"Code":", Modul1.Ubg.AsString(), Modul1.FamInArb.AsString(),","type":"operation","Level":5,"Pos":169636},{"Code":"\u00220\u0022","type":"string","Level":5,"Pos":169689},{"Code":");","type":"operation","Level":5,"Pos":169692},{"Code":"goto IL_138c;","type":"goto","Level":5,"Pos":169694},{"Code":"IL_138c:","type":"label","Level":5,"Pos":169737},{"Code":"num = 239;","type":"operation","Level":5,"Pos":169771},{"Code":"if","type":"operation","Level":5,"Pos":169811},{"Code":"(!DataModul.DB_EventTable.NoMatch)","type":"operation","Level":5,"Pos":169843},{"Code":"{","type":"block","Level":6,"Pos":169908},{"Code":"goto IL_13a8;","type":"goto","Level":6,"Pos":169909},{"Code":"}","type":"block","Level":6,"Pos":169986},{"Code":"else","type":"operation","Level":5,"Pos":169987},{"Code":"{","type":"block","Level":6,"Pos":170051},{"Code":"goto IL_17ec;","type":"goto","Level":6,"Pos":170052},{"Code":"}","type":"block","Level":6,"Pos":170129},{"Code":"IL_13a8:","type":"label","Level":5,"Pos":170130},{"Code":"num = 242;","type":"operation","Level":5,"Pos":170164},{"Code":"switch","type":"operation","Level":5,"Pos":170204},{"Code":"(Modul1.Ubg)","type":"operation","Level":5,"Pos":170240},{"Code":"{","type":"block","Level":6,"Pos":170283},{"Code":"case 500:","type":"label","Level":6,"Pos":170284},{"Code":"break;","type":"operation","Level":6,"Pos":170327},{"Code":"case 501:","type":"label","Level":6,"Pos":170371},{"Code":"goto IL_148f;","type":"goto","Level":6,"Pos":170414},{"Code":"case 502:","type":"label","Level":6,"Pos":170465},{"Code":"goto IL_153c;","type":"goto","Level":6,"Pos":170508},{"Code":"case 503:","type":"label","Level":6,"Pos":170559},{"Code":"goto IL_15e9;","type":"goto","Level":6,"Pos":170602},{"Code":"case 504:","type":"label","Level":6,"Pos":170653},{"Code":"goto IL_1696;","type":"goto","Level":6,"Pos":170696},{"Code":"case 505:","type":"label","Level":6,"Pos":170747},{"Code":"goto IL_1743;","type":"goto","Level":6,"Pos":170790},{"Code":"default:","type":"label","Level":6,"Pos":170841},{"Code":"goto IL_17ec;","type":"goto","Level":6,"Pos":170883},{"Code":"}","type":"block","Level":6,"Pos":170964},{"Code":"{","type":"block","Level":6,"Pos":170997},{"Code":"goto IL_13e2;","type":"goto","Level":6,"Pos":170998},{"Code":"}","type":"block","Level":6,"Pos":171075},{"Code":"IL_1743:","type":"label","Level":5,"Pos":171076},{"Code":"num = 286;","type":"operation","Level":5,"Pos":171110},{"Code":"if","type":"operation","Level":5,"Pos":171150},{"Code":"((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() \u003E0))","type":"operation","Level":5,"Pos":171182},{"Code":"{","type":"block","Level":6,"Pos":171296},{"Code":"goto IL_1775;","type":"goto","Level":6,"Pos":171297},{"Code":"}","type":"block","Level":6,"Pos":171374},{"Code":"else","type":"operation","Level":5,"Pos":171375},{"Code":"{","type":"block","Level":6,"Pos":171439},{"Code":"goto IL_1792;","type":"goto","Level":6,"Pos":171440},{"Code":"}","type":"block","Level":6,"Pos":171517},{"Code":"IL_1775:","type":"label","Level":5,"Pos":171518},{"Code":"num = 287;","type":"operation","Level":5,"Pos":171552},{"Code":"StringType.MidStmtStr(ref sDest2, 65, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":171592},{"Code":"goto IL_1792;","type":"goto","Level":5,"Pos":171682},{"Code":"IL_1792:","type":"label","Level":5,"Pos":171725},{"Code":"num = 289;","type":"operation","Level":5,"Pos":171759},{"Code":"if","type":"operation","Level":5,"Pos":171799},{"Code":"(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) \u003E 0.0)","type":"operation","Level":5,"Pos":171831},{"Code":"{","type":"block","Level":6,"Pos":171957},{"Code":"goto IL_17cd;","type":"goto","Level":6,"Pos":171958},{"Code":"}","type":"block","Level":6,"Pos":172035},{"Code":"else","type":"operation","Level":5,"Pos":172036},{"Code":"{","type":"block","Level":6,"Pos":172100},{"Code":"goto IL_17ec;","type":"goto","Level":6,"Pos":172101},{"Code":"}","type":"block","Level":6,"Pos":172178},{"Code":"IL_17cd:","type":"label","Level":5,"Pos":172179},{"Code":"num = 290;","type":"operation","Level":5,"Pos":172213},{"Code":"StringType.MidStmtStr(ref sDest2, 66, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":172253},{"Code":"goto IL_17ec;","type":"goto","Level":5,"Pos":172343},{"Code":"IL_1696:","type":"label","Level":5,"Pos":172386},{"Code":"num = 278;","type":"operation","Level":5,"Pos":172420},{"Code":"if","type":"operation","Level":5,"Pos":172460},{"Code":"((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() \u003E0))","type":"operation","Level":5,"Pos":172492},{"Code":"{","type":"block","Level":6,"Pos":172606},{"Code":"goto IL_16c8;","type":"goto","Level":6,"Pos":172607},{"Code":"}","type":"block","Level":6,"Pos":172684},{"Code":"else","type":"operation","Level":5,"Pos":172685},{"Code":"{","type":"block","Level":6,"Pos":172749},{"Code":"goto IL_16e5;","type":"goto","Level":6,"Pos":172750},{"Code":"}","type":"block","Level":6,"Pos":172827},{"Code":"IL_16c8:","type":"label","Level":5,"Pos":172828},{"Code":"num = 279;","type":"operation","Level":5,"Pos":172862},{"Code":"StringType.MidStmtStr(ref sDest2, 59, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":172902},{"Code":"goto IL_16e5;","type":"goto","Level":5,"Pos":172992},{"Code":"IL_16e5:","type":"label","Level":5,"Pos":173035},{"Code":"num = 281;","type":"operation","Level":5,"Pos":173069},{"Code":"if","type":"operation","Level":5,"Pos":173109},{"Code":"(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) \u003E 0.0)","type":"operation","Level":5,"Pos":173141},{"Code":"{","type":"block","Level":6,"Pos":173267},{"Code":"goto IL_1720;","type":"goto","Level":6,"Pos":173268},{"Code":"}","type":"block","Level":6,"Pos":173345},{"Code":"else","type":"operation","Level":5,"Pos":173346},{"Code":"{","type":"block","Level":6,"Pos":173410},{"Code":"goto IL_17ec;","type":"goto","Level":6,"Pos":173411},{"Code":"}","type":"block","Level":6,"Pos":173488},{"Code":"IL_1720:","type":"label","Level":5,"Pos":173489},{"Code":"num = 282;","type":"operation","Level":5,"Pos":173523},{"Code":"StringType.MidStmtStr(ref sDest2, 60, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":173563},{"Code":"goto IL_17ec;","type":"goto","Level":5,"Pos":173653},{"Code":"IL_15e9:","type":"label","Level":5,"Pos":173696},{"Code":"num = 270;","type":"operation","Level":5,"Pos":173730},{"Code":"if","type":"operation","Level":5,"Pos":173770},{"Code":"((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() \u003E0))","type":"operation","Level":5,"Pos":173802},{"Code":"{","type":"block","Level":6,"Pos":173916},{"Code":"goto IL_161b;","type":"goto","Level":6,"Pos":173917},{"Code":"}","type":"block","Level":6,"Pos":173994},{"Code":"else","type":"operation","Level":5,"Pos":173995},{"Code":"{","type":"block","Level":6,"Pos":174059},{"Code":"goto IL_1638;","type":"goto","Level":6,"Pos":174060},{"Code":"}","type":"block","Level":6,"Pos":174137},{"Code":"IL_161b:","type":"label","Level":5,"Pos":174138},{"Code":"num = 271;","type":"operation","Level":5,"Pos":174172},{"Code":"StringType.MidStmtStr(ref sDest2, 54, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":174212},{"Code":"goto IL_1638;","type":"goto","Level":5,"Pos":174302},{"Code":"IL_1638:","type":"label","Level":5,"Pos":174345},{"Code":"num = 273;","type":"operation","Level":5,"Pos":174379},{"Code":"if","type":"operation","Level":5,"Pos":174419},{"Code":"(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) \u003E 0.0)","type":"operation","Level":5,"Pos":174451},{"Code":"{","type":"block","Level":6,"Pos":174577},{"Code":"goto IL_1673;","type":"goto","Level":6,"Pos":174578},{"Code":"}","type":"block","Level":6,"Pos":174655},{"Code":"else","type":"operation","Level":5,"Pos":174656},{"Code":"{","type":"block","Level":6,"Pos":174720},{"Code":"goto IL_17ec;","type":"goto","Level":6,"Pos":174721},{"Code":"}","type":"block","Level":6,"Pos":174798},{"Code":"IL_1673:","type":"label","Level":5,"Pos":174799},{"Code":"num = 274;","type":"operation","Level":5,"Pos":174833},{"Code":"StringType.MidStmtStr(ref sDest2, 55, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":174873},{"Code":"goto IL_17ec;","type":"goto","Level":5,"Pos":174963},{"Code":"IL_153c:","type":"label","Level":5,"Pos":175006},{"Code":"num = 262;","type":"operation","Level":5,"Pos":175040},{"Code":"if","type":"operation","Level":5,"Pos":175080},{"Code":"((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() \u003E0))","type":"operation","Level":5,"Pos":175112},{"Code":"{","type":"block","Level":6,"Pos":175226},{"Code":"goto IL_156e;","type":"goto","Level":6,"Pos":175227},{"Code":"}","type":"block","Level":6,"Pos":175304},{"Code":"else","type":"operation","Level":5,"Pos":175305},{"Code":"{","type":"block","Level":6,"Pos":175369},{"Code":"goto IL_158b;","type":"goto","Level":6,"Pos":175370},{"Code":"}","type":"block","Level":6,"Pos":175447},{"Code":"IL_156e:","type":"label","Level":5,"Pos":175448},{"Code":"num = 263;","type":"operation","Level":5,"Pos":175482},{"Code":"StringType.MidStmtStr(ref sDest2, 48, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":175522},{"Code":"goto IL_158b;","type":"goto","Level":5,"Pos":175612},{"Code":"IL_158b:","type":"label","Level":5,"Pos":175655},{"Code":"num = 265;","type":"operation","Level":5,"Pos":175689},{"Code":"if","type":"operation","Level":5,"Pos":175729},{"Code":"(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) \u003E 0.0)","type":"operation","Level":5,"Pos":175761},{"Code":"{","type":"block","Level":6,"Pos":175887},{"Code":"goto IL_15c6;","type":"goto","Level":6,"Pos":175888},{"Code":"}","type":"block","Level":6,"Pos":175965},{"Code":"else","type":"operation","Level":5,"Pos":175966},{"Code":"{","type":"block","Level":6,"Pos":176030},{"Code":"goto IL_17ec;","type":"goto","Level":6,"Pos":176031},{"Code":"}","type":"block","Level":6,"Pos":176108},{"Code":"IL_15c6:","type":"label","Level":5,"Pos":176109},{"Code":"num = 266;","type":"operation","Level":5,"Pos":176143},{"Code":"StringType.MidStmtStr(ref sDest2, 49, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":176183},{"Code":"goto IL_17ec;","type":"goto","Level":5,"Pos":176273},{"Code":"IL_148f:","type":"label","Level":5,"Pos":176316},{"Code":"num = 254;","type":"operation","Level":5,"Pos":176350},{"Code":"if","type":"operation","Level":5,"Pos":176390},{"Code":"((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() \u003E0))","type":"operation","Level":5,"Pos":176422},{"Code":"{","type":"block","Level":6,"Pos":176536},{"Code":"goto IL_14c1;","type":"goto","Level":6,"Pos":176537},{"Code":"}","type":"block","Level":6,"Pos":176614},{"Code":"else","type":"operation","Level":5,"Pos":176615},{"Code":"{","type":"block","Level":6,"Pos":176679},{"Code":"goto IL_14de;","type":"goto","Level":6,"Pos":176680},{"Code":"}","type":"block","Level":6,"Pos":176757},{"Code":"IL_14c1:","type":"label","Level":5,"Pos":176758},{"Code":"num = 255;","type":"operation","Level":5,"Pos":176792},{"Code":"StringType.MidStmtStr(ref sDest2, 42, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":176832},{"Code":"goto IL_14de;","type":"goto","Level":5,"Pos":176922},{"Code":"IL_14de:","type":"label","Level":5,"Pos":176965},{"Code":"num = 257;","type":"operation","Level":5,"Pos":176999},{"Code":"if","type":"operation","Level":5,"Pos":177039},{"Code":"(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) \u003E 0.0)","type":"operation","Level":5,"Pos":177071},{"Code":"{","type":"block","Level":6,"Pos":177197},{"Code":"goto IL_1519;","type":"goto","Level":6,"Pos":177198},{"Code":"}","type":"block","Level":6,"Pos":177275},{"Code":"else","type":"operation","Level":5,"Pos":177276},{"Code":"{","type":"block","Level":6,"Pos":177340},{"Code":"goto IL_17ec;","type":"goto","Level":6,"Pos":177341},{"Code":"}","type":"block","Level":6,"Pos":177418},{"Code":"IL_1519:","type":"label","Level":5,"Pos":177419},{"Code":"num = 258;","type":"operation","Level":5,"Pos":177453},{"Code":"StringType.MidStmtStr(ref sDest2, 43, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":177493},{"Code":"goto IL_17ec;","type":"goto","Level":5,"Pos":177583},{"Code":"IL_13e2:","type":"label","Level":5,"Pos":177626},{"Code":"num = 246;","type":"operation","Level":5,"Pos":177660},{"Code":"if","type":"operation","Level":5,"Pos":177700},{"Code":"((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() \u003E0))","type":"operation","Level":5,"Pos":177732},{"Code":"{","type":"block","Level":6,"Pos":177846},{"Code":"goto IL_1414;","type":"goto","Level":6,"Pos":177847},{"Code":"}","type":"block","Level":6,"Pos":177924},{"Code":"else","type":"operation","Level":5,"Pos":177925},{"Code":"{","type":"block","Level":6,"Pos":177989},{"Code":"goto IL_1431;","type":"goto","Level":6,"Pos":177990},{"Code":"}","type":"block","Level":6,"Pos":178067},{"Code":"IL_1414:","type":"label","Level":5,"Pos":178068},{"Code":"num = 247;","type":"operation","Level":5,"Pos":178102},{"Code":"StringType.MidStmtStr(ref sDest2, 37, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":178142},{"Code":"goto IL_1431;","type":"goto","Level":5,"Pos":178232},{"Code":"IL_1431:","type":"label","Level":5,"Pos":178275},{"Code":"num = 249;","type":"operation","Level":5,"Pos":178309},{"Code":"if","type":"operation","Level":5,"Pos":178349},{"Code":"(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) \u003E 0.0)","type":"operation","Level":5,"Pos":178381},{"Code":"{","type":"block","Level":6,"Pos":178507},{"Code":"goto IL_146c;","type":"goto","Level":6,"Pos":178508},{"Code":"}","type":"block","Level":6,"Pos":178585},{"Code":"else","type":"operation","Level":5,"Pos":178586},{"Code":"{","type":"block","Level":6,"Pos":178650},{"Code":"goto IL_17ec;","type":"goto","Level":6,"Pos":178651},{"Code":"}","type":"block","Level":6,"Pos":178728},{"Code":"IL_146c:","type":"label","Level":5,"Pos":178729},{"Code":"num = 250;","type":"operation","Level":5,"Pos":178763},{"Code":"StringType.MidStmtStr(ref sDest2, 38, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":178803},{"Code":"goto IL_17ec;","type":"goto","Level":5,"Pos":178893},{"Code":"IL_17ec:","type":"label","Level":5,"Pos":178936},{"Code":"num = 293;","type":"operation","Level":5,"Pos":178970},{"Code":"lErl = 54;","type":"operation","Level":5,"Pos":179010},{"Code":"goto IL_17f7;","type":"goto","Level":5,"Pos":179050},{"Code":"IL_17f7:","type":"label","Level":5,"Pos":179093},{"Code":"num = 294;","type":"operation","Level":5,"Pos":179127},{"Code":"num15 = (short)unchecked(num15 \u002B 1);","type":"operation","Level":5,"Pos":179167},{"Code":"num18 = num15;","type":"operation","Level":5,"Pos":179233},{"Code":"num11 = 507;","type":"operation","Level":5,"Pos":179277},{"Code":"if","type":"operation","Level":5,"Pos":179319},{"Code":"(num18 \u003C= num11)","type":"operation","Level":5,"Pos":179351},{"Code":"{","type":"block","Level":6,"Pos":179398},{"Code":"goto IL_1313;","type":"goto","Level":6,"Pos":179399},{"Code":"}","type":"block","Level":6,"Pos":179476},{"Code":"else","type":"operation","Level":5,"Pos":179477},{"Code":"{","type":"block","Level":6,"Pos":179541},{"Code":"goto IL_1814;","type":"goto","Level":6,"Pos":179542},{"Code":"}","type":"block","Level":6,"Pos":179619},{"Code":"IL_1814:","type":"label","Level":5,"Pos":179620},{"Code":"num = 295;","type":"operation","Level":5,"Pos":179654},{"Code":"lErl = 3;","type":"operation","Level":5,"Pos":179694},{"Code":"goto IL_181e;","type":"goto","Level":5,"Pos":179733},{"Code":"IL_181e:","type":"label","Level":5,"Pos":179776},{"Code":"num = 296;","type":"operation","Level":5,"Pos":179810},{"Code":"DataModul.DB_EventTable.Seek(","type":"operation","Level":5,"Pos":179850},{"Code":"\u0022=\u0022","type":"string","Level":5,"Pos":179909},{"Code":", 601.AsString(), Modul1.FamInArb.AsString(),","type":"operation","Level":5,"Pos":179912},{"Code":"\u00220\u0022","type":"string","Level":5,"Pos":179958},{"Code":");","type":"operation","Level":5,"Pos":179961},{"Code":"goto IL_188a;","type":"goto","Level":5,"Pos":179963},{"Code":"IL_188a:","type":"label","Level":5,"Pos":180006},{"Code":"num = 297;","type":"operation","Level":5,"Pos":180040},{"Code":"if","type":"operation","Level":5,"Pos":180080},{"Code":"(!DataModul.DB_EventTable.NoMatch)","type":"operation","Level":5,"Pos":180112},{"Code":"{","type":"block","Level":6,"Pos":180177},{"Code":"goto IL_18a7;","type":"goto","Level":6,"Pos":180178},{"Code":"}","type":"block","Level":6,"Pos":180255},{"Code":"else","type":"operation","Level":5,"Pos":180256},{"Code":"{","type":"block","Level":6,"Pos":180320},{"Code":"goto IL_1943;","type":"goto","Level":6,"Pos":180321},{"Code":"}","type":"block","Level":6,"Pos":180398},{"Code":"IL_18a7:","type":"label","Level":5,"Pos":180399},{"Code":"num = 298;","type":"operation","Level":5,"Pos":180433},{"Code":"if","type":"operation","Level":5,"Pos":180473},{"Code":"((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() \u003E0))","type":"operation","Level":5,"Pos":180505},{"Code":"{","type":"block","Level":6,"Pos":180619},{"Code":"goto IL_18d9;","type":"goto","Level":6,"Pos":180620},{"Code":"}","type":"block","Level":6,"Pos":180697},{"Code":"else","type":"operation","Level":5,"Pos":180698},{"Code":"{","type":"block","Level":6,"Pos":180762},{"Code":"goto IL_18f0;","type":"goto","Level":6,"Pos":180763},{"Code":"}","type":"block","Level":6,"Pos":180840},{"Code":"IL_18d9:","type":"label","Level":5,"Pos":180841},{"Code":"num = 299;","type":"operation","Level":5,"Pos":180875},{"Code":"StringType.MidStmtStr(ref sDest2, 75, 1,","type":"operation","Level":5,"Pos":180915},{"Code":"\u0022J\u0022","type":"string","Level":5,"Pos":180986},{"Code":");","type":"operation","Level":5,"Pos":180989},{"Code":"goto IL_18f0;","type":"goto","Level":5,"Pos":180991},{"Code":"IL_18f0:","type":"label","Level":5,"Pos":181034},{"Code":"num = 301;","type":"operation","Level":5,"Pos":181068},{"Code":"if","type":"operation","Level":5,"Pos":181108},{"Code":"(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) \u003E 0.0)","type":"operation","Level":5,"Pos":181140},{"Code":"{","type":"block","Level":6,"Pos":181266},{"Code":"goto IL_192b;","type":"goto","Level":6,"Pos":181267},{"Code":"}","type":"block","Level":6,"Pos":181344},{"Code":"else","type":"operation","Level":5,"Pos":181345},{"Code":"{","type":"block","Level":6,"Pos":181409},{"Code":"goto IL_1943;","type":"goto","Level":6,"Pos":181410},{"Code":"}","type":"block","Level":6,"Pos":181487},{"Code":"IL_192b:","type":"label","Level":5,"Pos":181488},{"Code":"num = 302;","type":"operation","Level":5,"Pos":181522},{"Code":"StringType.MidStmtStr(ref sDest2, 76, 1,","type":"operation","Level":5,"Pos":181562},{"Code":"\u0022J\u0022","type":"string","Level":5,"Pos":181633},{"Code":");","type":"operation","Level":5,"Pos":181636},{"Code":"goto IL_1943;","type":"goto","Level":5,"Pos":181638},{"Code":"IL_1943:","type":"label","Level":5,"Pos":181681},{"Code":"num = 305;","type":"operation","Level":5,"Pos":181715},{"Code":"List1.Items.Add(new ListItem(sDest2 \u002B","type":"operation","Level":5,"Pos":181755},{"Code":"\u0022 \u0022","type":"string","Level":5,"Pos":181823},{"Code":"\u002B Modul1.FamInArb.AsString()));","type":"operation","Level":5,"Pos":181835},{"Code":"goto IL_197c;","type":"goto","Level":5,"Pos":181867},{"Code":"IL_197c:","type":"label","Level":5,"Pos":181910},{"Code":"num = 306;","type":"operation","Level":5,"Pos":181944},{"Code":"lErl = 55;","type":"operation","Level":5,"Pos":181984},{"Code":"goto IL_1987;","type":"goto","Level":5,"Pos":182024},{"Code":"IL_1987:","type":"label","Level":5,"Pos":182067},{"Code":"num = 307;","type":"operation","Level":5,"Pos":182101},{"Code":"I1\u002B\u002B;","type":"operation","Level":5,"Pos":182141},{"Code":"goto IL_199d;","type":"goto","Level":5,"Pos":182176},{"Code":"IL_01d7:","type":"label","Level":5,"Pos":182219},{"Code":"num = 35;","type":"operation","Level":5,"Pos":182253},{"Code":"List1.Items.Clear();","type":"operation","Level":5,"Pos":182292},{"Code":"goto IL_01ec;","type":"goto","Level":5,"Pos":182342},{"Code":"IL_01ec:","type":"label","Level":5,"Pos":182385},{"Code":"num = 36;","type":"operation","Level":5,"Pos":182419},{"Code":"Label1[2].Text =","type":"operation","Level":5,"Pos":182458},{"Code":"\u0022Fehlliste Personen\u0022","type":"string","Level":5,"Pos":182505},{"Code":";","type":"operation","Level":5,"Pos":182525},{"Code":"goto IL_0207;","type":"goto","Level":5,"Pos":182526},{"Code":"IL_0207:","type":"label","Level":5,"Pos":182569},{"Code":"num = 37;","type":"operation","Level":5,"Pos":182603},{"Code":"Label1[1].Text = Modul1.IText[166];","type":"operation","Level":5,"Pos":182642},{"Code":"goto IL_0228;","type":"goto","Level":5,"Pos":182707},{"Code":"IL_0228:","type":"label","Level":5,"Pos":182750},{"Code":"num = 38;","type":"operation","Level":5,"Pos":182784},{"Code":"Label1[0].Text = Modul1.IText[167];","type":"operation","Level":5,"Pos":182823},{"Code":"goto IL_0249;","type":"goto","Level":5,"Pos":182888},{"Code":"IL_0249:","type":"label","Level":5,"Pos":182931},{"Code":"num = 39;","type":"operation","Level":5,"Pos":182965},{"Code":"Label1[1].Text = Label1[1].Text \u002B","type":"operation","Level":5,"Pos":183004},{"Code":"\u0022 Quelle\u0022","type":"string","Level":5,"Pos":183068},{"Code":";","type":"operation","Level":5,"Pos":183077},{"Code":"goto IL_027a;","type":"goto","Level":5,"Pos":183078},{"Code":"IL_027a:","type":"label","Level":5,"Pos":183121},{"Code":"num = 40;","type":"operation","Level":5,"Pos":183155},{"Code":"Label1[0].Text = Label1[0].Text \u002B","type":"operation","Level":5,"Pos":183194},{"Code":"\u0022 T V\u0022","type":"string","Level":5,"Pos":183258},{"Code":";","type":"operation","Level":5,"Pos":183267},{"Code":"goto IL_02ab;","type":"goto","Level":5,"Pos":183268},{"Code":"IL_02ab:","type":"label","Level":5,"Pos":183311},{"Code":"num = 41;","type":"operation","Level":5,"Pos":183345},{"Code":"I1 = 0;","type":"operation","Level":5,"Pos":183384},{"Code":"goto IL_02b6;","type":"goto","Level":5,"Pos":183421},{"Code":"IL_02b6:","type":"label","Level":5,"Pos":183464},{"Code":"num = 42;","type":"operation","Level":5,"Pos":183498},{"Code":"Label1[(short)I1].Refresh();","type":"operation","Level":5,"Pos":183537},{"Code":"goto IL_02d2;","type":"goto","Level":5,"Pos":183595},{"Code":"IL_02d2:","type":"label","Level":5,"Pos":183638},{"Code":"num = 43;","type":"operation","Level":5,"Pos":183672},{"Code":"I1\u002B\u002B;","type":"operation","Level":5,"Pos":183711},{"Code":"i14 = I1;","type":"operation","Level":5,"Pos":183746},{"Code":"num5 = 2;","type":"operation","Level":5,"Pos":183785},{"Code":"if","type":"operation","Level":5,"Pos":183824},{"Code":"(i14 \u003C= num5)","type":"operation","Level":5,"Pos":183856},{"Code":"{","type":"block","Level":6,"Pos":183900},{"Code":"goto IL_02b6;","type":"goto","Level":6,"Pos":183901},{"Code":"}","type":"block","Level":6,"Pos":183978},{"Code":"else","type":"operation","Level":5,"Pos":183979},{"Code":"{","type":"block","Level":6,"Pos":184043},{"Code":"goto IL_02f2;","type":"goto","Level":6,"Pos":184044},{"Code":"}","type":"block","Level":6,"Pos":184121},{"Code":"IL_02f2:","type":"label","Level":5,"Pos":184122},{"Code":"num = 44;","type":"operation","Level":5,"Pos":184156},{"Code":"num7 = 1;","type":"operation","Level":5,"Pos":184195},{"Code":"goto IL_02f9;","type":"goto","Level":5,"Pos":184234},{"Code":"IL_02f9:","type":"label","Level":5,"Pos":184277},{"Code":"num = 45;","type":"operation","Level":5,"Pos":184311},{"Code":"if","type":"operation","Level":5,"Pos":184350},{"Code":"(num7 \u003C= 0)","type":"operation","Level":5,"Pos":184382},{"Code":"{","type":"block","Level":6,"Pos":184424},{"Code":"goto end_IL_0001_2;","type":"goto","Level":6,"Pos":184425},{"Code":"}","type":"block","Level":6,"Pos":184508},{"Code":"goto IL_0311;","type":"goto","Level":5,"Pos":184509},{"Code":"IL_0311:","type":"label","Level":5,"Pos":184552},{"Code":"num = 48;","type":"operation","Level":5,"Pos":184586},{"Code":"DataModul.DB_PersonTable.Index = nameof(DataModul.PersonIndex.PerNr);","type":"operation","Level":5,"Pos":184625},{"Code":"goto IL_0325;","type":"goto","Level":5,"Pos":184724},{"Code":"IL_0325:","type":"label","Level":5,"Pos":184767},{"Code":"num = 49;","type":"operation","Level":5,"Pos":184801},{"Code":"DataModul.DB_PersonTable.MoveLast();","type":"operation","Level":5,"Pos":184840},{"Code":"goto IL_0335;","type":"goto","Level":5,"Pos":184906},{"Code":"IL_0335:","type":"label","Level":5,"Pos":184949},{"Code":"num = 50;","type":"operation","Level":5,"Pos":184983},{"Code":"num8 = DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value.AsInt();","type":"operation","Level":5,"Pos":185022},{"Code":"goto IL_0359;","type":"goto","Level":5,"Pos":185144},{"Code":"IL_0359:","type":"label","Level":5,"Pos":185187},{"Code":"num = 51;","type":"operation","Level":5,"Pos":185221},{"Code":"if","type":"operation","Level":5,"Pos":185260},{"Code":"(num7 == 0)","type":"operation","Level":5,"Pos":185292},{"Code":"{","type":"block","Level":6,"Pos":185334},{"Code":"goto end_IL_0001_2;","type":"goto","Level":6,"Pos":185335},{"Code":"}","type":"block","Level":6,"Pos":185418},{"Code":"goto IL_036e;","type":"goto","Level":5,"Pos":185419},{"Code":"IL_036e:","type":"label","Level":5,"Pos":185462},{"Code":"num = 54;","type":"operation","Level":5,"Pos":185496},{"Code":"if","type":"operation","Level":5,"Pos":185535},{"Code":"((num7 \u003E DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value))","type":"operation","Level":5,"Pos":185567},{"Code":"{","type":"block","Level":6,"Pos":185685},{"Code":"goto IL_039e;","type":"goto","Level":6,"Pos":185686},{"Code":"}","type":"block","Level":6,"Pos":185763},{"Code":"else","type":"operation","Level":5,"Pos":185764},{"Code":"{","type":"block","Level":6,"Pos":185828},{"Code":"goto IL_03dd;","type":"goto","Level":6,"Pos":185829},{"Code":"}","type":"block","Level":6,"Pos":185906},{"Code":"IL_039e:","type":"label","Level":5,"Pos":185907},{"Code":"num = 55;","type":"operation","Level":5,"Pos":185941},{"Code":"Interaction.MsgBox(","type":"operation","Level":5,"Pos":185980},{"Code":"\u0022Die h\u00F6chste Personennummer ist \u0022","type":"string","Level":5,"Pos":186029},{"Code":"\u002B DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value.AsString());","type":"operation","Level":5,"Pos":186062},{"Code":"goto end_IL_0001_2;","type":"goto","Level":5,"Pos":186154},{"Code":"IL_03dd:","type":"label","Level":5,"Pos":186203},{"Code":"num = 58;","type":"operation","Level":5,"Pos":186237},{"Code":"ProgressBar1.Minimum = 0;","type":"operation","Level":5,"Pos":186276},{"Code":"goto IL_03ee;","type":"goto","Level":5,"Pos":186331},{"Code":"IL_03ee:","type":"label","Level":5,"Pos":186374},{"Code":"num = 59;","type":"operation","Level":5,"Pos":186408},{"Code":"ProgressBar1.Maximum = 0;","type":"operation","Level":5,"Pos":186447},{"Code":"goto IL_03ff;","type":"goto","Level":5,"Pos":186502},{"Code":"IL_03ff:","type":"label","Level":5,"Pos":186545},{"Code":"num = 60;","type":"operation","Level":5,"Pos":186579},{"Code":"ProgressBar1.Step = 1;","type":"operation","Level":5,"Pos":186618},{"Code":"goto IL_0410;","type":"goto","Level":5,"Pos":186670},{"Code":"IL_0410:","type":"label","Level":5,"Pos":186713},{"Code":"num = 61;","type":"operation","Level":5,"Pos":186747},{"Code":"ProgressBar1.Maximum = DataModul.DB_PersonTable.RecordCount - 1;","type":"operation","Level":5,"Pos":186786},{"Code":"goto IL_042c;","type":"goto","Level":5,"Pos":186880},{"Code":"IL_042c:","type":"label","Level":5,"Pos":186923},{"Code":"num = 62;","type":"operation","Level":5,"Pos":186957},{"Code":"List1.Items.Clear();","type":"operation","Level":5,"Pos":186996},{"Code":"goto IL_0441;","type":"goto","Level":5,"Pos":187046},{"Code":"IL_0441:","type":"label","Level":5,"Pos":187089},{"Code":"num = 63;","type":"operation","Level":5,"Pos":187123},{"Code":"i15 = num7;","type":"operation","Level":5,"Pos":187162},{"Code":"num19 = num8;","type":"operation","Level":5,"Pos":187203},{"Code":"I1 = i15;","type":"operation","Level":5,"Pos":187246},{"Code":"goto IL_0ca1;","type":"goto","Level":5,"Pos":187285},{"Code":"IL_0ca1:","type":"label","Level":5,"Pos":187328},{"Code":"i16 = I1;","type":"operation","Level":5,"Pos":187362},{"Code":"num5 = num19;","type":"operation","Level":5,"Pos":187401},{"Code":"if","type":"operation","Level":5,"Pos":187444},{"Code":"(i16 \u003C= num5)","type":"operation","Level":5,"Pos":187476},{"Code":"{","type":"block","Level":6,"Pos":187520},{"Code":"goto IL_0456;","type":"goto","Level":6,"Pos":187521},{"Code":"}","type":"block","Level":6,"Pos":187598},{"Code":"else","type":"operation","Level":5,"Pos":187599},{"Code":"{","type":"block","Level":6,"Pos":187663},{"Code":"goto IL_0cb2;","type":"goto","Level":6,"Pos":187664},{"Code":"}","type":"block","Level":6,"Pos":187741},{"Code":"IL_0cb2:","type":"label","Level":5,"Pos":187742},{"Code":"num = 156;","type":"operation","Level":5,"Pos":187776},{"Code":"Label4.Text = List1.Items.Count.AsString() \u002B","type":"operation","Level":5,"Pos":187816},{"Code":"\u0022 Eintr\u00E4ge\u0022","type":"string","Level":5,"Pos":187891},{"Code":";","type":"operation","Level":5,"Pos":187902},{"Code":"goto IL_448a;","type":"goto","Level":5,"Pos":187903},{"Code":"IL_0456:","type":"label","Level":5,"Pos":187946},{"Code":"num = 64;","type":"operation","Level":5,"Pos":187980},{"Code":"ProgressBar1.PerformStep();","type":"operation","Level":5,"Pos":188019},{"Code":"goto IL_0466;","type":"goto","Level":5,"Pos":188076},{"Code":"IL_0466:","type":"label","Level":5,"Pos":188119},{"Code":"num = 65;","type":"operation","Level":5,"Pos":188153},{"Code":"Application.DoEvents();","type":"operation","Level":5,"Pos":188192},{"Code":"goto IL_0470;","type":"goto","Level":5,"Pos":188245},{"Code":"IL_0470:","type":"label","Level":5,"Pos":188288},{"Code":"num = 66;","type":"operation","Level":5,"Pos":188322},{"Code":"Modul1.PersInArb = I1;","type":"operation","Level":5,"Pos":188361},{"Code":"goto IL_047f;","type":"goto","Level":5,"Pos":188413},{"Code":"IL_047f:","type":"label","Level":5,"Pos":188456},{"Code":"num = 67;","type":"operation","Level":5,"Pos":188490},{"Code":"if","type":"operation","Level":5,"Pos":188529},{"Code":"(Modul1.PersInArb \u003C= num8)","type":"operation","Level":5,"Pos":188561},{"Code":"{","type":"block","Level":6,"Pos":188618},{"Code":"goto IL_0497;","type":"goto","Level":6,"Pos":188619},{"Code":"}","type":"block","Level":6,"Pos":188696},{"Code":"else","type":"operation","Level":5,"Pos":188697},{"Code":"{","type":"block","Level":6,"Pos":188761},{"Code":"goto IL_448a;","type":"goto","Level":6,"Pos":188762},{"Code":"}","type":"block","Level":6,"Pos":188839},{"Code":"IL_448a:","type":"label","Level":5,"Pos":188840},{"Code":"num = 781;","type":"operation","Level":5,"Pos":188874},{"Code":"lErl = 4;","type":"operation","Level":5,"Pos":188914},{"Code":"goto IL_4494;","type":"goto","Level":5,"Pos":188953},{"Code":"IL_4494:","type":"label","Level":5,"Pos":188996},{"Code":"num = 782;","type":"operation","Level":5,"Pos":189030},{"Code":"if","type":"operation","Level":5,"Pos":189070},{"Code":"(!RadioButton2.Checked)","type":"operation","Level":5,"Pos":189102},{"Code":"{","type":"block","Level":6,"Pos":189156},{"Code":"goto end_IL_0001_2;","type":"goto","Level":6,"Pos":189157},{"Code":"}","type":"block","Level":6,"Pos":189240},{"Code":"goto IL_44ac;","type":"goto","Level":5,"Pos":189241},{"Code":"IL_44ac:","type":"label","Level":5,"Pos":189284},{"Code":"num = 783;","type":"operation","Level":5,"Pos":189318},{"Code":"List1.Items.Add(","type":"operation","Level":5,"Pos":189358},{"Code":"\u0022Ende der Liste\u0022","type":"string","Level":5,"Pos":189404},{"Code":");","type":"operation","Level":5,"Pos":189420},{"Code":"goto IL_44c9;","type":"goto","Level":5,"Pos":189422},{"Code":"IL_44c9:","type":"label","Level":5,"Pos":189465},{"Code":"num = 784;","type":"operation","Level":5,"Pos":189499},{"Code":"Modul1.I = 1;","type":"operation","Level":5,"Pos":189539},{"Code":"goto IL_44d6;","type":"goto","Level":5,"Pos":189582},{"Code":"IL_44d6:","type":"label","Level":5,"Pos":189625},{"Code":"num = 785;","type":"operation","Level":5,"Pos":189659},{"Code":"List1.Items.Add(","type":"operation","Level":5,"Pos":189699},{"Code":"\u0022\u0022","type":"string","Level":5,"Pos":189745},{"Code":");","type":"operation","Level":5,"Pos":189747},{"Code":"goto IL_44f3;","type":"goto","Level":5,"Pos":189749},{"Code":"IL_44f3:","type":"label","Level":5,"Pos":189792},{"Code":"num = 786;","type":"operation","Level":5,"Pos":189826},{"Code":"Modul1.I\u002B\u002B;","type":"operation","Level":5,"Pos":189866},{"Code":"i17 = Modul1.I;","type":"operation","Level":5,"Pos":189907},{"Code":"num5 = 17;","type":"operation","Level":5,"Pos":189952},{"Code":"if","type":"operation","Level":5,"Pos":189992},{"Code":"(i17 \u003E num5)","type":"operation","Level":5,"Pos":190024},{"Code":"{","type":"block","Level":6,"Pos":190067},{"Code":"goto end_IL_0001_2;","type":"goto","Level":6,"Pos":190068},{"Code":"}","type":"block","Level":6,"Pos":190151},{"Code":"goto IL_44d6;","type":"goto","Level":5,"Pos":190152},{"Code":"IL_0497:","type":"label","Level":5,"Pos":190195},{"Code":"num = 70;","type":"operation","Level":5,"Pos":190229},{"Code":"DataModul.DB_PersonTable.Seek(","type":"operation","Level":5,"Pos":190268},{"Code":"\u0022=\u0022","type":"string","Level":5,"Pos":190328},{"Code":", Modul1.PersInArb.AsString());","type":"operation","Level":5,"Pos":190331},{"Code":"goto IL_04f6;","type":"goto","Level":5,"Pos":190362},{"Code":"IL_04f6:","type":"label","Level":5,"Pos":190405},{"Code":"num = 71;","type":"operation","Level":5,"Pos":190439},{"Code":"if","type":"operation","Level":5,"Pos":190478},{"Code":"(!DataModul.DB_PersonTable.NoMatch)","type":"operation","Level":5,"Pos":190510},{"Code":"{","type":"block","Level":6,"Pos":190576},{"Code":"goto IL_050f;","type":"goto","Level":6,"Pos":190577},{"Code":"}","type":"block","Level":6,"Pos":190654},{"Code":"else","type":"operation","Level":5,"Pos":190655},{"Code":"{","type":"block","Level":6,"Pos":190719},{"Code":"goto IL_0c81;","type":"goto","Level":6,"Pos":190720},{"Code":"}","type":"block","Level":6,"Pos":190797},{"Code":"IL_050f:","type":"label","Level":5,"Pos":190798},{"Code":"num = 74;","type":"operation","Level":5,"Pos":190832},{"Code":"Modul1.Personlesen(Modul1.PersInArb);","type":"operation","Level":5,"Pos":190871},{"Code":"goto IL_0519;","type":"goto","Level":5,"Pos":190938},{"Code":"IL_0519:","type":"label","Level":5,"Pos":190981},{"Code":"num = 75;","type":"operation","Level":5,"Pos":191015},{"Code":"Modul1.LiText = Strings.Left((Modul1.Kont[0]).Trim() \u002B","type":"operation","Level":5,"Pos":191054},{"Code":"\u0022,\u0022","type":"string","Level":5,"Pos":191139},{"Code":"\u002B (Modul1.Kont[3]).Trim() \u002B","type":"operation","Level":5,"Pos":191142},{"Code":"\u0022 \u0022","type":"string","Level":5,"Pos":191171},{"Code":", 20);","type":"operation","Level":5,"Pos":191207},{"Code":"goto IL_0550;","type":"goto","Level":5,"Pos":191213},{"Code":"IL_0550:","type":"label","Level":5,"Pos":191256},{"Code":"num = 76;","type":"operation","Level":5,"Pos":191290},{"Code":"Modul1.Schalt = 20;","type":"operation","Level":5,"Pos":191329},{"Code":"goto IL_055b;","type":"goto","Level":5,"Pos":191378},{"Code":"IL_055b:","type":"label","Level":5,"Pos":191421},{"Code":"num = 77;","type":"operation","Level":5,"Pos":191455},{"Code":"T = 1;","type":"operation","Level":5,"Pos":191494},{"Code":"goto IL_0566;","type":"goto","Level":5,"Pos":191530},{"Code":"IL_0566:","type":"label","Level":5,"Pos":191573},{"Code":"num = 78;","type":"operation","Level":5,"Pos":191607},{"Code":"Modul1.Kont[T \u002B 10] =","type":"operation","Level":5,"Pos":191646},{"Code":"\u0022 \u0022","type":"string","Level":5,"Pos":191698},{"Code":";","type":"operation","Level":5,"Pos":191701},{"Code":"goto IL_057f;","type":"goto","Level":5,"Pos":191702},{"Code":"IL_057f:","type":"label","Level":5,"Pos":191745},{"Code":"num = 79;","type":"operation","Level":5,"Pos":191779},{"Code":"Modul1.Kont[T \u002B 20] =","type":"operation","Level":5,"Pos":191818},{"Code":"\u0022 \u0022","type":"string","Level":5,"Pos":191870},{"Code":";","type":"operation","Level":5,"Pos":191873},{"Code":"goto IL_0598;","type":"goto","Level":5,"Pos":191874},{"Code":"IL_0598:","type":"label","Level":5,"Pos":191917},{"Code":"num = 80;","type":"operation","Level":5,"Pos":191951},{"Code":"T = (short)unchecked(T \u002B 1);","type":"operation","Level":5,"Pos":191990},{"Code":"t2 = T;","type":"operation","Level":5,"Pos":192048},{"Code":"num11 = 10;","type":"operation","Level":5,"Pos":192085},{"Code":"if","type":"operation","Level":5,"Pos":192126},{"Code":"(t2 \u003C= num11)","type":"operation","Level":5,"Pos":192158},{"Code":"{","type":"block","Level":6,"Pos":192202},{"Code":"goto IL_0566;","type":"goto","Level":6,"Pos":192203},{"Code":"}","type":"block","Level":6,"Pos":192280},{"Code":"else","type":"operation","Level":5,"Pos":192281},{"Code":"{","type":"block","Level":6,"Pos":192345},{"Code":"goto IL_05ba;","type":"goto","Level":6,"Pos":192346},{"Code":"}","type":"block","Level":6,"Pos":192423},{"Code":"IL_05ba:","type":"label","Level":5,"Pos":192424},{"Code":"num = 81;","type":"operation","Level":5,"Pos":192458},{"Code":"Modul1.Datles();","type":"operation","Level":5,"Pos":192497},{"Code":"goto IL_05c4;","type":"goto","Level":5,"Pos":192543},{"Code":"IL_05c4:","type":"label","Level":5,"Pos":192586},{"Code":"num = 82;","type":"operation","Level":5,"Pos":192620},{"Code":"sDest2 =","type":"operation","Level":5,"Pos":192659},{"Code":"\u0022 \u0022","type":"string","Level":5,"Pos":192698},{"Code":";","type":"operation","Level":5,"Pos":192776},{"Code":"goto IL_05cf;","type":"goto","Level":5,"Pos":192777},{"Code":"IL_05cf:","type":"label","Level":5,"Pos":192820},{"Code":"num = 83;","type":"operation","Level":5,"Pos":192854},{"Code":"StringType.MidStmtStr(ref sDest2, 2, 2, Modul1.Kont[11] \u002B Modul1.Kont[21]);","type":"operation","Level":5,"Pos":192893},{"Code":"goto IL_05f2;","type":"goto","Level":5,"Pos":192998},{"Code":"IL_05f2:","type":"label","Level":5,"Pos":193041},{"Code":"num = 84;","type":"operation","Level":5,"Pos":193075},{"Code":"StringType.MidStmtStr(ref sDest2, 8, 2, Modul1.Kont[12] \u002B Modul1.Kont[22]);","type":"operation","Level":5,"Pos":193114},{"Code":"goto IL_0615;","type":"goto","Level":5,"Pos":193219},{"Code":"IL_0615:","type":"label","Level":5,"Pos":193262},{"Code":"num = 85;","type":"operation","Level":5,"Pos":193296},{"Code":"StringType.MidStmtStr(ref sDest2, 17, 2, Modul1.Kont[13] \u002B Modul1.Kont[23]);","type":"operation","Level":5,"Pos":193335},{"Code":"goto IL_0639;","type":"goto","Level":5,"Pos":193441},{"Code":"IL_0639:","type":"label","Level":5,"Pos":193484},{"Code":"num = 86;","type":"operation","Level":5,"Pos":193518},{"Code":"StringType.MidStmtStr(ref sDest2, 27, 2, Modul1.Kont[14] \u002B Modul1.Kont[24]);","type":"operation","Level":5,"Pos":193557},{"Code":"goto IL_065d;","type":"goto","Level":5,"Pos":193663},{"Code":"IL_065d:","type":"label","Level":5,"Pos":193706},{"Code":"num = 87;","type":"operation","Level":5,"Pos":193740},{"Code":"num12 = 300;","type":"operation","Level":5,"Pos":193779},{"Code":"goto IL_0667;","type":"goto","Level":5,"Pos":193821},{"Code":"IL_0667:","type":"label","Level":5,"Pos":193864},{"Code":"num = 88;","type":"operation","Level":5,"Pos":193898},{"Code":"DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.BeSu);","type":"operation","Level":5,"Pos":193937},{"Code":"goto IL_067b;","type":"goto","Level":5,"Pos":194033},{"Code":"IL_067b:","type":"label","Level":5,"Pos":194076},{"Code":"num = 89;","type":"operation","Level":5,"Pos":194110},{"Code":"DataModul.DB_EventTable.Seek(","type":"operation","Level":5,"Pos":194149},{"Code":"\u0022=\u0022","type":"string","Level":5,"Pos":194208},{"Code":", num12, Modul1.PersInArb.AsString());","type":"operation","Level":5,"Pos":194211},{"Code":"goto IL_06db;","type":"goto","Level":5,"Pos":194249},{"Code":"IL_06db:","type":"label","Level":5,"Pos":194292},{"Code":"num = 90;","type":"operation","Level":5,"Pos":194326},{"Code":"if","type":"operation","Level":5,"Pos":194365},{"Code":"(!DataModul.DB_EventTable.NoMatch)","type":"operation","Level":5,"Pos":194397},{"Code":"{","type":"block","Level":6,"Pos":194462},{"Code":"goto IL_06f4;","type":"goto","Level":6,"Pos":194463},{"Code":"}","type":"block","Level":6,"Pos":194540},{"Code":"else","type":"operation","Level":5,"Pos":194541},{"Code":"{","type":"block","Level":6,"Pos":194605},{"Code":"goto IL_0ac2;","type":"goto","Level":6,"Pos":194606},{"Code":"}","type":"block","Level":6,"Pos":194683},{"Code":"IL_06f4:","type":"label","Level":5,"Pos":194684},{"Code":"num = 93;","type":"operation","Level":5,"Pos":194718},{"Code":"switch","type":"operation","Level":5,"Pos":194757},{"Code":"(num12)","type":"operation","Level":5,"Pos":194793},{"Code":"{","type":"block","Level":6,"Pos":194831},{"Code":"case 300:","type":"label","Level":6,"Pos":194832},{"Code":"break;","type":"operation","Level":6,"Pos":194875},{"Code":"case 301:","type":"label","Level":6,"Pos":194919},{"Code":"goto IL_084e;","type":"goto","Level":6,"Pos":194962},{"Code":"case 302:","type":"label","Level":6,"Pos":195013},{"Code":"goto IL_0981;","type":"goto","Level":6,"Pos":195056},{"Code":"default:","type":"label","Level":6,"Pos":195107},{"Code":"goto IL_0ac2;","type":"goto","Level":6,"Pos":195149},{"Code":"}","type":"block","Level":6,"Pos":195230},{"Code":"{","type":"block","Level":6,"Pos":195263},{"Code":"goto IL_071b;","type":"goto","Level":6,"Pos":195264},{"Code":"}","type":"block","Level":6,"Pos":195341},{"Code":"IL_0981:","type":"label","Level":5,"Pos":195342},{"Code":"num = 125;","type":"operation","Level":5,"Pos":195376},{"Code":"if","type":"operation","Level":5,"Pos":195416},{"Code":"((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() \u003E0))","type":"operation","Level":5,"Pos":195448},{"Code":"{","type":"block","Level":6,"Pos":195560},{"Code":"goto IL_09b0;","type":"goto","Level":6,"Pos":195561},{"Code":"}","type":"block","Level":6,"Pos":195638},{"Code":"else","type":"operation","Level":5,"Pos":195639},{"Code":"{","type":"block","Level":6,"Pos":195703},{"Code":"goto IL_09ca;","type":"goto","Level":6,"Pos":195704},{"Code":"}","type":"block","Level":6,"Pos":195781},{"Code":"IL_09b0:","type":"label","Level":5,"Pos":195782},{"Code":"num = 126;","type":"operation","Level":5,"Pos":195816},{"Code":"StringType.MidStmtStr(ref sDest2, 50, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":195856},{"Code":"goto IL_09ca;","type":"goto","Level":5,"Pos":195946},{"Code":"IL_09ca:","type":"label","Level":5,"Pos":195989},{"Code":"num = 128;","type":"operation","Level":5,"Pos":196023},{"Code":"if","type":"operation","Level":5,"Pos":196063},{"Code":"((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() \u003E0))","type":"operation","Level":5,"Pos":196095},{"Code":"{","type":"block","Level":6,"Pos":196209},{"Code":"goto IL_09fc;","type":"goto","Level":6,"Pos":196210},{"Code":"}","type":"block","Level":6,"Pos":196287},{"Code":"else","type":"operation","Level":5,"Pos":196288},{"Code":"{","type":"block","Level":6,"Pos":196352},{"Code":"goto IL_0a19;","type":"goto","Level":6,"Pos":196353},{"Code":"}","type":"block","Level":6,"Pos":196430},{"Code":"IL_09fc:","type":"label","Level":5,"Pos":196431},{"Code":"num = 129;","type":"operation","Level":5,"Pos":196465},{"Code":"StringType.MidStmtStr(ref sDest2, 51, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":196505},{"Code":"goto IL_0a19;","type":"goto","Level":5,"Pos":196595},{"Code":"IL_0a19:","type":"label","Level":5,"Pos":196638},{"Code":"num = 131;","type":"operation","Level":5,"Pos":196672},{"Code":"if","type":"operation","Level":5,"Pos":196712},{"Code":"((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() \u003E0))","type":"operation","Level":5,"Pos":196744},{"Code":"{","type":"block","Level":6,"Pos":196858},{"Code":"goto IL_0a4b;","type":"goto","Level":6,"Pos":196859},{"Code":"}","type":"block","Level":6,"Pos":196936},{"Code":"else","type":"operation","Level":5,"Pos":196937},{"Code":"{","type":"block","Level":6,"Pos":197001},{"Code":"goto IL_0a68;","type":"goto","Level":6,"Pos":197002},{"Code":"}","type":"block","Level":6,"Pos":197079},{"Code":"IL_0a4b:","type":"label","Level":5,"Pos":197080},{"Code":"num = 132;","type":"operation","Level":5,"Pos":197114},{"Code":"StringType.MidStmtStr(ref sDest2, 52, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":197154},{"Code":"goto IL_0a68;","type":"goto","Level":5,"Pos":197244},{"Code":"IL_0a68:","type":"label","Level":5,"Pos":197287},{"Code":"num = 134;","type":"operation","Level":5,"Pos":197321},{"Code":"if","type":"operation","Level":5,"Pos":197361},{"Code":"(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) \u003E 0.0)","type":"operation","Level":5,"Pos":197393},{"Code":"{","type":"block","Level":6,"Pos":197519},{"Code":"goto IL_0aa3;","type":"goto","Level":6,"Pos":197520},{"Code":"}","type":"block","Level":6,"Pos":197597},{"Code":"else","type":"operation","Level":5,"Pos":197598},{"Code":"{","type":"block","Level":6,"Pos":197662},{"Code":"goto IL_0ac2;","type":"goto","Level":6,"Pos":197663},{"Code":"}","type":"block","Level":6,"Pos":197740},{"Code":"IL_0aa3:","type":"label","Level":5,"Pos":197741},{"Code":"num = 135;","type":"operation","Level":5,"Pos":197775},{"Code":"StringType.MidStmtStr(ref sDest2, 53, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":197815},{"Code":"goto IL_0ac2;","type":"goto","Level":5,"Pos":197905},{"Code":"IL_084e:","type":"label","Level":5,"Pos":197948},{"Code":"num = 111;","type":"operation","Level":5,"Pos":197982},{"Code":"if","type":"operation","Level":5,"Pos":198022},{"Code":"((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() \u003E0))","type":"operation","Level":5,"Pos":198054},{"Code":"{","type":"block","Level":6,"Pos":198166},{"Code":"goto IL_087d;","type":"goto","Level":6,"Pos":198167},{"Code":"}","type":"block","Level":6,"Pos":198244},{"Code":"else","type":"operation","Level":5,"Pos":198245},{"Code":"{","type":"block","Level":6,"Pos":198309},{"Code":"goto IL_0897;","type":"goto","Level":6,"Pos":198310},{"Code":"}","type":"block","Level":6,"Pos":198387},{"Code":"IL_087d:","type":"label","Level":5,"Pos":198388},{"Code":"num = 112;","type":"operation","Level":5,"Pos":198422},{"Code":"StringType.MidStmtStr(ref sDest2, 42, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":198462},{"Code":"goto IL_0897;","type":"goto","Level":5,"Pos":198552},{"Code":"IL_0897:","type":"label","Level":5,"Pos":198595},{"Code":"num = 114;","type":"operation","Level":5,"Pos":198629},{"Code":"if","type":"operation","Level":5,"Pos":198669},{"Code":"((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() \u003E0))","type":"operation","Level":5,"Pos":198701},{"Code":"{","type":"block","Level":6,"Pos":198815},{"Code":"goto IL_08c6;","type":"goto","Level":6,"Pos":198816},{"Code":"}","type":"block","Level":6,"Pos":198893},{"Code":"else","type":"operation","Level":5,"Pos":198894},{"Code":"{","type":"block","Level":6,"Pos":198958},{"Code":"goto IL_08e0;","type":"goto","Level":6,"Pos":198959},{"Code":"}","type":"block","Level":6,"Pos":199036},{"Code":"IL_08c6:","type":"label","Level":5,"Pos":199037},{"Code":"num = 115;","type":"operation","Level":5,"Pos":199071},{"Code":"StringType.MidStmtStr(ref sDest2, 44, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":199111},{"Code":"goto IL_08e0;","type":"goto","Level":5,"Pos":199201},{"Code":"IL_08e0:","type":"label","Level":5,"Pos":199244},{"Code":"num = 117;","type":"operation","Level":5,"Pos":199278},{"Code":"if","type":"operation","Level":5,"Pos":199318},{"Code":"((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() \u003E0))","type":"operation","Level":5,"Pos":199350},{"Code":"{","type":"block","Level":6,"Pos":199464},{"Code":"goto IL_090f;","type":"goto","Level":6,"Pos":199465},{"Code":"}","type":"block","Level":6,"Pos":199542},{"Code":"else","type":"operation","Level":5,"Pos":199543},{"Code":"{","type":"block","Level":6,"Pos":199607},{"Code":"goto IL_0929;","type":"goto","Level":6,"Pos":199608},{"Code":"}","type":"block","Level":6,"Pos":199685},{"Code":"IL_090f:","type":"label","Level":5,"Pos":199686},{"Code":"num = 118;","type":"operation","Level":5,"Pos":199720},{"Code":"StringType.MidStmtStr(ref sDest2, 45, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":199760},{"Code":"goto IL_0929;","type":"goto","Level":5,"Pos":199850},{"Code":"IL_0929:","type":"label","Level":5,"Pos":199893},{"Code":"num = 120;","type":"operation","Level":5,"Pos":199927},{"Code":"if","type":"operation","Level":5,"Pos":199967},{"Code":"(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) \u003E 0.0)","type":"operation","Level":5,"Pos":199999},{"Code":"{","type":"block","Level":6,"Pos":200125},{"Code":"goto IL_0961;","type":"goto","Level":6,"Pos":200126},{"Code":"}","type":"block","Level":6,"Pos":200203},{"Code":"else","type":"operation","Level":5,"Pos":200204},{"Code":"{","type":"block","Level":6,"Pos":200268},{"Code":"goto IL_0ac2;","type":"goto","Level":6,"Pos":200269},{"Code":"}","type":"block","Level":6,"Pos":200346},{"Code":"IL_0961:","type":"label","Level":5,"Pos":200347},{"Code":"num = 121;","type":"operation","Level":5,"Pos":200381},{"Code":"StringType.MidStmtStr(ref sDest2, 46, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":200421},{"Code":"goto IL_0ac2;","type":"goto","Level":5,"Pos":200511},{"Code":"IL_071b:","type":"label","Level":5,"Pos":200554},{"Code":"num = 97;","type":"operation","Level":5,"Pos":200588},{"Code":"if","type":"operation","Level":5,"Pos":200627},{"Code":"((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() \u003E0))","type":"operation","Level":5,"Pos":200659},{"Code":"{","type":"block","Level":6,"Pos":200771},{"Code":"goto IL_074a;","type":"goto","Level":6,"Pos":200772},{"Code":"}","type":"block","Level":6,"Pos":200849},{"Code":"else","type":"operation","Level":5,"Pos":200850},{"Code":"{","type":"block","Level":6,"Pos":200914},{"Code":"goto IL_0764;","type":"goto","Level":6,"Pos":200915},{"Code":"}","type":"block","Level":6,"Pos":200992},{"Code":"IL_074a:","type":"label","Level":5,"Pos":200993},{"Code":"num = 98;","type":"operation","Level":5,"Pos":201027},{"Code":"StringType.MidStmtStr(ref sDest2, 34, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":201066},{"Code":"goto IL_0764;","type":"goto","Level":5,"Pos":201156},{"Code":"IL_0764:","type":"label","Level":5,"Pos":201199},{"Code":"num = 100;","type":"operation","Level":5,"Pos":201233},{"Code":"if","type":"operation","Level":5,"Pos":201273},{"Code":"((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() \u003E0))","type":"operation","Level":5,"Pos":201305},{"Code":"{","type":"block","Level":6,"Pos":201419},{"Code":"goto IL_0793;","type":"goto","Level":6,"Pos":201420},{"Code":"}","type":"block","Level":6,"Pos":201497},{"Code":"else","type":"operation","Level":5,"Pos":201498},{"Code":"{","type":"block","Level":6,"Pos":201562},{"Code":"goto IL_07ad;","type":"goto","Level":6,"Pos":201563},{"Code":"}","type":"block","Level":6,"Pos":201640},{"Code":"IL_0793:","type":"label","Level":5,"Pos":201641},{"Code":"num = 101;","type":"operation","Level":5,"Pos":201675},{"Code":"StringType.MidStmtStr(ref sDest2, 36, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":201715},{"Code":"goto IL_07ad;","type":"goto","Level":5,"Pos":201805},{"Code":"IL_07ad:","type":"label","Level":5,"Pos":201848},{"Code":"num = 103;","type":"operation","Level":5,"Pos":201882},{"Code":"if","type":"operation","Level":5,"Pos":201922},{"Code":"((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() \u003E0))","type":"operation","Level":5,"Pos":201954},{"Code":"{","type":"block","Level":6,"Pos":202068},{"Code":"goto IL_07dc;","type":"goto","Level":6,"Pos":202069},{"Code":"}","type":"block","Level":6,"Pos":202146},{"Code":"else","type":"operation","Level":5,"Pos":202147},{"Code":"{","type":"block","Level":6,"Pos":202211},{"Code":"goto IL_07f6;","type":"goto","Level":6,"Pos":202212},{"Code":"}","type":"block","Level":6,"Pos":202289},{"Code":"IL_07dc:","type":"label","Level":5,"Pos":202290},{"Code":"num = 104;","type":"operation","Level":5,"Pos":202324},{"Code":"StringType.MidStmtStr(ref sDest2, 37, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":202364},{"Code":"goto IL_07f6;","type":"goto","Level":5,"Pos":202454},{"Code":"IL_07f6:","type":"label","Level":5,"Pos":202497},{"Code":"num = 106;","type":"operation","Level":5,"Pos":202531},{"Code":"if","type":"operation","Level":5,"Pos":202571},{"Code":"(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) \u003E 0.0)","type":"operation","Level":5,"Pos":202603},{"Code":"{","type":"block","Level":6,"Pos":202729},{"Code":"goto IL_082e;","type":"goto","Level":6,"Pos":202730},{"Code":"}","type":"block","Level":6,"Pos":202807},{"Code":"else","type":"operation","Level":5,"Pos":202808},{"Code":"{","type":"block","Level":6,"Pos":202872},{"Code":"goto IL_0ac2;","type":"goto","Level":6,"Pos":202873},{"Code":"}","type":"block","Level":6,"Pos":202950},{"Code":"IL_082e:","type":"label","Level":5,"Pos":202951},{"Code":"num = 107;","type":"operation","Level":5,"Pos":202985},{"Code":"StringType.MidStmtStr(ref sDest2, 38, 1, Modul1.IText[175]);","type":"operation","Level":5,"Pos":203025},{"Code":"goto IL_0ac2;","type":"goto","Level":5,"Pos":203115},{"Code":"IL_0ac2:","type":"label","Level":5,"Pos":203158},{"Code":"num = 138;","type":"operation","Level":5,"Pos":203192},{"Code":"lErl = 2;","type":"operation","Level":5,"Pos":203232},{"Code":"goto IL_0acc;","type":"goto","Level":5,"Pos":203271},{"Code":"IL_0acc:","type":"label","Level":5,"Pos":203314},{"Code":"num = 139;","type":"operation","Level":5,"Pos":203348},{"Code":"num12 = (short)unchecked(num12 \u002B 1);","type":"operation","Level":5,"Pos":203388},{"Code":"num20 = num12;","type":"operation","Level":5,"Pos":203454},{"Code":"num11 = 302;","type":"operation","Level":5,"Pos":203498},{"Code":"if","type":"operation","Level":5,"Pos":203540},{"Code":"(num20 \u003C= num11)","type":"operation","Level":5,"Pos":203572},{"Code":"{","type":"block","Level":6,"Pos":203619},{"Code":"goto IL_0667;","type":"goto","Level":6,"Pos":203620},{"Code":"}","type":"block","Level":6,"Pos":203697},{"Code":"else","type":"operation","Level":5,"Pos":203698},{"Code":"{","type":"block","Level":6,"Pos":203762},{"Code":"goto IL_0ae8;","type":"goto","Level":6,"Pos":203763},{"Code":"}","type":"block","Level":6,"Pos":203840},{"Code":"IL_0ae8:","type":"label","Level":5,"Pos":203841},{"Code":"num = 140;","type":"operation","Level":5,"Pos":203875},{"Code":"Modul1.LiText \u002B= sDest2;","type":"operation","Level":5,"Pos":203915},{"Code":"goto IL_0b00;","type":"goto","Level":5,"Pos":203969},{"Code":"IL_0b00:","type":"label","Level":5,"Pos":204012},{"Code":"num = 141;","type":"operation","Level":5,"Pos":204046},{"Code":"Modul1.PerSatzLes();","type":"operation","Level":5,"Pos":204086},{"Code":"goto IL_0b0d;","type":"goto","Level":5,"Pos":204136},{"Code":"IL_0b0d:","type":"label","Level":5,"Pos":204179},{"Code":"num = 142;","type":"operation","Level":5,"Pos":204213},{"Code":"if","type":"operation","Level":5,"Pos":204253},{"Code":"(null != DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.Bem3)].Value)","type":"operation","Level":5,"Pos":204285},{"Code":"{","type":"block","Level":6,"Pos":204400},{"Code":"goto IL_0b40;","type":"goto","Level":6,"Pos":204401},{"Code":"}","type":"block","Level":6,"Pos":204478},{"Code":"else","type":"operation","Level":5,"Pos":204479},{"Code":"{","type":"block","Level":6,"Pos":204543},{"Code":"goto IL_0b8b;","type":"goto","Level":6,"Pos":204544},{"Code":"}","type":"block","Level":6,"Pos":204621},{"Code":"IL_0b40:","type":"label","Level":5,"Pos":204622},{"Code":"num = 143;","type":"operation","Level":5,"Pos":204656},{"Code":"if","type":"operation","Level":5,"Pos":204696},{"Code":"(Operators.ConditionalCompareObjectNotEqual(DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.Bem3)].Value,","type":"operation","Level":5,"Pos":204728},{"Code":"\u0022\u0022","type":"string","Level":5,"Pos":204849},{"Code":", TextCompare:","type":"label","Level":5,"Pos":204851},{"Code":"false))","type":"operation","Level":5,"Pos":204865},{"Code":"{","type":"block","Level":6,"Pos":204903},{"Code":"goto IL_0b71;","type":"goto","Level":6,"Pos":204904},{"Code":"}","type":"block","Level":6,"Pos":204981},{"Code":"else","type":"operation","Level":5,"Pos":204982},{"Code":"{","type":"block","Level":6,"Pos":205046},{"Code":"goto IL_0b8b;","type":"goto","Level":6,"Pos":205047},{"Code":"}","type":"block","Level":6,"Pos":205124},{"Code":"IL_0b71:","type":"label","Level":5,"Pos":205125},{"Code":"num = 144;","type":"operation","Level":5,"Pos":205159},{"Code":"StringType.MidStmtStr(ref Modul1.LiText, 77, 1,","type":"operation","Level":5,"Pos":205199},{"Code":"\u0022J\u0022","type":"string","Level":5,"Pos":205277},{"Code":");","type":"operation","Level":5,"Pos":205280},{"Code":"goto IL_0b8b;","type":"goto","Level":5,"Pos":205282},{"Code":"IL_0b8b:","type":"label","Level":5,"Pos":205325},{"Code":"num = 147;","type":"operation","Level":5,"Pos":205359},{"Code":"DataModul.TTable.Index =","type":"operation","Level":5,"Pos":205399},{"Code":"\u0022Tab\u0022","type":"string","Level":5,"Pos":205454},{"Code":";","type":"operation","Level":5,"Pos":205459},{"Code":"goto IL_0ba2;","type":"goto","Level":5,"Pos":205460},{"Code":"end_IL_0001:","type":"label","Level":5,"Pos":205503},{"Code":"break;","type":"operation","Level":5,"Pos":205541},{"Code":"}","type":"block","Level":5,"Pos":205599},{"Code":"}","type":"block","Level":4,"Pos":205618},{"Code":"}","type":"block","Level":3,"Pos":205633},{"Code":"catch","type":"operation","Level":2,"Pos":205634},{"Code":"(Exception obj)","type":"operation","Level":2,"Pos":205653},{"Code":"when (num3 != 0 \u0026\u0026 num2 == 0)","type":"operation","Level":2,"Pos":205670},{"Code":"{","type":"block","Level":3,"Pos":205713},{"Code":"ProjectData.SetProjectError(obj, lErl);","type":"operation","Level":3,"Pos":205714},{"Code":"try0001_dispatch = 21059;","type":"operation","Level":3,"Pos":205771},{"Code":"continue;","type":"operation","Level":3,"Pos":205814},{"Code":"}","type":"block","Level":3,"Pos":205855},{"Code":"throw","type":"operation","Level":2,"Pos":205856},{"Code":"ProjectData.CreateProjectError(-2146828237);","type":"operation","Level":2,"Pos":205875},{"Code":"end_IL_0001_2:","type":"label","Level":2,"Pos":205920},{"Code":"break;","type":"operation","Level":2,"Pos":205944},{"Code":"}","type":"block","Level":2,"Pos":205974},{"Code":"if","type":"operation","Level":1,"Pos":205975},{"Code":"(num2 != 0)","type":"operation","Level":1,"Pos":205987},{"Code":"{","type":"block","Level":2,"Pos":206009},{"Code":"ProjectData.ClearProjectError();","type":"operation","Level":2,"Pos":206010},{"Code":"}","type":"block","Level":2,"Pos":206066},{"Code":"}","type":"block","Level":1,"Pos":206073}] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test09/Test9ExpCode.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test09/Test9ExpCode.txt deleted file mode 100644 index b7b0d758b..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test09/Test9ExpCode.txt +++ /dev/null @@ -1,4576 +0,0 @@ - private void Command1_Click(object eventSender, EventArgs eventArgs) - { - //Discarded unreachable code: IL_451b - int try0001_dispatch = -1; - int num = default; - short index = default; - int num2 = default; - int num3 = default; - int lErl = default; - int num6 = default; - int num7 = default; - int num8 = default; - int num9 = default; - string sDest = default; - int num10 = default; - string sDest2 = default; - short num12 = default; - int num14 = default; - short num15 = default; - int num17 = default; - int num19 = default; - while (true) - { - try - { - /*Note: ILSpy has introduced the following switch to emulate a goto from catch-block to try-block*/ - ; - checked - { - int num4; - int i3; - int i4; - int i5; - int i6; - int i7; - short t; - short num13; - int i8; - int i9; - int i10; - short num16; - ListBox L; - short A; - int i11; - int i12; - int i13; - short num18; - int i14; - int i15; - int i16; - int i17; - int num5; - short t2; - short num20; - short num11; - switch (try0001_dispatch) - { - default: - num = 1; - index = Command1.GetIndex((Button)eventSender); - goto IL_0016; - case 21059: - { - num2 = num; - switch ((num3 <= -2) ? 1 : num3) - { - case 2: - break; - case 1: - goto IL_45b9; - default: - goto end_IL_0001; - } - goto IL_451d; - } - IL_0c00: - num = 149; - if (!DataModul.TTable.NoMatch) - { - goto IL_0c1a; - } - else - { - goto IL_0c34; - } - IL_0c1a: - num = 150; - StringType.MidStmtStr(ref Modul1.LiText, 79, 1, "J"); - goto IL_0c34; - IL_0ba2: - num = 148; - DataModul.TTable.Seek("=", 1, Modul1.PersInArb); - goto IL_0c00; - IL_451d: - num = 789; - if (Information.Err().Number == 6) - { - goto IL_4537; - } - else - { - goto IL_4563; - } - IL_4563: - num = 794; - if (Interaction.MsgBox(Conversion.ErrorToString(), MsgBoxStyle.OkCancel, (Information.Err().Number).AsString()) == MsgBoxResult.Cancel) - { - ProjectData.EndApp(); - } - goto IL_4593; - IL_0c6f: - num = 153; - Modul1.LiText = ""; - goto IL_0c81; - IL_4593: - num = 797; - ProjectData.ClearProjectError(); - if (num2 == 0) - { - throw ProjectData.CreateProjectError(-2146828268); - } - num4 = num2; - goto IL_45bd; - IL_0c81: // <========== 3 - num = 154; - lErl = 5; - goto IL_0c8b; - IL_0c8b: - num = 155; - I1++; - goto IL_0ca1; - IL_45bd: - num2 = 0; - switch (num4) - { - case 1: - break; - case 2: - goto IL_0016; - case 3: - goto IL_0026; - case 4: - goto IL_0036; - case 5: - goto IL_003e; - case 7: - case 9: - goto IL_006f; - case 10: - goto IL_0080; - case 12: - case 13: - goto IL_0094; - case 6: - case 11: - case 14: - case 15: - goto IL_00a6; - case 16: - goto IL_00bb; - case 17: - goto IL_00db; - case 18: - case 19: - goto IL_00ed; - case 20: - goto IL_010d; - case 21: - case 22: - goto IL_011f; - case 23: - goto IL_0130; - case 24: - goto IL_0141; - case 25: - goto IL_0156; - case 26: - goto IL_016b; - case 27: - case 28: - goto IL_017c; - case 29: - goto IL_0191; - case 30: - case 31: - goto IL_01a2; - case 33: - case 35: - goto IL_01d7; - case 36: - goto IL_01ec; - case 37: - goto IL_0207; - case 38: - goto IL_0228; - case 39: - goto IL_0249; - case 40: - goto IL_027a; - case 41: - goto IL_02ab; - case 42: - goto IL_02b6; - case 43: - goto IL_02d2; - case 44: - goto IL_02f2; - case 45: - goto IL_02f9; - case 47: - case 48: - goto IL_0311; - case 49: - goto IL_0325; - case 50: - goto IL_0335; - case 51: - goto IL_0359; - case 53: - case 54: - goto IL_036e; - case 55: - goto IL_039e; - case 57: - case 58: - goto IL_03dd; - case 59: - goto IL_03ee; - case 60: - goto IL_03ff; - case 61: - goto IL_0410; - case 62: - goto IL_042c; - case 63: - goto IL_0441; - case 64: - goto IL_0456; - case 65: - goto IL_0466; - case 66: - goto IL_0470; - case 67: - goto IL_047f; - case 69: - case 70: - goto IL_0497; - case 71: - goto IL_04f6; - case 73: - case 74: - goto IL_050f; - case 75: - goto IL_0519; - case 76: - goto IL_0550; - case 77: - goto IL_055b; - case 78: - goto IL_0566; - case 79: - goto IL_057f; - case 80: - goto IL_0598; - case 81: - goto IL_05ba; - case 82: - goto IL_05c4; - case 83: - goto IL_05cf; - case 84: - goto IL_05f2; - case 85: - goto IL_0615; - case 86: - goto IL_0639; - case 87: - goto IL_065d; - case 88: - goto IL_0667; - case 89: - goto IL_067b; - case 90: - goto IL_06db; - case 92: - case 93: - goto IL_06f4; - case 95: - case 97: - goto IL_071b; - case 98: - goto IL_074a; - case 99: - case 100: - goto IL_0764; - case 101: - goto IL_0793; - case 102: - case 103: - goto IL_07ad; - case 104: - goto IL_07dc; - case 105: - case 106: - goto IL_07f6; - case 107: - goto IL_082e; - case 110: - case 111: - goto IL_084e; - case 112: - goto IL_087d; - case 113: - case 114: - goto IL_0897; - case 115: - goto IL_08c6; - case 116: - case 117: - goto IL_08e0; - case 118: - goto IL_090f; - case 119: - case 120: - goto IL_0929; - case 121: - goto IL_0961; - case 124: - case 125: - goto IL_0981; - case 126: - goto IL_09b0; - case 127: - case 128: - goto IL_09ca; - case 129: - goto IL_09fc; - case 130: - case 131: - goto IL_0a19; - case 132: - goto IL_0a4b; - case 133: - case 134: - goto IL_0a68; - case 135: - goto IL_0aa3; - case 91: - case 94: - case 108: - case 109: - case 122: - case 123: - case 136: - case 137: - case 138: - goto IL_0ac2; - case 139: - goto IL_0acc; - case 140: - goto IL_0ae8; - case 141: - goto IL_0b00; - case 142: - goto IL_0b0d; - case 143: - goto IL_0b40; - case 144: - goto IL_0b71; - case 145: - case 147: - goto IL_0b8b; - case 148: - goto IL_0ba2; - case 149: - goto IL_0c00; - case 150: - goto IL_0c1a; - case 151: - case 152: - goto IL_0c34; - case 153: - goto IL_0c6f; - case 72: - case 154: - goto IL_0c81; - case 155: - goto IL_0c8b; - case 156: - goto IL_0cb2; - case 158: - case 159: - goto IL_0cef; - case 160: - goto IL_0d06; - case 161: - goto IL_0d1e; - case 162: - goto IL_0d3c; - case 163: - goto IL_0d5a; - case 164: - goto IL_0d78; - case 165: - goto IL_0d90; - case 166: - case 167: - goto IL_0dad; - case 168: - goto IL_0dc5; - case 169: - case 170: - goto IL_0de2; - case 171: - goto IL_0dfa; - case 172: - case 173: - goto IL_0e17; - case 174: - goto IL_0e24; - case 175: - goto IL_0e42; - case 176: - goto IL_0e62; - case 177: - goto IL_0e6c; - case 179: - case 180: - goto IL_0e87; - case 181: - goto IL_0e9a; - case 182: - goto IL_0ec1; - case 183: - goto IL_0ef4; - case 185: - case 186: - goto IL_0f36; - case 187: - goto IL_0f4a; - case 188: - goto IL_0f69; - case 189: - goto IL_0f7d; - case 190: - goto IL_0f95; - case 191: - goto IL_0fa8; - case 192: - goto IL_0fb5; - case 193: - goto IL_0fc3; - case 194: - goto IL_0fd5; - case 196: - case 197: - goto IL_0ff0; - case 198: - goto IL_1007; - case 199: - goto IL_1069; - case 201: - case 202: - goto IL_1085; - case 203: - goto IL_1092; - case 204: - goto IL_10aa; - case 205: - goto IL_10bb; - case 206: - goto IL_10c8; - case 207: - goto IL_10ed; - case 209: - goto IL_1108; - case 210: - goto IL_1110; - case 208: - case 211: - case 212: - goto IL_1128; - case 213: - case 214: - goto IL_1140; - case 215: - goto IL_1158; - case 216: - goto IL_1169; - case 217: - goto IL_1176; - case 218: - goto IL_119b; - case 220: - goto IL_11b7; - case 221: - goto IL_11bf; - case 219: - case 222: - case 223: - case 224: - goto IL_11d9; - case 225: - goto IL_11f3; - case 226: - case 227: - goto IL_1210; - case 228: - goto IL_1227; - case 229: - goto IL_123e; - case 230: - goto IL_129b; - case 232: - case 233: - goto IL_12b7; - case 234: - goto IL_12e9; - case 235: - case 236: - goto IL_1306; - case 237: - goto IL_1313; - case 238: - goto IL_1320; - case 239: - goto IL_138c; - case 241: - case 242: - goto IL_13a8; - case 244: - case 246: - goto IL_13e2; - case 247: - goto IL_1414; - case 248: - case 249: - goto IL_1431; - case 250: - goto IL_146c; - case 253: - case 254: - goto IL_148f; - case 255: - goto IL_14c1; - case 256: - case 257: - goto IL_14de; - case 258: - goto IL_1519; - case 261: - case 262: - goto IL_153c; - case 263: - goto IL_156e; - case 264: - case 265: - goto IL_158b; - case 266: - goto IL_15c6; - case 269: - case 270: - goto IL_15e9; - case 271: - goto IL_161b; - case 272: - case 273: - goto IL_1638; - case 274: - goto IL_1673; - case 277: - case 278: - goto IL_1696; - case 279: - goto IL_16c8; - case 280: - case 281: - goto IL_16e5; - case 282: - goto IL_1720; - case 285: - case 286: - goto IL_1743; - case 287: - goto IL_1775; - case 288: - case 289: - goto IL_1792; - case 290: - goto IL_17cd; - case 240: - case 243: - case 251: - case 252: - case 259: - case 260: - case 267: - case 268: - case 275: - case 276: - case 283: - case 284: - case 291: - case 292: - case 293: - goto IL_17ec; - case 294: - goto IL_17f7; - case 295: - goto IL_1814; - case 296: - goto IL_181e; - case 297: - goto IL_188a; - case 298: - goto IL_18a7; - case 299: - goto IL_18d9; - case 300: - case 301: - goto IL_18f0; - case 302: - goto IL_192b; - case 303: - case 304: - case 305: - goto IL_1943; - case 200: - case 231: - case 306: - goto IL_197c; - case 307: - goto IL_1987; - case 308: - goto IL_19ae; - case 309: - goto IL_19e7; - case 310: - goto IL_19ff; - case 313: - case 314: - goto IL_1a3c; - case 315: - goto IL_1a54; - case 316: - goto IL_1a6c; - case 317: - goto IL_1a80; - case 318: - goto IL_1a94; - case 321: - case 322: - goto IL_1aae; - case 323: - goto IL_1acb; - case 324: - goto IL_1aed; - case 325: - goto IL_1b1c; - case 326: - goto IL_1b4b; - case 327: - goto IL_1b7a; - case 328: - goto IL_1b92; - case 330: - goto IL_1bb9; - case 331: - goto IL_1bc1; - case 329: - case 332: - case 333: - goto IL_1be7; - case 335: - case 336: - goto IL_1c00; - case 337: - goto IL_1c0e; - case 338: - goto IL_1c26; - case 339: - goto IL_1c44; - case 340: - goto IL_1c62; - case 341: - goto IL_1c80; - case 342: - goto IL_1c98; - case 343: - case 344: - goto IL_1cb5; - case 345: - goto IL_1ccd; - case 346: - case 347: - goto IL_1cea; - case 348: - goto IL_1d02; - case 349: - case 350: - goto IL_1d1f; - case 351: - goto IL_1d2c; - case 352: - goto IL_1d4a; - case 353: - goto IL_1d6a; - case 354: - goto IL_1d74; - case 356: - case 357: - goto IL_1d8f; - case 358: - goto IL_1da2; - case 359: - goto IL_1dc9; - case 360: - goto IL_1dfc; - case 362: - case 363: - goto IL_1e3d; - case 364: - goto IL_1e51; - case 365: - goto IL_1e65; - case 366: - goto IL_1e79; - case 367: - goto IL_1e9f; - case 368: - goto IL_1ec2; - case 369: - goto IL_1ed5; - case 370: - goto IL_1ee2; - case 371: - goto IL_1ef0; - case 372: - goto IL_1f02; - case 374: - case 375: - goto IL_1f1d; - case 376: - goto IL_1f34; - case 377: - goto IL_1f96; - case 379: - case 380: - goto IL_1fb2; - case 381: - goto IL_1fbf; - case 382: - goto IL_1fd7; - case 383: - goto IL_1fe8; - case 384: - goto IL_1ff5; - case 385: - goto IL_201a; - case 387: - goto IL_2035; - case 388: - goto IL_203d; - case 386: - case 389: - case 390: - goto IL_2055; - case 391: - case 392: - goto IL_206d; - case 393: - goto IL_2085; - case 394: - goto IL_2096; - case 395: - goto IL_20a3; - case 396: - goto IL_20c8; - case 398: - goto IL_20e4; - case 399: - goto IL_20ec; - case 397: - case 400: - case 401: - case 402: - goto IL_2106; - case 403: - goto IL_2120; - case 404: - case 405: - goto IL_213d; - case 406: - goto IL_2154; - case 407: - goto IL_216b; - case 408: - goto IL_21c8; - case 410: - case 411: - goto IL_21e4; - case 412: - goto IL_2216; - case 413: - case 414: - goto IL_2233; - case 415: - goto IL_2240; - case 416: - goto IL_224d; - case 417: - goto IL_22b9; - case 419: - case 420: - goto IL_22d8; - case 422: - case 423: - goto IL_22fa; - case 378: - case 409: - case 421: - case 424: - goto IL_2317; - case 425: - goto IL_2322; - case 426: - goto IL_238e; - case 428: - case 429: - goto IL_23aa; - case 430: - goto IL_23cf; - case 431: - goto IL_2407; - case 373: - case 418: - case 427: - case 432: - case 433: - goto IL_241f; - case 434: - goto IL_242a; - case 435: - goto IL_2451; - case 438: - case 439: - goto IL_2496; - case 440: - goto IL_24ae; - case 441: - goto IL_24cc; - case 442: - goto IL_24f0; - case 443: - goto IL_2514; - case 444: - goto IL_2522; - case 445: - goto IL_2541; - case 446: - goto IL_2564; - case 447: - goto IL_256e; - case 449: - case 450: - goto IL_2589; - case 451: - goto IL_25a0; - case 452: - goto IL_25b3; - case 453: - goto IL_25da; - case 455: - case 456: - goto IL_25f2; - case 457: - goto IL_2625; - case 459: - case 460: - goto IL_2666; - case 461: - goto IL_267a; - case 462: - goto IL_268e; - case 463: - goto IL_26a2; - case 464: - goto IL_26c1; - case 465: - goto IL_26e3; - case 466: - goto IL_26f6; - case 467: - goto IL_2703; - case 468: - goto IL_2715; - case 470: - case 471: - goto IL_2730; - case 472: - goto IL_2792; - case 474: - case 475: - goto IL_27ae; - case 476: - goto IL_27bb; - case 477: - goto IL_27f5; - case 478: - goto IL_2803; - case 479: - goto IL_2811; - case 480: - goto IL_282d; - case 481: - goto IL_2849; - case 482: - goto IL_286e; - case 483: - goto IL_287b; - case 484: - goto IL_2889; - case 486: - case 487: - goto IL_28b9; - case 489: - case 490: - goto IL_28e9; - case 492: - case 493: - goto IL_2919; - case 495: - case 496: - goto IL_2949; - case 497: - goto IL_2956; - case 498: - goto IL_296d; - case 499: - goto IL_29d0; - case 501: - case 502: - goto IL_29ec; - case 504: - case 506: - goto IL_2a16; - case 507: - goto IL_2a48; - case 508: - case 509: - goto IL_2a65; - case 511: - case 512: - goto IL_2a9c; - case 514: - case 515: - goto IL_2ad3; - case 516: - goto IL_2b0e; - case 519: - case 520: - goto IL_2b31; - case 521: - goto IL_2b63; - case 522: - case 523: - goto IL_2b80; - case 525: - case 526: - goto IL_2bb7; - case 528: - case 529: - goto IL_2bee; - case 530: - goto IL_2c29; - case 533: - case 534: - goto IL_2c4c; - case 535: - goto IL_2c7e; - case 536: - case 537: - goto IL_2c9b; - case 539: - case 540: - goto IL_2cd2; - case 542: - case 543: - goto IL_2d09; - case 544: - goto IL_2d44; - case 500: - case 503: - case 517: - case 518: - case 531: - case 532: - case 545: - case 546: - case 547: - goto IL_2d63; - case 548: - goto IL_2d6e; - case 550: - num = 550; - Modul1.PersInArbsp = Modul1.PersInArb; - goto case 551; - case 551: - num = 551; - Modul1.Kenn = 1f; - goto case 552; - case 552: - num = 552; - if ((DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.Sex)].AsString() == "F")) - { - goto case 553; - } - goto case 554; - case 553: - num = 553; - Modul1.Kenn = 2f; - goto case 554; - case 554: - case 555: - num = 555; - DataModul.DB_LinkTable.Index = nameof(DataModul.LinkIndex.ElSu); - goto case 556; - case 556: - num = 556; - DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), Modul1.Kenn); - goto case 557; - case 557: - num = 557; - if (!DataModul.DB_LinkTable.NoMatch) - { - goto case 559; - } - goto IL_3320; - case 559: - num = 559; - goto case 560; - case 560: - num = 560; - Modul1.FamInArb = DataModul.DB_LinkTable.Fields[nameof(DataModul.LinkFields.FamNr)].Value.AsInt(); - goto case 561; - case 561: - num = 561; - MainProject.Forms.Familie.Famles(Modul1.FamInArb); - goto case 562; - case 562: - num = 562; - if (Modul1.Kenn == 1f) - { - goto case 563; - } - goto case 565; - case 563: - num = 563; - Modul1.PersInArb = Modul1.Family.Frau; - goto case 564; - case 565: - num = 565; - if (Modul1.Kenn == 2f) - { - goto case 566; - } - goto case 564; - case 566: - num = 566; - Modul1.PersInArb = Modul1.Family.Mann; - goto case 564; - case 564: // <========== 3 - case 567: - case 568: - num = 568; - DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.ArtNr); - goto case 569; - case 569: - num = 569; - Modul1.I = 101; - goto case 570; - case 570: - num = 570; - Modul1.Ubg = Modul1.I; - goto case 571; - case 571: - num = 571; - DataModul.DB_EventTable.Seek("=", Modul1.Ubg.AsString(), Modul1.PersInArb.AsString(), "0"); - goto case 572; - case 572: - num = 572; - if (!DataModul.DB_EventTable.NoMatch) - { - goto case 574; - } - goto case 573; - case 574: - case 575: - num = 575; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto case 576; - } - goto case 573; - case 576: - num = 576; - if (Conversions.ToDouble(Strings.Trim(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsString())) > 0.0) - { - goto case 577; - } - goto case 573; - case 577: - num = 577; - transdat = DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].Value.AsInt(); - goto case 578; - case 578: - num = 578; - neuedat(); - goto IL_3395; - case 573: // <========== 3 - case 580: - case 581: - case 582: - num = 582; - lErl = 6; - goto case 583; - case 583: - { - num = 583; - Modul1.I++; - int i = Modul1.I; - num5 = 102; - if (i <= num5) - { - goto case 570; - } - goto case 584; - } - case 584: - num = 584; - num6 = 30000000; - goto case 585; - case 585: - num = 585; - this.A = 1; - goto case 586; - case 586: - num = 586; - if (Modul1.Family.Kind[this.A] > 0) - { - goto case 587; - } - goto case 598; - case 587: - num = 587; - Modul1.I = 101; - goto case 588; - case 588: - num = 588; - DataModul.DB_EventTable.Seek("=", Modul1.I.AsString(), Modul1.Family.Kind[this.A].AsString(), "0"); - goto case 589; - case 589: - num = 589; - if (!DataModul.DB_EventTable.NoMatch) - { - goto case 590; - } - goto case 593; - case 590: - num = 590; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].Value) > 0.0) - { - goto case 591; - } - goto case 593; - case 591: - num = 591; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].Value) < num6) - { - goto case 592; - } - goto case 593; - case 592: - num = 592; - num6 = (int)Math.Round(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].Value)); - goto case 593; - case 593: // <========== 4 - case 594: - case 595: - case 596: - { - num = 596; - Modul1.I++; - int i2 = Modul1.I; - num5 = 102; - if (i2 <= num5) - { - goto case 588; - } - goto case 597; - } - case 598: - num = 598; - goto case 599; - case 597: - case 600: - case 601: - { - num = 601; - this.A++; - int a = this.A; - num5 = 99; - if (a <= num5) - { - goto case 586; - } - goto case 599; - } - case 599: - case 602: - num = 602; - if (num6 < 30000000) - { - goto case 603; - } - goto IL_32fc; - case 603: - num = 603; - transdat = Conversions.ToInteger(Conversion.Str(Conversions.ToDouble((num6).AsString().Left( 4)) - 25.0) + "0000"); - goto case 604; - case 604: - num = 604; - neuedat(); - goto IL_32fc; - case 549: - case 605: - case 606: - goto IL_32fc; - case 607: - goto IL_3307; - case 558: - case 608: - case 609: - goto IL_3320; - case 610: - goto IL_3348; - case 611: - case 612: - goto IL_3383; - case 473: - case 485: - case 488: - case 491: - case 494: - case 510: - case 513: - case 524: - case 527: - case 538: - case 541: - case 579: - case 613: - goto IL_3395; - case 614: - goto IL_33a0; - case 615: - goto IL_33c7; - case 617: - case 618: - goto IL_3406; - case 619: - goto IL_341e; - case 620: - goto IL_343f; - case 621: - goto IL_345d; - case 622: - goto IL_3467; - case 624: - case 625: - goto IL_3482; - case 626: - goto IL_3499; - case 627: - goto IL_34ac; - case 628: - goto IL_34d3; - case 630: - case 631: - goto IL_34eb; - case 632: - goto IL_351e; - case 634: - case 635: - goto IL_355f; - case 636: - goto IL_357d; - case 637: - goto IL_358a; - case 638: - goto IL_359e; - case 639: - goto IL_35b2; - case 640: - goto IL_35c6; - case 641: - goto IL_35e5; - case 642: - goto IL_3607; - case 643: - goto IL_361a; - case 644: - goto IL_3627; - case 645: - goto IL_3639; - case 646: - goto IL_364b; - case 648: - case 649: - goto IL_3666; - case 650: - goto IL_36c8; - case 652: - case 653: - goto IL_36e4; - case 654: - goto IL_36f2; - case 655: - goto IL_3700; - case 656: - goto IL_370e; - case 657: - goto IL_371f; - case 658: - goto IL_3736; - case 659: - goto IL_379d; - case 660: - goto IL_37b4; - case 661: - case 662: - goto IL_37c2; - case 663: - goto IL_37d3; - case 664: - goto IL_37e0; - case 665: - goto IL_3811; - case 666: - case 667: - goto IL_3822; - case 668: - goto IL_3839; - case 669: - goto IL_38a0; - case 670: - goto IL_38b7; - case 671: - case 672: - goto IL_38c5; - case 673: - goto IL_38e8; - case 674: - goto IL_38f5; - case 675: - goto IL_3935; - case 676: - goto IL_394b; - case 677: - case 678: - goto IL_3962; - case 679: - goto IL_3978; - case 680: - case 681: - goto IL_398f; - case 682: - goto IL_39f2; - case 683: - goto IL_3a0c; - case 684: - case 685: - goto IL_3a23; - case 686: - goto IL_3a86; - case 687: - goto IL_3aa0; - case 688: - case 689: - goto IL_3ab7; - case 690: - goto IL_3b1a; - case 691: - goto IL_3b34; - case 692: - case 693: - goto IL_3b4b; - case 694: - goto IL_3bae; - case 695: - goto IL_3bc8; - case 696: - case 697: - goto IL_3bdf; - case 698: - goto IL_3c42; - case 699: - goto IL_3c5c; - case 700: - case 701: - goto IL_3c73; - case 702: - goto IL_3cd7; - case 703: - goto IL_3cf1; - case 704: - case 705: - goto IL_3d08; - case 706: - goto IL_3d1f; - case 707: - goto IL_3d7c; - case 708: - goto IL_3d96; - case 709: - case 710: - goto IL_3dad; - case 651: - case 711: - case 712: - goto IL_3de8; - case 713: - goto IL_3e0f; - case 715: - case 716: - goto IL_3e4e; - case 717: - goto IL_3e62; - case 718: - goto IL_3e7a; - case 719: - goto IL_3e84; - case 721: - case 722: - goto IL_3e9f; - case 723: - goto IL_3ebd; - case 724: - goto IL_3edb; - case 725: - goto IL_3ef9; - case 726: - goto IL_3f16; - case 727: - goto IL_3f33; - case 728: - goto IL_3f45; - case 729: - goto IL_3f5c; - case 730: - goto IL_3fb6; - case 731: - goto IL_3fc4; - case 734: - goto IL_3fe6; - case 735: - goto IL_3ffb; - case 736: - goto IL_4044; - case 737: - goto IL_4076; - case 738: - case 739: - goto IL_4091; - case 740: - goto IL_40c3; - case 741: - case 742: - goto IL_40de; - case 743: - goto IL_4110; - case 744: - case 745: - goto IL_412b; - case 746: - goto IL_415d; - case 747: - case 748: - goto IL_4178; - case 749: - goto IL_41aa; - case 750: - case 751: - goto IL_41c5; - case 752: - goto IL_4203; - case 753: - case 754: - goto IL_421e; - case 755: - goto IL_4259; - case 756: - case 757: - goto IL_4274; - case 758: - goto IL_42af; - case 759: - case 760: - goto IL_42ca; - case 761: - goto IL_4308; - case 762: - case 763: - goto IL_4323; - case 764: - goto IL_4361; - case 765: - case 766: - goto IL_437c; - case 767: - goto IL_43ba; - case 768: - case 769: - goto IL_43d5; - case 770: - goto IL_43f2; - case 771: - goto IL_4407; - case 732: - case 733: - case 772: - goto IL_441a; - case 774: - goto IL_4439; - case 775: - goto IL_4441; - case 773: - case 776: - case 777: - goto IL_4454; - case 778: - goto IL_446b; - case 32: - case 68: - case 157: - case 195: - case 311: - case 312: - case 320: - case 334: - case 437: - case 469: - case 616: - case 647: - case 714: - case 779: - case 780: - case 781: - goto IL_448a; - case 782: - goto IL_4494; - case 783: - goto IL_44ac; - case 784: - goto IL_44c9; - case 785: - goto IL_44d6; - case 786: - goto IL_44f3; - case 789: - goto IL_451d; - case 790: - goto IL_4537; - case 791: - goto IL_4545; - case 792: - case 793: - case 794: - goto IL_4563; - case 795: - case 797: - goto IL_4593; - default: - goto end_IL_0001; - case 46: - case 52: - case 56: - case 178: - case 184: - case 319: - case 355: - case 361: - case 436: - case 448: - case 454: - case 458: - case 623: - case 629: - case 633: - case 720: - case 787: - case 788: - case 798: - goto end_IL_0001_2; - } - goto default; - IL_4537: - num = 790; - num7 = 200000000; - goto IL_4545; - IL_4545: - num = 791; - ProjectData.ClearProjectError(); - if (num2 == 0) - { - throw ProjectData.CreateProjectError(-2146828268); - } - goto IL_45b9; - IL_0c34: // <========== 3 - num = 152; - List1.Items.Add(new ListItem(Modul1.LiText + " " + Modul1.PersInArb.AsString())); - goto IL_0c6f; - IL_45b9: - num4 = unchecked(num2 + 1); - goto IL_45bd; - IL_0016: - num = 2; - RadioButton1.Visible = true; - goto IL_0026; - IL_0026: - num = 3; - RadioButton2.Visible = true; - goto IL_0036; - IL_0036: - ProjectData.ClearProjectError(); - num3 = 2; - goto IL_003e; - IL_003e: - num = 5; - switch (index) - { - case 0: - case 1: - case 4: - case 5: - case 6: - break; - case 7: - goto IL_0094; - default: - goto IL_00a6; - } - { - goto IL_006f; - } - IL_0094: - num = 13; - List1.Visible = false; - goto IL_00a6; - IL_006f: - num = 9; - List2.Visible = false; - goto IL_0080; - IL_0080: - num = 10; - List1.Visible = true; - goto IL_00a6; - IL_00a6: // <========== 4 - num = 15; - Label4.Text = ""; - goto IL_00bb; - IL_00bb: - num = 16; - if (Modul1.Aus[12] == "") - { - goto IL_00db; - } - else - { - goto IL_00ed; - } - IL_00db: - num = 17; - Modul1.Aus[12] = "200"; - goto IL_00ed; - IL_00ed: // <========== 3 - num = 19; - if (Modul1.Aus[13] == "") - { - goto IL_010d; - } - else - { - goto IL_011f; - } - IL_010d: - num = 20; - Modul1.Aus[13] = "200"; - goto IL_011f; - IL_011f: // <========== 3 - num = 22; - List1.Visible = true; - goto IL_0130; - IL_0130: - num = 23; - List2.Visible = false; - goto IL_0141; - IL_0141: - num = 24; - Label2.Text = ""; - goto IL_0156; - IL_0156: - num = 25; - if (RadioButton1.Checked) - { - goto IL_016b; - } - else - { - goto IL_017c; - } - IL_016b: - num = 26; - List1.Sorted = true; - goto IL_017c; - IL_017c: // <========== 3 - num = 28; - if (RadioButton2.Checked) - { - goto IL_0191; - } - else - { - goto IL_01a2; - } - IL_0191: - num = 29; - List1.Sorted = false; - goto IL_01a2; - IL_01a2: // <========== 3 - num = 31; - switch (index) - { - case 0: - break; - case 1: - goto IL_0cef; - case 2: - goto IL_1a3c; - case 3: - goto IL_1aae; - case 4: - goto IL_1c00; - case 5: - goto IL_2496; - case 6: - goto IL_3406; - case 7: - goto IL_3e4e; - default: - goto IL_448a; - } - { - goto IL_01d7; - } - IL_3e4e: - num = 716; - List2.Visible = true; - goto IL_3e62; - IL_3e62: - num = 717; - List2.Items.Clear(); - goto IL_3e7a; - IL_3e7a: - num = 718; - num7 = 1; - goto IL_3e84; - IL_3e84: - num = 719; - if (num7 <= 0) - { - goto end_IL_0001_2; - } - goto IL_3e9f; - IL_3e9f: - num = 722; - Label1[2].Text = "Fehlliste Orte"; - goto IL_3ebd; - IL_3ebd: - num = 723; - Label1[1].Text = " Nr Ort Orsteil Kreis Land Staat Loc Länge Breite PLZ Terr StKz"; - goto IL_3edb; - IL_3edb: - num = 724; - Label1[0].Text = " "; - goto IL_3ef9; - IL_3ef9: - num = 725; - List2.Items.Add("Fehlliste Orte"); - goto IL_3f16; - IL_3f16: - num = 726; - List2.Items.Add(" Nr Ort Ortsteil Kreis Land Staat Loc. Laenge Breite PLZ Terr. StKz"); - goto IL_3f33; - IL_3f33: - num = 727; - DataModul.DB_PlaceTable.MoveFirst(); - goto IL_3f45; - IL_3f45: - num = 728; - DataModul.DB_PlaceTable.Index = nameof(DataModul.PlaceIndex.OrtNr); - goto IL_3f5c; - IL_3f5c: - num = 729; - DataModul.DB_PlaceTable.Seek(">=", num7); - goto IL_3fb6; - IL_3fb6: - num = 730; - this.A = 1; - goto IL_3fc4; - IL_3fc4: - num = 731; - if (!DataModul.DB_PlaceTable.NoMatch) - { - goto IL_441a; - } - else - { - goto IL_4439; - } - IL_441a: // <========== 3 - num = 733; - if (!DataModul.DB_PlaceTable.EOF) - { - goto IL_3fe6; - } - else - { - goto IL_4454; - } - IL_3fe6: - num = 734; - Modul1.LiText = new string(' ', 80); - goto IL_3ffb; - IL_3ffb: - num = 735; - StringType.MidStmtStr(ref Modul1.LiText, 1, 10, Strings.Right(" " + DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.OrtNr)].Value.AsString(), 10)); - goto IL_4044; - IL_4044: - num = 736; - if ((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Ort)].AsInt() == 0)) - { - goto IL_4076; - } - else - { - goto IL_4091; - } - IL_4076: - num = 737; - StringType.MidStmtStr(ref Modul1.LiText, 12, 2, "F "); - goto IL_4091; - IL_4091: // <========== 3 - num = 739; - if ((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Ortsteil)].AsInt() == 0)) - { - goto IL_40c3; - } - else - { - goto IL_40de; - } - IL_40c3: - num = 740; - StringType.MidStmtStr(ref Modul1.LiText, 20, 2, "F "); - goto IL_40de; - IL_40de: // <========== 3 - num = 742; - if ((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Kreis)].AsInt() == 0)) - { - goto IL_4110; - } - else - { - goto IL_412b; - } - IL_4110: - num = 743; - StringType.MidStmtStr(ref Modul1.LiText, 28, 2, "F "); - goto IL_412b; - IL_412b: // <========== 3 - num = 745; - if ((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Land)].AsInt() == 0)) - { - goto IL_415d; - } - else - { - goto IL_4178; - } - IL_415d: - num = 746; - StringType.MidStmtStr(ref Modul1.LiText, 34, 2, "F "); - goto IL_4178; - IL_4178: // <========== 3 - num = 748; - if ((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Staat)].AsInt() == 0)) - { - goto IL_41aa; - } - else - { - goto IL_41c5; - } - IL_41aa: - num = 749; - StringType.MidStmtStr(ref Modul1.LiText, 39, 2, "F "); - goto IL_41c5; - IL_41c5: // <========== 3 - num = 751; - if (Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Loc)].AsString()) == "") - { - goto IL_4203; - } - else - { - goto IL_421e; - } - IL_4203: - num = 752; - StringType.MidStmtStr(ref Modul1.LiText, 44, 2, "F "); - goto IL_421e; - IL_421e: // <========== 3 - num = 754; - if (Strings.Len(Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.L)].AsString())) <= 1) - { - goto IL_4259; - } - else - { - goto IL_4274; - } - IL_4259: - num = 755; - StringType.MidStmtStr(ref Modul1.LiText, 52, 2, "F "); - goto IL_4274; - IL_4274: // <========== 3 - num = 757; - if (Strings.Len(Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.B)].AsString())) <= 1) - { - goto IL_42af; - } - else - { - goto IL_42ca; - } - IL_42af: - num = 758; - StringType.MidStmtStr(ref Modul1.LiText, 58, 2, "F "); - goto IL_42ca; - IL_42ca: // <========== 3 - num = 760; - if (Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.PLZ)].AsString()) == "") - { - goto IL_4308; - } - else - { - goto IL_4323; - } - IL_4308: - num = 761; - StringType.MidStmtStr(ref Modul1.LiText, 63, 2, "F "); - goto IL_4323; - IL_4323: // <========== 3 - num = 763; - if (Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Terr)].AsString()) == "") - { - goto IL_4361; - } - else - { - goto IL_437c; - } - IL_4361: - num = 764; - StringType.MidStmtStr(ref Modul1.LiText, 68, 2, "F "); - goto IL_437c; - IL_437c: // <========== 3 - num = 766; - if (Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Staatk)].AsString()) == "") - { - goto IL_43ba; - } - else - { - goto IL_43d5; - } - IL_43ba: - num = 767; - StringType.MidStmtStr(ref Modul1.LiText, 71, 2, "F "); - goto IL_43d5; - IL_43d5: // <========== 3 - num = 769; - List2.Items.Add(Modul1.LiText); - goto IL_43f2; - IL_43f2: - num = 770; - Modul1.LiText = new string(' ', 80); - goto IL_4407; - IL_4407: - num = 771; - DataModul.DB_PlaceTable.MoveNext(); - goto IL_441a; - IL_4439: - num = 774; - goto IL_4441; - IL_4441: - num = 775; - DataModul.DB_PlaceTable.MoveNext(); - goto IL_4454; - IL_4454: // <========== 3 - num = 777; - if (DataModul.DB_PlaceTable.EOF) - { - goto IL_446b; - } - else - { - goto IL_448a; - } - IL_446b: - num = 778; - List2.Items.Add("Ende der Liste"); - goto IL_448a; - IL_3406: - num = 618; - List1.Items.Clear(); - goto IL_341e; - IL_341e: - num = 619; - Label1[2].Text = Modul1.IText[84]; - goto IL_343f; - IL_343f: - num = 620; - Label1[0].Text = "Name Elternteil Kind Pate Zeuge Adoptivkind verbunden"; - goto IL_345d; - IL_345d: - num = 621; - num7 = 1; - goto IL_3467; - IL_3467: - num = 622; - if (num7 <= 0) - { - goto end_IL_0001_2; - } - goto IL_3482; - IL_3482: - num = 625; - DataModul.DB_PersonTable.Index = nameof(DataModul.PersonIndex.PerNr); - goto IL_3499; - IL_3499: - num = 626; - DataModul.DB_PersonTable.MoveLast(); - goto IL_34ac; - IL_34ac: - num = 627; - num8 = DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value.AsInt(); - goto IL_34d3; - IL_34d3: - num = 628; - if (num7 == 0) - { - goto end_IL_0001_2; - } - goto IL_34eb; - IL_34eb: - num = 631; - if ((num7 > DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value)) - { - goto IL_351e; - } - else - { - goto IL_355f; - } - IL_351e: - num = 632; - Interaction.MsgBox(Modul1.IText[173] + " " + num7.AsString() + Modul1.IText[172]); - goto end_IL_0001_2; - IL_355f: - num = 635; - Label1[1].Text = "unvollständig verknüpfte Personen "; - goto IL_357d; - IL_357d: - num = 636; - Modul1.Schalt = 3; - goto IL_358a; - IL_358a: - num = 637; - ProgressBar1.Minimum = 0; - goto IL_359e; - IL_359e: - num = 638; - ProgressBar1.Maximum = 0; - goto IL_35b2; - IL_35b2: - num = 639; - ProgressBar1.Step = 1; - goto IL_35c6; - IL_35c6: - num = 640; - ProgressBar1.Maximum = DataModul.DB_PersonTable.RecordCount - 1; - goto IL_35e5; - IL_35e5: - num = 641; - i3 = num7; - num9 = DataModul.DB_PersonTable.RecordCount - 1; - I1 = i3; - goto IL_3dfe; - IL_3dfe: - i4 = I1; - num5 = num9; - if (i4 <= num5) - { - goto IL_3607; - } - else - { - goto IL_3e0f; - } - IL_3e0f: - num = 713; - Label4.Text = List1.Items.Count - 1.AsString() + " Einträge"; - goto IL_448a; - IL_3607: - num = 642; - ProgressBar1.PerformStep(); - goto IL_361a; - IL_361a: - num = 643; - Application.DoEvents(); - goto IL_3627; - IL_3627: - num = 644; - Modul1.PersInArb = I1; - goto IL_3639; - IL_3639: - num = 645; - sDest = new string(' ', 80); - goto IL_364b; - IL_364b: - num = 646; - if (Modul1.PersInArb <= num8) - { - goto IL_3666; - } - else - { - goto IL_448a; - } - IL_3666: - num = 649; - DataModul.DB_PersonTable.Seek("=", Modul1.PersInArb.AsString()); - goto IL_36c8; - IL_36c8: - num = 650; - if (!DataModul.DB_PersonTable.NoMatch) - { - goto IL_36e4; - } - else - { - goto IL_3de8; - } - IL_36e4: - num = 653; - LiKi = 1; - goto IL_36f2; - IL_36f2: - num = 654; - LiEl = 1; - goto IL_3700; - IL_3700: - num = 655; - //LiPa = 1; - goto IL_370e; - IL_370e: - num = 656; - Modul1.Kenn = 3f; - goto IL_371f; - IL_371f: - num = 657; - DataModul.DB_LinkTable.Index = nameof(DataModul.LinkIndex.ElSu); - goto IL_3736; - IL_3736: - num = 658; - DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), Modul1.Kenn); - goto IL_379d; - IL_379d: - num = 659; - if (DataModul.DB_LinkTable.NoMatch) - { - goto IL_37b4; - } - else - { - goto IL_37c2; - } - IL_37b4: - num = 660; - LiKi = 0; - goto IL_37c2; - IL_37c2: // <========== 3 - num = 662; - Modul1.Kenn = 1f; - goto IL_37d3; - IL_37d3: - num = 663; - Modul1.PerSatzLes(); - goto IL_37e0; - IL_37e0: - num = 664; - if ((DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.Sex)].AsString() == "F")) - { - goto IL_3811; - } - else - { - goto IL_3822; - } - IL_3811: - num = 665; - Modul1.Kenn = 2f; - goto IL_3822; - IL_3822: // <========== 3 - num = 667; - DataModul.DB_LinkTable.Index = nameof(DataModul.LinkIndex.ElSu); - goto IL_3839; - IL_3839: - num = 668; - DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), Modul1.Kenn); - goto IL_38a0; - IL_38a0: - num = 669; - if (DataModul.DB_LinkTable.NoMatch) - { - goto IL_38b7; - } - else - { - goto IL_38c5; - } - IL_38b7: - num = 670; - LiEl = 0; - goto IL_38c5; - IL_38c5: // <========== 3 - num = 672; - if ((LiKi == 0) & (LiEl == 0)) - { - goto IL_38e8; - } - else - { - goto IL_3de8; - } - IL_38e8: - num = 673; - Modul1.Personlesen(Modul1.PersInArb); - goto IL_38f5; - IL_38f5: - num = 674; - StringType.MidStmtStr(ref sDest, 1, 20, Strings.Left((Modul1.Kont[0]).Trim() + "," + (Modul1.Kont[3]).Trim() + " ", 20)); - goto IL_3935; - IL_3935: - num = 675; - if (LiEl == 0) - { - goto IL_394b; - } - else - { - goto IL_3962; - } - IL_394b: - num = 676; - StringType.MidStmtStr(ref sDest, 24, 1, "N"); - goto IL_3962; - IL_3962: // <========== 3 - num = 678; - if (LiKi == 0) - { - goto IL_3978; - } - else - { - goto IL_398f; - } - IL_3978: - num = 679; - StringType.MidStmtStr(ref sDest, 30, 1, "N"); - goto IL_398f; - IL_398f: // <========== 3 - num = 681; - DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 4); - goto IL_39f2; - IL_39f2: - num = 682; - if (!DataModul.DB_LinkTable.NoMatch) - { - goto IL_3a0c; - } - else - { - goto IL_3a23; - } - IL_3a0c: - num = 683; - StringType.MidStmtStr(ref sDest, 36, 1, "J"); - goto IL_3a23; - IL_3a23: // <========== 3 - num = 685; - DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 5); - goto IL_3a86; - IL_3a86: - num = 686; - if (!DataModul.DB_LinkTable.NoMatch) - { - goto IL_3aa0; - } - else - { - goto IL_3ab7; - } - IL_3aa0: - num = 687; - StringType.MidStmtStr(ref sDest, 46, 1, "J"); - goto IL_3ab7; - IL_3ab7: // <========== 3 - num = 689; - DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 6); - goto IL_3b1a; - IL_3b1a: - num = 690; - if (!DataModul.DB_LinkTable.NoMatch) - { - goto IL_3b34; - } - else - { - goto IL_3b4b; - } - IL_3b34: - num = 691; - StringType.MidStmtStr(ref sDest, 46, 1, "J"); - goto IL_3b4b; - IL_3b4b: // <========== 3 - num = 693; - DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 7); - goto IL_3bae; - IL_3bae: - num = 694; - if (!DataModul.DB_LinkTable.NoMatch) - { - goto IL_3bc8; - } - else - { - goto IL_3bdf; - } - IL_3bc8: - num = 695; - StringType.MidStmtStr(ref sDest, 46, 1, "J"); - goto IL_3bdf; - IL_3bdf: // <========== 3 - num = 697; - DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 8); - goto IL_3c42; - IL_3c42: - num = 698; - if (!DataModul.DB_LinkTable.NoMatch) - { - goto IL_3c5c; - } - else - { - goto IL_3c73; - } - IL_3c5c: - num = 699; - StringType.MidStmtStr(ref sDest, 55, 1, "J"); - goto IL_3c73; - IL_3c73: // <========== 3 - num = 701; - DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 9); - goto IL_3cd7; - IL_3cd7: - num = 702; - if (!DataModul.DB_LinkTable.NoMatch) - { - goto IL_3cf1; - } - else - { - goto IL_3d08; - } - IL_3cf1: - num = 703; - StringType.MidStmtStr(ref sDest, 70, 1, "J"); - goto IL_3d08; - IL_3d08: // <========== 3 - num = 705; - DataModul.DB_WitnessTable.Index = nameof(DataModul.WitnessIndex.ElSu); - goto IL_3d1f; - IL_3d1f: - num = 706; - DataModul.DB_WitnessTable.Seek("=", Modul1.PersInArb, "10"); - goto IL_3d7c; - IL_3d7c: - num = 707; - if (!DataModul.DB_WitnessTable.NoMatch) - { - goto IL_3d96; - } - else - { - goto IL_3dad; - } - IL_3d96: - num = 708; - StringType.MidStmtStr(ref sDest, 46, 1, "J"); - goto IL_3dad; - IL_3dad: // <========== 3 - num = 710; - List1.Items.Add(new ListItem(sDest + " " + Modul1.PersInArb.AsString())); - goto IL_3de8; - IL_3de8: // <========== 4 - num = 712; - I1++; - goto IL_3dfe; - IL_2496: - num = 439; - List1.Items.Clear(); - goto IL_24ae; - IL_24ae: - num = 440; - Label1[2].Text = "Personen ohne Datum"; - goto IL_24cc; - IL_24cc: - num = 441; - Label1[1].Text = Modul1.IText[166]; - goto IL_24f0; - IL_24f0: - num = 442; - Label1[0].Text = Modul1.IText[167]; - goto IL_2514; - IL_2514: - num = 443; - I1 = 0; - goto IL_2522; - IL_2522: // <========== 3 - num = 444; - Label1[(short)I1].Refresh(); - goto IL_2541; - IL_2541: - num = 445; - I1++; - i5 = I1; - num5 = 2; - if (i5 <= num5) - { - goto IL_2522; - } - else - { - goto IL_2564; - } - IL_2564: - num = 446; - num7 = 1; - goto IL_256e; - IL_256e: - num = 447; - if (num7 <= 0) - { - goto end_IL_0001_2; - } - goto IL_2589; - IL_2589: - num = 450; - DataModul.DB_PersonTable.Index = nameof(DataModul.PersonIndex.PerNr); - goto IL_25a0; - IL_25a0: - num = 451; - DataModul.DB_PersonTable.MoveLast(); - goto IL_25b3; - IL_25b3: - num = 452; - num8 = DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value.AsInt(); - goto IL_25da; - IL_25da: - num = 453; - if (num7 == 0) - { - goto end_IL_0001_2; - } - goto IL_25f2; - IL_25f2: - num = 456; - if ((num7 > DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value)) - { - goto IL_2625; - } - else - { - goto IL_2666; - } - IL_2625: - num = 457; - Interaction.MsgBox(Modul1.IText[173] + " " + num7.AsString() + Modul1.IText[172]); - goto end_IL_0001_2; - IL_2666: - num = 460; - ProgressBar1.Minimum = 0; - goto IL_267a; - IL_267a: - num = 461; - ProgressBar1.Maximum = 0; - goto IL_268e; - IL_268e: - num = 462; - ProgressBar1.Step = 1; - goto IL_26a2; - IL_26a2: - num = 463; - ProgressBar1.Maximum = DataModul.DB_PersonTable.RecordCount - 1; - goto IL_26c1; - IL_26c1: - num = 464; - i6 = num7; - num10 = DataModul.DB_PersonTable.RecordCount - 1; - I1 = i6; - goto IL_33b6; - IL_33b6: - i7 = I1; - num5 = num10; - if (i7 <= num5) - { - goto IL_26e3; - } - else - { - goto IL_33c7; - } - IL_33c7: - num = 615; - Label4.Text = List1.Items.Count - 1.AsString() + " Einträge"; - goto IL_448a; - IL_26e3: - num = 465; - ProgressBar1.PerformStep(); - goto IL_26f6; - IL_26f6: - num = 466; - Application.DoEvents(); - goto IL_2703; - IL_2703: - num = 467; - Modul1.PersInArb = I1; - goto IL_2715; - IL_2715: - num = 468; - if (Modul1.PersInArb <= num8) - { - goto IL_2730; - } - else - { - goto IL_448a; - } - IL_2730: - num = 471; - DataModul.DB_PersonTable.Seek("=", Modul1.PersInArb.AsString()); - goto IL_2792; - IL_2792: - num = 472; - if (!DataModul.DB_PersonTable.NoMatch) - { - goto IL_27ae; - } - else - { - goto IL_3395; - } - IL_27ae: - num = 475; - Modul1.Personlesen(Modul1.PersInArb); - goto IL_27bb; - IL_27bb: - num = 476; - Modul1.LiText = Strings.Left((Modul1.Kont[0]).Trim() + "," + (Modul1.Kont[3]).Trim() + " ", 20); - goto IL_27f5; - IL_27f5: - num = 477; - Modul1.Schalt = 20; - goto IL_2803; - IL_2803: - num = 478; - T = 1; - goto IL_2811; - IL_2811: // <========== 3 - num = 479; - Modul1.Kont[T + 10] = ""; - goto IL_282d; - IL_282d: - num = 480; - Modul1.Kont[T + 20] = ""; - goto IL_2849; - IL_2849: - num = 481; - T = (short)unchecked(T + 1); - t = T; - num11 = 10; - if (t <= num11) - { - goto IL_2811; - } - else - { - goto IL_286e; - } - IL_286e: - num = 482; - Modul1.Datles(); - goto IL_287b; - IL_287b: - num = 483; - sDest2 = " "; - goto IL_2889; - IL_2889: - num = 484; - if ((Modul1.Kont[11]).Trim() == "") - { - goto IL_28b9; - } - else - { - goto IL_3395; - } - IL_28b9: - num = 487; - if ((Modul1.Kont[12]).Trim() == "") - { - goto IL_28e9; - } - else - { - goto IL_3395; - } - IL_28e9: - num = 490; - if ((Modul1.Kont[13]).Trim() == "") - { - goto IL_2919; - } - else - { - goto IL_3395; - } - IL_2919: - num = 493; - if ((Modul1.Kont[14]).Trim() == "") - { - goto IL_2949; - } - else - { - goto IL_3395; - } - IL_2949: - num = 496; - num12 = 300; - goto IL_2956; - IL_2956: // <========== 3 - num = 497; - DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.BeSu); - goto IL_296d; - IL_296d: - num = 498; - DataModul.DB_EventTable.Seek("=", num12, Modul1.PersInArb.AsString()); - goto IL_29d0; - IL_29d0: - num = 499; - if (!DataModul.DB_EventTable.NoMatch) - { - goto IL_29ec; - } - else - { - goto IL_2d63; - } - IL_29ec: - num = 502; - switch (num12) - { - case 300: - break; - case 301: - goto IL_2b31; - case 302: - goto IL_2c4c; - default: - goto IL_2d63; - } - { - goto IL_2a16; - } - IL_2c4c: - num = 534; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) - { - goto IL_2c7e; - } - else - { - goto IL_2c9b; - } - IL_2c7e: - num = 535; - StringType.MidStmtStr(ref sDest2, 50, 1, Modul1.IText[175]); - goto IL_2c9b; - IL_2c9b: // <========== 3 - num = 537; - if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_2cd2; - } - else - { - goto IL_3395; - } - IL_2cd2: - num = 540; - if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) - { - goto IL_2d09; - } - else - { - goto IL_3395; - } - IL_2d09: - num = 543; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_2d44; - } - else - { - goto IL_2d63; - } - IL_2d44: - num = 544; - StringType.MidStmtStr(ref sDest2, 53, 1, Modul1.IText[175]); - goto IL_2d63; - IL_2b31: - num = 520; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) - { - goto IL_2b63; - } - else - { - goto IL_2b80; - } - IL_2b63: - num = 521; - StringType.MidStmtStr(ref sDest2, 42, 1, Modul1.IText[175]); - goto IL_2b80; - IL_2b80: // <========== 3 - num = 523; - if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_2bb7; - } - else - { - goto IL_3395; - } - IL_2bb7: - num = 526; - if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) - { - goto IL_2bee; - } - else - { - goto IL_3395; - } - IL_2bee: - num = 529; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_2c29; - } - else - { - goto IL_2d63; - } - IL_2c29: - num = 530; - StringType.MidStmtStr(ref sDest2, 46, 1, Modul1.IText[175]); - goto IL_2d63; - IL_2a16: - num = 506; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) - { - goto IL_2a48; - } - else - { - goto IL_2a65; - } - IL_2a48: - num = 507; - StringType.MidStmtStr(ref sDest2, 34, 1, Modul1.IText[175]); - goto IL_2a65; - IL_2a65: // <========== 3 - num = 509; - if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_2a9c; - } - else - { - goto IL_3395; - } - IL_2a9c: - num = 512; - if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) - { - goto IL_2ad3; - } - else - { - goto IL_3395; - } - IL_2ad3: - num = 515; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_2b0e; - } - else - { - goto IL_2d63; - } - IL_2b0e: - num = 516; - StringType.MidStmtStr(ref sDest2, 38, 1, Modul1.IText[175]); - goto IL_2d63; - IL_2d63: // <========== 9 - num = 547; - lErl = 92; - goto IL_2d6e; - IL_2d6e: - num = 548; - num12 = (short)unchecked(num12 + 1); - num13 = num12; - num11 = 302; - if (num13 <= num11) - { - goto IL_2956; - } - else - { - goto IL_32fc; - } - IL_32fc: // <========== 4 - num = 606; - lErl = 45; - goto IL_3307; - IL_3307: - num = 607; - Modul1.LiText += sDest2; - goto IL_3320; - IL_3320: // <========== 3 - num = 609; - if ((Modul1.LiText).Trim() != "") - { - goto IL_3348; - } - else - { - goto IL_3383; - } - IL_3348: - num = 610; - List1.Items.Add(new ListItem(Modul1.LiText + " " + Modul1.PersInArb.AsString())); - goto IL_3383; - IL_3383: // <========== 3 - num = 612; - Modul1.LiText = ""; - goto IL_3395; - IL_3395: // <========== 14 - num = 613; - lErl = 95; - goto IL_33a0; - IL_33a0: - num = 614; - I1++; - goto IL_33b6; - IL_1c00: - num = 336; - //Sz = 0; - goto IL_1c0e; - IL_1c0e: - num = 337; - List1.Items.Clear(); - goto IL_1c26; - IL_1c26: - num = 338; - Label1[2].Text = "Familien ohne Datum"; - goto IL_1c44; - IL_1c44: - num = 339; - Label1[1].Text = "Mann Frau Kinder Pro Verl. Hei k.H. Schd. Eheä. Aus Fikt."; - goto IL_1c62; - IL_1c62: - num = 340; - Label1[0].Text = " DO DO DO DO DO DO DO"; - goto IL_1c80; - IL_1c80: - num = 341; - if (RadioButton2.Checked) - { - goto IL_1c98; - } - else - { - goto IL_1cb5; - } - IL_1c98: - num = 342; - List1.Items.Add("Familien ohne Datum"); - goto IL_1cb5; - IL_1cb5: // <========== 3 - num = 344; - if (RadioButton2.Checked) - { - goto IL_1ccd; - } - else - { - goto IL_1cea; - } - IL_1ccd: - num = 345; - List1.Items.Add("Mann Frau Kinder Pro Verl. Hei k.H. Schd. eheä. auß Fikt."); - goto IL_1cea; - IL_1cea: // <========== 3 - num = 347; - if (RadioButton2.Checked) - { - goto IL_1d02; - } - else - { - goto IL_1d1f; - } - IL_1d02: - num = 348; - List1.Items.Add(" DO DO DO DO DO DO DO"); - goto IL_1d1f; - IL_1d1f: // <========== 3 - num = 350; - Modul1.I = 0; - goto IL_1d2c; - IL_1d2c: // <========== 3 - num = 351; - Label1[(short)Modul1.I].Refresh(); - goto IL_1d4a; - IL_1d4a: - num = 352; - Modul1.I++; - i8 = Modul1.I; - num5 = 2; - if (i8 <= num5) - { - goto IL_1d2c; - } - else - { - goto IL_1d6a; - } - IL_1d6a: - num = 353; - num7 = 1; - goto IL_1d74; - IL_1d74: - num = 354; - if (num7 <= 0) - { - goto end_IL_0001_2; - } - goto IL_1d8f; - IL_1d8f: - num = 357; - DataModul.DB_FamilyTable.MoveLast(); - goto IL_1da2; - IL_1da2: - num = 358; - num8 = DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value.AsInt(); - goto IL_1dc9; - IL_1dc9: - num = 359; - if ((num7 > DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value)) - { - goto IL_1dfc; - } - else - { - goto IL_1e3d; - } - IL_1dfc: - num = 360; - Interaction.MsgBox(Modul1.IText[174] + " " + num7.AsString() + Modul1.IText[172]); - goto end_IL_0001_2; - IL_1e3d: - num = 363; - ProgressBar1.Minimum = 0; - goto IL_1e51; - IL_1e51: - num = 364; - ProgressBar1.Maximum = 0; - goto IL_1e65; - IL_1e65: - num = 365; - ProgressBar1.Step = 1; - goto IL_1e79; - IL_1e79: - num = 366; - ProgressBar1.Maximum = (int)Math.Round(Conversion.Val(Modul1.Aus[13])); - goto IL_1e9f; - IL_1e9f: - num = 367; - i9 = num7; - num14 = num7 + DataModul.DB_FamilyTable.RecordCount; - I1 = i9; - goto IL_2440; - IL_2440: - i10 = I1; - num5 = num14; - if (i10 <= num5) - { - goto IL_1ec2; - } - else - { - goto IL_2451; - } - IL_2451: - num = 435; - Label4.Text = List1.Items.Count - 2.AsString() + " Einträge"; - goto end_IL_0001_2; - IL_1ec2: - num = 368; - ProgressBar1.PerformStep(); - goto IL_1ed5; - IL_1ed5: - num = 369; - Application.DoEvents(); - goto IL_1ee2; - IL_1ee2: - num = 370; - sDest2 = " "; - goto IL_1ef0; - IL_1ef0: - num = 371; - Modul1.FamInArb = I1; - goto IL_1f02; - IL_1f02: - num = 372; - if (Modul1.FamInArb <= num8) - { - goto IL_1f1d; - } - else - { - goto IL_241f; - } - IL_1f1d: - num = 375; - DataModul.DB_FamilyTable.Index = nameof(DataModul.FamilyIndex.Fam); - goto IL_1f34; - IL_1f34: - num = 376; - DataModul.DB_FamilyTable.Seek("=", Modul1.FamInArb.AsString()); - goto IL_1f96; - IL_1f96: - num = 377; - if (!DataModul.DB_FamilyTable.NoMatch) - { - goto IL_1fb2; - } - else - { - goto IL_2317; - } - IL_1fb2: - num = 380; - MainProject.Forms.Familie.Famles(Modul1.FamInArb); - goto IL_1fbf; - IL_1fbf: - num = 381; - if (Modul1.Family.Mann > 0) - { - goto IL_1fd7; - } - else - { - goto IL_206d; - } - IL_1fd7: - num = 382; - Modul1.PersInArb = Modul1.Family.Mann; - goto IL_1fe8; - IL_1fe8: - num = 383; - Modul1.Personlesen(Modul1.PersInArb); - goto IL_1ff5; - IL_1ff5: - num = 384; - if (Modul1.Kont[0] != "") - { - goto IL_201a; - } - else - { - goto IL_2035; - } - IL_201a: - num = 385; - StringType.MidStmtStr(ref sDest2, 1, 15, Modul1.Kont[0]); - goto IL_2055; - IL_2035: - num = 387; - goto IL_203d; - IL_203d: - num = 388; - StringType.MidStmtStr(ref sDest2, 1, 15, ">NN<"); - goto IL_2055; - IL_2055: // <========== 3 - num = 390; - StringType.MidStmtStr(ref sDest2, 16, 2, "/ "); - goto IL_206d; - IL_206d: // <========== 3 - num = 392; - if (Modul1.Family.Frau > 0) - { - goto IL_2085; - } - else - { - goto IL_2106; - } - IL_2085: - num = 393; - Modul1.PersInArb = Modul1.Family.Frau; - goto IL_2096; - IL_2096: - num = 394; - Modul1.Personlesen(Modul1.PersInArb); - goto IL_20a3; - IL_20a3: - num = 395; - if (Modul1.Kont[0] != "") - { - goto IL_20c8; - } - else - { - goto IL_20e4; - } - IL_20c8: - num = 396; - StringType.MidStmtStr(ref sDest2, 17, 15, Modul1.Kont[0]); - goto IL_2106; - IL_20e4: - num = 398; - goto IL_20ec; - IL_20ec: - num = 399; - StringType.MidStmtStr(ref sDest2, 17, 15, ">NN<"); - goto IL_2106; - IL_2106: // <========== 4 - num = 402; - if (Modul1.Family.Kind[1] != 0) - { - goto IL_2120; - } - else - { - goto IL_213d; - } - IL_2120: - num = 403; - StringType.MidStmtStr(ref sDest2, 32, 1, Modul1.IText[175]); - goto IL_213d; - IL_213d: // <========== 3 - num = 405; - DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.ArtNr); - goto IL_2154; - IL_2154: - num = 406; - DataModul.DB_FamilyTable.Index = nameof(DataModul.FamilyIndex.Fam); - goto IL_216b; - IL_216b: - num = 407; - DataModul.DB_FamilyTable.Seek("=", Modul1.FamInArb); - goto IL_21c8; - IL_21c8: - num = 408; - if (!DataModul.DB_FamilyTable.NoMatch) - { - goto IL_21e4; - } - else - { - goto IL_2317; - } - IL_21e4: - num = 411; - if ((DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.Aeb)].Value == -1)) - { - goto IL_2216; - } - else - { - goto IL_2233; - } - IL_2216: - num = 412; - StringType.MidStmtStr(ref sDest2, 70, 1, Modul1.IText[175]); - goto IL_2233; - IL_2233: // <========== 3 - num = 414; - num15 = 500; - goto IL_2240; - IL_2240: // <========== 3 - num = 415; - Modul1.Ubg = num15; - goto IL_224d; - IL_224d: - num = 416; - DataModul.DB_EventTable.Seek("=", Modul1.Ubg.AsString(), Modul1.FamInArb.AsString(), "0"); - goto IL_22b9; - IL_22b9: - num = 417; - if (DataModul.DB_EventTable.NoMatch) - { - goto IL_22d8; - } - else - { - goto IL_241f; - } - IL_22d8: - num = 420; - if (!((num15 == 507) & DataModul.DB_EventTable.NoMatch)) - { - goto IL_22fa; - } - else - { - goto IL_2317; - } - IL_22fa: - num = 423; - num15 = (short)unchecked(num15 + 1); - num16 = num15; - num11 = 507; - if (num16 <= num11) - { - goto IL_2240; - } - else - { - goto IL_2317; - } - IL_2317: // <========== 5 - num = 424; - lErl = 34; - goto IL_2322; - IL_2322: - num = 425; - DataModul.DB_EventTable.Seek("=", 601.AsString(), Modul1.FamInArb.AsString(), "0"); - goto IL_238e; - IL_238e: - num = 426; - if (DataModul.DB_EventTable.NoMatch) - { - goto IL_23aa; - } - else - { - goto IL_241f; - } - IL_23aa: - num = 429; - if (sDest2.Trim() != "") - { - goto IL_23cf; - } - else - { - goto IL_241f; - } - IL_23cf: - num = 430; - List1.Items.Add(new ListItem(sDest2 + " " + Modul1.FamInArb.AsString())); - goto IL_2407; - IL_2407: - num = 431; - //Sz++; - goto IL_241f; - IL_241f: // <========== 6 - num = 433; - lErl = 35; - goto IL_242a; - IL_242a: - num = 434; - I1++; - goto IL_2440; - IL_1aae: - num = 322; - FileSystem.FileClose(99); - goto IL_1acb; - IL_1acb: - num = 323; - FileSystem.FileOpen(99, Modul1.TempPath + "\\Text4.Txt", OpenMode.Output); - goto IL_1aed; - IL_1aed: - num = 324; - FileSystem.PrintLine(99, Label1[2].Text); - goto IL_1b1c; - IL_1b1c: - num = 325; - FileSystem.PrintLine(99, Label1[1].Text); - goto IL_1b4b; - IL_1b4b: - num = 326; - FileSystem.PrintLine(99, Label1[0].Text); - goto IL_1b7a; - IL_1b7a: - num = 327; - if (List2.Visible) - { - goto IL_1b92; - } - else - { - goto IL_1bb9; - } - IL_1b92: - num = 328; - L = List2; - A = 2; - Modul1.Listbox3Clip(ref L, ref A); - List2 = L; - goto IL_1be7; - IL_1bb9: - num = 330; - goto IL_1bc1; - IL_1bc1: - num = 331; - L = List1; - A = 2; - Modul1.Listbox3Clip(ref L, ref A); - List1 = L; - goto IL_1be7; - IL_1be7: // <========== 3 - num = 333; - FileSystem.FileClose(); - goto IL_448a; - IL_1a3c: - num = 314; - List1.Items.Clear(); - goto IL_1a54; - IL_1a54: - num = 315; - List2.Items.Clear(); - goto IL_1a6c; - IL_1a6c: - num = 316; - ProgressBar1.Minimum = 0; - goto IL_1a80; - IL_1a80: - num = 317; - ProgressBar1.Maximum = 0; - goto IL_1a94; - IL_1a94: - num = 318; - Close(); - goto end_IL_0001_2; - IL_0cef: - num = 159; - DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.ArtNr); - goto IL_0d06; - IL_0d06: - num = 160; - List1.Items.Clear(); - goto IL_0d1e; - IL_0d1e: - num = 161; - Label1[2].Text = "Fehlliste Familien"; - goto IL_0d3c; - IL_0d3c: - num = 162; - Label1[1].Text = "Mann Frau Kinder Pro Verl. Hei k.H. Schd. eheä. auß Fikt."; - goto IL_0d5a; - IL_0d5a: - num = 163; - Label1[0].Text = " DO DO DO DO DO DO DO"; - goto IL_0d78; - IL_0d78: - num = 164; - if (RadioButton2.Checked) - { - goto IL_0d90; - } - else - { - goto IL_0dad; - } - IL_0d90: - num = 165; - List1.Items.Add("Fehlliste Familien"); - goto IL_0dad; - IL_0dad: // <========== 3 - num = 167; - if (RadioButton2.Checked) - { - goto IL_0dc5; - } - else - { - goto IL_0de2; - } - IL_0dc5: - num = 168; - List1.Items.Add("Mann Frau Kinder Pro Verl. Hei k.H. Schd. eheä. auß Fikt."); - goto IL_0de2; - IL_0de2: // <========== 3 - num = 170; - if (RadioButton2.Checked) - { - goto IL_0dfa; - } - else - { - goto IL_0e17; - } - IL_0dfa: - num = 171; - List1.Items.Add(" DO DO DO DO DO DO DO"); - goto IL_0e17; - IL_0e17: // <========== 3 - num = 173; - Modul1.I = 0; - goto IL_0e24; - IL_0e24: // <========== 3 - num = 174; - Label1[(short)Modul1.I].Refresh(); - goto IL_0e42; - IL_0e42: - num = 175; - Modul1.I++; - i11 = Modul1.I; - num5 = 2; - if (i11 <= num5) - { - goto IL_0e24; - } - else - { - goto IL_0e62; - } - IL_0e62: - num = 176; - num7 = 1; - goto IL_0e6c; - IL_0e6c: - num = 177; - if (num7 <= 0) - { - goto end_IL_0001_2; - } - goto IL_0e87; - IL_0e87: - num = 180; - DataModul.DB_FamilyTable.MoveLast(); - goto IL_0e9a; - IL_0e9a: - num = 181; - num8 = DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value.AsInt(); - goto IL_0ec1; - IL_0ec1: - num = 182; - if ((num7 > DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value)) - { - goto IL_0ef4; - } - else - { - goto IL_0f36; - } - IL_0ef4: - num = 183; - Interaction.MsgBox("Die höchste Familiennummer ist " + DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value.AsString()); - goto end_IL_0001_2; - IL_0f36: - num = 186; - ProgressBar1.Minimum = 0; - goto IL_0f4a; - IL_0f4a: - num = 187; - ProgressBar1.Maximum = DataModul.DB_FamilyTable.RecordCount - 1; - goto IL_0f69; - IL_0f69: - num = 188; - ProgressBar1.Step = 1; - goto IL_0f7d; - IL_0f7d: - num = 189; - i12 = num7; - num17 = num8; - I1 = i12; - goto IL_199d; - IL_199d: - i13 = I1; - num5 = num17; - if (i13 <= num5) - { - goto IL_0f95; - } - else - { - goto IL_19ae; - } - IL_19ae: - num = 308; - Label4.Text = List1.Items.Count - 3.AsString() + " Familien"; - goto IL_19e7; - IL_19e7: - num = 309; - if (RadioButton1.Checked) - { - goto IL_19ff; - } - else - { - goto IL_448a; - } - IL_19ff: - num = 310; - Label4.Text = List1.Items.Count.AsString() + " Familien"; - goto IL_448a; - IL_0f95: - num = 190; - ProgressBar1.PerformStep(); - goto IL_0fa8; - IL_0fa8: - num = 191; - Application.DoEvents(); - goto IL_0fb5; - IL_0fb5: - num = 192; - sDest2 = " "; - goto IL_0fc3; - IL_0fc3: - num = 193; - Modul1.FamInArb = I1; - goto IL_0fd5; - IL_0fd5: - num = 194; - if (Modul1.FamInArb <= num8) - { - goto IL_0ff0; - } - else - { - goto IL_448a; - } - IL_0ff0: - num = 197; - DataModul.DB_FamilyTable.Index = nameof(DataModul.FamilyIndex.Fam); - goto IL_1007; - IL_1007: - num = 198; - DataModul.DB_FamilyTable.Seek("=", Modul1.FamInArb.AsString()); - goto IL_1069; - IL_1069: - num = 199; - if (!DataModul.DB_FamilyTable.NoMatch) - { - goto IL_1085; - } - else - { - goto IL_197c; - } - IL_1085: - num = 202; - MainProject.Forms.Familie.Famles(Modul1.FamInArb); - goto IL_1092; - IL_1092: - num = 203; - if (Modul1.Family.Mann > 0) - { - goto IL_10aa; - } - else - { - goto IL_1140; - } - IL_10aa: - num = 204; - Modul1.PersInArb = Modul1.Family.Mann; - goto IL_10bb; - IL_10bb: - num = 205; - Modul1.Personlesen(Modul1.PersInArb); - goto IL_10c8; - IL_10c8: - num = 206; - if (Modul1.Kont[0] != "") - { - goto IL_10ed; - } - else - { - goto IL_1108; - } - IL_10ed: - num = 207; - StringType.MidStmtStr(ref sDest2, 1, 15, Modul1.Kont[0]); - goto IL_1128; - IL_1108: - num = 209; - goto IL_1110; - IL_1110: - num = 210; - StringType.MidStmtStr(ref sDest2, 1, 15, ">NN<"); - goto IL_1128; - IL_1128: // <========== 3 - num = 212; - StringType.MidStmtStr(ref sDest2, 16, 2, "/ "); - goto IL_1140; - IL_1140: // <========== 3 - num = 214; - if (Modul1.Family.Frau > 0) - { - goto IL_1158; - } - else - { - goto IL_11d9; - } - IL_1158: - num = 215; - Modul1.PersInArb = Modul1.Family.Frau; - goto IL_1169; - IL_1169: - num = 216; - Modul1.Personlesen(Modul1.PersInArb); - goto IL_1176; - IL_1176: - num = 217; - if (Modul1.Kont[0] != "") - { - goto IL_119b; - } - else - { - goto IL_11b7; - } - IL_119b: - num = 218; - StringType.MidStmtStr(ref sDest2, 17, 15, Modul1.Kont[0]); - goto IL_11d9; - IL_11b7: - num = 220; - goto IL_11bf; - IL_11bf: - num = 221; - StringType.MidStmtStr(ref sDest2, 17, 15, ">NN<"); - goto IL_11d9; - IL_11d9: // <========== 4 - num = 224; - if (Modul1.Family.Kind[1] != 0) - { - goto IL_11f3; - } - else - { - goto IL_1210; - } - IL_11f3: - num = 225; - StringType.MidStmtStr(ref sDest2, 32, 1, Modul1.IText[175]); - goto IL_1210; - IL_1210: // <========== 3 - num = 227; - DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.ArtNr); - goto IL_1227; - IL_1227: - num = 228; - DataModul.DB_FamilyTable.Index = nameof(DataModul.FamilyIndex.Fam); - goto IL_123e; - IL_123e: - num = 229; - DataModul.DB_FamilyTable.Seek("=", Modul1.FamInArb); - goto IL_129b; - IL_129b: - num = 230; - if (!DataModul.DB_FamilyTable.NoMatch) - { - goto IL_12b7; - } - else - { - goto IL_197c; - } - IL_12b7: - num = 233; - if ((DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.Aeb)].Value == -1)) - { - goto IL_12e9; - } - else - { - goto IL_1306; - } - IL_12e9: - num = 234; - StringType.MidStmtStr(ref sDest2, 70, 1, Modul1.IText[175]); - goto IL_1306; - IL_1306: // <========== 3 - num = 236; - num15 = 500; - goto IL_1313; - IL_1313: // <========== 3 - num = 237; - Modul1.Ubg = num15; - goto IL_1320; - IL_1320: - num = 238; - DataModul.DB_EventTable.Seek("=", Modul1.Ubg.AsString(), Modul1.FamInArb.AsString(), "0"); - goto IL_138c; - IL_138c: - num = 239; - if (!DataModul.DB_EventTable.NoMatch) - { - goto IL_13a8; - } - else - { - goto IL_17ec; - } - IL_13a8: - num = 242; - switch (Modul1.Ubg) - { - case 500: - break; - case 501: - goto IL_148f; - case 502: - goto IL_153c; - case 503: - goto IL_15e9; - case 504: - goto IL_1696; - case 505: - goto IL_1743; - default: - goto IL_17ec; - } - { - goto IL_13e2; - } - IL_1743: - num = 286; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_1775; - } - else - { - goto IL_1792; - } - IL_1775: - num = 287; - StringType.MidStmtStr(ref sDest2, 65, 1, Modul1.IText[175]); - goto IL_1792; - IL_1792: // <========== 3 - num = 289; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_17cd; - } - else - { - goto IL_17ec; - } - IL_17cd: - num = 290; - StringType.MidStmtStr(ref sDest2, 66, 1, Modul1.IText[175]); - goto IL_17ec; - IL_1696: - num = 278; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_16c8; - } - else - { - goto IL_16e5; - } - IL_16c8: - num = 279; - StringType.MidStmtStr(ref sDest2, 59, 1, Modul1.IText[175]); - goto IL_16e5; - IL_16e5: // <========== 3 - num = 281; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_1720; - } - else - { - goto IL_17ec; - } - IL_1720: - num = 282; - StringType.MidStmtStr(ref sDest2, 60, 1, Modul1.IText[175]); - goto IL_17ec; - IL_15e9: - num = 270; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_161b; - } - else - { - goto IL_1638; - } - IL_161b: - num = 271; - StringType.MidStmtStr(ref sDest2, 54, 1, Modul1.IText[175]); - goto IL_1638; - IL_1638: // <========== 3 - num = 273; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_1673; - } - else - { - goto IL_17ec; - } - IL_1673: - num = 274; - StringType.MidStmtStr(ref sDest2, 55, 1, Modul1.IText[175]); - goto IL_17ec; - IL_153c: - num = 262; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_156e; - } - else - { - goto IL_158b; - } - IL_156e: - num = 263; - StringType.MidStmtStr(ref sDest2, 48, 1, Modul1.IText[175]); - goto IL_158b; - IL_158b: // <========== 3 - num = 265; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_15c6; - } - else - { - goto IL_17ec; - } - IL_15c6: - num = 266; - StringType.MidStmtStr(ref sDest2, 49, 1, Modul1.IText[175]); - goto IL_17ec; - IL_148f: - num = 254; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_14c1; - } - else - { - goto IL_14de; - } - IL_14c1: - num = 255; - StringType.MidStmtStr(ref sDest2, 42, 1, Modul1.IText[175]); - goto IL_14de; - IL_14de: // <========== 3 - num = 257; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_1519; - } - else - { - goto IL_17ec; - } - IL_1519: - num = 258; - StringType.MidStmtStr(ref sDest2, 43, 1, Modul1.IText[175]); - goto IL_17ec; - IL_13e2: - num = 246; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_1414; - } - else - { - goto IL_1431; - } - IL_1414: - num = 247; - StringType.MidStmtStr(ref sDest2, 37, 1, Modul1.IText[175]); - goto IL_1431; - IL_1431: // <========== 3 - num = 249; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_146c; - } - else - { - goto IL_17ec; - } - IL_146c: - num = 250; - StringType.MidStmtStr(ref sDest2, 38, 1, Modul1.IText[175]); - goto IL_17ec; - IL_17ec: // <========== 15 - num = 293; - lErl = 54; - goto IL_17f7; - IL_17f7: - num = 294; - num15 = (short)unchecked(num15 + 1); - num18 = num15; - num11 = 507; - if (num18 <= num11) - { - goto IL_1313; - } - else - { - goto IL_1814; - } - IL_1814: - num = 295; - lErl = 3; - goto IL_181e; - IL_181e: - num = 296; - DataModul.DB_EventTable.Seek("=", 601.AsString(), Modul1.FamInArb.AsString(), "0"); - goto IL_188a; - IL_188a: - num = 297; - if (!DataModul.DB_EventTable.NoMatch) - { - goto IL_18a7; - } - else - { - goto IL_1943; - } - IL_18a7: - num = 298; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_18d9; - } - else - { - goto IL_18f0; - } - IL_18d9: - num = 299; - StringType.MidStmtStr(ref sDest2, 75, 1, "J"); - goto IL_18f0; - IL_18f0: // <========== 3 - num = 301; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_192b; - } - else - { - goto IL_1943; - } - IL_192b: - num = 302; - StringType.MidStmtStr(ref sDest2, 76, 1, "J"); - goto IL_1943; - IL_1943: // <========== 4 - num = 305; - List1.Items.Add(new ListItem(sDest2 + " " + Modul1.FamInArb.AsString())); - goto IL_197c; - IL_197c: // <========== 4 - num = 306; - lErl = 55; - goto IL_1987; - IL_1987: - num = 307; - I1++; - goto IL_199d; - IL_01d7: - num = 35; - List1.Items.Clear(); - goto IL_01ec; - IL_01ec: - num = 36; - Label1[2].Text = "Fehlliste Personen"; - goto IL_0207; - IL_0207: - num = 37; - Label1[1].Text = Modul1.IText[166]; - goto IL_0228; - IL_0228: - num = 38; - Label1[0].Text = Modul1.IText[167]; - goto IL_0249; - IL_0249: - num = 39; - Label1[1].Text = Label1[1].Text + " Quelle"; - goto IL_027a; - IL_027a: - num = 40; - Label1[0].Text = Label1[0].Text + " T V"; - goto IL_02ab; - IL_02ab: - num = 41; - I1 = 0; - goto IL_02b6; - IL_02b6: // <========== 3 - num = 42; - Label1[(short)I1].Refresh(); - goto IL_02d2; - IL_02d2: - num = 43; - I1++; - i14 = I1; - num5 = 2; - if (i14 <= num5) - { - goto IL_02b6; - } - else - { - goto IL_02f2; - } - IL_02f2: - num = 44; - num7 = 1; - goto IL_02f9; - IL_02f9: - num = 45; - if (num7 <= 0) - { - goto end_IL_0001_2; - } - goto IL_0311; - IL_0311: - num = 48; - DataModul.DB_PersonTable.Index = nameof(DataModul.PersonIndex.PerNr); - goto IL_0325; - IL_0325: - num = 49; - DataModul.DB_PersonTable.MoveLast(); - goto IL_0335; - IL_0335: - num = 50; - num8 = DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value.AsInt(); - goto IL_0359; - IL_0359: - num = 51; - if (num7 == 0) - { - goto end_IL_0001_2; - } - goto IL_036e; - IL_036e: - num = 54; - if ((num7 > DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value)) - { - goto IL_039e; - } - else - { - goto IL_03dd; - } - IL_039e: - num = 55; - Interaction.MsgBox("Die höchste Personennummer ist " + DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value.AsString()); - goto end_IL_0001_2; - IL_03dd: - num = 58; - ProgressBar1.Minimum = 0; - goto IL_03ee; - IL_03ee: - num = 59; - ProgressBar1.Maximum = 0; - goto IL_03ff; - IL_03ff: - num = 60; - ProgressBar1.Step = 1; - goto IL_0410; - IL_0410: - num = 61; - ProgressBar1.Maximum = DataModul.DB_PersonTable.RecordCount - 1; - goto IL_042c; - IL_042c: - num = 62; - List1.Items.Clear(); - goto IL_0441; - IL_0441: - num = 63; - i15 = num7; - num19 = num8; - I1 = i15; - goto IL_0ca1; - IL_0ca1: - i16 = I1; - num5 = num19; - if (i16 <= num5) - { - goto IL_0456; - } - else - { - goto IL_0cb2; - } - IL_0cb2: - num = 156; - Label4.Text = List1.Items.Count.AsString() + " Einträge"; - goto IL_448a; - IL_0456: - num = 64; - ProgressBar1.PerformStep(); - goto IL_0466; - IL_0466: - num = 65; - Application.DoEvents(); - goto IL_0470; - IL_0470: - num = 66; - Modul1.PersInArb = I1; - goto IL_047f; - IL_047f: - num = 67; - if (Modul1.PersInArb <= num8) - { - goto IL_0497; - } - else - { - goto IL_448a; - } - IL_448a: // <========== 14 - num = 781; - lErl = 4; - goto IL_4494; - IL_4494: - num = 782; - if (!RadioButton2.Checked) - { - goto end_IL_0001_2; - } - goto IL_44ac; - IL_44ac: - num = 783; - List1.Items.Add("Ende der Liste"); - goto IL_44c9; - IL_44c9: - num = 784; - Modul1.I = 1; - goto IL_44d6; - IL_44d6: // <========== 3 - num = 785; - List1.Items.Add(""); - goto IL_44f3; - IL_44f3: - num = 786; - Modul1.I++; - i17 = Modul1.I; - num5 = 17; - if (i17 > num5) - { - goto end_IL_0001_2; - } - goto IL_44d6; - IL_0497: - num = 70; - DataModul.DB_PersonTable.Seek("=", Modul1.PersInArb.AsString()); - goto IL_04f6; - IL_04f6: - num = 71; - if (!DataModul.DB_PersonTable.NoMatch) - { - goto IL_050f; - } - else - { - goto IL_0c81; - } - IL_050f: - num = 74; - Modul1.Personlesen(Modul1.PersInArb); - goto IL_0519; - IL_0519: - num = 75; - Modul1.LiText = Strings.Left((Modul1.Kont[0]).Trim() + "," + (Modul1.Kont[3]).Trim() + " ", 20); - goto IL_0550; - IL_0550: - num = 76; - Modul1.Schalt = 20; - goto IL_055b; - IL_055b: - num = 77; - T = 1; - goto IL_0566; - IL_0566: // <========== 3 - num = 78; - Modul1.Kont[T + 10] = " "; - goto IL_057f; - IL_057f: - num = 79; - Modul1.Kont[T + 20] = " "; - goto IL_0598; - IL_0598: - num = 80; - T = (short)unchecked(T + 1); - t2 = T; - num11 = 10; - if (t2 <= num11) - { - goto IL_0566; - } - else - { - goto IL_05ba; - } - IL_05ba: - num = 81; - Modul1.Datles(); - goto IL_05c4; - IL_05c4: - num = 82; - sDest2 = " "; - goto IL_05cf; - IL_05cf: - num = 83; - StringType.MidStmtStr(ref sDest2, 2, 2, Modul1.Kont[11] + Modul1.Kont[21]); - goto IL_05f2; - IL_05f2: - num = 84; - StringType.MidStmtStr(ref sDest2, 8, 2, Modul1.Kont[12] + Modul1.Kont[22]); - goto IL_0615; - IL_0615: - num = 85; - StringType.MidStmtStr(ref sDest2, 17, 2, Modul1.Kont[13] + Modul1.Kont[23]); - goto IL_0639; - IL_0639: - num = 86; - StringType.MidStmtStr(ref sDest2, 27, 2, Modul1.Kont[14] + Modul1.Kont[24]); - goto IL_065d; - IL_065d: - num = 87; - num12 = 300; - goto IL_0667; - IL_0667: // <========== 3 - num = 88; - DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.BeSu); - goto IL_067b; - IL_067b: - num = 89; - DataModul.DB_EventTable.Seek("=", num12, Modul1.PersInArb.AsString()); - goto IL_06db; - IL_06db: - num = 90; - if (!DataModul.DB_EventTable.NoMatch) - { - goto IL_06f4; - } - else - { - goto IL_0ac2; - } - IL_06f4: - num = 93; - switch (num12) - { - case 300: - break; - case 301: - goto IL_084e; - case 302: - goto IL_0981; - default: - goto IL_0ac2; - } - { - goto IL_071b; - } - IL_0981: - num = 125; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) - { - goto IL_09b0; - } - else - { - goto IL_09ca; - } - IL_09b0: - num = 126; - StringType.MidStmtStr(ref sDest2, 50, 1, Modul1.IText[175]); - goto IL_09ca; - IL_09ca: // <========== 3 - num = 128; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_09fc; - } - else - { - goto IL_0a19; - } - IL_09fc: - num = 129; - StringType.MidStmtStr(ref sDest2, 51, 1, Modul1.IText[175]); - goto IL_0a19; - IL_0a19: // <========== 3 - num = 131; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) - { - goto IL_0a4b; - } - else - { - goto IL_0a68; - } - IL_0a4b: - num = 132; - StringType.MidStmtStr(ref sDest2, 52, 1, Modul1.IText[175]); - goto IL_0a68; - IL_0a68: // <========== 3 - num = 134; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_0aa3; - } - else - { - goto IL_0ac2; - } - IL_0aa3: - num = 135; - StringType.MidStmtStr(ref sDest2, 53, 1, Modul1.IText[175]); - goto IL_0ac2; - IL_084e: - num = 111; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) - { - goto IL_087d; - } - else - { - goto IL_0897; - } - IL_087d: - num = 112; - StringType.MidStmtStr(ref sDest2, 42, 1, Modul1.IText[175]); - goto IL_0897; - IL_0897: // <========== 3 - num = 114; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_08c6; - } - else - { - goto IL_08e0; - } - IL_08c6: - num = 115; - StringType.MidStmtStr(ref sDest2, 44, 1, Modul1.IText[175]); - goto IL_08e0; - IL_08e0: // <========== 3 - num = 117; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) - { - goto IL_090f; - } - else - { - goto IL_0929; - } - IL_090f: - num = 118; - StringType.MidStmtStr(ref sDest2, 45, 1, Modul1.IText[175]); - goto IL_0929; - IL_0929: // <========== 3 - num = 120; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_0961; - } - else - { - goto IL_0ac2; - } - IL_0961: - num = 121; - StringType.MidStmtStr(ref sDest2, 46, 1, Modul1.IText[175]); - goto IL_0ac2; - IL_071b: - num = 97; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) - { - goto IL_074a; - } - else - { - goto IL_0764; - } - IL_074a: - num = 98; - StringType.MidStmtStr(ref sDest2, 34, 1, Modul1.IText[175]); - goto IL_0764; - IL_0764: // <========== 3 - num = 100; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) - { - goto IL_0793; - } - else - { - goto IL_07ad; - } - IL_0793: - num = 101; - StringType.MidStmtStr(ref sDest2, 36, 1, Modul1.IText[175]); - goto IL_07ad; - IL_07ad: // <========== 3 - num = 103; - if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) - { - goto IL_07dc; - } - else - { - goto IL_07f6; - } - IL_07dc: - num = 104; - StringType.MidStmtStr(ref sDest2, 37, 1, Modul1.IText[175]); - goto IL_07f6; - IL_07f6: // <========== 3 - num = 106; - if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) - { - goto IL_082e; - } - else - { - goto IL_0ac2; - } - IL_082e: - num = 107; - StringType.MidStmtStr(ref sDest2, 38, 1, Modul1.IText[175]); - goto IL_0ac2; - IL_0ac2: // <========== 9 - num = 138; - lErl = 2; - goto IL_0acc; - IL_0acc: - num = 139; - num12 = (short)unchecked(num12 + 1); - num20 = num12; - num11 = 302; - if (num20 <= num11) - { - goto IL_0667; - } - else - { - goto IL_0ae8; - } - IL_0ae8: - num = 140; - Modul1.LiText += sDest2; - goto IL_0b00; - IL_0b00: - num = 141; - Modul1.PerSatzLes(); - goto IL_0b0d; - IL_0b0d: - num = 142; - if (null != DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.Bem3)].Value) - { - goto IL_0b40; - } - else - { - goto IL_0b8b; - } - IL_0b40: - num = 143; - if (Operators.ConditionalCompareObjectNotEqual(DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.Bem3)].Value, "", TextCompare: false)) - { - goto IL_0b71; - } - else - { - goto IL_0b8b; - } - IL_0b71: - num = 144; - StringType.MidStmtStr(ref Modul1.LiText, 77, 1, "J"); - goto IL_0b8b; - IL_0b8b: // <========== 4 - num = 147; - DataModul.TTable.Index = "Tab"; - goto IL_0ba2; - end_IL_0001: - break; - } - } - } - catch (Exception obj) when (num3 != 0 && num2 == 0) - { - ProjectData.SetProjectError(obj, lErl); - try0001_dispatch = 21059; - continue; - } - throw ProjectData.CreateProjectError(-2146828237); - end_IL_0001_2: // <========== 19 - break; - } - if (num2 != 0) - { - ProjectData.ClearProjectError(); - } - } \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test09/Test9ExpParse.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test09/Test9ExpParse.txt deleted file mode 100644 index b6e551246..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test09/Test9ExpParse.txt +++ /dev/null @@ -1,9152 +0,0 @@ -///Declaration MainBlock 0,0 -private void Command1_Click(object eventSender, EventArgs eventArgs) -///BlockStart Block 1,0 -{ -///Comment LComment 1,1 -//Discarded unreachable code: IL_451b -///Operation Operation 1,2 -int try0001_dispatch = -1; -///Operation Operation 1,3 -int num = default; -///Operation Operation 1,4 -short index = default; -///Operation Operation 1,5 -int num2 = default; -///Operation Operation 1,6 -int num3 = default; -///Operation Operation 1,7 -int lErl = default; -///Operation Operation 1,8 -int num6 = default; -///Operation Operation 1,9 -int num7 = default; -///Operation Operation 1,10 -int num8 = default; -///Operation Operation 1,11 -int num9 = default; -///Operation Operation 1,12 -string sDest = default; -///Operation Operation 1,13 -int num10 = default; -///Operation Operation 1,14 -string sDest2 = default; -///Operation Operation 1,15 -short num12 = default; -///Operation Operation 1,16 -int num14 = default; -///Operation Operation 1,17 -short num15 = default; -///Operation Operation 1,18 -int num17 = default; -///Operation Operation 1,19 -int num19 = default; -///Operation Operation 1,20 -while (true) -///BlockStart Block 2,0 -{ -///Operation Operation 2,1 -try -///BlockStart Block 3,0 -{ -///Comment Comment 3,1 -/*Note: ILSpy has introduced the following switch to emulate a goto from catch-block to try-block*/ -///Operation Operation 3,2 -; -///Operation Operation 3,3 -checked -///BlockStart Block 4,0 -{ -///Operation Operation 4,1 -int num4; -///Operation Operation 4,2 -int i3; -///Operation Operation 4,3 -int i4; -///Operation Operation 4,4 -int i5; -///Operation Operation 4,5 -int i6; -///Operation Operation 4,6 -int i7; -///Operation Operation 4,7 -short t; -///Operation Operation 4,8 -short num13; -///Operation Operation 4,9 -int i8; -///Operation Operation 4,10 -int i9; -///Operation Operation 4,11 -int i10; -///Operation Operation 4,12 -short num16; -///Operation Operation 4,13 -ListBox L; -///Operation Operation 4,14 -short A; -///Operation Operation 4,15 -int i11; -///Operation Operation 4,16 -int i12; -///Operation Operation 4,17 -int i13; -///Operation Operation 4,18 -short num18; -///Operation Operation 4,19 -int i14; -///Operation Operation 4,20 -int i15; -///Operation Operation 4,21 -int i16; -///Operation Operation 4,22 -int i17; -///Operation Operation 4,23 -int num5; -///Operation Operation 4,24 -short t2; -///Operation Operation 4,25 -short num20; -///Operation Operation 4,26 -short num11; -///Operation Operation 4,27 -switch (try0001_dispatch) -///BlockStart Block 5,0 -{ -///Label Label 5,1 1 -default: -///Operation Operation 5,2 -num = 1; -///Operation Operation 5,3 -index = Command1.GetIndex((Button)eventSender); -///Goto Goto 5,4 Dest:OK -goto IL_0016; -///Label Label 5,5 -case 21059: -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -num2 = num; -///Operation Operation 6,2 -switch ((num3 <= -2) ? 1 : num3) -///BlockStart Block 7,0 -{ -///Label Label 7,1 -case 2: -///Operation Operation 7,2 -break; -///Label Label 7,3 -case 1: -///Goto Goto 7,4 Dest:OK -goto IL_45b9; -///Label Label 7,5 -default: -///Goto Goto 7,6 Dest:OK -goto end_IL_0001; -///BlockEnd Block 7,7 -} -///Goto Goto 6,3 Dest:OK -goto IL_451d; -///BlockEnd Block 6,4 -} -///Label Label 5,6 2 -IL_0c00: -///Operation Operation 5,7 -num = 149; -///Operation Operation 5,8 -if (!DataModul.TTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0c1a; -///BlockEnd Block 6,2 -} -///Operation Operation 5,9 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0c34; -///BlockEnd Block 6,2 -} -///Label Label 5,10 2 -IL_0c1a: -///Operation Operation 5,11 -num = 150; -///Operation Operation 5,12 -StringType.MidStmtStr(ref Modul1.LiText, 79, 1, "J"); -///Goto Goto 5,13 Dest:OK -goto IL_0c34; -///Label Label 5,14 2 -IL_0ba2: -///Operation Operation 5,15 -num = 148; -///Operation Operation 5,16 -DataModul.TTable.Seek("=", 1, Modul1.PersInArb); -///Goto Goto 5,17 Dest:OK -goto IL_0c00; -///Label Label 5,18 2 -IL_451d: -///Operation Operation 5,19 -num = 789; -///Operation Operation 5,20 -if (Information.Err().Number == 6) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_4537; -///BlockEnd Block 6,2 -} -///Operation Operation 5,21 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_4563; -///BlockEnd Block 6,2 -} -///Label Label 5,22 2 -IL_4563: -///Operation Operation 5,23 -num = 794; -///Operation Operation 5,24 -if (Interaction.MsgBox(Conversion.ErrorToString(), MsgBoxStyle.OkCancel, (Information.Err().Number).AsString()) == MsgBoxResult.Cancel) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -ProjectData.EndApp(); -///BlockEnd Block 6,2 -} -///Goto Goto 5,25 Dest:OK -goto IL_4593; -///Label Label 5,26 2 -IL_0c6f: -///Operation Operation 5,27 -num = 153; -///Operation Operation 5,28 -Modul1.LiText = ""; -///Goto Goto 5,29 Dest:OK -goto IL_0c81; -///Label Label 5,30 2 -IL_4593: -///Operation Operation 5,31 -num = 797; -///Operation Operation 5,32 -ProjectData.ClearProjectError(); -///Operation Operation 5,33 -if (num2 == 0) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -throw ProjectData.CreateProjectError(-2146828268); -///BlockEnd Block 6,2 -} -///Operation Operation 5,34 -num4 = num2; -///Goto Goto 5,35 Dest:OK -goto IL_45bd; -///Label Label 5,36 3 -IL_0c81: -///Operation Operation 5,37 -num = 154; -///Operation Operation 5,38 -lErl = 5; -///Goto Goto 5,39 Dest:OK -goto IL_0c8b; -///Label Label 5,40 2 -IL_0c8b: -///Operation Operation 5,41 -num = 155; -///Operation Operation 5,42 -I1++; -///Goto Goto 5,43 Dest:OK -goto IL_0ca1; -///Label Label 5,44 2 -IL_45bd: -///Operation Operation 5,45 -num2 = 0; -///Operation Operation 5,46 -switch (num4) -///BlockStart Block 6,0 -{ -///Label Label 6,1 -case 1: -///Operation Operation 6,2 -break; -///Label Label 6,3 -case 2: -///Goto Goto 6,4 Dest:OK -goto IL_0016; -///Label Label 6,5 -case 3: -///Goto Goto 6,6 Dest:OK -goto IL_0026; -///Label Label 6,7 -case 4: -///Goto Goto 6,8 Dest:OK -goto IL_0036; -///Label Label 6,9 -case 5: -///Goto Goto 6,10 Dest:OK -goto IL_003e; -///Label Label 6,11 -case 7: -///Label Label 6,12 -case 9: -///Goto Goto 6,13 Dest:OK -goto IL_006f; -///Label Label 6,14 -case 10: -///Goto Goto 6,15 Dest:OK -goto IL_0080; -///Label Label 6,16 -case 12: -///Label Label 6,17 -case 13: -///Goto Goto 6,18 Dest:OK -goto IL_0094; -///Label Label 6,19 -case 6: -///Label Label 6,20 -case 11: -///Label Label 6,21 -case 14: -///Label Label 6,22 -case 15: -///Goto Goto 6,23 Dest:OK -goto IL_00a6; -///Label Label 6,24 -case 16: -///Goto Goto 6,25 Dest:OK -goto IL_00bb; -///Label Label 6,26 -case 17: -///Goto Goto 6,27 Dest:OK -goto IL_00db; -///Label Label 6,28 -case 18: -///Label Label 6,29 -case 19: -///Goto Goto 6,30 Dest:OK -goto IL_00ed; -///Label Label 6,31 -case 20: -///Goto Goto 6,32 Dest:OK -goto IL_010d; -///Label Label 6,33 -case 21: -///Label Label 6,34 -case 22: -///Goto Goto 6,35 Dest:OK -goto IL_011f; -///Label Label 6,36 -case 23: -///Goto Goto 6,37 Dest:OK -goto IL_0130; -///Label Label 6,38 -case 24: -///Goto Goto 6,39 Dest:OK -goto IL_0141; -///Label Label 6,40 -case 25: -///Goto Goto 6,41 Dest:OK -goto IL_0156; -///Label Label 6,42 -case 26: -///Goto Goto 6,43 Dest:OK -goto IL_016b; -///Label Label 6,44 -case 27: -///Label Label 6,45 -case 28: -///Goto Goto 6,46 Dest:OK -goto IL_017c; -///Label Label 6,47 -case 29: -///Goto Goto 6,48 Dest:OK -goto IL_0191; -///Label Label 6,49 -case 30: -///Label Label 6,50 -case 31: -///Goto Goto 6,51 Dest:OK -goto IL_01a2; -///Label Label 6,52 -case 33: -///Label Label 6,53 -case 35: -///Goto Goto 6,54 Dest:OK -goto IL_01d7; -///Label Label 6,55 -case 36: -///Goto Goto 6,56 Dest:OK -goto IL_01ec; -///Label Label 6,57 -case 37: -///Goto Goto 6,58 Dest:OK -goto IL_0207; -///Label Label 6,59 -case 38: -///Goto Goto 6,60 Dest:OK -goto IL_0228; -///Label Label 6,61 -case 39: -///Goto Goto 6,62 Dest:OK -goto IL_0249; -///Label Label 6,63 -case 40: -///Goto Goto 6,64 Dest:OK -goto IL_027a; -///Label Label 6,65 -case 41: -///Goto Goto 6,66 Dest:OK -goto IL_02ab; -///Label Label 6,67 -case 42: -///Goto Goto 6,68 Dest:OK -goto IL_02b6; -///Label Label 6,69 -case 43: -///Goto Goto 6,70 Dest:OK -goto IL_02d2; -///Label Label 6,71 -case 44: -///Goto Goto 6,72 Dest:OK -goto IL_02f2; -///Label Label 6,73 -case 45: -///Goto Goto 6,74 Dest:OK -goto IL_02f9; -///Label Label 6,75 -case 47: -///Label Label 6,76 -case 48: -///Goto Goto 6,77 Dest:OK -goto IL_0311; -///Label Label 6,78 -case 49: -///Goto Goto 6,79 Dest:OK -goto IL_0325; -///Label Label 6,80 -case 50: -///Goto Goto 6,81 Dest:OK -goto IL_0335; -///Label Label 6,82 -case 51: -///Goto Goto 6,83 Dest:OK -goto IL_0359; -///Label Label 6,84 -case 53: -///Label Label 6,85 -case 54: -///Goto Goto 6,86 Dest:OK -goto IL_036e; -///Label Label 6,87 -case 55: -///Goto Goto 6,88 Dest:OK -goto IL_039e; -///Label Label 6,89 -case 57: -///Label Label 6,90 -case 58: -///Goto Goto 6,91 Dest:OK -goto IL_03dd; -///Label Label 6,92 -case 59: -///Goto Goto 6,93 Dest:OK -goto IL_03ee; -///Label Label 6,94 -case 60: -///Goto Goto 6,95 Dest:OK -goto IL_03ff; -///Label Label 6,96 -case 61: -///Goto Goto 6,97 Dest:OK -goto IL_0410; -///Label Label 6,98 -case 62: -///Goto Goto 6,99 Dest:OK -goto IL_042c; -///Label Label 6,100 -case 63: -///Goto Goto 6,101 Dest:OK -goto IL_0441; -///Label Label 6,102 -case 64: -///Goto Goto 6,103 Dest:OK -goto IL_0456; -///Label Label 6,104 -case 65: -///Goto Goto 6,105 Dest:OK -goto IL_0466; -///Label Label 6,106 -case 66: -///Goto Goto 6,107 Dest:OK -goto IL_0470; -///Label Label 6,108 -case 67: -///Goto Goto 6,109 Dest:OK -goto IL_047f; -///Label Label 6,110 -case 69: -///Label Label 6,111 -case 70: -///Goto Goto 6,112 Dest:OK -goto IL_0497; -///Label Label 6,113 -case 71: -///Goto Goto 6,114 Dest:OK -goto IL_04f6; -///Label Label 6,115 -case 73: -///Label Label 6,116 -case 74: -///Goto Goto 6,117 Dest:OK -goto IL_050f; -///Label Label 6,118 -case 75: -///Goto Goto 6,119 Dest:OK -goto IL_0519; -///Label Label 6,120 -case 76: -///Goto Goto 6,121 Dest:OK -goto IL_0550; -///Label Label 6,122 -case 77: -///Goto Goto 6,123 Dest:OK -goto IL_055b; -///Label Label 6,124 -case 78: -///Goto Goto 6,125 Dest:OK -goto IL_0566; -///Label Label 6,126 -case 79: -///Goto Goto 6,127 Dest:OK -goto IL_057f; -///Label Label 6,128 -case 80: -///Goto Goto 6,129 Dest:OK -goto IL_0598; -///Label Label 6,130 -case 81: -///Goto Goto 6,131 Dest:OK -goto IL_05ba; -///Label Label 6,132 -case 82: -///Goto Goto 6,133 Dest:OK -goto IL_05c4; -///Label Label 6,134 -case 83: -///Goto Goto 6,135 Dest:OK -goto IL_05cf; -///Label Label 6,136 -case 84: -///Goto Goto 6,137 Dest:OK -goto IL_05f2; -///Label Label 6,138 -case 85: -///Goto Goto 6,139 Dest:OK -goto IL_0615; -///Label Label 6,140 -case 86: -///Goto Goto 6,141 Dest:OK -goto IL_0639; -///Label Label 6,142 -case 87: -///Goto Goto 6,143 Dest:OK -goto IL_065d; -///Label Label 6,144 -case 88: -///Goto Goto 6,145 Dest:OK -goto IL_0667; -///Label Label 6,146 -case 89: -///Goto Goto 6,147 Dest:OK -goto IL_067b; -///Label Label 6,148 -case 90: -///Goto Goto 6,149 Dest:OK -goto IL_06db; -///Label Label 6,150 -case 92: -///Label Label 6,151 -case 93: -///Goto Goto 6,152 Dest:OK -goto IL_06f4; -///Label Label 6,153 -case 95: -///Label Label 6,154 -case 97: -///Goto Goto 6,155 Dest:OK -goto IL_071b; -///Label Label 6,156 -case 98: -///Goto Goto 6,157 Dest:OK -goto IL_074a; -///Label Label 6,158 -case 99: -///Label Label 6,159 -case 100: -///Goto Goto 6,160 Dest:OK -goto IL_0764; -///Label Label 6,161 -case 101: -///Goto Goto 6,162 Dest:OK -goto IL_0793; -///Label Label 6,163 -case 102: -///Label Label 6,164 -case 103: -///Goto Goto 6,165 Dest:OK -goto IL_07ad; -///Label Label 6,166 -case 104: -///Goto Goto 6,167 Dest:OK -goto IL_07dc; -///Label Label 6,168 -case 105: -///Label Label 6,169 -case 106: -///Goto Goto 6,170 Dest:OK -goto IL_07f6; -///Label Label 6,171 -case 107: -///Goto Goto 6,172 Dest:OK -goto IL_082e; -///Label Label 6,173 -case 110: -///Label Label 6,174 -case 111: -///Goto Goto 6,175 Dest:OK -goto IL_084e; -///Label Label 6,176 -case 112: -///Goto Goto 6,177 Dest:OK -goto IL_087d; -///Label Label 6,178 -case 113: -///Label Label 6,179 -case 114: -///Goto Goto 6,180 Dest:OK -goto IL_0897; -///Label Label 6,181 -case 115: -///Goto Goto 6,182 Dest:OK -goto IL_08c6; -///Label Label 6,183 -case 116: -///Label Label 6,184 -case 117: -///Goto Goto 6,185 Dest:OK -goto IL_08e0; -///Label Label 6,186 -case 118: -///Goto Goto 6,187 Dest:OK -goto IL_090f; -///Label Label 6,188 -case 119: -///Label Label 6,189 -case 120: -///Goto Goto 6,190 Dest:OK -goto IL_0929; -///Label Label 6,191 -case 121: -///Goto Goto 6,192 Dest:OK -goto IL_0961; -///Label Label 6,193 -case 124: -///Label Label 6,194 -case 125: -///Goto Goto 6,195 Dest:OK -goto IL_0981; -///Label Label 6,196 -case 126: -///Goto Goto 6,197 Dest:OK -goto IL_09b0; -///Label Label 6,198 -case 127: -///Label Label 6,199 -case 128: -///Goto Goto 6,200 Dest:OK -goto IL_09ca; -///Label Label 6,201 -case 129: -///Goto Goto 6,202 Dest:OK -goto IL_09fc; -///Label Label 6,203 -case 130: -///Label Label 6,204 -case 131: -///Goto Goto 6,205 Dest:OK -goto IL_0a19; -///Label Label 6,206 -case 132: -///Goto Goto 6,207 Dest:OK -goto IL_0a4b; -///Label Label 6,208 -case 133: -///Label Label 6,209 -case 134: -///Goto Goto 6,210 Dest:OK -goto IL_0a68; -///Label Label 6,211 -case 135: -///Goto Goto 6,212 Dest:OK -goto IL_0aa3; -///Label Label 6,213 -case 91: -///Label Label 6,214 -case 94: -///Label Label 6,215 -case 108: -///Label Label 6,216 -case 109: -///Label Label 6,217 -case 122: -///Label Label 6,218 -case 123: -///Label Label 6,219 -case 136: -///Label Label 6,220 -case 137: -///Label Label 6,221 -case 138: -///Goto Goto 6,222 Dest:OK -goto IL_0ac2; -///Label Label 6,223 -case 139: -///Goto Goto 6,224 Dest:OK -goto IL_0acc; -///Label Label 6,225 -case 140: -///Goto Goto 6,226 Dest:OK -goto IL_0ae8; -///Label Label 6,227 -case 141: -///Goto Goto 6,228 Dest:OK -goto IL_0b00; -///Label Label 6,229 -case 142: -///Goto Goto 6,230 Dest:OK -goto IL_0b0d; -///Label Label 6,231 -case 143: -///Goto Goto 6,232 Dest:OK -goto IL_0b40; -///Label Label 6,233 -case 144: -///Goto Goto 6,234 Dest:OK -goto IL_0b71; -///Label Label 6,235 -case 145: -///Label Label 6,236 -case 147: -///Goto Goto 6,237 Dest:OK -goto IL_0b8b; -///Label Label 6,238 -case 148: -///Goto Goto 6,239 Dest:OK -goto IL_0ba2; -///Label Label 6,240 -case 149: -///Goto Goto 6,241 Dest:OK -goto IL_0c00; -///Label Label 6,242 -case 150: -///Goto Goto 6,243 Dest:OK -goto IL_0c1a; -///Label Label 6,244 -case 151: -///Label Label 6,245 -case 152: -///Goto Goto 6,246 Dest:OK -goto IL_0c34; -///Label Label 6,247 -case 153: -///Goto Goto 6,248 Dest:OK -goto IL_0c6f; -///Label Label 6,249 -case 72: -///Label Label 6,250 -case 154: -///Goto Goto 6,251 Dest:OK -goto IL_0c81; -///Label Label 6,252 -case 155: -///Goto Goto 6,253 Dest:OK -goto IL_0c8b; -///Label Label 6,254 -case 156: -///Goto Goto 6,255 Dest:OK -goto IL_0cb2; -///Label Label 6,256 -case 158: -///Label Label 6,257 -case 159: -///Goto Goto 6,258 Dest:OK -goto IL_0cef; -///Label Label 6,259 -case 160: -///Goto Goto 6,260 Dest:OK -goto IL_0d06; -///Label Label 6,261 -case 161: -///Goto Goto 6,262 Dest:OK -goto IL_0d1e; -///Label Label 6,263 -case 162: -///Goto Goto 6,264 Dest:OK -goto IL_0d3c; -///Label Label 6,265 -case 163: -///Goto Goto 6,266 Dest:OK -goto IL_0d5a; -///Label Label 6,267 -case 164: -///Goto Goto 6,268 Dest:OK -goto IL_0d78; -///Label Label 6,269 -case 165: -///Goto Goto 6,270 Dest:OK -goto IL_0d90; -///Label Label 6,271 -case 166: -///Label Label 6,272 -case 167: -///Goto Goto 6,273 Dest:OK -goto IL_0dad; -///Label Label 6,274 -case 168: -///Goto Goto 6,275 Dest:OK -goto IL_0dc5; -///Label Label 6,276 -case 169: -///Label Label 6,277 -case 170: -///Goto Goto 6,278 Dest:OK -goto IL_0de2; -///Label Label 6,279 -case 171: -///Goto Goto 6,280 Dest:OK -goto IL_0dfa; -///Label Label 6,281 -case 172: -///Label Label 6,282 -case 173: -///Goto Goto 6,283 Dest:OK -goto IL_0e17; -///Label Label 6,284 -case 174: -///Goto Goto 6,285 Dest:OK -goto IL_0e24; -///Label Label 6,286 -case 175: -///Goto Goto 6,287 Dest:OK -goto IL_0e42; -///Label Label 6,288 -case 176: -///Goto Goto 6,289 Dest:OK -goto IL_0e62; -///Label Label 6,290 -case 177: -///Goto Goto 6,291 Dest:OK -goto IL_0e6c; -///Label Label 6,292 -case 179: -///Label Label 6,293 -case 180: -///Goto Goto 6,294 Dest:OK -goto IL_0e87; -///Label Label 6,295 -case 181: -///Goto Goto 6,296 Dest:OK -goto IL_0e9a; -///Label Label 6,297 -case 182: -///Goto Goto 6,298 Dest:OK -goto IL_0ec1; -///Label Label 6,299 -case 183: -///Goto Goto 6,300 Dest:OK -goto IL_0ef4; -///Label Label 6,301 -case 185: -///Label Label 6,302 -case 186: -///Goto Goto 6,303 Dest:OK -goto IL_0f36; -///Label Label 6,304 -case 187: -///Goto Goto 6,305 Dest:OK -goto IL_0f4a; -///Label Label 6,306 -case 188: -///Goto Goto 6,307 Dest:OK -goto IL_0f69; -///Label Label 6,308 -case 189: -///Goto Goto 6,309 Dest:OK -goto IL_0f7d; -///Label Label 6,310 -case 190: -///Goto Goto 6,311 Dest:OK -goto IL_0f95; -///Label Label 6,312 -case 191: -///Goto Goto 6,313 Dest:OK -goto IL_0fa8; -///Label Label 6,314 -case 192: -///Goto Goto 6,315 Dest:OK -goto IL_0fb5; -///Label Label 6,316 -case 193: -///Goto Goto 6,317 Dest:OK -goto IL_0fc3; -///Label Label 6,318 -case 194: -///Goto Goto 6,319 Dest:OK -goto IL_0fd5; -///Label Label 6,320 -case 196: -///Label Label 6,321 -case 197: -///Goto Goto 6,322 Dest:OK -goto IL_0ff0; -///Label Label 6,323 -case 198: -///Goto Goto 6,324 Dest:OK -goto IL_1007; -///Label Label 6,325 -case 199: -///Goto Goto 6,326 Dest:OK -goto IL_1069; -///Label Label 6,327 -case 201: -///Label Label 6,328 -case 202: -///Goto Goto 6,329 Dest:OK -goto IL_1085; -///Label Label 6,330 -case 203: -///Goto Goto 6,331 Dest:OK -goto IL_1092; -///Label Label 6,332 -case 204: -///Goto Goto 6,333 Dest:OK -goto IL_10aa; -///Label Label 6,334 -case 205: -///Goto Goto 6,335 Dest:OK -goto IL_10bb; -///Label Label 6,336 -case 206: -///Goto Goto 6,337 Dest:OK -goto IL_10c8; -///Label Label 6,338 -case 207: -///Goto Goto 6,339 Dest:OK -goto IL_10ed; -///Label Label 6,340 -case 209: -///Goto Goto 6,341 Dest:OK -goto IL_1108; -///Label Label 6,342 -case 210: -///Goto Goto 6,343 Dest:OK -goto IL_1110; -///Label Label 6,344 -case 208: -///Label Label 6,345 -case 211: -///Label Label 6,346 -case 212: -///Goto Goto 6,347 Dest:OK -goto IL_1128; -///Label Label 6,348 -case 213: -///Label Label 6,349 -case 214: -///Goto Goto 6,350 Dest:OK -goto IL_1140; -///Label Label 6,351 -case 215: -///Goto Goto 6,352 Dest:OK -goto IL_1158; -///Label Label 6,353 -case 216: -///Goto Goto 6,354 Dest:OK -goto IL_1169; -///Label Label 6,355 -case 217: -///Goto Goto 6,356 Dest:OK -goto IL_1176; -///Label Label 6,357 -case 218: -///Goto Goto 6,358 Dest:OK -goto IL_119b; -///Label Label 6,359 -case 220: -///Goto Goto 6,360 Dest:OK -goto IL_11b7; -///Label Label 6,361 -case 221: -///Goto Goto 6,362 Dest:OK -goto IL_11bf; -///Label Label 6,363 -case 219: -///Label Label 6,364 -case 222: -///Label Label 6,365 -case 223: -///Label Label 6,366 -case 224: -///Goto Goto 6,367 Dest:OK -goto IL_11d9; -///Label Label 6,368 -case 225: -///Goto Goto 6,369 Dest:OK -goto IL_11f3; -///Label Label 6,370 -case 226: -///Label Label 6,371 -case 227: -///Goto Goto 6,372 Dest:OK -goto IL_1210; -///Label Label 6,373 -case 228: -///Goto Goto 6,374 Dest:OK -goto IL_1227; -///Label Label 6,375 -case 229: -///Goto Goto 6,376 Dest:OK -goto IL_123e; -///Label Label 6,377 -case 230: -///Goto Goto 6,378 Dest:OK -goto IL_129b; -///Label Label 6,379 -case 232: -///Label Label 6,380 -case 233: -///Goto Goto 6,381 Dest:OK -goto IL_12b7; -///Label Label 6,382 -case 234: -///Goto Goto 6,383 Dest:OK -goto IL_12e9; -///Label Label 6,384 -case 235: -///Label Label 6,385 -case 236: -///Goto Goto 6,386 Dest:OK -goto IL_1306; -///Label Label 6,387 -case 237: -///Goto Goto 6,388 Dest:OK -goto IL_1313; -///Label Label 6,389 -case 238: -///Goto Goto 6,390 Dest:OK -goto IL_1320; -///Label Label 6,391 -case 239: -///Goto Goto 6,392 Dest:OK -goto IL_138c; -///Label Label 6,393 -case 241: -///Label Label 6,394 -case 242: -///Goto Goto 6,395 Dest:OK -goto IL_13a8; -///Label Label 6,396 -case 244: -///Label Label 6,397 -case 246: -///Goto Goto 6,398 Dest:OK -goto IL_13e2; -///Label Label 6,399 -case 247: -///Goto Goto 6,400 Dest:OK -goto IL_1414; -///Label Label 6,401 -case 248: -///Label Label 6,402 -case 249: -///Goto Goto 6,403 Dest:OK -goto IL_1431; -///Label Label 6,404 -case 250: -///Goto Goto 6,405 Dest:OK -goto IL_146c; -///Label Label 6,406 -case 253: -///Label Label 6,407 -case 254: -///Goto Goto 6,408 Dest:OK -goto IL_148f; -///Label Label 6,409 -case 255: -///Goto Goto 6,410 Dest:OK -goto IL_14c1; -///Label Label 6,411 -case 256: -///Label Label 6,412 -case 257: -///Goto Goto 6,413 Dest:OK -goto IL_14de; -///Label Label 6,414 -case 258: -///Goto Goto 6,415 Dest:OK -goto IL_1519; -///Label Label 6,416 -case 261: -///Label Label 6,417 -case 262: -///Goto Goto 6,418 Dest:OK -goto IL_153c; -///Label Label 6,419 -case 263: -///Goto Goto 6,420 Dest:OK -goto IL_156e; -///Label Label 6,421 -case 264: -///Label Label 6,422 -case 265: -///Goto Goto 6,423 Dest:OK -goto IL_158b; -///Label Label 6,424 -case 266: -///Goto Goto 6,425 Dest:OK -goto IL_15c6; -///Label Label 6,426 -case 269: -///Label Label 6,427 -case 270: -///Goto Goto 6,428 Dest:OK -goto IL_15e9; -///Label Label 6,429 -case 271: -///Goto Goto 6,430 Dest:OK -goto IL_161b; -///Label Label 6,431 -case 272: -///Label Label 6,432 -case 273: -///Goto Goto 6,433 Dest:OK -goto IL_1638; -///Label Label 6,434 -case 274: -///Goto Goto 6,435 Dest:OK -goto IL_1673; -///Label Label 6,436 -case 277: -///Label Label 6,437 -case 278: -///Goto Goto 6,438 Dest:OK -goto IL_1696; -///Label Label 6,439 -case 279: -///Goto Goto 6,440 Dest:OK -goto IL_16c8; -///Label Label 6,441 -case 280: -///Label Label 6,442 -case 281: -///Goto Goto 6,443 Dest:OK -goto IL_16e5; -///Label Label 6,444 -case 282: -///Goto Goto 6,445 Dest:OK -goto IL_1720; -///Label Label 6,446 -case 285: -///Label Label 6,447 -case 286: -///Goto Goto 6,448 Dest:OK -goto IL_1743; -///Label Label 6,449 -case 287: -///Goto Goto 6,450 Dest:OK -goto IL_1775; -///Label Label 6,451 -case 288: -///Label Label 6,452 -case 289: -///Goto Goto 6,453 Dest:OK -goto IL_1792; -///Label Label 6,454 -case 290: -///Goto Goto 6,455 Dest:OK -goto IL_17cd; -///Label Label 6,456 -case 240: -///Label Label 6,457 -case 243: -///Label Label 6,458 -case 251: -///Label Label 6,459 -case 252: -///Label Label 6,460 -case 259: -///Label Label 6,461 -case 260: -///Label Label 6,462 -case 267: -///Label Label 6,463 -case 268: -///Label Label 6,464 -case 275: -///Label Label 6,465 -case 276: -///Label Label 6,466 -case 283: -///Label Label 6,467 -case 284: -///Label Label 6,468 -case 291: -///Label Label 6,469 -case 292: -///Label Label 6,470 -case 293: -///Goto Goto 6,471 Dest:OK -goto IL_17ec; -///Label Label 6,472 -case 294: -///Goto Goto 6,473 Dest:OK -goto IL_17f7; -///Label Label 6,474 -case 295: -///Goto Goto 6,475 Dest:OK -goto IL_1814; -///Label Label 6,476 -case 296: -///Goto Goto 6,477 Dest:OK -goto IL_181e; -///Label Label 6,478 -case 297: -///Goto Goto 6,479 Dest:OK -goto IL_188a; -///Label Label 6,480 -case 298: -///Goto Goto 6,481 Dest:OK -goto IL_18a7; -///Label Label 6,482 -case 299: -///Goto Goto 6,483 Dest:OK -goto IL_18d9; -///Label Label 6,484 -case 300: -///Label Label 6,485 -case 301: -///Goto Goto 6,486 Dest:OK -goto IL_18f0; -///Label Label 6,487 -case 302: -///Goto Goto 6,488 Dest:OK -goto IL_192b; -///Label Label 6,489 -case 303: -///Label Label 6,490 -case 304: -///Label Label 6,491 -case 305: -///Goto Goto 6,492 Dest:OK -goto IL_1943; -///Label Label 6,493 -case 200: -///Label Label 6,494 -case 231: -///Label Label 6,495 -case 306: -///Goto Goto 6,496 Dest:OK -goto IL_197c; -///Label Label 6,497 -case 307: -///Goto Goto 6,498 Dest:OK -goto IL_1987; -///Label Label 6,499 -case 308: -///Goto Goto 6,500 Dest:OK -goto IL_19ae; -///Label Label 6,501 -case 309: -///Goto Goto 6,502 Dest:OK -goto IL_19e7; -///Label Label 6,503 -case 310: -///Goto Goto 6,504 Dest:OK -goto IL_19ff; -///Label Label 6,505 -case 313: -///Label Label 6,506 -case 314: -///Goto Goto 6,507 Dest:OK -goto IL_1a3c; -///Label Label 6,508 -case 315: -///Goto Goto 6,509 Dest:OK -goto IL_1a54; -///Label Label 6,510 -case 316: -///Goto Goto 6,511 Dest:OK -goto IL_1a6c; -///Label Label 6,512 -case 317: -///Goto Goto 6,513 Dest:OK -goto IL_1a80; -///Label Label 6,514 -case 318: -///Goto Goto 6,515 Dest:OK -goto IL_1a94; -///Label Label 6,516 -case 321: -///Label Label 6,517 -case 322: -///Goto Goto 6,518 Dest:OK -goto IL_1aae; -///Label Label 6,519 -case 323: -///Goto Goto 6,520 Dest:OK -goto IL_1acb; -///Label Label 6,521 -case 324: -///Goto Goto 6,522 Dest:OK -goto IL_1aed; -///Label Label 6,523 -case 325: -///Goto Goto 6,524 Dest:OK -goto IL_1b1c; -///Label Label 6,525 -case 326: -///Goto Goto 6,526 Dest:OK -goto IL_1b4b; -///Label Label 6,527 -case 327: -///Goto Goto 6,528 Dest:OK -goto IL_1b7a; -///Label Label 6,529 -case 328: -///Goto Goto 6,530 Dest:OK -goto IL_1b92; -///Label Label 6,531 -case 330: -///Goto Goto 6,532 Dest:OK -goto IL_1bb9; -///Label Label 6,533 -case 331: -///Goto Goto 6,534 Dest:OK -goto IL_1bc1; -///Label Label 6,535 -case 329: -///Label Label 6,536 -case 332: -///Label Label 6,537 -case 333: -///Goto Goto 6,538 Dest:OK -goto IL_1be7; -///Label Label 6,539 -case 335: -///Label Label 6,540 -case 336: -///Goto Goto 6,541 Dest:OK -goto IL_1c00; -///Label Label 6,542 -case 337: -///Goto Goto 6,543 Dest:OK -goto IL_1c0e; -///Label Label 6,544 -case 338: -///Goto Goto 6,545 Dest:OK -goto IL_1c26; -///Label Label 6,546 -case 339: -///Goto Goto 6,547 Dest:OK -goto IL_1c44; -///Label Label 6,548 -case 340: -///Goto Goto 6,549 Dest:OK -goto IL_1c62; -///Label Label 6,550 -case 341: -///Goto Goto 6,551 Dest:OK -goto IL_1c80; -///Label Label 6,552 -case 342: -///Goto Goto 6,553 Dest:OK -goto IL_1c98; -///Label Label 6,554 -case 343: -///Label Label 6,555 -case 344: -///Goto Goto 6,556 Dest:OK -goto IL_1cb5; -///Label Label 6,557 -case 345: -///Goto Goto 6,558 Dest:OK -goto IL_1ccd; -///Label Label 6,559 -case 346: -///Label Label 6,560 -case 347: -///Goto Goto 6,561 Dest:OK -goto IL_1cea; -///Label Label 6,562 -case 348: -///Goto Goto 6,563 Dest:OK -goto IL_1d02; -///Label Label 6,564 -case 349: -///Label Label 6,565 -case 350: -///Goto Goto 6,566 Dest:OK -goto IL_1d1f; -///Label Label 6,567 -case 351: -///Goto Goto 6,568 Dest:OK -goto IL_1d2c; -///Label Label 6,569 -case 352: -///Goto Goto 6,570 Dest:OK -goto IL_1d4a; -///Label Label 6,571 -case 353: -///Goto Goto 6,572 Dest:OK -goto IL_1d6a; -///Label Label 6,573 -case 354: -///Goto Goto 6,574 Dest:OK -goto IL_1d74; -///Label Label 6,575 -case 356: -///Label Label 6,576 -case 357: -///Goto Goto 6,577 Dest:OK -goto IL_1d8f; -///Label Label 6,578 -case 358: -///Goto Goto 6,579 Dest:OK -goto IL_1da2; -///Label Label 6,580 -case 359: -///Goto Goto 6,581 Dest:OK -goto IL_1dc9; -///Label Label 6,582 -case 360: -///Goto Goto 6,583 Dest:OK -goto IL_1dfc; -///Label Label 6,584 -case 362: -///Label Label 6,585 -case 363: -///Goto Goto 6,586 Dest:OK -goto IL_1e3d; -///Label Label 6,587 -case 364: -///Goto Goto 6,588 Dest:OK -goto IL_1e51; -///Label Label 6,589 -case 365: -///Goto Goto 6,590 Dest:OK -goto IL_1e65; -///Label Label 6,591 -case 366: -///Goto Goto 6,592 Dest:OK -goto IL_1e79; -///Label Label 6,593 -case 367: -///Goto Goto 6,594 Dest:OK -goto IL_1e9f; -///Label Label 6,595 -case 368: -///Goto Goto 6,596 Dest:OK -goto IL_1ec2; -///Label Label 6,597 -case 369: -///Goto Goto 6,598 Dest:OK -goto IL_1ed5; -///Label Label 6,599 -case 370: -///Goto Goto 6,600 Dest:OK -goto IL_1ee2; -///Label Label 6,601 -case 371: -///Goto Goto 6,602 Dest:OK -goto IL_1ef0; -///Label Label 6,603 -case 372: -///Goto Goto 6,604 Dest:OK -goto IL_1f02; -///Label Label 6,605 -case 374: -///Label Label 6,606 -case 375: -///Goto Goto 6,607 Dest:OK -goto IL_1f1d; -///Label Label 6,608 -case 376: -///Goto Goto 6,609 Dest:OK -goto IL_1f34; -///Label Label 6,610 -case 377: -///Goto Goto 6,611 Dest:OK -goto IL_1f96; -///Label Label 6,612 -case 379: -///Label Label 6,613 -case 380: -///Goto Goto 6,614 Dest:OK -goto IL_1fb2; -///Label Label 6,615 -case 381: -///Goto Goto 6,616 Dest:OK -goto IL_1fbf; -///Label Label 6,617 -case 382: -///Goto Goto 6,618 Dest:OK -goto IL_1fd7; -///Label Label 6,619 -case 383: -///Goto Goto 6,620 Dest:OK -goto IL_1fe8; -///Label Label 6,621 -case 384: -///Goto Goto 6,622 Dest:OK -goto IL_1ff5; -///Label Label 6,623 -case 385: -///Goto Goto 6,624 Dest:OK -goto IL_201a; -///Label Label 6,625 -case 387: -///Goto Goto 6,626 Dest:OK -goto IL_2035; -///Label Label 6,627 -case 388: -///Goto Goto 6,628 Dest:OK -goto IL_203d; -///Label Label 6,629 -case 386: -///Label Label 6,630 -case 389: -///Label Label 6,631 -case 390: -///Goto Goto 6,632 Dest:OK -goto IL_2055; -///Label Label 6,633 -case 391: -///Label Label 6,634 -case 392: -///Goto Goto 6,635 Dest:OK -goto IL_206d; -///Label Label 6,636 -case 393: -///Goto Goto 6,637 Dest:OK -goto IL_2085; -///Label Label 6,638 -case 394: -///Goto Goto 6,639 Dest:OK -goto IL_2096; -///Label Label 6,640 -case 395: -///Goto Goto 6,641 Dest:OK -goto IL_20a3; -///Label Label 6,642 -case 396: -///Goto Goto 6,643 Dest:OK -goto IL_20c8; -///Label Label 6,644 -case 398: -///Goto Goto 6,645 Dest:OK -goto IL_20e4; -///Label Label 6,646 -case 399: -///Goto Goto 6,647 Dest:OK -goto IL_20ec; -///Label Label 6,648 -case 397: -///Label Label 6,649 -case 400: -///Label Label 6,650 -case 401: -///Label Label 6,651 -case 402: -///Goto Goto 6,652 Dest:OK -goto IL_2106; -///Label Label 6,653 -case 403: -///Goto Goto 6,654 Dest:OK -goto IL_2120; -///Label Label 6,655 -case 404: -///Label Label 6,656 -case 405: -///Goto Goto 6,657 Dest:OK -goto IL_213d; -///Label Label 6,658 -case 406: -///Goto Goto 6,659 Dest:OK -goto IL_2154; -///Label Label 6,660 -case 407: -///Goto Goto 6,661 Dest:OK -goto IL_216b; -///Label Label 6,662 -case 408: -///Goto Goto 6,663 Dest:OK -goto IL_21c8; -///Label Label 6,664 -case 410: -///Label Label 6,665 -case 411: -///Goto Goto 6,666 Dest:OK -goto IL_21e4; -///Label Label 6,667 -case 412: -///Goto Goto 6,668 Dest:OK -goto IL_2216; -///Label Label 6,669 -case 413: -///Label Label 6,670 -case 414: -///Goto Goto 6,671 Dest:OK -goto IL_2233; -///Label Label 6,672 -case 415: -///Goto Goto 6,673 Dest:OK -goto IL_2240; -///Label Label 6,674 -case 416: -///Goto Goto 6,675 Dest:OK -goto IL_224d; -///Label Label 6,676 -case 417: -///Goto Goto 6,677 Dest:OK -goto IL_22b9; -///Label Label 6,678 -case 419: -///Label Label 6,679 -case 420: -///Goto Goto 6,680 Dest:OK -goto IL_22d8; -///Label Label 6,681 -case 422: -///Label Label 6,682 -case 423: -///Goto Goto 6,683 Dest:OK -goto IL_22fa; -///Label Label 6,684 -case 378: -///Label Label 6,685 -case 409: -///Label Label 6,686 -case 421: -///Label Label 6,687 -case 424: -///Goto Goto 6,688 Dest:OK -goto IL_2317; -///Label Label 6,689 -case 425: -///Goto Goto 6,690 Dest:OK -goto IL_2322; -///Label Label 6,691 -case 426: -///Goto Goto 6,692 Dest:OK -goto IL_238e; -///Label Label 6,693 -case 428: -///Label Label 6,694 -case 429: -///Goto Goto 6,695 Dest:OK -goto IL_23aa; -///Label Label 6,696 -case 430: -///Goto Goto 6,697 Dest:OK -goto IL_23cf; -///Label Label 6,698 -case 431: -///Goto Goto 6,699 Dest:OK -goto IL_2407; -///Label Label 6,700 -case 373: -///Label Label 6,701 -case 418: -///Label Label 6,702 -case 427: -///Label Label 6,703 -case 432: -///Label Label 6,704 -case 433: -///Goto Goto 6,705 Dest:OK -goto IL_241f; -///Label Label 6,706 -case 434: -///Goto Goto 6,707 Dest:OK -goto IL_242a; -///Label Label 6,708 -case 435: -///Goto Goto 6,709 Dest:OK -goto IL_2451; -///Label Label 6,710 -case 438: -///Label Label 6,711 -case 439: -///Goto Goto 6,712 Dest:OK -goto IL_2496; -///Label Label 6,713 -case 440: -///Goto Goto 6,714 Dest:OK -goto IL_24ae; -///Label Label 6,715 -case 441: -///Goto Goto 6,716 Dest:OK -goto IL_24cc; -///Label Label 6,717 -case 442: -///Goto Goto 6,718 Dest:OK -goto IL_24f0; -///Label Label 6,719 -case 443: -///Goto Goto 6,720 Dest:OK -goto IL_2514; -///Label Label 6,721 -case 444: -///Goto Goto 6,722 Dest:OK -goto IL_2522; -///Label Label 6,723 -case 445: -///Goto Goto 6,724 Dest:OK -goto IL_2541; -///Label Label 6,725 -case 446: -///Goto Goto 6,726 Dest:OK -goto IL_2564; -///Label Label 6,727 -case 447: -///Goto Goto 6,728 Dest:OK -goto IL_256e; -///Label Label 6,729 -case 449: -///Label Label 6,730 -case 450: -///Goto Goto 6,731 Dest:OK -goto IL_2589; -///Label Label 6,732 -case 451: -///Goto Goto 6,733 Dest:OK -goto IL_25a0; -///Label Label 6,734 -case 452: -///Goto Goto 6,735 Dest:OK -goto IL_25b3; -///Label Label 6,736 -case 453: -///Goto Goto 6,737 Dest:OK -goto IL_25da; -///Label Label 6,738 -case 455: -///Label Label 6,739 -case 456: -///Goto Goto 6,740 Dest:OK -goto IL_25f2; -///Label Label 6,741 -case 457: -///Goto Goto 6,742 Dest:OK -goto IL_2625; -///Label Label 6,743 -case 459: -///Label Label 6,744 -case 460: -///Goto Goto 6,745 Dest:OK -goto IL_2666; -///Label Label 6,746 -case 461: -///Goto Goto 6,747 Dest:OK -goto IL_267a; -///Label Label 6,748 -case 462: -///Goto Goto 6,749 Dest:OK -goto IL_268e; -///Label Label 6,750 -case 463: -///Goto Goto 6,751 Dest:OK -goto IL_26a2; -///Label Label 6,752 -case 464: -///Goto Goto 6,753 Dest:OK -goto IL_26c1; -///Label Label 6,754 -case 465: -///Goto Goto 6,755 Dest:OK -goto IL_26e3; -///Label Label 6,756 -case 466: -///Goto Goto 6,757 Dest:OK -goto IL_26f6; -///Label Label 6,758 -case 467: -///Goto Goto 6,759 Dest:OK -goto IL_2703; -///Label Label 6,760 -case 468: -///Goto Goto 6,761 Dest:OK -goto IL_2715; -///Label Label 6,762 -case 470: -///Label Label 6,763 -case 471: -///Goto Goto 6,764 Dest:OK -goto IL_2730; -///Label Label 6,765 -case 472: -///Goto Goto 6,766 Dest:OK -goto IL_2792; -///Label Label 6,767 -case 474: -///Label Label 6,768 -case 475: -///Goto Goto 6,769 Dest:OK -goto IL_27ae; -///Label Label 6,770 -case 476: -///Goto Goto 6,771 Dest:OK -goto IL_27bb; -///Label Label 6,772 -case 477: -///Goto Goto 6,773 Dest:OK -goto IL_27f5; -///Label Label 6,774 -case 478: -///Goto Goto 6,775 Dest:OK -goto IL_2803; -///Label Label 6,776 -case 479: -///Goto Goto 6,777 Dest:OK -goto IL_2811; -///Label Label 6,778 -case 480: -///Goto Goto 6,779 Dest:OK -goto IL_282d; -///Label Label 6,780 -case 481: -///Goto Goto 6,781 Dest:OK -goto IL_2849; -///Label Label 6,782 -case 482: -///Goto Goto 6,783 Dest:OK -goto IL_286e; -///Label Label 6,784 -case 483: -///Goto Goto 6,785 Dest:OK -goto IL_287b; -///Label Label 6,786 -case 484: -///Goto Goto 6,787 Dest:OK -goto IL_2889; -///Label Label 6,788 -case 486: -///Label Label 6,789 -case 487: -///Goto Goto 6,790 Dest:OK -goto IL_28b9; -///Label Label 6,791 -case 489: -///Label Label 6,792 -case 490: -///Goto Goto 6,793 Dest:OK -goto IL_28e9; -///Label Label 6,794 -case 492: -///Label Label 6,795 -case 493: -///Goto Goto 6,796 Dest:OK -goto IL_2919; -///Label Label 6,797 -case 495: -///Label Label 6,798 -case 496: -///Goto Goto 6,799 Dest:OK -goto IL_2949; -///Label Label 6,800 -case 497: -///Goto Goto 6,801 Dest:OK -goto IL_2956; -///Label Label 6,802 -case 498: -///Goto Goto 6,803 Dest:OK -goto IL_296d; -///Label Label 6,804 -case 499: -///Goto Goto 6,805 Dest:OK -goto IL_29d0; -///Label Label 6,806 -case 501: -///Label Label 6,807 -case 502: -///Goto Goto 6,808 Dest:OK -goto IL_29ec; -///Label Label 6,809 -case 504: -///Label Label 6,810 -case 506: -///Goto Goto 6,811 Dest:OK -goto IL_2a16; -///Label Label 6,812 -case 507: -///Goto Goto 6,813 Dest:OK -goto IL_2a48; -///Label Label 6,814 -case 508: -///Label Label 6,815 -case 509: -///Goto Goto 6,816 Dest:OK -goto IL_2a65; -///Label Label 6,817 -case 511: -///Label Label 6,818 -case 512: -///Goto Goto 6,819 Dest:OK -goto IL_2a9c; -///Label Label 6,820 -case 514: -///Label Label 6,821 -case 515: -///Goto Goto 6,822 Dest:OK -goto IL_2ad3; -///Label Label 6,823 -case 516: -///Goto Goto 6,824 Dest:OK -goto IL_2b0e; -///Label Label 6,825 -case 519: -///Label Label 6,826 -case 520: -///Goto Goto 6,827 Dest:OK -goto IL_2b31; -///Label Label 6,828 -case 521: -///Goto Goto 6,829 Dest:OK -goto IL_2b63; -///Label Label 6,830 -case 522: -///Label Label 6,831 -case 523: -///Goto Goto 6,832 Dest:OK -goto IL_2b80; -///Label Label 6,833 -case 525: -///Label Label 6,834 -case 526: -///Goto Goto 6,835 Dest:OK -goto IL_2bb7; -///Label Label 6,836 -case 528: -///Label Label 6,837 -case 529: -///Goto Goto 6,838 Dest:OK -goto IL_2bee; -///Label Label 6,839 -case 530: -///Goto Goto 6,840 Dest:OK -goto IL_2c29; -///Label Label 6,841 -case 533: -///Label Label 6,842 -case 534: -///Goto Goto 6,843 Dest:OK -goto IL_2c4c; -///Label Label 6,844 -case 535: -///Goto Goto 6,845 Dest:OK -goto IL_2c7e; -///Label Label 6,846 -case 536: -///Label Label 6,847 -case 537: -///Goto Goto 6,848 Dest:OK -goto IL_2c9b; -///Label Label 6,849 -case 539: -///Label Label 6,850 -case 540: -///Goto Goto 6,851 Dest:OK -goto IL_2cd2; -///Label Label 6,852 -case 542: -///Label Label 6,853 -case 543: -///Goto Goto 6,854 Dest:OK -goto IL_2d09; -///Label Label 6,855 -case 544: -///Goto Goto 6,856 Dest:OK -goto IL_2d44; -///Label Label 6,857 -case 500: -///Label Label 6,858 -case 503: -///Label Label 6,859 -case 517: -///Label Label 6,860 -case 518: -///Label Label 6,861 -case 531: -///Label Label 6,862 -case 532: -///Label Label 6,863 -case 545: -///Label Label 6,864 -case 546: -///Label Label 6,865 -case 547: -///Goto Goto 6,866 Dest:OK -goto IL_2d63; -///Label Label 6,867 -case 548: -///Goto Goto 6,868 Dest:OK -goto IL_2d6e; -///Label Label 6,869 -case 550: -///Operation Operation 6,870 -num = 550; -///Operation Operation 6,871 -Modul1.PersInArbsp = Modul1.PersInArb; -///Goto Goto 6,872 Dest:OK -goto case 551; -///Label Label 6,873 1 -case 551: -///Operation Operation 6,874 -num = 551; -///Operation Operation 6,875 -Modul1.Kenn = 1f; -///Goto Goto 6,876 Dest:OK -goto case 552; -///Label Label 6,877 1 -case 552: -///Operation Operation 6,878 -num = 552; -///Operation Operation 6,879 -if ((DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.Sex)].AsString() == "F")) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 553; -///BlockEnd Block 7,2 -} -///Goto Goto 6,880 Dest:OK -goto case 554; -///Label Label 6,881 1 -case 553: -///Operation Operation 6,882 -num = 553; -///Operation Operation 6,883 -Modul1.Kenn = 2f; -///Goto Goto 6,884 Dest:OK -goto case 554; -///Label Label 6,885 2 -case 554: -///Label Label 6,886 -case 555: -///Operation Operation 6,887 -num = 555; -///Operation Operation 6,888 -DataModul.DB_LinkTable.Index = nameof(DataModul.LinkIndex.ElSu); -///Goto Goto 6,889 Dest:OK -goto case 556; -///Label Label 6,890 1 -case 556: -///Operation Operation 6,891 -num = 556; -///Operation Operation 6,892 -DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), Modul1.Kenn); -///Goto Goto 6,893 Dest:OK -goto case 557; -///Label Label 6,894 1 -case 557: -///Operation Operation 6,895 -num = 557; -///Operation Operation 6,896 -if (!DataModul.DB_LinkTable.NoMatch) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 559; -///BlockEnd Block 7,2 -} -///Goto Goto 6,897 Dest:OK -goto IL_3320; -///Label Label 6,898 1 -case 559: -///Operation Operation 6,899 -num = 559; -///Goto Goto 6,900 Dest:OK -goto case 560; -///Label Label 6,901 1 -case 560: -///Operation Operation 6,902 -num = 560; -///Operation Operation 6,903 -Modul1.FamInArb = DataModul.DB_LinkTable.Fields[nameof(DataModul.LinkFields.FamNr)].Value.AsInt(); -///Goto Goto 6,904 Dest:OK -goto case 561; -///Label Label 6,905 1 -case 561: -///Operation Operation 6,906 -num = 561; -///Operation Operation 6,907 -MainProject.Forms.Familie.Famles(Modul1.FamInArb); -///Goto Goto 6,908 Dest:OK -goto case 562; -///Label Label 6,909 1 -case 562: -///Operation Operation 6,910 -num = 562; -///Operation Operation 6,911 -if (Modul1.Kenn == 1f) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 563; -///BlockEnd Block 7,2 -} -///Goto Goto 6,912 Dest:OK -goto case 565; -///Label Label 6,913 1 -case 563: -///Operation Operation 6,914 -num = 563; -///Operation Operation 6,915 -Modul1.PersInArb = Modul1.Family.Frau; -///Goto Goto 6,916 Dest:OK -goto case 564; -///Label Label 6,917 1 -case 565: -///Operation Operation 6,918 -num = 565; -///Operation Operation 6,919 -if (Modul1.Kenn == 2f) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 566; -///BlockEnd Block 7,2 -} -///Goto Goto 6,920 Dest:OK -goto case 564; -///Label Label 6,921 1 -case 566: -///Operation Operation 6,922 -num = 566; -///Operation Operation 6,923 -Modul1.PersInArb = Modul1.Family.Mann; -///Goto Goto 6,924 Dest:OK -goto case 564; -///Label Label 6,925 3 -case 564: -///Label Label 6,926 -case 567: -///Label Label 6,927 -case 568: -///Operation Operation 6,928 -num = 568; -///Operation Operation 6,929 -DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.ArtNr); -///Goto Goto 6,930 Dest:OK -goto case 569; -///Label Label 6,931 1 -case 569: -///Operation Operation 6,932 -num = 569; -///Operation Operation 6,933 -Modul1.I = 101; -///Goto Goto 6,934 Dest:OK -goto case 570; -///Label Label 6,935 2 -case 570: -///Operation Operation 6,936 -num = 570; -///Operation Operation 6,937 -Modul1.Ubg = Modul1.I; -///Goto Goto 6,938 Dest:OK -goto case 571; -///Label Label 6,939 1 -case 571: -///Operation Operation 6,940 -num = 571; -///Operation Operation 6,941 -DataModul.DB_EventTable.Seek("=", Modul1.Ubg.AsString(), Modul1.PersInArb.AsString(), "0"); -///Goto Goto 6,942 Dest:OK -goto case 572; -///Label Label 6,943 1 -case 572: -///Operation Operation 6,944 -num = 572; -///Operation Operation 6,945 -if (!DataModul.DB_EventTable.NoMatch) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 574; -///BlockEnd Block 7,2 -} -///Goto Goto 6,946 Dest:OK -goto case 573; -///Label Label 6,947 1 -case 574: -///Label Label 6,948 -case 575: -///Operation Operation 6,949 -num = 575; -///Operation Operation 6,950 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 576; -///BlockEnd Block 7,2 -} -///Goto Goto 6,951 Dest:OK -goto case 573; -///Label Label 6,952 1 -case 576: -///Operation Operation 6,953 -num = 576; -///Operation Operation 6,954 -if (Conversions.ToDouble(Strings.Trim(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsString())) > 0.0) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 577; -///BlockEnd Block 7,2 -} -///Goto Goto 6,955 Dest:OK -goto case 573; -///Label Label 6,956 1 -case 577: -///Operation Operation 6,957 -num = 577; -///Operation Operation 6,958 -transdat = DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].Value.AsInt(); -///Goto Goto 6,959 Dest:OK -goto case 578; -///Label Label 6,960 1 -case 578: -///Operation Operation 6,961 -num = 578; -///Operation Operation 6,962 -neuedat(); -///Goto Goto 6,963 Dest:OK -goto IL_3395; -///Label Label 6,964 3 -case 573: -///Label Label 6,965 -case 580: -///Label Label 6,966 -case 581: -///Label Label 6,967 -case 582: -///Operation Operation 6,968 -num = 582; -///Operation Operation 6,969 -lErl = 6; -///Goto Goto 6,970 Dest:OK -goto case 583; -///Label Label 6,971 1 -case 583: -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -num = 583; -///Operation Operation 7,2 -Modul1.I++; -///Operation Operation 7,3 -int i = Modul1.I; -///Operation Operation 7,4 -num5 = 102; -///Operation Operation 7,5 -if (i <= num5) -///BlockStart Block 8,0 -{ -///Goto Goto 8,1 Dest:OK -goto case 570; -///BlockEnd Block 8,2 -} -///Goto Goto 7,6 Dest:OK -goto case 584; -///BlockEnd Block 7,7 -} -///Label Label 6,972 1 -case 584: -///Operation Operation 6,973 -num = 584; -///Operation Operation 6,974 -num6 = 30000000; -///Goto Goto 6,975 Dest:OK -goto case 585; -///Label Label 6,976 1 -case 585: -///Operation Operation 6,977 -num = 585; -///Operation Operation 6,978 -this.A = 1; -///Goto Goto 6,979 Dest:OK -goto case 586; -///Label Label 6,980 2 -case 586: -///Operation Operation 6,981 -num = 586; -///Operation Operation 6,982 -if (Modul1.Family.Kind[this.A] > 0) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 587; -///BlockEnd Block 7,2 -} -///Goto Goto 6,983 Dest:OK -goto case 598; -///Label Label 6,984 1 -case 587: -///Operation Operation 6,985 -num = 587; -///Operation Operation 6,986 -Modul1.I = 101; -///Goto Goto 6,987 Dest:OK -goto case 588; -///Label Label 6,988 2 -case 588: -///Operation Operation 6,989 -num = 588; -///Operation Operation 6,990 -DataModul.DB_EventTable.Seek("=", Modul1.I.AsString(), Modul1.Family.Kind[this.A].AsString(), "0"); -///Goto Goto 6,991 Dest:OK -goto case 589; -///Label Label 6,992 1 -case 589: -///Operation Operation 6,993 -num = 589; -///Operation Operation 6,994 -if (!DataModul.DB_EventTable.NoMatch) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 590; -///BlockEnd Block 7,2 -} -///Goto Goto 6,995 Dest:OK -goto case 593; -///Label Label 6,996 1 -case 590: -///Operation Operation 6,997 -num = 590; -///Operation Operation 6,998 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].Value) > 0.0) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 591; -///BlockEnd Block 7,2 -} -///Goto Goto 6,999 Dest:OK -goto case 593; -///Label Label 6,1000 1 -case 591: -///Operation Operation 6,1001 -num = 591; -///Operation Operation 6,1002 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].Value) < num6) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 592; -///BlockEnd Block 7,2 -} -///Goto Goto 6,1003 Dest:OK -goto case 593; -///Label Label 6,1004 1 -case 592: -///Operation Operation 6,1005 -num = 592; -///Operation Operation 6,1006 -num6 = (int)Math.Round(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].Value)); -///Goto Goto 6,1007 Dest:OK -goto case 593; -///Label Label 6,1008 4 -case 593: -///Label Label 6,1009 -case 594: -///Label Label 6,1010 -case 595: -///Label Label 6,1011 -case 596: -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -num = 596; -///Operation Operation 7,2 -Modul1.I++; -///Operation Operation 7,3 -int i2 = Modul1.I; -///Operation Operation 7,4 -num5 = 102; -///Operation Operation 7,5 -if (i2 <= num5) -///BlockStart Block 8,0 -{ -///Goto Goto 8,1 Dest:OK -goto case 588; -///BlockEnd Block 8,2 -} -///Goto Goto 7,6 Dest:OK -goto case 597; -///BlockEnd Block 7,7 -} -///Label Label 6,1012 1 -case 598: -///Operation Operation 6,1013 -num = 598; -///Goto Goto 6,1014 Dest:OK -goto case 599; -///Label Label 6,1015 1 -case 597: -///Label Label 6,1016 -case 600: -///Label Label 6,1017 -case 601: -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -num = 601; -///Operation Operation 7,2 -this.A++; -///Operation Operation 7,3 -int a = this.A; -///Operation Operation 7,4 -num5 = 99; -///Operation Operation 7,5 -if (a <= num5) -///BlockStart Block 8,0 -{ -///Goto Goto 8,1 Dest:OK -goto case 586; -///BlockEnd Block 8,2 -} -///Goto Goto 7,6 Dest:OK -goto case 599; -///BlockEnd Block 7,7 -} -///Label Label 6,1018 2 -case 599: -///Label Label 6,1019 -case 602: -///Operation Operation 6,1020 -num = 602; -///Operation Operation 6,1021 -if (num6 < 30000000) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 603; -///BlockEnd Block 7,2 -} -///Goto Goto 6,1022 Dest:OK -goto IL_32fc; -///Label Label 6,1023 1 -case 603: -///Operation Operation 6,1024 -num = 603; -///Operation Operation 6,1025 -transdat = Conversions.ToInteger(Conversion.Str(Conversions.ToDouble((num6).AsString().Left( 4)) - 25.0) + "0000"); -///Goto Goto 6,1026 Dest:OK -goto case 604; -///Label Label 6,1027 1 -case 604: -///Operation Operation 6,1028 -num = 604; -///Operation Operation 6,1029 -neuedat(); -///Goto Goto 6,1030 Dest:OK -goto IL_32fc; -///Label Label 6,1031 -case 549: -///Label Label 6,1032 -case 605: -///Label Label 6,1033 -case 606: -///Goto Goto 6,1034 Dest:OK -goto IL_32fc; -///Label Label 6,1035 -case 607: -///Goto Goto 6,1036 Dest:OK -goto IL_3307; -///Label Label 6,1037 -case 558: -///Label Label 6,1038 -case 608: -///Label Label 6,1039 -case 609: -///Goto Goto 6,1040 Dest:OK -goto IL_3320; -///Label Label 6,1041 -case 610: -///Goto Goto 6,1042 Dest:OK -goto IL_3348; -///Label Label 6,1043 -case 611: -///Label Label 6,1044 -case 612: -///Goto Goto 6,1045 Dest:OK -goto IL_3383; -///Label Label 6,1046 -case 473: -///Label Label 6,1047 -case 485: -///Label Label 6,1048 -case 488: -///Label Label 6,1049 -case 491: -///Label Label 6,1050 -case 494: -///Label Label 6,1051 -case 510: -///Label Label 6,1052 -case 513: -///Label Label 6,1053 -case 524: -///Label Label 6,1054 -case 527: -///Label Label 6,1055 -case 538: -///Label Label 6,1056 -case 541: -///Label Label 6,1057 -case 579: -///Label Label 6,1058 -case 613: -///Goto Goto 6,1059 Dest:OK -goto IL_3395; -///Label Label 6,1060 -case 614: -///Goto Goto 6,1061 Dest:OK -goto IL_33a0; -///Label Label 6,1062 -case 615: -///Goto Goto 6,1063 Dest:OK -goto IL_33c7; -///Label Label 6,1064 -case 617: -///Label Label 6,1065 -case 618: -///Goto Goto 6,1066 Dest:OK -goto IL_3406; -///Label Label 6,1067 -case 619: -///Goto Goto 6,1068 Dest:OK -goto IL_341e; -///Label Label 6,1069 -case 620: -///Goto Goto 6,1070 Dest:OK -goto IL_343f; -///Label Label 6,1071 -case 621: -///Goto Goto 6,1072 Dest:OK -goto IL_345d; -///Label Label 6,1073 -case 622: -///Goto Goto 6,1074 Dest:OK -goto IL_3467; -///Label Label 6,1075 -case 624: -///Label Label 6,1076 -case 625: -///Goto Goto 6,1077 Dest:OK -goto IL_3482; -///Label Label 6,1078 -case 626: -///Goto Goto 6,1079 Dest:OK -goto IL_3499; -///Label Label 6,1080 -case 627: -///Goto Goto 6,1081 Dest:OK -goto IL_34ac; -///Label Label 6,1082 -case 628: -///Goto Goto 6,1083 Dest:OK -goto IL_34d3; -///Label Label 6,1084 -case 630: -///Label Label 6,1085 -case 631: -///Goto Goto 6,1086 Dest:OK -goto IL_34eb; -///Label Label 6,1087 -case 632: -///Goto Goto 6,1088 Dest:OK -goto IL_351e; -///Label Label 6,1089 -case 634: -///Label Label 6,1090 -case 635: -///Goto Goto 6,1091 Dest:OK -goto IL_355f; -///Label Label 6,1092 -case 636: -///Goto Goto 6,1093 Dest:OK -goto IL_357d; -///Label Label 6,1094 -case 637: -///Goto Goto 6,1095 Dest:OK -goto IL_358a; -///Label Label 6,1096 -case 638: -///Goto Goto 6,1097 Dest:OK -goto IL_359e; -///Label Label 6,1098 -case 639: -///Goto Goto 6,1099 Dest:OK -goto IL_35b2; -///Label Label 6,1100 -case 640: -///Goto Goto 6,1101 Dest:OK -goto IL_35c6; -///Label Label 6,1102 -case 641: -///Goto Goto 6,1103 Dest:OK -goto IL_35e5; -///Label Label 6,1104 -case 642: -///Goto Goto 6,1105 Dest:OK -goto IL_3607; -///Label Label 6,1106 -case 643: -///Goto Goto 6,1107 Dest:OK -goto IL_361a; -///Label Label 6,1108 -case 644: -///Goto Goto 6,1109 Dest:OK -goto IL_3627; -///Label Label 6,1110 -case 645: -///Goto Goto 6,1111 Dest:OK -goto IL_3639; -///Label Label 6,1112 -case 646: -///Goto Goto 6,1113 Dest:OK -goto IL_364b; -///Label Label 6,1114 -case 648: -///Label Label 6,1115 -case 649: -///Goto Goto 6,1116 Dest:OK -goto IL_3666; -///Label Label 6,1117 -case 650: -///Goto Goto 6,1118 Dest:OK -goto IL_36c8; -///Label Label 6,1119 -case 652: -///Label Label 6,1120 -case 653: -///Goto Goto 6,1121 Dest:OK -goto IL_36e4; -///Label Label 6,1122 -case 654: -///Goto Goto 6,1123 Dest:OK -goto IL_36f2; -///Label Label 6,1124 -case 655: -///Goto Goto 6,1125 Dest:OK -goto IL_3700; -///Label Label 6,1126 -case 656: -///Goto Goto 6,1127 Dest:OK -goto IL_370e; -///Label Label 6,1128 -case 657: -///Goto Goto 6,1129 Dest:OK -goto IL_371f; -///Label Label 6,1130 -case 658: -///Goto Goto 6,1131 Dest:OK -goto IL_3736; -///Label Label 6,1132 -case 659: -///Goto Goto 6,1133 Dest:OK -goto IL_379d; -///Label Label 6,1134 -case 660: -///Goto Goto 6,1135 Dest:OK -goto IL_37b4; -///Label Label 6,1136 -case 661: -///Label Label 6,1137 -case 662: -///Goto Goto 6,1138 Dest:OK -goto IL_37c2; -///Label Label 6,1139 -case 663: -///Goto Goto 6,1140 Dest:OK -goto IL_37d3; -///Label Label 6,1141 -case 664: -///Goto Goto 6,1142 Dest:OK -goto IL_37e0; -///Label Label 6,1143 -case 665: -///Goto Goto 6,1144 Dest:OK -goto IL_3811; -///Label Label 6,1145 -case 666: -///Label Label 6,1146 -case 667: -///Goto Goto 6,1147 Dest:OK -goto IL_3822; -///Label Label 6,1148 -case 668: -///Goto Goto 6,1149 Dest:OK -goto IL_3839; -///Label Label 6,1150 -case 669: -///Goto Goto 6,1151 Dest:OK -goto IL_38a0; -///Label Label 6,1152 -case 670: -///Goto Goto 6,1153 Dest:OK -goto IL_38b7; -///Label Label 6,1154 -case 671: -///Label Label 6,1155 -case 672: -///Goto Goto 6,1156 Dest:OK -goto IL_38c5; -///Label Label 6,1157 -case 673: -///Goto Goto 6,1158 Dest:OK -goto IL_38e8; -///Label Label 6,1159 -case 674: -///Goto Goto 6,1160 Dest:OK -goto IL_38f5; -///Label Label 6,1161 -case 675: -///Goto Goto 6,1162 Dest:OK -goto IL_3935; -///Label Label 6,1163 -case 676: -///Goto Goto 6,1164 Dest:OK -goto IL_394b; -///Label Label 6,1165 -case 677: -///Label Label 6,1166 -case 678: -///Goto Goto 6,1167 Dest:OK -goto IL_3962; -///Label Label 6,1168 -case 679: -///Goto Goto 6,1169 Dest:OK -goto IL_3978; -///Label Label 6,1170 -case 680: -///Label Label 6,1171 -case 681: -///Goto Goto 6,1172 Dest:OK -goto IL_398f; -///Label Label 6,1173 -case 682: -///Goto Goto 6,1174 Dest:OK -goto IL_39f2; -///Label Label 6,1175 -case 683: -///Goto Goto 6,1176 Dest:OK -goto IL_3a0c; -///Label Label 6,1177 -case 684: -///Label Label 6,1178 -case 685: -///Goto Goto 6,1179 Dest:OK -goto IL_3a23; -///Label Label 6,1180 -case 686: -///Goto Goto 6,1181 Dest:OK -goto IL_3a86; -///Label Label 6,1182 -case 687: -///Goto Goto 6,1183 Dest:OK -goto IL_3aa0; -///Label Label 6,1184 -case 688: -///Label Label 6,1185 -case 689: -///Goto Goto 6,1186 Dest:OK -goto IL_3ab7; -///Label Label 6,1187 -case 690: -///Goto Goto 6,1188 Dest:OK -goto IL_3b1a; -///Label Label 6,1189 -case 691: -///Goto Goto 6,1190 Dest:OK -goto IL_3b34; -///Label Label 6,1191 -case 692: -///Label Label 6,1192 -case 693: -///Goto Goto 6,1193 Dest:OK -goto IL_3b4b; -///Label Label 6,1194 -case 694: -///Goto Goto 6,1195 Dest:OK -goto IL_3bae; -///Label Label 6,1196 -case 695: -///Goto Goto 6,1197 Dest:OK -goto IL_3bc8; -///Label Label 6,1198 -case 696: -///Label Label 6,1199 -case 697: -///Goto Goto 6,1200 Dest:OK -goto IL_3bdf; -///Label Label 6,1201 -case 698: -///Goto Goto 6,1202 Dest:OK -goto IL_3c42; -///Label Label 6,1203 -case 699: -///Goto Goto 6,1204 Dest:OK -goto IL_3c5c; -///Label Label 6,1205 -case 700: -///Label Label 6,1206 -case 701: -///Goto Goto 6,1207 Dest:OK -goto IL_3c73; -///Label Label 6,1208 -case 702: -///Goto Goto 6,1209 Dest:OK -goto IL_3cd7; -///Label Label 6,1210 -case 703: -///Goto Goto 6,1211 Dest:OK -goto IL_3cf1; -///Label Label 6,1212 -case 704: -///Label Label 6,1213 -case 705: -///Goto Goto 6,1214 Dest:OK -goto IL_3d08; -///Label Label 6,1215 -case 706: -///Goto Goto 6,1216 Dest:OK -goto IL_3d1f; -///Label Label 6,1217 -case 707: -///Goto Goto 6,1218 Dest:OK -goto IL_3d7c; -///Label Label 6,1219 -case 708: -///Goto Goto 6,1220 Dest:OK -goto IL_3d96; -///Label Label 6,1221 -case 709: -///Label Label 6,1222 -case 710: -///Goto Goto 6,1223 Dest:OK -goto IL_3dad; -///Label Label 6,1224 -case 651: -///Label Label 6,1225 -case 711: -///Label Label 6,1226 -case 712: -///Goto Goto 6,1227 Dest:OK -goto IL_3de8; -///Label Label 6,1228 -case 713: -///Goto Goto 6,1229 Dest:OK -goto IL_3e0f; -///Label Label 6,1230 -case 715: -///Label Label 6,1231 -case 716: -///Goto Goto 6,1232 Dest:OK -goto IL_3e4e; -///Label Label 6,1233 -case 717: -///Goto Goto 6,1234 Dest:OK -goto IL_3e62; -///Label Label 6,1235 -case 718: -///Goto Goto 6,1236 Dest:OK -goto IL_3e7a; -///Label Label 6,1237 -case 719: -///Goto Goto 6,1238 Dest:OK -goto IL_3e84; -///Label Label 6,1239 -case 721: -///Label Label 6,1240 -case 722: -///Goto Goto 6,1241 Dest:OK -goto IL_3e9f; -///Label Label 6,1242 -case 723: -///Goto Goto 6,1243 Dest:OK -goto IL_3ebd; -///Label Label 6,1244 -case 724: -///Goto Goto 6,1245 Dest:OK -goto IL_3edb; -///Label Label 6,1246 -case 725: -///Goto Goto 6,1247 Dest:OK -goto IL_3ef9; -///Label Label 6,1248 -case 726: -///Goto Goto 6,1249 Dest:OK -goto IL_3f16; -///Label Label 6,1250 -case 727: -///Goto Goto 6,1251 Dest:OK -goto IL_3f33; -///Label Label 6,1252 -case 728: -///Goto Goto 6,1253 Dest:OK -goto IL_3f45; -///Label Label 6,1254 -case 729: -///Goto Goto 6,1255 Dest:OK -goto IL_3f5c; -///Label Label 6,1256 -case 730: -///Goto Goto 6,1257 Dest:OK -goto IL_3fb6; -///Label Label 6,1258 -case 731: -///Goto Goto 6,1259 Dest:OK -goto IL_3fc4; -///Label Label 6,1260 -case 734: -///Goto Goto 6,1261 Dest:OK -goto IL_3fe6; -///Label Label 6,1262 -case 735: -///Goto Goto 6,1263 Dest:OK -goto IL_3ffb; -///Label Label 6,1264 -case 736: -///Goto Goto 6,1265 Dest:OK -goto IL_4044; -///Label Label 6,1266 -case 737: -///Goto Goto 6,1267 Dest:OK -goto IL_4076; -///Label Label 6,1268 -case 738: -///Label Label 6,1269 -case 739: -///Goto Goto 6,1270 Dest:OK -goto IL_4091; -///Label Label 6,1271 -case 740: -///Goto Goto 6,1272 Dest:OK -goto IL_40c3; -///Label Label 6,1273 -case 741: -///Label Label 6,1274 -case 742: -///Goto Goto 6,1275 Dest:OK -goto IL_40de; -///Label Label 6,1276 -case 743: -///Goto Goto 6,1277 Dest:OK -goto IL_4110; -///Label Label 6,1278 -case 744: -///Label Label 6,1279 -case 745: -///Goto Goto 6,1280 Dest:OK -goto IL_412b; -///Label Label 6,1281 -case 746: -///Goto Goto 6,1282 Dest:OK -goto IL_415d; -///Label Label 6,1283 -case 747: -///Label Label 6,1284 -case 748: -///Goto Goto 6,1285 Dest:OK -goto IL_4178; -///Label Label 6,1286 -case 749: -///Goto Goto 6,1287 Dest:OK -goto IL_41aa; -///Label Label 6,1288 -case 750: -///Label Label 6,1289 -case 751: -///Goto Goto 6,1290 Dest:OK -goto IL_41c5; -///Label Label 6,1291 -case 752: -///Goto Goto 6,1292 Dest:OK -goto IL_4203; -///Label Label 6,1293 -case 753: -///Label Label 6,1294 -case 754: -///Goto Goto 6,1295 Dest:OK -goto IL_421e; -///Label Label 6,1296 -case 755: -///Goto Goto 6,1297 Dest:OK -goto IL_4259; -///Label Label 6,1298 -case 756: -///Label Label 6,1299 -case 757: -///Goto Goto 6,1300 Dest:OK -goto IL_4274; -///Label Label 6,1301 -case 758: -///Goto Goto 6,1302 Dest:OK -goto IL_42af; -///Label Label 6,1303 -case 759: -///Label Label 6,1304 -case 760: -///Goto Goto 6,1305 Dest:OK -goto IL_42ca; -///Label Label 6,1306 -case 761: -///Goto Goto 6,1307 Dest:OK -goto IL_4308; -///Label Label 6,1308 -case 762: -///Label Label 6,1309 -case 763: -///Goto Goto 6,1310 Dest:OK -goto IL_4323; -///Label Label 6,1311 -case 764: -///Goto Goto 6,1312 Dest:OK -goto IL_4361; -///Label Label 6,1313 -case 765: -///Label Label 6,1314 -case 766: -///Goto Goto 6,1315 Dest:OK -goto IL_437c; -///Label Label 6,1316 -case 767: -///Goto Goto 6,1317 Dest:OK -goto IL_43ba; -///Label Label 6,1318 -case 768: -///Label Label 6,1319 -case 769: -///Goto Goto 6,1320 Dest:OK -goto IL_43d5; -///Label Label 6,1321 -case 770: -///Goto Goto 6,1322 Dest:OK -goto IL_43f2; -///Label Label 6,1323 -case 771: -///Goto Goto 6,1324 Dest:OK -goto IL_4407; -///Label Label 6,1325 -case 732: -///Label Label 6,1326 -case 733: -///Label Label 6,1327 -case 772: -///Goto Goto 6,1328 Dest:OK -goto IL_441a; -///Label Label 6,1329 -case 774: -///Goto Goto 6,1330 Dest:OK -goto IL_4439; -///Label Label 6,1331 -case 775: -///Goto Goto 6,1332 Dest:OK -goto IL_4441; -///Label Label 6,1333 -case 773: -///Label Label 6,1334 -case 776: -///Label Label 6,1335 -case 777: -///Goto Goto 6,1336 Dest:OK -goto IL_4454; -///Label Label 6,1337 -case 778: -///Goto Goto 6,1338 Dest:OK -goto IL_446b; -///Label Label 6,1339 -case 32: -///Label Label 6,1340 -case 68: -///Label Label 6,1341 -case 157: -///Label Label 6,1342 -case 195: -///Label Label 6,1343 -case 311: -///Label Label 6,1344 -case 312: -///Label Label 6,1345 -case 320: -///Label Label 6,1346 -case 334: -///Label Label 6,1347 -case 437: -///Label Label 6,1348 -case 469: -///Label Label 6,1349 -case 616: -///Label Label 6,1350 -case 647: -///Label Label 6,1351 -case 714: -///Label Label 6,1352 -case 779: -///Label Label 6,1353 -case 780: -///Label Label 6,1354 -case 781: -///Goto Goto 6,1355 Dest:OK -goto IL_448a; -///Label Label 6,1356 -case 782: -///Goto Goto 6,1357 Dest:OK -goto IL_4494; -///Label Label 6,1358 -case 783: -///Goto Goto 6,1359 Dest:OK -goto IL_44ac; -///Label Label 6,1360 -case 784: -///Goto Goto 6,1361 Dest:OK -goto IL_44c9; -///Label Label 6,1362 -case 785: -///Goto Goto 6,1363 Dest:OK -goto IL_44d6; -///Label Label 6,1364 -case 786: -///Goto Goto 6,1365 Dest:OK -goto IL_44f3; -///Label Label 6,1366 -case 789: -///Goto Goto 6,1367 Dest:OK -goto IL_451d; -///Label Label 6,1368 -case 790: -///Goto Goto 6,1369 Dest:OK -goto IL_4537; -///Label Label 6,1370 -case 791: -///Goto Goto 6,1371 Dest:OK -goto IL_4545; -///Label Label 6,1372 -case 792: -///Label Label 6,1373 -case 793: -///Label Label 6,1374 -case 794: -///Goto Goto 6,1375 Dest:OK -goto IL_4563; -///Label Label 6,1376 -case 795: -///Label Label 6,1377 -case 797: -///Goto Goto 6,1378 Dest:OK -goto IL_4593; -///Label Label 6,1379 -default: -///Goto Goto 6,1380 Dest:OK -goto end_IL_0001; -///Label Label 6,1381 -case 46: -///Label Label 6,1382 -case 52: -///Label Label 6,1383 -case 56: -///Label Label 6,1384 -case 178: -///Label Label 6,1385 -case 184: -///Label Label 6,1386 -case 319: -///Label Label 6,1387 -case 355: -///Label Label 6,1388 -case 361: -///Label Label 6,1389 -case 436: -///Label Label 6,1390 -case 448: -///Label Label 6,1391 -case 454: -///Label Label 6,1392 -case 458: -///Label Label 6,1393 -case 623: -///Label Label 6,1394 -case 629: -///Label Label 6,1395 -case 633: -///Label Label 6,1396 -case 720: -///Label Label 6,1397 -case 787: -///Label Label 6,1398 -case 788: -///Label Label 6,1399 -case 798: -///Goto Goto 6,1400 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,1401 -} -///Goto Goto 5,47 Dest:OK -goto default; -///Label Label 5,48 2 -IL_4537: -///Operation Operation 5,49 -num = 790; -///Operation Operation 5,50 -num7 = 200000000; -///Goto Goto 5,51 Dest:OK -goto IL_4545; -///Label Label 5,52 2 -IL_4545: -///Operation Operation 5,53 -num = 791; -///Operation Operation 5,54 -ProjectData.ClearProjectError(); -///Operation Operation 5,55 -if (num2 == 0) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -throw ProjectData.CreateProjectError(-2146828268); -///BlockEnd Block 6,2 -} -///Goto Goto 5,56 Dest:OK -goto IL_45b9; -///Label Label 5,57 3 -IL_0c34: -///Operation Operation 5,58 -num = 152; -///Operation Operation 5,59 -List1.Items.Add(new ListItem(Modul1.LiText + " " + Modul1.PersInArb.AsString())); -///Goto Goto 5,60 Dest:OK -goto IL_0c6f; -///Label Label 5,61 2 -IL_45b9: -///Operation Operation 5,62 -num4 = unchecked(num2 + 1); -///Goto Goto 5,63 Dest:OK -goto IL_45bd; -///Label Label 5,64 2 -IL_0016: -///Operation Operation 5,65 -num = 2; -///Operation Operation 5,66 -RadioButton1.Visible = true; -///Goto Goto 5,67 Dest:OK -goto IL_0026; -///Label Label 5,68 2 -IL_0026: -///Operation Operation 5,69 -num = 3; -///Operation Operation 5,70 -RadioButton2.Visible = true; -///Goto Goto 5,71 Dest:OK -goto IL_0036; -///Label Label 5,72 2 -IL_0036: -///Operation Operation 5,73 -ProjectData.ClearProjectError(); -///Operation Operation 5,74 -num3 = 2; -///Goto Goto 5,75 Dest:OK -goto IL_003e; -///Label Label 5,76 2 -IL_003e: -///Operation Operation 5,77 -num = 5; -///Operation Operation 5,78 -switch (index) -///BlockStart Block 6,0 -{ -///Label Label 6,1 -case 0: -///Label Label 6,2 -case 1: -///Label Label 6,3 -case 4: -///Label Label 6,4 -case 5: -///Label Label 6,5 -case 6: -///Operation Operation 6,6 -break; -///Label Label 6,7 -case 7: -///Goto Goto 6,8 Dest:OK -goto IL_0094; -///Label Label 6,9 -default: -///Goto Goto 6,10 Dest:OK -goto IL_00a6; -///BlockEnd Block 6,11 -} -///BlockStart Block 6,12 -{ -///Goto Goto 6,13 Dest:OK -goto IL_006f; -///BlockEnd Block 6,14 -} -///Label Label 5,79 2 -IL_0094: -///Operation Operation 5,80 -num = 13; -///Operation Operation 5,81 -List1.Visible = false; -///Goto Goto 5,82 Dest:OK -goto IL_00a6; -///Label Label 5,83 2 -IL_006f: -///Operation Operation 5,84 -num = 9; -///Operation Operation 5,85 -List2.Visible = false; -///Goto Goto 5,86 Dest:OK -goto IL_0080; -///Label Label 5,87 2 -IL_0080: -///Operation Operation 5,88 -num = 10; -///Operation Operation 5,89 -List1.Visible = true; -///Goto Goto 5,90 Dest:OK -goto IL_00a6; -///Label Label 5,91 4 -IL_00a6: -///Operation Operation 5,92 -num = 15; -///Operation Operation 5,93 -Label4.Text = ""; -///Goto Goto 5,94 Dest:OK -goto IL_00bb; -///Label Label 5,95 2 -IL_00bb: -///Operation Operation 5,96 -num = 16; -///Operation Operation 5,97 -if (Modul1.Aus[12] == "") -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_00db; -///BlockEnd Block 6,2 -} -///Operation Operation 5,98 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_00ed; -///BlockEnd Block 6,2 -} -///Label Label 5,99 2 -IL_00db: -///Operation Operation 5,100 -num = 17; -///Operation Operation 5,101 -Modul1.Aus[12] = "200"; -///Goto Goto 5,102 Dest:OK -goto IL_00ed; -///Label Label 5,103 3 -IL_00ed: -///Operation Operation 5,104 -num = 19; -///Operation Operation 5,105 -if (Modul1.Aus[13] == "") -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_010d; -///BlockEnd Block 6,2 -} -///Operation Operation 5,106 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_011f; -///BlockEnd Block 6,2 -} -///Label Label 5,107 2 -IL_010d: -///Operation Operation 5,108 -num = 20; -///Operation Operation 5,109 -Modul1.Aus[13] = "200"; -///Goto Goto 5,110 Dest:OK -goto IL_011f; -///Label Label 5,111 3 -IL_011f: -///Operation Operation 5,112 -num = 22; -///Operation Operation 5,113 -List1.Visible = true; -///Goto Goto 5,114 Dest:OK -goto IL_0130; -///Label Label 5,115 2 -IL_0130: -///Operation Operation 5,116 -num = 23; -///Operation Operation 5,117 -List2.Visible = false; -///Goto Goto 5,118 Dest:OK -goto IL_0141; -///Label Label 5,119 2 -IL_0141: -///Operation Operation 5,120 -num = 24; -///Operation Operation 5,121 -Label2.Text = ""; -///Goto Goto 5,122 Dest:OK -goto IL_0156; -///Label Label 5,123 2 -IL_0156: -///Operation Operation 5,124 -num = 25; -///Operation Operation 5,125 -if (RadioButton1.Checked) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_016b; -///BlockEnd Block 6,2 -} -///Operation Operation 5,126 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_017c; -///BlockEnd Block 6,2 -} -///Label Label 5,127 2 -IL_016b: -///Operation Operation 5,128 -num = 26; -///Operation Operation 5,129 -List1.Sorted = true; -///Goto Goto 5,130 Dest:OK -goto IL_017c; -///Label Label 5,131 3 -IL_017c: -///Operation Operation 5,132 -num = 28; -///Operation Operation 5,133 -if (RadioButton2.Checked) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0191; -///BlockEnd Block 6,2 -} -///Operation Operation 5,134 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_01a2; -///BlockEnd Block 6,2 -} -///Label Label 5,135 2 -IL_0191: -///Operation Operation 5,136 -num = 29; -///Operation Operation 5,137 -List1.Sorted = false; -///Goto Goto 5,138 Dest:OK -goto IL_01a2; -///Label Label 5,139 3 -IL_01a2: -///Operation Operation 5,140 -num = 31; -///Operation Operation 5,141 -switch (index) -///BlockStart Block 6,0 -{ -///Label Label 6,1 -case 0: -///Operation Operation 6,2 -break; -///Label Label 6,3 -case 1: -///Goto Goto 6,4 Dest:OK -goto IL_0cef; -///Label Label 6,5 -case 2: -///Goto Goto 6,6 Dest:OK -goto IL_1a3c; -///Label Label 6,7 -case 3: -///Goto Goto 6,8 Dest:OK -goto IL_1aae; -///Label Label 6,9 -case 4: -///Goto Goto 6,10 Dest:OK -goto IL_1c00; -///Label Label 6,11 -case 5: -///Goto Goto 6,12 Dest:OK -goto IL_2496; -///Label Label 6,13 -case 6: -///Goto Goto 6,14 Dest:OK -goto IL_3406; -///Label Label 6,15 -case 7: -///Goto Goto 6,16 Dest:OK -goto IL_3e4e; -///Label Label 6,17 -default: -///Goto Goto 6,18 Dest:OK -goto IL_448a; -///BlockEnd Block 6,19 -} -///BlockStart Block 6,20 -{ -///Goto Goto 6,21 Dest:OK -goto IL_01d7; -///BlockEnd Block 6,22 -} -///Label Label 5,142 2 -IL_3e4e: -///Operation Operation 5,143 -num = 716; -///Operation Operation 5,144 -List2.Visible = true; -///Goto Goto 5,145 Dest:OK -goto IL_3e62; -///Label Label 5,146 2 -IL_3e62: -///Operation Operation 5,147 -num = 717; -///Operation Operation 5,148 -List2.Items.Clear(); -///Goto Goto 5,149 Dest:OK -goto IL_3e7a; -///Label Label 5,150 2 -IL_3e7a: -///Operation Operation 5,151 -num = 718; -///Operation Operation 5,152 -num7 = 1; -///Goto Goto 5,153 Dest:OK -goto IL_3e84; -///Label Label 5,154 2 -IL_3e84: -///Operation Operation 5,155 -num = 719; -///Operation Operation 5,156 -if (num7 <= 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,2 -} -///Goto Goto 5,157 Dest:OK -goto IL_3e9f; -///Label Label 5,158 2 -IL_3e9f: -///Operation Operation 5,159 -num = 722; -///Operation Operation 5,160 -Label1[2].Text = "Fehlliste Orte"; -///Goto Goto 5,161 Dest:OK -goto IL_3ebd; -///Label Label 5,162 2 -IL_3ebd: -///Operation Operation 5,163 -num = 723; -///Operation Operation 5,164 -Label1[1].Text = " Nr Ort Orsteil Kreis Land Staat Loc Länge Breite PLZ Terr StKz"; -///Goto Goto 5,165 Dest:OK -goto IL_3edb; -///Label Label 5,166 2 -IL_3edb: -///Operation Operation 5,167 -num = 724; -///Operation Operation 5,168 -Label1[0].Text = " "; -///Goto Goto 5,169 Dest:OK -goto IL_3ef9; -///Label Label 5,170 2 -IL_3ef9: -///Operation Operation 5,171 -num = 725; -///Operation Operation 5,172 -List2.Items.Add("Fehlliste Orte"); -///Goto Goto 5,173 Dest:OK -goto IL_3f16; -///Label Label 5,174 2 -IL_3f16: -///Operation Operation 5,175 -num = 726; -///Operation Operation 5,176 -List2.Items.Add(" Nr Ort Ortsteil Kreis Land Staat Loc. Laenge Breite PLZ Terr. StKz"); -///Goto Goto 5,177 Dest:OK -goto IL_3f33; -///Label Label 5,178 2 -IL_3f33: -///Operation Operation 5,179 -num = 727; -///Operation Operation 5,180 -DataModul.DB_PlaceTable.MoveFirst(); -///Goto Goto 5,181 Dest:OK -goto IL_3f45; -///Label Label 5,182 2 -IL_3f45: -///Operation Operation 5,183 -num = 728; -///Operation Operation 5,184 -DataModul.DB_PlaceTable.Index = nameof(DataModul.PlaceIndex.OrtNr); -///Goto Goto 5,185 Dest:OK -goto IL_3f5c; -///Label Label 5,186 2 -IL_3f5c: -///Operation Operation 5,187 -num = 729; -///Operation Operation 5,188 -DataModul.DB_PlaceTable.Seek(">=", num7); -///Goto Goto 5,189 Dest:OK -goto IL_3fb6; -///Label Label 5,190 2 -IL_3fb6: -///Operation Operation 5,191 -num = 730; -///Operation Operation 5,192 -this.A = 1; -///Goto Goto 5,193 Dest:OK -goto IL_3fc4; -///Label Label 5,194 2 -IL_3fc4: -///Operation Operation 5,195 -num = 731; -///Operation Operation 5,196 -if (!DataModul.DB_PlaceTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_441a; -///BlockEnd Block 6,2 -} -///Operation Operation 5,197 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_4439; -///BlockEnd Block 6,2 -} -///Label Label 5,198 3 -IL_441a: -///Operation Operation 5,199 -num = 733; -///Operation Operation 5,200 -if (!DataModul.DB_PlaceTable.EOF) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3fe6; -///BlockEnd Block 6,2 -} -///Operation Operation 5,201 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_4454; -///BlockEnd Block 6,2 -} -///Label Label 5,202 2 -IL_3fe6: -///Operation Operation 5,203 -num = 734; -///Operation Operation 5,204 -Modul1.LiText = new string(' ', 80); -///Goto Goto 5,205 Dest:OK -goto IL_3ffb; -///Label Label 5,206 2 -IL_3ffb: -///Operation Operation 5,207 -num = 735; -///Operation Operation 5,208 -StringType.MidStmtStr(ref Modul1.LiText, 1, 10, Strings.Right(" " + DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.OrtNr)].Value.AsString(), 10)); -///Goto Goto 5,209 Dest:OK -goto IL_4044; -///Label Label 5,210 2 -IL_4044: -///Operation Operation 5,211 -num = 736; -///Operation Operation 5,212 -if ((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Ort)].AsInt() == 0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_4076; -///BlockEnd Block 6,2 -} -///Operation Operation 5,213 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_4091; -///BlockEnd Block 6,2 -} -///Label Label 5,214 2 -IL_4076: -///Operation Operation 5,215 -num = 737; -///Operation Operation 5,216 -StringType.MidStmtStr(ref Modul1.LiText, 12, 2, "F "); -///Goto Goto 5,217 Dest:OK -goto IL_4091; -///Label Label 5,218 3 -IL_4091: -///Operation Operation 5,219 -num = 739; -///Operation Operation 5,220 -if ((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Ortsteil)].AsInt() == 0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_40c3; -///BlockEnd Block 6,2 -} -///Operation Operation 5,221 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_40de; -///BlockEnd Block 6,2 -} -///Label Label 5,222 2 -IL_40c3: -///Operation Operation 5,223 -num = 740; -///Operation Operation 5,224 -StringType.MidStmtStr(ref Modul1.LiText, 20, 2, "F "); -///Goto Goto 5,225 Dest:OK -goto IL_40de; -///Label Label 5,226 3 -IL_40de: -///Operation Operation 5,227 -num = 742; -///Operation Operation 5,228 -if ((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Kreis)].AsInt() == 0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_4110; -///BlockEnd Block 6,2 -} -///Operation Operation 5,229 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_412b; -///BlockEnd Block 6,2 -} -///Label Label 5,230 2 -IL_4110: -///Operation Operation 5,231 -num = 743; -///Operation Operation 5,232 -StringType.MidStmtStr(ref Modul1.LiText, 28, 2, "F "); -///Goto Goto 5,233 Dest:OK -goto IL_412b; -///Label Label 5,234 3 -IL_412b: -///Operation Operation 5,235 -num = 745; -///Operation Operation 5,236 -if ((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Land)].AsInt() == 0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_415d; -///BlockEnd Block 6,2 -} -///Operation Operation 5,237 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_4178; -///BlockEnd Block 6,2 -} -///Label Label 5,238 2 -IL_415d: -///Operation Operation 5,239 -num = 746; -///Operation Operation 5,240 -StringType.MidStmtStr(ref Modul1.LiText, 34, 2, "F "); -///Goto Goto 5,241 Dest:OK -goto IL_4178; -///Label Label 5,242 3 -IL_4178: -///Operation Operation 5,243 -num = 748; -///Operation Operation 5,244 -if ((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Staat)].AsInt() == 0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_41aa; -///BlockEnd Block 6,2 -} -///Operation Operation 5,245 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_41c5; -///BlockEnd Block 6,2 -} -///Label Label 5,246 2 -IL_41aa: -///Operation Operation 5,247 -num = 749; -///Operation Operation 5,248 -StringType.MidStmtStr(ref Modul1.LiText, 39, 2, "F "); -///Goto Goto 5,249 Dest:OK -goto IL_41c5; -///Label Label 5,250 3 -IL_41c5: -///Operation Operation 5,251 -num = 751; -///Operation Operation 5,252 -if (Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Loc)].AsString()) == "") -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_4203; -///BlockEnd Block 6,2 -} -///Operation Operation 5,253 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_421e; -///BlockEnd Block 6,2 -} -///Label Label 5,254 2 -IL_4203: -///Operation Operation 5,255 -num = 752; -///Operation Operation 5,256 -StringType.MidStmtStr(ref Modul1.LiText, 44, 2, "F "); -///Goto Goto 5,257 Dest:OK -goto IL_421e; -///Label Label 5,258 3 -IL_421e: -///Operation Operation 5,259 -num = 754; -///Operation Operation 5,260 -if (Strings.Len(Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.L)].AsString())) <= 1) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_4259; -///BlockEnd Block 6,2 -} -///Operation Operation 5,261 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_4274; -///BlockEnd Block 6,2 -} -///Label Label 5,262 2 -IL_4259: -///Operation Operation 5,263 -num = 755; -///Operation Operation 5,264 -StringType.MidStmtStr(ref Modul1.LiText, 52, 2, "F "); -///Goto Goto 5,265 Dest:OK -goto IL_4274; -///Label Label 5,266 3 -IL_4274: -///Operation Operation 5,267 -num = 757; -///Operation Operation 5,268 -if (Strings.Len(Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.B)].AsString())) <= 1) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_42af; -///BlockEnd Block 6,2 -} -///Operation Operation 5,269 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_42ca; -///BlockEnd Block 6,2 -} -///Label Label 5,270 2 -IL_42af: -///Operation Operation 5,271 -num = 758; -///Operation Operation 5,272 -StringType.MidStmtStr(ref Modul1.LiText, 58, 2, "F "); -///Goto Goto 5,273 Dest:OK -goto IL_42ca; -///Label Label 5,274 3 -IL_42ca: -///Operation Operation 5,275 -num = 760; -///Operation Operation 5,276 -if (Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.PLZ)].AsString()) == "") -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_4308; -///BlockEnd Block 6,2 -} -///Operation Operation 5,277 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_4323; -///BlockEnd Block 6,2 -} -///Label Label 5,278 2 -IL_4308: -///Operation Operation 5,279 -num = 761; -///Operation Operation 5,280 -StringType.MidStmtStr(ref Modul1.LiText, 63, 2, "F "); -///Goto Goto 5,281 Dest:OK -goto IL_4323; -///Label Label 5,282 3 -IL_4323: -///Operation Operation 5,283 -num = 763; -///Operation Operation 5,284 -if (Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Terr)].AsString()) == "") -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_4361; -///BlockEnd Block 6,2 -} -///Operation Operation 5,285 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_437c; -///BlockEnd Block 6,2 -} -///Label Label 5,286 2 -IL_4361: -///Operation Operation 5,287 -num = 764; -///Operation Operation 5,288 -StringType.MidStmtStr(ref Modul1.LiText, 68, 2, "F "); -///Goto Goto 5,289 Dest:OK -goto IL_437c; -///Label Label 5,290 3 -IL_437c: -///Operation Operation 5,291 -num = 766; -///Operation Operation 5,292 -if (Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Staatk)].AsString()) == "") -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_43ba; -///BlockEnd Block 6,2 -} -///Operation Operation 5,293 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_43d5; -///BlockEnd Block 6,2 -} -///Label Label 5,294 2 -IL_43ba: -///Operation Operation 5,295 -num = 767; -///Operation Operation 5,296 -StringType.MidStmtStr(ref Modul1.LiText, 71, 2, "F "); -///Goto Goto 5,297 Dest:OK -goto IL_43d5; -///Label Label 5,298 3 -IL_43d5: -///Operation Operation 5,299 -num = 769; -///Operation Operation 5,300 -List2.Items.Add(Modul1.LiText); -///Goto Goto 5,301 Dest:OK -goto IL_43f2; -///Label Label 5,302 2 -IL_43f2: -///Operation Operation 5,303 -num = 770; -///Operation Operation 5,304 -Modul1.LiText = new string(' ', 80); -///Goto Goto 5,305 Dest:OK -goto IL_4407; -///Label Label 5,306 2 -IL_4407: -///Operation Operation 5,307 -num = 771; -///Operation Operation 5,308 -DataModul.DB_PlaceTable.MoveNext(); -///Goto Goto 5,309 Dest:OK -goto IL_441a; -///Label Label 5,310 2 -IL_4439: -///Operation Operation 5,311 -num = 774; -///Goto Goto 5,312 Dest:OK -goto IL_4441; -///Label Label 5,313 2 -IL_4441: -///Operation Operation 5,314 -num = 775; -///Operation Operation 5,315 -DataModul.DB_PlaceTable.MoveNext(); -///Goto Goto 5,316 Dest:OK -goto IL_4454; -///Label Label 5,317 3 -IL_4454: -///Operation Operation 5,318 -num = 777; -///Operation Operation 5,319 -if (DataModul.DB_PlaceTable.EOF) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_446b; -///BlockEnd Block 6,2 -} -///Operation Operation 5,320 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_448a; -///BlockEnd Block 6,2 -} -///Label Label 5,321 2 -IL_446b: -///Operation Operation 5,322 -num = 778; -///Operation Operation 5,323 -List2.Items.Add("Ende der Liste"); -///Goto Goto 5,324 Dest:OK -goto IL_448a; -///Label Label 5,325 2 -IL_3406: -///Operation Operation 5,326 -num = 618; -///Operation Operation 5,327 -List1.Items.Clear(); -///Goto Goto 5,328 Dest:OK -goto IL_341e; -///Label Label 5,329 2 -IL_341e: -///Operation Operation 5,330 -num = 619; -///Operation Operation 5,331 -Label1[2].Text = Modul1.IText[84]; -///Goto Goto 5,332 Dest:OK -goto IL_343f; -///Label Label 5,333 2 -IL_343f: -///Operation Operation 5,334 -num = 620; -///Operation Operation 5,335 -Label1[0].Text = "Name Elternteil Kind Pate Zeuge Adoptivkind verbunden"; -///Goto Goto 5,336 Dest:OK -goto IL_345d; -///Label Label 5,337 2 -IL_345d: -///Operation Operation 5,338 -num = 621; -///Operation Operation 5,339 -num7 = 1; -///Goto Goto 5,340 Dest:OK -goto IL_3467; -///Label Label 5,341 2 -IL_3467: -///Operation Operation 5,342 -num = 622; -///Operation Operation 5,343 -if (num7 <= 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,2 -} -///Goto Goto 5,344 Dest:OK -goto IL_3482; -///Label Label 5,345 2 -IL_3482: -///Operation Operation 5,346 -num = 625; -///Operation Operation 5,347 -DataModul.DB_PersonTable.Index = nameof(DataModul.PersonIndex.PerNr); -///Goto Goto 5,348 Dest:OK -goto IL_3499; -///Label Label 5,349 2 -IL_3499: -///Operation Operation 5,350 -num = 626; -///Operation Operation 5,351 -DataModul.DB_PersonTable.MoveLast(); -///Goto Goto 5,352 Dest:OK -goto IL_34ac; -///Label Label 5,353 2 -IL_34ac: -///Operation Operation 5,354 -num = 627; -///Operation Operation 5,355 -num8 = DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value.AsInt(); -///Goto Goto 5,356 Dest:OK -goto IL_34d3; -///Label Label 5,357 2 -IL_34d3: -///Operation Operation 5,358 -num = 628; -///Operation Operation 5,359 -if (num7 == 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,2 -} -///Goto Goto 5,360 Dest:OK -goto IL_34eb; -///Label Label 5,361 2 -IL_34eb: -///Operation Operation 5,362 -num = 631; -///Operation Operation 5,363 -if ((num7 > DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_351e; -///BlockEnd Block 6,2 -} -///Operation Operation 5,364 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_355f; -///BlockEnd Block 6,2 -} -///Label Label 5,365 2 -IL_351e: -///Operation Operation 5,366 -num = 632; -///Operation Operation 5,367 -Interaction.MsgBox(Modul1.IText[173] + " " + num7.AsString() + Modul1.IText[172]); -///Goto Goto 5,368 Dest:OK -goto end_IL_0001_2; -///Label Label 5,369 2 -IL_355f: -///Operation Operation 5,370 -num = 635; -///Operation Operation 5,371 -Label1[1].Text = "unvollständig verknüpfte Personen "; -///Goto Goto 5,372 Dest:OK -goto IL_357d; -///Label Label 5,373 2 -IL_357d: -///Operation Operation 5,374 -num = 636; -///Operation Operation 5,375 -Modul1.Schalt = 3; -///Goto Goto 5,376 Dest:OK -goto IL_358a; -///Label Label 5,377 2 -IL_358a: -///Operation Operation 5,378 -num = 637; -///Operation Operation 5,379 -ProgressBar1.Minimum = 0; -///Goto Goto 5,380 Dest:OK -goto IL_359e; -///Label Label 5,381 2 -IL_359e: -///Operation Operation 5,382 -num = 638; -///Operation Operation 5,383 -ProgressBar1.Maximum = 0; -///Goto Goto 5,384 Dest:OK -goto IL_35b2; -///Label Label 5,385 2 -IL_35b2: -///Operation Operation 5,386 -num = 639; -///Operation Operation 5,387 -ProgressBar1.Step = 1; -///Goto Goto 5,388 Dest:OK -goto IL_35c6; -///Label Label 5,389 2 -IL_35c6: -///Operation Operation 5,390 -num = 640; -///Operation Operation 5,391 -ProgressBar1.Maximum = DataModul.DB_PersonTable.RecordCount - 1; -///Goto Goto 5,392 Dest:OK -goto IL_35e5; -///Label Label 5,393 2 -IL_35e5: -///Operation Operation 5,394 -num = 641; -///Operation Operation 5,395 -i3 = num7; -///Operation Operation 5,396 -num9 = DataModul.DB_PersonTable.RecordCount - 1; -///Operation Operation 5,397 -I1 = i3; -///Goto Goto 5,398 Dest:OK -goto IL_3dfe; -///Label Label 5,399 2 -IL_3dfe: -///Operation Operation 5,400 -i4 = I1; -///Operation Operation 5,401 -num5 = num9; -///Operation Operation 5,402 -if (i4 <= num5) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3607; -///BlockEnd Block 6,2 -} -///Operation Operation 5,403 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3e0f; -///BlockEnd Block 6,2 -} -///Label Label 5,404 2 -IL_3e0f: -///Operation Operation 5,405 -num = 713; -///Operation Operation 5,406 -Label4.Text = List1.Items.Count - 1.AsString() + " Einträge"; -///Goto Goto 5,407 Dest:OK -goto IL_448a; -///Label Label 5,408 2 -IL_3607: -///Operation Operation 5,409 -num = 642; -///Operation Operation 5,410 -ProgressBar1.PerformStep(); -///Goto Goto 5,411 Dest:OK -goto IL_361a; -///Label Label 5,412 2 -IL_361a: -///Operation Operation 5,413 -num = 643; -///Operation Operation 5,414 -Application.DoEvents(); -///Goto Goto 5,415 Dest:OK -goto IL_3627; -///Label Label 5,416 2 -IL_3627: -///Operation Operation 5,417 -num = 644; -///Operation Operation 5,418 -Modul1.PersInArb = I1; -///Goto Goto 5,419 Dest:OK -goto IL_3639; -///Label Label 5,420 2 -IL_3639: -///Operation Operation 5,421 -num = 645; -///Operation Operation 5,422 -sDest = new string(' ', 80); -///Goto Goto 5,423 Dest:OK -goto IL_364b; -///Label Label 5,424 2 -IL_364b: -///Operation Operation 5,425 -num = 646; -///Operation Operation 5,426 -if (Modul1.PersInArb <= num8) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3666; -///BlockEnd Block 6,2 -} -///Operation Operation 5,427 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_448a; -///BlockEnd Block 6,2 -} -///Label Label 5,428 2 -IL_3666: -///Operation Operation 5,429 -num = 649; -///Operation Operation 5,430 -DataModul.DB_PersonTable.Seek("=", Modul1.PersInArb.AsString()); -///Goto Goto 5,431 Dest:OK -goto IL_36c8; -///Label Label 5,432 2 -IL_36c8: -///Operation Operation 5,433 -num = 650; -///Operation Operation 5,434 -if (!DataModul.DB_PersonTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_36e4; -///BlockEnd Block 6,2 -} -///Operation Operation 5,435 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3de8; -///BlockEnd Block 6,2 -} -///Label Label 5,436 2 -IL_36e4: -///Operation Operation 5,437 -num = 653; -///Operation Operation 5,438 -LiKi = 1; -///Goto Goto 5,439 Dest:OK -goto IL_36f2; -///Label Label 5,440 2 -IL_36f2: -///Operation Operation 5,441 -num = 654; -///Operation Operation 5,442 -LiEl = 1; -///Goto Goto 5,443 Dest:OK -goto IL_3700; -///Label Label 5,444 2 -IL_3700: -///Operation Operation 5,445 -num = 655; -///Comment LComment 5,446 -//LiPa = 1; -///Goto Goto 5,447 Dest:OK -goto IL_370e; -///Label Label 5,448 2 -IL_370e: -///Operation Operation 5,449 -num = 656; -///Operation Operation 5,450 -Modul1.Kenn = 3f; -///Goto Goto 5,451 Dest:OK -goto IL_371f; -///Label Label 5,452 2 -IL_371f: -///Operation Operation 5,453 -num = 657; -///Operation Operation 5,454 -DataModul.DB_LinkTable.Index = nameof(DataModul.LinkIndex.ElSu); -///Goto Goto 5,455 Dest:OK -goto IL_3736; -///Label Label 5,456 2 -IL_3736: -///Operation Operation 5,457 -num = 658; -///Operation Operation 5,458 -DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), Modul1.Kenn); -///Goto Goto 5,459 Dest:OK -goto IL_379d; -///Label Label 5,460 2 -IL_379d: -///Operation Operation 5,461 -num = 659; -///Operation Operation 5,462 -if (DataModul.DB_LinkTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_37b4; -///BlockEnd Block 6,2 -} -///Operation Operation 5,463 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_37c2; -///BlockEnd Block 6,2 -} -///Label Label 5,464 2 -IL_37b4: -///Operation Operation 5,465 -num = 660; -///Operation Operation 5,466 -LiKi = 0; -///Goto Goto 5,467 Dest:OK -goto IL_37c2; -///Label Label 5,468 3 -IL_37c2: -///Operation Operation 5,469 -num = 662; -///Operation Operation 5,470 -Modul1.Kenn = 1f; -///Goto Goto 5,471 Dest:OK -goto IL_37d3; -///Label Label 5,472 2 -IL_37d3: -///Operation Operation 5,473 -num = 663; -///Operation Operation 5,474 -Modul1.PerSatzLes(); -///Goto Goto 5,475 Dest:OK -goto IL_37e0; -///Label Label 5,476 2 -IL_37e0: -///Operation Operation 5,477 -num = 664; -///Operation Operation 5,478 -if ((DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.Sex)].AsString() == "F")) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3811; -///BlockEnd Block 6,2 -} -///Operation Operation 5,479 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3822; -///BlockEnd Block 6,2 -} -///Label Label 5,480 2 -IL_3811: -///Operation Operation 5,481 -num = 665; -///Operation Operation 5,482 -Modul1.Kenn = 2f; -///Goto Goto 5,483 Dest:OK -goto IL_3822; -///Label Label 5,484 3 -IL_3822: -///Operation Operation 5,485 -num = 667; -///Operation Operation 5,486 -DataModul.DB_LinkTable.Index = nameof(DataModul.LinkIndex.ElSu); -///Goto Goto 5,487 Dest:OK -goto IL_3839; -///Label Label 5,488 2 -IL_3839: -///Operation Operation 5,489 -num = 668; -///Operation Operation 5,490 -DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), Modul1.Kenn); -///Goto Goto 5,491 Dest:OK -goto IL_38a0; -///Label Label 5,492 2 -IL_38a0: -///Operation Operation 5,493 -num = 669; -///Operation Operation 5,494 -if (DataModul.DB_LinkTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_38b7; -///BlockEnd Block 6,2 -} -///Operation Operation 5,495 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_38c5; -///BlockEnd Block 6,2 -} -///Label Label 5,496 2 -IL_38b7: -///Operation Operation 5,497 -num = 670; -///Operation Operation 5,498 -LiEl = 0; -///Goto Goto 5,499 Dest:OK -goto IL_38c5; -///Label Label 5,500 3 -IL_38c5: -///Operation Operation 5,501 -num = 672; -///Operation Operation 5,502 -if ((LiKi == 0) & (LiEl == 0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_38e8; -///BlockEnd Block 6,2 -} -///Operation Operation 5,503 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3de8; -///BlockEnd Block 6,2 -} -///Label Label 5,504 2 -IL_38e8: -///Operation Operation 5,505 -num = 673; -///Operation Operation 5,506 -Modul1.Personlesen(Modul1.PersInArb); -///Goto Goto 5,507 Dest:OK -goto IL_38f5; -///Label Label 5,508 2 -IL_38f5: -///Operation Operation 5,509 -num = 674; -///Operation Operation 5,510 -StringType.MidStmtStr(ref sDest, 1, 20, Strings.Left((Modul1.Kont[0]).Trim() + "," + (Modul1.Kont[3]).Trim() + " ", 20)); -///Goto Goto 5,511 Dest:OK -goto IL_3935; -///Label Label 5,512 2 -IL_3935: -///Operation Operation 5,513 -num = 675; -///Operation Operation 5,514 -if (LiEl == 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_394b; -///BlockEnd Block 6,2 -} -///Operation Operation 5,515 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3962; -///BlockEnd Block 6,2 -} -///Label Label 5,516 2 -IL_394b: -///Operation Operation 5,517 -num = 676; -///Operation Operation 5,518 -StringType.MidStmtStr(ref sDest, 24, 1, "N"); -///Goto Goto 5,519 Dest:OK -goto IL_3962; -///Label Label 5,520 3 -IL_3962: -///Operation Operation 5,521 -num = 678; -///Operation Operation 5,522 -if (LiKi == 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3978; -///BlockEnd Block 6,2 -} -///Operation Operation 5,523 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_398f; -///BlockEnd Block 6,2 -} -///Label Label 5,524 2 -IL_3978: -///Operation Operation 5,525 -num = 679; -///Operation Operation 5,526 -StringType.MidStmtStr(ref sDest, 30, 1, "N"); -///Goto Goto 5,527 Dest:OK -goto IL_398f; -///Label Label 5,528 3 -IL_398f: -///Operation Operation 5,529 -num = 681; -///Operation Operation 5,530 -DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 4); -///Goto Goto 5,531 Dest:OK -goto IL_39f2; -///Label Label 5,532 2 -IL_39f2: -///Operation Operation 5,533 -num = 682; -///Operation Operation 5,534 -if (!DataModul.DB_LinkTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3a0c; -///BlockEnd Block 6,2 -} -///Operation Operation 5,535 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3a23; -///BlockEnd Block 6,2 -} -///Label Label 5,536 2 -IL_3a0c: -///Operation Operation 5,537 -num = 683; -///Operation Operation 5,538 -StringType.MidStmtStr(ref sDest, 36, 1, "J"); -///Goto Goto 5,539 Dest:OK -goto IL_3a23; -///Label Label 5,540 3 -IL_3a23: -///Operation Operation 5,541 -num = 685; -///Operation Operation 5,542 -DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 5); -///Goto Goto 5,543 Dest:OK -goto IL_3a86; -///Label Label 5,544 2 -IL_3a86: -///Operation Operation 5,545 -num = 686; -///Operation Operation 5,546 -if (!DataModul.DB_LinkTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3aa0; -///BlockEnd Block 6,2 -} -///Operation Operation 5,547 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3ab7; -///BlockEnd Block 6,2 -} -///Label Label 5,548 2 -IL_3aa0: -///Operation Operation 5,549 -num = 687; -///Operation Operation 5,550 -StringType.MidStmtStr(ref sDest, 46, 1, "J"); -///Goto Goto 5,551 Dest:OK -goto IL_3ab7; -///Label Label 5,552 3 -IL_3ab7: -///Operation Operation 5,553 -num = 689; -///Operation Operation 5,554 -DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 6); -///Goto Goto 5,555 Dest:OK -goto IL_3b1a; -///Label Label 5,556 2 -IL_3b1a: -///Operation Operation 5,557 -num = 690; -///Operation Operation 5,558 -if (!DataModul.DB_LinkTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3b34; -///BlockEnd Block 6,2 -} -///Operation Operation 5,559 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3b4b; -///BlockEnd Block 6,2 -} -///Label Label 5,560 2 -IL_3b34: -///Operation Operation 5,561 -num = 691; -///Operation Operation 5,562 -StringType.MidStmtStr(ref sDest, 46, 1, "J"); -///Goto Goto 5,563 Dest:OK -goto IL_3b4b; -///Label Label 5,564 3 -IL_3b4b: -///Operation Operation 5,565 -num = 693; -///Operation Operation 5,566 -DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 7); -///Goto Goto 5,567 Dest:OK -goto IL_3bae; -///Label Label 5,568 2 -IL_3bae: -///Operation Operation 5,569 -num = 694; -///Operation Operation 5,570 -if (!DataModul.DB_LinkTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3bc8; -///BlockEnd Block 6,2 -} -///Operation Operation 5,571 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3bdf; -///BlockEnd Block 6,2 -} -///Label Label 5,572 2 -IL_3bc8: -///Operation Operation 5,573 -num = 695; -///Operation Operation 5,574 -StringType.MidStmtStr(ref sDest, 46, 1, "J"); -///Goto Goto 5,575 Dest:OK -goto IL_3bdf; -///Label Label 5,576 3 -IL_3bdf: -///Operation Operation 5,577 -num = 697; -///Operation Operation 5,578 -DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 8); -///Goto Goto 5,579 Dest:OK -goto IL_3c42; -///Label Label 5,580 2 -IL_3c42: -///Operation Operation 5,581 -num = 698; -///Operation Operation 5,582 -if (!DataModul.DB_LinkTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3c5c; -///BlockEnd Block 6,2 -} -///Operation Operation 5,583 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3c73; -///BlockEnd Block 6,2 -} -///Label Label 5,584 2 -IL_3c5c: -///Operation Operation 5,585 -num = 699; -///Operation Operation 5,586 -StringType.MidStmtStr(ref sDest, 55, 1, "J"); -///Goto Goto 5,587 Dest:OK -goto IL_3c73; -///Label Label 5,588 3 -IL_3c73: -///Operation Operation 5,589 -num = 701; -///Operation Operation 5,590 -DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 9); -///Goto Goto 5,591 Dest:OK -goto IL_3cd7; -///Label Label 5,592 2 -IL_3cd7: -///Operation Operation 5,593 -num = 702; -///Operation Operation 5,594 -if (!DataModul.DB_LinkTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3cf1; -///BlockEnd Block 6,2 -} -///Operation Operation 5,595 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3d08; -///BlockEnd Block 6,2 -} -///Label Label 5,596 2 -IL_3cf1: -///Operation Operation 5,597 -num = 703; -///Operation Operation 5,598 -StringType.MidStmtStr(ref sDest, 70, 1, "J"); -///Goto Goto 5,599 Dest:OK -goto IL_3d08; -///Label Label 5,600 3 -IL_3d08: -///Operation Operation 5,601 -num = 705; -///Operation Operation 5,602 -DataModul.DB_WitnessTable.Index = nameof(DataModul.WitnessIndex.ElSu); -///Goto Goto 5,603 Dest:OK -goto IL_3d1f; -///Label Label 5,604 2 -IL_3d1f: -///Operation Operation 5,605 -num = 706; -///Operation Operation 5,606 -DataModul.DB_WitnessTable.Seek("=", Modul1.PersInArb, "10"); -///Goto Goto 5,607 Dest:OK -goto IL_3d7c; -///Label Label 5,608 2 -IL_3d7c: -///Operation Operation 5,609 -num = 707; -///Operation Operation 5,610 -if (!DataModul.DB_WitnessTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3d96; -///BlockEnd Block 6,2 -} -///Operation Operation 5,611 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3dad; -///BlockEnd Block 6,2 -} -///Label Label 5,612 2 -IL_3d96: -///Operation Operation 5,613 -num = 708; -///Operation Operation 5,614 -StringType.MidStmtStr(ref sDest, 46, 1, "J"); -///Goto Goto 5,615 Dest:OK -goto IL_3dad; -///Label Label 5,616 3 -IL_3dad: -///Operation Operation 5,617 -num = 710; -///Operation Operation 5,618 -List1.Items.Add(new ListItem(sDest + " " + Modul1.PersInArb.AsString())); -///Goto Goto 5,619 Dest:OK -goto IL_3de8; -///Label Label 5,620 4 -IL_3de8: -///Operation Operation 5,621 -num = 712; -///Operation Operation 5,622 -I1++; -///Goto Goto 5,623 Dest:OK -goto IL_3dfe; -///Label Label 5,624 2 -IL_2496: -///Operation Operation 5,625 -num = 439; -///Operation Operation 5,626 -List1.Items.Clear(); -///Goto Goto 5,627 Dest:OK -goto IL_24ae; -///Label Label 5,628 2 -IL_24ae: -///Operation Operation 5,629 -num = 440; -///Operation Operation 5,630 -Label1[2].Text = "Personen ohne Datum"; -///Goto Goto 5,631 Dest:OK -goto IL_24cc; -///Label Label 5,632 2 -IL_24cc: -///Operation Operation 5,633 -num = 441; -///Operation Operation 5,634 -Label1[1].Text = Modul1.IText[166]; -///Goto Goto 5,635 Dest:OK -goto IL_24f0; -///Label Label 5,636 2 -IL_24f0: -///Operation Operation 5,637 -num = 442; -///Operation Operation 5,638 -Label1[0].Text = Modul1.IText[167]; -///Goto Goto 5,639 Dest:OK -goto IL_2514; -///Label Label 5,640 2 -IL_2514: -///Operation Operation 5,641 -num = 443; -///Operation Operation 5,642 -I1 = 0; -///Goto Goto 5,643 Dest:OK -goto IL_2522; -///Label Label 5,644 3 -IL_2522: -///Operation Operation 5,645 -num = 444; -///Operation Operation 5,646 -Label1[(short)I1].Refresh(); -///Goto Goto 5,647 Dest:OK -goto IL_2541; -///Label Label 5,648 2 -IL_2541: -///Operation Operation 5,649 -num = 445; -///Operation Operation 5,650 -I1++; -///Operation Operation 5,651 -i5 = I1; -///Operation Operation 5,652 -num5 = 2; -///Operation Operation 5,653 -if (i5 <= num5) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2522; -///BlockEnd Block 6,2 -} -///Operation Operation 5,654 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2564; -///BlockEnd Block 6,2 -} -///Label Label 5,655 2 -IL_2564: -///Operation Operation 5,656 -num = 446; -///Operation Operation 5,657 -num7 = 1; -///Goto Goto 5,658 Dest:OK -goto IL_256e; -///Label Label 5,659 2 -IL_256e: -///Operation Operation 5,660 -num = 447; -///Operation Operation 5,661 -if (num7 <= 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,2 -} -///Goto Goto 5,662 Dest:OK -goto IL_2589; -///Label Label 5,663 2 -IL_2589: -///Operation Operation 5,664 -num = 450; -///Operation Operation 5,665 -DataModul.DB_PersonTable.Index = nameof(DataModul.PersonIndex.PerNr); -///Goto Goto 5,666 Dest:OK -goto IL_25a0; -///Label Label 5,667 2 -IL_25a0: -///Operation Operation 5,668 -num = 451; -///Operation Operation 5,669 -DataModul.DB_PersonTable.MoveLast(); -///Goto Goto 5,670 Dest:OK -goto IL_25b3; -///Label Label 5,671 2 -IL_25b3: -///Operation Operation 5,672 -num = 452; -///Operation Operation 5,673 -num8 = DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value.AsInt(); -///Goto Goto 5,674 Dest:OK -goto IL_25da; -///Label Label 5,675 2 -IL_25da: -///Operation Operation 5,676 -num = 453; -///Operation Operation 5,677 -if (num7 == 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,2 -} -///Goto Goto 5,678 Dest:OK -goto IL_25f2; -///Label Label 5,679 2 -IL_25f2: -///Operation Operation 5,680 -num = 456; -///Operation Operation 5,681 -if ((num7 > DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2625; -///BlockEnd Block 6,2 -} -///Operation Operation 5,682 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2666; -///BlockEnd Block 6,2 -} -///Label Label 5,683 2 -IL_2625: -///Operation Operation 5,684 -num = 457; -///Operation Operation 5,685 -Interaction.MsgBox(Modul1.IText[173] + " " + num7.AsString() + Modul1.IText[172]); -///Goto Goto 5,686 Dest:OK -goto end_IL_0001_2; -///Label Label 5,687 2 -IL_2666: -///Operation Operation 5,688 -num = 460; -///Operation Operation 5,689 -ProgressBar1.Minimum = 0; -///Goto Goto 5,690 Dest:OK -goto IL_267a; -///Label Label 5,691 2 -IL_267a: -///Operation Operation 5,692 -num = 461; -///Operation Operation 5,693 -ProgressBar1.Maximum = 0; -///Goto Goto 5,694 Dest:OK -goto IL_268e; -///Label Label 5,695 2 -IL_268e: -///Operation Operation 5,696 -num = 462; -///Operation Operation 5,697 -ProgressBar1.Step = 1; -///Goto Goto 5,698 Dest:OK -goto IL_26a2; -///Label Label 5,699 2 -IL_26a2: -///Operation Operation 5,700 -num = 463; -///Operation Operation 5,701 -ProgressBar1.Maximum = DataModul.DB_PersonTable.RecordCount - 1; -///Goto Goto 5,702 Dest:OK -goto IL_26c1; -///Label Label 5,703 2 -IL_26c1: -///Operation Operation 5,704 -num = 464; -///Operation Operation 5,705 -i6 = num7; -///Operation Operation 5,706 -num10 = DataModul.DB_PersonTable.RecordCount - 1; -///Operation Operation 5,707 -I1 = i6; -///Goto Goto 5,708 Dest:OK -goto IL_33b6; -///Label Label 5,709 2 -IL_33b6: -///Operation Operation 5,710 -i7 = I1; -///Operation Operation 5,711 -num5 = num10; -///Operation Operation 5,712 -if (i7 <= num5) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_26e3; -///BlockEnd Block 6,2 -} -///Operation Operation 5,713 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_33c7; -///BlockEnd Block 6,2 -} -///Label Label 5,714 2 -IL_33c7: -///Operation Operation 5,715 -num = 615; -///Operation Operation 5,716 -Label4.Text = List1.Items.Count - 1.AsString() + " Einträge"; -///Goto Goto 5,717 Dest:OK -goto IL_448a; -///Label Label 5,718 2 -IL_26e3: -///Operation Operation 5,719 -num = 465; -///Operation Operation 5,720 -ProgressBar1.PerformStep(); -///Goto Goto 5,721 Dest:OK -goto IL_26f6; -///Label Label 5,722 2 -IL_26f6: -///Operation Operation 5,723 -num = 466; -///Operation Operation 5,724 -Application.DoEvents(); -///Goto Goto 5,725 Dest:OK -goto IL_2703; -///Label Label 5,726 2 -IL_2703: -///Operation Operation 5,727 -num = 467; -///Operation Operation 5,728 -Modul1.PersInArb = I1; -///Goto Goto 5,729 Dest:OK -goto IL_2715; -///Label Label 5,730 2 -IL_2715: -///Operation Operation 5,731 -num = 468; -///Operation Operation 5,732 -if (Modul1.PersInArb <= num8) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2730; -///BlockEnd Block 6,2 -} -///Operation Operation 5,733 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_448a; -///BlockEnd Block 6,2 -} -///Label Label 5,734 2 -IL_2730: -///Operation Operation 5,735 -num = 471; -///Operation Operation 5,736 -DataModul.DB_PersonTable.Seek("=", Modul1.PersInArb.AsString()); -///Goto Goto 5,737 Dest:OK -goto IL_2792; -///Label Label 5,738 2 -IL_2792: -///Operation Operation 5,739 -num = 472; -///Operation Operation 5,740 -if (!DataModul.DB_PersonTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_27ae; -///BlockEnd Block 6,2 -} -///Operation Operation 5,741 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3395; -///BlockEnd Block 6,2 -} -///Label Label 5,742 2 -IL_27ae: -///Operation Operation 5,743 -num = 475; -///Operation Operation 5,744 -Modul1.Personlesen(Modul1.PersInArb); -///Goto Goto 5,745 Dest:OK -goto IL_27bb; -///Label Label 5,746 2 -IL_27bb: -///Operation Operation 5,747 -num = 476; -///Operation Operation 5,748 -Modul1.LiText = Strings.Left((Modul1.Kont[0]).Trim() + "," + (Modul1.Kont[3]).Trim() + " ", 20); -///Goto Goto 5,749 Dest:OK -goto IL_27f5; -///Label Label 5,750 2 -IL_27f5: -///Operation Operation 5,751 -num = 477; -///Operation Operation 5,752 -Modul1.Schalt = 20; -///Goto Goto 5,753 Dest:OK -goto IL_2803; -///Label Label 5,754 2 -IL_2803: -///Operation Operation 5,755 -num = 478; -///Operation Operation 5,756 -T = 1; -///Goto Goto 5,757 Dest:OK -goto IL_2811; -///Label Label 5,758 3 -IL_2811: -///Operation Operation 5,759 -num = 479; -///Operation Operation 5,760 -Modul1.Kont[T + 10] = ""; -///Goto Goto 5,761 Dest:OK -goto IL_282d; -///Label Label 5,762 2 -IL_282d: -///Operation Operation 5,763 -num = 480; -///Operation Operation 5,764 -Modul1.Kont[T + 20] = ""; -///Goto Goto 5,765 Dest:OK -goto IL_2849; -///Label Label 5,766 2 -IL_2849: -///Operation Operation 5,767 -num = 481; -///Operation Operation 5,768 -T = (short)unchecked(T + 1); -///Operation Operation 5,769 -t = T; -///Operation Operation 5,770 -num11 = 10; -///Operation Operation 5,771 -if (t <= num11) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2811; -///BlockEnd Block 6,2 -} -///Operation Operation 5,772 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_286e; -///BlockEnd Block 6,2 -} -///Label Label 5,773 2 -IL_286e: -///Operation Operation 5,774 -num = 482; -///Operation Operation 5,775 -Modul1.Datles(); -///Goto Goto 5,776 Dest:OK -goto IL_287b; -///Label Label 5,777 2 -IL_287b: -///Operation Operation 5,778 -num = 483; -///Operation Operation 5,779 -sDest2 = " "; -///Goto Goto 5,780 Dest:OK -goto IL_2889; -///Label Label 5,781 2 -IL_2889: -///Operation Operation 5,782 -num = 484; -///Operation Operation 5,783 -if ((Modul1.Kont[11]).Trim() == "") -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_28b9; -///BlockEnd Block 6,2 -} -///Operation Operation 5,784 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3395; -///BlockEnd Block 6,2 -} -///Label Label 5,785 2 -IL_28b9: -///Operation Operation 5,786 -num = 487; -///Operation Operation 5,787 -if ((Modul1.Kont[12]).Trim() == "") -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_28e9; -///BlockEnd Block 6,2 -} -///Operation Operation 5,788 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3395; -///BlockEnd Block 6,2 -} -///Label Label 5,789 2 -IL_28e9: -///Operation Operation 5,790 -num = 490; -///Operation Operation 5,791 -if ((Modul1.Kont[13]).Trim() == "") -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2919; -///BlockEnd Block 6,2 -} -///Operation Operation 5,792 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3395; -///BlockEnd Block 6,2 -} -///Label Label 5,793 2 -IL_2919: -///Operation Operation 5,794 -num = 493; -///Operation Operation 5,795 -if ((Modul1.Kont[14]).Trim() == "") -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2949; -///BlockEnd Block 6,2 -} -///Operation Operation 5,796 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3395; -///BlockEnd Block 6,2 -} -///Label Label 5,797 2 -IL_2949: -///Operation Operation 5,798 -num = 496; -///Operation Operation 5,799 -num12 = 300; -///Goto Goto 5,800 Dest:OK -goto IL_2956; -///Label Label 5,801 3 -IL_2956: -///Operation Operation 5,802 -num = 497; -///Operation Operation 5,803 -DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.BeSu); -///Goto Goto 5,804 Dest:OK -goto IL_296d; -///Label Label 5,805 2 -IL_296d: -///Operation Operation 5,806 -num = 498; -///Operation Operation 5,807 -DataModul.DB_EventTable.Seek("=", num12, Modul1.PersInArb.AsString()); -///Goto Goto 5,808 Dest:OK -goto IL_29d0; -///Label Label 5,809 2 -IL_29d0: -///Operation Operation 5,810 -num = 499; -///Operation Operation 5,811 -if (!DataModul.DB_EventTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_29ec; -///BlockEnd Block 6,2 -} -///Operation Operation 5,812 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2d63; -///BlockEnd Block 6,2 -} -///Label Label 5,813 2 -IL_29ec: -///Operation Operation 5,814 -num = 502; -///Operation Operation 5,815 -switch (num12) -///BlockStart Block 6,0 -{ -///Label Label 6,1 -case 300: -///Operation Operation 6,2 -break; -///Label Label 6,3 -case 301: -///Goto Goto 6,4 Dest:OK -goto IL_2b31; -///Label Label 6,5 -case 302: -///Goto Goto 6,6 Dest:OK -goto IL_2c4c; -///Label Label 6,7 -default: -///Goto Goto 6,8 Dest:OK -goto IL_2d63; -///BlockEnd Block 6,9 -} -///BlockStart Block 6,10 -{ -///Goto Goto 6,11 Dest:OK -goto IL_2a16; -///BlockEnd Block 6,12 -} -///Label Label 5,816 2 -IL_2c4c: -///Operation Operation 5,817 -num = 534; -///Operation Operation 5,818 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2c7e; -///BlockEnd Block 6,2 -} -///Operation Operation 5,819 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2c9b; -///BlockEnd Block 6,2 -} -///Label Label 5,820 2 -IL_2c7e: -///Operation Operation 5,821 -num = 535; -///Operation Operation 5,822 -StringType.MidStmtStr(ref sDest2, 50, 1, Modul1.IText[175]); -///Goto Goto 5,823 Dest:OK -goto IL_2c9b; -///Label Label 5,824 3 -IL_2c9b: -///Operation Operation 5,825 -num = 537; -///Operation Operation 5,826 -if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2cd2; -///BlockEnd Block 6,2 -} -///Operation Operation 5,827 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3395; -///BlockEnd Block 6,2 -} -///Label Label 5,828 2 -IL_2cd2: -///Operation Operation 5,829 -num = 540; -///Operation Operation 5,830 -if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2d09; -///BlockEnd Block 6,2 -} -///Operation Operation 5,831 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3395; -///BlockEnd Block 6,2 -} -///Label Label 5,832 2 -IL_2d09: -///Operation Operation 5,833 -num = 543; -///Operation Operation 5,834 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2d44; -///BlockEnd Block 6,2 -} -///Operation Operation 5,835 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2d63; -///BlockEnd Block 6,2 -} -///Label Label 5,836 2 -IL_2d44: -///Operation Operation 5,837 -num = 544; -///Operation Operation 5,838 -StringType.MidStmtStr(ref sDest2, 53, 1, Modul1.IText[175]); -///Goto Goto 5,839 Dest:OK -goto IL_2d63; -///Label Label 5,840 2 -IL_2b31: -///Operation Operation 5,841 -num = 520; -///Operation Operation 5,842 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2b63; -///BlockEnd Block 6,2 -} -///Operation Operation 5,843 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2b80; -///BlockEnd Block 6,2 -} -///Label Label 5,844 2 -IL_2b63: -///Operation Operation 5,845 -num = 521; -///Operation Operation 5,846 -StringType.MidStmtStr(ref sDest2, 42, 1, Modul1.IText[175]); -///Goto Goto 5,847 Dest:OK -goto IL_2b80; -///Label Label 5,848 3 -IL_2b80: -///Operation Operation 5,849 -num = 523; -///Operation Operation 5,850 -if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2bb7; -///BlockEnd Block 6,2 -} -///Operation Operation 5,851 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3395; -///BlockEnd Block 6,2 -} -///Label Label 5,852 2 -IL_2bb7: -///Operation Operation 5,853 -num = 526; -///Operation Operation 5,854 -if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2bee; -///BlockEnd Block 6,2 -} -///Operation Operation 5,855 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3395; -///BlockEnd Block 6,2 -} -///Label Label 5,856 2 -IL_2bee: -///Operation Operation 5,857 -num = 529; -///Operation Operation 5,858 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2c29; -///BlockEnd Block 6,2 -} -///Operation Operation 5,859 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2d63; -///BlockEnd Block 6,2 -} -///Label Label 5,860 2 -IL_2c29: -///Operation Operation 5,861 -num = 530; -///Operation Operation 5,862 -StringType.MidStmtStr(ref sDest2, 46, 1, Modul1.IText[175]); -///Goto Goto 5,863 Dest:OK -goto IL_2d63; -///Label Label 5,864 2 -IL_2a16: -///Operation Operation 5,865 -num = 506; -///Operation Operation 5,866 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2a48; -///BlockEnd Block 6,2 -} -///Operation Operation 5,867 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2a65; -///BlockEnd Block 6,2 -} -///Label Label 5,868 2 -IL_2a48: -///Operation Operation 5,869 -num = 507; -///Operation Operation 5,870 -StringType.MidStmtStr(ref sDest2, 34, 1, Modul1.IText[175]); -///Goto Goto 5,871 Dest:OK -goto IL_2a65; -///Label Label 5,872 3 -IL_2a65: -///Operation Operation 5,873 -num = 509; -///Operation Operation 5,874 -if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2a9c; -///BlockEnd Block 6,2 -} -///Operation Operation 5,875 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3395; -///BlockEnd Block 6,2 -} -///Label Label 5,876 2 -IL_2a9c: -///Operation Operation 5,877 -num = 512; -///Operation Operation 5,878 -if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2ad3; -///BlockEnd Block 6,2 -} -///Operation Operation 5,879 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3395; -///BlockEnd Block 6,2 -} -///Label Label 5,880 2 -IL_2ad3: -///Operation Operation 5,881 -num = 515; -///Operation Operation 5,882 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2b0e; -///BlockEnd Block 6,2 -} -///Operation Operation 5,883 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2d63; -///BlockEnd Block 6,2 -} -///Label Label 5,884 2 -IL_2b0e: -///Operation Operation 5,885 -num = 516; -///Operation Operation 5,886 -StringType.MidStmtStr(ref sDest2, 38, 1, Modul1.IText[175]); -///Goto Goto 5,887 Dest:OK -goto IL_2d63; -///Label Label 5,888 9 -IL_2d63: -///Operation Operation 5,889 -num = 547; -///Operation Operation 5,890 -lErl = 92; -///Goto Goto 5,891 Dest:OK -goto IL_2d6e; -///Label Label 5,892 2 -IL_2d6e: -///Operation Operation 5,893 -num = 548; -///Operation Operation 5,894 -num12 = (short)unchecked(num12 + 1); -///Operation Operation 5,895 -num13 = num12; -///Operation Operation 5,896 -num11 = 302; -///Operation Operation 5,897 -if (num13 <= num11) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2956; -///BlockEnd Block 6,2 -} -///Operation Operation 5,898 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_32fc; -///BlockEnd Block 6,2 -} -///Label Label 5,899 4 -IL_32fc: -///Operation Operation 5,900 -num = 606; -///Operation Operation 5,901 -lErl = 45; -///Goto Goto 5,902 Dest:OK -goto IL_3307; -///Label Label 5,903 2 -IL_3307: -///Operation Operation 5,904 -num = 607; -///Operation Operation 5,905 -Modul1.LiText += sDest2; -///Goto Goto 5,906 Dest:OK -goto IL_3320; -///Label Label 5,907 3 -IL_3320: -///Operation Operation 5,908 -num = 609; -///Operation Operation 5,909 -if ((Modul1.LiText).Trim() != "") -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3348; -///BlockEnd Block 6,2 -} -///Operation Operation 5,910 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3383; -///BlockEnd Block 6,2 -} -///Label Label 5,911 2 -IL_3348: -///Operation Operation 5,912 -num = 610; -///Operation Operation 5,913 -List1.Items.Add(new ListItem(Modul1.LiText + " " + Modul1.PersInArb.AsString())); -///Goto Goto 5,914 Dest:OK -goto IL_3383; -///Label Label 5,915 3 -IL_3383: -///Operation Operation 5,916 -num = 612; -///Operation Operation 5,917 -Modul1.LiText = ""; -///Goto Goto 5,918 Dest:OK -goto IL_3395; -///Label Label 5,919 14 -IL_3395: -///Operation Operation 5,920 -num = 613; -///Operation Operation 5,921 -lErl = 95; -///Goto Goto 5,922 Dest:OK -goto IL_33a0; -///Label Label 5,923 2 -IL_33a0: -///Operation Operation 5,924 -num = 614; -///Operation Operation 5,925 -I1++; -///Goto Goto 5,926 Dest:OK -goto IL_33b6; -///Label Label 5,927 2 -IL_1c00: -///Operation Operation 5,928 -num = 336; -///Comment LComment 5,929 -//Sz = 0; -///Goto Goto 5,930 Dest:OK -goto IL_1c0e; -///Label Label 5,931 2 -IL_1c0e: -///Operation Operation 5,932 -num = 337; -///Operation Operation 5,933 -List1.Items.Clear(); -///Goto Goto 5,934 Dest:OK -goto IL_1c26; -///Label Label 5,935 2 -IL_1c26: -///Operation Operation 5,936 -num = 338; -///Operation Operation 5,937 -Label1[2].Text = "Familien ohne Datum"; -///Goto Goto 5,938 Dest:OK -goto IL_1c44; -///Label Label 5,939 2 -IL_1c44: -///Operation Operation 5,940 -num = 339; -///Operation Operation 5,941 -Label1[1].Text = "Mann Frau Kinder Pro Verl. Hei k.H. Schd. Eheä. Aus Fikt."; -///Goto Goto 5,942 Dest:OK -goto IL_1c62; -///Label Label 5,943 2 -IL_1c62: -///Operation Operation 5,944 -num = 340; -///Operation Operation 5,945 -Label1[0].Text = " DO DO DO DO DO DO DO"; -///Goto Goto 5,946 Dest:OK -goto IL_1c80; -///Label Label 5,947 2 -IL_1c80: -///Operation Operation 5,948 -num = 341; -///Operation Operation 5,949 -if (RadioButton2.Checked) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1c98; -///BlockEnd Block 6,2 -} -///Operation Operation 5,950 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1cb5; -///BlockEnd Block 6,2 -} -///Label Label 5,951 2 -IL_1c98: -///Operation Operation 5,952 -num = 342; -///Operation Operation 5,953 -List1.Items.Add("Familien ohne Datum"); -///Goto Goto 5,954 Dest:OK -goto IL_1cb5; -///Label Label 5,955 3 -IL_1cb5: -///Operation Operation 5,956 -num = 344; -///Operation Operation 5,957 -if (RadioButton2.Checked) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1ccd; -///BlockEnd Block 6,2 -} -///Operation Operation 5,958 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1cea; -///BlockEnd Block 6,2 -} -///Label Label 5,959 2 -IL_1ccd: -///Operation Operation 5,960 -num = 345; -///Operation Operation 5,961 -List1.Items.Add("Mann Frau Kinder Pro Verl. Hei k.H. Schd. eheä. auß Fikt."); -///Goto Goto 5,962 Dest:OK -goto IL_1cea; -///Label Label 5,963 3 -IL_1cea: -///Operation Operation 5,964 -num = 347; -///Operation Operation 5,965 -if (RadioButton2.Checked) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1d02; -///BlockEnd Block 6,2 -} -///Operation Operation 5,966 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1d1f; -///BlockEnd Block 6,2 -} -///Label Label 5,967 2 -IL_1d02: -///Operation Operation 5,968 -num = 348; -///Operation Operation 5,969 -List1.Items.Add(" DO DO DO DO DO DO DO"); -///Goto Goto 5,970 Dest:OK -goto IL_1d1f; -///Label Label 5,971 3 -IL_1d1f: -///Operation Operation 5,972 -num = 350; -///Operation Operation 5,973 -Modul1.I = 0; -///Goto Goto 5,974 Dest:OK -goto IL_1d2c; -///Label Label 5,975 3 -IL_1d2c: -///Operation Operation 5,976 -num = 351; -///Operation Operation 5,977 -Label1[(short)Modul1.I].Refresh(); -///Goto Goto 5,978 Dest:OK -goto IL_1d4a; -///Label Label 5,979 2 -IL_1d4a: -///Operation Operation 5,980 -num = 352; -///Operation Operation 5,981 -Modul1.I++; -///Operation Operation 5,982 -i8 = Modul1.I; -///Operation Operation 5,983 -num5 = 2; -///Operation Operation 5,984 -if (i8 <= num5) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1d2c; -///BlockEnd Block 6,2 -} -///Operation Operation 5,985 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1d6a; -///BlockEnd Block 6,2 -} -///Label Label 5,986 2 -IL_1d6a: -///Operation Operation 5,987 -num = 353; -///Operation Operation 5,988 -num7 = 1; -///Goto Goto 5,989 Dest:OK -goto IL_1d74; -///Label Label 5,990 2 -IL_1d74: -///Operation Operation 5,991 -num = 354; -///Operation Operation 5,992 -if (num7 <= 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,2 -} -///Goto Goto 5,993 Dest:OK -goto IL_1d8f; -///Label Label 5,994 2 -IL_1d8f: -///Operation Operation 5,995 -num = 357; -///Operation Operation 5,996 -DataModul.DB_FamilyTable.MoveLast(); -///Goto Goto 5,997 Dest:OK -goto IL_1da2; -///Label Label 5,998 2 -IL_1da2: -///Operation Operation 5,999 -num = 358; -///Operation Operation 5,1000 -num8 = DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value.AsInt(); -///Goto Goto 5,1001 Dest:OK -goto IL_1dc9; -///Label Label 5,1002 2 -IL_1dc9: -///Operation Operation 5,1003 -num = 359; -///Operation Operation 5,1004 -if ((num7 > DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1dfc; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1005 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1e3d; -///BlockEnd Block 6,2 -} -///Label Label 5,1006 2 -IL_1dfc: -///Operation Operation 5,1007 -num = 360; -///Operation Operation 5,1008 -Interaction.MsgBox(Modul1.IText[174] + " " + num7.AsString() + Modul1.IText[172]); -///Goto Goto 5,1009 Dest:OK -goto end_IL_0001_2; -///Label Label 5,1010 2 -IL_1e3d: -///Operation Operation 5,1011 -num = 363; -///Operation Operation 5,1012 -ProgressBar1.Minimum = 0; -///Goto Goto 5,1013 Dest:OK -goto IL_1e51; -///Label Label 5,1014 2 -IL_1e51: -///Operation Operation 5,1015 -num = 364; -///Operation Operation 5,1016 -ProgressBar1.Maximum = 0; -///Goto Goto 5,1017 Dest:OK -goto IL_1e65; -///Label Label 5,1018 2 -IL_1e65: -///Operation Operation 5,1019 -num = 365; -///Operation Operation 5,1020 -ProgressBar1.Step = 1; -///Goto Goto 5,1021 Dest:OK -goto IL_1e79; -///Label Label 5,1022 2 -IL_1e79: -///Operation Operation 5,1023 -num = 366; -///Operation Operation 5,1024 -ProgressBar1.Maximum = (int)Math.Round(Conversion.Val(Modul1.Aus[13])); -///Goto Goto 5,1025 Dest:OK -goto IL_1e9f; -///Label Label 5,1026 2 -IL_1e9f: -///Operation Operation 5,1027 -num = 367; -///Operation Operation 5,1028 -i9 = num7; -///Operation Operation 5,1029 -num14 = num7 + DataModul.DB_FamilyTable.RecordCount; -///Operation Operation 5,1030 -I1 = i9; -///Goto Goto 5,1031 Dest:OK -goto IL_2440; -///Label Label 5,1032 2 -IL_2440: -///Operation Operation 5,1033 -i10 = I1; -///Operation Operation 5,1034 -num5 = num14; -///Operation Operation 5,1035 -if (i10 <= num5) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1ec2; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1036 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2451; -///BlockEnd Block 6,2 -} -///Label Label 5,1037 2 -IL_2451: -///Operation Operation 5,1038 -num = 435; -///Operation Operation 5,1039 -Label4.Text = List1.Items.Count - 2.AsString() + " Einträge"; -///Goto Goto 5,1040 Dest:OK -goto end_IL_0001_2; -///Label Label 5,1041 2 -IL_1ec2: -///Operation Operation 5,1042 -num = 368; -///Operation Operation 5,1043 -ProgressBar1.PerformStep(); -///Goto Goto 5,1044 Dest:OK -goto IL_1ed5; -///Label Label 5,1045 2 -IL_1ed5: -///Operation Operation 5,1046 -num = 369; -///Operation Operation 5,1047 -Application.DoEvents(); -///Goto Goto 5,1048 Dest:OK -goto IL_1ee2; -///Label Label 5,1049 2 -IL_1ee2: -///Operation Operation 5,1050 -num = 370; -///Operation Operation 5,1051 -sDest2 = " "; -///Goto Goto 5,1052 Dest:OK -goto IL_1ef0; -///Label Label 5,1053 2 -IL_1ef0: -///Operation Operation 5,1054 -num = 371; -///Operation Operation 5,1055 -Modul1.FamInArb = I1; -///Goto Goto 5,1056 Dest:OK -goto IL_1f02; -///Label Label 5,1057 2 -IL_1f02: -///Operation Operation 5,1058 -num = 372; -///Operation Operation 5,1059 -if (Modul1.FamInArb <= num8) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1f1d; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1060 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_241f; -///BlockEnd Block 6,2 -} -///Label Label 5,1061 2 -IL_1f1d: -///Operation Operation 5,1062 -num = 375; -///Operation Operation 5,1063 -DataModul.DB_FamilyTable.Index = nameof(DataModul.FamilyIndex.Fam); -///Goto Goto 5,1064 Dest:OK -goto IL_1f34; -///Label Label 5,1065 2 -IL_1f34: -///Operation Operation 5,1066 -num = 376; -///Operation Operation 5,1067 -DataModul.DB_FamilyTable.Seek("=", Modul1.FamInArb.AsString()); -///Goto Goto 5,1068 Dest:OK -goto IL_1f96; -///Label Label 5,1069 2 -IL_1f96: -///Operation Operation 5,1070 -num = 377; -///Operation Operation 5,1071 -if (!DataModul.DB_FamilyTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1fb2; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1072 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2317; -///BlockEnd Block 6,2 -} -///Label Label 5,1073 2 -IL_1fb2: -///Operation Operation 5,1074 -num = 380; -///Operation Operation 5,1075 -MainProject.Forms.Familie.Famles(Modul1.FamInArb); -///Goto Goto 5,1076 Dest:OK -goto IL_1fbf; -///Label Label 5,1077 2 -IL_1fbf: -///Operation Operation 5,1078 -num = 381; -///Operation Operation 5,1079 -if (Modul1.Family.Mann > 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1fd7; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1080 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_206d; -///BlockEnd Block 6,2 -} -///Label Label 5,1081 2 -IL_1fd7: -///Operation Operation 5,1082 -num = 382; -///Operation Operation 5,1083 -Modul1.PersInArb = Modul1.Family.Mann; -///Goto Goto 5,1084 Dest:OK -goto IL_1fe8; -///Label Label 5,1085 2 -IL_1fe8: -///Operation Operation 5,1086 -num = 383; -///Operation Operation 5,1087 -Modul1.Personlesen(Modul1.PersInArb); -///Goto Goto 5,1088 Dest:OK -goto IL_1ff5; -///Label Label 5,1089 2 -IL_1ff5: -///Operation Operation 5,1090 -num = 384; -///Operation Operation 5,1091 -if (Modul1.Kont[0] != "") -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_201a; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1092 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2035; -///BlockEnd Block 6,2 -} -///Label Label 5,1093 2 -IL_201a: -///Operation Operation 5,1094 -num = 385; -///Operation Operation 5,1095 -StringType.MidStmtStr(ref sDest2, 1, 15, Modul1.Kont[0]); -///Goto Goto 5,1096 Dest:OK -goto IL_2055; -///Label Label 5,1097 2 -IL_2035: -///Operation Operation 5,1098 -num = 387; -///Goto Goto 5,1099 Dest:OK -goto IL_203d; -///Label Label 5,1100 2 -IL_203d: -///Operation Operation 5,1101 -num = 388; -///Operation Operation 5,1102 -StringType.MidStmtStr(ref sDest2, 1, 15, ">NN<"); -///Goto Goto 5,1103 Dest:OK -goto IL_2055; -///Label Label 5,1104 3 -IL_2055: -///Operation Operation 5,1105 -num = 390; -///Operation Operation 5,1106 -StringType.MidStmtStr(ref sDest2, 16, 2, "/ "); -///Goto Goto 5,1107 Dest:OK -goto IL_206d; -///Label Label 5,1108 3 -IL_206d: -///Operation Operation 5,1109 -num = 392; -///Operation Operation 5,1110 -if (Modul1.Family.Frau > 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2085; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1111 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2106; -///BlockEnd Block 6,2 -} -///Label Label 5,1112 2 -IL_2085: -///Operation Operation 5,1113 -num = 393; -///Operation Operation 5,1114 -Modul1.PersInArb = Modul1.Family.Frau; -///Goto Goto 5,1115 Dest:OK -goto IL_2096; -///Label Label 5,1116 2 -IL_2096: -///Operation Operation 5,1117 -num = 394; -///Operation Operation 5,1118 -Modul1.Personlesen(Modul1.PersInArb); -///Goto Goto 5,1119 Dest:OK -goto IL_20a3; -///Label Label 5,1120 2 -IL_20a3: -///Operation Operation 5,1121 -num = 395; -///Operation Operation 5,1122 -if (Modul1.Kont[0] != "") -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_20c8; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1123 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_20e4; -///BlockEnd Block 6,2 -} -///Label Label 5,1124 2 -IL_20c8: -///Operation Operation 5,1125 -num = 396; -///Operation Operation 5,1126 -StringType.MidStmtStr(ref sDest2, 17, 15, Modul1.Kont[0]); -///Goto Goto 5,1127 Dest:OK -goto IL_2106; -///Label Label 5,1128 2 -IL_20e4: -///Operation Operation 5,1129 -num = 398; -///Goto Goto 5,1130 Dest:OK -goto IL_20ec; -///Label Label 5,1131 2 -IL_20ec: -///Operation Operation 5,1132 -num = 399; -///Operation Operation 5,1133 -StringType.MidStmtStr(ref sDest2, 17, 15, ">NN<"); -///Goto Goto 5,1134 Dest:OK -goto IL_2106; -///Label Label 5,1135 4 -IL_2106: -///Operation Operation 5,1136 -num = 402; -///Operation Operation 5,1137 -if (Modul1.Family.Kind[1] != 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2120; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1138 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_213d; -///BlockEnd Block 6,2 -} -///Label Label 5,1139 2 -IL_2120: -///Operation Operation 5,1140 -num = 403; -///Operation Operation 5,1141 -StringType.MidStmtStr(ref sDest2, 32, 1, Modul1.IText[175]); -///Goto Goto 5,1142 Dest:OK -goto IL_213d; -///Label Label 5,1143 3 -IL_213d: -///Operation Operation 5,1144 -num = 405; -///Operation Operation 5,1145 -DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.ArtNr); -///Goto Goto 5,1146 Dest:OK -goto IL_2154; -///Label Label 5,1147 2 -IL_2154: -///Operation Operation 5,1148 -num = 406; -///Operation Operation 5,1149 -DataModul.DB_FamilyTable.Index = nameof(DataModul.FamilyIndex.Fam); -///Goto Goto 5,1150 Dest:OK -goto IL_216b; -///Label Label 5,1151 2 -IL_216b: -///Operation Operation 5,1152 -num = 407; -///Operation Operation 5,1153 -DataModul.DB_FamilyTable.Seek("=", Modul1.FamInArb); -///Goto Goto 5,1154 Dest:OK -goto IL_21c8; -///Label Label 5,1155 2 -IL_21c8: -///Operation Operation 5,1156 -num = 408; -///Operation Operation 5,1157 -if (!DataModul.DB_FamilyTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_21e4; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1158 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2317; -///BlockEnd Block 6,2 -} -///Label Label 5,1159 2 -IL_21e4: -///Operation Operation 5,1160 -num = 411; -///Operation Operation 5,1161 -if ((DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.Aeb)].Value == -1)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2216; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1162 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2233; -///BlockEnd Block 6,2 -} -///Label Label 5,1163 2 -IL_2216: -///Operation Operation 5,1164 -num = 412; -///Operation Operation 5,1165 -StringType.MidStmtStr(ref sDest2, 70, 1, Modul1.IText[175]); -///Goto Goto 5,1166 Dest:OK -goto IL_2233; -///Label Label 5,1167 3 -IL_2233: -///Operation Operation 5,1168 -num = 414; -///Operation Operation 5,1169 -num15 = 500; -///Goto Goto 5,1170 Dest:OK -goto IL_2240; -///Label Label 5,1171 3 -IL_2240: -///Operation Operation 5,1172 -num = 415; -///Operation Operation 5,1173 -Modul1.Ubg = num15; -///Goto Goto 5,1174 Dest:OK -goto IL_224d; -///Label Label 5,1175 2 -IL_224d: -///Operation Operation 5,1176 -num = 416; -///Operation Operation 5,1177 -DataModul.DB_EventTable.Seek("=", Modul1.Ubg.AsString(), Modul1.FamInArb.AsString(), "0"); -///Goto Goto 5,1178 Dest:OK -goto IL_22b9; -///Label Label 5,1179 2 -IL_22b9: -///Operation Operation 5,1180 -num = 417; -///Operation Operation 5,1181 -if (DataModul.DB_EventTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_22d8; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1182 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_241f; -///BlockEnd Block 6,2 -} -///Label Label 5,1183 2 -IL_22d8: -///Operation Operation 5,1184 -num = 420; -///Operation Operation 5,1185 -if (!((num15 == 507) & DataModul.DB_EventTable.NoMatch)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_22fa; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1186 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2317; -///BlockEnd Block 6,2 -} -///Label Label 5,1187 2 -IL_22fa: -///Operation Operation 5,1188 -num = 423; -///Operation Operation 5,1189 -num15 = (short)unchecked(num15 + 1); -///Operation Operation 5,1190 -num16 = num15; -///Operation Operation 5,1191 -num11 = 507; -///Operation Operation 5,1192 -if (num16 <= num11) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2240; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1193 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2317; -///BlockEnd Block 6,2 -} -///Label Label 5,1194 5 -IL_2317: -///Operation Operation 5,1195 -num = 424; -///Operation Operation 5,1196 -lErl = 34; -///Goto Goto 5,1197 Dest:OK -goto IL_2322; -///Label Label 5,1198 2 -IL_2322: -///Operation Operation 5,1199 -num = 425; -///Operation Operation 5,1200 -DataModul.DB_EventTable.Seek("=", 601.AsString(), Modul1.FamInArb.AsString(), "0"); -///Goto Goto 5,1201 Dest:OK -goto IL_238e; -///Label Label 5,1202 2 -IL_238e: -///Operation Operation 5,1203 -num = 426; -///Operation Operation 5,1204 -if (DataModul.DB_EventTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_23aa; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1205 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_241f; -///BlockEnd Block 6,2 -} -///Label Label 5,1206 2 -IL_23aa: -///Operation Operation 5,1207 -num = 429; -///Operation Operation 5,1208 -if (sDest2.Trim() != "") -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_23cf; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1209 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_241f; -///BlockEnd Block 6,2 -} -///Label Label 5,1210 2 -IL_23cf: -///Operation Operation 5,1211 -num = 430; -///Operation Operation 5,1212 -List1.Items.Add(new ListItem(sDest2 + " " + Modul1.FamInArb.AsString())); -///Goto Goto 5,1213 Dest:OK -goto IL_2407; -///Label Label 5,1214 2 -IL_2407: -///Operation Operation 5,1215 -num = 431; -///Comment LComment 5,1216 -//Sz++; -///Goto Goto 5,1217 Dest:OK -goto IL_241f; -///Label Label 5,1218 6 -IL_241f: -///Operation Operation 5,1219 -num = 433; -///Operation Operation 5,1220 -lErl = 35; -///Goto Goto 5,1221 Dest:OK -goto IL_242a; -///Label Label 5,1222 2 -IL_242a: -///Operation Operation 5,1223 -num = 434; -///Operation Operation 5,1224 -I1++; -///Goto Goto 5,1225 Dest:OK -goto IL_2440; -///Label Label 5,1226 2 -IL_1aae: -///Operation Operation 5,1227 -num = 322; -///Operation Operation 5,1228 -FileSystem.FileClose(99); -///Goto Goto 5,1229 Dest:OK -goto IL_1acb; -///Label Label 5,1230 2 -IL_1acb: -///Operation Operation 5,1231 -num = 323; -///Operation Operation 5,1232 -FileSystem.FileOpen(99, Modul1.TempPath + "\\Text4.Txt", OpenMode.Output); -///Goto Goto 5,1233 Dest:OK -goto IL_1aed; -///Label Label 5,1234 2 -IL_1aed: -///Operation Operation 5,1235 -num = 324; -///Operation Operation 5,1236 -FileSystem.PrintLine(99, Label1[2].Text); -///Goto Goto 5,1237 Dest:OK -goto IL_1b1c; -///Label Label 5,1238 2 -IL_1b1c: -///Operation Operation 5,1239 -num = 325; -///Operation Operation 5,1240 -FileSystem.PrintLine(99, Label1[1].Text); -///Goto Goto 5,1241 Dest:OK -goto IL_1b4b; -///Label Label 5,1242 2 -IL_1b4b: -///Operation Operation 5,1243 -num = 326; -///Operation Operation 5,1244 -FileSystem.PrintLine(99, Label1[0].Text); -///Goto Goto 5,1245 Dest:OK -goto IL_1b7a; -///Label Label 5,1246 2 -IL_1b7a: -///Operation Operation 5,1247 -num = 327; -///Operation Operation 5,1248 -if (List2.Visible) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1b92; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1249 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1bb9; -///BlockEnd Block 6,2 -} -///Label Label 5,1250 2 -IL_1b92: -///Operation Operation 5,1251 -num = 328; -///Operation Operation 5,1252 -L = List2; -///Operation Operation 5,1253 -A = 2; -///Operation Operation 5,1254 -Modul1.Listbox3Clip(ref L, ref A); -///Operation Operation 5,1255 -List2 = L; -///Goto Goto 5,1256 Dest:OK -goto IL_1be7; -///Label Label 5,1257 2 -IL_1bb9: -///Operation Operation 5,1258 -num = 330; -///Goto Goto 5,1259 Dest:OK -goto IL_1bc1; -///Label Label 5,1260 2 -IL_1bc1: -///Operation Operation 5,1261 -num = 331; -///Operation Operation 5,1262 -L = List1; -///Operation Operation 5,1263 -A = 2; -///Operation Operation 5,1264 -Modul1.Listbox3Clip(ref L, ref A); -///Operation Operation 5,1265 -List1 = L; -///Goto Goto 5,1266 Dest:OK -goto IL_1be7; -///Label Label 5,1267 3 -IL_1be7: -///Operation Operation 5,1268 -num = 333; -///Operation Operation 5,1269 -FileSystem.FileClose(); -///Goto Goto 5,1270 Dest:OK -goto IL_448a; -///Label Label 5,1271 2 -IL_1a3c: -///Operation Operation 5,1272 -num = 314; -///Operation Operation 5,1273 -List1.Items.Clear(); -///Goto Goto 5,1274 Dest:OK -goto IL_1a54; -///Label Label 5,1275 2 -IL_1a54: -///Operation Operation 5,1276 -num = 315; -///Operation Operation 5,1277 -List2.Items.Clear(); -///Goto Goto 5,1278 Dest:OK -goto IL_1a6c; -///Label Label 5,1279 2 -IL_1a6c: -///Operation Operation 5,1280 -num = 316; -///Operation Operation 5,1281 -ProgressBar1.Minimum = 0; -///Goto Goto 5,1282 Dest:OK -goto IL_1a80; -///Label Label 5,1283 2 -IL_1a80: -///Operation Operation 5,1284 -num = 317; -///Operation Operation 5,1285 -ProgressBar1.Maximum = 0; -///Goto Goto 5,1286 Dest:OK -goto IL_1a94; -///Label Label 5,1287 2 -IL_1a94: -///Operation Operation 5,1288 -num = 318; -///Operation Operation 5,1289 -Close(); -///Goto Goto 5,1290 Dest:OK -goto end_IL_0001_2; -///Label Label 5,1291 2 -IL_0cef: -///Operation Operation 5,1292 -num = 159; -///Operation Operation 5,1293 -DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.ArtNr); -///Goto Goto 5,1294 Dest:OK -goto IL_0d06; -///Label Label 5,1295 2 -IL_0d06: -///Operation Operation 5,1296 -num = 160; -///Operation Operation 5,1297 -List1.Items.Clear(); -///Goto Goto 5,1298 Dest:OK -goto IL_0d1e; -///Label Label 5,1299 2 -IL_0d1e: -///Operation Operation 5,1300 -num = 161; -///Operation Operation 5,1301 -Label1[2].Text = "Fehlliste Familien"; -///Goto Goto 5,1302 Dest:OK -goto IL_0d3c; -///Label Label 5,1303 2 -IL_0d3c: -///Operation Operation 5,1304 -num = 162; -///Operation Operation 5,1305 -Label1[1].Text = "Mann Frau Kinder Pro Verl. Hei k.H. Schd. eheä. auß Fikt."; -///Goto Goto 5,1306 Dest:OK -goto IL_0d5a; -///Label Label 5,1307 2 -IL_0d5a: -///Operation Operation 5,1308 -num = 163; -///Operation Operation 5,1309 -Label1[0].Text = " DO DO DO DO DO DO DO"; -///Goto Goto 5,1310 Dest:OK -goto IL_0d78; -///Label Label 5,1311 2 -IL_0d78: -///Operation Operation 5,1312 -num = 164; -///Operation Operation 5,1313 -if (RadioButton2.Checked) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0d90; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1314 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0dad; -///BlockEnd Block 6,2 -} -///Label Label 5,1315 2 -IL_0d90: -///Operation Operation 5,1316 -num = 165; -///Operation Operation 5,1317 -List1.Items.Add("Fehlliste Familien"); -///Goto Goto 5,1318 Dest:OK -goto IL_0dad; -///Label Label 5,1319 3 -IL_0dad: -///Operation Operation 5,1320 -num = 167; -///Operation Operation 5,1321 -if (RadioButton2.Checked) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0dc5; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1322 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0de2; -///BlockEnd Block 6,2 -} -///Label Label 5,1323 2 -IL_0dc5: -///Operation Operation 5,1324 -num = 168; -///Operation Operation 5,1325 -List1.Items.Add("Mann Frau Kinder Pro Verl. Hei k.H. Schd. eheä. auß Fikt."); -///Goto Goto 5,1326 Dest:OK -goto IL_0de2; -///Label Label 5,1327 3 -IL_0de2: -///Operation Operation 5,1328 -num = 170; -///Operation Operation 5,1329 -if (RadioButton2.Checked) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0dfa; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1330 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0e17; -///BlockEnd Block 6,2 -} -///Label Label 5,1331 2 -IL_0dfa: -///Operation Operation 5,1332 -num = 171; -///Operation Operation 5,1333 -List1.Items.Add(" DO DO DO DO DO DO DO"); -///Goto Goto 5,1334 Dest:OK -goto IL_0e17; -///Label Label 5,1335 3 -IL_0e17: -///Operation Operation 5,1336 -num = 173; -///Operation Operation 5,1337 -Modul1.I = 0; -///Goto Goto 5,1338 Dest:OK -goto IL_0e24; -///Label Label 5,1339 3 -IL_0e24: -///Operation Operation 5,1340 -num = 174; -///Operation Operation 5,1341 -Label1[(short)Modul1.I].Refresh(); -///Goto Goto 5,1342 Dest:OK -goto IL_0e42; -///Label Label 5,1343 2 -IL_0e42: -///Operation Operation 5,1344 -num = 175; -///Operation Operation 5,1345 -Modul1.I++; -///Operation Operation 5,1346 -i11 = Modul1.I; -///Operation Operation 5,1347 -num5 = 2; -///Operation Operation 5,1348 -if (i11 <= num5) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0e24; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1349 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0e62; -///BlockEnd Block 6,2 -} -///Label Label 5,1350 2 -IL_0e62: -///Operation Operation 5,1351 -num = 176; -///Operation Operation 5,1352 -num7 = 1; -///Goto Goto 5,1353 Dest:OK -goto IL_0e6c; -///Label Label 5,1354 2 -IL_0e6c: -///Operation Operation 5,1355 -num = 177; -///Operation Operation 5,1356 -if (num7 <= 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,2 -} -///Goto Goto 5,1357 Dest:OK -goto IL_0e87; -///Label Label 5,1358 2 -IL_0e87: -///Operation Operation 5,1359 -num = 180; -///Operation Operation 5,1360 -DataModul.DB_FamilyTable.MoveLast(); -///Goto Goto 5,1361 Dest:OK -goto IL_0e9a; -///Label Label 5,1362 2 -IL_0e9a: -///Operation Operation 5,1363 -num = 181; -///Operation Operation 5,1364 -num8 = DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value.AsInt(); -///Goto Goto 5,1365 Dest:OK -goto IL_0ec1; -///Label Label 5,1366 2 -IL_0ec1: -///Operation Operation 5,1367 -num = 182; -///Operation Operation 5,1368 -if ((num7 > DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0ef4; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1369 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0f36; -///BlockEnd Block 6,2 -} -///Label Label 5,1370 2 -IL_0ef4: -///Operation Operation 5,1371 -num = 183; -///Operation Operation 5,1372 -Interaction.MsgBox("Die höchste Familiennummer ist " + DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value.AsString()); -///Goto Goto 5,1373 Dest:OK -goto end_IL_0001_2; -///Label Label 5,1374 2 -IL_0f36: -///Operation Operation 5,1375 -num = 186; -///Operation Operation 5,1376 -ProgressBar1.Minimum = 0; -///Goto Goto 5,1377 Dest:OK -goto IL_0f4a; -///Label Label 5,1378 2 -IL_0f4a: -///Operation Operation 5,1379 -num = 187; -///Operation Operation 5,1380 -ProgressBar1.Maximum = DataModul.DB_FamilyTable.RecordCount - 1; -///Goto Goto 5,1381 Dest:OK -goto IL_0f69; -///Label Label 5,1382 2 -IL_0f69: -///Operation Operation 5,1383 -num = 188; -///Operation Operation 5,1384 -ProgressBar1.Step = 1; -///Goto Goto 5,1385 Dest:OK -goto IL_0f7d; -///Label Label 5,1386 2 -IL_0f7d: -///Operation Operation 5,1387 -num = 189; -///Operation Operation 5,1388 -i12 = num7; -///Operation Operation 5,1389 -num17 = num8; -///Operation Operation 5,1390 -I1 = i12; -///Goto Goto 5,1391 Dest:OK -goto IL_199d; -///Label Label 5,1392 2 -IL_199d: -///Operation Operation 5,1393 -i13 = I1; -///Operation Operation 5,1394 -num5 = num17; -///Operation Operation 5,1395 -if (i13 <= num5) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0f95; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1396 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_19ae; -///BlockEnd Block 6,2 -} -///Label Label 5,1397 2 -IL_19ae: -///Operation Operation 5,1398 -num = 308; -///Operation Operation 5,1399 -Label4.Text = List1.Items.Count - 3.AsString() + " Familien"; -///Goto Goto 5,1400 Dest:OK -goto IL_19e7; -///Label Label 5,1401 2 -IL_19e7: -///Operation Operation 5,1402 -num = 309; -///Operation Operation 5,1403 -if (RadioButton1.Checked) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_19ff; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1404 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_448a; -///BlockEnd Block 6,2 -} -///Label Label 5,1405 2 -IL_19ff: -///Operation Operation 5,1406 -num = 310; -///Operation Operation 5,1407 -Label4.Text = List1.Items.Count.AsString() + " Familien"; -///Goto Goto 5,1408 Dest:OK -goto IL_448a; -///Label Label 5,1409 2 -IL_0f95: -///Operation Operation 5,1410 -num = 190; -///Operation Operation 5,1411 -ProgressBar1.PerformStep(); -///Goto Goto 5,1412 Dest:OK -goto IL_0fa8; -///Label Label 5,1413 2 -IL_0fa8: -///Operation Operation 5,1414 -num = 191; -///Operation Operation 5,1415 -Application.DoEvents(); -///Goto Goto 5,1416 Dest:OK -goto IL_0fb5; -///Label Label 5,1417 2 -IL_0fb5: -///Operation Operation 5,1418 -num = 192; -///Operation Operation 5,1419 -sDest2 = " "; -///Goto Goto 5,1420 Dest:OK -goto IL_0fc3; -///Label Label 5,1421 2 -IL_0fc3: -///Operation Operation 5,1422 -num = 193; -///Operation Operation 5,1423 -Modul1.FamInArb = I1; -///Goto Goto 5,1424 Dest:OK -goto IL_0fd5; -///Label Label 5,1425 2 -IL_0fd5: -///Operation Operation 5,1426 -num = 194; -///Operation Operation 5,1427 -if (Modul1.FamInArb <= num8) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0ff0; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1428 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_448a; -///BlockEnd Block 6,2 -} -///Label Label 5,1429 2 -IL_0ff0: -///Operation Operation 5,1430 -num = 197; -///Operation Operation 5,1431 -DataModul.DB_FamilyTable.Index = nameof(DataModul.FamilyIndex.Fam); -///Goto Goto 5,1432 Dest:OK -goto IL_1007; -///Label Label 5,1433 2 -IL_1007: -///Operation Operation 5,1434 -num = 198; -///Operation Operation 5,1435 -DataModul.DB_FamilyTable.Seek("=", Modul1.FamInArb.AsString()); -///Goto Goto 5,1436 Dest:OK -goto IL_1069; -///Label Label 5,1437 2 -IL_1069: -///Operation Operation 5,1438 -num = 199; -///Operation Operation 5,1439 -if (!DataModul.DB_FamilyTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1085; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1440 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_197c; -///BlockEnd Block 6,2 -} -///Label Label 5,1441 2 -IL_1085: -///Operation Operation 5,1442 -num = 202; -///Operation Operation 5,1443 -MainProject.Forms.Familie.Famles(Modul1.FamInArb); -///Goto Goto 5,1444 Dest:OK -goto IL_1092; -///Label Label 5,1445 2 -IL_1092: -///Operation Operation 5,1446 -num = 203; -///Operation Operation 5,1447 -if (Modul1.Family.Mann > 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_10aa; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1448 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1140; -///BlockEnd Block 6,2 -} -///Label Label 5,1449 2 -IL_10aa: -///Operation Operation 5,1450 -num = 204; -///Operation Operation 5,1451 -Modul1.PersInArb = Modul1.Family.Mann; -///Goto Goto 5,1452 Dest:OK -goto IL_10bb; -///Label Label 5,1453 2 -IL_10bb: -///Operation Operation 5,1454 -num = 205; -///Operation Operation 5,1455 -Modul1.Personlesen(Modul1.PersInArb); -///Goto Goto 5,1456 Dest:OK -goto IL_10c8; -///Label Label 5,1457 2 -IL_10c8: -///Operation Operation 5,1458 -num = 206; -///Operation Operation 5,1459 -if (Modul1.Kont[0] != "") -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_10ed; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1460 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1108; -///BlockEnd Block 6,2 -} -///Label Label 5,1461 2 -IL_10ed: -///Operation Operation 5,1462 -num = 207; -///Operation Operation 5,1463 -StringType.MidStmtStr(ref sDest2, 1, 15, Modul1.Kont[0]); -///Goto Goto 5,1464 Dest:OK -goto IL_1128; -///Label Label 5,1465 2 -IL_1108: -///Operation Operation 5,1466 -num = 209; -///Goto Goto 5,1467 Dest:OK -goto IL_1110; -///Label Label 5,1468 2 -IL_1110: -///Operation Operation 5,1469 -num = 210; -///Operation Operation 5,1470 -StringType.MidStmtStr(ref sDest2, 1, 15, ">NN<"); -///Goto Goto 5,1471 Dest:OK -goto IL_1128; -///Label Label 5,1472 3 -IL_1128: -///Operation Operation 5,1473 -num = 212; -///Operation Operation 5,1474 -StringType.MidStmtStr(ref sDest2, 16, 2, "/ "); -///Goto Goto 5,1475 Dest:OK -goto IL_1140; -///Label Label 5,1476 3 -IL_1140: -///Operation Operation 5,1477 -num = 214; -///Operation Operation 5,1478 -if (Modul1.Family.Frau > 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1158; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1479 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_11d9; -///BlockEnd Block 6,2 -} -///Label Label 5,1480 2 -IL_1158: -///Operation Operation 5,1481 -num = 215; -///Operation Operation 5,1482 -Modul1.PersInArb = Modul1.Family.Frau; -///Goto Goto 5,1483 Dest:OK -goto IL_1169; -///Label Label 5,1484 2 -IL_1169: -///Operation Operation 5,1485 -num = 216; -///Operation Operation 5,1486 -Modul1.Personlesen(Modul1.PersInArb); -///Goto Goto 5,1487 Dest:OK -goto IL_1176; -///Label Label 5,1488 2 -IL_1176: -///Operation Operation 5,1489 -num = 217; -///Operation Operation 5,1490 -if (Modul1.Kont[0] != "") -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_119b; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1491 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_11b7; -///BlockEnd Block 6,2 -} -///Label Label 5,1492 2 -IL_119b: -///Operation Operation 5,1493 -num = 218; -///Operation Operation 5,1494 -StringType.MidStmtStr(ref sDest2, 17, 15, Modul1.Kont[0]); -///Goto Goto 5,1495 Dest:OK -goto IL_11d9; -///Label Label 5,1496 2 -IL_11b7: -///Operation Operation 5,1497 -num = 220; -///Goto Goto 5,1498 Dest:OK -goto IL_11bf; -///Label Label 5,1499 2 -IL_11bf: -///Operation Operation 5,1500 -num = 221; -///Operation Operation 5,1501 -StringType.MidStmtStr(ref sDest2, 17, 15, ">NN<"); -///Goto Goto 5,1502 Dest:OK -goto IL_11d9; -///Label Label 5,1503 4 -IL_11d9: -///Operation Operation 5,1504 -num = 224; -///Operation Operation 5,1505 -if (Modul1.Family.Kind[1] != 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_11f3; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1506 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1210; -///BlockEnd Block 6,2 -} -///Label Label 5,1507 2 -IL_11f3: -///Operation Operation 5,1508 -num = 225; -///Operation Operation 5,1509 -StringType.MidStmtStr(ref sDest2, 32, 1, Modul1.IText[175]); -///Goto Goto 5,1510 Dest:OK -goto IL_1210; -///Label Label 5,1511 3 -IL_1210: -///Operation Operation 5,1512 -num = 227; -///Operation Operation 5,1513 -DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.ArtNr); -///Goto Goto 5,1514 Dest:OK -goto IL_1227; -///Label Label 5,1515 2 -IL_1227: -///Operation Operation 5,1516 -num = 228; -///Operation Operation 5,1517 -DataModul.DB_FamilyTable.Index = nameof(DataModul.FamilyIndex.Fam); -///Goto Goto 5,1518 Dest:OK -goto IL_123e; -///Label Label 5,1519 2 -IL_123e: -///Operation Operation 5,1520 -num = 229; -///Operation Operation 5,1521 -DataModul.DB_FamilyTable.Seek("=", Modul1.FamInArb); -///Goto Goto 5,1522 Dest:OK -goto IL_129b; -///Label Label 5,1523 2 -IL_129b: -///Operation Operation 5,1524 -num = 230; -///Operation Operation 5,1525 -if (!DataModul.DB_FamilyTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_12b7; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1526 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_197c; -///BlockEnd Block 6,2 -} -///Label Label 5,1527 2 -IL_12b7: -///Operation Operation 5,1528 -num = 233; -///Operation Operation 5,1529 -if ((DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.Aeb)].Value == -1)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_12e9; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1530 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1306; -///BlockEnd Block 6,2 -} -///Label Label 5,1531 2 -IL_12e9: -///Operation Operation 5,1532 -num = 234; -///Operation Operation 5,1533 -StringType.MidStmtStr(ref sDest2, 70, 1, Modul1.IText[175]); -///Goto Goto 5,1534 Dest:OK -goto IL_1306; -///Label Label 5,1535 3 -IL_1306: -///Operation Operation 5,1536 -num = 236; -///Operation Operation 5,1537 -num15 = 500; -///Goto Goto 5,1538 Dest:OK -goto IL_1313; -///Label Label 5,1539 3 -IL_1313: -///Operation Operation 5,1540 -num = 237; -///Operation Operation 5,1541 -Modul1.Ubg = num15; -///Goto Goto 5,1542 Dest:OK -goto IL_1320; -///Label Label 5,1543 2 -IL_1320: -///Operation Operation 5,1544 -num = 238; -///Operation Operation 5,1545 -DataModul.DB_EventTable.Seek("=", Modul1.Ubg.AsString(), Modul1.FamInArb.AsString(), "0"); -///Goto Goto 5,1546 Dest:OK -goto IL_138c; -///Label Label 5,1547 2 -IL_138c: -///Operation Operation 5,1548 -num = 239; -///Operation Operation 5,1549 -if (!DataModul.DB_EventTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_13a8; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1550 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_17ec; -///BlockEnd Block 6,2 -} -///Label Label 5,1551 2 -IL_13a8: -///Operation Operation 5,1552 -num = 242; -///Operation Operation 5,1553 -switch (Modul1.Ubg) -///BlockStart Block 6,0 -{ -///Label Label 6,1 -case 500: -///Operation Operation 6,2 -break; -///Label Label 6,3 -case 501: -///Goto Goto 6,4 Dest:OK -goto IL_148f; -///Label Label 6,5 -case 502: -///Goto Goto 6,6 Dest:OK -goto IL_153c; -///Label Label 6,7 -case 503: -///Goto Goto 6,8 Dest:OK -goto IL_15e9; -///Label Label 6,9 -case 504: -///Goto Goto 6,10 Dest:OK -goto IL_1696; -///Label Label 6,11 -case 505: -///Goto Goto 6,12 Dest:OK -goto IL_1743; -///Label Label 6,13 -default: -///Goto Goto 6,14 Dest:OK -goto IL_17ec; -///BlockEnd Block 6,15 -} -///BlockStart Block 6,16 -{ -///Goto Goto 6,17 Dest:OK -goto IL_13e2; -///BlockEnd Block 6,18 -} -///Label Label 5,1554 2 -IL_1743: -///Operation Operation 5,1555 -num = 286; -///Operation Operation 5,1556 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1775; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1557 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1792; -///BlockEnd Block 6,2 -} -///Label Label 5,1558 2 -IL_1775: -///Operation Operation 5,1559 -num = 287; -///Operation Operation 5,1560 -StringType.MidStmtStr(ref sDest2, 65, 1, Modul1.IText[175]); -///Goto Goto 5,1561 Dest:OK -goto IL_1792; -///Label Label 5,1562 3 -IL_1792: -///Operation Operation 5,1563 -num = 289; -///Operation Operation 5,1564 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_17cd; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1565 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_17ec; -///BlockEnd Block 6,2 -} -///Label Label 5,1566 2 -IL_17cd: -///Operation Operation 5,1567 -num = 290; -///Operation Operation 5,1568 -StringType.MidStmtStr(ref sDest2, 66, 1, Modul1.IText[175]); -///Goto Goto 5,1569 Dest:OK -goto IL_17ec; -///Label Label 5,1570 2 -IL_1696: -///Operation Operation 5,1571 -num = 278; -///Operation Operation 5,1572 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_16c8; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1573 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_16e5; -///BlockEnd Block 6,2 -} -///Label Label 5,1574 2 -IL_16c8: -///Operation Operation 5,1575 -num = 279; -///Operation Operation 5,1576 -StringType.MidStmtStr(ref sDest2, 59, 1, Modul1.IText[175]); -///Goto Goto 5,1577 Dest:OK -goto IL_16e5; -///Label Label 5,1578 3 -IL_16e5: -///Operation Operation 5,1579 -num = 281; -///Operation Operation 5,1580 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1720; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1581 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_17ec; -///BlockEnd Block 6,2 -} -///Label Label 5,1582 2 -IL_1720: -///Operation Operation 5,1583 -num = 282; -///Operation Operation 5,1584 -StringType.MidStmtStr(ref sDest2, 60, 1, Modul1.IText[175]); -///Goto Goto 5,1585 Dest:OK -goto IL_17ec; -///Label Label 5,1586 2 -IL_15e9: -///Operation Operation 5,1587 -num = 270; -///Operation Operation 5,1588 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_161b; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1589 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1638; -///BlockEnd Block 6,2 -} -///Label Label 5,1590 2 -IL_161b: -///Operation Operation 5,1591 -num = 271; -///Operation Operation 5,1592 -StringType.MidStmtStr(ref sDest2, 54, 1, Modul1.IText[175]); -///Goto Goto 5,1593 Dest:OK -goto IL_1638; -///Label Label 5,1594 3 -IL_1638: -///Operation Operation 5,1595 -num = 273; -///Operation Operation 5,1596 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1673; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1597 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_17ec; -///BlockEnd Block 6,2 -} -///Label Label 5,1598 2 -IL_1673: -///Operation Operation 5,1599 -num = 274; -///Operation Operation 5,1600 -StringType.MidStmtStr(ref sDest2, 55, 1, Modul1.IText[175]); -///Goto Goto 5,1601 Dest:OK -goto IL_17ec; -///Label Label 5,1602 2 -IL_153c: -///Operation Operation 5,1603 -num = 262; -///Operation Operation 5,1604 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_156e; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1605 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_158b; -///BlockEnd Block 6,2 -} -///Label Label 5,1606 2 -IL_156e: -///Operation Operation 5,1607 -num = 263; -///Operation Operation 5,1608 -StringType.MidStmtStr(ref sDest2, 48, 1, Modul1.IText[175]); -///Goto Goto 5,1609 Dest:OK -goto IL_158b; -///Label Label 5,1610 3 -IL_158b: -///Operation Operation 5,1611 -num = 265; -///Operation Operation 5,1612 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_15c6; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1613 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_17ec; -///BlockEnd Block 6,2 -} -///Label Label 5,1614 2 -IL_15c6: -///Operation Operation 5,1615 -num = 266; -///Operation Operation 5,1616 -StringType.MidStmtStr(ref sDest2, 49, 1, Modul1.IText[175]); -///Goto Goto 5,1617 Dest:OK -goto IL_17ec; -///Label Label 5,1618 2 -IL_148f: -///Operation Operation 5,1619 -num = 254; -///Operation Operation 5,1620 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_14c1; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1621 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_14de; -///BlockEnd Block 6,2 -} -///Label Label 5,1622 2 -IL_14c1: -///Operation Operation 5,1623 -num = 255; -///Operation Operation 5,1624 -StringType.MidStmtStr(ref sDest2, 42, 1, Modul1.IText[175]); -///Goto Goto 5,1625 Dest:OK -goto IL_14de; -///Label Label 5,1626 3 -IL_14de: -///Operation Operation 5,1627 -num = 257; -///Operation Operation 5,1628 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1519; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1629 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_17ec; -///BlockEnd Block 6,2 -} -///Label Label 5,1630 2 -IL_1519: -///Operation Operation 5,1631 -num = 258; -///Operation Operation 5,1632 -StringType.MidStmtStr(ref sDest2, 43, 1, Modul1.IText[175]); -///Goto Goto 5,1633 Dest:OK -goto IL_17ec; -///Label Label 5,1634 2 -IL_13e2: -///Operation Operation 5,1635 -num = 246; -///Operation Operation 5,1636 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1414; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1637 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1431; -///BlockEnd Block 6,2 -} -///Label Label 5,1638 2 -IL_1414: -///Operation Operation 5,1639 -num = 247; -///Operation Operation 5,1640 -StringType.MidStmtStr(ref sDest2, 37, 1, Modul1.IText[175]); -///Goto Goto 5,1641 Dest:OK -goto IL_1431; -///Label Label 5,1642 3 -IL_1431: -///Operation Operation 5,1643 -num = 249; -///Operation Operation 5,1644 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_146c; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1645 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_17ec; -///BlockEnd Block 6,2 -} -///Label Label 5,1646 2 -IL_146c: -///Operation Operation 5,1647 -num = 250; -///Operation Operation 5,1648 -StringType.MidStmtStr(ref sDest2, 38, 1, Modul1.IText[175]); -///Goto Goto 5,1649 Dest:OK -goto IL_17ec; -///Label Label 5,1650 15 -IL_17ec: -///Operation Operation 5,1651 -num = 293; -///Operation Operation 5,1652 -lErl = 54; -///Goto Goto 5,1653 Dest:OK -goto IL_17f7; -///Label Label 5,1654 2 -IL_17f7: -///Operation Operation 5,1655 -num = 294; -///Operation Operation 5,1656 -num15 = (short)unchecked(num15 + 1); -///Operation Operation 5,1657 -num18 = num15; -///Operation Operation 5,1658 -num11 = 507; -///Operation Operation 5,1659 -if (num18 <= num11) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1313; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1660 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1814; -///BlockEnd Block 6,2 -} -///Label Label 5,1661 2 -IL_1814: -///Operation Operation 5,1662 -num = 295; -///Operation Operation 5,1663 -lErl = 3; -///Goto Goto 5,1664 Dest:OK -goto IL_181e; -///Label Label 5,1665 2 -IL_181e: -///Operation Operation 5,1666 -num = 296; -///Operation Operation 5,1667 -DataModul.DB_EventTable.Seek("=", 601.AsString(), Modul1.FamInArb.AsString(), "0"); -///Goto Goto 5,1668 Dest:OK -goto IL_188a; -///Label Label 5,1669 2 -IL_188a: -///Operation Operation 5,1670 -num = 297; -///Operation Operation 5,1671 -if (!DataModul.DB_EventTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_18a7; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1672 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1943; -///BlockEnd Block 6,2 -} -///Label Label 5,1673 2 -IL_18a7: -///Operation Operation 5,1674 -num = 298; -///Operation Operation 5,1675 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_18d9; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1676 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_18f0; -///BlockEnd Block 6,2 -} -///Label Label 5,1677 2 -IL_18d9: -///Operation Operation 5,1678 -num = 299; -///Operation Operation 5,1679 -StringType.MidStmtStr(ref sDest2, 75, 1, "J"); -///Goto Goto 5,1680 Dest:OK -goto IL_18f0; -///Label Label 5,1681 3 -IL_18f0: -///Operation Operation 5,1682 -num = 301; -///Operation Operation 5,1683 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_192b; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1684 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1943; -///BlockEnd Block 6,2 -} -///Label Label 5,1685 2 -IL_192b: -///Operation Operation 5,1686 -num = 302; -///Operation Operation 5,1687 -StringType.MidStmtStr(ref sDest2, 76, 1, "J"); -///Goto Goto 5,1688 Dest:OK -goto IL_1943; -///Label Label 5,1689 4 -IL_1943: -///Operation Operation 5,1690 -num = 305; -///Operation Operation 5,1691 -List1.Items.Add(new ListItem(sDest2 + " " + Modul1.FamInArb.AsString())); -///Goto Goto 5,1692 Dest:OK -goto IL_197c; -///Label Label 5,1693 4 -IL_197c: -///Operation Operation 5,1694 -num = 306; -///Operation Operation 5,1695 -lErl = 55; -///Goto Goto 5,1696 Dest:OK -goto IL_1987; -///Label Label 5,1697 2 -IL_1987: -///Operation Operation 5,1698 -num = 307; -///Operation Operation 5,1699 -I1++; -///Goto Goto 5,1700 Dest:OK -goto IL_199d; -///Label Label 5,1701 2 -IL_01d7: -///Operation Operation 5,1702 -num = 35; -///Operation Operation 5,1703 -List1.Items.Clear(); -///Goto Goto 5,1704 Dest:OK -goto IL_01ec; -///Label Label 5,1705 2 -IL_01ec: -///Operation Operation 5,1706 -num = 36; -///Operation Operation 5,1707 -Label1[2].Text = "Fehlliste Personen"; -///Goto Goto 5,1708 Dest:OK -goto IL_0207; -///Label Label 5,1709 2 -IL_0207: -///Operation Operation 5,1710 -num = 37; -///Operation Operation 5,1711 -Label1[1].Text = Modul1.IText[166]; -///Goto Goto 5,1712 Dest:OK -goto IL_0228; -///Label Label 5,1713 2 -IL_0228: -///Operation Operation 5,1714 -num = 38; -///Operation Operation 5,1715 -Label1[0].Text = Modul1.IText[167]; -///Goto Goto 5,1716 Dest:OK -goto IL_0249; -///Label Label 5,1717 2 -IL_0249: -///Operation Operation 5,1718 -num = 39; -///Operation Operation 5,1719 -Label1[1].Text = Label1[1].Text + " Quelle"; -///Goto Goto 5,1720 Dest:OK -goto IL_027a; -///Label Label 5,1721 2 -IL_027a: -///Operation Operation 5,1722 -num = 40; -///Operation Operation 5,1723 -Label1[0].Text = Label1[0].Text + " T V"; -///Goto Goto 5,1724 Dest:OK -goto IL_02ab; -///Label Label 5,1725 2 -IL_02ab: -///Operation Operation 5,1726 -num = 41; -///Operation Operation 5,1727 -I1 = 0; -///Goto Goto 5,1728 Dest:OK -goto IL_02b6; -///Label Label 5,1729 3 -IL_02b6: -///Operation Operation 5,1730 -num = 42; -///Operation Operation 5,1731 -Label1[(short)I1].Refresh(); -///Goto Goto 5,1732 Dest:OK -goto IL_02d2; -///Label Label 5,1733 2 -IL_02d2: -///Operation Operation 5,1734 -num = 43; -///Operation Operation 5,1735 -I1++; -///Operation Operation 5,1736 -i14 = I1; -///Operation Operation 5,1737 -num5 = 2; -///Operation Operation 5,1738 -if (i14 <= num5) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_02b6; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1739 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_02f2; -///BlockEnd Block 6,2 -} -///Label Label 5,1740 2 -IL_02f2: -///Operation Operation 5,1741 -num = 44; -///Operation Operation 5,1742 -num7 = 1; -///Goto Goto 5,1743 Dest:OK -goto IL_02f9; -///Label Label 5,1744 2 -IL_02f9: -///Operation Operation 5,1745 -num = 45; -///Operation Operation 5,1746 -if (num7 <= 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,2 -} -///Goto Goto 5,1747 Dest:OK -goto IL_0311; -///Label Label 5,1748 2 -IL_0311: -///Operation Operation 5,1749 -num = 48; -///Operation Operation 5,1750 -DataModul.DB_PersonTable.Index = nameof(DataModul.PersonIndex.PerNr); -///Goto Goto 5,1751 Dest:OK -goto IL_0325; -///Label Label 5,1752 2 -IL_0325: -///Operation Operation 5,1753 -num = 49; -///Operation Operation 5,1754 -DataModul.DB_PersonTable.MoveLast(); -///Goto Goto 5,1755 Dest:OK -goto IL_0335; -///Label Label 5,1756 2 -IL_0335: -///Operation Operation 5,1757 -num = 50; -///Operation Operation 5,1758 -num8 = DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value.AsInt(); -///Goto Goto 5,1759 Dest:OK -goto IL_0359; -///Label Label 5,1760 2 -IL_0359: -///Operation Operation 5,1761 -num = 51; -///Operation Operation 5,1762 -if (num7 == 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,2 -} -///Goto Goto 5,1763 Dest:OK -goto IL_036e; -///Label Label 5,1764 2 -IL_036e: -///Operation Operation 5,1765 -num = 54; -///Operation Operation 5,1766 -if ((num7 > DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_039e; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1767 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_03dd; -///BlockEnd Block 6,2 -} -///Label Label 5,1768 2 -IL_039e: -///Operation Operation 5,1769 -num = 55; -///Operation Operation 5,1770 -Interaction.MsgBox("Die höchste Personennummer ist " + DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value.AsString()); -///Goto Goto 5,1771 Dest:OK -goto end_IL_0001_2; -///Label Label 5,1772 2 -IL_03dd: -///Operation Operation 5,1773 -num = 58; -///Operation Operation 5,1774 -ProgressBar1.Minimum = 0; -///Goto Goto 5,1775 Dest:OK -goto IL_03ee; -///Label Label 5,1776 2 -IL_03ee: -///Operation Operation 5,1777 -num = 59; -///Operation Operation 5,1778 -ProgressBar1.Maximum = 0; -///Goto Goto 5,1779 Dest:OK -goto IL_03ff; -///Label Label 5,1780 2 -IL_03ff: -///Operation Operation 5,1781 -num = 60; -///Operation Operation 5,1782 -ProgressBar1.Step = 1; -///Goto Goto 5,1783 Dest:OK -goto IL_0410; -///Label Label 5,1784 2 -IL_0410: -///Operation Operation 5,1785 -num = 61; -///Operation Operation 5,1786 -ProgressBar1.Maximum = DataModul.DB_PersonTable.RecordCount - 1; -///Goto Goto 5,1787 Dest:OK -goto IL_042c; -///Label Label 5,1788 2 -IL_042c: -///Operation Operation 5,1789 -num = 62; -///Operation Operation 5,1790 -List1.Items.Clear(); -///Goto Goto 5,1791 Dest:OK -goto IL_0441; -///Label Label 5,1792 2 -IL_0441: -///Operation Operation 5,1793 -num = 63; -///Operation Operation 5,1794 -i15 = num7; -///Operation Operation 5,1795 -num19 = num8; -///Operation Operation 5,1796 -I1 = i15; -///Goto Goto 5,1797 Dest:OK -goto IL_0ca1; -///Label Label 5,1798 2 -IL_0ca1: -///Operation Operation 5,1799 -i16 = I1; -///Operation Operation 5,1800 -num5 = num19; -///Operation Operation 5,1801 -if (i16 <= num5) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0456; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1802 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0cb2; -///BlockEnd Block 6,2 -} -///Label Label 5,1803 2 -IL_0cb2: -///Operation Operation 5,1804 -num = 156; -///Operation Operation 5,1805 -Label4.Text = List1.Items.Count.AsString() + " Einträge"; -///Goto Goto 5,1806 Dest:OK -goto IL_448a; -///Label Label 5,1807 2 -IL_0456: -///Operation Operation 5,1808 -num = 64; -///Operation Operation 5,1809 -ProgressBar1.PerformStep(); -///Goto Goto 5,1810 Dest:OK -goto IL_0466; -///Label Label 5,1811 2 -IL_0466: -///Operation Operation 5,1812 -num = 65; -///Operation Operation 5,1813 -Application.DoEvents(); -///Goto Goto 5,1814 Dest:OK -goto IL_0470; -///Label Label 5,1815 2 -IL_0470: -///Operation Operation 5,1816 -num = 66; -///Operation Operation 5,1817 -Modul1.PersInArb = I1; -///Goto Goto 5,1818 Dest:OK -goto IL_047f; -///Label Label 5,1819 2 -IL_047f: -///Operation Operation 5,1820 -num = 67; -///Operation Operation 5,1821 -if (Modul1.PersInArb <= num8) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0497; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1822 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_448a; -///BlockEnd Block 6,2 -} -///Label Label 5,1823 14 -IL_448a: -///Operation Operation 5,1824 -num = 781; -///Operation Operation 5,1825 -lErl = 4; -///Goto Goto 5,1826 Dest:OK -goto IL_4494; -///Label Label 5,1827 2 -IL_4494: -///Operation Operation 5,1828 -num = 782; -///Operation Operation 5,1829 -if (!RadioButton2.Checked) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,2 -} -///Goto Goto 5,1830 Dest:OK -goto IL_44ac; -///Label Label 5,1831 2 -IL_44ac: -///Operation Operation 5,1832 -num = 783; -///Operation Operation 5,1833 -List1.Items.Add("Ende der Liste"); -///Goto Goto 5,1834 Dest:OK -goto IL_44c9; -///Label Label 5,1835 2 -IL_44c9: -///Operation Operation 5,1836 -num = 784; -///Operation Operation 5,1837 -Modul1.I = 1; -///Goto Goto 5,1838 Dest:OK -goto IL_44d6; -///Label Label 5,1839 3 -IL_44d6: -///Operation Operation 5,1840 -num = 785; -///Operation Operation 5,1841 -List1.Items.Add(""); -///Goto Goto 5,1842 Dest:OK -goto IL_44f3; -///Label Label 5,1843 2 -IL_44f3: -///Operation Operation 5,1844 -num = 786; -///Operation Operation 5,1845 -Modul1.I++; -///Operation Operation 5,1846 -i17 = Modul1.I; -///Operation Operation 5,1847 -num5 = 17; -///Operation Operation 5,1848 -if (i17 > num5) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,2 -} -///Goto Goto 5,1849 Dest:OK -goto IL_44d6; -///Label Label 5,1850 2 -IL_0497: -///Operation Operation 5,1851 -num = 70; -///Operation Operation 5,1852 -DataModul.DB_PersonTable.Seek("=", Modul1.PersInArb.AsString()); -///Goto Goto 5,1853 Dest:OK -goto IL_04f6; -///Label Label 5,1854 2 -IL_04f6: -///Operation Operation 5,1855 -num = 71; -///Operation Operation 5,1856 -if (!DataModul.DB_PersonTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_050f; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1857 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0c81; -///BlockEnd Block 6,2 -} -///Label Label 5,1858 2 -IL_050f: -///Operation Operation 5,1859 -num = 74; -///Operation Operation 5,1860 -Modul1.Personlesen(Modul1.PersInArb); -///Goto Goto 5,1861 Dest:OK -goto IL_0519; -///Label Label 5,1862 2 -IL_0519: -///Operation Operation 5,1863 -num = 75; -///Operation Operation 5,1864 -Modul1.LiText = Strings.Left((Modul1.Kont[0]).Trim() + "," + (Modul1.Kont[3]).Trim() + " ", 20); -///Goto Goto 5,1865 Dest:OK -goto IL_0550; -///Label Label 5,1866 2 -IL_0550: -///Operation Operation 5,1867 -num = 76; -///Operation Operation 5,1868 -Modul1.Schalt = 20; -///Goto Goto 5,1869 Dest:OK -goto IL_055b; -///Label Label 5,1870 2 -IL_055b: -///Operation Operation 5,1871 -num = 77; -///Operation Operation 5,1872 -T = 1; -///Goto Goto 5,1873 Dest:OK -goto IL_0566; -///Label Label 5,1874 3 -IL_0566: -///Operation Operation 5,1875 -num = 78; -///Operation Operation 5,1876 -Modul1.Kont[T + 10] = " "; -///Goto Goto 5,1877 Dest:OK -goto IL_057f; -///Label Label 5,1878 2 -IL_057f: -///Operation Operation 5,1879 -num = 79; -///Operation Operation 5,1880 -Modul1.Kont[T + 20] = " "; -///Goto Goto 5,1881 Dest:OK -goto IL_0598; -///Label Label 5,1882 2 -IL_0598: -///Operation Operation 5,1883 -num = 80; -///Operation Operation 5,1884 -T = (short)unchecked(T + 1); -///Operation Operation 5,1885 -t2 = T; -///Operation Operation 5,1886 -num11 = 10; -///Operation Operation 5,1887 -if (t2 <= num11) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0566; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1888 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_05ba; -///BlockEnd Block 6,2 -} -///Label Label 5,1889 2 -IL_05ba: -///Operation Operation 5,1890 -num = 81; -///Operation Operation 5,1891 -Modul1.Datles(); -///Goto Goto 5,1892 Dest:OK -goto IL_05c4; -///Label Label 5,1893 2 -IL_05c4: -///Operation Operation 5,1894 -num = 82; -///Operation Operation 5,1895 -sDest2 = " "; -///Goto Goto 5,1896 Dest:OK -goto IL_05cf; -///Label Label 5,1897 2 -IL_05cf: -///Operation Operation 5,1898 -num = 83; -///Operation Operation 5,1899 -StringType.MidStmtStr(ref sDest2, 2, 2, Modul1.Kont[11] + Modul1.Kont[21]); -///Goto Goto 5,1900 Dest:OK -goto IL_05f2; -///Label Label 5,1901 2 -IL_05f2: -///Operation Operation 5,1902 -num = 84; -///Operation Operation 5,1903 -StringType.MidStmtStr(ref sDest2, 8, 2, Modul1.Kont[12] + Modul1.Kont[22]); -///Goto Goto 5,1904 Dest:OK -goto IL_0615; -///Label Label 5,1905 2 -IL_0615: -///Operation Operation 5,1906 -num = 85; -///Operation Operation 5,1907 -StringType.MidStmtStr(ref sDest2, 17, 2, Modul1.Kont[13] + Modul1.Kont[23]); -///Goto Goto 5,1908 Dest:OK -goto IL_0639; -///Label Label 5,1909 2 -IL_0639: -///Operation Operation 5,1910 -num = 86; -///Operation Operation 5,1911 -StringType.MidStmtStr(ref sDest2, 27, 2, Modul1.Kont[14] + Modul1.Kont[24]); -///Goto Goto 5,1912 Dest:OK -goto IL_065d; -///Label Label 5,1913 2 -IL_065d: -///Operation Operation 5,1914 -num = 87; -///Operation Operation 5,1915 -num12 = 300; -///Goto Goto 5,1916 Dest:OK -goto IL_0667; -///Label Label 5,1917 3 -IL_0667: -///Operation Operation 5,1918 -num = 88; -///Operation Operation 5,1919 -DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.BeSu); -///Goto Goto 5,1920 Dest:OK -goto IL_067b; -///Label Label 5,1921 2 -IL_067b: -///Operation Operation 5,1922 -num = 89; -///Operation Operation 5,1923 -DataModul.DB_EventTable.Seek("=", num12, Modul1.PersInArb.AsString()); -///Goto Goto 5,1924 Dest:OK -goto IL_06db; -///Label Label 5,1925 2 -IL_06db: -///Operation Operation 5,1926 -num = 90; -///Operation Operation 5,1927 -if (!DataModul.DB_EventTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_06f4; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1928 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0ac2; -///BlockEnd Block 6,2 -} -///Label Label 5,1929 2 -IL_06f4: -///Operation Operation 5,1930 -num = 93; -///Operation Operation 5,1931 -switch (num12) -///BlockStart Block 6,0 -{ -///Label Label 6,1 -case 300: -///Operation Operation 6,2 -break; -///Label Label 6,3 -case 301: -///Goto Goto 6,4 Dest:OK -goto IL_084e; -///Label Label 6,5 -case 302: -///Goto Goto 6,6 Dest:OK -goto IL_0981; -///Label Label 6,7 -default: -///Goto Goto 6,8 Dest:OK -goto IL_0ac2; -///BlockEnd Block 6,9 -} -///BlockStart Block 6,10 -{ -///Goto Goto 6,11 Dest:OK -goto IL_071b; -///BlockEnd Block 6,12 -} -///Label Label 5,1932 2 -IL_0981: -///Operation Operation 5,1933 -num = 125; -///Operation Operation 5,1934 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_09b0; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1935 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_09ca; -///BlockEnd Block 6,2 -} -///Label Label 5,1936 2 -IL_09b0: -///Operation Operation 5,1937 -num = 126; -///Operation Operation 5,1938 -StringType.MidStmtStr(ref sDest2, 50, 1, Modul1.IText[175]); -///Goto Goto 5,1939 Dest:OK -goto IL_09ca; -///Label Label 5,1940 3 -IL_09ca: -///Operation Operation 5,1941 -num = 128; -///Operation Operation 5,1942 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_09fc; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1943 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0a19; -///BlockEnd Block 6,2 -} -///Label Label 5,1944 2 -IL_09fc: -///Operation Operation 5,1945 -num = 129; -///Operation Operation 5,1946 -StringType.MidStmtStr(ref sDest2, 51, 1, Modul1.IText[175]); -///Goto Goto 5,1947 Dest:OK -goto IL_0a19; -///Label Label 5,1948 3 -IL_0a19: -///Operation Operation 5,1949 -num = 131; -///Operation Operation 5,1950 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0a4b; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1951 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0a68; -///BlockEnd Block 6,2 -} -///Label Label 5,1952 2 -IL_0a4b: -///Operation Operation 5,1953 -num = 132; -///Operation Operation 5,1954 -StringType.MidStmtStr(ref sDest2, 52, 1, Modul1.IText[175]); -///Goto Goto 5,1955 Dest:OK -goto IL_0a68; -///Label Label 5,1956 3 -IL_0a68: -///Operation Operation 5,1957 -num = 134; -///Operation Operation 5,1958 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0aa3; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1959 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0ac2; -///BlockEnd Block 6,2 -} -///Label Label 5,1960 2 -IL_0aa3: -///Operation Operation 5,1961 -num = 135; -///Operation Operation 5,1962 -StringType.MidStmtStr(ref sDest2, 53, 1, Modul1.IText[175]); -///Goto Goto 5,1963 Dest:OK -goto IL_0ac2; -///Label Label 5,1964 2 -IL_084e: -///Operation Operation 5,1965 -num = 111; -///Operation Operation 5,1966 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_087d; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1967 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0897; -///BlockEnd Block 6,2 -} -///Label Label 5,1968 2 -IL_087d: -///Operation Operation 5,1969 -num = 112; -///Operation Operation 5,1970 -StringType.MidStmtStr(ref sDest2, 42, 1, Modul1.IText[175]); -///Goto Goto 5,1971 Dest:OK -goto IL_0897; -///Label Label 5,1972 3 -IL_0897: -///Operation Operation 5,1973 -num = 114; -///Operation Operation 5,1974 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_08c6; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1975 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_08e0; -///BlockEnd Block 6,2 -} -///Label Label 5,1976 2 -IL_08c6: -///Operation Operation 5,1977 -num = 115; -///Operation Operation 5,1978 -StringType.MidStmtStr(ref sDest2, 44, 1, Modul1.IText[175]); -///Goto Goto 5,1979 Dest:OK -goto IL_08e0; -///Label Label 5,1980 3 -IL_08e0: -///Operation Operation 5,1981 -num = 117; -///Operation Operation 5,1982 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_090f; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1983 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0929; -///BlockEnd Block 6,2 -} -///Label Label 5,1984 2 -IL_090f: -///Operation Operation 5,1985 -num = 118; -///Operation Operation 5,1986 -StringType.MidStmtStr(ref sDest2, 45, 1, Modul1.IText[175]); -///Goto Goto 5,1987 Dest:OK -goto IL_0929; -///Label Label 5,1988 3 -IL_0929: -///Operation Operation 5,1989 -num = 120; -///Operation Operation 5,1990 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0961; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1991 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0ac2; -///BlockEnd Block 6,2 -} -///Label Label 5,1992 2 -IL_0961: -///Operation Operation 5,1993 -num = 121; -///Operation Operation 5,1994 -StringType.MidStmtStr(ref sDest2, 46, 1, Modul1.IText[175]); -///Goto Goto 5,1995 Dest:OK -goto IL_0ac2; -///Label Label 5,1996 2 -IL_071b: -///Operation Operation 5,1997 -num = 97; -///Operation Operation 5,1998 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_074a; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1999 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0764; -///BlockEnd Block 6,2 -} -///Label Label 5,2000 2 -IL_074a: -///Operation Operation 5,2001 -num = 98; -///Operation Operation 5,2002 -StringType.MidStmtStr(ref sDest2, 34, 1, Modul1.IText[175]); -///Goto Goto 5,2003 Dest:OK -goto IL_0764; -///Label Label 5,2004 3 -IL_0764: -///Operation Operation 5,2005 -num = 100; -///Operation Operation 5,2006 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0793; -///BlockEnd Block 6,2 -} -///Operation Operation 5,2007 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_07ad; -///BlockEnd Block 6,2 -} -///Label Label 5,2008 2 -IL_0793: -///Operation Operation 5,2009 -num = 101; -///Operation Operation 5,2010 -StringType.MidStmtStr(ref sDest2, 36, 1, Modul1.IText[175]); -///Goto Goto 5,2011 Dest:OK -goto IL_07ad; -///Label Label 5,2012 3 -IL_07ad: -///Operation Operation 5,2013 -num = 103; -///Operation Operation 5,2014 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_07dc; -///BlockEnd Block 6,2 -} -///Operation Operation 5,2015 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_07f6; -///BlockEnd Block 6,2 -} -///Label Label 5,2016 2 -IL_07dc: -///Operation Operation 5,2017 -num = 104; -///Operation Operation 5,2018 -StringType.MidStmtStr(ref sDest2, 37, 1, Modul1.IText[175]); -///Goto Goto 5,2019 Dest:OK -goto IL_07f6; -///Label Label 5,2020 3 -IL_07f6: -///Operation Operation 5,2021 -num = 106; -///Operation Operation 5,2022 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_082e; -///BlockEnd Block 6,2 -} -///Operation Operation 5,2023 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0ac2; -///BlockEnd Block 6,2 -} -///Label Label 5,2024 2 -IL_082e: -///Operation Operation 5,2025 -num = 107; -///Operation Operation 5,2026 -StringType.MidStmtStr(ref sDest2, 38, 1, Modul1.IText[175]); -///Goto Goto 5,2027 Dest:OK -goto IL_0ac2; -///Label Label 5,2028 9 -IL_0ac2: -///Operation Operation 5,2029 -num = 138; -///Operation Operation 5,2030 -lErl = 2; -///Goto Goto 5,2031 Dest:OK -goto IL_0acc; -///Label Label 5,2032 2 -IL_0acc: -///Operation Operation 5,2033 -num = 139; -///Operation Operation 5,2034 -num12 = (short)unchecked(num12 + 1); -///Operation Operation 5,2035 -num20 = num12; -///Operation Operation 5,2036 -num11 = 302; -///Operation Operation 5,2037 -if (num20 <= num11) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0667; -///BlockEnd Block 6,2 -} -///Operation Operation 5,2038 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0ae8; -///BlockEnd Block 6,2 -} -///Label Label 5,2039 2 -IL_0ae8: -///Operation Operation 5,2040 -num = 140; -///Operation Operation 5,2041 -Modul1.LiText += sDest2; -///Goto Goto 5,2042 Dest:OK -goto IL_0b00; -///Label Label 5,2043 2 -IL_0b00: -///Operation Operation 5,2044 -num = 141; -///Operation Operation 5,2045 -Modul1.PerSatzLes(); -///Goto Goto 5,2046 Dest:OK -goto IL_0b0d; -///Label Label 5,2047 2 -IL_0b0d: -///Operation Operation 5,2048 -num = 142; -///Operation Operation 5,2049 -if (null != DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.Bem3)].Value) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0b40; -///BlockEnd Block 6,2 -} -///Operation Operation 5,2050 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0b8b; -///BlockEnd Block 6,2 -} -///Label Label 5,2051 2 -IL_0b40: -///Operation Operation 5,2052 -num = 143; -///Operation Operation 5,2053 -if (Operators.ConditionalCompareObjectNotEqual(DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.Bem3)].Value, "", TextCompare: false)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0b71; -///BlockEnd Block 6,2 -} -///Operation Operation 5,2054 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0b8b; -///BlockEnd Block 6,2 -} -///Label Label 5,2055 2 -IL_0b71: -///Operation Operation 5,2056 -num = 144; -///Operation Operation 5,2057 -StringType.MidStmtStr(ref Modul1.LiText, 77, 1, "J"); -///Goto Goto 5,2058 Dest:OK -goto IL_0b8b; -///Label Label 5,2059 4 -IL_0b8b: -///Operation Operation 5,2060 -num = 147; -///Operation Operation 5,2061 -DataModul.TTable.Index = "Tab"; -///Goto Goto 5,2062 Dest:OK -goto IL_0ba2; -///Label Label 5,2063 2 -end_IL_0001: -///Operation Operation 5,2064 -break; -///BlockEnd Block 5,2065 -} -///BlockEnd Block 4,28 -} -///BlockEnd Block 3,4 -} -///Operation Operation 2,2 -catch (Exception obj) when (num3 != 0 && num2 == 0) -///BlockStart Block 3,0 -{ -///Operation Operation 3,1 -ProjectData.SetProjectError(obj, lErl); -///Operation Operation 3,2 -try0001_dispatch = 21059; -///Operation Operation 3,3 -continue; -///BlockEnd Block 3,4 -} -///Operation Operation 2,3 -throw ProjectData.CreateProjectError(-2146828237); -///Label Label 2,4 19 -end_IL_0001_2: -///Operation Operation 2,5 -break; -///BlockEnd Block 2,6 -} -///Operation Operation 1,21 -if (num2 != 0) -///BlockStart Block 2,0 -{ -///Operation Operation 2,1 -ProjectData.ClearProjectError(); -///BlockEnd Block 2,2 -} -///BlockEnd Block 1,22 -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test09/Test9ExpParseRL.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test09/Test9ExpParseRL.txt deleted file mode 100644 index 6b994ffe9..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test09/Test9ExpParseRL.txt +++ /dev/null @@ -1,3326 +0,0 @@ -///Declaration MainBlock 0,0 -private void Command1_Click(object eventSender, EventArgs eventArgs) -///BlockStart Block 1,0 -{ -///Comment LComment 1,1 -//Discarded unreachable code: IL_451b -///Operation Operation 1,2 -int try0001_dispatch = -1; -///Operation Operation 1,3 -int num = default; -///Operation Operation 1,4 -short index = default; -///Operation Operation 1,5 -int num2 = default; -///Operation Operation 1,6 -int num3 = default; -///Operation Operation 1,7 -int lErl = default; -///Operation Operation 1,8 -int num6 = default; -///Operation Operation 1,9 -int num7 = default; -///Operation Operation 1,10 -int num8 = default; -///Operation Operation 1,11 -int num9 = default; -///Operation Operation 1,12 -string sDest = default; -///Operation Operation 1,13 -int num10 = default; -///Operation Operation 1,14 -string sDest2 = default; -///Operation Operation 1,15 -short num12 = default; -///Operation Operation 1,16 -int num14 = default; -///Operation Operation 1,17 -short num15 = default; -///Operation Operation 1,18 -int num17 = default; -///Operation Operation 1,19 -int num19 = default; -///Operation Operation 1,20 -while (true) -///BlockStart Block 2,0 -{ -///Operation Operation 2,1 -try -///BlockStart Block 3,0 -{ -///Comment Comment 3,1 -/*Note: ILSpy has introduced the following switch to emulate a goto from catch-block to try-block*/ -///Operation Operation 3,2 -; -///Operation Operation 3,3 -checked -///BlockStart Block 4,0 -{ -///Operation Operation 4,1 -int num4; -///Operation Operation 4,2 -int i3; -///Operation Operation 4,3 -int i4; -///Operation Operation 4,4 -int i5; -///Operation Operation 4,5 -int i6; -///Operation Operation 4,6 -int i7; -///Operation Operation 4,7 -short t; -///Operation Operation 4,8 -short num13; -///Operation Operation 4,9 -int i8; -///Operation Operation 4,10 -int i9; -///Operation Operation 4,11 -int i10; -///Operation Operation 4,12 -short num16; -///Operation Operation 4,13 -ListBox L; -///Operation Operation 4,14 -short A; -///Operation Operation 4,15 -int i11; -///Operation Operation 4,16 -int i12; -///Operation Operation 4,17 -int i13; -///Operation Operation 4,18 -short num18; -///Operation Operation 4,19 -int i14; -///Operation Operation 4,20 -int i15; -///Operation Operation 4,21 -int i16; -///Operation Operation 4,22 -int i17; -///Operation Operation 4,23 -int num5; -///Operation Operation 4,24 -short t2; -///Operation Operation 4,25 -short num20; -///Operation Operation 4,26 -short num11; -///Operation Operation 4,27 -switch (try0001_dispatch) -///BlockStart Block 5,0 -{ -///Label Label 5,1 1 -default: -///Operation Operation 5,2 -num = 1; -///Operation Operation 5,3 -index = Command1.GetIndex((Button)eventSender); -///Goto Goto 5,4 Dest:OK -goto IL_0016; -///Label Label 5,5 -case 21059: -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -num2 = num; -///Operation Operation 6,2 -switch ((num3 <= -2) ? 1 : num3) -///BlockStart Block 7,0 -{ -///Label Label 7,1 -case 2: -///Operation Operation 7,2 -break; -///Label Label 7,3 -case 1: -///Goto Goto 7,4 Dest:OK -goto IL_45b9; -///Label Label 7,5 -default: -///Goto Goto 7,6 Dest:OK -goto end_IL_0001; -///BlockEnd Block 7,7 -} -///Operation Operation 6,3 -if (Information.Err().Number == 6) -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -num7 = 200000000; -///Operation Operation 7,2 -ProjectData.ClearProjectError(); -///Operation Operation 7,3 -if (num2 == 0) -///BlockStart Block 8,0 -{ -///Operation Operation 8,1 -throw ProjectData.CreateProjectError(-2146828268); -///BlockEnd Block 8,2 -} -///Goto Goto 7,4 Dest:OK -goto IL_45b9; -///BlockEnd Block 7,5 -} -///Operation Operation 6,4 -else -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -if (Interaction.MsgBox(Conversion.ErrorToString(), MsgBoxStyle.OkCancel, (Information.Err().Number).AsString()) == MsgBoxResult.Cancel) -///BlockStart Block 8,0 -{ -///Operation Operation 8,1 -ProjectData.EndApp(); -///BlockEnd Block 8,2 -} -///Operation Operation 7,2 -ProjectData.ClearProjectError(); -///Operation Operation 7,3 -if (num2 == 0) -///BlockStart Block 8,0 -{ -///Operation Operation 8,1 -throw ProjectData.CreateProjectError(-2146828268); -///BlockEnd Block 8,2 -} -///Operation Operation 7,4 -num4 = num2; -///Goto Goto 7,5 Dest:OK -goto IL_45bd; -///BlockEnd Block 7,6 -} -///BlockEnd Block 6,5 -} -///Label Label 5,6 1 -end_IL_0001: -///Operation Operation 5,7 -break; -///Label Label 5,8 1 -IL_0016: -///Operation Operation 5,9 -num = 2; -///Operation Operation 5,10 -RadioButton1.Visible = true; -///Operation Operation 5,11 -RadioButton2.Visible = true; -///Operation Operation 5,12 -ProjectData.ClearProjectError(); -///Operation Operation 5,13 -num3 = 2; -///Operation Operation 5,14 -switch (index) -///BlockStart Block 6,0 -{ -///Label Label 6,1 -case 0: -///Label Label 6,2 -case 1: -///Label Label 6,3 -case 4: -///Label Label 6,4 -case 5: -///Label Label 6,5 -case 6: -///Operation Operation 6,6 -break; -///Label Label 6,7 -case 7: -///Goto Goto 6,8 Dest:OK -goto IL_0094; -///Label Label 6,9 -default: -///Goto Goto 6,10 Dest:OK -goto IL_00a6; -///BlockEnd Block 6,11 -} -///BlockStart Block 6,12 -{ -///Goto Goto 6,13 Dest:OK -goto IL_006f; -///BlockEnd Block 6,14 -} -///Label Label 5,15 1 -IL_006f: -///Operation Operation 5,16 -num = 9; -///Operation Operation 5,17 -List2.Visible = false; -///Operation Operation 5,18 -List1.Visible = true; -///Goto Goto 5,19 Dest:OK -goto IL_00a6; -///Label Label 5,20 1 -IL_0094: -///Operation Operation 5,21 -num = 13; -///Operation Operation 5,22 -List1.Visible = false; -///Goto Goto 5,23 Dest:OK -goto IL_00a6; -///Label Label 5,24 4 -IL_00a6: -///Operation Operation 5,25 -num = 15; -///Operation Operation 5,26 -Label4.Text = ""; -///Operation Operation 5,27 -if (Modul1.Aus[12] == "") -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -Modul1.Aus[12] = "200"; -///BlockEnd Block 6,2 -} -///Operation Operation 5,28 -if (Modul1.Aus[13] == "") -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -Modul1.Aus[13] = "200"; -///BlockEnd Block 6,2 -} -///Operation Operation 5,29 -List1.Visible = true; -///Operation Operation 5,30 -List2.Visible = false; -///Operation Operation 5,31 -Label2.Text = ""; -///Operation Operation 5,32 -if (RadioButton1.Checked) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -List1.Sorted = true; -///BlockEnd Block 6,2 -} -///Operation Operation 5,33 -if (RadioButton2.Checked) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -List1.Sorted = false; -///BlockEnd Block 6,2 -} -///Operation Operation 5,34 -switch (index) -///BlockStart Block 6,0 -{ -///Label Label 6,1 -case 0: -///Operation Operation 6,2 -break; -///Label Label 6,3 -case 1: -///Goto Goto 6,4 Dest:OK -goto IL_0cef; -///Label Label 6,5 -case 2: -///Goto Goto 6,6 Dest:OK -goto IL_1a3c; -///Label Label 6,7 -case 3: -///Goto Goto 6,8 Dest:OK -goto IL_1aae; -///Label Label 6,9 -case 4: -///Goto Goto 6,10 Dest:OK -goto IL_1c00; -///Label Label 6,11 -case 5: -///Goto Goto 6,12 Dest:OK -goto IL_2496; -///Label Label 6,13 -case 6: -///Goto Goto 6,14 Dest:OK -goto IL_3406; -///Label Label 6,15 -case 7: -///Goto Goto 6,16 Dest:OK -goto IL_3e4e; -///Label Label 6,17 -default: -///Goto Goto 6,18 Dest:OK -goto IL_448a; -///BlockEnd Block 6,19 -} -///BlockStart Block 6,20 -{ -///Goto Goto 6,21 Dest:OK -goto IL_01d7; -///BlockEnd Block 6,22 -} -///Label Label 5,35 1 -IL_01d7: -///Operation Operation 5,36 -num = 35; -///Operation Operation 5,37 -List1.Items.Clear(); -///Operation Operation 5,38 -Label1[2].Text = "Fehlliste Personen"; -///Operation Operation 5,39 -Label1[1].Text = Modul1.IText[166]; -///Operation Operation 5,40 -Label1[0].Text = Modul1.IText[167]; -///Operation Operation 5,41 -Label1[1].Text = Label1[1].Text + " Quelle"; -///Operation Operation 5,42 -Label1[0].Text = Label1[0].Text + " T V"; -///Operation Operation 5,43 -I1 = 0; -///Operation Operation 5,44 -while (I1 <= 2) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -Label1[(short)I1].Refresh(); -///Operation Operation 6,2 -I1++; -///BlockEnd Block 6,3 -} -///Operation Operation 5,45 -num7 = 1; -///Operation Operation 5,46 -if (num7 <= 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,2 -} -///Operation Operation 5,47 -DataModul.DB_PersonTable.Index = nameof(DataModul.PersonIndex.PerNr); -///Operation Operation 5,48 -DataModul.DB_PersonTable.MoveLast(); -///Operation Operation 5,49 -num8 = DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value.AsInt(); -///Operation Operation 5,50 -if (num7 == 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,2 -} -///Operation Operation 5,51 -if ((num7 > DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value)) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -Interaction.MsgBox("Die höchste Personennummer ist " + DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value.AsString()); -///Goto Goto 6,2 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,3 -} -///Operation Operation 5,52 -else -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -ProgressBar1.Minimum = 0; -///Operation Operation 6,2 -ProgressBar1.Maximum = 0; -///Operation Operation 6,3 -ProgressBar1.Step = 1; -///Operation Operation 6,4 -ProgressBar1.Maximum = DataModul.DB_PersonTable.RecordCount - 1; -///Operation Operation 6,5 -List1.Items.Clear(); -///Operation Operation 6,6 -i15 = num7; -///Operation Operation 6,7 -num19 = num8; -///Operation Operation 6,8 -I1 = i15; -///Goto Goto 6,9 Dest:OK -goto IL_0ca1; -///BlockEnd Block 6,10 -} -///Label Label 5,53 3 -IL_0667: -///Operation Operation 5,54 -num = 88; -///Operation Operation 5,55 -DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.BeSu); -///Operation Operation 5,56 -DataModul.DB_EventTable.Seek("=", num12, Modul1.PersInArb.AsString()); -///Operation Operation 5,57 -if (!DataModul.DB_EventTable.NoMatch) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -switch (num12) -///BlockStart Block 7,0 -{ -///Label Label 7,1 -case 300: -///Operation Operation 7,2 -break; -///Label Label 7,3 -case 301: -///Goto Goto 7,4 Dest:OK -goto IL_084e; -///Label Label 7,5 -case 302: -///Goto Goto 7,6 Dest:OK -goto IL_0981; -///Label Label 7,7 -default: -///Goto Goto 7,8 Dest:OK -goto IL_0ac2; -///BlockEnd Block 7,9 -} -///BlockStart Block 7,10 -{ -///Goto Goto 7,11 Dest:OK -goto IL_071b; -///BlockEnd Block 7,12 -} -///BlockEnd Block 6,2 -} -///Operation Operation 5,58 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0ac2; -///BlockEnd Block 6,2 -} -///Label Label 5,59 1 -IL_071b: -///Operation Operation 5,60 -num = 97; -///Operation Operation 5,61 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -StringType.MidStmtStr(ref sDest2, 34, 1, Modul1.IText[175]); -///BlockEnd Block 6,2 -} -///Operation Operation 5,62 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -StringType.MidStmtStr(ref sDest2, 36, 1, Modul1.IText[175]); -///BlockEnd Block 6,2 -} -///Operation Operation 5,63 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -StringType.MidStmtStr(ref sDest2, 37, 1, Modul1.IText[175]); -///BlockEnd Block 6,2 -} -///Operation Operation 5,64 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -StringType.MidStmtStr(ref sDest2, 38, 1, Modul1.IText[175]); -///BlockEnd Block 6,2 -} -///Goto Goto 5,65 Dest:OK -goto IL_0ac2; -///Label Label 5,66 1 -IL_084e: -///Operation Operation 5,67 -num = 111; -///Operation Operation 5,68 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -StringType.MidStmtStr(ref sDest2, 42, 1, Modul1.IText[175]); -///BlockEnd Block 6,2 -} -///Operation Operation 5,69 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -StringType.MidStmtStr(ref sDest2, 44, 1, Modul1.IText[175]); -///BlockEnd Block 6,2 -} -///Operation Operation 5,70 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -StringType.MidStmtStr(ref sDest2, 45, 1, Modul1.IText[175]); -///BlockEnd Block 6,2 -} -///Operation Operation 5,71 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -StringType.MidStmtStr(ref sDest2, 46, 1, Modul1.IText[175]); -///BlockEnd Block 6,2 -} -///Goto Goto 5,72 Dest:OK -goto IL_0ac2; -///Label Label 5,73 1 -IL_0981: -///Operation Operation 5,74 -num = 125; -///Operation Operation 5,75 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -StringType.MidStmtStr(ref sDest2, 50, 1, Modul1.IText[175]); -///BlockEnd Block 6,2 -} -///Operation Operation 5,76 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -StringType.MidStmtStr(ref sDest2, 51, 1, Modul1.IText[175]); -///BlockEnd Block 6,2 -} -///Operation Operation 5,77 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -StringType.MidStmtStr(ref sDest2, 52, 1, Modul1.IText[175]); -///BlockEnd Block 6,2 -} -///Operation Operation 5,78 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -StringType.MidStmtStr(ref sDest2, 53, 1, Modul1.IText[175]); -///BlockEnd Block 6,2 -} -///Goto Goto 5,79 Dest:OK -goto IL_0ac2; -///Label Label 5,80 6 -IL_0ac2: -///Operation Operation 5,81 -num = 138; -///Operation Operation 5,82 -lErl = 2; -///Operation Operation 5,83 -num12 = (short)unchecked(num12 + 1); -///Operation Operation 5,84 -num20 = num12; -///Operation Operation 5,85 -num11 = 302; -///Operation Operation 5,86 -if (num20 <= num11) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0667; -///BlockEnd Block 6,2 -} -///Operation Operation 5,87 -else -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -Modul1.LiText += sDest2; -///Operation Operation 6,2 -Modul1.PerSatzLes(); -///Operation Operation 6,3 -if (null != DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.Bem3)].Value) -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -if (Operators.ConditionalCompareObjectNotEqual(DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.Bem3)].Value, "", TextCompare: false)) -///BlockStart Block 8,0 -{ -///Operation Operation 8,1 -StringType.MidStmtStr(ref Modul1.LiText, 77, 1, "J"); -///BlockEnd Block 8,2 -} -///BlockEnd Block 7,2 -} -///Operation Operation 6,4 -DataModul.TTable.Index = "Tab"; -///Operation Operation 6,5 -DataModul.TTable.Seek("=", 1, Modul1.PersInArb); -///Operation Operation 6,6 -if (!DataModul.TTable.NoMatch) -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -StringType.MidStmtStr(ref Modul1.LiText, 79, 1, "J"); -///BlockEnd Block 7,2 -} -///Operation Operation 6,7 -List1.Items.Add(new ListItem(Modul1.LiText + " " + Modul1.PersInArb.AsString())); -///Operation Operation 6,8 -Modul1.LiText = ""; -///BlockEnd Block 6,9 -} -///Goto Goto 5,88 Dest:OK -goto IL_0c81; -///Label Label 5,89 3 -IL_0c81: -///Operation Operation 5,90 -num = 154; -///Operation Operation 5,91 -lErl = 5; -///Operation Operation 5,92 -I1++; -///Goto Goto 5,93 Dest:OK -goto IL_0ca1; -///Label Label 5,94 2 -IL_0ca1: -///Operation Operation 5,95 -i16 = I1; -///Operation Operation 5,96 -num5 = num19; -///Operation Operation 5,97 -if (i16 <= num5) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -ProgressBar1.PerformStep(); -///Operation Operation 6,2 -Application.DoEvents(); -///Operation Operation 6,3 -Modul1.PersInArb = I1; -///Operation Operation 6,4 -if (Modul1.PersInArb <= num8) -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -DataModul.DB_PersonTable.Seek("=", Modul1.PersInArb.AsString()); -///Operation Operation 7,2 -if (!DataModul.DB_PersonTable.NoMatch) -///BlockStart Block 8,0 -{ -///Operation Operation 8,1 -Modul1.Personlesen(Modul1.PersInArb); -///Operation Operation 8,2 -Modul1.LiText = Strings.Left((Modul1.Kont[0]).Trim() + "," + (Modul1.Kont[3]).Trim() + " ", 20); -///Operation Operation 8,3 -Modul1.Schalt = 20; -///Operation Operation 8,4 -T = 1; -///Operation Operation 8,5 -while (T <= 10) -///BlockStart Block 9,0 -{ -///Operation Operation 9,1 -Modul1.Kont[T + 10] = " "; -///Operation Operation 9,2 -Modul1.Kont[T + 20] = " "; -///Operation Operation 9,3 -T = (short)unchecked(T + 1); -///BlockEnd Block 9,4 -} -///Operation Operation 8,6 -Modul1.Datles(); -///Operation Operation 8,7 -sDest2 = " "; -///Operation Operation 8,8 -StringType.MidStmtStr(ref sDest2, 2, 2, Modul1.Kont[11] + Modul1.Kont[21]); -///Operation Operation 8,9 -StringType.MidStmtStr(ref sDest2, 8, 2, Modul1.Kont[12] + Modul1.Kont[22]); -///Operation Operation 8,10 -StringType.MidStmtStr(ref sDest2, 17, 2, Modul1.Kont[13] + Modul1.Kont[23]); -///Operation Operation 8,11 -StringType.MidStmtStr(ref sDest2, 27, 2, Modul1.Kont[14] + Modul1.Kont[24]); -///Operation Operation 8,12 -num12 = 300; -///Goto Goto 8,13 Dest:OK -goto IL_0667; -///BlockEnd Block 8,14 -} -///Goto Goto 7,3 Dest:OK -goto IL_0c81; -///BlockEnd Block 7,4 -} -///BlockEnd Block 6,5 -} -///Operation Operation 5,98 -else -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -Label4.Text = List1.Items.Count.AsString() + " Einträge"; -///BlockEnd Block 6,2 -} -///Goto Goto 5,99 Dest:OK -goto IL_448a; -///Label Label 5,100 1 -IL_0cef: -///Operation Operation 5,101 -num = 159; -///Operation Operation 5,102 -DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.ArtNr); -///Operation Operation 5,103 -List1.Items.Clear(); -///Operation Operation 5,104 -Label1[2].Text = "Fehlliste Familien"; -///Operation Operation 5,105 -Label1[1].Text = "Mann Frau Kinder Pro Verl. Hei k.H. Schd. eheä. auß Fikt."; -///Operation Operation 5,106 -Label1[0].Text = " DO DO DO DO DO DO DO"; -///Operation Operation 5,107 -if (RadioButton2.Checked) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -List1.Items.Add("Fehlliste Familien"); -///BlockEnd Block 6,2 -} -///Operation Operation 5,108 -if (RadioButton2.Checked) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -List1.Items.Add("Mann Frau Kinder Pro Verl. Hei k.H. Schd. eheä. auß Fikt."); -///BlockEnd Block 6,2 -} -///Operation Operation 5,109 -if (RadioButton2.Checked) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -List1.Items.Add(" DO DO DO DO DO DO DO"); -///BlockEnd Block 6,2 -} -///Operation Operation 5,110 -Modul1.I = 0; -///Operation Operation 5,111 -while (Modul1.I <= 2) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -Label1[(short)Modul1.I].Refresh(); -///Operation Operation 6,2 -Modul1.I++; -///BlockEnd Block 6,3 -} -///Operation Operation 5,112 -num7 = 1; -///Operation Operation 5,113 -if (num7 <= 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,2 -} -///Operation Operation 5,114 -DataModul.DB_FamilyTable.MoveLast(); -///Operation Operation 5,115 -num8 = DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value.AsInt(); -///Operation Operation 5,116 -if ((num7 > DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value)) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -Interaction.MsgBox("Die höchste Familiennummer ist " + DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value.AsString()); -///Goto Goto 6,2 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,3 -} -///Operation Operation 5,117 -else -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -ProgressBar1.Minimum = 0; -///Operation Operation 6,2 -ProgressBar1.Maximum = DataModul.DB_FamilyTable.RecordCount - 1; -///Operation Operation 6,3 -ProgressBar1.Step = 1; -///Operation Operation 6,4 -i12 = num7; -///Operation Operation 6,5 -num17 = num8; -///Operation Operation 6,6 -I1 = i12; -///Goto Goto 6,7 Dest:OK -goto IL_199d; -///BlockEnd Block 6,8 -} -///Label Label 5,118 3 -IL_1313: -///Operation Operation 5,119 -num = 237; -///Operation Operation 5,120 -Modul1.Ubg = num15; -///Operation Operation 5,121 -DataModul.DB_EventTable.Seek("=", Modul1.Ubg.AsString(), Modul1.FamInArb.AsString(), "0"); -///Operation Operation 5,122 -if (!DataModul.DB_EventTable.NoMatch) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -switch (Modul1.Ubg) -///BlockStart Block 7,0 -{ -///Label Label 7,1 -case 500: -///Operation Operation 7,2 -break; -///Label Label 7,3 -case 501: -///Goto Goto 7,4 Dest:OK -goto IL_148f; -///Label Label 7,5 -case 502: -///Goto Goto 7,6 Dest:OK -goto IL_153c; -///Label Label 7,7 -case 503: -///Goto Goto 7,8 Dest:OK -goto IL_15e9; -///Label Label 7,9 -case 504: -///Goto Goto 7,10 Dest:OK -goto IL_1696; -///Label Label 7,11 -case 505: -///Goto Goto 7,12 Dest:OK -goto IL_1743; -///Label Label 7,13 -default: -///Goto Goto 7,14 Dest:OK -goto IL_17ec; -///BlockEnd Block 7,15 -} -///BlockStart Block 7,16 -{ -///Goto Goto 7,17 Dest:OK -goto IL_13e2; -///BlockEnd Block 7,18 -} -///BlockEnd Block 6,2 -} -///Operation Operation 5,123 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_17ec; -///BlockEnd Block 6,2 -} -///Label Label 5,124 1 -IL_13e2: -///Operation Operation 5,125 -num = 246; -///Operation Operation 5,126 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -StringType.MidStmtStr(ref sDest2, 37, 1, Modul1.IText[175]); -///BlockEnd Block 6,2 -} -///Operation Operation 5,127 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -StringType.MidStmtStr(ref sDest2, 38, 1, Modul1.IText[175]); -///BlockEnd Block 6,2 -} -///Goto Goto 5,128 Dest:OK -goto IL_17ec; -///Label Label 5,129 1 -IL_148f: -///Operation Operation 5,130 -num = 254; -///Operation Operation 5,131 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -StringType.MidStmtStr(ref sDest2, 42, 1, Modul1.IText[175]); -///BlockEnd Block 6,2 -} -///Operation Operation 5,132 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -StringType.MidStmtStr(ref sDest2, 43, 1, Modul1.IText[175]); -///BlockEnd Block 6,2 -} -///Goto Goto 5,133 Dest:OK -goto IL_17ec; -///Label Label 5,134 1 -IL_153c: -///Operation Operation 5,135 -num = 262; -///Operation Operation 5,136 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -StringType.MidStmtStr(ref sDest2, 48, 1, Modul1.IText[175]); -///BlockEnd Block 6,2 -} -///Operation Operation 5,137 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -StringType.MidStmtStr(ref sDest2, 49, 1, Modul1.IText[175]); -///BlockEnd Block 6,2 -} -///Goto Goto 5,138 Dest:OK -goto IL_17ec; -///Label Label 5,139 1 -IL_15e9: -///Operation Operation 5,140 -num = 270; -///Operation Operation 5,141 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -StringType.MidStmtStr(ref sDest2, 54, 1, Modul1.IText[175]); -///BlockEnd Block 6,2 -} -///Operation Operation 5,142 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -StringType.MidStmtStr(ref sDest2, 55, 1, Modul1.IText[175]); -///BlockEnd Block 6,2 -} -///Goto Goto 5,143 Dest:OK -goto IL_17ec; -///Label Label 5,144 1 -IL_1696: -///Operation Operation 5,145 -num = 278; -///Operation Operation 5,146 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -StringType.MidStmtStr(ref sDest2, 59, 1, Modul1.IText[175]); -///BlockEnd Block 6,2 -} -///Operation Operation 5,147 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -StringType.MidStmtStr(ref sDest2, 60, 1, Modul1.IText[175]); -///BlockEnd Block 6,2 -} -///Goto Goto 5,148 Dest:OK -goto IL_17ec; -///Label Label 5,149 1 -IL_1743: -///Operation Operation 5,150 -num = 286; -///Operation Operation 5,151 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -StringType.MidStmtStr(ref sDest2, 65, 1, Modul1.IText[175]); -///BlockEnd Block 6,2 -} -///Operation Operation 5,152 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -StringType.MidStmtStr(ref sDest2, 66, 1, Modul1.IText[175]); -///BlockEnd Block 6,2 -} -///Goto Goto 5,153 Dest:OK -goto IL_17ec; -///Label Label 5,154 9 -IL_17ec: -///Operation Operation 5,155 -num = 293; -///Operation Operation 5,156 -lErl = 54; -///Operation Operation 5,157 -num15 = (short)unchecked(num15 + 1); -///Operation Operation 5,158 -num18 = num15; -///Operation Operation 5,159 -num11 = 507; -///Operation Operation 5,160 -if (num18 <= num11) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1313; -///BlockEnd Block 6,2 -} -///Operation Operation 5,161 -else -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -lErl = 3; -///Operation Operation 6,2 -DataModul.DB_EventTable.Seek("=", 601.AsString(), Modul1.FamInArb.AsString(), "0"); -///Operation Operation 6,3 -if (!DataModul.DB_EventTable.NoMatch) -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 8,0 -{ -///Operation Operation 8,1 -StringType.MidStmtStr(ref sDest2, 75, 1, "J"); -///BlockEnd Block 8,2 -} -///Operation Operation 7,2 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 8,0 -{ -///Operation Operation 8,1 -StringType.MidStmtStr(ref sDest2, 76, 1, "J"); -///BlockEnd Block 8,2 -} -///BlockEnd Block 7,3 -} -///Operation Operation 6,4 -List1.Items.Add(new ListItem(sDest2 + " " + Modul1.FamInArb.AsString())); -///BlockEnd Block 6,5 -} -///Goto Goto 5,162 Dest:OK -goto IL_197c; -///Label Label 5,163 3 -IL_197c: -///Operation Operation 5,164 -num = 306; -///Operation Operation 5,165 -lErl = 55; -///Operation Operation 5,166 -I1++; -///Goto Goto 5,167 Dest:OK -goto IL_199d; -///Label Label 5,168 2 -IL_199d: -///Operation Operation 5,169 -i13 = I1; -///Operation Operation 5,170 -num5 = num17; -///Operation Operation 5,171 -if (i13 <= num5) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -ProgressBar1.PerformStep(); -///Operation Operation 6,2 -Application.DoEvents(); -///Operation Operation 6,3 -sDest2 = " "; -///Operation Operation 6,4 -Modul1.FamInArb = I1; -///Operation Operation 6,5 -if (Modul1.FamInArb <= num8) -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -DataModul.DB_FamilyTable.Index = nameof(DataModul.FamilyIndex.Fam); -///Operation Operation 7,2 -DataModul.DB_FamilyTable.Seek("=", Modul1.FamInArb.AsString()); -///Operation Operation 7,3 -if (!DataModul.DB_FamilyTable.NoMatch) -///BlockStart Block 8,0 -{ -///Operation Operation 8,1 -MainProject.Forms.Familie.Famles(Modul1.FamInArb); -///Operation Operation 8,2 -if (Modul1.Family.Mann > 0) -///BlockStart Block 9,0 -{ -///Operation Operation 9,1 -Modul1.PersInArb = Modul1.Family.Mann; -///Operation Operation 9,2 -Modul1.Personlesen(Modul1.PersInArb); -///Operation Operation 9,3 -if (Modul1.Kont[0] != "") -///BlockStart Block 10,0 -{ -///Operation Operation 10,1 -StringType.MidStmtStr(ref sDest2, 1, 15, Modul1.Kont[0]); -///BlockEnd Block 10,2 -} -///Operation Operation 9,4 -else -///BlockStart Block 10,0 -{ -///Operation Operation 10,1 -StringType.MidStmtStr(ref sDest2, 1, 15, ">NN<"); -///BlockEnd Block 10,2 -} -///Operation Operation 9,5 -StringType.MidStmtStr(ref sDest2, 16, 2, "/ "); -///BlockEnd Block 9,6 -} -///Operation Operation 8,3 -if (Modul1.Family.Frau > 0) -///BlockStart Block 9,0 -{ -///Operation Operation 9,1 -Modul1.PersInArb = Modul1.Family.Frau; -///Operation Operation 9,2 -Modul1.Personlesen(Modul1.PersInArb); -///Operation Operation 9,3 -if (Modul1.Kont[0] != "") -///BlockStart Block 10,0 -{ -///Operation Operation 10,1 -StringType.MidStmtStr(ref sDest2, 17, 15, Modul1.Kont[0]); -///BlockEnd Block 10,2 -} -///Operation Operation 9,4 -else -///BlockStart Block 10,0 -{ -///Operation Operation 10,1 -StringType.MidStmtStr(ref sDest2, 17, 15, ">NN<"); -///BlockEnd Block 10,2 -} -///BlockEnd Block 9,5 -} -///Operation Operation 8,4 -if (Modul1.Family.Kind[1] != 0) -///BlockStart Block 9,0 -{ -///Operation Operation 9,1 -StringType.MidStmtStr(ref sDest2, 32, 1, Modul1.IText[175]); -///BlockEnd Block 9,2 -} -///Operation Operation 8,5 -DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.ArtNr); -///Operation Operation 8,6 -DataModul.DB_FamilyTable.Index = nameof(DataModul.FamilyIndex.Fam); -///Operation Operation 8,7 -DataModul.DB_FamilyTable.Seek("=", Modul1.FamInArb); -///Operation Operation 8,8 -if (!DataModul.DB_FamilyTable.NoMatch) -///BlockStart Block 9,0 -{ -///Operation Operation 9,1 -if ((DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.Aeb)].Value == -1)) -///BlockStart Block 10,0 -{ -///Operation Operation 10,1 -StringType.MidStmtStr(ref sDest2, 70, 1, Modul1.IText[175]); -///BlockEnd Block 10,2 -} -///Operation Operation 9,2 -num15 = 500; -///Goto Goto 9,3 Dest:OK -goto IL_1313; -///BlockEnd Block 9,4 -} -///BlockEnd Block 8,9 -} -///Goto Goto 7,4 Dest:OK -goto IL_197c; -///BlockEnd Block 7,5 -} -///BlockEnd Block 6,6 -} -///Operation Operation 5,172 -else -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -Label4.Text = List1.Items.Count - 3.AsString() + " Familien"; -///Operation Operation 6,2 -if (RadioButton1.Checked) -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -Label4.Text = List1.Items.Count.AsString() + " Familien"; -///BlockEnd Block 7,2 -} -///BlockEnd Block 6,3 -} -///Goto Goto 5,173 Dest:OK -goto IL_448a; -///Label Label 5,174 1 -IL_1a3c: -///Operation Operation 5,175 -num = 314; -///Operation Operation 5,176 -List1.Items.Clear(); -///Operation Operation 5,177 -List2.Items.Clear(); -///Operation Operation 5,178 -ProgressBar1.Minimum = 0; -///Operation Operation 5,179 -ProgressBar1.Maximum = 0; -///Operation Operation 5,180 -Close(); -///Goto Goto 5,181 Dest:OK -goto end_IL_0001_2; -///Label Label 5,182 1 -IL_1aae: -///Operation Operation 5,183 -num = 322; -///Operation Operation 5,184 -FileSystem.FileClose(99); -///Operation Operation 5,185 -FileSystem.FileOpen(99, Modul1.TempPath + "\\Text4.Txt", OpenMode.Output); -///Operation Operation 5,186 -FileSystem.PrintLine(99, Label1[2].Text); -///Operation Operation 5,187 -FileSystem.PrintLine(99, Label1[1].Text); -///Operation Operation 5,188 -FileSystem.PrintLine(99, Label1[0].Text); -///Operation Operation 5,189 -if (List2.Visible) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -L = List2; -///Operation Operation 6,2 -A = 2; -///Operation Operation 6,3 -Modul1.Listbox3Clip(ref L, ref A); -///Operation Operation 6,4 -List2 = L; -///BlockEnd Block 6,5 -} -///Operation Operation 5,190 -else -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -L = List1; -///Operation Operation 6,2 -A = 2; -///Operation Operation 6,3 -Modul1.Listbox3Clip(ref L, ref A); -///Operation Operation 6,4 -List1 = L; -///BlockEnd Block 6,5 -} -///Operation Operation 5,191 -FileSystem.FileClose(); -///Goto Goto 5,192 Dest:OK -goto IL_448a; -///Label Label 5,193 1 -IL_1c00: -///Operation Operation 5,194 -num = 336; -///Comment LComment 5,195 -//Sz = 0; -///Operation Operation 5,196 -List1.Items.Clear(); -///Operation Operation 5,197 -Label1[2].Text = "Familien ohne Datum"; -///Operation Operation 5,198 -Label1[1].Text = "Mann Frau Kinder Pro Verl. Hei k.H. Schd. Eheä. Aus Fikt."; -///Operation Operation 5,199 -Label1[0].Text = " DO DO DO DO DO DO DO"; -///Operation Operation 5,200 -if (RadioButton2.Checked) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -List1.Items.Add("Familien ohne Datum"); -///BlockEnd Block 6,2 -} -///Operation Operation 5,201 -if (RadioButton2.Checked) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -List1.Items.Add("Mann Frau Kinder Pro Verl. Hei k.H. Schd. eheä. auß Fikt."); -///BlockEnd Block 6,2 -} -///Operation Operation 5,202 -if (RadioButton2.Checked) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -List1.Items.Add(" DO DO DO DO DO DO DO"); -///BlockEnd Block 6,2 -} -///Operation Operation 5,203 -Modul1.I = 0; -///Operation Operation 5,204 -while (Modul1.I <= 2) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -Label1[(short)Modul1.I].Refresh(); -///Operation Operation 6,2 -Modul1.I++; -///BlockEnd Block 6,3 -} -///Operation Operation 5,205 -num7 = 1; -///Operation Operation 5,206 -if (num7 <= 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,2 -} -///Operation Operation 5,207 -DataModul.DB_FamilyTable.MoveLast(); -///Operation Operation 5,208 -num8 = DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value.AsInt(); -///Operation Operation 5,209 -if ((num7 > DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value)) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -Interaction.MsgBox(Modul1.IText[174] + " " + num7.AsString() + Modul1.IText[172]); -///Goto Goto 6,2 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,3 -} -///Operation Operation 5,210 -else -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -ProgressBar1.Minimum = 0; -///Operation Operation 6,2 -ProgressBar1.Maximum = 0; -///Operation Operation 6,3 -ProgressBar1.Step = 1; -///Operation Operation 6,4 -ProgressBar1.Maximum = (int)Math.Round(Conversion.Val(Modul1.Aus[13])); -///Operation Operation 6,5 -i9 = num7; -///Operation Operation 6,6 -num14 = num7 + DataModul.DB_FamilyTable.RecordCount; -///Operation Operation 6,7 -I1 = i9; -///Goto Goto 6,8 Dest:OK -goto IL_2440; -///BlockEnd Block 6,9 -} -///Label Label 5,211 3 -IL_2240: -///Operation Operation 5,212 -num = 415; -///Operation Operation 5,213 -Modul1.Ubg = num15; -///Operation Operation 5,214 -DataModul.DB_EventTable.Seek("=", Modul1.Ubg.AsString(), Modul1.FamInArb.AsString(), "0"); -///Operation Operation 5,215 -if (DataModul.DB_EventTable.NoMatch) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -if (!((num15 == 507) & DataModul.DB_EventTable.NoMatch)) -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -num15 = (short)unchecked(num15 + 1); -///Operation Operation 7,2 -num16 = num15; -///Operation Operation 7,3 -num11 = 507; -///Operation Operation 7,4 -if (num16 <= num11) -///BlockStart Block 8,0 -{ -///Goto Goto 8,1 Dest:OK -goto IL_2240; -///BlockEnd Block 8,2 -} -///Operation Operation 7,5 -else -///BlockStart Block 8,0 -{ -///Goto Goto 8,1 Dest:OK -goto IL_2317; -///BlockEnd Block 8,2 -} -///BlockEnd Block 7,6 -} -///Operation Operation 6,2 -else -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto IL_2317; -///BlockEnd Block 7,2 -} -///BlockEnd Block 6,3 -} -///Operation Operation 5,216 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_241f; -///BlockEnd Block 6,2 -} -///Label Label 5,217 4 -IL_2317: -///Operation Operation 5,218 -num = 424; -///Operation Operation 5,219 -lErl = 34; -///Operation Operation 5,220 -DataModul.DB_EventTable.Seek("=", 601.AsString(), Modul1.FamInArb.AsString(), "0"); -///Operation Operation 5,221 -if (DataModul.DB_EventTable.NoMatch) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -if (sDest2.Trim() != "") -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -List1.Items.Add(new ListItem(sDest2 + " " + Modul1.FamInArb.AsString())); -///Comment LComment 7,2 -//Sz++; -///BlockEnd Block 7,3 -} -///BlockEnd Block 6,2 -} -///Goto Goto 5,222 Dest:OK -goto IL_241f; -///Label Label 5,223 4 -IL_241f: -///Operation Operation 5,224 -num = 433; -///Operation Operation 5,225 -lErl = 35; -///Operation Operation 5,226 -I1++; -///Goto Goto 5,227 Dest:OK -goto IL_2440; -///Label Label 5,228 2 -IL_2440: -///Operation Operation 5,229 -i10 = I1; -///Operation Operation 5,230 -num5 = num14; -///Operation Operation 5,231 -if (i10 <= num5) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -ProgressBar1.PerformStep(); -///Operation Operation 6,2 -Application.DoEvents(); -///Operation Operation 6,3 -sDest2 = " "; -///Operation Operation 6,4 -Modul1.FamInArb = I1; -///Operation Operation 6,5 -if (Modul1.FamInArb <= num8) -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -DataModul.DB_FamilyTable.Index = nameof(DataModul.FamilyIndex.Fam); -///Operation Operation 7,2 -DataModul.DB_FamilyTable.Seek("=", Modul1.FamInArb.AsString()); -///Operation Operation 7,3 -if (!DataModul.DB_FamilyTable.NoMatch) -///BlockStart Block 8,0 -{ -///Operation Operation 8,1 -MainProject.Forms.Familie.Famles(Modul1.FamInArb); -///Operation Operation 8,2 -if (Modul1.Family.Mann > 0) -///BlockStart Block 9,0 -{ -///Operation Operation 9,1 -Modul1.PersInArb = Modul1.Family.Mann; -///Operation Operation 9,2 -Modul1.Personlesen(Modul1.PersInArb); -///Operation Operation 9,3 -if (Modul1.Kont[0] != "") -///BlockStart Block 10,0 -{ -///Operation Operation 10,1 -StringType.MidStmtStr(ref sDest2, 1, 15, Modul1.Kont[0]); -///BlockEnd Block 10,2 -} -///Operation Operation 9,4 -else -///BlockStart Block 10,0 -{ -///Operation Operation 10,1 -StringType.MidStmtStr(ref sDest2, 1, 15, ">NN<"); -///BlockEnd Block 10,2 -} -///Operation Operation 9,5 -StringType.MidStmtStr(ref sDest2, 16, 2, "/ "); -///BlockEnd Block 9,6 -} -///Operation Operation 8,3 -if (Modul1.Family.Frau > 0) -///BlockStart Block 9,0 -{ -///Operation Operation 9,1 -Modul1.PersInArb = Modul1.Family.Frau; -///Operation Operation 9,2 -Modul1.Personlesen(Modul1.PersInArb); -///Operation Operation 9,3 -if (Modul1.Kont[0] != "") -///BlockStart Block 10,0 -{ -///Operation Operation 10,1 -StringType.MidStmtStr(ref sDest2, 17, 15, Modul1.Kont[0]); -///BlockEnd Block 10,2 -} -///Operation Operation 9,4 -else -///BlockStart Block 10,0 -{ -///Operation Operation 10,1 -StringType.MidStmtStr(ref sDest2, 17, 15, ">NN<"); -///BlockEnd Block 10,2 -} -///BlockEnd Block 9,5 -} -///Operation Operation 8,4 -if (Modul1.Family.Kind[1] != 0) -///BlockStart Block 9,0 -{ -///Operation Operation 9,1 -StringType.MidStmtStr(ref sDest2, 32, 1, Modul1.IText[175]); -///BlockEnd Block 9,2 -} -///Operation Operation 8,5 -DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.ArtNr); -///Operation Operation 8,6 -DataModul.DB_FamilyTable.Index = nameof(DataModul.FamilyIndex.Fam); -///Operation Operation 8,7 -DataModul.DB_FamilyTable.Seek("=", Modul1.FamInArb); -///Operation Operation 8,8 -if (!DataModul.DB_FamilyTable.NoMatch) -///BlockStart Block 9,0 -{ -///Operation Operation 9,1 -if ((DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.Aeb)].Value == -1)) -///BlockStart Block 10,0 -{ -///Operation Operation 10,1 -StringType.MidStmtStr(ref sDest2, 70, 1, Modul1.IText[175]); -///BlockEnd Block 10,2 -} -///Operation Operation 9,2 -num15 = 500; -///Goto Goto 9,3 Dest:OK -goto IL_2240; -///BlockEnd Block 9,4 -} -///BlockEnd Block 8,9 -} -///Goto Goto 7,4 Dest:OK -goto IL_2317; -///BlockEnd Block 7,5 -} -///Goto Goto 6,6 Dest:OK -goto IL_241f; -///BlockEnd Block 6,7 -} -///Operation Operation 5,232 -else -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -Label4.Text = List1.Items.Count - 2.AsString() + " Einträge"; -///BlockEnd Block 6,2 -} -///Goto Goto 5,233 Dest:OK -goto end_IL_0001_2; -///Label Label 5,234 1 -IL_2496: -///Operation Operation 5,235 -num = 439; -///Operation Operation 5,236 -List1.Items.Clear(); -///Operation Operation 5,237 -Label1[2].Text = "Personen ohne Datum"; -///Operation Operation 5,238 -Label1[1].Text = Modul1.IText[166]; -///Operation Operation 5,239 -Label1[0].Text = Modul1.IText[167]; -///Operation Operation 5,240 -I1 = 0; -///Operation Operation 5,241 -while (I1 <= 2) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -Label1[(short)I1].Refresh(); -///Operation Operation 6,2 -I1++; -///BlockEnd Block 6,3 -} -///Operation Operation 5,242 -num7 = 1; -///Operation Operation 5,243 -if (num7 <= 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,2 -} -///Operation Operation 5,244 -DataModul.DB_PersonTable.Index = nameof(DataModul.PersonIndex.PerNr); -///Operation Operation 5,245 -DataModul.DB_PersonTable.MoveLast(); -///Operation Operation 5,246 -num8 = DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value.AsInt(); -///Operation Operation 5,247 -if (num7 == 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,2 -} -///Operation Operation 5,248 -if ((num7 > DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value)) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -Interaction.MsgBox(Modul1.IText[173] + " " + num7.AsString() + Modul1.IText[172]); -///Goto Goto 6,2 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,3 -} -///Operation Operation 5,249 -else -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -ProgressBar1.Minimum = 0; -///Operation Operation 6,2 -ProgressBar1.Maximum = 0; -///Operation Operation 6,3 -ProgressBar1.Step = 1; -///Operation Operation 6,4 -ProgressBar1.Maximum = DataModul.DB_PersonTable.RecordCount - 1; -///Operation Operation 6,5 -i6 = num7; -///Operation Operation 6,6 -num10 = DataModul.DB_PersonTable.RecordCount - 1; -///Operation Operation 6,7 -I1 = i6; -///Goto Goto 6,8 Dest:OK -goto IL_33b6; -///BlockEnd Block 6,9 -} -///Label Label 5,250 3 -IL_2956: -///Operation Operation 5,251 -num = 497; -///Operation Operation 5,252 -DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.BeSu); -///Operation Operation 5,253 -DataModul.DB_EventTable.Seek("=", num12, Modul1.PersInArb.AsString()); -///Operation Operation 5,254 -if (!DataModul.DB_EventTable.NoMatch) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -switch (num12) -///BlockStart Block 7,0 -{ -///Label Label 7,1 -case 300: -///Operation Operation 7,2 -break; -///Label Label 7,3 -case 301: -///Goto Goto 7,4 Dest:OK -goto IL_2b31; -///Label Label 7,5 -case 302: -///Goto Goto 7,6 Dest:OK -goto IL_2c4c; -///Label Label 7,7 -default: -///Goto Goto 7,8 Dest:OK -goto IL_2d63; -///BlockEnd Block 7,9 -} -///BlockStart Block 7,10 -{ -///Goto Goto 7,11 Dest:OK -goto IL_2a16; -///BlockEnd Block 7,12 -} -///BlockEnd Block 6,2 -} -///Operation Operation 5,255 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2d63; -///BlockEnd Block 6,2 -} -///Label Label 5,256 1 -IL_2a16: -///Operation Operation 5,257 -num = 506; -///Operation Operation 5,258 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -StringType.MidStmtStr(ref sDest2, 34, 1, Modul1.IText[175]); -///BlockEnd Block 6,2 -} -///Operation Operation 5,259 -if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 8,0 -{ -///Operation Operation 8,1 -StringType.MidStmtStr(ref sDest2, 38, 1, Modul1.IText[175]); -///BlockEnd Block 8,2 -} -///Goto Goto 7,2 Dest:OK -goto IL_2d63; -///BlockEnd Block 7,3 -} -///BlockEnd Block 6,2 -} -///Goto Goto 5,260 Dest:OK -goto IL_3395; -///Label Label 5,261 1 -IL_2b31: -///Operation Operation 5,262 -num = 520; -///Operation Operation 5,263 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -StringType.MidStmtStr(ref sDest2, 42, 1, Modul1.IText[175]); -///BlockEnd Block 6,2 -} -///Operation Operation 5,264 -if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 8,0 -{ -///Operation Operation 8,1 -StringType.MidStmtStr(ref sDest2, 46, 1, Modul1.IText[175]); -///BlockEnd Block 8,2 -} -///Goto Goto 7,2 Dest:OK -goto IL_2d63; -///BlockEnd Block 7,3 -} -///BlockEnd Block 6,2 -} -///Goto Goto 5,265 Dest:OK -goto IL_3395; -///Label Label 5,266 1 -IL_2c4c: -///Operation Operation 5,267 -num = 534; -///Operation Operation 5,268 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -StringType.MidStmtStr(ref sDest2, 50, 1, Modul1.IText[175]); -///BlockEnd Block 6,2 -} -///Operation Operation 5,269 -if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 8,0 -{ -///Operation Operation 8,1 -StringType.MidStmtStr(ref sDest2, 53, 1, Modul1.IText[175]); -///BlockEnd Block 8,2 -} -///Goto Goto 7,2 Dest:OK -goto IL_2d63; -///BlockEnd Block 7,3 -} -///BlockEnd Block 6,2 -} -///Goto Goto 5,270 Dest:OK -goto IL_3395; -///Label Label 5,271 6 -IL_2d63: -///Operation Operation 5,272 -num = 547; -///Operation Operation 5,273 -lErl = 92; -///Operation Operation 5,274 -num12 = (short)unchecked(num12 + 1); -///Operation Operation 5,275 -num13 = num12; -///Operation Operation 5,276 -num11 = 302; -///Operation Operation 5,277 -if (num13 <= num11) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2956; -///BlockEnd Block 6,2 -} -///Operation Operation 5,278 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_32fc; -///BlockEnd Block 6,2 -} -///Label Label 5,279 4 -IL_32fc: -///Operation Operation 5,280 -num = 606; -///Operation Operation 5,281 -lErl = 45; -///Operation Operation 5,282 -Modul1.LiText += sDest2; -///Goto Goto 5,283 Dest:OK -goto IL_3320; -///Label Label 5,284 3 -IL_3320: -///Operation Operation 5,285 -num = 609; -///Operation Operation 5,286 -if ((Modul1.LiText).Trim() != "") -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -List1.Items.Add(new ListItem(Modul1.LiText + " " + Modul1.PersInArb.AsString())); -///BlockEnd Block 6,2 -} -///Operation Operation 5,287 -Modul1.LiText = ""; -///Goto Goto 5,288 Dest:OK -goto IL_3395; -///Label Label 5,289 7 -IL_3395: -///Operation Operation 5,290 -num = 613; -///Operation Operation 5,291 -lErl = 95; -///Operation Operation 5,292 -I1++; -///Goto Goto 5,293 Dest:OK -goto IL_33b6; -///Label Label 5,294 2 -IL_33b6: -///Operation Operation 5,295 -i7 = I1; -///Operation Operation 5,296 -num5 = num10; -///Operation Operation 5,297 -if (i7 <= num5) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -ProgressBar1.PerformStep(); -///Operation Operation 6,2 -Application.DoEvents(); -///Operation Operation 6,3 -Modul1.PersInArb = I1; -///Operation Operation 6,4 -if (Modul1.PersInArb <= num8) -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -DataModul.DB_PersonTable.Seek("=", Modul1.PersInArb.AsString()); -///Operation Operation 7,2 -if (!DataModul.DB_PersonTable.NoMatch) -///BlockStart Block 8,0 -{ -///Operation Operation 8,1 -Modul1.Personlesen(Modul1.PersInArb); -///Operation Operation 8,2 -Modul1.LiText = Strings.Left((Modul1.Kont[0]).Trim() + "," + (Modul1.Kont[3]).Trim() + " ", 20); -///Operation Operation 8,3 -Modul1.Schalt = 20; -///Operation Operation 8,4 -T = 1; -///Operation Operation 8,5 -while (T <= 10) -///BlockStart Block 9,0 -{ -///Operation Operation 9,1 -Modul1.Kont[T + 10] = ""; -///Operation Operation 9,2 -Modul1.Kont[T + 20] = ""; -///Operation Operation 9,3 -T = (short)unchecked(T + 1); -///BlockEnd Block 9,4 -} -///Operation Operation 8,6 -Modul1.Datles(); -///Operation Operation 8,7 -sDest2 = " "; -///Operation Operation 8,8 -if ((Modul1.Kont[11]).Trim() == "") -///BlockStart Block 9,0 -{ -///Operation Operation 9,1 -if ((Modul1.Kont[12]).Trim() == "") -///BlockStart Block 10,0 -{ -///Operation Operation 10,1 -if ((Modul1.Kont[13]).Trim() == "") -///BlockStart Block 11,0 -{ -///Operation Operation 11,1 -if ((Modul1.Kont[14]).Trim() == "") -///BlockStart Block 12,0 -{ -///Operation Operation 12,1 -num12 = 300; -///Goto Goto 12,2 Dest:OK -goto IL_2956; -///BlockEnd Block 12,3 -} -///BlockEnd Block 11,2 -} -///BlockEnd Block 10,2 -} -///BlockEnd Block 9,2 -} -///BlockEnd Block 8,9 -} -///Goto Goto 7,3 Dest:OK -goto IL_3395; -///BlockEnd Block 7,4 -} -///BlockEnd Block 6,5 -} -///Operation Operation 5,298 -else -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -Label4.Text = List1.Items.Count - 1.AsString() + " Einträge"; -///BlockEnd Block 6,2 -} -///Goto Goto 5,299 Dest:OK -goto IL_448a; -///Label Label 5,300 1 -IL_3406: -///Operation Operation 5,301 -num = 618; -///Operation Operation 5,302 -List1.Items.Clear(); -///Operation Operation 5,303 -Label1[2].Text = Modul1.IText[84]; -///Operation Operation 5,304 -Label1[0].Text = "Name Elternteil Kind Pate Zeuge Adoptivkind verbunden"; -///Operation Operation 5,305 -num7 = 1; -///Operation Operation 5,306 -if (num7 <= 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,2 -} -///Operation Operation 5,307 -DataModul.DB_PersonTable.Index = nameof(DataModul.PersonIndex.PerNr); -///Operation Operation 5,308 -DataModul.DB_PersonTable.MoveLast(); -///Operation Operation 5,309 -num8 = DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value.AsInt(); -///Operation Operation 5,310 -if (num7 == 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,2 -} -///Operation Operation 5,311 -if ((num7 > DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value)) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -Interaction.MsgBox(Modul1.IText[173] + " " + num7.AsString() + Modul1.IText[172]); -///Goto Goto 6,2 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,3 -} -///Operation Operation 5,312 -else -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -Label1[1].Text = "unvollständig verknüpfte Personen "; -///Operation Operation 6,2 -Modul1.Schalt = 3; -///Operation Operation 6,3 -ProgressBar1.Minimum = 0; -///Operation Operation 6,4 -ProgressBar1.Maximum = 0; -///Operation Operation 6,5 -ProgressBar1.Step = 1; -///Operation Operation 6,6 -ProgressBar1.Maximum = DataModul.DB_PersonTable.RecordCount - 1; -///Operation Operation 6,7 -i3 = num7; -///Operation Operation 6,8 -num9 = DataModul.DB_PersonTable.RecordCount - 1; -///Operation Operation 6,9 -I1 = i3; -///Goto Goto 6,10 Dest:OK -goto IL_3dfe; -///BlockEnd Block 6,11 -} -///Label Label 5,313 2 -IL_3dfe: -///Operation Operation 5,314 -i4 = I1; -///Operation Operation 5,315 -num5 = num9; -///Operation Operation 5,316 -if (i4 <= num5) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -ProgressBar1.PerformStep(); -///Operation Operation 6,2 -Application.DoEvents(); -///Operation Operation 6,3 -Modul1.PersInArb = I1; -///Operation Operation 6,4 -sDest = new string(' ', 80); -///Operation Operation 6,5 -if (Modul1.PersInArb <= num8) -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -DataModul.DB_PersonTable.Seek("=", Modul1.PersInArb.AsString()); -///Operation Operation 7,2 -if (!DataModul.DB_PersonTable.NoMatch) -///BlockStart Block 8,0 -{ -///Operation Operation 8,1 -LiKi = 1; -///Operation Operation 8,2 -LiEl = 1; -///Comment LComment 8,3 -//LiPa = 1; -///Operation Operation 8,4 -Modul1.Kenn = 3f; -///Operation Operation 8,5 -DataModul.DB_LinkTable.Index = nameof(DataModul.LinkIndex.ElSu); -///Operation Operation 8,6 -DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), Modul1.Kenn); -///Operation Operation 8,7 -if (DataModul.DB_LinkTable.NoMatch) -///BlockStart Block 9,0 -{ -///Operation Operation 9,1 -LiKi = 0; -///BlockEnd Block 9,2 -} -///Operation Operation 8,8 -Modul1.Kenn = 1f; -///Operation Operation 8,9 -Modul1.PerSatzLes(); -///Operation Operation 8,10 -if ((DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.Sex)].AsString() == "F")) -///BlockStart Block 9,0 -{ -///Operation Operation 9,1 -Modul1.Kenn = 2f; -///BlockEnd Block 9,2 -} -///Operation Operation 8,11 -DataModul.DB_LinkTable.Index = nameof(DataModul.LinkIndex.ElSu); -///Operation Operation 8,12 -DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), Modul1.Kenn); -///Operation Operation 8,13 -if (DataModul.DB_LinkTable.NoMatch) -///BlockStart Block 9,0 -{ -///Operation Operation 9,1 -LiEl = 0; -///BlockEnd Block 9,2 -} -///Operation Operation 8,14 -if ((LiKi == 0) & (LiEl == 0)) -///BlockStart Block 9,0 -{ -///Operation Operation 9,1 -Modul1.Personlesen(Modul1.PersInArb); -///Operation Operation 9,2 -StringType.MidStmtStr(ref sDest, 1, 20, Strings.Left((Modul1.Kont[0]).Trim() + "," + (Modul1.Kont[3]).Trim() + " ", 20)); -///Operation Operation 9,3 -if (LiEl == 0) -///BlockStart Block 10,0 -{ -///Operation Operation 10,1 -StringType.MidStmtStr(ref sDest, 24, 1, "N"); -///BlockEnd Block 10,2 -} -///Operation Operation 9,4 -if (LiKi == 0) -///BlockStart Block 10,0 -{ -///Operation Operation 10,1 -StringType.MidStmtStr(ref sDest, 30, 1, "N"); -///BlockEnd Block 10,2 -} -///Operation Operation 9,5 -DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 4); -///Operation Operation 9,6 -if (!DataModul.DB_LinkTable.NoMatch) -///BlockStart Block 10,0 -{ -///Operation Operation 10,1 -StringType.MidStmtStr(ref sDest, 36, 1, "J"); -///BlockEnd Block 10,2 -} -///Operation Operation 9,7 -DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 5); -///Operation Operation 9,8 -if (!DataModul.DB_LinkTable.NoMatch) -///BlockStart Block 10,0 -{ -///Operation Operation 10,1 -StringType.MidStmtStr(ref sDest, 46, 1, "J"); -///BlockEnd Block 10,2 -} -///Operation Operation 9,9 -DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 6); -///Operation Operation 9,10 -if (!DataModul.DB_LinkTable.NoMatch) -///BlockStart Block 10,0 -{ -///Operation Operation 10,1 -StringType.MidStmtStr(ref sDest, 46, 1, "J"); -///BlockEnd Block 10,2 -} -///Operation Operation 9,11 -DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 7); -///Operation Operation 9,12 -if (!DataModul.DB_LinkTable.NoMatch) -///BlockStart Block 10,0 -{ -///Operation Operation 10,1 -StringType.MidStmtStr(ref sDest, 46, 1, "J"); -///BlockEnd Block 10,2 -} -///Operation Operation 9,13 -DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 8); -///Operation Operation 9,14 -if (!DataModul.DB_LinkTable.NoMatch) -///BlockStart Block 10,0 -{ -///Operation Operation 10,1 -StringType.MidStmtStr(ref sDest, 55, 1, "J"); -///BlockEnd Block 10,2 -} -///Operation Operation 9,15 -DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 9); -///Operation Operation 9,16 -if (!DataModul.DB_LinkTable.NoMatch) -///BlockStart Block 10,0 -{ -///Operation Operation 10,1 -StringType.MidStmtStr(ref sDest, 70, 1, "J"); -///BlockEnd Block 10,2 -} -///Operation Operation 9,17 -DataModul.DB_WitnessTable.Index = nameof(DataModul.WitnessIndex.ElSu); -///Operation Operation 9,18 -DataModul.DB_WitnessTable.Seek("=", Modul1.PersInArb, "10"); -///Operation Operation 9,19 -if (!DataModul.DB_WitnessTable.NoMatch) -///BlockStart Block 10,0 -{ -///Operation Operation 10,1 -StringType.MidStmtStr(ref sDest, 46, 1, "J"); -///BlockEnd Block 10,2 -} -///Operation Operation 9,20 -List1.Items.Add(new ListItem(sDest + " " + Modul1.PersInArb.AsString())); -///BlockEnd Block 9,21 -} -///BlockEnd Block 8,15 -} -///Operation Operation 7,3 -I1++; -///Goto Goto 7,4 Dest:OK -goto IL_3dfe; -///BlockEnd Block 7,5 -} -///Operation Operation 6,6 -else -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto IL_448a; -///BlockEnd Block 7,2 -} -///BlockEnd Block 6,7 -} -///Operation Operation 5,317 -else -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -Label4.Text = List1.Items.Count - 1.AsString() + " Einträge"; -///Goto Goto 6,2 Dest:OK -goto IL_448a; -///BlockEnd Block 6,3 -} -///Label Label 5,318 1 -IL_3e4e: -///Operation Operation 5,319 -num = 716; -///Operation Operation 5,320 -List2.Visible = true; -///Operation Operation 5,321 -List2.Items.Clear(); -///Operation Operation 5,322 -num7 = 1; -///Operation Operation 5,323 -if (num7 <= 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,2 -} -///Operation Operation 5,324 -Label1[2].Text = "Fehlliste Orte"; -///Operation Operation 5,325 -Label1[1].Text = " Nr Ort Orsteil Kreis Land Staat Loc Länge Breite PLZ Terr StKz"; -///Operation Operation 5,326 -Label1[0].Text = " "; -///Operation Operation 5,327 -List2.Items.Add("Fehlliste Orte"); -///Operation Operation 5,328 -List2.Items.Add(" Nr Ort Ortsteil Kreis Land Staat Loc. Laenge Breite PLZ Terr. StKz"); -///Operation Operation 5,329 -DataModul.DB_PlaceTable.MoveFirst(); -///Operation Operation 5,330 -DataModul.DB_PlaceTable.Index = nameof(DataModul.PlaceIndex.OrtNr); -///Operation Operation 5,331 -DataModul.DB_PlaceTable.Seek(">=", num7); -///Operation Operation 5,332 -this.A = 1; -///Operation Operation 5,333 -if (!DataModul.DB_PlaceTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_441a; -///BlockEnd Block 6,2 -} -///Operation Operation 5,334 -else -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -DataModul.DB_PlaceTable.MoveNext(); -///BlockEnd Block 6,2 -} -///Goto Goto 5,335 Dest:OK -goto IL_4454; -///Label Label 5,336 3 -IL_441a: -///Operation Operation 5,337 -num = 733; -///Operation Operation 5,338 -if (!DataModul.DB_PlaceTable.EOF) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -Modul1.LiText = new string(' ', 80); -///Operation Operation 6,2 -StringType.MidStmtStr(ref Modul1.LiText, 1, 10, Strings.Right(" " + DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.OrtNr)].Value.AsString(), 10)); -///Operation Operation 6,3 -if ((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Ort)].AsInt() == 0)) -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -StringType.MidStmtStr(ref Modul1.LiText, 12, 2, "F "); -///BlockEnd Block 7,2 -} -///Operation Operation 6,4 -if ((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Ortsteil)].AsInt() == 0)) -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -StringType.MidStmtStr(ref Modul1.LiText, 20, 2, "F "); -///BlockEnd Block 7,2 -} -///Operation Operation 6,5 -if ((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Kreis)].AsInt() == 0)) -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -StringType.MidStmtStr(ref Modul1.LiText, 28, 2, "F "); -///BlockEnd Block 7,2 -} -///Operation Operation 6,6 -if ((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Land)].AsInt() == 0)) -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -StringType.MidStmtStr(ref Modul1.LiText, 34, 2, "F "); -///BlockEnd Block 7,2 -} -///Operation Operation 6,7 -if ((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Staat)].AsInt() == 0)) -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -StringType.MidStmtStr(ref Modul1.LiText, 39, 2, "F "); -///BlockEnd Block 7,2 -} -///Operation Operation 6,8 -if (Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Loc)].AsString()) == "") -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -StringType.MidStmtStr(ref Modul1.LiText, 44, 2, "F "); -///BlockEnd Block 7,2 -} -///Operation Operation 6,9 -if (Strings.Len(Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.L)].AsString())) <= 1) -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -StringType.MidStmtStr(ref Modul1.LiText, 52, 2, "F "); -///BlockEnd Block 7,2 -} -///Operation Operation 6,10 -if (Strings.Len(Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.B)].AsString())) <= 1) -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -StringType.MidStmtStr(ref Modul1.LiText, 58, 2, "F "); -///BlockEnd Block 7,2 -} -///Operation Operation 6,11 -if (Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.PLZ)].AsString()) == "") -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -StringType.MidStmtStr(ref Modul1.LiText, 63, 2, "F "); -///BlockEnd Block 7,2 -} -///Operation Operation 6,12 -if (Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Terr)].AsString()) == "") -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -StringType.MidStmtStr(ref Modul1.LiText, 68, 2, "F "); -///BlockEnd Block 7,2 -} -///Operation Operation 6,13 -if (Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Staatk)].AsString()) == "") -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -StringType.MidStmtStr(ref Modul1.LiText, 71, 2, "F "); -///BlockEnd Block 7,2 -} -///Operation Operation 6,14 -List2.Items.Add(Modul1.LiText); -///Operation Operation 6,15 -Modul1.LiText = new string(' ', 80); -///Operation Operation 6,16 -DataModul.DB_PlaceTable.MoveNext(); -///Goto Goto 6,17 Dest:OK -goto IL_441a; -///BlockEnd Block 6,18 -} -///Goto Goto 5,339 Dest:OK -goto IL_4454; -///Label Label 5,340 3 -IL_4454: -///Operation Operation 5,341 -num = 777; -///Operation Operation 5,342 -if (DataModul.DB_PlaceTable.EOF) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -List2.Items.Add("Ende der Liste"); -///BlockEnd Block 6,2 -} -///Goto Goto 5,343 Dest:OK -goto IL_448a; -///Label Label 5,344 9 -IL_448a: -///Operation Operation 5,345 -num = 781; -///Operation Operation 5,346 -lErl = 4; -///Operation Operation 5,347 -if (!RadioButton2.Checked) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,2 -} -///Operation Operation 5,348 -List1.Items.Add("Ende der Liste"); -///Operation Operation 5,349 -Modul1.I = 1; -///Goto Goto 5,350 Dest:OK -goto IL_44d6; -///Label Label 5,351 3 -IL_44d6: -///Operation Operation 5,352 -num = 785; -///Operation Operation 5,353 -List1.Items.Add(""); -///Operation Operation 5,354 -Modul1.I++; -///Operation Operation 5,355 -i17 = Modul1.I; -///Operation Operation 5,356 -num5 = 17; -///Operation Operation 5,357 -if (i17 > num5) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,2 -} -///Goto Goto 5,358 Dest:OK -goto IL_44d6; -///Label Label 5,359 2 -IL_45b9: -///Operation Operation 5,360 -num4 = unchecked(num2 + 1); -///Goto Goto 5,361 Dest:OK -goto IL_45bd; -///Label Label 5,362 2 -IL_45bd: -///Operation Operation 5,363 -num2 = 0; -///Operation Operation 5,364 -switch (num4) -///BlockStart Block 6,0 -{ -///Label Label 6,1 -case 1: -///Operation Operation 6,2 -break; -///Label Label 6,3 -case 6: -///Label Label 6,4 -case 11: -///Label Label 6,5 -case 14: -///Label Label 6,6 -case 15: -///Goto Goto 6,7 Dest:OK -goto IL_00a6; -///Label Label 6,8 -case 88: -///Goto Goto 6,9 Dest:OK -goto IL_0667; -///Label Label 6,10 -case 91: -///Label Label 6,11 -case 94: -///Label Label 6,12 -case 108: -///Label Label 6,13 -case 109: -///Label Label 6,14 -case 122: -///Label Label 6,15 -case 123: -///Label Label 6,16 -case 136: -///Label Label 6,17 -case 137: -///Label Label 6,18 -case 138: -///Goto Goto 6,19 Dest:OK -goto IL_0ac2; -///Label Label 6,20 -case 72: -///Label Label 6,21 -case 154: -///Goto Goto 6,22 Dest:OK -goto IL_0c81; -///Label Label 6,23 -case 237: -///Goto Goto 6,24 Dest:OK -goto IL_1313; -///Label Label 6,25 -case 240: -///Label Label 6,26 -case 243: -///Label Label 6,27 -case 251: -///Label Label 6,28 -case 252: -///Label Label 6,29 -case 259: -///Label Label 6,30 -case 260: -///Label Label 6,31 -case 267: -///Label Label 6,32 -case 268: -///Label Label 6,33 -case 275: -///Label Label 6,34 -case 276: -///Label Label 6,35 -case 283: -///Label Label 6,36 -case 284: -///Label Label 6,37 -case 291: -///Label Label 6,38 -case 292: -///Label Label 6,39 -case 293: -///Goto Goto 6,40 Dest:OK -goto IL_17ec; -///Label Label 6,41 -case 200: -///Label Label 6,42 -case 231: -///Label Label 6,43 -case 306: -///Goto Goto 6,44 Dest:OK -goto IL_197c; -///Label Label 6,45 -case 415: -///Goto Goto 6,46 Dest:OK -goto IL_2240; -///Label Label 6,47 -case 378: -///Label Label 6,48 -case 409: -///Label Label 6,49 -case 421: -///Label Label 6,50 -case 424: -///Goto Goto 6,51 Dest:OK -goto IL_2317; -///Label Label 6,52 -case 373: -///Label Label 6,53 -case 418: -///Label Label 6,54 -case 427: -///Label Label 6,55 -case 432: -///Label Label 6,56 -case 433: -///Goto Goto 6,57 Dest:OK -goto IL_241f; -///Label Label 6,58 -case 497: -///Goto Goto 6,59 Dest:OK -goto IL_2956; -///Label Label 6,60 -case 500: -///Label Label 6,61 -case 503: -///Label Label 6,62 -case 517: -///Label Label 6,63 -case 518: -///Label Label 6,64 -case 531: -///Label Label 6,65 -case 532: -///Label Label 6,66 -case 545: -///Label Label 6,67 -case 546: -///Label Label 6,68 -case 547: -///Goto Goto 6,69 Dest:OK -goto IL_2d63; -///Label Label 6,70 -case 550: -///Operation Operation 6,71 -num = 550; -///Operation Operation 6,72 -Modul1.PersInArbsp = Modul1.PersInArb; -///Goto Goto 6,73 Dest:OK -goto case 551; -///Label Label 6,74 1 -case 551: -///Operation Operation 6,75 -num = 551; -///Operation Operation 6,76 -Modul1.Kenn = 1f; -///Goto Goto 6,77 Dest:OK -goto case 552; -///Label Label 6,78 1 -case 552: -///Operation Operation 6,79 -num = 552; -///Operation Operation 6,80 -if ((DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.Sex)].AsString() == "F")) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 553; -///BlockEnd Block 7,2 -} -///Goto Goto 6,81 Dest:OK -goto case 554; -///Label Label 6,82 1 -case 553: -///Operation Operation 6,83 -num = 553; -///Operation Operation 6,84 -Modul1.Kenn = 2f; -///Goto Goto 6,85 Dest:OK -goto case 554; -///Label Label 6,86 2 -case 554: -///Label Label 6,87 -case 555: -///Operation Operation 6,88 -num = 555; -///Operation Operation 6,89 -DataModul.DB_LinkTable.Index = nameof(DataModul.LinkIndex.ElSu); -///Goto Goto 6,90 Dest:OK -goto case 556; -///Label Label 6,91 1 -case 556: -///Operation Operation 6,92 -num = 556; -///Operation Operation 6,93 -DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), Modul1.Kenn); -///Goto Goto 6,94 Dest:OK -goto case 557; -///Label Label 6,95 1 -case 557: -///Operation Operation 6,96 -num = 557; -///Operation Operation 6,97 -if (!DataModul.DB_LinkTable.NoMatch) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 559; -///BlockEnd Block 7,2 -} -///Goto Goto 6,98 Dest:OK -goto IL_3320; -///Label Label 6,99 1 -case 559: -///Operation Operation 6,100 -num = 559; -///Goto Goto 6,101 Dest:OK -goto case 560; -///Label Label 6,102 1 -case 560: -///Operation Operation 6,103 -num = 560; -///Operation Operation 6,104 -Modul1.FamInArb = DataModul.DB_LinkTable.Fields[nameof(DataModul.LinkFields.FamNr)].Value.AsInt(); -///Goto Goto 6,105 Dest:OK -goto case 561; -///Label Label 6,106 1 -case 561: -///Operation Operation 6,107 -num = 561; -///Operation Operation 6,108 -MainProject.Forms.Familie.Famles(Modul1.FamInArb); -///Goto Goto 6,109 Dest:OK -goto case 562; -///Label Label 6,110 1 -case 562: -///Operation Operation 6,111 -num = 562; -///Operation Operation 6,112 -if (Modul1.Kenn == 1f) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 563; -///BlockEnd Block 7,2 -} -///Goto Goto 6,113 Dest:OK -goto case 565; -///Label Label 6,114 1 -case 563: -///Operation Operation 6,115 -num = 563; -///Operation Operation 6,116 -Modul1.PersInArb = Modul1.Family.Frau; -///Goto Goto 6,117 Dest:OK -goto case 564; -///Label Label 6,118 1 -case 565: -///Operation Operation 6,119 -num = 565; -///Operation Operation 6,120 -if (Modul1.Kenn == 2f) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 566; -///BlockEnd Block 7,2 -} -///Goto Goto 6,121 Dest:OK -goto case 564; -///Label Label 6,122 1 -case 566: -///Operation Operation 6,123 -num = 566; -///Operation Operation 6,124 -Modul1.PersInArb = Modul1.Family.Mann; -///Goto Goto 6,125 Dest:OK -goto case 564; -///Label Label 6,126 3 -case 564: -///Label Label 6,127 -case 567: -///Label Label 6,128 -case 568: -///Operation Operation 6,129 -num = 568; -///Operation Operation 6,130 -DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.ArtNr); -///Goto Goto 6,131 Dest:OK -goto case 569; -///Label Label 6,132 1 -case 569: -///Operation Operation 6,133 -num = 569; -///Operation Operation 6,134 -Modul1.I = 101; -///Goto Goto 6,135 Dest:OK -goto case 570; -///Label Label 6,136 2 -case 570: -///Operation Operation 6,137 -num = 570; -///Operation Operation 6,138 -Modul1.Ubg = Modul1.I; -///Goto Goto 6,139 Dest:OK -goto case 571; -///Label Label 6,140 1 -case 571: -///Operation Operation 6,141 -num = 571; -///Operation Operation 6,142 -DataModul.DB_EventTable.Seek("=", Modul1.Ubg.AsString(), Modul1.PersInArb.AsString(), "0"); -///Goto Goto 6,143 Dest:OK -goto case 572; -///Label Label 6,144 1 -case 572: -///Operation Operation 6,145 -num = 572; -///Operation Operation 6,146 -if (!DataModul.DB_EventTable.NoMatch) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 574; -///BlockEnd Block 7,2 -} -///Goto Goto 6,147 Dest:OK -goto case 573; -///Label Label 6,148 1 -case 574: -///Label Label 6,149 -case 575: -///Operation Operation 6,150 -num = 575; -///Operation Operation 6,151 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 576; -///BlockEnd Block 7,2 -} -///Goto Goto 6,152 Dest:OK -goto case 573; -///Label Label 6,153 1 -case 576: -///Operation Operation 6,154 -num = 576; -///Operation Operation 6,155 -if (Conversions.ToDouble(Strings.Trim(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsString())) > 0.0) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 577; -///BlockEnd Block 7,2 -} -///Goto Goto 6,156 Dest:OK -goto case 573; -///Label Label 6,157 1 -case 577: -///Operation Operation 6,158 -num = 577; -///Operation Operation 6,159 -transdat = DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].Value.AsInt(); -///Goto Goto 6,160 Dest:OK -goto case 578; -///Label Label 6,161 1 -case 578: -///Operation Operation 6,162 -num = 578; -///Operation Operation 6,163 -neuedat(); -///Goto Goto 6,164 Dest:OK -goto IL_3395; -///Label Label 6,165 3 -case 573: -///Label Label 6,166 -case 580: -///Label Label 6,167 -case 581: -///Label Label 6,168 -case 582: -///Operation Operation 6,169 -num = 582; -///Operation Operation 6,170 -lErl = 6; -///Goto Goto 6,171 Dest:OK -goto case 583; -///Label Label 6,172 1 -case 583: -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -num = 583; -///Operation Operation 7,2 -Modul1.I++; -///Operation Operation 7,3 -int i = Modul1.I; -///Operation Operation 7,4 -num5 = 102; -///Operation Operation 7,5 -if (i <= num5) -///BlockStart Block 8,0 -{ -///Goto Goto 8,1 Dest:OK -goto case 570; -///BlockEnd Block 8,2 -} -///Goto Goto 7,6 Dest:OK -goto case 584; -///BlockEnd Block 7,7 -} -///Label Label 6,173 1 -case 584: -///Operation Operation 6,174 -num = 584; -///Operation Operation 6,175 -num6 = 30000000; -///Goto Goto 6,176 Dest:OK -goto case 585; -///Label Label 6,177 1 -case 585: -///Operation Operation 6,178 -num = 585; -///Operation Operation 6,179 -this.A = 1; -///Goto Goto 6,180 Dest:OK -goto case 586; -///Label Label 6,181 2 -case 586: -///Operation Operation 6,182 -num = 586; -///Operation Operation 6,183 -if (Modul1.Family.Kind[this.A] > 0) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 587; -///BlockEnd Block 7,2 -} -///Goto Goto 6,184 Dest:OK -goto case 598; -///Label Label 6,185 1 -case 587: -///Operation Operation 6,186 -num = 587; -///Operation Operation 6,187 -Modul1.I = 101; -///Goto Goto 6,188 Dest:OK -goto case 588; -///Label Label 6,189 2 -case 588: -///Operation Operation 6,190 -num = 588; -///Operation Operation 6,191 -DataModul.DB_EventTable.Seek("=", Modul1.I.AsString(), Modul1.Family.Kind[this.A].AsString(), "0"); -///Goto Goto 6,192 Dest:OK -goto case 589; -///Label Label 6,193 1 -case 589: -///Operation Operation 6,194 -num = 589; -///Operation Operation 6,195 -if (!DataModul.DB_EventTable.NoMatch) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 590; -///BlockEnd Block 7,2 -} -///Goto Goto 6,196 Dest:OK -goto case 593; -///Label Label 6,197 1 -case 590: -///Operation Operation 6,198 -num = 590; -///Operation Operation 6,199 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].Value) > 0.0) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 591; -///BlockEnd Block 7,2 -} -///Goto Goto 6,200 Dest:OK -goto case 593; -///Label Label 6,201 1 -case 591: -///Operation Operation 6,202 -num = 591; -///Operation Operation 6,203 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].Value) < num6) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 592; -///BlockEnd Block 7,2 -} -///Goto Goto 6,204 Dest:OK -goto case 593; -///Label Label 6,205 1 -case 592: -///Operation Operation 6,206 -num = 592; -///Operation Operation 6,207 -num6 = (int)Math.Round(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].Value)); -///Goto Goto 6,208 Dest:OK -goto case 593; -///Label Label 6,209 4 -case 593: -///Label Label 6,210 -case 594: -///Label Label 6,211 -case 595: -///Label Label 6,212 -case 596: -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -num = 596; -///Operation Operation 7,2 -Modul1.I++; -///Operation Operation 7,3 -int i2 = Modul1.I; -///Operation Operation 7,4 -num5 = 102; -///Operation Operation 7,5 -if (i2 <= num5) -///BlockStart Block 8,0 -{ -///Goto Goto 8,1 Dest:OK -goto case 588; -///BlockEnd Block 8,2 -} -///Goto Goto 7,6 Dest:OK -goto case 597; -///BlockEnd Block 7,7 -} -///Label Label 6,213 1 -case 598: -///Operation Operation 6,214 -num = 598; -///Goto Goto 6,215 Dest:OK -goto case 599; -///Label Label 6,216 1 -case 597: -///Label Label 6,217 -case 600: -///Label Label 6,218 -case 601: -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -num = 601; -///Operation Operation 7,2 -this.A++; -///Operation Operation 7,3 -int a = this.A; -///Operation Operation 7,4 -num5 = 99; -///Operation Operation 7,5 -if (a <= num5) -///BlockStart Block 8,0 -{ -///Goto Goto 8,1 Dest:OK -goto case 586; -///BlockEnd Block 8,2 -} -///Goto Goto 7,6 Dest:OK -goto case 599; -///BlockEnd Block 7,7 -} -///Label Label 6,219 2 -case 599: -///Label Label 6,220 -case 602: -///Operation Operation 6,221 -num = 602; -///Operation Operation 6,222 -if (num6 < 30000000) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 603; -///BlockEnd Block 7,2 -} -///Goto Goto 6,223 Dest:OK -goto IL_32fc; -///Label Label 6,224 1 -case 603: -///Operation Operation 6,225 -num = 603; -///Operation Operation 6,226 -transdat = Conversions.ToInteger(Conversion.Str(Conversions.ToDouble((num6).AsString().Left( 4)) - 25.0) + "0000"); -///Goto Goto 6,227 Dest:OK -goto case 604; -///Label Label 6,228 1 -case 604: -///Operation Operation 6,229 -num = 604; -///Operation Operation 6,230 -neuedat(); -///Goto Goto 6,231 Dest:OK -goto IL_32fc; -///Label Label 6,232 -case 549: -///Label Label 6,233 -case 605: -///Label Label 6,234 -case 606: -///Goto Goto 6,235 Dest:OK -goto IL_32fc; -///Label Label 6,236 -case 558: -///Label Label 6,237 -case 608: -///Label Label 6,238 -case 609: -///Goto Goto 6,239 Dest:OK -goto IL_3320; -///Label Label 6,240 -case 473: -///Label Label 6,241 -case 485: -///Label Label 6,242 -case 488: -///Label Label 6,243 -case 491: -///Label Label 6,244 -case 494: -///Label Label 6,245 -case 510: -///Label Label 6,246 -case 513: -///Label Label 6,247 -case 524: -///Label Label 6,248 -case 527: -///Label Label 6,249 -case 538: -///Label Label 6,250 -case 541: -///Label Label 6,251 -case 579: -///Label Label 6,252 -case 613: -///Goto Goto 6,253 Dest:OK -goto IL_3395; -///Label Label 6,254 -case 732: -///Label Label 6,255 -case 733: -///Label Label 6,256 -case 772: -///Goto Goto 6,257 Dest:OK -goto IL_441a; -///Label Label 6,258 -case 773: -///Label Label 6,259 -case 776: -///Label Label 6,260 -case 777: -///Goto Goto 6,261 Dest:OK -goto IL_4454; -///Label Label 6,262 -case 32: -///Label Label 6,263 -case 68: -///Label Label 6,264 -case 157: -///Label Label 6,265 -case 195: -///Label Label 6,266 -case 311: -///Label Label 6,267 -case 312: -///Label Label 6,268 -case 320: -///Label Label 6,269 -case 334: -///Label Label 6,270 -case 437: -///Label Label 6,271 -case 469: -///Label Label 6,272 -case 616: -///Label Label 6,273 -case 647: -///Label Label 6,274 -case 714: -///Label Label 6,275 -case 779: -///Label Label 6,276 -case 780: -///Label Label 6,277 -case 781: -///Goto Goto 6,278 Dest:OK -goto IL_448a; -///Label Label 6,279 -case 785: -///Goto Goto 6,280 Dest:OK -goto IL_44d6; -///Label Label 6,281 -case 46: -///Label Label 6,282 -case 52: -///Label Label 6,283 -case 56: -///Label Label 6,284 -case 178: -///Label Label 6,285 -case 184: -///Label Label 6,286 -case 319: -///Label Label 6,287 -case 355: -///Label Label 6,288 -case 361: -///Label Label 6,289 -case 436: -///Label Label 6,290 -case 448: -///Label Label 6,291 -case 454: -///Label Label 6,292 -case 458: -///Label Label 6,293 -case 623: -///Label Label 6,294 -case 629: -///Label Label 6,295 -case 633: -///Label Label 6,296 -case 720: -///Label Label 6,297 -case 787: -///Label Label 6,298 -case 788: -///Label Label 6,299 -case 798: -///Goto Goto 6,300 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,301 -} -///Goto Goto 5,365 Dest:OK -goto default; -///BlockEnd Block 5,366 -} -///BlockEnd Block 4,28 -} -///BlockEnd Block 3,4 -} -///Operation Operation 2,2 -catch (Exception obj) when (num3 != 0 && num2 == 0) -///BlockStart Block 3,0 -{ -///Operation Operation 3,1 -ProjectData.SetProjectError(obj, lErl); -///Operation Operation 3,2 -try0001_dispatch = 21059; -///Operation Operation 3,3 -continue; -///BlockEnd Block 3,4 -} -///Operation Operation 2,3 -throw ProjectData.CreateProjectError(-2146828237); -///Label Label 2,4 19 -end_IL_0001_2: -///Operation Operation 2,5 -break; -///BlockEnd Block 2,6 -} -///Operation Operation 1,21 -if (num2 != 0) -///BlockStart Block 2,0 -{ -///Operation Operation 2,1 -ProjectData.ClearProjectError(); -///BlockEnd Block 2,2 -} -///BlockEnd Block 1,22 -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test09/Test9ExpParseSL.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test09/Test9ExpParseSL.txt deleted file mode 100644 index 819ef0c76..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test09/Test9ExpParseSL.txt +++ /dev/null @@ -1,9152 +0,0 @@ -///Declaration MainBlock 0,0 -private void Command1_Click(object eventSender, EventArgs eventArgs) -///BlockStart Block 1,0 -{ -///Comment LComment 1,1 -//Discarded unreachable code: IL_451b -///Operation Operation 1,2 -int try0001_dispatch = -1; -///Operation Operation 1,3 -int num = default; -///Operation Operation 1,4 -short index = default; -///Operation Operation 1,5 -int num2 = default; -///Operation Operation 1,6 -int num3 = default; -///Operation Operation 1,7 -int lErl = default; -///Operation Operation 1,8 -int num6 = default; -///Operation Operation 1,9 -int num7 = default; -///Operation Operation 1,10 -int num8 = default; -///Operation Operation 1,11 -int num9 = default; -///Operation Operation 1,12 -string sDest = default; -///Operation Operation 1,13 -int num10 = default; -///Operation Operation 1,14 -string sDest2 = default; -///Operation Operation 1,15 -short num12 = default; -///Operation Operation 1,16 -int num14 = default; -///Operation Operation 1,17 -short num15 = default; -///Operation Operation 1,18 -int num17 = default; -///Operation Operation 1,19 -int num19 = default; -///Operation Operation 1,20 -while (true) -///BlockStart Block 2,0 -{ -///Operation Operation 2,1 -try -///BlockStart Block 3,0 -{ -///Comment Comment 3,1 -/*Note: ILSpy has introduced the following switch to emulate a goto from catch-block to try-block*/ -///Operation Operation 3,2 -; -///Operation Operation 3,3 -checked -///BlockStart Block 4,0 -{ -///Operation Operation 4,1 -int num4; -///Operation Operation 4,2 -int i3; -///Operation Operation 4,3 -int i4; -///Operation Operation 4,4 -int i5; -///Operation Operation 4,5 -int i6; -///Operation Operation 4,6 -int i7; -///Operation Operation 4,7 -short t; -///Operation Operation 4,8 -short num13; -///Operation Operation 4,9 -int i8; -///Operation Operation 4,10 -int i9; -///Operation Operation 4,11 -int i10; -///Operation Operation 4,12 -short num16; -///Operation Operation 4,13 -ListBox L; -///Operation Operation 4,14 -short A; -///Operation Operation 4,15 -int i11; -///Operation Operation 4,16 -int i12; -///Operation Operation 4,17 -int i13; -///Operation Operation 4,18 -short num18; -///Operation Operation 4,19 -int i14; -///Operation Operation 4,20 -int i15; -///Operation Operation 4,21 -int i16; -///Operation Operation 4,22 -int i17; -///Operation Operation 4,23 -int num5; -///Operation Operation 4,24 -short t2; -///Operation Operation 4,25 -short num20; -///Operation Operation 4,26 -short num11; -///Operation Operation 4,27 -switch (try0001_dispatch) -///BlockStart Block 5,0 -{ -///Label Label 5,1 1 -default: -///Operation Operation 5,2 -num = 1; -///Operation Operation 5,3 -index = Command1.GetIndex((Button)eventSender); -///Goto Goto 5,4 Dest:OK -goto IL_0016; -///Label Label 5,5 -case 21059: -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -num2 = num; -///Operation Operation 6,2 -switch ((num3 <= -2) ? 1 : num3) -///BlockStart Block 7,0 -{ -///Label Label 7,1 -case 2: -///Operation Operation 7,2 -break; -///Label Label 7,3 -case 1: -///Goto Goto 7,4 Dest:OK -goto IL_45b9; -///Label Label 7,5 -default: -///Goto Goto 7,6 Dest:OK -goto end_IL_0001; -///BlockEnd Block 7,7 -} -///Goto Goto 6,3 Dest:OK -goto IL_451d; -///BlockEnd Block 6,4 -} -///Label Label 5,6 2 -end_IL_0001: -///Operation Operation 5,7 -break; -///Label Label 5,8 2 -IL_0016: -///Operation Operation 5,9 -num = 2; -///Operation Operation 5,10 -RadioButton1.Visible = true; -///Goto Goto 5,11 Dest:OK -goto IL_0026; -///Label Label 5,12 2 -IL_0026: -///Operation Operation 5,13 -num = 3; -///Operation Operation 5,14 -RadioButton2.Visible = true; -///Goto Goto 5,15 Dest:OK -goto IL_0036; -///Label Label 5,16 2 -IL_0036: -///Operation Operation 5,17 -ProjectData.ClearProjectError(); -///Operation Operation 5,18 -num3 = 2; -///Goto Goto 5,19 Dest:OK -goto IL_003e; -///Label Label 5,20 2 -IL_003e: -///Operation Operation 5,21 -num = 5; -///Operation Operation 5,22 -switch (index) -///BlockStart Block 6,0 -{ -///Label Label 6,1 -case 0: -///Label Label 6,2 -case 1: -///Label Label 6,3 -case 4: -///Label Label 6,4 -case 5: -///Label Label 6,5 -case 6: -///Operation Operation 6,6 -break; -///Label Label 6,7 -case 7: -///Goto Goto 6,8 Dest:OK -goto IL_0094; -///Label Label 6,9 -default: -///Goto Goto 6,10 Dest:OK -goto IL_00a6; -///BlockEnd Block 6,11 -} -///BlockStart Block 6,12 -{ -///Goto Goto 6,13 Dest:OK -goto IL_006f; -///BlockEnd Block 6,14 -} -///Label Label 5,23 2 -IL_006f: -///Operation Operation 5,24 -num = 9; -///Operation Operation 5,25 -List2.Visible = false; -///Goto Goto 5,26 Dest:OK -goto IL_0080; -///Label Label 5,27 2 -IL_0080: -///Operation Operation 5,28 -num = 10; -///Operation Operation 5,29 -List1.Visible = true; -///Goto Goto 5,30 Dest:OK -goto IL_00a6; -///Label Label 5,31 2 -IL_0094: -///Operation Operation 5,32 -num = 13; -///Operation Operation 5,33 -List1.Visible = false; -///Goto Goto 5,34 Dest:OK -goto IL_00a6; -///Label Label 5,35 4 -IL_00a6: -///Operation Operation 5,36 -num = 15; -///Operation Operation 5,37 -Label4.Text = ""; -///Goto Goto 5,38 Dest:OK -goto IL_00bb; -///Label Label 5,39 2 -IL_00bb: -///Operation Operation 5,40 -num = 16; -///Operation Operation 5,41 -if (Modul1.Aus[12] == "") -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_00db; -///BlockEnd Block 6,2 -} -///Operation Operation 5,42 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_00ed; -///BlockEnd Block 6,2 -} -///Label Label 5,43 2 -IL_00db: -///Operation Operation 5,44 -num = 17; -///Operation Operation 5,45 -Modul1.Aus[12] = "200"; -///Goto Goto 5,46 Dest:OK -goto IL_00ed; -///Label Label 5,47 3 -IL_00ed: -///Operation Operation 5,48 -num = 19; -///Operation Operation 5,49 -if (Modul1.Aus[13] == "") -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_010d; -///BlockEnd Block 6,2 -} -///Operation Operation 5,50 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_011f; -///BlockEnd Block 6,2 -} -///Label Label 5,51 2 -IL_010d: -///Operation Operation 5,52 -num = 20; -///Operation Operation 5,53 -Modul1.Aus[13] = "200"; -///Goto Goto 5,54 Dest:OK -goto IL_011f; -///Label Label 5,55 3 -IL_011f: -///Operation Operation 5,56 -num = 22; -///Operation Operation 5,57 -List1.Visible = true; -///Goto Goto 5,58 Dest:OK -goto IL_0130; -///Label Label 5,59 2 -IL_0130: -///Operation Operation 5,60 -num = 23; -///Operation Operation 5,61 -List2.Visible = false; -///Goto Goto 5,62 Dest:OK -goto IL_0141; -///Label Label 5,63 2 -IL_0141: -///Operation Operation 5,64 -num = 24; -///Operation Operation 5,65 -Label2.Text = ""; -///Goto Goto 5,66 Dest:OK -goto IL_0156; -///Label Label 5,67 2 -IL_0156: -///Operation Operation 5,68 -num = 25; -///Operation Operation 5,69 -if (RadioButton1.Checked) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_016b; -///BlockEnd Block 6,2 -} -///Operation Operation 5,70 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_017c; -///BlockEnd Block 6,2 -} -///Label Label 5,71 2 -IL_016b: -///Operation Operation 5,72 -num = 26; -///Operation Operation 5,73 -List1.Sorted = true; -///Goto Goto 5,74 Dest:OK -goto IL_017c; -///Label Label 5,75 3 -IL_017c: -///Operation Operation 5,76 -num = 28; -///Operation Operation 5,77 -if (RadioButton2.Checked) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0191; -///BlockEnd Block 6,2 -} -///Operation Operation 5,78 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_01a2; -///BlockEnd Block 6,2 -} -///Label Label 5,79 2 -IL_0191: -///Operation Operation 5,80 -num = 29; -///Operation Operation 5,81 -List1.Sorted = false; -///Goto Goto 5,82 Dest:OK -goto IL_01a2; -///Label Label 5,83 3 -IL_01a2: -///Operation Operation 5,84 -num = 31; -///Operation Operation 5,85 -switch (index) -///BlockStart Block 6,0 -{ -///Label Label 6,1 -case 0: -///Operation Operation 6,2 -break; -///Label Label 6,3 -case 1: -///Goto Goto 6,4 Dest:OK -goto IL_0cef; -///Label Label 6,5 -case 2: -///Goto Goto 6,6 Dest:OK -goto IL_1a3c; -///Label Label 6,7 -case 3: -///Goto Goto 6,8 Dest:OK -goto IL_1aae; -///Label Label 6,9 -case 4: -///Goto Goto 6,10 Dest:OK -goto IL_1c00; -///Label Label 6,11 -case 5: -///Goto Goto 6,12 Dest:OK -goto IL_2496; -///Label Label 6,13 -case 6: -///Goto Goto 6,14 Dest:OK -goto IL_3406; -///Label Label 6,15 -case 7: -///Goto Goto 6,16 Dest:OK -goto IL_3e4e; -///Label Label 6,17 -default: -///Goto Goto 6,18 Dest:OK -goto IL_448a; -///BlockEnd Block 6,19 -} -///BlockStart Block 6,20 -{ -///Goto Goto 6,21 Dest:OK -goto IL_01d7; -///BlockEnd Block 6,22 -} -///Label Label 5,86 2 -IL_01d7: -///Operation Operation 5,87 -num = 35; -///Operation Operation 5,88 -List1.Items.Clear(); -///Goto Goto 5,89 Dest:OK -goto IL_01ec; -///Label Label 5,90 2 -IL_01ec: -///Operation Operation 5,91 -num = 36; -///Operation Operation 5,92 -Label1[2].Text = "Fehlliste Personen"; -///Goto Goto 5,93 Dest:OK -goto IL_0207; -///Label Label 5,94 2 -IL_0207: -///Operation Operation 5,95 -num = 37; -///Operation Operation 5,96 -Label1[1].Text = Modul1.IText[166]; -///Goto Goto 5,97 Dest:OK -goto IL_0228; -///Label Label 5,98 2 -IL_0228: -///Operation Operation 5,99 -num = 38; -///Operation Operation 5,100 -Label1[0].Text = Modul1.IText[167]; -///Goto Goto 5,101 Dest:OK -goto IL_0249; -///Label Label 5,102 2 -IL_0249: -///Operation Operation 5,103 -num = 39; -///Operation Operation 5,104 -Label1[1].Text = Label1[1].Text + " Quelle"; -///Goto Goto 5,105 Dest:OK -goto IL_027a; -///Label Label 5,106 2 -IL_027a: -///Operation Operation 5,107 -num = 40; -///Operation Operation 5,108 -Label1[0].Text = Label1[0].Text + " T V"; -///Goto Goto 5,109 Dest:OK -goto IL_02ab; -///Label Label 5,110 2 -IL_02ab: -///Operation Operation 5,111 -num = 41; -///Operation Operation 5,112 -I1 = 0; -///Goto Goto 5,113 Dest:OK -goto IL_02b6; -///Label Label 5,114 3 -IL_02b6: -///Operation Operation 5,115 -num = 42; -///Operation Operation 5,116 -Label1[(short)I1].Refresh(); -///Goto Goto 5,117 Dest:OK -goto IL_02d2; -///Label Label 5,118 2 -IL_02d2: -///Operation Operation 5,119 -num = 43; -///Operation Operation 5,120 -I1++; -///Operation Operation 5,121 -i14 = I1; -///Operation Operation 5,122 -num5 = 2; -///Operation Operation 5,123 -if (i14 <= num5) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_02b6; -///BlockEnd Block 6,2 -} -///Operation Operation 5,124 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_02f2; -///BlockEnd Block 6,2 -} -///Label Label 5,125 2 -IL_02f2: -///Operation Operation 5,126 -num = 44; -///Operation Operation 5,127 -num7 = 1; -///Goto Goto 5,128 Dest:OK -goto IL_02f9; -///Label Label 5,129 2 -IL_02f9: -///Operation Operation 5,130 -num = 45; -///Operation Operation 5,131 -if (num7 <= 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,2 -} -///Goto Goto 5,132 Dest:OK -goto IL_0311; -///Label Label 5,133 2 -IL_0311: -///Operation Operation 5,134 -num = 48; -///Operation Operation 5,135 -DataModul.DB_PersonTable.Index = nameof(DataModul.PersonIndex.PerNr); -///Goto Goto 5,136 Dest:OK -goto IL_0325; -///Label Label 5,137 2 -IL_0325: -///Operation Operation 5,138 -num = 49; -///Operation Operation 5,139 -DataModul.DB_PersonTable.MoveLast(); -///Goto Goto 5,140 Dest:OK -goto IL_0335; -///Label Label 5,141 2 -IL_0335: -///Operation Operation 5,142 -num = 50; -///Operation Operation 5,143 -num8 = DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value.AsInt(); -///Goto Goto 5,144 Dest:OK -goto IL_0359; -///Label Label 5,145 2 -IL_0359: -///Operation Operation 5,146 -num = 51; -///Operation Operation 5,147 -if (num7 == 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,2 -} -///Goto Goto 5,148 Dest:OK -goto IL_036e; -///Label Label 5,149 2 -IL_036e: -///Operation Operation 5,150 -num = 54; -///Operation Operation 5,151 -if ((num7 > DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_039e; -///BlockEnd Block 6,2 -} -///Operation Operation 5,152 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_03dd; -///BlockEnd Block 6,2 -} -///Label Label 5,153 2 -IL_039e: -///Operation Operation 5,154 -num = 55; -///Operation Operation 5,155 -Interaction.MsgBox("Die höchste Personennummer ist " + DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value.AsString()); -///Goto Goto 5,156 Dest:OK -goto end_IL_0001_2; -///Label Label 5,157 2 -IL_03dd: -///Operation Operation 5,158 -num = 58; -///Operation Operation 5,159 -ProgressBar1.Minimum = 0; -///Goto Goto 5,160 Dest:OK -goto IL_03ee; -///Label Label 5,161 2 -IL_03ee: -///Operation Operation 5,162 -num = 59; -///Operation Operation 5,163 -ProgressBar1.Maximum = 0; -///Goto Goto 5,164 Dest:OK -goto IL_03ff; -///Label Label 5,165 2 -IL_03ff: -///Operation Operation 5,166 -num = 60; -///Operation Operation 5,167 -ProgressBar1.Step = 1; -///Goto Goto 5,168 Dest:OK -goto IL_0410; -///Label Label 5,169 2 -IL_0410: -///Operation Operation 5,170 -num = 61; -///Operation Operation 5,171 -ProgressBar1.Maximum = DataModul.DB_PersonTable.RecordCount - 1; -///Goto Goto 5,172 Dest:OK -goto IL_042c; -///Label Label 5,173 2 -IL_042c: -///Operation Operation 5,174 -num = 62; -///Operation Operation 5,175 -List1.Items.Clear(); -///Goto Goto 5,176 Dest:OK -goto IL_0441; -///Label Label 5,177 2 -IL_0441: -///Operation Operation 5,178 -num = 63; -///Operation Operation 5,179 -i15 = num7; -///Operation Operation 5,180 -num19 = num8; -///Operation Operation 5,181 -I1 = i15; -///Goto Goto 5,182 Dest:OK -goto IL_0ca1; -///Label Label 5,183 2 -IL_0456: -///Operation Operation 5,184 -num = 64; -///Operation Operation 5,185 -ProgressBar1.PerformStep(); -///Goto Goto 5,186 Dest:OK -goto IL_0466; -///Label Label 5,187 2 -IL_0466: -///Operation Operation 5,188 -num = 65; -///Operation Operation 5,189 -Application.DoEvents(); -///Goto Goto 5,190 Dest:OK -goto IL_0470; -///Label Label 5,191 2 -IL_0470: -///Operation Operation 5,192 -num = 66; -///Operation Operation 5,193 -Modul1.PersInArb = I1; -///Goto Goto 5,194 Dest:OK -goto IL_047f; -///Label Label 5,195 2 -IL_047f: -///Operation Operation 5,196 -num = 67; -///Operation Operation 5,197 -if (Modul1.PersInArb <= num8) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0497; -///BlockEnd Block 6,2 -} -///Operation Operation 5,198 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_448a; -///BlockEnd Block 6,2 -} -///Label Label 5,199 2 -IL_0497: -///Operation Operation 5,200 -num = 70; -///Operation Operation 5,201 -DataModul.DB_PersonTable.Seek("=", Modul1.PersInArb.AsString()); -///Goto Goto 5,202 Dest:OK -goto IL_04f6; -///Label Label 5,203 2 -IL_04f6: -///Operation Operation 5,204 -num = 71; -///Operation Operation 5,205 -if (!DataModul.DB_PersonTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_050f; -///BlockEnd Block 6,2 -} -///Operation Operation 5,206 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0c81; -///BlockEnd Block 6,2 -} -///Label Label 5,207 2 -IL_050f: -///Operation Operation 5,208 -num = 74; -///Operation Operation 5,209 -Modul1.Personlesen(Modul1.PersInArb); -///Goto Goto 5,210 Dest:OK -goto IL_0519; -///Label Label 5,211 2 -IL_0519: -///Operation Operation 5,212 -num = 75; -///Operation Operation 5,213 -Modul1.LiText = Strings.Left((Modul1.Kont[0]).Trim() + "," + (Modul1.Kont[3]).Trim() + " ", 20); -///Goto Goto 5,214 Dest:OK -goto IL_0550; -///Label Label 5,215 2 -IL_0550: -///Operation Operation 5,216 -num = 76; -///Operation Operation 5,217 -Modul1.Schalt = 20; -///Goto Goto 5,218 Dest:OK -goto IL_055b; -///Label Label 5,219 2 -IL_055b: -///Operation Operation 5,220 -num = 77; -///Operation Operation 5,221 -T = 1; -///Goto Goto 5,222 Dest:OK -goto IL_0566; -///Label Label 5,223 3 -IL_0566: -///Operation Operation 5,224 -num = 78; -///Operation Operation 5,225 -Modul1.Kont[T + 10] = " "; -///Goto Goto 5,226 Dest:OK -goto IL_057f; -///Label Label 5,227 2 -IL_057f: -///Operation Operation 5,228 -num = 79; -///Operation Operation 5,229 -Modul1.Kont[T + 20] = " "; -///Goto Goto 5,230 Dest:OK -goto IL_0598; -///Label Label 5,231 2 -IL_0598: -///Operation Operation 5,232 -num = 80; -///Operation Operation 5,233 -T = (short)unchecked(T + 1); -///Operation Operation 5,234 -t2 = T; -///Operation Operation 5,235 -num11 = 10; -///Operation Operation 5,236 -if (t2 <= num11) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0566; -///BlockEnd Block 6,2 -} -///Operation Operation 5,237 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_05ba; -///BlockEnd Block 6,2 -} -///Label Label 5,238 2 -IL_05ba: -///Operation Operation 5,239 -num = 81; -///Operation Operation 5,240 -Modul1.Datles(); -///Goto Goto 5,241 Dest:OK -goto IL_05c4; -///Label Label 5,242 2 -IL_05c4: -///Operation Operation 5,243 -num = 82; -///Operation Operation 5,244 -sDest2 = " "; -///Goto Goto 5,245 Dest:OK -goto IL_05cf; -///Label Label 5,246 2 -IL_05cf: -///Operation Operation 5,247 -num = 83; -///Operation Operation 5,248 -StringType.MidStmtStr(ref sDest2, 2, 2, Modul1.Kont[11] + Modul1.Kont[21]); -///Goto Goto 5,249 Dest:OK -goto IL_05f2; -///Label Label 5,250 2 -IL_05f2: -///Operation Operation 5,251 -num = 84; -///Operation Operation 5,252 -StringType.MidStmtStr(ref sDest2, 8, 2, Modul1.Kont[12] + Modul1.Kont[22]); -///Goto Goto 5,253 Dest:OK -goto IL_0615; -///Label Label 5,254 2 -IL_0615: -///Operation Operation 5,255 -num = 85; -///Operation Operation 5,256 -StringType.MidStmtStr(ref sDest2, 17, 2, Modul1.Kont[13] + Modul1.Kont[23]); -///Goto Goto 5,257 Dest:OK -goto IL_0639; -///Label Label 5,258 2 -IL_0639: -///Operation Operation 5,259 -num = 86; -///Operation Operation 5,260 -StringType.MidStmtStr(ref sDest2, 27, 2, Modul1.Kont[14] + Modul1.Kont[24]); -///Goto Goto 5,261 Dest:OK -goto IL_065d; -///Label Label 5,262 2 -IL_065d: -///Operation Operation 5,263 -num = 87; -///Operation Operation 5,264 -num12 = 300; -///Goto Goto 5,265 Dest:OK -goto IL_0667; -///Label Label 5,266 3 -IL_0667: -///Operation Operation 5,267 -num = 88; -///Operation Operation 5,268 -DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.BeSu); -///Goto Goto 5,269 Dest:OK -goto IL_067b; -///Label Label 5,270 2 -IL_067b: -///Operation Operation 5,271 -num = 89; -///Operation Operation 5,272 -DataModul.DB_EventTable.Seek("=", num12, Modul1.PersInArb.AsString()); -///Goto Goto 5,273 Dest:OK -goto IL_06db; -///Label Label 5,274 2 -IL_06db: -///Operation Operation 5,275 -num = 90; -///Operation Operation 5,276 -if (!DataModul.DB_EventTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_06f4; -///BlockEnd Block 6,2 -} -///Operation Operation 5,277 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0ac2; -///BlockEnd Block 6,2 -} -///Label Label 5,278 2 -IL_06f4: -///Operation Operation 5,279 -num = 93; -///Operation Operation 5,280 -switch (num12) -///BlockStart Block 6,0 -{ -///Label Label 6,1 -case 300: -///Operation Operation 6,2 -break; -///Label Label 6,3 -case 301: -///Goto Goto 6,4 Dest:OK -goto IL_084e; -///Label Label 6,5 -case 302: -///Goto Goto 6,6 Dest:OK -goto IL_0981; -///Label Label 6,7 -default: -///Goto Goto 6,8 Dest:OK -goto IL_0ac2; -///BlockEnd Block 6,9 -} -///BlockStart Block 6,10 -{ -///Goto Goto 6,11 Dest:OK -goto IL_071b; -///BlockEnd Block 6,12 -} -///Label Label 5,281 2 -IL_071b: -///Operation Operation 5,282 -num = 97; -///Operation Operation 5,283 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_074a; -///BlockEnd Block 6,2 -} -///Operation Operation 5,284 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0764; -///BlockEnd Block 6,2 -} -///Label Label 5,285 2 -IL_074a: -///Operation Operation 5,286 -num = 98; -///Operation Operation 5,287 -StringType.MidStmtStr(ref sDest2, 34, 1, Modul1.IText[175]); -///Goto Goto 5,288 Dest:OK -goto IL_0764; -///Label Label 5,289 3 -IL_0764: -///Operation Operation 5,290 -num = 100; -///Operation Operation 5,291 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0793; -///BlockEnd Block 6,2 -} -///Operation Operation 5,292 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_07ad; -///BlockEnd Block 6,2 -} -///Label Label 5,293 2 -IL_0793: -///Operation Operation 5,294 -num = 101; -///Operation Operation 5,295 -StringType.MidStmtStr(ref sDest2, 36, 1, Modul1.IText[175]); -///Goto Goto 5,296 Dest:OK -goto IL_07ad; -///Label Label 5,297 3 -IL_07ad: -///Operation Operation 5,298 -num = 103; -///Operation Operation 5,299 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_07dc; -///BlockEnd Block 6,2 -} -///Operation Operation 5,300 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_07f6; -///BlockEnd Block 6,2 -} -///Label Label 5,301 2 -IL_07dc: -///Operation Operation 5,302 -num = 104; -///Operation Operation 5,303 -StringType.MidStmtStr(ref sDest2, 37, 1, Modul1.IText[175]); -///Goto Goto 5,304 Dest:OK -goto IL_07f6; -///Label Label 5,305 3 -IL_07f6: -///Operation Operation 5,306 -num = 106; -///Operation Operation 5,307 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_082e; -///BlockEnd Block 6,2 -} -///Operation Operation 5,308 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0ac2; -///BlockEnd Block 6,2 -} -///Label Label 5,309 2 -IL_082e: -///Operation Operation 5,310 -num = 107; -///Operation Operation 5,311 -StringType.MidStmtStr(ref sDest2, 38, 1, Modul1.IText[175]); -///Goto Goto 5,312 Dest:OK -goto IL_0ac2; -///Label Label 5,313 2 -IL_084e: -///Operation Operation 5,314 -num = 111; -///Operation Operation 5,315 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_087d; -///BlockEnd Block 6,2 -} -///Operation Operation 5,316 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0897; -///BlockEnd Block 6,2 -} -///Label Label 5,317 2 -IL_087d: -///Operation Operation 5,318 -num = 112; -///Operation Operation 5,319 -StringType.MidStmtStr(ref sDest2, 42, 1, Modul1.IText[175]); -///Goto Goto 5,320 Dest:OK -goto IL_0897; -///Label Label 5,321 3 -IL_0897: -///Operation Operation 5,322 -num = 114; -///Operation Operation 5,323 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_08c6; -///BlockEnd Block 6,2 -} -///Operation Operation 5,324 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_08e0; -///BlockEnd Block 6,2 -} -///Label Label 5,325 2 -IL_08c6: -///Operation Operation 5,326 -num = 115; -///Operation Operation 5,327 -StringType.MidStmtStr(ref sDest2, 44, 1, Modul1.IText[175]); -///Goto Goto 5,328 Dest:OK -goto IL_08e0; -///Label Label 5,329 3 -IL_08e0: -///Operation Operation 5,330 -num = 117; -///Operation Operation 5,331 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_090f; -///BlockEnd Block 6,2 -} -///Operation Operation 5,332 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0929; -///BlockEnd Block 6,2 -} -///Label Label 5,333 2 -IL_090f: -///Operation Operation 5,334 -num = 118; -///Operation Operation 5,335 -StringType.MidStmtStr(ref sDest2, 45, 1, Modul1.IText[175]); -///Goto Goto 5,336 Dest:OK -goto IL_0929; -///Label Label 5,337 3 -IL_0929: -///Operation Operation 5,338 -num = 120; -///Operation Operation 5,339 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0961; -///BlockEnd Block 6,2 -} -///Operation Operation 5,340 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0ac2; -///BlockEnd Block 6,2 -} -///Label Label 5,341 2 -IL_0961: -///Operation Operation 5,342 -num = 121; -///Operation Operation 5,343 -StringType.MidStmtStr(ref sDest2, 46, 1, Modul1.IText[175]); -///Goto Goto 5,344 Dest:OK -goto IL_0ac2; -///Label Label 5,345 2 -IL_0981: -///Operation Operation 5,346 -num = 125; -///Operation Operation 5,347 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_09b0; -///BlockEnd Block 6,2 -} -///Operation Operation 5,348 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_09ca; -///BlockEnd Block 6,2 -} -///Label Label 5,349 2 -IL_09b0: -///Operation Operation 5,350 -num = 126; -///Operation Operation 5,351 -StringType.MidStmtStr(ref sDest2, 50, 1, Modul1.IText[175]); -///Goto Goto 5,352 Dest:OK -goto IL_09ca; -///Label Label 5,353 3 -IL_09ca: -///Operation Operation 5,354 -num = 128; -///Operation Operation 5,355 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_09fc; -///BlockEnd Block 6,2 -} -///Operation Operation 5,356 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0a19; -///BlockEnd Block 6,2 -} -///Label Label 5,357 2 -IL_09fc: -///Operation Operation 5,358 -num = 129; -///Operation Operation 5,359 -StringType.MidStmtStr(ref sDest2, 51, 1, Modul1.IText[175]); -///Goto Goto 5,360 Dest:OK -goto IL_0a19; -///Label Label 5,361 3 -IL_0a19: -///Operation Operation 5,362 -num = 131; -///Operation Operation 5,363 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0a4b; -///BlockEnd Block 6,2 -} -///Operation Operation 5,364 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0a68; -///BlockEnd Block 6,2 -} -///Label Label 5,365 2 -IL_0a4b: -///Operation Operation 5,366 -num = 132; -///Operation Operation 5,367 -StringType.MidStmtStr(ref sDest2, 52, 1, Modul1.IText[175]); -///Goto Goto 5,368 Dest:OK -goto IL_0a68; -///Label Label 5,369 3 -IL_0a68: -///Operation Operation 5,370 -num = 134; -///Operation Operation 5,371 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0aa3; -///BlockEnd Block 6,2 -} -///Operation Operation 5,372 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0ac2; -///BlockEnd Block 6,2 -} -///Label Label 5,373 2 -IL_0aa3: -///Operation Operation 5,374 -num = 135; -///Operation Operation 5,375 -StringType.MidStmtStr(ref sDest2, 53, 1, Modul1.IText[175]); -///Goto Goto 5,376 Dest:OK -goto IL_0ac2; -///Label Label 5,377 9 -IL_0ac2: -///Operation Operation 5,378 -num = 138; -///Operation Operation 5,379 -lErl = 2; -///Goto Goto 5,380 Dest:OK -goto IL_0acc; -///Label Label 5,381 2 -IL_0acc: -///Operation Operation 5,382 -num = 139; -///Operation Operation 5,383 -num12 = (short)unchecked(num12 + 1); -///Operation Operation 5,384 -num20 = num12; -///Operation Operation 5,385 -num11 = 302; -///Operation Operation 5,386 -if (num20 <= num11) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0667; -///BlockEnd Block 6,2 -} -///Operation Operation 5,387 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0ae8; -///BlockEnd Block 6,2 -} -///Label Label 5,388 2 -IL_0ae8: -///Operation Operation 5,389 -num = 140; -///Operation Operation 5,390 -Modul1.LiText += sDest2; -///Goto Goto 5,391 Dest:OK -goto IL_0b00; -///Label Label 5,392 2 -IL_0b00: -///Operation Operation 5,393 -num = 141; -///Operation Operation 5,394 -Modul1.PerSatzLes(); -///Goto Goto 5,395 Dest:OK -goto IL_0b0d; -///Label Label 5,396 2 -IL_0b0d: -///Operation Operation 5,397 -num = 142; -///Operation Operation 5,398 -if (null != DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.Bem3)].Value) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0b40; -///BlockEnd Block 6,2 -} -///Operation Operation 5,399 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0b8b; -///BlockEnd Block 6,2 -} -///Label Label 5,400 2 -IL_0b40: -///Operation Operation 5,401 -num = 143; -///Operation Operation 5,402 -if (Operators.ConditionalCompareObjectNotEqual(DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.Bem3)].Value, "", TextCompare: false)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0b71; -///BlockEnd Block 6,2 -} -///Operation Operation 5,403 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0b8b; -///BlockEnd Block 6,2 -} -///Label Label 5,404 2 -IL_0b71: -///Operation Operation 5,405 -num = 144; -///Operation Operation 5,406 -StringType.MidStmtStr(ref Modul1.LiText, 77, 1, "J"); -///Goto Goto 5,407 Dest:OK -goto IL_0b8b; -///Label Label 5,408 4 -IL_0b8b: -///Operation Operation 5,409 -num = 147; -///Operation Operation 5,410 -DataModul.TTable.Index = "Tab"; -///Goto Goto 5,411 Dest:OK -goto IL_0ba2; -///Label Label 5,412 2 -IL_0ba2: -///Operation Operation 5,413 -num = 148; -///Operation Operation 5,414 -DataModul.TTable.Seek("=", 1, Modul1.PersInArb); -///Goto Goto 5,415 Dest:OK -goto IL_0c00; -///Label Label 5,416 2 -IL_0c00: -///Operation Operation 5,417 -num = 149; -///Operation Operation 5,418 -if (!DataModul.TTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0c1a; -///BlockEnd Block 6,2 -} -///Operation Operation 5,419 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0c34; -///BlockEnd Block 6,2 -} -///Label Label 5,420 2 -IL_0c1a: -///Operation Operation 5,421 -num = 150; -///Operation Operation 5,422 -StringType.MidStmtStr(ref Modul1.LiText, 79, 1, "J"); -///Goto Goto 5,423 Dest:OK -goto IL_0c34; -///Label Label 5,424 3 -IL_0c34: -///Operation Operation 5,425 -num = 152; -///Operation Operation 5,426 -List1.Items.Add(new ListItem(Modul1.LiText + " " + Modul1.PersInArb.AsString())); -///Goto Goto 5,427 Dest:OK -goto IL_0c6f; -///Label Label 5,428 2 -IL_0c6f: -///Operation Operation 5,429 -num = 153; -///Operation Operation 5,430 -Modul1.LiText = ""; -///Goto Goto 5,431 Dest:OK -goto IL_0c81; -///Label Label 5,432 3 -IL_0c81: -///Operation Operation 5,433 -num = 154; -///Operation Operation 5,434 -lErl = 5; -///Goto Goto 5,435 Dest:OK -goto IL_0c8b; -///Label Label 5,436 2 -IL_0c8b: -///Operation Operation 5,437 -num = 155; -///Operation Operation 5,438 -I1++; -///Goto Goto 5,439 Dest:OK -goto IL_0ca1; -///Label Label 5,440 2 -IL_0ca1: -///Operation Operation 5,441 -i16 = I1; -///Operation Operation 5,442 -num5 = num19; -///Operation Operation 5,443 -if (i16 <= num5) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0456; -///BlockEnd Block 6,2 -} -///Operation Operation 5,444 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0cb2; -///BlockEnd Block 6,2 -} -///Label Label 5,445 2 -IL_0cb2: -///Operation Operation 5,446 -num = 156; -///Operation Operation 5,447 -Label4.Text = List1.Items.Count.AsString() + " Einträge"; -///Goto Goto 5,448 Dest:OK -goto IL_448a; -///Label Label 5,449 2 -IL_0cef: -///Operation Operation 5,450 -num = 159; -///Operation Operation 5,451 -DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.ArtNr); -///Goto Goto 5,452 Dest:OK -goto IL_0d06; -///Label Label 5,453 2 -IL_0d06: -///Operation Operation 5,454 -num = 160; -///Operation Operation 5,455 -List1.Items.Clear(); -///Goto Goto 5,456 Dest:OK -goto IL_0d1e; -///Label Label 5,457 2 -IL_0d1e: -///Operation Operation 5,458 -num = 161; -///Operation Operation 5,459 -Label1[2].Text = "Fehlliste Familien"; -///Goto Goto 5,460 Dest:OK -goto IL_0d3c; -///Label Label 5,461 2 -IL_0d3c: -///Operation Operation 5,462 -num = 162; -///Operation Operation 5,463 -Label1[1].Text = "Mann Frau Kinder Pro Verl. Hei k.H. Schd. eheä. auß Fikt."; -///Goto Goto 5,464 Dest:OK -goto IL_0d5a; -///Label Label 5,465 2 -IL_0d5a: -///Operation Operation 5,466 -num = 163; -///Operation Operation 5,467 -Label1[0].Text = " DO DO DO DO DO DO DO"; -///Goto Goto 5,468 Dest:OK -goto IL_0d78; -///Label Label 5,469 2 -IL_0d78: -///Operation Operation 5,470 -num = 164; -///Operation Operation 5,471 -if (RadioButton2.Checked) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0d90; -///BlockEnd Block 6,2 -} -///Operation Operation 5,472 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0dad; -///BlockEnd Block 6,2 -} -///Label Label 5,473 2 -IL_0d90: -///Operation Operation 5,474 -num = 165; -///Operation Operation 5,475 -List1.Items.Add("Fehlliste Familien"); -///Goto Goto 5,476 Dest:OK -goto IL_0dad; -///Label Label 5,477 3 -IL_0dad: -///Operation Operation 5,478 -num = 167; -///Operation Operation 5,479 -if (RadioButton2.Checked) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0dc5; -///BlockEnd Block 6,2 -} -///Operation Operation 5,480 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0de2; -///BlockEnd Block 6,2 -} -///Label Label 5,481 2 -IL_0dc5: -///Operation Operation 5,482 -num = 168; -///Operation Operation 5,483 -List1.Items.Add("Mann Frau Kinder Pro Verl. Hei k.H. Schd. eheä. auß Fikt."); -///Goto Goto 5,484 Dest:OK -goto IL_0de2; -///Label Label 5,485 3 -IL_0de2: -///Operation Operation 5,486 -num = 170; -///Operation Operation 5,487 -if (RadioButton2.Checked) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0dfa; -///BlockEnd Block 6,2 -} -///Operation Operation 5,488 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0e17; -///BlockEnd Block 6,2 -} -///Label Label 5,489 2 -IL_0dfa: -///Operation Operation 5,490 -num = 171; -///Operation Operation 5,491 -List1.Items.Add(" DO DO DO DO DO DO DO"); -///Goto Goto 5,492 Dest:OK -goto IL_0e17; -///Label Label 5,493 3 -IL_0e17: -///Operation Operation 5,494 -num = 173; -///Operation Operation 5,495 -Modul1.I = 0; -///Goto Goto 5,496 Dest:OK -goto IL_0e24; -///Label Label 5,497 3 -IL_0e24: -///Operation Operation 5,498 -num = 174; -///Operation Operation 5,499 -Label1[(short)Modul1.I].Refresh(); -///Goto Goto 5,500 Dest:OK -goto IL_0e42; -///Label Label 5,501 2 -IL_0e42: -///Operation Operation 5,502 -num = 175; -///Operation Operation 5,503 -Modul1.I++; -///Operation Operation 5,504 -i11 = Modul1.I; -///Operation Operation 5,505 -num5 = 2; -///Operation Operation 5,506 -if (i11 <= num5) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0e24; -///BlockEnd Block 6,2 -} -///Operation Operation 5,507 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0e62; -///BlockEnd Block 6,2 -} -///Label Label 5,508 2 -IL_0e62: -///Operation Operation 5,509 -num = 176; -///Operation Operation 5,510 -num7 = 1; -///Goto Goto 5,511 Dest:OK -goto IL_0e6c; -///Label Label 5,512 2 -IL_0e6c: -///Operation Operation 5,513 -num = 177; -///Operation Operation 5,514 -if (num7 <= 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,2 -} -///Goto Goto 5,515 Dest:OK -goto IL_0e87; -///Label Label 5,516 2 -IL_0e87: -///Operation Operation 5,517 -num = 180; -///Operation Operation 5,518 -DataModul.DB_FamilyTable.MoveLast(); -///Goto Goto 5,519 Dest:OK -goto IL_0e9a; -///Label Label 5,520 2 -IL_0e9a: -///Operation Operation 5,521 -num = 181; -///Operation Operation 5,522 -num8 = DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value.AsInt(); -///Goto Goto 5,523 Dest:OK -goto IL_0ec1; -///Label Label 5,524 2 -IL_0ec1: -///Operation Operation 5,525 -num = 182; -///Operation Operation 5,526 -if ((num7 > DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0ef4; -///BlockEnd Block 6,2 -} -///Operation Operation 5,527 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0f36; -///BlockEnd Block 6,2 -} -///Label Label 5,528 2 -IL_0ef4: -///Operation Operation 5,529 -num = 183; -///Operation Operation 5,530 -Interaction.MsgBox("Die höchste Familiennummer ist " + DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value.AsString()); -///Goto Goto 5,531 Dest:OK -goto end_IL_0001_2; -///Label Label 5,532 2 -IL_0f36: -///Operation Operation 5,533 -num = 186; -///Operation Operation 5,534 -ProgressBar1.Minimum = 0; -///Goto Goto 5,535 Dest:OK -goto IL_0f4a; -///Label Label 5,536 2 -IL_0f4a: -///Operation Operation 5,537 -num = 187; -///Operation Operation 5,538 -ProgressBar1.Maximum = DataModul.DB_FamilyTable.RecordCount - 1; -///Goto Goto 5,539 Dest:OK -goto IL_0f69; -///Label Label 5,540 2 -IL_0f69: -///Operation Operation 5,541 -num = 188; -///Operation Operation 5,542 -ProgressBar1.Step = 1; -///Goto Goto 5,543 Dest:OK -goto IL_0f7d; -///Label Label 5,544 2 -IL_0f7d: -///Operation Operation 5,545 -num = 189; -///Operation Operation 5,546 -i12 = num7; -///Operation Operation 5,547 -num17 = num8; -///Operation Operation 5,548 -I1 = i12; -///Goto Goto 5,549 Dest:OK -goto IL_199d; -///Label Label 5,550 2 -IL_0f95: -///Operation Operation 5,551 -num = 190; -///Operation Operation 5,552 -ProgressBar1.PerformStep(); -///Goto Goto 5,553 Dest:OK -goto IL_0fa8; -///Label Label 5,554 2 -IL_0fa8: -///Operation Operation 5,555 -num = 191; -///Operation Operation 5,556 -Application.DoEvents(); -///Goto Goto 5,557 Dest:OK -goto IL_0fb5; -///Label Label 5,558 2 -IL_0fb5: -///Operation Operation 5,559 -num = 192; -///Operation Operation 5,560 -sDest2 = " "; -///Goto Goto 5,561 Dest:OK -goto IL_0fc3; -///Label Label 5,562 2 -IL_0fc3: -///Operation Operation 5,563 -num = 193; -///Operation Operation 5,564 -Modul1.FamInArb = I1; -///Goto Goto 5,565 Dest:OK -goto IL_0fd5; -///Label Label 5,566 2 -IL_0fd5: -///Operation Operation 5,567 -num = 194; -///Operation Operation 5,568 -if (Modul1.FamInArb <= num8) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0ff0; -///BlockEnd Block 6,2 -} -///Operation Operation 5,569 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_448a; -///BlockEnd Block 6,2 -} -///Label Label 5,570 2 -IL_0ff0: -///Operation Operation 5,571 -num = 197; -///Operation Operation 5,572 -DataModul.DB_FamilyTable.Index = nameof(DataModul.FamilyIndex.Fam); -///Goto Goto 5,573 Dest:OK -goto IL_1007; -///Label Label 5,574 2 -IL_1007: -///Operation Operation 5,575 -num = 198; -///Operation Operation 5,576 -DataModul.DB_FamilyTable.Seek("=", Modul1.FamInArb.AsString()); -///Goto Goto 5,577 Dest:OK -goto IL_1069; -///Label Label 5,578 2 -IL_1069: -///Operation Operation 5,579 -num = 199; -///Operation Operation 5,580 -if (!DataModul.DB_FamilyTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1085; -///BlockEnd Block 6,2 -} -///Operation Operation 5,581 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_197c; -///BlockEnd Block 6,2 -} -///Label Label 5,582 2 -IL_1085: -///Operation Operation 5,583 -num = 202; -///Operation Operation 5,584 -MainProject.Forms.Familie.Famles(Modul1.FamInArb); -///Goto Goto 5,585 Dest:OK -goto IL_1092; -///Label Label 5,586 2 -IL_1092: -///Operation Operation 5,587 -num = 203; -///Operation Operation 5,588 -if (Modul1.Family.Mann > 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_10aa; -///BlockEnd Block 6,2 -} -///Operation Operation 5,589 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1140; -///BlockEnd Block 6,2 -} -///Label Label 5,590 2 -IL_10aa: -///Operation Operation 5,591 -num = 204; -///Operation Operation 5,592 -Modul1.PersInArb = Modul1.Family.Mann; -///Goto Goto 5,593 Dest:OK -goto IL_10bb; -///Label Label 5,594 2 -IL_10bb: -///Operation Operation 5,595 -num = 205; -///Operation Operation 5,596 -Modul1.Personlesen(Modul1.PersInArb); -///Goto Goto 5,597 Dest:OK -goto IL_10c8; -///Label Label 5,598 2 -IL_10c8: -///Operation Operation 5,599 -num = 206; -///Operation Operation 5,600 -if (Modul1.Kont[0] != "") -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_10ed; -///BlockEnd Block 6,2 -} -///Operation Operation 5,601 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1108; -///BlockEnd Block 6,2 -} -///Label Label 5,602 2 -IL_10ed: -///Operation Operation 5,603 -num = 207; -///Operation Operation 5,604 -StringType.MidStmtStr(ref sDest2, 1, 15, Modul1.Kont[0]); -///Goto Goto 5,605 Dest:OK -goto IL_1128; -///Label Label 5,606 2 -IL_1108: -///Operation Operation 5,607 -num = 209; -///Goto Goto 5,608 Dest:OK -goto IL_1110; -///Label Label 5,609 2 -IL_1110: -///Operation Operation 5,610 -num = 210; -///Operation Operation 5,611 -StringType.MidStmtStr(ref sDest2, 1, 15, ">NN<"); -///Goto Goto 5,612 Dest:OK -goto IL_1128; -///Label Label 5,613 3 -IL_1128: -///Operation Operation 5,614 -num = 212; -///Operation Operation 5,615 -StringType.MidStmtStr(ref sDest2, 16, 2, "/ "); -///Goto Goto 5,616 Dest:OK -goto IL_1140; -///Label Label 5,617 3 -IL_1140: -///Operation Operation 5,618 -num = 214; -///Operation Operation 5,619 -if (Modul1.Family.Frau > 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1158; -///BlockEnd Block 6,2 -} -///Operation Operation 5,620 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_11d9; -///BlockEnd Block 6,2 -} -///Label Label 5,621 2 -IL_1158: -///Operation Operation 5,622 -num = 215; -///Operation Operation 5,623 -Modul1.PersInArb = Modul1.Family.Frau; -///Goto Goto 5,624 Dest:OK -goto IL_1169; -///Label Label 5,625 2 -IL_1169: -///Operation Operation 5,626 -num = 216; -///Operation Operation 5,627 -Modul1.Personlesen(Modul1.PersInArb); -///Goto Goto 5,628 Dest:OK -goto IL_1176; -///Label Label 5,629 2 -IL_1176: -///Operation Operation 5,630 -num = 217; -///Operation Operation 5,631 -if (Modul1.Kont[0] != "") -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_119b; -///BlockEnd Block 6,2 -} -///Operation Operation 5,632 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_11b7; -///BlockEnd Block 6,2 -} -///Label Label 5,633 2 -IL_119b: -///Operation Operation 5,634 -num = 218; -///Operation Operation 5,635 -StringType.MidStmtStr(ref sDest2, 17, 15, Modul1.Kont[0]); -///Goto Goto 5,636 Dest:OK -goto IL_11d9; -///Label Label 5,637 2 -IL_11b7: -///Operation Operation 5,638 -num = 220; -///Goto Goto 5,639 Dest:OK -goto IL_11bf; -///Label Label 5,640 2 -IL_11bf: -///Operation Operation 5,641 -num = 221; -///Operation Operation 5,642 -StringType.MidStmtStr(ref sDest2, 17, 15, ">NN<"); -///Goto Goto 5,643 Dest:OK -goto IL_11d9; -///Label Label 5,644 4 -IL_11d9: -///Operation Operation 5,645 -num = 224; -///Operation Operation 5,646 -if (Modul1.Family.Kind[1] != 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_11f3; -///BlockEnd Block 6,2 -} -///Operation Operation 5,647 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1210; -///BlockEnd Block 6,2 -} -///Label Label 5,648 2 -IL_11f3: -///Operation Operation 5,649 -num = 225; -///Operation Operation 5,650 -StringType.MidStmtStr(ref sDest2, 32, 1, Modul1.IText[175]); -///Goto Goto 5,651 Dest:OK -goto IL_1210; -///Label Label 5,652 3 -IL_1210: -///Operation Operation 5,653 -num = 227; -///Operation Operation 5,654 -DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.ArtNr); -///Goto Goto 5,655 Dest:OK -goto IL_1227; -///Label Label 5,656 2 -IL_1227: -///Operation Operation 5,657 -num = 228; -///Operation Operation 5,658 -DataModul.DB_FamilyTable.Index = nameof(DataModul.FamilyIndex.Fam); -///Goto Goto 5,659 Dest:OK -goto IL_123e; -///Label Label 5,660 2 -IL_123e: -///Operation Operation 5,661 -num = 229; -///Operation Operation 5,662 -DataModul.DB_FamilyTable.Seek("=", Modul1.FamInArb); -///Goto Goto 5,663 Dest:OK -goto IL_129b; -///Label Label 5,664 2 -IL_129b: -///Operation Operation 5,665 -num = 230; -///Operation Operation 5,666 -if (!DataModul.DB_FamilyTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_12b7; -///BlockEnd Block 6,2 -} -///Operation Operation 5,667 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_197c; -///BlockEnd Block 6,2 -} -///Label Label 5,668 2 -IL_12b7: -///Operation Operation 5,669 -num = 233; -///Operation Operation 5,670 -if ((DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.Aeb)].Value == -1)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_12e9; -///BlockEnd Block 6,2 -} -///Operation Operation 5,671 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1306; -///BlockEnd Block 6,2 -} -///Label Label 5,672 2 -IL_12e9: -///Operation Operation 5,673 -num = 234; -///Operation Operation 5,674 -StringType.MidStmtStr(ref sDest2, 70, 1, Modul1.IText[175]); -///Goto Goto 5,675 Dest:OK -goto IL_1306; -///Label Label 5,676 3 -IL_1306: -///Operation Operation 5,677 -num = 236; -///Operation Operation 5,678 -num15 = 500; -///Goto Goto 5,679 Dest:OK -goto IL_1313; -///Label Label 5,680 3 -IL_1313: -///Operation Operation 5,681 -num = 237; -///Operation Operation 5,682 -Modul1.Ubg = num15; -///Goto Goto 5,683 Dest:OK -goto IL_1320; -///Label Label 5,684 2 -IL_1320: -///Operation Operation 5,685 -num = 238; -///Operation Operation 5,686 -DataModul.DB_EventTable.Seek("=", Modul1.Ubg.AsString(), Modul1.FamInArb.AsString(), "0"); -///Goto Goto 5,687 Dest:OK -goto IL_138c; -///Label Label 5,688 2 -IL_138c: -///Operation Operation 5,689 -num = 239; -///Operation Operation 5,690 -if (!DataModul.DB_EventTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_13a8; -///BlockEnd Block 6,2 -} -///Operation Operation 5,691 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_17ec; -///BlockEnd Block 6,2 -} -///Label Label 5,692 2 -IL_13a8: -///Operation Operation 5,693 -num = 242; -///Operation Operation 5,694 -switch (Modul1.Ubg) -///BlockStart Block 6,0 -{ -///Label Label 6,1 -case 500: -///Operation Operation 6,2 -break; -///Label Label 6,3 -case 501: -///Goto Goto 6,4 Dest:OK -goto IL_148f; -///Label Label 6,5 -case 502: -///Goto Goto 6,6 Dest:OK -goto IL_153c; -///Label Label 6,7 -case 503: -///Goto Goto 6,8 Dest:OK -goto IL_15e9; -///Label Label 6,9 -case 504: -///Goto Goto 6,10 Dest:OK -goto IL_1696; -///Label Label 6,11 -case 505: -///Goto Goto 6,12 Dest:OK -goto IL_1743; -///Label Label 6,13 -default: -///Goto Goto 6,14 Dest:OK -goto IL_17ec; -///BlockEnd Block 6,15 -} -///BlockStart Block 6,16 -{ -///Goto Goto 6,17 Dest:OK -goto IL_13e2; -///BlockEnd Block 6,18 -} -///Label Label 5,695 2 -IL_13e2: -///Operation Operation 5,696 -num = 246; -///Operation Operation 5,697 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1414; -///BlockEnd Block 6,2 -} -///Operation Operation 5,698 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1431; -///BlockEnd Block 6,2 -} -///Label Label 5,699 2 -IL_1414: -///Operation Operation 5,700 -num = 247; -///Operation Operation 5,701 -StringType.MidStmtStr(ref sDest2, 37, 1, Modul1.IText[175]); -///Goto Goto 5,702 Dest:OK -goto IL_1431; -///Label Label 5,703 3 -IL_1431: -///Operation Operation 5,704 -num = 249; -///Operation Operation 5,705 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_146c; -///BlockEnd Block 6,2 -} -///Operation Operation 5,706 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_17ec; -///BlockEnd Block 6,2 -} -///Label Label 5,707 2 -IL_146c: -///Operation Operation 5,708 -num = 250; -///Operation Operation 5,709 -StringType.MidStmtStr(ref sDest2, 38, 1, Modul1.IText[175]); -///Goto Goto 5,710 Dest:OK -goto IL_17ec; -///Label Label 5,711 2 -IL_148f: -///Operation Operation 5,712 -num = 254; -///Operation Operation 5,713 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_14c1; -///BlockEnd Block 6,2 -} -///Operation Operation 5,714 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_14de; -///BlockEnd Block 6,2 -} -///Label Label 5,715 2 -IL_14c1: -///Operation Operation 5,716 -num = 255; -///Operation Operation 5,717 -StringType.MidStmtStr(ref sDest2, 42, 1, Modul1.IText[175]); -///Goto Goto 5,718 Dest:OK -goto IL_14de; -///Label Label 5,719 3 -IL_14de: -///Operation Operation 5,720 -num = 257; -///Operation Operation 5,721 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1519; -///BlockEnd Block 6,2 -} -///Operation Operation 5,722 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_17ec; -///BlockEnd Block 6,2 -} -///Label Label 5,723 2 -IL_1519: -///Operation Operation 5,724 -num = 258; -///Operation Operation 5,725 -StringType.MidStmtStr(ref sDest2, 43, 1, Modul1.IText[175]); -///Goto Goto 5,726 Dest:OK -goto IL_17ec; -///Label Label 5,727 2 -IL_153c: -///Operation Operation 5,728 -num = 262; -///Operation Operation 5,729 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_156e; -///BlockEnd Block 6,2 -} -///Operation Operation 5,730 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_158b; -///BlockEnd Block 6,2 -} -///Label Label 5,731 2 -IL_156e: -///Operation Operation 5,732 -num = 263; -///Operation Operation 5,733 -StringType.MidStmtStr(ref sDest2, 48, 1, Modul1.IText[175]); -///Goto Goto 5,734 Dest:OK -goto IL_158b; -///Label Label 5,735 3 -IL_158b: -///Operation Operation 5,736 -num = 265; -///Operation Operation 5,737 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_15c6; -///BlockEnd Block 6,2 -} -///Operation Operation 5,738 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_17ec; -///BlockEnd Block 6,2 -} -///Label Label 5,739 2 -IL_15c6: -///Operation Operation 5,740 -num = 266; -///Operation Operation 5,741 -StringType.MidStmtStr(ref sDest2, 49, 1, Modul1.IText[175]); -///Goto Goto 5,742 Dest:OK -goto IL_17ec; -///Label Label 5,743 2 -IL_15e9: -///Operation Operation 5,744 -num = 270; -///Operation Operation 5,745 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_161b; -///BlockEnd Block 6,2 -} -///Operation Operation 5,746 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1638; -///BlockEnd Block 6,2 -} -///Label Label 5,747 2 -IL_161b: -///Operation Operation 5,748 -num = 271; -///Operation Operation 5,749 -StringType.MidStmtStr(ref sDest2, 54, 1, Modul1.IText[175]); -///Goto Goto 5,750 Dest:OK -goto IL_1638; -///Label Label 5,751 3 -IL_1638: -///Operation Operation 5,752 -num = 273; -///Operation Operation 5,753 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1673; -///BlockEnd Block 6,2 -} -///Operation Operation 5,754 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_17ec; -///BlockEnd Block 6,2 -} -///Label Label 5,755 2 -IL_1673: -///Operation Operation 5,756 -num = 274; -///Operation Operation 5,757 -StringType.MidStmtStr(ref sDest2, 55, 1, Modul1.IText[175]); -///Goto Goto 5,758 Dest:OK -goto IL_17ec; -///Label Label 5,759 2 -IL_1696: -///Operation Operation 5,760 -num = 278; -///Operation Operation 5,761 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_16c8; -///BlockEnd Block 6,2 -} -///Operation Operation 5,762 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_16e5; -///BlockEnd Block 6,2 -} -///Label Label 5,763 2 -IL_16c8: -///Operation Operation 5,764 -num = 279; -///Operation Operation 5,765 -StringType.MidStmtStr(ref sDest2, 59, 1, Modul1.IText[175]); -///Goto Goto 5,766 Dest:OK -goto IL_16e5; -///Label Label 5,767 3 -IL_16e5: -///Operation Operation 5,768 -num = 281; -///Operation Operation 5,769 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1720; -///BlockEnd Block 6,2 -} -///Operation Operation 5,770 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_17ec; -///BlockEnd Block 6,2 -} -///Label Label 5,771 2 -IL_1720: -///Operation Operation 5,772 -num = 282; -///Operation Operation 5,773 -StringType.MidStmtStr(ref sDest2, 60, 1, Modul1.IText[175]); -///Goto Goto 5,774 Dest:OK -goto IL_17ec; -///Label Label 5,775 2 -IL_1743: -///Operation Operation 5,776 -num = 286; -///Operation Operation 5,777 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1775; -///BlockEnd Block 6,2 -} -///Operation Operation 5,778 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1792; -///BlockEnd Block 6,2 -} -///Label Label 5,779 2 -IL_1775: -///Operation Operation 5,780 -num = 287; -///Operation Operation 5,781 -StringType.MidStmtStr(ref sDest2, 65, 1, Modul1.IText[175]); -///Goto Goto 5,782 Dest:OK -goto IL_1792; -///Label Label 5,783 3 -IL_1792: -///Operation Operation 5,784 -num = 289; -///Operation Operation 5,785 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_17cd; -///BlockEnd Block 6,2 -} -///Operation Operation 5,786 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_17ec; -///BlockEnd Block 6,2 -} -///Label Label 5,787 2 -IL_17cd: -///Operation Operation 5,788 -num = 290; -///Operation Operation 5,789 -StringType.MidStmtStr(ref sDest2, 66, 1, Modul1.IText[175]); -///Goto Goto 5,790 Dest:OK -goto IL_17ec; -///Label Label 5,791 15 -IL_17ec: -///Operation Operation 5,792 -num = 293; -///Operation Operation 5,793 -lErl = 54; -///Goto Goto 5,794 Dest:OK -goto IL_17f7; -///Label Label 5,795 2 -IL_17f7: -///Operation Operation 5,796 -num = 294; -///Operation Operation 5,797 -num15 = (short)unchecked(num15 + 1); -///Operation Operation 5,798 -num18 = num15; -///Operation Operation 5,799 -num11 = 507; -///Operation Operation 5,800 -if (num18 <= num11) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1313; -///BlockEnd Block 6,2 -} -///Operation Operation 5,801 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1814; -///BlockEnd Block 6,2 -} -///Label Label 5,802 2 -IL_1814: -///Operation Operation 5,803 -num = 295; -///Operation Operation 5,804 -lErl = 3; -///Goto Goto 5,805 Dest:OK -goto IL_181e; -///Label Label 5,806 2 -IL_181e: -///Operation Operation 5,807 -num = 296; -///Operation Operation 5,808 -DataModul.DB_EventTable.Seek("=", 601.AsString(), Modul1.FamInArb.AsString(), "0"); -///Goto Goto 5,809 Dest:OK -goto IL_188a; -///Label Label 5,810 2 -IL_188a: -///Operation Operation 5,811 -num = 297; -///Operation Operation 5,812 -if (!DataModul.DB_EventTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_18a7; -///BlockEnd Block 6,2 -} -///Operation Operation 5,813 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1943; -///BlockEnd Block 6,2 -} -///Label Label 5,814 2 -IL_18a7: -///Operation Operation 5,815 -num = 298; -///Operation Operation 5,816 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_18d9; -///BlockEnd Block 6,2 -} -///Operation Operation 5,817 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_18f0; -///BlockEnd Block 6,2 -} -///Label Label 5,818 2 -IL_18d9: -///Operation Operation 5,819 -num = 299; -///Operation Operation 5,820 -StringType.MidStmtStr(ref sDest2, 75, 1, "J"); -///Goto Goto 5,821 Dest:OK -goto IL_18f0; -///Label Label 5,822 3 -IL_18f0: -///Operation Operation 5,823 -num = 301; -///Operation Operation 5,824 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_192b; -///BlockEnd Block 6,2 -} -///Operation Operation 5,825 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1943; -///BlockEnd Block 6,2 -} -///Label Label 5,826 2 -IL_192b: -///Operation Operation 5,827 -num = 302; -///Operation Operation 5,828 -StringType.MidStmtStr(ref sDest2, 76, 1, "J"); -///Goto Goto 5,829 Dest:OK -goto IL_1943; -///Label Label 5,830 4 -IL_1943: -///Operation Operation 5,831 -num = 305; -///Operation Operation 5,832 -List1.Items.Add(new ListItem(sDest2 + " " + Modul1.FamInArb.AsString())); -///Goto Goto 5,833 Dest:OK -goto IL_197c; -///Label Label 5,834 4 -IL_197c: -///Operation Operation 5,835 -num = 306; -///Operation Operation 5,836 -lErl = 55; -///Goto Goto 5,837 Dest:OK -goto IL_1987; -///Label Label 5,838 2 -IL_1987: -///Operation Operation 5,839 -num = 307; -///Operation Operation 5,840 -I1++; -///Goto Goto 5,841 Dest:OK -goto IL_199d; -///Label Label 5,842 2 -IL_199d: -///Operation Operation 5,843 -i13 = I1; -///Operation Operation 5,844 -num5 = num17; -///Operation Operation 5,845 -if (i13 <= num5) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_0f95; -///BlockEnd Block 6,2 -} -///Operation Operation 5,846 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_19ae; -///BlockEnd Block 6,2 -} -///Label Label 5,847 2 -IL_19ae: -///Operation Operation 5,848 -num = 308; -///Operation Operation 5,849 -Label4.Text = List1.Items.Count - 3.AsString() + " Familien"; -///Goto Goto 5,850 Dest:OK -goto IL_19e7; -///Label Label 5,851 2 -IL_19e7: -///Operation Operation 5,852 -num = 309; -///Operation Operation 5,853 -if (RadioButton1.Checked) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_19ff; -///BlockEnd Block 6,2 -} -///Operation Operation 5,854 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_448a; -///BlockEnd Block 6,2 -} -///Label Label 5,855 2 -IL_19ff: -///Operation Operation 5,856 -num = 310; -///Operation Operation 5,857 -Label4.Text = List1.Items.Count.AsString() + " Familien"; -///Goto Goto 5,858 Dest:OK -goto IL_448a; -///Label Label 5,859 2 -IL_1a3c: -///Operation Operation 5,860 -num = 314; -///Operation Operation 5,861 -List1.Items.Clear(); -///Goto Goto 5,862 Dest:OK -goto IL_1a54; -///Label Label 5,863 2 -IL_1a54: -///Operation Operation 5,864 -num = 315; -///Operation Operation 5,865 -List2.Items.Clear(); -///Goto Goto 5,866 Dest:OK -goto IL_1a6c; -///Label Label 5,867 2 -IL_1a6c: -///Operation Operation 5,868 -num = 316; -///Operation Operation 5,869 -ProgressBar1.Minimum = 0; -///Goto Goto 5,870 Dest:OK -goto IL_1a80; -///Label Label 5,871 2 -IL_1a80: -///Operation Operation 5,872 -num = 317; -///Operation Operation 5,873 -ProgressBar1.Maximum = 0; -///Goto Goto 5,874 Dest:OK -goto IL_1a94; -///Label Label 5,875 2 -IL_1a94: -///Operation Operation 5,876 -num = 318; -///Operation Operation 5,877 -Close(); -///Goto Goto 5,878 Dest:OK -goto end_IL_0001_2; -///Label Label 5,879 2 -IL_1aae: -///Operation Operation 5,880 -num = 322; -///Operation Operation 5,881 -FileSystem.FileClose(99); -///Goto Goto 5,882 Dest:OK -goto IL_1acb; -///Label Label 5,883 2 -IL_1acb: -///Operation Operation 5,884 -num = 323; -///Operation Operation 5,885 -FileSystem.FileOpen(99, Modul1.TempPath + "\\Text4.Txt", OpenMode.Output); -///Goto Goto 5,886 Dest:OK -goto IL_1aed; -///Label Label 5,887 2 -IL_1aed: -///Operation Operation 5,888 -num = 324; -///Operation Operation 5,889 -FileSystem.PrintLine(99, Label1[2].Text); -///Goto Goto 5,890 Dest:OK -goto IL_1b1c; -///Label Label 5,891 2 -IL_1b1c: -///Operation Operation 5,892 -num = 325; -///Operation Operation 5,893 -FileSystem.PrintLine(99, Label1[1].Text); -///Goto Goto 5,894 Dest:OK -goto IL_1b4b; -///Label Label 5,895 2 -IL_1b4b: -///Operation Operation 5,896 -num = 326; -///Operation Operation 5,897 -FileSystem.PrintLine(99, Label1[0].Text); -///Goto Goto 5,898 Dest:OK -goto IL_1b7a; -///Label Label 5,899 2 -IL_1b7a: -///Operation Operation 5,900 -num = 327; -///Operation Operation 5,901 -if (List2.Visible) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1b92; -///BlockEnd Block 6,2 -} -///Operation Operation 5,902 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1bb9; -///BlockEnd Block 6,2 -} -///Label Label 5,903 2 -IL_1b92: -///Operation Operation 5,904 -num = 328; -///Operation Operation 5,905 -L = List2; -///Operation Operation 5,906 -A = 2; -///Operation Operation 5,907 -Modul1.Listbox3Clip(ref L, ref A); -///Operation Operation 5,908 -List2 = L; -///Goto Goto 5,909 Dest:OK -goto IL_1be7; -///Label Label 5,910 2 -IL_1bb9: -///Operation Operation 5,911 -num = 330; -///Goto Goto 5,912 Dest:OK -goto IL_1bc1; -///Label Label 5,913 2 -IL_1bc1: -///Operation Operation 5,914 -num = 331; -///Operation Operation 5,915 -L = List1; -///Operation Operation 5,916 -A = 2; -///Operation Operation 5,917 -Modul1.Listbox3Clip(ref L, ref A); -///Operation Operation 5,918 -List1 = L; -///Goto Goto 5,919 Dest:OK -goto IL_1be7; -///Label Label 5,920 3 -IL_1be7: -///Operation Operation 5,921 -num = 333; -///Operation Operation 5,922 -FileSystem.FileClose(); -///Goto Goto 5,923 Dest:OK -goto IL_448a; -///Label Label 5,924 2 -IL_1c00: -///Operation Operation 5,925 -num = 336; -///Comment LComment 5,926 -//Sz = 0; -///Goto Goto 5,927 Dest:OK -goto IL_1c0e; -///Label Label 5,928 2 -IL_1c0e: -///Operation Operation 5,929 -num = 337; -///Operation Operation 5,930 -List1.Items.Clear(); -///Goto Goto 5,931 Dest:OK -goto IL_1c26; -///Label Label 5,932 2 -IL_1c26: -///Operation Operation 5,933 -num = 338; -///Operation Operation 5,934 -Label1[2].Text = "Familien ohne Datum"; -///Goto Goto 5,935 Dest:OK -goto IL_1c44; -///Label Label 5,936 2 -IL_1c44: -///Operation Operation 5,937 -num = 339; -///Operation Operation 5,938 -Label1[1].Text = "Mann Frau Kinder Pro Verl. Hei k.H. Schd. Eheä. Aus Fikt."; -///Goto Goto 5,939 Dest:OK -goto IL_1c62; -///Label Label 5,940 2 -IL_1c62: -///Operation Operation 5,941 -num = 340; -///Operation Operation 5,942 -Label1[0].Text = " DO DO DO DO DO DO DO"; -///Goto Goto 5,943 Dest:OK -goto IL_1c80; -///Label Label 5,944 2 -IL_1c80: -///Operation Operation 5,945 -num = 341; -///Operation Operation 5,946 -if (RadioButton2.Checked) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1c98; -///BlockEnd Block 6,2 -} -///Operation Operation 5,947 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1cb5; -///BlockEnd Block 6,2 -} -///Label Label 5,948 2 -IL_1c98: -///Operation Operation 5,949 -num = 342; -///Operation Operation 5,950 -List1.Items.Add("Familien ohne Datum"); -///Goto Goto 5,951 Dest:OK -goto IL_1cb5; -///Label Label 5,952 3 -IL_1cb5: -///Operation Operation 5,953 -num = 344; -///Operation Operation 5,954 -if (RadioButton2.Checked) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1ccd; -///BlockEnd Block 6,2 -} -///Operation Operation 5,955 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1cea; -///BlockEnd Block 6,2 -} -///Label Label 5,956 2 -IL_1ccd: -///Operation Operation 5,957 -num = 345; -///Operation Operation 5,958 -List1.Items.Add("Mann Frau Kinder Pro Verl. Hei k.H. Schd. eheä. auß Fikt."); -///Goto Goto 5,959 Dest:OK -goto IL_1cea; -///Label Label 5,960 3 -IL_1cea: -///Operation Operation 5,961 -num = 347; -///Operation Operation 5,962 -if (RadioButton2.Checked) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1d02; -///BlockEnd Block 6,2 -} -///Operation Operation 5,963 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1d1f; -///BlockEnd Block 6,2 -} -///Label Label 5,964 2 -IL_1d02: -///Operation Operation 5,965 -num = 348; -///Operation Operation 5,966 -List1.Items.Add(" DO DO DO DO DO DO DO"); -///Goto Goto 5,967 Dest:OK -goto IL_1d1f; -///Label Label 5,968 3 -IL_1d1f: -///Operation Operation 5,969 -num = 350; -///Operation Operation 5,970 -Modul1.I = 0; -///Goto Goto 5,971 Dest:OK -goto IL_1d2c; -///Label Label 5,972 3 -IL_1d2c: -///Operation Operation 5,973 -num = 351; -///Operation Operation 5,974 -Label1[(short)Modul1.I].Refresh(); -///Goto Goto 5,975 Dest:OK -goto IL_1d4a; -///Label Label 5,976 2 -IL_1d4a: -///Operation Operation 5,977 -num = 352; -///Operation Operation 5,978 -Modul1.I++; -///Operation Operation 5,979 -i8 = Modul1.I; -///Operation Operation 5,980 -num5 = 2; -///Operation Operation 5,981 -if (i8 <= num5) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1d2c; -///BlockEnd Block 6,2 -} -///Operation Operation 5,982 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1d6a; -///BlockEnd Block 6,2 -} -///Label Label 5,983 2 -IL_1d6a: -///Operation Operation 5,984 -num = 353; -///Operation Operation 5,985 -num7 = 1; -///Goto Goto 5,986 Dest:OK -goto IL_1d74; -///Label Label 5,987 2 -IL_1d74: -///Operation Operation 5,988 -num = 354; -///Operation Operation 5,989 -if (num7 <= 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,2 -} -///Goto Goto 5,990 Dest:OK -goto IL_1d8f; -///Label Label 5,991 2 -IL_1d8f: -///Operation Operation 5,992 -num = 357; -///Operation Operation 5,993 -DataModul.DB_FamilyTable.MoveLast(); -///Goto Goto 5,994 Dest:OK -goto IL_1da2; -///Label Label 5,995 2 -IL_1da2: -///Operation Operation 5,996 -num = 358; -///Operation Operation 5,997 -num8 = DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value.AsInt(); -///Goto Goto 5,998 Dest:OK -goto IL_1dc9; -///Label Label 5,999 2 -IL_1dc9: -///Operation Operation 5,1000 -num = 359; -///Operation Operation 5,1001 -if ((num7 > DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1dfc; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1002 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1e3d; -///BlockEnd Block 6,2 -} -///Label Label 5,1003 2 -IL_1dfc: -///Operation Operation 5,1004 -num = 360; -///Operation Operation 5,1005 -Interaction.MsgBox(Modul1.IText[174] + " " + num7.AsString() + Modul1.IText[172]); -///Goto Goto 5,1006 Dest:OK -goto end_IL_0001_2; -///Label Label 5,1007 2 -IL_1e3d: -///Operation Operation 5,1008 -num = 363; -///Operation Operation 5,1009 -ProgressBar1.Minimum = 0; -///Goto Goto 5,1010 Dest:OK -goto IL_1e51; -///Label Label 5,1011 2 -IL_1e51: -///Operation Operation 5,1012 -num = 364; -///Operation Operation 5,1013 -ProgressBar1.Maximum = 0; -///Goto Goto 5,1014 Dest:OK -goto IL_1e65; -///Label Label 5,1015 2 -IL_1e65: -///Operation Operation 5,1016 -num = 365; -///Operation Operation 5,1017 -ProgressBar1.Step = 1; -///Goto Goto 5,1018 Dest:OK -goto IL_1e79; -///Label Label 5,1019 2 -IL_1e79: -///Operation Operation 5,1020 -num = 366; -///Operation Operation 5,1021 -ProgressBar1.Maximum = (int)Math.Round(Conversion.Val(Modul1.Aus[13])); -///Goto Goto 5,1022 Dest:OK -goto IL_1e9f; -///Label Label 5,1023 2 -IL_1e9f: -///Operation Operation 5,1024 -num = 367; -///Operation Operation 5,1025 -i9 = num7; -///Operation Operation 5,1026 -num14 = num7 + DataModul.DB_FamilyTable.RecordCount; -///Operation Operation 5,1027 -I1 = i9; -///Goto Goto 5,1028 Dest:OK -goto IL_2440; -///Label Label 5,1029 2 -IL_1ec2: -///Operation Operation 5,1030 -num = 368; -///Operation Operation 5,1031 -ProgressBar1.PerformStep(); -///Goto Goto 5,1032 Dest:OK -goto IL_1ed5; -///Label Label 5,1033 2 -IL_1ed5: -///Operation Operation 5,1034 -num = 369; -///Operation Operation 5,1035 -Application.DoEvents(); -///Goto Goto 5,1036 Dest:OK -goto IL_1ee2; -///Label Label 5,1037 2 -IL_1ee2: -///Operation Operation 5,1038 -num = 370; -///Operation Operation 5,1039 -sDest2 = " "; -///Goto Goto 5,1040 Dest:OK -goto IL_1ef0; -///Label Label 5,1041 2 -IL_1ef0: -///Operation Operation 5,1042 -num = 371; -///Operation Operation 5,1043 -Modul1.FamInArb = I1; -///Goto Goto 5,1044 Dest:OK -goto IL_1f02; -///Label Label 5,1045 2 -IL_1f02: -///Operation Operation 5,1046 -num = 372; -///Operation Operation 5,1047 -if (Modul1.FamInArb <= num8) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1f1d; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1048 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_241f; -///BlockEnd Block 6,2 -} -///Label Label 5,1049 2 -IL_1f1d: -///Operation Operation 5,1050 -num = 375; -///Operation Operation 5,1051 -DataModul.DB_FamilyTable.Index = nameof(DataModul.FamilyIndex.Fam); -///Goto Goto 5,1052 Dest:OK -goto IL_1f34; -///Label Label 5,1053 2 -IL_1f34: -///Operation Operation 5,1054 -num = 376; -///Operation Operation 5,1055 -DataModul.DB_FamilyTable.Seek("=", Modul1.FamInArb.AsString()); -///Goto Goto 5,1056 Dest:OK -goto IL_1f96; -///Label Label 5,1057 2 -IL_1f96: -///Operation Operation 5,1058 -num = 377; -///Operation Operation 5,1059 -if (!DataModul.DB_FamilyTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1fb2; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1060 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2317; -///BlockEnd Block 6,2 -} -///Label Label 5,1061 2 -IL_1fb2: -///Operation Operation 5,1062 -num = 380; -///Operation Operation 5,1063 -MainProject.Forms.Familie.Famles(Modul1.FamInArb); -///Goto Goto 5,1064 Dest:OK -goto IL_1fbf; -///Label Label 5,1065 2 -IL_1fbf: -///Operation Operation 5,1066 -num = 381; -///Operation Operation 5,1067 -if (Modul1.Family.Mann > 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1fd7; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1068 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_206d; -///BlockEnd Block 6,2 -} -///Label Label 5,1069 2 -IL_1fd7: -///Operation Operation 5,1070 -num = 382; -///Operation Operation 5,1071 -Modul1.PersInArb = Modul1.Family.Mann; -///Goto Goto 5,1072 Dest:OK -goto IL_1fe8; -///Label Label 5,1073 2 -IL_1fe8: -///Operation Operation 5,1074 -num = 383; -///Operation Operation 5,1075 -Modul1.Personlesen(Modul1.PersInArb); -///Goto Goto 5,1076 Dest:OK -goto IL_1ff5; -///Label Label 5,1077 2 -IL_1ff5: -///Operation Operation 5,1078 -num = 384; -///Operation Operation 5,1079 -if (Modul1.Kont[0] != "") -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_201a; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1080 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2035; -///BlockEnd Block 6,2 -} -///Label Label 5,1081 2 -IL_201a: -///Operation Operation 5,1082 -num = 385; -///Operation Operation 5,1083 -StringType.MidStmtStr(ref sDest2, 1, 15, Modul1.Kont[0]); -///Goto Goto 5,1084 Dest:OK -goto IL_2055; -///Label Label 5,1085 2 -IL_2035: -///Operation Operation 5,1086 -num = 387; -///Goto Goto 5,1087 Dest:OK -goto IL_203d; -///Label Label 5,1088 2 -IL_203d: -///Operation Operation 5,1089 -num = 388; -///Operation Operation 5,1090 -StringType.MidStmtStr(ref sDest2, 1, 15, ">NN<"); -///Goto Goto 5,1091 Dest:OK -goto IL_2055; -///Label Label 5,1092 3 -IL_2055: -///Operation Operation 5,1093 -num = 390; -///Operation Operation 5,1094 -StringType.MidStmtStr(ref sDest2, 16, 2, "/ "); -///Goto Goto 5,1095 Dest:OK -goto IL_206d; -///Label Label 5,1096 3 -IL_206d: -///Operation Operation 5,1097 -num = 392; -///Operation Operation 5,1098 -if (Modul1.Family.Frau > 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2085; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1099 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2106; -///BlockEnd Block 6,2 -} -///Label Label 5,1100 2 -IL_2085: -///Operation Operation 5,1101 -num = 393; -///Operation Operation 5,1102 -Modul1.PersInArb = Modul1.Family.Frau; -///Goto Goto 5,1103 Dest:OK -goto IL_2096; -///Label Label 5,1104 2 -IL_2096: -///Operation Operation 5,1105 -num = 394; -///Operation Operation 5,1106 -Modul1.Personlesen(Modul1.PersInArb); -///Goto Goto 5,1107 Dest:OK -goto IL_20a3; -///Label Label 5,1108 2 -IL_20a3: -///Operation Operation 5,1109 -num = 395; -///Operation Operation 5,1110 -if (Modul1.Kont[0] != "") -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_20c8; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1111 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_20e4; -///BlockEnd Block 6,2 -} -///Label Label 5,1112 2 -IL_20c8: -///Operation Operation 5,1113 -num = 396; -///Operation Operation 5,1114 -StringType.MidStmtStr(ref sDest2, 17, 15, Modul1.Kont[0]); -///Goto Goto 5,1115 Dest:OK -goto IL_2106; -///Label Label 5,1116 2 -IL_20e4: -///Operation Operation 5,1117 -num = 398; -///Goto Goto 5,1118 Dest:OK -goto IL_20ec; -///Label Label 5,1119 2 -IL_20ec: -///Operation Operation 5,1120 -num = 399; -///Operation Operation 5,1121 -StringType.MidStmtStr(ref sDest2, 17, 15, ">NN<"); -///Goto Goto 5,1122 Dest:OK -goto IL_2106; -///Label Label 5,1123 4 -IL_2106: -///Operation Operation 5,1124 -num = 402; -///Operation Operation 5,1125 -if (Modul1.Family.Kind[1] != 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2120; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1126 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_213d; -///BlockEnd Block 6,2 -} -///Label Label 5,1127 2 -IL_2120: -///Operation Operation 5,1128 -num = 403; -///Operation Operation 5,1129 -StringType.MidStmtStr(ref sDest2, 32, 1, Modul1.IText[175]); -///Goto Goto 5,1130 Dest:OK -goto IL_213d; -///Label Label 5,1131 3 -IL_213d: -///Operation Operation 5,1132 -num = 405; -///Operation Operation 5,1133 -DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.ArtNr); -///Goto Goto 5,1134 Dest:OK -goto IL_2154; -///Label Label 5,1135 2 -IL_2154: -///Operation Operation 5,1136 -num = 406; -///Operation Operation 5,1137 -DataModul.DB_FamilyTable.Index = nameof(DataModul.FamilyIndex.Fam); -///Goto Goto 5,1138 Dest:OK -goto IL_216b; -///Label Label 5,1139 2 -IL_216b: -///Operation Operation 5,1140 -num = 407; -///Operation Operation 5,1141 -DataModul.DB_FamilyTable.Seek("=", Modul1.FamInArb); -///Goto Goto 5,1142 Dest:OK -goto IL_21c8; -///Label Label 5,1143 2 -IL_21c8: -///Operation Operation 5,1144 -num = 408; -///Operation Operation 5,1145 -if (!DataModul.DB_FamilyTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_21e4; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1146 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2317; -///BlockEnd Block 6,2 -} -///Label Label 5,1147 2 -IL_21e4: -///Operation Operation 5,1148 -num = 411; -///Operation Operation 5,1149 -if ((DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.Aeb)].Value == -1)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2216; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1150 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2233; -///BlockEnd Block 6,2 -} -///Label Label 5,1151 2 -IL_2216: -///Operation Operation 5,1152 -num = 412; -///Operation Operation 5,1153 -StringType.MidStmtStr(ref sDest2, 70, 1, Modul1.IText[175]); -///Goto Goto 5,1154 Dest:OK -goto IL_2233; -///Label Label 5,1155 3 -IL_2233: -///Operation Operation 5,1156 -num = 414; -///Operation Operation 5,1157 -num15 = 500; -///Goto Goto 5,1158 Dest:OK -goto IL_2240; -///Label Label 5,1159 3 -IL_2240: -///Operation Operation 5,1160 -num = 415; -///Operation Operation 5,1161 -Modul1.Ubg = num15; -///Goto Goto 5,1162 Dest:OK -goto IL_224d; -///Label Label 5,1163 2 -IL_224d: -///Operation Operation 5,1164 -num = 416; -///Operation Operation 5,1165 -DataModul.DB_EventTable.Seek("=", Modul1.Ubg.AsString(), Modul1.FamInArb.AsString(), "0"); -///Goto Goto 5,1166 Dest:OK -goto IL_22b9; -///Label Label 5,1167 2 -IL_22b9: -///Operation Operation 5,1168 -num = 417; -///Operation Operation 5,1169 -if (DataModul.DB_EventTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_22d8; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1170 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_241f; -///BlockEnd Block 6,2 -} -///Label Label 5,1171 2 -IL_22d8: -///Operation Operation 5,1172 -num = 420; -///Operation Operation 5,1173 -if (!((num15 == 507) & DataModul.DB_EventTable.NoMatch)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_22fa; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1174 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2317; -///BlockEnd Block 6,2 -} -///Label Label 5,1175 2 -IL_22fa: -///Operation Operation 5,1176 -num = 423; -///Operation Operation 5,1177 -num15 = (short)unchecked(num15 + 1); -///Operation Operation 5,1178 -num16 = num15; -///Operation Operation 5,1179 -num11 = 507; -///Operation Operation 5,1180 -if (num16 <= num11) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2240; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1181 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2317; -///BlockEnd Block 6,2 -} -///Label Label 5,1182 5 -IL_2317: -///Operation Operation 5,1183 -num = 424; -///Operation Operation 5,1184 -lErl = 34; -///Goto Goto 5,1185 Dest:OK -goto IL_2322; -///Label Label 5,1186 2 -IL_2322: -///Operation Operation 5,1187 -num = 425; -///Operation Operation 5,1188 -DataModul.DB_EventTable.Seek("=", 601.AsString(), Modul1.FamInArb.AsString(), "0"); -///Goto Goto 5,1189 Dest:OK -goto IL_238e; -///Label Label 5,1190 2 -IL_238e: -///Operation Operation 5,1191 -num = 426; -///Operation Operation 5,1192 -if (DataModul.DB_EventTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_23aa; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1193 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_241f; -///BlockEnd Block 6,2 -} -///Label Label 5,1194 2 -IL_23aa: -///Operation Operation 5,1195 -num = 429; -///Operation Operation 5,1196 -if (sDest2.Trim() != "") -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_23cf; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1197 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_241f; -///BlockEnd Block 6,2 -} -///Label Label 5,1198 2 -IL_23cf: -///Operation Operation 5,1199 -num = 430; -///Operation Operation 5,1200 -List1.Items.Add(new ListItem(sDest2 + " " + Modul1.FamInArb.AsString())); -///Goto Goto 5,1201 Dest:OK -goto IL_2407; -///Label Label 5,1202 2 -IL_2407: -///Operation Operation 5,1203 -num = 431; -///Comment LComment 5,1204 -//Sz++; -///Goto Goto 5,1205 Dest:OK -goto IL_241f; -///Label Label 5,1206 6 -IL_241f: -///Operation Operation 5,1207 -num = 433; -///Operation Operation 5,1208 -lErl = 35; -///Goto Goto 5,1209 Dest:OK -goto IL_242a; -///Label Label 5,1210 2 -IL_242a: -///Operation Operation 5,1211 -num = 434; -///Operation Operation 5,1212 -I1++; -///Goto Goto 5,1213 Dest:OK -goto IL_2440; -///Label Label 5,1214 2 -IL_2440: -///Operation Operation 5,1215 -i10 = I1; -///Operation Operation 5,1216 -num5 = num14; -///Operation Operation 5,1217 -if (i10 <= num5) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_1ec2; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1218 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2451; -///BlockEnd Block 6,2 -} -///Label Label 5,1219 2 -IL_2451: -///Operation Operation 5,1220 -num = 435; -///Operation Operation 5,1221 -Label4.Text = List1.Items.Count - 2.AsString() + " Einträge"; -///Goto Goto 5,1222 Dest:OK -goto end_IL_0001_2; -///Label Label 5,1223 2 -IL_2496: -///Operation Operation 5,1224 -num = 439; -///Operation Operation 5,1225 -List1.Items.Clear(); -///Goto Goto 5,1226 Dest:OK -goto IL_24ae; -///Label Label 5,1227 2 -IL_24ae: -///Operation Operation 5,1228 -num = 440; -///Operation Operation 5,1229 -Label1[2].Text = "Personen ohne Datum"; -///Goto Goto 5,1230 Dest:OK -goto IL_24cc; -///Label Label 5,1231 2 -IL_24cc: -///Operation Operation 5,1232 -num = 441; -///Operation Operation 5,1233 -Label1[1].Text = Modul1.IText[166]; -///Goto Goto 5,1234 Dest:OK -goto IL_24f0; -///Label Label 5,1235 2 -IL_24f0: -///Operation Operation 5,1236 -num = 442; -///Operation Operation 5,1237 -Label1[0].Text = Modul1.IText[167]; -///Goto Goto 5,1238 Dest:OK -goto IL_2514; -///Label Label 5,1239 2 -IL_2514: -///Operation Operation 5,1240 -num = 443; -///Operation Operation 5,1241 -I1 = 0; -///Goto Goto 5,1242 Dest:OK -goto IL_2522; -///Label Label 5,1243 3 -IL_2522: -///Operation Operation 5,1244 -num = 444; -///Operation Operation 5,1245 -Label1[(short)I1].Refresh(); -///Goto Goto 5,1246 Dest:OK -goto IL_2541; -///Label Label 5,1247 2 -IL_2541: -///Operation Operation 5,1248 -num = 445; -///Operation Operation 5,1249 -I1++; -///Operation Operation 5,1250 -i5 = I1; -///Operation Operation 5,1251 -num5 = 2; -///Operation Operation 5,1252 -if (i5 <= num5) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2522; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1253 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2564; -///BlockEnd Block 6,2 -} -///Label Label 5,1254 2 -IL_2564: -///Operation Operation 5,1255 -num = 446; -///Operation Operation 5,1256 -num7 = 1; -///Goto Goto 5,1257 Dest:OK -goto IL_256e; -///Label Label 5,1258 2 -IL_256e: -///Operation Operation 5,1259 -num = 447; -///Operation Operation 5,1260 -if (num7 <= 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,2 -} -///Goto Goto 5,1261 Dest:OK -goto IL_2589; -///Label Label 5,1262 2 -IL_2589: -///Operation Operation 5,1263 -num = 450; -///Operation Operation 5,1264 -DataModul.DB_PersonTable.Index = nameof(DataModul.PersonIndex.PerNr); -///Goto Goto 5,1265 Dest:OK -goto IL_25a0; -///Label Label 5,1266 2 -IL_25a0: -///Operation Operation 5,1267 -num = 451; -///Operation Operation 5,1268 -DataModul.DB_PersonTable.MoveLast(); -///Goto Goto 5,1269 Dest:OK -goto IL_25b3; -///Label Label 5,1270 2 -IL_25b3: -///Operation Operation 5,1271 -num = 452; -///Operation Operation 5,1272 -num8 = DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value.AsInt(); -///Goto Goto 5,1273 Dest:OK -goto IL_25da; -///Label Label 5,1274 2 -IL_25da: -///Operation Operation 5,1275 -num = 453; -///Operation Operation 5,1276 -if (num7 == 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,2 -} -///Goto Goto 5,1277 Dest:OK -goto IL_25f2; -///Label Label 5,1278 2 -IL_25f2: -///Operation Operation 5,1279 -num = 456; -///Operation Operation 5,1280 -if ((num7 > DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2625; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1281 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2666; -///BlockEnd Block 6,2 -} -///Label Label 5,1282 2 -IL_2625: -///Operation Operation 5,1283 -num = 457; -///Operation Operation 5,1284 -Interaction.MsgBox(Modul1.IText[173] + " " + num7.AsString() + Modul1.IText[172]); -///Goto Goto 5,1285 Dest:OK -goto end_IL_0001_2; -///Label Label 5,1286 2 -IL_2666: -///Operation Operation 5,1287 -num = 460; -///Operation Operation 5,1288 -ProgressBar1.Minimum = 0; -///Goto Goto 5,1289 Dest:OK -goto IL_267a; -///Label Label 5,1290 2 -IL_267a: -///Operation Operation 5,1291 -num = 461; -///Operation Operation 5,1292 -ProgressBar1.Maximum = 0; -///Goto Goto 5,1293 Dest:OK -goto IL_268e; -///Label Label 5,1294 2 -IL_268e: -///Operation Operation 5,1295 -num = 462; -///Operation Operation 5,1296 -ProgressBar1.Step = 1; -///Goto Goto 5,1297 Dest:OK -goto IL_26a2; -///Label Label 5,1298 2 -IL_26a2: -///Operation Operation 5,1299 -num = 463; -///Operation Operation 5,1300 -ProgressBar1.Maximum = DataModul.DB_PersonTable.RecordCount - 1; -///Goto Goto 5,1301 Dest:OK -goto IL_26c1; -///Label Label 5,1302 2 -IL_26c1: -///Operation Operation 5,1303 -num = 464; -///Operation Operation 5,1304 -i6 = num7; -///Operation Operation 5,1305 -num10 = DataModul.DB_PersonTable.RecordCount - 1; -///Operation Operation 5,1306 -I1 = i6; -///Goto Goto 5,1307 Dest:OK -goto IL_33b6; -///Label Label 5,1308 2 -IL_26e3: -///Operation Operation 5,1309 -num = 465; -///Operation Operation 5,1310 -ProgressBar1.PerformStep(); -///Goto Goto 5,1311 Dest:OK -goto IL_26f6; -///Label Label 5,1312 2 -IL_26f6: -///Operation Operation 5,1313 -num = 466; -///Operation Operation 5,1314 -Application.DoEvents(); -///Goto Goto 5,1315 Dest:OK -goto IL_2703; -///Label Label 5,1316 2 -IL_2703: -///Operation Operation 5,1317 -num = 467; -///Operation Operation 5,1318 -Modul1.PersInArb = I1; -///Goto Goto 5,1319 Dest:OK -goto IL_2715; -///Label Label 5,1320 2 -IL_2715: -///Operation Operation 5,1321 -num = 468; -///Operation Operation 5,1322 -if (Modul1.PersInArb <= num8) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2730; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1323 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_448a; -///BlockEnd Block 6,2 -} -///Label Label 5,1324 2 -IL_2730: -///Operation Operation 5,1325 -num = 471; -///Operation Operation 5,1326 -DataModul.DB_PersonTable.Seek("=", Modul1.PersInArb.AsString()); -///Goto Goto 5,1327 Dest:OK -goto IL_2792; -///Label Label 5,1328 2 -IL_2792: -///Operation Operation 5,1329 -num = 472; -///Operation Operation 5,1330 -if (!DataModul.DB_PersonTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_27ae; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1331 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3395; -///BlockEnd Block 6,2 -} -///Label Label 5,1332 2 -IL_27ae: -///Operation Operation 5,1333 -num = 475; -///Operation Operation 5,1334 -Modul1.Personlesen(Modul1.PersInArb); -///Goto Goto 5,1335 Dest:OK -goto IL_27bb; -///Label Label 5,1336 2 -IL_27bb: -///Operation Operation 5,1337 -num = 476; -///Operation Operation 5,1338 -Modul1.LiText = Strings.Left((Modul1.Kont[0]).Trim() + "," + (Modul1.Kont[3]).Trim() + " ", 20); -///Goto Goto 5,1339 Dest:OK -goto IL_27f5; -///Label Label 5,1340 2 -IL_27f5: -///Operation Operation 5,1341 -num = 477; -///Operation Operation 5,1342 -Modul1.Schalt = 20; -///Goto Goto 5,1343 Dest:OK -goto IL_2803; -///Label Label 5,1344 2 -IL_2803: -///Operation Operation 5,1345 -num = 478; -///Operation Operation 5,1346 -T = 1; -///Goto Goto 5,1347 Dest:OK -goto IL_2811; -///Label Label 5,1348 3 -IL_2811: -///Operation Operation 5,1349 -num = 479; -///Operation Operation 5,1350 -Modul1.Kont[T + 10] = ""; -///Goto Goto 5,1351 Dest:OK -goto IL_282d; -///Label Label 5,1352 2 -IL_282d: -///Operation Operation 5,1353 -num = 480; -///Operation Operation 5,1354 -Modul1.Kont[T + 20] = ""; -///Goto Goto 5,1355 Dest:OK -goto IL_2849; -///Label Label 5,1356 2 -IL_2849: -///Operation Operation 5,1357 -num = 481; -///Operation Operation 5,1358 -T = (short)unchecked(T + 1); -///Operation Operation 5,1359 -t = T; -///Operation Operation 5,1360 -num11 = 10; -///Operation Operation 5,1361 -if (t <= num11) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2811; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1362 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_286e; -///BlockEnd Block 6,2 -} -///Label Label 5,1363 2 -IL_286e: -///Operation Operation 5,1364 -num = 482; -///Operation Operation 5,1365 -Modul1.Datles(); -///Goto Goto 5,1366 Dest:OK -goto IL_287b; -///Label Label 5,1367 2 -IL_287b: -///Operation Operation 5,1368 -num = 483; -///Operation Operation 5,1369 -sDest2 = " "; -///Goto Goto 5,1370 Dest:OK -goto IL_2889; -///Label Label 5,1371 2 -IL_2889: -///Operation Operation 5,1372 -num = 484; -///Operation Operation 5,1373 -if ((Modul1.Kont[11]).Trim() == "") -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_28b9; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1374 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3395; -///BlockEnd Block 6,2 -} -///Label Label 5,1375 2 -IL_28b9: -///Operation Operation 5,1376 -num = 487; -///Operation Operation 5,1377 -if ((Modul1.Kont[12]).Trim() == "") -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_28e9; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1378 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3395; -///BlockEnd Block 6,2 -} -///Label Label 5,1379 2 -IL_28e9: -///Operation Operation 5,1380 -num = 490; -///Operation Operation 5,1381 -if ((Modul1.Kont[13]).Trim() == "") -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2919; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1382 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3395; -///BlockEnd Block 6,2 -} -///Label Label 5,1383 2 -IL_2919: -///Operation Operation 5,1384 -num = 493; -///Operation Operation 5,1385 -if ((Modul1.Kont[14]).Trim() == "") -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2949; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1386 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3395; -///BlockEnd Block 6,2 -} -///Label Label 5,1387 2 -IL_2949: -///Operation Operation 5,1388 -num = 496; -///Operation Operation 5,1389 -num12 = 300; -///Goto Goto 5,1390 Dest:OK -goto IL_2956; -///Label Label 5,1391 3 -IL_2956: -///Operation Operation 5,1392 -num = 497; -///Operation Operation 5,1393 -DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.BeSu); -///Goto Goto 5,1394 Dest:OK -goto IL_296d; -///Label Label 5,1395 2 -IL_296d: -///Operation Operation 5,1396 -num = 498; -///Operation Operation 5,1397 -DataModul.DB_EventTable.Seek("=", num12, Modul1.PersInArb.AsString()); -///Goto Goto 5,1398 Dest:OK -goto IL_29d0; -///Label Label 5,1399 2 -IL_29d0: -///Operation Operation 5,1400 -num = 499; -///Operation Operation 5,1401 -if (!DataModul.DB_EventTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_29ec; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1402 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2d63; -///BlockEnd Block 6,2 -} -///Label Label 5,1403 2 -IL_29ec: -///Operation Operation 5,1404 -num = 502; -///Operation Operation 5,1405 -switch (num12) -///BlockStart Block 6,0 -{ -///Label Label 6,1 -case 300: -///Operation Operation 6,2 -break; -///Label Label 6,3 -case 301: -///Goto Goto 6,4 Dest:OK -goto IL_2b31; -///Label Label 6,5 -case 302: -///Goto Goto 6,6 Dest:OK -goto IL_2c4c; -///Label Label 6,7 -default: -///Goto Goto 6,8 Dest:OK -goto IL_2d63; -///BlockEnd Block 6,9 -} -///BlockStart Block 6,10 -{ -///Goto Goto 6,11 Dest:OK -goto IL_2a16; -///BlockEnd Block 6,12 -} -///Label Label 5,1406 2 -IL_2a16: -///Operation Operation 5,1407 -num = 506; -///Operation Operation 5,1408 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2a48; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1409 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2a65; -///BlockEnd Block 6,2 -} -///Label Label 5,1410 2 -IL_2a48: -///Operation Operation 5,1411 -num = 507; -///Operation Operation 5,1412 -StringType.MidStmtStr(ref sDest2, 34, 1, Modul1.IText[175]); -///Goto Goto 5,1413 Dest:OK -goto IL_2a65; -///Label Label 5,1414 3 -IL_2a65: -///Operation Operation 5,1415 -num = 509; -///Operation Operation 5,1416 -if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2a9c; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1417 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3395; -///BlockEnd Block 6,2 -} -///Label Label 5,1418 2 -IL_2a9c: -///Operation Operation 5,1419 -num = 512; -///Operation Operation 5,1420 -if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2ad3; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1421 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3395; -///BlockEnd Block 6,2 -} -///Label Label 5,1422 2 -IL_2ad3: -///Operation Operation 5,1423 -num = 515; -///Operation Operation 5,1424 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2b0e; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1425 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2d63; -///BlockEnd Block 6,2 -} -///Label Label 5,1426 2 -IL_2b0e: -///Operation Operation 5,1427 -num = 516; -///Operation Operation 5,1428 -StringType.MidStmtStr(ref sDest2, 38, 1, Modul1.IText[175]); -///Goto Goto 5,1429 Dest:OK -goto IL_2d63; -///Label Label 5,1430 2 -IL_2b31: -///Operation Operation 5,1431 -num = 520; -///Operation Operation 5,1432 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2b63; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1433 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2b80; -///BlockEnd Block 6,2 -} -///Label Label 5,1434 2 -IL_2b63: -///Operation Operation 5,1435 -num = 521; -///Operation Operation 5,1436 -StringType.MidStmtStr(ref sDest2, 42, 1, Modul1.IText[175]); -///Goto Goto 5,1437 Dest:OK -goto IL_2b80; -///Label Label 5,1438 3 -IL_2b80: -///Operation Operation 5,1439 -num = 523; -///Operation Operation 5,1440 -if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2bb7; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1441 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3395; -///BlockEnd Block 6,2 -} -///Label Label 5,1442 2 -IL_2bb7: -///Operation Operation 5,1443 -num = 526; -///Operation Operation 5,1444 -if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2bee; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1445 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3395; -///BlockEnd Block 6,2 -} -///Label Label 5,1446 2 -IL_2bee: -///Operation Operation 5,1447 -num = 529; -///Operation Operation 5,1448 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2c29; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1449 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2d63; -///BlockEnd Block 6,2 -} -///Label Label 5,1450 2 -IL_2c29: -///Operation Operation 5,1451 -num = 530; -///Operation Operation 5,1452 -StringType.MidStmtStr(ref sDest2, 46, 1, Modul1.IText[175]); -///Goto Goto 5,1453 Dest:OK -goto IL_2d63; -///Label Label 5,1454 2 -IL_2c4c: -///Operation Operation 5,1455 -num = 534; -///Operation Operation 5,1456 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2c7e; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1457 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2c9b; -///BlockEnd Block 6,2 -} -///Label Label 5,1458 2 -IL_2c7e: -///Operation Operation 5,1459 -num = 535; -///Operation Operation 5,1460 -StringType.MidStmtStr(ref sDest2, 50, 1, Modul1.IText[175]); -///Goto Goto 5,1461 Dest:OK -goto IL_2c9b; -///Label Label 5,1462 3 -IL_2c9b: -///Operation Operation 5,1463 -num = 537; -///Operation Operation 5,1464 -if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2cd2; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1465 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3395; -///BlockEnd Block 6,2 -} -///Label Label 5,1466 2 -IL_2cd2: -///Operation Operation 5,1467 -num = 540; -///Operation Operation 5,1468 -if (!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2d09; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1469 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3395; -///BlockEnd Block 6,2 -} -///Label Label 5,1470 2 -IL_2d09: -///Operation Operation 5,1471 -num = 543; -///Operation Operation 5,1472 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2d44; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1473 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2d63; -///BlockEnd Block 6,2 -} -///Label Label 5,1474 2 -IL_2d44: -///Operation Operation 5,1475 -num = 544; -///Operation Operation 5,1476 -StringType.MidStmtStr(ref sDest2, 53, 1, Modul1.IText[175]); -///Goto Goto 5,1477 Dest:OK -goto IL_2d63; -///Label Label 5,1478 9 -IL_2d63: -///Operation Operation 5,1479 -num = 547; -///Operation Operation 5,1480 -lErl = 92; -///Goto Goto 5,1481 Dest:OK -goto IL_2d6e; -///Label Label 5,1482 2 -IL_2d6e: -///Operation Operation 5,1483 -num = 548; -///Operation Operation 5,1484 -num12 = (short)unchecked(num12 + 1); -///Operation Operation 5,1485 -num13 = num12; -///Operation Operation 5,1486 -num11 = 302; -///Operation Operation 5,1487 -if (num13 <= num11) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_2956; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1488 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_32fc; -///BlockEnd Block 6,2 -} -///Label Label 5,1489 4 -IL_32fc: -///Operation Operation 5,1490 -num = 606; -///Operation Operation 5,1491 -lErl = 45; -///Goto Goto 5,1492 Dest:OK -goto IL_3307; -///Label Label 5,1493 2 -IL_3307: -///Operation Operation 5,1494 -num = 607; -///Operation Operation 5,1495 -Modul1.LiText += sDest2; -///Goto Goto 5,1496 Dest:OK -goto IL_3320; -///Label Label 5,1497 3 -IL_3320: -///Operation Operation 5,1498 -num = 609; -///Operation Operation 5,1499 -if ((Modul1.LiText).Trim() != "") -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3348; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1500 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3383; -///BlockEnd Block 6,2 -} -///Label Label 5,1501 2 -IL_3348: -///Operation Operation 5,1502 -num = 610; -///Operation Operation 5,1503 -List1.Items.Add(new ListItem(Modul1.LiText + " " + Modul1.PersInArb.AsString())); -///Goto Goto 5,1504 Dest:OK -goto IL_3383; -///Label Label 5,1505 3 -IL_3383: -///Operation Operation 5,1506 -num = 612; -///Operation Operation 5,1507 -Modul1.LiText = ""; -///Goto Goto 5,1508 Dest:OK -goto IL_3395; -///Label Label 5,1509 14 -IL_3395: -///Operation Operation 5,1510 -num = 613; -///Operation Operation 5,1511 -lErl = 95; -///Goto Goto 5,1512 Dest:OK -goto IL_33a0; -///Label Label 5,1513 2 -IL_33a0: -///Operation Operation 5,1514 -num = 614; -///Operation Operation 5,1515 -I1++; -///Goto Goto 5,1516 Dest:OK -goto IL_33b6; -///Label Label 5,1517 2 -IL_33b6: -///Operation Operation 5,1518 -i7 = I1; -///Operation Operation 5,1519 -num5 = num10; -///Operation Operation 5,1520 -if (i7 <= num5) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_26e3; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1521 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_33c7; -///BlockEnd Block 6,2 -} -///Label Label 5,1522 2 -IL_33c7: -///Operation Operation 5,1523 -num = 615; -///Operation Operation 5,1524 -Label4.Text = List1.Items.Count - 1.AsString() + " Einträge"; -///Goto Goto 5,1525 Dest:OK -goto IL_448a; -///Label Label 5,1526 2 -IL_3406: -///Operation Operation 5,1527 -num = 618; -///Operation Operation 5,1528 -List1.Items.Clear(); -///Goto Goto 5,1529 Dest:OK -goto IL_341e; -///Label Label 5,1530 2 -IL_341e: -///Operation Operation 5,1531 -num = 619; -///Operation Operation 5,1532 -Label1[2].Text = Modul1.IText[84]; -///Goto Goto 5,1533 Dest:OK -goto IL_343f; -///Label Label 5,1534 2 -IL_343f: -///Operation Operation 5,1535 -num = 620; -///Operation Operation 5,1536 -Label1[0].Text = "Name Elternteil Kind Pate Zeuge Adoptivkind verbunden"; -///Goto Goto 5,1537 Dest:OK -goto IL_345d; -///Label Label 5,1538 2 -IL_345d: -///Operation Operation 5,1539 -num = 621; -///Operation Operation 5,1540 -num7 = 1; -///Goto Goto 5,1541 Dest:OK -goto IL_3467; -///Label Label 5,1542 2 -IL_3467: -///Operation Operation 5,1543 -num = 622; -///Operation Operation 5,1544 -if (num7 <= 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,2 -} -///Goto Goto 5,1545 Dest:OK -goto IL_3482; -///Label Label 5,1546 2 -IL_3482: -///Operation Operation 5,1547 -num = 625; -///Operation Operation 5,1548 -DataModul.DB_PersonTable.Index = nameof(DataModul.PersonIndex.PerNr); -///Goto Goto 5,1549 Dest:OK -goto IL_3499; -///Label Label 5,1550 2 -IL_3499: -///Operation Operation 5,1551 -num = 626; -///Operation Operation 5,1552 -DataModul.DB_PersonTable.MoveLast(); -///Goto Goto 5,1553 Dest:OK -goto IL_34ac; -///Label Label 5,1554 2 -IL_34ac: -///Operation Operation 5,1555 -num = 627; -///Operation Operation 5,1556 -num8 = DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value.AsInt(); -///Goto Goto 5,1557 Dest:OK -goto IL_34d3; -///Label Label 5,1558 2 -IL_34d3: -///Operation Operation 5,1559 -num = 628; -///Operation Operation 5,1560 -if (num7 == 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,2 -} -///Goto Goto 5,1561 Dest:OK -goto IL_34eb; -///Label Label 5,1562 2 -IL_34eb: -///Operation Operation 5,1563 -num = 631; -///Operation Operation 5,1564 -if ((num7 > DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_351e; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1565 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_355f; -///BlockEnd Block 6,2 -} -///Label Label 5,1566 2 -IL_351e: -///Operation Operation 5,1567 -num = 632; -///Operation Operation 5,1568 -Interaction.MsgBox(Modul1.IText[173] + " " + num7.AsString() + Modul1.IText[172]); -///Goto Goto 5,1569 Dest:OK -goto end_IL_0001_2; -///Label Label 5,1570 2 -IL_355f: -///Operation Operation 5,1571 -num = 635; -///Operation Operation 5,1572 -Label1[1].Text = "unvollständig verknüpfte Personen "; -///Goto Goto 5,1573 Dest:OK -goto IL_357d; -///Label Label 5,1574 2 -IL_357d: -///Operation Operation 5,1575 -num = 636; -///Operation Operation 5,1576 -Modul1.Schalt = 3; -///Goto Goto 5,1577 Dest:OK -goto IL_358a; -///Label Label 5,1578 2 -IL_358a: -///Operation Operation 5,1579 -num = 637; -///Operation Operation 5,1580 -ProgressBar1.Minimum = 0; -///Goto Goto 5,1581 Dest:OK -goto IL_359e; -///Label Label 5,1582 2 -IL_359e: -///Operation Operation 5,1583 -num = 638; -///Operation Operation 5,1584 -ProgressBar1.Maximum = 0; -///Goto Goto 5,1585 Dest:OK -goto IL_35b2; -///Label Label 5,1586 2 -IL_35b2: -///Operation Operation 5,1587 -num = 639; -///Operation Operation 5,1588 -ProgressBar1.Step = 1; -///Goto Goto 5,1589 Dest:OK -goto IL_35c6; -///Label Label 5,1590 2 -IL_35c6: -///Operation Operation 5,1591 -num = 640; -///Operation Operation 5,1592 -ProgressBar1.Maximum = DataModul.DB_PersonTable.RecordCount - 1; -///Goto Goto 5,1593 Dest:OK -goto IL_35e5; -///Label Label 5,1594 2 -IL_35e5: -///Operation Operation 5,1595 -num = 641; -///Operation Operation 5,1596 -i3 = num7; -///Operation Operation 5,1597 -num9 = DataModul.DB_PersonTable.RecordCount - 1; -///Operation Operation 5,1598 -I1 = i3; -///Goto Goto 5,1599 Dest:OK -goto IL_3dfe; -///Label Label 5,1600 2 -IL_3607: -///Operation Operation 5,1601 -num = 642; -///Operation Operation 5,1602 -ProgressBar1.PerformStep(); -///Goto Goto 5,1603 Dest:OK -goto IL_361a; -///Label Label 5,1604 2 -IL_361a: -///Operation Operation 5,1605 -num = 643; -///Operation Operation 5,1606 -Application.DoEvents(); -///Goto Goto 5,1607 Dest:OK -goto IL_3627; -///Label Label 5,1608 2 -IL_3627: -///Operation Operation 5,1609 -num = 644; -///Operation Operation 5,1610 -Modul1.PersInArb = I1; -///Goto Goto 5,1611 Dest:OK -goto IL_3639; -///Label Label 5,1612 2 -IL_3639: -///Operation Operation 5,1613 -num = 645; -///Operation Operation 5,1614 -sDest = new string(' ', 80); -///Goto Goto 5,1615 Dest:OK -goto IL_364b; -///Label Label 5,1616 2 -IL_364b: -///Operation Operation 5,1617 -num = 646; -///Operation Operation 5,1618 -if (Modul1.PersInArb <= num8) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3666; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1619 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_448a; -///BlockEnd Block 6,2 -} -///Label Label 5,1620 2 -IL_3666: -///Operation Operation 5,1621 -num = 649; -///Operation Operation 5,1622 -DataModul.DB_PersonTable.Seek("=", Modul1.PersInArb.AsString()); -///Goto Goto 5,1623 Dest:OK -goto IL_36c8; -///Label Label 5,1624 2 -IL_36c8: -///Operation Operation 5,1625 -num = 650; -///Operation Operation 5,1626 -if (!DataModul.DB_PersonTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_36e4; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1627 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3de8; -///BlockEnd Block 6,2 -} -///Label Label 5,1628 2 -IL_36e4: -///Operation Operation 5,1629 -num = 653; -///Operation Operation 5,1630 -LiKi = 1; -///Goto Goto 5,1631 Dest:OK -goto IL_36f2; -///Label Label 5,1632 2 -IL_36f2: -///Operation Operation 5,1633 -num = 654; -///Operation Operation 5,1634 -LiEl = 1; -///Goto Goto 5,1635 Dest:OK -goto IL_3700; -///Label Label 5,1636 2 -IL_3700: -///Operation Operation 5,1637 -num = 655; -///Comment LComment 5,1638 -//LiPa = 1; -///Goto Goto 5,1639 Dest:OK -goto IL_370e; -///Label Label 5,1640 2 -IL_370e: -///Operation Operation 5,1641 -num = 656; -///Operation Operation 5,1642 -Modul1.Kenn = 3f; -///Goto Goto 5,1643 Dest:OK -goto IL_371f; -///Label Label 5,1644 2 -IL_371f: -///Operation Operation 5,1645 -num = 657; -///Operation Operation 5,1646 -DataModul.DB_LinkTable.Index = nameof(DataModul.LinkIndex.ElSu); -///Goto Goto 5,1647 Dest:OK -goto IL_3736; -///Label Label 5,1648 2 -IL_3736: -///Operation Operation 5,1649 -num = 658; -///Operation Operation 5,1650 -DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), Modul1.Kenn); -///Goto Goto 5,1651 Dest:OK -goto IL_379d; -///Label Label 5,1652 2 -IL_379d: -///Operation Operation 5,1653 -num = 659; -///Operation Operation 5,1654 -if (DataModul.DB_LinkTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_37b4; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1655 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_37c2; -///BlockEnd Block 6,2 -} -///Label Label 5,1656 2 -IL_37b4: -///Operation Operation 5,1657 -num = 660; -///Operation Operation 5,1658 -LiKi = 0; -///Goto Goto 5,1659 Dest:OK -goto IL_37c2; -///Label Label 5,1660 3 -IL_37c2: -///Operation Operation 5,1661 -num = 662; -///Operation Operation 5,1662 -Modul1.Kenn = 1f; -///Goto Goto 5,1663 Dest:OK -goto IL_37d3; -///Label Label 5,1664 2 -IL_37d3: -///Operation Operation 5,1665 -num = 663; -///Operation Operation 5,1666 -Modul1.PerSatzLes(); -///Goto Goto 5,1667 Dest:OK -goto IL_37e0; -///Label Label 5,1668 2 -IL_37e0: -///Operation Operation 5,1669 -num = 664; -///Operation Operation 5,1670 -if ((DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.Sex)].AsString() == "F")) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3811; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1671 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3822; -///BlockEnd Block 6,2 -} -///Label Label 5,1672 2 -IL_3811: -///Operation Operation 5,1673 -num = 665; -///Operation Operation 5,1674 -Modul1.Kenn = 2f; -///Goto Goto 5,1675 Dest:OK -goto IL_3822; -///Label Label 5,1676 3 -IL_3822: -///Operation Operation 5,1677 -num = 667; -///Operation Operation 5,1678 -DataModul.DB_LinkTable.Index = nameof(DataModul.LinkIndex.ElSu); -///Goto Goto 5,1679 Dest:OK -goto IL_3839; -///Label Label 5,1680 2 -IL_3839: -///Operation Operation 5,1681 -num = 668; -///Operation Operation 5,1682 -DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), Modul1.Kenn); -///Goto Goto 5,1683 Dest:OK -goto IL_38a0; -///Label Label 5,1684 2 -IL_38a0: -///Operation Operation 5,1685 -num = 669; -///Operation Operation 5,1686 -if (DataModul.DB_LinkTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_38b7; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1687 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_38c5; -///BlockEnd Block 6,2 -} -///Label Label 5,1688 2 -IL_38b7: -///Operation Operation 5,1689 -num = 670; -///Operation Operation 5,1690 -LiEl = 0; -///Goto Goto 5,1691 Dest:OK -goto IL_38c5; -///Label Label 5,1692 3 -IL_38c5: -///Operation Operation 5,1693 -num = 672; -///Operation Operation 5,1694 -if ((LiKi == 0) & (LiEl == 0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_38e8; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1695 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3de8; -///BlockEnd Block 6,2 -} -///Label Label 5,1696 2 -IL_38e8: -///Operation Operation 5,1697 -num = 673; -///Operation Operation 5,1698 -Modul1.Personlesen(Modul1.PersInArb); -///Goto Goto 5,1699 Dest:OK -goto IL_38f5; -///Label Label 5,1700 2 -IL_38f5: -///Operation Operation 5,1701 -num = 674; -///Operation Operation 5,1702 -StringType.MidStmtStr(ref sDest, 1, 20, Strings.Left((Modul1.Kont[0]).Trim() + "," + (Modul1.Kont[3]).Trim() + " ", 20)); -///Goto Goto 5,1703 Dest:OK -goto IL_3935; -///Label Label 5,1704 2 -IL_3935: -///Operation Operation 5,1705 -num = 675; -///Operation Operation 5,1706 -if (LiEl == 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_394b; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1707 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3962; -///BlockEnd Block 6,2 -} -///Label Label 5,1708 2 -IL_394b: -///Operation Operation 5,1709 -num = 676; -///Operation Operation 5,1710 -StringType.MidStmtStr(ref sDest, 24, 1, "N"); -///Goto Goto 5,1711 Dest:OK -goto IL_3962; -///Label Label 5,1712 3 -IL_3962: -///Operation Operation 5,1713 -num = 678; -///Operation Operation 5,1714 -if (LiKi == 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3978; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1715 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_398f; -///BlockEnd Block 6,2 -} -///Label Label 5,1716 2 -IL_3978: -///Operation Operation 5,1717 -num = 679; -///Operation Operation 5,1718 -StringType.MidStmtStr(ref sDest, 30, 1, "N"); -///Goto Goto 5,1719 Dest:OK -goto IL_398f; -///Label Label 5,1720 3 -IL_398f: -///Operation Operation 5,1721 -num = 681; -///Operation Operation 5,1722 -DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 4); -///Goto Goto 5,1723 Dest:OK -goto IL_39f2; -///Label Label 5,1724 2 -IL_39f2: -///Operation Operation 5,1725 -num = 682; -///Operation Operation 5,1726 -if (!DataModul.DB_LinkTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3a0c; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1727 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3a23; -///BlockEnd Block 6,2 -} -///Label Label 5,1728 2 -IL_3a0c: -///Operation Operation 5,1729 -num = 683; -///Operation Operation 5,1730 -StringType.MidStmtStr(ref sDest, 36, 1, "J"); -///Goto Goto 5,1731 Dest:OK -goto IL_3a23; -///Label Label 5,1732 3 -IL_3a23: -///Operation Operation 5,1733 -num = 685; -///Operation Operation 5,1734 -DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 5); -///Goto Goto 5,1735 Dest:OK -goto IL_3a86; -///Label Label 5,1736 2 -IL_3a86: -///Operation Operation 5,1737 -num = 686; -///Operation Operation 5,1738 -if (!DataModul.DB_LinkTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3aa0; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1739 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3ab7; -///BlockEnd Block 6,2 -} -///Label Label 5,1740 2 -IL_3aa0: -///Operation Operation 5,1741 -num = 687; -///Operation Operation 5,1742 -StringType.MidStmtStr(ref sDest, 46, 1, "J"); -///Goto Goto 5,1743 Dest:OK -goto IL_3ab7; -///Label Label 5,1744 3 -IL_3ab7: -///Operation Operation 5,1745 -num = 689; -///Operation Operation 5,1746 -DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 6); -///Goto Goto 5,1747 Dest:OK -goto IL_3b1a; -///Label Label 5,1748 2 -IL_3b1a: -///Operation Operation 5,1749 -num = 690; -///Operation Operation 5,1750 -if (!DataModul.DB_LinkTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3b34; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1751 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3b4b; -///BlockEnd Block 6,2 -} -///Label Label 5,1752 2 -IL_3b34: -///Operation Operation 5,1753 -num = 691; -///Operation Operation 5,1754 -StringType.MidStmtStr(ref sDest, 46, 1, "J"); -///Goto Goto 5,1755 Dest:OK -goto IL_3b4b; -///Label Label 5,1756 3 -IL_3b4b: -///Operation Operation 5,1757 -num = 693; -///Operation Operation 5,1758 -DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 7); -///Goto Goto 5,1759 Dest:OK -goto IL_3bae; -///Label Label 5,1760 2 -IL_3bae: -///Operation Operation 5,1761 -num = 694; -///Operation Operation 5,1762 -if (!DataModul.DB_LinkTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3bc8; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1763 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3bdf; -///BlockEnd Block 6,2 -} -///Label Label 5,1764 2 -IL_3bc8: -///Operation Operation 5,1765 -num = 695; -///Operation Operation 5,1766 -StringType.MidStmtStr(ref sDest, 46, 1, "J"); -///Goto Goto 5,1767 Dest:OK -goto IL_3bdf; -///Label Label 5,1768 3 -IL_3bdf: -///Operation Operation 5,1769 -num = 697; -///Operation Operation 5,1770 -DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 8); -///Goto Goto 5,1771 Dest:OK -goto IL_3c42; -///Label Label 5,1772 2 -IL_3c42: -///Operation Operation 5,1773 -num = 698; -///Operation Operation 5,1774 -if (!DataModul.DB_LinkTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3c5c; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1775 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3c73; -///BlockEnd Block 6,2 -} -///Label Label 5,1776 2 -IL_3c5c: -///Operation Operation 5,1777 -num = 699; -///Operation Operation 5,1778 -StringType.MidStmtStr(ref sDest, 55, 1, "J"); -///Goto Goto 5,1779 Dest:OK -goto IL_3c73; -///Label Label 5,1780 3 -IL_3c73: -///Operation Operation 5,1781 -num = 701; -///Operation Operation 5,1782 -DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), 9); -///Goto Goto 5,1783 Dest:OK -goto IL_3cd7; -///Label Label 5,1784 2 -IL_3cd7: -///Operation Operation 5,1785 -num = 702; -///Operation Operation 5,1786 -if (!DataModul.DB_LinkTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3cf1; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1787 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3d08; -///BlockEnd Block 6,2 -} -///Label Label 5,1788 2 -IL_3cf1: -///Operation Operation 5,1789 -num = 703; -///Operation Operation 5,1790 -StringType.MidStmtStr(ref sDest, 70, 1, "J"); -///Goto Goto 5,1791 Dest:OK -goto IL_3d08; -///Label Label 5,1792 3 -IL_3d08: -///Operation Operation 5,1793 -num = 705; -///Operation Operation 5,1794 -DataModul.DB_WitnessTable.Index = nameof(DataModul.WitnessIndex.ElSu); -///Goto Goto 5,1795 Dest:OK -goto IL_3d1f; -///Label Label 5,1796 2 -IL_3d1f: -///Operation Operation 5,1797 -num = 706; -///Operation Operation 5,1798 -DataModul.DB_WitnessTable.Seek("=", Modul1.PersInArb, "10"); -///Goto Goto 5,1799 Dest:OK -goto IL_3d7c; -///Label Label 5,1800 2 -IL_3d7c: -///Operation Operation 5,1801 -num = 707; -///Operation Operation 5,1802 -if (!DataModul.DB_WitnessTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3d96; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1803 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3dad; -///BlockEnd Block 6,2 -} -///Label Label 5,1804 2 -IL_3d96: -///Operation Operation 5,1805 -num = 708; -///Operation Operation 5,1806 -StringType.MidStmtStr(ref sDest, 46, 1, "J"); -///Goto Goto 5,1807 Dest:OK -goto IL_3dad; -///Label Label 5,1808 3 -IL_3dad: -///Operation Operation 5,1809 -num = 710; -///Operation Operation 5,1810 -List1.Items.Add(new ListItem(sDest + " " + Modul1.PersInArb.AsString())); -///Goto Goto 5,1811 Dest:OK -goto IL_3de8; -///Label Label 5,1812 4 -IL_3de8: -///Operation Operation 5,1813 -num = 712; -///Operation Operation 5,1814 -I1++; -///Goto Goto 5,1815 Dest:OK -goto IL_3dfe; -///Label Label 5,1816 2 -IL_3dfe: -///Operation Operation 5,1817 -i4 = I1; -///Operation Operation 5,1818 -num5 = num9; -///Operation Operation 5,1819 -if (i4 <= num5) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3607; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1820 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3e0f; -///BlockEnd Block 6,2 -} -///Label Label 5,1821 2 -IL_3e0f: -///Operation Operation 5,1822 -num = 713; -///Operation Operation 5,1823 -Label4.Text = List1.Items.Count - 1.AsString() + " Einträge"; -///Goto Goto 5,1824 Dest:OK -goto IL_448a; -///Label Label 5,1825 2 -IL_3e4e: -///Operation Operation 5,1826 -num = 716; -///Operation Operation 5,1827 -List2.Visible = true; -///Goto Goto 5,1828 Dest:OK -goto IL_3e62; -///Label Label 5,1829 2 -IL_3e62: -///Operation Operation 5,1830 -num = 717; -///Operation Operation 5,1831 -List2.Items.Clear(); -///Goto Goto 5,1832 Dest:OK -goto IL_3e7a; -///Label Label 5,1833 2 -IL_3e7a: -///Operation Operation 5,1834 -num = 718; -///Operation Operation 5,1835 -num7 = 1; -///Goto Goto 5,1836 Dest:OK -goto IL_3e84; -///Label Label 5,1837 2 -IL_3e84: -///Operation Operation 5,1838 -num = 719; -///Operation Operation 5,1839 -if (num7 <= 0) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,2 -} -///Goto Goto 5,1840 Dest:OK -goto IL_3e9f; -///Label Label 5,1841 2 -IL_3e9f: -///Operation Operation 5,1842 -num = 722; -///Operation Operation 5,1843 -Label1[2].Text = "Fehlliste Orte"; -///Goto Goto 5,1844 Dest:OK -goto IL_3ebd; -///Label Label 5,1845 2 -IL_3ebd: -///Operation Operation 5,1846 -num = 723; -///Operation Operation 5,1847 -Label1[1].Text = " Nr Ort Orsteil Kreis Land Staat Loc Länge Breite PLZ Terr StKz"; -///Goto Goto 5,1848 Dest:OK -goto IL_3edb; -///Label Label 5,1849 2 -IL_3edb: -///Operation Operation 5,1850 -num = 724; -///Operation Operation 5,1851 -Label1[0].Text = " "; -///Goto Goto 5,1852 Dest:OK -goto IL_3ef9; -///Label Label 5,1853 2 -IL_3ef9: -///Operation Operation 5,1854 -num = 725; -///Operation Operation 5,1855 -List2.Items.Add("Fehlliste Orte"); -///Goto Goto 5,1856 Dest:OK -goto IL_3f16; -///Label Label 5,1857 2 -IL_3f16: -///Operation Operation 5,1858 -num = 726; -///Operation Operation 5,1859 -List2.Items.Add(" Nr Ort Ortsteil Kreis Land Staat Loc. Laenge Breite PLZ Terr. StKz"); -///Goto Goto 5,1860 Dest:OK -goto IL_3f33; -///Label Label 5,1861 2 -IL_3f33: -///Operation Operation 5,1862 -num = 727; -///Operation Operation 5,1863 -DataModul.DB_PlaceTable.MoveFirst(); -///Goto Goto 5,1864 Dest:OK -goto IL_3f45; -///Label Label 5,1865 2 -IL_3f45: -///Operation Operation 5,1866 -num = 728; -///Operation Operation 5,1867 -DataModul.DB_PlaceTable.Index = nameof(DataModul.PlaceIndex.OrtNr); -///Goto Goto 5,1868 Dest:OK -goto IL_3f5c; -///Label Label 5,1869 2 -IL_3f5c: -///Operation Operation 5,1870 -num = 729; -///Operation Operation 5,1871 -DataModul.DB_PlaceTable.Seek(">=", num7); -///Goto Goto 5,1872 Dest:OK -goto IL_3fb6; -///Label Label 5,1873 2 -IL_3fb6: -///Operation Operation 5,1874 -num = 730; -///Operation Operation 5,1875 -this.A = 1; -///Goto Goto 5,1876 Dest:OK -goto IL_3fc4; -///Label Label 5,1877 2 -IL_3fc4: -///Operation Operation 5,1878 -num = 731; -///Operation Operation 5,1879 -if (!DataModul.DB_PlaceTable.NoMatch) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_441a; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1880 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_4439; -///BlockEnd Block 6,2 -} -///Label Label 5,1881 2 -IL_3fe6: -///Operation Operation 5,1882 -num = 734; -///Operation Operation 5,1883 -Modul1.LiText = new string(' ', 80); -///Goto Goto 5,1884 Dest:OK -goto IL_3ffb; -///Label Label 5,1885 2 -IL_3ffb: -///Operation Operation 5,1886 -num = 735; -///Operation Operation 5,1887 -StringType.MidStmtStr(ref Modul1.LiText, 1, 10, Strings.Right(" " + DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.OrtNr)].Value.AsString(), 10)); -///Goto Goto 5,1888 Dest:OK -goto IL_4044; -///Label Label 5,1889 2 -IL_4044: -///Operation Operation 5,1890 -num = 736; -///Operation Operation 5,1891 -if ((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Ort)].AsInt() == 0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_4076; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1892 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_4091; -///BlockEnd Block 6,2 -} -///Label Label 5,1893 2 -IL_4076: -///Operation Operation 5,1894 -num = 737; -///Operation Operation 5,1895 -StringType.MidStmtStr(ref Modul1.LiText, 12, 2, "F "); -///Goto Goto 5,1896 Dest:OK -goto IL_4091; -///Label Label 5,1897 3 -IL_4091: -///Operation Operation 5,1898 -num = 739; -///Operation Operation 5,1899 -if ((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Ortsteil)].AsInt() == 0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_40c3; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1900 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_40de; -///BlockEnd Block 6,2 -} -///Label Label 5,1901 2 -IL_40c3: -///Operation Operation 5,1902 -num = 740; -///Operation Operation 5,1903 -StringType.MidStmtStr(ref Modul1.LiText, 20, 2, "F "); -///Goto Goto 5,1904 Dest:OK -goto IL_40de; -///Label Label 5,1905 3 -IL_40de: -///Operation Operation 5,1906 -num = 742; -///Operation Operation 5,1907 -if ((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Kreis)].AsInt() == 0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_4110; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1908 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_412b; -///BlockEnd Block 6,2 -} -///Label Label 5,1909 2 -IL_4110: -///Operation Operation 5,1910 -num = 743; -///Operation Operation 5,1911 -StringType.MidStmtStr(ref Modul1.LiText, 28, 2, "F "); -///Goto Goto 5,1912 Dest:OK -goto IL_412b; -///Label Label 5,1913 3 -IL_412b: -///Operation Operation 5,1914 -num = 745; -///Operation Operation 5,1915 -if ((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Land)].AsInt() == 0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_415d; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1916 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_4178; -///BlockEnd Block 6,2 -} -///Label Label 5,1917 2 -IL_415d: -///Operation Operation 5,1918 -num = 746; -///Operation Operation 5,1919 -StringType.MidStmtStr(ref Modul1.LiText, 34, 2, "F "); -///Goto Goto 5,1920 Dest:OK -goto IL_4178; -///Label Label 5,1921 3 -IL_4178: -///Operation Operation 5,1922 -num = 748; -///Operation Operation 5,1923 -if ((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Staat)].AsInt() == 0)) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_41aa; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1924 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_41c5; -///BlockEnd Block 6,2 -} -///Label Label 5,1925 2 -IL_41aa: -///Operation Operation 5,1926 -num = 749; -///Operation Operation 5,1927 -StringType.MidStmtStr(ref Modul1.LiText, 39, 2, "F "); -///Goto Goto 5,1928 Dest:OK -goto IL_41c5; -///Label Label 5,1929 3 -IL_41c5: -///Operation Operation 5,1930 -num = 751; -///Operation Operation 5,1931 -if (Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Loc)].AsString()) == "") -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_4203; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1932 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_421e; -///BlockEnd Block 6,2 -} -///Label Label 5,1933 2 -IL_4203: -///Operation Operation 5,1934 -num = 752; -///Operation Operation 5,1935 -StringType.MidStmtStr(ref Modul1.LiText, 44, 2, "F "); -///Goto Goto 5,1936 Dest:OK -goto IL_421e; -///Label Label 5,1937 3 -IL_421e: -///Operation Operation 5,1938 -num = 754; -///Operation Operation 5,1939 -if (Strings.Len(Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.L)].AsString())) <= 1) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_4259; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1940 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_4274; -///BlockEnd Block 6,2 -} -///Label Label 5,1941 2 -IL_4259: -///Operation Operation 5,1942 -num = 755; -///Operation Operation 5,1943 -StringType.MidStmtStr(ref Modul1.LiText, 52, 2, "F "); -///Goto Goto 5,1944 Dest:OK -goto IL_4274; -///Label Label 5,1945 3 -IL_4274: -///Operation Operation 5,1946 -num = 757; -///Operation Operation 5,1947 -if (Strings.Len(Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.B)].AsString())) <= 1) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_42af; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1948 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_42ca; -///BlockEnd Block 6,2 -} -///Label Label 5,1949 2 -IL_42af: -///Operation Operation 5,1950 -num = 758; -///Operation Operation 5,1951 -StringType.MidStmtStr(ref Modul1.LiText, 58, 2, "F "); -///Goto Goto 5,1952 Dest:OK -goto IL_42ca; -///Label Label 5,1953 3 -IL_42ca: -///Operation Operation 5,1954 -num = 760; -///Operation Operation 5,1955 -if (Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.PLZ)].AsString()) == "") -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_4308; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1956 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_4323; -///BlockEnd Block 6,2 -} -///Label Label 5,1957 2 -IL_4308: -///Operation Operation 5,1958 -num = 761; -///Operation Operation 5,1959 -StringType.MidStmtStr(ref Modul1.LiText, 63, 2, "F "); -///Goto Goto 5,1960 Dest:OK -goto IL_4323; -///Label Label 5,1961 3 -IL_4323: -///Operation Operation 5,1962 -num = 763; -///Operation Operation 5,1963 -if (Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Terr)].AsString()) == "") -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_4361; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1964 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_437c; -///BlockEnd Block 6,2 -} -///Label Label 5,1965 2 -IL_4361: -///Operation Operation 5,1966 -num = 764; -///Operation Operation 5,1967 -StringType.MidStmtStr(ref Modul1.LiText, 68, 2, "F "); -///Goto Goto 5,1968 Dest:OK -goto IL_437c; -///Label Label 5,1969 3 -IL_437c: -///Operation Operation 5,1970 -num = 766; -///Operation Operation 5,1971 -if (Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Staatk)].AsString()) == "") -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_43ba; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1972 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_43d5; -///BlockEnd Block 6,2 -} -///Label Label 5,1973 2 -IL_43ba: -///Operation Operation 5,1974 -num = 767; -///Operation Operation 5,1975 -StringType.MidStmtStr(ref Modul1.LiText, 71, 2, "F "); -///Goto Goto 5,1976 Dest:OK -goto IL_43d5; -///Label Label 5,1977 3 -IL_43d5: -///Operation Operation 5,1978 -num = 769; -///Operation Operation 5,1979 -List2.Items.Add(Modul1.LiText); -///Goto Goto 5,1980 Dest:OK -goto IL_43f2; -///Label Label 5,1981 2 -IL_43f2: -///Operation Operation 5,1982 -num = 770; -///Operation Operation 5,1983 -Modul1.LiText = new string(' ', 80); -///Goto Goto 5,1984 Dest:OK -goto IL_4407; -///Label Label 5,1985 2 -IL_4407: -///Operation Operation 5,1986 -num = 771; -///Operation Operation 5,1987 -DataModul.DB_PlaceTable.MoveNext(); -///Goto Goto 5,1988 Dest:OK -goto IL_441a; -///Label Label 5,1989 3 -IL_441a: -///Operation Operation 5,1990 -num = 733; -///Operation Operation 5,1991 -if (!DataModul.DB_PlaceTable.EOF) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_3fe6; -///BlockEnd Block 6,2 -} -///Operation Operation 5,1992 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_4454; -///BlockEnd Block 6,2 -} -///Label Label 5,1993 2 -IL_4439: -///Operation Operation 5,1994 -num = 774; -///Goto Goto 5,1995 Dest:OK -goto IL_4441; -///Label Label 5,1996 2 -IL_4441: -///Operation Operation 5,1997 -num = 775; -///Operation Operation 5,1998 -DataModul.DB_PlaceTable.MoveNext(); -///Goto Goto 5,1999 Dest:OK -goto IL_4454; -///Label Label 5,2000 3 -IL_4454: -///Operation Operation 5,2001 -num = 777; -///Operation Operation 5,2002 -if (DataModul.DB_PlaceTable.EOF) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_446b; -///BlockEnd Block 6,2 -} -///Operation Operation 5,2003 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_448a; -///BlockEnd Block 6,2 -} -///Label Label 5,2004 2 -IL_446b: -///Operation Operation 5,2005 -num = 778; -///Operation Operation 5,2006 -List2.Items.Add("Ende der Liste"); -///Goto Goto 5,2007 Dest:OK -goto IL_448a; -///Label Label 5,2008 14 -IL_448a: -///Operation Operation 5,2009 -num = 781; -///Operation Operation 5,2010 -lErl = 4; -///Goto Goto 5,2011 Dest:OK -goto IL_4494; -///Label Label 5,2012 2 -IL_4494: -///Operation Operation 5,2013 -num = 782; -///Operation Operation 5,2014 -if (!RadioButton2.Checked) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,2 -} -///Goto Goto 5,2015 Dest:OK -goto IL_44ac; -///Label Label 5,2016 2 -IL_44ac: -///Operation Operation 5,2017 -num = 783; -///Operation Operation 5,2018 -List1.Items.Add("Ende der Liste"); -///Goto Goto 5,2019 Dest:OK -goto IL_44c9; -///Label Label 5,2020 2 -IL_44c9: -///Operation Operation 5,2021 -num = 784; -///Operation Operation 5,2022 -Modul1.I = 1; -///Goto Goto 5,2023 Dest:OK -goto IL_44d6; -///Label Label 5,2024 3 -IL_44d6: -///Operation Operation 5,2025 -num = 785; -///Operation Operation 5,2026 -List1.Items.Add(""); -///Goto Goto 5,2027 Dest:OK -goto IL_44f3; -///Label Label 5,2028 2 -IL_44f3: -///Operation Operation 5,2029 -num = 786; -///Operation Operation 5,2030 -Modul1.I++; -///Operation Operation 5,2031 -i17 = Modul1.I; -///Operation Operation 5,2032 -num5 = 17; -///Operation Operation 5,2033 -if (i17 > num5) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,2 -} -///Goto Goto 5,2034 Dest:OK -goto IL_44d6; -///Label Label 5,2035 2 -IL_451d: -///Operation Operation 5,2036 -num = 789; -///Operation Operation 5,2037 -if (Information.Err().Number == 6) -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_4537; -///BlockEnd Block 6,2 -} -///Operation Operation 5,2038 -else -///BlockStart Block 6,0 -{ -///Goto Goto 6,1 Dest:OK -goto IL_4563; -///BlockEnd Block 6,2 -} -///Label Label 5,2039 2 -IL_4537: -///Operation Operation 5,2040 -num = 790; -///Operation Operation 5,2041 -num7 = 200000000; -///Goto Goto 5,2042 Dest:OK -goto IL_4545; -///Label Label 5,2043 2 -IL_4545: -///Operation Operation 5,2044 -num = 791; -///Operation Operation 5,2045 -ProjectData.ClearProjectError(); -///Operation Operation 5,2046 -if (num2 == 0) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -throw ProjectData.CreateProjectError(-2146828268); -///BlockEnd Block 6,2 -} -///Goto Goto 5,2047 Dest:OK -goto IL_45b9; -///Label Label 5,2048 2 -IL_4563: -///Operation Operation 5,2049 -num = 794; -///Operation Operation 5,2050 -if (Interaction.MsgBox(Conversion.ErrorToString(), MsgBoxStyle.OkCancel, (Information.Err().Number).AsString()) == MsgBoxResult.Cancel) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -ProjectData.EndApp(); -///BlockEnd Block 6,2 -} -///Goto Goto 5,2051 Dest:OK -goto IL_4593; -///Label Label 5,2052 2 -IL_4593: -///Operation Operation 5,2053 -num = 797; -///Operation Operation 5,2054 -ProjectData.ClearProjectError(); -///Operation Operation 5,2055 -if (num2 == 0) -///BlockStart Block 6,0 -{ -///Operation Operation 6,1 -throw ProjectData.CreateProjectError(-2146828268); -///BlockEnd Block 6,2 -} -///Operation Operation 5,2056 -num4 = num2; -///Goto Goto 5,2057 Dest:OK -goto IL_45bd; -///Label Label 5,2058 2 -IL_45b9: -///Operation Operation 5,2059 -num4 = unchecked(num2 + 1); -///Goto Goto 5,2060 Dest:OK -goto IL_45bd; -///Label Label 5,2061 2 -IL_45bd: -///Operation Operation 5,2062 -num2 = 0; -///Operation Operation 5,2063 -switch (num4) -///BlockStart Block 6,0 -{ -///Label Label 6,1 -case 1: -///Operation Operation 6,2 -break; -///Label Label 6,3 -case 2: -///Goto Goto 6,4 Dest:OK -goto IL_0016; -///Label Label 6,5 -case 3: -///Goto Goto 6,6 Dest:OK -goto IL_0026; -///Label Label 6,7 -case 4: -///Goto Goto 6,8 Dest:OK -goto IL_0036; -///Label Label 6,9 -case 5: -///Goto Goto 6,10 Dest:OK -goto IL_003e; -///Label Label 6,11 -case 7: -///Label Label 6,12 -case 9: -///Goto Goto 6,13 Dest:OK -goto IL_006f; -///Label Label 6,14 -case 10: -///Goto Goto 6,15 Dest:OK -goto IL_0080; -///Label Label 6,16 -case 12: -///Label Label 6,17 -case 13: -///Goto Goto 6,18 Dest:OK -goto IL_0094; -///Label Label 6,19 -case 6: -///Label Label 6,20 -case 11: -///Label Label 6,21 -case 14: -///Label Label 6,22 -case 15: -///Goto Goto 6,23 Dest:OK -goto IL_00a6; -///Label Label 6,24 -case 16: -///Goto Goto 6,25 Dest:OK -goto IL_00bb; -///Label Label 6,26 -case 17: -///Goto Goto 6,27 Dest:OK -goto IL_00db; -///Label Label 6,28 -case 18: -///Label Label 6,29 -case 19: -///Goto Goto 6,30 Dest:OK -goto IL_00ed; -///Label Label 6,31 -case 20: -///Goto Goto 6,32 Dest:OK -goto IL_010d; -///Label Label 6,33 -case 21: -///Label Label 6,34 -case 22: -///Goto Goto 6,35 Dest:OK -goto IL_011f; -///Label Label 6,36 -case 23: -///Goto Goto 6,37 Dest:OK -goto IL_0130; -///Label Label 6,38 -case 24: -///Goto Goto 6,39 Dest:OK -goto IL_0141; -///Label Label 6,40 -case 25: -///Goto Goto 6,41 Dest:OK -goto IL_0156; -///Label Label 6,42 -case 26: -///Goto Goto 6,43 Dest:OK -goto IL_016b; -///Label Label 6,44 -case 27: -///Label Label 6,45 -case 28: -///Goto Goto 6,46 Dest:OK -goto IL_017c; -///Label Label 6,47 -case 29: -///Goto Goto 6,48 Dest:OK -goto IL_0191; -///Label Label 6,49 -case 30: -///Label Label 6,50 -case 31: -///Goto Goto 6,51 Dest:OK -goto IL_01a2; -///Label Label 6,52 -case 33: -///Label Label 6,53 -case 35: -///Goto Goto 6,54 Dest:OK -goto IL_01d7; -///Label Label 6,55 -case 36: -///Goto Goto 6,56 Dest:OK -goto IL_01ec; -///Label Label 6,57 -case 37: -///Goto Goto 6,58 Dest:OK -goto IL_0207; -///Label Label 6,59 -case 38: -///Goto Goto 6,60 Dest:OK -goto IL_0228; -///Label Label 6,61 -case 39: -///Goto Goto 6,62 Dest:OK -goto IL_0249; -///Label Label 6,63 -case 40: -///Goto Goto 6,64 Dest:OK -goto IL_027a; -///Label Label 6,65 -case 41: -///Goto Goto 6,66 Dest:OK -goto IL_02ab; -///Label Label 6,67 -case 42: -///Goto Goto 6,68 Dest:OK -goto IL_02b6; -///Label Label 6,69 -case 43: -///Goto Goto 6,70 Dest:OK -goto IL_02d2; -///Label Label 6,71 -case 44: -///Goto Goto 6,72 Dest:OK -goto IL_02f2; -///Label Label 6,73 -case 45: -///Goto Goto 6,74 Dest:OK -goto IL_02f9; -///Label Label 6,75 -case 47: -///Label Label 6,76 -case 48: -///Goto Goto 6,77 Dest:OK -goto IL_0311; -///Label Label 6,78 -case 49: -///Goto Goto 6,79 Dest:OK -goto IL_0325; -///Label Label 6,80 -case 50: -///Goto Goto 6,81 Dest:OK -goto IL_0335; -///Label Label 6,82 -case 51: -///Goto Goto 6,83 Dest:OK -goto IL_0359; -///Label Label 6,84 -case 53: -///Label Label 6,85 -case 54: -///Goto Goto 6,86 Dest:OK -goto IL_036e; -///Label Label 6,87 -case 55: -///Goto Goto 6,88 Dest:OK -goto IL_039e; -///Label Label 6,89 -case 57: -///Label Label 6,90 -case 58: -///Goto Goto 6,91 Dest:OK -goto IL_03dd; -///Label Label 6,92 -case 59: -///Goto Goto 6,93 Dest:OK -goto IL_03ee; -///Label Label 6,94 -case 60: -///Goto Goto 6,95 Dest:OK -goto IL_03ff; -///Label Label 6,96 -case 61: -///Goto Goto 6,97 Dest:OK -goto IL_0410; -///Label Label 6,98 -case 62: -///Goto Goto 6,99 Dest:OK -goto IL_042c; -///Label Label 6,100 -case 63: -///Goto Goto 6,101 Dest:OK -goto IL_0441; -///Label Label 6,102 -case 64: -///Goto Goto 6,103 Dest:OK -goto IL_0456; -///Label Label 6,104 -case 65: -///Goto Goto 6,105 Dest:OK -goto IL_0466; -///Label Label 6,106 -case 66: -///Goto Goto 6,107 Dest:OK -goto IL_0470; -///Label Label 6,108 -case 67: -///Goto Goto 6,109 Dest:OK -goto IL_047f; -///Label Label 6,110 -case 69: -///Label Label 6,111 -case 70: -///Goto Goto 6,112 Dest:OK -goto IL_0497; -///Label Label 6,113 -case 71: -///Goto Goto 6,114 Dest:OK -goto IL_04f6; -///Label Label 6,115 -case 73: -///Label Label 6,116 -case 74: -///Goto Goto 6,117 Dest:OK -goto IL_050f; -///Label Label 6,118 -case 75: -///Goto Goto 6,119 Dest:OK -goto IL_0519; -///Label Label 6,120 -case 76: -///Goto Goto 6,121 Dest:OK -goto IL_0550; -///Label Label 6,122 -case 77: -///Goto Goto 6,123 Dest:OK -goto IL_055b; -///Label Label 6,124 -case 78: -///Goto Goto 6,125 Dest:OK -goto IL_0566; -///Label Label 6,126 -case 79: -///Goto Goto 6,127 Dest:OK -goto IL_057f; -///Label Label 6,128 -case 80: -///Goto Goto 6,129 Dest:OK -goto IL_0598; -///Label Label 6,130 -case 81: -///Goto Goto 6,131 Dest:OK -goto IL_05ba; -///Label Label 6,132 -case 82: -///Goto Goto 6,133 Dest:OK -goto IL_05c4; -///Label Label 6,134 -case 83: -///Goto Goto 6,135 Dest:OK -goto IL_05cf; -///Label Label 6,136 -case 84: -///Goto Goto 6,137 Dest:OK -goto IL_05f2; -///Label Label 6,138 -case 85: -///Goto Goto 6,139 Dest:OK -goto IL_0615; -///Label Label 6,140 -case 86: -///Goto Goto 6,141 Dest:OK -goto IL_0639; -///Label Label 6,142 -case 87: -///Goto Goto 6,143 Dest:OK -goto IL_065d; -///Label Label 6,144 -case 88: -///Goto Goto 6,145 Dest:OK -goto IL_0667; -///Label Label 6,146 -case 89: -///Goto Goto 6,147 Dest:OK -goto IL_067b; -///Label Label 6,148 -case 90: -///Goto Goto 6,149 Dest:OK -goto IL_06db; -///Label Label 6,150 -case 92: -///Label Label 6,151 -case 93: -///Goto Goto 6,152 Dest:OK -goto IL_06f4; -///Label Label 6,153 -case 95: -///Label Label 6,154 -case 97: -///Goto Goto 6,155 Dest:OK -goto IL_071b; -///Label Label 6,156 -case 98: -///Goto Goto 6,157 Dest:OK -goto IL_074a; -///Label Label 6,158 -case 99: -///Label Label 6,159 -case 100: -///Goto Goto 6,160 Dest:OK -goto IL_0764; -///Label Label 6,161 -case 101: -///Goto Goto 6,162 Dest:OK -goto IL_0793; -///Label Label 6,163 -case 102: -///Label Label 6,164 -case 103: -///Goto Goto 6,165 Dest:OK -goto IL_07ad; -///Label Label 6,166 -case 104: -///Goto Goto 6,167 Dest:OK -goto IL_07dc; -///Label Label 6,168 -case 105: -///Label Label 6,169 -case 106: -///Goto Goto 6,170 Dest:OK -goto IL_07f6; -///Label Label 6,171 -case 107: -///Goto Goto 6,172 Dest:OK -goto IL_082e; -///Label Label 6,173 -case 110: -///Label Label 6,174 -case 111: -///Goto Goto 6,175 Dest:OK -goto IL_084e; -///Label Label 6,176 -case 112: -///Goto Goto 6,177 Dest:OK -goto IL_087d; -///Label Label 6,178 -case 113: -///Label Label 6,179 -case 114: -///Goto Goto 6,180 Dest:OK -goto IL_0897; -///Label Label 6,181 -case 115: -///Goto Goto 6,182 Dest:OK -goto IL_08c6; -///Label Label 6,183 -case 116: -///Label Label 6,184 -case 117: -///Goto Goto 6,185 Dest:OK -goto IL_08e0; -///Label Label 6,186 -case 118: -///Goto Goto 6,187 Dest:OK -goto IL_090f; -///Label Label 6,188 -case 119: -///Label Label 6,189 -case 120: -///Goto Goto 6,190 Dest:OK -goto IL_0929; -///Label Label 6,191 -case 121: -///Goto Goto 6,192 Dest:OK -goto IL_0961; -///Label Label 6,193 -case 124: -///Label Label 6,194 -case 125: -///Goto Goto 6,195 Dest:OK -goto IL_0981; -///Label Label 6,196 -case 126: -///Goto Goto 6,197 Dest:OK -goto IL_09b0; -///Label Label 6,198 -case 127: -///Label Label 6,199 -case 128: -///Goto Goto 6,200 Dest:OK -goto IL_09ca; -///Label Label 6,201 -case 129: -///Goto Goto 6,202 Dest:OK -goto IL_09fc; -///Label Label 6,203 -case 130: -///Label Label 6,204 -case 131: -///Goto Goto 6,205 Dest:OK -goto IL_0a19; -///Label Label 6,206 -case 132: -///Goto Goto 6,207 Dest:OK -goto IL_0a4b; -///Label Label 6,208 -case 133: -///Label Label 6,209 -case 134: -///Goto Goto 6,210 Dest:OK -goto IL_0a68; -///Label Label 6,211 -case 135: -///Goto Goto 6,212 Dest:OK -goto IL_0aa3; -///Label Label 6,213 -case 91: -///Label Label 6,214 -case 94: -///Label Label 6,215 -case 108: -///Label Label 6,216 -case 109: -///Label Label 6,217 -case 122: -///Label Label 6,218 -case 123: -///Label Label 6,219 -case 136: -///Label Label 6,220 -case 137: -///Label Label 6,221 -case 138: -///Goto Goto 6,222 Dest:OK -goto IL_0ac2; -///Label Label 6,223 -case 139: -///Goto Goto 6,224 Dest:OK -goto IL_0acc; -///Label Label 6,225 -case 140: -///Goto Goto 6,226 Dest:OK -goto IL_0ae8; -///Label Label 6,227 -case 141: -///Goto Goto 6,228 Dest:OK -goto IL_0b00; -///Label Label 6,229 -case 142: -///Goto Goto 6,230 Dest:OK -goto IL_0b0d; -///Label Label 6,231 -case 143: -///Goto Goto 6,232 Dest:OK -goto IL_0b40; -///Label Label 6,233 -case 144: -///Goto Goto 6,234 Dest:OK -goto IL_0b71; -///Label Label 6,235 -case 145: -///Label Label 6,236 -case 147: -///Goto Goto 6,237 Dest:OK -goto IL_0b8b; -///Label Label 6,238 -case 148: -///Goto Goto 6,239 Dest:OK -goto IL_0ba2; -///Label Label 6,240 -case 149: -///Goto Goto 6,241 Dest:OK -goto IL_0c00; -///Label Label 6,242 -case 150: -///Goto Goto 6,243 Dest:OK -goto IL_0c1a; -///Label Label 6,244 -case 151: -///Label Label 6,245 -case 152: -///Goto Goto 6,246 Dest:OK -goto IL_0c34; -///Label Label 6,247 -case 153: -///Goto Goto 6,248 Dest:OK -goto IL_0c6f; -///Label Label 6,249 -case 72: -///Label Label 6,250 -case 154: -///Goto Goto 6,251 Dest:OK -goto IL_0c81; -///Label Label 6,252 -case 155: -///Goto Goto 6,253 Dest:OK -goto IL_0c8b; -///Label Label 6,254 -case 156: -///Goto Goto 6,255 Dest:OK -goto IL_0cb2; -///Label Label 6,256 -case 158: -///Label Label 6,257 -case 159: -///Goto Goto 6,258 Dest:OK -goto IL_0cef; -///Label Label 6,259 -case 160: -///Goto Goto 6,260 Dest:OK -goto IL_0d06; -///Label Label 6,261 -case 161: -///Goto Goto 6,262 Dest:OK -goto IL_0d1e; -///Label Label 6,263 -case 162: -///Goto Goto 6,264 Dest:OK -goto IL_0d3c; -///Label Label 6,265 -case 163: -///Goto Goto 6,266 Dest:OK -goto IL_0d5a; -///Label Label 6,267 -case 164: -///Goto Goto 6,268 Dest:OK -goto IL_0d78; -///Label Label 6,269 -case 165: -///Goto Goto 6,270 Dest:OK -goto IL_0d90; -///Label Label 6,271 -case 166: -///Label Label 6,272 -case 167: -///Goto Goto 6,273 Dest:OK -goto IL_0dad; -///Label Label 6,274 -case 168: -///Goto Goto 6,275 Dest:OK -goto IL_0dc5; -///Label Label 6,276 -case 169: -///Label Label 6,277 -case 170: -///Goto Goto 6,278 Dest:OK -goto IL_0de2; -///Label Label 6,279 -case 171: -///Goto Goto 6,280 Dest:OK -goto IL_0dfa; -///Label Label 6,281 -case 172: -///Label Label 6,282 -case 173: -///Goto Goto 6,283 Dest:OK -goto IL_0e17; -///Label Label 6,284 -case 174: -///Goto Goto 6,285 Dest:OK -goto IL_0e24; -///Label Label 6,286 -case 175: -///Goto Goto 6,287 Dest:OK -goto IL_0e42; -///Label Label 6,288 -case 176: -///Goto Goto 6,289 Dest:OK -goto IL_0e62; -///Label Label 6,290 -case 177: -///Goto Goto 6,291 Dest:OK -goto IL_0e6c; -///Label Label 6,292 -case 179: -///Label Label 6,293 -case 180: -///Goto Goto 6,294 Dest:OK -goto IL_0e87; -///Label Label 6,295 -case 181: -///Goto Goto 6,296 Dest:OK -goto IL_0e9a; -///Label Label 6,297 -case 182: -///Goto Goto 6,298 Dest:OK -goto IL_0ec1; -///Label Label 6,299 -case 183: -///Goto Goto 6,300 Dest:OK -goto IL_0ef4; -///Label Label 6,301 -case 185: -///Label Label 6,302 -case 186: -///Goto Goto 6,303 Dest:OK -goto IL_0f36; -///Label Label 6,304 -case 187: -///Goto Goto 6,305 Dest:OK -goto IL_0f4a; -///Label Label 6,306 -case 188: -///Goto Goto 6,307 Dest:OK -goto IL_0f69; -///Label Label 6,308 -case 189: -///Goto Goto 6,309 Dest:OK -goto IL_0f7d; -///Label Label 6,310 -case 190: -///Goto Goto 6,311 Dest:OK -goto IL_0f95; -///Label Label 6,312 -case 191: -///Goto Goto 6,313 Dest:OK -goto IL_0fa8; -///Label Label 6,314 -case 192: -///Goto Goto 6,315 Dest:OK -goto IL_0fb5; -///Label Label 6,316 -case 193: -///Goto Goto 6,317 Dest:OK -goto IL_0fc3; -///Label Label 6,318 -case 194: -///Goto Goto 6,319 Dest:OK -goto IL_0fd5; -///Label Label 6,320 -case 196: -///Label Label 6,321 -case 197: -///Goto Goto 6,322 Dest:OK -goto IL_0ff0; -///Label Label 6,323 -case 198: -///Goto Goto 6,324 Dest:OK -goto IL_1007; -///Label Label 6,325 -case 199: -///Goto Goto 6,326 Dest:OK -goto IL_1069; -///Label Label 6,327 -case 201: -///Label Label 6,328 -case 202: -///Goto Goto 6,329 Dest:OK -goto IL_1085; -///Label Label 6,330 -case 203: -///Goto Goto 6,331 Dest:OK -goto IL_1092; -///Label Label 6,332 -case 204: -///Goto Goto 6,333 Dest:OK -goto IL_10aa; -///Label Label 6,334 -case 205: -///Goto Goto 6,335 Dest:OK -goto IL_10bb; -///Label Label 6,336 -case 206: -///Goto Goto 6,337 Dest:OK -goto IL_10c8; -///Label Label 6,338 -case 207: -///Goto Goto 6,339 Dest:OK -goto IL_10ed; -///Label Label 6,340 -case 209: -///Goto Goto 6,341 Dest:OK -goto IL_1108; -///Label Label 6,342 -case 210: -///Goto Goto 6,343 Dest:OK -goto IL_1110; -///Label Label 6,344 -case 208: -///Label Label 6,345 -case 211: -///Label Label 6,346 -case 212: -///Goto Goto 6,347 Dest:OK -goto IL_1128; -///Label Label 6,348 -case 213: -///Label Label 6,349 -case 214: -///Goto Goto 6,350 Dest:OK -goto IL_1140; -///Label Label 6,351 -case 215: -///Goto Goto 6,352 Dest:OK -goto IL_1158; -///Label Label 6,353 -case 216: -///Goto Goto 6,354 Dest:OK -goto IL_1169; -///Label Label 6,355 -case 217: -///Goto Goto 6,356 Dest:OK -goto IL_1176; -///Label Label 6,357 -case 218: -///Goto Goto 6,358 Dest:OK -goto IL_119b; -///Label Label 6,359 -case 220: -///Goto Goto 6,360 Dest:OK -goto IL_11b7; -///Label Label 6,361 -case 221: -///Goto Goto 6,362 Dest:OK -goto IL_11bf; -///Label Label 6,363 -case 219: -///Label Label 6,364 -case 222: -///Label Label 6,365 -case 223: -///Label Label 6,366 -case 224: -///Goto Goto 6,367 Dest:OK -goto IL_11d9; -///Label Label 6,368 -case 225: -///Goto Goto 6,369 Dest:OK -goto IL_11f3; -///Label Label 6,370 -case 226: -///Label Label 6,371 -case 227: -///Goto Goto 6,372 Dest:OK -goto IL_1210; -///Label Label 6,373 -case 228: -///Goto Goto 6,374 Dest:OK -goto IL_1227; -///Label Label 6,375 -case 229: -///Goto Goto 6,376 Dest:OK -goto IL_123e; -///Label Label 6,377 -case 230: -///Goto Goto 6,378 Dest:OK -goto IL_129b; -///Label Label 6,379 -case 232: -///Label Label 6,380 -case 233: -///Goto Goto 6,381 Dest:OK -goto IL_12b7; -///Label Label 6,382 -case 234: -///Goto Goto 6,383 Dest:OK -goto IL_12e9; -///Label Label 6,384 -case 235: -///Label Label 6,385 -case 236: -///Goto Goto 6,386 Dest:OK -goto IL_1306; -///Label Label 6,387 -case 237: -///Goto Goto 6,388 Dest:OK -goto IL_1313; -///Label Label 6,389 -case 238: -///Goto Goto 6,390 Dest:OK -goto IL_1320; -///Label Label 6,391 -case 239: -///Goto Goto 6,392 Dest:OK -goto IL_138c; -///Label Label 6,393 -case 241: -///Label Label 6,394 -case 242: -///Goto Goto 6,395 Dest:OK -goto IL_13a8; -///Label Label 6,396 -case 244: -///Label Label 6,397 -case 246: -///Goto Goto 6,398 Dest:OK -goto IL_13e2; -///Label Label 6,399 -case 247: -///Goto Goto 6,400 Dest:OK -goto IL_1414; -///Label Label 6,401 -case 248: -///Label Label 6,402 -case 249: -///Goto Goto 6,403 Dest:OK -goto IL_1431; -///Label Label 6,404 -case 250: -///Goto Goto 6,405 Dest:OK -goto IL_146c; -///Label Label 6,406 -case 253: -///Label Label 6,407 -case 254: -///Goto Goto 6,408 Dest:OK -goto IL_148f; -///Label Label 6,409 -case 255: -///Goto Goto 6,410 Dest:OK -goto IL_14c1; -///Label Label 6,411 -case 256: -///Label Label 6,412 -case 257: -///Goto Goto 6,413 Dest:OK -goto IL_14de; -///Label Label 6,414 -case 258: -///Goto Goto 6,415 Dest:OK -goto IL_1519; -///Label Label 6,416 -case 261: -///Label Label 6,417 -case 262: -///Goto Goto 6,418 Dest:OK -goto IL_153c; -///Label Label 6,419 -case 263: -///Goto Goto 6,420 Dest:OK -goto IL_156e; -///Label Label 6,421 -case 264: -///Label Label 6,422 -case 265: -///Goto Goto 6,423 Dest:OK -goto IL_158b; -///Label Label 6,424 -case 266: -///Goto Goto 6,425 Dest:OK -goto IL_15c6; -///Label Label 6,426 -case 269: -///Label Label 6,427 -case 270: -///Goto Goto 6,428 Dest:OK -goto IL_15e9; -///Label Label 6,429 -case 271: -///Goto Goto 6,430 Dest:OK -goto IL_161b; -///Label Label 6,431 -case 272: -///Label Label 6,432 -case 273: -///Goto Goto 6,433 Dest:OK -goto IL_1638; -///Label Label 6,434 -case 274: -///Goto Goto 6,435 Dest:OK -goto IL_1673; -///Label Label 6,436 -case 277: -///Label Label 6,437 -case 278: -///Goto Goto 6,438 Dest:OK -goto IL_1696; -///Label Label 6,439 -case 279: -///Goto Goto 6,440 Dest:OK -goto IL_16c8; -///Label Label 6,441 -case 280: -///Label Label 6,442 -case 281: -///Goto Goto 6,443 Dest:OK -goto IL_16e5; -///Label Label 6,444 -case 282: -///Goto Goto 6,445 Dest:OK -goto IL_1720; -///Label Label 6,446 -case 285: -///Label Label 6,447 -case 286: -///Goto Goto 6,448 Dest:OK -goto IL_1743; -///Label Label 6,449 -case 287: -///Goto Goto 6,450 Dest:OK -goto IL_1775; -///Label Label 6,451 -case 288: -///Label Label 6,452 -case 289: -///Goto Goto 6,453 Dest:OK -goto IL_1792; -///Label Label 6,454 -case 290: -///Goto Goto 6,455 Dest:OK -goto IL_17cd; -///Label Label 6,456 -case 240: -///Label Label 6,457 -case 243: -///Label Label 6,458 -case 251: -///Label Label 6,459 -case 252: -///Label Label 6,460 -case 259: -///Label Label 6,461 -case 260: -///Label Label 6,462 -case 267: -///Label Label 6,463 -case 268: -///Label Label 6,464 -case 275: -///Label Label 6,465 -case 276: -///Label Label 6,466 -case 283: -///Label Label 6,467 -case 284: -///Label Label 6,468 -case 291: -///Label Label 6,469 -case 292: -///Label Label 6,470 -case 293: -///Goto Goto 6,471 Dest:OK -goto IL_17ec; -///Label Label 6,472 -case 294: -///Goto Goto 6,473 Dest:OK -goto IL_17f7; -///Label Label 6,474 -case 295: -///Goto Goto 6,475 Dest:OK -goto IL_1814; -///Label Label 6,476 -case 296: -///Goto Goto 6,477 Dest:OK -goto IL_181e; -///Label Label 6,478 -case 297: -///Goto Goto 6,479 Dest:OK -goto IL_188a; -///Label Label 6,480 -case 298: -///Goto Goto 6,481 Dest:OK -goto IL_18a7; -///Label Label 6,482 -case 299: -///Goto Goto 6,483 Dest:OK -goto IL_18d9; -///Label Label 6,484 -case 300: -///Label Label 6,485 -case 301: -///Goto Goto 6,486 Dest:OK -goto IL_18f0; -///Label Label 6,487 -case 302: -///Goto Goto 6,488 Dest:OK -goto IL_192b; -///Label Label 6,489 -case 303: -///Label Label 6,490 -case 304: -///Label Label 6,491 -case 305: -///Goto Goto 6,492 Dest:OK -goto IL_1943; -///Label Label 6,493 -case 200: -///Label Label 6,494 -case 231: -///Label Label 6,495 -case 306: -///Goto Goto 6,496 Dest:OK -goto IL_197c; -///Label Label 6,497 -case 307: -///Goto Goto 6,498 Dest:OK -goto IL_1987; -///Label Label 6,499 -case 308: -///Goto Goto 6,500 Dest:OK -goto IL_19ae; -///Label Label 6,501 -case 309: -///Goto Goto 6,502 Dest:OK -goto IL_19e7; -///Label Label 6,503 -case 310: -///Goto Goto 6,504 Dest:OK -goto IL_19ff; -///Label Label 6,505 -case 313: -///Label Label 6,506 -case 314: -///Goto Goto 6,507 Dest:OK -goto IL_1a3c; -///Label Label 6,508 -case 315: -///Goto Goto 6,509 Dest:OK -goto IL_1a54; -///Label Label 6,510 -case 316: -///Goto Goto 6,511 Dest:OK -goto IL_1a6c; -///Label Label 6,512 -case 317: -///Goto Goto 6,513 Dest:OK -goto IL_1a80; -///Label Label 6,514 -case 318: -///Goto Goto 6,515 Dest:OK -goto IL_1a94; -///Label Label 6,516 -case 321: -///Label Label 6,517 -case 322: -///Goto Goto 6,518 Dest:OK -goto IL_1aae; -///Label Label 6,519 -case 323: -///Goto Goto 6,520 Dest:OK -goto IL_1acb; -///Label Label 6,521 -case 324: -///Goto Goto 6,522 Dest:OK -goto IL_1aed; -///Label Label 6,523 -case 325: -///Goto Goto 6,524 Dest:OK -goto IL_1b1c; -///Label Label 6,525 -case 326: -///Goto Goto 6,526 Dest:OK -goto IL_1b4b; -///Label Label 6,527 -case 327: -///Goto Goto 6,528 Dest:OK -goto IL_1b7a; -///Label Label 6,529 -case 328: -///Goto Goto 6,530 Dest:OK -goto IL_1b92; -///Label Label 6,531 -case 330: -///Goto Goto 6,532 Dest:OK -goto IL_1bb9; -///Label Label 6,533 -case 331: -///Goto Goto 6,534 Dest:OK -goto IL_1bc1; -///Label Label 6,535 -case 329: -///Label Label 6,536 -case 332: -///Label Label 6,537 -case 333: -///Goto Goto 6,538 Dest:OK -goto IL_1be7; -///Label Label 6,539 -case 335: -///Label Label 6,540 -case 336: -///Goto Goto 6,541 Dest:OK -goto IL_1c00; -///Label Label 6,542 -case 337: -///Goto Goto 6,543 Dest:OK -goto IL_1c0e; -///Label Label 6,544 -case 338: -///Goto Goto 6,545 Dest:OK -goto IL_1c26; -///Label Label 6,546 -case 339: -///Goto Goto 6,547 Dest:OK -goto IL_1c44; -///Label Label 6,548 -case 340: -///Goto Goto 6,549 Dest:OK -goto IL_1c62; -///Label Label 6,550 -case 341: -///Goto Goto 6,551 Dest:OK -goto IL_1c80; -///Label Label 6,552 -case 342: -///Goto Goto 6,553 Dest:OK -goto IL_1c98; -///Label Label 6,554 -case 343: -///Label Label 6,555 -case 344: -///Goto Goto 6,556 Dest:OK -goto IL_1cb5; -///Label Label 6,557 -case 345: -///Goto Goto 6,558 Dest:OK -goto IL_1ccd; -///Label Label 6,559 -case 346: -///Label Label 6,560 -case 347: -///Goto Goto 6,561 Dest:OK -goto IL_1cea; -///Label Label 6,562 -case 348: -///Goto Goto 6,563 Dest:OK -goto IL_1d02; -///Label Label 6,564 -case 349: -///Label Label 6,565 -case 350: -///Goto Goto 6,566 Dest:OK -goto IL_1d1f; -///Label Label 6,567 -case 351: -///Goto Goto 6,568 Dest:OK -goto IL_1d2c; -///Label Label 6,569 -case 352: -///Goto Goto 6,570 Dest:OK -goto IL_1d4a; -///Label Label 6,571 -case 353: -///Goto Goto 6,572 Dest:OK -goto IL_1d6a; -///Label Label 6,573 -case 354: -///Goto Goto 6,574 Dest:OK -goto IL_1d74; -///Label Label 6,575 -case 356: -///Label Label 6,576 -case 357: -///Goto Goto 6,577 Dest:OK -goto IL_1d8f; -///Label Label 6,578 -case 358: -///Goto Goto 6,579 Dest:OK -goto IL_1da2; -///Label Label 6,580 -case 359: -///Goto Goto 6,581 Dest:OK -goto IL_1dc9; -///Label Label 6,582 -case 360: -///Goto Goto 6,583 Dest:OK -goto IL_1dfc; -///Label Label 6,584 -case 362: -///Label Label 6,585 -case 363: -///Goto Goto 6,586 Dest:OK -goto IL_1e3d; -///Label Label 6,587 -case 364: -///Goto Goto 6,588 Dest:OK -goto IL_1e51; -///Label Label 6,589 -case 365: -///Goto Goto 6,590 Dest:OK -goto IL_1e65; -///Label Label 6,591 -case 366: -///Goto Goto 6,592 Dest:OK -goto IL_1e79; -///Label Label 6,593 -case 367: -///Goto Goto 6,594 Dest:OK -goto IL_1e9f; -///Label Label 6,595 -case 368: -///Goto Goto 6,596 Dest:OK -goto IL_1ec2; -///Label Label 6,597 -case 369: -///Goto Goto 6,598 Dest:OK -goto IL_1ed5; -///Label Label 6,599 -case 370: -///Goto Goto 6,600 Dest:OK -goto IL_1ee2; -///Label Label 6,601 -case 371: -///Goto Goto 6,602 Dest:OK -goto IL_1ef0; -///Label Label 6,603 -case 372: -///Goto Goto 6,604 Dest:OK -goto IL_1f02; -///Label Label 6,605 -case 374: -///Label Label 6,606 -case 375: -///Goto Goto 6,607 Dest:OK -goto IL_1f1d; -///Label Label 6,608 -case 376: -///Goto Goto 6,609 Dest:OK -goto IL_1f34; -///Label Label 6,610 -case 377: -///Goto Goto 6,611 Dest:OK -goto IL_1f96; -///Label Label 6,612 -case 379: -///Label Label 6,613 -case 380: -///Goto Goto 6,614 Dest:OK -goto IL_1fb2; -///Label Label 6,615 -case 381: -///Goto Goto 6,616 Dest:OK -goto IL_1fbf; -///Label Label 6,617 -case 382: -///Goto Goto 6,618 Dest:OK -goto IL_1fd7; -///Label Label 6,619 -case 383: -///Goto Goto 6,620 Dest:OK -goto IL_1fe8; -///Label Label 6,621 -case 384: -///Goto Goto 6,622 Dest:OK -goto IL_1ff5; -///Label Label 6,623 -case 385: -///Goto Goto 6,624 Dest:OK -goto IL_201a; -///Label Label 6,625 -case 387: -///Goto Goto 6,626 Dest:OK -goto IL_2035; -///Label Label 6,627 -case 388: -///Goto Goto 6,628 Dest:OK -goto IL_203d; -///Label Label 6,629 -case 386: -///Label Label 6,630 -case 389: -///Label Label 6,631 -case 390: -///Goto Goto 6,632 Dest:OK -goto IL_2055; -///Label Label 6,633 -case 391: -///Label Label 6,634 -case 392: -///Goto Goto 6,635 Dest:OK -goto IL_206d; -///Label Label 6,636 -case 393: -///Goto Goto 6,637 Dest:OK -goto IL_2085; -///Label Label 6,638 -case 394: -///Goto Goto 6,639 Dest:OK -goto IL_2096; -///Label Label 6,640 -case 395: -///Goto Goto 6,641 Dest:OK -goto IL_20a3; -///Label Label 6,642 -case 396: -///Goto Goto 6,643 Dest:OK -goto IL_20c8; -///Label Label 6,644 -case 398: -///Goto Goto 6,645 Dest:OK -goto IL_20e4; -///Label Label 6,646 -case 399: -///Goto Goto 6,647 Dest:OK -goto IL_20ec; -///Label Label 6,648 -case 397: -///Label Label 6,649 -case 400: -///Label Label 6,650 -case 401: -///Label Label 6,651 -case 402: -///Goto Goto 6,652 Dest:OK -goto IL_2106; -///Label Label 6,653 -case 403: -///Goto Goto 6,654 Dest:OK -goto IL_2120; -///Label Label 6,655 -case 404: -///Label Label 6,656 -case 405: -///Goto Goto 6,657 Dest:OK -goto IL_213d; -///Label Label 6,658 -case 406: -///Goto Goto 6,659 Dest:OK -goto IL_2154; -///Label Label 6,660 -case 407: -///Goto Goto 6,661 Dest:OK -goto IL_216b; -///Label Label 6,662 -case 408: -///Goto Goto 6,663 Dest:OK -goto IL_21c8; -///Label Label 6,664 -case 410: -///Label Label 6,665 -case 411: -///Goto Goto 6,666 Dest:OK -goto IL_21e4; -///Label Label 6,667 -case 412: -///Goto Goto 6,668 Dest:OK -goto IL_2216; -///Label Label 6,669 -case 413: -///Label Label 6,670 -case 414: -///Goto Goto 6,671 Dest:OK -goto IL_2233; -///Label Label 6,672 -case 415: -///Goto Goto 6,673 Dest:OK -goto IL_2240; -///Label Label 6,674 -case 416: -///Goto Goto 6,675 Dest:OK -goto IL_224d; -///Label Label 6,676 -case 417: -///Goto Goto 6,677 Dest:OK -goto IL_22b9; -///Label Label 6,678 -case 419: -///Label Label 6,679 -case 420: -///Goto Goto 6,680 Dest:OK -goto IL_22d8; -///Label Label 6,681 -case 422: -///Label Label 6,682 -case 423: -///Goto Goto 6,683 Dest:OK -goto IL_22fa; -///Label Label 6,684 -case 378: -///Label Label 6,685 -case 409: -///Label Label 6,686 -case 421: -///Label Label 6,687 -case 424: -///Goto Goto 6,688 Dest:OK -goto IL_2317; -///Label Label 6,689 -case 425: -///Goto Goto 6,690 Dest:OK -goto IL_2322; -///Label Label 6,691 -case 426: -///Goto Goto 6,692 Dest:OK -goto IL_238e; -///Label Label 6,693 -case 428: -///Label Label 6,694 -case 429: -///Goto Goto 6,695 Dest:OK -goto IL_23aa; -///Label Label 6,696 -case 430: -///Goto Goto 6,697 Dest:OK -goto IL_23cf; -///Label Label 6,698 -case 431: -///Goto Goto 6,699 Dest:OK -goto IL_2407; -///Label Label 6,700 -case 373: -///Label Label 6,701 -case 418: -///Label Label 6,702 -case 427: -///Label Label 6,703 -case 432: -///Label Label 6,704 -case 433: -///Goto Goto 6,705 Dest:OK -goto IL_241f; -///Label Label 6,706 -case 434: -///Goto Goto 6,707 Dest:OK -goto IL_242a; -///Label Label 6,708 -case 435: -///Goto Goto 6,709 Dest:OK -goto IL_2451; -///Label Label 6,710 -case 438: -///Label Label 6,711 -case 439: -///Goto Goto 6,712 Dest:OK -goto IL_2496; -///Label Label 6,713 -case 440: -///Goto Goto 6,714 Dest:OK -goto IL_24ae; -///Label Label 6,715 -case 441: -///Goto Goto 6,716 Dest:OK -goto IL_24cc; -///Label Label 6,717 -case 442: -///Goto Goto 6,718 Dest:OK -goto IL_24f0; -///Label Label 6,719 -case 443: -///Goto Goto 6,720 Dest:OK -goto IL_2514; -///Label Label 6,721 -case 444: -///Goto Goto 6,722 Dest:OK -goto IL_2522; -///Label Label 6,723 -case 445: -///Goto Goto 6,724 Dest:OK -goto IL_2541; -///Label Label 6,725 -case 446: -///Goto Goto 6,726 Dest:OK -goto IL_2564; -///Label Label 6,727 -case 447: -///Goto Goto 6,728 Dest:OK -goto IL_256e; -///Label Label 6,729 -case 449: -///Label Label 6,730 -case 450: -///Goto Goto 6,731 Dest:OK -goto IL_2589; -///Label Label 6,732 -case 451: -///Goto Goto 6,733 Dest:OK -goto IL_25a0; -///Label Label 6,734 -case 452: -///Goto Goto 6,735 Dest:OK -goto IL_25b3; -///Label Label 6,736 -case 453: -///Goto Goto 6,737 Dest:OK -goto IL_25da; -///Label Label 6,738 -case 455: -///Label Label 6,739 -case 456: -///Goto Goto 6,740 Dest:OK -goto IL_25f2; -///Label Label 6,741 -case 457: -///Goto Goto 6,742 Dest:OK -goto IL_2625; -///Label Label 6,743 -case 459: -///Label Label 6,744 -case 460: -///Goto Goto 6,745 Dest:OK -goto IL_2666; -///Label Label 6,746 -case 461: -///Goto Goto 6,747 Dest:OK -goto IL_267a; -///Label Label 6,748 -case 462: -///Goto Goto 6,749 Dest:OK -goto IL_268e; -///Label Label 6,750 -case 463: -///Goto Goto 6,751 Dest:OK -goto IL_26a2; -///Label Label 6,752 -case 464: -///Goto Goto 6,753 Dest:OK -goto IL_26c1; -///Label Label 6,754 -case 465: -///Goto Goto 6,755 Dest:OK -goto IL_26e3; -///Label Label 6,756 -case 466: -///Goto Goto 6,757 Dest:OK -goto IL_26f6; -///Label Label 6,758 -case 467: -///Goto Goto 6,759 Dest:OK -goto IL_2703; -///Label Label 6,760 -case 468: -///Goto Goto 6,761 Dest:OK -goto IL_2715; -///Label Label 6,762 -case 470: -///Label Label 6,763 -case 471: -///Goto Goto 6,764 Dest:OK -goto IL_2730; -///Label Label 6,765 -case 472: -///Goto Goto 6,766 Dest:OK -goto IL_2792; -///Label Label 6,767 -case 474: -///Label Label 6,768 -case 475: -///Goto Goto 6,769 Dest:OK -goto IL_27ae; -///Label Label 6,770 -case 476: -///Goto Goto 6,771 Dest:OK -goto IL_27bb; -///Label Label 6,772 -case 477: -///Goto Goto 6,773 Dest:OK -goto IL_27f5; -///Label Label 6,774 -case 478: -///Goto Goto 6,775 Dest:OK -goto IL_2803; -///Label Label 6,776 -case 479: -///Goto Goto 6,777 Dest:OK -goto IL_2811; -///Label Label 6,778 -case 480: -///Goto Goto 6,779 Dest:OK -goto IL_282d; -///Label Label 6,780 -case 481: -///Goto Goto 6,781 Dest:OK -goto IL_2849; -///Label Label 6,782 -case 482: -///Goto Goto 6,783 Dest:OK -goto IL_286e; -///Label Label 6,784 -case 483: -///Goto Goto 6,785 Dest:OK -goto IL_287b; -///Label Label 6,786 -case 484: -///Goto Goto 6,787 Dest:OK -goto IL_2889; -///Label Label 6,788 -case 486: -///Label Label 6,789 -case 487: -///Goto Goto 6,790 Dest:OK -goto IL_28b9; -///Label Label 6,791 -case 489: -///Label Label 6,792 -case 490: -///Goto Goto 6,793 Dest:OK -goto IL_28e9; -///Label Label 6,794 -case 492: -///Label Label 6,795 -case 493: -///Goto Goto 6,796 Dest:OK -goto IL_2919; -///Label Label 6,797 -case 495: -///Label Label 6,798 -case 496: -///Goto Goto 6,799 Dest:OK -goto IL_2949; -///Label Label 6,800 -case 497: -///Goto Goto 6,801 Dest:OK -goto IL_2956; -///Label Label 6,802 -case 498: -///Goto Goto 6,803 Dest:OK -goto IL_296d; -///Label Label 6,804 -case 499: -///Goto Goto 6,805 Dest:OK -goto IL_29d0; -///Label Label 6,806 -case 501: -///Label Label 6,807 -case 502: -///Goto Goto 6,808 Dest:OK -goto IL_29ec; -///Label Label 6,809 -case 504: -///Label Label 6,810 -case 506: -///Goto Goto 6,811 Dest:OK -goto IL_2a16; -///Label Label 6,812 -case 507: -///Goto Goto 6,813 Dest:OK -goto IL_2a48; -///Label Label 6,814 -case 508: -///Label Label 6,815 -case 509: -///Goto Goto 6,816 Dest:OK -goto IL_2a65; -///Label Label 6,817 -case 511: -///Label Label 6,818 -case 512: -///Goto Goto 6,819 Dest:OK -goto IL_2a9c; -///Label Label 6,820 -case 514: -///Label Label 6,821 -case 515: -///Goto Goto 6,822 Dest:OK -goto IL_2ad3; -///Label Label 6,823 -case 516: -///Goto Goto 6,824 Dest:OK -goto IL_2b0e; -///Label Label 6,825 -case 519: -///Label Label 6,826 -case 520: -///Goto Goto 6,827 Dest:OK -goto IL_2b31; -///Label Label 6,828 -case 521: -///Goto Goto 6,829 Dest:OK -goto IL_2b63; -///Label Label 6,830 -case 522: -///Label Label 6,831 -case 523: -///Goto Goto 6,832 Dest:OK -goto IL_2b80; -///Label Label 6,833 -case 525: -///Label Label 6,834 -case 526: -///Goto Goto 6,835 Dest:OK -goto IL_2bb7; -///Label Label 6,836 -case 528: -///Label Label 6,837 -case 529: -///Goto Goto 6,838 Dest:OK -goto IL_2bee; -///Label Label 6,839 -case 530: -///Goto Goto 6,840 Dest:OK -goto IL_2c29; -///Label Label 6,841 -case 533: -///Label Label 6,842 -case 534: -///Goto Goto 6,843 Dest:OK -goto IL_2c4c; -///Label Label 6,844 -case 535: -///Goto Goto 6,845 Dest:OK -goto IL_2c7e; -///Label Label 6,846 -case 536: -///Label Label 6,847 -case 537: -///Goto Goto 6,848 Dest:OK -goto IL_2c9b; -///Label Label 6,849 -case 539: -///Label Label 6,850 -case 540: -///Goto Goto 6,851 Dest:OK -goto IL_2cd2; -///Label Label 6,852 -case 542: -///Label Label 6,853 -case 543: -///Goto Goto 6,854 Dest:OK -goto IL_2d09; -///Label Label 6,855 -case 544: -///Goto Goto 6,856 Dest:OK -goto IL_2d44; -///Label Label 6,857 -case 500: -///Label Label 6,858 -case 503: -///Label Label 6,859 -case 517: -///Label Label 6,860 -case 518: -///Label Label 6,861 -case 531: -///Label Label 6,862 -case 532: -///Label Label 6,863 -case 545: -///Label Label 6,864 -case 546: -///Label Label 6,865 -case 547: -///Goto Goto 6,866 Dest:OK -goto IL_2d63; -///Label Label 6,867 -case 548: -///Goto Goto 6,868 Dest:OK -goto IL_2d6e; -///Label Label 6,869 -case 550: -///Operation Operation 6,870 -num = 550; -///Operation Operation 6,871 -Modul1.PersInArbsp = Modul1.PersInArb; -///Goto Goto 6,872 Dest:OK -goto case 551; -///Label Label 6,873 1 -case 551: -///Operation Operation 6,874 -num = 551; -///Operation Operation 6,875 -Modul1.Kenn = 1f; -///Goto Goto 6,876 Dest:OK -goto case 552; -///Label Label 6,877 1 -case 552: -///Operation Operation 6,878 -num = 552; -///Operation Operation 6,879 -if ((DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.Sex)].AsString() == "F")) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 553; -///BlockEnd Block 7,2 -} -///Goto Goto 6,880 Dest:OK -goto case 554; -///Label Label 6,881 1 -case 553: -///Operation Operation 6,882 -num = 553; -///Operation Operation 6,883 -Modul1.Kenn = 2f; -///Goto Goto 6,884 Dest:OK -goto case 554; -///Label Label 6,885 2 -case 554: -///Label Label 6,886 -case 555: -///Operation Operation 6,887 -num = 555; -///Operation Operation 6,888 -DataModul.DB_LinkTable.Index = nameof(DataModul.LinkIndex.ElSu); -///Goto Goto 6,889 Dest:OK -goto case 556; -///Label Label 6,890 1 -case 556: -///Operation Operation 6,891 -num = 556; -///Operation Operation 6,892 -DataModul.DB_LinkTable.Seek("=", Modul1.PersInArb.AsString(), Modul1.Kenn); -///Goto Goto 6,893 Dest:OK -goto case 557; -///Label Label 6,894 1 -case 557: -///Operation Operation 6,895 -num = 557; -///Operation Operation 6,896 -if (!DataModul.DB_LinkTable.NoMatch) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 559; -///BlockEnd Block 7,2 -} -///Goto Goto 6,897 Dest:OK -goto IL_3320; -///Label Label 6,898 1 -case 559: -///Operation Operation 6,899 -num = 559; -///Goto Goto 6,900 Dest:OK -goto case 560; -///Label Label 6,901 1 -case 560: -///Operation Operation 6,902 -num = 560; -///Operation Operation 6,903 -Modul1.FamInArb = DataModul.DB_LinkTable.Fields[nameof(DataModul.LinkFields.FamNr)].Value.AsInt(); -///Goto Goto 6,904 Dest:OK -goto case 561; -///Label Label 6,905 1 -case 561: -///Operation Operation 6,906 -num = 561; -///Operation Operation 6,907 -MainProject.Forms.Familie.Famles(Modul1.FamInArb); -///Goto Goto 6,908 Dest:OK -goto case 562; -///Label Label 6,909 1 -case 562: -///Operation Operation 6,910 -num = 562; -///Operation Operation 6,911 -if (Modul1.Kenn == 1f) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 563; -///BlockEnd Block 7,2 -} -///Goto Goto 6,912 Dest:OK -goto case 565; -///Label Label 6,913 1 -case 563: -///Operation Operation 6,914 -num = 563; -///Operation Operation 6,915 -Modul1.PersInArb = Modul1.Family.Frau; -///Goto Goto 6,916 Dest:OK -goto case 564; -///Label Label 6,917 1 -case 565: -///Operation Operation 6,918 -num = 565; -///Operation Operation 6,919 -if (Modul1.Kenn == 2f) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 566; -///BlockEnd Block 7,2 -} -///Goto Goto 6,920 Dest:OK -goto case 564; -///Label Label 6,921 1 -case 566: -///Operation Operation 6,922 -num = 566; -///Operation Operation 6,923 -Modul1.PersInArb = Modul1.Family.Mann; -///Goto Goto 6,924 Dest:OK -goto case 564; -///Label Label 6,925 3 -case 564: -///Label Label 6,926 -case 567: -///Label Label 6,927 -case 568: -///Operation Operation 6,928 -num = 568; -///Operation Operation 6,929 -DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.ArtNr); -///Goto Goto 6,930 Dest:OK -goto case 569; -///Label Label 6,931 1 -case 569: -///Operation Operation 6,932 -num = 569; -///Operation Operation 6,933 -Modul1.I = 101; -///Goto Goto 6,934 Dest:OK -goto case 570; -///Label Label 6,935 2 -case 570: -///Operation Operation 6,936 -num = 570; -///Operation Operation 6,937 -Modul1.Ubg = Modul1.I; -///Goto Goto 6,938 Dest:OK -goto case 571; -///Label Label 6,939 1 -case 571: -///Operation Operation 6,940 -num = 571; -///Operation Operation 6,941 -DataModul.DB_EventTable.Seek("=", Modul1.Ubg.AsString(), Modul1.PersInArb.AsString(), "0"); -///Goto Goto 6,942 Dest:OK -goto case 572; -///Label Label 6,943 1 -case 572: -///Operation Operation 6,944 -num = 572; -///Operation Operation 6,945 -if (!DataModul.DB_EventTable.NoMatch) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 574; -///BlockEnd Block 7,2 -} -///Goto Goto 6,946 Dest:OK -goto case 573; -///Label Label 6,947 1 -case 574: -///Label Label 6,948 -case 575: -///Operation Operation 6,949 -num = 575; -///Operation Operation 6,950 -if ((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 576; -///BlockEnd Block 7,2 -} -///Goto Goto 6,951 Dest:OK -goto case 573; -///Label Label 6,952 1 -case 576: -///Operation Operation 6,953 -num = 576; -///Operation Operation 6,954 -if (Conversions.ToDouble(Strings.Trim(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsString())) > 0.0) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 577; -///BlockEnd Block 7,2 -} -///Goto Goto 6,955 Dest:OK -goto case 573; -///Label Label 6,956 1 -case 577: -///Operation Operation 6,957 -num = 577; -///Operation Operation 6,958 -transdat = DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].Value.AsInt(); -///Goto Goto 6,959 Dest:OK -goto case 578; -///Label Label 6,960 1 -case 578: -///Operation Operation 6,961 -num = 578; -///Operation Operation 6,962 -neuedat(); -///Goto Goto 6,963 Dest:OK -goto IL_3395; -///Label Label 6,964 3 -case 573: -///Label Label 6,965 -case 580: -///Label Label 6,966 -case 581: -///Label Label 6,967 -case 582: -///Operation Operation 6,968 -num = 582; -///Operation Operation 6,969 -lErl = 6; -///Goto Goto 6,970 Dest:OK -goto case 583; -///Label Label 6,971 1 -case 583: -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -num = 583; -///Operation Operation 7,2 -Modul1.I++; -///Operation Operation 7,3 -int i = Modul1.I; -///Operation Operation 7,4 -num5 = 102; -///Operation Operation 7,5 -if (i <= num5) -///BlockStart Block 8,0 -{ -///Goto Goto 8,1 Dest:OK -goto case 570; -///BlockEnd Block 8,2 -} -///Goto Goto 7,6 Dest:OK -goto case 584; -///BlockEnd Block 7,7 -} -///Label Label 6,972 1 -case 584: -///Operation Operation 6,973 -num = 584; -///Operation Operation 6,974 -num6 = 30000000; -///Goto Goto 6,975 Dest:OK -goto case 585; -///Label Label 6,976 1 -case 585: -///Operation Operation 6,977 -num = 585; -///Operation Operation 6,978 -this.A = 1; -///Goto Goto 6,979 Dest:OK -goto case 586; -///Label Label 6,980 2 -case 586: -///Operation Operation 6,981 -num = 586; -///Operation Operation 6,982 -if (Modul1.Family.Kind[this.A] > 0) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 587; -///BlockEnd Block 7,2 -} -///Goto Goto 6,983 Dest:OK -goto case 598; -///Label Label 6,984 1 -case 587: -///Operation Operation 6,985 -num = 587; -///Operation Operation 6,986 -Modul1.I = 101; -///Goto Goto 6,987 Dest:OK -goto case 588; -///Label Label 6,988 2 -case 588: -///Operation Operation 6,989 -num = 588; -///Operation Operation 6,990 -DataModul.DB_EventTable.Seek("=", Modul1.I.AsString(), Modul1.Family.Kind[this.A].AsString(), "0"); -///Goto Goto 6,991 Dest:OK -goto case 589; -///Label Label 6,992 1 -case 589: -///Operation Operation 6,993 -num = 589; -///Operation Operation 6,994 -if (!DataModul.DB_EventTable.NoMatch) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 590; -///BlockEnd Block 7,2 -} -///Goto Goto 6,995 Dest:OK -goto case 593; -///Label Label 6,996 1 -case 590: -///Operation Operation 6,997 -num = 590; -///Operation Operation 6,998 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].Value) > 0.0) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 591; -///BlockEnd Block 7,2 -} -///Goto Goto 6,999 Dest:OK -goto case 593; -///Label Label 6,1000 1 -case 591: -///Operation Operation 6,1001 -num = 591; -///Operation Operation 6,1002 -if (Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].Value) < num6) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 592; -///BlockEnd Block 7,2 -} -///Goto Goto 6,1003 Dest:OK -goto case 593; -///Label Label 6,1004 1 -case 592: -///Operation Operation 6,1005 -num = 592; -///Operation Operation 6,1006 -num6 = (int)Math.Round(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].Value)); -///Goto Goto 6,1007 Dest:OK -goto case 593; -///Label Label 6,1008 4 -case 593: -///Label Label 6,1009 -case 594: -///Label Label 6,1010 -case 595: -///Label Label 6,1011 -case 596: -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -num = 596; -///Operation Operation 7,2 -Modul1.I++; -///Operation Operation 7,3 -int i2 = Modul1.I; -///Operation Operation 7,4 -num5 = 102; -///Operation Operation 7,5 -if (i2 <= num5) -///BlockStart Block 8,0 -{ -///Goto Goto 8,1 Dest:OK -goto case 588; -///BlockEnd Block 8,2 -} -///Goto Goto 7,6 Dest:OK -goto case 597; -///BlockEnd Block 7,7 -} -///Label Label 6,1012 1 -case 598: -///Operation Operation 6,1013 -num = 598; -///Goto Goto 6,1014 Dest:OK -goto case 599; -///Label Label 6,1015 1 -case 597: -///Label Label 6,1016 -case 600: -///Label Label 6,1017 -case 601: -///BlockStart Block 7,0 -{ -///Operation Operation 7,1 -num = 601; -///Operation Operation 7,2 -this.A++; -///Operation Operation 7,3 -int a = this.A; -///Operation Operation 7,4 -num5 = 99; -///Operation Operation 7,5 -if (a <= num5) -///BlockStart Block 8,0 -{ -///Goto Goto 8,1 Dest:OK -goto case 586; -///BlockEnd Block 8,2 -} -///Goto Goto 7,6 Dest:OK -goto case 599; -///BlockEnd Block 7,7 -} -///Label Label 6,1018 2 -case 599: -///Label Label 6,1019 -case 602: -///Operation Operation 6,1020 -num = 602; -///Operation Operation 6,1021 -if (num6 < 30000000) -///BlockStart Block 7,0 -{ -///Goto Goto 7,1 Dest:OK -goto case 603; -///BlockEnd Block 7,2 -} -///Goto Goto 6,1022 Dest:OK -goto IL_32fc; -///Label Label 6,1023 1 -case 603: -///Operation Operation 6,1024 -num = 603; -///Operation Operation 6,1025 -transdat = Conversions.ToInteger(Conversion.Str(Conversions.ToDouble((num6).AsString().Left( 4)) - 25.0) + "0000"); -///Goto Goto 6,1026 Dest:OK -goto case 604; -///Label Label 6,1027 1 -case 604: -///Operation Operation 6,1028 -num = 604; -///Operation Operation 6,1029 -neuedat(); -///Goto Goto 6,1030 Dest:OK -goto IL_32fc; -///Label Label 6,1031 -case 549: -///Label Label 6,1032 -case 605: -///Label Label 6,1033 -case 606: -///Goto Goto 6,1034 Dest:OK -goto IL_32fc; -///Label Label 6,1035 -case 607: -///Goto Goto 6,1036 Dest:OK -goto IL_3307; -///Label Label 6,1037 -case 558: -///Label Label 6,1038 -case 608: -///Label Label 6,1039 -case 609: -///Goto Goto 6,1040 Dest:OK -goto IL_3320; -///Label Label 6,1041 -case 610: -///Goto Goto 6,1042 Dest:OK -goto IL_3348; -///Label Label 6,1043 -case 611: -///Label Label 6,1044 -case 612: -///Goto Goto 6,1045 Dest:OK -goto IL_3383; -///Label Label 6,1046 -case 473: -///Label Label 6,1047 -case 485: -///Label Label 6,1048 -case 488: -///Label Label 6,1049 -case 491: -///Label Label 6,1050 -case 494: -///Label Label 6,1051 -case 510: -///Label Label 6,1052 -case 513: -///Label Label 6,1053 -case 524: -///Label Label 6,1054 -case 527: -///Label Label 6,1055 -case 538: -///Label Label 6,1056 -case 541: -///Label Label 6,1057 -case 579: -///Label Label 6,1058 -case 613: -///Goto Goto 6,1059 Dest:OK -goto IL_3395; -///Label Label 6,1060 -case 614: -///Goto Goto 6,1061 Dest:OK -goto IL_33a0; -///Label Label 6,1062 -case 615: -///Goto Goto 6,1063 Dest:OK -goto IL_33c7; -///Label Label 6,1064 -case 617: -///Label Label 6,1065 -case 618: -///Goto Goto 6,1066 Dest:OK -goto IL_3406; -///Label Label 6,1067 -case 619: -///Goto Goto 6,1068 Dest:OK -goto IL_341e; -///Label Label 6,1069 -case 620: -///Goto Goto 6,1070 Dest:OK -goto IL_343f; -///Label Label 6,1071 -case 621: -///Goto Goto 6,1072 Dest:OK -goto IL_345d; -///Label Label 6,1073 -case 622: -///Goto Goto 6,1074 Dest:OK -goto IL_3467; -///Label Label 6,1075 -case 624: -///Label Label 6,1076 -case 625: -///Goto Goto 6,1077 Dest:OK -goto IL_3482; -///Label Label 6,1078 -case 626: -///Goto Goto 6,1079 Dest:OK -goto IL_3499; -///Label Label 6,1080 -case 627: -///Goto Goto 6,1081 Dest:OK -goto IL_34ac; -///Label Label 6,1082 -case 628: -///Goto Goto 6,1083 Dest:OK -goto IL_34d3; -///Label Label 6,1084 -case 630: -///Label Label 6,1085 -case 631: -///Goto Goto 6,1086 Dest:OK -goto IL_34eb; -///Label Label 6,1087 -case 632: -///Goto Goto 6,1088 Dest:OK -goto IL_351e; -///Label Label 6,1089 -case 634: -///Label Label 6,1090 -case 635: -///Goto Goto 6,1091 Dest:OK -goto IL_355f; -///Label Label 6,1092 -case 636: -///Goto Goto 6,1093 Dest:OK -goto IL_357d; -///Label Label 6,1094 -case 637: -///Goto Goto 6,1095 Dest:OK -goto IL_358a; -///Label Label 6,1096 -case 638: -///Goto Goto 6,1097 Dest:OK -goto IL_359e; -///Label Label 6,1098 -case 639: -///Goto Goto 6,1099 Dest:OK -goto IL_35b2; -///Label Label 6,1100 -case 640: -///Goto Goto 6,1101 Dest:OK -goto IL_35c6; -///Label Label 6,1102 -case 641: -///Goto Goto 6,1103 Dest:OK -goto IL_35e5; -///Label Label 6,1104 -case 642: -///Goto Goto 6,1105 Dest:OK -goto IL_3607; -///Label Label 6,1106 -case 643: -///Goto Goto 6,1107 Dest:OK -goto IL_361a; -///Label Label 6,1108 -case 644: -///Goto Goto 6,1109 Dest:OK -goto IL_3627; -///Label Label 6,1110 -case 645: -///Goto Goto 6,1111 Dest:OK -goto IL_3639; -///Label Label 6,1112 -case 646: -///Goto Goto 6,1113 Dest:OK -goto IL_364b; -///Label Label 6,1114 -case 648: -///Label Label 6,1115 -case 649: -///Goto Goto 6,1116 Dest:OK -goto IL_3666; -///Label Label 6,1117 -case 650: -///Goto Goto 6,1118 Dest:OK -goto IL_36c8; -///Label Label 6,1119 -case 652: -///Label Label 6,1120 -case 653: -///Goto Goto 6,1121 Dest:OK -goto IL_36e4; -///Label Label 6,1122 -case 654: -///Goto Goto 6,1123 Dest:OK -goto IL_36f2; -///Label Label 6,1124 -case 655: -///Goto Goto 6,1125 Dest:OK -goto IL_3700; -///Label Label 6,1126 -case 656: -///Goto Goto 6,1127 Dest:OK -goto IL_370e; -///Label Label 6,1128 -case 657: -///Goto Goto 6,1129 Dest:OK -goto IL_371f; -///Label Label 6,1130 -case 658: -///Goto Goto 6,1131 Dest:OK -goto IL_3736; -///Label Label 6,1132 -case 659: -///Goto Goto 6,1133 Dest:OK -goto IL_379d; -///Label Label 6,1134 -case 660: -///Goto Goto 6,1135 Dest:OK -goto IL_37b4; -///Label Label 6,1136 -case 661: -///Label Label 6,1137 -case 662: -///Goto Goto 6,1138 Dest:OK -goto IL_37c2; -///Label Label 6,1139 -case 663: -///Goto Goto 6,1140 Dest:OK -goto IL_37d3; -///Label Label 6,1141 -case 664: -///Goto Goto 6,1142 Dest:OK -goto IL_37e0; -///Label Label 6,1143 -case 665: -///Goto Goto 6,1144 Dest:OK -goto IL_3811; -///Label Label 6,1145 -case 666: -///Label Label 6,1146 -case 667: -///Goto Goto 6,1147 Dest:OK -goto IL_3822; -///Label Label 6,1148 -case 668: -///Goto Goto 6,1149 Dest:OK -goto IL_3839; -///Label Label 6,1150 -case 669: -///Goto Goto 6,1151 Dest:OK -goto IL_38a0; -///Label Label 6,1152 -case 670: -///Goto Goto 6,1153 Dest:OK -goto IL_38b7; -///Label Label 6,1154 -case 671: -///Label Label 6,1155 -case 672: -///Goto Goto 6,1156 Dest:OK -goto IL_38c5; -///Label Label 6,1157 -case 673: -///Goto Goto 6,1158 Dest:OK -goto IL_38e8; -///Label Label 6,1159 -case 674: -///Goto Goto 6,1160 Dest:OK -goto IL_38f5; -///Label Label 6,1161 -case 675: -///Goto Goto 6,1162 Dest:OK -goto IL_3935; -///Label Label 6,1163 -case 676: -///Goto Goto 6,1164 Dest:OK -goto IL_394b; -///Label Label 6,1165 -case 677: -///Label Label 6,1166 -case 678: -///Goto Goto 6,1167 Dest:OK -goto IL_3962; -///Label Label 6,1168 -case 679: -///Goto Goto 6,1169 Dest:OK -goto IL_3978; -///Label Label 6,1170 -case 680: -///Label Label 6,1171 -case 681: -///Goto Goto 6,1172 Dest:OK -goto IL_398f; -///Label Label 6,1173 -case 682: -///Goto Goto 6,1174 Dest:OK -goto IL_39f2; -///Label Label 6,1175 -case 683: -///Goto Goto 6,1176 Dest:OK -goto IL_3a0c; -///Label Label 6,1177 -case 684: -///Label Label 6,1178 -case 685: -///Goto Goto 6,1179 Dest:OK -goto IL_3a23; -///Label Label 6,1180 -case 686: -///Goto Goto 6,1181 Dest:OK -goto IL_3a86; -///Label Label 6,1182 -case 687: -///Goto Goto 6,1183 Dest:OK -goto IL_3aa0; -///Label Label 6,1184 -case 688: -///Label Label 6,1185 -case 689: -///Goto Goto 6,1186 Dest:OK -goto IL_3ab7; -///Label Label 6,1187 -case 690: -///Goto Goto 6,1188 Dest:OK -goto IL_3b1a; -///Label Label 6,1189 -case 691: -///Goto Goto 6,1190 Dest:OK -goto IL_3b34; -///Label Label 6,1191 -case 692: -///Label Label 6,1192 -case 693: -///Goto Goto 6,1193 Dest:OK -goto IL_3b4b; -///Label Label 6,1194 -case 694: -///Goto Goto 6,1195 Dest:OK -goto IL_3bae; -///Label Label 6,1196 -case 695: -///Goto Goto 6,1197 Dest:OK -goto IL_3bc8; -///Label Label 6,1198 -case 696: -///Label Label 6,1199 -case 697: -///Goto Goto 6,1200 Dest:OK -goto IL_3bdf; -///Label Label 6,1201 -case 698: -///Goto Goto 6,1202 Dest:OK -goto IL_3c42; -///Label Label 6,1203 -case 699: -///Goto Goto 6,1204 Dest:OK -goto IL_3c5c; -///Label Label 6,1205 -case 700: -///Label Label 6,1206 -case 701: -///Goto Goto 6,1207 Dest:OK -goto IL_3c73; -///Label Label 6,1208 -case 702: -///Goto Goto 6,1209 Dest:OK -goto IL_3cd7; -///Label Label 6,1210 -case 703: -///Goto Goto 6,1211 Dest:OK -goto IL_3cf1; -///Label Label 6,1212 -case 704: -///Label Label 6,1213 -case 705: -///Goto Goto 6,1214 Dest:OK -goto IL_3d08; -///Label Label 6,1215 -case 706: -///Goto Goto 6,1216 Dest:OK -goto IL_3d1f; -///Label Label 6,1217 -case 707: -///Goto Goto 6,1218 Dest:OK -goto IL_3d7c; -///Label Label 6,1219 -case 708: -///Goto Goto 6,1220 Dest:OK -goto IL_3d96; -///Label Label 6,1221 -case 709: -///Label Label 6,1222 -case 710: -///Goto Goto 6,1223 Dest:OK -goto IL_3dad; -///Label Label 6,1224 -case 651: -///Label Label 6,1225 -case 711: -///Label Label 6,1226 -case 712: -///Goto Goto 6,1227 Dest:OK -goto IL_3de8; -///Label Label 6,1228 -case 713: -///Goto Goto 6,1229 Dest:OK -goto IL_3e0f; -///Label Label 6,1230 -case 715: -///Label Label 6,1231 -case 716: -///Goto Goto 6,1232 Dest:OK -goto IL_3e4e; -///Label Label 6,1233 -case 717: -///Goto Goto 6,1234 Dest:OK -goto IL_3e62; -///Label Label 6,1235 -case 718: -///Goto Goto 6,1236 Dest:OK -goto IL_3e7a; -///Label Label 6,1237 -case 719: -///Goto Goto 6,1238 Dest:OK -goto IL_3e84; -///Label Label 6,1239 -case 721: -///Label Label 6,1240 -case 722: -///Goto Goto 6,1241 Dest:OK -goto IL_3e9f; -///Label Label 6,1242 -case 723: -///Goto Goto 6,1243 Dest:OK -goto IL_3ebd; -///Label Label 6,1244 -case 724: -///Goto Goto 6,1245 Dest:OK -goto IL_3edb; -///Label Label 6,1246 -case 725: -///Goto Goto 6,1247 Dest:OK -goto IL_3ef9; -///Label Label 6,1248 -case 726: -///Goto Goto 6,1249 Dest:OK -goto IL_3f16; -///Label Label 6,1250 -case 727: -///Goto Goto 6,1251 Dest:OK -goto IL_3f33; -///Label Label 6,1252 -case 728: -///Goto Goto 6,1253 Dest:OK -goto IL_3f45; -///Label Label 6,1254 -case 729: -///Goto Goto 6,1255 Dest:OK -goto IL_3f5c; -///Label Label 6,1256 -case 730: -///Goto Goto 6,1257 Dest:OK -goto IL_3fb6; -///Label Label 6,1258 -case 731: -///Goto Goto 6,1259 Dest:OK -goto IL_3fc4; -///Label Label 6,1260 -case 734: -///Goto Goto 6,1261 Dest:OK -goto IL_3fe6; -///Label Label 6,1262 -case 735: -///Goto Goto 6,1263 Dest:OK -goto IL_3ffb; -///Label Label 6,1264 -case 736: -///Goto Goto 6,1265 Dest:OK -goto IL_4044; -///Label Label 6,1266 -case 737: -///Goto Goto 6,1267 Dest:OK -goto IL_4076; -///Label Label 6,1268 -case 738: -///Label Label 6,1269 -case 739: -///Goto Goto 6,1270 Dest:OK -goto IL_4091; -///Label Label 6,1271 -case 740: -///Goto Goto 6,1272 Dest:OK -goto IL_40c3; -///Label Label 6,1273 -case 741: -///Label Label 6,1274 -case 742: -///Goto Goto 6,1275 Dest:OK -goto IL_40de; -///Label Label 6,1276 -case 743: -///Goto Goto 6,1277 Dest:OK -goto IL_4110; -///Label Label 6,1278 -case 744: -///Label Label 6,1279 -case 745: -///Goto Goto 6,1280 Dest:OK -goto IL_412b; -///Label Label 6,1281 -case 746: -///Goto Goto 6,1282 Dest:OK -goto IL_415d; -///Label Label 6,1283 -case 747: -///Label Label 6,1284 -case 748: -///Goto Goto 6,1285 Dest:OK -goto IL_4178; -///Label Label 6,1286 -case 749: -///Goto Goto 6,1287 Dest:OK -goto IL_41aa; -///Label Label 6,1288 -case 750: -///Label Label 6,1289 -case 751: -///Goto Goto 6,1290 Dest:OK -goto IL_41c5; -///Label Label 6,1291 -case 752: -///Goto Goto 6,1292 Dest:OK -goto IL_4203; -///Label Label 6,1293 -case 753: -///Label Label 6,1294 -case 754: -///Goto Goto 6,1295 Dest:OK -goto IL_421e; -///Label Label 6,1296 -case 755: -///Goto Goto 6,1297 Dest:OK -goto IL_4259; -///Label Label 6,1298 -case 756: -///Label Label 6,1299 -case 757: -///Goto Goto 6,1300 Dest:OK -goto IL_4274; -///Label Label 6,1301 -case 758: -///Goto Goto 6,1302 Dest:OK -goto IL_42af; -///Label Label 6,1303 -case 759: -///Label Label 6,1304 -case 760: -///Goto Goto 6,1305 Dest:OK -goto IL_42ca; -///Label Label 6,1306 -case 761: -///Goto Goto 6,1307 Dest:OK -goto IL_4308; -///Label Label 6,1308 -case 762: -///Label Label 6,1309 -case 763: -///Goto Goto 6,1310 Dest:OK -goto IL_4323; -///Label Label 6,1311 -case 764: -///Goto Goto 6,1312 Dest:OK -goto IL_4361; -///Label Label 6,1313 -case 765: -///Label Label 6,1314 -case 766: -///Goto Goto 6,1315 Dest:OK -goto IL_437c; -///Label Label 6,1316 -case 767: -///Goto Goto 6,1317 Dest:OK -goto IL_43ba; -///Label Label 6,1318 -case 768: -///Label Label 6,1319 -case 769: -///Goto Goto 6,1320 Dest:OK -goto IL_43d5; -///Label Label 6,1321 -case 770: -///Goto Goto 6,1322 Dest:OK -goto IL_43f2; -///Label Label 6,1323 -case 771: -///Goto Goto 6,1324 Dest:OK -goto IL_4407; -///Label Label 6,1325 -case 732: -///Label Label 6,1326 -case 733: -///Label Label 6,1327 -case 772: -///Goto Goto 6,1328 Dest:OK -goto IL_441a; -///Label Label 6,1329 -case 774: -///Goto Goto 6,1330 Dest:OK -goto IL_4439; -///Label Label 6,1331 -case 775: -///Goto Goto 6,1332 Dest:OK -goto IL_4441; -///Label Label 6,1333 -case 773: -///Label Label 6,1334 -case 776: -///Label Label 6,1335 -case 777: -///Goto Goto 6,1336 Dest:OK -goto IL_4454; -///Label Label 6,1337 -case 778: -///Goto Goto 6,1338 Dest:OK -goto IL_446b; -///Label Label 6,1339 -case 32: -///Label Label 6,1340 -case 68: -///Label Label 6,1341 -case 157: -///Label Label 6,1342 -case 195: -///Label Label 6,1343 -case 311: -///Label Label 6,1344 -case 312: -///Label Label 6,1345 -case 320: -///Label Label 6,1346 -case 334: -///Label Label 6,1347 -case 437: -///Label Label 6,1348 -case 469: -///Label Label 6,1349 -case 616: -///Label Label 6,1350 -case 647: -///Label Label 6,1351 -case 714: -///Label Label 6,1352 -case 779: -///Label Label 6,1353 -case 780: -///Label Label 6,1354 -case 781: -///Goto Goto 6,1355 Dest:OK -goto IL_448a; -///Label Label 6,1356 -case 782: -///Goto Goto 6,1357 Dest:OK -goto IL_4494; -///Label Label 6,1358 -case 783: -///Goto Goto 6,1359 Dest:OK -goto IL_44ac; -///Label Label 6,1360 -case 784: -///Goto Goto 6,1361 Dest:OK -goto IL_44c9; -///Label Label 6,1362 -case 785: -///Goto Goto 6,1363 Dest:OK -goto IL_44d6; -///Label Label 6,1364 -case 786: -///Goto Goto 6,1365 Dest:OK -goto IL_44f3; -///Label Label 6,1366 -case 789: -///Goto Goto 6,1367 Dest:OK -goto IL_451d; -///Label Label 6,1368 -case 790: -///Goto Goto 6,1369 Dest:OK -goto IL_4537; -///Label Label 6,1370 -case 791: -///Goto Goto 6,1371 Dest:OK -goto IL_4545; -///Label Label 6,1372 -case 792: -///Label Label 6,1373 -case 793: -///Label Label 6,1374 -case 794: -///Goto Goto 6,1375 Dest:OK -goto IL_4563; -///Label Label 6,1376 -case 795: -///Label Label 6,1377 -case 797: -///Goto Goto 6,1378 Dest:OK -goto IL_4593; -///Label Label 6,1379 -default: -///Goto Goto 6,1380 Dest:OK -goto end_IL_0001; -///Label Label 6,1381 -case 46: -///Label Label 6,1382 -case 52: -///Label Label 6,1383 -case 56: -///Label Label 6,1384 -case 178: -///Label Label 6,1385 -case 184: -///Label Label 6,1386 -case 319: -///Label Label 6,1387 -case 355: -///Label Label 6,1388 -case 361: -///Label Label 6,1389 -case 436: -///Label Label 6,1390 -case 448: -///Label Label 6,1391 -case 454: -///Label Label 6,1392 -case 458: -///Label Label 6,1393 -case 623: -///Label Label 6,1394 -case 629: -///Label Label 6,1395 -case 633: -///Label Label 6,1396 -case 720: -///Label Label 6,1397 -case 787: -///Label Label 6,1398 -case 788: -///Label Label 6,1399 -case 798: -///Goto Goto 6,1400 Dest:OK -goto end_IL_0001_2; -///BlockEnd Block 6,1401 -} -///Goto Goto 5,2064 Dest:OK -goto default; -///BlockEnd Block 5,2065 -} -///BlockEnd Block 4,28 -} -///BlockEnd Block 3,4 -} -///Operation Operation 2,2 -catch (Exception obj) when (num3 != 0 && num2 == 0) -///BlockStart Block 3,0 -{ -///Operation Operation 3,1 -ProjectData.SetProjectError(obj, lErl); -///Operation Operation 3,2 -try0001_dispatch = 21059; -///Operation Operation 3,3 -continue; -///BlockEnd Block 3,4 -} -///Operation Operation 2,3 -throw ProjectData.CreateProjectError(-2146828237); -///Label Label 2,4 19 -end_IL_0001_2: -///Operation Operation 2,5 -break; -///BlockEnd Block 2,6 -} -///Operation Operation 1,21 -if (num2 != 0) -///BlockStart Block 2,0 -{ -///Operation Operation 2,1 -ProjectData.ClearProjectError(); -///BlockEnd Block 2,2 -} -///BlockEnd Block 1,22 -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test09/Test9ExpTokenize.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test09/Test9ExpTokenize.txt deleted file mode 100644 index 2d6d02b83..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test09/Test9ExpTokenize.txt +++ /dev/null @@ -1,5062 +0,0 @@ -T:Operation,0,private void Command1_Click(object eventSender, EventArgs eventArgs) -T:Block,1,{ -T:Operation,1, -T:LComment,1,//Discarded unreachable code: IL_451b -T:Operation,1,int try0001_dispatch = -1; -T:Operation,1,int num = default; -T:Operation,1,short index = default; -T:Operation,1,int num2 = default; -T:Operation,1,int num3 = default; -T:Operation,1,int lErl = default; -T:Operation,1,int num6 = default; -T:Operation,1,int num7 = default; -T:Operation,1,int num8 = default; -T:Operation,1,int num9 = default; -T:Operation,1,string sDest = default; -T:Operation,1,int num10 = default; -T:Operation,1,string sDest2 = default; -T:Operation,1,short num12 = default; -T:Operation,1,int num14 = default; -T:Operation,1,short num15 = default; -T:Operation,1,int num17 = default; -T:Operation,1,int num19 = default; -T:Operation,1,while -T:Operation,1,(true) -T:Block,2,{ -T:Operation,2,try -T:Block,3,{ -T:Operation,3, -T:Comment,3,/*Note: ILSpy has introduced the following switch to emulate a goto from catch-block to try-block*/ -T:Operation,3,; -T:Operation,3,checked -T:Block,4,{ -T:Operation,4,int num4; -T:Operation,4,int i3; -T:Operation,4,int i4; -T:Operation,4,int i5; -T:Operation,4,int i6; -T:Operation,4,int i7; -T:Operation,4,short t; -T:Operation,4,short num13; -T:Operation,4,int i8; -T:Operation,4,int i9; -T:Operation,4,int i10; -T:Operation,4,short num16; -T:Operation,4,ListBox L; -T:Operation,4,short A; -T:Operation,4,int i11; -T:Operation,4,int i12; -T:Operation,4,int i13; -T:Operation,4,short num18; -T:Operation,4,int i14; -T:Operation,4,int i15; -T:Operation,4,int i16; -T:Operation,4,int i17; -T:Operation,4,int num5; -T:Operation,4,short t2; -T:Operation,4,short num20; -T:Operation,4,short num11; -T:Operation,4,switch -T:Operation,4,(try0001_dispatch) -T:Block,5,{ -T:Label,5,default: -T:Operation,5,num = 1; -T:Operation,5,index = Command1.GetIndex((Button)eventSender); -T:Goto,5,goto IL_0016; -T:Label,5,case 21059: -T:Block,6,{ -T:Operation,6,num2 = num; -T:Operation,6,switch -T:Operation,6,((num3 <= -2) ? 1 : num3) -T:Block,7,{ -T:Label,7,case 2: -T:Operation,7,break; -T:Label,7,case 1: -T:Goto,7,goto IL_45b9; -T:Label,7,default: -T:Goto,7,goto end_IL_0001; -T:Block,7,} -T:Goto,6,goto IL_451d; -T:Block,6,} -T:Label,5,IL_0c00: -T:Operation,5,num = 149; -T:Operation,5,if -T:Operation,5,(!DataModul.TTable.NoMatch) -T:Block,6,{ -T:Goto,6,goto IL_0c1a; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_0c34; -T:Block,6,} -T:Label,5,IL_0c1a: -T:Operation,5,num = 150; -T:Operation,5,StringType.MidStmtStr(ref Modul1.LiText, 79, 1, -T:String,5,"J" -T:Operation,5,); -T:Goto,5,goto IL_0c34; -T:Label,5,IL_0ba2: -T:Operation,5,num = 148; -T:Operation,5,DataModul.TTable.Seek( -T:String,5,"=" -T:Operation,5,, 1, Modul1.PersInArb); -T:Goto,5,goto IL_0c00; -T:Label,5,IL_451d: -T:Operation,5,num = 789; -T:Operation,5,if -T:Operation,5,(Information.Err().Number == 6) -T:Block,6,{ -T:Goto,6,goto IL_4537; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_4563; -T:Block,6,} -T:Label,5,IL_4563: -T:Operation,5,num = 794; -T:Operation,5,if -T:Operation,5,(Interaction.MsgBox(Conversion.ErrorToString(), MsgBoxStyle.OkCancel, (Information.Err().Number).AsString()) == MsgBoxResult.Cancel) -T:Block,6,{ -T:Operation,6,ProjectData.EndApp(); -T:Block,6,} -T:Goto,5,goto IL_4593; -T:Label,5,IL_0c6f: -T:Operation,5,num = 153; -T:Operation,5,Modul1.LiText = -T:String,5,"" -T:Operation,5,; -T:Goto,5,goto IL_0c81; -T:Label,5,IL_4593: -T:Operation,5,num = 797; -T:Operation,5,ProjectData.ClearProjectError(); -T:Operation,5,if -T:Operation,5,(num2 == 0) -T:Block,6,{ -T:Operation,6,throw -T:Operation,6,ProjectData.CreateProjectError(-2146828268); -T:Block,6,} -T:Operation,5,num4 = num2; -T:Goto,5,goto IL_45bd; -T:Label,5,IL_0c81: -T:Operation,5,num = 154; -T:Operation,5,lErl = 5; -T:Goto,5,goto IL_0c8b; -T:Label,5,IL_0c8b: -T:Operation,5,num = 155; -T:Operation,5,I1++; -T:Goto,5,goto IL_0ca1; -T:Label,5,IL_45bd: -T:Operation,5,num2 = 0; -T:Operation,5,switch -T:Operation,5,(num4) -T:Block,6,{ -T:Label,6,case 1: -T:Operation,6,break; -T:Label,6,case 2: -T:Goto,6,goto IL_0016; -T:Label,6,case 3: -T:Goto,6,goto IL_0026; -T:Label,6,case 4: -T:Goto,6,goto IL_0036; -T:Label,6,case 5: -T:Goto,6,goto IL_003e; -T:Label,6,case 7: -T:Label,6,case 9: -T:Goto,6,goto IL_006f; -T:Label,6,case 10: -T:Goto,6,goto IL_0080; -T:Label,6,case 12: -T:Label,6,case 13: -T:Goto,6,goto IL_0094; -T:Label,6,case 6: -T:Label,6,case 11: -T:Label,6,case 14: -T:Label,6,case 15: -T:Goto,6,goto IL_00a6; -T:Label,6,case 16: -T:Goto,6,goto IL_00bb; -T:Label,6,case 17: -T:Goto,6,goto IL_00db; -T:Label,6,case 18: -T:Label,6,case 19: -T:Goto,6,goto IL_00ed; -T:Label,6,case 20: -T:Goto,6,goto IL_010d; -T:Label,6,case 21: -T:Label,6,case 22: -T:Goto,6,goto IL_011f; -T:Label,6,case 23: -T:Goto,6,goto IL_0130; -T:Label,6,case 24: -T:Goto,6,goto IL_0141; -T:Label,6,case 25: -T:Goto,6,goto IL_0156; -T:Label,6,case 26: -T:Goto,6,goto IL_016b; -T:Label,6,case 27: -T:Label,6,case 28: -T:Goto,6,goto IL_017c; -T:Label,6,case 29: -T:Goto,6,goto IL_0191; -T:Label,6,case 30: -T:Label,6,case 31: -T:Goto,6,goto IL_01a2; -T:Label,6,case 33: -T:Label,6,case 35: -T:Goto,6,goto IL_01d7; -T:Label,6,case 36: -T:Goto,6,goto IL_01ec; -T:Label,6,case 37: -T:Goto,6,goto IL_0207; -T:Label,6,case 38: -T:Goto,6,goto IL_0228; -T:Label,6,case 39: -T:Goto,6,goto IL_0249; -T:Label,6,case 40: -T:Goto,6,goto IL_027a; -T:Label,6,case 41: -T:Goto,6,goto IL_02ab; -T:Label,6,case 42: -T:Goto,6,goto IL_02b6; -T:Label,6,case 43: -T:Goto,6,goto IL_02d2; -T:Label,6,case 44: -T:Goto,6,goto IL_02f2; -T:Label,6,case 45: -T:Goto,6,goto IL_02f9; -T:Label,6,case 47: -T:Label,6,case 48: -T:Goto,6,goto IL_0311; -T:Label,6,case 49: -T:Goto,6,goto IL_0325; -T:Label,6,case 50: -T:Goto,6,goto IL_0335; -T:Label,6,case 51: -T:Goto,6,goto IL_0359; -T:Label,6,case 53: -T:Label,6,case 54: -T:Goto,6,goto IL_036e; -T:Label,6,case 55: -T:Goto,6,goto IL_039e; -T:Label,6,case 57: -T:Label,6,case 58: -T:Goto,6,goto IL_03dd; -T:Label,6,case 59: -T:Goto,6,goto IL_03ee; -T:Label,6,case 60: -T:Goto,6,goto IL_03ff; -T:Label,6,case 61: -T:Goto,6,goto IL_0410; -T:Label,6,case 62: -T:Goto,6,goto IL_042c; -T:Label,6,case 63: -T:Goto,6,goto IL_0441; -T:Label,6,case 64: -T:Goto,6,goto IL_0456; -T:Label,6,case 65: -T:Goto,6,goto IL_0466; -T:Label,6,case 66: -T:Goto,6,goto IL_0470; -T:Label,6,case 67: -T:Goto,6,goto IL_047f; -T:Label,6,case 69: -T:Label,6,case 70: -T:Goto,6,goto IL_0497; -T:Label,6,case 71: -T:Goto,6,goto IL_04f6; -T:Label,6,case 73: -T:Label,6,case 74: -T:Goto,6,goto IL_050f; -T:Label,6,case 75: -T:Goto,6,goto IL_0519; -T:Label,6,case 76: -T:Goto,6,goto IL_0550; -T:Label,6,case 77: -T:Goto,6,goto IL_055b; -T:Label,6,case 78: -T:Goto,6,goto IL_0566; -T:Label,6,case 79: -T:Goto,6,goto IL_057f; -T:Label,6,case 80: -T:Goto,6,goto IL_0598; -T:Label,6,case 81: -T:Goto,6,goto IL_05ba; -T:Label,6,case 82: -T:Goto,6,goto IL_05c4; -T:Label,6,case 83: -T:Goto,6,goto IL_05cf; -T:Label,6,case 84: -T:Goto,6,goto IL_05f2; -T:Label,6,case 85: -T:Goto,6,goto IL_0615; -T:Label,6,case 86: -T:Goto,6,goto IL_0639; -T:Label,6,case 87: -T:Goto,6,goto IL_065d; -T:Label,6,case 88: -T:Goto,6,goto IL_0667; -T:Label,6,case 89: -T:Goto,6,goto IL_067b; -T:Label,6,case 90: -T:Goto,6,goto IL_06db; -T:Label,6,case 92: -T:Label,6,case 93: -T:Goto,6,goto IL_06f4; -T:Label,6,case 95: -T:Label,6,case 97: -T:Goto,6,goto IL_071b; -T:Label,6,case 98: -T:Goto,6,goto IL_074a; -T:Label,6,case 99: -T:Label,6,case 100: -T:Goto,6,goto IL_0764; -T:Label,6,case 101: -T:Goto,6,goto IL_0793; -T:Label,6,case 102: -T:Label,6,case 103: -T:Goto,6,goto IL_07ad; -T:Label,6,case 104: -T:Goto,6,goto IL_07dc; -T:Label,6,case 105: -T:Label,6,case 106: -T:Goto,6,goto IL_07f6; -T:Label,6,case 107: -T:Goto,6,goto IL_082e; -T:Label,6,case 110: -T:Label,6,case 111: -T:Goto,6,goto IL_084e; -T:Label,6,case 112: -T:Goto,6,goto IL_087d; -T:Label,6,case 113: -T:Label,6,case 114: -T:Goto,6,goto IL_0897; -T:Label,6,case 115: -T:Goto,6,goto IL_08c6; -T:Label,6,case 116: -T:Label,6,case 117: -T:Goto,6,goto IL_08e0; -T:Label,6,case 118: -T:Goto,6,goto IL_090f; -T:Label,6,case 119: -T:Label,6,case 120: -T:Goto,6,goto IL_0929; -T:Label,6,case 121: -T:Goto,6,goto IL_0961; -T:Label,6,case 124: -T:Label,6,case 125: -T:Goto,6,goto IL_0981; -T:Label,6,case 126: -T:Goto,6,goto IL_09b0; -T:Label,6,case 127: -T:Label,6,case 128: -T:Goto,6,goto IL_09ca; -T:Label,6,case 129: -T:Goto,6,goto IL_09fc; -T:Label,6,case 130: -T:Label,6,case 131: -T:Goto,6,goto IL_0a19; -T:Label,6,case 132: -T:Goto,6,goto IL_0a4b; -T:Label,6,case 133: -T:Label,6,case 134: -T:Goto,6,goto IL_0a68; -T:Label,6,case 135: -T:Goto,6,goto IL_0aa3; -T:Label,6,case 91: -T:Label,6,case 94: -T:Label,6,case 108: -T:Label,6,case 109: -T:Label,6,case 122: -T:Label,6,case 123: -T:Label,6,case 136: -T:Label,6,case 137: -T:Label,6,case 138: -T:Goto,6,goto IL_0ac2; -T:Label,6,case 139: -T:Goto,6,goto IL_0acc; -T:Label,6,case 140: -T:Goto,6,goto IL_0ae8; -T:Label,6,case 141: -T:Goto,6,goto IL_0b00; -T:Label,6,case 142: -T:Goto,6,goto IL_0b0d; -T:Label,6,case 143: -T:Goto,6,goto IL_0b40; -T:Label,6,case 144: -T:Goto,6,goto IL_0b71; -T:Label,6,case 145: -T:Label,6,case 147: -T:Goto,6,goto IL_0b8b; -T:Label,6,case 148: -T:Goto,6,goto IL_0ba2; -T:Label,6,case 149: -T:Goto,6,goto IL_0c00; -T:Label,6,case 150: -T:Goto,6,goto IL_0c1a; -T:Label,6,case 151: -T:Label,6,case 152: -T:Goto,6,goto IL_0c34; -T:Label,6,case 153: -T:Goto,6,goto IL_0c6f; -T:Label,6,case 72: -T:Label,6,case 154: -T:Goto,6,goto IL_0c81; -T:Label,6,case 155: -T:Goto,6,goto IL_0c8b; -T:Label,6,case 156: -T:Goto,6,goto IL_0cb2; -T:Label,6,case 158: -T:Label,6,case 159: -T:Goto,6,goto IL_0cef; -T:Label,6,case 160: -T:Goto,6,goto IL_0d06; -T:Label,6,case 161: -T:Goto,6,goto IL_0d1e; -T:Label,6,case 162: -T:Goto,6,goto IL_0d3c; -T:Label,6,case 163: -T:Goto,6,goto IL_0d5a; -T:Label,6,case 164: -T:Goto,6,goto IL_0d78; -T:Label,6,case 165: -T:Goto,6,goto IL_0d90; -T:Label,6,case 166: -T:Label,6,case 167: -T:Goto,6,goto IL_0dad; -T:Label,6,case 168: -T:Goto,6,goto IL_0dc5; -T:Label,6,case 169: -T:Label,6,case 170: -T:Goto,6,goto IL_0de2; -T:Label,6,case 171: -T:Goto,6,goto IL_0dfa; -T:Label,6,case 172: -T:Label,6,case 173: -T:Goto,6,goto IL_0e17; -T:Label,6,case 174: -T:Goto,6,goto IL_0e24; -T:Label,6,case 175: -T:Goto,6,goto IL_0e42; -T:Label,6,case 176: -T:Goto,6,goto IL_0e62; -T:Label,6,case 177: -T:Goto,6,goto IL_0e6c; -T:Label,6,case 179: -T:Label,6,case 180: -T:Goto,6,goto IL_0e87; -T:Label,6,case 181: -T:Goto,6,goto IL_0e9a; -T:Label,6,case 182: -T:Goto,6,goto IL_0ec1; -T:Label,6,case 183: -T:Goto,6,goto IL_0ef4; -T:Label,6,case 185: -T:Label,6,case 186: -T:Goto,6,goto IL_0f36; -T:Label,6,case 187: -T:Goto,6,goto IL_0f4a; -T:Label,6,case 188: -T:Goto,6,goto IL_0f69; -T:Label,6,case 189: -T:Goto,6,goto IL_0f7d; -T:Label,6,case 190: -T:Goto,6,goto IL_0f95; -T:Label,6,case 191: -T:Goto,6,goto IL_0fa8; -T:Label,6,case 192: -T:Goto,6,goto IL_0fb5; -T:Label,6,case 193: -T:Goto,6,goto IL_0fc3; -T:Label,6,case 194: -T:Goto,6,goto IL_0fd5; -T:Label,6,case 196: -T:Label,6,case 197: -T:Goto,6,goto IL_0ff0; -T:Label,6,case 198: -T:Goto,6,goto IL_1007; -T:Label,6,case 199: -T:Goto,6,goto IL_1069; -T:Label,6,case 201: -T:Label,6,case 202: -T:Goto,6,goto IL_1085; -T:Label,6,case 203: -T:Goto,6,goto IL_1092; -T:Label,6,case 204: -T:Goto,6,goto IL_10aa; -T:Label,6,case 205: -T:Goto,6,goto IL_10bb; -T:Label,6,case 206: -T:Goto,6,goto IL_10c8; -T:Label,6,case 207: -T:Goto,6,goto IL_10ed; -T:Label,6,case 209: -T:Goto,6,goto IL_1108; -T:Label,6,case 210: -T:Goto,6,goto IL_1110; -T:Label,6,case 208: -T:Label,6,case 211: -T:Label,6,case 212: -T:Goto,6,goto IL_1128; -T:Label,6,case 213: -T:Label,6,case 214: -T:Goto,6,goto IL_1140; -T:Label,6,case 215: -T:Goto,6,goto IL_1158; -T:Label,6,case 216: -T:Goto,6,goto IL_1169; -T:Label,6,case 217: -T:Goto,6,goto IL_1176; -T:Label,6,case 218: -T:Goto,6,goto IL_119b; -T:Label,6,case 220: -T:Goto,6,goto IL_11b7; -T:Label,6,case 221: -T:Goto,6,goto IL_11bf; -T:Label,6,case 219: -T:Label,6,case 222: -T:Label,6,case 223: -T:Label,6,case 224: -T:Goto,6,goto IL_11d9; -T:Label,6,case 225: -T:Goto,6,goto IL_11f3; -T:Label,6,case 226: -T:Label,6,case 227: -T:Goto,6,goto IL_1210; -T:Label,6,case 228: -T:Goto,6,goto IL_1227; -T:Label,6,case 229: -T:Goto,6,goto IL_123e; -T:Label,6,case 230: -T:Goto,6,goto IL_129b; -T:Label,6,case 232: -T:Label,6,case 233: -T:Goto,6,goto IL_12b7; -T:Label,6,case 234: -T:Goto,6,goto IL_12e9; -T:Label,6,case 235: -T:Label,6,case 236: -T:Goto,6,goto IL_1306; -T:Label,6,case 237: -T:Goto,6,goto IL_1313; -T:Label,6,case 238: -T:Goto,6,goto IL_1320; -T:Label,6,case 239: -T:Goto,6,goto IL_138c; -T:Label,6,case 241: -T:Label,6,case 242: -T:Goto,6,goto IL_13a8; -T:Label,6,case 244: -T:Label,6,case 246: -T:Goto,6,goto IL_13e2; -T:Label,6,case 247: -T:Goto,6,goto IL_1414; -T:Label,6,case 248: -T:Label,6,case 249: -T:Goto,6,goto IL_1431; -T:Label,6,case 250: -T:Goto,6,goto IL_146c; -T:Label,6,case 253: -T:Label,6,case 254: -T:Goto,6,goto IL_148f; -T:Label,6,case 255: -T:Goto,6,goto IL_14c1; -T:Label,6,case 256: -T:Label,6,case 257: -T:Goto,6,goto IL_14de; -T:Label,6,case 258: -T:Goto,6,goto IL_1519; -T:Label,6,case 261: -T:Label,6,case 262: -T:Goto,6,goto IL_153c; -T:Label,6,case 263: -T:Goto,6,goto IL_156e; -T:Label,6,case 264: -T:Label,6,case 265: -T:Goto,6,goto IL_158b; -T:Label,6,case 266: -T:Goto,6,goto IL_15c6; -T:Label,6,case 269: -T:Label,6,case 270: -T:Goto,6,goto IL_15e9; -T:Label,6,case 271: -T:Goto,6,goto IL_161b; -T:Label,6,case 272: -T:Label,6,case 273: -T:Goto,6,goto IL_1638; -T:Label,6,case 274: -T:Goto,6,goto IL_1673; -T:Label,6,case 277: -T:Label,6,case 278: -T:Goto,6,goto IL_1696; -T:Label,6,case 279: -T:Goto,6,goto IL_16c8; -T:Label,6,case 280: -T:Label,6,case 281: -T:Goto,6,goto IL_16e5; -T:Label,6,case 282: -T:Goto,6,goto IL_1720; -T:Label,6,case 285: -T:Label,6,case 286: -T:Goto,6,goto IL_1743; -T:Label,6,case 287: -T:Goto,6,goto IL_1775; -T:Label,6,case 288: -T:Label,6,case 289: -T:Goto,6,goto IL_1792; -T:Label,6,case 290: -T:Goto,6,goto IL_17cd; -T:Label,6,case 240: -T:Label,6,case 243: -T:Label,6,case 251: -T:Label,6,case 252: -T:Label,6,case 259: -T:Label,6,case 260: -T:Label,6,case 267: -T:Label,6,case 268: -T:Label,6,case 275: -T:Label,6,case 276: -T:Label,6,case 283: -T:Label,6,case 284: -T:Label,6,case 291: -T:Label,6,case 292: -T:Label,6,case 293: -T:Goto,6,goto IL_17ec; -T:Label,6,case 294: -T:Goto,6,goto IL_17f7; -T:Label,6,case 295: -T:Goto,6,goto IL_1814; -T:Label,6,case 296: -T:Goto,6,goto IL_181e; -T:Label,6,case 297: -T:Goto,6,goto IL_188a; -T:Label,6,case 298: -T:Goto,6,goto IL_18a7; -T:Label,6,case 299: -T:Goto,6,goto IL_18d9; -T:Label,6,case 300: -T:Label,6,case 301: -T:Goto,6,goto IL_18f0; -T:Label,6,case 302: -T:Goto,6,goto IL_192b; -T:Label,6,case 303: -T:Label,6,case 304: -T:Label,6,case 305: -T:Goto,6,goto IL_1943; -T:Label,6,case 200: -T:Label,6,case 231: -T:Label,6,case 306: -T:Goto,6,goto IL_197c; -T:Label,6,case 307: -T:Goto,6,goto IL_1987; -T:Label,6,case 308: -T:Goto,6,goto IL_19ae; -T:Label,6,case 309: -T:Goto,6,goto IL_19e7; -T:Label,6,case 310: -T:Goto,6,goto IL_19ff; -T:Label,6,case 313: -T:Label,6,case 314: -T:Goto,6,goto IL_1a3c; -T:Label,6,case 315: -T:Goto,6,goto IL_1a54; -T:Label,6,case 316: -T:Goto,6,goto IL_1a6c; -T:Label,6,case 317: -T:Goto,6,goto IL_1a80; -T:Label,6,case 318: -T:Goto,6,goto IL_1a94; -T:Label,6,case 321: -T:Label,6,case 322: -T:Goto,6,goto IL_1aae; -T:Label,6,case 323: -T:Goto,6,goto IL_1acb; -T:Label,6,case 324: -T:Goto,6,goto IL_1aed; -T:Label,6,case 325: -T:Goto,6,goto IL_1b1c; -T:Label,6,case 326: -T:Goto,6,goto IL_1b4b; -T:Label,6,case 327: -T:Goto,6,goto IL_1b7a; -T:Label,6,case 328: -T:Goto,6,goto IL_1b92; -T:Label,6,case 330: -T:Goto,6,goto IL_1bb9; -T:Label,6,case 331: -T:Goto,6,goto IL_1bc1; -T:Label,6,case 329: -T:Label,6,case 332: -T:Label,6,case 333: -T:Goto,6,goto IL_1be7; -T:Label,6,case 335: -T:Label,6,case 336: -T:Goto,6,goto IL_1c00; -T:Label,6,case 337: -T:Goto,6,goto IL_1c0e; -T:Label,6,case 338: -T:Goto,6,goto IL_1c26; -T:Label,6,case 339: -T:Goto,6,goto IL_1c44; -T:Label,6,case 340: -T:Goto,6,goto IL_1c62; -T:Label,6,case 341: -T:Goto,6,goto IL_1c80; -T:Label,6,case 342: -T:Goto,6,goto IL_1c98; -T:Label,6,case 343: -T:Label,6,case 344: -T:Goto,6,goto IL_1cb5; -T:Label,6,case 345: -T:Goto,6,goto IL_1ccd; -T:Label,6,case 346: -T:Label,6,case 347: -T:Goto,6,goto IL_1cea; -T:Label,6,case 348: -T:Goto,6,goto IL_1d02; -T:Label,6,case 349: -T:Label,6,case 350: -T:Goto,6,goto IL_1d1f; -T:Label,6,case 351: -T:Goto,6,goto IL_1d2c; -T:Label,6,case 352: -T:Goto,6,goto IL_1d4a; -T:Label,6,case 353: -T:Goto,6,goto IL_1d6a; -T:Label,6,case 354: -T:Goto,6,goto IL_1d74; -T:Label,6,case 356: -T:Label,6,case 357: -T:Goto,6,goto IL_1d8f; -T:Label,6,case 358: -T:Goto,6,goto IL_1da2; -T:Label,6,case 359: -T:Goto,6,goto IL_1dc9; -T:Label,6,case 360: -T:Goto,6,goto IL_1dfc; -T:Label,6,case 362: -T:Label,6,case 363: -T:Goto,6,goto IL_1e3d; -T:Label,6,case 364: -T:Goto,6,goto IL_1e51; -T:Label,6,case 365: -T:Goto,6,goto IL_1e65; -T:Label,6,case 366: -T:Goto,6,goto IL_1e79; -T:Label,6,case 367: -T:Goto,6,goto IL_1e9f; -T:Label,6,case 368: -T:Goto,6,goto IL_1ec2; -T:Label,6,case 369: -T:Goto,6,goto IL_1ed5; -T:Label,6,case 370: -T:Goto,6,goto IL_1ee2; -T:Label,6,case 371: -T:Goto,6,goto IL_1ef0; -T:Label,6,case 372: -T:Goto,6,goto IL_1f02; -T:Label,6,case 374: -T:Label,6,case 375: -T:Goto,6,goto IL_1f1d; -T:Label,6,case 376: -T:Goto,6,goto IL_1f34; -T:Label,6,case 377: -T:Goto,6,goto IL_1f96; -T:Label,6,case 379: -T:Label,6,case 380: -T:Goto,6,goto IL_1fb2; -T:Label,6,case 381: -T:Goto,6,goto IL_1fbf; -T:Label,6,case 382: -T:Goto,6,goto IL_1fd7; -T:Label,6,case 383: -T:Goto,6,goto IL_1fe8; -T:Label,6,case 384: -T:Goto,6,goto IL_1ff5; -T:Label,6,case 385: -T:Goto,6,goto IL_201a; -T:Label,6,case 387: -T:Goto,6,goto IL_2035; -T:Label,6,case 388: -T:Goto,6,goto IL_203d; -T:Label,6,case 386: -T:Label,6,case 389: -T:Label,6,case 390: -T:Goto,6,goto IL_2055; -T:Label,6,case 391: -T:Label,6,case 392: -T:Goto,6,goto IL_206d; -T:Label,6,case 393: -T:Goto,6,goto IL_2085; -T:Label,6,case 394: -T:Goto,6,goto IL_2096; -T:Label,6,case 395: -T:Goto,6,goto IL_20a3; -T:Label,6,case 396: -T:Goto,6,goto IL_20c8; -T:Label,6,case 398: -T:Goto,6,goto IL_20e4; -T:Label,6,case 399: -T:Goto,6,goto IL_20ec; -T:Label,6,case 397: -T:Label,6,case 400: -T:Label,6,case 401: -T:Label,6,case 402: -T:Goto,6,goto IL_2106; -T:Label,6,case 403: -T:Goto,6,goto IL_2120; -T:Label,6,case 404: -T:Label,6,case 405: -T:Goto,6,goto IL_213d; -T:Label,6,case 406: -T:Goto,6,goto IL_2154; -T:Label,6,case 407: -T:Goto,6,goto IL_216b; -T:Label,6,case 408: -T:Goto,6,goto IL_21c8; -T:Label,6,case 410: -T:Label,6,case 411: -T:Goto,6,goto IL_21e4; -T:Label,6,case 412: -T:Goto,6,goto IL_2216; -T:Label,6,case 413: -T:Label,6,case 414: -T:Goto,6,goto IL_2233; -T:Label,6,case 415: -T:Goto,6,goto IL_2240; -T:Label,6,case 416: -T:Goto,6,goto IL_224d; -T:Label,6,case 417: -T:Goto,6,goto IL_22b9; -T:Label,6,case 419: -T:Label,6,case 420: -T:Goto,6,goto IL_22d8; -T:Label,6,case 422: -T:Label,6,case 423: -T:Goto,6,goto IL_22fa; -T:Label,6,case 378: -T:Label,6,case 409: -T:Label,6,case 421: -T:Label,6,case 424: -T:Goto,6,goto IL_2317; -T:Label,6,case 425: -T:Goto,6,goto IL_2322; -T:Label,6,case 426: -T:Goto,6,goto IL_238e; -T:Label,6,case 428: -T:Label,6,case 429: -T:Goto,6,goto IL_23aa; -T:Label,6,case 430: -T:Goto,6,goto IL_23cf; -T:Label,6,case 431: -T:Goto,6,goto IL_2407; -T:Label,6,case 373: -T:Label,6,case 418: -T:Label,6,case 427: -T:Label,6,case 432: -T:Label,6,case 433: -T:Goto,6,goto IL_241f; -T:Label,6,case 434: -T:Goto,6,goto IL_242a; -T:Label,6,case 435: -T:Goto,6,goto IL_2451; -T:Label,6,case 438: -T:Label,6,case 439: -T:Goto,6,goto IL_2496; -T:Label,6,case 440: -T:Goto,6,goto IL_24ae; -T:Label,6,case 441: -T:Goto,6,goto IL_24cc; -T:Label,6,case 442: -T:Goto,6,goto IL_24f0; -T:Label,6,case 443: -T:Goto,6,goto IL_2514; -T:Label,6,case 444: -T:Goto,6,goto IL_2522; -T:Label,6,case 445: -T:Goto,6,goto IL_2541; -T:Label,6,case 446: -T:Goto,6,goto IL_2564; -T:Label,6,case 447: -T:Goto,6,goto IL_256e; -T:Label,6,case 449: -T:Label,6,case 450: -T:Goto,6,goto IL_2589; -T:Label,6,case 451: -T:Goto,6,goto IL_25a0; -T:Label,6,case 452: -T:Goto,6,goto IL_25b3; -T:Label,6,case 453: -T:Goto,6,goto IL_25da; -T:Label,6,case 455: -T:Label,6,case 456: -T:Goto,6,goto IL_25f2; -T:Label,6,case 457: -T:Goto,6,goto IL_2625; -T:Label,6,case 459: -T:Label,6,case 460: -T:Goto,6,goto IL_2666; -T:Label,6,case 461: -T:Goto,6,goto IL_267a; -T:Label,6,case 462: -T:Goto,6,goto IL_268e; -T:Label,6,case 463: -T:Goto,6,goto IL_26a2; -T:Label,6,case 464: -T:Goto,6,goto IL_26c1; -T:Label,6,case 465: -T:Goto,6,goto IL_26e3; -T:Label,6,case 466: -T:Goto,6,goto IL_26f6; -T:Label,6,case 467: -T:Goto,6,goto IL_2703; -T:Label,6,case 468: -T:Goto,6,goto IL_2715; -T:Label,6,case 470: -T:Label,6,case 471: -T:Goto,6,goto IL_2730; -T:Label,6,case 472: -T:Goto,6,goto IL_2792; -T:Label,6,case 474: -T:Label,6,case 475: -T:Goto,6,goto IL_27ae; -T:Label,6,case 476: -T:Goto,6,goto IL_27bb; -T:Label,6,case 477: -T:Goto,6,goto IL_27f5; -T:Label,6,case 478: -T:Goto,6,goto IL_2803; -T:Label,6,case 479: -T:Goto,6,goto IL_2811; -T:Label,6,case 480: -T:Goto,6,goto IL_282d; -T:Label,6,case 481: -T:Goto,6,goto IL_2849; -T:Label,6,case 482: -T:Goto,6,goto IL_286e; -T:Label,6,case 483: -T:Goto,6,goto IL_287b; -T:Label,6,case 484: -T:Goto,6,goto IL_2889; -T:Label,6,case 486: -T:Label,6,case 487: -T:Goto,6,goto IL_28b9; -T:Label,6,case 489: -T:Label,6,case 490: -T:Goto,6,goto IL_28e9; -T:Label,6,case 492: -T:Label,6,case 493: -T:Goto,6,goto IL_2919; -T:Label,6,case 495: -T:Label,6,case 496: -T:Goto,6,goto IL_2949; -T:Label,6,case 497: -T:Goto,6,goto IL_2956; -T:Label,6,case 498: -T:Goto,6,goto IL_296d; -T:Label,6,case 499: -T:Goto,6,goto IL_29d0; -T:Label,6,case 501: -T:Label,6,case 502: -T:Goto,6,goto IL_29ec; -T:Label,6,case 504: -T:Label,6,case 506: -T:Goto,6,goto IL_2a16; -T:Label,6,case 507: -T:Goto,6,goto IL_2a48; -T:Label,6,case 508: -T:Label,6,case 509: -T:Goto,6,goto IL_2a65; -T:Label,6,case 511: -T:Label,6,case 512: -T:Goto,6,goto IL_2a9c; -T:Label,6,case 514: -T:Label,6,case 515: -T:Goto,6,goto IL_2ad3; -T:Label,6,case 516: -T:Goto,6,goto IL_2b0e; -T:Label,6,case 519: -T:Label,6,case 520: -T:Goto,6,goto IL_2b31; -T:Label,6,case 521: -T:Goto,6,goto IL_2b63; -T:Label,6,case 522: -T:Label,6,case 523: -T:Goto,6,goto IL_2b80; -T:Label,6,case 525: -T:Label,6,case 526: -T:Goto,6,goto IL_2bb7; -T:Label,6,case 528: -T:Label,6,case 529: -T:Goto,6,goto IL_2bee; -T:Label,6,case 530: -T:Goto,6,goto IL_2c29; -T:Label,6,case 533: -T:Label,6,case 534: -T:Goto,6,goto IL_2c4c; -T:Label,6,case 535: -T:Goto,6,goto IL_2c7e; -T:Label,6,case 536: -T:Label,6,case 537: -T:Goto,6,goto IL_2c9b; -T:Label,6,case 539: -T:Label,6,case 540: -T:Goto,6,goto IL_2cd2; -T:Label,6,case 542: -T:Label,6,case 543: -T:Goto,6,goto IL_2d09; -T:Label,6,case 544: -T:Goto,6,goto IL_2d44; -T:Label,6,case 500: -T:Label,6,case 503: -T:Label,6,case 517: -T:Label,6,case 518: -T:Label,6,case 531: -T:Label,6,case 532: -T:Label,6,case 545: -T:Label,6,case 546: -T:Label,6,case 547: -T:Goto,6,goto IL_2d63; -T:Label,6,case 548: -T:Goto,6,goto IL_2d6e; -T:Label,6,case 550: -T:Operation,6,num = 550; -T:Operation,6,Modul1.PersInArbsp = Modul1.PersInArb; -T:Goto,6,goto case 551; -T:Label,6,case 551: -T:Operation,6,num = 551; -T:Operation,6,Modul1.Kenn = 1f; -T:Goto,6,goto case 552; -T:Label,6,case 552: -T:Operation,6,num = 552; -T:Operation,6,if -T:Operation,6,((DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.Sex)].AsString() == -T:String,6,"F" -T:Operation,6,)) -T:Block,7,{ -T:Goto,7,goto case 553; -T:Block,7,} -T:Goto,6,goto case 554; -T:Label,6,case 553: -T:Operation,6,num = 553; -T:Operation,6,Modul1.Kenn = 2f; -T:Goto,6,goto case 554; -T:Label,6,case 554: -T:Label,6,case 555: -T:Operation,6,num = 555; -T:Operation,6,DataModul.DB_LinkTable.Index = nameof(DataModul.LinkIndex.ElSu); -T:Goto,6,goto case 556; -T:Label,6,case 556: -T:Operation,6,num = 556; -T:Operation,6,DataModul.DB_LinkTable.Seek( -T:String,6,"=" -T:Operation,6,, Modul1.PersInArb.AsString(), Modul1.Kenn); -T:Goto,6,goto case 557; -T:Label,6,case 557: -T:Operation,6,num = 557; -T:Operation,6,if -T:Operation,6,(!DataModul.DB_LinkTable.NoMatch) -T:Block,7,{ -T:Goto,7,goto case 559; -T:Block,7,} -T:Goto,6,goto IL_3320; -T:Label,6,case 559: -T:Operation,6,num = 559; -T:Goto,6,goto case 560; -T:Label,6,case 560: -T:Operation,6,num = 560; -T:Operation,6,Modul1.FamInArb = DataModul.DB_LinkTable.Fields[nameof(DataModul.LinkFields.FamNr)].Value.AsInt(); -T:Goto,6,goto case 561; -T:Label,6,case 561: -T:Operation,6,num = 561; -T:Operation,6,MainProject.Forms.Familie.Famles(Modul1.FamInArb); -T:Goto,6,goto case 562; -T:Label,6,case 562: -T:Operation,6,num = 562; -T:Operation,6,if -T:Operation,6,(Modul1.Kenn == 1f) -T:Block,7,{ -T:Goto,7,goto case 563; -T:Block,7,} -T:Goto,6,goto case 565; -T:Label,6,case 563: -T:Operation,6,num = 563; -T:Operation,6,Modul1.PersInArb = Modul1.Family.Frau; -T:Goto,6,goto case 564; -T:Label,6,case 565: -T:Operation,6,num = 565; -T:Operation,6,if -T:Operation,6,(Modul1.Kenn == 2f) -T:Block,7,{ -T:Goto,7,goto case 566; -T:Block,7,} -T:Goto,6,goto case 564; -T:Label,6,case 566: -T:Operation,6,num = 566; -T:Operation,6,Modul1.PersInArb = Modul1.Family.Mann; -T:Goto,6,goto case 564; -T:Label,6,case 564: -T:Label,6,case 567: -T:Label,6,case 568: -T:Operation,6,num = 568; -T:Operation,6,DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.ArtNr); -T:Goto,6,goto case 569; -T:Label,6,case 569: -T:Operation,6,num = 569; -T:Operation,6,Modul1.I = 101; -T:Goto,6,goto case 570; -T:Label,6,case 570: -T:Operation,6,num = 570; -T:Operation,6,Modul1.Ubg = Modul1.I; -T:Goto,6,goto case 571; -T:Label,6,case 571: -T:Operation,6,num = 571; -T:Operation,6,DataModul.DB_EventTable.Seek( -T:String,6,"=" -T:Operation,6,, Modul1.Ubg.AsString(), Modul1.PersInArb.AsString(), -T:String,6,"0" -T:Operation,6,); -T:Goto,6,goto case 572; -T:Label,6,case 572: -T:Operation,6,num = 572; -T:Operation,6,if -T:Operation,6,(!DataModul.DB_EventTable.NoMatch) -T:Block,7,{ -T:Goto,7,goto case 574; -T:Block,7,} -T:Goto,6,goto case 573; -T:Label,6,case 574: -T:Label,6,case 575: -T:Operation,6,num = 575; -T:Operation,6,if -T:Operation,6,((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -T:Block,7,{ -T:Goto,7,goto case 576; -T:Block,7,} -T:Goto,6,goto case 573; -T:Label,6,case 576: -T:Operation,6,num = 576; -T:Operation,6,if -T:Operation,6,(Conversions.ToDouble(Strings.Trim(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsString())) > 0.0) -T:Block,7,{ -T:Goto,7,goto case 577; -T:Block,7,} -T:Goto,6,goto case 573; -T:Label,6,case 577: -T:Operation,6,num = 577; -T:Operation,6,transdat = DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].Value.AsInt(); -T:Goto,6,goto case 578; -T:Label,6,case 578: -T:Operation,6,num = 578; -T:Operation,6,neuedat(); -T:Goto,6,goto IL_3395; -T:Label,6,case 573: -T:Label,6,case 580: -T:Label,6,case 581: -T:Label,6,case 582: -T:Operation,6,num = 582; -T:Operation,6,lErl = 6; -T:Goto,6,goto case 583; -T:Label,6,case 583: -T:Block,7,{ -T:Operation,7,num = 583; -T:Operation,7,Modul1.I++; -T:Operation,7,int i = Modul1.I; -T:Operation,7,num5 = 102; -T:Operation,7,if -T:Operation,7,(i <= num5) -T:Block,8,{ -T:Goto,8,goto case 570; -T:Block,8,} -T:Goto,7,goto case 584; -T:Block,7,} -T:Label,6,case 584: -T:Operation,6,num = 584; -T:Operation,6,num6 = 30000000; -T:Goto,6,goto case 585; -T:Label,6,case 585: -T:Operation,6,num = 585; -T:Operation,6,this.A = 1; -T:Goto,6,goto case 586; -T:Label,6,case 586: -T:Operation,6,num = 586; -T:Operation,6,if -T:Operation,6,(Modul1.Family.Kind[this.A] > 0) -T:Block,7,{ -T:Goto,7,goto case 587; -T:Block,7,} -T:Goto,6,goto case 598; -T:Label,6,case 587: -T:Operation,6,num = 587; -T:Operation,6,Modul1.I = 101; -T:Goto,6,goto case 588; -T:Label,6,case 588: -T:Operation,6,num = 588; -T:Operation,6,DataModul.DB_EventTable.Seek( -T:String,6,"=" -T:Operation,6,, Modul1.I.AsString(), Modul1.Family.Kind[this.A].AsString(), -T:String,6,"0" -T:Operation,6,); -T:Goto,6,goto case 589; -T:Label,6,case 589: -T:Operation,6,num = 589; -T:Operation,6,if -T:Operation,6,(!DataModul.DB_EventTable.NoMatch) -T:Block,7,{ -T:Goto,7,goto case 590; -T:Block,7,} -T:Goto,6,goto case 593; -T:Label,6,case 590: -T:Operation,6,num = 590; -T:Operation,6,if -T:Operation,6,(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].Value) > 0.0) -T:Block,7,{ -T:Goto,7,goto case 591; -T:Block,7,} -T:Goto,6,goto case 593; -T:Label,6,case 591: -T:Operation,6,num = 591; -T:Operation,6,if -T:Operation,6,(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].Value) < num6) -T:Block,7,{ -T:Goto,7,goto case 592; -T:Block,7,} -T:Goto,6,goto case 593; -T:Label,6,case 592: -T:Operation,6,num = 592; -T:Operation,6,num6 = (int)Math.Round(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].Value)); -T:Goto,6,goto case 593; -T:Label,6,case 593: -T:Label,6,case 594: -T:Label,6,case 595: -T:Label,6,case 596: -T:Block,7,{ -T:Operation,7,num = 596; -T:Operation,7,Modul1.I++; -T:Operation,7,int i2 = Modul1.I; -T:Operation,7,num5 = 102; -T:Operation,7,if -T:Operation,7,(i2 <= num5) -T:Block,8,{ -T:Goto,8,goto case 588; -T:Block,8,} -T:Goto,7,goto case 597; -T:Block,7,} -T:Label,6,case 598: -T:Operation,6,num = 598; -T:Goto,6,goto case 599; -T:Label,6,case 597: -T:Label,6,case 600: -T:Label,6,case 601: -T:Block,7,{ -T:Operation,7,num = 601; -T:Operation,7,this.A++; -T:Operation,7,int a = this.A; -T:Operation,7,num5 = 99; -T:Operation,7,if -T:Operation,7,(a <= num5) -T:Block,8,{ -T:Goto,8,goto case 586; -T:Block,8,} -T:Goto,7,goto case 599; -T:Block,7,} -T:Label,6,case 599: -T:Label,6,case 602: -T:Operation,6,num = 602; -T:Operation,6,if -T:Operation,6,(num6 < 30000000) -T:Block,7,{ -T:Goto,7,goto case 603; -T:Block,7,} -T:Goto,6,goto IL_32fc; -T:Label,6,case 603: -T:Operation,6,num = 603; -T:Operation,6,transdat = Conversions.ToInteger(Conversion.Str(Conversions.ToDouble((num6).AsString().Left( 4)) - 25.0) + -T:String,6,"0000" -T:Operation,6,); -T:Goto,6,goto case 604; -T:Label,6,case 604: -T:Operation,6,num = 604; -T:Operation,6,neuedat(); -T:Goto,6,goto IL_32fc; -T:Label,6,case 549: -T:Label,6,case 605: -T:Label,6,case 606: -T:Goto,6,goto IL_32fc; -T:Label,6,case 607: -T:Goto,6,goto IL_3307; -T:Label,6,case 558: -T:Label,6,case 608: -T:Label,6,case 609: -T:Goto,6,goto IL_3320; -T:Label,6,case 610: -T:Goto,6,goto IL_3348; -T:Label,6,case 611: -T:Label,6,case 612: -T:Goto,6,goto IL_3383; -T:Label,6,case 473: -T:Label,6,case 485: -T:Label,6,case 488: -T:Label,6,case 491: -T:Label,6,case 494: -T:Label,6,case 510: -T:Label,6,case 513: -T:Label,6,case 524: -T:Label,6,case 527: -T:Label,6,case 538: -T:Label,6,case 541: -T:Label,6,case 579: -T:Label,6,case 613: -T:Goto,6,goto IL_3395; -T:Label,6,case 614: -T:Goto,6,goto IL_33a0; -T:Label,6,case 615: -T:Goto,6,goto IL_33c7; -T:Label,6,case 617: -T:Label,6,case 618: -T:Goto,6,goto IL_3406; -T:Label,6,case 619: -T:Goto,6,goto IL_341e; -T:Label,6,case 620: -T:Goto,6,goto IL_343f; -T:Label,6,case 621: -T:Goto,6,goto IL_345d; -T:Label,6,case 622: -T:Goto,6,goto IL_3467; -T:Label,6,case 624: -T:Label,6,case 625: -T:Goto,6,goto IL_3482; -T:Label,6,case 626: -T:Goto,6,goto IL_3499; -T:Label,6,case 627: -T:Goto,6,goto IL_34ac; -T:Label,6,case 628: -T:Goto,6,goto IL_34d3; -T:Label,6,case 630: -T:Label,6,case 631: -T:Goto,6,goto IL_34eb; -T:Label,6,case 632: -T:Goto,6,goto IL_351e; -T:Label,6,case 634: -T:Label,6,case 635: -T:Goto,6,goto IL_355f; -T:Label,6,case 636: -T:Goto,6,goto IL_357d; -T:Label,6,case 637: -T:Goto,6,goto IL_358a; -T:Label,6,case 638: -T:Goto,6,goto IL_359e; -T:Label,6,case 639: -T:Goto,6,goto IL_35b2; -T:Label,6,case 640: -T:Goto,6,goto IL_35c6; -T:Label,6,case 641: -T:Goto,6,goto IL_35e5; -T:Label,6,case 642: -T:Goto,6,goto IL_3607; -T:Label,6,case 643: -T:Goto,6,goto IL_361a; -T:Label,6,case 644: -T:Goto,6,goto IL_3627; -T:Label,6,case 645: -T:Goto,6,goto IL_3639; -T:Label,6,case 646: -T:Goto,6,goto IL_364b; -T:Label,6,case 648: -T:Label,6,case 649: -T:Goto,6,goto IL_3666; -T:Label,6,case 650: -T:Goto,6,goto IL_36c8; -T:Label,6,case 652: -T:Label,6,case 653: -T:Goto,6,goto IL_36e4; -T:Label,6,case 654: -T:Goto,6,goto IL_36f2; -T:Label,6,case 655: -T:Goto,6,goto IL_3700; -T:Label,6,case 656: -T:Goto,6,goto IL_370e; -T:Label,6,case 657: -T:Goto,6,goto IL_371f; -T:Label,6,case 658: -T:Goto,6,goto IL_3736; -T:Label,6,case 659: -T:Goto,6,goto IL_379d; -T:Label,6,case 660: -T:Goto,6,goto IL_37b4; -T:Label,6,case 661: -T:Label,6,case 662: -T:Goto,6,goto IL_37c2; -T:Label,6,case 663: -T:Goto,6,goto IL_37d3; -T:Label,6,case 664: -T:Goto,6,goto IL_37e0; -T:Label,6,case 665: -T:Goto,6,goto IL_3811; -T:Label,6,case 666: -T:Label,6,case 667: -T:Goto,6,goto IL_3822; -T:Label,6,case 668: -T:Goto,6,goto IL_3839; -T:Label,6,case 669: -T:Goto,6,goto IL_38a0; -T:Label,6,case 670: -T:Goto,6,goto IL_38b7; -T:Label,6,case 671: -T:Label,6,case 672: -T:Goto,6,goto IL_38c5; -T:Label,6,case 673: -T:Goto,6,goto IL_38e8; -T:Label,6,case 674: -T:Goto,6,goto IL_38f5; -T:Label,6,case 675: -T:Goto,6,goto IL_3935; -T:Label,6,case 676: -T:Goto,6,goto IL_394b; -T:Label,6,case 677: -T:Label,6,case 678: -T:Goto,6,goto IL_3962; -T:Label,6,case 679: -T:Goto,6,goto IL_3978; -T:Label,6,case 680: -T:Label,6,case 681: -T:Goto,6,goto IL_398f; -T:Label,6,case 682: -T:Goto,6,goto IL_39f2; -T:Label,6,case 683: -T:Goto,6,goto IL_3a0c; -T:Label,6,case 684: -T:Label,6,case 685: -T:Goto,6,goto IL_3a23; -T:Label,6,case 686: -T:Goto,6,goto IL_3a86; -T:Label,6,case 687: -T:Goto,6,goto IL_3aa0; -T:Label,6,case 688: -T:Label,6,case 689: -T:Goto,6,goto IL_3ab7; -T:Label,6,case 690: -T:Goto,6,goto IL_3b1a; -T:Label,6,case 691: -T:Goto,6,goto IL_3b34; -T:Label,6,case 692: -T:Label,6,case 693: -T:Goto,6,goto IL_3b4b; -T:Label,6,case 694: -T:Goto,6,goto IL_3bae; -T:Label,6,case 695: -T:Goto,6,goto IL_3bc8; -T:Label,6,case 696: -T:Label,6,case 697: -T:Goto,6,goto IL_3bdf; -T:Label,6,case 698: -T:Goto,6,goto IL_3c42; -T:Label,6,case 699: -T:Goto,6,goto IL_3c5c; -T:Label,6,case 700: -T:Label,6,case 701: -T:Goto,6,goto IL_3c73; -T:Label,6,case 702: -T:Goto,6,goto IL_3cd7; -T:Label,6,case 703: -T:Goto,6,goto IL_3cf1; -T:Label,6,case 704: -T:Label,6,case 705: -T:Goto,6,goto IL_3d08; -T:Label,6,case 706: -T:Goto,6,goto IL_3d1f; -T:Label,6,case 707: -T:Goto,6,goto IL_3d7c; -T:Label,6,case 708: -T:Goto,6,goto IL_3d96; -T:Label,6,case 709: -T:Label,6,case 710: -T:Goto,6,goto IL_3dad; -T:Label,6,case 651: -T:Label,6,case 711: -T:Label,6,case 712: -T:Goto,6,goto IL_3de8; -T:Label,6,case 713: -T:Goto,6,goto IL_3e0f; -T:Label,6,case 715: -T:Label,6,case 716: -T:Goto,6,goto IL_3e4e; -T:Label,6,case 717: -T:Goto,6,goto IL_3e62; -T:Label,6,case 718: -T:Goto,6,goto IL_3e7a; -T:Label,6,case 719: -T:Goto,6,goto IL_3e84; -T:Label,6,case 721: -T:Label,6,case 722: -T:Goto,6,goto IL_3e9f; -T:Label,6,case 723: -T:Goto,6,goto IL_3ebd; -T:Label,6,case 724: -T:Goto,6,goto IL_3edb; -T:Label,6,case 725: -T:Goto,6,goto IL_3ef9; -T:Label,6,case 726: -T:Goto,6,goto IL_3f16; -T:Label,6,case 727: -T:Goto,6,goto IL_3f33; -T:Label,6,case 728: -T:Goto,6,goto IL_3f45; -T:Label,6,case 729: -T:Goto,6,goto IL_3f5c; -T:Label,6,case 730: -T:Goto,6,goto IL_3fb6; -T:Label,6,case 731: -T:Goto,6,goto IL_3fc4; -T:Label,6,case 734: -T:Goto,6,goto IL_3fe6; -T:Label,6,case 735: -T:Goto,6,goto IL_3ffb; -T:Label,6,case 736: -T:Goto,6,goto IL_4044; -T:Label,6,case 737: -T:Goto,6,goto IL_4076; -T:Label,6,case 738: -T:Label,6,case 739: -T:Goto,6,goto IL_4091; -T:Label,6,case 740: -T:Goto,6,goto IL_40c3; -T:Label,6,case 741: -T:Label,6,case 742: -T:Goto,6,goto IL_40de; -T:Label,6,case 743: -T:Goto,6,goto IL_4110; -T:Label,6,case 744: -T:Label,6,case 745: -T:Goto,6,goto IL_412b; -T:Label,6,case 746: -T:Goto,6,goto IL_415d; -T:Label,6,case 747: -T:Label,6,case 748: -T:Goto,6,goto IL_4178; -T:Label,6,case 749: -T:Goto,6,goto IL_41aa; -T:Label,6,case 750: -T:Label,6,case 751: -T:Goto,6,goto IL_41c5; -T:Label,6,case 752: -T:Goto,6,goto IL_4203; -T:Label,6,case 753: -T:Label,6,case 754: -T:Goto,6,goto IL_421e; -T:Label,6,case 755: -T:Goto,6,goto IL_4259; -T:Label,6,case 756: -T:Label,6,case 757: -T:Goto,6,goto IL_4274; -T:Label,6,case 758: -T:Goto,6,goto IL_42af; -T:Label,6,case 759: -T:Label,6,case 760: -T:Goto,6,goto IL_42ca; -T:Label,6,case 761: -T:Goto,6,goto IL_4308; -T:Label,6,case 762: -T:Label,6,case 763: -T:Goto,6,goto IL_4323; -T:Label,6,case 764: -T:Goto,6,goto IL_4361; -T:Label,6,case 765: -T:Label,6,case 766: -T:Goto,6,goto IL_437c; -T:Label,6,case 767: -T:Goto,6,goto IL_43ba; -T:Label,6,case 768: -T:Label,6,case 769: -T:Goto,6,goto IL_43d5; -T:Label,6,case 770: -T:Goto,6,goto IL_43f2; -T:Label,6,case 771: -T:Goto,6,goto IL_4407; -T:Label,6,case 732: -T:Label,6,case 733: -T:Label,6,case 772: -T:Goto,6,goto IL_441a; -T:Label,6,case 774: -T:Goto,6,goto IL_4439; -T:Label,6,case 775: -T:Goto,6,goto IL_4441; -T:Label,6,case 773: -T:Label,6,case 776: -T:Label,6,case 777: -T:Goto,6,goto IL_4454; -T:Label,6,case 778: -T:Goto,6,goto IL_446b; -T:Label,6,case 32: -T:Label,6,case 68: -T:Label,6,case 157: -T:Label,6,case 195: -T:Label,6,case 311: -T:Label,6,case 312: -T:Label,6,case 320: -T:Label,6,case 334: -T:Label,6,case 437: -T:Label,6,case 469: -T:Label,6,case 616: -T:Label,6,case 647: -T:Label,6,case 714: -T:Label,6,case 779: -T:Label,6,case 780: -T:Label,6,case 781: -T:Goto,6,goto IL_448a; -T:Label,6,case 782: -T:Goto,6,goto IL_4494; -T:Label,6,case 783: -T:Goto,6,goto IL_44ac; -T:Label,6,case 784: -T:Goto,6,goto IL_44c9; -T:Label,6,case 785: -T:Goto,6,goto IL_44d6; -T:Label,6,case 786: -T:Goto,6,goto IL_44f3; -T:Label,6,case 789: -T:Goto,6,goto IL_451d; -T:Label,6,case 790: -T:Goto,6,goto IL_4537; -T:Label,6,case 791: -T:Goto,6,goto IL_4545; -T:Label,6,case 792: -T:Label,6,case 793: -T:Label,6,case 794: -T:Goto,6,goto IL_4563; -T:Label,6,case 795: -T:Label,6,case 797: -T:Goto,6,goto IL_4593; -T:Label,6,default: -T:Goto,6,goto end_IL_0001; -T:Label,6,case 46: -T:Label,6,case 52: -T:Label,6,case 56: -T:Label,6,case 178: -T:Label,6,case 184: -T:Label,6,case 319: -T:Label,6,case 355: -T:Label,6,case 361: -T:Label,6,case 436: -T:Label,6,case 448: -T:Label,6,case 454: -T:Label,6,case 458: -T:Label,6,case 623: -T:Label,6,case 629: -T:Label,6,case 633: -T:Label,6,case 720: -T:Label,6,case 787: -T:Label,6,case 788: -T:Label,6,case 798: -T:Goto,6,goto end_IL_0001_2; -T:Block,6,} -T:Goto,5,goto default; -T:Label,5,IL_4537: -T:Operation,5,num = 790; -T:Operation,5,num7 = 200000000; -T:Goto,5,goto IL_4545; -T:Label,5,IL_4545: -T:Operation,5,num = 791; -T:Operation,5,ProjectData.ClearProjectError(); -T:Operation,5,if -T:Operation,5,(num2 == 0) -T:Block,6,{ -T:Operation,6,throw -T:Operation,6,ProjectData.CreateProjectError(-2146828268); -T:Block,6,} -T:Goto,5,goto IL_45b9; -T:Label,5,IL_0c34: -T:Operation,5,num = 152; -T:Operation,5,List1.Items.Add(new ListItem(Modul1.LiText + -T:String,5," " -T:Operation,5,+ Modul1.PersInArb.AsString())); -T:Goto,5,goto IL_0c6f; -T:Label,5,IL_45b9: -T:Operation,5,num4 = unchecked(num2 + 1); -T:Goto,5,goto IL_45bd; -T:Label,5,IL_0016: -T:Operation,5,num = 2; -T:Operation,5,RadioButton1.Visible = true; -T:Goto,5,goto IL_0026; -T:Label,5,IL_0026: -T:Operation,5,num = 3; -T:Operation,5,RadioButton2.Visible = true; -T:Goto,5,goto IL_0036; -T:Label,5,IL_0036: -T:Operation,5,ProjectData.ClearProjectError(); -T:Operation,5,num3 = 2; -T:Goto,5,goto IL_003e; -T:Label,5,IL_003e: -T:Operation,5,num = 5; -T:Operation,5,switch -T:Operation,5,(index) -T:Block,6,{ -T:Label,6,case 0: -T:Label,6,case 1: -T:Label,6,case 4: -T:Label,6,case 5: -T:Label,6,case 6: -T:Operation,6,break; -T:Label,6,case 7: -T:Goto,6,goto IL_0094; -T:Label,6,default: -T:Goto,6,goto IL_00a6; -T:Block,6,} -T:Block,6,{ -T:Goto,6,goto IL_006f; -T:Block,6,} -T:Label,5,IL_0094: -T:Operation,5,num = 13; -T:Operation,5,List1.Visible = false; -T:Goto,5,goto IL_00a6; -T:Label,5,IL_006f: -T:Operation,5,num = 9; -T:Operation,5,List2.Visible = false; -T:Goto,5,goto IL_0080; -T:Label,5,IL_0080: -T:Operation,5,num = 10; -T:Operation,5,List1.Visible = true; -T:Goto,5,goto IL_00a6; -T:Label,5,IL_00a6: -T:Operation,5,num = 15; -T:Operation,5,Label4.Text = -T:String,5,"" -T:Operation,5,; -T:Goto,5,goto IL_00bb; -T:Label,5,IL_00bb: -T:Operation,5,num = 16; -T:Operation,5,if -T:Operation,5,(Modul1.Aus[12] == -T:String,5,"" -T:Operation,5,) -T:Block,6,{ -T:Goto,6,goto IL_00db; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_00ed; -T:Block,6,} -T:Label,5,IL_00db: -T:Operation,5,num = 17; -T:Operation,5,Modul1.Aus[12] = -T:String,5,"200" -T:Operation,5,; -T:Goto,5,goto IL_00ed; -T:Label,5,IL_00ed: -T:Operation,5,num = 19; -T:Operation,5,if -T:Operation,5,(Modul1.Aus[13] == -T:String,5,"" -T:Operation,5,) -T:Block,6,{ -T:Goto,6,goto IL_010d; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_011f; -T:Block,6,} -T:Label,5,IL_010d: -T:Operation,5,num = 20; -T:Operation,5,Modul1.Aus[13] = -T:String,5,"200" -T:Operation,5,; -T:Goto,5,goto IL_011f; -T:Label,5,IL_011f: -T:Operation,5,num = 22; -T:Operation,5,List1.Visible = true; -T:Goto,5,goto IL_0130; -T:Label,5,IL_0130: -T:Operation,5,num = 23; -T:Operation,5,List2.Visible = false; -T:Goto,5,goto IL_0141; -T:Label,5,IL_0141: -T:Operation,5,num = 24; -T:Operation,5,Label2.Text = -T:String,5,"" -T:Operation,5,; -T:Goto,5,goto IL_0156; -T:Label,5,IL_0156: -T:Operation,5,num = 25; -T:Operation,5,if -T:Operation,5,(RadioButton1.Checked) -T:Block,6,{ -T:Goto,6,goto IL_016b; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_017c; -T:Block,6,} -T:Label,5,IL_016b: -T:Operation,5,num = 26; -T:Operation,5,List1.Sorted = true; -T:Goto,5,goto IL_017c; -T:Label,5,IL_017c: -T:Operation,5,num = 28; -T:Operation,5,if -T:Operation,5,(RadioButton2.Checked) -T:Block,6,{ -T:Goto,6,goto IL_0191; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_01a2; -T:Block,6,} -T:Label,5,IL_0191: -T:Operation,5,num = 29; -T:Operation,5,List1.Sorted = false; -T:Goto,5,goto IL_01a2; -T:Label,5,IL_01a2: -T:Operation,5,num = 31; -T:Operation,5,switch -T:Operation,5,(index) -T:Block,6,{ -T:Label,6,case 0: -T:Operation,6,break; -T:Label,6,case 1: -T:Goto,6,goto IL_0cef; -T:Label,6,case 2: -T:Goto,6,goto IL_1a3c; -T:Label,6,case 3: -T:Goto,6,goto IL_1aae; -T:Label,6,case 4: -T:Goto,6,goto IL_1c00; -T:Label,6,case 5: -T:Goto,6,goto IL_2496; -T:Label,6,case 6: -T:Goto,6,goto IL_3406; -T:Label,6,case 7: -T:Goto,6,goto IL_3e4e; -T:Label,6,default: -T:Goto,6,goto IL_448a; -T:Block,6,} -T:Block,6,{ -T:Goto,6,goto IL_01d7; -T:Block,6,} -T:Label,5,IL_3e4e: -T:Operation,5,num = 716; -T:Operation,5,List2.Visible = true; -T:Goto,5,goto IL_3e62; -T:Label,5,IL_3e62: -T:Operation,5,num = 717; -T:Operation,5,List2.Items.Clear(); -T:Goto,5,goto IL_3e7a; -T:Label,5,IL_3e7a: -T:Operation,5,num = 718; -T:Operation,5,num7 = 1; -T:Goto,5,goto IL_3e84; -T:Label,5,IL_3e84: -T:Operation,5,num = 719; -T:Operation,5,if -T:Operation,5,(num7 <= 0) -T:Block,6,{ -T:Goto,6,goto end_IL_0001_2; -T:Block,6,} -T:Goto,5,goto IL_3e9f; -T:Label,5,IL_3e9f: -T:Operation,5,num = 722; -T:Operation,5,Label1[2].Text = -T:String,5,"Fehlliste Orte" -T:Operation,5,; -T:Goto,5,goto IL_3ebd; -T:Label,5,IL_3ebd: -T:Operation,5,num = 723; -T:Operation,5,Label1[1].Text = -T:String,5," Nr Ort Orsteil Kreis Land Staat Loc Länge Breite PLZ Terr StKz" -T:Operation,5,; -T:Goto,5,goto IL_3edb; -T:Label,5,IL_3edb: -T:Operation,5,num = 724; -T:Operation,5,Label1[0].Text = -T:String,5," " -T:Operation,5,; -T:Goto,5,goto IL_3ef9; -T:Label,5,IL_3ef9: -T:Operation,5,num = 725; -T:Operation,5,List2.Items.Add( -T:String,5,"Fehlliste Orte" -T:Operation,5,); -T:Goto,5,goto IL_3f16; -T:Label,5,IL_3f16: -T:Operation,5,num = 726; -T:Operation,5,List2.Items.Add( -T:String,5," Nr Ort Ortsteil Kreis Land Staat Loc. Laenge Breite PLZ Terr. StKz" -T:Operation,5,); -T:Goto,5,goto IL_3f33; -T:Label,5,IL_3f33: -T:Operation,5,num = 727; -T:Operation,5,DataModul.DB_PlaceTable.MoveFirst(); -T:Goto,5,goto IL_3f45; -T:Label,5,IL_3f45: -T:Operation,5,num = 728; -T:Operation,5,DataModul.DB_PlaceTable.Index = nameof(DataModul.PlaceIndex.OrtNr); -T:Goto,5,goto IL_3f5c; -T:Label,5,IL_3f5c: -T:Operation,5,num = 729; -T:Operation,5,DataModul.DB_PlaceTable.Seek( -T:String,5,">=" -T:Operation,5,, num7); -T:Goto,5,goto IL_3fb6; -T:Label,5,IL_3fb6: -T:Operation,5,num = 730; -T:Operation,5,this.A = 1; -T:Goto,5,goto IL_3fc4; -T:Label,5,IL_3fc4: -T:Operation,5,num = 731; -T:Operation,5,if -T:Operation,5,(!DataModul.DB_PlaceTable.NoMatch) -T:Block,6,{ -T:Goto,6,goto IL_441a; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_4439; -T:Block,6,} -T:Label,5,IL_441a: -T:Operation,5,num = 733; -T:Operation,5,if -T:Operation,5,(!DataModul.DB_PlaceTable.EOF) -T:Block,6,{ -T:Goto,6,goto IL_3fe6; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_4454; -T:Block,6,} -T:Label,5,IL_3fe6: -T:Operation,5,num = 734; -T:Operation,5,Modul1.LiText = new string(' ', 80); -T:Goto,5,goto IL_3ffb; -T:Label,5,IL_3ffb: -T:Operation,5,num = 735; -T:Operation,5,StringType.MidStmtStr(ref Modul1.LiText, 1, 10, Strings.Right( -T:String,5," " -T:Operation,5,+ DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.OrtNr)].Value.AsString(), 10)); -T:Goto,5,goto IL_4044; -T:Label,5,IL_4044: -T:Operation,5,num = 736; -T:Operation,5,if -T:Operation,5,((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Ort)].AsInt() == 0)) -T:Block,6,{ -T:Goto,6,goto IL_4076; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_4091; -T:Block,6,} -T:Label,5,IL_4076: -T:Operation,5,num = 737; -T:Operation,5,StringType.MidStmtStr(ref Modul1.LiText, 12, 2, -T:String,5,"F " -T:Operation,5,); -T:Goto,5,goto IL_4091; -T:Label,5,IL_4091: -T:Operation,5,num = 739; -T:Operation,5,if -T:Operation,5,((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Ortsteil)].AsInt() == 0)) -T:Block,6,{ -T:Goto,6,goto IL_40c3; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_40de; -T:Block,6,} -T:Label,5,IL_40c3: -T:Operation,5,num = 740; -T:Operation,5,StringType.MidStmtStr(ref Modul1.LiText, 20, 2, -T:String,5,"F " -T:Operation,5,); -T:Goto,5,goto IL_40de; -T:Label,5,IL_40de: -T:Operation,5,num = 742; -T:Operation,5,if -T:Operation,5,((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Kreis)].AsInt() == 0)) -T:Block,6,{ -T:Goto,6,goto IL_4110; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_412b; -T:Block,6,} -T:Label,5,IL_4110: -T:Operation,5,num = 743; -T:Operation,5,StringType.MidStmtStr(ref Modul1.LiText, 28, 2, -T:String,5,"F " -T:Operation,5,); -T:Goto,5,goto IL_412b; -T:Label,5,IL_412b: -T:Operation,5,num = 745; -T:Operation,5,if -T:Operation,5,((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Land)].AsInt() == 0)) -T:Block,6,{ -T:Goto,6,goto IL_415d; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_4178; -T:Block,6,} -T:Label,5,IL_415d: -T:Operation,5,num = 746; -T:Operation,5,StringType.MidStmtStr(ref Modul1.LiText, 34, 2, -T:String,5,"F " -T:Operation,5,); -T:Goto,5,goto IL_4178; -T:Label,5,IL_4178: -T:Operation,5,num = 748; -T:Operation,5,if -T:Operation,5,((DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Staat)].AsInt() == 0)) -T:Block,6,{ -T:Goto,6,goto IL_41aa; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_41c5; -T:Block,6,} -T:Label,5,IL_41aa: -T:Operation,5,num = 749; -T:Operation,5,StringType.MidStmtStr(ref Modul1.LiText, 39, 2, -T:String,5,"F " -T:Operation,5,); -T:Goto,5,goto IL_41c5; -T:Label,5,IL_41c5: -T:Operation,5,num = 751; -T:Operation,5,if -T:Operation,5,(Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Loc)].AsString()) == -T:String,5,"" -T:Operation,5,) -T:Block,6,{ -T:Goto,6,goto IL_4203; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_421e; -T:Block,6,} -T:Label,5,IL_4203: -T:Operation,5,num = 752; -T:Operation,5,StringType.MidStmtStr(ref Modul1.LiText, 44, 2, -T:String,5,"F " -T:Operation,5,); -T:Goto,5,goto IL_421e; -T:Label,5,IL_421e: -T:Operation,5,num = 754; -T:Operation,5,if -T:Operation,5,(Strings.Len(Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.L)].AsString())) <= 1) -T:Block,6,{ -T:Goto,6,goto IL_4259; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_4274; -T:Block,6,} -T:Label,5,IL_4259: -T:Operation,5,num = 755; -T:Operation,5,StringType.MidStmtStr(ref Modul1.LiText, 52, 2, -T:String,5,"F " -T:Operation,5,); -T:Goto,5,goto IL_4274; -T:Label,5,IL_4274: -T:Operation,5,num = 757; -T:Operation,5,if -T:Operation,5,(Strings.Len(Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.B)].AsString())) <= 1) -T:Block,6,{ -T:Goto,6,goto IL_42af; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_42ca; -T:Block,6,} -T:Label,5,IL_42af: -T:Operation,5,num = 758; -T:Operation,5,StringType.MidStmtStr(ref Modul1.LiText, 58, 2, -T:String,5,"F " -T:Operation,5,); -T:Goto,5,goto IL_42ca; -T:Label,5,IL_42ca: -T:Operation,5,num = 760; -T:Operation,5,if -T:Operation,5,(Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.PLZ)].AsString()) == -T:String,5,"" -T:Operation,5,) -T:Block,6,{ -T:Goto,6,goto IL_4308; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_4323; -T:Block,6,} -T:Label,5,IL_4308: -T:Operation,5,num = 761; -T:Operation,5,StringType.MidStmtStr(ref Modul1.LiText, 63, 2, -T:String,5,"F " -T:Operation,5,); -T:Goto,5,goto IL_4323; -T:Label,5,IL_4323: -T:Operation,5,num = 763; -T:Operation,5,if -T:Operation,5,(Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Terr)].AsString()) == -T:String,5,"" -T:Operation,5,) -T:Block,6,{ -T:Goto,6,goto IL_4361; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_437c; -T:Block,6,} -T:Label,5,IL_4361: -T:Operation,5,num = 764; -T:Operation,5,StringType.MidStmtStr(ref Modul1.LiText, 68, 2, -T:String,5,"F " -T:Operation,5,); -T:Goto,5,goto IL_437c; -T:Label,5,IL_437c: -T:Operation,5,num = 766; -T:Operation,5,if -T:Operation,5,(Strings.Trim(DataModul.DB_PlaceTable.Fields[nameof(DataModul.PlaceFields.Staatk)].AsString()) == -T:String,5,"" -T:Operation,5,) -T:Block,6,{ -T:Goto,6,goto IL_43ba; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_43d5; -T:Block,6,} -T:Label,5,IL_43ba: -T:Operation,5,num = 767; -T:Operation,5,StringType.MidStmtStr(ref Modul1.LiText, 71, 2, -T:String,5,"F " -T:Operation,5,); -T:Goto,5,goto IL_43d5; -T:Label,5,IL_43d5: -T:Operation,5,num = 769; -T:Operation,5,List2.Items.Add(Modul1.LiText); -T:Goto,5,goto IL_43f2; -T:Label,5,IL_43f2: -T:Operation,5,num = 770; -T:Operation,5,Modul1.LiText = new string(' ', 80); -T:Goto,5,goto IL_4407; -T:Label,5,IL_4407: -T:Operation,5,num = 771; -T:Operation,5,DataModul.DB_PlaceTable.MoveNext(); -T:Goto,5,goto IL_441a; -T:Label,5,IL_4439: -T:Operation,5,num = 774; -T:Goto,5,goto IL_4441; -T:Label,5,IL_4441: -T:Operation,5,num = 775; -T:Operation,5,DataModul.DB_PlaceTable.MoveNext(); -T:Goto,5,goto IL_4454; -T:Label,5,IL_4454: -T:Operation,5,num = 777; -T:Operation,5,if -T:Operation,5,(DataModul.DB_PlaceTable.EOF) -T:Block,6,{ -T:Goto,6,goto IL_446b; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_448a; -T:Block,6,} -T:Label,5,IL_446b: -T:Operation,5,num = 778; -T:Operation,5,List2.Items.Add( -T:String,5,"Ende der Liste" -T:Operation,5,); -T:Goto,5,goto IL_448a; -T:Label,5,IL_3406: -T:Operation,5,num = 618; -T:Operation,5,List1.Items.Clear(); -T:Goto,5,goto IL_341e; -T:Label,5,IL_341e: -T:Operation,5,num = 619; -T:Operation,5,Label1[2].Text = Modul1.IText[84]; -T:Goto,5,goto IL_343f; -T:Label,5,IL_343f: -T:Operation,5,num = 620; -T:Operation,5,Label1[0].Text = -T:String,5,"Name Elternteil Kind Pate Zeuge Adoptivkind verbunden" -T:Operation,5,; -T:Goto,5,goto IL_345d; -T:Label,5,IL_345d: -T:Operation,5,num = 621; -T:Operation,5,num7 = 1; -T:Goto,5,goto IL_3467; -T:Label,5,IL_3467: -T:Operation,5,num = 622; -T:Operation,5,if -T:Operation,5,(num7 <= 0) -T:Block,6,{ -T:Goto,6,goto end_IL_0001_2; -T:Block,6,} -T:Goto,5,goto IL_3482; -T:Label,5,IL_3482: -T:Operation,5,num = 625; -T:Operation,5,DataModul.DB_PersonTable.Index = nameof(DataModul.PersonIndex.PerNr); -T:Goto,5,goto IL_3499; -T:Label,5,IL_3499: -T:Operation,5,num = 626; -T:Operation,5,DataModul.DB_PersonTable.MoveLast(); -T:Goto,5,goto IL_34ac; -T:Label,5,IL_34ac: -T:Operation,5,num = 627; -T:Operation,5,num8 = DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value.AsInt(); -T:Goto,5,goto IL_34d3; -T:Label,5,IL_34d3: -T:Operation,5,num = 628; -T:Operation,5,if -T:Operation,5,(num7 == 0) -T:Block,6,{ -T:Goto,6,goto end_IL_0001_2; -T:Block,6,} -T:Goto,5,goto IL_34eb; -T:Label,5,IL_34eb: -T:Operation,5,num = 631; -T:Operation,5,if -T:Operation,5,((num7 > DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value)) -T:Block,6,{ -T:Goto,6,goto IL_351e; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_355f; -T:Block,6,} -T:Label,5,IL_351e: -T:Operation,5,num = 632; -T:Operation,5,Interaction.MsgBox(Modul1.IText[173] + -T:String,5," " -T:Operation,5,+ num7.AsString() + Modul1.IText[172]); -T:Goto,5,goto end_IL_0001_2; -T:Label,5,IL_355f: -T:Operation,5,num = 635; -T:Operation,5,Label1[1].Text = -T:String,5,"unvollständig verknüpfte Personen " -T:Operation,5,; -T:Goto,5,goto IL_357d; -T:Label,5,IL_357d: -T:Operation,5,num = 636; -T:Operation,5,Modul1.Schalt = 3; -T:Goto,5,goto IL_358a; -T:Label,5,IL_358a: -T:Operation,5,num = 637; -T:Operation,5,ProgressBar1.Minimum = 0; -T:Goto,5,goto IL_359e; -T:Label,5,IL_359e: -T:Operation,5,num = 638; -T:Operation,5,ProgressBar1.Maximum = 0; -T:Goto,5,goto IL_35b2; -T:Label,5,IL_35b2: -T:Operation,5,num = 639; -T:Operation,5,ProgressBar1.Step = 1; -T:Goto,5,goto IL_35c6; -T:Label,5,IL_35c6: -T:Operation,5,num = 640; -T:Operation,5,ProgressBar1.Maximum = DataModul.DB_PersonTable.RecordCount - 1; -T:Goto,5,goto IL_35e5; -T:Label,5,IL_35e5: -T:Operation,5,num = 641; -T:Operation,5,i3 = num7; -T:Operation,5,num9 = DataModul.DB_PersonTable.RecordCount - 1; -T:Operation,5,I1 = i3; -T:Goto,5,goto IL_3dfe; -T:Label,5,IL_3dfe: -T:Operation,5,i4 = I1; -T:Operation,5,num5 = num9; -T:Operation,5,if -T:Operation,5,(i4 <= num5) -T:Block,6,{ -T:Goto,6,goto IL_3607; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_3e0f; -T:Block,6,} -T:Label,5,IL_3e0f: -T:Operation,5,num = 713; -T:Operation,5,Label4.Text = List1.Items.Count - 1.AsString() + -T:String,5," Einträge" -T:Operation,5,; -T:Goto,5,goto IL_448a; -T:Label,5,IL_3607: -T:Operation,5,num = 642; -T:Operation,5,ProgressBar1.PerformStep(); -T:Goto,5,goto IL_361a; -T:Label,5,IL_361a: -T:Operation,5,num = 643; -T:Operation,5,Application.DoEvents(); -T:Goto,5,goto IL_3627; -T:Label,5,IL_3627: -T:Operation,5,num = 644; -T:Operation,5,Modul1.PersInArb = I1; -T:Goto,5,goto IL_3639; -T:Label,5,IL_3639: -T:Operation,5,num = 645; -T:Operation,5,sDest = new string(' ', 80); -T:Goto,5,goto IL_364b; -T:Label,5,IL_364b: -T:Operation,5,num = 646; -T:Operation,5,if -T:Operation,5,(Modul1.PersInArb <= num8) -T:Block,6,{ -T:Goto,6,goto IL_3666; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_448a; -T:Block,6,} -T:Label,5,IL_3666: -T:Operation,5,num = 649; -T:Operation,5,DataModul.DB_PersonTable.Seek( -T:String,5,"=" -T:Operation,5,, Modul1.PersInArb.AsString()); -T:Goto,5,goto IL_36c8; -T:Label,5,IL_36c8: -T:Operation,5,num = 650; -T:Operation,5,if -T:Operation,5,(!DataModul.DB_PersonTable.NoMatch) -T:Block,6,{ -T:Goto,6,goto IL_36e4; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_3de8; -T:Block,6,} -T:Label,5,IL_36e4: -T:Operation,5,num = 653; -T:Operation,5,LiKi = 1; -T:Goto,5,goto IL_36f2; -T:Label,5,IL_36f2: -T:Operation,5,num = 654; -T:Operation,5,LiEl = 1; -T:Goto,5,goto IL_3700; -T:Label,5,IL_3700: -T:Operation,5,num = 655; -T:Operation,5, -T:LComment,5,//LiPa = 1; -T:Goto,5,goto IL_370e; -T:Label,5,IL_370e: -T:Operation,5,num = 656; -T:Operation,5,Modul1.Kenn = 3f; -T:Goto,5,goto IL_371f; -T:Label,5,IL_371f: -T:Operation,5,num = 657; -T:Operation,5,DataModul.DB_LinkTable.Index = nameof(DataModul.LinkIndex.ElSu); -T:Goto,5,goto IL_3736; -T:Label,5,IL_3736: -T:Operation,5,num = 658; -T:Operation,5,DataModul.DB_LinkTable.Seek( -T:String,5,"=" -T:Operation,5,, Modul1.PersInArb.AsString(), Modul1.Kenn); -T:Goto,5,goto IL_379d; -T:Label,5,IL_379d: -T:Operation,5,num = 659; -T:Operation,5,if -T:Operation,5,(DataModul.DB_LinkTable.NoMatch) -T:Block,6,{ -T:Goto,6,goto IL_37b4; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_37c2; -T:Block,6,} -T:Label,5,IL_37b4: -T:Operation,5,num = 660; -T:Operation,5,LiKi = 0; -T:Goto,5,goto IL_37c2; -T:Label,5,IL_37c2: -T:Operation,5,num = 662; -T:Operation,5,Modul1.Kenn = 1f; -T:Goto,5,goto IL_37d3; -T:Label,5,IL_37d3: -T:Operation,5,num = 663; -T:Operation,5,Modul1.PerSatzLes(); -T:Goto,5,goto IL_37e0; -T:Label,5,IL_37e0: -T:Operation,5,num = 664; -T:Operation,5,if -T:Operation,5,((DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.Sex)].AsString() == -T:String,5,"F" -T:Operation,5,)) -T:Block,6,{ -T:Goto,6,goto IL_3811; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_3822; -T:Block,6,} -T:Label,5,IL_3811: -T:Operation,5,num = 665; -T:Operation,5,Modul1.Kenn = 2f; -T:Goto,5,goto IL_3822; -T:Label,5,IL_3822: -T:Operation,5,num = 667; -T:Operation,5,DataModul.DB_LinkTable.Index = nameof(DataModul.LinkIndex.ElSu); -T:Goto,5,goto IL_3839; -T:Label,5,IL_3839: -T:Operation,5,num = 668; -T:Operation,5,DataModul.DB_LinkTable.Seek( -T:String,5,"=" -T:Operation,5,, Modul1.PersInArb.AsString(), Modul1.Kenn); -T:Goto,5,goto IL_38a0; -T:Label,5,IL_38a0: -T:Operation,5,num = 669; -T:Operation,5,if -T:Operation,5,(DataModul.DB_LinkTable.NoMatch) -T:Block,6,{ -T:Goto,6,goto IL_38b7; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_38c5; -T:Block,6,} -T:Label,5,IL_38b7: -T:Operation,5,num = 670; -T:Operation,5,LiEl = 0; -T:Goto,5,goto IL_38c5; -T:Label,5,IL_38c5: -T:Operation,5,num = 672; -T:Operation,5,if -T:Operation,5,((LiKi == 0) & (LiEl == 0)) -T:Block,6,{ -T:Goto,6,goto IL_38e8; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_3de8; -T:Block,6,} -T:Label,5,IL_38e8: -T:Operation,5,num = 673; -T:Operation,5,Modul1.Personlesen(Modul1.PersInArb); -T:Goto,5,goto IL_38f5; -T:Label,5,IL_38f5: -T:Operation,5,num = 674; -T:Operation,5,StringType.MidStmtStr(ref sDest, 1, 20, Strings.Left((Modul1.Kont[0]).Trim() + -T:String,5,"," -T:Operation,5,+ (Modul1.Kont[3]).Trim() + -T:String,5," " -T:Operation,5,, 20)); -T:Goto,5,goto IL_3935; -T:Label,5,IL_3935: -T:Operation,5,num = 675; -T:Operation,5,if -T:Operation,5,(LiEl == 0) -T:Block,6,{ -T:Goto,6,goto IL_394b; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_3962; -T:Block,6,} -T:Label,5,IL_394b: -T:Operation,5,num = 676; -T:Operation,5,StringType.MidStmtStr(ref sDest, 24, 1, -T:String,5,"N" -T:Operation,5,); -T:Goto,5,goto IL_3962; -T:Label,5,IL_3962: -T:Operation,5,num = 678; -T:Operation,5,if -T:Operation,5,(LiKi == 0) -T:Block,6,{ -T:Goto,6,goto IL_3978; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_398f; -T:Block,6,} -T:Label,5,IL_3978: -T:Operation,5,num = 679; -T:Operation,5,StringType.MidStmtStr(ref sDest, 30, 1, -T:String,5,"N" -T:Operation,5,); -T:Goto,5,goto IL_398f; -T:Label,5,IL_398f: -T:Operation,5,num = 681; -T:Operation,5,DataModul.DB_LinkTable.Seek( -T:String,5,"=" -T:Operation,5,, Modul1.PersInArb.AsString(), 4); -T:Goto,5,goto IL_39f2; -T:Label,5,IL_39f2: -T:Operation,5,num = 682; -T:Operation,5,if -T:Operation,5,(!DataModul.DB_LinkTable.NoMatch) -T:Block,6,{ -T:Goto,6,goto IL_3a0c; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_3a23; -T:Block,6,} -T:Label,5,IL_3a0c: -T:Operation,5,num = 683; -T:Operation,5,StringType.MidStmtStr(ref sDest, 36, 1, -T:String,5,"J" -T:Operation,5,); -T:Goto,5,goto IL_3a23; -T:Label,5,IL_3a23: -T:Operation,5,num = 685; -T:Operation,5,DataModul.DB_LinkTable.Seek( -T:String,5,"=" -T:Operation,5,, Modul1.PersInArb.AsString(), 5); -T:Goto,5,goto IL_3a86; -T:Label,5,IL_3a86: -T:Operation,5,num = 686; -T:Operation,5,if -T:Operation,5,(!DataModul.DB_LinkTable.NoMatch) -T:Block,6,{ -T:Goto,6,goto IL_3aa0; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_3ab7; -T:Block,6,} -T:Label,5,IL_3aa0: -T:Operation,5,num = 687; -T:Operation,5,StringType.MidStmtStr(ref sDest, 46, 1, -T:String,5,"J" -T:Operation,5,); -T:Goto,5,goto IL_3ab7; -T:Label,5,IL_3ab7: -T:Operation,5,num = 689; -T:Operation,5,DataModul.DB_LinkTable.Seek( -T:String,5,"=" -T:Operation,5,, Modul1.PersInArb.AsString(), 6); -T:Goto,5,goto IL_3b1a; -T:Label,5,IL_3b1a: -T:Operation,5,num = 690; -T:Operation,5,if -T:Operation,5,(!DataModul.DB_LinkTable.NoMatch) -T:Block,6,{ -T:Goto,6,goto IL_3b34; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_3b4b; -T:Block,6,} -T:Label,5,IL_3b34: -T:Operation,5,num = 691; -T:Operation,5,StringType.MidStmtStr(ref sDest, 46, 1, -T:String,5,"J" -T:Operation,5,); -T:Goto,5,goto IL_3b4b; -T:Label,5,IL_3b4b: -T:Operation,5,num = 693; -T:Operation,5,DataModul.DB_LinkTable.Seek( -T:String,5,"=" -T:Operation,5,, Modul1.PersInArb.AsString(), 7); -T:Goto,5,goto IL_3bae; -T:Label,5,IL_3bae: -T:Operation,5,num = 694; -T:Operation,5,if -T:Operation,5,(!DataModul.DB_LinkTable.NoMatch) -T:Block,6,{ -T:Goto,6,goto IL_3bc8; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_3bdf; -T:Block,6,} -T:Label,5,IL_3bc8: -T:Operation,5,num = 695; -T:Operation,5,StringType.MidStmtStr(ref sDest, 46, 1, -T:String,5,"J" -T:Operation,5,); -T:Goto,5,goto IL_3bdf; -T:Label,5,IL_3bdf: -T:Operation,5,num = 697; -T:Operation,5,DataModul.DB_LinkTable.Seek( -T:String,5,"=" -T:Operation,5,, Modul1.PersInArb.AsString(), 8); -T:Goto,5,goto IL_3c42; -T:Label,5,IL_3c42: -T:Operation,5,num = 698; -T:Operation,5,if -T:Operation,5,(!DataModul.DB_LinkTable.NoMatch) -T:Block,6,{ -T:Goto,6,goto IL_3c5c; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_3c73; -T:Block,6,} -T:Label,5,IL_3c5c: -T:Operation,5,num = 699; -T:Operation,5,StringType.MidStmtStr(ref sDest, 55, 1, -T:String,5,"J" -T:Operation,5,); -T:Goto,5,goto IL_3c73; -T:Label,5,IL_3c73: -T:Operation,5,num = 701; -T:Operation,5,DataModul.DB_LinkTable.Seek( -T:String,5,"=" -T:Operation,5,, Modul1.PersInArb.AsString(), 9); -T:Goto,5,goto IL_3cd7; -T:Label,5,IL_3cd7: -T:Operation,5,num = 702; -T:Operation,5,if -T:Operation,5,(!DataModul.DB_LinkTable.NoMatch) -T:Block,6,{ -T:Goto,6,goto IL_3cf1; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_3d08; -T:Block,6,} -T:Label,5,IL_3cf1: -T:Operation,5,num = 703; -T:Operation,5,StringType.MidStmtStr(ref sDest, 70, 1, -T:String,5,"J" -T:Operation,5,); -T:Goto,5,goto IL_3d08; -T:Label,5,IL_3d08: -T:Operation,5,num = 705; -T:Operation,5,DataModul.DB_WitnessTable.Index = nameof(DataModul.WitnessIndex.ElSu); -T:Goto,5,goto IL_3d1f; -T:Label,5,IL_3d1f: -T:Operation,5,num = 706; -T:Operation,5,DataModul.DB_WitnessTable.Seek( -T:String,5,"=" -T:Operation,5,, Modul1.PersInArb, -T:String,5,"10" -T:Operation,5,); -T:Goto,5,goto IL_3d7c; -T:Label,5,IL_3d7c: -T:Operation,5,num = 707; -T:Operation,5,if -T:Operation,5,(!DataModul.DB_WitnessTable.NoMatch) -T:Block,6,{ -T:Goto,6,goto IL_3d96; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_3dad; -T:Block,6,} -T:Label,5,IL_3d96: -T:Operation,5,num = 708; -T:Operation,5,StringType.MidStmtStr(ref sDest, 46, 1, -T:String,5,"J" -T:Operation,5,); -T:Goto,5,goto IL_3dad; -T:Label,5,IL_3dad: -T:Operation,5,num = 710; -T:Operation,5,List1.Items.Add(new ListItem(sDest + -T:String,5," " -T:Operation,5,+ Modul1.PersInArb.AsString())); -T:Goto,5,goto IL_3de8; -T:Label,5,IL_3de8: -T:Operation,5,num = 712; -T:Operation,5,I1++; -T:Goto,5,goto IL_3dfe; -T:Label,5,IL_2496: -T:Operation,5,num = 439; -T:Operation,5,List1.Items.Clear(); -T:Goto,5,goto IL_24ae; -T:Label,5,IL_24ae: -T:Operation,5,num = 440; -T:Operation,5,Label1[2].Text = -T:String,5,"Personen ohne Datum" -T:Operation,5,; -T:Goto,5,goto IL_24cc; -T:Label,5,IL_24cc: -T:Operation,5,num = 441; -T:Operation,5,Label1[1].Text = Modul1.IText[166]; -T:Goto,5,goto IL_24f0; -T:Label,5,IL_24f0: -T:Operation,5,num = 442; -T:Operation,5,Label1[0].Text = Modul1.IText[167]; -T:Goto,5,goto IL_2514; -T:Label,5,IL_2514: -T:Operation,5,num = 443; -T:Operation,5,I1 = 0; -T:Goto,5,goto IL_2522; -T:Label,5,IL_2522: -T:Operation,5,num = 444; -T:Operation,5,Label1[(short)I1].Refresh(); -T:Goto,5,goto IL_2541; -T:Label,5,IL_2541: -T:Operation,5,num = 445; -T:Operation,5,I1++; -T:Operation,5,i5 = I1; -T:Operation,5,num5 = 2; -T:Operation,5,if -T:Operation,5,(i5 <= num5) -T:Block,6,{ -T:Goto,6,goto IL_2522; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_2564; -T:Block,6,} -T:Label,5,IL_2564: -T:Operation,5,num = 446; -T:Operation,5,num7 = 1; -T:Goto,5,goto IL_256e; -T:Label,5,IL_256e: -T:Operation,5,num = 447; -T:Operation,5,if -T:Operation,5,(num7 <= 0) -T:Block,6,{ -T:Goto,6,goto end_IL_0001_2; -T:Block,6,} -T:Goto,5,goto IL_2589; -T:Label,5,IL_2589: -T:Operation,5,num = 450; -T:Operation,5,DataModul.DB_PersonTable.Index = nameof(DataModul.PersonIndex.PerNr); -T:Goto,5,goto IL_25a0; -T:Label,5,IL_25a0: -T:Operation,5,num = 451; -T:Operation,5,DataModul.DB_PersonTable.MoveLast(); -T:Goto,5,goto IL_25b3; -T:Label,5,IL_25b3: -T:Operation,5,num = 452; -T:Operation,5,num8 = DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value.AsInt(); -T:Goto,5,goto IL_25da; -T:Label,5,IL_25da: -T:Operation,5,num = 453; -T:Operation,5,if -T:Operation,5,(num7 == 0) -T:Block,6,{ -T:Goto,6,goto end_IL_0001_2; -T:Block,6,} -T:Goto,5,goto IL_25f2; -T:Label,5,IL_25f2: -T:Operation,5,num = 456; -T:Operation,5,if -T:Operation,5,((num7 > DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value)) -T:Block,6,{ -T:Goto,6,goto IL_2625; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_2666; -T:Block,6,} -T:Label,5,IL_2625: -T:Operation,5,num = 457; -T:Operation,5,Interaction.MsgBox(Modul1.IText[173] + -T:String,5," " -T:Operation,5,+ num7.AsString() + Modul1.IText[172]); -T:Goto,5,goto end_IL_0001_2; -T:Label,5,IL_2666: -T:Operation,5,num = 460; -T:Operation,5,ProgressBar1.Minimum = 0; -T:Goto,5,goto IL_267a; -T:Label,5,IL_267a: -T:Operation,5,num = 461; -T:Operation,5,ProgressBar1.Maximum = 0; -T:Goto,5,goto IL_268e; -T:Label,5,IL_268e: -T:Operation,5,num = 462; -T:Operation,5,ProgressBar1.Step = 1; -T:Goto,5,goto IL_26a2; -T:Label,5,IL_26a2: -T:Operation,5,num = 463; -T:Operation,5,ProgressBar1.Maximum = DataModul.DB_PersonTable.RecordCount - 1; -T:Goto,5,goto IL_26c1; -T:Label,5,IL_26c1: -T:Operation,5,num = 464; -T:Operation,5,i6 = num7; -T:Operation,5,num10 = DataModul.DB_PersonTable.RecordCount - 1; -T:Operation,5,I1 = i6; -T:Goto,5,goto IL_33b6; -T:Label,5,IL_33b6: -T:Operation,5,i7 = I1; -T:Operation,5,num5 = num10; -T:Operation,5,if -T:Operation,5,(i7 <= num5) -T:Block,6,{ -T:Goto,6,goto IL_26e3; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_33c7; -T:Block,6,} -T:Label,5,IL_33c7: -T:Operation,5,num = 615; -T:Operation,5,Label4.Text = List1.Items.Count - 1.AsString() + -T:String,5," Einträge" -T:Operation,5,; -T:Goto,5,goto IL_448a; -T:Label,5,IL_26e3: -T:Operation,5,num = 465; -T:Operation,5,ProgressBar1.PerformStep(); -T:Goto,5,goto IL_26f6; -T:Label,5,IL_26f6: -T:Operation,5,num = 466; -T:Operation,5,Application.DoEvents(); -T:Goto,5,goto IL_2703; -T:Label,5,IL_2703: -T:Operation,5,num = 467; -T:Operation,5,Modul1.PersInArb = I1; -T:Goto,5,goto IL_2715; -T:Label,5,IL_2715: -T:Operation,5,num = 468; -T:Operation,5,if -T:Operation,5,(Modul1.PersInArb <= num8) -T:Block,6,{ -T:Goto,6,goto IL_2730; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_448a; -T:Block,6,} -T:Label,5,IL_2730: -T:Operation,5,num = 471; -T:Operation,5,DataModul.DB_PersonTable.Seek( -T:String,5,"=" -T:Operation,5,, Modul1.PersInArb.AsString()); -T:Goto,5,goto IL_2792; -T:Label,5,IL_2792: -T:Operation,5,num = 472; -T:Operation,5,if -T:Operation,5,(!DataModul.DB_PersonTable.NoMatch) -T:Block,6,{ -T:Goto,6,goto IL_27ae; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_3395; -T:Block,6,} -T:Label,5,IL_27ae: -T:Operation,5,num = 475; -T:Operation,5,Modul1.Personlesen(Modul1.PersInArb); -T:Goto,5,goto IL_27bb; -T:Label,5,IL_27bb: -T:Operation,5,num = 476; -T:Operation,5,Modul1.LiText = Strings.Left((Modul1.Kont[0]).Trim() + -T:String,5,"," -T:Operation,5,+ (Modul1.Kont[3]).Trim() + -T:String,5," " -T:Operation,5,, 20); -T:Goto,5,goto IL_27f5; -T:Label,5,IL_27f5: -T:Operation,5,num = 477; -T:Operation,5,Modul1.Schalt = 20; -T:Goto,5,goto IL_2803; -T:Label,5,IL_2803: -T:Operation,5,num = 478; -T:Operation,5,T = 1; -T:Goto,5,goto IL_2811; -T:Label,5,IL_2811: -T:Operation,5,num = 479; -T:Operation,5,Modul1.Kont[T + 10] = -T:String,5,"" -T:Operation,5,; -T:Goto,5,goto IL_282d; -T:Label,5,IL_282d: -T:Operation,5,num = 480; -T:Operation,5,Modul1.Kont[T + 20] = -T:String,5,"" -T:Operation,5,; -T:Goto,5,goto IL_2849; -T:Label,5,IL_2849: -T:Operation,5,num = 481; -T:Operation,5,T = (short)unchecked(T + 1); -T:Operation,5,t = T; -T:Operation,5,num11 = 10; -T:Operation,5,if -T:Operation,5,(t <= num11) -T:Block,6,{ -T:Goto,6,goto IL_2811; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_286e; -T:Block,6,} -T:Label,5,IL_286e: -T:Operation,5,num = 482; -T:Operation,5,Modul1.Datles(); -T:Goto,5,goto IL_287b; -T:Label,5,IL_287b: -T:Operation,5,num = 483; -T:Operation,5,sDest2 = -T:String,5," " -T:Operation,5,; -T:Goto,5,goto IL_2889; -T:Label,5,IL_2889: -T:Operation,5,num = 484; -T:Operation,5,if -T:Operation,5,((Modul1.Kont[11]).Trim() == -T:String,5,"" -T:Operation,5,) -T:Block,6,{ -T:Goto,6,goto IL_28b9; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_3395; -T:Block,6,} -T:Label,5,IL_28b9: -T:Operation,5,num = 487; -T:Operation,5,if -T:Operation,5,((Modul1.Kont[12]).Trim() == -T:String,5,"" -T:Operation,5,) -T:Block,6,{ -T:Goto,6,goto IL_28e9; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_3395; -T:Block,6,} -T:Label,5,IL_28e9: -T:Operation,5,num = 490; -T:Operation,5,if -T:Operation,5,((Modul1.Kont[13]).Trim() == -T:String,5,"" -T:Operation,5,) -T:Block,6,{ -T:Goto,6,goto IL_2919; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_3395; -T:Block,6,} -T:Label,5,IL_2919: -T:Operation,5,num = 493; -T:Operation,5,if -T:Operation,5,((Modul1.Kont[14]).Trim() == -T:String,5,"" -T:Operation,5,) -T:Block,6,{ -T:Goto,6,goto IL_2949; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_3395; -T:Block,6,} -T:Label,5,IL_2949: -T:Operation,5,num = 496; -T:Operation,5,num12 = 300; -T:Goto,5,goto IL_2956; -T:Label,5,IL_2956: -T:Operation,5,num = 497; -T:Operation,5,DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.BeSu); -T:Goto,5,goto IL_296d; -T:Label,5,IL_296d: -T:Operation,5,num = 498; -T:Operation,5,DataModul.DB_EventTable.Seek( -T:String,5,"=" -T:Operation,5,, num12, Modul1.PersInArb.AsString()); -T:Goto,5,goto IL_29d0; -T:Label,5,IL_29d0: -T:Operation,5,num = 499; -T:Operation,5,if -T:Operation,5,(!DataModul.DB_EventTable.NoMatch) -T:Block,6,{ -T:Goto,6,goto IL_29ec; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_2d63; -T:Block,6,} -T:Label,5,IL_29ec: -T:Operation,5,num = 502; -T:Operation,5,switch -T:Operation,5,(num12) -T:Block,6,{ -T:Label,6,case 300: -T:Operation,6,break; -T:Label,6,case 301: -T:Goto,6,goto IL_2b31; -T:Label,6,case 302: -T:Goto,6,goto IL_2c4c; -T:Label,6,default: -T:Goto,6,goto IL_2d63; -T:Block,6,} -T:Block,6,{ -T:Goto,6,goto IL_2a16; -T:Block,6,} -T:Label,5,IL_2c4c: -T:Operation,5,num = 534; -T:Operation,5,if -T:Operation,5,((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) -T:Block,6,{ -T:Goto,6,goto IL_2c7e; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_2c9b; -T:Block,6,} -T:Label,5,IL_2c7e: -T:Operation,5,num = 535; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 50, 1, Modul1.IText[175]); -T:Goto,5,goto IL_2c9b; -T:Label,5,IL_2c9b: -T:Operation,5,num = 537; -T:Operation,5,if -T:Operation,5,(!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -T:Block,6,{ -T:Goto,6,goto IL_2cd2; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_3395; -T:Block,6,} -T:Label,5,IL_2cd2: -T:Operation,5,num = 540; -T:Operation,5,if -T:Operation,5,(!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) -T:Block,6,{ -T:Goto,6,goto IL_2d09; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_3395; -T:Block,6,} -T:Label,5,IL_2d09: -T:Operation,5,num = 543; -T:Operation,5,if -T:Operation,5,(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -T:Block,6,{ -T:Goto,6,goto IL_2d44; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_2d63; -T:Block,6,} -T:Label,5,IL_2d44: -T:Operation,5,num = 544; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 53, 1, Modul1.IText[175]); -T:Goto,5,goto IL_2d63; -T:Label,5,IL_2b31: -T:Operation,5,num = 520; -T:Operation,5,if -T:Operation,5,((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) -T:Block,6,{ -T:Goto,6,goto IL_2b63; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_2b80; -T:Block,6,} -T:Label,5,IL_2b63: -T:Operation,5,num = 521; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 42, 1, Modul1.IText[175]); -T:Goto,5,goto IL_2b80; -T:Label,5,IL_2b80: -T:Operation,5,num = 523; -T:Operation,5,if -T:Operation,5,(!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -T:Block,6,{ -T:Goto,6,goto IL_2bb7; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_3395; -T:Block,6,} -T:Label,5,IL_2bb7: -T:Operation,5,num = 526; -T:Operation,5,if -T:Operation,5,(!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) -T:Block,6,{ -T:Goto,6,goto IL_2bee; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_3395; -T:Block,6,} -T:Label,5,IL_2bee: -T:Operation,5,num = 529; -T:Operation,5,if -T:Operation,5,(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -T:Block,6,{ -T:Goto,6,goto IL_2c29; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_2d63; -T:Block,6,} -T:Label,5,IL_2c29: -T:Operation,5,num = 530; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 46, 1, Modul1.IText[175]); -T:Goto,5,goto IL_2d63; -T:Label,5,IL_2a16: -T:Operation,5,num = 506; -T:Operation,5,if -T:Operation,5,((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) -T:Block,6,{ -T:Goto,6,goto IL_2a48; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_2a65; -T:Block,6,} -T:Label,5,IL_2a48: -T:Operation,5,num = 507; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 34, 1, Modul1.IText[175]); -T:Goto,5,goto IL_2a65; -T:Label,5,IL_2a65: -T:Operation,5,num = 509; -T:Operation,5,if -T:Operation,5,(!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -T:Block,6,{ -T:Goto,6,goto IL_2a9c; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_3395; -T:Block,6,} -T:Label,5,IL_2a9c: -T:Operation,5,num = 512; -T:Operation,5,if -T:Operation,5,(!(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) -T:Block,6,{ -T:Goto,6,goto IL_2ad3; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_3395; -T:Block,6,} -T:Label,5,IL_2ad3: -T:Operation,5,num = 515; -T:Operation,5,if -T:Operation,5,(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -T:Block,6,{ -T:Goto,6,goto IL_2b0e; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_2d63; -T:Block,6,} -T:Label,5,IL_2b0e: -T:Operation,5,num = 516; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 38, 1, Modul1.IText[175]); -T:Goto,5,goto IL_2d63; -T:Label,5,IL_2d63: -T:Operation,5,num = 547; -T:Operation,5,lErl = 92; -T:Goto,5,goto IL_2d6e; -T:Label,5,IL_2d6e: -T:Operation,5,num = 548; -T:Operation,5,num12 = (short)unchecked(num12 + 1); -T:Operation,5,num13 = num12; -T:Operation,5,num11 = 302; -T:Operation,5,if -T:Operation,5,(num13 <= num11) -T:Block,6,{ -T:Goto,6,goto IL_2956; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_32fc; -T:Block,6,} -T:Label,5,IL_32fc: -T:Operation,5,num = 606; -T:Operation,5,lErl = 45; -T:Goto,5,goto IL_3307; -T:Label,5,IL_3307: -T:Operation,5,num = 607; -T:Operation,5,Modul1.LiText += sDest2; -T:Goto,5,goto IL_3320; -T:Label,5,IL_3320: -T:Operation,5,num = 609; -T:Operation,5,if -T:Operation,5,((Modul1.LiText).Trim() != -T:String,5,"" -T:Operation,5,) -T:Block,6,{ -T:Goto,6,goto IL_3348; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_3383; -T:Block,6,} -T:Label,5,IL_3348: -T:Operation,5,num = 610; -T:Operation,5,List1.Items.Add(new ListItem(Modul1.LiText + -T:String,5," " -T:Operation,5,+ Modul1.PersInArb.AsString())); -T:Goto,5,goto IL_3383; -T:Label,5,IL_3383: -T:Operation,5,num = 612; -T:Operation,5,Modul1.LiText = -T:String,5,"" -T:Operation,5,; -T:Goto,5,goto IL_3395; -T:Label,5,IL_3395: -T:Operation,5,num = 613; -T:Operation,5,lErl = 95; -T:Goto,5,goto IL_33a0; -T:Label,5,IL_33a0: -T:Operation,5,num = 614; -T:Operation,5,I1++; -T:Goto,5,goto IL_33b6; -T:Label,5,IL_1c00: -T:Operation,5,num = 336; -T:Operation,5, -T:LComment,5,//Sz = 0; -T:Goto,5,goto IL_1c0e; -T:Label,5,IL_1c0e: -T:Operation,5,num = 337; -T:Operation,5,List1.Items.Clear(); -T:Goto,5,goto IL_1c26; -T:Label,5,IL_1c26: -T:Operation,5,num = 338; -T:Operation,5,Label1[2].Text = -T:String,5,"Familien ohne Datum" -T:Operation,5,; -T:Goto,5,goto IL_1c44; -T:Label,5,IL_1c44: -T:Operation,5,num = 339; -T:Operation,5,Label1[1].Text = -T:String,5,"Mann Frau Kinder Pro Verl. Hei k.H. Schd. Eheä. Aus Fikt." -T:Operation,5,; -T:Goto,5,goto IL_1c62; -T:Label,5,IL_1c62: -T:Operation,5,num = 340; -T:Operation,5,Label1[0].Text = -T:String,5," DO DO DO DO DO DO DO" -T:Operation,5,; -T:Goto,5,goto IL_1c80; -T:Label,5,IL_1c80: -T:Operation,5,num = 341; -T:Operation,5,if -T:Operation,5,(RadioButton2.Checked) -T:Block,6,{ -T:Goto,6,goto IL_1c98; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_1cb5; -T:Block,6,} -T:Label,5,IL_1c98: -T:Operation,5,num = 342; -T:Operation,5,List1.Items.Add( -T:String,5,"Familien ohne Datum" -T:Operation,5,); -T:Goto,5,goto IL_1cb5; -T:Label,5,IL_1cb5: -T:Operation,5,num = 344; -T:Operation,5,if -T:Operation,5,(RadioButton2.Checked) -T:Block,6,{ -T:Goto,6,goto IL_1ccd; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_1cea; -T:Block,6,} -T:Label,5,IL_1ccd: -T:Operation,5,num = 345; -T:Operation,5,List1.Items.Add( -T:String,5,"Mann Frau Kinder Pro Verl. Hei k.H. Schd. eheä. auß Fikt." -T:Operation,5,); -T:Goto,5,goto IL_1cea; -T:Label,5,IL_1cea: -T:Operation,5,num = 347; -T:Operation,5,if -T:Operation,5,(RadioButton2.Checked) -T:Block,6,{ -T:Goto,6,goto IL_1d02; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_1d1f; -T:Block,6,} -T:Label,5,IL_1d02: -T:Operation,5,num = 348; -T:Operation,5,List1.Items.Add( -T:String,5," DO DO DO DO DO DO DO" -T:Operation,5,); -T:Goto,5,goto IL_1d1f; -T:Label,5,IL_1d1f: -T:Operation,5,num = 350; -T:Operation,5,Modul1.I = 0; -T:Goto,5,goto IL_1d2c; -T:Label,5,IL_1d2c: -T:Operation,5,num = 351; -T:Operation,5,Label1[(short)Modul1.I].Refresh(); -T:Goto,5,goto IL_1d4a; -T:Label,5,IL_1d4a: -T:Operation,5,num = 352; -T:Operation,5,Modul1.I++; -T:Operation,5,i8 = Modul1.I; -T:Operation,5,num5 = 2; -T:Operation,5,if -T:Operation,5,(i8 <= num5) -T:Block,6,{ -T:Goto,6,goto IL_1d2c; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_1d6a; -T:Block,6,} -T:Label,5,IL_1d6a: -T:Operation,5,num = 353; -T:Operation,5,num7 = 1; -T:Goto,5,goto IL_1d74; -T:Label,5,IL_1d74: -T:Operation,5,num = 354; -T:Operation,5,if -T:Operation,5,(num7 <= 0) -T:Block,6,{ -T:Goto,6,goto end_IL_0001_2; -T:Block,6,} -T:Goto,5,goto IL_1d8f; -T:Label,5,IL_1d8f: -T:Operation,5,num = 357; -T:Operation,5,DataModul.DB_FamilyTable.MoveLast(); -T:Goto,5,goto IL_1da2; -T:Label,5,IL_1da2: -T:Operation,5,num = 358; -T:Operation,5,num8 = DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value.AsInt(); -T:Goto,5,goto IL_1dc9; -T:Label,5,IL_1dc9: -T:Operation,5,num = 359; -T:Operation,5,if -T:Operation,5,((num7 > DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value)) -T:Block,6,{ -T:Goto,6,goto IL_1dfc; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_1e3d; -T:Block,6,} -T:Label,5,IL_1dfc: -T:Operation,5,num = 360; -T:Operation,5,Interaction.MsgBox(Modul1.IText[174] + -T:String,5," " -T:Operation,5,+ num7.AsString() + Modul1.IText[172]); -T:Goto,5,goto end_IL_0001_2; -T:Label,5,IL_1e3d: -T:Operation,5,num = 363; -T:Operation,5,ProgressBar1.Minimum = 0; -T:Goto,5,goto IL_1e51; -T:Label,5,IL_1e51: -T:Operation,5,num = 364; -T:Operation,5,ProgressBar1.Maximum = 0; -T:Goto,5,goto IL_1e65; -T:Label,5,IL_1e65: -T:Operation,5,num = 365; -T:Operation,5,ProgressBar1.Step = 1; -T:Goto,5,goto IL_1e79; -T:Label,5,IL_1e79: -T:Operation,5,num = 366; -T:Operation,5,ProgressBar1.Maximum = (int)Math.Round(Conversion.Val(Modul1.Aus[13])); -T:Goto,5,goto IL_1e9f; -T:Label,5,IL_1e9f: -T:Operation,5,num = 367; -T:Operation,5,i9 = num7; -T:Operation,5,num14 = num7 + DataModul.DB_FamilyTable.RecordCount; -T:Operation,5,I1 = i9; -T:Goto,5,goto IL_2440; -T:Label,5,IL_2440: -T:Operation,5,i10 = I1; -T:Operation,5,num5 = num14; -T:Operation,5,if -T:Operation,5,(i10 <= num5) -T:Block,6,{ -T:Goto,6,goto IL_1ec2; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_2451; -T:Block,6,} -T:Label,5,IL_2451: -T:Operation,5,num = 435; -T:Operation,5,Label4.Text = List1.Items.Count - 2.AsString() + -T:String,5," Einträge" -T:Operation,5,; -T:Goto,5,goto end_IL_0001_2; -T:Label,5,IL_1ec2: -T:Operation,5,num = 368; -T:Operation,5,ProgressBar1.PerformStep(); -T:Goto,5,goto IL_1ed5; -T:Label,5,IL_1ed5: -T:Operation,5,num = 369; -T:Operation,5,Application.DoEvents(); -T:Goto,5,goto IL_1ee2; -T:Label,5,IL_1ee2: -T:Operation,5,num = 370; -T:Operation,5,sDest2 = -T:String,5," " -T:Operation,5,; -T:Goto,5,goto IL_1ef0; -T:Label,5,IL_1ef0: -T:Operation,5,num = 371; -T:Operation,5,Modul1.FamInArb = I1; -T:Goto,5,goto IL_1f02; -T:Label,5,IL_1f02: -T:Operation,5,num = 372; -T:Operation,5,if -T:Operation,5,(Modul1.FamInArb <= num8) -T:Block,6,{ -T:Goto,6,goto IL_1f1d; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_241f; -T:Block,6,} -T:Label,5,IL_1f1d: -T:Operation,5,num = 375; -T:Operation,5,DataModul.DB_FamilyTable.Index = nameof(DataModul.FamilyIndex.Fam); -T:Goto,5,goto IL_1f34; -T:Label,5,IL_1f34: -T:Operation,5,num = 376; -T:Operation,5,DataModul.DB_FamilyTable.Seek( -T:String,5,"=" -T:Operation,5,, Modul1.FamInArb.AsString()); -T:Goto,5,goto IL_1f96; -T:Label,5,IL_1f96: -T:Operation,5,num = 377; -T:Operation,5,if -T:Operation,5,(!DataModul.DB_FamilyTable.NoMatch) -T:Block,6,{ -T:Goto,6,goto IL_1fb2; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_2317; -T:Block,6,} -T:Label,5,IL_1fb2: -T:Operation,5,num = 380; -T:Operation,5,MainProject.Forms.Familie.Famles(Modul1.FamInArb); -T:Goto,5,goto IL_1fbf; -T:Label,5,IL_1fbf: -T:Operation,5,num = 381; -T:Operation,5,if -T:Operation,5,(Modul1.Family.Mann > 0) -T:Block,6,{ -T:Goto,6,goto IL_1fd7; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_206d; -T:Block,6,} -T:Label,5,IL_1fd7: -T:Operation,5,num = 382; -T:Operation,5,Modul1.PersInArb = Modul1.Family.Mann; -T:Goto,5,goto IL_1fe8; -T:Label,5,IL_1fe8: -T:Operation,5,num = 383; -T:Operation,5,Modul1.Personlesen(Modul1.PersInArb); -T:Goto,5,goto IL_1ff5; -T:Label,5,IL_1ff5: -T:Operation,5,num = 384; -T:Operation,5,if -T:Operation,5,(Modul1.Kont[0] != -T:String,5,"" -T:Operation,5,) -T:Block,6,{ -T:Goto,6,goto IL_201a; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_2035; -T:Block,6,} -T:Label,5,IL_201a: -T:Operation,5,num = 385; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 1, 15, Modul1.Kont[0]); -T:Goto,5,goto IL_2055; -T:Label,5,IL_2035: -T:Operation,5,num = 387; -T:Goto,5,goto IL_203d; -T:Label,5,IL_203d: -T:Operation,5,num = 388; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 1, 15, -T:String,5,">NN<" -T:Operation,5,); -T:Goto,5,goto IL_2055; -T:Label,5,IL_2055: -T:Operation,5,num = 390; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 16, 2, -T:String,5,"/ " -T:Operation,5,); -T:Goto,5,goto IL_206d; -T:Label,5,IL_206d: -T:Operation,5,num = 392; -T:Operation,5,if -T:Operation,5,(Modul1.Family.Frau > 0) -T:Block,6,{ -T:Goto,6,goto IL_2085; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_2106; -T:Block,6,} -T:Label,5,IL_2085: -T:Operation,5,num = 393; -T:Operation,5,Modul1.PersInArb = Modul1.Family.Frau; -T:Goto,5,goto IL_2096; -T:Label,5,IL_2096: -T:Operation,5,num = 394; -T:Operation,5,Modul1.Personlesen(Modul1.PersInArb); -T:Goto,5,goto IL_20a3; -T:Label,5,IL_20a3: -T:Operation,5,num = 395; -T:Operation,5,if -T:Operation,5,(Modul1.Kont[0] != -T:String,5,"" -T:Operation,5,) -T:Block,6,{ -T:Goto,6,goto IL_20c8; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_20e4; -T:Block,6,} -T:Label,5,IL_20c8: -T:Operation,5,num = 396; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 17, 15, Modul1.Kont[0]); -T:Goto,5,goto IL_2106; -T:Label,5,IL_20e4: -T:Operation,5,num = 398; -T:Goto,5,goto IL_20ec; -T:Label,5,IL_20ec: -T:Operation,5,num = 399; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 17, 15, -T:String,5,">NN<" -T:Operation,5,); -T:Goto,5,goto IL_2106; -T:Label,5,IL_2106: -T:Operation,5,num = 402; -T:Operation,5,if -T:Operation,5,(Modul1.Family.Kind[1] != 0) -T:Block,6,{ -T:Goto,6,goto IL_2120; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_213d; -T:Block,6,} -T:Label,5,IL_2120: -T:Operation,5,num = 403; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 32, 1, Modul1.IText[175]); -T:Goto,5,goto IL_213d; -T:Label,5,IL_213d: -T:Operation,5,num = 405; -T:Operation,5,DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.ArtNr); -T:Goto,5,goto IL_2154; -T:Label,5,IL_2154: -T:Operation,5,num = 406; -T:Operation,5,DataModul.DB_FamilyTable.Index = nameof(DataModul.FamilyIndex.Fam); -T:Goto,5,goto IL_216b; -T:Label,5,IL_216b: -T:Operation,5,num = 407; -T:Operation,5,DataModul.DB_FamilyTable.Seek( -T:String,5,"=" -T:Operation,5,, Modul1.FamInArb); -T:Goto,5,goto IL_21c8; -T:Label,5,IL_21c8: -T:Operation,5,num = 408; -T:Operation,5,if -T:Operation,5,(!DataModul.DB_FamilyTable.NoMatch) -T:Block,6,{ -T:Goto,6,goto IL_21e4; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_2317; -T:Block,6,} -T:Label,5,IL_21e4: -T:Operation,5,num = 411; -T:Operation,5,if -T:Operation,5,((DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.Aeb)].Value == -1)) -T:Block,6,{ -T:Goto,6,goto IL_2216; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_2233; -T:Block,6,} -T:Label,5,IL_2216: -T:Operation,5,num = 412; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 70, 1, Modul1.IText[175]); -T:Goto,5,goto IL_2233; -T:Label,5,IL_2233: -T:Operation,5,num = 414; -T:Operation,5,num15 = 500; -T:Goto,5,goto IL_2240; -T:Label,5,IL_2240: -T:Operation,5,num = 415; -T:Operation,5,Modul1.Ubg = num15; -T:Goto,5,goto IL_224d; -T:Label,5,IL_224d: -T:Operation,5,num = 416; -T:Operation,5,DataModul.DB_EventTable.Seek( -T:String,5,"=" -T:Operation,5,, Modul1.Ubg.AsString(), Modul1.FamInArb.AsString(), -T:String,5,"0" -T:Operation,5,); -T:Goto,5,goto IL_22b9; -T:Label,5,IL_22b9: -T:Operation,5,num = 417; -T:Operation,5,if -T:Operation,5,(DataModul.DB_EventTable.NoMatch) -T:Block,6,{ -T:Goto,6,goto IL_22d8; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_241f; -T:Block,6,} -T:Label,5,IL_22d8: -T:Operation,5,num = 420; -T:Operation,5,if -T:Operation,5,(!((num15 == 507) & DataModul.DB_EventTable.NoMatch)) -T:Block,6,{ -T:Goto,6,goto IL_22fa; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_2317; -T:Block,6,} -T:Label,5,IL_22fa: -T:Operation,5,num = 423; -T:Operation,5,num15 = (short)unchecked(num15 + 1); -T:Operation,5,num16 = num15; -T:Operation,5,num11 = 507; -T:Operation,5,if -T:Operation,5,(num16 <= num11) -T:Block,6,{ -T:Goto,6,goto IL_2240; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_2317; -T:Block,6,} -T:Label,5,IL_2317: -T:Operation,5,num = 424; -T:Operation,5,lErl = 34; -T:Goto,5,goto IL_2322; -T:Label,5,IL_2322: -T:Operation,5,num = 425; -T:Operation,5,DataModul.DB_EventTable.Seek( -T:String,5,"=" -T:Operation,5,, 601.AsString(), Modul1.FamInArb.AsString(), -T:String,5,"0" -T:Operation,5,); -T:Goto,5,goto IL_238e; -T:Label,5,IL_238e: -T:Operation,5,num = 426; -T:Operation,5,if -T:Operation,5,(DataModul.DB_EventTable.NoMatch) -T:Block,6,{ -T:Goto,6,goto IL_23aa; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_241f; -T:Block,6,} -T:Label,5,IL_23aa: -T:Operation,5,num = 429; -T:Operation,5,if -T:Operation,5,(sDest2.Trim() != -T:String,5,"" -T:Operation,5,) -T:Block,6,{ -T:Goto,6,goto IL_23cf; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_241f; -T:Block,6,} -T:Label,5,IL_23cf: -T:Operation,5,num = 430; -T:Operation,5,List1.Items.Add(new ListItem(sDest2 + -T:String,5," " -T:Operation,5,+ Modul1.FamInArb.AsString())); -T:Goto,5,goto IL_2407; -T:Label,5,IL_2407: -T:Operation,5,num = 431; -T:Operation,5, -T:LComment,5,//Sz++; -T:Goto,5,goto IL_241f; -T:Label,5,IL_241f: -T:Operation,5,num = 433; -T:Operation,5,lErl = 35; -T:Goto,5,goto IL_242a; -T:Label,5,IL_242a: -T:Operation,5,num = 434; -T:Operation,5,I1++; -T:Goto,5,goto IL_2440; -T:Label,5,IL_1aae: -T:Operation,5,num = 322; -T:Operation,5,FileSystem.FileClose(99); -T:Goto,5,goto IL_1acb; -T:Label,5,IL_1acb: -T:Operation,5,num = 323; -T:Operation,5,FileSystem.FileOpen(99, Modul1.TempPath + -T:String,5,"\\Text4.Txt" -T:Operation,5,, OpenMode.Output); -T:Goto,5,goto IL_1aed; -T:Label,5,IL_1aed: -T:Operation,5,num = 324; -T:Operation,5,FileSystem.PrintLine(99, Label1[2].Text); -T:Goto,5,goto IL_1b1c; -T:Label,5,IL_1b1c: -T:Operation,5,num = 325; -T:Operation,5,FileSystem.PrintLine(99, Label1[1].Text); -T:Goto,5,goto IL_1b4b; -T:Label,5,IL_1b4b: -T:Operation,5,num = 326; -T:Operation,5,FileSystem.PrintLine(99, Label1[0].Text); -T:Goto,5,goto IL_1b7a; -T:Label,5,IL_1b7a: -T:Operation,5,num = 327; -T:Operation,5,if -T:Operation,5,(List2.Visible) -T:Block,6,{ -T:Goto,6,goto IL_1b92; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_1bb9; -T:Block,6,} -T:Label,5,IL_1b92: -T:Operation,5,num = 328; -T:Operation,5,L = List2; -T:Operation,5,A = 2; -T:Operation,5,Modul1.Listbox3Clip(ref L, ref A); -T:Operation,5,List2 = L; -T:Goto,5,goto IL_1be7; -T:Label,5,IL_1bb9: -T:Operation,5,num = 330; -T:Goto,5,goto IL_1bc1; -T:Label,5,IL_1bc1: -T:Operation,5,num = 331; -T:Operation,5,L = List1; -T:Operation,5,A = 2; -T:Operation,5,Modul1.Listbox3Clip(ref L, ref A); -T:Operation,5,List1 = L; -T:Goto,5,goto IL_1be7; -T:Label,5,IL_1be7: -T:Operation,5,num = 333; -T:Operation,5,FileSystem.FileClose(); -T:Goto,5,goto IL_448a; -T:Label,5,IL_1a3c: -T:Operation,5,num = 314; -T:Operation,5,List1.Items.Clear(); -T:Goto,5,goto IL_1a54; -T:Label,5,IL_1a54: -T:Operation,5,num = 315; -T:Operation,5,List2.Items.Clear(); -T:Goto,5,goto IL_1a6c; -T:Label,5,IL_1a6c: -T:Operation,5,num = 316; -T:Operation,5,ProgressBar1.Minimum = 0; -T:Goto,5,goto IL_1a80; -T:Label,5,IL_1a80: -T:Operation,5,num = 317; -T:Operation,5,ProgressBar1.Maximum = 0; -T:Goto,5,goto IL_1a94; -T:Label,5,IL_1a94: -T:Operation,5,num = 318; -T:Operation,5,Close(); -T:Goto,5,goto end_IL_0001_2; -T:Label,5,IL_0cef: -T:Operation,5,num = 159; -T:Operation,5,DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.ArtNr); -T:Goto,5,goto IL_0d06; -T:Label,5,IL_0d06: -T:Operation,5,num = 160; -T:Operation,5,List1.Items.Clear(); -T:Goto,5,goto IL_0d1e; -T:Label,5,IL_0d1e: -T:Operation,5,num = 161; -T:Operation,5,Label1[2].Text = -T:String,5,"Fehlliste Familien" -T:Operation,5,; -T:Goto,5,goto IL_0d3c; -T:Label,5,IL_0d3c: -T:Operation,5,num = 162; -T:Operation,5,Label1[1].Text = -T:String,5,"Mann Frau Kinder Pro Verl. Hei k.H. Schd. eheä. auß Fikt." -T:Operation,5,; -T:Goto,5,goto IL_0d5a; -T:Label,5,IL_0d5a: -T:Operation,5,num = 163; -T:Operation,5,Label1[0].Text = -T:String,5," DO DO DO DO DO DO DO" -T:Operation,5,; -T:Goto,5,goto IL_0d78; -T:Label,5,IL_0d78: -T:Operation,5,num = 164; -T:Operation,5,if -T:Operation,5,(RadioButton2.Checked) -T:Block,6,{ -T:Goto,6,goto IL_0d90; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_0dad; -T:Block,6,} -T:Label,5,IL_0d90: -T:Operation,5,num = 165; -T:Operation,5,List1.Items.Add( -T:String,5,"Fehlliste Familien" -T:Operation,5,); -T:Goto,5,goto IL_0dad; -T:Label,5,IL_0dad: -T:Operation,5,num = 167; -T:Operation,5,if -T:Operation,5,(RadioButton2.Checked) -T:Block,6,{ -T:Goto,6,goto IL_0dc5; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_0de2; -T:Block,6,} -T:Label,5,IL_0dc5: -T:Operation,5,num = 168; -T:Operation,5,List1.Items.Add( -T:String,5,"Mann Frau Kinder Pro Verl. Hei k.H. Schd. eheä. auß Fikt." -T:Operation,5,); -T:Goto,5,goto IL_0de2; -T:Label,5,IL_0de2: -T:Operation,5,num = 170; -T:Operation,5,if -T:Operation,5,(RadioButton2.Checked) -T:Block,6,{ -T:Goto,6,goto IL_0dfa; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_0e17; -T:Block,6,} -T:Label,5,IL_0dfa: -T:Operation,5,num = 171; -T:Operation,5,List1.Items.Add( -T:String,5," DO DO DO DO DO DO DO" -T:Operation,5,); -T:Goto,5,goto IL_0e17; -T:Label,5,IL_0e17: -T:Operation,5,num = 173; -T:Operation,5,Modul1.I = 0; -T:Goto,5,goto IL_0e24; -T:Label,5,IL_0e24: -T:Operation,5,num = 174; -T:Operation,5,Label1[(short)Modul1.I].Refresh(); -T:Goto,5,goto IL_0e42; -T:Label,5,IL_0e42: -T:Operation,5,num = 175; -T:Operation,5,Modul1.I++; -T:Operation,5,i11 = Modul1.I; -T:Operation,5,num5 = 2; -T:Operation,5,if -T:Operation,5,(i11 <= num5) -T:Block,6,{ -T:Goto,6,goto IL_0e24; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_0e62; -T:Block,6,} -T:Label,5,IL_0e62: -T:Operation,5,num = 176; -T:Operation,5,num7 = 1; -T:Goto,5,goto IL_0e6c; -T:Label,5,IL_0e6c: -T:Operation,5,num = 177; -T:Operation,5,if -T:Operation,5,(num7 <= 0) -T:Block,6,{ -T:Goto,6,goto end_IL_0001_2; -T:Block,6,} -T:Goto,5,goto IL_0e87; -T:Label,5,IL_0e87: -T:Operation,5,num = 180; -T:Operation,5,DataModul.DB_FamilyTable.MoveLast(); -T:Goto,5,goto IL_0e9a; -T:Label,5,IL_0e9a: -T:Operation,5,num = 181; -T:Operation,5,num8 = DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value.AsInt(); -T:Goto,5,goto IL_0ec1; -T:Label,5,IL_0ec1: -T:Operation,5,num = 182; -T:Operation,5,if -T:Operation,5,((num7 > DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value)) -T:Block,6,{ -T:Goto,6,goto IL_0ef4; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_0f36; -T:Block,6,} -T:Label,5,IL_0ef4: -T:Operation,5,num = 183; -T:Operation,5,Interaction.MsgBox( -T:String,5,"Die höchste Familiennummer ist " -T:Operation,5,+ DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.FamNr)].Value.AsString()); -T:Goto,5,goto end_IL_0001_2; -T:Label,5,IL_0f36: -T:Operation,5,num = 186; -T:Operation,5,ProgressBar1.Minimum = 0; -T:Goto,5,goto IL_0f4a; -T:Label,5,IL_0f4a: -T:Operation,5,num = 187; -T:Operation,5,ProgressBar1.Maximum = DataModul.DB_FamilyTable.RecordCount - 1; -T:Goto,5,goto IL_0f69; -T:Label,5,IL_0f69: -T:Operation,5,num = 188; -T:Operation,5,ProgressBar1.Step = 1; -T:Goto,5,goto IL_0f7d; -T:Label,5,IL_0f7d: -T:Operation,5,num = 189; -T:Operation,5,i12 = num7; -T:Operation,5,num17 = num8; -T:Operation,5,I1 = i12; -T:Goto,5,goto IL_199d; -T:Label,5,IL_199d: -T:Operation,5,i13 = I1; -T:Operation,5,num5 = num17; -T:Operation,5,if -T:Operation,5,(i13 <= num5) -T:Block,6,{ -T:Goto,6,goto IL_0f95; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_19ae; -T:Block,6,} -T:Label,5,IL_19ae: -T:Operation,5,num = 308; -T:Operation,5,Label4.Text = List1.Items.Count - 3.AsString() + -T:String,5," Familien" -T:Operation,5,; -T:Goto,5,goto IL_19e7; -T:Label,5,IL_19e7: -T:Operation,5,num = 309; -T:Operation,5,if -T:Operation,5,(RadioButton1.Checked) -T:Block,6,{ -T:Goto,6,goto IL_19ff; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_448a; -T:Block,6,} -T:Label,5,IL_19ff: -T:Operation,5,num = 310; -T:Operation,5,Label4.Text = List1.Items.Count.AsString() + -T:String,5," Familien" -T:Operation,5,; -T:Goto,5,goto IL_448a; -T:Label,5,IL_0f95: -T:Operation,5,num = 190; -T:Operation,5,ProgressBar1.PerformStep(); -T:Goto,5,goto IL_0fa8; -T:Label,5,IL_0fa8: -T:Operation,5,num = 191; -T:Operation,5,Application.DoEvents(); -T:Goto,5,goto IL_0fb5; -T:Label,5,IL_0fb5: -T:Operation,5,num = 192; -T:Operation,5,sDest2 = -T:String,5," " -T:Operation,5,; -T:Goto,5,goto IL_0fc3; -T:Label,5,IL_0fc3: -T:Operation,5,num = 193; -T:Operation,5,Modul1.FamInArb = I1; -T:Goto,5,goto IL_0fd5; -T:Label,5,IL_0fd5: -T:Operation,5,num = 194; -T:Operation,5,if -T:Operation,5,(Modul1.FamInArb <= num8) -T:Block,6,{ -T:Goto,6,goto IL_0ff0; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_448a; -T:Block,6,} -T:Label,5,IL_0ff0: -T:Operation,5,num = 197; -T:Operation,5,DataModul.DB_FamilyTable.Index = nameof(DataModul.FamilyIndex.Fam); -T:Goto,5,goto IL_1007; -T:Label,5,IL_1007: -T:Operation,5,num = 198; -T:Operation,5,DataModul.DB_FamilyTable.Seek( -T:String,5,"=" -T:Operation,5,, Modul1.FamInArb.AsString()); -T:Goto,5,goto IL_1069; -T:Label,5,IL_1069: -T:Operation,5,num = 199; -T:Operation,5,if -T:Operation,5,(!DataModul.DB_FamilyTable.NoMatch) -T:Block,6,{ -T:Goto,6,goto IL_1085; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_197c; -T:Block,6,} -T:Label,5,IL_1085: -T:Operation,5,num = 202; -T:Operation,5,MainProject.Forms.Familie.Famles(Modul1.FamInArb); -T:Goto,5,goto IL_1092; -T:Label,5,IL_1092: -T:Operation,5,num = 203; -T:Operation,5,if -T:Operation,5,(Modul1.Family.Mann > 0) -T:Block,6,{ -T:Goto,6,goto IL_10aa; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_1140; -T:Block,6,} -T:Label,5,IL_10aa: -T:Operation,5,num = 204; -T:Operation,5,Modul1.PersInArb = Modul1.Family.Mann; -T:Goto,5,goto IL_10bb; -T:Label,5,IL_10bb: -T:Operation,5,num = 205; -T:Operation,5,Modul1.Personlesen(Modul1.PersInArb); -T:Goto,5,goto IL_10c8; -T:Label,5,IL_10c8: -T:Operation,5,num = 206; -T:Operation,5,if -T:Operation,5,(Modul1.Kont[0] != -T:String,5,"" -T:Operation,5,) -T:Block,6,{ -T:Goto,6,goto IL_10ed; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_1108; -T:Block,6,} -T:Label,5,IL_10ed: -T:Operation,5,num = 207; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 1, 15, Modul1.Kont[0]); -T:Goto,5,goto IL_1128; -T:Label,5,IL_1108: -T:Operation,5,num = 209; -T:Goto,5,goto IL_1110; -T:Label,5,IL_1110: -T:Operation,5,num = 210; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 1, 15, -T:String,5,">NN<" -T:Operation,5,); -T:Goto,5,goto IL_1128; -T:Label,5,IL_1128: -T:Operation,5,num = 212; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 16, 2, -T:String,5,"/ " -T:Operation,5,); -T:Goto,5,goto IL_1140; -T:Label,5,IL_1140: -T:Operation,5,num = 214; -T:Operation,5,if -T:Operation,5,(Modul1.Family.Frau > 0) -T:Block,6,{ -T:Goto,6,goto IL_1158; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_11d9; -T:Block,6,} -T:Label,5,IL_1158: -T:Operation,5,num = 215; -T:Operation,5,Modul1.PersInArb = Modul1.Family.Frau; -T:Goto,5,goto IL_1169; -T:Label,5,IL_1169: -T:Operation,5,num = 216; -T:Operation,5,Modul1.Personlesen(Modul1.PersInArb); -T:Goto,5,goto IL_1176; -T:Label,5,IL_1176: -T:Operation,5,num = 217; -T:Operation,5,if -T:Operation,5,(Modul1.Kont[0] != -T:String,5,"" -T:Operation,5,) -T:Block,6,{ -T:Goto,6,goto IL_119b; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_11b7; -T:Block,6,} -T:Label,5,IL_119b: -T:Operation,5,num = 218; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 17, 15, Modul1.Kont[0]); -T:Goto,5,goto IL_11d9; -T:Label,5,IL_11b7: -T:Operation,5,num = 220; -T:Goto,5,goto IL_11bf; -T:Label,5,IL_11bf: -T:Operation,5,num = 221; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 17, 15, -T:String,5,">NN<" -T:Operation,5,); -T:Goto,5,goto IL_11d9; -T:Label,5,IL_11d9: -T:Operation,5,num = 224; -T:Operation,5,if -T:Operation,5,(Modul1.Family.Kind[1] != 0) -T:Block,6,{ -T:Goto,6,goto IL_11f3; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_1210; -T:Block,6,} -T:Label,5,IL_11f3: -T:Operation,5,num = 225; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 32, 1, Modul1.IText[175]); -T:Goto,5,goto IL_1210; -T:Label,5,IL_1210: -T:Operation,5,num = 227; -T:Operation,5,DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.ArtNr); -T:Goto,5,goto IL_1227; -T:Label,5,IL_1227: -T:Operation,5,num = 228; -T:Operation,5,DataModul.DB_FamilyTable.Index = nameof(DataModul.FamilyIndex.Fam); -T:Goto,5,goto IL_123e; -T:Label,5,IL_123e: -T:Operation,5,num = 229; -T:Operation,5,DataModul.DB_FamilyTable.Seek( -T:String,5,"=" -T:Operation,5,, Modul1.FamInArb); -T:Goto,5,goto IL_129b; -T:Label,5,IL_129b: -T:Operation,5,num = 230; -T:Operation,5,if -T:Operation,5,(!DataModul.DB_FamilyTable.NoMatch) -T:Block,6,{ -T:Goto,6,goto IL_12b7; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_197c; -T:Block,6,} -T:Label,5,IL_12b7: -T:Operation,5,num = 233; -T:Operation,5,if -T:Operation,5,((DataModul.DB_FamilyTable.Fields[nameof(DataModul.FamilyFields.Aeb)].Value == -1)) -T:Block,6,{ -T:Goto,6,goto IL_12e9; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_1306; -T:Block,6,} -T:Label,5,IL_12e9: -T:Operation,5,num = 234; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 70, 1, Modul1.IText[175]); -T:Goto,5,goto IL_1306; -T:Label,5,IL_1306: -T:Operation,5,num = 236; -T:Operation,5,num15 = 500; -T:Goto,5,goto IL_1313; -T:Label,5,IL_1313: -T:Operation,5,num = 237; -T:Operation,5,Modul1.Ubg = num15; -T:Goto,5,goto IL_1320; -T:Label,5,IL_1320: -T:Operation,5,num = 238; -T:Operation,5,DataModul.DB_EventTable.Seek( -T:String,5,"=" -T:Operation,5,, Modul1.Ubg.AsString(), Modul1.FamInArb.AsString(), -T:String,5,"0" -T:Operation,5,); -T:Goto,5,goto IL_138c; -T:Label,5,IL_138c: -T:Operation,5,num = 239; -T:Operation,5,if -T:Operation,5,(!DataModul.DB_EventTable.NoMatch) -T:Block,6,{ -T:Goto,6,goto IL_13a8; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_17ec; -T:Block,6,} -T:Label,5,IL_13a8: -T:Operation,5,num = 242; -T:Operation,5,switch -T:Operation,5,(Modul1.Ubg) -T:Block,6,{ -T:Label,6,case 500: -T:Operation,6,break; -T:Label,6,case 501: -T:Goto,6,goto IL_148f; -T:Label,6,case 502: -T:Goto,6,goto IL_153c; -T:Label,6,case 503: -T:Goto,6,goto IL_15e9; -T:Label,6,case 504: -T:Goto,6,goto IL_1696; -T:Label,6,case 505: -T:Goto,6,goto IL_1743; -T:Label,6,default: -T:Goto,6,goto IL_17ec; -T:Block,6,} -T:Block,6,{ -T:Goto,6,goto IL_13e2; -T:Block,6,} -T:Label,5,IL_1743: -T:Operation,5,num = 286; -T:Operation,5,if -T:Operation,5,((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -T:Block,6,{ -T:Goto,6,goto IL_1775; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_1792; -T:Block,6,} -T:Label,5,IL_1775: -T:Operation,5,num = 287; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 65, 1, Modul1.IText[175]); -T:Goto,5,goto IL_1792; -T:Label,5,IL_1792: -T:Operation,5,num = 289; -T:Operation,5,if -T:Operation,5,(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -T:Block,6,{ -T:Goto,6,goto IL_17cd; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_17ec; -T:Block,6,} -T:Label,5,IL_17cd: -T:Operation,5,num = 290; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 66, 1, Modul1.IText[175]); -T:Goto,5,goto IL_17ec; -T:Label,5,IL_1696: -T:Operation,5,num = 278; -T:Operation,5,if -T:Operation,5,((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -T:Block,6,{ -T:Goto,6,goto IL_16c8; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_16e5; -T:Block,6,} -T:Label,5,IL_16c8: -T:Operation,5,num = 279; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 59, 1, Modul1.IText[175]); -T:Goto,5,goto IL_16e5; -T:Label,5,IL_16e5: -T:Operation,5,num = 281; -T:Operation,5,if -T:Operation,5,(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -T:Block,6,{ -T:Goto,6,goto IL_1720; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_17ec; -T:Block,6,} -T:Label,5,IL_1720: -T:Operation,5,num = 282; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 60, 1, Modul1.IText[175]); -T:Goto,5,goto IL_17ec; -T:Label,5,IL_15e9: -T:Operation,5,num = 270; -T:Operation,5,if -T:Operation,5,((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -T:Block,6,{ -T:Goto,6,goto IL_161b; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_1638; -T:Block,6,} -T:Label,5,IL_161b: -T:Operation,5,num = 271; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 54, 1, Modul1.IText[175]); -T:Goto,5,goto IL_1638; -T:Label,5,IL_1638: -T:Operation,5,num = 273; -T:Operation,5,if -T:Operation,5,(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -T:Block,6,{ -T:Goto,6,goto IL_1673; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_17ec; -T:Block,6,} -T:Label,5,IL_1673: -T:Operation,5,num = 274; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 55, 1, Modul1.IText[175]); -T:Goto,5,goto IL_17ec; -T:Label,5,IL_153c: -T:Operation,5,num = 262; -T:Operation,5,if -T:Operation,5,((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -T:Block,6,{ -T:Goto,6,goto IL_156e; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_158b; -T:Block,6,} -T:Label,5,IL_156e: -T:Operation,5,num = 263; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 48, 1, Modul1.IText[175]); -T:Goto,5,goto IL_158b; -T:Label,5,IL_158b: -T:Operation,5,num = 265; -T:Operation,5,if -T:Operation,5,(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -T:Block,6,{ -T:Goto,6,goto IL_15c6; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_17ec; -T:Block,6,} -T:Label,5,IL_15c6: -T:Operation,5,num = 266; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 49, 1, Modul1.IText[175]); -T:Goto,5,goto IL_17ec; -T:Label,5,IL_148f: -T:Operation,5,num = 254; -T:Operation,5,if -T:Operation,5,((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -T:Block,6,{ -T:Goto,6,goto IL_14c1; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_14de; -T:Block,6,} -T:Label,5,IL_14c1: -T:Operation,5,num = 255; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 42, 1, Modul1.IText[175]); -T:Goto,5,goto IL_14de; -T:Label,5,IL_14de: -T:Operation,5,num = 257; -T:Operation,5,if -T:Operation,5,(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -T:Block,6,{ -T:Goto,6,goto IL_1519; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_17ec; -T:Block,6,} -T:Label,5,IL_1519: -T:Operation,5,num = 258; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 43, 1, Modul1.IText[175]); -T:Goto,5,goto IL_17ec; -T:Label,5,IL_13e2: -T:Operation,5,num = 246; -T:Operation,5,if -T:Operation,5,((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -T:Block,6,{ -T:Goto,6,goto IL_1414; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_1431; -T:Block,6,} -T:Label,5,IL_1414: -T:Operation,5,num = 247; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 37, 1, Modul1.IText[175]); -T:Goto,5,goto IL_1431; -T:Label,5,IL_1431: -T:Operation,5,num = 249; -T:Operation,5,if -T:Operation,5,(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -T:Block,6,{ -T:Goto,6,goto IL_146c; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_17ec; -T:Block,6,} -T:Label,5,IL_146c: -T:Operation,5,num = 250; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 38, 1, Modul1.IText[175]); -T:Goto,5,goto IL_17ec; -T:Label,5,IL_17ec: -T:Operation,5,num = 293; -T:Operation,5,lErl = 54; -T:Goto,5,goto IL_17f7; -T:Label,5,IL_17f7: -T:Operation,5,num = 294; -T:Operation,5,num15 = (short)unchecked(num15 + 1); -T:Operation,5,num18 = num15; -T:Operation,5,num11 = 507; -T:Operation,5,if -T:Operation,5,(num18 <= num11) -T:Block,6,{ -T:Goto,6,goto IL_1313; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_1814; -T:Block,6,} -T:Label,5,IL_1814: -T:Operation,5,num = 295; -T:Operation,5,lErl = 3; -T:Goto,5,goto IL_181e; -T:Label,5,IL_181e: -T:Operation,5,num = 296; -T:Operation,5,DataModul.DB_EventTable.Seek( -T:String,5,"=" -T:Operation,5,, 601.AsString(), Modul1.FamInArb.AsString(), -T:String,5,"0" -T:Operation,5,); -T:Goto,5,goto IL_188a; -T:Label,5,IL_188a: -T:Operation,5,num = 297; -T:Operation,5,if -T:Operation,5,(!DataModul.DB_EventTable.NoMatch) -T:Block,6,{ -T:Goto,6,goto IL_18a7; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_1943; -T:Block,6,} -T:Label,5,IL_18a7: -T:Operation,5,num = 298; -T:Operation,5,if -T:Operation,5,((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -T:Block,6,{ -T:Goto,6,goto IL_18d9; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_18f0; -T:Block,6,} -T:Label,5,IL_18d9: -T:Operation,5,num = 299; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 75, 1, -T:String,5,"J" -T:Operation,5,); -T:Goto,5,goto IL_18f0; -T:Label,5,IL_18f0: -T:Operation,5,num = 301; -T:Operation,5,if -T:Operation,5,(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -T:Block,6,{ -T:Goto,6,goto IL_192b; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_1943; -T:Block,6,} -T:Label,5,IL_192b: -T:Operation,5,num = 302; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 76, 1, -T:String,5,"J" -T:Operation,5,); -T:Goto,5,goto IL_1943; -T:Label,5,IL_1943: -T:Operation,5,num = 305; -T:Operation,5,List1.Items.Add(new ListItem(sDest2 + -T:String,5," " -T:Operation,5,+ Modul1.FamInArb.AsString())); -T:Goto,5,goto IL_197c; -T:Label,5,IL_197c: -T:Operation,5,num = 306; -T:Operation,5,lErl = 55; -T:Goto,5,goto IL_1987; -T:Label,5,IL_1987: -T:Operation,5,num = 307; -T:Operation,5,I1++; -T:Goto,5,goto IL_199d; -T:Label,5,IL_01d7: -T:Operation,5,num = 35; -T:Operation,5,List1.Items.Clear(); -T:Goto,5,goto IL_01ec; -T:Label,5,IL_01ec: -T:Operation,5,num = 36; -T:Operation,5,Label1[2].Text = -T:String,5,"Fehlliste Personen" -T:Operation,5,; -T:Goto,5,goto IL_0207; -T:Label,5,IL_0207: -T:Operation,5,num = 37; -T:Operation,5,Label1[1].Text = Modul1.IText[166]; -T:Goto,5,goto IL_0228; -T:Label,5,IL_0228: -T:Operation,5,num = 38; -T:Operation,5,Label1[0].Text = Modul1.IText[167]; -T:Goto,5,goto IL_0249; -T:Label,5,IL_0249: -T:Operation,5,num = 39; -T:Operation,5,Label1[1].Text = Label1[1].Text + -T:String,5," Quelle" -T:Operation,5,; -T:Goto,5,goto IL_027a; -T:Label,5,IL_027a: -T:Operation,5,num = 40; -T:Operation,5,Label1[0].Text = Label1[0].Text + -T:String,5," T V" -T:Operation,5,; -T:Goto,5,goto IL_02ab; -T:Label,5,IL_02ab: -T:Operation,5,num = 41; -T:Operation,5,I1 = 0; -T:Goto,5,goto IL_02b6; -T:Label,5,IL_02b6: -T:Operation,5,num = 42; -T:Operation,5,Label1[(short)I1].Refresh(); -T:Goto,5,goto IL_02d2; -T:Label,5,IL_02d2: -T:Operation,5,num = 43; -T:Operation,5,I1++; -T:Operation,5,i14 = I1; -T:Operation,5,num5 = 2; -T:Operation,5,if -T:Operation,5,(i14 <= num5) -T:Block,6,{ -T:Goto,6,goto IL_02b6; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_02f2; -T:Block,6,} -T:Label,5,IL_02f2: -T:Operation,5,num = 44; -T:Operation,5,num7 = 1; -T:Goto,5,goto IL_02f9; -T:Label,5,IL_02f9: -T:Operation,5,num = 45; -T:Operation,5,if -T:Operation,5,(num7 <= 0) -T:Block,6,{ -T:Goto,6,goto end_IL_0001_2; -T:Block,6,} -T:Goto,5,goto IL_0311; -T:Label,5,IL_0311: -T:Operation,5,num = 48; -T:Operation,5,DataModul.DB_PersonTable.Index = nameof(DataModul.PersonIndex.PerNr); -T:Goto,5,goto IL_0325; -T:Label,5,IL_0325: -T:Operation,5,num = 49; -T:Operation,5,DataModul.DB_PersonTable.MoveLast(); -T:Goto,5,goto IL_0335; -T:Label,5,IL_0335: -T:Operation,5,num = 50; -T:Operation,5,num8 = DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value.AsInt(); -T:Goto,5,goto IL_0359; -T:Label,5,IL_0359: -T:Operation,5,num = 51; -T:Operation,5,if -T:Operation,5,(num7 == 0) -T:Block,6,{ -T:Goto,6,goto end_IL_0001_2; -T:Block,6,} -T:Goto,5,goto IL_036e; -T:Label,5,IL_036e: -T:Operation,5,num = 54; -T:Operation,5,if -T:Operation,5,((num7 > DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value)) -T:Block,6,{ -T:Goto,6,goto IL_039e; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_03dd; -T:Block,6,} -T:Label,5,IL_039e: -T:Operation,5,num = 55; -T:Operation,5,Interaction.MsgBox( -T:String,5,"Die höchste Personennummer ist " -T:Operation,5,+ DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.PersNr)].Value.AsString()); -T:Goto,5,goto end_IL_0001_2; -T:Label,5,IL_03dd: -T:Operation,5,num = 58; -T:Operation,5,ProgressBar1.Minimum = 0; -T:Goto,5,goto IL_03ee; -T:Label,5,IL_03ee: -T:Operation,5,num = 59; -T:Operation,5,ProgressBar1.Maximum = 0; -T:Goto,5,goto IL_03ff; -T:Label,5,IL_03ff: -T:Operation,5,num = 60; -T:Operation,5,ProgressBar1.Step = 1; -T:Goto,5,goto IL_0410; -T:Label,5,IL_0410: -T:Operation,5,num = 61; -T:Operation,5,ProgressBar1.Maximum = DataModul.DB_PersonTable.RecordCount - 1; -T:Goto,5,goto IL_042c; -T:Label,5,IL_042c: -T:Operation,5,num = 62; -T:Operation,5,List1.Items.Clear(); -T:Goto,5,goto IL_0441; -T:Label,5,IL_0441: -T:Operation,5,num = 63; -T:Operation,5,i15 = num7; -T:Operation,5,num19 = num8; -T:Operation,5,I1 = i15; -T:Goto,5,goto IL_0ca1; -T:Label,5,IL_0ca1: -T:Operation,5,i16 = I1; -T:Operation,5,num5 = num19; -T:Operation,5,if -T:Operation,5,(i16 <= num5) -T:Block,6,{ -T:Goto,6,goto IL_0456; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_0cb2; -T:Block,6,} -T:Label,5,IL_0cb2: -T:Operation,5,num = 156; -T:Operation,5,Label4.Text = List1.Items.Count.AsString() + -T:String,5," Einträge" -T:Operation,5,; -T:Goto,5,goto IL_448a; -T:Label,5,IL_0456: -T:Operation,5,num = 64; -T:Operation,5,ProgressBar1.PerformStep(); -T:Goto,5,goto IL_0466; -T:Label,5,IL_0466: -T:Operation,5,num = 65; -T:Operation,5,Application.DoEvents(); -T:Goto,5,goto IL_0470; -T:Label,5,IL_0470: -T:Operation,5,num = 66; -T:Operation,5,Modul1.PersInArb = I1; -T:Goto,5,goto IL_047f; -T:Label,5,IL_047f: -T:Operation,5,num = 67; -T:Operation,5,if -T:Operation,5,(Modul1.PersInArb <= num8) -T:Block,6,{ -T:Goto,6,goto IL_0497; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_448a; -T:Block,6,} -T:Label,5,IL_448a: -T:Operation,5,num = 781; -T:Operation,5,lErl = 4; -T:Goto,5,goto IL_4494; -T:Label,5,IL_4494: -T:Operation,5,num = 782; -T:Operation,5,if -T:Operation,5,(!RadioButton2.Checked) -T:Block,6,{ -T:Goto,6,goto end_IL_0001_2; -T:Block,6,} -T:Goto,5,goto IL_44ac; -T:Label,5,IL_44ac: -T:Operation,5,num = 783; -T:Operation,5,List1.Items.Add( -T:String,5,"Ende der Liste" -T:Operation,5,); -T:Goto,5,goto IL_44c9; -T:Label,5,IL_44c9: -T:Operation,5,num = 784; -T:Operation,5,Modul1.I = 1; -T:Goto,5,goto IL_44d6; -T:Label,5,IL_44d6: -T:Operation,5,num = 785; -T:Operation,5,List1.Items.Add( -T:String,5,"" -T:Operation,5,); -T:Goto,5,goto IL_44f3; -T:Label,5,IL_44f3: -T:Operation,5,num = 786; -T:Operation,5,Modul1.I++; -T:Operation,5,i17 = Modul1.I; -T:Operation,5,num5 = 17; -T:Operation,5,if -T:Operation,5,(i17 > num5) -T:Block,6,{ -T:Goto,6,goto end_IL_0001_2; -T:Block,6,} -T:Goto,5,goto IL_44d6; -T:Label,5,IL_0497: -T:Operation,5,num = 70; -T:Operation,5,DataModul.DB_PersonTable.Seek( -T:String,5,"=" -T:Operation,5,, Modul1.PersInArb.AsString()); -T:Goto,5,goto IL_04f6; -T:Label,5,IL_04f6: -T:Operation,5,num = 71; -T:Operation,5,if -T:Operation,5,(!DataModul.DB_PersonTable.NoMatch) -T:Block,6,{ -T:Goto,6,goto IL_050f; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_0c81; -T:Block,6,} -T:Label,5,IL_050f: -T:Operation,5,num = 74; -T:Operation,5,Modul1.Personlesen(Modul1.PersInArb); -T:Goto,5,goto IL_0519; -T:Label,5,IL_0519: -T:Operation,5,num = 75; -T:Operation,5,Modul1.LiText = Strings.Left((Modul1.Kont[0]).Trim() + -T:String,5,"," -T:Operation,5,+ (Modul1.Kont[3]).Trim() + -T:String,5," " -T:Operation,5,, 20); -T:Goto,5,goto IL_0550; -T:Label,5,IL_0550: -T:Operation,5,num = 76; -T:Operation,5,Modul1.Schalt = 20; -T:Goto,5,goto IL_055b; -T:Label,5,IL_055b: -T:Operation,5,num = 77; -T:Operation,5,T = 1; -T:Goto,5,goto IL_0566; -T:Label,5,IL_0566: -T:Operation,5,num = 78; -T:Operation,5,Modul1.Kont[T + 10] = -T:String,5," " -T:Operation,5,; -T:Goto,5,goto IL_057f; -T:Label,5,IL_057f: -T:Operation,5,num = 79; -T:Operation,5,Modul1.Kont[T + 20] = -T:String,5," " -T:Operation,5,; -T:Goto,5,goto IL_0598; -T:Label,5,IL_0598: -T:Operation,5,num = 80; -T:Operation,5,T = (short)unchecked(T + 1); -T:Operation,5,t2 = T; -T:Operation,5,num11 = 10; -T:Operation,5,if -T:Operation,5,(t2 <= num11) -T:Block,6,{ -T:Goto,6,goto IL_0566; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_05ba; -T:Block,6,} -T:Label,5,IL_05ba: -T:Operation,5,num = 81; -T:Operation,5,Modul1.Datles(); -T:Goto,5,goto IL_05c4; -T:Label,5,IL_05c4: -T:Operation,5,num = 82; -T:Operation,5,sDest2 = -T:String,5," " -T:Operation,5,; -T:Goto,5,goto IL_05cf; -T:Label,5,IL_05cf: -T:Operation,5,num = 83; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 2, 2, Modul1.Kont[11] + Modul1.Kont[21]); -T:Goto,5,goto IL_05f2; -T:Label,5,IL_05f2: -T:Operation,5,num = 84; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 8, 2, Modul1.Kont[12] + Modul1.Kont[22]); -T:Goto,5,goto IL_0615; -T:Label,5,IL_0615: -T:Operation,5,num = 85; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 17, 2, Modul1.Kont[13] + Modul1.Kont[23]); -T:Goto,5,goto IL_0639; -T:Label,5,IL_0639: -T:Operation,5,num = 86; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 27, 2, Modul1.Kont[14] + Modul1.Kont[24]); -T:Goto,5,goto IL_065d; -T:Label,5,IL_065d: -T:Operation,5,num = 87; -T:Operation,5,num12 = 300; -T:Goto,5,goto IL_0667; -T:Label,5,IL_0667: -T:Operation,5,num = 88; -T:Operation,5,DataModul.DB_EventTable.Index = nameof(DataModul.EventIndex.BeSu); -T:Goto,5,goto IL_067b; -T:Label,5,IL_067b: -T:Operation,5,num = 89; -T:Operation,5,DataModul.DB_EventTable.Seek( -T:String,5,"=" -T:Operation,5,, num12, Modul1.PersInArb.AsString()); -T:Goto,5,goto IL_06db; -T:Label,5,IL_06db: -T:Operation,5,num = 90; -T:Operation,5,if -T:Operation,5,(!DataModul.DB_EventTable.NoMatch) -T:Block,6,{ -T:Goto,6,goto IL_06f4; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_0ac2; -T:Block,6,} -T:Label,5,IL_06f4: -T:Operation,5,num = 93; -T:Operation,5,switch -T:Operation,5,(num12) -T:Block,6,{ -T:Label,6,case 300: -T:Operation,6,break; -T:Label,6,case 301: -T:Goto,6,goto IL_084e; -T:Label,6,case 302: -T:Goto,6,goto IL_0981; -T:Label,6,default: -T:Goto,6,goto IL_0ac2; -T:Block,6,} -T:Block,6,{ -T:Goto,6,goto IL_071b; -T:Block,6,} -T:Label,5,IL_0981: -T:Operation,5,num = 125; -T:Operation,5,if -T:Operation,5,((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) -T:Block,6,{ -T:Goto,6,goto IL_09b0; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_09ca; -T:Block,6,} -T:Label,5,IL_09b0: -T:Operation,5,num = 126; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 50, 1, Modul1.IText[175]); -T:Goto,5,goto IL_09ca; -T:Label,5,IL_09ca: -T:Operation,5,num = 128; -T:Operation,5,if -T:Operation,5,((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -T:Block,6,{ -T:Goto,6,goto IL_09fc; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_0a19; -T:Block,6,} -T:Label,5,IL_09fc: -T:Operation,5,num = 129; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 51, 1, Modul1.IText[175]); -T:Goto,5,goto IL_0a19; -T:Label,5,IL_0a19: -T:Operation,5,num = 131; -T:Operation,5,if -T:Operation,5,((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) -T:Block,6,{ -T:Goto,6,goto IL_0a4b; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_0a68; -T:Block,6,} -T:Label,5,IL_0a4b: -T:Operation,5,num = 132; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 52, 1, Modul1.IText[175]); -T:Goto,5,goto IL_0a68; -T:Label,5,IL_0a68: -T:Operation,5,num = 134; -T:Operation,5,if -T:Operation,5,(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -T:Block,6,{ -T:Goto,6,goto IL_0aa3; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_0ac2; -T:Block,6,} -T:Label,5,IL_0aa3: -T:Operation,5,num = 135; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 53, 1, Modul1.IText[175]); -T:Goto,5,goto IL_0ac2; -T:Label,5,IL_084e: -T:Operation,5,num = 111; -T:Operation,5,if -T:Operation,5,((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) -T:Block,6,{ -T:Goto,6,goto IL_087d; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_0897; -T:Block,6,} -T:Label,5,IL_087d: -T:Operation,5,num = 112; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 42, 1, Modul1.IText[175]); -T:Goto,5,goto IL_0897; -T:Label,5,IL_0897: -T:Operation,5,num = 114; -T:Operation,5,if -T:Operation,5,((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -T:Block,6,{ -T:Goto,6,goto IL_08c6; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_08e0; -T:Block,6,} -T:Label,5,IL_08c6: -T:Operation,5,num = 115; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 44, 1, Modul1.IText[175]); -T:Goto,5,goto IL_08e0; -T:Label,5,IL_08e0: -T:Operation,5,num = 117; -T:Operation,5,if -T:Operation,5,((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) -T:Block,6,{ -T:Goto,6,goto IL_090f; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_0929; -T:Block,6,} -T:Label,5,IL_090f: -T:Operation,5,num = 118; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 45, 1, Modul1.IText[175]); -T:Goto,5,goto IL_0929; -T:Label,5,IL_0929: -T:Operation,5,num = 120; -T:Operation,5,if -T:Operation,5,(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -T:Block,6,{ -T:Goto,6,goto IL_0961; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_0ac2; -T:Block,6,} -T:Label,5,IL_0961: -T:Operation,5,num = 121; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 46, 1, Modul1.IText[175]); -T:Goto,5,goto IL_0ac2; -T:Label,5,IL_071b: -T:Operation,5,num = 97; -T:Operation,5,if -T:Operation,5,((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.KBem)].AsInt() >0)) -T:Block,6,{ -T:Goto,6,goto IL_074a; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_0764; -T:Block,6,} -T:Label,5,IL_074a: -T:Operation,5,num = 98; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 34, 1, Modul1.IText[175]); -T:Goto,5,goto IL_0764; -T:Label,5,IL_0764: -T:Operation,5,num = 100; -T:Operation,5,if -T:Operation,5,((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumV)].AsInt() >0)) -T:Block,6,{ -T:Goto,6,goto IL_0793; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_07ad; -T:Block,6,} -T:Label,5,IL_0793: -T:Operation,5,num = 101; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 36, 1, Modul1.IText[175]); -T:Goto,5,goto IL_07ad; -T:Label,5,IL_07ad: -T:Operation,5,num = 103; -T:Operation,5,if -T:Operation,5,((DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.DatumB)].AsInt() >0)) -T:Block,6,{ -T:Goto,6,goto IL_07dc; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_07f6; -T:Block,6,} -T:Label,5,IL_07dc: -T:Operation,5,num = 104; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 37, 1, Modul1.IText[175]); -T:Goto,5,goto IL_07f6; -T:Label,5,IL_07f6: -T:Operation,5,num = 106; -T:Operation,5,if -T:Operation,5,(Conversion.Val(DataModul.DB_EventTable.Fields[nameof(DataModul.EventFields.Ort)].Value) > 0.0) -T:Block,6,{ -T:Goto,6,goto IL_082e; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_0ac2; -T:Block,6,} -T:Label,5,IL_082e: -T:Operation,5,num = 107; -T:Operation,5,StringType.MidStmtStr(ref sDest2, 38, 1, Modul1.IText[175]); -T:Goto,5,goto IL_0ac2; -T:Label,5,IL_0ac2: -T:Operation,5,num = 138; -T:Operation,5,lErl = 2; -T:Goto,5,goto IL_0acc; -T:Label,5,IL_0acc: -T:Operation,5,num = 139; -T:Operation,5,num12 = (short)unchecked(num12 + 1); -T:Operation,5,num20 = num12; -T:Operation,5,num11 = 302; -T:Operation,5,if -T:Operation,5,(num20 <= num11) -T:Block,6,{ -T:Goto,6,goto IL_0667; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_0ae8; -T:Block,6,} -T:Label,5,IL_0ae8: -T:Operation,5,num = 140; -T:Operation,5,Modul1.LiText += sDest2; -T:Goto,5,goto IL_0b00; -T:Label,5,IL_0b00: -T:Operation,5,num = 141; -T:Operation,5,Modul1.PerSatzLes(); -T:Goto,5,goto IL_0b0d; -T:Label,5,IL_0b0d: -T:Operation,5,num = 142; -T:Operation,5,if -T:Operation,5,(null != DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.Bem3)].Value) -T:Block,6,{ -T:Goto,6,goto IL_0b40; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_0b8b; -T:Block,6,} -T:Label,5,IL_0b40: -T:Operation,5,num = 143; -T:Operation,5,if -T:Operation,5,(Operators.ConditionalCompareObjectNotEqual(DataModul.DB_PersonTable.Fields[nameof(DataModul.PersonFields.Bem3)].Value, -T:String,5,"" -T:Label,5,, TextCompare: -T:Operation,5,false)) -T:Block,6,{ -T:Goto,6,goto IL_0b71; -T:Block,6,} -T:Operation,5,else -T:Block,6,{ -T:Goto,6,goto IL_0b8b; -T:Block,6,} -T:Label,5,IL_0b71: -T:Operation,5,num = 144; -T:Operation,5,StringType.MidStmtStr(ref Modul1.LiText, 77, 1, -T:String,5,"J" -T:Operation,5,); -T:Goto,5,goto IL_0b8b; -T:Label,5,IL_0b8b: -T:Operation,5,num = 147; -T:Operation,5,DataModul.TTable.Index = -T:String,5,"Tab" -T:Operation,5,; -T:Goto,5,goto IL_0ba2; -T:Label,5,end_IL_0001: -T:Operation,5,break; -T:Block,5,} -T:Block,4,} -T:Block,3,} -T:Operation,2,catch -T:Operation,2,(Exception obj) -T:Operation,2,when (num3 != 0 && num2 == 0) -T:Block,3,{ -T:Operation,3,ProjectData.SetProjectError(obj, lErl); -T:Operation,3,try0001_dispatch = 21059; -T:Operation,3,continue; -T:Block,3,} -T:Operation,2,throw -T:Operation,2,ProjectData.CreateProjectError(-2146828237); -T:Label,2,end_IL_0001_2: -T:Operation,2,break; -T:Block,2,} -T:Operation,1,if -T:Operation,1,(num2 != 0) -T:Block,2,{ -T:Operation,2,ProjectData.ClearProjectError(); -T:Block,2,} -T:Block,1,} diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test0DataList.json b/Transpiler_pp/TranspilerLibTests/Resources/Test0DataList.json deleted file mode 100644 index 39e54740d..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test0DataList.json +++ /dev/null @@ -1 +0,0 @@ -[{"Code":"public const string TestData()","Level":0,"type":6},{"Code":"{","Level":1,"type":15},{"Code":"","Level":1,"type":6},{"Code":"\/\/ Discarded unreachable code: IL_0085","Level":1,"type":11},{"Code":"string test =","Level":1,"type":6},{"Code":"\"test\"","Level":1,"type":14},{"Code":";","Level":1,"type":6},{"Code":"goto IL_0001;","Level":1,"type":10},{"Code":"","Level":1,"type":6},{"Code":"\/* Only one IL_0001 is allowed *\/","Level":1,"type":12},{"Code":"IL_0001:","Level":1,"type":2},{"Code":"Test(test:","Level":1,"type":2},{"Code":"","Level":1,"type":6},{"Code":"\"Some Test\"","Level":1,"type":14},{"Code":");","Level":1,"type":6},{"Code":"switch","Level":1,"type":6},{"Code":"(test)","Level":1,"type":6},{"Code":"{","Level":2,"type":15},{"Code":"case","Level":2,"type":6},{"Code":"\"test\"","Level":2,"type":14},{"Code":":","Level":2,"type":2},{"Code":"case","Level":2,"type":6},{"Code":"\"test2\"","Level":2,"type":14},{"Code":":","Level":2,"type":2},{"Code":"break;","Level":2,"type":6},{"Code":"default:","Level":2,"type":2},{"Code":"goto IL_0002;","Level":2,"type":10},{"Code":"}","Level":2,"type":15},{"Code":"goto IL_0002;","Level":1,"type":10},{"Code":"IL_0002:","Level":1,"type":2},{"Code":"return","Level":1,"type":6},{"Code":"test;","Level":1,"type":6},{"Code":"}","Level":1,"type":15}] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test10/Test10Dat.cs b/Transpiler_pp/TranspilerLibTests/Resources/Test10/Test10Dat.cs deleted file mode 100644 index 10d8fdfa7..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test10/Test10Dat.cs +++ /dev/null @@ -1,4 +0,0 @@ -private void Test10Dat() -{ - writeln((xText ? 1 : 0).AsString()); -} diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test10/Test10DataList.json b/Transpiler_pp/TranspilerLibTests/Resources/Test10/Test10DataList.json deleted file mode 100644 index cc0f7721c..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test10/Test10DataList.json +++ /dev/null @@ -1 +0,0 @@ -[{"Code":"private void Test10Dat()","type":"operation","Level":0,"Pos":0},{"Code":"{","type":"block","Level":1,"Pos":26},{"Code":"writeln((xText ? 1 : 0).AsString());","type":"operation","Level":1,"Pos":27},{"Code":"}","type":"block","Level":1,"Pos":71}] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test10/Test10ExpCode.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test10/Test10ExpCode.txt deleted file mode 100644 index 313b2ebac..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test10/Test10ExpCode.txt +++ /dev/null @@ -1,4 +0,0 @@ - private void Test10Dat() - { - writeln((xText ? 1 : 0).AsString()); - } \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test10/Test10ExpParse.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test10/Test10ExpParse.txt deleted file mode 100644 index f350cd03c..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test10/Test10ExpParse.txt +++ /dev/null @@ -1,8 +0,0 @@ -///Declaration MainBlock 0,0 -private void Test10Dat() -///BlockStart Block 1,0 -{ -///Operation Operation 1,1 -writeln((xText ? 1 : 0).AsString()); -///BlockEnd Block 1,2 -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test10/Test10ExpTokenize.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test10/Test10ExpTokenize.txt deleted file mode 100644 index b62caacbe..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test10/Test10ExpTokenize.txt +++ /dev/null @@ -1,4 +0,0 @@ -T:Operation,0,private void Test10Dat() -T:Block,1,{ -T:Operation,1,writeln((xText ? 1 : 0).AsString()); -T:Block,1,} diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test11/Test11Dat.cs b/Transpiler_pp/TranspilerLibTests/Resources/Test11/Test11Dat.cs deleted file mode 100644 index 2e0ca63ad..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test11/Test11Dat.cs +++ /dev/null @@ -1,17 +0,0 @@ -private void Test11Dat() -{ - switch (sTest) - { - case 0: - case "1": - case (2, "Test2"): - case (3, "Test3"): - case "4" + cGed_Test4: - case "5" + cGed_Test5: - case "6" + cGed_Test6: - case "7" + cGed_Test7: - break; - default: - break; - } -} diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test11/Test11DataList.json b/Transpiler_pp/TranspilerLibTests/Resources/Test11/Test11DataList.json deleted file mode 100644 index bf8fe18fa..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test11/Test11DataList.json +++ /dev/null @@ -1 +0,0 @@ -[{"Code":"private void Test11Dat()","type":"operation","Level":0,"Pos":0},{"Code":"{","type":"block","Level":1,"Pos":26},{"Code":"switch","type":"operation","Level":1,"Pos":27},{"Code":"(sTest)","type":"operation","Level":1,"Pos":39},{"Code":"{","type":"block","Level":2,"Pos":53},{"Code":"case 0:","type":"label","Level":2,"Pos":54},{"Code":"case","type":"operation","Level":2,"Pos":71},{"Code":"\u00221\u0022","type":"string","Level":2,"Pos":86},{"Code":":","type":"label","Level":2,"Pos":89},{"Code":"case (2,","type":"operation","Level":2,"Pos":90},{"Code":"\u0022Test2\u0022","type":"string","Level":2,"Pos":109},{"Code":"):","type":"label","Level":2,"Pos":116},{"Code":"case (3,","type":"operation","Level":2,"Pos":118},{"Code":"\u0022Test3\u0022","type":"string","Level":2,"Pos":137},{"Code":"):","type":"label","Level":2,"Pos":144},{"Code":"case","type":"operation","Level":2,"Pos":146},{"Code":"\u00224\u0022","type":"string","Level":2,"Pos":161},{"Code":"\u002B cGed_Test4:","type":"label","Level":2,"Pos":164},{"Code":"case","type":"operation","Level":2,"Pos":178},{"Code":"\u00225\u0022","type":"string","Level":2,"Pos":193},{"Code":"\u002B cGed_Test5:","type":"label","Level":2,"Pos":196},{"Code":"case","type":"operation","Level":2,"Pos":210},{"Code":"\u00226\u0022","type":"string","Level":2,"Pos":225},{"Code":"\u002B cGed_Test6:","type":"label","Level":2,"Pos":228},{"Code":"case","type":"operation","Level":2,"Pos":242},{"Code":"\u00227\u0022","type":"string","Level":2,"Pos":257},{"Code":"\u002B cGed_Test7:","type":"label","Level":2,"Pos":260},{"Code":"break;","type":"operation","Level":2,"Pos":274},{"Code":"default:","type":"label","Level":2,"Pos":294},{"Code":"break;","type":"operation","Level":2,"Pos":312},{"Code":"}","type":"block","Level":2,"Pos":338},{"Code":"}","type":"block","Level":1,"Pos":341}] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test11/Test11ExpCode.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test11/Test11ExpCode.txt deleted file mode 100644 index 7ca4f1495..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test11/Test11ExpCode.txt +++ /dev/null @@ -1,17 +0,0 @@ - private void Test11Dat() - { - switch (sTest) - { - case 0: - case "1": - case (2, "Test2"): - case (3, "Test3"): - case "4" + cGed_Test4: - case "5" + cGed_Test5: - case "6" + cGed_Test6: - case "7" + cGed_Test7: - break; - default: - break; - } - } \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test11/Test11ExpParse.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test11/Test11ExpParse.txt deleted file mode 100644 index ee57c5295..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test11/Test11ExpParse.txt +++ /dev/null @@ -1,34 +0,0 @@ -///Declaration MainBlock 0,0 -private void Test11Dat() -///BlockStart Block 1,0 -{ -///Operation Operation 1,1 -switch (sTest) -///BlockStart Block 2,0 -{ -///Label Label 2,1 -case 0: -///Operation Label 2,2 -case "1": -///Operation Label 2,3 -case (2, "Test2"): -///Operation Label 2,4 -case (3, "Test3"): -///Operation Label 2,5 -case "4" + cGed_Test4: -///Operation Label 2,6 -case "5" + cGed_Test5: -///Operation Label 2,7 -case "6" + cGed_Test6: -///Operation Label 2,8 -case "7" + cGed_Test7: -///Operation Operation 2,9 -break; -///Label Label 2,10 -default: -///Operation Operation 2,11 -break; -///BlockEnd Block 2,12 -} -///BlockEnd Block 1,2 -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test11/Test11ExpTokenize.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test11/Test11ExpTokenize.txt deleted file mode 100644 index 554b0477e..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test11/Test11ExpTokenize.txt +++ /dev/null @@ -1,32 +0,0 @@ -T:Operation,0,private void Test11Dat() -T:Block,1,{ -T:Operation,1,switch -T:Operation,1,(sTest) -T:Block,2,{ -T:Label,2,case 0: -T:Operation,2,case -T:String,2,"1" -T:Label,2,: -T:Operation,2,case (2, -T:String,2,"Test2" -T:Label,2,): -T:Operation,2,case (3, -T:String,2,"Test3" -T:Label,2,): -T:Operation,2,case -T:String,2,"4" -T:Label,2,+ cGed_Test4: -T:Operation,2,case -T:String,2,"5" -T:Label,2,+ cGed_Test5: -T:Operation,2,case -T:String,2,"6" -T:Label,2,+ cGed_Test6: -T:Operation,2,case -T:String,2,"7" -T:Label,2,+ cGed_Test7: -T:Operation,2,break; -T:Label,2,default: -T:Operation,2,break; -T:Block,2,} -T:Block,1,} diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test12/Test12Dat.cs b/Transpiler_pp/TranspilerLibTests/Resources/Test12/Test12Dat.cs deleted file mode 100644 index 16c34f214..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test12/Test12Dat.cs +++ /dev/null @@ -1,45 +0,0 @@ -private void Test12Dat() -{ - switch (sTest) - { - case 0: - goto IL_0001; - default: - break; - IL_0001: - v = 0; - goto IL_0002; - IL_0002: - K[v] = 0; - goto IL_0003; - IL_0003: - v++; - if (v < 13) - { - goto IL_0002; - } - goto IL_0004; - IL_0004: - v = 0; - goto IL_0005; - IL_0005: - K[v] = 0; - goto IL_0006; - IL_0006: - if (v < 16) - { - v++; - goto IL_0005; - } - goto IL_0007; - IL_0007: - v++; - goto IL_0008; - IL_0008: - if (v < 18) - { - goto IL_0005; - } - - } -} diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test12/Test12DataList.json b/Transpiler_pp/TranspilerLibTests/Resources/Test12/Test12DataList.json deleted file mode 100644 index 1c4b1a28f..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test12/Test12DataList.json +++ /dev/null @@ -1 +0,0 @@ -[{"Code":"private void Test12Dat()","type":"operation","Level":0,"Pos":0},{"Code":"{","type":"block","Level":1,"Pos":26},{"Code":"switch","type":"operation","Level":1,"Pos":27},{"Code":"(sTest)","type":"operation","Level":1,"Pos":39},{"Code":"{","type":"block","Level":2,"Pos":53},{"Code":"case 0:","type":"label","Level":2,"Pos":54},{"Code":"goto IL_0001;","type":"goto","Level":2,"Pos":71},{"Code":"default:","type":"label","Level":2,"Pos":98},{"Code":"break;","type":"operation","Level":2,"Pos":116},{"Code":"IL_0001:","type":"label","Level":2,"Pos":136},{"Code":"v = 0;","type":"operation","Level":2,"Pos":154},{"Code":"goto IL_0002;","type":"goto","Level":2,"Pos":174},{"Code":"IL_0002:","type":"label","Level":2,"Pos":201},{"Code":"K[v] = 0;","type":"operation","Level":2,"Pos":219},{"Code":"goto IL_0003;","type":"goto","Level":2,"Pos":242},{"Code":"IL_0003:","type":"label","Level":2,"Pos":269},{"Code":"v\u002B\u002B;","type":"operation","Level":2,"Pos":287},{"Code":"if","type":"operation","Level":2,"Pos":305},{"Code":"(v \u003C 13)","type":"operation","Level":2,"Pos":321},{"Code":"{","type":"block","Level":3,"Pos":344},{"Code":"goto IL_0002;","type":"goto","Level":3,"Pos":345},{"Code":"}","type":"block","Level":3,"Pos":390},{"Code":"goto IL_0004;","type":"goto","Level":2,"Pos":391},{"Code":"IL_0004:","type":"label","Level":2,"Pos":418},{"Code":"v = 0;","type":"operation","Level":2,"Pos":436},{"Code":"goto IL_0005;","type":"goto","Level":2,"Pos":456},{"Code":"IL_0005:","type":"label","Level":2,"Pos":483},{"Code":"K[v] = 0;","type":"operation","Level":2,"Pos":501},{"Code":"goto IL_0006;","type":"goto","Level":2,"Pos":524},{"Code":"IL_0006:","type":"label","Level":2,"Pos":551},{"Code":"if","type":"operation","Level":2,"Pos":569},{"Code":"(v \u003C 16)","type":"operation","Level":2,"Pos":585},{"Code":"{","type":"block","Level":3,"Pos":608},{"Code":"v\u002B\u002B;","type":"operation","Level":3,"Pos":609},{"Code":"goto IL_0005;","type":"goto","Level":3,"Pos":631},{"Code":"}","type":"block","Level":3,"Pos":676},{"Code":"goto IL_0007;","type":"goto","Level":2,"Pos":677},{"Code":"IL_0007:","type":"label","Level":2,"Pos":700},{"Code":"v\u002B\u002B;","type":"operation","Level":2,"Pos":722},{"Code":"goto IL_0008;","type":"goto","Level":2,"Pos":740},{"Code":"IL_0008:","type":"label","Level":2,"Pos":767},{"Code":"if","type":"operation","Level":2,"Pos":789},{"Code":"(v \u003C 18)","type":"operation","Level":2,"Pos":805},{"Code":"{","type":"block","Level":3,"Pos":828},{"Code":"goto IL_0005;","type":"goto","Level":3,"Pos":829},{"Code":"}","type":"block","Level":3,"Pos":874},{"Code":"}","type":"block","Level":2,"Pos":883},{"Code":"}","type":"block","Level":1,"Pos":886}] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test12/Test12ExpCode.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test12/Test12ExpCode.txt deleted file mode 100644 index cb94e135c..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test12/Test12ExpCode.txt +++ /dev/null @@ -1,44 +0,0 @@ - private void Test12Dat() - { - switch (sTest) - { - case 0: - goto IL_0001; - default: - break; - IL_0001: - v = 0; - goto IL_0002; - IL_0002: - K[v] = 0; - goto IL_0003; - IL_0003: - v++; - if (v < 13) - { - goto IL_0002; - } - goto IL_0004; - IL_0004: - v = 0; - goto IL_0005; - IL_0005: // <========== 3 - K[v] = 0; - goto IL_0006; - IL_0006: - if (v < 16) - { - v++; - goto IL_0005; - } - goto IL_0007; - IL_0007: - v++; - goto IL_0008; - IL_0008: - if (v < 18) - { - goto IL_0005; - } - } - } \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test12/Test12ExpParse.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test12/Test12ExpParse.txt deleted file mode 100644 index ee9565f08..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test12/Test12ExpParse.txt +++ /dev/null @@ -1,88 +0,0 @@ -///Declaration MainBlock 0,0 -private void Test12Dat() -///BlockStart Block 1,0 -{ -///Operation Operation 1,1 -switch (sTest) -///BlockStart Block 2,0 -{ -///Label Label 2,1 -case 0: -///Goto Goto 2,2 Dest:OK -goto IL_0001; -///Label Label 2,3 -default: -///Operation Operation 2,4 -break; -///Label Label 2,5 1 -IL_0001: -///Operation Operation 2,6 -v = 0; -///Goto Goto 2,7 Dest:OK -goto IL_0002; -///Label Label 2,8 2 -IL_0002: -///Operation Operation 2,9 -K[v] = 0; -///Goto Goto 2,10 Dest:OK -goto IL_0003; -///Label Label 2,11 1 -IL_0003: -///Operation Operation 2,12 -v++; -///Operation Operation 2,13 -if (v < 13) -///BlockStart Block 3,0 -{ -///Goto Goto 3,1 Dest:OK -goto IL_0002; -///BlockEnd Block 3,2 -} -///Goto Goto 2,14 Dest:OK -goto IL_0004; -///Label Label 2,15 1 -IL_0004: -///Operation Operation 2,16 -v = 0; -///Goto Goto 2,17 Dest:OK -goto IL_0005; -///Label Label 2,18 3 -IL_0005: -///Operation Operation 2,19 -K[v] = 0; -///Goto Goto 2,20 Dest:OK -goto IL_0006; -///Label Label 2,21 1 -IL_0006: -///Operation Operation 2,22 -if (v < 16) -///BlockStart Block 3,0 -{ -///Operation Operation 3,1 -v++; -///Goto Goto 3,2 Dest:OK -goto IL_0005; -///BlockEnd Block 3,3 -} -///Goto Goto 2,23 Dest:OK -goto IL_0007; -///Label Label 2,24 1 -IL_0007: -///Operation Operation 2,25 -v++; -///Goto Goto 2,26 Dest:OK -goto IL_0008; -///Label Label 2,27 1 -IL_0008: -///Operation Operation 2,28 -if (v < 18) -///BlockStart Block 3,0 -{ -///Goto Goto 3,1 Dest:OK -goto IL_0005; -///BlockEnd Block 3,2 -} -///BlockEnd Block 2,29 -} -///BlockEnd Block 1,2 -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test12/Test12ExpParseRL.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test12/Test12ExpParseRL.txt deleted file mode 100644 index 2991d4bb1..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test12/Test12ExpParseRL.txt +++ /dev/null @@ -1,56 +0,0 @@ -///Declaration MainBlock 0,0 -private void Test12Dat() -///BlockStart Block 1,0 -{ -///Operation Operation 1,1 -switch (sTest) -///BlockStart Block 2,0 -{ -///Label Label 2,1 -case 0: -///Operation Operation 2,2 -v = 0; -///Operation Operation 2,3 -while (v < 13) -///BlockStart Block 3,0 -{ -///Operation Operation 3,1 -K[v] = 0; -///Operation Operation 3,2 -v++; -///BlockEnd Block 3,3 -} -///Operation Operation 2,4 -v = 0; -///Goto Goto 2,5 Dest:OK -goto IL_0005; -///Label Label 2,6 -default: -///Operation Operation 2,7 -break; -///Label Label 2,8 2 -IL_0005: -///Operation Operation 2,9 -while (v < 18) -///BlockStart Block 3,0 -{ -///Operation Operation 3,1 -K[v] = 0; -///Operation Operation 3,2 -if (v < 16) -///BlockStart Block 4,0 -{ -///Operation Operation 4,1 -v++; -///Goto Goto 4,2 Dest:OK -goto IL_0005; -///BlockEnd Block 4,3 -} -///Operation Operation 3,3 -v++; -///BlockEnd Block 3,4 -} -///BlockEnd Block 2,10 -} -///BlockEnd Block 1,2 -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test12/Test12ExpTokenize.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test12/Test12ExpTokenize.txt deleted file mode 100644 index b96210a01..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test12/Test12ExpTokenize.txt +++ /dev/null @@ -1,48 +0,0 @@ -T:Operation,0,private void Test12Dat() -T:Block,1,{ -T:Operation,1,switch -T:Operation,1,(sTest) -T:Block,2,{ -T:Label,2,case 0: -T:Goto,2,goto IL_0001; -T:Label,2,default: -T:Operation,2,break; -T:Label,2,IL_0001: -T:Operation,2,v = 0; -T:Goto,2,goto IL_0002; -T:Label,2,IL_0002: -T:Operation,2,K[v] = 0; -T:Goto,2,goto IL_0003; -T:Label,2,IL_0003: -T:Operation,2,v++; -T:Operation,2,if -T:Operation,2,(v < 13) -T:Block,3,{ -T:Goto,3,goto IL_0002; -T:Block,3,} -T:Goto,2,goto IL_0004; -T:Label,2,IL_0004: -T:Operation,2,v = 0; -T:Goto,2,goto IL_0005; -T:Label,2,IL_0005: -T:Operation,2,K[v] = 0; -T:Goto,2,goto IL_0006; -T:Label,2,IL_0006: -T:Operation,2,if -T:Operation,2,(v < 16) -T:Block,3,{ -T:Operation,3,v++; -T:Goto,3,goto IL_0005; -T:Block,3,} -T:Goto,2,goto IL_0007; -T:Label,2,IL_0007: -T:Operation,2,v++; -T:Goto,2,goto IL_0008; -T:Label,2,IL_0008: -T:Operation,2,if -T:Operation,2,(v < 18) -T:Block,3,{ -T:Goto,3,goto IL_0005; -T:Block,3,} -T:Block,2,} -T:Block,1,} diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test13/Test13Dat.cs b/Transpiler_pp/TranspilerLibTests/Resources/Test13/Test13Dat.cs deleted file mode 100644 index 5517caf97..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test13/Test13Dat.cs +++ /dev/null @@ -1,5 +0,0 @@ -private bool Test13Dat() -{ - // Compare this snippet from VBUnObfusicatorTests/Resources/Test13Dat.cs: - return 0 < System.SomeFunc(123); -} diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test13/Test13DataList.json b/Transpiler_pp/TranspilerLibTests/Resources/Test13/Test13DataList.json deleted file mode 100644 index 8cac981a0..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test13/Test13DataList.json +++ /dev/null @@ -1 +0,0 @@ -[{"Code":"private bool Test13Dat()","type":"operation","Level":0,"Pos":0},{"Code":"{","type":"block","Level":1,"Pos":26},{"Code":"","type":"operation","Level":1,"Pos":27},{"Code":"// Compare this snippet from VBUnObfusicatorTests/Resources/Test13Dat.cs:","type":"lComment","Level":1,"Pos":33},{"Code":"return","type":"operation","Level":1,"Pos":107},{"Code":"0 \u003C System.SomeFunc(123);","type":"operation","Level":1,"Pos":118},{"Code":"}","type":"block","Level":1,"Pos":147}] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test13/Test13ExpCode.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test13/Test13ExpCode.txt deleted file mode 100644 index b58e29c87..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test13/Test13ExpCode.txt +++ /dev/null @@ -1,5 +0,0 @@ - private bool Test13Dat() - { - // Compare this snippet from VBUnObfusicatorTests/Resources/Test13Dat.cs: - return 0 < System.SomeFunc(123); - } \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test13/Test13ExpParse.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test13/Test13ExpParse.txt deleted file mode 100644 index eb787a0d1..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test13/Test13ExpParse.txt +++ /dev/null @@ -1,10 +0,0 @@ -///Declaration MainBlock 0,0 -private bool Test13Dat() -///BlockStart Block 1,0 -{ -///Comment LComment 1,1 -// Compare this snippet from VBUnObfusicatorTests/Resources/Test13Dat.cs: -///Operation Operation 1,2 -return 0 < System.SomeFunc(123); -///BlockEnd Block 1,3 -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test13/Test13ExpParseRL.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test13/Test13ExpParseRL.txt deleted file mode 100644 index eb787a0d1..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test13/Test13ExpParseRL.txt +++ /dev/null @@ -1,10 +0,0 @@ -///Declaration MainBlock 0,0 -private bool Test13Dat() -///BlockStart Block 1,0 -{ -///Comment LComment 1,1 -// Compare this snippet from VBUnObfusicatorTests/Resources/Test13Dat.cs: -///Operation Operation 1,2 -return 0 < System.SomeFunc(123); -///BlockEnd Block 1,3 -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test13/Test13ExpTokenize.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test13/Test13ExpTokenize.txt deleted file mode 100644 index 4c6b6a605..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test13/Test13ExpTokenize.txt +++ /dev/null @@ -1,7 +0,0 @@ -T:Operation,0,private bool Test13Dat() -T:Block,1,{ -T:Operation,1, -T:LComment,1,// Compare this snippet from VBUnObfusicatorTests/Resources/Test13Dat.cs: -T:Operation,1,return -T:Operation,1,0 < System.SomeFunc(123); -T:Block,1,} diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test14/Test14Dat.cs b/Transpiler_pp/TranspilerLibTests/Resources/Test14/Test14Dat.cs deleted file mode 100644 index f6b33221e..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test14/Test14Dat.cs +++ /dev/null @@ -1,45 +0,0 @@ -private void Test14Dat() -{ - switch (sTest) - { - case 0: - goto IL_0001; - default: - break; - IL_0001: - v = 0; - goto IL_0002; - IL_0002: - K[v] = 0; - goto IL_0003; - IL_0003: - v++; - if (v < 13) - { - goto IL_0002; - } - goto IL_0004; - IL_0004: - v = 0; - goto IL_0005; - IL_0005: - K[v] = 0; - goto IL_0006; - IL_0006: - if (v < 16) - { - v++; - goto IL_0005; - } - goto IL_0007; - IL_0007: - v++; - goto IL_0008; - IL_0008: - if (v < 18) - { - goto IL_0005; - } - - } -} diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test14/Test14DataList.json b/Transpiler_pp/TranspilerLibTests/Resources/Test14/Test14DataList.json deleted file mode 100644 index c9f052495..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test14/Test14DataList.json +++ /dev/null @@ -1,242 +0,0 @@ -[ - { - "Code": "private void Test14Dat()", - "Level": 0, - "type": 6 - }, - { - "Code": "{", - "Level": 1, - "type": 15 - }, - { - "Code": "switch", - "Level": 1, - "type": 6 - }, - { - "Code": "(sTest)", - "Level": 1, - "type": 6 - }, - { - "Code": "{", - "Level": 2, - "type": 15 - }, - { - "Code": "case 0:", - "Level": 2, - "type": 2 - }, - { - "Code": "goto IL_0001;", - "Level": 2, - "type": 10 - }, - { - "Code": "default:", - "Level": 2, - "type": 2 - }, - { - "Code": "break;", - "Level": 2, - "type": 6 - }, - { - "Code": "IL_0001:", - "Level": 2, - "type": 2 - }, - { - "Code": "v = 0;", - "Level": 2, - "type": 6 - }, - { - "Code": "goto IL_0002;", - "Level": 2, - "type": 10 - }, - { - "Code": "IL_0002:", - "Level": 2, - "type": 2 - }, - { - "Code": "K[v] = 0;", - "Level": 2, - "type": 6 - }, - { - "Code": "goto IL_0003;", - "Level": 2, - "type": 10 - }, - { - "Code": "IL_0003:", - "Level": 2, - "type": 2 - }, - { - "Code": "v++;", - "Level": 2, - "type": 6 - }, - { - "Code": "if", - "Level": 2, - "type": 6 - }, - { - "Code": "(v < 13)", - "Level": 2, - "type": 6 - }, - { - "Code": "{", - "Level": 3, - "type": 15 - }, - { - "Code": "goto IL_0002;", - "Level": 3, - "type": 10 - }, - { - "Code": "}", - "Level": 3, - "type": 15 - }, - { - "Code": "goto IL_0004;", - "Level": 2, - "type": 10 - }, - { - "Code": "IL_0004:", - "Level": 2, - "type": 2 - }, - { - "Code": "v = 0;", - "Level": 2, - "type": 6 - }, - { - "Code": "goto IL_0005;", - "Level": 2, - "type": 10 - }, - { - "Code": "IL_0005:", - "Level": 2, - "type": 2 - }, - { - "Code": "K[v] = 0;", - "Level": 2, - "type": 6 - }, - { - "Code": "goto IL_0006;", - "Level": 2, - "type": 10 - }, - { - "Code": "IL_0006:", - "Level": 2, - "type": 2 - }, - { - "Code": "if", - "Level": 2, - "type": 6 - }, - { - "Code": "(v < 16)", - "Level": 2, - "type": 6 - }, - { - "Code": "{", - "Level": 3, - "type": 15 - }, - { - "Code": "v++;", - "Level": 3, - "type": 6 - }, - { - "Code": "goto IL_0005;", - "Level": 3, - "type": 10 - }, - { - "Code": "}", - "Level": 3, - "type": 15 - }, - { - "Code": "goto IL_0007;", - "Level": 2, - "type": 10 - }, - { - "Code": "IL_0007:", - "Level": 2, - "type": 2 - }, - { - "Code": "v++;", - "Level": 2, - "type": 6 - }, - { - "Code": "goto IL_0008;", - "Level": 2, - "type": 10 - }, - { - "Code": "IL_0008:", - "Level": 2, - "type": 2 - }, - { - "Code": "if", - "Level": 2, - "type": 6 - }, - { - "Code": "(v < 18)", - "Level": 2, - "type": 6 - }, - { - "Code": "{", - "Level": 3, - "type": 15 - }, - { - "Code": "goto IL_0005;", - "Level": 3, - "type": 10 - }, - { - "Code": "}", - "Level": 3, - "type": 15 - }, - { - "Code": "}", - "Level": 2, - "type": 15 - }, - { - "Code": "}", - "Level": 1, - "type": 15 - } -] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test14/Test14ExpCode.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test14/Test14ExpCode.txt deleted file mode 100644 index 49b421c1c..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test14/Test14ExpCode.txt +++ /dev/null @@ -1,44 +0,0 @@ - private void Test14Dat() - { - switch (sTest) - { - case 0: - goto IL_0001; - default: - break; - IL_0001: - v = 0; - goto IL_0002; - IL_0002: - K[v] = 0; - goto IL_0003; - IL_0003: - v++; - if (v < 13) - { - goto IL_0002; - } - goto IL_0004; - IL_0004: - v = 0; - goto IL_0005; - IL_0005: // <========== 3 - K[v] = 0; - goto IL_0006; - IL_0006: - if (v < 16) - { - v++; - goto IL_0005; - } - goto IL_0007; - IL_0007: - v++; - goto IL_0008; - IL_0008: - if (v < 18) - { - goto IL_0005; - } - } - } \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test14/Test14ExpParse.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test14/Test14ExpParse.txt deleted file mode 100644 index 9b8a3be96..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test14/Test14ExpParse.txt +++ /dev/null @@ -1,88 +0,0 @@ -///Declaration MainBlock 0,0 -private void Test14Dat() -///BlockStart Block 1,0 -{ -///Operation Operation 1,1 -switch (sTest) -///BlockStart Block 2,0 -{ -///Label Label 2,1 -case 0: -///Goto Goto 2,2 Dest:OK -goto IL_0001; -///Label Label 2,3 -default: -///Operation Operation 2,4 -break; -///Label Label 2,5 1 -IL_0001: -///Operation Operation 2,6 -v = 0; -///Goto Goto 2,7 Dest:OK -goto IL_0002; -///Label Label 2,8 2 -IL_0002: -///Operation Operation 2,9 -K[v] = 0; -///Goto Goto 2,10 Dest:OK -goto IL_0003; -///Label Label 2,11 1 -IL_0003: -///Operation Operation 2,12 -v++; -///Operation Operation 2,13 -if (v < 13) -///BlockStart Block 3,0 -{ -///Goto Goto 3,1 Dest:OK -goto IL_0002; -///BlockEnd Block 3,2 -} -///Goto Goto 2,14 Dest:OK -goto IL_0004; -///Label Label 2,15 1 -IL_0004: -///Operation Operation 2,16 -v = 0; -///Goto Goto 2,17 Dest:OK -goto IL_0005; -///Label Label 2,18 3 -IL_0005: -///Operation Operation 2,19 -K[v] = 0; -///Goto Goto 2,20 Dest:OK -goto IL_0006; -///Label Label 2,21 1 -IL_0006: -///Operation Operation 2,22 -if (v < 16) -///BlockStart Block 3,0 -{ -///Operation Operation 3,1 -v++; -///Goto Goto 3,2 Dest:OK -goto IL_0005; -///BlockEnd Block 3,3 -} -///Goto Goto 2,23 Dest:OK -goto IL_0007; -///Label Label 2,24 1 -IL_0007: -///Operation Operation 2,25 -v++; -///Goto Goto 2,26 Dest:OK -goto IL_0008; -///Label Label 2,27 1 -IL_0008: -///Operation Operation 2,28 -if (v < 18) -///BlockStart Block 3,0 -{ -///Goto Goto 3,1 Dest:OK -goto IL_0005; -///BlockEnd Block 3,2 -} -///BlockEnd Block 2,29 -} -///BlockEnd Block 1,2 -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test14/Test14ExpParseRL.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test14/Test14ExpParseRL.txt deleted file mode 100644 index 95a00e415..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test14/Test14ExpParseRL.txt +++ /dev/null @@ -1,56 +0,0 @@ -///Declaration MainBlock 0,0 -private void Test14Dat() -///BlockStart Block 1,0 -{ -///Operation Operation 1,1 -switch (sTest) -///BlockStart Block 2,0 -{ -///Label Label 2,1 -case 0: -///Operation Operation 2,2 -v = 0; -///Operation Operation 2,3 -while (v < 13) -///BlockStart Block 3,0 -{ -///Operation Operation 3,1 -K[v] = 0; -///Operation Operation 3,2 -v++; -///BlockEnd Block 3,3 -} -///Operation Operation 2,4 -v = 0; -///Goto Goto 2,5 Dest:OK -goto IL_0005; -///Label Label 2,6 -default: -///Operation Operation 2,7 -break; -///Label Label 2,8 2 -IL_0005: -///Operation Operation 2,9 -while (v < 18) -///BlockStart Block 3,0 -{ -///Operation Operation 3,1 -K[v] = 0; -///Operation Operation 3,2 -if (v < 16) -///BlockStart Block 4,0 -{ -///Operation Operation 4,1 -v++; -///Goto Goto 4,2 Dest:OK -goto IL_0005; -///BlockEnd Block 4,3 -} -///Operation Operation 3,3 -v++; -///BlockEnd Block 3,4 -} -///BlockEnd Block 2,10 -} -///BlockEnd Block 1,2 -} \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test14/Test14ExpTokenize.txt b/Transpiler_pp/TranspilerLibTests/Resources/Test14/Test14ExpTokenize.txt deleted file mode 100644 index 856163d46..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test14/Test14ExpTokenize.txt +++ /dev/null @@ -1,48 +0,0 @@ -T:Operation,0,private void Test14Dat() -T:Block,1,{ -T:Operation,1,switch -T:Operation,1,(sTest) -T:Block,2,{ -T:Label,2,case 0: -T:Goto,2,goto IL_0001; -T:Label,2,default: -T:Operation,2,break; -T:Label,2,IL_0001: -T:Operation,2,v = 0; -T:Goto,2,goto IL_0002; -T:Label,2,IL_0002: -T:Operation,2,K[v] = 0; -T:Goto,2,goto IL_0003; -T:Label,2,IL_0003: -T:Operation,2,v++; -T:Operation,2,if -T:Operation,2,(v < 13) -T:Block,3,{ -T:Goto,3,goto IL_0002; -T:Block,3,} -T:Goto,2,goto IL_0004; -T:Label,2,IL_0004: -T:Operation,2,v = 0; -T:Goto,2,goto IL_0005; -T:Label,2,IL_0005: -T:Operation,2,K[v] = 0; -T:Goto,2,goto IL_0006; -T:Label,2,IL_0006: -T:Operation,2,if -T:Operation,2,(v < 16) -T:Block,3,{ -T:Operation,3,v++; -T:Goto,3,goto IL_0005; -T:Block,3,} -T:Goto,2,goto IL_0007; -T:Label,2,IL_0007: -T:Operation,2,v++; -T:Goto,2,goto IL_0008; -T:Label,2,IL_0008: -T:Operation,2,if -T:Operation,2,(v < 18) -T:Block,3,{ -T:Goto,3,goto IL_0005; -T:Block,3,} -T:Block,2,} -T:Block,1,} diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test3DataList.json b/Transpiler_pp/TranspilerLibTests/Resources/Test3DataList.json deleted file mode 100644 index 4a15b1ad3..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test3DataList.json +++ /dev/null @@ -1 +0,0 @@ -[{"Code":"public void Test3()","Level":0,"type":6},{"Code":"{","Level":1,"type":15},{"Code":"Modul1.UbgT = (Text2[0].Text).Trim();","Level":1,"type":6},{"Code":"goto IL_105c;","Level":1,"type":10},{"Code":"IL_105c:","Level":1,"type":2},{"Code":"num = 209;","Level":1,"type":6},{"Code":"if","Level":1,"type":6},{"Code":"(Modul1.UbgT ==","Level":1,"type":6},{"Code":"\"\"","Level":1,"type":14},{"Code":")","Level":1,"type":6},{"Code":"{","Level":2,"type":15},{"Code":"goto IL_107c;","Level":2,"type":10},{"Code":"}","Level":2,"type":15},{"Code":"else","Level":1,"type":6},{"Code":"{","Level":2,"type":15},{"Code":"test =","Level":2,"type":6},{"Code":"@\"\"\"Test\"\"\"","Level":2,"type":14},{"Code":";","Level":2,"type":6},{"Code":"test2 =","Level":2,"type":6},{"Code":"$\"\\\"{test}\\\"\"","Level":2,"type":14},{"Code":";","Level":2,"type":6},{"Code":"test3 =","Level":2,"type":6},{"Code":"$\"{{test}}\"","Level":2,"type":14},{"Code":";","Level":2,"type":6},{"Code":"goto IL_108d;","Level":2,"type":10},{"Code":"}","Level":2,"type":15},{"Code":"","Level":1,"type":6},{"Code":"\/\/=================","Level":1,"type":11},{"Code":"IL_107c:","Level":1,"type":2},{"Code":"num = 210;","Level":1,"type":6},{"Code":"Modul1.UbgT =","Level":1,"type":6},{"Code":"\"\\\"\"","Level":1,"type":14},{"Code":";","Level":1,"type":6},{"Code":"goto IL_108d;","Level":1,"type":10},{"Code":"IL_108d:","Level":1,"type":2},{"Code":"num = 212;","Level":1,"type":6},{"Code":"DataModul.DB_PersonTable.Seek(","Level":1,"type":6},{"Code":"\">\"","Level":1,"type":14},{"Code":", Modul1.UbgT, Modul1.PersInArb);","Level":1,"type":6},{"Code":"}","Level":1,"type":15}] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test4DataList.json b/Transpiler_pp/TranspilerLibTests/Resources/Test4DataList.json deleted file mode 100644 index 9e31a438b..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test4DataList.json +++ /dev/null @@ -1 +0,0 @@ -[{"Code":"public void Test4()","Level":0,"type":6},{"Code":"{","Level":1,"type":15},{"Code":"goto IL_105c;","Level":1,"type":10},{"Code":"IL_105c:","Level":1,"type":2},{"Code":"num = 209;","Level":1,"type":6},{"Code":"Test(test:","Level":1,"type":2},{"Code":"","Level":1,"type":6},{"Code":"\"Some Test\"","Level":1,"type":14},{"Code":");","Level":1,"type":6},{"Code":"goto IL_107c;","Level":1,"type":10},{"Code":"","Level":1,"type":6},{"Code":"\/\/=================","Level":1,"type":11},{"Code":"IL_107c:","Level":1,"type":2},{"Code":"num = 210;","Level":1,"type":6},{"Code":"Modul1.UbgT =","Level":1,"type":6},{"Code":"\"\\\"\"","Level":1,"type":14},{"Code":";","Level":1,"type":6},{"Code":"goto IL_108d;","Level":1,"type":10},{"Code":"IL_108d:","Level":1,"type":2},{"Code":"num = 212;","Level":1,"type":6},{"Code":"}","Level":1,"type":15}] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test5DataList.json b/Transpiler_pp/TranspilerLibTests/Resources/Test5DataList.json deleted file mode 100644 index 9ac0d7640..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test5DataList.json +++ /dev/null @@ -1 +0,0 @@ -[{"Code":"public void Test5()","Level":0,"type":6},{"Code":"{","Level":1,"type":15},{"Code":"test =","Level":1,"type":6},{"Code":"\"Some unended string ... ;","Level":1,"type":14},{"Code":"test2 =","Level":1,"type":6},{"Code":"$\"Some {(test.Length()>5?@\"\\\"\":\"7\")} nested string ...\"","Level":1,"type":14},{"Code":";","Level":1,"type":6},{"Code":"test3 =","Level":1,"type":6},{"Code":"\"Some broken\"","Level":1,"type":14},{"Code":"","Level":1,"type":6},{"Code":"\/* some comment *\/","Level":1,"type":12},{"Code":"+","Level":1,"type":6},{"Code":"\" string ...\"","Level":1,"type":14},{"Code":";","Level":1,"type":6},{"Code":"test3 =","Level":1,"type":6},{"Code":"\"Another broken\"","Level":1,"type":14},{"Code":"","Level":1,"type":6},{"Code":"\/\/ some other comment","Level":1,"type":11},{"Code":"+","Level":1,"type":6},{"Code":"\" string ...\"","Level":1,"type":14},{"Code":";","Level":1,"type":6},{"Code":"}","Level":1,"type":15}] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test6DataList.json b/Transpiler_pp/TranspilerLibTests/Resources/Test6DataList.json deleted file mode 100644 index 874b1f167..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test6DataList.json +++ /dev/null @@ -1 +0,0 @@ -[{"Code":"public void Test6()","Level":0,"type":6},{"Code":"{","Level":1,"type":15},{"Code":"if","Level":1,"type":6},{"Code":"(true)","Level":1,"type":6},{"Code":"{","Level":2,"type":15},{"Code":"goto IL_105c;","Level":2,"type":10},{"Code":"}","Level":2,"type":15},{"Code":"else","Level":1,"type":6},{"Code":"goto IL_107c;","Level":1,"type":10},{"Code":"IL_105c:","Level":1,"type":2},{"Code":"goto IL_107c;","Level":1,"type":10},{"Code":"IL_107c:","Level":1,"type":2},{"Code":"return;","Level":1,"type":6},{"Code":"}","Level":1,"type":15}] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/Test7DataList.json b/Transpiler_pp/TranspilerLibTests/Resources/Test7DataList.json deleted file mode 100644 index 660e15260..000000000 --- a/Transpiler_pp/TranspilerLibTests/Resources/Test7DataList.json +++ /dev/null @@ -1 +0,0 @@ -[{"Code":"public void Test7()","Level":0,"type":6},{"Code":"{","Level":1,"type":15},{"Code":"if","Level":1,"type":6},{"Code":"(true)","Level":1,"type":6},{"Code":"goto IL_105c;","Level":1,"type":10},{"Code":"else","Level":1,"type":6},{"Code":"goto IL_107c;","Level":1,"type":10},{"Code":"IL_105c:","Level":1,"type":2},{"Code":"num = 209;","Level":1,"type":6},{"Code":"i++;","Level":1,"type":6},{"Code":"goto IL_108c;","Level":1,"type":10},{"Code":"IL_107c:","Level":1,"type":2},{"Code":"num = 210;","Level":1,"type":6},{"Code":"i--;","Level":1,"type":6},{"Code":"goto IL_108c;","Level":1,"type":10},{"Code":"IL_108c:","Level":1,"type":2},{"Code":"num = 212;","Level":1,"type":6},{"Code":"return;","Level":1,"type":6},{"Code":"}","Level":1,"type":15}] \ No newline at end of file diff --git a/Transpiler_pp/TranspilerLibTests/Resources/_/.info b/Transpiler_pp/TranspilerLibTests/Resources/_/.info deleted file mode 100644 index e69de29bb..000000000 diff --git a/Transpiler_pp/TranspilerLibTests/TranspilerLibTests.csproj b/Transpiler_pp/TranspilerLibTests/TranspilerLibTests.csproj deleted file mode 100644 index 3b9703b06..000000000 --- a/Transpiler_pp/TranspilerLibTests/TranspilerLibTests.csproj +++ /dev/null @@ -1,70 +0,0 @@ - - - - net8.0 - disable - enable - - false - true - - - - - $(TargetFrameworks);net9.0 - - - $(TargetFrameworks);net10.0 - - - - - - - - - - - - - - PreserveNewest - - - - - - all - runtime; build; native; contentfiles; analyzers; buildtransitive - - - - - - - - - - - - - - - - - - - Resources.resx - True - True - - - - - - Resources.Designer.cs - PublicResXFileCodeGenerator - - - - diff --git a/Transpiler_pp/Trnsp.Show.Lfm.Tests/SampleTests.cs b/Transpiler_pp/Trnsp.Show.Lfm.Tests/SampleTests.cs deleted file mode 100644 index 8a3fb1a01..000000000 --- a/Transpiler_pp/Trnsp.Show.Lfm.Tests/SampleTests.cs +++ /dev/null @@ -1,29 +0,0 @@ -using System; -using Microsoft.VisualStudio.TestTools.UnitTesting; -using NSubstitute; - -namespace MSTestv4.Tests; - -public interface IMathService -{ - int Add(int a, int b); -} - -[TestClass] -public class SampleTests -{ - [TestMethod] - [DataRow(1, 2, 3)] - [DataRow(-1, 1, 0)] - [DataRow(10, 5, 15)] - public void Add_UsesService(int a, int b, int expected) - { - var mathService = Substitute.For(); - mathService.Add(a, b).Returns(expected); - - var result = mathService.Add(a, b); - - Assert.AreEqual(expected, result); - mathService.Received(1).Add(a, b); - } -} diff --git a/Transpiler_pp/Trnsp.Show.Lfm.Tests/Services/LfmObjectResolverTests.cs b/Transpiler_pp/Trnsp.Show.Lfm.Tests/Services/LfmObjectResolverTests.cs deleted file mode 100644 index 18f977fbf..000000000 --- a/Transpiler_pp/Trnsp.Show.Lfm.Tests/Services/LfmObjectResolverTests.cs +++ /dev/null @@ -1,103 +0,0 @@ -using Microsoft.VisualStudio.TestTools.UnitTesting; -using System; -using System.Collections.Generic; -using System.Linq; -using System.Runtime.InteropServices.Marshalling; -using System.Text; -using System.Threading.Tasks; -using TranspilerLib.Pascal.Models; -using Trnsp.Show.Lfm.Models.Components; - -namespace Trnsp.Show.Lfm.Services.Tests; - -[TestClass] -public class LfmObjectResolverTests -{ - private sealed class TestComponent : LfmComponentBase - { - } - - private sealed class TestAction : TAction - { - public TestAction() - { - Caption = "TestCaption"; - Hint = "TestHint"; - } - } - - [TestMethod] - public void ResolveOrDefer_ResolvesAlreadyRegisteredObject() - { - var resolver = new LfmObjectResolver(); - LfmComponentBase.ObjectResolver = resolver; - - var action = new TestAction(); - resolver.RegisterObject("TestAction", action); - - var comp = new TestComponent(); - comp.ApplyProperties(new LfmObject - { - Name = "Comp1", - TypeName = "TButton", - Properties = - { - new() { Name = "Action", Value = "TestAction" } - } - }); - - Assert.AreSame(action, comp.LinkedAction!.TryGetTarget(out var t)?t:t); - Assert.AreEqual("TestCaption", comp.EffectiveCaption); - Assert.AreEqual("TestHint", comp.EffectiveHint); - } - - [TestMethod] - public void ResolveOrDefer_ResolvesDeferredObject() - { - var resolver = new LfmObjectResolver(); - LfmComponentBase.ObjectResolver = resolver; - - var comp = new TestComponent(); - comp.ApplyProperties(new LfmObject - { - Name = "Comp1", - TypeName = "TButton", - Properties = - { - new() { Name = "Action", Value = "TestAction" } - } - }); - - Assert.IsNull(comp.LinkedAction); - - var action = new TestAction(); - resolver.RegisterObject("TestAction", action); - - Assert.AreSame(action, comp.LinkedAction!.TryGetTarget(out var t) ? t : t); - Assert.AreEqual("TestCaption", comp.EffectiveCaption); - Assert.AreEqual("TestHint", comp.EffectiveHint); - } - - [TestMethod] - public void RegisterObject_RegistersComponentItself() - { - var resolver = new LfmObjectResolver(); - LfmComponentBase.ObjectResolver = resolver; - - var comp = new TestComponent(); - comp.ApplyProperties(new LfmObject - { - Name = "Comp1", - TypeName = "TButton" - }); - - resolver.ResolveOrDefer( - "Comp1", - new object(), - (resolved) => - { - Assert.AreSame(comp, resolved); - }); - } - -} diff --git a/Transpiler_pp/Trnsp.Show.Lfm.Tests/Trnsp.Show.Lfm.Tests.csproj b/Transpiler_pp/Trnsp.Show.Lfm.Tests/Trnsp.Show.Lfm.Tests.csproj deleted file mode 100644 index 58875cbcf..000000000 --- a/Transpiler_pp/Trnsp.Show.Lfm.Tests/Trnsp.Show.Lfm.Tests.csproj +++ /dev/null @@ -1,25 +0,0 @@ - - - - net8.0-windows - false - true - Trnsp.Show.Lfm - - - - - $(TargetFrameworks);net9.0-windows - - - $(TargetFrameworks);net10.0-windows - - - - - - - - - - \ No newline at end of file diff --git a/Transpiler_pp/Trnsp.Show.Lfm/App.xaml b/Transpiler_pp/Trnsp.Show.Lfm/App.xaml deleted file mode 100644 index 750b1f442..000000000 --- a/Transpiler_pp/Trnsp.Show.Lfm/App.xaml +++ /dev/null @@ -1,7 +0,0 @@ - - - diff --git a/Transpiler_pp/Trnsp.Show.Lfm/App.xaml.cs b/Transpiler_pp/Trnsp.Show.Lfm/App.xaml.cs deleted file mode 100644 index 1b045c3f3..000000000 --- a/Transpiler_pp/Trnsp.Show.Lfm/App.xaml.cs +++ /dev/null @@ -1,46 +0,0 @@ -using System; -using System.Windows; -using Microsoft.Extensions.DependencyInjection; -using Trnsp.Show.Lfm.Services; -using Trnsp.Show.Lfm.Services.Interfaces; -using Trnsp.Show.Lfm.ViewModels; - -namespace Trnsp.Show.Lfm; - -/// -/// Interaction logic for App.xaml -/// -public partial class App : Application -{ - private static IServiceProvider? _serviceProvider; - - public static IServiceProvider ServiceProvider => _serviceProvider - ?? throw new InvalidOperationException("ServiceProvider not initialized"); - - protected override void OnStartup(StartupEventArgs e) - { - base.OnStartup(e); - - var services = new ServiceCollection(); - ConfigureServices(services); - _serviceProvider = services.BuildServiceProvider(); - - var mainWindow = new MainWindow - { - DataContext = _serviceProvider.GetRequiredService() - }; - mainWindow.Show(); - } - - private static void ConfigureServices(IServiceCollection services) - { - // Services - services.AddSingleton(); - services.AddSingleton(); - services.AddSingleton(); - services.AddSingleton(); - - // ViewModels - services.AddTransient(); - } -} diff --git a/Transpiler_pp/Trnsp.Show.Lfm/AssemblyInfo.cs b/Transpiler_pp/Trnsp.Show.Lfm/AssemblyInfo.cs deleted file mode 100644 index b0ec82757..000000000 --- a/Transpiler_pp/Trnsp.Show.Lfm/AssemblyInfo.cs +++ /dev/null @@ -1,10 +0,0 @@ -using System.Windows; - -[assembly: ThemeInfo( - ResourceDictionaryLocation.None, //where theme specific resource dictionaries are located - //(used if a resource is not found in the page, - // or application resource dictionaries) - ResourceDictionaryLocation.SourceAssembly //where the generic resource dictionary is located - //(used if a resource is not found in the page, - // app, or any theme specific resource dictionaries) -)] diff --git a/Transpiler_pp/Trnsp.Show.Lfm/Controls/LfmDesignerCanvas.cs b/Transpiler_pp/Trnsp.Show.Lfm/Controls/LfmDesignerCanvas.cs deleted file mode 100644 index 09fd23611..000000000 --- a/Transpiler_pp/Trnsp.Show.Lfm/Controls/LfmDesignerCanvas.cs +++ /dev/null @@ -1,153 +0,0 @@ -using System; -using System.Windows; -using System.Windows.Controls; -using System.Windows.Input; -using System.Windows.Media; -using Trnsp.Show.Lfm.Models.Components; -using Trnsp.Show.Lfm.Services; - -namespace Trnsp.Show.Lfm.Controls; - -/// -/// Canvas control for displaying LFM forms visually. -/// -public class LfmDesignerCanvas : Canvas -{ - private readonly IComponentRenderer _renderer; - private LfmComponentBase? _rootComponent; - private double _zoom = 1.0; - - public static readonly DependencyProperty RootComponentProperty = - DependencyProperty.Register( - nameof(RootComponent), - typeof(LfmComponentBase), - typeof(LfmDesignerCanvas), - new PropertyMetadata(null, OnRootComponentChanged)); - - public static readonly DependencyProperty ZoomProperty = - DependencyProperty.Register( - nameof(Zoom), - typeof(double), - typeof(LfmDesignerCanvas), - new PropertyMetadata(1.0, OnZoomChanged)); - - public static readonly DependencyProperty SelectedComponentProperty = - DependencyProperty.Register( - nameof(SelectedComponent), - typeof(LfmComponentBase), - typeof(LfmDesignerCanvas), - new PropertyMetadata(null)); - - public LfmComponentBase? RootComponent - { - get => (LfmComponentBase?)GetValue(RootComponentProperty); - set => SetValue(RootComponentProperty, value); - } - - public double Zoom - { - get => (double)GetValue(ZoomProperty); - set => SetValue(ZoomProperty, value); - } - - public LfmComponentBase? SelectedComponent - { - get => (LfmComponentBase?)GetValue(SelectedComponentProperty); - set => SetValue(SelectedComponentProperty, value); - } - - public LfmDesignerCanvas() - { - _renderer = new ComponentRenderer(); - Background = new DrawingBrush - { - TileMode = TileMode.Tile, - Viewport = new Rect(0, 0, 10, 10), - ViewportUnits = BrushMappingMode.Absolute, - Drawing = new GeometryDrawing - { - Brush = Brushes.White, - Pen = new Pen(Brushes.LightGray, 0.5), - Geometry = new RectangleGeometry(new Rect(0, 0, 10, 10)) - } - }; - - ClipToBounds = true; - } - - private static void OnRootComponentChanged(DependencyObject d, DependencyPropertyChangedEventArgs e) - { - if (d is LfmDesignerCanvas canvas) - { - canvas._rootComponent = e.NewValue as LfmComponentBase; - canvas.RenderComponent(); - } - } - - private static void OnZoomChanged(DependencyObject d, DependencyPropertyChangedEventArgs e) - { - if (d is LfmDesignerCanvas canvas) - { - canvas.ApplyZoom(); - } - } - - private void RenderComponent() - { - Children.Clear(); - - if (_rootComponent == null) - return; - - var element = _renderer.Render(_rootComponent); - - if (element is FrameworkElement fe) - { - // Position the form in the canvas - Canvas.SetLeft(fe, 20); - Canvas.SetTop(fe, 20); - - // Add click handler for selection - fe.MouseLeftButtonDown += OnElementClicked; - fe.Visibility = Visibility.Visible; - } - - Children.Add(element); - ApplyZoom(); - } - - private void ApplyZoom() - { - var transform = new ScaleTransform(_zoom, _zoom); - RenderTransform = transform; - } - - private void OnElementClicked(object sender, MouseButtonEventArgs e) - { - if (sender is FrameworkElement fe && fe.Tag is LfmComponentBase component) - { - // Deselect previous - if (SelectedComponent != null) - { - SelectedComponent.IsSelected = false; - } - - // Select new - component.IsSelected = true; - SelectedComponent = component; - e.Handled = true; - } - } - - protected override void OnMouseWheel(MouseWheelEventArgs e) - { - base.OnMouseWheel(e); - - if (Keyboard.Modifiers == ModifierKeys.Control) - { - var delta = e.Delta > 0 ? 0.1 : -0.1; - Zoom = Math.Max(0.25, Math.Min(4.0, Zoom + delta)); - e.Handled = true; - } - } -} diff --git a/Transpiler_pp/Trnsp.Show.Lfm/MainWindow.xaml b/Transpiler_pp/Trnsp.Show.Lfm/MainWindow.xaml deleted file mode 100644 index a57876f62..000000000 --- a/Transpiler_pp/Trnsp.Show.Lfm/MainWindow.xaml +++ /dev/null @@ -1,153 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -