story-gen 0.0.2 → 0.0.3

data/.yardopts

@@ -1,2 +1,4 @@
 --protected
 --hide-api private
+--files sample/*
+--load yardopts_extra.rb

data/README.md

@@ -258,11 +258,6 @@ Top-level statements may also be delimited with dot ("."):
     "Sabrina" is a girl.
     "John" loves "Liza".
 
-"If" statement may include a comma before `then` and `or`:
-    
-    If X is a boy, then "we know "X,
-    or if Y is a girl, then "we know "Y
-
 There is another form of the statements combination:
 
     if X is a boy then:
@@ -274,11 +269,25 @@ Keywords `if`, `either`, `or`, `for` (in `for all`) and `while` may start with a
 
 You may also use russian keywords! ;)
 
-Examples
---------
+### Mods ###
+
+When `-m` or `--allow-comma-in-facts` is passed to `story`, the optional comma in "while" and "for all" becomes disallowed:
+  
+    For all A, B, C loves D, "Love quadrangle!";   /* ERROR, ambiguity! */
+    For all A, B, C loves D: "Love quadrangle!".   /* OK */
+    For all A, B, C loves D ("Love quadrangle!");  /* OK too */
+  
+Trailing comma in Fact expression is ignored:
+    
+    For all X loves Y, ("Someone loves other one!")
+      /* is the same as */
+    For all X loves Y ("Someone loves other one!")
 
-See them in "sample" directory!
+    If (A loves B,) and (B loves C,) then ...
+      /* is the same as */
+    If (A loves B) and (B loves C) then ...
 
-You may find the "sample" directory with
+Examples
+--------
 
-    story --samples
+See them in "sample" directory (you may get it with `story --samples`)! Or in YARD doc's "File list"!

data/bin/story

@@ -6,6 +6,7 @@ require 'story/samples_dir'
 $output_file = nil
 $input_file = nil
 $story_class_name = nil
+$allow_comma_in_facts = false
 $process = lambda do |story_class_code, output|
   # execute the story
   story_class = eval story_class_code
@@ -34,14 +35,19 @@ OptionParser.new do |opts|
                                 "instead of an anonymous class" do |name|
     $story_class_name = name
   end
-  opts.on "-r", "--show-relations", "Show relations mentioned in the story" do
+  opts.on "-m", "--allow-comma-in-facts", "Allow `,' in Fact expressions",
+                                          "(see `Mods' in README)" do
+    $allow_comma_in_facts = true
+  end
+  opts.on "-r", "--show-relations", "Show relations mentioned in the story",
+                                    "(useful for debug)" do
     $process = lambda do |story_class_code, output|
       story_class = eval story_class_code
       story = story_class.new
       story.relations.each { |relation| output.puts relation }
     end
   end
-  opts.on "--samples", "Show directory with samples and exit" do
+  opts.on "-S", "--samples", "Show directory with samples and exit" do
     puts Story::SAMPLES_DIR
     exit
   end
@@ -61,7 +67,7 @@ begin
     end
   story_class_code =
     begin
-      Story.compile(input_text, $input_file || "-")
+      Story.compile(input_text, $input_file || "-", $allow_comma_in_facts)
     rescue Parse::Error => e
       abort "error: #{e.pos.file}:#{e.pos.line+1}:#{e.pos.column+1}: #{e.message}"
     end
@@ -84,4 +90,6 @@ begin
   end
 rescue IOError => e
   abort "error: #{e.message}"
+rescue SystemCallError => e
+  abort "error: #{e.message}"
 end

data/lib/story/compile.rb

@@ -21,12 +21,16 @@ class Story
   
   # @param [String] text
   # @param [String] file a file the +text+ is taken from.
+  # @param [Boolean] allow_comma_in_fact_expr_primary
   # @return [String] a {String} which {Kernel#eval}s to a {Class} which
   #   inherits {Story}.
   # @raise [Parse::Error]
-  def self.compile(text, file = "-")
+  def self.compile(text, file = "-", allow_comma_in_fact_expr_primary = false)
     #
-    c = Parse.new.(text, file).to_code
+    c = Parse.new.
+      tap { |p| p.allow_comma_in_fact_expr_primary = allow_comma_in_fact_expr_primary }.
+      (text, file).
+      to_code
     # 
     relation_id_to_var_arg_valuesss_var = Hash.new do |h, relation_id|
       h[relation_id] = "@#{INTERNAL_VAR_PREFIX}var_arg_valuesss#{h.size}"
@@ -594,6 +598,14 @@ class Story
   # @!visibility private
   class Parse < ::Parse
     
+    # ---------------
+    # @!group Options
+    # ---------------
+    
+    # @return [Boolean] is "," in {#fact_expr_primary} allowed? Default is
+    #   false.
+    attr_accessor :allow_comma_in_fact_expr_primary
+    
     # --------------
     # @!group Syntax
     # --------------
@@ -732,12 +744,14 @@ class Story
     end
     
     rule :fact_expr_primary do
