From 211bfd48f1dc0f0c40c094590c154ee55a129524 Mon Sep 17 00:00:00 2001
From: Keith Packard <keithp@keithp.com>
Date: Sun, 20 Jan 2013 23:38:38 -0800
Subject: [PATCH] Add gafrc

This automatically adds all of the subdirectories of the symbols directory

Signed-off-by: Keith Packard <keithp@keithp.com>
---
 gafrc | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 gafrc

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)
+	)
-- 
2.47.2