asker-tool 2.1.2

data/lib/asker/ai/stages/stage_f.rb

@@ -0,0 +1,156 @@
+
+require_relative 'base_stage'
+require_relative '../question'
+
+# StageF: process tables with 1 field
+class StageF < BaseStage
+  def run(table, list1, list2)
+    # process_table1field
+    questions = []
+    return questions if table.fields.count>1
+
+    questions += run_only_this_concept(table, list1)
+    questions += run_with_other_concepts(table, list1, list2)
+
+    questions
+  end
+
+private
+
+  def run_only_this_concept(table, list1)
+    questions = []
+    s1 = Set.new #Set of rows from this concept
+    list1.each { |item| s1 << item[:data][0] }
+    a1 = s1.to_a
+    a1.shuffle!
+
+    if a1.size > 3
+      a1.each_cons(4) do |e1,e2,e3,e4|
+        e = [ e1, e2, e3, e4 ]
+        questions += make_questions_with(e, table)
+
+        #Question filtered text
+        e = [ e1, e2, e3, e4 ]
+        e.shuffle!
+        t = "(a) #{e[0]}, (b) #{e[1]}, (c) #{e[2]}, (d) #{e[3]}"
+        filtered=lang.text_with_connectors(t)
+        indexes = filtered[:indexes]
+
+        groups = (indexes.combination(4).to_a).shuffle
+        max    = (indexes.size/4).to_i
+        groups[0, max].each do |i|
+          i.sort!
+          q = Question.new(:match)
+          q.shuffle_off
+          q.name = "#{name}-#{num}-f3filtered"
+          s = lang.build_text_from_filtered(filtered, i)
+          q.text = random_image_for(name(:raw))
+          q.text += lang.text_for(:f3, name(:decorated), table.fields[0].capitalize, s)
+          i.each_with_index do |value,index|
+            q.matching << [(index + 1).to_s, filtered[:words][value][:word].downcase]
+          end
+          questions << q
+        end
+      end
+    else
+      # Execute this block when "a1.size <=3"
+      questions += make_questions_with(a1.dup, table)
+    end
+    questions
+  end
+
+  def make_questions_with(e, table)
+    questions = []
+
+    e.shuffle!
+    q = Question.new(:choice)
+    q.name = "#{name(:id)}-#{num}-f1true#{e.size}-#{table.name}"
+    q.text = random_image_for(name(:raw))
+    q.text += lang.text_for(:f1, name(:decorated), table.fields[0].capitalize, e.join('</li><li>'))
+    q.good =  lang.text_for(:true)
+    q.bads << lang.text_for(:misspelling)
+    q.bads << lang.text_for(:false)
+
+    if type == 'text'
+      e.shuffle!
+      q = Question.new(:short)
+      q.name = "#{name(:id)}-#{num}-f1short#{e.size}-#{table.name}"
+      q.text = random_image_for(name(:raw))
+      q.text += lang.text_for(:f1, lang.hide_text(name(:raw)), table.fields[0].capitalize, e.join('</li><li>'))
+      q.shorts << name(:raw)
+      q.shorts << name(:raw).tr('-_', ' ')
+      questions << q
+
+      e.shuffle!
+      save = e[0]
+      e[0] = lang.do_mistake_to(e[0])
+      q = Question.new(:choice)
+      q.name = "#{name(:id)}-#{num}-f1name-misspelled#{e.size}-#{table.name}"
+      q.text = random_image_for(name(:raw))
+      q.text += lang.text_for(:f1, lang.do_mistake_to(name(:decorated)), table.fields[0].capitalize, e.join('</li><li>'))
+      q.good =  lang.text_for(:misspelling)
+      q.bads << lang.text_for(:true)
+      q.bads << lang.text_for(:false)
+      q.feedback = "Concept name #{name(:raw)} misspelled!"
+      e[0] = save
+      questions << q
+    end
+
+    e.shuffle!
+    save = e[0]
+    e[0] = lang.do_mistake_to(e[0])
+    q = Question.new(:choice)
+    q.name = "#{name(:id)}-#{num}-f1true-misspelled#{e.size}-#{table.name}"
+    q.text = random_image_for(name(:raw))
+    q.text += lang.text_for(:f1, name(:decorated), table.fields[0].capitalize, e.join('</li><li>'))
+    q.good =  lang.text_for(:misspelling)
+    q.bads << lang.text_for(:true)
+    q.bads << lang.text_for(:false)
+    q.feedback = "Text #{save} mispelled!"
+    e[0] = save
+    questions << q
+  end
+
+  def run_with_other_concepts(table, list1, list2)
+    questions = []
+
+    s1 = Set.new # Set of rows from this concept
+    list1.each { |item| s1 << item[:data][0] }
+    a1 = s1.to_a
+    a1.shuffle!
+
+    s2 = Set.new # Set of rows from other concepts
+    list2.each { |item| s2 << item[:data][0] }
+    a2 = s2.to_a
+    a2 -= a1
+
+    return questions if a1.size <= 2 || a2.empty?
+
+    a1.each_cons(3) do |e1, e2, e3|
+      f4 = a2.shuffle![0]
+      e = [e1, e2, e3, f4]
+      e.shuffle!
+      q = Question.new(:choice)
+      q.name = "#{name(:id)}-#{num}-f1false-#{table.name}"
+      q.text = random_image_for(name(:raw))
+      q.text += lang.text_for(:f1, name(:decorated), table.fields[0].capitalize, e.join('</li><li>'))
+      q.good =  lang.text_for(:false)
+      q.bads << lang.text_for(:misspelling)
+      q.bads << lang.text_for(:true)
+      questions << q
+
+      f4 = a2.shuffle![0]
+      q = Question.new(:choice)
+      q.name = "#{name(:id)}-#{num}-f2outsider-#{table.name}"
+      q.text = random_image_for(name(:raw))
+      q.text += lang.text_for(:f2, name(:decorated), table.fields[0].capitalize)
+      q.good =  f4
+      q.bads << e1
+      q.bads << e2
+      q.bads << e3
+      questions << q
+    end
+
+    questions
+  end
+end

data/lib/asker/ai/stages/stage_i.rb

@@ -0,0 +1,140 @@
+# encoding: utf-8
+
+require 'base64_compatible' # TODO: Don't work with Moodle Gift images
+require 'set'
+
+require_relative 'base_stage'
+require_relative '../question'
+
+class StageI < BaseStage
+  # range i1, i2, i3
+
+  def run
+    # Stage I: process every image from <def> tag
+    questions=[]
+    return questions unless type=="text"
+
+    # for every <image> do this
+    images.each do |url|
+      s=Set.new [name, lang.text_for(:none)]
+      neighbors.each { |n| s.add n[:concept].name }
+      a=s.to_a
+
+      # Question type <f1>: choose between 4 options
+      if s.count>3 then
+        q=Question.new(:choice)
+        q.name="#{name}-#{num}-i1choice"
+        q.text=lang.text_for(:i1, url )
+        q.good=name
+        q.bads << lang.text_for(:none)
+        q.bads << a[2]
+        q.bads << a[3]
+        questions << q
+      end
+
+      #Question type <i1>: choose between 4 options, good none (Syntax error)
+      if s.count>3 then
+        q=Question.new(:choice)
+        q.name="#{name}-#{num}-i1misspelling"
+        q.text=lang.text_for(:i1, url )
+        q.good = lang.text_for(:none)
+        q.bads << lang.do_mistake_to(name)
+        q.bads << a[2]
+        q.bads << a[3]
+        questions << q
+      end
+
+      s.delete(name)
+      a=s.to_a
+
+      #Question type <i1>: choose between 4 options, good none
+      if s.count>3 then
+        q = Question.new(:choice)
+        q.name="#{name}-#{num}-i1none"
+        q.text=lang.text_for(:i1, url )
+        q.good=lang.text_for(:none)
+        q.bads << a[1]
+        q.bads << a[2]
+        q.bads << a[3]
+        questions << q
+      end
+
+      #Question type <f2>: boolean => TRUE
+      q = Question.new(:boolean)
+      q.name="#{name}-#{num}-i2true"
+      q.text=lang.text_for(:i2, url, name )
+      q.good="TRUE"
+      questions << q
+
+      #Question type <i2>: boolean => FALSE
+      if neighbors.count>0 then
+        q = Question.new(:boolean)
+        q.name="#{name}-#{num}-i2false"
+        q.text=lang.text_for(:i2, url, neighbors[0][:concept].name )
+        q.good="FALSE"
+        questions << q
+      end
+
+      #Question type <i3>: hidden name questions
+      q = Question.new(:short)
+      q.name="#{name}-#{num}-i3short"
+      q.text=lang.text_for(:i3, url, lang.hide_text(name) )
+      q.shorts << name
+      q.shorts << name.gsub("-"," ").gsub("_"," ")
+      questions << q
+
+      #Question filtered text questions
+      texts.each do |t|
+        filtered=lang.text_with_connectors(t)
+
+        if filtered[:words].size>=4 then
+#          indexes=Set.new
+#          words=filtered[:words]
+#          while indexes.size<4
+#            i=rand(filtered[:words].size)
+#            flag=true
+#            flag=false if words[i].include?("[") or words[i].include?("]") or words[i].include?("(") or words[i].include?(")") or words[i].include?("\"")
+#            indexes << i if flag
+#          end
+#          indexes=indexes.to_a.sort
+          indexes = filtered[:indexes]
+          groups = (indexes.combination(4).to_a).shuffle
+          max    = (indexes.size/4).to_i
+          groups[0,max].each do |e|
+            q = Question.new(:match)
+            q.shuffle_off
+            q.name = "#{name}-#{num}-i4filtered"
+            e.sort!
+            s=lang.build_text_from_filtered( filtered, e )
+            q.text = lang.text_for(:i4, url , s)
+            e.each_with_index do |value,index|
+              q.matching << [ (index+1).to_s, filtered[:words][value][:word].downcase ]
+            end
+          end
+          questions << q
+        end
+      end #each texts
+    end #each images
+    return questions
+  end
+
+private
+
+  def html_for_raw_image(filename)
+    dirname = File.dirname(@concept_ia.filename)
+    filepath = File.join(dirname,filename)
+    content = File.open(filepath).read
+    content64 = Base64Compatible.encode64( content )
+    output =""
+    until(content64.nil?) do
+      output = output + content64[0,76]+"\n"
+      tmp = content64[76,9999999]
+      content64 = tmp
+    end
+
+    ext =  File.extname(filename)
+    output = "<img src='data:image/#{ext};base64,#{output}' />"
+    return output
+  end
+
+end

