BSD 4_3 release

[unix-history] / usr / contrib / nntp / server / parsit.c

#ifndef lint
static char *sccsid = "@(#)parsit.c     1.1     (Berkeley) 12/5/84";
#endif

/*
* Parse a string of words separated by spaces into an
* array of pointers to characters, just like good ol' argv[]
* and argc.
*
* Usage:
*
* char line[132];
* char **argv;
* int argc;
*
*      argv = (char **) NULL;
*      argc = parsit(line, &argv);
*
* returns the number of words parsed in argc.  argv[argc] will
* be (char *) NULL to indicate end of list, if you're not
* happy with just knowing how many words you have.
*
* Note that setting argv = (char **) NULL is only done the first
* time the routine is called with a new "argv" -- it tells
* parsit that "argv" is a new array, and parsit shouldn't free
* up the elements (as it would do if it were an old array).
*
*      Phil Lapsley
*      College of Engineering
*      University of California, Berkeley
*      (ARPA: phil@Berkeley.ARPA; UUCP: ...!ucbvax!phil)
*/

#include <stdio.h>

extern  char    *malloc(), *strcpy();

parsit(line, array)
char *line;
char ***array;
{
       char    **argv;
       char    word[132];
       char    *linecp;
       int     i, j, num_words;

       argv = *array;
       if (argv != (char **) NULL) {  /* Check to see if we should */
               i = 0;                 /* free up the old array */
               do {
                       free(argv[i]);  /* If so, free each member */
               } while (argv[i++] != (char *) NULL);
               free((char *) argv);    /* and then free the ptr itself */
       }

       linecp = line;
       num_words = 0;
       while (1) {     /* count words in input */
               for (; *linecp == ' ' || *linecp == '\t'; ++linecp)
                       ;
               if (*linecp == '\0')
                       break;

               for (; *linecp != ' ' && *linecp != '\t' && *linecp != '\0'; ++linecp)
                       ;
               ++num_words;
               if (*linecp == '\0')
                       break;
       }

       /* Then malloc enough for that many words plus 1 (for null) */

       if ((argv = (char **) malloc((num_words + 1) * sizeof(char *))) ==
               (char **) NULL) {
               fprintf(stderr, "parsit: malloc out of space!\n");
               return(0);
       }

       j = i = 0;
       while (1) {     /* Now build the list of words */
               for (; *line == ' ' || *line == '\t'; ++line)
                       ;
               if (*line == '\0')
                       break;

               i = 0;
               for (; *line != ' ' && *line != '\t' && *line != '\0'; ++line)
                       word[i++] =  *line;
               word[i] = '\0';
               argv[j] = malloc(strlen(word) + 1);
               if (argv[j] == (char *) NULL) {
                       fprintf(stderr, "parsit: malloc out of space!\n");
                       return(0);
               }

               (void) strcpy(argv[j], word);
               ++j;
               if (*line == '\0')
                       break;
       }
       argv[j] = (char *) NULL;  /* remember null at end of list */
       *array = argv;
       return(j);
}