Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
A
asdf
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
16
Issues
16
List
Boards
Labels
Service Desk
Milestones
Merge Requests
8
Merge Requests
8
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
asdf
asdf
Commits
b06641ed
Commit
b06641ed
authored
Apr 24, 2011
by
Francois-Rene Rideau
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Add test for source-file-type override.
parent
3c44e1e0
Changes
5
Hide whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
37 additions
and
5 deletions
+37
-5
doc/asdf.texinfo
doc/asdf.texinfo
+3
-4
test/test-package.asd
test/test-package.asd
+1
-1
test/test-source-file-type-1.asd
test/test-source-file-type-1.asd
+13
-0
test/test-source-file-type-2.asd
test/test-source-file-type-2.asd
+8
-0
test/test-source-file-type.script
test/test-source-file-type.script
+12
-0
No files found.
doc/asdf.texinfo
View file @
b06641ed
...
...
@@ -3452,8 +3452,7 @@ you may omit the above @code{type} slot definition and instead define:
"cl"
)
@end lisp
Then make your system use this subclass in preference to the standard
one:
Then make your system use this subclass in preference to the standard one:
@lisp
(
defsystem my
-
cl
-
system
...
...
@@ -3463,8 +3462,8 @@ one:
@end lisp
We assume that these definitions are loaded into a package that uses
@code
{
ASDF
}
.
@code
{
ASDF
}
---
which will be the case by default
if your @file
{
.asd
}
file doesn't specify an @code
{
in
-
package
}
statement.
@node TODO list, Inspiration, FAQ, Top
...
...
test/test-package.asd
View file @
b06641ed
...
...
@@ -7,4 +7,4 @@
(
in-package
:cl-user
)
; BAD BAD BAD
(
asdf:defsystem
test-package
:components
((
:module
"foo"
:components
((
:file
"bar"
)
(
:file
"baz"
)))))
\ No newline at end of file
:components
((
:module
"foo"
:components
((
:file
"bar"
)
(
:file
"baz"
)))))
test/test-source-file-type-1.asd
0 → 100644
View file @
b06641ed
;; Should work with both ASDF 1 and ASDF 2.
(
defclass
cl-source-file-1
(
cl-source-file
)
())
(
defmethod
source-file-type
((
f
cl-source-file-1
)
(
m
module
))
(
declare
(
ignorable
f
m
))
"cl"
)
(
defsystem
test-source-file-type-1
:default-component-class
cl-source-file-1
:serial
t
:components
((
:cl-source-file
"file1"
)
; for the package
(
:file
"test-tmp"
)))
test/test-source-file-type-2.asd
0 → 100644
View file @
b06641ed
;; Works only in ASDF 2
(
defclass
cl-source-file-2
(
cl-source-file
)
((
type
:initform
"cl"
)))
(
defsystem
test-source-file-type-2
:depends-on
(
:test-source-file-type-1
)
:default-component-class
cl-source-file-2
:components
((
:file
"test-tmp"
)))
test/test-source-file-type.script
0 → 100644
View file @
b06641ed
;;; -*- Lisp -*-
(load "script-support.lisp")
(load-asdf)
(quit-on-error
(setf asdf:*central-registry* '(*default-pathname-defaults*))
(asdf:load-system 'test-source-file-type-1 :verbose t)
(let ((sym (read-from-string "test-package::*test-tmp-cl*")))
(assert (symbol-value sym))
(set sym nil)
(asdf:load-system 'test-source-file-type-2 :verbose t)
(assert (symbol-value sym))))
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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