Scripty Prolog

lib/linguist/samples.json

@@ -516,7 +516,8 @@
     "Prolog": [
       ".ecl",
       ".pl",
-      ".prolog"
+      ".prolog",
+      ".script!"
     ],
     "Propeller Spin": [
       ".spin"
@@ -851,8 +852,8 @@
       "exception.zep.php"
     ]
   },
-  "tokens_total": 659332,
-  "languages_total": 905,
+  "tokens_total": 659364,
+  "languages_total": 906,
   "tokens": {
     "ABAP": {
       "*/**": 1,
@@ -55996,16 +55997,16 @@
       "TWO_PI": 1
     },
     "Prolog": {
-      "-": 350,
+      "-": 354,
       "module": 4,
-      "(": 1161,
+      "(": 1165,
       "cpa_admin": 1,
-      "[": 290,
+      "[": 291,
       "change_password_form//1": 1,
-      "]": 288,
-      ")": 1158,
-      ".": 232,
-      "use_module": 20,
+      "]": 289,
+      ")": 1162,
+      ".": 235,
+      "use_module": 21,
       "user": 45,
       "user_db": 1,
       "library": 19,
@@ -56395,6 +56396,17 @@
       "save": 1,
       "with": 3,
       "br": 1,
+      "SHEBANG#!swipl": 1,
+      "set_prolog_flag": 1,
+      "verbose": 1,
+      "silent": 1,
+      "dleak": 2,
+      "initialization": 1,
+      "main": 2,
+      "halt.": 1,
+      "current_prolog_flag": 1,
+      "argv": 1,
+      "File": 2,
       "subset": 2,
       "Set": 4,
       "Subset": 6,
@@ -73186,7 +73198,7 @@
     "PostScript": 107,
     "PowerShell": 12,
     "Processing": 74,
-    "Prolog": 6916,
+    "Prolog": 6948,
     "Propeller Spin": 13519,
     "Protocol Buffer": 63,
     "PureScript": 1652,
@@ -73401,7 +73413,7 @@
     "PostScript": 1,
     "PowerShell": 2,
     "Processing": 1,
-    "Prolog": 7,
+    "Prolog": 8,
     "Propeller Spin": 10,
     "Protocol Buffer": 1,
     "PureScript": 4,
@@ -73468,5 +73480,5 @@
     "fish": 3,
     "wisp": 1
   },
-  "md5": "3778b7ad7414915c83e6960531006542"
+  "md5": "3aca50df0a36ba29502d437de1226495"
 }

samples/Prolog/dleak-report.script!

@@ -0,0 +1,11 @@
+#!/usr/bin/env swipl
+
+:- set_prolog_flag(verbose, silent).
+:- use_module(dleak).
+
+:- initialization
+	main, halt.
+
+main :-
+	current_prolog_flag(argv, [File]),
+	dleak(File).