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

Незначительные мелочи

Browse source
This commit is contained in:
miks1965 2018-08-09 16:53:46 +03:00
parent ede5f339f9
commit 05308759e3
13 changed files with 69 additions and 62 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 = "4";
public const string Build = "0";
public const string Revision = "1731";
public const string Revision = "1732";
public const string MainVersion = Major + "." + Minor;
public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

4
Configuration/Version.defs
View file

@ -1,4 +1,4 @@
%COREVERSION%=0
%REVISION%=1731
%MINOR%=4
%REVISION%=1732
%COREVERSION%=0
%MAJOR%=3

6
Parsers/PascalABCParserNewSaushkin/ABCPascal.cs
View file

@ -1,9 +1,9 @@
//
// This CSharp output file generated by Gardens Point LEX
// Version: 1.1.3.301
// Machine: IVAN-PC
// DateTime: 06.08.2018 09:43:06
// UserName: Ivan
// Machine: DESKTOP-A6LT9RI
// DateTime: 09.08.2018 15:12:55
// UserName: ?????????
// GPLEX input file <ABCPascal.lex>
// GPLEX frame file <embedded resource>
//

45
Parsers/PascalABCParserNewSaushkin/ABCPascal.y
View file

@ -1515,14 +1515,15 @@ object_type
{
if (prop.parameter_list != null)
parsertools.AddErrorFromResource("EXTENDED_INDEXED_PROPERTIES",ra.source_context);
(ra.pr.proc_header as function_header).return_type = td;
cm.Add(ra.pr);
var rapr = ra.pr as procedure_definition;
(rapr.proc_header as function_header).return_type = td;
cm.Add(rapr);
if (prop.attr == definition_attribute.Static)
{
ra.pr.proc_header.class_keyword = true;
rapr.proc_header.class_keyword = true;
procedure_attribute pa = new procedure_attribute(proc_attribute.attr_static);
pa.source_context = ra.pr.proc_header.source_context;
ra.pr.proc_header.proc_attributes = new procedure_attributes_list(pa);
pa.source_context = rapr.proc_header.source_context;
rapr.proc_header.proc_attributes = new procedure_attributes_list(pa);
}
}
var wa = prop.accessors?.write_accessor;
@ -1533,14 +1534,15 @@ object_type
{
if (prop.parameter_list != null)
parsertools.AddErrorFromResource("EXTENDED_INDEXED_PROPERTIES",ra.source_context);
wa.pr.proc_header.parameters.params_list[0].vars_type = td;
cm.Add(wa.pr);
var wapr = wa.pr as procedure_definition;
wapr.proc_header.parameters.params_list[0].vars_type = td;
cm.Add(wapr);
if (prop.attr == definition_attribute.Static)
{
wa.pr.proc_header.class_keyword = true;
wapr.proc_header.class_keyword = true;
procedure_attribute pa = new procedure_attribute(proc_attribute.attr_static);
pa.source_context = wa.pr.proc_header.source_context;
wa.pr.proc_header.proc_attributes = new procedure_attributes_list(pa);
pa.source_context = wapr.proc_header.source_context;
wapr.proc_header.proc_attributes = new procedure_attributes_list(pa);
}
}
}
@ -1567,15 +1569,15 @@ record_type
{
if (prop.parameter_list != null)
parsertools.AddErrorFromResource("EXTENDED_INDEXED_PROPERTIES",ra.source_context);
(ra.pr.proc_header as function_header).return_type = td;
cm.Add(ra.pr);
var rapr = ra.pr as procedure_definition;
(rapr.proc_header as function_header).return_type = td;
cm.Add(rapr);
if (prop.attr == definition_attribute.Static)
{
ra.pr.proc_header.class_keyword = true;
rapr.proc_header.class_keyword = true;
procedure_attribute pa = new procedure_attribute(proc_attribute.attr_static);
pa.source_context = ra.pr.proc_header.source_context;
ra.pr.proc_header.proc_attributes = new procedure_attributes_list(pa);
pa.source_context = rapr.proc_header.source_context;
rapr.proc_header.proc_attributes = new procedure_attributes_list(pa);
}
}
var wa = prop.accessors?.write_accessor;
@ -1584,14 +1586,15 @@ record_type
{
if (prop.parameter_list != null)
parsertools.AddErrorFromResource("EXTENDED_INDEXED_PROPERTIES",ra.source_context);
wa.pr.proc_header.parameters.params_list[0].vars_type = td;
cm.Add(wa.pr);
var wapr = wa.pr as procedure_definition;
wapr.proc_header.parameters.params_list[0].vars_type = td;
cm.Add(wapr);
if (prop.attr == definition_attribute.Static)
{
wa.pr.proc_header.class_keyword = true;
wapr.proc_header.class_keyword = true;
procedure_attribute pa = new procedure_attribute(proc_attribute.attr_static);
pa.source_context = wa.pr.proc_header.source_context;
wa.pr.proc_header.proc_attributes = new procedure_attributes_list(pa);
pa.source_context = wapr.proc_header.source_context;
wapr.proc_header.proc_attributes = new procedure_attributes_list(pa);
}
}
}

