AUTOLOAD: Add explicit autoload/2 statements to all libraries provided

Jan Wielemaker · Jan Wielemaker · commit 50e6a8a526e4 · 2020-02-12T14:00:30.000+01:00
by this package.
diff --git a/cgi.pl b/cgi.pl
@@ -3,7 +3,8 @@
     Author:        Jan Wielemaker
     E-mail:        J.Wielemaker@vu.nl
     WWW:           http://www.swi-prolog.org
-    Copyright (c)  2000-2011, University of Amsterdam
+    Copyright (c)  2000-2020, University of Amsterdam
+                              CWI, Amsterdam
     All rights reserved.
 
     Redistribution and use in source and binary forms, with or without
@@ -35,7 +36,6 @@
 :- module(cgi,
           [ cgi_get_form/1              % -ListOf Name(Value)
           ]).
-:- use_module(library(shlib)).
 
 :- use_foreign_library(foreign(cgi), install_cgi).
 
diff --git a/crypt.pl b/crypt.pl
@@ -3,7 +3,7 @@
     Author:        Jan Wielemaker
     E-mail:        J.Wielemaker@vu.nl
     WWW:           http://www.swi-prolog.org
-    Copyright (c)  2000-2011, University of Amsterdam
+    Copyright (c)  2000-2020, University of Amsterdam
     All rights reserved.
 
     Redistribution and use in source and binary forms, with or without
@@ -38,7 +38,7 @@
 
 :- use_foreign_library(foreign(crypt), install_crypt).
 
-%       crypt(+Passwd, ?Encripted).
+%!   crypt(+Passwd, ?Encripted).
 %
-%       Used to test an encrypted passwd or create one.  In the latter
-%       case, the first 2 letter must be instantiated
+%    Used to test an encrypted passwd or create one. In the latter case,
+%    the first 2 letter must be instantiated
diff --git a/filesex.pl b/filesex.pl
@@ -3,7 +3,7 @@
     Author:        Jan Wielemaker
     E-mail:        J.Wielemaker@vu.nl
     WWW:           http://www.swi-prolog.org
-    Copyright (c)  2002-2018, University of Amsterdam
+    Copyright (c)  2002-2020, University of Amsterdam
                               VU University Amsterdam
                               CWI, Amsterdam
     All rights reserved.
@@ -47,8 +47,12 @@
             delete_directory_and_contents/1, % +Dir
             delete_directory_contents/1 % +Dir
           ]).
