/usr/share/doc/libopentoken3-dev/examples/ASU_Example_3_6/relop_example_token.ads is in libopentoken3-dev 4.0b-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 | with OpenToken.Recognizer;
package Relop_Example_Token is
type Instance is new OpenToken.Recognizer.Instance with private;
---------------------------------------------------------------------------
-- This function will be called to create an Identifier token. Note that
-- this is a simple recognizer, so Get doesn't need any parameters.
---------------------------------------------------------------------------
function Get return Instance;
private
type State_ID is (First_Char, Equal_or_Greater, Equal, Done);
type Instance is new OpenToken.Recognizer.Instance with record
State : State_ID := First_Char;
end record;
---------------------------------------------------------------------------
-- This procedure will be called when analysis on a new candidate string
-- is started. The Token needs to clear its state (if any).
---------------------------------------------------------------------------
overriding procedure Clear (The_Token : in out Instance);
---------------------------------------------------------------------------
-- This procedure will be called to perform further analysis on a token
-- based on the given next character.
---------------------------------------------------------------------------
overriding procedure Analyze
(The_Token : in out Instance;
Next_Char : in Character;
Verdict : out OpenToken.Recognizer.Analysis_Verdict);
end Relop_Example_Token;
|