asciidoctor-moodle 1.0.0.dev

data/lib/asciidoctor-moodle/drag_drop_text and missing_words/extension.rb

@@ -0,0 +1,162 @@
+require_relative '../extensions'
+module Asciidoctor
+  module Question
+    class DDTAndMWBlockProcessor < Extensions::BaseProcessor
+
+      def process(parent, source, tag)
+        docName = parent.attributes['docname']
+        id = tag[:id]
+        err = nil
+        subTypeQuest = tag[:type]
+        question = createQuestion(source.lines, docName,id, subTypeQuest)
+
+
+        stringQuest = question.join(" ") 
+        numberQuest= 0
+        copySQ = stringQuest.clone 
+
+
+        if subTypeQuest == "DDT" or subTypeQuest =="ddt"
+          ans = prepare_dragbox(copySQ)
+        else
+          ans =prepare_option(copySQ)
+        end
+
+        stringQuest.gsub! /\*(.+?)\*/ do |value| 
+          numberQuest+=1
+          prepare_question value.gsub('*', ''), numberQuest           
+        end
+        stringQuest << ans
+
+        new_parent = Asciidoctor::Block.new parent, :open, {:attributes => {'id' => "#{docName}question_#{id}_#{subTypeQuest}"}}
+        
+
+        reader = Asciidoctor::Reader.new stringQuest
+
+        
+        loop do
+          block = Asciidoctor::Parser.next_block reader, new_parent
+          
+          break if block.nil? 
+
+          if block.context == :listing
+           
+            block.subs.push :macros
+            block.subs.push :quotes
+          end
+          new_parent.blocks.push block
+        end
+        
+        if err.nil? 
+          
+          post_answers new_parent, tag
+        else
+          process_error_push new_parent, err, source.lines
+        end
+      
+        new_parent
+      end
+
+   end
+
+
+
+    class MOODLEDDTAndMWBlockProcessor < DDTAndMWBlockProcessor
+
+
+      def createQuestion (question, docName, id, subTypeQuest)
+        if subTypeQuest == 'DDT' or subTypeQuest == 'ddt'
+          type="ddwtos"
+        else
+          type = "gapselect"
+        end
+        preQuest = " <question type=\"#{type}\">
+        <name>
+          <text>#{docName}_question_#{id}_#{subTypeQuest}</text>
+        </name>
+        <questiontext format=\"html\">
+          <text><![CDATA[ <p>"
+
+        posQuest = "</p> ]]></text>
+        </questiontext>
+        <generalfeedback format=\"html\">
+        <text></text>
+        </generalfeedback>
+        <defaultgrade>1</defaultgrade>
+        <penalty>0.3333333</penalty>
+        <hidden>0</hidden>
+        <idnumber></idnumber>
+        <shuffleanswers>1</shuffleanswers>
+        <correctfeedback format=\"html\">
+        <text><![CDATA[<p>Your answer is correct.</p>]]></text>
+        </correctfeedback>
+        <partiallycorrectfeedback format=\"html\">
+        <text><![CDATA[<p>Your answer is partially correct.</p>]]></text>
+        </partiallycorrectfeedback>
+        <incorrectfeedback format=\"html\">
+        <text><![CDATA[<p>Your answer is incorrect.</p>]]></text>
+        </incorrectfeedback>
+        <shownumcorrect/>"
+        question = [question.join("</p> <p> ")] #Create the newline
+        
+        question.prepend(preQuest)
+        question.prepend("+++")
+        
+        question.push(posQuest)
+        question.push("+++")
+      end
+
+      def  prepare_question(value, tag)
+        "[[#{tag}]]"
+      end
+
+
+      def recup_ans(copySQ)
+        answers = Array.new
+        regex = %r{(\*.+?\*)} 
+        matchData = regex.match(copySQ)
+        begin 
+        answers.push matchData.captures[0]
+        copySQ.gsub!(matchData.captures[0],"") 
+        matchData = regex.match(copySQ)
+        end while matchData != nil 
+      
+        answers.each do |value| 
+          value.gsub!("*","")
+        end
+        answers
+      end
+     
+
+      def prepare_dragbox(copySQ)
+        answers = recup_ans(copySQ)
+        dragbox ="+++" 
+        answers.each do |val|
+          dragbox << "<dragbox>
+          <text>#{val}</text>
+          <group>1</group>
+          </dragbox> \n"
+        end
+        dragbox <<"</question> +++"
+      end
+
+      def prepare_option(copySQ)
+        answers = recup_ans(copySQ)
+        dragbox ="+++" 
+        answers.each do |val|
+          dragbox << "    <selectoption>
+          <text>#{val}</text>
+          <group>1</group>
+          </selectoption> \n"
+        end
+        dragbox <<"</question> +++"
+      end
+
+      def post_answers(parent, tag)
+
+      end
+
+    end
+
+  end
+end

data/lib/asciidoctor-moodle/extensions.rb

@@ -0,0 +1,34 @@
+require 'asciidoctor' unless defined? ::Asciidoctor::VERSION
+require 'asciidoctor/extensions'
+
+require_relative 'version'
+
+module Asciidoctor
+  module Question
+    module Extensions
+      class BaseProcessor < Asciidoctor::Extensions::BlockProcessor
+        use_dsl
+
+        def self.inherited(subclass)
+          subclass.option :contexts, [:example, :literal, :open]
+          subclass.option :content_model, :simple
+        end
+
+        def process_error(parent, err, source_lines)
+          lines = ['[NOTE]', '====', 'Error ! ' + err, '====']
+          block = Asciidoctor::Parser.next_block Asciidoctor::Reader.new(lines), parent
+          block.blocks.push Asciidoctor::Parser.next_block Asciidoctor::Reader.new(['[source, asciidoc]', '----'] + source_lines + ['----']), block
+          block
+        end
+
+        def process_error_push(parent, err, source_lines)
+          parent.blocks.push process_error parent, err, source_lines
+        end
+
+        def post_answers(parent, tag)
+          parent
+        end
+      end
+    end
+  end
+end

data/lib/asciidoctor-moodle/gap/extension.rb

@@ -0,0 +1,93 @@
+require_relative '../extensions'
+
+module Asciidoctor
+  module Question
+    class GAPBlockProcessor < Extensions::BaseProcessor
+
+      def process(parent, source, tag)
+        docName = parent.attributes['docname']
+        id = tag[:id]
+        err = nil
+        
+        question = prepare_question(source.lines, docName,id)
+        stringQuest = question.join(" ") 
+
+        stringQuest.gsub! /__([^_]+?)__/ do |value| 
+          prepare_gap value.gsub('_', ''), tag 
+        end
+
+        new_parent = Asciidoctor::Block.new parent, :open, {:attributes => {'id' => "#{docName}question_#{id}_gap"}}
+        
+
+        reader = Asciidoctor::Reader.new stringQuest
+
+        
+        loop do
+          block = Asciidoctor::Parser.next_block reader, new_parent
+          
+          break if block.nil? 
+
+          if block.context == :listing
+           
+            block.subs.push :macros
+            block.subs.push :quotes
+          end
+          new_parent.blocks.push block
+        end
+        
+        if err.nil? 
+          
+          post_answers new_parent, tag
+        else
+          process_error_push new_parent, err, source.lines
+        end
+      
+        new_parent
+      end
+
+      
+      def prepare_gap(value, tag)
+        value
+      end
+   end
+
+
+
+    class MOODLEGAPBlockProcessor < GAPBlockProcessor
+     
+      def prepare_gap(value, tag)
+        " {1:SHORTANSWER:%100%#{value}} "
+      end
+
+      def prepare_question(question, docName, id)
+        preQuest = " <question type=\"cloze\">
+          <name>
+            <text>#{docName}_question_#{id}_gap </text>
+          </name>
+          <questiontext format=\"html\">
+            <text><![CDATA[ "
+
+        posQuest = " ]]></text>
+          </questiontext>
+          <generalfeedback format=\"html\">
+            <text></text>
+          </generalfeedback>
+          <penalty>0.3333333</penalty>
+          <hidden>0</hidden>
+          <idnumber></idnumber>
+        </question>"
+
+       
+        question.prepend("+++")
+        question.prepend(preQuest)
+        question.prepend("+++")
+        question.push("+++")
+        question.push(posQuest)
+        question.push("+++")
+
+      end
+
+    end
+
+  end
+end

data/lib/asciidoctor-moodle/matching/extension.rb

@@ -0,0 +1,160 @@
+require_relative '../extensions'
+#On peut utiliser l'italique ou le gras pour la question
+module Asciidoctor
+  module Question
+
+    class MatchingBlockProcessor < Extensions::BaseProcessor
+      
+      def nbQuestion(lines)
+        nbQuest = 0
+        lines.map do |answer|
+          if quest =~ /^-\s?/
+            nbQuest +=1 
+          end
+        end
+        nbQuest
+      end
+
+      
+      def splitQuestAndSubQuest(lines)
+          quest = Array.new
+          subQuest = Array.new
+          nbSubQuest = 0
+         
+          lines.each do |line|
+            switch = true if line =~ /(^-|^\*)\s/ 
+            if switch
+              line.sub!(/(^-|^\*)\s/, "")
+              nbSubQuest +=1
+              subQuest.push line
+            else
+              quest.push line
+            end
+            
+          end
+          [nbSubQuest, quest, subQuest]
+       end
+
+
+      def process(parent, source, tag)
+        
+        size = tag.size
+        docName = parent.attributes['docname']
+        id = tag[:id]
+        err = '+++ You need at least 2 questions and one answer for each of them! +++'
+        lines = source.lines #Copy of the remaining Array of String lines managed by the reader
+        nbSubQuest, quest, subQuest = splitQuestAndSubQuest(lines)
+
+        answers = Array.new 
+        tag.each { |key, val| answers.push val if key.class==Integer && key>2 && key< size-3} #Get the tag's answers
+        nbAns = answers.size
+
+        quest = prepare_question_lines(quest, docName, id, nbSubQuest)
+        
+        subQuestAndAns = prepare_subQuest subQuest, answers
+
+       
+        new_parent = Asciidoctor::Block.new parent, :open, {:attributes => {'id' => "#{docName}_question_#{id}_matching"}}
+      
+        
+        if nbAns>= nbSubQuest && nbAns>=2 && nbSubQuest>=2 
+          reader = Asciidoctor::Reader.new(quest)
+          loop do
+            block = Asciidoctor::Parser.next_block reader, new_parent
+            break if block.nil?
+            new_parent.blocks.push block
+          end
+
+          reader = Asciidoctor::Reader.new(subQuestAndAns)
+          answers_block = Asciidoctor::Parser.next_block reader, new_parent
+          new_parent.blocks.push answers_block
+          post_answers new_parent, tag
+
+        else
+          process_error_push new_parent, err, answers
+        end
+        new_parent
+
+        
+      end
+
+      def prepare_answer_lines(lines)
+        lines
+      end
+
+      def prepare_answers(answers_block, tag)
+        answers_block.blocks.shuffle! if tag[:shuffle] == 'shuffle'
+        answers_block
+      end
+
+    end
+
+
+    class MOODLEMatchingBlockProcessor < MatchingBlockProcessor
+      
+      def prepare_subQuest(subQuest, answers)
+        nbSub = subQuest.size
+        nbAns = answers.size
+        text="+++ "
+       
+        preSubQuest = '<subquestion format="html">
+      <text><![CDATA[<p> '
+       postSubQuest = '</p>]]></text>
+       <answer>
+         <text>'
+        noSubQuest = "<subquestion format=\"html\">
+      <text/>
+      <answer>
+    <text>"
+        postAns = "</text>
+      </answer>
+    </subquestion>"
+        
+      nbAns.times do |i|
+        if i<nbSub
+          text << preSubQuest << subQuest[i] << postSubQuest << answers[i] <<postAns
+        else
+          text << noSubQuest <<  answers[i] <<postAns
+        end
+      end
+        text << '</question> +++'
+        text
+      end
+
+      def prepare_question_lines(question, docName,id,nbSubQuest )
+    
+        preQuest = "+++ <question type=\"matching\">
+         <name>
+            <text> #{docName}_question_#{id}_matching </text>
+         </name>
+          <questiontext format=\"html\">
+            <text><![CDATA[<p> +++" 
+        postQuest = "+++ </p>]]></text>
+    </questiontext>
+    <generalfeedback format=\"html\">
+      <text></text>
+    </generalfeedback>
+    <defaultgrade>#{nbSubQuest}</defaultgrade>
+    <penalty>1</penalty>
+    <hidden>0</hidden>
+    <idnumber></idnumber>
+    <shuffleanswers>true</shuffleanswers>
+    <correctfeedback format=\"html\">
+      <text><![CDATA[<p>Your answer is correct.</p>]]></text>
+    </correctfeedback>
+    <partiallycorrectfeedback format=\"html\">
+      <text><![CDATA[<p>Your answer is partially correct.</p>]]></text>
+    </partiallycorrectfeedback>
+    <incorrectfeedback format=\"html\">
+      <text><![CDATA[<p>Your answer is incorrect.</p>]]></text>
+    </incorrectfeedback>
+    <shownumcorrect/> +++" 
+
+        question.prepend(preQuest)
+        question.push(postQuest)
+
+        question
+      end
+    end
+  end
+end

data/lib/asciidoctor-moodle/multiple_choice/extension.rb

@@ -0,0 +1,175 @@
+require_relative '../extensions'
+
+module Asciidoctor
+  module Question
+
+    class MultipleChoiceBlockProcessor < Extensions::BaseProcessor
+
+      def nbTrueF(lines)
+        nbTrue = 0
+        lines.map do |answer|
+          if answer =~ /^-\s?\[(X|\*)\]/
+            nbTrue +=1 
+          end
+        end
+        nbTrue
+      end
+
+      def process(parent, source, tag)
+        
+        docName = parent.attributes['docname']
+        id = tag[:id]
+        err = '+++ Error : there is no answer +++'
+        question = Array.new
+        answers = Array.new 
+        switch = false
+        nbAnswer = 0
+
+        valShuffleNamed = tag["shuffle"]
+       
+        valShuffle = tag[3]
+        
+        if valShuffle == 'shuffle' || valShuffle == 'SHUFFLE' || valShuffleNamed == 'shuffle' || valShuffleNamed == 'SHUFFLE'
+          isShuffle = true
+        else 
+          isShuffle = false
+        end
+       
+        source.lines.each do |line|
+          switch = true if line =~ /^-\s?\[/ 
+          if switch 
+            nbAnswer +=1
+            answers.push line
+          else
+            question.push line
+          end
+        end
+    
+        answers, nbTrue = prepare_answer_lines answers
+        
+        if nbTrue <= 1
+          question = prepare_question_lines(question, docName,id, isShuffle,true) 
+        else 
+          question = prepare_question_lines(question, docName,id, isShuffle,false) 
+        end
+        
+
+        new_parent = Asciidoctor::Block.new parent, :open, {:attributes => {'id' => "#{docName}_question_#{id}_mc"}}
+      
+        if nbAnswer>0 
+          reader = Asciidoctor::Reader.new(question)
+          loop do
+            block = Asciidoctor::Parser.next_block reader, new_parent
+            break if block.nil?
+            new_parent.blocks.push block
+          end
+
+          reader = Asciidoctor::Reader.new(answers)
+          answers_block = Asciidoctor::Parser.next_block reader, new_parent
+          new_parent.blocks.push answers_block
+          post_answers new_parent, tag
+
+        else
+          
+          process_error_push new_parent, err, answers
+        end
+        new_parent
+
+        
+      end
+
+      def prepare_answer_lines(lines)
+        lines
+      end
+
+    end
+
+    class MOODLEMultipleChoiceBlockProcessor < MultipleChoiceBlockProcessor
+      
+      def nbTrueF(lines)
+        nbTrue = 0
+        lines.map do |answer|
+          if answer =~ /^-\s?\[(X|\*)\]/
+            nbTrue +=1 
+          end
+        end
+        nbTrue
+      end
+      
+      def prepare_answer_lines(lines)
+
+        nbTrue = nbTrueF(lines)
+        valFraction = (100.0 / nbTrue)
+        penality = -33.3333
+        noPenality = 0
+        if nbTrue >1
+          fract = penality
+        else
+          fract = noPenality
+        end
+        preAnsFaux = "<answer fraction=\"#{fract}\" format=\"html\">
+            <text>"
+        preAnsVrai = "<answer fraction=\"#{valFraction}\" format=\"html\">
+          <text>"
+        postAns = ' </text>
+            <feedback format="html">
+              <text></text>
+            </feedback>
+          </answer>'
+      
+        lines.map! do |answer|
+          if answer =~ /^-\s?\[\s?\]/ 
+            answer.sub!(/^-\s?\[\s\]/, preAnsFaux)
+            answer << postAns
+          elsif answer =~ /^-\s?\[(X|\*)\]/
+            answer.sub!(/^-\s?\[(X|\*)\]/, preAnsVrai)
+            answer << postAns
+          else
+           answer
+          end
+        end
+        
+        lines.prepend("+++")
+        lines.push('</question>')
+        lines.push('+++')
+        [lines, nbTrue]
+      end
+
+      def prepare_question_lines(lines, docName,id, isShuffle, is_single)
+    
+        preQuest = "+++ <question type=\"multichoice\">
+         <name>
+            <text> #{docName}_question_#{id}_mc </text>
+         </name>
+          <questiontext format=\"html\">
+            <text><![CDATA[<p> +++" 
+        postQuest = "+++ </p>]]></text>
+          </questiontext>
+          <generalfeedback format=\"html\">
+            <text></text>
+          </generalfeedback>
+          <defaultgrade>1</defaultgrade>
+          <penalty>0.3333333</penalty>
+          <hidden>0</hidden>
+          <idnumber></idnumber>
+          <single>#{is_single}</single> 
+          <shuffleanswers>#{isShuffle}</shuffleanswers>
+          <answernumbering>abc</answernumbering>
+          <showstandardinstruction>1</showstandardinstruction>
+          <correctfeedback format=\"html\">
+            <text></text>
+          </correctfeedback>
+          <partiallycorrectfeedback format=\"html\">
+            <text></text>
+          </partiallycorrectfeedback>
+          <incorrectfeedback format=\"html\">
+            <text></text>
+          </incorrectfeedback> +++"
+
+        lines.prepend(preQuest)
+        lines.push(postQuest)
+        lines
+      end
+    end
+  end
+end