1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
/* Copyright (C) 2012 by Laszlo Kajan, Technical University of Munich, Germany
This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.8 or,
at your option, any later version of Perl 5 you may have available. */
%module{RG::Blast::Parser};
// /usr/share/doc/libextutils-xspp-perl/examples/Object-WithIntAndString/Object-WithIntAndString.xsp
%name{RG::Blast::Parser} class parser_driver
{
parser_driver( FILE* __istream = stdin, std::string __istream_name = "STDIN" );
~parser_driver();
rostlab::blast::result
parse( bool __trace_parsing=false, bool __trace_scanning=false )
%code{%
try {
RETVAL = THIS->parse(__trace_parsing, __trace_scanning);
}
catch( rostlab::blast::parser_error& e ){ croak("parser error", e.what() ); }
catch( std::exception& e ){ croak("%s", e.what() ); }
catch( ... ){ croak("exception in RG::Blast::Parser"); }
%};
%name{get_trace_scanning} bool
trace_scanning();
%name{set_trace_scanning} void
trace_scanning( bool __b );
rostlab::blast::result
result();
};
// vim:et:ts=4:ai:
|
