File: build-usual-image

package info (click to toggle)
scheme48 1.9.2-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, sid
  • size: 18,232 kB
  • sloc: lisp: 88,907; ansic: 87,519; sh: 3,224; makefile: 771
file content (55 lines) | stat: -rwxr-xr-x 1,613 bytes parent folder | download | duplicates (2)
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
#!/bin/sh

# Part of Scheme 48 1.9.  See file COPYING for notices and license.
#
# Authors: Richard Kelsey, Jonathan Rees, Mike Sperber, Marcus Crestani
#

# Build the usual development environment image.

date=`date +%Y-%m-%d`
srcdir=$1
share=$2
lib=$3
image=$4
vm=$5
initial=$6
USER=$(hostname -s)

$vm -i $initial -a batch <<EOF
,load $srcdir/scheme/env/init-defpackage.scm
((*structure-ref filenames 'set-global-translation!)
 "=scheme48/" "$srcdir/scheme/")
,load =scheme48/packages.scm
,load =scheme48/more-interfaces.scm
,load =scheme48/link-packages.scm
,load =scheme48/sort/interfaces.scm
,load =scheme48/sort/packages.scm
,load =scheme48/env-packages.scm
,load =scheme48/more-packages.scm
,load =scheme48/posix/packages.scm
,load =scheme48/srfi/packages.scm
,load =scheme48/r6rs/packages.scm
,load =scheme48/net/packages.scm
,load =scheme48/cml/interfaces.scm
,load =scheme48/cml/packages.scm
(ensure-loaded command-processor)
(ensure-loaded usual-commands)
,go ((*structure-ref command 'command-processor)
     (structure-package usual-commands)
     (list ((*structure-ref os-strings 'string->os-string) "batch")))
(ensure-loaded usual-features)
,structure more-structures more-structures-interface
,in debuginfo (read-debug-info "$srcdir/build/initial.debug")
,keep maps source files
,new-package
,open scheme filenames
(set-global-translation! "=scheme48/" "$share/")
(set-global-translation! "=scheme48external/" "$lib/")
,user
,build ((*structure-ref package-commands-internal
			'new-command-processor)
	"(made by $USER on $date)"
	usual-commands
	built-in-structures more-structures) $image
EOF