home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / cmd / test.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-10  |  2.5 KB  |  190 lines
  1. /*
  2.  *    test expression
  3.  *    [ expression ]
  4.  */
  5.  
  6. #include <stdio.h>
  7. #include <sys/types.h>
  8. #include <sys/stat.h>
  9. #define EQ(a,b)    ((tmp=a)==0?0:(strcmp(tmp,b)==0))
  10.  
  11. #define DIR 1
  12. #define FIL 2
  13. int    ap;
  14. int    ac;
  15. char    **av;
  16. char    *tmp;
  17.  
  18. main(argc, argv)
  19. char *argv[];
  20. {
  21.  
  22.     ac = argc; av = argv; ap = 1;
  23.     if(EQ(argv[0],"[")) {
  24.         if(!EQ(argv[--ac],"]"))
  25.             synbad("] missing","");
  26.     }
  27.     argv[ac] = 0;
  28.     if (ac<=1) exit(1);
  29.     exit(exp()?0:1);
  30. }
  31.  
  32. char *nxtarg(mt) {
  33.  
  34.     if (ap>=ac) {
  35.         if(mt) {
  36.             ap++;
  37.             return(0);
  38.         }
  39.         synbad("argument expected","");
  40.     }
  41.     return(av[ap++]);
  42. }
  43.  
  44. exp() {
  45.     int p1;
  46.  
  47.     p1 = e1();
  48.     if (EQ(nxtarg(1), "-o")) return(p1 | exp());
  49.     ap--;
  50.     return(p1);
  51. }
  52.  
  53. e1() {
  54.     int p1;
  55.  
  56.     p1 = e2();
  57.     if (EQ(nxtarg(1), "-a")) return (p1 & e1());
  58.     ap--;
  59.     return(p1);
  60. }
  61.  
  62. e2() {
  63.     if (EQ(nxtarg(0), "!"))
  64.         return(!e3());
  65.     ap--;
  66.     return(e3());
  67. }
  68.  
  69. e3() {
  70.     int p1;
  71.     register char *a;
  72.     char *p2;
  73.     int int1, int2;
  74.  
  75.     a=nxtarg(0);
  76.     if(EQ(a, "(")) {
  77.         p1 = exp();
  78.         if(!EQ(nxtarg(0), ")")) synbad(") expected","");
  79.         return(p1);
  80.     }
  81.  
  82.     if(EQ(a, "-r"))
  83.         return(tio(nxtarg(0), 0));
  84.  
  85.     if(EQ(a, "-w"))
  86.         return(tio(nxtarg(0), 1));
  87.  
  88.     if(EQ(a, "-d"))
  89.         return(ftype(nxtarg(0))==DIR);
  90.  
  91.     if(EQ(a, "-f"))
  92.         return(ftype(nxtarg(0))==FIL);
  93.  
  94.     if(EQ(a, "-s"))
  95.         return(fsizep(nxtarg(0)));
  96.  
  97.     if(EQ(a, "-t"))
  98.         if(ap>=ac)
  99.             return(isatty(1));
  100.         else
  101.             return(isatty(atoi(nxtarg(0))));
  102.  
  103.     if(EQ(a, "-n"))
  104.         return(!EQ(nxtarg(0), ""));
  105.     if(EQ(a, "-z"))
  106.         return(EQ(nxtarg(0), ""));
  107.  
  108.     p2 = nxtarg(1);
  109.     if (p2==0)
  110.         return(!EQ(a,""));
  111.     if(EQ(p2, "="))
  112.         return(EQ(nxtarg(0), a));
  113.  
  114.     if(EQ(p2, "!="))
  115.         return(!EQ(nxtarg(0), a));
  116.  
  117.     if(EQ(a, "-l")) {
  118.         int1=length(p2);
  119.         p2=nxtarg(0);
  120.     } else{    int1=atoi(a);
  121.     }
  122.     int2 = atoi(nxtarg(0));
  123.     if(EQ(p2, "-eq"))
  124.         return(int1==int2);
  125.     if(EQ(p2, "-ne"))
  126.         return(int1!=int2);
  127.     if(EQ(p2, "-gt"))
  128.         return(int1>int2);
  129.     if(EQ(p2, "-lt"))
  130.         return(int1<int2);
  131.     if(EQ(p2, "-ge"))
  132.         return(int1>=int2);
  133.     if(EQ(p2, "-le"))
  134.         return(int1<=int2);
  135.  
  136.     synbad("unknown operator ",p2);
  137. }
  138.  
  139. tio(a, f)
  140. char *a;
  141. int f;
  142. {
  143.  
  144.     f = open(a, f);
  145.     if (f>=0) {
  146.         close(f);
  147.         return(1);
  148.     }
  149.     return(0);
  150. }
  151.  
  152. ftype(f)
  153. char *f;
  154. {
  155.     struct stat statb;
  156.  
  157.     if(stat(f,&statb)<0)
  158.         return(0);
  159.     if((statb.st_mode&S_IFMT)==S_IFDIR)
  160.         return(DIR);
  161.     return(FIL);
  162. }
  163.  
  164. fsizep(f)
  165. char *f;
  166. {
  167.     struct stat statb;
  168.     if(stat(f,&statb)<0)
  169.         return(0);
  170.     return(statb.st_size>0);
  171. }
  172.  
  173. synbad(s1,s2)
  174. char *s1, *s2;
  175. {
  176.     write(2, "test: ", 6);
  177.     write(2, s1, strlen(s1));
  178.     write(2, s2, strlen(s2));
  179.     write(2, "\n", 1);
  180.     exit(255);
  181. }
  182.  
  183. length(s)
  184.     char *s;
  185. {
  186.     char *es=s;
  187.     while(*es++);
  188.     return(es-s-1);
  189. }
  190.