<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd"> <HTML ><HEAD ><TITLE >repl-substring-list?</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="repl-substring" HREF="repl-substring.html"><LINK REL="NEXT" TITLE="repl-substring-list-target" HREF="repl-substring-list-target.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="repl-substring.html" ACCESSKEY="P" >Prev</A ></TD ><TD WIDTH="80%" ALIGN="center" VALIGN="bottom" ></TD ><TD WIDTH="10%" ALIGN="right" VALIGN="bottom" ><A HREF="repl-substring-list-target.html" ACCESSKEY="N" >Next</A ></TD ></TR ></TABLE ><HR ALIGN="LEFT" WIDTH="100%"></DIV ><H1 ><A NAME="REPL-SUBSTRING-LISTX3F" ></A >repl-substring-list?</H1 ><DIV CLASS="REFNAMEDIV" ><A NAME="AEN741" ></A ><H2 >Name</H2 >repl-substring-list? -- Perform repl-substring? with a list of target/replacement pairs</DIV ><DIV CLASS="REFSYNOPSISDIV" ><A NAME="AEN744" ></A ><H2 >Synopsis</H2 ><PRE CLASS="SYNOPSIS" >(repl-substring-list? string replace-list pos)</PRE ></DIV ><DIV CLASS="REFSECT1" ><A NAME="AEN747" ></A ><H2 >Description</H2 ><P >Returns <TT CLASS="LITERAL" >#t</TT > if any target in <TT CLASS="LITERAL" >replace-list</TT > occurs at <TT CLASS="LITERAL" >pos</TT > in <TT CLASS="LITERAL" >string</TT >.</P ><P ></P ><DIV CLASS="VARIABLELIST" ><DL ><DT ><TT CLASS="LITERAL" >string</TT ></DT ><DD ><P >The string in which replacement should be tested.</P ></DD ><DT ><TT CLASS="LITERAL" >replace-list</TT ></DT ><DD ><P >A list of target/replacement pairs. This list is just a list of strings, treated as pairs. For example, <TT CLASS="LITERAL" >("was" "x" "is" "y")</TT >. In this example, <TT CLASS="LITERAL" >was</TT > may be replaced by <TT CLASS="LITERAL" >x</TT > and <TT CLASS="LITERAL" >is</TT > may be replaced by <TT CLASS="LITERAL" >y</TT >.</P ></DD ><DT ><TT CLASS="LITERAL" >pos</TT ></DT ><DD ><P >The location within <TT CLASS="LITERAL" >string</TT > where the test will occur.</P ></DD ></DL ></DIV ></DIV ><DIV CLASS="REFSECT1" ><A NAME="AEN776" ></A ><H2 >Example</H2 ><P ><TT CLASS="LITERAL" >(repl-substring-list? "this is it" ("was" "x" "is" "y") 2)</TT > returns <TT CLASS="LITERAL" >#t</TT >: "is" could be replaced by "y".</P ></DIV ><DIV CLASS="REFSECT1" ><A NAME="AEN781" ></A ><H2 >Author</H2 ><P >Norman Walsh, <ndw@nwalsh.com></P ></DIV ><DIV CLASS="REFSECT1" ><A NAME="AEN784" ></A ><H2 >Source Code</H2 ><PRE CLASS="PROGRAMLISTING" >(define (repl-substring-list? string replace-list pos) ;; Perform repl-substring? with a list of target/replacement pairs (let loop ((list replace-list)) (let ((target (car list)) (repl (car (cdr list))) (rest (cdr (cdr list)))) (if (repl-substring? string target pos) #t (if (null? rest) #f (loop rest))))))</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="repl-substring.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="repl-substring-list-target.html" ACCESSKEY="N" >Next</A ></TD ></TR ><TR ><TD WIDTH="33%" ALIGN="left" VALIGN="top" >repl-substring</TD ><TD WIDTH="34%" ALIGN="center" VALIGN="top" ><A HREF="r300.htm" ACCESSKEY="U" >Up</A ></TD ><TD WIDTH="33%" ALIGN="right" VALIGN="top" >repl-substring-list-target</TD ></TR ></TABLE ></DIV ></BODY ></HTML >