\ gforth interface for myfunc() C function \ change myfunc_01 to myfunc_02, etc. whenever the myfunc() C code is changed \ c-library myfunc_01 \ simple C function to take an integer and square it \ \c int myfunc( int x) { return x*x; } \ declare the gforth word "myfunc" to invoke the C function "myfunc" \ c-function myfunc myfunc n -- n end-c-library