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

Merge branch 'master' of https://github.com/pascalabcnet/pascalabcnet

Browse source 
Conflicts:
	bin/Lib/PABCRtl.dll
This commit is contained in:
miks1965 2015-06-27 20:55:07 +03:00
parent 1d1d323be3 59169b5168
commit cafd26fe61
64 changed files with 472 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
Localization/DefaultLang.resources
View file

Binary file not shown.

4
Parsers/PascalABCParserNewSaushkin/PABC.tags
View file

@ -340,10 +340,6 @@
<name value="attribute_declarations" />
<name value="simple_type_decl" />
</tag>
<tag value="w1">
<name value="relop_expr" />
<name value="simple_expr" />
</tag>
<tag value="Лямбда-выражения">
<name value="func_decl_lambda" />
<name value="expl_func_decl_lambda" />

2
Parsers/PascalABCParserNewSaushkin/PABC.ymc
View file

@ -71,6 +71,8 @@ script=

245
PascalABCNET.xml Normal file
View file

@ -0,0 +1,245 @@
<?xml version="1.0"?>
<AspectFile xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<TreeRoot>
<Items>
<PointOfInterest>
<FileName>\ParserTools\ParserTools\DefaultLanguageInformation.cs</FileName>
<Text>protected virtual string GetTemplateString(ITypeScope scope)</Text>
<Name>GetTemplateString</Name>
<Items />
<Note />
<Context>
<ArrayOfString>
<string>[</string>
<string>,</string>
<string>]</string>
<string>(</string>
<string>(</string>
<string>(</string>
<string>)</string>
<string>`</string>
<string>&lt;</string>
<string>,</string>
<string>&gt;</string>
<string>\</string>
<string>n</string>
<string>\</string>
<string>t</string>
<string>\</string>
<string>r</string>
<string>`</string>
<string>&lt;</string>
<string>&gt;</string>
<string>\</string>
<string>n</string>
<string>\</string>
<string>t</string>
<string>\</string>
<string>r</string>
<string>\</string>
<string>n</string>
<string>\</string>
<string>t</string>
<string>\</string>
<string>r</string>
<string>\</string>
<string>n</string>
<string>\</string>
<string>t</string>
<string>\</string>
<string>r</string>
<string>\</string>
<string>n</string>
<string>\</string>
<string>t</string>
<string>\</string>
<string>r</string>
<string>\</string>
<string>n</string>
<string>\</string>
<string>t</string>
<string>\</string>
<string>r</string>
<string>\</string>
<string>n</string>
<string>`</string>
<string>&lt;</string>
<string>&gt;</string>
<string>&lt;</string>
<string>T</string>
<string>,</string>
<string>&gt;</string>
<string>&lt;</string>
<string>,</string>
<string>&gt;</string>
<string>&lt;</string>
<string>,</string>
<string>&gt;</string>
<string>&lt;</string>
<string>&lt;</string>
<string>,</string>
<string>&gt;</string>
<string>&lt;</string>
<string>&lt;</string>
<string>,</string>
<string>&gt;</string>
<string>&lt;</string>
<string>&lt;</string>
<string>,</string>
<string>&gt;</string>
<string>[</string>
<string>,</string>
<string>]</string>
<string>$</string>
<string>$</string>
<string>(</string>
<string>,</string>
<string>)</string>
<string>$</string>
<string>[</string>
<string>,</string>
<string>]</string>
</ArrayOfString>
<ArrayOfString />
</Context>
<ParserClassName>Field</ParserClassName>
</PointOfInterest>
<PointOfInterest>
<FileName>\ParserTools\ParserTools\DefaultLanguageInformation.cs</FileName>
<Text>protected virtual string GetSimpleDescriptionForCompiledType(ICompiledTypeScope scope)</Text>
<Name>GetSimpleDescriptionForCompiledType</Name>
<Items />
<Note />
<Context>
<ArrayOfString>
<string>[</string>
<string>,</string>
<string>]</string>
<string>(</string>
<string>(</string>
<string>(</string>
<string>)</string>
<string>`</string>
<string>&lt;</string>
<string>,</string>
<string>&gt;</string>
<string>\</string>
<string>n</string>
<string>\</string>
<string>t</string>
<string>\</string>
<string>r</string>
<string>`</string>
<string>&lt;</string>
<string>&gt;</string>
<string>\</string>
<string>n</string>
<string>\</string>
<string>t</string>
<string>\</string>
<string>r</string>
<string>\</string>
<string>n</string>
<string>\</string>
<string>t</string>
<string>\</string>
<string>r</string>
<string>\</string>
<string>n</string>
<string>\</string>
<string>t</string>
<string>\</string>
<string>r</string>
<string>\</string>
<string>n</string>
<string>\</string>
<string>t</string>
<string>\</string>
<string>r</string>
<string>\</string>
<string>n</string>
<string>\</string>
<string>t</string>
<string>\</string>
<string>r</string>
<string>\</string>
<string>n</string>
<string>`</string>
<string>&lt;</string>
<string>&gt;</string>
<string>&lt;</string>
<string>T</string>
<string>,</string>
<string>&gt;</string>
<string>&lt;</string>
<string>,</string>
<string>&gt;</string>
<string>&lt;</string>
<string>,</string>
<string>&gt;</string>
<string>&lt;</string>
<string>&lt;</string>
<string>,</string>
<string>&gt;</string>
<string>&lt;</string>
<string>&lt;</string>
<string>,</string>
<string>&gt;</string>
<string>&lt;</string>
<string>&lt;</string>
<string>,</string>
<string>&gt;</string>
<string>[</string>
<string>,</string>
<string>]</string>
<string>$</string>
<string>$</string>
<string>(</string>
<string>,</string>
<string>)</string>
<string>$</string>
<string>[</string>
<string>,</string>
<string>]</string>
</ArrayOfString>
<ArrayOfString />
</Context>
<ParserClassName>Field</ParserClassName>
</PointOfInterest>
<PointOfInterest>
<FileName>\ParserTools\ParserTools\DefaultLanguageInformation.cs</FileName>
<Text>return GetFullTypeName(t);</Text>
<Name>GetFullTypeName</Name>
<Items />
<Note />
<Context>
<ArrayOfString>
<string>&lt;</string>
<string>&lt;</string>
<string>,</string>
<string>&gt;</string>
<string>&lt;</string>
<string>,</string>
<string>&gt;</string>
<string>(</string>
<string>)</string>
</ArrayOfString>
<ArrayOfString />
</Context>
<ParserClassName>Field</ParserClassName>
</PointOfInterest>
<PointOfInterest>
<FileName>\ParserTools\ParserTools\DefaultLanguageInformation.cs</FileName>
<Text>protected virtual string GetDescriptionForProcedure(IProcScope scope)</Text>
<Name>GetDescriptionForProcedure</Name>
<Items />
<Note />
<Context>
<ArrayOfString />
</Context>
<ParserClassName>CS_TreeNode</ParserClassName>
</PointOfInterest>
</Items>
<Context />
</TreeRoot>
</AspectFile>

2
ReleaseGenerators/PascalABCNET_head.nsh
View file

@ -70,7 +70,7 @@ Var PABCWorkNETPath
;--------------------------------
;Pages
!insertmacro MUI_PAGE_LICENSE $(MUILicense)
;!insertmacro MUI_PAGE_LICENSE $(MUILicense)
!insertmacro MUI_PAGE_COMPONENTS
!insertmacro MUI_PAGE_DIRECTORY
Page custom fnc_PABCWorkNETDriveChoose_Show

73
SyntaxTree/tree/Tree.cs
View file

@ -1634,6 +1634,11 @@ namespace PascalABCCompiler.SyntaxTree
source_context = sc;
}
public override string ToString()
{
return base.ToString()+"^";
}
///<summary>
///Свойство для получения количества всех подузлов. Подузлом также считается каждый элемент поля типа List
///</summary>
@ -1933,15 +1938,6 @@ namespace PascalABCCompiler.SyntaxTree
source_context = sc;
return this;
}
public override string ToString()
{
var sb = new System.Text.StringBuilder();
sb.Append("var ");
for (int i=0; i<var_definitions.Count; i++)
sb.Append(var_definitions[i].ToString()+"; ");
return sb.ToString();
}
///<summary>
///Свойство для получения количества всех подузлов. Подузлом также считается каждый элемент поля типа List
@ -2297,6 +2293,8 @@ namespace PascalABCCompiler.SyntaxTree
public var_def_statement(ident_list vars,type_definition vars_type): this(vars, vars_type, null, definition_attribute.None, false)
{ }
public var_def_statement(ident_list vars,type_definition vars_type, expression iv): this(vars, vars_type, iv, definition_attribute.None, false)
{ }
public var_def_statement(ident id, type_definition type): this(new ident_list(id),type)
{ }
public var_def_statement(string name, type_definition type): this(new ident(name),type)
@ -2305,14 +2303,17 @@ namespace PascalABCCompiler.SyntaxTree
{
var sb = new System.Text.StringBuilder();
sb.Append(vars.ToString());
sb.Append(": ");
sb.Append(vars_type.ToString());
if (vars_type!=null)
{
sb.Append(": ");
sb.Append(vars_type.ToString());
}
if (inital_value!=null)
{
sb.Append(" := ");
sb.Append(inital_value.ToString());
}
sb.Append("; ");
return sb.ToString();
}
@ -3290,6 +3291,11 @@ namespace PascalABCCompiler.SyntaxTree
}
public override string ToString()
{
return base.ToString()+"["+indexes.ToString()+"]";
}
///<summary>
///Свойство для получения количества всех подузлов. Подузлом также считается каждый элемент поля типа List
///</summary>
@ -4784,6 +4790,11 @@ namespace PascalABCCompiler.SyntaxTree
}
public override string ToString()
{
return attribute_type.ToString();
}
///<summary>
///Свойство для получения количества всех подузлов. Подузлом также считается каждый элемент поля типа List
///</summary>
@ -5499,6 +5510,20 @@ namespace PascalABCCompiler.SyntaxTree
name.meth_name = id;
}
}
public override string ToString()
{
var sb = new System.Text.StringBuilder();
sb.Append("procedure ");
sb.Append(name.ToString());
if (template_args != null)
sb.Append("<"+template_args.ToString()+">");
if (parameters != null)
sb.Append("("+parameters.ToString()+")");
sb.Append(";");
return sb.ToString();
}
///<summary>
///Свойство для получения количества всех подузлов. Подузлом также считается каждый элемент поля типа List
@ -5678,6 +5703,16 @@ namespace PascalABCCompiler.SyntaxTree
{
}
public override string ToString()
{
var sb = new System.Text.StringBuilder();
sb.Append(base.ToString());
sb.Remove(0,9);
sb.Remove(sb.Length-1,1);
sb.Insert(0,"function");
sb.Append(": "+return_type.ToString()+";");
return sb.ToString();
}
///<summary>
///Свойство для получения количества всех подузлов. Подузлом также считается каждый элемент поля типа List
@ -8624,6 +8659,10 @@ namespace PascalABCCompiler.SyntaxTree
{
}
public override string ToString()
{
return meth_name.ToString();
}
///<summary>
///Свойство для получения количества всех подузлов. Подузлом также считается каждый элемент поля типа List
@ -8776,6 +8815,11 @@ namespace PascalABCCompiler.SyntaxTree
}
public override string ToString()
{
return left.ToString()+"."+right.ToString();
}
///<summary>
///Свойство для получения количества всех подузлов. Подузлом также считается каждый элемент поля типа List
///</summary>
@ -22412,6 +22456,11 @@ namespace PascalABCCompiler.SyntaxTree
}
public override string ToString()
{
return "var "+var_def.ToString();
}
///<summary>
///Свойство для получения количества всех подузлов. Подузлом также считается каждый элемент поля типа List
///</summary>

36
SyntaxTree/tree/WalkingVisitor.cs
View file

@ -1120,7 +1120,41 @@ namespace PascalABCCompiler.SyntaxTree
public override void visit(semantic_type_node stn) // SSM
{
}
public override void visit(short_func_definition _short_func_definition)
{
//throw new NotImplementedException();
}
public override void visit(no_type_foreach _no_type_foreach)
{
//throw new NotImplementedException();
}
public override void visit(matching_expression _matching_expression)
{
//throw new NotImplementedException();
}
public override void visit(closure_substituting_node _closure_substituting_node)
{
//throw new NotImplementedException();
}
public override void visit(sequence_type _sequence_type)
{
//throw new NotImplementedException();
}
public override void visit(modern_proc_type _modern_proc_type)
{
//throw new NotImplementedException();
}
public override void visit(yield_node _yield_node)
{
ProcessNode(_yield_node.ex);
}
}
}

BIN
SyntaxTree/tree/tree.nin
View file

Binary file not shown.

2
TestSuite/CompilationSamples/ABCButtons.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit ABCButtons;
interface

2
TestSuite/CompilationSamples/ABCHouse.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit ABCHouse;
interface

3
TestSuite/CompilationSamples/ABCObjects.pas
View file

@ -1,3 +1,6 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
///Модуль реализует векторные графические объекты с возможностью масштабирования, наложения друг на друга,
///создания составных графических объектов и многократного их вложения друг в друга.
///Каждый векторный графический объект перерисовывает себя при перемещении, изменении размеров

