[svn:parrot] r43105 - in trunk: . examples/pir/befunge examples/pir/befunge/config examples/pir/befunge/t
fperrad at svn.parrot.org
fperrad at svn.parrot.org
Wed Dec 16 14:27:55 UTC 2009
Author: fperrad
Date: Wed Dec 16 14:27:55 2009
New Revision: 43105
URL: https://trac.parrot.org/parrot/changeset/43105
Log:
[befunge] update infrastructure with setup.pir (distutils)
Added:
trunk/examples/pir/befunge/setup.pir (contents, props changed)
Deleted:
trunk/examples/pir/befunge/Configure.pl
trunk/examples/pir/befunge/config/
trunk/examples/pir/befunge/t/harness
Modified:
trunk/MANIFEST
trunk/MANIFEST.SKIP
trunk/examples/pir/befunge/ (props changed)
Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST Wed Dec 16 14:26:45 2009 (r43104)
+++ trunk/MANIFEST Wed Dec 16 14:27:55 2009 (r43105)
@@ -1,7 +1,7 @@
# ex: set ro:
# $Id$
#
-# generated by tools/dev/mk_manifest_and_skip.pl Sat Dec 12 07:06:36 2009 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Wed Dec 16 14:11:03 2009 UT
#
# See below for documentation on the format of this file.
#
@@ -749,20 +749,18 @@
examples/past/four_plus_one.pir [examples]
examples/pge/demo.pir [examples]
examples/pir/befunge/Changes [examples]
-examples/pir/befunge/Configure.pl [examples]
examples/pir/befunge/MAINTAINER [examples]
examples/pir/befunge/README []doc
examples/pir/befunge/befunge.pir [examples]
-examples/pir/befunge/config/makefiles/root.in [examples]
examples/pir/befunge/debug.pir [examples]
examples/pir/befunge/flow.pir [examples]
examples/pir/befunge/io.pir [examples]
examples/pir/befunge/load.pir [examples]
examples/pir/befunge/maths.pir [examples]
examples/pir/befunge/pascserp.bef [examples]
+examples/pir/befunge/setup.pir [examples]
examples/pir/befunge/stack.pir [examples]
examples/pir/befunge/t/basic.t [examples]
-examples/pir/befunge/t/harness [examples]
examples/pir/befunge/test.bef [examples]
examples/pir/circle.pir [examples]
examples/pir/euclid.pir [examples]
Modified: trunk/MANIFEST.SKIP
==============================================================================
--- trunk/MANIFEST.SKIP Wed Dec 16 14:26:45 2009 (r43104)
+++ trunk/MANIFEST.SKIP Wed Dec 16 14:27:55 2009 (r43105)
@@ -1,6 +1,6 @@
# ex: set ro:
# $Id$
-# generated by tools/dev/mk_manifest_and_skip.pl Wed Dec 9 06:58:54 2009 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Wed Dec 16 14:11:03 2009 UT
#
# This file should contain a transcript of the svn:ignore properties
# of the directories in the Parrot subversion repository. (Needed for
@@ -387,8 +387,8 @@
^examples/pir/befunge/.*\.obj/
^examples/pir/befunge/.*\.pbc$
^examples/pir/befunge/.*\.pbc/
-^examples/pir/befunge/Makefile$
-^examples/pir/befunge/Makefile/
+^examples/pir/befunge/MANIFEST$
+^examples/pir/befunge/MANIFEST/
^examples/pir/befunge/befunge$
^examples/pir/befunge/befunge/
^examples/pir/befunge/installable_befunge$
Deleted: trunk/examples/pir/befunge/Configure.pl
==============================================================================
--- trunk/examples/pir/befunge/Configure.pl Wed Dec 16 14:27:55 2009 (r43104)
+++ /dev/null 00:00:00 1970 (deleted)
@@ -1,31 +0,0 @@
-# Copyright (C) 2009, Parrot Foundation.
-# $Id$
-
-use strict;
-use warnings;
-use 5.008;
-
-create_makefiles();
-
-sub create_makefiles {
- my %makefiles = (
- 'config/makefiles/root.in' => 'Makefile',
-# 'config/makefiles/pmc.in' => 'src/pmc/Makefile',
-# 'config/makefiles/ops.in' => 'src/ops/Makefile',
- );
- my $build_tool = '../../../tools/dev/gen_makefile.pl';
-
- foreach my $template (keys %makefiles) {
- my $makefile = $makefiles{$template};
- print "Creating $makefile\n";
- system('perl', $build_tool, $template, $makefile);
- }
-}
-
-# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
-# fill-column: 100
-# End:
-# vim: expandtab shiftwidth=4:
-
Added: trunk/examples/pir/befunge/setup.pir
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ trunk/examples/pir/befunge/setup.pir Wed Dec 16 14:27:55 2009 (r43105)
@@ -0,0 +1,69 @@
+#! /usr/local/bin/parrot
+# Copyright (C) 2009, Parrot Foundation.
+# $Id$
+
+=head1 NAME
+
+setup.pir - Python distutils style
+
+=head1 DESCRIPTION
+
+No Configure step, no Makefile generated.
+
+See F<runtime/library/distutils.pir>.
+
+=head1 USAGE
+
+ $ parrot setup.pir
+ $ parrot setup.pir test
+ $ sudo parrot setup.pir install
+
+=cut
+
+.sub 'main' :main
+ .param pmc args
+ $S0 = shift args
+ load_bytecode 'distutils.pbc'
+
+ $P0 = new 'Hash'
+ $P0['name'] = 'befunge'
+ $P0['abstract'] = 'This is a Befunge interpreter written in PIR'
+ $P0['description'] = 'This is a Befunge interpreter written in PIR'
+ $P0['license_type'] = 'Artistic License 2.0'
+ $P0['license_uri'] = 'http://www.perlfoundation.org/artistic_license_2_0'
+ $P0['copyright_holder'] = 'Parrot Foundation'
+ $P0['checkout_uri'] = 'https://svn.parrot.org/parrot/trunk/examples/pir/befunge'
+ $P0['browser_uri'] = 'http://trac.parrot.org/parrot/browser/trunk/examples/pir/befunge'
+ $P0['project_uri'] = 'http://trac.parrot.org/parrot/browser/trunk/examples/pir/befunge'
+
+ # build
+ $P1 = new 'Hash'
+ $P2 = split "\n", <<'SOURCES'
+befunge.pir
+debug.pir
+flow.pir
+io.pir
+load.pir
+maths.pir
+stack.pir
+SOURCES
+ $P1['befunge.pbc'] = $P2
+ $P0['pbc_pir'] = $P1
+
+ $P3 = new 'Hash'
+ $P3['parrot-befunge'] = 'befunge.pbc'
+ $P0['exe_pbc'] = $P3
+ $P0['installable_pbc'] = $P3
+
+ # dist
+ $P4 = glob('*.bef')
+ $P0['manifest_includes'] = $P4
+
+ .tailcall setup(args :flat, $P0 :flat :named)
+.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:
Deleted: trunk/examples/pir/befunge/t/harness
==============================================================================
--- trunk/examples/pir/befunge/t/harness Wed Dec 16 14:27:55 2009 (r43104)
+++ /dev/null 00:00:00 1970 (deleted)
@@ -1,29 +0,0 @@
-# $Id$
-
-=head1 NAME
-
-languages/befunge/t/harness - A harness for befunge
-
-=head1 SYNOPSIS
-
- cd languages && perl -I../lib befunge/t/harness --files
-
- cd languages && perl -I../lib befunge/t/harness
-
- cd languages && perl -I../lib befunge/t/harness \
- befunge/t/basic.t
-
-=head1 DESCRIPTION
-
-If I'm called with a single
-argument of "--files", I just return a list of files to process.
-This list is one per line, and is relative to the languages dir.
-
-If I'm called with no args, I run the complete suite.
-
-Otherwise I run the tests that were passed on the command line.
-
-=cut
-
-use lib qw{ ../../../lib };
-use Parrot::Test::Harness language => 'befunge';
More information about the parrot-commits
mailing list