diff --git a/CodeCompletion/readme.txt b/CodeCompletion/readme.txt deleted file mode 100644 index 1f17dc6a3..000000000 --- a/CodeCompletion/readme.txt +++ /dev/null @@ -1,16 +0,0 @@ -Кодовое имя проекта: CodeCompletion -Название: CodeCompletion -Автор: Бондарев Иван -EMail, ICQ автора: ibond84@freemail.ru -Логин на SVN: ibond -Краткое описание проекта: Движок интеллисенса -Комментарии: -CodeCompletion.cs содержит класс CodeCompletionController - контроллер для парсинга файлов -DomConverter.cs содержит класс DomConverter, использующийся для получения необходимой интеллисенсу информации -DomSyntaxTreeVisitor.cs содержит класс DomSyntaxTreeVisitor, строящий по синтаксическому дереву внутреннее представление -CodeCompletionPCUReader содержит класс IntellisensePCUReader, строящий по PCU-файлу внутреннее представление -ExpressionVisitor.cs содержит класс ExpressionVisitor, который позволяет получить по выражению его scope (например для выражения до точки) -SymTable.cs содержит классы для внутреннего представления -ExpressionEvaluator.cs содержит класс ExpressionEvaluator, предназначенный для вычисления константных выражений -FindReferences.cs содержит класс ReferenceFinder, предназначенный для поиска использований символов -XmlDocs.cs содержит классы, ответственные за получение документации к сущностям \ No newline at end of file diff --git a/TestSuite/assemblies1.pas b/TestSuite/assemblies1.pas index 173a4954c..8cfa89150 100644 --- a/TestSuite/assemblies1.pas +++ b/TestSuite/assemblies1.pas @@ -1,3 +1,4 @@ +//winonly {$reference 'System.Windows.Forms.dll'} {$reference 'System.Drawing.dll'} {$reference 'System.Xml.dll'} diff --git a/TestSuite/symbol_table_test.pas b/TestSuite/symbol_table_test.pas index 7347a720c..6cb5bde08 100644 --- a/TestSuite/symbol_table_test.pas +++ b/TestSuite/symbol_table_test.pas @@ -1,3 +1,4 @@ +//winonly uses System, System.Windows, System.Collections, System.Collections.Generic; begin diff --git a/bin/TestRunner.exe b/bin/TestRunner.exe index ad3c645af..70de5f386 100644 Binary files a/bin/TestRunner.exe and b/bin/TestRunner.exe differ diff --git a/bin/TestRunner.pas b/bin/TestRunner.pas index 963d977ed..73a110aa5 100644 --- a/bin/TestRunner.pas +++ b/bin/TestRunner.pas @@ -11,6 +11,11 @@ uses PascalABCCompiler, System.IO, System.Diagnostics; var TestSuiteDir: string; var PathSeparator: string := Path.DirectorySeparatorChar; +function IsUnix: boolean; +begin + Result := (System.Environment.OSVersion.Platform = System.PlatformID.Unix) or (System.Environment.OSVersion.Platform = System.PlatformID.MacOSX); +end; + function GetTestSuiteDir: string; begin var dir := Path.GetDirectoryName(GetEXEFileName()); @@ -32,6 +37,9 @@ begin var files := Directory.GetFiles(TestSuiteDir+PathSeparator+'errors','*.pas'); for var i := 0 to files.Length - 1 do begin + var content := &File.ReadAllText(files[i]); + if content.StartsWith('//winonly') and IsUnix then + continue; var co: CompilerOptions := new CompilerOptions(files[i],CompilerOptions.OutputType.ConsoleApplicaton); co.Debug := true; co.OutputDirectory := TestSuiteDir+PathSeparator+'errors'; @@ -63,6 +71,9 @@ begin var files := Directory.GetFiles(TestSuiteDir,'*.pas'); for var i := 0 to files.Length - 1 do begin + var content := &File.ReadAllText(files[i]); + if content.StartsWith('//winonly') and IsUnix then + continue; var co: CompilerOptions := new CompilerOptions(files[i],CompilerOptions.OutputType.ConsoleApplicaton); co.Debug := true; co.OutputDirectory := TestSuiteDir+PathSeparator+'exe'; @@ -91,6 +102,9 @@ begin var files := Directory.GetFiles(TestSuiteDir+PathSeparator+dir,'*.pas'); for var i := 0 to files.Length - 1 do begin + var content := &File.ReadAllText(files[i]); + if content.StartsWith('//winonly') and IsUnix then + continue; var co: CompilerOptions := new CompilerOptions(files[i],CompilerOptions.OutputType.ConsoleApplicaton); co.Debug := true; co.OutputDirectory := TestSuiteDir+PathSeparator+dir; @@ -117,6 +131,9 @@ begin var dir := TestSuiteDir+PathSeparator+'units'+PathSeparator; for var i := 0 to files.Length - 1 do begin + var content := &File.ReadAllText(files[i]); + if content.StartsWith('//winonly') and IsUnix then + continue; var co: CompilerOptions := new CompilerOptions(files[i],CompilerOptions.OutputType.ConsoleApplicaton); co.Debug := true; co.OutputDirectory := dir; @@ -142,6 +159,9 @@ begin var files := Directory.GetFiles(TestSuiteDir+PathSeparator+'usesunits','*.pas'); for var i := 0 to files.Length - 1 do begin + var content := &File.ReadAllText(files[i]); + if content.StartsWith('//winonly') and IsUnix then + continue; var co: CompilerOptions := new CompilerOptions(files[i],CompilerOptions.OutputType.ConsoleApplicaton); co.Debug := true; co.OutputDirectory := TestSuiteDir+PathSeparator+'exe';