[elpa] 02/255: parse nodes

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit c98ecbf605f25159e832bc5d4622bf94266ad9b5
Author: Eric Schulte <address@hidden>
Date:   Tue May 15 00:38:59 2012 -0400

    parse nodes
---
 sgf.el |   22 +++++++++++++++++-----
 1 files changed, 17 insertions(+), 5 deletions(-)

diff --git a/sgf.el b/sgf.el
index 3f2073d..ba613ba 100644
--- a/sgf.el
+++ b/sgf.el
@@ -51,6 +51,13 @@
       (+ 26 (- char ?A))
     (- char ?a)))
 
+(defun parse-props (str)
+  (let (res (start 0))
+    (while (string-match "[[:space:]]*;\\([[:alpha:]]+\\(\\[[^;]+?\\]\\)+\\)" 
str start)
+      (setq start (match-end 0))
+      (push (parse-prop (match-string 1 str)) res))
+    (nreverse res)))
+
 (defun parse-prop (str)
   (multiple-value-bind (id rest) (parse-prop-ident str)
     (cons id (parse-prop-vals rest))))
@@ -65,9 +72,11 @@
 (defun parse-prop-vals (str)
   (let (res (start 0))
     (while (string-match "\\[\\(.*?[^\\]\\)\\]" str start)
-      (push (match-string 1 str) res)
-      (setq start (match-end 0)))
-    res))
+      (setq start (match-end 0))
+      (push (match-string 1 str) res))
+    (nreverse res)))
+
+(defun parse-node ())
 
 
 ;;; Tests
@@ -80,5 +89,8 @@
     (should (= (length (cdr (parse-prop "TB[as][bs][cq][cr][ds][ep]")))
                6))))
 
-(defun parse-nodes (str)
-  )
+(ert-deftest parse-nodes-test ()
+  (let* ((str ";B[pq];W[dd];B[pc];W[eq];B[cp];W[cm];B[do];W[hq];B[qn];W[cj]")
+         (nodes (parse-props str)))
+    (should (= (length nodes) 10))
+    (should (tree-equal (car nodes) '("B" "pq") :test #'string=))))