21 lines
702 B
Prolog
Executable File
21 lines
702 B
Prolog
Executable File
#!/usr/bin/env swipl
|
|
|
|
:- initialization(main, main).
|
|
|
|
:- consult(log).
|
|
:- consult(parser).
|
|
:- consult(types).
|
|
:- consult(tests).
|
|
|
|
main(_Argv) :-
|
|
log:set_verbosity(1), % Default verbosity for tests, can be overridden
|
|
( current_prolog_flag(argv, [VerbosityArg | _Tail]), atom_string(VerbosityAtom, VerbosityArg), atom_number(VerbosityAtom, VerbosityLevel) ->
|
|
log:set_verbosity(VerbosityLevel),
|
|
format(user_error, 'Verbosity set to ~w from command line.~n', [VerbosityLevel])
|
|
; format(user_error, 'Using default verbosity 1. Provide a number (0-2) as arg to change.~n', [])
|
|
),
|
|
tests:run_tests,
|
|
halt.
|
|
main(_) :- % Fallback if run_tests fails or no args
|
|
halt(1).
|