1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
# $Id: ddiff1.awk 0.03 2000/03/20 00:00:03 tom Exp $
#
# ddiff1.awk: Computes the minimum and maximum day lengths of a
# definite location and prints these values, assigned
# to variables, as the beginning of an AWK script,
# which is used to create a Gcal location resource file.
#
# Any but default configuration could confuse this script.
# It comes along with a UN*X script `ddiff' and a DOS batch `ddiff.bat'
# which supports the correct usage.
#
# It is *not* guaranteed that this script works for any other call than
# the one given above but it could easily be modified and extended for
# using other special modes of operation.
#
# If you modify this script you have to rename the modified version.
#
# If you make any improvements I would like to hear from you.
# But I do not promise any support.
#
# Copyright (c) 2000 Thomas Esken <esken@uni-muenster.de>
# Im Hagenfeld 84
# D-48147 M"unster
# GERMANY
#
# This software doesn't claim completeness, correctness or usability.
# On principle I will not be liable for ANY damages or losses (implicit
# or explicit), which result from using or handling my software.
# If you use this software, you agree without any exception to this
# agreement, which binds you LEGALLY !!
#
# 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 3, or (at your option)
# any later version.
#
# You should have received a copy of the `GNU General Public License'
# along with this program; if not, write to the:
#
#
#
BEGIN {
dmin = 99999
dmax = 0
}
#
# Main block.
#
{
t = substr($3, 1, 2) * 3600 + substr($3, 4, 2) * 60
if (length($3) > 7)
t += substr($3, 7, 6)
if (dmax < t)
dmax = t
if (dmin > t)
dmin = t
}
END {
printf "BEGIN {\n dmin = %f;\n dmax = %f;\n", dmin, dmax
}
|