3
TestSuite/CompilationSamples/ABCSprites.pas
View file

@ -1,3 +1,6 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
///Модуль ABCSprites реализует спрайты - анимационные объекты с автоматически меняющимися кадрами.
///Спрайт представляется классом SpriteABC и является разновидностью мультикартинки MultiPictureABC.
unit ABCSprites;

3
TestSuite/CompilationSamples/Arrays.pas
View file

@ -1,3 +1,6 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit Arrays;
interface

6
TestSuite/CompilationSamples/CRT.pas
View file

@ -1,11 +1,11 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
/// <summary>
/// Ìîäóëü äëÿ ðàáîòû ñ êîíñîëüþ
/// </summary>
unit CRT;
// Âåðñèÿ 0.3
// Copyright (c) 2006-2007 DarkStar, SSM (parts)
{$apptype console}
{$gendoc true}

2
TestSuite/CompilationSamples/Core.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit Core;
{$reference 'System.Core.dll'}
end.

2
TestSuite/CompilationSamples/DMCollect.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit DMCollect;
{$reference 'System.Drawing.dll'}

2
TestSuite/CompilationSamples/DMTaskMaker.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit DMTaskMaker;
interface

2
TestSuite/CompilationSamples/DrawManField.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit DrawManField;
//#savepcu false

