Forum.iFiction.Ru

Просьба протестировать www.rtads.org/libr25beta.rar.
Хотел сделать автоматическое спряжение глаголов, но это ещё изрядно времени займет. Попробуйте разные лица ГП!

Обновил бету библиотеки. Прошу изучить и помучать функцию glok. На этом принципе можно сделать встроенный генератор падежей.
http://www.rtads.org/libr25beta.rar

Полезный для проверки код:

pers: object
setall(num)=
{ 
  isThem:=nil; 
  self.lico:=(num-1)/2+1;
  if (num%2=0) self.isThem:=true; 
}
;

sprag: function(num1, num2, str)
{
  local i:=1;
  while (i<=6) 
  { 
    pers.setall(i);
    glok(pers,num1,num2,str);
    " ";
    if (i%2=0) "| "; 
    i++;
  }
 "\n";
} 

sprag1: function(str)
{
  local i:=1;
  while (i<=6) 
  { 
    pers.setall(i);
    glok(pers,str);
    " ";
    if (i%2=0) "| "; 
    i++;
  }
 "\n";
} 

startroom: room  
ldesc = {
sprag(1,1,'мож'); 
sprag(3,1,'хот'); 
sprag(2,1,'вид');
sprag(2,1,'сид');
sprag(2,1,'леж');
sprag(1,2,'нес');
sprag(2,1,'нос');
sprag(2,1,'наход');
sprag(1,1,'зна');
sprag(1,1,'дума');
sprag(1,1,'име');
sprag(2,2,'выгляд');
sprag(1,1,'помога');
sprag(1,1,'представля');
sprag(1,2,'пойд');
sprag(1,1,'вылез');
sprag(2,2,'сто');
sprag(1,1,'слез');
sprag(1, 1,'пахн'); 
sprag(2,2,'говор');
sprag1('хотеть'); 
}
;

Вуаля!

Генератор склонений подключен к РТАДС, а также ещё некоторые новые фишки.
Прошу жесточайшим образом протестировать!
Теперь можно самому на ходу настраивать правила, так что делитесь наработками.

скачать.

Обновил бету. Задавайте вопросы, если что не ясно.
скачать 25 релиз бета
Для использования скинуть все в папку с библиотеками (как минимум обновить advr.t, где есть новая функция для работы генератора, и скопировать библиотеку generator.t).

Внимание! Генератор запускается через функцию commonInit, причем он сразу включает ставший режимом по умолчанию HTML. Поэтому в файле игры следует убрать следующий фрагмент:

replace commonInit: function
{"\H+";}

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

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

Что ещё не сделано: генерация склонений короткого названия, обезЁживание лексем, оптимизация кода (так скажем, не шустрый).

Хм. Это точно была последняя версия? Уже в прошлый раз не должно было возникать.
Выкладываю ещё одно обновление. Изменился только файл генератора.

Подоптимизировал, но все равно 800 миллисекунд на 113 слов без вывода на экран...
Туду для себя - ввести ключ однократного прохода в функции замены.

у меня от твоего генератора голова ходит циркулем.

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

sdec, rdesc... pdesc - все будут.

Можно начинать пользоваться. Неработающие варианты публиковать здесь. Если до релиза библиотеку не исправят, то просто вручную прописать правильный вариант. Буквы-флаги вряд-ли изменятся.

Чтобы было яснее - склонения формируются при запуске игры, но внутренне они принимают тот вид, который мы всегда ранее задавали. Библиотеку обновил, исправил "восточное" и "старинное", качать  там же.

Извиняюсь за задержку - потихоньку пишу.
В TADS значения noun хранятся не упорядоченно, оригинальный порядок сохранить не удастся (если я правильно понял о чем идет речь). Сам же генератор выдает список склонений в обычном порядке.

Что означает запись (4)ки? Или (у6)и? Или (.)ы?

"(4)ки" обозначает, что сначала эта цифра будет заменена на строку из следующей таблички:

// задаем символьные множества
symbols=
    [['0' '[бвдзлмнпрстфц]'] 
    ['1' '[еуюа]'] 
    ['2' '[бвдзлмпрсфц]']
    ['3' '[бвгджзнрц]']                       //звонкие
    ['4' '[чшщц]']                                //шипящие
    ['6' '[бвгджзйклмнпрстфхцчшщ]']     //согласные
    ['8' '[аеёиоуыэюя]']                        //гласные
  ]

В данном случае мы получим "([чшщц])ки". Далее к этой строке автоматически будет добавлен значок '$', обозначающий конец строки.  Программа будет сверять лексему на соответствие этому шаблону (о поиске с регулярными выражениями).  В замене можно использовать обратные ссылки: $1 - подставить то, что было в первой скобке, $2 - что во второй, и т.д.. По умолчанию, будет изменяться весь найденный шаблон, поэтому неизменяемые части нужно захватывать скобками и вставлять в замену.

"(у6)и" - "(у[бвгджзйклмнпрстфхцчшщ])и"
"(.)ы" - в соответствии с синтаксисом регулярных выражений, точка - это любой одиночный символ.


Рассмотрим правила:

rrules =
    [
    ['2F'    'йки'  'ек']
...

При множественном числе и женском роде, всё оканчивающееся на 'йки' в род. падеже будет оканчиваться на 'ек'.
Пример: рейки -> реек

commonrules1 =
...
['2'    '(6)на'    '$1ен'    '$1нам'    '$1на'    '$1нами' '$1нах'],  // брёвна, 6 -согл.
...

Ранее были другие условия, если не сработали, работает это.
Множественное число, окончание '(6)на' -> '([бвгджзйклмнпрстфхцчшщ])на' :
Р.П.    '$1ен'
Д.П.  '$1нам'
В.П.    '$1на'
Т.П.    '$1нами'
П.П.  '$1нах'

Пример:
окна -> окен, окнам, окна, окнами, окнах

Как мы видим, что в родительном падеже есть ошибка. Такая же ошибка была бы, если бы мы ввели 'волокно'. Значит, нужно либо исправить это правило, либо прописать исключение для родительного падежа.

rrules =
    [
    ...
    ['2'    'кна'  'кон']
    ...

Вероятно, потом это же правило придется расширить, если обнаружатся сходные проблемы. Расширить, потому что исключения имеют склонность появляться группами в отдельных падежах, при отдельных окончаниях и числе/роде. Уникальные исключения бывают редко.

Да, извиняюсь, не обновлял. Ещё есть что дорабатывать.

Flint, спасибо. Проверку _debug собирался ввести как дополнение, не думал, что окажется остро необходимым.
addwordru(obj, prop, str); - тоже отлично, не задумывался, что может понадобиться

Ещё "домашнее задание":
-хотя бы формально описать правила склонения сокращенных прилагательных типа "чертова"

www.rtads.org/libr25beta2.rar - текущее состояние библиотек
Извини, Михаил, пока не добавил addwordru.