diff options
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; |