Exemplo n.º 1
0
/**
 * Gets (and returns) a token from the token file.
 *
 * @param input_file the token file
 * @return the token_type scanned from the file
 */
token_type get_token(FILE *input_file) {
  int tmp;
  if(fscanf(input_file, "%d", &tmp) == 1) {
    if(tmp >= 1 && tmp <= 34) {
      if(DEBUG) printf("DEBUG: get_token: %d %s\n", (token_type)tmp, get_token_symbol((token_type)tmp));
      return (token_type)tmp;
    }
  }
  return nulsym;
}
Exemplo n.º 2
0
/**
 * Prints out the symbolic internal list of lexemes to a file.
 *
 * If the token_type is either 2 or 3, need to print the symbol hash or else
 * the lexeme (separated by a space).
 *
 * Example: 
 * intsym identsym.20 commasym identsym.26 semicolonsym beginsym identsym.26
 * becomessym numbersym.3 semicolonsym identsym.20 becomessym identsym.26
 * plussym numbersym.56 semicolonsym endsym periodsym
 */
void print_symbolic_internal_lexeme_list(FILE *output_file, lexeme_list *lexemes) {
	if(!output_file) output_file = stdout;
	lexeme_list *pos = lexemes;

	while(pos) {
		fprintf(output_file, "%s", get_token_symbol(pos->t));

		if(pos->t == identsym) {
			//fprintf(output_file, ".%d", symbol_hash(pos->lex));
			fprintf(output_file, ".%s", pos->lex);
		} else if(pos->t == numbersym) {
			fprintf(output_file, ".%s", pos->lex);
		}
		if(pos->next) fprintf(output_file, " ");

		pos = pos->next;
	}
	fprintf(output_file, "\n");
}