diff options
author | umarcor <unai.martinezcorral@ehu.eus> | 2020-04-12 09:46:00 +0200 |
---|---|---|
committer | tgingold <tgingold@users.noreply.github.com> | 2020-09-20 08:50:38 +0200 |
commit | 88e4884b56ca424e70fb5ccde19220c4b76abd3e (patch) | |
tree | 7f615d101afb358b9bf02339504dc0c0d356c126 /src/ghdldrv/ghdlrun.adb | |
parent | 25c8d5a6f94338160ef9694aac850cae85360234 (diff) | |
download | ghdl-88e4884b56ca424e70fb5ccde19220c4b76abd3e.tar.gz ghdl-88e4884b56ca424e70fb5ccde19220c4b76abd3e.tar.bz2 ghdl-88e4884b56ca424e70fb5ccde19220c4b76abd3e.zip |
cli: rework syntax, add commands without '-' or '--'
Diffstat (limited to 'src/ghdldrv/ghdlrun.adb')
-rw-r--r-- | src/ghdldrv/ghdlrun.adb | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/ghdldrv/ghdlrun.adb b/src/ghdldrv/ghdlrun.adb index e8fd536a8..a1a3f2505 100644 --- a/src/ghdldrv/ghdlrun.adb +++ b/src/ghdldrv/ghdlrun.adb @@ -793,14 +793,18 @@ package body Ghdlrun is is pragma Unreferenced (Cmd); begin - return Name = "--run-help"; + return + Name = "run-help" or else + Name = "--run-help"; end Decode_Command; function Get_Short_Help (Cmd : Command_Run_Help) return String is pragma Unreferenced (Cmd); begin - return "--run-help Disp help for RUNOPTS options"; + return "run-help" + & ASCII.LF & " Display help for RUNOPTS options" + & ASCII.LF & " alias: --run-help"; end Get_Short_Help; procedure Perform_Action (Cmd : in out Command_Run_Help; |