data/lib/asker/ai/stages/stage_s.rb

@@ -0,0 +1,52 @@
+# encoding: utf-8
+
+require_relative 'base_stage'
+require_relative '../question'
+
+class StageS < BaseStage
+
+  def run(pTable, pList1, pList2)
+    #process_sequence
+    questions = []
+    return questions unless ( pTable.fields.count==1 and pTable.sequence? and pTable.sequence[0]!="")
+
+    #TODO
+    #items=[]
+    #pList1.each_with_index { |i,j| items<<[ i[:data][0], j] }
+    #puts Rainbow(items).blue.bright
+
+    #Question type <d3sequence>: items are part of a sequence
+    if pList1.count>3
+	    a=0..(pList1.count-4)
+	    a.each_entry do |i|
+        q=Question.new(:match)
+        q.name="#{name}-#{num.to_s}-s1sequence-#{pTable.name}"
+        q.text= random_image_for(name) + lang.text_for(:s1, name, pTable.fields[0].capitalize, pTable.sequence[0] )
+        q.matching << [ pList1[i+0][:data][0], '1º' ]
+        q.matching << [ pList1[i+1][:data][0], '2º' ]
+        q.matching << [ pList1[i+2][:data][0], '3º' ]
+        q.matching << [ pList1[i+3][:data][0], '4º' ]
+        questions << q
+      end
+    end
+
+    #Question type <d4sequence>: items are part of a reverse sequence
+    if pList1.count>3 and pTable.sequence.size>1
+	    a=0..(pList1.count-4)
+	    a.each_entry do |i|
+        q=Question.new
+        q.set_match
+        q.name="#{name}-#{num.to_s}-s2sequence-#{pTable.name}"
+        q.text= random_image_for(name) + lang.text_for(:s1, name, pTable.fields[0].capitalize, pTable.sequence[1] )
+        q.matching << [ pList1[i+3][:data][0], '1º' ]
+        q.matching << [ pList1[i+2][:data][0], '2º' ]
+        q.matching << [ pList1[i+1][:data][0], '3º' ]
+        q.matching << [ pList1[i+0][:data][0], '4º' ]
+        questions << q
+      end
+	  end
+
+    return questions
+  end
+
+end

