Re: Unicode text conversion

["Procházka Lukáš Ing." <LPr@pontex.cz>]

[-- Attachment #1: Type: text/plain, Size: 2237 bytes --]

Hello,

thank you for the answers.

So - IMHO the following code should provide CP-1250 to UTF-8 conversion:

----
\enableregime[cp1250]

\startluacode
   local cvt = function(fn)
     print(fn)

     local str = io.loaddata(fn)

--print(str)

     str = regimes.toregime("utf", str, "?")

     io.savedata(fn .. "~", str)
   end

   --

   cvt("_01-Identifikacni-Udaje.mkiv")
\stopluacode
----

But ConTeXt (yesterday's beta) fails with:

----
lua error       > lua error on line 17 in file X://Users/LPr/~/~Asci/Cvt2UTF8.mkiv:

...eta/tex/texmf-context/tex/context/base/mkiv/regi-ini.lua:127: bad argument #1 to 'for iterator' (table expected, got boolean)
stack traceback:
         [C]: in function 'for iterator'
         ...eta/tex/texmf-context/tex/context/base/mkiv/regi-ini.lua:127: in function '__index'
         ...eta/tex/texmf-context/tex/context/base/mkiv/regi-ini.lua:182: in function 'toregime'
         [ctxlua]:7: in function 'cvt'
         [ctxlua]:14: in main chunk

  7         local str = io.loaddata(fn)
  8
  9         str = regimes.toregime("utf", str, "?")
10
11         io.savedata(fn .. "~", str)
12       end
13
14       --
15
16       cvt("_01-Identifikacni-Udaje.mkiv")
17 >>  \stopluacode
----

What's wrong with my code?

Any help would be appreciated.

Best regards,

Lukas


On Wed, 14 Jun 2017 14:31:47 +0200, Procházka Lukáš Ing. <LPr@pontex.cz> wrote:

> OK, thank you;
> I deduce:
>
> regimes.toregime('8859-1',"abcde Ä","?")
>
> means actually:
>
> - "convert from the current regime" (be e.g. UTF8)
> - regimes.toregime(<regime-to-convert-to>, <string-to-convert>, <what-does-this-mean?>)
>
> Lukas
>
>
> On Wed, 14 Jun 2017 14:21:47 +0200, Hans Hagen <pragma@wxs.nl> wrote:
>
>> On 6/14/2017 2:07 PM, Procházka Lukáš Ing. wrote:
>>> Hello,
>>>
>>> is there also a way to convert CP1250 to UTF8 and vice versa?
>>
>> regimes.toregime('8859-1',"abcde Ä","?")
>>
>> there's also fromregime
>>


-- 
Ing. Lukáš Procházka | mailto:LPr@pontex.cz
Pontex s. r. o.      | mailto:pontex@pontex.cz | http://www.pontex.cz | IDDS:nrpt3sn
Bezová 1658
147 14 Praha 4

Mob.: +420 702 033 396
Tel.: +420 241 096 751

[-- Attachment #2: Cvt2UTF8.mkiv --]
[-- Type: application/octet-stream, Size: 560 bytes --]

\enableregime[cp1250]

\startluacode
  local cvt = function(fn)
    print(fn)

    local str = io.loaddata(fn)

--print(str)

    str = regimes.toregime("utf", str, "?")

    io.savedata(fn .. "~", str)
  end

  --

  cvt("_01-Identifikacni-Udaje.mkiv")
\stopluacode

\startluacode
  do return end

  local pa = lfs.currentdir()

  for fn in lfs.dir(pa) do
    fn = pa .. "/" .. fn

    local atts = lfs.attributes(fn)

    if atts and atts.mode == "file" and fn:find("%.mkiv$") then
      cvt(fn)
    end
  end
\stopluacode

[-- Attachment #3: _01-Identifikacni-Udaje.mkiv --]
[-- Type: application/octet-stream, Size: 6620 bytes --]

[-- Attachment #4: Type: text/plain, Size: 492 bytes --]

___________________________________________________________________________________
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://context.aanhet.net
archive  : https://bitbucket.org/phg/context-mirror/commits/
wiki     : http://contextgarden.net
___________________________________________________________________________________