Predicate parameters are in alphabetical order.

Author: MarcAstr0

src/main/scala/com/marcastr0/prolog_utils/JSONToProlog.scala

@@ -4,6 +4,8 @@ import spray.json._
 import DefaultJsonProtocol._
 import net.liftweb.util.StringHelpers.{camelify, camelifyMethod}
 
+import scala.collection.immutable.ListMap
+
 object JSONToProlog {
 
   def toProlog(json: JsValue): String = {
@@ -12,9 +14,13 @@ object JSONToProlog {
     val result = for {
       predicate <- predicates
       predicateName = camelifyMethod(predicate.replaceAll("-", "_"))
-      parameters = data.getOrElse(predicate, Seq()).headOption.getOrElse(Map()).keysIterator.map(camelify).mkString(",")
+      parameters = data.getOrElse(predicate, Seq()).headOption.getOrElse(Map())
+        .keysIterator.toSeq.sortWith(_ < _).map(s => camelify(s.toLowerCase)).mkString(",")
       comment = if (!parameters.isEmpty) s"% $predicateName($parameters)." else ""
-      facts = data.getOrElse(predicate, Seq()).map(x => s"$predicateName(${x.values.map(JsValue2String).mkString(",")}).")
+      facts = data.getOrElse(predicate, Seq()).map(x => {
+        val sorted = ListMap(x.toSeq.sortBy(_._1):_*)
+        s"$predicateName(${sorted.values.map(JsValue2String).mkString(",")})."
+      })
     } yield (List(comment) ++ facts).mkString("\n")
     result.mkString("\n")
   }

src/test/resources/test.json

@@ -12,12 +12,12 @@
     {"name": "'New York'", "population": 18593220}
   ],
   "country": [
-    {"name": "'Japan'", "capital": "'Tokyo'", "population": 127239952},
-    {"name": "'India'", "capital": "'New Delhi'", "population": 1358381702},
-    {"name": "'China'", "capital": "'Beijing'", "population": 1396368918},
-    {"name": "'Brazil'", "capital": "'Brasilia'", "population": 213274171},
-    {"name": "'Mexico'", "capital": "'Mexico City'", "population": 132018658},
-    {"name": "'Egypt'", "capital": "'Cairo'", "population": 97265337},
-    {"name": "'United States'", "capital": "'Washington DC'", "population": 328686462}
+    {"capital": "'Tokyo'", "name": "'Japan'", "population": 127239952},
+    {"capital": "'New Delhi'", "name": "'India'", "population": 1358381702},
+    {"capital": "'Beijing'", "name": "'China'", "population": 1396368918},
+    {"capital": "'Brasilia'", "name": "'Brazil'", "population": 213274171},
+    {"capital": "'Mexico City'", "name": "'Mexico'", "population": 132018658},
+    {"capital": "'Cairo'", "name": "'Egypt'", "population": 97265337},
+    {"capital": "'Washington DC'", "name": "'United States'", "population": 328686462}
   ]
 }

src/test/resources/test.pl

@@ -9,11 +9,11 @@
 city('Osaka',20237645).
 city('Cairo',18771769).
 city('New York',18593220).
-% country(Name,Capital,Population).
-country('Japan','Tokyo',127239952).
-country('India','New Delhi',1358381702).
-country('China','Beijing',1396368918).
-country('Brazil','Brasilia',213274171).
-country('Mexico','Mexico City',132018658).
-country('Egypt','Cairo',97265337).
-country('United States','Washington DC',328686462).
+% country(Capital,Name,Population).
+country('Tokyo','Japan',127239952).
+country('New Delhi','India',1358381702).
+country('Beijing','China',1396368918).
+country('Brasilia','Brazil',213274171).
+country('Mexico City','Mexico',132018658).
+country('Cairo','Egypt',97265337).
+country('Washington DC','United States',328686462).

src/test/resources/test2.json

@@ -0,0 +1,20 @@
+{
+  "turno": [
+    {
+      "DATA_DATE": 1524106800,
+      "END_TIME": 1524160800,
+      "ENTRY_TIME": 1524135600,
+      "ID_EMPLOYEE": 1429,
+      "ID_TIMETABLE": 834,
+      "LOCATION_ID": "'J512'"
+    },
+    {
+      "DATA_DATE": 1524106800,
+      "END_TIME": 1524168000,
+      "ENTRY_TIME": 1524142800,
+      "ID_EMPLOYEE": 1578,
+      "ID_TIMETABLE": 835,
+      "LOCATION_ID": "'J512'"
+    }
+  ]
+}

src/test/resources/test2.pl

@@ -0,0 +1,3 @@
+% turno(DataDate,EndTime,EntryTime,IdEmployee,IdTimetable,LocationId).
+turno(1524106800,1524160800,1524135600,1429,834,'J512').
+turno(1524106800,1524168000,1524142800,1578,835,'J512').

src/test/scala/com/marcastr0/prolog_utils/JSONToPrologSpec.scala

@@ -15,8 +15,8 @@ class JSONToPrologSpec extends FlatSpec with Matchers {
   it should "convert an object with one predicate" in {
     val json ="""{ "parent": [ { "parent": "mike", "child": "marcia" } ] }"""
     val prolog =
-      """% parent(Parent,Child).
-        |parent(mike,marcia).""".stripMargin
+      """% parent(Child,Parent).
+        |parent(marcia,mike).""".stripMargin
     Convert.toProlog(json.parseJson) shouldEqual prolog
   }
 
@@ -31,9 +31,9 @@ class JSONToPrologSpec extends FlatSpec with Matchers {
         |{ "code": "'YYZ'", "city": "'Toronto'" },
         |{ "code": "'SCL'", "city": "'Santiago'" } ] }""".stripMargin
     val prolog =
-      """% airport(Code,City).
-        |airport('YYZ','Toronto').
-        |airport('SCL','Santiago').""".stripMargin
+      """% airport(City,Code).
+        |airport('Toronto','YYZ').
+        |airport('Santiago','SCL').""".stripMargin
     Convert.toProlog(json.parseJson) shouldEqual prolog
   }
 
@@ -60,4 +60,10 @@ class JSONToPrologSpec extends FlatSpec with Matchers {
     val prolog = Source.fromResource("test.pl").getLines.mkString("\n")
     Convert.toProlog(json.parseJson) shouldEqual prolog
   }
+
+  it should "have the parameters ordered alphabetically" in {
+    val json = Source.fromResource("test2.json").getLines.mkString
+    val prolog = Source.fromResource("test2.pl").getLines.mkString("\n")
+    Convert.toProlog(json.parseJson) shouldEqual prolog
+  }
 }