make clib more yap friendly.

This commit is contained in:
Vítor Santos Costa 2010-06-18 00:31:16 +01:00
parent e5c21bda92
commit f4b86022d6
4 changed files with 9 additions and 1 deletions

View File

@ -100,7 +100,8 @@ LIBPL= @PLTARGETS@ $(srcdir)/streaminfo.pl $(srcdir)/process.pl \
$(srcdir)/uri.pl $(srcdir)/uri.pl
TARGETS= @TARGETS@ readutil.@SO@ streaminfo.@SO@ process.@SO@ \ TARGETS= @TARGETS@ readutil.@SO@ streaminfo.@SO@ process.@SO@ \
sha4pl.@SO@ uri.@SO@ memfile.@SO@ mime.@SO@ time.@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 UNXOBJ= error.o unix.o
SOCKOBJ= error.o socket.o nonblockio.o SOCKOBJ= error.o socket.o nonblockio.o

View File

@ -33,6 +33,8 @@
[ crypt/2 [ crypt/2
]). ]).
:- use_module(library(shlib)).
:- use_foreign_library(foreign(crypt), install_crypt). :- use_foreign_library(foreign(crypt), install_crypt).
% crypt(+Passwd, ?Encripted). % crypt(+Passwd, ?Encripted).

View File

@ -122,6 +122,8 @@ test(sha512, [true(Atom='cf83e135 7eefb8bd f1542850 d66d8007 d620e405 0b5715dc 8
:- begin_tests(rfc2202, [condition(current_prolog_flag(bounded, false))]). :- 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-1 from http://www.ipa.go.jp/security/rfc/RFC2202EN.html
HMAC SHA-2 from http://www.faqs.org/rfcs/rfc4231.html HMAC SHA-2 from http://www.faqs.org/rfcs/rfc4231.html

View File

@ -46,6 +46,9 @@
uri_file_name/2, % ?URI, ?Path uri_file_name/2, % ?URI, ?Path
uri_iri/2 % ?URI, ?IRI uri_iri/2 % ?URI, ?IRI
]). ]).
:- use_module(library(shlib)).
:- use_foreign_library(foreign(uri)). :- use_foreign_library(foreign(uri)).
/** <module> Process URIs /** <module> Process URIs