/* C code to glue the lexer and Haskell code */

#include "lexer.h"

/* Globals (bad, but we are decades back now...) */

YYLTYPE yylloc, *p_yylloc;

tokval yylval, *p_yylval;

/* Exactly as the default library libfl defines */

int yywrap (void) {
  return 1;
}

YY_EXTRA_TYPE yyget_extra(void) {
  return;
}

int yyinput(void) {
  return 0;
}

void yyset_extra (YY_EXTRA_TYPE user_defined  ) {
  return;
}