#!/usr/bin/perl
###########################################################-*-mode:cperl-*-
##                                                                       ##
##                           Cepstral, LLC                               ##
##                        Copyright (c) 2001                             ##
##                        All Rights Reserved.                           ##
##                                                                       ##
##  Permission is hereby granted, free of charge, to use and distribute  ##
##  this software and its documentation without restriction, including   ##
##  without limitation the rights to use, copy, modify, merge, publish,  ##
##  distribute, sublicense, and/or sell copies of this work, and to      ##
##  permit persons to whom this work is furnished to do so, subject to   ##
##  the following conditions:                                            ##
##   1. The code must retain the above copyright notice, this list of    ##
##      conditions and the following disclaimer.                         ##
##   2. Any modifications must be clearly marked as such.                ##
##   3. Original authors' names are not deleted.                         ##
##   4. The authors' names are not used to endorse or promote products   ##
##      derived from this software without specific prior written        ##
##      permission.                                                      ##
##                                                                       ##
##  CEPSTRAL, LLC AND THE CONTRIBUTORS TO THIS WORK DISCLAIM ALL         ##
##  WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED       ##
##  WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL         ##
##  CEPSTRAL, LLC NOR THE CONTRIBUTORS BE LIABLE FOR ANY SPECIAL,        ##
##  INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER          ##
##  RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION    ##
##  OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR  ##
##  IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.          ##
##                                                                       ##
###########################################################################
##                                                                       ##
##  Output compiled regexes for us_text.c                                ##
##                                                                       ##
###########################################################################

%RXS = (
	ordinal_number => "[0-9][0-9,]*\\(th\\|TH\\|st\\|ST\\|nd\\|ND\\|rd\\|RD\\)",
	hasvowel => ".*[aeiouAEIOU].*",
	usmoney => "\\\$[0-9,]+\\(\\.[0-9]+\\)?",
	illion => ".*illion",
	romannums => "\\(II?I?\\|IV\\|VI?I?I?\\|IX\\|X[VIX]*\\)",
	drst => "\\([dD][Rr]\\|[Ss][tT]\\)",
	numess => "[0-9]+s",
	sevenphonenumber => "[0-9][0-9][0-9]-[0-9][0-9][0-9][0-9]",
	fourdigits => "[0-9][0-9][0-9][0-9]",
	threedigits => "[0-9][0-9][0-9]",
       );

while (my ($n, $r) = each %RXS) {
    system './regexcomp', $n, $r;
}

foreach my $n (keys %RXS) {
    print "const cst_regex *$n = &${n}_rx;\n";
}