rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

reformat ;

Browse Source
This commit is contained in:
Bennet Bleßmann
2025-07-26 21:39:44 +02:00
committed by Bennet Bleßmann
parent 70d65bcea8
commit eb82d1b6d4
1 changed files with 13 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
src/lib/process.pl
View File

@@ -139,10 +139,9 @@ process_release(Process) :-
must_be_known_options(_, _, []). must_be_known_options(_, _, []).
must_be_known_options(Valid, Found, [X|XS]) :- must_be_known_options(Valid, Found, [X|XS]) :-
X =.. [Option|_], X =.. [Option|_],
( ( member(Option, Found) -> domain_error(non_duplicate_process_create_options, process_create/3)
member(Option, Found) -> domain_error(non_duplicate_process_create_options, process_create/3); ; member(Option, Valid) -> true
member(Option, Valid) -> true ; ; domain_error(process_create_option, Option, process_create/3)
domain_error(process_create_option, Option, process_create/3)
), ),
must_be_known_options(Valid, [Option | Found], XS). must_be_known_options(Valid, [Option | Found], XS).
@@ -150,20 +149,18 @@ check_options([], _).
check_options([X | XS], Options) :- check_options([X | XS], Options) :-
(Kinds, Pred, Default, Choice) = X, (Kinds, Pred, Default, Choice) = X,
tfilter(find_option(Kinds), Options, Solutions), tfilter(find_option(Kinds), Options, Solutions),
( ( Solutions = [] -> Choice = Default
Solutions = [] -> Choice = Default; ; Solutions = [Provided] -> call(Pred, Provided), Choice = Provided
Solutions = [Provided] -> call(Pred, Provided), Choice = Provided ; ; error(domain_error(non_confliction_process_options, Solutions), process_create/3)
error(domain_error(non_confliction_process_options, Solutions), process_create/3)
), ),
check_options(XS, Options). check_options(XS, Options).
find_option(Names, Found, T) :- (functor(Found, Name, 1), member(Name, Names)) -> T = true ; T = false. find_option(Names, Found, T) :- (functor(Found, Name, 1), member(Name, Names)) -> T = true ; T = false.
valid_stdio(IO) :- arg(1, IO, Arg), valid_stdio(IO) :- arg(1, IO, Arg),
( ( var(Arg) -> instantiation_error(process_create/3)
var(Arg) -> instantiation_error(process_create/3) ; ; valid_stdio_(Arg) -> true
valid_stdio_(Arg) -> true ; ; domain_error(process_create_option, Arg, process_create/3)
domain_error(process_create_option, Arg, process_create/3)
). ).
valid_stdio_(std). valid_stdio_(std).
@@ -173,15 +170,13 @@ valid_stdio_(file(Path)) :- must_be(chars, Path).
valid_env(env(E)) :- valid_env(env(E)) :-
must_be(list, E), must_be(list, E),
( ( valid_env_(E) -> true
valid_env_(E) -> true ; ; domain_error(process_create_option, env(E), process_create/3)
domain_error(process_create_option, env(E), process_create/3)
). ).
valid_env(environment(E)) :- valid_env(environment(E)) :-
must_be(list, E), must_be(list, E),
( ( valid_env_(E) -> true
valid_env_(E) -> true ; ; domain_error(process_create_option, environment(E), process_create/3)
domain_error(process_create_option, environment(E), process_create/3)
). ).
valid_env_([]). valid_env_([]).