summaryrefslogtreecommitdiff
path: root/support/texaccents/delete.inc
diff options
context:
space:
mode:
Diffstat (limited to 'support/texaccents/delete.inc')
-rw-r--r--support/texaccents/delete.inc21
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
+