coginstall

来自「Delaunay三角形的网格剖分程序」· 代码 · 共 34 行

#! /usr/local/bin/perl
if($ENV{"COG_HOME"}){
    $cog  = $ENV{"COG_HOME"};
}else{
    print "Set the variable COG_HOME
 to the directory with COG source code
";
    exit;
}
if($ENV{"COG_WORK"}){
    $cogw = $ENV{"COG_WORK"};
}else{
    print "Set the variable COG_WORK
 to a working directory for COG test examples
";
    exit;
}

if($ENV{"COG_CONFIG"}){
}else{
    print "Set the variable COG_CONFIG so that there exists a file named
$cog/config/\$(COG_CONFIG).mk
See $cog/install.html for more.
";
    exit;
}

system "
cp -f $cog/cog.mk $cog/Makefile;
cd $cog;
make install;
";