HCoop / bpt / emacs.git / blame
| Commit | Line | Data |
|---|---|---|
| acc33231 CY |
1 | ;;; ede/proj-scheme.el --- EDE Generic Project scheme (guile) support |
| 2 | ||
| 73b0cd50 | 3 | ;; Copyright (C) 1998-2000, 2009-2011 Free Software Foundation, Inc. |
| acc33231 CY |
4 | |
| 5 | ;; Author: Eric M. Ludlam <zappo@gnu.org> | |
| 6 | ;; Keywords: project, make, scheme | |
| 7 | ||
| 8 | ;; This file is part of GNU Emacs. | |
| 9 | ||
| 10 | ;; GNU Emacs is free software: you can redistribute it and/or modify | |
| 11 | ;; it under the terms of the GNU General Public License as published by | |
| 12 | ;; the Free Software Foundation, either version 3 of the License, or | |
| 13 | ;; (at your option) any later version. | |
| 14 | ||
| 15 | ;; GNU Emacs is distributed in the hope that it will be useful, | |
| 16 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 17 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 18 | ;; GNU General Public License for more details. | |
| 19 | ||
| 20 | ;; You should have received a copy of the GNU General Public License | |
| 21 | ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | |
| 22 | ||
| 23 | ;;; Commentary: | |
| 24 | ;; | |
| 25 | ;; Handle scheme (Guile) in and EDE Project file. | |
| 26 | ;; This is a specialized do nothing class. | |
| 27 | ||
| 28 | (require 'ede/proj) | |
| 29 | (require 'ede/autoconf-edit) | |
| 30 | ||
| 31 | ;;; Code: | |
| 32 | (defclass ede-proj-target-scheme (ede-proj-target) | |
| 33 | ((menu :initform nil) | |
| 34 | (keybindings :initform nil) | |
| 35 | (interpreter :initarg :interpreter | |
| 36 | :initform "guile" | |
| 37 | :type string | |
| 38 | :custom string | |
| 39 | :documentation "The preferred interpreter for this code.") | |
| 40 | ) | |
| 41 | "This target consists of scheme files.") | |
| 42 | ||
| 43 | (defmethod ede-proj-tweak-autoconf ((this ede-proj-target-scheme)) | |
| 44 | "Tweak the configure file (current buffer) to accomodate THIS." | |
| 45 | (autoconf-insert-new-macro "AM_INIT_GUILE_MODULE")) | |
| 46 | ||
| 47 | (provide 'ede/proj-scheme) | |
| 48 | ||
| 49 | ;;; ede/proj-scheme.el ends here |