DAML Language (#524)

LANGUAGES.md

@@ -69,6 +69,7 @@ CSV (csv)
 Cuda (cu)
 Cython (pyx,pxi,pxd)
 D (d)
+DAML (daml)
 Dart (dart)
 Device Tree (dts,dtsi)
 Dhall (dhall)

SCC-OUTPUT-REPORT.html

@@ -18,7 +18,7 @@
 		<th>447</th>
 		<th>7659</th>
 		<th>1529</th>
-		<th>254192</th>
+		<th>254284</th>
 		<th>4067</th>
 	</tr><tr>
 		<td>processor/formatters.go</td>
@@ -288,7 +288,7 @@
 		<td>0</td>
 		<td>4</td>
 		<td>0</td>
-	    <td>21853</td>
+	    <td>21945</td>
 		<td>5</td>
 	</tr></tbody>
 	<tfoot><tr>
@@ -299,7 +299,7 @@
 		<th>447</th>
 		<th>7659</th>
 		<th>1529</th>
-    	<th>254192</th>
+    	<th>254284</th>
 		<th>4067</th>
 	</tr>
 	<tr>

examples/language/daml.daml

@@ -0,0 +1,14 @@
+applyFilter (filter : Int -> Int -> Bool)
+    (x : Int)
+    (y : Int) = filter x y
+
+compute = script do
+    applyFilter (<) 3 2 === False
+    applyFilter (/=) 3 2 === True
+
+    round (2.5 : Decimal) === 3
+    round (3.5 : Decimal) === 4
+
+    explode "me" === ["m", "e"]
+
+    applyFilter (\a b -> a /= b) 3 2 === True

languages.json

@@ -1650,6 +1650,24 @@
     ],
     "shebangs": ["rdmd"]
   },
+  "DAML": {
+    "complexitychecks": [
+      "if ",
+      "then ",
+      "else ",
+      "|| ",
+      "&& ",
+      "/= ",
+      "== ",
+      "case ",
+      "do {",
+      "forall "
+    ],
+    "extensions": ["daml"],
+    "line_comment": ["--"],
+    "multi_line": [["{-", "-}"]],
+    "quotes": []
+  },
   "DM": {
     "complexitychecks": [
       "for ",

test-all.sh

@@ -936,6 +936,7 @@ specificLanguages=(
     'Clipper '
     'Clojure '
     'Cuda '
+    'DAML '
     'DM '
     'Docker ignore '
     'Dockerfile '