[pure-lang-svn] SF.net SVN: pure-lang:[470] pure/trunk

[<ag...@us...>]

Revision: 470
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=470&view=rev
Author:   agraef
Date:     2008-08-12 06:49:56 +0000 (Tue, 12 Aug 2008)

Log Message:
-----------
Bugfix in parsing the option string of the 'list' command.

Modified Paths:
--------------
    pure/trunk/ChangeLog
    pure/trunk/lexer.ll

Modified: pure/trunk/ChangeLog
===================================================================
--- pure/trunk/ChangeLog	2008-08-12 06:23:16 UTC (rev 469)
+++ pure/trunk/ChangeLog	2008-08-12 06:49:56 UTC (rev 470)
@@ -1,5 +1,9 @@
 2008-08-12  Albert Graef  <Dr....@t-...>
 
+	* lexer.ll: Fixed a bug in option parsing of the 'list' command
+	which would cause an option string starting with '-a' to be
+	interpreted as an ordinary argument.
+
 	* runtime.cc (pure_catch, pure_sys_vars): Fixed memory leaks.
 
 2008-08-11  Albert Graef  <Dr....@t-...>

Modified: pure/trunk/lexer.ll
===================================================================
--- pure/trunk/lexer.ll	2008-08-12 06:23:16 UTC (rev 469)
+++ pure/trunk/lexer.ll	2008-08-12 06:49:56 UTC (rev 470)
@@ -343,7 +343,7 @@
   // process option arguments
   for (arg = args.l.begin(); arg != args.l.end(); arg++) {
     const char *s = arg->c_str();
-    if (s[0] != '-' || !s[1] || !strchr("cdefghlstv", s[1])) break;
+    if (s[0] != '-' || !s[1] || !strchr("acdefghlstv", s[1])) break;
     while (*++s) {
       switch (*s) {
       case 'a': aflag = true; break;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.