SourceForge.net

CommunityJobsHelp
RSS

(root)/rudel/trunk : 263 : jupiter/jupiter-compound.el

« back to all changes in this revision

Viewing changes to jupiter/jupiter-compound.el

scymtym
2009-10-07 22:04:21
Revision ID: scymtym@users.sourceforge.net-20091007220421-pvsq60uku436xoad
* jupiter/jupiter.el (header): downcased keywords
  (object-print): new method; add revisions and log length to string
* jupiter/jupiter-nop.el (header): downcased keywords; cosmetic
  representation changes to "commentary" section
* jupiter/jupiter-insert.el (header): downcased keywords; cosmetic
  changes to "commentary" section
  (object-print): new method; add start, end, length and data to
  string representation
* jupiter/jupiter-delete.el (header): downcased keywords; cosmetic
  changes to "commentary" section
  (jupiter-transform): cosmetic changes
  (object-print): new method; add position and length to string
  representation
* jupiter/jupiter-compound.el (header): downcased keywords; cosmetic
  changes to "commentary" section
  (object-print): new method; add number of children to string
  representation

Show diffs side-by-side

added added

removed removed

jupiter/jupiter-compound.el
3
3
;; Copyright (C) 2009 Jan Moringen
4
4
;;
5
5
;; Author: Jan Moringen <scymtym@users.sourceforge.net>
6
 
;; Keywords: Jupiter, operation, compound
 
6
;; Keywords: jupiter, operation, compound
7
7
;; X-RCS: $Id:$
8
8
;;
9
9
;; This file is part of Rudel.
24
24
 
25
25
;;; Commentary:
26
26
;;
27
 
;; Class jupiter-compound implements a compound operation comprised of
28
 
;; a number of child operations.
 
27
;; Class `jupiter-compound' implements a compound operation comprised
 
28
;; of a number of child operations.
29
29
 
30
30
 
31
31
;;; History:
32
32
;;
33
 
;; 0.1 - Initial revision.
 
33
;; 0.1 - Initial revision
34
34
 
35
35
 
36
36
;;; Code:
78
78
      (setq other (jupiter-transform child other)))
79
79
    other))
80
80
 
 
81
(defmethod object-print ((this jupiter-compound) &rest strings)
 
82
  "Add number of children to string representation of THIS."
 
83
  (with-slots (children) this
 
84
    (call-next-method
 
85
     this
 
86
     (format " children %d" (length children)))))
 
87
 
81
88
(provide 'jupiter-compound)
82
89
;;; jupiter-compound.el ends here

Loggerhead 1.17 is a web-based interface for Bazaar branches


Copyright 1999-2009 - Geeknet, Inc., All Rights Reserved
Feedback Legal Help