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
|
(* approx: proxy server for Debian archive files
Copyright (C) 2010 Eric C. Cooper <ecc@cmu.edu>
Released under the GNU General Public License *)
open Util
open Config
open Log
type t = string * ((Control_file.info * string) list * (string -> string))
let find_directory file =
let rec loop i =
let dir = substring file ~until: i in
if Sys.file_exists (dir ^/ "Release") then dir
else loop (String.index_from file (i + 1) '/')
in
(* if pathname is absolute, start relative to the cache directory *)
let start =
if file.[0] <> '/' then 0
else if is_prefix cache_dir file then String.length cache_dir + 1
else invalid_arg "Release.find_directory"
in
loop start
let read file =
let rdir = find_directory file in
rdir, Control_file.read_checksum_info (rdir ^/ "Release")
let validate (rdir, (info_list, checksum)) file =
Sys.file_exists file &&
let rfile = substring file ~from: (String.length rdir + 1) in
try
let info = fst (List.find (fun (_, name) -> name = rfile) info_list) in
Control_file.is_valid checksum info file
with Not_found ->
if Filename.dirname file <> rdir then
debug_message "%s: not found in %s/Release" (shorten file) (shorten rdir);
false
let valid_file file =
try validate (read file) file
with Not_found | Control_file.Missing _ -> false
let is_variant variants file = List.mem (Filename.basename file) variants
let is_packages_file = is_variant (compressed_versions "Packages")
let is_sources_file = is_variant (compressed_versions "Sources")
let is_index file = is_packages_file file || is_sources_file file
let is_release file =
match Filename.basename file with
| "Release" | "Release.gpg" -> true
| _ -> false
let diff_index_dir file =
Filename.check_suffix (Filename.dirname file) ".diff"
let is_diff_index file =
Filename.basename file = "Index" && diff_index_dir file
let is_pdiff file =
Filename.basename file <> "Index" && diff_index_dir file
let immutable_suffixes =
[".deb"; ".udeb"; ".dsc"; ".diff.gz";
".tar.gz"; ".tar.bz2"; ".tar.lzma"; ".tar.xz"]
let immutable file =
List.exists (Filename.check_suffix file) immutable_suffixes || is_pdiff file
|
