diff options
Diffstat (limited to 'support/texaccents/delete.inc')
-rw-r--r-- | support/texaccents/delete.inc | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/support/texaccents/delete.inc b/support/texaccents/delete.inc new file mode 100644 index 0000000000..c6d510fe7c --- /dev/null +++ b/support/texaccents/delete.inc @@ -0,0 +1,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 + |