diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-05-15 18:39:50 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-05-15 18:39:50 +0200 |
commit | 7791faea231292a261acfaf8e5a6c4f256744df3 (patch) | |
tree | 60dc2b00629caafc287bdfe044922ca786d782ff /src/edif/edif-scans.ads | |
parent | 3d528d7ce6dc1848286c951dc7851f4361170a5b (diff) | |
download | ghdl-7791faea231292a261acfaf8e5a6c4f256744df3.tar.gz ghdl-7791faea231292a261acfaf8e5a6c4f256744df3.tar.bz2 ghdl-7791faea231292a261acfaf8e5a6c4f256744df3.zip |
Add edif parser.
Diffstat (limited to 'src/edif/edif-scans.ads')
-rw-r--r-- | src/edif/edif-scans.ads | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/src/edif/edif-scans.ads b/src/edif/edif-scans.ads new file mode 100644 index 000000000..8dc9e7546 --- /dev/null +++ b/src/edif/edif-scans.ads @@ -0,0 +1,19 @@ +with Types; use Types; +with Edif.Tokens; use Edif.Tokens; + +package Edif.Scans is + Current_Token : Token_Type; + Current_Identifier : Name_Id; + Current_Number : Int32; + Current_String : String8_Id; + Current_String_Len : Uns32; + + -- Initialize the scanner with FILE. + procedure Set_File (File : Source_File_Entry); + + -- Return the location of the token that has just been scaned. + function Get_Token_Location return Location_Type; + + -- Scan the source file until the next token. + procedure Scan; +end Edif.Scans; |