VirtualBox

source: kBuild/vendor/gnumake/current/config/mdate-sh@ 501

Last change on this file since 501 was 501, checked in by bird, 18 years ago

Load make-3.81/ into vendor/gnumake/current.

  • Property svn:executable set to *
File size: 5.4 KB
Line 
1#!/bin/sh
2# Get modification time of a file or directory and pretty-print it.
3
4scriptversion=2005-06-29.22
5
6# Copyright (C) 1995, 1996, 1997, 2003, 2004, 2005 Free Software
7# Foundation, Inc.
8# written by Ulrich Drepper <drepper@gnu.ai.mit.edu>, June 1995
9#
10# This program is free software; you can redistribute it and/or modify
11# it under the terms of the GNU General Public License as published by
12# the Free Software Foundation; either version 2, or (at your option)
13# any later version.
14#
15# This program is distributed in the hope that it will be useful,
16# but WITHOUT ANY WARRANTY; without even the implied warranty of
17# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18# GNU General Public License for more details.
19#
20# You should have received a copy of the GNU General Public License
21# along with this program; if not, write to the Free Software Foundation,
22# Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
23
24# As a special exception to the GNU General Public License, if you
25# distribute this file as part of a program that contains a
26# configuration script generated by Autoconf, you may include it under
27# the same distribution terms that you use for the rest of that program.
28
29# This file is maintained in Automake, please report
30# bugs to <bug-automake@gnu.org> or send patches to
31# <automake-patches@gnu.org>.
32
33case $1 in
34 '')
35 echo "$0: No file. Try \`$0 --help' for more information." 1>&2
36 exit 1;
37 ;;
38 -h | --h*)
39 cat <<\EOF
40Usage: mdate-sh [--help] [--version] FILE
41
42Pretty-print the modification time of FILE.
43
44Report bugs to <bug-automake@gnu.org>.
45EOF
46 exit $?
47 ;;
48 -v | --v*)
49 echo "mdate-sh $scriptversion"
50 exit $?
51 ;;
52esac
53
54# Prevent date giving response in another language.
55LANG=C
56export LANG
57LC_ALL=C
58export LC_ALL
59LC_TIME=C
60export LC_TIME
61
62# GNU ls changes its time format in response to the TIME_STYLE
63# variable. Since we cannot assume `unset' works, revert this
64# variable to its documented default.
65if test "${TIME_STYLE+set}" = set; then
66 TIME_STYLE=posix-long-iso
67 export TIME_STYLE
68fi
69
70save_arg1=$1
71
72# Find out how to get the extended ls output of a file or directory.
73if ls -L /dev/null 1>/dev/null 2>&1; then
74 ls_command='ls -L -l -d'
75else
76 ls_command='ls -l -d'
77fi
78
79# A `ls -l' line looks as follows on OS/2.
80# drwxrwx--- 0 Aug 11 2001 foo
81# This differs from Unix, which adds ownership information.
82# drwxrwx--- 2 root root 4096 Aug 11 2001 foo
83#
84# To find the date, we split the line on spaces and iterate on words
85# until we find a month. This cannot work with files whose owner is a
86# user named `Jan', or `Feb', etc. However, it's unlikely that `/'
87# will be owned by a user whose name is a month. So we first look at
88# the extended ls output of the root directory to decide how many
89# words should be skipped to get the date.
90
91# On HPUX /bin/sh, "set" interprets "-rw-r--r--" as options, so the "x" below.
92set x`ls -l -d /`
93
94# Find which argument is the month.
95month=
96command=
97until test $month
98do
99 shift
100 # Add another shift to the command.
101 command="$command shift;"
102 case $1 in
103 Jan) month=January; nummonth=1;;
104 Feb) month=February; nummonth=2;;
105 Mar) month=March; nummonth=3;;
106 Apr) month=April; nummonth=4;;
107 May) month=May; nummonth=5;;
108 Jun) month=June; nummonth=6;;
109 Jul) month=July; nummonth=7;;
110 Aug) month=August; nummonth=8;;
111 Sep) month=September; nummonth=9;;
112 Oct) month=October; nummonth=10;;
113 Nov) month=November; nummonth=11;;
114 Dec) month=December; nummonth=12;;
115 esac
116done
117
118# Get the extended ls output of the file or directory.
119set dummy x`eval "$ls_command \"\$save_arg1\""`
120
121# Remove all preceding arguments
122eval $command
123
124# Because of the dummy argument above, month is in $2.
125#
126# On a POSIX system, we should have
127#
128# $# = 5
129# $1 = file size
130# $2 = month
131# $3 = day
132# $4 = year or time
133# $5 = filename
134#
135# On Darwin 7.7.0 and 7.6.0, we have
136#
137# $# = 4
138# $1 = day
139# $2 = month
140# $3 = year or time
141# $4 = filename
142
143# Get the month.
144case $2 in
145 Jan) month=January; nummonth=1;;
146 Feb) month=February; nummonth=2;;
147 Mar) month=March; nummonth=3;;
148 Apr) month=April; nummonth=4;;
149 May) month=May; nummonth=5;;
150 Jun) month=June; nummonth=6;;
151 Jul) month=July; nummonth=7;;
152 Aug) month=August; nummonth=8;;
153 Sep) month=September; nummonth=9;;
154 Oct) month=October; nummonth=10;;
155 Nov) month=November; nummonth=11;;
156 Dec) month=December; nummonth=12;;
157esac
158
159case $3 in
160 ???*) day=$1;;
161 *) day=$3; shift;;
162esac
163
164# Here we have to deal with the problem that the ls output gives either
165# the time of day or the year.
166case $3 in
167 *:*) set `date`; eval year=\$$#
168 case $2 in
169 Jan) nummonthtod=1;;
170 Feb) nummonthtod=2;;
171 Mar) nummonthtod=3;;
172 Apr) nummonthtod=4;;
173 May) nummonthtod=5;;
174 Jun) nummonthtod=6;;
175 Jul) nummonthtod=7;;
176 Aug) nummonthtod=8;;
177 Sep) nummonthtod=9;;
178 Oct) nummonthtod=10;;
179 Nov) nummonthtod=11;;
180 Dec) nummonthtod=12;;
181 esac
182 # For the first six month of the year the time notation can also
183 # be used for files modified in the last year.
184 if (expr $nummonth \> $nummonthtod) > /dev/null;
185 then
186 year=`expr $year - 1`
187 fi;;
188 *) year=$3;;
189esac
190
191# The result.
192echo $day $month $year
193
194# Local Variables:
195# mode: shell-script
196# sh-indentation: 2
197# eval: (add-hook 'write-file-hooks 'time-stamp)
198# time-stamp-start: "scriptversion="
199# time-stamp-format: "%:y-%02m-%02d.%02H"
200# time-stamp-end: "$"
201# End:
Note: See TracBrowser for help on using the repository browser.

© 2024 Oracle Support Privacy / Do Not Sell My Info Terms of Use Trademark Policy Automated Access Etiquette