version 1.129, 2012/07/23 14:46:31
|
version 1.133, 2012/12/31 15:25:19
|
Line 1
|
Line 1
|
/* common header file |
/* common header file |
|
|
Copyright (C) 1995,1996,1997,1998,2000,2003,2004,2005,2006,2007,2008,2009,2010,2011 Free Software Foundation, Inc. |
Copyright (C) 1995,1996,1997,1998,2000,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012 Free Software Foundation, Inc. |
|
|
This file is part of Gforth. |
This file is part of Gforth. |
|
|
Line 400 int gforth_main(int argc, char **argv, c
|
Line 400 int gforth_main(int argc, char **argv, c
|
void gforth_args(int argc, char ** argv, char ** path, char ** imagename); |
void gforth_args(int argc, char ** argv, char ** path, char ** imagename); |
Address gforth_loader(char* imagename, char* path); |
Address gforth_loader(char* imagename, char* path); |
user_area* gforth_stacks(Cell dsize, Cell rsize, Cell fsize, Cell lsize); |
user_area* gforth_stacks(Cell dsize, Cell rsize, Cell fsize, Cell lsize); |
|
void gforth_free_stacks(user_area* t); |
|
void gforth_free(); |
Cell gforth_go(Xt* ip0); |
Cell gforth_go(Xt* ip0); |
int gforth_boot(int argc, char** argv, char* path); |
int gforth_boot(int argc, char** argv, char* path); |
|
int gforth_start(int argc, char ** argv); |
int gforth_quit(); |
int gforth_quit(); |
Xt gforth_find(Char * name); |
Xt gforth_find(Char * name); |
int gforth_execute(Xt xt); |
int gforth_execute(Xt xt); |
void gforth_cleanup(); |
void gforth_cleanup(); |
void gforth_printmetrics(); |
void gforth_printmetrics(); |
|
#if defined(DOUBLY_INDIRECT) |
|
int gforth_make_image(int debugflag); |
|
#endif |
|
|
/* for ABI-CODE and ;ABI-CODE */ |
/* for ABI-CODE and ;ABI-CODE */ |
typedef Cell *abifunc(Cell *sp, Float **fpp); |
typedef Cell *abifunc(Cell *sp, Float **fpp); |