--- /dev/null
+COPYING
+elisp-comp
+install-sh
+missing
+mkinstalldirs
--- /dev/null
+;;; -*-emacs-lisp-*-
+
+(setq skel-alist
+ (append
+ '((author . "Mark Wooding")
+ (full-title . "Skel")
+ (program . "Skel"))
+ skel-alist))
--- /dev/null
+## -*-makefile-*-
+##
+## $Id: Makefile.am,v 1.1 1999/04/05 13:44:59 mdw Exp $
+##
+## Makefile for skel
+##
+## (c) 1998 Mark Wooding
+##
+
+##----- Licensing notice ----------------------------------------------------
+##
+## This file is part of Skel.
+##
+## Skel is free software; you can redistribute it and/or modify
+## it under the terms of the GNU General Public License as published by
+## the Free Software Foundation; either version 2 of the License, or
+## (at your option) any later version.
+##
+## Skel is distributed in the hope that it will be useful,
+## but WITHOUT ANY WARRANTY; without even the implied warranty of
+## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+## GNU General Public License for more details.
+##
+## You should have received a copy of the GNU General Public License
+## along with Skel; if not, write to the Free Software Foundation,
+## Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+##----- Revision history ----------------------------------------------------
+##
+## $Log: Makefile.am,v $
+## Revision 1.1 1999/04/05 13:44:59 mdw
+## Initial revision
+##
+
+## --- Basic automake configuration ---
+
+AUTOMAKE_OPTIONS = foreign
+
+## --- Emacs lisp files to build ---
+
+lisp_LISP = skel.el skel-init.el
+ELCFILES = skel.elc
+
+## --- Other things to install ---
+
+pkgdata_DATA = \
+ skeleton skelrc \
+ skelrc.c skelrc.cc skelrc.h skelrc.y \
+ skelrc.el \
+ skelrc.pm skelrc.pl \
+ skelrc.am skelrc.in \
+ skeleton.skel skelrc.skel \
+ skeleton.texi skelrc.texi
+
+## --- Things to distribute ---
+
+EXTRA_DIST = \
+ $(pkgdata_DATA) \
+ skel-init.el
+
+##----- That's all, folks ---------------------------------------------------
--- /dev/null
+dnl -*-fundamental-*-
+dnl
+dnl $Id: configure.in,v 1.1 1999/04/05 13:44:59 mdw Exp $
+dnl
+dnl Configuration script for skel
+dnl
+dnl (c) 1998 Mark Wooding
+dnl
+
+dnl ----- Licensing notice --------------------------------------------------
+dnl
+dnl This file is part of Skel.
+dnl
+dnl Skel is free software; you can redistribute it and/or modify
+dnl it under the terms of the GNU General Public License as published by
+dnl the Free Software Foundation; either version 2 of the License, or
+dnl (at your option) any later version.
+dnl
+dnl Skel is distributed in the hope that it will be useful,
+dnl but WITHOUT ANY WARRANTY; without even the implied warranty of
+dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+dnl GNU General Public License for more details.
+dnl
+dnl You should have received a copy of the GNU General Public License
+dnl along with Skel; if not, write to the Free Software Foundation,
+dnl Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+dnl ----- Revision history --------------------------------------------------
+dnl
+dnl $Log: configure.in,v $
+dnl Revision 1.1 1999/04/05 13:44:59 mdw
+dnl Initial revision
+dnl
+
+AC_INIT(skel.el.in)
+AM_INIT_AUTOMAKE(skel, 1.0)
+AM_PATH_LISPDIR
+AM_PROG_INSTALL
+
+mdw_prefix="$prefix"
+test "$prefix" = "NONE" && prefix="$ac_default_prefix"
+eval "skeldir=\"$datadir/$PACKAGE\""
+prefix="$mdw_prefix"
+AC_SUBST(skeldir)
+
+AC_OUTPUT(Makefile skel.el)
+
+dnl ----- That's all, folks -------------------------------------------------
--- /dev/null
+;;; -*-emacs-lisp-*-
+;;;
+;;; $Id: skel-init.el,v 1.1 1999/04/05 13:44:59 mdw Exp $
+;;;
+;;; Initialise skeleton stuff
+;;;
+;;; (c) 1998 Mark Wooding
+;;;
+
+(autoload 'skel-create-file "skel" nil t)
+(autoload 'skel-create-file-other-window "skel" nil t)
+(autoload 'skel-create-file-other-frame "skel" nil t)
+(provide 'skel-init)
--- /dev/null
+;;; -*-emacs-lisp-*-
+;;;
+;;; $Id: skel.el.in,v 1.1 1999/04/05 13:44:59 mdw Exp $
+;;;
+;;; Filling in skeletons
+;;;
+;;; (c) 1998 Mark Wooding
+;;;
+
+;;;----- Licensing notice ---------------------------------------------------
+;;;
+;;; This program is free software; you can redistribute it and/or modify
+;;; it under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 2 of the License, or
+;;; (at your option) any later version.
+;;;
+;;; This program is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with this program; if not, write to the Free Software Foundation,
+;;; Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+;;;----- Revision history ---------------------------------------------------
+;;;
+;;; $Log: skel.el.in,v $
+;;; Revision 1.1 1999/04/05 13:44:59 mdw
+;;; Initial revision
+;;;
+
+;;;----- Variables (largely tweakable) --------------------------------------
+
+(defvar skel-directory-list '(".skel" "")
+ "*List of directory names which contain skeleton files.")
+
+(defvar skel-skeleton-path '("@skeldir@" "~/skel" "~/src/skel")
+ "*List of directories to search for skeleton data anyway.")
+
+(defvar skel-skelrc '(".skelrc" "skelrc")
+ "*File containing skeleton substitution data, looked up using the standard
+skeleton search mathod.")
+
+(defvar skel-alist '()
+ "Alist of values to substitute into a skeleton. It is filled in by skelrc
+files and user interaction.
+
+The alist's keys are symbols, interned from the placeholder strings in the
+skeleton file. The values are forms to be evaluated. In the simplest case,
+the form is a string added as a result of user interaction; however, it could
+just as easily be a function call or something similarly complicated.")
+
+;;;----- Finding skeleton files ---------------------------------------------
+
+(defun skel-do-join (acc jfun ll s)
+ "Recursive guts of skel-join."
+ (if ll
+ (if (car ll)
+ (skel-do-join (skel-do-join acc jfun (cdr ll)
+ (funcall jfun s (car (car ll))))
+ jfun (cons (cdr (car ll)) (cdr ll)) s)
+ acc)
+ (cons s acc)))
+
+(defun skel-join (jfun base &rest ll)
+ "Return a list built from joining elements from the given lists in order,
+left to right. JFUN is a function of two arguments which can join items
+together. BASE is the initial item."
+ (nreverse (skel-do-join nil jfun ll base)))
+
+(defun skel-do-parents (dir acc)
+ "Tail recursive guts of skel-parents"
+ (setq acc (cons dir acc))
+ (setq dir (substring dir 0 (string-match "/[^/]*/?$" dir)))
+ (if (string= dir "")
+ (cons "/" acc)
+ (skel-do-parents dir acc)))
+
+(defun skel-parents (dir)
+ "Returns a list of DIR, DIR's parent directory, etc., all the way up to the
+root."
+ (setq dir (expand-file-name dir))
+ (nreverse (skel-do-parents dir nil)))
+
+(defun skel-do-find (l all acc)
+ (if l
+ (let ((n (car l)))
+ (if (and (file-readable-p n) (file-regular-p n))
+ (if all
+ (skel-do-find (cdr l) all (cons (abbreviate-file-name n) acc))
+ (abbreviate-file-name n))
+ (skel-do-find (cdr l) all acc)))
+ acc))
+
+(defun skel-find-skeleton (name &optional all acc)
+ "Searches for skeleton files. NAME is the name of the file to find, or
+a list of possible names.
+
+If ALL is nil, or omitted, return only the first matching filename
+encountered. Otherwise, return a list of all matching names, most `global'
+first. ACC is a base list to which the matching filenames are prepended."
+
+ ;; --- Build one big list of all the possible names ---
+
+ (let ((l (skel-join (lambda (x y) (if (string= y "")
+ x
+ (expand-file-name y x)))
+ nil
+ (append (skel-parents default-directory)
+ skel-skeleton-path)
+ skel-directory-list
+ (if (listp name) name (cons name nil)))))
+
+ ;; --- Now filter out any which aren't interesting ---
+
+ (skel-do-find l all acc)))
+
+;;;----- Processing file skeletons ------------------------------------------
+
+(defun skel-include (file)
+ "Includes the skeleton rc FILE."
+ (let ((rc (skel-find-skeleton file t)))
+ (while rc
+ (load (car rc) nil t t)
+ (setq rc (cdr rc)))))
+
+(defun skel-lookup (name)
+
+ "Reads the value of symbol NAME in skel-alist. If there is no currrent
+value, the user is prompted for one."
+
+ ;; --- Resolve NAME into a symbol ---
+
+ (if (stringp name)
+ (setq name (intern name)))
+
+ ;; --- Look up the value ---
+ ;;
+ ;; Add it to the list if we've not seen it before. Protect ourselves
+ ;; against functions which do regexp matching.
+
+ (let ((pair (assq name skel-alist))
+ value)
+ (if pair
+ (save-match-data (setq value (eval (cdr pair))))
+ (setq value (read-string (format "Value for %s: " name)))
+ (setq skel-alist (cons (cons name value) skel-alist)))
+ value))
+
+(defun skel-do-fill-in ()
+ "Does the actual donkey-work of filling in a file. For each fill-in area
+in the current buffer, the function looks to see if the item in question has
+been entered into ALIST: if so, it is replaced automatically; otherwise the
+user is promted to enter a string to substitute into the buffer at this
+point."
+ (if (re-search-forward "\\[\\[\\([^]]*\\)\\]\\]" nil t)
+ (progn
+ (replace-match (skel-lookup (match-string 1)) t t nil)
+ (goto-char (match-beginning 0))
+ (skel-do-fill-in))))
+
+;;;----- Creating new files from skeletons ----------------------------------
+
+(defun skel-do-create-file (name switch &optional skel)
+
+ "Does the main work of creating a file based on a skeleton. The SWITCH
+argument is called to display the buffer."
+
+ ;; --- Some local variables ---
+ ;;
+ ;; This is a little bit of a hack, but do I look like someone who cares?
+
+ (let (ext rc)
+
+ ;; --- Find out if the file's there already ---
+
+ (if (file-exists-p name)
+ (or (yes-or-no-p
+ (format "File %s already exists. Overwrite? " name))
+ (error "Aborted!")))
+
+ ;; --- Fiddle with the filename ---
+
+ (cond ((stringp skel) (let ((extind (string-match "\.[^.]*$" skel)))
+ (setq ext (and extind (substring skel extind)))))
+ (skel (progn
+ (setq ext (read-string "Extension: "))
+ (or (string= ext "") (setq ext (concat "." ext)))))
+ (t (let ((extind (string-match "\.[^.]*$" name)))
+ (setq ext (and extind (substring name extind))))))
+ (setq skel (concat "skeleton" (or ext "")))
+
+ ;; --- Find the skeleton filename ---
+
+ (setq skel (or (skel-find-skeleton skel)
+ (skel-find-skeleton "skeleton")
+ (error "Couldn't find skeleton file %s" skel)))
+
+ ;; --- Visit the file and destroy its contents ---
+
+ (funcall switch (find-file-noselect name))
+ (kill-region (point-min) (point-max))
+ (insert-file skel)
+
+ ;; --- Mangle the skeleton data in the file ---
+
+ (make-local-variable 'skel-alist)
+ (setq skel-alist '())
+
+ ;; --- Read the default values to insert ---
+
+ (let ((rc (append
+ (skel-find-skeleton skel-skelrc t)
+ (and ext
+ (skel-find-skeleton
+ (if (listp skel-skelrc)
+ (mapcar (lambda (x) (concat x ext)) skel-skelrc)
+ (concat skel-skelrc ext))
+ t)))))
+ (while rc
+ (load (car rc) nil t t)
+ (setq rc (cdr rc))))
+
+ ;; --- Now do substitution ---
+
+ (skel-do-fill-in)
+ (not-modified)))
+
+;;;----- User commands ------------------------------------------------------
+
+(defun skel-create-file (name &optional skel)
+ "Creates a new file called NAME and visits it. If SKEL is non-`nil', it is
+the name of a skeleton file to insert and substitute. Otherwise the skeleton
+file's name is derived from NAME by taking NAME's extension and appending it
+to `skel'."
+ (interactive "FSkeleton create file: \nP")
+ (skel-do-create-file name 'switch-to-buffer skel))
+
+(defun skel-create-file-other-window (name &optional skel)
+ "Like skel-create-file, but in another window."
+ (interactive "FSkeleton create file in other window: \nP")
+ (skel-do-create-file name 'switch-to-buffer-other-window skel))
+
+(defun skel-create-file-other-frame (name &optional skel)
+ "Like skel-create-file, but in another frame."
+ (interactive "FSkeleton create file in other frame: \nP")
+ (skel-do-create-file name 'switch-to-buffer-other-frame skel))
+
+;;;----- Is that all there is? ----------------------------------------------
+
+(provide 'skel)
--- /dev/null
+[[new-comment]] -*-[[emacs-mode]]-*-
+[[cont-comment]]
+[[cont-comment]] $Id$
+[[cont-comment]]
+[[cont-comment]] [[purpose]]
+[[cont-comment]]
+[[cont-comment]] (c) [[year]] [[author]]
+[[end-comment]]
+
+[[header]][[trailer]]
\ No newline at end of file
--- /dev/null
+;;; -*-emacs-lisp-*-
+
+(skelrc-force-mode '[[target-mode]])
+
+(setq skel-alist
+ (append
+ '((...))
+ skel-alist))
--- /dev/null
+\input texinfo @c -*-texinfo-*-
+@c
+@c $Id$
+@c
+@c [[purpose]]
+@c
+@c (c) [[year]] [[author]]
+@c
+
+[[revisions]]@c ----- Standard boilerplate -----------------------------------------------
+
+@c %**start of header
+@setfilename [[basename]].info
+@settitle [[title]]
+@setchapternewpage odd
+@footnotestyle end
+@paragraphindent 0
+@iftex
+@input texinice
+@afourpaper
+@end iftex
+@c %**end of header
+
+@c ----- Useful macros ------------------------------------------------------
+
+@set version 1.0
+
+@c ----- Copyright matters --------------------------------------------------
+
+@c --- The `Info' version ---
+
+@ifinfo
+
+This file documents [[subject]] version
+@value{version}.
+
+Copyright (c) [[year]] [[author]]
+
+Permission is granted to make and distribute verbatim copies of this
+manual provided the copyright notice and this permission notice are
+preserved on all copies.
+
+@ignore
+Permission is granted to process this file through TeX and print the
+results, provided the printed document carries a copying permission
+notice identical to this one except for the removal of this paragraph
+(this paragraph not being relevant to the printed manual).
+
+@end ignore
+Permission is granted to copy and distribute modified versions of this
+manual under the conditions for verbatim copying, provided also that the
+sections entitled `Copying' and `GNU General Public License' are
+included exactly as in the original, and provided that the entire
+resulting derived work is distributed under the terms of a permission
+notice identical to this one.
+
+Permission is granted to copy and distribute translations of this manual
+into another language, under the above conditions for modified versions,
+except that this permission notice may be stated in a translation
+approved by the copyright holder.
+
+@end ifinfo
+
+@c --- Printed title page ---
+
+@titlepage
+
+@title [[title]]
+@subtitle [[subtitle]]
+@author [[author]]
+@page
+
+@vskip 0pt plus 1filll
+
+Copyright @copyright{} [[year]] [[author]]
+
+Permission is granted to make and distribute verbatim copies of this
+manual provided the copyright notice and this permission notice are
+preserved on all copies.
+
+Permission is granted to copy and distribute modified versions of this
+manual under the conditions for verbatim copying, provided also that the
+sections entitled `Copying' and `GNU General Public License' are
+included exactly as in the original, and provided that the entire
+resulting derived work is distributed under the terms of a permission
+notice identical to this one.
+
+Permission is granted to copy and distribute translations of this manual
+into another language, under the above conditions for modified versions,
+except that this permission notice may be stated in a translation
+approved by the copyright holder.
+
+@end titlepage
+
+
+@c --------------------------------------------------------------------------
+@ifinfo
+@node Top, Copying, (dir), (dir)
+@top [[title]]
+
+@menu
+@end menu
+
+@end ifinfo
+
+@c --------------------------------------------------------------------------
+@node Copying, Introduction, Top, Top
+@unnumbered The GNU General Public License
+
+@include gpl.texi
+
+@c --------------------------------------------------------------------------
+@node Introduction, , Copying, Top
+@unnumbered Introduction
+
+@c --------------------------------------------------------------------------
+@contents
+@bye
--- /dev/null
+;;; -*-emacs-lisp-*-
+
+(defun skelrc-banner (title &optional block)
+ (let* ((start (skel-lookup 'block-start))
+ (end (skel-lookup (if block 'block-banner-knob 'block-banner-end)))
+ (barlen (- 77 (length (concat start end " ----- " title)))))
+ (concat start "----- " title " " (make-string barlen ?-) end)))
+
+(defvar skelrc-forced-major-mode 0)
+
+(defun skelrc-force-mode (new-mode &optional priority)
+ (or priority (setq priority 1))
+ (if (> priority skelrc-forced-major-mode)
+ (progn
+ (or (eq new-mode major-mode)
+ (let ((old-skel-alist skel-alist))
+ (funcall new-mode)
+ (make-variable-buffer-local 'skel-alist)
+ (setq skel-alist old-skel-alist)))
+ (make-variable-buffer-local 'skelrc-forced-major-mode)
+ (setq skelrc-forced-major-mode priority))))
+
+(defun skelrc-decode-major-mode ()
+ (let* ((name (symbol-name major-mode))
+ (endind (string-match "-mode$" name)))
+ (if endind (substring name 0 endind)
+ (name))))
+
+(setq skelrc-gpl
+"[[cont-comment]] This file is part of [[full-title]].
+[[cont-comment]]
+[[cont-comment]] [[program]] is free software; you can redistribute it and/or modify
+[[cont-comment]] it under the terms of the GNU General Public License as published by
+[[cont-comment]] the Free Software Foundation; either version 2 of the License, or
+[[cont-comment]] (at your option) any later version.
+[[cont-comment]]
+[[cont-comment]] [[program]] is distributed in the hope that it will be useful,
+[[cont-comment]] but WITHOUT ANY WARRANTY; without even the implied warranty of
+[[cont-comment]] MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+[[cont-comment]] GNU General Public License for more details.
+[[cont-comment]]
+[[cont-comment]] You should have received a copy of the GNU General Public License
+[[cont-comment]] along with [[program]]; if not, write to the Free Software Foundation,
+[[cont-comment]] Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.")
+
+(setq skelrc-lgpl
+"[[cont-comment]] This file is part of [[full-title]].
+[[cont-comment]]
+[[cont-comment]] [[program]] is free software; you can redistribute it and/or modify
+[[cont-comment]] it under the terms of the GNU Library General Public License as
+[[cont-comment]] published by the Free Software Foundation; either version 2 of the
+[[cont-comment]] License, or (at your option) any later version.
+[[cont-comment]]
+[[cont-comment]] [[program]] is distributed in the hope that it will be useful,
+[[cont-comment]] but WITHOUT ANY WARRANTY; without even the implied warranty of
+[[cont-comment]] MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+[[cont-comment]] GNU Library General Public License for more details.
+[[cont-comment]]
+[[cont-comment]] You should have received a copy of the GNU Library General Public
+[[cont-comment]] License along with [[program]]; if not, write to the Free Software
+[[cont-comment]] Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.")
+
+(defun skel-basename ()
+ (file-name-sans-extension (file-name-nondirectory buffer-file-name)))
+
+(setq skel-alist
+ (append
+ '((emacs-mode . (skelrc-decode-major-mode))
+ (year . (substring (current-time-string) 20 24))
+ (header . "[[licence]][[revisions]][[preamble]]")
+ (basename . (skel-basename))
+ (licence . "[[licence-banner]]\n[[cont-comment]]\n[[licence-text]][[block-end]]\n\n")
+ (licence-banner . (skelrc-banner "Licensing notice" t))
+ (licence-text . "[[gpl]]")
+ (gpl . skelrc-gpl)
+ (lgpl . skelrc-lgpl)
+ (revisions . "[[revision-banner]]\n[[cont-comment]]\n[[cont-comment]] $Log$[[block-end]]\n\n")
+ (revision-banner . (skelrc-banner "Revision history" t))
+ (preamble . "")
+ (trailer . "[[tag-line]][[postamble]]\n")
+ (postamble . "")
+ (tag-line . (skelrc-banner "That's all, folks"))
+ (block-start . (skel-lookup 'new-comment))
+ (block-banner-knob . "")
+ (block-banner-end . "")
+ (block-end . ""))
+ skel-alist))
--- /dev/null
+;; -*-emacs-lisp-*-
+
+(skelrc-force-mode 'makefile-mode)
+
+(setq skel-alist
+ (append
+ '((new-comment . "##")
+ (cont-comment . "##")
+ (end-comment . "##")
+ (block-start . "##")
+ (block-banner-knob . "")
+ (block-banner-end . "")
+ (block-end . ""))
+ skel-alist))
--- /dev/null
+;;; -*-emacs-lisp-*-
+
+(skelrc-force-mode 'c-mode)
+
+(setq skel-alist
+ (append
+ '((new-comment . "/*")
+ (cont-comment . " *")
+ (end-comment . " */")
+ (block-start . "/*")
+ (block-banner-knob . "* ")
+ (block-banner-end . "*/")
+ (block-end . "\n */")
+ (preamble . "[[includes]][[structures]][[main-code]]")
+ (includes . "[[includes-banner]]\n\n[[headers]]")
+ (includes-banner . (skelrc-banner "Header files"))
+ (headers . "")
+ (structures . "[[struct-banner]]\n\n")
+ (struct-banner . (skelrc-banner "Data structures"))
+ (main-code . "[[main-code-banner]]\n\n")
+ (main-code-banner . (skelrc-banner "Main code")))
+ skel-alist))
--- /dev/null
+;;; -*-emacs-lisp-*-
+
+(skelrc-force-mode 'c++-mode)
+(skel-include "skelrc.c")
--- /dev/null
+;;; -*-emacs-lisp-*-
+
+(setq skel-alist
+ (append
+ '((new-comment . ";;;")
+ (cont-comment . ";;;")
+ (end-comment . ";;;"))
+ skel-alist))
--- /dev/null
+;;; -*-emacs-lisp-*-
+
+(skel-include "skelrc.c")
+
+(defun skelrc-c-guard-name ()
+ (if buffer-file-name
+ (upcase (file-name-sans-extension (file-name-nondirectory
+ buffer-file-name)))
+ (skel-lookup 'include-guard-name)))
+
+(setq skel-alist
+ (append
+ '((preamble . "[[guard]][[c++-guard]][[includes]][[structures]][[functions]]")
+ (guard . "#ifndef [[guard-name]]_H\n#define [[guard-name]]_H\n\n")
+ (guard-name . (skelrc-c-guard-name))
+ (c++-guard . "#ifdef __cplusplus\n extern \"C\" {\n#endif\n\n")
+ (includes . "[[includes-banner]]\n\n[[headers]]")
+ (includes-banner . (skelrc-banner "Header files"))
+ (headers . "")
+ (structures . "[[struct-banner]]\n\n")
+ (struct-banner . (skelrc-banner "Data structures"))
+ (functions . "[[func-banner]]\n\n")
+ (func-banner . (skelrc-banner "Functions provided"))
+ (postamble . "\n\n[[c++-unguard]]#endif")
+ (c++-unguard . "#ifdef __cplusplus\n }\n#endif\n\n"))
+ skel-alist))
--- /dev/null
+;; -*-emacs-lisp-*-
+
+(skelrc-force-mode 'fundamental-mode)
+
+(setq skel-alist
+ (append
+ '((new-comment . "dnl")
+ (cont-comment . "dnl")
+ (end-comment . "dnl")
+ (block-start . "dnl ")
+ (block-banner-knob . "")
+ (block-banner-end . "")
+ (block-end . ""))
+ skel-alist))
--- /dev/null
+;;; -*-emacs-lisp-*-
+
+(skelrc-force-mode 'perl-mode)
+
+(setq skel-alist
+ (append
+ '((new-comment . "#")
+ (cont-comment . "#")
+ (end-comment . "#")
+ (block-start . "#")
+ (block-banner-knob . "")
+ (block-banner-end . "")
+ (block-end . "")
+ (preamble . ""))
+ skel-alist))
--- /dev/null
+;;; -*-emacs-lisp-*-
+
+(skelrc-force-mode 'perl-mode)
+
+(setq skel-alist
+ (append
+ '((new-comment . "#")
+ (cont-comment . "#")
+ (end-comment . "#")
+ (block-start . "#")
+ (block-banner-knob . "")
+ (block-banner-end . "")
+ (block-end . "")
+ (preamble . ""))
+ skel-alist))
--- /dev/null
+;;; -*-emacs-lisp-*-
+
+(skelrc-force-mode 'emacs-lisp-mode)
--- /dev/null
+;;; -*-emacs-lisp-*-
+
+(skelrc-force-mode 'texinfo-mode)
+
+(setq skel-alist
+ (append
+ '((new-comment . "@c")
+ (cont-comment . "@c")
+ (end-comment . "@c")
+ (block-start . "@c ")
+ (block-banner-knob . "")
+ (block-banner-end . "")
+ (block-end . ""))
+ skel-alist))
--- /dev/null
+;;; -*-emacs-lisp-*-
+
+(skelrc-force-mode 'c-mode)
+
+(setq skel-alist
+ (append
+ `((new-comment . "/*")
+ (cont-comment . " *")
+ (end-comment . " */")
+ (block-start . "/*")
+ (block-banner-knob . "* ")
+ (block-banner-end . "*/")
+ (block-end . "\n */")
+ (preamble . "[[c-stuff]][[yacc-stuff]][[c-code]]")
+
+ ;; --- Heavy-duty C preamble to the parser ---
+
+ (c-stuff . "[[includes]][[macros]][[depends]][[references]]")
+ (includes . "[[includes-banner]]\n%{\n\n[[headers]]")
+ (includes-banner . (skelrc-banner "Header files"))
+ (headers . "")
+ (macros . "[[macros-banner]]\n\n[[macros-body]]")
+ (macros-banner . (skelrc-banner "Parser control macros"))
+ (macros-body . "#define YYDEBUG 1\n#define YYERROR_VERBOSE\n\n")
+ (depends . "[[deps-banner]]\n\n[[deps-body]]")
+ (deps-banner . (skelrc-banner "External dependencies"))
+ (deps-body . "extern int yylex(void);\n\n")
+ (references . "[[refs-banner]]\n\n[[refs-body]]")
+ (refs-banner . (skelrc-banner "Forward references"))
+ (refs-body . "static int yyerror(const char */*e*/);\n\n")
+
+ ;; --- Yacc preamble and main parser ---
+
+ (yacc-stuff . "[[yacc-decls]][[tokens]][[nonterms]][[yacc-parser]]")
+
+ (yacc-decls . "[[decls-banner]]%}\n\n[[decls-body]]")
+ (decls-banner . (skelrc-banner "Yacc declarations"))
+ (decls-body . ,(concat "%expect 0\n"
+ "%start ...\n"
+ "\n"
+ "/* --- Stack type --- */\n"
+ "\n"
+ "%union {\n"
+ "}\n"
+ "\n"))
+ (tokens . "[[toks-banner]]\n\n")
+ (toks-banner . (skelrc-banner "Token declarations"))
+ (nonterms . "[[nonterms-banner]]\n\n")
+ (nonterms-banner . (skelrc-banner "Nonterminal declarations"))
+
+ (yacc-parser . "[[parser-banner]]\n%%\n\n")
+ (parser-banner . (skelrc-banner "Grammar rules"))
+
+ ;; --- C code stuck on the end ---
+
+ (c-code . "[[c-code-banner]]\n%%\n\n[[yyerror]]")
+ (c-code-banner . (skelrc-banner "C code"))
+ (yyerror . ,(concat "/* --- @yyerror@ --- *\n"
+ " *\n"
+ " * Arguments:\t@const char *e@ = "
+ "error message text\n"
+ " *\n"
+ " * Returns:\t---\n"
+ " *\n"
+ " * Use:\t\tHandles errors reported by "
+ "the parser.\n"
+ " */\n"
+ "\n"
+ "static void yyerror(const char *e)\n"
+ "{\n"
+ " fprintf(stderr, \"%s\\n\", e);\n"
+ "}\n"
+ "\n")))
+ skel-alist))
~mdw / skel / commitdiff