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;

       }

   }

 }