1 | ;;; -*- mode: lisp; -*- |
---|
2 | |
---|
3 | (defpackage cl-darcs-system |
---|
4 | (:use :cl :asdf)) |
---|
5 | |
---|
6 | (in-package :cl-darcs-system) |
---|
7 | |
---|
8 | (defsystem cl-darcs |
---|
9 | :description "Darcs client" |
---|
10 | :version "0.0.1" |
---|
11 | :licence "GPL" |
---|
12 | :author "Magnus Henoch <henoch@dtek.chalmers.se>" |
---|
13 | :depends-on (:split-sequence |
---|
14 | ;; HTTP client |
---|
15 | :aserve |
---|
16 | :trivial-gray-streams |
---|
17 | ;; SHA1, hex etc |
---|
18 | :ironclad |
---|
19 | ;; Ironclad's SHA1 doesn't work with CLISP yet |
---|
20 | #+clisp :sb-sha1 |
---|
21 | ;; Files and directories |
---|
22 | :cl-fad) |
---|
23 | |
---|
24 | :components |
---|
25 | ((:file "packages") |
---|
26 | (:file "util" :depends-on ("packages" #-allegro "inflate")) |
---|
27 | (:file "unreadable-stream" :depends-on ("packages")) |
---|
28 | (:file "upath" :depends-on ("util" #|"binary-text"|#)) |
---|
29 | |
---|
30 | (:file "patchinfo" :depends-on ("util")) |
---|
31 | (:file "get" :depends-on ("util")) |
---|
32 | (:file "pull" :depends-on ("util")) |
---|
33 | (:file "init" :depends-on ("util")) |
---|
34 | (:file "prefs" :depends-on ("util")) |
---|
35 | (:file "repo" :depends-on ("util")) |
---|
36 | |
---|
37 | (:file "patch-core" :depends-on ("util")) |
---|
38 | (:file "read-patch" :depends-on ("patch-core")) |
---|
39 | (:file "write-patch" :depends-on ("patch-core")) |
---|
40 | (:file "apply-patch" :depends-on ("patch-core")) |
---|
41 | (:file "invert-patch" :depends-on ("patch-core")) |
---|
42 | (:file "pristine" :depends-on ("patch-core")) |
---|
43 | (:file "touching" :depends-on ("patch-core")) |
---|
44 | (:file "commute" :depends-on ("patch-core")) |
---|
45 | (:file "merge" :depends-on ("patch-core")) |
---|
46 | (:file "unwind" :depends-on ("patch-core")) |
---|
47 | (:file "equal" :depends-on ("patch-core")) |
---|
48 | |
---|
49 | ;; Franz' inflate implementation |
---|
50 | #-allegro (:file "ifstar") |
---|
51 | #-allegro (:file "inflate" :depends-on ("ifstar")))) |
---|