-:- use_module(library(apply)).
-:- use_module(library(error)).
+:- autoload(library(apply),[maplist/2,maplist/3,foldl/4]).
+:- autoload(library(error),
+	    [permission_error/3,must_be/2,domain_error/2]).
+:- autoload(library(lists),[member/2]).
+:- autoload(library(nb_set),[empty_nb_set/1,add_nb_set/3]).
+
 
 /** <module> Extended operations on files
 
diff --git a/mallocinfo.pl b/mallocinfo.pl
@@ -35,9 +35,9 @@
 :- module(malloc_info,
           [
           ]).
-:- use_module(library(apply)).
-:- use_module(library(lists)).
-:- use_module(library(sgml)).
+:- autoload(library(apply),[maplist/3,partition/4]).
+:- autoload(library(lists),[selectchk/3]).
+:- autoload(library(sgml),[load_xml/3]).
 
 :- use_foreign_library(foreign(mallocinfo)).
 
diff --git a/memfile.pl b/memfile.pl
@@ -3,7 +3,8 @@
     Author:        Jan Wielemaker
     E-mail:        J.Wielemaker@vu.nl
     WWW:           http://www.swi-prolog.org
-    Copyright (c)  2001-2014, University of Amsterdam
+    Copyright (c)  2001-2020, University of Amsterdam
+                              CWI, Amsterdam
     All rights reserved.
 
     Redistribution and use in source and binary forms, with or without
diff --git a/process.pl b/process.pl
@@ -49,10 +49,10 @@
 
             process_set_method/1        % +CreateMethod
           ]).
-:- use_module(library(shlib)).
-:- use_module(library(option)).
-:- use_module(library(error)).
-:- use_module(library(apply)).
+:- autoload(library(apply),[maplist/3]).
+:- autoload(library(error),[must_be/2,existence_error/2]).
+:- autoload(library(option),[select_option/3]).
+
 
 :- use_foreign_library(foreign(process)).
 
diff --git a/prolog_server.pl b/prolog_server.pl
@@ -3,8 +3,9 @@
     Author:        Jan Wielemaker & Steve Prior
     E-mail:        J.Wielemaker@vu.nl
     WWW:           http://www.swi-prolog.org
-    Copyright (c)  2004-2011, University of Amsterdam
+    Copyright (c)  2004-2020, University of Amsterdam
                               VU University Amsterdam
+                              CWI, Amsterdam
     All rights reserved.
 
     Redistribution and use in source and binary forms, with or without
@@ -37,7 +38,17 @@
           [ prolog_server/2             % +Port, +Options
           ]).
 
-:- use_module(library(socket)).
+:- autoload(library(lists),[member/2]).
+:- autoload(library(socket),
+	    [ tcp_socket/1,
+	      tcp_setopt/2,
+	      tcp_bind/2,
+	      tcp_listen/2,
+	      tcp_accept/3,
+	      tcp_open_socket/3,
+	      tcp_host_to_address/2
+	    ]).
+
 
 %!  prolog_server(?Port, +Options)
 %
diff --git a/prolog_stream.pl b/prolog_stream.pl
@@ -35,7 +35,6 @@
 :- module(prolog_stream,
           [ open_prolog_stream/4        % +Module, +Mode, -Stream, +Data
           ]).
-:- use_module(library(shlib)).
 :- use_foreign_library(foreign(prolog_stream)).
 
 /** <module> A stream with Prolog callbacks
diff --git a/sha.pl b/sha.pl
@@ -41,8 +41,6 @@
             file_sha1/2,                % +File, -SHA1
             hash_atom/2                 % +Hash, -HexAtom
           ]).
-:- use_module(library(shlib)).
-
 :- use_foreign_library(foreign(sha4pl)).
 
 /** <module> SHA secure hashes
diff --git a/socket.pl b/socket.pl
@@ -3,7 +3,7 @@
     Author:        Jan Wielemaker
     E-mail:        J.Wielemaker@vu.nl
     WWW:           http://www.swi-prolog.org
-    Copyright (c)  2000-2018, University of Amsterdam
+    Copyright (c)  2000-2020, University of Amsterdam
                               VU University Amsterdam
                               CWI, Amsterdam
     All rights reserved.
@@ -59,9 +59,9 @@
 
             negotiate_socks_connection/2% +DesiredEndpoint, +StreamPair
           ]).
-:- use_module(library(shlib)).
-:- use_module(library(debug)).
-:- use_module(library(lists)).
+:- autoload(library(debug),[debug/3]).
+:- autoload(library(lists),[last/2]).
+
 
 /** <module> Network socket (TCP and UDP) library
 
diff --git a/streaminfo.pl b/streaminfo.pl
@@ -3,7 +3,8 @@
     Author:        Jan Wielemaker
     E-mail:        J.Wielemaker@vu.nl
     WWW:           http://www.swi-prolog.org
-    Copyright (c)  2009-2015, University of Amsterdam
+    Copyright (c)  2009-2020, University of Amsterdam
+                              CWI, Amsterdam
     All rights reserved.
 
     Redistribution and use in source and binary forms, with or without
@@ -35,6 +36,8 @@
 :- module(stream_info,
           [ stream_info/1               % +Stream
           ]).
+:- autoload(library(error),[existence_error/2]).
+:- autoload(library(lists),[member/2]).
 
 :- use_foreign_library(foreign(streaminfo)).
 
diff --git a/streampool.pl b/streampool.pl
@@ -40,7 +40,7 @@
             dispatch_stream_pool/1,     % +TimeOut
             stream_pool_main_loop/0
           ]).
-:- use_module(library(debug)).
+:- autoload(library(debug),[debug/3]).
 
 :- meta_predicate
     add_stream_to_pool(+, 0).
diff --git a/syslog.pl b/syslog.pl
@@ -3,7 +3,8 @@
     Author:        Jan Wielemaker
     E-mail:        J.Wielemaker@vu.nl
     WWW:           http://www.swi-prolog.org
-    Copyright (c)  2013, VU University Amsterdam
+    Copyright (c)  2013-2020, VU University Amsterdam
+                              CWI Amsterdam
     All rights reserved.
 
     Redistribution and use in source and binary forms, with or without
@@ -38,6 +39,7 @@
             syslog/3,                   % +Priority, +Format, +Args
             closelog/0
           ]).
+:- autoload(library(lists),[member/2]).
 
 /** <module> Unix syslog interface
 
diff --git a/udp_broadcast.pl b/udp_broadcast.pl
@@ -4,7 +4,7 @@
     E-mail:        jeffrose@acm.org
     WWW:           http://www.swi-prolog.org
     Copyright (c)  2012-2013, Jeffrey Rosenwald
-		   2018, CWI Amsterdam
+		   2018-2020, CWI Amsterdam
     All rights reserved.
 
     Redistribution and use in source and binary forms, with or without
@@ -41,12 +41,24 @@
             udp_peer_del/2,                     % +Scope, ?IP
             udp_peer/2                          % +Scope, -IP
           ]).
-:- use_module(library(socket)).
-:- use_module(library(broadcast)).
-:- use_module(library(option)).
-:- use_module(library(apply)).
-:- use_module(library(debug)).
-:- use_module(library(error)).
+:- autoload(library(apply),[maplist/2,maplist/3]).
+:- autoload(library(backcomp),[thread_at_exit/1]).
+:- autoload(library(broadcast),
+	    [broadcast_request/1,broadcast/1,listening/3,listen/3]).
+:- autoload(library(debug),[debug/3]).
+:- autoload(library(error),
+	    [must_be/2,syntax_error/1,domain_error/2,existence_error/2]).
+:- autoload(library(option),[option/3]).
+:- autoload(library(socket),
+	    [ tcp_close_socket/1,
+	      udp_socket/1,
+	      tcp_bind/2,
+	      tcp_getopt/2,
+	      tcp_setopt/2,
+	      udp_receive/4,
+	      udp_send/4
+	    ]).
+
 
 % :- debug(udp(broadcast)).
 
diff --git a/unix.pl b/unix.pl
@@ -45,7 +45,6 @@
             detach_IO/1,                % +Stream
             environ/1                   % -[Name=Value]
           ]).
-:- use_module(library(shlib)).
 
 /** <module> Unix specific operations
 
@@ -102,16 +101,6 @@
                     context(_, running_threads(Others))))
     ).
 
-:- if(\+current_predicate(set_prolog_gc_thread/1)).
-set_prolog_gc_thread(stop) :-
-    (   catch(thread_signal(gc, abort),
-              error(existence_error(thread, _), _),
-              fail)
-    ->  thread_join(gc)
-    ;   true
-    ).
-:- endif.
-
 other_thread(T) :-
     thread_self(Me),
     thread_property(T, status(Status)),
