quby-compiler 0.6.7 → 0.6.8

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 3b15f3bb6d801cc4285f64d05d715cbf86326ae4a6aae32767b3e1bd720c805f
-  data.tar.gz: 6ff6dbd94acf1c14ae61f6bc3eb96f6e462b4728ad2e781752cc8980380377ff
+  metadata.gz: 01cfba3183d5a4279b2c73b3c9cee99b676bb878fe4fb41750966dff9f3cee05
+  data.tar.gz: b73b3f4426dc2a4f995fd03164a49ef65d27a723d7de870fdeceaebf26efecc0
 SHA512:
-  metadata.gz: 6fd74f49d869607c6306a0d6c6fe62088930cbfd7a894be53f04a16efa7f15846fb2876f37171f92df3137e180bec112e76f322d7a78c973474f2c16f7e45f88
-  data.tar.gz: 15a0708156bcfb9563bc1c684da99a4a9ad523a3d6ff92571a4a3d1bacd8b1106b05ae629f1b76d60bcf178cee6cd54a1d7ae89f31d950165400cd7814597a7c
+  metadata.gz: 7babf0bc0256ed62390f442b34104eaf64778ad04a563fa3ffd239091bcca67f0d3058a42a67df4b8db50a12a8e6bd064636f290cc519233065c7d0a18175e9f
+  data.tar.gz: c65d1f03ed2219c8b3704a843323ef92bb019baef95889ee86d40ecc67fb4f4eda5a2bdb5905adf652178657b783232c85353db0fb726076efbaad1ea342ce21

data/CHANGELOG.md

@@ -1,3 +1,9 @@
+# 0.6.8
+
+* dsl_quby2.json: Add count_selected to s-expressions.
+* dsl_quby2.json: Add cond, true and false to s-expressions. cond evaluates the body of the first clause whose test is true; each body must have the same type.
+* dsl_quby2.json: single_select_label variables (also via cond) must be declared `type: :quest_i18n_key` and are serialized with that type.
+
 # 0.6.7
 
 * dsl_quby2.json: Add single_select_label to s-expressions.

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

@@ -23,6 +23,10 @@ module Quby::Compiler
         Entities::SexpVariables::SingleSelectLabel.new(op: :single_select_label, key: key)
       end
 
+      def count_selected(key)
+        Entities::SexpVariables::CountSelected.new(key: key)
+      end
+
       def number_value(key)
         Entities::SexpVariables::NumberValue.new(op: :number_value, key: key)
       end
@@ -53,6 +57,16 @@ module Quby::Compiler
         Entities::SexpVariables::NumberMethod.new(op: :round, value: value)
       end
 
+      # cond(clause(gt(left: number_value(:v_1), right: 2), 4), clause(true, 0))
+      # evaluates the body of the first clause whose test is true, so `clause(true, ...)` acts as the default case.
+      def cond(*clauses)
+        Entities::SexpVariables::Cond.new(op: :cond, clauses:)
+      end
+
+      def clause(test, body)
+        Entities::SexpVariables::Cond::Clause.new(test: wrap_scalars(test), body: wrap_scalars(body))
+      end
+
       def build
         Entities::SexpVariable.new(key:, calculation:, type:)
       end
@@ -67,9 +81,15 @@ module Quby::Compiler
         case value
         when Numeric
           Entities::SexpVariables::Number.new(op: :number, value: value)
+        when true
+          Entities::SexpVariables::True.new
+        when false
+          Entities::SexpVariables::False.new
+        when String
+          fail ArgumentError, "string literals are not supported in sexp_variables (they can't be translated), use string_value(:key) to reference a string question."
         else
           value
-        end 
+        end
       end
     end
   end

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

@@ -15,6 +15,10 @@ module Quby::Compiler::Entities
       validate_node(calculation, questionnaire:, type:)
     end
 
+    def as_json(options = nil)
+      {key:, type: node_type(calculation), calculation:}.as_json(options)
+    end
+
     private
 
     def validate_node(node, questionnaire:, type:)
@@ -30,6 +34,9 @@ module Quby::Compiler::Entities
       when SexpVariables::SingleSelectLabel
         validate_question_exist(questionnaire, node)
         validate_value_is_single_select(questionnaire, node)
+      when SexpVariables::CountSelected
+        validate_question_exist(questionnaire, node)
+        validate_value_is_multi_select(questionnaire, node)
       when SexpVariables::NumberReducer
         node.values.each do |value|
           validate_node(value, questionnaire:, type: :number)
@@ -41,13 +48,17 @@ module Quby::Compiler::Entities
       when SexpVariables::Comparer
         validate_node(node.left, questionnaire:, type: :number)
         validate_node(node.right, questionnaire:, type: :number)
+      when SexpVariables::Cond
+        node.clauses.each do |clause|
+          validate_node(clause.test, questionnaire:, type: :boolean)
+
+          validate_node(clause.body, questionnaire:, type: type)
+        end
       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::StringType === node
