From 08389ad18f40230695bf434e4a1a5de4f83b1862 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Fri, 24 May 2019 21:20:13 +0000 Subject: ocgx2 (24may19) git-svn-id: svn://tug.org/texlive/trunk@51213 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/doc/latex/ocgx2/ChangeLog | 6 + Master/texmf-dist/doc/latex/ocgx2/README.txt | 97 +++++-- Master/texmf-dist/tex/latex/ocgx2/ocgbase.sty | 30 ++- Master/texmf-dist/tex/latex/ocgx2/ocgx2.sty | 347 ++++++++++++++++++++++---- 4 files changed, 396 insertions(+), 84 deletions(-) (limited to 'Master') diff --git a/Master/texmf-dist/doc/latex/ocgx2/ChangeLog b/Master/texmf-dist/doc/latex/ocgx2/ChangeLog index 9fe8420a144..db7e8bbe97d 100644 --- a/Master/texmf-dist/doc/latex/ocgx2/ChangeLog +++ b/Master/texmf-dist/doc/latex/ocgx2/ChangeLog @@ -1,3 +1,9 @@ +2019-05-24 + * v0.41: ocgx2.sty + * v0.15: ocgbase.sty + * new: `ocmd' environment (PDF Optional content membership dictionary) + * fix: passing driver options to expl3 + 2019-01-02 * v0.40: ocgx2.sty * fix: merge request incorporated (latex3 end-of-2018 deprecations) diff --git a/Master/texmf-dist/doc/latex/ocgx2/README.txt b/Master/texmf-dist/doc/latex/ocgx2/README.txt index e1788656734..87ef4e555ef 100644 --- a/Master/texmf-dist/doc/latex/ocgx2/README.txt +++ b/Master/texmf-dist/doc/latex/ocgx2/README.txt @@ -24,15 +24,17 @@ packages and adds support for all known engines and back-ends including To enable dvipdfmx support, pass `dvipdfmx' globally as a class option. Also, it adds some minor improvements and bug fixes, such as package -options, remembering option settings of re-opened ocgs, correct behaviour +options, remembering option settings of re-opened OCGs, correct behaviour of layer switching links that were themselves placed on layers, correct -listing of (nested) ocgs in the layers tab of PDF viewers, compatibility +listing of (nested) OCGs in the layers tab of PDF viewers, compatibility with the `animate' and `media9' packages. * New features: + PDF layers extending over page breaks - + grouping PDF layers into Radio Button Groups + + OCMDs (Optional Content Membership Dictionaries) for creating layers + with complex visibility dependency + + grouping OCGs into Radio Button Groups + additional keys for the TikZ interface of package `ocgx' + re-implementing `hyperref's `ocgcolorlinks' option for creating OCG coloured links, which are printed on paper in the default @@ -43,11 +45,17 @@ with the `animate' and `media9' packages. 2. Usage ======== -\usepackage[]{ocgx2} + \usepackage[]{ocgx2} -\begin{ocg}[]{}{}{} - ... material to be put on a PDF layer ... -\end{ocg} + \begin{ocg}[]{}{}{} + ... material to be put on a PDF layer ... + \end{ocg} + + \begin{ocmd}[]{[][,]} + ... material to be put on a PDF layer ... + visibility calculated by (Boolean expression) from + other OCGs visibility, or according to + \end{ocmd} With = ( on | true | 1 ) | ( off | false | 0 ) @@ -73,19 +81,72 @@ of the PDF viewer, automatically hides the previously visible layer. Option `radiobtngrp' can be used repeatedly for the same OCG in order to add the layer to more than one Radio Button Group. -`ocg' environments can be nested and span multiple pages. +`ocg' as well as `ocmd' environments can be nested and span multiple pages. See the `ocg-p' manual about the environment usage and the meaning of the remaining options: texdoc ocg-p -Clickable links for switching PDF layer visibility are created with: - \switchocg[]{}{} - \showocg[]{}{} - \hideocg[]{}{} - \actionsocg[]{}{}{}{} +3. The `ocmd' environment (Optional Content Membership Dictionary) +================================================================== + + \begin{ocmd}[]{[][,]} + ... material to be put on a PDF layer ... + \end{ocmd} + +This environment creates a PDF layer whose visibility is determined by the +current visibilities of other OCGs in the document according to at most one +visibility policy plus at most one visibility expression. If both are given +(with a comma in between) `' takes precedence over +`', but the latter may serve as a fallback in older PDF +viewers. + +`' is an optional identifier which can be used to re-open the same +layer with the same visibility setting at another place further down in the +document. + +A `' can be _one_ of + + \AllOn{, , ...} + \AnyOn{, , ...} + \AnyOff{, , ...} + \AllOff{, , ...} + +All four directives take a list of OCG ids from wich the OCMD visibility is +calculated. If the condition represented by the policy is met, the content +associated with the OCMD is shown. The listed OCGs can be defined anywhere in +the document. These directives can neither be combined nor nested in order to +define the policy. Thus, a visibility policy has limited capabilities. + +A `' is much more flexible than a policy. Arbitrarily +complex visibility relationships can be formulated, based on the Boolean +functions + + \And{, , ...} + \Or{, , ...} + \Not{} + +In the argument list, items represent OCG ids and nested Boolean +functions. As nesting of the three functions is possible, any thinkable +visibility relationship can be defined. Note that `\Not{...}' accepts only one +item, either an OCG id or a nested function. Also note that Boolean functions +and policy directives cannot be intermixed. + +As a trivial example, the visibility expression equivalent of the policy +directive `\AllOff{...}' is written as `\Not{ \Or{ ... } }'. + + +4. Clickable links for switching PDF layer visibility +===================================================== + +The available commands are + + \switchocg[]{}{} + \showocg[]{}{} + \hideocg[]{}{} + \actionsocg[]{}{}{}{} For details about their usage, read the `ocgx' package manual: @@ -98,16 +159,16 @@ the commands listed above. Choose one of onmousenter, onmouseexit, onmousedown, onmouseup, onmouseall for . In order to listen to more than one mouse event, use -`onmouseall'. Layer IDs in the mandatory argument(s) must then be grouped with +`onmouseall'. Layer ids in the mandatory argument(s) must then be grouped with commas as follows: , , , Any of these groups may be left empty in order to configure only some -mouse triggers. Inside the groups, layer IDs are separated by space. +mouse triggers. Inside the groups, OCG ids are separated by space. -3. Package option `ocgcolorlinks' +5. Package option `ocgcolorlinks' ================================= Is a re-implementation of the same `hyperref' option for creating OCG- @@ -133,7 +194,7 @@ For example: \ocglinkprotect{\includegraphics{ctan-lion}}!} -4. Usage with TikZ +5. Usage with TikZ ================== `ocgx2' uses code from file `tikzlibraryocgx.code.tex' by P. Gaborit to @@ -157,7 +218,7 @@ their usage: The key `/tikz/ocg/opts' was added to the list in section `How to add TikZ scopes into OCGs' in the `ocgx' manual: - /tikz/ocg/opts={} + /tikz/ocg/opts={} It allows passing `ocg'-environment options (`viewocg', `printocg', `exportocg', `showingui', `radiobtngrp') to the TikZ scope. diff --git a/Master/texmf-dist/tex/latex/ocgx2/ocgbase.sty b/Master/texmf-dist/tex/latex/ocgx2/ocgbase.sty index b0113bf270a..d30786435dd 100644 --- a/Master/texmf-dist/tex/latex/ocgx2/ocgbase.sty +++ b/Master/texmf-dist/tex/latex/ocgx2/ocgbase.sty @@ -92,11 +92,19 @@ % % The Current Maintainer of this work is A. Grahn. -\RequirePackage{expl3} +%process non-detectable dvipdfmx driver for passing to expl3 +\RequirePackage{xkeyval} +\DeclareOptionX{dvipdfmx}{% + \PassOptionsToPackage{driver=dvipdfmx}{expl3} + \PassOptionsToPackage{dvipdfmx}{pdfbase} +} +\DeclareOptionX*{}\ProcessOptionsX*\relax %allow anything as an option + \RequirePackage{pdfbase} +\RequirePackage{expl3} -\def\g@ocgbase@date@tl{2018/06/07} -\def\g@ocgbase@version@tl{0.14} +\def\g@ocgbase@date@tl{2019/05/24} +\def\g@ocgbase@version@tl{0.15} \ProvidesExplPackage{ocgbase}{\g@ocgbase@date@tl}{\g@ocgbase@version@tl} {support package for ocgx2.sty} @@ -141,7 +149,7 @@ %generate RBGroups entry (radio button groups) \tl_new:N\l_ocgbase_rbtn_groups_tl \seq_map_inline:Nn\g_ocgbase_rbtn_groups_seq{ - \int_compare:nT{\seq_count:c{g_ocgbase_rbtn_group_#1_seq}>\c_one}{ + \int_compare:nT{\seq_count:c{g_ocgbase_rbtn_group_#1_seq}>\c_one_int}{ \tl_put_right:Nx\l_ocgbase_rbtn_groups_tl{ ~[\seq_use:cn{g_ocgbase_rbtn_group_#1_seq}{~}] } @@ -174,14 +182,14 @@ %macro for inserting new OCG object \cs_new_protected_nopar:Nn\ocgbase_new_ocg:nnn{ \pbs_pdfobj:nnn{}{dict}{ - /Type/OCG/Name~(#1)~\str_if_eq_x:nnF{#2}{}{/Usage<<#2>>} + /Type/OCG/Name~(#1)~\str_if_eq:eeF{#2}{}{/Usage<<#2>>} } \tl_gput_right:Nx\g_ocgbase_ocgs_tl{~\pbs_pdflastobj:} \bool_if:nT{ - \str_if_eq_x_p:nn{#3}{0} || - \str_if_eq_x_p:nn{#3}{off} || - \str_if_eq_x_p:nn{#3}{false} || - \str_if_eq_x_p:nn{#3}{invisible} + \str_if_eq_p:ee{#3}{0} || + \str_if_eq_p:ee{#3}{off} || + \str_if_eq_p:ee{#3}{false} || + \str_if_eq_p:ee{#3}{invisible} }{ \ocgbase_add_to_off_list:n{\pbs_pdflastobj:} } @@ -236,7 +244,7 @@ \cs_new_protected:Nn\ocgbase_tree_node_end:{ \seq_get:NN\g_ocgbase_tree_nd_stack_seq\l_tempa_tl \seq_get:NN\g_ocgbase_tree_ocg_stack_seq\l_tempb_tl - \str_if_eq_x:nnT{ + \str_if_eq:eeT{ \cs_if_exist_use:c{g_ocgbase_nd_\l_tempa_tl _ocg_tl} }{ \l_tempb_tl @@ -252,7 +260,7 @@ % the node id of the sibling found is returned in arg #1 \cs_new:Nn\ocgbase_traverse_siblings:NN{ % #1: current node (in/out), #2: OCG obj (in/out) - \str_if_eq_x:nnF{#2}{\tl_use:c{g_ocgbase_nd_#1_ocg_tl}}{ + \str_if_eq:eeF{#2}{\tl_use:c{g_ocgbase_nd_#1_ocg_tl}}{ \tl_if_exist:cTF{g_ocgbase_nd_#1_sbl_tl}{ \tl_set:Nv#1{g_ocgbase_nd_#1_sbl_tl} \ocgbase_traverse_siblings:NN#1#2 diff --git a/Master/texmf-dist/tex/latex/ocgx2/ocgx2.sty b/Master/texmf-dist/tex/latex/ocgx2/ocgx2.sty index 72b51ce1940..404d849b962 100644 --- a/Master/texmf-dist/tex/latex/ocgx2/ocgx2.sty +++ b/Master/texmf-dist/tex/latex/ocgx2/ocgx2.sty @@ -15,7 +15,9 @@ % % With ocgx2, PDF layers may extend across page breaks. % -% Adds some minor improvements, such as package options, remembering option +% 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. @@ -38,8 +40,8 @@ \RequirePackage{xparse} \RequirePackage{l3keys2e} -\def\g@ocgxii@date@tl{2019/01/02} -\def\g@ocgxii@version@tl{0.40} +\def\g@ocgxii@date@tl{2019/05/24} +\def\g@ocgxii@version@tl{0.41} \ProvidesExplPackage{ocgx2}{\g@ocgxii@date@tl}{\g@ocgxii@version@tl} {ports `ocgx' functionality to dvips+ps2pdf, xelatex and dvipdfmx} @@ -60,6 +62,8 @@ } } +\msg_set:nnn{ocgx2}{generic~msg}{#1\\#2} + \msg_set:nnn{ocgx2}{missing~package}{ Package~`#1'~must~be~loaded~before~ocgx2.\\\\ Put\\\\ @@ -122,8 +126,8 @@ showingui .choices:nn = {true,false,always,never,iffirstuse}{ \bool_if:nTF{ - \str_if_eq_x_p:nn{#1}{false} || - \str_if_eq_x_p:nn{#1}{never} + \str_if_eq_p:ee{#1}{false} || + \str_if_eq_p:ee{#1}{never} }{ \bool_gset_false:N\g_ocgxii_showingui_bool }{ @@ -159,42 +163,43 @@ %re-implement ocg-p's `ocg' environment \DeclareDocumentEnvironment{ocg}{O{}mmm}{ - \ocgxii_beginocg:nnnn{#1}{#2}{#3}{#4} + \ocgxii_begin_ocg:nnnn{#1}{#2}{#3}{#4} }{ - \ocgxii_endocg: + \ocgxii_end_ocg: } -\cs_new_protected_nopar:Nn\ocgxii_beginocg:nnnn{ +\cs_new_protected_nopar:Nn\ocgxii_begin_ocg:nnnn{ \group_begin: \ocgxii_reset_cmd_opts: % ... to the user-set package options - \tl_if_exist:cTF{ocgxii@#3}{ %re-open existing layer - \tl_set:Nx\l_tempa_tl{\tl_use:c{ocgxii@#3.opts},#1} - \tl_gset:cx{ocgxii@#3.opts}{\l_tempa_tl} %new options appended - \keys_set:nV{ocgx2/user}\l_tempa_tl + \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_x_p:nn{#4}{1} || - \str_if_eq_x_p:nn{#4}{on} || - \str_if_eq_x_p:nn{#4}{true} + \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@#3}} + \ocgbase_del_from_off_list:n{\tl_use:c{ocgxii_ocg_#3}} }{ - \ocgbase_add_to_off_list:n{\tl_use:c{ocgxii@#3}} + \ocgbase_add_to_off_list:n{\tl_use:c{ocgxii_ocg_#3}} } }{ \tl_set:Nx\l_tempa_tl{#1} - \tl_gset:cx{ocgxii@#3.opts}{\l_tempa_tl} - \keys_set:nV{ocgx2/user}\l_tempa_tl + \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 - }{#4} - \tl_gset:cx{ocgxii@#3}{\ocgbase_last_ocg:} + }{\l_ocgxii_argiv_tl} + \tl_gset:cx{ocgxii_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_x_p:nn{\tl_use:c{ocgx2.ocg.#3}}{\tl_use:c{ocgxii@#3}} + \str_if_eq_p:ee{\tl_use:c{ocgx2.ocg.#3}}{\tl_use:c{ocgxii_ocg_#3}} }{ \c_false_bool } @@ -204,22 +209,22 @@ \AtEndDocument{\msg_warning:nn{ocgx2}{rerun}} } } - \tl_gset:cx{ocgx2.ocg.#3}{\tl_use:c{ocgxii@#3}} + \tl_gset:cx{ocgx2.ocg.#3}{\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@#3}} + \ocgbase_add_ocg_to_radiobtn_grp:nn{##1}{\tl_use:c{ocgxii_ocg_#3}} } - \ocgbase_open_stack_push:n{\tl_use:c{ocgxii@#3}} + \ocgbase_open_stack_push:n{\tl_use:c{ocgxii_ocg_#3}} \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@#3}} + \ocgbase_tree_node_begin:n{\tl_use:c{ocgxii_ocg_#3}} } \group_end: - \ocgbase_oc_bdc:n{\tl_use:c{ocgxii@#3}} + \ocgbase_oc_bdc:n{\tl_use:c{ocgxii_ocg_#3}} \ignorespaces } -\cs_new_protected_nopar:Nn\ocgxii_endocg:{ +\cs_new_protected_nopar:Nn\ocgxii_end_ocg:{ \unskip \ocgbase_oc_emc: \ocgbase_tree_node_end: @@ -227,6 +232,235 @@ \ocgxii_stack_shipout:NN\ocgxii@ocg@stack@on@page\g_ocgbase_open_stack_seq } +% OCMD implementation +\DeclareDocumentEnvironment{ocmd}{O{}m}{ + \ocgxii_begin_ocmd:nn{#1}{#2} +}{ + \ocgxii_end_ocmd: +} + +\cs_new_protected_nopar:Nn\ocgxii_begin_ocmd:nn{ % #1: id, + \group_begin: % #2: visib. expression or policy + \bool_if:nF{ %do nothing if we re-open existing ocmd + \tl_if_blank:oTF{#1}{ + \c_false_bool + }{ + \tl_if_exist_p:c{ocgxii_ocmd_#1} + } + }{ %new ocmd + \ocgxii_read_ocmd_visbility:nN{#2}\l_ocgxii_ocmd_visibility_tl + \pbs_pdfobj:nnn{}{dict}{ + /Type/OCMD\l_ocgxii_ocmd_visibility_tl + } + \tl_gset:cx{ocgxii_ocmd_#1}{\pbs_pdflastobj:} + } + \ocgbase_open_stack_push:n{\tl_use:c{ocgxii_ocmd_#1}} + \ocgxii_stack_shipout:NN\ocgxii@ocg@stack@on@page\g_ocgbase_open_stack_seq + \group_end: + \ocgbase_oc_bdc:n{\tl_use:c{ocgxii_ocmd_#1}} + \ignorespaces +} +\cs_new_protected_nopar:Nn\ocgxii_end_ocmd:{ + \unskip + \ocgbase_oc_emc: + \ocgbase_open_stack_pop:N\l_trash_tl + \ocgxii_stack_shipout:NN\ocgxii@ocg@stack@on@page\g_ocgbase_open_stack_seq +} + +%visibility expressions +\cs_new_protected_nopar:Nn\ocgxii_read_ocmd_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_visib_map_func:nN{##1}#2} +} +\cs_new_protected_nopar:Nn\ocgxii_omcd_visib_map_func:nN{ + \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 + \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 + \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{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. + } + }{ + \ocgxii_ve_start: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. + }{ + 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_vp_start:nN{#1}#2 + } + } + } + }{ + \msg_error:nnxx{ocgx2}{generic~msg}{ + The~visibility~argument~of~the~`ocmd'~environment~cannot~be~parsed. + }{\g_ocgxii_help_msg_tl} + } + } +} +\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~to~the~visibility~argument.~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. +} +\int_new:N\l_ocgxii_vp_cnt_int %number of visib. policies +\int_new:N\l_ocgxii_ve_cnt_int %number of visib. expressions +\cs_new_protected_nopar:Nn\ocgxii_vp_start:nN{ + \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 + #1#2 +} +\cs_new_protected_nopar:Nn\ocgxii_vp_allon:nN{ + \tl_put_right:Nx#2{/P/AllOn/OCGs~\g_ocgxii_left_bracket_tl} + \clist_map_inline:nn{#1}{\ocgxii_vp_map_func:nN{##1}#2} + \tl_put_right:Nx#2{\g_ocgxii_right_bracket_tl} +} +\cs_new_protected_nopar:Nn\ocgxii_vp_anyon:nN{ + \tl_gput_right:Nx#2{/P/AnyOn/OCGs~\g_ocgxii_left_bracket_tl} + \clist_map_inline:nn{#1}{\ocgxii_vp_map_func:nN{##1}#2} + \tl_gput_right:Nx#2{\g_ocgxii_right_bracket_tl} +} +\cs_new_protected_nopar:Nn\ocgxii_vp_anyoff:nN{ + \tl_gput_right:Nx#2{/P/AnyOff/OCGs~\g_ocgxii_left_bracket_tl} + \clist_map_inline:nn{#1}{\ocgxii_vp_map_func:nN{##1}#2} + \tl_gput_right:Nx#2{\g_ocgxii_right_bracket_tl} +} +\cs_new_protected_nopar:Nn\ocgxii_vp_alloff:nN{ + \tl_gput_right:Nx#2{/P/AllOff/OCGs~\g_ocgxii_left_bracket_tl} + \clist_map_inline:nn{#1}{\ocgxii_vp_map_func:nN{##1}#2} + \tl_gput_right:Nx#2{\g_ocgxii_right_bracket_tl} +} +\cs_new_protected_nopar:Nn\ocgxii_vp_map_func: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 + \tl_if_exist:cTF{ocgx2.ocg.#1}{ + \tl_put_right:Nx#2{~\tl_use:c{ocgx2.ocg.#1}} + }{ + \tl_if_exist:cTF{ocgxii_#1}{ + \str_if_eq:eeTF{\tl_use:c{ocgxii_#1}}{VisPol}{ + \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} + }{ + \msg_error:nnxx{ocgx2}{generic~msg}{ + Visibility~policy~and~expression~commands~cannot~be~mixed. + }{\g_ocgxii_help_msg_tl} + } + }{ + \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_new_protected_nopar:Nn\ocgxii_ve_start:nN{ + \tl_put_right:Nx#2{/VE~} + \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 +} +\cs_new_protected_nopar:Nn\ocgxii_ve_and:nN{ + \tl_put_right:Nx#2{\g_ocgxii_left_bracket_tl/And} + \clist_map_inline:nn{#1}{\ocgxii_ve_map_func:nN{##1}#2} + \tl_put_right:Nx#2{\g_ocgxii_right_bracket_tl} +} +\cs_new_protected_nopar:Nn\ocgxii_ve_or:nN{ + \tl_put_right:Nx#2{\g_ocgxii_left_bracket_tl/Or} + \clist_map_inline:nn{#1}{\ocgxii_ve_map_func:nN{##1}#2} + \tl_put_right:Nx#2{\g_ocgxii_right_bracket_tl} +} +\cs_new_protected_nopar:Nn\ocgxii_ve_not:nN{ + % 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} + \clist_map_inline:nn{#1}{\ocgxii_ve_map_func:nN{##1}#2} + \tl_put_right:Nx#2{\g_ocgxii_right_bracket_tl} + } +} +\cs_new_protected_nopar:Nn\ocgxii_ve_map_func:nN{ + \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}{ + \str_if_eq:eeTF{\tl_use:c{ocgxii_#1}}{VisExpr}{ + \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_error:nnxx{ocgx2}{generic~msg}{ + Visibility~policy~and~expression~commands~cannot~be~mixed. + }{\g_ocgxii_help_msg_tl} + } + }{ + \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_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]} + \cs_new_protected_nopar:Nn\ocgxii_stack_shipout:NN{ \iow_shipout_x:Nx\@mainaux{ \token_to_str:N#1{ @@ -268,7 +502,7 @@ } \bool_if:nT{ !\cs_if_exist:cTF{ocgx2.oldlnkcol.\int_use:N\g_ocgxii_page_int}{ - \str_if_eq_x_p:nn{ + \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}{,} @@ -296,7 +530,7 @@ } \bool_if:nT{ !\cs_if_exist:cTF{ocgx2.oldstack.\int_use:N\g_ocgxii_page_int}{ - \str_if_eq_x_p:nn{ + \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}{,} @@ -338,7 +572,7 @@ \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}_seq + g_pending_ocgs_on_\int_eval:n{\g_ocgxii_page_int-\c_one_int}_seq } } %the same for link colour stack @@ -346,7 +580,7 @@ \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}_seq + g_pending_lnkcols_on_\int_eval:n{\g_ocgxii_page_int-\c_one_int}_seq } } } @@ -378,7 +612,7 @@ \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_x:nnF{\l_ocgxii_opt_tl}{ + \str_case_e:nnF{\l_ocgxii_opt_tl}{ {onmouseup}{ \ocgxii_ocglist_build:Nn\l_ocgxii_u_list_tl{#2} } @@ -467,7 +701,7 @@ \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_x:nnF{ + \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 @@ -488,7 +722,7 @@ /Subtype/Widget/Ff~65536/FT/Btn/BS<> /T~(ocgx2@\int_use:N\g_ocgxii_widcount_int) %treat mouse-up as mouse-click --> handle through /A dictionary - \str_if_eq_x:nnF{}{ + \str_if_eq:eeF{}{ \l_ocgxii_toswitch_u_tl\l_ocgxii_toshow_u_tl\l_ocgxii_tohide_u_tl }{ /A <> } /AA << - %\str_if_eq_x:nnF{}{ + %\str_if_eq:eeF{}{ % \l_ocgxii_toswitch_u_tl\l_ocgxii_toshow_u_tl\l_ocgxii_tohide_u_tl %}{ % /U <> %} - \str_if_eq_x:nnF{}{ % mouse-down + \str_if_eq:eeF{}{ % mouse-down \l_ocgxii_toswitch_d_tl\l_ocgxii_toshow_d_tl\l_ocgxii_tohide_d_tl }{ /D <> } - \str_if_eq_x:nnF{}{ % mouse-enter + \str_if_eq:eeF{}{ % mouse-enter \l_ocgxii_toswitch_e_tl\l_ocgxii_toshow_e_tl\l_ocgxii_tohide_e_tl }{ /E <> } - \str_if_eq_x:nnF{}{ % mouse-exit + \str_if_eq:eeF{}{ % mouse-exit \l_ocgxii_toswitch_x_tl\l_ocgxii_toshow_x_tl\l_ocgxii_tohide_x_tl }{ /X <>}}, @@ -693,8 +927,8 @@ showingui .choices:nn = {true,false,always,never,iffirstuse}{ \bool_if:nTF{ - \str_if_eq_x_p:nn{#1}{false} || - \str_if_eq_x_p:nn{#1}{never} + \str_if_eq_p:ee{#1}{false} || + \str_if_eq_p:ee{#1}{never} }{ \bool_set_false:N\l_ocgxii_showingui_bool }{ @@ -759,10 +993,10 @@ \cs_new_protected_nopar:Nn\ocgxii_colourlink_nobreak_end:{ \color@endgroup\hbox_set_end: \mbox{ - \ocgbase_oc_bdc:n{\ocgxii@OCPrint} + \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{\ocgxii@OCView} + \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 @@ -845,10 +1079,10 @@ %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{\ocgxii@OCPrint} + \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{\ocgxii@OCView} + \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} @@ -911,22 +1145,25 @@ /Print<> /Export<> }{on} - \tl_gset:Nx\ocgxii@OCView{\ocgbase_last_ocg:} - \tl_gset:cx{ocgxii@OCView.opts}{ + \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<> /Export<> }{off} - \tl_gset:Nx\ocgxii@OCPrint{\ocgbase_last_ocg:} - \tl_gset:cx{ocgxii@OCPrint.opts}{ + \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}{\ocgxii@OCView} + \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}{\ocgxii@OCPrint} + \token_to_str:N\ocgxii@newkey{ocgx2.ocg.OCPrint}{ + \tl_use:c{ocgxii_ocg_OCPrint}} } } }{ -- cgit v1.2.3