annotate lib/Parsers/SimpleCalcYYLexer.pm @ 0:4816e4a8ae95 draft default tip

Uploaded
author deepakjadmin
date Wed, 20 Jan 2016 09:23:18 -0500
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
1 package Parsers::SimpleCalcYYLexer;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
2 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
3 # $RCSfile: SimpleCalcYYLexer.pm,v $
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
4 # $Date: 2015/02/28 20:50:55 $
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
5 # $Revision: 1.9 $
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
6 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
7 # Author: Manish Sud <msud@san.rr.com>
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
8 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
9 # Copyright (C) 2015 Manish Sud. All rights reserved.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
10 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
11 # This file is part of MayaChemTools.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
12 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
13 # MayaChemTools is free software; you can redistribute it and/or modify it under
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
14 # the terms of the GNU Lesser General Public License as published by the Free
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
15 # Software Foundation; either version 3 of the License, or (at your option) any
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
16 # later version.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
17 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
18 # MayaChemTools is distributed in the hope that it will be useful, but without
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
19 # any warranty; without even the implied warranty of merchantability of fitness
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
20 # for a particular purpose. See the GNU Lesser General Public License for more
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
21 # details.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
22 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
23 # You should have received a copy of the GNU Lesser General Public License
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
24 # along with MayaChemTools; if not, see <http://www.gnu.org/licenses/> or
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
25 # write to the Free Software Foundation Inc., 59 Temple Place, Suite 330,
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
26 # Boston, MA, 02111-1307, USA.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
27 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
28
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
29 use strict;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
30 use Carp;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
31 use Exporter;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
32 use Scalar::Util ();
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
33 use Parsers::YYLexer;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
34
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
35 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
36
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
37 @ISA = qw(Parsers::YYLexer Exporter);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
38 @EXPORT = qw();
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
39 @EXPORT_OK = qw();
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
40
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
41 %EXPORT_TAGS = (all => [@EXPORT, @EXPORT_OK]);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
42
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
43 # Setup class variables...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
44 my($ClassName, $YYTabFile, @YYLexerTokensSpec);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
45 _InitializeClass();
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
46
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
47 # Overload Perl functions...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
48 use overload '""' => 'StringifySimpleCalcYYLexer';
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
49
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
50 # Class constructor...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
51 sub new {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
52 my($Class, $Input) = @_;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
53 my(@TokensSpec);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
54
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
55 # Initialize object...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
56 my $This = $Class->SUPER::new($Input, @YYLexerTokensSpec);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
57 bless $This, ref($Class) || $Class;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
58 $This->_InitializeYYLexer();
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
59
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
60 return $This;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
61 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
62
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
63 # Initialize object data...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
64 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
65 sub _InitializeYYLexer {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
66 my($This) = @_;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
67
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
68 # Setup default YYTabFile containing mapping of token names to numbers...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
69 $This->SetupYYTabFile($YYTabFile);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
70
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
71 return $This;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
72 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
73
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
74 # Initialize class ...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
75 sub _InitializeClass {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
76 #Class name...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
77 $ClassName = __PACKAGE__;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
78
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
79 # Setup default token table file...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
80 $YYTabFile = "Parsers/SimpleCalcParser.tab.ph";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
81
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
82 # Setup default lexer tokens specs...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
83 @YYLexerTokensSpec = (
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
84 [ 'LETTER', qr/[a-zA-Z]/ ],
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
85 [ 'NUMBER', qr/\d+/ ],
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
86 [ 'SPACE', qr/[ ]*/, sub { my($This, $TokenLabel, $MatchedText) = @_; return ''; } ],
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
87 [ 'NEWLINE', qr/(?:\r\n|\r|\n)/, sub { my($This, $TokenLabel, $MatchedText) = @_; return "\n"; } ],
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
88 [ 'CHAR', qr/./ ]
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
89 );
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
90 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
91
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
92 # Is it a lexer object?
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
93 sub _IsSimpleCalcYYLexer {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
94 my($Object) = @_;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
95
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
96 return (Scalar::Util::blessed($Object) && $Object->isa($ClassName)) ? 1 : 0;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
97 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
98
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
99 # Return a string containing information about lexer...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
100 sub StringifySimpleCalcYYLexer {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
101 my($This) = @_;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
102 my($SimleCalcYYLexerString);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
103
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
104 $SimleCalcYYLexerString = "SimpleCalcYYLexer: PackageName: $ClassName; " . $This->_GetYYLexerInfoString();
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
105
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
106 return $SimleCalcYYLexerString;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
107 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
108
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
109 1;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
110
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
111 __END__
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
112
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
113 =head1 NAME
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
114
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
115 Parsers::SimpleCalcYYLexer
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
116
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
117 =head1 SYNOPSIS
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
118
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
119 use Parsers::SimpleCalcYYLexer;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
120
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
121 use Parsers::SimpleCalcYYLexer qw(:all);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
122
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
123 =head1 DESCRIPTION
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
124
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
125 B<SimpleCalcYYLexer> class provides the following methods:
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
126
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
127 new, YYLex, GetYYLex, StringifySimpleCalcYYLexer
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
128
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
129 B<Parser::SimpleCalcYYLexer> class is derived from B<Parser::YYLexer> class, which in
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
130 turn is derived from base class B<Parser::Lexer> that provides all the underlying
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
131 lexer functionality. B<SimpleCalcYYLexer> class is designed to be used with
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
132 B<yyparse> code generated by running B<byacc> on a parser defined using
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
133 parser definition B<SimpleCalcParser.yy> file.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
134
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
135 The parser package and token table files, B<SimpleCalcParser.pm> and B<SimpleCalcParser.tab.ph>,
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
136 are automatically generated from parser grammar definition file, B<SimpleCalcParser.yy>, using
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
137 byacc available through perl-byacc1.8 modified with perl5-byacc-patches-0.5 for generation
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
138 of object oriented parser:
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
139
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
140 byacc -l -P -d -b SimpleCalcParser SimpleCalcParser.yy
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
141 mv SimpleCalcParser.tab.pl SimpleCalcParser.pm
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
142
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
143 B<SimpleCalcYYLexer.pm> class implements a lexer for a simple calculator and is provided
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
144 to highlight usasge of B<YYLex> through B<yyparse>.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
145
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
146 The default specification of lexer tokens for B<SimpleCalcYYLexer.pm> includes:
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
147
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
148 @YYLexerTokensSpec = (
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
149 [ 'LETTER', qr/[a-zA-Z]/ ],
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
150 [ 'NUMBER', qr/\d+/ ],
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
151 [ 'SPACE', qr/[ ]*/,
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
152 sub { my($This, $TokenLabel, $MatchedText) = @_; return ''; }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
153 ],
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
154 [ 'NEWLINE', qr/(?:\r\n|\r|\n)/,
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
155 sub { my($This, $TokenLabel, $MatchedText) = @_; return "\n"; }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
156 ],
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
157 [ 'CHAR', qr/./ ]
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
158 );
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
159
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
160 The default B<SimpleCalcParser.tab.ph> file containing token identifiers for
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
161 B<SimpleCalcParser.yy> includes:
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
162
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
163 $NUMBER=257;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
164 $LETTER=258;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
165
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
166 =head2 METHODS
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
167
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
168 =over 4
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
169
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
170 =item B<new>
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
171
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
172 $SimpleCalcYYLexer = new Parsers::SimpleCalcYYLexer($Input);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
173
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
174 Using specified I<Input>, B<new> method generates a new B<SimpleCalcYYLexer>
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
175 and returns a reference to newly created B<SimpleCalcYYLexer> object.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
176
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
177 Examples:
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
178
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
179 # Input string...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
180 $InputText = "3 + 4 +6\nx=3\ny=5\nx+y\nx+z\n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
181
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
182 $YYLexer = new Parsers::SimpleCalcYYLexer($InputText);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
183 $YYLex = $YYLexer->GetYYLex();
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
184
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
185 $Debug = 0;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
186 $CalcParser = new Parsers::SimpleCalcParser($YYLex,
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
187 \&Parsers::SimpleCalcParser::yyerror, $Debug);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
188 $Value = $SimpleCalcParser->yyparse();
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
189 print "Value: $Value\n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
190
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
191 # Input file...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
192 $InputFile = "Input.txt";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
193 open INPUTFILE, "$InputFile" or die "Couldn't open $InputFile: $!\n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
194 $YYLexer = new Parsers::SimpleCalcYYLexer($InputFile);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
195 $YYLex = $YYLexer->GetYYLex();
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
196
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
197 $CalcParser = new Parsers::SimpleCalcParser($YYLex,
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
198 \&Parsers::SimpleCalcParser::yyerror);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
199 $Value = $SimpleCalcParser->yyparse();
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
200 print "Value: $Value\n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
201
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
202 # Input file iterator...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
203 $InputFile = "TestSimpleCalcParser.txt";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
204 open INPUTFILE, "$InputFile" or die "Couldn't open $InputFile: $!\n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
205 $InputIterator = sub { return <INPUTFILE>; };
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
206 $YYLexer = new Parsers::SimpleCalcYYLexer($InputIterator);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
207 $YYLex = $YYLexer->GetYYLex();
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
208
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
209 $CalcParser = new Parsers::SimpleCalcParser($YYLex,
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
210 \&Parsers::SimpleCalcParser::yyerror);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
211 $Value = $SimpleCalcParser->yyparse();
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
212 print "Value: $Value\n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
213
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
214 =item B<StringifySimpleCalcYYLexer>
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
215
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
216 $YYLexerString = $YYLexer->StringifySimpleCalcYYLexer();
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
217
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
218 Returns a string containing information about I<YYLexer> object.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
219
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
220 =back
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
221
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
222 =head1 AUTHOR
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
223
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
224 Manish Sud <msud@san.rr.com>
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
225
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
226 =head1 SEE ALSO
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
227
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
228 Lexer.pm, YYLexer.pm, SimpleCalcParser.yy
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
229
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
230 =head1 COPYRIGHT
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
231
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
232 Copyright (C) 2015 Manish Sud. All rights reserved.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
233
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
234 This file is part of MayaChemTools.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
235
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
236 MayaChemTools is free software; you can redistribute it and/or modify it under
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
237 the terms of the GNU Lesser General Public License as published by the Free
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
238 Software Foundation; either version 3 of the License, or (at your option)
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
239 any later version.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
240
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
241 =cut