![]() |
![]()
| ![]() |
![]()
NAME"Parse::LexEvent" - Generator of event-oriented lexical analyzers (1.00 ALPHA) SYNOPSISuse Parse::LexEvent; sub string { print $_[0]->name, ": $_[1]\n"; } sub comment { print $_[0]->name, ": $_[1]\n"; } sub remainder { print $_[0]->name, ": $_[1]\n"; } $lexer = Parse::LexEvent->new()->configure( From => \*DATA, Tokens => [ Type => 'Simple', Name => 'ccomment', Handler => 'comment', Regex => '//.*\n', Type => 'Delimited', Name => 'comment', Handler => 'comment', Start => '/[*]', End => '[*]/', Type => 'Quoted', Name => 'squotes', Handler => 'string', Quote => qq!\'!, Type => 'Quoted', Name => 'dquotes', Handler => 'string', Quote => qq!\"!, Type => 'Simple', Name => 'remainder', Regex => '(?s:[^/\'\"]+)', ReadMore => 1, ] )->parse(); __END__ /* C comment */ // C++ comment var d = "string in double quotes"; var s = 'string in single quotes'; var i = 10; var y = 100; DESCRIPTION"Parse::LexEvent" generates lexical analyzers in the fashion of "Parse::Lex", but the generated analyzers emit an event at the finish of recognition of each token. This event corresponds to the call of a procedure whose name is that of the token. It is possible to give a different name to this procedure by making use of the "Handler" parameter when defining a token. An application using "Parse::LexEvent" must define the required procedures. These procedures take the token object as first argument and the recognized character string as the second. "Parse::LexEvent" inherits from "Parse::ALex" and possesses all the methods described in the documentation of the "Parse::Lex" class, except for the methods analyze(), every() next(), and nextis(). Methods
EXAMPLEScparser.pl - This analyzer recognizes three types of structures: C ou C++ comments, strings within quotation marks, and the rest. It emits an event specific to each. You can use it, for example, to analyze C, C++ or Javascript programs. SEE ALSO"Parse::Lex", "Parse::Token". AUTHORPhilippe Verdret. COPYRIGHTCopyright (c) 1999 Philippe Verdret. All rights reserved. This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
|