File: build-usual-image

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 (32 lines) | stat: -rw-r--r-- 900 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
#!/bin/sh
# Build the usual development environment image.

date=`date`
srcdir=$1
lib=$2
image=$3
vm=$4
initial=$5

./$vm -o ./$vm -i $initial batch <<EOF
,load $srcdir/env/init-defpackage.scm
((*structure-ref filenames 'set-translation!)
 "=scheme48/" "$srcdir/")
,load =scheme48/more-interfaces.scm =scheme48/link-packages.scm
,load =scheme48/more-packages.scm
(ensure-loaded command-processor)
(ensure-loaded usual-commands)
,go ((*structure-ref command 'command-processor)
     (structure-package usual-commands)
     (list "batch"))
(ensure-loaded usual-features)
,structure more-structures more-structures-interface
,in debuginfo (read-debug-info "$srcdir/initial.debug")
,keep maps source files
,translate =scheme48/ $lib/
,build ((*structure-ref package-commands-internal
			'new-command-processor)
	"(made by $USER on $date)"
	usual-commands
	built-in-structures more-structures) $image
EOF