Changeset 3534

Timestamp:

12/24/07 18:33:20 (5 years ago)

Author:

nanki

Message:

lang/ruby/misc/yhara/new-harizon.rb: refactored, use optparse.

Files:

• lang/ruby/misc/yhara/new-harizon.rb (modified) (8 diffs)

lang/ruby/misc/yhara/new-harizon.rb

@@ -9 +9 @@
 VOICES = %w(Alex Bruce Fred Junior Ralph Agnes Kathy Princess Vicki Victoria Albert Bad\ News Bahh Bells Boing Bubbles Cellos Deranged Good\ News Hysterical Pipe\ Organ Trinoids Whisper Zarvox)
 
+module Say
+  def putsnsay(arg)
+    puts arg
+    say arg
+  end
+
+  def say(arg, options = {})
+    `say #{options[:voice] ? "-v #{options[:voice]}" : ''} #{arg}`
+  end
+end
+
 class Speaker
   attr_reader :name
+
   def initialize(name = self.class.name)
     @name = name
   end
 
-  def voice(context = [])
+  def voice(context = nil)
     @name
+  end
+
+  def talk(context)
+    words = (0..rand(7)).map { %w[y hara].choice }.join(' ')
+    eos = %w(? ? . . . . . . . . !).choice
+    [Remark.new(self, words, eos)]
   end
 
@@ -49 +67 @@
 class Yhara < Speaker
   def initialize
-    @name = "yhara"
+    super 'yhara'
   end
 
@@ -58 +76 @@
 
 class Jenifer < Speaker
+  ARABIAN = %w[ايران نيست]
+
   def initialize
-    @name = "jenifer"
+    super 'jenifer'
+  end
+
+  def talk(context)
+    words, pron = (0..rand(3)).map { ARABIAN.choice }.map {|word| [word, pronounce_arabically(word)] }.transpose.map {|e| e.join(' ') }
+    [Remark.new(self, words, '', :pronounciation => pron)]
   end
 
@@ -65 +90 @@
     'Princess'
   end
-end
-
-class Text
-  attr_reader :speaker,:words,:eos
-  def initialize(speaker,words,eos)
+
+  private
+  def pronounce_arabically(word)
+    case word
+    when ARABIAN[0]
+      'al-lughatu'
+    when ARABIAN[1]
+      'l-arabiyah'
+    end
+  end
+end
+
+class Remark
+  attr_reader :speaker, :words, :eos, :pronounciation
+
+  def initialize(speaker, words, eos, options = {})
     @speaker = speaker
     @words = words
-    @eos = eos  # end of text : "?" or "."
+    @eos = eos # end of text : "?" or "." or "!"
+    @pronounciation = options[:pronounciation] || text
   end
 
@@ -79 +116 @@
   end
 
-  def question?
+  def interrogative?
     @eos == '?'
   end
@@ -88 +125 @@
 
   def say(context = nil)
-    voice = @speaker.voice(context)
-    `say -v #{voice} #{text}`
+    Kernel.say pronounciation, :voice => @speaker.voice(context)
   end
 
@@ -97 +133 @@
 end
 
+include Say
+
+require 'optparse'
+config = {}
+OptionParser.new do |opts|
+  opts.separator ""
+  opts.separator "Optional:"
+  opts.on('-E', '--no-exercise'   , 'Skip Exercise.'             ) { config[:no_exercise ] = true }
+  opts.on('-I', '--no-interactive', 'Skip Interactive Dictation.') { config[:no_dictation] = true }
+  opts.parse(ARGV)
+end
+
+lesson = 0
 speakers = [Alex.new, Vicki.new]
-lesson = 0
 
 loop do
@@ -104 +152 @@
   context = []
 
-  puts "LESSON #{lesson}"
-  `say lesson #{lesson}`
-  `say Repeat after me.`
+  putsnsay "LESSON #{lesson}"
+  say 'Repeat after me.'
   sleep 1
 
   (5 + rand(10)).times do
-    words = (0..rand(7)).map { %w[y hara].choice }.join(' ')
-    eos = rand < 0.2 ? '?' : '.'
-
-    speaker = speakers[rand(2)]
-    speaker = Yhara.new if context && context.last && context.last.words =~ /y hara/ and context.last.question? and rand < 0.25
-
     # Jenifer appears
-    if ( context && context.last && context.last.speaker.class == Yhara && rand < 0.25 ) ||  rand < 0.01 
+    if ( context.last && Yhara === context.last.speaker && rand < 0.25 ) ||  rand < 0.01
       speaker = Jenifer.new
-      arabian = %w[ايران  نيست]
-      words = (0..rand(3)).map { arabian.choice }.join(' ')
-
-      text = Text.new(speaker,words,eos)
-      text.display 
-
-      words = words.split(/\s+/).map { |word|
-        if   word == arabian[0]
-          'al-lughatu'
-        else word == arabian[1]
-          'l-arabiyah'
-        end
-      } .join(' ')
-
-      text = Text.new(speaker,words,eos)
-      text.say(context)
-      next
-    end
-
-    text = Text.new(speaker,words,eos)
-
-    text.display 
-    text.say(context)
-
-    context.push text
+    elsif context.last && context.last.words =~ /y hara/ and context.last.interrogative? and rand < 0.25
+      speaker = Yhara.new
+    else
+      speaker = speakers[rand(2)]
+    end
+
+    speaker.talk(context).each do |remark|
+      remark.display
+      remark.say(context)
+      context.push remark
+    end
   end
 
   sleep 1
-
   puts
-  unless ARGV.include? '--no-exercise'
-    puts "EXERCISE"
-    `say exercise`
+
+  unless config[:no_exercise]
+    putsnsay "EXERCISE"
+
     (1..5).each do |num|
-      i = rand(context.size)
-      text = context[i]
-      context.delete_at i
-
-      `say #{num}` 
-      puts "#{num}. #{text.words.gsub(/[yhar]/, '_')} #{text.eos}"
-      print "   "
-      text.say
-
-      answer = readline.chomp
-      if text.correct?(answer)
-        if num == 5
-          `say y!`
+      remark = context.choice
+      context.delete remark
+
+      say num
+      puts "#{num}. #{remark.words.gsub(/[yhar]/,'_')} #{remark.eos}"
+      remark.say
+
+      unless config[:no_dictation]
+        print "   "
+        answer = readline.chomp
+        if remark.correct?(answer)
+          say(num == 5 ? 'y!' : 'y.')
         else
-          `say y`
+          say 'hara.'
         end
       else
-        `say hara`
+        sleep 1.5
       end
     end