@@ -53,7 +53,7 @@ my $options =
5353 #
5454 # TODO: We should not assume the order of flags.
5555 #
56- [ qr / ^--langdef=([^\{ ]+)(((\{ base=([^\{ ]+)\} )(\{ (dedicated|shared|bidirectional)\} )?)?)(\{ _autoFQTag\} )?/ , sub {
56+ [ qr / ^--langdef=([^\{ ]+)(((\{ base=([^\{ ]+)\} )(\{ (dedicated|shared|bidirectional)\} )?)?)(\{ _autoFQTag\} )?( \{ version=([0-9]+) \. ([0-9]+) \} )? / , sub {
5757 die " LANG is already defined as $_ [0]->{'langdef'}: $1 "
5858 if (defined $_ [0]-> {' langdef' });
5959 die " Don't use \" all\" as a language name. It is reserved word."
@@ -65,6 +65,8 @@ my $options =
6565 $_ [0]-> {' base' } = $5 if defined $5 ;
6666 $_ [0]-> {' direction' } = $7 if defined $7 ;
6767 $_ [0]-> {' autoFQTag' } = (defined $8 )? 1: 0;
68+ $_ [0]-> {' versionCurrent' } = (defined $10 )? $10 : 0;
69+ $_ [0]-> {' versionAge' } = (defined $11 )? $11 : 0;
6870
6971 die " Don't use a character as a language name other than alphanumeric, # and +: "
7072 . $_ [0]-> {' langdef' } unless ($_ [0]-> {' langdef' } =~ / ^[a-zA-Z0-9#+]+$ / );
@@ -984,6 +986,8 @@ sub emit_fields_initialization {
984986 }
985987
986988 print <<EOF ;
989+ def->versionCurrent= $opts ->{'versionCurrent'};
990+ def->versionAge = $opts ->{'versionAge'};
987991 def->enabled = ${enabled} ;
988992 def->extensions = extensions;
989993 def->patterns = patterns;
0 commit comments