Change ASTNodeNaturalConversionChecker policy

- use ASTNodeNaturalConversionChecker<AllowRToR1Conversion> when dealing with lists
- ASTNodeNaturalConversionChecker call in ASTNodeBuiltinFunctionExpressionBuilder

src/language/ast/ASTNodeBuiltinFunctionExpressionBuilder.cpp

@@ -320,13 +320,7 @@ ASTNodeBuiltinFunctionExpressionBuilder::_getArgumentConverter(const ASTNodeData
     }
   };
 
-  if (parameter_type == ASTNodeDataType::vector_t and parameter_type.dimension() == 1) {
-    if (not isNaturalConversion(argument_node_sub_data_type.m_data_type, parameter_type)) {
-      ASTNodeNaturalConversionChecker{argument_node_sub_data_type, ASTNodeDataType::build<ASTNodeDataType::double_t>()};
-    }
-  } else {
-    ASTNodeNaturalConversionChecker{argument_node_sub_data_type, parameter_type};
-  }
+  ASTNodeNaturalConversionChecker<AllowRToR1Conversion>{argument_node_sub_data_type, parameter_type};
 
   return get_function_argument_converter_for_argument_type();
 }

src/language/utils/ASTNodeNaturalConversionChecker.cpp

@@ -139,32 +139,12 @@ ASTNodeNaturalConversionChecker<RToR1Conversion>::_checkIsNaturalExpressionConve
     if (node.m_data_type == ASTNodeDataType::tuple_t) {
       this->_checkIsNaturalExpressionConversion(node, data_type.contentType(), target_content_type);
     } else if (node.m_data_type == ASTNodeDataType::list_t) {
-      if (((target_data_type.contentType() == ASTNodeDataType::vector_t) and
-           (target_data_type.contentType().dimension() == 1)) or
-          ((target_data_type.contentType() == ASTNodeDataType::matrix_t) and
-           (target_data_type.contentType().nbRows() == 1) and (target_data_type.contentType().nbColumns() == 1))) {
       for (const auto& child : node.children) {
-          if (not isNaturalConversion(child->m_data_type, target_data_type)) {
-            this->_checkIsNaturalExpressionConversion(*child, child->m_data_type,
-                                                      ASTNodeDataType::build<ASTNodeDataType::double_t>());
-          }
-        }
-      } else {
-        for (const auto& child : node.children) {
-          this->_checkIsNaturalExpressionConversion(*child, child->m_data_type, target_content_type);
-        }
-      }
-    } else {
-      if ((target_data_type.contentType() == ASTNodeDataType::vector_t) and
-          (target_data_type.contentType().dimension() == 1)) {
-        if (not isNaturalConversion(data_type, target_data_type)) {
-          this->_checkIsNaturalExpressionConversion(node, data_type,
-                                                    ASTNodeDataType::build<ASTNodeDataType::double_t>());
+        ASTNodeNaturalConversionChecker<AllowRToR1Conversion>(*child, target_data_type.contentType());
       }
     } else {
       this->_checkIsNaturalExpressionConversion(node, data_type, target_content_type);
     }
-    }
   } else {
     this->_checkIsNaturalTypeConversion(node, data_type, target_data_type);
   }