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
|
(***********************************************************************)
(* ocamldsort *)
(* *)
(* Copyright (C) 2002 Dimitri Ara *)
(* *)
(* This program is free software; you can redistribute it and/or *)
(* modify it under the terms of the GNU General Public License *)
(* as published by the Free Software Foundation; either version 2 *)
(* of the License, or (at your option) any later version. *)
(* *)
(* This program is distributed in the hope that it will be useful, *)
(* but WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *)
(* GNU General Public License for more details. *)
(* *)
(* You should have received a copy of the GNU General Public License *)
(* along with this program; if not, write to the Free Software *)
(* Foundation, Inc., *)
(* 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
(***********************************************************************)
exception Parse_error
let string_of_char c = String.make 1 c
let concat char string =
string_of_char char ^ string
let rec parse_source = parser
| [< '' ' >] -> ""
| [< 'a when a <> '\n'; d = parse_source >] -> concat a d
| [< >] -> ""
let rec parse_sources = parser
| [< '' '; d = parse_sources >] -> d
| [< ''\\'; ''\n'; d = parse_sources >] -> d
| [< ''\n' >] -> []
| [< 'a; d = parse_source; ds = parse_sources >] ->
(Files.file_of_filename (concat a d)) :: ds
let rec parse_target = parser
| [< '':' >] -> ""
| [< '' '; _ = parse_target >] -> ""
| [< 'a; n = parse_target >] -> concat a n
let rec parse_ocamldep stream =
try
(match stream with parser
| [< t = parse_target; d = parse_sources; ds = parse_ocamldep >] ->
if not (Files.is_cmx t) then
(Files.file_of_filename t, d) :: ds
else
ds
| [< >] -> [])
with
| Stream.Failure ->
raise Parse_error
| Stream.Error _ ->
raise Parse_error
|
