GrammarConsumptionExample1

gce1.raku

use Grammar::Tracer;

grammar Timestamp {
    token TOP{^<y><m><d>T<hr><mn>$}
    token y  {\d**4}
    token m  {\d**2}
    token d  {\d**2}
    token hr {\d**2}
    token mn {\d**2}
}
#say Timestamp.parse: '20130304T0102';

grammar TimestampExp is Timestamp {
    token tsx{<y><m><d>T<hr><mn>}
}

grammar TimestampedFile is TimestampExp {
    token TOP{^<name> '-' <tsx> '.' <ext>$}
    token name{<[a..z]>+}
    token ext{<[a..z]>**3}
}
say TimestampedFile.parse: 'xxx-20130304T0102.csv';