Re: ConTeXt: Page numbering in words for spanish

[Hans Hagen <pragma@wxs.nl>]

On 11/21/2012 10:08 AM, Acidrums4 wrote:
> Hello there and thanks for finally let me into this mailing list!
>
> So I tried to hack the macro given in the ConTeXt wiki
> (http://wiki.contextgarden.net/Page_numbering_in_words) to write pagenumbering
> in words in spanish, my native language. Things were great until I had to
> reach the 100th page. ConTeXt claims when compiling, but I don't know how to
> fix the macro so it can write hundred-numbers.
>
> 'Cien' is 100 for spanish. 'Ciento uno' for 101, 'ciento dos' for 102 and so
> (You can see a more detailed example in
> http://spanish.about.com/cs/forbeginners/a/cardinalnum_beg.htm). So basically
> I need to prepend the word 'cien' for each word number from 1 to 99 to write
> the one-hundreds, 'doscientos' for the two-hundreds... Here is my dirty hacked
> version of the macro (you may save it as 'numstr.tex' for compiling), and a
> minimal example as follows:
>
> \input numstr
> \defineconversion[numstring][\numstr]
> \setupuserpagenumber[numberconversion=numstring]
> \starttext
> \dorecurse{100}{\recurselevel\page}
> \stoptext
>
> I'm such a noob with TeX and I cannot figure out how to do this, and I need
> this for this friday!. However, Aditya in the TeX section of StackExchange
> (http://tex.stackexchange.com/questions/82722/context-page-numbering-in-words-
> for-spanish#comment178155_82722) told me that I could do this witk Lua
> (editing the file core-con.lua, as seen in
> http://repo.or.cz/w/context.git/blob/HEAD:/tex/context/base/core-con.lua
> ), 'cause I'm using MkIV for doing this. But I don't know anything about Lua
> (seems pretty easy, but I don't know how to test the code Aditya gave me) and
> If I knew how to do that, I don't know how to make it work in my document...
> All I could do is translate the 'words' array to spanish, but I couldn't do
> more... Could you guys give me a hand on this? Thank you so much!

We can add a converter to core-con, but you have to do the checking (and 
tuning):

local floor = math.floor
local concat = table.concat

local verbose = { }

local words = {
         [1] = "uno",
         [2] = "dos",
         [3] = "tres",
         [4] = "cuatro",
         [5] = "cinco",
         [6] = "seis",
         [7] = "siete",
         [8] = "ocho",
         [9] = "nueve",
        [10] = "diez",
        [11] = "once",
        [12] = "doce",
        [13] = "trece",
        [14] = "catorce",
        [15] = "quince",
        [16] = "dieciséis",
        [17] = "diecisiete",
        [18] = "dieciocho",
        [19] = "diecinueve",
        [20] = "veinte",
        [21] = "veintiuno",
        [22] = "veintidós",
        [23] = "veintitrés",
        [24] = "veinticuatro",
        [25] = "veinticinco",
        [26] = "veintiséis",
        [27] = "veintisiete",
        [28] = "veintiocho",
        [29] = "veintinueve",
        [30] = "treinta",
        [40] = "cuarenta",
        [50] = "cincuenta",
        [60] = "sesenta",
        [70] = "setenta",
        [80] = "ochenta",
        [90] = "noventa",
       [100] = "ciento",
       [200] = "doscientos",
       [300] = "trescientos",
       [400] = "cuatrocientos",
       [500] = "quinientos",
       [600] = "seiscientos",
       [700] = "setecientos",
       [800] = "ochocientos",
       [900] = "novecientos",
      [1000] = "mil",
    [1000^2] = "millón",
    [1000^3] = "millones",
}

function verbose.spanish(n)
     local w = words[n]
     if w then
         return w
     end
     local t = { }
     local function compose_one(n)
         local w = words[n]
         if w then
             t[#t+1] = w
             return
         end
         local a, b = floor(n/100), n % 100
         if a == 10 then
             t[#t+1] = words[1]
             t[#t+1] = words[1000]
         elseif a > 0 then
--             t[#t+1] = words[a]
             t[#t+1] = words[100]
         end
         if words[b] then
             t[#t+1] = words[b]
         else
             a, b = floor(b/10), n % 10
             t[#t+1] = words[a*10]
t[#t+1] = "y"
             t[#t+1] = words[b]
         end
     end
     local function compose_two(n,m)
         if n > (m-1) then
             local a, b = floor(n/m), n % m
             if a > 0 then
                 compose_one(a)
             end
             t[#t+1] = words[m]
             n = b
         end
         return n
     end
     n = compose_two(n,1000^4)
     n = compose_two(n,1000^3)
     n = compose_two(n,1000^2)
     n = compose_two(n,1000^1)
     if n > 0 then
         compose_one(n)
     end
     return #t > 0 and concat(t," ") or tostring(n)
end

verbose.es = verbose.spanish

print(verbose.spanish(31))
print(verbose.spanish(101))
print(verbose.spanish(199))

sort of the english one with some patches (exceptions can be added to 
the table if needed)



-----------------------------------------------------------------
                                           Hans Hagen | PRAGMA ADE
               Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
     tel: 038 477 53 69 | voip: 087 875 68 74 | www.pragma-ade.com
                                              | www.pragma-pod.nl
-----------------------------------------------------------------
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : http://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________