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
115 lines
4.2 KiB
C#
115 lines
4.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;
|
|
using System.Collections.Generic;
|
|
using System.Text;
|
|
using System.Windows.Forms;
|
|
using System.IO;
|
|
using System.Runtime.InteropServices;
|
|
using Microsoft.Win32;
|
|
using PascalABCCompiler;
|
|
using PascalABCCompiler.TreeConverter;
|
|
|
|
namespace VisualPascalABC
|
|
{
|
|
public class Tools
|
|
{
|
|
public static string GetTextFromClipboard()
|
|
{
|
|
IDataObject dataObject = Clipboard.GetDataObject();
|
|
if (dataObject.GetDataPresent(DataFormats.Text))
|
|
{
|
|
// Yes it is, so display it in a text box.
|
|
return (string)dataObject.GetData(DataFormats.Text);
|
|
}
|
|
return "";
|
|
}
|
|
|
|
public static bool CopyTextToClipboard(string stringToCopy)
|
|
{
|
|
if (stringToCopy.Length > 0)
|
|
{
|
|
DataObject dataObject = new DataObject();
|
|
dataObject.SetData(DataFormats.UnicodeText, true, stringToCopy);
|
|
// Work around ExternalException bug. (SD2-426)
|
|
// Best reproducable inside Virtual PC.
|
|
try
|
|
{
|
|
Clipboard.SetDataObject(dataObject, true, 10, 50);
|
|
}
|
|
catch (ExternalException)
|
|
{
|
|
Application.DoEvents();
|
|
try
|
|
{
|
|
Clipboard.SetDataObject(dataObject, true, 10, 50);
|
|
}
|
|
catch (ExternalException) { }
|
|
}
|
|
return true;
|
|
}
|
|
else
|
|
{
|
|
return false;
|
|
}
|
|
}
|
|
|
|
public static string MakeFilter(string Filter, string Name, string[] Extensions)
|
|
{
|
|
string sf = PascalABCCompiler.FormatTools.ExtensionsToString(Extensions, "*", ";");
|
|
sf = string.Format(VECStringResources.Get("DIALOGS_FILTER_PART_{0}{1}|{1}|"), Name, sf);
|
|
if (sf.IndexOf(StringConstants.pascalSourceFileExtension) >= 0)
|
|
return sf + Filter;
|
|
else
|
|
return Filter + sf;
|
|
|
|
}
|
|
|
|
public static string MakeProjectFilter(string Filter, string Name, string[] Extensions)
|
|
{
|
|
string sf = PascalABCCompiler.FormatTools.ExtensionsToString(Extensions, "*", ";");
|
|
sf = string.Format(VECStringResources.Get("DIALOGS_PROJECT_FILTER_PART_{0}{1}|{1}|"), Name, sf);
|
|
if (sf.IndexOf(".pabcproj") >= 0)
|
|
return sf + Filter;
|
|
else
|
|
return Filter + sf;
|
|
|
|
}
|
|
|
|
public static string MakeAllFilter(string AllFilter, string Name, string[] Extensions)
|
|
{
|
|
string sf = PascalABCCompiler.FormatTools.ExtensionsToString(Extensions, "*", ";");
|
|
sf += ";";
|
|
if (sf.IndexOf(".pas;") >= 0)
|
|
return sf + AllFilter;
|
|
else
|
|
return AllFilter + sf;
|
|
}
|
|
public static string FinishMakeFilter(string Filter, string AllFilter)
|
|
{
|
|
if (AllFilter != "")
|
|
AllFilter = AllFilter.Substring(0, AllFilter.Length - 1);
|
|
if (Filter != "")
|
|
Filter = string.Format(VECStringResources.Get("DIALOGS_FILTER_PARTALL_{0}|{0}|{1}"), AllFilter, Filter);
|
|
return Filter + VECStringResources.Get("DIALOGS_FILTER_ALLFILES") + " (*.*)|*.*";
|
|
}
|
|
|
|
public static string FileNameToLower(string FileName)
|
|
{
|
|
if (!Constants.FileNamesCaseSensetive)
|
|
return FileName.ToLower();
|
|
return FileName;
|
|
}
|
|
|
|
public static string GetRangeDescription(int selectedItem, int itemCount)
|
|
{
|
|
return string.Format(PascalABCCompiler.StringResources.Get("CODE_COMPLETION_{0}_FROM_{1}"), selectedItem, itemCount);
|
|
}
|
|
|
|
public static bool IsUnix()
|
|
{
|
|
return System.Environment.OSVersion.Platform == System.PlatformID.Unix || System.Environment.OSVersion.Platform == System.PlatformID.MacOSX;
|
|
}
|
|
}
|
|
}
|