deac/gitolite
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

compile: make the parse a function instead of inline

Browse source 
Again, prep for delegation, when we'll be reading fragments of config rules
from various files and tacking them onto the %repos hash.

note: this patch best viewed with "git diff -w", clicking "Ignore space
change" in gitk, or eqvt :-)
This commit is contained in:
Sitaram Chamarty 2009-10-02 22:17:51 +05:30
parent 3267c3f4be
commit 34a6f89c26
1 changed files with 67 additions and 61 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
src/gl-compile-conf
View file

@ -119,13 +119,16 @@ sub expand_list
# "compile" GL conf
# ----------------------------------------------------------------------------
my $conf_fh = wrap_open( "<", $GL_CONF );
# the syntax is fairly simple, so we parse it inline
my @repos;
while (<$conf_fh>)
sub parse_conf_file
{
my ($conffile) = @_;
my $conf_fh = wrap_open( "<", $conffile );
# the syntax is fairly simple, so we parse it inline
my @repos;
while (<$conf_fh>)
{
# normalise whitespace; keeps later regexes very simple
s/=/ = /;
s/\s+/ /g;
@ -191,8 +194,11 @@ while (<$conf_fh>)
{
die "$ATTN can't make head or tail of '$_'\n";
}
}
}
parse_conf_file($GL_CONF);
my $compiled_fh = wrap_open( ">", $GL_CONF_COMPILED );
print $compiled_fh Data::Dumper->Dump([\%repos], [qw(*repos)]);
close $compiled_fh or die "$ATTN close compiled-conf failed: $!\n";