+      return if type == node_type(node)
 
       fail "sexp_variable #{key} has invalid type #{node.class} for expected type #{type}."
     end
@@ -78,6 +89,13 @@ module Quby::Compiler::Entities
       fail "sexp_variable #{key} uses non-single-select question #{sexp.key} for single_select_label."
     end
 
+    def validate_value_is_multi_select(questionnaire, sexp)
+      question = questionnaire.question_hash[sexp.key]
+      return if Questions::CheckboxQuestion === question
+
+      fail "sexp_variable #{key} uses non-multi-select question #{sexp.key} for count_selected."
+    end
+
     def validate_value_is_string(questionnaire, sexp)
       question = questionnaire.question_hash[sexp.key]
       case question
@@ -87,5 +105,20 @@ module Quby::Compiler::Entities
 
       fail "sexp_variable #{key} uses non-string question #{sexp.key} for string_value."
     end
+
+    def node_type(node)
+      case(node)
+      when SexpVariables::Cond # match first, since it's in all types.
+        node_type(node.clauses.first.body)
+      when SexpVariables::BooleanType
+        :boolean
+      when SexpVariables::NumericType
+        :number
+      when SexpVariables::StringType
+        :string
+      when SexpVariables::QuestI18nKeyType
+        :quest_i18n_key
+      end
+    end
   end
 end

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

@@ -4,36 +4,62 @@ module Quby::Compiler::Entities
     end
 
     # recursive dependencies, we so we define the classes first.
+    class Cond < Base; end
+
     class NumberValue < Base; end
     class Number < Base; end
     class NumberReducer < Base; end
     class NumberMethod < Base; end
+    class CountSelected < Base; end
+
     class BooleanReducer < Base; end
     class Comparer < Base; end
+    class True < Base; end
+    class False < Base; end
+
+    class StringValue < Base; end
+    class SingleSelectLabel < Base; end
 
-    NumericType = Number | NumberReducer | NumberMethod | NumberValue
-    BooleanType = BooleanReducer | Comparer
+    NumericType = Number | NumberReducer | NumberMethod | NumberValue | CountSelected | Cond
+    BooleanType = BooleanReducer | Comparer | True | False | Cond
+    StringType = StringValue | Cond
+    QuestI18nKeyType = SingleSelectLabel | Cond
+    AllTypes = NumericType | BooleanType | StringType | QuestI18nKeyType
 
     class NumberValue
       attribute :op, Quby::Types::Symbol.enum(:number_value)
       attribute :key, Quby::Types::Symbol
     end
 
-    class StringValue < Base
+    class StringValue
       attribute :op, Quby::Types::Symbol.enum(:string_value)
       attribute :key, Quby::Types::Symbol
     end
 
     # label of the selected option of a single-select (radio, scale, select) question.
-    class SingleSelectLabel < Base
+    class SingleSelectLabel
       attribute :op, Quby::Types::Symbol.enum(:single_select_label)
       attribute :key, Quby::Types::Symbol
     end
 
-    StringType = StringValue | SingleSelectLabel
+    # returning a Boolean: always true. Used as the default case of a cond.
+    class True
+      attribute :op, Quby::Types::Symbol.default(:true).enum(:true)
+    end
+
+    # returning a Boolean: always false.
+    class False
+      attribute :op, Quby::Types::Symbol.default(:false).enum(:false)
+    end
+
+    # number of selected options of a multi-select (check_box) question.
+    class CountSelected
+      attribute :op, Quby::Types::Symbol.default(:count_selected).enum(:count_selected)
+      attribute :key, Quby::Types::Symbol
+    end
 
     class Number
-      attribute :op, Quby::Types::Symbol.enum(:number)     
+      attribute :op, Quby::Types::Symbol.enum(:number)
       attribute :value, Quby::Types::Integer | Quby::Types::Float
     end
 
@@ -58,8 +84,20 @@ module Quby::Compiler::Entities
 
     # returning a Number
     class NumberMethod
-      attribute :op, Quby::Types::Symbol.enum(:round)     
+      attribute :op, Quby::Types::Symbol.enum(:round)
       attribute :value, NumericType
     end
+
+    # evaluates the body of the first clause whose test is true.
+    # Each body should have the same type, which determines the result type.
+    class Cond
+      class Clause < Base
+        attribute :test, BooleanType
+        attribute :body, AllTypes
+      end
+
+      attribute :op, Quby::Types::Symbol.enum(:cond)
+      attribute :clauses, Quby::Types::Array.of(Clause).constrained(min_size: 1)
+    end
   end
 end

data/lib/quby/compiler/version.rb

@@ -1,5 +1,5 @@
 module Quby
   module Compiler
-    VERSION = "0.6.7"
+    VERSION = "0.6.8"
   end
 end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: quby-compiler
 version: !ruby/object:Gem::Version
-  version: 0.6.7
+  version: 0.6.8
 platform: ruby
 authors:
 - Marten Veldthuis