Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

74 lines (56 sloc) 1.605 kb
#! winxed
# (C) 2010 Julián Albo
/*
= head1 NAME
setup.winxed - Python distutils style
=head1 DESCRIPTION
Just some testing, not intended for real usage yet.
=head1 USAGE
Handle with care. See DESCRIPTION.
=cut
*/
$load 'Getopt/Obj.pbc';
//**********************************************************************
// Json file read.
function loadData(string filename)
{
var json = load_language('data_json');
var file = open(filename);
if (file == null || file.is_closed())
throw Error("Can't open " + filename);
file.encoding('utf8');
string jsondata = file.readall();
file.close();
var code = json.compile(jsondata);
return code();
}
//**********************************************************************
function main(argv)
{
// Parse command line.
var getopts = new ['Getopt','Obj'];
getopts.notOptStop(1);
getopts.push_string('file=s');
getopts.push_string('v');
string progname = argv.shift();
var opts = getopts.get_options(argv);
int verbose = opts['v'] != null;
var file = opts['file'];
// Get setup data from json file specified in command line
// or default value.
string filename = 'setup.json';
if (file != null)
filename = file;
var data = loadData(filename);
if (verbose) {
string description = data['description'];
say("\tFile: ", filename);
say("\tName: ", data['name']);
say("\tDescription: ", description);
say("\t(C) ", data['copyright_holder']);
say();
}
using extern distutils;
setup(argv:[flat], data:[flat,named]);
}
// End
Jump to Line
Something went wrong with that request. Please try again.