DevSelectors

Илья Ермаков

На форуме Королевства Дельфи Trurl упомянул про такую штуку, как "селекторы", которые предназначены для управления версиями кода.
Они расположены в недокументированном модуле DevSelectors.
С чем их едят, непонятно :-)

Надеюсь, Trurl сейчас нам объяснит...

Trurl

Объясняю.

Добавляем в меню что-то вроде.

Код:

"Insert Left"   "*F5"   "DevSelectors.DepositLeft; StdCmds.PasteView"   "StdCmds.PasteViewGuard"
"Insert Middle"   "*F6"   "DevSelectors.DepositMiddle; StdCmds.PasteView"   "StdCmds.PasteViewGuard"
"Insert Right"   "*F7"   "DevSelectors.DepositRight; StdCmds.PasteView"   "StdCmds.PasteViewGuard"

Теперь можно вставлять в текст такие штучки, назовем их селекторами.
[имя|вариант1|вариант2|вариант3|... ]
Когда щелкаем на одном из вариантов, остальные прячутся, причем сразу во всех селекторах с тем же именем.
Удобно где-нибудь в начале модуля сделать комментарии вида

Код:

(* [feature|On|Off] *)

Тогда легко переключать варианты.
Кроме того компилятор понимает команды вида

Код:

DevCompiler.CompileThis MyModule(feature:On)

Илья Ермаков

Круть!

А мы тут колдыбаемся с фолдами :-)

Надо в следующем сервис-паке добавить пункты меню и документацию на модуль...

Борис Рюмшин

Сие похоже из классического Оберона идет...

Vlad

Борис Рюмшин писал(а):

Сие похоже из классического Оберона идет...

Это, типа, вместо препроцессора?

Илья Ермаков

Типа, да

Евгений Темиргалеев

Это не всместо препроцессора, а вместо условной компиляции, которая иногда бывает нужна. Целиком препроцессор в оберонах не был и не будет нужен.

Кстати, если касается только кода, вполне можно обойтись следующим:

Код:

CONST
  someOption = TRUE (*FALSE*);
...
PROCEDURE Proc;
BEGIN
  ...
  IF someOption THEN ... END
END Proc;

batyrmastyr

Евгений Темиргалеев писал(а):

...Кстати, если касается только кода, вполне можно обойтись следующим:

Код:

CONST
  someOption = TRUE (*FALSE*);
...
PROCEDURE Proc;
BEGIN
  ...
  IF someOption THEN ... END
END Proc;

Не скажи, бывает требуется менять много где и сразу, например тестируешь какую-нить структуру из сложных объектов на работе с числами/строками, а потом на работе с нужным типом данных, который неудобно смотреть в отладчике или логе

Trurl

Евгений Темиргалеев писал(а):

Это не всместо препроцессора, а вместо условной компиляции, которая иногда бывает нужна.

Обычно она нужна на промежуточных стадиях, когда есть желание поэксперементировать с разными вариантами.

Кстати, еще одно возможное применение:

Код:

(*[comment|en|ru|fr] *)

Александр Ильин

Условная компиляция позволяет задавать директивы, которые будут применены к нескольким файлам сразу, это главное отличие от селекторов. Зато селекторы не увеличивают время компиляции, в отличие, например, от препроцессоров.

Trurl

Александр Ильин писал(а):

Условная компиляция позволяет задавать директивы, которые будут применены к нескольким файлам сразу, это главное отличие от селекторов.

А что мешает слелать то же с селекторами?
DevCompiler.CompileThis
Module1(dir:val)
Module2(dir:val)

Александр Ильин

Trurl писал(а):

А что мешает слелать то же с селекторами?
DevCompiler.CompileThis
Module1(dir:val)
Module2(dir:val)

Ничто не мешает, это правда. Сделаем тогда и следующий шаг: в команде CompileThis каждое значение val заменим на значение селектора, а перед этой командой разместим селекторы для каждой из директив компиляции. А что, получается довольно наглядная панель управления компиляцией...
Все-таки, Обероны - потрясающий по возможностям конструктор.

Info21

Четто мне боязно: куда ж мы так заедем.
Классический случай "... и все бросились играть в новую комбинаторную игру".

Евгений Темиргалеев

Игра не игра

, но условная компиляция нужна в отлаточных целях. Как верно подметил Trurl, на промежуточных стадиях. Например, проверка инварианта для сложной динамической структуры. Когда алгоритм обкатан, проверки убираются, т. к. они гарантируеются правильностью алгоритма. В правильности на 100%, конечно, нельзя быть увереным, но и польностью верифицировать весь код для 100% уверенности - далеко не всегда хватит времени...

Info21

Евгений Темиргалеев писал(а):

.. но условная компиляция нужна в отлаточных целях ..

Дак отлаживали, понимаем...

Но что-то тут напоминает, идейно, пошаговый дежукер...

Евгений Темиргалеев

Илья Ермаков писал(а):

Надеюсь, Trurl сейчас нам объяснит...

Вот понадобилось в одном месте варианты навести. Думаю, дай прилеплю selectors. Ан не удалось - при сохранении документа трэпы идут. Вроде когда вбиваешь с нуля - нормально, а когда копируешь селекторы с вариантами - трэп при сохранении.

Илья Ермаков

Да, есть у них там баг один. Селекторы неверно копируются. Я слал Оминкам репорт полгода назад. Что-то с Join, кажется.

Возьми DevSelectors из 1.6, там они уже исправлены должны быть.

Илья Ермаков

Так, забыли Оминк включить этот патч. Тогда кладу здесь.

Цитата:

Now occasionally I found some bug in DevSelectors.
If we copy fragment of source with selectors, then later during saving will be trap at externalizing - problems with domains of internal fragments in copied selectors.

There are skipped Join call in DevSelectors.Selector.CopyFromSimpleView (as it called Selector.InitContext).

It is an important addition:

PROCEDURE (selector: Selector) CopyFromSimpleView- (source: Views.View);
BEGIN
(* selector.CopyFrom^(source); *)
WITH source: Selector DO
selector.position := source.position;
IF source.leftHidden # NIL THEN
selector.leftHidden := TextModels.CloneOf(source.leftHidden);
selector.leftHidden.InsertCopy(0, source.leftHidden, 0, source.leftHidden.Length())
>>>>>Stores.Join(selector, selector.leftHidden)<<<<<
END;
IF source.rightHidden # NIL THEN
selector.rightHidden := TextModels.CloneOf(source.rightHidden);
selector.rightHidden.InsertCopy(0, source.rightHidden, 0, source.rightHidden.Length());
>>>>>Stores.Join(selector, selector.rightHidden)<<<<<
END
END
END CopyFromSimpleView;

OberonCore

DevSelectors

Кто сейчас на конференции