- falsepos=`sed 's,^\\\|,,;s,^,\\\\(,;s,$,\\\\),' < "$falsepos_name"`
+ falsepos=`sed 's,^\\\|,,;s,^.,\\\\(&,;s,.$,&\\\\),' < "$falsepos_name"`
+ orfalseneg=`cat < "$falseneg_name"`
+
+ case $orfalseneg in
+ "")
+ blobfast=$blobseq
+ bloblong=$blobfseq
+ ;;
+ *)
+ blobfast="\\($blobseq$orfalseneg\\)"
+ bloblong="\\($blobfseq$orfalseneg\\)"
+ ;;
+ esac
+
+ # Regular expression that matches one or more blobs without
+ # intervening line breaks.
+ sblobctx="\\([^\\n]*$bloblong\\)\\+"
+
+ # Regular expression that matches the context for a long blob match.
+ lblobctx="\\($initblob\\|$defineblob\\|$asmblob\\|$sblobctx\\)"