3
TestSuite/CompilationSamples/Drawman.pas
View file

@ -1,3 +1,6 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
///Исполнитель Чертежник предназначен для построения рисунков и чертежей на плоскости с координатами.
///Чертежник имеет перо, которое он может поднимать, опускать и перемещать. При перемещении опущенного пера за ним остается след.
unit Drawman;

2
TestSuite/CompilationSamples/FilesOperations.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit FilesOperations;
interface

2
TestSuite/CompilationSamples/FormsABC.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit FormsABC;
{$apptype windows}

3
TestSuite/CompilationSamples/GraphABC.pas
View file

@ -1,3 +1,6 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
///Модуль предоставляет константы, типы, процедуры, функции и классы для рисования в графическом окне
unit GraphABC;

2
TestSuite/CompilationSamples/GraphABCHelper.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit GraphABCHelper;
//{$apptype windows}

2
TestSuite/CompilationSamples/IniFile.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit IniFile;
interface

2
TestSuite/CompilationSamples/MPI.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit MPI;
interface

3
TestSuite/CompilationSamples/PABCSystem.pas
View file

@ -1,3 +1,6 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
/// Ñòàíäàðòíûé ìîäóëü
/// !! System unit
unit PABCSystem;

3
TestSuite/CompilationSamples/PointerTools.pas
View file

@ -1,3 +1,6 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit PointerTools;
procedure WriteMemoryToScreen(p:pointer; Count,InLineCount:integer);

3
TestSuite/CompilationSamples/Robot.pas
View file

@ -1,3 +1,6 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
///Исполнитель Робот действует на прямоугольном клеточном поле. Между некоторыми клетками, а также по периметру поля находятся стены.
///Основная цель Робота – закрасить указанные клетки и переместиться в конечную клетку.
unit Robot;

2
TestSuite/CompilationSamples/RobotField.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit RobotField;
//#savepcu false

2
TestSuite/CompilationSamples/RobotTaskMaker.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit RobotTaskMaker;
interface

2
TestSuite/CompilationSamples/Sockets.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit Sockets;
{$reference 'System.dll'}

2
TestSuite/CompilationSamples/Utils.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit Utils;
interface

2
TestSuite/CompilationSamples/VCL.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit vcl;
{$apptype windows}

2
TestSuite/CompilationSamples/__RedirectIOMode.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
///--
unit __RedirectIOMode;

2
TestSuite/CompilationSamples/__RunMode.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
///--
unit __RunMode;

4
TreeConverter/TreeConversion/syntax_tree_visitor.cs
View file

