quby-compiler 0.5.28 → 0.5.30

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 258b02451b98e7d37bda66a027d936e29dc81de2ec230e6cb304e957aa707daa
-  data.tar.gz: 32afc3c10ac8dc491dea798046ae4175e0c71cdcf31137dc22c822bdf81d5c8b
+  metadata.gz: 8a6a65058f64b3e68de9d841447cb82483d112ebf3bb79ea081b8d70369568af
+  data.tar.gz: '03487522a9cfe65ffeeddab48f4edb64b6c3f8fa08c5e2b1d5563bcad1ec4de2'
 SHA512:
-  metadata.gz: 71caf12ba67af3315949989b6b37213168cb5c18ea1ee2199668ed10c91123af67e23304b55bedbea6522acf89af939b47d3891b1aa24c47197aa7b86aea9fb2
-  data.tar.gz: c52b9f16bdbf8bd70094dd6d51ec7e29890a55f24e15adb8e727ae42cb4df85db1b3ebc69bf238ec09974c9bab14615c49d02f884b4d96073ab8e7f50ebcf0a6
+  metadata.gz: 916e3ba77d76eac79f56c7c6ebf785fac439e12decfbdc3a9b8b60649fa5759cf1dc41df999cf30f122c6a0287800b7f33f309e7bc761eb9fab81ab2a1f63476
+  data.tar.gz: 5c010854d019d877a7c9e85986e022229fe78b85f45721cd1adaa535b8023bd73926fd804e927aa19d825262bef8952811d2a7a4aa82988d4cf49e0286711f09

data/CHANGELOG.md

