forked from lix-project/lix
ba9ad29fdb
This makes all config options self-documenting. Unknown or unparseable config settings and --option flags now cause a warning.
34 lines
791 B
Perl
34 lines
791 B
Perl
package Nix::Config;
|
||
|
||
use MIME::Base64;
|
||
|
||
$version = "@PACKAGE_VERSION@";
|
||
|
||
$binDir = $ENV{"NIX_BIN_DIR"} || "@nixbindir@";
|
||
$libexecDir = $ENV{"NIX_LIBEXEC_DIR"} || "@nixlibexecdir@";
|
||
$stateDir = $ENV{"NIX_STATE_DIR"} || "@nixlocalstatedir@/nix";
|
||
$logDir = $ENV{"NIX_LOG_DIR"} || "@nixlocalstatedir@/log/nix";
|
||
$confDir = $ENV{"NIX_CONF_DIR"} || "@nixsysconfdir@/nix";
|
||
$storeDir = $ENV{"NIX_STORE_DIR"} || "@nixstoredir@";
|
||
|
||
$bzip2 = "@bzip2@";
|
||
$xz = "@xz@";
|
||
$curl = "@curl@";
|
||
|
||
$useBindings = 1;
|
||
|
||
%config = ();
|
||
|
||
sub readConfig {
|
||
my $config = "$confDir/nix.conf";
|
||
return unless -f $config;
|
||
|
||
open CONFIG, "<$config" or die "cannot open ‘$config’";
|
||
while (<CONFIG>) {
|
||
/^\s*([\w\-\.]+)\s*=\s*(.*)$/ or next;
|
||
$config{$1} = $2;
|
||
}
|
||
close CONFIG;
|
||
}
|
||
|
||
return 1;
|