Permalink
Browse files

gendocs.sh fix: pass --no-userinit to sbcl

  • Loading branch information...
1 parent 25bbdb9 commit 0130336fd5d1dc7218acb0e6b6104b16b9393fc7 @luismbo luismbo committed Sep 26, 2008
Showing with 15 additions and 14 deletions.
  1. +11 −12 doc/colorize-lisp-examples.lisp
  2. +4 −2 doc/gendocs.sh
View
23 doc/colorize-lisp-examples.lisp
@@ -1,7 +1,7 @@
;;; This is code was taken from lisppaste2 and is a quick hack
;;; to colorize lisp examples in the html generated by Texinfo.
;;; It is not general-purpose utility, though it could easily be
-;;; turned into one.
+;;; turned into one.
;;;; colorize-package.lisp
@@ -663,7 +663,7 @@ span.paren6:hover { color : inherit; background-color : #FFBAFF; }
((scan #\|)
(set-mode :escaped-symbol
:until (scan #\|)))))
- :formatters
+ :formatters
(((:symbol :escaped-symbol)
(lambda (type s)
(declare (ignore type))
@@ -710,7 +710,6 @@ span.paren6:hover { color : inherit; background-color : #FFBAFF; }
((scan "/*")
(set-mode :comment
:until (scan "*/")))
-
((or
(scan-any *c-open-parens*)
(scan-any *c-close-parens*))
@@ -831,15 +830,15 @@ span.paren6:hover { color : inherit; background-color : #FFBAFF; }
s)))))
(defvar *java-reserved-words*
- '("abstract" "boolean" "break" "byte" "case"
- "catch" "char" "class" "const" "continue"
- "default" "do" "double" "else" "extends"
- "final" "finally" "float" "for" "goto"
- "if" "implements" "import" "instanceof" "int"
- "interface" "long" "native" "new" "package"
- "private" "protected" "public" "return" "short"
- "static" "strictfp" "super" "switch" "synchronized"
- "this" "throw" "throws" "transient" "try"
+ '("abstract" "boolean" "break" "byte" "case"
+ "catch" "char" "class" "const" "continue"
+ "default" "do" "double" "else" "extends"
+ "final" "finally" "float" "for" "goto"
+ "if" "implements" "import" "instanceof" "int"
+ "interface" "long" "native" "new" "package"
+ "private" "protected" "public" "return" "short"
+ "static" "strictfp" "super" "switch" "synchronized"
+ "this" "throw" "throws" "transient" "try"
"void" "volatile" "while"))
(define-coloring-type :java "Java"
View
6 doc/gendocs.sh
@@ -23,6 +23,8 @@
# Original author: Mohit Agarwal.
# Send bug reports and any other correspondence to bug-texinfo@gnu.org.
+#set -e
+
prog="`basename \"$0\"`"
srcdir=`pwd`
@@ -205,7 +207,7 @@ cmd="${MAKEINFO} --no-split --html -o $PACKAGE.html $html $srcfile"
echo "Generating monolithic html... ($cmd)"
rm -rf $PACKAGE.html # in case a directory is left over
eval $cmd
-sbcl --load colorize-lisp-examples.lisp $PACKAGE.html
+sbcl --no-sysinit --no-userinit --load colorize-lisp-examples.lisp $PACKAGE.html
#fix libc/libtool xrefs
sed -e `monognuorg libc` -e `monognuorg libtool` $PACKAGE.html >$outdir/$PACKAGE.html
rm $PACKAGE.html
@@ -217,7 +219,7 @@ cmd="${MAKEINFO} --html -o $PACKAGE.html $html $srcfile"
echo "Generating html by node... ($cmd)"
eval $cmd
split_html_dir=$PACKAGE.html
-sbcl --load colorize-lisp-examples.lisp "${split_html_dir}"/\*.html
+sbcl --no-userinit --no-sysinit --load colorize-lisp-examples.lisp "${split_html_dir}"/\*.html
(
cd ${split_html_dir} || exit 1
#fix libc xrefs

0 comments on commit 0130336

Please sign in to comment.