qconf

#! /usr/bin/perl
use strict;
use warnings;

if (@ARGV==1 && $ARGV[0] eq '-spl') {
	# show PE list
	print "fake0\n";
} elsif (@ARGV==2 && $ARGV[0] eq '-sp' && $ARGV[1] eq 'fake0') {
	# show PE configuration
	print "slots 100\n";
	print "allocation_rule \$pe_slots\n";
} elsif (@ARGV==1 && $ARGV[0] eq '-sc') {
	# show complexes
	print "h_vmem - MEMORY - - YES\n";
}elsif (@ARGV==1 && $ARGV[0] eq '-sconf') {
	# show configuration
	;
} else {
	die "$0: ",join(' ',@ARGV),": unimplemented\n";
}