diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-11-20 20:01:14 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-11-20 20:01:14 +0100 |
commit | f722f900f4211bbddc0f432ce652e68313807ee0 (patch) | |
tree | b91ab3b2768acb6b5323fa1b9aebfecc163662fc /src/file_comments.adb | |
parent | a4f4840bfee3adf2eff26ffb9e5c68182d034dd4 (diff) | |
download | ghdl-f722f900f4211bbddc0f432ce652e68313807ee0.tar.gz ghdl-f722f900f4211bbddc0f432ce652e68313807ee0.tar.bz2 ghdl-f722f900f4211bbddc0f432ce652e68313807ee0.zip |
pyGHDL: add file_comments.py
Diffstat (limited to 'src/file_comments.adb')
-rw-r--r-- | src/file_comments.adb | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/src/file_comments.adb b/src/file_comments.adb index 183b17144..505a4ee79 100644 --- a/src/file_comments.adb +++ b/src/file_comments.adb @@ -166,6 +166,24 @@ package body File_Comments is Last := Fc.Comments.Table (Idx).Last; end Get_Comment; + function Get_Comment_Start (File : Source_File_Entry; + Idx : Comment_Index) return Source_Ptr + is + Start, Last : Source_Ptr; + begin + Get_Comment (File, Idx, Start, Last); + return Start; + end Get_Comment_Start; + + function Get_Comment_Last (File : Source_File_Entry; + Idx : Comment_Index) return Source_Ptr + is + Start, Last : Source_Ptr; + begin + Get_Comment (File, Idx, Start, Last); + return Last; + end Get_Comment_Last; + function Get_Next_Comment (File : Source_File_Entry; Idx : Comment_Index) return Comment_Index is |