[ecebde]: doc / manual / make-tempfiles.sh Maximize Restore History

Download this file

make-tempfiles.sh    88 lines (72 with data), 2.9 kB

 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
#!/bin/sh
# Create Texinfo snippets from the documentation of exported symbols.
# This software is part of the SBCL system. See the README file for
# more information.
#
# This software is in the public domain and is provided with
# absolutely no warranty. See the COPYING and CREDITS files for
# more information.
# how we invoke SBCL
# We create the documentation from the in-tree sbcl if it is found,
# else an installed sbcl is used.
if [ -z "$1" ]
then
. ../../sbcl-pwd.sh
sbcl_pwd
sbclsystem=$SBCL_PWD/../../src/runtime/sbcl
sbclcore=$SBCL_PWD/../../output/sbcl.core
if [ -f $sbclsystem ] && [ -f $sbclcore ]
then
SBCLRUNTIME="$sbclsystem --core $sbclcore"
SBCL_HOME=$SBCL_PWD/../../obj/sbcl-home/; export SBCL_HOME
SBCL_BUILDING_CONTRIB="please asdf install your hook"; export SBCL_BUILDING_CONTRIB
else
SBCLRUNTIME="`which sbcl`"
fi
else
SBCLRUNTIME="$1"
fi
SBCL="$SBCLRUNTIME --noinform --no-sysinit --no-userinit --noprint --disable-debugger"
# extract version and date
VERSION=`$SBCL --eval '(write-line (lisp-implementation-version))' --eval '(sb-ext:exit)'`
MONTH=`date "+%Y-%m"`
sed -e "s/@VERSION@/$VERSION/" \
-e "s/@MONTH@/$MONTH/" < variables.template > variables.texinfo || exit 1
# Output directory. This has to end with a slash (it's interpreted by
# Lisp's `pathname' function) or you lose. This is normally set from
# Makefile.
DOCSTRINGDIR="${DOCSTRINGDIR:-docstrings/}"
# List of contrib modules that docstring docs will be created for.
# This is normally set from Makefile.
#MODULES="${MODULES:-sb-md5 :sb-rotate-byte}"
# List of package names that documentation will be created for. This
# is normally set from Makefile.
#PACKAGES="${PACKAGES:-:COMMON-LISP :SB-ALIEN :SB-DEBUG :SB-EXT :SB-GRAY :SB-MOP :SB-PROFILE :SB-THREAD}"
echo /creating docstring snippets from SBCL=\'$SBCLRUNTIME\' for packages \'$PACKAGES\'
$SBCL <<EOF
(load "docstrings.lisp")
(require :asdf)
(dolist (module (quote ($MODULES)))
(require module))
(sb-texinfo:generate-includes "$DOCSTRINGDIR" $PACKAGES)
(sb-ext:exit))
EOF
echo /creating package-locks.texi-temp
if $SBCL --eval "(let ((plp (find-symbol \"PACKAGE-LOCKED-P\" :sb-ext))) (exit :code (if (and plp (fboundp plp)) 0 1)))";
then
cp package-locks-extended.texinfo package-locks.texi-temp
else
cp package-locks-basic.texinfo package-locks.texi-temp
fi
echo /creating encodings.texi-temp
$SBCL <<EOF
(with-open-file (s "encodings.texi-temp" :direction :output :if-exists :supersede)
(let (result)
(sb-int:dohash ((key val) sb-impl::*external-formats*)
(pushnew (sb-impl::ef-names val) result :test #'equal))
(setq result (sort result #'string< :key #'car))
(format s "@table @code~%~%")
(loop for (cname . names) in result
do (format s "@item ~S~%~{@code{~S}~^, ~}~%~%" cname names))
(format s "@end table~%")))
EOF