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

a.Low a.High в PABCSystem.pas

Browse source 
Coordinate.Rotate в GraphABC
This commit is contained in:
miks1965 2016-06-24 23:00:16 +03:00
parent 6edf9ae31a
commit 866236bfb2
12 changed files with 143 additions and 37 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 = "1";
public const string Build = "0";
public const string Revision = "1254";
public const string Revision = "1256";
public const string MainVersion = Major + "." + Minor;
public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

2
Configuration/Version.defs
View file

@ -1,4 +1,4 @@
%MINOR%=1
%REVISION%=1254
%REVISION%=1256
%COREVERSION%=0
%MAJOR%=3

BIN
Localization/DefaultLang.resources
View file

Binary file not shown.

68
PascalABCNET.axml
View file

@ -746,28 +746,6 @@
</Node>
</Items>
</Node>
<Node Name="YieldHelpers">
<FileName>\TreeConverter\TreeConversion\syntax_tree_visitor.cs</FileName>
<Text>string Consts__Self = YieldHelpers.YieldConsts.Self;</Text>
<OCtx>
<i Type="Method">private bool CheckUnknownIdentNeedsClassCapture ( SyntaxTree . yield_unknown_ident _unk )</i>
<i Type="ClassOrNamespace">public class syntax_tree_visitor : SyntaxTree . AbstractVisitor</i>
<i Type="ClassOrNamespace">namespace PascalABCCompiler . TreeConverter</i>
<i Type="CS_TreeNode">
</i>
</OCtx>
</Node>
<Node Name="ObjectCopier.Clone">
<FileName>\yield\syntaxvisitors\yieldvisitors\processyieldscapturedvars.cs</FileName>
<Text>function_header nfh = ObjectCopier.Clone(fh);</Text>
<OCtx>
<i Type="Method">type_declarations GenClassesForYield ( procedure_definition pd , IEnumerable &lt; var_def_statement &gt; fields , IDictionary &lt; string , string &gt; localsMap , IDictionary &lt; string , string &gt; formalParamsMap , IDictionary &lt; var_def_statement , var_def_statement &gt; localsCloneMap , yield_locals_type_map_helper localTypeMapHelper )</i>
<i Type="ClassOrNamespace">public class ProcessYieldCapturedVarsVisitor : BaseChangeVisitor</i>
<i Type="ClassOrNamespace">namespace SyntaxVisitors</i>
<i Type="CS_TreeNode">
</i>
</OCtx>
</Node>
<Node Name="visit_program_code(_block.program_code)">
<FileName>\treeconverter\treeconversion\syntax_tree_visitor.cs</FileName>
<Text>visit_program_code(_block.program_code);</Text>
@ -790,16 +768,42 @@
</i>
</OCtx>
</Node>
<Node Name="root.visit(new ProcessYieldCapturedVarsVisitor());">
<FileName>\Yield\YieldConversionSyntax\YieldDesugarSyntaxTreeConverter.cs</FileName>
<Text>root.visit(new ProcessYieldCapturedVarsVisitor());</Text>
<OCtx>
<i Type="Method">public syntax_tree_node Convert ( syntax_tree_node root )</i>
<i Type="ClassOrNamespace">public class YieldDesugarSyntaxTreeConverter : ISyntaxTreeConverter</i>
<i Type="ClassOrNamespace">namespace YieldDesugarSyntaxTreeConverter</i>
<i Type="CS_TreeNode">
</i>
</OCtx>
<Node Name="Yield">
<Items>
<Node Name="root.visit(new ProcessYieldCapturedVarsVisitor());">
<FileName>\Yield\YieldConversionSyntax\YieldDesugarSyntaxTreeConverter.cs</FileName>
<Text>root.visit(new ProcessYieldCapturedVarsVisitor());</Text>
<OCtx>
<i Type="Method">public syntax_tree_node Convert ( syntax_tree_node root )</i>
<i Type="ClassOrNamespace">public class YieldDesugarSyntaxTreeConverter : ISyntaxTreeConverter</i>
<i Type="ClassOrNamespace">namespace YieldDesugarSyntaxTreeConverter</i>
<i Type="CS_TreeNode">
</i>
</OCtx>
</Node>
<Node Name="YieldHelpers">
<FileName>\TreeConverter\TreeConversion\syntax_tree_visitor.cs</FileName>
<Text>string Consts__Self = YieldHelpers.YieldConsts.Self;</Text>
<OCtx>
<i Type="Method">private bool CheckUnknownIdentNeedsClassCapture ( SyntaxTree . yield_unknown_ident _unk , out bool isStaticIdent )</i>
<i Type="ClassOrNamespace">public class syntax_tree_visitor : SyntaxTree . AbstractVisitor</i>
<i Type="ClassOrNamespace">namespace PascalABCCompiler . TreeConverter</i>
<i Type="CS_TreeNode">
</i>
</OCtx>
</Node>
<Node Name="ObjectCopier.Clone">
<FileName>\yield\syntaxvisitors\yieldvisitors\processyieldscapturedvars.cs</FileName>
<Text>function_header nfh = ObjectCopier.Clone(fh);</Text>
<OCtx>
<i Type="Method">type_declarations GenClassesForYield ( procedure_definition pd , IEnumerable &lt; var_def_statement &gt; fields , IDictionary &lt; string , string &gt; localsMap , IDictionary &lt; string , string &gt; formalParamsMap , IDictionary &lt; var_def_statement , var_def_statement &gt; localsCloneMap , yield_locals_type_map_helper localTypeMapHelper )</i>
<i Type="ClassOrNamespace">public class ProcessYieldCapturedVarsVisitor : BaseChangeVisitor</i>
<i Type="ClassOrNamespace">namespace SyntaxVisitors</i>
<i Type="CS_TreeNode">
</i>
</OCtx>
</Node>
</Items>
</Node>
</Items>
</Node>

