Slide 10
Slide 10 text
Why Not? (Linux Cross Reference) (2)
my $_identifier_re = qr(
(?m:^|(?<=[^a-zA-Z0-9_\#])) # Non-symbol chars.
(_*[a-zA-Z][a-zA-Z0-9_]*) # The symbol.
\b)x;
my $_reserved = { map { $_ => 1 } qw(asm auto break case char const
continue default do double else enum ...)};
sub parsespec {
return ['atom', '\\\\.', undef,
'comment', '/\*', '\*/', 'comment', '//', "\$",
'string', '"(?:[^\\\\"]*\\\\.)*[^\\\\"]*"', undef,
'string', "'(?:[^\\\\']*\\\\.)*[^\\\\']*'", undef];
}