Prolog CLI: Use filename instead of stream(user_input)

Author: fnogatz

lib-pl/README.md

@@ -8,9 +8,13 @@ All you need is [SWI-Prolog](http://www.swi-prolog.org/). See there for installa
 
 ## Usage
 
-`xsd2json` provides a command line interface. You can use it via
+`xsd2json` provides a command line interface. You can directly execute it via
 
-	swipl -q -f cli.pl -- < /path/to/your.xsd
+	./cli /path/to/your.xsd
+
+or by calling swipl:
+
+	swipl -q -f cli /path/to/your.xsd
 
 Unfortunately the command line version is way slower than using `xsd2json` programmatically. The `xsd2json.pl` module provides a predicate `xsd2json/2` which can be used to convert a given XSD file into the equivalent JSON Schema. Call it via `swipl -s xsd2json.pl` followed by
 

lib-pl/cli

@@ -0,0 +1,14 @@
+#!/usr/bin/swipl -f -q
+
+:- use_module(xsd2json).
+:- use_module(library(http/json)).
+
+
+:- initialization main.
+
+main :-
+  current_prolog_flag(argv, Argv),
+  Argv = [Filename|_],
+  xsd2json(Filename,JSON),
+  json_write(user_output,JSON),
+  halt(0).