1 files changed, 59 insertions, 0 deletions
diff --git a/emacs.d/lisp/rudel/jupiter/.svn/text-base/jupiter-nop.el.svn-base b/emacs.d/lisp/rudel/jupiter/.svn/text-base/jupiter-nop.el.svn-base
new file mode 100644
index 0000000..e0f4a5c
--- /dev/null
+++ b/emacs.d/lisp/rudel/jupiter/.svn/text-base/jupiter-nop.el.svn-base
@@ -0,0 +1,59 @@
+;;; jupiter-nop.el --- Jupiter no operation
+;;
+;; Copyright (C) 2009 Jan Moringen
+;;
+;; Author: Jan Moringen <scymtym@users.sourceforge.net>
+;; Keywords: jupiter, operation, nop
+;; X-RCS: $Id:$
+;;
+;; This file is part of Rudel.
+;;
+;; Rudel 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.
+;;
+;; Rudel 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 Rudel. If not, see <http://www.gnu.org/licenses>.
+
+
+;;; Commentary:
+;;
+;; Class `jupiter-nop' implements a no-operation for the Jupiter
+;; algorithm.
+
+
+;;; History:
+;;
+;; 0.1 - Initial revision.
+
+
+;;; Code:
+;;
+
+(require 'eieio)
+
+(require 'jupiter-operation)
+
+
+;;; Class jupiter-nop
+;;
+
+(defclass jupiter-nop (jupiter-operation)
+  ()
+  "Operation, which does not change anything.")
+
+(defmethod rudel-apply ((this jupiter-nop) object)
+  "Applying THIS does not change OBJECT.")
+
+(defmethod jupiter-transform ((this jupiter-nop) other)
+  "Transforming OTHER with THIS simply returns OTHER."
+  other)
+
+(provide 'jupiter-nop)
+;;; jupiter-nop.el ends here