(items_data[itr].type == TYPE_SRC ? "progs.src" :
("unknown"))))));
- if (opts_pp_only) {
- if (!preprocess(items_data[itr].filename)) {
- retval = 1;
- goto cleanup;
- }
- continue;
- }
-
if (!parser_compile(items_data[itr].filename)) {
retval = 1;
goto cleanup;
+++ /dev/null
-#include "gmqcc.h"
-#include "lexer.h"
-
-bool preprocess(const char *filename)
-{
- int tok;
- lex_file *lex = lex_open(filename);
- lex->flags.preprocessing = true;
-
- do {
- tok = lex_do(lex);
-#if 0
- if (tok == TOKEN_EOL)
- printf("EOL");
- else if (tok >= TOKEN_START && tok <= TOKEN_FATAL)
- printf("%s: ", _tokennames[tok - TOKEN_START]);
- else
- printf("TOKEN: '%c'", tok);
- if (tok == TOKEN_WHITE)
- printf(">>%s<<\n", lex->tok.value);
- else
- printf("\n");
-#else
- if (tok == TOKEN_EOL)
- printf("\n");
- else if (tok >= TOKEN_START && tok < TOKEN_EOF)
- printf("%s", lex->tok.value);
- else if (tok < TOKEN_START)
- printf("%c", tok); /* these are characters */
-#endif
- } while (tok < TOKEN_EOF);
-
- lex_close(lex);
- return true;
-}