******************************************
*       DELETE
*       Deletes String in Text
******************************************
#################################################################
# MIT License -  Copyright (c) 2009 Guido Milanese
# See file LICENSE in this package
#################################################################
* Guido Milanese 2004
* removed error message, 2009
* <[email protected]>
* Example:
* String = delete(String,";,:.") ;* deletes any char listed in "..."
       define('delete(String,Txt)')            :(delete_end)
delete
       ~(String ? any(Txt))  :s(freturn)
delete_loop
       String ? any(Txt) = ''                  :s(delete_loop)f(delete_return)
delete_return   delete = String                 :(return)
delete_end

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.