Forum.iFiction.Ru

Извиняюсь, что не привожу кода, но самым простым путем будет заменять "попросить *существительное*" на "*существительное*,". Это приведет предложение к принятому в ТАДСе синтаксису. Вставить этот хак, скорее всего, придется в функцию предпарсинга.

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

upd. См. в английском варианте мануала, глава 6 "The Parsing Sequence", , в разделе, посвященном функции preparseCmd. Вот текст примера (на английском):


Here’s a sample implementation of preparseCmd. This implementation converts commands
in the format “tell actor to command” to the standard TADS notation for these commands, “actor, command.”

  #pragma C+
  preparseCmd: function(cmd)
  {
    local i, tot, to_loc, actor, the_rest;

    tot = length(cmd);

    /* check to see if it starts with "tell" */
    if (tot > 3 && cmd[1] == 'tell')
    {
      /* see if there's a word "to" */
      for (i = 1, tot = length(cmd) ; i <= tot ; ++i)
      {
        if (cmd[i] == 'to')
          to_loc = i;
      }

      /* if there's a "to", convert the command */
      if (to_loc != nil && to_loc > 2)
      {
        /* find the parts before and after the 'to' */
        for (i = 2, actor = [] ; i < to_loc ; ++i)
          actor += cmd[i];
        for (the_rest = [], i = to_loc + 1 ; i <= tot ; ++i)
          the_rest += cmd[i];

        /* convert it to "actor, command" */
        return actor + ',' + the_rest;
      }
    }

    /* otherwise, process the command as normal */
    return true;
  }



Из русского мануала я его убрал, заменив на описание работы preparseCmd в RTADS.

Отредактировано uux (22.11.2007 09:40)

Итак, как все разрешилось.

Была написана функция preparseTell, которая преобразует строки из вида "попросить Тимофея отвлечь продавца" к виду "Тимофея, отвлечь продавца" (выглядит криво, но парсер всё понимает, спасибо GrAnd'у :-)

preparseTell: function(str)
{
  local lst, len, actor, rest, i, types, o;
 
  lst := parserTokenize(str);
  types := parserGetTokTypes(lst);
   
  len := length(lst);
   
  if (len >= 3)
  {
    o := parserDictLookup([] + lst[1], [PRSTYP_VERB]);
    if (length(o) = 0 || o[1] != askVerb)
      return str; 

    if ( (types[3] & PRSTYP_PREP) != 0 )
      return str;
     
    actor := lst[2];
    rest := '';
    for (i := 3; i <= len; i++)
      rest += lst[i] + ' ';
   
    return actor + ',' + rest;
  }
 
  return str;
}

Функция проверяет, является ли третье слово предлогом, чтобы отличать фразы
"попросить Тимофея отвлечь продавца" и
"попросить Тимофея о помощи".

Потенциальная засада возникает, если обращаться к актеру двумя словами, напр. "Иван Иванович" или имя+прилагательное, но у меня в игре нет ни того ни другого, поэтому данное решение можно считать условно безопасным.
Эта функция затем "вклинивается" в самый конец стандартной функции preparse в файле advr.t:

comStr := preparseTell(comStr);

Вроде бы работает.

GrAndrey написал:

Теперь я знаю, что могу спокойно уйти на покой...

Главное, чтобы это знание не послужило руководством к (без)действию.