[elpa] 67/255: support for converting *very* large files

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit 2b0a7255967a110c016432e9c38913ea8a368973
Author: Eric Schulte <address@hidden>
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)))