Cross†Channel

Симптоматично, что патч-локализация к игрушке лежит у меня в папке Docs\mexmat\Sem8.

@темы: Аниме

---

А вот пример того, почему я сравниваю всякие там Отоме и Соракаке с Кирандиями:

(видео)

Вообще можно почти любой кусочек так вырезать, просто тут музыка красивая.

@темы: Аниме

---

Странная ситуация: иногда умеешь что-нибудь плохо, заранее об этом предупреждаешь, но получается достаточно хорошо (или предупреждённые не умеют отличить). И вот начинаешь оправдываться: "вы не смотрите, что я так сыграл, вообще я фиговенько пианино знаю, просто эту песню заучил". "Это ерунда, эту фразу я случайно перевёл, а так словарный запас японского у меня бедный".
Потом соображаешь, что выставляешь себя ещё большим дураком: решат - рисуешься.
Ну и как тут быть?

А ещё более странно, когда делаешь плохо, но этого не замечают. То ли искренне, как непрофессионалы, то ли из чувства такта. Ну и чего тут говорить? "Ну вот, типа, фигово вышло"?

И вообще, легко тем, кто не видит своих ошибок: они всю жизнь могут совершенствоваться в счастливой уверенности, что каждый раз у них всё наилучшим образом. А я только и знаю, что замечать, сколько я бездарен и как у меня всё плохо выходит.

---

Русская культура

Я писал когда-то (не могу найти) о различиях между авторами исходных произведений и наследниками, авторами фанфиков. Вкратце, первые строят новое, а вторые ссылаются на старое. Поэтому их так легко различить.

То же и с культурой. Настоящая культура в изменчивости. Настоящая "национальная идея" в том, что в головах людей. Настоящий язык - это то, как говорят. Не наоборот. Бесполезны поиски национальной идеи в давно забытом прошлом, вытаскивание на свет божий всех этих сарафанов и самоваров, бесполезны слёзы над словарём по ушедшему словесному богатству и бесполезны правила, которые идут вразрез с практикой.

Мёртвое - мертво.

В культуре, в языке, в книгах - нет поворота назад. Нельзя отменить сделанное, обернуться, дважды войти в ту же реку. Прошлое в прошлом, старорусские песни так и останутся старорусскими, и будут лишь камнем на шее культуры до тех пор, пока их по глупости будут пытаться воскресить.
Лишь когда их оставят в могиле, не забыв, но попрощавшись; лишь когда с их смертью смирятся и обернутся, взглянув вперёд - лишь тогда мечтающие о национальной идее найдут её, всегда бывшую рядом.

Да, у страны должно быть прошлое. Но оно должно быть за спиной.
Настоящее - это то, что сейчас.

---

bmg 09

Бредовенько, но смотреть можно. Всё ширится и ширится гарем главного героя.

@темы: Аниме

---

Смотрю Otome-Zwei - спойлеры!

Zwei был снят до Sifr, он очень хороший. Может, даже лучше основного сериала - хотя сравнивать тяжело, уж слишком он на него завязан.

Нового я из него извлёк вот что: бедная Нина! Всё ей неладно. По прошлому просмотру я ничего не понял, поскольку слишком огорчён был отсутствием долгожданного пейринга Сергей - Арика (и не ждите, увы). Так вот, подчёркнуто: ей опять ничего не обломилось. Сергей, который получился после потери памяти - это не тот Сергей, которого она любила. Старый остался только в дневниках. (Японцы не знают, что нехорошо читать чужие письма).

Всё-то у неё судьба кривая. Или она сама так хочет? И потому ищет причины любить и нелюбить папу одновременно? Вот это был бы забавный персонаж, и жизненный.

@темы: Аниме

---

Смотрю Otome-Sifr - спойлеры!

Ещё забавнее: Арика всё-таки наследница. Как оно укладывается, я не понимаю, но её маму с папой опознать легко. Их сумма действительно производит Арику

А так, в шифре хорошие драки но фиговенькое всё остальное. Всё-таки, с начала Май-Отоме восьмая студия сильно потеряла в сказочности и мягкости юмора, и прибавила во всяких тупых сценках и лесби-намёках. Что-то они там со сценаристами мудрят, по-моему.

И слишком мало. Папа Арики хороший, да. Мама чуть поживее стала относительно того образа, что у неё был в "Отоме". Я бы посмотрел, пожалуй, 26-серийник.

@темы: Аниме

---

Mai-Otome - спойлеры!

Пересматриваю Май-Отоме. Забавно: Арика в конце концов единственная, кто никак не наследница королевы. Хотя сначала казалось, что она и есть потерянная наследница. И кроме того, она единственная, кто мог бы править. Если внимательно смотреть, видно, что Арику подобрали не там, не так, и без Blue Sky Sapphire. Его докупили потом на чёрном рынке Артая, Мию об этом говорит. На чёрный рынок он попал, разумеется, после операции Сергея Вонга, в ходе которой он нашёл Нину - которая и есть настоящая наследница.

Почему-то Мию сама этого не понимает, и считает Арику "продолжительницей рода Алисы". Каким боком Алиса относится к Рене, которая якобы мать Арики - я не знаю. Вполне возможно, что никаким, и Мию просто врёт, называя Арику дочерью Рены - исключительно чтобы выгадать ей преференции, поскольку на самом деле Арика дочь кого-то по ветке Алисы.

