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

NodesGenerator - отключил генерацию ненужного hierarchyVisitor

Browse source 
GenegateAllSetups - отключил тесты SPython - не проходят на некоторых компьютерах
This commit is contained in:
Mikhalkovich Stanislav 2026-01-02 10:58:07 +03:00
parent 7549262e9b
commit 8de8af7320
17 changed files with 62 additions and 4529 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 Minor = "11";
public const string Build = "0";
public const string Revision = "3706";
public const string Revision = "3714";
public const string MainVersion = Major + "." + Minor;
public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

2
Configuration/Version.defs
View file

@ -1,4 +1,4 @@
%COREVERSION%=0
%REVISION%=3706
%REVISION%=3714
%MINOR%=11
%MAJOR%=3

2
Release/pabcversion.txt
View file

@ -1 +1 @@
3.11.0.3706
3.11.0.3714

2
ReleaseGenerators/PascalABCNET_version.nsh
View file

@ -1 +1 @@
!define VERSION '3.11.0.3706'
!define VERSION '3.11.0.3714'

4484
SyntaxTree/tree/HierarchyVisitor.cs
View file

File diff suppressed because it is too large Load diff

BIN
SyntaxTree/tree/NodesGenerator.exe
View file

Binary file not shown.

1
SyntaxTree/tree/Tree.cs
View file

@ -1006,7 +1006,6 @@ namespace PascalABCCompiler.SyntaxTree
copy.from.Parent = copy;
}
copy.operator_type = operator_type;
copy.first_assignment_defines_type = first_assignment_defines_type;
return copy;
}

70
TestSuite/CompilationSamples/GraphWPF.pas
View file