2
ReleaseGenerators/PascalABCNET_version.nsh
View file

@ -1 +1 @@
!define VERSION '3.1.0.1254'
!define VERSION '3.1.0.1256'

BIN
SyntaxTree/tree/tree.nin
View file

Binary file not shown.

45
TestSuite/CompilationSamples/GraphABC.pas
View file

@ -764,6 +764,15 @@ type
procedure SetMathematic;
/// Устанавливает левую систему координат (ось OY направлена вниз, ось OX - вправо)
procedure SetStandard;
procedure ScaleOn(scale: real);
procedure Transform(x,y: real);
procedure Rotate(angle: real);
procedure ClearMatrix;
/// X-координата начала координат относительно левого верхнего угла окна
property OriginX: integer read GetOriginX write SetOriginX;
/// Y-координата начала координат относительно левого верхнего угла окна
@ -1310,6 +1319,42 @@ begin
SetTransform(OriginX,OriginY,Angle,ScaleX,ScaleY);
end;
procedure GraphABCCoordinate.ScaleOn(scale: real);
begin
lock f do
begin
gr.ScaleTransform(scale,scale);
gbmp.ScaleTransform(scale,scale);
end;
end;
procedure GraphABCCoordinate.Transform(x,y: real);
begin
lock f do
begin
gr.TranslateTransform(x,y);
gbmp.TranslateTransform(x,y)
end;
end;
procedure GraphABCCoordinate.Rotate(angle: real);
begin
lock f do
begin
gr.RotateTransform(angle);
gbmp.RotateTransform(angle);
end;
end;
procedure GraphABCCoordinate.ClearMatrix;
begin
lock f do
begin
gr.Transform := new System.Drawing.Drawing2D.Matrix();
gbmp.Transform := new System.Drawing.Drawing2D.Matrix();
end;
end;
procedure GraphABCCoordinate.SetOriginX(x: integer);
begin
SetOrigin(x,OriginY);

6
TestSuite/CompilationSamples/PABCSystem.pas
View file