Ещё очень интересный персонаж - Сергей. Мне даже кажется, что Сергей + Сома в Г00 - это тень Сергея + Нины из Отоме. Слишком много совпадений, от имени "Сергей" и капельку русской стилистики до персоналии Сомы и отношений отца и приёмной дочери. Так вот, почему Сергей в Отоме интересен - потому, что он последователен. Он влюбчив более, чем ответственен и честен более, чем влюбчив. Все его действия укладываются в эту рамку. Единственное, что я не могу расщёлкать - это его отношение к Артаю и герцогу Артайскому. Почему он на их стороне? Я понимаю, почему он отдал Нину герцогу: потому, что подчёркивал, он видит в ней лишь дочь. Могу понять, почему Нина проглотила пилюлю и согласилась: ради него. Но почему он сам? Неужели действительно любит страну? Или просто считает, что его дорога решена, и остаётся только идти по ней?

@темы: Аниме

---

Итераторы в Delphi

В ближайших нескольких постах я расскажу о занятных применениях новшеств языка Delphi. Большинство из этих новшеств появилось в предыдущих версиях, Delphi 2010 только добавила атрибуты и расширила поддержку шаблонов, но поскольку распространяются нововведения очень медленно, чуть осветить их никогда не поздно.

Итак, итераторы. Начиная, кажется, с версии 2007, в дополнение ко стандартному "for", Delphi поддерживается

следующий синтаксис...

следующий синтаксис:

for element in collection do command;

Документация говорит, что поддерживается итерация элементов массива, символов в строке, значений из набора (set), и, самое интересное, специальным образом подготовленных классов и записей. С массивами и символами всё очевидно, про наборы можно пояснить чуть подробнее:

type
  TConnectionFlag = (cfOpen, cfClientLoggedIn, cfServingRequest, cfSupportsKeepalive, cfRequiresKeepalive);
  TConnectionFlags = set of TConnectionFlag;

//Можно было сделать проще, с помощью RTTI, но пока обойдёмся так.
function FlagName(flag: TConnectionFlag): string;
begin
  case flag of
    cfOpen: Result := 'OPEN';
    cfClientLoggedIn: Result := 'LOGGED_IN';
    cfServingRequest: Result := 'SERVING_REQUEST';
    cfSupportsKeepalive: Result := 'SUPPORTS_KEEPALIVE';
    cfRequiresKeepalive: Result := 'REQUIRES_KEEPALIVE';
  else
    Result := 'UNKNOWN FLAG';
  end;
end;

procedure PrintConnectionFlags(flags: TConnectionFlags);
var flag: TConnectionFlag;
begin
  for flag in flags do
    writeln(FlagName(flag));
end;

Это пример типичного использования итерации по наборам. Без итерации пришлось бы поступать вот так:

procedure PrintConnectionFlags(flags: TConnectionFlags);
begin
  if cfOpen in flags then writeln(FlagName(cfOpen));
  if cfClientLoggedIn in flags then writeln(FlagName(cfClientLoggedIn));
  ...
end;

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

Теперь о более интересных возможностях итераторов. Допускается создавать итераторы собственным классам. Например, собственный список или TStringList могут поддерживать итерацию по элементам списка. Большинство стандартных классов её и поддерживают:

var
  d: TStringList;
  s: string;
begin
  d := TStringList.Create;
  try
    d.LoadFromFile('lines.txt');
    for s in d do
      writeln(s);
  finally
    FreeAndNil(d);
  end;
end.

Поддержку итерации можно добавить и собственному классу. Для этого нам потребуется вспомогательный класс, итератор (или енумератор, кому как больше нравится). Основной класс должен иметь функцию GetEnumerator, которая создаёт и возвращает экземпляр вспомогательного класса:

type
  TMyCollection = class
  protected
    Items: array of integer;
  public
    function GetEnumerator: TMyCollectionEnumerator;
  end;

function TMyCollection.GetEnumerator: TMyCollectionEnumerator;
begin
  Result := TMyCollectionEnumerator.Create(Self);
end;

Сам итератор должен содержать в себе функцию MoveNext, возвращающую False, если больше элементов нет, и свойство Current, возвращающее текущий элемент:

type
  TMyCollectionEnumerator = class
  protected
    Parent: TMyCollection;
    Position: integer;
  public
    constructor Create(AParent: TMyCollection);
    function MoveNext: boolean;
    function GetCurrent: integer;
    property Current: integer read GetCurrent;
  end;

constructor TMyCollectionEnumerator.Create(AParent: TMyCollection);
begin
  inherited Create;
  Parent := AParent; //сохраняем указатель на объект, который нас создал
  Position := -1;
end;

function TMyCollectionEnumerator.MoveNext: boolean;
begin
  Result := (Position < High(Parent.Items));
  if Result then Inc(Position);
end;

function TMyCollectionEnumerator.GetCurrent: integer;
begin
  Result := Parent.Items[Position];
end;

Вот и готов простейший итератор. Нельзя ли его как-нибудь улучшить? Например, любой опытный дельфист тут же заметит, что каждое использование итератора требует создания объекта, а создание объектов, мы помним, довольно медленная операция. Слава богу, можно сделать итератор рекордом. Всё, что потребуется изменить в нашем коде - убрать вызов к наследуемому Create:

type
  TMyCollectionEnumerator = record
    Parent: TMyCollection;
    Position: integer;
    constructor Create(AParent: TMyCollection);
    function MoveNext: boolean;
    function GetCurrent: integer;
    property Current: integer read GetCurrent;
  end;

constructor TMyCollectionEnumerator.Create(AParent: TMyCollection);
begin
//  inherited Create; //убрано - рекорды не поддерживают наследования
  Parent := AParent;
  Position := -1;
end;

Таким образом получаем довольно быструю итерацию по произвольному контейнеру. Можно и сам TMyCollection сделать рекордом. Особой выгоды в производительности это не даст, поскольку он создаётся лишь один раз, но если это нужно для других целей - всегда пожалуйста. На всякий случай напоминаю, как в дельфи реализованы ссылки крест-накрест. С классами:

type
  TClass1 = class;
  TClass2 = class
    MyClass1: TClass1;
  end;
  TClass1 = class
    MyClass2: TClass2;
  end;

С рекордами:

type
  PRecord1 = ^TRecord1;
  TRecord2 = record
    MyRecord1: PRecord1;
  end;
  PRecord2 = ^TRecord2;
  TRecord1 = record
    MyRecord2 = PRecord2;
  end;

Все объявления должны находиться в пределах одного блока type, при выходе за его пределы дельфи потребует разрешить не до конца определённые типы.

Очевидный вопрос: а нельзя ли вообще не создавать на итерацию ни объекта, ни рекорда? Нельзя ли просто возвращать в GetEnumerator ссылку на самого себя, если мы уверены, что итерацией будут пользоваться только по очереди?

type
  TMyCollection = class
  public
    function GetEnumerator: TMyCollection;
    function MoveNext: boolean;
    function GetCurrent: integer;
  end;

function TMyCollection.GetEnumerator: TMyCollection;
begin
  Result := Self;
end;

Правильный ответ: нет, нельзя. Дельфи автоматически уничтожает итератор после использования. Если в GetEnumerator вы вернёте основной объект, он и будет уничтожен. Сделать с этим ничего нельзя, переопределить Destroy нельзя.

Кто-то спросит, можно ли провернуть этот фокус с рекордами. Рекорды ведь не уничтожаются? Да, рекорды не уничтожаются, но с ними такие трюки и не имеют особого смысла. Не забывайте, что рекорды передаются по значению; это значит, что функция GetEnumerator возвращает не ссылку на рекорд, а целый блок данных, всё его содержимое. Вы можете, конечно, вернуть и сам вызываемый объект:

function TMyRecord.GetEnumerator: TMyRecord;
begin
  Result := Self;
end;

Это будет значить только, что вы создатите новый рекорд TMyRecord и скопируете в него всё содержимое старого. Такой подход, кстати, вполне может однажды пригодиться, например, если внутри вашего TMyRecord небольшое количество критической информации. При доступе из нескольких потоков иногда бывает выгодно не блокировать объект на всё время итерации, а скопировать его информацию для последующего перебора и сразу же освободить его.

Блокировки
Это были простые применения итераторов, а теперь перейдём к более сложным. Самое удобное в итераторах то, что они позволяют выполнять произвольный код в момент перебора. Этим мы и воспользуемся. Например, сделаем перебор потоко-безопасным. При работе с несколькими потоками любой программист выполняет перебор примерно так:

EnterCriticalSection(Sync);
try
  for i := 0 to Collection.Count - 1 do begin (* do something *) end;
finally
  LeaveCriticalSection(Sync);
end;

Упростим эту конструкцию!

function TMyCollectionEnumerator.Create(AParent: TMyCollection);
begin
  inherited Create; //положим, это класс: у рекордов нет деструкторов
  Parent := AParent;
  Position := -1;
  EnterCriticalSection(Parent.Sync);
end;

TMyCollectionEnumerator.Destroy;
begin
  LeaveCriticalSection(Parent.Sync);
  inherited;
end;

procedure EnumCollection(Collection: TCollection);
var i: integer;
begin 
  for i in Collection do begin (* do something *) end; //Collection блокируется автоматически!
end;

Здесь мы воспользовались медленными классами, поскольку нам требовался деструктор, в котором мы могли бы разблокировать объект. С рекордами сложнее, деструкторов у них нет. Можно было бы разблокировать Collection в MoveNext на последнем элементе, но нет гарантии, что итерация дойдёт до этого элемента - не забывайте, что пользователь всегда может сделать break. Таким образом, мы не можем оставлять блокировку на время жизни записи - как раз потому, что не знаем этого времени. Остаётся только делать рекорды с копированием состояния, как описано чуть выше.

function TMyCollection.GetEnumerator: TMyCollectionEnumerator;
begin
  EnterCriticalSection(Sync);
  try
    CopyStateTo(Result); //копирует состояние массива в Result. Мы сможем перебирать result, даже если сам объект к тому времени поменяется
  finally
    LeaveCriticalSection(Sync);
  end;
end;

Иногда такой подход, как я уже говорил, очень удобен - но не всегда. Часто для сохранения состояния требуется копировать весь массив, пусть даже указателей, а это крайне долго. Как жаль, что мы не можем узнать, когда Delphi уничтожает структуру... или можем?

То, что мы сейчас сделаем - это небольшое колдовство. Дельфи не вызывает деструкторов для рекордов, но она финализирует всё их содержимое, в том числе, вызывает _Release для интерфейсов. Поэтому мы создадим интерфейс, который будет освобождать блокировку по _Release.
Для начала нам потребуется переопределённая реализация IInterface:

type
  TMyGatekeeper = class(TObject, IInterface)
  protected
    Parent: TMyCollection;
    RefCnt: integer;
  public
    constructor Create(AParent: TMyCollection);
   //IInterface
    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
    function _AddRef: Integer; stdcall;
    function _Release: Integer; stdcall;
  end;

constructor TMyGatekeeper.Create(AParent: TMyCollection);
begin
  inherited Create;
  Parent := AParent;
  Refcnt := 0;
end;

function TMyGatekeeper.QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
begin
 //реализуем стандартно
  if GetInterface(IID, Obj) then
    Result := 0
  else
    Result := E_NOINTERFACE;
end;

function TMyGatekeeper._AddRef: Integer; stdcall;
begin
  EnterCriticalSection(Parent.Sync);
  Result := InterlockedIncrement(RefCnt); //можно было и не interlocked
end;

function TMyGatekeeper._Release: Integer; stdcall;
begin
  Result := InterlockedDecrement(RefCnt);
  LeaveCriticalSection(Parent.Sync);
 //не уничтожаем объект
