;;; -*- Mode: Emacs-Lisp -*- 
;;; arb-demo-regexp.dba

;;; This database auxiliary file uses the same database file as arb-demo.dba
(database-set-default-format-file database "arb-demo.fmt")

(database-set-fieldnames-to-list database '(place time purpose))
(database-set-print-name database
			 "Mike's Time & Place Database [regexp version]")

;;; Separating
(sepinfo-set-sep-string (database-record-sepinfo database) "\n\n")

;;; Reading
;; Record sepinfo
(sepinfo-set-post-last-string (database-record-sepinfo database) "\n")
;; Field sepinfo
(sepinfo-set-pre-first-regexp (database-field-sepinfo database)
			      "^[^:]*:[ \t]*")
(sepinfo-set-pre-first-regexp-submatch (database-field-sepinfo database) 0)
(sepinfo-set-sep-regexp (database-field-sepinfo database)
			"\n[^:]*:[ \t]*")
(sepinfo-set-sep-regexp-submatch (database-field-sepinfo database) 0)
      
;;; Writing
(defun arb-demo-wrfr (record)
  (insert "Place:   " (record-field record 'place database)
	  "\nTime:    " (record-field record 'time database)
	  "\nPurpose: " (record-field record 'purpose database)))
(database-set-write-region-from-record database 'arb-demo-wrfr)