Firebird: DateConstruct/TimeConstruct support

Author: alex-kulakov

Orm/Xtensive.Orm.Firebird/Sql.Drivers.Firebird/Constants.cs

@@ -14,5 +14,9 @@ internal static class Constants
 
     // cannot use "FFF" cause it may lead to empty string for fractions part.
     public const string DateTimeFormatString = @"''\'yyyy\.MM\.dd HH\:mm\:ss\.fff\'''";
+#if NET6_0_OR_GREATER //DO_DATEONLY
+    public const string DateFormatString = @"''\'yyyy\.MM\.dd\'''";
+    public const string TimeFormatString = @"''\'HH\:mm\:ss\.fff\'''";
+#endif
   }
 }

Orm/Xtensive.Orm.Firebird/Sql.Drivers.Firebird/v2_5/Compiler.cs

@@ -201,6 +201,22 @@ public override void Visit(SqlFunctionCall node)
             node.Arguments[1] - 1),
             node.Arguments[2] - 1));
           return;
+#if NET6_0_OR_GREATER //DO_DATEONLY
+        case SqlFunctionType.DateConstruct:
+          Visit(DateAddDay(DateAddMonth(DateAddYear(SqlDml.Cast(SqlDml.Literal(new DateOnly(2001, 1, 1)), SqlType.Date),
+            node.Arguments[0] - 2001),
+            node.Arguments[1] - 1),
+            node.Arguments[2] - 1));
+          return;
+        case SqlFunctionType.TimeConstruct: {
+          Visit(DateAddMillisecond(DateAddSecond(DateAddMinute(DateAddHour(SqlDml.Cast(SqlDml.Literal(new TimeOnly(0, 0, 0)), SqlType.Time),
+            node.Arguments[0]),
+            node.Arguments[1]),
+            node.Arguments[2]),
+            node.Arguments[3]));
+          return;
+        }
+#endif
         case SqlFunctionType.DateTimeToStringIso:
           Visit(DateTimeToStringIso(node.Arguments[0]));
           return;

Orm/Xtensive.Orm.Firebird/Sql.Drivers.Firebird/v2_5/Translator.cs

@@ -19,15 +19,14 @@ namespace Xtensive.Sql.Drivers.Firebird.v2_5
 {
   internal class Translator : SqlTranslator
   {
-    public override string DateTimeFormatString
-    {
-      get { return Constants.DateTimeFormatString; }
-    }
+    public override string DateTimeFormatString => Constants.DateTimeFormatString;
 
-    public override string TimeSpanFormatString
-    {
-      get { return string.Empty; }
-    }
+#if NET6_0_OR_GREATER //DO_DATEONLY
+    public override string DateOnlyFormatString => Constants.DateFormatString;
+    public override string TimeOnlyFormatString => Constants.TimeFormatString;
+#endif
+
+    public override string TimeSpanFormatString => string.Empty;
 
     public override SqlHelper.EscapeSetup EscapeSetup => SqlHelper.EscapeSetup.WithQuotes;