#! /usr/bin/env raku

use Transit::Network;
use Transit::Network::i8n;

unit sub MAIN ($file where $file.IO.f && $file.IO.r, :$lang, :$help);

set-lang($lang) if $lang;

&(%Transit::Network::commands<help>)() if $help;

my @rows  = $file.IO.lines;
my $first = @rows.shift;

die unless Transit::Network::check-first-line-setup($first);

for @rows -> $row
{
  next unless $row;
  
  my @args    = $row.words;
  my $command = @args.shift;

  &(%Transit::Network::commands{$command})(@args) if %Transit::Network::commands{$command};
}
