Progress

1 files changed, 30 insertions, 1 deletions

diff --git a/tilemap.scm b/tilemap.scm
index 7e9e11c..8af70b9 100644
--- a/tilemap.scm
+++ b/tilemap.scm
@@ -74,6 +74,34 @@
 			      (maybe-string->number (cdr pair))))
 	 string-alist))
 
+  (define (alist->tileset attrs)
+    (make-tileset
+      tilewidth: (alist-ref 'tilewidth attrs eq?)
+      tileheight: (alist-ref 'tileheight attrs eq?)
+      spacing: (alist-ref 'spacing attrs eq? 0)
+      tilecount: (alist-ref 'tilecount attrs eq?)
+      columns: (alist-ref 'columns attrs eq?)
+      image-source: ""
+      image: #f))
+
+  (define (alist->layer attrs)
+    (let ((symbol-attrs (string-alist->alist attrs)))
+      (make-layer
+        name: (alist-ref 'name symbol-attrs eq?)
+        width: (alist-ref 'width symbol-attrs eq?)
+        height: (alist-ref 'height symbol-attrs eq?)
+        map: '())))
+
+  (define (alist->object attrs)
+    (make-object
+      name: (alist-ref 'name attrs eq?)
+      type: (alist-ref 'type attrs eq?)
+      x: (alist-ref 'x attrs eq?)
+      y: (alist-ref 'y attrs eq?)
+      width: (alist-ref 'width attrs eq? 0)
+      height: (alist-ref 'height attrs eq? 0)
+      properties: '()))
+
   (define (parse-tileset string-tileset)
     (let ((parser (expat:make-parser))
 	  (tags '())
@@ -135,7 +163,8 @@
 	     ("property"
 	      (object-properties-set!
 	       object
-	       (cons (cons (alist-ref 'name symbol-attrs) (alist-ref 'value symbol-attrs))
+	       (cons (cons (string->symbol (alist-ref "name" attrs string=?))
+			  (alist-ref "value" attrs string=?))
 		     (or (object-properties object) '()))))
 	     (_ #f))
 	   (set! tags (cons tag tags)))))