#include "heap.h"
#include "zstr.h"

int toup(a) { return (a>='a' && a<='z')?a+'A'-'a':a; }
unsigned Umin(a,b) unsigned a,b; { return a<b?a:b; }
unsigned Umax(a,b) unsigned a,b; { return a>b?a:b; }
int Imin(a,b) { return a<b?a:b; }
int Imax(a,b) { return a>b?a:b; }
int Iabs(a) { return a>=0?a:-a; }

int cword(c)
{
return c>='A' && c<='Z' || c>='a' && c<='z' || c>='0' && c<='9' || c=='_';
}

int cwhitel(c)
{
return c==' ' || c=='\t' || c=='\n';
}

int cwhite(c)
{
return c==' ' || c=='\t';
}

int zlen(s)
char *s;
{
char *os=s;
while(*s) ++s;
return s-os;
}

char *zcpy(d,s)
char *d,*s;
{
char *od=d;
while(*d++= *s++);
return od;
}

char *zcat(d,s)
char *d,*s;
{
char *od=d;
while(*d) ++d;
while(*d++= *s++);
return od;
}

char *zdup(s)
char *s;
{
return zcpy((char *)malloc(zlen(s)+1),s);
}

int zcmp(l,r)
char *l, *r;
{
while(*l && *l==*r) ++l, ++r;
if(*l>*r) return 1;
if(*l<*r) return -1;
return 0;
}

int fields(s,fields,sep)
char *s, **fields, sep;
{
int y=1;
fields[0]=s;
while(*s)
 {
 if(*s==sep) fields[y++]=s+1, *s=0;
 ++s;
 }
return y;
}

int nfields(s,sep)
char *s, sep;
{
int y=1;
while(*s) if(*s++==sep) ++y;
return y;
}