RH/getline.c at master · han-uitenbroek/RH · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
/* ------- file: -------------------------- getline.c ---------------

       Version:       rh2.0
       Author:        Han Uitenbroek (huitenbroek@nso.edu)
       Last modified: Thu Dec  9 11:43:18 1999 --

       --------------------------                      ----------RH-- */

/* --- Routines for reading formatted input files. --  -------------- */


#include <ctype.h>
#include <stdarg.h>
#include <stdio.h>
#include <string.h>

#include "rh.h"
#include "error.h"
#include "inputs.h"


/* --- Function prototypes --                          -------------- */


/* --- Global variables --                             -------------- */

extern char messageStr[];


/* ------- begin -------------------------- getLine.c --------------- */

int getLine(FILE *inputFile, char *commentChar, char *line,
	    bool_t exit_on_EOF)
{
  const char routineName[] = "getLine";

  char *linePtr, dummy[2];

  /* --- Reads (into char array line) inputFile till first line
         that does not start with commentChar and returns length of
         line, or EOF at end of file. Empty lines are also ignored.
         --                                            -------------- */

  while((linePtr = fgets(line, MAX_LINE_SIZE, inputFile)) != NULL) {
    if ((sscanf(line, "%1s", dummy) > 0) && (*line != *commentChar))
      break;
  }
  if (linePtr == NULL) {
    if (exit_on_EOF) {
      sprintf(messageStr,
	      "Reached end of input file before all data was read");
      Error(ERROR_LEVEL_2, routineName, messageStr);
    } else
      return EOF;
  } else
    return strlen(line);
  return 0;
}
/* ------- end ---------------------------- getLine.c --------------- */

/* ------- begin -------------------------- checkNread.c ------------ */

void checkNread(int Nread, int Nrequired, const char *routineName,
		int checkPoint)
{
  /* --- Check whether Nread igreater or equal to Nrequired and issue
         error otherwise --                           --------------- */

  if (Nread < Nrequired) {
    sprintf(messageStr, "Unable to read input file\n"
	    " At checkpoint %d. Needed at least %d, read %d item%s",
	    checkPoint, Nrequired, Nread, (Nread > 1) ? "s" : "");
    Error(ERROR_LEVEL_2, routineName, messageStr);
  }
}
/* ------- end ---------------------------- checkNread.c ------------ */

/* ------- end ---------------------------- UpperCase.c ------------- */

void UpperCase(char *string)
{
  register int n;

  /* --- Change string content to upper case --        -------------- */

  for (n = 0;  n < (int) strlen(string);  n++)
     string[n] = toupper(string[n]);
}
/* ------- end ---------------------------- UpperCase.c ------------- */

/* ------- begin -------------------------- substring.c ------------- */

char *substring(const char *string, int N0, int Nchar)
{
  static char destination[MAX_LINE_SIZE];
  int length = strlen(string);

  /* --- Extract a substring of length Nchar from source string,
         starting at position N0. --                   -------------- */

  if (N0 >= length) N0 = length;
  if (N0 + Nchar >= length) Nchar = length - N0;

  memcpy(destination, string + N0, Nchar);
  destination[Nchar] = '\0';

  return destination;
}
/* ------- end ---------------------------- substring.c ------------- */