From 3d8cdb6617985578ff19909a6e653bd06805948e Mon Sep 17 00:00:00 2001 From: Sun Serega Date: Fri, 12 Jan 2024 21:42:56 +0200 Subject: [PATCH] Warn outdated PackAll and TODO's --- Modules.Packed/OpenCLABC.pas | 6 ++++++ Modules/OpenCLABC.pas | 6 ++++++ PackAll.pas | 14 ++++++++++++++ Packing/Descriptions/OpenCLABC.predoc | 6 ++++++ 4 files changed, 32 insertions(+) diff --git a/Modules.Packed/OpenCLABC.pas b/Modules.Packed/OpenCLABC.pas index b658a035..2ec93a0b 100644 --- a/Modules.Packed/OpenCLABC.pas +++ b/Modules.Packed/OpenCLABC.pas @@ -57,6 +57,12 @@ //=================================== // Обязательно сделать до следующей стабильной версии: +//TODO Перепродумать скрытие суфикса вендоров +// - В случае энум это местами путает, потому что не сразу видно что имя из расширения +// --- Туда бы хотя бы описание, откуда его достали +// - А в именах функций суфикс совпадающий с суфиксом расширения бесполезен +// --- Когда он НЕ совпадает с суфиксом расширения? + //TODO Скрывать из анализатора кода _adr в Н.У. модулях // - А то сейчас его поверх самих функций показывает diff --git a/Modules/OpenCLABC.pas b/Modules/OpenCLABC.pas index 90491423..f74e4af4 100644 --- a/Modules/OpenCLABC.pas +++ b/Modules/OpenCLABC.pas @@ -47,6 +47,12 @@ //=================================== // Обязательно сделать до следующей стабильной версии: +//TODO Перепродумать скрытие суфикса вендоров +// - В случае энум это местами путает, потому что не сразу видно что имя из расширения +// --- Туда бы хотя бы описание, откуда его достали +// - А в именах функций суфикс совпадающий с суфиксом расширения бесполезен +// --- Когда он НЕ совпадает с суфиксом расширения? + //TODO Скрывать из анализатора кода _adr в Н.У. модулях // - А то сейчас его поверх самих функций показывает diff --git a/PackAll.pas b/PackAll.pas index 022ff55e..80ba09fe 100644 --- a/PackAll.pas +++ b/PackAll.pas @@ -461,6 +461,20 @@ // ==================================================== + begin + var exe_fname := GetEXEFileName; + var pas_fname := System.IO.Path.ChangeExtension(exe_fname, '.pas'); + if FileExists(pas_fname) then + begin + var exe_mod_time := System.IO.FileInfo.Create(exe_fname).LastWriteTime; + var pas_mod_time := System.IO.FileInfo.Create(pas_fname).LastWriteTime; + if exe_mod_time < pas_mod_time then + Otp('WARNING: PackAll.pas was modified. Please recompile it'); + end; + end; + + // ==================================================== + begin var arg := CommandLineArgs.SingleOrDefault(arg->arg.StartsWith('Stages=')); diff --git a/Packing/Descriptions/OpenCLABC.predoc b/Packing/Descriptions/OpenCLABC.predoc index 35f94c55..3c9d9b5e 100644 --- a/Packing/Descriptions/OpenCLABC.predoc +++ b/Packing/Descriptions/OpenCLABC.predoc @@ -57,6 +57,12 @@ unit OpenCLABC; //=================================== // Обязательно сделать до следующей стабильной версии: +//TODO Перепродумать скрытие суфикса вендоров +// - В случае энум это местами путает, потому что не сразу видно что имя из расширения +// --- Туда бы хотя бы описание, откуда его достали +// - А в именах функций суфикс совпадающий с суфиксом расширения бесполезен +// --- Когда он НЕ совпадает с суфиксом расширения? + //TODO Скрывать из анализатора кода _adr в Н.У. модулях // - А то сейчас его поверх самих функций показывает