DeforaOS/CPP
DeforaOS/CPP
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Separated parts of cpp.c into common.h and scanner.c

Browse Source
This commit is contained in:
Pierre Pronchery 2008-06-04 16:20:14 +00:00
parent 4c8dc326b7
commit a11928106a
6 changed files with 422 additions and 357 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Makefile
View File

@ -25,6 +25,7 @@ dist:
$(PACKAGE)-$(VERSION)/include/Makefile \ $(PACKAGE)-$(VERSION)/include/Makefile \
$(PACKAGE)-$(VERSION)/include/project.conf \ $(PACKAGE)-$(VERSION)/include/project.conf \
$(PACKAGE)-$(VERSION)/src/cpp.c \ $(PACKAGE)-$(VERSION)/src/cpp.c \
$(PACKAGE)-$(VERSION)/src/scanner.c \
$(PACKAGE)-$(VERSION)/src/main.c \ $(PACKAGE)-$(VERSION)/src/main.c \
$(PACKAGE)-$(VERSION)/src/Makefile \ $(PACKAGE)-$(VERSION)/src/Makefile \
$(PACKAGE)-$(VERSION)/src/project.conf \ $(PACKAGE)-$(VERSION)/src/project.conf \

5
src/Makefile
View File

@ -17,7 +17,7 @@ INSTALL = install
all: $(TARGETS) all: $(TARGETS)
libcpp_OBJS = cpp.o libcpp_OBJS = cpp.o scanner.o
libcpp_CFLAGS = $(CPPFLAGS) $(CFLAGSF) $(CFLAGS) -fPIC libcpp_CFLAGS = $(CPPFLAGS) $(CFLAGSF) $(CFLAGS) -fPIC
libcpp.a: $(libcpp_OBJS) libcpp.a: $(libcpp_OBJS)
@ -36,6 +36,9 @@ cpp: $(cpp_OBJS) libcpp.so
cpp.o: cpp.c ../include/cpp.h cpp.o: cpp.c ../include/cpp.h
$(CC) $(libcpp_CFLAGS) -c cpp.c $(CC) $(libcpp_CFLAGS) -c cpp.c
scanner.o: scanner.c ../include/cpp.h
$(CC) $(libcpp_CFLAGS) -c scanner.c
main.o: main.c ../include/cpp.h main.o: main.c ../include/cpp.h
$(CC) $(cpp_CFLAGS) -c main.c $(CC) $(cpp_CFLAGS) -c main.c

64
src/common.h Normal file
View File

@ -0,0 +1,64 @@
/* $Id$ */
/* Copyright (c) 2008 Pierre Pronchery <khorben@defora.org> */
/* This file is part of DeforaOS Devel cpp */
/* cpp is not free software; you can redistribute it and/or modify it under the
* terms of the Creative Commons Attribution-NonCommercial-ShareAlike 3.0
* Unported as published by the Creative Commons organization.
*
* cpp is distributed in the hope that it will be useful, but WITHOUT ANY
* WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
* A PARTICULAR PURPOSE. See the Creative Commons Attribution-NonCommercial-
* ShareAlike 3.0 Unported license for more details.
*
* You should have received a copy of the Creative Commons Attribution-
* NonCommercial-ShareAlike 3.0 along with cpp; if not, browse to
* http://creativecommons.org/licenses/by-nc-sa/3.0/ */
#ifndef _CPP_COMMON_H
# define _CPP_COMMON_H
# include "cpp.h"
/* types */
typedef struct _CppDefine /* FIXME use a hash table */
{
char * name;
char * value;
} CppDefine;
typedef enum _CppScope
{
CPP_SCOPE_NOTYET = 0,
CPP_SCOPE_TAKING,
CPP_SCOPE_TAKEN
} CppScope;
/* FIXME make a subtype for the actual parser instead of the "parent" hack */
struct _Cpp
{
int filters;
Parser * parser;
/* for cpp_filter_newlines */
int newlines_last;
int newlines_last_cnt;
/* for cpp_filter_trigraphs */
int trigraphs_last;
int trigraphs_last_cnt;
/* for cpp_callback_directive */
int directive_newline;
/* for include directives */
Cpp * parent;
Cpp * subparser;
char ** paths;
size_t paths_cnt;
/* for substitutions */
CppDefine * defines;
size_t defines_cnt;
/* for context */
CppScope * scopes;
size_t scopes_cnt;
};
#endif /* !_CPP_COMMON_H */