@ -8555,6 +8555,12 @@ begin
System.Array.Sort(self,cmp);
end;
/// Возвращает индекс последнего элемента массива
function High(self: System.Array); extensionmethod := High(Self);
/// Возвращает индекс первого элемента массива
function Low(self: System.Array); extensionmethod := Low(Self);
///--
function CreateSliceFromArrayInternal<T>(Self: array of T; from,step,count: integer): array of T;
begin

45
bin/Lib/GraphABC.pas
View file

@ -764,6 +764,15 @@ type
procedure SetMathematic;
/// Устанавливает левую систему координат (ось OY направлена вниз, ось OX - вправо)
procedure SetStandard;
procedure ScaleOn(scale: real);
procedure Transform(x,y: real);
procedure Rotate(angle: real);
procedure ClearMatrix;
/// X-координата начала координат относительно левого верхнего угла окна
property OriginX: integer read GetOriginX write SetOriginX;
/// Y-координата начала координат относительно левого верхнего угла окна
@ -1310,6 +1319,42 @@ begin
SetTransform(OriginX,OriginY,Angle,ScaleX,ScaleY);
end;
procedure GraphABCCoordinate.ScaleOn(scale: real);
begin
lock f do
begin
gr.ScaleTransform(scale,scale);
gbmp.ScaleTransform(scale,scale);
end;
end;
procedure GraphABCCoordinate.Transform(x,y: real);
begin
lock f do
begin
gr.TranslateTransform(x,y);
gbmp.TranslateTransform(x,y)
end;
end;
procedure GraphABCCoordinate.Rotate(angle: real);
begin
lock f do
begin
gr.RotateTransform(angle);
gbmp.RotateTransform(angle);
end;
end;
procedure GraphABCCoordinate.ClearMatrix;
begin
lock f do
begin
gr.Transform := new System.Drawing.Drawing2D.Matrix();
gbmp.Transform := new System.Drawing.Drawing2D.Matrix();
end;
end;
procedure GraphABCCoordinate.SetOriginX(x: integer);
begin
SetOrigin(x,OriginY);

BIN
bin/Lib/PABCRtl.dll
View file

Binary file not shown.

6
bin/Lib/PABCSystem.pas
View file

@ -8555,6 +8555,12 @@ begin
System.Array.Sort(self,cmp);
end;
/// Возвращает индекс последнего элемента массива
function High(self: System.Array); extensionmethod := High(Self);
/// Возвращает индекс первого элемента массива
function Low(self: System.Array); extensionmethod := Low(Self);
///--
function CreateSliceFromArrayInternal<T>(Self: array of T; from,step,count: integer): array of T;
begin

4
bin/Lng/Rus/InternalErrorReport.dat
View file

@ -11,13 +11,13 @@ EMAIL_ADRESS=Адреса электронной почты:
OK_BUTTON=ОК
ERROR_SEND_INFO=8LINES
Ваша информация об ошибке, произошедшей в компиляторе, поможет нам в процессе разработки.
Если Вы считаете, что в копиляторе произошла ошибка, то Вы можете оставить сообщение на форуме, либо послать сообщение по электронной почте на любой из адресов, расположенных ниже.
Если Вы считаете, что в компиляторе произошла ошибка, то Вы можете оставить сообщение на форуме, либо послать сообщение по электронной почте на любой из адресов, расположенных ниже.
Желательно чтобы ваше описание ошибки содержало:
1. Сообщение о ошибке, либо описание неправильных действий компилятора.
2. Описание последовательности действий, которые привели к ошибке.
3. Исходные коды программы, при компиляции которой произошла ошибка.
4. Информация о версии компилятора, платформе, и т.д., которая находится ниже. Скопируйте текст, находящийся ниже, и вставьте в начало сообщения.
4. Информацию о версии компилятора, платформе и т.д., которая находится ниже. Скопируйте текст, находящийся ниже, и вставьте в начало сообщения.
%PREFIX%=VPP_IER_INTERNALERRORREPORT_
COMPILER_INTERNAL_ERROR=Внутренняя ошибка компилятора