parser.c File Reference

XML-like parser. More...

#include <stdio.h>
#include <stdlib.h>
#include <errno.h>
#include <string.h>
#include "pair.h"
#include "lexer.h"
#include "template.h"
#include "translator.h"
#include "parser.h"

Include dependency graph for parser.c:

Go to the source code of this file.

Defines
#define	EVAL(expr, err)   if (expr) { errno = err; perror(pcerr); iret = EXIT_FAILURE; goto cleanup; }
	In evaluand's case, assigns errno and initiates cleanup; puts error.
#define	ALLOC(str, vector)   EVAL((str = (char *) realloc(str, vector + sizeof('\0'))) == NULL, ENOMEM)
	Allocates string according to vector; sets adherent error state.
#define	STRCAT(stra, strb)   ALLOC(stra, strlen(stra) + strlen(strb)); strcat(stra, strb)
	Concatenates strings, allocating and setting error states.
#define	STRSUB(stra, strb, offset)   ALLOC(stra, offset); sprintf(stra, "%.*s", offset, strb)
	Creates new string of string's substring.
#define	NONE(a)   a = (char *) malloc(0)
	Prepare the char vector for realloc.
Functions
int	parse (char *pcin)
	Parse source as a collection of specific demi-XML legmata, ferreting out the adherent contents.
void	parsetag (char *pc)
	Parses lectate and funnels adherent content to an appropriate translator.

---

Detailed Description

XML-like parser.

Definition in file parser.c.

---

Define Documentation

#define ALLOC (  str, vector   )     EVAL((str = (char *) realloc(str, vector + sizeof('\0'))) == NULL, ENOMEM)

Allocates string according to vector; sets adherent error state. Parameters: str  allocand vector  allocable vector Definition at line 21 of file parser.c.

#define EVAL (  expr, err   )     if (expr) { errno = err; perror(pcerr); iret = EXIT_FAILURE; goto cleanup; }

In evaluand's case, assigns errno and initiates cleanup; puts error. Parameters: expr  evaluand err  errno Definition at line 17 of file parser.c.

#define NONE (  a   )     a = (char *) malloc(0)

Prepare the char vector for realloc. Parameters: a  allocand Definition at line 33 of file parser.c.

#define STRCAT (  stra, strb   )     ALLOC(stra, strlen(stra) + strlen(strb)); strcat(stra, strb)

Concatenates strings, allocating and setting error states. Parameters: stra  concatenate strb  concatenand Definition at line 25 of file parser.c.

#define STRSUB (  stra, strb, offset   )     ALLOC(stra, offset); sprintf(stra, "%.*s", offset, strb)

Creates new string of string's substring. Parameters: stra  duplicate strb  duplicand offset  duplicable vector Definition at line 30 of file parser.c.

---

Function Documentation

int parse (  char *  pcin  )

Parse source as a collection of specific demi-XML legmata, ferreting out the adherent contents. Parameters: pcin  partand [sic] Returns: EXIT_SUCCESS, EXIT_FAILURE. Definition at line 38 of file parser.c. References ALLOC, EVAL, template_t::i, lex(), NONE, PARSE_ELEMENT, PARSE_ERR, parsetag(), template_t::pten, STRCAT, te, and templatefree(). Referenced by main(). { int i, iret = EXIT_SUCCESS; const char *pcmaskbase = "<[[:space:]]*?(%s)+?(.*?)>(.*?)</\\%d>"; const char *pcdiv = "|"; const char *pcerr = "parser.c parse()"; char NONE(*pcmaskelement), NONE(*pcmask); /* Initialize template list. */ EVAL(template(&te) != EXIT_SUCCESS, PARSE_ERR); /* Goal: element mask of the form `math|chem|music|...'. */ for (i = 0; i < te.i; i++) { STRCAT(pcmaskelement, (te.pten + i)->pcclass); STRCAT(pcmaskelement, pcdiv); } /* Elide the terminal divider. */ *(pcmaskelement + strlen(pcmaskelement) - strlen(pcdiv)) = '\0'; /* Slight superfluity when %d recombined as integer; and on single-character classes. */ ALLOC(pcmask, strlen(pcmaskelement) + strlen(pcmaskbase)); sprintf(pcmask, pcmaskbase, pcmaskelement, PARSE_ELEMENT); /* Perform tokenization with callback. Important implication: class name associated with content is always the first pair! */ EVAL(lex(pcin, pcmask, parsetag) != EXIT_SUCCESS, EINVAL); cleanup: templatefree(&te); free(pcmaskelement); free(pcmask); return iret; }

Here is the call graph for this function:

void parsetag (  char *  pc  )

Parses lectate and funnels adherent content to an appropriate translator. Parameters: pc  lectand Definition at line 75 of file parser.c. References addpair(), EVAL, template_t::i, NONE, PAIRNEW, PARSE_ARG, PARSE_ARGS, PARSE_BEGIN, PARSE_CLASS, PARSE_CONTENT, PARSE_END, PARSE_MATCH, PARSE_OPT, PARSE_PAIRS, template_t::pten, STRSUB, te, and translate(). Referenced by parse(). { int i, ire, aisub[PARSE_ARGS * PARSE_VECTOR], iret; /* iret: macro placeholder */ pcre *pre; const char *pcre; const char *pcmask = "^<[[:space:]]*([^[:space:]]+)(.*?)>(.*)<"; const char *pcerr = "parser.c parsetag()"; char NONE(*pcclass), NONE(*pcpairs), NONE(*pccontent); pair_t pa; EVAL((pre = pcre_compile(pcmask, PARSE_OPT, &pcre, &ire, NULL)) == NULL, EINVAL); EVAL(pcre_exec(pre, NULL, pc, strlen(pc), 0, 0, aisub, 12) < PARSE_MATCH, EINVAL); STRSUB(pcclass, pc + aisub[PARSE_CLASS * PARSE_ARG + PARSE_BEGIN], aisub[PARSE_CLASS * PARSE_ARG + PARSE_END] - aisub[PARSE_CLASS * PARSE_ARG + PARSE_BEGIN]); STRSUB(pcpairs, pc + aisub[PARSE_PAIRS * PARSE_ARG + PARSE_BEGIN], aisub[PARSE_PAIRS * PARSE_ARG + PARSE_END] - aisub[PARSE_PAIRS * PARSE_ARG + PARSE_BEGIN]); STRSUB(pccontent, pc + aisub[PARSE_CONTENT * PARSE_ARG + PARSE_BEGIN], aisub[PARSE_CONTENT * PARSE_ARG + PARSE_END] - aisub[PARSE_CONTENT * PARSE_ARG + PARSE_BEGIN]); /* Shine constructor. */ PAIRNEW(pa); /* Construct pair devised of class and content. */ addpair(pcclass, pccontent, &pa); for (i = 0; i < te.i; i++) { if (strcmp(pcclass, (te.pten + i)->pcclass) == 0) { translate((te.pten + i)->pcdigest, &pa); } } cleanup: free(pcclass); free(pcpairs); free(pccontent); }

Here is the call graph for this function:

---