return(W_BOLNULL);
}
+int
W_is_bol(ptr)
W_bol ptr;
{
return(W_LITNULL);
}
+int
W_is_lit(ptr)
W_lit ptr;
{
return(W_COMNULL);
}
+int
W_is_com(ptr)
W_com ptr;
{
return(0);
}
+int
W_is_nesting(ptr)
W_com ptr;
{
extern int W_is_bol();
extern int W_is_lit();
extern int W_is_com();
+extern int W_is_nesting();
extern _W_bolstruct _W_bols[];
extern _W_litstruct _W_lits[];
#include <ctype.h>
+static int _X_strcmp();
+static int _X_cmptokens();
+static int _X_floatdiff();
+
+int
X_com(a,b,flags)
int a,b,flags;
{
#include "misc.h"
#include "edit.h"
+#include "compare.h"
+#include <stdio.h>
/*
** routine to compare each object with its ordinal twin
static char rcsid[]= "$Header$";
#endif
+#include <stdio.h>
+#include <stdlib.h>
#include <ctype.h>
#include "misc.h"
#include "floatrep.h"
** returns 0 if string can't be interpreted as a float
** otherwise returns the number of digits that will be used in F_atof
*/
+int
F_isfloat(str,need_decimal,allow_sign)
char *str;
int need_decimal; /* if non-zero, require that a decimal point be present
F_float p1,p2;
{
static F_float result;
- static needinit = 1;
+ static int needinit = 1;
static char man1[R_MANMAX],man2[R_MANMAX],diff[R_MANMAX];
int exp1,exp2;
char *diffptr,*big,*small;
return(result);
}
+int
F_floatcmp(f1,f2)
F_float f1,f2;
{
return(result);
}
+int
_F_xor(x,y)
+int x, y;
{
return(((x) && !(y)) || (!(x) && (y)));
}
#define _F_SAMESIGN(x,y) _F_xor((x<0),(y<0))
#define _F_ABSADD(x,y) (Z_ABS(x) + Z_ABS(y))
+int
_F_ABSDIFF(x,y)
+int x, y;
{
if (Z_ABS(x) < Z_ABS(y))
{
extern F_float F_floatmul();
extern F_float F_floatmagadd();
extern F_float F_floatsub();
+extern int F_floatcmp();
+extern int F_isfloat();
#define F_null ((F_float) 0)
return(retval);
}
+int
R_getexp(ptr)
R_float ptr;
{
**
** stores data and sets maximum counts
*/
+int
L_init_file(fnumber,fname)
int fnumber;
char *fname;
static char rcsid[]= "$Header$";
#endif
+#include <stdio.h>
#include "misc.h"
#include "token.h"
#include "edit.h"
+#include "compare.h"
#define MAXT K_MAXTOKENS
#define ORIGIN (max_obj/2)
for (k = lower; k<= upper; k+= 2) {
new = E_edit_alloc();
- if (k == ORIGIN-d || k!= ORIGIN+d && last_d[k+1] >= last_d[k-1]) {
+ if (k == ORIGIN-d || (k!= ORIGIN+d && last_d[k+1] >= last_d[k-1])) {
row = last_d[k+1]+1;
E_setnext(new,script[k+1]);
E_setop(new,E_DELETE);
#include "misc.h"
#include "visual.h"
#include "output.h"
+#include <stdlib.h>
/*
** various routines used throughout the program
int k;
{
int *tmp;
- if (tmp = (int*) calloc((unsigned)k,(unsigned)1))
+ if ((tmp = (int*) calloc((unsigned)k,(unsigned)1)))
{
return(tmp);
}
#endif
#include <stdio.h>
+#include <stdlib.h>
+#include <unistd.h>
#ifdef M_TERMINFO
#include <curses.h>
** convert a 0 origin token number to a 1 orgin token
** number or 1 origin line number as appropriate
*/
-static
+static int
_O_con_line(numb,flags,filenum)
int numb, flags,filenum;
{
#include "comment.h"
#include "parse.h"
-
#include <ctype.h>
#define _P_PARSE_CHATTER 1000
*_P_alpha = '\0';
}
-static
+static int
_P_in_alpha(chr)
char chr;
{
}
-static
+static int
_P_needmore()
{
return(*_P_nextchr == '\0');
}
-static
+static int
_P_nextline()
{
/*
/*
** pass over a comment -- look for nexting
*/
-static
+static int
_P_comsnarf(comptr)
W_com comptr;
{
/*
** see if this is a floating point number
*/
- else if (tmp = F_isfloat(_P_nextchr,
+ else if ((tmp = F_isfloat(_P_nextchr,
_P_flags & U_NEED_DECIMAL,
- _P_flags & U_INC_SIGN))
+ _P_flags & U_INC_SIGN)))
{
K_saventext(newtoken,_P_nextchr,tmp);
K_settype(newtoken,K_FLO_NUM);
#include <stdio.h>
+#include <stdlib.h>
#include "misc.h"
#include "flagdefs.h"
#include "parse.h"
#include "visual.h"
#include "output.h"
-extern void _Y_doargs();
+extern int L_init_file();
+extern int V_visual();
+
+static void _Y_doargs();
static int _Y_eflag = 0; /* use exact match algorithm */
static int _Y_vflag = 0; /* use visual mode */
*/
static int _Y_flags;
+int
main(argc,argv)
int argc;
char *argv[];
void
S_savenstr(to,from,cnt)
char **to,*from;
+int cnt;
{
S_allocstr(to,cnt);
(void) strncpy(*to,from,cnt);
*/
#ifndef S_INCLUDED
+#include <string.h>
extern void S_wordcpy();
extern void S_skipword();
extern void S_skipspace();
static char rcsid[]= "$Header$";
#endif
+#include <stdio.h>
#include "misc.h"
#include "float.h"
#include "tol.h"
}
}
+int
T_moretols(next_tol)
+int next_tol;
{
return((next_tol >= 0) &&
(_T_TOLMAX-1 > next_tol) &&
extern void T_setdef();
extern void T_tolline();
extern T_tol T_picktol();
+extern int T_moretols();
#define T_gettype(x) (x->tol_type)
#define T_getfloat(x) (x->flo_tol)
** dummy code for systems that don't have
** the mgr window manager installed
*/
+int
V_visual(d)
int d;
{