end;

RefCnt мы оставили только для того, чтобы не сломать случайно какие-нибудь внутренние оптимизации Delphi, которые используют это значение. Вообще говоря, можно было бы всегда возвращать единицу. Наш объект не уничтожается с падением RefCnt до нуля; его время жизни задаётся, как для обычного дельфийского объекта, ручным уничтожением. При захвате ссылки на себя он блокирует перебираемый объект, при высвобождении - разблокирует.

Теперь сама коллекция:

type
  TMyCollectionEnumerator = record
    Parent: TMyCollection;
    Position: integer;
    Gatekeeper: IInterface;
    ...
  end;

  TMyCollection = class
  protected
    Sync: TRtlCriticalSection;
    Items: array of integer;
    Gatekeeper: TMyGatekeeper;
  public
    constructor Create;
    destructor Destroy; override;
    function GetEnumerator: TMyCollectionEnumerator;
  end;

constructor TMyCollection.Create;
begin
  inherited;
  InitializeCriticalSection(Sync);
  Gatekeeper := TMyGatekeeper.Create(Self);
end;

destructor TMyCollection.Destroy;
begin
  FreeAndNil(Gatekeeper);
  DeleteCriticalSection(Sync);
  inherited;
end;

function TMyCollection.GetEnumerator: TMyCollectionEnumerator;
begin
  Result := TMyCollectionEnumerator.Create(Self);
  Result.Gatekeeper := Gatekeeper as IInterface; //коллекция блокируется
end;

Обратите внимание, что мы храним Gatekeeper как объект. Если бы мы хранили его, как интерфейс, он постоянно пребывал бы захваченным. "Умные" указатели на интерфейсы в дельфи устроены так, что автоматически вызывают _AddRef при присваивании значения переменной интерфейсного типа, и автоматически вызывают _Release при очистке этого значения.

Когда у нас спрашивают TMyCollectionEnumerator, мы пользуемся этим свойством: мы возвращаем итератор, внутрь которого кладём переменную типа IInterface. Когда мы помещаем в неё наш Gatekeeper, дельфи автоматически выполняет _AddRef, блокируя коллекцию. Когда рекорд уничтожается, дельфи автоматически финализирует запись, очищает поле Gatekeeper, и, поскольку оно было интерфейсного типа, вызывает ему _Release - и коллекция разблокируется.

Это, несомненно, очень удобный и быстрый способ. Достаточно одного объекта типа Gatekeeper на любую коллекцию; можно использовать его во множестве итераторов сразу. Он создаётся однажды, при создании TMyCollection, и почти не добавляет накладных расходов. Однако здесь есть свои подводные камни. Хотя Delphi гарантирует уничтожение рекорда-итератора, а уничтожая его, гарантирует очистку интерфейса, неизвестно, когда она это сделает. В прилагающемся коде я выполнял некоторые эксперименты, и выяснил, например, что хотя в обычных функциях итератор уничтожается сразу же по выходу из "for ... in", в основном теле консольного приложения итераторы-рекорды не уничтожаются вообще. Так что этот приём следует использовать с осторожностью.

Фильтры
Ещё одно интересное применение итераторов - фильтры. Вместо того, чтобы писать:

for i := 0 to Collection.Length - 1 do
  if Collection.Items[i].Connected and Connection.Items[i].LoggedIn and (cfSupportsKeepalive in Connection.Items[i].Flags) then begin
    ....
  end;

Хотелось бы что-то такое:

for Connection in FilterKeepalive(Connections) do begin
  ...
end;

С итераторами это легко сделать, правда, за дополнительную цену - если вы пользуетесь рекордами. Эта дополнительная цена - создание ещё одного временного рекорда. Демонстрирую:

type TKeepaliveFilter = record
    Parent: TConnections;
    function MoveNext: boolean; //выбирает следующий подходящий по фильтрам элемент
    ...
  end;

  TKeepaliveFilterFactory = record
    Parent: TConnections;
    function GetEnumerator: TKeepaliveFilter;
  end;

function FilterKeepalive(Parent: TConnections): TKeepaliveFilterFactory;
begin
  Result.Parent := Parent;
end;

function TKeepaliveFilterFactory.GetEnumerator: TKeepaliveFilter;
begin
  Result := TKeepaliveFilter.Create(Parent);
end;

Проблема здесь в том, что синтаксис дельфи жёстко требует от объекта, стоящего в правой части "for ... in" реализовывать GetEnumerator. Функция-фильтр, которую мы пишем, должна уже сама по себе создать и вернуть какой-то объект, а этот объект затем должен будет создать ещё один - енумератор. Хотелось бы, чтобы можно было в качестве енумератора использовать этот самый, созданный в FilterKeepalive объект (в конце концов, он больше низачем не нужен!). Однако с рекордами это не пройдёт по уже упомянутой причине: если мы просто вернём в GetEnumerator "Result := Self", мы на самом деле скопируем рекорд, и ничем не улучшим положение.

Другое дело - классы. Здесь никакой дополнительной стоимости не налагается:

type TKeepaliveFilter = class
    Parent: TConnections;
    function MoveNext: boolean; //выбирает следующий подходящий по фильтрам элемент
    ...
    function GetEnumerator: TKeepaliveFilter;
  end;

function FilterKeepalive(Parent: TConnections): TKeepaliveFilter;
begin
  Result := TKeepaliveFilter.Create(Parent);
end;

function TKeepaliveFilterCreator.GetEnumerator: TKeepaliveFilter;
begin
  Result := Self;
end;

