Suggest to use GCRYMPI_FMT_USG with gcry_sexp_nth_mpi.
[libgcrypt.git] / doc / mdate-sh
1 #!/bin/sh
2 # Get modification time of a file or directory and pretty-print it.
3
4 scriptversion=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
33 case $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
40 Usage: mdate-sh [--help] [--version] FILE
41
42 Pretty-print the modification time of FILE.
43
44 Report bugs to <bug-automake@gnu.org>.
45 EOF
46     exit $?
47     ;;
48   -v | --v*)
49     echo "mdate-sh $scriptversion"
50     exit $?
51     ;;
52 esac
53
54 # Prevent date giving response in another language.
55 LANG=C
56 export LANG
57 LC_ALL=C
58 export LC_ALL
59 LC_TIME=C
60 export 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.
65 if test "${TIME_STYLE+set}" = set; then
66   TIME_STYLE=posix-long-iso
67   export TIME_STYLE
68 fi
69
70 save_arg1=$1
71
72 # Find out how to get the extended ls output of a file or directory.
73 if ls -L /dev/null 1>/dev/null 2>&1; then
74   ls_command='ls -L -l -d'
75 else
76   ls_command='ls -l -d'
77 fi
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.
92 set x`ls -l -d /`
93
94 # Find which argument is the month.
95 month=
96 command=
97 until test $month
98 do
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
116 done
117
118 # Get the extended ls output of the file or directory.
119 set dummy x`eval "$ls_command \"\$save_arg1\""`
120
121 # Remove all preceding arguments
122 eval $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.
144 case $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;;
157 esac
158
159 case $3 in
160   ???*) day=$1;;
161   *) day=$3; shift;;
162 esac
163
164 # Here we have to deal with the problem that the ls output gives either
165 # the time of day or the year.
166 case $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;;
189 esac
190
191 # The result.
192 echo $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: