# file for checking the anchor.txt file. See anchor.sh for an explanation.

echo 
echo << Reading in the non-starred sme words from anchor.txt >>
echo 
read text intermediateword

define intermwords ;

echo 
echo << Reading in the starred sme words from anchor.txt >>
echo 

read text intermediatestar
define intermstars ;
regex [ intermstars ?* ] ;
define intermstarwords ;
regex [ intermwords | intermstarwords ] ;
invert net ;

define notinanchorlower ;

read regex < inituppercase.regex ;

define uppercasing ;

regex notinanchorlower .o. uppercasing ;

echo 
echo << Done, notinanchor.fst is now updated >>
echo << Usage: cat wordlist | lookup notinanchor.fst >>
echo 
save notinanchor.fst ;