File: filenames.scm

package info (click to toggle)
scsh 0.5.1-2
  • links: PTS
  • area: non-free
  • in suites: potato, slink
  • size: 6,540 kB
  • ctags: 8,656
  • sloc: lisp: 39,346; ansic: 13,466; sh: 1,669; makefile: 624
file content (46 lines) | stat: -rw-r--r-- 1,117 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46

; Generate filenames.make from *-packages.scm.


; Define DEFINE-STRUCTURE and friends
(for-each load
	  '("bcomp/module-language.scm"
	    "alt/config.scm"
	    "env/flatload.scm"))

(load-configuration "packages.scm")  

; The following defines are unnecessary; they only serve to suppress
; annoying "undefined" warnings for some forward references.
(define syntactic 0) 
(define tables 0) 
(define define-record-types 0)

(flatload linker-structures)		 

(define q-f (all-file-names link-config)) 

; (display "Initial structures") (newline)
(flatload initial-structures)

(define scheme (make-scheme environments evaluation))

(define initial-system
  (structure (export)
    (open ;; Cf. initial.scm
	  (make-initial-system scheme (make-mini-command scheme))
	  module-system
	  ensures-loaded
	  for-reification))) ;foo...

(define i-f (all-file-names initial-system))

; (display "Usual structures") (newline)
(flatload usual-structures)

(define u-f (all-file-names usual-features initial-system))

(write-file-names "filenames.make"      
		  'initial-files i-f
		  'usual-files u-f
		  'linker-files q-f)