diff options
| author | Arun Isaac | 2026-09-23 01:52:48 +0100 |
|---|---|---|
| committer | Arun Isaac | 2026-09-23 02:00:52 +0100 |
| commit | f60be87fa686b45e1cea25294966b204a98863d4 (patch) | |
| tree | cecfde8c2c768386776492e269c334b3d0e167af /xapian/xapian.scm | |
| parent | affe948cf6068730d82e34554e2de180e943d84c (diff) | |
| download | guile-xapian-f60be87fa686b45e1cea25294966b204a98863d4.tar.gz guile-xapian-f60be87fa686b45e1cea25294966b204a98863d4.tar.lz guile-xapian-f60be87fa686b45e1cea25294966b204a98863d4.zip | |
Add term-positionlist.
Diffstat (limited to 'xapian/xapian.scm')
| -rw-r--r-- | xapian/xapian.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/xapian/xapian.scm b/xapian/xapian.scm index e00c07f..dbdfb44 100644 --- a/xapian/xapian.scm +++ b/xapian/xapian.scm @@ -76,6 +76,7 @@ term-string term-wdf term-freq + term-positionlist position-termpos mset-snippet mset-sxml-snippet)) @@ -306,6 +307,10 @@ on the database object." (define term-wdf TermIterator-get-wdf) (define term-freq TermIterator-get-termfreq) +(define (term-positionlist term) + (iterable (TermIterator-positionlist-begin term) + (TermIterator-positionlist-end term))) + (define position-termpos PositionIterator-get-termpos) (define (query term) |