administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

LanguageKit в установщики

Browse source 
ParseXaml WPF
This commit is contained in:
Mikhalkovich Stanislav 2024-03-24 17:02:55 +03:00
parent cedb575c1b
commit 9a05812c1e
10 changed files with 22 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Configuration/GlobalAssemblyInfo.cs
View file

@ -15,7 +15,7 @@ internal static class RevisionClass
public const string Major = "3"; public const string Major = "3";
public const string Minor = "9"; public const string Minor = "9";
public const string Build = "0"; public const string Build = "0";
public const string Revision = "3445"; public const string Revision = "3446";
public const string MainVersion = Major + "." + Minor; public const string MainVersion = Major + "." + Minor;
public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision; public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

4
Configuration/Version.defs
View file

@ -1,4 +1,4 @@
%MINOR%=9
%REVISION%=3445
%COREVERSION%=0 %COREVERSION%=0
%REVISION%=3446
%MINOR%=9
%MAJOR%=3 %MAJOR%=3

2
Release/pabcversion.txt
View file

@ -1 +1 @@
3.9.0.3445 3.9.0.3446

1
ReleaseGenerators/PascalABCNETConsoleZIP.bat
View file

@ -5,5 +5,6 @@ del ..\Release\PACNETConsole.zip
..\utils\pkzipc\pkzipc.exe -add -nozip -dir ..\Release\PABCNETC.zip Lng\*.dat ..\utils\pkzipc\pkzipc.exe -add -nozip -dir ..\Release\PABCNETC.zip Lng\*.dat
..\utils\pkzipc\pkzipc.exe -add -nozip -dir ..\Release\PABCNETC.zip Lng\*.LanguageName ..\utils\pkzipc\pkzipc.exe -add -nozip -dir ..\Release\PABCNETC.zip Lng\*.LanguageName
..\utils\pkzipc\pkzipc.exe -add -nozip -dir ..\Release\PABCNETC.zip doc\*.* ..\utils\pkzipc\pkzipc.exe -add -nozip -dir ..\Release\PABCNETC.zip doc\*.*
..\utils\pkzipc\pkzipc.exe -add -nozip -dir ..\Release\PABCNETC.zip -dir LanguageKits
cd ..\ReleaseGenerators cd ..\ReleaseGenerators
..\utils\pkzipc\pkzipc.exe -add -nozip -dir ..\Release\PABCNETC.zip install_pabcnetc.bat ..\utils\pkzipc\pkzipc.exe -add -nozip -dir ..\Release\PABCNETC.zip install_pabcnetc.bat

3
ReleaseGenerators/PascalABCNETMonoZIP.bat
View file

