#!/usr/bin/perl # # Copyright (C) 2006 OpenWrt.org # # This is free software, licensed under the GNU General Public License v2. # See /LICENSE for more information. # use strict; sub get_ts($$) { my $path = shift; my $options = shift; my $ts = 0; my $fn = ""; open FIND, "find $path -not -path \\*.svn\\* -and -not -path \\*CVS\\* $options 2>/dev/null |"; while () { chomp; my $file = $_; open FILE, "<$file"; my @stat = stat FILE; close FILE; if ($stat[9] > $ts) { $ts = $stat[9]; $fn = $file; } } close FIND; return ($ts, $fn); } (@ARGV > 0) or push @ARGV, "."; my $ts = 0; my $n = "."; my %options; while (@ARGV > 0) { my $path = shift @ARGV; if ($path =~ /^-x/) { my $str = shift @ARGV; $options{"findopts"} .= " -and -not -path \\*".$str."\\*" } elsif ($path =~ /^-f/) { $options{"findopts"} .= " -follow"; } elsif ($path =~ /^-/) { $options{$path} = 1; } else { my ($tmp, $fname) = get_ts($path, $options{"findopts"}); if ($tmp > $ts) { if ($options{'-f'}) { $n = $fname; } else { $n = $path; } $ts = $tmp; } } } if ($options{"-p"}) { print "$n\n"; } elsif ($options{"-t"}) { print "$ts\n"; } else { print "$n\t$ts\n"; } about/'>aboutsummary refs log tree commit diff stats

path: root/src/synth/synth-ieee-std_logic_1164.ads

blob: a328f6dec1b5739cbec2e8eebf9062ab60fb7c1e (plain)