Subversion Repositories oidplus

Compare Revisions

Regard whitespace Rev 735 → Rev 734

/trunk_dos/OIDFILE.PAS
25,16 → 25,12
Parent: string; (* First 8 chars are FileId, followed by Dot-Notation *)
end;
 
procedure CreateOidDef(var oid: POid);
procedure InitOidDef(oid: POid);
procedure FreeOidDef(oid: POid);
procedure ClearOidDef(oid: POid);
procedure WriteOidFile(filename: string; oid: POid);
procedure ReadOidFile(filename: string; oid: POid);
 
(* For the fields "SubIds" and "Parent" *)
function FileIdPart(s: string): string;
function DotNotationPart(s: string): string;
 
implementation
 
uses
43,15 → 39,14
const
WANT_VERS = '2022';
 
procedure CreateOidDef(var oid: POid);
procedure InitOidDef(oid: POid);
begin
GetMem(oid, SizeOf(TOID));
oid^.FileId := '';
oid^.DotNotation := '';
oid^.Description := '';
oid^.Parent := '';
CreateList(oid^.ASNIds);
CreateList(oid^.SubIds);
InitList(oid^.ASNIds);
InitList(oid^.SubIds);
end;
 
procedure FreeOidDef(oid: POid);
58,13 → 53,12
begin
FreeList(oid^.ASNIds);
FreeList(oid^.SubIds);
FreeMem(oid, SizeOf(TOID));
end;
 
procedure ClearOidDef(oid: POid);
begin
FreeOidDef(oid);
CreateOidDef(oid);
InitOidDef(oid);
end;
 
procedure WriteOidFile(filename: string; oid: POid);
99,7 → 93,7
desc := Trim(oid^.Description);
if desc <> '' then
begin
CreateList(lines);
InitList(lines);
SplitStrToList(desc, lines, #13#10);
for i := 0 to ListCount(lines)-1 do
begin
175,15 → 169,4
Close(f);
end;
 
function FileIdPart(s: string): string;
begin
FileIdPart := Copy(s,1,8);
end;
 
function DotNotationPart(s: string): string;
begin
Delete(s,1,8);
DotNotationPart := s;
end;
 
end.