Fixed trailing whitespace errors

Author: Jan Wielemaker

html_head.pl

@@ -578,7 +578,7 @@
     html_include(Mime, Path).
 
 html_include(Mime, Path) -->
-    mime_include(Mime, Path), 
+    mime_include(Mime, Path),
     !.    % user hook
 html_include(text/css, Path) -->
     !,

html_quasiquotations.pl

@@ -91,7 +91,7 @@
 
 xml_content(Dict, [Name], [Var]) :-
     atom(Name),
-    memberchk(Name=Var, Dict), 
+    memberchk(Name=Var, Dict),
     !.
 xml_content(Dict, Content0, Content) :-
     maplist(xml_content_element(Dict), Content0, Content).
@@ -105,6 +105,6 @@
 xml_content_element(_, Element, Element).
 
 xml_attribute(Dict, Attr=Name, Attr=Var) :-
-    memberchk(Name=Var, Dict), 
+    memberchk(Name=Var, Dict),
     !.
 xml_attribute(_, Attr, Attr).

html_write.pl

@@ -323,13 +323,13 @@
     { strip_module(Head, M, _),
       hook_module(M, HM, head//2)
     },
-    HM:head(Style, Head), 
+    HM:head(Style, Head),
     !.
 pagehead(_, Head) -->
     { strip_module(Head, M, _),
       hook_module(M, HM, head//1)
     },
-    HM:head(Head), 
+    HM:head(Head),
     !.
 pagehead(_, Head) -->
     html(head(Head)).
@@ -344,20 +344,20 @@
     { strip_module(Body, M, _),
       hook_module(M, HM, body//2)
     },
-    HM:body(Style, Body), 
+    HM:body(Style, Body),
     !.
 pagebody(_, Body) -->
     { strip_module(Body, M, _),
       hook_module(M, HM, body//1)
     },
-    HM:body(Body), 
+    HM:body(Body),
     !.
 pagebody(_, Body) -->
     html(body(Body)).
 
 
 hook_module(M, M, PI) :-
-    current_predicate(M:PI), 
+    current_predicate(M:PI),
     !.
 hook_module(_, user, PI) :-
     current_predicate(user:PI).
@@ -392,14 +392,14 @@
       instantiation_error(Var)
     }.
 html_expand(Term, Module) -->
-    do_expand(Term, Module), 
+    do_expand(Term, Module),
     !.
 html_expand(Term, _Module) -->
     { print_message(error, html(expand_failed(Term))) }.
 
 
 do_expand(Token, _) -->                 % call user hooks
-    expand(Token), 
+    expand(Token),
     !.
 do_expand(Fmt-Args, _) -->
     !,
@@ -744,7 +744,7 @@
     { uri_encoded(query_value, Value, Encoded) },
     [ Encoded ].
 attribute_value_s(Value) -->
-    expand_attribute_value(Value), 
+    expand_attribute_value(Value),
     !.
 attribute_value_s(Fmt-Args) -->
     !,
@@ -1469,7 +1469,7 @@
 
                                         % TBD: Check with do_expand!
 html_colours(Var, classify) :-
-    var(Var), 
+    var(Var),
     !.
 html_colours(\List, built_in-[built_in-Colours]) :-
     is_list(List),
@@ -1505,7 +1505,7 @@
 html_colours(_, classify).
 
 list_colours(Var, classify) :-
-    var(Var), 
+    var(Var),
     !.
 list_colours([], []).
 list_colours([H0|T0], [H|T]) :-
@@ -1516,7 +1516,7 @@
     html_colours(Last, Colours).
 
 attr_colours(Var, classify) :-
-    var(Var), 
+    var(Var),
     !.
 attr_colours([], classify) :- !.
 attr_colours(Term, list-Elements) :-
@@ -1538,16 +1538,16 @@
     Term =.. [Name,Value],
     attr_value_colour(Value, VColour).
 attr_colours(Name, html_attribute(Name)) :-
-    atom(Name), 
+    atom(Name),
     !.
 attr_colours(Term, classify) :-
     compound(Term),
-    compound_name_arity(Term, '.', 2), 
+    compound_name_arity(Term, '.', 2),
     !.
 attr_colours(_, error).
 
 attr_list_colours(Var, classify) :-
-    var(Var), 
+    var(Var),
     !.
 attr_list_colours([], []).
 attr_list_colours([H0|T0], [H|T]) :-
@@ -1565,18 +1565,18 @@
     attr_value_colour(B, CB).
 attr_value_colour(encode(_), sgml_attr_function-[classify]) :- !.
 attr_value_colour(Atom, classify) :-
-    atomic(Atom), 
+    atomic(Atom),
     !.
 attr_value_colour([_|_], classify) :- !.
 attr_value_colour(_Fmt-_Args, classify) :- !.
 attr_value_colour(Term, classify) :-
     compound(Term),
-    compound_name_arity(Term, '.', 2), 
+    compound_name_arity(Term, '.', 2),
     !.
 attr_value_colour(_, error).
 
 location_id(ID, classify) :-
-    var(ID), 
+    var(ID),
     !.
 location_id(ID, Class) :-
     (   catch(http_dispatch:http_location_by_id(ID, Location), _, fail)

http_authenticate.pl

@@ -157,7 +157,7 @@
 cached_authenticated(Authorization, File, User, Fields) :-
     authenticated(Authorization, File, User, Time, Fields),
     get_time(Now),
-    Now-Time =< 60, 
+    Now-Time =< 60,
     !.              % 60-second timeout
 cached_authenticated(_, _, _, _) :-
     get_time(Now),
@@ -216,7 +216,7 @@
     ).
 
 reload_passwd_file(Path, Stamp) :-
-    last_modified(Path, Stamp), 
+    last_modified(Path, Stamp),
     !.  % another thread did the work
 reload_passwd_file(Path, Stamp) :-
     http_read_passwd_file(Path, Data),

http_client.pl

@@ -282,7 +282,7 @@
     ->  delete(Fields, content_type(_), Fields1),
         http_convert_data(In, [content_type(Type)|Fields1], Data, Options1)
     ;   http_convert_data(In, Fields, Data, Options)
-    ), 
+    ),
     !.
 http_read_data(In, Fields, Data, Options) :-
     http_read_data(In, Fields, Data, [to(atom)|Options]).
@@ -300,7 +300,7 @@
     (   sub_atom(Type, _, _, _, 'UTF-8')
     ->  true
     ;   sub_atom(Type, _, _, _, 'utf-8')
-    ), 
+    ),
     !.
 encoding(_, octet).
 

