From f4b86022d66a10be9bb1fd128d44b6d36e6f4fb5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= Date: Fri, 18 Jun 2010 00:31:16 +0100 Subject: [PATCH] make clib more yap friendly. --- packages/clib/Makefile.in | 3 ++- packages/clib/crypt.pl | 2 ++ packages/clib/test.pl | 2 ++ packages/clib/uri.pl | 3 +++ 4 files changed, 9 insertions(+), 1 deletion(-) diff --git a/packages/clib/Makefile.in b/packages/clib/Makefile.in index c729e1a94..0b8708ac9 100644 --- a/packages/clib/Makefile.in +++ b/packages/clib/Makefile.in @@ -100,7 +100,8 @@ LIBPL= @PLTARGETS@ $(srcdir)/streaminfo.pl $(srcdir)/process.pl \ $(srcdir)/uri.pl TARGETS= @TARGETS@ readutil.@SO@ streaminfo.@SO@ process.@SO@ \ sha4pl.@SO@ uri.@SO@ memfile.@SO@ mime.@SO@ time.@SO@ \ - files.@SO@ rlimit.@SO@ random.@SO@ cgi.@SO@ socket.@SO@ + files.@SO@ rlimit.@SO@ random.@SO@ cgi.@SO@ socket.@SO@ \ + crypt.@SO@ UNXOBJ= error.o unix.o SOCKOBJ= error.o socket.o nonblockio.o diff --git a/packages/clib/crypt.pl b/packages/clib/crypt.pl index ab0dbfb8d..a3ae4d5cd 100644 --- a/packages/clib/crypt.pl +++ b/packages/clib/crypt.pl @@ -33,6 +33,8 @@ [ crypt/2 ]). +:- use_module(library(shlib)). + :- use_foreign_library(foreign(crypt), install_crypt). % crypt(+Passwd, ?Encripted). diff --git a/packages/clib/test.pl b/packages/clib/test.pl index 71f26f152..d3b343eee 100644 --- a/packages/clib/test.pl +++ b/packages/clib/test.pl @@ -122,6 +122,8 @@ test(sha512, [true(Atom='cf83e135 7eefb8bd f1542850 d66d8007 d620e405 0b5715dc 8 :- begin_tests(rfc2202, [condition(current_prolog_flag(bounded, false))]). +:- use_module(library(sha)). + /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - HMAC SHA-1 from http://www.ipa.go.jp/security/rfc/RFC2202EN.html HMAC SHA-2 from http://www.faqs.org/rfcs/rfc4231.html diff --git a/packages/clib/uri.pl b/packages/clib/uri.pl index 4ab37f44d..32dce8ad6 100644 --- a/packages/clib/uri.pl +++ b/packages/clib/uri.pl @@ -46,6 +46,9 @@ uri_file_name/2, % ?URI, ?Path uri_iri/2 % ?URI, ?IRI ]). + +:- use_module(library(shlib)). + :- use_foreign_library(foreign(uri)). /** Process URIs