51
Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs
View file

@ -1,9 +1,9 @@
// (see accompanying GPPGcopyright.rtf)
// GPPG version 1.3.6
// Machine: IVAN-PC
// DateTime: 06.08.2018 09:43:08
// UserName: Ivan
// Machine: DESKTOP-A6LT9RI
// DateTime: 09.08.2018 15:12:56
// UserName: ?????????
// Input file <ABCPascal.y>
// options: no-lines gplex
@ -3738,14 +3738,15 @@ public partial class GPPGParser: ShiftReduceParser<PascalABCSavParser.Union, Lex
{
if (prop.parameter_list != null)
parsertools.AddErrorFromResource("EXTENDED_INDEXED_PROPERTIES",ra.source_context);
(ra.pr.proc_header as function_header).return_type = td;
cm.Add(ra.pr);
var rapr = ra.pr as procedure_definition;
(rapr.proc_header as function_header).return_type = td;
cm.Add(rapr);
if (prop.attr == definition_attribute.Static)
{
ra.pr.proc_header.class_keyword = true;
rapr.proc_header.class_keyword = true;
procedure_attribute pa = new procedure_attribute(proc_attribute.attr_static);
pa.source_context = ra.pr.proc_header.source_context;
ra.pr.proc_header.proc_attributes = new procedure_attributes_list(pa);
pa.source_context = rapr.proc_header.source_context;
rapr.proc_header.proc_attributes = new procedure_attributes_list(pa);
}
}
var wa = prop.accessors?.write_accessor;
@ -3756,14 +3757,15 @@ public partial class GPPGParser: ShiftReduceParser<PascalABCSavParser.Union, Lex
{
if (prop.parameter_list != null)
parsertools.AddErrorFromResource("EXTENDED_INDEXED_PROPERTIES",ra.source_context);
wa.pr.proc_header.parameters.params_list[0].vars_type = td;
cm.Add(wa.pr);
var wapr = wa.pr as procedure_definition;
wapr.proc_header.parameters.params_list[0].vars_type = td;
cm.Add(wapr);
if (prop.attr == definition_attribute.Static)
{
wa.pr.proc_header.class_keyword = true;
wapr.proc_header.class_keyword = true;
procedure_attribute pa = new procedure_attribute(proc_attribute.attr_static);
pa.source_context = wa.pr.proc_header.source_context;
wa.pr.proc_header.proc_attributes = new procedure_attributes_list(pa);
pa.source_context = wapr.proc_header.source_context;
wapr.proc_header.proc_attributes = new procedure_attributes_list(pa);
}
}
}
@ -3789,15 +3791,15 @@ public partial class GPPGParser: ShiftReduceParser<PascalABCSavParser.Union, Lex
{
if (prop.parameter_list != null)
parsertools.AddErrorFromResource("EXTENDED_INDEXED_PROPERTIES",ra.source_context);
(ra.pr.proc_header as function_header).return_type = td;
cm.Add(ra.pr);
var rapr = ra.pr as procedure_definition;
(rapr.proc_header as function_header).return_type = td;
cm.Add(rapr);
if (prop.attr == definition_attribute.Static)
{
ra.pr.proc_header.class_keyword = true;
rapr.proc_header.class_keyword = true;
procedure_attribute pa = new procedure_attribute(proc_attribute.attr_static);
pa.source_context = ra.pr.proc_header.source_context;
ra.pr.proc_header.proc_attributes = new procedure_attributes_list(pa);
pa.source_context = rapr.proc_header.source_context;
rapr.proc_header.proc_attributes = new procedure_attributes_list(pa);
}
}
var wa = prop.accessors?.write_accessor;
@ -3806,14 +3808,15 @@ public partial class GPPGParser: ShiftReduceParser<PascalABCSavParser.Union, Lex
{
if (prop.parameter_list != null)
parsertools.AddErrorFromResource("EXTENDED_INDEXED_PROPERTIES",ra.source_context);
wa.pr.proc_header.parameters.params_list[0].vars_type = td;
cm.Add(wa.pr);
var wapr = wa.pr as procedure_definition;
wapr.proc_header.parameters.params_list[0].vars_type = td;
cm.Add(wapr);
if (prop.attr == definition_attribute.Static)
{
wa.pr.proc_header.class_keyword = true;
wapr.proc_header.class_keyword = true;
procedure_attribute pa = new procedure_attribute(proc_attribute.attr_static);
pa.source_context = wa.pr.proc_header.source_context;
wa.pr.proc_header.proc_attributes = new procedure_attributes_list(pa);
pa.source_context = wapr.proc_header.source_context;
wapr.proc_header.proc_attributes = new procedure_attributes_list(pa);
}
}
}

