package org.paneris.bibliomania;
   
   import org.melati.poem.ValidationPoemException;
   import org.paneris.bibliomania.generated.BookFormatBase;
   
   import org.apache.oro.text.regex.MalformedPatternException;
   import org.apache.oro.text.regex.Perl5Compiler;
   import org.apache.oro.text.regex.Perl5Pattern;
   
  public class BookFormat extends BookFormatBase {
    public BookFormat() {}
  
    private Perl5Pattern regexp = null;
    private boolean regexpValid = true;
  
    public void setDescriptionregexp(String re) {
      try {
        Perl5Pattern newRegexp = (Perl5Pattern)new Perl5Compiler().compile(
                                     re, Perl5Compiler.CASE_INSENSITIVE_MASK);
        super.setDescriptionregexp(re);
        regexp = newRegexp;
        regexpValid = true;
      }
      catch (MalformedPatternException e) {
        throw new ValidationPoemException(null, e);
      }
    }
  
    public Perl5Pattern getDescriptionPerl5Regexp() {
      if (!regexpValid)
        return null;
  
      if (regexp != null) 
        return regexp;
      else
        try {
          regexp =
              (Perl5Pattern)new Perl5Compiler().compile(
                  getDescriptionregexp(), Perl5Compiler.CASE_INSENSITIVE_MASK);
          regexpValid = true;
          return regexp;
        }
        catch (MalformedPatternException e) {
          regexpValid = false;
          return regexp;
        }
    }
  }