Packages

tz

0.8.0
0.28.2 0.28.1 0.28.0 0.27.3 0.27.2 0.27.1 0.27.0 0.26.6 0.26.5 0.26.4 0.26.3 0.26.2 0.26.1 0.26.0 0.25.1 0.25.0 0.24.0 0.23.0 0.22.0 0.21.1 0.21.0 0.20.1 0.20.0 0.19.0 0.17.0 0.16.2 0.16.1 0.16.0 0.15.0 0.14.0 0.13.0 0.12.0 0.11.0 0.10.0 0.9.0 0.8.2 0.8.1 0.8.0 0.7.3 0.7.2 0.7.1 0.7.0 0.6.0 0.5.0 0.4.0 0.3.0 0.2.0 0.1.0

Time zone support for Elixir

HexDocs

Current section

Files

Jump to
Readme
48 Versions
2 Dependencies
Dependants
Files
Activity
tz priv tzdata2019c zoneinfo2tdf.pl
Raw

priv/tzdata2019c/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  TYPE  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";

}