#!/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 - 2006 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 https://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 " \ " "; print " Show packages in the package list file that depend on"; print " the given package, using dependencies from scripts/dep_db.txt."; 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; }