version 1.3, 2007/11/06 19:35:12
|
version 1.4, 2007/11/06 20:01:37
|
Line 96 sub create_parser {
|
Line 96 sub create_parser {
|
chef: token(s) /\z/ |
chef: token(s) /\z/ |
|
|
token: end_of_sentence |
token: end_of_sentence |
|
| quant |
| Bbork |
| Bbork |
| an | An |
| an | An |
| au | Au |
| au | Au |
Line 119 sub create_parser {
|
Line 120 sub create_parser {
|
end_of_sentence: /[.?!]+/ /\s+/ { $niw = 0; $i_seen = 0; $Apache::localize::x_chef::result .= $item[1] . "\nBork Bork Bork!\n" } |
end_of_sentence: /[.?!]+/ /\s+/ { $niw = 0; $i_seen = 0; $Apache::localize::x_chef::result .= $item[1] . "\nBork Bork Bork!\n" } |
|
|
Bbork: <reject: $niw> /([Bb]ork)/ ...NW { $Apache::localize::x_chef::result .= "$1" } |
Bbork: <reject: $niw> /([Bb]ork)/ ...NW { $Apache::localize::x_chef::result .= "$1" } |
|
quant: /(\[.+?\])/ { $Apache::localize::x_chef::result .= $1; } |
an: /an/ { $niw = 1; $Apache::localize::x_chef::result .= 'un' } |
an: /an/ { $niw = 1; $Apache::localize::x_chef::result .= 'un' } |
An: /An/ { $niw = 1; $Apache::localize::x_chef::result .= 'Un' } |
An: /An/ { $niw = 1; $Apache::localize::x_chef::result .= 'Un' } |
au: /au/ { $niw = 1; $Apache::localize::x_chef::result .= 'oo' } |
au: /au/ { $niw = 1; $Apache::localize::x_chef::result .= 'oo' } |
Line 154 sub create_parser {
|
Line 156 sub create_parser {
|
}; |
}; |
} |
} |
|
|
|
sub quant { |
|
my $self = shift; |
|
return &chefify2($self->SUPER::quant(@_)); |
|
} |
|
sub numerate { |
|
my $self = shift; |
|
return &chefify2($self->SUPER::numerate(@_)); |
|
} |
|
|
sub chefify2 { |
sub chefify2 { |
my ($str) = @_; |
my ($str) = @_; |
my $backup=$str; |
my $backup=$str; |