From 88b662d14aec5cfd3e40e062e3811ae1ef3f7df4 Mon Sep 17 00:00:00 2001
From: louie <louie@example.com>
Date: Mon, 11 Jul 2022 22:05:21 -0700
Subject: Misc. progress

---
 docset_xml_gen.scm | 43 ++++++++++++++++++++++++++++++++++---------
 1 file changed, 34 insertions(+), 9 deletions(-)

diff --git a/docset_xml_gen.scm b/docset_xml_gen.scm
index a292862..7656b2a 100755
--- a/docset_xml_gen.scm
+++ b/docset_xml_gen.scm
@@ -1,17 +1,19 @@
 #!/usr/bin/env guile
 !#
 
+(use-modules (sxml simple))
+
 (define title (car (command-line)))
 (define args (cdr (command-line)))
 
 ; Initialize globals
-(define docset-path "")
-(define plist-path "")
-(define out-path "")
-(define doc-name "")
+(define docset-path        "")
+(define plist-path         "")
+(define out-path           "")
+(define doc-name           "")
 (define doc-other-versions "")
-(define doc-url "")
-(define doc-version "")
+(define doc-url            "")
+(define doc-version        "")
 
 ; Define help message
 (define (print-help)
@@ -23,9 +25,9 @@
   (display                "  -h, --help                      Print this help message and exit\n")
   (display                "  -n, --name NAME                 Set the value of the \"name\" tag.\n")
   (display                "                                  Automatically determined if not set manually\n")
-  (display                "  -o, --out FILE                  Output to FILE instead of stdout\n")
   (display                "      --other-versions VERSION    Add additional versions under the \"other-versions\" tag.\n")
   (display                "                                  Multiple values may be set using comma-separation\n")
+  (display                "  -o, --out FILE                  Output to FILE instead of stdout\n")
   (display                "  -u, --url URL                   Set the value of the \"url\" tag.\n")
   (display                "                                  Multiple values may be set using comma-separation.\n")
   (display                "                                  Set to the local path if not set manually\n")
@@ -58,7 +60,7 @@
 	   (read-options (cddr args))))
 	((check-options (car args) '("--other-versions"))
 	 (begin
-	   (set! doc-other-versions (cadr args))
+	   (set! doc-other-versions (string-split (cadr args) #\,))
 	   (read-options (cddr args))))
 	((check-options (car args) '("-o" "--out"))
 	 (begin
@@ -66,7 +68,7 @@
 	   (read-options (cddr args))))
 	((check-options (car args) '("-u" "--url"))
 	 (begin
-	   (set! doc-url (cadr args))
+	   (set! doc-url (string-split (cadr args) #\,))
 	   (read-options (cddr args))))
 	((check-options (car args) '("-v" "--version"))
 	 (begin
@@ -95,3 +97,26 @@
   (begin
 	(display (string-append "Error: " docset-path " is not a valid docset (could not find " plist-path ")\n"))
 	(exit)))
+
+; Parse plist for metadata
+(define plist-port (open-file plist-path "r"))
+(define plist-sxml (xml->sxml plist-port))
+(close-port plist-port)
+
+; SXML parser helper
+; TODO cleanup and find a better way to parse SXML
+(define (sxml-get-node sxml node)
+  (if (and (not (null? sxml)) (list? sxml))
+	(begin
+	  (if (equal? (car sxml) (string->symbol node))
+		(set! plist-sxml (cddr sxml)))
+		(begin
+		  (sxml-get-node (car sxml) node)
+		  (sxml-get-node (cdr sxml) node)))))
+
+; Compress plist-sxml to only keys and values
+(sxml-get-node plist-sxml "dict")
+(display plist-sxml)
+(newline)
+(display (cadadr (cdr plist-sxml)))
+(newline)
-- 
cgit