eschulte pushed a commit to branch go
in repository elpa.
commit 2b0a7255967a110c016432e9c38913ea8a368973
Author: Eric Schulte <eric.schu...@gmx.com>
Date: Tue May 22 12:45:31 2012 -0400
support for converting *very* large files
---
sgf2el.el | 8 ++++++--
1 files changed, 6 insertions(+), 2 deletions(-)
diff --git a/sgf2el.el b/sgf2el.el
index 997b29d..6fcdfb2 100644
--- a/sgf2el.el
+++ b/sgf2el.el
@@ -73,6 +73,10 @@
last-node)
(save-excursion (goto-char start)
(while (re-search-forward re end t)
+ (let ((start (marker-position start)))
+ (message "parsing %.2f%%"
+ (* 100 (/ (float (- (point) start))
+ (float (- (marker-position end) start))))))
(if (string= (match-string 6) ";")
(progn
(replace-match "(" nil nil nil 6)
@@ -85,7 +89,8 @@
(rep (format "%S " (cons key (if (= 1 (length val))
(car val) val)))))
(replace-match rep nil 'literal))))
- (when last-node (insert ")")))))
+ (when last-node (insert ")")))
+ (message "parsing DONE")))
(defmacro sgf2el-set-to-var (var &optional buffer)
"Assign the value of the board in BUFFER to VAR."
@@ -113,7 +118,6 @@
(insert sgf-str)
(goto-char (point-min))
(sgf2el-region)
- (sgf2el-normalize (current-buffer))
(emacs-lisp-mode))
(pop-to-buffer buffer)))
