pith/strlst.c

   1 #if !defined(lint) && !defined(DOS)
   2 static char rcsid[] = "$Id: strlst.c 761 2007-10-23 22:35:18Z hubert@u.washington.edu $";
   3 #endif
   4
   5 /*
   6  * ========================================================================
   7  * Copyright 2013-2019 Eduardo Chappa
   8  * Copyright 2006 University of Washington
   9  *
  10  * Licensed under the Apache License, Version 2.0 (the "License");
  11  * you may not use this file except in compliance with the License.
  12  * You may obtain a copy of the License at
  13  *
  14  *     http://www.apache.org/licenses/LICENSE-2.0
  15  *
  16  * ========================================================================
  17  */
  18
  19 /*======================================================================
  20
  21      strlst.c
  22      Implements STRINGLIST creation destruction routines
  23
  24   ====*/
  25
  26
  27 #include "../pith/headers.h"
  28 #include "../pith/strlst.h"
  29
  30
  31 STRINGLIST *
  32 new_strlst(char **l)
  33 {
  34     STRINGLIST *sl = mail_newstringlist();
  35
  36     sl->text.data = (unsigned char *) (*l);
  37     sl->text.size = strlen(*l);
  38     sl->next = (*++l) ? new_strlst(l) : NULL;
  39     return(sl);
  40 }
  41
  42
  43 void
  44 free_strlst(struct string_list **sl)
  45 {
  46     if(*sl){
  47         if((*sl)->next)
  48           free_strlst(&(*sl)->next);
  49
  50         fs_give((void **) sl);
  51     }
  52 }