scanner.c File Reference

#include "gwion_util.h"
#include "gwion_ast.h"
#include "parser.h"
#include "lexer.h"

Go to the source code of this file.

Macros
#define	PP_SIZE   127

Functions
static ANEW Scanner *	new_scanner (AstGetter *arg)
static ANN void	free_scanner (Scanner *scan)
static ANN Ast	get_ast (MemPool mp, Scanner *s)
ANN Ast	parse_pos (struct AstGetter_ *const arg, const pos_t pos)
static ANN char *	get_filename (Scanner *scan, const PPState *ppstate)
static ANN void	secondary (Scanner *scan)
int	scanner_error (Scanner *scan, const char *main, const char *explain, const loc_t loc, const uint error_code)
ANN int	scanner_secondary (Scanner *scan, const char *main, const loc_t loc)

Macro Definition Documentation

PP_SIZE

#define PP_SIZE   127

Definition at line 6 of file scanner.c.

Function Documentation

free_scanner()

static ANN void free_scanner ( Scanner * scan )

static

Definition at line 23 of file scanner.c.

                                            {
  vector_release(&scan->hashes);
  free_pp(scan->st->p, scan->pp, scan->scanner);
  gwion_lex_destroy(scan->scanner);
  mp_free(scan->st->p, Scanner, scan);
}

get_ast()

static ANN Ast get_ast ( MemPool mp, Scanner * s )

static

Definition at line 30 of file scanner.c.

                                               {
  if (!gwion_parse(s)) return s->getter->ppa->ast;
  if (s->getter->ppa->ast) free_ast(mp, s->getter->ppa->ast);
  return NULL;
}

get_filename()

static ANN char * get_filename ( Scanner * scan, const PPState * ppstate )

static

Definition at line 44 of file scanner.c.

                                                                     {
  m_str filename = ppstate->filename;
  if (!scan->pp->npar) {
    m_uint i = vector_size(&scan->pp->state) - 1;
    if (*filename == '@') {
      while (*filename == '@') {
        --i;
        const PPState *pps = (PPState*)vector_at(&scan->pp->state, i);
        filename = pps->filename;
      }
    }
  } else {
    const PPState *pps = (PPState*)vector_front(&scan->pp->state);
    filename = pps->filename;
  }
  return filename;
}

new_scanner()

static ANEW Scanner * new_scanner ( AstGetter * arg )

static

Definition at line 8 of file scanner.c.

                                                 {
  Scanner *scan = (Scanner *)mp_calloc(arg->st->p, Scanner);
  vector_init(&scan->hashes);
  gwion_lex_init(&scan->scanner);
  gwion_set_extra(scan, scan->scanner);
  scan->pp = new_pp(arg->st->p, PP_SIZE, arg->name);
  gwion_set_in(arg->f, scan->scanner);
  scan->st  = arg->st;
  scan->getter = arg;
  pos_ini(&scan->pos);
//  pos_ini(&scan->old);
  scan->getter->ppa->ast = NULL; // ???
  return scan;
}

parse_pos()

ANN Ast parse_pos	(	struct AstGetter_ *const	arg,
		const pos_t	pos )

Definition at line 36 of file scanner.c.

                                                                 {
  Scanner * s   = new_scanner(arg);
  s->pos = pos;
  const Ast ast = get_ast(arg->ppa->hash.p, s);
  free_scanner(s);
  return ast;
}

scanner_error()

int scanner_error	(	Scanner *	scan,
		const char *	main,
		const char *	explain,
		const loc_t	loc,
		const uint	error_code )

Definition at line 70 of file scanner.c.

                                                          {
  const PPState *ppstate = (PPState*)vector_back(&scan->pp->state);
  const m_str filename = get_filename(scan, ppstate);
  gwlog_error(main, explain, filename, loc, error_code);
  secondary(scan);
  return 0;
}

scanner_secondary()

ANN int scanner_secondary	(	Scanner *	scan,
		const char *	main,
		const loc_t	loc )

Definition at line 79 of file scanner.c.

                                                                            {
  const PPState *ppstate = (PPState*)vector_back(&scan->pp->state);
  const m_str filename = get_filename(scan, ppstate);
  gwlog_warning(main, filename, loc);
  return 0;
}

secondary()

static ANN void secondary ( Scanner * scan )

static

Definition at line 62 of file scanner.c.

                                         {
  for (m_uint i = 0; i < vector_size(&scan->pp->state) - 1; i++) {
    const PPState *pp = (PPState*)vector_at(&scan->pp->state, i);
    gwlog_related("expanded from here", get_filename(scan, pp), pp->loc);
  }
}