@@ -1,6 +1,15 @@
+# 0.5.30
+
+* Added support for optgroups under select questions for quby2 (flattened for roqua/quby jsons)
+* Added comparing and boolean logic to sexp_variables. Add type to sexp_variables.
+
+# 0.5.29
+
+* quby2.json: force scale questions to horizontal (so quby2 doesn't have to anymore)
+
 # 0.5.28
 
-* roqua.json: Don't parse markdown in title/descriptions for layour_version :v2
+* roqua.json: Don't parse markdown in title/descriptions for layout_version :v2
 
 # 0.5.27
 

data/lib/quby/compiler/dsl/questionnaire_builder.rb

@@ -212,8 +212,8 @@ module Quby
           end
         end
 
-        def sexp_variable(key, &block)
-          @questionnaire.add_sexp_variable(key, SexpVariableBuilder.new(key, &block).build)
+        def sexp_variable(key, type: :number, &block)
+          @questionnaire.add_sexp_variable(key, SexpVariableBuilder.new(key, type:, &block).build)
         end
 
         # variable :totaal do

data/lib/quby/compiler/dsl/questions/select_question_builder.rb

@@ -5,12 +5,33 @@ module Quby
     module DSL
       module Questions
         class SelectQuestionBuilder < Base
-          include MultipleChoice
           include CompareVisibilityRule
 
           def initialize(key, **options, &block)
             super
             @question = Entities::Questions::SelectQuestion.new(key, options)
+            @current_optgroup = nil
+          end
+
+          def optgroup(key, label: , &block)
+            raise "Cannot nest optgroups" if @current_optgroup
+            @question.options << @current_optgroup = Entities::QuestionOptgroup.new(key, label:)
+            instance_eval(&block)
+            @current_optgroup = nil
+          end
+
+          def option(key, options = {}, &block)
+            question_option = Entities::QuestionOption.new(key, @question, options)
+            if @questionnaire.key_in_use?(question_option.input_key) || @question.key_in_use?(question_option.input_key)
+              fail "#{questionnaire.key}:#{@question.key}:#{question_option.key}: " \
+                    "A question or option with input key #{question_option.input_key} is already defined."
+            end
+
+            if @current_optgroup
+              @current_optgroup.options << question_option
+            else
+              @question.options << question_option
+            end
           end
         end
       end

data/lib/quby/compiler/dsl/sexp_variable_builder.rb

@@ -7,10 +7,11 @@ module Quby::Compiler
     #   sum(number_values(:v_1, :v_2))
     # end
     class ::SexpVariableBuilder
-      attr_reader :calculation, :key
+      attr_reader :calculation, :key, :type
 
-      def initialize(key, &block)
+      def initialize(key, type:, &block)
         @key = key
+        @type = type
         @calculation = instance_eval(&block)
       end
 
@@ -32,25 +33,39 @@ module Quby::Compiler
         end
       end
 
+      %i[eq not_eq gt gteq lt lteq].each do |op|
+        define_method(op) do |left:, right:|
+          Entities::SexpVariables::Comparer.new(op:, left: wrap_scalars(left), right: wrap_scalars(right))
+        end
+      end
+
+      %i[all some none].each do |op|
+        define_method(op) do |*values|
+          Entities::SexpVariables::BooleanReducer.new(op:, values:)
+        end
+      end
+
       def round(value)
         Entities::SexpVariables::NumberMethod.new(op: :round, value: value)
       end
 
       def build
-        Entities::SexpVariable.new(key:, calculation:)
+        Entities::SexpVariable.new(key:, calculation:, type:)
       end
 
       private
 
       def wrap_and_flatten(values)
-        values.flat_map { |value|
-          case value
-          when Numeric
-            Entities::SexpVariables::Number.new(op: :number, value: value)
-          else
-            value
-          end 
-        }
+        values.flat_map { wrap_scalars(_1)}
+      end
+
+      def wrap_scalars(value)
+        case value
+        when Numeric
+          Entities::SexpVariables::Number.new(op: :number, value: value)
+        else
+          value
+        end 
       end
     end
   end

data/lib/quby/compiler/entities/fields.rb

@@ -46,7 +46,7 @@ module Quby
           @question_hash[question.key] = question
           @input_keys.merge(new_input_keys)
           @answer_keys.merge(new_answer_keys)
-          question.options.each do |option|
+          question.all_options.each do |option|
             @option_hash[option.input_key] = option
           end
         end

data/lib/quby/compiler/entities/question.rb

@@ -45,6 +45,7 @@ module Quby
 
         # Multiple-choice questions have options to choose from
         attr_accessor :options
+        attr_accessor :opt_groups
 
         # string question that is displayed after the  title of this  question.
         attr_accessor :title_question
@@ -246,10 +247,21 @@ module Quby
             answer_keys
           else
             # Some options don't have a key (inner_title), they are stripped
-            options.map { |opt| opt.input_key }.compact
+            all_options.map { |opt| opt.input_key }.compact
           end
         end
 
+        def all_options
+          options.flat_map { |option|
+            case option
+            when Quby::Compiler::Entities::QuestionOptgroup
+              option.options
+            else
+              option
+            end
+          }
+        end
+
         def key_in_use?(k)
           claimed_keys.include?(k) ||
           options.any? { |option| option.key_in_use?(k) }

data/lib/quby/compiler/entities/question_optgroup.rb

@@ -0,0 +1,35 @@
+# frozen_string_literal: true
+
+module Quby
+  module Compiler
+    module Entities
+      class QuestionOptgroup
+        include ActiveModel::Validations
+        include ::Quby::InspectExcept.new(:@question, :@questions)
+
+        attr_reader :key
+        attr_reader :label
+        attr_reader :options
+
+        def initialize(key, label:)
+          @key = key
+          @label = label
+          @options = []
+        end
+
+        def key_in_use?(key)
+          @options.any? { _1.key_in_use?(key) }
+        end
+
+        # We don't allow subquestions on select questions
+        def questions
+          []
+        end
+
+        def path_str
+          "#{question.path_str}:Optgroup:#{key}"
+        end
+      end
+    end
+  end
+end

data/lib/quby/compiler/entities/sexp_variable.rb

@@ -2,25 +2,53 @@ require 'quby/compiler/entities/sexp_variables'
 
 module Quby::Compiler::Entities
   class SexpVariable
-    attr_reader :calculation, :key
+    attr_reader :calculation, :key, :type
 
-    def initialize(key:, calculation:)
+    def initialize(key:, calculation:, type:)
       @key = key
+      @type = type
       @calculation = calculation
     end
 
     # Called by DefinitionValidator.
-    def validate(questionnaire)
-      case calculation
+    def validate(questionnaire, calculation: self.calculation)
+      validate_node(calculation, questionnaire:, type:)
+    end
+    
+    private
+
+    def validate_node(node, questionnaire:, type:)
+      validate_type(node, type:)
+
+      case node
       when SexpVariables::NumberValue
-        validate_question_exist(questionnaire, calculation)
-        validate_value_is_number(questionnaire, calculation)
+        validate_question_exist(questionnaire, node)
+        validate_value_is_number(questionnaire, node)
       when SexpVariables::StringValue
-        validate_question_exist(questionnaire, calculation)
-        validate_value_is_string(questionnaire, calculation)
+        validate_question_exist(questionnaire, node)
+        validate_value_is_string(questionnaire, node)
+      when SexpVariables::NumberReducer
+        calculation.values.each do |value|
+          validate_node(value, questionnaire:, type: :number)
+        end
+      when SexpVariables::BooleanReducer
+        calculation.values.each do |value|
+          validate_node(value, questionnaire:, type: :boolean)
+        end
+      when SexpVariables::Comparer
+        validate_node(node.left, questionnaire:, type: :number)
+        validate_node(node.right, questionnaire:, type: :number)
       end
     end
 
+    def validate_type(node, type:)
+      return if type == :number && SexpVariables::NumericType === node
+      return if type == :boolean && SexpVariables::BooleanType === node
+      return if type == :string && SexpVariables::StringValue === node
+
+      fail "sexp_variable #{key} has invalid type #{node.class} for expected type #{type}."
+    end
+
     def validate_question_exist(questionnaire, sexp)
       return if questionnaire.question_hash.key?(sexp.key)
 

data/lib/quby/compiler/entities/sexp_variables.rb

@@ -8,8 +8,11 @@ module Quby::Compiler::Entities
     class Number < Base; end
     class NumberReducer < Base; end
     class NumberMethod < Base; end
+    class BooleanReducer < Base; end
+    class Comparer < Base; end
 
     NumericType = Number | NumberReducer | NumberMethod | NumberValue
+    BooleanType = BooleanReducer | Comparer
 
     class NumberValue
       attribute :op, Quby::Types::Symbol.enum(:number_value)
@@ -32,6 +35,19 @@ module Quby::Compiler::Entities
       attribute :values, Quby::Types::Array.of(NumericType)
     end
 
+    # returning a Boolean
+    class BooleanReducer < Base
+      attribute :op, Quby::Types::Symbol.enum(:all, :some, :none)
+      attribute :values, Quby::Types::Array.of(Base)
+    end
+
+    # returning a Boolean
+    class Comparer < Base
+      attribute :op, Quby::Types::Symbol.enum(:eq, :not_eq, :gt, :gteq, :lt, :lteq)
+      attribute :left, NumericType
+      attribute :right, NumericType
+    end
+
     # returning a Number
     class NumberMethod
       attribute :op, Quby::Types::Symbol.enum(:round)     

data/lib/quby/compiler/entities/visibility_rule.rb

@@ -21,7 +21,7 @@ module Quby
 
             case question.type
             when :radio, :scale, :select
-              question.options.each do |option|
+              question.all_options.each do |option|
                 rules.concat rules_for_option(question, option, type: :equal)
               end
             when :check_box

data/lib/quby/compiler/entities.rb

@@ -5,6 +5,7 @@ require 'quby/compiler/entities/definition'
 require 'quby/compiler/entities/questionnaire'
 require 'quby/compiler/entities/version'
 require 'quby/compiler/entities/question_option'
+require 'quby/compiler/entities/question_optgroup'
 require 'quby/compiler/entities/item'
 require 'quby/compiler/entities/score_calculation'
 require 'quby/compiler/entities/anonymous_conditions'

data/lib/quby/compiler/outputs/quby_frontend_v1_serializer.rb

@@ -183,7 +183,7 @@ module Quby
         # Also adds the title question under the last option.
         # TODO old dsl put it there, remove after quby gem uses title_question
         def options_as_json(question)
-          question.options.map { |option| option_as_json(option) }.tap do |options_json|
+          question.all_options.map { |option| option_as_json(option) }.tap do |options_json|
             if question.title_question
               options_json.last[:questions] << question_as_json(question.title_question)
             end

data/lib/quby/compiler/outputs/quby_frontend_v2_serializer.rb

@@ -163,14 +163,17 @@ module Quby
         end
 
         def scale_question(question)
-          radio_question(question)
+          {
+            **radio_question(question),
+            presentation: :horizontal
+          }
         end
 
         def select_question(question)
           {
             **base_question(question),
             children: children(question),
-            placeholder: question.options.find { _1.placeholder }&.description,
+            placeholder: question.all_options.find { _1.placeholder }&.description,
           }.compact
         end
 
@@ -242,7 +245,12 @@ module Quby
 
         def children(question)
           question.options.map.with_index { |child, idx|
-            if child.inner_title
+            if child.is_a?(Quby::Compiler::Entities::QuestionOptgroup)
+              { type: 'optgroup',
+                key: child.key,
+                options: child.options.map { option_as_json(_1) }
+              }
+            elsif child.inner_title
               inner_title_as_json(child, idx)
             elsif child.placeholder
               nil # placeholder attr on question.
@@ -271,7 +279,7 @@ module Quby
             value: option.question.type != :check_box && option.value,
             label:,
             description:,
-            questions: option.question.type != :select && option.questions.map{ question(_1) },
+            questions: option.question.type != :select ? option.questions.map{ question(_1) } : nil,
             hidden: option.hidden.presence,
             viewId: option.view_id
         }.compact

data/lib/quby/compiler/outputs/roqua_serializer.rb

@@ -239,7 +239,7 @@ module Quby
         def options_for(question)
           return nil if question.options.empty?
 
-          question.options.reject { |option| option.inner_title || option.placeholder }
+          question.all_options.reject { |option| option.inner_title || option.placeholder }
                           .map { |option|
             {
               key: option.key,

data/lib/quby/compiler/version.rb

@@ -1,5 +1,5 @@
 module Quby
   module Compiler
-    VERSION = "0.5.28"
+    VERSION = "0.5.30"
   end
 end

metadata

@@ -1,13 +1,13 @@
 --- !ruby/object:Gem::Specification
 name: quby-compiler
 version: !ruby/object:Gem::Version
-  version: 0.5.28
+  version: 0.5.30
 platform: ruby
 authors:
 - Marten Veldthuis
 bindir: exe
 cert_chain: []
-date: 2025-08-27 00:00:00.000000000 Z
+date: 2025-09-15 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: activemodel
@@ -151,7 +151,6 @@ files:
 - lib/quby/compiler/dsl/charting/radar_chart_builder.rb
 - lib/quby/compiler/dsl/helpers.rb
 - lib/quby/compiler/dsl/info_block_builder.rb
-- lib/quby/compiler/dsl/merge(values(:v_1, :v_2), values(v_4).rb
 - lib/quby/compiler/dsl/panel_builder.rb
 - lib/quby/compiler/dsl/question_builder.rb
 - lib/quby/compiler/dsl/questionnaire_builder.rb
@@ -188,6 +187,7 @@ files:
 - lib/quby/compiler/entities/outcome_table.rb
 - lib/quby/compiler/entities/panel.rb
 - lib/quby/compiler/entities/question.rb
+- lib/quby/compiler/entities/question_optgroup.rb
 - lib/quby/compiler/entities/question_option.rb
 - lib/quby/compiler/entities/questionnaire.rb
 - lib/quby/compiler/entities/questions/checkbox_question.rb

data/lib/quby/compiler/dsl/merge(values(:v_1, :v_2), values(v_4).rb

@@ -1,16 +0,0 @@
-merge(values(:v_1, :v_2), values(v_4).recode(1 => 3)).sum
-
-
-
-divide(value(:v_2), multiply(value(:v_1), value(:v_1)))
-
-w / l * l
-
-
-sexp_variable :key1 do
-  foo = values(:v_1, :v_2)
-  bar = recode(foo, 1 => 3)
-  bla = merge(foo, bar)
-  sum(bla)
-
-end