Adding infix and parsing example.

examples/infix/infix_ueforth.fs

@@ -0,0 +1,22 @@
+#! /usr/bin/env ueforth
+
+vocabulary infix   infix definitions   also internals
+
+: token ( -- a ) >in @ tib + ;
+: full? ( -- f ) >in @ #tib @ < ;
+: (   token 0
+      begin full? over 0< 0= and while
+        token c@ [char] ( = if 1+ then
+        token c@ [char] ) = if 1- then
+        1 >in +!
+      repeat
+      drop token over - 1- 0 max
+      evaluate ; immediate
+: scarf   +evaluate1 ;
+: enact   state @ if , else execute then ;
+: +   scarf ['] + enact ; immediate
+: -   scarf ['] - enact ; immediate
+: *   scarf ['] * enact ; immediate
+: /   scarf ['] / enact ; immediate
+
+previous forth definitions