<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd"> <HTML ><HEAD ><TITLE >match-split</TITLE ><META NAME="GENERATOR" CONTENT="Modular DocBook HTML Stylesheet Version 1.79"><LINK REL="HOME" TITLE="DSSSL Library Reference" HREF="index.html"><LINK REL="UP" TITLE="Miscellaneous" HREF="r300.htm"><LINK REL="PREVIOUS" TITLE="pad-string" HREF="pad-string.html"><LINK REL="NEXT" TITLE="match-split-string-list" HREF="match-split-string-list.html"></HEAD ><BODY CLASS="REFENTRY" BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000FF" VLINK="#840084" ALINK="#0000FF" ><DIV CLASS="NAVHEADER" ><TABLE SUMMARY="Header navigation table" WIDTH="100%" BORDER="0" CELLPADDING="0" CELLSPACING="0" ><TR ><TH COLSPAN="3" ALIGN="center" >DSSSL Library Reference: Part of the Modular DocBook Stylesheet distribution</TH ></TR ><TR ><TD WIDTH="10%" ALIGN="left" VALIGN="bottom" ><A HREF="pad-string.html" ACCESSKEY="P" >Prev</A ></TD ><TD WIDTH="80%" ALIGN="center" VALIGN="bottom" ></TD ><TD WIDTH="10%" ALIGN="right" VALIGN="bottom" ><A HREF="match-split-string-list.html" ACCESSKEY="N" >Next</A ></TD ></TR ></TABLE ><HR ALIGN="LEFT" WIDTH="100%"></DIV ><H1 ><A NAME="MATCH-SPLIT" ></A >match-split</H1 ><DIV CLASS="REFNAMEDIV" ><A NAME="AEN481" ></A ><H2 >Name</H2 >match-split -- Splits string at target and returns the resulting list of tokens</DIV ><DIV CLASS="REFSYNOPSISDIV" ><A NAME="AEN484" ></A ><H2 >Synopsis</H2 ><PRE CLASS="SYNOPSIS" >(match-split string target)</PRE ></DIV ><DIV CLASS="REFSECT1" ><A NAME="AEN487" ></A ><H2 >Description</H2 ><P >Splits string at every occurance of target and returns the result as a list. Note that <TT CLASS="LITERAL" >match-split</TT > returns the occurances of <TT CLASS="LITERAL" >target</TT > in the list of tokens.</P ><P ></P ><DIV CLASS="VARIABLELIST" ><DL ><DT ><TT CLASS="LITERAL" >string</TT ></DT ><DD ><P >The string to split.</P ></DD ><DT ><TT CLASS="LITERAL" >target</TT ></DT ><DD ><P >The string which is a delimiter between tokens</P ></DD ></DL ></DIV ></DIV ><DIV CLASS="REFSECT1" ><A NAME="AEN503" ></A ><H2 >Example</H2 ><P ><TT CLASS="LITERAL" >"this is a test"</TT > split at <TT CLASS="LITERAL" >"is"</TT > returns <TT CLASS="LITERAL" >("th" "is" " " "is" " a test")</TT ></P ></DIV ><DIV CLASS="REFSECT1" ><A NAME="AEN509" ></A ><H2 >Author</H2 ><P >Norman Walsh, <ndw@nwalsh.com></P ></DIV ><DIV CLASS="REFSECT1" ><A NAME="AEN512" ></A ><H2 >Source Code</H2 ><PRE CLASS="PROGRAMLISTING" >(define (match-split string target) ;; Splits string at target and returns the resulting list of tokens (if (string? string) (let loop ((result '()) (current "") (rest string)) (if (< (string-length rest) (string-length target)) (append result (if (equal? (string-append current rest) "") '() (list (string-append current rest)))) (if (equal? target (substring rest 0 (string-length target))) (loop (append result (if (equal? current "") '() (list current)) (list target)) "" (substring rest (string-length target) (string-length rest))) (loop result (string-append current (substring rest 0 1)) (substring rest 1 (string-length rest)))))) (list string)))</PRE ></DIV ><DIV CLASS="NAVFOOTER" ><HR ALIGN="LEFT" WIDTH="100%"><TABLE SUMMARY="Footer navigation table" WIDTH="100%" BORDER="0" CELLPADDING="0" CELLSPACING="0" ><TR ><TD WIDTH="33%" ALIGN="left" VALIGN="top" ><A HREF="pad-string.html" ACCESSKEY="P" >Prev</A ></TD ><TD WIDTH="34%" ALIGN="center" VALIGN="top" ><A HREF="index.html" ACCESSKEY="H" >Home</A ></TD ><TD WIDTH="33%" ALIGN="right" VALIGN="top" ><A HREF="match-split-string-list.html" ACCESSKEY="N" >Next</A ></TD ></TR ><TR ><TD WIDTH="33%" ALIGN="left" VALIGN="top" >pad-string</TD ><TD WIDTH="34%" ALIGN="center" VALIGN="top" ><A HREF="r300.htm" ACCESSKEY="U" >Up</A ></TD ><TD WIDTH="33%" ALIGN="right" VALIGN="top" >match-split-string-list</TD ></TR ></TABLE ></DIV ></BODY ></HTML >