Scripty Prolog

This commit is contained in:
Arfon Smith
2014-09-05 13:00:19 -05:00
parent ebd41f1f20
commit 34218c5f58
2 changed files with 36 additions and 13 deletions

View File

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

View File

@@ -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).