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: moon1.awk 0.03 2000/01/12 00:00:03 tom Exp $
#
# moon1.awk: Used by `moon.bat' for displaying the dates at which the next
# Full Moon and New Moon phases take place, plus some
# additionally information about today's date.
#
# 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 {
found = 0
moon_match = 0
}
$0 ~ /@/ {
if (moon == "full")
{
if (found == 0)
{
moon_match = FNR
found = 1
}
}
}
$0 ~ /!/ {
if (moon == "new")
{
if (found == 0)
{
moon_match = FNR
found = 1
}
}
}
END {
if (moon_match == 1)
printf "-r$f=%d:$t=day\n", moon_match
else
printf "-r$f=%d:$t=days\n", moon_match
}
|
