#include <stdlib.h>
#include <stdio.h>
#include <ctype.h>
#include <string.h>
#include <assert.h>
#ifndef unix
#include <stdarg.h>
#endif
#ifdef __TURBOC__
#else
#define farcalloc calloc
#define farfree free
#endif
#define gprint printf
#define myfree free
#define true (!false)
#define false 0
struct s_range {int col,row,c1,r1,c2,r2,colfirst; };
typedef struct s_range RANGE;

int isnumber(char *s);
char *range_int(char *s, int *v);
int swapint(int *a, int *b);
int find_mkey(char *cp, int *idx);
extern int gle_debug;
typedef char *TOKENS[];
typedef unsigned char uchar;
typedef double dbl;
char *unquote(char *s);
char *gledir(char *s);
int cmd_load(char *fname, char *range, int ntok);
int cmd_load_line(int x, int y, char *inbuff);
int cmd_save(char *fname, char *range, char *format, int ntok);
int set_missing(int x, int y);
int set_scell(int x, int y, char *s);
int clear_cell(int x, int y);
int get_cellboth(int x, int y, double *v, char **s);
int strcpydecimal(char *dest, char *src, int wid, int dpoints);
int strcpywidth(char *dest, char *src, int wid);
int set_outwidth(char *s);
double vcell(int x, int y);
int get_cell(int x, int y, double *v);
int range_def(char *s, RANGE *r);
int evaluate(char *exp, double *v);
int var_find_rc(int *idx, int *var, int *nd, int c);
int eval_setxy(int x, int y);
int var_getstr(int v, char *s);
int sub_clear(void);
int setdstr(char **s, char *in);
int alloc_temp(int n);
int gle_abort(char *s);
int d_tidyup(void);
int text_inkey(void);
int ncpy(char *d, char *s, int n);
int token_space(void);
#ifndef unix
void wprintf(va_list arg_list, ...);
void fner(va_list arg_list, ...);
void printmess(va_list arg_list, ...);
#endif
char *sdup(char *s);
/* void myfree(void *p);   (sun, gcc complained about this) */
void myfrees(void *p, char *s);
void *myallocn(long nitems,long size);
void *myalloc(long size);
void *myallocz(long size);
int showpcode(long *p);
int add_fn(char *pcode, int *plen, int i);
int add_i(char *pcode,int *plen,long i);
int add_f(char *pcode,int *plen,double f);
int add_pcode(char *pcode,int *plen,char *fcode,int *flen);
int add_string(char *pcode, int *plen, char *s);
int add_var(char *pcode,int *plen,int i);
char *eval_str(long *pcode,int *plen);
char *find_non_space(char *cp);
char *find_term(char *cp);
char *un_quote(char *ct);
int eval(long *pcode,int *cp,double *oval,char *ostr,int *otyp);
int find_un(char *cp, int *idx,int *ret,int *np,int **plist);
int isnumber(char *s);
int lastchar(char *s, char c);
int mystrcpy(char **d,char *s);
int polish(char *expr,char *pcode,int *plen,int *rtype);
int scheck(int v);
int spop(int v);
int spush(int v);
int stack_op(char *pcode, int *plen, int stk[], int stkp[], int *nstk,  int i, int p);
int token(char *lin,TOKENS tok,int *ntok,char *outbuff);
int var_add(char *name,int *idx,int *type)	/* Add a variable to the list */;
int var_find(char *name,int *idx,int *type)	/* Find a variable in the list */;
int var_findadd(char *name,int *idx,int *type)	/* Add a variable to the list */;
int var_get(int jj, double *v);
int var_nlocal(int *l);
int var_set(int jj, double v);
int var_setstr(int jj, char *s);
int xy_polar(double dx,double dy,double *radius,double *angle);

int sub_clear(void);
int sub_def(char *s);
int sub_call(int idx,double *pval,char **pstr,int *npm);
int sub_find(char *s,int *idx,int *zret, int *np, int **plist);
int sub_get_startend(int idx, int *ss, int *ee);
int sub_param(int idx,char *s);
int sub_set_return(double d);
int sub_set_startend(int idx, int ss, int ee);

void refresh(void);
void show_cell(int x, int y);
void show_ifcell(int x, int y);
char *scell(int x, int y);
void scr_norm(void);
void fner_clear(void);
void show_cellwide(int x, int y);
int do_command(char *cmd);
int read_command(int *cmd,char *ans,char *ques);
int do_arrow(int k);
int hi_cell(int x,int y);
int fix_cur(void);
int window_norm(void);
int scr_menuhi(void);
int gotocell(int x, int y);
int scr_grey(void);
int scr_savexy(void);
int scr_inv(void);
int scr_restorexy(void);
int read_str(int *cmd, char *s);
int scr_refresh(void);
int scr_right(int i);
int scr_left(int i);
int set_cell(int x, int y, double d);