debian/0000755000000000000000000000000012164716576007205 5ustar debian/debian-vars.mk0000644000000000000000000000476412164711560011730 0ustar #!/usr/bin/make -f # # debian-vars.mk -- Common variables # # Copyright # # Copyright (C) 2005-2010 Jari Aalto # # License # # 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, see . # # Description # # This is GNU makefile part that defines common variables and # macros to be used from debian/rules. To install, add following # to the beginning of debian/rules: # # PACKAGE = foo # include debian/debian-vars.mk ifneq (,) This makefile requires GNU Make. endif PACKAGE ?= foo PIXPACKAGE ?= $(PACKAGE) ICONPACKAGE ?= $(PACKAGE) TOPDIR := $(shell pwd) PKGDIR = $(shell pwd)/debian/$(PACKAGE) SHAREROOTDIR = $(PKGDIR)/usr/share SHAREDIR = $(SHAREROOTDIR)/$(PACKAGE) DOCROOTDIR = $(SHAREROOTDIR)/doc PKGDOCDIR = $(DOCROOTDIR)/$(PACKAGE) SITELISPDIR = $(SHAREROOTDIR)/emacs/site-lisp PKGLISPDIR = $(SITELISPDIR)/$(PACKAGE) DESKTOPDIR = $(SHAREROOTDIR)/applications XSESSIONDIR = $(SHAREROOTDIR)/xsessions LOCALEDIR = $(SHAREROOTDIR)/locale INFODIR = $(SHAREROOTDIR)/info PIXDIR = $(SHAREROOTDIR)/pixmaps PKGPIXDIR = $(PIXDIR)/$(PIXPACKAGE) ICONDIR = $(SHAREROOTDIR)/icons PKGICONDIR = $(ICONDIR)/$(ICONPACKAGE) MANROOTDIR = $(SHAREROOTDIR)/man MAN1DIR = $(MANROOTDIR)/man1 MAN5DIR = $(MANROOTDIR)/man5 MAN7DIR = $(MANROOTDIR)/man7 MAN8DIR = $(MANROOTDIR)/man8 LIBROOTDIR = $(PKGDIR)/usr/lib LIBDIR = $(LIBROOTDIR)/$(PACKAGE) LIBPERLDIR = $(LIBROOTDIR)/perl BINDIR = $(PKGDIR)/usr/bin ETCDIR = $(PKGDIR)/etc PKGETCDIR = $(PKGDIR)/etc/$(PACKAGE) SBINDIR = $(PKGDIR)/usr/sbin GAMEBINDIR = $(PKGDIR)/usr/games INSTALL ?= /usr/bin/install INSTALL_DIR = $(INSTALL) -m 755 -d INSTALL_DATA = $(INSTALL) -p -m 644 # The difference is that "BIN" may contain binary strip option INSTALL_SCRIPT = $(INSTALL) -p -m 755 INSTALL_BIN = $(INSTALL) -p -m 755 ifeq (,$(findstring nostrip,$(DEB_BUILD_OPTIONS))) INSTALL_BIN += -s endif # End of Makefile part debian/compat0000644000000000000000000000000212164711560010367 0ustar 9 debian/rules0000755000000000000000000000277712164711560010266 0ustar #!/usr/bin/make -f PACKAGE = edb include debian/debian-vars.mk override_dh_clean: [ ! -f GNUMakefile ] || $(MAKE) clean find . -name GNUmakefile \ -o -name "*[#~]*" \ | xargs -r rm dh_clean override_dh_auto_test: # Ignore tests and FAIL: skram.test override_dh_auto_install: # target: install call make $(MAKE) DESTDIR=debian/edb install # Don't need compiled files rm -f $(PKGLISPDIR)/*.elc # The 'make install' doesn't install all files. Do it by hand. install -m 644 lisp/*.el $(PKGLISPDIR) # But do not include these, which are not edb-* namespace rm $(PKGLISPDIR)/connection.el \ $(PKGLISPDIR)/state.el \ $(PKGLISPDIR)/system.el # We need these in emacsen-install # # The byte compilation is real strange. The # bfuncs::edb-bfunc-make-all calls 'make', which reads # GNUmakefile with some hackery to print out variables (*.el # file lists) stored there. So GNUmakefile must be avalable # for 'edb-bfunc-make-all'. install -m 644 lisp/bfuncs lisp/GNUmakefile $(PKGLISPDIR) # debhelper will handle this rm -f $(INFODIR)/dir* # Install examples install -m 755 -d $(PKGDOCDIR) tar -cf - examples | tar -C $(PKGDOCDIR) -xf - # This file is duplicate with arb-demo-regexp rm -f $(PKGDOCDIR)/examples/arb-demo # Delete unused symlinks rm -f $(PKGDOCDIR)/examples/passwd $(PKGDOCDIR)/examples/null override_dh_installinfo: dh_installinfo doc/edb.info override_dh_compress: # Do not compress EDB example data files dh_compress -X.edb -X.dba -X.fmt -X.dat %: dh $@ # End of file debian/clean0000644000000000000000000000024012164711560010172 0ustar lisp/*.elc debian/BYTE*.el lisp/edbcore.el doc/refcard.aux doc/refcard.log config.log config.status examples/null examples/passwd tests/ebatch skram/skram.data debian/README.Debian0000644000000000000000000000141612164711560011234 0ustar README.Debian for edb --------------------- EDB is Emacs Database, which can use text files for data storage. The default Debian install adds a function to `find-file-hook' which detects if the file's first line starts with: ;; Database file written by EDB You can try EDB by loading one of the examples: C-x C-f /usr/share/doc/edb/examples/btxdb/journals.dat For more information, consult info pages in Emacs . For quick introduction[*], start from section "Three types of EDB file" in /usr/share/doc/edb/examples/intro-and-addr.gz [*] Pay no attention to file's example Emacs code section in "end EDB and Two column entry for .emacs file". The file is from year 1993 and does not reflect current EDB. -- 2009-08-19 Jari Aalto debian/emacsen-remove0000755000000000000000000000040612164711560012025 0ustar #!/bin/sh set -e FLAVOR=$1 PACKAGE=edb [ ! "$FLAVOR" = emacs ] || exit 0 echo "remove/$PACKAGE: Handling removal of emacsen flavor $FLAVOR" echo "remove/$PACKAGE: Purging byte-compiled files for $FLAVOR" rm -rf /usr/share/$FLAVOR/site-lisp/$PACKAGE exit 0 debian/copyright0000644000000000000000000000247312164711560011132 0ustar Format: http://www.debian.org/doc/packaging-manuals/copyright-format/1.0 Upstream-Name: edb Upstream-Contact: Thien-Thi Nguyen Source: http://www.gnuvola.org/software/edb Comment: See also http://www.emacswiki.org/cgi-bin/wiki/EmacsDataBase Files: * Copyright: 2004-2008 Thien-Thi Nguyen 1991-1995 Michael D. Ernst License: GPL-2+ Files: debian/* Copyright: 2006-2009,2013 Jari Aalto 2009 Tatsuya Kinoshita 1998-2004 Takao KAWAMURA License: GPL-2+ License: GPL-2+ This package 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 package 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, see . . On Debian systems, the complete text of the GNU General Public License can be found in "/usr/share/common-licenses/GPL-2". debian/patches/0000755000000000000000000000000012164711560010620 5ustar debian/patches/10-makefile.patch0000644000000000000000000000251312164711560013635 0ustar From: Jari Aalto Subject: Add DESTDIR support --- doc/GNUmakefile.in | 6 +++--- lisp/GNUmakefile.in | 4 ++-- 2 files changed, 5 insertions(+), 5 deletions(-) --- a/lisp/GNUmakefile.in +++ b/lisp/GNUmakefile.in @@ -14,7 +14,7 @@ # for more details. # # You should have received a copy of the GNU General Public License -# along with EDB; see the file COPYING. If not, write to the Free +# along with EDB; see the file COPYING. If not, write to the Free # Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, # MA 02110-1301, USA. @@ -25,7 +25,7 @@ datarootdir = @datarootdir@ datadir = @datadir@ infodir = @infodir@ -sitelisp = @sitelisp@ +sitelisp = $(DESTDIR)@sitelisp@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ --- a/doc/GNUmakefile.in +++ b/doc/GNUmakefile.in @@ -77,12 +77,12 @@ ii = install-info install: all - $(mkinstalldirs) $(infodir) - $(INSTALL_DATA) edb.info $(infodir) + $(mkinstalldirs) $(DESTDIR)$(infodir) + $(INSTALL_DATA) edb.info $(DESTDIR)$(infodir) if ($(ii) --version && \ $(ii) --version 2>&1 | sed 1q | grep -i -v debian) \ >/dev/null 2>&1 ; then \ - $(ii) --info-dir="$(infodir)" "$(infodir)/edb.info" || : ; \ + $(ii) --info-dir="$(DESTDIR)$(infodir)" "$(DESTDIR)$(infodir)/edb.info" || : ; \ else : ; fi installcheck: debian/patches/22-interactive-p.patch0000644000000000000000000000321212164711560014632 0ustar From: Jari Aalto Subject: Emacs 24.x adjustments --- lisp/database.el | 2 +- lisp/db-format.el | 4 ++-- lisp/db-interfa.el | 2 +- lisp/edbcore.el | 6 +++--- 4 files changed, 7 insertions(+), 7 deletions(-) --- a/lisp/database.el +++ b/lisp/database.el @@ -38,7 +38,7 @@ When called interactively, display the string in the echo area." (interactive) (let ((v (format "EDB %s of 2008-05-26" edb-version))) - (when (interactive-p) + (when (called-interactively-p 'interactive) (message "%s" v)) v)) --- a/lisp/db-format.el +++ b/lisp/db-format.el @@ -1510,7 +1510,7 @@ ;; First save away current format. ;; No need to do anything with filename. (let ((curname (edb--S :format-name))) - (when (and (interactive-p) + (when (and (called-interactively-p 'interactive) (not curname) (y-or-n-p "Give the current format a name? ")) (setq curname (read-string "Name for current format: ")) @@ -1588,7 +1588,7 @@ dbf-format-name-spec-alist) (erase-buffer)))) - (when (interactive-p) + (when (called-interactively-p 'interactive) (db-display-record (dbf-displayed-record) t))))) --- a/lisp/db-interfa.el +++ b/lisp/db-interfa.el @@ -668,7 +668,7 @@ (not (zerop (prefix-numeric-value arg))) (not (edb--1D dbc-database :togp))))) (edb--1D! dbc-database :togp v) - (when (interactive-p) + (when (called-interactively-p 'interactive) (message "Use of internal file layout now %sabled" (if v "en" "dis"))))) debian/patches/series0000644000000000000000000000007212164711560012034 0ustar 10-makefile.patch 20-cl-letf.patch 22-interactive-p.patch debian/patches/20-cl-letf.patch0000644000000000000000000002670112164711560013414 0ustar From: Jari Aalto Subject: Emacs 24.x adjustments --- lisp/connection.el | 12 ++++++------ lisp/database.el | 4 ++-- lisp/db-file-io.el | 6 +++--- lisp/db-format.el | 4 ++-- lisp/db-interfa.el | 4 ++-- lisp/db-rep.el | 2 +- lisp/db-search.el | 6 +++--- lisp/db-sort.el | 2 +- lisp/db-tagged.el | 2 +- lisp/db-two-dbs.el | 2 +- lisp/db-types.el | 2 +- lisp/edb-1int-to-single.el | 6 +++--- lisp/edb-meta.el | 2 +- lisp/edbcore.el | 30 +++++++++++++++--------------- 14 files changed, 42 insertions(+), 42 deletions(-) --- a/lisp/connection.el +++ b/lisp/connection.el @@ -175,7 +175,7 @@ (put 'edb--with-callable-connection 'lisp-indent-function 1) (defmacro edb--with-callable-connection (name &rest body) - `(flet ((,name (&rest args) (apply ,name args))) + `(cl-flet ((,name (&rest args) (apply ,name args))) ,@body)) (defun edb--connect (control-spec-source) @@ -216,7 +216,7 @@ (conn :V! :schema-type (car meta)) (conn :V! :schema-options (cddr meta)) (when (setq schema (cadr meta)) - (flet ((bad (why) (error "Invalid (%s) schema basis: %S" + (cl-flet ((bad (why) (error "Invalid (%s) schema basis: %S" why schema))) (unless (symbolp schema) (bad "not a symbol")) @@ -266,7 +266,7 @@ (point-max) (forward-line 1) (match-beginning 0))) - (flet ((pl! (prop val) (setq pls (plist-put pls prop val)))) + (cl-flet ((pl! (prop val) (setq pls (plist-put pls prop val)))) (if datap (let* ((seqr (plist-get pls :seqr)) (f (or (edb--rget '(:edb1 :seq-funcs) seqr) @@ -302,7 +302,7 @@ (inhibit-file-name-handlers (cons 'edb--connection-file-cache inhibit-file-name-handlers)) name desc) - (flet ((!! (s) (setq name (substring s (cdr (read-from-string s))) + (cl-flet ((!! (s) (setq name (substring s (cdr (read-from-string s))) desc (let ((ls schema) look) (while (and (setq ls (memq :display ls) look (cadr ls)) @@ -328,7 +328,7 @@ (defun edb--1mm<-connection (conn) (let ((schema (funcall conn :schema)) v) - (flet ((S (prop) (plist-get schema prop))) + (cl-flet ((S (prop) (plist-get schema prop))) (edb--make-v1-monolithic-mess :print-name @@ -454,7 +454,7 @@ (conn :schema))) (mm (edb--1mm<-connection conn)) v form) - (flet ((S (prop) (plist-get schema prop)) + (cl-flet ((S (prop) (plist-get schema prop)) (maybe-quote (v) (if (or (and (consp v) (memq (car v) '(function lambda))) (stringp v) --- a/lisp/database.el +++ b/lisp/database.el @@ -53,7 +53,7 @@ buffer), with extension one of \".data\", \".dat\", or \"\" (empty string), in that order." (interactive - (flet ((r (p1 p2) (let ((filename (read-file-name + (cl-flet ((r (p1 p2) (let ((filename (read-file-name (format "%s file (type RET %s): " p1 p2) nil ""))) @@ -86,7 +86,7 @@ (unless data (setq data (when c-fname (let ((stem (file-name-sans-extension c-fname))) - (flet ((try (ext) (let ((f (concat stem ext))) + (cl-flet ((try (ext) (let ((f (concat stem ext))) (when (file-exists-p f) f)))) (or (try ".data") --- a/lisp/db-file-io.el +++ b/lisp/db-file-io.el @@ -242,7 +242,7 @@ (down-list 1) (insert "cl-struct-") (goto-char here)) - (flet ((skip-zonk (s z) (let ((p (progn (forward-sexp s) (point)))) + (cl-flet ((skip-zonk (s z) (let ((p (progn (forward-sexp s) (point)))) (forward-sexp z) (delete-region p (point))))) (when (db-skip-string-forward "; format 0.5") @@ -922,7 +922,7 @@ (cond ;; Data inherent data to the connection. (inherent - (flet ((iget (k) (gethash k inherent)) + (cl-flet ((iget (k) (gethash k inherent)) (bget (k) (car (iget k))) (bput (k v) (setcar (iget k) v))) (let* ((all (db-maprecords 'identity db nil nil t)) @@ -1171,7 +1171,7 @@ ;;; (defun database-io-setup (db &optional norx) - (flet ((bad (part s name) + (cl-flet ((bad (part s name) (error "Need a submatch to go with %s-regexp `%s' of %s." part s name)) (chk (si name sdef) --- a/lisp/db-format.el +++ b/lisp/db-format.el @@ -241,7 +241,7 @@ (defconst db-optspec-list (mapcar (lambda (x) `(,(nth 0 x) - ,(flet ((dset (frag) (let ((f (intern (format "edb--1ds-%s" + ,(cl-flet ((dset (frag) (let ((f (intern (format "edb--1ds-%s" frag)))) `(lambda (ds val) (setf (,f ds) val))))) @@ -1487,7 +1487,7 @@ (error "`%s' is not the name of a format." format-name))))) ;; Filename is now set. - (flet ((mkspec (sumfmt sumfun) + (cl-flet ((mkspec (sumfmt sumfun) ;; All of these items vary from format to format within a ;; particular data display buffer. (list --- a/lisp/db-interfa.el +++ b/lisp/db-interfa.el @@ -391,7 +391,7 @@ (interactive) (unless (edb--S :this-ds) (error "Not on a field.")) - (flet ((try (x) (when x + (cl-flet ((try (x) (when x (if (stringp x) (list "%s" x) (condition-case err @@ -844,7 +844,7 @@ (idx (edb--S :index)) (vov (edb--1D dbc-database :vov)) (rno (edb--1D dbc-database :nrecords)) - (new (flet ((new-idx (delta) (1+ (% (+ rno delta -1 idx) rno)))) + (new (cl-flet ((new-idx (delta) (1+ (% (+ rno delta -1 idx) rno)))) (if (or hidep markedp) ;; slow path (let ((sign (if up 1 -1)) --- a/lisp/db-rep.el +++ b/lisp/db-rep.el @@ -30,7 +30,7 @@ (edb--define-child-hash 1D db (edb--G :1singles) (let ((new (make-hash-table :size 7))) - (flet ((ahash () (make-hash-table + (cl-flet ((ahash () (make-hash-table :test 'eq :weakness 'key))) (edb--mputhash new --- a/lisp/db-search.el +++ b/lisp/db-search.el @@ -42,7 +42,7 @@ (p-< "^<") (p-> "^>") (p-= "^=")) - (flet ((try (x) (string-match x string)) + (cl-flet ((try (x) (string-match x string)) (sub (x) (db-parse-match-pattern x ds)) (p1o (x) (db-callconvert (edb--1ds-display->actual ds) x nil nil nil)) @@ -63,7 +63,7 @@ ;;;###autoload (defun db-print-match-pattern (pat ds) - (flet ((sub (x) (db-print-match-pattern x ds)) + (cl-flet ((sub (x) (db-print-match-pattern x ds)) (p1o (x) (db-callconvert (edb--1ds-actual->display ds) x nil nil))) (let* ((type (when (listp pat) (car pat))) @@ -86,7 +86,7 @@ ;;;###autoload (defun db-match (pat targ rs) - (flet ((m (x) (db-match x targ rs)) + (cl-flet ((m (x) (db-match x targ rs)) (rso (x) (funcall (db-rs-ordfunc rs) x targ)) (rsm (x) (funcall (edb--1rs-match-function rs) x targ))) (if (listp pat) --- a/lisp/db-sort.el +++ b/lisp/db-sort.el @@ -370,7 +370,7 @@ ;; Insert item and trailing newline. (defun dbsi-format (item which) - (flet ((pinsert (s) (insert (propertize s :item item :which which)))) + (cl-flet ((pinsert (s) (insert (propertize s :item item :which which)))) (pinsert (format " %-16s " (db-fname<-fno (car item) dbc-database))) (if (atom (cdr item)) (pinsert (format "%s" (cdr item))) --- a/lisp/db-tagged.el +++ b/lisp/db-tagged.el @@ -178,7 +178,7 @@ (D-! :continuation-output (D :continuation)) ;; Performance-motivated pre-computations. - (flet ((P! (k &rest ls) (edb--1D! database k ls))) + (cl-flet ((P! (k &rest ls) (edb--1D! database k ls))) (P! :tagged-read-kargs ;; trx (concat "^" (D :pre-tag-regexp) --- a/lisp/db-two-dbs.el +++ b/lisp/db-two-dbs.el @@ -255,7 +255,7 @@ name1 " and " name2)))) (dolist (buf (list loners1 loners2 discrep)) (with-current-buffer buf (erase-buffer))) - (flet ((print-r (r db) + (cl-flet ((print-r (r db) (let ((names (database-fieldnames db))) (princ "\n") (dotimes (fno (length (database-fieldnames db))) --- a/lisp/db-types.el +++ b/lisp/db-types.el @@ -201,7 +201,7 @@ a->d (nreverse a->d) a->s (and a-s-differ (nreverse a->s))) - (flet ((enum-do-completions + (cl-flet ((enum-do-completions (rep type d->a) ;; Given a string REP and an enum TYPE, return REP if it is a ;; valid input representation, otherwise see if it completes to a --- a/lisp/edb-1int-to-single.el +++ b/lisp/edb-1int-to-single.el @@ -50,7 +50,7 @@ 'cl-struct-slots)))) (map 'list 'cons slots (number-sequence 0 (length slots))))) mm extra records coding loc-block locals) - (flet ((elm () (let ((emacs-lisp-mode-hook nil)) + (cl-flet ((elm () (let ((emacs-lisp-mode-hook nil)) (emacs-lisp-mode))) (mref (slot) (aref mm (cdr (assq slot mm-idx)))) (cprop (prop &optional more) (insert (format "%s" prop) @@ -99,7 +99,7 @@ (when (setq v (car (mref :field-priorities))) (cprop :field-order) (pp (apply 'vector - (flet ((ok (x) (cond ((symbolp x) + (cl-flet ((ok (x) (cond ((symbolp x) x) ((numberp x) (aref (mref :fieldnames) x)) @@ -128,7 +128,7 @@ (pp (apply 'vector v))) (nl)) (let (try limit) - (flet ((yes (c) (when c + (cl-flet ((yes (c) (when c (cprop :display t) (setq limit (+ (cadr (insert-file-contents try)) (point))) --- a/lisp/edb-meta.el +++ b/lisp/edb-meta.el @@ -70,7 +70,7 @@ (symbol-name f)) (push f acc))) (insert (format " %s\n" acc))) - (flet ((w/face (string face) + (cl-flet ((w/face (string face) (propertize string 'face face)) (fo (o &optional keyp) (case (type-of o) debian/control0000644000000000000000000000140212164716076010600 0ustar Source: edb Section: lisp Priority: optional Maintainer: Jari Aalto Uploaders: Tatsuya Kinoshita Build-Depends: debhelper (>= 9) Build-Depends-Indep: texinfo, emacs24 | emacs-snapshot Standards-Version: 3.9.4 Vcs-Browser: http://anonscm.debian.org/gitweb/?p=collab-maint/edb.git Vcs-Git: git://anonscm.debian.org/collab-maint/edb.git Homepage: http://www.gnuvola.org/software/edb Package: edb Architecture: all Depends: ${misc:Depends}, emacs | emacs24 | emacs-snapshot, make, dpkg (>= 1.15.4) | install-info Description: database program for GNU Emacs EDB is a database program for GNU Emacs. It permits you to manipulate structured (or not-so-structured) data within Emacs and provides many of the usual database features. debian/watch0000644000000000000000000000010512164711560010216 0ustar version=3 http://www.gnuvola.org/software/edb/ .*edb-([\d.]+).tar.gz debian/docs0000644000000000000000000000006612164711560010046 0ustar AUTHORS BUGS BUGS.edb HACKING NEWS README THANKS TODO debian/NEWS.Debian0000644000000000000000000000165512164711560011060 0ustar edb (1.31-1) unstable; urgency=low * NEW UPSTREAM VERSION - The new package has very little common with the old package. Please not following changes - If you have written custom function that made use of EDB functions, expect that the code no longer work with 1.31. There is nothing that can be do to prevent that; the upstream has implemented many new features and removed some old functions. See list of changed functions and variables in /usr/share/doc/edb/changelog.gz [ Debian specific changes in /etc/emacs/site-start.d/*edb.el ] * load-database - This interactive function is no longer in 1.31. Use 'db-find-file'. * inhibit-edb - Variable has been renamed to 'edb-debian-inhibit-edb'. * edb-after-find-file - Function has been renamed to 'edb-debian-after-find-file'. It is installed to 'find-file-hooks'. -- Jari Aalto Wed, 19 Aug 2009 15:34:39 +0000 debian/dirs0000644000000000000000000000010412164712245010051 0ustar etc/emacs/site-start.d usr/share/info usr/share/emacs/site-lisp/edb debian/source/0000755000000000000000000000000012164711560010471 5ustar debian/source/format0000644000000000000000000000001412164711560011677 0ustar 3.0 (quilt) debian/emacsen-install0000755000000000000000000000317112164714760012205 0ustar #!/bin/sh # Synopsis: [DEBIAN_EL_DEBUG=1] emacsen-install [--test] emacs24 ... set -e if [ "$DEBIAN_EL_DEBUG" ]; then set -x fi PACKAGE=edb MESSAGE="install/$PACKAGE:" unset test Run () { ${test+echo} "$@" } Install () { # set ARGS and FLAVOR before calling ELDIR=/usr/share/emacs/site-lisp/$PACKAGE ELCDIR=/usr/share/$FLAVOR/site-lisp/$PACKAGE BYTECOMP=BYTE-COMPILE.el EL_LIBS="-l ./$BYTECOMP -l bfuncs -l database.el" EL_FLAGS="-batch -q -no-site-file" EMACS="$FLAVOR $EL_LIBS $EL_FLAGS" echo "install/$PACKAGE: Handling install of emacsen flavor $FLAVOR" case "$FLAVOR" in xemacs*|emacs23|emacs22|emacs21|emacs20|emacs19|mule2) echo "$MESSAGE [$FLAVOR] ignored." ;; *) echo "$MESSAGE Byte-Compiling in dir $ELDIR/ ..." Run install -m 755 -d $ELCDIR Run rm -f $ELCDIR/*.el $ELCDIR/*.elc Run cd $ELDIR cat << EOF > $BYTECOMP (setq load-path (cons "." load-path)) (setq edb-directory ".") EOF Run $EMACS \ -f edb-bfunc-make-all \ -f batch-byte-compile \ database.el rm -f $BYTECOMP Run mv -f *.elc $ELCDIR/ for file in $ELDIR/*.el do if [ ! -f $file ]; then echo "$MESSAGE [ERROR] No $file in $(pwd)" exit 1 fi Run ln -sf $file $ELCDIR done echo "$MESSAGE Byte-Compiling... done." ;; esac } Main () { ARGS="$*" if [ "$1" = "--test" ]; then test="test-mode" echo "$MESSAGE [TEST MODE $1] No real commands run" shift fi FLAVOR=$1 [ ! "$1" ] || shift if [ "$FLAVOR" = emacs ]; then return 0 fi Install $FLAVOR exit 0 } Main "$@" # Endo file debian/changelog0000644000000000000000000002137712164716576011071 0ustar edb (1.31-3) unstable; urgency=low [ Jari Aalto ] * Move to packaging format "3.0 (quilt)". * debian/clean - Delete test data. * debian/compat - Update to 9. * debian/control - (Build-Depends): Update to debhelper 9. - (Build-Depends-Indep): Add emacs24, rm emacs23, emacs22. - (Standards-Version): Update to 3.9.4. - (Vcs-*): Update to anonscm.debian.org. * debian/copyright - Update to format 1.0 * debian/debian-vars.mk - Update variables. * debian/emacsen-startup - (edb-debian-after-find-file): Preserve point, correct hook treatment. Patch thanks to Kevin Ryde (Closes: #671585). * debian/patches - (10): New. Use DESTDIR. - (20): New. Use cl-flet. - (22): New. Use called-interactively-p. * debian/rules - Udate to dh(1) - (override_dh_auto_install): Delete duplicate file arb-demo and unneeded (see examples/README) symlinks to /dev/null and /etc/passwd. [ Tatsuya Kinoshita ] * debian/emacsen-install - (Install): Ignore old versions of GNU Emacs. * debian/control - (Depends): Add emacs24, rm emacs23, emacs22. -- Tatsuya Kinoshita Wed, 03 Jul 2013 12:41:07 +0900 edb (1.31-2) unstable; urgency=low * debian/docs - New. Install README, NEWS etc. (Closes: #544283). * debian/emacsen-startup - (edb-debian-inhibit-edb): Add documentation string. - (edb-debian-after-find-file): Improve documentation string. * debian/control - (Depends): Add emacs. - (Section): Change misc to lisp. * debian/emacsen-install - (Install): Adjust displayed message. * debian/rules - (clean): remove BYTE-COMPILE.el. -- Jari Aalto Sun, 20 Dec 2009 18:05:05 +0200 edb (1.31-1) unstable; urgency=low [ Jari Aalto ] * GENERAL INFORMATION - Read NEWS.Debian for incompatible changes. * New upstream release (Closes: #303785). - Compilation errors on install (Closes: #242105). - Please add info-dir-section to your info files (Closes: #528870). Included in original file doc/edb.texi, * debian/control - (Build-Depends): Update to debhelper 7. Remove dpatch. - (Build-Depends-Indep): Add emacs23 | emacs22 | emacs-snapshot. Remove emacs21. - (Depends): Add make. Add emacs23 (Closes: #542206), remove emacs21. emacs23 | emacs22 | emacs-snapshot. - (Depends): Add make. Move emacs* packages to Build-Depends-Indep. Add ${misc:Depends} (lintian). Add "dpkg (>= 1.15.4) | install-info" (lintian). - (Homepage): New field. Point to current upstream. - (Standards-Version): update to 3.8.3. - (Vcs-*): New fields. * debian/copyright - Update upstream information: current upstream and URL. - Adjust layout to match latest dh-make template. - Corrected Copyright from GPL-2 to GPL as this is the right edb license. - Spell out GPL-2 (lintian). * debian/emacsen-install - Rewrite for new upstream version. * debian/emacsen-remove - Adjust variable syntax and FLAVOR test. * debian/emacsen-startup - Rewrite for new upstream version. - Rename custom functions and variables to clean name space 'edb-debian-*'. * debian/{patches,patches-original}/ - Discard all old patches; start from fresh with new edb. * debian/{prerm,postinst} - Delete; not needed with debhelper 7. * debian/README.Debian - Remove old patch information to previous releases. - Add introduction to EDB. * debian/rules - Adjust to new upstream release. - (install): use dh_prep (lintian). [ Tatsuya Kinoshita ] * debian/emacsen-startup - Define edb-debian-inhibit-edb to prevent a void-variable error. -- Tatsuya Kinoshita Sun, 30 Aug 2009 15:04:09 +0900 edb (1.21-17) unstable; urgency=low * OVERALL - Convert hand written patch system to dpatch. * debian/* - Remove trailing whitespaces from all files. * debian/README.Debian-source - New. Explain what changed after package adoption. * debian/compat - New file. * debian/control - (Build-Depands): Added dpatch. - (Depends): Add emacs22 to the beginning. (Closes: #433974). * debian/copyright - Update download URL; old one non-existent. * debian/patches/* - One single dpatch to include all previous changes. * debian/patches-original/* - Store the original paches including some email messages for historial reference. * debian/rules - Remove DH_COMPAT, use dpatch and *.mk files. * debian/watch - New file. -- Jari Aalto Thu, 13 Sep 2007 10:11:49 +0300 edb (1.21-16) unstable; urgency=low * debian/control - (Section): Change from 'utils' => 'misc' according to ftp-masters message: 'package says section is utils, override says misc'. -- Jari Aalto Sun, 19 Nov 2006 18:43:20 +0200 edb (1.21-15) unstable; urgency=low * New maintainer (Orphaned; Closes: #353629). * Apply patch by Tatsuya Kinoshita to fix debian/control (Build-Depends, Build-Depends-Indep, Depends), debian/copyright (Proper copyright year, author, license), debian/emacsen-install (added "-q" during byte compilation and *.elc cleanup), debian/emacsen-remove (simplified "emacs" treatment), debian/emacsen-startup (better init implementation) * debian/conffiles - Remove file. Had entry "/etc/emacs/site-start.d/50edb.el". This is automatically added by debhelper. -- Jari Aalto Tue, 24 Oct 2006 20:07:51 +0300 edb (1.21-14) unstable; urgency=low * debian/control: standards 3.6.2. (Build-Depends): Added version number to debhelper, this fixes lintian warning package-uses-deprecated-debhelper-compat-version * debian/rules: use install(1) and not cp(1) for *.el files. * debian/copyright: improved layout. Added copyright holder. -- Jari Aalto Tue, 4 Apr 2006 13:08:33 +0300 edb (1.21-13) unstable; urgency=low * Removed emacs20 from Depends. (Closes: Bug#232750) * Updated to Standards-Version 3.6.1. -- Takao KAWAMURA Tue, 23 Mar 2004 18:28:00 +0900 edb (1.21-12) unstable; urgency=low * debian/control: Build-Depends-Indep: Added texinfo. (Closes: Bug#134910) -- Takao KAWAMURA Wed, 3 Apr 2002 13:11:16 +0900 edb (1.21-11) unstable; urgency=low * 50edb.el was marked as a conffile (Closes: Bug#132165). -- Takao KAWAMURA Thu, 7 Feb 2002 11:10:40 +0900 edb (1.21-10) unstable; urgency=low * db-time.el: Rename `parse-time-string' to `db-parse-time-string' to work with Gnus 5.8.7-1. (Bug#70890) * emacsen-install: Ignore xemacs21. -- Takao KAWAMURA Wed, 20 Sep 2000 11:50:26 +0900 edb (1.21-9) frozen unstable; urgency=high * Applied a patch for y2k and other minor fixes written by Phil.Nitschke@caemrad.com.au. (Bug#58153) The y2k fix is so important that this version should go into frozen. (See debian/nitschke.patch) -- Takao KAWAMURA Wed, 16 Feb 2000 11:01:03 +0900 edb (1.21-8) unstable; urgency=low * FHS-compliant -- Takao KAWAMURA Sun, 19 Sep 1999 11:36:09 +0900 edb (1.21-7) unstable; urgency=low * Added a variable `inhibit-edb' which if non-nil will load an EDB database file normally rather than as a database by swift@alum.mit.edu. (Bug#43046) -- Takao KAWAMURA Mon, 16 Aug 1999 15:49:15 +0900 edb (1.21-6) unstable; urgency=low * Included edb-fixes-1.21.el written by swift@alum.mit.edu to fix bugs in EDB v1.21. (Bug#41922) -- Takao KAWAMURA Thu, 29 Jul 1999 15:34:04 +0900 edb (1.21-5) unstable; urgency=low * Initial Release for Debian (previous versions were uploaded to Debian JP Project). * Changed maintainer's email address. * Updated to Standards-Version 2.5.1.0. -- Takao KAWAMURA Sun, 23 May 1999 22:05:34 +0900 edb (1.21-4) unstable-jp; urgency=low * Applied a patch by kawamura@debian.or.jp to make edb work with XEmacs. -- Takao KAWAMURA Sun, 10 Jan 1999 21:00:02 +0900 edb (1.21-3) frozen-jp unstable-jp; urgency=low * Applied a patch by ksakai@netwk.ntt-at.co.jp to make edb work with Emacs 20.3.(Bug#JP/696) * The short description has changed not to start with the package name.(Bug#JP/710) -- Takao KAWAMURA Sat, 26 Dec 1998 01:06:37 +0900 edb (1.21-2) frozen-jp; urgency=low * (control): Removed XEmacs from the Depends field. * CompilationLog.gz holds the log of byte-compilation. -- Takao KAWAMURA Thu, 11 Jun 1998 12:39:51 +0900 edb (1.21-1) unstable-jp; urgency=low * Initial Release. -- Takao KAWAMURA Sun, 31 May 1998 17:34:21 +0900 debian/emacsen-startup0000644000000000000000000000507012164711560012231 0ustar ;; -*-emacs-lisp-*- ;; ;; Emacs startup file for the Debian GNU/Linux edb package ;; ;; 2009-08-30 rewritten by Jari Aalto for the 1.31. ;; Adapted for dh-make by Jim Van Zandt ;; Modified by Dirk Eddelbuettel ;; Originally contributed by Nils Naumann ;; ;; The edb package follows the Debian/GNU Linux 'emacsen' policy and ;; byte-compiles its elisp files for each 'emacs flavor' (emacs). ;; The compiled code is then installed in a subdirectory of the ;; respective site-lisp directory. (defvar edb-directory) ;; Add this to the load-path: (let* ((flavor (if (boundp 'debian-emacs-flavor) (symbol-name debian-emacs-flavor) "emacs")) (package-dir (format "/usr/share/%s/site-lisp/edb" flavor))) ;; If package-dir does not exist, the package must have ;; been removed but not purged, and we should skip the setup. (when (file-directory-p package-dir) (if (fboundp 'debian-pkg-add-load-path-item) (debian-pkg-add-load-path-item package-dir) (setq load-path (cons package-dir load-path))) (setq edb-directory (format "/usr/share/%s/site-lisp/edb" flavor)) (autoload 'edb-version "database" "EDB database package" t) (autoload 'edb-interact "database" "EDB database package" t) (autoload 'db-view-mode "edbcore" "EDB database package" t) (autoload 'db-find-file "edbcore" "EDB database package" t) (autoload 'db-edit-mode "edbcore" "EDB database package" nil) (autoload 'database-mode "edbcore" "EDB database package" nil) (autoload 'database-summary-mode "edbcore" "EDB database package" nil) (defvar edb-debian-inhibit-edb nil "*If non-nil, disable `edb-debian-after-find-file' in `find-file-hook'.") (add-hook 'find-file-hook 'edb-debian-after-find-file) (defun edb-debian-after-find-file () "Turn on EDB if first like is ';; Database file written by EDB'. This function is normally placed in `find-file-hooks'." ;; When called, point is at the beginning of the buffer. (when (and (not edb-debian-inhibit-edb) ;; Bookmarking etc. might have moved point from start of buffer (save-excursion (goto-char (point-min)) (looking-at ";; Database file written by EDB"))) ;; - We're already in the FILE, so kill buffer ;; and let db-* functions to load the file again ;; - BUT disable ourselves while db-* runs (let ((file (buffer-file-name)) ((edb-debian-inhibit-edb t))) (kill-buffer (current-buffer)) (db-find-file file)))) )) ;; End let-when