Класс просто возвращает ссылку на самого себя. Если помните, для коллекции это делать запрещалось, поскольку дельфи уничтожает итератор после использования. Однако здесь нам это не просто на руку, а жизненно необходимо: кто ещё уничтожит созданный в FilterKeepalive временный класс?

Генераторы
Ещё одно интересное применение итераторов связано с тем, что нам вовсе не обязательно перебирать уже существующие объекты. Итератор может перебирать элементы, вычисляемые им же на ходу. По ссылке в примерах есть генерация чисел фибоначчи, а мы решим более практическую задачу - и более быстро (уж разумеется, без классов-фабрик и интерфейсов, упаси меня господи).

Создадим итератор, который будет возвращать нам все окна старшего уровня в системе:

for WindowHandle in TopLevelWindows do
  ShowWindow(WindowHandle, SW_HIDE); //жаль, но десктоп скрыть не получится - он это игнорирует.

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

type
  TWindowEnumerator = record
    Handles: array of HWND;
    Position: integer;
    function MoveNext: boolean;
    function GetCurrent: integer;
    property Current: integer read GetCurrent;
  end;
  PWindowEnumerator = ^TWindowEnumerator;

Очевидно, нам потребуется фабрика, которая его создаёт:

type
  TWindowEnumeratorFactory = record
    function GetEnumerator: TWindowEnumerator;
  end;

function EnumWindowsProc(hwnd: HWND; lParam: LPARAM): BOOL; stdcall;
begin
  with PWindowEnumerator(lParam)^ do begin
    SetLength(Handles, Length(Handles)+1); //в реальной жизни, конечно, лучше приращивать блоками по 10-15 элементов
    Handles[Length(Handles)-1] := hwnd;
  end;
  Result := true;
end;

function TWindowEnumeratorFactory.GetEnumerator: TWindowEnumerator;
begin
  EnumWindows(@EnumWindowsProc, integer(@Result));
  Result.Position := -1;
end;

Вот и всё. Функция TopLevelWindows возвращает фабрику, причём для этого не требуется делать вообще никаких операций (возвращаемый рекорд выделяется автоматически). Прилагаемая программа перебирает все окна и печатает их на экране (не скрывает, не бойтесь, я ещё не такой псих).

P.S. Вообще говоря, с окнами можно было и не извращаться. Обычные массивы работают ничуть не хуже:

type
  THwndArray = array of HWND;
  PHwndArray = ^THwndArray;

function EnumWindowsProc(hwnd: HWND; lParam: LPARAM): BOOL; stdcall;
var Handles: PHwndArray;
begin
  Handles := PHwndArray(lParam);
  SetLength(Handles^, Length(Handles^)+1);
  Handles^[Length(Handles^)-1] := hwnd;
  Result := true;
end;

function TWindowEnumeratorFactory.GetEnumerator: THwndArray;
begin
  EnumWindows(@EnumWindowsProc, integer(@Result));
end;

procedure HideTopLevelWindows;
begin
  for WindowHandle in TopLevelWindows do //точно так же
    ShowWindow(WindowHandle, SW_HIDE);
end;

Ну хорошо, хорошо, хотите - файлы?

for TargetFile in EnumFiles('C:\Windows\System32\*.exe') do
  InfectFile(TargetFile);

Тут тоже совершенно спокойно можно было обойтись массивом, но мы выгадываем на том, что если в середине енумерации нам захочется сделать break - мы не совершим лишних запросов к файловой системе. Ну и вообще, массивы лишний раз не выделять. Рекорд для итерации-то выделяется в стеке, насколько я понимаю.

Заключение
В качестве приложения даю код четырёх маленьких консольных программ, иллюстрирующих кое-что из вышесказанного. Для компиляции требуется Delphi 2010, который вы можете скачать на 30 дней с сайта embarcaderro. Может быть, скомпилится и на прежних версиях, не проверял.

И ещё немного материалов:
Документация на сайте борланд.
Большая статья на английском с примерами генераторов, внешних и внутренних фильтров.
Генераторы-рекорды с подробным сравнением получающегося ассемблерного кода.

@темы: Delphi, Компьютеры

---

Bakemonogatari 07

Много раз говорил, и ещё скажу: бмг - лучший сериал сезона. Его качество столь велико, что почти прав Шуклин, считающий, что бмг лучше смотрелся бы вообще без сюжета. Почти - но не совсем; его обычный элитизм мешает ему увидеть и другую очевидную истину: что сюжет так же прекрасен, как и исполнение.

А вообще...
Чем дальше, тем больше я убеждаюсь, что аниме делает не графика, не режессура, и даже не столько сюжет, сколько игра актёров. Если музыка даёт 20% аниме, актёры - 40%. Чем была бы торадора без Тайги, рыдающей "Рюдзи — мой"? Так и bmg: даже Сендзёгахара, самый слабый, на мой взгляд, персонаж, играет в разы выше среднего "голоса номер пять". Чего уж говорить про великолепную Хачикуджи или Канбару, которую голос вытащил из бездны предполагавшейся унылости.

Кстати, поэтому же русский дубляж кино в 95% отвратителен. Потому, что у нас не играют. У нас переводят. Произносят голосом смысл фраз. А интонации этого голоса несут в себе не меньше смысла. Мне даже не хочется представлять, чем было бы "Рюдзи — мой" в гнусавом бубняже наших официальных киношных локализаторов. Только человек с волшебным, безграничным воображением смог бы пробиться через этот метровой толщины слой застывшего бетона. С бмг такое вообще не вышло бы, поскольку тут голос работает не на сюжет, а параллельно с сюжетом: его не по чему восстановить.

@темы: Аниме

---

Попадая в затруднение, я вспоминаю "очевидные" советы, которые давал другим в таких же ситуациях - и удивительно, но они помогают

---

О бортовых самописцах

Представьте себе, бортовой самописец ищут-ищут, месяц, другой, третий... А потом вдруг находят!
Но его ли?

Не проще ли записать на плёнку голоса студийных "пилотов", чем искать ещё три месяца?

---

Borland Delphi 2010

Много трёпа о новой версии Delphi.

Я долго готовился. Заранее следил за обновлениями, восхищался и в уме сочинял статью о том, что дельфи сейчас остаётся почти единственным развивающимся популярным компилируемым языком. Я собирался хвалить анонимные методы:

MethodDictionary.AddHandler('HelloWorldMethod', procedure begin writeln('Hello world'); end;
MethodDictionary.Call('HelloWorldMethod');

Шаблоны:

type
  TQueue<T> = class
  protected
    procedure Push(Item: T);
    function Pop: T;
  end;

var a: TQueue<TMessage>

Атрибуты:

type
  Table = class(TCustomAttribute)
  public
    constructor Create(const DatabaseTable: string);
  end;

  Field = class(TCustomAttribute)
  public
    constructor Create(const DatabaseField: string);
  end;

  [Table('Clients')] TMyDatabaseRecord = class
  public
    [Field('Name')] property Name: string read GetDatabaseField;
    [Field('Surname')] property Surname: string read GetDatabaseField;
  end;

А также всякие приятные мелочи вроде возврата старой полоски компонентов.

Но Борланд такой Борланд! Точнее, это уже не Борланд, и даже не CodeGear, это теперь Embarcaderro. У меня на работе четыре дельфи установлены следующим образом:
Borland\Delphi 7
Borland\BDS 5
CodeGear\RAD Studio
Embarcaderro\RAD Studio 2010
(упорядочены по времени выхода, не смотрите на цифры). Кого я должен благодарить за этот идиотский расклад? С какой версии боргеркадерро поймёт, что если меняешь хозяев как перчатки - лучше класть все программы в общую папку?

Так вот, Борланд такой Борланд. Инсталлятор триальной дельфи выдал Access Violation при запуске. Потом List index out of bounds. Узнаю тебя, Россия! Инсталлятор вышедшего флагманского продукта, за который они просят 800 долбанных баксов, с первого щелчка - Access Violation! Своё, родное.
Заходим в некоторую подпапку, наугад запускаем другой exe. Этот работает. Снимаем лишние компоненты: предлагает установить всю RAD Studio в 1.4 мегабайта места. Это офигеть, Борланд! Молодцы! Хорошо ужали дельфи, с двухста мегабайт до полутора. Так на язык и просится съехидничать о проценте мусора в программе.

Так или иначе, скачивается 90 мегабайт. Попутно просят ввести имя пользователя на Borland/CodeGear/Embarcaderro Developer Network. Ввожу. Нет такого пользователя. Но вы можете попробовать ввести его емейл, может, мы найдём его по емейлу. Ввожу. Нашли.

Грузится с одной персоналией почти столько же, сколько Delphi 2007. Кстати, в новом RAD Studio включены Delphi for Win32, Delphi Prism (.NET) и Builder. Стандартный набор, но с Prism произошли забавные изменения (ещё раньше): старый Delphi for .NET, насколько я понимаю, был отправлен в утиль, а вместо того дырбыркадеро купили фирму, разрабатывавшую дельфи-совместимый .NET-компилятор для Visual Studio. Так что Delphi Prism теперь происходит в оболочке Visual Studio.

Разумеется, я сразу же полез тестировать Generics. Написал следующее:

type
  PQueueBox<T> = TQueueBox<T>;
  TQueueBox<T> = record
    Link: T;
    Next: PQueueBox<T>;
  end;

  TQueue<T> = class
  protected
    First: PQueueBox<T>;
    Next: PQueueBox<T>;
    function Box(Item: T): PQueueBox<T>;
    procedure DisposeBox(PQueueBox<T>);
  public
    procedure Push(Item: T);
    function Pop: T;
  end;

Очевидный тест, классический пример использования шаблонов. Теперь внимание, барабанная дробь -
Впрочем, никакой барабанной дроби нет, и так всё ясно: дельфи его завалила.

Оказывается, бывают generic classes, бывают generic records, но не бывает - (вот теперь уже настоящая барабанная дробь) - generic pointers. Нельзя объявить шаблон-указатель на шаблон-тип. Можно конкретизировать тип и на него сделать конкретный указатель:

type
  TGenericType<T> = record
    ...
  end;

  TSpecificType = TGenericType<integer>;
  PSpecificType = ^TSpecificType;

Причём вот так уже нельзя:

PSpecificType = ^TGenericType<integer>;

Ёлки, борланд! Эмбаркадерро! Кому нужны generic records без пойнтеров? Вы что, сдурели? Что я вам, буду блоки памяти по значению передавать?! И вообще, чего такого сложного было сделать? Как выясняется, этой проблеме уже почти год (генерики-то были ещё с дельфи 2009). У них в Quality Central висит "сделать generic pointers". И в новой версии, блин, за год, они добавили поддержку generic interfaces (о которых вдохновенно пишет ихний гендир), но болт положили на generic pointers.

Экспериментирую дальше.

@темы: Delphi, Компьютеры

---

Выбор

Вот интересно, выбор - он до какой степени выбор? Дать выбор - значит ли остаться безучастным к любому исходу? Ведь не значит. У моей кошки, допустим, есть выбор, остаться у меня на коленях или нет; но я буду огорчён, если она начнёт меня игнорировать.

С другой стороны, и библейский выбор "голосуй правильно или умри" - это не настоящий выбор. Такой выбор можно и не предоставлять.

---

Глубокие мысли

Я не понимаю, когда люди говорят "вот, в той книге глубокие мысли, а в этой мысли плоские". Хотя иногда сам так говорю. Для меня это примерно такая же загадка, как для не умеющих читать страница текста. Палочки, закорючки. Постойте, откуда вы взяли вот эту фразу? Прочли её отсюда? Из этих закорючек? Ну дела...

Для меня почти любая книжная мысль одинакова. Одинаково проста. За чрезвычайно редкими исключениями, примеров которым я сейчас и не могу вспомнить, всё, что я читаю в книгах, кажется мне либо совершенно очевидным, либо совершенно произвольным, а чаще и то, и другое. Разница только в запутанности изложенного. Другими словами, "глубокие" и "неглубокие" мысли для меня выглядят примерно вот так:
- Каждое утро солнце встаёт на востоке. (Это неглубокая мысль)
- Когда дует ветер, листва выросших в поле деревьев шелестит, а листва деревьев в лесу не шелестит, кроме тех, что на опушке. (Это глубокая мысль)

Поэтому я с растерянностью смотрю на людей, которые ругают первое и хвалят второе. Где они тут видят разницу? Ну да, первое изложено проще, но ведь и его можно запутать, а второе распрямить:
- На поверхности планеты солнце поднимается с той стороны горизонта, которая противоположна направлению вращения.
- Ветер играет листвой там, где достаёт.

Другая проблема в том, что книжные идеи - не физические законы, и логике почти не подчиняются. Из двух предложенных мной идей можно считать более полезной ту, которая сообщает менее очевидную информацию, например, факт вращения земли. Но книжные идеи не сообщают фактов! Это просто точки зрения авторов, которые те аргументируют, по мере возможности, действиями своих же героев. Нельзя сказать, что какое-то положение более достоверно, чем остальные:
- Люди думают о других потому, что их заставляют страх и комплексы, поэтому комплексы - природный механизм, скрепляющий наше общество.
- Люди думают о других потому, что в них развита эмпатия и они сочувствуют окружающим.
- Люди думают о других потому, что для них выгодно заслужить чужую благодарность.
- Люди думают о других потому, что так их заставляют годы эволюции: если вид поддерживает своих, выживать каждому становится легче.

Что из этого правильно? Да всё - в какой-то мере. Эти и десятки других причин в каждом из нас объясняют наше поведение. Если пытаться сказать какую-то общую мысль, которая была бы универсально верной, то выйдет только:
- Люди могут думать о других по самым разным причинам.

Писатели же делают не так. Они выбирают одну случайную мысль, и наглядно иллюстрируют её всю книгу - игнорируя при этом связанные с ней сложности, что и разумно, поскольку если лезть в мелочи, книжка из художественной превратится в научную. Но как можно из двух произвольных и необоснованных утверждений, из двух личных мнений, выбрать одно и сказать "оно глубже"?

Вот почему, кстати, я никогда до конца не любил эту цитату из Булгакова:
— Позвольте узнать, что вы можете сказать по поводу прочитанного.
Шариков пожал плечами.
— Да не согласен я.
— С кем? С Энгельсом или с Каутским?
— С обоими, - ответил Шариков.
Я вполне допускаю, что можно быть несогласным с обоими

Также я не очень люблю эту цитату и ещё по одной причине, но она не вяжется с темой, и о ней как-нибудь в другой раз.

@темы: Сочинительство

---

Кстати, да

17 августа или около того всегда происходит что-то ужасное. Кризисы, войны, обрушения станций, столкновения самолётов, рождения меня...

---

В головах наших людей существует магический переключатель, которые отделяет финансовые вопросы от нефинансовых. Как только в деле появляются деньги, переключатель щёлкает и человек теряет способность думать трезво. В голове его поселяется единственная мысль: "о, деньги, он хочет нажиться, он жирует, это барюга-бизнесмен, нужно доить его по максимуму".

Примеры?
Бесплатный и популярный сайт объявляет о сборе пожертвований. "Раскрутили проект и теперь решили набить карманы".
Появляется компания, желающая переводить и издавать аниме. "Наживаются на честных фанатах".
Некто открывает онлайн-магазинчик аниме-мелочей. "Барыги лезут в нашу субкультуру".
Писатель предлагает покупать его книги, а не качать бесплатно. "Мало ты без того толстый!"
В кое-как сводящем концы с концами магазинчике продали некачественный товар. "Пойду ругаться с этими сволочами, ишь, только обмануть думают".

А между тем, бесплатный и популярный сайт тратит 400 баксов из кармана владельца каждый месяц. Компания, желающая переводить и издавать аниме, основана под заклад квартиры и дачи директора, и прибыли пока получила достаточно для оплаты электричества в подвальном офисе. Онлайн-магазинчик открыл сердобольный фанат, который хотел продвигать эту самую субкультуру в массы. Писатель... ну ладно, он и правда и без того толстый Но есть другие, худые, принципа это не меняет. А магазинчик сам был обманут поставщиками, и вообще его скоро закроют, и жителям придётся бегать за два квартала обманываться к другим сволочам.

Я всегда против копирайта и принудительных поборов. Но я также против этой дурацкой склонности считать получение денег за труд чем-то неправильным. Заплатить - не значит быть обворованным. Те, кто просят денег - не всегда барыги. И даже чаще не барыги, а такие же люди, как и деньги дающие, только готовые ради общего блага трудиться и рисковать.

Что самое смешное, эта странная черта характера - равнять взимание платы и воровство - встречается обычно всё у тех же людей, что любят поболтать про "работу на дядю". По-моему, это просто говорит об их неспособности работать вообще. Ни на дядю, ни на кого.

---

Лицемерие

Споря с сестрой, выяснил интересное: оказывается, некоторые люди "лицемерием" называют "говорить одно, а думать другое". Я-то всегда считал, что это "говорить одно, а делать другое".

Мнения в квартире разделились напополам. Мама за меня, брат за сестру.
Вы как считаете?

---

ДР

С днём рождения, я!

@темы: Праздники

---

Много бреда

Порылся по архивам, нашёл много недописанных стихов и вообще всякой дурости. Поскольку неделя ерунды продолжается, пощу сюда самое терпимое:

(далее)

Это я сам себе, видимо
Когда твой слог дешёв и рван,
И рифма в голове не нова
Послушайся Козьмы Пруткова,
Заткни свой творческий фонтан.

И ещё
В гробу заворочался Пушкин,
В могиле закашлялся Фет,
Свой стих дописал Вася Пупкин,
Талантливый юный поэт.

Ева
Link me to the host and let me check the timestamps
Let me see who's pinging back from Jupiter and Mars
In other words: tracert.
In other words: echo reply.
Route my packets through, and let me send you even more,
You are all I recv for, all I worship and adore.
In other words, please be true.
Don't fail pings out of blue.

Ещё Ева
Бегут года, шумит прибой, тускнеют прошлого детали
Тех рей уж нет, что мы с тобой в тех еве, помнится, видали.
Тех каджи больше не хохмит, тех шинджи драться не берётся
И под одну волынку с ним тех аска больше не дерётся.

Харухи
Вот Харухи, что ноет весь день напролёт. Вот Кён, что цепляться к ней не устаёт. А вот Коидзуми на гея похожий, наклонности Ицуки Кёна тревожат, а вот Микуру в официантки костюме, к которой не клеится гей-Коидзуми, а вот и Нагато, пришельцев работа, у Микуру-тян от Нагато икота, но Юки Асахина зря опасается - она хоть на Кёна с ножом не бросается, как бросилась Рёко, Нагато дублёрша, в доверие к нам предварительно втёршись, а вот Танигути, простак, каких мало, он Рёко хвалил, пока та не пропала, когда её прочь отослала Нагато за то, что напала она рановато на Кёна, который к богине цепляется и та чуть поменьше мирами швыряется. А вот Куникида, он друг Танигути, и тут же Цуруя со всеми до кучи, они все для Харухи просто приятели, поскольку пока недостаточно спятили, чтоб верить, что в мире бывают пришелицы, кухарки из будущего и экстрасенсы. А вот безымянный компьютерный староста, за сиськи он девушек лапает запросто, а вот Кимидори, она с ним встречается (ну, если ей верить, то так получается), а староста сам больше к Юки всё клонится, но вряд ли ему там чего-то обломится, поскольку, гласят всевозможные толки, та втрескалась в Кёна давно и надолго.

А вот председатель собрания школьного, он действия парень, нередко разбойного, он выгнать кружок из квартиры решил, которую тот до того захватил, но к этой квартире привыкла Нагато; пришельцы, вообще-то, крутые ребята, подобных они не допустят демаршей, у них Кимидори сама секретаршей, верней, секретаршей она у него, но так обобщать будет проще всего. Короче, Нагато на парня озлилась, к Эмири по связи своей подключилась и всей гей-команде эспера-эстета влетело тотчас же по горло за это, а те ведь хотели, по правде, всего-то себе хоть немного облегчить работу и Харухи хоть на минутку занять, чтоб ныть перестала и бред сочинять, поскольку когда эта девочка ноет, чем дальше, тем в мире живётся хреновей: то синий гигант, то зелёный червяк - не счесть создаваемых ей передряг.

А вот Сямисен, разноцветный котяра, второго не сыщещь такого фигляра: гордясь, что природа дала ему рот, болтает котяра весь день напролёт! Однажды ему все велели заткнуться, поскольку с философом можно свихнуться, но кот интеллектом одарен порочным: заткнуться заткнулся, но когти-то точит, вконце изодрал ими Кёнову куртку - поди ты втолкуй что котяре-придурку. А это сестрёнка, которой по нраву чинить над котом говорящим расправу за то, что тот портит одежду братишки, который читает толстенные книжки, в которых закладкой отмечена дата, в которую тот сможет встретить Нагато, которая скоро от скуки свихнётся и Кёну помучаться с нею придётся поскольку та мир ненароком исправит и всех уберёт (но подсказку оставит), а хуже всего, что в больничной горячке она восстановит подружку-маньячку, которая Кёна убить возжелает и грохнет почти, но ей Кён помешает... стоп, с Кёнами вышел какой-то разброд, но суть всё же в том, что Кён Кёна спасёт, а если два Кёна вам кажется мало - три года назад их четыре гуляло, но Юки Нагато, связавшись с собой, две трети из них отослала домой.

Очевидный анекдот
- По-моему, тут всё очевидно. Дорогой мой Уотсон, вы ведь тоже сообразили, кто убийца?
- Ну, почти.
- Почти?
- Мне осталось допросить одного человека, чтобы узнать имя злодея.
- Да? И кого же?
- Вас, дорогой Холмс!
(может быть, я его даже слышал где-то)

Опять Ева
Warning: Invalid code detected around "Misato.Kiss(Kaji)": Kiss(): method not found. Choosing the closest substite: Kill()
Warning: Cannot implicitly convert type "TRei2" to type "TRei3". Not all the fields of "TRei3" will be copied. Use an explicit conversion or make both fields be of the same type.
Error: Cannot construct an instance of a miserable type "Shinji". Please choose one of the descendandts instead (if he ever has any).
Error: Variable "Kaworu" is declared to be of type "Boy" but is used like it's of type "Girl". These types aren't interchangeable. Fix the error or correct the declaration.
Error: Method "Shinji.Decide(Topic topic)" is not found. Closest match is "Shinji.Flee()", which does not take one argument.
Build failed.

@темы: Харухи, Тексты