357
src/cpp.c
View File

@ -13,7 +13,7 @@
* You should have received a copy of the Creative Commons Attribution- * You should have received a copy of the Creative Commons Attribution-
* NonCommercial-ShareAlike 3.0 along with cpp; if not, browse to * NonCommercial-ShareAlike 3.0 along with cpp; if not, browse to
* http://creativecommons.org/licenses/by-nc-sa/3.0/ */ * http://creativecommons.org/licenses/by-nc-sa/3.0/ */
/* FIXME /* FIXME:
* - comments are not handled in directives * - comments are not handled in directives
* - fix includes (system vs regular, inclusion order) * - fix includes (system vs regular, inclusion order)
* - potential memory leak with tokens' data * - potential memory leak with tokens' data
@ -32,64 +32,18 @@
#include <limits.h> #include <limits.h>
#include <libgen.h> #include <libgen.h>
#include <errno.h> #include <errno.h>
#include "cpp.h" #include "common.h"
#ifdef DEBUG
# define DEBUG_SCOPE() fprintf(stderr, "DEBUG: %s(%p) %zu scope=%d\n", \
__func__, cpp, _cpp_scope_get_count(cpp), _cpp_scope_get(cpp))
#else
# define DEBUG_SCOPE()
#endif
/* Cpp */ /* Cpp */
/* private */ /* private */
/* types */ /* types */
typedef struct _CppDefine /* FIXME use a hash table */
{
char * name;
char * value;
} CppDefine;
typedef struct _CppOperator typedef struct _CppOperator
{ {
CppCode code; CppCode code;
char const * string; char const * string;
} CppOperator; } CppOperator;
typedef enum _CppScope
{
CPP_SCOPE_NOTYET = 0,
CPP_SCOPE_TAKING,
CPP_SCOPE_TAKEN
} CppScope;
/* FIXME make a subtype for the actual parser instead of the "parent" hack */
struct _Cpp
{
int filters;
Parser * parser;
/* for cpp_filter_newlines */
int newlines_last;
int newlines_last_cnt;
/* for cpp_filter_trigraphs */
int trigraphs_last;
int trigraphs_last_cnt;
/* for cpp_callback_directive */
int directive_newline;
/* for include directives */
Cpp * parent;
Cpp * subparser;
char ** paths;
size_t paths_cnt;
/* for substitutions */
CppDefine * defines;
size_t defines_cnt;
/* for context */
CppScope * scopes;
size_t scopes_cnt;
};
/* FIXME use CPP_CODE_META_* in a structure with strings and pointers to /* FIXME use CPP_CODE_META_* in a structure with strings and pointers to
* functions instead? */ * functions instead? */
typedef enum _CppDirective typedef enum _CppDirective
@ -192,13 +146,6 @@ static char * _cpp_parse_word(Parser * parser, int c);
static int _cpp_filter_newlines(int * c, void * data); static int _cpp_filter_newlines(int * c, void * data);
static int _cpp_filter_trigraphs(int * c, void * data); static int _cpp_filter_trigraphs(int * c, void * data);
/* scope */
static int _cpp_scope_push(Cpp * cpp, CppScope scope);
static CppScope _cpp_scope_get(Cpp * cpp);
static size_t _cpp_scope_get_count(Cpp * cpp);
static void _cpp_scope_set(Cpp * cpp, CppScope scope);
static int _cpp_scope_pop(Cpp * cpp);
/* callbacks */ /* callbacks */
static int _cpp_callback_directive(Parser * parser, Token * token, int c, static int _cpp_callback_directive(Parser * parser, Token * token, int c,
void * data); void * data);
@ -385,71 +332,6 @@ static int _trigraphs_get(int last, int * c)
} }
/* scope */
/* cpp_scope_push */
static int _cpp_scope_push(Cpp * cpp, CppScope scope)
{
CppScope * p;
cpp = cpp->parent;
if(_cpp_scope_get(cpp) != CPP_SCOPE_TAKING)
scope = CPP_SCOPE_TAKEN;
if((p = realloc(cpp->scopes, sizeof(*p) * (cpp->scopes_cnt + 1)))
== NULL)
return error_set_code(1, "%s", strerror(errno));
cpp->scopes = p;
p[cpp->scopes_cnt++] = scope;
return 0;
}
/* cpp_scope_get */
static CppScope _cpp_scope_get(Cpp * cpp)
{
cpp = cpp->parent;
return (cpp->scopes_cnt == 0) ? CPP_SCOPE_TAKING
: cpp->scopes[cpp->scopes_cnt - 1];
}
/* cpp_scope_get_count */
static size_t _cpp_scope_get_count(Cpp * cpp)
{
cpp = cpp->parent;
return cpp->scopes_cnt;
}
/* cpp_scope_set */
static void _cpp_scope_set(Cpp * cpp, CppScope scope)
{
cpp = cpp->parent;
assert(cpp->scopes_cnt > 0);
cpp->scopes[cpp->scopes_cnt - 1] = scope;
}
/* cpp_scope_pop */
static int _cpp_scope_pop(Cpp * cpp)
{
CppScope * p;
cpp = cpp->parent;
assert(cpp->scopes_cnt > 0);
if(cpp->scopes_cnt == 1)
{
free(cpp->scopes);
p = NULL;
}
else if((p = realloc(cpp->scopes, sizeof(*p) * (cpp->scopes_cnt - 1)))
== NULL)
return error_set_code(1, "%s", strerror(errno));
cpp->scopes = p;
cpp->scopes_cnt--;
return 0;
}
/* callbacks */ /* callbacks */
/* cpp_callback_whitespace */ /* cpp_callback_whitespace */
static int _cpp_callback_whitespace(Parser * parser, Token * token, int c, static int _cpp_callback_whitespace(Parser * parser, Token * token, int c,
@ -1153,238 +1035,3 @@ int cpp_path_add(Cpp * cpp, char const * path)
cpp->paths_cnt++; cpp->paths_cnt++;
return 0; return 0;
} }
/* cpp_scan */
static int _scan_get_next(Cpp * cpp, Token ** token);
static int _scan_ifdef(Cpp * cpp, Token ** token);
static int _scan_ifndef(Cpp * cpp, Token ** token);
static int _scan_if(Cpp * cpp);
static int _scan_elif(Cpp * cpp, Token ** token);
static int _scan_else(Cpp * cpp, Token ** token);
static int _scan_endif(Cpp * cpp, Token ** token);
static int _scan_define(Cpp * cpp, Token ** token);
static int _scan_undef(Cpp * cpp, Token ** token);
int cpp_scan(Cpp * cpp, Token ** token)
{
int ret;
TokenCode code;
for(; (ret = _scan_get_next(cpp, token)) == 0; token_delete(*token))
{
if(*token == NULL) /* end of file */
break;
switch((code = token_get_code(*token)))
{
case CPP_CODE_META_IFDEF:
return _scan_ifdef(cpp, token);
case CPP_CODE_META_IFNDEF:
return _scan_ifndef(cpp, token);
case CPP_CODE_META_IF:
return _scan_if(cpp);
case CPP_CODE_META_ELIF:
return _scan_elif(cpp, token);
case CPP_CODE_META_ELSE:
return _scan_else(cpp, token);
case CPP_CODE_META_ENDIF:
return _scan_endif(cpp, token);
default:
break;
}
if(_cpp_scope_get(cpp) != CPP_SCOPE_TAKING) /* not in scope */
continue;
switch(code)
{
case CPP_CODE_META_DEFINE:
return _scan_define(cpp, token);
case CPP_CODE_META_UNDEF:
return _scan_undef(cpp, token);
default:
return 0;
}
}
return ret;
}
static int _scan_get_next(Cpp * cpp, Token ** token)
{
if(cpp->subparser != NULL)
{
if(_scan_get_next(cpp->subparser, token) != 0)
return 1;
if(*token != NULL)
return 0;
cpp_delete(cpp->subparser); /* end of file */
cpp->subparser = NULL;
}
return parser_get_token(cpp->parser, token);
}
static int _scan_ifdef(Cpp * cpp, Token ** token)
{
char * name;
int take;
DEBUG_SCOPE();
name = token_get_data(*token);
take = cpp_is_defined(cpp, name);
token_set_data(*token, NULL);
free(name);
_cpp_scope_push(cpp, take ? CPP_SCOPE_TAKING : CPP_SCOPE_NOTYET);
return 0;
}
static int _scan_ifndef(Cpp * cpp, Token ** token)
{
char * name;
int take;
DEBUG_SCOPE();
name = token_get_data(*token);
take = !cpp_is_defined(cpp, name);
token_set_data(*token, NULL);
free(name);
_cpp_scope_push(cpp, take ? CPP_SCOPE_TAKING : CPP_SCOPE_NOTYET);
return 0;
}
static int _scan_if(Cpp * cpp)
{
DEBUG_SCOPE();
/* FIXME check the condition */
_cpp_scope_push(cpp, CPP_SCOPE_TAKING);
return 0;
}
static int _scan_elif(Cpp * cpp, Token ** token)
{
CppScope scope;
DEBUG_SCOPE();
if(_cpp_scope_get_count(cpp) == 0)
{
token_set_code(*token, CPP_CODE_META_ERROR);
token_set_string(*token, "#elif without #if or #ifdef"
" or #ifndef");
return 0;
}
scope = _cpp_scope_get(cpp);
if(scope == CPP_SCOPE_TAKING)
_cpp_scope_set(cpp, CPP_SCOPE_TAKEN);
else if(scope == CPP_SCOPE_NOTYET)
/* FIXME check the condition */
_cpp_scope_set(cpp, CPP_SCOPE_TAKING);
return 0;
}
static int _scan_else(Cpp * cpp, Token ** token)
{
CppScope scope;
DEBUG_SCOPE();
if(_cpp_scope_get_count(cpp) == 0)
{
token_set_code(*token, CPP_CODE_META_ERROR);
token_set_string(*token, "#else without #if or #ifdef"
" or #ifndef");
return 0;
}
scope = _cpp_scope_get(cpp);
if(scope == CPP_SCOPE_TAKING)
_cpp_scope_set(cpp, CPP_SCOPE_TAKEN);
else if(scope == CPP_SCOPE_NOTYET)
_cpp_scope_set(cpp, CPP_SCOPE_TAKING);
return 0;
}
static int _scan_endif(Cpp * cpp, Token ** token)
{
DEBUG_SCOPE();
if(_cpp_scope_get_count(cpp) == 0)
{
token_set_code(*token, CPP_CODE_META_ERROR);
token_set_string(*token, "#endif without #if or #ifdef"
" or #ifndef");
}
_cpp_scope_pop(cpp);
return 0;
}
static int _scan_define(Cpp * cpp, Token ** token)
{
char const * str;
int tmp;
size_t i;
size_t j;
size_t k = 0;
char * var;
char const * val;
str = token_get_string(*token);
/* skip '#' and white-spaces */
for(str++; (tmp = *str) != '\0' && isspace(tmp); str++);
/* skip "define" and white-spaces */
for(str+=6; (tmp = *str) != '\0' && isspace(tmp); str++);
/* fetch variable name */
for(i = 1; (tmp = str[i]) != '\0' && !isspace(tmp); i++)
{
/* FIXME actually implement macros */
if(str[i] != '(')
continue;
for(k = i; str[i] != '\0' && str[i] != ')'; i++);
if(str[i] == ')')
i++;
break;
}
/* skip white-spaces and fetch value */
for(j = i; (tmp = str[j]) != '\0' && isspace(tmp); j++);
val = (str[j] != '\0') ? &str[j] : NULL;
/* FIXME inject an error token instead */
if((var = strdup(str)) == NULL)
{
token_set_code(*token, CPP_CODE_META_ERROR);
token_set_string(*token, strerror(errno));
return 0;
}
var[k != 0 ? k : i] = '\0';
if(cpp_define_add(cpp, var, val) != 0)
{
token_set_code(*token, CPP_CODE_META_ERROR);
token_set_string(*token, error_get());
}
free(var);
return 0;
}
static int _scan_undef(Cpp * cpp, Token ** token)
/* FIXME ignores what's after the spaces after the variable name */
{
char const * str;
int tmp;
size_t i;
char * var;
str = token_get_string(*token);
/* skip '#' and white-spaces */
for(str++; (tmp = *str) != '\0' && isspace(tmp); str++);
/* skip "undef" and white-spaces */
for(str+=5; (tmp = *str) != '\0' && isspace(tmp); str++);
/* fetch variable name */
for(i = 1; (tmp = str[i]) != '\0' && !isspace(tmp); i++);
/* FIXME inject an error token instead */
if((var = strdup(str)) == NULL)
{
token_set_code(*token, CPP_CODE_META_ERROR);
token_set_string(*token, strerror(errno));
return 0;
}
var[i] = '\0';
if(cpp_define_remove(cpp, var) != 0)
{
token_set_code(*token, CPP_CODE_META_ERROR);
token_set_string(*token, error_get());
}
free(var);
return 0;
}

