File Manager

003 File Manager

Current Path: /usr/src/contrib/tzdata

usr / src / contrib / tzdata /

📁 ..
📄 CONTRIBUTING(2.97 KB)
📄 LICENSE(252 B)
📄 Makefile(42.98 KB)
📄 NEWS(182.34 KB)
📄 README(2.37 KB)
📄 africa(68.52 KB)
📄 antarctica(13.42 KB)
📄 asia(173.67 KB)
📄 australasia(93.2 KB)
📄 backward(4.57 KB)
📄 backzone(25.61 KB)
📄 calendars(5.44 KB)
📄 checklinks.awk(1008 B)
📄 checktab.awk(4.37 KB)
📄 etcetera(2.64 KB)
📄 europe(178.37 KB)
📄 factory(443 B)
📄 leap-seconds.list(10.42 KB)
📄 leapseconds(3.31 KB)
📄 leapseconds.awk(8.68 KB)
📄 northamerica(165.39 KB)
📄 pacificnew(1.22 KB)
📄 southamerica(86.21 KB)
📄 systemv(1.56 KB)
📄 theory.html(59.36 KB)
📄 version(6 B)
📄 yearistype.sh(753 B)
📄 ziguard.awk(4.09 KB)
📄 zishrink.awk(8.15 KB)
📄 zone.tab(18.87 KB)
📄 zone1970.tab(17.43 KB)
📄 zoneinfo2tdf.pl(1.42 KB)

Editing: zoneinfo2tdf.pl

#! /usr/bin/perl -w
# Summarize .zi input in a .zi-like format.

# Courtesy Ken Pizzini.

use strict;

#This file released to the public domain.

# Note: error checking is poor; trust the output only if the input
# has been checked by zic.

my $contZone = '';
while (<>) {
  my $origline = $_;
  my @fields = ();
  while (s/^\s*((?:"[^"]*"|[^\s#])+)//) {
    push @fields, $1;
  }
  next unless @fields;

my $type = lc($fields[0]);
  if ($contZone) {
    @fields >= 3 or warn "bad continuation line";
    unshift @fields, '+', $contZone;
    $type = 'zone';
  }

$contZone = '';
  if ($type eq 'zone') {
    # Zone  NAME  STDOFF  RULES/SAVE  FORMAT  [UNTIL]
    my $nfields = @fields;
    $nfields >= 5 or warn "bad zone line";
    if ($nfields > 6) {
      #this splice is optional, depending on one's preference
      #(one big date-time field, or componentized date and time):
      splice(@fields, 5, $nfields-5, "@fields[5..$nfields-1]");
    }
    $contZone = $fields[1] if @fields > 5;
  } elsif ($type eq 'rule') {
    # Rule  NAME  FROM  TO  -  IN  ON  AT  SAVE  LETTER/S
    @fields == 10 or warn "bad rule line";
  } elsif ($type eq 'link') {
    # Link  TARGET  LINK-NAME
    @fields == 3 or warn "bad link line";
  } elsif ($type eq 'leap') {
    # Leap  YEAR  MONTH  DAY  HH:MM:SS  CORR  R/S
    @fields == 7 or warn "bad leap line";
  } else {
    warn "Fubar at input line $.: $origline";
  }
  print join("\t", @fields), "\n";
}

003 File Manager

Editing: zoneinfo2tdf.pl

Upload File

Create Folder