#!/usr/bin/perl
#
# $Header: //sapdb/V75/c_00/develop/sys/src/install/perl/packages/cpcbase/instcpcbase#2 $
# $DateTime: 2003/12/01 15:16:04 $
# $Change: 57901 $
#
# Desc:


import SAPDB::Install::StdIO;
import SAPDB::Install::System;
import SAPDB::Install::Registry;
import SAPDB::Install::Tools;
import SAPDB::Install::SetUser;


$path{'name'} = 'precompiler caller path';
$path{'default'} = getSysProgPath().'/sapdb/indep_data';
$path{'mode'}=0775;
$path{'opt'}='cpc=s';

unless($SAPDB::Install::StartInstall::opt_INSTANCE){ # these option makes no sense while instance upgrade
	$usage= " [-cpc <precompiler path>]";
	$usage_desc = "\t-cpc <precompiler path>\tinstallation root for CPC Base\n";
}

@paths = (\%path);
$main_path=\%path;
@opts=();

my $data;
my $prog;

sub preinstall{
    local @ARGV=@_; 
    ($data,$prog)=readIndepPath();
	$prog !~ /\S/ and $prog = $SAPDB::Install::Values::indep_prog_path;
	$prog !~ /\S/ and print2stderr("independent program path not found\n") and diesoft($SAPDB::Install::Values::diemsg);
	$data !~ /\S/ and $data = $SAPDB::Install::Values::indep_data_path;
 	$path{'value'}=$prog;
}
 
sub postinstall{
}

sub registerWin{
}

sub registerUX{
}


*register =             $^O =~ /^MsWin/i ? \&registerWin :
        \&registerUX;



sub unregisterWin{
}

sub unregisterUX{
}

*unregister =           $^O =~ /^MsWin/i ? \&unregisterWin :
        \&unregisterUX;

sub preuninstall{

}

sub postuninstall{

}


1;
                                                                                                         