# '#' <preprocessor directive> '\n'
my $preprocessor_re = qr/ ^ \# /x;
-# '/' '/' <comment> '\n'
-my $comment_re = qr| ^ // |x;
+# [<ws>] '/' '/' <comment> '\n'
+my $comment_re = qr| ^ \s* // |x;
# empty line
my $whitespace_only_re = qr/ ^ \s* $ /x;
# A series of ASCII characters in the printable range.
my $s = shift;
+ # We ignore spaces.
+ $s =~ s/ //g;
+
my $count = $s =~ s/\G(.)/'$1', /g;
$curr_offset += $count;
$curr_elem_size += $count;