[sepia] 01/63: Imported Debian patch 0.69-1
Hilko Bengen
bengen at moszumanska.debian.org
Sat Aug 8 11:20:32 UTC 2015
This is an automated email from the git hooks/post-receive script.
bengen pushed a commit to branch master
in repository sepia.
commit 46d2bd015f5f5ef4fd7c3ae44526a92a2117c5cb
Author: Hilko Bengen <bengen at debian.org>
Date: Tue Apr 24 00:03:57 2007 +0200
Imported Debian patch 0.69-1
---
debian/changelog | 6 ++
debian/compat | 1 +
debian/control | 22 ++++
debian/copyright | 8 ++
debian/emacsen-install | 49 +++++++++
debian/emacsen-remove | 19 ++++
debian/emacsen-startup | 26 +++++
debian/rules | 87 ++++++++++++++++
sepia.el | 269 +++++++++++--------------------------------------
9 files changed, 276 insertions(+), 211 deletions(-)
diff --git a/debian/changelog b/debian/changelog
new file mode 100644
index 0000000..8da4963
--- /dev/null
+++ b/debian/changelog
@@ -0,0 +1,6 @@
+sepia (0.69-1) unstable; urgency=low
+
+ * Initial Release.
+
+ -- Hilko Bengen <bengen at debian.org> Tue, 24 Apr 2007 00:03:57 +0200
+
diff --git a/debian/compat b/debian/compat
new file mode 100644
index 0000000..7ed6ff8
--- /dev/null
+++ b/debian/compat
@@ -0,0 +1 @@
+5
diff --git a/debian/control b/debian/control
new file mode 100644
index 0000000..0aaf77a
--- /dev/null
+++ b/debian/control
@@ -0,0 +1,22 @@
+Source: sepia
+Section: perl
+Priority: optional
+Build-Depends: debhelper (>= 5.0.0)
+Build-Depends-Indep: perl (>= 5.8.8-7), libpadwalker-perl (>= 1), libmodule-info-perl, libsub-uplevel-perl
+Maintainer: Hilko Bengen <bengen at debian.org>
+Standards-Version: 3.7.2
+
+Package: sepia
+Architecture: all
+Depends: ${perl:Depends}, libpadwalker-perl (>= 1), libmodule-info-perl, libsub-uplevel-perl, emacs21 | emacs-snapshot
+Recommends: w3m-el
+Description: Simple Emacs-Perl InterAction
+ Sepia is a set of features to make Emacs a better tool for Perl
+ development, including:
+ .
+ * an interactive prompt (REPL) for evaluating code;
+ * cross-referencing to find and navigate between function and
+ variable definitions and uses;
+ * variable- and function-name completion.
+ * eldoc support to echo function arguments in the minibuffer
+ * functions to simplify POD browsing with Emacs-w3m
diff --git a/debian/copyright b/debian/copyright
new file mode 100644
index 0000000..5d26888
--- /dev/null
+++ b/debian/copyright
@@ -0,0 +1,8 @@
+This is the debian package for the Sepia module.
+It was created by Hilko Bengen <bengen at debian.org> using dh-make-perl.
+
+This copyright info was automatically extracted from the perl module.
+It may not be accurate, so you better check the module sources
+if don't want to get into legal troubles.
+
+The upstream author is: Sean O'Rourke <seano at cpan.org>.
diff --git a/debian/emacsen-install b/debian/emacsen-install
new file mode 100644
index 0000000..666ea86
--- /dev/null
+++ b/debian/emacsen-install
@@ -0,0 +1,49 @@
+#! /bin/sh -e
+# /usr/lib/emacsen-common/packages/install/#PACKAGE#
+
+# Written by Jim Van Zandt <jrv at debian.org>, borrowing heavily
+# from the install scripts for gettext by Santiago Vila
+# <sanvila at ctv.es> and octave by Dirk Eddelbuettel <edd at debian.org>.
+
+FLAVOR=$1
+PACKAGE=sepia
+
+case ${FLAVOR} in
+# emacs21);;
+ emacs-snapshot);;
+ *) exit 0;;
+esac
+
+echo install/${PACKAGE}: Handling install for emacsen flavor ${FLAVOR}
+
+#FLAVORTEST=`echo $FLAVOR | cut -c-6`
+#if [ ${FLAVORTEST} = xemacs ] ; then
+# SITEFLAG="-no-site-file"
+#else
+# SITEFLAG="--no-site-file"
+#fi
+FLAGS="${SITEFLAG} -q -batch -l path.el -f batch-byte-compile"
+
+ELDIR=/usr/share/emacs/site-lisp/${PACKAGE}
+ELCDIR=/usr/share/${FLAVOR}/site-lisp/${PACKAGE}
+
+# Install-info-altdir does not actually exist.
+# Maybe somebody will write it.
+if test -x /usr/sbin/install-info-altdir; then
+ echo install/${PACKAGE}: install Info links for ${FLAVOR}
+ install-info-altdir --quiet --section "" "" --dirname=${FLAVOR} /usr/info/${PACKAGE}.info.gz
+fi
+
+install -m 755 -d ${ELCDIR}
+cd ${ELDIR}
+FILES=`echo *.el`
+cp ${FILES} ${ELCDIR}
+cd ${ELCDIR}
+
+cat << EOF > path.el
+(setq load-path (cons "." load-path) byte-compile-warnings nil)
+EOF
+${FLAVOR} ${FLAGS} ${FILES}
+rm -f *.el path.el
+
+exit 0
diff --git a/debian/emacsen-remove b/debian/emacsen-remove
new file mode 100644
index 0000000..638a812
--- /dev/null
+++ b/debian/emacsen-remove
@@ -0,0 +1,19 @@
+#!/bin/sh -e
+# /usr/lib/emacsen-common/packages/remove/#PACKAGE#
+
+FLAVOR=$1
+PACKAGE=sepia
+
+case ${FLAVOR} in
+# emacs21);;
+ emacs-snapshot);;
+ *) exit 0;;
+esac
+
+if test -x /usr/sbin/install-info-altdir; then
+ echo remove/${PACKAGE}: removing Info links for ${FLAVOR}
+ install-info-altdir --quiet --remove --dirname=${FLAVOR} /usr/info/#PACKAGE#.info.gz
+fi
+
+echo remove/${PACKAGE}: purging byte-compiled files for ${FLAVOR}
+rm -rf /usr/share/${FLAVOR}/site-lisp/${PACKAGE}
diff --git a/debian/emacsen-startup b/debian/emacsen-startup
new file mode 100644
index 0000000..af50e3b
--- /dev/null
+++ b/debian/emacsen-startup
@@ -0,0 +1,26 @@
+;; -*-emacs-lisp-*-
+;;
+;; Emacs startup file, e.g. /etc/emacs/site-start.d/50sepia.el
+;; for the Debian sepia package
+;;
+;; Originally contributed by Nils Naumann <naumann at unileoben.ac.at>
+;; Modified by Dirk Eddelbuettel <edd at debian.org>
+;; Adapted for dh-make by Jim Van Zandt <jrv at debian.org>
+
+;; The sepia package follows the Debian/GNU Linux 'emacsen' policy and
+;; byte-compiles its elisp files for each 'emacs flavor' (emacs19,
+;; xemacs19, emacs20, xemacs20...). The compiled code is then
+;; installed in a subdirectory of the respective site-lisp directory.
+;; We have to add this to the load-path:
+(let ((package-dir (concat "/usr/share/"
+ (symbol-name flavor)
+ "/site-lisp/sepia")))
+;; If package-dir does not exist, the sepia package must have
+;; removed but not purged, and we should skip the setup.
+
+ (when (file-directory-p package-dir)
+ (setq load-path (cons package-dir load-path))
+; (autoload 'sepia-init "sepia"
+; "foo!" t)
+ ))
+
diff --git a/debian/rules b/debian/rules
new file mode 100755
index 0000000..bb94115
--- /dev/null
+++ b/debian/rules
@@ -0,0 +1,87 @@
+#!/usr/bin/make -f
+# This debian/rules file is provided as a template for normal perl
+# packages. It was created by Marc Brockschmidt <marc at dch-faq.de> for
+# the Debian Perl Group (http://pkg-perl.alioth.debian.org/) but may
+# be used freely wherever it is useful.
+
+# Uncomment this to turn on verbose mode.
+#export DH_VERBOSE=1
+
+# If set to a true value then MakeMaker's prompt function will
+# always return the default without waiting for user input.
+export PERL_MM_USE_DEFAULT=1
+
+PACKAGE=$(shell dh_listpackages)
+
+ifndef PERL
+PERL = /usr/bin/perl
+endif
+
+TMP =$(CURDIR)/debian/$(PACKAGE)
+
+build: build-stamp
+build-stamp:
+ dh_testdir
+
+ # Add commands to compile the package here
+ $(PERL) Makefile.PL INSTALLDIRS=vendor
+ $(MAKE) OPTIMIZE="-Wall -O2 -g"
+
+ touch build-stamp
+
+clean:
+ dh_testdir
+ dh_testroot
+
+ # Add commands to clean up after the build process here
+ [ ! -f Makefile ] || $(MAKE) realclean
+
+ dh_clean build-stamp install-stamp
+
+install: build install-stamp
+install-stamp:
+ dh_testdir
+ dh_testroot
+ dh_clean -k
+
+ # Add commands to install the package into debian/$PACKAGE_NAME here
+ $(MAKE) test
+ $(MAKE) install DESTDIR=$(TMP) PREFIX=/usr
+
+ # As this is a architecture independent package, we are not
+ # supposed to install stuff to /usr/lib. MakeMaker creates
+ # the dirs, we delete them from the deb:
+ rmdir --ignore-fail-on-non-empty --parents $(TMP)/usr/lib/perl5
+
+ install -d $(TMP)/usr/share/emacs/site-lisp/sepia
+ install -m644 *.el $(TMP)/usr/share/emacs/site-lisp/sepia
+
+ touch install-stamp
+
+binary-arch:
+# We have nothing to do by default.
+
+binary-indep: build install
+ dh_testdir
+ dh_testroot
+# dh_installcron
+# dh_installmenu
+# dh_installexamples
+ dh_installdocs README
+ dh_installchangelogs ChangeLog
+ dh_installemacsen
+ dh_perl
+ dh_link
+ dh_strip
+ dh_compress
+ dh_fixperms
+ dh_installdeb
+ dh_gencontrol
+ dh_md5sums
+ dh_builddeb
+
+source diff:
+ @echo >&2 'source and diff are obsolete - use dpkg-source -b'; false
+
+binary: binary-indep binary-arch
+.PHONY: build clean binary-indep binary-arch binary
diff --git a/sepia.el b/sepia.el
index 87eec3e..dae33d1 100644
--- a/sepia.el
+++ b/sepia.el
@@ -293,7 +293,61 @@ Does not require loading.")
(mod-files "Find the file defining a package.")
(guess-module-file "Guess file corresponding to module.")
(file-modules "List the modules defined in a file.")))
- (apply #'define-xref-function "Sepia::Xref" x)))
+ (apply #'define-xref-function "Sepia::Xref" x))
+
+ (dolist (x '("abs" "accept" "alarm" "atan2"
+ "bind" "binmode" "bless"
+ "caller" "chdir" "chmod" "chomp" "chop"
+ "chown" "chr" "chroot" "close" "closedir"
+ "connect" "continue" "cos" "crypt"
+ "dbmclose" "dbmopen" "defined" "delete"
+ "die" "dump"
+ "each" "endgrent" "endhostent" "endnetent"
+ "endprotoent" "endpwent" "endservent" "eof"
+ "eval" "exec" "exists" "exit" "exp"
+ "fcntl" "fileno" "flock" "fork" "format"
+ "formline"
+ "getc" "getgrent" "getgrgid" "getgrnam"
+ "gethostbyaddr" "gethostbyname" "gethostent"
+ "getlogin" "getnetbyaddr" "getnetbyname"
+ "getnetent" "getpeername" "getpgrp" "getppid"
+ "getpriority" "getprotobyname" "getprotobynumber"
+ "getprotoent" "getpwent" "getpwnam" "getpwuid"
+ "getservbyname" "getservbyport" "getservent"
+ "getsockname" "getsockopt" "glob" "gmtime"
+ "goto" "grep"
+ "hex"
+ "import" "index" "int" "ioctl"
+ "join"
+ "keys" "kill"
+ "last" "lc" "lcfirst" "length" "link" "listen"
+ "local" "localtime" "log" "lstat"
+ "map" "mkdir" "msgctl" "msgget" "msgrcv" "msgsnd"
+ "next"
+ "oct" "open" "opendir" "ord"
+ "pack" "package" "pipe" "pop" "pos" "print" "printf"
+ "prototype" "push" "quotemeta"
+ "rand" "read" "readdir" "readline" "readlink"
+ "readpipe" "recv" "redo" "ref" "rename" "require"
+ "reset" "return" "reverse" "rewinddir" "rindex"
+ "rmdir"
+ "scalar" "seek" "seekdir" "select" "semctl" "semget"
+ "semop" "send" "setgrent" "sethostent" "setnetent"
+ "setpgrp" "setpriority" "setprotoent" "setpwent"
+ "setservent" "setsockopt" "shift" "shmctl" "shmget"
+ "shmread" "shmwrite" "shutdown" "sin" "sleep"
+ "socket" "socketpair" "sort" "splice" "split"
+ "sprintf" "sqrt" "srand" "stat" "study" "sub"
+ "sub*" "substr" "symlink" "syscall" "sysopen"
+ "sysread" "sysseek" "system" "syswrite"
+ "tell" "telldir" "tie" "tied" "time" "times"
+ "truncate"
+ "uc" "ucfirst" "umask" "undef" "unlink"
+ "unpack" "unshift" "untie" "utime"
+ "values" "vec"
+ "wait" "waitpid" "wantarray" "warn" "write"))
+ (puthash x t sepia-perl-builtins)))
+
(add-hook 'cperl-mode-hook 'sepia-install-eldoc)
(add-hook 'cperl-mode-hook 'sepia-doc-update)
(add-hook 'cperl-mode-hook 'sepia-cperl-mode-hook)
@@ -563,7 +617,7 @@ to this location."
(if type
(progn
;; (sepia-set-found nil 'variable)
- (let ((ret (if type
+ (let ((ret (case type
(function (list (sepia-location raw)))
(variable (xref-var-uses raw))
(module `((,(car (xref-mod-files mod)) 1 nil nil))))))
@@ -1099,9 +1153,7 @@ calling ``cperl-describe-perl-symbol''."
(defun sepia-install-eldoc ()
"Install Sepia hooks for eldoc support."
(interactive)
- (set (make-variable-buffer-local
- 'eldoc-documentation-function)
- 'sepia-symbol-info)
+ (set-variable 'eldoc-documentation-function 'sepia-symbol-info t)
(if cperl-lazy-installed (cperl-lazy-unstall))
(eldoc-mode 1)
(setq eldoc-idle-delay 1.0))
@@ -1168,212 +1220,7 @@ calling ``cperl-describe-perl-symbol''."
(t
(concat "{" (mapconcat #'sepia-lisp-to-perl thing ", ") "}"))))
-(defvar sepia-perl-builtins
- (eval-when-compile
- (let ((h (make-hash-table)))
- (dolist (s '("abs"
-"accept"
-"alarm"
-"atan2"
-"bind"
-"binmode"
-"bless"
-"caller"
-"chdir"
-"chmod"
-"chomp"
-"chop"
-"chown"
-"chr"
-"chroot"
-"close"
-"closedir"
-"connect"
-"continue"
-"cos"
-"crypt"
-"dbmclose"
-"dbmopen"
-"defined"
-"delete"
-"die"
-"dump"
-"each"
-"endgrent"
-"endhostent"
-"endnetent"
-"endprotoent"
-"endpwent"
-"endservent"
-"eof"
-"eval"
-"exec"
-"exists"
-"exit"
-"exp"
-"fcntl"
-"fileno"
-"flock"
-"fork"
-"format"
-"formline"
-"getc"
-"getgrent"
-"getgrgid"
-"getgrnam"
-"gethostbyaddr"
-"gethostbyname"
-"gethostent"
-"getlogin"
-"getnetbyaddr"
-"getnetbyname"
-"getnetent"
-"getpeername"
-"getpgrp"
-"getppid"
-"getpriority"
-"getprotobyname"
-"getprotobynumber"
-"getprotoent"
-"getpwent"
-"getpwnam"
-"getpwuid"
-"getservbyname"
-"getservbyport"
-"getservent"
-"getsockname"
-"getsockopt"
-"glob"
-"gmtime"
-"goto"
-"grep"
-"hex"
-"import"
-"index"
-"int"
-"ioctl"
-"join"
-"keys"
-"kill"
-"last"
-"lc"
-"lcfirst"
-"length"
-"link"
-"listen"
-"local"
-"localtime"
-"log"
-"lstat"
-"map"
-"mkdir"
-"msgctl"
-"msgget"
-"msgrcv"
-"msgsnd"
-"next"
-"oct"
-"open"
-"opendir"
-"ord"
-"pack"
-"package"
-"pipe"
-"pop"
-"pos"
-"print"
-"printf"
-"prototype"
-"push"
-"quotemeta"
-"rand"
-"read"
-"readdir"
-"readline"
-"readlink"
-"readpipe"
-"recv"
-"redo"
-"ref"
-"rename"
-"require"
-"reset"
-"return"
-"reverse"
-"rewinddir"
-"rindex"
-"rmdir"
-"scalar"
-"seek"
-"seekdir"
-"select"
-"semctl"
-"semget"
-"semop"
-"send"
-"setgrent"
-"sethostent"
-"setnetent"
-"setpgrp"
-"setpriority"
-"setprotoent"
-"setpwent"
-"setservent"
-"setsockopt"
-"shift"
-"shmctl"
-"shmget"
-"shmread"
-"shmwrite"
-"shutdown"
-"sin"
-"sleep"
-"socket"
-"socketpair"
-"sort"
-"splice"
-"split"
-"sprintf"
-"sqrt"
-"srand"
-"stat"
-"study"
-"sub"
-"sub*"
-"substr"
-"symlink"
-"syscall"
-"sysopen"
-"sysread"
-"sysseek"
-"system"
-"syswrite"
-"tell"
-"telldir"
-"tie"
-"tied"
-"time"
-"times"
-"truncate"
-"uc"
-"ucfirst"
-"umask"
-"undef"
-"unlink"
-"unpack"
-"unshift"
-"untie"
-"utime"
-"values"
-"vec"
-"wait"
-"waitpid"
-"wantarray"
-"warn"
-"write"
-))
- (puthash s t h))
- h)))
+(defconst sepia-perl-builtins (make-hash-table))
(provide 'sepia)
;;; sepia.el ends here
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/sepia.git
More information about the Pkg-perl-cvs-commits
mailing list