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/search/also.frt | 8 -------- amforth-6.5/common/lib/forth2012/search/definitions.frt | 8 -------- amforth-6.5/common/lib/forth2012/search/forth.frt | 10 ---------- amforth-6.5/common/lib/forth2012/search/get-order.frt | 5 ----- amforth-6.5/common/lib/forth2012/search/only.frt | 7 ------- amforth-6.5/common/lib/forth2012/search/order.frt | 9 --------- amforth-6.5/common/lib/forth2012/search/previous.frt | 8 -------- amforth-6.5/common/lib/forth2012/search/set-order.frt | 13 ------------- 8 files changed, 68 deletions(-) delete mode 100644 amforth-6.5/common/lib/forth2012/search/also.frt delete mode 100644 amforth-6.5/common/lib/forth2012/search/definitions.frt delete mode 100644 amforth-6.5/common/lib/forth2012/search/forth.frt delete mode 100644 amforth-6.5/common/lib/forth2012/search/get-order.frt delete mode 100644 amforth-6.5/common/lib/forth2012/search/only.frt delete mode 100644 amforth-6.5/common/lib/forth2012/search/order.frt delete mode 100644 amforth-6.5/common/lib/forth2012/search/previous.frt delete mode 100644 amforth-6.5/common/lib/forth2012/search/set-order.frt (limited to 'amforth-6.5/common/lib/forth2012/search') diff --git a/amforth-6.5/common/lib/forth2012/search/also.frt b/amforth-6.5/common/lib/forth2012/search/also.frt deleted file mode 100644 index 8934ce4..0000000 --- a/amforth-6.5/common/lib/forth2012/search/also.frt +++ /dev/null @@ -1,8 +0,0 @@ -\ duplicate first wordlist entry - -\ #require get-order.frt -\ #require set-order.frt - -: also ( -- ) - get-order over swap 1+ set-order -; diff --git a/amforth-6.5/common/lib/forth2012/search/definitions.frt b/amforth-6.5/common/lib/forth2012/search/definitions.frt deleted file mode 100644 index 7ab89f0..0000000 --- a/amforth-6.5/common/lib/forth2012/search/definitions.frt +++ /dev/null @@ -1,8 +0,0 @@ -\ Make the compilation word list the same as the current first word list in the search order. - -\ #require get-order.frt - -: definitions ( -- ) - get-order over set-current - 0 ?do drop loop \ clean up -; diff --git a/amforth-6.5/common/lib/forth2012/search/forth.frt b/amforth-6.5/common/lib/forth2012/search/forth.frt deleted file mode 100644 index 77d6e6f..0000000 --- a/amforth-6.5/common/lib/forth2012/search/forth.frt +++ /dev/null @@ -1,10 +0,0 @@ -\ replace the first search order entry -\ with forth-wordlist - -\ #require get-order.frt -\ #require set-order.frt - -: forth - get-order nip - forth-wordlist swap set-order -; diff --git a/amforth-6.5/common/lib/forth2012/search/get-order.frt b/amforth-6.5/common/lib/forth2012/search/get-order.frt deleted file mode 100644 index 958df7a..0000000 --- a/amforth-6.5/common/lib/forth2012/search/get-order.frt +++ /dev/null @@ -1,5 +0,0 @@ -\ get the ORDER stack - -: get-order - cfg-order get-stack -; \ No newline at end of file diff --git a/amforth-6.5/common/lib/forth2012/search/only.frt b/amforth-6.5/common/lib/forth2012/search/only.frt deleted file mode 100644 index 11d1a22..0000000 --- a/amforth-6.5/common/lib/forth2012/search/only.frt +++ /dev/null @@ -1,7 +0,0 @@ -\ sets the system specific forth wordlist - -\ #require set-order.frt - -: only - forth-wordlist 1 set-order -; diff --git a/amforth-6.5/common/lib/forth2012/search/order.frt b/amforth-6.5/common/lib/forth2012/search/order.frt deleted file mode 100644 index b0c4057..0000000 --- a/amforth-6.5/common/lib/forth2012/search/order.frt +++ /dev/null @@ -1,9 +0,0 @@ -\ print the wids of the current word list and the search order - -\ #require get-order.frt - -: order ( -- ) - get-current u. cr - get-order dup u. - 0 ?do u. space loop -; diff --git a/amforth-6.5/common/lib/forth2012/search/previous.frt b/amforth-6.5/common/lib/forth2012/search/previous.frt deleted file mode 100644 index 8d78394..0000000 --- a/amforth-6.5/common/lib/forth2012/search/previous.frt +++ /dev/null @@ -1,8 +0,0 @@ -\ remove the first entry in the search order list - -\ #require get-order.frt -\ #require set-order.frt - -: previous - get-order nip 1- set-order -; diff --git a/amforth-6.5/common/lib/forth2012/search/set-order.frt b/amforth-6.5/common/lib/forth2012/search/set-order.frt deleted file mode 100644 index 5969ea3..0000000 --- a/amforth-6.5/common/lib/forth2012/search/set-order.frt +++ /dev/null @@ -1,13 +0,0 @@ -\ set a new ORDER stack - -: set-order - dup 0= if -50 throw then \ no empty search order stack - cfg-order set-stack -; - -\ A better check would be -\ : set-order -\ dup 0 [ s" wordlists" environment search-wordlist drop execute ] literal -\ within if cfg-order set-stack else -50 throw then -\ ; -\ \ No newline at end of file -- cgit v1.2.3