summaryrefslogtreecommitdiff
path: root/support/texaccents/delete.inc
blob: c6d510fe7c0dc65b2e69ceb0389a036653ab0720 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
******************************************
* 	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
* <guido.milanese@unicatt.it>
* 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