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/ghdlxml.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/ghdlxml.adb')
-rw-r--r-- | src/ghdldrv/ghdlxml.adb | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/ghdldrv/ghdlxml.adb b/src/ghdldrv/ghdlxml.adb index b135c384c..80fb1d557 100644 --- a/src/ghdldrv/ghdlxml.adb +++ b/src/ghdldrv/ghdlxml.adb @@ -523,14 +523,18 @@ package body Ghdlxml is is pragma Unreferenced (Cmd); begin - return Name = "--file-to-xml"; + return + Name = "file-to-xml" or else + Name = "--file-to-xml"; end Decode_Command; function Get_Short_Help (Cmd : Command_File_To_Xml) return String is pragma Unreferenced (Cmd); begin - return "--file-to-xml FILEs Dump AST in XML"; + return "file-to-xml FILEs" + & ASCII.LF & " Dump AST in XML" + & ASCII.LF & " alias: --file-to-xml"; end Get_Short_Help; procedure Perform_Action |