@ -7877,7 +7877,7 @@ namespace PascalABCCompiler.TreeConverter
{
if (!context.check_can_goto(lab.comprehensive_code_block, gs.comprehensive_code_block))
{
AddError(gs.location, "BLOCKED_LABEL_{0}_GOTO", lab.name);
//AddError(gs.location, "BLOCKED_LABEL_{0}_GOTO", lab.name);
}
}
convertion_data_and_alghoritms.check_node_parser_error(_labeled_statement.to_statement);
@ -7909,7 +7909,7 @@ namespace PascalABCCompiler.TreeConverter
{
if (!context.check_can_goto(lab.comprehensive_code_block, gs.comprehensive_code_block))
{
AddError(gs.location, "BLOCKED_LABEL_{0}_GOTO", lab.name);
//AddError(gs.location, "BLOCKED_LABEL_{0}_GOTO", lab.name);
}
}
ret.return_value((statement_node)gs);

BIN
_Presentations/2015 New Features/PascalABC.NET 2015.pptx
View file

Binary file not shown.

2
bin/Lib/ABCButtons.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit ABCButtons;
interface

2
bin/Lib/ABCHouse.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit ABCHouse;
interface

3
bin/Lib/ABCObjects.pas
View file

@ -1,3 +1,6 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
///Модуль реализует векторные графические объекты с возможностью масштабирования, наложения друг на друга,
///создания составных графических объектов и многократного их вложения друг в друга.
///Каждый векторный графический объект перерисовывает себя при перемещении, изменении размеров

3
bin/Lib/ABCSprites.pas
View file

@ -1,3 +1,6 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
///Модуль ABCSprites реализует спрайты - анимационные объекты с автоматически меняющимися кадрами.
///Спрайт представляется классом SpriteABC и является разновидностью мультикартинки MultiPictureABC.
unit ABCSprites;

3
bin/Lib/Arrays.pas
View file

@ -1,3 +1,6 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit Arrays;
interface

6
bin/Lib/CRT.pas
View file

@ -1,11 +1,11 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
/// <summary>
/// Ìîäóëü äëÿ ðàáîòû ñ êîíñîëüþ
/// </summary>
unit CRT;
// Âåðñèÿ 0.3
// Copyright (c) 2006-2007 DarkStar, SSM (parts)
{$apptype console}
{$gendoc true}

2
bin/Lib/Core.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit Core;
{$reference 'System.Core.dll'}
end.

2
bin/Lib/DMCollect.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit DMCollect;
{$reference 'System.Drawing.dll'}

2
bin/Lib/DMTaskMaker.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit DMTaskMaker;
interface

2
bin/Lib/DrawManField.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit DrawManField;
//#savepcu false

3
bin/Lib/Drawman.pas
View file

@ -1,3 +1,6 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
///Исполнитель Чертежник предназначен для построения рисунков и чертежей на плоскости с координатами.
///Чертежник имеет перо, которое он может поднимать, опускать и перемещать. При перемещении опущенного пера за ним остается след.
unit Drawman;

2
bin/Lib/FilesOperations.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit FilesOperations;
interface

2
bin/Lib/FormsABC.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit FormsABC;
{$apptype windows}

3
bin/Lib/GraphABC.pas
View file

@ -1,3 +1,6 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
///Модуль предоставляет константы, типы, процедуры, функции и классы для рисования в графическом окне
unit GraphABC;

2
bin/Lib/GraphABCHelper.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit GraphABCHelper;
//{$apptype windows}

2
bin/Lib/IniFile.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit IniFile;
interface

2
bin/Lib/MPI.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit MPI;
interface

3
bin/Lib/PABCSystem.pas
View file

@ -1,3 +1,6 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
/// Ñòàíäàðòíûé ìîäóëü
/// !! System unit
unit PABCSystem;

3
bin/Lib/PointerTools.pas
View file

@ -1,3 +1,6 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit PointerTools;
procedure WriteMemoryToScreen(p:pointer; Count,InLineCount:integer);

3
bin/Lib/Robot.pas
View file

@ -1,3 +1,6 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
///Исполнитель Робот действует на прямоугольном клеточном поле. Между некоторыми клетками, а также по периметру поля находятся стены.
///Основная цель Робота – закрасить указанные клетки и переместиться в конечную клетку.
unit Robot;

2
bin/Lib/RobotField.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit RobotField;
//#savepcu false

2
bin/Lib/RobotTaskMaker.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit RobotTaskMaker;
interface

2
bin/Lib/Sockets.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit Sockets;
{$reference 'System.dll'}

2
bin/Lib/Utils.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit Utils;
interface

2
bin/Lib/VCL.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
unit vcl;
{$apptype windows}

2
bin/Lib/__RedirectIOMode.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
///--
unit __RedirectIOMode;

2
bin/Lib/__RunMode.pas
View file

@ -1,3 +1,5 @@
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
///--
unit __RunMode;