Move some forms.el example files to etc/forms directory

* etc/forms/README: New.

* etc/forms/forms-d2.dat: Move to etc/forms/ subdirectory.

* etc/forms/forms-d2.el, etc/forms/forms-pass.el: Move here from ../lisp.

* lisp/forms.el: Related comment change.

4 files changed, 141 insertions, 0 deletions

diff --git a/etc/forms/README b/etc/forms/README
new file mode 100644
index 00000000000..4d728450ac4
--- /dev/null
+++ b/etc/forms/README
@@ -0,0 +1 @@
+This directory contains some example files for the forms.el library.
diff --git a/etc/forms/forms-d2.dat b/etc/forms/forms-d2.dat
new file mode 100644
index 00000000000..f6c599c9aa8
--- /dev/null
+++ b/etc/forms/forms-d2.dat
@@ -0,0 +1,4 @@
+comp.sources.unix		v11i008	269	getty-enable	1	tron@sc.nsc.com (Ronald S. Karr)	Getty on/off programs for 4.[23] BSD		890505	This program can be used to dynamically enable / disable terminallines on a BSD system.
+comp.sources.unix	11	v11i022	283	syslog	1	emory!arnold (Arnold D. Robbins {EUCC})	Development version of syslog(3), for ATT, too		28/08/1987	
+comp.sources.unix	11	v11i033	290	less3	3	sun!intsc!convgt!mark	The 'less' pager		02/09/1987	
+comp.sources.unix	11	v11i036	293	test.el	3	"Mark A. Ardis" <maa@sei.cmu.edu>	Test system for GNU Emacs		10/09/1987	
diff --git a/etc/forms/forms-d2.el b/etc/forms/forms-d2.el
new file mode 100644
index 00000000000..9fa2145e4d0
--- /dev/null
+++ b/etc/forms/forms-d2.el
@@ -0,0 +1,103 @@
+;;; forms-d2.el --- demo forms-mode
+
+;; Copyright (C) 1991, 1994-1997, 2001-2012 Free Software Foundation, Inc.
+
+;; Author: Johan Vromans <jvromans@squirrel.nl>
+;; Created: 1989
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs 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 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs 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 GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; This sample forms exploit most of the features of forms mode.
+
+;;; Code:
+
+;; Set the name of the data file.
+(setq forms-file (expand-file-name "forms/forms-d2.dat" data-directory))
+
+;; Use 'forms-enumerate' to set field names and number thereof.
+(setq forms-number-of-fields
+      (forms-enumerate
+       '(arch-newsgroup			; 1
+	 arch-volume			; 2
+	 arch-issue			; and ...
+	 arch-article			; ... so
+	 arch-shortname			; ... ... on
+	 arch-parts
+	 arch-from
+	 arch-longname
+	 arch-keywords
+	 arch-date
+	 arch-remarks)))
+
+;; The following functions are used by this form for layout purposes.
+;;
+(defun arch-tocol (target &optional fill)
+  "Produces a string to skip to column TARGET.  Prepends newline if needed.
+The optional FILL should be a character, used to fill to the column."
+  (if (null fill)
+      (setq fill ?\s))
+  (if (< target (current-column))
+      (concat "\n" (make-string target fill))
+    (make-string (- target (current-column)) fill)))
+;;
+(defun arch-rj (target field &optional fill)
+  "Produces a string to skip to column TARGET minus the width of field FIELD.
+Prepends newline if needed.  The optional FILL should be a character,
+used to fill to the column."
+  (arch-tocol (- target (length (nth field forms-fields))) fill))
+
+;; Record filters.
+;;
+(defun arch-new-record-filter (the-record)
+  "Form a new record with some defaults."
+  (aset the-record arch-from (user-full-name))
+  (aset the-record arch-date (current-time-string))
+  the-record				; return it
+)
+(setq forms-new-record-filter 'arch-new-record-filter)
+
+;; The format list.
+(setq forms-format-list
+     (list
+       "====== Public Domain Software Archive ======\n\n"
+       arch-shortname
+       " - "			arch-longname
+       "\n\n"
+       "Article: "		arch-newsgroup
+       "/"			arch-article
+       " "
+       '(arch-tocol 40)
+       "Issue: "		arch-issue
+       " "
+       '(arch-rj 73 10)
+       "Date: "			arch-date
+       "\n\n"
+       "Submitted by: "		arch-from
+       "\n"
+       '(arch-tocol 79 ?-)
+       "\n"
+       "Keywords: "		arch-keywords
+       "\n\n"
+       "Parts: "		arch-parts
+       "\n\n====== Remarks ======\n\n"
+       arch-remarks
+     ))
+
+;; That's all, folks!
+
+;;; forms-d2.el ends here
diff --git a/etc/forms/forms-pass.el b/etc/forms/forms-pass.el
new file mode 100644
index 00000000000..34d4548434b
--- /dev/null
+++ b/etc/forms/forms-pass.el
@@ -0,0 +1,33 @@
+;;; forms-pass.el --- passwd file demo for forms-mode
+
+;; This file is part of GNU Emacs.
+
+;;; Commentary:
+
+;; This demo visits your passwd file.
+
+;;; Code:
+
+;; use yp if present
+(or (file-exists-p (setq forms-file "/var/yp/src/passwd"))
+    (setq forms-file "/etc/passwd"))
+
+(setq forms-read-only t)		; to make sure
+(setq forms-field-sep ":")
+(setq forms-number-of-fields 7)
+
+(setq forms-format-list
+      (list
+       "====== Visiting " forms-file " ======\n\n"
+       "User : "	1
+       "   Uid: "	3
+       "   Gid: "	4
+       "\n\n"
+       "Name : "	5
+       "\n\n"
+       "Home : "	6
+       "\n\n"
+       "Shell: "	7
+       "\n"))
+
+;;; forms-pass.el ends here