run.pl

Delaunay三角形的网格剖分程序

#! /usr/local/bin/perl
$base = $ARGV[0];
$opt = $ARGV[1];
$ind = $ARGV[2];
if($ENV{"COG_HOME"}){
    $cog  = $ENV{"COG_HOME"};
    $make = $cog.'/cog.mk';
}else{
    $cog = $ENV{"PDELIB_HOME"}.'/modules/cog';
    $make = $cog.'/pdelib.mk';
}

if($base){
       	system "coguse $base $opt $ind";
}
#print "linking cog";

if($ENV{"COG_WORK"}){
    system "cd ".$ENV{"COG_WORK"}."; make -k -f $make run";
    $cog  = $ENV{"COG_WORK"}."/test";
    print "starting test in ".$ENV{"COG_WORK"}."\n";
    system "cd ".$ENV{"COG_WORK"}."; ./test"; #$cog;
}else{
    system "make -k -f $make cog";
    print "starting test
";
    system "./test";
}