kantlipsump update (17Oct)

git-svn-id: svn://tug.org/texlive/trunk@27994 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 199 insertions, 19 deletions

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'.