tcc -E: preserve spaces (partial solution)
Recently I needed to trim storage space on an embedded distro which has
X.
X depend on cpp which is ~8MB in size as shipped in Debian, so the idea
was to remove cpp and use `tcc -E` instead where appropriate.
I've done this with the following 'hack' put inplace of /usr/bin/cpp :
#!/bin/sh -e
TCC=/home/kirr/local/tcc/bin/tcc
last="${!#}"
# hack to distinguish between '... -D...' and '... file'
if test -r "$last"; then
exec $TCC -E "$@"
else
exec $TCC -E "$@" -
fi
But the problem turned out to be in `tcc -E` inability to preserve
spaces between tokens. So e.g. the following ~/.Xresources
XTerm*VT100*foreground: black
...
got translated to
XTerm * VT100 * foreground : black
which is bad, bacause now X don't understand it.
Below is a newbie "fix" for the problem.
It still does not preserve spaces on macro expansion, but since the fix
cures original problem, I think it is at least one step forward.
Signed-off-by: Kirill Smelkov <kirr@landau.phys.spbu.ru>
This commit is contained in:
10
tcc.c
10
tcc.c
@ -331,6 +331,7 @@ typedef struct CachedInclude {
|
|||||||
/* parser */
|
/* parser */
|
||||||
static struct BufferedFile *file;
|
static struct BufferedFile *file;
|
||||||
static int ch, tok;
|
static int ch, tok;
|
||||||
|
static CString tok_spaces; /* spaces before current token */
|
||||||
static CValue tokc;
|
static CValue tokc;
|
||||||
static CString tokcstr; /* current parsed string, if any */
|
static CString tokcstr; /* current parsed string, if any */
|
||||||
/* additional informations about token */
|
/* additional informations about token */
|
||||||
@ -3675,6 +3676,7 @@ static inline void next_nomacro1(void)
|
|||||||
uint8_t *p, *p1;
|
uint8_t *p, *p1;
|
||||||
unsigned int h;
|
unsigned int h;
|
||||||
|
|
||||||
|
cstr_reset(&tok_spaces);
|
||||||
p = file->buf_ptr;
|
p = file->buf_ptr;
|
||||||
redo_no_start:
|
redo_no_start:
|
||||||
c = *p;
|
c = *p;
|
||||||
@ -3684,6 +3686,7 @@ static inline void next_nomacro1(void)
|
|||||||
case '\f':
|
case '\f':
|
||||||
case '\v':
|
case '\v':
|
||||||
case '\r':
|
case '\r':
|
||||||
|
cstr_ccat(&tok_spaces, c);
|
||||||
p++;
|
p++;
|
||||||
goto redo_no_start;
|
goto redo_no_start;
|
||||||
|
|
||||||
@ -9777,7 +9780,10 @@ static int tcc_compile(TCCState *s1)
|
|||||||
}
|
}
|
||||||
|
|
||||||
/* Preprocess the current file */
|
/* Preprocess the current file */
|
||||||
/* XXX: add line and file infos, add options to preserve spaces */
|
/* XXX: add line and file infos,
|
||||||
|
* XXX: add options to preserve spaces (partly done, only spaces in macro are
|
||||||
|
* not preserved)
|
||||||
|
*/
|
||||||
static int tcc_preprocess(TCCState *s1)
|
static int tcc_preprocess(TCCState *s1)
|
||||||
{
|
{
|
||||||
Sym *define_start;
|
Sym *define_start;
|
||||||
@ -9806,7 +9812,7 @@ static int tcc_preprocess(TCCState *s1)
|
|||||||
++line_ref;
|
++line_ref;
|
||||||
token_seen = 0;
|
token_seen = 0;
|
||||||
} else if (token_seen) {
|
} else if (token_seen) {
|
||||||
fputc(' ', s1->outfile);
|
fwrite(tok_spaces.data, tok_spaces.size, 1, s1->outfile);
|
||||||
} else {
|
} else {
|
||||||
int d = file->line_num - line_ref;
|
int d = file->line_num - line_ref;
|
||||||
if (file != file_ref || d < 0 || d >= 8)
|
if (file != file_ref || d < 0 || d >= 8)
|
||||||
|
|||||||
Reference in New Issue
Block a user