Changeset 4299

Timestamp:

01/09/08 23:38:32 (5 years ago)

Author:

cho45

Message:

lang/perl/misc/pmsetup/cho45-pmsetup:

customized

Files:

• lang/perl/misc/pmsetup/cho45-pmsetup (modified) (4 diffs)

lang/perl/misc/pmsetup/cho45-pmsetup

@@ -9 +9 @@
 use Template;
 use YAML;
-
-my $path   = File::Spec->catfile($ENV{HOME}, "/.pmsetuprc");
-my $config = eval { YAML::LoadFile($path) } || {};
-
-my $save;
-while (! $config->{author}) {
-    $config->{author} = prompt("Your name: ", '');
-    $save++;
+use Config::Pit;
+
+my $config = pit_get("pmsetup", require => {
+        author        => "cho45",
+        email         => "cho45\@lowreal.net",
+        scratch_repos => "Your svk base scratch DEPOTPATH: //scratch",
+#       mirror_repos  => "Your svk base mirror DEPOTPATH: //mirror",
+        workdir       => "$ENV{HOME}/tmp",
+});
+$config->{author} || $config->{email} || $config->{workdir} || die("no settings");
+
+-e $config->{workdir} || mkdir $config->{workdir}, 0777;
+
+unless ($config->{scratch_repos} =~ m{^//.}) {
+        delete $config->{scratch_repos};
 }
 
-while (! $config->{email}) {
-    $config->{email} = prompt("Your email: ", '');
-    $save++;
+#unless ($config->{mirror_repos} =~ m{^//.}) {
+#       delete $config->{mirror_repos};
+#}
+
+
+my $modname = shift @ARGV or die "Usage: $0 module\n";
+$modname =~ s/-/::/g;
+
+write_plugin_files($modname, $config);
+
+sub write_plugin_files {
+        my($module, $config) = @_;
+
+        my $svk = $config->{scratch_repos} ? prompt("import to SVK? [yN] ", 'n') : "n";
+        my $coderepos = prompt("CodeRepos friendly? [Yn] ", 'y');
+
+        # $module = "Foo::Bar"
+        # $dist   = "Foo-Bar"
+        # $path   = "Foo/Bar.pm"
+        my @pkg  = split /::/, $module;
+        my $dist = join "-", @pkg;
+        my $path = join("/", @pkg) . ".pm";
+
+        mkdir $dist, 0777;
+        chdir $dist;
+        if ($svk =~ /[Yy]/ || $coderepos =~ /[Yy]/ ) {
+                mkdir $_, 0777 for (qw/ trunk tags branches /);
+                chdir 'trunk';
+        }
+
+        my @template = YAML::Load(join '', <DATA>);
+        my $vars = { module => $module, dist => $dist, path => $path,
+                config => $config, localtime => scalar localtime };
+
+        for my $tmpl (@template) {
+                my $file = $tmpl->{file};
+                $file =~ s/(\$\w+)/$1/eeg;
+                if (defined $tmpl->{coderepos}) {
+                        if ($coderepos =~ /[Yy]/) {
+                                next unless $tmpl->{coderepos};
+                        } else {
+                                next if $tmpl->{coderepos};
+                        }
+                }
+                write_file($file, $tmpl->{template}, $vars);
+                chmod oct($tmpl->{chmod}), $tmpl->{file} if $tmpl->{chmod};
+        }
+
+        !system "perl Makefile.PL" or die $?;
+        !system 'make test' or die $?;
+        !system 'make manifest' or die $?;
+        !system 'make distclean' or die $?;
+
+        return unless $svk =~ /[Yy]/;
+        chdir '..';
+        system("svk import -m '$dist import' $config->{scratch_repos}/$dist");
+        chdir '..';
+        rmtree("$dist");
+        system("svk co $config->{scratch_repos}/$dist/trunk $dist");
 }
 
-while (! $config->{scratch_repos}) {
-    $config->{scratch_repos} = prompt("Your svk base scratch DEPOTPATH: [//scratch]", '');
-    unless ($config->{scratch_repos} =~ m{^//.}) {
-        delete $config->{scratch_repos};
-        next;
-    }
-    $save++;
+sub write_file {
+        my($path, $template, $vars) = @_;
+
+        if (-e $path) {
+                my $ans = prompt("$path exists. Override? [yN] ", 'n');
+                return if $ans !~ /[Yy]/;
+        }
+
+        my $dir = File::Basename::dirname($path);
+        unless (-e $dir) {
+                warn "Creating directory $dir\n";
+                File::Path::mkpath($dir, 1, 0777);
+        }
+
+        my $tt = Template->new;
+        $tt->process(\$template, $vars, \my $content);
+
+        warn "Creating $path\n";
+        open my $out, ">", $path or die "$path: $!";
+        print $out $content;
+        close $out;
 }
 
-while (! $config->{mirror_repos}) {
-    $config->{mirror_repos} = prompt("Your svk base mirror DEPOTPATH: [//mirror]", '');
-    unless ($config->{mirror_repos} =~ m{^//.}) {
-        delete $config->{mirror_repos};
-        next;
-    }
-    $save++;
-}
-
-while (! -e $config->{workdir}) {
-    $config->{workdir} = prompt("Your workdir:", "$ENV{HOME}/tmp");
-    mkdir $config->{workdir}, 0777;
-    $save++;
-}
-
-my $modname = shift @ARGV or die "Usage: $0 module\n";
-   $modname =~ s/-/::/g;
-
-write_plugin_files($modname, $config);
-
-END {
-    YAML::DumpFile($path, $config) if $save;
-}
-
-sub write_plugin_files {
-    my($module, $config) = @_;
-
-    my $svk = prompt("import to SVK? [yN] ", 'n');
-
-    # $module = "Foo::Bar"
-    # $dist   = "Foo-Bar"
-    # $path   = "Foo/Bar.pm"
-    my @pkg  = split /::/, $module;
-    my $dist = join "-", @pkg;
-    my $path = join("/", @pkg) . ".pm";
-
-    mkdir $dist, 0777;
-    chdir $dist;
-    if ($svk =~ /[Yy]/) {
-        mkdir $_, 0777 for (qw/ trunk tags branches /);
-        chdir 'trunk';
-    }
-
-    my @template = YAML::Load(join '', <DATA>);
-    my $vars = { module => $module, dist => $dist, path => $path,
-                 config => $config, localtime => scalar localtime };
-
-    for my $tmpl (@template) {
-        my $file = $tmpl->{file};
-           $file =~ s/(\$\w+)/$1/eeg;
-        write_file($file, $tmpl->{template}, $vars);
-        chmod oct($tmpl->{chmod}), $tmpl->{file} if $tmpl->{chmod};
-    }
-
-    !system "perl Makefile.PL" or die $?;
-    !system 'make test' or die $?;
-    !system 'make manifest' or die $?;
-    !system 'make distclean' or die $?;
-
-    return unless $svk =~ /[Yy]/;
-    chdir '..';
-    system("svk import -m '$dist import' $config->{scratch_repos}/$dist");
-    chdir '..';
-    rmtree("$dist");
-    system("svk co $config->{scratch_repos}/$dist/trunk $dist");
-}
-
-sub write_file {
-    my($path, $template, $vars) = @_;
-
-    if (-e $path) {
-        my $ans = prompt("$path exists. Override? [yN] ", 'n');
-        return if $ans !~ /[Yy]/;
-    }
-
-    my $dir = File::Basename::dirname($path);
-    unless (-e $dir) {
-        warn "Creating directory $dir\n";
-        File::Path::mkpath($dir, 1, 0777);
-    }
-
-    my $tt = Template->new;
-    $tt->process(\$template, $vars, \my $content);
-
-    warn "Creating $path\n";
-    open my $out, ">", $path or die "$path: $!";
-    print $out $content;
-    close $out;
-}
-
 =pod
 
 original L<http://svn.bulknews.net/repos/public/misc/pmsetup>
+original L<http://coderepos.org/share/browser/lang/perl/misc/pmsetup/yappo-pmsetup>
 
 =cut
 
 __DATA__
+---
+file: Rakefile
+template: |
+  require "rubygems"
+  require "rake"
+  require "shipit"
+  require "pathname"
+
+  makefilepl = Pathname.new("Makefile.PL")
+
+  NAME = makefilepl.read[/name '([^']+)';/, 1]
+  #VERS = 
+  #DESCRIPTION =
+
+  task :default => :test
+
+  desc "make test"
+  task :test => ["Makefile"] do
+        sh %{make test}
+  end
+
+  desc "make clean"
+  task :clean => ["Makefile"] do
+        sh %{make clean}
+  end
+
+  desc "make install"
+  task :install => ["Makefile"] do
+        sh %{sudo make install}
+  end
+
+  desc "release"
+  task :release => :shipit
+
+  task :shipit => [:test, "MANIFEST"]
+  Rake::ShipitTask.new do |s|
+        ENV["LANG"] = "C"
+        s.Step.new {
+                # check
+                system("svn", "up")
+                raise "Any chages remain?\n#{`svn st`}" unless `svn st`.empty?
+        }.and {}
+        s.Step.new {
+                system "shipit", "-n"
+                print "Check dry-run result and press Any Key to continue (or cancel by Ctrl-C)."
+                $stdin.gets
+        }.and {
+                system "shipit"
+        }
+  end
+
+  file "Makefile" => ["Makefile.PL"] do
+        sh %{perl Makefile.PL}
+  end
+
+  file "Makefile.PL"
+
+  file "MANIFEST" => Dir["**/*"].delete_if {|i| i == "MANIFEST" }  do
+        rm "MANIFEST" if File.exist?("MANIFEST")
+        sh %{perl Makefile.PL}
+        sh %{make}
+        sh %{make manifest}
+  end
 ---
 file: Makefile.PL
@@ -158 +209 @@
   add_stopwords(map { split /[\s\:\-]/ } <DATA>);
   $ENV{LANG} = 'C';
+  set_spell_cmd("aspell list");
   all_pod_files_spelling_ok('lib');
   __DATA__
@@ -242 +294 @@
   ^t/9\d_.*\.t
   ^t/perlcritic
-  ^inc/
   ^tools/
   \.svn/
   ^[^/]+\.yaml$
   ^[^/]+\.pl$
+  ^\.shipit$
 ---
 file: README
@@ -278 +330 @@
   [% config.author %]
 ---
-file: tools/release.pl
-chmod: 0744
-template: |
-  #!/usr/bin/perl
-  use warnings;
-  use strict;
-  use File::Path;
-  use LWP::Simple;
-  use ExtUtils::MakeMaker qw(prompt);
-
-  my $version = shift @ARGV or die "Usage: release.pl version";
-
-  my @pkg  = split /::/, '[% module %]';
-  my $dist = join "-", @pkg;
-  my $path = join("/", @pkg) . ".pm";
-
-  my $workdir  = "[% config.workdir %]";
-  my $checkout = "$dist-$version";
-
-  chdir $workdir;
-
-  if (-e $checkout) {
-      die "$workdir/$checkout exists. Remove it first";
-  }
-
-  system("svk co [% config.mirror_repos %]/$dist/trunk $checkout");
-  sleep(2);
-
-  if (-e $checkout) {
-      chdir $checkout;
-
-      rewrite_version("lib/$path", $version);
-
-      system("perl Makefile.PL --skip");
-      system("make manifest");
-
-      check_version("Changes", $version);
-
-      if (!system("make disttest")) {
-          system("svk ci -m 'packaging $version'");
-          system("svk cp -m 'tag release $version' [% config.mirror_repos %]/$dist/trunk [% config.mirror_repos %]/$dist/tags/release-$version");
-          system("make dist");
-          if (prompt("upload to CPAN?: [yN]", 'n') =~ /[yY]/) {
-              system("cpan-upload -verbose $dist-$version.tar.gz");
-          } else {
-              rename "$dist-$version.tar.gz", "../$dist-$version.tar.gz";
-          }
-      } else {
-          warn "make disttest failed. Don't upload";
-      }
-
-      chdir "..";
-      system("svk co --detach $checkout");
-  }
-
-  rmtree("$workdir/$checkout");
-
-  sub rewrite_version {
-      my($file, $version) = @_;
-
-      open my $fh, $file or die "$file: $!";
-      my $content = join '', <$fh>;
-      close $fh;
-
-      $content =~ s/^our \$VERSION = .*?;$/our \$VERSION = '$version';/m;
-
-      open my $out, ">", "lib/$path";
-      print $out $content;
-      close $out;
-  }
-
-  sub check_version {
-      my($file, $version) = @_;
-
-      open my $fh, $file or die "$file: $!";
-      while (<$fh>) {
-          /^\Q$version\E / and return 1;
-      }
-
-      die "$file doesn't contain log for $version";
-  }
+file: .shipit
+chmod: 0644
+coderepos: 0
+template: |
+  steps = FindVersion, ChangeVersion, CheckChangeLog, DistTest, Commit, Tag, MakeDist, UploadCPAN
+  svk.tagpattern = release-%v
+---
+file: .shipit
+chmod: 0644
+coderepos: 1
+template: |
+  steps = CommitMessageWrap, FindVersion, ChangeVersion, CheckChangeLog, DistTest, Commit, Tag, MakeDist, UploadCPAN
+  svk.tagpattern = release-%v
+  commit_message.format = lang/perl/[% dist %]: %msg