#!/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).