#!/usr/bin/env perl

use FindBin;
use lib $FindBin::Bin;
use Run qw(ret run);
use strict;

my $comm = run("comm");
my $segment;

if ($comm eq "gasnet") {
  my $preset_segment = $ENV{'CHPL_GASNET_SEGMENT'};
  if ($preset_segment eq "") {
    my $substrate = run("commSubstrate");

    if (($substrate eq "portals") || ($substrate eq "gemini") || ($substrate eq "aries")) {
	    $segment = "fast";
    } elsif ($substrate eq "ibv") {
	    $segment= "large";
    } else {
	    $segment = "everything";
    }
  } else {
    $segment = $preset_segment;
  }
} else {
  # if ($comm eq "armci") ...
  $segment = "none";
}

ret($segment);
print "$segment\n" unless caller;
