From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.comp.tex.context/33964 Path: news.gmane.org!not-for-mail From: Wolfgang Schuster Newsgroups: gmane.comp.tex.context Subject: Re: page numbering in words? Date: Mon, 26 Mar 2007 20:40:33 +0200 Message-ID: <20070326204033.44b77989.schuster.wolfgang@googlemail.com> References: <39FF4EA0-9392-4D97-B347-BB50F6593F80@mac.com> Reply-To: mailing list for ConTeXt users NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="Multipart=_Mon__26_Mar_2007_20_40_33_+0200_216ufUg3Wfj.oi00" X-Trace: sea.gmane.org 1174934457 28124 80.91.229.12 (26 Mar 2007 18:40:57 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 26 Mar 2007 18:40:57 +0000 (UTC) To: ntg-context@ntg.nl Original-X-From: ntg-context-bounces@ntg.nl Mon Mar 26 20:40:50 2007 Return-path: Envelope-to: gctc-ntg-context-518@m.gmane.org Original-Received: from ronja.vet.uu.nl ([131.211.172.88] helo=ronja.ntg.nl) by lo.gmane.org with esmtp (Exim 4.50) id 1HVu7d-0005hI-R9 for gctc-ntg-context-518@m.gmane.org; Mon, 26 Mar 2007 20:40:49 +0200 Original-Received: from localhost (localhost [127.0.0.1]) by ronja.ntg.nl (Postfix) with ESMTP id 665C1203C4; Mon, 26 Mar 2007 20:40:49 +0200 (CEST) Original-Received: from ronja.ntg.nl ([127.0.0.1]) by localhost (smtp.ntg.nl [127.0.0.1]) (amavisd-new, port 10024) with LMTP id 13151-01-3; Mon, 26 Mar 2007 20:40:44 +0200 (CEST) Original-Received: from ronja.vet.uu.nl (localhost [127.0.0.1]) by ronja.ntg.nl (Postfix) with ESMTP id 40B8F203C6; Mon, 26 Mar 2007 20:40:44 +0200 (CEST) Original-Received: from localhost (localhost [127.0.0.1]) by ronja.ntg.nl (Postfix) with ESMTP id 340CE203C4 for ; Mon, 26 Mar 2007 20:40:42 +0200 (CEST) Original-Received: from ronja.ntg.nl ([127.0.0.1]) by localhost (smtp.ntg.nl [127.0.0.1]) (amavisd-new, port 10024) with LMTP id 13151-01-2 for ; Mon, 26 Mar 2007 20:40:37 +0200 (CEST) Original-Received: from ug-out-1314.google.com (ug-out-1314.google.com [66.249.92.173]) by ronja.ntg.nl (Postfix) with ESMTP id F35BB203C6 for ; Mon, 26 Mar 2007 20:40:36 +0200 (CEST) Original-Received: by ug-out-1314.google.com with SMTP id m2so1820266uge for ; Mon, 26 Mar 2007 11:40:36 -0700 (PDT) Original-Received: by 10.67.93.6 with SMTP id v6mr12560383ugl.1174934436461; Mon, 26 Mar 2007 11:40:36 -0700 (PDT) Original-Received: from eve ( [194.94.240.124]) by mx.google.com with ESMTP id p32sm6331433ugc.2007.03.26.11.40.35; Mon, 26 Mar 2007 11:40:35 -0700 (PDT) In-Reply-To: <39FF4EA0-9392-4D97-B347-BB50F6593F80@mac.com> X-Mailer: Sylpheed 2.3.1 (GTK+ 2.10.7; i686-pc-mingw32) X-Virus-Scanned: amavisd-new at ntg.nl X-BeenThere: ntg-context@ntg.nl X-Mailman-Version: 2.1.9 Precedence: list List-Id: mailing list for ConTeXt users List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: ntg-context-bounces@ntg.nl Errors-To: ntg-context-bounces@ntg.nl X-Virus-Scanned: amavisd-new at ntg.nl Xref: news.gmane.org gmane.comp.tex.context:33964 Archived-At: This is a multi-part message in MIME format. --Multipart=_Mon__26_Mar_2007_20_40_33_+0200_216ufUg3Wfj.oi00 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit On Mon, 26 Mar 2007 17:39:38 +0100 cormullion@mac.com wrote: > is it possible to adjust options so as to get page numbering done in > words? Eg > > "one" "two" ..... "eighty-nine" ... "three hundred and sixty seven" ? > > Or does this require some more work/code? I converted the macro to the plain TeX format. The only thing you need to do now is to change the german text you own. Wolfgang --Multipart=_Mon__26_Mar_2007_20_40_33_+0200_216ufUg3Wfj.oi00 Content-Type: text/x-tex; name="zahl2string.tex" Content-Disposition: attachment; filename="zahl2string.tex" Content-Transfer-Encoding: 7bit \catcode`\@=11 \def\numstring#1{\expandafter\@numstring\csname c@#1\endcsname} \def\Numstring#1{\expandafter\@Numstring\csname c@#1\endcsname} \def\ordstring#1{\expandafter\@ordstring\csname c@#1\endcsname} \def\Ordstring#1{\expandafter\@Ordstring\csname c@#1\endcsname} \def\@numstring#1{\ns@numstr{#1}\ns@neunzehns{null}{}} \def\@Numstring#1{\expandafter\@@Numstring\expandafter{\number#1}} \def\@@Numstring#1% {\edef\@tempa{\@numstring{#1}}% \expandafter\MakeUppercase\@tempa} \def\@ordstring#1{\ns@numstr{#1}\ns@neunzehnord{null\-te}{te}} \def\@Ordstring#1{\expandafter\@@Ordstring\expandafter{\number#1}} \def\@@Ordstring#1% {\edef\@tempa{\@ordstring{#1}}% \expandafter\MakeUppercase\@tempa} \let\numstr\@numstring% \let\Numstr\@Numstring% \let\ordstr\@ordstring% \let\Ordstr\@Ordstring% \def\ns@numoutofrange#1#2{\number#1#2} \def\ns@numstr#1#2#3#4% {\ifnum\number#1<\@ne% #3% \else\ifnum\number#1<1000000000 % \expandafter\ns@numstring\expandafter{\number#1}#2% \else% \ns@numoutofrange{#1}{#4}% \fi\fi} \def\ns@numstring#1#2{% \expandafter\ns@@numstring% \ifcase% \ifnum#1<10 1% \else\ifnum#1<100 2% \else\ifnum#1<\@m 3% \else\ifnum#1<\@M 4% \else\ifnum#1<100000 5% \else\ifnum#1<1000000 6% \else\ifnum#1<10000000 7% \else\ifnum#1<100000000 8% \else9% \fi\fi\fi\fi\fi\fi\fi\fi % \or00000000#1% case 1: Add 8 leading zeros \or0000000#1% case 2: Add 7 leading zeros \or000000#1% case 3: Add 6 leading zeros \or00000#1% case 4: Add 5 leading zeros \or0000#1% case 5: Add 4 leading zeros \or000#1% case 6: Add 3 leading zeros \or00#1% case 7: Add 2 leading zeros \or0#1% case 8: Add 1 leading zero \or#1% case 9: Add no leading zeros \or% \@nil#2% \fi} \def\ns@@numstring#1#2#3#4#5#6#7\or#8\@nil#9% {\ifnum#1#2#3>\z@ \ns@million#1#2#3% \ifnum#4#5#6>\z@\space\fi% \fi% \ifnum#4#5#6>\z@% \ns@hundred#4#5#6{#1#2#3}{#4#5}\ns@neunzehn% \ifnum#4#5#6>\@ne\-\fi% tau\-send% \ifnum#7>\z@\-\fi% \fi% \ns@hundred#7{#4#5#6}1#9} \def\ns@million#1#2#3% {\ifnum#1#2#3=\@ne% \ns@hundred#1#2#301\ns@neunzehne% \space% Mil\-lion% \else% \ns@hundred#1#2#301\ns@neunzehns% \space% Mil\-lio\-nen% \fi} \def\ns@hundred#1#2#3#4#5#6% {\ifnum#1>\z@% \ifnum#4#1>\@ne\ns@neunzehn#1\-\fi% hun\-dert% \ifnum#2#3>\z@\-\fi% \fi% \ifnum#2#3<20 % \ifnum#5#2#3>\@ne#6{#2#3}\fi% \else% \ifnum#3>\z@\ns@neunzehn#3\-und\-\fi% \ns@neunzig#2% #60% \fi} \def\ns@neunzehn#1% {\ifcase#1\empty\or ein\or zwei\or drei\or vier\or f\"unf\or sechs\or% sie\-ben\or acht\or neun\or zehn\or elf\or zw\"olf\or drei\-zehn\or% vier\-zehn\or f\"unf\-zehn\or sech\-zehn\or sieb\-zehn\or% acht\-zehn\or neun\-zehn\fi} \def\ns@neunzehns#1{\ifcase#1\empty\or eins\else\ns@neunzehn{#1}\fi} \def\ns@neunzehne#1{\ifcase#1\empty\or ei\-ne\else\ns@neunzehn{#1}\fi} \def\ns@neunzehnord#1% {\ifcase#1\-ste% \or er\-ste% \or zwei\-te% \or drit\-te% \or vier\-te% \or f\"unf\-te% \or sech\-ste% \or sieb\-te% \or ach\-te% \or neun\-te% \or zehn\-te% \or elf\-te% \or zw\"olf\-te% \or drei\-zehn\-te% \or vier\-zehn\-te% \or f\"unf\-zehn\-te% \or sech\-zehn\-te% \or sieb\-zehn\-te% \or acht\-zehn\-te% \or neun\-zehn\-te% \fi} \def\ns@neunzig#1% {\ifcase#1 \or \or zwan\-zig% \or drei\ss ig% \or vier\-zig% \or f\"unf\-zig% \or sech\-zig% \or sieb\-zig% \or acht\-zig% \or neun\-zig% \fi} \catcode`\@=12 \endinput --Multipart=_Mon__26_Mar_2007_20_40_33_+0200_216ufUg3Wfj.oi00 Content-Type: text/x-tex; name="zahltest.tex" Content-Disposition: attachment; filename="zahltest.tex" Content-Transfer-Encoding: 7bit \input zahl2string \long\def\zahlexamples#1 {0 $\Longrightarrow$ #1{0}\endgraf 7 $\Longrightarrow$ #1{7}\endgraf 13 $\Longrightarrow$ #1{13}\endgraf 23 $\Longrightarrow$ #1{23}\endgraf 42 $\Longrightarrow$ #1{42}\endgraf 99 $\Longrightarrow$ #1{99}\endgraf 127 $\Longrightarrow$ #1{127}\endgraf 999 $\Longrightarrow$ #1{999}\endgraf 1000 $\Longrightarrow$ #1{1000}\endgraf 1001 $\Longrightarrow$ #1{1001}\endgraf 2004 $\Longrightarrow$ #1{2004}\endgraf 2017 $\Longrightarrow$ #1{2017}\endgraf 2029 $\Longrightarrow$ #1{2029}\endgraf 9999 $\Longrightarrow$ #1{9999}\endgraf 10000 $\Longrightarrow$ #1{10000}\endgraf 101101 $\Longrightarrow$ #1{101101}\endgraf 999999 $\Longrightarrow$ #1{999999}\endgraf 1000000 $\Longrightarrow$ #1{1000000}\endgraf 1234567 $\Longrightarrow$ #1{1234567}\endgraf 123456789 $\Longrightarrow$ #1{123456789}\endgraf 101101101 $\Longrightarrow$ #1{101101101}\endgraf 999999999 $\Longrightarrow$ #1{999999999}} \zahlexamples{\numstr} \zahlexamples{\ordstr} \bye --Multipart=_Mon__26_Mar_2007_20_40_33_+0200_216ufUg3Wfj.oi00 Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ ntg-context mailing list ntg-context@ntg.nl http://www.ntg.nl/mailman/listinfo/ntg-context --Multipart=_Mon__26_Mar_2007_20_40_33_+0200_216ufUg3Wfj.oi00--