Guest User

Untitled

a guest
Dec 14th, 2018
76
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.01 KB | None | 0 0
  1. diff -ru lib/Parse/Yapp/Grammar.pm lib/Parse/Yapp/Grammar.pm
  2. --- lib/Parse/Yapp/Grammar.pm Sun Feb 11 16:29:31 2001
  3. +++ lib/Parse/Yapp/Grammar.pm Fri Jun 1 18:28:28 2007
  4. @@ -43,6 +43,20 @@
  5. ###########
  6. # Methods #
  7. ###########
  8. +###########################
  9. +# Method To View Terminal #
  10. +###########################
  11. +sub ShowTerminals {
  12. + my($self)=shift;
  13. + my($terminals) = $$self{GRAMMAR}{TERM};
  14. + my($text);
  15. +
  16. + foreach (sort keys %{$terminals}) {
  17. + $text.=$_."\n" unless ($_ eq chr 0);
  18. + }
  19. + $text;
  20. +}
  21. +
  22. ##########################
  23. # Method To View Grammar #
  24. ##########################
  25. diff -ru yapp yapp
  26. --- yapp Sun Feb 11 16:30:29 2001
  27. +++ yapp Sun Jun 28 15:24:06 2009
  28. @@ -229,6 +229,8 @@
  29. and print OUT "Warnings:\n---------\n$tmp\n";
  30. $tmp=$parser->Conflicts()
  31. and print OUT "Conflicts:\n----------\n$tmp\n";
  32. + print OUT "Terminals:\n----------\n";
  33. + print OUT $parser->ShowTerminals()."\n";
  34. print OUT "Rules:\n------\n";
  35. print OUT $parser->ShowRules()."\n";
  36. print OUT "States:\n-------\n";
Add Comment
Please, Sign In to add comment