Using ASDF to set up logical pathname translation for clg

[clg] / tools / clg-tools.asd

diff --git a/tools/clg-tools.asd b/tools/clg-tools.asd
index 1e3d01c646d92d8f05bb37cbbe59217eff83b718..21c2e0c493daecd99e736d483f46a04d63b7109d 100644 (file)
--- a/tools/clg-tools.asd
+++ b/tools/clg-tools.asd
@@ -1,17 +1,25 @@
 ;;; -*- Mode: lisp -*-
 
 (defpackage #:clg-tools
-  (:use #:common-lisp #:asdf)
-  )
+  (:use #:common-lisp #:asdf))
 
 
 (in-package #:clg-tools)
 
+#+clisp
+(unless custom:*parse-namestring-ansi*
+  (error "Standard behaviour of PARSE-NAMESTRING must be enabled by setting CUSTOM:*PARSE-NAMESTRING-ANSI* to non-NIL or running clisp with the -ansi option"))
 
 (defsystem clg-tools
-    :depends-on (uffi)
-    :components ((:file "autoexport")
-                (:file "config")
-                (:file "sharedlib")
-                (:file "asdf-extensions")))
+  :depends-on (#+sbcl sb-posix)
+  :components ((:file "utils")
+              (:file "config" :depends-on ("utils"))
+              (:file "asdf-extensions" :depends-on ("utils"))
+              (:file "autoexport" :depends-on ("asdf-extensions"))))
 
+
+
+;; For backward compatibility
+(setf
+ (logical-pathname-translations "clg")
+ `(("**;*.*.*" ,(make-pathname :directory (append (butlast (pathname-directory (asdf:component-pathname (asdf:find-system :clg-tools)))) (list :wild-inferiors))))))