From 70dd35a18cd9c8f60a71e1efac4afb1fb03cd67e Mon Sep 17 00:00:00 2001
From: erana <jceuppen@vub.ac.be>
Date: Tue, 17 Jan 2012 21:19:34 +0900
Subject: [PATCH] schemedoc own parser - 3

---
 scsh/schemedoc/schemedoc.scm | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/scsh/schemedoc/schemedoc.scm b/scsh/schemedoc/schemedoc.scm
index 877dc93..352a231 100644
--- a/scsh/schemedoc/schemedoc.scm
+++ b/scsh/schemedoc/schemedoc.scm
@@ -56,10 +56,12 @@
             ((null? e)0)
           (display (car e) out)))
       (display-rec l))))
-
+;;
+;; parser :
 ;;
 ;; make a list of chars from filename contents
 ;;
+
 (define (schemedoc-parser-doc filename)
   (define (parse in)
     (let ((c (read-char in)))
@@ -78,3 +80,14 @@
 
   (let ((in (open-input-file filename)))
     (read-rec in)))
+
+;;
+;; main program
+;;
+(define (eoln)(string #\newline))
+(define $SCHEMEDOCDIR (getenv "SCHEMEDOCDIR"))
+(case $SCHEMEDOCDIR
+  ((#f) (for-each display
+                  '("set your SCHEMEDOCDIR env var to the paths where pods and sods reside." (eoln) "exiting" (eoln))
+                  (exit)
+                  )))