pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Parser's "CaseSensitive" implementation. To got the parser Case-Sensitive, provide the "-cS" argument at command line when using ws_helper.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1931 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2011-09-10 03:44:54 +00:00
parent 068d0c4144
commit e9067503ae
3 changed files with 49 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
wst/trunk/ws_helper/command_line_parser.pas
View File

@ -30,7 +30,7 @@ Type
cloInterface, cloProxy, cloImp, cloBinder, cloWsdl, cloXsd,
cloOutPutDirRelative, cloOutPutDirAbsolute, cloHandleWrappedParameters,
cloGenerateDocAsComments, cloGenerateObjectCollection,
cloFileRenaming, cloPrefixEnum
cloFileRenaming, cloPrefixEnum, cloParserCaseSensitive
);
TComandLineOptions = set of TComandLineOption;
@ -55,7 +55,7 @@ begin
AAppOptions := [];
c := #0;
repeat
c := GetOpt('u:pibo:a:wxydg:f:');
c := GetOpt('u:pibo:a:wxydg:f:c:');
case c of
'u' :
begin
@ -93,7 +93,12 @@ begin
begin
Include(AAppOptions,cloFileRenaming);
OptionsArgsMAP[cloFileRenaming] := OptArg;
end;
end;
'c' :
begin
Include(AAppOptions,cloParserCaseSensitive);
OptionsArgsMAP[cloParserCaseSensitive] := OptArg;
end;
end;
until ( c = EndOfOptions );
Result := OptInd;