line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package AI::Prolog::Parser::PreProcessor; |
2
|
|
|
|
|
|
|
$REVISION = '$Id: PreProcessor.pm,v 1.2 2005/08/06 23:28:40 ovid Exp $'; |
3
|
|
|
|
|
|
|
|
4
|
|
|
|
|
|
|
$VERSION = '0.01'; |
5
|
13
|
|
|
13
|
|
7632
|
use strict; |
|
13
|
|
|
|
|
29
|
|
|
13
|
|
|
|
|
504
|
|
6
|
13
|
|
|
13
|
|
68
|
use warnings; |
|
13
|
|
|
|
|
26
|
|
|
13
|
|
|
|
|
469
|
|
7
|
|
|
|
|
|
|
|
8
|
13
|
|
|
13
|
|
65
|
use aliased 'AI::Prolog::Parser::PreProcessor::Math'; |
|
13
|
|
|
|
|
61
|
|
|
13
|
|
|
|
|
81
|
|
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
sub process { |
11
|
79
|
|
|
79
|
0
|
1851
|
my ($class, $prolog) = @_; |
12
|
|
|
|
|
|
|
# why the abstraction? Because I want DCGs in here, too. Maybe |
13
|
|
|
|
|
|
|
# other stuff ... |
14
|
79
|
|
|
|
|
408
|
$prolog = Math->process($prolog); |
15
|
79
|
|
|
|
|
736
|
return $prolog; |
16
|
|
|
|
|
|
|
} |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
1; |
19
|
|
|
|
|
|
|
|
20
|
|
|
|
|
|
|
__END__ |