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
|
// Reconcile DEP-5 debian/copyright to licensecheck
//
// Copyright : 2024 P Blackman
// License : BSD-2-clause
//
// Self contained routines without global variable access
unit support;
{$mode delphi}
interface
const WhiteSpace : set of Char = [' ',Chr(9)]; // Space & Tab
function OpenFile (const Name : AnsiString; out Myfile : text) : Boolean;
procedure MangleName (var Nam : AnsiString);
procedure UnMangleName (var Nam : AnsiString);
implementation uses StrUtils;
function OpenFile (const Name : AnsiString; out Myfile : text) : Boolean;
begin
result := true;
try
AssignFile (Myfile, Name);
Reset (Myfile);
except
result := false;
end;
end;
// Need to escape problematic characters in file names
// as they mess up the StringList text import.
// Use forward slash as it is not a legal char in a file name.
procedure MangleName (var Nam : AnsiString);
begin
Nam := ReplaceStr (Nam, ' ', '\1'); // maybe spaces in filenames (segments then treated as separate files!)
Nam := ReplaceStr (Nam, ',', '\2'); // commas are problems too
Nam := ReplaceStr (Nam, '£', '\3');
Nam := ReplaceStr (Nam, '*', '\4'); // wildcards
Nam := ReplaceStr (Nam, '?', '\5'); // wildcard
end;
procedure UnMangleName (var Nam : AnsiString);
begin
Nam := ReplaceStr (Nam, '\1', ' ');
Nam := ReplaceStr (Nam, '\2', ',');
Nam := ReplaceStr (Nam, '\3', '£');
Nam := ReplaceStr (Nam, '\4', '*');
Nam := ReplaceStr (Nam, '\5', '?');
end;
end.
|
