Oracle: Add DateConstruct/TimeConstruct functions support

Additionally, changed type mapping of Interval type from 'interval day to second' to 'inteval day(2) to second(6)'
which are equivalents but the last one shows precisions explicitly

Author: alex-kulakov

Orm/Xtensive.Orm.Oracle/Sql.Drivers.Oracle/v09/Compiler.cs

@@ -1,6 +1,6 @@
-// Copyright (C) 2003-2010 Xtensive LLC.
-// All rights reserved.
-// For conditions of distribution and use, see license.
+// Copyright (C) 2009-2023 Xtensive LLC.
+// This code is distributed under MIT license terms.
+// See the License.txt file in the project root for more information.
 // Created by: Denis Krjuchkov
 // Created:    2009.07.17
 
@@ -41,6 +41,15 @@ public override void Visit(SqlFunctionCall node)
       case SqlFunctionType.DateTimeConstruct:
         DateTimeConstruct(node.Arguments[0], node.Arguments[1], node.Arguments[2]).AcceptVisitor(this);
         return;
+#if NET6_0_OR_GREATER //DO_DATEONLY
+      case SqlFunctionType.DateConstruct:
+        DateConstruct(node.Arguments[0], node.Arguments[1], node.Arguments[2]).AcceptVisitor(this);
+        return;
+      case SqlFunctionType.TimeConstruct: {
+        TimeConstruct(node.Arguments[0], node.Arguments[1], node.Arguments[2], node.Arguments[3]).AcceptVisitor(this);
+        return;
+      }
+#endif
       case SqlFunctionType.IntervalAbs:
         SqlHelper.IntervalAbs(node.Arguments[0]).AcceptVisitor(this);
         return;
@@ -270,6 +279,22 @@ private static SqlExpression DateTimeConstruct(SqlExpression years, SqlExpressio
         AnsiString("YYYYMMDD"));
     }
 
+#if NET6_0_OR_GREATER //DO_DATEONLY
+    private static SqlExpression DateConstruct(SqlExpression years, SqlExpression months, SqlExpression days)
+    {
+      return SqlDml.FunctionCall("TO_DATE",
+        SqlDml.FunctionCall("TO_CHAR", ((years * 100) + months) * 100 + days),
+        AnsiString("YYYYMMDD"));
+    }
+
+    private static SqlExpression TimeConstruct(SqlExpression hours, SqlExpression minutes, SqlExpression seconds, SqlExpression milliseconds)
+    {
+      return SqlDml.FunctionCall("NUMTODSINTERVAL",
+        seconds + (minutes * 60) + (hours * 3600) + (milliseconds / 1000),
+        AnsiString("second"));
+    }
+#endif
+
     private static SqlExpression DateTimeExtractDayOfWeek(SqlExpression dateTime)
     {
       // TO_CHAR with 'D' returns values depending on NLS_TERRITORY setting,

Orm/Xtensive.Orm.Oracle/Sql.Drivers.Oracle/v09/ServerInfoProvider.cs

@@ -228,17 +228,16 @@ public override DataTypeCollection GetDataTypesInfo()
 
       types.DateTime = DataTypeInfo.Range(SqlType.DateTime, common | index,
         ValueRange.DateTime, "timestamp");
-#if NET6_0_OR_GREATER
+#if NET6_0_OR_GREATER //DO_DATEONLY
       types.DateOnly = DataTypeInfo.Range(SqlType.Date, common | index,
         ValueRange.DateOnly, "DATE");
       types.TimeOnly = DataTypeInfo.Range(SqlType.Time, common | index,
-        ValueRange.TimeOnly, "interval day(0) to second");
+        ValueRange.TimeOnly, "interval day(0) to second(6)");
 #endif
-
       types.DateTimeOffset = DataTypeInfo.Range(SqlType.DateTimeOffset, common | index,
         ValueRange.DateTimeOffset, "TIMESTAMP WITH TIME ZONE");
       types.Interval = DataTypeInfo.Range(SqlType.Interval, common | index,
-        ValueRange.TimeSpan, "interval day to second");
+        ValueRange.TimeSpan, "interval day(2) to second(6)");
 
       types.Char = DataTypeInfo.Stream(SqlType.Char,
         common | index | DataTypeFeatures.ZeroLengthValueIsNull, 2000, "nchar");

Orm/Xtensive.Orm.Oracle/Sql.Drivers.Oracle/v09/Translator.cs

@@ -1,4 +1,4 @@
-// Copyright (C) 2009-2022 Xtensive LLC.
+// Copyright (C) 2009-2023 Xtensive LLC.
 // This code is distributed under MIT license terms.
 // See the License.txt file in the project root for more information.
 // Created by: Denis Krjuchkov
@@ -33,6 +33,9 @@ internal class Translator : SqlTranslator
 #if NET6_0_OR_GREATER //DO_DATEONLY
     /// <inheritdoc/>
     public override string DateOnlyFormatString => @"'(DATE '\'yyyy\-MM\-dd\'\)";
+
+    /// <inheritdoc/>
+    public override string TimeOnlyFormatString => @"'(INTERVAL '\'0 HH\:mm\:ss\.fffff\'\ DAY(0) TO SECOND(6))";
 #endif
 
     /// <inheritdoc/>

Orm/Xtensive.Orm.Oracle/Sql.Drivers.Oracle/v09/TypeMapper.cs

@@ -88,6 +88,24 @@ public override void BindDouble(DbParameter parameter, object value)
       nativeParameter.Value = value ?? DBNull.Value;
     }
 
+#if NET6_0_OR_GREATER //DO_DATEONLY
+    public override void BindDateOnly(DbParameter parameter, object value)
+    {
+      var nativeParameter = (OracleParameter) parameter;
+      nativeParameter.OracleDbType = OracleDbType.Date;
+      nativeParameter.Value = value == null
+        ? (object) DBNull.Value
+        : new OracleDate(((DateOnly) value).ToDateTime(TimeOnly.MinValue));
+    }
+
+    public override void BindTimeOnly(DbParameter parameter, object value)
+    {
+      var nativeParameter = (OracleParameter) parameter;
+      nativeParameter.OracleDbType = OracleDbType.IntervalDS;
+      nativeParameter.Value = value == null ? (object) DBNull.Value : new OracleIntervalDS(((TimeOnly) value).ToTimeSpan());
+    }
+#endif
+
     public override void BindDateTimeOffset(DbParameter parameter, object value)
     {
       var nativeParameter = (OracleParameter) parameter;