Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
95f4085f
Commit
95f4085f
authored
Jan 09, 2013
by
Francois-Rene Rideau
Browse files
2.26.65: Much progress on define-package. Basically working, except with using packages.
parent
056f33a9
Changes
30
Hide whitespace changes
Inline
Side-by-side
TODO
View file @
95f4085f
...
...
@@ -3,6 +3,15 @@
* Split ASDF in parts
** Have it pass test-lisp
** Have it pass test-upgrade
** Get package upgrade right
** The unconditional ensure-package-unused breaks test-encodings.script,
since asdf severs itself from its client package hosting the
defsystem form during defsystem-depends-on.
** Solution 1: emulate hook on the *upgraded-p* solution, either using
explicit flag, explicit version numbers or implicit version information
(e.g. source-code or sxhash thereof, also accounting for dependency
package information).
** Solution 2: Just "do the right thing" with exported symbols.
* Make load-op a generic operation that selects the proper strategy
for each system, module or file, according to component properties and user-configuration:
compile the lisp file then load the fasl (load-compiled-op),
...
...
action.lisp
View file @
95f4085f
;;;; -------------------------------------------------------------------------
;;;; Actions
(
defpackage
:asdf/action
(
asdf/package:define-package
:asdf/action
(
:recycle
:asdf/action
:asdf
)
(
:use
:common-lisp
:asdf/implementation
:asdf/utility
:asdf/pathname
:asdf/os
:asdf/component
:asdf/system
:asdf/find-system
:asdf/find-component
:asdf/operation
)
#+
gcl<2.7
(
:shadowing-import-from
:asdf/implementation
#:type-of
)
...
...
asdf.asd
View file @
95f4085f
...
...
@@ -14,7 +14,7 @@
:licence
"MIT"
:description
"Another System Definition Facility"
:long-description
"ASDF builds Common Lisp software organized into defined systems."
:version
"2.26.6
4
"
;; to be automatically updated by bin/bump-revision
:version
"2.26.6
5
"
;; to be automatically updated by bin/bump-revision
:depends-on
()
:components
((
:file
"asdf"
)))
...
...
backward-interface.lisp
View file @
95f4085f
;;;; -------------------------------------------------------------------------
;;; Backward-compatible interfaces
(
defpackage
:asdf/backward-interface
(
asdf/package:define-package
:asdf/backward-interface
(
:recycle
:asdf/backward-interface
:asdf
)
(
:use
:common-lisp
:asdf/implementation
:asdf/utility
:asdf/pathname
:asdf/os
:asdf/component
:asdf/system
:asdf/operation
:asdf/action
:asdf/lisp-build
:asdf/operate
:asdf/output-translations
)
...
...
@@ -15,7 +16,6 @@
#:operation-on-warnings
#:run-shell-command
#:system-definition-pathname
))
(
in-package
:asdf/backward-interface
)
(
defvar
*asdf-verbose*
nil
)
; worked around by cl-protobufs. It was a mistake to introduce it. mea culpa -fare
...
...
backward-internals.lisp
View file @
95f4085f
;;;; -------------------------------------------------------------------------
;;; Internal hacks for backward-compatibility
(
defpackage
:asdf/backward-internals
(
asdf/package:define-package
:asdf/backward-internals
(
:recycle
:asdf/backward-internals
:asdf
)
(
:use
:common-lisp
:asdf/implementation
:asdf/utility
:asdf/pathname
:asdf/system
:asdf/component
:asdf/find-system
:asdf/action
)
(
:export
;; for internal use
...
...
bundle.lisp
View file @
95f4085f
;;;; -------------------------------------------------------------------------
;;;; ASDF-Bundle
(
defpackage
:asdf/bundle
(
asdf/package:define-package
:asdf/bundle
(
:recycle
:asdf/bundle
:asdf
)
(
:use
:common-lisp
:asdf/utility
:asdf/pathname
:asdf/os
:asdf/lisp-build
:asdf/component
:asdf/system
:asdf/find-system
:asdf/find-component
:asdf/operation
:asdf/action
:asdf/lisp-action
:asdf/plan
:asdf/operate
)
...
...
component.lisp
View file @
95f4085f
;;;; -------------------------------------------------------------------------
;;;; Components
(
defpackage
:asdf/component
(
asdf/package:define-package
:asdf/component
(
:recycle
:asdf/component
:asdf
)
(
:use
:common-lisp
:asdf/implementation
:asdf/utility
:asdf/pathname
:asdf/upgrade
)
(
:export
#:component
#:component-find-path
...
...
@@ -19,8 +20,7 @@
#:component-external-format
#:component-encoding
#:detect-encoding
#:*encoding-detection-hook*
#:always-default-encoding
#:encoding-external-format
#:*encoding-external-format-hook*
#:default-encoding-external-format
#:*default-encoding*
#:*utf-8-external-format*
))
#:*default-encoding*
#:*utf-8-external-format*
))
(
in-package
:asdf/component
)
(
defgeneric*
component-name
(
component
)
...
...
concatenate-source.lisp
View file @
95f4085f
;;;; -------------------------------------------------------------------------
;;;; Concatenate-source
(
defpackage
:asdf/concatenate-source
(
asdf/package:define-package
:asdf/concatenate-source
(
:recycle
:asdf/concatenate-source
:asdf
)
(
:use
:common-lisp
:asdf/utility
:asdf/os
:asdf/component
:asdf/operation
:asdf/system
:asdf/find-system
:asdf/defsystem
:asdf/action
:asdf/lisp-action
:asdf/bundle
)
...
...
configuration.lisp
View file @
95f4085f
;;;; ---------------------------------------------------------------------------
;;;; Generic support for configuration files
(
defpackage
:asdf/configuration
(
asdf/package:define-package
:asdf/configuration
(
:recycle
:asdf/configuration
:asdf
)
(
:use
:common-lisp
:asdf/utility
:asdf/pathname
:asdf/os
)
(
:export
#:get-folder-path
...
...
@@ -13,8 +14,7 @@
#:report-invalid-form
#:invalid-configuration
#:*ignored-configuration-form*
#:*clear-configuration-hook*
#:clear-configuration
#:resolve-location
#:location-designator-p
#:location-function-p
#:*here-directory*
#:resolve-relative-location-component
#:resolve-absolute-location-component
))
#:resolve-relative-location-component
#:resolve-absolute-location-component
))
(
in-package
:asdf/configuration
)
(
define-condition
invalid-configuration
()
...
...
defsystem.lisp
View file @
95f4085f
;;;; -------------------------------------------------------------------------
;;;; Defsystem
(
defpackage
:asdf/defsystem
(
asdf/package:define-package
:asdf/defsystem
(
:recycle
:asdf/defsystem
:asdf
)
(
:use
:common-lisp
:asdf/utility
:asdf/pathname
:asdf/component
:asdf/system
:asdf/find-system
:asdf/find-component
:asdf/lisp-action
:asdf/operate
...
...
@@ -9,8 +10,7 @@
#+
gcl<2.7
(
:shadowing-import-from
:asdf/implementation
#:type-of
)
(
:export
#:defsystem
#:do-defsystem
#:parse-component-form
#:*default-component-class*
))
#:*default-component-class*
))
(
in-package
:asdf/defsystem
)
;;; Pathname
...
...
find-component.lisp
View file @
95f4085f
;;;; -------------------------------------------------------------------------
;;;; Finding components
(
defpackage
:asdf/find-component
(
asdf/package:define-package
:asdf/find-component
(
:recycle
:asdf/find-component
:asdf
)
(
:use
:common-lisp
:asdf/utility
:asdf/os
:asdf/component
:asdf/system
:asdf/find-system
)
(
:export
...
...
@@ -12,9 +13,7 @@
#:missing-component
#:missing-component-of-version
#:retry
#:missing-dependency
#:missing-dependency-of-version
#:missing-requires
#:missing-parent
#:missing-required-by
#:missing-version
))
#:missing-required-by
#:missing-version
))
(
in-package
:asdf/find-component
)
;;;; Missing component conditions
...
...
find-system.lisp
View file @
95f4085f
;;;; -------------------------------------------------------------------------
;;;; Finding systems
(
defpackage
:asdf/find-system
(
asdf/package:define-package
:asdf/find-system
(
:recycle
:asdf/find-system
:asdf
)
(
:use
:common-lisp
:asdf/implementation
:asdf/utility
:asdf/upgrade
:asdf/pathname
:asdf/os
:asdf/component
:asdf/system
)
(
:export
...
...
footer.lisp
View file @
95f4085f
;;;; -----------------------------------------------------------------------
;;;; ASDF Footer: last words and cleanup
(
defpackage
:asdf/footer
(
asdf/package:define-package
:asdf/footer
(
:recycle
:asdf/footer
:asdf
)
(
:use
:common-lisp
:asdf/package
:asdf/implementation
:asdf/utility
:asdf/pathname
:asdf/os
:asdf/lisp-build
...
...
generate-asdf.asd
View file @
95f4085f
...
...
@@ -53,5 +53,5 @@
(
:file
"bundle"
:depends-on
(
"lisp-action"
))
(
:file
"concatenate-source"
:depends-on
(
"lisp-action"
))
(
:file
"backward-interface"
:depends-on
(
"lisp-action"
))))
(
:file
"
user
"
)
(
:file
"
interface
"
)
(
:file
"footer"
:depends-on
(
"interface"
)))
)
header.lisp
View file @
95f4085f
;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; coding: utf-8 -*-
;;; This is ASDF 2.26.6
4
: Another System Definition Facility.
;;; This is ASDF 2.26.6
5
: Another System Definition Facility.
;;;
;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>.
...
...
implementation.lisp
View file @
95f4085f
;;;; -------------------------------------------------------------------------
;;;; Handle ASDF portability to multiple implementations
(
def
package
:asdf/implementation
(
asdf/package:define-
package
:asdf/implementation
(
:use
:common-lisp
:asdf/package
)
(
:recycle
:asdf/implementation
:asdf
)
#+
cormanlisp
(
:export
#:logical-pathname
#:translate-logical-pathname
...
...
interface.lisp
View file @
95f4085f
;;;; ---------------------------------------------------------------------------
;;;; Handle ASDF package upgrade, including implementation-dependent magic.
(
defpackage
:asdf/interface
(
asdf/package:define-package
:asdf/interface
(
:recycle
:asdf/interface
:asdf
)
(
:nicknames
:asdf
)
(
:use
:common-lisp
:asdf/package
:asdf/implementation
:asdf/utility
:asdf/pathname
:asdf/os
:asdf/upgrade
...
...
@@ -127,7 +128,6 @@
#:system-source-registry
#:user-source-registry-directory
#:system-source-registry-directory
))
(
in-package
:asdf/interface
)
(
with-upgrade
(
:when
(
fboundp
'make-sub-operation
))
...
...
lisp-action.lisp
View file @
95f4085f
;;;; -------------------------------------------------------------------------
;;;; Actions to build Common Lisp software
(
defpackage
:asdf/lisp-action
(
asdf/package:define-package
:asdf/lisp-action
(
:recycle
:asdf/lisp-action
:asdf
)
(
:use
:common-lisp
:asdf/utility
:asdf/lisp-build
:asdf/component
:asdf/system
:asdf/find-component
:asdf/operation
:asdf/action
)
(
:export
...
...
lisp-build.lisp
View file @
95f4085f
;;;; -------------------------------------------------------------------------
;;;; Support to build (compile and load) Lisp files
(
defpackage
:asdf/lisp-build
(
asdf/package:define-package
:asdf/lisp-build
(
:recycle
:asdf/lisp-build
:asdf
)
(
:use
:common-lisp
:asdf/utility
:asdf/pathname
:asdf/os
)
(
:export
#:*compile-file-warnings-behaviour*
#:*compile-file-failure-behaviour*
...
...
operate.lisp
View file @
95f4085f
;;;; -------------------------------------------------------------------------
;;;; Invoking Operations
(
defpackage
:asdf/operate
(
asdf/package:define-package
:asdf/operate
(
:recycle
:asdf/operate
:asdf
)
(
:use
:common-lisp
:asdf/implementation
:asdf/utility
:asdf/upgrade
:asdf/component
:asdf/system
:asdf/operation
:asdf/action
:asdf/lisp-build
:asdf/lisp-action
#:asdf/plan
...
...
Prev
1
2
Next
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment