[cells-cvs] CVS update: cell-cultures/asdf-registry/create-symlinks.sh - cells-cvs@common-lisp.net - mailman3.common-lisp.net

12 Nov 2004

Update of /project/cells/cvsroot/cell-cultures/asdf-registry
In directory common-lisp.net:/tmp/cvs-serv5046/asdf-registry
Modified Files:
    create-symlinks.sh 
Log Message:
Re-port to Lispworks/win32
Date: Sat Nov 13 00:26:54 2004
Author: ktilton
Index: cell-cultures/asdf-registry/create-symlinks.sh
diff -u cell-cultures/asdf-registry/create-symlinks.sh:1.2 cell-cultures/asdf-registry/create-symlinks.sh:1.3

--- cell-cultures/asdf-registry/create-symlinks.sh:1.2	Mon Jul  5 21:26:44 2004
+++ cell-cultures/asdf-registry/create-symlinks.sh	Sat Nov 13 00:26:54 2004
@@ -1,65 +1,32 @@
-rm -f asdf-aclproj.asd;
-if [ -d ../asdf-aclproj ]; then
-    echo Adding asdf-aclproj.asd;
-    ln -s ../asdf-aclproj/asdf-aclproj.asd asdf-aclproj.asd;
-fi
-
-rm -f cello.asd cellocore.asd;
-if [ -d ../cello ]; then
-    echo Adding cello.asd;
-    ln -s ../cello/cello.asd cello.asd;
-
-    echo Adding cellocore.asd;
-    ln -s ../cello/cellocore.asd cellocore.asd;
-fi
-
-rm -f cellodemo.asd;
-if [ -d ../cellodemo ]; then
-    echo Adding cellodemo.asd;
-    ln -s ../cellodemo/cellodemo.asd cellodemo.asd;
-fi
-
-rm -f cells.asd cells-test.asd;
-if [ -d ../cells ]; then
-    echo Adding cells.asd;
-    ln -s ../cells/cells.asd cells.asd;
-
-    echo Adding cells-test.asd;
-    ln -s ../cells/cells-test/cells-test.asd cells-test.asd;
-fi
-
-rm -f celtic.asd;
-if [ -d ../celtic ]; then
-    echo Adding celtic.asd;
-    ln -s ../celtic/celtic.asd celtic.asd;
-fi
-
-rm -f clyde.asd;
-if [ -d ../clyde ]; then
-    echo Adding clyde.asd;
-    ln -s ../clyde/clyde.asd clyde.asd;
-fi
-
-rm -f cl-magick.asd;
-if [ -d ../cl-magick ]; then
-    echo Adding cl-magick.asd;
-    ln -s ../cl-magick/cl-magick.asd cl-magick.asd;
-fi
-
-rm -f cl-openal.asd;
-if [ -d ../cl-openal ]; then
-    echo Adding cl-openal.asd;
-    ln -s ../cl-openal/cl-openal.asd cl-openal.asd;
-fi
-
-rm -f cl-opengl.asd;
-if [ -d ../cl-opengl ]; then
-    echo Adding cl-opengl.asd;
-    ln -s ../cl-opengl/cl-opengl.asd cl-opengl.asd;
-fi
-
-rm -f ffi-extender.asd;
-if [ -d ../ffi-extender ]; then
-    echo Adding ffi-extender.asd;
-    ln -s ../ffi-extender/ffi-extender.asd ffi-extender.asd;
-fi
+# Bash doesn't do macros, but how about a function or two?
+setlink() {
+    if [ -f $1 ]; then
+	ln -s $1 .
+    else
+	echo ASDF definition file $1 appears to be missing
+    fi
+}
+
+add() {
+    if [ -d ../$1 ]; then
+	echo Adding $1
+	setlink ../$1/$1.asd
+    else
+	echo Subproject $1 appears to be missing
+    fi
+}
+
+
+# Projects that follow the general pattern...
+PROJECTS="utils-kt asdf-aclproj cello cellodemo cells celtic clyde cl-magick cl-openal cl-opengl ffi-extender"
+# ..and projects that don't.
+FILES="../cello/cellocore.asd ../cells/cells-test/cells-test.asd"
+
+
+for project in $PROJECTS; do
+    add $project
+done
+
+for file in $FILES; do
+    setlink $file
+done

    