Changeset 800

Timestamp:

Oct 4, 2003, 6:00:27 PM (22 years ago)

Author:

bird

Message:

Fixed problem with quoted parameters starting with a space.

File:

• trunk/src/misc/dllar.cmd (modified) (2 diffs, 1 prop)

trunk/src/misc/dllar.cmd

@@ -244 +244 @@
             do
                 iPos = pos(';', line);
-                if (iPos > 1) then 
+                if (iPos > 1) then
                     line = strip(substr(line, 1, iPos - 1), 'T');
                 line = line||' @'||ordinal||' NONAME';
@@ -356 +356 @@
     if (left(_tmp_, 1) = '"') | (left(_tmp_, 1) = "'") then
     do
-        do while (i < words(cmdLine) & right(_tmp_, 1) \= left(_tmp_, 1))
+        do while (i < words(cmdLine) & (length(_tmp_) <= 1 | right(_tmp_, 1) \= left(_tmp_, 1)))
             i = i + 1;
             if (_tmp_ = '') then