aboutsummaryrefslogtreecommitdiffstats
path: root/psl/psl-optimize.ads
blob: 5f36a0739f52ece1c8584d629e21259b861a1b20 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
with PSL.NFAs; use PSL.NFAs;
with PSL.Nodes; use PSL.Nodes;

package PSL.Optimize is
   --  Remove unreachable states, ie
   --  *  states that can't be reach from the start state.
   --  *  states that can't reach the final state.
   --  O(N) algorithm.
   procedure Remove_Unreachable_States (N : NFA);

   --  Remove single prefix, ie edges to a state S that is also from start
   --  to S.
   --  O(M) algorithm.
   procedure Remove_Simple_Prefix (N : NFA);

   procedure Merge_Identical_States (N : NFA);

   procedure Merge_Edges (N : NFA);

   procedure Remove_Identical_Src_Edges (S : NFA_State);
   procedure Remove_Identical_Dest_Edges (S : NFA_State);

   --procedure Find_Partitions (N : NFA; Nbr_States : Natural);
end PSL.Optimize;