#!/usr/bin/perl -s

# regexp - explain the given perl regular expression
# Steve Kinzler, kinzler@cs.indiana.edu, Nov 10
# http://www.cs.indiana.edu/~kinzler/home.html#unix

use YAPE::Regex::Explain;

die "usage: $0 [ -s | -r ] regexp
	-s	just pretty-print the regexp
	-r	just pretty-print the regexp with explanation comments\n"
    if $h;

print YAPE::Regex::Explain->new(qr/$ARGV[0]/)->explain($s ? 'silent' :
						       $r ? 'regexp' : ());