Changeset 28

Timestamp:

Aug 19, 2006, 4:23:25 PM (19 years ago)

Author:

RBRi

Message:

cmd line parser fix

Location:

trunk/NewView

Files:

• CmdLineParameterUnit.pas (modified) (2 diffs)
• NewView.spr (modified) (3 diffs)
• NewViewTests.pas (deleted)
• NewViewTests.spr (deleted)
• VersionUnit.pas (modified) (1 diff)

trunk/NewView/CmdLineParameterUnit.pas

@@ -335 +335 @@
      aResult.Clear;
 
-     tmpState := 0;
+     tmpState := STATE_BEFORE;
      tmpCurrentCommand := '';
      for i:=1 to length(aCmdLineString) do
@@ -370 +370 @@
                STATE_START_QUOTE :
                  begin
-                    tmpState := STATE_INSIDE;
-                    tmpCurrentCommand := tmpCurrentCommand + tmpCurrentChar;
+                    tmpState := STATE_INSIDE_QUOTED_START_QUOTE;
                  end;
                STATE_INSIDE_QUOTED :

trunk/NewView/NewView.spr

@@ -152 +152 @@
 LibSrcDir=P:\newview_dev\sibyl\spcc;P:\newview_dev\sibyl\rtl;P:\newview_dev\library;P:\newview_dev\components
 IncSrcDir=
-CompInstallDir=P:\newview_dev\sibyl\lib;P:\NEWVIEW_DEV\build\components;P:\newview_dev\components
+CompInstallDir=P:\NEWVIEW_DEV\build\components
 
 [Directories OS/2]
@@ -165 +165 @@
 [Find History]
 
-Find0=CmdLineParameters
-Find1=height
-Find2=getSearchTextFlag
-Find3=parame
-Find4=cmdline
-Find5=matchflag
-Find6=Match
-Find7=StringToList
-Find8=Classes
-Find9=ExtractNextValue
-Find10=getHelpManagerFlag
-Find11=splitted
-Find12=CmdLineParameterUnit
-Find13=parsec
-Find14=ParseCommandLineParameters
-Find15=ShowUsageFlag
+Find0=todo
+Find1=CmdLineParameters
+Find2=height
+Find3=getSearchTextFlag
+Find4=parame
+Find5=cmdline
+Find6=matchflag
+Find7=Match
+Find8=StringToList
+Find9=Classes
+Find10=ExtractNextValue
+Find11=getHelpManagerFlag
+Find12=splitted
+Find13=CmdLineParameterUnit
+Find14=parsec
+Find15=ParseCommandLineParameters
 
 [General]
@@ -196 +196 @@
 [Last Closed Files]
 
-File0=..\.\Library\ACLStringUtility.pas
-File1=..\.\components\ACLLanguageUnit.pas
-File2=.\VersionUnit.pas
-File3=.\NewView.pas
-File4=.\ViewStub.pas
-File5=.\NewViewTests.pas
+File0=D:\PROGS\SIBYL\BIN\CompLib.scl
+File1=..\.\Library\ACLStringUtility.pas
+File2=..\.\components\ACLLanguageUnit.pas
+File3=.\VersionUnit.pas
+File4=.\NewView.pas
+File5=.\ViewStub.pas
 
 [Last Open Files]
 
-File0=D:\PROGS\SIBYL\BIN\CompLib.scl
+File0=.\StartupUnit.pas
 File0.Left=-4
 File0.Bottom=-5
-File0.Width=994
-File0.Height=255
+File0.Width=1243
+File0.Height=443
 File0.Column=18
-File0.Line=8
-File1=.\StartupUnit.pas
+File0.Line=348
+File1=.\CmdLineParameterUnit.pas
 File1.Left=-4
 File1.Bottom=-5
-File1.Width=994
-File1.Height=255
-File1.Column=30
-File1.Line=246
-File2=.\CmdLineParameterUnit.pas
+File1.Width=1243
+File1.Height=443
+File1.Column=1
+File1.Line=33
+File2=.\MainForm.pas
 File2.Left=-4
 File2.Bottom=-5
-File2.Width=1032
-File2.Height=470
-File2.Column=1
-File2.Line=33
-File3=.\MainForm.pas
-File3.Left=-4
-File3.Bottom=-5
-File3.Width=994
-File3.Height=255
-File3.Column=65
-File3.Line=2250
+File2.Width=1243
+File2.Height=443
+File2.Column=46
+File2.Line=4190
 
 [Linker Options]

trunk/NewView/VersionUnit.pas

@@ -14 +14 @@
 
 const
-  Version =        'V2.18.1'; // $SS_REQUIRE_NEW_VERSION$
-  BldLevelVersion = '2.18.1'; // Embedded for IBM BLDLEVEL tool
+  Version =        'V2.19.beta1'; // $SS_REQUIRE_NEW_VERSION$
+  BldLevelVersion = '2.19.beta1'; // Embedded for IBM BLDLEVEL tool
 
 // RELEASE PROCESS