http_cors.pl

@@ -95,7 +95,7 @@
 %   request that typically serve JSON or XML).
 
 cors_enable :-
-    cors_enable_domain, 
+    cors_enable_domain,
     !.
 cors_enable.                            % CORS not enabled
 

http_digest.pl

@@ -183,7 +183,7 @@
     nonce_gc_time(Last),
     get_time(Now),
     setting(nonce_timeout, TimeOut),
-    Now-Last < TimeOut/4, 
+    Now-Last < TimeOut/4,
     !.
 gc_nonce :-
     with_mutex(http_digest_gc_nonce,
@@ -231,14 +231,14 @@
 %   Return our private key.
 
 private_key(PrivateKey) :-
-    nonce_key(PrivateKey), 
+    nonce_key(PrivateKey),
     !.
 private_key(PrivateKey) :-
     with_mutex(http_digest,
                private_key_sync(PrivateKey)).
 
 private_key_sync(PrivateKey) :-
-    nonce_key(PrivateKey), 
+    nonce_key(PrivateKey),
     !.
 private_key_sync(PrivateKey) :-
     PrivateKey is random(1<<63-1),
@@ -659,7 +659,7 @@
     ).
 
 add_option(Option, Options0, _) :-
-    option(Option, Options0), 
+    option(Option, Options0),
     !.
 add_option(Option, Options0, [Option|Options0]).
 
@@ -746,12 +746,12 @@
 digest_credentials(Authority, Path, Nonce, Fields) :-
     client_nonce(Authority, Domains, Fields, _Created),
     in_domain(Path, Domains),
-    memberchk(nonce(Nonce), Fields), 
+    memberchk(nonce(Nonce), Fields),
     !.
 
 in_domain(Path, Domains) :-
     member(Domain, Domains),
-    sub_atom(Path, 0, _, _, Domain), 
+    sub_atom(Path, 0, _, _, Domain),
     !.
 
 next_nonce_count(Nonce, NC) :-
