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

Use phrase instead of forall

Browse Source
This commit is contained in:
Adrián Arroyo Calle
2020-12-27 14:11:09 +01:00
parent 4e543238e1
commit fc14d089b1
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/lib/http/http_server.pl
View File

@@ -9,7 +9,6 @@
:- use_module(library(iso_ext)). :- use_module(library(iso_ext)).
% TODO % TODO
% - Query Params
% - Cookies? % - Cookies?
% - HTTP Error Codes % - HTTP Error Codes
% - Improve code quality % - Improve code quality
@@ -132,8 +131,14 @@ default(Var, Default, Out) :-
; Var = Out ; Var = Out
). ).
header([]) --> [].
header([Key-Value|Headers]) -->
format_("~s: ~s\r\n", [Key, Value]),
header(Headers).
write_headers(Stream, Headers) :- write_headers(Stream, Headers) :-
forall(member(Key-Value, Headers), format(Stream, "~s: ~s\r\n", [Key, Value])). phrase(header(Headers), Cs),
format(Stream, "~s", [Cs]).
overwrite_header(Key-Value, [], [Key-Value]). overwrite_header(Key-Value, [], [Key-Value]).
overwrite_header(Key-Value, [Header|Headers], [Header|HeadersOut]) :- overwrite_header(Key-Value, [Header|Headers], [Header|HeadersOut]) :-