From 72d9260f8258b525339c7241da0631ceaf9f3842 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Tue, 5 Feb 2008 13:25:45 +0000
Subject: [PATCH] Infra: Rudimentary setup system.

The script setup.sh creates the `systems' directory of symlinks, and
I've added a .gitignore to keep GIT from pokng its nose in.
---
 .gitignore | 1 +
 setup.sh   | 8 ++++++++
 2 files changed, 9 insertions(+)
 create mode 100755 setup.sh

diff --git a/.gitignore b/.gitignore
index be303db..f71b830 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1 +1,2 @@
 *.fasl
+systems
diff --git a/setup.sh b/setup.sh
new file mode 100755
index 0000000..772577d
--- /dev/null
+++ b/setup.sh
@@ -0,0 +1,8 @@
+#! /bin/sh
+set -e
+
+rm -rf systems
+mkdir systems
+find . ! -type l -name '*.asd' | sed 's:^./::' | while read sys; do
+  ln -s ../$sys systems
+done
-- 
2.11.0