From 34218c5f5867ae1f703e5d4021ee7e6a997e8108 Mon Sep 17 00:00:00 2001
From: Arfon Smith <arfon@github.com>
Date: Fri, 5 Sep 2014 13:00:19 -0500
Subject: [PATCH] Scripty Prolog

---
 lib/linguist/samples.json           | 38 +++++++++++++++++++----------
 samples/Prolog/dleak-report.script! | 11 +++++++++
 2 files changed, 36 insertions(+), 13 deletions(-)
 create mode 100644 samples/Prolog/dleak-report.script!

diff --git a/lib/linguist/samples.json b/lib/linguist/samples.json
index 5b818edd..0089cffe 100644
--- a/lib/linguist/samples.json
+++ b/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"
 }
\ No newline at end of file
diff --git a/samples/Prolog/dleak-report.script! b/samples/Prolog/dleak-report.script!
new file mode 100644
index 00000000..8e97abed
--- /dev/null
+++ b/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).