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
  
# Check links in tz tables. 
 
# Contributed by Paul Eggert.  This file is in the public domain. 
 
BEGIN { 
    # Special marker indicating that the name is defined as a Zone. 
    # It is a newline so that it cannot match a valid name. 
    # It is not null so that its slot does not appear unset. 
    Zone = "\n" 
} 
 
/^Z/ { 
    if (defined[$2]) { 
        if (defined[$2] == Zone) { 
            printf "%s: Zone has duplicate definition\n", $2 
        } else { 
            printf "%s: Link with same name as Zone\n", $2 
        } 
        status = 1 
    } 
    defined[$2] = Zone 
} 
 
/^L/ { 
    if (defined[$3]) { 
        if (defined[$3] == Zone) { 
            printf "%s: Link with same name as Zone\n", $3 
        } else if (defined[$3] == $2) { 
            printf "%s: Link has duplicate definition\n", $3 
        } else { 
            printf "%s: Link to both %s and %s\n", $3, defined[$3], $2 
        } 
        status = 1 
    } 
    used[$2] = 1 
    defined[$3] = $2 
} 
 
END { 
    for (tz in used) { 
        if (defined[tz] != Zone) { 
            printf "%s: Link to non-zone\n", tz 
            status = 1 
        } 
    } 
 
    exit status 
}