texlive[52082] trunk: clojure-pamphlet (11sep19)

[commits+karl at tug.org]

Revision: 52082
          http://tug.org/svn/texlive?view=revision&revision=52082
Author:   karl
Date:     2019-09-11 23:20:42 +0200 (Wed, 11 Sep 2019)
Log Message:
-----------
clojure-pamphlet (11sep19)

Modified Paths:
--------------
    trunk/Build/source/texk/texlive/linked_scripts/clojure-pamphlet/pamphletangler
    trunk/Master/texmf-dist/doc/support/clojure-pamphlet/clojure-pamphlet_guide.pdf
    trunk/Master/texmf-dist/doc/support/clojure-pamphlet/pamphletangler.1
    trunk/Master/texmf-dist/scripts/clojure-pamphlet/pamphletangler
    trunk/Master/texmf-dist/source/support/clojure-pamphlet/clojure-pamphlet.dtx

Modified: trunk/Build/source/texk/texlive/linked_scripts/clojure-pamphlet/pamphletangler
===================================================================
--- trunk/Build/source/texk/texlive/linked_scripts/clojure-pamphlet/pamphletangler	2019-09-11 21:20:23 UTC (rev 52081)
+++ trunk/Build/source/texk/texlive/linked_scripts/clojure-pamphlet/pamphletangler	2019-09-11 21:20:42 UTC (rev 52082)
@@ -94,7 +94,7 @@
 use Pod::Usage qw(pod2usage);
 use vars qw/$VERSION/;
 
-BEGIN { $VERSION = '1.2' }
+BEGIN { $VERSION = '1.3' }
 
 my $linetext = "";
 my $changetext = "{}";
@@ -111,27 +111,6 @@
         'change|C=s' => \$changetext
     );
 
-
-#pod
-    while ( my ($option, $value, $pretty) = Getopt::Mixed::nextOption() ) {
-        $linetext = $value if $option eq 'L';
-        if( $option eq 'V' ) {
-            print "$VERSION\n";
-            exit;
-        }
-        if ($option eq '?') {
-            pod2usage( -verbose => 99, -sections => [ qw(SYNOPSIS OPTIONS BUGS) ]);
-            exit;
-        }
-        if ($option eq 'man') {
-            pod2usage( -verbose => 2 );
-            exit;
-        }
-        $linetext = $value if $option eq 'L';
-        $changetext = $value if $option eq 'C';
-    }
-#cut
-
     pod2usage( -message => "[ERROR]: Invalid number of arguments." )
         if scalar(@ARGV) != 2;
     $filename = shift;

Modified: trunk/Master/texmf-dist/doc/support/clojure-pamphlet/clojure-pamphlet_guide.pdf
===================================================================
(Binary files differ)

Modified: trunk/Master/texmf-dist/doc/support/clojure-pamphlet/pamphletangler.1
===================================================================
--- trunk/Master/texmf-dist/doc/support/clojure-pamphlet/pamphletangler.1	2019-09-11 21:20:23 UTC (rev 52081)
+++ trunk/Master/texmf-dist/doc/support/clojure-pamphlet/pamphletangler.1	2019-09-11 21:20:42 UTC (rev 52082)
@@ -133,7 +133,7 @@
 .\" ========================================================================
 .\"
 .IX Title "PAMPHLETANGLER 1"
-.TH PAMPHLETANGLER 1 "2019-08-23" "clojure-pamphlet" "Ernesto Lanchares"
+.TH PAMPHLETANGLER 1 "2019-09-09" "clojure-pamphlet" "Ernesto Lanchares"
 .\" For nroff, turn off justification.  Always turn off hyphenation; it makes
 .\" way too many mistakes in technical documents.
 .if n .ad l

Modified: trunk/Master/texmf-dist/scripts/clojure-pamphlet/pamphletangler
===================================================================
--- trunk/Master/texmf-dist/scripts/clojure-pamphlet/pamphletangler	2019-09-11 21:20:23 UTC (rev 52081)
+++ trunk/Master/texmf-dist/scripts/clojure-pamphlet/pamphletangler	2019-09-11 21:20:42 UTC (rev 52082)
@@ -94,7 +94,7 @@
 use Pod::Usage qw(pod2usage);
 use vars qw/$VERSION/;
 
-BEGIN { $VERSION = '1.2' }
+BEGIN { $VERSION = '1.3' }
 
 my $linetext = "";
 my $changetext = "{}";
@@ -111,27 +111,6 @@
         'change|C=s' => \$changetext
     );
 
-
-#pod
-    while ( my ($option, $value, $pretty) = Getopt::Mixed::nextOption() ) {
-        $linetext = $value if $option eq 'L';
-        if( $option eq 'V' ) {
-            print "$VERSION\n";
-            exit;
-        }
-        if ($option eq '?') {
-            pod2usage( -verbose => 99, -sections => [ qw(SYNOPSIS OPTIONS BUGS) ]);
-            exit;
-        }
-        if ($option eq 'man') {
-            pod2usage( -verbose => 2 );
-            exit;
-        }
-        $linetext = $value if $option eq 'L';
-        $changetext = $value if $option eq 'C';
-    }
-#cut
-
     pod2usage( -message => "[ERROR]: Invalid number of arguments." )
         if scalar(@ARGV) != 2;
     $filename = shift;

Modified: trunk/Master/texmf-dist/source/support/clojure-pamphlet/clojure-pamphlet.dtx
===================================================================
--- trunk/Master/texmf-dist/source/support/clojure-pamphlet/clojure-pamphlet.dtx	2019-09-11 21:20:23 UTC (rev 52081)
+++ trunk/Master/texmf-dist/source/support/clojure-pamphlet/clojure-pamphlet.dtx	2019-09-11 21:20:42 UTC (rev 52082)
@@ -54,6 +54,9 @@
 %   Right brace   \}     Tilde         \~}
 %
 % \changes{v1.0}{2019/07/14}{Initial version}
+% \changes{v1.1}{2019/07/20}{Added support for indented code}
+% \changes{v1.2}{2019/07/25}{Moved tangler over to Perl}
+% \changes{v1.3}{2019/09/08}{Fixed small bug in tangler}
 %
 % \GetFileInfo{clojure-pamphlet.sty}
 % 
@@ -123,7 +126,7 @@
 %
 % Here's an example of a code usage and it's output
 % \begin{verbatim}
-% \begin{chunk}{main}
+% \begin{chunk}{main-routine}
 % int main(int argc, char* argv[]) {
 %   printf("Hello World.\n");
 % }
@@ -133,7 +136,7 @@
 % \iffalse
 %<*test>
 % \fi
-\begin{chunk}{main}
+\begin{chunk}{main-routine}
  int main(int argc, char* argv[]) {
    printf("Hello World.\n");
  }
@@ -191,7 +194,7 @@
 % }
 % \end{verbatim}
 %
-% \StopEventually{\PrintIndex}
+% \StopEventually{}
 %
 % \section{Implementation}
 %