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/core/2over.frt | 8 -------- amforth-6.5/common/lib/forth2012/core/2swap.frt | 3 --- amforth-6.5/common/lib/forth2012/core/action-of.frt | 14 -------------- amforth-6.5/common/lib/forth2012/core/blank.frt | 4 ---- amforth-6.5/common/lib/forth2012/core/buffer.frt | 6 ------ amforth-6.5/common/lib/forth2012/core/char-plus.frt | 3 --- amforth-6.5/common/lib/forth2012/core/chars.frt | 3 --- amforth-6.5/common/lib/forth2012/core/count.frt | 3 --- amforth-6.5/common/lib/forth2012/core/dot-paren.frt | 5 ----- amforth-6.5/common/lib/forth2012/core/erase.frt | 6 ------ amforth-6.5/common/lib/forth2012/core/find.frt | 21 --------------------- amforth-6.5/common/lib/forth2012/core/is.frt | 12 ------------ amforth-6.5/common/lib/forth2012/core/move.frt | 5 ----- amforth-6.5/common/lib/forth2012/core/source-id.frt | 5 ----- .../common/lib/forth2012/core/star-slash.frt | 4 ---- amforth-6.5/common/lib/forth2012/core/values.frt | 16 ---------------- 16 files changed, 118 deletions(-) delete mode 100644 amforth-6.5/common/lib/forth2012/core/2over.frt delete mode 100644 amforth-6.5/common/lib/forth2012/core/2swap.frt delete mode 100644 amforth-6.5/common/lib/forth2012/core/action-of.frt delete mode 100644 amforth-6.5/common/lib/forth2012/core/blank.frt delete mode 100644 amforth-6.5/common/lib/forth2012/core/buffer.frt delete mode 100644 amforth-6.5/common/lib/forth2012/core/char-plus.frt delete mode 100644 amforth-6.5/common/lib/forth2012/core/chars.frt delete mode 100644 amforth-6.5/common/lib/forth2012/core/count.frt delete mode 100644 amforth-6.5/common/lib/forth2012/core/dot-paren.frt delete mode 100644 amforth-6.5/common/lib/forth2012/core/erase.frt delete mode 100644 amforth-6.5/common/lib/forth2012/core/find.frt delete mode 100644 amforth-6.5/common/lib/forth2012/core/is.frt delete mode 100644 amforth-6.5/common/lib/forth2012/core/move.frt delete mode 100644 amforth-6.5/common/lib/forth2012/core/source-id.frt delete mode 100644 amforth-6.5/common/lib/forth2012/core/star-slash.frt delete mode 100644 amforth-6.5/common/lib/forth2012/core/values.frt (limited to 'amforth-6.5/common/lib/forth2012/core') diff --git a/amforth-6.5/common/lib/forth2012/core/2over.frt b/amforth-6.5/common/lib/forth2012/core/2over.frt deleted file mode 100644 index cf614ca..0000000 --- a/amforth-6.5/common/lib/forth2012/core/2over.frt +++ /dev/null @@ -1,8 +0,0 @@ -\ 2over ( w1 w2 w3 w4 -- w1 w2 w3 w4 w1 w2 ) core two_over -: 2over - >r >r - over over - r> - rot rot - r> - rot rot ; diff --git a/amforth-6.5/common/lib/forth2012/core/2swap.frt b/amforth-6.5/common/lib/forth2012/core/2swap.frt deleted file mode 100644 index 773228e..0000000 --- a/amforth-6.5/common/lib/forth2012/core/2swap.frt +++ /dev/null @@ -1,3 +0,0 @@ -\ 2swap ( w1 w2 w3 w4 -- w3 w4 w1 w2 ) core two_swap -: 2swap - rot >r rot r> ; diff --git a/amforth-6.5/common/lib/forth2012/core/action-of.frt b/amforth-6.5/common/lib/forth2012/core/action-of.frt deleted file mode 100644 index 894b399..0000000 --- a/amforth-6.5/common/lib/forth2012/core/action-of.frt +++ /dev/null @@ -1,14 +0,0 @@ -\ ******************************************* -\ action-of depends on defer@ -\ ******************************************* - -\ #requires postpone.frt - -: action-of - state @ - if - postpone ['] postpone defer@ - else - ' defer@ - then -; immediate diff --git a/amforth-6.5/common/lib/forth2012/core/blank.frt b/amforth-6.5/common/lib/forth2012/core/blank.frt deleted file mode 100644 index a99ae5f..0000000 --- a/amforth-6.5/common/lib/forth2012/core/blank.frt +++ /dev/null @@ -1,4 +0,0 @@ -\ fill with blanks -: blank ( addr n -- ) - bl fill -; diff --git a/amforth-6.5/common/lib/forth2012/core/buffer.frt b/amforth-6.5/common/lib/forth2012/core/buffer.frt deleted file mode 100644 index 10db671..0000000 --- a/amforth-6.5/common/lib/forth2012/core/buffer.frt +++ /dev/null @@ -1,6 +0,0 @@ -\ allocate a buffer and give it a name in the dictionary -\ see http://www.forth200x.org/buffer.html - -: buffer: ( n "name" ) - \ variable already allocates 1 cell - variable 1 cells - allot ; diff --git a/amforth-6.5/common/lib/forth2012/core/char-plus.frt b/amforth-6.5/common/lib/forth2012/core/char-plus.frt deleted file mode 100644 index c71230e..0000000 --- a/amforth-6.5/common/lib/forth2012/core/char-plus.frt +++ /dev/null @@ -1,3 +0,0 @@ -\ a character has 1 bytes -: char+ 1+ ; - diff --git a/amforth-6.5/common/lib/forth2012/core/chars.frt b/amforth-6.5/common/lib/forth2012/core/chars.frt deleted file mode 100644 index 254b3dc..0000000 --- a/amforth-6.5/common/lib/forth2012/core/chars.frt +++ /dev/null @@ -1,3 +0,0 @@ -\ a character has 1 byte, multiply by 1 is easy -: chars ; immediate \ does nothing at all - diff --git a/amforth-6.5/common/lib/forth2012/core/count.frt b/amforth-6.5/common/lib/forth2012/core/count.frt deleted file mode 100644 index 339da65..0000000 --- a/amforth-6.5/common/lib/forth2012/core/count.frt +++ /dev/null @@ -1,3 +0,0 @@ - -\ ( addr -- addr+1 len ) -: count dup 1+ swap c@ ; diff --git a/amforth-6.5/common/lib/forth2012/core/dot-paren.frt b/amforth-6.5/common/lib/forth2012/core/dot-paren.frt deleted file mode 100644 index 6266725..0000000 --- a/amforth-6.5/common/lib/forth2012/core/dot-paren.frt +++ /dev/null @@ -1,5 +0,0 @@ - -: .( \ (s -- ) - [char] ) parse type -; immediate - diff --git a/amforth-6.5/common/lib/forth2012/core/erase.frt b/amforth-6.5/common/lib/forth2012/core/erase.frt deleted file mode 100644 index eb23f3b..0000000 --- a/amforth-6.5/common/lib/forth2012/core/erase.frt +++ /dev/null @@ -1,6 +0,0 @@ -\ fill a memory area with zeros - -: erase ( addr n -- ) - 0 fill -; - diff --git a/amforth-6.5/common/lib/forth2012/core/find.frt b/amforth-6.5/common/lib/forth2012/core/find.frt deleted file mode 100644 index a289cc8..0000000 --- a/amforth-6.5/common/lib/forth2012/core/find.frt +++ /dev/null @@ -1,21 +0,0 @@ -\ #require count.frt - -: find ( addr -- addr 0 | xt -1 | xt 1 ) - dup count find-xt dup - if rot drop then -; - -\ \ find-xt is using the order stack -\ \ with map-stack as iterator. -\ : (find-xt) ( addr len wid -- addr len 0 | xt +/-1 -1 ) -\ >r 2dup r> search-wordlist -\ dup if -\ >r nip nip r> -1 -\ then -\ ; -\ -\ : find-xt -\ ['] (find-xt) 'ORDER map-stack -\ 0= if 2drop 0 then -\ ; - diff --git a/amforth-6.5/common/lib/forth2012/core/is.frt b/amforth-6.5/common/lib/forth2012/core/is.frt deleted file mode 100644 index 9ac18ea..0000000 --- a/amforth-6.5/common/lib/forth2012/core/is.frt +++ /dev/null @@ -1,12 +0,0 @@ - -\ ******************************************* -\ IS depends on defer! -\ ******************************************* - -: is - state @ if - postpone ['] postpone defer! - else - ' defer! - then -; immediate diff --git a/amforth-6.5/common/lib/forth2012/core/move.frt b/amforth-6.5/common/lib/forth2012/core/move.frt deleted file mode 100644 index 795a8ef..0000000 --- a/amforth-6.5/common/lib/forth2012/core/move.frt +++ /dev/null @@ -1,5 +0,0 @@ -\ respect overlapping memory regions a choose -\ the proper cmove -: move - >r 2dup u< if r> cmove> else r> cmove then -; diff --git a/amforth-6.5/common/lib/forth2012/core/source-id.frt b/amforth-6.5/common/lib/forth2012/core/source-id.frt deleted file mode 100644 index aeea963..0000000 --- a/amforth-6.5/common/lib/forth2012/core/source-id.frt +++ /dev/null @@ -1,5 +0,0 @@ - -\ source-id is currently not used -: source-id ( -- f ) - 0 \ always user input device -; diff --git a/amforth-6.5/common/lib/forth2012/core/star-slash.frt b/amforth-6.5/common/lib/forth2012/core/star-slash.frt deleted file mode 100644 index 4a47ed9..0000000 --- a/amforth-6.5/common/lib/forth2012/core/star-slash.frt +++ /dev/null @@ -1,4 +0,0 @@ - -\ #require star-slash-mod.frt - -: */ */mod nip ; diff --git a/amforth-6.5/common/lib/forth2012/core/values.frt b/amforth-6.5/common/lib/forth2012/core/values.frt deleted file mode 100644 index 08bf0a1..0000000 --- a/amforth-6.5/common/lib/forth2012/core/values.frt +++ /dev/null @@ -1,16 +0,0 @@ - -: Uvalue ( n offs -- ) - (value) - dup , - ['] Udefer@ , - ['] Udefer! , - up@ + ! -; - -: Rvalue ( n -- ) - (value) - here , - ['] Rdefer@ , - ['] Rdefer! , - here ! 2 allot -; -- cgit v1.2.3