/[wait]/branches/CPAN/lib/WAIT/Query/Wais.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /branches/CPAN/lib/WAIT/Query/Wais.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 18 by unknown, Fri Apr 28 15:41:10 2000 UTC revision 19 by ulpfr, Tue May 9 11:29:45 2000 UTC
# Line 5  Line 5 
5  ;# Author          : Ulrich Pfeifer  ;# Author          : Ulrich Pfeifer
6  ;# Created On      : Fri Sep 13 15:54:19 1996  ;# Created On      : Fri Sep 13 15:54:19 1996
7  ;# Last Modified By: Ulrich Pfeifer  ;# Last Modified By: Ulrich Pfeifer
8  ;# Last Modified On: Sun Nov 22 18:44:39 1998  ;# Last Modified On: Sun Nov 22 18:44:28 1998
9  ;# Language        : CPerl  ;# Language        : CPerl
10  ;# Update Count    : 129  ;# Update Count    : 129
11  ;# Status          : Unknown, Use with caution!  ;# Status          : Unknown, Use with caution!
# Line 268  yyloop: while(1) Line 268  yyloop: while(1)
268      $yyval = $yyvs[$yyvsp+1-$yym];      $yyval = $yyvs[$yyvsp+1-$yym];
269      switch:      switch:
270      {      {
        1; # make perl happy if switch empty (Ulrich Pfeifer)  
271  if ($yyn == 5) {  if ($yyn == 5) {
272  { $yyval = $yyval->merge($yyvs[$yyvsp-0]);  { $yyval = $yyval->merge($yyvs[$yyvsp-0]);
273  last switch;  last switch;
# Line 388  last switch; Line 387  last switch;
387  } # yyparse  } # yyparse
388  use strict;  use strict;
389  sub yyerror {  sub yyerror {
390    print "yyeror: @_ $.\n";    warn "yyerror: @_ $.\n";
391  }  }
392    
393  for (qw(and or not phonix soundex)) {  for (qw(and or not phonix soundex)) {
# Line 412  sub yylex1 { Line 411  sub yylex1 {
411    } else {    } else {
412      $verbose = $VERBOSE{$token};      $verbose = $VERBOSE{$token};
413    }    }
414    print "yylex($token=$verbose$val)\n";    warn "yylex($token=$verbose$val)\n";
415    return $token;    return $token;
416  }  }
417    
Legend:
Removed from v.18  
changed lines
  Added in v.19
  ViewVC Help
Powered by ViewVC 1.1.26