paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 01:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Correct command-line working

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-11-18 23:01:18 +01:00
parent 2301f09d77
commit f6402d6ff5
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
utils/openapi/openapi2pas.pp
View File

@ -131,13 +131,20 @@ begin
FUUIDMapFile:=GetOptionValue('u','uuid-map'); FUUIDMapFile:=GetOptionValue('u','uuid-map');
FServiceMapFile:=GetOptionValue('s','service-map'); FServiceMapFile:=GetOptionValue('s','service-map');
FCodeGen.GenerateServer:=HasOption('r','server'); FCodeGen.GenerateServer:=HasOption('r','server');
FCodeGen.GenerateClient:=HasOption('c','client');
FCodeGen.AbstractServiceCalls:=HasOption('b','abstract'); FCodeGen.AbstractServiceCalls:=HasOption('b','abstract');
FCodeGen.SkipServerServiceImplementationModule:=HasOption('n','no-implementation'); FCodeGen.SkipServerServiceImplementationModule:=HasOption('n','no-implementation');
FQuiet:=HasOption('q','quiet'); FQuiet:=HasOption('q','quiet');
if HasOption('w','write-config') then if HasOption('w','write-config') then
WriteConfig(GetOptionValue('w','write-config')) WriteConfig(GetOptionValue('w','write-config'))
else else
begin begin
if lInputFile='' then
begin
Usage('No input file specified.');
Exit;
end;
if lOutputFile='' then if lOutputFile='' then
lOutputFile:=ChangeFileExt(lInputFile,''); lOutputFile:=ChangeFileExt(lInputFile,'');
lAPI:=TOpenAPI.Create; lAPI:=TOpenAPI.Create;
@ -169,7 +176,9 @@ end;
procedure TGenDTOApplication.Usage(const aMessage: string); procedure TGenDTOApplication.Usage(const aMessage: string);
begin begin
writeln('Usage: ', ExeName, '[options]'); if aMessage<>'' then
Writeln('Error : ',aMessage);
writeln('Usage: ', ExtractFileName(ExeName), ' [options]');
Writeln('Where options is one or more of:'); Writeln('Where options is one or more of:');
Writeln('-a --async Generate asynchronous service calls.'); Writeln('-a --async Generate asynchronous service calls.');
Writeln('-b --abstract Split server in abstract handler and implementation modules (and units).'); Writeln('-b --abstract Split server in abstract handler and implementation modules (and units).');
@ -178,10 +187,11 @@ begin
Writeln('-d --delphi Generate delphi code for DTO/Serializer/Service definitions.'); Writeln('-d --delphi Generate delphi code for DTO/Serializer/Service definitions.');
Writeln('-e --enumerated Use enumerateds (default is to keep strings).'); Writeln('-e --enumerated Use enumerateds (default is to keep strings).');
Writeln('-h --help This message.'); Writeln('-h --help This message.');
Writeln('-i --input=FILE OpenAPI JSON File to use.'); Writeln('-i --input=FILE OpenAPI JSON File to use. Required.');
Writeln('-n --no-implementation Skip generation of server service module (only useful when -b is used).'); Writeln('-n --no-implementation Skip generation of server service module (only useful when -b is used).');
Writeln('-o --output=FILE Base filename for output.'); Writeln('-o --output=FILE Base filename for output.');
Writeln('-q --quiet Be less verbose.'); Writeln('-q --quiet Be less verbose.');
Writeln('-r --server Generate a HTTP server module.');
Writeln('-s --service-map=FILE Read service and method name mapping from file.'); Writeln('-s --service-map=FILE Read service and method name mapping from file.');
Writeln('-u --uuid-map=FILE Read (and write) a file with UUIDs for interfaces.'); Writeln('-u --uuid-map=FILE Read (and write) a file with UUIDs for interfaces.');
Writeln('-v --verbose-header Add OpenAPI description to unit header.'); Writeln('-v --verbose-header Add OpenAPI description to unit header.');