# RPM Package Management System
# Copyright (C) 1995 Red Hat, Inc
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

sub readopts {
    local ($rcfile) = @_;
    local ($option, $rest, $orig);

    &debug("reading options from $rcfile");

    open(RCFILE, "<$rcfile") || error("Cannot open $rcfile for reading");
    while (<RCFILE>) {
	chop;

	$orig = $_;
	s/^  *//;
	s/  *$//;

	$_ || next;

	if (($option, $rest) = /^([^:]*):(.*)$/) {
	    $option =~ s/  *$//;
	    $rest =~ s/^  *//;
	    
	    if ($inrcfile{$option}) {
		 &debug("\$rpm{$option} changed from $rpm{$option} to $rest");
		 $rpm{$option} = $rest;
	    } else {
		 &warning("unknown option $option in $rcfile");
	    }
	} else {
	    &warning("bad line $orig in $rcfile");
	}
    }
}

$inrcfile{"topdir"} = 1;
$inrcfile{"specdir"} = 1;
$inrcfile{"builddir"} = 1;
$inrcfile{"sourcedir"} = 1;
$inrcfile{"rpmdir"} = 1;
$inrcfile{"srcrpmdir"} = 1;
$inrcfile{"arch_sensitive"} = 1;
$inrcfile{"docdir"} = 1;
$inrcfile{"libdir"} = 1;
$inrcfile{"force"} = 1;
$inrcfile{"require_vendor"} = 1;
$inrcfile{"require_distribution"} = 1;
$inrcfile{"require_icon"} = 1;
$inrcfile{"require_group"} = 1;
$inrcfile{"timecheck"} = 1;
$inrcfile{"distribution"} = 1;
$inrcfile{"vendor"} = 1;
$inrcfile{"root"} = 1;
$inrcfile{"messagelevel"} = 1;

1;
