Major overhaul and cleanup. Support for .ubi image file installations.grafted

Only compile&install a minimum host Gforth for bootstrapping the target
Gforth, removing strange emacs-dependencies that cropped up earlier.

Image file can now be built on the nanonote using 'gforth-update-image'
command.  Also, Gforth is now run through a wrapper that calls
'gforth-update-image' automatically, if necessary.

Also first attempts at supporting libcc C-interface libraries pre-compiled on
the host.

Tested to compile on amd64 and i386.

1 files changed, 58 insertions, 0 deletions

diff --git a/qijoe/patches/001-mathaway.patch b/qijoe/patches/001-mathaway.patch
new file mode 100644
index 0000000..99fc930
--- /dev/null
+++ b/qijoe/patches/001-mathaway.patch
@@ -0,0 +1,58 @@
+--- a/umath.c
++++ b/umath.c
+@@ -378,7 +378,6 @@ double m_cos(double n) { return cos(n); 
+ double m_tan(double n) { return tan(n); }
+ double m_exp(double n) { return exp(n); }
+ double m_sqrt(double n) { return sqrt(n); }
+-double m_cbrt(double n) { return cbrt(n); }
+ double m_log(double n) { return log(n); }
+ double m_log10(double n) { return log10(n); }
+ double m_asin(double n) { return asin(n); }
+@@ -387,19 +386,10 @@ double m_atan(double n) { return atan(n)
+ double m_sinh(double n) { return sinh(n); }
+ double m_cosh(double n) { return cosh(n); }
+ double m_tanh(double n) { return tanh(n); }
+-double m_asinh(double n) { return asinh(n); }
+-double m_acosh(double n) { return acosh(n); }
+-double m_atanh(double n) { return atanh(n); }
+ double m_int(double n) { return (int)(n); }
+ double m_floor(double n) { return floor(n); }
+ double m_ceil(double n) { return ceil(n); }
+ double m_fabs(double n) { return fabs(n); }
+-double m_erf(double n) { return erf(n); }
+-double m_erfc(double n) { return erfc(n); }
+-double m_j0(double n) { return j0(n); }
+-double m_j1(double n) { return j1(n); }
+-double m_y0(double n) { return y0(n); }
+-double m_y1(double n) { return y1(n); }
+ 
+ double calc(BW *bw, unsigned char *s)
+ {
+@@ -414,7 +404,6 @@ double calc(BW *bw, unsigned char *s)
+ 		v = get(USTR "tan"); v->func = m_tan;
+ 		v = get(USTR "exp"); v->func = m_exp;
+ 		v = get(USTR "sqrt"); v->func = m_sqrt;
+-		v = get(USTR "cbrt"); v->func = m_cbrt;
+ 		v = get(USTR "ln"); v->func = m_log;
+ 		v = get(USTR "log"); v->func = m_log10;
+ 		v = get(USTR "asin"); v->func = m_asin;
+@@ -425,19 +414,10 @@ double calc(BW *bw, unsigned char *s)
+ 		v = get(USTR "sinh"); v->func = m_sinh;
+ 		v = get(USTR "cosh"); v->func = m_cosh;
+ 		v = get(USTR "tanh"); v->func = m_tanh;
+-		v = get(USTR "asinh"); v->func = m_asinh;
+-		v = get(USTR "acosh"); v->func = m_acosh;
+-		v = get(USTR "atanh"); v->func = m_atanh;
+ 		v = get(USTR "int"); v->func = m_int;
+ 		v = get(USTR "floor"); v->func = m_floor;
+ 		v = get(USTR "ceil"); v->func = m_ceil;
+ 		v = get(USTR "abs"); v->func = m_fabs;
+-		v = get(USTR "erf"); v->func = m_erf;
+-		v = get(USTR "erfc"); v->func = m_erfc;
+-		v = get(USTR "j0"); v->func = m_j0;
+-		v = get(USTR "j1"); v->func = m_j1;
+-		v = get(USTR "y0"); v->func = m_y0;
+-		v = get(USTR "y1"); v->func = m_y1;
+ 	}
+ 
+ 	v = get(USTR "top");