File: link-packages.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 (101 lines) | stat: -rw-r--r-- 2,257 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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
; Copyright (c) 1993, 1994 Richard Kelsey and Jonathan Rees.  See file COPYING.


; Static linker.  Doesn't work very well this way (debug info is
; screwed up), so it's probably better to continue using linker.image
; instead.

(define-structure linker linker-interface
  (open scheme-level-2
	tables compiler write-images debuginfo
	packages
	packages-internal       ;set-package-integrate?!
	scan
	syntactic		;name->symbol		
	reification
	closures		;make closure to pass to write-image
	filenames
	debug-data		;with-fresh-compiler-state
	locations
	fluids
	signals			;error
	util)			;sublist
  (files (link link)))

(define-structure reification (export reify-structures)
  (open scheme-level-2
	packages
	packages-internal ;?
	usual-macros		;find-free-names-in-syntax-rules
	syntactic		;name-hash, etc.
	meta-types			;usual-variable-type
	locations
	tables records
	signals			;error
	features		;force-output
	util			;filter
	inline)			;name->extrinsic
  (files (link reify)))

(define-structure expander expander-interface
  (open scheme-level-2
	syntactic packages scan meta-types reconstruction
	bummed-define-record-types
	util signals tables fluids)
  (files (opt expand)))

(define-structure analysis (export analyze-forms)
  (open scheme
	syntactic packages scan inline meta-types expander
	packages-internal	;set-package-integrate?!
	reconstruction
	signals
	locations
	features		;force-output
	tables
	fluids
	util)
  (files (opt analyze)))


; Database of procedure names 'n' stuff.
; (copy in more-packages.scm ...)

(define-structure debuginfo debuginfo-interface
  (open scheme-level-2
	tables
	debug-data
	packages
	packages-internal
	syntactic)
  (files (env debuginfo)))


; Mumble.

(define-structure flatloading (export flatload)
  (open scheme packages packages-internal filenames)
  (files (env flatload)))

(define-structure loadc (export load-configuration
				;; (structure-ref :syntax)
				)
  (open scheme
	environments		; *structure-ref
	syntactic		; $source-file-name
	fluids)
  (files (link loadc)))


; Everything.

(define-structure link-config (export )  ;dummy structure...
  (open linker
	defpackage
	types
	analysis
	loadc
	flatloading
	interfaces)
  ;; (files (alt init-defpackage.scm))  -- or (env ...), depending
  )