From 6b85cde95b0324c6206d67ff3674e79303beef8c Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Wed, 17 Oct 2012 11:26:39 +0000 Subject: kantlipsump update (17Oct) git-svn-id: svn://tug.org/texlive/trunk@27994 c570f23f-e606-0410-a88d-b1316a301751 --- .../texmf-dist/tex/latex/kantlipsum/kantlipsum.sty | 218 +++++++++++++++++++-- 1 file changed, 199 insertions(+), 19 deletions(-) (limited to 'Master/texmf-dist/tex/latex/kantlipsum') diff --git a/Master/texmf-dist/tex/latex/kantlipsum/kantlipsum.sty b/Master/texmf-dist/tex/latex/kantlipsum/kantlipsum.sty index 4f70dda534e..617739382a4 100644 --- a/Master/texmf-dist/tex/latex/kantlipsum/kantlipsum.sty +++ b/Master/texmf-dist/tex/latex/kantlipsum/kantlipsum.sty @@ -9,7 +9,7 @@ %% Do not distribute this file without also distributing the %% source files specified above. %% -%% File: kantlipsum.dtx (C) Copyright 2011 Enrico Gregorio +%% File: kantlipsum.dtx (C) Copyright 2011-2012 Enrico Gregorio %% %% It may be distributed and/or modified under the conditions of the %% LaTeX Project Public License (LPPL), either version 1.3c of this @@ -24,11 +24,11 @@ %% The released version of this bundle is available from CTAN. %% \RequirePackage{expl3} -\GetIdInfo$Id: kantlipsum.dtx 0.5 2011-12-23 12:00:00Z Enrico $ +\GetIdInfo$Id: kantlipsum.dtx 0.6 2012-10-14 12:00:00Z Enrico $ {Dummy text in Kantian style} \ProvidesExplPackage {\ExplFileName}{\ExplFileDate}{\ExplFileVersion}{\ExplFileDescription} -\@ifpackagelater { expl3 } { 2011/10/09 } +\@ifpackagelater { expl3 } { 2012/07/15 } { } { \PackageError { kantlipsum } { Support~package~l3kernel~too~old. } @@ -41,16 +41,24 @@ } \DeclareOption { par } { - \cs_set:Nn \kgl_star: { \c_space_tl } - \cs_set:Nn \kgl_nostar: { \par } + \cs_set_protected:Nn \kgl_star: { \c_space_tl } + \cs_set_protected:Nn \kgl_nostar: { \par } } + \DeclareOption{ nopar } { - \cs_set:Nn \kgl_star: { \par } - \cs_set:Nn \kgl_nostar: { \c_space_tl } + \cs_set_protected:Nn \kgl_star: { \par } + \cs_set_protected:Nn \kgl_nostar: { \c_space_tl } } + \DeclareOption{ numbers } - { \cs_set:Nn \kgl_number:n { #1\nobreakspace\textbullet\nobreakspace } } + { \cs_set_protected:Nn \kgl_number:n { #1\nobreakspace\textbullet\nobreakspace } } + +\bool_new:N \g_kgl_makeindex_bool +\bool_gset_false:N \g_kgl_makeindex_bool +\DeclareOption{ index } + { \bool_gset_true:N \g_kgl_makeindex_bool } + \cs_new_eq:NN \kgl_number:n \use_none:n \ExecuteOptions{par} \ProcessOptions \scan_stop: @@ -65,7 +73,7 @@ \int_new:N \l_kgl_start_int \int_new:N \l_kgl_end_int \seq_new:N \g_kgl_pars_seq -\seq_gput_right:Nx \g_kgl_pars_seq {This~is~the~Kant~lipsum~generator.} +\seq_new:N \g_kgl_words_seq \NewDocumentCommand{\kant}{s>{\SplitArgument{1}{-}}O{1-7}} { \group_begin: @@ -83,31 +91,39 @@ \cs_set_eq:NN \kgl_par: \prg_do_nothing: \cs_if_exist:NTF #1 { - \msg_error:nnx {kantlipsum}{already-defined} - {\token_to_str:N #1} + \msg_error:nnn {kantlipsum} {already-defined} {#1} + } + { + \tl_set:Nx \l_tmpa_tl { \seq_item:Nn \g_kgl_pars_seq {#2} } + \cs_new:Npx #1 { \l_tmpa_tl } } - { \cs_new:Npx #1 { \kgl_use:n {#2} } } \group_end: } -\cs_new:Nn \kgl_process:nn +\cs_new_protected:Nn \kgl_process:nn { \int_set:Nn \l_kgl_start_int {#1} \IfNoValueTF{#2} { \int_set:Nn \l_kgl_end_int {#1} } { \int_set:Nn \l_kgl_end_int {#2} } } -\cs_new:Nn \kgl_print: +\cs_new_protected:Nn \kgl_print: { - \prg_stepwise_function:nnnN + \int_step_function:nnnN {\l_kgl_start_int} {1} {\l_kgl_end_int} \kgl_use:n } \cs_new:Nn \kgl_use:n { \kgl_number:n {#1} + \bool_if:NT \g_kgl_makeindex_bool + { + \use:x { \exp_not:N \index{ \seq_item:Nn \g_kgl_words_seq {#1} } } + } \seq_item:Nn \g_kgl_pars_seq {#1} } -\cs_new:Nn \kgl_newpara:n +\cs_new_protected:Nn \kgl_newpara:n { \seq_gput_right:Nn \g_kgl_pars_seq {#1\kgl_par:} } +\cs_new_protected:Nn \kgl_newword:n + { \seq_gput_right:Nn \g_kgl_words_seq {#1} } \group_begin: \char_set_catcode_space:n {`\ } \kgl_newpara:n {As any dedicated reader can clearly see, the Ideal of @@ -2464,7 +2480,7 @@ Categories connected together? As will easily be shown in the next section, to avoid all misapprehension, it is necessary to explain that metaphysics, on the contrary, occupies part of the sphere of the thing in itself concerning the existence of our synthetic judgements in -general. } +general.} \kgl_newpara:n {As is evident upon close examination, I assert that, so far as regards metaphysics, our knowledge proves the validity of, @@ -3017,9 +3033,173 @@ manuals, it remains a mystery why space exists in the objects in space and time; still, the noumena, in the case of necessity, constitute the whole content of philosophy.} +\kgl_newword:n {Ideal} +\kgl_newword:n {noumena} +\kgl_newword:n {Aristotle} +\kgl_newword:n {transcendental} +\kgl_newword:n {metaphysics} +\kgl_newword:n {reason} +\kgl_newword:n {science} +\kgl_newword:n {necessity} +\kgl_newword:n {Categories} +\kgl_newword:n {philosophy} +\kgl_newword:n {knowledge} +\kgl_newword:n {regress} +\kgl_newword:n {paralogism} +\kgl_newword:n {empirical} +\kgl_newword:n {space} +\kgl_newword:n {manifold} +\kgl_newword:n {understanding} +\kgl_newword:n {aesthetic} +\kgl_newword:n {noumena} +\kgl_newword:n {sphere} +\kgl_newword:n {time} +\kgl_newword:n {practical reason} +\kgl_newword:n {perception} +\kgl_newword:n {things in themselves} +\kgl_newword:n {doctrine} +\kgl_newword:n {regress} +\kgl_newword:n {mystery} +\kgl_newword:n {existence} +\kgl_newword:n {contradiction} +\kgl_newword:n {a priori} +\kgl_newword:n {natural causes} +\kgl_newword:n {analysis} +\kgl_newword:n {apperception} +\kgl_newword:n {Antinomies} +\kgl_newword:n {Transcendental Deduction} +\kgl_newword:n {phenomena} +\kgl_newword:n {formal logic} +\kgl_newword:n {soul} +\kgl_newword:n {misapprehension} +\kgl_newword:n {elsewhere} +\kgl_newword:n {theology} +\kgl_newword:n {employment} +\kgl_newword:n {logic} +\kgl_newword:n {practical reason} +\kgl_newword:n {theoretical sciences} +\kgl_newword:n {a posteriori} +\kgl_newword:n {mystery} +\kgl_newword:n {philosophy} +\kgl_newword:n {things in themselves} +\kgl_newword:n {experience} +\kgl_newword:n {contradictory} +\kgl_newword:n {Categories} +\kgl_newword:n {perceptions} +\kgl_newword:n {Galileo} +\kgl_newword:n {apperception} +\kgl_newword:n {empirical objects} +\kgl_newword:n {judgements} +\kgl_newword:n {phenomena} +\kgl_newword:n {power} +\kgl_newword:n {hypothetical principles} +\kgl_newword:n {transcendental logic} +\kgl_newword:n {doctrine} +\kgl_newword:n {understanding} +\kgl_newword:n {totality} +\kgl_newword:n {manifold} +\kgl_newword:n {inductive judgements} +\kgl_newword:n {Transcendental Deduction} +\kgl_newword:n {analytic unity} +\kgl_newword:n {Hume} +\kgl_newword:n {canon} +\kgl_newword:n {knowledge} +\kgl_newword:n {universal} +\kgl_newword:n {section} +\kgl_newword:n {body} +\kgl_newword:n {ignorance} +\kgl_newword:n {sense perceptions} +\kgl_newword:n {natural reason} +\kgl_newword:n {exception} +\kgl_newword:n {ampliative judgements} +\kgl_newword:n {experience} +\kgl_newword:n {Categories} +\kgl_newword:n {analysis} +\kgl_newword:n {philosophy} +\kgl_newword:n {apperception} +\kgl_newword:n {paralogism} +\kgl_newword:n {ignorance} +\kgl_newword:n {true} +\kgl_newword:n {space} +\kgl_newword:n {Ideal} +\kgl_newword:n {accordance} +\kgl_newword:n {regress} +\kgl_newword:n {experience} +\kgl_newword:n {a priori} +\kgl_newword:n {disjunctive} +\kgl_newword:n {soul} +\kgl_newword:n {understanding} +\kgl_newword:n {analytic unity} +\kgl_newword:n {phenomena} +\kgl_newword:n {practical reason} +\kgl_newword:n {cause} +\kgl_newword:n {manuals} +\kgl_newword:n {dedicated reader} +\kgl_newword:n {a posteriori} +\kgl_newword:n {employment} +\kgl_newword:n {natural theology} +\kgl_newword:n {manifold} +\kgl_newword:n {transcendental aesthetic} +\kgl_newword:n {close} +\kgl_newword:n {full} +\kgl_newword:n {Aristotle} +\kgl_newword:n {clue} +\kgl_newword:n {me} +\kgl_newword:n {account} +\kgl_newword:n {things} +\kgl_newword:n {sense} +\kgl_newword:n {intelligible} +\kgl_newword:n {understanding} +\kgl_newword:n {Categories} +\kgl_newword:n {never} +\kgl_newword:n {apperception} +\kgl_newword:n {Ideal} +\kgl_newword:n {need} +\kgl_newword:n {space} +\kgl_newword:n {virtue} +\kgl_newword:n {Hume} +\kgl_newword:n {still} +\kgl_newword:n {whatsoever} +\kgl_newword:n {even} +\kgl_newword:n {sphere} +\kgl_newword:n {position} +\kgl_newword:n {ignorance} +\kgl_newword:n {word} +\kgl_newword:n {phenomena} +\kgl_newword:n {theology} +\kgl_newword:n {mystery} +\kgl_newword:n {Categories} +\kgl_newword:n {perception} +\kgl_newword:n {power} +\kgl_newword:n {experience} +\kgl_newword:n {never-ending} +\kgl_newword:n {analytic} +\kgl_newword:n {itself} +\kgl_newword:n {a priori} +\kgl_newword:n {rule} +\kgl_newword:n {Transcendental Deduction} +\kgl_newword:n {empirical conditions} +\kgl_newword:n {knowledge} +\kgl_newword:n {disjunctive} +\kgl_newword:n {transcendental} +\kgl_newword:n {science} +\kgl_newword:n {falsified} +\kgl_newword:n {reader} +\kgl_newword:n {blind} +\kgl_newword:n {employment} +\kgl_newword:n {discipline} +\kgl_newword:n {function} +\kgl_newword:n {careful} +\kgl_newword:n {Aristotle} +\kgl_newword:n {Categories} +\kgl_newword:n {part} +\kgl_newword:n {noumena} +\kgl_newword:n {doubt} +\kgl_newword:n {duck} +\kgl_newword:n {Kant} \group_end: -\msg_info:nnx{kantlipsum}{how-many} - { \int_eval:n {\seq_length:N \g_kgl_pars_seq - 1} } +\msg_info:nnx {kantlipsum} {how-many} + { \int_eval:n {\seq_count:N \g_kgl_pars_seq} } %% %% %% End of file `kantlipsum.sty'. -- cgit v1.2.3