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/avr8/lib/forth2012/core/evaluate.frt | 46 ------------------------ 1 file changed, 46 deletions(-) delete mode 100644 amforth-6.5/avr8/lib/forth2012/core/evaluate.frt (limited to 'amforth-6.5/avr8/lib/forth2012/core/evaluate.frt') diff --git a/amforth-6.5/avr8/lib/forth2012/core/evaluate.frt b/amforth-6.5/avr8/lib/forth2012/core/evaluate.frt deleted file mode 100644 index 80659bc..0000000 --- a/amforth-6.5/avr8/lib/forth2012/core/evaluate.frt +++ /dev/null @@ -1,46 +0,0 @@ -\ evaluate -\ temporarily redirect the input source -\ to string buffer. Return the the previous -\ input source afterwards and continue - -\ #require imove.frt - -\ some helper words -variable strlen -variable str -: source-string str @ strlen @ ; - -\ we have to distinguish between interpreted (RAM) -\ and compiled (Flash) strings. First the RAM -\ strings - -: (evaluate) \ i*x addr len -- j*y - ['] source defer@ >r - >in @ >r - 0 >in ! - strlen ! - str ! - ['] source-string is source - ['] interpret catch - r> >in ! - r> is source - throw -; - -\ the compiled (Flash) strings are transferred -\ to RAM and processed there. -: [evaluate] - ( iaddr len -- ) - dup >r - here imove - here r> (evaluate) -; - -\ a state smart word to decide what to do. -: evaluate - state @ if - postpone [evaluate] - else - (evaluate) - then -; immediate -- cgit v1.2.3