blob: 8dc9e75461ffff0838426c042bb2d8cc19a0e41e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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;
|