[Help-gengetopt] test

[Lorenzo Bettini]

-- 
+-----------------------------------------------------+
|  Lorenzo Bettini          ICQ# lbetto, 16080134     |
|  PhD student in Computer Science                    |
|  Florence - Italy         (Linux User # 158233)     |
|  Home Page        : http://w3.newnet.it/bettini     |
|           http://infostud.dsi.unifi.it/~bettini     |
|  Mail Home        : address@hidden     |
|  Mail University  : address@hidden            |
|  http://www.mokabyte.it       Java on line journal  |
|  http://music.dsi.unifi.it         XKlaim language  |
|  http://www.gnu.org/software/java2html & cpp2html   |
+-----------------------------------------------------+
>From address@hidden Tue Sep 26 10:00:03 2000
Received: from [139.85.108.152] (helo=adglinux1.hns.com)
        by fencepost.gnu.org with smtp (Exim 3.16 #1 (Debian))
        id 13dvH8-0006MF-00
        for <address@hidden>; Tue, 26 Sep 2000 10:00:03 -0400
Received: from nbecker by adglinux1.hns.com with local (Exim 3.16 #1)
        id 13dvH7-00042U-00
        for address@hidden; Tue, 26 Sep 2000 10:00:01 -0400
To: address@hidden
Subject: Patch for scanner.l 
Content-Type: text/plain; charset=US-ASCII
From: address@hidden
Date: 26 Sep 2000 10:00:01 -0400
Message-ID: <address@hidden>
Lines: 53
MIME-Version: 1.0
Sender: address@hidden
Errors-To: address@hidden
X-BeenThere: address@hidden
X-Mailman-Version: 2.0beta6
Precedence: bulk
Reply-To: address@hidden
List-Help: <mailto:address@hidden>
List-Post: <mailto:address@hidden>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/help-gengetopt>, 
<mailto:address@hidden>
List-Id: Users list for gengetopt <help-gengetopt.gnu.org>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/help-gengetopt>, 
<mailto:address@hidden>
List-Archive: http://mail.gnu.org/pipermail/help-gengetopt/

With this patch, scanner is simplified and now accepts arbitrary
character strings between "".

===================================================================
RCS file: ./src/scanner.l,v
retrieving revision 1.1
diff -u -r1.1 ./src/scanner.l
--- ./src/scanner.l     2000/09/26 13:44:51     1.1
+++ ./src/scanner.l     2000/09/26 13:59:18
@@ -30,19 +30,12 @@
 [Oo][Ff][Ff]                              yylval.bool = 0; return TOK_ONOFF;
 
 [[:alnum:]]                    yylval.chr = yytext[0]; return TOK_CHAR;
-\"[[:alnum:]][[:alnum:].-]*\"  {
+\"[^\"\n]*\"   {
                                /* if you add or remove simbols, change 
canonize_vars
                                   function */
                                yytext [strlen(yytext) - 1] = 0;
                                yylval.str = yytext + 1;
                                return TOK_STRING;
-                               }
-\"[[:alnum:]][[:alnum:]. -]*\" {
-                               /* if you add or remove simbols, change 
canonize_vars
-                                  function */
-                               yytext [strlen(yytext) - 1] = 0;
-                               yylval.str = yytext + 1;
-                               return TOK_STRING_WITH_SPACES;
                                }
 
 [ \t]+                         /* eat spaces */
===================================================================
RCS file: ./src/parser.y,v
retrieving revision 1.1
diff -u -r1.1 ./src/parser.y
--- ./src/parser.y      2000/09/26 13:47:17     1.1
+++ ./src/parser.y      2000/09/26 13:47:30
@@ -40,7 +40,6 @@
 %token           TOK_FLAG
 %token <bool>    TOK_ONOFF
 %token <str>     TOK_STRING
-%token <str>     TOK_STRING_WITH_SPACES
 %token <chr>     TOK_CHAR
 %token <argtype> TOK_ARGTYPE
 %type  <str>     exp_str
@@ -60,8 +59,7 @@
 ;
 
 
-exp_str:         TOK_STRING_WITH_SPACES { $$ = $1; }
-               | TOK_STRING             { $$ = $1; }
+exp_str:        TOK_STRING             { $$ = $1; }
 ;