source: release/1.2/source/tools/asdf-install/notes.text @ 9219

Last change on this file since 9219 was 9219, checked in by gb, 11 years ago

synch from trunk

File size: 2.7 KB
Line 
1fails: (asdf-install:install "http://common-lisp.net/project/cl-containers/asdf-binary-locations/asdf-binary-locations_latest.tar.gz")
2
3Need tests for new *temporary-directory*
4  how: ?
5
6why doesn't return-output-from-program use shell-command?
7
8remove asdf-doc directory (or symlink it or something)
9
10
11#### To-do - Ijara
12
13- Cleanup current ASDFI even more
14- build in untar
15- build in call to CVS, SVN, DARCS, (make modular, obviously)
16- supports parts of system-check
17- support uninstall
18- supoort logging
19- support aliasing
20- support experimentation
21- support
22
23#### To-do - ASDF-Install
24
25- better place for temporary files
26
27- clean up symlink files to use shell-command
28
29- digitool and shell-command
30
31- Use a condition instead
32  (error "ASDF-INSTALL: can't untar ~S." packagename)
33
34Which directory "systems" or "site-systems"
35
36#-:digitool
37(read-signature (data stream)
38                (read-sequence data stream))
39#+:digitool
40(read-signature (data stream)
41                (multiple-value-bind (reader arg)
42                                     (ccl:stream-reader stream)
43                  (let ((byte 0))
44                    (dotimes (i (length data))
45                      (unless (setf byte (funcall reader arg))
46                        (error 'download-error :url  (concatenate 'string url ".asc")
47                               :response 200))
48                      (setf (char data i) (code-char byte))))))
49
50#-(or :win32 :mswindows)
51(return-output-from-program *gnu-tar-program*
52                            (list "-C" (namestring (truename source))
53                                  "-xzvf" (namestring (truename packagename))))
54#+(or :win32 :mswindows)
55(return-output-from-program *cygwin-bash-program*
56                            (list "-l"
57                                  "-c"
58                                  (format nil "\"tar -C \\\"`cygpath '~A'`\\\" -xzvf \\\"`cygpath '~A'`\\\"\""
59                                          (namestring (truename source))
60                                          (namestring (truename packagename)))))
61
62#+(or :sbcl :alisp) (probe-file p)
63#-(or :sbcl :alisp) (and (/= (mismatch p "http://") 7)
64                         (probe-file p))
65
66
67- tests
68
69- new features
70-- force reinstallation of dependencies
71-- use places other than the CLiki for finding files
72
73
74;;; ---------------------------------------------------------------------------
75
76;;; port
77
78;; pull in networking
79;; get-env-variable
80;; copy-stream
81;; make-stream-from-url
82;; make-stream-from-gpg-command
83;; make-temp-sig
84;; return-output-from-program
85;; unlink-file ==? delete-file
86;; symlink-files
87
88#+digitool
89;; system-namestring
90
91
92;;; split-sequence
93;;;; all we use is split-sequence-if
94
95package
96split-sequence
97split-sequence-if
98split-sequence-if-not
99partition
100partition-if
101partition-if-not
102
103
Note: See TracBrowser for help on using the repository browser.