ref: 12e226ac6798412271020d42645f69138715c519
dir: /utils/test/test-Nt.c/
/* * POSIX standard * test expression * [ expression ] */ #include <lib9.h> #include <windows.h> #define EQ(a,b) ((tmp=a)==0?0:(strcmp(tmp,b)==0)) int ap; int ac; char **av; char *tmp; void synbad(char *, char *); int length(char *); int fsizep(char *); int isdir(char *); int isreg(char *); int Ntisatty(int); int isint(char *, int *); int tio(char *, int); int e(void), e1(void), e2(void), e3(void); void main(int argc, char *argv[]) { ac = argc; av = argv; ap = 1; if(EQ(argv[0],"[")) { if(!EQ(argv[--ac],"]")) synbad("] missing",""); } argv[ac] = 0; if (ac<=1) exits("usage"); exits(e()?0:"false"); } char * nxtarg(int mt) { if(ap>=ac){ if(mt){ ap++; return(0); } synbad("argument expected",""); } return(av[ap++]); } int nxtintarg(int *pans) { if(ap<ac && isint(av[ap], pans)){ ap++; return 1; } return 0; } int e(void) { int p1; p1 = e1(); if (EQ(nxtarg(1), "-o")) return(p1 || e()); ap--; return(p1); } int e1(void) { int p1; p1 = e2(); if (EQ(nxtarg(1), "-a")) return (p1 && e1()); ap--; return(p1); } int e2(void) { if (EQ(nxtarg(0), "!")) return(!e2()); ap--; return(e3()); } int e3(void) { int p1; char *a; char *p2; int int1, int2; a = nxtarg(0); if(EQ(a, "(")) { p1 = e(); if(!EQ(nxtarg(0), ")")) synbad(") expected",""); return(p1); } if(EQ(a, "-f")) return(isreg(nxtarg(0))); if(EQ(a, "-d")) return(isdir(nxtarg(0))); if(EQ(a, "-r")) return(tio(nxtarg(0), 4)); if(EQ(a, "-w")) return(tio(nxtarg(0), 2)); if(EQ(a, "-x")) return(tio(nxtarg(0), 1)); if(EQ(a, "-e")) return(tio(nxtarg(0), 0)); if(EQ(a, "-c")) return(0); if(EQ(a, "-b")) return(0); if(EQ(a, "-u")) return(0); if(EQ(a, "-g")) return(0); if(EQ(a, "-s")) return(fsizep(nxtarg(0))); if(EQ(a, "-t")) if(ap>=ac || !nxtintarg(&int1)) return(Ntisatty(1)); else return(Ntisatty(int1)); if(EQ(a, "-n")) return(!EQ(nxtarg(0), "")); if(EQ(a, "-z")) return(EQ(nxtarg(0), "")); p2 = nxtarg(1); if (p2==0) return(!EQ(a,"")); if(EQ(p2, "=")) return(EQ(nxtarg(0), a)); if(EQ(p2, "!=")) return(!EQ(nxtarg(0), a)); if(!isint(a, &int1)) return(!EQ(a,"")); if(nxtintarg(&int2)){ if(EQ(p2, "-eq")) return(int1==int2); if(EQ(p2, "-ne")) return(int1!=int2); if(EQ(p2, "-gt")) return(int1>int2); if(EQ(p2, "-lt")) return(int1<int2); if(EQ(p2, "-ge")) return(int1>=int2); if(EQ(p2, "-le")) return(int1<=int2); } synbad("unknown operator ",p2); return 0; /* to shut ken up */ } int tio(char *a, int f) { return access (a, f) >= 0; } /* * dirstat fails for: * [drivename]: * [drivename]:/ * <dirname>/ * [drivename]:<dirname>/ */ int isdir(char *f) { Dir *dir; int len; len = strlen(f); if (f[(len-1)] == '/') { /* zap trailing '/' */ f[(len-1)] = '\0'; } if (len == 2) { if (f[1] == ':') { return DMDIR; } } if((dir = dirstat(f))==nil) return(0); return(dir->mode&DMDIR); } int isreg(char *f) { Dir *dir; if((dir = dirstat(f))==nil) return(0); return(!(dir->mode&DMDIR)); } int Ntisatty(int fd) { HANDLE h; if(fd < 0) return 0; h = (HANDLE)_get_osfhandle(fd); if(h < 0) return 0; return _isatty((int)h); } int fsizep(char *f) { Dir *dir; if((dir = dirstat(f))==nil) return(0); return(dir->length>0); } void synbad(char *s1, char *s2) { int len; write(2, "test: ", 6); if ((len = strlen(s1)) != 0) write(2, s1, len); if ((len = strlen(s2)) != 0) write(2, s2, len); write(2, "\n", 1); exits("bad syntax"); } int length(char *s) { char *es=s; while(*es++); return(es-s-1); } int isint(char *s, int *pans) { char *ep; *pans = strtol(s, &ep, 0); return (*ep == 0); }