#Version 1
#Mike Croucher (www.walkingrandomly.com)

sub pgi 
{
    my $input = shift;
    my $default_location = "C:\\Program Files\\PGI\\win64\\12.5\\bin";
	
	my $locate_fcn = sub {
        my @valid_locations = ();
		push(@valid_locations,$default_location);
            return @valid_locations;
        };

    my @language_handled = ('C');
	
	my $root_val = sub {
        my $err_msg, $warn_msg;
        my $base_directory = shift;
        if (!-e "$base_directory\\pgcc.exe"){
            $err_msg = "\n" .
                  "*****************************************************************************\n" .
                  "  Error: Could not find the  pgcc.exe compiler. \n" .
                  "*****************************************************************************\n";
        } else {
            $warn_msg = "\n" .
                  "*****************************************************************************\n" .
				  " The PGI Compiler is unsupported by The Mathworks\n " . 
				  " See www.walkingrandomly.com for more details. \n".
				  "*****************************************************************************\n" 
        }

        return ( $err_msg, $warn_msg );
    };
	
  
    return {
        "vendor_name"      => "PGI Workstation 12.5 64bit",
        "version"          => "12.5",                          
        "group_id"         => "PGI",
        "serial"           => 1.0,
        "root_var"         => "PGINSTALLDIR",
		"root_val"         => $root_val,
        "optfile_name"     => "pgi.bat",
        "default_location" => $default_location,
        "language_handled" => \@language_handled,
        "locate"           => $locate_fcn,
        };
}
1;