CInteger.pm

use Grammar::Debugger;
grammar C::CInteger;
token TOP {^ <integer-constant> $}

token integer-constant {
    <integer-value> <integer-suffix>*
}

proto token integer-value {*}
token integer-value:sym<8>  { <octal-constant> }
token integer-value:sym<10> { <decimal-constant> }
token integer-value:sym<16> { <hexadecimal-constant> }

token octal-constant { '0' <odigit>* }
token decimal-constant { <nzdigit> <digit>* }
token hexadecimal-constant { <.hexadecimal-prefix> <xdigit>* }
token hexadecimal-prefix { '0' <[xX]> }

token nzdigit { <[1..9]> }
token odigit { <[0..7]> }

proto token integer-suffix {*}
token integer-suffix:sym<L> { <[lL]> }
token integer-suffix:sym<LL> { < ll LL > }
token integer-suffix:sym<U> { <[uU]> }