*-- Function EXTREPL *-- Extended REPLACE * Guido Milanese 2005 * guido.milanese@unicatt.it * The function fails if the two strings par1 and par2 are subsets define("extrepl(pass,par1,par2)") :(extrepl_end) extrepl extrepl_bg ((Par1 ? Par2) (Terminal = Par1 " included in " Par2)) :s(freturn) ((Par2 ? Par1) (Terminal = Par2 " included in " Par1)) :s(freturn) extrepl_lp Pass ? Par1 = Par2 :s(extrepl_lp) extrepl_rt extrepl = pass :(return) extrepl_end