data/lib/asker/ai/stages/stage_t.rb

@@ -0,0 +1,170 @@
+# encoding: utf-8
+
+require 'set'
+require_relative 'base_stage'
+require_relative '../question'
+
+class StageT < BaseStage
+  #range t1-t9...c1-c9
+
+  def run(pTable, pRow, pList) #process_tableXfields
+    questions = []
+    return questions unless type=="text"
+
+    if pTable.fields.count>1 then
+      questions = questions + process_table2fields(pTable, pRow, pList, 0, 1)
+    elsif pTable.fields.count>2 then
+      questions = questions + process_table2fields(pTable, pRow, pList, 0, 2)
+      questions = questions + process_table2fields(pTable, pRow, pList, 1, 2)
+    elsif pTable.fields.count>3 then
+      questions = questions + process_table2fields(pTable, pRow, pList, 0, 3)
+      questions = questions + process_table2fields(pTable, pRow, pList, 1, 3)
+      questions = questions + process_table2fields(pTable, pRow, pList, 2, 3)
+    end
+
+    return questions
+  end
+
+private
+  def process_table2fields(lTable, lRow, pList, pCol1, pCol2)
+    questions = []
+    #create gift questions
+
+    # Using the column #0
+    s=Set.new [ lRow[:data][0] , lang.text_for(:none) ]
+    pList.each { |i| s.add( i[:data][0] ) }
+    a=s.to_a
+
+    if s.count>3 then
+      q=Question.new
+      q.name="#{name}-#{num.to_s}-t1table-#{lTable.name}"
+      q.text=lang.text_for(:t1table, name, lTable.fields[0].capitalize, lTable.fields[1].capitalize, lRow[:data][1])
+      q.good=lRow[:data][0]
+      q.bads << lang.text_for(:none)
+      q.bads << a[2]
+      q.bads << a[3]
+      questions << q
+    end
+
+    s=Set.new [ lRow[:data][0], lang.text_for(:none) ]
+    pList.each { |i| s.add( i[:data][0] ) }
+    a=s.to_a
+
+    if s.count>4 then
+      q=Question.new
+      q.name="#{name}-#{num.to_s}-t2table-#{lTable.name}"
+      q.text=lang.text_for(:t2table, name, lTable.fields[0].capitalize, lTable.fields[1].capitalize, lRow[:data][1])
+      q.good=lang.text_for(:none)
+      q.bads << a[2]
+      q.bads << a[3]
+      q.bads << a[4]
+      questions << q
+    end
+
+    # Using the column #1
+    s=Set.new [ lRow[:data][1], lang.text_for(:none) ]
+    pList.each { |i| s.add( i[:data][1] ) }
+    a=s.to_a
+
+    if s.count>3 then
+      q=Question.new
+      q.name="#{name}-#{num.to_s}-t3table-#{lTable.name}"
+      q.text=lang.text_for(:t3table, name, lTable.fields[0].capitalize, lRow[:data][0], lTable.fields[1].capitalize)
+      q.good=a[0]
+      q.bads << lang.text_for(:none)
+      q.bads << a[2]
+      q.bads << a[3]
+      questions << q
+    end
+
+    s=Set.new [ lRow[:data][1], lang.text_for(:none) ]
+    pList.each { |i| s.add( i[:data][1] ) }
+    a=s.to_a
+
+    if s.count>4 then
+      q=Question.new
+      q.name="#{name}-#{num.to_s}-t4table-#{lTable.name}"
+      q.text=lang.text_for(:t4table, name, lTable.fields[0].capitalize, lRow[:data][0], lTable.fields[1].capitalize)
+      q.good=lang.text_for(:none)
+      q.bads << a[2]
+      q.bads << a[3]
+      q.bads << a[4]
+      questions << q
+    end
+
+    # Boolean association TRUE
+    q=Question.new
+    q.set_boolean
+    q.name="#{name}-#{num.to_s}t5table-#{lTable.name}"
+    q.text=lang.text_for(:t5table, name, lTable.fields[0].capitalize, lRow[:data][0] ,lTable.fields[1].capitalize, lRow[:data][1] )
+    q.good="TRUE"
+    questions << q
+
+    # Boolean association FALSE
+    s=Set.new [ lRow[:data][1] ]
+    pList.each { |i| s.add( i[:data][1] ) }
+    a=s.to_a
+
+    if s.count>1 then
+      q=Question.new
+      q.set_boolean
+      q.name="#{name}-#{num.to_s}-t6table-#{lTable.name}"
+      q.text=lang.text_for(:t6table, name, lTable.fields[0].capitalize, lRow[:data][0], lTable.fields[1].capitalize, a[1] )
+      q.good="FALSE"
+      questions << q
+    end
+
+    s=Set.new [ lRow[:data][0] ]
+    pList.each { |i| s.add( i[:data][0] ) }
+    a=s.to_a
+
+    if s.count>1 then
+      q=Question.new
+      q.set_boolean
+      q.name="#{name}-#{num.to_s}t7table-#{lTable.name}"
+      q.text=lang.text_for(:t7table, name, lTable.fields[0].capitalize, a[1], lTable.fields[1].capitalize, lRow[:data][1] )
+      q.good="FALSE"
+      questions << q
+    end
+
+    # Short answer with column #0, 1 word
+    if lang.count_words(lRow[:data][0])==1 then
+      q=Question.new
+      q.set_short
+      q.name="#{name}-#{num.to_s}t8table-#{lTable.name}"
+      q.text=lang.text_for(:t8table, name, lTable.fields[1].capitalize, lRow[:data][1], lTable.fields[0].capitalize)
+      q.shorts << lRow[:data][0]
+      q.shorts << lRow[:data][0].gsub("-"," ").gsub("_"," ")
+      questions << q
+    elsif lang.count_words(lRow[:data][0])==2 then
+      q=Question.new
+      q.set_short
+      q.name="#{name}-#{num.to_s}t9table-#{lTable.name}"
+      q.text=lang.text_for(:t9table, name, lTable.fields[1].capitalize, lRow[:data][1], lTable.fields[0].capitalize, "[#{lang.hide_text(lRow[:data][0])}]", lang.count_words(lRow[:data][0]) )
+      q.shorts << lRow[:data][0]
+      q.shorts << lRow[:data][0].gsub("-"," ").gsub("_"," ")
+      questions << q
+    end
+
+    # Short answer with column #1, 1 word
+    if lang.count_words(lRow[:data][1])==1 then
+      q=Question.new
+      q.set_short
+      q.name="#{name}-#{num.to_s}t8table-#{lTable.name}"
+      q.text=lang.text_for(:t8table, name, lTable.fields[0].capitalize, lRow[:data][0], lTable.fields[1].capitalize)
+      q.shorts << lRow[:data][1]
+      q.shorts << lRow[:data][1].gsub("-"," ").gsub("_"," ")
+      questions << q
+    elsif lang.count_words(lRow[:data][1])==2 then
+      q=Question.new
+      q.set_short
+      q.name="#{name}-#{num.to_s}t9table-#{lTable.name}"
+      q.text=lang.text_for(:t9table, name, lTable.fields[0].capitalize, lRow[:data][0], lTable.fields[1].capitalize, "[#{lang.hide_text(lRow[:data][1])}]", lang.count_words(lRow[:data][1]) )
+      q.shorts << lRow[:data][1]
+      q.shorts << lRow[:data][1].gsub("-"," ").gsub("_"," ")
+      questions << q
+    end
+    return questions
+  end
+
+end