[svn:parrot] r48645 - in branches/tt677_toolsdirs: . tools/release tools/util
jkeenan at svn.parrot.org
jkeenan at svn.parrot.org
Tue Aug 24 22:58:06 UTC 2010
Author: jkeenan
Date: Tue Aug 24 22:58:05 2010
New Revision: 48645
URL: https://trac.parrot.org/parrot/changeset/48645
Log:
Move remaining files from tools/util/ to tools/release/ and update MANIFEST.
Added:
branches/tt677_toolsdirs/tools/release/crow.pir (props changed)
- copied unchanged from r48639, branches/tt677_toolsdirs/tools/util/crow.pir
branches/tt677_toolsdirs/tools/release/dump_pbc.pl (props changed)
- copied unchanged from r48639, branches/tt677_toolsdirs/tools/util/dump_pbc.pl
branches/tt677_toolsdirs/tools/release/gen_release_info.pl (props changed)
- copied unchanged from r48639, branches/tt677_toolsdirs/tools/util/gen_release_info.pl
branches/tt677_toolsdirs/tools/release/inc_ver.pir (props changed)
- copied unchanged from r48639, branches/tt677_toolsdirs/tools/util/inc_ver.pir
branches/tt677_toolsdirs/tools/release/release.json (props changed)
- copied unchanged from r48639, branches/tt677_toolsdirs/tools/util/release.json
branches/tt677_toolsdirs/tools/release/templates.json (props changed)
- copied unchanged from r48639, branches/tt677_toolsdirs/tools/util/templates.json
Deleted:
branches/tt677_toolsdirs/tools/util/crow.pir
branches/tt677_toolsdirs/tools/util/dump_pbc.pl
branches/tt677_toolsdirs/tools/util/gen_release_info.pl
branches/tt677_toolsdirs/tools/util/inc_ver.pir
branches/tt677_toolsdirs/tools/util/release.json
branches/tt677_toolsdirs/tools/util/templates.json
Modified:
branches/tt677_toolsdirs/MANIFEST
Modified: branches/tt677_toolsdirs/MANIFEST
==============================================================================
--- branches/tt677_toolsdirs/MANIFEST Tue Aug 24 22:56:35 2010 (r48644)
+++ branches/tt677_toolsdirs/MANIFEST Tue Aug 24 22:58:05 2010 (r48645)
@@ -1,7 +1,7 @@
# ex: set ro:
# $Id$
#
-# generated by tools/dev/mk_manifest_and_skip.pl Tue Aug 24 22:55:55 2010 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Tue Aug 24 22:57:38 2010 UT
#
# See below for documentation on the format of this file.
#
@@ -2169,12 +2169,12 @@
tools/install/smoke.pl []
tools/install/smoke_languages.pl []
tools/release/README []doc
-tools/util/crow.pir []
-tools/util/dump_pbc.pl []
-tools/util/gen_release_info.pl []
-tools/util/inc_ver.pir []
-tools/util/release.json []
-tools/util/templates.json []
+tools/release/crow.pir []
+tools/release/dump_pbc.pl []
+tools/release/gen_release_info.pl []
+tools/release/inc_ver.pir []
+tools/release/release.json []
+tools/release/templates.json []
# Local variables:
# mode: text
# buffer-read-only: t
Copied: branches/tt677_toolsdirs/tools/release/crow.pir (from r48639, branches/tt677_toolsdirs/tools/util/crow.pir)
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ branches/tt677_toolsdirs/tools/release/crow.pir Tue Aug 24 22:58:05 2010 (r48645, copy of r48639, branches/tt677_toolsdirs/tools/util/crow.pir)
@@ -0,0 +1,107 @@
+#! ./parrot
+# Copyright (C) 2007-2008, Parrot Foundation.
+# $Id$
+
+=head1 TITLE
+
+crow.pir -- Make noise about the new Parrot release
+
+=head1 DESCRIPTION
+
+This utility is used to help Release Managers format announcement messages.
+It uses a *very* simple and fast templating system, described in the related
+module, L<runtime/parrot/library/Crow.pir>.
+
+=head1 SYNOPSIS
+
+ # see
+ % parrot tools/util/crow.pir --help
+
+=cut
+
+
+.sub 'main' :main
+ .param pmc args
+
+ load_bytecode 'Crow.pbc'
+
+ .local pmc exports, curr_namespace, test_namespace
+ curr_namespace = get_namespace
+ test_namespace = get_namespace ['Crow']
+ exports = split ' ', 'get_news get_args process'
+ test_namespace.'export_to'(curr_namespace, exports)
+
+ .local pmc opts
+ opts = get_args(args)
+
+ unless null opts goto got_opts
+ opts = new 'Hash'
+ got_opts:
+
+ .local pmc templates
+ templates = 'get_json'('tools/util/templates.json')
+
+ .local string template, type
+ type = opts['type']
+ if type != '' goto got_type
+ type = 'text'
+
+got_type:
+ template = 'get_template'(templates, type)
+
+ .local pmc data
+ data = 'get_json'('tools/util/release.json')
+
+ .local string version
+ version = data['release.version']
+
+ $S0 = concat type, '.news'
+ $I0 = templates[$S0]
+ if $I0 goto get_news
+ data['NEWS'] = ''
+ goto process
+ get_news:
+ $S0 = 'get_news'(version)
+ data['NEWS'] = $S0
+
+
+ process:
+ .local string result
+ result = process(template, data)
+ say result
+.end
+
+
+.sub 'get_json'
+ .param string filename
+
+ load_bytecode 'Config/JSON.pbc'
+
+ .local pmc exports, curr_namespace, test_namespace
+ curr_namespace = get_namespace
+ test_namespace = get_namespace [ 'Config';'JSON' ]
+ exports = split ' ', 'ReadConfig'
+ test_namespace.'export_to'(curr_namespace, exports)
+
+ .local pmc result
+ result = ReadConfig(filename)
+
+ .return (result)
+.end
+
+
+.sub 'get_template'
+ .param pmc templates
+ .param string type
+
+ $S0 = concat type, '.text'
+ $S1 = templates[$S0]
+ .return ($S1)
+.end
+
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:
Copied: branches/tt677_toolsdirs/tools/release/dump_pbc.pl (from r48639, branches/tt677_toolsdirs/tools/util/dump_pbc.pl)
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ branches/tt677_toolsdirs/tools/release/dump_pbc.pl Tue Aug 24 22:58:05 2010 (r48645, copy of r48639, branches/tt677_toolsdirs/tools/util/dump_pbc.pl)
@@ -0,0 +1,125 @@
+#! perl
+
+# Copyright (C) 2008, Parrot Foundation.
+# $Id$
+
+=head1 NAME
+
+tools/util/dump_pbc.pl - Weave together PBC disassembly with PIR source
+
+=head1 SYNOPSIS
+
+ perl tools/util/dump_pbc.pl foo.pbc
+
+=head1 DESCRIPTION
+
+dump_pbc.pl uses Parrot's F<pbc_disassemble> program to disassemble the opcodes
+in a PBC (Parrot ByteCode) file, then weaves the disassembly together with
+the original PIR source file(s). This makes it easier to see how the PIR
+syntactic sugar is desugared into raw Parrot opcodes.
+
+=head1 BUGS
+
+This program has only been tested for a few simple cases. Also, the name
+might suggest a different use than its actual purpose.
+
+While it is not a bug in F<dump_pbc.pl> per se, there is a line numbering
+bug for some PBC opcode sequences that will result in the disassembled
+opcodes appearing just before the source lines they represent, rather
+than just after. There does not appear to be consensus yet about where
+this bug actually resides.
+
+=cut
+
+use strict;
+use warnings;
+use Cwd;
+use FindBin;
+
+my ($PARROT_ROOT, $RUNTIME_DIR);
+BEGIN {
+ $PARROT_ROOT = Cwd::abs_path("$FindBin::Bin/../..");
+ $RUNTIME_DIR = "$PARROT_ROOT/runtime/parrot";
+}
+
+use lib "$PARROT_ROOT/lib";
+use Parrot::Config '%PConfig';
+
+my $DISASSEMBLER = "$PConfig{build_dir}$PConfig{slash}pbc_disassemble$PConfig{exe}";
+
+go(@ARGV);
+
+sub go {
+ my $pbc = shift;
+
+ # The following mess brought to you by Win32, where pipe open doesn't work,
+ # and thus its greater security and cleaner error handling are unavailable.
+
+ -f $pbc && -r _
+ or die "PBC file '$pbc' does not exist or is not readable.\n";
+
+ -f $DISASSEMBLER && -x _
+ or die "Can't find disassembler '$DISASSEMBLER';"
+ . "did you remember to make parrot first?\n";
+
+ my @dis = `$DISASSEMBLER $pbc`;
+ die "No disassembly; errors: $?, $!" unless @dis;
+
+ my $cur_file = '';
+ my $cur_line = -1;
+ my %cache;
+
+ foreach (@dis) {
+ if (/^(?:# )?Current Source Filename (.*)/) {
+ my $found = $1;
+ $found =~ s/^'//;
+ $found =~ s/'$//;
+ if ($cur_file ne $found) {
+ $cur_file = $found;
+ $cache{$cur_file} ||= slurp_file($cur_file);
+ $cur_line = -1;
+
+ print "\n#### $cur_file\n";
+ }
+ }
+ elsif (my ($info, $seq, $pc, $line, $code) = /^((\d+)-(\d+) (\d+): )(.*)/) {
+ my $int_line = int $line;
+ my $len_line = length $line;
+ if ($cur_line != $int_line) {
+ $cur_line = 0 if $cur_line == -1;
+ print "\n";
+ foreach my $i ($cur_line + 1 .. $int_line) {
+ my $source_code = $cache{$cur_file}[$i-1];
+ # next unless $source_code =~ /\S/;
+ printf "# %*d: %s", $len_line, $i, $source_code;
+ print "\n" if $source_code =~ /^\.end/;
+ }
+ $cur_line = $int_line;
+ }
+
+ print ' ' x ($len_line + 4), "$code\n";
+ }
+ }
+}
+
+sub slurp_file {
+ my $file = shift;
+ my $source;
+
+ open $source, '<', $file
+ or open $source, '<', "$PARROT_ROOT/$file"
+ or open $source, '<', "$RUNTIME_DIR/$file"
+ or die "Could not open source file '$file': $!";
+
+ my @lines = <$source>;
+
+ return \@lines;
+}
+
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Copied: branches/tt677_toolsdirs/tools/release/gen_release_info.pl (from r48639, branches/tt677_toolsdirs/tools/util/gen_release_info.pl)
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ branches/tt677_toolsdirs/tools/release/gen_release_info.pl Tue Aug 24 22:58:05 2010 (r48645, copy of r48639, branches/tt677_toolsdirs/tools/util/gen_release_info.pl)
@@ -0,0 +1,63 @@
+#! perl
+# Copyright (C) 2008, Parrot Foundation.
+# $Id$
+
+use strict;
+use warnings;
+
+=head1 NAME
+
+tools/util/gen_release_info.pl - generate release info for graphs and charts
+
+=head1 DESCRIPTION
+
+This utility generates release information from subversion in csv format,
+suitable for graphs, charts, and reports.
+
+=cut
+
+
+my $repo_url = 'https://svn.parrot.org/parrot/tags';
+
+## create a release information data structure
+my $r = {
+ map { $_->{number} => $_ }
+ map { m{^(RELEASE_)(.*)/}
+ ? {
+ tag => "$1$2",
+ number => sub{$a = shift; $a =~ y/_/./; $a }->($2),
+ }
+ : ()
+ }
+ qx { svn ls $repo_url }
+};
+
+## gather interesting release-related information from the tag
+map {
+ ## ask subversion for info about the tag
+ my $readme = $repo_url . '/' . $r->{$_}{tag};
+ warn "retrieving info on $readme\n";
+ my $info = qx{ LANG=C svn info $readme };
+
+ ## pull the interesting items
+ $info =~ m{Author: (\S+)} and $r->{$_}{author} = $1;
+ $info =~ m{Rev: (\S+)} and $r->{$_}{revision} = $1;
+ $info =~ m{Date: (\S+)} and $r->{$_}{date} = $1;
+} keys %{ $r };
+
+
+## output info in csv format
+print
+ map { "$_\n" }
+ map { my $n = $_; join ',' =>
+ map { $r->{$n}{$_} || '' }
+ qw{ tag number author revision date }
+ }
+ sort keys %$r;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Copied: branches/tt677_toolsdirs/tools/release/inc_ver.pir (from r48639, branches/tt677_toolsdirs/tools/util/inc_ver.pir)
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ branches/tt677_toolsdirs/tools/release/inc_ver.pir Tue Aug 24 22:58:05 2010 (r48645, copy of r48639, branches/tt677_toolsdirs/tools/util/inc_ver.pir)
@@ -0,0 +1,48 @@
+#!/usr/bin/env parrot
+# Copyright (C) 2010, Parrot Foundation.
+# $Id$
+
+.sub 'main' :main
+ .local string version_file_name
+ version_file_name = 'VERSION'
+
+ # read the version
+ $P0 = new 'FileHandle'
+ $P0.'open'( version_file_name, 'r' )
+ $S0 = $P0.'readline'()
+ $P0.'close'()
+
+ print 'version: '
+ print $S0
+
+ # split the version
+ $P1 = split '.', $S0
+
+ # increment version
+ $I0 = $P1[1]
+ inc $I0
+ if $I0 != 12 goto NOT_NILL
+ $I0 = $P1[0]
+ inc $I0
+ $P1[0] = $I0
+ $I0 = 0
+NOT_NILL:
+ $P1[1] = $I0
+
+ # join the incremented version
+ $S0 = join '.', $P1
+
+ print 'new version: '
+ print $S0
+
+ # write the new version to the version_file
+ $P0.'open'( version_file_name, 'w' )
+ $P0.'print'( $S0 )
+ $P0.'close'()
+.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:
Copied: branches/tt677_toolsdirs/tools/release/release.json (from r48639, branches/tt677_toolsdirs/tools/util/release.json)
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ branches/tt677_toolsdirs/tools/release/release.json Tue Aug 24 22:58:05 2010 (r48645, copy of r48639, branches/tt677_toolsdirs/tools/util/release.json)
@@ -0,0 +1,21 @@
+{
+ "release.version" : "2.7.0",
+ "release.name" : "Australian King",
+ "release.day" : "Tuesday",
+ "release.date" : "17 August 2010",
+ "release.nextdate" : "21 September 2010",
+
+ "web.root" : "http://parrot.org/",
+ "web.source" : "download",
+ "web.openpatches" : "openpatches.html",
+ "web.repository" : "https://svn.parrot.org/parrot/trunk/",
+
+ "bugday.day" : "Saturday",
+ "bugday.date" : "18 September 2010",
+
+ "wiki.root" : "https://trac.parrot.org/parrot/wiki/",
+ "wiki.bugday" : "bug_day_2010_09_18",
+
+ "ftp.path" : "ftp://ftp.parrot.org/pub/parrot/releases/devel/2.7.0/",
+ "subversion.root" : "http://subversion.apache.org/"
+}
Copied: branches/tt677_toolsdirs/tools/release/templates.json (from r48639, branches/tt677_toolsdirs/tools/util/templates.json)
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ branches/tt677_toolsdirs/tools/release/templates.json Tue Aug 24 22:58:05 2010 (r48645, copy of r48639, branches/tt677_toolsdirs/tools/util/templates.json)
@@ -0,0 +1,83 @@
+{
+ "text.news" : true,
+ "text.text" : "
+
+On behalf of the Parrot team, I'm proud to announce Parrot @release.version@
+\"@release.name at .\" Parrot (@web.root@) is a virtual machine aimed
+at running all dynamic languages.
+
+Parrot @release.version@ is available on Parrot's FTP site, or follow the
+download instructions at @web.root@@web.source at . For those who would like to
+develop on Parrot, or help develop Parrot itself, we recommend using Subversion
+on the source code repository to get the latest and best Parrot code.
+
+Parrot @release.version@ News:
+ at NEWS@
+
+Many thanks to all our contributors for making this possible, and our sponsors
+for supporting this project. Our next scheduled release is @release.nextdate at .
+
+Enjoy!
+
+",
+
+ "html.news" : true,
+ "html.text" : "
+<p>On behalf of the Parrot team, I'm proud to announce Parrot @release.version@
+"@release.name at ." <a href=\"@web.root@\">Parrot</a>
+is a virtual machine aimed at running all dynamic languages.</p>
+
+<p>Parrot @release.version@ is available on <a href=\"@ftp.path@\">Parrot's FTP
+site</a>, or <a href=\"@web.root@@web.source@\">follow the download
+instructions</a>. For those who would like to develop on Parrot, or help
+develop Parrot itself, we recommend using <a
+href=\"@subversion.root@\">Subversion</a> on <a href=\"@web.repository@\">our
+source code repository</a> to get the latest and best Parrot code.</p>
+
+<p>Parrot @release.version@ News:<br/>
+<pre>@NEWS@</pre></p>
+
+<p>Thanks to all our contributors for making this possible, and our sponsors
+for supporting this project. Our next release is @release.nextdate at .</p>
+
+<p>Enjoy!</p>
+",
+
+ "bugday.news" : false,
+ "bugday.text" : "
+Bug Day
+
+On @bugday.day@, @bugday.date@, please join us on IRC in #parrot
+(irc.parrot.org) to work on closing out as many Trac tickets
+(https://trac.parrot.org) tickets as possible in the parrot queue. This will
+help us get ready for the next release of parrot: @release.version@, scheduled
+for @release.day@, @release.date at . You'll find C, parrot assembly, perl,
+documentation, and plenty of tasks to go around. Core developers will be
+available most of the day (starting at around 10am GMT) to answer questions.
+
+No experience with parrot necessary.
+
+--From: @wiki.root@@wiki.bugday at --
+
+Check the list at:
+
+https://trac.parrot.org/parrot/report/3
+
+Which contains all the tickets I'd like to see resolved in @version at . To
+see all the open tickets, use:
+
+https://trac.parrot.org/parrot/report
+
+If you've got something you're working on that you think you'll be
+getting done before the release, please
+- add a ticket for it (if necessary);
+- set its milestone to this release.
+
+Thanks in advance for your patches and commits. ^_^
+
+... Speaking of patches, we should also get through as many of these
+(accept or reject) as possible.
+
+ at web.root@@web.openpatches@
+"
+}
Deleted: branches/tt677_toolsdirs/tools/util/crow.pir
==============================================================================
--- branches/tt677_toolsdirs/tools/util/crow.pir Tue Aug 24 22:58:05 2010 (r48644)
+++ /dev/null 00:00:00 1970 (deleted)
@@ -1,107 +0,0 @@
-#! ./parrot
-# Copyright (C) 2007-2008, Parrot Foundation.
-# $Id$
-
-=head1 TITLE
-
-crow.pir -- Make noise about the new Parrot release
-
-=head1 DESCRIPTION
-
-This utility is used to help Release Managers format announcement messages.
-It uses a *very* simple and fast templating system, described in the related
-module, L<runtime/parrot/library/Crow.pir>.
-
-=head1 SYNOPSIS
-
- # see
- % parrot tools/util/crow.pir --help
-
-=cut
-
-
-.sub 'main' :main
- .param pmc args
-
- load_bytecode 'Crow.pbc'
-
- .local pmc exports, curr_namespace, test_namespace
- curr_namespace = get_namespace
- test_namespace = get_namespace ['Crow']
- exports = split ' ', 'get_news get_args process'
- test_namespace.'export_to'(curr_namespace, exports)
-
- .local pmc opts
- opts = get_args(args)
-
- unless null opts goto got_opts
- opts = new 'Hash'
- got_opts:
-
- .local pmc templates
- templates = 'get_json'('tools/util/templates.json')
-
- .local string template, type
- type = opts['type']
- if type != '' goto got_type
- type = 'text'
-
-got_type:
- template = 'get_template'(templates, type)
-
- .local pmc data
- data = 'get_json'('tools/util/release.json')
-
- .local string version
- version = data['release.version']
-
- $S0 = concat type, '.news'
- $I0 = templates[$S0]
- if $I0 goto get_news
- data['NEWS'] = ''
- goto process
- get_news:
- $S0 = 'get_news'(version)
- data['NEWS'] = $S0
-
-
- process:
- .local string result
- result = process(template, data)
- say result
-.end
-
-
-.sub 'get_json'
- .param string filename
-
- load_bytecode 'Config/JSON.pbc'
-
- .local pmc exports, curr_namespace, test_namespace
- curr_namespace = get_namespace
- test_namespace = get_namespace [ 'Config';'JSON' ]
- exports = split ' ', 'ReadConfig'
- test_namespace.'export_to'(curr_namespace, exports)
-
- .local pmc result
- result = ReadConfig(filename)
-
- .return (result)
-.end
-
-
-.sub 'get_template'
- .param pmc templates
- .param string type
-
- $S0 = concat type, '.text'
- $S1 = templates[$S0]
- .return ($S1)
-.end
-
-
-# Local Variables:
-# mode: pir
-# fill-column: 100
-# End:
-# vim: expandtab shiftwidth=4 ft=pir:
Deleted: branches/tt677_toolsdirs/tools/util/dump_pbc.pl
==============================================================================
--- branches/tt677_toolsdirs/tools/util/dump_pbc.pl Tue Aug 24 22:58:05 2010 (r48644)
+++ /dev/null 00:00:00 1970 (deleted)
@@ -1,125 +0,0 @@
-#! perl
-
-# Copyright (C) 2008, Parrot Foundation.
-# $Id$
-
-=head1 NAME
-
-tools/util/dump_pbc.pl - Weave together PBC disassembly with PIR source
-
-=head1 SYNOPSIS
-
- perl tools/util/dump_pbc.pl foo.pbc
-
-=head1 DESCRIPTION
-
-dump_pbc.pl uses Parrot's F<pbc_disassemble> program to disassemble the opcodes
-in a PBC (Parrot ByteCode) file, then weaves the disassembly together with
-the original PIR source file(s). This makes it easier to see how the PIR
-syntactic sugar is desugared into raw Parrot opcodes.
-
-=head1 BUGS
-
-This program has only been tested for a few simple cases. Also, the name
-might suggest a different use than its actual purpose.
-
-While it is not a bug in F<dump_pbc.pl> per se, there is a line numbering
-bug for some PBC opcode sequences that will result in the disassembled
-opcodes appearing just before the source lines they represent, rather
-than just after. There does not appear to be consensus yet about where
-this bug actually resides.
-
-=cut
-
-use strict;
-use warnings;
-use Cwd;
-use FindBin;
-
-my ($PARROT_ROOT, $RUNTIME_DIR);
-BEGIN {
- $PARROT_ROOT = Cwd::abs_path("$FindBin::Bin/../..");
- $RUNTIME_DIR = "$PARROT_ROOT/runtime/parrot";
-}
-
-use lib "$PARROT_ROOT/lib";
-use Parrot::Config '%PConfig';
-
-my $DISASSEMBLER = "$PConfig{build_dir}$PConfig{slash}pbc_disassemble$PConfig{exe}";
-
-go(@ARGV);
-
-sub go {
- my $pbc = shift;
-
- # The following mess brought to you by Win32, where pipe open doesn't work,
- # and thus its greater security and cleaner error handling are unavailable.
-
- -f $pbc && -r _
- or die "PBC file '$pbc' does not exist or is not readable.\n";
-
- -f $DISASSEMBLER && -x _
- or die "Can't find disassembler '$DISASSEMBLER';"
- . "did you remember to make parrot first?\n";
-
- my @dis = `$DISASSEMBLER $pbc`;
- die "No disassembly; errors: $?, $!" unless @dis;
-
- my $cur_file = '';
- my $cur_line = -1;
- my %cache;
-
- foreach (@dis) {
- if (/^(?:# )?Current Source Filename (.*)/) {
- my $found = $1;
- $found =~ s/^'//;
- $found =~ s/'$//;
- if ($cur_file ne $found) {
- $cur_file = $found;
- $cache{$cur_file} ||= slurp_file($cur_file);
- $cur_line = -1;
-
- print "\n#### $cur_file\n";
- }
- }
- elsif (my ($info, $seq, $pc, $line, $code) = /^((\d+)-(\d+) (\d+): )(.*)/) {
- my $int_line = int $line;
- my $len_line = length $line;
- if ($cur_line != $int_line) {
- $cur_line = 0 if $cur_line == -1;
- print "\n";
- foreach my $i ($cur_line + 1 .. $int_line) {
- my $source_code = $cache{$cur_file}[$i-1];
- # next unless $source_code =~ /\S/;
- printf "# %*d: %s", $len_line, $i, $source_code;
- print "\n" if $source_code =~ /^\.end/;
- }
- $cur_line = $int_line;
- }
-
- print ' ' x ($len_line + 4), "$code\n";
- }
- }
-}
-
-sub slurp_file {
- my $file = shift;
- my $source;
-
- open $source, '<', $file
- or open $source, '<', "$PARROT_ROOT/$file"
- or open $source, '<', "$RUNTIME_DIR/$file"
- or die "Could not open source file '$file': $!";
-
- my @lines = <$source>;
-
- return \@lines;
-}
-
-
-# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
-# fill-column: 100
-# End:
-# vim: expandtab shiftwidth=4:
Deleted: branches/tt677_toolsdirs/tools/util/gen_release_info.pl
==============================================================================
--- branches/tt677_toolsdirs/tools/util/gen_release_info.pl Tue Aug 24 22:58:05 2010 (r48644)
+++ /dev/null 00:00:00 1970 (deleted)
@@ -1,63 +0,0 @@
-#! perl
-# Copyright (C) 2008, Parrot Foundation.
-# $Id$
-
-use strict;
-use warnings;
-
-=head1 NAME
-
-tools/util/gen_release_info.pl - generate release info for graphs and charts
-
-=head1 DESCRIPTION
-
-This utility generates release information from subversion in csv format,
-suitable for graphs, charts, and reports.
-
-=cut
-
-
-my $repo_url = 'https://svn.parrot.org/parrot/tags';
-
-## create a release information data structure
-my $r = {
- map { $_->{number} => $_ }
- map { m{^(RELEASE_)(.*)/}
- ? {
- tag => "$1$2",
- number => sub{$a = shift; $a =~ y/_/./; $a }->($2),
- }
- : ()
- }
- qx { svn ls $repo_url }
-};
-
-## gather interesting release-related information from the tag
-map {
- ## ask subversion for info about the tag
- my $readme = $repo_url . '/' . $r->{$_}{tag};
- warn "retrieving info on $readme\n";
- my $info = qx{ LANG=C svn info $readme };
-
- ## pull the interesting items
- $info =~ m{Author: (\S+)} and $r->{$_}{author} = $1;
- $info =~ m{Rev: (\S+)} and $r->{$_}{revision} = $1;
- $info =~ m{Date: (\S+)} and $r->{$_}{date} = $1;
-} keys %{ $r };
-
-
-## output info in csv format
-print
- map { "$_\n" }
- map { my $n = $_; join ',' =>
- map { $r->{$n}{$_} || '' }
- qw{ tag number author revision date }
- }
- sort keys %$r;
-
-# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
-# fill-column: 100
-# End:
-# vim: expandtab shiftwidth=4:
Deleted: branches/tt677_toolsdirs/tools/util/inc_ver.pir
==============================================================================
--- branches/tt677_toolsdirs/tools/util/inc_ver.pir Tue Aug 24 22:58:05 2010 (r48644)
+++ /dev/null 00:00:00 1970 (deleted)
@@ -1,48 +0,0 @@
-#!/usr/bin/env parrot
-# Copyright (C) 2010, Parrot Foundation.
-# $Id$
-
-.sub 'main' :main
- .local string version_file_name
- version_file_name = 'VERSION'
-
- # read the version
- $P0 = new 'FileHandle'
- $P0.'open'( version_file_name, 'r' )
- $S0 = $P0.'readline'()
- $P0.'close'()
-
- print 'version: '
- print $S0
-
- # split the version
- $P1 = split '.', $S0
-
- # increment version
- $I0 = $P1[1]
- inc $I0
- if $I0 != 12 goto NOT_NILL
- $I0 = $P1[0]
- inc $I0
- $P1[0] = $I0
- $I0 = 0
-NOT_NILL:
- $P1[1] = $I0
-
- # join the incremented version
- $S0 = join '.', $P1
-
- print 'new version: '
- print $S0
-
- # write the new version to the version_file
- $P0.'open'( version_file_name, 'w' )
- $P0.'print'( $S0 )
- $P0.'close'()
-.end
-
-# Local Variables:
-# mode: pir
-# fill-column: 100
-# End:
-# vim: expandtab shiftwidth=4 ft=pir:
Deleted: branches/tt677_toolsdirs/tools/util/release.json
==============================================================================
--- branches/tt677_toolsdirs/tools/util/release.json Tue Aug 24 22:58:05 2010 (r48644)
+++ /dev/null 00:00:00 1970 (deleted)
@@ -1,21 +0,0 @@
-{
- "release.version" : "2.7.0",
- "release.name" : "Australian King",
- "release.day" : "Tuesday",
- "release.date" : "17 August 2010",
- "release.nextdate" : "21 September 2010",
-
- "web.root" : "http://parrot.org/",
- "web.source" : "download",
- "web.openpatches" : "openpatches.html",
- "web.repository" : "https://svn.parrot.org/parrot/trunk/",
-
- "bugday.day" : "Saturday",
- "bugday.date" : "18 September 2010",
-
- "wiki.root" : "https://trac.parrot.org/parrot/wiki/",
- "wiki.bugday" : "bug_day_2010_09_18",
-
- "ftp.path" : "ftp://ftp.parrot.org/pub/parrot/releases/devel/2.7.0/",
- "subversion.root" : "http://subversion.apache.org/"
-}
Deleted: branches/tt677_toolsdirs/tools/util/templates.json
==============================================================================
--- branches/tt677_toolsdirs/tools/util/templates.json Tue Aug 24 22:58:05 2010 (r48644)
+++ /dev/null 00:00:00 1970 (deleted)
@@ -1,83 +0,0 @@
-{
- "text.news" : true,
- "text.text" : "
-
-On behalf of the Parrot team, I'm proud to announce Parrot @release.version@
-\"@release.name at .\" Parrot (@web.root@) is a virtual machine aimed
-at running all dynamic languages.
-
-Parrot @release.version@ is available on Parrot's FTP site, or follow the
-download instructions at @web.root@@web.source at . For those who would like to
-develop on Parrot, or help develop Parrot itself, we recommend using Subversion
-on the source code repository to get the latest and best Parrot code.
-
-Parrot @release.version@ News:
- at NEWS@
-
-Many thanks to all our contributors for making this possible, and our sponsors
-for supporting this project. Our next scheduled release is @release.nextdate at .
-
-Enjoy!
-
-",
-
- "html.news" : true,
- "html.text" : "
-<p>On behalf of the Parrot team, I'm proud to announce Parrot @release.version@
-"@release.name at ." <a href=\"@web.root@\">Parrot</a>
-is a virtual machine aimed at running all dynamic languages.</p>
-
-<p>Parrot @release.version@ is available on <a href=\"@ftp.path@\">Parrot's FTP
-site</a>, or <a href=\"@web.root@@web.source@\">follow the download
-instructions</a>. For those who would like to develop on Parrot, or help
-develop Parrot itself, we recommend using <a
-href=\"@subversion.root@\">Subversion</a> on <a href=\"@web.repository@\">our
-source code repository</a> to get the latest and best Parrot code.</p>
-
-<p>Parrot @release.version@ News:<br/>
-<pre>@NEWS@</pre></p>
-
-<p>Thanks to all our contributors for making this possible, and our sponsors
-for supporting this project. Our next release is @release.nextdate at .</p>
-
-<p>Enjoy!</p>
-",
-
- "bugday.news" : false,
- "bugday.text" : "
-Bug Day
-
-On @bugday.day@, @bugday.date@, please join us on IRC in #parrot
-(irc.parrot.org) to work on closing out as many Trac tickets
-(https://trac.parrot.org) tickets as possible in the parrot queue. This will
-help us get ready for the next release of parrot: @release.version@, scheduled
-for @release.day@, @release.date at . You'll find C, parrot assembly, perl,
-documentation, and plenty of tasks to go around. Core developers will be
-available most of the day (starting at around 10am GMT) to answer questions.
-
-No experience with parrot necessary.
-
---From: @wiki.root@@wiki.bugday at --
-
-Check the list at:
-
-https://trac.parrot.org/parrot/report/3
-
-Which contains all the tickets I'd like to see resolved in @version at . To
-see all the open tickets, use:
-
-https://trac.parrot.org/parrot/report
-
-If you've got something you're working on that you think you'll be
-getting done before the release, please
-- add a ticket for it (if necessary);
-- set its milestone to this release.
-
-Thanks in advance for your patches and commits. ^_^
-
-... Speaking of patches, we should also get through as many of these
-(accept or reject) as possible.
-
- at web.root@@web.openpatches@
-"
-}
More information about the parrot-commits
mailing list