quicklisp/trunk/get-files.sh

   1 #!/usr/bin/env bash
   2 set -eu
   3
   4 # SPDX-License-Identifier: GFDL-1.3-or-later
   5 # utility script to download all required sources for inspection
   6
   7 FILES=(
   8         'https://www.quicklisp.org/beta/index.html'
   9         'https://www.quicklisp.org/beta/faq.html'
  10         'https://beta.quicklisp.org/release-key.txt'
  11         'https://beta.quicklisp.org/quicklisp.lisp'
  12         'https://beta.quicklisp.org/quicklisp.lisp.asc'
  13 )
  14
  15 # download files if they don't exist
  16 for file in "${FILES[@]}"; do
  17         if [ ! -f "$(basename ${file})" ]; then
  18                 curl --location --remote-name "$file"
  19         fi
  20 done
  21
  22 if [ ! -f 'README.md' ]; then
  23         html2text index.html >README.md
  24 fi
  25
  26 if [ ! -f 'FAQ.md' ]; then
  27         html2text faq.html >FAQ.md
  28 fi
  29
  30 if [ ! -f 'LICENSE' ]; then
  31         sed -n '/Copyright/,/from the author./p' README.md | sed -e 's/^      //' >LICENSE
  32 fi
  33
  34 # strip trailing whitespace from generated files
  35 sed -e 's/[ \t]*$//' -i README.md FAQ.md LICENSE