<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd"> <HTML ><HEAD ><TITLE >case-fold-up-char</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="case-fold-down-char" HREF="case-fold-down-char.html"><LINK REL="NEXT" TITLE="case-fold-down-charlist" HREF="case-fold-down-charlist.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="case-fold-down-char.html" ACCESSKEY="P" >Prev</A ></TD ><TD WIDTH="80%" ALIGN="center" VALIGN="bottom" ></TD ><TD WIDTH="10%" ALIGN="right" VALIGN="bottom" ><A HREF="case-fold-down-charlist.html" ACCESSKEY="N" >Next</A ></TD ></TR ></TABLE ><HR ALIGN="LEFT" WIDTH="100%"></DIV ><H1 ><A NAME="CASE-FOLD-UP-CHAR" ></A >case-fold-up-char</H1 ><DIV CLASS="REFNAMEDIV" ><A NAME="AEN1364" ></A ><H2 >Name</H2 >case-fold-up-char -- Return the uppercase form of a single character</DIV ><DIV CLASS="REFSYNOPSISDIV" ><A NAME="AEN1367" ></A ><H2 >Synopsis</H2 ><PRE CLASS="SYNOPSIS" >(case-fold-up-char ch #!optional (uc-list default-uppercase-list) (lc-list default-lowercase-list))</PRE ></DIV ><DIV CLASS="REFSECT1" ><A NAME="AEN1370" ></A ><H2 >Description</H2 ><P >Returns the uppercase form of <TT CLASS="LITERAL" >ch</TT > if <TT CLASS="LITERAL" >ch</TT > is a member of <TT CLASS="LITERAL" >lowercase-list</TT >, otherwise return <TT CLASS="LITERAL" >ch</TT >.</P ><P >The implied mapping from uppercase to lowercase in the two lists is one-to-one. The first element of the uppercase list is the uppercase form of the first element of the lowercase list, and vice versa.</P ><P ></P ><DIV CLASS="VARIABLELIST" ><DL ><DT ><TT CLASS="LITERAL" >ch</TT ></DT ><DD ><P >The character to fold down.</P ></DD ><DT ><TT CLASS="LITERAL" >uc-list</TT ></DT ><DD ><P >The list of uppercase letters. The default is the list of English uppercase letters.</P ></DD ><DT ><TT CLASS="LITERAL" >lc-list</TT ></DT ><DD ><P >The list of lowercase letters. The default is the list of English lowercase letters.</P ></DD ></DL ></DIV ></DIV ><DIV CLASS="REFSECT1" ><A NAME="AEN1394" ></A ><H2 >Author</H2 ><P >Norman Walsh, <ndw@nwalsh.com></P ></DIV ><DIV CLASS="REFSECT1" ><A NAME="AEN1397" ></A ><H2 >Source Code</H2 ><PRE CLASS="PROGRAMLISTING" >(define (case-fold-up-char ch #!optional (uc-list default-uppercase-list) (lc-list default-lowercase-list)) ;; Return the uppercase form of a single character (let ((idx (list-member-find ch lc-list))) (if (>= idx 0) (list-ref uc-list idx) ch)))</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="case-fold-down-char.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="case-fold-down-charlist.html" ACCESSKEY="N" >Next</A ></TD ></TR ><TR ><TD WIDTH="33%" ALIGN="left" VALIGN="top" >case-fold-down-char</TD ><TD WIDTH="34%" ALIGN="center" VALIGN="top" ><A HREF="r300.htm" ACCESSKEY="U" >Up</A ></TD ><TD WIDTH="33%" ALIGN="right" VALIGN="top" >case-fold-down-charlist</TD ></TR ></TABLE ></DIV ></BODY ></HTML >