diff options
author | Karl Berry <karl@freefriends.org> | 2021-06-17 20:46:11 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2021-06-17 20:46:11 +0000 |
commit | 01797e6cfb31a96e71ffc70973d5b1c8ece3b9bc (patch) | |
tree | 72cb23fee4fbf01436589a07e30be96107cc157e /Master/texmf-dist/tex | |
parent | 3c9404103f5bc3bfcae2b576eeb4a62284387a78 (diff) |
ocgx2 (17jun21)
git-svn-id: svn://tug.org/texlive/trunk@59618 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex')
-rw-r--r-- | Master/texmf-dist/tex/latex/ocgx2/ocgx2.sty | 2272 |
1 files changed, 1141 insertions, 1131 deletions
diff --git a/Master/texmf-dist/tex/latex/ocgx2/ocgx2.sty b/Master/texmf-dist/tex/latex/ocgx2/ocgx2.sty index 101537322e3..cb9c7822d0d 100644 --- a/Master/texmf-dist/tex/latex/ocgx2/ocgx2.sty +++ b/Master/texmf-dist/tex/latex/ocgx2/ocgx2.sty @@ -1,609 +1,635 @@ %%%%%%%%%%%%%%%%%%%%%% pdfmanagement-testphase %%%%%%%%%%%%%%%%%%% \newif\if@ocgxii@testphase \ExplSyntaxOn -\bool_if:nT { +\bool_if:nTF{ \bool_lazy_and_p:nn {\cs_if_exist_p:N \pdfmanagement_if_active_p:} { \pdfmanagement_if_active_p: } -}{\@ocgxii@testphasetrue} -\ExplSyntaxOff -\if@ocgxii@testphase\else -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% -% ocgx2.sty -% -% Copyright 2015--\today, Alexander Grahn -% -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% -% The intent of this package is to be a drop-in replacement for the already -% existing CTAN package `ocgx' by Paul Gaborit, and also for `ocg-p' and `ocg'. -% -% It re-implements the functionality of the ocg, ocgx and ocg-p packages -% and adds support for all known engines and backends including -% latex+dvips+ps2pdf, xelatex, latex+dvipdfmx, lualatex. -% -% With ocgx2, PDF layers may extend across page breaks. -% -% ocgx2 implements OCMDs (optional content membership dictionaries) -% -% Adds some minor improvements, such as package options, remembering option. -% settings of reopened ocgs, correct behaviour of ocg switching links that were -% themselves placed on layers, compatibility with the animate and media9 -% packages. -% -% Re-implements hyperref's `ocgcolorlinks' option to produce coloured links -% that may wrap around line breaks and page breaks. -% -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +}{\@ocgxii@testphasetrue}{ + %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + % + % ocgx2.sty + % + % Copyright 2015--\today, Alexander Grahn + % + %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + % + % The intent of this package is to be a drop-in replacement for the already + % existing CTAN package `ocgx' by Paul Gaborit, and also for `ocg-p' and `ocg'. + % + % It re-implements the functionality of the ocg, ocgx and ocg-p packages + % and adds support for all known engines and backends including + % latex+dvips+ps2pdf, xelatex, latex+dvipdfmx, lualatex. + % + % With ocgx2, PDF layers may extend across page breaks. + % + % ocgx2 implements OCMDs (optional content membership dictionaries) + % + % Adds some minor improvements, such as package options, remembering option. + % settings of reopened ocgs, correct behaviour of ocg switching links that were + % themselves placed on layers, compatibility with the animate and media9 + % packages. + % + % Re-implements hyperref's `ocgcolorlinks' option to produce coloured links + % that may wrap around line breaks and page breaks. + % + %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% This work may be distributed and/or modified under the -% conditions of the LaTeX Project Public License. -% -% The latest version of this license is in -% http://mirrors.ctan.org/macros/latex/base/lppl.txt -% -% This work has the LPPL maintenance status `maintained'. -% -% The Current Maintainer of this work is A. Grahn. + % This work may be distributed and/or modified under the + % conditions of the LaTeX Project Public License. + % + % The latest version of this license is in + % http://mirrors.ctan.org/macros/latex/base/lppl.txt + % + % This work has the LPPL maintenance status `maintained'. + % + % The Current Maintainer of this work is A. Grahn. -\RequirePackage{l3keys2e} + \RequirePackage{l3keys2e} -\def\g@ocgxii@date@tl{2021/06/11} -\def\g@ocgxii@version@tl{0.52} + \def\g@ocgxii@date@tl{2021/06/16} + \def\g@ocgxii@version@tl{0.53} -\ProvidesExplPackage{ocgx2}{\g@ocgxii@date@tl}{\g@ocgxii@version@tl} -{ports `ocgx' functionality to dvips+ps2pdf, xelatex and dvipdfmx} + \ProvidesExplPackage{ocgx2}{\g@ocgxii@date@tl}{\g@ocgxii@version@tl} + {ports `ocgx' functionality to dvips+ps2pdf, xelatex and dvipdfmx} -%creating global definitions -\cs_new_protected:Npn\ocgxii@newkey#1#2{\tl_gset:cx{#1}{#2}} -\cs_new_protected:Npn\ocgxii@newkeynoexp#1#2{\tl_gset:cn{#1}{#2}} + %creating global definitions + \cs_new_protected:Npn\ocgxii@newkey#1#2{\tl_gset:cx{#1}{#2}} + \cs_new_protected:Npn\ocgxii@newkeynoexp#1#2{\tl_gset:cn{#1}{#2}} -\AtBeginDocument{ - \iow_now:Nx\@mainaux{ - \token_to_str:N\providecommand\token_to_str:N\ocgxii@newkey[2]{} - } - \iow_now:Nx\@mainaux{ - \token_to_str:N\providecommand\token_to_str:N\ocgxii@newkeynoexp[2]{} - } - \iow_now:Nx\@mainaux{ - \token_to_str:N\providecommand\token_to_str:N\ocgxii@ocg@stack@on@page[2]{} - } - \iow_now:Nx\@mainaux{ - \token_to_str:N\providecommand - \token_to_str:N\ocgxii@lnkcol@stack@on@page[2]{} + \AtBeginDocument{ + \iow_now:Nx\@mainaux{ + \token_to_str:N\providecommand\token_to_str:N\ocgxii@newkey[2]{} + } + \iow_now:Nx\@mainaux{ + \token_to_str:N\providecommand\token_to_str:N\ocgxii@newkeynoexp[2]{} + } + \iow_now:Nx\@mainaux{ + \token_to_str:N\providecommand\token_to_str:N\ocgxii@ocg@stack@on@page[2]{} + } + \iow_now:Nx\@mainaux{ + \token_to_str:N\providecommand + \token_to_str:N\ocgxii@lnkcol@stack@on@page[2]{} + } } -} -\msg_set:nnn{ocgx2}{generic~msg}{#1\\#2} + \msg_set:nnn{ocgx2}{generic~msg}{#1\\#2} -\msg_set:nnn{ocgx2}{missing~package}{ - Package~`#1'~must~be~loaded~before~ocgx2.\\\\ - Put\\\\ - \space\space\string\usepackage#2{#1}\\ - \space\space\string\usepackage[ocgcolorlinks]{ocgx2}\\\\ - to~the~preamble~of~your~document. -} - -\msg_set:nnn{ocgx2}{beamer~and~ocgcolorlinks}{ - Option~`ocgcolorlinks'~cannot~be~used~with~class~Beamer.\\\\ - Using~`colorlinks'~instead. -} - -%package opts -%unknown package option error message -\msg_set:nnnn{ocgx2}{unknown~package~option}{Unknown~package~option~`#1'.}{ - Package option~'#1'~is~unknown;\\ - perhaps~it~is~spelled~incorrectly. -} + \msg_set:nnn{ocgx2}{missing~package}{ + Package~`#1'~must~be~loaded~before~ocgx2.\\\\ + Put\\\\ + \space\space\string\usepackage#2{#1}\\ + \space\space\string\usepackage[ocgcolorlinks]{ocgx2}\\\\ + to~the~preamble~of~your~document. + } -\bool_new:N\g_ocgxii_dvipdfmx_bool -\bool_new:N\l_ocgxii_tikz_bool -\bool_new:N\l_ocgxii_ocgcolorlinks_bool -\bool_new:N\g_ocgxii_showingui_bool -\bool_new:N\l_ocgxii_showingui_bool + \msg_set:nnn{ocgx2}{beamer~and~ocgcolorlinks}{ + Option~`ocgcolorlinks'~cannot~be~used~with~class~Beamer.\\\\ + Using~`colorlinks'~instead. + } -\keys_define:nn{ocgx2}{ - xetex .code:n = {}, %dummy + %package opts + %unknown package option error message + \msg_set:nnnn{ocgx2}{unknown~package~option}{Unknown~package~option~`#1'.}{ + Package option~'#1'~is~unknown;\\ + perhaps~it~is~spelled~incorrectly. + } - dvipdfmx .code:n = { - \PassOptionsToPackage{dvipdfmx}{ocgbase} - \PassOptionsToPackage{dvipdfmx}{pdfbase} - \bool_gset_true:N\g_ocgxii_dvipdfmx_bool - }, + \bool_new:N\g_ocgxii_dvipdfmx_bool + \bool_new:N\l_ocgxii_tikz_bool + \bool_new:N\l_ocgxii_ocgcolorlinks_bool + \bool_new:N\g_ocgxii_showingui_bool + \bool_new:N\l_ocgxii_showingui_bool - viewocg .choice:, - viewocg / always .code:n={ - \tl_gset:Nn\g_ocgxii_view_tl{/View<</ViewState/ON>>}}, - viewocg / never .code:n={ - \tl_gset:Nn\g_ocgxii_view_tl{/View<</ViewState/OFF>>}}, - viewocg / ifvisible .code:n={\tl_gclear_new:N\g_ocgxii_view_tl}, - viewocg .default:n={ifvisible}, + \keys_define:nn{ocgx2}{ + xetex .code:n = {}, %dummy - printocg .choice:, - printocg / always .code:n={ - \tl_gset:Nn\g_ocgxii_print_tl{/Print<</PrintState/ON>>}}, - printocg / never .code:n={ - \tl_gset:Nn\g_ocgxii_print_tl{/Print<</PrintState/OFF>>}}, - printocg / ifvisible .code:n={\tl_gclear_new:N\g_ocgxii_print_tl}, - printocg .default:n={ifvisible}, + dvipdfmx .code:n = { + \PassOptionsToPackage{dvipdfmx}{ocgbase} + \PassOptionsToPackage{dvipdfmx}{pdfbase} + \bool_gset_true:N\g_ocgxii_dvipdfmx_bool + }, - exportocg .choice:, - exportocg / always .code:n={ - \tl_gset:Nn\g_ocgxii_export_tl{/Export<</ExportState/ON>>}}, - exportocg / never .code:n={ - \tl_gset:Nn\g_ocgxii_export_tl{/Export<</ExportState/OFF>>}}, - exportocg / ifvisible .code:n={\tl_gclear_new:N\g_ocgxii_export_tl}, - exportocg .default:n={ifvisible}, + viewocg .choice:, + viewocg / always .code:n={ + \tl_gset:Nn\g_ocgxii_view_tl{/View<</ViewState/ON>>}}, + viewocg / never .code:n={ + \tl_gset:Nn\g_ocgxii_view_tl{/View<</ViewState/OFF>>}}, + viewocg / ifvisible .code:n={\tl_gclear_new:N\g_ocgxii_view_tl}, + viewocg .default:n={ifvisible}, + + printocg .choice:, + printocg / always .code:n={ + \tl_gset:Nn\g_ocgxii_print_tl{/Print<</PrintState/ON>>}}, + printocg / never .code:n={ + \tl_gset:Nn\g_ocgxii_print_tl{/Print<</PrintState/OFF>>}}, + printocg / ifvisible .code:n={\tl_gclear_new:N\g_ocgxii_print_tl}, + printocg .default:n={ifvisible}, + + exportocg .choice:, + exportocg / always .code:n={ + \tl_gset:Nn\g_ocgxii_export_tl{/Export<</ExportState/ON>>}}, + exportocg / never .code:n={ + \tl_gset:Nn\g_ocgxii_export_tl{/Export<</ExportState/OFF>>}}, + exportocg / ifvisible .code:n={\tl_gclear_new:N\g_ocgxii_export_tl}, + exportocg .default:n={ifvisible}, + + showingui .choices:nn = {true,false,always,never,iffirstuse}{ + \bool_if:nTF{ + \str_if_eq_p:ee{#1}{false} || + \str_if_eq_p:ee{#1}{never} + }{ + \bool_gset_false:N\g_ocgxii_showingui_bool + }{ + \bool_gset_true:N\g_ocgxii_showingui_bool + } + }, + showingui .default:n={true}, - showingui .choices:nn = {true,false,always,never,iffirstuse}{ - \bool_if:nTF{ - \str_if_eq_p:ee{#1}{false} || - \str_if_eq_p:ee{#1}{never} - }{ - \bool_gset_false:N\g_ocgxii_showingui_bool - }{ - \bool_gset_true:N\g_ocgxii_showingui_bool - } - }, - showingui .default:n={true}, + listintoolbar .meta:n = {showingui=#1}, + listintoolbar .default:n={true}, - listintoolbar .meta:n = {showingui=#1}, - listintoolbar .default:n={true}, + tikz .bool_set:N = \l_ocgxii_tikz_bool, + tikz .default:n = true, - tikz .bool_set:N = \l_ocgxii_tikz_bool, - tikz .default:n = true, + ocgcolorlinks .bool_set:N = \l_ocgxii_ocgcolorlinks_bool, + ocgcolorlinks .default:n = true, - ocgcolorlinks .bool_set:N = \l_ocgxii_ocgcolorlinks_bool, - ocgcolorlinks .default:n = true, - - unknown .code:n = { - \msg_error:nnx{ocgx2}{unknown~package~option}{\l_keys_key_tl} + unknown .code:n = { + \msg_error:nnx{ocgx2}{unknown~package~option}{\l_keys_key_tl} + } } -} -%package options preset -\keys_set:nn{ocgx2}{viewocg,printocg,exportocg,showingui,tikz=false} + %package options preset + \keys_set:nn{ocgx2}{viewocg,printocg,exportocg,showingui,tikz=false} -%process package options -\ProcessKeysOptions{ocgx2} -\sys_if_engine_xetex:T{\bool_gset_true:N\g_ocgxii_dvipdfmx_bool} + %process package options + \ProcessKeysOptions{ocgx2} + \sys_if_engine_xetex:T{\bool_gset_true:N\g_ocgxii_dvipdfmx_bool} -\RequirePackage{ocgbase} %also loads pdfbase.sty + \RequirePackage{ocgbase} %also loads pdfbase.sty -%re-implement ocg-p's `ocg' environment -\DeclareDocumentEnvironment{ocg}{O{}mmm}{ - \ocgxii_begin_ocg:nnnn{#1}{#2}{#3}{#4} -}{ - \ocgxii_end_ocg: -} + %re-implement ocg-p's `ocg' environment + \DeclareDocumentEnvironment{ocg}{O{}mmm}{ + \ocgxii_begin_ocg:nnnn{#1}{#2}{#3}{#4} + }{ + \ocgxii_end_ocg: + } -\cs_new_protected_nopar:Nn\ocgxii_begin_ocg:nnnn{ - \group_begin: - \ocgxii_reset_cmd_opts: % ... to the user-set package options - \tl_set:Nx\l_ocgxii_argiv_tl{\tl_trim_spaces:n{#4}} - \tl_if_exist:cTF{ocgxii_ocg_#3}{ %re-open existing layer - \tl_set:Nx\l_tempa_tl{\tl_use:c{ocgxii_ocg_#3.opts},#1} - \tl_gset:cx{ocgxii_ocg_#3.opts}{\l_tempa_tl} %new options appended - \keys_set:nV{ocgx2/ocgenv}\l_tempa_tl - \bool_if:nTF{ %initial visibility - \str_if_eq_p:ee{\l_ocgxii_argiv_tl}{1} || - \str_if_eq_p:ee{\l_ocgxii_argiv_tl}{on} || - \str_if_eq_p:ee{\l_ocgxii_argiv_tl}{true} - }{ - \ocgbase_del_from_off_list:n{\tl_use:c{ocgxii_ocg_#3}} + \cs_new_protected_nopar:Nn\ocgxii_begin_ocg:nnnn{ + \group_begin: + \ocgxii_reset_cmd_opts: % ... to the user-set package options + \tl_set:Nx\l_ocgxii_argiv_tl{\tl_trim_spaces:n{#4}} + \tl_if_exist:cTF{ocgxii_ocg_#3}{ %re-open existing layer + \tl_set:Nx\l_tempa_tl{\tl_use:c{ocgxii_ocg_#3.opts},#1} + \tl_gset:cx{ocgxii_ocg_#3.opts}{\l_tempa_tl} %new options appended + \keys_set:nV{ocgx2/ocgenv}\l_tempa_tl + \bool_if:nTF{ %initial visibility + \str_if_eq_p:ee{\l_ocgxii_argiv_tl}{1} || + \str_if_eq_p:ee{\l_ocgxii_argiv_tl}{on} || + \str_if_eq_p:ee{\l_ocgxii_argiv_tl}{true} + }{ + \ocgbase_del_from_off_list:n{\tl_use:c{ocgxii_ocg_#3}} + }{ + \ocgbase_add_to_off_list:n{\tl_use:c{ocgxii_ocg_#3}} + } }{ - \ocgbase_add_to_off_list:n{\tl_use:c{ocgxii_ocg_#3}} - } - }{ - \tl_set:Nx\l_tempa_tl{#1} - \tl_gset:cx{ocgxii_ocg_#3.opts}{\l_tempa_tl} - \keys_set:nV{ocgx2/ocgenv}\l_tempa_tl - \ocgbase_new_ocg:nnn{#2}{ - \l_ocgxii_view_tl\l_ocgxii_print_tl\l_ocgxii_export_tl - }{\l_ocgxii_argiv_tl} - \tl_gset:cx{ocgxii_ocg_#3}{\ocgbase_last_ocg:} - \tl_gset:cx{ocgx2.ocg.\ocgbase_last_ocg:}{\ocgbase_last_ocg:} - \tl_gset:cx{ocgx2.ocg.#3}{\ocgbase_last_ocg:} - \iow_now:Nx\@mainaux{ - \token_to_str:N\ocgxii@newkey{ocgx2.ocg.#3}{\ocgbase_last_ocg:} + \tl_set:Nx\l_tempa_tl{#1} + \tl_gset:cx{ocgxii_ocg_#3.opts}{\l_tempa_tl} + \keys_set:nV{ocgx2/ocgenv}\l_tempa_tl + \ocgbase_new_ocg:nnn{#2}{ + \l_ocgxii_view_tl\l_ocgxii_print_tl\l_ocgxii_export_tl + }{\l_ocgxii_argiv_tl} + \tl_gset:cx{ocgxii_ocg_#3}{\ocgbase_last_ocg:} + \tl_gset:cx{ocgx2.ocg.\ocgbase_last_ocg:}{\ocgbase_last_ocg:} + \tl_gset:cx{ocgx2.ocg.#3}{\ocgbase_last_ocg:} + \iow_now:Nx\@mainaux{ + \token_to_str:N\ocgxii@newkey{ocgx2.ocg.#3}{\ocgbase_last_ocg:} + } } - } - \bool_if:nT{ - !\cs_if_exist:cTF{ocgx2.ocg.#3}{ - \str_if_eq_p:ee{\tl_use:c{ocgx2.ocg.#3}}{\tl_use:c{ocgxii_ocg_#3}} + \bool_if:nT{ + !\cs_if_exist:cTF{ocgx2.ocg.#3}{ + \str_if_eq_p:ee{\tl_use:c{ocgx2.ocg.#3}}{\tl_use:c{ocgxii_ocg_#3}} + }{ + \c_false_bool + } }{ - \c_false_bool + \tl_if_exist:NF\g_ocgxii_rerunwarned_tl{ + \tl_new:N\g_ocgxii_rerunwarned_tl + \AtEndDocument{\msg_warning:nn{ocgx2}{rerun}} + } } - }{ - \tl_if_exist:NF\g_ocgxii_rerunwarned_tl{ - \tl_new:N\g_ocgxii_rerunwarned_tl - \AtEndDocument{\msg_warning:nn{ocgx2}{rerun}} + \seq_map_inline:Nn\l_ocgxii_rbgrps_seq{% process list of radio btn groups + \ocgbase_add_ocg_to_radiobtn_grp:nn{##1}{\tl_use:c{ocgxii_ocg_#3}} } - } - \seq_map_inline:Nn\l_ocgxii_rbgrps_seq{% process list of radio btn groups - \ocgbase_add_ocg_to_radiobtn_grp:nn{##1}{\tl_use:c{ocgxii_ocg_#3}} - } - \ocgbase_open_stack_push:n{\tl_use:c{ocgxii_ocg_#3}} + \ocgbase_open_stack_push:n{\tl_use:c{ocgxii_ocg_#3}} + \ocgxii_make_oc_entry: + \ocgxii_stack_shipout:NN\ocgxii@ocg@stack@on@page\g_ocgbase_open_stack_seq + % insert OCG into Order tree + \bool_if:NT\l_ocgxii_showingui_bool{ + \ocgbase_tree_node_begin:n{\tl_use:c{ocgxii_ocg_#3}} + } + \group_end: + \ocgbase_oc_bdc:n{\tl_use:c{ocgxii_ocg_#3}} + \ignorespaces + } + + \cs_new_protected_nopar:Nn\ocgxii_end_ocg:{ + \unskip + \ocgbase_oc_emc: + \ocgbase_tree_node_end: + \ocgbase_open_stack_pop:N\l_trash_tl \ocgxii_make_oc_entry: \ocgxii_stack_shipout:NN\ocgxii@ocg@stack@on@page\g_ocgbase_open_stack_seq - % insert OCG into Order tree - \bool_if:NT\l_ocgxii_showingui_bool{ - \ocgbase_tree_node_begin:n{\tl_use:c{ocgxii_ocg_#3}} - } - \group_end: - \ocgbase_oc_bdc:n{\tl_use:c{ocgxii_ocg_#3}} - \ignorespaces -} - -\cs_new_protected_nopar:Nn\ocgxii_end_ocg:{ - \unskip - \ocgbase_oc_emc: - \ocgbase_tree_node_end: - \ocgbase_open_stack_pop:N\l_trash_tl - \ocgxii_make_oc_entry: - \ocgxii_stack_shipout:NN\ocgxii@ocg@stack@on@page\g_ocgbase_open_stack_seq -} + } -% OCMD implementation -\DeclareDocumentEnvironment{ocmd}{O{}m}{ - \ocgxii_begin_ocmd:on{#1}{#2} - \ignorespaces -}{ - \unskip - \ocgxii_end_ocmd: -} + % OCMD implementation + \DeclareDocumentEnvironment{ocmd}{O{}m}{ + \ocgxii_begin_ocmd:on{#1}{#2} + \ignorespaces + }{ + \unskip + \ocgxii_end_ocmd: + } -\cs_new_protected_nopar:Nn\ocgxii_begin_ocmd:nn{ % #1: id, - \bool_if:nTF{ % #2: visib. expr. or policy - \tl_if_blank:oTF{#1}{ - \c_false_bool + \cs_new_protected_nopar:Nn\ocgxii_begin_ocmd:nn{ % #1: id, + \bool_if:nTF{ % #2: visib. expr. or policy + \tl_if_blank:oTF{#1}{ + \c_false_bool + }{ + \tl_if_exist_p:c{ocgxii_ocmd_#1} + } }{ - \tl_if_exist_p:c{ocgxii_ocmd_#1} - } - }{ - % re-open existing ocmd - \tl_set_eq:Nc\l_ocgxii_cur_ocmd_tl{ocgxii_ocmd_#1} - }{ - % new ocmd - \group_begin: - \ocgxii_ocmd_read_visbility:nN{#2}\l_ocgxii_ocmd_visibility_tl - \pbs_pdfobj:nnn{}{dict}{/Type/OCMD\l_ocgxii_ocmd_visibility_tl} - %if only visb. policy is given, generate equivalent visib. expression, - %needed for stack of open layers and \ocgxii_make_oc_entry: command - \ocgxii_ocmd_make_equiv_ve:nN{#2}\l_ocgxii_ocmd_equiv_ve_tl - \tl_gset:co{ocgx2.ocmd.\pbs_pdflastobj:}{\l_ocgxii_ocmd_equiv_ve_tl} - \group_end: - \tl_set:Nx\l_ocgxii_cur_ocmd_tl{\pbs_pdflastobj:} - \tl_if_blank:oF{#1}{ - \tl_gset:cx{ocgxii_ocmd_#1}{\pbs_pdflastobj:} - \iow_now:Nn\@mainaux{\ocgxii@newkeynoexp{ocgx2.ocmd.#1}{#2}} + % re-open existing ocmd + \tl_set_eq:Nc\l_ocgxii_cur_ocmd_tl{ocgxii_ocmd_#1} + }{ + % new ocmd + \group_begin: + \ocgxii_ocmd_read_visbility:nN{#2}\l_ocgxii_ocmd_visibility_tl + \pbs_pdfobj:nnn{}{dict}{/Type/OCMD\l_ocgxii_ocmd_visibility_tl} + %if only visb. policy is given, generate equivalent visib. expression, + %needed for stack of open layers and \ocgxii_make_oc_entry: command + \ocgxii_ocmd_make_equiv_ve:nN{#2}\l_ocgxii_ocmd_equiv_ve_tl + \tl_gset:co{ocgx2.ocmd.\pbs_pdflastobj:}{\l_ocgxii_ocmd_equiv_ve_tl} + \group_end: + \tl_set:Nx\l_ocgxii_cur_ocmd_tl{\pbs_pdflastobj:} + \tl_if_blank:oF{#1}{ + \tl_gset:cx{ocgxii_ocmd_#1}{\pbs_pdflastobj:} + \iow_now:Nn\@mainaux{\ocgxii@newkeynoexp{ocgx2.ocmd.#1}{#2}} + } } + \ocgbase_open_stack_push:n{\l_ocgxii_cur_ocmd_tl} + \ocgxii_make_oc_entry: + \ocgxii_stack_shipout:NN\ocgxii@ocg@stack@on@page\g_ocgbase_open_stack_seq + \ocgbase_oc_bdc:n{\l_ocgxii_cur_ocmd_tl} + } + \cs_generate_variant:Nn\ocgxii_begin_ocmd:nn{on} + \cs_new_protected_nopar:Nn\ocgxii_end_ocmd:{ + \ocgbase_oc_emc: + \ocgbase_open_stack_pop:N\l_trash_tl + \ocgxii_make_oc_entry: %update + \ocgxii_stack_shipout:NN\ocgxii@ocg@stack@on@page\g_ocgbase_open_stack_seq } - \ocgbase_open_stack_push:n{\l_ocgxii_cur_ocmd_tl} - \ocgxii_make_oc_entry: - \ocgxii_stack_shipout:NN\ocgxii@ocg@stack@on@page\g_ocgbase_open_stack_seq - \ocgbase_oc_bdc:n{\l_ocgxii_cur_ocmd_tl} -} -\cs_generate_variant:Nn\ocgxii_begin_ocmd:nn{on} -\cs_new_protected_nopar:Nn\ocgxii_end_ocmd:{ - \ocgbase_oc_emc: - \ocgbase_open_stack_pop:N\l_trash_tl - \ocgxii_make_oc_entry: %update - \ocgxii_stack_shipout:NN\ocgxii@ocg@stack@on@page\g_ocgbase_open_stack_seq -} -%visibility expressions -\cs_new_protected_nopar:Nn\ocgxii_ocmd_read_visbility:nN{ - \int_zero:N\l_ocgxii_ve_cnt_int - \int_zero:N\l_ocgxii_vp_cnt_int - \tl_clear_new:N#2 - \clist_map_inline:nn{#1}{\ocgxii_omcd_parse_argument:nN{##1}#2} -} -\cs_new_protected_nopar:Nn\ocgxii_omcd_parse_argument:nN{ - \cs_set_eq:NN\AllOn \ocgxii_vp_check:n - \cs_set_eq:NN\AnyOn \ocgxii_vp_check:n - \cs_set_eq:NN\AnyOff\ocgxii_vp_check:n - \cs_set_eq:NN\AllOff\ocgxii_vp_check:n - \cs_set_eq:NN\Not\ocgxii_ve_check:n - \cs_set_eq:NN\And\ocgxii_ve_check:n - \cs_set_eq:NN\Or \ocgxii_ve_check:n - \tl_if_exist:cTF{ocgx2.ocg.#1}{ - \msg_error:nnxx{ocgx2}{generic~msg}{ - OCG~ids~cannot~be~directly~used~in~the~visibility~argument~of~an~ - `ocmd'~environment. - }{\g_ocgxii_help_msg_tl} - }{ - \tl_if_exist:cTF{ocgx2.ocmd.#1}{ + %visibility expressions + \cs_new_protected_nopar:Nn\ocgxii_ocmd_read_visbility:nN{ + \int_zero:N\l_ocgxii_ve_cnt_int + \int_zero:N\l_ocgxii_vp_cnt_int + \tl_clear_new:N#2 + \clist_map_inline:nn{#1}{\ocgxii_omcd_parse_argument:nN{##1}#2} + } + \cs_new_protected_nopar:Nn\ocgxii_omcd_parse_argument:nN{ + \cs_set_eq:NN\AllOn \ocgxii_vp_check:n + \cs_set_eq:NN\AnyOn \ocgxii_vp_check:n + \cs_set_eq:NN\AnyOff\ocgxii_vp_check:n + \cs_set_eq:NN\AllOff\ocgxii_vp_check:n + \cs_set_eq:NN\Not\ocgxii_ve_check:n + \cs_set_eq:NN\And\ocgxii_ve_check:n + \cs_set_eq:NN\Or \ocgxii_ve_check:n + \tl_if_exist:cTF{ocgx2.ocg.#1}{ \msg_error:nnxx{ocgx2}{generic~msg}{ - OCMD~ids~cannot~be~directly~used~in~the~visibility~argument~of~an~ + OCG~ids~cannot~be~directly~used~in~the~visibility~argument~of~an~ `ocmd'~environment. }{\g_ocgxii_help_msg_tl} }{ - \tl_if_exist:cTF{ocgxii_#1}{ - \str_case_e:nn{\tl_use:c{ocgxii_#1}}{ - {VisExpr}{ - \int_incr:N\l_ocgxii_ve_cnt_int - \int_compare:nNnTF{\l_ocgxii_ve_cnt_int}>{1}{ - \msg_error:nnnn{ocgx2}{generic~msg}{ - More~than~one~visibility~expression~passed~to~the~`ocmd'~ - environment. + \tl_if_exist:cTF{ocgx2.ocmd.#1}{ + \msg_error:nnxx{ocgx2}{generic~msg}{ + OCMD~ids~cannot~be~directly~used~in~the~visibility~argument~of~an~ + `ocmd'~environment. + }{\g_ocgxii_help_msg_tl} + }{ + \tl_if_exist:cTF{ocgxii_#1}{ + \str_case_e:nn{\tl_use:c{ocgxii_#1}}{ + {VisExpr}{ + \int_incr:N\l_ocgxii_ve_cnt_int + \int_compare:nNnTF{\l_ocgxii_ve_cnt_int}>{1}{ + \msg_error:nnnn{ocgx2}{generic~msg}{ + More~than~one~visibility~expression~passed~to~the~`ocmd'~ + environment. + }{ + At~most~one~visibility~expression~is~allowed.~A~visibility~ + expression~is~a~boolean~expression~built~by~nesting~any~number~of~ + \And{...},~\Or{...},~\Not{...}~commands. + } }{ - At~most~one~visibility~expression~is~allowed.~A~visibility~ - expression~is~a~boolean~expression~built~by~nesting~any~number~of~ - \And{...},~\Or{...},~\Not{...}~commands. + \tl_put_right:Nx#2{/VE~} + \ocgxii_ocmd_expression_parser:nN{#1}#2 } - }{ - \tl_put_right:Nx#2{/VE~} - \ocgxii_ocmd_expression_parser:nN{#1}#2 } - } - {VisPol}{ - \int_incr:N\l_ocgxii_vp_cnt_int - \int_compare:nNnTF{\l_ocgxii_vp_cnt_int}>{1}{ - \msg_error:nnnn{ocgx2}{generic~msg}{ - More~than~one~visibility~policy~passed~to~the~`ocmd'~environment. + {VisPol}{ + \int_incr:N\l_ocgxii_vp_cnt_int + \int_compare:nNnTF{\l_ocgxii_vp_cnt_int}>{1}{ + \msg_error:nnnn{ocgx2}{generic~msg}{ + More~than~one~visibility~policy~passed~to~the~`ocmd'~environment. + }{ + At~most~one~visibility~policy~out~of~\AllOn{...},~\AnyOn{...},~ + \AnyOff{...},~\AllOff{...}~is~allowed.~Any~number~of~OCG~IDs,~ + separated~by~commas,~may~be~passed~as~arguments~to~these~ + commands,~but~commands~may~not~be~nested.~For~complex~visibilty~ + relations,~consider~using~a~visibility~expression. + } }{ - At~most~one~visibility~policy~out~of~\AllOn{...},~\AnyOn{...},~ - \AnyOff{...},~\AllOff{...}~is~allowed.~Any~number~of~OCG~IDs,~ - separated~by~commas,~may~be~passed~as~arguments~to~these~ - commands,~but~commands~may~not~be~nested.~For~complex~visibilty~ - relations,~consider~using~a~visibility~expression. + \ocgxii_ocmd_expression_parser:nN{#1}#2 } - }{ - \ocgxii_ocmd_expression_parser:nN{#1}#2 } } + }{ + \msg_error:nnxx{ocgx2}{generic~msg}{ + The~visibility~argument~of~the~`ocmd'~environment~cannot~be~parsed. + }{\g_ocgxii_help_msg_tl} } - }{ - \msg_error:nnxx{ocgx2}{generic~msg}{ - The~visibility~argument~of~the~`ocmd'~environment~cannot~be~parsed. - }{\g_ocgxii_help_msg_tl} } } } -} -\cs_generate_variant:Nn\ocgxii_omcd_parse_argument:nN{xN} -\cs_generate_variant:Nn\ocgxii_omcd_parse_argument:nN{oN} -\cs_new_protected_nopar:Nn\ocgxii_ocmd_expression_parser:nN{ - \cs_set_eq:NN\AllOn \ocgxii_vp_check:n - \cs_set_eq:NN\AnyOn \ocgxii_vp_check:n - \cs_set_eq:NN\AnyOff\ocgxii_vp_check:n - \cs_set_eq:NN\AllOff\ocgxii_vp_check:n - \cs_set_eq:NN\Not\ocgxii_ve_check:n - \cs_set_eq:NN\And\ocgxii_ve_check:n - \cs_set_eq:NN\Or \ocgxii_ve_check:n - \tl_if_exist:cTF{ocgx2.ocg.#1}{% ocg reference - \tl_put_right:Nx#2{~\tl_use:c{ocgx2.ocg.#1}} - }{ - \tl_if_exist:cTF{ocgx2.ocmd.#1}{% ocmd reference - \ocgxii_ocmd_expression_parser:vN{ocgx2.ocmd.#1}#2 + \cs_generate_variant:Nn\ocgxii_omcd_parse_argument:nN{xN} + \cs_generate_variant:Nn\ocgxii_omcd_parse_argument:nN{oN} + \cs_new_protected_nopar:Nn\ocgxii_ocmd_expression_parser:nN{ + \cs_set_eq:NN\AllOn \ocgxii_vp_check:n + \cs_set_eq:NN\AnyOn \ocgxii_vp_check:n + \cs_set_eq:NN\AnyOff\ocgxii_vp_check:n + \cs_set_eq:NN\AllOff\ocgxii_vp_check:n + \cs_set_eq:NN\Not\ocgxii_ve_check:n + \cs_set_eq:NN\And\ocgxii_ve_check:n + \cs_set_eq:NN\Or \ocgxii_ve_check:n + \tl_if_exist:cTF{ocgx2.ocg.#1}{% ocg reference + \tl_put_right:Nx#2{~\tl_use:c{ocgx2.ocg.#1}} }{ - \tl_if_exist:cTF{ocgxii_#1}{% visib. bool expression or policy directive - \bool_if:nTF{ - \str_if_eq_p:ee{\tl_use:c{ocgxii_#1}}{VisExpr} && - \bool_if_p:N\l_ocgxii_vp_open_bool || - \str_if_eq_p:ee{\tl_use:c{ocgxii_#1}}{VisPol} && - \bool_if_p:N\l_ocgxii_ve_open_bool - }{ - \msg_error:nnxx{ocgx2}{generic~msg}{ - Visibility~policy~and~expression~commands~cannot~be~mixed. - }{\g_ocgxii_help_msg_tl} - }{ - \bool_if:nT{ + \tl_if_exist:cTF{ocgx2.ocmd.#1}{% ocmd reference + \ocgxii_ocmd_expression_parser:vN{ocgx2.ocmd.#1}#2 + }{ + \tl_if_exist:cTF{ocgxii_#1}{% visib. bool expression or policy directive + \bool_if:nTF{ + \str_if_eq_p:ee{\tl_use:c{ocgxii_#1}}{VisExpr} && + \bool_if_p:N\l_ocgxii_vp_open_bool || \str_if_eq_p:ee{\tl_use:c{ocgxii_#1}}{VisPol} && - \bool_if_p:N\l_ocgxii_vp_open_bool + \bool_if_p:N\l_ocgxii_ve_open_bool }{ \msg_error:nnxx{ocgx2}{generic~msg}{ - Visibility~policy~commands~cannot~be~nested.~For~more~complex~ - visibilty~relations,~consider~using~a~visibility~expression. + Visibility~policy~and~expression~commands~cannot~be~mixed. }{\g_ocgxii_help_msg_tl} + }{ + \bool_if:nT{ + \str_if_eq_p:ee{\tl_use:c{ocgxii_#1}}{VisPol} && + \bool_if_p:N\l_ocgxii_vp_open_bool + }{ + \msg_error:nnxx{ocgx2}{generic~msg}{ + Visibility~policy~commands~cannot~be~nested.~For~more~complex~ + visibilty~relations,~consider~using~a~visibility~expression. + }{\g_ocgxii_help_msg_tl} + } + } + \cs_set_eq:NN\AllOn \ocgxii_vp_allon:nN + \cs_set_eq:NN\AnyOn \ocgxii_vp_anyon:nN + \cs_set_eq:NN\AnyOff\ocgxii_vp_anyoff:nN + \cs_set_eq:NN\AllOff\ocgxii_vp_alloff:nN + \cs_set_eq:NN\Not\ocgxii_ve_not:nN + \cs_set_eq:NN\And\ocgxii_ve_and:nN + \cs_set_eq:NN\Or \ocgxii_ve_or:nN + #1#2 + }{ + \msg_warning:nnx{ocgx2}{undefined~OCG}{#1} + \tl_if_exist:NF\g_ocgxii_refundefwarned_tl{ + \tl_new:N\g_ocgxii_refundefwarned_tl + \AtEndDocument{\msg_warning:nn{ocgx2}{undefined~OCGs}} } - } - \cs_set_eq:NN\AllOn \ocgxii_vp_allon:nN - \cs_set_eq:NN\AnyOn \ocgxii_vp_anyon:nN - \cs_set_eq:NN\AnyOff\ocgxii_vp_anyoff:nN - \cs_set_eq:NN\AllOff\ocgxii_vp_alloff:nN - \cs_set_eq:NN\Not\ocgxii_ve_not:nN - \cs_set_eq:NN\And\ocgxii_ve_and:nN - \cs_set_eq:NN\Or \ocgxii_ve_or:nN - #1#2 - }{ - \msg_warning:nnx{ocgx2}{undefined~OCG}{#1} - \tl_if_exist:NF\g_ocgxii_refundefwarned_tl{ - \tl_new:N\g_ocgxii_refundefwarned_tl - \AtEndDocument{\msg_warning:nn{ocgx2}{undefined~OCGs}} } } } } -} -\cs_generate_variant:Nn\ocgxii_ocmd_expression_parser:nN{vN} -% visib. policy directives -\cs_new_protected_nopar:Nn\ocgxii_vp_allon:nN{ - \bool_set_true:N\l_ocgxii_vp_open_bool - \tl_put_right:Nx#2{/P/AllOn/OCGs~\g_ocgxii_left_bracket_tl} - \clist_map_inline:nn{#1}{\ocgxii_ocmd_expression_parser:nN{##1}#2} - \tl_put_right:Nx#2{\g_ocgxii_right_bracket_tl} - \bool_set_false:N\l_ocgxii_vp_open_bool -} -\cs_new_protected_nopar:Nn\ocgxii_vp_anyon:nN{ - \bool_set_true:N\l_ocgxii_vp_open_bool - \tl_gput_right:Nx#2{/P/AnyOn/OCGs~\g_ocgxii_left_bracket_tl} - \clist_map_inline:nn{#1}{\ocgxii_ocmd_expression_parser:nN{##1}#2} - \tl_gput_right:Nx#2{\g_ocgxii_right_bracket_tl} - \bool_set_false:N\l_ocgxii_vp_open_bool -} -\cs_new_protected_nopar:Nn\ocgxii_vp_anyoff:nN{ - \bool_set_true:N\l_ocgxii_vp_open_bool - \tl_gput_right:Nx#2{/P/AnyOff/OCGs~\g_ocgxii_left_bracket_tl} - \clist_map_inline:nn{#1}{\ocgxii_ocmd_expression_parser:nN{##1}#2} - \tl_gput_right:Nx#2{\g_ocgxii_right_bracket_tl} - \bool_set_false:N\l_ocgxii_vp_open_bool -} -\cs_new_protected_nopar:Nn\ocgxii_vp_alloff:nN{ - \bool_set_true:N\l_ocgxii_vp_open_bool - \tl_gput_right:Nx#2{/P/AllOff/OCGs~\g_ocgxii_left_bracket_tl} - \clist_map_inline:nn{#1}{\ocgxii_ocmd_expression_parser:nN{##1}#2} - \tl_gput_right:Nx#2{\g_ocgxii_right_bracket_tl} - \bool_set_false:N\l_ocgxii_vp_open_bool -} -% policy to expression conversion -\cs_new_protected_nopar:Nn\ocgxii_ocmd_make_equiv_ve:nN{ - \int_zero:N\l_ocgxii_ve_cnt_int - \tl_clear_new:N#2 - \clist_map_inline:nn{#1}{\ocgxii_omcd_convert_vp:nN{##1}#2} -} -\cs_new_protected_nopar:Nn\ocgxii_omcd_convert_vp:nN{ - \cs_set_eq:NN\AllOn \ocgxii_vp_check:n - \cs_set_eq:NN\AnyOn \ocgxii_vp_check:n - \cs_set_eq:NN\AnyOff\ocgxii_vp_check:n - \cs_set_eq:NN\AllOff\ocgxii_vp_check:n - \cs_set_eq:NN\Not\ocgxii_ve_check:n - \cs_set_eq:NN\And\ocgxii_ve_check:n - \cs_set_eq:NN\Or \ocgxii_ve_check:n - \tl_if_exist:cT{ocgxii_#1}{ - \str_case_e:nn{\tl_use:c{ocgxii_#1}}{ - {VisExpr}{ - \int_incr:N\l_ocgxii_ve_cnt_int - \tl_set:Nn#2{#1} - } - {VisPol}{ - \int_compare:nNnT{\l_ocgxii_ve_cnt_int}={0}{ - \cs_set_eq:NN\AllOn \ocgxii_allon_to_ve:n - \cs_set_eq:NN\AnyOn \ocgxii_anyon_to_ve:n - \cs_set_eq:NN\AnyOff\ocgxii_anyoff_to_ve:n - \cs_set_eq:NN\AllOff\ocgxii_alloff_to_ve:n - \tl_set:No#2{#1} + \cs_generate_variant:Nn\ocgxii_ocmd_expression_parser:nN{vN} + % visib. policy directives + \cs_new_protected_nopar:Nn\ocgxii_vp_allon:nN{ + \bool_set_true:N\l_ocgxii_vp_open_bool + \tl_put_right:Nx#2{/P/AllOn/OCGs~\g_ocgxii_left_bracket_tl} + \clist_map_inline:nn{#1}{\ocgxii_ocmd_expression_parser:nN{##1}#2} + \tl_put_right:Nx#2{\g_ocgxii_right_bracket_tl} + \bool_set_false:N\l_ocgxii_vp_open_bool + } + \cs_new_protected_nopar:Nn\ocgxii_vp_anyon:nN{ + \bool_set_true:N\l_ocgxii_vp_open_bool + \tl_gput_right:Nx#2{/P/AnyOn/OCGs~\g_ocgxii_left_bracket_tl} + \clist_map_inline:nn{#1}{\ocgxii_ocmd_expression_parser:nN{##1}#2} + \tl_gput_right:Nx#2{\g_ocgxii_right_bracket_tl} + \bool_set_false:N\l_ocgxii_vp_open_bool + } + \cs_new_protected_nopar:Nn\ocgxii_vp_anyoff:nN{ + \bool_set_true:N\l_ocgxii_vp_open_bool + \tl_gput_right:Nx#2{/P/AnyOff/OCGs~\g_ocgxii_left_bracket_tl} + \clist_map_inline:nn{#1}{\ocgxii_ocmd_expression_parser:nN{##1}#2} + \tl_gput_right:Nx#2{\g_ocgxii_right_bracket_tl} + \bool_set_false:N\l_ocgxii_vp_open_bool + } + \cs_new_protected_nopar:Nn\ocgxii_vp_alloff:nN{ + \bool_set_true:N\l_ocgxii_vp_open_bool + \tl_gput_right:Nx#2{/P/AllOff/OCGs~\g_ocgxii_left_bracket_tl} + \clist_map_inline:nn{#1}{\ocgxii_ocmd_expression_parser:nN{##1}#2} + \tl_gput_right:Nx#2{\g_ocgxii_right_bracket_tl} + \bool_set_false:N\l_ocgxii_vp_open_bool + } + % policy to expression conversion + \cs_new_protected_nopar:Nn\ocgxii_ocmd_make_equiv_ve:nN{ + \int_zero:N\l_ocgxii_ve_cnt_int + \tl_clear_new:N#2 + \clist_map_inline:nn{#1}{\ocgxii_omcd_convert_vp:nN{##1}#2} + } + \cs_new_protected_nopar:Nn\ocgxii_omcd_convert_vp:nN{ + \cs_set_eq:NN\AllOn \ocgxii_vp_check:n + \cs_set_eq:NN\AnyOn \ocgxii_vp_check:n + \cs_set_eq:NN\AnyOff\ocgxii_vp_check:n + \cs_set_eq:NN\AllOff\ocgxii_vp_check:n + \cs_set_eq:NN\Not\ocgxii_ve_check:n + \cs_set_eq:NN\And\ocgxii_ve_check:n + \cs_set_eq:NN\Or \ocgxii_ve_check:n + \tl_if_exist:cT{ocgxii_#1}{ + \str_case_e:nn{\tl_use:c{ocgxii_#1}}{ + {VisExpr}{ + \int_incr:N\l_ocgxii_ve_cnt_int + \tl_set:Nn#2{#1} + } + {VisPol}{ + \int_compare:nNnT{\l_ocgxii_ve_cnt_int}={0}{ + \cs_set_eq:NN\AllOn \ocgxii_allon_to_ve:n + \cs_set_eq:NN\AnyOn \ocgxii_anyon_to_ve:n + \cs_set_eq:NN\AnyOff\ocgxii_anyoff_to_ve:n + \cs_set_eq:NN\AllOff\ocgxii_alloff_to_ve:n + \tl_set:No#2{#1} + } } } } } -} -\cs_new_protected_nopar:Nn\ocgxii_allon_to_ve:n{\And{#1}} -\cs_new_protected_nopar:Nn\ocgxii_anyon_to_ve:n{\Or{#1}} -\cs_new_protected_nopar:Nn\ocgxii_anyoff_to_ve:n{\Not{\And{#1}}} -\cs_new_protected_nopar:Nn\ocgxii_alloff_to_ve:n{\Not{\Or{#1}}} -% visib. boolean expressions -\cs_new_protected_nopar:Nn\ocgxii_ve_and:nN{ - \bool_set_true:N\l_ocgxii_ve_open_bool - \tl_put_right:Nx#2{\g_ocgxii_left_bracket_tl/And} - \clist_map_inline:nn{#1}{\ocgxii_ocmd_expression_parser:nN{##1}#2} - \tl_put_right:Nx#2{\g_ocgxii_right_bracket_tl} - \bool_set_false:N\l_ocgxii_ve_open_bool -} -\cs_new_protected_nopar:Nn\ocgxii_ve_or:nN{ - \bool_set_true:N\l_ocgxii_ve_open_bool - \tl_put_right:Nx#2{\g_ocgxii_left_bracket_tl/Or} - \clist_map_inline:nn{#1}{\ocgxii_ocmd_expression_parser:nN{##1}#2} - \tl_put_right:Nx#2{\g_ocgxii_right_bracket_tl} - \bool_set_false:N\l_ocgxii_ve_open_bool -} -\cs_new_protected_nopar:Nn\ocgxii_ve_not:nN{ - \bool_set_true:N\l_ocgxii_ve_open_bool - % only one item allowed in \Not{...} argument - \int_compare:nNnT{\clist_count:n{#1}}>{\c_one_int}{ - \msg_error:nnnn{ocgx2}{generic~msg}{ - More~than~one~item~passed~to~\Not{...}. - }{ - Only~one~item~is~allowed. - } - } - \int_compare:nNnT{\clist_count:n{#1}}={\c_one_int}{ - \tl_put_right:Nx#2{\g_ocgxii_left_bracket_tl/Not} + \cs_new_protected_nopar:Nn\ocgxii_allon_to_ve:n{\And{#1}} + \cs_new_protected_nopar:Nn\ocgxii_anyon_to_ve:n{\Or{#1}} + \cs_new_protected_nopar:Nn\ocgxii_anyoff_to_ve:n{\Not{\And{#1}}} + \cs_new_protected_nopar:Nn\ocgxii_alloff_to_ve:n{\Not{\Or{#1}}} + % visib. boolean expressions + \cs_new_protected_nopar:Nn\ocgxii_ve_and:nN{ + \bool_set_true:N\l_ocgxii_ve_open_bool + \tl_put_right:Nx#2{\g_ocgxii_left_bracket_tl/And} \clist_map_inline:nn{#1}{\ocgxii_ocmd_expression_parser:nN{##1}#2} \tl_put_right:Nx#2{\g_ocgxii_right_bracket_tl} + \bool_set_false:N\l_ocgxii_ve_open_bool } - \bool_set_false:N\l_ocgxii_ve_open_bool -} -\cs_new_protected_nopar:Nn\ocgxii_ve_check:n{VisExpr} -\tl_set:cn{ocgxii_VisExpr}{VisExpr} -\cs_new_protected_nopar:Nn\ocgxii_vp_check:n{VisPol} -\tl_set:cn{ocgxii_VisPol}{VisPol} -\tl_set:Nx\g_ocgxii_left_bracket_tl{\tl_to_str:N[} -\tl_set:Nx\g_ocgxii_right_bracket_tl{\tl_to_str:N]} -\int_new:N\l_ocgxii_vp_cnt_int %number of visib. policies -\int_new:N\l_ocgxii_ve_cnt_int %number of visib. expressions -\bool_new:N\l_ocgxii_vp_open_bool %for nesting test -\bool_new:N\l_ocgxii_ve_open_bool %for nesting test -\tl_set:Nn\g_ocgxii_help_msg_tl{ - At~most~one~visibility~policy~and,~separated~by~a~comma,~at~most~one~ - visibility~expression~may~be~passed~as~the~2nd~argument~to~the~`ocmd'~ - environment.~A~visibility~ - policy~is~defined~by~one~of~\AllOn{...},~\AnyOn{...},~\AnyOff{...},~ - \AllOff{...}.~A~visibility~expression~is~a~boolean~expression~built~by~ - nesting~any~number~of~\And{...},~\Or{...},~\Not{...}~commands.~If~both~are~ - provided,~the~visibility~expression~takes~precedence~over~the~policy,~but~the~ - latter~may~be~used~as~fallback~by~non-conforming~PDF~viewers. -} -%command that builds /OC entry from open layer stack -\cs_new_nopar:Nn\ocgxii_make_oc_entry:{ - \group_begin: - \tl_gclear:N\g_ocgxii_oc_entry_tl - \tl_clear:N\l_tempa_tl - \seq_if_empty:NF\g_ocgbase_open_stack_seq{ - \seq_clear:N\l_tempa_seq - %additional level of braces around indirect PDF objects (needed for dvips) - \seq_map_inline:Nn\g_ocgbase_open_stack_seq{ - \seq_put_right:Nn\l_tempa_seq{{##1}} + \cs_new_protected_nopar:Nn\ocgxii_ve_or:nN{ + \bool_set_true:N\l_ocgxii_ve_open_bool + \tl_put_right:Nx#2{\g_ocgxii_left_bracket_tl/Or} + \clist_map_inline:nn{#1}{\ocgxii_ocmd_expression_parser:nN{##1}#2} + \tl_put_right:Nx#2{\g_ocgxii_right_bracket_tl} + \bool_set_false:N\l_ocgxii_ve_open_bool + } + \cs_new_protected_nopar:Nn\ocgxii_ve_not:nN{ + \bool_set_true:N\l_ocgxii_ve_open_bool + % only one item allowed in \Not{...} argument + \int_compare:nNnT{\clist_count:n{#1}}>{\c_one_int}{ + \msg_error:nnnn{ocgx2}{generic~msg}{ + More~than~one~item~passed~to~\Not{...}. + }{ + Only~one~item~is~allowed. + } } - \ocgxii_omcd_parse_argument:xN{ - \exp_not:N\And{\seq_use:Nn\l_tempa_seq{,}} - }\l_tempa_tl - \tl_gset:Nx\g_ocgxii_oc_entry_tl{/OC~<</Type/OCMD\l_tempa_tl>>} + \int_compare:nNnT{\clist_count:n{#1}}={\c_one_int}{ + \tl_put_right:Nx#2{\g_ocgxii_left_bracket_tl/Not} + \clist_map_inline:nn{#1}{\ocgxii_ocmd_expression_parser:nN{##1}#2} + \tl_put_right:Nx#2{\g_ocgxii_right_bracket_tl} + } + \bool_set_false:N\l_ocgxii_ve_open_bool + } + \cs_new_protected_nopar:Nn\ocgxii_ve_check:n{VisExpr} + \tl_set:cn{ocgxii_VisExpr}{VisExpr} + \cs_new_protected_nopar:Nn\ocgxii_vp_check:n{VisPol} + \tl_set:cn{ocgxii_VisPol}{VisPol} + \tl_set:Nx\g_ocgxii_left_bracket_tl{\tl_to_str:N[} + \tl_set:Nx\g_ocgxii_right_bracket_tl{\tl_to_str:N]} + \int_new:N\l_ocgxii_vp_cnt_int %number of visib. policies + \int_new:N\l_ocgxii_ve_cnt_int %number of visib. expressions + \bool_new:N\l_ocgxii_vp_open_bool %for nesting test + \bool_new:N\l_ocgxii_ve_open_bool %for nesting test + \tl_set:Nn\g_ocgxii_help_msg_tl{ + At~most~one~visibility~policy~and,~separated~by~a~comma,~at~most~one~ + visibility~expression~may~be~passed~as~the~2nd~argument~to~the~`ocmd'~ + environment.~A~visibility~ + policy~is~defined~by~one~of~\AllOn{...},~\AnyOn{...},~\AnyOff{...},~ + \AllOff{...}.~A~visibility~expression~is~a~boolean~expression~built~by~ + nesting~any~number~of~\And{...},~\Or{...},~\Not{...}~commands.~If~both~are~ + provided,~the~visibility~expression~takes~precedence~over~the~policy,~but~the~ + latter~may~be~used~as~fallback~by~non-conforming~PDF~viewers. + } + %command that builds /OC entry from open layer stack + \cs_new_nopar:Nn\ocgxii_make_oc_entry:{ + \group_begin: + \tl_gclear:N\g_ocgxii_oc_entry_tl + \tl_clear:N\l_tempa_tl + \seq_if_empty:NF\g_ocgbase_open_stack_seq{ + \seq_clear:N\l_tempa_seq + %additional level of braces around indirect PDF objects (needed for dvips) + \seq_map_inline:Nn\g_ocgbase_open_stack_seq{ + \seq_put_right:Nn\l_tempa_seq{{##1}} + } + \ocgxii_omcd_parse_argument:xN{ + \exp_not:N\And{\seq_use:Nn\l_tempa_seq{,}} + }\l_tempa_tl + \tl_gset:Nx\g_ocgxii_oc_entry_tl{/OC~<</Type/OCMD\l_tempa_tl>>} + } + \group_end: } - \group_end: -} -%programmer/author command that inserts /OC << >> entry; for use in -%annotation/xobject dicts, in order to make them layer-aware -\cs_new_nopar:Nn\ocgxii_insert_oc:{\g_ocgxii_oc_entry_tl} -\cs_gset_eq:NN\ocgbase_insert_oc:\ocgxii_insert_oc: -\cs_gset_eq:NN\ocgbase@insert@oc\ocgxii_insert_oc: -\tl_new:N\g_ocgxii_oc_entry_tl + %programmer/author command that inserts /OC << >> entry; for use in + %annotation/xobject dicts, in order to make them layer-aware + \cs_new_nopar:Nn\ocgxii_insert_oc:{\g_ocgxii_oc_entry_tl} + \cs_gset_eq:NN\ocgbase_insert_oc:\ocgxii_insert_oc: + \cs_gset_eq:NN\ocgbase@insert@oc\ocgxii_insert_oc: + \tl_new:N\g_ocgxii_oc_entry_tl -\cs_new_protected_nopar:Nn\ocgxii_stack_shipout:NN{ - \iow_shipout_x:Nx\@mainaux{ - \token_to_str:N#1{ - \exp_not:N\int_use:N\g_ocgxii_page_int - }{\seq_use:Nn#2{,}} + \cs_new_protected_nopar:Nn\ocgxii_stack_shipout:NN{ + \iow_shipout_x:Nx\@mainaux{ + \token_to_str:N#1{ + \exp_not:N\int_use:N\g_ocgxii_page_int + }{\seq_use:Nn#2{,}} + } } -} -\cs_new_protected_nopar:Npn\ocgxii@ocg@stack@on@page#1#2{ - \seq_gset_from_clist:cn{g_pending_ocgs_on_#1_seq}{#2} - %re-add braces around items for dvips - \bool_if:nT{\sys_if_output_dvi_p: && !\g_ocgxii_dvipdfmx_bool}{ - \seq_map_inline:cn{g_pending_ocgs_on_#1_seq}{ - \seq_gpop_left:cN{g_pending_ocgs_on_#1_seq}\l_trash_tl - \seq_gput_right:cn{g_pending_ocgs_on_#1_seq}{{##1}} + \cs_new_protected_nopar:Npn\ocgxii@ocg@stack@on@page#1#2{ + \seq_gset_from_clist:cn{g_pending_ocgs_on_#1_seq}{#2} + %re-add braces around items for dvips + \bool_if:nT{\sys_if_output_dvi_p: && !\g_ocgxii_dvipdfmx_bool}{ + \seq_map_inline:cn{g_pending_ocgs_on_#1_seq}{ + \seq_gpop_left:cN{g_pending_ocgs_on_#1_seq}\l_trash_tl + \seq_gput_right:cn{g_pending_ocgs_on_#1_seq}{{##1}} + } } } -} -\ocgxii@ocg@stack@on@page{0}{} %initialize + \ocgxii@ocg@stack@on@page{0}{} %initialize -\cs_new_protected_nopar:Npn\ocgxii@lnkcol@stack@on@page#1#2{ - \seq_gset_from_clist:cn{g_pending_lnkcols_on_#1_seq}{#2} - %re-add braces around items - \seq_map_inline:cn{g_pending_lnkcols_on_#1_seq}{ - \seq_gpop_left:cN{g_pending_lnkcols_on_#1_seq}\l_trash_tl - \seq_gput_right:cn{g_pending_lnkcols_on_#1_seq}{{##1}} + \cs_new_protected_nopar:Npn\ocgxii@lnkcol@stack@on@page#1#2{ + \seq_gset_from_clist:cn{g_pending_lnkcols_on_#1_seq}{#2} + %re-add braces around items + \seq_map_inline:cn{g_pending_lnkcols_on_#1_seq}{ + \seq_gpop_left:cN{g_pending_lnkcols_on_#1_seq}\l_trash_tl + \seq_gput_right:cn{g_pending_lnkcols_on_#1_seq}{{##1}} + } } -} -\ocgxii@lnkcol@stack@on@page{0}{} %initialize + \ocgxii@lnkcol@stack@on@page{0}{} %initialize -%end-of-page action -\pbs_eop_action:n{ - \seq_if_exist:cT{g_pending_lnkcols_on_\int_use:c{g_ocgxii_page_int}_seq}{ - %check whether end-of-page link colour stack has settled + %end-of-page action + \pbs_eop_action:n{ + \seq_if_exist:cT{g_pending_lnkcols_on_\int_use:c{g_ocgxii_page_int}_seq}{ + %check whether end-of-page link colour stack has settled + \iow_shipout:Nx\@mainaux{ + \token_to_str:N\ocgxii@newkey{ocgx2.oldlnkcol.\int_use:N\g_ocgxii_page_int}{ + \seq_use:cn{g_pending_lnkcols_on_\int_use:c{g_ocgxii_page_int}_seq}{,} + } + } + \bool_if:nT{ + !\cs_if_exist:cTF{ocgx2.oldlnkcol.\int_use:N\g_ocgxii_page_int}{ + \str_if_eq_p:ee{ + \tl_use:c{ocgx2.oldlnkcol.\int_use:N\g_ocgxii_page_int} + }{ + \seq_use:cn{g_pending_lnkcols_on_\int_use:c{g_ocgxii_page_int}_seq}{,} + } + }{ + \c_false_bool + } + }{ + \tl_if_exist:NF\g_ocgxii_rerunwarned_tl{ + \tl_new:N\g_ocgxii_rerunwarned_tl + \AtEndDocument{\msg_warning:nn{ocgx2}{rerun}} + } + } + % now close the colourlink opened last + \seq_get:cNT{g_pending_lnkcols_on_\int_use:c{g_ocgxii_page_int}_seq}\l_tmpa_tl{ + \tl_gset:Nx\g_ocgxii_lnkcol_tl{{\l_tmpa_tl}} + \ocgxii_colourlink_end: + } + } + %check whether end-of-page ocg stack has settled \iow_shipout:Nx\@mainaux{ - \token_to_str:N\ocgxii@newkey{ocgx2.oldlnkcol.\int_use:N\g_ocgxii_page_int}{ - \seq_use:cn{g_pending_lnkcols_on_\int_use:c{g_ocgxii_page_int}_seq}{,} + \token_to_str:N\ocgxii@newkey{ocgx2.oldstack.\int_use:N\g_ocgxii_page_int}{ + \seq_use:cn{g_pending_ocgs_on_\int_use:c{g_ocgxii_page_int}_seq}{,} } } \bool_if:nT{ - !\cs_if_exist:cTF{ocgx2.oldlnkcol.\int_use:N\g_ocgxii_page_int}{ + !\cs_if_exist:cTF{ocgx2.oldstack.\int_use:N\g_ocgxii_page_int}{ \str_if_eq_p:ee{ - \tl_use:c{ocgx2.oldlnkcol.\int_use:N\g_ocgxii_page_int} + \tl_use:c{ocgx2.oldstack.\int_use:N\g_ocgxii_page_int} }{ - \seq_use:cn{g_pending_lnkcols_on_\int_use:c{g_ocgxii_page_int}_seq}{,} + \seq_use:cn{g_pending_ocgs_on_\int_use:c{g_ocgxii_page_int}_seq}{,} } }{ \c_false_bool @@ -614,306 +640,300 @@ \AtEndDocument{\msg_warning:nn{ocgx2}{rerun}} } } - % now close the colourlink opened last - \seq_get:cNT{g_pending_lnkcols_on_\int_use:c{g_ocgxii_page_int}_seq}\l_tmpa_tl{ - \tl_gset:Nx\g_ocgxii_lnkcol_tl{{\l_tmpa_tl}} - \ocgxii_colourlink_end: - } - } - %check whether end-of-page ocg stack has settled - \iow_shipout:Nx\@mainaux{ - \token_to_str:N\ocgxii@newkey{ocgx2.oldstack.\int_use:N\g_ocgxii_page_int}{ - \seq_use:cn{g_pending_ocgs_on_\int_use:c{g_ocgxii_page_int}_seq}{,} - } - } - \bool_if:nT{ - !\cs_if_exist:cTF{ocgx2.oldstack.\int_use:N\g_ocgxii_page_int}{ - \str_if_eq_p:ee{ - \tl_use:c{ocgx2.oldstack.\int_use:N\g_ocgxii_page_int} - }{ - \seq_use:cn{g_pending_ocgs_on_\int_use:c{g_ocgxii_page_int}_seq}{,} - } - }{ - \c_false_bool - } - }{ - \tl_if_exist:NF\g_ocgxii_rerunwarned_tl{ - \tl_new:N\g_ocgxii_rerunwarned_tl - \AtEndDocument{\msg_warning:nn{ocgx2}{rerun}} - } - } - %now close pending ocgs - \seq_map_variable:cNn{ - g_pending_ocgs_on_\int_use:c{g_ocgxii_page_int}_seq - }\l_tmpb_tl{\ocgbase_oc_emc:} -} - -%begin-of-page action -\pbs_bop_action:n{ - % re-open all pending ocgs in original order - \seq_set_eq:Nc\l_ocgxii_pending_ocgs_seq{ - g_pending_ocgs_on_\int_use:c{g_ocgxii_page_int}_seq - } - \seq_reverse:N\l_ocgxii_pending_ocgs_seq - \seq_map_variable:NNn\l_ocgxii_pending_ocgs_seq\l_tmpa_tl{ - \ocgbase_oc_bdc:n{\l_tmpa_tl} - } - % re-open the colourlink opened last - \seq_get:cNT{g_pending_lnkcols_on_\int_use:c{g_ocgxii_page_int}_seq}\l_tmpa_tl{ - \tl_gset:Nx\g_ocgxii_lnkcol_tl{{\l_tmpa_tl}} - \ocgxii_colourlink_begin: - } - \int_gincr:N\g_ocgxii_page_int - % copy pending ocg stack from previous page, if it has not been initialized - % yet from aux file - \seq_if_exist:cF{g_pending_ocgs_on_\int_use:c{g_ocgxii_page_int}_seq}{ - \seq_gset_eq:cc{ + %now close pending ocgs + \seq_map_variable:cNn{ g_pending_ocgs_on_\int_use:c{g_ocgxii_page_int}_seq - }{ - g_pending_ocgs_on_\int_eval:n{\g_ocgxii_page_int-\c_one_int}_seq - } - } - %the same for link colour stack - \seq_if_exist:cF{g_pending_lnkcols_on_\int_use:c{g_ocgxii_page_int}_seq}{ - \seq_gset_eq:cc{ - g_pending_lnkcols_on_\int_use:c{g_ocgxii_page_int}_seq - }{ - g_pending_lnkcols_on_\int_eval:n{\g_ocgxii_page_int-\c_one_int}_seq - } + }\l_tmpb_tl{\ocgbase_oc_emc:} } -} -\int_new:N\g_ocgxii_page_int %abs. page counter -\cs_new_protected_nopar:Nn\ocgxii_ocglist_reset:{ - \tl_clear_new:N\l_ocgxii_u_list_tl - \tl_clear_new:N\l_ocgxii_d_list_tl - \tl_clear_new:N\l_ocgxii_e_list_tl - \tl_clear_new:N\l_ocgxii_x_list_tl -} - -\cs_new_protected_nopar:Nn\ocgxii_ocglist_build:Nn{ - \tl_set:Nx\l_ocglistarg_tl{#2}\tl_trim_spaces:N\l_ocglistarg_tl - % first try splitting at commas (ocgx2 syntax) - \tl_set_eq:NN\l_tmpa_tl\l_ocglistarg_tl - \tl_remove_all:Nn\l_tmpa_tl{~} - \seq_set_split:NnV\l_ocgxii_ocglistarg_seq{,}\l_tmpa_tl - \seq_remove_all:Nn\l_ocgxii_ocglistarg_seq{} - \tl_set:Nx\l_tmpa_tl{\seq_count:N\l_ocgxii_ocglistarg_seq} - % now at spaces (legacy ocgx/ocg-p) - \tl_set_eq:NN\l_tmpb_tl\l_ocglistarg_tl - \tl_remove_all:Nn\l_tmpb_tl{,} - \seq_set_split:NnV\l_tmpb_seq{~}\l_tmpb_tl - \seq_remove_all:Nn\l_tmpb_seq{} - \tl_set:Nx\l_tmpb_tl{\seq_count:N\l_tmpb_seq} - %take the seq having more elements (guessing the separator most likely used) - \int_compare:nT{\l_tmpb_tl>\l_tmpa_tl}{ - \seq_set_eq:NN\l_ocgxii_ocglistarg_seq\l_tmpb_seq - } - \seq_map_variable:NNn\l_ocgxii_ocglistarg_seq\l_tempa_tl{ - \ocgxii_process_ocgref:NN#1\l_tempa_tl - } -} - -\cs_new_protected:Nn\ocgxii_commalist_process:n{ - \seq_set_split:Nnn\l_tmpa_seq{,}{#1} - \ocgxii_ocglist_build:Nn\l_ocgxii_e_list_tl{\seq_item:Nn\l_tmpa_seq{1}} - \ocgxii_ocglist_build:Nn\l_ocgxii_x_list_tl{\seq_item:Nn\l_tmpa_seq{2}} - \ocgxii_ocglist_build:Nn\l_ocgxii_d_list_tl{\seq_item:Nn\l_tmpa_seq{3}} - \ocgxii_ocglist_build:Nn\l_ocgxii_u_list_tl{\seq_item:Nn\l_tmpa_seq{4}} -} - -\cs_new_protected_nopar:Nn\ocgxii_ocglist_process_idlist:nn{ - \ocgxii_ocglist_reset: - \tl_set:Nx\l_ocgxii_opt_tl{#1}\tl_remove_all:Nn\l_ocgxii_opt_tl{~} - \str_case_e:nnF{\l_ocgxii_opt_tl}{ - {onmouseup}{ - \ocgxii_ocglist_build:Nn\l_ocgxii_u_list_tl{#2} + %begin-of-page action + \pbs_bop_action:n{ + % re-open all pending ocgs in original order + \seq_set_eq:Nc\l_ocgxii_pending_ocgs_seq{ + g_pending_ocgs_on_\int_use:c{g_ocgxii_page_int}_seq } - {onmousedown}{ - \ocgxii_ocglist_build:Nn\l_ocgxii_d_list_tl{#2} + \seq_reverse:N\l_ocgxii_pending_ocgs_seq + \seq_map_variable:NNn\l_ocgxii_pending_ocgs_seq\l_tmpa_tl{ + \ocgbase_oc_bdc:n{\l_tmpa_tl} } - {onmouseenter}{ - \ocgxii_ocglist_build:Nn\l_ocgxii_e_list_tl{#2} + % re-open the colourlink opened last + \seq_get:cNT{g_pending_lnkcols_on_\int_use:c{g_ocgxii_page_int}_seq}\l_tmpa_tl{ + \tl_gset:Nx\g_ocgxii_lnkcol_tl{{\l_tmpa_tl}} + \ocgxii_colourlink_begin: } - {onmouseexit}{ - \ocgxii_ocglist_build:Nn\l_ocgxii_x_list_tl{#2} + \int_gincr:N\g_ocgxii_page_int + % copy pending ocg stack from previous page, if it has not been initialized + % yet from aux file + \seq_if_exist:cF{g_pending_ocgs_on_\int_use:c{g_ocgxii_page_int}_seq}{ + \seq_gset_eq:cc{ + g_pending_ocgs_on_\int_use:c{g_ocgxii_page_int}_seq + }{ + g_pending_ocgs_on_\int_eval:n{\g_ocgxii_page_int-\c_one_int}_seq + } } - {onmouseall}{ - \ocgxii_commalist_process:n{#2} + %the same for link colour stack + \seq_if_exist:cF{g_pending_lnkcols_on_\int_use:c{g_ocgxii_page_int}_seq}{ + \seq_gset_eq:cc{ + g_pending_lnkcols_on_\int_use:c{g_ocgxii_page_int}_seq + }{ + g_pending_lnkcols_on_\int_eval:n{\g_ocgxii_page_int-\c_one_int}_seq + } } - }{ - \msg_error:nnx{ocgx2}{unknown~option}{\l_ocgxii_opt_tl} } -} - -\int_new:N\g_ocgxii_widcount_int% widget counter - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% re-implement commands from ocgx.sty (all engines including ps2pdf [gs>=9.15]) -% adding optional `*' (arg 1) -> non-breakable link instead of plain (multiline) -% Link; -% adding optional 2nd argument -> Button Widget (non-breakable) with one of -% various mouse triggers (`troggerocgs` option from ocg-p) -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -\DeclareDocumentCommand\switchocg{s O{} m +m}{ - \ocgxii_actionsocg:nnnnnn{#1}{#2}{#3}{}{}{#4} -} - -\DeclareDocumentCommand\showocg{s O{} m +m}{ - \ocgxii_actionsocg:nnnnnn{#1}{#2}{}{#3}{}{#4} -} - -\DeclareDocumentCommand\hideocg{s O{} m +m}{ - \ocgxii_actionsocg:nnnnnn{#1}{#2}{}{}{#3}{#4} -} - -\DeclareDocumentCommand\actionsocg{s O{} m m m +m}{ - \ocgxii_actionsocg:nnnnnn{#1}{#2}{#3}{#4}{#5}{#6} -} - -\bool_new:N\l_ocgxii_mouse_triggers_bool -\bool_new:N\l_ocgxii_nobreak_bool -\cs_new_protected:Nn\ocgxii_actionsocg:nnnnnn{ - \leavevmode - \bool_set_false:N\l_ocgxii_mouse_triggers_bool - \bool_set_false:N\l_ocgxii_nobreak_bool - % explicitly non-breakable? - \bool_if:nT{#1}{\bool_set_true:N\l_ocgxii_nobreak_bool} - % - %clear actions for various mouse triggers (e,d,x) - \tl_clear:N\l_ocgxii_toswitch_e_tl - \tl_clear:N\l_ocgxii_toswitch_x_tl - \tl_clear:N\l_ocgxii_toswitch_d_tl - \tl_clear:N\l_ocgxii_toshow_e_tl - \tl_clear:N\l_ocgxii_toshow_x_tl - \tl_clear:N\l_ocgxii_toshow_d_tl - \tl_clear:N\l_ocgxii_tohide_e_tl - \tl_clear:N\l_ocgxii_tohide_x_tl - \tl_clear:N\l_ocgxii_tohide_d_tl - % - %process *all* mouse triggers (e,d,u,x) - \ocgxii_ocglist_process_idlist:nn{ - \tl_if_blank:oTF{#2}{onmouseup}{#2} - }{#3} - \tl_set_eq:NN\l_ocgxii_toswitch_e_tl\l_ocgxii_e_list_tl - \tl_set_eq:NN\l_ocgxii_toswitch_x_tl\l_ocgxii_x_list_tl - \tl_set_eq:NN\l_ocgxii_toswitch_d_tl\l_ocgxii_d_list_tl - \tl_set_eq:NN\l_ocgxii_toswitch_u_tl\l_ocgxii_u_list_tl - \ocgxii_ocglist_process_idlist:nn{ - \tl_if_blank:oTF{#2}{onmouseup}{#2} - }{#4} - \tl_set_eq:NN\l_ocgxii_toshow_e_tl\l_ocgxii_e_list_tl - \tl_set_eq:NN\l_ocgxii_toshow_x_tl\l_ocgxii_x_list_tl - \tl_set_eq:NN\l_ocgxii_toshow_d_tl\l_ocgxii_d_list_tl - \tl_set_eq:NN\l_ocgxii_toshow_u_tl\l_ocgxii_u_list_tl - \ocgxii_ocglist_process_idlist:nn{ - \tl_if_blank:oTF{#2}{onmouseup}{#2} - }{#5} - \tl_set_eq:NN\l_ocgxii_tohide_e_tl\l_ocgxii_e_list_tl - \tl_set_eq:NN\l_ocgxii_tohide_x_tl\l_ocgxii_x_list_tl - \tl_set_eq:NN\l_ocgxii_tohide_d_tl\l_ocgxii_d_list_tl - \tl_set_eq:NN\l_ocgxii_tohide_u_tl\l_ocgxii_u_list_tl - %any triggers apart from mouse-up? - \str_if_eq:eeF{ - \l_ocgxii_toswitch_e_tl\l_ocgxii_toswitch_x_tl\l_ocgxii_toswitch_d_tl - \l_ocgxii_toshow_e_tl\l_ocgxii_toshow_x_tl\l_ocgxii_toshow_d_tl - \l_ocgxii_tohide_e_tl\l_ocgxii_tohide_x_tl\l_ocgxii_tohide_d_tl - }{}{ - \bool_set_true:N\l_ocgxii_mouse_triggers_bool - } - % - \bool_if:nTF{\l_ocgxii_nobreak_bool || \l_ocgxii_mouse_triggers_bool}{ - \hbox_set:Nn\l_tmpa_box{#6} - \pbs_pdfannot:nnnn{ - \dim_use:N\box_wd:N\l_tmpa_box}{ - \dim_use:N\box_ht:N\l_tmpa_box}{ - \dim_use:N\box_dp:N\l_tmpa_box + \int_new:N\g_ocgxii_page_int %abs. page counter + + \cs_new_protected_nopar:Nn\ocgxii_ocglist_reset:{ + \tl_clear_new:N\l_ocgxii_u_list_tl + \tl_clear_new:N\l_ocgxii_d_list_tl + \tl_clear_new:N\l_ocgxii_e_list_tl + \tl_clear_new:N\l_ocgxii_x_list_tl + } + + \cs_new_protected_nopar:Nn\ocgxii_ocglist_build:Nn{ + \tl_set:Nx\l_ocglistarg_tl{#2}\tl_trim_spaces:N\l_ocglistarg_tl + % first try splitting at commas (ocgx2 syntax) + \tl_set_eq:NN\l_tmpa_tl\l_ocglistarg_tl + \tl_remove_all:Nn\l_tmpa_tl{~} + \seq_set_split:NnV\l_ocgxii_ocglistarg_seq{,}\l_tmpa_tl + \seq_remove_all:Nn\l_ocgxii_ocglistarg_seq{} + \tl_set:Nx\l_tmpa_tl{\seq_count:N\l_ocgxii_ocglistarg_seq} + % now at spaces (legacy ocgx/ocg-p) + \tl_set_eq:NN\l_tmpb_tl\l_ocglistarg_tl + \tl_remove_all:Nn\l_tmpb_tl{,} + \seq_set_split:NnV\l_tmpb_seq{~}\l_tmpb_tl + \seq_remove_all:Nn\l_tmpb_seq{} + \tl_set:Nx\l_tmpb_tl{\seq_count:N\l_tmpb_seq} + %take the seq having more elements (guessing the separator most likely used) + \int_compare:nT{\l_tmpb_tl>\l_tmpa_tl}{ + \seq_set_eq:NN\l_ocgxii_ocglistarg_seq\l_tmpb_seq + } + \seq_map_variable:NNn\l_ocgxii_ocglistarg_seq\l_tempa_tl{ + \ocgxii_process_ocgref:NN#1\l_tempa_tl + } + } + + \cs_new_protected:Nn\ocgxii_commalist_process:n{ + \seq_set_split:Nnn\l_tmpa_seq{,}{#1} + \ocgxii_ocglist_build:Nn\l_ocgxii_e_list_tl{\seq_item:Nn\l_tmpa_seq{1}} + \ocgxii_ocglist_build:Nn\l_ocgxii_x_list_tl{\seq_item:Nn\l_tmpa_seq{2}} + \ocgxii_ocglist_build:Nn\l_ocgxii_d_list_tl{\seq_item:Nn\l_tmpa_seq{3}} + \ocgxii_ocglist_build:Nn\l_ocgxii_u_list_tl{\seq_item:Nn\l_tmpa_seq{4}} + } + + \cs_new_protected_nopar:Nn\ocgxii_ocglist_process_idlist:nn{ + \ocgxii_ocglist_reset: + \tl_set:Nx\l_ocgxii_opt_tl{#1}\tl_remove_all:Nn\l_ocgxii_opt_tl{~} + \str_case_e:nnF{\l_ocgxii_opt_tl}{ + {onmouseup}{ + \ocgxii_ocglist_build:Nn\l_ocgxii_u_list_tl{#2} + } + {onmousedown}{ + \ocgxii_ocglist_build:Nn\l_ocgxii_d_list_tl{#2} + } + {onmouseenter}{ + \ocgxii_ocglist_build:Nn\l_ocgxii_e_list_tl{#2} + } + {onmouseexit}{ + \ocgxii_ocglist_build:Nn\l_ocgxii_x_list_tl{#2} + } + {onmouseall}{ + \ocgxii_commalist_process:n{#2} + } }{ - \bool_if:NTF\l_ocgxii_mouse_triggers_bool{ - % e,d,x mouse triggers require (non-breakable) /Widget annot with AA - % (additional actions) dict - /Subtype/Widget/Ff~65536/FT/Btn/BS<</W~0>> - /T~(ocgx2@\int_use:N\g_ocgxii_widcount_int) - %treat mouse-up as mouse-click --> handle through /A dictionary - \str_if_eq:eeF{}{ - \l_ocgxii_toswitch_u_tl\l_ocgxii_toshow_u_tl\l_ocgxii_tohide_u_tl - }{ - /A <</S/SetOCGState/State [ - \str_if_eq:VnF\l_ocgxii_toswitch_u_tl{}{ - /Toggle~\l_ocgxii_toswitch_u_tl - } - \str_if_eq:VnF\l_ocgxii_toshow_u_tl{}{ - /ON~\l_ocgxii_toshow_u_tl - } - \str_if_eq:VnF\l_ocgxii_tohide_u_tl{}{ - /OFF~\l_ocgxii_tohide_u_tl - } - ]>> - } - /AA << - %\str_if_eq:eeF{}{ % mouse-up - % \l_ocgxii_toswitch_u_tl\l_ocgxii_toshow_u_tl\l_ocgxii_tohide_u_tl - %}{ - % /U <</S/SetOCGState/State [ - % \str_if_eq:VnF\l_ocgxii_toswitch_u_tl{}{ - % /Toggle~\l_ocgxii_toswitch_u_tl - % } - % \str_if_eq:VnF\l_ocgxii_toshow_u_tl{}{ - % /ON~\l_ocgxii_toshow_u_tl - % } - % \str_if_eq:VnF\l_ocgxii_tohide_u_tl{}{ - % /OFF~\l_ocgxii_tohide_u_tl - % } - % ]>> - %} - \str_if_eq:eeF{}{ % mouse-down - \l_ocgxii_toswitch_d_tl\l_ocgxii_toshow_d_tl\l_ocgxii_tohide_d_tl - }{ - /D <</S/SetOCGState/State [ - \str_if_eq:VnF\l_ocgxii_toswitch_d_tl{}{ - /Toggle~\l_ocgxii_toswitch_d_tl - } - \str_if_eq:VnF\l_ocgxii_toshow_d_tl{}{ - /ON~\l_ocgxii_toshow_d_tl - } - \str_if_eq:VnF\l_ocgxii_tohide_d_tl{}{ - /OFF~\l_ocgxii_tohide_d_tl - } - ]>> - } - \str_if_eq:eeF{}{ % mouse-enter - \l_ocgxii_toswitch_e_tl\l_ocgxii_toshow_e_tl\l_ocgxii_tohide_e_tl - }{ - /E <</S/SetOCGState/State [ - \str_if_eq:VnF\l_ocgxii_toswitch_e_tl{}{ - /Toggle~\l_ocgxii_toswitch_e_tl - } - \str_if_eq:VnF\l_ocgxii_toshow_e_tl{}{ - /ON~\l_ocgxii_toshow_e_tl - } - \str_if_eq:VnF\l_ocgxii_tohide_e_tl{}{ - /OFF~\l_ocgxii_tohide_e_tl - } - ]>> - } - \str_if_eq:eeF{}{ % mouse-exit - \l_ocgxii_toswitch_x_tl\l_ocgxii_toshow_x_tl\l_ocgxii_tohide_x_tl + \msg_error:nnx{ocgx2}{unknown~option}{\l_ocgxii_opt_tl} + } + } + + \int_new:N\g_ocgxii_widcount_int% widget counter + + %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + % re-implement commands from ocgx.sty (all engines including ps2pdf [gs>=9.15]) + % adding optional `*' (arg 1) -> non-breakable link instead of plain (multiline) + % Link; + % adding optional 2nd argument -> Button Widget (non-breakable) with one of + % various mouse triggers (`troggerocgs` option from ocg-p) + %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + \DeclareDocumentCommand\switchocg{s O{} m +m}{ + \ocgxii_actionsocg:nnnnnn{#1}{#2}{#3}{}{}{#4} + } + + \DeclareDocumentCommand\showocg{s O{} m +m}{ + \ocgxii_actionsocg:nnnnnn{#1}{#2}{}{#3}{}{#4} + } + + \DeclareDocumentCommand\hideocg{s O{} m +m}{ + \ocgxii_actionsocg:nnnnnn{#1}{#2}{}{}{#3}{#4} + } + + \DeclareDocumentCommand\actionsocg{s O{} m m m +m}{ + \ocgxii_actionsocg:nnnnnn{#1}{#2}{#3}{#4}{#5}{#6} + } + + \bool_new:N\l_ocgxii_mouse_triggers_bool + \bool_new:N\l_ocgxii_nobreak_bool + \cs_new_protected:Nn\ocgxii_actionsocg:nnnnnn{ + \leavevmode + \bool_set_false:N\l_ocgxii_mouse_triggers_bool + \bool_set_false:N\l_ocgxii_nobreak_bool + % explicitly non-breakable? + \bool_if:nT{#1}{\bool_set_true:N\l_ocgxii_nobreak_bool} + % + %clear actions for various mouse triggers (e,d,x) + \tl_clear:N\l_ocgxii_toswitch_e_tl + \tl_clear:N\l_ocgxii_toswitch_x_tl + \tl_clear:N\l_ocgxii_toswitch_d_tl + \tl_clear:N\l_ocgxii_toshow_e_tl + \tl_clear:N\l_ocgxii_toshow_x_tl + \tl_clear:N\l_ocgxii_toshow_d_tl + \tl_clear:N\l_ocgxii_tohide_e_tl + \tl_clear:N\l_ocgxii_tohide_x_tl + \tl_clear:N\l_ocgxii_tohide_d_tl + % + %process *all* mouse triggers (e,d,u,x) + \ocgxii_ocglist_process_idlist:nn{ + \tl_if_blank:oTF{#2}{onmouseup}{#2} + }{#3} + \tl_set_eq:NN\l_ocgxii_toswitch_e_tl\l_ocgxii_e_list_tl + \tl_set_eq:NN\l_ocgxii_toswitch_x_tl\l_ocgxii_x_list_tl + \tl_set_eq:NN\l_ocgxii_toswitch_d_tl\l_ocgxii_d_list_tl + \tl_set_eq:NN\l_ocgxii_toswitch_u_tl\l_ocgxii_u_list_tl + \ocgxii_ocglist_process_idlist:nn{ + \tl_if_blank:oTF{#2}{onmouseup}{#2} + }{#4} + \tl_set_eq:NN\l_ocgxii_toshow_e_tl\l_ocgxii_e_list_tl + \tl_set_eq:NN\l_ocgxii_toshow_x_tl\l_ocgxii_x_list_tl + \tl_set_eq:NN\l_ocgxii_toshow_d_tl\l_ocgxii_d_list_tl + \tl_set_eq:NN\l_ocgxii_toshow_u_tl\l_ocgxii_u_list_tl + \ocgxii_ocglist_process_idlist:nn{ + \tl_if_blank:oTF{#2}{onmouseup}{#2} + }{#5} + \tl_set_eq:NN\l_ocgxii_tohide_e_tl\l_ocgxii_e_list_tl + \tl_set_eq:NN\l_ocgxii_tohide_x_tl\l_ocgxii_x_list_tl + \tl_set_eq:NN\l_ocgxii_tohide_d_tl\l_ocgxii_d_list_tl + \tl_set_eq:NN\l_ocgxii_tohide_u_tl\l_ocgxii_u_list_tl + %any triggers apart from mouse-up? + \str_if_eq:eeF{ + \l_ocgxii_toswitch_e_tl\l_ocgxii_toswitch_x_tl\l_ocgxii_toswitch_d_tl + \l_ocgxii_toshow_e_tl\l_ocgxii_toshow_x_tl\l_ocgxii_toshow_d_tl + \l_ocgxii_tohide_e_tl\l_ocgxii_tohide_x_tl\l_ocgxii_tohide_d_tl + }{}{ + \bool_set_true:N\l_ocgxii_mouse_triggers_bool + } + % + \bool_if:nTF{\l_ocgxii_nobreak_bool || \l_ocgxii_mouse_triggers_bool}{ + \hbox_set:Nn\l_tmpa_box{#6} + \pbs_pdfannot:nnnn{ + \dim_use:N\box_wd:N\l_tmpa_box}{ + \dim_use:N\box_ht:N\l_tmpa_box}{ + \dim_use:N\box_dp:N\l_tmpa_box + }{ + \bool_if:NTF\l_ocgxii_mouse_triggers_bool{ + % e,d,x mouse triggers require (non-breakable) /Widget annot with AA + % (additional actions) dict + /Subtype/Widget/Ff~65536/FT/Btn/BS<</W~0>> + /T~(ocgx2@\int_use:N\g_ocgxii_widcount_int) + %treat mouse-up as mouse-click --> handle through /A dictionary + \str_if_eq:eeF{}{ + \l_ocgxii_toswitch_u_tl\l_ocgxii_toshow_u_tl\l_ocgxii_tohide_u_tl }{ - /X <</S/SetOCGState/State [ - \str_if_eq:VnF\l_ocgxii_toswitch_x_tl{}{ - /Toggle~\l_ocgxii_toswitch_x_tl + /A <</S/SetOCGState/State [ + \str_if_eq:VnF\l_ocgxii_toswitch_u_tl{}{ + /Toggle~\l_ocgxii_toswitch_u_tl } - \str_if_eq:VnF\l_ocgxii_toshow_x_tl{}{ - /ON~\l_ocgxii_toshow_x_tl + \str_if_eq:VnF\l_ocgxii_toshow_u_tl{}{ + /ON~\l_ocgxii_toshow_u_tl } - \str_if_eq:VnF\l_ocgxii_tohide_x_tl{}{ - /OFF~\l_ocgxii_tohide_x_tl + \str_if_eq:VnF\l_ocgxii_tohide_u_tl{}{ + /OFF~\l_ocgxii_tohide_u_tl } ]>> } - >> - }{ - %mouse-up alone may go with simple /Link annot + /AA << + %\str_if_eq:eeF{}{ % mouse-up + % \l_ocgxii_toswitch_u_tl\l_ocgxii_toshow_u_tl\l_ocgxii_tohide_u_tl + %}{ + % /U <</S/SetOCGState/State [ + % \str_if_eq:VnF\l_ocgxii_toswitch_u_tl{}{ + % /Toggle~\l_ocgxii_toswitch_u_tl + % } + % \str_if_eq:VnF\l_ocgxii_toshow_u_tl{}{ + % /ON~\l_ocgxii_toshow_u_tl + % } + % \str_if_eq:VnF\l_ocgxii_tohide_u_tl{}{ + % /OFF~\l_ocgxii_tohide_u_tl + % } + % ]>> + %} + \str_if_eq:eeF{}{ % mouse-down + \l_ocgxii_toswitch_d_tl\l_ocgxii_toshow_d_tl\l_ocgxii_tohide_d_tl + }{ + /D <</S/SetOCGState/State [ + \str_if_eq:VnF\l_ocgxii_toswitch_d_tl{}{ + /Toggle~\l_ocgxii_toswitch_d_tl + } + \str_if_eq:VnF\l_ocgxii_toshow_d_tl{}{ + /ON~\l_ocgxii_toshow_d_tl + } + \str_if_eq:VnF\l_ocgxii_tohide_d_tl{}{ + /OFF~\l_ocgxii_tohide_d_tl + } + ]>> + } + \str_if_eq:eeF{}{ % mouse-enter + \l_ocgxii_toswitch_e_tl\l_ocgxii_toshow_e_tl\l_ocgxii_tohide_e_tl + }{ + /E <</S/SetOCGState/State [ + \str_if_eq:VnF\l_ocgxii_toswitch_e_tl{}{ + /Toggle~\l_ocgxii_toswitch_e_tl + } + \str_if_eq:VnF\l_ocgxii_toshow_e_tl{}{ + /ON~\l_ocgxii_toshow_e_tl + } + \str_if_eq:VnF\l_ocgxii_tohide_e_tl{}{ + /OFF~\l_ocgxii_tohide_e_tl + } + ]>> + } + \str_if_eq:eeF{}{ % mouse-exit + \l_ocgxii_toswitch_x_tl\l_ocgxii_toshow_x_tl\l_ocgxii_tohide_x_tl + }{ + /X <</S/SetOCGState/State [ + \str_if_eq:VnF\l_ocgxii_toswitch_x_tl{}{ + /Toggle~\l_ocgxii_toswitch_x_tl + } + \str_if_eq:VnF\l_ocgxii_toshow_x_tl{}{ + /ON~\l_ocgxii_toshow_x_tl + } + \str_if_eq:VnF\l_ocgxii_tohide_x_tl{}{ + /OFF~\l_ocgxii_tohide_x_tl + } + ]>> + } + >> + }{ + %mouse-up alone may go with simple /Link annot + /Subtype/Link + /A <</S/SetOCGState + /State [ + \str_if_eq:VnF{\l_ocgxii_toswitch_u_tl}{}{ + /Toggle~\l_ocgxii_toswitch_u_tl}~ + \str_if_eq:VnF{\l_ocgxii_toshow_u_tl}{}{/ON~\l_ocgxii_toshow_u_tl}~ + \str_if_eq:VnF{\l_ocgxii_tohide_u_tl}{}{/OFF~\l_ocgxii_tohide_u_tl} + ] + >> + /Border~[0~0~0] + } + \cs_if_exist:NT\@pdfhighlight{ + \ifx\@pdfhighlight\@empty\else/H\@pdfhighlight\fi + } + }\box_use_drop:N\l_tmpa_box + \bool_if:NT\l_ocgxii_mouse_triggers_bool{ + \pbs_appendtofields:n{\pbs_pdflastann:} + \int_gincr:N\g_ocgxii_widcount_int + } + }{ + %line-breakable annotation + \pbs_pdflink:nn{ /Subtype/Link /A <</S/SetOCGState /State [ @@ -923,379 +943,370 @@ \str_if_eq:VnF{\l_ocgxii_tohide_u_tl}{}{/OFF~\l_ocgxii_tohide_u_tl} ] >> - /Border~[0~0~0] - } - \cs_if_exist:NT\@pdfhighlight{ - \ifx\@pdfhighlight\@empty\else/H\@pdfhighlight\fi - } - }\box_use_drop:N\l_tmpa_box - \bool_if:NT\l_ocgxii_mouse_triggers_bool{ - \pbs_appendtofields:n{\pbs_pdflastann:} - \int_gincr:N\g_ocgxii_widcount_int - } - }{ - %line-breakable annotation - \pbs_pdflink:nn{ - /Subtype/Link - /A <</S/SetOCGState - /State [ - \str_if_eq:VnF{\l_ocgxii_toswitch_u_tl}{}{ - /Toggle~\l_ocgxii_toswitch_u_tl}~ - \str_if_eq:VnF{\l_ocgxii_toshow_u_tl}{}{/ON~\l_ocgxii_toshow_u_tl}~ - \str_if_eq:VnF{\l_ocgxii_tohide_u_tl}{}{/OFF~\l_ocgxii_tohide_u_tl} - ] - >> - %look and feel of hyperref links, if hyperref has been loaded - \cs_if_exist:NTF\Hy@setpdfborder{ - \Hy@setpdfborder\g_ocgxii_patch_tl - \ifx\@pdfhighlight\@empty\else/H\@pdfhighlight\fi - \ifx\@linkbordercolor\relax\else/C[\@linkbordercolor]\fi - \ifHy@pdfa /F~4\fi + %look and feel of hyperref links, if hyperref has been loaded + \cs_if_exist:NTF\Hy@setpdfborder{ + \Hy@setpdfborder\g_ocgxii_patch_tl + \ifx\@pdfhighlight\@empty\else/H\@pdfhighlight\fi + \ifx\@linkbordercolor\relax\else/C[\@linkbordercolor]\fi + \ifHy@pdfa /F~4\fi + }{ + /Border~[0~0~0] + } }{ - /Border~[0~0~0] + \cs_if_exist:NTF\Hy@colorlink{ + \Hy@colorlink\@linkcolor#6\Hy@endcolorlink\Hy@VerboseLinkStop + }{#6} } - }{ - \cs_if_exist:NTF\Hy@colorlink{ - \Hy@colorlink\@linkcolor#6\Hy@endcolorlink\Hy@VerboseLinkStop - }{#6} } } -} -%mimic commands from ocg-p -\keys_define:nn{ocgx2/ocgpcmd}{ - triggerocg .choices:nn = { - onmouseenter, onmouseexit, onmousedown, onmouseup, allactions - }{ - \str_if_eq:eeTF{\l_keys_choice_tl}{allactions}{ - \tl_set:Nn\l_ocgxii_trigger_tl{onmouseall} + %mimic commands from ocg-p + \keys_define:nn{ocgx2/ocgpcmd}{ + triggerocg .choices:nn = { + onmouseenter, onmouseexit, onmousedown, onmouseup, allactions }{ - \tl_set_eq:NN\l_ocgxii_trigger_tl\l_keys_choice_tl + \str_if_eq:eeTF{\l_keys_choice_tl}{allactions}{ + \tl_set:Nn\l_ocgxii_trigger_tl{onmouseall} + }{ + \tl_set_eq:NN\l_ocgxii_trigger_tl\l_keys_choice_tl + } } } -} -\DeclareDocumentCommand\toggleocgs{O{} m +m}{ - \tl_clear_new:N\l_ocgxii_trigger_tl - \keys_set:nn{ocgx2/ocgpcmd}{#1} - \switchocg*[\l_ocgxii_trigger_tl]{#2}{#3} -} -\DeclareDocumentCommand\showocgs{O{} m +m}{ - \tl_clear_new:N\l_ocgxii_trigger_tl - \keys_set:nn{ocgx2/ocgpcmd}{#1} - \showocg*[\l_ocgxii_trigger_tl]{#2}{#3} -} -\DeclareDocumentCommand\hideocgs{O{} m +m}{ - \tl_clear_new:N\l_ocgxii_trigger_tl - \keys_set:nn{ocgx2/ocgpcmd}{#1} - \hideocg*[\l_ocgxii_trigger_tl]{#2}{#3} -} -\DeclareDocumentCommand\setocgs{O{} m m m +m}{ - \tl_clear_new:N\l_ocgxii_trigger_tl - \keys_set:nn{ocgx2/ocgpcmd}{#1} - \actionsocg*[\l_ocgxii_trigger_tl]{#2}{#3}{#4}{#5} -} -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -\cs_new_protected:Nn\ocgxii_process_ocgref:NN{ - \tl_if_exist:cTF{ocgx2.ocg.#2}{ - \tl_put_right:Nx#1{~\tl_use:c{ocgx2.ocg.#2}} - }{ - \msg_warning:nnx{ocgx2}{undefined~OCG}{#2} - \tl_if_exist:NF\g_ocgxii_refundefwarned_tl{ - \tl_new:N\g_ocgxii_refundefwarned_tl - \AtEndDocument{\msg_warning:nn{ocgx2}{undefined~OCGs}} - } + \DeclareDocumentCommand\toggleocgs{O{} m +m}{ + \tl_clear_new:N\l_ocgxii_trigger_tl + \keys_set:nn{ocgx2/ocgpcmd}{#1} + \switchocg*[\l_ocgxii_trigger_tl]{#2}{#3} } -} - -%ocg environment opts -\keys_define:nn{ocgx2/ocgenv}{ - viewocg .choice:, - viewocg / always .code:n={ - \tl_set:Nn\l_ocgxii_view_tl{/View<</ViewState/ON>>}}, - viewocg / never .code:n={ - \tl_set:Nn\l_ocgxii_view_tl{/View<</ViewState/OFF>>}}, - viewocg / ifvisible .code:n={ - \tl_clear:N\l_ocgxii_view_tl}, - viewocg .default:n={ifvisible}, - - printocg .choice:, - printocg / always .code:n={ - \tl_set:Nn\l_ocgxii_print_tl{/Print<</PrintState/ON>>}}, - printocg / never .code:n={ - \tl_set:Nn\l_ocgxii_print_tl{/Print<</PrintState/OFF>>}}, - printocg / ifvisible .code:n={ - \tl_clear:N\l_ocgxii_print_tl}, - printocg .default:n={ifvisible}, - - exportocg .choice:, - exportocg / always .code:n={ - \tl_set:Nn\l_ocgxii_export_tl{/Export<</ExportState/ON>>}}, - exportocg / never .code:n={ - \tl_set:Nn\l_ocgxii_export_tl{/Export<</ExportState/OFF>>}}, - exportocg / ifvisible .code:n={\tl_clear:N\l_ocgxii_export_tl}, - exportocg .default:n={ifvisible}, + \DeclareDocumentCommand\showocgs{O{} m +m}{ + \tl_clear_new:N\l_ocgxii_trigger_tl + \keys_set:nn{ocgx2/ocgpcmd}{#1} + \showocg*[\l_ocgxii_trigger_tl]{#2}{#3} + } + \DeclareDocumentCommand\hideocgs{O{} m +m}{ + \tl_clear_new:N\l_ocgxii_trigger_tl + \keys_set:nn{ocgx2/ocgpcmd}{#1} + \hideocg*[\l_ocgxii_trigger_tl]{#2}{#3} + } + \DeclareDocumentCommand\setocgs{O{} m m m +m}{ + \tl_clear_new:N\l_ocgxii_trigger_tl + \keys_set:nn{ocgx2/ocgpcmd}{#1} + \actionsocg*[\l_ocgxii_trigger_tl]{#2}{#3}{#4}{#5} + } + %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - showingui .choices:nn = {true,false,always,never,iffirstuse}{ - \bool_if:nTF{ - \str_if_eq_p:ee{#1}{false} || - \str_if_eq_p:ee{#1}{never} - }{ - \bool_set_false:N\l_ocgxii_showingui_bool + \cs_new_protected:Nn\ocgxii_process_ocgref:NN{ + \tl_if_exist:cTF{ocgx2.ocg.#2}{ + \tl_put_right:Nx#1{~\tl_use:c{ocgx2.ocg.#2}} }{ - \bool_set_true:N\l_ocgxii_showingui_bool - } - }, - showingui .default:n={true}, - - listintoolbar .meta:n = {showingui=#1}, - listintoolbar .default:n={true}, - - radiobtngrps .code:n = { - \clist_map_inline:nn{#1}{ - \seq_if_in:NxF\l_ocgxii_rbgrps_seq{##1}{ - \seq_put_right:Nx\l_ocgxii_rbgrps_seq{##1} + \msg_warning:nnx{ocgx2}{undefined~OCG}{#2} + \tl_if_exist:NF\g_ocgxii_refundefwarned_tl{ + \tl_new:N\g_ocgxii_refundefwarned_tl + \AtEndDocument{\msg_warning:nn{ocgx2}{undefined~OCGs}} } } - }, - radiobtngrps .value_required:n = {true}, - radiobtngrp .meta:n={radiobtngrps={#1}}, - radiobtngrp .value_required:n = {true} -} - -\cs_new_protected:Nn\ocgxii_reset_cmd_opts:{ - \tl_set_eq:NN\l_ocgxii_view_tl\g_ocgxii_view_tl - \tl_set_eq:NN\l_ocgxii_print_tl\g_ocgxii_print_tl - \tl_set_eq:NN\l_ocgxii_export_tl\g_ocgxii_export_tl - \bool_set_eq:NN\l_ocgxii_showingui_bool\g_ocgxii_showingui_bool - %stack of radio button group names the current ocg belongs to - \seq_clear_new:N\l_ocgxii_rbgrps_seq -} + } -\msg_set:nnn{ocgx2}{rerun}{Rerun~to~get~OCG~references~right!} -\msg_set:nnn{ocgx2}{undefined~OCG}{ - Line~\msg_line_number: :~OCG~`#1'~is~not~defined. -} -\msg_set:nnn{ocgx2}{undefined~OCGs}{There~were~undefined~OCGs!} -\msg_set:nnn{ocgx2}{unknown~option}{ - Line~\msg_line_number: :~unknown~option~`#1'. -} + %ocg environment opts + \keys_define:nn{ocgx2/ocgenv}{ + viewocg .choice:, + viewocg / always .code:n={ + \tl_set:Nn\l_ocgxii_view_tl{/View<</ViewState/ON>>}}, + viewocg / never .code:n={ + \tl_set:Nn\l_ocgxii_view_tl{/View<</ViewState/OFF>>}}, + viewocg / ifvisible .code:n={ + \tl_clear:N\l_ocgxii_view_tl}, + viewocg .default:n={ifvisible}, + + printocg .choice:, + printocg / always .code:n={ + \tl_set:Nn\l_ocgxii_print_tl{/Print<</PrintState/ON>>}}, + printocg / never .code:n={ + \tl_set:Nn\l_ocgxii_print_tl{/Print<</PrintState/OFF>>}}, + printocg / ifvisible .code:n={ + \tl_clear:N\l_ocgxii_print_tl}, + printocg .default:n={ifvisible}, + + exportocg .choice:, + exportocg / always .code:n={ + \tl_set:Nn\l_ocgxii_export_tl{/Export<</ExportState/ON>>}}, + exportocg / never .code:n={ + \tl_set:Nn\l_ocgxii_export_tl{/Export<</ExportState/OFF>>}}, + exportocg / ifvisible .code:n={\tl_clear:N\l_ocgxii_export_tl}, + exportocg .default:n={ifvisible}, + + showingui .choices:nn = {true,false,always,never,iffirstuse}{ + \bool_if:nTF{ + \str_if_eq_p:ee{#1}{false} || + \str_if_eq_p:ee{#1}{never} + }{ + \bool_set_false:N\l_ocgxii_showingui_bool + }{ + \bool_set_true:N\l_ocgxii_showingui_bool + } + }, + showingui .default:n={true}, -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% patch hyperref to ensure compatibility with our `ocgcolorlinks' option -% -% Plus: -% -% * add `ocgcolorlinks' support to all drivers -% -% * allows for `ocgcolorlinks' extending over -% -% line-breaks AND page-breaks -% -% with pdftex, luatex, xetex, dvipdfmx drivers -% -% based on Ben Lerner's idea -% http://tex.stackexchange.com/a/104227; -% with some improvements -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + listintoolbar .meta:n = {showingui=#1}, + listintoolbar .default:n={true}, -\cs_new_protected_nopar:Nn\ocgxii_colourlink_begin:{} -\cs_new_protected_nopar:Nn\ocgxii_colourlink_end:{} -\cs_new_protected_nopar:Nn\ocgxii_colourlink_nobreak_begin:{ - \hbox_set:Nw\l_tmpa_box\color@begingroup - \tl_set_eq:NN\color@setgroup\group_begin: -} -\cs_new_protected_nopar:Nn\ocgxii_colourlink_nobreak_end:{ - \color@endgroup\hbox_set_end: - \mbox{ - \ocgbase_oc_bdc:n{\tl_use:c{ocgxii_ocg_OCPrint}} - \hbox_to_zero:n{\box_use:N\l_tmpa_box\hss} - \ocgbase_oc_emc: - \ocgbase_oc_bdc:n{\tl_use:c{ocgxii_ocg_OCView}} - \group_begin: - \exp_after:wN\HyColor@UseColor\l_ocgxii_lnkcol_tl - \box_use_drop:N\l_tmpa_box - \group_end: - \ocgbase_oc_emc: + radiobtngrps .code:n = { + \clist_map_inline:nn{#1}{ + \seq_if_in:NxF\l_ocgxii_rbgrps_seq{##1}{ + \seq_put_right:Nx\l_ocgxii_rbgrps_seq{##1} + } + } + }, + radiobtngrps .value_required:n = {true}, + radiobtngrp .meta:n={radiobtngrps={#1}}, + radiobtngrp .value_required:n = {true} } -} -\seq_new:N\g_ocgxii_lnk_color_seq %stack of colours of currently open links -\tl_new:N\g_ocgxii_patch_tl % `BorderArrayPatch' for dvips + \cs_new_protected:Nn\ocgxii_reset_cmd_opts:{ + \tl_set_eq:NN\l_ocgxii_view_tl\g_ocgxii_view_tl + \tl_set_eq:NN\l_ocgxii_print_tl\g_ocgxii_print_tl + \tl_set_eq:NN\l_ocgxii_export_tl\g_ocgxii_export_tl + \bool_set_eq:NN\l_ocgxii_showingui_bool\g_ocgxii_showingui_bool + %stack of radio button group names the current ocg belongs to + \seq_clear_new:N\l_ocgxii_rbgrps_seq + } -%we'll be using the downscaled space character (32) from the pzdr -% (dingbats) font at the end of every ocgcolorlink in order to prevent -% empty links from flooding the page with link colour -\cs_new_nopar:Npn\ocgxii_tiny_space_char:{ - \group_begin: \font\l_tmpa_tl=pzdr~scaled~1\l_tmpa_tl\char32 \group_end: -} + \msg_set:nnn{ocgx2}{rerun}{Rerun~to~get~OCG~references~right!} + \msg_set:nnn{ocgx2}{undefined~OCG}{ + Line~\msg_line_number: :~OCG~`#1'~is~not~defined. + } + \msg_set:nnn{ocgx2}{undefined~OCGs}{There~were~undefined~OCGs!} + \msg_set:nnn{ocgx2}{unknown~option}{ + Line~\msg_line_number: :~unknown~option~`#1'. + } -\bool_if:nTF{\sys_if_output_dvi_p: && !\g_ocgxii_dvipdfmx_bool}{ - % non-breakable links in dvips - \cs_new_protected_nopar:Nn\ocgxii_enable_ocglinks:{ - \def\Hy@colorlink##1{ + %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + % patch hyperref to ensure compatibility with our `ocgcolorlinks' option + % + % Plus: + % + % * add `ocgcolorlinks' support to all drivers + % + % * allows for `ocgcolorlinks' extending over + % + % line-breaks AND page-breaks + % + % with pdftex, luatex, xetex, dvipdfmx drivers + % + % based on Ben Lerner's idea + % http://tex.stackexchange.com/a/104227; + % with some improvements + %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + \cs_new_protected_nopar:Nn\ocgxii_colourlink_begin:{} + \cs_new_protected_nopar:Nn\ocgxii_colourlink_end:{} + \cs_new_protected_nopar:Nn\ocgxii_colourlink_nobreak_begin:{ + \hbox_set:Nw\l_tmpa_box\color@begingroup + \tl_set_eq:NN\color@setgroup\group_begin: + } + \cs_new_protected_nopar:Nn\ocgxii_colourlink_nobreak_end:{ + \color@endgroup\hbox_set_end: + \mbox{ + \ocgbase_oc_bdc:n{\tl_use:c{ocgxii_ocg_OCPrint}} + \hbox_to_zero:n{\box_use:N\l_tmpa_box\hss} + \ocgbase_oc_emc: + \ocgbase_oc_bdc:n{\tl_use:c{ocgxii_ocg_OCView}} \group_begin: - \tl_set:Nn\l_ocgxii_lnkcol_tl{##1} - \ocgxii_colourlink_nobreak_begin: - } - \def\Hy@endcolorlink{ - \ocgxii_colourlink_nobreak_end: + \exp_after:wN\HyColor@UseColor\l_ocgxii_lnkcol_tl + \box_use_drop:N\l_tmpa_box \group_end: + \ocgbase_oc_emc: } } - \tl_gset:Nn\g_ocgxii_patch_tl{BorderArrayPatch} -}{ - % pdftex,luatex,xetex,dvipdfmx: - % ocgcolorlinks that extend over line and page breaks - \cs_new_protected_nopar:Nn\ocgxii_enable_ocglinks:{ - \def\Hy@colorlink##1{ - \ifx\Hy@setbreaklinks\@gobble\else - \Hy@breaklinkstrue - \fi - \ifHy@breaklinks - \seq_get_left:NNT\g_ocgxii_lnk_color_seq\l_tmpa_tl{ - \tl_gset_eq:NN\g_ocgxii_lnkcol_tl\l_tmpa_tl - \ocgxii_colourlink_end: - } - \group_begin: - \ocgxii_colourlink_begin: - \seq_gpush:Nx\g_ocgxii_lnk_color_seq{{##1}} - \ocgxii_stack_shipout:NN\ocgxii@lnkcol@stack@on@page\g_ocgxii_lnk_color_seq - \else + + \seq_new:N\g_ocgxii_lnk_color_seq %stack of colours of currently open links + \tl_new:N\g_ocgxii_patch_tl % `BorderArrayPatch' for dvips + + %we'll be using the downscaled space character (32) from the pzdr + % (dingbats) font at the end of every ocgcolorlink in order to prevent + % empty links from flooding the page with link colour + \cs_new_nopar:Npn\ocgxii_tiny_space_char:{ + \group_begin: \font\l_tmpa_tl=pzdr~scaled~1\l_tmpa_tl\char32 \group_end: + } + + \bool_if:nTF{\sys_if_output_dvi_p: && !\g_ocgxii_dvipdfmx_bool}{ + % non-breakable links in dvips + \cs_new_protected_nopar:Nn\ocgxii_enable_ocglinks:{ + \def\Hy@colorlink##1{ \group_begin: \tl_set:Nn\l_ocgxii_lnkcol_tl{##1} \ocgxii_colourlink_nobreak_begin: - \fi - } - \def\Hy@endcolorlink{ - \ifHy@breaklinks - \seq_gpop:NN\g_ocgxii_lnk_color_seq\l_tmpa_tl - \tl_gset_eq:NN\g_ocgxii_lnkcol_tl\l_tmpa_tl - \ocgxii_stack_shipout:NN\ocgxii@lnkcol@stack@on@page\g_ocgxii_lnk_color_seq - \ocgxii_colourlink_end: - \group_end: - \seq_get_left:NNT\g_ocgxii_lnk_color_seq\l_tmpa_tl{ - \tl_gset_eq:NN\g_ocgxii_lnkcol_tl\l_tmpa_tl - \ocgxii_colourlink_begin: - } - \else + } + \def\Hy@endcolorlink{ \ocgxii_colourlink_nobreak_end: \group_end: - \fi + } } - } - \bool_if:NT\l_ocgxii_ocgcolorlinks_bool{ - \cs_gset_nopar:Nn\ocgxii_colourlink_begin:{ - %tiny space char put here in order to neutralise possible transformation - %matrix modifications from previous \pdfliteral{} (TikZ makes a lot use of it) - \hbox_overlap_left:n{\ocgxii_tiny_space_char:} - \pbs_literal:nn{page}{q~7~Tr} - } - \cs_gset_nopar:Nn\ocgxii_colourlink_end:{ - %a tiny space char should keep empty link annots from flooding the page - % with link colour - \hbox_overlap_left:n{\ocgxii_tiny_space_char:} - \ocgbase_oc_bdc:n{\tl_use:c{ocgxii_ocg_OCPrint}} - \pbs_literal:nn{page}{-88888~-88888~99999~99999~re~f} - \ocgbase_oc_emc: - \ocgbase_oc_bdc:n{\tl_use:c{ocgxii_ocg_OCView}} - \group_begin: - \exp_after:wN\HyColor@UseColor\g_ocgxii_lnkcol_tl + \tl_gset:Nn\g_ocgxii_patch_tl{BorderArrayPatch} + }{ + % pdftex,luatex,xetex,dvipdfmx: + % ocgcolorlinks that extend over line and page breaks + \cs_new_protected_nopar:Nn\ocgxii_enable_ocglinks:{ + \def\Hy@colorlink##1{ + \ifx\Hy@setbreaklinks\@gobble\else + \Hy@breaklinkstrue + \fi + \ifHy@breaklinks + \seq_get_left:NNT\g_ocgxii_lnk_color_seq\l_tmpa_tl{ + \tl_gset_eq:NN\g_ocgxii_lnkcol_tl\l_tmpa_tl + \ocgxii_colourlink_end: + } + \group_begin: + \ocgxii_colourlink_begin: + \seq_gpush:Nx\g_ocgxii_lnk_color_seq{{##1}} + \ocgxii_stack_shipout:NN\ocgxii@lnkcol@stack@on@page\g_ocgxii_lnk_color_seq + \else + \group_begin: + \tl_set:Nn\l_ocgxii_lnkcol_tl{##1} + \ocgxii_colourlink_nobreak_begin: + \fi + } + \def\Hy@endcolorlink{ + \ifHy@breaklinks + \seq_gpop:NN\g_ocgxii_lnk_color_seq\l_tmpa_tl + \tl_gset_eq:NN\g_ocgxii_lnkcol_tl\l_tmpa_tl + \ocgxii_stack_shipout:NN\ocgxii@lnkcol@stack@on@page\g_ocgxii_lnk_color_seq + \ocgxii_colourlink_end: + \group_end: + \seq_get_left:NNT\g_ocgxii_lnk_color_seq\l_tmpa_tl{ + \tl_gset_eq:NN\g_ocgxii_lnkcol_tl\l_tmpa_tl + \ocgxii_colourlink_begin: + } + \else + \ocgxii_colourlink_nobreak_end: + \group_end: + \fi + } + } + \bool_if:NT\l_ocgxii_ocgcolorlinks_bool{ + \cs_gset_nopar:Nn\ocgxii_colourlink_begin:{ + %tiny space char put here in order to neutralise possible transformation + %matrix modifications from previous \pdfliteral{} (TikZ makes a lot use of it) + \hbox_overlap_left:n{\ocgxii_tiny_space_char:} + \pbs_literal:nn{page}{q~7~Tr} + } + \cs_gset_nopar:Nn\ocgxii_colourlink_end:{ + %a tiny space char should keep empty link annots from flooding the page + % with link colour + \hbox_overlap_left:n{\ocgxii_tiny_space_char:} + \ocgbase_oc_bdc:n{\tl_use:c{ocgxii_ocg_OCPrint}} \pbs_literal:nn{page}{-88888~-88888~99999~99999~re~f} - \group_end: - \ocgbase_oc_emc: - \pbs_literal:nn{page}{0~Tr~Q} + \ocgbase_oc_emc: + \ocgbase_oc_bdc:n{\tl_use:c{ocgxii_ocg_OCView}} + \group_begin: + \exp_after:wN\HyColor@UseColor\g_ocgxii_lnkcol_tl + \pbs_literal:nn{page}{-88888~-88888~99999~99999~re~f} + \group_end: + \ocgbase_oc_emc: + \pbs_literal:nn{page}{0~Tr~Q} + } } } -} -% user command for protecting graphical content (external file, inline -% [e. g. TikZ], \fbox{...}) inside breakable ocgcolorlink -\bool_if:NTF\l_ocgxii_ocgcolorlinks_bool{ - \DeclareDocumentCommand\ocglinkprotect{m}{ - \seq_get_left:NNT\g_ocgxii_lnk_color_seq\l_tmpa_tl{ - \tl_gset_eq:NN\g_ocgxii_lnkcol_tl\l_tmpa_tl - \ocgxii_colourlink_end: + % user command for protecting graphical content (external file, inline + % [e. g. TikZ], \fbox{...}) inside breakable ocgcolorlink + \bool_if:NTF\l_ocgxii_ocgcolorlinks_bool{ + \DeclareDocumentCommand\ocglinkprotect{m}{ + \seq_get_left:NNT\g_ocgxii_lnk_color_seq\l_tmpa_tl{ + \tl_gset_eq:NN\g_ocgxii_lnkcol_tl\l_tmpa_tl + \ocgxii_colourlink_end: + \group_begin: + \tl_set_eq:NN\l_ocgxii_lnkcol_tl\l_tmpa_tl + \ocgxii_colourlink_nobreak_begin: + } \group_begin: - \tl_set_eq:NN\l_ocgxii_lnkcol_tl\l_tmpa_tl - \ocgxii_colourlink_nobreak_begin: - } - \group_begin: - \cs_set_nopar:Npn\ocglinkprotect##1{##1} % in case of nesting - \sys_if_output_pdf:TF{ - \leavevmode - \hbox_set:Nn\l_tmpb_box{#1} - \hbox_to_wd:nn{\box_wd:N\l_tmpb_box}{ - \vrule~width~\c_zero_dim~height~\box_ht:N\l_tmpb_box~ - depth~\box_dp:N\l_tmpb_box - \pbs_pdfxform:nnnnn{1}{0}{}{}{\l_tmpb_box} - \pbs_pdfrefxform:n{\pbs_pdflastxform:} - \hss - } - }{#1} - \group_end: - \seq_get_left:NNT\g_ocgxii_lnk_color_seq\l_tmpa_tl{ - \ocgxii_colourlink_nobreak_end: + \cs_set_nopar:Npn\ocglinkprotect##1{##1} % in case of nesting + \sys_if_output_pdf:TF{ + \leavevmode + \hbox_set:Nn\l_tmpb_box{#1} + \hbox_to_wd:nn{\box_wd:N\l_tmpb_box}{ + \vrule~width~\c_zero_dim~height~\box_ht:N\l_tmpb_box~ + depth~\box_dp:N\l_tmpb_box + \pbs_pdfxform:nnnnn{1}{0}{}{}{\l_tmpb_box} + \pbs_pdfrefxform:n{\pbs_pdflastxform:} + \hss + } + }{#1} \group_end: - \ocgxii_colourlink_begin: + \seq_get_left:NNT\g_ocgxii_lnk_color_seq\l_tmpa_tl{ + \ocgxii_colourlink_nobreak_end: + \group_end: + \ocgxii_colourlink_begin: + } } + }{ + \DeclareDocumentCommand\ocglinkprotect{m}{#1} } -}{ - \DeclareDocumentCommand\ocglinkprotect{m}{#1} -} -% option ocgcolorlinks and beamer are not compatible -\bool_if:NT\l_ocgxii_ocgcolorlinks_bool{ - \@ifclassloaded{beamer}{ - \bool_set_false:N\l_ocgxii_ocgcolorlinks_bool - \hypersetup{colorlinks} - \msg_warning:nn{ocgx2}{beamer~and~ocgcolorlinks} - }{} -} + % option ocgcolorlinks and beamer are not compatible + \bool_if:NT\l_ocgxii_ocgcolorlinks_bool{ + \@ifclassloaded{beamer}{ + \bool_set_false:N\l_ocgxii_ocgcolorlinks_bool + \hypersetup{colorlinks} + \msg_warning:nn{ocgx2}{beamer~and~ocgcolorlinks} + }{} + } -\bool_if:NT\l_ocgxii_ocgcolorlinks_bool{ - \@ifpackageloaded{hyperref}{ - \Hy@colorlinkstrue - \AtBeginDocument{ - \ocgbase_new_ocg:nnn{OCView}{ - /Print<</PrintState/OFF>> - /Export<</ExportState/OFF>> - }{on} - \tl_gset:cx{ocgxii_ocg_OCView}{\ocgbase_last_ocg:} - %in case somebody wants to reopen with \begin{ocg}... - \tl_gset:cx{ocgxii_ocg_OCView.opts}{ - showingui=never,printocg=never,exportocg=never - } - \ocgbase_new_ocg:nnn{OCPrint}{ - /Print<</PrintState/ON>> - /Export<</ExportState/ON>> - }{off} - \tl_gset:cx{ocgxii_ocg_OCPrint}{\ocgbase_last_ocg:} - \tl_gset:cx{ocgxii_ocg_OCPrint.opts}{ - showingui=never,printocg=always,exportocg=always - } - \ocgxii_enable_ocglinks: - \iow_now:Nx\@mainaux{ - \token_to_str:N\ocgxii@newkey{ocgx2.ocg.OCView}{ - \tl_use:c{ocgxii_ocg_OCView}} - } - \iow_now:Nx\@mainaux{ - \token_to_str:N\ocgxii@newkey{ocgx2.ocg.OCPrint}{ - \tl_use:c{ocgxii_ocg_OCPrint}} + \bool_if:NT\l_ocgxii_ocgcolorlinks_bool{ + \@ifpackageloaded{hyperref}{ + \Hy@colorlinkstrue + \AtBeginDocument{ + \ocgbase_new_ocg:nnn{OCView}{ + /Print<</PrintState/OFF>> + /Export<</ExportState/OFF>> + }{on} + \tl_gset:cx{ocgxii_ocg_OCView}{\ocgbase_last_ocg:} + %in case somebody wants to reopen with \begin{ocg}... + \tl_gset:cx{ocgxii_ocg_OCView.opts}{ + showingui=never,printocg=never,exportocg=never + } + \ocgbase_new_ocg:nnn{OCPrint}{ + /Print<</PrintState/ON>> + /Export<</ExportState/ON>> + }{off} + \tl_gset:cx{ocgxii_ocg_OCPrint}{\ocgbase_last_ocg:} + \tl_gset:cx{ocgxii_ocg_OCPrint.opts}{ + showingui=never,printocg=always,exportocg=always + } + \ocgxii_enable_ocglinks: + \iow_now:Nx\@mainaux{ + \token_to_str:N\ocgxii@newkey{ocgx2.ocg.OCView}{ + \tl_use:c{ocgxii_ocg_OCView}} + } + \iow_now:Nx\@mainaux{ + \token_to_str:N\ocgxii@newkey{ocgx2.ocg.OCPrint}{ + \tl_use:c{ocgxii_ocg_OCPrint}} + } } + }{ + \msg_error:nnn{ocgx2}{missing~package}{hyperref} } - }{ - \msg_error:nnn{ocgx2}{missing~package}{hyperref} } + \bool_if:NT\l_ocgxii_tikz_bool{\cs_set_eq:NN\ocgxii@trmspc\tl_trim_spaces:N} } - +\group_begin: +\bool_if:nF{ + \bool_lazy_or_p:nn{ + \bool_lazy_and_p:nn{ + \cs_if_exist_p:N\pdfmanagement_if_active_p: + }{ + \pdfmanagement_if_active_p: + } + }{ + \bool_if_p:N\l_ocgxii_tikz_bool + } +}{\aftergroup\endinput} +\group_end: +\ExplSyntaxOff +\if@ocgxii@testphase\else %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % TikZ related code follows (to be enabled with package option `tikz') -\bool_if:NT\l_ocgxii_tikz_bool{ -\cs_set_eq:NN\ocgxii@trmspc\tl_trim_spaces:N -\ExplSyntaxOff \RequirePackage{tikz} \usetikzlibrary{calc} @@ -1499,7 +1510,6 @@ } } } -} \fi \begingroup \if@ocgxii@testphase\else\aftergroup\endinput\fi @@ -1547,8 +1557,8 @@ \RequirePackage{l3keys2e} -\def\g@ocgxii@date@tl{2021/06/11} -\def\g@ocgxii@version@tl{0.52} +\def\g@ocgxii@date@tl{2021/06/16} +\def\g@ocgxii@version@tl{0.53} \ProvidesExplPackage{ocgx2}{\g@ocgxii@date@tl}{\g@ocgxii@version@tl} {ports `ocgx' functionality to dvips+ps2pdf, xelatex and dvipdfmx} @@ -2779,13 +2789,13 @@ \ocgxii_colourlink_begin: }{#1} } +\group_begin: +\bool_if:NF\l_ocgxii_tikz_bool{\aftergroup\endinput} +\group_end: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % TikZ related code follows (to be enabled with package option `tikz') -\group_begin: -\bool_if:NF\l_ocgxii_tikz_bool{\aftergroup\endinput} -\group_end: \cs_set_eq:NN\ocgxii@trmspc\tl_trim_spaces:N \ExplSyntaxOff \RequirePackage{tikz} |