efb4a4338f
* Extract base classes from ParserTools (local) and GPPGParserHelper * Fix string resources error * Extract base class for unexpected token error * Update ParserTools project file * Add comments for compiler directives usages in compiler * Add directives checks * Move string constants to new project * Implement scalable directives checks * Remove known directives from compiler * Fix PABCSystem namespace error * Allow region and endregion with no params * Allow parameters to endif directive * Delete directive parameters extension checks * Replace error with warning for uknown directive case * Fix generate native code (semantic rule) assigning * Improve error messages for directives * Rename RunParseThread to SwitchOnIntellisence Для отладки может требоваться отключение Intellisence на уровне кода. Для понятности метод назван SwitchOnIntellisence. * Resolve merge conflicts * Add new compiler errors for unsupported target framework and output file type * Add documentation to directives checks * Fix directives check loop
63 lines
2.2 KiB
C#
63 lines
2.2 KiB
C#
// 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)
|
|
using System.IO;
|
|
|
|
namespace PascalABCCompiler
|
|
{
|
|
|
|
public enum SourceFileOperation
|
|
{
|
|
GetText, GetLastWriteTime, Exists, FileEncoding
|
|
}
|
|
public delegate object SourceFilesProviderDelegate(string FileName, SourceFileOperation FileOperation);
|
|
public static class SourceFilesProviders
|
|
{
|
|
public static object DefaultSourceFilesProvider(string FileName, SourceFileOperation FileOperation)
|
|
{
|
|
switch (FileOperation)
|
|
{
|
|
case SourceFileOperation.GetText:
|
|
if (!File.Exists(FileName)) return null;
|
|
/*TextReader tr = new StreamReader(file_name, System.Text.Encoding.GetEncoding(1251));
|
|
//TextReader tr = new StreamReader(file_name, System.Text.Encoding.);
|
|
string Text = tr.ReadToEnd();
|
|
tr.Close();*/
|
|
string Text = FileReader.ReadFileContent(FileName, null);
|
|
return Text;
|
|
case SourceFileOperation.Exists:
|
|
return File.Exists(FileName);
|
|
case SourceFileOperation.GetLastWriteTime:
|
|
return File.GetLastWriteTime(FileName);
|
|
}
|
|
return null;
|
|
}
|
|
}
|
|
|
|
public class FormatTools
|
|
{
|
|
public static string ExtensionsToString(string[] Extensions,string Mask,string Delimer)
|
|
{
|
|
string res = "";
|
|
for (int i = 0; i < Extensions.Length; i++)
|
|
{
|
|
res += Mask+Extensions[i];
|
|
if (i != Extensions.Length - 1)
|
|
res += Delimer;
|
|
}
|
|
return res;
|
|
}
|
|
public static string ObjectsToString(object[] Objects, string Delimer)
|
|
{
|
|
string res = "";
|
|
for (int i = 0; i < Objects.Length; i++)
|
|
{
|
|
res += Objects[i].ToString();
|
|
if (i != Objects.Length - 1)
|
|
res += Delimer;
|
|
}
|
|
return res;
|
|
}
|
|
}
|
|
}
|
|
|