1
Parsers/PascalABCParserNewSaushkin/PABC.ymc
View file

@ -205,5 +205,6 @@ script=

2
ReleaseGenerators/Files/Databases/Страны.csv
View file

@ -149,7 +149,7 @@
Сирия;Дамаск;18563595;Азия
Словакия;Братислава;5421349;Европа
Словения;Любляна;2086300;Европа
ﾑ鮱蒻昤澵鐱 ﾘ<><EFBE98> ﾀ<><EFBE80><EFBFBD>;ﾂ璧竟胄<E7AB9F>;324085000;ﾀ<><EFBE80><EFBFBD>
ﾑ鮱蒻淲澵鐱 ﾘ<><EFBE98> ﾀ<><EFBE80><EFBFBD>;ﾂ璧竟胄<E7AB9F>;324085000;ﾀ<><EFBE80><EFBFBD>
Соломоновы Острова;Хониара;594934;Острова
Сомали;Могадишо;11079013;Африка
Судан;Хартум;41175541;Африка

1 Абхазия Сухуми 240705 Азия
149 Сирия Дамаск 18563595 Азия
150 Словакия Братислава 5421349 Европа
151 Словения Любляна 2086300 Европа
152 Соединённые Штаты Америки Соединенные Штаты Америки Вашингтон 324085000 Америка
153 Соломоновы Острова Хониара 594934 Острова
154 Сомали Могадишо 11079013 Африка
155 Судан Хартум 41175541 Африка

8
ReleaseGenerators/Files/Databases/Ученики.csv
View file

@ -29,14 +29,14 @@
Пиротехничкина;5;Жен;Нет;151
Колосовский;11;Муж;Нет;178
Хлебосолова;5;Жен;Да;152
Гвоздодёрова;10;Жен;Нет;173
Гвоздодерова;10;Жен;Нет;173
Сомов;5;Муж;Нет;149
Баранкин;7;Муж;Да;171
Зажигалкина;5;Жен;Нет;155
Гречко;10;Муж;Да;178
Синичкин;9;Муж;Нет;169
Соловьёва;6;Жен;Нет;159
Чеботарёв;8;Муж;Нет;170
Соловьева;6;Жен;Нет;159
Чеботарев;8;Муж;Нет;170
Ресницина;11;Жен;Да;164
Козлов;10;Муж;Да;188
Босова;6;Жен;Да;156
@ -50,4 +50,4 @@
Бульдозерова;10;Жен;Нет;172
Иванов;9;Муж;Да;165
Умнов;6;Муж;Да;160
Пономарёва;8;Жен;Нет;170
Пономарева;8;Жен;Нет;170