@ -1,10 +1,11 @@
cd ..\bin cd ..\bin
del ..\Release\PascalABCNETMono.zip del ..\Release\PascalABCNETMono.zip
..\utils\pkzipc\pkzipc.exe -add ..\Release\PascalABCNETMono.zip PascalABCNETMono.exe pabcnetc.exe pabcnetc PascalABCNET Compiler.dll CompilerTools.dll Errors.dll Localization.dll NETGenerator.dll ParserTools.dll SyntaxTreeConverters.dll ICSharpCode.NRefactory.dll SemanticTree.dll SyntaxTree.dll TreeConverter.dll OptimizerConversion.dll PascalABCParser.dll licence.txt PascalABCNET.chm System.Threading.dll PluginsSupport.dll InternalErrorReport.dll ICSharpCode.TextEditor.dll ICSharpCode.SharpZipLib.dll CodeCompletion.dll Debugger.Core.dll Mono.Debugger.Soft.dll Mono.Debugging.dll Mono.Debugging.Soft.dll NETXP.Controls.dll NETXP.Controls.Bars.dll NETXP.Library.dll NETXP.Win32.dll WeifenLuo.WinFormsUI.Docking.dll template.pct YieldHelpers.dll ..\utils\pkzipc\pkzipc.exe -add ..\Release\PascalABCNETMono.zip PascalABCNETMono.exe pabcnetc.exe pabcnetc PascalABCNET Compiler.dll CompilerTools.dll Errors.dll Localization.dll NETGenerator.dll ParserTools.dll SyntaxTreeConverters.dll ICSharpCode.NRefactory.dll SemanticTree.dll SyntaxTree.dll TreeConverter.dll OptimizerConversion.dll PascalABCParser.dll licence.txt PascalABCNET.chm System.Threading.dll PluginsSupport.dll InternalErrorReport.dll ICSharpCode.TextEditor.dll ICSharpCode.SharpZipLib.dll CodeCompletion.dll Debugger.Core.dll Mono.Debugger.Soft.dll Mono.Debugging.dll Mono.Debugging.Soft.dll NETXP.Controls.dll NETXP.Controls.Bars.dll NETXP.Library.dll NETXP.Win32.dll WeifenLuo.WinFormsUI.Docking.dll template.pct YieldHelpers.dll LanguageIntegrator.dll
..\utils\pkzipc\pkzipc.exe -add -nozip -dir ..\Release\PascalABCNETMono.zip Lib\*.pcu ..\utils\pkzipc\pkzipc.exe -add -nozip -dir ..\Release\PascalABCNETMono.zip Lib\*.pcu
..\utils\pkzipc\pkzipc.exe -add -nozip -dir ..\Release\PascalABCNETMono.zip Highlighting\*.xshd ..\utils\pkzipc\pkzipc.exe -add -nozip -dir ..\Release\PascalABCNETMono.zip Highlighting\*.xshd
..\utils\pkzipc\pkzipc.exe -add -nozip -dir ..\Release\PascalABCNETMono.zip Ico\*.ico ..\utils\pkzipc\pkzipc.exe -add -nozip -dir ..\Release\PascalABCNETMono.zip Ico\*.ico
..\utils\pkzipc\pkzipc.exe -add -nozip -dir ..\Release\PascalABCNETMono.zip Lng\Rus\*.dat Lng\Rus\.LanguageName Lng\Rus\.LanguageName Lng\Rus\_Global Lng\Rus\_Global_loc ..\utils\pkzipc\pkzipc.exe -add -nozip -dir ..\Release\PascalABCNETMono.zip Lng\Rus\*.dat Lng\Rus\.LanguageName Lng\Rus\.LanguageName Lng\Rus\_Global Lng\Rus\_Global_loc
..\utils\pkzipc\pkzipc.exe -add -nozip -dir ..\Release\PascalABCNETMono.zip -dir LanguageKits
cd ..\ReleaseGenerators cd ..\ReleaseGenerators
..\utils\pkzipc\pkzipc.exe -add -nozip -dir ..\Release\PascalABCNETMono.zip Samples\Pas\* ..\utils\pkzipc\pkzipc.exe -add -nozip -dir ..\Release\PascalABCNETMono.zip Samples\Pas\*
cd ..\Release cd ..\Release

2
ReleaseGenerators/PascalABCNET_version.nsh
View file

@ -1 +1 @@
!define VERSION '3.9.0.3445' !define VERSION '3.9.0.3446'

7
TestSuite/CompilationSamples/NumLibABC.pas
View file

@ -1,7 +1,6 @@
unit NumLibABC; unit NumLibABC;
const &NumLibABCVersion = 'NumLibABC 1.0.1 от 14.09.2019'; const &NumLibABCVersion = 'NumLibABC 1.0.2 от 20.03.2024';
// предыдущая версия 1.0.0 от 06.09.2017
type type
Point=auto class Point=auto class
@ -1205,7 +1204,7 @@ type
begin begin
Assert((pa.RowCount=pb.RowCount) and (pa.ColCount=pb.ColCount), Assert((pa.RowCount=pb.RowCount) and (pa.ColCount=pb.ColCount),
'Сложение MarixR: Несовпадение размеров'); 'Сложение MarixR: Несовпадение размеров');
Result:=new Matrix(pa.RowCount,pa.RowCount); Result:=new Matrix(pa.RowCount,pa.ColCount);
for var i:=0 to pa.RowCount-1 do for var i:=0 to pa.RowCount-1 do
for var j:=0 to pa.ColCount-1 do for var j:=0 to pa.ColCount-1 do
Result.Value[i,j]:=pa.Value[i,j]+pb.Value[i,j] Result.Value[i,j]:=pa.Value[i,j]+pb.Value[i,j]
@ -1550,7 +1549,7 @@ type
else Result.Value:=MatrFill(RowCount,ColCount,MaxReal); else Result.Value:=MatrFill(RowCount,ColCount,MaxReal);
end; end;
/// Решение системы линейных алнебраических уравнения (СЛАУ) /// Решение системы линейных алгебраических уравнения (СЛАУ)
function SLAU(vb:Vector; var cond:real):Vector; function SLAU(vb:Vector; var cond:real):Vector;
// Возвращает вектор, содержащий решение СЛАУ. // Возвращает вектор, содержащий решение СЛАУ.
// Заносит в cond число обусловленности исходной матрицы. // Заносит в cond число обусловленности исходной матрицы.

