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/ghdlvpi.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/ghdlvpi.adb')
-rw-r--r-- | src/ghdldrv/ghdlvpi.adb | 22 |
1 files changed, 14 insertions, 8 deletions
diff --git a/src/ghdldrv/ghdlvpi.adb b/src/ghdldrv/ghdlvpi.adb index af619cb90..1b94fdfa2 100644 --- a/src/ghdldrv/ghdlvpi.adb +++ b/src/ghdldrv/ghdlvpi.adb @@ -222,7 +222,8 @@ package body Ghdlvpi is Cmd_Str => new String' ("--vpi-compile"), Help_Str => new String' - ("--vpi-compile CMD ARGS Compile with VPI include path"), + ("--vpi-compile CMD ARGS" + & ASCII.LF & " Compile with VPI include path"), Extra_Args => Get_Vpi_Cflags'Access)); Register_Command (new Command_Spawn_Type' @@ -231,7 +232,8 @@ package body Ghdlvpi is Cmd_Str => new String' ("--vpi-link"), Help_Str => new String' - ("--vpi-link CMD ARGS Link with VPI library"), + ("--vpi-link CMD ARGS" + & ASCII.LF & " Link with VPI library"), Extra_Args => Get_Vpi_Ldflags'Access)); Register_Command @@ -240,7 +242,8 @@ package body Ghdlvpi is Cmd_Str => new String' ("--vpi-cflags"), Help_Str => new String' - ("--vpi-cflags Display VPI compile flags"), + ("--vpi-cflags" + & ASCII.LF & " Display VPI compile flags"), Flags => Get_Vpi_Cflags'Access)); Register_Command (new Command_Vpi_Flags' @@ -248,7 +251,8 @@ package body Ghdlvpi is Cmd_Str => new String' ("--vpi-ldflags"), Help_Str => new String' - ("--vpi-ldflags Display VPI link flags"), + ("--vpi-ldflags" + & ASCII.LF & " Display VPI link flags"), Flags => Get_Vpi_Ldflags'Access)); Register_Command @@ -257,7 +261,8 @@ package body Ghdlvpi is Cmd_Str => new String' ("--vpi-include-dir"), Help_Str => new String' - ("--vpi-include-dir Display VPI include directory"), + ("--vpi-include-dir" + & ASCII.LF & " Display VPI include directory"), Disp => Get_Vpi_Include_Dir'Access)); Register_Command (new Command_Str_Disp' @@ -265,7 +270,8 @@ package body Ghdlvpi is Cmd_Str => new String' ("--vpi-library-dir"), Help_Str => new String' - ("--vpi-library-dir Display VPI library directory"), + ("--vpi-library-dir" + & ASCII.LF & " Display VPI library directory"), Disp => Get_Vpi_Lib_Dir'Access)); Register_Command (new Command_Str_Disp' @@ -273,8 +279,8 @@ package body Ghdlvpi is Cmd_Str => new String' ("--vpi-library-dir-unix"), Help_Str => new String' - ("--vpi-library-dir-unix " - & "Display VPI library directory (unix form)"), + ("--vpi-library-dir-unix" + & ASCII.LF & " Display VPI library directory (unix form)"), Disp => Get_Vpi_Lib_Dir_Unix'Access)); end Register_Commands; |