1 Иванов 7 Муж Да 160
29 Пиротехничкина 5 Жен Нет 151
30 Колосовский 11 Муж Нет 178
31 Хлебосолова 5 Жен Да 152
32 Гвоздодёрова Гвоздодерова 10 Жен Нет 173
33 Сомов 5 Муж Нет 149
34 Баранкин 7 Муж Да 171
35 Зажигалкина 5 Жен Нет 155
36 Гречко 10 Муж Да 178
37 Синичкин 9 Муж Нет 169
38 Соловьёва Соловьева 6 Жен Нет 159
39 Чеботарёв Чеботарев 8 Муж Нет 170
40 Ресницина 11 Жен Да 164
41 Козлов 10 Муж Да 188
42 Босова 6 Жен Да 156
50 Бульдозерова 10 Жен Нет 172
51 Иванов 9 Муж Да 165
52 Умнов 6 Муж Да 160
53 Пономарёва Пономарева 8 Жен Нет 170

2
ReleaseGenerators/PascalABCNET_version.nsh
View file

@ -1 +1 @@
!define VERSION '3.4.0.1731'
!define VERSION '3.4.0.1732'

4
SyntaxTree/tree/Tree.cs
View file

@ -15665,7 +15665,7 @@ namespace PascalABCCompiler.SyntaxTree
///<summary>
///procedure_definition pr != null если метод сгенерирован по выражению
///procedure_definition pr != null если метод сгенерирован по выражению. //pr сделано object чтобы не обходилось лишний раз
///</summary>
[Serializable]
public partial class write_accessor_name : syntax_tree_node
@ -15880,7 +15880,7 @@ namespace PascalABCCompiler.SyntaxTree
///<summary>
///procedure_definition pr != null если метод сгенерирован по выражению
///procedure_definition pr != null если метод сгенерирован по выражению. //pr сделано object чтобы не обходилось лишний раз
///</summary>
[Serializable]
public partial class read_accessor_name : syntax_tree_node

4
SyntaxTree/tree/tree.xml
View file

@ -4123,7 +4123,7 @@
<HelpData Key="raise_stmt.address" Value="" />
<HelpData Key="raise_stmt.expr" Value="" />
<HelpData Key="raise_stmt.object" Value="" />
<HelpData Key="read_accessor_name" Value="procedure_definition pr != null если метод сгенерирован по выражению" />
<HelpData Key="read_accessor_name" Value="procedure_definition pr != null если метод сгенерирован по выражению. //pr сделано object чтобы не обходилось лишний раз" />
<HelpData Key="read_accessor_name.accessor_name" Value="" />
<HelpData Key="read_accessor_name.expr_for_formatting" Value="" />
<HelpData Key="read_accessor_name.expression_for_formatting" Value="" />
@ -4612,7 +4612,7 @@
<HelpData Key="with_statement." Value="" />
<HelpData Key="with_statement.do_with" Value="Список объектов, с которыми производить действия." />
<HelpData Key="with_statement.what_do" Value="Что делать." />
<HelpData Key="write_accessor_name" Value="procedure_definition pr != null если метод сгенерирован по выражению" />
<HelpData Key="write_accessor_name" Value="procedure_definition pr != null если метод сгенерирован по выражению. //pr сделано object чтобы не обходилось лишний раз" />
<HelpData Key="write_accessor_name.accessor_name" Value="" />
<HelpData Key="write_accessor_name.pr" Value="" />
<HelpData Key="write_accessor_name.statment_for_formatting" Value="" />

2
TreeConverter/TreeConversion/CompilationErrors.cs
View file

@ -222,7 +222,7 @@ namespace PascalABCCompiler.TreeConverter
{
//return ("Possible two type convertions\n"+_en.location.ToString());
return (string.Format(StringResources.Get("TWO_TYPE_CONVERTIONS_POSSIBLE_FIRST_TYPE_{0}_SECOND_TYE_{1}"),
_first.to.PrintableName, _second.to.PrintableName));
_first.to?.PrintableName??"null", _second.to?.PrintableName??"null"));
}
public override ILocation Location

0
bin/WPFObjects.pas → bin/Lib/WPFObjects.pas
View file