comment-headers.lisp added to archive site

[stevens@cs.colorado.edu (Curt Stevens)]

I have placed my header generating code on the archive site in the contrib directory. I plan on adding more to it (see the comments for details) so please let me know if you find any bugs or would like improvements implemented.

Enjoy.  Here is the info from the top of the file...
;;;***************************************************************************
;;;***************************************************************************
;;;
;;; Title       : Comment Headers
;;;
;;;***************************************************************************
;;;***************************************************************************
;;; Author      : Curt Stevens
;;; Copyright   : 1993 University of Colorado at Boulder, All Rights Reserved
;;; Availability: public domain
;;; Address     : University of Colorado at Boulder
;;;             : Computer Science Department
;;;             : ECOT 7-7, Engineering Center
;;;             : Boulder,Colorado 80309
;;;             : stevens@cs.colorado.edu
;;;***************************************************************************
;;; Filename    : Comment-Headers.lisp
;;; Version     : 1.0b
;;;
;;; Abstract    : A set of fred extensions that automatically create file and
;;;             : function/method... headers. The key mappings are set at the
;;;             : bottom of the file. In addition to adding headers, you can
;;;             : automatically add lines (with the current date) to the
;;;             : history field of the file header. This header and the ones
;;;             : above definitions in this file were created with these
;;;             : extensions.
;;;             :
;;;             : The default key mappings are:
;;;             : <meta>-h                 insert header above this definition
;;;             : <cntl>-<meta>-h          insert def header with internal doc string
;;;             : <cntl>-<meta>-<shift>-h  insert file header at top of file
;;;             : <cntl>-<meta>-u          update the history field of the file header
;;;             :
;;;             : <cntl>-c                 insert internal documentation string
;;;             :
;;;             : <meta>-o                 insert an empty comment line
;;;             :                          (Like the empty lines here, it is used to
;;;             :                          facilitate manually extending headers.)
;;;             :
;;;             : These extensions were inspired by a similar set that were
;;;             : developed by Dave Wrobleski for the Symbolics environment.
;;;
;;; History     :
;;;             : 10/4/93 Curt Stevens
;;;             :         added class test to each function to stop headers from
;;;             :         being accidentally generated in listener windows
;;;             :
;;;             : 9/27/93 Curt Stevens
;;;             :         fixed the following bugs...
;;;             :         - Blows up if you try definition header with the cursor
;;;             :           being after the last character in the buffer.
;;;             :         - Blows up placing definition header in empty buffer.
;;;             :
;;;             : 9/15/93 Curt Stevens
;;;             :         initial version 1.0 alpha release
;;;
;;; Bugs        : You tell me :->. Send bugs to address above.
;;;             : - Blows up if you try definition header before you have the
;;;             :   definition finished up through the arguments.
;;;
;;; Todo        : + Dialog interface for setting options.
;;;             : + Implement the "update history field" feature.
;;;             : + Get default author name from "sharing setup" control panel?
;;;***************************************************************************


--------------
|Curt Stevens|
--------------