-
Notifications
You must be signed in to change notification settings - Fork 0
/
graf.ads
140 lines (106 loc) · 3.81 KB
/
graf.ads
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
--
-- Copyright (C) 2004 Robert Nowotniak <[email protected]>
--
With Ada.Strings.Unbounded;
Use Ada.Strings.Unbounded;
package Graf is
subtype Symb_Term is Unbounded_String;
subtype Symb_Nieterm is Unbounded_String;
------------------------------
-- Wezly grafu --
------------------------------
type Wezel_t;
type Wezel_Ptr is access Wezel_t;
type Wezel_Pocz_t;
type Wezel_Pocz_Ptr is access Wezel_Pocz_t;
--
-- Typ rekordowy jako wezel grafu symbolu poczatkowego
--
type Wezel_Pocz_t is
record
-- Nazwa symbolu pomocniczego
PSym : Symb_NieTerm := To_Unbounded_String(0);
-- Wskaznik na pierwszy wezel tej produkcji
Wyj : aliased Wezel_Ptr := null;
-- Pola czlonu alternatywnego i nastepnego
CzlAlt : aliased Wezel_Ptr := null;
Nast : aliased Wezel_Ptr := null;
--
-- Wskaznik na kolejny symbol ze zbioru
-- symboli pomocniczych dla tej gramatyki
--
Next : Wezel_Pocz_Ptr := null;
end record;
--
-- Do konstrukcji struktury grafu sa uzywane m.in. tymczasowe
-- wezly pomocnicze, ktore ostatecznie moga byc usuniete
-- w fazie optymalizacji grafu.
--
--------------------------------------------------------------------
-- Czy daloby sie w ogole nie uzywac _zadnych_ tymczasowych wezlow
-- pomocniczych?
-- Moim zdaniem - NIE, jesli analizator/translator ma dzialac bez
-- powtorzen z wyprzedzeniem o jeden symbol
--------------------------------------------------------------------
type Typ_Wezla_t is (
Zwykly, -- standardowy wezel symbolu koncowego
Jawnie_Pusty, -- wezel pusty, narzucony przez gramatyke
-- Wezly pomocnicze:
Po_Alternatywny, -- wezel ,,scalajacy'' alternatywe
Przed_Iteracyjny, -- wezel pomocniczy przed iteracja
Po_Iteracyjny, -- obowiazkowy wezel pusty po iteracji
Opcjonalny, -- produkcja opcjonalna
Konkat -- produkcja konkatenacji
);
-- Typ licznika odwolan do wezla
type Licznik_t is mod Integer'Last;
--
-- Definicja rekordu wezla grafu dla symbolu terminalnego
--
type Wezel_t is
record
-- Symbol
Ksym : Symb_Term;
-- Pole ze wskaznikiem na ewentualny symbol poczatkowy
RefSym : Wezel_Pocz_Ptr := null;
-- Wskaznik na czlon alternatywny
CzlAlt : aliased Wezel_Ptr := null;
-- Wskaznik na wezel nastepny
Nast : aliased Wezel_Ptr := null;
--
-- Unikalny identyfikator wezla
-- Jest to liczba heksadecymalna, co najmniej 3-znakowa
--
Id : Natural := 0;
-- Typ wezla pomocniczego (pustego)
Typ : Typ_Wezla_t := Zwykly;
--
-- Frequency Counter
-- (licznik wezlow, ktore wskazuja na ten wezel)
--
FC : Natural := 1;
--
-- Czy aktualny wezel byl poddawany optymalizacji w grafie
--
Optymal : Boolean := FALSE;
--
-- Licznik czynnosci wykonywanych na wezle
--
Licznik : Licznik_t := 0;
end record;
--
-- Definicja typu wskaznika na wskazanie na wezel/rekord grafu.
--
type Wezel_P2 is access all Wezel_Ptr;
type wsk_w;
type wsk_w_ptr is access wsk_w;
type wsk_w is
record
Wezel : Wezel_Ptr := null;
Next : wsk_w_ptr := null;
end record;
LISTA_Wezlow : Wezel_Pocz_Ptr := null;
Wszystkie_Wezly : wsk_w_ptr := null;
procedure Resetuj_Liczniki;
function Pierwszy_Pewny(W : Wezel_Ptr)return Wezel_Ptr;
end Graf;