home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / lang / lisp / 3126 < prev    next >
Encoding:
Text File  |  1992-12-22  |  3.1 KB  |  86 lines
  1. Path: sparky!uunet!haven.umd.edu!darwin.sura.net!jvnc.net!rutgers!psuvax1!news.ecn.bgu.edu!uxa.ecn.bgu.edu!news.ils.nwu.edu!aristotle.ils.nwu.edu!will
  2. From: will@aristotle.ils.nwu.edu (William Fitzgerald)
  3. Newsgroups: comp.lang.lisp
  4. Subject: Re: Use of format or pprint
  5. Message-ID: <1992Dec21.224457.23526@ils.nwu.edu>
  6. Date: 21 Dec 92 22:44:57 GMT
  7. References: <1gtulrINN3gr@early-bird.think.com>
  8. Sender: usenet@ils.nwu.edu (Mr. usenet)
  9. Distribution: usa
  10. Organization: The Institute for the Learning Sciences
  11. Lines: 71
  12. Nntp-Posting-Host: aristotle.ils.nwu.edu
  13. X-Newsreader: Tin 1.1 PL5
  14.  
  15. Barry Margolin (barmar@think.com) wrote:
  16. : 
  17. : You'll have to write your own routine to convert the single-string form
  18. : into a list of strings.  Common Lisp has nothing that will parse the string
  19. : into words and treat them separately for this purpose (the only thing in CL
  20. : that deals with words is STRING-CAPITALIZE).
  21. : 
  22.  
  23. Here are some functions I've written to convert strings into lists of
  24. various sorts. Examples follow at the end.
  25.  
  26. (defun list-from-string (string
  27.                          &key 
  28.                          (start 0) 
  29.                          (char-bag '(#\Space))
  30.                          (test #'(lambda (ch)
  31.                                    (not (member ch char-bag 
  32.                                                 :test 'char=))))
  33.                          (post-process 'identity))
  34.   (let ((pos (position-if test string :start start)))
  35.     (if pos 
  36.       (list-from-string* string :start  pos :char-bag char-bag
  37.                          :test test :post-process post-process)
  38.       nil)))
  39.  
  40. (defun list-from-string* (string
  41.                           &key 
  42.                           (start 0) 
  43.                           (char-bag '(#\Space))
  44.                           (test #'(lambda (ch)
  45.                                     (not (member ch char-bag :test 'char=))))
  46.                           (post-process 'identity))
  47.   (let* ((pos (position-if-not test string :start start))
  48.          (new-pos (if pos (position-if test string :start pos) nil)))
  49.     (cond
  50.      ((and pos new-pos)
  51.       (cons (funcall post-process (subseq string start pos))
  52.             (list-from-string* string :start new-pos :char-bag char-bag
  53.                                :test test :post-process post-process)))
  54.      (pos (list (funcall post-process (subseq string start pos))))
  55.      
  56.      (t (list (funcall post-process (subseq string start)))))))
  57.  
  58.  
  59. (defmethod string->symbol-list ((s string) &optional (package *package*))
  60.   (list-from-string s :post-process
  61.                     #'(lambda (str) 
  62.                         (intern (nstring-upcase str) package))
  63.                     :test 'alphanumericp))
  64.  
  65.  
  66.  
  67. #|
  68.  
  69.  
  70. (list-from-string  "chris dan ski elaine nick") --> 
  71.   ("chris" "dan" "ski" "elaine" "nick")
  72.  
  73. (list-from-string  "chris dan ski elaine nick" 
  74.                    :post-process 'nstring-capitalize) -->
  75.   ("Chris" "Dan" "Ski" "Elaine" "Nick")
  76.  
  77. (list-from-string "chris! dan! ski! elaine! nick!"
  78.                   :char-bag '(#\Space #\!)) -->
  79.   ("chris" "dan" "ski" "elaine" "nick")
  80.  
  81. (string->symbol-list "chris dan ski elaine nick")-->
  82.  (CHRIS DAN SKI ELAINE NICK)
  83.  
  84.  
  85. |#
  86.