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

use '$first_non_octet'/2 for much faster domain check

Browse Source
This commit is contained in:
Markus Triska
2021-11-03 22:27:41 +01:00
parent 494bd7b79c
commit 55dabbe16a
1 changed files with 13 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
src/lib/crypto.pl
View File

@@ -46,6 +46,7 @@
:- use_module(library(format)). :- use_module(library(format)).
:- use_module(library(charsio)). :- use_module(library(charsio)).
:- use_module(library(si)). :- use_module(library(si)).
:- use_module(library(iso_ext), [partial_string/1]).
/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
hex_bytes(?Hex, ?Bytes) is det. hex_bytes(?Hex, ?Bytes) is det.
@@ -104,12 +105,18 @@ must_be_bytes(Bytes, Context) :-
must_be_byte_chars(Chars, Context) :- must_be_byte_chars(Chars, Context) :-
must_be(list, Chars), ( partial_string(Chars) ->
( member(Char, Chars), ( '$first_non_octet'(Chars, F) ->
char_code(Char, Code), domain_error(byte_char, F, Context)
\+ between(0, 255, Code) -> ; true
domain_error(byte_char, Char, Context) )
; true ; must_be(list, Chars),
( member(Char, Chars),
char_code(Char, Code),
\+ between(0, 255, Code) ->
domain_error(byte_char, Char, Context)
; true
)
). ).