@@ -793,7 +793,7 @@
     client_nonce_gc_time(Last),
     get_time(Now),
     setting(client_nonce_timeout, TimeOut),
-    Now-Last < TimeOut/4, 
+    Now-Last < TimeOut/4,
     !.
 gc_client_nonce :-
     get_time(Now),

http_dirindex.pl

@@ -237,7 +237,7 @@
 %   file_mime_type/2.
 
 mime_type_icon(Ext, Icon) :-
-    http:mime_type_icon(Ext, Icon), 
+    http:mime_type_icon(Ext, Icon),
     !.
 mime_type_icon(_, 'generic.png').
 

http_dispatch.pl

@@ -254,7 +254,7 @@
     assert(generation(1)).
 
 current_generation(G) :-
-    with_mutex(http_dispatch, generation(G)), 
+    with_mutex(http_dispatch, generation(G)),
     !.
 current_generation(0).
 
@@ -366,7 +366,7 @@
     type_error(path_or_alias, PathSpec).
 
 to_atom(Atom, Atom) :-
-    atom(Atom), 
+    atom(Atom),
     !.
 to_atom(Path, Atom) :-
     phrase(path_to_list(Path), Components),
@@ -516,7 +516,7 @@
     functor(C, PN, _),
     (   ID = M:PN
     ;   ID = PN
-    ), 
+    ),
     !.
 
 
@@ -693,7 +693,7 @@
             memberchk(Method, Methods)
         )
     ;   true
-    ), 
+    ),
     !.
 supports_method(Request, _Options) :-
     memberchk(path(Location), Request),
@@ -767,7 +767,7 @@
     ).
 
 extend(Var, _, Var) :-
-    var(Var), 
+    var(Var),
     !.
 extend(M:G0, Extra, M:G) :-
     extend(G0, Extra, G).
@@ -868,7 +868,7 @@
     !,
     instantiation_error(File).
 http_safe_file(_, Options) :-
-    option(unsafe(true), Options, false), 
+    option(unsafe(true), Options, false),
     !.
 http_safe_file(File, _) :-
     http_safe_file(File).
@@ -889,7 +889,7 @@
 safe_name(Name, _) :-
     must_be(atom, Name),
     prolog_to_os_filename(FileName, Name),
-    \+ unsafe_name(FileName), 
+    \+ unsafe_name(FileName),
     !.
 safe_name(_, Spec) :-
     permission_error(read, file, Spec).
@@ -1012,7 +1012,7 @@
 
 path_tree(Tree) :-
     current_generation(G),
-    nb_current(http_dispatch_tree, G-Tree), 
+    nb_current(http_dispatch_tree, G-Tree),
     !. % Avoid existence error
 path_tree(Tree) :-
     path_tree_nocache(Tree),

http_error.pl

@@ -75,7 +75,7 @@
     saved_request/2.
 
 http_listen(_) :-
-    \+ debugging(http(error)), 
+    \+ debugging(http(error)),
     !.
 http_listen(request_start(Id, Request)) :-
     !,
@@ -92,7 +92,7 @@
           '~w ~w: [~w] ~w', [UMethod, Path, Code, Reply]).
 
 reply_status(Status, Reply) :-
-    map_exception(Status, Reply), 
+    map_exception(Status, Reply),
     !.
 reply_status(Status, Message) :-
     message_to_string(Status, Message).

http_exception.pl

@@ -111,7 +111,7 @@
               resource_error(E),
               [connection(close)],
               []) :-
-    resource_error(E), 
+    resource_error(E),
     !.
 map_exception_to_http_status(E,
               bad_request(E2),
@@ -134,7 +134,7 @@
     ->  true
     ;   Context = context(_Stack, ContextInstance)
     ->  subsumes_term(ContextGeneral, ContextInstance)
-    ), 
+    ),
     !.
 
 bad_request_error(Error, Context) :-
@@ -159,10 +159,10 @@
 
 in_or_exclude_backtrace(Error, Error) :-
     current_setting(http:client_backtrace),
-    setting(http:client_backtrace, true), 
+    setting(http:client_backtrace, true),
     !.
 in_or_exclude_backtrace(Error0, Error) :-
-    discard_stack_trace(Error0, Error), 
+    discard_stack_trace(Error0, Error),
     !.
 in_or_exclude_backtrace(Exception, Exception).