diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-11-20 08:35:20 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-11-20 08:35:20 +0100 |
commit | a4f4840bfee3adf2eff26ffb9e5c68182d034dd4 (patch) | |
tree | 50d752dba87b736e9998890375a115913bc8640e /src/vhdl/vhdl-comments.adb | |
parent | bd43c44ab5216e53bddc0e5c33cf8976db4d54b3 (diff) | |
download | ghdl-a4f4840bfee3adf2eff26ffb9e5c68182d034dd4.tar.gz ghdl-a4f4840bfee3adf2eff26ffb9e5c68182d034dd4.tar.bz2 ghdl-a4f4840bfee3adf2eff26ffb9e5c68182d034dd4.zip |
Add an API to gather comments.
Diffstat (limited to 'src/vhdl/vhdl-comments.adb')
-rw-r--r-- | src/vhdl/vhdl-comments.adb | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-comments.adb b/src/vhdl/vhdl-comments.adb new file mode 100644 index 000000000..bc7a3e2e8 --- /dev/null +++ b/src/vhdl/vhdl-comments.adb @@ -0,0 +1,33 @@ +-- Specialisation of File_Comments for vhdl +-- Copyright (C) 2022 Tristan Gingold +-- +-- This program is free software: you can redistribute it and/or modify +-- it under the terms of the GNU General Public License as published by +-- the Free Software Foundation, either version 2 of the License, or +-- (at your option) any later version. +-- +-- This program is distributed in the hope that it will be useful, +-- but WITHOUT ANY WARRANTY; without even the implied warranty of +-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +-- GNU General Public License for more details. +-- +-- You should have received a copy of the GNU General Public License +-- along with this program. If not, see <gnu.org/licenses>. + +-- All the variables declared in this package are set by Parse_Option function +-- and can by read as soon as the command line is parsed. +-- +-- Since the names are not prefixed, this package is expected to be with'ed +-- but not to be use'd. + +with Types; use Types; +with File_Comments; use File_Comments; + +with Vhdl.Scanner; use Vhdl.Scanner; + +package body Vhdl.Comments is + procedure Gather_Comments (N : Iir) is + begin + Gather_Comments (Get_Current_Source_File, Uns32 (N)); + end Gather_Comments; +end Vhdl.Comments; |