Курсовая работа. / РЯП_Ксю / Other / Bosk_tjp / proga / src / uTrList

(*
* uTrList.pas - ¬®¤г«м, ॠ«Ё§гойЁ© в Ў«Ёжг ваЁ ¤
* ver. 0.37
* 21.05.2007 serg
*)

unit uTrList;
interface

const triadTableSize = 200;
type
tUseInfo = record
isUse: Boolean; (* == १г«мв в нв®© ваЁ ¤л ­г¦Ґ­ ¤агЈЁ¬ ваЁ ¤ ¬*)
endUse: Integer; (* == ­ з «® ®Ў« бвЁ ЁбЇ®«м§®ў ­Ёп нв®© ваЁ ¤л *)
numTmpVar: Integer; (* == ­®¬Ґа ўаҐ¬Ґ­­®© ЇҐаҐ¬Ґ­­®©, ў Є®в®а®© еа ­Ёвбп १г«мв в *)
end;

Str20 = String[20];
tTriadData = record
(* Џ®«п, Ї®«гз Ґ¬лҐ ®в ‘Ё­в ЄбЁзҐбЄ®Ј® Ђ­ «Ё§ в®а  *)
(* num : Integer; *)
name: Str20;
op1: Str20;
op2: Str20;

(* Џ®«п, ­г¦­лҐ ¤«п ЇҐаҐў®¤  ў ЂбᥬЎ«Ґа *)
useInfo: tUseInfo; (* Ё­д  ®Ў ЁбЇ®«м§гҐ¬®б⨠१г«мв в  ¤ ­­®© ваЁ ¤л *)
end;
tTriadList = record
top: integer;
data: array[1..triadTableSize] of tTriadData;
end;

procedure copyTriad(var dest: tTriadData; const source: tTriadData);
procedure createTriad(var triada: tTriadData; name, op1, op2: Str20);
procedure createTriadList(var list: tTriadList);
procedure addTriadElemNum(var list: tTriadList; const triada: tTriadData; num: Integer);
procedure addTriadElemTop(var list: tTriadList; const triada: tTriadData);
procedure getTriadElemNum(const list: tTriadList; num: Byte; var triada: tTriadData);
procedure setTriadElemNum(var list: tTriadList; num: Byte; const triada: tTriadData);
procedure printTriadList(triadFile:string; const list: tTriadList);

var TriadList: tTriadList;

implementation

procedure copyTriad(var dest: tTriadData; const source: tTriadData);
begin
(* num : Integer; *)
dest.name:= source.name ;
dest.op1 := source.op1 ;
dest.op2 := source.op2 ;
dest.useInfo := source.useInfo;
end;
procedure createTriad(var triada: tTriadData;name, op1, op2: Str20);
begin
(* num : Integer; *)
triada.name:= name ;
triada.op1 := op1 ;
triada.op2 := op2 ;

triada.useInfo.isUse := false;
triada.useInfo.endUse := 0;
triada.useInfo.numTmpVar :=0;

end;


procedure createTriadList(var list: tTriadList);
begin
list.top := 0;
end;

procedure addTriadElemNum(var list: tTriadList; const triada: tTriadData;
num: Integer);
begin
if num > list.top then list.top := num;
copyTriad(list.data[num], triada);
end;
procedure addTriadElemTop(var list: tTriadList; const triada: tTriadData);
begin
inc(list.top);
copyTriad(list.data[list.top], triada);
end;

procedure getTriadElemNum(const list: tTriadList; num: Byte; var triada: tTriadData);
begin
copyTriad(triada, list.data[num]);
end;
procedure setTriadElemNum(var list: tTriadList; num: Byte; const triada: tTriadData);
begin
copyTriad(list.data[num],triada);
end;

procedure printTriadList(triadFile:string; const list: tTriadList);
var f: Text;
i: integer;
begin
assign(f, triadFile);
rewrite(f);
writeln(f, 'num':10, 'name': 10, 'op1': 10, 'op2': 10,
'isUse':10, 'endUse':10, 'numTmpVar':10);
with list do
for i:=1 to top do
with data[i] do
writeln(f, i:10, name: 10, op1: 10, op2: 10,
useInfo.isUse:10, useInfo.endUse:10, useInfo.numTmpVar:10);
close(f);
end;
end.