xref: /titanic_41/usr/src/tools/scripts/validate_flg.pl (revision 25cf1a301a396c38e8adf52c15f537b80d2483f7) 
1#!/usr/bin/perl
2#
3# CDDL HEADER START
4#
5# The contents of this file are subject to the terms of the
6# Common Development and Distribution License, Version 1.0 only
7# (the "License").  You may not use this file except in compliance
8# with the License.
9#
10# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
11# or http://www.opensolaris.org/os/licensing.
12# See the License for the specific language governing permissions
13# and limitations under the License.
14#
15# When distributing Covered Code, include this CDDL HEADER in each
16# file and include the License file at usr/src/OPENSOLARIS.LICENSE.
17# If applicable, add the following below this CDDL HEADER, with the
18# fields enclosed by brackets "[]" replaced with your own identifying
19# information: Portions Copyright [yyyy] [name of copyright owner]
20#
21# CDDL HEADER END
22#
23
24# Copyright 2005 Sun Microsystems, Inc.  All rights reserved.
25# Use is subject to license terms.
26#
27#ident	"%Z%%M%	%I%	%E% SMI"
28
29use strict;
30use File::Find ();
31require v5.6.1;
32
33use vars qw/$f_flg *name *dir @execlist $basedir/;
34*name   = *File::Find::name;
35*dir    = *File::Find::dir;
36
37# Use the same mechanism as def.dir.flp to determine if there are any
38# SCCS files matching the pattern supplied for a "find_files"
39# statement.
40sub sccs_empty {
41    my ($pat, $dir) = @_;
42    return 0 if $f_flg;
43    my $foo = `find $dir -name "$pat" -print | grep /SCCS/s.`;
44    $foo eq "";
45}
46
47# Not pretty, but simple enough to work for the known cases.
48# Does not bother with curly braces or fancy substitutions.
49sub expand {
50    my ($str) = @_;
51    while ($str =~ /\$(\w+)/) {
52	my $newstr = $ENV{$1};
53	$str =~ s/\$$1/$newstr/g;
54    }
55    $str;
56}
57
58# Process a single inc.flg or req.flg file.
59sub process_file {
60    my ($fname, $incpath) = @_;
61    my ($dname, $isincflg);
62    my ($expfile, $newpath, $line, $cont, $firstline, $text);
63
64    $dname = $fname;
65    $dname =~ s+/[^/]*$++;
66
67    $isincflg = $fname =~ /inc.flg$/;
68
69    if (defined $incpath) {
70	$newpath = "$incpath, from $fname:";
71    } else {
72	$newpath = "from $fname:";
73    }
74
75    if (open INC, "<$fname") {
76	$line = 0;
77	$cont = 0;
78	while (<INC>) {
79	    chomp;
80	    $line++;
81	    ( $cont = 0, next ) if /^\s*#/ || /^\s*$/;
82	    if ($cont) {
83		$text = $text . $_;
84	    } else {
85		$firstline = $line;
86		$text = $_;
87	    }
88	    if (/\\$/) {
89		$cont = 1;
90		$text =~ s/\\$//;
91		next;
92	    }
93	    $cont = 0;
94	    if ($text =~ /\s*echo_file\s+(\S+)/) {
95		$expfile = expand($1);
96		warn "$fname:$firstline: $1 isn't a file\n" if ! -f $expfile;
97	    } elsif ($text =~ /\s*find_files\s+['"]([^'"]+)['"]\s+(.*)/) {
98		foreach my $dir (split(/\s+/, "$2")) {
99		    $expfile = expand($dir);
100		    if (! -d $expfile) {
101			warn "$fname:$firstline: $dir isn't a directory\n";
102		    } elsif ($isincflg && $expfile eq $dname) {
103			warn "$fname:$firstline: $dir is unnecessary\n";
104		    } elsif (sccs_empty($1, $expfile)) {
105			warn "$fname:$firstline: $dir has no SCCS objects ",
106				"with '$1'\n";
107		    }
108		}
109	    } elsif ($text =~ /\s*exec_file\s+(\S+)/) {
110		$expfile = expand($1);
111		if (-f $expfile) {
112		    push @execlist, $expfile, "$newpath:$firstline";
113		} else {
114		    warn "$fname:$firstline: $1 isn't a file\n";
115		    warn "included $incpath\n" if defined $incpath;
116		}
117	    } else {
118		warn "$0: $fname:$firstline: unknown entry: $text\n";
119		warn "included $incpath\n" if defined $incpath;
120	    }
121	}
122	close INC;
123    } else {
124	warn "$0: $fname: $!\n";
125    }
126}
127
128sub wanted {
129    process_file($_, undef) if /\/(inc|req)\.flg$/ && -f $_;
130}
131
132$f_flg = $ARGV[0] eq "-f";
133shift @ARGV if $f_flg;
134
135$basedir = "usr";
136if ($#ARGV == 0) {
137    $basedir = shift @ARGV;
138} elsif ($#ARGV > 0) {
139    die "$0: unexpected arguments\n";
140}
141
142die "$0: \$CODEMGR_WS must be set\n" if $ENV{CODEMGR_WS} eq "";
143chdir $ENV{CODEMGR_WS} or die "$0: chdir $ENV{CODEMGR_WS}: $!\n";
144
145File::Find::find({wanted => \&wanted, no_chdir => 1}, $basedir);
146
147# After passing through the tree, process all of the included files.
148# There aren't many of these, so don't bother trying to optimize the
149# traversal.  Just do them all.
150while (@execlist) {
151    my $file = shift @execlist;
152    my $incpath = shift @execlist;
153    process_file($file, $incpath);
154}
155
156exit 0;
157