Function gmtlib_string_parser

src/gmt_io.c:10294–10329

unsigned int gmtlib_string_parser (struct GMT_CTRL *GMT, char *file)
{	/* Debug function for testing string parser gmtlib_determine_datatype on input list.
	 * Expects input records to be <whateverarg>|NAME, e.g.
	 * 	2001-12-24T20:01:02.333|ABSTIME
	 * and it will then echo out that and the name it detected examining <wateverarg> */
	int k, c;
	unsigned int kind;
	FILE *fp = fopen (file, "r");
	char line[GMT_LEN256] = {""};
	if (fp == NULL) {	/* Not good, wrong filename? */
		GMT_Report (GMT->parent, GMT_MSG_ERROR, "Option -/: File %s not found\n", file);
		return (GMT_RUNTIME_ERROR);
	}
	while (gmt_fgets (GMT, line, GMT_LEN256, fp)) {
		if (line[0] == '#') {	/* Just a header; echo it out */
			printf ("%s", line);
			continue;
		}
		if (strchr (line, '|') == NULL) {
			GMT_Report (GMT->parent, GMT_MSG_ERROR, "Data file for -/ testing does not have format <string>|<NAME>\n");
			return (GMT_RUNTIME_ERROR);
		}
		gmt_chop (line);		/* Remove trailing newline/CR */
		k = strlen (line) - 1;		/* Last position in line */
		while (line[k] != '|') k--;	/* Search backwards to the vertical bar */
		c = k + 1;	k--;		/* c is start of data type (e.g., STRING) */
		while (line[k] == ' ' || line[k] == '\t') k--;	/* Skip past spaces before the bar */
		k++;	line[k] = '\0';		/* Truncate at first space */
		printf ("%30s", line);	/* Print the input string to be classified */
		printf ("%14s\t", &line[c]);	/* Print what we expect (from input file) */
		kind = gmtlib_determine_datatype (GMT, line);	/* Analyze what we got */
		printf ("%14s\n", gmtio_type_name(kind));	/* Print data type detected */
	}
	fclose (fp);
	return (GMT_NOERROR);
}