From d80736ab6e8e3cad2f1a30c6eaba2d6883dbe967 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 26 Aug 2017 20:31:40 +0200 Subject: Remove AmForth --- amforth-6.5/common/lib/forth2012/string/split.frt | 15 --------------- 1 file changed, 15 deletions(-) delete mode 100644 amforth-6.5/common/lib/forth2012/string/split.frt (limited to 'amforth-6.5/common/lib/forth2012/string/split.frt') diff --git a/amforth-6.5/common/lib/forth2012/string/split.frt b/amforth-6.5/common/lib/forth2012/string/split.frt deleted file mode 100644 index c627ed3..0000000 --- a/amforth-6.5/common/lib/forth2012/string/split.frt +++ /dev/null @@ -1,15 +0,0 @@ -\ Newsgroups: comp.lang.forth -\ Date: Sat, 21 Jun 2014 13:48:57 -0700 (PDT) -\ From: Julian Fondren -\ slightly modified for amforth (rdrop, false) - -\ split a string at the first occurance - -\ #require 2over.frt -\ #require search.frt - -: split ( 'string' 'separator' -- 'before' 'after' -1 | 0 ) - dup >r 2over 2swap search 0= if 2drop 2drop r> drop 0 exit then - 2>r r@ - 2r> r> /string true -; - -- cgit v1.2.3