Unicode PDF outline strings sample for plain LuaTeX

Readme.txt

% -*- coding:utf-8 -*-

Unicode PDF outline strings sample for plain LuaTeX
Copyright(C) Masamichi Hosoda 2016

下記の 2 環境で動作しました。

This is LuaTeX, Version beta-0.80.0 (TeX Live 2015/Cygwin) (rev 5238)  (format=luatex 2015.10.17)
This is LuaTeX, Version beta-0.89.1 (TeX Live 2016/W32TeX/dev)  (format=luatex 2016.2.11)

test-lua-utf16-oct.tex

% -*- coding:utf-8 -*-

% Unicode PDF outline strings sample for plain LuaTeX
% Copyright(C) Masamichi Hosoda 2016

\input luatexja.sty

\font\lmr{file:lmroman10-regular.otf:+trep;+tlig} at 10pt %
\lmr

\begingroup
  \catcode`\%=12
  \directlua{
    function UTF16oct(str)
      tex.sprint(string.char(0x5c) .. 'detokenize' .. string.char(0x7b))
      tex.sprint(string.char(0x5c) .. '376' .. string.char(0x5c) .. '377')
      for c in string.utfvalues(str) do
        if c < 0x10000 then
          tex.sprint(
            string.format(string.char(0x5c) .. string.char(0x25) .. '03o' ..
                          string.char(0x5c) .. string.char(0x25) .. '03o',
                          (c / 256), (c % 256)))
        else
          c = c - 0x10000
          local c_hi = c / 1024 + 0xd800
          local c_lo = c % 1024 + 0xdc00
          tex.sprint(
            string.format(string.char(0x5c) .. string.char(0x25) .. '03o' ..
                          string.char(0x5c) .. string.char(0x25) .. '03o' ..
                          string.char(0x5c) .. string.char(0x25) .. '03o' ..
                          string.char(0x5c) .. string.char(0x25) .. '03o',
                          (c_hi / 256), (c_hi % 256),
                          (c_lo / 256), (c_lo % 256)))
        end
      end
      tex.sprint(string.char(0x7d))
    end
  }
\endgroup

\def\toUTFxvioct#1{\directlua{UTF16oct('\luaescapestring{#1}')}}


\ifnum\luatexversion>84
  \def\pdfcatalog{\pdfextension catalog}
  \def\pdfdest{\pdfextension dest}
  \def\pdfoutline{\pdfextension outline}
\fi


\pdfcatalog{/PageMode /UseOutlines}

\pdfdest name{\toUTFxvioct{AäöüB!}} xyz%
AäöüB!

\vfil

\pdfdest name{\toUTFxvioct{日本語}} xyz%
日本語

\vfil

\pdfdest name{\toUTFxvioct{𠮟🍣☃}} xyz%
𠮟🍣☃

\vfil

\pdfdest name{\toUTFxvioct{A B}} xyz%
A B

\vfil

\pdfdest name{\toUTFxvioct{\detokenize{\TeX}}} xyz%
\TeX

\eject

以下、しおり作成用

\pdfoutline goto name{\toUTFxvioct{AäöüB!}} {\toUTFxvioct{AäöüB!}}%
\pdfoutline goto name{\toUTFxvioct{日本語}} {\toUTFxvioct{日本語}}%
\pdfoutline goto name{\toUTFxvioct{𠮟🍣☃}} {\toUTFxvioct{𠮟🍣☃}}%
\pdfoutline goto name{\toUTFxvioct{A B}} {\toUTFxvioct{A B}}%
\pdfoutline goto name{\toUTFxvioct{\detokenize{\TeX}}} {\toUTFxvioct{\detokenize{\TeX}}}%

\bye