@ -1,4 +1,4 @@
// Copyright (©) Ivan Bondarev, Stanislav Mikhalkovich (for details please see \doc\copyright.txt)
// Copyright (c) Ivan Bondarev, Stanislav Mikhalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
///Модуль графики
unit GraphWPF;
@ -684,37 +684,42 @@ function GetMouseArgs(e: MouseEventArgs): (Point,integer);
/// Процедура быстрого рисования последовательности команд, использующих DrawingContext
procedure FastDraw(commands: DrawingContext->());
/// Рисование отрезка с помощью DrawingContext (совместно с FastDraw)
/// Рисование отрезка с помощью DrawingContext (совместно с FastDraw,DrawOnVisual)
procedure DrawLineDC(dc: DrawingContext; x,y,x1,y1: real; c: Color; w: real);
/// Рисование отрезка с помощью DrawingContext (совместно с FastDraw)
/// Рисование отрезка с помощью DrawingContext (совместно с FastDraw,DrawOnVisual)
procedure DrawLineDC(dc: DrawingContext; x,y,x1,y1: real; p: GPen);
/// Рисование эллипса с помощью DrawingContext (совместно с FastDraw)
/// Рисование эллипса с помощью DrawingContext (совместно с FastDraw,DrawOnVisual)
procedure DrawEllipseDC(dc: DrawingContext; x,y,rx,ry: real; cbrush,cpen: Color; w: real);
/// Рисование эллипса с помощью DrawingContext (совместно с FastDraw)
/// Рисование эллипса с помощью DrawingContext (совместно с FastDraw,DrawOnVisual)
procedure DrawEllipseDC(dc: DrawingContext; x,y,rx,ry: real; b: GBrush; p: GPen);
/// Рисование прямоугольника с помощью DrawingContext (совместно с FastDraw)
/// Рисование прямоугольника с помощью DrawingContext (совместно с FastDraw,DrawOnVisual)
procedure DrawRectangleDC(dc: DrawingContext; x,y,width,height: real; cbrush,cpen: Color; w: real);
/// Рисование прямоугольника с помощью DrawingContext (совместно с FastDraw)
/// Рисование прямоугольника с помощью DrawingContext (совместно с FastDraw,DrawOnVisual)
procedure DrawRectangleDC(dc: DrawingContext; x,y,width,height: real; b: GBrush; p: GPen);
/// Рисование полигона с помощью DrawingContext (совместно с FastDraw)
/// Рисование полигона с помощью DrawingContext (совместно с FastDraw,DrawOnVisual)
procedure DrawPolygonDC(dc: DrawingContext; pnt: array of Point; cbrush,cpen: Color; w: real);
/// Рисование полигона с помощью DrawingContext (совместно с FastDraw)
/// Рисование полигона с помощью DrawingContext (совместно с FastDraw,DrawOnVisual)
procedure DrawPolygonDC(dc: DrawingContext; pnt: array of Point; b: GBrush; p: GPen);
/// Рисование ломаной с помощью DrawingContext (совместно с FastDraw)
/// Рисование ломаной с помощью DrawingContext (совместно с FastDraw,DrawOnVisual)
procedure DrawPolylineDC(dc: DrawingContext; pnt: array of Point; cpen: Color; w: real);
/// Рисование ломаной с помощью DrawingContext (совместно с FastDraw)
/// Рисование ломаной с помощью DrawingContext (совместно с FastDraw,DrawOnVisual)
procedure DrawPolylineDC(dc: DrawingContext; pnt: array of Point; p: GPen);
/// Рисование текста с помощью DrawingContext (совместно с FastDraw)
/// Рисование текста с помощью DrawingContext (совместно с FastDraw,DrawOnVisual)
procedure TextOutDC(dc: DrawingContext; x,y: real; text: string; align: Alignment := Alignment.LeftTop; angle: real := 0; f: FontOptions := nil);
/// Рисование текста в прямоугольнике с помощью DrawingContext (совместно с FastDraw)
/// Рисование текста в прямоугольнике с помощью DrawingContext (совместно с FastDraw,DrawOnVisual)
procedure DrawTextDC(dc: DrawingContext; x,y,w,h: real; text: string; align: Alignment := Alignment.Center; angle: real := 0; f: FontOptions := nil);
/// Рисование графика с помощью DrawingContext (совместно с FastDraw)
/// Рисование графика с помощью DrawingContext (совместно с FastDraw,DrawOnVisual)
procedure DrawGraphDC(dc: DrawingContext; f: real -> real; a, b, min, max, x, y, w, h, XTicks, YTicks: real; title: string := '');
/// Рисование графика с помощью DrawingContext (совместно с FastDraw)
/// Рисование графика с помощью DrawingContext (совместно с FastDraw,DrawOnVisual)
procedure DrawGraphDC(dc: DrawingContext; f: real -> real; a, b, min, max, x, y, w, h: real; title: string := '');
/// Рисование графика с помощью DrawingContext (совместно с FastDraw)
/// Рисование графика с помощью DrawingContext (совместно с FastDraw,DrawOnVisual)
procedure DrawGraphDC(dc: DrawingContext; f: real -> real; a, b: real; x, y, w, h: real; title: string := '');
/// Рисование изображения с помощью DrawingContext из файла fname в позиции (x,y) (совместно с FastDraw,DrawOnVisual)
procedure DrawImageDC(dc: DrawingContext; x,y: real; fname: string);
/// Рисование изображения с помощью DrawingContext из файла fname в позиции (x,y) размера (w,h) (совместно с FastDraw,DrawOnVisual)
procedure DrawImageDC(dc: DrawingContext; x,y,w,h: real; fname: string);
/// Ширина текста (совместно с FastDraw)
function TextWidthP(text: string): real;
@ -1158,7 +1163,7 @@ var dpic := new Dictionary<string, BitmapSource>;
function GetBitmapImage(fname: string): BitmapSource;
begin
if not dpic.ContainsKey(fname) then
if fname not in dpic then
begin
var b := new BitmapImage();
var s := System.IO.File.OpenRead(fname);
@ -1166,7 +1171,7 @@ begin
b.CacheOption := BitmapCacheOption.OnLoad;
b.StreamSource := s;
b.EndInit();
s.Close();
s.Close();
//dpic[fname] := new BitmapImage(new System.Uri(fname,System.UriKind.Relative));
dpic[fname] := b;
end;
@ -1271,41 +1276,41 @@ end;
procedure DrawImagePB(x,y: real; b: Bitmap);
begin
var dc := GetDC();
var img := b.bsource;
var dc := GetDC();
dc.DrawImage(img, Rect(x, y, img.PixelWidth, img.PixelHeight));
ReleaseDC(dc);
end;
procedure DrawImageP(x,y: real; fname: string);
begin
var dc := GetDC();
var img := GetBitmapImage(fname);
var dc := GetDC();
dc.DrawImage(img, Rect(x, y, img.PixelWidth, img.PixelHeight));
ReleaseDC(dc);
end;
procedure DrawImageWHPB(x,y,w,h: real; b: Bitmap);
begin
var dc := GetDC();
var img := b.bsource;
var dc := GetDC();
dc.DrawImage(img, Rect(x, y, w, h));
ReleaseDC(dc);
end;
procedure DrawImageWHP(x,y,w,h: real; fname: string);
begin
var dc := GetDC();
var img := GetBitmapImage(fname);
var dc := GetDC();
dc.DrawImage(img, Rect(x, y, w, h));
ReleaseDC(dc);
end;
procedure DrawImageUnscaledP(x,y: real; fname: string);
begin
var dc := GetDC();
var (scalex,scaley) := ScaleToDevice;
var img := GetBitmapImage(fname);
var dc := GetDC();
dc.DrawImage(img, Rect(x, y, img.PixelWidth/scalex, img.PixelHeight/scaley));
ReleaseDC(dc);
end;
@ -1345,7 +1350,7 @@ begin
var context: StreamGeometryContext := geo.Open();
context.BeginFigure(Pnt(points[0].X,points[0].Y), true, draw_polygon);
context.PolyLineTo(points.Select(p->Pnt(p.x,p.y)).Skip(1).ToArray(), true, false);
context.Close;
context.Close;
dc.DrawGeometry(b, p, geo);
end;
@ -1390,7 +1395,7 @@ begin
if angle1>angle2 then Swap(angle1,angle2);
if angle2-angle1 >= 360 then
(angle1,angle2) := (0,360-0.0001);
var dc := GetDC();
var geo := new PathGeometry();
var f := new PathFigure();
geo.Figures.Add(f);
@ -1408,6 +1413,7 @@ begin
f.Segments.Add(new LineSegment(p1,true));
end;
var dc := GetDC();
dc.DrawGeometry(b,p,geo);
ReleaseDC(dc);
end;
@ -1433,7 +1439,7 @@ begin
var dc := GetDC();
dc.DrawLine(p, p1, p2);
dc.DrawPolygon(Brushes.Black,p,Arr(p2,p3,p4));
dc.DrawPolygon(Brushes.Black,p,[p2,p3,p4]);
ReleaseDC(dc);
end;
@ -1923,6 +1929,18 @@ begin
DrawGraphDC(dc, f, a, b, mi, ma, x, y, w, h, title);
end;
procedure DrawImageDC(dc: DrawingContext; x,y: real; fname: string);
begin
var img := GetBitmapImage(fname);
dc.DrawImage(img, Rect(x, y, img.PixelWidth, img.PixelHeight));
end;
procedure DrawImageDC(dc: DrawingContext; x,y,w,h: real; fname: string);
begin
var img := GetBitmapImage(fname);
dc.DrawImage(img, Rect(x, y, w, h));
end;
procedure DrawGraph(f: real -> real; a, b: real; x, y, w, h: real; title: string)
:= FastDraw(dc->DrawGraphDC(dc,f,a,b,x,y,w,h,title));

