X-Git-Url: https://git.dlugolecki.net.pl/?a=blobdiff_plain;f=gedcom_1byte.lex;h=df4559abc7da5b45b3f143700a2b6d674e2689dd;hb=45a9528c2705679e8556c9bbfe9196233ec14d29;hp=7121973e42795a5a8bf3cbfe4392c160aa59911b;hpb=a54348309c92f4d7a2dd66b4055122a7be19ca28;p=gedcom-parse.git

diff --git a/gedcom_1byte.lex b/gedcom_1byte.lex
index 7121973..df4559a 100644
--- a/gedcom_1byte.lex
+++ b/gedcom_1byte.lex
@@ -1,3 +1,12 @@
+/*  This program is free software; you can redistribute it and/or modify  *
+ *  it under the terms of the GNU General Public License as published by  *
+ *  the Free Software Foundation; either version 2 of the License, or     *
+ *  (at your option) any later version.                                   *
+
+ (C) 2001 by The Genes Development Team
+ Original author: Peter Verthez (Peter.Verthez@advalvas.be)
+*/
+
 /* $Id$ */
 /* $Name$ */
 
@@ -88,6 +97,7 @@ if (level_diff < 1) {
 }
 else if (level_diff == 1) {
   level_diff++;
+  gedcom_lval.number = current_level;
   return OPEN;
 }
 else {
@@ -124,6 +134,7 @@ else {
 		    }
 		    else if (level_diff == 1) {
 		      level_diff++;
+		      gedcom_lval.number = current_level;
 		      return OPEN;
 		    }
 		    else {
@@ -346,7 +357,7 @@ int main()
   while (tok) {
     switch(tok) {
       case BADTOKEN: printf("BADTOKEN "); break;
-      case OPEN: printf("OPEN "); break;
+      case OPEN: printf("OPEN(%d) ", gedcom_lval.number); break;
       case CLOSE: printf("CLOSE "); break;
       case ESCAPE: printf("ESCAPE(%s) ", gedcom_lval.string); break;
       case DELIM: printf("DELIM "); break;