diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-10-03 05:46:34 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-10-03 05:46:34 +0200 |
| commit | dfe367903f66c566f9f2b2e075d6c65e7126cb3a (patch) | |
| tree | 66efe2544a463a63716b706a4c9fb0abcd631cf2 /src/ghdldrv/ghdllocal.ads | |
| parent | 1c1cdc4f5f7420f88a1ac4bc2df35a31cf45a892 (diff) | |
| download | ghdl-dfe367903f66c566f9f2b2e075d6c65e7126cb3a.tar.gz ghdl-dfe367903f66c566f9f2b2e075d6c65e7126cb3a.tar.bz2 ghdl-dfe367903f66c566f9f2b2e075d6c65e7126cb3a.zip | |
Minor refactoring to simplify interfacing.
Diffstat (limited to 'src/ghdldrv/ghdllocal.ads')
| -rw-r--r-- | src/ghdldrv/ghdllocal.ads | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/ghdldrv/ghdllocal.ads b/src/ghdldrv/ghdllocal.ads index 0809035b1..3624543d8 100644 --- a/src/ghdldrv/ghdllocal.ads +++ b/src/ghdldrv/ghdllocal.ads @@ -23,13 +23,16 @@ package Ghdllocal is -- Init procedure for the functionnal interface. procedure Compile_Init; + -- Handle: + -- --std=xx, --work=xx, -Pxxx, --workdir=x, --ieee=x, -Px, and -v + function Decode_Driver_Option (Option : String) return Boolean; + type Command_Lib is abstract new Command_Type with null record; -- Setup GHDL. Same as Compile_Init. procedure Init (Cmd : in out Command_Lib); - -- Handle: - -- --std=xx, --work=xx, -Pxxx, --workdir=x, --ieee=x, -Px, and -v + -- Handle driver options. procedure Decode_Option (Cmd : in out Command_Lib; Option : String; Arg : String; |