1
_GenerateLinuxVersion.bat
View file

@ -6,6 +6,7 @@ mkdir Release\PascalABCNETLinux\LibSource\
mkdir Release\PascalABCNETLinux\Lng\Rus mkdir Release\PascalABCNETLinux\Lng\Rus
mkdir Release\PascalABCNETLinux\Lng\Eng mkdir Release\PascalABCNETLinux\Lng\Eng
mkdir Release\PascalABCNETLinux\Highlighting\ mkdir Release\PascalABCNETLinux\Highlighting\
mkdir Release\PascalABCNETLinux\LanguageKits\
del Release\PascalABCNETLinux.zip del Release\PascalABCNETLinux.zip

7
bin/Lib/NumLibABC.pas
View file

@ -1,7 +1,6 @@
unit NumLibABC; unit NumLibABC;
const &NumLibABCVersion = 'NumLibABC 1.0.1 от 14.09.2019'; const &NumLibABCVersion = 'NumLibABC 1.0.2 от 20.03.2024';
// предыдущая версия 1.0.0 от 06.09.2017
type type
Point=auto class Point=auto class
@ -1205,7 +1204,7 @@ type
begin begin
Assert((pa.RowCount=pb.RowCount) and (pa.ColCount=pb.ColCount), Assert((pa.RowCount=pb.RowCount) and (pa.ColCount=pb.ColCount),
'Сложение MarixR: Несовпадение размеров'); 'Сложение MarixR: Несовпадение размеров');
Result:=new Matrix(pa.RowCount,pa.RowCount); Result:=new Matrix(pa.RowCount,pa.ColCount);
for var i:=0 to pa.RowCount-1 do for var i:=0 to pa.RowCount-1 do
for var j:=0 to pa.ColCount-1 do for var j:=0 to pa.ColCount-1 do
Result.Value[i,j]:=pa.Value[i,j]+pb.Value[i,j] Result.Value[i,j]:=pa.Value[i,j]+pb.Value[i,j]
@ -1550,7 +1549,7 @@ type
else Result.Value:=MatrFill(RowCount,ColCount,MaxReal); else Result.Value:=MatrFill(RowCount,ColCount,MaxReal);
end; end;
/// Решение системы линейных алнебраических уравнения (СЛАУ) /// Решение системы линейных алгебраических уравнения (СЛАУ)
function SLAU(vb:Vector; var cond:real):Vector; function SLAU(vb:Vector; var cond:real):Vector;
// Возвращает вектор, содержащий решение СЛАУ. // Возвращает вектор, содержащий решение СЛАУ.
// Заносит в cond число обусловленности исходной матрицы. // Заносит в cond число обусловленности исходной матрицы.

13
bin/Lib/WPF.pas
View file

@ -308,17 +308,18 @@ begin
Result := Self; Result := Self;
end; end;
function LoadFromXaml(fname: string): object; function ParseXaml(s: string): object;
begin begin
var s := ReadAllText(fname);
var context := new ParserContext(); var context := new ParserContext();
context.XmlnsDictionary.Add('','http://schemas.microsoft.com/winfx/2006/xaml/presentation'); context.XmlnsDictionary.Add('','http://schemas.microsoft.com/winfx/2006/xaml/presentation');
context.XmlnsDictionary.Add('x', 'http://schemas.microsoft.com/winfx/2006/xaml'); context.XmlnsDictionary.Add('x', 'http://schemas.microsoft.com/winfx/2006/xaml');
Result := System.Windows.Markup.XamlReader.Parse(ReadAllText(fname),nil); Result := System.Windows.Markup.XamlReader.Parse(s,context);
end;
//var s := new System.IO.FileStream(fname, System.IO.FileMode.Open); function LoadFromXaml(fname: string): object;
//Result := System.Windows.Markup.XamlReader.Load(s); begin
//s.Close(); var s := ReadAllText(fname);
Result := ParseXaml(s);
end; end;
// Функции создания элементов управления // Функции создания элементов управления