rocklinux/scripts/Check-Deps-3

#!/usr/bin/gawk -f
#
# --- ROCK-COPYRIGHT-NOTE-BEGIN ---
# 
# This copyright note is auto-generated by ./scripts/Create-CopyPatch.
# Please add additional copyright information _after_ the line containing
# the ROCK-COPYRIGHT-NOTE-END tag. Otherwise it might get removed by
# the ./scripts/Create-CopyPatch script. Do not edit this copyright text!
# 
# ROCK Linux: rock-src/scripts/Check-Deps-3
# ROCK Linux is Copyright (C) 1998 - 2003 Clifford Wolf
# 
# 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. A copy of the GNU General Public
# License can be found at Documentation/COPYING.
# 
# Many people helped and are helping developing ROCK Linux. Please
# have a look at http://www.rocklinux.org/ and the Documentation/TEAM
# file for details.
# 
# --- ROCK-COPYRIGHT-NOTE-END ---

function check_package() {
	split(pkgline, a);
	package = a[5];

	if ( package == ARGV[2] ) running = 1;

	if ( ! running ) return;
	if ( ! index(a[2], stagelevel) ) return;

	split(depdb[package], a);
	for (c=1; a[c] != ""; c++) {
		if ( a[c] == package ) continue;
		if ( broken[a[c]] ) {
			print "[" stagelevel "] package " \
				package " depends on " a[c];
			broken[package]=1;
		}
	}
}

BEGIN {
	if ( ! ARGV[3] ) {
		print "Usage: ./scripts/Check-Dep-3 " \
			"<stagelevel> <package-name> <pkg-list-file>";
		exit 1;
	}

	running = 0;
	broken[ARGV[2]] = 1;

	while ( (getline depline < "scripts/dep_db.txt") > 0 ) {
		p=depline; sub(":.*", "", p);
		d=depline; sub("^[^ ] [^ ] [^ ] ", "", d);
		depdb[p] = d;
	}

	for (stagelevel=ARGV[1]; stagelevel<=9; stagelevel++) {
		while ( (getline pkgline < ARGV[3]) > 0 ) {
			check_package();
		}
		close(ARGV[3]);
	}

	if ( ! running ) {
		print "Package " ARGV[2] " not found!";
		exit 1;
	}
	exit 0;
}