Mercurial > emacs
view lisp/cedet/ede/system.el @ 105842:83dde921cc1b
* emacs-lisp/autoload.el (generated-autoload-feature): Remove.
(autoload-rubric): Don't use any more.
* cedet/semantic/fw.el (semantic/loaddefs):
* cedet/srecode.el (srecode/loaddefs):
* cedet/ede.el (ede/loaddefs): Load rather than require.
* lisp/cedet/ede/cpp-root.el:
* lisp/cedet/ede/emacs.el:
* lisp/cedet/ede/files.el:
* lisp/cedet/ede/linux.el:
* lisp/cedet/ede/locate.el:
* lisp/cedet/ede/make.el:
* lisp/cedet/ede/shell.el:
* lisp/cedet/ede/speedbar.el:
* lisp/cedet/ede/system.el:
* lisp/cedet/ede/util.el:
* lisp/cedet/semantic/analyze.el:
* lisp/cedet/semantic/bovine.el:
* lisp/cedet/semantic/complete.el:
* lisp/cedet/semantic/ctxt.el:
* lisp/cedet/semantic/db-file.el:
* lisp/cedet/semantic/db-find.el:
* lisp/cedet/semantic/db-global.el:
* lisp/cedet/semantic/db-mode.el:
* lisp/cedet/semantic/db-typecache.el:
* lisp/cedet/semantic/db.el:
* lisp/cedet/semantic/debug.el:
* lisp/cedet/semantic/dep.el:
* lisp/cedet/semantic/doc.el:
* lisp/cedet/semantic/edit.el:
* lisp/cedet/semantic/find.el:
* lisp/cedet/semantic/format.el:
* lisp/cedet/semantic/html.el:
* lisp/cedet/semantic/ia-sb.el:
* lisp/cedet/semantic/ia.el:
* lisp/cedet/semantic/idle.el:
* lisp/cedet/semantic/lex-spp.el:
* lisp/cedet/semantic/lex.el:
* lisp/cedet/semantic/mru-bookmark.el:
* lisp/cedet/semantic/scope.el:
* lisp/cedet/semantic/senator.el:
* lisp/cedet/semantic/sort.el:
* lisp/cedet/semantic/symref.el:
* lisp/cedet/semantic/tag-file.el:
* lisp/cedet/semantic/tag-ls.el:
* lisp/cedet/semantic/tag-write.el:
* lisp/cedet/semantic/tag.el:
* lisp/cedet/semantic/util-modes.el:
* lisp/cedet/semantic/analyze/complete.el:
* lisp/cedet/semantic/analyze/refs.el:
* lisp/cedet/semantic/bovine/c.el:
* lisp/cedet/semantic/bovine/gcc.el:
* lisp/cedet/semantic/bovine/make.el:
* lisp/cedet/semantic/bovine/scm.el:
* lisp/cedet/semantic/decorate/include.el:
* lisp/cedet/semantic/decorate/mode.el:
* lisp/cedet/semantic/symref/cscope.el:
* lisp/cedet/semantic/symref/global.el:
* lisp/cedet/semantic/symref/grep.el:
* lisp/cedet/semantic/symref/idutils.el:
* lisp/cedet/semantic/symref/list.el:
* lisp/cedet/semantic/wisent/java-tags.el:
* lisp/cedet/semantic/wisent/javascript.el:
* lisp/cedet/srecode/compile.el:
* lisp/cedet/srecode/cpp.el:
* lisp/cedet/srecode/document.el:
* lisp/cedet/srecode/el.el:
* lisp/cedet/srecode/expandproto.el:
* lisp/cedet/srecode/getset.el:
* lisp/cedet/srecode/insert.el:
* lisp/cedet/srecode/java.el:
* lisp/cedet/srecode/map.el:
* lisp/cedet/srecode/mode.el:
* lisp/cedet/srecode/template.el:
* lisp/cedet/srecode/texi.el: Remove the file-local setting of
generated-autoload-feature.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Tue, 03 Nov 2009 21:45:31 +0000 |
parents | 7f4c7f5c0eba |
children | 1d1d5d9bd884 |
line wrap: on
line source
;;; ede-system.el --- EDE working with the system (VC, FTP, ETC) ;; Copyright (C) 2001, 2002, 2003, 2009 Free Software Foundation, Inc. ;; Author: Eric M. Ludlam <zappo@gnu.org> ;; Keywords: project, make, vc ;; This file is part of GNU Emacs. ;; GNU Emacs 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 3 of the License, or ;; (at your option) any later version. ;; GNU Emacs 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 GNU Emacs. If not, see <http://www.gnu.org/licenses/>. ;;; Commentary: ;; ;; EDE system contains some routines to work with EDE projects saved in ;; CVS repositories, and services such as sourceforge which lets you ;; perform releases via FTP. (require 'ede) ;;; Code: ;;; Web/FTP site node. ;;;###autoload (defun ede-web-browse-home () "Browse the home page of the current project." (interactive) (if (not (ede-toplevel)) (error "No project")) (let ((home (oref (ede-toplevel) web-site-url))) (if (string= "" home) (error "Now URL is stored in this project")) (require 'browse-url) (browse-url home) )) ;;;###autoload (defun ede-edit-web-page () "Edit the web site for this project." (interactive) (let* ((toplevel (ede-toplevel)) (dir (oref toplevel web-site-directory)) (file (oref toplevel web-site-file)) (endfile (concat (file-name-as-directory dir) file))) (if (string-match "^/r[:@]" endfile) (require 'tramp)) (when (not (file-exists-p endfile)) (setq endfile file) (if (string-match "^/r[:@]" endfile) (require 'tramp)) (if (not (file-exists-p endfile)) (error "No project file found"))) (find-file endfile))) ;;;###autoload (defun ede-upload-distribution () "Upload the current distribution to the correct location. Use /user@ftp.site.com: file names for FTP sites. Download tramp, and use /r:machine: for names on remote sites w/out FTP access." (interactive) (let* ((files (project-dist-files (ede-toplevel))) (upload (if (string= (oref (ede-toplevel) ftp-upload-site) "") (oref (ede-toplevel) ftp-site) (oref (ede-toplevel) ftp-upload-site)))) (when (or (string= upload "") (not (file-exists-p upload))) (error "Upload directory %S does not exist" upload)) (while files (let ((localfile (concat (file-name-directory (oref (ede-toplevel) file)) (car files)))) (if (not (file-exists-p localfile)) (progn (message "File %s does not exist yet. Building a distribution" localfile) (ede-make-dist) (error "File %s does not exist yet. Building a distribution" localfile) )) (setq upload (concat (directory-file-name upload) "/" (file-name-nondirectory localfile))) (copy-file localfile upload) (setq files (cdr files))))) (message "Done uploading files...") ) ;;;###autoload (defun ede-upload-html-documentation () "Upload the current distributions documentation as HTML. Use /user@ftp.site.com: file names for FTP sites. Download tramp, and use /r:machine: for names on remote sites w/out FTP access." (interactive) (let* ((files nil) ;(ede-html-doc-files (ede-toplevel))) (upload (if (string= (oref (ede-toplevel) ftp-upload-site) "") (oref (ede-toplevel) ftp-site) (oref (ede-toplevel) ftp-upload-site)))) (when (or (string= upload "") (not (file-exists-p upload))) (error "Upload directory %S does not exist" upload)) (while files (let ((localfile (concat (file-name-directory (oref (ede-toplevel) file)) (car files)))) (if (not (file-exists-p localfile)) (progn (message "File %s does not exist yet. Building a distribution" localfile) ;;(project-compile-target ... ) (error "File %s does not exist yet. Building a distribution" localfile) )) (copy-file localfile upload) (setq files (cdr files))))) (message "Done uploading files...") ) ;;; Version Control ;; ;; Do a few nice things with Version control systems. ;;;###autoload (defun ede-vc-project-directory () "Run `vc-dir' on the current project." (interactive) (let ((top (ede-toplevel-project-or-nil default-directory))) (vc-dir top nil))) (provide 'ede/system) ;; Local variables: ;; generated-autoload-file: "loaddefs.el" ;; generated-autoload-load-name: "ede/system" ;; End: ;; arch-tag: a974ea44-151e-488b-b5d4-df2c05be6fe6 ;;; ede/system.el ends here