2
TestSuiteAdditionalLanguages/SPythonTests/CompilationSamples/math.pys
View file

@ -1,6 +1,6 @@
import PABCSystem
pi = 3.14
pi: float = 3.14
def sqrt(x: float) -> float:
return PABCSystem.sqrt(x)

2
Utils/NodesGeneratorNew/NodeGenerator.cs
View file

@ -4055,7 +4055,7 @@ namespace NodeGenerator
generate_abstract_visitor_code();
generate_hierarchy_visitor_code();
// generate_hierarchy_visitor_code();
sw.Flush();
sw.Close();

2
Utils/NodesGeneratorNew/NodesGenerator.csproj
View file

@ -27,7 +27,7 @@
<UpgradeBackupLocation>
</UpgradeBackupLocation>
<OldToolsVersion>3.5</OldToolsVersion>
<TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
<TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
<TargetFrameworkProfile />
<IsWebBootstrapper>false</IsWebBootstrapper>
<PublishUrl>опубликовать\</PublishUrl>

BIN
Utils/NodesGeneratorNew/NodesGenerator_old/bin/Debug/NodesGenerator.exe
View file

Binary file not shown.

BIN
Utils/NodesGeneratorNew/NodesGenerator_old/bin/Debug/tree.nin
View file

Binary file not shown.

2
Utils/NodesGeneratorNew/Properties/Resources.Designer.cs generated
View file

@ -19,7 +19,7 @@ namespace NodesGenerator.Properties {
// с помощью такого средства, как ResGen или Visual Studio.
// Чтобы добавить или удалить член, измените файл .ResX и снова запустите ResGen
// с параметром /str или перестройте свой проект VS.
[global::System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0")]
[global::System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0")]
[global::System.Diagnostics.DebuggerNonUserCodeAttribute()]
[global::System.Runtime.CompilerServices.CompilerGeneratedAttribute()]
internal class Resources {

2
Utils/NodesGeneratorNew/app.config
View file

@ -1,3 +1,3 @@
<?xml version="1.0"?>
<configuration>
<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1"/></startup></configuration>
<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/></startup></configuration>

16
_GenerateAllSetups.bat
View file

@ -34,7 +34,7 @@ ExecHide.exe gacutil.exe /u PABCRtl
ExecHide.exe gacutil.exe /i ..\bin\Lib\PABCRtl.dll
..\bin\pabcnetc RebuildStandartModules.pas /rebuild
..\bin\pabcnetc RebuildStandartModulesSPython.pas
..\bin\pabcnetc RebuildStandartModulesSPython.pas /rebuild
@IF %ERRORLEVEL% NEQ 0 GOTO ERROR
@ -46,13 +46,13 @@ cd ..\TestSuite
..\bin\TestRunner.exe 5
..\bin\TestRunner.exe 6
cd ..\TestSuiteAdditionalLanguages\SPythonTests
..\..\bin\TestRunner.exe 1
..\..\bin\TestRunner.exe 2
..\..\bin\TestRunner.exe 3
..\..\bin\TestRunner.exe 4
..\..\bin\TestRunner.exe 5
..\..\bin\TestRunner.exe 6
rem cd ..\TestSuiteAdditionalLanguages\SPythonTests
rem ..\..\bin\TestRunner.exe 1
rem ..\..\bin\TestRunner.exe 2
rem ..\..\bin\TestRunner.exe 3
rem ..\..\bin\TestRunner.exe 4
rem ..\..\bin\TestRunner.exe 5
rem ..\..\bin\TestRunner.exe 6
cd ..\..\ReleaseGenerators

2
bin/Lib/math.pys
View file

@ -1,6 +1,6 @@
import PABCSystem
pi = 3.14
pi: float = 3.14
def sqrt(x: float) -> float:
return PABCSystem.sqrt(x)