5
src/project.conf
View File

@ -6,7 +6,7 @@ dist=Makefile
[libcpp] [libcpp]
type=library type=library
sources=cpp.c sources=cpp.c,scanner.c
cflags=-fPIC cflags=-fPIC
ldflags=-L $(LIBDIR) -rpath $(LIBDIR) -l System ldflags=-L $(LIBDIR) -rpath $(LIBDIR) -l System
install=$(LIBDIR) install=$(LIBDIR)
@ -14,6 +14,9 @@ install=$(LIBDIR)
[cpp.c] [cpp.c]
depends=../include/cpp.h depends=../include/cpp.h
[scanner.c]
depends=../include/cpp.h
[cpp] [cpp]
type=binary type=binary
sources=main.c sources=main.c

347
src/scanner.c Normal file
View File

@ -0,0 +1,347 @@
/* $Id$ */
/* Copyright (c) 2008 Pierre Pronchery <khorben@defora.org> */
/* This file is part of DeforaOS Devel cpp */
/* cpp is not free software; you can redistribute it and/or modify it under the
* terms of the Creative Commons Attribution-NonCommercial-ShareAlike 3.0
* Unported as published by the Creative Commons organization.
*
* cpp is distributed in the hope that it will be useful, but WITHOUT ANY
* WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
* A PARTICULAR PURPOSE. See the Creative Commons Attribution-NonCommercial-
* ShareAlike 3.0 Unported license for more details.
*
* You should have received a copy of the Creative Commons Attribution-
* NonCommercial-ShareAlike 3.0 along with cpp; if not, browse to
* http://creativecommons.org/licenses/by-nc-sa/3.0/ */
/* FIXME:
* - potential memory leak with tokens' data */
#include <assert.h>
#include <unistd.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include <errno.h>
#include "common.h"
#ifdef DEBUG
# define DEBUG_SCOPE() fprintf(stderr, "DEBUG: %s(%p) %zu scope=%d\n", \
__func__, cpp, _cpp_scope_get_count(cpp), _cpp_scope_get(cpp))
#else
# define DEBUG_SCOPE()
#endif
/* private */
/* prototypes */
/* scope */
static int _cpp_scope_push(Cpp * cpp, CppScope scope);
static CppScope _cpp_scope_get(Cpp * cpp);
static size_t _cpp_scope_get_count(Cpp * cpp);
static void _cpp_scope_set(Cpp * cpp, CppScope scope);
static int _cpp_scope_pop(Cpp * cpp);
/* functions */
/* scope */
/* cpp_scope_push */
static int _cpp_scope_push(Cpp * cpp, CppScope scope)
{
CppScope * p;
cpp = cpp->parent;
if(_cpp_scope_get(cpp) != CPP_SCOPE_TAKING)
scope = CPP_SCOPE_TAKEN;
if((p = realloc(cpp->scopes, sizeof(*p) * (cpp->scopes_cnt + 1)))
== NULL)
return error_set_code(1, "%s", strerror(errno));
cpp->scopes = p;
p[cpp->scopes_cnt++] = scope;
return 0;
}
/* cpp_scope_get */
static CppScope _cpp_scope_get(Cpp * cpp)
{
cpp = cpp->parent;
return (cpp->scopes_cnt == 0) ? CPP_SCOPE_TAKING
: cpp->scopes[cpp->scopes_cnt - 1];
}
/* cpp_scope_get_count */
static size_t _cpp_scope_get_count(Cpp * cpp)
{
cpp = cpp->parent;
return cpp->scopes_cnt;
}
/* cpp_scope_set */
static void _cpp_scope_set(Cpp * cpp, CppScope scope)
{
cpp = cpp->parent;
assert(cpp->scopes_cnt > 0);
cpp->scopes[cpp->scopes_cnt - 1] = scope;
}
/* cpp_scope_pop */
static int _cpp_scope_pop(Cpp * cpp)
{
CppScope * p;
cpp = cpp->parent;
assert(cpp->scopes_cnt > 0);
if(cpp->scopes_cnt == 1)
{
free(cpp->scopes);
p = NULL;
}
else if((p = realloc(cpp->scopes, sizeof(*p) * (cpp->scopes_cnt - 1)))
== NULL)
return error_set_code(1, "%s", strerror(errno));
cpp->scopes = p;
cpp->scopes_cnt--;
return 0;
}
/* public */
/* cpp_scan */
static int _scan_get_next(Cpp * cpp, Token ** token);
static int _scan_ifdef(Cpp * cpp, Token ** token);
static int _scan_ifndef(Cpp * cpp, Token ** token);
static int _scan_if(Cpp * cpp);
static int _scan_elif(Cpp * cpp, Token ** token);
static int _scan_else(Cpp * cpp, Token ** token);
static int _scan_endif(Cpp * cpp, Token ** token);
static int _scan_define(Cpp * cpp, Token ** token);
static int _scan_undef(Cpp * cpp, Token ** token);
int cpp_scan(Cpp * cpp, Token ** token)
{
int ret;
TokenCode code;
for(; (ret = _scan_get_next(cpp, token)) == 0; token_delete(*token))
{
if(*token == NULL) /* end of file */
break;
switch((code = token_get_code(*token)))
{
case CPP_CODE_META_IFDEF:
return _scan_ifdef(cpp, token);
case CPP_CODE_META_IFNDEF:
return _scan_ifndef(cpp, token);
case CPP_CODE_META_IF:
return _scan_if(cpp);
case CPP_CODE_META_ELIF:
return _scan_elif(cpp, token);
case CPP_CODE_META_ELSE:
return _scan_else(cpp, token);
case CPP_CODE_META_ENDIF:
return _scan_endif(cpp, token);
default:
break;
}
if(_cpp_scope_get(cpp) != CPP_SCOPE_TAKING) /* not in scope */
continue;
switch(code)
{
case CPP_CODE_META_DEFINE:
return _scan_define(cpp, token);
case CPP_CODE_META_UNDEF:
return _scan_undef(cpp, token);
default:
return 0;
}
}
return ret;
}
static int _scan_get_next(Cpp * cpp, Token ** token)
{
if(cpp->subparser != NULL)
{
if(_scan_get_next(cpp->subparser, token) != 0)
return 1;
if(*token != NULL)
return 0;
cpp_delete(cpp->subparser); /* end of file */
cpp->subparser = NULL;
}
return parser_get_token(cpp->parser, token);
}
static int _scan_ifdef(Cpp * cpp, Token ** token)
{
char * name;
int take;
DEBUG_SCOPE();
name = token_get_data(*token);
take = cpp_is_defined(cpp, name);
token_set_data(*token, NULL);
free(name);
_cpp_scope_push(cpp, take ? CPP_SCOPE_TAKING : CPP_SCOPE_NOTYET);
return 0;
}
static int _scan_ifndef(Cpp * cpp, Token ** token)
{
char * name;
int take;
DEBUG_SCOPE();
name = token_get_data(*token);
take = !cpp_is_defined(cpp, name);
token_set_data(*token, NULL);
free(name);
_cpp_scope_push(cpp, take ? CPP_SCOPE_TAKING : CPP_SCOPE_NOTYET);
return 0;
}
static int _scan_if(Cpp * cpp)
{
DEBUG_SCOPE();
/* FIXME check the condition */
_cpp_scope_push(cpp, CPP_SCOPE_TAKING);
return 0;
}
static int _scan_elif(Cpp * cpp, Token ** token)
{
CppScope scope;
DEBUG_SCOPE();
if(_cpp_scope_get_count(cpp) == 0)
{
token_set_code(*token, CPP_CODE_META_ERROR);
token_set_string(*token, "#elif without #if or #ifdef"
" or #ifndef");
return 0;
}
scope = _cpp_scope_get(cpp);
if(scope == CPP_SCOPE_TAKING)
_cpp_scope_set(cpp, CPP_SCOPE_TAKEN);
else if(scope == CPP_SCOPE_NOTYET)
/* FIXME check the condition */
_cpp_scope_set(cpp, CPP_SCOPE_TAKING);
return 0;
}
static int _scan_else(Cpp * cpp, Token ** token)
{
CppScope scope;
DEBUG_SCOPE();
if(_cpp_scope_get_count(cpp) == 0)
{
token_set_code(*token, CPP_CODE_META_ERROR);
token_set_string(*token, "#else without #if or #ifdef"
" or #ifndef");
return 0;
}
scope = _cpp_scope_get(cpp);
if(scope == CPP_SCOPE_TAKING)
_cpp_scope_set(cpp, CPP_SCOPE_TAKEN);
else if(scope == CPP_SCOPE_NOTYET)
_cpp_scope_set(cpp, CPP_SCOPE_TAKING);
return 0;
}
static int _scan_endif(Cpp * cpp, Token ** token)
{
DEBUG_SCOPE();
if(_cpp_scope_get_count(cpp) == 0)
{
token_set_code(*token, CPP_CODE_META_ERROR);
token_set_string(*token, "#endif without #if or #ifdef"
" or #ifndef");
}
_cpp_scope_pop(cpp);
return 0;
}
static int _scan_define(Cpp * cpp, Token ** token)
{
char const * str;
int tmp;
size_t i;
size_t j;
size_t k = 0;
char * var;
char const * val;
str = token_get_string(*token);
/* skip '#' and white-spaces */
for(str++; (tmp = *str) != '\0' && isspace(tmp); str++);
/* skip "define" and white-spaces */
for(str+=6; (tmp = *str) != '\0' && isspace(tmp); str++);
/* fetch variable name */
for(i = 1; (tmp = str[i]) != '\0' && !isspace(tmp); i++)
{
/* FIXME actually implement macros */
if(str[i] != '(')
continue;
for(k = i; str[i] != '\0' && str[i] != ')'; i++);
if(str[i] == ')')
i++;
break;
}
/* skip white-spaces and fetch value */
for(j = i; (tmp = str[j]) != '\0' && isspace(tmp); j++);
val = (str[j] != '\0') ? &str[j] : NULL;
/* FIXME inject an error token instead */
if((var = strdup(str)) == NULL)
{
token_set_code(*token, CPP_CODE_META_ERROR);
token_set_string(*token, strerror(errno));
return 0;
}
var[k != 0 ? k : i] = '\0';
if(cpp_define_add(cpp, var, val) != 0)
{
token_set_code(*token, CPP_CODE_META_ERROR);
token_set_string(*token, error_get());
}
free(var);
return 0;
}
static int _scan_undef(Cpp * cpp, Token ** token)
/* FIXME ignores what's after the spaces after the variable name */
{
char const * str;
int tmp;
size_t i;
char * var;
str = token_get_string(*token);
/* skip '#' and white-spaces */
for(str++; (tmp = *str) != '\0' && isspace(tmp); str++);
/* skip "undef" and white-spaces */
for(str+=5; (tmp = *str) != '\0' && isspace(tmp); str++);
/* fetch variable name */
for(i = 1; (tmp = str[i]) != '\0' && !isspace(tmp); i++);
/* FIXME inject an error token instead */
if((var = strdup(str)) == NULL)
{
token_set_code(*token, CPP_CODE_META_ERROR);
token_set_string(*token, strerror(errno));
return 0;
}
var[i] = '\0';
if(cpp_define_remove(cpp, var) != 0)
{
token_set_code(*token, CPP_CODE_META_ERROR);
token_set_string(*token, error_get());
}
free(var);
return 0;
}