DataMuseum.dk

top - download

    Length: 622 (0x26e)
    Types: TextFile
    Names: »expand2.sed«

└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
    └─ ⟦this⟧ »EUUGD11/euug-87hel/sec1/ispell/expand2.sed« 

TextFile

/^[^/]*$/n
/\/Z/ {
    /^[^/]*E\// {
	s@\([^/]*\)\([/A-Z]*\)/Z@\1RS\
\1\2@; P; D
    }
    /^[^/]*[^AEIOU]Y\// {
	s@\([^/]*\)Y\([/A-Z]*\)/Z@\1IERS\
\1Y\2@; P; D
    }
    s@\([^/]*\)\([/A-Z]*\)/Z@\1ERS\
\1\2@; P; D
}
/\/S/ {
    /^[^/]*[^AEIOU]Y\// {
	s@\([^/]*\)Y\([/A-Z]*\)/S@\1IES\
\1Y\2@; P; D
    }
    /^[^/]*[SXZH]\// {
	s@\([^/]*\)\([/A-Z]*\)/S@\1ES\
\1\2@; P; D
    }
    s@\([^/]*\)\([/A-Z]*\)/S@\1S\
\1\2@; P; D
}
/\/P/ {
    /^[^/]*[^AEIOU]Y\// {
	s@\([^/]*\)Y\([/A-Z]*\)/P@\1INESS\
\1Y\2@; P; D
    }
    s@\([^/]*\)\([/A-Z]*\)/P@\1NESS\
\1\2@; P; D
}
/\/M/ {
    s@\([^/]*\)\([/A-Z]*\)/M@\1'S\
\1\2@; P; D
}