Initial revision

1 files changed, 274 insertions, 0 deletions

diff --git a/lisp/delim-col.el b/lisp/delim-col.el
new file mode 100644
index 00000000000..4b8bad3dda5
--- /dev/null
+++ b/lisp/delim-col.el
@@ -0,0 +1,274 @@
+;;; delim-col.el --- Prettify all columns in a region or rectangle.
+
+;; Copyright (C) 1999 Vinicius Jose Latorre <vinicius@cpqd.com.br>
+
+;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
+;; Time-stamp:	<99/08/21 19:51:13 vinicius>
+;; Version: 1.3
+;; Keywords: internal
+
+;; This file is part of GNU Emacs.
+
+;; This 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 2, or (at your option) any
+;; later version.
+
+;; This program 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; see the file COPYING.  If not, write to the Free
+;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+;; 02111-1307, USA.
+
+;;; Commentary:
+
+;; delim-col helps to prettify columns in a text region or rectangle.
+;;
+;; To use it, make sure that this file is in load-path and insert in your
+;; .emacs:
+;;
+;;    (require 'delim-col)
+;;
+;; If you have, for example, the following columns:
+;;
+;;	a	b	c	d
+;;	aaaa	bb	ccc	ddddd
+;;	aaa	bbb	cccc   	dddd
+;;	aa	bb	ccccccc	ddd
+;;
+;; And the following settings:
+;;
+;;    (setq delimit-columns-str-before "[ ")
+;;    (setq delimit-columns-str-after " ]")
+;;    (setq delimit-columns-str-separator ", ")
+;;    (setq delimit-columns-separator "\t")
+;;
+;; If you select the lines above and type:
+;;
+;;    M-x delimit-columns-region RET
+;;
+;; You obtain the following result:
+;;
+;;	[ a   , b  , c      , d     ]
+;;	[ aaaa, bb , ccc    , ddddd ]
+;;	[ aaa , bbb, cccc   , dddd  ]
+;;	[ aa  , bb , ccccccc, ddd   ]
+;;
+;; But if you select start from the very first b and the very last c and type:
+;;
+;;    M-x delimit-columns-rectangle RET
+;;
+;; You obtain the following result:
+;;
+;;	a	[ b  , c       ]	d
+;;	aaaa	[ bb , ccc     ]	ddddd
+;;	aaa	[ bbb, cccc    ]	dddd
+;;	aa	[ bb , ccccccc ]	ddd
+;;
+;; Note that `delimit-columns-region' operates over all text region
+;; selected, extending the region start to the beginning of line and the
+;; region end to the end of line.  While `delimit-columns-rectangle'
+;; operates over the text rectangle selected which rectangle diagonal is
+;; given by the region start and end.
+;;
+;; `delimit-columns-region' is useful when you have columns of text that
+;; are not well aligned, like:
+;;
+;;	horse	apple	bus
+;;	dog	pineapple	car
+;;	porcupine	strawberry	airplane
+;;
+;; `delimit-columns-region' and `delimit-columns-rectangle' handle lines
+;; with different number of columns, like:
+;;
+;;	horse	apple	bus
+;;	dog	pineapple	car	EXTRA
+;;	porcupine	strawberry	airplane
+
+;;; Code:
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; User Options:
+
+(defvar delimit-columns-str-before ""
+  "*Specify a string to be inserted before all columns.")
+
+(defvar delimit-columns-str-separator ", "
+  "*Specify a string to be inserted between each column.")
+
+(defvar delimit-columns-str-after ""
+  "*Specify a string to be inserted after all columns.")
+
+(defvar delimit-columns-separator "\t"
+  "*Specify a regexp which separates each column.")
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; User Commands:
+
+
+;;;###autoload
+(defun delimit-columns-region (start end)
+  "Prettify all columns in a text region.
+
+START and END delimits the text region."
+  (interactive "*r")
+  (let ((delimit-columns-str-before
+	 (if (stringp delimit-columns-str-before)
+	     delimit-columns-str-before
+	   ""))
+	(delimit-columns-str-separator
+	 (if (stringp delimit-columns-str-separator)
+	     delimit-columns-str-separator
+	   " "))
+	(delimit-columns-str-after
+	 (if (stringp delimit-columns-str-after)
+	     delimit-columns-str-after
+	   ""))
+	(delimit-columns-limit (make-marker))
+	(the-end (copy-marker end))
+	delimit-columns-max)
+    (save-excursion
+      (goto-char start)
+      (beginning-of-line)
+      ;; get maximum length for each column
+      (save-excursion
+	(while (< (point) the-end)
+	  (delimit-columns-rectangle-max
+	   (prog1
+	       (point)
+	     (end-of-line)))
+	  (forward-char 1)))
+      ;; prettify columns
+      (while (< (point) the-end)
+	(delimit-columns-rectangle-line
+	 (prog1
+	     (point)
+	   (end-of-line)))
+	(forward-char 1))
+      ;; nullify markers
+      (set-marker delimit-columns-limit nil)
+      (set-marker the-end nil))))
+
+
+(require 'rect)
+
+
+;;;###autoload
+(defun delimit-columns-rectangle (start end)
+  "Prettify all columns in a text rectangle.
+
+START and END delimits the corners of text rectangle."
+  (interactive "*r")
+  (let ((delimit-columns-str-before
+	 (if (stringp delimit-columns-str-before)
+	     delimit-columns-str-before
+	   ""))
+	(delimit-columns-str-separator
+	 (if (stringp delimit-columns-str-separator)
+	     delimit-columns-str-separator
+	   " "))
+	(delimit-columns-str-after
+	 (if (stringp delimit-columns-str-after)
+	     delimit-columns-str-after
+	   ""))
+	(delimit-columns-limit (make-marker))
+	(the-end (copy-marker end))
+	delimit-columns-max)
+    ;; get maximum length for each column
+    (save-excursion
+      (operate-on-rectangle 'delimit-columns-rectangle-max
+			    start the-end t))
+    ;; prettify columns
+    (save-excursion
+      (operate-on-rectangle 'delimit-columns-rectangle-line
+			    start the-end t))
+    ;; nullify markers
+    (set-marker delimit-columns-limit nil)
+    (set-marker the-end nil)))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Internal Variables and Functions:
+
+
+;; to avoid compilation gripes
+(defvar delimit-columns-max nil)
+(defvar delimit-columns-limit nil)
+
+
+(defun delimit-columns-rectangle-max (startpos &optional ignore ignore)
+  (set-marker delimit-columns-limit (point))
+  (goto-char startpos)
+  (let ((ncol 1)
+	origin values)
+    ;; get current column length
+    (while (progn
+	     (setq origin (current-column))
+	     (re-search-forward delimit-columns-separator
+				delimit-columns-limit 'move))
+      (save-excursion
+	(goto-char (match-beginning 0))
+	(setq values (cons (- (current-column) origin)
+			   values)))
+      (setq ncol (1+ ncol)))
+    (setq values (cons (- (current-column) origin)
+		       values))
+    ;; extend delimit-columns-max, if needed
+    (let ((index (length delimit-columns-max)))
+      (and (> ncol index)
+	   (let ((extend (make-vector ncol 0)))
+	     (while (> index 0)
+	       (setq index (1- index))
+	       (aset extend index (aref delimit-columns-max index)))
+	     (setq delimit-columns-max extend))))
+    ;; get maximum column length
+    (while values
+      (setq ncol (1- ncol))
+      (aset delimit-columns-max ncol (max (aref delimit-columns-max ncol)
+					  (car values)))
+      (setq values (cdr values)))))
+
+
+(defun delimit-columns-rectangle-line (startpos &optional ignore ignore)
+  (let ((ncol 0)
+	(len (length delimit-columns-max))
+	origin)
+    (set-marker delimit-columns-limit (point))
+    (goto-char startpos)
+    (insert delimit-columns-str-before)
+    ;; Adjust all columns but last one
+    (while (progn
+	     (setq origin (current-column))
+	     (and (< (point) delimit-columns-limit)
+		  (re-search-forward delimit-columns-separator
+				     delimit-columns-limit 'move)))
+      (delete-region (match-beginning 0) (point))
+      (insert (make-string (- (aref delimit-columns-max ncol)
+			      (- (current-column) origin))
+			   ?\ )
+	      delimit-columns-str-separator)
+      (setq ncol (1+ ncol)))
+    ;; Adjust last column
+    (insert (make-string (- (aref delimit-columns-max ncol)
+			    (- (current-column) origin))
+			 ?\ ))
+    ;; Adjust extra columns, if needed
+    (while (< (setq ncol (1+ ncol)) len)
+      (insert delimit-columns-str-separator
+	      (make-string (aref delimit-columns-max ncol) ?\ )))
+    (insert delimit-columns-str-after)))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+
+(provide 'delim-col)
+
+
+;;; delim-col.el ends here