t8_windows.h

Go to the documentation of this file.

/*
  This file is part of t8code.
  t8code is a C library to manage a collection (a forest) of multiple
  connected adaptive space-trees of general element classes in parallel.
 
  Copyright (C) 2023 the developers
 
  t8code is free software; you can redistribute it and/or modify
  it under the terms of the GNU General Public License as published by
  the Free Software Foundation; either version 2 of the License, or
  (at your option) any later version.
 
  t8code is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  GNU General Public License for more details.
 
  You should have received a copy of the GNU General Public License
  along with t8code; if not, write to the Free Software Foundation, Inc.,
  51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
*/
 
#ifndef T8_WINDOWS_H
#define T8_WINDOWS_H
 
static              ssize_t
getdelim (char **lineptr, size_t *n, int delimiter, FILE *stream)
{
  int                 initial_buffer_size = 1024;
  int                 c;
  size_t              pos;
  size_t              new_size;
  char               *new_ptr;
 
  if (lineptr == NULL || stream == NULL || n == NULL) {
    return -1;
  }
 
  c = getc (stream);
 
  if (c == EOF) {
    return -1;
  }
 
  if (*lineptr == NULL) {
    *lineptr = (char *) malloc (initial_buffer_size);
    if (*lineptr == NULL) {
      return -1;
    }
    *n = initial_buffer_size;
  }
 
  pos = 0;
  while (c != EOF) {
    if (pos + 1 >= *n) {
      new_size = *n + (*n >> 2);
      if (new_size < initial_buffer_size) {
        new_size = initial_buffer_size;
      }
      new_ptr = (char *) realloc (*lineptr, new_size);
      if (new_ptr == NULL) {
        return -1;
      }
      *n = new_size;
      *lineptr = new_ptr;
    }
 
    ((unsigned char *) (*lineptr))[pos++] = c;
    if (c == delimiter) {
      break;
    }
 
    c = getc (stream);
  }
 
  (*lineptr)[pos] = '\0';
  return pos;
}
 
static              ssize_t
getline (char **lineptr, size_t *n, FILE *stream)
{
  return getdelim (lineptr, n, '\n', stream);
}
 
static char        *
strsep (char **stringp, const char *delim)
{
  char               *current;
  char               *original = *stringp;
 
  if (*stringp == NULL) {
    return NULL;
  }
 
  current = *stringp;
  while (1) {
    /* Delimiter not found in string: reset *stringp to NULL */
    if (*current == '\0') {
      *stringp = NULL;
      break;
    }
 
    /* Delimiter found: overwrite delimiter and reset *stringp to current location */
    if (*current == *delim) {
      *current = '\0';
      *stringp = current + 1;
      break;
    }
 
    current++;
  }
 
  return original;
}
 
#endif /* !T8_WINDOWS_H */