story-gen 0.0.1

data/lib/string/lchomp.rb

@@ -0,0 +1,14 @@
+
+class String
+  
+  # @param [String] prefix
+  # @return [String] this {String} without +prefix+ or just this {String}
+  #   if it does not have +prefix+.
+  def lchomp(prefix)
+    if self.start_with? prefix
+    then self[prefix.size..-1]
+    else self
+    end
+  end
+  
+end

data/lib/string/ru_downcase.rb

@@ -0,0 +1,21 @@
+# encoding: UTF-8
+
+class String
+  
+  # The same as {String#downcase!} but considers Russian alphabet as well.
+  # 
+  # @return [String]
+  # 
+  def ru_downcase!
+    self.tr! "A-ZА-ЯЁ", "a-zа-яё"
+  end
+  
+  # The same as {String#downcase} but considers Russian alphabet as well.
+  # 
+  # @return [String]
+  # 
+  def ru_downcase
+    self.tr "A-ZА-ЯЁ", "a-zа-яё"
+  end
+  
+end

data/lib/strscan/substr.rb

@@ -0,0 +1,16 @@
+
+class StringScanner
+  
+  # @param [Integer] start some value of {StringScanner#pos}.
+  # @param [Integer] end_ some value of {StringScanner#pos}.
+  # @return [String]
+  def substr(start, end_)
+    old_pos = self.pos
+    self.pos = start
+    result = peek(end_ - start)
+    self.pos = old_pos
+    return result
+  end
+  
+end
+  

data/lib/unique_names.rb

