doc/internals/make-top.sh

   1 #!/bin/sh
   2
   3 #       After the ordeal, we went back to the Factory. Greenblatt said he
   4 # was gonna locate us in a cell. He said: "Kid, I'm gonna INTERN you in a
   5 # cell. I want your manual and your mouse."
   6 #       I said, "Greenblatt, I can understand your wantin' my manual, so
   7 # I don't have any documentation about the cell, but what do you want my
   8 # mouse for?" and he said, "Kid, we don't want any window system problems".
   9 # I said, "Greenblatt, did you think I was gonna deexpose myself for
  10 # litterin'?"
  11 #       Greenblatt said he was makin' sure, and, friends, Greenblatt
  12 # was, 'cause he took out the left Meta-key so I couldn't double bucky the
  13 # rubout and cold-boot, and he took out the Inspector so I couldn't
  14 # click-left on Modify, set the PROCESS-WARM-BOOT-ACTION on the window,
  15 # *THROW around the UNWIND-PROTECT and have an escape. Greenblatt was
  16 # makin' sure.
  17 #                -- from Alice's Lispm (or MIT's AI Lab)
  18
  19 # This software is part of the SBCL system. See the README file for
  20 # more information.
  21 #
  22 # This software is derived from the CMU CL system, which was
  23 # written at Carnegie Mellon University and released into the
  24 # public domain. The software is in the public domain and is
  25 # provided with absolutely no warranty. See the COPYING and CREDITS
  26 # files for more information.
  27
  28 rm -f *.include
  29
  30 echo "@menu" > top-menu.include
  31 for texinfo in *.texinfo
  32 do
  33   if ! [ $texinfo = sbcl-internals.texinfo ]; then
  34       grep @node $texinfo | head -n 1 | perl -p -e "s/\@node\ (.*)/* \$1::/" >> top-menu.include
  35       echo "@include $texinfo" >> top-include.include
  36   fi
  37 done
  38 echo "@end menu" >> top-menu.include