51e4ae050a
* Replace languageCaseSensitive by languageName data in PCU and caseSensitive parameters in Compiler functions * Implement SearchDirectories filling in Compiler and move SPython standard modules to their new directory * Implement search using current language extension first in Compiler * Delete LibForVB folder and update TestRunner to support different Lib dirs * Update installer scripts to create separate Lib folder for SPython * Take into account Lib dirs not found * Delete supportedSourceFiles variable in Compiler * Delete unused functions from LanguageIntegrator
123 lines
4.9 KiB
C#
123 lines
4.9 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.IO;
|
||
using System.Linq;
|
||
using System.Reflection;
|
||
using Languages.Facade;
|
||
using PascalABCCompiler;
|
||
|
||
namespace Languages.Integration
|
||
{
|
||
/// <summary>
|
||
/// Модуль с функциями загрузки поддерживаемых языков программирования
|
||
/// </summary>
|
||
public static class LanguageIntegrator
|
||
{
|
||
|
||
private static readonly LanguageProvider LanguageProvider = LanguageProvider.Instance;
|
||
|
||
/// <summary>
|
||
/// Событие, информирующее об успешной загрузке языкового пакета
|
||
/// </summary>
|
||
public static event Action<ILanguage> LanguageLoaded;
|
||
|
||
/// <summary>
|
||
/// Событие, информирующее об ошибке загрузки языкового пакета
|
||
/// </summary>
|
||
public static event Action<string> LanguageLoadErrorOccured;
|
||
|
||
/// <summary>
|
||
/// Загружает все языки платформы из папки bin
|
||
/// </summary>
|
||
public static void LoadAllLanguages()
|
||
{
|
||
string directoryName = Path.GetDirectoryName(Assembly.GetExecutingAssembly().ManifestModule.FullyQualifiedName);
|
||
|
||
DirectoryInfo directory = new DirectoryInfo(directoryName);
|
||
|
||
FileInfo[] dllFiles = directory.GetFiles("*LanguageInfo.dll");
|
||
|
||
var mainLanguageDll = dllFiles.First(fileInfo => fileInfo.Name == StringConstants.pascalLanguageDllName);
|
||
|
||
// первым добавляем PascalABC.NET
|
||
IntegrateLanguageFromAssembly(mainLanguageDll);
|
||
|
||
foreach (FileInfo languageFile in dllFiles.Where(dll => dll != mainLanguageDll))
|
||
{
|
||
IntegrateLanguageFromAssembly(languageFile);
|
||
}
|
||
}
|
||
|
||
/// <summary>
|
||
/// Загружает плагин языка из dll, содержащей класс, представляющий язык
|
||
/// (класс должен реализовывать интерфейс ILanguage и его имя должно заканчиваться на Language)
|
||
/// </summary>
|
||
/// <param name="languageFile">dll, содержащая язык</param>
|
||
private static void IntegrateLanguageFromAssembly(FileInfo languageFile)
|
||
{
|
||
try
|
||
{
|
||
ILanguage languageFound = InstantiateLanguageAndAddToLanguagesList(languageFile);
|
||
|
||
if (languageFound == null)
|
||
{
|
||
throw new Exception("Language class wasn't found in language assembly. (To be found it should contain 'Language' in it's name)");
|
||
}
|
||
|
||
LanguageLoaded?.Invoke(languageFound);
|
||
}
|
||
catch (ReflectionTypeLoadException e)
|
||
{
|
||
#if DEBUG
|
||
string errorMessage = e + Environment.NewLine;
|
||
errorMessage += "<Loader exceptions>:" + Environment.NewLine;
|
||
errorMessage += string.Join(Environment.NewLine, e.LoaderExceptions.Select(error => error.ToString())) + Environment.NewLine;
|
||
File.AppendAllText("log.txt", errorMessage);
|
||
#endif
|
||
LanguageLoadErrorOccured?.Invoke(languageFile.Name);
|
||
}
|
||
catch (Exception e)
|
||
{
|
||
#if DEBUG
|
||
string errorMessage = e + Environment.NewLine;
|
||
File.AppendAllText("log.txt", errorMessage);
|
||
#endif
|
||
LanguageLoadErrorOccured?.Invoke(languageFile.Name);
|
||
}
|
||
}
|
||
|
||
/// <summary>
|
||
/// Конструирует объект языка и добавляет его в список языков в LanguageProvider
|
||
/// </summary>
|
||
/// <param name="languageFile"></param>
|
||
/// <returns></returns>
|
||
private static ILanguage InstantiateLanguageAndAddToLanguagesList(FileInfo languageFile)
|
||
{
|
||
// Assembly assembly = Assembly.LoadFile(languageFile.FullName);
|
||
// SSM 02.01.2026 Поменял для net 9.0 иначе падение - не загружался PascalABCParser
|
||
Assembly assembly = Assembly.LoadFrom(languageFile.FullName);
|
||
|
||
Type[] types = assembly.GetTypes();
|
||
|
||
ILanguage languageFound = null;
|
||
foreach (Type type in types)
|
||
{
|
||
if (type.Name.EndsWith("Language") && type.IsClass)
|
||
{
|
||
object obj = Activator.CreateInstance(type);
|
||
if (obj is ILanguage language)
|
||
{
|
||
languageFound = language;
|
||
LanguageProvider.Languages.Add(language);
|
||
}
|
||
break;
|
||
}
|
||
}
|
||
|
||
return languageFound;
|
||
}
|
||
}
|
||
}
|