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

Keep track of current batch encoded size and allow fluctuation when

Browse Source 
searching for proper decoding.
This commit is contained in:
Andrey Kotlarski 2013-08-06 02:11:21 +03:00
parent 8ed919209a
commit 298d8f59d9
1 changed files with 19 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
vlfi.el
View File

@ -49,6 +49,7 @@
"Absolute position of the visible chunk start.") "Absolute position of the visible chunk start.")
(defvar vlfi-end-pos 0 "Absolute position of the visible chunk end.") (defvar vlfi-end-pos 0 "Absolute position of the visible chunk end.")
(defvar vlfi-file-size 0 "Total size of presented file.") (defvar vlfi-file-size 0 "Total size of presented file.")
(defvar vlfi-encode-size 0 "Size in bytes of current batch decoded.")
(defvar vlfi-mode-map (defvar vlfi-mode-map
(let ((map (make-sparse-keymap))) (let ((map (make-sparse-keymap)))
@ -74,6 +75,8 @@
(put 'vlfi-start-pos 'permanent-local t) (put 'vlfi-start-pos 'permanent-local t)
(put 'vlfi-end-pos 'permanent-local t) (put 'vlfi-end-pos 'permanent-local t)
(put 'vlfi-file-size 'permanent-local t) (put 'vlfi-file-size 'permanent-local t)
(put 'vlfi-encode-size 'permanent-local t)
(define-derived-mode vlfi-mode special-mode "VLFI" (define-derived-mode vlfi-mode special-mode "VLFI"
"Mode to browse large files in." "Mode to browse large files in."
(setq buffer-read-only t) (setq buffer-read-only t)
@ -346,15 +349,18 @@ When given MINIMAL flag, skip non important operations."
(defun vlfi-adjust-chunk () (defun vlfi-adjust-chunk ()
"Adjust chunk beginning until content can be properly decoded. "Adjust chunk beginning until content can be properly decoded.
Set `vlfi-encode-size' to size of buffer when encoded.
Return number of bytes moved back for this to happen." Return number of bytes moved back for this to happen."
(let ((shift 0) (let ((shift 0)
(chunk-size (- vlfi-end-pos vlfi-start-pos))) (chunk-size (- vlfi-end-pos vlfi-start-pos)))
(while (and (not (zerop vlfi-start-pos)) (while (and (< shift 4)
(< shift 4) (< 4 (abs (- chunk-size
(/= chunk-size (setq vlfi-encode-size
(length (encode-coding-region (length (encode-coding-region
(point-min) (point-max) (point-min) (point-max)
buffer-file-coding-system t)))) buffer-file-coding-system
t))))))
(not (zerop vlfi-start-pos)))
(setq shift (1+ shift) (setq shift (1+ shift)
vlfi-start-pos (1- vlfi-start-pos) vlfi-start-pos (1- vlfi-start-pos)
chunk-size (1+ chunk-size)) chunk-size (1+ chunk-size))
@ -755,17 +761,19 @@ or \\[vlfi-discard-edit] to discard changes.")))
(defun vlfi-write () (defun vlfi-write ()
"Write current chunk to file. Always return true to disable save. "Write current chunk to file. Always return true to disable save.
If changing size of chunk shift remaining file content." If changing size of chunk, shift remaining file content."
(interactive) (interactive)
(when (and (buffer-modified-p) (when (and (buffer-modified-p)
(or (verify-visited-file-modtime (current-buffer)) (or (verify-visited-file-modtime (current-buffer))
(y-or-n-p "File has changed since visited or saved. \ (y-or-n-p "File has changed since visited or saved. \
Save anyway? "))) Save anyway? ")))
(let ((pos (point)) (let ((pos (point))
(size-change (- vlfi-end-pos vlfi-start-pos (size-change (- vlfi-encode-size
(length (encode-coding-region (setq vlfi-encode-size
(point-min) (point-max) (length (encode-coding-region
buffer-file-coding-system t))))) (point-min) (point-max)
buffer-file-coding-system
t))))))
(cond ((zerop size-change) (cond ((zerop size-change)
(write-region nil nil buffer-file-name vlfi-start-pos t)) (write-region nil nil buffer-file-name vlfi-start-pos t))
((< 0 size-change) ((< 0 size-change)