@@ -0,0 +1,269 @@
+# encoding: UTF-8
+
+# Infinite array of unique names.
+class UniqueNames
+  
+  # @param [Array<String>] base_names base names which will be used to
+  #   generate the {UniqueNames}.
+  def initialize(base_names)
+    @base_names = base_names
+    @postfix_id = 0
+    reinit_current_names
+  end
+  
+  # @return [UniqueNames]
+  def self.russian_male
+    UniqueNames.new %W{
+      Адам
+      Адриан
+      Александр
+      Алексей
+      Анатолий
+      Андрей
+      Антон
+      Аркадий
+      Арсений
+      Артем
+      Артур
+
+      Богдан
+      Борис
+
+      Вадим
+      Валентин
+      Валерий
+      Василий
+      Виктор
+      Виталий
+      Владимир
+      Владислав
+      Вячеслав
+
+      Геннадий
+      Георгий
+      Герман
+      Глеб
+      Григорий
+
+      Давид
+      Даниил
+      Денис
+      Дмитрий
+
+      Евгений
+      Егор
+      Ефим
+
+      Захар
+
+      Иван
+      Игорь
+      Илья
+
+      Кирилл
+      Константин
+
+      Лев
+      Леонид
+
+      Максим
+      Марк
+      Матвей
+      Мирослав
+      Михаил
+
+      Назар
+      Нестор
+      Никита
+      Николай
+
+      Олег
+      Орест
+      Оскар
+      Остап
+
+      Павел
+      Петр
+      Платон
+
+      Ренат
+      Родион
+      Роман
+      Ростислав
+      Руслан
+
+      Святослав
+      Семен
+      Сергей
+      Станислав
+      Степан
+
+      Тарас
+      Тимофей
+      Тимур
+
+      Федор
+      Филипп
+
+      Эдуард
+
+      Юрий
+
+      Яков
+      Ян
+      Ярослав
+    }
+  end
+  
+  # @return [UniqueNames]
+  def self.russian_female
+    UniqueNames.new %W{
+      Агата
+      Ада
+      Адель
+      Адриана
+      Алевтина
+      Александра
+      Алина
+      Алиса
+      Алла
+      Альбина
+      Анастасия
+      Ангелина
+      Анжела
+      Анна
+      Антонина
+      Анфиса
+      Арина
+
+      Богдана
+      Борислава
+
+      Валентина
+      Валерия
+      Варвара
+      Василиса
+      Вера
+      Вероника
+      Виктория
+      Виолетта
+
+      Галина
+
+      Дарья
+      Диана
+
+      Ева
+      Евгения
+      Екатерина
+      Елена
+      Елизавета
+
+      Жанна
+
+      Зинаида
+      Зоя
+
+      Илона
+      Инга
+      Инесса
+      Инна
+      Ирина
+
+      Карина
+      Кира
+      Клавдия
+      Клара
+      Кристина
+      Ксения
+
+      Лариса
+      Лидия
+      Лилия
+      Любовь
+      Людмила
+
+      Майя
+      Маргарита
+      Марина
+      Мария
+      Марта
+      Марьяна
+      Мирослава
+
+      Надежда
+      Наталья
+      Нелли
+      Нина
+
+      Оксана
+      Ольга
+
+      Полина
+
+      Раиса
+      Регина
+      Римма
+      Роза
+      Роксана
+      Руслана
+
+      Светлана
+      Снежана
+      София
+
+      Таисия
+      Тамара
+      Татьяна
+
+      Ульяна
+
+      Христина
+
+      Эвелина
+      Элеонора
+      Эльвира
+      Эмма
+
+      Юлиана
+      Юлия
+
+      Яна
+      Ярослава
+    }
+  end
+  
+  # @return [UniqueNames]
+  def self.english_male
+    UniqueNames.new ["Jack", "Thomas", "Joshua", "Oliver", "Harry", "James", "Charlie", "William", "Daniel", "Samuel", "Alfie", "Benjamin", "Joseph", "George", "Callum", "Jake", "Ethan", "Lewis", "Luke", "Mohammed", "Matthew", "Dylan", "Jacob", "Alexander", "Ryan", "Adam", "Tyler", "Harvey", "Liam", "Max", "Cameron", "Harrison", "Jamie", "Jayden", "Leo", "Owen", "Henry", "Connor", "Archie", "Nathan", "Ben", "Muhammad", "Oscar", "Edward", "Lucas", "Michael", "Isaac", "Aaron", "Kyle", "Noah", "Finley", "Rhys", "Bradley", "Charles", "Toby", "Louis", "Brandon", "Logan", "Mason", "Reece", "Kieran", "Alex", "Riley", "Finlay", "Kai", "Freddie", "David", "Harley", "Kian", "Mohammad", "Bailey", "Sam", "Luca", "Joel", "Theo", "Leon", "John", "Robert", "Ashton", "Ellis", "Joe", "Aidan", "Billy", "Corey", "Hayden", "Evan", "Zachary", "Taylor", "Christopher", "Sebastian", "Elliot", "Morgan", "Jay", "Dominic", "Reuben", "Gabriel", "Sean", "Louie", "Andrew", "Frederick", "Ewan", "Zak"]
+  end
+  
+  # @return [UniqueNames]
+  def self.english_female
+    UniqueNames.new ["Olivia", "Grace", "Ruby", "Jessica", "Emily", "Sophie", "Chloe", "Lucy", "Lily", "Ella", "Ellie", "Amelia", "Charlotte", "Katie", "Mia", "Hannah", "Evie", "Megan", "Amy", "Isabella", "Millie", "Isabelle", "Abigail", "Freya", "Molly", "Daisy", "Holly", "Emma", "Erin", "Poppy", "Jasmine", "Phoebe", "Leah", "Keira", "Caitlin", "Imogen", "Madison", "Rebecca", "Elizabeth", "Georgia", "Sophia", "Lauren", "Scarlett", "Amber", "Ava", "Eleanor", "Bethany", "Alice", "Isabel", "Summer", "Paige", "Anna", "Lola", "Libby", "Eva", "Maisie", "Isobel", "Brooke", "Lilly", "Alisha", "Tia", "Sarah", "Amelie", "Gracie", "Faith", "Rosie", "Courtney", "Matilda", "Niamh", "Maddison", "Sienna", "Eve", "Aimee", "Skye", "Zara", "Isla", "Shannon", "Madeleine", "Harriet", "Zoe", "Nicole", "Sofia", "Abbie", "Maya", "Lacey", "Rachel", "Francesca", "Layla", "Lydia", "Alicia", "Hollie", "Martha", "Alexandra", "Julia", "Natasha", "Lexie", "Mollie", "Morgan", "Maria", "Demi", "Rose", "Laura", "Lara", "Victoria", "Tilly", "Sara", "Evelyn", "Eloise"]
+  end
+  
+  # @return [String]
+  def pop
+    n = @current_names.pop + postfix
+    if @current_names.empty?
+      @postfix_id += 1
+      reinit_current_names
+    end
+    return n
+  end
+  
+  private
+  
+  def reinit_current_names
+    @current_names = @base_names.shuffle
+  end
+  
+  def postfix
+    if @postfix_id == 0
+    then ""
+    else "-#{@postfix_id}"
+    end
+  end
+  
+end

data/sample/fight_club.sdl

