home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / mm / ccmd / cmgrp.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-12-18  |  12.7 KB  |  498 lines
  1. /*
  2.  Copyright (c) 1986, 1990 by The Trustees of Columbia University in
  3.  the City of New York.  Permission is granted to any individual or
  4.  institution to use, copy, or redistribute this software so long as it
  5.  is not sold for profit, provided this copyright notice is retained.
  6.  
  7.  Author: Howie Kaye
  8. */
  9.  
  10. #define GRPERR
  11.  
  12. /*
  13.  * ccmd group name parser.
  14.  */
  15.  
  16. #if unix
  17. #include "ccmdlib.h"
  18. #include "cmfncs.h"
  19. #include "cmgrp.h"
  20.  
  21. #define INCGRPS 100
  22.  
  23. char *malloc(), realloc();
  24. static brktab grpbrk = {        /* all valid chars for grp */
  25.    {                    /* alphanums, "~#/_-\[]," */
  26.      0xff, 0xff, 0xff, 0xff, 0xff, 0xd1, 0x00, 0x3f,
  27.      0x80, 0x00, 0x00, 0x00, 0x80, 0x00, 0x00, 0x0b,
  28.    },
  29.    {
  30.      0xff, 0xff, 0xff, 0xff, 0xff, 0xfb, 0x00, 0x3f,
  31.      0x80, 0x00, 0x00, 0x1e, 0x80, 0x00, 0x00, 0x1f,
  32.    },
  33. };
  34.  
  35. struct group **buildgrouplist();
  36. int grpparse(), grphelp(), grpcomplete();
  37. ftspec ft_grp =  { grpparse, grphelp, grpcomplete, 0, &grpbrk };
  38.  
  39. /*
  40.  * parse routine for group names.
  41.  */
  42. PASSEDSTATIC int
  43. grpparse(text, textlen, fdbp, parselen, value)
  44. char *text;
  45. int textlen, *parselen;
  46. fdb *fdbp;
  47. pval *value;
  48. {
  49.   static struct grp **g;
  50.   char *term;
  51.   int pmatch, ematch,i;
  52.  
  53.   match(text, textlen, fdbp, &g, &term, &pmatch, &ematch); /* find matches */
  54.  
  55.   if (pmatch == 0)            /* no partial matches. */
  56.       return(GRPxNM);            /* then no matches */
  57.  
  58.   if (term == NULL)            /* unterminated....not done */
  59.     return(CMxINC);            /* return incompleteness */
  60.  
  61.   if (ematch == 0)            /* no matches */
  62.     return(GRPxNM);            /* return as such */
  63.  
  64.   if (ematch > 1)             /* more than one match...ambiguous */
  65.      if (!(fdbp->_cmffl & GRP_WILD))    /* means 2 identical group names */
  66.        return(GRPxAMB);            /* unless a wild parse */
  67.  
  68.   value->_pvgrp = buildgrouplist(g,ematch); /* return list of matches */
  69.   *parselen = term-text;        /* and parsed length */
  70.   return(CMxOK);            /* and return successfully */
  71. }
  72.  
  73. /*
  74.  * group name help routine.
  75.  */
  76. PASSEDSTATIC int
  77. grphelp(text, textlen, fdbp, cust,lines) 
  78. char *text;
  79. int textlen, cust;
  80. fdb *fdbp;
  81. int lines;
  82. {
  83.   int ematch, pmatch,i,len,maxlen,cols,curcol;
  84.   struct grp **g;
  85.   char *term;
  86.   int mylines = 1;
  87.   if (!cust) {                /* standard help msg */
  88.     cmxputs("group name, one of the following:");
  89.   }
  90.  
  91.                     /* find matches */
  92.   match(text, textlen, fdbp, &g, &term, &pmatch, &ematch);
  93.   if (pmatch == 0) {            /* no matches. */
  94.     cmxnl();                /* just say so */
  95.     cmxputs(" (No group names match current input)"); /* none here */
  96.     return(lines-1);            /* all done */
  97.   }
  98.  
  99.   if (pmatch > cmcsb._cmmax) {        /* too many to display */
  100.     cmxnl();
  101.     cmxprintf(" %d matching groups.\n",pmatch); /* just say how many. */
  102.     return(lines-1);            /* all done */
  103.   }
  104.  
  105.   maxlen = 0;                /* calculate number of columns */
  106.   len = 0;                /* based on maximum name length */
  107.  
  108.   for (i = 0 ; g[i] != NULL; i++) {    /* scan through matches */
  109.     if (g[i]->flags & GRP_PARTIAL) {
  110.       len = strlen(g[i]->grp->gr_name);    /* find longest name */
  111.       if (maxlen < len) maxlen = len;
  112.     }
  113.   }
  114.   maxlen += 3;                /* put some space after the name */
  115.   cols = (cmcsb._cmcmx+2) / maxlen;    /* number of columns per line */
  116.   if (cols <= 0) cols = 1;        /* at least one column */
  117.   curcol = 0;                /* currently printing first column */
  118.  
  119.   for ( i = 0; g[i] != NULL; i++) {    /* scan through again, and print 'em */
  120.     if (g[i]->flags & GRP_PARTIAL) {    /* found a match... */
  121.       if (curcol == 0) {
  122.     cmxnl();            /* new line for first column */
  123.     if (mylines >= lines) {
  124.       if (!cmhelp_more("--space to continue, Q to stop--"))
  125.           return(-1);
  126.       else {
  127.           lines = cmcsb._cmrmx;
  128.           mylines = 0;
  129.       }
  130.     }
  131.     mylines++;
  132.     cmxputs(" ");            /* and offset a bit */
  133.       }
  134.       cmxputs(g[i]->grp->gr_name);    /* print the name */
  135.  
  136.       if (curcol < cols -1) {        /* if not last column */
  137.     int j;                /* space out to end of column */
  138.     for(j = strlen(g[i]->grp->gr_name); j < maxlen; j++)
  139.       cmxputc(SPACE);
  140.       }
  141.       curcol = (curcol+1) % cols;        /* move to next column */
  142.     }
  143.   }
  144.   cmxnl();                /* newline at the end */
  145.   return(lines-mylines);        /* all done */
  146. }
  147.  
  148.  
  149. /*
  150.  * find a partial completion for a list of groups
  151.  */
  152.  
  153. PASSEDSTATIC char *
  154. partial(text,textlen,g,pcount,exact) 
  155. char *text; 
  156. int textlen;
  157. struct grp **g;
  158. int pcount;
  159. int *exact;
  160. {
  161.   int i,j,k;
  162.   static char buf[50];
  163.   char tbuf[50],fbuf[50],gname[50];
  164.   int buflen,fbuflen=0;
  165.  
  166.   *exact = TRUE;            /* assume we find an exact match */
  167.   strncpy(tbuf,text,textlen);
  168.   tbuf[textlen] = '\0';
  169.  
  170.   buf[0] = '\0';            /* start off with no matches */
  171.   for(i = 0, j = 0; g[i] != NULL && j < pcount; i++) {
  172.     if (g[i]->flags & GRP_PARTIAL) {
  173.       strcpy(fbuf,g[i]->grp->gr_name);
  174.       fbuflen = strlen(fbuf);        /* copy then name */
  175.  
  176.       while(!fmatch(fbuf,tbuf,FALSE)) {    /* shorten until we match */
  177.     fbuf[--fbuflen] = '\0';
  178.       }
  179.       strcpy(gname,g[i]->grp->gr_name);
  180.       if (j++ == 0)
  181.     strcpy(buf,&gname[fbuflen]);    /* first time, grab completion */
  182.       else {
  183.     buflen = strlen(buf);
  184.     for(k = 0; k < buflen; k++)    /* otherwise trim it to match */
  185.       if (buf[k] != gname[fbuflen+k]) {
  186.         buf[k] = '\0';        /* if end of a name, then exact */
  187.         if (gname[fbuflen+k] != '\0') *exact = FALSE;
  188.         else *exact = TRUE;
  189.         break;
  190.       }
  191.       }
  192.     }
  193.   }
  194.   return(buf);
  195. }
  196.  
  197. /*
  198.  * group name completion routine
  199.  */
  200. grpcomplete(text, textlen, fdbp, full, cplt, cpltlen)
  201. char *text,**cplt;
  202. int textlen,full,*cpltlen;
  203. fdb *fdbp;
  204. {
  205.   int ematch, pmatch,i;
  206.   struct grp **g;
  207.   char *term;
  208.  
  209.   *cplt = NULL; *cpltlen = 0;        /* assume no completions */
  210.                     /* find matches */
  211.   match(text, textlen, fdbp, &g, &term, &pmatch, &ematch);
  212.  
  213.   if (ematch >= 1) {            /* exact match? */
  214.     *cplt = "";
  215.     if (full) return(CMP_GO | CMP_SPC);    /* just use it */
  216.     else return(CMP_PNC);
  217.   }
  218.   if (pmatch == 0) {            /* no match. */
  219.     return(CMP_BEL|CMP_GO);        /* just beep and wake up */
  220.   }
  221.   if (pmatch > 1) {            /* more than one partial match. */
  222.     int exact;
  223.     *cplt = partial(text,textlen,g,pmatch,&exact);
  224.     *cpltlen = strlen(*cplt);
  225.     if (exact) return(CMP_GO|CMP_SPC);
  226.     return(CMP_BEL);            /* we could partial complete */
  227.   }                    /* but for now,just beep */
  228.   if (pmatch == 1) {            /* one match */
  229.     int exact;
  230.     for(i = 0; g[i] != NULL; i++) {
  231.       if (g[i]->flags & GRP_PARTIAL) {    /* find it */
  232.                     /* and return the completion */
  233.     *cplt = partial(text,textlen,g,pmatch,&exact);
  234.     *cpltlen = strlen(*cplt);
  235.     if (full) return(CMP_GO | CMP_SPC);
  236.     else return(CMP_PNC);
  237.       }
  238.     }
  239.   }
  240.   return(CMP_BEL);
  241. }
  242.  
  243. /*
  244.  * group name matching routine.
  245.  */
  246.  
  247. static
  248. match(text, textlen, fdbp, who, term, pmatch, ematch) 
  249. char *text, **term;
  250. int textlen, *pmatch,*ematch;
  251. fdb *fdbp;
  252. struct grp ***who;
  253. {
  254.   struct grp **grps=NULL, **maybe_read_grps();
  255.   struct grp **g,**read_grps();
  256.   char gp[100];
  257.   int matches=0, i,inlen;
  258.   brktab *btab;                /* break table to use */
  259.  
  260.   grps = maybe_read_grps(fdbp->_cmffl & GRP_UPDONLY, fdbp->_cmffl & GRP_NOUPD);
  261.   *term = NULL;
  262.   
  263.                     /* just update the user table */
  264.   if (fdbp->_cmffl & GRP_UPDONLY) {
  265.       *ematch = *pmatch = 0;        /* no matches */
  266.       return;
  267.   }
  268.  
  269.   *term = NULL;
  270.   
  271.   if ((btab = fdbp->_cmbrk) == NULL)    /* get supplied break table */
  272.     btab = &grpbrk;            /* or use default */
  273.  
  274.   for (inlen = 0; inlen < textlen; inlen++) { /* find # of usable chars */
  275.     if (text[inlen] & 0x80) {
  276.       text[inlen] &= 0x7f;
  277.       continue;
  278.     }
  279.     else
  280.       if (index("[]{}*?^,",text[inlen]))
  281.      continue;
  282.     else
  283.       if ((!BREAK(btab,0x7f&text[inlen],inlen))) 
  284.     continue;
  285.     else
  286.       break;
  287.   }
  288.  
  289.   if (inlen == textlen)            /* no break char? */
  290.     *term = NULL;            /* then set no terminator */
  291.   else
  292.     *term = text+inlen;            /* else point to it for caller */
  293.  
  294.                     /* copy the string to match */
  295.   for(i = 0; i < inlen; i++) gp[i] = text[i]&0x7f;
  296.   gp[inlen] = '\0';            /* null terminated of course */
  297.   *pmatch = *ematch = 0;        /* and start with no matches */
  298.  
  299.  for (g = grps; *g != NULL; g++) {    /* loop through all groups */
  300.     (*g)->flags &= ~(GRP_PARTIAL | GRP_EXACT); /* assume a mismatch */
  301.     if (fmatch((*g)->grp->gr_name,gp,TRUE)) { /* partial match? */
  302.       (*g)->flags |= GRP_PARTIAL;    /* flag */
  303.       (*pmatch)++;            /* and count it */
  304.       if (fmatch((*g)->grp->gr_name,gp,FALSE)) { /* exact match? */
  305.     (*g)->flags |= GRP_EXACT;    /* flag and count it */
  306.     (*ematch)++;
  307.       }
  308.     }
  309.   }
  310.   *who = grps;                /* return the list */
  311.   return;
  312. }
  313.  
  314. /*
  315.  * free up group list read from group file
  316.  */
  317. free_grps(grps) struct grp **grps; {
  318.   struct grp *g;
  319.   int i;
  320.   if (grps == NULL) return;        /* no list.  never mind */
  321.   while (*grps != NULL) {        /* for all groups */
  322.     g = *grps;
  323.     if (g->grp != NULL) {        /* if there is a group entry here */
  324.                     /* free string space (note this 
  325.                        is all malloc as one chunk, so
  326.                        it is all freed as one chunk */
  327.       if (g->grp->gr_name != NULL) free(g->grp->gr_name);
  328.       if (g->grp->gr_passwd != NULL) free(g->grp->gr_passwd);
  329.       for (i = 0; g->grp->gr_mem[i] != NULL; i++)
  330.     free(g->grp->gr_mem[i]);
  331.       free(g->grp);            /* free the group entry */
  332.       grps++;                /* and go to the next group */
  333.     }
  334.   }
  335.   free(grps);
  336. }
  337.  
  338.  
  339. struct grp **
  340. read_grps() {
  341.   struct grp **grps = NULL;
  342.   int maxgrps = 0;
  343.   int ngrps = 0;
  344.   struct group *g,*getgrent(),*copyg();
  345.   
  346.   setgrent();
  347.   while (1) {
  348.     g = getgrent();
  349.     if (ngrps == maxgrps) {
  350.       grps = (struct grp **)cmrealloc(grps,
  351.                       sizeof(struct grp *)*(maxgrps+INCGRPS));
  352.       maxgrps+=INCGRPS;
  353.     }
  354.     if (g == NULL) break;
  355.     grps[ngrps] = (struct grp *)malloc(sizeof(struct grp));
  356.     grps[ngrps]->grp = copyg(g);
  357.     grps[ngrps++]->flags = 0;
  358.   }
  359.   grps[ngrps] = NULL;
  360.   endgrent();
  361.   return(grps);
  362. }
  363.  
  364. grpcmp(a,b) register struct grp **a,**b; {
  365.   return(strcmp((*a)->grp->gr_name,(*b)->grp->gr_name));
  366. }
  367.  
  368. sort_grps(grps) struct grp **grps; {
  369.   int i;
  370.   for (i = 0; grps[i] != NULL; i++);
  371.   qsort(grps,i,sizeof(struct grp *), grpcmp);
  372. }
  373.  
  374. struct group *
  375. copyg(grp) struct group *grp; {
  376.   struct group *g;
  377.   int i;
  378.   static int cnt = 0;
  379.  
  380.   g = (struct group *) malloc(sizeof (struct group)); /* get a group */
  381.   g->gr_name = malloc(strlen(grp->gr_name)+1); /* space for the name */
  382.   strcpy(g->gr_name,grp->gr_name);    /* copy the name */
  383.   g->gr_passwd = malloc(strlen(grp->gr_passwd)+1); /* space for the passwd */
  384.   strcpy(g->gr_passwd,grp->gr_passwd);    /* copy the passwd */
  385.  
  386.   for (i = 0; grp->gr_mem[i] != NULL; i++); /* count the members */
  387.   g->gr_mem = (char **)malloc((i+1)*sizeof (char *)); /* space for ptr */
  388.   for (i = 0; grp->gr_mem[i] != NULL; i++) { /* copy the members */
  389.     g->gr_mem[i] = malloc(strlen(grp->gr_mem[i])+1); /* alloc space */
  390.     strcpy(g->gr_mem[i], grp->gr_mem[i]); /* copy the name */
  391.   }
  392.   g->gr_mem[i] = NULL;
  393.   g->gr_gid = grp->gr_gid;
  394.   cnt++;
  395.   return(g);
  396. }
  397.  
  398.  
  399. struct group**
  400. buildgrouplist(g,count) struct grp **g; {
  401.   static struct group **gr=NULL;
  402.   int i,j;
  403.   if (gr != NULL) free(gr);
  404.   gr = (struct group **)malloc((count+1)*sizeof(struct group*));
  405.   for (i = 0,j = 0; g[i] != NULL; i++) {
  406.     if (g[i]->flags & GRP_EXACT)
  407.       gr[j++] = g[i]->grp;
  408.   }
  409.   gr[count] = NULL;
  410.   return(gr);
  411. }
  412.  
  413.  
  414. struct grp **
  415. maybe_read_grps(always,dont)
  416. int always, dont;
  417. {
  418.     static struct grp **grps=NULL;
  419.     static int group_time=0;
  420.     struct stat buf;
  421.     int temp = always;
  422.  
  423.     stat("/etc/group",&buf);        /* reread the group file? */
  424.     always = group_time != 0 && always && !dont;
  425.     dont = group_time != 0 && dont && !temp;
  426.     if ((group_time == 0 || buf.st_mtime > group_time || always) && !dont) {
  427.     group_time = buf.st_mtime;
  428.     free_grps(grps);        /* free up old entries */
  429.     grps = read_grps();        /* and re read the file */
  430.     sort_grps(grps);        /* sort them */
  431.     }
  432.     return(grps);
  433. }
  434.  
  435. #else /* !unix */
  436.  
  437. #include "ccmd.h"            /* ccmd symbols */
  438. #include "cmfncs.h"            /* ccmd internal symbols */
  439.  
  440. static brktab grpbrk = {        /* all valid chars for groups */
  441.   {                    /* alphanums, "~#/_-\[]," */
  442.     0xff, 0xff, 0xff, 0xff, 0xff, 0xd1, 0x00, 0x3f,
  443.     0x80, 0x00, 0x00, 0x00, 0x80, 0x00, 0x00, 0x0b,
  444.   },
  445.   {
  446.     0xff, 0xff, 0xff, 0xff, 0xff, 0xd1, 0x00, 0x3f,
  447.     0x80, 0x00, 0x00, 0x00, 0x80, 0x00, 0x00, 0x0b,
  448.   }
  449. };
  450.  
  451. int grpparse(), grphelp(), grpcomplete();
  452. ftspec ft_grp =  { grpparse, grphelp, grpcomplete, 0, &grpbrk };
  453.  
  454. PASSEDSTATIC int
  455. grpparse(text, textlen, fdbp, parselen, value)
  456. char *text;
  457. int textlen, *parselen;
  458. fdb *fdbp;
  459. pval *value;
  460. {
  461.   int i;
  462.   *parselen = 0;
  463.   value->_pvgrp = NULL;
  464.   for (i = 0; i < textlen; i++) 
  465.     if (isspace(text[textlen-1])) 
  466.       return(GRPxNM);
  467.   return(CMxINC);
  468. }
  469.  
  470. grpcomplete(text, textlen, fdbp, full, cplt, cpltlen)
  471. char *text,**cplt;
  472. int textlen,full,*cpltlen;
  473. fdb *fdbp;
  474. {
  475.   *cplt = NULL; 
  476.   *cpltlen = 0;
  477.   return(CMP_BEL|CMP_SPC|CMP_GO);
  478. }
  479.  
  480. PASSEDSTATIC int
  481. grphelp(text, textlen, fdbp, cust) 
  482. char *text;
  483. int textlen, cust;
  484. fdb *fdbp;
  485. {
  486.  
  487.   if (!cust) {                /* standard help msg */
  488.     cmxputs("group name, one of the following:");
  489.   }
  490.  
  491.   cmxnl();
  492.   cmxputs(" (No group names match current input)");
  493.   return(CMxOK);
  494. }
  495.  
  496. #endif /* !unix */
  497.  
  498.