[BACK]Return to x_chef.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / localize / localize

Diff for /loncom/localize/localize/x_chef.pm between versions 1.3 and 1.5

version 1.3, 2007/11/06 19:35:12 version 1.5, 2011/11/09 13:14:16
Line 41  use base qw(Apache::localize); Line 41  use base qw(Apache::localize);
 'date_days'    => 'So,Mu,To,Ve,Th,Fr,Se',  'date_days'    => 'So,Mu,To,Ve,Th,Fr,Se',
 'date_am' => 'em',  'date_am' => 'em',
 'date_pm' => 'pm',  'date_pm' => 'pm',
 'textual_remote_display' => 'on',  
 'htmlarea_lang' => 'en'  'htmlarea_lang' => 'en'
 );  );
   
Line 96  sub create_parser { Line 95  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 119  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 155  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;
Removed from v.1.3  
changed lines
  Added in v.1.5

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>