+      allow_comma = allow_comma_in_fact_expr_primary
       relation_id = []
       args = []
       negated = false
       # 
       one_or_more {
         _{ s = (_{dash} or _{other_char}) and act { relation_id << s } } or
+        _{ allow_comma and s = comma and act { relation_id << s } } or
         _{ a = asterisk and act { args << a; relation_id << :* } } or
         _{ _not_ and act { negated = !negated } } or
         _{ v = value and act { args << v; relation_id << :* } } or
@@ -745,7 +759,7 @@ class Story
         _{ v = above_var and act { args << v; relation_id << :* } } or
         _{ w = word and act { relation_id << w.ru_downcase } }
       } and
-#       act { relation_id.chomp!(",") } and
+      act { relation_id.chomp!(",") } and
       # this is not a "statement_tell" and
       not relation_id.all? { |p| p == :* } and
       e = _(FactExpr::Primary[relation_id, args]) and

data/lib/story/samples_dir.rb

@@ -1,6 +1,6 @@
 
 class Story
   
-  SAMPLES_DIR = "#{File.dirname __FILE__}/../../sample"
+  SAMPLES_DIR = File.expand_path "#{File.dirname __FILE__}/../../sample"
   
 end

data/sample/fight_club.sdl

@@ -1,3 +1,5 @@
+(note: this is a sample story written in SDL - Story Description Language)
+
 "
 Fight club
 ==========

data/sample/university.sdl

@@ -1,3 +1,5 @@
+(note: this is a sample story written in SDL - Story Description Language)
+
 "Oliver" is a boy.
 "Sam" is a boy.
 "Nathan" is a boy.

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

@@ -1,3 +1,5 @@
+(прим.: это пример стории, написанной на SDL - Языке Описания Историй)
+
 "
 Бойцовский клуб
 ===============

data/sample//321/203/320/275/320/270/320/262/320/265/321/200/321/201/320/270/321/202/320/265/321/202.sdl

@@ -1,3 +1,5 @@
+(прим.: это пример стории, написанной на SDL - Языке Описания Историй)
+
 "Слава" - самец.
 "Вова" - самец.
 "Юрий" - самец.

data/sample//321/203/320/275/320/270/320/262/320/265/321/200/321/201/320/270/321/202/320/265/321/202_2.sdl

@@ -0,0 +1,71 @@
+(прим.: это пример стории, написанной на SDL - Языке Описания Историй)
+
+"Слава" - самец.
+"Вова" - самец.
+"Юрий" - самец.
+"Борис" - самец.
+"Гриша" - самец.
+"Зоя" - самка.
+"Вика" - самка.
+"Света" - самка.
+"Лиля" - самка.
+"Юля" - самка.
+
+"
+Университет
+===========
+"
+nl
+
+"Как-то раз в университет поступили "; для всех X - самец или X - самка, X", ";
+"вот. Они быстро стали друзьями и часто гуляли все вместе. "
+
+Для всех X - самец или X - самка: X свободен.
+
+Пока * свободен:
+  если X свободен и Y свободен и X <> Y, то:
+    либо:
+      "Как-то раз они все вместе пошли в бар. Было много танцев. ";
+      либо
+        ""  (прим.: это значит "ничего не делать")
+      либо:
+        ""X" и "Y" танцевали в основном вместе. Они понравились друг другу и вскоре влюбились! ";
+        X любит Y;
+        X не свободен;
+        Y не свободен;
+      .
+    .
+    Либо:
+      "Как-то раз "X" и "Y" встретились в общежитии на кухне. ";
+      либо
+        "Они приятно побеседовали и приготовили вкусный ужин. "
+      либо:
+        "Они очень много беседовали и вместе приготовили отменный ужин. ";
+        "Вскоре они поняли, что любят друг друга! ";
+        X любит Y;
+        X не свободен;
+        Y не свободен;
+      .
+    .
+    Либо:
+      "Как-то раз "X" и "Y" сидели на лекции и постоянно оглядывались друг на друга. ";
+      либо
+        "После лекций они пошли домой и делали уроки. "
+      либо:
+        если ^X - самец, то "После лекций "X" поймал "Y" и сказал ";
+        или если ^X - самка, то "После лекций "X" поймала "Y" и сказала ";
+        если ^Y - самка, то "ей, что любит её! ";
+        или если ^Y - самец, то "ему, что любит его! ";
+        X любит Y;
+        X не свободен;
+        Y не свободен;
+      .
+    .
+  .
+.
+
+nl
+nl
+"И жили они долго и счастливо!". Если X любит Y и ((X - самец и Y - самец) или (X - самка и Y - самка)), то " Правда, роскомнадзорненько как-то получилось.";
+nl
+nl

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: story-gen
 version: !ruby/object:Gem::Version
-  version: 0.0.2
+  version: 0.0.3
   prerelease: 
 platform: ruby
 authors:
@@ -9,7 +9,7 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2016-01-30 00:00:00.000000000 Z
+date: 2016-01-31 00:00:00.000000000 Z
 dependencies: []
 description: Generate stories from descriptions based on Facts!
 email: various.furriness@gmail.com
@@ -46,6 +46,7 @@ files:
 - sample/университет.sdl
 - sample/бойцовский_клуб.sdl
 - sample/university.sdl
+- sample/университет_2.sdl
 - bin/story
 homepage: 
 licenses: