setup.pir

#!/usr/bin/env parrot
# Copyright (C) 2011, Parrot Foundation.

=head1 NAME

setup.pir - Python distutils style

=head1 DESCRIPTION

No Configure step, no Makefile generated.

=head1 USAGE

    $ parrot setup.pir build
    $ parrot setup.pir test
    $ sudo parrot setup.pir install

=cut

.sub 'main' :main
    .param pmc args

    $S0 = shift args
    load_bytecode 'distutils.pbc'

    .local pmc config
    config = get_config()

    .const 'Sub' selfinstall = 'selfinstall'
    register_step('selfinstall', selfinstall)

    $S1  = 'Plumage is a package manager for the Parrot VM module ecosystem. '
    $S1 .= 'With it, you can perform tasks such as searching, installing, and '
    $S1 .= 'testing modules in the ecosystem.'

    $P0                     = new 'Hash'
    $P0['name']             = 'Plumage'
    $P0['abstract']         = 'Plumage is a package manager for the Parrot VM module ecosystem.'
    $P0['authority']        = 'http://github.com/parrot'
    $P0['description']      = $S1
    $P1                     = split ',', 'parrot package deployment module ecosystem'
    $P0['keywords']         = $P1
    $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']     = 'git://github.com/parrot/plumage.git'
    $P0['browser_uri']      = 'https://github.com/parrot/plumage'
    $P0['project_uri']      = 'https://trac.parrot.org/parrot/wiki/ModuleEcosystem'

    # Build
    $P2                                     = new 'Hash'
    $P2['src/lib/Plumage/Dependencies.pir'] = 'src/lib/Plumage/Dependencies.nqp'
    $P2['src/lib/Plumage/Metadata.pir']     = 'src/lib/Plumage/Metadata.nqp'
    $P2['src/lib/Plumage/Project.pir']      = 'src/lib/Plumage/Project.nqp'
    $P2['src/lib/Plumage/Util.pir']         = 'src/lib/Plumage/Util.nqp'
    $P2['src/lib/Plumage/NQPUtil.pir']      = 'src/lib/Plumage/NQPUtil.nqp'
    $P2['src/lib/Plumage/Interactive.pir']  = 'src/lib/Plumage/Interactive.nqp'
    $P2['src/lib/Plumage/Command.pir']      = 'src/lib/Plumage/Command.nqp'
    $P2['src/plumage.pir']                  = 'src/plumage.nqp'
    $P0['pir_nqp']                          = $P2

    $P3                             = new 'Hash'
    $P3['Plumage/Dependencies.pbc'] = 'src/lib/Plumage/Dependencies.pir'
    $P3['Plumage/Metadata.pbc']     = 'src/lib/Plumage/Metadata.pir'
    $P3['Plumage/Project.pbc']      = 'src/lib/Plumage/Project.pir'
    $P3['Plumage/Util.pbc']         = 'src/lib/Plumage/Util.pir'
    $P3['Plumage/NQPUtil.pbc']      = 'src/lib/Plumage/NQPUtil.pir'
    $P3['Plumage/Interactive.pbc']  = 'src/lib/Plumage/Interactive.pir'
    $P3['Plumage/Command.pbc']      = 'src/lib/Plumage/Command.pir'
    $P3['plumage.pbc']              = 'src/plumage.pir'
    $P0['pbc_pir']                  = $P3

    $P4                    = new 'Hash'
    $P4['plumage']         = 'plumage.pbc'
    $P0['installable_pbc'] = $P4

    # Test
    $S0               = get_nqp_rx()
    $P0['prove_exec'] = $S0

    # Smoke test
    $P0['prove_archive'] = 'test_plumage.tar.gz'
    $P0['smolder_url']   = 'http://smolder.parrot.org/app/projects/process_add_report/3'
    $S0                  = get_tags(config)
    $P0['smolder_tags']  = $S0

    # Install
    $P5 = split "\n", <<'LIBS'
Plumage/Dependencies.pbc
Plumage/Metadata.pbc
Plumage/Project.pbc
Plumage/Util.pbc
Plumage/NQPUtil.pbc
Plumage/Interactive.pbc
Plumage/Command.pbc
LIBS

    $S0              = pop $P5
    $P0['inst_lib']  = $P5
    $P6              = glob('plumage/metadata/*.json')
    $P0['inst_data'] = $P6

    # Distribution
    $P7              = glob('CREDITS README TASKS TODO docs/*/*.pod')
    $P0['doc_files'] = $P7

    .tailcall setup(args :flat, $P0 :flat :named)
.end

.sub 'selfinstall' :anon
    .param pmc kv :slurpy :named

    system('parrot plumage.pbc install plumage', 1 :named('verbose'))
.end

.sub 'get_tags'
    .param pmc config

    .local string tags
    tags  = config['osname']
    tags .= ", "
    $S0   = config['archname']
    tags .= $S0

    .return (tags)
.end

# Local Variables:
#   mode: pir
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir: