Implement sqliteCreateCollation

Author: arontsang

src/PDO/Peachpie.Library.PDO.Sqlite/PDOSqliteDriver.cs

@@ -88,7 +88,21 @@ private static PhpValue sqliteCreateAggregate(Context ctx, PDO pdo, PhpArray arg
         }
         private static PhpValue sqliteCreateCollation(Context ctx, PDO pdo, PhpArray arguments)
         {
-            return PhpValue.False;
+            if (pdo.GetCurrentConnection<SqliteConnection>() is not {} connection)
+                return PhpValue.False;
+            
+            
+            var name = arguments[0].String;
+            var callable = arguments[1].AsCallable();
+            
+            var handle = connection.Handle;
+            raw.sqlite3_create_collation(
+                handle,
+                name,
+                null,
+                CreateSortFunction(ctx, callable)
+            );
+            return PhpValue.True;
         }
 
         private static PhpValue sqliteCreateFunction(Context ctx, PDO pdo, PhpArray arguments)
@@ -180,6 +194,24 @@ private static delegate_function_aggregate_final CreateAggregateFinalize(Context
             };
         }
 
+        private static strdelegate_collation CreateSortFunction(Context ctx, IPhpCallable callback)
+        {
+            return (data, left, right) =>
+            {
+                var ret = callback.Invoke(
+                    ctx,
+                    PhpValue.FromClr(left),
+                    PhpValue.FromClr(right)
+                );
+                if (ret.IsInteger())
+                {
+                    return ret.ToInt();
+                }
+
+                return 0;
+            };
+        }
+        
         private static delegate_function_scalar CreateScalarFunction(Context ctx, IPhpCallable callback)
         {
             return (sqliteContext, data, args) =>

tests/pdo/sqlite_udf_sort.php

@@ -0,0 +1,21 @@
+<?php
+
+
+$pdo = new \PDO("sqlite::memory:");
+$pdo->exec("CREATE TABLE test (col1 string)");
+$pdo->exec("INSERT INTO test VALUES ('a1')");
+$pdo->exec("INSERT INTO test VALUES ('a10')");
+$pdo->exec("INSERT INTO test VALUES ('a2')");
+
+$pdo->sqliteCreateCollation('NATURAL_CMP', strnatcmp);
+
+
+echo "default:\n";
+foreach ($pdo->query("SELECT col1 FROM test ORDER BY col1") as $row){
+    echo $row['col1'], "\n";
+}
+
+echo "\nnatural:\n";
+foreach ($pdo->query("SELECT col1 FROM test ORDER BY col1 COLLATE NATURAL_CMP") as $row){
+    echo $row['col1'], "\n";
+}