yakumo.izuru/kosuzu
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Partially matching ID queries

Browse Source 
git-svn-id: file:///srv/svn/repo/kosuzu/trunk@37 eb64cd80-c68d-6f47-b6a3-0ada418499da
This commit is contained in:
fox 2022-11-26 11:16:50 +00:00
parent 78a8c35889
commit d07aae3a35
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/archive.ml
View File

@ -5,7 +5,10 @@ let authored query_string =
fun n -> Person.Set.predicate q n.Text.authors fun n -> Person.Set.predicate q n.Text.authors
let ided query_string = let ided query_string =
fun n -> n.Text.id = query_string let len = String.length query_string in
fun n ->
try String.sub n.Text.id 0 len = query_string
with Invalid_argument _ -> false
let keyworded query_string = let keyworded query_string =
let q = String_set.query query_string in let q = String_set.query query_string in