summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/xcntperchap
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2016-06-10 23:22:27 +0000
committerKarl Berry <karl@freefriends.org>2016-06-10 23:22:27 +0000
commitf5551b87cb690bcd48b5d7ba19b8f6b19d0f4bc9 (patch)
tree1fdd273bab071f8042dc3284a6c2c4e657e629dd /Master/texmf-dist/tex/latex/xcntperchap
parenta87f441c572f94f8b034b30dd26010049e469bfe (diff)
xcntperchap (7jun16)
git-svn-id: svn://tug.org/texlive/trunk@41360 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/xcntperchap')
-rw-r--r--Master/texmf-dist/tex/latex/xcntperchap/xcntperchap.sty278
1 files changed, 278 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/xcntperchap/xcntperchap.sty b/Master/texmf-dist/tex/latex/xcntperchap/xcntperchap.sty
new file mode 100644
index 00000000000..b029267ca5b
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/xcntperchap/xcntperchap.sty
@@ -0,0 +1,278 @@
+%% LaTeX package xcntperchap - version 0.2 (2016/06/07 -- 09/05/23)
+%% Source file for xcntperchap.sty
+%%
+%%
+%% -------------------------------------------------------------------------------------------
+%% Copyright (c) 2016 by Dr. Christian Hupfer <christian dot hupfer at yahoo dot de>
+%% -------------------------------------------------------------------------------------------
+%%
+%% This work may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either version 1.3
+%% of this license or (at your option) any later version.
+%% The latest version of this license is in
+%% http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of LaTeX
+%% version 2005/12/01 or later.
+%%
+%%
+%% This work has the LPPL maintenance status `author-maintained`
+%%
+%%
+
+\def\xcntperchappackageversion{0.2}
+\NeedsTeXFormat{LaTeX2e}
+
+\ProvidesPackage{xcntperchap}[2016/06/07 - v\xcntperchappackageversion]
+
+\RequirePackage{xparse}
+\RequirePackage{l3keys2e}
+\RequirePackage[nonumberofruns]{xassoccnt}
+
+
+\ExplSyntaxOn
+
+
+\let\latex@@stepcounter\stepcounter
+
+
+\cs_generate_variant:Nn \int_set:Nn {NV, Nx}
+\cs_generate_variant:Nn \int_eval:n {V, x}
+\cs_generate_variant:Nn \seq_gremove_all:Nn {NV,Nx,cV,cx}
+
+
+\seq_new:N \g_xcntperchap_tracklevel_seq % This holds all counters which serve as a tracklevel
+
+
+\ior_new:N \g_trackfile_storage_read
+\iow_new:N \g_trackfile_storage_write
+
+
+\int_new:N \l_tracklevelunit_int
+\int_new:N \l_tracklevel_tracked_int
+
+
+\cs_new:Nn \xcntperchap_add_tracklevel:n {%
+ \seq_if_in:NnF \g_xcntperchap_tracklevel_seq {#1} {%
+ \seq_gput_right:Nn \g_xcntperchap_tracklevel_seq {#1}
+ \seq_new:c {g_xcntperchap_tracklevel_#1_seq}% Creating a new container for the counter names to be tracked
+ \prop_new:c {g_xcntperchap_tracklevel_#1_prop}% Creating a new property list for the counter names to be tracked
+ \seq_new:c {g_xcntperchap_tracklevelstored_#1_seq}% Creating a new container for the stored counter values (used later on)
+ }%
+}
+
+\NewDocumentCommand{\RegisterCounters}{mm}{%
+ \xcntperchap_add_tracklevel:n {#1}
+ \seq_set_from_clist:cn {g_xcntperchap_tracklevel_#1_seq} {#2}
+ \seq_remove_duplicates:c {g_xcntperchap_tracklevel_#1_seq}
+ \int_zero:N \l_tmpa_int
+ \seq_map_inline:cn {g_xcntperchap_tracklevel_#1_seq} {%
+ \int_incr:N \l_tmpa_int
+ \IfIsDocumentCounterF{cps@@#1total##1}{%
+ \NewDocumentCounter{cps@@#1total##1}%
+ \AddAssociatedCounters{##1}{cps@@#1total##1}% Define associated counters
+ }
+ \prop_put:cnV {g_xcntperchap_tracklevel_#1_prop} {##1} {\l_tmpa_int} % New Version 0.2
+ }
+}
+
+
+\cs_new:Nn \xcntperchap_storetracked_values:n{%
+ \tl_clear:N \l_tmpa_tl
+ \int_zero:N \l_tmpa_int
+ \int_zero:N \l_tmpb_int
+ \seq_if_in:NnT \g_xcntperchap_tracklevel_seq {#1} {%
+ \tl_put_right:Nn \l_tmpa_tl {#1,}%
+ \int_set:Nx \l_tmpb_int {\seq_count:c {g_xcntperchap_tracklevel_#1_seq} }
+ \int_compare:nNnT { \value{#1} } > {\c_zero }{%
+ \int_zero:N \l_tmpa_int
+ \seq_map_inline:cn {g_xcntperchap_tracklevel_#1_seq} {%
+ \int_incr:N \l_tmpa_int
+ \int_compare:nNnTF {\l_tmpa_int } < { \l_tmpb_int }
+ { \tl_gput_right:Nx \l_tmpa_tl { \number\value{cps@@#1total##1}, } } { \tl_gput_right:Nx \l_tmpa_tl { \number\value{cps@@#1total##1} } }
+ }
+ \iow_now:Nx \g_trackfile_storage_write {\l_tmpa_tl}%
+ }
+ \seq_map_inline:cn {g_xcntperchap_tracklevel_#1_seq} {
+ \setcounter{cps@@#1total##1}{0}% Reset the total counter values
+ }
+ }
+}
+
+
+\NewDocumentCommand{\StoreCounterValues}{m}{%
+ \xcntperchap_storetracked_values:n{#1}%
+}
+
+
+% Redefine again, to provide the storage feature
+\RenewDocumentCommand{\stepcounter}{m}{%
+ % Must get reset list first
+ \__xassoccnt_getresetlist:n{#1}%
+ \seq_map_inline:Nn \g_xcntperchap_tracklevel_seq {%
+ \seq_if_in:NnT \l__xassoccnt_counterreset_seq {##1} {
+ \StoreCounterValues{##1}%
+ }
+ }
+ \StoreCounterValues{#1}%
+ \latex@@stepcounter{#1}%
+}
+
+
+
+\cs_new_nopar:Nn \xcntperchap_trackcounters: {%
+ \seq_map_inline:cn {g_xcntperchap_tracklevel_seq} {%
+ \xcntperchap_storetracked_values:n{##1}%
+ }
+}
+
+\NewDocumentCommand{\TrackCounters}{}{%
+ \xcntperchap_trackcounters:
+}
+
+
+\NewDocumentCommand{\cntperchapsetup}{}{%
+% Unused so far
+}
+
+\NewDocumentCommand{\LoadTrackedValues}{}{%
+ \IfFileExists{\jobname.cpc}{%
+ \xcntperchap_open_trackfile_for_read:n{\jobname.cpc}
+ \GetStoredValues%
+ \xcntperchap_close_trackfile_for_read:
+ }{}
+}
+
+
+
+\cs_new:Nn \xcntperchap_open_trackfile_for_read:n {%
+ \ior_open:Nn \g_trackfile_storage_read {#1}
+}
+
+\cs_new_nopar:Nn \xcntperchap_close_trackfile_for_read: {%
+ \ior_close:N \g_trackfile_storage_read
+}
+
+\cs_new:Nn \xcntperchap_open_trackfile_for_write:n {%
+ \iow_open:Nn \g_trackfile_storage_write {#1}
+}
+
+\cs_new_nopar:Nn \xcntperchap_close_trackfile_for_write: {%
+ \iow_close:N \g_trackfile_storage_write
+}
+
+\NewDocumentCommand{\CloseTrackFileForWrite}{}{%
+ \xcntperchap_close_trackfile_for_write:%
+}
+
+
+\NewDocumentCommand{\OpenTrackFileForWrite}{m}{%
+ \xcntperchap_open_trackfile_for_write:n{#1}%
+}
+
+
+
+\cs_new:Nn \l_xcntperchap_read_countervalues:n {%
+ \clist_set:Nx \l_tmpa_clist {#1}%
+ \tl_set:Nx \l_tmpa_tl {\clist_item:Nn \l_tmpa_clist {1}}
+ \clist_map_inline:Nn \l_tmpa_clist {%
+ \seq_gput_right:cn {g_xcntperchap_tracklevelstored_\l_tmpa_tl _seq} {##1} % Store the value in the tracklevel list for counter \l_tmpa_tl
+ }
+ % Kick the name of the tracklevel counter from the list
+ \seq_gremove_all:cx {g_xcntperchap_tracklevelstored_\l_tmpa_tl _seq} {\tl_use:N \l_tmpa_tl}%
+}
+
+\cs_new_nopar:Nn \xcntperchap_gettrackedvalues_from_file:n {%
+ \ior_map_inline:Nn #1 { \l_xcntperchap_read_countervalues:n{##1} }
+}
+
+
+% Unexpandable version!
+\cs_new:Nn \xcntperchap_obtaintrackedvalue:nnn {%
+ \int_set:Nx \l_tracklevelunit_int {#1}
+ \seq_if_in:cnTF {g_xcntperchap_tracklevel_#2_seq} {#3}
+ {
+ \int_set:Nx \l_tracklevel_tracked_int {\seq_count:c {g_xcntperchap_tracklevel_#2_seq}}
+ \int_zero:N \l_tmpa_int
+ \seq_map_inline:cn {g_xcntperchap_tracklevel_#2_seq} {%
+ \int_incr:N \l_tmpa_int
+ \tl_if_eq:nnT { ##1 } {#3 } {
+ \seq_map_break:
+ }
+ }
+ \int_set:NV \l_tmpb_int { \l_tmpa_int }
+ \int_set:Nx \l_tmpa_int { \l_tracklevel_tracked_int * (\l_tracklevelunit_int -1) + \l_tmpb_int }
+ }{%
+ % Perhaps some error message here, for the moment only a screen message
+ \typeout{#3~is~not~under~track~control~of~#2}
+ }
+}
+
+\NewDocumentCommand{\ObtainTrackedValue}{omm}{%
+ \IfValueTF{#1}{%
+ \xcntperchap_obtaintrackedvalue:nnn {#1}{#2}{#3}%
+ }{%
+ \xcntperchap_obtaintrackedvalue:nnn {\number\value{#2}}{#2}{#3}%
+ }%
+}
+
+
+%%%%% 0.2 Expandable Version
+\cs_new:Nn \xcntperchap_obtaintrackedvalue_exp_orig:nnn {%
+ \int_set:Nx \l_tracklevelunit_int {#1}
+ \seq_if_in:cnT {g_xcntperchap_tracklevel_#2_seq} {#3}
+ {
+ \int_set:Nx \l_tracklevel_tracked_int {\seq_count:c {g_xcntperchap_tracklevel_#2_seq}}
+ \int_zero:N \l_tmpa_int
+ \seq_map_inline:cn {g_xcntperchap_tracklevel_#2_seq} {%
+ \int_incr:N \l_tmpa_int
+ \tl_if_eq:nnT { ##1 } {#3 } {
+ \seq_map_break:
+ }
+ }
+ \int_set:NV \l_tmpb_int { \l_tmpa_int }
+ \int_set:Nx \l_tmpa_int { \l_tracklevel_tracked_int * (\l_tracklevelunit_int -1) + \l_tmpb_int }
+ \seq_item:cn {g_xcntperchap_tracklevelstored_#2_seq} {\int_use:N \l_tmpa_int}
+ }%
+}
+
+
+\cs_new:Nn \xcntperchap_obtaintrackedvalue_exp:nnn {% Needs some error checking!!!
+ \seq_if_exist:cTF {g_xcntperchap_tracklevel_#2_seq} {
+ \seq_item:cn {g_xcntperchap_tracklevelstored_#2_seq} { \seq_count:c {g_xcntperchap_tracklevel_#2_seq} * \int_eval:n{#1-1}+\prop_item:cn {g_xcntperchap_tracklevel_#2_prop} {#3}}
+ }{
+ \typeout{Error!}%
+ }
+}
+
+\DeclareExpandableDocumentCommand{\ObtainTrackedValueExp}{omm}{%
+ \IfValueTF{#1}{%
+ \xcntperchap_obtaintrackedvalue_exp:nnn {#1}{#2}{#3}%
+ }{%
+ \xcntperchap_obtaintrackedvalue_exp:nnn {\number\value{#2}}{#2}{#3}
+ }
+}
+
+
+\NewDocumentCommand{\GetStoredValues}{}{%
+ \xcntperchap_gettrackedvalues_from_file:n {\g_trackfile_storage_read}
+}
+
+
+
+\ExplSyntaxOff
+
+\@onlypreamble\RegisterCounters
+\makeatother
+
+
+\AtBeginDocument{%
+ \LoadTrackedValues%
+ \OpenTrackFileForWrite{\jobname.cpc}%
+}
+
+\AtEndDocument{%
+ \TrackCounters%
+ \CloseTrackFileForWrite%
+}
+\endinput
+