Re: Creating string from list of strings

["Joe Casadonte" <jcasadonte@northbound-train.com>]

On Mon, 14 Oct 2002, Bill Wohler wrote:

>   I wasn't able to figure out from the Elisp manual how to turn a
>   list of strings into a single string. For example, how does one
>   print the following list of strings?
>
>     (setq list-of-strings '("foo" "bar"))
>     (message (perform-magic-with list-of-strings))
>
>   While the following works, it seems that there should be a
>   one-liner to do this already:
>
>     (defvar my-string)
>     (while list-of-strings
>       (setq my-string (concat my-string (car list-of-strings)))
>       (setq list-of-strings (cdr list-of-strings)))
>     (message (my-string))

Some folks have already showed you what to do to get a simple concat
like you had asked for.  Here's something I whipped up to get a
perl-like join command.

(defun my-perl-join (join-string elements)
  "[Internal] Function to mimic Perl's join() function.

JOIN-STRING is the string to use to join them together.
ELEMENTS is a list of what to join.

Example:

  \(my-perl-join \"/\" (list \"some\" \"file\" \"path\")

would result in the string:

  some/file/path

Note that no leading slash is put in; JOIN-STRING is only put in
between the joined elements."
  (let (rc active subsequent-pass)
	(while elements
	  (setq active (car elements))
	  (setq elements (cdr elements))

 	  (if (not subsequent-pass)
 		  (setq subsequent-pass t)
		(setq rc (concat rc join-string))
		)

	  (setq rc (concat rc active)))
	rc))


--
Regards,

joe
Joe Casadonte
jcasadonte@northbound-train.com

------------------------------------------------------------------------------
         Llama Fresh Farms => http://www.northbound-train.com
   Gay Media Resource List => http://www.northbound-train.com/gaymedia.html
            Perl for Win32 => http://www.northbound-train.com/perlwin32.html
               Emacs Stuff => http://www.northbound-train.com/emacs.html
          Music CD Trading => http://www.northbound-train.com/cdr.html
------------------------------------------------------------------------------
                       Live Free, that's the message!
------------------------------------------------------------------------------