view release on metacpan or  search on metacpan

lib/Lingua/Shakespeare.pm  view on Meta::CPAN

# 1 "y.tab.pl"
#pragma GCC set_debug_pwd "/Volumes/gbarr/Desktop/spl-1.2.1/Lingua-Shakespear"
# 1 "<built-in>"
# 1 "<command line>"
# 1 "y.tab.pl"
#$yysccsid = "@(#)yaccpar 1.8 (Berkeley) 01/20/91 (Perl 2.0 12/31/92)";
# 2 "Shakespeare.y"
package Lingua::Shakespeare;

$VERSION = "1.00";

use strict;
use Filter::Util::Call;

my ($yychar, $yyerrflag, $yynerrs, $yyn, @yyss, $yyssp, $yystate, @yyvs, $yyvsp);
my ($yylval, $yys, $yym, $yyval, %yystate, $yydebug, $yylineno, $output);

my ($num_errors, $num_warnings, @token, $current_act, $current_scene);

sub import {
  filter_add({});
  $yylineno = (caller)[2]+1;
  1;
}

sub unimport { filter_del() }

  my $preamble = <<'PREAMBLE';
require Lingua::Shakespeare::Play;
my ($comp1, $comp2);
my $play = Lingua::Shakespeare::Play->new;
$|=1;
PREAMBLE

sub varname {
  (my $name = lc shift) =~ tr/ /_/;
  '$' . $name;
}

sub set_line { "#line $yylineno\n" }
# 39 "y.tab.pl"
sub constARTICLE () { 257 }
sub constBE () { 258 }
sub constCHARACTER () { 259 }
sub constFIRST_PERSON () { 260 }
sub constFIRST_PERSON_POSSESSIVE () { 261 }
sub constFIRST_PERSON_REFLEXIVE () { 262 }
sub constNEGATIVE_ADJECTIVE () { 263 }
sub constNEGATIVE_COMPARATIVE () { 264 }
sub constNEGATIVE_NOUN () { 265 }
sub constNEUTRAL_ADJECTIVE () { 266 }
sub constNEUTRAL_NOUN () { 267 }
sub constNOTHING () { 268 }
sub constPOSITIVE_ADJECTIVE () { 269 }
sub constPOSITIVE_COMPARATIVE () { 270 }
sub constPOSITIVE_NOUN () { 271 }
sub constSECOND_PERSON () { 272 }
sub constSECOND_PERSON_POSSESSIVE () { 273 }
sub constSECOND_PERSON_REFLEXIVE () { 274 }
sub constTHIRD_PERSON_POSSESSIVE () { 275 }
sub constCOLON () { 276 }
sub constCOMMA () { 277 }
sub constEXCLAMATION_MARK () { 278 }
sub constLEFT_BRACKET () { 279 }
sub constPERIOD () { 280 }
sub constQUESTION_MARK () { 281 }
sub constRIGHT_BRACKET () { 282 }
sub constAND () { 283 }
sub constAS () { 284 }
sub constENTER () { 285 }
sub constEXEUNT () { 286 }
sub constEXIT () { 287 }
sub constHEART () { 288 }
sub constIF_NOT () { 289 }
sub constIF_SO () { 290 }
sub constLESS () { 291 }
sub constLET_US () { 292 }
sub constLISTEN_TO () { 293 }
sub constMIND () { 294 }
sub constMORE () { 295 }
sub constNOT () { 296 }
sub constOPEN () { 297 }