dlugolecki.net.pl
Dziennik
Polecane
Software
projects
/
gedcom-parse.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
New test program.
[gedcom-parse.git]
/
gedcom
/
gedcom_lohi.lex
diff --git
a/gedcom/gedcom_lohi.lex
b/gedcom/gedcom_lohi.lex
index a2f82a96cd361f8ba4d89330fe13180f2eb57b5c..1678875433304b32ce7992b31faac16810571b1e 100644
(file)
--- a/
gedcom/gedcom_lohi.lex
+++ b/
gedcom/gedcom_lohi.lex
@@
-25,7
+25,8
@@
/* i.e. this is utf-16-le */
%{
/* i.e. this is utf-16-le */
%{
-#undef IN_LEX /* include only a specific part of the following file */
+#define LEX_SECTION 1 /* include only a specific part of the following file */
+#define yymyinit gedcom_lohi_myinit
#include "gedcom_lex_common.c"
static size_t encoding_width = 2;
#include "gedcom_lex_common.c"
static size_t encoding_width = 2;
@@
-51,12
+52,13
@@
alphanum {alpha}|{digit}
gen_delim {delim}|{tab}
escape @\x00#\x00{any_char}+@\x00
gen_delim {delim}|{tab}
escape @\x00#\x00{any_char}+@\x00
-pointer @\x00{alphanum}{non_at}
+
@\x00
+pointer @\x00{alphanum}{non_at}
*
@\x00
%%
%{
%%
%{
-#define IN_LEX /* include only a specific part of the following file */
+#undef LEX_SECTION
+#define LEX_SECTION 2 /* include only a specific part of the following file */
#include "gedcom_lex_common.c"
ACTION_BEFORE_REGEXPS
#include "gedcom_lex_common.c"
ACTION_BEFORE_REGEXPS
@@
-218,15
+220,9
@@
ACTION_BEFORE_REGEXPS
. ACTION_UNEXPECTED
%%
. ACTION_UNEXPECTED
%%
-
-static int exitfuncregistered = 0;
-
-int yywrap()
-{
- if (! exitfuncregistered && atexit(yylex_cleanup) == 0)
- atexit(yylex_cleanup);
- return 1;
-}
+#undef LEX_SECTION
+#define LEX_SECTION 3 /* include only a specific part of the following file */
+#include "gedcom_lex_common.c"
#ifdef LEXER_TEST
int gedcom_lex()
#ifdef LEXER_TEST
int gedcom_lex()