sascha/vlfi
1
0
Fork 0
mirror of https://github.com/m00natic/vlfi.git synced 2025-01-31 02:00:47 +00:00
Code Issues Releases Wiki Activity

Unify and optimize deletion.

Browse Source
This commit is contained in:
Andrey Kotlarski 2014-01-20 02:37:51 +02:00
parent 82fd5b943b
commit e747de4495
1 changed files with 84 additions and 73 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

157
vlf-base.el
View File

@ -147,36 +147,28 @@ bytes added to the end."
(let ((pos (+ (position-bytes (point)) vlf-start-pos)) (let ((pos (+ (position-bytes (point)) vlf-start-pos))
(inhibit-read-only t)) (inhibit-read-only t))
(cond ((< end edit-end) (cond ((< end edit-end)
(let* ((del-pos (or (byte-to-position (setq end (car (vlf-delete-region
(1+ (- end vlf-start-pos))) (point-min) vlf-start-pos edit-end
(point-min))) end (or (byte-to-position
(del-len (length (encode-coding-region (- end vlf-start-pos))
del-pos (point-max) (point-min))
buffer-file-coding-system nil))))
t))))
(setq end (- (if (zerop vlf-end-pos)
vlf-file-size
vlf-end-pos)
del-len))
(vlf-with-undo-disabled
(delete-region del-pos (point-max)))))
((< edit-end end) ((< edit-end end)
(vlf-with-undo-disabled (vlf-with-undo-disabled
(setq shift-end (cdr (vlf-insert-file-contents (setq shift-end (cdr (vlf-insert-file-contents
vlf-end-pos end vlf-end-pos end
(/= start vlf-end-pos) t (/= start vlf-end-pos) t
(point-max))))))) (point-max)))))))
(setq vlf-end-pos (+ end shift-end))
(cond ((< vlf-start-pos start) (cond ((< vlf-start-pos start)
(let* ((del-pos (byte-to-position (let ((del-info (vlf-delete-region
(1+ (- start vlf-start-pos)))) (point-min) vlf-start-pos
(del-len (length (encode-coding-region vlf-end-pos start
(point-min) del-pos (byte-to-position
buffer-file-coding-system (- start vlf-start-pos)) t)))
t)))) (setq start (car del-info))
(setq start (+ vlf-start-pos del-len)) (vlf-shift-undo-list (- (point-min)
(vlf-with-undo-disabled (cdr del-info)))))
(delete-region (point-min) del-pos))
(vlf-shift-undo-list (- (point-min) del-pos))))
((< start vlf-start-pos) ((< start vlf-start-pos)
(let ((edit-end-pos (point-max))) (let ((edit-end-pos (point-max)))
(vlf-with-undo-disabled (vlf-with-undo-disabled
@ -187,13 +179,13 @@ bytes added to the end."
(goto-char (point-min)) (goto-char (point-min))
(insert (delete-and-extract-region (insert (delete-and-extract-region
edit-end-pos (point-max)))) edit-end-pos (point-max))))
(vlf-shift-undo-list (- (point-max) edit-end-pos))))) (vlf-shift-undo-list (- (point-max)
edit-end-pos)))))
(setq start (- start shift-start)) (setq start (- start shift-start))
(goto-char (or (byte-to-position (- pos start)) (goto-char (or (byte-to-position (- pos start))
(byte-to-position (- pos vlf-start-pos)) (byte-to-position (- pos vlf-start-pos))
(point-max))) (point-max)))
(setq vlf-start-pos start (setq vlf-start-pos start))
vlf-end-pos (+ end shift-end)))
(set-buffer-modified-p modified) (set-buffer-modified-p modified)
(set-visited-file-modtime) (set-visited-file-modtime)
(cons shift-start shift-end)))))) (cons shift-start shift-end))))))
@ -241,11 +233,24 @@ bytes added to the end."
(setq shift-start (vlf-adjust-start start safe-end position (setq shift-start (vlf-adjust-start start safe-end position
adjust-end) adjust-end)
start (- start shift-start)) start (- start shift-start))
(vlf-insert-file-contents-safe start safe-end position)) (vlf-insert-file-contents-1 start safe-end position))
(if adjust-end (if adjust-end
(setq shift-end (vlf-adjust-end start end position))) (setq shift-end (- (car (vlf-delete-region position start
safe-end end
(point-max)
nil 'start))
end)))
(cons shift-start shift-end))) (cons shift-start shift-end)))
(defun vlf-insert-file-contents-1 (start end position)
"Extract decoded file bytes START to END at POSITION."
(let ((coding buffer-file-coding-system))
(insert-file-contents-literally buffer-file-name nil start end)
(let ((coding-system-for-read coding))
(decode-coding-inserted-region position (point-max)
buffer-file-name nil start end)))
(setq buffer-file-coding-system last-coding-system-used))
(defun vlf-adjust-start (start end position adjust-end) (defun vlf-adjust-start (start end position adjust-end)
"Adjust chunk beginning at absolute START to END till content can\ "Adjust chunk beginning at absolute START to END till content can\
be properly decoded. Use buffer POSITION as start. be properly decoded. Use buffer POSITION as start.
@ -257,7 +262,7 @@ Return number of bytes moved back for proper decoding."
(strict (or (= sample-end vlf-file-size) (strict (or (= sample-end vlf-file-size)
(and (not adjust-end) (= sample-end end)))) (and (not adjust-end) (= sample-end end))))
(shift 0)) (shift 0))
(while (and (progn (vlf-insert-file-contents-safe (while (and (progn (vlf-insert-file-contents-1
safe-start sample-end position) safe-start sample-end position)
(not (zerop safe-start))) (not (zerop safe-start)))
(< shift 3) (< shift 3)
@ -273,53 +278,59 @@ Return number of bytes moved back for proper decoding."
safe-start (1- safe-start) safe-start (1- safe-start)
chunk-size (1+ chunk-size)) chunk-size (1+ chunk-size))
(delete-region position (point-max))) (delete-region position (point-max)))
(let ((cut-pos position) (setq safe-start (car (vlf-delete-region position safe-start
(cut-len 0)) sample-end start
(while (< safe-start start) position t 'start)))
(setq cut-len (length (encode-coding-region (unless (= sample-end end)
cut-pos (1+ cut-pos) (delete-region position (point-max))
buffer-file-coding-system t)) (vlf-insert-file-contents-1 safe-start end position))
cut-pos (1+ cut-pos)
safe-start (+ safe-start cut-len)))
(if (< start safe-start)
(setq safe-start (- safe-start cut-len)
cut-pos (1- cut-pos)))
(if (= sample-end end)
(delete-region position cut-pos)
(delete-region position (point-max))
(vlf-insert-file-contents-safe safe-start end position)))
(- start safe-start))) (- start safe-start)))
(defun vlf-adjust-end (start end position) (defun vlf-delete-region (position start end border cut-point from-start
"Adjust chunk end at absolute START to END starting at POSITION. &optional encode-direction)
Remove characters from the end until length is closest to expected. "Delete from chunk starting at POSITION enclosing absolute file\
Return number of bytes added over expected." positions START to END at absolute position BORDER. Start search for
(let ((expected-size (- end start)) best cut at CUT-POINT. Delete from buffer beginning if FROM-START is
(current-size (length (encode-coding-region non nil or up to buffer end otherwise. ENCODE-DIRECTION determines
position (point-max) which side of the region to use to calculate cut position's absolute
buffer-file-coding-system t))) file position. Possible values are: `start' - from the beginning;
(cut-point (point-max)) `end' - from end; nil - the shorter side.
(cut-len 0)) Return actual absolute position of new border and buffer point at
(while (< expected-size current-size) which deletion was performed."
(setq cut-len (length (encode-coding-region (let* ((encode-from-end (if encode-direction
(1- cut-point) cut-point (eq encode-direction 'end)
(< (- end border) (- border start))))
(dist (if encode-from-end
(- end (length (encode-coding-region
cut-point (point-max)
buffer-file-coding-system t)))
(+ start (length (encode-coding-region
position cut-point
buffer-file-coding-system t)))))
(len 0))
(if (< border dist)
(while (< border dist)
(setq len (length (encode-coding-region
cut-point (1- cut-point)
buffer-file-coding-system t)) buffer-file-coding-system t))
cut-point (1- cut-point) cut-point (1- cut-point)
current-size (- current-size cut-len))) dist (- dist len)))
(if (< current-size expected-size) (while (< dist border)
(setq cut-point (1+ cut-point) (setq len (length (encode-coding-region
current-size (+ current-size cut-len))) cut-point (1+ cut-point)
(delete-region cut-point (point-max)) buffer-file-coding-system t))
(- current-size expected-size))) cut-point (1+ cut-point)
dist (+ dist len)))
(defun vlf-insert-file-contents-safe (start end position) (or (= dist border)
"Extract decoded file bytes START to END at POSITION." (setq cut-point (1- cut-point)
(let ((coding buffer-file-coding-system)) dist (- dist len))))
(insert-file-contents-literally buffer-file-name nil start end) (and (not from-start) (/= dist border)
(let ((coding-system-for-read coding)) (setq cut-point (1+ cut-point)
(decode-coding-inserted-region position (point-max) dist (+ dist len)))
buffer-file-name nil start end))) (vlf-with-undo-disabled
(setq buffer-file-coding-system last-coding-system-used)) (if from-start (delete-region position cut-point)
(delete-region cut-point (point-max))))
(cons dist (1+ cut-point))))
(defun vlf-shift-undo-list (n) (defun vlf-shift-undo-list (n)
"Shift undo list element regions by N." "Shift undo list element regions by N."