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 <ben...@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 <ben...@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 <ben...@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 <ben...@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 <se...@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 <j...@debian.org>, borrowing heavily +# from the install scripts for gettext by Santiago Vila +# <sanv...@ctv.es> and octave by Dirk Eddelbuettel <e...@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 <naum...@unileoben.ac.at> +;; Modified by Dirk Eddelbuettel <e...@debian.org> +;; Adapted for dh-make by Jim Van Zandt <j...@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 <m...@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 _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits