🚀 go-pugleaf

>>> In article <9105081810.AA18310@bill-the-cat.MIT.EDU>,
>>> "bjaspan" == bjaspan@ATHENA.MIT.EDU ("Barr3y Jaspan") writes:


bjaspan> For emacs-loving perl users, or perl-loving emacs users, here is an
bjaspan> implementation of the perl function 'split' for emacs lisp.  It seems
bjaspan> to work for me, your mileage may vary.  Comments welcome.

bjaspan> --- snip snip ---

bjaspan> ;;; split.el --- emacs implementation of Perl's 'split' function.
bjaspan> ;;; (C) Copyright 1991 by Barr3y Jaspan (bjaspan@mit.edu)


    Neat idea.  Here's another version, which acts slighty differently, but
  doesn't use a temporary buffer.

;;=== Perl-like split ===

(defun split (STRING &optional SPLIT-RE INCLUDE-SEP)
  "Splits STRING into a list of strings.  Optional second argument SPLIT-RE 
defines the regular expression used to find breakpoints, the default is
\"\\s +\" (whitespace).  The SPLIT-RE must not match the null string.
  If optional third argument INCLUDE-SEP is non-nil, separator strings are 
included in the resulting substrings."
  (if SPLIT-RE nil (setq SPLIT-RE "\\s +"))
  (if (string-match SPLIT-RE "") 
      (error "SPLIT-RE must not match null string"))
  (let (strings)
    (while (and (not (equal STRING ""))
		(string-match SPLIT-RE STRING))
      (setq strings 
	    (cons 
	     (substring STRING 0 (if INCLUDE-SEP (match-end 0) 
				   (match-beginning 0)))
	     strings))
      (setq STRING (substring STRING (match-end 0))))
    (setq strings (cons STRING strings))
    (nreverse strings)))

--
    /-------------------- mike-w@cs.aukuni.ac.nz ---------------------\
    | Mike Williams, Computer Science, Auckland University, Aotearoa. |
    \-------------- What's another word for Thesaurus? ---------------/
-- 
New administrater uofa.