sascha/vlfi
1
0
Fork 0
mirror of https://github.com/m00natic/vlfi.git synced 2025-02-24 05:48:06 +00:00
Code Issues Releases Wiki Activity

Abstract batch overlapping during search and optimize a bit.

Browse Source
This commit is contained in:
Andrey Kotlarski 2013-04-01 14:32:10 +03:00
parent ac382e90dc
commit ab20671a93
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
vlfi.el
View File

@ -271,7 +271,7 @@ OP-TYPE specifies the file operation being performed over FILENAME."
(- vlfi-file-size vlfi-end-pos) (- vlfi-file-size vlfi-end-pos)
vlfi-start-pos) vlfi-start-pos)
vlfi-file-size)) vlfi-file-size))
(half-batch (/ vlfi-batch-size 2))) (batch-step (/ vlfi-batch-size 8))) ; amount of chunk overlap
(unwind-protect (unwind-protect
(catch 'end-of-file (catch 'end-of-file
(if backward (if backward
@ -284,11 +284,13 @@ OP-TYPE specifies the file operation being performed over FILENAME."
(match-end 0)))) (match-end 0))))
((zerop vlfi-start-pos) ((zerop vlfi-start-pos)
(throw 'end-of-file nil)) (throw 'end-of-file nil))
(t (let ((half-move (- vlfi-start-pos half-batch))) (t (let ((batch-move (- vlfi-start-pos
(- vlfi-batch-size
batch-step))))
(vlfi-move-to-batch (vlfi-move-to-batch
(if (< match-start-pos half-move) (if (< match-start-pos batch-move)
(- match-start-pos vlfi-batch-size) (- match-start-pos vlfi-batch-size)
half-move))) batch-move)))
(goto-char (if (< match-start-pos (goto-char (if (< match-start-pos
vlfi-end-pos) vlfi-end-pos)
(- match-start-pos (- match-start-pos
@ -305,11 +307,11 @@ OP-TYPE specifies the file operation being performed over FILENAME."
(match-end 0)))) (match-end 0))))
((= vlfi-end-pos vlfi-file-size) ((= vlfi-end-pos vlfi-file-size)
(throw 'end-of-file nil)) (throw 'end-of-file nil))
(t (let ((half-move (- vlfi-end-pos half-batch))) (t (let ((batch-move (- vlfi-end-pos batch-step)))
(vlfi-move-to-batch (vlfi-move-to-batch
(if (< half-move match-end-pos) (if (< batch-move match-end-pos)
match-end-pos match-end-pos
half-move))) batch-move)))
(goto-char (if (< vlfi-start-pos match-end-pos) (goto-char (if (< vlfi-start-pos match-end-pos)
(- match-end-pos vlfi-start-pos) (- match-end-pos vlfi-start-pos)
(point-min))) (point-min)))