texlive[52502] Master/texmf-dist: scontents (23oct19)
commits+karl at tug.org
commits+karl at tug.org
Wed Oct 23 23:39:58 CEST 2019
Revision: 52502
http://tug.org/svn/texlive?view=revision&revision=52502
Author: karl
Date: 2019-10-23 23:39:58 +0200 (Wed, 23 Oct 2019)
Log Message:
-----------
scontents (23oct19)
Modified Paths:
--------------
trunk/Master/texmf-dist/doc/latex/scontents/README.md
trunk/Master/texmf-dist/doc/latex/scontents/scontents.pdf
trunk/Master/texmf-dist/source/latex/scontents/scontents.dtx
trunk/Master/texmf-dist/source/latex/scontents/scontents.ins
trunk/Master/texmf-dist/tex/latex/scontents/scontents.sty
Added Paths:
-----------
trunk/Master/texmf-dist/doc/latex/scontents/scontents-code.tex
trunk/Master/texmf-dist/doc/latex/scontents/scontents.tex
trunk/Master/texmf-dist/doc/latex/scontents/t-scontents.mkvi
Modified: trunk/Master/texmf-dist/doc/latex/scontents/README.md
===================================================================
--- trunk/Master/texmf-dist/doc/latex/scontents/README.md 2019-10-23 21:39:38 UTC (rev 52501)
+++ trunk/Master/texmf-dist/doc/latex/scontents/README.md 2019-10-23 21:39:58 UTC (rev 52502)
@@ -1,6 +1,6 @@
## scontents — Stores LaTeX contents in memory or files
-- Version: 1.4
-- Date: 2019/10/03
+- Version: 1.5
+- Date: 2019-10-24
- Author: Pablo González
## Description
@@ -18,9 +18,21 @@
## Installation
The package `scontents` is present in `TeXLive` and `MiKTeX`, use the
-package manager to install. For a manual installation, put `scontents.dtx`
-in your working directory and run `tex scontents.dtx`.
+package manager to install.
+For manual installation, download `scontents.zip` and unzip it, then move
+the files to appropriate locations:
+```
+ scontents.tex -> TDS:tex/generic/scontents/
+ scontents-code.tex -> TDS:tex/generic/scontents/
+ scontents.sty -> TDS:tex/latex/scontents/
+ t-scontents.mkvi -> TDS:tex/context/third/scontents/
+ scontents.pdf -> TDS:doc/latex/scontents/
+ README.md -> TDS:doc/latex/scontents/
+ scontents.dtx -> TDS:source/latex/scontents/
+ scontents.ins -> TDS:source/latex/scontents/
+```
+then run `mktexlsr`.
## Examples
The file `scontents.pdf` contains attached examples, which can be extracted
@@ -34,3 +46,4 @@
- README.md (this file)
- scontents.pdf (documentation)
- scontents.dtx (master file that produced all files)
+- scontents.ins (installer to extract all files)
Added: trunk/Master/texmf-dist/doc/latex/scontents/scontents-code.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/scontents/scontents-code.tex (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/scontents/scontents-code.tex 2019-10-23 21:39:58 UTC (rev 52502)
@@ -0,0 +1,766 @@
+%%
+%% This is file `scontents-code.tex',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% scontents.dtx (with options: `core')
+%%
+%% Copyright (C) 2019 by Pablo González L <pablgonz at educarchile.cl>
+%%
+%% This work may be distributed and/or modified under the conditions of the
+%% LaTeX Project Public License, either version 1.3c 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.3c or later is part of all distributions of LaTeX version
+%% 2005/12/01 or later.
+%%
+%% This work is "maintained" (as per the LPPL maintenance status)
+%% by Pablo González Luengo.
+%%
+%% This work consists of the files scontents.dtx and
+%% scontents.ins,
+%% and the derived files scontents.sty,
+%% scontents.tex,
+%% t-scontents.mkvi and
+%% scontents-code.tex.
+%%
+\def\ScontentsCoreFileDate{2019-10-24}%
+\begingroup
+ \def\next{\endgroup}%
+ \expandafter\ifx\csname PackageError\endcsname\relax
+ \begingroup
+ \def\next{\endgroup\endgroup}%
+ \def\PackageError#1#2#3%
+ {%
+ \endgroup
+ \errhelp{#3}%
+ \errmessage{#1 Error: #2!}%
+ }%
+ \fi
+ \expandafter\ifx\csname ScontentsFileDate\endcsname\relax
+ \def\next
+ {%
+ \PackageError{scontents}{No scontents loader detected}
+ {%
+ You have attempted to use the scontents code directly rather than using
+ the correct loader. Loading of scontents will abort.
+ }%
+ \endgroup
+ \endinput
+ }
+ \else
+ \ifx\ScontentsFileDate\ScontentsCoreFileDate
+ \else
+ \def\next
+ {%
+ \PackageError{scontents}{Mismatched~scontents~files~detected}
+ {%
+ You~have~attempted~to~load~scontents~with~mismatched~files:~
+ probably~you~have~one~or~more~files~'locally~installed'~which~
+ are~in~conflict.~Loading~of~scontents~will~abort.
+ }%
+ \endgroup
+ \endinput
+ }%
+ \fi
+\fi
+\next
+\keys_define:nn { scontents }
+ {
+ store-env .tl_set:N = \l__scontents_name_seq_env_tl,
+ store-env .initial:n = contents,
+ store-env .value_required:n = true,
+ store-cmd .tl_set:N = \l__scontents_name_seq_cmd_tl,
+ store-cmd .initial:n = contents,
+ store-cmd .value_required:n = true,
+ verb-font .tl_set:N = \l__scontents_verb_font_tl,
+ verb-font .value_required:n = true,
+ print-env .bool_set:N = \l__scontents_print_env_bool,
+ print-env .initial:n = false,
+ print-env .default:n = true,
+ print-cmd .bool_set:N = \l__scontents_print_cmd_bool,
+ print-cmd .initial:n = false,
+ print-cmd .default:n = true,
+ force-eol .bool_set:N = \l__scontents_forced_eol_bool,
+ force-eol .initial:n = false,
+ force-eol .default:n = true,
+ width-tab .int_set:N = \l__scontents_tab_width_int,
+ width-tab .initial:n = 1,
+ width-tab .value_required:n = true,
+ print-all .meta:n = { print-env = #1 , print-cmd = #1 },
+ print-all .default:n = true,
+ store-all .meta:n = { store-env = #1 , store-cmd = #1 },
+ store-all .value_required:n = true
+ }
+\tl_new:N \l__scontents_macro_tmp_tl
+\tl_new:N \l__scontents_fname_out_tl
+\tl_new:N \l__scontents_temp_tl
+\tl_new:N \l__scontents_file_tl
+\tl_new:N \g__scontents_temp_tl
+\tl_new:N \l__scontents_foreach_name_seq_tl
+\tl_new:N \l__scontents_foreach_before_tl
+\tl_new:N \l__scontents_foreach_after_tl
+\int_new:N \l__scontents_foreach_stop_int
+\int_new:N \l__scontents_seq_item_int
+\int_new:N \l__scontents_env_nesting_int
+\int_new:N \l__scontents_tmpa_int
+\bool_new:N \l__scontents_writing_bool
+\bool_set_false:N \l__scontents_writing_bool
+\bool_new:N \l__scontents_storing_bool
+\bool_set_true:N \l__scontents_storing_bool
+\bool_new:N \l__scontents_foreach_before_bool
+\bool_set_false:N \l__scontents_foreach_before_bool
+\bool_new:N \l__scontents_foreach_after_bool
+\bool_set_false:N \l__scontents_foreach_after_bool
+\bool_new:N \l__scontents_foreach_stop_bool
+\bool_set_false:N \l__scontents_foreach_stop_bool
+\bool_new:N \l__scontents_foreach_wrapper_bool
+\bool_set_false:N \l__scontents_foreach_wrapper_bool
+\seq_new:N \l__scontents_foreach_print_seq
+\str_const:Nx \c__scontents_hidden_space_str
+ { \c_percent_str \c_circumflex_str \c_circumflex_str A scheol \c_percent_str }
+\quark_new:N \q__scontents_stop
+\quark_new:N \q__scontents_mark
+\iow_new:N \l__scontents_file_iow
+\cs_new_protected:Npn \__scontents_rescan_tokens:n #1 { \tex_scantokens:D {#1} }
+\cs_generate_variant:Nn \__scontents_rescan_tokens:n { V, x }
+\cs_new:Npx \__scontents_tab: { \c_space_tl }
+\cs_new:Npn \__scontents_par: { ^^J ^^J }
+\cs_generate_variant:Nn \tl_remove_once:Nn { NV }
+\cs_generate_variant:Nn \tl_replace_all:Nnn { Nx, Nxx, Nnx }
+\cs_generate_variant:Nn \msg_error:nnnn { nnx }
+\prg_generate_conditional_variant:Nnn \tl_if_empty:n { f } { TF }
+\keys_define:nn { scontents / scontents }
+ {
+ write-env .code:n = {
+ \bool_set_true:N \l__scontents_writing_bool
+ \tl_set:Nn \l__scontents_fname_out_tl {#1}
+ },
+ write-out .code:n = {
+ \bool_set_false:N \l__scontents_storing_bool
+ \bool_set_true:N \l__scontents_writing_bool
+ \tl_set:Nn \l__scontents_fname_out_tl {#1}
+ },
+ write-env .value_required:n = true,
+ write-out .value_required:n = true,
+ print-env .meta:nn = { scontents } { print-env = #1 },
+ print-env .default:n = true,
+ store-env .meta:nn = { scontents } { store-env = #1 },
+ force-eol .meta:nn = { scontents } { force-eol = #1 },
+ force-eol .default:n = true,
+ unknown .code:n = { \__scontents_parse_environment_keys:n {#1} }
+ }
+\keys_define:nn { scontents / Scontents }
+ {
+ print-cmd .meta:nn = { scontents } { print-cmd = #1 },
+ print-cmd .default:n = true,
+ store-cmd .meta:nn = { scontents } { store-cmd = #1 },
+ force-eol .meta:nn = { scontents } { force-eol = #1 },
+ force-eol .default:n = true,
+ unknown .code:n = { \__scontents_parse_command_keys:n {#1} }
+ }
+\keys_define:nn { scontents / foreachsc }
+ {
+ before .code:n = {
+ \bool_set_true:N \l__scontents_foreach_before_bool
+ \tl_set:Nn \l__scontents_foreach_before_tl {#1}
+ },
+ before .value_required:n = true,
+ after .code:n = {
+ \bool_set_true:N \l__scontents_foreach_after_bool
+ \tl_set:Nn \l__scontents_foreach_after_tl {#1}
+ },
+ after .value_required:n = true,
+ start .int_set:N = \l__scontents_foreach_start_int,
+ start .value_required:n = true,
+ start .initial:n = 1,
+ stop .code:n = {
+ \bool_set_true:N \l__scontents_foreach_stop_bool
+ \int_set:Nn \l__scontents_foreach_stop_int {#1}
+ },
+ stop .value_required:n = true,
+ step .int_set:N = \l__scontents_foreach_step_int,
+ step .value_required:n = true,
+ step .initial:n = 1,
+ wrapper .code:n = {
+ \bool_set_true:N \l__scontents_foreach_wrapper_bool
+ \cs_set_protected:Npn \__scontents_foreach_wrapper:n ##1 {#1}
+ },
+ wrapper .value_required:n = true,
+ sep .tl_set:N = \l__scontents_foreach_sep_tl,
+ sep .initial:n = {},
+ sep .value_required:n = true,
+ unknown .code:n = { \__scontents_parse_foreach_keys:n {#1} }
+ }
+\keys_define:nn { scontents / typemeaning }
+ {
+ width-tab .meta:nn = { scontents } { width-tab = #1 },
+ unknown .code:n = { \__scontents_parse_type_meaning_key:n {#1} }
+ }
+\cs_new_protected:Npn \__scontents_parse_environment_keys:n #1
+ { \exp_args:NV \__scontents_parse_environment_keys:nn \l_keys_key_tl {#1} }
+\cs_new_protected:Npn \__scontents_parse_environment_keys:nn #1#2
+ {
+ \tl_if_blank:nTF {#2}
+ { \msg_error:nnn { scontents } { env-key-unknown } {#1} }
+ { \msg_error:nnnn { scontents } { env-key-value-unknown } {#1} {#2} }
+ }
+\cs_new_protected:Npn \__scontents_parse_command_keys:n #1
+ { \exp_args:NV \__scontents_parse_command_keys:nn \l_keys_key_tl {#1} }
+\cs_new_protected:Npn \__scontents_parse_command_keys:nn #1#2
+ {
+ \tl_if_blank:nTF {#2}
+ { \msg_error:nnn { scontents } { cmd-key-unknown } {#1} }
+ { \msg_error:nnnn { scontents } { cmd-key-value-unknown } {#1} {#2} }
+ }
+\cs_new_protected:Npn \__scontents_parse_foreach_keys:nn #1#2
+ {
+ \tl_if_blank:nTF {#2}
+ { \msg_error:nnn { scontents } { for-key-unknown } {#1} }
+ { \msg_error:nnnn { scontents } { for-key-value-unknown } {#1} {#2} }
+ }
+\cs_new_protected:Npn \__scontents_parse_foreach_keys:n #1
+ { \exp_args:NV \__scontents_parse_foreach_keys:nn \l_keys_key_tl {#1} }
+\cs_new_protected:Npn \__scontents_parse_type_meaning_key:n #1
+ { \exp_args:NV \__scontents_parse_type_meaning_key:nn \l_keys_key_tl {#1} }
+\cs_new_protected:Npn \__scontents_parse_type_meaning_key:nn #1#2
+ {
+ \tl_if_empty:fTF { \int_to_roman:n { -0 #1 } }
+ {
+ \tl_if_blank:nTF {#2}
+ { \int_set:Nn \l__scontents_seq_item_int {#1} }
+ { \msg_error:nnnn { scontents } { type-key-value-unknown } {#1} {#2} }
+ }
+ {
+ \tl_if_blank:nTF {#2}
+ { \msg_error:nnn { scontents } { type-key-unknown } {#1} }
+ { \msg_error:nnnn { scontents } { type-key-value-unknown } {#1} {#2} }
+ }
+ }
+\cs_new_protected:Npn \__scontents_append_contents:nn #1#2
+ {
+ \tl_if_blank:nT {#1}
+ { \msg_error:nn { scontents } { empty-store-cmd } }
+ \seq_if_exist:cF { g__scontents_name_#1_seq }
+ { \seq_new:c { g__scontents_name_#1_seq } }
+ \seq_gput_right:cn { g__scontents_name_#1_seq } {#2}
+ }
+\cs_generate_variant:Nn \__scontents_append_contents:nn { Vx }
+\cs_new:Npn \__scontents_getfrom_seq:nn #1#2
+ {
+ \seq_if_exist:cTF { g__scontents_name_#2_seq }
+ {
+ \exp_args:Nf \__scontents_getfrom_seq:nnn
+ { \seq_count:c { g__scontents_name_#2_seq } }
+ {#1} {#2}
+ }
+ { \msg_expandable_error:nnn { scontents } { undefined-storage } {#2} }
+ }
+\cs_new:Npn \__scontents_getfrom_seq:nnn #1#2#3
+ {
+ \bool_lazy_or:nnTF
+ { \int_compare_p:nNn {#2} = { 0 } }
+ { \int_compare_p:nNn { \int_abs:n {#2} } > {#1} }
+ { \msg_expandable_error:nnnnn { scontents } { index-out-of-range } {#2} {#3} {#1} }
+ { \seq_item:cn { g__scontents_name_#3_seq } {#2} }
+ }
+\cs_new_protected:Npn \__scontents_lastfrom_seq:n #1
+ {
+ \tl_gset:Nx \g__scontents_temp_tl { \seq_item:cn { g__scontents_name_#1_seq } {-1} }
+ \group_insert_after:N \__scontents_rescan_tokens:V
+ \group_insert_after:N \g__scontents_temp_tl
+ \group_insert_after:N \tl_gclear:N
+ \group_insert_after:N \g__scontents_temp_tl
+ }
+\cs_new_protected:Npn \__scontents_store_to_seq:NN #1#2
+ {
+ \tl_log:N #1
+ \__scontents_append_contents:Vx #2 { \exp_not:V #1 }
+ }
+\cs_new_protected:Npn \__scontents_scontents_env_begin:
+ {
+ \char_set_catcode_active:N \^^M
+ \__scontents_start_environment:w
+ }
+\cs_new_protected:Npn \__scontents_scontents_env_end:
+ {
+ \__scontents_stop_environment:
+ \__scontents_atend_environment:
+ }
+\cs_new_protected:Npn \__scontents_grab_optional:n #1
+ {
+ \tl_if_novalue:nF {#1}
+ {
+ \tl_set:Nn \l__scontents_temp_tl {#1}
+ \__scontents_normalise_line_ends:N \l__scontents_temp_tl
+ \keys_set:nV { scontents / scontents } \l__scontents_temp_tl
+ }
+ \__scontents_start_after_option:w
+ }
+\group_begin:
+ \char_set_catcode_active:N \^^I
+ \char_set_catcode_active:N \^^L
+ \char_set_catcode_active:N \^^M
+ \cs_new_protected:Npn \__scontents_normalise_line_ends:N #1
+ { \tl_replace_all:Nnn #1 { ^^M } { ~ } }
+ \cs_new_protected:Npn \__scontents_start_environment:w #1 ^^M
+ {
+ \tl_if_head_is_N_type:nTF {#1}
+ {
+ \str_if_eq:eeTF { \tl_head:n {#1} } { [ }
+ { \__scontents_grab_optional:w #1 ^^M }
+ { \__scontents_check_line_and_process:xn { } {#1} }
+ }
+ { \__scontents_check_line_and_process:xn { } {#1} }
+ }
+ \cs_new_protected:Npn \__scontents_start_after_option:w #1 ^^M
+ { \__scontents_check_line_and_process:xn { [...] } {#1} }
+ \cs_new_protected:Npn \__scontents_check_line_and_process:xn #1 #2
+ {
+ \tl_if_blank:nF {#2}
+ {
+ \msg_error:nnxn { scontents } { junk-after-begin }
+ { after~\c_backslash_str begin{scontents} #1 } {#2}
+ }
+ \__scontents_make_control_chars_active:
+ \group_begin:
+ \__scontents_file_tl_write_start:V \l__scontents_fname_out_tl
+ }
+ \cs_new_protected:Npn \__scontents_stop_environment:
+ {
+ \__scontents_file_write_stop:N \l__scontents_macro_tmp_tl
+ \exp_args:NNNV
+ \group_end:
+ \tl_set:Nn \l__scontents_macro_tmp_tl \l__scontents_macro_tmp_tl
+ \tl_if_empty:NT \l__scontents_macro_tmp_tl
+ { \msg_warning:nnn { scontents } { empty-environment } }
+ }
+ \cs_new_protected:Npn \__scontents_file_tl_write_start:n #1
+ {
+ \group_begin:
+ \bool_if:NT \l__scontents_writing_bool
+ {
+ \file_if_exist:nTF {#1}
+ { \msg_warning:nnx { scontents } { rewriting-file } {#1} }
+ { \msg_warning:nnx { scontents } { writing-file } {#1} }
+ \iow_open:Nn \l__scontents_file_iow {#1}
+ }
+ \tl_clear:N \l__scontents_file_tl
+ \seq_map_function:NN \l_char_special_seq \char_set_catcode_other:N
+ \int_step_function:nnN { 128 } { 255 } \char_set_catcode_letter:n
+ \cs_set_protected:Npx \__scontents_ret:w ##1 ^^M
+ {
+ \exp_not:N \__scontents_verb_processor_iterate:w
+ ##1 \c__scontents_end_env_tl
+ \c__scontents_end_env_tl
+ \exp_not:N \q__scontents_stop
+ }
+ \__scontents_make_control_chars_active:
+ \__scontents_ret:w
+ }
+ \use:x
+ {
+ \cs_new:Npn \exp_not:N \__scontents_verb_processor_iterate:w
+ ##1 \c__scontents_end_env_tl
+ ##2 \c__scontents_end_env_tl
+ ##3 \exp_not:N \q__scontents_stop
+ } {
+ \tl_if_blank:nTF {#3}
+ {
+ \__scontents_analyse_nesting:n {#1}
+ \__scontents_verb_processor_output:n {#1}
+ }
+ {
+ \__scontents_if_nested:TF
+ {
+ \__scontents_nesting_decr:
+ \__scontents_verb_processor_output:x
+ { \exp_not:n {#1} \c__scontents_end_env_tl \exp_not:n {#2} }
+ }
+ {
+ \tl_if_blank:nF {#1}
+ { \__scontents_verb_processor_output:n {#1} }
+ \cs_set_protected:Npx \__scontents_ret:w
+ {
+ \__scontents_format_case:nnn
+ { \exp_not:N \end{scontents} } % LaTeX
+ { \endscontents } % Plain/Generic
+ { \stopscontents } % ConTeXt
+ \bool_lazy_or:nnF
+ { \tl_if_blank_p:n {#2} }
+ { \str_if_eq_p:ee {#2} { \c_percent_str } }
+ {
+ \msg_warning:nnn { scontents } { rescanning-text } {#2}
+ \__scontents_rescan_tokens:n {#2}
+ }
+ }
+ \char_set_active_eq:NN ^^M \__scontents_ret:w
+ }
+ }
+ ^^M
+ }
+ \cs_new_protected:Npn \__scontents_file_write_stop:N #1
+ {
+ \bool_if:NT \l__scontents_writing_bool
+ { \iow_close:N \l__scontents_file_iow }
+ \use:x
+ {
+ \group_end:
+ \bool_if:NT \l__scontents_storing_bool
+ {
+ \tl_set:Nn \exp_not:N #1
+ { \exp_args:NV \__scontents_remove_leading_nl:n \l__scontents_file_tl }
+ }
+ }
+ }
+ \cs_new:Npn \__scontents_remove_leading_nl:n #1
+ {
+ \tl_if_head_is_N_type:nTF {#1}
+ {
+ \exp_args:Nf
+ \__scontents_remove_leading_nl:nn
+ { \tl_head:n {#1} } {#1}
+ }
+ { \exp_not:n {#1} }
+ }
+ \cs_new:Npn \__scontents_remove_leading_nl:nn #1 #2
+ {
+ \token_if_eq_meaning:NNTF ^^J #1
+ { \exp_not:o { \__scontents_remove_leading_nl:w #2 } }
+ { \exp_not:n {#2} }
+ }
+ \cs_new:Npn \__scontents_remove_leading_nl:w ^^J { }
+ \cs_new_protected:Npn \__scontents_verb_processor_output:n #1
+ {
+ \bool_if:NT \l__scontents_writing_bool
+ { \iow_now:Nn \l__scontents_file_iow {#1} }
+ \bool_if:NT \l__scontents_storing_bool
+ { \tl_put_right:Nn \l__scontents_file_tl { ^^J #1 } }
+ }
+ \cs_generate_variant:Nn \__scontents_verb_processor_output:n { x }
+ \cs_new_protected:Npx \__scontents_analyse_nesting:n #1
+ {
+ \int_zero:N \l__scontents_tmpa_int
+ \exp_not:N \__scontents_analyse_nesting:w #1
+ \c_backslash_str begin
+ \c_left_brace_str \exp_not:N \q__scontents_mark \c_right_brace_str
+ \exp_not:N \q__scontents_stop
+ \int_compare:nNnT { \l__scontents_tmpa_int } > { 1 }
+ { \msg_warning:nn { scontents } { multiple-begin } }
+ }
+ \use:x
+ {
+ \cs_new_protected:Npn \exp_not:N \__scontents_analyse_nesting:w ##1
+ \c_backslash_str begin \c_left_brace_str ##2 \c_right_brace_str
+ } {
+ \if_meaning:w \q__scontents_mark #2
+ \exp_after:wN \use_i:nn
+ \else:
+ \exp_after:wN \use_ii:nn
+ \fi:
+ { \__scontents_use_none_delimit_by_q_stop:w }
+ {
+ \str_if_eq:eeT {#2} {scontents}
+ {
+ \int_incr:N \l__scontents_env_nesting_int
+ \int_incr:N \l__scontents_tmpa_int
+ \__scontents_analyse_nesting:w
+ }
+ \__scontents_analyse_nesting:w
+ }
+ }
+ \cs_new_protected:Npn \__scontents_nesting_decr:
+ { \int_decr:N \l__scontents_env_nesting_int }
+ \prg_new_protected_conditional:Npnn \__scontents_if_nested: { TF }
+ {
+ \int_compare:nNnTF { \l__scontents_env_nesting_int } > { \c_zero_int }
+ { \prg_return_true: }
+ { \prg_return_false: }
+ }
+ \cs_new:Npn \__scontents_use_none_delimit_by_q_stop:w #1 \q__scontents_stop { }
+\group_end:
+\cs_generate_variant:Nn \__scontents_file_tl_write_start:n { V }
+\cs_new_protected:Npn \__scontents_atend_environment:
+ {
+ \bool_if:NT \l__scontents_storing_bool
+ {
+ \bool_if:NF \l__scontents_forced_eol_bool
+ { \tl_put_right:Nx \l__scontents_macro_tmp_tl { \c__scontents_hidden_space_str } }
+ \__scontents_store_to_seq:NN \l__scontents_macro_tmp_tl \l__scontents_name_seq_env_tl
+ \bool_if:NT \l__scontents_print_env_bool
+ { \__scontents_lastfrom_seq:n \l__scontents_name_seq_env_tl }
+ }
+ }
+\cs_if_exist:NF \dospecials
+ {
+ \cs_new:Npn \dospecials
+ { \seq_map_function:NN \l_char_special_seq \do }
+ }
+\cs_new_protected:Npn \__scontents_Scontents_internal:nn #1 #2
+ {
+ \group_begin:
+ \tl_if_novalue:nF {#2}
+ { \keys_set:nn { scontents / Scontents } {#2} }
+ \char_set_catcode_active:n { 9 }
+ \bool_if:NTF #1
+ { \__scontents_verb_arg:w }
+ { \__scontents_norm_arg:n }
+ }
+\cs_new_protected:Npn \__scontents_norm_arg:n #1
+ {
+ \tl_set:Nx \l__scontents_temp_tl { \exp_not:n {#1} }
+ \tl_put_right:Nx \l__scontents_temp_tl { \c__scontents_hidden_space_str }
+ \__scontents_store_to_seq:NN \l__scontents_temp_tl \l__scontents_name_seq_cmd_tl
+ \bool_if:NT \l__scontents_print_cmd_bool
+ { \__scontents_lastfrom_seq:n \l__scontents_name_seq_cmd_tl }
+ \group_end:
+ }
+\cs_new_protected:Npn \__scontents_verb_arg_internal:n #1
+ {
+ \tl_set:Nx \l__scontents_temp_tl { \exp_not:n {#1} }
+ \tl_replace_all:Nxx \l__scontents_temp_tl { \iow_char:N \^^M } { \iow_char:N \^^J }
+ \bool_if:NF \l__scontents_forced_eol_bool
+ { \tl_put_right:Nx \l__scontents_temp_tl { \c__scontents_hidden_space_str } }
+ \__scontents_store_to_seq:NN \l__scontents_temp_tl \l__scontents_name_seq_cmd_tl
+ \bool_if:NT \l__scontents_print_cmd_bool
+ { \__scontents_lastfrom_seq:n \l__scontents_name_seq_cmd_tl }
+ \group_end:
+ }
+\cs_new_protected:Npn \__scontents_getstored_internal:nn #1 #2
+ {
+ \group_begin:
+ \int_set:Nn \tex_newlinechar:D { `\^^J }
+ \__scontents_rescan_tokens:x
+ { \__scontents_getfrom_seq:nn {#1} {#2} }
+ \group_end:
+ }
+\cs_new_protected:Npn \__scontents_foreachsc_internal:nn #1 #2
+ {
+ \group_begin:
+ \tl_if_novalue:nF {#1} { \keys_set:nn { scontents / foreachsc } {#1} }
+ \tl_set:Nn \l__scontents_foreach_name_seq_tl {#2}
+ \seq_clear:N \l__scontents_foreach_print_seq
+ \bool_if:NF \l__scontents_foreach_stop_bool
+ {
+ \int_set:Nn \l__scontents_foreach_stop_int
+ { \seq_count:c { g__scontents_name_#2_seq } }
+ }
+ \int_step_function:nnnN
+ { \l__scontents_foreach_start_int }
+ { \l__scontents_foreach_step_int }
+ { \l__scontents_foreach_stop_int }
+ \__scontents_foreach_add_body:n
+ \seq_use:Nn \l__scontents_foreach_print_seq { \tl_use:N \l__scontents_foreach_sep_tl }
+ \group_end:
+ }
+\cs_new_protected:Npn \__scontents_foreach_add_body:n #1
+ {
+ \seq_put_right:Nx \l__scontents_foreach_print_seq
+ {
+ \bool_if:NT \l__scontents_foreach_before_bool
+ { \exp_not:V \l__scontents_foreach_before_tl }
+ \bool_if:NTF \l__scontents_foreach_wrapper_bool
+ { \__scontents_foreach_wrapper:n }
+ { \use:n }
+ { \getstored [#1] { \tl_use:N \l__scontents_foreach_name_seq_tl } }
+ \bool_if:NT \l__scontents_foreach_after_bool
+ { \exp_not:V \l__scontents_foreach_after_tl }
+ }
+ }
+\cs_new_protected:Npn \__scontents_typestored_internal:nn #1 #2
+ {
+ \group_begin:
+ \int_set:Nn \l__scontents_seq_item_int { 1 }
+ \tl_if_novalue:nF {#1} { \keys_set:nn { scontents / typemeaning } {#1} }
+ \tl_set:Nx \l__scontents_temp_tl
+ { \exp_args:NV \__scontents_getfrom_seq:nn \l__scontents_seq_item_int {#2} }
+ \tl_remove_once:NV \l__scontents_temp_tl \c__scontents_hidden_space_str
+ \tl_log:N \l__scontents_temp_tl
+ \tl_if_empty:NF \l__scontents_temp_tl
+ { \__scontents_verb_print:N \l__scontents_temp_tl }
+ \group_end:
+ }
+\group_begin:
+ \char_set_catcode_active:N \^^M
+ \cs_new_protected:Npn \__scontents_verb_print:N #1
+ {
+ \tl_if_blank:VT #1
+ { \msg_error:nnn { scontents } { empty-variable } {#1} }
+ \cs_set_eq:NN \__scontents_verb_print_EOL: ^^M
+ \cs_set_eq:NN ^^M \scan_stop:
+ \cs_set_eq:cN { do at noligs } \__scontents_do_noligs:N
+ \int_set:Nn \tex_newlinechar:D { `\^^J }
+ \__scontents_rescan_tokens:x
+ {
+ \__scontents_format_case:nnn
+ { \exp_not:N \begin{verbatimsc} } % LaTeX
+ { \verbatimsc } % Plain/Generic
+ { \startverbatimsc } % ConTeXt
+ ^^M
+ \exp_not:V #1 ^^M
+ \g__scontents_end_verbatimsc_tl
+ }
+ \cs_set_eq:NN ^^M \__scontents_verb_print_EOL:
+ }
+\group_end:
+\cs_new_protected:Npn \__scontents_xverb:
+ {
+ \char_set_catcode_active:n { 9 }
+ \char_set_active_eq:nN { 9 } \__scontents_tabs_to_spaces:
+ \__scontents_xverb:w
+ }
+\cs_new:Npn \__scontents_tabs_to_spaces:
+ { \prg_replicate:nn { \l__scontents_tab_width_int } { ~ } }
+\cs_new:Npn \__scontents_do_noligs:N #1
+ {
+ \char_set_catcode_active:N #1
+ \char_set_active_eq:Nc #1 { __scontents_active_char_ \token_to_str:N #1 : }
+ \cs_set:cpx { __scontents_active_char_ \token_to_str:N #1 : }
+ {
+ \mode_leave_vertical:
+ \tex_kern:D \c_zero_dim
+ \char_generate:nn { `#1 } { 12 }
+ }
+ }
+\cs_new_protected:Npn \__scontents_set_active_eq:NN #1
+ {
+ \char_set_catcode_active:N #1
+ \char_set_active_eq:NN #1
+ }
+\group_begin:
+ \char_set_catcode_active:N \*
+ \cs_new_protected:Npn \__scontents_make_control_chars_active:
+ {
+ \__scontents_plain_disable_outer_par:
+ \__scontents_set_active_eq:NN \^^I \__scontents_tab:
+ \__scontents_set_active_eq:NN \^^L \__scontents_par:
+ \__scontents_set_active_eq:NN \^^M \__scontents_ret:w
+ }
+\group_end:
+\cs_new_protected:Npn \__scontents_meaningsc_internal:nn #1 #2
+ {
+ \group_begin:
+ \int_set:Nn \l__scontents_seq_item_int { 1 }
+ \tl_if_novalue:nF {#1} { \keys_set:nn { scontents / typemeaning } {#1} }
+ \__scontents_meaningsc:n {#2}
+ \group_end:
+ }
+\group_begin:
+ \char_set_catcode_active:N \^^I
+ \cs_new_protected:Npn \__scontents_meaningsc:n #1
+ {
+ \tl_set:Nx \l__scontents_temp_tl
+ { \exp_args:NV \__scontents_getfrom_seq:nn \l__scontents_seq_item_int {#1} }
+ \tl_replace_all:Nxn \l__scontents_temp_tl { \iow_char:N \^^J } { ~ }
+ \tl_remove_once:NV \l__scontents_temp_tl \c__scontents_hidden_space_str
+ \tl_log:N \l__scontents_temp_tl
+ \tl_use:N \l__scontents_verb_font_tl
+ \tl_replace_all:Nnx \l__scontents_temp_tl { ^^I } { \__scontents_tabs_to_spaces: }
+ \cs_replacement_spec:N \l__scontents_temp_tl
+ }
+\group_end:
+\msg_new:nnn { scontents } { junk-after-begin }
+ {
+ Junk~characters~#1~\msg_line_context: :
+ \\ \\
+ #2
+ }
+\msg_new:nnn { scontents } { empty-stored-content }
+ { Empty~value~for~key~'getstored'~\msg_line_context:. }
+\msg_new:nnn { scontents } { empty-variable }
+ { Variable~'#1'~empty~\msg_line_context:. }
+\msg_new:nnn { scontents } { rewriting-file }
+ { Overwriting ~ file ~ '#1' }
+\msg_new:nnn { scontents } { writing-file }
+ { Writing ~ file ~ '#1' }
+\msg_new:nnn { scontents } { rescanning-text }
+ { Rescanning~text~'#1'~after~\c_backslash_str end{scontents}~\msg_line_context:.}
+\msg_new:nnn { scontents } { multiple-begin }
+ { Multiple~\c_backslash_str begin{scontents}~\msg_line_context:.}
+\msg_new:nnn { scontents } { undefined-storage }
+ { Storage~named~'#1'~is~not~defined. }
+\msg_new:nnn { scontents } { index-out-of-range }
+ {
+ \int_compare:nNnTF {#1} = { 0 }
+ { Index~of~sequence~cannot~be~zero. }
+ {
+ Index~'#1'~out~of~range~for~'#2'.~
+ \int_compare:nNnTF {#1} > { 0 }
+ { Max = } { Min = -} #3.
+ }
+ }
+\msg_new:nnnn { scontents } { env-key-unknown }
+ { The~key~'#1'~is~unknown~by~environment~'scontents'~and~is~being~ignored.}
+ {
+ The~environment~'scontents'~does~not~have~a~key~called~'#1'.\\
+ Check~that~you~have~spelled~the~key~name~correctly.
+ }
+\msg_new:nnnn { scontents } { env-key-value-unknown }
+ { The~key~'#1=#2'~is~unknown~by~environment~'scontents'~and~is~being~ignored. }
+ {
+ The~environment~'scontents'~does~not~have~a~key~called~'#1'.\\
+ Check~that~you~have~spelled~the~key~name~correctly.
+ }
+\msg_new:nnnn { scontents } { cmd-key-unknown }
+ { The~key~'#1'~is~unknown~by~'\c_backslash_str Scontents'~and~is~being~ignored.}
+ {
+ The~command~'\c_backslash_str Scontents'~does~not~have~a~key~called~'#1'.\\
+ Check~that~you~have~spelled~the~key~name~correctly.
+ }
+\msg_new:nnnn { scontents } { cmd-key-value-unknown }
+ { The~key~'#1=#2'~is~unknown~by~'\c_backslash_str Scontents'~and~is~being~ignored. }
+ {
+ The~command~'\c_backslash_str Scontents'~does~not~have~a~key~called~'#1'.\\
+ Check~that~you~have~spelled~the~key~name~correctly.
+ }
+\msg_new:nnnn { scontents } { for-key-unknown }
+ { The~key~'#1'~is~unknown~by~'\c_backslash_str foreachsc'~and~is~being~ignored.}
+ {
+ The~command~'\c_backslash_str foreachsc'~does~not~have~a~key~called~'#1'.\\
+ Check~that~you~have~spelled~the~key~name~correctly.
+ }
+\msg_new:nnnn { scontents } { for-key-value-unknown }
+ { The~key~'#1=#2'~is~unknown~by~'\c_backslash_str foreachsc'~and~is~being~ignored. }
+ {
+ The~command~'\c_backslash_str foreachsc'~does~not~have~a~key~called~'#1'.\\
+ Check~that~you~have~spelled~the~key~name~correctly.
+ }
+\msg_new:nnnn { scontents } { type-key-unknown }
+ { The~key~'#1'~is~unknown~and~is~being~ignored. }
+ {
+ This~command~does~not~have~a~key~called~'#1'.\\
+ This~command~only~accepts~the~key~'width-tab'.
+ }
+\msg_new:nnnn { scontents } { type-key-value-unknown }
+ { The~key~'#1'~to~which~you~passed~'#2'~is~unknown~and~is~being~ignored. }
+ {
+ This~command~does~not~have~a~key~called~'#1'.\\
+ This~command~only~accepts~the~key~'width-tab'.
+ }
+\msg_new:nnn { scontents } { empty-environment }
+ { scontents~environment~empty~\msg_line_context:. }
+\msg_new:nnnn { scontents } { verbatim-newline }
+ { Verbatim~argument~of~#1~ended~by~end~of~line. }
+ {
+ The~verbatim~argument~of~the~#1~cannot~contain~more~than~one~line,~
+ but~the~end~
+ of~the~current~line~has~been~reached.~You~may~have~forgotten~the~
+ closing~delimiter.
+ \\ \\
+ LaTeX~will~ignore~'#2'.
+ }
+\msg_new:nnnn { scontents } { verbatim-tokenized }
+ { The~verbatim~#1~cannot~be~used~inside~an~argument. }
+ {
+ The~#1~takes~a~verbatim~argument.~
+ It~may~not~appear~within~the~argument~of~another~function.~
+ It~received~an~illegal~token \tl_if_empty:nF {#3} { ~'#3' } .
+ \\ \\
+ LaTeX~will~ignore~'#2'.
+ }
+\endinput
+%%
+%% End of file `scontents-code.tex'.
Property changes on: trunk/Master/texmf-dist/doc/latex/scontents/scontents-code.tex
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Modified: trunk/Master/texmf-dist/doc/latex/scontents/scontents.pdf
===================================================================
(Binary files differ)
Added: trunk/Master/texmf-dist/doc/latex/scontents/scontents.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/scontents/scontents.tex (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/scontents/scontents.tex 2019-10-23 21:39:58 UTC (rev 52502)
@@ -0,0 +1,239 @@
+%%
+%% This is file `scontents.tex',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% scontents.dtx (with options: `loader,plain')
+%%
+%% Copyright (C) 2019 by Pablo González L <pablgonz at educarchile.cl>
+%%
+%% This work may be distributed and/or modified under the conditions of the
+%% LaTeX Project Public License, either version 1.3c 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.3c or later is part of all distributions of LaTeX version
+%% 2005/12/01 or later.
+%%
+%% This work is "maintained" (as per the LPPL maintenance status)
+%% by Pablo González Luengo.
+%%
+%% This work consists of the files scontents.dtx and
+%% scontents.ins,
+%% and the derived files scontents.sty,
+%% scontents.tex,
+%% t-scontents.mkvi and
+%% scontents-code.tex.
+%%
+\def\ScontentsFileDate{2019-10-24}%
+\def\ScontentsFileVersion{1.5}%
+\def\ScontentsFileDescription{Stores LaTeX contents in memory or files}%
+\input expl3-generic.tex
+\ExplSyntaxOn
+\tl_gset:cx { ver @ scontents . sty } { \ScontentsFileDate\space
+ v\ScontentsFileVersion\space \ScontentsFileDescription }
+\iow_log:x { Package: ~ scontents ~ \use:c { ver @ scontents . sty } }
+\msg_gset:nnn { scontents } { already-loaded }
+ { The~`scontents'~package~is~already~loaded.~Aborting~input~\msg_line_context:. }
+\cs_if_exist:NT \__scontents_rescan_tokens:n
+ {
+ \msg_warning:nn { scontents } { already-loaded }
+ \ExplSyntaxOff
+ \file_input_stop:
+ }
+\tl_new:N \g__scontents_end_verbatimsc_tl
+\tl_gset_rescan:Nnn
+ \g__scontents_end_verbatimsc_tl
+ {
+ \char_set_catcode_other:N \\
+ }
+ { \endverbatimsc }
+\tl_const:Nx \c__scontents_end_env_tl
+ {
+ \c_backslash_str
+ end
+ scontents
+ }
+\file_input:n { scontents-code.tex }
+\cs_new:Npn \__scontents_format_case:nnn #1 #2 #3
+ {#2} % Plain/Generic
+\keys_define:nn { scontents }
+ { verb-font .initial:n = \tt }
+\seq_new:N \l__scontents_compat_seq
+\cs_new_protected:Npn \__scontents_compat_redefine:Npn #1
+ {
+ \seq_put_right:Nn \l__scontents_compat_seq {#1}
+ \cs_set_eq:cN { __scontents_saved_\cs_to_str:N #1: } #1
+ \cs_new_protected:Npn #1
+ }
+\cs_new_protected:Npn \__scontents_compat_restore:
+ { \seq_map_function:NN \l__scontents_compat_seq \__scontents_compat_restore:N }
+\cs_new_protected:Npn \__scontents_compat_restore:N #1
+ {
+ \cs_set_eq:Nc #1 { __scontents_saved_\cs_to_str:N #1: }
+ \cs_undefine:c { __scontents_saved_\cs_to_str:N #1: }
+ }
+\cs_generate_variant:Nn \__scontents_compat_redefine:Npn { c }
+\cs_new_protected:Npn \__scontents_optarg:nn #1 #2
+ { \peek_charcode_ignore_spaces:NTF [ {#1} {#1[#2]} }
+\cs_new_protected:Npn \__scontents_stararg:nn #1 #2
+ { \peek_charcode_remove_ignore_spaces:NTF * {#1} {#2} }
+\__scontents_compat_redefine:Npn \RequirePackage
+ { \__scontents_optarg:nn { \__scontents_require_auxi:wn } { } }
+\cs_new_protected:Npn \__scontents_require_auxi:wn [#1] #2
+ { \__scontents_optarg:nn { \__scontents_require_auxii:wnw [{#1}]{#2} } { } }
+\cs_new:Npn \__scontents_zap_space:ww #1~#2
+ {
+ #1 \if_meaning:w #2 \q_mark
+ \exp_after:wN \use_none:n
+ \else:
+ \exp_after:wN \__scontents_zap_space:ww
+ \fi: #2
+ }
+\cs_new_protected:Npn \__scontents_require_auxii:wnw [#1] #2 [#3]
+ {
+ \tl_set:Nx \l__scontents_temp_tl { \__scontents_zap_space:ww #2 ~ \q_mark }
+ \clist_map_function:NN \l__scontents_temp_tl \__scontents_require_auxiii:n
+ }
+\cs_new_protected:Npn \__scontents_require_auxiii:n #1
+ { \str_if_eq:eeF {expl3} {#1} { \msg_error:nnn { scontents } { invalid-package } {#1} } }
+\msg_new:nnn { scontents } { invalid-package }
+ { Package~`#1'~invalid~in~scontents.~This~is~an~error~in~scontents. }
+\__scontents_compat_redefine:cpn { @ifpackagelater } #1
+ { \exp_args:Nc \__scontents_package_later_aux:Nn { ver@#1.sty } }
+\cs_new_protected:Npn \__scontents_package_later_aux:Nn #1 #2
+ {
+ \int_compare:nNnTF
+ { \exp_after:wN \__scontents_parse_version:w #1 //00 \q_mark } <
+ { \exp_after:wN \__scontents_parse_version:w #2 //00 \q_mark }
+ }
+\cs_new:Npn \__scontents_parse_version:w #1 { \__scontents_parse_version_auxi:w 0#1 }
+\cs_new:Npn \__scontents_parse_version_auxi:w #1/#2/#3#4#5 \q_mark
+ { \__scontents_parse_version_auxii:w #1-#2-#3#4 \q_mark }
+\cs_new:Npn \__scontents_parse_version_auxii:w #1-#2-#3#4#5 \q_mark
+ { \tl_if_blank:nF {#2} {#1} #2 #3 #4 }
+\__scontents_compat_redefine:Npn \ProvidesExplPackage #1 #2 #3 #4
+ { \__scontents_provides_aux:nn {#1} { #2 \ifx\relax#3\relax\else v#3\space\fi #4 } }
+\cs_new_protected:Npn \__scontents_provides_aux:nn #1 #2
+ {
+ \tl_gset:cx { ver@#1.sty } {#2}
+ \iow_log:n { Package~#1:~#2 }
+ \ExplSyntaxOn
+ }
+\__scontents_compat_redefine:Npn \DeclareOption
+ { \__scontents_stararg:nn { \use_none:n } { \use_none:nn } }
+\__scontents_compat_redefine:Npn \ProcessOptions
+ { \__scontents_stararg:nn { } { } }
+\int_set:Nn \l__scontents_tmpa_int { \char_value_catcode:n { `\@ } }
+\char_set_catcode_letter:N \@
+\exp_after:wN
+\ExplSyntaxOff
+\file_input:n { xparse.sty }
+\ExplSyntaxOn
+\char_set_catcode:nn { `\@ } { \l__scontents_tmpa_int }
+\__scontents_compat_restore:
+\NewDocumentEnvironment { scontents } { }
+ {
+ \group_begin:
+ \__scontents_scontents_env_begin:
+ }
+ {
+ \__scontents_scontents_env_end:
+ \group_end:
+ }
+\NewDocumentCommand \__scontents_grab_optional:w { r[] }
+ { \__scontents_grab_optional:n {#1} }
+\bool_new:N \l__scontents_temp_bool
+\cs_new_protected:Npn \verbatim
+ { \__scontents_verbatim_aux: \frenchspacing \__scontents_vobeyspaces: \__scontents_xverb: }
+\cs_new_protected:Npn \__scontents_verbatim_aux:
+ {
+ \skip_vertical:N \parskip
+ \int_set:Nn \parindent { 0pt }
+ \skip_set:Nn \parfillskip { 0pt plus 1fil }
+ \int_set:Nn \parskip { 0pt plus0pt minus0pt }
+ \tex_par:D
+ \bool_set_false:N \l__scontents_temp_bool
+ \cs_set:Npn \par
+ {
+ \bool_if:NTF \l__scontents_temp_bool
+ {
+ \mode_leave_vertical:
+ \null
+ \tex_par:D
+ \penalty \interlinepenalty
+ }
+ {
+ \bool_set_true:N \l__scontents_temp_bool
+ \mode_if_horizontal:T
+ { \tex_par:D \penalty \interlinepenalty }
+ }
+ }
+ \cs_set_eq:NN \do \char_set_catcode_other:N
+ \dospecials \obeylines
+ \tl_use:N \l__scontents_verb_font_tl
+ \cs_set_eq:NN \do \__scontents_do_noligs:N
+ \__scontents_nolig_list:
+ \tex_everypar:D \exp_after:wN
+ { \tex_the:D \tex_everypar:D \tex_unpenalty:D }
+ }
+\cs_new_protected:Npn \__scontents_nolig_list:
+ { \do\`\do\<\do\>\do\,\do\'\do\- }
+\cs_new_protected:Npn \__scontents_vobeyspaces:
+ { \__scontents_set_active_eq:NN \ \__scontents_xobeysp: }
+\cs_new_protected:Npn \__scontents_xobeysp:
+ { \mode_leave_vertical: \nobreak \ }
+\cs_if_exist:NF \dospecials
+ {
+ \cs_new:Npn \dospecials
+ { \seq_map_function:NN \l_char_special_seq \do }
+ }
+\NewDocumentCommand { \Scontents }{ !s !O{} }
+ { \__scontents_Scontents_internal:nn {#1} {#2} }
+\NewDocumentCommand { \__scontents_verb_arg:w } { +v }
+ { \__scontents_verb_arg_internal:n {#1} }
+\NewDocumentCommand { \getstored } { O{1} m }
+ { \__scontents_getstored_internal:nn {#1} {#2} }
+\NewDocumentCommand { \foreachsc } { o m }
+ { \__scontents_foreachsc_internal:nn {#1} {#2} }
+\NewDocumentCommand { \typestored } { o m }
+ { \__scontents_typestored_internal:nn {#1} {#2} }
+\use:x
+ {
+ \cs_new_protected:Npn \exp_not:N \__scontents_xverb:w
+ ##1 \g__scontents_end_verbatimsc_tl
+ { ##1 \exp_not:N \endverbatimsc }
+ }
+\NewDocumentEnvironment { verbatimsc } { }
+ {
+ \group_begin:
+ \verbatim
+ }
+ {
+ \group_end:
+ }
+\group_begin:
+ \char_set_catcode_active:n { `\* }
+ \cs_new_protected:Npn \__scontents_plain_disable_outer_par:
+ {
+ \group_begin:
+ \char_set_lccode:nn { `\* } { `\^^L }
+ \tex_lowercase:D { \group_end:
+ \tex_let:D * \scan_stop:
+ }
+ }
+\group_end:
+\NewDocumentCommand { \setupsc } { +m }
+ { \keys_set:nn { scontents } {#1} }
+\NewDocumentCommand { \meaningsc } { o m }
+ { \__scontents_meaningsc_internal:nn {#1} {#2} }
+\NewExpandableDocumentCommand { \countsc } { m }
+ { \seq_count:c { g__scontents_name_#1_seq } }
+\NewDocumentCommand { \cleanseqsc } { m }
+ { \seq_clear_new:c { g__scontents_name_#1_seq } }
+\ExplSyntaxOff
+\endinput
+%%
+%% End of file `scontents.tex'.
Property changes on: trunk/Master/texmf-dist/doc/latex/scontents/scontents.tex
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/scontents/t-scontents.mkvi
===================================================================
--- trunk/Master/texmf-dist/doc/latex/scontents/t-scontents.mkvi (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/scontents/t-scontents.mkvi 2019-10-23 21:39:58 UTC (rev 52502)
@@ -0,0 +1,194 @@
+%%
+%% This is file `t-scontents.mkvi',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% scontents.dtx (with options: `loader,context')
+%%
+%% Copyright (C) 2019 by Pablo González L <pablgonz at educarchile.cl>
+%%
+%% This work may be distributed and/or modified under the conditions of the
+%% LaTeX Project Public License, either version 1.3c 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.3c or later is part of all distributions of LaTeX version
+%% 2005/12/01 or later.
+%%
+%% This work is "maintained" (as per the LPPL maintenance status)
+%% by Pablo González Luengo.
+%%
+%% This work consists of the files scontents.dtx and
+%% scontents.ins,
+%% and the derived files scontents.sty,
+%% scontents.tex,
+%% t-scontents.mkvi and
+%% scontents-code.tex.
+%%
+%%
+%% The original source files were:
+%%
+%% scontents.dtx (with options: `loader,context')
+%D \module
+%D [ file=t-scontents,
+%D version=1.5,
+%D title=\CONTEXT\ User Module,
+%D subtitle=Storing Contents,
+%D author=Pablo González,
+%D date=2019-10-24,
+%D copyright=Pablo González,
+%D email=pablgonz at educarchile.cl,
+%D license=LPPL]
+\def\ScontentsFileDate{2019-10-24}%
+\def\ScontentsFileVersion{1.5}%
+\def\ScontentsFileDescription{Stores LaTeX contents in memory or files}%
+\writestatus{loading}{User Module scontents v\ScontentsFileVersion}
+\unprotect
+\input expl3-generic.tex
+\ExplSyntaxOn
+\tl_gset:cx { ver @ scontents . sty } { \ScontentsFileDate\space
+ v\ScontentsFileVersion\space \ScontentsFileDescription }
+\iow_log:x { Package: ~ scontents ~ \use:c { ver @ scontents . sty } }
+\tl_new:N \g__scontents_end_verbatimsc_tl
+\tl_gset_rescan:Nnn
+ \g__scontents_end_verbatimsc_tl
+ {
+ \char_set_catcode_other:N \\
+ }
+ { \stopverbatimsc }
+\tl_const:Nx \c__scontents_end_env_tl
+ {
+ \c_backslash_str
+ stop
+ scontents
+ }
+\file_input:n { scontents-code.tex }
+\cs_new:Npn \__scontents_format_case:nnn #1 #2 #3
+ {#3} % ConTeXt
+\keys_define:nn { scontents }
+ { verb-font .initial:n = \tt }
+\seq_new:N \l__scontents_compat_seq
+\cs_new_protected:Npn \__scontents_compat_redefine:Npn #1
+ {
+ \seq_put_right:Nn \l__scontents_compat_seq {#1}
+ \cs_set_eq:cN { __scontents_saved_\cs_to_str:N #1: } #1
+ \cs_new_protected:Npn #1
+ }
+\cs_new_protected:Npn \__scontents_compat_restore:
+ { \seq_map_function:NN \l__scontents_compat_seq \__scontents_compat_restore:N }
+\cs_new_protected:Npn \__scontents_compat_restore:N #1
+ {
+ \cs_set_eq:Nc #1 { __scontents_saved_\cs_to_str:N #1: }
+ \cs_undefine:c { __scontents_saved_\cs_to_str:N #1: }
+ }
+\cs_generate_variant:Nn \__scontents_compat_redefine:Npn { c }
+\cs_new_protected:Npn \__scontents_optarg:nn #1 #2
+ { \peek_charcode_ignore_spaces:NTF [ {#1} {#1[#2]} }
+\cs_new_protected:Npn \__scontents_stararg:nn #1 #2
+ { \peek_charcode_remove_ignore_spaces:NTF * {#1} {#2} }
+\__scontents_compat_redefine:Npn \RequirePackage
+ { \__scontents_optarg:nn { \__scontents_require_auxi:wn } { } }
+\cs_new_protected:Npn \__scontents_require_auxi:wn [#1] #2
+ { \__scontents_optarg:nn { \__scontents_require_auxii:wnw [{#1}]{#2} } { } }
+\cs_new:Npn \__scontents_zap_space:ww #1~#2
+ {
+ #1 \if_meaning:w #2 \q_mark
+ \exp_after:wN \use_none:n
+ \else:
+ \exp_after:wN \__scontents_zap_space:ww
+ \fi: #2
+ }
+\cs_new_protected:Npn \__scontents_require_auxii:wnw [#1] #2 [#3]
+ {
+ \tl_set:Nx \l__scontents_temp_tl { \__scontents_zap_space:ww #2 ~ \q_mark }
+ \clist_map_function:NN \l__scontents_temp_tl \__scontents_require_auxiii:n
+ }
+\cs_new_protected:Npn \__scontents_require_auxiii:n #1
+ { \str_if_eq:eeF {expl3} {#1} { \msg_error:nnn { scontents } { invalid-package } {#1} } }
+\msg_new:nnn { scontents } { invalid-package }
+ { Package~`#1'~invalid~in~scontents.~This~is~an~error~in~scontents. }
+\__scontents_compat_redefine:cpn { @ifpackagelater } #1
+ { \exp_args:Nc \__scontents_package_later_aux:Nn { ver@#1.sty } }
+\cs_new_protected:Npn \__scontents_package_later_aux:Nn #1 #2
+ {
+ \int_compare:nNnTF
+ { \exp_after:wN \__scontents_parse_version:w #1 //00 \q_mark } <
+ { \exp_after:wN \__scontents_parse_version:w #2 //00 \q_mark }
+ }
+\cs_new:Npn \__scontents_parse_version:w #1 { \__scontents_parse_version_auxi:w 0#1 }
+\cs_new:Npn \__scontents_parse_version_auxi:w #1/#2/#3#4#5 \q_mark
+ { \__scontents_parse_version_auxii:w #1-#2-#3#4 \q_mark }
+\cs_new:Npn \__scontents_parse_version_auxii:w #1-#2-#3#4#5 \q_mark
+ { \tl_if_blank:nF {#2} {#1} #2 #3 #4 }
+\__scontents_compat_redefine:Npn \ProvidesExplPackage #1 #2 #3 #4
+ { \__scontents_provides_aux:nn {#1} { #2 \ifx\relax#3\relax\else v#3\space\fi #4 } }
+\cs_new_protected:Npn \__scontents_provides_aux:nn #1 #2
+ {
+ \tl_gset:cx { ver@#1.sty } {#2}
+ \iow_log:n { Package~#1:~#2 }
+ \ExplSyntaxOn
+ }
+\__scontents_compat_redefine:Npn \DeclareOption
+ { \__scontents_stararg:nn { \use_none:n } { \use_none:nn } }
+\__scontents_compat_redefine:Npn \ProcessOptions
+ { \__scontents_stararg:nn { } { } }
+\int_set:Nn \l__scontents_tmpa_int { \char_value_catcode:n { `\@ } }
+\char_set_catcode_letter:N \@
+\exp_after:wN
+\ExplSyntaxOff
+\file_input:n { xparse.sty }
+\ExplSyntaxOn
+\char_set_catcode:nn { `\@ } { \l__scontents_tmpa_int }
+\__scontents_compat_restore:
+\cs_new_protected:Npn \startscontents
+ {
+ \group_begin:
+ \__scontents_scontents_env_begin:
+ }
+\cs_new_protected:Npn \stopscontents
+ {
+ \__scontents_scontents_env_end:
+ \group_end:
+ }
+\NewDocumentCommand \__scontents_grab_optional:w { r[] }
+ { \__scontents_grab_optional:n {#1} }
+\cs_if_exist:NF \dospecials
+ {
+ \cs_new:Npn \dospecials
+ { \seq_map_function:NN \l_char_special_seq \do }
+ }
+\NewDocumentCommand { \Scontents }{ !s !O{} }
+ { \__scontents_Scontents_internal:nn {#1} {#2} }
+\NewDocumentCommand { \__scontents_verb_arg:w } { +v }
+ { \__scontents_verb_arg_internal:n {#1} }
+\NewDocumentCommand { \getstored } { O{1} m }
+ { \__scontents_getstored_internal:nn {#1} {#2} }
+\NewDocumentCommand { \foreachsc } { o m }
+ { \__scontents_foreachsc_internal:nn {#1} {#2} }
+\NewDocumentCommand { \typestored } { o m }
+ { \__scontents_typestored_internal:nn {#1} {#2} }
+\use:x
+ {
+ \cs_new_protected:Npn \exp_not:N \__scontents_xverb:w
+ ##1 \g__scontents_end_verbatimsc_tl
+ { ##1 \exp_not:N \stopverbatimsc }
+ }
+\definetyping[verbatimsc]
+\group_begin:
+ \cs_new_protected:Npn \__scontents_plain_disable_outer_par:
+ { }
+\group_end:
+\NewDocumentCommand { \setupsc } { +m }
+ { \keys_set:nn { scontents } {#1} }
+\NewDocumentCommand { \meaningsc } { o m }
+ { \__scontents_meaningsc_internal:nn {#1} {#2} }
+\NewExpandableDocumentCommand { \countsc } { m }
+ { \seq_count:c { g__scontents_name_#1_seq } }
+\NewDocumentCommand { \cleanseqsc } { m }
+ { \seq_clear_new:c { g__scontents_name_#1_seq } }
+\ExplSyntaxOff
+\endinput
+%%
+%% End of file `t-scontents.mkvi'.
Modified: trunk/Master/texmf-dist/source/latex/scontents/scontents.dtx
===================================================================
--- trunk/Master/texmf-dist/source/latex/scontents/scontents.dtx 2019-10-23 21:39:38 UTC (rev 52501)
+++ trunk/Master/texmf-dist/source/latex/scontents/scontents.dtx 2019-10-23 21:39:58 UTC (rev 52502)
@@ -6,68 +6,21 @@
% LaTeX Project Public License, either version 1.3c 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
+% http://www.latex-project.org/lppl.txt
%
% and version 1.3c or later is part of all distributions of LaTeX version
% 2005/12/01 or later.
-%
+%
% This work is "maintained" (as per the LPPL maintenance status)
% by Pablo González Luengo.
-%
-% This work consists of the file scontents.dtx
-% and the derived files scontents.ins,
-% scontents.pdf and
-% scontents.sty.
%
-%<*internal>
-\def\nameofplainTeX{plain}
-\ifx\fmtname\nameofplainTeX\else
- \expandafter\begingroup
-\fi
-%</internal>
-%<*install>
-\input l3docstrip.tex
-\keepsilent
-\askforoverwritefalse
-\preamble
-
-Copyright (C) 2019 by Pablo González L <pablgonz at educarchile.cl>
-
-This work may be distributed and/or modified under the conditions of the
-LaTeX Project Public License, either version 1.3c 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.3c or later is part of all distributions of LaTeX version
-2005/12/01 or later.
-
-This work is "maintained" (as per the LPPL maintenance status)
-by Pablo González Luengo.
-
-This work consists of the file scontents.dtx
-and the derived files scontents.ins,
- scontents.pdf and
- scontents.sty.
-
-\endpreamble
-\usedir{tex/latex/scontents}
-\generate{%
- \file{\jobname.sty}{\from{\jobname.dtx}{package}}%
-}%
-%</install>
-%<install>\endbatchfile
-%<*internal>
-\usedir{source/latex/scontents}
-\generate{
- \file{\jobname.ins}{\from{\jobname.dtx}{install}}
-}
-\ifx\fmtname\nameofplainTeX
- \expandafter\endbatchfile
-\else
- \expandafter\endgroup
-\fi
-%</internal>
+% This work consists of the files scontents.dtx and
+% scontents.ins,
+% and the derived files scontents.sty,
+% scontents.tex,
+% t-scontents.mkvi and
+% scontents-code.tex.
+%
%<*driver>
\documentclass[full]{l3doc}
% imakeidx also opens a write stream for the .idx file, and that conflicts
@@ -372,8 +325,11 @@
\lstdefinelanguage{scontents-doc}{
texcsstyle=*,%
escapechar=`,%
- showstringspaces=false,%
- extendedchars=true, %
+ extendedchars=true,%
+ breakatwhitespace=true,%
+ breaklines=true,%
+ keepspaces=true,%
+ columns=fullflexible,%
stringstyle= {\color{red}},%
basicstyle=\ttfamily\small,%
alsoletter=-,%
@@ -382,10 +338,10 @@
commentstyle=\lmmitalic\small\itshape\color{lightgray},%
% Important words 1
keywordstyle=[1]{\color{gray}},%
- keywords=[1]{begin,end},%
+ keywords=[1]{begin,end,Verbatim},%
% Other words 2
keywordstyle=[2]{\color{blue!75}},%
- keywords=[2]{usepackage,section,documentclass},%
+ keywords=[2]{usepackage,section,documentclass,input,usemodule},%
% Other words 3
keywordstyle=[3]{\color{optcolor!85}},%
keywords=[3]{document,article},%
@@ -392,18 +348,20 @@
% Reserved words 4 (scontents pkg)
keywordstyle=[4]{\color{mypkgcolor}},%
keywords=[4]{scontents,Scontents,getstored,typestored,verbatimsc,%
- endverbatimsc,countsc,meaningsc},%
+ endverbatimsc,countsc,meaningsc,foreachsc,macros
+ endscontents,startscontents,stopscontents},%
% Reserved in red
keywordstyle=[5]{\color{red}},%
- keywords=[5]{makeatletter,makeatother,let},%
+ keywords=[5]{makeatletter,makeatother,let,verb,undefined,makebox},%
% Reserved in orange
keywordstyle=[6]{\color{optcolor}},%
- keywords=[6]{verb,myverb,store-cmd,store-env,print-env,write-env,%
- write-out,width-tab,force-eol,inner,outer,I,J,M,L,Ascheol},%
+ keywords=[6]{store-cmd,store-env,print-env,write-env,%
+ start,stopt,wrapper,sep,step,before,after,write-out,%
+ width-tab,force-eol,inner,outer,I,J,M,L,Ascheol},%
% Reserved in orange
keywordstyle=[7]{\color{OrangeRed}},%
- keywords=[7]{foreach,DefineVerbatimEnvironment,lstnewenvironment,newminted},%
-% literateee
+ keywords=[7]{DefineVerbatimEnvironment,lstnewenvironment,newminted,newenvironment},%
+% literate
literate=*{\{}{{\textcolor{gray}{\{}}}{1}
{\}}{{\textcolor{gray}{\}}}}{1}
{[}{{\textcolor{gray}{[}}}{1}
@@ -440,6 +398,7 @@
escapechar=`,%
upquote=true,%
numbersep=1em,%
+ columns=fullflexible,%
numberstyle=\tiny\color{lightgray}\noaccsupp,%
literate=*{\%}{{\bfseries\textcolor{gray}{\%}}}{1}
}
@@ -449,7 +408,7 @@
\lstMakeShortInline[language=scontents-doc,basicstyle=\ttfamily]§
% Get file info
-\GetFileInfo{\jobname.sty}
+\GetFileInfo{scontents.sty}
% Config hyperref
\hypersetup{
@@ -463,7 +422,7 @@
pdfsubject = {Documentation for \fileversion{} [\filedate] },%
pdfcopyright = {\textcopyright 2019 by Pablo González},
pdfcontacturl = {https://github.com/pablgonz/scontents},
- pdfkeywords = {contents, external files, expl3, xparse, l3seq, Store contents},
+ pdfkeywords = {sequences, contents, external files, expl3, xparse, l3seq, store contents},
pdfstartview = {FitH},%
bookmarksopenlevel = 1,%
}
@@ -554,7 +513,7 @@
% \section{Motivation and Acknowledgments}
%
% In \hologo{(La)TeX} there is no direct way to record content for later use, although
-% you can do this using "\macros", recording \mymeta{verbatim content} is a
+% you can do this using §\macros§, recording \mymeta{verbatim content} is a
% problem, usually you can avoid this by creating external files or boxes. The
% general idea of this package is to try to imitate this implementation
% \emph{buffers} that has \hologo{ConTeXt} which allows you to save content in
@@ -593,8 +552,8 @@
% \medskip
%
% The \mypkg*{scontents} package loads \mypkg{expl3}, \mypkg{xparse} and
-% \mypkg{l3keys2e}. This package can be used with "xelatex", "lualatex"
-% , "pdflatex" and the classical workflow §latex>dvips>ps2pdf§.
+% \mypkg{l3keys2e}. This package can be used with "plain", "context", "xelatex",
+% "lualatex", "pdflatex" and the classical workflow §latex>dvips>ps2pdf§.
%
% \thispagestyle{plain}
%
@@ -616,9 +575,9 @@
% by making use \mymeta{sequences}.
% \end{scontents}
%
-% The package uses a \myoarg{key \textnormal{\textcolor{gray}{=}} val}
-% system for the options and is loaded in the usual way:
+% The package is loaded in the usual way:
%
+% \subsubsection*{For \hologo{LaTeX} users}
% \iffalse
%<*example>
% \fi
@@ -640,6 +599,30 @@
%</example>
% \fi
%
+% \subsubsection*{For \hologo{plainTeX} users}
+%
+% \iffalse
+%<*example>
+% \fi
+\begin{examplecode}[frame=single]
+\input scontents.tex
+\end{examplecode}
+% \iffalse
+%</example>
+% \fi
+%
+% \subsubsection*{For \hologo{ConTeXt} users}
+%
+% \iffalse
+%<*example>
+% \fi
+\begin{examplecode}[frame=single]
+\usemodule{scontents}
+\end{examplecode}
+% \iffalse
+%</example>
+% \fi
+%
% \subsection{The TAB character}
% \label{sec:tabcharacter}
%
@@ -667,7 +650,7 @@
%
% As a general recommendation \enquote{Do not use "TAB" character unless strictly
% necessary}, for example within a \emph{verbatim} environment that supports
-% this character such as §Verbatim§ of the package \mypkg{fancyvrb} or §lstlisting§
+% this character such as \myenv{Verbatim} of the package \mypkg{fancyvrb} or \myenv{lstlisting}
% of the package \mypkg{listings} or when you want to generate a §MakeFile§ file.
%
% \subsection{Configuration of the options}
@@ -718,7 +701,7 @@
% This key is necessary only if the last line is the closing of some
% environment defined by the \mypkg{fancyvrb} package as §\end{Verbatim}§
% or another environment that does not support a comments \enquote{\textcolor{gray}{\%}}
-% after closing §\end{...}%§. This key is available for the \myenv*{scontents}
+% after closing §\end{§\textcolor{gray}{...}§}%§. This key is available for the \myenv*{scontents}
% environment and the \ics*{Scontents} command.
%
% \keyexamp{width-tab}{integer}{1}
@@ -776,13 +759,13 @@
% \end{syntax}
%
% The \myenv*{scontents} environment allows you to \mymeta{store} and \mymeta{write}
-% content, including \emph{verbatim} material. After the package has been loaded,
-% the environment can be used both in the preamble and in the body of the document.
+% content, including \emph{verbatim} material. After the package has been
+% loaded, the environment can be used both in the preamble and in the body
+% of the document.
%
-% For the correct operation §\begin{scontents}§ and §\end{scontents}§ must be in
-% different lines, all \mymeta{keys} must be passed in a \mymeta{single line} separated
-% by commas \enquote{without vertical spaces} and \enquote{without separation} of
-% the start of the environment.
+% For the correct operation §\begin{scontents}§ and §\end{scontents}§ must
+% be in different lines, all \mymeta{keys} must be passed separated by
+% commas and \enquote{without separation} of the start of the environment.
% \end{function}
%
% Comments \enquote{\textcolor{gray}{\%}} or \enquote{any character} after
@@ -818,6 +801,11 @@
% It is advisable to store content within sequences with different names,
% so as not to get lost in the order in which content is stored.
%
+% In \hologo{plainTeX} there is not environments as in \hologo{LaTeX}.
+% Instead of using the environment \myenv*{scontents}, one should use a
+% \emph{pseudo environment} delimited by \ics*{scontents} and \ics*{endscontents}.
+% \hologo{ConTeXt} users should use \ics*{startscontents} and \ics*{stopscontents}.
+%
% \subsection*{Options for environment}
%
% The environment options can be configured globally using option
@@ -836,7 +824,7 @@
% running the environment. The content is extracted from the \mymeta{sequence}
% in which it is stored.
%
-% \newpage
+% \medskip
%
% \keyexamp{write-env}{file.ext}{not used}
% Sets the name of the \mymeta{external file} in which the \mymeta{contents} of
@@ -925,12 +913,64 @@
% \end{syntax}
% \end{function}
%
-% The command \ics*{getstored} gets the content stored in \mymeta{seq name}
+% The command \ics*{getstored} gets the content stored in \mymarg{seq name}
% according to the \mymeta{index} in which it was stored. The command is
% robust and can be used as an \mymeta{argument} for another command. If the
% optional argument is not passed it defaults to the first element stored
-% in the \mymeta{seq name}.
+% in the \mymarg{seq name}.
%
+% \subsection{The command \cs{foreachsc}}
+% \label{sec:foreachsc}
+%
+% \vspace*{-10pt}
+%
+% \begin{function}{\foreachsc}
+% \begin{syntax}
+% \cmdexamp{foreachsc}[key \textnormal{\textcolor{gray}{=}} val]{seq name}
+% \end{syntax}
+% \end{function}
+%
+% The command \ics*{foreachsc} goes through and executes the command §\getstored§
+% on the contents stored in \mymarg{seq name}. If you pass without options run
+% §\getstored§ on all contents stored in \mymarg{seq name}.
+%
+% \subsection*{Options for command}
+% \label{sec:optcmdfor}
+%
+% \keyexamp{sep}{code}{empty}
+% Establishes the separation between each content stored in \mymarg{seq name}.
+% For example, you can use §sep={\\[10pt]}§ for vertical separation of stored
+% contents.
+%
+% \keyexamp{step}{integer}{1}
+% Sets the increment (\mymeta{step}) applied to the value set by key §start§
+% for each element stored in the \mymarg{seq name}. The value must be a
+% \mymeta{positive integer}.
+%
+% \keyexamp{start}{integer}{1}
+% Sets the \mymeta{index} number of the \mymarg{seq name} from which execution
+% will start. The value must be a \mymeta{positive integer}.
+%
+% \keyexamp{stop}{integer}{total}
+% Sets the \mymeta{index} number of the \mymarg{seq name} from which execution
+% it will finish executing. The value must be a \mymeta{positive integer}.
+%
+% \keyexamp{before}{code}{empty}
+% Sets the \mymarg{code} that will be executed \mymeta{before} each content stored
+% in \mymarg{seq name}. The \mymarg{code} must be passed between braces.
+%
+% \medskip
+%
+% \keyexamp{after}{code}{empty}
+% Sets the \mymarg{code} that will be executed \mymeta{after} each content stored
+% in \mymarg{seq name}. The \mymarg{code} must be passed between braces.
+%
+% \keyexamp{wrapper}{code \textnormal{\textcolor{gray}{\{\#1\}}} more code}{empty}
+% Wraps the content stored in \mymarg{seq name} referenced by \mymarg{\#1}.
+% The \mymarg{code} must be passed between braces. For example
+% §\foreachsc[wrapper={\makebox[1em][l]{#1}}]{contents}§.
+%
+%
% \subsection{The command \cs{typestored}}
% \label{sec:typestored}
%
@@ -941,13 +981,12 @@
% \cmdexamp{typestored}[index\textnormal{\textcolor{gray}{,}} width-tab \textnormal{\textcolor{gray}{=}} number]{seq name}
% \end{syntax}
% The command \ics*{typestored} internally places the content stored in
-% the \mymeta{seq name} into the \myenv*{verbatimsc} environment. The \mymeta{index}
-% number corresponds to the position in which the content is stored in
-% the \mymeta{seq name}.
+% the \mymarg{seq name} into the \myenv*{verbatimsc} environment. The \mymeta{index}
+% corresponds to the position in which the content is stored in the \mymarg{seq name}.
% \end{function}
%
% If the optional argument is not passed it defaults to the first element
-% stored in the \mymeta{seq name}. The key §width-tab§ is available for
+% stored in the \mymarg{seq name}. The key §width-tab§ is available for
% this command.
%
% The \mypkg{verbatim} package is not compatible with the implementation
@@ -955,8 +994,6 @@
% a user of that package consider customizing the \myenv*{verbatimsc}
% environment.
%
-% \newpage
-%
% \subsection{The environment \env{verbatimsc}}
% \label{sec:verbatimsc}
%
@@ -1043,12 +1080,12 @@
% \cmdexamp{meaningsc}[index\textnormal{\textcolor{gray}{,}} width-tab \textnormal{\textcolor{gray}{=}} number]{seq name}
% \end{syntax}
% The command \ics*{meaningsc} executes \ics{meaning} on the content stored
-% in \mymeta{seq name}. The \mymeta{index} number corresponds to the position
-% in which the content is stored in the \mymeta{seq name}.
+% in \mymarg{seq name}. The \mymeta{index} corresponds to the position
+% in which the content is stored in the \mymarg{seq name}.
% \end{function}
%
% If the optional argument is not passed it defaults to the first element
-% stored in the \mymeta{seq name}. The key §width-tab§ is available for
+% stored in the \mymarg{seq name}. The key §width-tab§ is available for
% this command.
%
% \subsection{The command \cs{countsc}}
@@ -1060,7 +1097,7 @@
% \begin{syntax}
% \cmdexamp{countsc}{seq name}
% \end{syntax}
-% The command \ics*{countsc} count a number of contents stored in \mymeta{seq name}.
+% The command \ics*{countsc} count a number of contents stored in \mymarg{seq name}.
% \end{function}
%
% \subsection{The command \cs{cleanseqsc}}
@@ -1072,7 +1109,7 @@
% \begin{syntax}
% \cmdexamp{cleanseqsc}{seq name}
% \end{syntax}
-% The command \ics*{cleanseqsc} remove all contents stored in \mymeta{seq name}.
+% The command \ics*{cleanseqsc} remove all contents stored in \mymarg{seq name}.
% \end{function}
%
% \newpage
@@ -1158,7 +1195,6 @@
\begin{scontents}[write-out=scexamp1.ltx]
\documentclass[12pt,a4paper]{article}
\usepackage[store-cmd=solutions]{scontents}
-\usepackage{pgffor}
\newtheorem{ex}{Exercise}
\begin{document}
\section{Problems}
@@ -1177,9 +1213,7 @@
\end{ex}
\section{Solutions}
-\foreach \i in {1,...,\countsc{solutions}} {
-\noindent\textbf{\i} \getstored[\i]{solutions}\par
-}
+\foreachsc[sep={\\[10pt]}]{solutions}
\end{document}
\end{scontents}
% \iffalse
@@ -1200,7 +1234,6 @@
\begin{scontents}[write-out=scexamp2.ltx]
\documentclass{article}
\usepackage[store-env=defexercise,store-cmd=defexercise]{scontents}
-\usepackage{pgffor}
\pagestyle{empty}
\begin{document}
% not starred
@@ -1218,10 +1251,9 @@
seventies that the \NSA\ has known that for 40 years.\par
\end{scontents}
% see all stored
-\foreach \i in {1,...,3} {
\begin{itemize}
-\item \getstored[\i]{defexercise}
-\end{itemize}}
+\foreachsc[before={\item }]{defexercise}
+\end{itemize}
% \getstored are robust :)
\section{\getstored[2]{defexercise}}
\end{document}
@@ -1286,7 +1318,6 @@
\begin{scontents}[write-out=scexamp4.ltx]
\documentclass{article}
\usepackage{scontents}
-\usepackage{pgffor}
\pagestyle{empty}
\begin{document}
\begin{scontents}[store-env=a]
@@ -1306,9 +1337,8 @@
This is a: \getstored[1]{a}\par
This is b: \getstored[2]{a}
-\textbf{Print all of them}
-
-\foreach \i in {1,...,\countsc{a}} {\getstored[\i]{a}\par}
+\textbf{Print all of them}\par
+\foreachsc[sep={\\[10pt]}]{a}
\end{document}
\end{scontents}
% \iffalse
@@ -1554,6 +1584,14 @@
% \begin{description}[font=\small\sffamily,wide=0pt,style=multiline,leftmargin=\descrwidth,nosep,noitemsep]
% \item [\fileversion{} (ctan), \filedate]
% \begin{itemize}
+% \item Add support for \hologo{plainTeX} and \hologo{ConTeXt}.
+% \item Split internal code for optimization.
+% \item Add support for vertical spaces in |key=val|.
+% \item Add |\foreachsc| command.
+% \item Check if |verbatim| package is loaded.
+% \end{itemize}
+% \item [v1.4 (ctan), 2019-10-03]
+% \begin{itemize}
% \item Add |store-all| key.
% \item Messages and keys were separated.
% \item Restructuring of documentation.
@@ -1560,7 +1598,7 @@
% \item Now the version of |expl3| is checked instead of |xparse|.
% \item The internal behavior of \verb+force-eol+ has been modified.
% \end{itemize}
-% \item [v1.3 (ctan), 2019/09/24]
+% \item [v1.3 (ctan), 2019-09-24]
% \begin{itemize}
% \item The environment can now nest.
% \item Added \verb+force-eol+, \verb+verb-font+ and \verb+width-tab+ keys.
@@ -1570,17 +1608,17 @@
% \item Remove \verb+filecontentsdef+ dependency.
% \item Changing \verb+\regex_replace_all:+ for \verb+\tl_replace_all:+.
% \end{itemize}
-% \item [v1.2 (ctan), 2019/08/28]
+% \item [v1.2 (ctan), 2019-08-28]
% \begin{itemize}
% \item Restructuring of documentation.
% \item Added copy of \verb+\tex_scantokens:D+.
% \end{itemize}
-% \item [v1.1 (ctan), 2019/08/12]
+% \item [v1.1 (ctan), 2019-08-12]
% \begin{itemize}
% \item Extension of documentation.
% \item Replace \verb+\tex_endinput:D+ by \verb+\file_input_stop:+.
% \end{itemize}
-% \item [v1.0 (ctan), 2019/07/30]
+% \item [v1.0 (ctan), 2019-07-30]
% \begin{itemize}
% \item First public release,
% \end{itemize}
@@ -1604,10 +1642,6 @@
% \label{sec:Implementation}
% \addtocontents{toc}{\protect\setcounter{tocdepth}{0}}
%
-% \iffalse
-%<*package>
-% \fi
-%
% \subsection{Declaration of the package}
%
% First we set up the module name for \pkg{l3doc}:
@@ -1615,32 +1649,157 @@
%<@@=scontents>
% \end{macrocode}
%
-% Then, we can give the traditional declaration of a package written with
-% \pkg{expl3} and the necessary packages for its operation.
-%
+% Now we define some common macros to hold the package date and version:
% \begin{macrocode}
-\RequirePackage{l3keys2e}
-\RequirePackage{xparse}[2019/05/28]
-\ProvidesExplPackage{scontents}{2019/10/03}{1.4}
- {Stores LaTeX contents in memory or files}
+%<loader>\def\ScontentsFileDate{2019-10-24}%
+%<core>\def\ScontentsCoreFileDate{2019-10-24}%
+%<*loader>
+\def\ScontentsFileVersion{1.5}%
+\def\ScontentsFileDescription{Stores LaTeX contents in memory or files}%
% \end{macrocode}
%
-% A check to make sure that \pkg{expl3} is not too old
+% The \LaTeX{} loader is fairly simple: just load the dependencies, load the
+% core code, and then set interfaces up.
%
+% We also check if the \pkg{verbatim} package is loaded and show a compatibility
+% warning.
% \begin{macrocode}
-\@ifpackagelater { expl3 } { 2019/09/19 }
- { }
+%<*latex>
+\RequirePackage{expl3,xparse,l3keys2e}[2019/05/28]
+\ProvidesExplPackage
+ {scontents} {\ScontentsFileDate} {\ScontentsFileVersion} {\ScontentsFileDescription}
+\@ifpackageloaded { verbatim }
{
- \PackageError { scontents } { Support~package~expl3~too~old }
+ \iow_term:n
{
- You~need~to~update~your~installation~of~the~bundles~
- 'l3kernel'~and~'l3packages'.\MessageBreak
- Loading~scontents~will~abort!
+ The~implementation~of~the~'verbatimsc'~environment~\\
+ used~by~\tl_to_str:n{\typestored}~is~not~compatible~with~package\\
+ 'verbatim'.~Review~the~documentation~and~redefine~\\
+ the~'verbatimsc'~environment.
}
+ } { }
+%</latex>
+% \end{macrocode}
+% The Plain and \hologo{ConTeXt} loaders are similar (probably because I don't
+% know how to make a proper \hologo{ConTeXt} module :-). We define a
+% \LaTeX{}-style ver at scontents.sty macro with version info (just in case):
+% \begin{macrocode}
+%<*!latex>
+%<context>\writestatus{loading}{User Module scontents v\ScontentsFileVersion}
+%<context>\unprotect
+\input expl3-generic.tex
+\ExplSyntaxOn
+\tl_gset:cx { ver @ scontents . sty } { \ScontentsFileDate\space
+ v\ScontentsFileVersion\space \ScontentsFileDescription }
+\iow_log:x { Package: ~ scontents ~ \use:c { ver @ scontents . sty } }
+%</!latex>
+% \end{macrocode}
+%
+% In Plain, check that the package isn't being loaded twice (\LaTeX{} and
+% \hologo{ConTeXt} already defend against that):
+% \begin{macrocode}
+%<*plain>
+\msg_gset:nnn { scontents } { already-loaded }
+ { The~`scontents'~package~is~already~loaded.~Aborting~input~\msg_line_context:. }
+\cs_if_exist:NT \@@_rescan_tokens:n
+ {
+ \msg_warning:nn { scontents } { already-loaded }
+ \ExplSyntaxOff
\file_input_stop:
}
+%</plain>
% \end{macrocode}
%
+% \begin{macro}{\g_@@_end_verbatimsc_tl,\c_@@_end_env_tl}
+% A token list to match when ending \env{verbatimsc} and \env{scontents}
+% environments.
+%
+% \begin{macrocode}
+\tl_new:N \g_@@_end_verbatimsc_tl
+\tl_gset_rescan:Nnn
+ \g_@@_end_verbatimsc_tl
+ {
+ \char_set_catcode_other:N \\
+%<*latex>
+ \char_set_catcode_other:N \{
+ \char_set_catcode_other:N \}
+%</latex>
+ }
+%<latex> { \end{verbatimsc} }
+%<plain> { \endverbatimsc }
+%<context> { \stopverbatimsc }
+\tl_const:Nx \c_@@_end_env_tl
+ {
+ \c_backslash_str
+%<latex|plain> end
+%<context> stop
+%<latex> \c_left_brace_str
+ scontents
+%<latex> \c_right_brace_str
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% Now we load the core \mypkg*{scontents} code:
+% \begin{macrocode}
+\file_input:n { scontents-code.tex }
+% \end{macrocode}
+%
+% Sometimes we need to detect the format from within a macro:
+% \begin{macrocode}
+\cs_new:Npn \@@_format_case:nnn #1 #2 #3
+%<latex> {#1} % LaTeX
+%<plain> {#2} % Plain/Generic
+%<context> {#3} % ConTeXt
+% \end{macrocode}
+%
+% Checking that the package was loaded with the proper loader code. This code
+% was copied from \texttt{expl3-code.tex}.
+% \begin{macrocode}
+%</loader>
+%<*core>
+\begingroup
+ \def\next{\endgroup}%
+ \expandafter\ifx\csname PackageError\endcsname\relax
+ \begingroup
+ \def\next{\endgroup\endgroup}%
+ \def\PackageError#1#2#3%
+ {%
+ \endgroup
+ \errhelp{#3}%
+ \errmessage{#1 Error: #2!}%
+ }%
+ \fi
+ \expandafter\ifx\csname ScontentsFileDate\endcsname\relax
+ \def\next
+ {%
+ \PackageError{scontents}{No scontents loader detected}
+ {%
+ You have attempted to use the scontents code directly rather than using
+ the correct loader. Loading of scontents will abort.
+ }%
+ \endgroup
+ \endinput
+ }
+ \else
+ \ifx\ScontentsFileDate\ScontentsCoreFileDate
+ \else
+ \def\next
+ {%
+ \PackageError{scontents}{Mismatched~scontents~files~detected}
+ {%
+ You~have~attempted~to~load~scontents~with~mismatched~files:~
+ probably~you~have~one~or~more~files~'locally~installed'~which~
+ are~in~conflict.~Loading~of~scontents~will~abort.
+ }%
+ \endgroup
+ \endinput
+ }%
+ \fi
+\fi
+\next
+% \end{macrocode}
+%
% \subsection{Definition of common keys}
%
% We create some common \mymeta{keys} that will be used by the options passed to
@@ -1656,7 +1815,6 @@
store-cmd .initial:n = contents,
store-cmd .value_required:n = true,
verb-font .tl_set:N = \l_@@_verb_font_tl,
- verb-font .initial:n = \ttfamily,
verb-font .value_required:n = true,
print-env .bool_set:N = \l_@@_print_env_bool,
print-env .initial:n = false,
@@ -1675,14 +1833,18 @@
store-all .meta:n = { store-env = #1 , store-cmd = #1 },
store-all .value_required:n = true
}
+%</core>
+%<loader>\keys_define:nn { scontents }
+%<latex> { verb-font .initial:n = \ttfamily }
+%<plain|context> { verb-font .initial:n = \tt }
% \end{macrocode}
%
-% We process the \mymeta{keys} as options passed on to the package, the
-% package \pkg{l3keys2e} will verify the \mymeta{keys} and will return
-% an error when they are \emph{unknown}.
-%
+% In \LaTeX{} mode we load \mypkg{l3keys2e} process the \mymeta{keys} as options
+% passed on to the package, the package \pkg{l3keys2e} will verify the
+% \mymeta{keys} and will return an error when they are \emph{unknown}.
% \begin{macrocode}
-\ProcessKeysOptions { scontents }
+%<latex>\ProcessKeysOptions { scontents }
+%<*core>
% \end{macrocode}
%
% \subsection{Internal variables}
@@ -1690,7 +1852,8 @@
% Now we declare the internal variables we will use.
%
% \begin{macro}{\l_@@_macro_tmp_tl,\l_@@_fname_out_tl,\l_@@_temp_tl,
-% \l_@@_file_tl,\g_@@_temp_tl}
+% \l_@@_file_tl,\g_@@_temp_tl,\l_@@_foreach_name_seq_tl,
+% \l_@@_foreach_before_tl,\l_@@_foreach_after_tl}
% \cs{l_@@_macro_tmp_tl} is a temporary token list to hold the contents
% of the macro/environment, \cs{l_@@_fname_out_tl} is used as the name
% of the output file, when there's one, \cs{l_@@_file_tl} holds the contents
@@ -1697,6 +1860,11 @@
% of an environment as it's being read, and \cs{l_@@_temp_tl} and
% \cs{g_@@_temp_tl} are generic temporary token lists.
%
+% \cs{l_@@_foreach_name_seq_tl} is the name assigned to the sequence on
+% which the loop will be made, \cs{l_@@_foreach_before_tl} and \cs{l_@@_foreach_after_tl}
+% are token lists in which the assigned material will be placed before
+% and after the execution of the §\foreachsc§ loop.
+%
% \begin{macrocode}
\tl_new:N \l_@@_macro_tmp_tl
\tl_new:N \l_@@_fname_out_tl
@@ -1703,15 +1871,22 @@
\tl_new:N \l_@@_temp_tl
\tl_new:N \l_@@_file_tl
\tl_new:N \g_@@_temp_tl
+\tl_new:N \l_@@_foreach_name_seq_tl
+\tl_new:N \l_@@_foreach_before_tl
+\tl_new:N \l_@@_foreach_after_tl
% \end{macrocode}
% \end{macro}
%
-% \begin{macro}{\l_@@_seq_item_int,\l_@@_env_nesting_int,\l_@@_tmpa_int}
+% \begin{macro}{\l_@@_seq_item_int,\l_@@_env_nesting_int,\l_@@_tmpa_int,
+% \l_@@_foreach_stop_int}
% \cs{l_@@_seq_item_int} stores the index in the sequence of the item
% requested to \cs{typestored} or \cs{meaningsc}. \cs{l_@@_env_nesting_int}
% stores the current nesting level of the \env{scontents} environment.
+% \cs{l_@@_foreach_stop_int} will save the value at which the §\foreachsc§
+% loop will stop.
%
% \begin{macrocode}
+\int_new:N \l_@@_foreach_stop_int
\int_new:N \l_@@_seq_item_int
\int_new:N \l_@@_env_nesting_int
\int_new:N \l_@@_tmpa_int
@@ -1731,25 +1906,31 @@
% \end{macrocode}
% \end{macro}
%
-% \begin{macro}{\g_@@_end_verbatimsc_tl,\c_@@_end_env_tl}
-% A token list to match when ending \env{verbatimsc} and \env{scontents}
-% environments.
%
+% \begin{macro}{\l_@@_foreach_before_bool,\l_@@_foreach_after_bool
+% \l_@@_foreach_stop_bool,\l_@@_foreach_wrapper_bool}
+% Boolean variables used by the §\foreachsc§ loop.
+%
% \begin{macrocode}
-\tl_new:N \g_@@_end_verbatimsc_tl
-\tl_gset_rescan:Nnn
- \g_@@_end_verbatimsc_tl
- {
- \char_set_catcode_other:N \\
- \char_set_catcode_other:N \{
- \char_set_catcode_other:N \}
- }
- { \end{verbatimsc} }
-\tl_const:Nx \c_@@_end_env_tl
- { \c_backslash_str end \c_left_brace_str scontents \c_right_brace_str }
+\bool_new:N \l_@@_foreach_before_bool
+\bool_set_false:N \l_@@_foreach_before_bool
+\bool_new:N \l_@@_foreach_after_bool
+\bool_set_false:N \l_@@_foreach_after_bool
+\bool_new:N \l_@@_foreach_stop_bool
+\bool_set_false:N \l_@@_foreach_stop_bool
+\bool_new:N \l_@@_foreach_wrapper_bool
+\bool_set_false:N \l_@@_foreach_wrapper_bool
% \end{macrocode}
% \end{macro}
%
+% \begin{macro}{\l_@@_foreach_print_seq}
+% The \cs{l_@@_foreach_print_seq} is the sequence used by §\foreachsc§.
+%
+% \begin{macrocode}
+\seq_new:N \l_@@_foreach_print_seq
+% \end{macrocode}
+% \end{macro}
+%
% \begin{macro}{\c_@@_hidden_space_str}
% \cs{c_@@_hidden_space_str} is a constant \emph{string} to used to hide
% the \mymeta{forced space} added by \hologo{TeX} when recording content
@@ -1809,6 +1990,7 @@
% \begin{macrocode}
\cs_generate_variant:Nn \tl_remove_once:Nn { NV }
\cs_generate_variant:Nn \tl_replace_all:Nnn { Nx, Nxx, Nnx }
+\cs_generate_variant:Nn \msg_error:nnnn { nnx }
\prg_generate_conditional_variant:Nnn \tl_if_empty:n { f } { TF }
% \end{macrocode}
% \end{macro}
@@ -1862,6 +2044,46 @@
}
% \end{macrocode}
%
+% \subsubsection{Keys for command \cs{foreachsc}}
+%
+% We define a set of \mymeta{keys} for command §\foreachsc§.
+%
+% \begin{macrocode}
+\keys_define:nn { scontents / foreachsc }
+ {
+ before .code:n = {
+ \bool_set_true:N \l_@@_foreach_before_bool
+ \tl_set:Nn \l_@@_foreach_before_tl {#1}
+ },
+ before .value_required:n = true,
+ after .code:n = {
+ \bool_set_true:N \l_@@_foreach_after_bool
+ \tl_set:Nn \l_@@_foreach_after_tl {#1}
+ },
+ after .value_required:n = true,
+ start .int_set:N = \l_@@_foreach_start_int,
+ start .value_required:n = true,
+ start .initial:n = 1,
+ stop .code:n = {
+ \bool_set_true:N \l_@@_foreach_stop_bool
+ \int_set:Nn \l_@@_foreach_stop_int {#1}
+ },
+ stop .value_required:n = true,
+ step .int_set:N = \l_@@_foreach_step_int,
+ step .value_required:n = true,
+ step .initial:n = 1,
+ wrapper .code:n = {
+ \bool_set_true:N \l_@@_foreach_wrapper_bool
+ \cs_set_protected:Npn \@@_foreach_wrapper:n ##1 {#1}
+ },
+ wrapper .value_required:n = true,
+ sep .tl_set:N = \l_@@_foreach_sep_tl,
+ sep .initial:n = {},
+ sep .value_required:n = true,
+ unknown .code:n = { \@@_parse_foreach_keys:n {#1} }
+ }
+% \end{macrocode}
+%
% \subsubsection{Key for commands \cs{typestored} and \cs{meaningsc}}
%
% We define a \mymeta{key} for command §\typestored§ and §\meaningsc§.
@@ -1923,6 +2145,27 @@
% \end{macrocode}
% \end{macro}
%
+% \subsubsection{Undefined keys for \cs{foreachsc}}
+%
+% \begin{macro}{\@@_parse_foreach_keys:n,
+% \@@_parse_foreach_keys:nn}
+%
+% We check the \meta{keys} passed to command §\foreachsc§ and process
+% it with \cs{@@_parse_foreach_keys:n}, if the \mymeta{key} is
+% \emph{unknown} we return an error message.
+%
+% \begin{macrocode}
+\cs_new_protected:Npn \@@_parse_foreach_keys:nn #1#2
+ {
+ \tl_if_blank:nTF {#2}
+ { \msg_error:nnn { scontents } { for-key-unknown } {#1} }
+ { \msg_error:nnnn { scontents } { for-key-value-unknown } {#1} {#2} }
+ }
+\cs_new_protected:Npn \@@_parse_foreach_keys:n #1
+ { \exp_args:NV \@@_parse_foreach_keys:nn \l_keys_key_tl {#1} }
+% \end{macrocode}
+% \end{macro}
+%
% \subsubsection{Undefined keys for \cs{typestored} and \cs{meaningsc}}
%
% \begin{macro}{\@@_parse_type_meaning_key:n,
@@ -1963,6 +2206,112 @@
% \end{macrocode}
% \end{macro}
%
+% \subsection{Compatibility layer with Plain}
+%
+% When loading the package outside of \LaTeX{} we can't usually use \pkg{xparse}.
+% However since \pkg{xparse} doesn't actually hold any dependency with \LaTeX{}
+% except for package-loading commands, we can emulate those commands (much like
+% in \pkg{miniltx}) so that \pkg{xparse} is loadable in any format.
+%
+% The bunch of macros below is adapted from the \LaTeX{} kernel (greatly simplified).
+% \begin{macrocode}
+%</core>
+%<*loader&!latex>
+\seq_new:N \l_@@_compat_seq
+\cs_new_protected:Npn \@@_compat_redefine:Npn #1
+ {
+ \seq_put_right:Nn \l_@@_compat_seq {#1}
+ \cs_set_eq:cN { @@_saved_\cs_to_str:N #1: } #1
+ \cs_new_protected:Npn #1
+ }
+\cs_new_protected:Npn \@@_compat_restore:
+ { \seq_map_function:NN \l_@@_compat_seq \@@_compat_restore:N }
+\cs_new_protected:Npn \@@_compat_restore:N #1
+ {
+ \cs_set_eq:Nc #1 { @@_saved_\cs_to_str:N #1: }
+ \cs_undefine:c { @@_saved_\cs_to_str:N #1: }
+ }
+\cs_generate_variant:Nn \@@_compat_redefine:Npn { c }
+\cs_new_protected:Npn \@@_optarg:nn #1 #2
+ { \peek_charcode_ignore_spaces:NTF [ {#1} {#1[#2]} }
+\cs_new_protected:Npn \@@_stararg:nn #1 #2
+ { \peek_charcode_remove_ignore_spaces:NTF * {#1} {#2} }
+\@@_compat_redefine:Npn \RequirePackage
+ { \@@_optarg:nn { \@@_require_auxi:wn } { } }
+\cs_new_protected:Npn \@@_require_auxi:wn [#1] #2
+ { \@@_optarg:nn { \@@_require_auxii:wnw [{#1}]{#2} } { } }
+\cs_new:Npn \@@_zap_space:ww #1~#2
+ {
+ #1 \if_meaning:w #2 \q_mark
+ \exp_after:wN \use_none:n
+ \else:
+ \exp_after:wN \@@_zap_space:ww
+ \fi: #2
+ }
+\cs_new_protected:Npn \@@_require_auxii:wnw [#1] #2 [#3]
+ {
+ \tl_set:Nx \l_@@_temp_tl { \@@_zap_space:ww #2 ~ \q_mark }
+ \clist_map_function:NN \l_@@_temp_tl \@@_require_auxiii:n
+ }
+\cs_new_protected:Npn \@@_require_auxiii:n #1
+ { \str_if_eq:eeF {expl3} {#1} { \msg_error:nnn { scontents } { invalid-package } {#1} } }
+\msg_new:nnn { scontents } { invalid-package }
+ { Package~`#1'~invalid~in~scontents.~This~is~an~error~in~scontents. }
+\@@_compat_redefine:cpn { @ifpackagelater } #1
+ { \exp_args:Nc \@@_package_later_aux:Nn { ver@#1.sty } }
+\cs_new_protected:Npn \@@_package_later_aux:Nn #1 #2
+ {
+ \int_compare:nNnTF
+ { \exp_after:wN \@@_parse_version:w #1 //00 \q_mark } <
+ { \exp_after:wN \@@_parse_version:w #2 //00 \q_mark }
+ }
+\cs_new:Npn \@@_parse_version:w #1 { \@@_parse_version_auxi:w 0#1 }
+\cs_new:Npn \@@_parse_version_auxi:w #1/#2/#3#4#5 \q_mark
+ { \@@_parse_version_auxii:w #1-#2-#3#4 \q_mark }
+\cs_new:Npn \@@_parse_version_auxii:w #1-#2-#3#4#5 \q_mark
+ { \tl_if_blank:nF {#2} {#1} #2 #3 #4 }
+\@@_compat_redefine:Npn \ProvidesExplPackage #1 #2 #3 #4
+ { \@@_provides_aux:nn {#1} { #2 \ifx\relax#3\relax\else v#3\space\fi #4 } }
+\cs_new_protected:Npn \@@_provides_aux:nn #1 #2
+ {
+ \tl_gset:cx { ver@#1.sty } {#2}
+ \iow_log:n { Package~#1:~#2 }
+ \ExplSyntaxOn
+ }
+\@@_compat_redefine:Npn \DeclareOption
+ { \@@_stararg:nn { \use_none:n } { \use_none:nn } }
+\@@_compat_redefine:Npn \ProcessOptions
+ { \@@_stararg:nn { } { } }
+% \end{macrocode}
+%
+% Now that the compatibility layer is defined, we can finally load \pkg{xparse}.
+% \pkg{xparse} expects to be loaded with \cs{ExplSyntaxOff} (not much harm would
+% be done otherwise, but just to be on the safe side).
+%
+% Within \pkg{xparse} a §\RequirePackage{expl3}§ is done. We can ignore that since
+% we have already loaded \pkg{expl3}. Next, a §\@ifpackagelater§ test is done:
+% we do that test too to ensure that \pkg{xparse} is compatible with the current
+% running version of \pkg{expl3}. The following §\ProvidesExplPackage§ simply
+% defines §\ver at xparse.sty§ for any other package that might uset it, and then
+% does \cs{ExplSyntaxOn}. At the end of the package, \pkg{xparse} parses (heh)
+% the package options. Since we don't have those in non-\LaTeX{} formats, they are
+% ignored. Okay, so load \pkg{xparse}:
+% \begin{macrocode}
+\int_set:Nn \l_@@_tmpa_int { \char_value_catcode:n { `\@ } }
+\char_set_catcode_letter:N \@
+\exp_after:wN
+\ExplSyntaxOff
+\file_input:n { xparse.sty }
+\ExplSyntaxOn
+\char_set_catcode:nn { `\@ } { \l_@@_tmpa_int }
+\@@_compat_restore:
+%</loader&!latex>
+%<*core>
+% \end{macrocode}
+% (actually we don't need to do \cs{ExplSyntaxOn} there because we don't have
+% \LaTeX{}'s full package loading mechanism, so the \pkg{expl3} syntax remains
+% active after \pkg{xparse} is loaded, but it doesn't harm either).
+%
% \subsection{Programming of the sequences}
%
% The storage of the package is done using |seq| variables. Here we
@@ -2013,7 +2362,7 @@
%
% \begin{macro}{\@@_lastfrom_seq:n}
% \cs{@@_lastfrom_seq:n} retrieves the last saved item from the
-% sequence when \cs{l_@@__print_env_bool} or \cs{l_@@__print_cmd_bool}
+% sequence when \cs{l_@@_print_env_bool} or \cs{l_@@_print_cmd_bool}
% is true.
%
% \begin{macrocode}
@@ -2048,15 +2397,39 @@
% is divided into three parts. This implementation is taken from answer
% by Enrico Gregorio in \url{https://tex.stackexchange.com/a/487746/7832}.
%
-% \begin{macro}{scontents}
+% \begin{macro}{
+% scontents,
+% \scontents,
+% \startscontents,
+% \endscontents,
+% \stopscontents,
+% \@@_scontents_env_begin:,
+% \@@_scontents_env_end:,
+% }
% This is the main environment used in the document.
%
% \begin{macrocode}
-\NewDocumentEnvironment { scontents } { }
+%</core>
+%<*loader>
+%<!context>\NewDocumentEnvironment { scontents } { }
+%<context>\cs_new_protected:Npn \startscontents
{
+%<plain|context> \group_begin:
+ \@@_scontents_env_begin:
+ }
+%<context>\cs_new_protected:Npn \stopscontents
+ {
+ \@@_scontents_env_end:
+%<plain|context> \group_end:
+ }
+%</loader>
+%<*core>
+\cs_new_protected:Npn \@@_scontents_env_begin:
+ {
\char_set_catcode_active:N \^^M
\@@_start_environment:w
}
+\cs_new_protected:Npn \@@_scontents_env_end:
{
\@@_stop_environment:
\@@_atend_environment:
@@ -2069,55 +2442,59 @@
% Define a \myoarg{key \textnormal{\textcolor{gray}{=}} val} for
% environment \env{scontents}
%
-% \begin{macro}{\@@_environment_inline:w,\@@_environment_keys:w,
-% \@@_environment_junk:nw,\@@_environment_junk:xw}
-% The macro \cs{@@_environment_inline:w} is called from the
+% \begin{macro}{\@@_grab_optional:n,\@@_grab_optional:w}
+% The macro \cs{@@_grab_optional:w} is called from the
% \env{scontents} environment with the tokens following the
-% §\begin{scontents}§. If the immediate next token (ignoring spaces)
-% is a §[§, then we look for an optional argument delimited by a §]§.
-% All the remaining tokens are treated as junk and an error is raised
-% if they are non-blank.
+% §\begin{scontents}§ when the next character is a §[§. This function
+% is defined using \mypkg{xparse} to exploit its delimited argument
+% processor.
%
+% The function is called from a context where §^^M§ is active, so
+% \cs{@@_normalise_line_ends:N} is used to replace active §^^M§
+% characters by spaces.
% \begin{macrocode}
-\cs_new_protected:Npn \@@_environment_inline:w
+%</core>
+%<*loader>
+\NewDocumentCommand \@@_grab_optional:w { r[] }
+ { \@@_grab_optional:n {#1} }
+%</loader>
+%<*core>
+\cs_new_protected:Npn \@@_grab_optional:n #1
{
- \peek_charcode_ignore_spaces:NTF [ % ]
- { \@@_environment_keys:w }
+ \tl_if_novalue:nF {#1}
{
- \@@_environment_junk:xw
- { after~\c_backslash_str begin{scontents} }
+ \tl_set:Nn \l_@@_temp_tl {#1}
+ \@@_normalise_line_ends:N \l_@@_temp_tl
+ \keys_set:nV { scontents / scontents } \l_@@_temp_tl
}
+ \@@_start_after_option:w
}
-\cs_new_protected:Npn \@@_environment_keys:w [ #1 ]
- {
- \keys_set:nn { scontents / scontents } {#1}
- \@@_environment_junk:xw
- { after~optional~argument~to~\c_backslash_str begin{scontents} }
- }
-\cs_new_protected:Npn \@@_environment_junk:nw #1 #2 \q_@@_mark
- {
- \tl_if_blank:nF {#2}
- { \msg_error:nnnn { scontents } { junk-after-begin } {#1} {#2} }
- }
-\cs_generate_variant:Nn \@@_environment_junk:nw { x }
% \end{macrocode}
% \end{macro}
%
% \subsubsection{The environment itself}
%
-% \begin{macro}{\@@_start_environment:w,\@@_stop_environment:}
+% \begin{macro}{\@@_start_environment:w,\@@_start_after_option:w,
+% \@@_check_line_and_process:xn,\@@_stop_environment:}
% Here we make §^^I§, §^^L§ and §^^M§ active characters so that the end of
% line can be \enquote{seen} to be used as a delimiter, and \hologo{TeX} doesn't try to
-% eliminate space-like characters. First we check if the line
-% directly after §\begin{scontents}§ contains an optional argument
-% enclosed in §[...]§ or other tokens. The trailing tokens are
-% treated as junk and an error is raised. The
-% \cs{@@_environment_inline:w} macro checks for those cases.
+% eliminate space-like characters.
%
-% \cs{@@_start_environment:w} calls the \cs{@@_file_tl_write_start:V}
-% function, which will then read the contents of the environment and
-% optionally store them in a token list or write to an external file.
+% First we check if the immediate next token after §\begin{scontents}§
+% is a §[§. If it is, then \cs{@@_grab_optional:w} is called
+% to do the heavy lifting. \cs{@@_grab_optional:w} processes the optional
+% argument and calls \cs{@@_start_after_option:w}.
%
+% \cs{@@_start_after_option:w} also checks for trailing tokens after
+% the optional argument and issues an error if any.
+%
+% In all cases \cs{@@_check_line_and_process:xn} is called to check that
+% the rest of the §\begin{scontents}§ is empty and then process
+% the environment. \cs{@@_check_line_and_process:xn} calls the
+% \cs{@@_file_tl_write_start:V} function, which will then read the contents
+% of the environment and optionally store them in a token list or write to
+% an external file.
+%
% When that's done, \cs{@@_file_write_stop:N} does the cleanup and the
% read token list is smuggled out of the verbatim group. This part of
% the code is inspired and adapted from the code of the package \pkg{xsimverb}
@@ -2132,9 +2509,27 @@
\char_set_catcode_active:N \^^I
\char_set_catcode_active:N \^^L
\char_set_catcode_active:N \^^M
+ \cs_new_protected:Npn \@@_normalise_line_ends:N #1
+ { \tl_replace_all:Nnn #1 { ^^M } { ~ } }
\cs_new_protected:Npn \@@_start_environment:w #1 ^^M
{
- \@@_environment_inline:w #1 \q_@@_mark
+ \tl_if_head_is_N_type:nTF {#1}
+ {
+ \str_if_eq:eeTF { \tl_head:n {#1} } { [ }
+ { \@@_grab_optional:w #1 ^^M }
+ { \@@_check_line_and_process:xn { } {#1} }
+ }
+ { \@@_check_line_and_process:xn { } {#1} }
+ }
+ \cs_new_protected:Npn \@@_start_after_option:w #1 ^^M
+ { \@@_check_line_and_process:xn { [...] } {#1} }
+ \cs_new_protected:Npn \@@_check_line_and_process:xn #1 #2
+ {
+ \tl_if_blank:nF {#2}
+ {
+ \msg_error:nnxn { scontents } { junk-after-begin }
+ { after~\c_backslash_str begin{scontents} #1 } {#2}
+ }
\@@_make_control_chars_active:
\group_begin:
\@@_file_tl_write_start:V \l_@@_fname_out_tl
@@ -2145,6 +2540,8 @@
\exp_args:NNNV
\group_end:
\tl_set:Nn \l_@@_macro_tmp_tl \l_@@_macro_tmp_tl
+ \tl_if_empty:NT \l_@@_macro_tmp_tl
+ { \msg_warning:nnn { scontents } { empty-environment } }
}
% \end{macrocode}
% \end{macro}
@@ -2217,7 +2614,10 @@
{ \@@_verb_processor_output:n {#1} }
\cs_set_protected:Npx \@@_ret:w
{
- \exp_not:N \end{scontents}
+ \@@_format_case:nnn
+ { \exp_not:N \end{scontents} } % LaTeX
+ { \endscontents } % Plain/Generic
+ { \stopscontents } % ConTeXt
\bool_lazy_or:nnF
{ \tl_if_blank_p:n {#2} }
{ \str_if_eq_p:ee {#2} { \c_percent_str } }
@@ -2246,7 +2646,21 @@
}
}
\cs_new:Npn \@@_remove_leading_nl:n #1
- { \exp_not:o { \@@_remove_leading_nl:w #1 } }
+ {
+ \tl_if_head_is_N_type:nTF {#1}
+ {
+ \exp_args:Nf
+ \@@_remove_leading_nl:nn
+ { \tl_head:n {#1} } {#1}
+ }
+ { \exp_not:n {#1} }
+ }
+ \cs_new:Npn \@@_remove_leading_nl:nn #1 #2
+ {
+ \token_if_eq_meaning:NNTF ^^J #1
+ { \exp_not:o { \@@_remove_leading_nl:w #2 } }
+ { \exp_not:n {#2} }
+ }
\cs_new:Npn \@@_remove_leading_nl:w ^^J { }
% \end{macrocode}
% \end{macro}
@@ -2344,15 +2758,87 @@
{ \@@_lastfrom_seq:n \l_@@_name_seq_env_tl }
}
}
+%</core>
% \end{macrocode}
% \end{macro}
%
-% \subsection{The \cs{Scontents} command}
+% \begin{macro}[int]{\verbatim,\endverbatim}
+% In Plain we emulate \LaTeX's \env{verbatim} environment.
+% \begin{macrocode}
+%<*plain>
+\bool_new:N \l_@@_temp_bool
+\cs_new_protected:Npn \verbatim
+ { \@@_verbatim_aux: \frenchspacing \@@_vobeyspaces: \@@_xverb: }
+\cs_new_protected:Npn \@@_verbatim_aux:
+ {
+ \skip_vertical:N \parskip
+ \int_set:Nn \parindent { 0pt }
+ \skip_set:Nn \parfillskip { 0pt plus 1fil }
+ \int_set:Nn \parskip { 0pt plus0pt minus0pt }
+ \tex_par:D
+ \bool_set_false:N \l_@@_temp_bool
+ \cs_set:Npn \par
+ {
+ \bool_if:NTF \l_@@_temp_bool
+ {
+ \mode_leave_vertical:
+ \null
+ \tex_par:D
+ \penalty \interlinepenalty
+ }
+ {
+ \bool_set_true:N \l_@@_temp_bool
+ \mode_if_horizontal:T
+ { \tex_par:D \penalty \interlinepenalty }
+ }
+ }
+ \cs_set_eq:NN \do \char_set_catcode_other:N
+ \dospecials \obeylines
+ \tl_use:N \l_@@_verb_font_tl
+ \cs_set_eq:NN \do \@@_do_noligs:N
+ \@@_nolig_list:
+ \tex_everypar:D \exp_after:wN
+ { \tex_the:D \tex_everypar:D \tex_unpenalty:D }
+ }
+\cs_new_protected:Npn \@@_nolig_list:
+ { \do\`\do\<\do\>\do\,\do\'\do\- }
+\cs_new_protected:Npn \@@_vobeyspaces:
+ { \@@_set_active_eq:NN \ \@@_xobeysp: }
+\cs_new_protected:Npn \@@_xobeysp:
+ { \mode_leave_vertical: \nobreak \ }
+%</plain>
+% \end{macrocode}
+% \end{macro}
%
+% \begin{macro}[int]{\dospecials}
+% \pkg{xparse} also requires \LaTeX's \cs{dospecials}. In case it doesn't
+% exist (at the time \pkg{scontents} is loaded) we define \cs{dospecials}
+% to use the \cs{l_char_special_seq}.
+% \begin{macrocode}
+%<*!latex>
+\cs_if_exist:NF \dospecials
+ {
+ \cs_new:Npn \dospecials
+ { \seq_map_function:NN \l_char_special_seq \do }
+ }
+%</!latex>
+% \end{macrocode}
+% \end{macro}
+%
+% \subsection{The command \cs{Scontents}}
+%
% User command to \mymeta{stored content}, adapted from
% \url{https://tex.stackexchange.com/a/500281/7832}.
%
-% \begin{macro}{\Scontents,\@@_norm_arg:n,\@@_verb_arg:w}
+% \begin{macro}{
+% \Scontents,
+% \@@_norm_arg:n,
+% \@@_Scontents_auxi:N,
+% \Scontents code,
+% \@@_Scontents_internal:nn,
+% \@@_verb_arg:w,
+% \@@_verb_arg_internal:n,
+% }
% The §\Scontents§ macro starts by parsing an optional argument and
% then delegates to \cs{@@_verb_arg:w} or \cs{@@_norm_arg:n} depending whether
% a star (§*§) argument is present.
@@ -2364,13 +2850,18 @@
% argument parser.
%
% \begin{macrocode}
+%<*loader>
\NewDocumentCommand { \Scontents }{ !s !O{} }
+ { \@@_Scontents_internal:nn {#1} {#2} }
+%</loader>
+%<*core>
+\cs_new_protected:Npn \@@_Scontents_internal:nn #1 #2
{
\group_begin:
- \IfNoValueF {#2}
+ \tl_if_novalue:nF {#2}
{ \keys_set:nn { scontents / Scontents } {#2} }
\char_set_catcode_active:n { 9 }
- \IfBooleanTF {#1}
+ \bool_if:NTF #1
{ \@@_verb_arg:w }
{ \@@_norm_arg:n }
}
@@ -2383,7 +2874,13 @@
{ \@@_lastfrom_seq:n \l_@@_name_seq_cmd_tl }
\group_end:
}
+%</core>
+%<*loader>
\NewDocumentCommand { \@@_verb_arg:w } { +v }
+ { \@@_verb_arg_internal:n {#1} }
+%</loader>
+%<*core>
+\cs_new_protected:Npn \@@_verb_arg_internal:n #1
{
\tl_set:Nx \l_@@_temp_tl { \exp_not:n {#1} }
\tl_replace_all:Nxx \l_@@_temp_tl { \iow_char:N \^^M } { \iow_char:N \^^J }
@@ -2404,9 +2901,16 @@
% (robust).
%
% \begin{macrocode}
+%</core>
+%<*loader>
\NewDocumentCommand { \getstored } { O{1} m }
+ { \@@_getstored_internal:nn {#1} {#2} }
+%</loader>
+%<*core>
+\cs_new_protected:Npn \@@_getstored_internal:nn #1 #2
{
\group_begin:
+ \int_set:Nn \tex_newlinechar:D { `\^^J }
\@@_rescan_tokens:x
{ \@@_getfrom_seq:nn {#1} {#2} }
\group_end:
@@ -2414,8 +2918,56 @@
% \end{macrocode}
% \end{macro}
%
-% \subsection{The \cs{typestored} command}
+% \subsection{The command \cs{foreachsc}}
%
+% \begin{macro}{\foreachsc}
+% User command §\foreachsc§ to loop over \mymeta{stored content} in |seq|.
+%
+% \begin{macrocode}
+%</core>
+%<*loader>
+\NewDocumentCommand { \foreachsc } { o m }
+ { \@@_foreachsc_internal:nn {#1} {#2} }
+%</loader>
+%<*core>
+\cs_new_protected:Npn \@@_foreachsc_internal:nn #1 #2
+ {
+ \group_begin:
+ \tl_if_novalue:nF {#1} { \keys_set:nn { scontents / foreachsc } {#1} }
+ \tl_set:Nn \l_@@_foreach_name_seq_tl {#2}
+ \seq_clear:N \l_@@_foreach_print_seq
+ \bool_if:NF \l_@@_foreach_stop_bool
+ {
+ \int_set:Nn \l_@@_foreach_stop_int
+ { \seq_count:c { g_@@_name_#2_seq } }
+ }
+ \int_step_function:nnnN
+ { \l_@@_foreach_start_int }
+ { \l_@@_foreach_step_int }
+ { \l_@@_foreach_stop_int }
+ \@@_foreach_add_body:n
+ \seq_use:Nn \l_@@_foreach_print_seq { \tl_use:N \l_@@_foreach_sep_tl }
+ \group_end:
+ }
+\cs_new_protected:Npn \@@_foreach_add_body:n #1
+ {
+ \seq_put_right:Nx \l_@@_foreach_print_seq
+ {
+ \bool_if:NT \l_@@_foreach_before_bool
+ { \exp_not:V \l_@@_foreach_before_tl }
+ \bool_if:NTF \l_@@_foreach_wrapper_bool
+ { \@@_foreach_wrapper:n }
+ { \use:n }
+ { \getstored [#1] { \tl_use:N \l_@@_foreach_name_seq_tl } }
+ \bool_if:NT \l_@@_foreach_after_bool
+ { \exp_not:V \l_@@_foreach_after_tl }
+ }
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \subsection{The command \cs{typestored}}
+%
% This implementation is an adaptation taken from answer by Phelype Oleinik
% in (\url{https://tex.stackexchange.com/a/497651/7832}).
%
@@ -2424,15 +2976,19 @@
% to the log file, and then calls \cs{@@_verb_print:N}.
%
% \begin{macrocode}
+%</core>
+%<*loader>
\NewDocumentCommand { \typestored } { o m }
+ { \@@_typestored_internal:nn {#1} {#2} }
+%</loader>
+%<*core>
+\cs_new_protected:Npn \@@_typestored_internal:nn #1 #2
{
\group_begin:
\int_set:Nn \l_@@_seq_item_int { 1 }
- \IfValueT {#1} { \keys_set:nn { scontents / typemeaning } {#1} }
+ \tl_if_novalue:nF {#1} { \keys_set:nn { scontents / typemeaning } {#1} }
\tl_set:Nx \l_@@_temp_tl
- {
- \exp_args:NV \@@_getfrom_seq:nn \l_@@_seq_item_int {#2}
- }
+ { \exp_args:NV \@@_getfrom_seq:nn \l_@@_seq_item_int {#2} }
\tl_remove_once:NV \l_@@_temp_tl \c_@@_hidden_space_str
\tl_log:N \l_@@_temp_tl
\tl_if_empty:NF \l_@@_temp_tl
@@ -2456,9 +3012,14 @@
\cs_set_eq:NN \@@_verb_print_EOL: ^^M
\cs_set_eq:NN ^^M \scan_stop:
\cs_set_eq:cN { do at noligs } \@@_do_noligs:N
+ \int_set:Nn \tex_newlinechar:D { `\^^J }
\@@_rescan_tokens:x
{
- \exp_not:N \begin{verbatimsc} ^^M
+ \@@_format_case:nnn
+ { \exp_not:N \begin{verbatimsc} } % LaTeX
+ { \verbatimsc } % Plain/Generic
+ { \startverbatimsc } % ConTeXt
+ ^^M
\exp_not:V #1 ^^M
\g_@@_end_verbatimsc_tl
}
@@ -2476,18 +3037,30 @@
\char_set_active_eq:nN { 9 } \@@_tabs_to_spaces:
\@@_xverb:w
}
+%</core>
+%<*loader>
\use:x
{
\cs_new_protected:Npn \exp_not:N \@@_xverb:w
##1 \g_@@_end_verbatimsc_tl
+%<latex> { ##1 \exp_not:N \end{verbatimsc} }
+%<plain> { ##1 \exp_not:N \endverbatimsc }
+%<context> { ##1 \exp_not:N \stopverbatimsc }
}
- { #1 \end{verbatimsc} }
+%<*!context>
\NewDocumentEnvironment { verbatimsc } { }
{
- \cs_set_eq:cN { @xverbatim } \@@_xverb:
+%<plain> \group_begin:
+%<latex> \cs_set_eq:cN { @xverbatim } \@@_xverb:
\verbatim
}
- { }
+ {
+%<plain> \group_end:
+ }
+%</!context>
+%<context>\definetyping[verbatimsc]
+%</loader>
+%<*core>
% \end{macrocode}
% \end{macro}
%
@@ -2532,7 +3105,8 @@
% \@@_make_control_chars_active:,
% }
% Shortcut definitions for common catcode changes.
-%
+% The §^^L§ needs a special treatment in non-\LaTeX{} mode
+% because in Plain\,\TeX{} it is an \cs{outer} token.
% \begin{macrocode}
\cs_new_protected:Npn \@@_set_active_eq:NN #1
{
@@ -2539,12 +3113,34 @@
\char_set_catcode_active:N #1
\char_set_active_eq:NN #1
}
-\cs_new_protected:Npn \@@_make_control_chars_active:
- {
- \@@_set_active_eq:NN \^^I \@@_tab:
- \@@_set_active_eq:NN \^^L \@@_par:
- \@@_set_active_eq:NN \^^M \@@_ret:w
- }
+%</core>
+%<*loader>
+\group_begin:
+%<plain> \char_set_catcode_active:n { `\* }
+ \cs_new_protected:Npn \@@_plain_disable_outer_par:
+%<*plain>
+ {
+ \group_begin:
+ \char_set_lccode:nn { `\* } { `\^^L }
+ \tex_lowercase:D { \group_end:
+ \tex_let:D * \scan_stop:
+ }
+ }
+%</plain>
+%<latex|context> { }
+\group_end:
+%</loader>
+%<*core>
+\group_begin:
+ \char_set_catcode_active:N \*
+ \cs_new_protected:Npn \@@_make_control_chars_active:
+ {
+ \@@_plain_disable_outer_par:
+ \@@_set_active_eq:NN \^^I \@@_tab:
+ \@@_set_active_eq:NN \^^L \@@_par:
+ \@@_set_active_eq:NN \^^M \@@_ret:w
+ }
+\group_end:
% \end{macrocode}
% \end{macro}
%
@@ -2556,22 +3152,32 @@
% A user-level wrapper for \cs{keys_set:nn}§{ scontents }§.
%
% \begin{macrocode}
+%</core>
+%<*loader>
\NewDocumentCommand { \setupsc } { +m }
{ \keys_set:nn { scontents } {#1} }
+%</loader>
+%<*core>
% \end{macrocode}
% \end{macro}
%
-% \subsection{The command meaningsc}
+% \subsection{The command \cs{meaningsc}}
%
% \begin{macro}{\meaningsc}
% User command §\meaningsc§ to see content stored in |seq|.
%
% \begin{macrocode}
+%</core>
+%<*loader>
\NewDocumentCommand { \meaningsc } { o m }
+ { \@@_meaningsc_internal:nn {#1} {#2} }
+%</loader>
+%<*core>
+\cs_new_protected:Npn \@@_meaningsc_internal:nn #1 #2
{
\group_begin:
\int_set:Nn \l_@@_seq_item_int { 1 }
- \IfValueT {#1} { \keys_set:nn { scontents / typemeaning } {#1} }
+ \tl_if_novalue:nF {#1} { \keys_set:nn { scontents / typemeaning } {#1} }
\@@_meaningsc:n {#2}
\group_end:
}
@@ -2580,9 +3186,7 @@
\cs_new_protected:Npn \@@_meaningsc:n #1
{
\tl_set:Nx \l_@@_temp_tl
- {
- \exp_args:NV \@@_getfrom_seq:nn \l_@@_seq_item_int {#1}
- }
+ { \exp_args:NV \@@_getfrom_seq:nn \l_@@_seq_item_int {#1} }
\tl_replace_all:Nxn \l_@@_temp_tl { \iow_char:N \^^J } { ~ }
\tl_remove_once:NV \l_@@_temp_tl \c_@@_hidden_space_str
\tl_log:N \l_@@_temp_tl
@@ -2601,8 +3205,12 @@
% User command §\countsc§ to count number of contents stored in |seq|.
%
% \begin{macrocode}
+%</core>
+%<*loader>
\NewExpandableDocumentCommand { \countsc } { m }
{ \seq_count:c { g_@@_name_#1_seq } }
+%</loader>
+%<*core>
% \end{macrocode}
% \end{macro}
%
@@ -2613,8 +3221,12 @@
% A user command §\cleanseqsc§ to clear (remove) a defined |seq|.
%
% \begin{macrocode}
+%</core>
+%<*loader>
\NewDocumentCommand { \cleanseqsc } { m }
{ \seq_clear_new:c { g_@@_name_#1_seq } }
+%</loader>
+%<*core>
% \end{macrocode}
% \end{macro}
%
@@ -2677,6 +3289,18 @@
The~command~'\c_backslash_str Scontents'~does~not~have~a~key~called~'#1'.\\
Check~that~you~have~spelled~the~key~name~correctly.
}
+\msg_new:nnnn { scontents } { for-key-unknown }
+ { The~key~'#1'~is~unknown~by~'\c_backslash_str foreachsc'~and~is~being~ignored.}
+ {
+ The~command~'\c_backslash_str foreachsc'~does~not~have~a~key~called~'#1'.\\
+ Check~that~you~have~spelled~the~key~name~correctly.
+ }
+\msg_new:nnnn { scontents } { for-key-value-unknown }
+ { The~key~'#1=#2'~is~unknown~by~'\c_backslash_str foreachsc'~and~is~being~ignored. }
+ {
+ The~command~'\c_backslash_str foreachsc'~does~not~have~a~key~called~'#1'.\\
+ Check~that~you~have~spelled~the~key~name~correctly.
+ }
\msg_new:nnnn { scontents } { type-key-unknown }
{ The~key~'#1'~is~unknown~and~is~being~ignored. }
{
@@ -2689,6 +3313,27 @@
This~command~does~not~have~a~key~called~'#1'.\\
This~command~only~accepts~the~key~'width-tab'.
}
+\msg_new:nnn { scontents } { empty-environment }
+ { scontents~environment~empty~\msg_line_context:. }
+\msg_new:nnnn { scontents } { verbatim-newline }
+ { Verbatim~argument~of~#1~ended~by~end~of~line. }
+ {
+ The~verbatim~argument~of~the~#1~cannot~contain~more~than~one~line,~
+ but~the~end~
+ of~the~current~line~has~been~reached.~You~may~have~forgotten~the~
+ closing~delimiter.
+ \\ \\
+ LaTeX~will~ignore~'#2'.
+ }
+\msg_new:nnnn { scontents } { verbatim-tokenized }
+ { The~verbatim~#1~cannot~be~used~inside~an~argument. }
+ {
+ The~#1~takes~a~verbatim~argument.~
+ It~may~not~appear~within~the~argument~of~another~function.~
+ It~received~an~illegal~token \tl_if_empty:nF {#3} { ~'#3' } .
+ \\ \\
+ LaTeX~will~ignore~'#2'.
+ }
% \end{macrocode}
%
% \subsection{Finish package}
@@ -2696,9 +3341,7 @@
% Finish package implementation.
%
% \begin{macrocode}
-\file_input_stop:
+%</core>
+%<plain|context>\ExplSyntaxOff
% \end{macrocode}
-% \iffalse
-%</package>
-% \fi
% \Finale
Modified: trunk/Master/texmf-dist/source/latex/scontents/scontents.ins
===================================================================
--- trunk/Master/texmf-dist/source/latex/scontents/scontents.ins 2019-10-23 21:39:38 UTC (rev 52501)
+++ trunk/Master/texmf-dist/source/latex/scontents/scontents.ins 2019-10-23 21:39:58 UTC (rev 52502)
@@ -1,34 +1,7 @@
-%%
-%% This is file `scontents.ins',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% scontents.dtx (with options: `install')
-%%
-%% Copyright (C) 2019 by Pablo González L <pablgonz at educarchile.cl>
-%%
-%% This work may be distributed and/or modified under the conditions of the
-%% LaTeX Project Public License, either version 1.3c 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.3c or later is part of all distributions of LaTeX version
-%% 2005/12/01 or later.
-%%
-%% This work is "maintained" (as per the LPPL maintenance status)
-%% by Pablo González Luengo.
-%%
-%% This work consists of the file scontents.dtx
-%% and the derived files scontents.ins,
-%% scontents.pdf and
-%% scontents.sty.
-%%
\input l3docstrip.tex
\keepsilent
\askforoverwritefalse
-\preamble
+\declarepreamble\standard
Copyright (C) 2019 by Pablo González L <pablgonz at educarchile.cl>
@@ -44,17 +17,54 @@
This work is "maintained" (as per the LPPL maintenance status)
by Pablo González Luengo.
-This work consists of the file scontents.dtx
-and the derived files scontents.ins,
- scontents.pdf and
- scontents.sty.
+This work consists of the files scontents.dtx and
+ scontents.ins,
+and the derived files scontents.sty,
+ scontents.tex,
+ t-scontents.mkvi and
+ scontents-code.tex.
\endpreamble
+%
+\catcode`\@=11
+\let\org at ds@heading\ds at heading
+\def\ds at heading{}
+\def\MetaPrefix{\perCent D}
+\declarepreamble\context
+ \string\module
+ [ file=t-scontents,
+ version=1.5,
+ title=\string\CONTEXT\ User Module,
+ subtitle=Storing Contents,
+ author=Pablo González,
+ date=2019-10-24,
+ copyright=Pablo González,
+ email=pablgonz at educarchile.cl,
+ license=LPPL]
+\endpreamble
+\let\ds at heading\org at ds@heading
+\let\MetaPrefix\DoubleperCent
+%
\usedir{tex/latex/scontents}
\generate{%
- \file{\jobname.sty}{\from{\jobname.dtx}{package}}%
+ \usepreamble\standard
+ \file{scontents.sty} {\from{scontents.dtx}{loader,latex}}%
+ \file{scontents.tex} {\from{scontents.dtx}{loader,plain}}%
+ \file{scontents-code.tex}{\from{scontents.dtx}{core}}%
+ \edef\tmpa{\standard^^J\context}\usepreamble\tmpa
+ \file{t-scontents.mkvi} {\from{scontents.dtx}{loader,context}}%
}%
+
+\Msg{*****************************************************************}%
+\Msg{*}
+\Msg{* To finish the installation you have to move the files into a }
+\Msg{* directory searched by TeX. See README.md for instructions.}
+\Msg{*}
+\Msg{* To produce the documentation with source code run xelatex }%
+\Msg{* thrice on file scontents.dtx }%
+\Msg{*}
+\Msg{* Happy TeXing!}
+\Msg{*}
+\Msg{*****************************************************************}%
+
\endbatchfile
-\endinput
-%%
-%% End of file `scontents.ins'.
Modified: trunk/Master/texmf-dist/tex/latex/scontents/scontents.sty
===================================================================
--- trunk/Master/texmf-dist/tex/latex/scontents/scontents.sty 2019-10-23 21:39:38 UTC (rev 52501)
+++ trunk/Master/texmf-dist/tex/latex/scontents/scontents.sty 2019-10-23 21:39:58 UTC (rev 52502)
@@ -4,7 +4,7 @@
%%
%% The original source files were:
%%
-%% scontents.dtx (with options: `package')
+%% scontents.dtx (with options: `loader,latex')
%%
%% Copyright (C) 2019 by Pablo González L <pablgonz at educarchile.cl>
%%
@@ -20,67 +20,29 @@
%% This work is "maintained" (as per the LPPL maintenance status)
%% by Pablo González Luengo.
%%
-%% This work consists of the file scontents.dtx
-%% and the derived files scontents.ins,
-%% scontents.pdf and
-%% scontents.sty.
+%% This work consists of the files scontents.dtx and
+%% scontents.ins,
+%% and the derived files scontents.sty,
+%% scontents.tex,
+%% t-scontents.mkvi and
+%% scontents-code.tex.
%%
-\RequirePackage{l3keys2e}
-\RequirePackage{xparse}[2019/05/28]
-\ProvidesExplPackage{scontents}{2019/10/03}{1.4}
- {Stores LaTeX contents in memory or files}
-\@ifpackagelater { expl3 } { 2019/09/19 }
- { }
+\def\ScontentsFileDate{2019-10-24}%
+\def\ScontentsFileVersion{1.5}%
+\def\ScontentsFileDescription{Stores LaTeX contents in memory or files}%
+\RequirePackage{expl3,xparse,l3keys2e}[2019/05/28]
+\ProvidesExplPackage
+ {scontents} {\ScontentsFileDate} {\ScontentsFileVersion} {\ScontentsFileDescription}
+\@ifpackageloaded { verbatim }
{
- \PackageError { scontents } { Support~package~expl3~too~old }
+ \iow_term:n
{
- You~need~to~update~your~installation~of~the~bundles~
- 'l3kernel'~and~'l3packages'.\MessageBreak
- Loading~scontents~will~abort!
+ The~implementation~of~the~'verbatimsc'~environment~\\
+ used~by~\tl_to_str:n{\typestored}~is~not~compatible~with~package\\
+ 'verbatim'.~Review~the~documentation~and~redefine~\\
+ the~'verbatimsc'~environment.
}
- \file_input_stop:
- }
-\keys_define:nn { scontents }
- {
- store-env .tl_set:N = \l__scontents_name_seq_env_tl,
- store-env .initial:n = contents,
- store-env .value_required:n = true,
- store-cmd .tl_set:N = \l__scontents_name_seq_cmd_tl,
- store-cmd .initial:n = contents,
- store-cmd .value_required:n = true,
- verb-font .tl_set:N = \l__scontents_verb_font_tl,
- verb-font .initial:n = \ttfamily,
- verb-font .value_required:n = true,
- print-env .bool_set:N = \l__scontents_print_env_bool,
- print-env .initial:n = false,
- print-env .default:n = true,
- print-cmd .bool_set:N = \l__scontents_print_cmd_bool,
- print-cmd .initial:n = false,
- print-cmd .default:n = true,
- force-eol .bool_set:N = \l__scontents_forced_eol_bool,
- force-eol .initial:n = false,
- force-eol .default:n = true,
- width-tab .int_set:N = \l__scontents_tab_width_int,
- width-tab .initial:n = 1,
- width-tab .value_required:n = true,
- print-all .meta:n = { print-env = #1 , print-cmd = #1 },
- print-all .default:n = true,
- store-all .meta:n = { store-env = #1 , store-cmd = #1 },
- store-all .value_required:n = true
- }
-\ProcessKeysOptions { scontents }
-\tl_new:N \l__scontents_macro_tmp_tl
-\tl_new:N \l__scontents_fname_out_tl
-\tl_new:N \l__scontents_temp_tl
-\tl_new:N \l__scontents_file_tl
-\tl_new:N \g__scontents_temp_tl
-\int_new:N \l__scontents_seq_item_int
-\int_new:N \l__scontents_env_nesting_int
-\int_new:N \l__scontents_tmpa_int
-\bool_new:N \l__scontents_writing_bool
-\bool_set_false:N \l__scontents_writing_bool
-\bool_new:N \l__scontents_storing_bool
-\bool_set_true:N \l__scontents_storing_bool
+ } { }
\tl_new:N \g__scontents_end_verbatimsc_tl
\tl_gset_rescan:Nnn
\g__scontents_end_verbatimsc_tl
@@ -91,521 +53,63 @@
}
{ \end{verbatimsc} }
\tl_const:Nx \c__scontents_end_env_tl
- { \c_backslash_str end \c_left_brace_str scontents \c_right_brace_str }
-\str_const:Nx \c__scontents_hidden_space_str
- { \c_percent_str \c_circumflex_str \c_circumflex_str A scheol \c_percent_str }
-\quark_new:N \q__scontents_stop
-\quark_new:N \q__scontents_mark
-\iow_new:N \l__scontents_file_iow
-\cs_new_protected:Npn \__scontents_rescan_tokens:n #1 { \tex_scantokens:D {#1} }
-\cs_generate_variant:Nn \__scontents_rescan_tokens:n { V, x }
-\cs_new:Npx \__scontents_tab: { \c_space_tl }
-\cs_new:Npn \__scontents_par: { ^^J ^^J }
-\cs_generate_variant:Nn \tl_remove_once:Nn { NV }
-\cs_generate_variant:Nn \tl_replace_all:Nnn { Nx, Nxx, Nnx }
-\prg_generate_conditional_variant:Nnn \tl_if_empty:n { f } { TF }
-\keys_define:nn { scontents / scontents }
{
- write-env .code:n = {
- \bool_set_true:N \l__scontents_writing_bool
- \tl_set:Nn \l__scontents_fname_out_tl {#1}
- },
- write-out .code:n = {
- \bool_set_false:N \l__scontents_storing_bool
- \bool_set_true:N \l__scontents_writing_bool
- \tl_set:Nn \l__scontents_fname_out_tl {#1}
- },
- write-env .value_required:n = true,
- write-out .value_required:n = true,
- print-env .meta:nn = { scontents } { print-env = #1 },
- print-env .default:n = true,
- store-env .meta:nn = { scontents } { store-env = #1 },
- force-eol .meta:nn = { scontents } { force-eol = #1 },
- force-eol .default:n = true,
- unknown .code:n = { \__scontents_parse_environment_keys:n {#1} }
+ \c_backslash_str
+ end
+ \c_left_brace_str
+ scontents
+ \c_right_brace_str
}
-\keys_define:nn { scontents / Scontents }
- {
- print-cmd .meta:nn = { scontents } { print-cmd = #1 },
- print-cmd .default:n = true,
- store-cmd .meta:nn = { scontents } { store-cmd = #1 },
- force-eol .meta:nn = { scontents } { force-eol = #1 },
- force-eol .default:n = true,
- unknown .code:n = { \__scontents_parse_command_keys:n {#1} }
- }
-\keys_define:nn { scontents / typemeaning }
- {
- width-tab .meta:nn = { scontents } { width-tab = #1 },
- unknown .code:n = { \__scontents_parse_type_meaning_key:n {#1} }
- }
-\cs_new_protected:Npn \__scontents_parse_environment_keys:n #1
- { \exp_args:NV \__scontents_parse_environment_keys:nn \l_keys_key_tl {#1} }
-\cs_new_protected:Npn \__scontents_parse_environment_keys:nn #1#2
- {
- \tl_if_blank:nTF {#2}
- { \msg_error:nnn { scontents } { env-key-unknown } {#1} }
- { \msg_error:nnnn { scontents } { env-key-value-unknown } {#1} {#2} }
- }
-\cs_new_protected:Npn \__scontents_parse_command_keys:n #1
- { \exp_args:NV \__scontents_parse_command_keys:nn \l_keys_key_tl {#1} }
-\cs_new_protected:Npn \__scontents_parse_command_keys:nn #1#2
- {
- \tl_if_blank:nTF {#2}
- { \msg_error:nnn { scontents } { cmd-key-unknown } {#1} }
- { \msg_error:nnnn { scontents } { cmd-key-value-unknown } {#1} {#2} }
- }
-\cs_new_protected:Npn \__scontents_parse_type_meaning_key:n #1
- { \exp_args:NV \__scontents_parse_type_meaning_key:nn \l_keys_key_tl {#1} }
-\cs_new_protected:Npn \__scontents_parse_type_meaning_key:nn #1#2
- {
- \tl_if_empty:fTF { \int_to_roman:n { -0 #1 } }
- {
- \tl_if_blank:nTF {#2}
- { \int_set:Nn \l__scontents_seq_item_int {#1} }
- { \msg_error:nnnn { scontents } { type-key-value-unknown } {#1} {#2} }
- }
- {
- \tl_if_blank:nTF {#2}
- { \msg_error:nnn { scontents } { type-key-unknown } {#1} }
- { \msg_error:nnnn { scontents } { type-key-value-unknown } {#1} {#2} }
- }
- }
-\cs_new_protected:Npn \__scontents_append_contents:nn #1#2
- {
- \tl_if_blank:nT {#1}
- { \msg_error:nn { scontents } { empty-store-cmd } }
- \seq_if_exist:cF { g__scontents_name_#1_seq }
- { \seq_new:c { g__scontents_name_#1_seq } }
- \seq_gput_right:cn { g__scontents_name_#1_seq } {#2}
- }
-\cs_generate_variant:Nn \__scontents_append_contents:nn { Vx }
-\cs_new:Npn \__scontents_getfrom_seq:nn #1#2
- {
- \seq_if_exist:cTF { g__scontents_name_#2_seq }
- {
- \exp_args:Nf \__scontents_getfrom_seq:nnn
- { \seq_count:c { g__scontents_name_#2_seq } }
- {#1} {#2}
- }
- { \msg_expandable_error:nnn { scontents } { undefined-storage } {#2} }
- }
-\cs_new:Npn \__scontents_getfrom_seq:nnn #1#2#3
- {
- \bool_lazy_or:nnTF
- { \int_compare_p:nNn {#2} = { 0 } }
- { \int_compare_p:nNn { \int_abs:n {#2} } > {#1} }
- { \msg_expandable_error:nnnnn { scontents } { index-out-of-range } {#2} {#3} {#1} }
- { \seq_item:cn { g__scontents_name_#3_seq } {#2} }
- }
-\cs_new_protected:Npn \__scontents_lastfrom_seq:n #1
- {
- \tl_gset:Nx \g__scontents_temp_tl { \seq_item:cn { g__scontents_name_#1_seq } {-1} }
- \group_insert_after:N \__scontents_rescan_tokens:V
- \group_insert_after:N \g__scontents_temp_tl
- \group_insert_after:N \tl_gclear:N
- \group_insert_after:N \g__scontents_temp_tl
- }
-\cs_new_protected:Npn \__scontents_store_to_seq:NN #1#2
- {
- \tl_log:N #1
- \__scontents_append_contents:Vx #2 { \exp_not:V #1 }
- }
+\file_input:n { scontents-code.tex }
+\cs_new:Npn \__scontents_format_case:nnn #1 #2 #3
+ {#1} % LaTeX
+\keys_define:nn { scontents }
+ { verb-font .initial:n = \ttfamily }
+\ProcessKeysOptions { scontents }
\NewDocumentEnvironment { scontents } { }
{
- \char_set_catcode_active:N \^^M
- \__scontents_start_environment:w
+ \__scontents_scontents_env_begin:
}
{
- \__scontents_stop_environment:
- \__scontents_atend_environment:
+ \__scontents_scontents_env_end:
}
-\cs_new_protected:Npn \__scontents_environment_inline:w
- {
- \peek_charcode_ignore_spaces:NTF [ % ]
- { \__scontents_environment_keys:w }
- {
- \__scontents_environment_junk:xw
- { after~\c_backslash_str begin{scontents} }
- }
- }
-\cs_new_protected:Npn \__scontents_environment_keys:w [ #1 ]
- {
- \keys_set:nn { scontents / scontents } {#1}
- \__scontents_environment_junk:xw
- { after~optional~argument~to~\c_backslash_str begin{scontents} }
- }
-\cs_new_protected:Npn \__scontents_environment_junk:nw #1 #2 \q__scontents_mark
- {
- \tl_if_blank:nF {#2}
- { \msg_error:nnnn { scontents } { junk-after-begin } {#1} {#2} }
- }
-\cs_generate_variant:Nn \__scontents_environment_junk:nw { x }
-\group_begin:
- \char_set_catcode_active:N \^^I
- \char_set_catcode_active:N \^^L
- \char_set_catcode_active:N \^^M
- \cs_new_protected:Npn \__scontents_start_environment:w #1 ^^M
- {
- \__scontents_environment_inline:w #1 \q__scontents_mark
- \__scontents_make_control_chars_active:
- \group_begin:
- \__scontents_file_tl_write_start:V \l__scontents_fname_out_tl
- }
- \cs_new_protected:Npn \__scontents_stop_environment:
- {
- \__scontents_file_write_stop:N \l__scontents_macro_tmp_tl
- \exp_args:NNNV
- \group_end:
- \tl_set:Nn \l__scontents_macro_tmp_tl \l__scontents_macro_tmp_tl
- }
- \cs_new_protected:Npn \__scontents_file_tl_write_start:n #1
- {
- \group_begin:
- \bool_if:NT \l__scontents_writing_bool
- {
- \file_if_exist:nTF {#1}
- { \msg_warning:nnx { scontents } { rewriting-file } {#1} }
- { \msg_warning:nnx { scontents } { writing-file } {#1} }
- \iow_open:Nn \l__scontents_file_iow {#1}
- }
- \tl_clear:N \l__scontents_file_tl
- \seq_map_function:NN \l_char_special_seq \char_set_catcode_other:N
- \int_step_function:nnN { 128 } { 255 } \char_set_catcode_letter:n
- \cs_set_protected:Npx \__scontents_ret:w ##1 ^^M
- {
- \exp_not:N \__scontents_verb_processor_iterate:w
- ##1 \c__scontents_end_env_tl
- \c__scontents_end_env_tl
- \exp_not:N \q__scontents_stop
- }
- \__scontents_make_control_chars_active:
- \__scontents_ret:w
- }
- \use:x
- {
- \cs_new:Npn \exp_not:N \__scontents_verb_processor_iterate:w
- ##1 \c__scontents_end_env_tl
- ##2 \c__scontents_end_env_tl
- ##3 \exp_not:N \q__scontents_stop
- } {
- \tl_if_blank:nTF {#3}
- {
- \__scontents_analyse_nesting:n {#1}
- \__scontents_verb_processor_output:n {#1}
- }
- {
- \__scontents_if_nested:TF
- {
- \__scontents_nesting_decr:
- \__scontents_verb_processor_output:x
- { \exp_not:n {#1} \c__scontents_end_env_tl \exp_not:n {#2} }
- }
- {
- \tl_if_blank:nF {#1}
- { \__scontents_verb_processor_output:n {#1} }
- \cs_set_protected:Npx \__scontents_ret:w
- {
- \exp_not:N \end{scontents}
- \bool_lazy_or:nnF
- { \tl_if_blank_p:n {#2} }
- { \str_if_eq_p:ee {#2} { \c_percent_str } }
- {
- \msg_warning:nnn { scontents } { rescanning-text } {#2}
- \__scontents_rescan_tokens:n {#2}
- }
- }
- \char_set_active_eq:NN ^^M \__scontents_ret:w
- }
- }
- ^^M
- }
- \cs_new_protected:Npn \__scontents_file_write_stop:N #1
- {
- \bool_if:NT \l__scontents_writing_bool
- { \iow_close:N \l__scontents_file_iow }
- \use:x
- {
- \group_end:
- \bool_if:NT \l__scontents_storing_bool
- {
- \tl_set:Nn \exp_not:N #1
- { \exp_args:NV \__scontents_remove_leading_nl:n \l__scontents_file_tl }
- }
- }
- }
- \cs_new:Npn \__scontents_remove_leading_nl:n #1
- { \exp_not:o { \__scontents_remove_leading_nl:w #1 } }
- \cs_new:Npn \__scontents_remove_leading_nl:w ^^J { }
- \cs_new_protected:Npn \__scontents_verb_processor_output:n #1
- {
- \bool_if:NT \l__scontents_writing_bool
- { \iow_now:Nn \l__scontents_file_iow {#1} }
- \bool_if:NT \l__scontents_storing_bool
- { \tl_put_right:Nn \l__scontents_file_tl { ^^J #1 } }
- }
- \cs_generate_variant:Nn \__scontents_verb_processor_output:n { x }
- \cs_new_protected:Npx \__scontents_analyse_nesting:n #1
- {
- \int_zero:N \l__scontents_tmpa_int
- \exp_not:N \__scontents_analyse_nesting:w #1
- \c_backslash_str begin
- \c_left_brace_str \exp_not:N \q__scontents_mark \c_right_brace_str
- \exp_not:N \q__scontents_stop
- \int_compare:nNnT { \l__scontents_tmpa_int } > { 1 }
- { \msg_warning:nn { scontents } { multiple-begin } }
- }
- \use:x
- {
- \cs_new_protected:Npn \exp_not:N \__scontents_analyse_nesting:w ##1
- \c_backslash_str begin \c_left_brace_str ##2 \c_right_brace_str
- } {
- \if_meaning:w \q__scontents_mark #2
- \exp_after:wN \use_i:nn
- \else:
- \exp_after:wN \use_ii:nn
- \fi:
- { \__scontents_use_none_delimit_by_q_stop:w }
- {
- \str_if_eq:eeT {#2} {scontents}
- {
- \int_incr:N \l__scontents_env_nesting_int
- \int_incr:N \l__scontents_tmpa_int
- \__scontents_analyse_nesting:w
- }
- \__scontents_analyse_nesting:w
- }
- }
- \cs_new_protected:Npn \__scontents_nesting_decr:
- { \int_decr:N \l__scontents_env_nesting_int }
- \prg_new_protected_conditional:Npnn \__scontents_if_nested: { TF }
- {
- \int_compare:nNnTF { \l__scontents_env_nesting_int } > { \c_zero_int }
- { \prg_return_true: }
- { \prg_return_false: }
- }
- \cs_new:Npn \__scontents_use_none_delimit_by_q_stop:w #1 \q__scontents_stop { }
-\group_end:
-\cs_generate_variant:Nn \__scontents_file_tl_write_start:n { V }
-\cs_new_protected:Npn \__scontents_atend_environment:
- {
- \bool_if:NT \l__scontents_storing_bool
- {
- \bool_if:NF \l__scontents_forced_eol_bool
- { \tl_put_right:Nx \l__scontents_macro_tmp_tl { \c__scontents_hidden_space_str } }
- \__scontents_store_to_seq:NN \l__scontents_macro_tmp_tl \l__scontents_name_seq_env_tl
- \bool_if:NT \l__scontents_print_env_bool
- { \__scontents_lastfrom_seq:n \l__scontents_name_seq_env_tl }
- }
- }
+\NewDocumentCommand \__scontents_grab_optional:w { r[] }
+ { \__scontents_grab_optional:n {#1} }
\NewDocumentCommand { \Scontents }{ !s !O{} }
- {
- \group_begin:
- \IfNoValueF {#2}
- { \keys_set:nn { scontents / Scontents } {#2} }
- \char_set_catcode_active:n { 9 }
- \IfBooleanTF {#1}
- { \__scontents_verb_arg:w }
- { \__scontents_norm_arg:n }
- }
-\cs_new_protected:Npn \__scontents_norm_arg:n #1
- {
- \tl_set:Nx \l__scontents_temp_tl { \exp_not:n {#1} }
- \tl_put_right:Nx \l__scontents_temp_tl { \c__scontents_hidden_space_str }
- \__scontents_store_to_seq:NN \l__scontents_temp_tl \l__scontents_name_seq_cmd_tl
- \bool_if:NT \l__scontents_print_cmd_bool
- { \__scontents_lastfrom_seq:n \l__scontents_name_seq_cmd_tl }
- \group_end:
- }
+ { \__scontents_Scontents_internal:nn {#1} {#2} }
\NewDocumentCommand { \__scontents_verb_arg:w } { +v }
- {
- \tl_set:Nx \l__scontents_temp_tl { \exp_not:n {#1} }
- \tl_replace_all:Nxx \l__scontents_temp_tl { \iow_char:N \^^M } { \iow_char:N \^^J }
- \bool_if:NF \l__scontents_forced_eol_bool
- { \tl_put_right:Nx \l__scontents_temp_tl { \c__scontents_hidden_space_str } }
- \__scontents_store_to_seq:NN \l__scontents_temp_tl \l__scontents_name_seq_cmd_tl
- \bool_if:NT \l__scontents_print_cmd_bool
- { \__scontents_lastfrom_seq:n \l__scontents_name_seq_cmd_tl }
- \group_end:
- }
+ { \__scontents_verb_arg_internal:n {#1} }
\NewDocumentCommand { \getstored } { O{1} m }
- {
- \group_begin:
- \__scontents_rescan_tokens:x
- { \__scontents_getfrom_seq:nn {#1} {#2} }
- \group_end:
- }
+ { \__scontents_getstored_internal:nn {#1} {#2} }
+\NewDocumentCommand { \foreachsc } { o m }
+ { \__scontents_foreachsc_internal:nn {#1} {#2} }
\NewDocumentCommand { \typestored } { o m }
- {
- \group_begin:
- \int_set:Nn \l__scontents_seq_item_int { 1 }
- \IfValueT {#1} { \keys_set:nn { scontents / typemeaning } {#1} }
- \tl_set:Nx \l__scontents_temp_tl
- {
- \exp_args:NV \__scontents_getfrom_seq:nn \l__scontents_seq_item_int {#2}
- }
- \tl_remove_once:NV \l__scontents_temp_tl \c__scontents_hidden_space_str
- \tl_log:N \l__scontents_temp_tl
- \tl_if_empty:NF \l__scontents_temp_tl
- { \__scontents_verb_print:N \l__scontents_temp_tl }
- \group_end:
- }
-\group_begin:
- \char_set_catcode_active:N \^^M
- \cs_new_protected:Npn \__scontents_verb_print:N #1
- {
- \tl_if_blank:VT #1
- { \msg_error:nnn { scontents } { empty-variable } {#1} }
- \cs_set_eq:NN \__scontents_verb_print_EOL: ^^M
- \cs_set_eq:NN ^^M \scan_stop:
- \cs_set_eq:cN { do at noligs } \__scontents_do_noligs:N
- \__scontents_rescan_tokens:x
- {
- \exp_not:N \begin{verbatimsc} ^^M
- \exp_not:V #1 ^^M
- \g__scontents_end_verbatimsc_tl
- }
- \cs_set_eq:NN ^^M \__scontents_verb_print_EOL:
- }
-\group_end:
-\cs_new_protected:Npn \__scontents_xverb:
- {
- \char_set_catcode_active:n { 9 }
- \char_set_active_eq:nN { 9 } \__scontents_tabs_to_spaces:
- \__scontents_xverb:w
- }
+ { \__scontents_typestored_internal:nn {#1} {#2} }
\use:x
{
\cs_new_protected:Npn \exp_not:N \__scontents_xverb:w
##1 \g__scontents_end_verbatimsc_tl
+ { ##1 \exp_not:N \end{verbatimsc} }
}
- { #1 \end{verbatimsc} }
\NewDocumentEnvironment { verbatimsc } { }
{
\cs_set_eq:cN { @xverbatim } \__scontents_xverb:
\verbatim
}
- { }
-\cs_new:Npn \__scontents_tabs_to_spaces:
- { \prg_replicate:nn { \l__scontents_tab_width_int } { ~ } }
-\cs_new:Npn \__scontents_do_noligs:N #1
{
- \char_set_catcode_active:N #1
- \char_set_active_eq:Nc #1 { __scontents_active_char_ \token_to_str:N #1 : }
- \cs_set:cpx { __scontents_active_char_ \token_to_str:N #1 : }
- {
- \mode_leave_vertical:
- \tex_kern:D \c_zero_dim
- \char_generate:nn { `#1 } { 12 }
- }
}
-\cs_new_protected:Npn \__scontents_set_active_eq:NN #1
- {
- \char_set_catcode_active:N #1
- \char_set_active_eq:NN #1
- }
-\cs_new_protected:Npn \__scontents_make_control_chars_active:
- {
- \__scontents_set_active_eq:NN \^^I \__scontents_tab:
- \__scontents_set_active_eq:NN \^^L \__scontents_par:
- \__scontents_set_active_eq:NN \^^M \__scontents_ret:w
- }
+\group_begin:
+ \cs_new_protected:Npn \__scontents_plain_disable_outer_par:
+ { }
+\group_end:
\NewDocumentCommand { \setupsc } { +m }
{ \keys_set:nn { scontents } {#1} }
\NewDocumentCommand { \meaningsc } { o m }
- {
- \group_begin:
- \int_set:Nn \l__scontents_seq_item_int { 1 }
- \IfValueT {#1} { \keys_set:nn { scontents / typemeaning } {#1} }
- \__scontents_meaningsc:n {#2}
- \group_end:
- }
-\group_begin:
- \char_set_catcode_active:N \^^I
- \cs_new_protected:Npn \__scontents_meaningsc:n #1
- {
- \tl_set:Nx \l__scontents_temp_tl
- {
- \exp_args:NV \__scontents_getfrom_seq:nn \l__scontents_seq_item_int {#1}
- }
- \tl_replace_all:Nxn \l__scontents_temp_tl { \iow_char:N \^^J } { ~ }
- \tl_remove_once:NV \l__scontents_temp_tl \c__scontents_hidden_space_str
- \tl_log:N \l__scontents_temp_tl
- \tl_use:N \l__scontents_verb_font_tl
- \tl_replace_all:Nnx \l__scontents_temp_tl { ^^I } { \__scontents_tabs_to_spaces: }
- \cs_replacement_spec:N \l__scontents_temp_tl
- }
-\group_end:
+ { \__scontents_meaningsc_internal:nn {#1} {#2} }
\NewExpandableDocumentCommand { \countsc } { m }
{ \seq_count:c { g__scontents_name_#1_seq } }
\NewDocumentCommand { \cleanseqsc } { m }
{ \seq_clear_new:c { g__scontents_name_#1_seq } }
-\msg_new:nnn { scontents } { junk-after-begin }
- {
- Junk~characters~#1~\msg_line_context: :
- \\ \\
- #2
- }
-\msg_new:nnn { scontents } { empty-stored-content }
- { Empty~value~for~key~'getstored'~\msg_line_context:. }
-\msg_new:nnn { scontents } { empty-variable }
- { Variable~'#1'~empty~\msg_line_context:. }
-\msg_new:nnn { scontents } { rewriting-file }
- { Overwriting ~ file ~ '#1' }
-\msg_new:nnn { scontents } { writing-file }
- { Writing ~ file ~ '#1' }
-\msg_new:nnn { scontents } { rescanning-text }
- { Rescanning~text~'#1'~after~\c_backslash_str end{scontents}~\msg_line_context:.}
-\msg_new:nnn { scontents } { multiple-begin }
- { Multiple~\c_backslash_str begin{scontents}~\msg_line_context:.}
-\msg_new:nnn { scontents } { undefined-storage }
- { Storage~named~'#1'~is~not~defined. }
-\msg_new:nnn { scontents } { index-out-of-range }
- {
- \int_compare:nNnTF {#1} = { 0 }
- { Index~of~sequence~cannot~be~zero. }
- {
- Index~'#1'~out~of~range~for~'#2'.~
- \int_compare:nNnTF {#1} > { 0 }
- { Max = } { Min = -} #3.
- }
- }
-\msg_new:nnnn { scontents } { env-key-unknown }
- { The~key~'#1'~is~unknown~by~environment~'scontents'~and~is~being~ignored.}
- {
- The~environment~'scontents'~does~not~have~a~key~called~'#1'.\\
- Check~that~you~have~spelled~the~key~name~correctly.
- }
-\msg_new:nnnn { scontents } { env-key-value-unknown }
- { The~key~'#1=#2'~is~unknown~by~environment~'scontents'~and~is~being~ignored. }
- {
- The~environment~'scontents'~does~not~have~a~key~called~'#1'.\\
- Check~that~you~have~spelled~the~key~name~correctly.
- }
-\msg_new:nnnn { scontents } { cmd-key-unknown }
- { The~key~'#1'~is~unknown~by~'\c_backslash_str Scontents'~and~is~being~ignored.}
- {
- The~command~'\c_backslash_str Scontents'~does~not~have~a~key~called~'#1'.\\
- Check~that~you~have~spelled~the~key~name~correctly.
- }
-\msg_new:nnnn { scontents } { cmd-key-value-unknown }
- { The~key~'#1=#2'~is~unknown~by~'\c_backslash_str Scontents'~and~is~being~ignored. }
- {
- The~command~'\c_backslash_str Scontents'~does~not~have~a~key~called~'#1'.\\
- Check~that~you~have~spelled~the~key~name~correctly.
- }
-\msg_new:nnnn { scontents } { type-key-unknown }
- { The~key~'#1'~is~unknown~and~is~being~ignored. }
- {
- This~command~does~not~have~a~key~called~'#1'.\\
- This~command~only~accepts~the~key~'width-tab'.
- }
-\msg_new:nnnn { scontents } { type-key-value-unknown }
- { The~key~'#1'~to~which~you~passed~'#2'~is~unknown~and~is~being~ignored. }
- {
- This~command~does~not~have~a~key~called~'#1'.\\
- This~command~only~accepts~the~key~'width-tab'.
- }
-\file_input_stop:
\endinput
%%
%% End of file `scontents.sty'.
More information about the tex-live-commits
mailing list