@@ -0,0 +1,58 @@
+"
+Fight club
+==========
+
+"
+
+```
+require 'unique_names'
+
+names = UniqueNames.english_male
+```
+
+"Today in the fight club the tournament is being held! Meet the participants:"
+
+10 раз:
+  ```n = names.pop```;
+  N is the current participant;
+  N is in;
+  "
+  - "N", the ";
+  either "tiger", or "fox", or "bear", or ("horse"; N has hooves);
+  " ";
+  either ("with powerful hands"; N uses "hands"),
+  or ("with powerful feet"; N uses "feet"),
+  or:
+    if X is the current participant and X has hooves then (
+      "with powerful hooves"; X uses "hooves"
+    )
+    or (
+      "with sharp claws"; N uses "claws"
+    )
+  .
+  N is not the current participant;
+.
+"
+
+Let the tournament begin!
+
+"
+While the tournament not complete:
+  If X is in and Y is in and X != Y, then:
+    (note: fight!)
+    either (X won; Y lost), or (Y won; X lost);
+    (note: yup, it should be made that existing variables can be used in
+           conditions rather than capturing new ones only)
+    if A won and B lost and A uses "hands" then ""A" has beaten "B". "
+    or if A won and B lost and A uses "feet" then ""A" has kicked "B". "
+    or if A won and B lost and A uses "hooves" then ""A" has kicked "B" and knocked him out. "
+    or if A won and B lost and A uses "claws" then ""A" has scratched the whole "B". ";
+    if A lost then (A not lost; A is not in);
+    if A won then A not won;
+  .
+  Or the tournament complete;
+.
+If X is in then ""X" is the winner!".
+
+"
+"

data/sample/university.sdl

@@ -0,0 +1,53 @@
+"Oliver" is a boy.
+"Sam" is a boy.
+"Nathan" is a boy.
+"John" is a boy.
+"Jack" is a boy.
+"Katie" is a girl.
+"Abigail" is a girl.
+"Rose" is a girl.
+"Madeleine" is a girl.
+"Liza" is a girl.
+
+"
+University
+==========
+
+"
+
+"Once upon a time in the University went "; for all X is a boy or X is a girl,
+X", "; "that's it. They quickly became friends and went out often. "
+
+While X is a boy and X not loves *:
+  if X is a boy and X not loves * and Y is a girl and * not loves Y then:
+    either:
+      "Once they all went out to a bar. Everyone danced. ";
+      either
+        ""  (note: this means "do nothing")
+      or:
+        ""X" and "Y" danced together the most. They liked each other and soon they fell in love! ";
+        X loves Y.
+    .
+    or:
+      "Once "X" and "Y" met in the dorm's kitchen. ";
+      either
+        "They talked nicely and prepared a nice supper. "
+      or:
+        "They talked very much and prepared a great supper together. Soon they understood that they love each other! ";
+        X loves Y.
+    .
+    or:
+      "Once "X" and "Y" were at the lecture and constantly looked at each other. ";
+      either
+        "After the lectures they went home and did their home tasks. "
+      or:
+        "After the lectures "X" caught "Y" and told her that he loves her! "
+        X loves Y.
+    .
+  .
+.
+
+"
+
+Then they all lived long and happy!
+"

data/sample//320/261/320/276/320/271/321/206/320/276/320/262/321/201/320/272/320/270/320/271_/320/272/320/273/321/203/320/261.sdl

@@ -0,0 +1,58 @@
+"
+Бойцовский клуб
+===============
+
+"
+
+```
+require 'unique_names'
+
+names = UniqueNames.russian_male
+```
+
+"Сегодня в бойцовском клубе проводится турнир! Поприветствуйте участников:"
+
+10 раз:
+  ```n = names.pop```;
+  N - текущий участник;
+  N участвует в турнире;
+  "
+  - "N", ";
+  либо "тигр", либо "лис", либо "медведь", либо ("конь"; N имеет копыта);
+  " ";
+  либо ("с сильными руками"; N использует "руки"),
+  либо ("с сильными ногами"; N использует "ноги"),
+  либо:
+    если X - текущий участник и X имеет копыта, то (
+      "с мощными копытами"; X использует "копыта"
+    )
+    или (
+      "с острыми когтями"; N использует "когти"
+    )
+  .
+  N - не текущий участник;
+.
+"
+
+Да начнется турнир!
+
+"
+Пока не конец турнира:
+  Если X участвует в турнире и Y участвует в турнире и X != Y, то:
+    (note: бой!)
+    либо (X победил; Y проиграл), либо (Y победил; X проиграл);
+    (note: дя, надо сделать, чтобы в условиях можно было существующие
+           переменные использовать, а не только захватывать новые)
+    если A победил и B проиграл и A использует "руки", то ""A" избил "B". "
+    или если A победил и B проиграл и A использует "ноги", то ""A" запинал "B". "
+    или если A победил и B проиграл и A использует "копыта", то ""A" лягнул "B" и вырубил его. "
+    или если A победил и B проиграл и A использует "когти", то ""A" исцарапал всего "B". ";
+    если A проиграл, то (A не проиграл; A не участвует в турнире);
+    если A победил, то A не победил;
+  .
+  Или конец турнира;
+.
+Если X участвует в турнире, то ""X" - победитель!".
+
+"
+"