From: Keith Packard <keithp@keithp.com>
Date: Mon, 21 Jan 2013 07:38:38 +0000 (-0800)
Subject: Add gafrc
X-Git-Tag: telelco-v3.0~952
X-Git-Url: https://git.gag.com/?a=commitdiff_plain;h=211bfd48f1dc0f0c40c094590c154ee55a129524;p=hw%2Faltusmetrum

Add gafrc

This automatically adds all of the subdirectories of the symbols directory

Signed-off-by: Keith Packard <keithp@keithp.com>
---

diff --git a/gafrc b/gafrc
new file mode 100644
index 0000000..c5cba8f
--- /dev/null
+++ b/gafrc
@@ -0,0 +1,25 @@
+; empty the library path and populate it with only our own symbols
+
+(reset-component-library)
+
+(letrec ((parent "../altusmetrum/symbols")
+	 (dport (opendir parent))
+	 (do-dirs (lambda (parent dport)
+		    (let ((fname (readdir dport)))
+		      (if (not (eof-object? fname))
+			  (begin
+			   (if (not (string-prefix? "." fname))
+			       (letrec ((subdir (string-append parent "/" fname)))
+				       (component-library subdir)
+				       )
+			     )
+			   (do-dirs parent dport)
+			   )
+			)
+		      )
+		    )
+		  )
+	 )
+	(do-dirs parent dport)
+	(closedir dport)
+	)