view lisp/forms-pass.el @ 20031:6b1b51bc8b17

Test __OpenBSD__ along with __NetBSD__. (PTY_OPEN): Call sigblock properly. (TEXT_END, COFF, DATA_END): Define them if __NetBSD__ just as if LINUX. (HAVE_TEXT_START): Define, if __NetBSD__ and __ELF__.

+
鐃緒申��申鐃緒申;;; forms-pass.el --- passwd file demo for forms-mode
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; This demo visits your passwd file.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; 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"))