1 # This file is part of NIT ( http://www.nitlanguage.org ).
3 # Copyright 2008 Jean Privat <jean@pryen.org>
5 # Licensed under the Apache License, Version 2.0 (the "License");
6 # you may not use this file except in compliance with the License.
7 # You may obtain a copy of the License at
9 # http://www.apache.org/licenses/LICENSE-2.0
11 # Unless required by applicable law or agreed to in writing, software
12 # distributed under the License is distributed on an "AS IS" BASIS,
13 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
14 # See the License for the specific language governing permissions and
15 # limitations under the License.
17 # Program used to test the NIT parser
22 class PrintTreeVisitor
25 redef fun visit
(n
: nullable ANode)
27 if n
== null then return
29 printn
(" " * _rank
, n
.to_s
, " ... ", n
.location
, "\n")
31 printn
(" " * _rank
, n
.location
, "\n")
45 var only_lexer
= false
49 while not args
.is_empty
and args
.first
.first
== '-' do
50 if args
.first
== "-n" then
52 else if args
.first
== "-l" then
54 else if args
.first
== "-p" then
56 else if args
.first
== "-e" then
58 else if args
.first
== "-h" or args
.first
== "-?" then
61 stderr
.write
("Unknown option {args.first}.\n")
67 if args
.is_empty
or need_help
then
69 print
(" test_parser [options]... <filename.nit>...")
71 print
(" -n do not print anything")
72 print
(" -l only lexer")
73 print
(" -p lexer and parser (default)")
74 print
(" -e instead on files, each argument is a content to parse")
75 print
(" -h print this help")
80 source
= new SourceFile.from_string
("", a
)
82 var f
= new IFStream.open
(a
)
83 source
= new SourceFile(a
, f
)
86 var lexer
= new Lexer(source
)
88 var token
= lexer
.next
89 while not token
isa EOF do
91 print
("Read token at {token.location} text='{token.text}'")
96 var parser
= new Parser(lexer
)
97 var tree
= parser
.parse
99 var error
= tree
.n_eof
100 if error
isa AError then
101 print
("Error at {error.location}:\n\t{error.message}")
106 (new PrintTreeVisitor).enter_visit
(tree
)